|
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: 16371 (0x3ff3)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »DEBVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »DEBVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »DEBVEDL.B«
0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E),UD2$(14),A$(E) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25),N$(6) 0120 DIM T2(W),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),VTAB2(5) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(V),KG$(V),KTN$(6) 0140 DIM PNR$(6),TY$(E),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8) 0150 DIM DEBGADE1$(25),DEBTLF1$(W),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71) 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12) 0165 DIM DV$(10) 0170 PROC CALC(ART,B1,B2,ES) 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B 0190 CALL "P641210:REGN" 0200 ES$=RES$ 0210 IF FLAG THEN STOP 0220 ENDPROC 0230 PROC FEJL(NR1,NR2,NR3) 0240 IF STATUS(NR3$)<>B THEN 0250 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0260 STOP 0270 ENDIF 0280 ENDPROC 0290 PROC INDTAB(T,MANTAL,K10) 0300 J=MANTAL DIV 32+E 0310 FOR I=J TO MANTAL DIV 4+J-E 0320 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0330 GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G) 0340 EXEC FEJL(E,E,K10$) 0350 NEXT I 0360 ENDPROC 0370 PROC UDTAB(U,MANTAL1,K9) 0380 J=MANTAL1 DIV 32+E 0390 FOR I=E TO J-E 0400 H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0410 PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E) 0420 EXEC FEJL(G,E,K9$) 0430 NEXT I 0440 FOR I=J TO MANTAL1 DIV 4+J-E 0450 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0460 PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G) 0470 EXEC FEJL(G,G,K9$) 0480 NEXT I 0490 ENDPROC 0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0510 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0520 REPEAT 0530 IF NØGL1=TAB1(PIL3,E) THEN 0540 CEKS=B 0550 ELSE 0560 IF PIL1=E THEN PIL1=B 0570 PIL1=INT((PIL1+E)/G) 0580 IF NØGL1>TAB1(PIL3,E) THEN 0590 PIL3=PIL3+PIL1 0600 ELSE 0610 PIL3=PIL3-PIL1 0620 ENDIF 0630 IF PIL3<E THEN PIL3=E 0640 IF PIL3>MANT1 THEN PIL3=MANT1 0650 ENDIF 0660 UNTIL CEKS=B OR PIL1=B 0670 ENDPROC 0680 PROC SLETDPOST(NØGLE3) 0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3) 0700 IF CEKS=E THEN STOP 0710 DEBNR=B 0720 DEBNAVN$=BLANK$(E:25) 0730 DSALDO1$=BLANK$(E:12) 0740 DSALDO2$=BLANK$(E:12) 0750 DSALDO3$=BLANK$(E:12) 0760 DSALDO4$=BLANK$(E:12) 0770 ÅRKØB$=BLANK$(E:12) 0780 MDNKØB$=BLANK$(E:12) 0790 DEBKGR$="0" 0800 DEBPOSTNR=B 0810 DEBLK$="0" 0820 DEBGADE$=BLANK$(E:25) 0830 DEBTLF$=BLANK$(E:W) 0840 HPOST=B 0850 HKUNDE=B 0860 DEBBY$=BLANK$(E:20) 0870 EXEC GEMDPOST 0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3) 0890 ENDPROC 0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0910 IF CEKS=E THEN 0920 POSTNR=TAB2(ANTAL2+E,G) 0930 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0940 FOR J=ANTAL2+E TO PIL4+E STEP -E 0950 TAB2(J,E)=TAB2(J-E,E) 0960 TAB2(J,G)=TAB2(J-E,G) 0970 NEXT J 0980 TAB2(PIL4,E)=NØGL2 0990 TAB2(PIL4,G)=POSTNR 1000 ANTAL2=ANTAL2+E 1010 ENDIF 1020 ENDPROC 1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 1040 IF CEKS=B THEN 1050 POSTNR=TAB3(PIL5,G) 1060 FOR I=PIL5 TO ANTAL3-E 1070 TAB3(I,E)=TAB3(I+E,E) 1080 TAB3(I,G)=TAB3(I+E,G) 1090 NEXT I 1100 TAB3(ANTAL3,E)=1000000 1110 TAB3(ANTAL3,G)=POSTNR 1120 ANTAL3=ANTAL3-E 1130 ENDIF 1140 ENDPROC 1150 PROC HENTDPOST 1160 S=DTAB(DPIL3,G) 1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1180 EXEC FEJL(8,G,K3$) 1190 IF DEBNR<>DTAB(DPIL3,E) THEN STOP 1200 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1210 EXEC FEJL(8,V,K3$) 1220 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1230 EXEC FEJL(8,4,K3$) 1240 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1250 EXEC FEJL(8,5,K3$) 1260 ENDPROC 1270 PROC GEMDPOST 1280 S=DTAB(DPIL3,G) 1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1300 EXEC FEJL(W,V,K3$) 1310 PUT K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1320 EXEC FEJL(W,4,K3$) 1330 PUT K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1340 EXEC FEJL(W,4,K3$) 1350 PUT K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1360 EXEC FEJL(W,5,K3$) 1370 ENDPROC 1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2) 1390 IF CÆND<>E THEN 1400 CLEAR 1410 CURSOR 21,E 1420 PRINT "Kundeoplysninger" 1430 EXEC OVERSKRIFT 1440 CURSOR G,V 1450 PRINT "1:Kundenr :";DEBNR2 1460 ENDIF 1470 REPEAT 1480 CASE DSTYR OF 1490 STOP 1500 WHEN G 1510 IF CÆND<>E THEN 1520 CURSOR G,4 1530 PRINT "2:Navn :" 1540 DSTYR=V 1550 ENDIF 1560 IF CÆND<>G THEN 1570 CURSOR V,23 1580 PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1590 CURSOR 13,23 1600 INPUT DEBNAVN$ 1610 ENDIF 1620 CURSOR 16,4 1630 PRINT BLANK$(E:25) 1640 CURSOR 16,4 1650 PRINT DEBNAVN$ 1660 WHEN V 1670 IF CÆND<>E THEN 1680 CURSOR G,5 1690 PRINT "3:Gade :" 1700 DSTYR=4 1710 ENDIF 1720 IF CÆND<>G THEN 1730 CURSOR V,23 1740 PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1750 CURSOR 13,23 1760 INPUT DEBGADE$ 1770 ENDIF 1780 CURSOR 16,5 1790 PRINT BLANK$(E:25) 1800 CURSOR 16,5 1810 PRINT DEBGADE$ 1820 WHEN 4 1830 IF CÆND<>E THEN 1840 CURSOR G,6 1850 PRINT "4:Postnr :" 1860 DSTYR=5 1870 ENDIF 1880 IF CÆND<>G THEN 1890 REPEAT 1900 CURSOR V,23 1910 PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45) 1920 CURSOR 13,23 1930 INPUT PNR$ 1940 EXEC NRTEST(PNR$) 1950 UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B 1960 IF P<>-E THEN DEBPOSTNR=P 1970 ENDIF 1980 CURSOR 16,6 1990 PRINT BLANK$(E:6) 2000 CURSOR 16,6 2010 PRINT DEBPOSTNR 2020 WHEN 5 2030 IF CÆND<>E THEN 2040 CURSOR G,7 2050 PRINT "5:By :" 2060 DSTYR=6 2070 ENDIF 2080 IF CÆND<>G THEN 2090 CURSOR V,23 2100 PRINT "By";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31) 2110 CURSOR 13,23 2120 INPUT DEBBY$ 2130 ENDIF 2140 CURSOR 16,7 2150 PRINT BLANK$(E:20) 2160 CURSOR 16,7 2170 PRINT DEBBY$ 2180 WHEN 6 2190 IF CÆND<>E THEN 2200 CURSOR G,8 2210 PRINT "6:Landekode : Land:" 2220 DSTYR=7 2230 ENDIF 2240 IF CÆND<>G THEN 2250 REPEAT 2260 CURSOR V,23 2270 PRINT "Landekode";BLANK$(E:W);"0:for Danmark,max 2 cifre)";BLANK$(E:30) 2280 CURSOR 13,23 2290 INPUT LK$ 2300 EXEC NRTEST(LK$) 2310 UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E) 2320 ENDIF 2330 CURSOR 16,8 2340 PRINT BLANK$(E:V) 2350 CURSOR 27,8 2360 PRINT BLANK$(E:15) 2370 CURSOR 16,8 2380 IF P<10 AND CÆND<>G THEN 2390 DEBLK$=CHR(P+48) 2400 ENDIF 2410 P=ORD(DEBLK$)-48 2420 PRINT USING "###":P 2430 CURSOR 27,8 2440 IF P=B THEN 2450 PRINT "Danmark" 2460 ELSE 2470 PRINT LAND$(P) 2480 ENDIF 2490 WHEN 7 2500 IF CÆND<>E THEN 2510 CURSOR G,W 2520 PRINT "7:Telefon :" 2530 DSTYR=8 2540 ENDIF 2550 IF CÆND<>G THEN 2560 CURSOR V,23 2570 PRINT "Telefon";BLANK$(E:14);"(max 9 tegn)";BLANK$(E:44) 2580 CURSOR 13,23 2590 INPUT DEBTLF$ 2600 ENDIF 2610 CURSOR 16,W 2620 PRINT BLANK$(E:W) 2630 CURSOR 16,W 2640 PRINT DEBTLF$ 2650 WHEN 8 2660 IF CÆND<>E THEN 2670 CURSOR G,10 2680 PRINT "8:Kundegr :" 2690 DSTYR=W 2700 ELSE 2710 IF TYPE=G THEN 2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2730 EXEC KINDSLET(0) 2740 ENDIF 2750 ENDIF 2760 IF CÆND<>G THEN 2770 REPEAT 2780 CURSOR V,23 2790 PRINT "Kundegr (max 2 cifre)";BLANK$(E:49) 2800 CURSOR 13,23 2810 INPUT KG$ 2820 EXEC NRTEST(KG$) 2830 UNTIL (P>B AND TEST2=B AND P<=MKGR) OR (P=-E AND CÆND=E) 2840 ENDIF 2850 CURSOR 16,10 2860 IF P>B AND CÆND<>G THEN 2870 DEBKGR$=CHR(P+48) 2880 ENDIF 2890 PRINT USING "###":INT(ORD(DEBKGR$)-48) 2900 IF CÆND=E AND TYPE=G THEN 2910 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2920 EXEC KINDSLET(1) 2930 ENDIF 2940 ENDCASE 2950 IF CÆND=E THEN 2960 DSTYR=W 2970 ENDIF 2980 UNTIL DSTYR=W 2990 IF CÆND<>E THEN 3000 EXEC CALC(B,DSALDO1$,DSALDO2$,DSALDI$) 3010 EXEC CALC(B,DSALDI$,DSALDO3$,DSALDI$) 3020 EXEC CALC(B,DSALDI$,DSALDO4$,DSALDI$) 3030 CURSOR 4,12 3040 PRINT "Saldo :" 3050 CURSOR 17,12 3060 EXEC TUD(DSALDI$,TAL4$,E,B) 3070 PRINT TAL4$ 3080 CURSOR 4,14 3090 PRINT " 0-30 Dage :" 3100 CURSOR 17,14 3110 EXEC TUD(DSALDO1$,TAL4$,E,B) 3120 PRINT TAL4$ 3130 CURSOR 4,16 3140 PRINT "30-60 Dage :" 3150 CURSOR 17,16 3160 EXEC TUD(DSALDO2$,TAL4$,E,B) 3170 PRINT TAL4$ 3180 CURSOR 4,18 3190 PRINT "60-90 Dage :" 3200 CURSOR 17,18 3210 EXEC TUD(DSALDO3$,TAL4$,E,B) 3220 PRINT TAL4$ 3230 CURSOR 4,20 3240 PRINT "Ældre :" 3250 CURSOR 17,20 3260 EXEC TUD(DSALDO4$,TAL4$,E,B) 3270 PRINT TAL4$ 3280 CURSOR 44,12 3290 PRINT "Månedens køb :" 3300 CURSOR 59,12 3310 EXEC TUD(MDNKØB$,TAL4$,E,B) 3320 PRINT TAL4$ 3330 CURSOR 44,14 3340 PRINT "Årets køb :" 3350 CURSOR 59,14 3360 TÅRKØB$=ÅRKØB$ 3370 EXEC TUD(TÅRKØB$,TAL4$,E,B) 3380 PRINT TAL4$ 3390 ENDIF 3400 ENDPROC 3410 PROC TUD(BLB1,UBLB1,TEGN,STØR) 3420 BLB2$=BLB1$;UBLB2$=UBLB1$ 3430 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 3440 UBLB1$=UBLB2$ 3450 IF TEGN=B THEN 3460 UBLB1$=UBLB1$(E:13) 3470 ELSE 3480 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 3490 UBLB1$(LEN(UBLB1$))=" " 3500 ENDIF 3510 ENDIF 3520 IF STØR=E THEN 3530 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 3540 ENDIF 3550 ENDPROC 3560 PROC KINDSLET(AR1) 3570 IF FUN+AR1=B THEN 3580 IF SPIL1=B THEN 3590 KARRAY(ORD(DEBKGR$)-48)=HKUNDE 3600 ELSE 3610 HKUNDE1=HKUNDE 3620 ENDIF 3630 ELSE 3640 IF FUN+AR1=G THEN 3650 HKUNDE=SPIL2 3660 IF SPIL1=B THEN 3670 KARRAY(ORD(DEBKGR$)-48)=DEBNR 3680 ELSE 3690 HKUNDE1=DEBNR 3700 ENDIF 3710 ELSE 3720 STOP 3730 ENDIF 3740 ENDIF 3750 IF (FUN+AR1=B OR FUN+AR1=G) AND SPIL1<>B THEN 3760 PUT K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3770 EXEC FEJL(11,G,K3$) 3780 ENDIF 3790 ENDPROC 3800 PROC KSØG(NØGLE,KGR) 3810 FUN=E;SPIL1=B;SPIL2=KARRAY(KGR) 3820 IF SPIL2<NØGLE AND SPIL2>B THEN 3830 REPEAT 3840 SPIL1=SPIL2 3850 EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3) 3860 IF CEKS=E THEN STOP 3870 GET K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3880 EXEC FEJL(10,G,K3$) 3890 SPIL2=HKUNDE1 3900 UNTIL SPIL2=>NØGLE OR SPIL2=B 3910 ENDIF 3920 IF SPIL2=NØGLE THEN FUN=B 3930 ENDPROC 3940 PROC KPUT 3950 OPEN K4$,W 3960 EXEC FEJL(12,E,K4$) 3970 FOR I=E TO MKGR DIV 5 3980 J=(I-E)*5+E 3990 PUT K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) 4000 EXEC FEJL(12,G,K4$) 4010 NEXT I 4020 CLOSE K4$ 4030 EXEC FEJL(12,V,K4$) 4040 ENDPROC 4050 PROC NRTEST(NUM1) 4060 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 4070 CASE L OF 4080 FOR I=E TO L 4090 P1=INT(ORD(NUM1$(I))-48) 4100 IF P1=>B AND P1<=W THEN 4110 P=P*10+P1 4120 ELSE 4130 TEST2=E 4140 ENDIF 4150 NEXT I 4160 KTAL=P DIV 10000 4170 WHEN B 4180 P=-E 4190 WHEN E 4200 CASE NUM1$ OF 4210 P=INT(ORD(NUM1$)-48) 4220 WHEN "J","j" 4230 P=-7 4240 WHEN "N","n" 4250 P=-8 4260 ENDCASE 4270 ENDCASE 4280 ENDPROC 4290 PROC OVERSKRIFT 4300 CURSOR 45,E 4310 CASE TYPE OF 4320 WHEN E 4330 PRINT "Oprettelse" 4340 WHEN G 4350 PRINT "Ændring" 4360 WHEN V 4370 PRINT "Sletning" 4380 WHEN 4 4390 PRINT "Udskrift" 4400 WHEN 5 4410 PRINT "Kundekontoliste" 4420 ENDCASE 4430 ENDPROC 4440 K1$="P641220:SYSTEM1" 4450 OPEN K1$,R 4460 EXEC FEJL(W,E,K1$) 4470 GET K1$,E:MFANTAL,MDANTAL 4480 EXEC FEJL(W,G,K1$) 4490 GET K1$,4:MKRMID,MFAK,MVGR,MKGR 4500 EXEC FEJL(W,V,K1$) 4510 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 4520 EXEC FEJL(W,4,K1$) 4530 GET K1$,10:N$ 4540 EXEC FEJL(W,5,K1$) 4550 GET K1$,12:K2$ 4560 EXEC FEJL(W,6,K1$) 4570 GET K1$,16:K3$ 4580 EXEC FEJL(W,7,K1$) 4590 GET K1$,35:K4$ 4600 EXEC FEJL(W,8,K1$) 4610 GET K1$,36:K5$ 4620 EXEC FEJL(W,W,K1$) 4630 CLOSE K1$ 4640 EXEC FEJL(W,10,K1$) 4650 DIM DTAB(MDANTAL,G),KARRAY(MKGR) 4660 K5$=N$+K5$ 4670 OPEN K5$,W 4680 EXEC FEJL(W,11,K5$) 4690 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 4700 EXEC FEJL(W,12,K5$) 4710 FOR I=E TO V 4720 J=(I-E)*V+E 4730 GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G) 4740 EXEC FEJL(W,13,K5$) 4750 NEXT I 4760 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 4770 EXEC FEJL(W,14,K5$) 4771 GET K5$,20:DV$ 4772 EXEC FEJL(W,22,K5$) 4780 GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4790 EXEC FEJL(W,15,K5$) 4800 T2(V)=E 4810 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4820 EXEC FEJL(W,16,K5$) 4830 CLOSE K5$ 4840 EXEC FEJL(W,17,K5$) 4850 K3$=N$+K3$ 4860 OPEN K3$,W 4870 EXEC FEJL(W,18,K3$) 4880 K2$=N$+K2$ 4890 OPEN K2$,W 4900 EXEC FEJL(W,19,K2$) 4910 EXEC INDTAB(DTAB,MDANTAL,K2$) 4920 K4$=N$+K4$ 4930 OPEN K4$,R 4940 EXEC FEJL(W,10,K4$) 4950 FOR I=E TO MKGR DIV 5 4960 J=(I-E)*5+E 4970 GET K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) 4980 EXEC FEJL(W,11,K4$) 4990 NEXT I 5000 CLOSE K4$ 5010 EXEC FEJL(W,12,K4$) 5020 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 5030 TAH$="0+";TAL4$="0+" 5040 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 5050 REPEAT 5060 CLEAR 5070 CURSOR 21,E 5080 PRINT "Kundevedligeholdelse" 5090 CURSOR G,V 5100 PRINT "0:Færdig" 5110 CURSOR G,5 5120 PRINT "1:Oprettelse" 5130 CURSOR G,7 5140 PRINT "2:Ændring" 5150 CURSOR G,W 5160 PRINT "3:Sletning" 5170 CURSOR G,11 5180 PRINT "4:Udskrift" 5190 CURSOR G,13 5200 PRINT "5:Kundekontoliste" 5210 REPEAT 5220 CURSOR 4,15 5230 PRINT "Vælg type (0-5)" 5240 CURSOR 14,15 5250 INPUT TY$ 5260 EXEC NRTEST(TY$) 5270 UNTIL P>-E AND P<6 5280 TYPE=P 5290 IF TYPE=B THEN EXIT 5300 REPEAT 5310 EXEC OVERSKRIFT 5320 TEST=B;KONT=E 5330 IF TYPE<5 THEN 5340 REPEAT 5350 REPEAT 5360 CURSOR V,23 5370 PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(E:35) 5380 CURSOR 22,23 5390 INPUT KTN$ 5400 EXEC NRTEST(KTN$) 5410 UNTIL (TEST2=B AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=B 5420 KONT=P 5430 IF KONT=B THEN EXIT 5440 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 5450 REPEAT 5460 CURSOR 44,23 5470 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) THEN 5480 PRINT BLANK$(E:35) 5490 P=-E 5500 ELSE 5510 IF CEKS=E AND TYPE=E AND ADEB=>MDANTAL THEN 5520 CURSOR V,23 5530 INPUT "Ikke plads til flere kunder,tast RETURN ",A$ 5540 ELSE 5550 IF CEKS=B THEN 5560 INPUT "Kunde eksisterer , tast RETURN ",A$ 5570 ELSE 5580 INPUT "Kunde eksisterer ikke , tast RETURN",A$ 5590 ENDIF 5600 ENDIF 5610 EXEC NRTEST(A$) 5620 ENDIF 5630 UNTIL P=-E 5640 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) 5650 IF KONT=B THEN EXIT 5660 IF TYPE<>E THEN 5670 FNR=KONT;TEST=B 5680 EXEC HENTDPOST 5690 IF TYPE=V THEN EXEC SALDOTEST 5700 EXEC DINDTAST(2,2,FNR) 5710 ELSE 5720 DEBNR=KONT 5730 DEBNAVN$=BLANK$(E:25) 5740 DSALDO1$="0+" 5750 DSALDO2$="0+" 5760 DSALDO3$="0+" 5770 DSALDO4$="0+" 5780 MDNKØB$="0+" 5790 ÅRKØB$="0+" 5800 DEBGADE$=BLANK$(E:25) 5810 DEBTLF$=BLANK$(E:W) 5820 HPOST=B 5830 HKUNDE=B 5840 DEBPOSTNR=B 5850 DEBLK$="0" 5860 DEBKGR$="0" 5870 DEBBY$=BLANK$(E:20) 5880 EXEC DINDTAST(2,0,DEBNR) 5890 ENDIF 5900 ENDIF 5910 IF KONT=B THEN EXIT 5920 IF TEST=B THEN 5930 CASE TYPE OF 5940 STOP 5950 WHEN E,G 5960 REPEAT 5970 REPEAT 5980 CURSOR V,23 5990 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,"; 6000 PRINT "0:for færdig) " 6010 CURSOR 32,23 6020 INPUT LK$ 6030 EXEC NRTEST(LK$) 6040 UNTIL P=B OR (P>E AND P<W) 6050 STYR1=P 6060 IF STYR1=B THEN EXIT 6070 EXEC DINDTAST(STYR1,1,DEBNR) 6080 UNTIL STYR1=B 6090 IF TYPE=E THEN 6100 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6110 EXEC KINDSLET(1) 6120 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6130 EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3) 6140 EXEC GEMDPOST 6150 ELSE 6160 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6170 EXEC GEMDPOST 6180 ENDIF 6190 WHEN V 6200 REPEAT 6210 CURSOR V,23 6220 PRINT "Er det rigtigt at denne konto skal slettes"; 6230 PRINT " (J/N)";BLANK$(E:23) 6240 CURSOR 48,23 6250 INPUT A$ 6260 EXEC NRTEST(A$) 6270 UNTIL P=-7 OR P=-8 6280 IF P=-7 THEN 6290 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6300 EXEC KINDSLET(0) 6310 EXEC SLETDPOST(DEBNR) 6320 ENDIF 6330 WHEN 4 6340 WHEN 5 6350 REPEAT 6360 REPEAT 6370 CURSOR V,23 6380 PRINT "Fra kundenr (0: Alle)" 6390 CURSOR 15,23 6400 INPUT KTN$ 6410 EXEC NRTEST(KTN$) 6420 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B 6430 IF P=B THEN 6440 FRA=E;TIL=ADEB 6450 ELSE 6460 KONT=P 6470 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6480 IF DTAB(DPIL3,E)<KONT THEN DPIL3=DPIL3+E 6490 FRA=DPIL3 6500 ENDIF 6510 UNTIL FRA<=ADEB 6520 IF P>B THEN 6530 REPEAT 6540 CURSOR V,23 6550 PRINT "Til kundenr " 6560 CURSOR 15,23 6570 INPUT KTN$ 6580 EXEC NRTEST(KTN$) 6590 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT 6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6610 IF DTAB(DPIL3,E)>P THEN DPIL3=DPIL3-E 6620 TIL=DPIL3 6630 ENDIF 6640 CLEAR 6650 REPEAT 6660 CURSOR 8,13 6670 INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$ 6680 UNTIL ORD(A$)=255 6690 OUTPUT P 6700 SIDE=E;DA1=DATO;DAT$=" " 6710 FOR J=8 TO E STEP -E 6720 IF J MOD V=B THEN 6730 DAT$(J)="." 6740 ELSE 6750 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 6760 ENDIF 6770 NEXT J 6780 FOR I=FRA TO TIL STEP 4 6785 PRINT TAB(67);DV$;" " 6790 PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$; 6800 PRINT USING " Side :####":SIDE 6810 PRINT " " 6820 SIDE=SIDE+E 6830 FOR DPIL3=I TO I+V 6840 IF DTAB(DPIL3,E)>B THEN 6850 EXEC HENTDPOST 6860 EXEC TUD(MDNKØB$,UD1$,E,B) 6870 TÅRKØB$=ÅRKØB$ 6880 EXEC TUD(TÅRKØB$,UD2$,E,B) 6890 PRINT TAB(W);STREG$ 6900 PRINT TAB(W);"NAVN OG ADRESSE";TAB(38);"MÅNEDENS KØB ÅRETS KØB H"; 6910 PRINT "KUNDE HPOST" 6920 PRINT " " 6930 PRINT USING "###### ":DEBNR; 6940 PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$; 6950 PRINT USING "###### ######":HKUNDE,HPOST 6960 PRINT TAB(W);DEBGADE$;" " 6970 PRINT USING " ####### ":DEBPOSTNR; 6980 PRINT DEBBY$;TAB(39); 6990 DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48 7000 PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR 7010 PRINT " " 7020 PRINT TAB(W);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE"; 7030 PRINT " ÆLDRE" 7040 PRINT " " 7050 EXEC TUD(DSALDO1$,UD1$,E,B) 7060 EXEC TUD(DSALDO2$,UD2$,E,B) 7070 EXEC TUD(DSALDO3$,UD3$,E,B) 7080 EXEC TUD(DSALDO4$,UD4$,E,B) 7090 PRINT TAB(W);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$ 7100 PRINT " " 7110 ENDIF 7120 IF DPIL3=TIL THEN EXIT 7130 NEXT DPIL3 7140 PRINT " " 7150 IF DPIL3=TIL AND DPIL3<I+4 THEN EXIT 7160 NEXT I 7170 FOR J=DPIL3+E TO I+V 7180 PRINT CHR(10);CHR(10) 7190 PRINT CHR(10);CHR(10) 7200 PRINT CHR(10);CHR(10) 7220 PRINT " " 7230 PRINT " " 7240 NEXT J 7250 OUTPUT T 7260 KONT=B 7270 ENDCASE 7280 ELSE 7290 REPEAT 7300 CURSOR V,23 7310 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 7320 PRINT " tryk RETURN " 7330 INPUT A$ 7340 EXEC NRTEST(A$) 7350 UNTIL P=-E 7360 ENDIF 7370 UNTIL KONT=B 7380 UNTIL TYPE=B 7390 EXEC KPUT 7400 EXEC UDTAB(DTAB,MDANTAL,K2$) 7410 CLOSE K2$ 7420 EXEC FEJL(W,20,K2$) 7430 CLOSE K3$ 7440 EXEC FEJL(W,21,K3$) 7450 T2(V)=B 7460 OPEN K5$,W 7470 EXEC FEJL(W,22,K5$) 7480 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 7490 EXEC FEJL(W,23,K5$) 7500 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 7510 EXEC FEJL(W,24,K5$) 7520 CLOSE K5$ 7530 EXEC FEJL(W,25,K5$) 7540 CHAIN "P641210:OPSTART" 7550 PROC SALDOTEST 7560 EXEC CALC(4,DSALDO1$,TAH$,TAH$) 7570 IF SI=B THEN 7580 EXEC CALC(4,DSALDO2$,TAH$,TAH$) 7590 IF SI=B THEN 7600 EXEC CALC(4,DSALDO3$,TAH$,TAH$) 7610 IF SI=B THEN 7620 EXEC CALC(4,DSALDO4$,TAH$,TAH$) 7630 IF SI<>B THEN TEST=E 7640 ELSE 7650 TEST=E 7660 ENDIF 7670 ELSE 7680 TEST=E 7690 ENDIF 7700 ELSE 7710 TEST=E 7720 ENDIF 7730 ENDPROC
0x0000…0062 (0,) 8db9 0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E),UD2$(14),A$(E)
0x0000…0062 LineComalBin {
0x0000…0062 ptr = 0x8db9 // 0x0 @0x0
0x0000…0062 lno = 0x0064 // 0x2 @0x2
0x0000…0062 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…0062 at0005 = ╱4b╱K╱ // 0x5 @0x5
0x0000…0062 at0006 = ╱31╱1╱ // 0x6 @0x6
0x0000…0062 at0007 = ╱ef╱$╱ // 0x7 @0x7
0x0000…0062 at0008 = ╱ed╱(╱ // 0x8 @0x8
0x0000…0062 at0009 = ╱31╱1╱ // 0x9 @0x9
0x0000…0062 at000a = ╱37╱7╱ // 0xa @0xa
0x0000…0062 at000b = ╱fe00008805╱ // 0xb @0xb
0x0000…0062 at0010 = ╱ee╱)╱ // 0x10 @0x10
0x0000…0062 at0011 = ╱ec╱,╱ // 0x11 @0x11
0x0000…0062 at0012 = ╱4b╱K╱ // 0x12 @0x12
0x0000…0062 at0013 = ╱32╱2╱ // 0x13 @0x13
0x0000…0062 at0014 = ╱ef╱$╱ // 0x14 @0x14
0x0000…0062 at0015 = ╱ed╱(╱ // 0x15 @0x15
0x0000…0062 at0016 = ╱31╱1╱ // 0x16 @0x16
0x0000…0062 at0017 = ╱37╱7╱ // 0x17 @0x17
0x0000…0062 at0018 = ╱fe00008805╱ // 0x18 @0x18
0x0000…0062 at001d = ╱ee╱)╱ // 0x1d @0x1d
0x0000…0062 at001e = ╱ec╱,╱ // 0x1e @0x1e
0x0000…0062 at001f = ╱44╱D╱ // 0x1f @0x1f
0x0000…0062 at0020 = ╱45╱E╱ // 0x20 @0x20
0x0000…0062 at0021 = ╱42╱B╱ // 0x21 @0x21
0x0000…0062 at0022 = ╱4e╱N╱ // 0x22 @0x22
0x0000…0062 at0023 = ╱41╱A╱ // 0x23 @0x23
0x0000…0062 at0024 = ╱56╱V╱ // 0x24 @0x24
0x0000…0062 at0025 = ╱4e╱N╱ // 0x25 @0x25
0x0000…0062 at0026 = ╱ef╱$╱ // 0x26 @0x26
0x0000…0062 at0027 = ╱ed╱(╱ // 0x27 @0x27
0x0000…0062 at0028 = ╱32╱2╱ // 0x28 @0x28
0x0000…0062 at0029 = ╱35╱5╱ // 0x29 @0x29
0x0000…0062 at002a = ╱fe0000c805╱ // 0x2a @0x2a
0x0000…0062 at002f = ╱ee╱)╱ // 0x2f @0x2f
0x0000…0062 at0030 = ╱ec╱,╱ // 0x30 @0x30
0x0000…0062 at0031 = ╱44╱D╱ // 0x31 @0x31
0x0000…0062 at0032 = ╱53╱S╱ // 0x32 @0x32
0x0000…0062 at0033 = ╱41╱A╱ // 0x33 @0x33
0x0000…0062 at0034 = ╱4c╱L╱ // 0x34 @0x34
0x0000…0062 at0035 = ╱44╱D╱ // 0x35 @0x35
0x0000…0062 at0036 = ╱4f╱O╱ // 0x36 @0x36
0x0000…0062 at0037 = ╱31╱1╱ // 0x37 @0x37
0x0000…0062 at0038 = ╱ef╱$╱ // 0x38 @0x38
0x0000…0062 at0039 = ╱ed╱(╱ // 0x39 @0x39
0x0000…0062 at003a = ╱31╱1╱ // 0x3a @0x3a
0x0000…0062 at003b = ╱32╱2╱ // 0x3b @0x3b
0x0000…0062 at003c = ╱fe0000c004╱ // 0x3c @0x3c
0x0000…0062 at0041 = ╱ee╱)╱ // 0x41 @0x41
0x0000…0062 at0042 = ╱ec╱,╱ // 0x42 @0x42
0x0000…0062 at0043 = ╱44╱D╱ // 0x43 @0x43
0x0000…0062 at0044 = ╱45╱E╱ // 0x44 @0x44
0x0000…0062 at0045 = ╱42╱B╱ // 0x45 @0x45
0x0000…0062 at0046 = ╱4b╱K╱ // 0x46 @0x46
0x0000…0062 at0047 = ╱47╱G╱ // 0x47 @0x47
0x0000…0062 at0048 = ╱52╱R╱ // 0x48 @0x48
0x0000…0062 at0049 = ╱ef╱$╱ // 0x49 @0x49
0x0000…0062 at004a = ╱ed╱(╱ // 0x4a @0x4a
0x0000…0062 at004b = ╱45╱E╱ // 0x4b @0x4b
0x0000…0062 at004c = ╱ee╱)╱ // 0x4c @0x4c
0x0000…0062 at004d = ╱ec╱,╱ // 0x4d @0x4d
0x0000…0062 at004e = ╱55╱U╱ // 0x4e @0x4e
0x0000…0062 at004f = ╱44╱D╱ // 0x4f @0x4f
0x0000…0062 at0050 = ╱32╱2╱ // 0x50 @0x50
0x0000…0062 at0051 = ╱ef╱$╱ // 0x51 @0x51
0x0000…0062 at0052 = ╱ed╱(╱ // 0x52 @0x52
0x0000…0062 at0053 = ╱31╱1╱ // 0x53 @0x53
0x0000…0062 at0054 = ╱34╱4╱ // 0x54 @0x54
0x0000…0062 at0055 = ╱fe0000e004╱ // 0x55 @0x55
0x0000…0062 at005a = ╱ee╱)╱ // 0x5a @0x5a
0x0000…0062 at005b = ╱ec╱,╱ // 0x5b @0x5b
0x0000…0062 at005c = ╱41╱A╱ // 0x5c @0x5c
0x0000…0062 at005d = ╱ef╱$╱ // 0x5d @0x5d
0x0000…0062 at005e = ╱ed╱(╱ // 0x5e @0x5e
0x0000…0062 at005f = ╱45╱E╱ // 0x5f @0x5f
0x0000…0062 at0060 = ╱ee╱)╱ // 0x60 @0x60
0x0000…0062 at0061 = EOL // 0x61 @0x61
0x0000…0062 }
0x0062…00c4 8e1b 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25),N$(6)
0x0062…00c4 LineComalBin {
0x0062…00c4 ptr = 0x8e1b // 0x62 @0x0
0x0062…00c4 lno = 0x006e // 0x64 @0x2
0x0062…00c4 at0004 = ╱87╱ DIM ╱ // 0x66 @0x4
0x0062…00c4 at0005 = ╱44╱D╱ // 0x67 @0x5
0x0062…00c4 at0006 = ╱53╱S╱ // 0x68 @0x6
0x0062…00c4 at0007 = ╱41╱A╱ // 0x69 @0x7
0x0062…00c4 at0008 = ╱4c╱L╱ // 0x6a @0x8
0x0062…00c4 at0009 = ╱44╱D╱ // 0x6b @0x9
0x0062…00c4 at000a = ╱4f╱O╱ // 0x6c @0xa
0x0062…00c4 at000b = ╱32╱2╱ // 0x6d @0xb
0x0062…00c4 at000c = ╱ef╱$╱ // 0x6e @0xc
0x0062…00c4 at000d = ╱ed╱(╱ // 0x6f @0xd
0x0062…00c4 at000e = ╱31╱1╱ // 0x70 @0xe
0x0062…00c4 at000f = ╱32╱2╱ // 0x71 @0xf
0x0062…00c4 at0010 = ╱fe0000c004╱ // 0x72 @0x10
0x0062…00c4 at0015 = ╱ee╱)╱ // 0x77 @0x15
0x0062…00c4 at0016 = ╱ec╱,╱ // 0x78 @0x16
0x0062…00c4 at0017 = ╱44╱D╱ // 0x79 @0x17
0x0062…00c4 at0018 = ╱53╱S╱ // 0x7a @0x18
0x0062…00c4 at0019 = ╱41╱A╱ // 0x7b @0x19
0x0062…00c4 at001a = ╱4c╱L╱ // 0x7c @0x1a
0x0062…00c4 at001b = ╱44╱D╱ // 0x7d @0x1b
0x0062…00c4 at001c = ╱4f╱O╱ // 0x7e @0x1c
0x0062…00c4 at001d = ╱33╱3╱ // 0x7f @0x1d
0x0062…00c4 at001e = ╱ef╱$╱ // 0x80 @0x1e
0x0062…00c4 at001f = ╱ed╱(╱ // 0x81 @0x1f
0x0062…00c4 at0020 = ╱31╱1╱ // 0x82 @0x20
0x0062…00c4 at0021 = ╱32╱2╱ // 0x83 @0x21
0x0062…00c4 at0022 = ╱fe0000c004╱ // 0x84 @0x22
0x0062…00c4 at0027 = ╱ee╱)╱ // 0x89 @0x27
0x0062…00c4 at0028 = ╱ec╱,╱ // 0x8a @0x28
0x0062…00c4 at0029 = ╱44╱D╱ // 0x8b @0x29
0x0062…00c4 at002a = ╱53╱S╱ // 0x8c @0x2a
0x0062…00c4 at002b = ╱41╱A╱ // 0x8d @0x2b
0x0062…00c4 at002c = ╱4c╱L╱ // 0x8e @0x2c
0x0062…00c4 at002d = ╱44╱D╱ // 0x8f @0x2d
0x0062…00c4 at002e = ╱4f╱O╱ // 0x90 @0x2e
0x0062…00c4 at002f = ╱34╱4╱ // 0x91 @0x2f
0x0062…00c4 at0030 = ╱ef╱$╱ // 0x92 @0x30
0x0062…00c4 at0031 = ╱ed╱(╱ // 0x93 @0x31
0x0062…00c4 at0032 = ╱31╱1╱ // 0x94 @0x32
0x0062…00c4 at0033 = ╱32╱2╱ // 0x95 @0x33
0x0062…00c4 at0034 = ╱fe0000c004╱ // 0x96 @0x34
0x0062…00c4 at0039 = ╱ee╱)╱ // 0x9b @0x39
0x0062…00c4 at003a = ╱ec╱,╱ // 0x9c @0x3a
0x0062…00c4 at003b = ╱44╱D╱ // 0x9d @0x3b
0x0062…00c4 at003c = ╱45╱E╱ // 0x9e @0x3c
0x0062…00c4 at003d = ╱42╱B╱ // 0x9f @0x3d
0x0062…00c4 at003e = ╱4c╱L╱ // 0xa0 @0x3e
0x0062…00c4 at003f = ╱4b╱K╱ // 0xa1 @0x3f
0x0062…00c4 at0040 = ╱ef╱$╱ // 0xa2 @0x40
0x0062…00c4 at0041 = ╱ed╱(╱ // 0xa3 @0x41
0x0062…00c4 at0042 = ╱45╱E╱ // 0xa4 @0x42
0x0062…00c4 at0043 = ╱ee╱)╱ // 0xa5 @0x43
0x0062…00c4 at0044 = ╱ec╱,╱ // 0xa6 @0x44
0x0062…00c4 at0045 = ╱44╱D╱ // 0xa7 @0x45
0x0062…00c4 at0046 = ╱45╱E╱ // 0xa8 @0x46
0x0062…00c4 at0047 = ╱42╱B╱ // 0xa9 @0x47
0x0062…00c4 at0048 = ╱47╱G╱ // 0xaa @0x48
0x0062…00c4 at0049 = ╱41╱A╱ // 0xab @0x49
0x0062…00c4 at004a = ╱44╱D╱ // 0xac @0x4a
0x0062…00c4 at004b = ╱45╱E╱ // 0xad @0x4b
0x0062…00c4 at004c = ╱ef╱$╱ // 0xae @0x4c
0x0062…00c4 at004d = ╱ed╱(╱ // 0xaf @0x4d
0x0062…00c4 at004e = ╱32╱2╱ // 0xb0 @0x4e
0x0062…00c4 at004f = ╱35╱5╱ // 0xb1 @0x4f
0x0062…00c4 at0050 = ╱fe0000c805╱ // 0xb2 @0x50
0x0062…00c4 at0055 = ╱ee╱)╱ // 0xb7 @0x55
0x0062…00c4 at0056 = ╱ec╱,╱ // 0xb8 @0x56
0x0062…00c4 at0057 = ╱4e╱N╱ // 0xb9 @0x57
0x0062…00c4 at0058 = ╱ef╱$╱ // 0xba @0x58
0x0062…00c4 at0059 = ╱ed╱(╱ // 0xbb @0x59
0x0062…00c4 at005a = ╱36╱6╱ // 0xbc @0x5a
0x0062…00c4 at005b = ╱fe0000c003╱ // 0xbd @0x5b
0x0062…00c4 at0060 = ╱ee╱)╱ // 0xc2 @0x60
0x0062…00c4 at0061 = EOL // 0xc3 @0x61
0x0062…00c4 }
0x00c4…0125 8e7c 0120 DIM T2(W),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),VTAB2(5)
0x00c4…0125 LineComalBin {
0x00c4…0125 ptr = 0x8e7c // 0xc4 @0x0
0x00c4…0125 lno = 0x0078 // 0xc6 @0x2
0x00c4…0125 at0004 = ╱87╱ DIM ╱ // 0xc8 @0x4
0x00c4…0125 at0005 = ╱54╱T╱ // 0xc9 @0x5
0x00c4…0125 at0006 = ╱32╱2╱ // 0xca @0x6
0x00c4…0125 at0007 = ╱ed╱(╱ // 0xcb @0x7
0x00c4…0125 at0008 = ╱57╱W╱ // 0xcc @0x8
0x00c4…0125 at0009 = ╱ee╱)╱ // 0xcd @0x9
0x00c4…0125 at000a = ╱ec╱,╱ // 0xce @0xa
0x00c4…0125 at000b = ╱42╱B╱ // 0xcf @0xb
0x00c4…0125 at000c = ╱4c╱L╱ // 0xd0 @0xc
0x00c4…0125 at000d = ╱41╱A╱ // 0xd1 @0xd
0x00c4…0125 at000e = ╱4e╱N╱ // 0xd2 @0xe
0x00c4…0125 at000f = ╱4b╱K╱ // 0xd3 @0xf
0x00c4…0125 at0010 = ╱ef╱$╱ // 0xd4 @0x10
0x00c4…0125 at0011 = ╱ed╱(╱ // 0xd5 @0x11
0x00c4…0125 at0012 = ╱37╱7╱ // 0xd6 @0x12
0x00c4…0125 at0013 = ╱37╱7╱ // 0xd7 @0x13
0x00c4…0125 at0014 = ╱fe00009a07╱ // 0xd8 @0x14
0x00c4…0125 at0019 = ╱ee╱)╱ // 0xdd @0x19
0x00c4…0125 at001a = ╱ec╱,╱ // 0xde @0x1a
0x00c4…0125 at001b = ╱54╱T╱ // 0xdf @0x1b
0x00c4…0125 at001c = ╱41╱A╱ // 0xe0 @0x1c
0x00c4…0125 at001d = ╱4c╱L╱ // 0xe1 @0x1d
0x00c4…0125 at001e = ╱34╱4╱ // 0xe2 @0x1e
0x00c4…0125 at001f = ╱ef╱$╱ // 0xe3 @0x1f
0x00c4…0125 at0020 = ╱ed╱(╱ // 0xe4 @0x20
0x00c4…0125 at0021 = ╱31╱1╱ // 0xe5 @0x21
0x00c4…0125 at0022 = ╱34╱4╱ // 0xe6 @0x22
0x00c4…0125 at0023 = ╱fe0000e004╱ // 0xe7 @0x23
0x00c4…0125 at0028 = ╱ee╱)╱ // 0xec @0x28
0x00c4…0125 at0029 = ╱ec╱,╱ // 0xed @0x29
0x00c4…0125 at002a = ╱54╱T╱ // 0xee @0x2a
0x00c4…0125 at002b = ╱41╱A╱ // 0xef @0x2b
0x00c4…0125 at002c = ╱48╱H╱ // 0xf0 @0x2c
0x00c4…0125 at002d = ╱ef╱$╱ // 0xf1 @0x2d
0x00c4…0125 at002e = ╱ed╱(╱ // 0xf2 @0x2e
0x00c4…0125 at002f = ╱31╱1╱ // 0xf3 @0x2f
0x00c4…0125 at0030 = ╱32╱2╱ // 0xf4 @0x30
0x00c4…0125 at0031 = ╱fe0000c004╱ // 0xf5 @0x31
0x00c4…0125 at0036 = ╱ee╱)╱ // 0xfa @0x36
0x00c4…0125 at0037 = ╱ec╱,╱ // 0xfb @0x37
0x00c4…0125 at0038 = ╱44╱D╱ // 0xfc @0x38
0x00c4…0125 at0039 = ╱45╱E╱ // 0xfd @0x39
0x00c4…0125 at003a = ╱42╱B╱ // 0xfe @0x3a
0x00c4…0125 at003b = ╱54╱T╱ // 0xff @0x3b
0x00c4…0125 at003c = ╱4c╱L╱ // 0x100 @0x3c
0x00c4…0125 at003d = ╱46╱F╱ // 0x101 @0x3d
0x00c4…0125 at003e = ╱ef╱$╱ // 0x102 @0x3e
0x00c4…0125 at003f = ╱ed╱(╱ // 0x103 @0x3f
0x00c4…0125 at0040 = ╱57╱W╱ // 0x104 @0x40
0x00c4…0125 at0041 = ╱ee╱)╱ // 0x105 @0x41
0x00c4…0125 at0042 = ╱ec╱,╱ // 0x106 @0x42
0x00c4…0125 at0043 = ╱44╱D╱ // 0x107 @0x43
0x00c4…0125 at0044 = ╱45╱E╱ // 0x108 @0x44
0x00c4…0125 at0045 = ╱42╱B╱ // 0x109 @0x45
0x00c4…0125 at0046 = ╱42╱B╱ // 0x10a @0x46
0x00c4…0125 at0047 = ╱59╱Y╱ // 0x10b @0x47
0x00c4…0125 at0048 = ╱ef╱$╱ // 0x10c @0x48
0x00c4…0125 at0049 = ╱ed╱(╱ // 0x10d @0x49
0x00c4…0125 at004a = ╱32╱2╱ // 0x10e @0x4a
0x00c4…0125 at004b = ╱30╱0╱ // 0x10f @0x4b
0x00c4…0125 at004c = ╱fe0000a005╱ // 0x110 @0x4c
0x00c4…0125 at0051 = ╱ee╱)╱ // 0x115 @0x51
0x00c4…0125 at0052 = ╱ec╱,╱ // 0x116 @0x52
0x00c4…0125 at0053 = ╱56╱V╱ // 0x117 @0x53
0x00c4…0125 at0054 = ╱54╱T╱ // 0x118 @0x54
0x00c4…0125 at0055 = ╱41╱A╱ // 0x119 @0x55
0x00c4…0125 at0056 = ╱42╱B╱ // 0x11a @0x56
0x00c4…0125 at0057 = ╱32╱2╱ // 0x11b @0x57
0x00c4…0125 at0058 = ╱ed╱(╱ // 0x11c @0x58
0x00c4…0125 at0059 = ╱35╱5╱ // 0x11d @0x59
0x00c4…0125 at005a = ╱fe0000a003╱ // 0x11e @0x5a
0x00c4…0125 at005f = ╱ee╱)╱ // 0x123 @0x5f
0x00c4…0125 at0060 = EOL // 0x124 @0x60
0x00c4…0125 }
0x0125…0185 8edc 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(V),KG$(V),KTN$(6)
0x0125…0185 LineComalBin {
0x0125…0185 ptr = 0x8edc // 0x125 @0x0
0x0125…0185 lno = 0x0082 // 0x127 @0x2
0x0125…0185 at0004 = ╱87╱ DIM ╱ // 0x129 @0x4
0x0125…0185 at0005 = ╱52╱R╱ // 0x12a @0x5
0x0125…0185 at0006 = ╱45╱E╱ // 0x12b @0x6
0x0125…0185 at0007 = ╱53╱S╱ // 0x12c @0x7
0x0125…0185 at0008 = ╱ef╱$╱ // 0x12d @0x8
0x0125…0185 at0009 = ╱ed╱(╱ // 0x12e @0x9
0x0125…0185 at000a = ╱31╱1╱ // 0x12f @0xa
0x0125…0185 at000b = ╱34╱4╱ // 0x130 @0xb
0x0125…0185 at000c = ╱fe0000e004╱ // 0x131 @0xc
0x0125…0185 at0011 = ╱ee╱)╱ // 0x136 @0x11
0x0125…0185 at0012 = ╱ec╱,╱ // 0x137 @0x12
0x0125…0185 at0013 = ╱5d╱Å╱ // 0x138 @0x13
0x0125…0185 at0014 = ╱52╱R╱ // 0x139 @0x14
0x0125…0185 at0015 = ╱4b╱K╱ // 0x13a @0x15
0x0125…0185 at0016 = ╱5c╱Ø╱ // 0x13b @0x16
0x0125…0185 at0017 = ╱42╱B╱ // 0x13c @0x17
0x0125…0185 at0018 = ╱ef╱$╱ // 0x13d @0x18
0x0125…0185 at0019 = ╱ed╱(╱ // 0x13e @0x19
0x0125…0185 at001a = ╱31╱1╱ // 0x13f @0x1a
0x0125…0185 at001b = ╱32╱2╱ // 0x140 @0x1b
0x0125…0185 at001c = ╱fe0000c004╱ // 0x141 @0x1c
0x0125…0185 at0021 = ╱ee╱)╱ // 0x146 @0x21
0x0125…0185 at0022 = ╱ec╱,╱ // 0x147 @0x22
0x0125…0185 at0023 = ╱4d╱M╱ // 0x148 @0x23
0x0125…0185 at0024 = ╱44╱D╱ // 0x149 @0x24
0x0125…0185 at0025 = ╱4e╱N╱ // 0x14a @0x25
0x0125…0185 at0026 = ╱4b╱K╱ // 0x14b @0x26
0x0125…0185 at0027 = ╱5c╱Ø╱ // 0x14c @0x27
0x0125…0185 at0028 = ╱42╱B╱ // 0x14d @0x28
0x0125…0185 at0029 = ╱ef╱$╱ // 0x14e @0x29
0x0125…0185 at002a = ╱ed╱(╱ // 0x14f @0x2a
0x0125…0185 at002b = ╱31╱1╱ // 0x150 @0x2b
0x0125…0185 at002c = ╱32╱2╱ // 0x151 @0x2c
0x0125…0185 at002d = ╱fe0000c004╱ // 0x152 @0x2d
0x0125…0185 at0032 = ╱ee╱)╱ // 0x157 @0x32
0x0125…0185 at0033 = ╱ec╱,╱ // 0x158 @0x33
0x0125…0185 at0034 = ╱44╱D╱ // 0x159 @0x34
0x0125…0185 at0035 = ╱53╱S╱ // 0x15a @0x35
0x0125…0185 at0036 = ╱41╱A╱ // 0x15b @0x36
0x0125…0185 at0037 = ╱4c╱L╱ // 0x15c @0x37
0x0125…0185 at0038 = ╱44╱D╱ // 0x15d @0x38
0x0125…0185 at0039 = ╱49╱I╱ // 0x15e @0x39
0x0125…0185 at003a = ╱ef╱$╱ // 0x15f @0x3a
0x0125…0185 at003b = ╱ed╱(╱ // 0x160 @0x3b
0x0125…0185 at003c = ╱31╱1╱ // 0x161 @0x3c
0x0125…0185 at003d = ╱32╱2╱ // 0x162 @0x3d
0x0125…0185 at003e = ╱fe0000c004╱ // 0x163 @0x3e
0x0125…0185 at0043 = ╱ee╱)╱ // 0x168 @0x43
0x0125…0185 at0044 = ╱ec╱,╱ // 0x169 @0x44
0x0125…0185 at0045 = ╱4c╱L╱ // 0x16a @0x45
0x0125…0185 at0046 = ╱4b╱K╱ // 0x16b @0x46
0x0125…0185 at0047 = ╱ef╱$╱ // 0x16c @0x47
0x0125…0185 at0048 = ╱ed╱(╱ // 0x16d @0x48
0x0125…0185 at0049 = ╱56╱V╱ // 0x16e @0x49
0x0125…0185 at004a = ╱ee╱)╱ // 0x16f @0x4a
0x0125…0185 at004b = ╱ec╱,╱ // 0x170 @0x4b
0x0125…0185 at004c = ╱4b╱K╱ // 0x171 @0x4c
0x0125…0185 at004d = ╱47╱G╱ // 0x172 @0x4d
0x0125…0185 at004e = ╱ef╱$╱ // 0x173 @0x4e
0x0125…0185 at004f = ╱ed╱(╱ // 0x174 @0x4f
0x0125…0185 at0050 = ╱56╱V╱ // 0x175 @0x50
0x0125…0185 at0051 = ╱ee╱)╱ // 0x176 @0x51
0x0125…0185 at0052 = ╱ec╱,╱ // 0x177 @0x52
0x0125…0185 at0053 = ╱4b╱K╱ // 0x178 @0x53
0x0125…0185 at0054 = ╱54╱T╱ // 0x179 @0x54
0x0125…0185 at0055 = ╱4e╱N╱ // 0x17a @0x55
0x0125…0185 at0056 = ╱ef╱$╱ // 0x17b @0x56
0x0125…0185 at0057 = ╱ed╱(╱ // 0x17c @0x57
0x0125…0185 at0058 = ╱36╱6╱ // 0x17d @0x58
0x0125…0185 at0059 = ╱fe0000c003╱ // 0x17e @0x59
0x0125…0185 at005e = ╱ee╱)╱ // 0x183 @0x5e
0x0125…0185 at005f = EOL // 0x184 @0x5f
0x0125…0185 }
0x0185…01f2 8f49 0140 DIM PNR$(6),TY$(E),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8)
0x0185…01f2 LineComalBin {
0x0185…01f2 ptr = 0x8f49 // 0x185 @0x0
0x0185…01f2 lno = 0x008c // 0x187 @0x2
0x0185…01f2 at0004 = ╱87╱ DIM ╱ // 0x189 @0x4
0x0185…01f2 at0005 = ╱50╱P╱ // 0x18a @0x5
0x0185…01f2 at0006 = ╱4e╱N╱ // 0x18b @0x6
0x0185…01f2 at0007 = ╱52╱R╱ // 0x18c @0x7
0x0185…01f2 at0008 = ╱ef╱$╱ // 0x18d @0x8
0x0185…01f2 at0009 = ╱ed╱(╱ // 0x18e @0x9
0x0185…01f2 at000a = ╱36╱6╱ // 0x18f @0xa
0x0185…01f2 at000b = ╱fe0000c003╱ // 0x190 @0xb
0x0185…01f2 at0010 = ╱ee╱)╱ // 0x195 @0x10
0x0185…01f2 at0011 = ╱ec╱,╱ // 0x196 @0x11
0x0185…01f2 at0012 = ╱54╱T╱ // 0x197 @0x12
0x0185…01f2 at0013 = ╱59╱Y╱ // 0x198 @0x13
0x0185…01f2 at0014 = ╱ef╱$╱ // 0x199 @0x14
0x0185…01f2 at0015 = ╱ed╱(╱ // 0x19a @0x15
0x0185…01f2 at0016 = ╱45╱E╱ // 0x19b @0x16
0x0185…01f2 at0017 = ╱ee╱)╱ // 0x19c @0x17
0x0185…01f2 at0018 = ╱ec╱,╱ // 0x19d @0x18
0x0185…01f2 at0019 = ╱4f╱O╱ // 0x19e @0x19
0x0185…01f2 at001a = ╱50╱P╱ // 0x19f @0x1a
0x0185…01f2 at001b = ╱31╱1╱ // 0x1a0 @0x1b
0x0185…01f2 at001c = ╱ef╱$╱ // 0x1a1 @0x1c
0x0185…01f2 at001d = ╱ed╱(╱ // 0x1a2 @0x1d
0x0185…01f2 at001e = ╱31╱1╱ // 0x1a3 @0x1e
0x0185…01f2 at001f = ╱32╱2╱ // 0x1a4 @0x1f
0x0185…01f2 at0020 = ╱fe0000c004╱ // 0x1a5 @0x20
0x0185…01f2 at0025 = ╱ee╱)╱ // 0x1aa @0x25
0x0185…01f2 at0026 = ╱ec╱,╱ // 0x1ab @0x26
0x0185…01f2 at0027 = ╱4f╱O╱ // 0x1ac @0x27
0x0185…01f2 at0028 = ╱50╱P╱ // 0x1ad @0x28
0x0185…01f2 at0029 = ╱32╱2╱ // 0x1ae @0x29
0x0185…01f2 at002a = ╱ef╱$╱ // 0x1af @0x2a
0x0185…01f2 at002b = ╱ed╱(╱ // 0x1b0 @0x2b
0x0185…01f2 at002c = ╱31╱1╱ // 0x1b1 @0x2c
0x0185…01f2 at002d = ╱32╱2╱ // 0x1b2 @0x2d
0x0185…01f2 at002e = ╱fe0000c004╱ // 0x1b3 @0x2e
0x0185…01f2 at0033 = ╱ee╱)╱ // 0x1b8 @0x33
0x0185…01f2 at0034 = ╱ec╱,╱ // 0x1b9 @0x34
0x0185…01f2 at0035 = ╱54╱T╱ // 0x1ba @0x35
0x0185…01f2 at0036 = ╱41╱A╱ // 0x1bb @0x36
0x0185…01f2 at0037 = ╱ef╱$╱ // 0x1bc @0x37
0x0185…01f2 at0038 = ╱ed╱(╱ // 0x1bd @0x38
0x0185…01f2 at0039 = ╱31╱1╱ // 0x1be @0x39
0x0185…01f2 at003a = ╱32╱2╱ // 0x1bf @0x3a
0x0185…01f2 at003b = ╱fe0000c004╱ // 0x1c0 @0x3b
0x0185…01f2 at0040 = ╱ee╱)╱ // 0x1c5 @0x40
0x0185…01f2 at0041 = ╱ec╱,╱ // 0x1c6 @0x41
0x0185…01f2 at0042 = ╱54╱T╱ // 0x1c7 @0x42
0x0185…01f2 at0043 = ╱42╱B╱ // 0x1c8 @0x43
0x0185…01f2 at0044 = ╱ef╱$╱ // 0x1c9 @0x44
0x0185…01f2 at0045 = ╱ed╱(╱ // 0x1ca @0x45
0x0185…01f2 at0046 = ╱31╱1╱ // 0x1cb @0x46
0x0185…01f2 at0047 = ╱34╱4╱ // 0x1cc @0x47
0x0185…01f2 at0048 = ╱fe0000e004╱ // 0x1cd @0x48
0x0185…01f2 at004d = ╱ee╱)╱ // 0x1d2 @0x4d
0x0185…01f2 at004e = ╱ec╱,╱ // 0x1d3 @0x4e
0x0185…01f2 at004f = ╱54╱T╱ // 0x1d4 @0x4f
0x0185…01f2 at0050 = ╱5d╱Å╱ // 0x1d5 @0x50
0x0185…01f2 at0051 = ╱52╱R╱ // 0x1d6 @0x51
0x0185…01f2 at0052 = ╱4b╱K╱ // 0x1d7 @0x52
0x0185…01f2 at0053 = ╱5c╱Ø╱ // 0x1d8 @0x53
0x0185…01f2 at0054 = ╱42╱B╱ // 0x1d9 @0x54
0x0185…01f2 at0055 = ╱ef╱$╱ // 0x1da @0x55
0x0185…01f2 at0056 = ╱ed╱(╱ // 0x1db @0x56
0x0185…01f2 at0057 = ╱31╱1╱ // 0x1dc @0x57
0x0185…01f2 at0058 = ╱32╱2╱ // 0x1dd @0x58
0x0185…01f2 at0059 = ╱fe0000c004╱ // 0x1de @0x59
0x0185…01f2 at005e = ╱ee╱)╱ // 0x1e3 @0x5e
0x0185…01f2 at005f = ╱ec╱,╱ // 0x1e4 @0x5f
0x0185…01f2 at0060 = ╱44╱D╱ // 0x1e5 @0x60
0x0185…01f2 at0061 = ╱41╱A╱ // 0x1e6 @0x61
0x0185…01f2 at0062 = ╱54╱T╱ // 0x1e7 @0x62
0x0185…01f2 at0063 = ╱ef╱$╱ // 0x1e8 @0x63
0x0185…01f2 at0064 = ╱ed╱(╱ // 0x1e9 @0x64
0x0185…01f2 at0065 = ╱38╱8╱ // 0x1ea @0x65
0x0185…01f2 at0066 = ╱fe00008004╱ // 0x1eb @0x66
0x0185…01f2 at006b = ╱ee╱)╱ // 0x1f0 @0x6b
0x0185…01f2 at006c = EOL // 0x1f1 @0x6c
0x0185…01f2 }
0x01f2…0253 8faa 0150 DIM DEBGADE1$(25),DEBTLF1$(W),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71)
0x01f2…0253 LineComalBin {
0x01f2…0253 ptr = 0x8faa // 0x1f2 @0x0
0x01f2…0253 lno = 0x0096 // 0x1f4 @0x2
0x01f2…0253 at0004 = ╱87╱ DIM ╱ // 0x1f6 @0x4
0x01f2…0253 at0005 = ╱44╱D╱ // 0x1f7 @0x5
0x01f2…0253 at0006 = ╱45╱E╱ // 0x1f8 @0x6
0x01f2…0253 at0007 = ╱42╱B╱ // 0x1f9 @0x7
0x01f2…0253 at0008 = ╱47╱G╱ // 0x1fa @0x8
0x01f2…0253 at0009 = ╱41╱A╱ // 0x1fb @0x9
0x01f2…0253 at000a = ╱44╱D╱ // 0x1fc @0xa
0x01f2…0253 at000b = ╱45╱E╱ // 0x1fd @0xb
0x01f2…0253 at000c = ╱31╱1╱ // 0x1fe @0xc
0x01f2…0253 at000d = ╱ef╱$╱ // 0x1ff @0xd
0x01f2…0253 at000e = ╱ed╱(╱ // 0x200 @0xe
0x01f2…0253 at000f = ╱32╱2╱ // 0x201 @0xf
0x01f2…0253 at0010 = ╱35╱5╱ // 0x202 @0x10
0x01f2…0253 at0011 = ╱fe0000c805╱ // 0x203 @0x11
0x01f2…0253 at0016 = ╱ee╱)╱ // 0x208 @0x16
0x01f2…0253 at0017 = ╱ec╱,╱ // 0x209 @0x17
0x01f2…0253 at0018 = ╱44╱D╱ // 0x20a @0x18
0x01f2…0253 at0019 = ╱45╱E╱ // 0x20b @0x19
0x01f2…0253 at001a = ╱42╱B╱ // 0x20c @0x1a
0x01f2…0253 at001b = ╱54╱T╱ // 0x20d @0x1b
0x01f2…0253 at001c = ╱4c╱L╱ // 0x20e @0x1c
0x01f2…0253 at001d = ╱46╱F╱ // 0x20f @0x1d
0x01f2…0253 at001e = ╱31╱1╱ // 0x210 @0x1e
0x01f2…0253 at001f = ╱ef╱$╱ // 0x211 @0x1f
0x01f2…0253 at0020 = ╱ed╱(╱ // 0x212 @0x20
0x01f2…0253 at0021 = ╱57╱W╱ // 0x213 @0x21
0x01f2…0253 at0022 = ╱ee╱)╱ // 0x214 @0x22
0x01f2…0253 at0023 = ╱ec╱,╱ // 0x215 @0x23
0x01f2…0253 at0024 = ╱42╱B╱ // 0x216 @0x24
0x01f2…0253 at0025 = ╱4c╱L╱ // 0x217 @0x25
0x01f2…0253 at0026 = ╱42╱B╱ // 0x218 @0x26
0x01f2…0253 at0027 = ╱32╱2╱ // 0x219 @0x27
0x01f2…0253 at0028 = ╱ef╱$╱ // 0x21a @0x28
0x01f2…0253 at0029 = ╱ed╱(╱ // 0x21b @0x29
0x01f2…0253 at002a = ╱31╱1╱ // 0x21c @0x2a
0x01f2…0253 at002b = ╱32╱2╱ // 0x21d @0x2b
0x01f2…0253 at002c = ╱fe0000c004╱ // 0x21e @0x2c
0x01f2…0253 at0031 = ╱ee╱)╱ // 0x223 @0x31
0x01f2…0253 at0032 = ╱ec╱,╱ // 0x224 @0x32
0x01f2…0253 at0033 = ╱55╱U╱ // 0x225 @0x33
0x01f2…0253 at0034 = ╱42╱B╱ // 0x226 @0x34
0x01f2…0253 at0035 = ╱4c╱L╱ // 0x227 @0x35
0x01f2…0253 at0036 = ╱42╱B╱ // 0x228 @0x36
0x01f2…0253 at0037 = ╱32╱2╱ // 0x229 @0x37
0x01f2…0253 at0038 = ╱ef╱$╱ // 0x22a @0x38
0x01f2…0253 at0039 = ╱ed╱(╱ // 0x22b @0x39
0x01f2…0253 at003a = ╱31╱1╱ // 0x22c @0x3a
0x01f2…0253 at003b = ╱34╱4╱ // 0x22d @0x3b
0x01f2…0253 at003c = ╱fe0000e004╱ // 0x22e @0x3c
0x01f2…0253 at0041 = ╱ee╱)╱ // 0x233 @0x41
0x01f2…0253 at0042 = ╱ec╱,╱ // 0x234 @0x42
0x01f2…0253 at0043 = ╱55╱U╱ // 0x235 @0x43
0x01f2…0253 at0044 = ╱44╱D╱ // 0x236 @0x44
0x01f2…0253 at0045 = ╱31╱1╱ // 0x237 @0x45
0x01f2…0253 at0046 = ╱ef╱$╱ // 0x238 @0x46
0x01f2…0253 at0047 = ╱ed╱(╱ // 0x239 @0x47
0x01f2…0253 at0048 = ╱31╱1╱ // 0x23a @0x48
0x01f2…0253 at0049 = ╱34╱4╱ // 0x23b @0x49
0x01f2…0253 at004a = ╱fe0000e004╱ // 0x23c @0x4a
0x01f2…0253 at004f = ╱ee╱)╱ // 0x241 @0x4f
0x01f2…0253 at0050 = ╱ec╱,╱ // 0x242 @0x50
0x01f2…0253 at0051 = ╱53╱S╱ // 0x243 @0x51
0x01f2…0253 at0052 = ╱54╱T╱ // 0x244 @0x52
0x01f2…0253 at0053 = ╱52╱R╱ // 0x245 @0x53
0x01f2…0253 at0054 = ╱45╱E╱ // 0x246 @0x54
0x01f2…0253 at0055 = ╱47╱G╱ // 0x247 @0x55
0x01f2…0253 at0056 = ╱ef╱$╱ // 0x248 @0x56
0x01f2…0253 at0057 = ╱ed╱(╱ // 0x249 @0x57
0x01f2…0253 at0058 = ╱37╱7╱ // 0x24a @0x58
0x01f2…0253 at0059 = ╱31╱1╱ // 0x24b @0x59
0x01f2…0253 at005a = ╱fe00008e07╱ // 0x24c @0x5a
0x01f2…0253 at005f = ╱ee╱)╱ // 0x251 @0x5f
0x01f2…0253 at0060 = EOL // 0x252 @0x60
0x01f2…0253 }
0x0253…02bf 9016 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12)
0x0253…02bf LineComalBin {
0x0253…02bf ptr = 0x9016 // 0x253 @0x0
0x0253…02bf lno = 0x00a0 // 0x255 @0x2
0x0253…02bf at0004 = ╱87╱ DIM ╱ // 0x257 @0x4
0x0253…02bf at0005 = ╱55╱U╱ // 0x258 @0x5
0x0253…02bf at0006 = ╱44╱D╱ // 0x259 @0x6
0x0253…02bf at0007 = ╱33╱3╱ // 0x25a @0x7
0x0253…02bf at0008 = ╱ef╱$╱ // 0x25b @0x8
0x0253…02bf at0009 = ╱ed╱(╱ // 0x25c @0x9
0x0253…02bf at000a = ╱31╱1╱ // 0x25d @0xa
0x0253…02bf at000b = ╱34╱4╱ // 0x25e @0xb
0x0253…02bf at000c = ╱fe0000e004╱ // 0x25f @0xc
0x0253…02bf at0011 = ╱ee╱)╱ // 0x264 @0x11
0x0253…02bf at0012 = ╱ec╱,╱ // 0x265 @0x12
0x0253…02bf at0013 = ╱55╱U╱ // 0x266 @0x13
0x0253…02bf at0014 = ╱44╱D╱ // 0x267 @0x14
0x0253…02bf at0015 = ╱34╱4╱ // 0x268 @0x15
0x0253…02bf at0016 = ╱ef╱$╱ // 0x269 @0x16
0x0253…02bf at0017 = ╱ed╱(╱ // 0x26a @0x17
0x0253…02bf at0018 = ╱31╱1╱ // 0x26b @0x18
0x0253…02bf at0019 = ╱34╱4╱ // 0x26c @0x19
0x0253…02bf at001a = ╱fe0000e004╱ // 0x26d @0x1a
0x0253…02bf at001f = ╱ee╱)╱ // 0x272 @0x1f
0x0253…02bf at0020 = ╱ec╱,╱ // 0x273 @0x20
0x0253…02bf at0021 = ╱4b╱K╱ // 0x274 @0x21
0x0253…02bf at0022 = ╱33╱3╱ // 0x275 @0x22
0x0253…02bf at0023 = ╱ef╱$╱ // 0x276 @0x23
0x0253…02bf at0024 = ╱ed╱(╱ // 0x277 @0x24
0x0253…02bf at0025 = ╱31╱1╱ // 0x278 @0x25
0x0253…02bf at0026 = ╱37╱7╱ // 0x279 @0x26
0x0253…02bf at0027 = ╱fe00008805╱ // 0x27a @0x27
0x0253…02bf at002c = ╱ee╱)╱ // 0x27f @0x2c
0x0253…02bf at002d = ╱ec╱,╱ // 0x280 @0x2d
0x0253…02bf at002e = ╱4b╱K╱ // 0x281 @0x2e
0x0253…02bf at002f = ╱34╱4╱ // 0x282 @0x2f
0x0253…02bf at0030 = ╱ef╱$╱ // 0x283 @0x30
0x0253…02bf at0031 = ╱ed╱(╱ // 0x284 @0x31
0x0253…02bf at0032 = ╱31╱1╱ // 0x285 @0x32
0x0253…02bf at0033 = ╱37╱7╱ // 0x286 @0x33
0x0253…02bf at0034 = ╱fe00008805╱ // 0x287 @0x34
0x0253…02bf at0039 = ╱ee╱)╱ // 0x28c @0x39
0x0253…02bf at003a = ╱ec╱,╱ // 0x28d @0x3a
0x0253…02bf at003b = ╱4b╱K╱ // 0x28e @0x3b
0x0253…02bf at003c = ╱35╱5╱ // 0x28f @0x3c
0x0253…02bf at003d = ╱ef╱$╱ // 0x290 @0x3d
0x0253…02bf at003e = ╱ed╱(╱ // 0x291 @0x3e
0x0253…02bf at003f = ╱31╱1╱ // 0x292 @0x3f
0x0253…02bf at0040 = ╱37╱7╱ // 0x293 @0x40
0x0253…02bf at0041 = ╱fe00008805╱ // 0x294 @0x41
0x0253…02bf at0046 = ╱ee╱)╱ // 0x299 @0x46
0x0253…02bf at0047 = ╱ec╱,╱ // 0x29a @0x47
0x0253…02bf at0048 = ╱4b╱K╱ // 0x29b @0x48
0x0253…02bf at0049 = ╱36╱6╱ // 0x29c @0x49
0x0253…02bf at004a = ╱ef╱$╱ // 0x29d @0x4a
0x0253…02bf at004b = ╱ed╱(╱ // 0x29e @0x4b
0x0253…02bf at004c = ╱31╱1╱ // 0x29f @0x4c
0x0253…02bf at004d = ╱37╱7╱ // 0x2a0 @0x4d
0x0253…02bf at004e = ╱fe00008805╱ // 0x2a1 @0x4e
0x0253…02bf at0053 = ╱ee╱)╱ // 0x2a6 @0x53
0x0253…02bf at0054 = ╱ec╱,╱ // 0x2a7 @0x54
0x0253…02bf at0055 = ╱54╱T╱ // 0x2a8 @0x55
0x0253…02bf at0056 = ╱31╱1╱ // 0x2a9 @0x56
0x0253…02bf at0057 = ╱ed╱(╱ // 0x2aa @0x57
0x0253…02bf at0058 = ╱57╱W╱ // 0x2ab @0x58
0x0253…02bf at0059 = ╱ee╱)╱ // 0x2ac @0x59
0x0253…02bf at005a = ╱ec╱,╱ // 0x2ad @0x5a
0x0253…02bf at005b = ╱4c╱L╱ // 0x2ae @0x5b
0x0253…02bf at005c = ╱41╱A╱ // 0x2af @0x5c
0x0253…02bf at005d = ╱4e╱N╱ // 0x2b0 @0x5d
0x0253…02bf at005e = ╱44╱D╱ // 0x2b1 @0x5e
0x0253…02bf at005f = ╱ef╱$╱ // 0x2b2 @0x5f
0x0253…02bf at0060 = ╱ed╱(╱ // 0x2b3 @0x60
0x0253…02bf at0061 = ╱57╱W╱ // 0x2b4 @0x61
0x0253…02bf at0062 = ╱ec╱,╱ // 0x2b5 @0x62
0x0253…02bf at0063 = ╱31╱1╱ // 0x2b6 @0x63
0x0253…02bf at0064 = ╱32╱2╱ // 0x2b7 @0x64
0x0253…02bf at0065 = ╱fe0000c004╱ // 0x2b8 @0x65
0x0253…02bf at006a = ╱ee╱)╱ // 0x2bd @0x6a
0x0253…02bf at006b = EOL // 0x2be @0x6b
0x0253…02bf }
0x02bf…02d1 9028 0165 DIM DV$(10)
0x02bf…02d1 LineComalBin {
0x02bf…02d1 ptr = 0x9028 // 0x2bf @0x0
0x02bf…02d1 lno = 0x00a5 // 0x2c1 @0x2
0x02bf…02d1 at0004 = ╱87╱ DIM ╱ // 0x2c3 @0x4
0x02bf…02d1 at0005 = ╱44╱D╱ // 0x2c4 @0x5
0x02bf…02d1 at0006 = ╱56╱V╱ // 0x2c5 @0x6
0x02bf…02d1 at0007 = ╱ef╱$╱ // 0x2c6 @0x7
0x02bf…02d1 at0008 = ╱ed╱(╱ // 0x2c7 @0x8
0x02bf…02d1 at0009 = ╱31╱1╱ // 0x2c8 @0x9
0x02bf…02d1 at000a = ╱30╱0╱ // 0x2c9 @0xa
0x02bf…02d1 at000b = ╱fe0000a004╱ // 0x2ca @0xb
0x02bf…02d1 at0010 = ╱ee╱)╱ // 0x2cf @0x10
0x02bf…02d1 at0011 = EOL // 0x2d0 @0x11
0x02bf…02d1 }
0x02d1…02e9 9040 0170 PROC CALC(ART,B1,B2,ES)
0x02d1…02e9 LineComalBin {
0x02d1…02e9 ptr = 0x9040 // 0x2d1 @0x0
0x02d1…02e9 lno = 0x00aa // 0x2d3 @0x2
0x02d1…02e9 at0004 = ╱9e╱ PROC ╱ // 0x2d5 @0x4
0x02d1…02e9 at0005 = ╱43╱C╱ // 0x2d6 @0x5
0x02d1…02e9 at0006 = ╱41╱A╱ // 0x2d7 @0x6
0x02d1…02e9 at0007 = ╱4c╱L╱ // 0x2d8 @0x7
0x02d1…02e9 at0008 = ╱43╱C╱ // 0x2d9 @0x8
0x02d1…02e9 at0009 = ╱ed╱(╱ // 0x2da @0x9
0x02d1…02e9 at000a = ╱41╱A╱ // 0x2db @0xa
0x02d1…02e9 at000b = ╱52╱R╱ // 0x2dc @0xb
0x02d1…02e9 at000c = ╱54╱T╱ // 0x2dd @0xc
0x02d1…02e9 at000d = ╱ec╱,╱ // 0x2de @0xd
0x02d1…02e9 at000e = ╱42╱B╱ // 0x2df @0xe
0x02d1…02e9 at000f = ╱31╱1╱ // 0x2e0 @0xf
0x02d1…02e9 at0010 = ╱ec╱,╱ // 0x2e1 @0x10
0x02d1…02e9 at0011 = ╱42╱B╱ // 0x2e2 @0x11
0x02d1…02e9 at0012 = ╱32╱2╱ // 0x2e3 @0x12
0x02d1…02e9 at0013 = ╱ec╱,╱ // 0x2e4 @0x13
0x02d1…02e9 at0014 = ╱45╱E╱ // 0x2e5 @0x14
0x02d1…02e9 at0015 = ╱53╱S╱ // 0x2e6 @0x15
0x02d1…02e9 at0016 = ╱ee╱)╱ // 0x2e7 @0x16
0x02d1…02e9 at0017 = EOL // 0x2e8 @0x17
0x02d1…02e9 }
0x02e9…0314 906b 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B
0x02e9…0314 LineComalBin {
0x02e9…0314 ptr = 0x906b // 0x2e9 @0x0
0x02e9…0314 lno = 0x00b4 // 0x2eb @0x2
0x02e9…0314 at0004 = ╱4f╱O╱ // 0x2ed @0x4
0x02e9…0314 at0005 = ╱50╱P╱ // 0x2ee @0x5
0x02e9…0314 at0006 = ╱31╱1╱ // 0x2ef @0x6
0x02e9…0314 at0007 = ╱ef╱$╱ // 0x2f0 @0x7
0x02e9…0314 at0008 = ╱dc╱=╱ // 0x2f1 @0x8
0x02e9…0314 at0009 = ╱42╱B╱ // 0x2f2 @0x9
0x02e9…0314 at000a = ╱31╱1╱ // 0x2f3 @0xa
0x02e9…0314 at000b = ╱ef╱$╱ // 0x2f4 @0xb
0x02e9…0314 at000c = ╱eb╱;╱ // 0x2f5 @0xc
0x02e9…0314 at000d = ╱4f╱O╱ // 0x2f6 @0xd
0x02e9…0314 at000e = ╱50╱P╱ // 0x2f7 @0xe
0x02e9…0314 at000f = ╱32╱2╱ // 0x2f8 @0xf
0x02e9…0314 at0010 = ╱ef╱$╱ // 0x2f9 @0x10
0x02e9…0314 at0011 = ╱dc╱=╱ // 0x2fa @0x11
0x02e9…0314 at0012 = ╱42╱B╱ // 0x2fb @0x12
0x02e9…0314 at0013 = ╱32╱2╱ // 0x2fc @0x13
0x02e9…0314 at0014 = ╱ef╱$╱ // 0x2fd @0x14
0x02e9…0314 at0015 = ╱eb╱;╱ // 0x2fe @0x15
0x02e9…0314 at0016 = ╱52╱R╱ // 0x2ff @0x16
0x02e9…0314 at0017 = ╱45╱E╱ // 0x300 @0x17
0x02e9…0314 at0018 = ╱53╱S╱ // 0x301 @0x18
0x02e9…0314 at0019 = ╱ef╱$╱ // 0x302 @0x19
0x02e9…0314 at001a = ╱dc╱=╱ // 0x303 @0x1a
0x02e9…0314 at001b = ╱45╱E╱ // 0x304 @0x1b
0x02e9…0314 at001c = ╱53╱S╱ // 0x305 @0x1c
0x02e9…0314 at001d = ╱ef╱$╱ // 0x306 @0x1d
0x02e9…0314 at001e = ╱eb╱;╱ // 0x307 @0x1e
0x02e9…0314 at001f = ╱53╱S╱ // 0x308 @0x1f
0x02e9…0314 at0020 = ╱49╱I╱ // 0x309 @0x20
0x02e9…0314 at0021 = ╱dc╱=╱ // 0x30a @0x21
0x02e9…0314 at0022 = ╱42╱B╱ // 0x30b @0x22
0x02e9…0314 at0023 = ╱eb╱;╱ // 0x30c @0x23
0x02e9…0314 at0024 = ╱46╱F╱ // 0x30d @0x24
0x02e9…0314 at0025 = ╱4c╱L╱ // 0x30e @0x25
0x02e9…0314 at0026 = ╱41╱A╱ // 0x30f @0x26
0x02e9…0314 at0027 = ╱47╱G╱ // 0x310 @0x27
0x02e9…0314 at0028 = ╱dc╱=╱ // 0x311 @0x28
0x02e9…0314 at0029 = ╱42╱B╱ // 0x312 @0x29
0x02e9…0314 at002a = EOL // 0x313 @0x2a
0x02e9…0314 }
0x0314…032a 9081 0190 CALL "P641210:REGN"
0x0314…032a LineComalBin {
0x0314…032a ptr = 0x9081 // 0x314 @0x0
0x0314…032a lno = 0x00be // 0x316 @0x2
0x0314…032a at0004 = ╱adff00╱ CALL ╱ // 0x318 @0x4
0x0314…032a at0007 = ╱22╱"╱ // 0x31b @0x7
0x0314…032a at0008 = ╱50╱P╱ // 0x31c @0x8
0x0314…032a at0009 = ╱36╱6╱ // 0x31d @0x9
0x0314…032a at000a = ╱34╱4╱ // 0x31e @0xa
0x0314…032a at000b = ╱31╱1╱ // 0x31f @0xb
0x0314…032a at000c = ╱32╱2╱ // 0x320 @0xc
0x0314…032a at000d = ╱31╱1╱ // 0x321 @0xd
0x0314…032a at000e = ╱30╱0╱ // 0x322 @0xe
0x0314…032a at000f = ╱3a╱:╱ // 0x323 @0xf
0x0314…032a at0010 = ╱52╱R╱ // 0x324 @0x10
0x0314…032a at0011 = ╱45╱E╱ // 0x325 @0x11
0x0314…032a at0012 = ╱47╱G╱ // 0x326 @0x12
0x0314…032a at0013 = ╱4e╱N╱ // 0x327 @0x13
0x0314…032a at0014 = ╱22╱"╱ // 0x328 @0x14
0x0314…032a at0015 = EOL // 0x329 @0x15
0x0314…032a }
0x032a…0337 908e 0200 ES$=RES$
0x032a…0337 LineComalBin {
0x032a…0337 ptr = 0x908e // 0x32a @0x0
0x032a…0337 lno = 0x00c8 // 0x32c @0x2
0x032a…0337 at0004 = ╱45╱E╱ // 0x32e @0x4
0x032a…0337 at0005 = ╱53╱S╱ // 0x32f @0x5
0x032a…0337 at0006 = ╱ef╱$╱ // 0x330 @0x6
0x032a…0337 at0007 = ╱dc╱=╱ // 0x331 @0x7
0x032a…0337 at0008 = ╱52╱R╱ // 0x332 @0x8
0x032a…0337 at0009 = ╱45╱E╱ // 0x333 @0x9
0x032a…0337 at000a = ╱53╱S╱ // 0x334 @0xa
0x032a…0337 at000b = ╱ef╱$╱ // 0x335 @0xb
0x032a…0337 at000c = EOL // 0x336 @0xc
0x032a…0337 }
0x0337…0343 909a 0210 IF FLAG THEN STOP
0x0337…0343 LineComalBin {
0x0337…0343 ptr = 0x909a // 0x337 @0x0
0x0337…0343 lno = 0x00d2 // 0x339 @0x2
0x0337…0343 at0004 = ╱82╱ IF ╱ // 0x33b @0x4
0x0337…0343 at0005 = ╱46╱F╱ // 0x33c @0x5
0x0337…0343 at0006 = ╱4c╱L╱ // 0x33d @0x6
0x0337…0343 at0007 = ╱41╱A╱ // 0x33e @0x7
0x0337…0343 at0008 = ╱47╱G╱ // 0x33f @0x8
0x0337…0343 at0009 = ╱b6╱ THEN ╱ // 0x340 @0x9
0x0337…0343 at000a = ╱8d╱ STOP ╱ // 0x341 @0xa
0x0337…0343 at000b = EOL // 0x342 @0xb
0x0337…0343 }
0x0343…0349 90a0 0220 ENDPROC
0x0343…0349 LineComalBin {
0x0343…0349 ptr = 0x90a0 // 0x343 @0x0
0x0343…0349 lno = 0x00dc // 0x345 @0x2
0x0343…0349 at0004 = ╱9f╱ ENDPROC ╱ // 0x347 @0x4
0x0343…0349 at0005 = EOL // 0x348 @0x5
0x0343…0349 }
0x0349…0360 90b7 0230 PROC FEJL(NR1,NR2,NR3)
0x0349…0360 LineComalBin {
0x0349…0360 ptr = 0x90b7 // 0x349 @0x0
0x0349…0360 lno = 0x00e6 // 0x34b @0x2
0x0349…0360 at0004 = ╱9e╱ PROC ╱ // 0x34d @0x4
0x0349…0360 at0005 = ╱46╱F╱ // 0x34e @0x5
0x0349…0360 at0006 = ╱45╱E╱ // 0x34f @0x6
0x0349…0360 at0007 = ╱4a╱J╱ // 0x350 @0x7
0x0349…0360 at0008 = ╱4c╱L╱ // 0x351 @0x8
0x0349…0360 at0009 = ╱ed╱(╱ // 0x352 @0x9
0x0349…0360 at000a = ╱4e╱N╱ // 0x353 @0xa
0x0349…0360 at000b = ╱52╱R╱ // 0x354 @0xb
0x0349…0360 at000c = ╱31╱1╱ // 0x355 @0xc
0x0349…0360 at000d = ╱ec╱,╱ // 0x356 @0xd
0x0349…0360 at000e = ╱4e╱N╱ // 0x357 @0xe
0x0349…0360 at000f = ╱52╱R╱ // 0x358 @0xf
0x0349…0360 at0010 = ╱32╱2╱ // 0x359 @0x10
0x0349…0360 at0011 = ╱ec╱,╱ // 0x35a @0x11
0x0349…0360 at0012 = ╱4e╱N╱ // 0x35b @0x12
0x0349…0360 at0013 = ╱52╱R╱ // 0x35c @0x13
0x0349…0360 at0014 = ╱33╱3╱ // 0x35d @0x14
0x0349…0360 at0015 = ╱ee╱)╱ // 0x35e @0x15
0x0349…0360 at0016 = EOL // 0x35f @0x16
0x0349…0360 }
0x0360…0370 90c7 0240 IF STATUS(NR3$)<>B THEN
0x0360…0370 LineComalBin {
0x0360…0370 ptr = 0x90c7 // 0x360 @0x0
0x0360…0370 lno = 0x00f0 // 0x362 @0x2
0x0360…0370 at0004 = ╱9c╱ IF ╱ // 0x364 @0x4
0x0360…0370 at0005 = ╱ce╱STATUS╱ // 0x365 @0x5
0x0360…0370 at0006 = ╱ed╱(╱ // 0x366 @0x6
0x0360…0370 at0007 = ╱4e╱N╱ // 0x367 @0x7
0x0360…0370 at0008 = ╱52╱R╱ // 0x368 @0x8
0x0360…0370 at0009 = ╱33╱3╱ // 0x369 @0x9
0x0360…0370 at000a = ╱ef╱$╱ // 0x36a @0xa
0x0360…0370 at000b = ╱ee╱)╱ // 0x36b @0xb
0x0360…0370 at000c = ╱e1╱<>╱ // 0x36c @0xc
0x0360…0370 at000d = ╱42╱B╱ // 0x36d @0xd
0x0360…0370 at000e = ╱b6╱ THEN ╱ // 0x36e @0xe
0x0360…0370 at000f = EOL // 0x36f @0xf
0x0360…0370 }
0x0370…038a 90e1 0250 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x0370…038a LineComalBin {
0x0370…038a ptr = 0x90e1 // 0x370 @0x0
0x0370…038a lno = 0x00fa // 0x372 @0x2
0x0370…038a at0004 = ╱92╱ PRINT ╱ // 0x374 @0x4
0x0370…038a at0005 = ╱ce╱STATUS╱ // 0x375 @0x5
0x0370…038a at0006 = ╱ed╱(╱ // 0x376 @0x6
0x0370…038a at0007 = ╱4e╱N╱ // 0x377 @0x7
0x0370…038a at0008 = ╱52╱R╱ // 0x378 @0x8
0x0370…038a at0009 = ╱33╱3╱ // 0x379 @0x9
0x0370…038a at000a = ╱ef╱$╱ // 0x37a @0xa
0x0370…038a at000b = ╱ee╱)╱ // 0x37b @0xb
0x0370…038a at000c = ╱ec╱,╱ // 0x37c @0xc
0x0370…038a at000d = ╱4e╱N╱ // 0x37d @0xd
0x0370…038a at000e = ╱52╱R╱ // 0x37e @0xe
0x0370…038a at000f = ╱31╱1╱ // 0x37f @0xf
0x0370…038a at0010 = ╱ec╱,╱ // 0x380 @0x10
0x0370…038a at0011 = ╱4e╱N╱ // 0x381 @0x11
0x0370…038a at0012 = ╱52╱R╱ // 0x382 @0x12
0x0370…038a at0013 = ╱32╱2╱ // 0x383 @0x13
0x0370…038a at0014 = ╱ec╱,╱ // 0x384 @0x14
0x0370…038a at0015 = ╱4e╱N╱ // 0x385 @0x15
0x0370…038a at0016 = ╱52╱R╱ // 0x386 @0x16
0x0370…038a at0017 = ╱33╱3╱ // 0x387 @0x17
0x0370…038a at0018 = ╱ef╱$╱ // 0x388 @0x18
0x0370…038a at0019 = EOL // 0x389 @0x19
0x0370…038a }
0x038a…0390 90e7 0260 STOP
0x038a…0390 LineComalBin {
0x038a…0390 ptr = 0x90e7 // 0x38a @0x0
0x038a…0390 lno = 0x0104 // 0x38c @0x2
0x038a…0390 at0004 = ╱8d╱ STOP ╱ // 0x38e @0x4
0x038a…0390 at0005 = EOL // 0x38f @0x5
0x038a…0390 }
0x0390…0396 90ed 0270 ENDIF
0x0390…0396 LineComalBin {
0x0390…0396 ptr = 0x90ed // 0x390 @0x0
0x0390…0396 lno = 0x010e // 0x392 @0x2
0x0390…0396 at0004 = ╱9b╱ ENDIF ╱ // 0x394 @0x4
0x0390…0396 at0005 = EOL // 0x395 @0x5
0x0390…0396 }
0x0396…039c 90f3 0280 ENDPROC
0x0396…039c LineComalBin {
0x0396…039c ptr = 0x90f3 // 0x396 @0x0
0x0396…039c lno = 0x0118 // 0x398 @0x2
0x0396…039c at0004 = ╱9f╱ ENDPROC ╱ // 0x39a @0x4
0x0396…039c at0005 = EOL // 0x39b @0x5
0x0396…039c }
0x039c…03b6 (12,) 910d 0290 PROC INDTAB(T,MANTAL,K10)
0x039c…03b6 LineComalBin {
0x039c…03b6 ptr = 0x910d // 0x39c @0x0
0x039c…03b6 lno = 0x0122 // 0x39e @0x2
0x039c…03b6 at0004 = ╱9e╱ PROC ╱ // 0x3a0 @0x4
0x039c…03b6 at0005 = ╱49╱I╱ // 0x3a1 @0x5
0x039c…03b6 at0006 = ╱4e╱N╱ // 0x3a2 @0x6
0x039c…03b6 at0007 = ╱44╱D╱ // 0x3a3 @0x7
0x039c…03b6 at0008 = ╱54╱T╱ // 0x3a4 @0x8
0x039c…03b6 at0009 = ╱41╱A╱ // 0x3a5 @0x9
0x039c…03b6 at000a = ╱42╱B╱ // 0x3a6 @0xa
0x039c…03b6 at000b = ╱ed╱(╱ // 0x3a7 @0xb
0x039c…03b6 at000c = ╱54╱T╱ // 0x3a8 @0xc
0x039c…03b6 at000d = ╱ec╱,╱ // 0x3a9 @0xd
0x039c…03b6 at000e = ╱4d╱M╱ // 0x3aa @0xe
0x039c…03b6 at000f = ╱41╱A╱ // 0x3ab @0xf
0x039c…03b6 at0010 = ╱4e╱N╱ // 0x3ac @0x10
0x039c…03b6 at0011 = ╱54╱T╱ // 0x3ad @0x11
0x039c…03b6 at0012 = ╱41╱A╱ // 0x3ae @0x12
0x039c…03b6 at0013 = ╱4c╱L╱ // 0x3af @0x13
0x039c…03b6 at0014 = ╱ec╱,╱ // 0x3b0 @0x14
0x039c…03b6 at0015 = ╱4b╱K╱ // 0x3b1 @0x15
0x039c…03b6 at0016 = ╱31╱1╱ // 0x3b2 @0x16
0x039c…03b6 at0017 = ╱30╱0╱ // 0x3b3 @0x17
0x039c…03b6 at0018 = ╱ee╱)╱ // 0x3b4 @0x18
0x039c…03b6 at0019 = EOL // 0x3b5 @0x19
0x039c…03b6 }
0x03b6…03cd 9124 0300 J=MANTAL DIV 32+E
0x03b6…03cd LineComalBin {
0x03b6…03cd ptr = 0x9124 // 0x3b6 @0x0
0x03b6…03cd lno = 0x012c // 0x3b8 @0x2
0x03b6…03cd at0004 = ╱4a╱J╱ // 0x3ba @0x4
0x03b6…03cd at0005 = ╱dc╱=╱ // 0x3bb @0x5
0x03b6…03cd at0006 = ╱4d╱M╱ // 0x3bc @0x6
0x03b6…03cd at0007 = ╱41╱A╱ // 0x3bd @0x7
0x03b6…03cd at0008 = ╱4e╱N╱ // 0x3be @0x8
0x03b6…03cd at0009 = ╱54╱T╱ // 0x3bf @0x9
0x03b6…03cd at000a = ╱41╱A╱ // 0x3c0 @0xa
0x03b6…03cd at000b = ╱4c╱L╱ // 0x3c1 @0xb
0x03b6…03cd at000c = ╱e7╱ DIV ╱ // 0x3c2 @0xc
0x03b6…03cd at000d = ╱33╱3╱ // 0x3c3 @0xd
0x03b6…03cd at000e = ╱32╱2╱ // 0x3c4 @0xe
0x03b6…03cd at000f = ╱fe00008006╱ // 0x3c5 @0xf
0x03b6…03cd at0014 = ╱e2╱+╱ // 0x3ca @0x14
0x03b6…03cd at0015 = ╱45╱E╱ // 0x3cb @0x15
0x03b6…03cd at0016 = EOL // 0x3cc @0x16
0x03b6…03cd }
0x03cd…03e8 913f 0310 FOR I=J TO MANTAL DIV 4+J-E
0x03cd…03e8 LineComalBin {
0x03cd…03e8 ptr = 0x913f // 0x3cd @0x0
0x03cd…03e8 lno = 0x0136 // 0x3cf @0x2
0x03cd…03e8 at0004 = ╱83╱ FOR ╱ // 0x3d1 @0x4
0x03cd…03e8 at0005 = ╱49╱I╱ // 0x3d2 @0x5
0x03cd…03e8 at0006 = ╱dc╱=╱ // 0x3d3 @0x6
0x03cd…03e8 at0007 = ╱4a╱J╱ // 0x3d4 @0x7
0x03cd…03e8 at0008 = ╱b7╱ TO ╱ // 0x3d5 @0x8
0x03cd…03e8 at0009 = ╱4d╱M╱ // 0x3d6 @0x9
0x03cd…03e8 at000a = ╱41╱A╱ // 0x3d7 @0xa
0x03cd…03e8 at000b = ╱4e╱N╱ // 0x3d8 @0xb
0x03cd…03e8 at000c = ╱54╱T╱ // 0x3d9 @0xc
0x03cd…03e8 at000d = ╱41╱A╱ // 0x3da @0xd
0x03cd…03e8 at000e = ╱4c╱L╱ // 0x3db @0xe
0x03cd…03e8 at000f = ╱e7╱ DIV ╱ // 0x3dc @0xf
0x03cd…03e8 at0010 = ╱34╱4╱ // 0x3dd @0x10
0x03cd…03e8 at0011 = ╱fe00008003╱ // 0x3de @0x11
0x03cd…03e8 at0016 = ╱e2╱+╱ // 0x3e3 @0x16
0x03cd…03e8 at0017 = ╱4a╱J╱ // 0x3e4 @0x17
0x03cd…03e8 at0018 = ╱e3╱-╱ // 0x3e5 @0x18
0x03cd…03e8 at0019 = ╱45╱E╱ // 0x3e6 @0x19
0x03cd…03e8 at001a = EOL // 0x3e7 @0x1a
0x03cd…03e8 }
0x03e8…0412 9169 0320 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V
0x03e8…0412 LineComalBin {
0x03e8…0412 ptr = 0x9169 // 0x3e8 @0x0
0x03e8…0412 lno = 0x0140 // 0x3ea @0x2
0x03e8…0412 at0004 = ╱48╱H╱ // 0x3ec @0x4
0x03e8…0412 at0005 = ╱dc╱=╱ // 0x3ed @0x5
0x03e8…0412 at0006 = ╱ed╱(╱ // 0x3ee @0x6
0x03e8…0412 at0007 = ╱49╱I╱ // 0x3ef @0x7
0x03e8…0412 at0008 = ╱e3╱-╱ // 0x3f0 @0x8
0x03e8…0412 at0009 = ╱4a╱J╱ // 0x3f1 @0x9
0x03e8…0412 at000a = ╱ee╱)╱ // 0x3f2 @0xa
0x03e8…0412 at000b = ╱e4╱*╱ // 0x3f3 @0xb
0x03e8…0412 at000c = ╱34╱4╱ // 0x3f4 @0xc
0x03e8…0412 at000d = ╱fe00008003╱ // 0x3f5 @0xd
0x03e8…0412 at0012 = ╱e2╱+╱ // 0x3fa @0x12
0x03e8…0412 at0013 = ╱45╱E╱ // 0x3fb @0x13
0x03e8…0412 at0014 = ╱eb╱;╱ // 0x3fc @0x14
0x03e8…0412 at0015 = ╱4a╱J╱ // 0x3fd @0x15
0x03e8…0412 at0016 = ╱32╱2╱ // 0x3fe @0x16
0x03e8…0412 at0017 = ╱dc╱=╱ // 0x3ff @0x17
0x03e8…0412 at0018 = ╱48╱H╱ // 0x400 @0x18
0x03e8…0412 at0019 = ╱e2╱+╱ // 0x401 @0x19
0x03e8…0412 at001a = ╱45╱E╱ // 0x402 @0x1a
0x03e8…0412 at001b = ╱eb╱;╱ // 0x403 @0x1b
0x03e8…0412 at001c = ╱4a╱J╱ // 0x404 @0x1c
0x03e8…0412 at001d = ╱33╱3╱ // 0x405 @0x1d
0x03e8…0412 at001e = ╱dc╱=╱ // 0x406 @0x1e
0x03e8…0412 at001f = ╱48╱H╱ // 0x407 @0x1f
0x03e8…0412 at0020 = ╱e2╱+╱ // 0x408 @0x20
0x03e8…0412 at0021 = ╱47╱G╱ // 0x409 @0x21
0x03e8…0412 at0022 = ╱eb╱;╱ // 0x40a @0x22
0x03e8…0412 at0023 = ╱4a╱J╱ // 0x40b @0x23
0x03e8…0412 at0024 = ╱34╱4╱ // 0x40c @0x24
0x03e8…0412 at0025 = ╱dc╱=╱ // 0x40d @0x25
0x03e8…0412 at0026 = ╱48╱H╱ // 0x40e @0x26
0x03e8…0412 at0027 = ╱e2╱+╱ // 0x40f @0x27
0x03e8…0412 at0028 = ╱56╱V╱ // 0x410 @0x28
0x03e8…0412 at0029 = EOL // 0x411 @0x29
0x03e8…0412 }
0x0412…045c 91b3 0330 GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G)
0x0412…045c LineComalBin {
0x0412…045c ptr = 0x91b3 // 0x412 @0x0
0x0412…045c lno = 0x014a // 0x414 @0x2
0x0412…045c at0004 = ╱a9╱ GET ╱ // 0x416 @0x4
0x0412…045c at0005 = ╱4b╱K╱ // 0x417 @0x5
0x0412…045c at0006 = ╱31╱1╱ // 0x418 @0x6
0x0412…045c at0007 = ╱30╱0╱ // 0x419 @0x7
0x0412…045c at0008 = ╱ef╱$╱ // 0x41a @0x8
0x0412…045c at0009 = ╱ec╱,╱ // 0x41b @0x9
0x0412…045c at000a = ╱49╱I╱ // 0x41c @0xa
0x0412…045c at000b = ╱f0╱:╱ // 0x41d @0xb
0x0412…045c at000c = ╱54╱T╱ // 0x41e @0xc
0x0412…045c at000d = ╱ed╱(╱ // 0x41f @0xd
0x0412…045c at000e = ╱48╱H╱ // 0x420 @0xe
0x0412…045c at000f = ╱ec╱,╱ // 0x421 @0xf
0x0412…045c at0010 = ╱45╱E╱ // 0x422 @0x10
0x0412…045c at0011 = ╱ee╱)╱ // 0x423 @0x11
0x0412…045c at0012 = ╱ec╱,╱ // 0x424 @0x12
0x0412…045c at0013 = ╱54╱T╱ // 0x425 @0x13
0x0412…045c at0014 = ╱ed╱(╱ // 0x426 @0x14
0x0412…045c at0015 = ╱48╱H╱ // 0x427 @0x15
0x0412…045c at0016 = ╱ec╱,╱ // 0x428 @0x16
0x0412…045c at0017 = ╱47╱G╱ // 0x429 @0x17
0x0412…045c at0018 = ╱ee╱)╱ // 0x42a @0x18
0x0412…045c at0019 = ╱ec╱,╱ // 0x42b @0x19
0x0412…045c at001a = ╱54╱T╱ // 0x42c @0x1a
0x0412…045c at001b = ╱ed╱(╱ // 0x42d @0x1b
0x0412…045c at001c = ╱4a╱J╱ // 0x42e @0x1c
0x0412…045c at001d = ╱32╱2╱ // 0x42f @0x1d
0x0412…045c at001e = ╱ec╱,╱ // 0x430 @0x1e
0x0412…045c at001f = ╱45╱E╱ // 0x431 @0x1f
0x0412…045c at0020 = ╱ee╱)╱ // 0x432 @0x20
0x0412…045c at0021 = ╱ec╱,╱ // 0x433 @0x21
0x0412…045c at0022 = ╱54╱T╱ // 0x434 @0x22
0x0412…045c at0023 = ╱ed╱(╱ // 0x435 @0x23
0x0412…045c at0024 = ╱4a╱J╱ // 0x436 @0x24
0x0412…045c at0025 = ╱32╱2╱ // 0x437 @0x25
0x0412…045c at0026 = ╱ec╱,╱ // 0x438 @0x26
0x0412…045c at0027 = ╱47╱G╱ // 0x439 @0x27
0x0412…045c at0028 = ╱ee╱)╱ // 0x43a @0x28
0x0412…045c at0029 = ╱ec╱,╱ // 0x43b @0x29
0x0412…045c at002a = ╱54╱T╱ // 0x43c @0x2a
0x0412…045c at002b = ╱ed╱(╱ // 0x43d @0x2b
0x0412…045c at002c = ╱4a╱J╱ // 0x43e @0x2c
0x0412…045c at002d = ╱33╱3╱ // 0x43f @0x2d
0x0412…045c at002e = ╱ec╱,╱ // 0x440 @0x2e
0x0412…045c at002f = ╱45╱E╱ // 0x441 @0x2f
0x0412…045c at0030 = ╱ee╱)╱ // 0x442 @0x30
0x0412…045c at0031 = ╱ec╱,╱ // 0x443 @0x31
0x0412…045c at0032 = ╱54╱T╱ // 0x444 @0x32
0x0412…045c at0033 = ╱ed╱(╱ // 0x445 @0x33
0x0412…045c at0034 = ╱4a╱J╱ // 0x446 @0x34
0x0412…045c at0035 = ╱33╱3╱ // 0x447 @0x35
0x0412…045c at0036 = ╱ec╱,╱ // 0x448 @0x36
0x0412…045c at0037 = ╱47╱G╱ // 0x449 @0x37
0x0412…045c at0038 = ╱ee╱)╱ // 0x44a @0x38
0x0412…045c at0039 = ╱ec╱,╱ // 0x44b @0x39
0x0412…045c at003a = ╱54╱T╱ // 0x44c @0x3a
0x0412…045c at003b = ╱ed╱(╱ // 0x44d @0x3b
0x0412…045c at003c = ╱4a╱J╱ // 0x44e @0x3c
0x0412…045c at003d = ╱34╱4╱ // 0x44f @0x3d
0x0412…045c at003e = ╱ec╱,╱ // 0x450 @0x3e
0x0412…045c at003f = ╱45╱E╱ // 0x451 @0x3f
0x0412…045c at0040 = ╱ee╱)╱ // 0x452 @0x40
0x0412…045c at0041 = ╱ec╱,╱ // 0x453 @0x41
0x0412…045c at0042 = ╱54╱T╱ // 0x454 @0x42
0x0412…045c at0043 = ╱ed╱(╱ // 0x455 @0x43
0x0412…045c at0044 = ╱4a╱J╱ // 0x456 @0x44
0x0412…045c at0045 = ╱34╱4╱ // 0x457 @0x45
0x0412…045c at0046 = ╱ec╱,╱ // 0x458 @0x46
0x0412…045c at0047 = ╱47╱G╱ // 0x459 @0x47
0x0412…045c at0048 = ╱ee╱)╱ // 0x45a @0x48
0x0412…045c at0049 = EOL // 0x45b @0x49
0x0412…045c }
0x045c…0470 91c7 0340 EXEC FEJL(E,E,K10$)
0x045c…0470 LineComalBin {
0x045c…0470 ptr = 0x91c7 // 0x45c @0x0
0x045c…0470 lno = 0x0154 // 0x45e @0x2
0x045c…0470 at0004 = ╱9d╱ EXEC ╱ // 0x460 @0x4
0x045c…0470 at0005 = ╱46╱F╱ // 0x461 @0x5
0x045c…0470 at0006 = ╱45╱E╱ // 0x462 @0x6
0x045c…0470 at0007 = ╱4a╱J╱ // 0x463 @0x7
0x045c…0470 at0008 = ╱4c╱L╱ // 0x464 @0x8
0x045c…0470 at0009 = ╱ed╱(╱ // 0x465 @0x9
0x045c…0470 at000a = ╱45╱E╱ // 0x466 @0xa
0x045c…0470 at000b = ╱ec╱,╱ // 0x467 @0xb
0x045c…0470 at000c = ╱45╱E╱ // 0x468 @0xc
0x045c…0470 at000d = ╱ec╱,╱ // 0x469 @0xd
0x045c…0470 at000e = ╱4b╱K╱ // 0x46a @0xe
0x045c…0470 at000f = ╱31╱1╱ // 0x46b @0xf
0x045c…0470 at0010 = ╱30╱0╱ // 0x46c @0x10
0x045c…0470 at0011 = ╱ef╱$╱ // 0x46d @0x11
0x045c…0470 at0012 = ╱ee╱)╱ // 0x46e @0x12
0x045c…0470 at0013 = EOL // 0x46f @0x13
0x045c…0470 }
0x0470…0477 91ce 0350 NEXT I
0x0470…0477 LineComalBin {
0x0470…0477 ptr = 0x91ce // 0x470 @0x0
0x0470…0477 lno = 0x015e // 0x472 @0x2
0x0470…0477 at0004 = ╱84╱ NEXT ╱ // 0x474 @0x4
0x0470…0477 at0005 = ╱49╱I╱ // 0x475 @0x5
0x0470…0477 at0006 = EOL // 0x476 @0x6
0x0470…0477 }
0x0477…047d 91d4 0360 ENDPROC
0x0477…047d LineComalBin {
0x0477…047d ptr = 0x91d4 // 0x477 @0x0
0x0477…047d lno = 0x0168 // 0x479 @0x2
0x0477…047d at0004 = ╱9f╱ ENDPROC ╱ // 0x47b @0x4
0x0477…047d at0005 = EOL // 0x47c @0x5
0x0477…047d }
0x047d…0496 91ed 0370 PROC UDTAB(U,MANTAL1,K9)
0x047d…0496 LineComalBin {
0x047d…0496 ptr = 0x91ed // 0x47d @0x0
0x047d…0496 lno = 0x0172 // 0x47f @0x2
0x047d…0496 at0004 = ╱9e╱ PROC ╱ // 0x481 @0x4
0x047d…0496 at0005 = ╱55╱U╱ // 0x482 @0x5
0x047d…0496 at0006 = ╱44╱D╱ // 0x483 @0x6
0x047d…0496 at0007 = ╱54╱T╱ // 0x484 @0x7
0x047d…0496 at0008 = ╱41╱A╱ // 0x485 @0x8
0x047d…0496 at0009 = ╱42╱B╱ // 0x486 @0x9
0x047d…0496 at000a = ╱ed╱(╱ // 0x487 @0xa
0x047d…0496 at000b = ╱55╱U╱ // 0x488 @0xb
0x047d…0496 at000c = ╱ec╱,╱ // 0x489 @0xc
0x047d…0496 at000d = ╱4d╱M╱ // 0x48a @0xd
0x047d…0496 at000e = ╱41╱A╱ // 0x48b @0xe
0x047d…0496 at000f = ╱4e╱N╱ // 0x48c @0xf
0x047d…0496 at0010 = ╱54╱T╱ // 0x48d @0x10
0x047d…0496 at0011 = ╱41╱A╱ // 0x48e @0x11
0x047d…0496 at0012 = ╱4c╱L╱ // 0x48f @0x12
0x047d…0496 at0013 = ╱31╱1╱ // 0x490 @0x13
0x047d…0496 at0014 = ╱ec╱,╱ // 0x491 @0x14
0x047d…0496 at0015 = ╱4b╱K╱ // 0x492 @0x15
0x047d…0496 at0016 = ╱39╱9╱ // 0x493 @0x16
0x047d…0496 at0017 = ╱ee╱)╱ // 0x494 @0x17
0x047d…0496 at0018 = EOL // 0x495 @0x18
0x047d…0496 }
0x0496…04ae 9205 0380 J=MANTAL1 DIV 32+E
0x0496…04ae LineComalBin {
0x0496…04ae ptr = 0x9205 // 0x496 @0x0
0x0496…04ae lno = 0x017c // 0x498 @0x2
0x0496…04ae at0004 = ╱4a╱J╱ // 0x49a @0x4
0x0496…04ae at0005 = ╱dc╱=╱ // 0x49b @0x5
0x0496…04ae at0006 = ╱4d╱M╱ // 0x49c @0x6
0x0496…04ae at0007 = ╱41╱A╱ // 0x49d @0x7
0x0496…04ae at0008 = ╱4e╱N╱ // 0x49e @0x8
0x0496…04ae at0009 = ╱54╱T╱ // 0x49f @0x9
0x0496…04ae at000a = ╱41╱A╱ // 0x4a0 @0xa
0x0496…04ae at000b = ╱4c╱L╱ // 0x4a1 @0xb
0x0496…04ae at000c = ╱31╱1╱ // 0x4a2 @0xc
0x0496…04ae at000d = ╱e7╱ DIV ╱ // 0x4a3 @0xd
0x0496…04ae at000e = ╱33╱3╱ // 0x4a4 @0xe
0x0496…04ae at000f = ╱32╱2╱ // 0x4a5 @0xf
0x0496…04ae at0010 = ╱fe00008006╱ // 0x4a6 @0x10
0x0496…04ae at0015 = ╱e2╱+╱ // 0x4ab @0x15
0x0496…04ae at0016 = ╱45╱E╱ // 0x4ac @0x16
0x0496…04ae at0017 = EOL // 0x4ad @0x17
0x0496…04ae }
0x04ae…04bb 9212 0390 FOR I=E TO J-E
0x04ae…04bb LineComalBin {
0x04ae…04bb ptr = 0x9212 // 0x4ae @0x0
0x04ae…04bb lno = 0x0186 // 0x4b0 @0x2
0x04ae…04bb at0004 = ╱83╱ FOR ╱ // 0x4b2 @0x4
0x04ae…04bb at0005 = ╱49╱I╱ // 0x4b3 @0x5
0x04ae…04bb at0006 = ╱dc╱=╱ // 0x4b4 @0x6
0x04ae…04bb at0007 = ╱45╱E╱ // 0x4b5 @0x7
0x04ae…04bb at0008 = ╱b7╱ TO ╱ // 0x4b6 @0x8
0x04ae…04bb at0009 = ╱4a╱J╱ // 0x4b7 @0x9
0x04ae…04bb at000a = ╱e3╱-╱ // 0x4b8 @0xa
0x04ae…04bb at000b = ╱45╱E╱ // 0x4b9 @0xb
0x04ae…04bb at000c = EOL // 0x4ba @0xc
0x04ae…04bb }
0x04bb…052a 9281 0400 H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28
0x04bb…052a LineComalBin {
0x04bb…052a ptr = 0x9281 // 0x4bb @0x0
0x04bb…052a lno = 0x0190 // 0x4bd @0x2
0x04bb…052a at0004 = ╱48╱H╱ // 0x4bf @0x4
0x04bb…052a at0005 = ╱dc╱=╱ // 0x4c0 @0x5
0x04bb…052a at0006 = ╱ed╱(╱ // 0x4c1 @0x6
0x04bb…052a at0007 = ╱49╱I╱ // 0x4c2 @0x7
0x04bb…052a at0008 = ╱e3╱-╱ // 0x4c3 @0x8
0x04bb…052a at0009 = ╱45╱E╱ // 0x4c4 @0x9
0x04bb…052a at000a = ╱ee╱)╱ // 0x4c5 @0xa
0x04bb…052a at000b = ╱e4╱*╱ // 0x4c6 @0xb
0x04bb…052a at000c = ╱33╱3╱ // 0x4c7 @0xc
0x04bb…052a at000d = ╱32╱2╱ // 0x4c8 @0xd
0x04bb…052a at000e = ╱fe00008006╱ // 0x4c9 @0xe
0x04bb…052a at0013 = ╱e2╱+╱ // 0x4ce @0x13
0x04bb…052a at0014 = ╱45╱E╱ // 0x4cf @0x14
0x04bb…052a at0015 = ╱eb╱;╱ // 0x4d0 @0x15
0x04bb…052a at0016 = ╱4a╱J╱ // 0x4d1 @0x16
0x04bb…052a at0017 = ╱31╱1╱ // 0x4d2 @0x17
0x04bb…052a at0018 = ╱dc╱=╱ // 0x4d3 @0x18
0x04bb…052a at0019 = ╱48╱H╱ // 0x4d4 @0x19
0x04bb…052a at001a = ╱e2╱+╱ // 0x4d5 @0x1a
0x04bb…052a at001b = ╱34╱4╱ // 0x4d6 @0x1b
0x04bb…052a at001c = ╱fe00008003╱ // 0x4d7 @0x1c
0x04bb…052a at0021 = ╱eb╱;╱ // 0x4dc @0x21
0x04bb…052a at0022 = ╱4a╱J╱ // 0x4dd @0x22
0x04bb…052a at0023 = ╱32╱2╱ // 0x4de @0x23
0x04bb…052a at0024 = ╱dc╱=╱ // 0x4df @0x24
0x04bb…052a at0025 = ╱48╱H╱ // 0x4e0 @0x25
0x04bb…052a at0026 = ╱e2╱+╱ // 0x4e1 @0x26
0x04bb…052a at0027 = ╱38╱8╱ // 0x4e2 @0x27
0x04bb…052a at0028 = ╱fe00008004╱ // 0x4e3 @0x28
0x04bb…052a at002d = ╱eb╱;╱ // 0x4e8 @0x2d
0x04bb…052a at002e = ╱4a╱J╱ // 0x4e9 @0x2e
0x04bb…052a at002f = ╱33╱3╱ // 0x4ea @0x2f
0x04bb…052a at0030 = ╱dc╱=╱ // 0x4eb @0x30
0x04bb…052a at0031 = ╱48╱H╱ // 0x4ec @0x31
0x04bb…052a at0032 = ╱e2╱+╱ // 0x4ed @0x32
0x04bb…052a at0033 = ╱31╱1╱ // 0x4ee @0x33
0x04bb…052a at0034 = ╱32╱2╱ // 0x4ef @0x34
0x04bb…052a at0035 = ╱fe0000c004╱ // 0x4f0 @0x35
0x04bb…052a at003a = ╱eb╱;╱ // 0x4f5 @0x3a
0x04bb…052a at003b = ╱4a╱J╱ // 0x4f6 @0x3b
0x04bb…052a at003c = ╱34╱4╱ // 0x4f7 @0x3c
0x04bb…052a at003d = ╱dc╱=╱ // 0x4f8 @0x3d
0x04bb…052a at003e = ╱48╱H╱ // 0x4f9 @0x3e
0x04bb…052a at003f = ╱e2╱+╱ // 0x4fa @0x3f
0x04bb…052a at0040 = ╱31╱1╱ // 0x4fb @0x40
0x04bb…052a at0041 = ╱36╱6╱ // 0x4fc @0x41
0x04bb…052a at0042 = ╱fe00008005╱ // 0x4fd @0x42
0x04bb…052a at0047 = ╱eb╱;╱ // 0x502 @0x47
0x04bb…052a at0048 = ╱4a╱J╱ // 0x503 @0x48
0x04bb…052a at0049 = ╱35╱5╱ // 0x504 @0x49
0x04bb…052a at004a = ╱dc╱=╱ // 0x505 @0x4a
0x04bb…052a at004b = ╱48╱H╱ // 0x506 @0x4b
0x04bb…052a at004c = ╱e2╱+╱ // 0x507 @0x4c
0x04bb…052a at004d = ╱32╱2╱ // 0x508 @0x4d
0x04bb…052a at004e = ╱30╱0╱ // 0x509 @0x4e
0x04bb…052a at004f = ╱fe0000a005╱ // 0x50a @0x4f
0x04bb…052a at0054 = ╱eb╱;╱ // 0x50f @0x54
0x04bb…052a at0055 = ╱4a╱J╱ // 0x510 @0x55
0x04bb…052a at0056 = ╱36╱6╱ // 0x511 @0x56
0x04bb…052a at0057 = ╱dc╱=╱ // 0x512 @0x57
0x04bb…052a at0058 = ╱48╱H╱ // 0x513 @0x58
0x04bb…052a at0059 = ╱e2╱+╱ // 0x514 @0x59
0x04bb…052a at005a = ╱32╱2╱ // 0x515 @0x5a
0x04bb…052a at005b = ╱34╱4╱ // 0x516 @0x5b
0x04bb…052a at005c = ╱fe0000c005╱ // 0x517 @0x5c
0x04bb…052a at0061 = ╱eb╱;╱ // 0x51c @0x61
0x04bb…052a at0062 = ╱4a╱J╱ // 0x51d @0x62
0x04bb…052a at0063 = ╱37╱7╱ // 0x51e @0x63
0x04bb…052a at0064 = ╱dc╱=╱ // 0x51f @0x64
0x04bb…052a at0065 = ╱48╱H╱ // 0x520 @0x65
0x04bb…052a at0066 = ╱e2╱+╱ // 0x521 @0x66
0x04bb…052a at0067 = ╱32╱2╱ // 0x522 @0x67
0x04bb…052a at0068 = ╱38╱8╱ // 0x523 @0x68
0x04bb…052a at0069 = ╱fe0000e005╱ // 0x524 @0x69
0x04bb…052a at006e = EOL // 0x529 @0x6e
0x04bb…052a }
0x052a…0574 92cb 0410 PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E)
0x052a…0574 LineComalBin {
0x052a…0574 ptr = 0x92cb // 0x52a @0x0
0x052a…0574 lno = 0x019a // 0x52c @0x2
0x052a…0574 at0004 = ╱aa╱ PUT ╱ // 0x52e @0x4
0x052a…0574 at0005 = ╱4b╱K╱ // 0x52f @0x5
0x052a…0574 at0006 = ╱39╱9╱ // 0x530 @0x6
0x052a…0574 at0007 = ╱ef╱$╱ // 0x531 @0x7
0x052a…0574 at0008 = ╱ec╱,╱ // 0x532 @0x8
0x052a…0574 at0009 = ╱49╱I╱ // 0x533 @0x9
0x052a…0574 at000a = ╱f0╱:╱ // 0x534 @0xa
0x052a…0574 at000b = ╱55╱U╱ // 0x535 @0xb
0x052a…0574 at000c = ╱ed╱(╱ // 0x536 @0xc
0x052a…0574 at000d = ╱48╱H╱ // 0x537 @0xd
0x052a…0574 at000e = ╱ec╱,╱ // 0x538 @0xe
0x052a…0574 at000f = ╱45╱E╱ // 0x539 @0xf
0x052a…0574 at0010 = ╱ee╱)╱ // 0x53a @0x10
0x052a…0574 at0011 = ╱ec╱,╱ // 0x53b @0x11
0x052a…0574 at0012 = ╱55╱U╱ // 0x53c @0x12
0x052a…0574 at0013 = ╱ed╱(╱ // 0x53d @0x13
0x052a…0574 at0014 = ╱4a╱J╱ // 0x53e @0x14
0x052a…0574 at0015 = ╱31╱1╱ // 0x53f @0x15
0x052a…0574 at0016 = ╱ec╱,╱ // 0x540 @0x16
0x052a…0574 at0017 = ╱45╱E╱ // 0x541 @0x17
0x052a…0574 at0018 = ╱ee╱)╱ // 0x542 @0x18
0x052a…0574 at0019 = ╱ec╱,╱ // 0x543 @0x19
0x052a…0574 at001a = ╱55╱U╱ // 0x544 @0x1a
0x052a…0574 at001b = ╱ed╱(╱ // 0x545 @0x1b
0x052a…0574 at001c = ╱4a╱J╱ // 0x546 @0x1c
0x052a…0574 at001d = ╱32╱2╱ // 0x547 @0x1d
0x052a…0574 at001e = ╱ec╱,╱ // 0x548 @0x1e
0x052a…0574 at001f = ╱45╱E╱ // 0x549 @0x1f
0x052a…0574 at0020 = ╱ee╱)╱ // 0x54a @0x20
0x052a…0574 at0021 = ╱ec╱,╱ // 0x54b @0x21
0x052a…0574 at0022 = ╱55╱U╱ // 0x54c @0x22
0x052a…0574 at0023 = ╱ed╱(╱ // 0x54d @0x23
0x052a…0574 at0024 = ╱4a╱J╱ // 0x54e @0x24
0x052a…0574 at0025 = ╱33╱3╱ // 0x54f @0x25
0x052a…0574 at0026 = ╱ec╱,╱ // 0x550 @0x26
0x052a…0574 at0027 = ╱45╱E╱ // 0x551 @0x27
0x052a…0574 at0028 = ╱ee╱)╱ // 0x552 @0x28
0x052a…0574 at0029 = ╱ec╱,╱ // 0x553 @0x29
0x052a…0574 at002a = ╱55╱U╱ // 0x554 @0x2a
0x052a…0574 at002b = ╱ed╱(╱ // 0x555 @0x2b
0x052a…0574 at002c = ╱4a╱J╱ // 0x556 @0x2c
0x052a…0574 at002d = ╱34╱4╱ // 0x557 @0x2d
0x052a…0574 at002e = ╱ec╱,╱ // 0x558 @0x2e
0x052a…0574 at002f = ╱45╱E╱ // 0x559 @0x2f
0x052a…0574 at0030 = ╱ee╱)╱ // 0x55a @0x30
0x052a…0574 at0031 = ╱ec╱,╱ // 0x55b @0x31
0x052a…0574 at0032 = ╱55╱U╱ // 0x55c @0x32
0x052a…0574 at0033 = ╱ed╱(╱ // 0x55d @0x33
0x052a…0574 at0034 = ╱4a╱J╱ // 0x55e @0x34
0x052a…0574 at0035 = ╱35╱5╱ // 0x55f @0x35
0x052a…0574 at0036 = ╱ec╱,╱ // 0x560 @0x36
0x052a…0574 at0037 = ╱45╱E╱ // 0x561 @0x37
0x052a…0574 at0038 = ╱ee╱)╱ // 0x562 @0x38
0x052a…0574 at0039 = ╱ec╱,╱ // 0x563 @0x39
0x052a…0574 at003a = ╱55╱U╱ // 0x564 @0x3a
0x052a…0574 at003b = ╱ed╱(╱ // 0x565 @0x3b
0x052a…0574 at003c = ╱4a╱J╱ // 0x566 @0x3c
0x052a…0574 at003d = ╱36╱6╱ // 0x567 @0x3d
0x052a…0574 at003e = ╱ec╱,╱ // 0x568 @0x3e
0x052a…0574 at003f = ╱45╱E╱ // 0x569 @0x3f
0x052a…0574 at0040 = ╱ee╱)╱ // 0x56a @0x40
0x052a…0574 at0041 = ╱ec╱,╱ // 0x56b @0x41
0x052a…0574 at0042 = ╱55╱U╱ // 0x56c @0x42
0x052a…0574 at0043 = ╱ed╱(╱ // 0x56d @0x43
0x052a…0574 at0044 = ╱4a╱J╱ // 0x56e @0x44
0x052a…0574 at0045 = ╱37╱7╱ // 0x56f @0x45
0x052a…0574 at0046 = ╱ec╱,╱ // 0x570 @0x46
0x052a…0574 at0047 = ╱45╱E╱ // 0x571 @0x47
0x052a…0574 at0048 = ╱ee╱)╱ // 0x572 @0x48
0x052a…0574 at0049 = EOL // 0x573 @0x49
0x052a…0574 }
0x0574…0587 92de 0420 EXEC FEJL(G,E,K9$)
0x0574…0587 LineComalBin {
0x0574…0587 ptr = 0x92de // 0x574 @0x0
0x0574…0587 lno = 0x01a4 // 0x576 @0x2
0x0574…0587 at0004 = ╱9d╱ EXEC ╱ // 0x578 @0x4
0x0574…0587 at0005 = ╱46╱F╱ // 0x579 @0x5
0x0574…0587 at0006 = ╱45╱E╱ // 0x57a @0x6
0x0574…0587 at0007 = ╱4a╱J╱ // 0x57b @0x7
0x0574…0587 at0008 = ╱4c╱L╱ // 0x57c @0x8
0x0574…0587 at0009 = ╱ed╱(╱ // 0x57d @0x9
0x0574…0587 at000a = ╱47╱G╱ // 0x57e @0xa
0x0574…0587 at000b = ╱ec╱,╱ // 0x57f @0xb
0x0574…0587 at000c = ╱45╱E╱ // 0x580 @0xc
0x0574…0587 at000d = ╱ec╱,╱ // 0x581 @0xd
0x0574…0587 at000e = ╱4b╱K╱ // 0x582 @0xe
0x0574…0587 at000f = ╱39╱9╱ // 0x583 @0xf
0x0574…0587 at0010 = ╱ef╱$╱ // 0x584 @0x10
0x0574…0587 at0011 = ╱ee╱)╱ // 0x585 @0x11
0x0574…0587 at0012 = EOL // 0x586 @0x12
0x0574…0587 }
0x0587…058e 92e5 0430 NEXT I
0x0587…058e LineComalBin {
0x0587…058e ptr = 0x92e5 // 0x587 @0x0
0x0587…058e lno = 0x01ae // 0x589 @0x2
0x0587…058e at0004 = ╱84╱ NEXT ╱ // 0x58b @0x4
0x0587…058e at0005 = ╱49╱I╱ // 0x58c @0x5
0x0587…058e at0006 = EOL // 0x58d @0x6
0x0587…058e }
0x058e…05aa 9301 0440 FOR I=J TO MANTAL1 DIV 4+J-E
0x058e…05aa LineComalBin {
0x058e…05aa ptr = 0x9301 // 0x58e @0x0
0x058e…05aa lno = 0x01b8 // 0x590 @0x2
0x058e…05aa at0004 = ╱83╱ FOR ╱ // 0x592 @0x4
0x058e…05aa at0005 = ╱49╱I╱ // 0x593 @0x5
0x058e…05aa at0006 = ╱dc╱=╱ // 0x594 @0x6
0x058e…05aa at0007 = ╱4a╱J╱ // 0x595 @0x7
0x058e…05aa at0008 = ╱b7╱ TO ╱ // 0x596 @0x8
0x058e…05aa at0009 = ╱4d╱M╱ // 0x597 @0x9
0x058e…05aa at000a = ╱41╱A╱ // 0x598 @0xa
0x058e…05aa at000b = ╱4e╱N╱ // 0x599 @0xb
0x058e…05aa at000c = ╱54╱T╱ // 0x59a @0xc
0x058e…05aa at000d = ╱41╱A╱ // 0x59b @0xd
0x058e…05aa at000e = ╱4c╱L╱ // 0x59c @0xe
0x058e…05aa at000f = ╱31╱1╱ // 0x59d @0xf
0x058e…05aa at0010 = ╱e7╱ DIV ╱ // 0x59e @0x10
0x058e…05aa at0011 = ╱34╱4╱ // 0x59f @0x11
0x058e…05aa at0012 = ╱fe00008003╱ // 0x5a0 @0x12
0x058e…05aa at0017 = ╱e2╱+╱ // 0x5a5 @0x17
0x058e…05aa at0018 = ╱4a╱J╱ // 0x5a6 @0x18
0x058e…05aa at0019 = ╱e3╱-╱ // 0x5a7 @0x19
0x058e…05aa at001a = ╱45╱E╱ // 0x5a8 @0x1a
0x058e…05aa at001b = EOL // 0x5a9 @0x1b
0x058e…05aa }
0x05aa…05d4 932b 0450 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V
0x05aa…05d4 LineComalBin {
0x05aa…05d4 ptr = 0x932b // 0x5aa @0x0
0x05aa…05d4 lno = 0x01c2 // 0x5ac @0x2
0x05aa…05d4 at0004 = ╱48╱H╱ // 0x5ae @0x4
0x05aa…05d4 at0005 = ╱dc╱=╱ // 0x5af @0x5
0x05aa…05d4 at0006 = ╱ed╱(╱ // 0x5b0 @0x6
0x05aa…05d4 at0007 = ╱49╱I╱ // 0x5b1 @0x7
0x05aa…05d4 at0008 = ╱e3╱-╱ // 0x5b2 @0x8
0x05aa…05d4 at0009 = ╱4a╱J╱ // 0x5b3 @0x9
0x05aa…05d4 at000a = ╱ee╱)╱ // 0x5b4 @0xa
0x05aa…05d4 at000b = ╱e4╱*╱ // 0x5b5 @0xb
0x05aa…05d4 at000c = ╱34╱4╱ // 0x5b6 @0xc
0x05aa…05d4 at000d = ╱fe00008003╱ // 0x5b7 @0xd
0x05aa…05d4 at0012 = ╱e2╱+╱ // 0x5bc @0x12
0x05aa…05d4 at0013 = ╱45╱E╱ // 0x5bd @0x13
0x05aa…05d4 at0014 = ╱eb╱;╱ // 0x5be @0x14
0x05aa…05d4 at0015 = ╱4a╱J╱ // 0x5bf @0x15
0x05aa…05d4 at0016 = ╱31╱1╱ // 0x5c0 @0x16
0x05aa…05d4 at0017 = ╱dc╱=╱ // 0x5c1 @0x17
0x05aa…05d4 at0018 = ╱48╱H╱ // 0x5c2 @0x18
0x05aa…05d4 at0019 = ╱e2╱+╱ // 0x5c3 @0x19
0x05aa…05d4 at001a = ╱45╱E╱ // 0x5c4 @0x1a
0x05aa…05d4 at001b = ╱eb╱;╱ // 0x5c5 @0x1b
0x05aa…05d4 at001c = ╱4a╱J╱ // 0x5c6 @0x1c
0x05aa…05d4 at001d = ╱32╱2╱ // 0x5c7 @0x1d
0x05aa…05d4 at001e = ╱dc╱=╱ // 0x5c8 @0x1e
0x05aa…05d4 at001f = ╱48╱H╱ // 0x5c9 @0x1f
0x05aa…05d4 at0020 = ╱e2╱+╱ // 0x5ca @0x20
0x05aa…05d4 at0021 = ╱47╱G╱ // 0x5cb @0x21
0x05aa…05d4 at0022 = ╱eb╱;╱ // 0x5cc @0x22
0x05aa…05d4 at0023 = ╱4a╱J╱ // 0x5cd @0x23
0x05aa…05d4 at0024 = ╱33╱3╱ // 0x5ce @0x24
0x05aa…05d4 at0025 = ╱dc╱=╱ // 0x5cf @0x25
0x05aa…05d4 at0026 = ╱48╱H╱ // 0x5d0 @0x26
0x05aa…05d4 at0027 = ╱e2╱+╱ // 0x5d1 @0x27
0x05aa…05d4 at0028 = ╱56╱V╱ // 0x5d2 @0x28
0x05aa…05d4 at0029 = EOL // 0x5d3 @0x29
0x05aa…05d4 }
0x05d4…061d 9374 0460 PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G)
0x05d4…061d LineComalBin {
0x05d4…061d ptr = 0x9374 // 0x5d4 @0x0
0x05d4…061d lno = 0x01cc // 0x5d6 @0x2
0x05d4…061d at0004 = ╱aa╱ PUT ╱ // 0x5d8 @0x4
0x05d4…061d at0005 = ╱4b╱K╱ // 0x5d9 @0x5
0x05d4…061d at0006 = ╱39╱9╱ // 0x5da @0x6
0x05d4…061d at0007 = ╱ef╱$╱ // 0x5db @0x7
0x05d4…061d at0008 = ╱ec╱,╱ // 0x5dc @0x8
0x05d4…061d at0009 = ╱49╱I╱ // 0x5dd @0x9
0x05d4…061d at000a = ╱f0╱:╱ // 0x5de @0xa
0x05d4…061d at000b = ╱55╱U╱ // 0x5df @0xb
0x05d4…061d at000c = ╱ed╱(╱ // 0x5e0 @0xc
0x05d4…061d at000d = ╱48╱H╱ // 0x5e1 @0xd
0x05d4…061d at000e = ╱ec╱,╱ // 0x5e2 @0xe
0x05d4…061d at000f = ╱45╱E╱ // 0x5e3 @0xf
0x05d4…061d at0010 = ╱ee╱)╱ // 0x5e4 @0x10
0x05d4…061d at0011 = ╱ec╱,╱ // 0x5e5 @0x11
0x05d4…061d at0012 = ╱55╱U╱ // 0x5e6 @0x12
0x05d4…061d at0013 = ╱ed╱(╱ // 0x5e7 @0x13
0x05d4…061d at0014 = ╱48╱H╱ // 0x5e8 @0x14
0x05d4…061d at0015 = ╱ec╱,╱ // 0x5e9 @0x15
0x05d4…061d at0016 = ╱47╱G╱ // 0x5ea @0x16
0x05d4…061d at0017 = ╱ee╱)╱ // 0x5eb @0x17
0x05d4…061d at0018 = ╱ec╱,╱ // 0x5ec @0x18
0x05d4…061d at0019 = ╱55╱U╱ // 0x5ed @0x19
0x05d4…061d at001a = ╱ed╱(╱ // 0x5ee @0x1a
0x05d4…061d at001b = ╱4a╱J╱ // 0x5ef @0x1b
0x05d4…061d at001c = ╱31╱1╱ // 0x5f0 @0x1c
0x05d4…061d at001d = ╱ec╱,╱ // 0x5f1 @0x1d
0x05d4…061d at001e = ╱45╱E╱ // 0x5f2 @0x1e
0x05d4…061d at001f = ╱ee╱)╱ // 0x5f3 @0x1f
0x05d4…061d at0020 = ╱ec╱,╱ // 0x5f4 @0x20
0x05d4…061d at0021 = ╱55╱U╱ // 0x5f5 @0x21
0x05d4…061d at0022 = ╱ed╱(╱ // 0x5f6 @0x22
0x05d4…061d at0023 = ╱4a╱J╱ // 0x5f7 @0x23
0x05d4…061d at0024 = ╱31╱1╱ // 0x5f8 @0x24
0x05d4…061d at0025 = ╱ec╱,╱ // 0x5f9 @0x25
0x05d4…061d at0026 = ╱47╱G╱ // 0x5fa @0x26
0x05d4…061d at0027 = ╱ee╱)╱ // 0x5fb @0x27
0x05d4…061d at0028 = ╱ec╱,╱ // 0x5fc @0x28
0x05d4…061d at0029 = ╱55╱U╱ // 0x5fd @0x29
0x05d4…061d at002a = ╱ed╱(╱ // 0x5fe @0x2a
0x05d4…061d at002b = ╱4a╱J╱ // 0x5ff @0x2b
0x05d4…061d at002c = ╱32╱2╱ // 0x600 @0x2c
0x05d4…061d at002d = ╱ec╱,╱ // 0x601 @0x2d
0x05d4…061d at002e = ╱45╱E╱ // 0x602 @0x2e
0x05d4…061d at002f = ╱ee╱)╱ // 0x603 @0x2f
0x05d4…061d at0030 = ╱ec╱,╱ // 0x604 @0x30
0x05d4…061d at0031 = ╱55╱U╱ // 0x605 @0x31
0x05d4…061d at0032 = ╱ed╱(╱ // 0x606 @0x32
0x05d4…061d at0033 = ╱4a╱J╱ // 0x607 @0x33
0x05d4…061d at0034 = ╱32╱2╱ // 0x608 @0x34
0x05d4…061d at0035 = ╱ec╱,╱ // 0x609 @0x35
0x05d4…061d at0036 = ╱47╱G╱ // 0x60a @0x36
0x05d4…061d at0037 = ╱ee╱)╱ // 0x60b @0x37
0x05d4…061d at0038 = ╱ec╱,╱ // 0x60c @0x38
0x05d4…061d at0039 = ╱55╱U╱ // 0x60d @0x39
0x05d4…061d at003a = ╱ed╱(╱ // 0x60e @0x3a
0x05d4…061d at003b = ╱4a╱J╱ // 0x60f @0x3b
0x05d4…061d at003c = ╱33╱3╱ // 0x610 @0x3c
0x05d4…061d at003d = ╱ec╱,╱ // 0x611 @0x3d
0x05d4…061d at003e = ╱45╱E╱ // 0x612 @0x3e
0x05d4…061d at003f = ╱ee╱)╱ // 0x613 @0x3f
0x05d4…061d at0040 = ╱ec╱,╱ // 0x614 @0x40
0x05d4…061d at0041 = ╱55╱U╱ // 0x615 @0x41
0x05d4…061d at0042 = ╱ed╱(╱ // 0x616 @0x42
0x05d4…061d at0043 = ╱4a╱J╱ // 0x617 @0x43
0x05d4…061d at0044 = ╱33╱3╱ // 0x618 @0x44
0x05d4…061d at0045 = ╱ec╱,╱ // 0x619 @0x45
0x05d4…061d at0046 = ╱47╱G╱ // 0x61a @0x46
0x05d4…061d at0047 = ╱ee╱)╱ // 0x61b @0x47
0x05d4…061d at0048 = EOL // 0x61c @0x48
0x05d4…061d }
0x061d…0630 9387 0470 EXEC FEJL(G,G,K9$)
0x061d…0630 LineComalBin {
0x061d…0630 ptr = 0x9387 // 0x61d @0x0
0x061d…0630 lno = 0x01d6 // 0x61f @0x2
0x061d…0630 at0004 = ╱9d╱ EXEC ╱ // 0x621 @0x4
0x061d…0630 at0005 = ╱46╱F╱ // 0x622 @0x5
0x061d…0630 at0006 = ╱45╱E╱ // 0x623 @0x6
0x061d…0630 at0007 = ╱4a╱J╱ // 0x624 @0x7
0x061d…0630 at0008 = ╱4c╱L╱ // 0x625 @0x8
0x061d…0630 at0009 = ╱ed╱(╱ // 0x626 @0x9
0x061d…0630 at000a = ╱47╱G╱ // 0x627 @0xa
0x061d…0630 at000b = ╱ec╱,╱ // 0x628 @0xb
0x061d…0630 at000c = ╱47╱G╱ // 0x629 @0xc
0x061d…0630 at000d = ╱ec╱,╱ // 0x62a @0xd
0x061d…0630 at000e = ╱4b╱K╱ // 0x62b @0xe
0x061d…0630 at000f = ╱39╱9╱ // 0x62c @0xf
0x061d…0630 at0010 = ╱ef╱$╱ // 0x62d @0x10
0x061d…0630 at0011 = ╱ee╱)╱ // 0x62e @0x11
0x061d…0630 at0012 = EOL // 0x62f @0x12
0x061d…0630 }
0x0630…0637 938e 0480 NEXT I
0x0630…0637 LineComalBin {
0x0630…0637 ptr = 0x938e // 0x630 @0x0
0x0630…0637 lno = 0x01e0 // 0x632 @0x2
0x0630…0637 at0004 = ╱84╱ NEXT ╱ // 0x634 @0x4
0x0630…0637 at0005 = ╱49╱I╱ // 0x635 @0x5
0x0630…0637 at0006 = EOL // 0x636 @0x6
0x0630…0637 }
0x0637…063d 9394 0490 ENDPROC
0x0637…063d LineComalBin {
0x0637…063d ptr = 0x9394 // 0x637 @0x0
0x0637…063d lno = 0x01ea // 0x639 @0x2
0x0637…063d at0004 = ╱9f╱ ENDPROC ╱ // 0x63b @0x4
0x0637…063d at0005 = EOL // 0x63c @0x5
0x0637…063d }
0x063d…0662 93b9 0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x063d…0662 LineComalBin {
0x063d…0662 ptr = 0x93b9 // 0x63d @0x0
0x063d…0662 lno = 0x01f4 // 0x63f @0x2
0x063d…0662 at0004 = ╱9e╱ PROC ╱ // 0x641 @0x4
0x063d…0662 at0005 = ╱46╱F╱ // 0x642 @0x5
0x063d…0662 at0006 = ╱49╱I╱ // 0x643 @0x6
0x063d…0662 at0007 = ╱4e╱N╱ // 0x644 @0x7
0x063d…0662 at0008 = ╱44╱D╱ // 0x645 @0x8
0x063d…0662 at0009 = ╱50╱P╱ // 0x646 @0x9
0x063d…0662 at000a = ╱4f╱O╱ // 0x647 @0xa
0x063d…0662 at000b = ╱53╱S╱ // 0x648 @0xb
0x063d…0662 at000c = ╱54╱T╱ // 0x649 @0xc
0x063d…0662 at000d = ╱ed╱(╱ // 0x64a @0xd
0x063d…0662 at000e = ╱54╱T╱ // 0x64b @0xe
0x063d…0662 at000f = ╱41╱A╱ // 0x64c @0xf
0x063d…0662 at0010 = ╱42╱B╱ // 0x64d @0x10
0x063d…0662 at0011 = ╱31╱1╱ // 0x64e @0x11
0x063d…0662 at0012 = ╱ec╱,╱ // 0x64f @0x12
0x063d…0662 at0013 = ╱4d╱M╱ // 0x650 @0x13
0x063d…0662 at0014 = ╱41╱A╱ // 0x651 @0x14
0x063d…0662 at0015 = ╱4e╱N╱ // 0x652 @0x15
0x063d…0662 at0016 = ╱54╱T╱ // 0x653 @0x16
0x063d…0662 at0017 = ╱31╱1╱ // 0x654 @0x17
0x063d…0662 at0018 = ╱ec╱,╱ // 0x655 @0x18
0x063d…0662 at0019 = ╱4e╱N╱ // 0x656 @0x19
0x063d…0662 at001a = ╱5c╱Ø╱ // 0x657 @0x1a
0x063d…0662 at001b = ╱47╱G╱ // 0x658 @0x1b
0x063d…0662 at001c = ╱4c╱L╱ // 0x659 @0x1c
0x063d…0662 at001d = ╱31╱1╱ // 0x65a @0x1d
0x063d…0662 at001e = ╱ec╱,╱ // 0x65b @0x1e
0x063d…0662 at001f = ╱50╱P╱ // 0x65c @0x1f
0x063d…0662 at0020 = ╱49╱I╱ // 0x65d @0x20
0x063d…0662 at0021 = ╱4c╱L╱ // 0x65e @0x21
0x063d…0662 at0022 = ╱33╱3╱ // 0x65f @0x22
0x063d…0662 at0023 = ╱ee╱)╱ // 0x660 @0x23
0x063d…0662 at0024 = EOL // 0x661 @0x24
0x063d…0662 }
0x0662…0684 93db 0510 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x0662…0684 LineComalBin {
0x0662…0684 ptr = 0x93db // 0x662 @0x0
0x0662…0684 lno = 0x01fe // 0x664 @0x2
0x0662…0684 at0004 = ╱50╱P╱ // 0x666 @0x4
0x0662…0684 at0005 = ╱49╱I╱ // 0x667 @0x5
0x0662…0684 at0006 = ╱4c╱L╱ // 0x668 @0x6
0x0662…0684 at0007 = ╱31╱1╱ // 0x669 @0x7
0x0662…0684 at0008 = ╱dc╱=╱ // 0x66a @0x8
0x0662…0684 at0009 = ╱4d╱M╱ // 0x66b @0x9
0x0662…0684 at000a = ╱41╱A╱ // 0x66c @0xa
0x0662…0684 at000b = ╱4e╱N╱ // 0x66d @0xb
0x0662…0684 at000c = ╱54╱T╱ // 0x66e @0xc
0x0662…0684 at000d = ╱31╱1╱ // 0x66f @0xd
0x0662…0684 at000e = ╱e7╱ DIV ╱ // 0x670 @0xe
0x0662…0684 at000f = ╱47╱G╱ // 0x671 @0xf
0x0662…0684 at0010 = ╱eb╱;╱ // 0x672 @0x10
0x0662…0684 at0011 = ╱50╱P╱ // 0x673 @0x11
0x0662…0684 at0012 = ╱49╱I╱ // 0x674 @0x12
0x0662…0684 at0013 = ╱4c╱L╱ // 0x675 @0x13
0x0662…0684 at0014 = ╱33╱3╱ // 0x676 @0x14
0x0662…0684 at0015 = ╱dc╱=╱ // 0x677 @0x15
0x0662…0684 at0016 = ╱50╱P╱ // 0x678 @0x16
0x0662…0684 at0017 = ╱49╱I╱ // 0x679 @0x17
0x0662…0684 at0018 = ╱4c╱L╱ // 0x67a @0x18
0x0662…0684 at0019 = ╱31╱1╱ // 0x67b @0x19
0x0662…0684 at001a = ╱eb╱;╱ // 0x67c @0x1a
0x0662…0684 at001b = ╱43╱C╱ // 0x67d @0x1b
0x0662…0684 at001c = ╱45╱E╱ // 0x67e @0x1c
0x0662…0684 at001d = ╱4b╱K╱ // 0x67f @0x1d
0x0662…0684 at001e = ╱53╱S╱ // 0x680 @0x1e
0x0662…0684 at001f = ╱dc╱=╱ // 0x681 @0x1f
0x0662…0684 at0020 = ╱45╱E╱ // 0x682 @0x20
0x0662…0684 at0021 = EOL // 0x683 @0x21
0x0662…0684 }
0x0684…068a 93e1 0520 REPEAT
0x0684…068a LineComalBin {
0x0684…068a ptr = 0x93e1 // 0x684 @0x0
0x0684…068a lno = 0x0208 // 0x686 @0x2
0x0684…068a at0004 = ╱97╱ REPEAT ╱ // 0x688 @0x4
0x0684…068a at0005 = EOL // 0x689 @0x5
0x0684…068a }
0x068a…06a3 93fa 0530 IF NØGL1=TAB1(PIL3,E) THEN
0x068a…06a3 LineComalBin {
0x068a…06a3 ptr = 0x93fa // 0x68a @0x0
0x068a…06a3 lno = 0x0212 // 0x68c @0x2
0x068a…06a3 at0004 = ╱9c╱ IF ╱ // 0x68e @0x4
0x068a…06a3 at0005 = ╱4e╱N╱ // 0x68f @0x5
0x068a…06a3 at0006 = ╱5c╱Ø╱ // 0x690 @0x6
0x068a…06a3 at0007 = ╱47╱G╱ // 0x691 @0x7
0x068a…06a3 at0008 = ╱4c╱L╱ // 0x692 @0x8
0x068a…06a3 at0009 = ╱31╱1╱ // 0x693 @0x9
0x068a…06a3 at000a = ╱dc╱=╱ // 0x694 @0xa
0x068a…06a3 at000b = ╱54╱T╱ // 0x695 @0xb
0x068a…06a3 at000c = ╱41╱A╱ // 0x696 @0xc
0x068a…06a3 at000d = ╱42╱B╱ // 0x697 @0xd
0x068a…06a3 at000e = ╱31╱1╱ // 0x698 @0xe
0x068a…06a3 at000f = ╱ed╱(╱ // 0x699 @0xf
0x068a…06a3 at0010 = ╱50╱P╱ // 0x69a @0x10
0x068a…06a3 at0011 = ╱49╱I╱ // 0x69b @0x11
0x068a…06a3 at0012 = ╱4c╱L╱ // 0x69c @0x12
0x068a…06a3 at0013 = ╱33╱3╱ // 0x69d @0x13
0x068a…06a3 at0014 = ╱ec╱,╱ // 0x69e @0x14
0x068a…06a3 at0015 = ╱45╱E╱ // 0x69f @0x15
0x068a…06a3 at0016 = ╱ee╱)╱ // 0x6a0 @0x16
0x068a…06a3 at0017 = ╱b6╱ THEN ╱ // 0x6a1 @0x17
0x068a…06a3 at0018 = EOL // 0x6a2 @0x18
0x068a…06a3 }
0x06a3…06ae 9405 0540 CEKS=B
0x06a3…06ae LineComalBin {
0x06a3…06ae ptr = 0x9405 // 0x6a3 @0x0
0x06a3…06ae lno = 0x021c // 0x6a5 @0x2
0x06a3…06ae at0004 = ╱43╱C╱ // 0x6a7 @0x4
0x06a3…06ae at0005 = ╱45╱E╱ // 0x6a8 @0x5
0x06a3…06ae at0006 = ╱4b╱K╱ // 0x6a9 @0x6
0x06a3…06ae at0007 = ╱53╱S╱ // 0x6aa @0x7
0x06a3…06ae at0008 = ╱dc╱=╱ // 0x6ab @0x8
0x06a3…06ae at0009 = ╱42╱B╱ // 0x6ac @0x9
0x06a3…06ae at000a = EOL // 0x6ad @0xa
0x06a3…06ae }
0x06ae…06b4 940b 0550 ELSE
0x06ae…06b4 LineComalBin {
0x06ae…06b4 ptr = 0x940b // 0x6ae @0x0
0x06ae…06b4 lno = 0x0226 // 0x6b0 @0x2
0x06ae…06b4 at0004 = ╱9a╱ ELSE ╱ // 0x6b2 @0x4
0x06ae…06b4 at0005 = EOL // 0x6b3 @0x5
0x06ae…06b4 }
0x06b4…06c7 941e 0560 IF PIL1=E THEN PIL1=B
0x06b4…06c7 LineComalBin {
0x06b4…06c7 ptr = 0x941e // 0x6b4 @0x0
0x06b4…06c7 lno = 0x0230 // 0x6b6 @0x2
0x06b4…06c7 at0004 = ╱82╱ IF ╱ // 0x6b8 @0x4
0x06b4…06c7 at0005 = ╱50╱P╱ // 0x6b9 @0x5
0x06b4…06c7 at0006 = ╱49╱I╱ // 0x6ba @0x6
0x06b4…06c7 at0007 = ╱4c╱L╱ // 0x6bb @0x7
0x06b4…06c7 at0008 = ╱31╱1╱ // 0x6bc @0x8
0x06b4…06c7 at0009 = ╱dc╱=╱ // 0x6bd @0x9
0x06b4…06c7 at000a = ╱45╱E╱ // 0x6be @0xa
0x06b4…06c7 at000b = ╱b6╱ THEN ╱ // 0x6bf @0xb
0x06b4…06c7 at000c = ╱50╱P╱ // 0x6c0 @0xc
0x06b4…06c7 at000d = ╱49╱I╱ // 0x6c1 @0xd
0x06b4…06c7 at000e = ╱4c╱L╱ // 0x6c2 @0xe
0x06b4…06c7 at000f = ╱31╱1╱ // 0x6c3 @0xf
0x06b4…06c7 at0010 = ╱dc╱=╱ // 0x6c4 @0x10
0x06b4…06c7 at0011 = ╱42╱B╱ // 0x6c5 @0x11
0x06b4…06c7 at0012 = EOL // 0x6c6 @0x12
0x06b4…06c7 }
0x06c7…06de 9435 0570 PIL1=INT((PIL1+E)/G)
0x06c7…06de LineComalBin {
0x06c7…06de ptr = 0x9435 // 0x6c7 @0x0
0x06c7…06de lno = 0x023a // 0x6c9 @0x2
0x06c7…06de at0004 = ╱50╱P╱ // 0x6cb @0x4
0x06c7…06de at0005 = ╱49╱I╱ // 0x6cc @0x5
0x06c7…06de at0006 = ╱4c╱L╱ // 0x6cd @0x6
0x06c7…06de at0007 = ╱31╱1╱ // 0x6ce @0x7
0x06c7…06de at0008 = ╱dc╱=╱ // 0x6cf @0x8
0x06c7…06de at0009 = ╱c6╱INT╱ // 0x6d0 @0x9
0x06c7…06de at000a = ╱ed╱(╱ // 0x6d1 @0xa
0x06c7…06de at000b = ╱ed╱(╱ // 0x6d2 @0xb
0x06c7…06de at000c = ╱50╱P╱ // 0x6d3 @0xc
0x06c7…06de at000d = ╱49╱I╱ // 0x6d4 @0xd
0x06c7…06de at000e = ╱4c╱L╱ // 0x6d5 @0xe
0x06c7…06de at000f = ╱31╱1╱ // 0x6d6 @0xf
0x06c7…06de at0010 = ╱e2╱+╱ // 0x6d7 @0x10
0x06c7…06de at0011 = ╱45╱E╱ // 0x6d8 @0x11
0x06c7…06de at0012 = ╱ee╱)╱ // 0x6d9 @0x12
0x06c7…06de at0013 = ╱e5╱/╱ // 0x6da @0x13
0x06c7…06de at0014 = ╱47╱G╱ // 0x6db @0x14
0x06c7…06de at0015 = ╱ee╱)╱ // 0x6dc @0x15
0x06c7…06de at0016 = EOL // 0x6dd @0x16
0x06c7…06de }
0x06de…06f7 944e 0580 IF NØGL1>TAB1(PIL3,E) THEN
0x06de…06f7 LineComalBin {
0x06de…06f7 ptr = 0x944e // 0x6de @0x0
0x06de…06f7 lno = 0x0244 // 0x6e0 @0x2
0x06de…06f7 at0004 = ╱9c╱ IF ╱ // 0x6e2 @0x4
0x06de…06f7 at0005 = ╱4e╱N╱ // 0x6e3 @0x5
0x06de…06f7 at0006 = ╱5c╱Ø╱ // 0x6e4 @0x6
0x06de…06f7 at0007 = ╱47╱G╱ // 0x6e5 @0x7
0x06de…06f7 at0008 = ╱4c╱L╱ // 0x6e6 @0x8
0x06de…06f7 at0009 = ╱31╱1╱ // 0x6e7 @0x9
0x06de…06f7 at000a = ╱de╱>╱ // 0x6e8 @0xa
0x06de…06f7 at000b = ╱54╱T╱ // 0x6e9 @0xb
0x06de…06f7 at000c = ╱41╱A╱ // 0x6ea @0xc
0x06de…06f7 at000d = ╱42╱B╱ // 0x6eb @0xd
0x06de…06f7 at000e = ╱31╱1╱ // 0x6ec @0xe
0x06de…06f7 at000f = ╱ed╱(╱ // 0x6ed @0xf
0x06de…06f7 at0010 = ╱50╱P╱ // 0x6ee @0x10
0x06de…06f7 at0011 = ╱49╱I╱ // 0x6ef @0x11
0x06de…06f7 at0012 = ╱4c╱L╱ // 0x6f0 @0x12
0x06de…06f7 at0013 = ╱33╱3╱ // 0x6f1 @0x13
0x06de…06f7 at0014 = ╱ec╱,╱ // 0x6f2 @0x14
0x06de…06f7 at0015 = ╱45╱E╱ // 0x6f3 @0x15
0x06de…06f7 at0016 = ╱ee╱)╱ // 0x6f4 @0x16
0x06de…06f7 at0017 = ╱b6╱ THEN ╱ // 0x6f5 @0x17
0x06de…06f7 at0018 = EOL // 0x6f6 @0x18
0x06de…06f7 }
0x06f7…070a 9461 0590 PIL3=PIL3+PIL1
0x06f7…070a LineComalBin {
0x06f7…070a ptr = 0x9461 // 0x6f7 @0x0
0x06f7…070a lno = 0x024e // 0x6f9 @0x2
0x06f7…070a at0004 = ╱50╱P╱ // 0x6fb @0x4
0x06f7…070a at0005 = ╱49╱I╱ // 0x6fc @0x5
0x06f7…070a at0006 = ╱4c╱L╱ // 0x6fd @0x6
0x06f7…070a at0007 = ╱33╱3╱ // 0x6fe @0x7
0x06f7…070a at0008 = ╱dc╱=╱ // 0x6ff @0x8
0x06f7…070a at0009 = ╱50╱P╱ // 0x700 @0x9
0x06f7…070a at000a = ╱49╱I╱ // 0x701 @0xa
0x06f7…070a at000b = ╱4c╱L╱ // 0x702 @0xb
0x06f7…070a at000c = ╱33╱3╱ // 0x703 @0xc
0x06f7…070a at000d = ╱e2╱+╱ // 0x704 @0xd
0x06f7…070a at000e = ╱50╱P╱ // 0x705 @0xe
0x06f7…070a at000f = ╱49╱I╱ // 0x706 @0xf
0x06f7…070a at0010 = ╱4c╱L╱ // 0x707 @0x10
0x06f7…070a at0011 = ╱31╱1╱ // 0x708 @0x11
0x06f7…070a at0012 = EOL // 0x709 @0x12
0x06f7…070a }
0x070a…0710 9467 0600 ELSE
0x070a…0710 LineComalBin {
0x070a…0710 ptr = 0x9467 // 0x70a @0x0
0x070a…0710 lno = 0x0258 // 0x70c @0x2
0x070a…0710 at0004 = ╱9a╱ ELSE ╱ // 0x70e @0x4
0x070a…0710 at0005 = EOL // 0x70f @0x5
0x070a…0710 }
0x0710…0723 947a 0610 PIL3=PIL3-PIL1
0x0710…0723 LineComalBin {
0x0710…0723 ptr = 0x947a // 0x710 @0x0
0x0710…0723 lno = 0x0262 // 0x712 @0x2
0x0710…0723 at0004 = ╱50╱P╱ // 0x714 @0x4
0x0710…0723 at0005 = ╱49╱I╱ // 0x715 @0x5
0x0710…0723 at0006 = ╱4c╱L╱ // 0x716 @0x6
0x0710…0723 at0007 = ╱33╱3╱ // 0x717 @0x7
0x0710…0723 at0008 = ╱dc╱=╱ // 0x718 @0x8
0x0710…0723 at0009 = ╱50╱P╱ // 0x719 @0x9
0x0710…0723 at000a = ╱49╱I╱ // 0x71a @0xa
0x0710…0723 at000b = ╱4c╱L╱ // 0x71b @0xb
0x0710…0723 at000c = ╱33╱3╱ // 0x71c @0xc
0x0710…0723 at000d = ╱e3╱-╱ // 0x71d @0xd
0x0710…0723 at000e = ╱50╱P╱ // 0x71e @0xe
0x0710…0723 at000f = ╱49╱I╱ // 0x71f @0xf
0x0710…0723 at0010 = ╱4c╱L╱ // 0x720 @0x10
0x0710…0723 at0011 = ╱31╱1╱ // 0x721 @0x11
0x0710…0723 at0012 = EOL // 0x722 @0x12
0x0710…0723 }
0x0723…0729 9480 0620 ENDIF
0x0723…0729 LineComalBin {
0x0723…0729 ptr = 0x9480 // 0x723 @0x0
0x0723…0729 lno = 0x026c // 0x725 @0x2
0x0723…0729 at0004 = ╱9b╱ ENDIF ╱ // 0x727 @0x4
0x0723…0729 at0005 = EOL // 0x728 @0x5
0x0723…0729 }
0x0729…073c 9493 0630 IF PIL3<E THEN PIL3=E
0x0729…073c LineComalBin {
0x0729…073c ptr = 0x9493 // 0x729 @0x0
0x0729…073c lno = 0x0276 // 0x72b @0x2
0x0729…073c at0004 = ╱82╱ IF ╱ // 0x72d @0x4
0x0729…073c at0005 = ╱50╱P╱ // 0x72e @0x5
0x0729…073c at0006 = ╱49╱I╱ // 0x72f @0x6
0x0729…073c at0007 = ╱4c╱L╱ // 0x730 @0x7
0x0729…073c at0008 = ╱33╱3╱ // 0x731 @0x8
0x0729…073c at0009 = ╱dd╱<╱ // 0x732 @0x9
0x0729…073c at000a = ╱45╱E╱ // 0x733 @0xa
0x0729…073c at000b = ╱b6╱ THEN ╱ // 0x734 @0xb
0x0729…073c at000c = ╱50╱P╱ // 0x735 @0xc
0x0729…073c at000d = ╱49╱I╱ // 0x736 @0xd
0x0729…073c at000e = ╱4c╱L╱ // 0x737 @0xe
0x0729…073c at000f = ╱33╱3╱ // 0x738 @0xf
0x0729…073c at0010 = ╱dc╱=╱ // 0x739 @0x10
0x0729…073c at0011 = ╱45╱E╱ // 0x73a @0x11
0x0729…073c at0012 = EOL // 0x73b @0x12
0x0729…073c }
0x073c…0757 94ae 0640 IF PIL3>MANT1 THEN PIL3=MANT1
0x073c…0757 LineComalBin {
0x073c…0757 ptr = 0x94ae // 0x73c @0x0
0x073c…0757 lno = 0x0280 // 0x73e @0x2
0x073c…0757 at0004 = ╱82╱ IF ╱ // 0x740 @0x4
0x073c…0757 at0005 = ╱50╱P╱ // 0x741 @0x5
0x073c…0757 at0006 = ╱49╱I╱ // 0x742 @0x6
0x073c…0757 at0007 = ╱4c╱L╱ // 0x743 @0x7
0x073c…0757 at0008 = ╱33╱3╱ // 0x744 @0x8
0x073c…0757 at0009 = ╱de╱>╱ // 0x745 @0x9
0x073c…0757 at000a = ╱4d╱M╱ // 0x746 @0xa
0x073c…0757 at000b = ╱41╱A╱ // 0x747 @0xb
0x073c…0757 at000c = ╱4e╱N╱ // 0x748 @0xc
0x073c…0757 at000d = ╱54╱T╱ // 0x749 @0xd
0x073c…0757 at000e = ╱31╱1╱ // 0x74a @0xe
0x073c…0757 at000f = ╱b6╱ THEN ╱ // 0x74b @0xf
0x073c…0757 at0010 = ╱50╱P╱ // 0x74c @0x10
0x073c…0757 at0011 = ╱49╱I╱ // 0x74d @0x11
0x073c…0757 at0012 = ╱4c╱L╱ // 0x74e @0x12
0x073c…0757 at0013 = ╱33╱3╱ // 0x74f @0x13
0x073c…0757 at0014 = ╱dc╱=╱ // 0x750 @0x14
0x073c…0757 at0015 = ╱4d╱M╱ // 0x751 @0x15
0x073c…0757 at0016 = ╱41╱A╱ // 0x752 @0x16
0x073c…0757 at0017 = ╱4e╱N╱ // 0x753 @0x17
0x073c…0757 at0018 = ╱54╱T╱ // 0x754 @0x18
0x073c…0757 at0019 = ╱31╱1╱ // 0x755 @0x19
0x073c…0757 at001a = EOL // 0x756 @0x1a
0x073c…0757 }
0x0757…075d 94b4 0650 ENDIF
0x0757…075d LineComalBin {
0x0757…075d ptr = 0x94b4 // 0x757 @0x0
0x0757…075d lno = 0x028a // 0x759 @0x2
0x0757…075d at0004 = ╱9b╱ ENDIF ╱ // 0x75b @0x4
0x0757…075d at0005 = EOL // 0x75c @0x5
0x0757…075d }
0x075d…0770 94c7 0660 UNTIL CEKS=B OR PIL1=B
0x075d…0770 LineComalBin {
0x075d…0770 ptr = 0x94c7 // 0x75d @0x0
0x075d…0770 lno = 0x0294 // 0x75f @0x2
0x075d…0770 at0004 = ╱98╱ UNTIL ╱ // 0x761 @0x4
0x075d…0770 at0005 = ╱43╱C╱ // 0x762 @0x5
0x075d…0770 at0006 = ╱45╱E╱ // 0x763 @0x6
0x075d…0770 at0007 = ╱4b╱K╱ // 0x764 @0x7
0x075d…0770 at0008 = ╱53╱S╱ // 0x765 @0x8
0x075d…0770 at0009 = ╱dc╱=╱ // 0x766 @0x9
0x075d…0770 at000a = ╱42╱B╱ // 0x767 @0xa
0x075d…0770 at000b = ╱db╱ OR ╱ // 0x768 @0xb
0x075d…0770 at000c = ╱50╱P╱ // 0x769 @0xc
0x075d…0770 at000d = ╱49╱I╱ // 0x76a @0xd
0x075d…0770 at000e = ╱4c╱L╱ // 0x76b @0xe
0x075d…0770 at000f = ╱31╱1╱ // 0x76c @0xf
0x075d…0770 at0010 = ╱dc╱=╱ // 0x76d @0x10
0x075d…0770 at0011 = ╱42╱B╱ // 0x76e @0x11
0x075d…0770 at0012 = EOL // 0x76f @0x12
0x075d…0770 }
0x0770…0776 94cd 0670 ENDPROC
0x0770…0776 LineComalBin {
0x0770…0776 ptr = 0x94cd // 0x770 @0x0
0x0770…0776 lno = 0x029e // 0x772 @0x2
0x0770…0776 at0004 = ╱9f╱ ENDPROC ╱ // 0x774 @0x4
0x0770…0776 at0005 = EOL // 0x775 @0x5
0x0770…0776 }
0x0776…078d 94e4 0680 PROC SLETDPOST(NØGLE3)
0x0776…078d LineComalBin {
0x0776…078d ptr = 0x94e4 // 0x776 @0x0
0x0776…078d lno = 0x02a8 // 0x778 @0x2
0x0776…078d at0004 = ╱9e╱ PROC ╱ // 0x77a @0x4
0x0776…078d at0005 = ╱53╱S╱ // 0x77b @0x5
0x0776…078d at0006 = ╱4c╱L╱ // 0x77c @0x6
0x0776…078d at0007 = ╱45╱E╱ // 0x77d @0x7
0x0776…078d at0008 = ╱54╱T╱ // 0x77e @0x8
0x0776…078d at0009 = ╱44╱D╱ // 0x77f @0x9
0x0776…078d at000a = ╱50╱P╱ // 0x780 @0xa
0x0776…078d at000b = ╱4f╱O╱ // 0x781 @0xb
0x0776…078d at000c = ╱53╱S╱ // 0x782 @0xc
0x0776…078d at000d = ╱54╱T╱ // 0x783 @0xd
0x0776…078d at000e = ╱ed╱(╱ // 0x784 @0xe
0x0776…078d at000f = ╱4e╱N╱ // 0x785 @0xf
0x0776…078d at0010 = ╱5c╱Ø╱ // 0x786 @0x10
0x0776…078d at0011 = ╱47╱G╱ // 0x787 @0x11
0x0776…078d at0012 = ╱4c╱L╱ // 0x788 @0x12
0x0776…078d at0013 = ╱45╱E╱ // 0x789 @0x13
0x0776…078d at0014 = ╱33╱3╱ // 0x78a @0x14
0x0776…078d at0015 = ╱ee╱)╱ // 0x78b @0x15
0x0776…078d at0016 = EOL // 0x78c @0x16
0x0776…078d }
0x078d…07b6 950d 0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3)
0x078d…07b6 LineComalBin {
0x078d…07b6 ptr = 0x950d // 0x78d @0x0
0x078d…07b6 lno = 0x02b2 // 0x78f @0x2
0x078d…07b6 at0004 = ╱9d╱ EXEC ╱ // 0x791 @0x4
0x078d…07b6 at0005 = ╱46╱F╱ // 0x792 @0x5
0x078d…07b6 at0006 = ╱49╱I╱ // 0x793 @0x6
0x078d…07b6 at0007 = ╱4e╱N╱ // 0x794 @0x7
0x078d…07b6 at0008 = ╱44╱D╱ // 0x795 @0x8
0x078d…07b6 at0009 = ╱50╱P╱ // 0x796 @0x9
0x078d…07b6 at000a = ╱4f╱O╱ // 0x797 @0xa
0x078d…07b6 at000b = ╱53╱S╱ // 0x798 @0xb
0x078d…07b6 at000c = ╱54╱T╱ // 0x799 @0xc
0x078d…07b6 at000d = ╱ed╱(╱ // 0x79a @0xd
0x078d…07b6 at000e = ╱44╱D╱ // 0x79b @0xe
0x078d…07b6 at000f = ╱54╱T╱ // 0x79c @0xf
0x078d…07b6 at0010 = ╱41╱A╱ // 0x79d @0x10
0x078d…07b6 at0011 = ╱42╱B╱ // 0x79e @0x11
0x078d…07b6 at0012 = ╱ec╱,╱ // 0x79f @0x12
0x078d…07b6 at0013 = ╱4d╱M╱ // 0x7a0 @0x13
0x078d…07b6 at0014 = ╱44╱D╱ // 0x7a1 @0x14
0x078d…07b6 at0015 = ╱41╱A╱ // 0x7a2 @0x15
0x078d…07b6 at0016 = ╱4e╱N╱ // 0x7a3 @0x16
0x078d…07b6 at0017 = ╱54╱T╱ // 0x7a4 @0x17
0x078d…07b6 at0018 = ╱41╱A╱ // 0x7a5 @0x18
0x078d…07b6 at0019 = ╱4c╱L╱ // 0x7a6 @0x19
0x078d…07b6 at001a = ╱ec╱,╱ // 0x7a7 @0x1a
0x078d…07b6 at001b = ╱4e╱N╱ // 0x7a8 @0x1b
0x078d…07b6 at001c = ╱5c╱Ø╱ // 0x7a9 @0x1c
0x078d…07b6 at001d = ╱47╱G╱ // 0x7aa @0x1d
0x078d…07b6 at001e = ╱4c╱L╱ // 0x7ab @0x1e
0x078d…07b6 at001f = ╱45╱E╱ // 0x7ac @0x1f
0x078d…07b6 at0020 = ╱33╱3╱ // 0x7ad @0x20
0x078d…07b6 at0021 = ╱ec╱,╱ // 0x7ae @0x21
0x078d…07b6 at0022 = ╱44╱D╱ // 0x7af @0x22
0x078d…07b6 at0023 = ╱50╱P╱ // 0x7b0 @0x23
0x078d…07b6 at0024 = ╱49╱I╱ // 0x7b1 @0x24
0x078d…07b6 at0025 = ╱4c╱L╱ // 0x7b2 @0x25
0x078d…07b6 at0026 = ╱33╱3╱ // 0x7b3 @0x26
0x078d…07b6 at0027 = ╱ee╱)╱ // 0x7b4 @0x27
0x078d…07b6 at0028 = EOL // 0x7b5 @0x28
0x078d…07b6 }
0x07b6…07c4 951b 0700 IF CEKS=E THEN STOP
0x07b6…07c4 LineComalBin {
0x07b6…07c4 ptr = 0x951b // 0x7b6 @0x0
0x07b6…07c4 lno = 0x02bc // 0x7b8 @0x2
0x07b6…07c4 at0004 = ╱82╱ IF ╱ // 0x7ba @0x4
0x07b6…07c4 at0005 = ╱43╱C╱ // 0x7bb @0x5
0x07b6…07c4 at0006 = ╱45╱E╱ // 0x7bc @0x6
0x07b6…07c4 at0007 = ╱4b╱K╱ // 0x7bd @0x7
0x07b6…07c4 at0008 = ╱53╱S╱ // 0x7be @0x8
0x07b6…07c4 at0009 = ╱dc╱=╱ // 0x7bf @0x9
0x07b6…07c4 at000a = ╱45╱E╱ // 0x7c0 @0xa
0x07b6…07c4 at000b = ╱b6╱ THEN ╱ // 0x7c1 @0xb
0x07b6…07c4 at000c = ╱8d╱ STOP ╱ // 0x7c2 @0xc
0x07b6…07c4 at000d = EOL // 0x7c3 @0xd
0x07b6…07c4 }
0x07c4…07d0 9527 0710 DEBNR=B
0x07c4…07d0 LineComalBin {
0x07c4…07d0 ptr = 0x9527 // 0x7c4 @0x0
0x07c4…07d0 lno = 0x02c6 // 0x7c6 @0x2
0x07c4…07d0 at0004 = ╱44╱D╱ // 0x7c8 @0x4
0x07c4…07d0 at0005 = ╱45╱E╱ // 0x7c9 @0x5
0x07c4…07d0 at0006 = ╱42╱B╱ // 0x7ca @0x6
0x07c4…07d0 at0007 = ╱4e╱N╱ // 0x7cb @0x7
0x07c4…07d0 at0008 = ╱52╱R╱ // 0x7cc @0x8
0x07c4…07d0 at0009 = ╱dc╱=╱ // 0x7cd @0x9
0x07c4…07d0 at000a = ╱42╱B╱ // 0x7ce @0xa
0x07c4…07d0 at000b = EOL // 0x7cf @0xb
0x07c4…07d0 }
0x07d0…07ef 9546 0720 DEBNAVN$=BLANK$(E:25)
0x07d0…07ef LineComalBin {
0x07d0…07ef ptr = 0x9546 // 0x7d0 @0x0
0x07d0…07ef lno = 0x02d0 // 0x7d2 @0x2
0x07d0…07ef at0004 = ╱44╱D╱ // 0x7d4 @0x4
0x07d0…07ef at0005 = ╱45╱E╱ // 0x7d5 @0x5
0x07d0…07ef at0006 = ╱42╱B╱ // 0x7d6 @0x6
0x07d0…07ef at0007 = ╱4e╱N╱ // 0x7d7 @0x7
0x07d0…07ef at0008 = ╱41╱A╱ // 0x7d8 @0x8
0x07d0…07ef at0009 = ╱56╱V╱ // 0x7d9 @0x9
0x07d0…07ef at000a = ╱4e╱N╱ // 0x7da @0xa
0x07d0…07ef at000b = ╱ef╱$╱ // 0x7db @0xb
0x07d0…07ef at000c = ╱dc╱=╱ // 0x7dc @0xc
0x07d0…07ef at000d = ╱42╱B╱ // 0x7dd @0xd
0x07d0…07ef at000e = ╱4c╱L╱ // 0x7de @0xe
0x07d0…07ef at000f = ╱41╱A╱ // 0x7df @0xf
0x07d0…07ef at0010 = ╱4e╱N╱ // 0x7e0 @0x10
0x07d0…07ef at0011 = ╱4b╱K╱ // 0x7e1 @0x11
0x07d0…07ef at0012 = ╱ef╱$╱ // 0x7e2 @0x12
0x07d0…07ef at0013 = ╱ed╱(╱ // 0x7e3 @0x13
0x07d0…07ef at0014 = ╱45╱E╱ // 0x7e4 @0x14
0x07d0…07ef at0015 = ╱f0╱:╱ // 0x7e5 @0x15
0x07d0…07ef at0016 = ╱32╱2╱ // 0x7e6 @0x16
0x07d0…07ef at0017 = ╱35╱5╱ // 0x7e7 @0x17
0x07d0…07ef at0018 = ╱fe0000c805╱ // 0x7e8 @0x18
0x07d0…07ef at001d = ╱ee╱)╱ // 0x7ed @0x1d
0x07d0…07ef at001e = EOL // 0x7ee @0x1e
0x07d0…07ef }
0x07ef…080e 9565 0730 DSALDO1$=BLANK$(E:12)
0x07ef…080e LineComalBin {
0x07ef…080e ptr = 0x9565 // 0x7ef @0x0
0x07ef…080e lno = 0x02da // 0x7f1 @0x2
0x07ef…080e at0004 = ╱44╱D╱ // 0x7f3 @0x4
0x07ef…080e at0005 = ╱53╱S╱ // 0x7f4 @0x5
0x07ef…080e at0006 = ╱41╱A╱ // 0x7f5 @0x6
0x07ef…080e at0007 = ╱4c╱L╱ // 0x7f6 @0x7
0x07ef…080e at0008 = ╱44╱D╱ // 0x7f7 @0x8
0x07ef…080e at0009 = ╱4f╱O╱ // 0x7f8 @0x9
0x07ef…080e at000a = ╱31╱1╱ // 0x7f9 @0xa
0x07ef…080e at000b = ╱ef╱$╱ // 0x7fa @0xb
0x07ef…080e at000c = ╱dc╱=╱ // 0x7fb @0xc
0x07ef…080e at000d = ╱42╱B╱ // 0x7fc @0xd
0x07ef…080e at000e = ╱4c╱L╱ // 0x7fd @0xe
0x07ef…080e at000f = ╱41╱A╱ // 0x7fe @0xf
0x07ef…080e at0010 = ╱4e╱N╱ // 0x7ff @0x10
0x07ef…080e at0011 = ╱4b╱K╱ // 0x800 @0x11
0x07ef…080e at0012 = ╱ef╱$╱ // 0x801 @0x12
0x07ef…080e at0013 = ╱ed╱(╱ // 0x802 @0x13
0x07ef…080e at0014 = ╱45╱E╱ // 0x803 @0x14
0x07ef…080e at0015 = ╱f0╱:╱ // 0x804 @0x15
0x07ef…080e at0016 = ╱31╱1╱ // 0x805 @0x16
0x07ef…080e at0017 = ╱32╱2╱ // 0x806 @0x17
0x07ef…080e at0018 = ╱fe0000c004╱ // 0x807 @0x18
0x07ef…080e at001d = ╱ee╱)╱ // 0x80c @0x1d
0x07ef…080e at001e = EOL // 0x80d @0x1e
0x07ef…080e }
0x080e…082d 9584 0740 DSALDO2$=BLANK$(E:12)
0x080e…082d LineComalBin {
0x080e…082d ptr = 0x9584 // 0x80e @0x0
0x080e…082d lno = 0x02e4 // 0x810 @0x2
0x080e…082d at0004 = ╱44╱D╱ // 0x812 @0x4
0x080e…082d at0005 = ╱53╱S╱ // 0x813 @0x5
0x080e…082d at0006 = ╱41╱A╱ // 0x814 @0x6
0x080e…082d at0007 = ╱4c╱L╱ // 0x815 @0x7
0x080e…082d at0008 = ╱44╱D╱ // 0x816 @0x8
0x080e…082d at0009 = ╱4f╱O╱ // 0x817 @0x9
0x080e…082d at000a = ╱32╱2╱ // 0x818 @0xa
0x080e…082d at000b = ╱ef╱$╱ // 0x819 @0xb
0x080e…082d at000c = ╱dc╱=╱ // 0x81a @0xc
0x080e…082d at000d = ╱42╱B╱ // 0x81b @0xd
0x080e…082d at000e = ╱4c╱L╱ // 0x81c @0xe
0x080e…082d at000f = ╱41╱A╱ // 0x81d @0xf
0x080e…082d at0010 = ╱4e╱N╱ // 0x81e @0x10
0x080e…082d at0011 = ╱4b╱K╱ // 0x81f @0x11
0x080e…082d at0012 = ╱ef╱$╱ // 0x820 @0x12
0x080e…082d at0013 = ╱ed╱(╱ // 0x821 @0x13
0x080e…082d at0014 = ╱45╱E╱ // 0x822 @0x14
0x080e…082d at0015 = ╱f0╱:╱ // 0x823 @0x15
0x080e…082d at0016 = ╱31╱1╱ // 0x824 @0x16
0x080e…082d at0017 = ╱32╱2╱ // 0x825 @0x17
0x080e…082d at0018 = ╱fe0000c004╱ // 0x826 @0x18
0x080e…082d at001d = ╱ee╱)╱ // 0x82b @0x1d
0x080e…082d at001e = EOL // 0x82c @0x1e
0x080e…082d }
0x082d…084c 95a3 0750 DSALDO3$=BLANK$(E:12)
0x082d…084c LineComalBin {
0x082d…084c ptr = 0x95a3 // 0x82d @0x0
0x082d…084c lno = 0x02ee // 0x82f @0x2
0x082d…084c at0004 = ╱44╱D╱ // 0x831 @0x4
0x082d…084c at0005 = ╱53╱S╱ // 0x832 @0x5
0x082d…084c at0006 = ╱41╱A╱ // 0x833 @0x6
0x082d…084c at0007 = ╱4c╱L╱ // 0x834 @0x7
0x082d…084c at0008 = ╱44╱D╱ // 0x835 @0x8
0x082d…084c at0009 = ╱4f╱O╱ // 0x836 @0x9
0x082d…084c at000a = ╱33╱3╱ // 0x837 @0xa
0x082d…084c at000b = ╱ef╱$╱ // 0x838 @0xb
0x082d…084c at000c = ╱dc╱=╱ // 0x839 @0xc
0x082d…084c at000d = ╱42╱B╱ // 0x83a @0xd
0x082d…084c at000e = ╱4c╱L╱ // 0x83b @0xe
0x082d…084c at000f = ╱41╱A╱ // 0x83c @0xf
0x082d…084c at0010 = ╱4e╱N╱ // 0x83d @0x10
0x082d…084c at0011 = ╱4b╱K╱ // 0x83e @0x11
0x082d…084c at0012 = ╱ef╱$╱ // 0x83f @0x12
0x082d…084c at0013 = ╱ed╱(╱ // 0x840 @0x13
0x082d…084c at0014 = ╱45╱E╱ // 0x841 @0x14
0x082d…084c at0015 = ╱f0╱:╱ // 0x842 @0x15
0x082d…084c at0016 = ╱31╱1╱ // 0x843 @0x16
0x082d…084c at0017 = ╱32╱2╱ // 0x844 @0x17
0x082d…084c at0018 = ╱fe0000c004╱ // 0x845 @0x18
0x082d…084c at001d = ╱ee╱)╱ // 0x84a @0x1d
0x082d…084c at001e = EOL // 0x84b @0x1e
0x082d…084c }
0x084c…086b 95c2 0760 DSALDO4$=BLANK$(E:12)
0x084c…086b LineComalBin {
0x084c…086b ptr = 0x95c2 // 0x84c @0x0
0x084c…086b lno = 0x02f8 // 0x84e @0x2
0x084c…086b at0004 = ╱44╱D╱ // 0x850 @0x4
0x084c…086b at0005 = ╱53╱S╱ // 0x851 @0x5
0x084c…086b at0006 = ╱41╱A╱ // 0x852 @0x6
0x084c…086b at0007 = ╱4c╱L╱ // 0x853 @0x7
0x084c…086b at0008 = ╱44╱D╱ // 0x854 @0x8
0x084c…086b at0009 = ╱4f╱O╱ // 0x855 @0x9
0x084c…086b at000a = ╱34╱4╱ // 0x856 @0xa
0x084c…086b at000b = ╱ef╱$╱ // 0x857 @0xb
0x084c…086b at000c = ╱dc╱=╱ // 0x858 @0xc
0x084c…086b at000d = ╱42╱B╱ // 0x859 @0xd
0x084c…086b at000e = ╱4c╱L╱ // 0x85a @0xe
0x084c…086b at000f = ╱41╱A╱ // 0x85b @0xf
0x084c…086b at0010 = ╱4e╱N╱ // 0x85c @0x10
0x084c…086b at0011 = ╱4b╱K╱ // 0x85d @0x11
0x084c…086b at0012 = ╱ef╱$╱ // 0x85e @0x12
0x084c…086b at0013 = ╱ed╱(╱ // 0x85f @0x13
0x084c…086b at0014 = ╱45╱E╱ // 0x860 @0x14
0x084c…086b at0015 = ╱f0╱:╱ // 0x861 @0x15
0x084c…086b at0016 = ╱31╱1╱ // 0x862 @0x16
0x084c…086b at0017 = ╱32╱2╱ // 0x863 @0x17
0x084c…086b at0018 = ╱fe0000c004╱ // 0x864 @0x18
0x084c…086b at001d = ╱ee╱)╱ // 0x869 @0x1d
0x084c…086b at001e = EOL // 0x86a @0x1e
0x084c…086b }
0x086b…0888 95df 0770 ÅRKØB$=BLANK$(E:12)
0x086b…0888 LineComalBin {
0x086b…0888 ptr = 0x95df // 0x86b @0x0
0x086b…0888 lno = 0x0302 // 0x86d @0x2
0x086b…0888 at0004 = ╱5d╱Å╱ // 0x86f @0x4
0x086b…0888 at0005 = ╱52╱R╱ // 0x870 @0x5
0x086b…0888 at0006 = ╱4b╱K╱ // 0x871 @0x6
0x086b…0888 at0007 = ╱5c╱Ø╱ // 0x872 @0x7
0x086b…0888 at0008 = ╱42╱B╱ // 0x873 @0x8
0x086b…0888 at0009 = ╱ef╱$╱ // 0x874 @0x9
0x086b…0888 at000a = ╱dc╱=╱ // 0x875 @0xa
0x086b…0888 at000b = ╱42╱B╱ // 0x876 @0xb
0x086b…0888 at000c = ╱4c╱L╱ // 0x877 @0xc
0x086b…0888 at000d = ╱41╱A╱ // 0x878 @0xd
0x086b…0888 at000e = ╱4e╱N╱ // 0x879 @0xe
0x086b…0888 at000f = ╱4b╱K╱ // 0x87a @0xf
0x086b…0888 at0010 = ╱ef╱$╱ // 0x87b @0x10
0x086b…0888 at0011 = ╱ed╱(╱ // 0x87c @0x11
0x086b…0888 at0012 = ╱45╱E╱ // 0x87d @0x12
0x086b…0888 at0013 = ╱f0╱:╱ // 0x87e @0x13
0x086b…0888 at0014 = ╱31╱1╱ // 0x87f @0x14
0x086b…0888 at0015 = ╱32╱2╱ // 0x880 @0x15
0x086b…0888 at0016 = ╱fe0000c004╱ // 0x881 @0x16
0x086b…0888 at001b = ╱ee╱)╱ // 0x886 @0x1b
0x086b…0888 at001c = EOL // 0x887 @0x1c
0x086b…0888 }
0x0888…08a6 95fd 0780 MDNKØB$=BLANK$(E:12)
0x0888…08a6 LineComalBin {
0x0888…08a6 ptr = 0x95fd // 0x888 @0x0
0x0888…08a6 lno = 0x030c // 0x88a @0x2
0x0888…08a6 at0004 = ╱4d╱M╱ // 0x88c @0x4
0x0888…08a6 at0005 = ╱44╱D╱ // 0x88d @0x5
0x0888…08a6 at0006 = ╱4e╱N╱ // 0x88e @0x6
0x0888…08a6 at0007 = ╱4b╱K╱ // 0x88f @0x7
0x0888…08a6 at0008 = ╱5c╱Ø╱ // 0x890 @0x8
0x0888…08a6 at0009 = ╱42╱B╱ // 0x891 @0x9
0x0888…08a6 at000a = ╱ef╱$╱ // 0x892 @0xa
0x0888…08a6 at000b = ╱dc╱=╱ // 0x893 @0xb
0x0888…08a6 at000c = ╱42╱B╱ // 0x894 @0xc
0x0888…08a6 at000d = ╱4c╱L╱ // 0x895 @0xd
0x0888…08a6 at000e = ╱41╱A╱ // 0x896 @0xe
0x0888…08a6 at000f = ╱4e╱N╱ // 0x897 @0xf
0x0888…08a6 at0010 = ╱4b╱K╱ // 0x898 @0x10
0x0888…08a6 at0011 = ╱ef╱$╱ // 0x899 @0x11
0x0888…08a6 at0012 = ╱ed╱(╱ // 0x89a @0x12
0x0888…08a6 at0013 = ╱45╱E╱ // 0x89b @0x13
0x0888…08a6 at0014 = ╱f0╱:╱ // 0x89c @0x14
0x0888…08a6 at0015 = ╱31╱1╱ // 0x89d @0x15
0x0888…08a6 at0016 = ╱32╱2╱ // 0x89e @0x16
0x0888…08a6 at0017 = ╱fe0000c004╱ // 0x89f @0x17
0x0888…08a6 at001c = ╱ee╱)╱ // 0x8a4 @0x1c
0x0888…08a6 at001d = EOL // 0x8a5 @0x1d
0x0888…08a6 }
0x08a6…08b6 960d 0790 DEBKGR$="0"
0x08a6…08b6 LineComalBin {
0x08a6…08b6 ptr = 0x960d // 0x8a6 @0x0
0x08a6…08b6 lno = 0x0316 // 0x8a8 @0x2
0x08a6…08b6 at0004 = ╱44╱D╱ // 0x8aa @0x4
0x08a6…08b6 at0005 = ╱45╱E╱ // 0x8ab @0x5
0x08a6…08b6 at0006 = ╱42╱B╱ // 0x8ac @0x6
0x08a6…08b6 at0007 = ╱4b╱K╱ // 0x8ad @0x7
0x08a6…08b6 at0008 = ╱47╱G╱ // 0x8ae @0x8
0x08a6…08b6 at0009 = ╱52╱R╱ // 0x8af @0x9
0x08a6…08b6 at000a = ╱ef╱$╱ // 0x8b0 @0xa
0x08a6…08b6 at000b = ╱dc╱=╱ // 0x8b1 @0xb
0x08a6…08b6 at000c = ╱22╱"╱ // 0x8b2 @0xc
0x08a6…08b6 at000d = ╱30╱0╱ // 0x8b3 @0xd
0x08a6…08b6 at000e = ╱22╱"╱ // 0x8b4 @0xe
0x08a6…08b6 at000f = EOL // 0x8b5 @0xf
0x08a6…08b6 }
0x08b6…08c6 961d 0800 DEBPOSTNR=B
0x08b6…08c6 LineComalBin {
0x08b6…08c6 ptr = 0x961d // 0x8b6 @0x0
0x08b6…08c6 lno = 0x0320 // 0x8b8 @0x2
0x08b6…08c6 at0004 = ╱44╱D╱ // 0x8ba @0x4
0x08b6…08c6 at0005 = ╱45╱E╱ // 0x8bb @0x5
0x08b6…08c6 at0006 = ╱42╱B╱ // 0x8bc @0x6
0x08b6…08c6 at0007 = ╱50╱P╱ // 0x8bd @0x7
0x08b6…08c6 at0008 = ╱4f╱O╱ // 0x8be @0x8
0x08b6…08c6 at0009 = ╱53╱S╱ // 0x8bf @0x9
0x08b6…08c6 at000a = ╱54╱T╱ // 0x8c0 @0xa
0x08b6…08c6 at000b = ╱4e╱N╱ // 0x8c1 @0xb
0x08b6…08c6 at000c = ╱52╱R╱ // 0x8c2 @0xc
0x08b6…08c6 at000d = ╱dc╱=╱ // 0x8c3 @0xd
0x08b6…08c6 at000e = ╱42╱B╱ // 0x8c4 @0xe
0x08b6…08c6 at000f = EOL // 0x8c5 @0xf
0x08b6…08c6 }
0x08c6…08d5 962c 0810 DEBLK$="0"
0x08c6…08d5 LineComalBin {
0x08c6…08d5 ptr = 0x962c // 0x8c6 @0x0
0x08c6…08d5 lno = 0x032a // 0x8c8 @0x2
0x08c6…08d5 at0004 = ╱44╱D╱ // 0x8ca @0x4
0x08c6…08d5 at0005 = ╱45╱E╱ // 0x8cb @0x5
0x08c6…08d5 at0006 = ╱42╱B╱ // 0x8cc @0x6
0x08c6…08d5 at0007 = ╱4c╱L╱ // 0x8cd @0x7
0x08c6…08d5 at0008 = ╱4b╱K╱ // 0x8ce @0x8
0x08c6…08d5 at0009 = ╱ef╱$╱ // 0x8cf @0x9
0x08c6…08d5 at000a = ╱dc╱=╱ // 0x8d0 @0xa
0x08c6…08d5 at000b = ╱22╱"╱ // 0x8d1 @0xb
0x08c6…08d5 at000c = ╱30╱0╱ // 0x8d2 @0xc
0x08c6…08d5 at000d = ╱22╱"╱ // 0x8d3 @0xd
0x08c6…08d5 at000e = EOL // 0x8d4 @0xe
0x08c6…08d5 }
0x08d5…08f4 964b 0820 DEBGADE$=BLANK$(E:25)
0x08d5…08f4 LineComalBin {
0x08d5…08f4 ptr = 0x964b // 0x8d5 @0x0
0x08d5…08f4 lno = 0x0334 // 0x8d7 @0x2
0x08d5…08f4 at0004 = ╱44╱D╱ // 0x8d9 @0x4
0x08d5…08f4 at0005 = ╱45╱E╱ // 0x8da @0x5
0x08d5…08f4 at0006 = ╱42╱B╱ // 0x8db @0x6
0x08d5…08f4 at0007 = ╱47╱G╱ // 0x8dc @0x7
0x08d5…08f4 at0008 = ╱41╱A╱ // 0x8dd @0x8
0x08d5…08f4 at0009 = ╱44╱D╱ // 0x8de @0x9
0x08d5…08f4 at000a = ╱45╱E╱ // 0x8df @0xa
0x08d5…08f4 at000b = ╱ef╱$╱ // 0x8e0 @0xb
0x08d5…08f4 at000c = ╱dc╱=╱ // 0x8e1 @0xc
0x08d5…08f4 at000d = ╱42╱B╱ // 0x8e2 @0xd
0x08d5…08f4 at000e = ╱4c╱L╱ // 0x8e3 @0xe
0x08d5…08f4 at000f = ╱41╱A╱ // 0x8e4 @0xf
0x08d5…08f4 at0010 = ╱4e╱N╱ // 0x8e5 @0x10
0x08d5…08f4 at0011 = ╱4b╱K╱ // 0x8e6 @0x11
0x08d5…08f4 at0012 = ╱ef╱$╱ // 0x8e7 @0x12
0x08d5…08f4 at0013 = ╱ed╱(╱ // 0x8e8 @0x13
0x08d5…08f4 at0014 = ╱45╱E╱ // 0x8e9 @0x14
0x08d5…08f4 at0015 = ╱f0╱:╱ // 0x8ea @0x15
0x08d5…08f4 at0016 = ╱32╱2╱ // 0x8eb @0x16
0x08d5…08f4 at0017 = ╱35╱5╱ // 0x8ec @0x17
0x08d5…08f4 at0018 = ╱fe0000c805╱ // 0x8ed @0x18
0x08d5…08f4 at001d = ╱ee╱)╱ // 0x8f2 @0x1d
0x08d5…08f4 at001e = EOL // 0x8f3 @0x1e
0x08d5…08f4 }
0x08f4…090c 9663 0830 DEBTLF$=BLANK$(E:W)
0x08f4…090c LineComalBin {
0x08f4…090c ptr = 0x9663 // 0x8f4 @0x0
0x08f4…090c lno = 0x033e // 0x8f6 @0x2
0x08f4…090c at0004 = ╱44╱D╱ // 0x8f8 @0x4
0x08f4…090c at0005 = ╱45╱E╱ // 0x8f9 @0x5
0x08f4…090c at0006 = ╱42╱B╱ // 0x8fa @0x6
0x08f4…090c at0007 = ╱54╱T╱ // 0x8fb @0x7
0x08f4…090c at0008 = ╱4c╱L╱ // 0x8fc @0x8
0x08f4…090c at0009 = ╱46╱F╱ // 0x8fd @0x9
0x08f4…090c at000a = ╱ef╱$╱ // 0x8fe @0xa
0x08f4…090c at000b = ╱dc╱=╱ // 0x8ff @0xb
0x08f4…090c at000c = ╱42╱B╱ // 0x900 @0xc
0x08f4…090c at000d = ╱4c╱L╱ // 0x901 @0xd
0x08f4…090c at000e = ╱41╱A╱ // 0x902 @0xe
0x08f4…090c at000f = ╱4e╱N╱ // 0x903 @0xf
0x08f4…090c at0010 = ╱4b╱K╱ // 0x904 @0x10
0x08f4…090c at0011 = ╱ef╱$╱ // 0x905 @0x11
0x08f4…090c at0012 = ╱ed╱(╱ // 0x906 @0x12
0x08f4…090c at0013 = ╱45╱E╱ // 0x907 @0x13
0x08f4…090c at0014 = ╱f0╱:╱ // 0x908 @0x14
0x08f4…090c at0015 = ╱57╱W╱ // 0x909 @0x15
0x08f4…090c at0016 = ╱ee╱)╱ // 0x90a @0x16
0x08f4…090c at0017 = EOL // 0x90b @0x17
0x08f4…090c }
0x090c…0918 966f 0840 HPOST=B
0x090c…0918 LineComalBin {
0x090c…0918 ptr = 0x966f // 0x90c @0x0
0x090c…0918 lno = 0x0348 // 0x90e @0x2
0x090c…0918 at0004 = ╱48╱H╱ // 0x910 @0x4
0x090c…0918 at0005 = ╱50╱P╱ // 0x911 @0x5
0x090c…0918 at0006 = ╱4f╱O╱ // 0x912 @0x6
0x090c…0918 at0007 = ╱53╱S╱ // 0x913 @0x7
0x090c…0918 at0008 = ╱54╱T╱ // 0x914 @0x8
0x090c…0918 at0009 = ╱dc╱=╱ // 0x915 @0x9
0x090c…0918 at000a = ╱42╱B╱ // 0x916 @0xa
0x090c…0918 at000b = EOL // 0x917 @0xb
0x090c…0918 }
0x0918…0925 967c 0850 HKUNDE=B
0x0918…0925 LineComalBin {
0x0918…0925 ptr = 0x967c // 0x918 @0x0
0x0918…0925 lno = 0x0352 // 0x91a @0x2
0x0918…0925 at0004 = ╱48╱H╱ // 0x91c @0x4
0x0918…0925 at0005 = ╱4b╱K╱ // 0x91d @0x5
0x0918…0925 at0006 = ╱55╱U╱ // 0x91e @0x6
0x0918…0925 at0007 = ╱4e╱N╱ // 0x91f @0x7
0x0918…0925 at0008 = ╱44╱D╱ // 0x920 @0x8
0x0918…0925 at0009 = ╱45╱E╱ // 0x921 @0x9
0x0918…0925 at000a = ╱dc╱=╱ // 0x922 @0xa
0x0918…0925 at000b = ╱42╱B╱ // 0x923 @0xb
0x0918…0925 at000c = EOL // 0x924 @0xc
0x0918…0925 }
0x0925…0942 9699 0860 DEBBY$=BLANK$(E:20)
0x0925…0942 LineComalBin {
0x0925…0942 ptr = 0x9699 // 0x925 @0x0
0x0925…0942 lno = 0x035c // 0x927 @0x2
0x0925…0942 at0004 = ╱44╱D╱ // 0x929 @0x4
0x0925…0942 at0005 = ╱45╱E╱ // 0x92a @0x5
0x0925…0942 at0006 = ╱42╱B╱ // 0x92b @0x6
0x0925…0942 at0007 = ╱42╱B╱ // 0x92c @0x7
0x0925…0942 at0008 = ╱59╱Y╱ // 0x92d @0x8
0x0925…0942 at0009 = ╱ef╱$╱ // 0x92e @0x9
0x0925…0942 at000a = ╱dc╱=╱ // 0x92f @0xa
0x0925…0942 at000b = ╱42╱B╱ // 0x930 @0xb
0x0925…0942 at000c = ╱4c╱L╱ // 0x931 @0xc
0x0925…0942 at000d = ╱41╱A╱ // 0x932 @0xd
0x0925…0942 at000e = ╱4e╱N╱ // 0x933 @0xe
0x0925…0942 at000f = ╱4b╱K╱ // 0x934 @0xf
0x0925…0942 at0010 = ╱ef╱$╱ // 0x935 @0x10
0x0925…0942 at0011 = ╱ed╱(╱ // 0x936 @0x11
0x0925…0942 at0012 = ╱45╱E╱ // 0x937 @0x12
0x0925…0942 at0013 = ╱f0╱:╱ // 0x938 @0x13
0x0925…0942 at0014 = ╱32╱2╱ // 0x939 @0x14
0x0925…0942 at0015 = ╱30╱0╱ // 0x93a @0x15
0x0925…0942 at0016 = ╱fe0000a005╱ // 0x93b @0x16
0x0925…0942 at001b = ╱ee╱)╱ // 0x940 @0x1b
0x0925…0942 at001c = EOL // 0x941 @0x1c
0x0925…0942 }
0x0942…0950 96a7 0870 EXEC GEMDPOST
0x0942…0950 LineComalBin {
0x0942…0950 ptr = 0x96a7 // 0x942 @0x0
0x0942…0950 lno = 0x0366 // 0x944 @0x2
0x0942…0950 at0004 = ╱9d╱ EXEC ╱ // 0x946 @0x4
0x0942…0950 at0005 = ╱47╱G╱ // 0x947 @0x5
0x0942…0950 at0006 = ╱45╱E╱ // 0x948 @0x6
0x0942…0950 at0007 = ╱4d╱M╱ // 0x949 @0x7
0x0942…0950 at0008 = ╱44╱D╱ // 0x94a @0x8
0x0942…0950 at0009 = ╱50╱P╱ // 0x94b @0x9
0x0942…0950 at000a = ╱4f╱O╱ // 0x94c @0xa
0x0942…0950 at000b = ╱53╱S╱ // 0x94d @0xb
0x0942…0950 at000c = ╱54╱T╱ // 0x94e @0xc
0x0942…0950 at000d = EOL // 0x94f @0xd
0x0942…0950 }
0x0950…0976 96cd 0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3)
0x0950…0976 LineComalBin {
0x0950…0976 ptr = 0x96cd // 0x950 @0x0
0x0950…0976 lno = 0x0370 // 0x952 @0x2
0x0950…0976 at0004 = ╱9d╱ EXEC ╱ // 0x954 @0x4
0x0950…0976 at0005 = ╱53╱S╱ // 0x955 @0x5
0x0950…0976 at0006 = ╱4c╱L╱ // 0x956 @0x6
0x0950…0976 at0007 = ╱45╱E╱ // 0x957 @0x7
0x0950…0976 at0008 = ╱54╱T╱ // 0x958 @0x8
0x0950…0976 at0009 = ╱50╱P╱ // 0x959 @0x9
0x0950…0976 at000a = ╱4f╱O╱ // 0x95a @0xa
0x0950…0976 at000b = ╱53╱S╱ // 0x95b @0xb
0x0950…0976 at000c = ╱54╱T╱ // 0x95c @0xc
0x0950…0976 at000d = ╱ed╱(╱ // 0x95d @0xd
0x0950…0976 at000e = ╱44╱D╱ // 0x95e @0xe
0x0950…0976 at000f = ╱54╱T╱ // 0x95f @0xf
0x0950…0976 at0010 = ╱41╱A╱ // 0x960 @0x10
0x0950…0976 at0011 = ╱42╱B╱ // 0x961 @0x11
0x0950…0976 at0012 = ╱ec╱,╱ // 0x962 @0x12
0x0950…0976 at0013 = ╱41╱A╱ // 0x963 @0x13
0x0950…0976 at0014 = ╱44╱D╱ // 0x964 @0x14
0x0950…0976 at0015 = ╱45╱E╱ // 0x965 @0x15
0x0950…0976 at0016 = ╱42╱B╱ // 0x966 @0x16
0x0950…0976 at0017 = ╱ec╱,╱ // 0x967 @0x17
0x0950…0976 at0018 = ╱4e╱N╱ // 0x968 @0x18
0x0950…0976 at0019 = ╱5c╱Ø╱ // 0x969 @0x19
0x0950…0976 at001a = ╱47╱G╱ // 0x96a @0x1a
0x0950…0976 at001b = ╱4c╱L╱ // 0x96b @0x1b
0x0950…0976 at001c = ╱45╱E╱ // 0x96c @0x1c
0x0950…0976 at001d = ╱33╱3╱ // 0x96d @0x1d
0x0950…0976 at001e = ╱ec╱,╱ // 0x96e @0x1e
0x0950…0976 at001f = ╱44╱D╱ // 0x96f @0x1f
0x0950…0976 at0020 = ╱50╱P╱ // 0x970 @0x20
0x0950…0976 at0021 = ╱49╱I╱ // 0x971 @0x21
0x0950…0976 at0022 = ╱4c╱L╱ // 0x972 @0x22
0x0950…0976 at0023 = ╱33╱3╱ // 0x973 @0x23
0x0950…0976 at0024 = ╱ee╱)╱ // 0x974 @0x24
0x0950…0976 at0025 = EOL // 0x975 @0x25
0x0950…0976 }
0x0976…097c 96d3 0890 ENDPROC
0x0976…097c LineComalBin {
0x0976…097c ptr = 0x96d3 // 0x976 @0x0
0x0976…097c lno = 0x037a // 0x978 @0x2
0x0976…097c at0004 = ╱9f╱ ENDPROC ╱ // 0x97a @0x4
0x0976…097c at0005 = EOL // 0x97b @0x5
0x0976…097c }
0x097c…09a0 96f7 0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)
0x097c…09a0 LineComalBin {
0x097c…09a0 ptr = 0x96f7 // 0x97c @0x0
0x097c…09a0 lno = 0x0384 // 0x97e @0x2
0x097c…09a0 at0004 = ╱9e╱ PROC ╱ // 0x980 @0x4
0x097c…09a0 at0005 = ╱49╱I╱ // 0x981 @0x5
0x097c…09a0 at0006 = ╱4e╱N╱ // 0x982 @0x6
0x097c…09a0 at0007 = ╱44╱D╱ // 0x983 @0x7
0x097c…09a0 at0008 = ╱53╱S╱ // 0x984 @0x8
0x097c…09a0 at0009 = ╱5b╱Æ╱ // 0x985 @0x9
0x097c…09a0 at000a = ╱54╱T╱ // 0x986 @0xa
0x097c…09a0 at000b = ╱ed╱(╱ // 0x987 @0xb
0x097c…09a0 at000c = ╱54╱T╱ // 0x988 @0xc
0x097c…09a0 at000d = ╱41╱A╱ // 0x989 @0xd
0x097c…09a0 at000e = ╱42╱B╱ // 0x98a @0xe
0x097c…09a0 at000f = ╱32╱2╱ // 0x98b @0xf
0x097c…09a0 at0010 = ╱ec╱,╱ // 0x98c @0x10
0x097c…09a0 at0011 = ╱41╱A╱ // 0x98d @0x11
0x097c…09a0 at0012 = ╱4e╱N╱ // 0x98e @0x12
0x097c…09a0 at0013 = ╱54╱T╱ // 0x98f @0x13
0x097c…09a0 at0014 = ╱41╱A╱ // 0x990 @0x14
0x097c…09a0 at0015 = ╱4c╱L╱ // 0x991 @0x15
0x097c…09a0 at0016 = ╱32╱2╱ // 0x992 @0x16
0x097c…09a0 at0017 = ╱ec╱,╱ // 0x993 @0x17
0x097c…09a0 at0018 = ╱4e╱N╱ // 0x994 @0x18
0x097c…09a0 at0019 = ╱5c╱Ø╱ // 0x995 @0x19
0x097c…09a0 at001a = ╱47╱G╱ // 0x996 @0x1a
0x097c…09a0 at001b = ╱4c╱L╱ // 0x997 @0x1b
0x097c…09a0 at001c = ╱32╱2╱ // 0x998 @0x1c
0x097c…09a0 at001d = ╱ec╱,╱ // 0x999 @0x1d
0x097c…09a0 at001e = ╱50╱P╱ // 0x99a @0x1e
0x097c…09a0 at001f = ╱49╱I╱ // 0x99b @0x1f
0x097c…09a0 at0020 = ╱4c╱L╱ // 0x99c @0x20
0x097c…09a0 at0021 = ╱34╱4╱ // 0x99d @0x21
0x097c…09a0 at0022 = ╱ee╱)╱ // 0x99e @0x22
0x097c…09a0 at0023 = EOL // 0x99f @0x23
0x097c…09a0 }
0x09a0…09ad (32,) 9704 0910 IF CEKS=E THEN
0x09a0…09ad LineComalBin {
0x09a0…09ad ptr = 0x9704 // 0x9a0 @0x0
0x09a0…09ad lno = 0x038e // 0x9a2 @0x2
0x09a0…09ad at0004 = ╱9c╱ IF ╱ // 0x9a4 @0x4
0x09a0…09ad at0005 = ╱43╱C╱ // 0x9a5 @0x5
0x09a0…09ad at0006 = ╱45╱E╱ // 0x9a6 @0x6
0x09a0…09ad at0007 = ╱4b╱K╱ // 0x9a7 @0x7
0x09a0…09ad at0008 = ╱53╱S╱ // 0x9a8 @0x8
0x09a0…09ad at0009 = ╱dc╱=╱ // 0x9a9 @0x9
0x09a0…09ad at000a = ╱45╱E╱ // 0x9aa @0xa
0x09a0…09ad at000b = ╱b6╱ THEN ╱ // 0x9ab @0xb
0x09a0…09ad at000c = EOL // 0x9ac @0xc
0x09a0…09ad }
0x09ad…09c9 9720 0920 POSTNR=TAB2(ANTAL2+E,G)
0x09ad…09c9 LineComalBin {
0x09ad…09c9 ptr = 0x9720 // 0x9ad @0x0
0x09ad…09c9 lno = 0x0398 // 0x9af @0x2
0x09ad…09c9 at0004 = ╱50╱P╱ // 0x9b1 @0x4
0x09ad…09c9 at0005 = ╱4f╱O╱ // 0x9b2 @0x5
0x09ad…09c9 at0006 = ╱53╱S╱ // 0x9b3 @0x6
0x09ad…09c9 at0007 = ╱54╱T╱ // 0x9b4 @0x7
0x09ad…09c9 at0008 = ╱4e╱N╱ // 0x9b5 @0x8
0x09ad…09c9 at0009 = ╱52╱R╱ // 0x9b6 @0x9
0x09ad…09c9 at000a = ╱dc╱=╱ // 0x9b7 @0xa
0x09ad…09c9 at000b = ╱54╱T╱ // 0x9b8 @0xb
0x09ad…09c9 at000c = ╱41╱A╱ // 0x9b9 @0xc
0x09ad…09c9 at000d = ╱42╱B╱ // 0x9ba @0xd
0x09ad…09c9 at000e = ╱32╱2╱ // 0x9bb @0xe
0x09ad…09c9 at000f = ╱ed╱(╱ // 0x9bc @0xf
0x09ad…09c9 at0010 = ╱41╱A╱ // 0x9bd @0x10
0x09ad…09c9 at0011 = ╱4e╱N╱ // 0x9be @0x11
0x09ad…09c9 at0012 = ╱54╱T╱ // 0x9bf @0x12
0x09ad…09c9 at0013 = ╱41╱A╱ // 0x9c0 @0x13
0x09ad…09c9 at0014 = ╱4c╱L╱ // 0x9c1 @0x14
0x09ad…09c9 at0015 = ╱32╱2╱ // 0x9c2 @0x15
0x09ad…09c9 at0016 = ╱e2╱+╱ // 0x9c3 @0x16
0x09ad…09c9 at0017 = ╱45╱E╱ // 0x9c4 @0x17
0x09ad…09c9 at0018 = ╱ec╱,╱ // 0x9c5 @0x18
0x09ad…09c9 at0019 = ╱47╱G╱ // 0x9c6 @0x19
0x09ad…09c9 at001a = ╱ee╱)╱ // 0x9c7 @0x1a
0x09ad…09c9 at001b = EOL // 0x9c8 @0x1b
0x09ad…09c9 }
0x09c9…0a07 975e 0930 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E
0x09c9…0a07 LineComalBin {
0x09c9…0a07 ptr = 0x975e // 0x9c9 @0x0
0x09c9…0a07 lno = 0x03a2 // 0x9cb @0x2
0x09c9…0a07 at0004 = ╱82╱ IF ╱ // 0x9cd @0x4
0x09c9…0a07 at0005 = ╱4e╱N╱ // 0x9ce @0x5
0x09c9…0a07 at0006 = ╱5c╱Ø╱ // 0x9cf @0x6
0x09c9…0a07 at0007 = ╱47╱G╱ // 0x9d0 @0x7
0x09c9…0a07 at0008 = ╱4c╱L╱ // 0x9d1 @0x8
0x09c9…0a07 at0009 = ╱32╱2╱ // 0x9d2 @0x9
0x09c9…0a07 at000a = ╱de╱>╱ // 0x9d3 @0xa
0x09c9…0a07 at000b = ╱54╱T╱ // 0x9d4 @0xb
0x09c9…0a07 at000c = ╱41╱A╱ // 0x9d5 @0xc
0x09c9…0a07 at000d = ╱42╱B╱ // 0x9d6 @0xd
0x09c9…0a07 at000e = ╱32╱2╱ // 0x9d7 @0xe
0x09c9…0a07 at000f = ╱ed╱(╱ // 0x9d8 @0xf
0x09c9…0a07 at0010 = ╱50╱P╱ // 0x9d9 @0x10
0x09c9…0a07 at0011 = ╱49╱I╱ // 0x9da @0x11
0x09c9…0a07 at0012 = ╱4c╱L╱ // 0x9db @0x12
0x09c9…0a07 at0013 = ╱34╱4╱ // 0x9dc @0x13
0x09c9…0a07 at0014 = ╱ec╱,╱ // 0x9dd @0x14
0x09c9…0a07 at0015 = ╱45╱E╱ // 0x9de @0x15
0x09c9…0a07 at0016 = ╱ee╱)╱ // 0x9df @0x16
0x09c9…0a07 at0017 = ╱da╱ AND ╱ // 0x9e0 @0x17
0x09c9…0a07 at0018 = ╱54╱T╱ // 0x9e1 @0x18
0x09c9…0a07 at0019 = ╱41╱A╱ // 0x9e2 @0x19
0x09c9…0a07 at001a = ╱42╱B╱ // 0x9e3 @0x1a
0x09c9…0a07 at001b = ╱32╱2╱ // 0x9e4 @0x1b
0x09c9…0a07 at001c = ╱ed╱(╱ // 0x9e5 @0x1c
0x09c9…0a07 at001d = ╱50╱P╱ // 0x9e6 @0x1d
0x09c9…0a07 at001e = ╱49╱I╱ // 0x9e7 @0x1e
0x09c9…0a07 at001f = ╱4c╱L╱ // 0x9e8 @0x1f
0x09c9…0a07 at0020 = ╱34╱4╱ // 0x9e9 @0x20
0x09c9…0a07 at0021 = ╱ec╱,╱ // 0x9ea @0x21
0x09c9…0a07 at0022 = ╱45╱E╱ // 0x9eb @0x22
0x09c9…0a07 at0023 = ╱ee╱)╱ // 0x9ec @0x23
0x09c9…0a07 at0024 = ╱e1╱<>╱ // 0x9ed @0x24
0x09c9…0a07 at0025 = ╱31╱1╱ // 0x9ee @0x25
0x09c9…0a07 at0026 = ╱30╱0╱ // 0x9ef @0x26
0x09c9…0a07 at0027 = ╱30╱0╱ // 0x9f0 @0x27
0x09c9…0a07 at0028 = ╱30╱0╱ // 0x9f1 @0x28
0x09c9…0a07 at0029 = ╱30╱0╱ // 0x9f2 @0x29
0x09c9…0a07 at002a = ╱30╱0╱ // 0x9f3 @0x2a
0x09c9…0a07 at002b = ╱30╱0╱ // 0x9f4 @0x2b
0x09c9…0a07 at002c = ╱fe0024f414╱ // 0x9f5 @0x2c
0x09c9…0a07 at0031 = ╱b6╱ THEN ╱ // 0x9fa @0x31
0x09c9…0a07 at0032 = ╱50╱P╱ // 0x9fb @0x32
0x09c9…0a07 at0033 = ╱49╱I╱ // 0x9fc @0x33
0x09c9…0a07 at0034 = ╱4c╱L╱ // 0x9fd @0x34
0x09c9…0a07 at0035 = ╱34╱4╱ // 0x9fe @0x35
0x09c9…0a07 at0036 = ╱dc╱=╱ // 0x9ff @0x36
0x09c9…0a07 at0037 = ╱50╱P╱ // 0xa00 @0x37
0x09c9…0a07 at0038 = ╱49╱I╱ // 0xa01 @0x38
0x09c9…0a07 at0039 = ╱4c╱L╱ // 0xa02 @0x39
0x09c9…0a07 at003a = ╱34╱4╱ // 0xa03 @0x3a
0x09c9…0a07 at003b = ╱e2╱+╱ // 0xa04 @0x3b
0x09c9…0a07 at003c = ╱45╱E╱ // 0xa05 @0x3c
0x09c9…0a07 at003d = EOL // 0xa06 @0x3d
0x09c9…0a07 }
0x0a07…0a21 9778 0940 FOR J=ANTAL2+E TO PIL4+E STEP -E
0x0a07…0a21 LineComalBin {
0x0a07…0a21 ptr = 0x9778 // 0xa07 @0x0
0x0a07…0a21 lno = 0x03ac // 0xa09 @0x2
0x0a07…0a21 at0004 = ╱83╱ FOR ╱ // 0xa0b @0x4
0x0a07…0a21 at0005 = ╱4a╱J╱ // 0xa0c @0x5
0x0a07…0a21 at0006 = ╱dc╱=╱ // 0xa0d @0x6
0x0a07…0a21 at0007 = ╱41╱A╱ // 0xa0e @0x7
0x0a07…0a21 at0008 = ╱4e╱N╱ // 0xa0f @0x8
0x0a07…0a21 at0009 = ╱54╱T╱ // 0xa10 @0x9
0x0a07…0a21 at000a = ╱41╱A╱ // 0xa11 @0xa
0x0a07…0a21 at000b = ╱4c╱L╱ // 0xa12 @0xb
0x0a07…0a21 at000c = ╱32╱2╱ // 0xa13 @0xc
0x0a07…0a21 at000d = ╱e2╱+╱ // 0xa14 @0xd
0x0a07…0a21 at000e = ╱45╱E╱ // 0xa15 @0xe
0x0a07…0a21 at000f = ╱b7╱ TO ╱ // 0xa16 @0xf
0x0a07…0a21 at0010 = ╱50╱P╱ // 0xa17 @0x10
0x0a07…0a21 at0011 = ╱49╱I╱ // 0xa18 @0x11
0x0a07…0a21 at0012 = ╱4c╱L╱ // 0xa19 @0x12
0x0a07…0a21 at0013 = ╱34╱4╱ // 0xa1a @0x13
0x0a07…0a21 at0014 = ╱e2╱+╱ // 0xa1b @0x14
0x0a07…0a21 at0015 = ╱45╱E╱ // 0xa1c @0x15
0x0a07…0a21 at0016 = ╱b8╱ STEP ╱ // 0xa1d @0x16
0x0a07…0a21 at0017 = ╱e9╱-╱ // 0xa1e @0x17
0x0a07…0a21 at0018 = ╱45╱E╱ // 0xa1f @0x18
0x0a07…0a21 at0019 = EOL // 0xa20 @0x19
0x0a07…0a21 }
0x0a21…0a3b 9792 0950 TAB2(J,E)=TAB2(J-E,E)
0x0a21…0a3b LineComalBin {
0x0a21…0a3b ptr = 0x9792 // 0xa21 @0x0
0x0a21…0a3b lno = 0x03b6 // 0xa23 @0x2
0x0a21…0a3b at0004 = ╱54╱T╱ // 0xa25 @0x4
0x0a21…0a3b at0005 = ╱41╱A╱ // 0xa26 @0x5
0x0a21…0a3b at0006 = ╱42╱B╱ // 0xa27 @0x6
0x0a21…0a3b at0007 = ╱32╱2╱ // 0xa28 @0x7
0x0a21…0a3b at0008 = ╱ed╱(╱ // 0xa29 @0x8
0x0a21…0a3b at0009 = ╱4a╱J╱ // 0xa2a @0x9
0x0a21…0a3b at000a = ╱ec╱,╱ // 0xa2b @0xa
0x0a21…0a3b at000b = ╱45╱E╱ // 0xa2c @0xb
0x0a21…0a3b at000c = ╱ee╱)╱ // 0xa2d @0xc
0x0a21…0a3b at000d = ╱dc╱=╱ // 0xa2e @0xd
0x0a21…0a3b at000e = ╱54╱T╱ // 0xa2f @0xe
0x0a21…0a3b at000f = ╱41╱A╱ // 0xa30 @0xf
0x0a21…0a3b at0010 = ╱42╱B╱ // 0xa31 @0x10
0x0a21…0a3b at0011 = ╱32╱2╱ // 0xa32 @0x11
0x0a21…0a3b at0012 = ╱ed╱(╱ // 0xa33 @0x12
0x0a21…0a3b at0013 = ╱4a╱J╱ // 0xa34 @0x13
0x0a21…0a3b at0014 = ╱e3╱-╱ // 0xa35 @0x14
0x0a21…0a3b at0015 = ╱45╱E╱ // 0xa36 @0x15
0x0a21…0a3b at0016 = ╱ec╱,╱ // 0xa37 @0x16
0x0a21…0a3b at0017 = ╱45╱E╱ // 0xa38 @0x17
0x0a21…0a3b at0018 = ╱ee╱)╱ // 0xa39 @0x18
0x0a21…0a3b at0019 = EOL // 0xa3a @0x19
0x0a21…0a3b }
0x0a3b…0a55 97ac 0960 TAB2(J,G)=TAB2(J-E,G)
0x0a3b…0a55 LineComalBin {
0x0a3b…0a55 ptr = 0x97ac // 0xa3b @0x0
0x0a3b…0a55 lno = 0x03c0 // 0xa3d @0x2
0x0a3b…0a55 at0004 = ╱54╱T╱ // 0xa3f @0x4
0x0a3b…0a55 at0005 = ╱41╱A╱ // 0xa40 @0x5
0x0a3b…0a55 at0006 = ╱42╱B╱ // 0xa41 @0x6
0x0a3b…0a55 at0007 = ╱32╱2╱ // 0xa42 @0x7
0x0a3b…0a55 at0008 = ╱ed╱(╱ // 0xa43 @0x8
0x0a3b…0a55 at0009 = ╱4a╱J╱ // 0xa44 @0x9
0x0a3b…0a55 at000a = ╱ec╱,╱ // 0xa45 @0xa
0x0a3b…0a55 at000b = ╱47╱G╱ // 0xa46 @0xb
0x0a3b…0a55 at000c = ╱ee╱)╱ // 0xa47 @0xc
0x0a3b…0a55 at000d = ╱dc╱=╱ // 0xa48 @0xd
0x0a3b…0a55 at000e = ╱54╱T╱ // 0xa49 @0xe
0x0a3b…0a55 at000f = ╱41╱A╱ // 0xa4a @0xf
0x0a3b…0a55 at0010 = ╱42╱B╱ // 0xa4b @0x10
0x0a3b…0a55 at0011 = ╱32╱2╱ // 0xa4c @0x11
0x0a3b…0a55 at0012 = ╱ed╱(╱ // 0xa4d @0x12
0x0a3b…0a55 at0013 = ╱4a╱J╱ // 0xa4e @0x13
0x0a3b…0a55 at0014 = ╱e3╱-╱ // 0xa4f @0x14
0x0a3b…0a55 at0015 = ╱45╱E╱ // 0xa50 @0x15
0x0a3b…0a55 at0016 = ╱ec╱,╱ // 0xa51 @0x16
0x0a3b…0a55 at0017 = ╱47╱G╱ // 0xa52 @0x17
0x0a3b…0a55 at0018 = ╱ee╱)╱ // 0xa53 @0x18
0x0a3b…0a55 at0019 = EOL // 0xa54 @0x19
0x0a3b…0a55 }
0x0a55…0a5c 97b3 0970 NEXT J
0x0a55…0a5c LineComalBin {
0x0a55…0a5c ptr = 0x97b3 // 0xa55 @0x0
0x0a55…0a5c lno = 0x03ca // 0xa57 @0x2
0x0a55…0a5c at0004 = ╱84╱ NEXT ╱ // 0xa59 @0x4
0x0a55…0a5c at0005 = ╱4a╱J╱ // 0xa5a @0x5
0x0a55…0a5c at0006 = EOL // 0xa5b @0x6
0x0a55…0a5c }
0x0a5c…0a73 97ca 0980 TAB2(PIL4,E)=NØGL2
0x0a5c…0a73 LineComalBin {
0x0a5c…0a73 ptr = 0x97ca // 0xa5c @0x0
0x0a5c…0a73 lno = 0x03d4 // 0xa5e @0x2
0x0a5c…0a73 at0004 = ╱54╱T╱ // 0xa60 @0x4
0x0a5c…0a73 at0005 = ╱41╱A╱ // 0xa61 @0x5
0x0a5c…0a73 at0006 = ╱42╱B╱ // 0xa62 @0x6
0x0a5c…0a73 at0007 = ╱32╱2╱ // 0xa63 @0x7
0x0a5c…0a73 at0008 = ╱ed╱(╱ // 0xa64 @0x8
0x0a5c…0a73 at0009 = ╱50╱P╱ // 0xa65 @0x9
0x0a5c…0a73 at000a = ╱49╱I╱ // 0xa66 @0xa
0x0a5c…0a73 at000b = ╱4c╱L╱ // 0xa67 @0xb
0x0a5c…0a73 at000c = ╱34╱4╱ // 0xa68 @0xc
0x0a5c…0a73 at000d = ╱ec╱,╱ // 0xa69 @0xd
0x0a5c…0a73 at000e = ╱45╱E╱ // 0xa6a @0xe
0x0a5c…0a73 at000f = ╱ee╱)╱ // 0xa6b @0xf
0x0a5c…0a73 at0010 = ╱dc╱=╱ // 0xa6c @0x10
0x0a5c…0a73 at0011 = ╱4e╱N╱ // 0xa6d @0x11
0x0a5c…0a73 at0012 = ╱5c╱Ø╱ // 0xa6e @0x12
0x0a5c…0a73 at0013 = ╱47╱G╱ // 0xa6f @0x13
0x0a5c…0a73 at0014 = ╱4c╱L╱ // 0xa70 @0x14
0x0a5c…0a73 at0015 = ╱32╱2╱ // 0xa71 @0x15
0x0a5c…0a73 at0016 = EOL // 0xa72 @0x16
0x0a5c…0a73 }
0x0a73…0a8b 97e2 0990 TAB2(PIL4,G)=POSTNR
0x0a73…0a8b LineComalBin {
0x0a73…0a8b ptr = 0x97e2 // 0xa73 @0x0
0x0a73…0a8b lno = 0x03de // 0xa75 @0x2
0x0a73…0a8b at0004 = ╱54╱T╱ // 0xa77 @0x4
0x0a73…0a8b at0005 = ╱41╱A╱ // 0xa78 @0x5
0x0a73…0a8b at0006 = ╱42╱B╱ // 0xa79 @0x6
0x0a73…0a8b at0007 = ╱32╱2╱ // 0xa7a @0x7
0x0a73…0a8b at0008 = ╱ed╱(╱ // 0xa7b @0x8
0x0a73…0a8b at0009 = ╱50╱P╱ // 0xa7c @0x9
0x0a73…0a8b at000a = ╱49╱I╱ // 0xa7d @0xa
0x0a73…0a8b at000b = ╱4c╱L╱ // 0xa7e @0xb
0x0a73…0a8b at000c = ╱34╱4╱ // 0xa7f @0xc
0x0a73…0a8b at000d = ╱ec╱,╱ // 0xa80 @0xd
0x0a73…0a8b at000e = ╱47╱G╱ // 0xa81 @0xe
0x0a73…0a8b at000f = ╱ee╱)╱ // 0xa82 @0xf
0x0a73…0a8b at0010 = ╱dc╱=╱ // 0xa83 @0x10
0x0a73…0a8b at0011 = ╱50╱P╱ // 0xa84 @0x11
0x0a73…0a8b at0012 = ╱4f╱O╱ // 0xa85 @0x12
0x0a73…0a8b at0013 = ╱53╱S╱ // 0xa86 @0x13
0x0a73…0a8b at0014 = ╱54╱T╱ // 0xa87 @0x14
0x0a73…0a8b at0015 = ╱4e╱N╱ // 0xa88 @0x15
0x0a73…0a8b at0016 = ╱52╱R╱ // 0xa89 @0x16
0x0a73…0a8b at0017 = EOL // 0xa8a @0x17
0x0a73…0a8b }
0x0a8b…0a9f 97f6 1000 ANTAL2=ANTAL2+E
0x0a8b…0a9f LineComalBin {
0x0a8b…0a9f ptr = 0x97f6 // 0xa8b @0x0
0x0a8b…0a9f lno = 0x03e8 // 0xa8d @0x2
0x0a8b…0a9f at0004 = ╱41╱A╱ // 0xa8f @0x4
0x0a8b…0a9f at0005 = ╱4e╱N╱ // 0xa90 @0x5
0x0a8b…0a9f at0006 = ╱54╱T╱ // 0xa91 @0x6
0x0a8b…0a9f at0007 = ╱41╱A╱ // 0xa92 @0x7
0x0a8b…0a9f at0008 = ╱4c╱L╱ // 0xa93 @0x8
0x0a8b…0a9f at0009 = ╱32╱2╱ // 0xa94 @0x9
0x0a8b…0a9f at000a = ╱dc╱=╱ // 0xa95 @0xa
0x0a8b…0a9f at000b = ╱41╱A╱ // 0xa96 @0xb
0x0a8b…0a9f at000c = ╱4e╱N╱ // 0xa97 @0xc
0x0a8b…0a9f at000d = ╱54╱T╱ // 0xa98 @0xd
0x0a8b…0a9f at000e = ╱41╱A╱ // 0xa99 @0xe
0x0a8b…0a9f at000f = ╱4c╱L╱ // 0xa9a @0xf
0x0a8b…0a9f at0010 = ╱32╱2╱ // 0xa9b @0x10
0x0a8b…0a9f at0011 = ╱e2╱+╱ // 0xa9c @0x11
0x0a8b…0a9f at0012 = ╱45╱E╱ // 0xa9d @0x12
0x0a8b…0a9f at0013 = EOL // 0xa9e @0x13
0x0a8b…0a9f }
0x0a9f…0aa5 97fc 1010 ENDIF
0x0a9f…0aa5 LineComalBin {
0x0a9f…0aa5 ptr = 0x97fc // 0xa9f @0x0
0x0a9f…0aa5 lno = 0x03f2 // 0xaa1 @0x2
0x0a9f…0aa5 at0004 = ╱9b╱ ENDIF ╱ // 0xaa3 @0x4
0x0a9f…0aa5 at0005 = EOL // 0xaa4 @0x5
0x0a9f…0aa5 }
0x0aa5…0aab 9802 1020 ENDPROC
0x0aa5…0aab LineComalBin {
0x0aa5…0aab ptr = 0x9802 // 0xaa5 @0x0
0x0aa5…0aab lno = 0x03fc // 0xaa7 @0x2
0x0aa5…0aab at0004 = ╱9f╱ ENDPROC ╱ // 0xaa9 @0x4
0x0aa5…0aab at0005 = EOL // 0xaaa @0x5
0x0aa5…0aab }
0x0aab…0ad1 9828 1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)
0x0aab…0ad1 LineComalBin {
0x0aab…0ad1 ptr = 0x9828 // 0xaab @0x0
0x0aab…0ad1 lno = 0x0406 // 0xaad @0x2
0x0aab…0ad1 at0004 = ╱9e╱ PROC ╱ // 0xaaf @0x4
0x0aab…0ad1 at0005 = ╱53╱S╱ // 0xab0 @0x5
0x0aab…0ad1 at0006 = ╱4c╱L╱ // 0xab1 @0x6
0x0aab…0ad1 at0007 = ╱45╱E╱ // 0xab2 @0x7
0x0aab…0ad1 at0008 = ╱54╱T╱ // 0xab3 @0x8
0x0aab…0ad1 at0009 = ╱50╱P╱ // 0xab4 @0x9
0x0aab…0ad1 at000a = ╱4f╱O╱ // 0xab5 @0xa
0x0aab…0ad1 at000b = ╱53╱S╱ // 0xab6 @0xb
0x0aab…0ad1 at000c = ╱54╱T╱ // 0xab7 @0xc
0x0aab…0ad1 at000d = ╱ed╱(╱ // 0xab8 @0xd
0x0aab…0ad1 at000e = ╱54╱T╱ // 0xab9 @0xe
0x0aab…0ad1 at000f = ╱41╱A╱ // 0xaba @0xf
0x0aab…0ad1 at0010 = ╱42╱B╱ // 0xabb @0x10
0x0aab…0ad1 at0011 = ╱33╱3╱ // 0xabc @0x11
0x0aab…0ad1 at0012 = ╱ec╱,╱ // 0xabd @0x12
0x0aab…0ad1 at0013 = ╱41╱A╱ // 0xabe @0x13
0x0aab…0ad1 at0014 = ╱4e╱N╱ // 0xabf @0x14
0x0aab…0ad1 at0015 = ╱54╱T╱ // 0xac0 @0x15
0x0aab…0ad1 at0016 = ╱41╱A╱ // 0xac1 @0x16
0x0aab…0ad1 at0017 = ╱4c╱L╱ // 0xac2 @0x17
0x0aab…0ad1 at0018 = ╱33╱3╱ // 0xac3 @0x18
0x0aab…0ad1 at0019 = ╱ec╱,╱ // 0xac4 @0x19
0x0aab…0ad1 at001a = ╱4e╱N╱ // 0xac5 @0x1a
0x0aab…0ad1 at001b = ╱5c╱Ø╱ // 0xac6 @0x1b
0x0aab…0ad1 at001c = ╱47╱G╱ // 0xac7 @0x1c
0x0aab…0ad1 at001d = ╱4c╱L╱ // 0xac8 @0x1d
0x0aab…0ad1 at001e = ╱33╱3╱ // 0xac9 @0x1e
0x0aab…0ad1 at001f = ╱ec╱,╱ // 0xaca @0x1f
0x0aab…0ad1 at0020 = ╱50╱P╱ // 0xacb @0x20
0x0aab…0ad1 at0021 = ╱49╱I╱ // 0xacc @0x21
0x0aab…0ad1 at0022 = ╱4c╱L╱ // 0xacd @0x22
0x0aab…0ad1 at0023 = ╱35╱5╱ // 0xace @0x23
0x0aab…0ad1 at0024 = ╱ee╱)╱ // 0xacf @0x24
0x0aab…0ad1 at0025 = EOL // 0xad0 @0x25
0x0aab…0ad1 }
0x0ad1…0ade 9835 1040 IF CEKS=B THEN
0x0ad1…0ade LineComalBin {
0x0ad1…0ade ptr = 0x9835 // 0xad1 @0x0
0x0ad1…0ade lno = 0x0410 // 0xad3 @0x2
0x0ad1…0ade at0004 = ╱9c╱ IF ╱ // 0xad5 @0x4
0x0ad1…0ade at0005 = ╱43╱C╱ // 0xad6 @0x5
0x0ad1…0ade at0006 = ╱45╱E╱ // 0xad7 @0x6
0x0ad1…0ade at0007 = ╱4b╱K╱ // 0xad8 @0x7
0x0ad1…0ade at0008 = ╱53╱S╱ // 0xad9 @0x8
0x0ad1…0ade at0009 = ╱dc╱=╱ // 0xada @0x9
0x0ad1…0ade at000a = ╱42╱B╱ // 0xadb @0xa
0x0ad1…0ade at000b = ╱b6╱ THEN ╱ // 0xadc @0xb
0x0ad1…0ade at000c = EOL // 0xadd @0xc
0x0ad1…0ade }
0x0ade…0af6 984d 1050 POSTNR=TAB3(PIL5,G)
0x0ade…0af6 LineComalBin {
0x0ade…0af6 ptr = 0x984d // 0xade @0x0
0x0ade…0af6 lno = 0x041a // 0xae0 @0x2
0x0ade…0af6 at0004 = ╱50╱P╱ // 0xae2 @0x4
0x0ade…0af6 at0005 = ╱4f╱O╱ // 0xae3 @0x5
0x0ade…0af6 at0006 = ╱53╱S╱ // 0xae4 @0x6
0x0ade…0af6 at0007 = ╱54╱T╱ // 0xae5 @0x7
0x0ade…0af6 at0008 = ╱4e╱N╱ // 0xae6 @0x8
0x0ade…0af6 at0009 = ╱52╱R╱ // 0xae7 @0x9
0x0ade…0af6 at000a = ╱dc╱=╱ // 0xae8 @0xa
0x0ade…0af6 at000b = ╱54╱T╱ // 0xae9 @0xb
0x0ade…0af6 at000c = ╱41╱A╱ // 0xaea @0xc
0x0ade…0af6 at000d = ╱42╱B╱ // 0xaeb @0xd
0x0ade…0af6 at000e = ╱33╱3╱ // 0xaec @0xe
0x0ade…0af6 at000f = ╱ed╱(╱ // 0xaed @0xf
0x0ade…0af6 at0010 = ╱50╱P╱ // 0xaee @0x10
0x0ade…0af6 at0011 = ╱49╱I╱ // 0xaef @0x11
0x0ade…0af6 at0012 = ╱4c╱L╱ // 0xaf0 @0x12
0x0ade…0af6 at0013 = ╱35╱5╱ // 0xaf1 @0x13
0x0ade…0af6 at0014 = ╱ec╱,╱ // 0xaf2 @0x14
0x0ade…0af6 at0015 = ╱47╱G╱ // 0xaf3 @0x15
0x0ade…0af6 at0016 = ╱ee╱)╱ // 0xaf4 @0x16
0x0ade…0af6 at0017 = EOL // 0xaf5 @0x17
0x0ade…0af6 }
0x0af6…0b0b 9862 1060 FOR I=PIL5 TO ANTAL3-E
0x0af6…0b0b LineComalBin {
0x0af6…0b0b ptr = 0x9862 // 0xaf6 @0x0
0x0af6…0b0b lno = 0x0424 // 0xaf8 @0x2
0x0af6…0b0b at0004 = ╱83╱ FOR ╱ // 0xafa @0x4
0x0af6…0b0b at0005 = ╱49╱I╱ // 0xafb @0x5
0x0af6…0b0b at0006 = ╱dc╱=╱ // 0xafc @0x6
0x0af6…0b0b at0007 = ╱50╱P╱ // 0xafd @0x7
0x0af6…0b0b at0008 = ╱49╱I╱ // 0xafe @0x8
0x0af6…0b0b at0009 = ╱4c╱L╱ // 0xaff @0x9
0x0af6…0b0b at000a = ╱35╱5╱ // 0xb00 @0xa
0x0af6…0b0b at000b = ╱b7╱ TO ╱ // 0xb01 @0xb
0x0af6…0b0b at000c = ╱41╱A╱ // 0xb02 @0xc
0x0af6…0b0b at000d = ╱4e╱N╱ // 0xb03 @0xd
0x0af6…0b0b at000e = ╱54╱T╱ // 0xb04 @0xe
0x0af6…0b0b at000f = ╱41╱A╱ // 0xb05 @0xf
0x0af6…0b0b at0010 = ╱4c╱L╱ // 0xb06 @0x10
0x0af6…0b0b at0011 = ╱33╱3╱ // 0xb07 @0x11
0x0af6…0b0b at0012 = ╱e3╱-╱ // 0xb08 @0x12
0x0af6…0b0b at0013 = ╱45╱E╱ // 0xb09 @0x13
0x0af6…0b0b at0014 = EOL // 0xb0a @0x14
0x0af6…0b0b }
0x0b0b…0b25 987c 1070 TAB3(I,E)=TAB3(I+E,E)
0x0b0b…0b25 LineComalBin {
0x0b0b…0b25 ptr = 0x987c // 0xb0b @0x0
0x0b0b…0b25 lno = 0x042e // 0xb0d @0x2
0x0b0b…0b25 at0004 = ╱54╱T╱ // 0xb0f @0x4
0x0b0b…0b25 at0005 = ╱41╱A╱ // 0xb10 @0x5
0x0b0b…0b25 at0006 = ╱42╱B╱ // 0xb11 @0x6
0x0b0b…0b25 at0007 = ╱33╱3╱ // 0xb12 @0x7
0x0b0b…0b25 at0008 = ╱ed╱(╱ // 0xb13 @0x8
0x0b0b…0b25 at0009 = ╱49╱I╱ // 0xb14 @0x9
0x0b0b…0b25 at000a = ╱ec╱,╱ // 0xb15 @0xa
0x0b0b…0b25 at000b = ╱45╱E╱ // 0xb16 @0xb
0x0b0b…0b25 at000c = ╱ee╱)╱ // 0xb17 @0xc
0x0b0b…0b25 at000d = ╱dc╱=╱ // 0xb18 @0xd
0x0b0b…0b25 at000e = ╱54╱T╱ // 0xb19 @0xe
0x0b0b…0b25 at000f = ╱41╱A╱ // 0xb1a @0xf
0x0b0b…0b25 at0010 = ╱42╱B╱ // 0xb1b @0x10
0x0b0b…0b25 at0011 = ╱33╱3╱ // 0xb1c @0x11
0x0b0b…0b25 at0012 = ╱ed╱(╱ // 0xb1d @0x12
0x0b0b…0b25 at0013 = ╱49╱I╱ // 0xb1e @0x13
0x0b0b…0b25 at0014 = ╱e2╱+╱ // 0xb1f @0x14
0x0b0b…0b25 at0015 = ╱45╱E╱ // 0xb20 @0x15
0x0b0b…0b25 at0016 = ╱ec╱,╱ // 0xb21 @0x16
0x0b0b…0b25 at0017 = ╱45╱E╱ // 0xb22 @0x17
0x0b0b…0b25 at0018 = ╱ee╱)╱ // 0xb23 @0x18
0x0b0b…0b25 at0019 = EOL // 0xb24 @0x19
0x0b0b…0b25 }
0x0b25…0b3f 9896 1080 TAB3(I,G)=TAB3(I+E,G)
0x0b25…0b3f LineComalBin {
0x0b25…0b3f ptr = 0x9896 // 0xb25 @0x0
0x0b25…0b3f lno = 0x0438 // 0xb27 @0x2
0x0b25…0b3f at0004 = ╱54╱T╱ // 0xb29 @0x4
0x0b25…0b3f at0005 = ╱41╱A╱ // 0xb2a @0x5
0x0b25…0b3f at0006 = ╱42╱B╱ // 0xb2b @0x6
0x0b25…0b3f at0007 = ╱33╱3╱ // 0xb2c @0x7
0x0b25…0b3f at0008 = ╱ed╱(╱ // 0xb2d @0x8
0x0b25…0b3f at0009 = ╱49╱I╱ // 0xb2e @0x9
0x0b25…0b3f at000a = ╱ec╱,╱ // 0xb2f @0xa
0x0b25…0b3f at000b = ╱47╱G╱ // 0xb30 @0xb
0x0b25…0b3f at000c = ╱ee╱)╱ // 0xb31 @0xc
0x0b25…0b3f at000d = ╱dc╱=╱ // 0xb32 @0xd
0x0b25…0b3f at000e = ╱54╱T╱ // 0xb33 @0xe
0x0b25…0b3f at000f = ╱41╱A╱ // 0xb34 @0xf
0x0b25…0b3f at0010 = ╱42╱B╱ // 0xb35 @0x10
0x0b25…0b3f at0011 = ╱33╱3╱ // 0xb36 @0x11
0x0b25…0b3f at0012 = ╱ed╱(╱ // 0xb37 @0x12
0x0b25…0b3f at0013 = ╱49╱I╱ // 0xb38 @0x13
0x0b25…0b3f at0014 = ╱e2╱+╱ // 0xb39 @0x14
0x0b25…0b3f at0015 = ╱45╱E╱ // 0xb3a @0x15
0x0b25…0b3f at0016 = ╱ec╱,╱ // 0xb3b @0x16
0x0b25…0b3f at0017 = ╱47╱G╱ // 0xb3c @0x17
0x0b25…0b3f at0018 = ╱ee╱)╱ // 0xb3d @0x18
0x0b25…0b3f at0019 = EOL // 0xb3e @0x19
0x0b25…0b3f }
0x0b3f…0b46 989d 1090 NEXT I
0x0b3f…0b46 LineComalBin {
0x0b3f…0b46 ptr = 0x989d // 0xb3f @0x0
0x0b3f…0b46 lno = 0x0442 // 0xb41 @0x2
0x0b3f…0b46 at0004 = ╱84╱ NEXT ╱ // 0xb43 @0x4
0x0b3f…0b46 at0005 = ╱49╱I╱ // 0xb44 @0x5
0x0b3f…0b46 at0006 = EOL // 0xb45 @0x6
0x0b3f…0b46 }
0x0b46…0b66 98bd 1100 TAB3(ANTAL3,E)=1000000
0x0b46…0b66 LineComalBin {
0x0b46…0b66 ptr = 0x98bd // 0xb46 @0x0
0x0b46…0b66 lno = 0x044c // 0xb48 @0x2
0x0b46…0b66 at0004 = ╱54╱T╱ // 0xb4a @0x4
0x0b46…0b66 at0005 = ╱41╱A╱ // 0xb4b @0x5
0x0b46…0b66 at0006 = ╱42╱B╱ // 0xb4c @0x6
0x0b46…0b66 at0007 = ╱33╱3╱ // 0xb4d @0x7
0x0b46…0b66 at0008 = ╱ed╱(╱ // 0xb4e @0x8
0x0b46…0b66 at0009 = ╱41╱A╱ // 0xb4f @0x9
0x0b46…0b66 at000a = ╱4e╱N╱ // 0xb50 @0xa
0x0b46…0b66 at000b = ╱54╱T╱ // 0xb51 @0xb
0x0b46…0b66 at000c = ╱41╱A╱ // 0xb52 @0xc
0x0b46…0b66 at000d = ╱4c╱L╱ // 0xb53 @0xd
0x0b46…0b66 at000e = ╱33╱3╱ // 0xb54 @0xe
0x0b46…0b66 at000f = ╱ec╱,╱ // 0xb55 @0xf
0x0b46…0b66 at0010 = ╱45╱E╱ // 0xb56 @0x10
0x0b46…0b66 at0011 = ╱ee╱)╱ // 0xb57 @0x11
0x0b46…0b66 at0012 = ╱dc╱=╱ // 0xb58 @0x12
0x0b46…0b66 at0013 = ╱31╱1╱ // 0xb59 @0x13
0x0b46…0b66 at0014 = ╱30╱0╱ // 0xb5a @0x14
0x0b46…0b66 at0015 = ╱30╱0╱ // 0xb5b @0x15
0x0b46…0b66 at0016 = ╱30╱0╱ // 0xb5c @0x16
0x0b46…0b66 at0017 = ╱30╱0╱ // 0xb5d @0x17
0x0b46…0b66 at0018 = ╱30╱0╱ // 0xb5e @0x18
0x0b46…0b66 at0019 = ╱30╱0╱ // 0xb5f @0x19
0x0b46…0b66 at001a = ╱fe0024f414╱ // 0xb60 @0x1a
0x0b46…0b66 at001f = EOL // 0xb65 @0x1f
0x0b46…0b66 }
0x0b66…0b80 98d7 1110 TAB3(ANTAL3,G)=POSTNR
0x0b66…0b80 LineComalBin {
0x0b66…0b80 ptr = 0x98d7 // 0xb66 @0x0
0x0b66…0b80 lno = 0x0456 // 0xb68 @0x2
0x0b66…0b80 at0004 = ╱54╱T╱ // 0xb6a @0x4
0x0b66…0b80 at0005 = ╱41╱A╱ // 0xb6b @0x5
0x0b66…0b80 at0006 = ╱42╱B╱ // 0xb6c @0x6
0x0b66…0b80 at0007 = ╱33╱3╱ // 0xb6d @0x7
0x0b66…0b80 at0008 = ╱ed╱(╱ // 0xb6e @0x8
0x0b66…0b80 at0009 = ╱41╱A╱ // 0xb6f @0x9
0x0b66…0b80 at000a = ╱4e╱N╱ // 0xb70 @0xa
0x0b66…0b80 at000b = ╱54╱T╱ // 0xb71 @0xb
0x0b66…0b80 at000c = ╱41╱A╱ // 0xb72 @0xc
0x0b66…0b80 at000d = ╱4c╱L╱ // 0xb73 @0xd
0x0b66…0b80 at000e = ╱33╱3╱ // 0xb74 @0xe
0x0b66…0b80 at000f = ╱ec╱,╱ // 0xb75 @0xf
0x0b66…0b80 at0010 = ╱47╱G╱ // 0xb76 @0x10
0x0b66…0b80 at0011 = ╱ee╱)╱ // 0xb77 @0x11
0x0b66…0b80 at0012 = ╱dc╱=╱ // 0xb78 @0x12
0x0b66…0b80 at0013 = ╱50╱P╱ // 0xb79 @0x13
0x0b66…0b80 at0014 = ╱4f╱O╱ // 0xb7a @0x14
0x0b66…0b80 at0015 = ╱53╱S╱ // 0xb7b @0x15
0x0b66…0b80 at0016 = ╱54╱T╱ // 0xb7c @0x16
0x0b66…0b80 at0017 = ╱4e╱N╱ // 0xb7d @0x17
0x0b66…0b80 at0018 = ╱52╱R╱ // 0xb7e @0x18
0x0b66…0b80 at0019 = EOL // 0xb7f @0x19
0x0b66…0b80 }
0x0b80…0b94 98eb 1120 ANTAL3=ANTAL3-E
0x0b80…0b94 LineComalBin {
0x0b80…0b94 ptr = 0x98eb // 0xb80 @0x0
0x0b80…0b94 lno = 0x0460 // 0xb82 @0x2
0x0b80…0b94 at0004 = ╱41╱A╱ // 0xb84 @0x4
0x0b80…0b94 at0005 = ╱4e╱N╱ // 0xb85 @0x5
0x0b80…0b94 at0006 = ╱54╱T╱ // 0xb86 @0x6
0x0b80…0b94 at0007 = ╱41╱A╱ // 0xb87 @0x7
0x0b80…0b94 at0008 = ╱4c╱L╱ // 0xb88 @0x8
0x0b80…0b94 at0009 = ╱33╱3╱ // 0xb89 @0x9
0x0b80…0b94 at000a = ╱dc╱=╱ // 0xb8a @0xa
0x0b80…0b94 at000b = ╱41╱A╱ // 0xb8b @0xb
0x0b80…0b94 at000c = ╱4e╱N╱ // 0xb8c @0xc
0x0b80…0b94 at000d = ╱54╱T╱ // 0xb8d @0xd
0x0b80…0b94 at000e = ╱41╱A╱ // 0xb8e @0xe
0x0b80…0b94 at000f = ╱4c╱L╱ // 0xb8f @0xf
0x0b80…0b94 at0010 = ╱33╱3╱ // 0xb90 @0x10
0x0b80…0b94 at0011 = ╱e3╱-╱ // 0xb91 @0x11
0x0b80…0b94 at0012 = ╱45╱E╱ // 0xb92 @0x12
0x0b80…0b94 at0013 = EOL // 0xb93 @0x13
0x0b80…0b94 }
0x0b94…0b9a 98f1 1130 ENDIF
0x0b94…0b9a LineComalBin {
0x0b94…0b9a ptr = 0x98f1 // 0xb94 @0x0
0x0b94…0b9a lno = 0x046a // 0xb96 @0x2
0x0b94…0b9a at0004 = ╱9b╱ ENDIF ╱ // 0xb98 @0x4
0x0b94…0b9a at0005 = EOL // 0xb99 @0x5
0x0b94…0b9a }
0x0b9a…0ba0 98f7 1140 ENDPROC
0x0b9a…0ba0 LineComalBin {
0x0b9a…0ba0 ptr = 0x98f7 // 0xb9a @0x0
0x0b9a…0ba0 lno = 0x0474 // 0xb9c @0x2
0x0b9a…0ba0 at0004 = ╱9f╱ ENDPROC ╱ // 0xb9e @0x4
0x0b9a…0ba0 at0005 = EOL // 0xb9f @0x5
0x0b9a…0ba0 }
0x0ba0…0baf 9906 1150 PROC HENTDPOST
0x0ba0…0baf LineComalBin {
0x0ba0…0baf ptr = 0x9906 // 0xba0 @0x0
0x0ba0…0baf lno = 0x047e // 0xba2 @0x2
0x0ba0…0baf at0004 = ╱9e╱ PROC ╱ // 0xba4 @0x4
0x0ba0…0baf at0005 = ╱48╱H╱ // 0xba5 @0x5
0x0ba0…0baf at0006 = ╱45╱E╱ // 0xba6 @0x6
0x0ba0…0baf at0007 = ╱4e╱N╱ // 0xba7 @0x7
0x0ba0…0baf at0008 = ╱54╱T╱ // 0xba8 @0x8
0x0ba0…0baf at0009 = ╱44╱D╱ // 0xba9 @0x9
0x0ba0…0baf at000a = ╱50╱P╱ // 0xbaa @0xa
0x0ba0…0baf at000b = ╱4f╱O╱ // 0xbab @0xb
0x0ba0…0baf at000c = ╱53╱S╱ // 0xbac @0xc
0x0ba0…0baf at000d = ╱54╱T╱ // 0xbad @0xd
0x0ba0…0baf at000e = EOL // 0xbae @0xe
0x0ba0…0baf }
0x0baf…0bc3 991a 1160 S=DTAB(DPIL3,G)
0x0baf…0bc3 LineComalBin {
0x0baf…0bc3 ptr = 0x991a // 0xbaf @0x0
0x0baf…0bc3 lno = 0x0488 // 0xbb1 @0x2
0x0baf…0bc3 at0004 = ╱53╱S╱ // 0xbb3 @0x4
0x0baf…0bc3 at0005 = ╱dc╱=╱ // 0xbb4 @0x5
0x0baf…0bc3 at0006 = ╱44╱D╱ // 0xbb5 @0x6
0x0baf…0bc3 at0007 = ╱54╱T╱ // 0xbb6 @0x7
0x0baf…0bc3 at0008 = ╱41╱A╱ // 0xbb7 @0x8
0x0baf…0bc3 at0009 = ╱42╱B╱ // 0xbb8 @0x9
0x0baf…0bc3 at000a = ╱ed╱(╱ // 0xbb9 @0xa
0x0baf…0bc3 at000b = ╱44╱D╱ // 0xbba @0xb
0x0baf…0bc3 at000c = ╱50╱P╱ // 0xbbb @0xc
0x0baf…0bc3 at000d = ╱49╱I╱ // 0xbbc @0xd
0x0baf…0bc3 at000e = ╱4c╱L╱ // 0xbbd @0xe
0x0baf…0bc3 at000f = ╱33╱3╱ // 0xbbe @0xf
0x0baf…0bc3 at0010 = ╱ec╱,╱ // 0xbbf @0x10
0x0baf…0bc3 at0011 = ╱47╱G╱ // 0xbc0 @0x11
0x0baf…0bc3 at0012 = ╱ee╱)╱ // 0xbc1 @0x12
0x0baf…0bc3 at0013 = EOL // 0xbc2 @0x13
0x0baf…0bc3 }
0x0bc3…0bee 9945 1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0bc3…0bee LineComalBin {
0x0bc3…0bee ptr = 0x9945 // 0xbc3 @0x0
0x0bc3…0bee lno = 0x0492 // 0xbc5 @0x2
0x0bc3…0bee at0004 = ╱a9╱ GET ╱ // 0xbc7 @0x4
0x0bc3…0bee at0005 = ╱4b╱K╱ // 0xbc8 @0x5
0x0bc3…0bee at0006 = ╱33╱3╱ // 0xbc9 @0x6
0x0bc3…0bee at0007 = ╱ef╱$╱ // 0xbca @0x7
0x0bc3…0bee at0008 = ╱ec╱,╱ // 0xbcb @0x8
0x0bc3…0bee at0009 = ╱53╱S╱ // 0xbcc @0x9
0x0bc3…0bee at000a = ╱f0╱:╱ // 0xbcd @0xa
0x0bc3…0bee at000b = ╱44╱D╱ // 0xbce @0xb
0x0bc3…0bee at000c = ╱45╱E╱ // 0xbcf @0xc
0x0bc3…0bee at000d = ╱42╱B╱ // 0xbd0 @0xd
0x0bc3…0bee at000e = ╱4e╱N╱ // 0xbd1 @0xe
0x0bc3…0bee at000f = ╱52╱R╱ // 0xbd2 @0xf
0x0bc3…0bee at0010 = ╱ec╱,╱ // 0xbd3 @0x10
0x0bc3…0bee at0011 = ╱44╱D╱ // 0xbd4 @0x11
0x0bc3…0bee at0012 = ╱45╱E╱ // 0xbd5 @0x12
0x0bc3…0bee at0013 = ╱42╱B╱ // 0xbd6 @0x13
0x0bc3…0bee at0014 = ╱4e╱N╱ // 0xbd7 @0x14
0x0bc3…0bee at0015 = ╱41╱A╱ // 0xbd8 @0x15
0x0bc3…0bee at0016 = ╱56╱V╱ // 0xbd9 @0x16
0x0bc3…0bee at0017 = ╱4e╱N╱ // 0xbda @0x17
0x0bc3…0bee at0018 = ╱ef╱$╱ // 0xbdb @0x18
0x0bc3…0bee at0019 = ╱ec╱,╱ // 0xbdc @0x19
0x0bc3…0bee at001a = ╱44╱D╱ // 0xbdd @0x1a
0x0bc3…0bee at001b = ╱53╱S╱ // 0xbde @0x1b
0x0bc3…0bee at001c = ╱41╱A╱ // 0xbdf @0x1c
0x0bc3…0bee at001d = ╱4c╱L╱ // 0xbe0 @0x1d
0x0bc3…0bee at001e = ╱44╱D╱ // 0xbe1 @0x1e
0x0bc3…0bee at001f = ╱4f╱O╱ // 0xbe2 @0x1f
0x0bc3…0bee at0020 = ╱31╱1╱ // 0xbe3 @0x20
0x0bc3…0bee at0021 = ╱ef╱$╱ // 0xbe4 @0x21
0x0bc3…0bee at0022 = ╱ec╱,╱ // 0xbe5 @0x22
0x0bc3…0bee at0023 = ╱44╱D╱ // 0xbe6 @0x23
0x0bc3…0bee at0024 = ╱45╱E╱ // 0xbe7 @0x24
0x0bc3…0bee at0025 = ╱42╱B╱ // 0xbe8 @0x25
0x0bc3…0bee at0026 = ╱4b╱K╱ // 0xbe9 @0x26
0x0bc3…0bee at0027 = ╱47╱G╱ // 0xbea @0x27
0x0bc3…0bee at0028 = ╱52╱R╱ // 0xbeb @0x28
0x0bc3…0bee at0029 = ╱ef╱$╱ // 0xbec @0x29
0x0bc3…0bee at002a = EOL // 0xbed @0x2a
0x0bc3…0bee }
0x0bee…0c06 995d 1180 EXEC FEJL(8,G,K3$)
0x0bee…0c06 LineComalBin {
0x0bee…0c06 ptr = 0x995d // 0xbee @0x0
0x0bee…0c06 lno = 0x049c // 0xbf0 @0x2
0x0bee…0c06 at0004 = ╱9d╱ EXEC ╱ // 0xbf2 @0x4
0x0bee…0c06 at0005 = ╱46╱F╱ // 0xbf3 @0x5
0x0bee…0c06 at0006 = ╱45╱E╱ // 0xbf4 @0x6
0x0bee…0c06 at0007 = ╱4a╱J╱ // 0xbf5 @0x7
0x0bee…0c06 at0008 = ╱4c╱L╱ // 0xbf6 @0x8
0x0bee…0c06 at0009 = ╱ed╱(╱ // 0xbf7 @0x9
0x0bee…0c06 at000a = ╱38╱8╱ // 0xbf8 @0xa
0x0bee…0c06 at000b = ╱fe00008004╱ // 0xbf9 @0xb
0x0bee…0c06 at0010 = ╱ec╱,╱ // 0xbfe @0x10
0x0bee…0c06 at0011 = ╱47╱G╱ // 0xbff @0x11
0x0bee…0c06 at0012 = ╱ec╱,╱ // 0xc00 @0x12
0x0bee…0c06 at0013 = ╱4b╱K╱ // 0xc01 @0x13
0x0bee…0c06 at0014 = ╱33╱3╱ // 0xc02 @0x14
0x0bee…0c06 at0015 = ╱ef╱$╱ // 0xc03 @0x15
0x0bee…0c06 at0016 = ╱ee╱)╱ // 0xc04 @0x16
0x0bee…0c06 at0017 = EOL // 0xc05 @0x17
0x0bee…0c06 }
0x0c06…0c21 9978 1190 IF DEBNR<>DTAB(DPIL3,E) THEN STOP
0x0c06…0c21 LineComalBin {
0x0c06…0c21 ptr = 0x9978 // 0xc06 @0x0
0x0c06…0c21 lno = 0x04a6 // 0xc08 @0x2
0x0c06…0c21 at0004 = ╱82╱ IF ╱ // 0xc0a @0x4
0x0c06…0c21 at0005 = ╱44╱D╱ // 0xc0b @0x5
0x0c06…0c21 at0006 = ╱45╱E╱ // 0xc0c @0x6
0x0c06…0c21 at0007 = ╱42╱B╱ // 0xc0d @0x7
0x0c06…0c21 at0008 = ╱4e╱N╱ // 0xc0e @0x8
0x0c06…0c21 at0009 = ╱52╱R╱ // 0xc0f @0x9
0x0c06…0c21 at000a = ╱e1╱<>╱ // 0xc10 @0xa
0x0c06…0c21 at000b = ╱44╱D╱ // 0xc11 @0xb
0x0c06…0c21 at000c = ╱54╱T╱ // 0xc12 @0xc
0x0c06…0c21 at000d = ╱41╱A╱ // 0xc13 @0xd
0x0c06…0c21 at000e = ╱42╱B╱ // 0xc14 @0xe
0x0c06…0c21 at000f = ╱ed╱(╱ // 0xc15 @0xf
0x0c06…0c21 at0010 = ╱44╱D╱ // 0xc16 @0x10
0x0c06…0c21 at0011 = ╱50╱P╱ // 0xc17 @0x11
0x0c06…0c21 at0012 = ╱49╱I╱ // 0xc18 @0x12
0x0c06…0c21 at0013 = ╱4c╱L╱ // 0xc19 @0x13
0x0c06…0c21 at0014 = ╱33╱3╱ // 0xc1a @0x14
0x0c06…0c21 at0015 = ╱ec╱,╱ // 0xc1b @0x15
0x0c06…0c21 at0016 = ╱45╱E╱ // 0xc1c @0x16
0x0c06…0c21 at0017 = ╱ee╱)╱ // 0xc1d @0x17
0x0c06…0c21 at0018 = ╱b6╱ THEN ╱ // 0xc1e @0x18
0x0c06…0c21 at0019 = ╱8d╱ STOP ╱ // 0xc1f @0x19
0x0c06…0c21 at001a = EOL // 0xc20 @0x1a
0x0c06…0c21 }
0x0c21…0c5a 99b1 1200 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x0c21…0c5a LineComalBin {
0x0c21…0c5a ptr = 0x99b1 // 0xc21 @0x0
0x0c21…0c5a lno = 0x04b0 // 0xc23 @0x2
0x0c21…0c5a at0004 = ╱a9╱ GET ╱ // 0xc25 @0x4
0x0c21…0c5a at0005 = ╱4b╱K╱ // 0xc26 @0x5
0x0c21…0c5a at0006 = ╱33╱3╱ // 0xc27 @0x6
0x0c21…0c5a at0007 = ╱ef╱$╱ // 0xc28 @0x7
0x0c21…0c5a at0008 = ╱ec╱,╱ // 0xc29 @0x8
0x0c21…0c5a at0009 = ╱53╱S╱ // 0xc2a @0x9
0x0c21…0c5a at000a = ╱e2╱+╱ // 0xc2b @0xa
0x0c21…0c5a at000b = ╱45╱E╱ // 0xc2c @0xb
0x0c21…0c5a at000c = ╱f0╱:╱ // 0xc2d @0xc
0x0c21…0c5a at000d = ╱44╱D╱ // 0xc2e @0xd
0x0c21…0c5a at000e = ╱53╱S╱ // 0xc2f @0xe
0x0c21…0c5a at000f = ╱41╱A╱ // 0xc30 @0xf
0x0c21…0c5a at0010 = ╱4c╱L╱ // 0xc31 @0x10
0x0c21…0c5a at0011 = ╱44╱D╱ // 0xc32 @0x11
0x0c21…0c5a at0012 = ╱4f╱O╱ // 0xc33 @0x12
0x0c21…0c5a at0013 = ╱32╱2╱ // 0xc34 @0x13
0x0c21…0c5a at0014 = ╱ef╱$╱ // 0xc35 @0x14
0x0c21…0c5a at0015 = ╱ec╱,╱ // 0xc36 @0x15
0x0c21…0c5a at0016 = ╱44╱D╱ // 0xc37 @0x16
0x0c21…0c5a at0017 = ╱53╱S╱ // 0xc38 @0x17
0x0c21…0c5a at0018 = ╱41╱A╱ // 0xc39 @0x18
0x0c21…0c5a at0019 = ╱4c╱L╱ // 0xc3a @0x19
0x0c21…0c5a at001a = ╱44╱D╱ // 0xc3b @0x1a
0x0c21…0c5a at001b = ╱4f╱O╱ // 0xc3c @0x1b
0x0c21…0c5a at001c = ╱33╱3╱ // 0xc3d @0x1c
0x0c21…0c5a at001d = ╱ef╱$╱ // 0xc3e @0x1d
0x0c21…0c5a at001e = ╱ec╱,╱ // 0xc3f @0x1e
0x0c21…0c5a at001f = ╱44╱D╱ // 0xc40 @0x1f
0x0c21…0c5a at0020 = ╱53╱S╱ // 0xc41 @0x20
0x0c21…0c5a at0021 = ╱41╱A╱ // 0xc42 @0x21
0x0c21…0c5a at0022 = ╱4c╱L╱ // 0xc43 @0x22
0x0c21…0c5a at0023 = ╱44╱D╱ // 0xc44 @0x23
0x0c21…0c5a at0024 = ╱4f╱O╱ // 0xc45 @0x24
0x0c21…0c5a at0025 = ╱34╱4╱ // 0xc46 @0x25
0x0c21…0c5a at0026 = ╱ef╱$╱ // 0xc47 @0x26
0x0c21…0c5a at0027 = ╱ec╱,╱ // 0xc48 @0x27
0x0c21…0c5a at0028 = ╱44╱D╱ // 0xc49 @0x28
0x0c21…0c5a at0029 = ╱45╱E╱ // 0xc4a @0x29
0x0c21…0c5a at002a = ╱42╱B╱ // 0xc4b @0x2a
0x0c21…0c5a at002b = ╱50╱P╱ // 0xc4c @0x2b
0x0c21…0c5a at002c = ╱4f╱O╱ // 0xc4d @0x2c
0x0c21…0c5a at002d = ╱53╱S╱ // 0xc4e @0x2d
0x0c21…0c5a at002e = ╱54╱T╱ // 0xc4f @0x2e
0x0c21…0c5a at002f = ╱4e╱N╱ // 0xc50 @0x2f
0x0c21…0c5a at0030 = ╱52╱R╱ // 0xc51 @0x30
0x0c21…0c5a at0031 = ╱ec╱,╱ // 0xc52 @0x31
0x0c21…0c5a at0032 = ╱44╱D╱ // 0xc53 @0x32
0x0c21…0c5a at0033 = ╱45╱E╱ // 0xc54 @0x33
0x0c21…0c5a at0034 = ╱42╱B╱ // 0xc55 @0x34
0x0c21…0c5a at0035 = ╱4c╱L╱ // 0xc56 @0x35
0x0c21…0c5a at0036 = ╱4b╱K╱ // 0xc57 @0x36
0x0c21…0c5a at0037 = ╱ef╱$╱ // 0xc58 @0x37
0x0c21…0c5a at0038 = EOL // 0xc59 @0x38
0x0c21…0c5a }
0x0c5a…0c72 99c9 1210 EXEC FEJL(8,V,K3$)
0x0c5a…0c72 LineComalBin {
0x0c5a…0c72 ptr = 0x99c9 // 0xc5a @0x0
0x0c5a…0c72 lno = 0x04ba // 0xc5c @0x2
0x0c5a…0c72 at0004 = ╱9d╱ EXEC ╱ // 0xc5e @0x4
0x0c5a…0c72 at0005 = ╱46╱F╱ // 0xc5f @0x5
0x0c5a…0c72 at0006 = ╱45╱E╱ // 0xc60 @0x6
0x0c5a…0c72 at0007 = ╱4a╱J╱ // 0xc61 @0x7
0x0c5a…0c72 at0008 = ╱4c╱L╱ // 0xc62 @0x8
0x0c5a…0c72 at0009 = ╱ed╱(╱ // 0xc63 @0x9
0x0c5a…0c72 at000a = ╱38╱8╱ // 0xc64 @0xa
0x0c5a…0c72 at000b = ╱fe00008004╱ // 0xc65 @0xb
0x0c5a…0c72 at0010 = ╱ec╱,╱ // 0xc6a @0x10
0x0c5a…0c72 at0011 = ╱56╱V╱ // 0xc6b @0x11
0x0c5a…0c72 at0012 = ╱ec╱,╱ // 0xc6c @0x12
0x0c5a…0c72 at0013 = ╱4b╱K╱ // 0xc6d @0x13
0x0c5a…0c72 at0014 = ╱33╱3╱ // 0xc6e @0x14
0x0c5a…0c72 at0015 = ╱ef╱$╱ // 0xc6f @0x15
0x0c5a…0c72 at0016 = ╱ee╱)╱ // 0xc70 @0x16
0x0c5a…0c72 at0017 = EOL // 0xc71 @0x17
0x0c5a…0c72 }
0x0c72…0c9d 99f4 1220 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x0c72…0c9d LineComalBin {
0x0c72…0c9d ptr = 0x99f4 // 0xc72 @0x0
0x0c72…0c9d lno = 0x04c4 // 0xc74 @0x2
0x0c72…0c9d at0004 = ╱a9╱ GET ╱ // 0xc76 @0x4
0x0c72…0c9d at0005 = ╱4b╱K╱ // 0xc77 @0x5
0x0c72…0c9d at0006 = ╱33╱3╱ // 0xc78 @0x6
0x0c72…0c9d at0007 = ╱ef╱$╱ // 0xc79 @0x7
0x0c72…0c9d at0008 = ╱ec╱,╱ // 0xc7a @0x8
0x0c72…0c9d at0009 = ╱53╱S╱ // 0xc7b @0x9
0x0c72…0c9d at000a = ╱e2╱+╱ // 0xc7c @0xa
0x0c72…0c9d at000b = ╱47╱G╱ // 0xc7d @0xb
0x0c72…0c9d at000c = ╱f0╱:╱ // 0xc7e @0xc
0x0c72…0c9d at000d = ╱44╱D╱ // 0xc7f @0xd
0x0c72…0c9d at000e = ╱45╱E╱ // 0xc80 @0xe
0x0c72…0c9d at000f = ╱42╱B╱ // 0xc81 @0xf
0x0c72…0c9d at0010 = ╱47╱G╱ // 0xc82 @0x10
0x0c72…0c9d at0011 = ╱41╱A╱ // 0xc83 @0x11
0x0c72…0c9d at0012 = ╱44╱D╱ // 0xc84 @0x12
0x0c72…0c9d at0013 = ╱45╱E╱ // 0xc85 @0x13
0x0c72…0c9d at0014 = ╱ef╱$╱ // 0xc86 @0x14
0x0c72…0c9d at0015 = ╱ec╱,╱ // 0xc87 @0x15
0x0c72…0c9d at0016 = ╱44╱D╱ // 0xc88 @0x16
0x0c72…0c9d at0017 = ╱45╱E╱ // 0xc89 @0x17
0x0c72…0c9d at0018 = ╱42╱B╱ // 0xc8a @0x18
0x0c72…0c9d at0019 = ╱54╱T╱ // 0xc8b @0x19
0x0c72…0c9d at001a = ╱4c╱L╱ // 0xc8c @0x1a
0x0c72…0c9d at001b = ╱46╱F╱ // 0xc8d @0x1b
0x0c72…0c9d at001c = ╱ef╱$╱ // 0xc8e @0x1c
0x0c72…0c9d at001d = ╱ec╱,╱ // 0xc8f @0x1d
0x0c72…0c9d at001e = ╱48╱H╱ // 0xc90 @0x1e
0x0c72…0c9d at001f = ╱50╱P╱ // 0xc91 @0x1f
0x0c72…0c9d at0020 = ╱4f╱O╱ // 0xc92 @0x20
0x0c72…0c9d at0021 = ╱53╱S╱ // 0xc93 @0x21
0x0c72…0c9d at0022 = ╱54╱T╱ // 0xc94 @0x22
0x0c72…0c9d at0023 = ╱ec╱,╱ // 0xc95 @0x23
0x0c72…0c9d at0024 = ╱48╱H╱ // 0xc96 @0x24
0x0c72…0c9d at0025 = ╱4b╱K╱ // 0xc97 @0x25
0x0c72…0c9d at0026 = ╱55╱U╱ // 0xc98 @0x26
0x0c72…0c9d at0027 = ╱4e╱N╱ // 0xc99 @0x27
0x0c72…0c9d at0028 = ╱44╱D╱ // 0xc9a @0x28
0x0c72…0c9d at0029 = ╱45╱E╱ // 0xc9b @0x29
0x0c72…0c9d at002a = EOL // 0xc9c @0x2a
0x0c72…0c9d }
0x0c9d…0cba 9a11 1230 EXEC FEJL(8,4,K3$)
0x0c9d…0cba LineComalBin {
0x0c9d…0cba ptr = 0x9a11 // 0xc9d @0x0
0x0c9d…0cba lno = 0x04ce // 0xc9f @0x2
0x0c9d…0cba at0004 = ╱9d╱ EXEC ╱ // 0xca1 @0x4
0x0c9d…0cba at0005 = ╱46╱F╱ // 0xca2 @0x5
0x0c9d…0cba at0006 = ╱45╱E╱ // 0xca3 @0x6
0x0c9d…0cba at0007 = ╱4a╱J╱ // 0xca4 @0x7
0x0c9d…0cba at0008 = ╱4c╱L╱ // 0xca5 @0x8
0x0c9d…0cba at0009 = ╱ed╱(╱ // 0xca6 @0x9
0x0c9d…0cba at000a = ╱38╱8╱ // 0xca7 @0xa
0x0c9d…0cba at000b = ╱fe00008004╱ // 0xca8 @0xb
0x0c9d…0cba at0010 = ╱ec╱,╱ // 0xcad @0x10
0x0c9d…0cba at0011 = ╱34╱4╱ // 0xcae @0x11
0x0c9d…0cba at0012 = ╱fe00008003╱ // 0xcaf @0x12
0x0c9d…0cba at0017 = ╱ec╱,╱ // 0xcb4 @0x17
0x0c9d…0cba at0018 = ╱4b╱K╱ // 0xcb5 @0x18
0x0c9d…0cba at0019 = ╱33╱3╱ // 0xcb6 @0x19
0x0c9d…0cba at001a = ╱ef╱$╱ // 0xcb7 @0x1a
0x0c9d…0cba at001b = ╱ee╱)╱ // 0xcb8 @0x1b
0x0c9d…0cba at001c = EOL // 0xcb9 @0x1c
0x0c9d…0cba }
0x0cba…0cdd 9a34 1240 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x0cba…0cdd LineComalBin {
0x0cba…0cdd ptr = 0x9a34 // 0xcba @0x0
0x0cba…0cdd lno = 0x04d8 // 0xcbc @0x2
0x0cba…0cdd at0004 = ╱a9╱ GET ╱ // 0xcbe @0x4
0x0cba…0cdd at0005 = ╱4b╱K╱ // 0xcbf @0x5
0x0cba…0cdd at0006 = ╱33╱3╱ // 0xcc0 @0x6
0x0cba…0cdd at0007 = ╱ef╱$╱ // 0xcc1 @0x7
0x0cba…0cdd at0008 = ╱ec╱,╱ // 0xcc2 @0x8
0x0cba…0cdd at0009 = ╱53╱S╱ // 0xcc3 @0x9
0x0cba…0cdd at000a = ╱e2╱+╱ // 0xcc4 @0xa
0x0cba…0cdd at000b = ╱56╱V╱ // 0xcc5 @0xb
0x0cba…0cdd at000c = ╱f0╱:╱ // 0xcc6 @0xc
0x0cba…0cdd at000d = ╱44╱D╱ // 0xcc7 @0xd
0x0cba…0cdd at000e = ╱45╱E╱ // 0xcc8 @0xe
0x0cba…0cdd at000f = ╱42╱B╱ // 0xcc9 @0xf
0x0cba…0cdd at0010 = ╱42╱B╱ // 0xcca @0x10
0x0cba…0cdd at0011 = ╱59╱Y╱ // 0xccb @0x11
0x0cba…0cdd at0012 = ╱ef╱$╱ // 0xccc @0x12
0x0cba…0cdd at0013 = ╱ec╱,╱ // 0xccd @0x13
0x0cba…0cdd at0014 = ╱5d╱Å╱ // 0xcce @0x14
0x0cba…0cdd at0015 = ╱52╱R╱ // 0xccf @0x15
0x0cba…0cdd at0016 = ╱4b╱K╱ // 0xcd0 @0x16
0x0cba…0cdd at0017 = ╱5c╱Ø╱ // 0xcd1 @0x17
0x0cba…0cdd at0018 = ╱42╱B╱ // 0xcd2 @0x18
0x0cba…0cdd at0019 = ╱ef╱$╱ // 0xcd3 @0x19
0x0cba…0cdd at001a = ╱ec╱,╱ // 0xcd4 @0x1a
0x0cba…0cdd at001b = ╱4d╱M╱ // 0xcd5 @0x1b
0x0cba…0cdd at001c = ╱44╱D╱ // 0xcd6 @0x1c
0x0cba…0cdd at001d = ╱4e╱N╱ // 0xcd7 @0x1d
0x0cba…0cdd at001e = ╱4b╱K╱ // 0xcd8 @0x1e
0x0cba…0cdd at001f = ╱5c╱Ø╱ // 0xcd9 @0x1f
0x0cba…0cdd at0020 = ╱42╱B╱ // 0xcda @0x20
0x0cba…0cdd at0021 = ╱ef╱$╱ // 0xcdb @0x21
0x0cba…0cdd at0022 = EOL // 0xcdc @0x22
0x0cba…0cdd }
0x0cdd…0cfa 9a51 1250 EXEC FEJL(8,5,K3$)
0x0cdd…0cfa LineComalBin {
0x0cdd…0cfa ptr = 0x9a51 // 0xcdd @0x0
0x0cdd…0cfa lno = 0x04e2 // 0xcdf @0x2
0x0cdd…0cfa at0004 = ╱9d╱ EXEC ╱ // 0xce1 @0x4
0x0cdd…0cfa at0005 = ╱46╱F╱ // 0xce2 @0x5
0x0cdd…0cfa at0006 = ╱45╱E╱ // 0xce3 @0x6
0x0cdd…0cfa at0007 = ╱4a╱J╱ // 0xce4 @0x7
0x0cdd…0cfa at0008 = ╱4c╱L╱ // 0xce5 @0x8
0x0cdd…0cfa at0009 = ╱ed╱(╱ // 0xce6 @0x9
0x0cdd…0cfa at000a = ╱38╱8╱ // 0xce7 @0xa
0x0cdd…0cfa at000b = ╱fe00008004╱ // 0xce8 @0xb
0x0cdd…0cfa at0010 = ╱ec╱,╱ // 0xced @0x10
0x0cdd…0cfa at0011 = ╱35╱5╱ // 0xcee @0x11
0x0cdd…0cfa at0012 = ╱fe0000a003╱ // 0xcef @0x12
0x0cdd…0cfa at0017 = ╱ec╱,╱ // 0xcf4 @0x17
0x0cdd…0cfa at0018 = ╱4b╱K╱ // 0xcf5 @0x18
0x0cdd…0cfa at0019 = ╱33╱3╱ // 0xcf6 @0x19
0x0cdd…0cfa at001a = ╱ef╱$╱ // 0xcf7 @0x1a
0x0cdd…0cfa at001b = ╱ee╱)╱ // 0xcf8 @0x1b
0x0cdd…0cfa at001c = EOL // 0xcf9 @0x1c
0x0cdd…0cfa }
0x0cfa…0d00 9a57 1260 ENDPROC
0x0cfa…0d00 LineComalBin {
0x0cfa…0d00 ptr = 0x9a57 // 0xcfa @0x0
0x0cfa…0d00 lno = 0x04ec // 0xcfc @0x2
0x0cfa…0d00 at0004 = ╱9f╱ ENDPROC ╱ // 0xcfe @0x4
0x0cfa…0d00 at0005 = EOL // 0xcff @0x5
0x0cfa…0d00 }
0x0d00…0d0e 9a65 1270 PROC GEMDPOST
0x0d00…0d0e LineComalBin {
0x0d00…0d0e ptr = 0x9a65 // 0xd00 @0x0
0x0d00…0d0e lno = 0x04f6 // 0xd02 @0x2
0x0d00…0d0e at0004 = ╱9e╱ PROC ╱ // 0xd04 @0x4
0x0d00…0d0e at0005 = ╱47╱G╱ // 0xd05 @0x5
0x0d00…0d0e at0006 = ╱45╱E╱ // 0xd06 @0x6
0x0d00…0d0e at0007 = ╱4d╱M╱ // 0xd07 @0x7
0x0d00…0d0e at0008 = ╱44╱D╱ // 0xd08 @0x8
0x0d00…0d0e at0009 = ╱50╱P╱ // 0xd09 @0x9
0x0d00…0d0e at000a = ╱4f╱O╱ // 0xd0a @0xa
0x0d00…0d0e at000b = ╱53╱S╱ // 0xd0b @0xb
0x0d00…0d0e at000c = ╱54╱T╱ // 0xd0c @0xc
0x0d00…0d0e at000d = EOL // 0xd0d @0xd
0x0d00…0d0e }
0x0d0e…0d22 9a79 1280 S=DTAB(DPIL3,G)
0x0d0e…0d22 LineComalBin {
0x0d0e…0d22 ptr = 0x9a79 // 0xd0e @0x0
0x0d0e…0d22 lno = 0x0500 // 0xd10 @0x2
0x0d0e…0d22 at0004 = ╱53╱S╱ // 0xd12 @0x4
0x0d0e…0d22 at0005 = ╱dc╱=╱ // 0xd13 @0x5
0x0d0e…0d22 at0006 = ╱44╱D╱ // 0xd14 @0x6
0x0d0e…0d22 at0007 = ╱54╱T╱ // 0xd15 @0x7
0x0d0e…0d22 at0008 = ╱41╱A╱ // 0xd16 @0x8
0x0d0e…0d22 at0009 = ╱42╱B╱ // 0xd17 @0x9
0x0d0e…0d22 at000a = ╱ed╱(╱ // 0xd18 @0xa
0x0d0e…0d22 at000b = ╱44╱D╱ // 0xd19 @0xb
0x0d0e…0d22 at000c = ╱50╱P╱ // 0xd1a @0xc
0x0d0e…0d22 at000d = ╱49╱I╱ // 0xd1b @0xd
0x0d0e…0d22 at000e = ╱4c╱L╱ // 0xd1c @0xe
0x0d0e…0d22 at000f = ╱33╱3╱ // 0xd1d @0xf
0x0d0e…0d22 at0010 = ╱ec╱,╱ // 0xd1e @0x10
0x0d0e…0d22 at0011 = ╱47╱G╱ // 0xd1f @0x11
0x0d0e…0d22 at0012 = ╱ee╱)╱ // 0xd20 @0x12
0x0d0e…0d22 at0013 = EOL // 0xd21 @0x13
0x0d0e…0d22 }
0x0d22…0d4d 9aa4 1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0d22…0d4d LineComalBin {
0x0d22…0d4d ptr = 0x9aa4 // 0xd22 @0x0
0x0d22…0d4d lno = 0x050a // 0xd24 @0x2
0x0d22…0d4d at0004 = ╱aa╱ PUT ╱ // 0xd26 @0x4
0x0d22…0d4d at0005 = ╱4b╱K╱ // 0xd27 @0x5
0x0d22…0d4d at0006 = ╱33╱3╱ // 0xd28 @0x6
0x0d22…0d4d at0007 = ╱ef╱$╱ // 0xd29 @0x7
0x0d22…0d4d at0008 = ╱ec╱,╱ // 0xd2a @0x8
0x0d22…0d4d at0009 = ╱53╱S╱ // 0xd2b @0x9
0x0d22…0d4d at000a = ╱f0╱:╱ // 0xd2c @0xa
0x0d22…0d4d at000b = ╱44╱D╱ // 0xd2d @0xb
0x0d22…0d4d at000c = ╱45╱E╱ // 0xd2e @0xc
0x0d22…0d4d at000d = ╱42╱B╱ // 0xd2f @0xd
0x0d22…0d4d at000e = ╱4e╱N╱ // 0xd30 @0xe
0x0d22…0d4d at000f = ╱52╱R╱ // 0xd31 @0xf
0x0d22…0d4d at0010 = ╱ec╱,╱ // 0xd32 @0x10
0x0d22…0d4d at0011 = ╱44╱D╱ // 0xd33 @0x11
0x0d22…0d4d at0012 = ╱45╱E╱ // 0xd34 @0x12
0x0d22…0d4d at0013 = ╱42╱B╱ // 0xd35 @0x13
0x0d22…0d4d at0014 = ╱4e╱N╱ // 0xd36 @0x14
0x0d22…0d4d at0015 = ╱41╱A╱ // 0xd37 @0x15
0x0d22…0d4d at0016 = ╱56╱V╱ // 0xd38 @0x16
0x0d22…0d4d at0017 = ╱4e╱N╱ // 0xd39 @0x17
0x0d22…0d4d at0018 = ╱ef╱$╱ // 0xd3a @0x18
0x0d22…0d4d at0019 = ╱ec╱,╱ // 0xd3b @0x19
0x0d22…0d4d at001a = ╱44╱D╱ // 0xd3c @0x1a
0x0d22…0d4d at001b = ╱53╱S╱ // 0xd3d @0x1b
0x0d22…0d4d at001c = ╱41╱A╱ // 0xd3e @0x1c
0x0d22…0d4d at001d = ╱4c╱L╱ // 0xd3f @0x1d
0x0d22…0d4d at001e = ╱44╱D╱ // 0xd40 @0x1e
0x0d22…0d4d at001f = ╱4f╱O╱ // 0xd41 @0x1f
0x0d22…0d4d at0020 = ╱31╱1╱ // 0xd42 @0x20
0x0d22…0d4d at0021 = ╱ef╱$╱ // 0xd43 @0x21
0x0d22…0d4d at0022 = ╱ec╱,╱ // 0xd44 @0x22
0x0d22…0d4d at0023 = ╱44╱D╱ // 0xd45 @0x23
0x0d22…0d4d at0024 = ╱45╱E╱ // 0xd46 @0x24
0x0d22…0d4d at0025 = ╱42╱B╱ // 0xd47 @0x25
0x0d22…0d4d at0026 = ╱4b╱K╱ // 0xd48 @0x26
0x0d22…0d4d at0027 = ╱47╱G╱ // 0xd49 @0x27
0x0d22…0d4d at0028 = ╱52╱R╱ // 0xd4a @0x28
0x0d22…0d4d at0029 = ╱ef╱$╱ // 0xd4b @0x29
0x0d22…0d4d at002a = EOL // 0xd4c @0x2a
0x0d22…0d4d }
0x0d4d…0d60 9ab7 1300 EXEC FEJL(W,V,K3$)
0x0d4d…0d60 LineComalBin {
0x0d4d…0d60 ptr = 0x9ab7 // 0xd4d @0x0
0x0d4d…0d60 lno = 0x0514 // 0xd4f @0x2
0x0d4d…0d60 at0004 = ╱9d╱ EXEC ╱ // 0xd51 @0x4
0x0d4d…0d60 at0005 = ╱46╱F╱ // 0xd52 @0x5
0x0d4d…0d60 at0006 = ╱45╱E╱ // 0xd53 @0x6
0x0d4d…0d60 at0007 = ╱4a╱J╱ // 0xd54 @0x7
0x0d4d…0d60 at0008 = ╱4c╱L╱ // 0xd55 @0x8
0x0d4d…0d60 at0009 = ╱ed╱(╱ // 0xd56 @0x9
0x0d4d…0d60 at000a = ╱57╱W╱ // 0xd57 @0xa
0x0d4d…0d60 at000b = ╱ec╱,╱ // 0xd58 @0xb
0x0d4d…0d60 at000c = ╱56╱V╱ // 0xd59 @0xc
0x0d4d…0d60 at000d = ╱ec╱,╱ // 0xd5a @0xd
0x0d4d…0d60 at000e = ╱4b╱K╱ // 0xd5b @0xe
0x0d4d…0d60 at000f = ╱33╱3╱ // 0xd5c @0xf
0x0d4d…0d60 at0010 = ╱ef╱$╱ // 0xd5d @0x10
0x0d4d…0d60 at0011 = ╱ee╱)╱ // 0xd5e @0x11
0x0d4d…0d60 at0012 = EOL // 0xd5f @0x12
0x0d4d…0d60 }
0x0d60…0d99 9af0 1310 PUT K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x0d60…0d99 LineComalBin {
0x0d60…0d99 ptr = 0x9af0 // 0xd60 @0x0
0x0d60…0d99 lno = 0x051e // 0xd62 @0x2
0x0d60…0d99 at0004 = ╱aa╱ PUT ╱ // 0xd64 @0x4
0x0d60…0d99 at0005 = ╱4b╱K╱ // 0xd65 @0x5
0x0d60…0d99 at0006 = ╱33╱3╱ // 0xd66 @0x6
0x0d60…0d99 at0007 = ╱ef╱$╱ // 0xd67 @0x7
0x0d60…0d99 at0008 = ╱ec╱,╱ // 0xd68 @0x8
0x0d60…0d99 at0009 = ╱53╱S╱ // 0xd69 @0x9
0x0d60…0d99 at000a = ╱e2╱+╱ // 0xd6a @0xa
0x0d60…0d99 at000b = ╱45╱E╱ // 0xd6b @0xb
0x0d60…0d99 at000c = ╱f0╱:╱ // 0xd6c @0xc
0x0d60…0d99 at000d = ╱44╱D╱ // 0xd6d @0xd
0x0d60…0d99 at000e = ╱53╱S╱ // 0xd6e @0xe
0x0d60…0d99 at000f = ╱41╱A╱ // 0xd6f @0xf
0x0d60…0d99 at0010 = ╱4c╱L╱ // 0xd70 @0x10
0x0d60…0d99 at0011 = ╱44╱D╱ // 0xd71 @0x11
0x0d60…0d99 at0012 = ╱4f╱O╱ // 0xd72 @0x12
0x0d60…0d99 at0013 = ╱32╱2╱ // 0xd73 @0x13
0x0d60…0d99 at0014 = ╱ef╱$╱ // 0xd74 @0x14
0x0d60…0d99 at0015 = ╱ec╱,╱ // 0xd75 @0x15
0x0d60…0d99 at0016 = ╱44╱D╱ // 0xd76 @0x16
0x0d60…0d99 at0017 = ╱53╱S╱ // 0xd77 @0x17
0x0d60…0d99 at0018 = ╱41╱A╱ // 0xd78 @0x18
0x0d60…0d99 at0019 = ╱4c╱L╱ // 0xd79 @0x19
0x0d60…0d99 at001a = ╱44╱D╱ // 0xd7a @0x1a
0x0d60…0d99 at001b = ╱4f╱O╱ // 0xd7b @0x1b
0x0d60…0d99 at001c = ╱33╱3╱ // 0xd7c @0x1c
0x0d60…0d99 at001d = ╱ef╱$╱ // 0xd7d @0x1d
0x0d60…0d99 at001e = ╱ec╱,╱ // 0xd7e @0x1e
0x0d60…0d99 at001f = ╱44╱D╱ // 0xd7f @0x1f
0x0d60…0d99 at0020 = ╱53╱S╱ // 0xd80 @0x20
0x0d60…0d99 at0021 = ╱41╱A╱ // 0xd81 @0x21
0x0d60…0d99 at0022 = ╱4c╱L╱ // 0xd82 @0x22
0x0d60…0d99 at0023 = ╱44╱D╱ // 0xd83 @0x23
0x0d60…0d99 at0024 = ╱4f╱O╱ // 0xd84 @0x24
0x0d60…0d99 at0025 = ╱34╱4╱ // 0xd85 @0x25
0x0d60…0d99 at0026 = ╱ef╱$╱ // 0xd86 @0x26
0x0d60…0d99 at0027 = ╱ec╱,╱ // 0xd87 @0x27
0x0d60…0d99 at0028 = ╱44╱D╱ // 0xd88 @0x28
0x0d60…0d99 at0029 = ╱45╱E╱ // 0xd89 @0x29
0x0d60…0d99 at002a = ╱42╱B╱ // 0xd8a @0x2a
0x0d60…0d99 at002b = ╱50╱P╱ // 0xd8b @0x2b
0x0d60…0d99 at002c = ╱4f╱O╱ // 0xd8c @0x2c
0x0d60…0d99 at002d = ╱53╱S╱ // 0xd8d @0x2d
0x0d60…0d99 at002e = ╱54╱T╱ // 0xd8e @0x2e
0x0d60…0d99 at002f = ╱4e╱N╱ // 0xd8f @0x2f
0x0d60…0d99 at0030 = ╱52╱R╱ // 0xd90 @0x30
0x0d60…0d99 at0031 = ╱ec╱,╱ // 0xd91 @0x31
0x0d60…0d99 at0032 = ╱44╱D╱ // 0xd92 @0x32
0x0d60…0d99 at0033 = ╱45╱E╱ // 0xd93 @0x33
0x0d60…0d99 at0034 = ╱42╱B╱ // 0xd94 @0x34
0x0d60…0d99 at0035 = ╱4c╱L╱ // 0xd95 @0x35
0x0d60…0d99 at0036 = ╱4b╱K╱ // 0xd96 @0x36
0x0d60…0d99 at0037 = ╱ef╱$╱ // 0xd97 @0x37
0x0d60…0d99 at0038 = EOL // 0xd98 @0x38
0x0d60…0d99 }
0x0d99…0db1 9b08 1320 EXEC FEJL(W,4,K3$)
0x0d99…0db1 LineComalBin {
0x0d99…0db1 ptr = 0x9b08 // 0xd99 @0x0
0x0d99…0db1 lno = 0x0528 // 0xd9b @0x2
0x0d99…0db1 at0004 = ╱9d╱ EXEC ╱ // 0xd9d @0x4
0x0d99…0db1 at0005 = ╱46╱F╱ // 0xd9e @0x5
0x0d99…0db1 at0006 = ╱45╱E╱ // 0xd9f @0x6
0x0d99…0db1 at0007 = ╱4a╱J╱ // 0xda0 @0x7
0x0d99…0db1 at0008 = ╱4c╱L╱ // 0xda1 @0x8
0x0d99…0db1 at0009 = ╱ed╱(╱ // 0xda2 @0x9
0x0d99…0db1 at000a = ╱57╱W╱ // 0xda3 @0xa
0x0d99…0db1 at000b = ╱ec╱,╱ // 0xda4 @0xb
0x0d99…0db1 at000c = ╱34╱4╱ // 0xda5 @0xc
0x0d99…0db1 at000d = ╱fe00008003╱ // 0xda6 @0xd
0x0d99…0db1 at0012 = ╱ec╱,╱ // 0xdab @0x12
0x0d99…0db1 at0013 = ╱4b╱K╱ // 0xdac @0x13
0x0d99…0db1 at0014 = ╱33╱3╱ // 0xdad @0x14
0x0d99…0db1 at0015 = ╱ef╱$╱ // 0xdae @0x15
0x0d99…0db1 at0016 = ╱ee╱)╱ // 0xdaf @0x16
0x0d99…0db1 at0017 = EOL // 0xdb0 @0x17
0x0d99…0db1 }
0x0db1…0ddc 9b33 1330 PUT K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x0db1…0ddc LineComalBin {
0x0db1…0ddc ptr = 0x9b33 // 0xdb1 @0x0
0x0db1…0ddc lno = 0x0532 // 0xdb3 @0x2
0x0db1…0ddc at0004 = ╱aa╱ PUT ╱ // 0xdb5 @0x4
0x0db1…0ddc at0005 = ╱4b╱K╱ // 0xdb6 @0x5
0x0db1…0ddc at0006 = ╱33╱3╱ // 0xdb7 @0x6
0x0db1…0ddc at0007 = ╱ef╱$╱ // 0xdb8 @0x7
0x0db1…0ddc at0008 = ╱ec╱,╱ // 0xdb9 @0x8
0x0db1…0ddc at0009 = ╱53╱S╱ // 0xdba @0x9
0x0db1…0ddc at000a = ╱e2╱+╱ // 0xdbb @0xa
0x0db1…0ddc at000b = ╱47╱G╱ // 0xdbc @0xb
0x0db1…0ddc at000c = ╱f0╱:╱ // 0xdbd @0xc
0x0db1…0ddc at000d = ╱44╱D╱ // 0xdbe @0xd
0x0db1…0ddc at000e = ╱45╱E╱ // 0xdbf @0xe
0x0db1…0ddc at000f = ╱42╱B╱ // 0xdc0 @0xf
0x0db1…0ddc at0010 = ╱47╱G╱ // 0xdc1 @0x10
0x0db1…0ddc at0011 = ╱41╱A╱ // 0xdc2 @0x11
0x0db1…0ddc at0012 = ╱44╱D╱ // 0xdc3 @0x12
0x0db1…0ddc at0013 = ╱45╱E╱ // 0xdc4 @0x13
0x0db1…0ddc at0014 = ╱ef╱$╱ // 0xdc5 @0x14
0x0db1…0ddc at0015 = ╱ec╱,╱ // 0xdc6 @0x15
0x0db1…0ddc at0016 = ╱44╱D╱ // 0xdc7 @0x16
0x0db1…0ddc at0017 = ╱45╱E╱ // 0xdc8 @0x17
0x0db1…0ddc at0018 = ╱42╱B╱ // 0xdc9 @0x18
0x0db1…0ddc at0019 = ╱54╱T╱ // 0xdca @0x19
0x0db1…0ddc at001a = ╱4c╱L╱ // 0xdcb @0x1a
0x0db1…0ddc at001b = ╱46╱F╱ // 0xdcc @0x1b
0x0db1…0ddc at001c = ╱ef╱$╱ // 0xdcd @0x1c
0x0db1…0ddc at001d = ╱ec╱,╱ // 0xdce @0x1d
0x0db1…0ddc at001e = ╱48╱H╱ // 0xdcf @0x1e
0x0db1…0ddc at001f = ╱50╱P╱ // 0xdd0 @0x1f
0x0db1…0ddc at0020 = ╱4f╱O╱ // 0xdd1 @0x20
0x0db1…0ddc at0021 = ╱53╱S╱ // 0xdd2 @0x21
0x0db1…0ddc at0022 = ╱54╱T╱ // 0xdd3 @0x22
0x0db1…0ddc at0023 = ╱ec╱,╱ // 0xdd4 @0x23
0x0db1…0ddc at0024 = ╱48╱H╱ // 0xdd5 @0x24
0x0db1…0ddc at0025 = ╱4b╱K╱ // 0xdd6 @0x25
0x0db1…0ddc at0026 = ╱55╱U╱ // 0xdd7 @0x26
0x0db1…0ddc at0027 = ╱4e╱N╱ // 0xdd8 @0x27
0x0db1…0ddc at0028 = ╱44╱D╱ // 0xdd9 @0x28
0x0db1…0ddc at0029 = ╱45╱E╱ // 0xdda @0x29
0x0db1…0ddc at002a = EOL // 0xddb @0x2a
0x0db1…0ddc }
0x0ddc…0df4 9b4b 1340 EXEC FEJL(W,4,K3$)
0x0ddc…0df4 LineComalBin {
0x0ddc…0df4 ptr = 0x9b4b // 0xddc @0x0
0x0ddc…0df4 lno = 0x053c // 0xdde @0x2
0x0ddc…0df4 at0004 = ╱9d╱ EXEC ╱ // 0xde0 @0x4
0x0ddc…0df4 at0005 = ╱46╱F╱ // 0xde1 @0x5
0x0ddc…0df4 at0006 = ╱45╱E╱ // 0xde2 @0x6
0x0ddc…0df4 at0007 = ╱4a╱J╱ // 0xde3 @0x7
0x0ddc…0df4 at0008 = ╱4c╱L╱ // 0xde4 @0x8
0x0ddc…0df4 at0009 = ╱ed╱(╱ // 0xde5 @0x9
0x0ddc…0df4 at000a = ╱57╱W╱ // 0xde6 @0xa
0x0ddc…0df4 at000b = ╱ec╱,╱ // 0xde7 @0xb
0x0ddc…0df4 at000c = ╱34╱4╱ // 0xde8 @0xc
0x0ddc…0df4 at000d = ╱fe00008003╱ // 0xde9 @0xd
0x0ddc…0df4 at0012 = ╱ec╱,╱ // 0xdee @0x12
0x0ddc…0df4 at0013 = ╱4b╱K╱ // 0xdef @0x13
0x0ddc…0df4 at0014 = ╱33╱3╱ // 0xdf0 @0x14
0x0ddc…0df4 at0015 = ╱ef╱$╱ // 0xdf1 @0x15
0x0ddc…0df4 at0016 = ╱ee╱)╱ // 0xdf2 @0x16
0x0ddc…0df4 at0017 = EOL // 0xdf3 @0x17
0x0ddc…0df4 }
0x0df4…0e17 9b6e 1350 PUT K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x0df4…0e17 LineComalBin {
0x0df4…0e17 ptr = 0x9b6e // 0xdf4 @0x0
0x0df4…0e17 lno = 0x0546 // 0xdf6 @0x2
0x0df4…0e17 at0004 = ╱aa╱ PUT ╱ // 0xdf8 @0x4
0x0df4…0e17 at0005 = ╱4b╱K╱ // 0xdf9 @0x5
0x0df4…0e17 at0006 = ╱33╱3╱ // 0xdfa @0x6
0x0df4…0e17 at0007 = ╱ef╱$╱ // 0xdfb @0x7
0x0df4…0e17 at0008 = ╱ec╱,╱ // 0xdfc @0x8
0x0df4…0e17 at0009 = ╱53╱S╱ // 0xdfd @0x9
0x0df4…0e17 at000a = ╱e2╱+╱ // 0xdfe @0xa
0x0df4…0e17 at000b = ╱56╱V╱ // 0xdff @0xb
0x0df4…0e17 at000c = ╱f0╱:╱ // 0xe00 @0xc
0x0df4…0e17 at000d = ╱44╱D╱ // 0xe01 @0xd
0x0df4…0e17 at000e = ╱45╱E╱ // 0xe02 @0xe
0x0df4…0e17 at000f = ╱42╱B╱ // 0xe03 @0xf
0x0df4…0e17 at0010 = ╱42╱B╱ // 0xe04 @0x10
0x0df4…0e17 at0011 = ╱59╱Y╱ // 0xe05 @0x11
0x0df4…0e17 at0012 = ╱ef╱$╱ // 0xe06 @0x12
0x0df4…0e17 at0013 = ╱ec╱,╱ // 0xe07 @0x13
0x0df4…0e17 at0014 = ╱5d╱Å╱ // 0xe08 @0x14
0x0df4…0e17 at0015 = ╱52╱R╱ // 0xe09 @0x15
0x0df4…0e17 at0016 = ╱4b╱K╱ // 0xe0a @0x16
0x0df4…0e17 at0017 = ╱5c╱Ø╱ // 0xe0b @0x17
0x0df4…0e17 at0018 = ╱42╱B╱ // 0xe0c @0x18
0x0df4…0e17 at0019 = ╱ef╱$╱ // 0xe0d @0x19
0x0df4…0e17 at001a = ╱ec╱,╱ // 0xe0e @0x1a
0x0df4…0e17 at001b = ╱4d╱M╱ // 0xe0f @0x1b
0x0df4…0e17 at001c = ╱44╱D╱ // 0xe10 @0x1c
0x0df4…0e17 at001d = ╱4e╱N╱ // 0xe11 @0x1d
0x0df4…0e17 at001e = ╱4b╱K╱ // 0xe12 @0x1e
0x0df4…0e17 at001f = ╱5c╱Ø╱ // 0xe13 @0x1f
0x0df4…0e17 at0020 = ╱42╱B╱ // 0xe14 @0x20
0x0df4…0e17 at0021 = ╱ef╱$╱ // 0xe15 @0x21
0x0df4…0e17 at0022 = EOL // 0xe16 @0x22
0x0df4…0e17 }
0x0e17…0e2f 9b86 1360 EXEC FEJL(W,5,K3$)
0x0e17…0e2f LineComalBin {
0x0e17…0e2f ptr = 0x9b86 // 0xe17 @0x0
0x0e17…0e2f lno = 0x0550 // 0xe19 @0x2
0x0e17…0e2f at0004 = ╱9d╱ EXEC ╱ // 0xe1b @0x4
0x0e17…0e2f at0005 = ╱46╱F╱ // 0xe1c @0x5
0x0e17…0e2f at0006 = ╱45╱E╱ // 0xe1d @0x6
0x0e17…0e2f at0007 = ╱4a╱J╱ // 0xe1e @0x7
0x0e17…0e2f at0008 = ╱4c╱L╱ // 0xe1f @0x8
0x0e17…0e2f at0009 = ╱ed╱(╱ // 0xe20 @0x9
0x0e17…0e2f at000a = ╱57╱W╱ // 0xe21 @0xa
0x0e17…0e2f at000b = ╱ec╱,╱ // 0xe22 @0xb
0x0e17…0e2f at000c = ╱35╱5╱ // 0xe23 @0xc
0x0e17…0e2f at000d = ╱fe0000a003╱ // 0xe24 @0xd
0x0e17…0e2f at0012 = ╱ec╱,╱ // 0xe29 @0x12
0x0e17…0e2f at0013 = ╱4b╱K╱ // 0xe2a @0x13
0x0e17…0e2f at0014 = ╱33╱3╱ // 0xe2b @0x14
0x0e17…0e2f at0015 = ╱ef╱$╱ // 0xe2c @0x15
0x0e17…0e2f at0016 = ╱ee╱)╱ // 0xe2d @0x16
0x0e17…0e2f at0017 = EOL // 0xe2e @0x17
0x0e17…0e2f }
0x0e2f…0e35 9b8c 1370 ENDPROC
0x0e2f…0e35 LineComalBin {
0x0e2f…0e35 ptr = 0x9b8c // 0xe2f @0x0
0x0e2f…0e35 lno = 0x055a // 0xe31 @0x2
0x0e2f…0e35 at0004 = ╱9f╱ ENDPROC ╱ // 0xe33 @0x4
0x0e2f…0e35 at0005 = EOL // 0xe34 @0x5
0x0e2f…0e35 }
0x0e35…0e56 9bad 1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2)
0x0e35…0e56 LineComalBin {
0x0e35…0e56 ptr = 0x9bad // 0xe35 @0x0
0x0e35…0e56 lno = 0x0564 // 0xe37 @0x2
0x0e35…0e56 at0004 = ╱9e╱ PROC ╱ // 0xe39 @0x4
0x0e35…0e56 at0005 = ╱44╱D╱ // 0xe3a @0x5
0x0e35…0e56 at0006 = ╱49╱I╱ // 0xe3b @0x6
0x0e35…0e56 at0007 = ╱4e╱N╱ // 0xe3c @0x7
0x0e35…0e56 at0008 = ╱44╱D╱ // 0xe3d @0x8
0x0e35…0e56 at0009 = ╱54╱T╱ // 0xe3e @0x9
0x0e35…0e56 at000a = ╱41╱A╱ // 0xe3f @0xa
0x0e35…0e56 at000b = ╱53╱S╱ // 0xe40 @0xb
0x0e35…0e56 at000c = ╱54╱T╱ // 0xe41 @0xc
0x0e35…0e56 at000d = ╱ed╱(╱ // 0xe42 @0xd
0x0e35…0e56 at000e = ╱44╱D╱ // 0xe43 @0xe
0x0e35…0e56 at000f = ╱53╱S╱ // 0xe44 @0xf
0x0e35…0e56 at0010 = ╱54╱T╱ // 0xe45 @0x10
0x0e35…0e56 at0011 = ╱59╱Y╱ // 0xe46 @0x11
0x0e35…0e56 at0012 = ╱52╱R╱ // 0xe47 @0x12
0x0e35…0e56 at0013 = ╱ec╱,╱ // 0xe48 @0x13
0x0e35…0e56 at0014 = ╱43╱C╱ // 0xe49 @0x14
0x0e35…0e56 at0015 = ╱5b╱Æ╱ // 0xe4a @0x15
0x0e35…0e56 at0016 = ╱4e╱N╱ // 0xe4b @0x16
0x0e35…0e56 at0017 = ╱44╱D╱ // 0xe4c @0x17
0x0e35…0e56 at0018 = ╱ec╱,╱ // 0xe4d @0x18
0x0e35…0e56 at0019 = ╱44╱D╱ // 0xe4e @0x19
0x0e35…0e56 at001a = ╱45╱E╱ // 0xe4f @0x1a
0x0e35…0e56 at001b = ╱42╱B╱ // 0xe50 @0x1b
0x0e35…0e56 at001c = ╱4e╱N╱ // 0xe51 @0x1c
0x0e35…0e56 at001d = ╱52╱R╱ // 0xe52 @0x1d
0x0e35…0e56 at001e = ╱32╱2╱ // 0xe53 @0x1e
0x0e35…0e56 at001f = ╱ee╱)╱ // 0xe54 @0x1f
0x0e35…0e56 at0020 = EOL // 0xe55 @0x20
0x0e35…0e56 }
0x0e56…0e63 9bba 1390 IF CÆND<>E THEN
0x0e56…0e63 LineComalBin {
0x0e56…0e63 ptr = 0x9bba // 0xe56 @0x0
0x0e56…0e63 lno = 0x056e // 0xe58 @0x2
0x0e56…0e63 at0004 = ╱9c╱ IF ╱ // 0xe5a @0x4
0x0e56…0e63 at0005 = ╱43╱C╱ // 0xe5b @0x5
0x0e56…0e63 at0006 = ╱5b╱Æ╱ // 0xe5c @0x6
0x0e56…0e63 at0007 = ╱4e╱N╱ // 0xe5d @0x7
0x0e56…0e63 at0008 = ╱44╱D╱ // 0xe5e @0x8
0x0e56…0e63 at0009 = ╱e1╱<>╱ // 0xe5f @0x9
0x0e56…0e63 at000a = ╱45╱E╱ // 0xe60 @0xa
0x0e56…0e63 at000b = ╱b6╱ THEN ╱ // 0xe61 @0xb
0x0e56…0e63 at000c = EOL // 0xe62 @0xc
0x0e56…0e63 }
0x0e63…0e69 9bc0 1400 CLEAR
0x0e63…0e69 LineComalBin {
0x0e63…0e69 ptr = 0x9bc0 // 0xe63 @0x0
0x0e63…0e69 lno = 0x0578 // 0xe65 @0x2
0x0e63…0e69 at0004 = ╱a0╱ CLEAR ╱ // 0xe67 @0x4
0x0e63…0e69 at0005 = EOL // 0xe68 @0x5
0x0e63…0e69 }
0x0e69…0e78 9bcf 1410 CURSOR 21,E
0x0e69…0e78 LineComalBin {
0x0e69…0e78 ptr = 0x9bcf // 0xe69 @0x0
0x0e69…0e78 lno = 0x0582 // 0xe6b @0x2
0x0e69…0e78 at0004 = ╱a1╱ CURSOR ╱ // 0xe6d @0x4
0x0e69…0e78 at0005 = ╱32╱2╱ // 0xe6e @0x5
0x0e69…0e78 at0006 = ╱31╱1╱ // 0xe6f @0x6
0x0e69…0e78 at0007 = ╱fe0000a805╱ // 0xe70 @0x7
0x0e69…0e78 at000c = ╱ec╱,╱ // 0xe75 @0xc
0x0e69…0e78 at000d = ╱45╱E╱ // 0xe76 @0xd
0x0e69…0e78 at000e = EOL // 0xe77 @0xe
0x0e69…0e78 }
0x0e78…0e90 9be7 1420 PRINT "Kundeoplysninger"
0x0e78…0e90 LineComalBin {
0x0e78…0e90 ptr = 0x9be7 // 0xe78 @0x0
0x0e78…0e90 lno = 0x058c // 0xe7a @0x2
0x0e78…0e90 at0004 = ╱92╱ PRINT ╱ // 0xe7c @0x4
0x0e78…0e90 at0005 = ╱22╱"╱ // 0xe7d @0x5
0x0e78…0e90 at0006 = ╱4b╱K╱ // 0xe7e @0x6
0x0e78…0e90 at0007 = ╱75╱u╱ // 0xe7f @0x7
0x0e78…0e90 at0008 = ╱6e╱n╱ // 0xe80 @0x8
0x0e78…0e90 at0009 = ╱64╱d╱ // 0xe81 @0x9
0x0e78…0e90 at000a = ╱65╱e╱ // 0xe82 @0xa
0x0e78…0e90 at000b = ╱6f╱o╱ // 0xe83 @0xb
0x0e78…0e90 at000c = ╱70╱p╱ // 0xe84 @0xc
0x0e78…0e90 at000d = ╱6c╱l╱ // 0xe85 @0xd
0x0e78…0e90 at000e = ╱79╱y╱ // 0xe86 @0xe
0x0e78…0e90 at000f = ╱73╱s╱ // 0xe87 @0xf
0x0e78…0e90 at0010 = ╱6e╱n╱ // 0xe88 @0x10
0x0e78…0e90 at0011 = ╱69╱i╱ // 0xe89 @0x11
0x0e78…0e90 at0012 = ╱6e╱n╱ // 0xe8a @0x12
0x0e78…0e90 at0013 = ╱67╱g╱ // 0xe8b @0x13
0x0e78…0e90 at0014 = ╱65╱e╱ // 0xe8c @0x14
0x0e78…0e90 at0015 = ╱72╱r╱ // 0xe8d @0x15
0x0e78…0e90 at0016 = ╱22╱"╱ // 0xe8e @0x16
0x0e78…0e90 at0017 = EOL // 0xe8f @0x17
0x0e78…0e90 }
0x0e90…0ea0 9bf7 1430 EXEC OVERSKRIFT
0x0e90…0ea0 LineComalBin {
0x0e90…0ea0 ptr = 0x9bf7 // 0xe90 @0x0
0x0e90…0ea0 lno = 0x0596 // 0xe92 @0x2
0x0e90…0ea0 at0004 = ╱9d╱ EXEC ╱ // 0xe94 @0x4
0x0e90…0ea0 at0005 = ╱4f╱O╱ // 0xe95 @0x5
0x0e90…0ea0 at0006 = ╱56╱V╱ // 0xe96 @0x6
0x0e90…0ea0 at0007 = ╱45╱E╱ // 0xe97 @0x7
0x0e90…0ea0 at0008 = ╱52╱R╱ // 0xe98 @0x8
0x0e90…0ea0 at0009 = ╱53╱S╱ // 0xe99 @0x9
0x0e90…0ea0 at000a = ╱4b╱K╱ // 0xe9a @0xa
0x0e90…0ea0 at000b = ╱52╱R╱ // 0xe9b @0xb
0x0e90…0ea0 at000c = ╱49╱I╱ // 0xe9c @0xc
0x0e90…0ea0 at000d = ╱46╱F╱ // 0xe9d @0xd
0x0e90…0ea0 at000e = ╱54╱T╱ // 0xe9e @0xe
0x0e90…0ea0 at000f = EOL // 0xe9f @0xf
0x0e90…0ea0 }
0x0ea0…0ea9 9c00 1440 CURSOR G,V
0x0ea0…0ea9 LineComalBin {
0x0ea0…0ea9 ptr = 0x9c00 // 0xea0 @0x0
0x0ea0…0ea9 lno = 0x05a0 // 0xea2 @0x2
0x0ea0…0ea9 at0004 = ╱a1╱ CURSOR ╱ // 0xea4 @0x4
0x0ea0…0ea9 at0005 = ╱47╱G╱ // 0xea5 @0x5
0x0ea0…0ea9 at0006 = ╱ec╱,╱ // 0xea6 @0x6
0x0ea0…0ea9 at0007 = ╱56╱V╱ // 0xea7 @0x7
0x0ea0…0ea9 at0008 = EOL // 0xea8 @0x8
0x0ea0…0ea9 }
0x0ea9…0ec5 9c1c 1450 PRINT "1:Kundenr :";DEBNR2
0x0ea9…0ec5 LineComalBin {
0x0ea9…0ec5 ptr = 0x9c1c // 0xea9 @0x0
0x0ea9…0ec5 lno = 0x05aa // 0xeab @0x2
0x0ea9…0ec5 at0004 = ╱92╱ PRINT ╱ // 0xead @0x4
0x0ea9…0ec5 at0005 = ╱22╱"╱ // 0xeae @0x5
0x0ea9…0ec5 at0006 = ╱31╱1╱ // 0xeaf @0x6
0x0ea9…0ec5 at0007 = ╱3a╱:╱ // 0xeb0 @0x7
0x0ea9…0ec5 at0008 = ╱4b╱K╱ // 0xeb1 @0x8
0x0ea9…0ec5 at0009 = ╱75╱u╱ // 0xeb2 @0x9
0x0ea9…0ec5 at000a = ╱6e╱n╱ // 0xeb3 @0xa
0x0ea9…0ec5 at000b = ╱64╱d╱ // 0xeb4 @0xb
0x0ea9…0ec5 at000c = ╱65╱e╱ // 0xeb5 @0xc
0x0ea9…0ec5 at000d = ╱6e╱n╱ // 0xeb6 @0xd
0x0ea9…0ec5 at000e = ╱72╱r╱ // 0xeb7 @0xe
0x0ea9…0ec5 at000f = ╱20╱…╱ // 0xeb8 @0xf
0x0ea9…0ec5 at0010 = ╱20╱…╱ // 0xeb9 @0x10
0x0ea9…0ec5 at0011 = ╱20╱…╱ // 0xeba @0x11
0x0ea9…0ec5 at0012 = ╱3a╱:╱ // 0xebb @0x12
0x0ea9…0ec5 at0013 = ╱22╱"╱ // 0xebc @0x13
0x0ea9…0ec5 at0014 = ╱eb╱;╱ // 0xebd @0x14
0x0ea9…0ec5 at0015 = ╱44╱D╱ // 0xebe @0x15
0x0ea9…0ec5 at0016 = ╱45╱E╱ // 0xebf @0x16
0x0ea9…0ec5 at0017 = ╱42╱B╱ // 0xec0 @0x17
0x0ea9…0ec5 at0018 = ╱4e╱N╱ // 0xec1 @0x18
0x0ea9…0ec5 at0019 = ╱52╱R╱ // 0xec2 @0x19
0x0ea9…0ec5 at001a = ╱32╱2╱ // 0xec3 @0x1a
0x0ea9…0ec5 at001b = EOL // 0xec4 @0x1b
0x0ea9…0ec5 }
0x0ec5…0ecb 9c22 1460 ENDIF
0x0ec5…0ecb LineComalBin {
0x0ec5…0ecb ptr = 0x9c22 // 0xec5 @0x0
0x0ec5…0ecb lno = 0x05b4 // 0xec7 @0x2
0x0ec5…0ecb at0004 = ╱9b╱ ENDIF ╱ // 0xec9 @0x4
0x0ec5…0ecb at0005 = EOL // 0xeca @0x5
0x0ec5…0ecb }
0x0ecb…0ed1 9c28 1470 REPEAT
0x0ecb…0ed1 LineComalBin {
0x0ecb…0ed1 ptr = 0x9c28 // 0xecb @0x0
0x0ecb…0ed1 lno = 0x05be // 0xecd @0x2
0x0ecb…0ed1 at0004 = ╱97╱ REPEAT ╱ // 0xecf @0x4
0x0ecb…0ed1 at0005 = EOL // 0xed0 @0x5
0x0ecb…0ed1 }
0x0ed1…0ede 9c35 1480 CASE DSTYR OF
0x0ed1…0ede LineComalBin {
0x0ed1…0ede ptr = 0x9c35 // 0xed1 @0x0
0x0ed1…0ede lno = 0x05c8 // 0xed3 @0x2
0x0ed1…0ede at0004 = ╱a201╱ CASE ╱ // 0xed5 @0x4
0x0ed1…0ede at0006 = ╱44╱D╱ // 0xed7 @0x6
0x0ed1…0ede at0007 = ╱53╱S╱ // 0xed8 @0x7
0x0ed1…0ede at0008 = ╱54╱T╱ // 0xed9 @0x8
0x0ed1…0ede at0009 = ╱59╱Y╱ // 0xeda @0x9
0x0ed1…0ede at000a = ╱52╱R╱ // 0xedb @0xa
0x0ed1…0ede at000b = ╱ba╱ OF ╱ // 0xedc @0xb
0x0ed1…0ede at000c = EOL // 0xedd @0xc
0x0ed1…0ede }
0x0ede…0ee4 9c3b 1490 STOP
0x0ede…0ee4 LineComalBin {
0x0ede…0ee4 ptr = 0x9c3b // 0xede @0x0
0x0ede…0ee4 lno = 0x05d2 // 0xee0 @0x2
0x0ede…0ee4 at0004 = ╱8d╱ STOP ╱ // 0xee2 @0x4
0x0ede…0ee4 at0005 = EOL // 0xee3 @0x5
0x0ede…0ee4 }
0x0ee4…0eec 9c43 1500 WHEN G
0x0ee4…0eec LineComalBin {
0x0ee4…0eec ptr = 0x9c43 // 0xee4 @0x0
0x0ee4…0eec lno = 0x05dc // 0xee6 @0x2
0x0ee4…0eec at0004 = ╱a301╱ WHEN ╱ // 0xee8 @0x4
0x0ee4…0eec at0006 = ╱47╱G╱ // 0xeea @0x6
0x0ee4…0eec at0007 = EOL // 0xeeb @0x7
0x0ee4…0eec }
0x0eec…0ef9 9c50 1510 IF CÆND<>E THEN
0x0eec…0ef9 LineComalBin {
0x0eec…0ef9 ptr = 0x9c50 // 0xeec @0x0
0x0eec…0ef9 lno = 0x05e6 // 0xeee @0x2
0x0eec…0ef9 at0004 = ╱9c╱ IF ╱ // 0xef0 @0x4
0x0eec…0ef9 at0005 = ╱43╱C╱ // 0xef1 @0x5
0x0eec…0ef9 at0006 = ╱5b╱Æ╱ // 0xef2 @0x6
0x0eec…0ef9 at0007 = ╱4e╱N╱ // 0xef3 @0x7
0x0eec…0ef9 at0008 = ╱44╱D╱ // 0xef4 @0x8
0x0eec…0ef9 at0009 = ╱e1╱<>╱ // 0xef5 @0x9
0x0eec…0ef9 at000a = ╱45╱E╱ // 0xef6 @0xa
0x0eec…0ef9 at000b = ╱b6╱ THEN ╱ // 0xef7 @0xb
0x0eec…0ef9 at000c = EOL // 0xef8 @0xc
0x0eec…0ef9 }
0x0ef9…0f07 9c5e 1520 CURSOR G,4
0x0ef9…0f07 LineComalBin {
0x0ef9…0f07 ptr = 0x9c5e // 0xef9 @0x0
0x0ef9…0f07 lno = 0x05f0 // 0xefb @0x2
0x0ef9…0f07 at0004 = ╱a1╱ CURSOR ╱ // 0xefd @0x4
0x0ef9…0f07 at0005 = ╱47╱G╱ // 0xefe @0x5
0x0ef9…0f07 at0006 = ╱ec╱,╱ // 0xeff @0x6
0x0ef9…0f07 at0007 = ╱34╱4╱ // 0xf00 @0x7
0x0ef9…0f07 at0008 = ╱fe00008003╱ // 0xf01 @0x8
0x0ef9…0f07 at000d = EOL // 0xf06 @0xd
0x0ef9…0f07 }
0x0f07…0f1c 9c73 1530 PRINT "2:Navn :"
0x0f07…0f1c LineComalBin {
0x0f07…0f1c ptr = 0x9c73 // 0xf07 @0x0
0x0f07…0f1c lno = 0x05fa // 0xf09 @0x2
0x0f07…0f1c at0004 = ╱92╱ PRINT ╱ // 0xf0b @0x4
0x0f07…0f1c at0005 = ╱22╱"╱ // 0xf0c @0x5
0x0f07…0f1c at0006 = ╱32╱2╱ // 0xf0d @0x6
0x0f07…0f1c at0007 = ╱3a╱:╱ // 0xf0e @0x7
0x0f07…0f1c at0008 = ╱4e╱N╱ // 0xf0f @0x8
0x0f07…0f1c at0009 = ╱61╱a╱ // 0xf10 @0x9
0x0f07…0f1c at000a = ╱76╱v╱ // 0xf11 @0xa
0x0f07…0f1c at000b = ╱6e╱n╱ // 0xf12 @0xb
0x0f07…0f1c at000c = ╱20╱…╱ // 0xf13 @0xc
0x0f07…0f1c at000d = ╱20╱…╱ // 0xf14 @0xd
0x0f07…0f1c at000e = ╱20╱…╱ // 0xf15 @0xe
0x0f07…0f1c at000f = ╱20╱…╱ // 0xf16 @0xf
0x0f07…0f1c at0010 = ╱20╱…╱ // 0xf17 @0x10
0x0f07…0f1c at0011 = ╱20╱…╱ // 0xf18 @0x11
0x0f07…0f1c at0012 = ╱3a╱:╱ // 0xf19 @0x12
0x0f07…0f1c at0013 = ╱22╱"╱ // 0xf1a @0x13
0x0f07…0f1c at0014 = EOL // 0xf1b @0x14
0x0f07…0f1c }
0x0f1c…0f28 9c7f 1540 DSTYR=V
0x0f1c…0f28 LineComalBin {
0x0f1c…0f28 ptr = 0x9c7f // 0xf1c @0x0
0x0f1c…0f28 lno = 0x0604 // 0xf1e @0x2
0x0f1c…0f28 at0004 = ╱44╱D╱ // 0xf20 @0x4
0x0f1c…0f28 at0005 = ╱53╱S╱ // 0xf21 @0x5
0x0f1c…0f28 at0006 = ╱54╱T╱ // 0xf22 @0x6
0x0f1c…0f28 at0007 = ╱59╱Y╱ // 0xf23 @0x7
0x0f1c…0f28 at0008 = ╱52╱R╱ // 0xf24 @0x8
0x0f1c…0f28 at0009 = ╱dc╱=╱ // 0xf25 @0x9
0x0f1c…0f28 at000a = ╱56╱V╱ // 0xf26 @0xa
0x0f1c…0f28 at000b = EOL // 0xf27 @0xb
0x0f1c…0f28 }
0x0f28…0f2e 9c85 1550 ENDIF
0x0f28…0f2e LineComalBin {
0x0f28…0f2e ptr = 0x9c85 // 0xf28 @0x0
0x0f28…0f2e lno = 0x060e // 0xf2a @0x2
0x0f28…0f2e at0004 = ╱9b╱ ENDIF ╱ // 0xf2c @0x4
0x0f28…0f2e at0005 = EOL // 0xf2d @0x5
0x0f28…0f2e }
0x0f2e…0f3b 9c92 1560 IF CÆND<>G THEN
0x0f2e…0f3b LineComalBin {
0x0f2e…0f3b ptr = 0x9c92 // 0xf2e @0x0
0x0f2e…0f3b lno = 0x0618 // 0xf30 @0x2
0x0f2e…0f3b at0004 = ╱9c╱ IF ╱ // 0xf32 @0x4
0x0f2e…0f3b at0005 = ╱43╱C╱ // 0xf33 @0x5
0x0f2e…0f3b at0006 = ╱5b╱Æ╱ // 0xf34 @0x6
0x0f2e…0f3b at0007 = ╱4e╱N╱ // 0xf35 @0x7
0x0f2e…0f3b at0008 = ╱44╱D╱ // 0xf36 @0x8
0x0f2e…0f3b at0009 = ╱e1╱<>╱ // 0xf37 @0x9
0x0f2e…0f3b at000a = ╱47╱G╱ // 0xf38 @0xa
0x0f2e…0f3b at000b = ╱b6╱ THEN ╱ // 0xf39 @0xb
0x0f2e…0f3b at000c = EOL // 0xf3a @0xc
0x0f2e…0f3b }
0x0f3b…0f4a 9ca1 1570 CURSOR V,23
0x0f3b…0f4a LineComalBin {
0x0f3b…0f4a ptr = 0x9ca1 // 0xf3b @0x0
0x0f3b…0f4a lno = 0x0622 // 0xf3d @0x2
0x0f3b…0f4a at0004 = ╱a1╱ CURSOR ╱ // 0xf3f @0x4
0x0f3b…0f4a at0005 = ╱56╱V╱ // 0xf40 @0x5
0x0f3b…0f4a at0006 = ╱ec╱,╱ // 0xf41 @0x6
0x0f3b…0f4a at0007 = ╱32╱2╱ // 0xf42 @0x7
0x0f3b…0f4a at0008 = ╱33╱3╱ // 0xf43 @0x8
0x0f3b…0f4a at0009 = ╱fe0000b805╱ // 0xf44 @0x9
0x0f3b…0f4a at000e = EOL // 0xf49 @0xe
0x0f3b…0f4a }
0x0f4a…0f8a 9ce1 1580 PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26)
0x0f4a…0f8a LineComalBin {
0x0f4a…0f8a ptr = 0x9ce1 // 0xf4a @0x0
0x0f4a…0f8a lno = 0x062c // 0xf4c @0x2
0x0f4a…0f8a at0004 = ╱92╱ PRINT ╱ // 0xf4e @0x4
0x0f4a…0f8a at0005 = ╱22╱"╱ // 0xf4f @0x5
0x0f4a…0f8a at0006 = ╱4e╱N╱ // 0xf50 @0x6
0x0f4a…0f8a at0007 = ╱61╱a╱ // 0xf51 @0x7
0x0f4a…0f8a at0008 = ╱76╱v╱ // 0xf52 @0x8
0x0f4a…0f8a at0009 = ╱6e╱n╱ // 0xf53 @0x9
0x0f4a…0f8a at000a = ╱22╱"╱ // 0xf54 @0xa
0x0f4a…0f8a at000b = ╱eb╱;╱ // 0xf55 @0xb
0x0f4a…0f8a at000c = ╱42╱B╱ // 0xf56 @0xc
0x0f4a…0f8a at000d = ╱4c╱L╱ // 0xf57 @0xd
0x0f4a…0f8a at000e = ╱41╱A╱ // 0xf58 @0xe
0x0f4a…0f8a at000f = ╱4e╱N╱ // 0xf59 @0xf
0x0f4a…0f8a at0010 = ╱4b╱K╱ // 0xf5a @0x10
0x0f4a…0f8a at0011 = ╱ef╱$╱ // 0xf5b @0x11
0x0f4a…0f8a at0012 = ╱ed╱(╱ // 0xf5c @0x12
0x0f4a…0f8a at0013 = ╱45╱E╱ // 0xf5d @0x13
0x0f4a…0f8a at0014 = ╱f0╱:╱ // 0xf5e @0x14
0x0f4a…0f8a at0015 = ╱33╱3╱ // 0xf5f @0x15
0x0f4a…0f8a at0016 = ╱33╱3╱ // 0xf60 @0x16
0x0f4a…0f8a at0017 = ╱fe00008406╱ // 0xf61 @0x17
0x0f4a…0f8a at001c = ╱ee╱)╱ // 0xf66 @0x1c
0x0f4a…0f8a at001d = ╱eb╱;╱ // 0xf67 @0x1d
0x0f4a…0f8a at001e = ╱22╱"╱ // 0xf68 @0x1e
0x0f4a…0f8a at001f = ╱28╱(╱ // 0xf69 @0x1f
0x0f4a…0f8a at0020 = ╱6d╱m╱ // 0xf6a @0x20
0x0f4a…0f8a at0021 = ╱61╱a╱ // 0xf6b @0x21
0x0f4a…0f8a at0022 = ╱78╱x╱ // 0xf6c @0x22
0x0f4a…0f8a at0023 = ╱20╱…╱ // 0xf6d @0x23
0x0f4a…0f8a at0024 = ╱32╱2╱ // 0xf6e @0x24
0x0f4a…0f8a at0025 = ╱35╱5╱ // 0xf6f @0x25
0x0f4a…0f8a at0026 = ╱20╱…╱ // 0xf70 @0x26
0x0f4a…0f8a at0027 = ╱74╱t╱ // 0xf71 @0x27
0x0f4a…0f8a at0028 = ╱65╱e╱ // 0xf72 @0x28
0x0f4a…0f8a at0029 = ╱67╱g╱ // 0xf73 @0x29
0x0f4a…0f8a at002a = ╱6e╱n╱ // 0xf74 @0x2a
0x0f4a…0f8a at002b = ╱29╱)╱ // 0xf75 @0x2b
0x0f4a…0f8a at002c = ╱22╱"╱ // 0xf76 @0x2c
0x0f4a…0f8a at002d = ╱eb╱;╱ // 0xf77 @0x2d
0x0f4a…0f8a at002e = ╱42╱B╱ // 0xf78 @0x2e
0x0f4a…0f8a at002f = ╱4c╱L╱ // 0xf79 @0x2f
0x0f4a…0f8a at0030 = ╱41╱A╱ // 0xf7a @0x30
0x0f4a…0f8a at0031 = ╱4e╱N╱ // 0xf7b @0x31
0x0f4a…0f8a at0032 = ╱4b╱K╱ // 0xf7c @0x32
0x0f4a…0f8a at0033 = ╱ef╱$╱ // 0xf7d @0x33
0x0f4a…0f8a at0034 = ╱ed╱(╱ // 0xf7e @0x34
0x0f4a…0f8a at0035 = ╱45╱E╱ // 0xf7f @0x35
0x0f4a…0f8a at0036 = ╱f0╱:╱ // 0xf80 @0x36
0x0f4a…0f8a at0037 = ╱32╱2╱ // 0xf81 @0x37
0x0f4a…0f8a at0038 = ╱36╱6╱ // 0xf82 @0x38
0x0f4a…0f8a at0039 = ╱fe0000d005╱ // 0xf83 @0x39
0x0f4a…0f8a at003e = ╱ee╱)╱ // 0xf88 @0x3e
0x0f4a…0f8a at003f = EOL // 0xf89 @0x3f
0x0f4a…0f8a }
0x0f8a…0f9f 9cf6 1590 CURSOR 13,23
0x0f8a…0f9f LineComalBin {
0x0f8a…0f9f ptr = 0x9cf6 // 0xf8a @0x0
0x0f8a…0f9f lno = 0x0636 // 0xf8c @0x2
0x0f8a…0f9f at0004 = ╱a1╱ CURSOR ╱ // 0xf8e @0x4
0x0f8a…0f9f at0005 = ╱31╱1╱ // 0xf8f @0x5
0x0f8a…0f9f at0006 = ╱33╱3╱ // 0xf90 @0x6
0x0f8a…0f9f at0007 = ╱fe0000d004╱ // 0xf91 @0x7
0x0f8a…0f9f at000c = ╱ec╱,╱ // 0xf96 @0xc
0x0f8a…0f9f at000d = ╱32╱2╱ // 0xf97 @0xd
0x0f8a…0f9f at000e = ╱33╱3╱ // 0xf98 @0xe
0x0f8a…0f9f at000f = ╱fe0000b805╱ // 0xf99 @0xf
0x0f8a…0f9f at0014 = EOL // 0xf9e @0x14
0x0f8a…0f9f }
0x0f9f…0fad 9d04 1600 INPUT DEBNAVN$
0x0f9f…0fad LineComalBin {
0x0f9f…0fad ptr = 0x9d04 // 0xf9f @0x0
0x0f9f…0fad lno = 0x0640 // 0xfa1 @0x2
0x0f9f…0fad at0004 = ╱91╱ INPUT ╱ // 0xfa3 @0x4
0x0f9f…0fad at0005 = ╱44╱D╱ // 0xfa4 @0x5
0x0f9f…0fad at0006 = ╱45╱E╱ // 0xfa5 @0x6
0x0f9f…0fad at0007 = ╱42╱B╱ // 0xfa6 @0x7
0x0f9f…0fad at0008 = ╱4e╱N╱ // 0xfa7 @0x8
0x0f9f…0fad at0009 = ╱41╱A╱ // 0xfa8 @0x9
0x0f9f…0fad at000a = ╱56╱V╱ // 0xfa9 @0xa
0x0f9f…0fad at000b = ╱4e╱N╱ // 0xfaa @0xb
0x0f9f…0fad at000c = ╱ef╱$╱ // 0xfab @0xc
0x0f9f…0fad at000d = EOL // 0xfac @0xd
0x0f9f…0fad }
0x0fad…0fb3 9d0a 1610 ENDIF
0x0fad…0fb3 LineComalBin {
0x0fad…0fb3 ptr = 0x9d0a // 0xfad @0x0
0x0fad…0fb3 lno = 0x064a // 0xfaf @0x2
0x0fad…0fb3 at0004 = ╱9b╱ ENDIF ╱ // 0xfb1 @0x4
0x0fad…0fb3 at0005 = EOL // 0xfb2 @0x5
0x0fad…0fb3 }
0x0fb3…0fc7 9d1e 1620 CURSOR 16,4
0x0fb3…0fc7 LineComalBin {
0x0fb3…0fc7 ptr = 0x9d1e // 0xfb3 @0x0
0x0fb3…0fc7 lno = 0x0654 // 0xfb5 @0x2
0x0fb3…0fc7 at0004 = ╱a1╱ CURSOR ╱ // 0xfb7 @0x4
0x0fb3…0fc7 at0005 = ╱31╱1╱ // 0xfb8 @0x5
0x0fb3…0fc7 at0006 = ╱36╱6╱ // 0xfb9 @0x6
0x0fb3…0fc7 at0007 = ╱fe00008005╱ // 0xfba @0x7
0x0fb3…0fc7 at000c = ╱ec╱,╱ // 0xfbf @0xc
0x0fb3…0fc7 at000d = ╱34╱4╱ // 0xfc0 @0xd
0x0fb3…0fc7 at000e = ╱fe00008003╱ // 0xfc1 @0xe
0x0fb3…0fc7 at0013 = EOL // 0xfc6 @0x13
0x0fb3…0fc7 }
0x0fc7…0fde 9d35 1630 PRINT BLANK$(E:25)
0x0fc7…0fde LineComalBin {
0x0fc7…0fde ptr = 0x9d35 // 0xfc7 @0x0
0x0fc7…0fde lno = 0x065e // 0xfc9 @0x2
0x0fc7…0fde at0004 = ╱92╱ PRINT ╱ // 0xfcb @0x4
0x0fc7…0fde at0005 = ╱42╱B╱ // 0xfcc @0x5
0x0fc7…0fde at0006 = ╱4c╱L╱ // 0xfcd @0x6
0x0fc7…0fde at0007 = ╱41╱A╱ // 0xfce @0x7
0x0fc7…0fde at0008 = ╱4e╱N╱ // 0xfcf @0x8
0x0fc7…0fde at0009 = ╱4b╱K╱ // 0xfd0 @0x9
0x0fc7…0fde at000a = ╱ef╱$╱ // 0xfd1 @0xa
0x0fc7…0fde at000b = ╱ed╱(╱ // 0xfd2 @0xb
0x0fc7…0fde at000c = ╱45╱E╱ // 0xfd3 @0xc
0x0fc7…0fde at000d = ╱f0╱:╱ // 0xfd4 @0xd
0x0fc7…0fde at000e = ╱32╱2╱ // 0xfd5 @0xe
0x0fc7…0fde at000f = ╱35╱5╱ // 0xfd6 @0xf
0x0fc7…0fde at0010 = ╱fe0000c805╱ // 0xfd7 @0x10
0x0fc7…0fde at0015 = ╱ee╱)╱ // 0xfdc @0x15
0x0fc7…0fde at0016 = EOL // 0xfdd @0x16
0x0fc7…0fde }
0x0fde…0ff2 9d49 1640 CURSOR 16,4
0x0fde…0ff2 LineComalBin {
0x0fde…0ff2 ptr = 0x9d49 // 0xfde @0x0
0x0fde…0ff2 lno = 0x0668 // 0xfe0 @0x2
0x0fde…0ff2 at0004 = ╱a1╱ CURSOR ╱ // 0xfe2 @0x4
0x0fde…0ff2 at0005 = ╱31╱1╱ // 0xfe3 @0x5
0x0fde…0ff2 at0006 = ╱36╱6╱ // 0xfe4 @0x6
0x0fde…0ff2 at0007 = ╱fe00008005╱ // 0xfe5 @0x7
0x0fde…0ff2 at000c = ╱ec╱,╱ // 0xfea @0xc
0x0fde…0ff2 at000d = ╱34╱4╱ // 0xfeb @0xd
0x0fde…0ff2 at000e = ╱fe00008003╱ // 0xfec @0xe
0x0fde…0ff2 at0013 = EOL // 0xff1 @0x13
0x0fde…0ff2 }
0x0ff2…1000 9d57 1650 PRINT DEBNAVN$
0x0ff2…1000 LineComalBin {
0x0ff2…1000 ptr = 0x9d57 // 0xff2 @0x0
0x0ff2…1000 lno = 0x0672 // 0xff4 @0x2
0x0ff2…1000 at0004 = ╱92╱ PRINT ╱ // 0xff6 @0x4
0x0ff2…1000 at0005 = ╱44╱D╱ // 0xff7 @0x5
0x0ff2…1000 at0006 = ╱45╱E╱ // 0xff8 @0x6
0x0ff2…1000 at0007 = ╱42╱B╱ // 0xff9 @0x7
0x0ff2…1000 at0008 = ╱4e╱N╱ // 0xffa @0x8
0x0ff2…1000 at0009 = ╱41╱A╱ // 0xffb @0x9
0x0ff2…1000 at000a = ╱56╱V╱ // 0xffc @0xa
0x0ff2…1000 at000b = ╱4e╱N╱ // 0xffd @0xb
0x0ff2…1000 at000c = ╱ef╱$╱ // 0xffe @0xc
0x0ff2…1000 at000d = EOL // 0xfff @0xd
0x0ff2…1000 }
0x1000…1008 9d5f 1660 WHEN V
0x1000…1008 LineComalBin {
0x1000…1008 ptr = 0x9d5f // 0x1000 @0x0
0x1000…1008 lno = 0x067c // 0x1002 @0x2
0x1000…1008 at0004 = ╱a301╱ WHEN ╱ // 0x1004 @0x4
0x1000…1008 at0006 = ╱56╱V╱ // 0x1006 @0x6
0x1000…1008 at0007 = EOL // 0x1007 @0x7
0x1000…1008 }
0x1008…1015 9d6c 1670 IF CÆND<>E THEN
0x1008…1015 LineComalBin {
0x1008…1015 ptr = 0x9d6c // 0x1008 @0x0
0x1008…1015 lno = 0x0686 // 0x100a @0x2
0x1008…1015 at0004 = ╱9c╱ IF ╱ // 0x100c @0x4
0x1008…1015 at0005 = ╱43╱C╱ // 0x100d @0x5
0x1008…1015 at0006 = ╱5b╱Æ╱ // 0x100e @0x6
0x1008…1015 at0007 = ╱4e╱N╱ // 0x100f @0x7
0x1008…1015 at0008 = ╱44╱D╱ // 0x1010 @0x8
0x1008…1015 at0009 = ╱e1╱<>╱ // 0x1011 @0x9
0x1008…1015 at000a = ╱45╱E╱ // 0x1012 @0xa
0x1008…1015 at000b = ╱b6╱ THEN ╱ // 0x1013 @0xb
0x1008…1015 at000c = EOL // 0x1014 @0xc
0x1008…1015 }
0x1015…1023 9d7a 1680 CURSOR G,5
0x1015…1023 LineComalBin {
0x1015…1023 ptr = 0x9d7a // 0x1015 @0x0
0x1015…1023 lno = 0x0690 // 0x1017 @0x2
0x1015…1023 at0004 = ╱a1╱ CURSOR ╱ // 0x1019 @0x4
0x1015…1023 at0005 = ╱47╱G╱ // 0x101a @0x5
0x1015…1023 at0006 = ╱ec╱,╱ // 0x101b @0x6
0x1015…1023 at0007 = ╱35╱5╱ // 0x101c @0x7
0x1015…1023 at0008 = ╱fe0000a003╱ // 0x101d @0x8
0x1015…1023 at000d = EOL // 0x1022 @0xd
0x1015…1023 }
0x1023…1038 9d8f 1690 PRINT "3:Gade :"
0x1023…1038 LineComalBin {
0x1023…1038 ptr = 0x9d8f // 0x1023 @0x0
0x1023…1038 lno = 0x069a // 0x1025 @0x2
0x1023…1038 at0004 = ╱92╱ PRINT ╱ // 0x1027 @0x4
0x1023…1038 at0005 = ╱22╱"╱ // 0x1028 @0x5
0x1023…1038 at0006 = ╱33╱3╱ // 0x1029 @0x6
0x1023…1038 at0007 = ╱3a╱:╱ // 0x102a @0x7
0x1023…1038 at0008 = ╱47╱G╱ // 0x102b @0x8
0x1023…1038 at0009 = ╱61╱a╱ // 0x102c @0x9
0x1023…1038 at000a = ╱64╱d╱ // 0x102d @0xa
0x1023…1038 at000b = ╱65╱e╱ // 0x102e @0xb
0x1023…1038 at000c = ╱20╱…╱ // 0x102f @0xc
0x1023…1038 at000d = ╱20╱…╱ // 0x1030 @0xd
0x1023…1038 at000e = ╱20╱…╱ // 0x1031 @0xe
0x1023…1038 at000f = ╱20╱…╱ // 0x1032 @0xf
0x1023…1038 at0010 = ╱20╱…╱ // 0x1033 @0x10
0x1023…1038 at0011 = ╱20╱…╱ // 0x1034 @0x11
0x1023…1038 at0012 = ╱3a╱:╱ // 0x1035 @0x12
0x1023…1038 at0013 = ╱22╱"╱ // 0x1036 @0x13
0x1023…1038 at0014 = EOL // 0x1037 @0x14
0x1023…1038 }
0x1038…1049 9da0 1700 DSTYR=4
0x1038…1049 LineComalBin {
0x1038…1049 ptr = 0x9da0 // 0x1038 @0x0
0x1038…1049 lno = 0x06a4 // 0x103a @0x2
0x1038…1049 at0004 = ╱44╱D╱ // 0x103c @0x4
0x1038…1049 at0005 = ╱53╱S╱ // 0x103d @0x5
0x1038…1049 at0006 = ╱54╱T╱ // 0x103e @0x6
0x1038…1049 at0007 = ╱59╱Y╱ // 0x103f @0x7
0x1038…1049 at0008 = ╱52╱R╱ // 0x1040 @0x8
0x1038…1049 at0009 = ╱dc╱=╱ // 0x1041 @0x9
0x1038…1049 at000a = ╱34╱4╱ // 0x1042 @0xa
0x1038…1049 at000b = ╱fe00008003╱ // 0x1043 @0xb
0x1038…1049 at0010 = EOL // 0x1048 @0x10
0x1038…1049 }
0x1049…104f 9da6 1710 ENDIF
0x1049…104f LineComalBin {
0x1049…104f ptr = 0x9da6 // 0x1049 @0x0
0x1049…104f lno = 0x06ae // 0x104b @0x2
0x1049…104f at0004 = ╱9b╱ ENDIF ╱ // 0x104d @0x4
0x1049…104f at0005 = EOL // 0x104e @0x5
0x1049…104f }
0x104f…105c 9db3 1720 IF CÆND<>G THEN
0x104f…105c LineComalBin {
0x104f…105c ptr = 0x9db3 // 0x104f @0x0
0x104f…105c lno = 0x06b8 // 0x1051 @0x2
0x104f…105c at0004 = ╱9c╱ IF ╱ // 0x1053 @0x4
0x104f…105c at0005 = ╱43╱C╱ // 0x1054 @0x5
0x104f…105c at0006 = ╱5b╱Æ╱ // 0x1055 @0x6
0x104f…105c at0007 = ╱4e╱N╱ // 0x1056 @0x7
0x104f…105c at0008 = ╱44╱D╱ // 0x1057 @0x8
0x104f…105c at0009 = ╱e1╱<>╱ // 0x1058 @0x9
0x104f…105c at000a = ╱47╱G╱ // 0x1059 @0xa
0x104f…105c at000b = ╱b6╱ THEN ╱ // 0x105a @0xb
0x104f…105c at000c = EOL // 0x105b @0xc
0x104f…105c }
0x105c…106b 9dc2 1730 CURSOR V,23
0x105c…106b LineComalBin {
0x105c…106b ptr = 0x9dc2 // 0x105c @0x0
0x105c…106b lno = 0x06c2 // 0x105e @0x2
0x105c…106b at0004 = ╱a1╱ CURSOR ╱ // 0x1060 @0x4
0x105c…106b at0005 = ╱56╱V╱ // 0x1061 @0x5
0x105c…106b at0006 = ╱ec╱,╱ // 0x1062 @0x6
0x105c…106b at0007 = ╱32╱2╱ // 0x1063 @0x7
0x105c…106b at0008 = ╱33╱3╱ // 0x1064 @0x8
0x105c…106b at0009 = ╱fe0000b805╱ // 0x1065 @0x9
0x105c…106b at000e = EOL // 0x106a @0xe
0x105c…106b }
0x106b…10ab 9e02 1740 PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26)
0x106b…10ab LineComalBin {
0x106b…10ab ptr = 0x9e02 // 0x106b @0x0
0x106b…10ab lno = 0x06cc // 0x106d @0x2
0x106b…10ab at0004 = ╱92╱ PRINT ╱ // 0x106f @0x4
0x106b…10ab at0005 = ╱22╱"╱ // 0x1070 @0x5
0x106b…10ab at0006 = ╱47╱G╱ // 0x1071 @0x6
0x106b…10ab at0007 = ╱61╱a╱ // 0x1072 @0x7
0x106b…10ab at0008 = ╱64╱d╱ // 0x1073 @0x8
0x106b…10ab at0009 = ╱65╱e╱ // 0x1074 @0x9
0x106b…10ab at000a = ╱22╱"╱ // 0x1075 @0xa
0x106b…10ab at000b = ╱eb╱;╱ // 0x1076 @0xb
0x106b…10ab at000c = ╱42╱B╱ // 0x1077 @0xc
0x106b…10ab at000d = ╱4c╱L╱ // 0x1078 @0xd
0x106b…10ab at000e = ╱41╱A╱ // 0x1079 @0xe
0x106b…10ab at000f = ╱4e╱N╱ // 0x107a @0xf
0x106b…10ab at0010 = ╱4b╱K╱ // 0x107b @0x10
0x106b…10ab at0011 = ╱ef╱$╱ // 0x107c @0x11
0x106b…10ab at0012 = ╱ed╱(╱ // 0x107d @0x12
0x106b…10ab at0013 = ╱45╱E╱ // 0x107e @0x13
0x106b…10ab at0014 = ╱f0╱:╱ // 0x107f @0x14
0x106b…10ab at0015 = ╱33╱3╱ // 0x1080 @0x15
0x106b…10ab at0016 = ╱33╱3╱ // 0x1081 @0x16
0x106b…10ab at0017 = ╱fe00008406╱ // 0x1082 @0x17
0x106b…10ab at001c = ╱ee╱)╱ // 0x1087 @0x1c
0x106b…10ab at001d = ╱eb╱;╱ // 0x1088 @0x1d
0x106b…10ab at001e = ╱22╱"╱ // 0x1089 @0x1e
0x106b…10ab at001f = ╱28╱(╱ // 0x108a @0x1f
0x106b…10ab at0020 = ╱6d╱m╱ // 0x108b @0x20
0x106b…10ab at0021 = ╱61╱a╱ // 0x108c @0x21
0x106b…10ab at0022 = ╱78╱x╱ // 0x108d @0x22
0x106b…10ab at0023 = ╱20╱…╱ // 0x108e @0x23
0x106b…10ab at0024 = ╱32╱2╱ // 0x108f @0x24
0x106b…10ab at0025 = ╱35╱5╱ // 0x1090 @0x25
0x106b…10ab at0026 = ╱20╱…╱ // 0x1091 @0x26
0x106b…10ab at0027 = ╱74╱t╱ // 0x1092 @0x27
0x106b…10ab at0028 = ╱65╱e╱ // 0x1093 @0x28
0x106b…10ab at0029 = ╱67╱g╱ // 0x1094 @0x29
0x106b…10ab at002a = ╱6e╱n╱ // 0x1095 @0x2a
0x106b…10ab at002b = ╱29╱)╱ // 0x1096 @0x2b
0x106b…10ab at002c = ╱22╱"╱ // 0x1097 @0x2c
0x106b…10ab at002d = ╱eb╱;╱ // 0x1098 @0x2d
0x106b…10ab at002e = ╱42╱B╱ // 0x1099 @0x2e
0x106b…10ab at002f = ╱4c╱L╱ // 0x109a @0x2f
0x106b…10ab at0030 = ╱41╱A╱ // 0x109b @0x30
0x106b…10ab at0031 = ╱4e╱N╱ // 0x109c @0x31
0x106b…10ab at0032 = ╱4b╱K╱ // 0x109d @0x32
0x106b…10ab at0033 = ╱ef╱$╱ // 0x109e @0x33
0x106b…10ab at0034 = ╱ed╱(╱ // 0x109f @0x34
0x106b…10ab at0035 = ╱45╱E╱ // 0x10a0 @0x35
0x106b…10ab at0036 = ╱f0╱:╱ // 0x10a1 @0x36
0x106b…10ab at0037 = ╱32╱2╱ // 0x10a2 @0x37
0x106b…10ab at0038 = ╱36╱6╱ // 0x10a3 @0x38
0x106b…10ab at0039 = ╱fe0000d005╱ // 0x10a4 @0x39
0x106b…10ab at003e = ╱ee╱)╱ // 0x10a9 @0x3e
0x106b…10ab at003f = EOL // 0x10aa @0x3f
0x106b…10ab }
0x10ab…10c0 9e17 1750 CURSOR 13,23
0x10ab…10c0 LineComalBin {
0x10ab…10c0 ptr = 0x9e17 // 0x10ab @0x0
0x10ab…10c0 lno = 0x06d6 // 0x10ad @0x2
0x10ab…10c0 at0004 = ╱a1╱ CURSOR ╱ // 0x10af @0x4
0x10ab…10c0 at0005 = ╱31╱1╱ // 0x10b0 @0x5
0x10ab…10c0 at0006 = ╱33╱3╱ // 0x10b1 @0x6
0x10ab…10c0 at0007 = ╱fe0000d004╱ // 0x10b2 @0x7
0x10ab…10c0 at000c = ╱ec╱,╱ // 0x10b7 @0xc
0x10ab…10c0 at000d = ╱32╱2╱ // 0x10b8 @0xd
0x10ab…10c0 at000e = ╱33╱3╱ // 0x10b9 @0xe
0x10ab…10c0 at000f = ╱fe0000b805╱ // 0x10ba @0xf
0x10ab…10c0 at0014 = EOL // 0x10bf @0x14
0x10ab…10c0 }
0x10c0…10ce 9e25 1760 INPUT DEBGADE$
0x10c0…10ce LineComalBin {
0x10c0…10ce ptr = 0x9e25 // 0x10c0 @0x0
0x10c0…10ce lno = 0x06e0 // 0x10c2 @0x2
0x10c0…10ce at0004 = ╱91╱ INPUT ╱ // 0x10c4 @0x4
0x10c0…10ce at0005 = ╱44╱D╱ // 0x10c5 @0x5
0x10c0…10ce at0006 = ╱45╱E╱ // 0x10c6 @0x6
0x10c0…10ce at0007 = ╱42╱B╱ // 0x10c7 @0x7
0x10c0…10ce at0008 = ╱47╱G╱ // 0x10c8 @0x8
0x10c0…10ce at0009 = ╱41╱A╱ // 0x10c9 @0x9
0x10c0…10ce at000a = ╱44╱D╱ // 0x10ca @0xa
0x10c0…10ce at000b = ╱45╱E╱ // 0x10cb @0xb
0x10c0…10ce at000c = ╱ef╱$╱ // 0x10cc @0xc
0x10c0…10ce at000d = EOL // 0x10cd @0xd
0x10c0…10ce }
0x10ce…10d4 9e2b 1770 ENDIF
0x10ce…10d4 LineComalBin {
0x10ce…10d4 ptr = 0x9e2b // 0x10ce @0x0
0x10ce…10d4 lno = 0x06ea // 0x10d0 @0x2
0x10ce…10d4 at0004 = ╱9b╱ ENDIF ╱ // 0x10d2 @0x4
0x10ce…10d4 at0005 = EOL // 0x10d3 @0x5
0x10ce…10d4 }
0x10d4…10e8 9e3f 1780 CURSOR 16,5
0x10d4…10e8 LineComalBin {
0x10d4…10e8 ptr = 0x9e3f // 0x10d4 @0x0
0x10d4…10e8 lno = 0x06f4 // 0x10d6 @0x2
0x10d4…10e8 at0004 = ╱a1╱ CURSOR ╱ // 0x10d8 @0x4
0x10d4…10e8 at0005 = ╱31╱1╱ // 0x10d9 @0x5
0x10d4…10e8 at0006 = ╱36╱6╱ // 0x10da @0x6
0x10d4…10e8 at0007 = ╱fe00008005╱ // 0x10db @0x7
0x10d4…10e8 at000c = ╱ec╱,╱ // 0x10e0 @0xc
0x10d4…10e8 at000d = ╱35╱5╱ // 0x10e1 @0xd
0x10d4…10e8 at000e = ╱fe0000a003╱ // 0x10e2 @0xe
0x10d4…10e8 at0013 = EOL // 0x10e7 @0x13
0x10d4…10e8 }
0x10e8…10ff 9e56 1790 PRINT BLANK$(E:25)
0x10e8…10ff LineComalBin {
0x10e8…10ff ptr = 0x9e56 // 0x10e8 @0x0
0x10e8…10ff lno = 0x06fe // 0x10ea @0x2
0x10e8…10ff at0004 = ╱92╱ PRINT ╱ // 0x10ec @0x4
0x10e8…10ff at0005 = ╱42╱B╱ // 0x10ed @0x5
0x10e8…10ff at0006 = ╱4c╱L╱ // 0x10ee @0x6
0x10e8…10ff at0007 = ╱41╱A╱ // 0x10ef @0x7
0x10e8…10ff at0008 = ╱4e╱N╱ // 0x10f0 @0x8
0x10e8…10ff at0009 = ╱4b╱K╱ // 0x10f1 @0x9
0x10e8…10ff at000a = ╱ef╱$╱ // 0x10f2 @0xa
0x10e8…10ff at000b = ╱ed╱(╱ // 0x10f3 @0xb
0x10e8…10ff at000c = ╱45╱E╱ // 0x10f4 @0xc
0x10e8…10ff at000d = ╱f0╱:╱ // 0x10f5 @0xd
0x10e8…10ff at000e = ╱32╱2╱ // 0x10f6 @0xe
0x10e8…10ff at000f = ╱35╱5╱ // 0x10f7 @0xf
0x10e8…10ff at0010 = ╱fe0000c805╱ // 0x10f8 @0x10
0x10e8…10ff at0015 = ╱ee╱)╱ // 0x10fd @0x15
0x10e8…10ff at0016 = EOL // 0x10fe @0x16
0x10e8…10ff }
0x10ff…1113 9e6a 1800 CURSOR 16,5
0x10ff…1113 LineComalBin {
0x10ff…1113 ptr = 0x9e6a // 0x10ff @0x0
0x10ff…1113 lno = 0x0708 // 0x1101 @0x2
0x10ff…1113 at0004 = ╱a1╱ CURSOR ╱ // 0x1103 @0x4
0x10ff…1113 at0005 = ╱31╱1╱ // 0x1104 @0x5
0x10ff…1113 at0006 = ╱36╱6╱ // 0x1105 @0x6
0x10ff…1113 at0007 = ╱fe00008005╱ // 0x1106 @0x7
0x10ff…1113 at000c = ╱ec╱,╱ // 0x110b @0xc
0x10ff…1113 at000d = ╱35╱5╱ // 0x110c @0xd
0x10ff…1113 at000e = ╱fe0000a003╱ // 0x110d @0xe
0x10ff…1113 at0013 = EOL // 0x1112 @0x13
0x10ff…1113 }
0x1113…1121 9e78 1810 PRINT DEBGADE$
0x1113…1121 LineComalBin {
0x1113…1121 ptr = 0x9e78 // 0x1113 @0x0
0x1113…1121 lno = 0x0712 // 0x1115 @0x2
0x1113…1121 at0004 = ╱92╱ PRINT ╱ // 0x1117 @0x4
0x1113…1121 at0005 = ╱44╱D╱ // 0x1118 @0x5
0x1113…1121 at0006 = ╱45╱E╱ // 0x1119 @0x6
0x1113…1121 at0007 = ╱42╱B╱ // 0x111a @0x7
0x1113…1121 at0008 = ╱47╱G╱ // 0x111b @0x8
0x1113…1121 at0009 = ╱41╱A╱ // 0x111c @0x9
0x1113…1121 at000a = ╱44╱D╱ // 0x111d @0xa
0x1113…1121 at000b = ╱45╱E╱ // 0x111e @0xb
0x1113…1121 at000c = ╱ef╱$╱ // 0x111f @0xc
0x1113…1121 at000d = EOL // 0x1120 @0xd
0x1113…1121 }
0x1121…112e 9e85 1820 WHEN 4
0x1121…112e LineComalBin {
0x1121…112e ptr = 0x9e85 // 0x1121 @0x0
0x1121…112e lno = 0x071c // 0x1123 @0x2
0x1121…112e at0004 = ╱a301╱ WHEN ╱ // 0x1125 @0x4
0x1121…112e at0006 = ╱34╱4╱ // 0x1127 @0x6
0x1121…112e at0007 = ╱fe00008003╱ // 0x1128 @0x7
0x1121…112e at000c = EOL // 0x112d @0xc
0x1121…112e }
0x112e…113b 9e92 1830 IF CÆND<>E THEN
0x112e…113b LineComalBin {
0x112e…113b ptr = 0x9e92 // 0x112e @0x0
0x112e…113b lno = 0x0726 // 0x1130 @0x2
0x112e…113b at0004 = ╱9c╱ IF ╱ // 0x1132 @0x4
0x112e…113b at0005 = ╱43╱C╱ // 0x1133 @0x5
0x112e…113b at0006 = ╱5b╱Æ╱ // 0x1134 @0x6
0x112e…113b at0007 = ╱4e╱N╱ // 0x1135 @0x7
0x112e…113b at0008 = ╱44╱D╱ // 0x1136 @0x8
0x112e…113b at0009 = ╱e1╱<>╱ // 0x1137 @0x9
0x112e…113b at000a = ╱45╱E╱ // 0x1138 @0xa
0x112e…113b at000b = ╱b6╱ THEN ╱ // 0x1139 @0xb
0x112e…113b at000c = EOL // 0x113a @0xc
0x112e…113b }
0x113b…1149 9ea0 1840 CURSOR G,6
0x113b…1149 LineComalBin {
0x113b…1149 ptr = 0x9ea0 // 0x113b @0x0
0x113b…1149 lno = 0x0730 // 0x113d @0x2
0x113b…1149 at0004 = ╱a1╱ CURSOR ╱ // 0x113f @0x4
0x113b…1149 at0005 = ╱47╱G╱ // 0x1140 @0x5
0x113b…1149 at0006 = ╱ec╱,╱ // 0x1141 @0x6
0x113b…1149 at0007 = ╱36╱6╱ // 0x1142 @0x7
0x113b…1149 at0008 = ╱fe0000c003╱ // 0x1143 @0x8
0x113b…1149 at000d = EOL // 0x1148 @0xd
0x113b…1149 }
0x1149…115e 9eb5 1850 PRINT "4:Postnr :"
0x1149…115e LineComalBin {
0x1149…115e ptr = 0x9eb5 // 0x1149 @0x0
0x1149…115e lno = 0x073a // 0x114b @0x2
0x1149…115e at0004 = ╱92╱ PRINT ╱ // 0x114d @0x4
0x1149…115e at0005 = ╱22╱"╱ // 0x114e @0x5
0x1149…115e at0006 = ╱34╱4╱ // 0x114f @0x6
0x1149…115e at0007 = ╱3a╱:╱ // 0x1150 @0x7
0x1149…115e at0008 = ╱50╱P╱ // 0x1151 @0x8
0x1149…115e at0009 = ╱6f╱o╱ // 0x1152 @0x9
0x1149…115e at000a = ╱73╱s╱ // 0x1153 @0xa
0x1149…115e at000b = ╱74╱t╱ // 0x1154 @0xb
0x1149…115e at000c = ╱6e╱n╱ // 0x1155 @0xc
0x1149…115e at000d = ╱72╱r╱ // 0x1156 @0xd
0x1149…115e at000e = ╱20╱…╱ // 0x1157 @0xe
0x1149…115e at000f = ╱20╱…╱ // 0x1158 @0xf
0x1149…115e at0010 = ╱20╱…╱ // 0x1159 @0x10
0x1149…115e at0011 = ╱20╱…╱ // 0x115a @0x11
0x1149…115e at0012 = ╱3a╱:╱ // 0x115b @0x12
0x1149…115e at0013 = ╱22╱"╱ // 0x115c @0x13
0x1149…115e at0014 = EOL // 0x115d @0x14
0x1149…115e }
0x115e…116f 9ec6 1860 DSTYR=5
0x115e…116f LineComalBin {
0x115e…116f ptr = 0x9ec6 // 0x115e @0x0
0x115e…116f lno = 0x0744 // 0x1160 @0x2
0x115e…116f at0004 = ╱44╱D╱ // 0x1162 @0x4
0x115e…116f at0005 = ╱53╱S╱ // 0x1163 @0x5
0x115e…116f at0006 = ╱54╱T╱ // 0x1164 @0x6
0x115e…116f at0007 = ╱59╱Y╱ // 0x1165 @0x7
0x115e…116f at0008 = ╱52╱R╱ // 0x1166 @0x8
0x115e…116f at0009 = ╱dc╱=╱ // 0x1167 @0x9
0x115e…116f at000a = ╱35╱5╱ // 0x1168 @0xa
0x115e…116f at000b = ╱fe0000a003╱ // 0x1169 @0xb
0x115e…116f at0010 = EOL // 0x116e @0x10
0x115e…116f }
0x116f…1175 9ecc 1870 ENDIF
0x116f…1175 LineComalBin {
0x116f…1175 ptr = 0x9ecc // 0x116f @0x0
0x116f…1175 lno = 0x074e // 0x1171 @0x2
0x116f…1175 at0004 = ╱9b╱ ENDIF ╱ // 0x1173 @0x4
0x116f…1175 at0005 = EOL // 0x1174 @0x5
0x116f…1175 }
0x1175…1182 9ed9 1880 IF CÆND<>G THEN
0x1175…1182 LineComalBin {
0x1175…1182 ptr = 0x9ed9 // 0x1175 @0x0
0x1175…1182 lno = 0x0758 // 0x1177 @0x2
0x1175…1182 at0004 = ╱9c╱ IF ╱ // 0x1179 @0x4
0x1175…1182 at0005 = ╱43╱C╱ // 0x117a @0x5
0x1175…1182 at0006 = ╱5b╱Æ╱ // 0x117b @0x6
0x1175…1182 at0007 = ╱4e╱N╱ // 0x117c @0x7
0x1175…1182 at0008 = ╱44╱D╱ // 0x117d @0x8
0x1175…1182 at0009 = ╱e1╱<>╱ // 0x117e @0x9
0x1175…1182 at000a = ╱47╱G╱ // 0x117f @0xa
0x1175…1182 at000b = ╱b6╱ THEN ╱ // 0x1180 @0xb
0x1175…1182 at000c = EOL // 0x1181 @0xc
0x1175…1182 }
0x1182…1188 9edf 1890 REPEAT
0x1182…1188 LineComalBin {
0x1182…1188 ptr = 0x9edf // 0x1182 @0x0
0x1182…1188 lno = 0x0762 // 0x1184 @0x2
0x1182…1188 at0004 = ╱97╱ REPEAT ╱ // 0x1186 @0x4
0x1182…1188 at0005 = EOL // 0x1187 @0x5
0x1182…1188 }
0x1188…1197 9eee 1900 CURSOR V,23
0x1188…1197 LineComalBin {
0x1188…1197 ptr = 0x9eee // 0x1188 @0x0
0x1188…1197 lno = 0x076c // 0x118a @0x2
0x1188…1197 at0004 = ╱a1╱ CURSOR ╱ // 0x118c @0x4
0x1188…1197 at0005 = ╱56╱V╱ // 0x118d @0x5
0x1188…1197 at0006 = ╱ec╱,╱ // 0x118e @0x6
0x1188…1197 at0007 = ╱32╱2╱ // 0x118f @0x7
0x1188…1197 at0008 = ╱33╱3╱ // 0x1190 @0x8
0x1188…1197 at0009 = ╱fe0000b805╱ // 0x1191 @0x9
0x1188…1197 at000e = EOL // 0x1196 @0xe
0x1188…1197 }
0x1197…11d8 9f2f 1910 PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45)
0x1197…11d8 LineComalBin {
0x1197…11d8 ptr = 0x9f2f // 0x1197 @0x0
0x1197…11d8 lno = 0x0776 // 0x1199 @0x2
0x1197…11d8 at0004 = ╱92╱ PRINT ╱ // 0x119b @0x4
0x1197…11d8 at0005 = ╱22╱"╱ // 0x119c @0x5
0x1197…11d8 at0006 = ╱50╱P╱ // 0x119d @0x6
0x1197…11d8 at0007 = ╱6f╱o╱ // 0x119e @0x7
0x1197…11d8 at0008 = ╱73╱s╱ // 0x119f @0x8
0x1197…11d8 at0009 = ╱74╱t╱ // 0x11a0 @0x9
0x1197…11d8 at000a = ╱6e╱n╱ // 0x11a1 @0xa
0x1197…11d8 at000b = ╱72╱r╱ // 0x11a2 @0xb
0x1197…11d8 at000c = ╱22╱"╱ // 0x11a3 @0xc
0x1197…11d8 at000d = ╱eb╱;╱ // 0x11a4 @0xd
0x1197…11d8 at000e = ╱42╱B╱ // 0x11a5 @0xe
0x1197…11d8 at000f = ╱4c╱L╱ // 0x11a6 @0xf
0x1197…11d8 at0010 = ╱41╱A╱ // 0x11a7 @0x10
0x1197…11d8 at0011 = ╱4e╱N╱ // 0x11a8 @0x11
0x1197…11d8 at0012 = ╱4b╱K╱ // 0x11a9 @0x12
0x1197…11d8 at0013 = ╱ef╱$╱ // 0x11aa @0x13
0x1197…11d8 at0014 = ╱ed╱(╱ // 0x11ab @0x14
0x1197…11d8 at0015 = ╱45╱E╱ // 0x11ac @0x15
0x1197…11d8 at0016 = ╱f0╱:╱ // 0x11ad @0x16
0x1197…11d8 at0017 = ╱31╱1╱ // 0x11ae @0x17
0x1197…11d8 at0018 = ╱32╱2╱ // 0x11af @0x18
0x1197…11d8 at0019 = ╱fe0000c004╱ // 0x11b0 @0x19
0x1197…11d8 at001e = ╱ee╱)╱ // 0x11b5 @0x1e
0x1197…11d8 at001f = ╱eb╱;╱ // 0x11b6 @0x1f
0x1197…11d8 at0020 = ╱22╱"╱ // 0x11b7 @0x20
0x1197…11d8 at0021 = ╱28╱(╱ // 0x11b8 @0x21
0x1197…11d8 at0022 = ╱6d╱m╱ // 0x11b9 @0x22
0x1197…11d8 at0023 = ╱61╱a╱ // 0x11ba @0x23
0x1197…11d8 at0024 = ╱78╱x╱ // 0x11bb @0x24
0x1197…11d8 at0025 = ╱20╱…╱ // 0x11bc @0x25
0x1197…11d8 at0026 = ╱36╱6╱ // 0x11bd @0x26
0x1197…11d8 at0027 = ╱20╱…╱ // 0x11be @0x27
0x1197…11d8 at0028 = ╱74╱t╱ // 0x11bf @0x28
0x1197…11d8 at0029 = ╱65╱e╱ // 0x11c0 @0x29
0x1197…11d8 at002a = ╱67╱g╱ // 0x11c1 @0x2a
0x1197…11d8 at002b = ╱6e╱n╱ // 0x11c2 @0x2b
0x1197…11d8 at002c = ╱29╱)╱ // 0x11c3 @0x2c
0x1197…11d8 at002d = ╱22╱"╱ // 0x11c4 @0x2d
0x1197…11d8 at002e = ╱eb╱;╱ // 0x11c5 @0x2e
0x1197…11d8 at002f = ╱42╱B╱ // 0x11c6 @0x2f
0x1197…11d8 at0030 = ╱4c╱L╱ // 0x11c7 @0x30
0x1197…11d8 at0031 = ╱41╱A╱ // 0x11c8 @0x31
0x1197…11d8 at0032 = ╱4e╱N╱ // 0x11c9 @0x32
0x1197…11d8 at0033 = ╱4b╱K╱ // 0x11ca @0x33
0x1197…11d8 at0034 = ╱ef╱$╱ // 0x11cb @0x34
0x1197…11d8 at0035 = ╱ed╱(╱ // 0x11cc @0x35
0x1197…11d8 at0036 = ╱45╱E╱ // 0x11cd @0x36
0x1197…11d8 at0037 = ╱f0╱:╱ // 0x11ce @0x37
0x1197…11d8 at0038 = ╱34╱4╱ // 0x11cf @0x38
0x1197…11d8 at0039 = ╱35╱5╱ // 0x11d0 @0x39
0x1197…11d8 at003a = ╱fe0000b406╱ // 0x11d1 @0x3a
0x1197…11d8 at003f = ╱ee╱)╱ // 0x11d6 @0x3f
0x1197…11d8 at0040 = EOL // 0x11d7 @0x40
0x1197…11d8 }
0x11d8…11ed 9f44 1920 CURSOR 13,23
0x11d8…11ed LineComalBin {
0x11d8…11ed ptr = 0x9f44 // 0x11d8 @0x0
0x11d8…11ed lno = 0x0780 // 0x11da @0x2
0x11d8…11ed at0004 = ╱a1╱ CURSOR ╱ // 0x11dc @0x4
0x11d8…11ed at0005 = ╱31╱1╱ // 0x11dd @0x5
0x11d8…11ed at0006 = ╱33╱3╱ // 0x11de @0x6
0x11d8…11ed at0007 = ╱fe0000d004╱ // 0x11df @0x7
0x11d8…11ed at000c = ╱ec╱,╱ // 0x11e4 @0xc
0x11d8…11ed at000d = ╱32╱2╱ // 0x11e5 @0xd
0x11d8…11ed at000e = ╱33╱3╱ // 0x11e6 @0xe
0x11d8…11ed at000f = ╱fe0000b805╱ // 0x11e7 @0xf
0x11d8…11ed at0014 = EOL // 0x11ec @0x14
0x11d8…11ed }
0x11ed…11f7 9f4e 1930 INPUT PNR$
0x11ed…11f7 LineComalBin {
0x11ed…11f7 ptr = 0x9f4e // 0x11ed @0x0
0x11ed…11f7 lno = 0x078a // 0x11ef @0x2
0x11ed…11f7 at0004 = ╱91╱ INPUT ╱ // 0x11f1 @0x4
0x11ed…11f7 at0005 = ╱50╱P╱ // 0x11f2 @0x5
0x11ed…11f7 at0006 = ╱4e╱N╱ // 0x11f3 @0x6
0x11ed…11f7 at0007 = ╱52╱R╱ // 0x11f4 @0x7
0x11ed…11f7 at0008 = ╱ef╱$╱ // 0x11f5 @0x8
0x11ed…11f7 at0009 = EOL // 0x11f6 @0x9
0x11ed…11f7 }
0x11f7…1209 9f60 1940 EXEC NRTEST(PNR$)
0x11f7…1209 LineComalBin {
0x11f7…1209 ptr = 0x9f60 // 0x11f7 @0x0
0x11f7…1209 lno = 0x0794 // 0x11f9 @0x2
0x11f7…1209 at0004 = ╱9d╱ EXEC ╱ // 0x11fb @0x4
0x11f7…1209 at0005 = ╱4e╱N╱ // 0x11fc @0x5
0x11f7…1209 at0006 = ╱52╱R╱ // 0x11fd @0x6
0x11f7…1209 at0007 = ╱54╱T╱ // 0x11fe @0x7
0x11f7…1209 at0008 = ╱45╱E╱ // 0x11ff @0x8
0x11f7…1209 at0009 = ╱53╱S╱ // 0x1200 @0x9
0x11f7…1209 at000a = ╱54╱T╱ // 0x1201 @0xa
0x11f7…1209 at000b = ╱ed╱(╱ // 0x1202 @0xb
0x11f7…1209 at000c = ╱50╱P╱ // 0x1203 @0xc
0x11f7…1209 at000d = ╱4e╱N╱ // 0x1204 @0xd
0x11f7…1209 at000e = ╱52╱R╱ // 0x1205 @0xe
0x11f7…1209 at000f = ╱ef╱$╱ // 0x1206 @0xf
0x11f7…1209 at0010 = ╱ee╱)╱ // 0x1207 @0x10
0x11f7…1209 at0011 = EOL // 0x1208 @0x11
0x11f7…1209 }
0x1209…1235 9f8c 1950 UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B
0x1209…1235 LineComalBin {
0x1209…1235 ptr = 0x9f8c // 0x1209 @0x0
0x1209…1235 lno = 0x079e // 0x120b @0x2
0x1209…1235 at0004 = ╱98╱ UNTIL ╱ // 0x120d @0x4
0x1209…1235 at0005 = ╱ed╱(╱ // 0x120e @0x5
0x1209…1235 at0006 = ╱ed╱(╱ // 0x120f @0x6
0x1209…1235 at0007 = ╱4c╱L╱ // 0x1210 @0x7
0x1209…1235 at0008 = ╱de╱>╱ // 0x1211 @0x8
0x1209…1235 at0009 = ╱56╱V╱ // 0x1212 @0x9
0x1209…1235 at000a = ╱da╱ AND ╱ // 0x1213 @0xa
0x1209…1235 at000b = ╱4c╱L╱ // 0x1214 @0xb
0x1209…1235 at000c = ╱dd╱<╱ // 0x1215 @0xc
0x1209…1235 at000d = ╱37╱7╱ // 0x1216 @0xd
0x1209…1235 at000e = ╱fe0000e003╱ // 0x1217 @0xe
0x1209…1235 at0013 = ╱ee╱)╱ // 0x121c @0x13
0x1209…1235 at0014 = ╱db╱ OR ╱ // 0x121d @0x14
0x1209…1235 at0015 = ╱ed╱(╱ // 0x121e @0x15
0x1209…1235 at0016 = ╱50╱P╱ // 0x121f @0x16
0x1209…1235 at0017 = ╱dc╱=╱ // 0x1220 @0x17
0x1209…1235 at0018 = ╱e9╱-╱ // 0x1221 @0x18
0x1209…1235 at0019 = ╱45╱E╱ // 0x1222 @0x19
0x1209…1235 at001a = ╱da╱ AND ╱ // 0x1223 @0x1a
0x1209…1235 at001b = ╱43╱C╱ // 0x1224 @0x1b
0x1209…1235 at001c = ╱5b╱Æ╱ // 0x1225 @0x1c
0x1209…1235 at001d = ╱4e╱N╱ // 0x1226 @0x1d
0x1209…1235 at001e = ╱44╱D╱ // 0x1227 @0x1e
0x1209…1235 at001f = ╱dc╱=╱ // 0x1228 @0x1f
0x1209…1235 at0020 = ╱45╱E╱ // 0x1229 @0x20
0x1209…1235 at0021 = ╱ee╱)╱ // 0x122a @0x21
0x1209…1235 at0022 = ╱ee╱)╱ // 0x122b @0x22
0x1209…1235 at0023 = ╱da╱ AND ╱ // 0x122c @0x23
0x1209…1235 at0024 = ╱54╱T╱ // 0x122d @0x24
0x1209…1235 at0025 = ╱45╱E╱ // 0x122e @0x25
0x1209…1235 at0026 = ╱53╱S╱ // 0x122f @0x26
0x1209…1235 at0027 = ╱54╱T╱ // 0x1230 @0x27
0x1209…1235 at0028 = ╱32╱2╱ // 0x1231 @0x28
0x1209…1235 at0029 = ╱dc╱=╱ // 0x1232 @0x29
0x1209…1235 at002a = ╱42╱B╱ // 0x1233 @0x2a
0x1209…1235 at002b = EOL // 0x1234 @0x2b
0x1209…1235 }
0x1235…124b 9fa2 1960 IF P<>-E THEN DEBPOSTNR=P
0x1235…124b LineComalBin {
0x1235…124b ptr = 0x9fa2 // 0x1235 @0x0
0x1235…124b lno = 0x07a8 // 0x1237 @0x2
0x1235…124b at0004 = ╱82╱ IF ╱ // 0x1239 @0x4
0x1235…124b at0005 = ╱50╱P╱ // 0x123a @0x5
0x1235…124b at0006 = ╱e1╱<>╱ // 0x123b @0x6
0x1235…124b at0007 = ╱e9╱-╱ // 0x123c @0x7
0x1235…124b at0008 = ╱45╱E╱ // 0x123d @0x8
0x1235…124b at0009 = ╱b6╱ THEN ╱ // 0x123e @0x9
0x1235…124b at000a = ╱44╱D╱ // 0x123f @0xa
0x1235…124b at000b = ╱45╱E╱ // 0x1240 @0xb
0x1235…124b at000c = ╱42╱B╱ // 0x1241 @0xc
0x1235…124b at000d = ╱50╱P╱ // 0x1242 @0xd
0x1235…124b at000e = ╱4f╱O╱ // 0x1243 @0xe
0x1235…124b at000f = ╱53╱S╱ // 0x1244 @0xf
0x1235…124b at0010 = ╱54╱T╱ // 0x1245 @0x10
0x1235…124b at0011 = ╱4e╱N╱ // 0x1246 @0x11
0x1235…124b at0012 = ╱52╱R╱ // 0x1247 @0x12
0x1235…124b at0013 = ╱dc╱=╱ // 0x1248 @0x13
0x1235…124b at0014 = ╱50╱P╱ // 0x1249 @0x14
0x1235…124b at0015 = EOL // 0x124a @0x15
0x1235…124b }
0x124b…1251 9fa8 1970 ENDIF
0x124b…1251 LineComalBin {
0x124b…1251 ptr = 0x9fa8 // 0x124b @0x0
0x124b…1251 lno = 0x07b2 // 0x124d @0x2
0x124b…1251 at0004 = ╱9b╱ ENDIF ╱ // 0x124f @0x4
0x124b…1251 at0005 = EOL // 0x1250 @0x5
0x124b…1251 }
0x1251…1265 9fbc 1980 CURSOR 16,6
0x1251…1265 LineComalBin {
0x1251…1265 ptr = 0x9fbc // 0x1251 @0x0
0x1251…1265 lno = 0x07bc // 0x1253 @0x2
0x1251…1265 at0004 = ╱a1╱ CURSOR ╱ // 0x1255 @0x4
0x1251…1265 at0005 = ╱31╱1╱ // 0x1256 @0x5
0x1251…1265 at0006 = ╱36╱6╱ // 0x1257 @0x6
0x1251…1265 at0007 = ╱fe00008005╱ // 0x1258 @0x7
0x1251…1265 at000c = ╱ec╱,╱ // 0x125d @0xc
0x1251…1265 at000d = ╱36╱6╱ // 0x125e @0xd
0x1251…1265 at000e = ╱fe0000c003╱ // 0x125f @0xe
0x1251…1265 at0013 = EOL // 0x1264 @0x13
0x1251…1265 }
0x1265…127b 9fd2 1990 PRINT BLANK$(E:6)
0x1265…127b LineComalBin {
0x1265…127b ptr = 0x9fd2 // 0x1265 @0x0
0x1265…127b lno = 0x07c6 // 0x1267 @0x2
0x1265…127b at0004 = ╱92╱ PRINT ╱ // 0x1269 @0x4
0x1265…127b at0005 = ╱42╱B╱ // 0x126a @0x5
0x1265…127b at0006 = ╱4c╱L╱ // 0x126b @0x6
0x1265…127b at0007 = ╱41╱A╱ // 0x126c @0x7
0x1265…127b at0008 = ╱4e╱N╱ // 0x126d @0x8
0x1265…127b at0009 = ╱4b╱K╱ // 0x126e @0x9
0x1265…127b at000a = ╱ef╱$╱ // 0x126f @0xa
0x1265…127b at000b = ╱ed╱(╱ // 0x1270 @0xb
0x1265…127b at000c = ╱45╱E╱ // 0x1271 @0xc
0x1265…127b at000d = ╱f0╱:╱ // 0x1272 @0xd
0x1265…127b at000e = ╱36╱6╱ // 0x1273 @0xe
0x1265…127b at000f = ╱fe0000c003╱ // 0x1274 @0xf
0x1265…127b at0014 = ╱ee╱)╱ // 0x1279 @0x14
0x1265…127b at0015 = EOL // 0x127a @0x15
0x1265…127b }
0x127b…128f 9fe6 2000 CURSOR 16,6
0x127b…128f LineComalBin {
0x127b…128f ptr = 0x9fe6 // 0x127b @0x0
0x127b…128f lno = 0x07d0 // 0x127d @0x2
0x127b…128f at0004 = ╱a1╱ CURSOR ╱ // 0x127f @0x4
0x127b…128f at0005 = ╱31╱1╱ // 0x1280 @0x5
0x127b…128f at0006 = ╱36╱6╱ // 0x1281 @0x6
0x127b…128f at0007 = ╱fe00008005╱ // 0x1282 @0x7
0x127b…128f at000c = ╱ec╱,╱ // 0x1287 @0xc
0x127b…128f at000d = ╱36╱6╱ // 0x1288 @0xd
0x127b…128f at000e = ╱fe0000c003╱ // 0x1289 @0xe
0x127b…128f at0013 = EOL // 0x128e @0x13
0x127b…128f }
0x128f…129e 9ff5 2010 PRINT DEBPOSTNR
0x128f…129e LineComalBin {
0x128f…129e ptr = 0x9ff5 // 0x128f @0x0
0x128f…129e lno = 0x07da // 0x1291 @0x2
0x128f…129e at0004 = ╱92╱ PRINT ╱ // 0x1293 @0x4
0x128f…129e at0005 = ╱44╱D╱ // 0x1294 @0x5
0x128f…129e at0006 = ╱45╱E╱ // 0x1295 @0x6
0x128f…129e at0007 = ╱42╱B╱ // 0x1296 @0x7
0x128f…129e at0008 = ╱50╱P╱ // 0x1297 @0x8
0x128f…129e at0009 = ╱4f╱O╱ // 0x1298 @0x9
0x128f…129e at000a = ╱53╱S╱ // 0x1299 @0xa
0x128f…129e at000b = ╱54╱T╱ // 0x129a @0xb
0x128f…129e at000c = ╱4e╱N╱ // 0x129b @0xc
0x128f…129e at000d = ╱52╱R╱ // 0x129c @0xd
0x128f…129e at000e = EOL // 0x129d @0xe
0x128f…129e }
0x129e…12ab a002 2020 WHEN 5
0x129e…12ab LineComalBin {
0x129e…12ab ptr = 0xa002 // 0x129e @0x0
0x129e…12ab lno = 0x07e4 // 0x12a0 @0x2
0x129e…12ab at0004 = ╱a301╱ WHEN ╱ // 0x12a2 @0x4
0x129e…12ab at0006 = ╱35╱5╱ // 0x12a4 @0x6
0x129e…12ab at0007 = ╱fe0000a003╱ // 0x12a5 @0x7
0x129e…12ab at000c = EOL // 0x12aa @0xc
0x129e…12ab }
0x12ab…12b8 a00f 2030 IF CÆND<>E THEN
0x12ab…12b8 LineComalBin {
0x12ab…12b8 ptr = 0xa00f // 0x12ab @0x0
0x12ab…12b8 lno = 0x07ee // 0x12ad @0x2
0x12ab…12b8 at0004 = ╱9c╱ IF ╱ // 0x12af @0x4
0x12ab…12b8 at0005 = ╱43╱C╱ // 0x12b0 @0x5
0x12ab…12b8 at0006 = ╱5b╱Æ╱ // 0x12b1 @0x6
0x12ab…12b8 at0007 = ╱4e╱N╱ // 0x12b2 @0x7
0x12ab…12b8 at0008 = ╱44╱D╱ // 0x12b3 @0x8
0x12ab…12b8 at0009 = ╱e1╱<>╱ // 0x12b4 @0x9
0x12ab…12b8 at000a = ╱45╱E╱ // 0x12b5 @0xa
0x12ab…12b8 at000b = ╱b6╱ THEN ╱ // 0x12b6 @0xb
0x12ab…12b8 at000c = EOL // 0x12b7 @0xc
0x12ab…12b8 }
0x12b8…12c6 a01d 2040 CURSOR G,7
0x12b8…12c6 LineComalBin {
0x12b8…12c6 ptr = 0xa01d // 0x12b8 @0x0
0x12b8…12c6 lno = 0x07f8 // 0x12ba @0x2
0x12b8…12c6 at0004 = ╱a1╱ CURSOR ╱ // 0x12bc @0x4
0x12b8…12c6 at0005 = ╱47╱G╱ // 0x12bd @0x5
0x12b8…12c6 at0006 = ╱ec╱,╱ // 0x12be @0x6
0x12b8…12c6 at0007 = ╱37╱7╱ // 0x12bf @0x7
0x12b8…12c6 at0008 = ╱fe0000e003╱ // 0x12c0 @0x8
0x12b8…12c6 at000d = EOL // 0x12c5 @0xd
0x12b8…12c6 }
0x12c6…12db a032 2050 PRINT "5:By :"
0x12c6…12db LineComalBin {
0x12c6…12db ptr = 0xa032 // 0x12c6 @0x0
0x12c6…12db lno = 0x0802 // 0x12c8 @0x2
0x12c6…12db at0004 = ╱92╱ PRINT ╱ // 0x12ca @0x4
0x12c6…12db at0005 = ╱22╱"╱ // 0x12cb @0x5
0x12c6…12db at0006 = ╱35╱5╱ // 0x12cc @0x6
0x12c6…12db at0007 = ╱3a╱:╱ // 0x12cd @0x7
0x12c6…12db at0008 = ╱42╱B╱ // 0x12ce @0x8
0x12c6…12db at0009 = ╱79╱y╱ // 0x12cf @0x9
0x12c6…12db at000a = ╱20╱…╱ // 0x12d0 @0xa
0x12c6…12db at000b = ╱20╱…╱ // 0x12d1 @0xb
0x12c6…12db at000c = ╱20╱…╱ // 0x12d2 @0xc
0x12c6…12db at000d = ╱20╱…╱ // 0x12d3 @0xd
0x12c6…12db at000e = ╱20╱…╱ // 0x12d4 @0xe
0x12c6…12db at000f = ╱20╱…╱ // 0x12d5 @0xf
0x12c6…12db at0010 = ╱20╱…╱ // 0x12d6 @0x10
0x12c6…12db at0011 = ╱20╱…╱ // 0x12d7 @0x11
0x12c6…12db at0012 = ╱3a╱:╱ // 0x12d8 @0x12
0x12c6…12db at0013 = ╱22╱"╱ // 0x12d9 @0x13
0x12c6…12db at0014 = EOL // 0x12da @0x14
0x12c6…12db }
0x12db…12ec a043 2060 DSTYR=6
0x12db…12ec LineComalBin {
0x12db…12ec ptr = 0xa043 // 0x12db @0x0
0x12db…12ec lno = 0x080c // 0x12dd @0x2
0x12db…12ec at0004 = ╱44╱D╱ // 0x12df @0x4
0x12db…12ec at0005 = ╱53╱S╱ // 0x12e0 @0x5
0x12db…12ec at0006 = ╱54╱T╱ // 0x12e1 @0x6
0x12db…12ec at0007 = ╱59╱Y╱ // 0x12e2 @0x7
0x12db…12ec at0008 = ╱52╱R╱ // 0x12e3 @0x8
0x12db…12ec at0009 = ╱dc╱=╱ // 0x12e4 @0x9
0x12db…12ec at000a = ╱36╱6╱ // 0x12e5 @0xa
0x12db…12ec at000b = ╱fe0000c003╱ // 0x12e6 @0xb
0x12db…12ec at0010 = EOL // 0x12eb @0x10
0x12db…12ec }
0x12ec…12f2 a049 2070 ENDIF
0x12ec…12f2 LineComalBin {
0x12ec…12f2 ptr = 0xa049 // 0x12ec @0x0
0x12ec…12f2 lno = 0x0816 // 0x12ee @0x2
0x12ec…12f2 at0004 = ╱9b╱ ENDIF ╱ // 0x12f0 @0x4
0x12ec…12f2 at0005 = EOL // 0x12f1 @0x5
0x12ec…12f2 }
0x12f2…12ff a056 2080 IF CÆND<>G THEN
0x12f2…12ff LineComalBin {
0x12f2…12ff ptr = 0xa056 // 0x12f2 @0x0
0x12f2…12ff lno = 0x0820 // 0x12f4 @0x2
0x12f2…12ff at0004 = ╱9c╱ IF ╱ // 0x12f6 @0x4
0x12f2…12ff at0005 = ╱43╱C╱ // 0x12f7 @0x5
0x12f2…12ff at0006 = ╱5b╱Æ╱ // 0x12f8 @0x6
0x12f2…12ff at0007 = ╱4e╱N╱ // 0x12f9 @0x7
0x12f2…12ff at0008 = ╱44╱D╱ // 0x12fa @0x8
0x12f2…12ff at0009 = ╱e1╱<>╱ // 0x12fb @0x9
0x12f2…12ff at000a = ╱47╱G╱ // 0x12fc @0xa
0x12f2…12ff at000b = ╱b6╱ THEN ╱ // 0x12fd @0xb
0x12f2…12ff at000c = EOL // 0x12fe @0xc
0x12f2…12ff }
0x12ff…130e a065 2090 CURSOR V,23
0x12ff…130e LineComalBin {
0x12ff…130e ptr = 0xa065 // 0x12ff @0x0
0x12ff…130e lno = 0x082a // 0x1301 @0x2
0x12ff…130e at0004 = ╱a1╱ CURSOR ╱ // 0x1303 @0x4
0x12ff…130e at0005 = ╱56╱V╱ // 0x1304 @0x5
0x12ff…130e at0006 = ╱ec╱,╱ // 0x1305 @0x6
0x12ff…130e at0007 = ╱32╱2╱ // 0x1306 @0x7
0x12ff…130e at0008 = ╱33╱3╱ // 0x1307 @0x8
0x12ff…130e at0009 = ╱fe0000b805╱ // 0x1308 @0x9
0x12ff…130e at000e = EOL // 0x130d @0xe
0x12ff…130e }
0x130e…134c a0a3 2100 PRINT "By";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31)
0x130e…134c LineComalBin {
0x130e…134c ptr = 0xa0a3 // 0x130e @0x0
0x130e…134c lno = 0x0834 // 0x1310 @0x2
0x130e…134c at0004 = ╱92╱ PRINT ╱ // 0x1312 @0x4
0x130e…134c at0005 = ╱22╱"╱ // 0x1313 @0x5
0x130e…134c at0006 = ╱42╱B╱ // 0x1314 @0x6
0x130e…134c at0007 = ╱79╱y╱ // 0x1315 @0x7
0x130e…134c at0008 = ╱22╱"╱ // 0x1316 @0x8
0x130e…134c at0009 = ╱eb╱;╱ // 0x1317 @0x9
0x130e…134c at000a = ╱42╱B╱ // 0x1318 @0xa
0x130e…134c at000b = ╱4c╱L╱ // 0x1319 @0xb
0x130e…134c at000c = ╱41╱A╱ // 0x131a @0xc
0x130e…134c at000d = ╱4e╱N╱ // 0x131b @0xd
0x130e…134c at000e = ╱4b╱K╱ // 0x131c @0xe
0x130e…134c at000f = ╱ef╱$╱ // 0x131d @0xf
0x130e…134c at0010 = ╱ed╱(╱ // 0x131e @0x10
0x130e…134c at0011 = ╱45╱E╱ // 0x131f @0x11
0x130e…134c at0012 = ╱f0╱:╱ // 0x1320 @0x12
0x130e…134c at0013 = ╱33╱3╱ // 0x1321 @0x13
0x130e…134c at0014 = ╱30╱0╱ // 0x1322 @0x14
0x130e…134c at0015 = ╱fe0000f005╱ // 0x1323 @0x15
0x130e…134c at001a = ╱ee╱)╱ // 0x1328 @0x1a
0x130e…134c at001b = ╱eb╱;╱ // 0x1329 @0x1b
0x130e…134c at001c = ╱22╱"╱ // 0x132a @0x1c
0x130e…134c at001d = ╱28╱(╱ // 0x132b @0x1d
0x130e…134c at001e = ╱6d╱m╱ // 0x132c @0x1e
0x130e…134c at001f = ╱61╱a╱ // 0x132d @0x1f
0x130e…134c at0020 = ╱78╱x╱ // 0x132e @0x20
0x130e…134c at0021 = ╱20╱…╱ // 0x132f @0x21
0x130e…134c at0022 = ╱32╱2╱ // 0x1330 @0x22
0x130e…134c at0023 = ╱30╱0╱ // 0x1331 @0x23
0x130e…134c at0024 = ╱20╱…╱ // 0x1332 @0x24
0x130e…134c at0025 = ╱74╱t╱ // 0x1333 @0x25
0x130e…134c at0026 = ╱65╱e╱ // 0x1334 @0x26
0x130e…134c at0027 = ╱67╱g╱ // 0x1335 @0x27
0x130e…134c at0028 = ╱6e╱n╱ // 0x1336 @0x28
0x130e…134c at0029 = ╱29╱)╱ // 0x1337 @0x29
0x130e…134c at002a = ╱22╱"╱ // 0x1338 @0x2a
0x130e…134c at002b = ╱eb╱;╱ // 0x1339 @0x2b
0x130e…134c at002c = ╱42╱B╱ // 0x133a @0x2c
0x130e…134c at002d = ╱4c╱L╱ // 0x133b @0x2d
0x130e…134c at002e = ╱41╱A╱ // 0x133c @0x2e
0x130e…134c at002f = ╱4e╱N╱ // 0x133d @0x2f
0x130e…134c at0030 = ╱4b╱K╱ // 0x133e @0x30
0x130e…134c at0031 = ╱ef╱$╱ // 0x133f @0x31
0x130e…134c at0032 = ╱ed╱(╱ // 0x1340 @0x32
0x130e…134c at0033 = ╱45╱E╱ // 0x1341 @0x33
0x130e…134c at0034 = ╱f0╱:╱ // 0x1342 @0x34
0x130e…134c at0035 = ╱33╱3╱ // 0x1343 @0x35
0x130e…134c at0036 = ╱31╱1╱ // 0x1344 @0x36
0x130e…134c at0037 = ╱fe0000f805╱ // 0x1345 @0x37
0x130e…134c at003c = ╱ee╱)╱ // 0x134a @0x3c
0x130e…134c at003d = EOL // 0x134b @0x3d
0x130e…134c }
0x134c…1361 a0b8 2110 CURSOR 13,23
0x134c…1361 LineComalBin {
0x134c…1361 ptr = 0xa0b8 // 0x134c @0x0
0x134c…1361 lno = 0x083e // 0x134e @0x2
0x134c…1361 at0004 = ╱a1╱ CURSOR ╱ // 0x1350 @0x4
0x134c…1361 at0005 = ╱31╱1╱ // 0x1351 @0x5
0x134c…1361 at0006 = ╱33╱3╱ // 0x1352 @0x6
0x134c…1361 at0007 = ╱fe0000d004╱ // 0x1353 @0x7
0x134c…1361 at000c = ╱ec╱,╱ // 0x1358 @0xc
0x134c…1361 at000d = ╱32╱2╱ // 0x1359 @0xd
0x134c…1361 at000e = ╱33╱3╱ // 0x135a @0xe
0x134c…1361 at000f = ╱fe0000b805╱ // 0x135b @0xf
0x134c…1361 at0014 = EOL // 0x1360 @0x14
0x134c…1361 }
0x1361…136d a0c4 2120 INPUT DEBBY$
0x1361…136d LineComalBin {
0x1361…136d ptr = 0xa0c4 // 0x1361 @0x0
0x1361…136d lno = 0x0848 // 0x1363 @0x2
0x1361…136d at0004 = ╱91╱ INPUT ╱ // 0x1365 @0x4
0x1361…136d at0005 = ╱44╱D╱ // 0x1366 @0x5
0x1361…136d at0006 = ╱45╱E╱ // 0x1367 @0x6
0x1361…136d at0007 = ╱42╱B╱ // 0x1368 @0x7
0x1361…136d at0008 = ╱42╱B╱ // 0x1369 @0x8
0x1361…136d at0009 = ╱59╱Y╱ // 0x136a @0x9
0x1361…136d at000a = ╱ef╱$╱ // 0x136b @0xa
0x1361…136d at000b = EOL // 0x136c @0xb
0x1361…136d }
0x136d…1373 a0ca 2130 ENDIF
0x136d…1373 LineComalBin {
0x136d…1373 ptr = 0xa0ca // 0x136d @0x0
0x136d…1373 lno = 0x0852 // 0x136f @0x2
0x136d…1373 at0004 = ╱9b╱ ENDIF ╱ // 0x1371 @0x4
0x136d…1373 at0005 = EOL // 0x1372 @0x5
0x136d…1373 }
0x1373…1387 a0de 2140 CURSOR 16,7
0x1373…1387 LineComalBin {
0x1373…1387 ptr = 0xa0de // 0x1373 @0x0
0x1373…1387 lno = 0x085c // 0x1375 @0x2
0x1373…1387 at0004 = ╱a1╱ CURSOR ╱ // 0x1377 @0x4
0x1373…1387 at0005 = ╱31╱1╱ // 0x1378 @0x5
0x1373…1387 at0006 = ╱36╱6╱ // 0x1379 @0x6
0x1373…1387 at0007 = ╱fe00008005╱ // 0x137a @0x7
0x1373…1387 at000c = ╱ec╱,╱ // 0x137f @0xc
0x1373…1387 at000d = ╱37╱7╱ // 0x1380 @0xd
0x1373…1387 at000e = ╱fe0000e003╱ // 0x1381 @0xe
0x1373…1387 at0013 = EOL // 0x1386 @0x13
0x1373…1387 }
0x1387…139e a0f5 2150 PRINT BLANK$(E:20)
0x1387…139e LineComalBin {
0x1387…139e ptr = 0xa0f5 // 0x1387 @0x0
0x1387…139e lno = 0x0866 // 0x1389 @0x2
0x1387…139e at0004 = ╱92╱ PRINT ╱ // 0x138b @0x4
0x1387…139e at0005 = ╱42╱B╱ // 0x138c @0x5
0x1387…139e at0006 = ╱4c╱L╱ // 0x138d @0x6
0x1387…139e at0007 = ╱41╱A╱ // 0x138e @0x7
0x1387…139e at0008 = ╱4e╱N╱ // 0x138f @0x8
0x1387…139e at0009 = ╱4b╱K╱ // 0x1390 @0x9
0x1387…139e at000a = ╱ef╱$╱ // 0x1391 @0xa
0x1387…139e at000b = ╱ed╱(╱ // 0x1392 @0xb
0x1387…139e at000c = ╱45╱E╱ // 0x1393 @0xc
0x1387…139e at000d = ╱f0╱:╱ // 0x1394 @0xd
0x1387…139e at000e = ╱32╱2╱ // 0x1395 @0xe
0x1387…139e at000f = ╱30╱0╱ // 0x1396 @0xf
0x1387…139e at0010 = ╱fe0000a005╱ // 0x1397 @0x10
0x1387…139e at0015 = ╱ee╱)╱ // 0x139c @0x15
0x1387…139e at0016 = EOL // 0x139d @0x16
0x1387…139e }
0x139e…13b2 a109 2160 CURSOR 16,7
0x139e…13b2 LineComalBin {
0x139e…13b2 ptr = 0xa109 // 0x139e @0x0
0x139e…13b2 lno = 0x0870 // 0x13a0 @0x2
0x139e…13b2 at0004 = ╱a1╱ CURSOR ╱ // 0x13a2 @0x4
0x139e…13b2 at0005 = ╱31╱1╱ // 0x13a3 @0x5
0x139e…13b2 at0006 = ╱36╱6╱ // 0x13a4 @0x6
0x139e…13b2 at0007 = ╱fe00008005╱ // 0x13a5 @0x7
0x139e…13b2 at000c = ╱ec╱,╱ // 0x13aa @0xc
0x139e…13b2 at000d = ╱37╱7╱ // 0x13ab @0xd
0x139e…13b2 at000e = ╱fe0000e003╱ // 0x13ac @0xe
0x139e…13b2 at0013 = EOL // 0x13b1 @0x13
0x139e…13b2 }
0x13b2…13be a115 2170 PRINT DEBBY$
0x13b2…13be LineComalBin {
0x13b2…13be ptr = 0xa115 // 0x13b2 @0x0
0x13b2…13be lno = 0x087a // 0x13b4 @0x2
0x13b2…13be at0004 = ╱92╱ PRINT ╱ // 0x13b6 @0x4
0x13b2…13be at0005 = ╱44╱D╱ // 0x13b7 @0x5
0x13b2…13be at0006 = ╱45╱E╱ // 0x13b8 @0x6
0x13b2…13be at0007 = ╱42╱B╱ // 0x13b9 @0x7
0x13b2…13be at0008 = ╱42╱B╱ // 0x13ba @0x8
0x13b2…13be at0009 = ╱59╱Y╱ // 0x13bb @0x9
0x13b2…13be at000a = ╱ef╱$╱ // 0x13bc @0xa
0x13b2…13be at000b = EOL // 0x13bd @0xb
0x13b2…13be }
0x13be…13cb a122 2180 WHEN 6
0x13be…13cb LineComalBin {
0x13be…13cb ptr = 0xa122 // 0x13be @0x0
0x13be…13cb lno = 0x0884 // 0x13c0 @0x2
0x13be…13cb at0004 = ╱a301╱ WHEN ╱ // 0x13c2 @0x4
0x13be…13cb at0006 = ╱36╱6╱ // 0x13c4 @0x6
0x13be…13cb at0007 = ╱fe0000c003╱ // 0x13c5 @0x7
0x13be…13cb at000c = EOL // 0x13ca @0xc
0x13be…13cb }
0x13cb…13d8 a12f 2190 IF CÆND<>E THEN
0x13cb…13d8 LineComalBin {
0x13cb…13d8 ptr = 0xa12f // 0x13cb @0x0
0x13cb…13d8 lno = 0x088e // 0x13cd @0x2
0x13cb…13d8 at0004 = ╱9c╱ IF ╱ // 0x13cf @0x4
0x13cb…13d8 at0005 = ╱43╱C╱ // 0x13d0 @0x5
0x13cb…13d8 at0006 = ╱5b╱Æ╱ // 0x13d1 @0x6
0x13cb…13d8 at0007 = ╱4e╱N╱ // 0x13d2 @0x7
0x13cb…13d8 at0008 = ╱44╱D╱ // 0x13d3 @0x8
0x13cb…13d8 at0009 = ╱e1╱<>╱ // 0x13d4 @0x9
0x13cb…13d8 at000a = ╱45╱E╱ // 0x13d5 @0xa
0x13cb…13d8 at000b = ╱b6╱ THEN ╱ // 0x13d6 @0xb
0x13cb…13d8 at000c = EOL // 0x13d7 @0xc
0x13cb…13d8 }
0x13d8…13e6 a13d 2200 CURSOR G,8
0x13d8…13e6 LineComalBin {
0x13d8…13e6 ptr = 0xa13d // 0x13d8 @0x0
0x13d8…13e6 lno = 0x0898 // 0x13da @0x2
0x13d8…13e6 at0004 = ╱a1╱ CURSOR ╱ // 0x13dc @0x4
0x13d8…13e6 at0005 = ╱47╱G╱ // 0x13dd @0x5
0x13d8…13e6 at0006 = ╱ec╱,╱ // 0x13de @0x6
0x13d8…13e6 at0007 = ╱38╱8╱ // 0x13df @0x7
0x13d8…13e6 at0008 = ╱fe00008004╱ // 0x13e0 @0x8
0x13d8…13e6 at000d = EOL // 0x13e5 @0xd
0x13d8…13e6 }
0x13e6…1405 a15c 2210 PRINT "6:Landekode : Land:"
0x13e6…1405 LineComalBin {
0x13e6…1405 ptr = 0xa15c // 0x13e6 @0x0
0x13e6…1405 lno = 0x08a2 // 0x13e8 @0x2
0x13e6…1405 at0004 = ╱92╱ PRINT ╱ // 0x13ea @0x4
0x13e6…1405 at0005 = ╱22╱"╱ // 0x13eb @0x5
0x13e6…1405 at0006 = ╱36╱6╱ // 0x13ec @0x6
0x13e6…1405 at0007 = ╱3a╱:╱ // 0x13ed @0x7
0x13e6…1405 at0008 = ╱4c╱L╱ // 0x13ee @0x8
0x13e6…1405 at0009 = ╱61╱a╱ // 0x13ef @0x9
0x13e6…1405 at000a = ╱6e╱n╱ // 0x13f0 @0xa
0x13e6…1405 at000b = ╱64╱d╱ // 0x13f1 @0xb
0x13e6…1405 at000c = ╱65╱e╱ // 0x13f2 @0xc
0x13e6…1405 at000d = ╱6b╱k╱ // 0x13f3 @0xd
0x13e6…1405 at000e = ╱6f╱o╱ // 0x13f4 @0xe
0x13e6…1405 at000f = ╱64╱d╱ // 0x13f5 @0xf
0x13e6…1405 at0010 = ╱65╱e╱ // 0x13f6 @0x10
0x13e6…1405 at0011 = ╱20╱…╱ // 0x13f7 @0x11
0x13e6…1405 at0012 = ╱3a╱:╱ // 0x13f8 @0x12
0x13e6…1405 at0013 = ╱20╱…╱ // 0x13f9 @0x13
0x13e6…1405 at0014 = ╱20╱…╱ // 0x13fa @0x14
0x13e6…1405 at0015 = ╱20╱…╱ // 0x13fb @0x15
0x13e6…1405 at0016 = ╱20╱…╱ // 0x13fc @0x16
0x13e6…1405 at0017 = ╱20╱…╱ // 0x13fd @0x17
0x13e6…1405 at0018 = ╱4c╱L╱ // 0x13fe @0x18
0x13e6…1405 at0019 = ╱61╱a╱ // 0x13ff @0x19
0x13e6…1405 at001a = ╱6e╱n╱ // 0x1400 @0x1a
0x13e6…1405 at001b = ╱64╱d╱ // 0x1401 @0x1b
0x13e6…1405 at001c = ╱3a╱:╱ // 0x1402 @0x1c
0x13e6…1405 at001d = ╱22╱"╱ // 0x1403 @0x1d
0x13e6…1405 at001e = EOL // 0x1404 @0x1e
0x13e6…1405 }
0x1405…1416 a16d 2220 DSTYR=7
0x1405…1416 LineComalBin {
0x1405…1416 ptr = 0xa16d // 0x1405 @0x0
0x1405…1416 lno = 0x08ac // 0x1407 @0x2
0x1405…1416 at0004 = ╱44╱D╱ // 0x1409 @0x4
0x1405…1416 at0005 = ╱53╱S╱ // 0x140a @0x5
0x1405…1416 at0006 = ╱54╱T╱ // 0x140b @0x6
0x1405…1416 at0007 = ╱59╱Y╱ // 0x140c @0x7
0x1405…1416 at0008 = ╱52╱R╱ // 0x140d @0x8
0x1405…1416 at0009 = ╱dc╱=╱ // 0x140e @0x9
0x1405…1416 at000a = ╱37╱7╱ // 0x140f @0xa
0x1405…1416 at000b = ╱fe0000e003╱ // 0x1410 @0xb
0x1405…1416 at0010 = EOL // 0x1415 @0x10
0x1405…1416 }
0x1416…141c a173 2230 ENDIF
0x1416…141c LineComalBin {
0x1416…141c ptr = 0xa173 // 0x1416 @0x0
0x1416…141c lno = 0x08b6 // 0x1418 @0x2
0x1416…141c at0004 = ╱9b╱ ENDIF ╱ // 0x141a @0x4
0x1416…141c at0005 = EOL // 0x141b @0x5
0x1416…141c }
0x141c…1429 a180 2240 IF CÆND<>G THEN
0x141c…1429 LineComalBin {
0x141c…1429 ptr = 0xa180 // 0x141c @0x0
0x141c…1429 lno = 0x08c0 // 0x141e @0x2
0x141c…1429 at0004 = ╱9c╱ IF ╱ // 0x1420 @0x4
0x141c…1429 at0005 = ╱43╱C╱ // 0x1421 @0x5
0x141c…1429 at0006 = ╱5b╱Æ╱ // 0x1422 @0x6
0x141c…1429 at0007 = ╱4e╱N╱ // 0x1423 @0x7
0x141c…1429 at0008 = ╱44╱D╱ // 0x1424 @0x8
0x141c…1429 at0009 = ╱e1╱<>╱ // 0x1425 @0x9
0x141c…1429 at000a = ╱47╱G╱ // 0x1426 @0xa
0x141c…1429 at000b = ╱b6╱ THEN ╱ // 0x1427 @0xb
0x141c…1429 at000c = EOL // 0x1428 @0xc
0x141c…1429 }
0x1429…142f a186 2250 REPEAT
0x1429…142f LineComalBin {
0x1429…142f ptr = 0xa186 // 0x1429 @0x0
0x1429…142f lno = 0x08ca // 0x142b @0x2
0x1429…142f at0004 = ╱97╱ REPEAT ╱ // 0x142d @0x4
0x1429…142f at0005 = EOL // 0x142e @0x5
0x1429…142f }
0x142f…143e a195 2260 CURSOR V,23
0x142f…143e LineComalBin {
0x142f…143e ptr = 0xa195 // 0x142f @0x0
0x142f…143e lno = 0x08d4 // 0x1431 @0x2
0x142f…143e at0004 = ╱a1╱ CURSOR ╱ // 0x1433 @0x4
0x142f…143e at0005 = ╱56╱V╱ // 0x1434 @0x5
0x142f…143e at0006 = ╱ec╱,╱ // 0x1435 @0x6
0x142f…143e at0007 = ╱32╱2╱ // 0x1436 @0x7
0x142f…143e at0008 = ╱33╱3╱ // 0x1437 @0x8
0x142f…143e at0009 = ╱fe0000b805╱ // 0x1438 @0x9
0x142f…143e at000e = EOL // 0x143d @0xe
0x142f…143e }
0x143e…148a a1e1 2270 PRINT "Landekode";BLANK$(E:W);"0:for Danmark,max 2 cifre)";BLANK$(E:30)
0x143e…148a LineComalBin {
0x143e…148a ptr = 0xa1e1 // 0x143e @0x0
0x143e…148a lno = 0x08de // 0x1440 @0x2
0x143e…148a at0004 = ╱92╱ PRINT ╱ // 0x1442 @0x4
0x143e…148a at0005 = ╱22╱"╱ // 0x1443 @0x5
0x143e…148a at0006 = ╱4c╱L╱ // 0x1444 @0x6
0x143e…148a at0007 = ╱61╱a╱ // 0x1445 @0x7
0x143e…148a at0008 = ╱6e╱n╱ // 0x1446 @0x8
0x143e…148a at0009 = ╱64╱d╱ // 0x1447 @0x9
0x143e…148a at000a = ╱65╱e╱ // 0x1448 @0xa
0x143e…148a at000b = ╱6b╱k╱ // 0x1449 @0xb
0x143e…148a at000c = ╱6f╱o╱ // 0x144a @0xc
0x143e…148a at000d = ╱64╱d╱ // 0x144b @0xd
0x143e…148a at000e = ╱65╱e╱ // 0x144c @0xe
0x143e…148a at000f = ╱22╱"╱ // 0x144d @0xf
0x143e…148a at0010 = ╱eb╱;╱ // 0x144e @0x10
0x143e…148a at0011 = ╱42╱B╱ // 0x144f @0x11
0x143e…148a at0012 = ╱4c╱L╱ // 0x1450 @0x12
0x143e…148a at0013 = ╱41╱A╱ // 0x1451 @0x13
0x143e…148a at0014 = ╱4e╱N╱ // 0x1452 @0x14
0x143e…148a at0015 = ╱4b╱K╱ // 0x1453 @0x15
0x143e…148a at0016 = ╱ef╱$╱ // 0x1454 @0x16
0x143e…148a at0017 = ╱ed╱(╱ // 0x1455 @0x17
0x143e…148a at0018 = ╱45╱E╱ // 0x1456 @0x18
0x143e…148a at0019 = ╱f0╱:╱ // 0x1457 @0x19
0x143e…148a at001a = ╱57╱W╱ // 0x1458 @0x1a
0x143e…148a at001b = ╱ee╱)╱ // 0x1459 @0x1b
0x143e…148a at001c = ╱eb╱;╱ // 0x145a @0x1c
0x143e…148a at001d = ╱22╱"╱ // 0x145b @0x1d
0x143e…148a at001e = ╱30╱0╱ // 0x145c @0x1e
0x143e…148a at001f = ╱3a╱:╱ // 0x145d @0x1f
0x143e…148a at0020 = ╱66╱f╱ // 0x145e @0x20
0x143e…148a at0021 = ╱6f╱o╱ // 0x145f @0x21
0x143e…148a at0022 = ╱72╱r╱ // 0x1460 @0x22
0x143e…148a at0023 = ╱20╱…╱ // 0x1461 @0x23
0x143e…148a at0024 = ╱44╱D╱ // 0x1462 @0x24
0x143e…148a at0025 = ╱61╱a╱ // 0x1463 @0x25
0x143e…148a at0026 = ╱6e╱n╱ // 0x1464 @0x26
0x143e…148a at0027 = ╱6d╱m╱ // 0x1465 @0x27
0x143e…148a at0028 = ╱61╱a╱ // 0x1466 @0x28
0x143e…148a at0029 = ╱72╱r╱ // 0x1467 @0x29
0x143e…148a at002a = ╱6b╱k╱ // 0x1468 @0x2a
0x143e…148a at002b = ╱2c╱,╱ // 0x1469 @0x2b
0x143e…148a at002c = ╱6d╱m╱ // 0x146a @0x2c
0x143e…148a at002d = ╱61╱a╱ // 0x146b @0x2d
0x143e…148a at002e = ╱78╱x╱ // 0x146c @0x2e
0x143e…148a at002f = ╱20╱…╱ // 0x146d @0x2f
0x143e…148a at0030 = ╱32╱2╱ // 0x146e @0x30
0x143e…148a at0031 = ╱20╱…╱ // 0x146f @0x31
0x143e…148a at0032 = ╱63╱c╱ // 0x1470 @0x32
0x143e…148a at0033 = ╱69╱i╱ // 0x1471 @0x33
0x143e…148a at0034 = ╱66╱f╱ // 0x1472 @0x34
0x143e…148a at0035 = ╱72╱r╱ // 0x1473 @0x35
0x143e…148a at0036 = ╱65╱e╱ // 0x1474 @0x36
0x143e…148a at0037 = ╱29╱)╱ // 0x1475 @0x37
0x143e…148a at0038 = ╱22╱"╱ // 0x1476 @0x38
0x143e…148a at0039 = ╱eb╱;╱ // 0x1477 @0x39
0x143e…148a at003a = ╱42╱B╱ // 0x1478 @0x3a
0x143e…148a at003b = ╱4c╱L╱ // 0x1479 @0x3b
0x143e…148a at003c = ╱41╱A╱ // 0x147a @0x3c
0x143e…148a at003d = ╱4e╱N╱ // 0x147b @0x3d
0x143e…148a at003e = ╱4b╱K╱ // 0x147c @0x3e
0x143e…148a at003f = ╱ef╱$╱ // 0x147d @0x3f
0x143e…148a at0040 = ╱ed╱(╱ // 0x147e @0x40
0x143e…148a at0041 = ╱45╱E╱ // 0x147f @0x41
0x143e…148a at0042 = ╱f0╱:╱ // 0x1480 @0x42
0x143e…148a at0043 = ╱33╱3╱ // 0x1481 @0x43
0x143e…148a at0044 = ╱30╱0╱ // 0x1482 @0x44
0x143e…148a at0045 = ╱fe0000f005╱ // 0x1483 @0x45
0x143e…148a at004a = ╱ee╱)╱ // 0x1488 @0x4a
0x143e…148a at004b = EOL // 0x1489 @0x4b
0x143e…148a }
0x148a…149f a1f6 2280 CURSOR 13,23
0x148a…149f LineComalBin {
0x148a…149f ptr = 0xa1f6 // 0x148a @0x0
0x148a…149f lno = 0x08e8 // 0x148c @0x2
0x148a…149f at0004 = ╱a1╱ CURSOR ╱ // 0x148e @0x4
0x148a…149f at0005 = ╱31╱1╱ // 0x148f @0x5
0x148a…149f at0006 = ╱33╱3╱ // 0x1490 @0x6
0x148a…149f at0007 = ╱fe0000d004╱ // 0x1491 @0x7
0x148a…149f at000c = ╱ec╱,╱ // 0x1496 @0xc
0x148a…149f at000d = ╱32╱2╱ // 0x1497 @0xd
0x148a…149f at000e = ╱33╱3╱ // 0x1498 @0xe
0x148a…149f at000f = ╱fe0000b805╱ // 0x1499 @0xf
0x148a…149f at0014 = EOL // 0x149e @0x14
0x148a…149f }
0x149f…14a8 a1ff 2290 INPUT LK$
0x149f…14a8 LineComalBin {
0x149f…14a8 ptr = 0xa1ff // 0x149f @0x0
0x149f…14a8 lno = 0x08f2 // 0x14a1 @0x2
0x149f…14a8 at0004 = ╱91╱ INPUT ╱ // 0x14a3 @0x4
0x149f…14a8 at0005 = ╱4c╱L╱ // 0x14a4 @0x5
0x149f…14a8 at0006 = ╱4b╱K╱ // 0x14a5 @0x6
0x149f…14a8 at0007 = ╱ef╱$╱ // 0x14a6 @0x7
0x149f…14a8 at0008 = EOL // 0x14a7 @0x8
0x149f…14a8 }
0x14a8…14b9 a210 2300 EXEC NRTEST(LK$)
0x14a8…14b9 LineComalBin {
0x14a8…14b9 ptr = 0xa210 // 0x14a8 @0x0
0x14a8…14b9 lno = 0x08fc // 0x14aa @0x2
0x14a8…14b9 at0004 = ╱9d╱ EXEC ╱ // 0x14ac @0x4
0x14a8…14b9 at0005 = ╱4e╱N╱ // 0x14ad @0x5
0x14a8…14b9 at0006 = ╱52╱R╱ // 0x14ae @0x6
0x14a8…14b9 at0007 = ╱54╱T╱ // 0x14af @0x7
0x14a8…14b9 at0008 = ╱45╱E╱ // 0x14b0 @0x8
0x14a8…14b9 at0009 = ╱53╱S╱ // 0x14b1 @0x9
0x14a8…14b9 at000a = ╱54╱T╱ // 0x14b2 @0xa
0x14a8…14b9 at000b = ╱ed╱(╱ // 0x14b3 @0xb
0x14a8…14b9 at000c = ╱4c╱L╱ // 0x14b4 @0xc
0x14a8…14b9 at000d = ╱4b╱K╱ // 0x14b5 @0xd
0x14a8…14b9 at000e = ╱ef╱$╱ // 0x14b6 @0xe
0x14a8…14b9 at000f = ╱ee╱)╱ // 0x14b7 @0xf
0x14a8…14b9 at0010 = EOL // 0x14b8 @0x10
0x14a8…14b9 }
0x14b9…14e5 a23c 2310 UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E)
0x14b9…14e5 LineComalBin {
0x14b9…14e5 ptr = 0xa23c // 0x14b9 @0x0
0x14b9…14e5 lno = 0x0906 // 0x14bb @0x2
0x14b9…14e5 at0004 = ╱98╱ UNTIL ╱ // 0x14bd @0x4
0x14b9…14e5 at0005 = ╱ed╱(╱ // 0x14be @0x5
0x14b9…14e5 at0006 = ╱50╱P╱ // 0x14bf @0x6
0x14b9…14e5 at0007 = ╱de╱>╱ // 0x14c0 @0x7
0x14b9…14e5 at0008 = ╱e9╱-╱ // 0x14c1 @0x8
0x14b9…14e5 at0009 = ╱45╱E╱ // 0x14c2 @0x9
0x14b9…14e5 at000a = ╱da╱ AND ╱ // 0x14c3 @0xa
0x14b9…14e5 at000b = ╱50╱P╱ // 0x14c4 @0xb
0x14b9…14e5 at000c = ╱dd╱<╱ // 0x14c5 @0xc
0x14b9…14e5 at000d = ╱31╱1╱ // 0x14c6 @0xd
0x14b9…14e5 at000e = ╱30╱0╱ // 0x14c7 @0xe
0x14b9…14e5 at000f = ╱fe0000a004╱ // 0x14c8 @0xf
0x14b9…14e5 at0014 = ╱da╱ AND ╱ // 0x14cd @0x14
0x14b9…14e5 at0015 = ╱54╱T╱ // 0x14ce @0x15
0x14b9…14e5 at0016 = ╱45╱E╱ // 0x14cf @0x16
0x14b9…14e5 at0017 = ╱53╱S╱ // 0x14d0 @0x17
0x14b9…14e5 at0018 = ╱54╱T╱ // 0x14d1 @0x18
0x14b9…14e5 at0019 = ╱32╱2╱ // 0x14d2 @0x19
0x14b9…14e5 at001a = ╱dc╱=╱ // 0x14d3 @0x1a
0x14b9…14e5 at001b = ╱42╱B╱ // 0x14d4 @0x1b
0x14b9…14e5 at001c = ╱ee╱)╱ // 0x14d5 @0x1c
0x14b9…14e5 at001d = ╱db╱ OR ╱ // 0x14d6 @0x1d
0x14b9…14e5 at001e = ╱ed╱(╱ // 0x14d7 @0x1e
0x14b9…14e5 at001f = ╱50╱P╱ // 0x14d8 @0x1f
0x14b9…14e5 at0020 = ╱dc╱=╱ // 0x14d9 @0x20
0x14b9…14e5 at0021 = ╱e9╱-╱ // 0x14da @0x21
0x14b9…14e5 at0022 = ╱45╱E╱ // 0x14db @0x22
0x14b9…14e5 at0023 = ╱da╱ AND ╱ // 0x14dc @0x23
0x14b9…14e5 at0024 = ╱43╱C╱ // 0x14dd @0x24
0x14b9…14e5 at0025 = ╱5b╱Æ╱ // 0x14de @0x25
0x14b9…14e5 at0026 = ╱4e╱N╱ // 0x14df @0x26
0x14b9…14e5 at0027 = ╱44╱D╱ // 0x14e0 @0x27
0x14b9…14e5 at0028 = ╱dc╱=╱ // 0x14e1 @0x28
0x14b9…14e5 at0029 = ╱45╱E╱ // 0x14e2 @0x29
0x14b9…14e5 at002a = ╱ee╱)╱ // 0x14e3 @0x2a
0x14b9…14e5 at002b = EOL // 0x14e4 @0x2b
0x14b9…14e5 }
0x14e5…14eb a242 2320 ENDIF
0x14e5…14eb LineComalBin {
0x14e5…14eb ptr = 0xa242 // 0x14e5 @0x0
0x14e5…14eb lno = 0x0910 // 0x14e7 @0x2
0x14e5…14eb at0004 = ╱9b╱ ENDIF ╱ // 0x14e9 @0x4
0x14e5…14eb at0005 = EOL // 0x14ea @0x5
0x14e5…14eb }
0x14eb…14ff a256 2330 CURSOR 16,8
0x14eb…14ff LineComalBin {
0x14eb…14ff ptr = 0xa256 // 0x14eb @0x0
0x14eb…14ff lno = 0x091a // 0x14ed @0x2
0x14eb…14ff at0004 = ╱a1╱ CURSOR ╱ // 0x14ef @0x4
0x14eb…14ff at0005 = ╱31╱1╱ // 0x14f0 @0x5
0x14eb…14ff at0006 = ╱36╱6╱ // 0x14f1 @0x6
0x14eb…14ff at0007 = ╱fe00008005╱ // 0x14f2 @0x7
0x14eb…14ff at000c = ╱ec╱,╱ // 0x14f7 @0xc
0x14eb…14ff at000d = ╱38╱8╱ // 0x14f8 @0xd
0x14eb…14ff at000e = ╱fe00008004╱ // 0x14f9 @0xe
0x14eb…14ff at0013 = EOL // 0x14fe @0x13
0x14eb…14ff }
0x14ff…1510 a267 2340 PRINT BLANK$(E:V)
0x14ff…1510 LineComalBin {
0x14ff…1510 ptr = 0xa267 // 0x14ff @0x0
0x14ff…1510 lno = 0x0924 // 0x1501 @0x2
0x14ff…1510 at0004 = ╱92╱ PRINT ╱ // 0x1503 @0x4
0x14ff…1510 at0005 = ╱42╱B╱ // 0x1504 @0x5
0x14ff…1510 at0006 = ╱4c╱L╱ // 0x1505 @0x6
0x14ff…1510 at0007 = ╱41╱A╱ // 0x1506 @0x7
0x14ff…1510 at0008 = ╱4e╱N╱ // 0x1507 @0x8
0x14ff…1510 at0009 = ╱4b╱K╱ // 0x1508 @0x9
0x14ff…1510 at000a = ╱ef╱$╱ // 0x1509 @0xa
0x14ff…1510 at000b = ╱ed╱(╱ // 0x150a @0xb
0x14ff…1510 at000c = ╱45╱E╱ // 0x150b @0xc
0x14ff…1510 at000d = ╱f0╱:╱ // 0x150c @0xd
0x14ff…1510 at000e = ╱56╱V╱ // 0x150d @0xe
0x14ff…1510 at000f = ╱ee╱)╱ // 0x150e @0xf
0x14ff…1510 at0010 = EOL // 0x150f @0x10
0x14ff…1510 }
0x1510…1524 a27b 2350 CURSOR 27,8
0x1510…1524 LineComalBin {
0x1510…1524 ptr = 0xa27b // 0x1510 @0x0
0x1510…1524 lno = 0x092e // 0x1512 @0x2
0x1510…1524 at0004 = ╱a1╱ CURSOR ╱ // 0x1514 @0x4
0x1510…1524 at0005 = ╱32╱2╱ // 0x1515 @0x5
0x1510…1524 at0006 = ╱37╱7╱ // 0x1516 @0x6
0x1510…1524 at0007 = ╱fe0000d805╱ // 0x1517 @0x7
0x1510…1524 at000c = ╱ec╱,╱ // 0x151c @0xc
0x1510…1524 at000d = ╱38╱8╱ // 0x151d @0xd
0x1510…1524 at000e = ╱fe00008004╱ // 0x151e @0xe
0x1510…1524 at0013 = EOL // 0x1523 @0x13
0x1510…1524 }
0x1524…153b a292 2360 PRINT BLANK$(E:15)
0x1524…153b LineComalBin {
0x1524…153b ptr = 0xa292 // 0x1524 @0x0
0x1524…153b lno = 0x0938 // 0x1526 @0x2
0x1524…153b at0004 = ╱92╱ PRINT ╱ // 0x1528 @0x4
0x1524…153b at0005 = ╱42╱B╱ // 0x1529 @0x5
0x1524…153b at0006 = ╱4c╱L╱ // 0x152a @0x6
0x1524…153b at0007 = ╱41╱A╱ // 0x152b @0x7
0x1524…153b at0008 = ╱4e╱N╱ // 0x152c @0x8
0x1524…153b at0009 = ╱4b╱K╱ // 0x152d @0x9
0x1524…153b at000a = ╱ef╱$╱ // 0x152e @0xa
0x1524…153b at000b = ╱ed╱(╱ // 0x152f @0xb
0x1524…153b at000c = ╱45╱E╱ // 0x1530 @0xc
0x1524…153b at000d = ╱f0╱:╱ // 0x1531 @0xd
0x1524…153b at000e = ╱31╱1╱ // 0x1532 @0xe
0x1524…153b at000f = ╱35╱5╱ // 0x1533 @0xf
0x1524…153b at0010 = ╱fe0000f004╱ // 0x1534 @0x10
0x1524…153b at0015 = ╱ee╱)╱ // 0x1539 @0x15
0x1524…153b at0016 = EOL // 0x153a @0x16
0x1524…153b }
0x153b…154f a2a6 2370 CURSOR 16,8
0x153b…154f LineComalBin {
0x153b…154f ptr = 0xa2a6 // 0x153b @0x0
0x153b…154f lno = 0x0942 // 0x153d @0x2
0x153b…154f at0004 = ╱a1╱ CURSOR ╱ // 0x153f @0x4
0x153b…154f at0005 = ╱31╱1╱ // 0x1540 @0x5
0x153b…154f at0006 = ╱36╱6╱ // 0x1541 @0x6
0x153b…154f at0007 = ╱fe00008005╱ // 0x1542 @0x7
0x153b…154f at000c = ╱ec╱,╱ // 0x1547 @0xc
0x153b…154f at000d = ╱38╱8╱ // 0x1548 @0xd
0x153b…154f at000e = ╱fe00008004╱ // 0x1549 @0xe
0x153b…154f at0013 = EOL // 0x154e @0x13
0x153b…154f }
0x154f…1566 a2bd 2380 IF P<10 AND CÆND<>G THEN
0x154f…1566 LineComalBin {
0x154f…1566 ptr = 0xa2bd // 0x154f @0x0
0x154f…1566 lno = 0x094c // 0x1551 @0x2
0x154f…1566 at0004 = ╱9c╱ IF ╱ // 0x1553 @0x4
0x154f…1566 at0005 = ╱50╱P╱ // 0x1554 @0x5
0x154f…1566 at0006 = ╱dd╱<╱ // 0x1555 @0x6
0x154f…1566 at0007 = ╱31╱1╱ // 0x1556 @0x7
0x154f…1566 at0008 = ╱30╱0╱ // 0x1557 @0x8
0x154f…1566 at0009 = ╱fe0000a004╱ // 0x1558 @0x9
0x154f…1566 at000e = ╱da╱ AND ╱ // 0x155d @0xe
0x154f…1566 at000f = ╱43╱C╱ // 0x155e @0xf
0x154f…1566 at0010 = ╱5b╱Æ╱ // 0x155f @0x10
0x154f…1566 at0011 = ╱4e╱N╱ // 0x1560 @0x11
0x154f…1566 at0012 = ╱44╱D╱ // 0x1561 @0x12
0x154f…1566 at0013 = ╱e1╱<>╱ // 0x1562 @0x13
0x154f…1566 at0014 = ╱47╱G╱ // 0x1563 @0x14
0x154f…1566 at0015 = ╱b6╱ THEN ╱ // 0x1564 @0x15
0x154f…1566 at0016 = EOL // 0x1565 @0x16
0x154f…1566 }
0x1566…157e a2d5 2390 DEBLK$=CHR(P+48)
0x1566…157e LineComalBin {
0x1566…157e ptr = 0xa2d5 // 0x1566 @0x0
0x1566…157e lno = 0x0956 // 0x1568 @0x2
0x1566…157e at0004 = ╱44╱D╱ // 0x156a @0x4
0x1566…157e at0005 = ╱45╱E╱ // 0x156b @0x5
0x1566…157e at0006 = ╱42╱B╱ // 0x156c @0x6
0x1566…157e at0007 = ╱4c╱L╱ // 0x156d @0x7
0x1566…157e at0008 = ╱4b╱K╱ // 0x156e @0x8
0x1566…157e at0009 = ╱ef╱$╱ // 0x156f @0x9
0x1566…157e at000a = ╱dc╱=╱ // 0x1570 @0xa
0x1566…157e at000b = ╱cf╱CHR╱ // 0x1571 @0xb
0x1566…157e at000c = ╱ed╱(╱ // 0x1572 @0xc
0x1566…157e at000d = ╱50╱P╱ // 0x1573 @0xd
0x1566…157e at000e = ╱e2╱+╱ // 0x1574 @0xe
0x1566…157e at000f = ╱34╱4╱ // 0x1575 @0xf
0x1566…157e at0010 = ╱38╱8╱ // 0x1576 @0x10
0x1566…157e at0011 = ╱fe0000c006╱ // 0x1577 @0x11
0x1566…157e at0016 = ╱ee╱)╱ // 0x157c @0x16
0x1566…157e at0017 = EOL // 0x157d @0x17
0x1566…157e }
0x157e…1584 a2db 2400 ENDIF
0x157e…1584 LineComalBin {
0x157e…1584 ptr = 0xa2db // 0x157e @0x0
0x157e…1584 lno = 0x0960 // 0x1580 @0x2
0x157e…1584 at0004 = ╱9b╱ ENDIF ╱ // 0x1582 @0x4
0x157e…1584 at0005 = EOL // 0x1583 @0x5
0x157e…1584 }
0x1584…159c a2f3 2410 P=ORD(DEBLK$)-48
0x1584…159c LineComalBin {
0x1584…159c ptr = 0xa2f3 // 0x1584 @0x0
0x1584…159c lno = 0x096a // 0x1586 @0x2
0x1584…159c at0004 = ╱50╱P╱ // 0x1588 @0x4
0x1584…159c at0005 = ╱dc╱=╱ // 0x1589 @0x5
0x1584…159c at0006 = ╱cd╱ORD╱ // 0x158a @0x6
0x1584…159c at0007 = ╱ed╱(╱ // 0x158b @0x7
0x1584…159c at0008 = ╱44╱D╱ // 0x158c @0x8
0x1584…159c at0009 = ╱45╱E╱ // 0x158d @0x9
0x1584…159c at000a = ╱42╱B╱ // 0x158e @0xa
0x1584…159c at000b = ╱4c╱L╱ // 0x158f @0xb
0x1584…159c at000c = ╱4b╱K╱ // 0x1590 @0xc
0x1584…159c at000d = ╱ef╱$╱ // 0x1591 @0xd
0x1584…159c at000e = ╱ee╱)╱ // 0x1592 @0xe
0x1584…159c at000f = ╱e3╱-╱ // 0x1593 @0xf
0x1584…159c at0010 = ╱34╱4╱ // 0x1594 @0x10
0x1584…159c at0011 = ╱38╱8╱ // 0x1595 @0x11
0x1584…159c at0012 = ╱fe0000c006╱ // 0x1596 @0x12
0x1584…159c at0017 = EOL // 0x159b @0x17
0x1584…159c }
0x159c…15aa a301 2420 PRINT USING "###":P
0x159c…15aa LineComalBin {
0x159c…15aa ptr = 0xa301 // 0x159c @0x0
0x159c…15aa lno = 0x0974 // 0x159e @0x2
0x159c…15aa at0004 = ╱92╱ PRINT ╱ // 0x15a0 @0x4
0x159c…15aa at0005 = ╱b9╱ USING ╱ // 0x15a1 @0x5
0x159c…15aa at0006 = ╱22╱"╱ // 0x15a2 @0x6
0x159c…15aa at0007 = ╱23╱#╱ // 0x15a3 @0x7
0x159c…15aa at0008 = ╱23╱#╱ // 0x15a4 @0x8
0x159c…15aa at0009 = ╱23╱#╱ // 0x15a5 @0x9
0x159c…15aa at000a = ╱22╱"╱ // 0x15a6 @0xa
0x159c…15aa at000b = ╱f0╱:╱ // 0x15a7 @0xb
0x159c…15aa at000c = ╱50╱P╱ // 0x15a8 @0xc
0x159c…15aa at000d = EOL // 0x15a9 @0xd
0x159c…15aa }
0x15aa…15be a315 2430 CURSOR 27,8
0x15aa…15be LineComalBin {
0x15aa…15be ptr = 0xa315 // 0x15aa @0x0
0x15aa…15be lno = 0x097e // 0x15ac @0x2
0x15aa…15be at0004 = ╱a1╱ CURSOR ╱ // 0x15ae @0x4
0x15aa…15be at0005 = ╱32╱2╱ // 0x15af @0x5
0x15aa…15be at0006 = ╱37╱7╱ // 0x15b0 @0x6
0x15aa…15be at0007 = ╱fe0000d805╱ // 0x15b1 @0x7
0x15aa…15be at000c = ╱ec╱,╱ // 0x15b6 @0xc
0x15aa…15be at000d = ╱38╱8╱ // 0x15b7 @0xd
0x15aa…15be at000e = ╱fe00008004╱ // 0x15b8 @0xe
0x15aa…15be at0013 = EOL // 0x15bd @0x13
0x15aa…15be }
0x15be…15c8 a31f 2440 IF P=B THEN
0x15be…15c8 LineComalBin {
0x15be…15c8 ptr = 0xa31f // 0x15be @0x0
0x15be…15c8 lno = 0x0988 // 0x15c0 @0x2
0x15be…15c8 at0004 = ╱9c╱ IF ╱ // 0x15c2 @0x4
0x15be…15c8 at0005 = ╱50╱P╱ // 0x15c3 @0x5
0x15be…15c8 at0006 = ╱dc╱=╱ // 0x15c4 @0x6
0x15be…15c8 at0007 = ╱42╱B╱ // 0x15c5 @0x7
0x15be…15c8 at0008 = ╱b6╱ THEN ╱ // 0x15c6 @0x8
0x15be…15c8 at0009 = EOL // 0x15c7 @0x9
0x15be…15c8 }
0x15c8…15d7 a32e 2450 PRINT "Danmark"
0x15c8…15d7 LineComalBin {
0x15c8…15d7 ptr = 0xa32e // 0x15c8 @0x0
0x15c8…15d7 lno = 0x0992 // 0x15ca @0x2
0x15c8…15d7 at0004 = ╱92╱ PRINT ╱ // 0x15cc @0x4
0x15c8…15d7 at0005 = ╱22╱"╱ // 0x15cd @0x5
0x15c8…15d7 at0006 = ╱44╱D╱ // 0x15ce @0x6
0x15c8…15d7 at0007 = ╱61╱a╱ // 0x15cf @0x7
0x15c8…15d7 at0008 = ╱6e╱n╱ // 0x15d0 @0x8
0x15c8…15d7 at0009 = ╱6d╱m╱ // 0x15d1 @0x9
0x15c8…15d7 at000a = ╱61╱a╱ // 0x15d2 @0xa
0x15c8…15d7 at000b = ╱72╱r╱ // 0x15d3 @0xb
0x15c8…15d7 at000c = ╱6b╱k╱ // 0x15d4 @0xc
0x15c8…15d7 at000d = ╱22╱"╱ // 0x15d5 @0xd
0x15c8…15d7 at000e = EOL // 0x15d6 @0xe
0x15c8…15d7 }
0x15d7…15dd a334 2460 ELSE
0x15d7…15dd LineComalBin {
0x15d7…15dd ptr = 0xa334 // 0x15d7 @0x0
0x15d7…15dd lno = 0x099c // 0x15d9 @0x2
0x15d7…15dd at0004 = ╱9a╱ ELSE ╱ // 0x15db @0x4
0x15d7…15dd at0005 = EOL // 0x15dc @0x5
0x15d7…15dd }
0x15dd…15eb a342 2470 PRINT LAND$(P)
0x15dd…15eb LineComalBin {
0x15dd…15eb ptr = 0xa342 // 0x15dd @0x0
0x15dd…15eb lno = 0x09a6 // 0x15df @0x2
0x15dd…15eb at0004 = ╱92╱ PRINT ╱ // 0x15e1 @0x4
0x15dd…15eb at0005 = ╱4c╱L╱ // 0x15e2 @0x5
0x15dd…15eb at0006 = ╱41╱A╱ // 0x15e3 @0x6
0x15dd…15eb at0007 = ╱4e╱N╱ // 0x15e4 @0x7
0x15dd…15eb at0008 = ╱44╱D╱ // 0x15e5 @0x8
0x15dd…15eb at0009 = ╱ef╱$╱ // 0x15e6 @0x9
0x15dd…15eb at000a = ╱ed╱(╱ // 0x15e7 @0xa
0x15dd…15eb at000b = ╱50╱P╱ // 0x15e8 @0xb
0x15dd…15eb at000c = ╱ee╱)╱ // 0x15e9 @0xc
0x15dd…15eb at000d = EOL // 0x15ea @0xd
0x15dd…15eb }
0x15eb…15f1 a348 2480 ENDIF
0x15eb…15f1 LineComalBin {
0x15eb…15f1 ptr = 0xa348 // 0x15eb @0x0
0x15eb…15f1 lno = 0x09b0 // 0x15ed @0x2
0x15eb…15f1 at0004 = ╱9b╱ ENDIF ╱ // 0x15ef @0x4
0x15eb…15f1 at0005 = EOL // 0x15f0 @0x5
0x15eb…15f1 }
0x15f1…15fe a355 2490 WHEN 7
0x15f1…15fe LineComalBin {
0x15f1…15fe ptr = 0xa355 // 0x15f1 @0x0
0x15f1…15fe lno = 0x09ba // 0x15f3 @0x2
0x15f1…15fe at0004 = ╱a301╱ WHEN ╱ // 0x15f5 @0x4
0x15f1…15fe at0006 = ╱37╱7╱ // 0x15f7 @0x6
0x15f1…15fe at0007 = ╱fe0000e003╱ // 0x15f8 @0x7
0x15f1…15fe at000c = EOL // 0x15fd @0xc
0x15f1…15fe }
0x15fe…160b a362 2500 IF CÆND<>E THEN
0x15fe…160b LineComalBin {
0x15fe…160b ptr = 0xa362 // 0x15fe @0x0
0x15fe…160b lno = 0x09c4 // 0x1600 @0x2
0x15fe…160b at0004 = ╱9c╱ IF ╱ // 0x1602 @0x4
0x15fe…160b at0005 = ╱43╱C╱ // 0x1603 @0x5
0x15fe…160b at0006 = ╱5b╱Æ╱ // 0x1604 @0x6
0x15fe…160b at0007 = ╱4e╱N╱ // 0x1605 @0x7
0x15fe…160b at0008 = ╱44╱D╱ // 0x1606 @0x8
0x15fe…160b at0009 = ╱e1╱<>╱ // 0x1607 @0x9
0x15fe…160b at000a = ╱45╱E╱ // 0x1608 @0xa
0x15fe…160b at000b = ╱b6╱ THEN ╱ // 0x1609 @0xb
0x15fe…160b at000c = EOL // 0x160a @0xc
0x15fe…160b }
0x160b…1614 a36b 2510 CURSOR G,W
0x160b…1614 LineComalBin {
0x160b…1614 ptr = 0xa36b // 0x160b @0x0
0x160b…1614 lno = 0x09ce // 0x160d @0x2
0x160b…1614 at0004 = ╱a1╱ CURSOR ╱ // 0x160f @0x4
0x160b…1614 at0005 = ╱47╱G╱ // 0x1610 @0x5
0x160b…1614 at0006 = ╱ec╱,╱ // 0x1611 @0x6
0x160b…1614 at0007 = ╱57╱W╱ // 0x1612 @0x7
0x160b…1614 at0008 = EOL // 0x1613 @0x8
0x160b…1614 }
0x1614…1629 a380 2520 PRINT "7:Telefon :"
0x1614…1629 LineComalBin {
0x1614…1629 ptr = 0xa380 // 0x1614 @0x0
0x1614…1629 lno = 0x09d8 // 0x1616 @0x2
0x1614…1629 at0004 = ╱92╱ PRINT ╱ // 0x1618 @0x4
0x1614…1629 at0005 = ╱22╱"╱ // 0x1619 @0x5
0x1614…1629 at0006 = ╱37╱7╱ // 0x161a @0x6
0x1614…1629 at0007 = ╱3a╱:╱ // 0x161b @0x7
0x1614…1629 at0008 = ╱54╱T╱ // 0x161c @0x8
0x1614…1629 at0009 = ╱65╱e╱ // 0x161d @0x9
0x1614…1629 at000a = ╱6c╱l╱ // 0x161e @0xa
0x1614…1629 at000b = ╱65╱e╱ // 0x161f @0xb
0x1614…1629 at000c = ╱66╱f╱ // 0x1620 @0xc
0x1614…1629 at000d = ╱6f╱o╱ // 0x1621 @0xd
0x1614…1629 at000e = ╱6e╱n╱ // 0x1622 @0xe
0x1614…1629 at000f = ╱20╱…╱ // 0x1623 @0xf
0x1614…1629 at0010 = ╱20╱…╱ // 0x1624 @0x10
0x1614…1629 at0011 = ╱20╱…╱ // 0x1625 @0x11
0x1614…1629 at0012 = ╱3a╱:╱ // 0x1626 @0x12
0x1614…1629 at0013 = ╱22╱"╱ // 0x1627 @0x13
0x1614…1629 at0014 = EOL // 0x1628 @0x14
0x1614…1629 }
0x1629…163a a391 2530 DSTYR=8
0x1629…163a LineComalBin {
0x1629…163a ptr = 0xa391 // 0x1629 @0x0
0x1629…163a lno = 0x09e2 // 0x162b @0x2
0x1629…163a at0004 = ╱44╱D╱ // 0x162d @0x4
0x1629…163a at0005 = ╱53╱S╱ // 0x162e @0x5
0x1629…163a at0006 = ╱54╱T╱ // 0x162f @0x6
0x1629…163a at0007 = ╱59╱Y╱ // 0x1630 @0x7
0x1629…163a at0008 = ╱52╱R╱ // 0x1631 @0x8
0x1629…163a at0009 = ╱dc╱=╱ // 0x1632 @0x9
0x1629…163a at000a = ╱38╱8╱ // 0x1633 @0xa
0x1629…163a at000b = ╱fe00008004╱ // 0x1634 @0xb
0x1629…163a at0010 = EOL // 0x1639 @0x10
0x1629…163a }
0x163a…1640 a397 2540 ENDIF
0x163a…1640 LineComalBin {
0x163a…1640 ptr = 0xa397 // 0x163a @0x0
0x163a…1640 lno = 0x09ec // 0x163c @0x2
0x163a…1640 at0004 = ╱9b╱ ENDIF ╱ // 0x163e @0x4
0x163a…1640 at0005 = EOL // 0x163f @0x5
0x163a…1640 }
0x1640…164d a3a4 2550 IF CÆND<>G THEN
0x1640…164d LineComalBin {
0x1640…164d ptr = 0xa3a4 // 0x1640 @0x0
0x1640…164d lno = 0x09f6 // 0x1642 @0x2
0x1640…164d at0004 = ╱9c╱ IF ╱ // 0x1644 @0x4
0x1640…164d at0005 = ╱43╱C╱ // 0x1645 @0x5
0x1640…164d at0006 = ╱5b╱Æ╱ // 0x1646 @0x6
0x1640…164d at0007 = ╱4e╱N╱ // 0x1647 @0x7
0x1640…164d at0008 = ╱44╱D╱ // 0x1648 @0x8
0x1640…164d at0009 = ╱e1╱<>╱ // 0x1649 @0x9
0x1640…164d at000a = ╱47╱G╱ // 0x164a @0xa
0x1640…164d at000b = ╱b6╱ THEN ╱ // 0x164b @0xb
0x1640…164d at000c = EOL // 0x164c @0xc
0x1640…164d }
0x164d…165c a3b3 2560 CURSOR V,23
0x164d…165c LineComalBin {
0x164d…165c ptr = 0xa3b3 // 0x164d @0x0
0x164d…165c lno = 0x0a00 // 0x164f @0x2
0x164d…165c at0004 = ╱a1╱ CURSOR ╱ // 0x1651 @0x4
0x164d…165c at0005 = ╱56╱V╱ // 0x1652 @0x5
0x164d…165c at0006 = ╱ec╱,╱ // 0x1653 @0x6
0x164d…165c at0007 = ╱32╱2╱ // 0x1654 @0x7
0x164d…165c at0008 = ╱33╱3╱ // 0x1655 @0x8
0x164d…165c at0009 = ╱fe0000b805╱ // 0x1656 @0x9
0x164d…165c at000e = EOL // 0x165b @0xe
0x164d…165c }
0x165c…169e a3f5 2570 PRINT "Telefon";BLANK$(E:14);"(max 9 tegn)";BLANK$(E:44)
0x165c…169e LineComalBin {
0x165c…169e ptr = 0xa3f5 // 0x165c @0x0
0x165c…169e lno = 0x0a0a // 0x165e @0x2
0x165c…169e at0004 = ╱92╱ PRINT ╱ // 0x1660 @0x4
0x165c…169e at0005 = ╱22╱"╱ // 0x1661 @0x5
0x165c…169e at0006 = ╱54╱T╱ // 0x1662 @0x6
0x165c…169e at0007 = ╱65╱e╱ // 0x1663 @0x7
0x165c…169e at0008 = ╱6c╱l╱ // 0x1664 @0x8
0x165c…169e at0009 = ╱65╱e╱ // 0x1665 @0x9
0x165c…169e at000a = ╱66╱f╱ // 0x1666 @0xa
0x165c…169e at000b = ╱6f╱o╱ // 0x1667 @0xb
0x165c…169e at000c = ╱6e╱n╱ // 0x1668 @0xc
0x165c…169e at000d = ╱22╱"╱ // 0x1669 @0xd
0x165c…169e at000e = ╱eb╱;╱ // 0x166a @0xe
0x165c…169e at000f = ╱42╱B╱ // 0x166b @0xf
0x165c…169e at0010 = ╱4c╱L╱ // 0x166c @0x10
0x165c…169e at0011 = ╱41╱A╱ // 0x166d @0x11
0x165c…169e at0012 = ╱4e╱N╱ // 0x166e @0x12
0x165c…169e at0013 = ╱4b╱K╱ // 0x166f @0x13
0x165c…169e at0014 = ╱ef╱$╱ // 0x1670 @0x14
0x165c…169e at0015 = ╱ed╱(╱ // 0x1671 @0x15
0x165c…169e at0016 = ╱45╱E╱ // 0x1672 @0x16
0x165c…169e at0017 = ╱f0╱:╱ // 0x1673 @0x17
0x165c…169e at0018 = ╱31╱1╱ // 0x1674 @0x18
0x165c…169e at0019 = ╱34╱4╱ // 0x1675 @0x19
0x165c…169e at001a = ╱fe0000e004╱ // 0x1676 @0x1a
0x165c…169e at001f = ╱ee╱)╱ // 0x167b @0x1f
0x165c…169e at0020 = ╱eb╱;╱ // 0x167c @0x20
0x165c…169e at0021 = ╱22╱"╱ // 0x167d @0x21
0x165c…169e at0022 = ╱28╱(╱ // 0x167e @0x22
0x165c…169e at0023 = ╱6d╱m╱ // 0x167f @0x23
0x165c…169e at0024 = ╱61╱a╱ // 0x1680 @0x24
0x165c…169e at0025 = ╱78╱x╱ // 0x1681 @0x25
0x165c…169e at0026 = ╱20╱…╱ // 0x1682 @0x26
0x165c…169e at0027 = ╱39╱9╱ // 0x1683 @0x27
0x165c…169e at0028 = ╱20╱…╱ // 0x1684 @0x28
0x165c…169e at0029 = ╱74╱t╱ // 0x1685 @0x29
0x165c…169e at002a = ╱65╱e╱ // 0x1686 @0x2a
0x165c…169e at002b = ╱67╱g╱ // 0x1687 @0x2b
0x165c…169e at002c = ╱6e╱n╱ // 0x1688 @0x2c
0x165c…169e at002d = ╱29╱)╱ // 0x1689 @0x2d
0x165c…169e at002e = ╱22╱"╱ // 0x168a @0x2e
0x165c…169e at002f = ╱eb╱;╱ // 0x168b @0x2f
0x165c…169e at0030 = ╱42╱B╱ // 0x168c @0x30
0x165c…169e at0031 = ╱4c╱L╱ // 0x168d @0x31
0x165c…169e at0032 = ╱41╱A╱ // 0x168e @0x32
0x165c…169e at0033 = ╱4e╱N╱ // 0x168f @0x33
0x165c…169e at0034 = ╱4b╱K╱ // 0x1690 @0x34
0x165c…169e at0035 = ╱ef╱$╱ // 0x1691 @0x35
0x165c…169e at0036 = ╱ed╱(╱ // 0x1692 @0x36
0x165c…169e at0037 = ╱45╱E╱ // 0x1693 @0x37
0x165c…169e at0038 = ╱f0╱:╱ // 0x1694 @0x38
0x165c…169e at0039 = ╱34╱4╱ // 0x1695 @0x39
0x165c…169e at003a = ╱34╱4╱ // 0x1696 @0x3a
0x165c…169e at003b = ╱fe0000b006╱ // 0x1697 @0x3b
0x165c…169e at0040 = ╱ee╱)╱ // 0x169c @0x40
0x165c…169e at0041 = EOL // 0x169d @0x41
0x165c…169e }
0x169e…16b3 a40a 2580 CURSOR 13,23
0x169e…16b3 LineComalBin {
0x169e…16b3 ptr = 0xa40a // 0x169e @0x0
0x169e…16b3 lno = 0x0a14 // 0x16a0 @0x2
0x169e…16b3 at0004 = ╱a1╱ CURSOR ╱ // 0x16a2 @0x4
0x169e…16b3 at0005 = ╱31╱1╱ // 0x16a3 @0x5
0x169e…16b3 at0006 = ╱33╱3╱ // 0x16a4 @0x6
0x169e…16b3 at0007 = ╱fe0000d004╱ // 0x16a5 @0x7
0x169e…16b3 at000c = ╱ec╱,╱ // 0x16aa @0xc
0x169e…16b3 at000d = ╱32╱2╱ // 0x16ab @0xd
0x169e…16b3 at000e = ╱33╱3╱ // 0x16ac @0xe
0x169e…16b3 at000f = ╱fe0000b805╱ // 0x16ad @0xf
0x169e…16b3 at0014 = EOL // 0x16b2 @0x14
0x169e…16b3 }
0x16b3…16c0 a417 2590 INPUT DEBTLF$
0x16b3…16c0 LineComalBin {
0x16b3…16c0 ptr = 0xa417 // 0x16b3 @0x0
0x16b3…16c0 lno = 0x0a1e // 0x16b5 @0x2
0x16b3…16c0 at0004 = ╱91╱ INPUT ╱ // 0x16b7 @0x4
0x16b3…16c0 at0005 = ╱44╱D╱ // 0x16b8 @0x5
0x16b3…16c0 at0006 = ╱45╱E╱ // 0x16b9 @0x6
0x16b3…16c0 at0007 = ╱42╱B╱ // 0x16ba @0x7
0x16b3…16c0 at0008 = ╱54╱T╱ // 0x16bb @0x8
0x16b3…16c0 at0009 = ╱4c╱L╱ // 0x16bc @0x9
0x16b3…16c0 at000a = ╱46╱F╱ // 0x16bd @0xa
0x16b3…16c0 at000b = ╱ef╱$╱ // 0x16be @0xb
0x16b3…16c0 at000c = EOL // 0x16bf @0xc
0x16b3…16c0 }
0x16c0…16c6 a41d 2600 ENDIF
0x16c0…16c6 LineComalBin {
0x16c0…16c6 ptr = 0xa41d // 0x16c0 @0x0
0x16c0…16c6 lno = 0x0a28 // 0x16c2 @0x2
0x16c0…16c6 at0004 = ╱9b╱ ENDIF ╱ // 0x16c4 @0x4
0x16c0…16c6 at0005 = EOL // 0x16c5 @0x5
0x16c0…16c6 }
0x16c6…16d5 a42c 2610 CURSOR 16,W
0x16c6…16d5 LineComalBin {
0x16c6…16d5 ptr = 0xa42c // 0x16c6 @0x0
0x16c6…16d5 lno = 0x0a32 // 0x16c8 @0x2
0x16c6…16d5 at0004 = ╱a1╱ CURSOR ╱ // 0x16ca @0x4
0x16c6…16d5 at0005 = ╱31╱1╱ // 0x16cb @0x5
0x16c6…16d5 at0006 = ╱36╱6╱ // 0x16cc @0x6
0x16c6…16d5 at0007 = ╱fe00008005╱ // 0x16cd @0x7
0x16c6…16d5 at000c = ╱ec╱,╱ // 0x16d2 @0xc
0x16c6…16d5 at000d = ╱57╱W╱ // 0x16d3 @0xd
0x16c6…16d5 at000e = EOL // 0x16d4 @0xe
0x16c6…16d5 }
0x16d5…16e6 a43d 2620 PRINT BLANK$(E:W)
0x16d5…16e6 LineComalBin {
0x16d5…16e6 ptr = 0xa43d // 0x16d5 @0x0
0x16d5…16e6 lno = 0x0a3c // 0x16d7 @0x2
0x16d5…16e6 at0004 = ╱92╱ PRINT ╱ // 0x16d9 @0x4
0x16d5…16e6 at0005 = ╱42╱B╱ // 0x16da @0x5
0x16d5…16e6 at0006 = ╱4c╱L╱ // 0x16db @0x6
0x16d5…16e6 at0007 = ╱41╱A╱ // 0x16dc @0x7
0x16d5…16e6 at0008 = ╱4e╱N╱ // 0x16dd @0x8
0x16d5…16e6 at0009 = ╱4b╱K╱ // 0x16de @0x9
0x16d5…16e6 at000a = ╱ef╱$╱ // 0x16df @0xa
0x16d5…16e6 at000b = ╱ed╱(╱ // 0x16e0 @0xb
0x16d5…16e6 at000c = ╱45╱E╱ // 0x16e1 @0xc
0x16d5…16e6 at000d = ╱f0╱:╱ // 0x16e2 @0xd
0x16d5…16e6 at000e = ╱57╱W╱ // 0x16e3 @0xe
0x16d5…16e6 at000f = ╱ee╱)╱ // 0x16e4 @0xf
0x16d5…16e6 at0010 = EOL // 0x16e5 @0x10
0x16d5…16e6 }
0x16e6…16f5 a44c 2630 CURSOR 16,W
0x16e6…16f5 LineComalBin {
0x16e6…16f5 ptr = 0xa44c // 0x16e6 @0x0
0x16e6…16f5 lno = 0x0a46 // 0x16e8 @0x2
0x16e6…16f5 at0004 = ╱a1╱ CURSOR ╱ // 0x16ea @0x4
0x16e6…16f5 at0005 = ╱31╱1╱ // 0x16eb @0x5
0x16e6…16f5 at0006 = ╱36╱6╱ // 0x16ec @0x6
0x16e6…16f5 at0007 = ╱fe00008005╱ // 0x16ed @0x7
0x16e6…16f5 at000c = ╱ec╱,╱ // 0x16f2 @0xc
0x16e6…16f5 at000d = ╱57╱W╱ // 0x16f3 @0xd
0x16e6…16f5 at000e = EOL // 0x16f4 @0xe
0x16e6…16f5 }
0x16f5…1702 a459 2640 PRINT DEBTLF$
0x16f5…1702 LineComalBin {
0x16f5…1702 ptr = 0xa459 // 0x16f5 @0x0
0x16f5…1702 lno = 0x0a50 // 0x16f7 @0x2
0x16f5…1702 at0004 = ╱92╱ PRINT ╱ // 0x16f9 @0x4
0x16f5…1702 at0005 = ╱44╱D╱ // 0x16fa @0x5
0x16f5…1702 at0006 = ╱45╱E╱ // 0x16fb @0x6
0x16f5…1702 at0007 = ╱42╱B╱ // 0x16fc @0x7
0x16f5…1702 at0008 = ╱54╱T╱ // 0x16fd @0x8
0x16f5…1702 at0009 = ╱4c╱L╱ // 0x16fe @0x9
0x16f5…1702 at000a = ╱46╱F╱ // 0x16ff @0xa
0x16f5…1702 at000b = ╱ef╱$╱ // 0x1700 @0xb
0x16f5…1702 at000c = EOL // 0x1701 @0xc
0x16f5…1702 }
0x1702…170f a466 2650 WHEN 8
0x1702…170f LineComalBin {
0x1702…170f ptr = 0xa466 // 0x1702 @0x0
0x1702…170f lno = 0x0a5a // 0x1704 @0x2
0x1702…170f at0004 = ╱a301╱ WHEN ╱ // 0x1706 @0x4
0x1702…170f at0006 = ╱38╱8╱ // 0x1708 @0x6
0x1702…170f at0007 = ╱fe00008004╱ // 0x1709 @0x7
0x1702…170f at000c = EOL // 0x170e @0xc
0x1702…170f }
0x170f…171c a473 2660 IF CÆND<>E THEN
0x170f…171c LineComalBin {
0x170f…171c ptr = 0xa473 // 0x170f @0x0
0x170f…171c lno = 0x0a64 // 0x1711 @0x2
0x170f…171c at0004 = ╱9c╱ IF ╱ // 0x1713 @0x4
0x170f…171c at0005 = ╱43╱C╱ // 0x1714 @0x5
0x170f…171c at0006 = ╱5b╱Æ╱ // 0x1715 @0x6
0x170f…171c at0007 = ╱4e╱N╱ // 0x1716 @0x7
0x170f…171c at0008 = ╱44╱D╱ // 0x1717 @0x8
0x170f…171c at0009 = ╱e1╱<>╱ // 0x1718 @0x9
0x170f…171c at000a = ╱45╱E╱ // 0x1719 @0xa
0x170f…171c at000b = ╱b6╱ THEN ╱ // 0x171a @0xb
0x170f…171c at000c = EOL // 0x171b @0xc
0x170f…171c }
0x171c…172b a482 2670 CURSOR G,10
0x171c…172b LineComalBin {
0x171c…172b ptr = 0xa482 // 0x171c @0x0
0x171c…172b lno = 0x0a6e // 0x171e @0x2
0x171c…172b at0004 = ╱a1╱ CURSOR ╱ // 0x1720 @0x4
0x171c…172b at0005 = ╱47╱G╱ // 0x1721 @0x5
0x171c…172b at0006 = ╱ec╱,╱ // 0x1722 @0x6
0x171c…172b at0007 = ╱31╱1╱ // 0x1723 @0x7
0x171c…172b at0008 = ╱30╱0╱ // 0x1724 @0x8
0x171c…172b at0009 = ╱fe0000a004╱ // 0x1725 @0x9
0x171c…172b at000e = EOL // 0x172a @0xe
0x171c…172b }
0x172b…1740 a497 2680 PRINT "8:Kundegr :"
0x172b…1740 LineComalBin {
0x172b…1740 ptr = 0xa497 // 0x172b @0x0
0x172b…1740 lno = 0x0a78 // 0x172d @0x2
0x172b…1740 at0004 = ╱92╱ PRINT ╱ // 0x172f @0x4
0x172b…1740 at0005 = ╱22╱"╱ // 0x1730 @0x5
0x172b…1740 at0006 = ╱38╱8╱ // 0x1731 @0x6
0x172b…1740 at0007 = ╱3a╱:╱ // 0x1732 @0x7
0x172b…1740 at0008 = ╱4b╱K╱ // 0x1733 @0x8
0x172b…1740 at0009 = ╱75╱u╱ // 0x1734 @0x9
0x172b…1740 at000a = ╱6e╱n╱ // 0x1735 @0xa
0x172b…1740 at000b = ╱64╱d╱ // 0x1736 @0xb
0x172b…1740 at000c = ╱65╱e╱ // 0x1737 @0xc
0x172b…1740 at000d = ╱67╱g╱ // 0x1738 @0xd
0x172b…1740 at000e = ╱72╱r╱ // 0x1739 @0xe
0x172b…1740 at000f = ╱20╱…╱ // 0x173a @0xf
0x172b…1740 at0010 = ╱20╱…╱ // 0x173b @0x10
0x172b…1740 at0011 = ╱20╱…╱ // 0x173c @0x11
0x172b…1740 at0012 = ╱3a╱:╱ // 0x173d @0x12
0x172b…1740 at0013 = ╱22╱"╱ // 0x173e @0x13
0x172b…1740 at0014 = EOL // 0x173f @0x14
0x172b…1740 }
0x1740…174c a4a3 2690 DSTYR=W
0x1740…174c LineComalBin {
0x1740…174c ptr = 0xa4a3 // 0x1740 @0x0
0x1740…174c lno = 0x0a82 // 0x1742 @0x2
0x1740…174c at0004 = ╱44╱D╱ // 0x1744 @0x4
0x1740…174c at0005 = ╱53╱S╱ // 0x1745 @0x5
0x1740…174c at0006 = ╱54╱T╱ // 0x1746 @0x6
0x1740…174c at0007 = ╱59╱Y╱ // 0x1747 @0x7
0x1740…174c at0008 = ╱52╱R╱ // 0x1748 @0x8
0x1740…174c at0009 = ╱dc╱=╱ // 0x1749 @0x9
0x1740…174c at000a = ╱57╱W╱ // 0x174a @0xa
0x1740…174c at000b = EOL // 0x174b @0xb
0x1740…174c }
0x174c…1752 a4a9 2700 ELSE
0x174c…1752 LineComalBin {
0x174c…1752 ptr = 0xa4a9 // 0x174c @0x0
0x174c…1752 lno = 0x0a8c // 0x174e @0x2
0x174c…1752 at0004 = ╱9a╱ ELSE ╱ // 0x1750 @0x4
0x174c…1752 at0005 = EOL // 0x1751 @0x5
0x174c…1752 }
0x1752…175f a4b6 2710 IF TYPE=G THEN
0x1752…175f LineComalBin {
0x1752…175f ptr = 0xa4b6 // 0x1752 @0x0
0x1752…175f lno = 0x0a96 // 0x1754 @0x2
0x1752…175f at0004 = ╱9c╱ IF ╱ // 0x1756 @0x4
0x1752…175f at0005 = ╱54╱T╱ // 0x1757 @0x5
0x1752…175f at0006 = ╱59╱Y╱ // 0x1758 @0x6
0x1752…175f at0007 = ╱50╱P╱ // 0x1759 @0x7
0x1752…175f at0008 = ╱45╱E╱ // 0x175a @0x8
0x1752…175f at0009 = ╱dc╱=╱ // 0x175b @0x9
0x1752…175f at000a = ╱47╱G╱ // 0x175c @0xa
0x1752…175f at000b = ╱b6╱ THEN ╱ // 0x175d @0xb
0x1752…175f at000c = EOL // 0x175e @0xc
0x1752…175f }
0x175f…1784 a4db 2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48)
0x175f…1784 LineComalBin {
0x175f…1784 ptr = 0xa4db // 0x175f @0x0
0x175f…1784 lno = 0x0aa0 // 0x1761 @0x2
0x175f…1784 at0004 = ╱9d╱ EXEC ╱ // 0x1763 @0x4
0x175f…1784 at0005 = ╱4b╱K╱ // 0x1764 @0x5
0x175f…1784 at0006 = ╱53╱S╱ // 0x1765 @0x6
0x175f…1784 at0007 = ╱5c╱Ø╱ // 0x1766 @0x7
0x175f…1784 at0008 = ╱47╱G╱ // 0x1767 @0x8
0x175f…1784 at0009 = ╱ed╱(╱ // 0x1768 @0x9
0x175f…1784 at000a = ╱44╱D╱ // 0x1769 @0xa
0x175f…1784 at000b = ╱45╱E╱ // 0x176a @0xb
0x175f…1784 at000c = ╱42╱B╱ // 0x176b @0xc
0x175f…1784 at000d = ╱4e╱N╱ // 0x176c @0xd
0x175f…1784 at000e = ╱52╱R╱ // 0x176d @0xe
0x175f…1784 at000f = ╱32╱2╱ // 0x176e @0xf
0x175f…1784 at0010 = ╱ec╱,╱ // 0x176f @0x10
0x175f…1784 at0011 = ╱cd╱ORD╱ // 0x1770 @0x11
0x175f…1784 at0012 = ╱ed╱(╱ // 0x1771 @0x12
0x175f…1784 at0013 = ╱44╱D╱ // 0x1772 @0x13
0x175f…1784 at0014 = ╱45╱E╱ // 0x1773 @0x14
0x175f…1784 at0015 = ╱42╱B╱ // 0x1774 @0x15
0x175f…1784 at0016 = ╱4b╱K╱ // 0x1775 @0x16
0x175f…1784 at0017 = ╱47╱G╱ // 0x1776 @0x17
0x175f…1784 at0018 = ╱52╱R╱ // 0x1777 @0x18
0x175f…1784 at0019 = ╱ef╱$╱ // 0x1778 @0x19
0x175f…1784 at001a = ╱ee╱)╱ // 0x1779 @0x1a
0x175f…1784 at001b = ╱e3╱-╱ // 0x177a @0x1b
0x175f…1784 at001c = ╱34╱4╱ // 0x177b @0x1c
0x175f…1784 at001d = ╱38╱8╱ // 0x177c @0x1d
0x175f…1784 at001e = ╱fe0000c006╱ // 0x177d @0x1e
0x175f…1784 at0023 = ╱ee╱)╱ // 0x1782 @0x23
0x175f…1784 at0024 = EOL // 0x1783 @0x24
0x175f…1784 }
0x1784…179a a4f1 2730 EXEC KINDSLET(0)
0x1784…179a LineComalBin {
0x1784…179a ptr = 0xa4f1 // 0x1784 @0x0
0x1784…179a lno = 0x0aaa // 0x1786 @0x2
0x1784…179a at0004 = ╱9d╱ EXEC ╱ // 0x1788 @0x4
0x1784…179a at0005 = ╱4b╱K╱ // 0x1789 @0x5
0x1784…179a at0006 = ╱49╱I╱ // 0x178a @0x6
0x1784…179a at0007 = ╱4e╱N╱ // 0x178b @0x7
0x1784…179a at0008 = ╱44╱D╱ // 0x178c @0x8
0x1784…179a at0009 = ╱53╱S╱ // 0x178d @0x9
0x1784…179a at000a = ╱4c╱L╱ // 0x178e @0xa
0x1784…179a at000b = ╱45╱E╱ // 0x178f @0xb
0x1784…179a at000c = ╱54╱T╱ // 0x1790 @0xc
0x1784…179a at000d = ╱ed╱(╱ // 0x1791 @0xd
0x1784…179a at000e = ╱30╱0╱ // 0x1792 @0xe
0x1784…179a at000f = ╱fe00000000╱ // 0x1793 @0xf
0x1784…179a at0014 = ╱ee╱)╱ // 0x1798 @0x14
0x1784…179a at0015 = EOL // 0x1799 @0x15
0x1784…179a }
0x179a…17a0 a4f7 2740 ENDIF
0x179a…17a0 LineComalBin {
0x179a…17a0 ptr = 0xa4f7 // 0x179a @0x0
0x179a…17a0 lno = 0x0ab4 // 0x179c @0x2
0x179a…17a0 at0004 = ╱9b╱ ENDIF ╱ // 0x179e @0x4
0x179a…17a0 at0005 = EOL // 0x179f @0x5
0x179a…17a0 }
0x17a0…17a6 a4fd 2750 ENDIF
0x17a0…17a6 LineComalBin {
0x17a0…17a6 ptr = 0xa4fd // 0x17a0 @0x0
0x17a0…17a6 lno = 0x0abe // 0x17a2 @0x2
0x17a0…17a6 at0004 = ╱9b╱ ENDIF ╱ // 0x17a4 @0x4
0x17a0…17a6 at0005 = EOL // 0x17a5 @0x5
0x17a0…17a6 }
0x17a6…17b3 a50a 2760 IF CÆND<>G THEN
0x17a6…17b3 LineComalBin {
0x17a6…17b3 ptr = 0xa50a // 0x17a6 @0x0
0x17a6…17b3 lno = 0x0ac8 // 0x17a8 @0x2
0x17a6…17b3 at0004 = ╱9c╱ IF ╱ // 0x17aa @0x4
0x17a6…17b3 at0005 = ╱43╱C╱ // 0x17ab @0x5
0x17a6…17b3 at0006 = ╱5b╱Æ╱ // 0x17ac @0x6
0x17a6…17b3 at0007 = ╱4e╱N╱ // 0x17ad @0x7
0x17a6…17b3 at0008 = ╱44╱D╱ // 0x17ae @0x8
0x17a6…17b3 at0009 = ╱e1╱<>╱ // 0x17af @0x9
0x17a6…17b3 at000a = ╱47╱G╱ // 0x17b0 @0xa
0x17a6…17b3 at000b = ╱b6╱ THEN ╱ // 0x17b1 @0xb
0x17a6…17b3 at000c = EOL // 0x17b2 @0xc
0x17a6…17b3 }
0x17b3…17b9 a510 2770 REPEAT
0x17b3…17b9 LineComalBin {
0x17b3…17b9 ptr = 0xa510 // 0x17b3 @0x0
0x17b3…17b9 lno = 0x0ad2 // 0x17b5 @0x2
0x17b3…17b9 at0004 = ╱97╱ REPEAT ╱ // 0x17b7 @0x4
0x17b3…17b9 at0005 = EOL // 0x17b8 @0x5
0x17b3…17b9 }
0x17b9…17c8 a51f 2780 CURSOR V,23
0x17b9…17c8 LineComalBin {
0x17b9…17c8 ptr = 0xa51f // 0x17b9 @0x0
0x17b9…17c8 lno = 0x0adc // 0x17bb @0x2
0x17b9…17c8 at0004 = ╱a1╱ CURSOR ╱ // 0x17bd @0x4
0x17b9…17c8 at0005 = ╱56╱V╱ // 0x17be @0x5
0x17b9…17c8 at0006 = ╱ec╱,╱ // 0x17bf @0x6
0x17b9…17c8 at0007 = ╱32╱2╱ // 0x17c0 @0x7
0x17b9…17c8 at0008 = ╱33╱3╱ // 0x17c1 @0x8
0x17b9…17c8 at0009 = ╱fe0000b805╱ // 0x17c2 @0x9
0x17b9…17c8 at000e = EOL // 0x17c7 @0xe
0x17b9…17c8 }
0x17c8…17fe a555 2790 PRINT "Kundegr (max 2 cifre)";BLANK$(E:49)
0x17c8…17fe LineComalBin {
0x17c8…17fe ptr = 0xa555 // 0x17c8 @0x0
0x17c8…17fe lno = 0x0ae6 // 0x17ca @0x2
0x17c8…17fe at0004 = ╱92╱ PRINT ╱ // 0x17cc @0x4
0x17c8…17fe at0005 = ╱22╱"╱ // 0x17cd @0x5
0x17c8…17fe at0006 = ╱4b╱K╱ // 0x17ce @0x6
0x17c8…17fe at0007 = ╱75╱u╱ // 0x17cf @0x7
0x17c8…17fe at0008 = ╱6e╱n╱ // 0x17d0 @0x8
0x17c8…17fe at0009 = ╱64╱d╱ // 0x17d1 @0x9
0x17c8…17fe at000a = ╱65╱e╱ // 0x17d2 @0xa
0x17c8…17fe at000b = ╱67╱g╱ // 0x17d3 @0xb
0x17c8…17fe at000c = ╱72╱r╱ // 0x17d4 @0xc
0x17c8…17fe at000d = ╱20╱…╱ // 0x17d5 @0xd
0x17c8…17fe at000e = ╱20╱…╱ // 0x17d6 @0xe
0x17c8…17fe at000f = ╱20╱…╱ // 0x17d7 @0xf
0x17c8…17fe at0010 = ╱20╱…╱ // 0x17d8 @0x10
0x17c8…17fe at0011 = ╱20╱…╱ // 0x17d9 @0x11
0x17c8…17fe at0012 = ╱20╱…╱ // 0x17da @0x12
0x17c8…17fe at0013 = ╱20╱…╱ // 0x17db @0x13
0x17c8…17fe at0014 = ╱20╱…╱ // 0x17dc @0x14
0x17c8…17fe at0015 = ╱28╱(╱ // 0x17dd @0x15
0x17c8…17fe at0016 = ╱6d╱m╱ // 0x17de @0x16
0x17c8…17fe at0017 = ╱61╱a╱ // 0x17df @0x17
0x17c8…17fe at0018 = ╱78╱x╱ // 0x17e0 @0x18
0x17c8…17fe at0019 = ╱20╱…╱ // 0x17e1 @0x19
0x17c8…17fe at001a = ╱32╱2╱ // 0x17e2 @0x1a
0x17c8…17fe at001b = ╱20╱…╱ // 0x17e3 @0x1b
0x17c8…17fe at001c = ╱63╱c╱ // 0x17e4 @0x1c
0x17c8…17fe at001d = ╱69╱i╱ // 0x17e5 @0x1d
0x17c8…17fe at001e = ╱66╱f╱ // 0x17e6 @0x1e
0x17c8…17fe at001f = ╱72╱r╱ // 0x17e7 @0x1f
0x17c8…17fe at0020 = ╱65╱e╱ // 0x17e8 @0x20
0x17c8…17fe at0021 = ╱29╱)╱ // 0x17e9 @0x21
0x17c8…17fe at0022 = ╱22╱"╱ // 0x17ea @0x22
0x17c8…17fe at0023 = ╱eb╱;╱ // 0x17eb @0x23
0x17c8…17fe at0024 = ╱42╱B╱ // 0x17ec @0x24
0x17c8…17fe at0025 = ╱4c╱L╱ // 0x17ed @0x25
0x17c8…17fe at0026 = ╱41╱A╱ // 0x17ee @0x26
0x17c8…17fe at0027 = ╱4e╱N╱ // 0x17ef @0x27
0x17c8…17fe at0028 = ╱4b╱K╱ // 0x17f0 @0x28
0x17c8…17fe at0029 = ╱ef╱$╱ // 0x17f1 @0x29
0x17c8…17fe at002a = ╱ed╱(╱ // 0x17f2 @0x2a
0x17c8…17fe at002b = ╱45╱E╱ // 0x17f3 @0x2b
0x17c8…17fe at002c = ╱f0╱:╱ // 0x17f4 @0x2c
0x17c8…17fe at002d = ╱34╱4╱ // 0x17f5 @0x2d
0x17c8…17fe at002e = ╱39╱9╱ // 0x17f6 @0x2e
0x17c8…17fe at002f = ╱fe0000c406╱ // 0x17f7 @0x2f
0x17c8…17fe at0034 = ╱ee╱)╱ // 0x17fc @0x34
0x17c8…17fe at0035 = EOL // 0x17fd @0x35
0x17c8…17fe }
0x17fe…1813 a56a 2800 CURSOR 13,23
0x17fe…1813 LineComalBin {
0x17fe…1813 ptr = 0xa56a // 0x17fe @0x0
0x17fe…1813 lno = 0x0af0 // 0x1800 @0x2
0x17fe…1813 at0004 = ╱a1╱ CURSOR ╱ // 0x1802 @0x4
0x17fe…1813 at0005 = ╱31╱1╱ // 0x1803 @0x5
0x17fe…1813 at0006 = ╱33╱3╱ // 0x1804 @0x6
0x17fe…1813 at0007 = ╱fe0000d004╱ // 0x1805 @0x7
0x17fe…1813 at000c = ╱ec╱,╱ // 0x180a @0xc
0x17fe…1813 at000d = ╱32╱2╱ // 0x180b @0xd
0x17fe…1813 at000e = ╱33╱3╱ // 0x180c @0xe
0x17fe…1813 at000f = ╱fe0000b805╱ // 0x180d @0xf
0x17fe…1813 at0014 = EOL // 0x1812 @0x14
0x17fe…1813 }
0x1813…181c a573 2810 INPUT KG$
0x1813…181c LineComalBin {
0x1813…181c ptr = 0xa573 // 0x1813 @0x0
0x1813…181c lno = 0x0afa // 0x1815 @0x2
0x1813…181c at0004 = ╱91╱ INPUT ╱ // 0x1817 @0x4
0x1813…181c at0005 = ╱4b╱K╱ // 0x1818 @0x5
0x1813…181c at0006 = ╱47╱G╱ // 0x1819 @0x6
0x1813…181c at0007 = ╱ef╱$╱ // 0x181a @0x7
0x1813…181c at0008 = EOL // 0x181b @0x8
0x1813…181c }
0x181c…182d a584 2820 EXEC NRTEST(KG$)
0x181c…182d LineComalBin {
0x181c…182d ptr = 0xa584 // 0x181c @0x0
0x181c…182d lno = 0x0b04 // 0x181e @0x2
0x181c…182d at0004 = ╱9d╱ EXEC ╱ // 0x1820 @0x4
0x181c…182d at0005 = ╱4e╱N╱ // 0x1821 @0x5
0x181c…182d at0006 = ╱52╱R╱ // 0x1822 @0x6
0x181c…182d at0007 = ╱54╱T╱ // 0x1823 @0x7
0x181c…182d at0008 = ╱45╱E╱ // 0x1824 @0x8
0x181c…182d at0009 = ╱53╱S╱ // 0x1825 @0x9
0x181c…182d at000a = ╱54╱T╱ // 0x1826 @0xa
0x181c…182d at000b = ╱ed╱(╱ // 0x1827 @0xb
0x181c…182d at000c = ╱4b╱K╱ // 0x1828 @0xc
0x181c…182d at000d = ╱47╱G╱ // 0x1829 @0xd
0x181c…182d at000e = ╱ef╱$╱ // 0x182a @0xe
0x181c…182d at000f = ╱ee╱)╱ // 0x182b @0xf
0x181c…182d at0010 = EOL // 0x182c @0x10
0x181c…182d }
0x182d…1855 a5ac 2830 UNTIL (P>B AND TEST2=B AND P<=MKGR) OR (P=-E AND CÆND=E)
0x182d…1855 LineComalBin {
0x182d…1855 ptr = 0xa5ac // 0x182d @0x0
0x182d…1855 lno = 0x0b0e // 0x182f @0x2
0x182d…1855 at0004 = ╱98╱ UNTIL ╱ // 0x1831 @0x4
0x182d…1855 at0005 = ╱ed╱(╱ // 0x1832 @0x5
0x182d…1855 at0006 = ╱50╱P╱ // 0x1833 @0x6
0x182d…1855 at0007 = ╱de╱>╱ // 0x1834 @0x7
0x182d…1855 at0008 = ╱42╱B╱ // 0x1835 @0x8
0x182d…1855 at0009 = ╱da╱ AND ╱ // 0x1836 @0x9
0x182d…1855 at000a = ╱54╱T╱ // 0x1837 @0xa
0x182d…1855 at000b = ╱45╱E╱ // 0x1838 @0xb
0x182d…1855 at000c = ╱53╱S╱ // 0x1839 @0xc
0x182d…1855 at000d = ╱54╱T╱ // 0x183a @0xd
0x182d…1855 at000e = ╱32╱2╱ // 0x183b @0xe
0x182d…1855 at000f = ╱dc╱=╱ // 0x183c @0xf
0x182d…1855 at0010 = ╱42╱B╱ // 0x183d @0x10
0x182d…1855 at0011 = ╱da╱ AND ╱ // 0x183e @0x11
0x182d…1855 at0012 = ╱50╱P╱ // 0x183f @0x12
0x182d…1855 at0013 = ╱df╱<=╱ // 0x1840 @0x13
0x182d…1855 at0014 = ╱4d╱M╱ // 0x1841 @0x14
0x182d…1855 at0015 = ╱4b╱K╱ // 0x1842 @0x15
0x182d…1855 at0016 = ╱47╱G╱ // 0x1843 @0x16
0x182d…1855 at0017 = ╱52╱R╱ // 0x1844 @0x17
0x182d…1855 at0018 = ╱ee╱)╱ // 0x1845 @0x18
0x182d…1855 at0019 = ╱db╱ OR ╱ // 0x1846 @0x19
0x182d…1855 at001a = ╱ed╱(╱ // 0x1847 @0x1a
0x182d…1855 at001b = ╱50╱P╱ // 0x1848 @0x1b
0x182d…1855 at001c = ╱dc╱=╱ // 0x1849 @0x1c
0x182d…1855 at001d = ╱e9╱-╱ // 0x184a @0x1d
0x182d…1855 at001e = ╱45╱E╱ // 0x184b @0x1e
0x182d…1855 at001f = ╱da╱ AND ╱ // 0x184c @0x1f
0x182d…1855 at0020 = ╱43╱C╱ // 0x184d @0x20
0x182d…1855 at0021 = ╱5b╱Æ╱ // 0x184e @0x21
0x182d…1855 at0022 = ╱4e╱N╱ // 0x184f @0x22
0x182d…1855 at0023 = ╱44╱D╱ // 0x1850 @0x23
0x182d…1855 at0024 = ╱dc╱=╱ // 0x1851 @0x24
0x182d…1855 at0025 = ╱45╱E╱ // 0x1852 @0x25
0x182d…1855 at0026 = ╱ee╱)╱ // 0x1853 @0x26
0x182d…1855 at0027 = EOL // 0x1854 @0x27
0x182d…1855 }
0x1855…185b a5b2 2840 ENDIF
0x1855…185b LineComalBin {
0x1855…185b ptr = 0xa5b2 // 0x1855 @0x0
0x1855…185b lno = 0x0b18 // 0x1857 @0x2
0x1855…185b at0004 = ╱9b╱ ENDIF ╱ // 0x1859 @0x4
0x1855…185b at0005 = EOL // 0x185a @0x5
0x1855…185b }
0x185b…1870 a5c7 2850 CURSOR 16,10
0x185b…1870 LineComalBin {
0x185b…1870 ptr = 0xa5c7 // 0x185b @0x0
0x185b…1870 lno = 0x0b22 // 0x185d @0x2
0x185b…1870 at0004 = ╱a1╱ CURSOR ╱ // 0x185f @0x4
0x185b…1870 at0005 = ╱31╱1╱ // 0x1860 @0x5
0x185b…1870 at0006 = ╱36╱6╱ // 0x1861 @0x6
0x185b…1870 at0007 = ╱fe00008005╱ // 0x1862 @0x7
0x185b…1870 at000c = ╱ec╱,╱ // 0x1867 @0xc
0x185b…1870 at000d = ╱31╱1╱ // 0x1868 @0xd
0x185b…1870 at000e = ╱30╱0╱ // 0x1869 @0xe
0x185b…1870 at000f = ╱fe0000a004╱ // 0x186a @0xf
0x185b…1870 at0014 = EOL // 0x186f @0x14
0x185b…1870 }
0x1870…1881 a5d8 2860 IF P>B AND CÆND<>G THEN
0x1870…1881 LineComalBin {
0x1870…1881 ptr = 0xa5d8 // 0x1870 @0x0
0x1870…1881 lno = 0x0b2c // 0x1872 @0x2
0x1870…1881 at0004 = ╱9c╱ IF ╱ // 0x1874 @0x4
0x1870…1881 at0005 = ╱50╱P╱ // 0x1875 @0x5
0x1870…1881 at0006 = ╱de╱>╱ // 0x1876 @0x6
0x1870…1881 at0007 = ╱42╱B╱ // 0x1877 @0x7
0x1870…1881 at0008 = ╱da╱ AND ╱ // 0x1878 @0x8
0x1870…1881 at0009 = ╱43╱C╱ // 0x1879 @0x9
0x1870…1881 at000a = ╱5b╱Æ╱ // 0x187a @0xa
0x1870…1881 at000b = ╱4e╱N╱ // 0x187b @0xb
0x1870…1881 at000c = ╱44╱D╱ // 0x187c @0xc
0x1870…1881 at000d = ╱e1╱<>╱ // 0x187d @0xd
0x1870…1881 at000e = ╱47╱G╱ // 0x187e @0xe
0x1870…1881 at000f = ╱b6╱ THEN ╱ // 0x187f @0xf
0x1870…1881 at0010 = EOL // 0x1880 @0x10
0x1870…1881 }
0x1881…189a a5f1 2870 DEBKGR$=CHR(P+48)
0x1881…189a LineComalBin {
0x1881…189a ptr = 0xa5f1 // 0x1881 @0x0
0x1881…189a lno = 0x0b36 // 0x1883 @0x2
0x1881…189a at0004 = ╱44╱D╱ // 0x1885 @0x4
0x1881…189a at0005 = ╱45╱E╱ // 0x1886 @0x5
0x1881…189a at0006 = ╱42╱B╱ // 0x1887 @0x6
0x1881…189a at0007 = ╱4b╱K╱ // 0x1888 @0x7
0x1881…189a at0008 = ╱47╱G╱ // 0x1889 @0x8
0x1881…189a at0009 = ╱52╱R╱ // 0x188a @0x9
0x1881…189a at000a = ╱ef╱$╱ // 0x188b @0xa
0x1881…189a at000b = ╱dc╱=╱ // 0x188c @0xb
0x1881…189a at000c = ╱cf╱CHR╱ // 0x188d @0xc
0x1881…189a at000d = ╱ed╱(╱ // 0x188e @0xd
0x1881…189a at000e = ╱50╱P╱ // 0x188f @0xe
0x1881…189a at000f = ╱e2╱+╱ // 0x1890 @0xf
0x1881…189a at0010 = ╱34╱4╱ // 0x1891 @0x10
0x1881…189a at0011 = ╱38╱8╱ // 0x1892 @0x11
0x1881…189a at0012 = ╱fe0000c006╱ // 0x1893 @0x12
0x1881…189a at0017 = ╱ee╱)╱ // 0x1898 @0x17
0x1881…189a at0018 = EOL // 0x1899 @0x18
0x1881…189a }
0x189a…18a0 a5f7 2880 ENDIF
0x189a…18a0 LineComalBin {
0x189a…18a0 ptr = 0xa5f7 // 0x189a @0x0
0x189a…18a0 lno = 0x0b40 // 0x189c @0x2
0x189a…18a0 at0004 = ╱9b╱ ENDIF ╱ // 0x189e @0x4
0x189a…18a0 at0005 = EOL // 0x189f @0x5
0x189a…18a0 }
0x18a0…18c2 a619 2890 PRINT USING "###":INT(ORD(DEBKGR$)-48)
0x18a0…18c2 LineComalBin {
0x18a0…18c2 ptr = 0xa619 // 0x18a0 @0x0
0x18a0…18c2 lno = 0x0b4a // 0x18a2 @0x2
0x18a0…18c2 at0004 = ╱92╱ PRINT ╱ // 0x18a4 @0x4
0x18a0…18c2 at0005 = ╱b9╱ USING ╱ // 0x18a5 @0x5
0x18a0…18c2 at0006 = ╱22╱"╱ // 0x18a6 @0x6
0x18a0…18c2 at0007 = ╱23╱#╱ // 0x18a7 @0x7
0x18a0…18c2 at0008 = ╱23╱#╱ // 0x18a8 @0x8
0x18a0…18c2 at0009 = ╱23╱#╱ // 0x18a9 @0x9
0x18a0…18c2 at000a = ╱22╱"╱ // 0x18aa @0xa
0x18a0…18c2 at000b = ╱f0╱:╱ // 0x18ab @0xb
0x18a0…18c2 at000c = ╱c6╱INT╱ // 0x18ac @0xc
0x18a0…18c2 at000d = ╱ed╱(╱ // 0x18ad @0xd
0x18a0…18c2 at000e = ╱cd╱ORD╱ // 0x18ae @0xe
0x18a0…18c2 at000f = ╱ed╱(╱ // 0x18af @0xf
0x18a0…18c2 at0010 = ╱44╱D╱ // 0x18b0 @0x10
0x18a0…18c2 at0011 = ╱45╱E╱ // 0x18b1 @0x11
0x18a0…18c2 at0012 = ╱42╱B╱ // 0x18b2 @0x12
0x18a0…18c2 at0013 = ╱4b╱K╱ // 0x18b3 @0x13
0x18a0…18c2 at0014 = ╱47╱G╱ // 0x18b4 @0x14
0x18a0…18c2 at0015 = ╱52╱R╱ // 0x18b5 @0x15
0x18a0…18c2 at0016 = ╱ef╱$╱ // 0x18b6 @0x16
0x18a0…18c2 at0017 = ╱ee╱)╱ // 0x18b7 @0x17
0x18a0…18c2 at0018 = ╱e3╱-╱ // 0x18b8 @0x18
0x18a0…18c2 at0019 = ╱34╱4╱ // 0x18b9 @0x19
0x18a0…18c2 at001a = ╱38╱8╱ // 0x18ba @0x1a
0x18a0…18c2 at001b = ╱fe0000c006╱ // 0x18bb @0x1b
0x18a0…18c2 at0020 = ╱ee╱)╱ // 0x18c0 @0x20
0x18a0…18c2 at0021 = EOL // 0x18c1 @0x21
0x18a0…18c2 }
0x18c2…18d6 a62d 2900 IF CÆND=E AND TYPE=G THEN
0x18c2…18d6 LineComalBin {
0x18c2…18d6 ptr = 0xa62d // 0x18c2 @0x0
0x18c2…18d6 lno = 0x0b54 // 0x18c4 @0x2
0x18c2…18d6 at0004 = ╱9c╱ IF ╱ // 0x18c6 @0x4
0x18c2…18d6 at0005 = ╱43╱C╱ // 0x18c7 @0x5
0x18c2…18d6 at0006 = ╱5b╱Æ╱ // 0x18c8 @0x6
0x18c2…18d6 at0007 = ╱4e╱N╱ // 0x18c9 @0x7
0x18c2…18d6 at0008 = ╱44╱D╱ // 0x18ca @0x8
0x18c2…18d6 at0009 = ╱dc╱=╱ // 0x18cb @0x9
0x18c2…18d6 at000a = ╱45╱E╱ // 0x18cc @0xa
0x18c2…18d6 at000b = ╱da╱ AND ╱ // 0x18cd @0xb
0x18c2…18d6 at000c = ╱54╱T╱ // 0x18ce @0xc
0x18c2…18d6 at000d = ╱59╱Y╱ // 0x18cf @0xd
0x18c2…18d6 at000e = ╱50╱P╱ // 0x18d0 @0xe
0x18c2…18d6 at000f = ╱45╱E╱ // 0x18d1 @0xf
0x18c2…18d6 at0010 = ╱dc╱=╱ // 0x18d2 @0x10
0x18c2…18d6 at0011 = ╱47╱G╱ // 0x18d3 @0x11
0x18c2…18d6 at0012 = ╱b6╱ THEN ╱ // 0x18d4 @0x12
0x18c2…18d6 at0013 = EOL // 0x18d5 @0x13
0x18c2…18d6 }
0x18d6…18fb a652 2910 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48)
0x18d6…18fb LineComalBin {
0x18d6…18fb ptr = 0xa652 // 0x18d6 @0x0
0x18d6…18fb lno = 0x0b5e // 0x18d8 @0x2
0x18d6…18fb at0004 = ╱9d╱ EXEC ╱ // 0x18da @0x4
0x18d6…18fb at0005 = ╱4b╱K╱ // 0x18db @0x5
0x18d6…18fb at0006 = ╱53╱S╱ // 0x18dc @0x6
0x18d6…18fb at0007 = ╱5c╱Ø╱ // 0x18dd @0x7
0x18d6…18fb at0008 = ╱47╱G╱ // 0x18de @0x8
0x18d6…18fb at0009 = ╱ed╱(╱ // 0x18df @0x9
0x18d6…18fb at000a = ╱44╱D╱ // 0x18e0 @0xa
0x18d6…18fb at000b = ╱45╱E╱ // 0x18e1 @0xb
0x18d6…18fb at000c = ╱42╱B╱ // 0x18e2 @0xc
0x18d6…18fb at000d = ╱4e╱N╱ // 0x18e3 @0xd
0x18d6…18fb at000e = ╱52╱R╱ // 0x18e4 @0xe
0x18d6…18fb at000f = ╱32╱2╱ // 0x18e5 @0xf
0x18d6…18fb at0010 = ╱ec╱,╱ // 0x18e6 @0x10
0x18d6…18fb at0011 = ╱cd╱ORD╱ // 0x18e7 @0x11
0x18d6…18fb at0012 = ╱ed╱(╱ // 0x18e8 @0x12
0x18d6…18fb at0013 = ╱44╱D╱ // 0x18e9 @0x13
0x18d6…18fb at0014 = ╱45╱E╱ // 0x18ea @0x14
0x18d6…18fb at0015 = ╱42╱B╱ // 0x18eb @0x15
0x18d6…18fb at0016 = ╱4b╱K╱ // 0x18ec @0x16
0x18d6…18fb at0017 = ╱47╱G╱ // 0x18ed @0x17
0x18d6…18fb at0018 = ╱52╱R╱ // 0x18ee @0x18
0x18d6…18fb at0019 = ╱ef╱$╱ // 0x18ef @0x19
0x18d6…18fb at001a = ╱ee╱)╱ // 0x18f0 @0x1a
0x18d6…18fb at001b = ╱e3╱-╱ // 0x18f1 @0x1b
0x18d6…18fb at001c = ╱34╱4╱ // 0x18f2 @0x1c
0x18d6…18fb at001d = ╱38╱8╱ // 0x18f3 @0x1d
0x18d6…18fb at001e = ╱fe0000c006╱ // 0x18f4 @0x1e
0x18d6…18fb at0023 = ╱ee╱)╱ // 0x18f9 @0x23
0x18d6…18fb at0024 = EOL // 0x18fa @0x24
0x18d6…18fb }
0x18fb…1911 a668 2920 EXEC KINDSLET(1)
0x18fb…1911 LineComalBin {
0x18fb…1911 ptr = 0xa668 // 0x18fb @0x0
0x18fb…1911 lno = 0x0b68 // 0x18fd @0x2
0x18fb…1911 at0004 = ╱9d╱ EXEC ╱ // 0x18ff @0x4
0x18fb…1911 at0005 = ╱4b╱K╱ // 0x1900 @0x5
0x18fb…1911 at0006 = ╱49╱I╱ // 0x1901 @0x6
0x18fb…1911 at0007 = ╱4e╱N╱ // 0x1902 @0x7
0x18fb…1911 at0008 = ╱44╱D╱ // 0x1903 @0x8
0x18fb…1911 at0009 = ╱53╱S╱ // 0x1904 @0x9
0x18fb…1911 at000a = ╱4c╱L╱ // 0x1905 @0xa
0x18fb…1911 at000b = ╱45╱E╱ // 0x1906 @0xb
0x18fb…1911 at000c = ╱54╱T╱ // 0x1907 @0xc
0x18fb…1911 at000d = ╱ed╱(╱ // 0x1908 @0xd
0x18fb…1911 at000e = ╱31╱1╱ // 0x1909 @0xe
0x18fb…1911 at000f = ╱fe00008001╱ // 0x190a @0xf
0x18fb…1911 at0014 = ╱ee╱)╱ // 0x190f @0x14
0x18fb…1911 at0015 = EOL // 0x1910 @0x15
0x18fb…1911 }
0x1911…1917 a66e 2930 ENDIF
0x1911…1917 LineComalBin {
0x1911…1917 ptr = 0xa66e // 0x1911 @0x0
0x1911…1917 lno = 0x0b72 // 0x1913 @0x2
0x1911…1917 at0004 = ╱9b╱ ENDIF ╱ // 0x1915 @0x4
0x1911…1917 at0005 = EOL // 0x1916 @0x5
0x1911…1917 }
0x1917…191d a674 2940 ENDCASE
0x1917…191d LineComalBin {
0x1917…191d ptr = 0xa674 // 0x1917 @0x0
0x1917…191d lno = 0x0b7c // 0x1919 @0x2
0x1917…191d at0004 = ╱a4╱ ENDCASE ╱ // 0x191b @0x4
0x1917…191d at0005 = EOL // 0x191c @0x5
0x1917…191d }
0x191d…192a a681 2950 IF CÆND=E THEN
0x191d…192a LineComalBin {
0x191d…192a ptr = 0xa681 // 0x191d @0x0
0x191d…192a lno = 0x0b86 // 0x191f @0x2
0x191d…192a at0004 = ╱9c╱ IF ╱ // 0x1921 @0x4
0x191d…192a at0005 = ╱43╱C╱ // 0x1922 @0x5
0x191d…192a at0006 = ╱5b╱Æ╱ // 0x1923 @0x6
0x191d…192a at0007 = ╱4e╱N╱ // 0x1924 @0x7
0x191d…192a at0008 = ╱44╱D╱ // 0x1925 @0x8
0x191d…192a at0009 = ╱dc╱=╱ // 0x1926 @0x9
0x191d…192a at000a = ╱45╱E╱ // 0x1927 @0xa
0x191d…192a at000b = ╱b6╱ THEN ╱ // 0x1928 @0xb
0x191d…192a at000c = EOL // 0x1929 @0xc
0x191d…192a }
0x192a…1936 a68d 2960 DSTYR=W
0x192a…1936 LineComalBin {
0x192a…1936 ptr = 0xa68d // 0x192a @0x0
0x192a…1936 lno = 0x0b90 // 0x192c @0x2
0x192a…1936 at0004 = ╱44╱D╱ // 0x192e @0x4
0x192a…1936 at0005 = ╱53╱S╱ // 0x192f @0x5
0x192a…1936 at0006 = ╱54╱T╱ // 0x1930 @0x6
0x192a…1936 at0007 = ╱59╱Y╱ // 0x1931 @0x7
0x192a…1936 at0008 = ╱52╱R╱ // 0x1932 @0x8
0x192a…1936 at0009 = ╱dc╱=╱ // 0x1933 @0x9
0x192a…1936 at000a = ╱57╱W╱ // 0x1934 @0xa
0x192a…1936 at000b = EOL // 0x1935 @0xb
0x192a…1936 }
0x1936…193c a693 2970 ENDIF
0x1936…193c LineComalBin {
0x1936…193c ptr = 0xa693 // 0x1936 @0x0
0x1936…193c lno = 0x0b9a // 0x1938 @0x2
0x1936…193c at0004 = ╱9b╱ ENDIF ╱ // 0x193a @0x4
0x1936…193c at0005 = EOL // 0x193b @0x5
0x1936…193c }
0x193c…1949 a6a0 2980 UNTIL DSTYR=W
0x193c…1949 LineComalBin {
0x193c…1949 ptr = 0xa6a0 // 0x193c @0x0
0x193c…1949 lno = 0x0ba4 // 0x193e @0x2
0x193c…1949 at0004 = ╱98╱ UNTIL ╱ // 0x1940 @0x4
0x193c…1949 at0005 = ╱44╱D╱ // 0x1941 @0x5
0x193c…1949 at0006 = ╱53╱S╱ // 0x1942 @0x6
0x193c…1949 at0007 = ╱54╱T╱ // 0x1943 @0x7
0x193c…1949 at0008 = ╱59╱Y╱ // 0x1944 @0x8
0x193c…1949 at0009 = ╱52╱R╱ // 0x1945 @0x9
0x193c…1949 at000a = ╱dc╱=╱ // 0x1946 @0xa
0x193c…1949 at000b = ╱57╱W╱ // 0x1947 @0xb
0x193c…1949 at000c = EOL // 0x1948 @0xc
0x193c…1949 }
0x1949…1956 a6ad 2990 IF CÆND<>E THEN
0x1949…1956 LineComalBin {
0x1949…1956 ptr = 0xa6ad // 0x1949 @0x0
0x1949…1956 lno = 0x0bae // 0x194b @0x2
0x1949…1956 at0004 = ╱9c╱ IF ╱ // 0x194d @0x4
0x1949…1956 at0005 = ╱43╱C╱ // 0x194e @0x5
0x1949…1956 at0006 = ╱5b╱Æ╱ // 0x194f @0x6
0x1949…1956 at0007 = ╱4e╱N╱ // 0x1950 @0x7
0x1949…1956 at0008 = ╱44╱D╱ // 0x1951 @0x8
0x1949…1956 at0009 = ╱e1╱<>╱ // 0x1952 @0x9
0x1949…1956 at000a = ╱45╱E╱ // 0x1953 @0xa
0x1949…1956 at000b = ╱b6╱ THEN ╱ // 0x1954 @0xb
0x1949…1956 at000c = EOL // 0x1955 @0xc
0x1949…1956 }
0x1956…197d a6d4 3000 EXEC CALC(B,DSALDO1$,DSALDO2$,DSALDI$)
0x1956…197d LineComalBin {
0x1956…197d ptr = 0xa6d4 // 0x1956 @0x0
0x1956…197d lno = 0x0bb8 // 0x1958 @0x2
0x1956…197d at0004 = ╱9d╱ EXEC ╱ // 0x195a @0x4
0x1956…197d at0005 = ╱43╱C╱ // 0x195b @0x5
0x1956…197d at0006 = ╱41╱A╱ // 0x195c @0x6
0x1956…197d at0007 = ╱4c╱L╱ // 0x195d @0x7
0x1956…197d at0008 = ╱43╱C╱ // 0x195e @0x8
0x1956…197d at0009 = ╱ed╱(╱ // 0x195f @0x9
0x1956…197d at000a = ╱42╱B╱ // 0x1960 @0xa
0x1956…197d at000b = ╱ec╱,╱ // 0x1961 @0xb
0x1956…197d at000c = ╱44╱D╱ // 0x1962 @0xc
0x1956…197d at000d = ╱53╱S╱ // 0x1963 @0xd
0x1956…197d at000e = ╱41╱A╱ // 0x1964 @0xe
0x1956…197d at000f = ╱4c╱L╱ // 0x1965 @0xf
0x1956…197d at0010 = ╱44╱D╱ // 0x1966 @0x10
0x1956…197d at0011 = ╱4f╱O╱ // 0x1967 @0x11
0x1956…197d at0012 = ╱31╱1╱ // 0x1968 @0x12
0x1956…197d at0013 = ╱ef╱$╱ // 0x1969 @0x13
0x1956…197d at0014 = ╱ec╱,╱ // 0x196a @0x14
0x1956…197d at0015 = ╱44╱D╱ // 0x196b @0x15
0x1956…197d at0016 = ╱53╱S╱ // 0x196c @0x16
0x1956…197d at0017 = ╱41╱A╱ // 0x196d @0x17
0x1956…197d at0018 = ╱4c╱L╱ // 0x196e @0x18
0x1956…197d at0019 = ╱44╱D╱ // 0x196f @0x19
0x1956…197d at001a = ╱4f╱O╱ // 0x1970 @0x1a
0x1956…197d at001b = ╱32╱2╱ // 0x1971 @0x1b
0x1956…197d at001c = ╱ef╱$╱ // 0x1972 @0x1c
0x1956…197d at001d = ╱ec╱,╱ // 0x1973 @0x1d
0x1956…197d at001e = ╱44╱D╱ // 0x1974 @0x1e
0x1956…197d at001f = ╱53╱S╱ // 0x1975 @0x1f
0x1956…197d at0020 = ╱41╱A╱ // 0x1976 @0x20
0x1956…197d at0021 = ╱4c╱L╱ // 0x1977 @0x21
0x1956…197d at0022 = ╱44╱D╱ // 0x1978 @0x22
0x1956…197d at0023 = ╱49╱I╱ // 0x1979 @0x23
0x1956…197d at0024 = ╱ef╱$╱ // 0x197a @0x24
0x1956…197d at0025 = ╱ee╱)╱ // 0x197b @0x25
0x1956…197d at0026 = EOL // 0x197c @0x26
0x1956…197d }
0x197d…19a3 a6fa 3010 EXEC CALC(B,DSALDI$,DSALDO3$,DSALDI$)
0x197d…19a3 LineComalBin {
0x197d…19a3 ptr = 0xa6fa // 0x197d @0x0
0x197d…19a3 lno = 0x0bc2 // 0x197f @0x2
0x197d…19a3 at0004 = ╱9d╱ EXEC ╱ // 0x1981 @0x4
0x197d…19a3 at0005 = ╱43╱C╱ // 0x1982 @0x5
0x197d…19a3 at0006 = ╱41╱A╱ // 0x1983 @0x6
0x197d…19a3 at0007 = ╱4c╱L╱ // 0x1984 @0x7
0x197d…19a3 at0008 = ╱43╱C╱ // 0x1985 @0x8
0x197d…19a3 at0009 = ╱ed╱(╱ // 0x1986 @0x9
0x197d…19a3 at000a = ╱42╱B╱ // 0x1987 @0xa
0x197d…19a3 at000b = ╱ec╱,╱ // 0x1988 @0xb
0x197d…19a3 at000c = ╱44╱D╱ // 0x1989 @0xc
0x197d…19a3 at000d = ╱53╱S╱ // 0x198a @0xd
0x197d…19a3 at000e = ╱41╱A╱ // 0x198b @0xe
0x197d…19a3 at000f = ╱4c╱L╱ // 0x198c @0xf
0x197d…19a3 at0010 = ╱44╱D╱ // 0x198d @0x10
0x197d…19a3 at0011 = ╱49╱I╱ // 0x198e @0x11
0x197d…19a3 at0012 = ╱ef╱$╱ // 0x198f @0x12
0x197d…19a3 at0013 = ╱ec╱,╱ // 0x1990 @0x13
0x197d…19a3 at0014 = ╱44╱D╱ // 0x1991 @0x14
0x197d…19a3 at0015 = ╱53╱S╱ // 0x1992 @0x15
0x197d…19a3 at0016 = ╱41╱A╱ // 0x1993 @0x16
0x197d…19a3 at0017 = ╱4c╱L╱ // 0x1994 @0x17
0x197d…19a3 at0018 = ╱44╱D╱ // 0x1995 @0x18
0x197d…19a3 at0019 = ╱4f╱O╱ // 0x1996 @0x19
0x197d…19a3 at001a = ╱33╱3╱ // 0x1997 @0x1a
0x197d…19a3 at001b = ╱ef╱$╱ // 0x1998 @0x1b
0x197d…19a3 at001c = ╱ec╱,╱ // 0x1999 @0x1c
0x197d…19a3 at001d = ╱44╱D╱ // 0x199a @0x1d
0x197d…19a3 at001e = ╱53╱S╱ // 0x199b @0x1e
0x197d…19a3 at001f = ╱41╱A╱ // 0x199c @0x1f
0x197d…19a3 at0020 = ╱4c╱L╱ // 0x199d @0x20
0x197d…19a3 at0021 = ╱44╱D╱ // 0x199e @0x21
0x197d…19a3 at0022 = ╱49╱I╱ // 0x199f @0x22
0x197d…19a3 at0023 = ╱ef╱$╱ // 0x19a0 @0x23
0x197d…19a3 at0024 = ╱ee╱)╱ // 0x19a1 @0x24
0x197d…19a3 at0025 = EOL // 0x19a2 @0x25
0x197d…19a3 }
0x19a3…19c9 a720 3020 EXEC CALC(B,DSALDI$,DSALDO4$,DSALDI$)
0x19a3…19c9 LineComalBin {
0x19a3…19c9 ptr = 0xa720 // 0x19a3 @0x0
0x19a3…19c9 lno = 0x0bcc // 0x19a5 @0x2
0x19a3…19c9 at0004 = ╱9d╱ EXEC ╱ // 0x19a7 @0x4
0x19a3…19c9 at0005 = ╱43╱C╱ // 0x19a8 @0x5
0x19a3…19c9 at0006 = ╱41╱A╱ // 0x19a9 @0x6
0x19a3…19c9 at0007 = ╱4c╱L╱ // 0x19aa @0x7
0x19a3…19c9 at0008 = ╱43╱C╱ // 0x19ab @0x8
0x19a3…19c9 at0009 = ╱ed╱(╱ // 0x19ac @0x9
0x19a3…19c9 at000a = ╱42╱B╱ // 0x19ad @0xa
0x19a3…19c9 at000b = ╱ec╱,╱ // 0x19ae @0xb
0x19a3…19c9 at000c = ╱44╱D╱ // 0x19af @0xc
0x19a3…19c9 at000d = ╱53╱S╱ // 0x19b0 @0xd
0x19a3…19c9 at000e = ╱41╱A╱ // 0x19b1 @0xe
0x19a3…19c9 at000f = ╱4c╱L╱ // 0x19b2 @0xf
0x19a3…19c9 at0010 = ╱44╱D╱ // 0x19b3 @0x10
0x19a3…19c9 at0011 = ╱49╱I╱ // 0x19b4 @0x11
0x19a3…19c9 at0012 = ╱ef╱$╱ // 0x19b5 @0x12
0x19a3…19c9 at0013 = ╱ec╱,╱ // 0x19b6 @0x13
0x19a3…19c9 at0014 = ╱44╱D╱ // 0x19b7 @0x14
0x19a3…19c9 at0015 = ╱53╱S╱ // 0x19b8 @0x15
0x19a3…19c9 at0016 = ╱41╱A╱ // 0x19b9 @0x16
0x19a3…19c9 at0017 = ╱4c╱L╱ // 0x19ba @0x17
0x19a3…19c9 at0018 = ╱44╱D╱ // 0x19bb @0x18
0x19a3…19c9 at0019 = ╱4f╱O╱ // 0x19bc @0x19
0x19a3…19c9 at001a = ╱34╱4╱ // 0x19bd @0x1a
0x19a3…19c9 at001b = ╱ef╱$╱ // 0x19be @0x1b
0x19a3…19c9 at001c = ╱ec╱,╱ // 0x19bf @0x1c
0x19a3…19c9 at001d = ╱44╱D╱ // 0x19c0 @0x1d
0x19a3…19c9 at001e = ╱53╱S╱ // 0x19c1 @0x1e
0x19a3…19c9 at001f = ╱41╱A╱ // 0x19c2 @0x1f
0x19a3…19c9 at0020 = ╱4c╱L╱ // 0x19c3 @0x20
0x19a3…19c9 at0021 = ╱44╱D╱ // 0x19c4 @0x21
0x19a3…19c9 at0022 = ╱49╱I╱ // 0x19c5 @0x22
0x19a3…19c9 at0023 = ╱ef╱$╱ // 0x19c6 @0x23
0x19a3…19c9 at0024 = ╱ee╱)╱ // 0x19c7 @0x24
0x19a3…19c9 at0025 = EOL // 0x19c8 @0x25
0x19a3…19c9 }
0x19c9…19dd a734 3030 CURSOR 4,12
0x19c9…19dd LineComalBin {
0x19c9…19dd ptr = 0xa734 // 0x19c9 @0x0
0x19c9…19dd lno = 0x0bd6 // 0x19cb @0x2
0x19c9…19dd at0004 = ╱a1╱ CURSOR ╱ // 0x19cd @0x4
0x19c9…19dd at0005 = ╱34╱4╱ // 0x19ce @0x5
0x19c9…19dd at0006 = ╱fe00008003╱ // 0x19cf @0x6
0x19c9…19dd at000b = ╱ec╱,╱ // 0x19d4 @0xb
0x19c9…19dd at000c = ╱31╱1╱ // 0x19d5 @0xc
0x19c9…19dd at000d = ╱32╱2╱ // 0x19d6 @0xd
0x19c9…19dd at000e = ╱fe0000c004╱ // 0x19d7 @0xe
0x19c9…19dd at0013 = EOL // 0x19dc @0x13
0x19c9…19dd }
0x19dd…19f1 a748 3040 PRINT "Saldo :"
0x19dd…19f1 LineComalBin {
0x19dd…19f1 ptr = 0xa748 // 0x19dd @0x0
0x19dd…19f1 lno = 0x0be0 // 0x19df @0x2
0x19dd…19f1 at0004 = ╱92╱ PRINT ╱ // 0x19e1 @0x4
0x19dd…19f1 at0005 = ╱22╱"╱ // 0x19e2 @0x5
0x19dd…19f1 at0006 = ╱53╱S╱ // 0x19e3 @0x6
0x19dd…19f1 at0007 = ╱61╱a╱ // 0x19e4 @0x7
0x19dd…19f1 at0008 = ╱6c╱l╱ // 0x19e5 @0x8
0x19dd…19f1 at0009 = ╱64╱d╱ // 0x19e6 @0x9
0x19dd…19f1 at000a = ╱6f╱o╱ // 0x19e7 @0xa
0x19dd…19f1 at000b = ╱20╱…╱ // 0x19e8 @0xb
0x19dd…19f1 at000c = ╱20╱…╱ // 0x19e9 @0xc
0x19dd…19f1 at000d = ╱20╱…╱ // 0x19ea @0xd
0x19dd…19f1 at000e = ╱20╱…╱ // 0x19eb @0xe
0x19dd…19f1 at000f = ╱20╱…╱ // 0x19ec @0xf
0x19dd…19f1 at0010 = ╱20╱…╱ // 0x19ed @0x10
0x19dd…19f1 at0011 = ╱3a╱:╱ // 0x19ee @0x11
0x19dd…19f1 at0012 = ╱22╱"╱ // 0x19ef @0x12
0x19dd…19f1 at0013 = EOL // 0x19f0 @0x13
0x19dd…19f1 }
0x19f1…1a06 a75d 3050 CURSOR 17,12
0x19f1…1a06 LineComalBin {
0x19f1…1a06 ptr = 0xa75d // 0x19f1 @0x0
0x19f1…1a06 lno = 0x0bea // 0x19f3 @0x2
0x19f1…1a06 at0004 = ╱a1╱ CURSOR ╱ // 0x19f5 @0x4
0x19f1…1a06 at0005 = ╱31╱1╱ // 0x19f6 @0x5
0x19f1…1a06 at0006 = ╱37╱7╱ // 0x19f7 @0x6
0x19f1…1a06 at0007 = ╱fe00008805╱ // 0x19f8 @0x7
0x19f1…1a06 at000c = ╱ec╱,╱ // 0x19fd @0xc
0x19f1…1a06 at000d = ╱31╱1╱ // 0x19fe @0xd
0x19f1…1a06 at000e = ╱32╱2╱ // 0x19ff @0xe
0x19f1…1a06 at000f = ╱fe0000c004╱ // 0x1a00 @0xf
0x19f1…1a06 at0014 = EOL // 0x1a05 @0x14
0x19f1…1a06 }
0x1a06…1a22 a779 3060 EXEC TUD(DSALDI$,TAL4$,E,B)
0x1a06…1a22 LineComalBin {
0x1a06…1a22 ptr = 0xa779 // 0x1a06 @0x0
0x1a06…1a22 lno = 0x0bf4 // 0x1a08 @0x2
0x1a06…1a22 at0004 = ╱9d╱ EXEC ╱ // 0x1a0a @0x4
0x1a06…1a22 at0005 = ╱54╱T╱ // 0x1a0b @0x5
0x1a06…1a22 at0006 = ╱55╱U╱ // 0x1a0c @0x6
0x1a06…1a22 at0007 = ╱44╱D╱ // 0x1a0d @0x7
0x1a06…1a22 at0008 = ╱ed╱(╱ // 0x1a0e @0x8
0x1a06…1a22 at0009 = ╱44╱D╱ // 0x1a0f @0x9
0x1a06…1a22 at000a = ╱53╱S╱ // 0x1a10 @0xa
0x1a06…1a22 at000b = ╱41╱A╱ // 0x1a11 @0xb
0x1a06…1a22 at000c = ╱4c╱L╱ // 0x1a12 @0xc
0x1a06…1a22 at000d = ╱44╱D╱ // 0x1a13 @0xd
0x1a06…1a22 at000e = ╱49╱I╱ // 0x1a14 @0xe
0x1a06…1a22 at000f = ╱ef╱$╱ // 0x1a15 @0xf
0x1a06…1a22 at0010 = ╱ec╱,╱ // 0x1a16 @0x10
0x1a06…1a22 at0011 = ╱54╱T╱ // 0x1a17 @0x11
0x1a06…1a22 at0012 = ╱41╱A╱ // 0x1a18 @0x12
0x1a06…1a22 at0013 = ╱4c╱L╱ // 0x1a19 @0x13
0x1a06…1a22 at0014 = ╱34╱4╱ // 0x1a1a @0x14
0x1a06…1a22 at0015 = ╱ef╱$╱ // 0x1a1b @0x15
0x1a06…1a22 at0016 = ╱ec╱,╱ // 0x1a1c @0x16
0x1a06…1a22 at0017 = ╱45╱E╱ // 0x1a1d @0x17
0x1a06…1a22 at0018 = ╱ec╱,╱ // 0x1a1e @0x18
0x1a06…1a22 at0019 = ╱42╱B╱ // 0x1a1f @0x19
0x1a06…1a22 at001a = ╱ee╱)╱ // 0x1a20 @0x1a
0x1a06…1a22 at001b = EOL // 0x1a21 @0x1b
0x1a06…1a22 }
0x1a22…1a2d a784 3070 PRINT TAL4$
0x1a22…1a2d LineComalBin {
0x1a22…1a2d ptr = 0xa784 // 0x1a22 @0x0
0x1a22…1a2d lno = 0x0bfe // 0x1a24 @0x2
0x1a22…1a2d at0004 = ╱92╱ PRINT ╱ // 0x1a26 @0x4
0x1a22…1a2d at0005 = ╱54╱T╱ // 0x1a27 @0x5
0x1a22…1a2d at0006 = ╱41╱A╱ // 0x1a28 @0x6
0x1a22…1a2d at0007 = ╱4c╱L╱ // 0x1a29 @0x7
0x1a22…1a2d at0008 = ╱34╱4╱ // 0x1a2a @0x8
0x1a22…1a2d at0009 = ╱ef╱$╱ // 0x1a2b @0x9
0x1a22…1a2d at000a = EOL // 0x1a2c @0xa
0x1a22…1a2d }
0x1a2d…1a41 a798 3080 CURSOR 4,14
0x1a2d…1a41 LineComalBin {
0x1a2d…1a41 ptr = 0xa798 // 0x1a2d @0x0
0x1a2d…1a41 lno = 0x0c08 // 0x1a2f @0x2
0x1a2d…1a41 at0004 = ╱a1╱ CURSOR ╱ // 0x1a31 @0x4
0x1a2d…1a41 at0005 = ╱34╱4╱ // 0x1a32 @0x5
0x1a2d…1a41 at0006 = ╱fe00008003╱ // 0x1a33 @0x6
0x1a2d…1a41 at000b = ╱ec╱,╱ // 0x1a38 @0xb
0x1a2d…1a41 at000c = ╱31╱1╱ // 0x1a39 @0xc
0x1a2d…1a41 at000d = ╱34╱4╱ // 0x1a3a @0xd
0x1a2d…1a41 at000e = ╱fe0000e004╱ // 0x1a3b @0xe
0x1a2d…1a41 at0013 = EOL // 0x1a40 @0x13
0x1a2d…1a41 }
0x1a41…1a55 a7ac 3090 PRINT " 0-30 Dage :"
0x1a41…1a55 LineComalBin {
0x1a41…1a55 ptr = 0xa7ac // 0x1a41 @0x0
0x1a41…1a55 lno = 0x0c12 // 0x1a43 @0x2
0x1a41…1a55 at0004 = ╱92╱ PRINT ╱ // 0x1a45 @0x4
0x1a41…1a55 at0005 = ╱22╱"╱ // 0x1a46 @0x5
0x1a41…1a55 at0006 = ╱20╱…╱ // 0x1a47 @0x6
0x1a41…1a55 at0007 = ╱30╱0╱ // 0x1a48 @0x7
0x1a41…1a55 at0008 = ╱2d╱-╱ // 0x1a49 @0x8
0x1a41…1a55 at0009 = ╱33╱3╱ // 0x1a4a @0x9
0x1a41…1a55 at000a = ╱30╱0╱ // 0x1a4b @0xa
0x1a41…1a55 at000b = ╱20╱…╱ // 0x1a4c @0xb
0x1a41…1a55 at000c = ╱44╱D╱ // 0x1a4d @0xc
0x1a41…1a55 at000d = ╱61╱a╱ // 0x1a4e @0xd
0x1a41…1a55 at000e = ╱67╱g╱ // 0x1a4f @0xe
0x1a41…1a55 at000f = ╱65╱e╱ // 0x1a50 @0xf
0x1a41…1a55 at0010 = ╱20╱…╱ // 0x1a51 @0x10
0x1a41…1a55 at0011 = ╱3a╱:╱ // 0x1a52 @0x11
0x1a41…1a55 at0012 = ╱22╱"╱ // 0x1a53 @0x12
0x1a41…1a55 at0013 = EOL // 0x1a54 @0x13
0x1a41…1a55 }
0x1a55…1a6a a7c1 3100 CURSOR 17,14
0x1a55…1a6a LineComalBin {
0x1a55…1a6a ptr = 0xa7c1 // 0x1a55 @0x0
0x1a55…1a6a lno = 0x0c1c // 0x1a57 @0x2
0x1a55…1a6a at0004 = ╱a1╱ CURSOR ╱ // 0x1a59 @0x4
0x1a55…1a6a at0005 = ╱31╱1╱ // 0x1a5a @0x5
0x1a55…1a6a at0006 = ╱37╱7╱ // 0x1a5b @0x6
0x1a55…1a6a at0007 = ╱fe00008805╱ // 0x1a5c @0x7
0x1a55…1a6a at000c = ╱ec╱,╱ // 0x1a61 @0xc
0x1a55…1a6a at000d = ╱31╱1╱ // 0x1a62 @0xd
0x1a55…1a6a at000e = ╱34╱4╱ // 0x1a63 @0xe
0x1a55…1a6a at000f = ╱fe0000e004╱ // 0x1a64 @0xf
0x1a55…1a6a at0014 = EOL // 0x1a69 @0x14
0x1a55…1a6a }
0x1a6a…1a87 a7de 3110 EXEC TUD(DSALDO1$,TAL4$,E,B)
0x1a6a…1a87 LineComalBin {
0x1a6a…1a87 ptr = 0xa7de // 0x1a6a @0x0
0x1a6a…1a87 lno = 0x0c26 // 0x1a6c @0x2
0x1a6a…1a87 at0004 = ╱9d╱ EXEC ╱ // 0x1a6e @0x4
0x1a6a…1a87 at0005 = ╱54╱T╱ // 0x1a6f @0x5
0x1a6a…1a87 at0006 = ╱55╱U╱ // 0x1a70 @0x6
0x1a6a…1a87 at0007 = ╱44╱D╱ // 0x1a71 @0x7
0x1a6a…1a87 at0008 = ╱ed╱(╱ // 0x1a72 @0x8
0x1a6a…1a87 at0009 = ╱44╱D╱ // 0x1a73 @0x9
0x1a6a…1a87 at000a = ╱53╱S╱ // 0x1a74 @0xa
0x1a6a…1a87 at000b = ╱41╱A╱ // 0x1a75 @0xb
0x1a6a…1a87 at000c = ╱4c╱L╱ // 0x1a76 @0xc
0x1a6a…1a87 at000d = ╱44╱D╱ // 0x1a77 @0xd
0x1a6a…1a87 at000e = ╱4f╱O╱ // 0x1a78 @0xe
0x1a6a…1a87 at000f = ╱31╱1╱ // 0x1a79 @0xf
0x1a6a…1a87 at0010 = ╱ef╱$╱ // 0x1a7a @0x10
0x1a6a…1a87 at0011 = ╱ec╱,╱ // 0x1a7b @0x11
0x1a6a…1a87 at0012 = ╱54╱T╱ // 0x1a7c @0x12
0x1a6a…1a87 at0013 = ╱41╱A╱ // 0x1a7d @0x13
0x1a6a…1a87 at0014 = ╱4c╱L╱ // 0x1a7e @0x14
0x1a6a…1a87 at0015 = ╱34╱4╱ // 0x1a7f @0x15
0x1a6a…1a87 at0016 = ╱ef╱$╱ // 0x1a80 @0x16
0x1a6a…1a87 at0017 = ╱ec╱,╱ // 0x1a81 @0x17
0x1a6a…1a87 at0018 = ╱45╱E╱ // 0x1a82 @0x18
0x1a6a…1a87 at0019 = ╱ec╱,╱ // 0x1a83 @0x19
0x1a6a…1a87 at001a = ╱42╱B╱ // 0x1a84 @0x1a
0x1a6a…1a87 at001b = ╱ee╱)╱ // 0x1a85 @0x1b
0x1a6a…1a87 at001c = EOL // 0x1a86 @0x1c
0x1a6a…1a87 }
0x1a87…1a92 a7e9 3120 PRINT TAL4$
0x1a87…1a92 LineComalBin {
0x1a87…1a92 ptr = 0xa7e9 // 0x1a87 @0x0
0x1a87…1a92 lno = 0x0c30 // 0x1a89 @0x2
0x1a87…1a92 at0004 = ╱92╱ PRINT ╱ // 0x1a8b @0x4
0x1a87…1a92 at0005 = ╱54╱T╱ // 0x1a8c @0x5
0x1a87…1a92 at0006 = ╱41╱A╱ // 0x1a8d @0x6
0x1a87…1a92 at0007 = ╱4c╱L╱ // 0x1a8e @0x7
0x1a87…1a92 at0008 = ╱34╱4╱ // 0x1a8f @0x8
0x1a87…1a92 at0009 = ╱ef╱$╱ // 0x1a90 @0x9
0x1a87…1a92 at000a = EOL // 0x1a91 @0xa
0x1a87…1a92 }
0x1a92…1aa6 a7fd 3130 CURSOR 4,16
0x1a92…1aa6 LineComalBin {
0x1a92…1aa6 ptr = 0xa7fd // 0x1a92 @0x0
0x1a92…1aa6 lno = 0x0c3a // 0x1a94 @0x2
0x1a92…1aa6 at0004 = ╱a1╱ CURSOR ╱ // 0x1a96 @0x4
0x1a92…1aa6 at0005 = ╱34╱4╱ // 0x1a97 @0x5
0x1a92…1aa6 at0006 = ╱fe00008003╱ // 0x1a98 @0x6
0x1a92…1aa6 at000b = ╱ec╱,╱ // 0x1a9d @0xb
0x1a92…1aa6 at000c = ╱31╱1╱ // 0x1a9e @0xc
0x1a92…1aa6 at000d = ╱36╱6╱ // 0x1a9f @0xd
0x1a92…1aa6 at000e = ╱fe00008005╱ // 0x1aa0 @0xe
0x1a92…1aa6 at0013 = EOL // 0x1aa5 @0x13
0x1a92…1aa6 }
0x1aa6…1aba a811 3140 PRINT "30-60 Dage :"
0x1aa6…1aba LineComalBin {
0x1aa6…1aba ptr = 0xa811 // 0x1aa6 @0x0
0x1aa6…1aba lno = 0x0c44 // 0x1aa8 @0x2
0x1aa6…1aba at0004 = ╱92╱ PRINT ╱ // 0x1aaa @0x4
0x1aa6…1aba at0005 = ╱22╱"╱ // 0x1aab @0x5
0x1aa6…1aba at0006 = ╱33╱3╱ // 0x1aac @0x6
0x1aa6…1aba at0007 = ╱30╱0╱ // 0x1aad @0x7
0x1aa6…1aba at0008 = ╱2d╱-╱ // 0x1aae @0x8
0x1aa6…1aba at0009 = ╱36╱6╱ // 0x1aaf @0x9
0x1aa6…1aba at000a = ╱30╱0╱ // 0x1ab0 @0xa
0x1aa6…1aba at000b = ╱20╱…╱ // 0x1ab1 @0xb
0x1aa6…1aba at000c = ╱44╱D╱ // 0x1ab2 @0xc
0x1aa6…1aba at000d = ╱61╱a╱ // 0x1ab3 @0xd
0x1aa6…1aba at000e = ╱67╱g╱ // 0x1ab4 @0xe
0x1aa6…1aba at000f = ╱65╱e╱ // 0x1ab5 @0xf
0x1aa6…1aba at0010 = ╱20╱…╱ // 0x1ab6 @0x10
0x1aa6…1aba at0011 = ╱3a╱:╱ // 0x1ab7 @0x11
0x1aa6…1aba at0012 = ╱22╱"╱ // 0x1ab8 @0x12
0x1aa6…1aba at0013 = EOL // 0x1ab9 @0x13
0x1aa6…1aba }
0x1aba…1acf a826 3150 CURSOR 17,16
0x1aba…1acf LineComalBin {
0x1aba…1acf ptr = 0xa826 // 0x1aba @0x0
0x1aba…1acf lno = 0x0c4e // 0x1abc @0x2
0x1aba…1acf at0004 = ╱a1╱ CURSOR ╱ // 0x1abe @0x4
0x1aba…1acf at0005 = ╱31╱1╱ // 0x1abf @0x5
0x1aba…1acf at0006 = ╱37╱7╱ // 0x1ac0 @0x6
0x1aba…1acf at0007 = ╱fe00008805╱ // 0x1ac1 @0x7
0x1aba…1acf at000c = ╱ec╱,╱ // 0x1ac6 @0xc
0x1aba…1acf at000d = ╱31╱1╱ // 0x1ac7 @0xd
0x1aba…1acf at000e = ╱36╱6╱ // 0x1ac8 @0xe
0x1aba…1acf at000f = ╱fe00008005╱ // 0x1ac9 @0xf
0x1aba…1acf at0014 = EOL // 0x1ace @0x14
0x1aba…1acf }
0x1acf…1aec a843 3160 EXEC TUD(DSALDO2$,TAL4$,E,B)
0x1acf…1aec LineComalBin {
0x1acf…1aec ptr = 0xa843 // 0x1acf @0x0
0x1acf…1aec lno = 0x0c58 // 0x1ad1 @0x2
0x1acf…1aec at0004 = ╱9d╱ EXEC ╱ // 0x1ad3 @0x4
0x1acf…1aec at0005 = ╱54╱T╱ // 0x1ad4 @0x5
0x1acf…1aec at0006 = ╱55╱U╱ // 0x1ad5 @0x6
0x1acf…1aec at0007 = ╱44╱D╱ // 0x1ad6 @0x7
0x1acf…1aec at0008 = ╱ed╱(╱ // 0x1ad7 @0x8
0x1acf…1aec at0009 = ╱44╱D╱ // 0x1ad8 @0x9
0x1acf…1aec at000a = ╱53╱S╱ // 0x1ad9 @0xa
0x1acf…1aec at000b = ╱41╱A╱ // 0x1ada @0xb
0x1acf…1aec at000c = ╱4c╱L╱ // 0x1adb @0xc
0x1acf…1aec at000d = ╱44╱D╱ // 0x1adc @0xd
0x1acf…1aec at000e = ╱4f╱O╱ // 0x1add @0xe
0x1acf…1aec at000f = ╱32╱2╱ // 0x1ade @0xf
0x1acf…1aec at0010 = ╱ef╱$╱ // 0x1adf @0x10
0x1acf…1aec at0011 = ╱ec╱,╱ // 0x1ae0 @0x11
0x1acf…1aec at0012 = ╱54╱T╱ // 0x1ae1 @0x12
0x1acf…1aec at0013 = ╱41╱A╱ // 0x1ae2 @0x13
0x1acf…1aec at0014 = ╱4c╱L╱ // 0x1ae3 @0x14
0x1acf…1aec at0015 = ╱34╱4╱ // 0x1ae4 @0x15
0x1acf…1aec at0016 = ╱ef╱$╱ // 0x1ae5 @0x16
0x1acf…1aec at0017 = ╱ec╱,╱ // 0x1ae6 @0x17
0x1acf…1aec at0018 = ╱45╱E╱ // 0x1ae7 @0x18
0x1acf…1aec at0019 = ╱ec╱,╱ // 0x1ae8 @0x19
0x1acf…1aec at001a = ╱42╱B╱ // 0x1ae9 @0x1a
0x1acf…1aec at001b = ╱ee╱)╱ // 0x1aea @0x1b
0x1acf…1aec at001c = EOL // 0x1aeb @0x1c
0x1acf…1aec }
0x1aec…1af7 a84e 3170 PRINT TAL4$
0x1aec…1af7 LineComalBin {
0x1aec…1af7 ptr = 0xa84e // 0x1aec @0x0
0x1aec…1af7 lno = 0x0c62 // 0x1aee @0x2
0x1aec…1af7 at0004 = ╱92╱ PRINT ╱ // 0x1af0 @0x4
0x1aec…1af7 at0005 = ╱54╱T╱ // 0x1af1 @0x5
0x1aec…1af7 at0006 = ╱41╱A╱ // 0x1af2 @0x6
0x1aec…1af7 at0007 = ╱4c╱L╱ // 0x1af3 @0x7
0x1aec…1af7 at0008 = ╱34╱4╱ // 0x1af4 @0x8
0x1aec…1af7 at0009 = ╱ef╱$╱ // 0x1af5 @0x9
0x1aec…1af7 at000a = EOL // 0x1af6 @0xa
0x1aec…1af7 }
0x1af7…1b0b a862 3180 CURSOR 4,18
0x1af7…1b0b LineComalBin {
0x1af7…1b0b ptr = 0xa862 // 0x1af7 @0x0
0x1af7…1b0b lno = 0x0c6c // 0x1af9 @0x2
0x1af7…1b0b at0004 = ╱a1╱ CURSOR ╱ // 0x1afb @0x4
0x1af7…1b0b at0005 = ╱34╱4╱ // 0x1afc @0x5
0x1af7…1b0b at0006 = ╱fe00008003╱ // 0x1afd @0x6
0x1af7…1b0b at000b = ╱ec╱,╱ // 0x1b02 @0xb
0x1af7…1b0b at000c = ╱31╱1╱ // 0x1b03 @0xc
0x1af7…1b0b at000d = ╱38╱8╱ // 0x1b04 @0xd
0x1af7…1b0b at000e = ╱fe00009005╱ // 0x1b05 @0xe
0x1af7…1b0b at0013 = EOL // 0x1b0a @0x13
0x1af7…1b0b }
0x1b0b…1b1f a876 3190 PRINT "60-90 Dage :"
0x1b0b…1b1f LineComalBin {
0x1b0b…1b1f ptr = 0xa876 // 0x1b0b @0x0
0x1b0b…1b1f lno = 0x0c76 // 0x1b0d @0x2
0x1b0b…1b1f at0004 = ╱92╱ PRINT ╱ // 0x1b0f @0x4
0x1b0b…1b1f at0005 = ╱22╱"╱ // 0x1b10 @0x5
0x1b0b…1b1f at0006 = ╱36╱6╱ // 0x1b11 @0x6
0x1b0b…1b1f at0007 = ╱30╱0╱ // 0x1b12 @0x7
0x1b0b…1b1f at0008 = ╱2d╱-╱ // 0x1b13 @0x8
0x1b0b…1b1f at0009 = ╱39╱9╱ // 0x1b14 @0x9
0x1b0b…1b1f at000a = ╱30╱0╱ // 0x1b15 @0xa
0x1b0b…1b1f at000b = ╱20╱…╱ // 0x1b16 @0xb
0x1b0b…1b1f at000c = ╱44╱D╱ // 0x1b17 @0xc
0x1b0b…1b1f at000d = ╱61╱a╱ // 0x1b18 @0xd
0x1b0b…1b1f at000e = ╱67╱g╱ // 0x1b19 @0xe
0x1b0b…1b1f at000f = ╱65╱e╱ // 0x1b1a @0xf
0x1b0b…1b1f at0010 = ╱20╱…╱ // 0x1b1b @0x10
0x1b0b…1b1f at0011 = ╱3a╱:╱ // 0x1b1c @0x11
0x1b0b…1b1f at0012 = ╱22╱"╱ // 0x1b1d @0x12
0x1b0b…1b1f at0013 = EOL // 0x1b1e @0x13
0x1b0b…1b1f }
0x1b1f…1b34 a88b 3200 CURSOR 17,18
0x1b1f…1b34 LineComalBin {
0x1b1f…1b34 ptr = 0xa88b // 0x1b1f @0x0
0x1b1f…1b34 lno = 0x0c80 // 0x1b21 @0x2
0x1b1f…1b34 at0004 = ╱a1╱ CURSOR ╱ // 0x1b23 @0x4
0x1b1f…1b34 at0005 = ╱31╱1╱ // 0x1b24 @0x5
0x1b1f…1b34 at0006 = ╱37╱7╱ // 0x1b25 @0x6
0x1b1f…1b34 at0007 = ╱fe00008805╱ // 0x1b26 @0x7
0x1b1f…1b34 at000c = ╱ec╱,╱ // 0x1b2b @0xc
0x1b1f…1b34 at000d = ╱31╱1╱ // 0x1b2c @0xd
0x1b1f…1b34 at000e = ╱38╱8╱ // 0x1b2d @0xe
0x1b1f…1b34 at000f = ╱fe00009005╱ // 0x1b2e @0xf
0x1b1f…1b34 at0014 = EOL // 0x1b33 @0x14
0x1b1f…1b34 }
0x1b34…1b51 a8a8 3210 EXEC TUD(DSALDO3$,TAL4$,E,B)
0x1b34…1b51 LineComalBin {
0x1b34…1b51 ptr = 0xa8a8 // 0x1b34 @0x0
0x1b34…1b51 lno = 0x0c8a // 0x1b36 @0x2
0x1b34…1b51 at0004 = ╱9d╱ EXEC ╱ // 0x1b38 @0x4
0x1b34…1b51 at0005 = ╱54╱T╱ // 0x1b39 @0x5
0x1b34…1b51 at0006 = ╱55╱U╱ // 0x1b3a @0x6
0x1b34…1b51 at0007 = ╱44╱D╱ // 0x1b3b @0x7
0x1b34…1b51 at0008 = ╱ed╱(╱ // 0x1b3c @0x8
0x1b34…1b51 at0009 = ╱44╱D╱ // 0x1b3d @0x9
0x1b34…1b51 at000a = ╱53╱S╱ // 0x1b3e @0xa
0x1b34…1b51 at000b = ╱41╱A╱ // 0x1b3f @0xb
0x1b34…1b51 at000c = ╱4c╱L╱ // 0x1b40 @0xc
0x1b34…1b51 at000d = ╱44╱D╱ // 0x1b41 @0xd
0x1b34…1b51 at000e = ╱4f╱O╱ // 0x1b42 @0xe
0x1b34…1b51 at000f = ╱33╱3╱ // 0x1b43 @0xf
0x1b34…1b51 at0010 = ╱ef╱$╱ // 0x1b44 @0x10
0x1b34…1b51 at0011 = ╱ec╱,╱ // 0x1b45 @0x11
0x1b34…1b51 at0012 = ╱54╱T╱ // 0x1b46 @0x12
0x1b34…1b51 at0013 = ╱41╱A╱ // 0x1b47 @0x13
0x1b34…1b51 at0014 = ╱4c╱L╱ // 0x1b48 @0x14
0x1b34…1b51 at0015 = ╱34╱4╱ // 0x1b49 @0x15
0x1b34…1b51 at0016 = ╱ef╱$╱ // 0x1b4a @0x16
0x1b34…1b51 at0017 = ╱ec╱,╱ // 0x1b4b @0x17
0x1b34…1b51 at0018 = ╱45╱E╱ // 0x1b4c @0x18
0x1b34…1b51 at0019 = ╱ec╱,╱ // 0x1b4d @0x19
0x1b34…1b51 at001a = ╱42╱B╱ // 0x1b4e @0x1a
0x1b34…1b51 at001b = ╱ee╱)╱ // 0x1b4f @0x1b
0x1b34…1b51 at001c = EOL // 0x1b50 @0x1c
0x1b34…1b51 }
0x1b51…1b5c a8b3 3220 PRINT TAL4$
0x1b51…1b5c LineComalBin {
0x1b51…1b5c ptr = 0xa8b3 // 0x1b51 @0x0
0x1b51…1b5c lno = 0x0c94 // 0x1b53 @0x2
0x1b51…1b5c at0004 = ╱92╱ PRINT ╱ // 0x1b55 @0x4
0x1b51…1b5c at0005 = ╱54╱T╱ // 0x1b56 @0x5
0x1b51…1b5c at0006 = ╱41╱A╱ // 0x1b57 @0x6
0x1b51…1b5c at0007 = ╱4c╱L╱ // 0x1b58 @0x7
0x1b51…1b5c at0008 = ╱34╱4╱ // 0x1b59 @0x8
0x1b51…1b5c at0009 = ╱ef╱$╱ // 0x1b5a @0x9
0x1b51…1b5c at000a = EOL // 0x1b5b @0xa
0x1b51…1b5c }
0x1b5c…1b70 a8c7 3230 CURSOR 4,20
0x1b5c…1b70 LineComalBin {
0x1b5c…1b70 ptr = 0xa8c7 // 0x1b5c @0x0
0x1b5c…1b70 lno = 0x0c9e // 0x1b5e @0x2
0x1b5c…1b70 at0004 = ╱a1╱ CURSOR ╱ // 0x1b60 @0x4
0x1b5c…1b70 at0005 = ╱34╱4╱ // 0x1b61 @0x5
0x1b5c…1b70 at0006 = ╱fe00008003╱ // 0x1b62 @0x6
0x1b5c…1b70 at000b = ╱ec╱,╱ // 0x1b67 @0xb
0x1b5c…1b70 at000c = ╱32╱2╱ // 0x1b68 @0xc
0x1b5c…1b70 at000d = ╱30╱0╱ // 0x1b69 @0xd
0x1b5c…1b70 at000e = ╱fe0000a005╱ // 0x1b6a @0xe
0x1b5c…1b70 at0013 = EOL // 0x1b6f @0x13
0x1b5c…1b70 }
0x1b70…1b84 a8db 3240 PRINT "Ældre :"
0x1b70…1b84 LineComalBin {
0x1b70…1b84 ptr = 0xa8db // 0x1b70 @0x0
0x1b70…1b84 lno = 0x0ca8 // 0x1b72 @0x2
0x1b70…1b84 at0004 = ╱92╱ PRINT ╱ // 0x1b74 @0x4
0x1b70…1b84 at0005 = ╱22╱"╱ // 0x1b75 @0x5
0x1b70…1b84 at0006 = ╱5b╱Æ╱ // 0x1b76 @0x6
0x1b70…1b84 at0007 = ╱6c╱l╱ // 0x1b77 @0x7
0x1b70…1b84 at0008 = ╱64╱d╱ // 0x1b78 @0x8
0x1b70…1b84 at0009 = ╱72╱r╱ // 0x1b79 @0x9
0x1b70…1b84 at000a = ╱65╱e╱ // 0x1b7a @0xa
0x1b70…1b84 at000b = ╱20╱…╱ // 0x1b7b @0xb
0x1b70…1b84 at000c = ╱20╱…╱ // 0x1b7c @0xc
0x1b70…1b84 at000d = ╱20╱…╱ // 0x1b7d @0xd
0x1b70…1b84 at000e = ╱20╱…╱ // 0x1b7e @0xe
0x1b70…1b84 at000f = ╱20╱…╱ // 0x1b7f @0xf
0x1b70…1b84 at0010 = ╱20╱…╱ // 0x1b80 @0x10
0x1b70…1b84 at0011 = ╱3a╱:╱ // 0x1b81 @0x11
0x1b70…1b84 at0012 = ╱22╱"╱ // 0x1b82 @0x12
0x1b70…1b84 at0013 = EOL // 0x1b83 @0x13
0x1b70…1b84 }
0x1b84…1b99 a8f0 3250 CURSOR 17,20
0x1b84…1b99 LineComalBin {
0x1b84…1b99 ptr = 0xa8f0 // 0x1b84 @0x0
0x1b84…1b99 lno = 0x0cb2 // 0x1b86 @0x2
0x1b84…1b99 at0004 = ╱a1╱ CURSOR ╱ // 0x1b88 @0x4
0x1b84…1b99 at0005 = ╱31╱1╱ // 0x1b89 @0x5
0x1b84…1b99 at0006 = ╱37╱7╱ // 0x1b8a @0x6
0x1b84…1b99 at0007 = ╱fe00008805╱ // 0x1b8b @0x7
0x1b84…1b99 at000c = ╱ec╱,╱ // 0x1b90 @0xc
0x1b84…1b99 at000d = ╱32╱2╱ // 0x1b91 @0xd
0x1b84…1b99 at000e = ╱30╱0╱ // 0x1b92 @0xe
0x1b84…1b99 at000f = ╱fe0000a005╱ // 0x1b93 @0xf
0x1b84…1b99 at0014 = EOL // 0x1b98 @0x14
0x1b84…1b99 }
0x1b99…1bb6 a90d 3260 EXEC TUD(DSALDO4$,TAL4$,E,B)
0x1b99…1bb6 LineComalBin {
0x1b99…1bb6 ptr = 0xa90d // 0x1b99 @0x0
0x1b99…1bb6 lno = 0x0cbc // 0x1b9b @0x2
0x1b99…1bb6 at0004 = ╱9d╱ EXEC ╱ // 0x1b9d @0x4
0x1b99…1bb6 at0005 = ╱54╱T╱ // 0x1b9e @0x5
0x1b99…1bb6 at0006 = ╱55╱U╱ // 0x1b9f @0x6
0x1b99…1bb6 at0007 = ╱44╱D╱ // 0x1ba0 @0x7
0x1b99…1bb6 at0008 = ╱ed╱(╱ // 0x1ba1 @0x8
0x1b99…1bb6 at0009 = ╱44╱D╱ // 0x1ba2 @0x9
0x1b99…1bb6 at000a = ╱53╱S╱ // 0x1ba3 @0xa
0x1b99…1bb6 at000b = ╱41╱A╱ // 0x1ba4 @0xb
0x1b99…1bb6 at000c = ╱4c╱L╱ // 0x1ba5 @0xc
0x1b99…1bb6 at000d = ╱44╱D╱ // 0x1ba6 @0xd
0x1b99…1bb6 at000e = ╱4f╱O╱ // 0x1ba7 @0xe
0x1b99…1bb6 at000f = ╱34╱4╱ // 0x1ba8 @0xf
0x1b99…1bb6 at0010 = ╱ef╱$╱ // 0x1ba9 @0x10
0x1b99…1bb6 at0011 = ╱ec╱,╱ // 0x1baa @0x11
0x1b99…1bb6 at0012 = ╱54╱T╱ // 0x1bab @0x12
0x1b99…1bb6 at0013 = ╱41╱A╱ // 0x1bac @0x13
0x1b99…1bb6 at0014 = ╱4c╱L╱ // 0x1bad @0x14
0x1b99…1bb6 at0015 = ╱34╱4╱ // 0x1bae @0x15
0x1b99…1bb6 at0016 = ╱ef╱$╱ // 0x1baf @0x16
0x1b99…1bb6 at0017 = ╱ec╱,╱ // 0x1bb0 @0x17
0x1b99…1bb6 at0018 = ╱45╱E╱ // 0x1bb1 @0x18
0x1b99…1bb6 at0019 = ╱ec╱,╱ // 0x1bb2 @0x19
0x1b99…1bb6 at001a = ╱42╱B╱ // 0x1bb3 @0x1a
0x1b99…1bb6 at001b = ╱ee╱)╱ // 0x1bb4 @0x1b
0x1b99…1bb6 at001c = EOL // 0x1bb5 @0x1c
0x1b99…1bb6 }
0x1bb6…1bc1 a918 3270 PRINT TAL4$
0x1bb6…1bc1 LineComalBin {
0x1bb6…1bc1 ptr = 0xa918 // 0x1bb6 @0x0
0x1bb6…1bc1 lno = 0x0cc6 // 0x1bb8 @0x2
0x1bb6…1bc1 at0004 = ╱92╱ PRINT ╱ // 0x1bba @0x4
0x1bb6…1bc1 at0005 = ╱54╱T╱ // 0x1bbb @0x5
0x1bb6…1bc1 at0006 = ╱41╱A╱ // 0x1bbc @0x6
0x1bb6…1bc1 at0007 = ╱4c╱L╱ // 0x1bbd @0x7
0x1bb6…1bc1 at0008 = ╱34╱4╱ // 0x1bbe @0x8
0x1bb6…1bc1 at0009 = ╱ef╱$╱ // 0x1bbf @0x9
0x1bb6…1bc1 at000a = EOL // 0x1bc0 @0xa
0x1bb6…1bc1 }
0x1bc1…1bd6 a92d 3280 CURSOR 44,12
0x1bc1…1bd6 LineComalBin {
0x1bc1…1bd6 ptr = 0xa92d // 0x1bc1 @0x0
0x1bc1…1bd6 lno = 0x0cd0 // 0x1bc3 @0x2
0x1bc1…1bd6 at0004 = ╱a1╱ CURSOR ╱ // 0x1bc5 @0x4
0x1bc1…1bd6 at0005 = ╱34╱4╱ // 0x1bc6 @0x5
0x1bc1…1bd6 at0006 = ╱34╱4╱ // 0x1bc7 @0x6
0x1bc1…1bd6 at0007 = ╱fe0000b006╱ // 0x1bc8 @0x7
0x1bc1…1bd6 at000c = ╱ec╱,╱ // 0x1bcd @0xc
0x1bc1…1bd6 at000d = ╱31╱1╱ // 0x1bce @0xd
0x1bc1…1bd6 at000e = ╱32╱2╱ // 0x1bcf @0xe
0x1bc1…1bd6 at000f = ╱fe0000c004╱ // 0x1bd0 @0xf
0x1bc1…1bd6 at0014 = EOL // 0x1bd5 @0x14
0x1bc1…1bd6 }
0x1bd6…1bec a943 3290 PRINT "Månedens køb :"
0x1bd6…1bec LineComalBin {
0x1bd6…1bec ptr = 0xa943 // 0x1bd6 @0x0
0x1bd6…1bec lno = 0x0cda // 0x1bd8 @0x2
0x1bd6…1bec at0004 = ╱92╱ PRINT ╱ // 0x1bda @0x4
0x1bd6…1bec at0005 = ╱22╱"╱ // 0x1bdb @0x5
0x1bd6…1bec at0006 = ╱4d╱M╱ // 0x1bdc @0x6
0x1bd6…1bec at0007 = ╱7d╱å╱ // 0x1bdd @0x7
0x1bd6…1bec at0008 = ╱6e╱n╱ // 0x1bde @0x8
0x1bd6…1bec at0009 = ╱65╱e╱ // 0x1bdf @0x9
0x1bd6…1bec at000a = ╱64╱d╱ // 0x1be0 @0xa
0x1bd6…1bec at000b = ╱65╱e╱ // 0x1be1 @0xb
0x1bd6…1bec at000c = ╱6e╱n╱ // 0x1be2 @0xc
0x1bd6…1bec at000d = ╱73╱s╱ // 0x1be3 @0xd
0x1bd6…1bec at000e = ╱20╱…╱ // 0x1be4 @0xe
0x1bd6…1bec at000f = ╱6b╱k╱ // 0x1be5 @0xf
0x1bd6…1bec at0010 = ╱7c╱ø╱ // 0x1be6 @0x10
0x1bd6…1bec at0011 = ╱62╱b╱ // 0x1be7 @0x11
0x1bd6…1bec at0012 = ╱20╱…╱ // 0x1be8 @0x12
0x1bd6…1bec at0013 = ╱3a╱:╱ // 0x1be9 @0x13
0x1bd6…1bec at0014 = ╱22╱"╱ // 0x1bea @0x14
0x1bd6…1bec at0015 = EOL // 0x1beb @0x15
0x1bd6…1bec }
0x1bec…1c01 a958 3300 CURSOR 59,12
0x1bec…1c01 LineComalBin {
0x1bec…1c01 ptr = 0xa958 // 0x1bec @0x0
0x1bec…1c01 lno = 0x0ce4 // 0x1bee @0x2
0x1bec…1c01 at0004 = ╱a1╱ CURSOR ╱ // 0x1bf0 @0x4
0x1bec…1c01 at0005 = ╱35╱5╱ // 0x1bf1 @0x5
0x1bec…1c01 at0006 = ╱39╱9╱ // 0x1bf2 @0x6
0x1bec…1c01 at0007 = ╱fe0000ec06╱ // 0x1bf3 @0x7
0x1bec…1c01 at000c = ╱ec╱,╱ // 0x1bf8 @0xc
0x1bec…1c01 at000d = ╱31╱1╱ // 0x1bf9 @0xd
0x1bec…1c01 at000e = ╱32╱2╱ // 0x1bfa @0xe
0x1bec…1c01 at000f = ╱fe0000c004╱ // 0x1bfb @0xf
0x1bec…1c01 at0014 = EOL // 0x1c00 @0x14
0x1bec…1c01 }
0x1c01…1c1d a974 3310 EXEC TUD(MDNKØB$,TAL4$,E,B)
0x1c01…1c1d LineComalBin {
0x1c01…1c1d ptr = 0xa974 // 0x1c01 @0x0
0x1c01…1c1d lno = 0x0cee // 0x1c03 @0x2
0x1c01…1c1d at0004 = ╱9d╱ EXEC ╱ // 0x1c05 @0x4
0x1c01…1c1d at0005 = ╱54╱T╱ // 0x1c06 @0x5
0x1c01…1c1d at0006 = ╱55╱U╱ // 0x1c07 @0x6
0x1c01…1c1d at0007 = ╱44╱D╱ // 0x1c08 @0x7
0x1c01…1c1d at0008 = ╱ed╱(╱ // 0x1c09 @0x8
0x1c01…1c1d at0009 = ╱4d╱M╱ // 0x1c0a @0x9
0x1c01…1c1d at000a = ╱44╱D╱ // 0x1c0b @0xa
0x1c01…1c1d at000b = ╱4e╱N╱ // 0x1c0c @0xb
0x1c01…1c1d at000c = ╱4b╱K╱ // 0x1c0d @0xc
0x1c01…1c1d at000d = ╱5c╱Ø╱ // 0x1c0e @0xd
0x1c01…1c1d at000e = ╱42╱B╱ // 0x1c0f @0xe
0x1c01…1c1d at000f = ╱ef╱$╱ // 0x1c10 @0xf
0x1c01…1c1d at0010 = ╱ec╱,╱ // 0x1c11 @0x10
0x1c01…1c1d at0011 = ╱54╱T╱ // 0x1c12 @0x11
0x1c01…1c1d at0012 = ╱41╱A╱ // 0x1c13 @0x12
0x1c01…1c1d at0013 = ╱4c╱L╱ // 0x1c14 @0x13
0x1c01…1c1d at0014 = ╱34╱4╱ // 0x1c15 @0x14
0x1c01…1c1d at0015 = ╱ef╱$╱ // 0x1c16 @0x15
0x1c01…1c1d at0016 = ╱ec╱,╱ // 0x1c17 @0x16
0x1c01…1c1d at0017 = ╱45╱E╱ // 0x1c18 @0x17
0x1c01…1c1d at0018 = ╱ec╱,╱ // 0x1c19 @0x18
0x1c01…1c1d at0019 = ╱42╱B╱ // 0x1c1a @0x19
0x1c01…1c1d at001a = ╱ee╱)╱ // 0x1c1b @0x1a
0x1c01…1c1d at001b = EOL // 0x1c1c @0x1b
0x1c01…1c1d }
0x1c1d…1c28 a97f 3320 PRINT TAL4$
0x1c1d…1c28 LineComalBin {
0x1c1d…1c28 ptr = 0xa97f // 0x1c1d @0x0
0x1c1d…1c28 lno = 0x0cf8 // 0x1c1f @0x2
0x1c1d…1c28 at0004 = ╱92╱ PRINT ╱ // 0x1c21 @0x4
0x1c1d…1c28 at0005 = ╱54╱T╱ // 0x1c22 @0x5
0x1c1d…1c28 at0006 = ╱41╱A╱ // 0x1c23 @0x6
0x1c1d…1c28 at0007 = ╱4c╱L╱ // 0x1c24 @0x7
0x1c1d…1c28 at0008 = ╱34╱4╱ // 0x1c25 @0x8
0x1c1d…1c28 at0009 = ╱ef╱$╱ // 0x1c26 @0x9
0x1c1d…1c28 at000a = EOL // 0x1c27 @0xa
0x1c1d…1c28 }
0x1c28…1c3d a994 3330 CURSOR 44,14
0x1c28…1c3d LineComalBin {
0x1c28…1c3d ptr = 0xa994 // 0x1c28 @0x0
0x1c28…1c3d lno = 0x0d02 // 0x1c2a @0x2
0x1c28…1c3d at0004 = ╱a1╱ CURSOR ╱ // 0x1c2c @0x4
0x1c28…1c3d at0005 = ╱34╱4╱ // 0x1c2d @0x5
0x1c28…1c3d at0006 = ╱34╱4╱ // 0x1c2e @0x6
0x1c28…1c3d at0007 = ╱fe0000b006╱ // 0x1c2f @0x7
0x1c28…1c3d at000c = ╱ec╱,╱ // 0x1c34 @0xc
0x1c28…1c3d at000d = ╱31╱1╱ // 0x1c35 @0xd
0x1c28…1c3d at000e = ╱34╱4╱ // 0x1c36 @0xe
0x1c28…1c3d at000f = ╱fe0000e004╱ // 0x1c37 @0xf
0x1c28…1c3d at0014 = EOL // 0x1c3c @0x14
0x1c28…1c3d }
0x1c3d…1c53 a9aa 3340 PRINT "Årets køb :"
0x1c3d…1c53 LineComalBin {
0x1c3d…1c53 ptr = 0xa9aa // 0x1c3d @0x0
0x1c3d…1c53 lno = 0x0d0c // 0x1c3f @0x2
0x1c3d…1c53 at0004 = ╱92╱ PRINT ╱ // 0x1c41 @0x4
0x1c3d…1c53 at0005 = ╱22╱"╱ // 0x1c42 @0x5
0x1c3d…1c53 at0006 = ╱5d╱Å╱ // 0x1c43 @0x6
0x1c3d…1c53 at0007 = ╱72╱r╱ // 0x1c44 @0x7
0x1c3d…1c53 at0008 = ╱65╱e╱ // 0x1c45 @0x8
0x1c3d…1c53 at0009 = ╱74╱t╱ // 0x1c46 @0x9
0x1c3d…1c53 at000a = ╱73╱s╱ // 0x1c47 @0xa
0x1c3d…1c53 at000b = ╱20╱…╱ // 0x1c48 @0xb
0x1c3d…1c53 at000c = ╱6b╱k╱ // 0x1c49 @0xc
0x1c3d…1c53 at000d = ╱7c╱ø╱ // 0x1c4a @0xd
0x1c3d…1c53 at000e = ╱62╱b╱ // 0x1c4b @0xe
0x1c3d…1c53 at000f = ╱20╱…╱ // 0x1c4c @0xf
0x1c3d…1c53 at0010 = ╱20╱…╱ // 0x1c4d @0x10
0x1c3d…1c53 at0011 = ╱20╱…╱ // 0x1c4e @0x11
0x1c3d…1c53 at0012 = ╱20╱…╱ // 0x1c4f @0x12
0x1c3d…1c53 at0013 = ╱3a╱:╱ // 0x1c50 @0x13
0x1c3d…1c53 at0014 = ╱22╱"╱ // 0x1c51 @0x14
0x1c3d…1c53 at0015 = EOL // 0x1c52 @0x15
0x1c3d…1c53 }
0x1c53…1c68 a9bf 3350 CURSOR 59,14
0x1c53…1c68 LineComalBin {
0x1c53…1c68 ptr = 0xa9bf // 0x1c53 @0x0
0x1c53…1c68 lno = 0x0d16 // 0x1c55 @0x2
0x1c53…1c68 at0004 = ╱a1╱ CURSOR ╱ // 0x1c57 @0x4
0x1c53…1c68 at0005 = ╱35╱5╱ // 0x1c58 @0x5
0x1c53…1c68 at0006 = ╱39╱9╱ // 0x1c59 @0x6
0x1c53…1c68 at0007 = ╱fe0000ec06╱ // 0x1c5a @0x7
0x1c53…1c68 at000c = ╱ec╱,╱ // 0x1c5f @0xc
0x1c53…1c68 at000d = ╱31╱1╱ // 0x1c60 @0xd
0x1c53…1c68 at000e = ╱34╱4╱ // 0x1c61 @0xe
0x1c53…1c68 at000f = ╱fe0000e004╱ // 0x1c62 @0xf
0x1c53…1c68 at0014 = EOL // 0x1c67 @0x14
0x1c53…1c68 }
0x1c68…1c7b a9d2 3360 TÅRKØB$=ÅRKØB$
0x1c68…1c7b LineComalBin {
0x1c68…1c7b ptr = 0xa9d2 // 0x1c68 @0x0
0x1c68…1c7b lno = 0x0d20 // 0x1c6a @0x2
0x1c68…1c7b at0004 = ╱54╱T╱ // 0x1c6c @0x4
0x1c68…1c7b at0005 = ╱5d╱Å╱ // 0x1c6d @0x5
0x1c68…1c7b at0006 = ╱52╱R╱ // 0x1c6e @0x6
0x1c68…1c7b at0007 = ╱4b╱K╱ // 0x1c6f @0x7
0x1c68…1c7b at0008 = ╱5c╱Ø╱ // 0x1c70 @0x8
0x1c68…1c7b at0009 = ╱42╱B╱ // 0x1c71 @0x9
0x1c68…1c7b at000a = ╱ef╱$╱ // 0x1c72 @0xa
0x1c68…1c7b at000b = ╱dc╱=╱ // 0x1c73 @0xb
0x1c68…1c7b at000c = ╱5d╱Å╱ // 0x1c74 @0xc
0x1c68…1c7b at000d = ╱52╱R╱ // 0x1c75 @0xd
0x1c68…1c7b at000e = ╱4b╱K╱ // 0x1c76 @0xe
0x1c68…1c7b at000f = ╱5c╱Ø╱ // 0x1c77 @0xf
0x1c68…1c7b at0010 = ╱42╱B╱ // 0x1c78 @0x10
0x1c68…1c7b at0011 = ╱ef╱$╱ // 0x1c79 @0x11
0x1c68…1c7b at0012 = EOL // 0x1c7a @0x12
0x1c68…1c7b }
0x1c7b…1c97 a9ee 3370 EXEC TUD(TÅRKØB$,TAL4$,E,B)
0x1c7b…1c97 LineComalBin {
0x1c7b…1c97 ptr = 0xa9ee // 0x1c7b @0x0
0x1c7b…1c97 lno = 0x0d2a // 0x1c7d @0x2
0x1c7b…1c97 at0004 = ╱9d╱ EXEC ╱ // 0x1c7f @0x4
0x1c7b…1c97 at0005 = ╱54╱T╱ // 0x1c80 @0x5
0x1c7b…1c97 at0006 = ╱55╱U╱ // 0x1c81 @0x6
0x1c7b…1c97 at0007 = ╱44╱D╱ // 0x1c82 @0x7
0x1c7b…1c97 at0008 = ╱ed╱(╱ // 0x1c83 @0x8
0x1c7b…1c97 at0009 = ╱54╱T╱ // 0x1c84 @0x9
0x1c7b…1c97 at000a = ╱5d╱Å╱ // 0x1c85 @0xa
0x1c7b…1c97 at000b = ╱52╱R╱ // 0x1c86 @0xb
0x1c7b…1c97 at000c = ╱4b╱K╱ // 0x1c87 @0xc
0x1c7b…1c97 at000d = ╱5c╱Ø╱ // 0x1c88 @0xd
0x1c7b…1c97 at000e = ╱42╱B╱ // 0x1c89 @0xe
0x1c7b…1c97 at000f = ╱ef╱$╱ // 0x1c8a @0xf
0x1c7b…1c97 at0010 = ╱ec╱,╱ // 0x1c8b @0x10
0x1c7b…1c97 at0011 = ╱54╱T╱ // 0x1c8c @0x11
0x1c7b…1c97 at0012 = ╱41╱A╱ // 0x1c8d @0x12
0x1c7b…1c97 at0013 = ╱4c╱L╱ // 0x1c8e @0x13
0x1c7b…1c97 at0014 = ╱34╱4╱ // 0x1c8f @0x14
0x1c7b…1c97 at0015 = ╱ef╱$╱ // 0x1c90 @0x15
0x1c7b…1c97 at0016 = ╱ec╱,╱ // 0x1c91 @0x16
0x1c7b…1c97 at0017 = ╱45╱E╱ // 0x1c92 @0x17
0x1c7b…1c97 at0018 = ╱ec╱,╱ // 0x1c93 @0x18
0x1c7b…1c97 at0019 = ╱42╱B╱ // 0x1c94 @0x19
0x1c7b…1c97 at001a = ╱ee╱)╱ // 0x1c95 @0x1a
0x1c7b…1c97 at001b = EOL // 0x1c96 @0x1b
0x1c7b…1c97 }
0x1c97…1ca2 a9f9 3380 PRINT TAL4$
0x1c97…1ca2 LineComalBin {
0x1c97…1ca2 ptr = 0xa9f9 // 0x1c97 @0x0
0x1c97…1ca2 lno = 0x0d34 // 0x1c99 @0x2
0x1c97…1ca2 at0004 = ╱92╱ PRINT ╱ // 0x1c9b @0x4
0x1c97…1ca2 at0005 = ╱54╱T╱ // 0x1c9c @0x5
0x1c97…1ca2 at0006 = ╱41╱A╱ // 0x1c9d @0x6
0x1c97…1ca2 at0007 = ╱4c╱L╱ // 0x1c9e @0x7
0x1c97…1ca2 at0008 = ╱34╱4╱ // 0x1c9f @0x8
0x1c97…1ca2 at0009 = ╱ef╱$╱ // 0x1ca0 @0x9
0x1c97…1ca2 at000a = EOL // 0x1ca1 @0xa
0x1c97…1ca2 }
0x1ca2…1ca8 a9ff 3390 ENDIF
0x1ca2…1ca8 LineComalBin {
0x1ca2…1ca8 ptr = 0xa9ff // 0x1ca2 @0x0
0x1ca2…1ca8 lno = 0x0d3e // 0x1ca4 @0x2
0x1ca2…1ca8 at0004 = ╱9b╱ ENDIF ╱ // 0x1ca6 @0x4
0x1ca2…1ca8 at0005 = EOL // 0x1ca7 @0x5
0x1ca2…1ca8 }
0x1ca8…1cae aa05 3400 ENDPROC
0x1ca8…1cae LineComalBin {
0x1ca8…1cae ptr = 0xaa05 // 0x1ca8 @0x0
0x1ca8…1cae lno = 0x0d48 // 0x1caa @0x2
0x1ca8…1cae at0004 = ╱9f╱ ENDPROC ╱ // 0x1cac @0x4
0x1ca8…1cae at0005 = EOL // 0x1cad @0x5
0x1ca8…1cae }
0x1cae…1ccd aa24 3410 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x1cae…1ccd LineComalBin {
0x1cae…1ccd ptr = 0xaa24 // 0x1cae @0x0
0x1cae…1ccd lno = 0x0d52 // 0x1cb0 @0x2
0x1cae…1ccd at0004 = ╱9e╱ PROC ╱ // 0x1cb2 @0x4
0x1cae…1ccd at0005 = ╱54╱T╱ // 0x1cb3 @0x5
0x1cae…1ccd at0006 = ╱55╱U╱ // 0x1cb4 @0x6
0x1cae…1ccd at0007 = ╱44╱D╱ // 0x1cb5 @0x7
0x1cae…1ccd at0008 = ╱ed╱(╱ // 0x1cb6 @0x8
0x1cae…1ccd at0009 = ╱42╱B╱ // 0x1cb7 @0x9
0x1cae…1ccd at000a = ╱4c╱L╱ // 0x1cb8 @0xa
0x1cae…1ccd at000b = ╱42╱B╱ // 0x1cb9 @0xb
0x1cae…1ccd at000c = ╱31╱1╱ // 0x1cba @0xc
0x1cae…1ccd at000d = ╱ec╱,╱ // 0x1cbb @0xd
0x1cae…1ccd at000e = ╱55╱U╱ // 0x1cbc @0xe
0x1cae…1ccd at000f = ╱42╱B╱ // 0x1cbd @0xf
0x1cae…1ccd at0010 = ╱4c╱L╱ // 0x1cbe @0x10
0x1cae…1ccd at0011 = ╱42╱B╱ // 0x1cbf @0x11
0x1cae…1ccd at0012 = ╱31╱1╱ // 0x1cc0 @0x12
0x1cae…1ccd at0013 = ╱ec╱,╱ // 0x1cc1 @0x13
0x1cae…1ccd at0014 = ╱54╱T╱ // 0x1cc2 @0x14
0x1cae…1ccd at0015 = ╱45╱E╱ // 0x1cc3 @0x15
0x1cae…1ccd at0016 = ╱47╱G╱ // 0x1cc4 @0x16
0x1cae…1ccd at0017 = ╱4e╱N╱ // 0x1cc5 @0x17
0x1cae…1ccd at0018 = ╱ec╱,╱ // 0x1cc6 @0x18
0x1cae…1ccd at0019 = ╱53╱S╱ // 0x1cc7 @0x19
0x1cae…1ccd at001a = ╱54╱T╱ // 0x1cc8 @0x1a
0x1cae…1ccd at001b = ╱5c╱Ø╱ // 0x1cc9 @0x1b
0x1cae…1ccd at001c = ╱52╱R╱ // 0x1cca @0x1c
0x1cae…1ccd at001d = ╱ee╱)╱ // 0x1ccb @0x1d
0x1cae…1ccd at001e = EOL // 0x1ccc @0x1e
0x1cae…1ccd }
0x1ccd…1ceb aa42 3420 BLB2$=BLB1$;UBLB2$=UBLB1$
0x1ccd…1ceb LineComalBin {
0x1ccd…1ceb ptr = 0xaa42 // 0x1ccd @0x0
0x1ccd…1ceb lno = 0x0d5c // 0x1ccf @0x2
0x1ccd…1ceb at0004 = ╱42╱B╱ // 0x1cd1 @0x4
0x1ccd…1ceb at0005 = ╱4c╱L╱ // 0x1cd2 @0x5
0x1ccd…1ceb at0006 = ╱42╱B╱ // 0x1cd3 @0x6
0x1ccd…1ceb at0007 = ╱32╱2╱ // 0x1cd4 @0x7
0x1ccd…1ceb at0008 = ╱ef╱$╱ // 0x1cd5 @0x8
0x1ccd…1ceb at0009 = ╱dc╱=╱ // 0x1cd6 @0x9
0x1ccd…1ceb at000a = ╱42╱B╱ // 0x1cd7 @0xa
0x1ccd…1ceb at000b = ╱4c╱L╱ // 0x1cd8 @0xb
0x1ccd…1ceb at000c = ╱42╱B╱ // 0x1cd9 @0xc
0x1ccd…1ceb at000d = ╱31╱1╱ // 0x1cda @0xd
0x1ccd…1ceb at000e = ╱ef╱$╱ // 0x1cdb @0xe
0x1ccd…1ceb at000f = ╱eb╱;╱ // 0x1cdc @0xf
0x1ccd…1ceb at0010 = ╱55╱U╱ // 0x1cdd @0x10
0x1ccd…1ceb at0011 = ╱42╱B╱ // 0x1cde @0x11
0x1ccd…1ceb at0012 = ╱4c╱L╱ // 0x1cdf @0x12
0x1ccd…1ceb at0013 = ╱42╱B╱ // 0x1ce0 @0x13
0x1ccd…1ceb at0014 = ╱32╱2╱ // 0x1ce1 @0x14
0x1ccd…1ceb at0015 = ╱ef╱$╱ // 0x1ce2 @0x15
0x1ccd…1ceb at0016 = ╱dc╱=╱ // 0x1ce3 @0x16
0x1ccd…1ceb at0017 = ╱55╱U╱ // 0x1ce4 @0x17
0x1ccd…1ceb at0018 = ╱42╱B╱ // 0x1ce5 @0x18
0x1ccd…1ceb at0019 = ╱4c╱L╱ // 0x1ce6 @0x19
0x1ccd…1ceb at001a = ╱42╱B╱ // 0x1ce7 @0x1a
0x1ccd…1ceb at001b = ╱31╱1╱ // 0x1ce8 @0x1b
0x1ccd…1ceb at001c = ╱ef╱$╱ // 0x1ce9 @0x1c
0x1ccd…1ceb at001d = EOL // 0x1cea @0x1d
0x1ccd…1ceb }
0x1ceb…1d0f aa66 3430 EXEC CALC(5,BLB2$,TAH$,UBLB2$)
0x1ceb…1d0f LineComalBin {
0x1ceb…1d0f ptr = 0xaa66 // 0x1ceb @0x0
0x1ceb…1d0f lno = 0x0d66 // 0x1ced @0x2
0x1ceb…1d0f at0004 = ╱9d╱ EXEC ╱ // 0x1cef @0x4
0x1ceb…1d0f at0005 = ╱43╱C╱ // 0x1cf0 @0x5
0x1ceb…1d0f at0006 = ╱41╱A╱ // 0x1cf1 @0x6
0x1ceb…1d0f at0007 = ╱4c╱L╱ // 0x1cf2 @0x7
0x1ceb…1d0f at0008 = ╱43╱C╱ // 0x1cf3 @0x8
0x1ceb…1d0f at0009 = ╱ed╱(╱ // 0x1cf4 @0x9
0x1ceb…1d0f at000a = ╱35╱5╱ // 0x1cf5 @0xa
0x1ceb…1d0f at000b = ╱fe0000a003╱ // 0x1cf6 @0xb
0x1ceb…1d0f at0010 = ╱ec╱,╱ // 0x1cfb @0x10
0x1ceb…1d0f at0011 = ╱42╱B╱ // 0x1cfc @0x11
0x1ceb…1d0f at0012 = ╱4c╱L╱ // 0x1cfd @0x12
0x1ceb…1d0f at0013 = ╱42╱B╱ // 0x1cfe @0x13
0x1ceb…1d0f at0014 = ╱32╱2╱ // 0x1cff @0x14
0x1ceb…1d0f at0015 = ╱ef╱$╱ // 0x1d00 @0x15
0x1ceb…1d0f at0016 = ╱ec╱,╱ // 0x1d01 @0x16
0x1ceb…1d0f at0017 = ╱54╱T╱ // 0x1d02 @0x17
0x1ceb…1d0f at0018 = ╱41╱A╱ // 0x1d03 @0x18
0x1ceb…1d0f at0019 = ╱48╱H╱ // 0x1d04 @0x19
0x1ceb…1d0f at001a = ╱ef╱$╱ // 0x1d05 @0x1a
0x1ceb…1d0f at001b = ╱ec╱,╱ // 0x1d06 @0x1b
0x1ceb…1d0f at001c = ╱55╱U╱ // 0x1d07 @0x1c
0x1ceb…1d0f at001d = ╱42╱B╱ // 0x1d08 @0x1d
0x1ceb…1d0f at001e = ╱4c╱L╱ // 0x1d09 @0x1e
0x1ceb…1d0f at001f = ╱42╱B╱ // 0x1d0a @0x1f
0x1ceb…1d0f at0020 = ╱32╱2╱ // 0x1d0b @0x20
0x1ceb…1d0f at0021 = ╱ef╱$╱ // 0x1d0c @0x21
0x1ceb…1d0f at0022 = ╱ee╱)╱ // 0x1d0d @0x22
0x1ceb…1d0f at0023 = EOL // 0x1d0e @0x23
0x1ceb…1d0f }
0x1d0f…1d21 aa78 3440 UBLB1$=UBLB2$
0x1d0f…1d21 LineComalBin {
0x1d0f…1d21 ptr = 0xaa78 // 0x1d0f @0x0
0x1d0f…1d21 lno = 0x0d70 // 0x1d11 @0x2
0x1d0f…1d21 at0004 = ╱55╱U╱ // 0x1d13 @0x4
0x1d0f…1d21 at0005 = ╱42╱B╱ // 0x1d14 @0x5
0x1d0f…1d21 at0006 = ╱4c╱L╱ // 0x1d15 @0x6
0x1d0f…1d21 at0007 = ╱42╱B╱ // 0x1d16 @0x7
0x1d0f…1d21 at0008 = ╱31╱1╱ // 0x1d17 @0x8
0x1d0f…1d21 at0009 = ╱ef╱$╱ // 0x1d18 @0x9
0x1d0f…1d21 at000a = ╱dc╱=╱ // 0x1d19 @0xa
0x1d0f…1d21 at000b = ╱55╱U╱ // 0x1d1a @0xb
0x1d0f…1d21 at000c = ╱42╱B╱ // 0x1d1b @0xc
0x1d0f…1d21 at000d = ╱4c╱L╱ // 0x1d1c @0xd
0x1d0f…1d21 at000e = ╱42╱B╱ // 0x1d1d @0xe
0x1d0f…1d21 at000f = ╱32╱2╱ // 0x1d1e @0xf
0x1d0f…1d21 at0010 = ╱ef╱$╱ // 0x1d1f @0x10
0x1d0f…1d21 at0011 = EOL // 0x1d20 @0x11
0x1d0f…1d21 }
0x1d21…1d2e aa85 3450 IF TEGN=B THEN
0x1d21…1d2e LineComalBin {
0x1d21…1d2e ptr = 0xaa85 // 0x1d21 @0x0
0x1d21…1d2e lno = 0x0d7a // 0x1d23 @0x2
0x1d21…1d2e at0004 = ╱9c╱ IF ╱ // 0x1d25 @0x4
0x1d21…1d2e at0005 = ╱54╱T╱ // 0x1d26 @0x5
0x1d21…1d2e at0006 = ╱45╱E╱ // 0x1d27 @0x6
0x1d21…1d2e at0007 = ╱47╱G╱ // 0x1d28 @0x7
0x1d21…1d2e at0008 = ╱4e╱N╱ // 0x1d29 @0x8
0x1d21…1d2e at0009 = ╱dc╱=╱ // 0x1d2a @0x9
0x1d21…1d2e at000a = ╱42╱B╱ // 0x1d2b @0xa
0x1d21…1d2e at000b = ╱b6╱ THEN ╱ // 0x1d2c @0xb
0x1d21…1d2e at000c = EOL // 0x1d2d @0xc
0x1d21…1d2e }
0x1d2e…1d4b aaa2 3460 UBLB1$=UBLB1$(E:13)
0x1d2e…1d4b LineComalBin {
0x1d2e…1d4b ptr = 0xaaa2 // 0x1d2e @0x0
0x1d2e…1d4b lno = 0x0d84 // 0x1d30 @0x2
0x1d2e…1d4b at0004 = ╱55╱U╱ // 0x1d32 @0x4
0x1d2e…1d4b at0005 = ╱42╱B╱ // 0x1d33 @0x5
0x1d2e…1d4b at0006 = ╱4c╱L╱ // 0x1d34 @0x6
0x1d2e…1d4b at0007 = ╱42╱B╱ // 0x1d35 @0x7
0x1d2e…1d4b at0008 = ╱31╱1╱ // 0x1d36 @0x8
0x1d2e…1d4b at0009 = ╱ef╱$╱ // 0x1d37 @0x9
0x1d2e…1d4b at000a = ╱dc╱=╱ // 0x1d38 @0xa
0x1d2e…1d4b at000b = ╱55╱U╱ // 0x1d39 @0xb
0x1d2e…1d4b at000c = ╱42╱B╱ // 0x1d3a @0xc
0x1d2e…1d4b at000d = ╱4c╱L╱ // 0x1d3b @0xd
0x1d2e…1d4b at000e = ╱42╱B╱ // 0x1d3c @0xe
0x1d2e…1d4b at000f = ╱31╱1╱ // 0x1d3d @0xf
0x1d2e…1d4b at0010 = ╱ef╱$╱ // 0x1d3e @0x10
0x1d2e…1d4b at0011 = ╱ed╱(╱ // 0x1d3f @0x11
0x1d2e…1d4b at0012 = ╱45╱E╱ // 0x1d40 @0x12
0x1d2e…1d4b at0013 = ╱f0╱:╱ // 0x1d41 @0x13
0x1d2e…1d4b at0014 = ╱31╱1╱ // 0x1d42 @0x14
0x1d2e…1d4b at0015 = ╱33╱3╱ // 0x1d43 @0x15
0x1d2e…1d4b at0016 = ╱fe0000d004╱ // 0x1d44 @0x16
0x1d2e…1d4b at001b = ╱ee╱)╱ // 0x1d49 @0x1b
0x1d2e…1d4b at001c = EOL // 0x1d4a @0x1c
0x1d2e…1d4b }
0x1d4b…1d51 aaa8 3470 ELSE
0x1d4b…1d51 LineComalBin {
0x1d4b…1d51 ptr = 0xaaa8 // 0x1d4b @0x0
0x1d4b…1d51 lno = 0x0d8e // 0x1d4d @0x2
0x1d4b…1d51 at0004 = ╱9a╱ ELSE ╱ // 0x1d4f @0x4
0x1d4b…1d51 at0005 = EOL // 0x1d50 @0x5
0x1d4b…1d51 }
0x1d51…1d74 aacb 3480 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN
0x1d51…1d74 LineComalBin {
0x1d51…1d74 ptr = 0xaacb // 0x1d51 @0x0
0x1d51…1d74 lno = 0x0d98 // 0x1d53 @0x2
0x1d51…1d74 at0004 = ╱9c╱ IF ╱ // 0x1d55 @0x4
0x1d51…1d74 at0005 = ╱54╱T╱ // 0x1d56 @0x5
0x1d51…1d74 at0006 = ╱45╱E╱ // 0x1d57 @0x6
0x1d51…1d74 at0007 = ╱47╱G╱ // 0x1d58 @0x7
0x1d51…1d74 at0008 = ╱4e╱N╱ // 0x1d59 @0x8
0x1d51…1d74 at0009 = ╱dc╱=╱ // 0x1d5a @0x9
0x1d51…1d74 at000a = ╱45╱E╱ // 0x1d5b @0xa
0x1d51…1d74 at000b = ╱da╱ AND ╱ // 0x1d5c @0xb
0x1d51…1d74 at000c = ╱55╱U╱ // 0x1d5d @0xc
0x1d51…1d74 at000d = ╱42╱B╱ // 0x1d5e @0xd
0x1d51…1d74 at000e = ╱4c╱L╱ // 0x1d5f @0xe
0x1d51…1d74 at000f = ╱42╱B╱ // 0x1d60 @0xf
0x1d51…1d74 at0010 = ╱31╱1╱ // 0x1d61 @0x10
0x1d51…1d74 at0011 = ╱ef╱$╱ // 0x1d62 @0x11
0x1d51…1d74 at0012 = ╱ed╱(╱ // 0x1d63 @0x12
0x1d51…1d74 at0013 = ╱cc╱LEN╱ // 0x1d64 @0x13
0x1d51…1d74 at0014 = ╱ed╱(╱ // 0x1d65 @0x14
0x1d51…1d74 at0015 = ╱55╱U╱ // 0x1d66 @0x15
0x1d51…1d74 at0016 = ╱42╱B╱ // 0x1d67 @0x16
0x1d51…1d74 at0017 = ╱4c╱L╱ // 0x1d68 @0x17
0x1d51…1d74 at0018 = ╱42╱B╱ // 0x1d69 @0x18
0x1d51…1d74 at0019 = ╱31╱1╱ // 0x1d6a @0x19
0x1d51…1d74 at001a = ╱ef╱$╱ // 0x1d6b @0x1a
0x1d51…1d74 at001b = ╱ee╱)╱ // 0x1d6c @0x1b
0x1d51…1d74 at001c = ╱ee╱)╱ // 0x1d6d @0x1c
0x1d51…1d74 at001d = ╱dc╱=╱ // 0x1d6e @0x1d
0x1d51…1d74 at001e = ╱22╱"╱ // 0x1d6f @0x1e
0x1d51…1d74 at001f = ╱2b╱+╱ // 0x1d70 @0x1f
0x1d51…1d74 at0020 = ╱22╱"╱ // 0x1d71 @0x20
0x1d51…1d74 at0021 = ╱b6╱ THEN ╱ // 0x1d72 @0x21
0x1d51…1d74 at0022 = EOL // 0x1d73 @0x22
0x1d51…1d74 }
0x1d74…1d8e aae5 3490 UBLB1$(LEN(UBLB1$))=" "
0x1d74…1d8e LineComalBin {
0x1d74…1d8e ptr = 0xaae5 // 0x1d74 @0x0
0x1d74…1d8e lno = 0x0da2 // 0x1d76 @0x2
0x1d74…1d8e at0004 = ╱55╱U╱ // 0x1d78 @0x4
0x1d74…1d8e at0005 = ╱42╱B╱ // 0x1d79 @0x5
0x1d74…1d8e at0006 = ╱4c╱L╱ // 0x1d7a @0x6
0x1d74…1d8e at0007 = ╱42╱B╱ // 0x1d7b @0x7
0x1d74…1d8e at0008 = ╱31╱1╱ // 0x1d7c @0x8
0x1d74…1d8e at0009 = ╱ef╱$╱ // 0x1d7d @0x9
0x1d74…1d8e at000a = ╱ed╱(╱ // 0x1d7e @0xa
0x1d74…1d8e at000b = ╱cc╱LEN╱ // 0x1d7f @0xb
0x1d74…1d8e at000c = ╱ed╱(╱ // 0x1d80 @0xc
0x1d74…1d8e at000d = ╱55╱U╱ // 0x1d81 @0xd
0x1d74…1d8e at000e = ╱42╱B╱ // 0x1d82 @0xe
0x1d74…1d8e at000f = ╱4c╱L╱ // 0x1d83 @0xf
0x1d74…1d8e at0010 = ╱42╱B╱ // 0x1d84 @0x10
0x1d74…1d8e at0011 = ╱31╱1╱ // 0x1d85 @0x11
0x1d74…1d8e at0012 = ╱ef╱$╱ // 0x1d86 @0x12
0x1d74…1d8e at0013 = ╱ee╱)╱ // 0x1d87 @0x13
0x1d74…1d8e at0014 = ╱ee╱)╱ // 0x1d88 @0x14
0x1d74…1d8e at0015 = ╱dc╱=╱ // 0x1d89 @0x15
0x1d74…1d8e at0016 = ╱22╱"╱ // 0x1d8a @0x16
0x1d74…1d8e at0017 = ╱20╱…╱ // 0x1d8b @0x17
0x1d74…1d8e at0018 = ╱22╱"╱ // 0x1d8c @0x18
0x1d74…1d8e at0019 = EOL // 0x1d8d @0x19
0x1d74…1d8e }
0x1d8e…1d94 aaeb 3500 ENDIF
0x1d8e…1d94 LineComalBin {
0x1d8e…1d94 ptr = 0xaaeb // 0x1d8e @0x0
0x1d8e…1d94 lno = 0x0dac // 0x1d90 @0x2
0x1d8e…1d94 at0004 = ╱9b╱ ENDIF ╱ // 0x1d92 @0x4
0x1d8e…1d94 at0005 = EOL // 0x1d93 @0x5
0x1d8e…1d94 }
0x1d94…1d9a aaf1 3510 ENDIF
0x1d94…1d9a LineComalBin {
0x1d94…1d9a ptr = 0xaaf1 // 0x1d94 @0x0
0x1d94…1d9a lno = 0x0db6 // 0x1d96 @0x2
0x1d94…1d9a at0004 = ╱9b╱ ENDIF ╱ // 0x1d98 @0x4
0x1d94…1d9a at0005 = EOL // 0x1d99 @0x5
0x1d94…1d9a }
0x1d9a…1da7 aafe 3520 IF STØR=E THEN
0x1d9a…1da7 LineComalBin {
0x1d9a…1da7 ptr = 0xaafe // 0x1d9a @0x0
0x1d9a…1da7 lno = 0x0dc0 // 0x1d9c @0x2
0x1d9a…1da7 at0004 = ╱9c╱ IF ╱ // 0x1d9e @0x4
0x1d9a…1da7 at0005 = ╱53╱S╱ // 0x1d9f @0x5
0x1d9a…1da7 at0006 = ╱54╱T╱ // 0x1da0 @0x6
0x1d9a…1da7 at0007 = ╱5c╱Ø╱ // 0x1da1 @0x7
0x1d9a…1da7 at0008 = ╱52╱R╱ // 0x1da2 @0x8
0x1d9a…1da7 at0009 = ╱dc╱=╱ // 0x1da3 @0x9
0x1d9a…1da7 at000a = ╱45╱E╱ // 0x1da4 @0xa
0x1d9a…1da7 at000b = ╱b6╱ THEN ╱ // 0x1da5 @0xb
0x1d9a…1da7 at000c = EOL // 0x1da6 @0xc
0x1d9a…1da7 }
0x1da7…1dcd ab24 3530 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x1da7…1dcd LineComalBin {
0x1da7…1dcd ptr = 0xab24 // 0x1da7 @0x0
0x1da7…1dcd lno = 0x0dca // 0x1da9 @0x2
0x1da7…1dcd at0004 = ╱55╱U╱ // 0x1dab @0x4
0x1da7…1dcd at0005 = ╱42╱B╱ // 0x1dac @0x5
0x1da7…1dcd at0006 = ╱4c╱L╱ // 0x1dad @0x6
0x1da7…1dcd at0007 = ╱42╱B╱ // 0x1dae @0x7
0x1da7…1dcd at0008 = ╱31╱1╱ // 0x1daf @0x8
0x1da7…1dcd at0009 = ╱ef╱$╱ // 0x1db0 @0x9
0x1da7…1dcd at000a = ╱dc╱=╱ // 0x1db1 @0xa
0x1da7…1dcd at000b = ╱55╱U╱ // 0x1db2 @0xb
0x1da7…1dcd at000c = ╱42╱B╱ // 0x1db3 @0xc
0x1da7…1dcd at000d = ╱4c╱L╱ // 0x1db4 @0xd
0x1da7…1dcd at000e = ╱42╱B╱ // 0x1db5 @0xe
0x1da7…1dcd at000f = ╱31╱1╱ // 0x1db6 @0xf
0x1da7…1dcd at0010 = ╱ef╱$╱ // 0x1db7 @0x10
0x1da7…1dcd at0011 = ╱ed╱(╱ // 0x1db8 @0x11
0x1da7…1dcd at0012 = ╱34╱4╱ // 0x1db9 @0x12
0x1da7…1dcd at0013 = ╱fe00008003╱ // 0x1dba @0x13
0x1da7…1dcd at0018 = ╱f0╱:╱ // 0x1dbf @0x18
0x1da7…1dcd at0019 = ╱cc╱LEN╱ // 0x1dc0 @0x19
0x1da7…1dcd at001a = ╱ed╱(╱ // 0x1dc1 @0x1a
0x1da7…1dcd at001b = ╱55╱U╱ // 0x1dc2 @0x1b
0x1da7…1dcd at001c = ╱42╱B╱ // 0x1dc3 @0x1c
0x1da7…1dcd at001d = ╱4c╱L╱ // 0x1dc4 @0x1d
0x1da7…1dcd at001e = ╱42╱B╱ // 0x1dc5 @0x1e
0x1da7…1dcd at001f = ╱31╱1╱ // 0x1dc6 @0x1f
0x1da7…1dcd at0020 = ╱ef╱$╱ // 0x1dc7 @0x20
0x1da7…1dcd at0021 = ╱ee╱)╱ // 0x1dc8 @0x21
0x1da7…1dcd at0022 = ╱e3╱-╱ // 0x1dc9 @0x22
0x1da7…1dcd at0023 = ╱56╱V╱ // 0x1dca @0x23
0x1da7…1dcd at0024 = ╱ee╱)╱ // 0x1dcb @0x24
0x1da7…1dcd at0025 = EOL // 0x1dcc @0x25
0x1da7…1dcd }
0x1dcd…1dd3 ab2a 3540 ENDIF
0x1dcd…1dd3 LineComalBin {
0x1dcd…1dd3 ptr = 0xab2a // 0x1dcd @0x0
0x1dcd…1dd3 lno = 0x0dd4 // 0x1dcf @0x2
0x1dcd…1dd3 at0004 = ╱9b╱ ENDIF ╱ // 0x1dd1 @0x4
0x1dcd…1dd3 at0005 = EOL // 0x1dd2 @0x5
0x1dcd…1dd3 }
0x1dd3…1dd9 ab30 3550 ENDPROC
0x1dd3…1dd9 LineComalBin {
0x1dd3…1dd9 ptr = 0xab30 // 0x1dd3 @0x0
0x1dd3…1dd9 lno = 0x0dde // 0x1dd5 @0x2
0x1dd3…1dd9 at0004 = ╱9f╱ ENDPROC ╱ // 0x1dd7 @0x4
0x1dd3…1dd9 at0005 = EOL // 0x1dd8 @0x5
0x1dd3…1dd9 }
0x1dd9…1dec ab43 3560 PROC KINDSLET(AR1)
0x1dd9…1dec LineComalBin {
0x1dd9…1dec ptr = 0xab43 // 0x1dd9 @0x0
0x1dd9…1dec lno = 0x0de8 // 0x1ddb @0x2
0x1dd9…1dec at0004 = ╱9e╱ PROC ╱ // 0x1ddd @0x4
0x1dd9…1dec at0005 = ╱4b╱K╱ // 0x1dde @0x5
0x1dd9…1dec at0006 = ╱49╱I╱ // 0x1ddf @0x6
0x1dd9…1dec at0007 = ╱4e╱N╱ // 0x1de0 @0x7
0x1dd9…1dec at0008 = ╱44╱D╱ // 0x1de1 @0x8
0x1dd9…1dec at0009 = ╱53╱S╱ // 0x1de2 @0x9
0x1dd9…1dec at000a = ╱4c╱L╱ // 0x1de3 @0xa
0x1dd9…1dec at000b = ╱45╱E╱ // 0x1de4 @0xb
0x1dd9…1dec at000c = ╱54╱T╱ // 0x1de5 @0xc
0x1dd9…1dec at000d = ╱ed╱(╱ // 0x1de6 @0xd
0x1dd9…1dec at000e = ╱41╱A╱ // 0x1de7 @0xe
0x1dd9…1dec at000f = ╱52╱R╱ // 0x1de8 @0xf
0x1dd9…1dec at0010 = ╱31╱1╱ // 0x1de9 @0x10
0x1dd9…1dec at0011 = ╱ee╱)╱ // 0x1dea @0x11
0x1dd9…1dec at0012 = EOL // 0x1deb @0x12
0x1dd9…1dec }
0x1dec…1dfc ab53 3570 IF FUN+AR1=B THEN
0x1dec…1dfc LineComalBin {
0x1dec…1dfc ptr = 0xab53 // 0x1dec @0x0
0x1dec…1dfc lno = 0x0df2 // 0x1dee @0x2
0x1dec…1dfc at0004 = ╱9c╱ IF ╱ // 0x1df0 @0x4
0x1dec…1dfc at0005 = ╱46╱F╱ // 0x1df1 @0x5
0x1dec…1dfc at0006 = ╱55╱U╱ // 0x1df2 @0x6
0x1dec…1dfc at0007 = ╱4e╱N╱ // 0x1df3 @0x7
0x1dec…1dfc at0008 = ╱e2╱+╱ // 0x1df4 @0x8
0x1dec…1dfc at0009 = ╱41╱A╱ // 0x1df5 @0x9
0x1dec…1dfc at000a = ╱52╱R╱ // 0x1df6 @0xa
0x1dec…1dfc at000b = ╱31╱1╱ // 0x1df7 @0xb
0x1dec…1dfc at000c = ╱dc╱=╱ // 0x1df8 @0xc
0x1dec…1dfc at000d = ╱42╱B╱ // 0x1df9 @0xd
0x1dec…1dfc at000e = ╱b6╱ THEN ╱ // 0x1dfa @0xe
0x1dec…1dfc at000f = EOL // 0x1dfb @0xf
0x1dec…1dfc }
0x1dfc…1e0a ab61 3580 IF SPIL1=B THEN
0x1dfc…1e0a LineComalBin {
0x1dfc…1e0a ptr = 0xab61 // 0x1dfc @0x0
0x1dfc…1e0a lno = 0x0dfc // 0x1dfe @0x2
0x1dfc…1e0a at0004 = ╱9c╱ IF ╱ // 0x1e00 @0x4
0x1dfc…1e0a at0005 = ╱53╱S╱ // 0x1e01 @0x5
0x1dfc…1e0a at0006 = ╱50╱P╱ // 0x1e02 @0x6
0x1dfc…1e0a at0007 = ╱49╱I╱ // 0x1e03 @0x7
0x1dfc…1e0a at0008 = ╱4c╱L╱ // 0x1e04 @0x8
0x1dfc…1e0a at0009 = ╱31╱1╱ // 0x1e05 @0x9
0x1dfc…1e0a at000a = ╱dc╱=╱ // 0x1e06 @0xa
0x1dfc…1e0a at000b = ╱42╱B╱ // 0x1e07 @0xb
0x1dfc…1e0a at000c = ╱b6╱ THEN ╱ // 0x1e08 @0xc
0x1dfc…1e0a at000d = EOL // 0x1e09 @0xd
0x1dfc…1e0a }
0x1e0a…1e30 ab87 3590 KARRAY(ORD(DEBKGR$)-48)=HKUNDE
0x1e0a…1e30 LineComalBin {
0x1e0a…1e30 ptr = 0xab87 // 0x1e0a @0x0
0x1e0a…1e30 lno = 0x0e06 // 0x1e0c @0x2
0x1e0a…1e30 at0004 = ╱4b╱K╱ // 0x1e0e @0x4
0x1e0a…1e30 at0005 = ╱41╱A╱ // 0x1e0f @0x5
0x1e0a…1e30 at0006 = ╱52╱R╱ // 0x1e10 @0x6
0x1e0a…1e30 at0007 = ╱52╱R╱ // 0x1e11 @0x7
0x1e0a…1e30 at0008 = ╱41╱A╱ // 0x1e12 @0x8
0x1e0a…1e30 at0009 = ╱59╱Y╱ // 0x1e13 @0x9
0x1e0a…1e30 at000a = ╱ed╱(╱ // 0x1e14 @0xa
0x1e0a…1e30 at000b = ╱cd╱ORD╱ // 0x1e15 @0xb
0x1e0a…1e30 at000c = ╱ed╱(╱ // 0x1e16 @0xc
0x1e0a…1e30 at000d = ╱44╱D╱ // 0x1e17 @0xd
0x1e0a…1e30 at000e = ╱45╱E╱ // 0x1e18 @0xe
0x1e0a…1e30 at000f = ╱42╱B╱ // 0x1e19 @0xf
0x1e0a…1e30 at0010 = ╱4b╱K╱ // 0x1e1a @0x10
0x1e0a…1e30 at0011 = ╱47╱G╱ // 0x1e1b @0x11
0x1e0a…1e30 at0012 = ╱52╱R╱ // 0x1e1c @0x12
0x1e0a…1e30 at0013 = ╱ef╱$╱ // 0x1e1d @0x13
0x1e0a…1e30 at0014 = ╱ee╱)╱ // 0x1e1e @0x14
0x1e0a…1e30 at0015 = ╱e3╱-╱ // 0x1e1f @0x15
0x1e0a…1e30 at0016 = ╱34╱4╱ // 0x1e20 @0x16
0x1e0a…1e30 at0017 = ╱38╱8╱ // 0x1e21 @0x17
0x1e0a…1e30 at0018 = ╱fe0000c006╱ // 0x1e22 @0x18
0x1e0a…1e30 at001d = ╱ee╱)╱ // 0x1e27 @0x1d
0x1e0a…1e30 at001e = ╱dc╱=╱ // 0x1e28 @0x1e
0x1e0a…1e30 at001f = ╱48╱H╱ // 0x1e29 @0x1f
0x1e0a…1e30 at0020 = ╱4b╱K╱ // 0x1e2a @0x20
0x1e0a…1e30 at0021 = ╱55╱U╱ // 0x1e2b @0x21
0x1e0a…1e30 at0022 = ╱4e╱N╱ // 0x1e2c @0x22
0x1e0a…1e30 at0023 = ╱44╱D╱ // 0x1e2d @0x23
0x1e0a…1e30 at0024 = ╱45╱E╱ // 0x1e2e @0x24
0x1e0a…1e30 at0025 = EOL // 0x1e2f @0x25
0x1e0a…1e30 }
0x1e30…1e36 ab8d 3600 ELSE
0x1e30…1e36 LineComalBin {
0x1e30…1e36 ptr = 0xab8d // 0x1e30 @0x0
0x1e30…1e36 lno = 0x0e10 // 0x1e32 @0x2
0x1e30…1e36 at0004 = ╱9a╱ ELSE ╱ // 0x1e34 @0x4
0x1e30…1e36 at0005 = EOL // 0x1e35 @0x5
0x1e30…1e36 }
0x1e36…1e49 aba0 3610 HKUNDE1=HKUNDE
0x1e36…1e49 LineComalBin {
0x1e36…1e49 ptr = 0xaba0 // 0x1e36 @0x0
0x1e36…1e49 lno = 0x0e1a // 0x1e38 @0x2
0x1e36…1e49 at0004 = ╱48╱H╱ // 0x1e3a @0x4
0x1e36…1e49 at0005 = ╱4b╱K╱ // 0x1e3b @0x5
0x1e36…1e49 at0006 = ╱55╱U╱ // 0x1e3c @0x6
0x1e36…1e49 at0007 = ╱4e╱N╱ // 0x1e3d @0x7
0x1e36…1e49 at0008 = ╱44╱D╱ // 0x1e3e @0x8
0x1e36…1e49 at0009 = ╱45╱E╱ // 0x1e3f @0x9
0x1e36…1e49 at000a = ╱31╱1╱ // 0x1e40 @0xa
0x1e36…1e49 at000b = ╱dc╱=╱ // 0x1e41 @0xb
0x1e36…1e49 at000c = ╱48╱H╱ // 0x1e42 @0xc
0x1e36…1e49 at000d = ╱4b╱K╱ // 0x1e43 @0xd
0x1e36…1e49 at000e = ╱55╱U╱ // 0x1e44 @0xe
0x1e36…1e49 at000f = ╱4e╱N╱ // 0x1e45 @0xf
0x1e36…1e49 at0010 = ╱44╱D╱ // 0x1e46 @0x10
0x1e36…1e49 at0011 = ╱45╱E╱ // 0x1e47 @0x11
0x1e36…1e49 at0012 = EOL // 0x1e48 @0x12
0x1e36…1e49 }
0x1e49…1e4f aba6 3620 ENDIF
0x1e49…1e4f LineComalBin {
0x1e49…1e4f ptr = 0xaba6 // 0x1e49 @0x0
0x1e49…1e4f lno = 0x0e24 // 0x1e4b @0x2
0x1e49…1e4f at0004 = ╱9b╱ ENDIF ╱ // 0x1e4d @0x4
0x1e49…1e4f at0005 = EOL // 0x1e4e @0x5
0x1e49…1e4f }
0x1e4f…1e55 abac 3630 ELSE
0x1e4f…1e55 LineComalBin {
0x1e4f…1e55 ptr = 0xabac // 0x1e4f @0x0
0x1e4f…1e55 lno = 0x0e2e // 0x1e51 @0x2
0x1e4f…1e55 at0004 = ╱9a╱ ELSE ╱ // 0x1e53 @0x4
0x1e4f…1e55 at0005 = EOL // 0x1e54 @0x5
0x1e4f…1e55 }
0x1e55…1e65 abbc 3640 IF FUN+AR1=G THEN
0x1e55…1e65 LineComalBin {
0x1e55…1e65 ptr = 0xabbc // 0x1e55 @0x0
0x1e55…1e65 lno = 0x0e38 // 0x1e57 @0x2
0x1e55…1e65 at0004 = ╱9c╱ IF ╱ // 0x1e59 @0x4
0x1e55…1e65 at0005 = ╱46╱F╱ // 0x1e5a @0x5
0x1e55…1e65 at0006 = ╱55╱U╱ // 0x1e5b @0x6
0x1e55…1e65 at0007 = ╱4e╱N╱ // 0x1e5c @0x7
0x1e55…1e65 at0008 = ╱e2╱+╱ // 0x1e5d @0x8
0x1e55…1e65 at0009 = ╱41╱A╱ // 0x1e5e @0x9
0x1e55…1e65 at000a = ╱52╱R╱ // 0x1e5f @0xa
0x1e55…1e65 at000b = ╱31╱1╱ // 0x1e60 @0xb
0x1e55…1e65 at000c = ╱dc╱=╱ // 0x1e61 @0xc
0x1e55…1e65 at000d = ╱47╱G╱ // 0x1e62 @0xd
0x1e55…1e65 at000e = ╱b6╱ THEN ╱ // 0x1e63 @0xe
0x1e55…1e65 at000f = EOL // 0x1e64 @0xf
0x1e55…1e65 }
0x1e65…1e76 abcd 3650 HKUNDE=SPIL2
0x1e65…1e76 LineComalBin {
0x1e65…1e76 ptr = 0xabcd // 0x1e65 @0x0
0x1e65…1e76 lno = 0x0e42 // 0x1e67 @0x2
0x1e65…1e76 at0004 = ╱48╱H╱ // 0x1e69 @0x4
0x1e65…1e76 at0005 = ╱4b╱K╱ // 0x1e6a @0x5
0x1e65…1e76 at0006 = ╱55╱U╱ // 0x1e6b @0x6
0x1e65…1e76 at0007 = ╱4e╱N╱ // 0x1e6c @0x7
0x1e65…1e76 at0008 = ╱44╱D╱ // 0x1e6d @0x8
0x1e65…1e76 at0009 = ╱45╱E╱ // 0x1e6e @0x9
0x1e65…1e76 at000a = ╱dc╱=╱ // 0x1e6f @0xa
0x1e65…1e76 at000b = ╱53╱S╱ // 0x1e70 @0xb
0x1e65…1e76 at000c = ╱50╱P╱ // 0x1e71 @0xc
0x1e65…1e76 at000d = ╱49╱I╱ // 0x1e72 @0xd
0x1e65…1e76 at000e = ╱4c╱L╱ // 0x1e73 @0xe
0x1e65…1e76 at000f = ╱32╱2╱ // 0x1e74 @0xf
0x1e65…1e76 at0010 = EOL // 0x1e75 @0x10
0x1e65…1e76 }
0x1e76…1e84 abdb 3660 IF SPIL1=B THEN
0x1e76…1e84 LineComalBin {
0x1e76…1e84 ptr = 0xabdb // 0x1e76 @0x0
0x1e76…1e84 lno = 0x0e4c // 0x1e78 @0x2
0x1e76…1e84 at0004 = ╱9c╱ IF ╱ // 0x1e7a @0x4
0x1e76…1e84 at0005 = ╱53╱S╱ // 0x1e7b @0x5
0x1e76…1e84 at0006 = ╱50╱P╱ // 0x1e7c @0x6
0x1e76…1e84 at0007 = ╱49╱I╱ // 0x1e7d @0x7
0x1e76…1e84 at0008 = ╱4c╱L╱ // 0x1e7e @0x8
0x1e76…1e84 at0009 = ╱31╱1╱ // 0x1e7f @0x9
0x1e76…1e84 at000a = ╱dc╱=╱ // 0x1e80 @0xa
0x1e76…1e84 at000b = ╱42╱B╱ // 0x1e81 @0xb
0x1e76…1e84 at000c = ╱b6╱ THEN ╱ // 0x1e82 @0xc
0x1e76…1e84 at000d = EOL // 0x1e83 @0xd
0x1e76…1e84 }
0x1e84…1ea9 ac00 3670 KARRAY(ORD(DEBKGR$)-48)=DEBNR
0x1e84…1ea9 LineComalBin {
0x1e84…1ea9 ptr = 0xac00 // 0x1e84 @0x0
0x1e84…1ea9 lno = 0x0e56 // 0x1e86 @0x2
0x1e84…1ea9 at0004 = ╱4b╱K╱ // 0x1e88 @0x4
0x1e84…1ea9 at0005 = ╱41╱A╱ // 0x1e89 @0x5
0x1e84…1ea9 at0006 = ╱52╱R╱ // 0x1e8a @0x6
0x1e84…1ea9 at0007 = ╱52╱R╱ // 0x1e8b @0x7
0x1e84…1ea9 at0008 = ╱41╱A╱ // 0x1e8c @0x8
0x1e84…1ea9 at0009 = ╱59╱Y╱ // 0x1e8d @0x9
0x1e84…1ea9 at000a = ╱ed╱(╱ // 0x1e8e @0xa
0x1e84…1ea9 at000b = ╱cd╱ORD╱ // 0x1e8f @0xb
0x1e84…1ea9 at000c = ╱ed╱(╱ // 0x1e90 @0xc
0x1e84…1ea9 at000d = ╱44╱D╱ // 0x1e91 @0xd
0x1e84…1ea9 at000e = ╱45╱E╱ // 0x1e92 @0xe
0x1e84…1ea9 at000f = ╱42╱B╱ // 0x1e93 @0xf
0x1e84…1ea9 at0010 = ╱4b╱K╱ // 0x1e94 @0x10
0x1e84…1ea9 at0011 = ╱47╱G╱ // 0x1e95 @0x11
0x1e84…1ea9 at0012 = ╱52╱R╱ // 0x1e96 @0x12
0x1e84…1ea9 at0013 = ╱ef╱$╱ // 0x1e97 @0x13
0x1e84…1ea9 at0014 = ╱ee╱)╱ // 0x1e98 @0x14
0x1e84…1ea9 at0015 = ╱e3╱-╱ // 0x1e99 @0x15
0x1e84…1ea9 at0016 = ╱34╱4╱ // 0x1e9a @0x16
0x1e84…1ea9 at0017 = ╱38╱8╱ // 0x1e9b @0x17
0x1e84…1ea9 at0018 = ╱fe0000c006╱ // 0x1e9c @0x18
0x1e84…1ea9 at001d = ╱ee╱)╱ // 0x1ea1 @0x1d
0x1e84…1ea9 at001e = ╱dc╱=╱ // 0x1ea2 @0x1e
0x1e84…1ea9 at001f = ╱44╱D╱ // 0x1ea3 @0x1f
0x1e84…1ea9 at0020 = ╱45╱E╱ // 0x1ea4 @0x20
0x1e84…1ea9 at0021 = ╱42╱B╱ // 0x1ea5 @0x21
0x1e84…1ea9 at0022 = ╱4e╱N╱ // 0x1ea6 @0x22
0x1e84…1ea9 at0023 = ╱52╱R╱ // 0x1ea7 @0x23
0x1e84…1ea9 at0024 = EOL // 0x1ea8 @0x24
0x1e84…1ea9 }
0x1ea9…1eaf ac06 3680 ELSE
0x1ea9…1eaf LineComalBin {
0x1ea9…1eaf ptr = 0xac06 // 0x1ea9 @0x0
0x1ea9…1eaf lno = 0x0e60 // 0x1eab @0x2
0x1ea9…1eaf at0004 = ╱9a╱ ELSE ╱ // 0x1ead @0x4
0x1ea9…1eaf at0005 = EOL // 0x1eae @0x5
0x1ea9…1eaf }
0x1eaf…1ec1 ac18 3690 HKUNDE1=DEBNR
0x1eaf…1ec1 LineComalBin {
0x1eaf…1ec1 ptr = 0xac18 // 0x1eaf @0x0
0x1eaf…1ec1 lno = 0x0e6a // 0x1eb1 @0x2
0x1eaf…1ec1 at0004 = ╱48╱H╱ // 0x1eb3 @0x4
0x1eaf…1ec1 at0005 = ╱4b╱K╱ // 0x1eb4 @0x5
0x1eaf…1ec1 at0006 = ╱55╱U╱ // 0x1eb5 @0x6
0x1eaf…1ec1 at0007 = ╱4e╱N╱ // 0x1eb6 @0x7
0x1eaf…1ec1 at0008 = ╱44╱D╱ // 0x1eb7 @0x8
0x1eaf…1ec1 at0009 = ╱45╱E╱ // 0x1eb8 @0x9
0x1eaf…1ec1 at000a = ╱31╱1╱ // 0x1eb9 @0xa
0x1eaf…1ec1 at000b = ╱dc╱=╱ // 0x1eba @0xb
0x1eaf…1ec1 at000c = ╱44╱D╱ // 0x1ebb @0xc
0x1eaf…1ec1 at000d = ╱45╱E╱ // 0x1ebc @0xd
0x1eaf…1ec1 at000e = ╱42╱B╱ // 0x1ebd @0xe
0x1eaf…1ec1 at000f = ╱4e╱N╱ // 0x1ebe @0xf
0x1eaf…1ec1 at0010 = ╱52╱R╱ // 0x1ebf @0x10
0x1eaf…1ec1 at0011 = EOL // 0x1ec0 @0x11
0x1eaf…1ec1 }
0x1ec1…1ec7 ac1e 3700 ENDIF
0x1ec1…1ec7 LineComalBin {
0x1ec1…1ec7 ptr = 0xac1e // 0x1ec1 @0x0
0x1ec1…1ec7 lno = 0x0e74 // 0x1ec3 @0x2
0x1ec1…1ec7 at0004 = ╱9b╱ ENDIF ╱ // 0x1ec5 @0x4
0x1ec1…1ec7 at0005 = EOL // 0x1ec6 @0x5
0x1ec1…1ec7 }
0x1ec7…1ecd ac24 3710 ELSE
0x1ec7…1ecd LineComalBin {
0x1ec7…1ecd ptr = 0xac24 // 0x1ec7 @0x0
0x1ec7…1ecd lno = 0x0e7e // 0x1ec9 @0x2
0x1ec7…1ecd at0004 = ╱9a╱ ELSE ╱ // 0x1ecb @0x4
0x1ec7…1ecd at0005 = EOL // 0x1ecc @0x5
0x1ec7…1ecd }
0x1ecd…1ed3 ac2a 3720 STOP
0x1ecd…1ed3 LineComalBin {
0x1ecd…1ed3 ptr = 0xac2a // 0x1ecd @0x0
0x1ecd…1ed3 lno = 0x0e88 // 0x1ecf @0x2
0x1ecd…1ed3 at0004 = ╱8d╱ STOP ╱ // 0x1ed1 @0x4
0x1ecd…1ed3 at0005 = EOL // 0x1ed2 @0x5
0x1ecd…1ed3 }
0x1ed3…1ed9 ac30 3730 ENDIF
0x1ed3…1ed9 LineComalBin {
0x1ed3…1ed9 ptr = 0xac30 // 0x1ed3 @0x0
0x1ed3…1ed9 lno = 0x0e92 // 0x1ed5 @0x2
0x1ed3…1ed9 at0004 = ╱9b╱ ENDIF ╱ // 0x1ed7 @0x4
0x1ed3…1ed9 at0005 = EOL // 0x1ed8 @0x5
0x1ed3…1ed9 }
0x1ed9…1edf ac36 3740 ENDIF
0x1ed9…1edf LineComalBin {
0x1ed9…1edf ptr = 0xac36 // 0x1ed9 @0x0
0x1ed9…1edf lno = 0x0e9c // 0x1edb @0x2
0x1ed9…1edf at0004 = ╱9b╱ ENDIF ╱ // 0x1edd @0x4
0x1ed9…1edf at0005 = EOL // 0x1ede @0x5
0x1ed9…1edf }
0x1edf…1f03 ac5a 3750 IF (FUN+AR1=B OR FUN+AR1=G) AND SPIL1<>B THEN
0x1edf…1f03 LineComalBin {
0x1edf…1f03 ptr = 0xac5a // 0x1edf @0x0
0x1edf…1f03 lno = 0x0ea6 // 0x1ee1 @0x2
0x1edf…1f03 at0004 = ╱9c╱ IF ╱ // 0x1ee3 @0x4
0x1edf…1f03 at0005 = ╱ed╱(╱ // 0x1ee4 @0x5
0x1edf…1f03 at0006 = ╱46╱F╱ // 0x1ee5 @0x6
0x1edf…1f03 at0007 = ╱55╱U╱ // 0x1ee6 @0x7
0x1edf…1f03 at0008 = ╱4e╱N╱ // 0x1ee7 @0x8
0x1edf…1f03 at0009 = ╱e2╱+╱ // 0x1ee8 @0x9
0x1edf…1f03 at000a = ╱41╱A╱ // 0x1ee9 @0xa
0x1edf…1f03 at000b = ╱52╱R╱ // 0x1eea @0xb
0x1edf…1f03 at000c = ╱31╱1╱ // 0x1eeb @0xc
0x1edf…1f03 at000d = ╱dc╱=╱ // 0x1eec @0xd
0x1edf…1f03 at000e = ╱42╱B╱ // 0x1eed @0xe
0x1edf…1f03 at000f = ╱db╱ OR ╱ // 0x1eee @0xf
0x1edf…1f03 at0010 = ╱46╱F╱ // 0x1eef @0x10
0x1edf…1f03 at0011 = ╱55╱U╱ // 0x1ef0 @0x11
0x1edf…1f03 at0012 = ╱4e╱N╱ // 0x1ef1 @0x12
0x1edf…1f03 at0013 = ╱e2╱+╱ // 0x1ef2 @0x13
0x1edf…1f03 at0014 = ╱41╱A╱ // 0x1ef3 @0x14
0x1edf…1f03 at0015 = ╱52╱R╱ // 0x1ef4 @0x15
0x1edf…1f03 at0016 = ╱31╱1╱ // 0x1ef5 @0x16
0x1edf…1f03 at0017 = ╱dc╱=╱ // 0x1ef6 @0x17
0x1edf…1f03 at0018 = ╱47╱G╱ // 0x1ef7 @0x18
0x1edf…1f03 at0019 = ╱ee╱)╱ // 0x1ef8 @0x19
0x1edf…1f03 at001a = ╱da╱ AND ╱ // 0x1ef9 @0x1a
0x1edf…1f03 at001b = ╱53╱S╱ // 0x1efa @0x1b
0x1edf…1f03 at001c = ╱50╱P╱ // 0x1efb @0x1c
0x1edf…1f03 at001d = ╱49╱I╱ // 0x1efc @0x1d
0x1edf…1f03 at001e = ╱4c╱L╱ // 0x1efd @0x1e
0x1edf…1f03 at001f = ╱31╱1╱ // 0x1efe @0x1f
0x1edf…1f03 at0020 = ╱e1╱<>╱ // 0x1eff @0x20
0x1edf…1f03 at0021 = ╱42╱B╱ // 0x1f00 @0x21
0x1edf…1f03 at0022 = ╱b6╱ THEN ╱ // 0x1f01 @0x22
0x1edf…1f03 at0023 = EOL // 0x1f02 @0x23
0x1edf…1f03 }
0x1f03…1f3e ac95 3760 PUT K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1
0x1f03…1f3e LineComalBin {
0x1f03…1f3e ptr = 0xac95 // 0x1f03 @0x0
0x1f03…1f3e lno = 0x0eb0 // 0x1f05 @0x2
0x1f03…1f3e at0004 = ╱aa╱ PUT ╱ // 0x1f07 @0x4
0x1f03…1f3e at0005 = ╱4b╱K╱ // 0x1f08 @0x5
0x1f03…1f3e at0006 = ╱33╱3╱ // 0x1f09 @0x6
0x1f03…1f3e at0007 = ╱ef╱$╱ // 0x1f0a @0x7
0x1f03…1f3e at0008 = ╱ec╱,╱ // 0x1f0b @0x8
0x1f03…1f3e at0009 = ╱44╱D╱ // 0x1f0c @0x9
0x1f03…1f3e at000a = ╱54╱T╱ // 0x1f0d @0xa
0x1f03…1f3e at000b = ╱41╱A╱ // 0x1f0e @0xb
0x1f03…1f3e at000c = ╱42╱B╱ // 0x1f0f @0xc
0x1f03…1f3e at000d = ╱ed╱(╱ // 0x1f10 @0xd
0x1f03…1f3e at000e = ╱44╱D╱ // 0x1f11 @0xe
0x1f03…1f3e at000f = ╱50╱P╱ // 0x1f12 @0xf
0x1f03…1f3e at0010 = ╱49╱I╱ // 0x1f13 @0x10
0x1f03…1f3e at0011 = ╱4c╱L╱ // 0x1f14 @0x11
0x1f03…1f3e at0012 = ╱33╱3╱ // 0x1f15 @0x12
0x1f03…1f3e at0013 = ╱ec╱,╱ // 0x1f16 @0x13
0x1f03…1f3e at0014 = ╱47╱G╱ // 0x1f17 @0x14
0x1f03…1f3e at0015 = ╱ee╱)╱ // 0x1f18 @0x15
0x1f03…1f3e at0016 = ╱e2╱+╱ // 0x1f19 @0x16
0x1f03…1f3e at0017 = ╱47╱G╱ // 0x1f1a @0x17
0x1f03…1f3e at0018 = ╱f0╱:╱ // 0x1f1b @0x18
0x1f03…1f3e at0019 = ╱44╱D╱ // 0x1f1c @0x19
0x1f03…1f3e at001a = ╱45╱E╱ // 0x1f1d @0x1a
0x1f03…1f3e at001b = ╱42╱B╱ // 0x1f1e @0x1b
0x1f03…1f3e at001c = ╱47╱G╱ // 0x1f1f @0x1c
0x1f03…1f3e at001d = ╱41╱A╱ // 0x1f20 @0x1d
0x1f03…1f3e at001e = ╱44╱D╱ // 0x1f21 @0x1e
0x1f03…1f3e at001f = ╱45╱E╱ // 0x1f22 @0x1f
0x1f03…1f3e at0020 = ╱31╱1╱ // 0x1f23 @0x20
0x1f03…1f3e at0021 = ╱ef╱$╱ // 0x1f24 @0x21
0x1f03…1f3e at0022 = ╱ec╱,╱ // 0x1f25 @0x22
0x1f03…1f3e at0023 = ╱44╱D╱ // 0x1f26 @0x23
0x1f03…1f3e at0024 = ╱45╱E╱ // 0x1f27 @0x24
0x1f03…1f3e at0025 = ╱42╱B╱ // 0x1f28 @0x25
0x1f03…1f3e at0026 = ╱54╱T╱ // 0x1f29 @0x26
0x1f03…1f3e at0027 = ╱4c╱L╱ // 0x1f2a @0x27
0x1f03…1f3e at0028 = ╱46╱F╱ // 0x1f2b @0x28
0x1f03…1f3e at0029 = ╱31╱1╱ // 0x1f2c @0x29
0x1f03…1f3e at002a = ╱ef╱$╱ // 0x1f2d @0x2a
0x1f03…1f3e at002b = ╱ec╱,╱ // 0x1f2e @0x2b
0x1f03…1f3e at002c = ╱48╱H╱ // 0x1f2f @0x2c
0x1f03…1f3e at002d = ╱50╱P╱ // 0x1f30 @0x2d
0x1f03…1f3e at002e = ╱4f╱O╱ // 0x1f31 @0x2e
0x1f03…1f3e at002f = ╱53╱S╱ // 0x1f32 @0x2f
0x1f03…1f3e at0030 = ╱54╱T╱ // 0x1f33 @0x30
0x1f03…1f3e at0031 = ╱31╱1╱ // 0x1f34 @0x31
0x1f03…1f3e at0032 = ╱ec╱,╱ // 0x1f35 @0x32
0x1f03…1f3e at0033 = ╱48╱H╱ // 0x1f36 @0x33
0x1f03…1f3e at0034 = ╱4b╱K╱ // 0x1f37 @0x34
0x1f03…1f3e at0035 = ╱55╱U╱ // 0x1f38 @0x35
0x1f03…1f3e at0036 = ╱4e╱N╱ // 0x1f39 @0x36
0x1f03…1f3e at0037 = ╱44╱D╱ // 0x1f3a @0x37
0x1f03…1f3e at0038 = ╱45╱E╱ // 0x1f3b @0x38
0x1f03…1f3e at0039 = ╱31╱1╱ // 0x1f3c @0x39
0x1f03…1f3e at003a = EOL // 0x1f3d @0x3a
0x1f03…1f3e }
0x1f3e…1f57 acae 3770 EXEC FEJL(11,G,K3$)
0x1f3e…1f57 LineComalBin {
0x1f3e…1f57 ptr = 0xacae // 0x1f3e @0x0
0x1f3e…1f57 lno = 0x0eba // 0x1f40 @0x2
0x1f3e…1f57 at0004 = ╱9d╱ EXEC ╱ // 0x1f42 @0x4
0x1f3e…1f57 at0005 = ╱46╱F╱ // 0x1f43 @0x5
0x1f3e…1f57 at0006 = ╱45╱E╱ // 0x1f44 @0x6
0x1f3e…1f57 at0007 = ╱4a╱J╱ // 0x1f45 @0x7
0x1f3e…1f57 at0008 = ╱4c╱L╱ // 0x1f46 @0x8
0x1f3e…1f57 at0009 = ╱ed╱(╱ // 0x1f47 @0x9
0x1f3e…1f57 at000a = ╱31╱1╱ // 0x1f48 @0xa
0x1f3e…1f57 at000b = ╱31╱1╱ // 0x1f49 @0xb
0x1f3e…1f57 at000c = ╱fe0000b004╱ // 0x1f4a @0xc
0x1f3e…1f57 at0011 = ╱ec╱,╱ // 0x1f4f @0x11
0x1f3e…1f57 at0012 = ╱47╱G╱ // 0x1f50 @0x12
0x1f3e…1f57 at0013 = ╱ec╱,╱ // 0x1f51 @0x13
0x1f3e…1f57 at0014 = ╱4b╱K╱ // 0x1f52 @0x14
0x1f3e…1f57 at0015 = ╱33╱3╱ // 0x1f53 @0x15
0x1f3e…1f57 at0016 = ╱ef╱$╱ // 0x1f54 @0x16
0x1f3e…1f57 at0017 = ╱ee╱)╱ // 0x1f55 @0x17
0x1f3e…1f57 at0018 = EOL // 0x1f56 @0x18
0x1f3e…1f57 }
0x1f57…1f5d acb4 3780 ENDIF
0x1f57…1f5d LineComalBin {
0x1f57…1f5d ptr = 0xacb4 // 0x1f57 @0x0
0x1f57…1f5d lno = 0x0ec4 // 0x1f59 @0x2
0x1f57…1f5d at0004 = ╱9b╱ ENDIF ╱ // 0x1f5b @0x4
0x1f57…1f5d at0005 = EOL // 0x1f5c @0x5
0x1f57…1f5d }
0x1f5d…1f63 acba 3790 ENDPROC
0x1f5d…1f63 LineComalBin {
0x1f5d…1f63 ptr = 0xacba // 0x1f5d @0x0
0x1f5d…1f63 lno = 0x0ece // 0x1f5f @0x2
0x1f5d…1f63 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f61 @0x4
0x1f5d…1f63 at0005 = EOL // 0x1f62 @0x5
0x1f5d…1f63 }
0x1f63…1f78 accf 3800 PROC KSØG(NØGLE,KGR)
0x1f63…1f78 LineComalBin {
0x1f63…1f78 ptr = 0xaccf // 0x1f63 @0x0
0x1f63…1f78 lno = 0x0ed8 // 0x1f65 @0x2
0x1f63…1f78 at0004 = ╱9e╱ PROC ╱ // 0x1f67 @0x4
0x1f63…1f78 at0005 = ╱4b╱K╱ // 0x1f68 @0x5
0x1f63…1f78 at0006 = ╱53╱S╱ // 0x1f69 @0x6
0x1f63…1f78 at0007 = ╱5c╱Ø╱ // 0x1f6a @0x7
0x1f63…1f78 at0008 = ╱47╱G╱ // 0x1f6b @0x8
0x1f63…1f78 at0009 = ╱ed╱(╱ // 0x1f6c @0x9
0x1f63…1f78 at000a = ╱4e╱N╱ // 0x1f6d @0xa
0x1f63…1f78 at000b = ╱5c╱Ø╱ // 0x1f6e @0xb
0x1f63…1f78 at000c = ╱47╱G╱ // 0x1f6f @0xc
0x1f63…1f78 at000d = ╱4c╱L╱ // 0x1f70 @0xd
0x1f63…1f78 at000e = ╱45╱E╱ // 0x1f71 @0xe
0x1f63…1f78 at000f = ╱ec╱,╱ // 0x1f72 @0xf
0x1f63…1f78 at0010 = ╱4b╱K╱ // 0x1f73 @0x10
0x1f63…1f78 at0011 = ╱47╱G╱ // 0x1f74 @0x11
0x1f63…1f78 at0012 = ╱52╱R╱ // 0x1f75 @0x12
0x1f63…1f78 at0013 = ╱ee╱)╱ // 0x1f76 @0x13
0x1f63…1f78 at0014 = EOL // 0x1f77 @0x14
0x1f63…1f78 }
0x1f78…1f9c acf3 3810 FUN=E;SPIL1=B;SPIL2=KARRAY(KGR)
0x1f78…1f9c LineComalBin {
0x1f78…1f9c ptr = 0xacf3 // 0x1f78 @0x0
0x1f78…1f9c lno = 0x0ee2 // 0x1f7a @0x2
0x1f78…1f9c at0004 = ╱46╱F╱ // 0x1f7c @0x4
0x1f78…1f9c at0005 = ╱55╱U╱ // 0x1f7d @0x5
0x1f78…1f9c at0006 = ╱4e╱N╱ // 0x1f7e @0x6
0x1f78…1f9c at0007 = ╱dc╱=╱ // 0x1f7f @0x7
0x1f78…1f9c at0008 = ╱45╱E╱ // 0x1f80 @0x8
0x1f78…1f9c at0009 = ╱eb╱;╱ // 0x1f81 @0x9
0x1f78…1f9c at000a = ╱53╱S╱ // 0x1f82 @0xa
0x1f78…1f9c at000b = ╱50╱P╱ // 0x1f83 @0xb
0x1f78…1f9c at000c = ╱49╱I╱ // 0x1f84 @0xc
0x1f78…1f9c at000d = ╱4c╱L╱ // 0x1f85 @0xd
0x1f78…1f9c at000e = ╱31╱1╱ // 0x1f86 @0xe
0x1f78…1f9c at000f = ╱dc╱=╱ // 0x1f87 @0xf
0x1f78…1f9c at0010 = ╱42╱B╱ // 0x1f88 @0x10
0x1f78…1f9c at0011 = ╱eb╱;╱ // 0x1f89 @0x11
0x1f78…1f9c at0012 = ╱53╱S╱ // 0x1f8a @0x12
0x1f78…1f9c at0013 = ╱50╱P╱ // 0x1f8b @0x13
0x1f78…1f9c at0014 = ╱49╱I╱ // 0x1f8c @0x14
0x1f78…1f9c at0015 = ╱4c╱L╱ // 0x1f8d @0x15
0x1f78…1f9c at0016 = ╱32╱2╱ // 0x1f8e @0x16
0x1f78…1f9c at0017 = ╱dc╱=╱ // 0x1f8f @0x17
0x1f78…1f9c at0018 = ╱4b╱K╱ // 0x1f90 @0x18
0x1f78…1f9c at0019 = ╱41╱A╱ // 0x1f91 @0x19
0x1f78…1f9c at001a = ╱52╱R╱ // 0x1f92 @0x1a
0x1f78…1f9c at001b = ╱52╱R╱ // 0x1f93 @0x1b
0x1f78…1f9c at001c = ╱41╱A╱ // 0x1f94 @0x1c
0x1f78…1f9c at001d = ╱59╱Y╱ // 0x1f95 @0x1d
0x1f78…1f9c at001e = ╱ed╱(╱ // 0x1f96 @0x1e
0x1f78…1f9c at001f = ╱4b╱K╱ // 0x1f97 @0x1f
0x1f78…1f9c at0020 = ╱47╱G╱ // 0x1f98 @0x20
0x1f78…1f9c at0021 = ╱52╱R╱ // 0x1f99 @0x21
0x1f78…1f9c at0022 = ╱ee╱)╱ // 0x1f9a @0x22
0x1f78…1f9c at0023 = EOL // 0x1f9b @0x23
0x1f78…1f9c }
0x1f9c…1fb6 ad0d 3820 IF SPIL2<NØGLE AND SPIL2>B THEN
0x1f9c…1fb6 LineComalBin {
0x1f9c…1fb6 ptr = 0xad0d // 0x1f9c @0x0
0x1f9c…1fb6 lno = 0x0eec // 0x1f9e @0x2
0x1f9c…1fb6 at0004 = ╱9c╱ IF ╱ // 0x1fa0 @0x4
0x1f9c…1fb6 at0005 = ╱53╱S╱ // 0x1fa1 @0x5
0x1f9c…1fb6 at0006 = ╱50╱P╱ // 0x1fa2 @0x6
0x1f9c…1fb6 at0007 = ╱49╱I╱ // 0x1fa3 @0x7
0x1f9c…1fb6 at0008 = ╱4c╱L╱ // 0x1fa4 @0x8
0x1f9c…1fb6 at0009 = ╱32╱2╱ // 0x1fa5 @0x9
0x1f9c…1fb6 at000a = ╱dd╱<╱ // 0x1fa6 @0xa
0x1f9c…1fb6 at000b = ╱4e╱N╱ // 0x1fa7 @0xb
0x1f9c…1fb6 at000c = ╱5c╱Ø╱ // 0x1fa8 @0xc
0x1f9c…1fb6 at000d = ╱47╱G╱ // 0x1fa9 @0xd
0x1f9c…1fb6 at000e = ╱4c╱L╱ // 0x1faa @0xe
0x1f9c…1fb6 at000f = ╱45╱E╱ // 0x1fab @0xf
0x1f9c…1fb6 at0010 = ╱da╱ AND ╱ // 0x1fac @0x10
0x1f9c…1fb6 at0011 = ╱53╱S╱ // 0x1fad @0x11
0x1f9c…1fb6 at0012 = ╱50╱P╱ // 0x1fae @0x12
0x1f9c…1fb6 at0013 = ╱49╱I╱ // 0x1faf @0x13
0x1f9c…1fb6 at0014 = ╱4c╱L╱ // 0x1fb0 @0x14
0x1f9c…1fb6 at0015 = ╱32╱2╱ // 0x1fb1 @0x15
0x1f9c…1fb6 at0016 = ╱de╱>╱ // 0x1fb2 @0x16
0x1f9c…1fb6 at0017 = ╱42╱B╱ // 0x1fb3 @0x17
0x1f9c…1fb6 at0018 = ╱b6╱ THEN ╱ // 0x1fb4 @0x18
0x1f9c…1fb6 at0019 = EOL // 0x1fb5 @0x19
0x1f9c…1fb6 }
0x1fb6…1fbc ad13 3830 REPEAT
0x1fb6…1fbc LineComalBin {
0x1fb6…1fbc ptr = 0xad13 // 0x1fb6 @0x0
0x1fb6…1fbc lno = 0x0ef6 // 0x1fb8 @0x2
0x1fb6…1fbc at0004 = ╱97╱ REPEAT ╱ // 0x1fba @0x4
0x1fb6…1fbc at0005 = EOL // 0x1fbb @0x5
0x1fb6…1fbc }
0x1fbc…1fcc ad23 3840 SPIL1=SPIL2
0x1fbc…1fcc LineComalBin {
0x1fbc…1fcc ptr = 0xad23 // 0x1fbc @0x0
0x1fbc…1fcc lno = 0x0f00 // 0x1fbe @0x2
0x1fbc…1fcc at0004 = ╱53╱S╱ // 0x1fc0 @0x4
0x1fbc…1fcc at0005 = ╱50╱P╱ // 0x1fc1 @0x5
0x1fbc…1fcc at0006 = ╱49╱I╱ // 0x1fc2 @0x6
0x1fbc…1fcc at0007 = ╱4c╱L╱ // 0x1fc3 @0x7
0x1fbc…1fcc at0008 = ╱31╱1╱ // 0x1fc4 @0x8
0x1fbc…1fcc at0009 = ╱dc╱=╱ // 0x1fc5 @0x9
0x1fbc…1fcc at000a = ╱53╱S╱ // 0x1fc6 @0xa
0x1fbc…1fcc at000b = ╱50╱P╱ // 0x1fc7 @0xb
0x1fbc…1fcc at000c = ╱49╱I╱ // 0x1fc8 @0xc
0x1fbc…1fcc at000d = ╱4c╱L╱ // 0x1fc9 @0xd
0x1fbc…1fcc at000e = ╱32╱2╱ // 0x1fca @0xe
0x1fbc…1fcc at000f = EOL // 0x1fcb @0xf
0x1fbc…1fcc }
0x1fcc…1ff4 ad4b 3850 EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3)
0x1fcc…1ff4 LineComalBin {
0x1fcc…1ff4 ptr = 0xad4b // 0x1fcc @0x0
0x1fcc…1ff4 lno = 0x0f0a // 0x1fce @0x2
0x1fcc…1ff4 at0004 = ╱9d╱ EXEC ╱ // 0x1fd0 @0x4
0x1fcc…1ff4 at0005 = ╱46╱F╱ // 0x1fd1 @0x5
0x1fcc…1ff4 at0006 = ╱49╱I╱ // 0x1fd2 @0x6
0x1fcc…1ff4 at0007 = ╱4e╱N╱ // 0x1fd3 @0x7
0x1fcc…1ff4 at0008 = ╱44╱D╱ // 0x1fd4 @0x8
0x1fcc…1ff4 at0009 = ╱50╱P╱ // 0x1fd5 @0x9
0x1fcc…1ff4 at000a = ╱4f╱O╱ // 0x1fd6 @0xa
0x1fcc…1ff4 at000b = ╱53╱S╱ // 0x1fd7 @0xb
0x1fcc…1ff4 at000c = ╱54╱T╱ // 0x1fd8 @0xc
0x1fcc…1ff4 at000d = ╱ed╱(╱ // 0x1fd9 @0xd
0x1fcc…1ff4 at000e = ╱44╱D╱ // 0x1fda @0xe
0x1fcc…1ff4 at000f = ╱54╱T╱ // 0x1fdb @0xf
0x1fcc…1ff4 at0010 = ╱41╱A╱ // 0x1fdc @0x10
0x1fcc…1ff4 at0011 = ╱42╱B╱ // 0x1fdd @0x11
0x1fcc…1ff4 at0012 = ╱ec╱,╱ // 0x1fde @0x12
0x1fcc…1ff4 at0013 = ╱4d╱M╱ // 0x1fdf @0x13
0x1fcc…1ff4 at0014 = ╱44╱D╱ // 0x1fe0 @0x14
0x1fcc…1ff4 at0015 = ╱41╱A╱ // 0x1fe1 @0x15
0x1fcc…1ff4 at0016 = ╱4e╱N╱ // 0x1fe2 @0x16
0x1fcc…1ff4 at0017 = ╱54╱T╱ // 0x1fe3 @0x17
0x1fcc…1ff4 at0018 = ╱41╱A╱ // 0x1fe4 @0x18
0x1fcc…1ff4 at0019 = ╱4c╱L╱ // 0x1fe5 @0x19
0x1fcc…1ff4 at001a = ╱ec╱,╱ // 0x1fe6 @0x1a
0x1fcc…1ff4 at001b = ╱53╱S╱ // 0x1fe7 @0x1b
0x1fcc…1ff4 at001c = ╱50╱P╱ // 0x1fe8 @0x1c
0x1fcc…1ff4 at001d = ╱49╱I╱ // 0x1fe9 @0x1d
0x1fcc…1ff4 at001e = ╱4c╱L╱ // 0x1fea @0x1e
0x1fcc…1ff4 at001f = ╱31╱1╱ // 0x1feb @0x1f
0x1fcc…1ff4 at0020 = ╱ec╱,╱ // 0x1fec @0x20
0x1fcc…1ff4 at0021 = ╱44╱D╱ // 0x1fed @0x21
0x1fcc…1ff4 at0022 = ╱50╱P╱ // 0x1fee @0x22
0x1fcc…1ff4 at0023 = ╱49╱I╱ // 0x1fef @0x23
0x1fcc…1ff4 at0024 = ╱4c╱L╱ // 0x1ff0 @0x24
0x1fcc…1ff4 at0025 = ╱33╱3╱ // 0x1ff1 @0x25
0x1fcc…1ff4 at0026 = ╱ee╱)╱ // 0x1ff2 @0x26
0x1fcc…1ff4 at0027 = EOL // 0x1ff3 @0x27
0x1fcc…1ff4 }
0x1ff4…2002 ad59 3860 IF CEKS=E THEN STOP
0x1ff4…2002 LineComalBin {
0x1ff4…2002 ptr = 0xad59 // 0x1ff4 @0x0
0x1ff4…2002 lno = 0x0f14 // 0x1ff6 @0x2
0x1ff4…2002 at0004 = ╱82╱ IF ╱ // 0x1ff8 @0x4
0x1ff4…2002 at0005 = ╱43╱C╱ // 0x1ff9 @0x5
0x1ff4…2002 at0006 = ╱45╱E╱ // 0x1ffa @0x6
0x1ff4…2002 at0007 = ╱4b╱K╱ // 0x1ffb @0x7
0x1ff4…2002 at0008 = ╱53╱S╱ // 0x1ffc @0x8
0x1ff4…2002 at0009 = ╱dc╱=╱ // 0x1ffd @0x9
0x1ff4…2002 at000a = ╱45╱E╱ // 0x1ffe @0xa
0x1ff4…2002 at000b = ╱b6╱ THEN ╱ // 0x1fff @0xb
0x1ff4…2002 at000c = ╱8d╱ STOP ╱ // 0x2000 @0xc
0x1ff4…2002 at000d = EOL // 0x2001 @0xd
0x1ff4…2002 }
0x2002…203d ad94 3870 GET K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1
0x2002…203d LineComalBin {
0x2002…203d ptr = 0xad94 // 0x2002 @0x0
0x2002…203d lno = 0x0f1e // 0x2004 @0x2
0x2002…203d at0004 = ╱a9╱ GET ╱ // 0x2006 @0x4
0x2002…203d at0005 = ╱4b╱K╱ // 0x2007 @0x5
0x2002…203d at0006 = ╱33╱3╱ // 0x2008 @0x6
0x2002…203d at0007 = ╱ef╱$╱ // 0x2009 @0x7
0x2002…203d at0008 = ╱ec╱,╱ // 0x200a @0x8
0x2002…203d at0009 = ╱44╱D╱ // 0x200b @0x9
0x2002…203d at000a = ╱54╱T╱ // 0x200c @0xa
0x2002…203d at000b = ╱41╱A╱ // 0x200d @0xb
0x2002…203d at000c = ╱42╱B╱ // 0x200e @0xc
0x2002…203d at000d = ╱ed╱(╱ // 0x200f @0xd
0x2002…203d at000e = ╱44╱D╱ // 0x2010 @0xe
0x2002…203d at000f = ╱50╱P╱ // 0x2011 @0xf
0x2002…203d at0010 = ╱49╱I╱ // 0x2012 @0x10
0x2002…203d at0011 = ╱4c╱L╱ // 0x2013 @0x11
0x2002…203d at0012 = ╱33╱3╱ // 0x2014 @0x12
0x2002…203d at0013 = ╱ec╱,╱ // 0x2015 @0x13
0x2002…203d at0014 = ╱47╱G╱ // 0x2016 @0x14
0x2002…203d at0015 = ╱ee╱)╱ // 0x2017 @0x15
0x2002…203d at0016 = ╱e2╱+╱ // 0x2018 @0x16
0x2002…203d at0017 = ╱47╱G╱ // 0x2019 @0x17
0x2002…203d at0018 = ╱f0╱:╱ // 0x201a @0x18
0x2002…203d at0019 = ╱44╱D╱ // 0x201b @0x19
0x2002…203d at001a = ╱45╱E╱ // 0x201c @0x1a
0x2002…203d at001b = ╱42╱B╱ // 0x201d @0x1b
0x2002…203d at001c = ╱47╱G╱ // 0x201e @0x1c
0x2002…203d at001d = ╱41╱A╱ // 0x201f @0x1d
0x2002…203d at001e = ╱44╱D╱ // 0x2020 @0x1e
0x2002…203d at001f = ╱45╱E╱ // 0x2021 @0x1f
0x2002…203d at0020 = ╱31╱1╱ // 0x2022 @0x20
0x2002…203d at0021 = ╱ef╱$╱ // 0x2023 @0x21
0x2002…203d at0022 = ╱ec╱,╱ // 0x2024 @0x22
0x2002…203d at0023 = ╱44╱D╱ // 0x2025 @0x23
0x2002…203d at0024 = ╱45╱E╱ // 0x2026 @0x24
0x2002…203d at0025 = ╱42╱B╱ // 0x2027 @0x25
0x2002…203d at0026 = ╱54╱T╱ // 0x2028 @0x26
0x2002…203d at0027 = ╱4c╱L╱ // 0x2029 @0x27
0x2002…203d at0028 = ╱46╱F╱ // 0x202a @0x28
0x2002…203d at0029 = ╱31╱1╱ // 0x202b @0x29
0x2002…203d at002a = ╱ef╱$╱ // 0x202c @0x2a
0x2002…203d at002b = ╱ec╱,╱ // 0x202d @0x2b
0x2002…203d at002c = ╱48╱H╱ // 0x202e @0x2c
0x2002…203d at002d = ╱50╱P╱ // 0x202f @0x2d
0x2002…203d at002e = ╱4f╱O╱ // 0x2030 @0x2e
0x2002…203d at002f = ╱53╱S╱ // 0x2031 @0x2f
0x2002…203d at0030 = ╱54╱T╱ // 0x2032 @0x30
0x2002…203d at0031 = ╱31╱1╱ // 0x2033 @0x31
0x2002…203d at0032 = ╱ec╱,╱ // 0x2034 @0x32
0x2002…203d at0033 = ╱48╱H╱ // 0x2035 @0x33
0x2002…203d at0034 = ╱4b╱K╱ // 0x2036 @0x34
0x2002…203d at0035 = ╱55╱U╱ // 0x2037 @0x35
0x2002…203d at0036 = ╱4e╱N╱ // 0x2038 @0x36
0x2002…203d at0037 = ╱44╱D╱ // 0x2039 @0x37
0x2002…203d at0038 = ╱45╱E╱ // 0x203a @0x38
0x2002…203d at0039 = ╱31╱1╱ // 0x203b @0x39
0x2002…203d at003a = EOL // 0x203c @0x3a
0x2002…203d }
0x203d…2056 adad 3880 EXEC FEJL(10,G,K3$)
0x203d…2056 LineComalBin {
0x203d…2056 ptr = 0xadad // 0x203d @0x0
0x203d…2056 lno = 0x0f28 // 0x203f @0x2
0x203d…2056 at0004 = ╱9d╱ EXEC ╱ // 0x2041 @0x4
0x203d…2056 at0005 = ╱46╱F╱ // 0x2042 @0x5
0x203d…2056 at0006 = ╱45╱E╱ // 0x2043 @0x6
0x203d…2056 at0007 = ╱4a╱J╱ // 0x2044 @0x7
0x203d…2056 at0008 = ╱4c╱L╱ // 0x2045 @0x8
0x203d…2056 at0009 = ╱ed╱(╱ // 0x2046 @0x9
0x203d…2056 at000a = ╱31╱1╱ // 0x2047 @0xa
0x203d…2056 at000b = ╱30╱0╱ // 0x2048 @0xb
0x203d…2056 at000c = ╱fe0000a004╱ // 0x2049 @0xc
0x203d…2056 at0011 = ╱ec╱,╱ // 0x204e @0x11
0x203d…2056 at0012 = ╱47╱G╱ // 0x204f @0x12
0x203d…2056 at0013 = ╱ec╱,╱ // 0x2050 @0x13
0x203d…2056 at0014 = ╱4b╱K╱ // 0x2051 @0x14
0x203d…2056 at0015 = ╱33╱3╱ // 0x2052 @0x15
0x203d…2056 at0016 = ╱ef╱$╱ // 0x2053 @0x16
0x203d…2056 at0017 = ╱ee╱)╱ // 0x2054 @0x17
0x203d…2056 at0018 = EOL // 0x2055 @0x18
0x203d…2056 }
0x2056…2068 adbf 3890 SPIL2=HKUNDE1
0x2056…2068 LineComalBin {
0x2056…2068 ptr = 0xadbf // 0x2056 @0x0
0x2056…2068 lno = 0x0f32 // 0x2058 @0x2
0x2056…2068 at0004 = ╱53╱S╱ // 0x205a @0x4
0x2056…2068 at0005 = ╱50╱P╱ // 0x205b @0x5
0x2056…2068 at0006 = ╱49╱I╱ // 0x205c @0x6
0x2056…2068 at0007 = ╱4c╱L╱ // 0x205d @0x7
0x2056…2068 at0008 = ╱32╱2╱ // 0x205e @0x8
0x2056…2068 at0009 = ╱dc╱=╱ // 0x205f @0x9
0x2056…2068 at000a = ╱48╱H╱ // 0x2060 @0xa
0x2056…2068 at000b = ╱4b╱K╱ // 0x2061 @0xb
0x2056…2068 at000c = ╱55╱U╱ // 0x2062 @0xc
0x2056…2068 at000d = ╱4e╱N╱ // 0x2063 @0xd
0x2056…2068 at000e = ╱44╱D╱ // 0x2064 @0xe
0x2056…2068 at000f = ╱45╱E╱ // 0x2065 @0xf
0x2056…2068 at0010 = ╱31╱1╱ // 0x2066 @0x10
0x2056…2068 at0011 = EOL // 0x2067 @0x11
0x2056…2068 }
0x2068…2081 add8 3900 UNTIL SPIL2=>NØGLE OR SPIL2=B
0x2068…2081 LineComalBin {
0x2068…2081 ptr = 0xadd8 // 0x2068 @0x0
0x2068…2081 lno = 0x0f3c // 0x206a @0x2
0x2068…2081 at0004 = ╱98╱ UNTIL ╱ // 0x206c @0x4
0x2068…2081 at0005 = ╱53╱S╱ // 0x206d @0x5
0x2068…2081 at0006 = ╱50╱P╱ // 0x206e @0x6
0x2068…2081 at0007 = ╱49╱I╱ // 0x206f @0x7
0x2068…2081 at0008 = ╱4c╱L╱ // 0x2070 @0x8
0x2068…2081 at0009 = ╱32╱2╱ // 0x2071 @0x9
0x2068…2081 at000a = ╱e0╱=>╱ // 0x2072 @0xa
0x2068…2081 at000b = ╱4e╱N╱ // 0x2073 @0xb
0x2068…2081 at000c = ╱5c╱Ø╱ // 0x2074 @0xc
0x2068…2081 at000d = ╱47╱G╱ // 0x2075 @0xd
0x2068…2081 at000e = ╱4c╱L╱ // 0x2076 @0xe
0x2068…2081 at000f = ╱45╱E╱ // 0x2077 @0xf
0x2068…2081 at0010 = ╱db╱ OR ╱ // 0x2078 @0x10
0x2068…2081 at0011 = ╱53╱S╱ // 0x2079 @0x11
0x2068…2081 at0012 = ╱50╱P╱ // 0x207a @0x12
0x2068…2081 at0013 = ╱49╱I╱ // 0x207b @0x13
0x2068…2081 at0014 = ╱4c╱L╱ // 0x207c @0x14
0x2068…2081 at0015 = ╱32╱2╱ // 0x207d @0x15
0x2068…2081 at0016 = ╱dc╱=╱ // 0x207e @0x16
0x2068…2081 at0017 = ╱42╱B╱ // 0x207f @0x17
0x2068…2081 at0018 = EOL // 0x2080 @0x18
0x2068…2081 }
0x2081…2087 adde 3910 ENDIF
0x2081…2087 LineComalBin {
0x2081…2087 ptr = 0xadde // 0x2081 @0x0
0x2081…2087 lno = 0x0f46 // 0x2083 @0x2
0x2081…2087 at0004 = ╱9b╱ ENDIF ╱ // 0x2085 @0x4
0x2081…2087 at0005 = EOL // 0x2086 @0x5
0x2081…2087 }
0x2087…209e adf5 3920 IF SPIL2=NØGLE THEN FUN=B
0x2087…209e LineComalBin {
0x2087…209e ptr = 0xadf5 // 0x2087 @0x0
0x2087…209e lno = 0x0f50 // 0x2089 @0x2
0x2087…209e at0004 = ╱82╱ IF ╱ // 0x208b @0x4
0x2087…209e at0005 = ╱53╱S╱ // 0x208c @0x5
0x2087…209e at0006 = ╱50╱P╱ // 0x208d @0x6
0x2087…209e at0007 = ╱49╱I╱ // 0x208e @0x7
0x2087…209e at0008 = ╱4c╱L╱ // 0x208f @0x8
0x2087…209e at0009 = ╱32╱2╱ // 0x2090 @0x9
0x2087…209e at000a = ╱dc╱=╱ // 0x2091 @0xa
0x2087…209e at000b = ╱4e╱N╱ // 0x2092 @0xb
0x2087…209e at000c = ╱5c╱Ø╱ // 0x2093 @0xc
0x2087…209e at000d = ╱47╱G╱ // 0x2094 @0xd
0x2087…209e at000e = ╱4c╱L╱ // 0x2095 @0xe
0x2087…209e at000f = ╱45╱E╱ // 0x2096 @0xf
0x2087…209e at0010 = ╱b6╱ THEN ╱ // 0x2097 @0x10
0x2087…209e at0011 = ╱46╱F╱ // 0x2098 @0x11
0x2087…209e at0012 = ╱55╱U╱ // 0x2099 @0x12
0x2087…209e at0013 = ╱4e╱N╱ // 0x209a @0x13
0x2087…209e at0014 = ╱dc╱=╱ // 0x209b @0x14
0x2087…209e at0015 = ╱42╱B╱ // 0x209c @0x15
0x2087…209e at0016 = EOL // 0x209d @0x16
0x2087…209e }
0x209e…20a4 adfb 3930 ENDPROC
0x209e…20a4 LineComalBin {
0x209e…20a4 ptr = 0xadfb // 0x209e @0x0
0x209e…20a4 lno = 0x0f5a // 0x20a0 @0x2
0x209e…20a4 at0004 = ╱9f╱ ENDPROC ╱ // 0x20a2 @0x4
0x209e…20a4 at0005 = EOL // 0x20a3 @0x5
0x209e…20a4 }
0x20a4…20ae ae05 3940 PROC KPUT
0x20a4…20ae LineComalBin {
0x20a4…20ae ptr = 0xae05 // 0x20a4 @0x0
0x20a4…20ae lno = 0x0f64 // 0x20a6 @0x2
0x20a4…20ae at0004 = ╱9e╱ PROC ╱ // 0x20a8 @0x4
0x20a4…20ae at0005 = ╱4b╱K╱ // 0x20a9 @0x5
0x20a4…20ae at0006 = ╱50╱P╱ // 0x20aa @0x6
0x20a4…20ae at0007 = ╱55╱U╱ // 0x20ab @0x7
0x20a4…20ae at0008 = ╱54╱T╱ // 0x20ac @0x8
0x20a4…20ae at0009 = EOL // 0x20ad @0x9
0x20a4…20ae }
0x20ae…20b9 ae10 3950 OPEN K4$,W
0x20ae…20b9 LineComalBin {
0x20ae…20b9 ptr = 0xae10 // 0x20ae @0x0
0x20ae…20b9 lno = 0x0f6e // 0x20b0 @0x2
0x20ae…20b9 at0004 = ╱a7╱ OPEN ╱ // 0x20b2 @0x4
0x20ae…20b9 at0005 = ╱4b╱K╱ // 0x20b3 @0x5
0x20ae…20b9 at0006 = ╱34╱4╱ // 0x20b4 @0x6
0x20ae…20b9 at0007 = ╱ef╱$╱ // 0x20b5 @0x7
0x20ae…20b9 at0008 = ╱ec╱,╱ // 0x20b6 @0x8
0x20ae…20b9 at0009 = ╱57╱W╱ // 0x20b7 @0x9
0x20ae…20b9 at000a = EOL // 0x20b8 @0xa
0x20ae…20b9 }
0x20b9…20d2 ae29 3960 EXEC FEJL(12,E,K4$)
0x20b9…20d2 LineComalBin {
0x20b9…20d2 ptr = 0xae29 // 0x20b9 @0x0
0x20b9…20d2 lno = 0x0f78 // 0x20bb @0x2
0x20b9…20d2 at0004 = ╱9d╱ EXEC ╱ // 0x20bd @0x4
0x20b9…20d2 at0005 = ╱46╱F╱ // 0x20be @0x5
0x20b9…20d2 at0006 = ╱45╱E╱ // 0x20bf @0x6
0x20b9…20d2 at0007 = ╱4a╱J╱ // 0x20c0 @0x7
0x20b9…20d2 at0008 = ╱4c╱L╱ // 0x20c1 @0x8
0x20b9…20d2 at0009 = ╱ed╱(╱ // 0x20c2 @0x9
0x20b9…20d2 at000a = ╱31╱1╱ // 0x20c3 @0xa
0x20b9…20d2 at000b = ╱32╱2╱ // 0x20c4 @0xb
0x20b9…20d2 at000c = ╱fe0000c004╱ // 0x20c5 @0xc
0x20b9…20d2 at0011 = ╱ec╱,╱ // 0x20ca @0x11
0x20b9…20d2 at0012 = ╱45╱E╱ // 0x20cb @0x12
0x20b9…20d2 at0013 = ╱ec╱,╱ // 0x20cc @0x13
0x20b9…20d2 at0014 = ╱4b╱K╱ // 0x20cd @0x14
0x20b9…20d2 at0015 = ╱34╱4╱ // 0x20ce @0x15
0x20b9…20d2 at0016 = ╱ef╱$╱ // 0x20cf @0x16
0x20b9…20d2 at0017 = ╱ee╱)╱ // 0x20d0 @0x17
0x20b9…20d2 at0018 = EOL // 0x20d1 @0x18
0x20b9…20d2 }
0x20d2…20e7 ae3e 3970 FOR I=E TO MKGR DIV 5
0x20d2…20e7 LineComalBin {
0x20d2…20e7 ptr = 0xae3e // 0x20d2 @0x0
0x20d2…20e7 lno = 0x0f82 // 0x20d4 @0x2
0x20d2…20e7 at0004 = ╱83╱ FOR ╱ // 0x20d6 @0x4
0x20d2…20e7 at0005 = ╱49╱I╱ // 0x20d7 @0x5
0x20d2…20e7 at0006 = ╱dc╱=╱ // 0x20d8 @0x6
0x20d2…20e7 at0007 = ╱45╱E╱ // 0x20d9 @0x7
0x20d2…20e7 at0008 = ╱b7╱ TO ╱ // 0x20da @0x8
0x20d2…20e7 at0009 = ╱4d╱M╱ // 0x20db @0x9
0x20d2…20e7 at000a = ╱4b╱K╱ // 0x20dc @0xa
0x20d2…20e7 at000b = ╱47╱G╱ // 0x20dd @0xb
0x20d2…20e7 at000c = ╱52╱R╱ // 0x20de @0xc
0x20d2…20e7 at000d = ╱e7╱ DIV ╱ // 0x20df @0xd
0x20d2…20e7 at000e = ╱35╱5╱ // 0x20e0 @0xe
0x20d2…20e7 at000f = ╱fe0000a003╱ // 0x20e1 @0xf
0x20d2…20e7 at0014 = EOL // 0x20e6 @0x14
0x20d2…20e7 }
0x20e7…20fc ae53 3980 J=(I-E)*5+E
0x20e7…20fc LineComalBin {
0x20e7…20fc ptr = 0xae53 // 0x20e7 @0x0
0x20e7…20fc lno = 0x0f8c // 0x20e9 @0x2
0x20e7…20fc at0004 = ╱4a╱J╱ // 0x20eb @0x4
0x20e7…20fc at0005 = ╱dc╱=╱ // 0x20ec @0x5
0x20e7…20fc at0006 = ╱ed╱(╱ // 0x20ed @0x6
0x20e7…20fc at0007 = ╱49╱I╱ // 0x20ee @0x7
0x20e7…20fc at0008 = ╱e3╱-╱ // 0x20ef @0x8
0x20e7…20fc at0009 = ╱45╱E╱ // 0x20f0 @0x9
0x20e7…20fc at000a = ╱ee╱)╱ // 0x20f1 @0xa
0x20e7…20fc at000b = ╱e4╱*╱ // 0x20f2 @0xb
0x20e7…20fc at000c = ╱35╱5╱ // 0x20f3 @0xc
0x20e7…20fc at000d = ╱fe0000a003╱ // 0x20f4 @0xd
0x20e7…20fc at0012 = ╱e2╱+╱ // 0x20f9 @0x12
0x20e7…20fc at0013 = ╱45╱E╱ // 0x20fa @0x13
0x20e7…20fc at0014 = EOL // 0x20fb @0x14
0x20e7…20fc }
0x20fc…2146 ae9d 3990 PUT K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4)
0x20fc…2146 LineComalBin {
0x20fc…2146 ptr = 0xae9d // 0x20fc @0x0
0x20fc…2146 lno = 0x0f96 // 0x20fe @0x2
0x20fc…2146 at0004 = ╱aa╱ PUT ╱ // 0x2100 @0x4
0x20fc…2146 at0005 = ╱4b╱K╱ // 0x2101 @0x5
0x20fc…2146 at0006 = ╱34╱4╱ // 0x2102 @0x6
0x20fc…2146 at0007 = ╱ef╱$╱ // 0x2103 @0x7
0x20fc…2146 at0008 = ╱ec╱,╱ // 0x2104 @0x8
0x20fc…2146 at0009 = ╱49╱I╱ // 0x2105 @0x9
0x20fc…2146 at000a = ╱f0╱:╱ // 0x2106 @0xa
0x20fc…2146 at000b = ╱4b╱K╱ // 0x2107 @0xb
0x20fc…2146 at000c = ╱41╱A╱ // 0x2108 @0xc
0x20fc…2146 at000d = ╱52╱R╱ // 0x2109 @0xd
0x20fc…2146 at000e = ╱52╱R╱ // 0x210a @0xe
0x20fc…2146 at000f = ╱41╱A╱ // 0x210b @0xf
0x20fc…2146 at0010 = ╱59╱Y╱ // 0x210c @0x10
0x20fc…2146 at0011 = ╱ed╱(╱ // 0x210d @0x11
0x20fc…2146 at0012 = ╱4a╱J╱ // 0x210e @0x12
0x20fc…2146 at0013 = ╱ee╱)╱ // 0x210f @0x13
0x20fc…2146 at0014 = ╱ec╱,╱ // 0x2110 @0x14
0x20fc…2146 at0015 = ╱4b╱K╱ // 0x2111 @0x15
0x20fc…2146 at0016 = ╱41╱A╱ // 0x2112 @0x16
0x20fc…2146 at0017 = ╱52╱R╱ // 0x2113 @0x17
0x20fc…2146 at0018 = ╱52╱R╱ // 0x2114 @0x18
0x20fc…2146 at0019 = ╱41╱A╱ // 0x2115 @0x19
0x20fc…2146 at001a = ╱59╱Y╱ // 0x2116 @0x1a
0x20fc…2146 at001b = ╱ed╱(╱ // 0x2117 @0x1b
0x20fc…2146 at001c = ╱4a╱J╱ // 0x2118 @0x1c
0x20fc…2146 at001d = ╱e2╱+╱ // 0x2119 @0x1d
0x20fc…2146 at001e = ╱45╱E╱ // 0x211a @0x1e
0x20fc…2146 at001f = ╱ee╱)╱ // 0x211b @0x1f
0x20fc…2146 at0020 = ╱ec╱,╱ // 0x211c @0x20
0x20fc…2146 at0021 = ╱4b╱K╱ // 0x211d @0x21
0x20fc…2146 at0022 = ╱41╱A╱ // 0x211e @0x22
0x20fc…2146 at0023 = ╱52╱R╱ // 0x211f @0x23
0x20fc…2146 at0024 = ╱52╱R╱ // 0x2120 @0x24
0x20fc…2146 at0025 = ╱41╱A╱ // 0x2121 @0x25
0x20fc…2146 at0026 = ╱59╱Y╱ // 0x2122 @0x26
0x20fc…2146 at0027 = ╱ed╱(╱ // 0x2123 @0x27
0x20fc…2146 at0028 = ╱4a╱J╱ // 0x2124 @0x28
0x20fc…2146 at0029 = ╱e2╱+╱ // 0x2125 @0x29
0x20fc…2146 at002a = ╱47╱G╱ // 0x2126 @0x2a
0x20fc…2146 at002b = ╱ee╱)╱ // 0x2127 @0x2b
0x20fc…2146 at002c = ╱ec╱,╱ // 0x2128 @0x2c
0x20fc…2146 at002d = ╱4b╱K╱ // 0x2129 @0x2d
0x20fc…2146 at002e = ╱41╱A╱ // 0x212a @0x2e
0x20fc…2146 at002f = ╱52╱R╱ // 0x212b @0x2f
0x20fc…2146 at0030 = ╱52╱R╱ // 0x212c @0x30
0x20fc…2146 at0031 = ╱41╱A╱ // 0x212d @0x31
0x20fc…2146 at0032 = ╱59╱Y╱ // 0x212e @0x32
0x20fc…2146 at0033 = ╱ed╱(╱ // 0x212f @0x33
0x20fc…2146 at0034 = ╱4a╱J╱ // 0x2130 @0x34
0x20fc…2146 at0035 = ╱e2╱+╱ // 0x2131 @0x35
0x20fc…2146 at0036 = ╱56╱V╱ // 0x2132 @0x36
0x20fc…2146 at0037 = ╱ee╱)╱ // 0x2133 @0x37
0x20fc…2146 at0038 = ╱ec╱,╱ // 0x2134 @0x38
0x20fc…2146 at0039 = ╱4b╱K╱ // 0x2135 @0x39
0x20fc…2146 at003a = ╱41╱A╱ // 0x2136 @0x3a
0x20fc…2146 at003b = ╱52╱R╱ // 0x2137 @0x3b
0x20fc…2146 at003c = ╱52╱R╱ // 0x2138 @0x3c
0x20fc…2146 at003d = ╱41╱A╱ // 0x2139 @0x3d
0x20fc…2146 at003e = ╱59╱Y╱ // 0x213a @0x3e
0x20fc…2146 at003f = ╱ed╱(╱ // 0x213b @0x3f
0x20fc…2146 at0040 = ╱4a╱J╱ // 0x213c @0x40
0x20fc…2146 at0041 = ╱e2╱+╱ // 0x213d @0x41
0x20fc…2146 at0042 = ╱34╱4╱ // 0x213e @0x42
0x20fc…2146 at0043 = ╱fe00008003╱ // 0x213f @0x43
0x20fc…2146 at0048 = ╱ee╱)╱ // 0x2144 @0x48
0x20fc…2146 at0049 = EOL // 0x2145 @0x49
0x20fc…2146 }
0x2146…215f aeb6 4000 EXEC FEJL(12,G,K4$)
0x2146…215f LineComalBin {
0x2146…215f ptr = 0xaeb6 // 0x2146 @0x0
0x2146…215f lno = 0x0fa0 // 0x2148 @0x2
0x2146…215f at0004 = ╱9d╱ EXEC ╱ // 0x214a @0x4
0x2146…215f at0005 = ╱46╱F╱ // 0x214b @0x5
0x2146…215f at0006 = ╱45╱E╱ // 0x214c @0x6
0x2146…215f at0007 = ╱4a╱J╱ // 0x214d @0x7
0x2146…215f at0008 = ╱4c╱L╱ // 0x214e @0x8
0x2146…215f at0009 = ╱ed╱(╱ // 0x214f @0x9
0x2146…215f at000a = ╱31╱1╱ // 0x2150 @0xa
0x2146…215f at000b = ╱32╱2╱ // 0x2151 @0xb
0x2146…215f at000c = ╱fe0000c004╱ // 0x2152 @0xc
0x2146…215f at0011 = ╱ec╱,╱ // 0x2157 @0x11
0x2146…215f at0012 = ╱47╱G╱ // 0x2158 @0x12
0x2146…215f at0013 = ╱ec╱,╱ // 0x2159 @0x13
0x2146…215f at0014 = ╱4b╱K╱ // 0x215a @0x14
0x2146…215f at0015 = ╱34╱4╱ // 0x215b @0x15
0x2146…215f at0016 = ╱ef╱$╱ // 0x215c @0x16
0x2146…215f at0017 = ╱ee╱)╱ // 0x215d @0x17
0x2146…215f at0018 = EOL // 0x215e @0x18
0x2146…215f }
0x215f…2166 aebd 4010 NEXT I
0x215f…2166 LineComalBin {
0x215f…2166 ptr = 0xaebd // 0x215f @0x0
0x215f…2166 lno = 0x0faa // 0x2161 @0x2
0x215f…2166 at0004 = ╱84╱ NEXT ╱ // 0x2163 @0x4
0x215f…2166 at0005 = ╱49╱I╱ // 0x2164 @0x5
0x215f…2166 at0006 = EOL // 0x2165 @0x6
0x215f…2166 }
0x2166…216f aec6 4020 CLOSE K4$
0x2166…216f LineComalBin {
0x2166…216f ptr = 0xaec6 // 0x2166 @0x0
0x2166…216f lno = 0x0fb4 // 0x2168 @0x2
0x2166…216f at0004 = ╱a8╱ CLOSE ╱ // 0x216a @0x4
0x2166…216f at0005 = ╱4b╱K╱ // 0x216b @0x5
0x2166…216f at0006 = ╱34╱4╱ // 0x216c @0x6
0x2166…216f at0007 = ╱ef╱$╱ // 0x216d @0x7
0x2166…216f at0008 = EOL // 0x216e @0x8
0x2166…216f }
0x216f…2188 aedf 4030 EXEC FEJL(12,V,K4$)
0x216f…2188 LineComalBin {
0x216f…2188 ptr = 0xaedf // 0x216f @0x0
0x216f…2188 lno = 0x0fbe // 0x2171 @0x2
0x216f…2188 at0004 = ╱9d╱ EXEC ╱ // 0x2173 @0x4
0x216f…2188 at0005 = ╱46╱F╱ // 0x2174 @0x5
0x216f…2188 at0006 = ╱45╱E╱ // 0x2175 @0x6
0x216f…2188 at0007 = ╱4a╱J╱ // 0x2176 @0x7
0x216f…2188 at0008 = ╱4c╱L╱ // 0x2177 @0x8
0x216f…2188 at0009 = ╱ed╱(╱ // 0x2178 @0x9
0x216f…2188 at000a = ╱31╱1╱ // 0x2179 @0xa
0x216f…2188 at000b = ╱32╱2╱ // 0x217a @0xb
0x216f…2188 at000c = ╱fe0000c004╱ // 0x217b @0xc
0x216f…2188 at0011 = ╱ec╱,╱ // 0x2180 @0x11
0x216f…2188 at0012 = ╱56╱V╱ // 0x2181 @0x12
0x216f…2188 at0013 = ╱ec╱,╱ // 0x2182 @0x13
0x216f…2188 at0014 = ╱4b╱K╱ // 0x2183 @0x14
0x216f…2188 at0015 = ╱34╱4╱ // 0x2184 @0x15
0x216f…2188 at0016 = ╱ef╱$╱ // 0x2185 @0x16
0x216f…2188 at0017 = ╱ee╱)╱ // 0x2186 @0x17
0x216f…2188 at0018 = EOL // 0x2187 @0x18
0x216f…2188 }
0x2188…218e aee5 4040 ENDPROC
0x2188…218e LineComalBin {
0x2188…218e ptr = 0xaee5 // 0x2188 @0x0
0x2188…218e lno = 0x0fc8 // 0x218a @0x2
0x2188…218e at0004 = ╱9f╱ ENDPROC ╱ // 0x218c @0x4
0x2188…218e at0005 = EOL // 0x218d @0x5
0x2188…218e }
0x218e…21a0 aef7 4050 PROC NRTEST(NUM1)
0x218e…21a0 LineComalBin {
0x218e…21a0 ptr = 0xaef7 // 0x218e @0x0
0x218e…21a0 lno = 0x0fd2 // 0x2190 @0x2
0x218e…21a0 at0004 = ╱9e╱ PROC ╱ // 0x2192 @0x4
0x218e…21a0 at0005 = ╱4e╱N╱ // 0x2193 @0x5
0x218e…21a0 at0006 = ╱52╱R╱ // 0x2194 @0x6
0x218e…21a0 at0007 = ╱54╱T╱ // 0x2195 @0x7
0x218e…21a0 at0008 = ╱45╱E╱ // 0x2196 @0x8
0x218e…21a0 at0009 = ╱53╱S╱ // 0x2197 @0x9
0x218e…21a0 at000a = ╱54╱T╱ // 0x2198 @0xa
0x218e…21a0 at000b = ╱ed╱(╱ // 0x2199 @0xb
0x218e…21a0 at000c = ╱4e╱N╱ // 0x219a @0xc
0x218e…21a0 at000d = ╱55╱U╱ // 0x219b @0xd
0x218e…21a0 at000e = ╱4d╱M╱ // 0x219c @0xe
0x218e…21a0 at000f = ╱31╱1╱ // 0x219d @0xf
0x218e…21a0 at0010 = ╱ee╱)╱ // 0x219e @0x10
0x218e…21a0 at0011 = EOL // 0x219f @0x11
0x218e…21a0 }
0x21a0…21c2 af19 4060 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x21a0…21c2 LineComalBin {
0x21a0…21c2 ptr = 0xaf19 // 0x21a0 @0x0
0x21a0…21c2 lno = 0x0fdc // 0x21a2 @0x2
0x21a0…21c2 at0004 = ╱50╱P╱ // 0x21a4 @0x4
0x21a0…21c2 at0005 = ╱dc╱=╱ // 0x21a5 @0x5
0x21a0…21c2 at0006 = ╱42╱B╱ // 0x21a6 @0x6
0x21a0…21c2 at0007 = ╱eb╱;╱ // 0x21a7 @0x7
0x21a0…21c2 at0008 = ╱54╱T╱ // 0x21a8 @0x8
0x21a0…21c2 at0009 = ╱45╱E╱ // 0x21a9 @0x9
0x21a0…21c2 at000a = ╱53╱S╱ // 0x21aa @0xa
0x21a0…21c2 at000b = ╱54╱T╱ // 0x21ab @0xb
0x21a0…21c2 at000c = ╱32╱2╱ // 0x21ac @0xc
0x21a0…21c2 at000d = ╱dc╱=╱ // 0x21ad @0xd
0x21a0…21c2 at000e = ╱42╱B╱ // 0x21ae @0xe
0x21a0…21c2 at000f = ╱eb╱;╱ // 0x21af @0xf
0x21a0…21c2 at0010 = ╱4b╱K╱ // 0x21b0 @0x10
0x21a0…21c2 at0011 = ╱54╱T╱ // 0x21b1 @0x11
0x21a0…21c2 at0012 = ╱41╱A╱ // 0x21b2 @0x12
0x21a0…21c2 at0013 = ╱4c╱L╱ // 0x21b3 @0x13
0x21a0…21c2 at0014 = ╱dc╱=╱ // 0x21b4 @0x14
0x21a0…21c2 at0015 = ╱42╱B╱ // 0x21b5 @0x15
0x21a0…21c2 at0016 = ╱eb╱;╱ // 0x21b6 @0x16
0x21a0…21c2 at0017 = ╱4c╱L╱ // 0x21b7 @0x17
0x21a0…21c2 at0018 = ╱dc╱=╱ // 0x21b8 @0x18
0x21a0…21c2 at0019 = ╱cc╱LEN╱ // 0x21b9 @0x19
0x21a0…21c2 at001a = ╱ed╱(╱ // 0x21ba @0x1a
0x21a0…21c2 at001b = ╱4e╱N╱ // 0x21bb @0x1b
0x21a0…21c2 at001c = ╱55╱U╱ // 0x21bc @0x1c
0x21a0…21c2 at001d = ╱4d╱M╱ // 0x21bd @0x1d
0x21a0…21c2 at001e = ╱31╱1╱ // 0x21be @0x1e
0x21a0…21c2 at001f = ╱ef╱$╱ // 0x21bf @0x1f
0x21a0…21c2 at0020 = ╱ee╱)╱ // 0x21c0 @0x20
0x21a0…21c2 at0021 = EOL // 0x21c1 @0x21
0x21a0…21c2 }
0x21c2…21cb af22 4070 CASE L OF
0x21c2…21cb LineComalBin {
0x21c2…21cb ptr = 0xaf22 // 0x21c2 @0x0
0x21c2…21cb lno = 0x0fe6 // 0x21c4 @0x2
0x21c2…21cb at0004 = ╱a201╱ CASE ╱ // 0x21c6 @0x4
0x21c2…21cb at0006 = ╱4c╱L╱ // 0x21c8 @0x6
0x21c2…21cb at0007 = ╱ba╱ OF ╱ // 0x21c9 @0x7
0x21c2…21cb at0008 = EOL // 0x21ca @0x8
0x21c2…21cb }
0x21cb…21d6 af2d 4080 FOR I=E TO L
0x21cb…21d6 LineComalBin {
0x21cb…21d6 ptr = 0xaf2d // 0x21cb @0x0
0x21cb…21d6 lno = 0x0ff0 // 0x21cd @0x2
0x21cb…21d6 at0004 = ╱83╱ FOR ╱ // 0x21cf @0x4
0x21cb…21d6 at0005 = ╱49╱I╱ // 0x21d0 @0x5
0x21cb…21d6 at0006 = ╱dc╱=╱ // 0x21d1 @0x6
0x21cb…21d6 at0007 = ╱45╱E╱ // 0x21d2 @0x7
0x21cb…21d6 at0008 = ╱b7╱ TO ╱ // 0x21d3 @0x8
0x21cb…21d6 at0009 = ╱4c╱L╱ // 0x21d4 @0x9
0x21cb…21d6 at000a = EOL // 0x21d5 @0xa
0x21cb…21d6 }
0x21d6…21f4 af4b 4090 P1=INT(ORD(NUM1$(I))-48)
0x21d6…21f4 LineComalBin {
0x21d6…21f4 ptr = 0xaf4b // 0x21d6 @0x0
0x21d6…21f4 lno = 0x0ffa // 0x21d8 @0x2
0x21d6…21f4 at0004 = ╱50╱P╱ // 0x21da @0x4
0x21d6…21f4 at0005 = ╱31╱1╱ // 0x21db @0x5
0x21d6…21f4 at0006 = ╱dc╱=╱ // 0x21dc @0x6
0x21d6…21f4 at0007 = ╱c6╱INT╱ // 0x21dd @0x7
0x21d6…21f4 at0008 = ╱ed╱(╱ // 0x21de @0x8
0x21d6…21f4 at0009 = ╱cd╱ORD╱ // 0x21df @0x9
0x21d6…21f4 at000a = ╱ed╱(╱ // 0x21e0 @0xa
0x21d6…21f4 at000b = ╱4e╱N╱ // 0x21e1 @0xb
0x21d6…21f4 at000c = ╱55╱U╱ // 0x21e2 @0xc
0x21d6…21f4 at000d = ╱4d╱M╱ // 0x21e3 @0xd
0x21d6…21f4 at000e = ╱31╱1╱ // 0x21e4 @0xe
0x21d6…21f4 at000f = ╱ef╱$╱ // 0x21e5 @0xf
0x21d6…21f4 at0010 = ╱ed╱(╱ // 0x21e6 @0x10
0x21d6…21f4 at0011 = ╱49╱I╱ // 0x21e7 @0x11
0x21d6…21f4 at0012 = ╱ee╱)╱ // 0x21e8 @0x12
0x21d6…21f4 at0013 = ╱ee╱)╱ // 0x21e9 @0x13
0x21d6…21f4 at0014 = ╱e3╱-╱ // 0x21ea @0x14
0x21d6…21f4 at0015 = ╱34╱4╱ // 0x21eb @0x15
0x21d6…21f4 at0016 = ╱38╱8╱ // 0x21ec @0x16
0x21d6…21f4 at0017 = ╱fe0000c006╱ // 0x21ed @0x17
0x21d6…21f4 at001c = ╱ee╱)╱ // 0x21f2 @0x1c
0x21d6…21f4 at001d = EOL // 0x21f3 @0x1d
0x21d6…21f4 }
0x21f4…2204 af5b 4100 IF P1=>B AND P1<=W THEN
0x21f4…2204 LineComalBin {
0x21f4…2204 ptr = 0xaf5b // 0x21f4 @0x0
0x21f4…2204 lno = 0x1004 // 0x21f6 @0x2
0x21f4…2204 at0004 = ╱9c╱ IF ╱ // 0x21f8 @0x4
0x21f4…2204 at0005 = ╱50╱P╱ // 0x21f9 @0x5
0x21f4…2204 at0006 = ╱31╱1╱ // 0x21fa @0x6
0x21f4…2204 at0007 = ╱e0╱=>╱ // 0x21fb @0x7
0x21f4…2204 at0008 = ╱42╱B╱ // 0x21fc @0x8
0x21f4…2204 at0009 = ╱da╱ AND ╱ // 0x21fd @0x9
0x21f4…2204 at000a = ╱50╱P╱ // 0x21fe @0xa
0x21f4…2204 at000b = ╱31╱1╱ // 0x21ff @0xb
0x21f4…2204 at000c = ╱df╱<=╱ // 0x2200 @0xc
0x21f4…2204 at000d = ╱57╱W╱ // 0x2201 @0xd
0x21f4…2204 at000e = ╱b6╱ THEN ╱ // 0x2202 @0xe
0x21f4…2204 at000f = EOL // 0x2203 @0xf
0x21f4…2204 }
0x2204…2217 af6e 4110 P=P*10+P1
0x2204…2217 LineComalBin {
0x2204…2217 ptr = 0xaf6e // 0x2204 @0x0
0x2204…2217 lno = 0x100e // 0x2206 @0x2
0x2204…2217 at0004 = ╱50╱P╱ // 0x2208 @0x4
0x2204…2217 at0005 = ╱dc╱=╱ // 0x2209 @0x5
0x2204…2217 at0006 = ╱50╱P╱ // 0x220a @0x6
0x2204…2217 at0007 = ╱e4╱*╱ // 0x220b @0x7
0x2204…2217 at0008 = ╱31╱1╱ // 0x220c @0x8
0x2204…2217 at0009 = ╱30╱0╱ // 0x220d @0x9
0x2204…2217 at000a = ╱fe0000a004╱ // 0x220e @0xa
0x2204…2217 at000f = ╱e2╱+╱ // 0x2213 @0xf
0x2204…2217 at0010 = ╱50╱P╱ // 0x2214 @0x10
0x2204…2217 at0011 = ╱31╱1╱ // 0x2215 @0x11
0x2204…2217 at0012 = EOL // 0x2216 @0x12
0x2204…2217 }
0x2217…221d af74 4120 ELSE
0x2217…221d LineComalBin {
0x2217…221d ptr = 0xaf74 // 0x2217 @0x0
0x2217…221d lno = 0x1018 // 0x2219 @0x2
0x2217…221d at0004 = ╱9a╱ ELSE ╱ // 0x221b @0x4
0x2217…221d at0005 = EOL // 0x221c @0x5
0x2217…221d }
0x221d…2229 af80 4130 TEST2=E
0x221d…2229 LineComalBin {
0x221d…2229 ptr = 0xaf80 // 0x221d @0x0
0x221d…2229 lno = 0x1022 // 0x221f @0x2
0x221d…2229 at0004 = ╱54╱T╱ // 0x2221 @0x4
0x221d…2229 at0005 = ╱45╱E╱ // 0x2222 @0x5
0x221d…2229 at0006 = ╱53╱S╱ // 0x2223 @0x6
0x221d…2229 at0007 = ╱54╱T╱ // 0x2224 @0x7
0x221d…2229 at0008 = ╱32╱2╱ // 0x2225 @0x8
0x221d…2229 at0009 = ╱dc╱=╱ // 0x2226 @0x9
0x221d…2229 at000a = ╱45╱E╱ // 0x2227 @0xa
0x221d…2229 at000b = EOL // 0x2228 @0xb
0x221d…2229 }
0x2229…222f af86 4140 ENDIF
0x2229…222f LineComalBin {
0x2229…222f ptr = 0xaf86 // 0x2229 @0x0
0x2229…222f lno = 0x102c // 0x222b @0x2
0x2229…222f at0004 = ╱9b╱ ENDIF ╱ // 0x222d @0x4
0x2229…222f at0005 = EOL // 0x222e @0x5
0x2229…222f }
0x222f…2236 af8d 4150 NEXT I
0x222f…2236 LineComalBin {
0x222f…2236 ptr = 0xaf8d // 0x222f @0x0
0x222f…2236 lno = 0x1036 // 0x2231 @0x2
0x222f…2236 at0004 = ╱84╱ NEXT ╱ // 0x2233 @0x4
0x222f…2236 at0005 = ╱49╱I╱ // 0x2234 @0x5
0x222f…2236 at0006 = EOL // 0x2235 @0x6
0x222f…2236 }
0x2236…224c afa3 4160 KTAL=P DIV 10000
0x2236…224c LineComalBin {
0x2236…224c ptr = 0xafa3 // 0x2236 @0x0
0x2236…224c lno = 0x1040 // 0x2238 @0x2
0x2236…224c at0004 = ╱4b╱K╱ // 0x223a @0x4
0x2236…224c at0005 = ╱54╱T╱ // 0x223b @0x5
0x2236…224c at0006 = ╱41╱A╱ // 0x223c @0x6
0x2236…224c at0007 = ╱4c╱L╱ // 0x223d @0x7
0x2236…224c at0008 = ╱dc╱=╱ // 0x223e @0x8
0x2236…224c at0009 = ╱50╱P╱ // 0x223f @0x9
0x2236…224c at000a = ╱e7╱ DIV ╱ // 0x2240 @0xa
0x2236…224c at000b = ╱31╱1╱ // 0x2241 @0xb
0x2236…224c at000c = ╱30╱0╱ // 0x2242 @0xc
0x2236…224c at000d = ╱30╱0╱ // 0x2243 @0xd
0x2236…224c at000e = ╱30╱0╱ // 0x2244 @0xe
0x2236…224c at000f = ╱30╱0╱ // 0x2245 @0xf
0x2236…224c at0010 = ╱fe00409c0e╱ // 0x2246 @0x10
0x2236…224c at0015 = EOL // 0x224b @0x15
0x2236…224c }
0x224c…2254 afab 4170 WHEN B
0x224c…2254 LineComalBin {
0x224c…2254 ptr = 0xafab // 0x224c @0x0
0x224c…2254 lno = 0x104a // 0x224e @0x2
0x224c…2254 at0004 = ╱a301╱ WHEN ╱ // 0x2250 @0x4
0x224c…2254 at0006 = ╱42╱B╱ // 0x2252 @0x6
0x224c…2254 at0007 = EOL // 0x2253 @0x7
0x224c…2254 }
0x2254…225d afb4 4180 P=-E
0x2254…225d LineComalBin {
0x2254…225d ptr = 0xafb4 // 0x2254 @0x0
0x2254…225d lno = 0x1054 // 0x2256 @0x2
0x2254…225d at0004 = ╱50╱P╱ // 0x2258 @0x4
0x2254…225d at0005 = ╱dc╱=╱ // 0x2259 @0x5
0x2254…225d at0006 = ╱e9╱-╱ // 0x225a @0x6
0x2254…225d at0007 = ╱45╱E╱ // 0x225b @0x7
0x2254…225d at0008 = EOL // 0x225c @0x8
0x2254…225d }
0x225d…2265 afbc 4190 WHEN E
0x225d…2265 LineComalBin {
0x225d…2265 ptr = 0xafbc // 0x225d @0x0
0x225d…2265 lno = 0x105e // 0x225f @0x2
0x225d…2265 at0004 = ╱a301╱ WHEN ╱ // 0x2261 @0x4
0x225d…2265 at0006 = ╱45╱E╱ // 0x2263 @0x6
0x225d…2265 at0007 = EOL // 0x2264 @0x7
0x225d…2265 }
0x2265…2272 afc9 4200 CASE NUM1$ OF
0x2265…2272 LineComalBin {
0x2265…2272 ptr = 0xafc9 // 0x2265 @0x0
0x2265…2272 lno = 0x1068 // 0x2267 @0x2
0x2265…2272 at0004 = ╱a200╱ CASE ╱ // 0x2269 @0x4
0x2265…2272 at0006 = ╱4e╱N╱ // 0x226b @0x6
0x2265…2272 at0007 = ╱55╱U╱ // 0x226c @0x7
0x2265…2272 at0008 = ╱4d╱M╱ // 0x226d @0x8
0x2265…2272 at0009 = ╱31╱1╱ // 0x226e @0x9
0x2265…2272 at000a = ╱ef╱$╱ // 0x226f @0xa
0x2265…2272 at000b = ╱ba╱ OF ╱ // 0x2270 @0xb
0x2265…2272 at000c = EOL // 0x2271 @0xc
0x2265…2272 }
0x2272…228c afe3 4210 P=INT(ORD(NUM1$)-48)
0x2272…228c LineComalBin {
0x2272…228c ptr = 0xafe3 // 0x2272 @0x0
0x2272…228c lno = 0x1072 // 0x2274 @0x2
0x2272…228c at0004 = ╱50╱P╱ // 0x2276 @0x4
0x2272…228c at0005 = ╱dc╱=╱ // 0x2277 @0x5
0x2272…228c at0006 = ╱c6╱INT╱ // 0x2278 @0x6
0x2272…228c at0007 = ╱ed╱(╱ // 0x2279 @0x7
0x2272…228c at0008 = ╱cd╱ORD╱ // 0x227a @0x8
0x2272…228c at0009 = ╱ed╱(╱ // 0x227b @0x9
0x2272…228c at000a = ╱4e╱N╱ // 0x227c @0xa
0x2272…228c at000b = ╱55╱U╱ // 0x227d @0xb
0x2272…228c at000c = ╱4d╱M╱ // 0x227e @0xc
0x2272…228c at000d = ╱31╱1╱ // 0x227f @0xd
0x2272…228c at000e = ╱ef╱$╱ // 0x2280 @0xe
0x2272…228c at000f = ╱ee╱)╱ // 0x2281 @0xf
0x2272…228c at0010 = ╱e3╱-╱ // 0x2282 @0x10
0x2272…228c at0011 = ╱34╱4╱ // 0x2283 @0x11
0x2272…228c at0012 = ╱38╱8╱ // 0x2284 @0x12
0x2272…228c at0013 = ╱fe0000c006╱ // 0x2285 @0x13
0x2272…228c at0018 = ╱ee╱)╱ // 0x228a @0x18
0x2272…228c at0019 = EOL // 0x228b @0x19
0x2272…228c }
0x228c…229a aff1 4220 WHEN "J","j"
0x228c…229a LineComalBin {
0x228c…229a ptr = 0xaff1 // 0x228c @0x0
0x228c…229a lno = 0x107c // 0x228e @0x2
0x228c…229a at0004 = ╱a300╱ WHEN ╱ // 0x2290 @0x4
0x228c…229a at0006 = ╱22╱"╱ // 0x2292 @0x6
0x228c…229a at0007 = ╱4a╱J╱ // 0x2293 @0x7
0x228c…229a at0008 = ╱22╱"╱ // 0x2294 @0x8
0x228c…229a at0009 = ╱ec╱,╱ // 0x2295 @0x9
0x228c…229a at000a = ╱22╱"╱ // 0x2296 @0xa
0x228c…229a at000b = ╱6a╱j╱ // 0x2297 @0xb
0x228c…229a at000c = ╱22╱"╱ // 0x2298 @0xc
0x228c…229a at000d = EOL // 0x2299 @0xd
0x228c…229a }
0x229a…22a8 afff 4230 P=-7
0x229a…22a8 LineComalBin {
0x229a…22a8 ptr = 0xafff // 0x229a @0x0
0x229a…22a8 lno = 0x1086 // 0x229c @0x2
0x229a…22a8 at0004 = ╱50╱P╱ // 0x229e @0x4
0x229a…22a8 at0005 = ╱dc╱=╱ // 0x229f @0x5
0x229a…22a8 at0006 = ╱e9╱-╱ // 0x22a0 @0x6
0x229a…22a8 at0007 = ╱37╱7╱ // 0x22a1 @0x7
0x229a…22a8 at0008 = ╱fe0000e003╱ // 0x22a2 @0x8
0x229a…22a8 at000d = EOL // 0x22a7 @0xd
0x229a…22a8 }
0x22a8…22b6 b00d 4240 WHEN "N","n"
0x22a8…22b6 LineComalBin {
0x22a8…22b6 ptr = 0xb00d // 0x22a8 @0x0
0x22a8…22b6 lno = 0x1090 // 0x22aa @0x2
0x22a8…22b6 at0004 = ╱a300╱ WHEN ╱ // 0x22ac @0x4
0x22a8…22b6 at0006 = ╱22╱"╱ // 0x22ae @0x6
0x22a8…22b6 at0007 = ╱4e╱N╱ // 0x22af @0x7
0x22a8…22b6 at0008 = ╱22╱"╱ // 0x22b0 @0x8
0x22a8…22b6 at0009 = ╱ec╱,╱ // 0x22b1 @0x9
0x22a8…22b6 at000a = ╱22╱"╱ // 0x22b2 @0xa
0x22a8…22b6 at000b = ╱6e╱n╱ // 0x22b3 @0xb
0x22a8…22b6 at000c = ╱22╱"╱ // 0x22b4 @0xc
0x22a8…22b6 at000d = EOL // 0x22b5 @0xd
0x22a8…22b6 }
0x22b6…22c4 b01b 4250 P=-8
0x22b6…22c4 LineComalBin {
0x22b6…22c4 ptr = 0xb01b // 0x22b6 @0x0
0x22b6…22c4 lno = 0x109a // 0x22b8 @0x2
0x22b6…22c4 at0004 = ╱50╱P╱ // 0x22ba @0x4
0x22b6…22c4 at0005 = ╱dc╱=╱ // 0x22bb @0x5
0x22b6…22c4 at0006 = ╱e9╱-╱ // 0x22bc @0x6
0x22b6…22c4 at0007 = ╱38╱8╱ // 0x22bd @0x7
0x22b6…22c4 at0008 = ╱fe00008004╱ // 0x22be @0x8
0x22b6…22c4 at000d = EOL // 0x22c3 @0xd
0x22b6…22c4 }
0x22c4…22ca b021 4260 ENDCASE
0x22c4…22ca LineComalBin {
0x22c4…22ca ptr = 0xb021 // 0x22c4 @0x0
0x22c4…22ca lno = 0x10a4 // 0x22c6 @0x2
0x22c4…22ca at0004 = ╱a4╱ ENDCASE ╱ // 0x22c8 @0x4
0x22c4…22ca at0005 = EOL // 0x22c9 @0x5
0x22c4…22ca }
0x22ca…22d0 b027 4270 ENDCASE
0x22ca…22d0 LineComalBin {
0x22ca…22d0 ptr = 0xb027 // 0x22ca @0x0
0x22ca…22d0 lno = 0x10ae // 0x22cc @0x2
0x22ca…22d0 at0004 = ╱a4╱ ENDCASE ╱ // 0x22ce @0x4
0x22ca…22d0 at0005 = EOL // 0x22cf @0x5
0x22ca…22d0 }
0x22d0…22d6 b02d 4280 ENDPROC
0x22d0…22d6 LineComalBin {
0x22d0…22d6 ptr = 0xb02d // 0x22d0 @0x0
0x22d0…22d6 lno = 0x10b8 // 0x22d2 @0x2
0x22d0…22d6 at0004 = ╱9f╱ ENDPROC ╱ // 0x22d4 @0x4
0x22d0…22d6 at0005 = EOL // 0x22d5 @0x5
0x22d0…22d6 }
0x22d6…22e6 b03d 4290 PROC OVERSKRIFT
0x22d6…22e6 LineComalBin {
0x22d6…22e6 ptr = 0xb03d // 0x22d6 @0x0
0x22d6…22e6 lno = 0x10c2 // 0x22d8 @0x2
0x22d6…22e6 at0004 = ╱9e╱ PROC ╱ // 0x22da @0x4
0x22d6…22e6 at0005 = ╱4f╱O╱ // 0x22db @0x5
0x22d6…22e6 at0006 = ╱56╱V╱ // 0x22dc @0x6
0x22d6…22e6 at0007 = ╱45╱E╱ // 0x22dd @0x7
0x22d6…22e6 at0008 = ╱52╱R╱ // 0x22de @0x8
0x22d6…22e6 at0009 = ╱53╱S╱ // 0x22df @0x9
0x22d6…22e6 at000a = ╱4b╱K╱ // 0x22e0 @0xa
0x22d6…22e6 at000b = ╱52╱R╱ // 0x22e1 @0xb
0x22d6…22e6 at000c = ╱49╱I╱ // 0x22e2 @0xc
0x22d6…22e6 at000d = ╱46╱F╱ // 0x22e3 @0xd
0x22d6…22e6 at000e = ╱54╱T╱ // 0x22e4 @0xe
0x22d6…22e6 at000f = EOL // 0x22e5 @0xf
0x22d6…22e6 }
0x22e6…22f5 b04c 4300 CURSOR 45,E
0x22e6…22f5 LineComalBin {
0x22e6…22f5 ptr = 0xb04c // 0x22e6 @0x0
0x22e6…22f5 lno = 0x10cc // 0x22e8 @0x2
0x22e6…22f5 at0004 = ╱a1╱ CURSOR ╱ // 0x22ea @0x4
0x22e6…22f5 at0005 = ╱34╱4╱ // 0x22eb @0x5
0x22e6…22f5 at0006 = ╱35╱5╱ // 0x22ec @0x6
0x22e6…22f5 at0007 = ╱fe0000b406╱ // 0x22ed @0x7
0x22e6…22f5 at000c = ╱ec╱,╱ // 0x22f2 @0xc
0x22e6…22f5 at000d = ╱45╱E╱ // 0x22f3 @0xd
0x22e6…22f5 at000e = EOL // 0x22f4 @0xe
0x22e6…22f5 }
0x22f5…2301 b058 4310 CASE TYPE OF
0x22f5…2301 LineComalBin {
0x22f5…2301 ptr = 0xb058 // 0x22f5 @0x0
0x22f5…2301 lno = 0x10d6 // 0x22f7 @0x2
0x22f5…2301 at0004 = ╱a201╱ CASE ╱ // 0x22f9 @0x4
0x22f5…2301 at0006 = ╱54╱T╱ // 0x22fb @0x6
0x22f5…2301 at0007 = ╱59╱Y╱ // 0x22fc @0x7
0x22f5…2301 at0008 = ╱50╱P╱ // 0x22fd @0x8
0x22f5…2301 at0009 = ╱45╱E╱ // 0x22fe @0x9
0x22f5…2301 at000a = ╱ba╱ OF ╱ // 0x22ff @0xa
0x22f5…2301 at000b = EOL // 0x2300 @0xb
0x22f5…2301 }
0x2301…2309 b060 4320 WHEN E
0x2301…2309 LineComalBin {
0x2301…2309 ptr = 0xb060 // 0x2301 @0x0
0x2301…2309 lno = 0x10e0 // 0x2303 @0x2
0x2301…2309 at0004 = ╱a301╱ WHEN ╱ // 0x2305 @0x4
0x2301…2309 at0006 = ╱45╱E╱ // 0x2307 @0x6
0x2301…2309 at0007 = EOL // 0x2308 @0x7
0x2301…2309 }
0x2309…231b b072 4330 PRINT "Oprettelse"
0x2309…231b LineComalBin {
0x2309…231b ptr = 0xb072 // 0x2309 @0x0
0x2309…231b lno = 0x10ea // 0x230b @0x2
0x2309…231b at0004 = ╱92╱ PRINT ╱ // 0x230d @0x4
0x2309…231b at0005 = ╱22╱"╱ // 0x230e @0x5
0x2309…231b at0006 = ╱4f╱O╱ // 0x230f @0x6
0x2309…231b at0007 = ╱70╱p╱ // 0x2310 @0x7
0x2309…231b at0008 = ╱72╱r╱ // 0x2311 @0x8
0x2309…231b at0009 = ╱65╱e╱ // 0x2312 @0x9
0x2309…231b at000a = ╱74╱t╱ // 0x2313 @0xa
0x2309…231b at000b = ╱74╱t╱ // 0x2314 @0xb
0x2309…231b at000c = ╱65╱e╱ // 0x2315 @0xc
0x2309…231b at000d = ╱6c╱l╱ // 0x2316 @0xd
0x2309…231b at000e = ╱73╱s╱ // 0x2317 @0xe
0x2309…231b at000f = ╱65╱e╱ // 0x2318 @0xf
0x2309…231b at0010 = ╱22╱"╱ // 0x2319 @0x10
0x2309…231b at0011 = EOL // 0x231a @0x11
0x2309…231b }
0x231b…2323 b07a 4340 WHEN G
0x231b…2323 LineComalBin {
0x231b…2323 ptr = 0xb07a // 0x231b @0x0
0x231b…2323 lno = 0x10f4 // 0x231d @0x2
0x231b…2323 at0004 = ╱a301╱ WHEN ╱ // 0x231f @0x4
0x231b…2323 at0006 = ╱47╱G╱ // 0x2321 @0x6
0x231b…2323 at0007 = EOL // 0x2322 @0x7
0x231b…2323 }
0x2323…2332 b089 4350 PRINT "Ændring"
0x2323…2332 LineComalBin {
0x2323…2332 ptr = 0xb089 // 0x2323 @0x0
0x2323…2332 lno = 0x10fe // 0x2325 @0x2
0x2323…2332 at0004 = ╱92╱ PRINT ╱ // 0x2327 @0x4
0x2323…2332 at0005 = ╱22╱"╱ // 0x2328 @0x5
0x2323…2332 at0006 = ╱5b╱Æ╱ // 0x2329 @0x6
0x2323…2332 at0007 = ╱6e╱n╱ // 0x232a @0x7
0x2323…2332 at0008 = ╱64╱d╱ // 0x232b @0x8
0x2323…2332 at0009 = ╱72╱r╱ // 0x232c @0x9
0x2323…2332 at000a = ╱69╱i╱ // 0x232d @0xa
0x2323…2332 at000b = ╱6e╱n╱ // 0x232e @0xb
0x2323…2332 at000c = ╱67╱g╱ // 0x232f @0xc
0x2323…2332 at000d = ╱22╱"╱ // 0x2330 @0xd
0x2323…2332 at000e = EOL // 0x2331 @0xe
0x2323…2332 }
0x2332…233a b091 4360 WHEN V
0x2332…233a LineComalBin {
0x2332…233a ptr = 0xb091 // 0x2332 @0x0
0x2332…233a lno = 0x1108 // 0x2334 @0x2
0x2332…233a at0004 = ╱a301╱ WHEN ╱ // 0x2336 @0x4
0x2332…233a at0006 = ╱56╱V╱ // 0x2338 @0x6
0x2332…233a at0007 = EOL // 0x2339 @0x7
0x2332…233a }
0x233a…234a b0a1 4370 PRINT "Sletning"
0x233a…234a LineComalBin {
0x233a…234a ptr = 0xb0a1 // 0x233a @0x0
0x233a…234a lno = 0x1112 // 0x233c @0x2
0x233a…234a at0004 = ╱92╱ PRINT ╱ // 0x233e @0x4
0x233a…234a at0005 = ╱22╱"╱ // 0x233f @0x5
0x233a…234a at0006 = ╱53╱S╱ // 0x2340 @0x6
0x233a…234a at0007 = ╱6c╱l╱ // 0x2341 @0x7
0x233a…234a at0008 = ╱65╱e╱ // 0x2342 @0x8
0x233a…234a at0009 = ╱74╱t╱ // 0x2343 @0x9
0x233a…234a at000a = ╱6e╱n╱ // 0x2344 @0xa
0x233a…234a at000b = ╱69╱i╱ // 0x2345 @0xb
0x233a…234a at000c = ╱6e╱n╱ // 0x2346 @0xc
0x233a…234a at000d = ╱67╱g╱ // 0x2347 @0xd
0x233a…234a at000e = ╱22╱"╱ // 0x2348 @0xe
0x233a…234a at000f = EOL // 0x2349 @0xf
0x233a…234a }
0x234a…2357 b0ae 4380 WHEN 4
0x234a…2357 LineComalBin {
0x234a…2357 ptr = 0xb0ae // 0x234a @0x0
0x234a…2357 lno = 0x111c // 0x234c @0x2
0x234a…2357 at0004 = ╱a301╱ WHEN ╱ // 0x234e @0x4
0x234a…2357 at0006 = ╱34╱4╱ // 0x2350 @0x6
0x234a…2357 at0007 = ╱fe00008003╱ // 0x2351 @0x7
0x234a…2357 at000c = EOL // 0x2356 @0xc
0x234a…2357 }
0x2357…2367 b0be 4390 PRINT "Udskrift"
0x2357…2367 LineComalBin {
0x2357…2367 ptr = 0xb0be // 0x2357 @0x0
0x2357…2367 lno = 0x1126 // 0x2359 @0x2
0x2357…2367 at0004 = ╱92╱ PRINT ╱ // 0x235b @0x4
0x2357…2367 at0005 = ╱22╱"╱ // 0x235c @0x5
0x2357…2367 at0006 = ╱55╱U╱ // 0x235d @0x6
0x2357…2367 at0007 = ╱64╱d╱ // 0x235e @0x7
0x2357…2367 at0008 = ╱73╱s╱ // 0x235f @0x8
0x2357…2367 at0009 = ╱6b╱k╱ // 0x2360 @0x9
0x2357…2367 at000a = ╱72╱r╱ // 0x2361 @0xa
0x2357…2367 at000b = ╱69╱i╱ // 0x2362 @0xb
0x2357…2367 at000c = ╱66╱f╱ // 0x2363 @0xc
0x2357…2367 at000d = ╱74╱t╱ // 0x2364 @0xd
0x2357…2367 at000e = ╱22╱"╱ // 0x2365 @0xe
0x2357…2367 at000f = EOL // 0x2366 @0xf
0x2357…2367 }
0x2367…2374 b0cb 4400 WHEN 5
0x2367…2374 LineComalBin {
0x2367…2374 ptr = 0xb0cb // 0x2367 @0x0
0x2367…2374 lno = 0x1130 // 0x2369 @0x2
0x2367…2374 at0004 = ╱a301╱ WHEN ╱ // 0x236b @0x4
0x2367…2374 at0006 = ╱35╱5╱ // 0x236d @0x6
0x2367…2374 at0007 = ╱fe0000a003╱ // 0x236e @0x7
0x2367…2374 at000c = EOL // 0x2373 @0xc
0x2367…2374 }
0x2374…238b b0e2 4410 PRINT "Kundekontoliste"
0x2374…238b LineComalBin {
0x2374…238b ptr = 0xb0e2 // 0x2374 @0x0
0x2374…238b lno = 0x113a // 0x2376 @0x2
0x2374…238b at0004 = ╱92╱ PRINT ╱ // 0x2378 @0x4
0x2374…238b at0005 = ╱22╱"╱ // 0x2379 @0x5
0x2374…238b at0006 = ╱4b╱K╱ // 0x237a @0x6
0x2374…238b at0007 = ╱75╱u╱ // 0x237b @0x7
0x2374…238b at0008 = ╱6e╱n╱ // 0x237c @0x8
0x2374…238b at0009 = ╱64╱d╱ // 0x237d @0x9
0x2374…238b at000a = ╱65╱e╱ // 0x237e @0xa
0x2374…238b at000b = ╱6b╱k╱ // 0x237f @0xb
0x2374…238b at000c = ╱6f╱o╱ // 0x2380 @0xc
0x2374…238b at000d = ╱6e╱n╱ // 0x2381 @0xd
0x2374…238b at000e = ╱74╱t╱ // 0x2382 @0xe
0x2374…238b at000f = ╱6f╱o╱ // 0x2383 @0xf
0x2374…238b at0010 = ╱6c╱l╱ // 0x2384 @0x10
0x2374…238b at0011 = ╱69╱i╱ // 0x2385 @0x11
0x2374…238b at0012 = ╱73╱s╱ // 0x2386 @0x12
0x2374…238b at0013 = ╱74╱t╱ // 0x2387 @0x13
0x2374…238b at0014 = ╱65╱e╱ // 0x2388 @0x14
0x2374…238b at0015 = ╱22╱"╱ // 0x2389 @0x15
0x2374…238b at0016 = EOL // 0x238a @0x16
0x2374…238b }
0x238b…2391 b0e8 4420 ENDCASE
0x238b…2391 LineComalBin {
0x238b…2391 ptr = 0xb0e8 // 0x238b @0x0
0x238b…2391 lno = 0x1144 // 0x238d @0x2
0x238b…2391 at0004 = ╱a4╱ ENDCASE ╱ // 0x238f @0x4
0x238b…2391 at0005 = EOL // 0x2390 @0x5
0x238b…2391 }
0x2391…2397 b0ee 4430 ENDPROC
0x2391…2397 LineComalBin {
0x2391…2397 ptr = 0xb0ee // 0x2391 @0x0
0x2391…2397 lno = 0x114e // 0x2393 @0x2
0x2391…2397 at0004 = ╱9f╱ ENDPROC ╱ // 0x2395 @0x4
0x2391…2397 at0005 = EOL // 0x2396 @0x5
0x2391…2397 }
0x2397…23b1 b108 4440 K1$="P641220:SYSTEM1"
0x2397…23b1 LineComalBin {
0x2397…23b1 ptr = 0xb108 // 0x2397 @0x0
0x2397…23b1 lno = 0x1158 // 0x2399 @0x2
0x2397…23b1 at0004 = ╱4b╱K╱ // 0x239b @0x4
0x2397…23b1 at0005 = ╱31╱1╱ // 0x239c @0x5
0x2397…23b1 at0006 = ╱ef╱$╱ // 0x239d @0x6
0x2397…23b1 at0007 = ╱dc╱=╱ // 0x239e @0x7
0x2397…23b1 at0008 = ╱22╱"╱ // 0x239f @0x8
0x2397…23b1 at0009 = ╱50╱P╱ // 0x23a0 @0x9
0x2397…23b1 at000a = ╱36╱6╱ // 0x23a1 @0xa
0x2397…23b1 at000b = ╱34╱4╱ // 0x23a2 @0xb
0x2397…23b1 at000c = ╱31╱1╱ // 0x23a3 @0xc
0x2397…23b1 at000d = ╱32╱2╱ // 0x23a4 @0xd
0x2397…23b1 at000e = ╱32╱2╱ // 0x23a5 @0xe
0x2397…23b1 at000f = ╱30╱0╱ // 0x23a6 @0xf
0x2397…23b1 at0010 = ╱3a╱:╱ // 0x23a7 @0x10
0x2397…23b1 at0011 = ╱53╱S╱ // 0x23a8 @0x11
0x2397…23b1 at0012 = ╱59╱Y╱ // 0x23a9 @0x12
0x2397…23b1 at0013 = ╱53╱S╱ // 0x23aa @0x13
0x2397…23b1 at0014 = ╱54╱T╱ // 0x23ab @0x14
0x2397…23b1 at0015 = ╱45╱E╱ // 0x23ac @0x15
0x2397…23b1 at0016 = ╱4d╱M╱ // 0x23ad @0x16
0x2397…23b1 at0017 = ╱31╱1╱ // 0x23ae @0x17
0x2397…23b1 at0018 = ╱22╱"╱ // 0x23af @0x18
0x2397…23b1 at0019 = EOL // 0x23b0 @0x19
0x2397…23b1 }
0x23b1…23bc b113 4450 OPEN K1$,R
0x23b1…23bc LineComalBin {
0x23b1…23bc ptr = 0xb113 // 0x23b1 @0x0
0x23b1…23bc lno = 0x1162 // 0x23b3 @0x2
0x23b1…23bc at0004 = ╱a7╱ OPEN ╱ // 0x23b5 @0x4
0x23b1…23bc at0005 = ╱4b╱K╱ // 0x23b6 @0x5
0x23b1…23bc at0006 = ╱31╱1╱ // 0x23b7 @0x6
0x23b1…23bc at0007 = ╱ef╱$╱ // 0x23b8 @0x7
0x23b1…23bc at0008 = ╱ec╱,╱ // 0x23b9 @0x8
0x23b1…23bc at0009 = ╱52╱R╱ // 0x23ba @0x9
0x23b1…23bc at000a = EOL // 0x23bb @0xa
0x23b1…23bc }
0x23bc…23cf b126 4460 EXEC FEJL(W,E,K1$)
0x23bc…23cf LineComalBin {
0x23bc…23cf ptr = 0xb126 // 0x23bc @0x0
0x23bc…23cf lno = 0x116c // 0x23be @0x2
0x23bc…23cf at0004 = ╱9d╱ EXEC ╱ // 0x23c0 @0x4
0x23bc…23cf at0005 = ╱46╱F╱ // 0x23c1 @0x5
0x23bc…23cf at0006 = ╱45╱E╱ // 0x23c2 @0x6
0x23bc…23cf at0007 = ╱4a╱J╱ // 0x23c3 @0x7
0x23bc…23cf at0008 = ╱4c╱L╱ // 0x23c4 @0x8
0x23bc…23cf at0009 = ╱ed╱(╱ // 0x23c5 @0x9
0x23bc…23cf at000a = ╱57╱W╱ // 0x23c6 @0xa
0x23bc…23cf at000b = ╱ec╱,╱ // 0x23c7 @0xb
0x23bc…23cf at000c = ╱45╱E╱ // 0x23c8 @0xc
0x23bc…23cf at000d = ╱ec╱,╱ // 0x23c9 @0xd
0x23bc…23cf at000e = ╱4b╱K╱ // 0x23ca @0xe
0x23bc…23cf at000f = ╱31╱1╱ // 0x23cb @0xf
0x23bc…23cf at0010 = ╱ef╱$╱ // 0x23cc @0x10
0x23bc…23cf at0011 = ╱ee╱)╱ // 0x23cd @0x11
0x23bc…23cf at0012 = EOL // 0x23ce @0x12
0x23bc…23cf }
0x23cf…23ea b141 4470 GET K1$,E:MFANTAL,MDANTAL
0x23cf…23ea LineComalBin {
0x23cf…23ea ptr = 0xb141 // 0x23cf @0x0
0x23cf…23ea lno = 0x1176 // 0x23d1 @0x2
0x23cf…23ea at0004 = ╱a9╱ GET ╱ // 0x23d3 @0x4
0x23cf…23ea at0005 = ╱4b╱K╱ // 0x23d4 @0x5
0x23cf…23ea at0006 = ╱31╱1╱ // 0x23d5 @0x6
0x23cf…23ea at0007 = ╱ef╱$╱ // 0x23d6 @0x7
0x23cf…23ea at0008 = ╱ec╱,╱ // 0x23d7 @0x8
0x23cf…23ea at0009 = ╱45╱E╱ // 0x23d8 @0x9
0x23cf…23ea at000a = ╱f0╱:╱ // 0x23d9 @0xa
0x23cf…23ea at000b = ╱4d╱M╱ // 0x23da @0xb
0x23cf…23ea at000c = ╱46╱F╱ // 0x23db @0xc
0x23cf…23ea at000d = ╱41╱A╱ // 0x23dc @0xd
0x23cf…23ea at000e = ╱4e╱N╱ // 0x23dd @0xe
0x23cf…23ea at000f = ╱54╱T╱ // 0x23de @0xf
0x23cf…23ea at0010 = ╱41╱A╱ // 0x23df @0x10
0x23cf…23ea at0011 = ╱4c╱L╱ // 0x23e0 @0x11
0x23cf…23ea at0012 = ╱ec╱,╱ // 0x23e1 @0x12
0x23cf…23ea at0013 = ╱4d╱M╱ // 0x23e2 @0x13
0x23cf…23ea at0014 = ╱44╱D╱ // 0x23e3 @0x14
0x23cf…23ea at0015 = ╱41╱A╱ // 0x23e4 @0x15
0x23cf…23ea at0016 = ╱4e╱N╱ // 0x23e5 @0x16
0x23cf…23ea at0017 = ╱54╱T╱ // 0x23e6 @0x17
0x23cf…23ea at0018 = ╱41╱A╱ // 0x23e7 @0x18
0x23cf…23ea at0019 = ╱4c╱L╱ // 0x23e8 @0x19
0x23cf…23ea at001a = EOL // 0x23e9 @0x1a
0x23cf…23ea }
0x23ea…23fd b154 4480 EXEC FEJL(W,G,K1$)
0x23ea…23fd LineComalBin {
0x23ea…23fd ptr = 0xb154 // 0x23ea @0x0
0x23ea…23fd lno = 0x1180 // 0x23ec @0x2
0x23ea…23fd at0004 = ╱9d╱ EXEC ╱ // 0x23ee @0x4
0x23ea…23fd at0005 = ╱46╱F╱ // 0x23ef @0x5
0x23ea…23fd at0006 = ╱45╱E╱ // 0x23f0 @0x6
0x23ea…23fd at0007 = ╱4a╱J╱ // 0x23f1 @0x7
0x23ea…23fd at0008 = ╱4c╱L╱ // 0x23f2 @0x8
0x23ea…23fd at0009 = ╱ed╱(╱ // 0x23f3 @0x9
0x23ea…23fd at000a = ╱57╱W╱ // 0x23f4 @0xa
0x23ea…23fd at000b = ╱ec╱,╱ // 0x23f5 @0xb
0x23ea…23fd at000c = ╱47╱G╱ // 0x23f6 @0xc
0x23ea…23fd at000d = ╱ec╱,╱ // 0x23f7 @0xd
0x23ea…23fd at000e = ╱4b╱K╱ // 0x23f8 @0xe
0x23ea…23fd at000f = ╱31╱1╱ // 0x23f9 @0xf
0x23ea…23fd at0010 = ╱ef╱$╱ // 0x23fa @0x10
0x23ea…23fd at0011 = ╱ee╱)╱ // 0x23fb @0x11
0x23ea…23fd at0012 = EOL // 0x23fc @0x12
0x23ea…23fd }
0x23fd…2423 b17a 4490 GET K1$,4:MKRMID,MFAK,MVGR,MKGR
0x23fd…2423 LineComalBin {
0x23fd…2423 ptr = 0xb17a // 0x23fd @0x0
0x23fd…2423 lno = 0x118a // 0x23ff @0x2
0x23fd…2423 at0004 = ╱a9╱ GET ╱ // 0x2401 @0x4
0x23fd…2423 at0005 = ╱4b╱K╱ // 0x2402 @0x5
0x23fd…2423 at0006 = ╱31╱1╱ // 0x2403 @0x6
0x23fd…2423 at0007 = ╱ef╱$╱ // 0x2404 @0x7
0x23fd…2423 at0008 = ╱ec╱,╱ // 0x2405 @0x8
0x23fd…2423 at0009 = ╱34╱4╱ // 0x2406 @0x9
0x23fd…2423 at000a = ╱fe00008003╱ // 0x2407 @0xa
0x23fd…2423 at000f = ╱f0╱:╱ // 0x240c @0xf
0x23fd…2423 at0010 = ╱4d╱M╱ // 0x240d @0x10
0x23fd…2423 at0011 = ╱4b╱K╱ // 0x240e @0x11
0x23fd…2423 at0012 = ╱52╱R╱ // 0x240f @0x12
0x23fd…2423 at0013 = ╱4d╱M╱ // 0x2410 @0x13
0x23fd…2423 at0014 = ╱49╱I╱ // 0x2411 @0x14
0x23fd…2423 at0015 = ╱44╱D╱ // 0x2412 @0x15
0x23fd…2423 at0016 = ╱ec╱,╱ // 0x2413 @0x16
0x23fd…2423 at0017 = ╱4d╱M╱ // 0x2414 @0x17
0x23fd…2423 at0018 = ╱46╱F╱ // 0x2415 @0x18
0x23fd…2423 at0019 = ╱41╱A╱ // 0x2416 @0x19
0x23fd…2423 at001a = ╱4b╱K╱ // 0x2417 @0x1a
0x23fd…2423 at001b = ╱ec╱,╱ // 0x2418 @0x1b
0x23fd…2423 at001c = ╱4d╱M╱ // 0x2419 @0x1c
0x23fd…2423 at001d = ╱56╱V╱ // 0x241a @0x1d
0x23fd…2423 at001e = ╱47╱G╱ // 0x241b @0x1e
0x23fd…2423 at001f = ╱52╱R╱ // 0x241c @0x1f
0x23fd…2423 at0020 = ╱ec╱,╱ // 0x241d @0x20
0x23fd…2423 at0021 = ╱4d╱M╱ // 0x241e @0x21
0x23fd…2423 at0022 = ╱4b╱K╱ // 0x241f @0x22
0x23fd…2423 at0023 = ╱47╱G╱ // 0x2420 @0x23
0x23fd…2423 at0024 = ╱52╱R╱ // 0x2421 @0x24
0x23fd…2423 at0025 = EOL // 0x2422 @0x25
0x23fd…2423 }
0x2423…2436 b18d 4500 EXEC FEJL(W,V,K1$)
0x2423…2436 LineComalBin {
0x2423…2436 ptr = 0xb18d // 0x2423 @0x0
0x2423…2436 lno = 0x1194 // 0x2425 @0x2
0x2423…2436 at0004 = ╱9d╱ EXEC ╱ // 0x2427 @0x4
0x2423…2436 at0005 = ╱46╱F╱ // 0x2428 @0x5
0x2423…2436 at0006 = ╱45╱E╱ // 0x2429 @0x6
0x2423…2436 at0007 = ╱4a╱J╱ // 0x242a @0x7
0x2423…2436 at0008 = ╱4c╱L╱ // 0x242b @0x8
0x2423…2436 at0009 = ╱ed╱(╱ // 0x242c @0x9
0x2423…2436 at000a = ╱57╱W╱ // 0x242d @0xa
0x2423…2436 at000b = ╱ec╱,╱ // 0x242e @0xb
0x2423…2436 at000c = ╱56╱V╱ // 0x242f @0xc
0x2423…2436 at000d = ╱ec╱,╱ // 0x2430 @0xd
0x2423…2436 at000e = ╱4b╱K╱ // 0x2431 @0xe
0x2423…2436 at000f = ╱31╱1╱ // 0x2432 @0xf
0x2423…2436 at0010 = ╱ef╱$╱ // 0x2433 @0x10
0x2423…2436 at0011 = ╱ee╱)╱ // 0x2434 @0x11
0x2423…2436 at0012 = EOL // 0x2435 @0x12
0x2423…2436 }
0x2436…245e b1b5 4510 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL
0x2436…245e LineComalBin {
0x2436…245e ptr = 0xb1b5 // 0x2436 @0x0
0x2436…245e lno = 0x119e // 0x2438 @0x2
0x2436…245e at0004 = ╱a9╱ GET ╱ // 0x243a @0x4
0x2436…245e at0005 = ╱4b╱K╱ // 0x243b @0x5
0x2436…245e at0006 = ╱31╱1╱ // 0x243c @0x6
0x2436…245e at0007 = ╱ef╱$╱ // 0x243d @0x7
0x2436…245e at0008 = ╱ec╱,╱ // 0x243e @0x8
0x2436…245e at0009 = ╱38╱8╱ // 0x243f @0x9
0x2436…245e at000a = ╱fe00008004╱ // 0x2440 @0xa
0x2436…245e at000f = ╱f0╱:╱ // 0x2445 @0xf
0x2436…245e at0010 = ╱44╱D╱ // 0x2446 @0x10
0x2436…245e at0011 = ╱49╱I╱ // 0x2447 @0x11
0x2436…245e at0012 = ╱56╱V╱ // 0x2448 @0x12
0x2436…245e at0013 = ╱4e╱N╱ // 0x2449 @0x13
0x2436…245e at0014 = ╱52╱R╱ // 0x244a @0x14
0x2436…245e at0015 = ╱ec╱,╱ // 0x244b @0x15
0x2436…245e at0016 = ╱44╱D╱ // 0x244c @0x16
0x2436…245e at0017 = ╱49╱I╱ // 0x244d @0x17
0x2436…245e at0018 = ╱56╱V╱ // 0x244e @0x18
0x2436…245e at0019 = ╱44╱D╱ // 0x244f @0x19
0x2436…245e at001a = ╱4e╱N╱ // 0x2450 @0x1a
0x2436…245e at001b = ╱52╱R╱ // 0x2451 @0x1b
0x2436…245e at001c = ╱ec╱,╱ // 0x2452 @0x1c
0x2436…245e at001d = ╱44╱D╱ // 0x2453 @0x1d
0x2436…245e at001e = ╱49╱I╱ // 0x2454 @0x1e
0x2436…245e at001f = ╱46╱F╱ // 0x2455 @0x1f
0x2436…245e at0020 = ╱4e╱N╱ // 0x2456 @0x20
0x2436…245e at0021 = ╱52╱R╱ // 0x2457 @0x21
0x2436…245e at0022 = ╱ec╱,╱ // 0x2458 @0x22
0x2436…245e at0023 = ╱44╱D╱ // 0x2459 @0x23
0x2436…245e at0024 = ╱54╱T╱ // 0x245a @0x24
0x2436…245e at0025 = ╱41╱A╱ // 0x245b @0x25
0x2436…245e at0026 = ╱4c╱L╱ // 0x245c @0x26
0x2436…245e at0027 = EOL // 0x245d @0x27
0x2436…245e }
0x245e…2476 b1cd 4520 EXEC FEJL(W,4,K1$)
0x245e…2476 LineComalBin {
0x245e…2476 ptr = 0xb1cd // 0x245e @0x0
0x245e…2476 lno = 0x11a8 // 0x2460 @0x2
0x245e…2476 at0004 = ╱9d╱ EXEC ╱ // 0x2462 @0x4
0x245e…2476 at0005 = ╱46╱F╱ // 0x2463 @0x5
0x245e…2476 at0006 = ╱45╱E╱ // 0x2464 @0x6
0x245e…2476 at0007 = ╱4a╱J╱ // 0x2465 @0x7
0x245e…2476 at0008 = ╱4c╱L╱ // 0x2466 @0x8
0x245e…2476 at0009 = ╱ed╱(╱ // 0x2467 @0x9
0x245e…2476 at000a = ╱57╱W╱ // 0x2468 @0xa
0x245e…2476 at000b = ╱ec╱,╱ // 0x2469 @0xb
0x245e…2476 at000c = ╱34╱4╱ // 0x246a @0xc
0x245e…2476 at000d = ╱fe00008003╱ // 0x246b @0xd
0x245e…2476 at0012 = ╱ec╱,╱ // 0x2470 @0x12
0x245e…2476 at0013 = ╱4b╱K╱ // 0x2471 @0x13
0x245e…2476 at0014 = ╱31╱1╱ // 0x2472 @0x14
0x245e…2476 at0015 = ╱ef╱$╱ // 0x2473 @0x15
0x245e…2476 at0016 = ╱ee╱)╱ // 0x2474 @0x16
0x245e…2476 at0017 = EOL // 0x2475 @0x17
0x245e…2476 }
0x2476…248a b1e1 4530 GET K1$,10:N$
0x2476…248a LineComalBin {
0x2476…248a ptr = 0xb1e1 // 0x2476 @0x0
0x2476…248a lno = 0x11b2 // 0x2478 @0x2
0x2476…248a at0004 = ╱a9╱ GET ╱ // 0x247a @0x4
0x2476…248a at0005 = ╱4b╱K╱ // 0x247b @0x5
0x2476…248a at0006 = ╱31╱1╱ // 0x247c @0x6
0x2476…248a at0007 = ╱ef╱$╱ // 0x247d @0x7
0x2476…248a at0008 = ╱ec╱,╱ // 0x247e @0x8
0x2476…248a at0009 = ╱31╱1╱ // 0x247f @0x9
0x2476…248a at000a = ╱30╱0╱ // 0x2480 @0xa
0x2476…248a at000b = ╱fe0000a004╱ // 0x2481 @0xb
0x2476…248a at0010 = ╱f0╱:╱ // 0x2486 @0x10
0x2476…248a at0011 = ╱4e╱N╱ // 0x2487 @0x11
0x2476…248a at0012 = ╱ef╱$╱ // 0x2488 @0x12
0x2476…248a at0013 = EOL // 0x2489 @0x13
0x2476…248a }
0x248a…24a2 b1f9 4540 EXEC FEJL(W,5,K1$)
0x248a…24a2 LineComalBin {
0x248a…24a2 ptr = 0xb1f9 // 0x248a @0x0
0x248a…24a2 lno = 0x11bc // 0x248c @0x2
0x248a…24a2 at0004 = ╱9d╱ EXEC ╱ // 0x248e @0x4
0x248a…24a2 at0005 = ╱46╱F╱ // 0x248f @0x5
0x248a…24a2 at0006 = ╱45╱E╱ // 0x2490 @0x6
0x248a…24a2 at0007 = ╱4a╱J╱ // 0x2491 @0x7
0x248a…24a2 at0008 = ╱4c╱L╱ // 0x2492 @0x8
0x248a…24a2 at0009 = ╱ed╱(╱ // 0x2493 @0x9
0x248a…24a2 at000a = ╱57╱W╱ // 0x2494 @0xa
0x248a…24a2 at000b = ╱ec╱,╱ // 0x2495 @0xb
0x248a…24a2 at000c = ╱35╱5╱ // 0x2496 @0xc
0x248a…24a2 at000d = ╱fe0000a003╱ // 0x2497 @0xd
0x248a…24a2 at0012 = ╱ec╱,╱ // 0x249c @0x12
0x248a…24a2 at0013 = ╱4b╱K╱ // 0x249d @0x13
0x248a…24a2 at0014 = ╱31╱1╱ // 0x249e @0x14
0x248a…24a2 at0015 = ╱ef╱$╱ // 0x249f @0x15
0x248a…24a2 at0016 = ╱ee╱)╱ // 0x24a0 @0x16
0x248a…24a2 at0017 = EOL // 0x24a1 @0x17
0x248a…24a2 }
0x24a2…24b7 b20e 4550 GET K1$,12:K2$
0x24a2…24b7 LineComalBin {
0x24a2…24b7 ptr = 0xb20e // 0x24a2 @0x0
0x24a2…24b7 lno = 0x11c6 // 0x24a4 @0x2
0x24a2…24b7 at0004 = ╱a9╱ GET ╱ // 0x24a6 @0x4
0x24a2…24b7 at0005 = ╱4b╱K╱ // 0x24a7 @0x5
0x24a2…24b7 at0006 = ╱31╱1╱ // 0x24a8 @0x6
0x24a2…24b7 at0007 = ╱ef╱$╱ // 0x24a9 @0x7
0x24a2…24b7 at0008 = ╱ec╱,╱ // 0x24aa @0x8
0x24a2…24b7 at0009 = ╱31╱1╱ // 0x24ab @0x9
0x24a2…24b7 at000a = ╱32╱2╱ // 0x24ac @0xa
0x24a2…24b7 at000b = ╱fe0000c004╱ // 0x24ad @0xb
0x24a2…24b7 at0010 = ╱f0╱:╱ // 0x24b2 @0x10
0x24a2…24b7 at0011 = ╱4b╱K╱ // 0x24b3 @0x11
0x24a2…24b7 at0012 = ╱32╱2╱ // 0x24b4 @0x12
0x24a2…24b7 at0013 = ╱ef╱$╱ // 0x24b5 @0x13
0x24a2…24b7 at0014 = EOL // 0x24b6 @0x14
0x24a2…24b7 }
0x24b7…24cf b226 4560 EXEC FEJL(W,6,K1$)
0x24b7…24cf LineComalBin {
0x24b7…24cf ptr = 0xb226 // 0x24b7 @0x0
0x24b7…24cf lno = 0x11d0 // 0x24b9 @0x2
0x24b7…24cf at0004 = ╱9d╱ EXEC ╱ // 0x24bb @0x4
0x24b7…24cf at0005 = ╱46╱F╱ // 0x24bc @0x5
0x24b7…24cf at0006 = ╱45╱E╱ // 0x24bd @0x6
0x24b7…24cf at0007 = ╱4a╱J╱ // 0x24be @0x7
0x24b7…24cf at0008 = ╱4c╱L╱ // 0x24bf @0x8
0x24b7…24cf at0009 = ╱ed╱(╱ // 0x24c0 @0x9
0x24b7…24cf at000a = ╱57╱W╱ // 0x24c1 @0xa
0x24b7…24cf at000b = ╱ec╱,╱ // 0x24c2 @0xb
0x24b7…24cf at000c = ╱36╱6╱ // 0x24c3 @0xc
0x24b7…24cf at000d = ╱fe0000c003╱ // 0x24c4 @0xd
0x24b7…24cf at0012 = ╱ec╱,╱ // 0x24c9 @0x12
0x24b7…24cf at0013 = ╱4b╱K╱ // 0x24ca @0x13
0x24b7…24cf at0014 = ╱31╱1╱ // 0x24cb @0x14
0x24b7…24cf at0015 = ╱ef╱$╱ // 0x24cc @0x15
0x24b7…24cf at0016 = ╱ee╱)╱ // 0x24cd @0x16
0x24b7…24cf at0017 = EOL // 0x24ce @0x17
0x24b7…24cf }
0x24cf…24e4 b23b 4570 GET K1$,16:K3$
0x24cf…24e4 LineComalBin {
0x24cf…24e4 ptr = 0xb23b // 0x24cf @0x0
0x24cf…24e4 lno = 0x11da // 0x24d1 @0x2
0x24cf…24e4 at0004 = ╱a9╱ GET ╱ // 0x24d3 @0x4
0x24cf…24e4 at0005 = ╱4b╱K╱ // 0x24d4 @0x5
0x24cf…24e4 at0006 = ╱31╱1╱ // 0x24d5 @0x6
0x24cf…24e4 at0007 = ╱ef╱$╱ // 0x24d6 @0x7
0x24cf…24e4 at0008 = ╱ec╱,╱ // 0x24d7 @0x8
0x24cf…24e4 at0009 = ╱31╱1╱ // 0x24d8 @0x9
0x24cf…24e4 at000a = ╱36╱6╱ // 0x24d9 @0xa
0x24cf…24e4 at000b = ╱fe00008005╱ // 0x24da @0xb
0x24cf…24e4 at0010 = ╱f0╱:╱ // 0x24df @0x10
0x24cf…24e4 at0011 = ╱4b╱K╱ // 0x24e0 @0x11
0x24cf…24e4 at0012 = ╱33╱3╱ // 0x24e1 @0x12
0x24cf…24e4 at0013 = ╱ef╱$╱ // 0x24e2 @0x13
0x24cf…24e4 at0014 = EOL // 0x24e3 @0x14
0x24cf…24e4 }
0x24e4…24fc b253 4580 EXEC FEJL(W,7,K1$)
0x24e4…24fc LineComalBin {
0x24e4…24fc ptr = 0xb253 // 0x24e4 @0x0
0x24e4…24fc lno = 0x11e4 // 0x24e6 @0x2
0x24e4…24fc at0004 = ╱9d╱ EXEC ╱ // 0x24e8 @0x4
0x24e4…24fc at0005 = ╱46╱F╱ // 0x24e9 @0x5
0x24e4…24fc at0006 = ╱45╱E╱ // 0x24ea @0x6
0x24e4…24fc at0007 = ╱4a╱J╱ // 0x24eb @0x7
0x24e4…24fc at0008 = ╱4c╱L╱ // 0x24ec @0x8
0x24e4…24fc at0009 = ╱ed╱(╱ // 0x24ed @0x9
0x24e4…24fc at000a = ╱57╱W╱ // 0x24ee @0xa
0x24e4…24fc at000b = ╱ec╱,╱ // 0x24ef @0xb
0x24e4…24fc at000c = ╱37╱7╱ // 0x24f0 @0xc
0x24e4…24fc at000d = ╱fe0000e003╱ // 0x24f1 @0xd
0x24e4…24fc at0012 = ╱ec╱,╱ // 0x24f6 @0x12
0x24e4…24fc at0013 = ╱4b╱K╱ // 0x24f7 @0x13
0x24e4…24fc at0014 = ╱31╱1╱ // 0x24f8 @0x14
0x24e4…24fc at0015 = ╱ef╱$╱ // 0x24f9 @0x15
0x24e4…24fc at0016 = ╱ee╱)╱ // 0x24fa @0x16
0x24e4…24fc at0017 = EOL // 0x24fb @0x17
0x24e4…24fc }
0x24fc…2511 b268 4590 GET K1$,35:K4$
0x24fc…2511 LineComalBin {
0x24fc…2511 ptr = 0xb268 // 0x24fc @0x0
0x24fc…2511 lno = 0x11ee // 0x24fe @0x2
0x24fc…2511 at0004 = ╱a9╱ GET ╱ // 0x2500 @0x4
0x24fc…2511 at0005 = ╱4b╱K╱ // 0x2501 @0x5
0x24fc…2511 at0006 = ╱31╱1╱ // 0x2502 @0x6
0x24fc…2511 at0007 = ╱ef╱$╱ // 0x2503 @0x7
0x24fc…2511 at0008 = ╱ec╱,╱ // 0x2504 @0x8
0x24fc…2511 at0009 = ╱33╱3╱ // 0x2505 @0x9
0x24fc…2511 at000a = ╱35╱5╱ // 0x2506 @0xa
0x24fc…2511 at000b = ╱fe00008c06╱ // 0x2507 @0xb
0x24fc…2511 at0010 = ╱f0╱:╱ // 0x250c @0x10
0x24fc…2511 at0011 = ╱4b╱K╱ // 0x250d @0x11
0x24fc…2511 at0012 = ╱34╱4╱ // 0x250e @0x12
0x24fc…2511 at0013 = ╱ef╱$╱ // 0x250f @0x13
0x24fc…2511 at0014 = EOL // 0x2510 @0x14
0x24fc…2511 }
0x2511…2529 b280 4600 EXEC FEJL(W,8,K1$)
0x2511…2529 LineComalBin {
0x2511…2529 ptr = 0xb280 // 0x2511 @0x0
0x2511…2529 lno = 0x11f8 // 0x2513 @0x2
0x2511…2529 at0004 = ╱9d╱ EXEC ╱ // 0x2515 @0x4
0x2511…2529 at0005 = ╱46╱F╱ // 0x2516 @0x5
0x2511…2529 at0006 = ╱45╱E╱ // 0x2517 @0x6
0x2511…2529 at0007 = ╱4a╱J╱ // 0x2518 @0x7
0x2511…2529 at0008 = ╱4c╱L╱ // 0x2519 @0x8
0x2511…2529 at0009 = ╱ed╱(╱ // 0x251a @0x9
0x2511…2529 at000a = ╱57╱W╱ // 0x251b @0xa
0x2511…2529 at000b = ╱ec╱,╱ // 0x251c @0xb
0x2511…2529 at000c = ╱38╱8╱ // 0x251d @0xc
0x2511…2529 at000d = ╱fe00008004╱ // 0x251e @0xd
0x2511…2529 at0012 = ╱ec╱,╱ // 0x2523 @0x12
0x2511…2529 at0013 = ╱4b╱K╱ // 0x2524 @0x13
0x2511…2529 at0014 = ╱31╱1╱ // 0x2525 @0x14
0x2511…2529 at0015 = ╱ef╱$╱ // 0x2526 @0x15
0x2511…2529 at0016 = ╱ee╱)╱ // 0x2527 @0x16
0x2511…2529 at0017 = EOL // 0x2528 @0x17
0x2511…2529 }
0x2529…253e b295 4610 GET K1$,36:K5$
0x2529…253e LineComalBin {
0x2529…253e ptr = 0xb295 // 0x2529 @0x0
0x2529…253e lno = 0x1202 // 0x252b @0x2
0x2529…253e at0004 = ╱a9╱ GET ╱ // 0x252d @0x4
0x2529…253e at0005 = ╱4b╱K╱ // 0x252e @0x5
0x2529…253e at0006 = ╱31╱1╱ // 0x252f @0x6
0x2529…253e at0007 = ╱ef╱$╱ // 0x2530 @0x7
0x2529…253e at0008 = ╱ec╱,╱ // 0x2531 @0x8
0x2529…253e at0009 = ╱33╱3╱ // 0x2532 @0x9
0x2529…253e at000a = ╱36╱6╱ // 0x2533 @0xa
0x2529…253e at000b = ╱fe00009006╱ // 0x2534 @0xb
0x2529…253e at0010 = ╱f0╱:╱ // 0x2539 @0x10
0x2529…253e at0011 = ╱4b╱K╱ // 0x253a @0x11
0x2529…253e at0012 = ╱35╱5╱ // 0x253b @0x12
0x2529…253e at0013 = ╱ef╱$╱ // 0x253c @0x13
0x2529…253e at0014 = EOL // 0x253d @0x14
0x2529…253e }
0x253e…2551 b2a8 4620 EXEC FEJL(W,W,K1$)
0x253e…2551 LineComalBin {
0x253e…2551 ptr = 0xb2a8 // 0x253e @0x0
0x253e…2551 lno = 0x120c // 0x2540 @0x2
0x253e…2551 at0004 = ╱9d╱ EXEC ╱ // 0x2542 @0x4
0x253e…2551 at0005 = ╱46╱F╱ // 0x2543 @0x5
0x253e…2551 at0006 = ╱45╱E╱ // 0x2544 @0x6
0x253e…2551 at0007 = ╱4a╱J╱ // 0x2545 @0x7
0x253e…2551 at0008 = ╱4c╱L╱ // 0x2546 @0x8
0x253e…2551 at0009 = ╱ed╱(╱ // 0x2547 @0x9
0x253e…2551 at000a = ╱57╱W╱ // 0x2548 @0xa
0x253e…2551 at000b = ╱ec╱,╱ // 0x2549 @0xb
0x253e…2551 at000c = ╱57╱W╱ // 0x254a @0xc
0x253e…2551 at000d = ╱ec╱,╱ // 0x254b @0xd
0x253e…2551 at000e = ╱4b╱K╱ // 0x254c @0xe
0x253e…2551 at000f = ╱31╱1╱ // 0x254d @0xf
0x253e…2551 at0010 = ╱ef╱$╱ // 0x254e @0x10
0x253e…2551 at0011 = ╱ee╱)╱ // 0x254f @0x11
0x253e…2551 at0012 = EOL // 0x2550 @0x12
0x253e…2551 }
0x2551…255a b2b1 4630 CLOSE K1$
0x2551…255a LineComalBin {
0x2551…255a ptr = 0xb2b1 // 0x2551 @0x0
0x2551…255a lno = 0x1216 // 0x2553 @0x2
0x2551…255a at0004 = ╱a8╱ CLOSE ╱ // 0x2555 @0x4
0x2551…255a at0005 = ╱4b╱K╱ // 0x2556 @0x5
0x2551…255a at0006 = ╱31╱1╱ // 0x2557 @0x6
0x2551…255a at0007 = ╱ef╱$╱ // 0x2558 @0x7
0x2551…255a at0008 = EOL // 0x2559 @0x8
0x2551…255a }
0x255a…2573 b2ca 4640 EXEC FEJL(W,10,K1$)
0x255a…2573 LineComalBin {
0x255a…2573 ptr = 0xb2ca // 0x255a @0x0
0x255a…2573 lno = 0x1220 // 0x255c @0x2
0x255a…2573 at0004 = ╱9d╱ EXEC ╱ // 0x255e @0x4
0x255a…2573 at0005 = ╱46╱F╱ // 0x255f @0x5
0x255a…2573 at0006 = ╱45╱E╱ // 0x2560 @0x6
0x255a…2573 at0007 = ╱4a╱J╱ // 0x2561 @0x7
0x255a…2573 at0008 = ╱4c╱L╱ // 0x2562 @0x8
0x255a…2573 at0009 = ╱ed╱(╱ // 0x2563 @0x9
0x255a…2573 at000a = ╱57╱W╱ // 0x2564 @0xa
0x255a…2573 at000b = ╱ec╱,╱ // 0x2565 @0xb
0x255a…2573 at000c = ╱31╱1╱ // 0x2566 @0xc
0x255a…2573 at000d = ╱30╱0╱ // 0x2567 @0xd
0x255a…2573 at000e = ╱fe0000a004╱ // 0x2568 @0xe
0x255a…2573 at0013 = ╱ec╱,╱ // 0x256d @0x13
0x255a…2573 at0014 = ╱4b╱K╱ // 0x256e @0x14
0x255a…2573 at0015 = ╱31╱1╱ // 0x256f @0x15
0x255a…2573 at0016 = ╱ef╱$╱ // 0x2570 @0x16
0x255a…2573 at0017 = ╱ee╱)╱ // 0x2571 @0x17
0x255a…2573 at0018 = EOL // 0x2572 @0x18
0x255a…2573 }
0x2573…2595 b2ec 4650 DIM DTAB(MDANTAL,G),KARRAY(MKGR)
0x2573…2595 LineComalBin {
0x2573…2595 ptr = 0xb2ec // 0x2573 @0x0
0x2573…2595 lno = 0x122a // 0x2575 @0x2
0x2573…2595 at0004 = ╱87╱ DIM ╱ // 0x2577 @0x4
0x2573…2595 at0005 = ╱44╱D╱ // 0x2578 @0x5
0x2573…2595 at0006 = ╱54╱T╱ // 0x2579 @0x6
0x2573…2595 at0007 = ╱41╱A╱ // 0x257a @0x7
0x2573…2595 at0008 = ╱42╱B╱ // 0x257b @0x8
0x2573…2595 at0009 = ╱ed╱(╱ // 0x257c @0x9
0x2573…2595 at000a = ╱4d╱M╱ // 0x257d @0xa
0x2573…2595 at000b = ╱44╱D╱ // 0x257e @0xb
0x2573…2595 at000c = ╱41╱A╱ // 0x257f @0xc
0x2573…2595 at000d = ╱4e╱N╱ // 0x2580 @0xd
0x2573…2595 at000e = ╱54╱T╱ // 0x2581 @0xe
0x2573…2595 at000f = ╱41╱A╱ // 0x2582 @0xf
0x2573…2595 at0010 = ╱4c╱L╱ // 0x2583 @0x10
0x2573…2595 at0011 = ╱ec╱,╱ // 0x2584 @0x11
0x2573…2595 at0012 = ╱47╱G╱ // 0x2585 @0x12
0x2573…2595 at0013 = ╱ee╱)╱ // 0x2586 @0x13
0x2573…2595 at0014 = ╱ec╱,╱ // 0x2587 @0x14
0x2573…2595 at0015 = ╱4b╱K╱ // 0x2588 @0x15
0x2573…2595 at0016 = ╱41╱A╱ // 0x2589 @0x16
0x2573…2595 at0017 = ╱52╱R╱ // 0x258a @0x17
0x2573…2595 at0018 = ╱52╱R╱ // 0x258b @0x18
0x2573…2595 at0019 = ╱41╱A╱ // 0x258c @0x19
0x2573…2595 at001a = ╱59╱Y╱ // 0x258d @0x1a
0x2573…2595 at001b = ╱ed╱(╱ // 0x258e @0x1b
0x2573…2595 at001c = ╱4d╱M╱ // 0x258f @0x1c
0x2573…2595 at001d = ╱4b╱K╱ // 0x2590 @0x1d
0x2573…2595 at001e = ╱47╱G╱ // 0x2591 @0x1e
0x2573…2595 at001f = ╱52╱R╱ // 0x2592 @0x1f
0x2573…2595 at0020 = ╱ee╱)╱ // 0x2593 @0x20
0x2573…2595 at0021 = EOL // 0x2594 @0x21
0x2573…2595 }
0x2595…25a4 b2fb 4660 K5$=N$+K5$
0x2595…25a4 LineComalBin {
0x2595…25a4 ptr = 0xb2fb // 0x2595 @0x0
0x2595…25a4 lno = 0x1234 // 0x2597 @0x2
0x2595…25a4 at0004 = ╱4b╱K╱ // 0x2599 @0x4
0x2595…25a4 at0005 = ╱35╱5╱ // 0x259a @0x5
0x2595…25a4 at0006 = ╱ef╱$╱ // 0x259b @0x6
0x2595…25a4 at0007 = ╱dc╱=╱ // 0x259c @0x7
0x2595…25a4 at0008 = ╱4e╱N╱ // 0x259d @0x8
0x2595…25a4 at0009 = ╱ef╱$╱ // 0x259e @0x9
0x2595…25a4 at000a = ╱f1╱+╱ // 0x259f @0xa
0x2595…25a4 at000b = ╱4b╱K╱ // 0x25a0 @0xb
0x2595…25a4 at000c = ╱35╱5╱ // 0x25a1 @0xc
0x2595…25a4 at000d = ╱ef╱$╱ // 0x25a2 @0xd
0x2595…25a4 at000e = EOL // 0x25a3 @0xe
0x2595…25a4 }
0x25a4…25af b306 4670 OPEN K5$,W
0x25a4…25af LineComalBin {
0x25a4…25af ptr = 0xb306 // 0x25a4 @0x0
0x25a4…25af lno = 0x123e // 0x25a6 @0x2
0x25a4…25af at0004 = ╱a7╱ OPEN ╱ // 0x25a8 @0x4
0x25a4…25af at0005 = ╱4b╱K╱ // 0x25a9 @0x5
0x25a4…25af at0006 = ╱35╱5╱ // 0x25aa @0x6
0x25a4…25af at0007 = ╱ef╱$╱ // 0x25ab @0x7
0x25a4…25af at0008 = ╱ec╱,╱ // 0x25ac @0x8
0x25a4…25af at0009 = ╱57╱W╱ // 0x25ad @0x9
0x25a4…25af at000a = EOL // 0x25ae @0xa
0x25a4…25af }
0x25af…25c8 b31f 4680 EXEC FEJL(W,11,K5$)
0x25af…25c8 LineComalBin {
0x25af…25c8 ptr = 0xb31f // 0x25af @0x0
0x25af…25c8 lno = 0x1248 // 0x25b1 @0x2
0x25af…25c8 at0004 = ╱9d╱ EXEC ╱ // 0x25b3 @0x4
0x25af…25c8 at0005 = ╱46╱F╱ // 0x25b4 @0x5
0x25af…25c8 at0006 = ╱45╱E╱ // 0x25b5 @0x6
0x25af…25c8 at0007 = ╱4a╱J╱ // 0x25b6 @0x7
0x25af…25c8 at0008 = ╱4c╱L╱ // 0x25b7 @0x8
0x25af…25c8 at0009 = ╱ed╱(╱ // 0x25b8 @0x9
0x25af…25c8 at000a = ╱57╱W╱ // 0x25b9 @0xa
0x25af…25c8 at000b = ╱ec╱,╱ // 0x25ba @0xb
0x25af…25c8 at000c = ╱31╱1╱ // 0x25bb @0xc
0x25af…25c8 at000d = ╱31╱1╱ // 0x25bc @0xd
0x25af…25c8 at000e = ╱fe0000b004╱ // 0x25bd @0xe
0x25af…25c8 at0013 = ╱ec╱,╱ // 0x25c2 @0x13
0x25af…25c8 at0014 = ╱4b╱K╱ // 0x25c3 @0x14
0x25af…25c8 at0015 = ╱35╱5╱ // 0x25c4 @0x15
0x25af…25c8 at0016 = ╱ef╱$╱ // 0x25c5 @0x16
0x25af…25c8 at0017 = ╱ee╱)╱ // 0x25c6 @0x17
0x25af…25c8 at0018 = EOL // 0x25c7 @0x18
0x25af…25c8 }
0x25c8…260b b362 4690 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO
0x25c8…260b LineComalBin {
0x25c8…260b ptr = 0xb362 // 0x25c8 @0x0
0x25c8…260b lno = 0x1252 // 0x25ca @0x2
0x25c8…260b at0004 = ╱a9╱ GET ╱ // 0x25cc @0x4
0x25c8…260b at0005 = ╱4b╱K╱ // 0x25cd @0x5
0x25c8…260b at0006 = ╱35╱5╱ // 0x25ce @0x6
0x25c8…260b at0007 = ╱ef╱$╱ // 0x25cf @0x7
0x25c8…260b at0008 = ╱ec╱,╱ // 0x25d0 @0x8
0x25c8…260b at0009 = ╱47╱G╱ // 0x25d1 @0x9
0x25c8…260b at000a = ╱f0╱:╱ // 0x25d2 @0xa
0x25c8…260b at000b = ╱54╱T╱ // 0x25d3 @0xb
0x25c8…260b at000c = ╱31╱1╱ // 0x25d4 @0xc
0x25c8…260b at000d = ╱ed╱(╱ // 0x25d5 @0xd
0x25c8…260b at000e = ╱45╱E╱ // 0x25d6 @0xe
0x25c8…260b at000f = ╱ee╱)╱ // 0x25d7 @0xf
0x25c8…260b at0010 = ╱ec╱,╱ // 0x25d8 @0x10
0x25c8…260b at0011 = ╱54╱T╱ // 0x25d9 @0x11
0x25c8…260b at0012 = ╱31╱1╱ // 0x25da @0x12
0x25c8…260b at0013 = ╱ed╱(╱ // 0x25db @0x13
0x25c8…260b at0014 = ╱47╱G╱ // 0x25dc @0x14
0x25c8…260b at0015 = ╱ee╱)╱ // 0x25dd @0x15
0x25c8…260b at0016 = ╱ec╱,╱ // 0x25de @0x16
0x25c8…260b at0017 = ╱54╱T╱ // 0x25df @0x17
0x25c8…260b at0018 = ╱31╱1╱ // 0x25e0 @0x18
0x25c8…260b at0019 = ╱ed╱(╱ // 0x25e1 @0x19
0x25c8…260b at001a = ╱56╱V╱ // 0x25e2 @0x1a
0x25c8…260b at001b = ╱ee╱)╱ // 0x25e3 @0x1b
0x25c8…260b at001c = ╱ec╱,╱ // 0x25e4 @0x1c
0x25c8…260b at001d = ╱54╱T╱ // 0x25e5 @0x1d
0x25c8…260b at001e = ╱31╱1╱ // 0x25e6 @0x1e
0x25c8…260b at001f = ╱ed╱(╱ // 0x25e7 @0x1f
0x25c8…260b at0020 = ╱34╱4╱ // 0x25e8 @0x20
0x25c8…260b at0021 = ╱fe00008003╱ // 0x25e9 @0x21
0x25c8…260b at0026 = ╱ee╱)╱ // 0x25ee @0x26
0x25c8…260b at0027 = ╱ec╱,╱ // 0x25ef @0x27
0x25c8…260b at0028 = ╱54╱T╱ // 0x25f0 @0x28
0x25c8…260b at0029 = ╱31╱1╱ // 0x25f1 @0x29
0x25c8…260b at002a = ╱ed╱(╱ // 0x25f2 @0x2a
0x25c8…260b at002b = ╱35╱5╱ // 0x25f3 @0x2b
0x25c8…260b at002c = ╱fe0000a003╱ // 0x25f4 @0x2c
0x25c8…260b at0031 = ╱ee╱)╱ // 0x25f9 @0x31
0x25c8…260b at0032 = ╱ec╱,╱ // 0x25fa @0x32
0x25c8…260b at0033 = ╱54╱T╱ // 0x25fb @0x33
0x25c8…260b at0034 = ╱31╱1╱ // 0x25fc @0x34
0x25c8…260b at0035 = ╱ed╱(╱ // 0x25fd @0x35
0x25c8…260b at0036 = ╱36╱6╱ // 0x25fe @0x36
0x25c8…260b at0037 = ╱fe0000c003╱ // 0x25ff @0x37
0x25c8…260b at003c = ╱ee╱)╱ // 0x2604 @0x3c
0x25c8…260b at003d = ╱ec╱,╱ // 0x2605 @0x3d
0x25c8…260b at003e = ╱44╱D╱ // 0x2606 @0x3e
0x25c8…260b at003f = ╱41╱A╱ // 0x2607 @0x3f
0x25c8…260b at0040 = ╱54╱T╱ // 0x2608 @0x40
0x25c8…260b at0041 = ╱4f╱O╱ // 0x2609 @0x41
0x25c8…260b at0042 = EOL // 0x260a @0x42
0x25c8…260b }
0x260b…2624 b37b 4700 EXEC FEJL(W,12,K5$)
0x260b…2624 LineComalBin {
0x260b…2624 ptr = 0xb37b // 0x260b @0x0
0x260b…2624 lno = 0x125c // 0x260d @0x2
0x260b…2624 at0004 = ╱9d╱ EXEC ╱ // 0x260f @0x4
0x260b…2624 at0005 = ╱46╱F╱ // 0x2610 @0x5
0x260b…2624 at0006 = ╱45╱E╱ // 0x2611 @0x6
0x260b…2624 at0007 = ╱4a╱J╱ // 0x2612 @0x7
0x260b…2624 at0008 = ╱4c╱L╱ // 0x2613 @0x8
0x260b…2624 at0009 = ╱ed╱(╱ // 0x2614 @0x9
0x260b…2624 at000a = ╱57╱W╱ // 0x2615 @0xa
0x260b…2624 at000b = ╱ec╱,╱ // 0x2616 @0xb
0x260b…2624 at000c = ╱31╱1╱ // 0x2617 @0xc
0x260b…2624 at000d = ╱32╱2╱ // 0x2618 @0xd
0x260b…2624 at000e = ╱fe0000c004╱ // 0x2619 @0xe
0x260b…2624 at0013 = ╱ec╱,╱ // 0x261e @0x13
0x260b…2624 at0014 = ╱4b╱K╱ // 0x261f @0x14
0x260b…2624 at0015 = ╱35╱5╱ // 0x2620 @0x15
0x260b…2624 at0016 = ╱ef╱$╱ // 0x2621 @0x16
0x260b…2624 at0017 = ╱ee╱)╱ // 0x2622 @0x17
0x260b…2624 at0018 = EOL // 0x2623 @0x18
0x260b…2624 }
0x2624…262f b386 4710 FOR I=E TO V
0x2624…262f LineComalBin {
0x2624…262f ptr = 0xb386 // 0x2624 @0x0
0x2624…262f lno = 0x1266 // 0x2626 @0x2
0x2624…262f at0004 = ╱83╱ FOR ╱ // 0x2628 @0x4
0x2624…262f at0005 = ╱49╱I╱ // 0x2629 @0x5
0x2624…262f at0006 = ╱dc╱=╱ // 0x262a @0x6
0x2624…262f at0007 = ╱45╱E╱ // 0x262b @0x7
0x2624…262f at0008 = ╱b7╱ TO ╱ // 0x262c @0x8
0x2624…262f at0009 = ╱56╱V╱ // 0x262d @0x9
0x2624…262f at000a = EOL // 0x262e @0xa
0x2624…262f }
0x262f…263f b396 4720 J=(I-E)*V+E
0x262f…263f LineComalBin {
0x262f…263f ptr = 0xb396 // 0x262f @0x0
0x262f…263f lno = 0x1270 // 0x2631 @0x2
0x262f…263f at0004 = ╱4a╱J╱ // 0x2633 @0x4
0x262f…263f at0005 = ╱dc╱=╱ // 0x2634 @0x5
0x262f…263f at0006 = ╱ed╱(╱ // 0x2635 @0x6
0x262f…263f at0007 = ╱49╱I╱ // 0x2636 @0x7
0x262f…263f at0008 = ╱e3╱-╱ // 0x2637 @0x8
0x262f…263f at0009 = ╱45╱E╱ // 0x2638 @0x9
0x262f…263f at000a = ╱ee╱)╱ // 0x2639 @0xa
0x262f…263f at000b = ╱e4╱*╱ // 0x263a @0xb
0x262f…263f at000c = ╱56╱V╱ // 0x263b @0xc
0x262f…263f at000d = ╱e2╱+╱ // 0x263c @0xd
0x262f…263f at000e = ╱45╱E╱ // 0x263d @0xe
0x262f…263f at000f = EOL // 0x263e @0xf
0x262f…263f }
0x263f…266b b3c2 4730 GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G)
0x263f…266b LineComalBin {
0x263f…266b ptr = 0xb3c2 // 0x263f @0x0
0x263f…266b lno = 0x127a // 0x2641 @0x2
0x263f…266b at0004 = ╱a9╱ GET ╱ // 0x2643 @0x4
0x263f…266b at0005 = ╱4b╱K╱ // 0x2644 @0x5
0x263f…266b at0006 = ╱35╱5╱ // 0x2645 @0x6
0x263f…266b at0007 = ╱ef╱$╱ // 0x2646 @0x7
0x263f…266b at0008 = ╱ec╱,╱ // 0x2647 @0x8
0x263f…266b at0009 = ╱49╱I╱ // 0x2648 @0x9
0x263f…266b at000a = ╱e2╱+╱ // 0x2649 @0xa
0x263f…266b at000b = ╱47╱G╱ // 0x264a @0xb
0x263f…266b at000c = ╱f0╱:╱ // 0x264b @0xc
0x263f…266b at000d = ╱4c╱L╱ // 0x264c @0xd
0x263f…266b at000e = ╱41╱A╱ // 0x264d @0xe
0x263f…266b at000f = ╱4e╱N╱ // 0x264e @0xf
0x263f…266b at0010 = ╱44╱D╱ // 0x264f @0x10
0x263f…266b at0011 = ╱ef╱$╱ // 0x2650 @0x11
0x263f…266b at0012 = ╱ed╱(╱ // 0x2651 @0x12
0x263f…266b at0013 = ╱4a╱J╱ // 0x2652 @0x13
0x263f…266b at0014 = ╱ee╱)╱ // 0x2653 @0x14
0x263f…266b at0015 = ╱ec╱,╱ // 0x2654 @0x15
0x263f…266b at0016 = ╱4c╱L╱ // 0x2655 @0x16
0x263f…266b at0017 = ╱41╱A╱ // 0x2656 @0x17
0x263f…266b at0018 = ╱4e╱N╱ // 0x2657 @0x18
0x263f…266b at0019 = ╱44╱D╱ // 0x2658 @0x19
0x263f…266b at001a = ╱ef╱$╱ // 0x2659 @0x1a
0x263f…266b at001b = ╱ed╱(╱ // 0x265a @0x1b
0x263f…266b at001c = ╱4a╱J╱ // 0x265b @0x1c
0x263f…266b at001d = ╱e2╱+╱ // 0x265c @0x1d
0x263f…266b at001e = ╱45╱E╱ // 0x265d @0x1e
0x263f…266b at001f = ╱ee╱)╱ // 0x265e @0x1f
0x263f…266b at0020 = ╱ec╱,╱ // 0x265f @0x20
0x263f…266b at0021 = ╱4c╱L╱ // 0x2660 @0x21
0x263f…266b at0022 = ╱41╱A╱ // 0x2661 @0x22
0x263f…266b at0023 = ╱4e╱N╱ // 0x2662 @0x23
0x263f…266b at0024 = ╱44╱D╱ // 0x2663 @0x24
0x263f…266b at0025 = ╱ef╱$╱ // 0x2664 @0x25
0x263f…266b at0026 = ╱ed╱(╱ // 0x2665 @0x26
0x263f…266b at0027 = ╱4a╱J╱ // 0x2666 @0x27
0x263f…266b at0028 = ╱e2╱+╱ // 0x2667 @0x28
0x263f…266b at0029 = ╱47╱G╱ // 0x2668 @0x29
0x263f…266b at002a = ╱ee╱)╱ // 0x2669 @0x2a
0x263f…266b at002b = EOL // 0x266a @0x2b
0x263f…266b }
0x266b…2684 b3db 4740 EXEC FEJL(W,13,K5$)
0x266b…2684 LineComalBin {
0x266b…2684 ptr = 0xb3db // 0x266b @0x0
0x266b…2684 lno = 0x1284 // 0x266d @0x2
0x266b…2684 at0004 = ╱9d╱ EXEC ╱ // 0x266f @0x4
0x266b…2684 at0005 = ╱46╱F╱ // 0x2670 @0x5
0x266b…2684 at0006 = ╱45╱E╱ // 0x2671 @0x6
0x266b…2684 at0007 = ╱4a╱J╱ // 0x2672 @0x7
0x266b…2684 at0008 = ╱4c╱L╱ // 0x2673 @0x8
0x266b…2684 at0009 = ╱ed╱(╱ // 0x2674 @0x9
0x266b…2684 at000a = ╱57╱W╱ // 0x2675 @0xa
0x266b…2684 at000b = ╱ec╱,╱ // 0x2676 @0xb
0x266b…2684 at000c = ╱31╱1╱ // 0x2677 @0xc
0x266b…2684 at000d = ╱33╱3╱ // 0x2678 @0xd
0x266b…2684 at000e = ╱fe0000d004╱ // 0x2679 @0xe
0x266b…2684 at0013 = ╱ec╱,╱ // 0x267e @0x13
0x266b…2684 at0014 = ╱4b╱K╱ // 0x267f @0x14
0x266b…2684 at0015 = ╱35╱5╱ // 0x2680 @0x15
0x266b…2684 at0016 = ╱ef╱$╱ // 0x2681 @0x16
0x266b…2684 at0017 = ╱ee╱)╱ // 0x2682 @0x17
0x266b…2684 at0018 = EOL // 0x2683 @0x18
0x266b…2684 }
0x2684…268b b3e2 4750 NEXT I
0x2684…268b LineComalBin {
0x2684…268b ptr = 0xb3e2 // 0x2684 @0x0
0x2684…268b lno = 0x128e // 0x2686 @0x2
0x2684…268b at0004 = ╱84╱ NEXT ╱ // 0x2688 @0x4
0x2684…268b at0005 = ╱49╱I╱ // 0x2689 @0x5
0x2684…268b at0006 = EOL // 0x268a @0x6
0x2684…268b }
0x268b…26e2 b439 4760 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x268b…26e2 LineComalBin {
0x268b…26e2 ptr = 0xb439 // 0x268b @0x0
0x268b…26e2 lno = 0x1298 // 0x268d @0x2
0x268b…26e2 at0004 = ╱a9╱ GET ╱ // 0x268f @0x4
0x268b…26e2 at0005 = ╱4b╱K╱ // 0x2690 @0x5
0x268b…26e2 at0006 = ╱35╱5╱ // 0x2691 @0x6
0x268b…26e2 at0007 = ╱ef╱$╱ // 0x2692 @0x7
0x268b…26e2 at0008 = ╱ec╱,╱ // 0x2693 @0x8
0x268b…26e2 at0009 = ╱31╱1╱ // 0x2694 @0x9
0x268b…26e2 at000a = ╱34╱4╱ // 0x2695 @0xa
0x268b…26e2 at000b = ╱fe0000e004╱ // 0x2696 @0xb
0x268b…26e2 at0010 = ╱f0╱:╱ // 0x269b @0x10
0x268b…26e2 at0011 = ╱41╱A╱ // 0x269c @0x11
0x268b…26e2 at0012 = ╱46╱F╱ // 0x269d @0x12
0x268b…26e2 at0013 = ╱49╱I╱ // 0x269e @0x13
0x268b…26e2 at0014 = ╱4e╱N╱ // 0x269f @0x14
0x268b…26e2 at0015 = ╱ec╱,╱ // 0x26a0 @0x15
0x268b…26e2 at0016 = ╱41╱A╱ // 0x26a1 @0x16
0x268b…26e2 at0017 = ╱44╱D╱ // 0x26a2 @0x17
0x268b…26e2 at0018 = ╱45╱E╱ // 0x26a3 @0x18
0x268b…26e2 at0019 = ╱42╱B╱ // 0x26a4 @0x19
0x268b…26e2 at001a = ╱ec╱,╱ // 0x26a5 @0x1a
0x268b…26e2 at001b = ╱41╱A╱ // 0x26a6 @0x1b
0x268b…26e2 at001c = ╱4b╱K╱ // 0x26a7 @0x1c
0x268b…26e2 at001d = ╱52╱R╱ // 0x26a8 @0x1d
0x268b…26e2 at001e = ╱45╱E╱ // 0x26a9 @0x1e
0x268b…26e2 at001f = ╱ec╱,╱ // 0x26aa @0x1f
0x268b…26e2 at0020 = ╱56╱V╱ // 0x26ab @0x20
0x268b…26e2 at0021 = ╱54╱T╱ // 0x26ac @0x21
0x268b…26e2 at0022 = ╱41╱A╱ // 0x26ad @0x22
0x268b…26e2 at0023 = ╱42╱B╱ // 0x26ae @0x23
0x268b…26e2 at0024 = ╱32╱2╱ // 0x26af @0x24
0x268b…26e2 at0025 = ╱ed╱(╱ // 0x26b0 @0x25
0x268b…26e2 at0026 = ╱45╱E╱ // 0x26b1 @0x26
0x268b…26e2 at0027 = ╱ee╱)╱ // 0x26b2 @0x27
0x268b…26e2 at0028 = ╱ec╱,╱ // 0x26b3 @0x28
0x268b…26e2 at0029 = ╱56╱V╱ // 0x26b4 @0x29
0x268b…26e2 at002a = ╱54╱T╱ // 0x26b5 @0x2a
0x268b…26e2 at002b = ╱41╱A╱ // 0x26b6 @0x2b
0x268b…26e2 at002c = ╱42╱B╱ // 0x26b7 @0x2c
0x268b…26e2 at002d = ╱32╱2╱ // 0x26b8 @0x2d
0x268b…26e2 at002e = ╱ed╱(╱ // 0x26b9 @0x2e
0x268b…26e2 at002f = ╱47╱G╱ // 0x26ba @0x2f
0x268b…26e2 at0030 = ╱ee╱)╱ // 0x26bb @0x30
0x268b…26e2 at0031 = ╱ec╱,╱ // 0x26bc @0x31
0x268b…26e2 at0032 = ╱56╱V╱ // 0x26bd @0x32
0x268b…26e2 at0033 = ╱54╱T╱ // 0x26be @0x33
0x268b…26e2 at0034 = ╱41╱A╱ // 0x26bf @0x34
0x268b…26e2 at0035 = ╱42╱B╱ // 0x26c0 @0x35
0x268b…26e2 at0036 = ╱32╱2╱ // 0x26c1 @0x36
0x268b…26e2 at0037 = ╱ed╱(╱ // 0x26c2 @0x37
0x268b…26e2 at0038 = ╱56╱V╱ // 0x26c3 @0x38
0x268b…26e2 at0039 = ╱ee╱)╱ // 0x26c4 @0x39
0x268b…26e2 at003a = ╱ec╱,╱ // 0x26c5 @0x3a
0x268b…26e2 at003b = ╱56╱V╱ // 0x26c6 @0x3b
0x268b…26e2 at003c = ╱54╱T╱ // 0x26c7 @0x3c
0x268b…26e2 at003d = ╱41╱A╱ // 0x26c8 @0x3d
0x268b…26e2 at003e = ╱42╱B╱ // 0x26c9 @0x3e
0x268b…26e2 at003f = ╱32╱2╱ // 0x26ca @0x3f
0x268b…26e2 at0040 = ╱ed╱(╱ // 0x26cb @0x40
0x268b…26e2 at0041 = ╱34╱4╱ // 0x26cc @0x41
0x268b…26e2 at0042 = ╱fe00008003╱ // 0x26cd @0x42
0x268b…26e2 at0047 = ╱ee╱)╱ // 0x26d2 @0x47
0x268b…26e2 at0048 = ╱ec╱,╱ // 0x26d3 @0x48
0x268b…26e2 at0049 = ╱56╱V╱ // 0x26d4 @0x49
0x268b…26e2 at004a = ╱54╱T╱ // 0x26d5 @0x4a
0x268b…26e2 at004b = ╱41╱A╱ // 0x26d6 @0x4b
0x268b…26e2 at004c = ╱42╱B╱ // 0x26d7 @0x4c
0x268b…26e2 at004d = ╱32╱2╱ // 0x26d8 @0x4d
0x268b…26e2 at004e = ╱ed╱(╱ // 0x26d9 @0x4e
0x268b…26e2 at004f = ╱35╱5╱ // 0x26da @0x4f
0x268b…26e2 at0050 = ╱fe0000a003╱ // 0x26db @0x50
0x268b…26e2 at0055 = ╱ee╱)╱ // 0x26e0 @0x55
0x268b…26e2 at0056 = EOL // 0x26e1 @0x56
0x268b…26e2 }
0x26e2…26fb b452 4770 EXEC FEJL(W,14,K5$)
0x26e2…26fb LineComalBin {
0x26e2…26fb ptr = 0xb452 // 0x26e2 @0x0
0x26e2…26fb lno = 0x12a2 // 0x26e4 @0x2
0x26e2…26fb at0004 = ╱9d╱ EXEC ╱ // 0x26e6 @0x4
0x26e2…26fb at0005 = ╱46╱F╱ // 0x26e7 @0x5
0x26e2…26fb at0006 = ╱45╱E╱ // 0x26e8 @0x6
0x26e2…26fb at0007 = ╱4a╱J╱ // 0x26e9 @0x7
0x26e2…26fb at0008 = ╱4c╱L╱ // 0x26ea @0x8
0x26e2…26fb at0009 = ╱ed╱(╱ // 0x26eb @0x9
0x26e2…26fb at000a = ╱57╱W╱ // 0x26ec @0xa
0x26e2…26fb at000b = ╱ec╱,╱ // 0x26ed @0xb
0x26e2…26fb at000c = ╱31╱1╱ // 0x26ee @0xc
0x26e2…26fb at000d = ╱34╱4╱ // 0x26ef @0xd
0x26e2…26fb at000e = ╱fe0000e004╱ // 0x26f0 @0xe
0x26e2…26fb at0013 = ╱ec╱,╱ // 0x26f5 @0x13
0x26e2…26fb at0014 = ╱4b╱K╱ // 0x26f6 @0x14
0x26e2…26fb at0015 = ╱35╱5╱ // 0x26f7 @0x15
0x26e2…26fb at0016 = ╱ef╱$╱ // 0x26f8 @0x16
0x26e2…26fb at0017 = ╱ee╱)╱ // 0x26f9 @0x17
0x26e2…26fb at0018 = EOL // 0x26fa @0x18
0x26e2…26fb }
0x26fb…2710 b467 4771 GET K5$,20:DV$
0x26fb…2710 LineComalBin {
0x26fb…2710 ptr = 0xb467 // 0x26fb @0x0
0x26fb…2710 lno = 0x12a3 // 0x26fd @0x2
0x26fb…2710 at0004 = ╱a9╱ GET ╱ // 0x26ff @0x4
0x26fb…2710 at0005 = ╱4b╱K╱ // 0x2700 @0x5
0x26fb…2710 at0006 = ╱35╱5╱ // 0x2701 @0x6
0x26fb…2710 at0007 = ╱ef╱$╱ // 0x2702 @0x7
0x26fb…2710 at0008 = ╱ec╱,╱ // 0x2703 @0x8
0x26fb…2710 at0009 = ╱32╱2╱ // 0x2704 @0x9
0x26fb…2710 at000a = ╱30╱0╱ // 0x2705 @0xa
0x26fb…2710 at000b = ╱fe0000a005╱ // 0x2706 @0xb
0x26fb…2710 at0010 = ╱f0╱:╱ // 0x270b @0x10
0x26fb…2710 at0011 = ╱44╱D╱ // 0x270c @0x11
0x26fb…2710 at0012 = ╱56╱V╱ // 0x270d @0x12
0x26fb…2710 at0013 = ╱ef╱$╱ // 0x270e @0x13
0x26fb…2710 at0014 = EOL // 0x270f @0x14
0x26fb…2710 }
0x2710…2729 b480 4772 EXEC FEJL(W,22,K5$)
0x2710…2729 LineComalBin {
0x2710…2729 ptr = 0xb480 // 0x2710 @0x0
0x2710…2729 lno = 0x12a4 // 0x2712 @0x2
0x2710…2729 at0004 = ╱9d╱ EXEC ╱ // 0x2714 @0x4
0x2710…2729 at0005 = ╱46╱F╱ // 0x2715 @0x5
0x2710…2729 at0006 = ╱45╱E╱ // 0x2716 @0x6
0x2710…2729 at0007 = ╱4a╱J╱ // 0x2717 @0x7
0x2710…2729 at0008 = ╱4c╱L╱ // 0x2718 @0x8
0x2710…2729 at0009 = ╱ed╱(╱ // 0x2719 @0x9
0x2710…2729 at000a = ╱57╱W╱ // 0x271a @0xa
0x2710…2729 at000b = ╱ec╱,╱ // 0x271b @0xb
0x2710…2729 at000c = ╱32╱2╱ // 0x271c @0xc
0x2710…2729 at000d = ╱32╱2╱ // 0x271d @0xd
0x2710…2729 at000e = ╱fe0000b005╱ // 0x271e @0xe
0x2710…2729 at0013 = ╱ec╱,╱ // 0x2723 @0x13
0x2710…2729 at0014 = ╱4b╱K╱ // 0x2724 @0x14
0x2710…2729 at0015 = ╱35╱5╱ // 0x2725 @0x15
0x2710…2729 at0016 = ╱ef╱$╱ // 0x2726 @0x16
0x2710…2729 at0017 = ╱ee╱)╱ // 0x2727 @0x17
0x2710…2729 at0018 = EOL // 0x2728 @0x18
0x2710…2729 }
0x2729…2789 b4e0 4780 GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x2729…2789 LineComalBin {
0x2729…2789 ptr = 0xb4e0 // 0x2729 @0x0
0x2729…2789 lno = 0x12ac // 0x272b @0x2
0x2729…2789 at0004 = ╱a9╱ GET ╱ // 0x272d @0x4
0x2729…2789 at0005 = ╱4b╱K╱ // 0x272e @0x5
0x2729…2789 at0006 = ╱35╱5╱ // 0x272f @0x6
0x2729…2789 at0007 = ╱ef╱$╱ // 0x2730 @0x7
0x2729…2789 at0008 = ╱ec╱,╱ // 0x2731 @0x8
0x2729…2789 at0009 = ╱31╱1╱ // 0x2732 @0x9
0x2729…2789 at000a = ╱37╱7╱ // 0x2733 @0xa
0x2729…2789 at000b = ╱fe00008805╱ // 0x2734 @0xb
0x2729…2789 at0010 = ╱f0╱:╱ // 0x2739 @0x10
0x2729…2789 at0011 = ╱54╱T╱ // 0x273a @0x11
0x2729…2789 at0012 = ╱32╱2╱ // 0x273b @0x12
0x2729…2789 at0013 = ╱ed╱(╱ // 0x273c @0x13
0x2729…2789 at0014 = ╱45╱E╱ // 0x273d @0x14
0x2729…2789 at0015 = ╱ee╱)╱ // 0x273e @0x15
0x2729…2789 at0016 = ╱ec╱,╱ // 0x273f @0x16
0x2729…2789 at0017 = ╱54╱T╱ // 0x2740 @0x17
0x2729…2789 at0018 = ╱32╱2╱ // 0x2741 @0x18
0x2729…2789 at0019 = ╱ed╱(╱ // 0x2742 @0x19
0x2729…2789 at001a = ╱47╱G╱ // 0x2743 @0x1a
0x2729…2789 at001b = ╱ee╱)╱ // 0x2744 @0x1b
0x2729…2789 at001c = ╱ec╱,╱ // 0x2745 @0x1c
0x2729…2789 at001d = ╱54╱T╱ // 0x2746 @0x1d
0x2729…2789 at001e = ╱32╱2╱ // 0x2747 @0x1e
0x2729…2789 at001f = ╱ed╱(╱ // 0x2748 @0x1f
0x2729…2789 at0020 = ╱56╱V╱ // 0x2749 @0x20
0x2729…2789 at0021 = ╱ee╱)╱ // 0x274a @0x21
0x2729…2789 at0022 = ╱ec╱,╱ // 0x274b @0x22
0x2729…2789 at0023 = ╱54╱T╱ // 0x274c @0x23
0x2729…2789 at0024 = ╱32╱2╱ // 0x274d @0x24
0x2729…2789 at0025 = ╱ed╱(╱ // 0x274e @0x25
0x2729…2789 at0026 = ╱34╱4╱ // 0x274f @0x26
0x2729…2789 at0027 = ╱fe00008003╱ // 0x2750 @0x27
0x2729…2789 at002c = ╱ee╱)╱ // 0x2755 @0x2c
0x2729…2789 at002d = ╱ec╱,╱ // 0x2756 @0x2d
0x2729…2789 at002e = ╱54╱T╱ // 0x2757 @0x2e
0x2729…2789 at002f = ╱32╱2╱ // 0x2758 @0x2f
0x2729…2789 at0030 = ╱ed╱(╱ // 0x2759 @0x30
0x2729…2789 at0031 = ╱35╱5╱ // 0x275a @0x31
0x2729…2789 at0032 = ╱fe0000a003╱ // 0x275b @0x32
0x2729…2789 at0037 = ╱ee╱)╱ // 0x2760 @0x37
0x2729…2789 at0038 = ╱ec╱,╱ // 0x2761 @0x38
0x2729…2789 at0039 = ╱54╱T╱ // 0x2762 @0x39
0x2729…2789 at003a = ╱32╱2╱ // 0x2763 @0x3a
0x2729…2789 at003b = ╱ed╱(╱ // 0x2764 @0x3b
0x2729…2789 at003c = ╱36╱6╱ // 0x2765 @0x3c
0x2729…2789 at003d = ╱fe0000c003╱ // 0x2766 @0x3d
0x2729…2789 at0042 = ╱ee╱)╱ // 0x276b @0x42
0x2729…2789 at0043 = ╱ec╱,╱ // 0x276c @0x43
0x2729…2789 at0044 = ╱54╱T╱ // 0x276d @0x44
0x2729…2789 at0045 = ╱32╱2╱ // 0x276e @0x45
0x2729…2789 at0046 = ╱ed╱(╱ // 0x276f @0x46
0x2729…2789 at0047 = ╱37╱7╱ // 0x2770 @0x47
0x2729…2789 at0048 = ╱fe0000e003╱ // 0x2771 @0x48
0x2729…2789 at004d = ╱ee╱)╱ // 0x2776 @0x4d
0x2729…2789 at004e = ╱ec╱,╱ // 0x2777 @0x4e
0x2729…2789 at004f = ╱54╱T╱ // 0x2778 @0x4f
0x2729…2789 at0050 = ╱32╱2╱ // 0x2779 @0x50
0x2729…2789 at0051 = ╱ed╱(╱ // 0x277a @0x51
0x2729…2789 at0052 = ╱38╱8╱ // 0x277b @0x52
0x2729…2789 at0053 = ╱fe00008004╱ // 0x277c @0x53
0x2729…2789 at0058 = ╱ee╱)╱ // 0x2781 @0x58
0x2729…2789 at0059 = ╱ec╱,╱ // 0x2782 @0x59
0x2729…2789 at005a = ╱54╱T╱ // 0x2783 @0x5a
0x2729…2789 at005b = ╱32╱2╱ // 0x2784 @0x5b
0x2729…2789 at005c = ╱ed╱(╱ // 0x2785 @0x5c
0x2729…2789 at005d = ╱57╱W╱ // 0x2786 @0x5d
0x2729…2789 at005e = ╱ee╱)╱ // 0x2787 @0x5e
0x2729…2789 at005f = EOL // 0x2788 @0x5f
0x2729…2789 }
0x2789…27a2 b4f9 4790 EXEC FEJL(W,15,K5$)
0x2789…27a2 LineComalBin {
0x2789…27a2 ptr = 0xb4f9 // 0x2789 @0x0
0x2789…27a2 lno = 0x12b6 // 0x278b @0x2
0x2789…27a2 at0004 = ╱9d╱ EXEC ╱ // 0x278d @0x4
0x2789…27a2 at0005 = ╱46╱F╱ // 0x278e @0x5
0x2789…27a2 at0006 = ╱45╱E╱ // 0x278f @0x6
0x2789…27a2 at0007 = ╱4a╱J╱ // 0x2790 @0x7
0x2789…27a2 at0008 = ╱4c╱L╱ // 0x2791 @0x8
0x2789…27a2 at0009 = ╱ed╱(╱ // 0x2792 @0x9
0x2789…27a2 at000a = ╱57╱W╱ // 0x2793 @0xa
0x2789…27a2 at000b = ╱ec╱,╱ // 0x2794 @0xb
0x2789…27a2 at000c = ╱31╱1╱ // 0x2795 @0xc
0x2789…27a2 at000d = ╱35╱5╱ // 0x2796 @0xd
0x2789…27a2 at000e = ╱fe0000f004╱ // 0x2797 @0xe
0x2789…27a2 at0013 = ╱ec╱,╱ // 0x279c @0x13
0x2789…27a2 at0014 = ╱4b╱K╱ // 0x279d @0x14
0x2789…27a2 at0015 = ╱35╱5╱ // 0x279e @0x15
0x2789…27a2 at0016 = ╱ef╱$╱ // 0x279f @0x16
0x2789…27a2 at0017 = ╱ee╱)╱ // 0x27a0 @0x17
0x2789…27a2 at0018 = EOL // 0x27a1 @0x18
0x2789…27a2 }
0x27a2…27ae b505 4800 T2(V)=E
0x27a2…27ae LineComalBin {
0x27a2…27ae ptr = 0xb505 // 0x27a2 @0x0
0x27a2…27ae lno = 0x12c0 // 0x27a4 @0x2
0x27a2…27ae at0004 = ╱54╱T╱ // 0x27a6 @0x4
0x27a2…27ae at0005 = ╱32╱2╱ // 0x27a7 @0x5
0x27a2…27ae at0006 = ╱ed╱(╱ // 0x27a8 @0x6
0x27a2…27ae at0007 = ╱56╱V╱ // 0x27a9 @0x7
0x27a2…27ae at0008 = ╱ee╱)╱ // 0x27aa @0x8
0x27a2…27ae at0009 = ╱dc╱=╱ // 0x27ab @0x9
0x27a2…27ae at000a = ╱45╱E╱ // 0x27ac @0xa
0x27a2…27ae at000b = EOL // 0x27ad @0xb
0x27a2…27ae }
0x27ae…280e b565 4810 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x27ae…280e LineComalBin {
0x27ae…280e ptr = 0xb565 // 0x27ae @0x0
0x27ae…280e lno = 0x12ca // 0x27b0 @0x2
0x27ae…280e at0004 = ╱aa╱ PUT ╱ // 0x27b2 @0x4
0x27ae…280e at0005 = ╱4b╱K╱ // 0x27b3 @0x5
0x27ae…280e at0006 = ╱35╱5╱ // 0x27b4 @0x6
0x27ae…280e at0007 = ╱ef╱$╱ // 0x27b5 @0x7
0x27ae…280e at0008 = ╱ec╱,╱ // 0x27b6 @0x8
0x27ae…280e at0009 = ╱31╱1╱ // 0x27b7 @0x9
0x27ae…280e at000a = ╱37╱7╱ // 0x27b8 @0xa
0x27ae…280e at000b = ╱fe00008805╱ // 0x27b9 @0xb
0x27ae…280e at0010 = ╱f0╱:╱ // 0x27be @0x10
0x27ae…280e at0011 = ╱54╱T╱ // 0x27bf @0x11
0x27ae…280e at0012 = ╱32╱2╱ // 0x27c0 @0x12
0x27ae…280e at0013 = ╱ed╱(╱ // 0x27c1 @0x13
0x27ae…280e at0014 = ╱45╱E╱ // 0x27c2 @0x14
0x27ae…280e at0015 = ╱ee╱)╱ // 0x27c3 @0x15
0x27ae…280e at0016 = ╱ec╱,╱ // 0x27c4 @0x16
0x27ae…280e at0017 = ╱54╱T╱ // 0x27c5 @0x17
0x27ae…280e at0018 = ╱32╱2╱ // 0x27c6 @0x18
0x27ae…280e at0019 = ╱ed╱(╱ // 0x27c7 @0x19
0x27ae…280e at001a = ╱47╱G╱ // 0x27c8 @0x1a
0x27ae…280e at001b = ╱ee╱)╱ // 0x27c9 @0x1b
0x27ae…280e at001c = ╱ec╱,╱ // 0x27ca @0x1c
0x27ae…280e at001d = ╱54╱T╱ // 0x27cb @0x1d
0x27ae…280e at001e = ╱32╱2╱ // 0x27cc @0x1e
0x27ae…280e at001f = ╱ed╱(╱ // 0x27cd @0x1f
0x27ae…280e at0020 = ╱56╱V╱ // 0x27ce @0x20
0x27ae…280e at0021 = ╱ee╱)╱ // 0x27cf @0x21
0x27ae…280e at0022 = ╱ec╱,╱ // 0x27d0 @0x22
0x27ae…280e at0023 = ╱54╱T╱ // 0x27d1 @0x23
0x27ae…280e at0024 = ╱32╱2╱ // 0x27d2 @0x24
0x27ae…280e at0025 = ╱ed╱(╱ // 0x27d3 @0x25
0x27ae…280e at0026 = ╱34╱4╱ // 0x27d4 @0x26
0x27ae…280e at0027 = ╱fe00008003╱ // 0x27d5 @0x27
0x27ae…280e at002c = ╱ee╱)╱ // 0x27da @0x2c
0x27ae…280e at002d = ╱ec╱,╱ // 0x27db @0x2d
0x27ae…280e at002e = ╱54╱T╱ // 0x27dc @0x2e
0x27ae…280e at002f = ╱32╱2╱ // 0x27dd @0x2f
0x27ae…280e at0030 = ╱ed╱(╱ // 0x27de @0x30
0x27ae…280e at0031 = ╱35╱5╱ // 0x27df @0x31
0x27ae…280e at0032 = ╱fe0000a003╱ // 0x27e0 @0x32
0x27ae…280e at0037 = ╱ee╱)╱ // 0x27e5 @0x37
0x27ae…280e at0038 = ╱ec╱,╱ // 0x27e6 @0x38
0x27ae…280e at0039 = ╱54╱T╱ // 0x27e7 @0x39
0x27ae…280e at003a = ╱32╱2╱ // 0x27e8 @0x3a
0x27ae…280e at003b = ╱ed╱(╱ // 0x27e9 @0x3b
0x27ae…280e at003c = ╱36╱6╱ // 0x27ea @0x3c
0x27ae…280e at003d = ╱fe0000c003╱ // 0x27eb @0x3d
0x27ae…280e at0042 = ╱ee╱)╱ // 0x27f0 @0x42
0x27ae…280e at0043 = ╱ec╱,╱ // 0x27f1 @0x43
0x27ae…280e at0044 = ╱54╱T╱ // 0x27f2 @0x44
0x27ae…280e at0045 = ╱32╱2╱ // 0x27f3 @0x45
0x27ae…280e at0046 = ╱ed╱(╱ // 0x27f4 @0x46
0x27ae…280e at0047 = ╱37╱7╱ // 0x27f5 @0x47
0x27ae…280e at0048 = ╱fe0000e003╱ // 0x27f6 @0x48
0x27ae…280e at004d = ╱ee╱)╱ // 0x27fb @0x4d
0x27ae…280e at004e = ╱ec╱,╱ // 0x27fc @0x4e
0x27ae…280e at004f = ╱54╱T╱ // 0x27fd @0x4f
0x27ae…280e at0050 = ╱32╱2╱ // 0x27fe @0x50
0x27ae…280e at0051 = ╱ed╱(╱ // 0x27ff @0x51
0x27ae…280e at0052 = ╱38╱8╱ // 0x2800 @0x52
0x27ae…280e at0053 = ╱fe00008004╱ // 0x2801 @0x53
0x27ae…280e at0058 = ╱ee╱)╱ // 0x2806 @0x58
0x27ae…280e at0059 = ╱ec╱,╱ // 0x2807 @0x59
0x27ae…280e at005a = ╱54╱T╱ // 0x2808 @0x5a
0x27ae…280e at005b = ╱32╱2╱ // 0x2809 @0x5b
0x27ae…280e at005c = ╱ed╱(╱ // 0x280a @0x5c
0x27ae…280e at005d = ╱57╱W╱ // 0x280b @0x5d
0x27ae…280e at005e = ╱ee╱)╱ // 0x280c @0x5e
0x27ae…280e at005f = EOL // 0x280d @0x5f
0x27ae…280e }
0x280e…2827 b57e 4820 EXEC FEJL(W,16,K5$)
0x280e…2827 LineComalBin {
0x280e…2827 ptr = 0xb57e // 0x280e @0x0
0x280e…2827 lno = 0x12d4 // 0x2810 @0x2
0x280e…2827 at0004 = ╱9d╱ EXEC ╱ // 0x2812 @0x4
0x280e…2827 at0005 = ╱46╱F╱ // 0x2813 @0x5
0x280e…2827 at0006 = ╱45╱E╱ // 0x2814 @0x6
0x280e…2827 at0007 = ╱4a╱J╱ // 0x2815 @0x7
0x280e…2827 at0008 = ╱4c╱L╱ // 0x2816 @0x8
0x280e…2827 at0009 = ╱ed╱(╱ // 0x2817 @0x9
0x280e…2827 at000a = ╱57╱W╱ // 0x2818 @0xa
0x280e…2827 at000b = ╱ec╱,╱ // 0x2819 @0xb
0x280e…2827 at000c = ╱31╱1╱ // 0x281a @0xc
0x280e…2827 at000d = ╱36╱6╱ // 0x281b @0xd
0x280e…2827 at000e = ╱fe00008005╱ // 0x281c @0xe
0x280e…2827 at0013 = ╱ec╱,╱ // 0x2821 @0x13
0x280e…2827 at0014 = ╱4b╱K╱ // 0x2822 @0x14
0x280e…2827 at0015 = ╱35╱5╱ // 0x2823 @0x15
0x280e…2827 at0016 = ╱ef╱$╱ // 0x2824 @0x16
0x280e…2827 at0017 = ╱ee╱)╱ // 0x2825 @0x17
0x280e…2827 at0018 = EOL // 0x2826 @0x18
0x280e…2827 }
0x2827…2830 b587 4830 CLOSE K5$
0x2827…2830 LineComalBin {
0x2827…2830 ptr = 0xb587 // 0x2827 @0x0
0x2827…2830 lno = 0x12de // 0x2829 @0x2
0x2827…2830 at0004 = ╱a8╱ CLOSE ╱ // 0x282b @0x4
0x2827…2830 at0005 = ╱4b╱K╱ // 0x282c @0x5
0x2827…2830 at0006 = ╱35╱5╱ // 0x282d @0x6
0x2827…2830 at0007 = ╱ef╱$╱ // 0x282e @0x7
0x2827…2830 at0008 = EOL // 0x282f @0x8
0x2827…2830 }
0x2830…2849 b5a0 4840 EXEC FEJL(W,17,K5$)
0x2830…2849 LineComalBin {
0x2830…2849 ptr = 0xb5a0 // 0x2830 @0x0
0x2830…2849 lno = 0x12e8 // 0x2832 @0x2
0x2830…2849 at0004 = ╱9d╱ EXEC ╱ // 0x2834 @0x4
0x2830…2849 at0005 = ╱46╱F╱ // 0x2835 @0x5
0x2830…2849 at0006 = ╱45╱E╱ // 0x2836 @0x6
0x2830…2849 at0007 = ╱4a╱J╱ // 0x2837 @0x7
0x2830…2849 at0008 = ╱4c╱L╱ // 0x2838 @0x8
0x2830…2849 at0009 = ╱ed╱(╱ // 0x2839 @0x9
0x2830…2849 at000a = ╱57╱W╱ // 0x283a @0xa
0x2830…2849 at000b = ╱ec╱,╱ // 0x283b @0xb
0x2830…2849 at000c = ╱31╱1╱ // 0x283c @0xc
0x2830…2849 at000d = ╱37╱7╱ // 0x283d @0xd
0x2830…2849 at000e = ╱fe00008805╱ // 0x283e @0xe
0x2830…2849 at0013 = ╱ec╱,╱ // 0x2843 @0x13
0x2830…2849 at0014 = ╱4b╱K╱ // 0x2844 @0x14
0x2830…2849 at0015 = ╱35╱5╱ // 0x2845 @0x15
0x2830…2849 at0016 = ╱ef╱$╱ // 0x2846 @0x16
0x2830…2849 at0017 = ╱ee╱)╱ // 0x2847 @0x17
0x2830…2849 at0018 = EOL // 0x2848 @0x18
0x2830…2849 }
0x2849…2858 b5af 4850 K3$=N$+K3$
0x2849…2858 LineComalBin {
0x2849…2858 ptr = 0xb5af // 0x2849 @0x0
0x2849…2858 lno = 0x12f2 // 0x284b @0x2
0x2849…2858 at0004 = ╱4b╱K╱ // 0x284d @0x4
0x2849…2858 at0005 = ╱33╱3╱ // 0x284e @0x5
0x2849…2858 at0006 = ╱ef╱$╱ // 0x284f @0x6
0x2849…2858 at0007 = ╱dc╱=╱ // 0x2850 @0x7
0x2849…2858 at0008 = ╱4e╱N╱ // 0x2851 @0x8
0x2849…2858 at0009 = ╱ef╱$╱ // 0x2852 @0x9
0x2849…2858 at000a = ╱f1╱+╱ // 0x2853 @0xa
0x2849…2858 at000b = ╱4b╱K╱ // 0x2854 @0xb
0x2849…2858 at000c = ╱33╱3╱ // 0x2855 @0xc
0x2849…2858 at000d = ╱ef╱$╱ // 0x2856 @0xd
0x2849…2858 at000e = EOL // 0x2857 @0xe
0x2849…2858 }
0x2858…2863 b5ba 4860 OPEN K3$,W
0x2858…2863 LineComalBin {
0x2858…2863 ptr = 0xb5ba // 0x2858 @0x0
0x2858…2863 lno = 0x12fc // 0x285a @0x2
0x2858…2863 at0004 = ╱a7╱ OPEN ╱ // 0x285c @0x4
0x2858…2863 at0005 = ╱4b╱K╱ // 0x285d @0x5
0x2858…2863 at0006 = ╱33╱3╱ // 0x285e @0x6
0x2858…2863 at0007 = ╱ef╱$╱ // 0x285f @0x7
0x2858…2863 at0008 = ╱ec╱,╱ // 0x2860 @0x8
0x2858…2863 at0009 = ╱57╱W╱ // 0x2861 @0x9
0x2858…2863 at000a = EOL // 0x2862 @0xa
0x2858…2863 }
0x2863…287c b5d3 4870 EXEC FEJL(W,18,K3$)
0x2863…287c LineComalBin {
0x2863…287c ptr = 0xb5d3 // 0x2863 @0x0
0x2863…287c lno = 0x1306 // 0x2865 @0x2
0x2863…287c at0004 = ╱9d╱ EXEC ╱ // 0x2867 @0x4
0x2863…287c at0005 = ╱46╱F╱ // 0x2868 @0x5
0x2863…287c at0006 = ╱45╱E╱ // 0x2869 @0x6
0x2863…287c at0007 = ╱4a╱J╱ // 0x286a @0x7
0x2863…287c at0008 = ╱4c╱L╱ // 0x286b @0x8
0x2863…287c at0009 = ╱ed╱(╱ // 0x286c @0x9
0x2863…287c at000a = ╱57╱W╱ // 0x286d @0xa
0x2863…287c at000b = ╱ec╱,╱ // 0x286e @0xb
0x2863…287c at000c = ╱31╱1╱ // 0x286f @0xc
0x2863…287c at000d = ╱38╱8╱ // 0x2870 @0xd
0x2863…287c at000e = ╱fe00009005╱ // 0x2871 @0xe
0x2863…287c at0013 = ╱ec╱,╱ // 0x2876 @0x13
0x2863…287c at0014 = ╱4b╱K╱ // 0x2877 @0x14
0x2863…287c at0015 = ╱33╱3╱ // 0x2878 @0x15
0x2863…287c at0016 = ╱ef╱$╱ // 0x2879 @0x16
0x2863…287c at0017 = ╱ee╱)╱ // 0x287a @0x17
0x2863…287c at0018 = EOL // 0x287b @0x18
0x2863…287c }
0x287c…288b b5e2 4880 K2$=N$+K2$
0x287c…288b LineComalBin {
0x287c…288b ptr = 0xb5e2 // 0x287c @0x0
0x287c…288b lno = 0x1310 // 0x287e @0x2
0x287c…288b at0004 = ╱4b╱K╱ // 0x2880 @0x4
0x287c…288b at0005 = ╱32╱2╱ // 0x2881 @0x5
0x287c…288b at0006 = ╱ef╱$╱ // 0x2882 @0x6
0x287c…288b at0007 = ╱dc╱=╱ // 0x2883 @0x7
0x287c…288b at0008 = ╱4e╱N╱ // 0x2884 @0x8
0x287c…288b at0009 = ╱ef╱$╱ // 0x2885 @0x9
0x287c…288b at000a = ╱f1╱+╱ // 0x2886 @0xa
0x287c…288b at000b = ╱4b╱K╱ // 0x2887 @0xb
0x287c…288b at000c = ╱32╱2╱ // 0x2888 @0xc
0x287c…288b at000d = ╱ef╱$╱ // 0x2889 @0xd
0x287c…288b at000e = EOL // 0x288a @0xe
0x287c…288b }
0x288b…2896 b5ed 4890 OPEN K2$,W
0x288b…2896 LineComalBin {
0x288b…2896 ptr = 0xb5ed // 0x288b @0x0
0x288b…2896 lno = 0x131a // 0x288d @0x2
0x288b…2896 at0004 = ╱a7╱ OPEN ╱ // 0x288f @0x4
0x288b…2896 at0005 = ╱4b╱K╱ // 0x2890 @0x5
0x288b…2896 at0006 = ╱32╱2╱ // 0x2891 @0x6
0x288b…2896 at0007 = ╱ef╱$╱ // 0x2892 @0x7
0x288b…2896 at0008 = ╱ec╱,╱ // 0x2893 @0x8
0x288b…2896 at0009 = ╱57╱W╱ // 0x2894 @0x9
0x288b…2896 at000a = EOL // 0x2895 @0xa
0x288b…2896 }
0x2896…28af b606 4900 EXEC FEJL(W,19,K2$)
0x2896…28af LineComalBin {
0x2896…28af ptr = 0xb606 // 0x2896 @0x0
0x2896…28af lno = 0x1324 // 0x2898 @0x2
0x2896…28af at0004 = ╱9d╱ EXEC ╱ // 0x289a @0x4
0x2896…28af at0005 = ╱46╱F╱ // 0x289b @0x5
0x2896…28af at0006 = ╱45╱E╱ // 0x289c @0x6
0x2896…28af at0007 = ╱4a╱J╱ // 0x289d @0x7
0x2896…28af at0008 = ╱4c╱L╱ // 0x289e @0x8
0x2896…28af at0009 = ╱ed╱(╱ // 0x289f @0x9
0x2896…28af at000a = ╱57╱W╱ // 0x28a0 @0xa
0x2896…28af at000b = ╱ec╱,╱ // 0x28a1 @0xb
0x2896…28af at000c = ╱31╱1╱ // 0x28a2 @0xc
0x2896…28af at000d = ╱39╱9╱ // 0x28a3 @0xd
0x2896…28af at000e = ╱fe00009805╱ // 0x28a4 @0xe
0x2896…28af at0013 = ╱ec╱,╱ // 0x28a9 @0x13
0x2896…28af at0014 = ╱4b╱K╱ // 0x28aa @0x14
0x2896…28af at0015 = ╱32╱2╱ // 0x28ab @0x15
0x2896…28af at0016 = ╱ef╱$╱ // 0x28ac @0x16
0x2896…28af at0017 = ╱ee╱)╱ // 0x28ad @0x17
0x2896…28af at0018 = EOL // 0x28ae @0x18
0x2896…28af }
0x28af…28cd b624 4910 EXEC INDTAB(DTAB,MDANTAL,K2$)
0x28af…28cd LineComalBin {
0x28af…28cd ptr = 0xb624 // 0x28af @0x0
0x28af…28cd lno = 0x132e // 0x28b1 @0x2
0x28af…28cd at0004 = ╱9d╱ EXEC ╱ // 0x28b3 @0x4
0x28af…28cd at0005 = ╱49╱I╱ // 0x28b4 @0x5
0x28af…28cd at0006 = ╱4e╱N╱ // 0x28b5 @0x6
0x28af…28cd at0007 = ╱44╱D╱ // 0x28b6 @0x7
0x28af…28cd at0008 = ╱54╱T╱ // 0x28b7 @0x8
0x28af…28cd at0009 = ╱41╱A╱ // 0x28b8 @0x9
0x28af…28cd at000a = ╱42╱B╱ // 0x28b9 @0xa
0x28af…28cd at000b = ╱ed╱(╱ // 0x28ba @0xb
0x28af…28cd at000c = ╱44╱D╱ // 0x28bb @0xc
0x28af…28cd at000d = ╱54╱T╱ // 0x28bc @0xd
0x28af…28cd at000e = ╱41╱A╱ // 0x28bd @0xe
0x28af…28cd at000f = ╱42╱B╱ // 0x28be @0xf
0x28af…28cd at0010 = ╱ec╱,╱ // 0x28bf @0x10
0x28af…28cd at0011 = ╱4d╱M╱ // 0x28c0 @0x11
0x28af…28cd at0012 = ╱44╱D╱ // 0x28c1 @0x12
0x28af…28cd at0013 = ╱41╱A╱ // 0x28c2 @0x13
0x28af…28cd at0014 = ╱4e╱N╱ // 0x28c3 @0x14
0x28af…28cd at0015 = ╱54╱T╱ // 0x28c4 @0x15
0x28af…28cd at0016 = ╱41╱A╱ // 0x28c5 @0x16
0x28af…28cd at0017 = ╱4c╱L╱ // 0x28c6 @0x17
0x28af…28cd at0018 = ╱ec╱,╱ // 0x28c7 @0x18
0x28af…28cd at0019 = ╱4b╱K╱ // 0x28c8 @0x19
0x28af…28cd at001a = ╱32╱2╱ // 0x28c9 @0x1a
0x28af…28cd at001b = ╱ef╱$╱ // 0x28ca @0x1b
0x28af…28cd at001c = ╱ee╱)╱ // 0x28cb @0x1c
0x28af…28cd at001d = EOL // 0x28cc @0x1d
0x28af…28cd }
0x28cd…28dc b633 4920 K4$=N$+K4$
0x28cd…28dc LineComalBin {
0x28cd…28dc ptr = 0xb633 // 0x28cd @0x0
0x28cd…28dc lno = 0x1338 // 0x28cf @0x2
0x28cd…28dc at0004 = ╱4b╱K╱ // 0x28d1 @0x4
0x28cd…28dc at0005 = ╱34╱4╱ // 0x28d2 @0x5
0x28cd…28dc at0006 = ╱ef╱$╱ // 0x28d3 @0x6
0x28cd…28dc at0007 = ╱dc╱=╱ // 0x28d4 @0x7
0x28cd…28dc at0008 = ╱4e╱N╱ // 0x28d5 @0x8
0x28cd…28dc at0009 = ╱ef╱$╱ // 0x28d6 @0x9
0x28cd…28dc at000a = ╱f1╱+╱ // 0x28d7 @0xa
0x28cd…28dc at000b = ╱4b╱K╱ // 0x28d8 @0xb
0x28cd…28dc at000c = ╱34╱4╱ // 0x28d9 @0xc
0x28cd…28dc at000d = ╱ef╱$╱ // 0x28da @0xd
0x28cd…28dc at000e = EOL // 0x28db @0xe
0x28cd…28dc }
0x28dc…28e7 b63e 4930 OPEN K4$,R
0x28dc…28e7 LineComalBin {
0x28dc…28e7 ptr = 0xb63e // 0x28dc @0x0
0x28dc…28e7 lno = 0x1342 // 0x28de @0x2
0x28dc…28e7 at0004 = ╱a7╱ OPEN ╱ // 0x28e0 @0x4
0x28dc…28e7 at0005 = ╱4b╱K╱ // 0x28e1 @0x5
0x28dc…28e7 at0006 = ╱34╱4╱ // 0x28e2 @0x6
0x28dc…28e7 at0007 = ╱ef╱$╱ // 0x28e3 @0x7
0x28dc…28e7 at0008 = ╱ec╱,╱ // 0x28e4 @0x8
0x28dc…28e7 at0009 = ╱52╱R╱ // 0x28e5 @0x9
0x28dc…28e7 at000a = EOL // 0x28e6 @0xa
0x28dc…28e7 }
0x28e7…2900 b657 4940 EXEC FEJL(W,10,K4$)
0x28e7…2900 LineComalBin {
0x28e7…2900 ptr = 0xb657 // 0x28e7 @0x0
0x28e7…2900 lno = 0x134c // 0x28e9 @0x2
0x28e7…2900 at0004 = ╱9d╱ EXEC ╱ // 0x28eb @0x4
0x28e7…2900 at0005 = ╱46╱F╱ // 0x28ec @0x5
0x28e7…2900 at0006 = ╱45╱E╱ // 0x28ed @0x6
0x28e7…2900 at0007 = ╱4a╱J╱ // 0x28ee @0x7
0x28e7…2900 at0008 = ╱4c╱L╱ // 0x28ef @0x8
0x28e7…2900 at0009 = ╱ed╱(╱ // 0x28f0 @0x9
0x28e7…2900 at000a = ╱57╱W╱ // 0x28f1 @0xa
0x28e7…2900 at000b = ╱ec╱,╱ // 0x28f2 @0xb
0x28e7…2900 at000c = ╱31╱1╱ // 0x28f3 @0xc
0x28e7…2900 at000d = ╱30╱0╱ // 0x28f4 @0xd
0x28e7…2900 at000e = ╱fe0000a004╱ // 0x28f5 @0xe
0x28e7…2900 at0013 = ╱ec╱,╱ // 0x28fa @0x13
0x28e7…2900 at0014 = ╱4b╱K╱ // 0x28fb @0x14
0x28e7…2900 at0015 = ╱34╱4╱ // 0x28fc @0x15
0x28e7…2900 at0016 = ╱ef╱$╱ // 0x28fd @0x16
0x28e7…2900 at0017 = ╱ee╱)╱ // 0x28fe @0x17
0x28e7…2900 at0018 = EOL // 0x28ff @0x18
0x28e7…2900 }
0x2900…2915 b66c 4950 FOR I=E TO MKGR DIV 5
0x2900…2915 LineComalBin {
0x2900…2915 ptr = 0xb66c // 0x2900 @0x0
0x2900…2915 lno = 0x1356 // 0x2902 @0x2
0x2900…2915 at0004 = ╱83╱ FOR ╱ // 0x2904 @0x4
0x2900…2915 at0005 = ╱49╱I╱ // 0x2905 @0x5
0x2900…2915 at0006 = ╱dc╱=╱ // 0x2906 @0x6
0x2900…2915 at0007 = ╱45╱E╱ // 0x2907 @0x7
0x2900…2915 at0008 = ╱b7╱ TO ╱ // 0x2908 @0x8
0x2900…2915 at0009 = ╱4d╱M╱ // 0x2909 @0x9
0x2900…2915 at000a = ╱4b╱K╱ // 0x290a @0xa
0x2900…2915 at000b = ╱47╱G╱ // 0x290b @0xb
0x2900…2915 at000c = ╱52╱R╱ // 0x290c @0xc
0x2900…2915 at000d = ╱e7╱ DIV ╱ // 0x290d @0xd
0x2900…2915 at000e = ╱35╱5╱ // 0x290e @0xe
0x2900…2915 at000f = ╱fe0000a003╱ // 0x290f @0xf
0x2900…2915 at0014 = EOL // 0x2914 @0x14
0x2900…2915 }
0x2915…292a b681 4960 J=(I-E)*5+E
0x2915…292a LineComalBin {
0x2915…292a ptr = 0xb681 // 0x2915 @0x0
0x2915…292a lno = 0x1360 // 0x2917 @0x2
0x2915…292a at0004 = ╱4a╱J╱ // 0x2919 @0x4
0x2915…292a at0005 = ╱dc╱=╱ // 0x291a @0x5
0x2915…292a at0006 = ╱ed╱(╱ // 0x291b @0x6
0x2915…292a at0007 = ╱49╱I╱ // 0x291c @0x7
0x2915…292a at0008 = ╱e3╱-╱ // 0x291d @0x8
0x2915…292a at0009 = ╱45╱E╱ // 0x291e @0x9
0x2915…292a at000a = ╱ee╱)╱ // 0x291f @0xa
0x2915…292a at000b = ╱e4╱*╱ // 0x2920 @0xb
0x2915…292a at000c = ╱35╱5╱ // 0x2921 @0xc
0x2915…292a at000d = ╱fe0000a003╱ // 0x2922 @0xd
0x2915…292a at0012 = ╱e2╱+╱ // 0x2927 @0x12
0x2915…292a at0013 = ╱45╱E╱ // 0x2928 @0x13
0x2915…292a at0014 = EOL // 0x2929 @0x14
0x2915…292a }
0x292a…2974 b6cb 4970 GET K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4)
0x292a…2974 LineComalBin {
0x292a…2974 ptr = 0xb6cb // 0x292a @0x0
0x292a…2974 lno = 0x136a // 0x292c @0x2
0x292a…2974 at0004 = ╱a9╱ GET ╱ // 0x292e @0x4
0x292a…2974 at0005 = ╱4b╱K╱ // 0x292f @0x5
0x292a…2974 at0006 = ╱34╱4╱ // 0x2930 @0x6
0x292a…2974 at0007 = ╱ef╱$╱ // 0x2931 @0x7
0x292a…2974 at0008 = ╱ec╱,╱ // 0x2932 @0x8
0x292a…2974 at0009 = ╱49╱I╱ // 0x2933 @0x9
0x292a…2974 at000a = ╱f0╱:╱ // 0x2934 @0xa
0x292a…2974 at000b = ╱4b╱K╱ // 0x2935 @0xb
0x292a…2974 at000c = ╱41╱A╱ // 0x2936 @0xc
0x292a…2974 at000d = ╱52╱R╱ // 0x2937 @0xd
0x292a…2974 at000e = ╱52╱R╱ // 0x2938 @0xe
0x292a…2974 at000f = ╱41╱A╱ // 0x2939 @0xf
0x292a…2974 at0010 = ╱59╱Y╱ // 0x293a @0x10
0x292a…2974 at0011 = ╱ed╱(╱ // 0x293b @0x11
0x292a…2974 at0012 = ╱4a╱J╱ // 0x293c @0x12
0x292a…2974 at0013 = ╱ee╱)╱ // 0x293d @0x13
0x292a…2974 at0014 = ╱ec╱,╱ // 0x293e @0x14
0x292a…2974 at0015 = ╱4b╱K╱ // 0x293f @0x15
0x292a…2974 at0016 = ╱41╱A╱ // 0x2940 @0x16
0x292a…2974 at0017 = ╱52╱R╱ // 0x2941 @0x17
0x292a…2974 at0018 = ╱52╱R╱ // 0x2942 @0x18
0x292a…2974 at0019 = ╱41╱A╱ // 0x2943 @0x19
0x292a…2974 at001a = ╱59╱Y╱ // 0x2944 @0x1a
0x292a…2974 at001b = ╱ed╱(╱ // 0x2945 @0x1b
0x292a…2974 at001c = ╱4a╱J╱ // 0x2946 @0x1c
0x292a…2974 at001d = ╱e2╱+╱ // 0x2947 @0x1d
0x292a…2974 at001e = ╱45╱E╱ // 0x2948 @0x1e
0x292a…2974 at001f = ╱ee╱)╱ // 0x2949 @0x1f
0x292a…2974 at0020 = ╱ec╱,╱ // 0x294a @0x20
0x292a…2974 at0021 = ╱4b╱K╱ // 0x294b @0x21
0x292a…2974 at0022 = ╱41╱A╱ // 0x294c @0x22
0x292a…2974 at0023 = ╱52╱R╱ // 0x294d @0x23
0x292a…2974 at0024 = ╱52╱R╱ // 0x294e @0x24
0x292a…2974 at0025 = ╱41╱A╱ // 0x294f @0x25
0x292a…2974 at0026 = ╱59╱Y╱ // 0x2950 @0x26
0x292a…2974 at0027 = ╱ed╱(╱ // 0x2951 @0x27
0x292a…2974 at0028 = ╱4a╱J╱ // 0x2952 @0x28
0x292a…2974 at0029 = ╱e2╱+╱ // 0x2953 @0x29
0x292a…2974 at002a = ╱47╱G╱ // 0x2954 @0x2a
0x292a…2974 at002b = ╱ee╱)╱ // 0x2955 @0x2b
0x292a…2974 at002c = ╱ec╱,╱ // 0x2956 @0x2c
0x292a…2974 at002d = ╱4b╱K╱ // 0x2957 @0x2d
0x292a…2974 at002e = ╱41╱A╱ // 0x2958 @0x2e
0x292a…2974 at002f = ╱52╱R╱ // 0x2959 @0x2f
0x292a…2974 at0030 = ╱52╱R╱ // 0x295a @0x30
0x292a…2974 at0031 = ╱41╱A╱ // 0x295b @0x31
0x292a…2974 at0032 = ╱59╱Y╱ // 0x295c @0x32
0x292a…2974 at0033 = ╱ed╱(╱ // 0x295d @0x33
0x292a…2974 at0034 = ╱4a╱J╱ // 0x295e @0x34
0x292a…2974 at0035 = ╱e2╱+╱ // 0x295f @0x35
0x292a…2974 at0036 = ╱56╱V╱ // 0x2960 @0x36
0x292a…2974 at0037 = ╱ee╱)╱ // 0x2961 @0x37
0x292a…2974 at0038 = ╱ec╱,╱ // 0x2962 @0x38
0x292a…2974 at0039 = ╱4b╱K╱ // 0x2963 @0x39
0x292a…2974 at003a = ╱41╱A╱ // 0x2964 @0x3a
0x292a…2974 at003b = ╱52╱R╱ // 0x2965 @0x3b
0x292a…2974 at003c = ╱52╱R╱ // 0x2966 @0x3c
0x292a…2974 at003d = ╱41╱A╱ // 0x2967 @0x3d
0x292a…2974 at003e = ╱59╱Y╱ // 0x2968 @0x3e
0x292a…2974 at003f = ╱ed╱(╱ // 0x2969 @0x3f
0x292a…2974 at0040 = ╱4a╱J╱ // 0x296a @0x40
0x292a…2974 at0041 = ╱e2╱+╱ // 0x296b @0x41
0x292a…2974 at0042 = ╱34╱4╱ // 0x296c @0x42
0x292a…2974 at0043 = ╱fe00008003╱ // 0x296d @0x43
0x292a…2974 at0048 = ╱ee╱)╱ // 0x2972 @0x48
0x292a…2974 at0049 = EOL // 0x2973 @0x49
0x292a…2974 }
0x2974…298d b6e4 4980 EXEC FEJL(W,11,K4$)
0x2974…298d LineComalBin {
0x2974…298d ptr = 0xb6e4 // 0x2974 @0x0
0x2974…298d lno = 0x1374 // 0x2976 @0x2
0x2974…298d at0004 = ╱9d╱ EXEC ╱ // 0x2978 @0x4
0x2974…298d at0005 = ╱46╱F╱ // 0x2979 @0x5
0x2974…298d at0006 = ╱45╱E╱ // 0x297a @0x6
0x2974…298d at0007 = ╱4a╱J╱ // 0x297b @0x7
0x2974…298d at0008 = ╱4c╱L╱ // 0x297c @0x8
0x2974…298d at0009 = ╱ed╱(╱ // 0x297d @0x9
0x2974…298d at000a = ╱57╱W╱ // 0x297e @0xa
0x2974…298d at000b = ╱ec╱,╱ // 0x297f @0xb
0x2974…298d at000c = ╱31╱1╱ // 0x2980 @0xc
0x2974…298d at000d = ╱31╱1╱ // 0x2981 @0xd
0x2974…298d at000e = ╱fe0000b004╱ // 0x2982 @0xe
0x2974…298d at0013 = ╱ec╱,╱ // 0x2987 @0x13
0x2974…298d at0014 = ╱4b╱K╱ // 0x2988 @0x14
0x2974…298d at0015 = ╱34╱4╱ // 0x2989 @0x15
0x2974…298d at0016 = ╱ef╱$╱ // 0x298a @0x16
0x2974…298d at0017 = ╱ee╱)╱ // 0x298b @0x17
0x2974…298d at0018 = EOL // 0x298c @0x18
0x2974…298d }
0x298d…2994 b6eb 4990 NEXT I
0x298d…2994 LineComalBin {
0x298d…2994 ptr = 0xb6eb // 0x298d @0x0
0x298d…2994 lno = 0x137e // 0x298f @0x2
0x298d…2994 at0004 = ╱84╱ NEXT ╱ // 0x2991 @0x4
0x298d…2994 at0005 = ╱49╱I╱ // 0x2992 @0x5
0x298d…2994 at0006 = EOL // 0x2993 @0x6
0x298d…2994 }
0x2994…299d b6f4 5000 CLOSE K4$
0x2994…299d LineComalBin {
0x2994…299d ptr = 0xb6f4 // 0x2994 @0x0
0x2994…299d lno = 0x1388 // 0x2996 @0x2
0x2994…299d at0004 = ╱a8╱ CLOSE ╱ // 0x2998 @0x4
0x2994…299d at0005 = ╱4b╱K╱ // 0x2999 @0x5
0x2994…299d at0006 = ╱34╱4╱ // 0x299a @0x6
0x2994…299d at0007 = ╱ef╱$╱ // 0x299b @0x7
0x2994…299d at0008 = EOL // 0x299c @0x8
0x2994…299d }
0x299d…29b6 b70d 5010 EXEC FEJL(W,12,K4$)
0x299d…29b6 LineComalBin {
0x299d…29b6 ptr = 0xb70d // 0x299d @0x0
0x299d…29b6 lno = 0x1392 // 0x299f @0x2
0x299d…29b6 at0004 = ╱9d╱ EXEC ╱ // 0x29a1 @0x4
0x299d…29b6 at0005 = ╱46╱F╱ // 0x29a2 @0x5
0x299d…29b6 at0006 = ╱45╱E╱ // 0x29a3 @0x6
0x299d…29b6 at0007 = ╱4a╱J╱ // 0x29a4 @0x7
0x299d…29b6 at0008 = ╱4c╱L╱ // 0x29a5 @0x8
0x299d…29b6 at0009 = ╱ed╱(╱ // 0x29a6 @0x9
0x299d…29b6 at000a = ╱57╱W╱ // 0x29a7 @0xa
0x299d…29b6 at000b = ╱ec╱,╱ // 0x29a8 @0xb
0x299d…29b6 at000c = ╱31╱1╱ // 0x29a9 @0xc
0x299d…29b6 at000d = ╱32╱2╱ // 0x29aa @0xd
0x299d…29b6 at000e = ╱fe0000c004╱ // 0x29ab @0xe
0x299d…29b6 at0013 = ╱ec╱,╱ // 0x29b0 @0x13
0x299d…29b6 at0014 = ╱4b╱K╱ // 0x29b1 @0x14
0x299d…29b6 at0015 = ╱34╱4╱ // 0x29b2 @0x15
0x299d…29b6 at0016 = ╱ef╱$╱ // 0x29b3 @0x16
0x299d…29b6 at0017 = ╱ee╱)╱ // 0x29b4 @0x17
0x299d…29b6 at0018 = EOL // 0x29b5 @0x18
0x299d…29b6 }
0x29b6…2a03 b75a 5020 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "
0x29b6…2a03 LineComalBin {
0x29b6…2a03 ptr = 0xb75a // 0x29b6 @0x0
0x29b6…2a03 lno = 0x139c // 0x29b8 @0x2
0x29b6…2a03 at0004 = ╱42╱B╱ // 0x29ba @0x4
0x29b6…2a03 at0005 = ╱4c╱L╱ // 0x29bb @0x5
0x29b6…2a03 at0006 = ╱41╱A╱ // 0x29bc @0x6
0x29b6…2a03 at0007 = ╱4e╱N╱ // 0x29bd @0x7
0x29b6…2a03 at0008 = ╱4b╱K╱ // 0x29be @0x8
0x29b6…2a03 at0009 = ╱ef╱$╱ // 0x29bf @0x9
0x29b6…2a03 at000a = ╱dc╱=╱ // 0x29c0 @0xa
0x29b6…2a03 at000b = ╱22╱"╱ // 0x29c1 @0xb
0x29b6…2a03 at000c = ╱20╱…╱ // 0x29c2 @0xc
0x29b6…2a03 at000d = ╱20╱…╱ // 0x29c3 @0xd
0x29b6…2a03 at000e = ╱20╱…╱ // 0x29c4 @0xe
0x29b6…2a03 at000f = ╱20╱…╱ // 0x29c5 @0xf
0x29b6…2a03 at0010 = ╱20╱…╱ // 0x29c6 @0x10
0x29b6…2a03 at0011 = ╱20╱…╱ // 0x29c7 @0x11
0x29b6…2a03 at0012 = ╱20╱…╱ // 0x29c8 @0x12
0x29b6…2a03 at0013 = ╱20╱…╱ // 0x29c9 @0x13
0x29b6…2a03 at0014 = ╱20╱…╱ // 0x29ca @0x14
0x29b6…2a03 at0015 = ╱20╱…╱ // 0x29cb @0x15
0x29b6…2a03 at0016 = ╱20╱…╱ // 0x29cc @0x16
0x29b6…2a03 at0017 = ╱20╱…╱ // 0x29cd @0x17
0x29b6…2a03 at0018 = ╱20╱…╱ // 0x29ce @0x18
0x29b6…2a03 at0019 = ╱20╱…╱ // 0x29cf @0x19
0x29b6…2a03 at001a = ╱20╱…╱ // 0x29d0 @0x1a
0x29b6…2a03 at001b = ╱20╱…╱ // 0x29d1 @0x1b
0x29b6…2a03 at001c = ╱20╱…╱ // 0x29d2 @0x1c
0x29b6…2a03 at001d = ╱20╱…╱ // 0x29d3 @0x1d
0x29b6…2a03 at001e = ╱20╱…╱ // 0x29d4 @0x1e
0x29b6…2a03 at001f = ╱20╱…╱ // 0x29d5 @0x1f
0x29b6…2a03 at0020 = ╱20╱…╱ // 0x29d6 @0x20
0x29b6…2a03 at0021 = ╱20╱…╱ // 0x29d7 @0x21
0x29b6…2a03 at0022 = ╱20╱…╱ // 0x29d8 @0x22
0x29b6…2a03 at0023 = ╱20╱…╱ // 0x29d9 @0x23
0x29b6…2a03 at0024 = ╱20╱…╱ // 0x29da @0x24
0x29b6…2a03 at0025 = ╱20╱…╱ // 0x29db @0x25
0x29b6…2a03 at0026 = ╱20╱…╱ // 0x29dc @0x26
0x29b6…2a03 at0027 = ╱20╱…╱ // 0x29dd @0x27
0x29b6…2a03 at0028 = ╱20╱…╱ // 0x29de @0x28
0x29b6…2a03 at0029 = ╱20╱…╱ // 0x29df @0x29
0x29b6…2a03 at002a = ╱20╱…╱ // 0x29e0 @0x2a
0x29b6…2a03 at002b = ╱20╱…╱ // 0x29e1 @0x2b
0x29b6…2a03 at002c = ╱20╱…╱ // 0x29e2 @0x2c
0x29b6…2a03 at002d = ╱20╱…╱ // 0x29e3 @0x2d
0x29b6…2a03 at002e = ╱20╱…╱ // 0x29e4 @0x2e
0x29b6…2a03 at002f = ╱20╱…╱ // 0x29e5 @0x2f
0x29b6…2a03 at0030 = ╱20╱…╱ // 0x29e6 @0x30
0x29b6…2a03 at0031 = ╱20╱…╱ // 0x29e7 @0x31
0x29b6…2a03 at0032 = ╱22╱"╱ // 0x29e8 @0x32
0x29b6…2a03 at0033 = ╱eb╱;╱ // 0x29e9 @0x33
0x29b6…2a03 at0034 = ╱42╱B╱ // 0x29ea @0x34
0x29b6…2a03 at0035 = ╱4c╱L╱ // 0x29eb @0x35
0x29b6…2a03 at0036 = ╱41╱A╱ // 0x29ec @0x36
0x29b6…2a03 at0037 = ╱4e╱N╱ // 0x29ed @0x37
0x29b6…2a03 at0038 = ╱4b╱K╱ // 0x29ee @0x38
0x29b6…2a03 at0039 = ╱ef╱$╱ // 0x29ef @0x39
0x29b6…2a03 at003a = ╱dc╱=╱ // 0x29f0 @0x3a
0x29b6…2a03 at003b = ╱42╱B╱ // 0x29f1 @0x3b
0x29b6…2a03 at003c = ╱4c╱L╱ // 0x29f2 @0x3c
0x29b6…2a03 at003d = ╱41╱A╱ // 0x29f3 @0x3d
0x29b6…2a03 at003e = ╱4e╱N╱ // 0x29f4 @0x3e
0x29b6…2a03 at003f = ╱4b╱K╱ // 0x29f5 @0x3f
0x29b6…2a03 at0040 = ╱ef╱$╱ // 0x29f6 @0x40
0x29b6…2a03 at0041 = ╱f1╱+╱ // 0x29f7 @0x41
0x29b6…2a03 at0042 = ╱42╱B╱ // 0x29f8 @0x42
0x29b6…2a03 at0043 = ╱4c╱L╱ // 0x29f9 @0x43
0x29b6…2a03 at0044 = ╱41╱A╱ // 0x29fa @0x44
0x29b6…2a03 at0045 = ╱4e╱N╱ // 0x29fb @0x45
0x29b6…2a03 at0046 = ╱4b╱K╱ // 0x29fc @0x46
0x29b6…2a03 at0047 = ╱ef╱$╱ // 0x29fd @0x47
0x29b6…2a03 at0048 = ╱f1╱+╱ // 0x29fe @0x48
0x29b6…2a03 at0049 = ╱22╱"╱ // 0x29ff @0x49
0x29b6…2a03 at004a = ╱20╱…╱ // 0x2a00 @0x4a
0x29b6…2a03 at004b = ╱22╱"╱ // 0x2a01 @0x4b
0x29b6…2a03 at004c = EOL // 0x2a02 @0x4c
0x29b6…2a03 }
0x2a03…2a1c b773 5030 TAH$="0+";TAL4$="0+"
0x2a03…2a1c LineComalBin {
0x2a03…2a1c ptr = 0xb773 // 0x2a03 @0x0
0x2a03…2a1c lno = 0x13a6 // 0x2a05 @0x2
0x2a03…2a1c at0004 = ╱54╱T╱ // 0x2a07 @0x4
0x2a03…2a1c at0005 = ╱41╱A╱ // 0x2a08 @0x5
0x2a03…2a1c at0006 = ╱48╱H╱ // 0x2a09 @0x6
0x2a03…2a1c at0007 = ╱ef╱$╱ // 0x2a0a @0x7
0x2a03…2a1c at0008 = ╱dc╱=╱ // 0x2a0b @0x8
0x2a03…2a1c at0009 = ╱22╱"╱ // 0x2a0c @0x9
0x2a03…2a1c at000a = ╱30╱0╱ // 0x2a0d @0xa
0x2a03…2a1c at000b = ╱2b╱+╱ // 0x2a0e @0xb
0x2a03…2a1c at000c = ╱22╱"╱ // 0x2a0f @0xc
0x2a03…2a1c at000d = ╱eb╱;╱ // 0x2a10 @0xd
0x2a03…2a1c at000e = ╱54╱T╱ // 0x2a11 @0xe
0x2a03…2a1c at000f = ╱41╱A╱ // 0x2a12 @0xf
0x2a03…2a1c at0010 = ╱4c╱L╱ // 0x2a13 @0x10
0x2a03…2a1c at0011 = ╱34╱4╱ // 0x2a14 @0x11
0x2a03…2a1c at0012 = ╱ef╱$╱ // 0x2a15 @0x12
0x2a03…2a1c at0013 = ╱dc╱=╱ // 0x2a16 @0x13
0x2a03…2a1c at0014 = ╱22╱"╱ // 0x2a17 @0x14
0x2a03…2a1c at0015 = ╱30╱0╱ // 0x2a18 @0x15
0x2a03…2a1c at0016 = ╱2b╱+╱ // 0x2a19 @0x16
0x2a03…2a1c at0017 = ╱22╱"╱ // 0x2a1a @0x17
0x2a03…2a1c at0018 = EOL // 0x2a1b @0x18
0x2a03…2a1c }
0x2a1c…2a62 (140,) b7b9 5040 STREG$="-----------------------------------";STREG$=STREG$+STREG$
0x2a1c…2a62 LineComalBin {
0x2a1c…2a62 ptr = 0xb7b9 // 0x2a1c @0x0
0x2a1c…2a62 lno = 0x13b0 // 0x2a1e @0x2
0x2a1c…2a62 at0004 = ╱53╱S╱ // 0x2a20 @0x4
0x2a1c…2a62 at0005 = ╱54╱T╱ // 0x2a21 @0x5
0x2a1c…2a62 at0006 = ╱52╱R╱ // 0x2a22 @0x6
0x2a1c…2a62 at0007 = ╱45╱E╱ // 0x2a23 @0x7
0x2a1c…2a62 at0008 = ╱47╱G╱ // 0x2a24 @0x8
0x2a1c…2a62 at0009 = ╱ef╱$╱ // 0x2a25 @0x9
0x2a1c…2a62 at000a = ╱dc╱=╱ // 0x2a26 @0xa
0x2a1c…2a62 at000b = ╱22╱"╱ // 0x2a27 @0xb
0x2a1c…2a62 at000c = ╱2d╱-╱ // 0x2a28 @0xc
0x2a1c…2a62 at000d = ╱2d╱-╱ // 0x2a29 @0xd
0x2a1c…2a62 at000e = ╱2d╱-╱ // 0x2a2a @0xe
0x2a1c…2a62 at000f = ╱2d╱-╱ // 0x2a2b @0xf
0x2a1c…2a62 at0010 = ╱2d╱-╱ // 0x2a2c @0x10
0x2a1c…2a62 at0011 = ╱2d╱-╱ // 0x2a2d @0x11
0x2a1c…2a62 at0012 = ╱2d╱-╱ // 0x2a2e @0x12
0x2a1c…2a62 at0013 = ╱2d╱-╱ // 0x2a2f @0x13
0x2a1c…2a62 at0014 = ╱2d╱-╱ // 0x2a30 @0x14
0x2a1c…2a62 at0015 = ╱2d╱-╱ // 0x2a31 @0x15
0x2a1c…2a62 at0016 = ╱2d╱-╱ // 0x2a32 @0x16
0x2a1c…2a62 at0017 = ╱2d╱-╱ // 0x2a33 @0x17
0x2a1c…2a62 at0018 = ╱2d╱-╱ // 0x2a34 @0x18
0x2a1c…2a62 at0019 = ╱2d╱-╱ // 0x2a35 @0x19
0x2a1c…2a62 at001a = ╱2d╱-╱ // 0x2a36 @0x1a
0x2a1c…2a62 at001b = ╱2d╱-╱ // 0x2a37 @0x1b
0x2a1c…2a62 at001c = ╱2d╱-╱ // 0x2a38 @0x1c
0x2a1c…2a62 at001d = ╱2d╱-╱ // 0x2a39 @0x1d
0x2a1c…2a62 at001e = ╱2d╱-╱ // 0x2a3a @0x1e
0x2a1c…2a62 at001f = ╱2d╱-╱ // 0x2a3b @0x1f
0x2a1c…2a62 at0020 = ╱2d╱-╱ // 0x2a3c @0x20
0x2a1c…2a62 at0021 = ╱2d╱-╱ // 0x2a3d @0x21
0x2a1c…2a62 at0022 = ╱2d╱-╱ // 0x2a3e @0x22
0x2a1c…2a62 at0023 = ╱2d╱-╱ // 0x2a3f @0x23
0x2a1c…2a62 at0024 = ╱2d╱-╱ // 0x2a40 @0x24
0x2a1c…2a62 at0025 = ╱2d╱-╱ // 0x2a41 @0x25
0x2a1c…2a62 at0026 = ╱2d╱-╱ // 0x2a42 @0x26
0x2a1c…2a62 at0027 = ╱2d╱-╱ // 0x2a43 @0x27
0x2a1c…2a62 at0028 = ╱2d╱-╱ // 0x2a44 @0x28
0x2a1c…2a62 at0029 = ╱2d╱-╱ // 0x2a45 @0x29
0x2a1c…2a62 at002a = ╱2d╱-╱ // 0x2a46 @0x2a
0x2a1c…2a62 at002b = ╱2d╱-╱ // 0x2a47 @0x2b
0x2a1c…2a62 at002c = ╱2d╱-╱ // 0x2a48 @0x2c
0x2a1c…2a62 at002d = ╱2d╱-╱ // 0x2a49 @0x2d
0x2a1c…2a62 at002e = ╱2d╱-╱ // 0x2a4a @0x2e
0x2a1c…2a62 at002f = ╱22╱"╱ // 0x2a4b @0x2f
0x2a1c…2a62 at0030 = ╱eb╱;╱ // 0x2a4c @0x30
0x2a1c…2a62 at0031 = ╱53╱S╱ // 0x2a4d @0x31
0x2a1c…2a62 at0032 = ╱54╱T╱ // 0x2a4e @0x32
0x2a1c…2a62 at0033 = ╱52╱R╱ // 0x2a4f @0x33
0x2a1c…2a62 at0034 = ╱45╱E╱ // 0x2a50 @0x34
0x2a1c…2a62 at0035 = ╱47╱G╱ // 0x2a51 @0x35
0x2a1c…2a62 at0036 = ╱ef╱$╱ // 0x2a52 @0x36
0x2a1c…2a62 at0037 = ╱dc╱=╱ // 0x2a53 @0x37
0x2a1c…2a62 at0038 = ╱53╱S╱ // 0x2a54 @0x38
0x2a1c…2a62 at0039 = ╱54╱T╱ // 0x2a55 @0x39
0x2a1c…2a62 at003a = ╱52╱R╱ // 0x2a56 @0x3a
0x2a1c…2a62 at003b = ╱45╱E╱ // 0x2a57 @0x3b
0x2a1c…2a62 at003c = ╱47╱G╱ // 0x2a58 @0x3c
0x2a1c…2a62 at003d = ╱ef╱$╱ // 0x2a59 @0x3d
0x2a1c…2a62 at003e = ╱f1╱+╱ // 0x2a5a @0x3e
0x2a1c…2a62 at003f = ╱53╱S╱ // 0x2a5b @0x3f
0x2a1c…2a62 at0040 = ╱54╱T╱ // 0x2a5c @0x40
0x2a1c…2a62 at0041 = ╱52╱R╱ // 0x2a5d @0x41
0x2a1c…2a62 at0042 = ╱45╱E╱ // 0x2a5e @0x42
0x2a1c…2a62 at0043 = ╱47╱G╱ // 0x2a5f @0x43
0x2a1c…2a62 at0044 = ╱ef╱$╱ // 0x2a60 @0x44
0x2a1c…2a62 at0045 = EOL // 0x2a61 @0x45
0x2a1c…2a62 }
0x2a62…2a68 b7bf 5050 REPEAT
0x2a62…2a68 LineComalBin {
0x2a62…2a68 ptr = 0xb7bf // 0x2a62 @0x0
0x2a62…2a68 lno = 0x13ba // 0x2a64 @0x2
0x2a62…2a68 at0004 = ╱97╱ REPEAT ╱ // 0x2a66 @0x4
0x2a62…2a68 at0005 = EOL // 0x2a67 @0x5
0x2a62…2a68 }
0x2a68…2a6e b7c5 5060 CLEAR
0x2a68…2a6e LineComalBin {
0x2a68…2a6e ptr = 0xb7c5 // 0x2a68 @0x0
0x2a68…2a6e lno = 0x13c4 // 0x2a6a @0x2
0x2a68…2a6e at0004 = ╱a0╱ CLEAR ╱ // 0x2a6c @0x4
0x2a68…2a6e at0005 = EOL // 0x2a6d @0x5
0x2a68…2a6e }
0x2a6e…2a7d b7d4 5070 CURSOR 21,E
0x2a6e…2a7d LineComalBin {
0x2a6e…2a7d ptr = 0xb7d4 // 0x2a6e @0x0
0x2a6e…2a7d lno = 0x13ce // 0x2a70 @0x2
0x2a6e…2a7d at0004 = ╱a1╱ CURSOR ╱ // 0x2a72 @0x4
0x2a6e…2a7d at0005 = ╱32╱2╱ // 0x2a73 @0x5
0x2a6e…2a7d at0006 = ╱31╱1╱ // 0x2a74 @0x6
0x2a6e…2a7d at0007 = ╱fe0000a805╱ // 0x2a75 @0x7
0x2a6e…2a7d at000c = ╱ec╱,╱ // 0x2a7a @0xc
0x2a6e…2a7d at000d = ╱45╱E╱ // 0x2a7b @0xd
0x2a6e…2a7d at000e = EOL // 0x2a7c @0xe
0x2a6e…2a7d }
0x2a7d…2a99 b7f0 5080 PRINT "Kundevedligeholdelse"
0x2a7d…2a99 LineComalBin {
0x2a7d…2a99 ptr = 0xb7f0 // 0x2a7d @0x0
0x2a7d…2a99 lno = 0x13d8 // 0x2a7f @0x2
0x2a7d…2a99 at0004 = ╱92╱ PRINT ╱ // 0x2a81 @0x4
0x2a7d…2a99 at0005 = ╱22╱"╱ // 0x2a82 @0x5
0x2a7d…2a99 at0006 = ╱4b╱K╱ // 0x2a83 @0x6
0x2a7d…2a99 at0007 = ╱75╱u╱ // 0x2a84 @0x7
0x2a7d…2a99 at0008 = ╱6e╱n╱ // 0x2a85 @0x8
0x2a7d…2a99 at0009 = ╱64╱d╱ // 0x2a86 @0x9
0x2a7d…2a99 at000a = ╱65╱e╱ // 0x2a87 @0xa
0x2a7d…2a99 at000b = ╱76╱v╱ // 0x2a88 @0xb
0x2a7d…2a99 at000c = ╱65╱e╱ // 0x2a89 @0xc
0x2a7d…2a99 at000d = ╱64╱d╱ // 0x2a8a @0xd
0x2a7d…2a99 at000e = ╱6c╱l╱ // 0x2a8b @0xe
0x2a7d…2a99 at000f = ╱69╱i╱ // 0x2a8c @0xf
0x2a7d…2a99 at0010 = ╱67╱g╱ // 0x2a8d @0x10
0x2a7d…2a99 at0011 = ╱65╱e╱ // 0x2a8e @0x11
0x2a7d…2a99 at0012 = ╱68╱h╱ // 0x2a8f @0x12
0x2a7d…2a99 at0013 = ╱6f╱o╱ // 0x2a90 @0x13
0x2a7d…2a99 at0014 = ╱6c╱l╱ // 0x2a91 @0x14
0x2a7d…2a99 at0015 = ╱64╱d╱ // 0x2a92 @0x15
0x2a7d…2a99 at0016 = ╱65╱e╱ // 0x2a93 @0x16
0x2a7d…2a99 at0017 = ╱6c╱l╱ // 0x2a94 @0x17
0x2a7d…2a99 at0018 = ╱73╱s╱ // 0x2a95 @0x18
0x2a7d…2a99 at0019 = ╱65╱e╱ // 0x2a96 @0x19
0x2a7d…2a99 at001a = ╱22╱"╱ // 0x2a97 @0x1a
0x2a7d…2a99 at001b = EOL // 0x2a98 @0x1b
0x2a7d…2a99 }
0x2a99…2aa2 b7f9 5090 CURSOR G,V
0x2a99…2aa2 LineComalBin {
0x2a99…2aa2 ptr = 0xb7f9 // 0x2a99 @0x0
0x2a99…2aa2 lno = 0x13e2 // 0x2a9b @0x2
0x2a99…2aa2 at0004 = ╱a1╱ CURSOR ╱ // 0x2a9d @0x4
0x2a99…2aa2 at0005 = ╱47╱G╱ // 0x2a9e @0x5
0x2a99…2aa2 at0006 = ╱ec╱,╱ // 0x2a9f @0x6
0x2a99…2aa2 at0007 = ╱56╱V╱ // 0x2aa0 @0x7
0x2a99…2aa2 at0008 = EOL // 0x2aa1 @0x8
0x2a99…2aa2 }
0x2aa2…2ab2 b809 5100 PRINT "0:Færdig"
0x2aa2…2ab2 LineComalBin {
0x2aa2…2ab2 ptr = 0xb809 // 0x2aa2 @0x0
0x2aa2…2ab2 lno = 0x13ec // 0x2aa4 @0x2
0x2aa2…2ab2 at0004 = ╱92╱ PRINT ╱ // 0x2aa6 @0x4
0x2aa2…2ab2 at0005 = ╱22╱"╱ // 0x2aa7 @0x5
0x2aa2…2ab2 at0006 = ╱30╱0╱ // 0x2aa8 @0x6
0x2aa2…2ab2 at0007 = ╱3a╱:╱ // 0x2aa9 @0x7
0x2aa2…2ab2 at0008 = ╱46╱F╱ // 0x2aaa @0x8
0x2aa2…2ab2 at0009 = ╱7b╱æ╱ // 0x2aab @0x9
0x2aa2…2ab2 at000a = ╱72╱r╱ // 0x2aac @0xa
0x2aa2…2ab2 at000b = ╱64╱d╱ // 0x2aad @0xb
0x2aa2…2ab2 at000c = ╱69╱i╱ // 0x2aae @0xc
0x2aa2…2ab2 at000d = ╱67╱g╱ // 0x2aaf @0xd
0x2aa2…2ab2 at000e = ╱22╱"╱ // 0x2ab0 @0xe
0x2aa2…2ab2 at000f = EOL // 0x2ab1 @0xf
0x2aa2…2ab2 }
0x2ab2…2ac0 b817 5110 CURSOR G,5
0x2ab2…2ac0 LineComalBin {
0x2ab2…2ac0 ptr = 0xb817 // 0x2ab2 @0x0
0x2ab2…2ac0 lno = 0x13f6 // 0x2ab4 @0x2
0x2ab2…2ac0 at0004 = ╱a1╱ CURSOR ╱ // 0x2ab6 @0x4
0x2ab2…2ac0 at0005 = ╱47╱G╱ // 0x2ab7 @0x5
0x2ab2…2ac0 at0006 = ╱ec╱,╱ // 0x2ab8 @0x6
0x2ab2…2ac0 at0007 = ╱35╱5╱ // 0x2ab9 @0x7
0x2ab2…2ac0 at0008 = ╱fe0000a003╱ // 0x2aba @0x8
0x2ab2…2ac0 at000d = EOL // 0x2abf @0xd
0x2ab2…2ac0 }
0x2ac0…2ad4 b82b 5120 PRINT "1:Oprettelse"
0x2ac0…2ad4 LineComalBin {
0x2ac0…2ad4 ptr = 0xb82b // 0x2ac0 @0x0
0x2ac0…2ad4 lno = 0x1400 // 0x2ac2 @0x2
0x2ac0…2ad4 at0004 = ╱92╱ PRINT ╱ // 0x2ac4 @0x4
0x2ac0…2ad4 at0005 = ╱22╱"╱ // 0x2ac5 @0x5
0x2ac0…2ad4 at0006 = ╱31╱1╱ // 0x2ac6 @0x6
0x2ac0…2ad4 at0007 = ╱3a╱:╱ // 0x2ac7 @0x7
0x2ac0…2ad4 at0008 = ╱4f╱O╱ // 0x2ac8 @0x8
0x2ac0…2ad4 at0009 = ╱70╱p╱ // 0x2ac9 @0x9
0x2ac0…2ad4 at000a = ╱72╱r╱ // 0x2aca @0xa
0x2ac0…2ad4 at000b = ╱65╱e╱ // 0x2acb @0xb
0x2ac0…2ad4 at000c = ╱74╱t╱ // 0x2acc @0xc
0x2ac0…2ad4 at000d = ╱74╱t╱ // 0x2acd @0xd
0x2ac0…2ad4 at000e = ╱65╱e╱ // 0x2ace @0xe
0x2ac0…2ad4 at000f = ╱6c╱l╱ // 0x2acf @0xf
0x2ac0…2ad4 at0010 = ╱73╱s╱ // 0x2ad0 @0x10
0x2ac0…2ad4 at0011 = ╱65╱e╱ // 0x2ad1 @0x11
0x2ac0…2ad4 at0012 = ╱22╱"╱ // 0x2ad2 @0x12
0x2ac0…2ad4 at0013 = EOL // 0x2ad3 @0x13
0x2ac0…2ad4 }
0x2ad4…2ae2 b839 5130 CURSOR G,7
0x2ad4…2ae2 LineComalBin {
0x2ad4…2ae2 ptr = 0xb839 // 0x2ad4 @0x0
0x2ad4…2ae2 lno = 0x140a // 0x2ad6 @0x2
0x2ad4…2ae2 at0004 = ╱a1╱ CURSOR ╱ // 0x2ad8 @0x4
0x2ad4…2ae2 at0005 = ╱47╱G╱ // 0x2ad9 @0x5
0x2ad4…2ae2 at0006 = ╱ec╱,╱ // 0x2ada @0x6
0x2ad4…2ae2 at0007 = ╱37╱7╱ // 0x2adb @0x7
0x2ad4…2ae2 at0008 = ╱fe0000e003╱ // 0x2adc @0x8
0x2ad4…2ae2 at000d = EOL // 0x2ae1 @0xd
0x2ad4…2ae2 }
0x2ae2…2af3 b84a 5140 PRINT "2:Ændring"
0x2ae2…2af3 LineComalBin {
0x2ae2…2af3 ptr = 0xb84a // 0x2ae2 @0x0
0x2ae2…2af3 lno = 0x1414 // 0x2ae4 @0x2
0x2ae2…2af3 at0004 = ╱92╱ PRINT ╱ // 0x2ae6 @0x4
0x2ae2…2af3 at0005 = ╱22╱"╱ // 0x2ae7 @0x5
0x2ae2…2af3 at0006 = ╱32╱2╱ // 0x2ae8 @0x6
0x2ae2…2af3 at0007 = ╱3a╱:╱ // 0x2ae9 @0x7
0x2ae2…2af3 at0008 = ╱5b╱Æ╱ // 0x2aea @0x8
0x2ae2…2af3 at0009 = ╱6e╱n╱ // 0x2aeb @0x9
0x2ae2…2af3 at000a = ╱64╱d╱ // 0x2aec @0xa
0x2ae2…2af3 at000b = ╱72╱r╱ // 0x2aed @0xb
0x2ae2…2af3 at000c = ╱69╱i╱ // 0x2aee @0xc
0x2ae2…2af3 at000d = ╱6e╱n╱ // 0x2aef @0xd
0x2ae2…2af3 at000e = ╱67╱g╱ // 0x2af0 @0xe
0x2ae2…2af3 at000f = ╱22╱"╱ // 0x2af1 @0xf
0x2ae2…2af3 at0010 = EOL // 0x2af2 @0x10
0x2ae2…2af3 }
0x2af3…2afc b853 5150 CURSOR G,W
0x2af3…2afc LineComalBin {
0x2af3…2afc ptr = 0xb853 // 0x2af3 @0x0
0x2af3…2afc lno = 0x141e // 0x2af5 @0x2
0x2af3…2afc at0004 = ╱a1╱ CURSOR ╱ // 0x2af7 @0x4
0x2af3…2afc at0005 = ╱47╱G╱ // 0x2af8 @0x5
0x2af3…2afc at0006 = ╱ec╱,╱ // 0x2af9 @0x6
0x2af3…2afc at0007 = ╱57╱W╱ // 0x2afa @0x7
0x2af3…2afc at0008 = EOL // 0x2afb @0x8
0x2af3…2afc }
0x2afc…2b0e b865 5160 PRINT "3:Sletning"
0x2afc…2b0e LineComalBin {
0x2afc…2b0e ptr = 0xb865 // 0x2afc @0x0
0x2afc…2b0e lno = 0x1428 // 0x2afe @0x2
0x2afc…2b0e at0004 = ╱92╱ PRINT ╱ // 0x2b00 @0x4
0x2afc…2b0e at0005 = ╱22╱"╱ // 0x2b01 @0x5
0x2afc…2b0e at0006 = ╱33╱3╱ // 0x2b02 @0x6
0x2afc…2b0e at0007 = ╱3a╱:╱ // 0x2b03 @0x7
0x2afc…2b0e at0008 = ╱53╱S╱ // 0x2b04 @0x8
0x2afc…2b0e at0009 = ╱6c╱l╱ // 0x2b05 @0x9
0x2afc…2b0e at000a = ╱65╱e╱ // 0x2b06 @0xa
0x2afc…2b0e at000b = ╱74╱t╱ // 0x2b07 @0xb
0x2afc…2b0e at000c = ╱6e╱n╱ // 0x2b08 @0xc
0x2afc…2b0e at000d = ╱69╱i╱ // 0x2b09 @0xd
0x2afc…2b0e at000e = ╱6e╱n╱ // 0x2b0a @0xe
0x2afc…2b0e at000f = ╱67╱g╱ // 0x2b0b @0xf
0x2afc…2b0e at0010 = ╱22╱"╱ // 0x2b0c @0x10
0x2afc…2b0e at0011 = EOL // 0x2b0d @0x11
0x2afc…2b0e }
0x2b0e…2b1d b874 5170 CURSOR G,11
0x2b0e…2b1d LineComalBin {
0x2b0e…2b1d ptr = 0xb874 // 0x2b0e @0x0
0x2b0e…2b1d lno = 0x1432 // 0x2b10 @0x2
0x2b0e…2b1d at0004 = ╱a1╱ CURSOR ╱ // 0x2b12 @0x4
0x2b0e…2b1d at0005 = ╱47╱G╱ // 0x2b13 @0x5
0x2b0e…2b1d at0006 = ╱ec╱,╱ // 0x2b14 @0x6
0x2b0e…2b1d at0007 = ╱31╱1╱ // 0x2b15 @0x7
0x2b0e…2b1d at0008 = ╱31╱1╱ // 0x2b16 @0x8
0x2b0e…2b1d at0009 = ╱fe0000b004╱ // 0x2b17 @0x9
0x2b0e…2b1d at000e = EOL // 0x2b1c @0xe
0x2b0e…2b1d }
0x2b1d…2b2f b886 5180 PRINT "4:Udskrift"
0x2b1d…2b2f LineComalBin {
0x2b1d…2b2f ptr = 0xb886 // 0x2b1d @0x0
0x2b1d…2b2f lno = 0x143c // 0x2b1f @0x2
0x2b1d…2b2f at0004 = ╱92╱ PRINT ╱ // 0x2b21 @0x4
0x2b1d…2b2f at0005 = ╱22╱"╱ // 0x2b22 @0x5
0x2b1d…2b2f at0006 = ╱34╱4╱ // 0x2b23 @0x6
0x2b1d…2b2f at0007 = ╱3a╱:╱ // 0x2b24 @0x7
0x2b1d…2b2f at0008 = ╱55╱U╱ // 0x2b25 @0x8
0x2b1d…2b2f at0009 = ╱64╱d╱ // 0x2b26 @0x9
0x2b1d…2b2f at000a = ╱73╱s╱ // 0x2b27 @0xa
0x2b1d…2b2f at000b = ╱6b╱k╱ // 0x2b28 @0xb
0x2b1d…2b2f at000c = ╱72╱r╱ // 0x2b29 @0xc
0x2b1d…2b2f at000d = ╱69╱i╱ // 0x2b2a @0xd
0x2b1d…2b2f at000e = ╱66╱f╱ // 0x2b2b @0xe
0x2b1d…2b2f at000f = ╱74╱t╱ // 0x2b2c @0xf
0x2b1d…2b2f at0010 = ╱22╱"╱ // 0x2b2d @0x10
0x2b1d…2b2f at0011 = EOL // 0x2b2e @0x11
0x2b1d…2b2f }
0x2b2f…2b3e b895 5190 CURSOR G,13
0x2b2f…2b3e LineComalBin {
0x2b2f…2b3e ptr = 0xb895 // 0x2b2f @0x0
0x2b2f…2b3e lno = 0x1446 // 0x2b31 @0x2
0x2b2f…2b3e at0004 = ╱a1╱ CURSOR ╱ // 0x2b33 @0x4
0x2b2f…2b3e at0005 = ╱47╱G╱ // 0x2b34 @0x5
0x2b2f…2b3e at0006 = ╱ec╱,╱ // 0x2b35 @0x6
0x2b2f…2b3e at0007 = ╱31╱1╱ // 0x2b36 @0x7
0x2b2f…2b3e at0008 = ╱33╱3╱ // 0x2b37 @0x8
0x2b2f…2b3e at0009 = ╱fe0000d004╱ // 0x2b38 @0x9
0x2b2f…2b3e at000e = EOL // 0x2b3d @0xe
0x2b2f…2b3e }
0x2b3e…2b57 b8ae 5200 PRINT "5:Kundekontoliste"
0x2b3e…2b57 LineComalBin {
0x2b3e…2b57 ptr = 0xb8ae // 0x2b3e @0x0
0x2b3e…2b57 lno = 0x1450 // 0x2b40 @0x2
0x2b3e…2b57 at0004 = ╱92╱ PRINT ╱ // 0x2b42 @0x4
0x2b3e…2b57 at0005 = ╱22╱"╱ // 0x2b43 @0x5
0x2b3e…2b57 at0006 = ╱35╱5╱ // 0x2b44 @0x6
0x2b3e…2b57 at0007 = ╱3a╱:╱ // 0x2b45 @0x7
0x2b3e…2b57 at0008 = ╱4b╱K╱ // 0x2b46 @0x8
0x2b3e…2b57 at0009 = ╱75╱u╱ // 0x2b47 @0x9
0x2b3e…2b57 at000a = ╱6e╱n╱ // 0x2b48 @0xa
0x2b3e…2b57 at000b = ╱64╱d╱ // 0x2b49 @0xb
0x2b3e…2b57 at000c = ╱65╱e╱ // 0x2b4a @0xc
0x2b3e…2b57 at000d = ╱6b╱k╱ // 0x2b4b @0xd
0x2b3e…2b57 at000e = ╱6f╱o╱ // 0x2b4c @0xe
0x2b3e…2b57 at000f = ╱6e╱n╱ // 0x2b4d @0xf
0x2b3e…2b57 at0010 = ╱74╱t╱ // 0x2b4e @0x10
0x2b3e…2b57 at0011 = ╱6f╱o╱ // 0x2b4f @0x11
0x2b3e…2b57 at0012 = ╱6c╱l╱ // 0x2b50 @0x12
0x2b3e…2b57 at0013 = ╱69╱i╱ // 0x2b51 @0x13
0x2b3e…2b57 at0014 = ╱73╱s╱ // 0x2b52 @0x14
0x2b3e…2b57 at0015 = ╱74╱t╱ // 0x2b53 @0x15
0x2b3e…2b57 at0016 = ╱65╱e╱ // 0x2b54 @0x16
0x2b3e…2b57 at0017 = ╱22╱"╱ // 0x2b55 @0x17
0x2b3e…2b57 at0018 = EOL // 0x2b56 @0x18
0x2b3e…2b57 }
0x2b57…2b5d b8b4 5210 REPEAT
0x2b57…2b5d LineComalBin {
0x2b57…2b5d ptr = 0xb8b4 // 0x2b57 @0x0
0x2b57…2b5d lno = 0x145a // 0x2b59 @0x2
0x2b57…2b5d at0004 = ╱97╱ REPEAT ╱ // 0x2b5b @0x4
0x2b57…2b5d at0005 = EOL // 0x2b5c @0x5
0x2b57…2b5d }
0x2b5d…2b71 b8c8 5220 CURSOR 4,15
0x2b5d…2b71 LineComalBin {
0x2b5d…2b71 ptr = 0xb8c8 // 0x2b5d @0x0
0x2b5d…2b71 lno = 0x1464 // 0x2b5f @0x2
0x2b5d…2b71 at0004 = ╱a1╱ CURSOR ╱ // 0x2b61 @0x4
0x2b5d…2b71 at0005 = ╱34╱4╱ // 0x2b62 @0x5
0x2b5d…2b71 at0006 = ╱fe00008003╱ // 0x2b63 @0x6
0x2b5d…2b71 at000b = ╱ec╱,╱ // 0x2b68 @0xb
0x2b5d…2b71 at000c = ╱31╱1╱ // 0x2b69 @0xc
0x2b5d…2b71 at000d = ╱35╱5╱ // 0x2b6a @0xd
0x2b5d…2b71 at000e = ╱fe0000f004╱ // 0x2b6b @0xe
0x2b5d…2b71 at0013 = EOL // 0x2b70 @0x13
0x2b5d…2b71 }
0x2b71…2b8c b8e3 5230 PRINT "Vælg type (0-5)"
0x2b71…2b8c LineComalBin {
0x2b71…2b8c ptr = 0xb8e3 // 0x2b71 @0x0
0x2b71…2b8c lno = 0x146e // 0x2b73 @0x2
0x2b71…2b8c at0004 = ╱92╱ PRINT ╱ // 0x2b75 @0x4
0x2b71…2b8c at0005 = ╱22╱"╱ // 0x2b76 @0x5
0x2b71…2b8c at0006 = ╱56╱V╱ // 0x2b77 @0x6
0x2b71…2b8c at0007 = ╱7b╱æ╱ // 0x2b78 @0x7
0x2b71…2b8c at0008 = ╱6c╱l╱ // 0x2b79 @0x8
0x2b71…2b8c at0009 = ╱67╱g╱ // 0x2b7a @0x9
0x2b71…2b8c at000a = ╱20╱…╱ // 0x2b7b @0xa
0x2b71…2b8c at000b = ╱74╱t╱ // 0x2b7c @0xb
0x2b71…2b8c at000c = ╱79╱y╱ // 0x2b7d @0xc
0x2b71…2b8c at000d = ╱70╱p╱ // 0x2b7e @0xd
0x2b71…2b8c at000e = ╱65╱e╱ // 0x2b7f @0xe
0x2b71…2b8c at000f = ╱20╱…╱ // 0x2b80 @0xf
0x2b71…2b8c at0010 = ╱20╱…╱ // 0x2b81 @0x10
0x2b71…2b8c at0011 = ╱20╱…╱ // 0x2b82 @0x11
0x2b71…2b8c at0012 = ╱20╱…╱ // 0x2b83 @0x12
0x2b71…2b8c at0013 = ╱20╱…╱ // 0x2b84 @0x13
0x2b71…2b8c at0014 = ╱28╱(╱ // 0x2b85 @0x14
0x2b71…2b8c at0015 = ╱30╱0╱ // 0x2b86 @0x15
0x2b71…2b8c at0016 = ╱2d╱-╱ // 0x2b87 @0x16
0x2b71…2b8c at0017 = ╱35╱5╱ // 0x2b88 @0x17
0x2b71…2b8c at0018 = ╱29╱)╱ // 0x2b89 @0x18
0x2b71…2b8c at0019 = ╱22╱"╱ // 0x2b8a @0x19
0x2b71…2b8c at001a = EOL // 0x2b8b @0x1a
0x2b71…2b8c }
0x2b8c…2ba1 b8f8 5240 CURSOR 14,15
0x2b8c…2ba1 LineComalBin {
0x2b8c…2ba1 ptr = 0xb8f8 // 0x2b8c @0x0
0x2b8c…2ba1 lno = 0x1478 // 0x2b8e @0x2
0x2b8c…2ba1 at0004 = ╱a1╱ CURSOR ╱ // 0x2b90 @0x4
0x2b8c…2ba1 at0005 = ╱31╱1╱ // 0x2b91 @0x5
0x2b8c…2ba1 at0006 = ╱34╱4╱ // 0x2b92 @0x6
0x2b8c…2ba1 at0007 = ╱fe0000e004╱ // 0x2b93 @0x7
0x2b8c…2ba1 at000c = ╱ec╱,╱ // 0x2b98 @0xc
0x2b8c…2ba1 at000d = ╱31╱1╱ // 0x2b99 @0xd
0x2b8c…2ba1 at000e = ╱35╱5╱ // 0x2b9a @0xe
0x2b8c…2ba1 at000f = ╱fe0000f004╱ // 0x2b9b @0xf
0x2b8c…2ba1 at0014 = EOL // 0x2ba0 @0x14
0x2b8c…2ba1 }
0x2ba1…2baa b901 5250 INPUT TY$
0x2ba1…2baa LineComalBin {
0x2ba1…2baa ptr = 0xb901 // 0x2ba1 @0x0
0x2ba1…2baa lno = 0x1482 // 0x2ba3 @0x2
0x2ba1…2baa at0004 = ╱91╱ INPUT ╱ // 0x2ba5 @0x4
0x2ba1…2baa at0005 = ╱54╱T╱ // 0x2ba6 @0x5
0x2ba1…2baa at0006 = ╱59╱Y╱ // 0x2ba7 @0x6
0x2ba1…2baa at0007 = ╱ef╱$╱ // 0x2ba8 @0x7
0x2ba1…2baa at0008 = EOL // 0x2ba9 @0x8
0x2ba1…2baa }
0x2baa…2bbb b912 5260 EXEC NRTEST(TY$)
0x2baa…2bbb LineComalBin {
0x2baa…2bbb ptr = 0xb912 // 0x2baa @0x0
0x2baa…2bbb lno = 0x148c // 0x2bac @0x2
0x2baa…2bbb at0004 = ╱9d╱ EXEC ╱ // 0x2bae @0x4
0x2baa…2bbb at0005 = ╱4e╱N╱ // 0x2baf @0x5
0x2baa…2bbb at0006 = ╱52╱R╱ // 0x2bb0 @0x6
0x2baa…2bbb at0007 = ╱54╱T╱ // 0x2bb1 @0x7
0x2baa…2bbb at0008 = ╱45╱E╱ // 0x2bb2 @0x8
0x2baa…2bbb at0009 = ╱53╱S╱ // 0x2bb3 @0x9
0x2baa…2bbb at000a = ╱54╱T╱ // 0x2bb4 @0xa
0x2baa…2bbb at000b = ╱ed╱(╱ // 0x2bb5 @0xb
0x2baa…2bbb at000c = ╱54╱T╱ // 0x2bb6 @0xc
0x2baa…2bbb at000d = ╱59╱Y╱ // 0x2bb7 @0xd
0x2baa…2bbb at000e = ╱ef╱$╱ // 0x2bb8 @0xe
0x2baa…2bbb at000f = ╱ee╱)╱ // 0x2bb9 @0xf
0x2baa…2bbb at0010 = EOL // 0x2bba @0x10
0x2baa…2bbb }
0x2bbb…2bce b925 5270 UNTIL P>-E AND P<6
0x2bbb…2bce LineComalBin {
0x2bbb…2bce ptr = 0xb925 // 0x2bbb @0x0
0x2bbb…2bce lno = 0x1496 // 0x2bbd @0x2
0x2bbb…2bce at0004 = ╱98╱ UNTIL ╱ // 0x2bbf @0x4
0x2bbb…2bce at0005 = ╱50╱P╱ // 0x2bc0 @0x5
0x2bbb…2bce at0006 = ╱de╱>╱ // 0x2bc1 @0x6
0x2bbb…2bce at0007 = ╱e9╱-╱ // 0x2bc2 @0x7
0x2bbb…2bce at0008 = ╱45╱E╱ // 0x2bc3 @0x8
0x2bbb…2bce at0009 = ╱da╱ AND ╱ // 0x2bc4 @0x9
0x2bbb…2bce at000a = ╱50╱P╱ // 0x2bc5 @0xa
0x2bbb…2bce at000b = ╱dd╱<╱ // 0x2bc6 @0xb
0x2bbb…2bce at000c = ╱36╱6╱ // 0x2bc7 @0xc
0x2bbb…2bce at000d = ╱fe0000c003╱ // 0x2bc8 @0xd
0x2bbb…2bce at0012 = EOL // 0x2bcd @0x12
0x2bbb…2bce }
0x2bce…2bd9 b930 5280 TYPE=P
0x2bce…2bd9 LineComalBin {
0x2bce…2bd9 ptr = 0xb930 // 0x2bce @0x0
0x2bce…2bd9 lno = 0x14a0 // 0x2bd0 @0x2
0x2bce…2bd9 at0004 = ╱54╱T╱ // 0x2bd2 @0x4
0x2bce…2bd9 at0005 = ╱59╱Y╱ // 0x2bd3 @0x5
0x2bce…2bd9 at0006 = ╱50╱P╱ // 0x2bd4 @0x6
0x2bce…2bd9 at0007 = ╱45╱E╱ // 0x2bd5 @0x7
0x2bce…2bd9 at0008 = ╱dc╱=╱ // 0x2bd6 @0x8
0x2bce…2bd9 at0009 = ╱50╱P╱ // 0x2bd7 @0x9
0x2bce…2bd9 at000a = EOL // 0x2bd8 @0xa
0x2bce…2bd9 }
0x2bd9…2be7 b93e 5290 IF TYPE=B THEN EXIT
0x2bd9…2be7 LineComalBin {
0x2bd9…2be7 ptr = 0xb93e // 0x2bd9 @0x0
0x2bd9…2be7 lno = 0x14aa // 0x2bdb @0x2
0x2bd9…2be7 at0004 = ╱82╱ IF ╱ // 0x2bdd @0x4
0x2bd9…2be7 at0005 = ╱54╱T╱ // 0x2bde @0x5
0x2bd9…2be7 at0006 = ╱59╱Y╱ // 0x2bdf @0x6
0x2bd9…2be7 at0007 = ╱50╱P╱ // 0x2be0 @0x7
0x2bd9…2be7 at0008 = ╱45╱E╱ // 0x2be1 @0x8
0x2bd9…2be7 at0009 = ╱dc╱=╱ // 0x2be2 @0x9
0x2bd9…2be7 at000a = ╱42╱B╱ // 0x2be3 @0xa
0x2bd9…2be7 at000b = ╱b6╱ THEN ╱ // 0x2be4 @0xb
0x2bd9…2be7 at000c = ╱99╱ EXIT ╱ // 0x2be5 @0xc
0x2bd9…2be7 at000d = EOL // 0x2be6 @0xd
0x2bd9…2be7 }
0x2be7…2bed b944 5300 REPEAT
0x2be7…2bed LineComalBin {
0x2be7…2bed ptr = 0xb944 // 0x2be7 @0x0
0x2be7…2bed lno = 0x14b4 // 0x2be9 @0x2
0x2be7…2bed at0004 = ╱97╱ REPEAT ╱ // 0x2beb @0x4
0x2be7…2bed at0005 = EOL // 0x2bec @0x5
0x2be7…2bed }
0x2bed…2bfd b954 5310 EXEC OVERSKRIFT
0x2bed…2bfd LineComalBin {
0x2bed…2bfd ptr = 0xb954 // 0x2bed @0x0
0x2bed…2bfd lno = 0x14be // 0x2bef @0x2
0x2bed…2bfd at0004 = ╱9d╱ EXEC ╱ // 0x2bf1 @0x4
0x2bed…2bfd at0005 = ╱4f╱O╱ // 0x2bf2 @0x5
0x2bed…2bfd at0006 = ╱56╱V╱ // 0x2bf3 @0x6
0x2bed…2bfd at0007 = ╱45╱E╱ // 0x2bf4 @0x7
0x2bed…2bfd at0008 = ╱52╱R╱ // 0x2bf5 @0x8
0x2bed…2bfd at0009 = ╱53╱S╱ // 0x2bf6 @0x9
0x2bed…2bfd at000a = ╱4b╱K╱ // 0x2bf7 @0xa
0x2bed…2bfd at000b = ╱52╱R╱ // 0x2bf8 @0xb
0x2bed…2bfd at000c = ╱49╱I╱ // 0x2bf9 @0xc
0x2bed…2bfd at000d = ╱46╱F╱ // 0x2bfa @0xd
0x2bed…2bfd at000e = ╱54╱T╱ // 0x2bfb @0xe
0x2bed…2bfd at000f = EOL // 0x2bfc @0xf
0x2bed…2bfd }
0x2bfd…2c0f b966 5320 TEST=B;KONT=E
0x2bfd…2c0f LineComalBin {
0x2bfd…2c0f ptr = 0xb966 // 0x2bfd @0x0
0x2bfd…2c0f lno = 0x14c8 // 0x2bff @0x2
0x2bfd…2c0f at0004 = ╱54╱T╱ // 0x2c01 @0x4
0x2bfd…2c0f at0005 = ╱45╱E╱ // 0x2c02 @0x5
0x2bfd…2c0f at0006 = ╱53╱S╱ // 0x2c03 @0x6
0x2bfd…2c0f at0007 = ╱54╱T╱ // 0x2c04 @0x7
0x2bfd…2c0f at0008 = ╱dc╱=╱ // 0x2c05 @0x8
0x2bfd…2c0f at0009 = ╱42╱B╱ // 0x2c06 @0x9
0x2bfd…2c0f at000a = ╱eb╱;╱ // 0x2c07 @0xa
0x2bfd…2c0f at000b = ╱4b╱K╱ // 0x2c08 @0xb
0x2bfd…2c0f at000c = ╱4f╱O╱ // 0x2c09 @0xc
0x2bfd…2c0f at000d = ╱4e╱N╱ // 0x2c0a @0xd
0x2bfd…2c0f at000e = ╱54╱T╱ // 0x2c0b @0xe
0x2bfd…2c0f at000f = ╱dc╱=╱ // 0x2c0c @0xf
0x2bfd…2c0f at0010 = ╱45╱E╱ // 0x2c0d @0x10
0x2bfd…2c0f at0011 = EOL // 0x2c0e @0x11
0x2bfd…2c0f }
0x2c0f…2c21 b978 5330 IF TYPE<5 THEN
0x2c0f…2c21 LineComalBin {
0x2c0f…2c21 ptr = 0xb978 // 0x2c0f @0x0
0x2c0f…2c21 lno = 0x14d2 // 0x2c11 @0x2
0x2c0f…2c21 at0004 = ╱9c╱ IF ╱ // 0x2c13 @0x4
0x2c0f…2c21 at0005 = ╱54╱T╱ // 0x2c14 @0x5
0x2c0f…2c21 at0006 = ╱59╱Y╱ // 0x2c15 @0x6
0x2c0f…2c21 at0007 = ╱50╱P╱ // 0x2c16 @0x7
0x2c0f…2c21 at0008 = ╱45╱E╱ // 0x2c17 @0x8
0x2c0f…2c21 at0009 = ╱dd╱<╱ // 0x2c18 @0x9
0x2c0f…2c21 at000a = ╱35╱5╱ // 0x2c19 @0xa
0x2c0f…2c21 at000b = ╱fe0000a003╱ // 0x2c1a @0xb
0x2c0f…2c21 at0010 = ╱b6╱ THEN ╱ // 0x2c1f @0x10
0x2c0f…2c21 at0011 = EOL // 0x2c20 @0x11
0x2c0f…2c21 }
0x2c21…2c27 b97e 5340 REPEAT
0x2c21…2c27 LineComalBin {
0x2c21…2c27 ptr = 0xb97e // 0x2c21 @0x0
0x2c21…2c27 lno = 0x14dc // 0x2c23 @0x2
0x2c21…2c27 at0004 = ╱97╱ REPEAT ╱ // 0x2c25 @0x4
0x2c21…2c27 at0005 = EOL // 0x2c26 @0x5
0x2c21…2c27 }
0x2c27…2c2d b984 5350 REPEAT
0x2c27…2c2d LineComalBin {
0x2c27…2c2d ptr = 0xb984 // 0x2c27 @0x0
0x2c27…2c2d lno = 0x14e6 // 0x2c29 @0x2
0x2c27…2c2d at0004 = ╱97╱ REPEAT ╱ // 0x2c2b @0x4
0x2c27…2c2d at0005 = EOL // 0x2c2c @0x5
0x2c27…2c2d }
0x2c2d…2c3c b993 5360 CURSOR V,23
0x2c2d…2c3c LineComalBin {
0x2c2d…2c3c ptr = 0xb993 // 0x2c2d @0x0
0x2c2d…2c3c lno = 0x14f0 // 0x2c2f @0x2
0x2c2d…2c3c at0004 = ╱a1╱ CURSOR ╱ // 0x2c31 @0x4
0x2c2d…2c3c at0005 = ╱56╱V╱ // 0x2c32 @0x5
0x2c2d…2c3c at0006 = ╱ec╱,╱ // 0x2c33 @0x6
0x2c2d…2c3c at0007 = ╱32╱2╱ // 0x2c34 @0x7
0x2c2d…2c3c at0008 = ╱33╱3╱ // 0x2c35 @0x8
0x2c2d…2c3c at0009 = ╱fe0000b805╱ // 0x2c36 @0x9
0x2c2d…2c3c at000e = EOL // 0x2c3b @0xe
0x2c2d…2c3c }
0x2c3c…2c7f b9d6 5370 PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(E:35)
0x2c3c…2c7f LineComalBin {
0x2c3c…2c7f ptr = 0xb9d6 // 0x2c3c @0x0
0x2c3c…2c7f lno = 0x14fa // 0x2c3e @0x2
0x2c3c…2c7f at0004 = ╱92╱ PRINT ╱ // 0x2c40 @0x4
0x2c3c…2c7f at0005 = ╱22╱"╱ // 0x2c41 @0x5
0x2c3c…2c7f at0006 = ╱49╱I╱ // 0x2c42 @0x6
0x2c3c…2c7f at0007 = ╱6e╱n╱ // 0x2c43 @0x7
0x2c3c…2c7f at0008 = ╱64╱d╱ // 0x2c44 @0x8
0x2c3c…2c7f at0009 = ╱74╱t╱ // 0x2c45 @0x9
0x2c3c…2c7f at000a = ╱61╱a╱ // 0x2c46 @0xa
0x2c3c…2c7f at000b = ╱73╱s╱ // 0x2c47 @0xb
0x2c3c…2c7f at000c = ╱74╱t╱ // 0x2c48 @0xc
0x2c3c…2c7f at000d = ╱20╱…╱ // 0x2c49 @0xd
0x2c3c…2c7f at000e = ╱6e╱n╱ // 0x2c4a @0xe
0x2c3c…2c7f at000f = ╱79╱y╱ // 0x2c4b @0xf
0x2c3c…2c7f at0010 = ╱74╱t╱ // 0x2c4c @0x10
0x2c3c…2c7f at0011 = ╱20╱…╱ // 0x2c4d @0x11
0x2c3c…2c7f at0012 = ╱6b╱k╱ // 0x2c4e @0x12
0x2c3c…2c7f at0013 = ╱75╱u╱ // 0x2c4f @0x13
0x2c3c…2c7f at0014 = ╱6e╱n╱ // 0x2c50 @0x14
0x2c3c…2c7f at0015 = ╱64╱d╱ // 0x2c51 @0x15
0x2c3c…2c7f at0016 = ╱65╱e╱ // 0x2c52 @0x16
0x2c3c…2c7f at0017 = ╱6e╱n╱ // 0x2c53 @0x17
0x2c3c…2c7f at0018 = ╱72╱r╱ // 0x2c54 @0x18
0x2c3c…2c7f at0019 = ╱20╱…╱ // 0x2c55 @0x19
0x2c3c…2c7f at001a = ╱20╱…╱ // 0x2c56 @0x1a
0x2c3c…2c7f at001b = ╱20╱…╱ // 0x2c57 @0x1b
0x2c3c…2c7f at001c = ╱20╱…╱ // 0x2c58 @0x1c
0x2c3c…2c7f at001d = ╱20╱…╱ // 0x2c59 @0x1d
0x2c3c…2c7f at001e = ╱20╱…╱ // 0x2c5a @0x1e
0x2c3c…2c7f at001f = ╱20╱…╱ // 0x2c5b @0x1f
0x2c3c…2c7f at0020 = ╱20╱…╱ // 0x2c5c @0x20
0x2c3c…2c7f at0021 = ╱28╱(╱ // 0x2c5d @0x21
0x2c3c…2c7f at0022 = ╱30╱0╱ // 0x2c5e @0x22
0x2c3c…2c7f at0023 = ╱3a╱:╱ // 0x2c5f @0x23
0x2c3c…2c7f at0024 = ╱66╱f╱ // 0x2c60 @0x24
0x2c3c…2c7f at0025 = ╱6f╱o╱ // 0x2c61 @0x25
0x2c3c…2c7f at0026 = ╱72╱r╱ // 0x2c62 @0x26
0x2c3c…2c7f at0027 = ╱20╱…╱ // 0x2c63 @0x27
0x2c3c…2c7f at0028 = ╱66╱f╱ // 0x2c64 @0x28
0x2c3c…2c7f at0029 = ╱7b╱æ╱ // 0x2c65 @0x29
0x2c3c…2c7f at002a = ╱72╱r╱ // 0x2c66 @0x2a
0x2c3c…2c7f at002b = ╱64╱d╱ // 0x2c67 @0x2b
0x2c3c…2c7f at002c = ╱69╱i╱ // 0x2c68 @0x2c
0x2c3c…2c7f at002d = ╱67╱g╱ // 0x2c69 @0x2d
0x2c3c…2c7f at002e = ╱29╱)╱ // 0x2c6a @0x2e
0x2c3c…2c7f at002f = ╱22╱"╱ // 0x2c6b @0x2f
0x2c3c…2c7f at0030 = ╱eb╱;╱ // 0x2c6c @0x30
0x2c3c…2c7f at0031 = ╱42╱B╱ // 0x2c6d @0x31
0x2c3c…2c7f at0032 = ╱4c╱L╱ // 0x2c6e @0x32
0x2c3c…2c7f at0033 = ╱41╱A╱ // 0x2c6f @0x33
0x2c3c…2c7f at0034 = ╱4e╱N╱ // 0x2c70 @0x34
0x2c3c…2c7f at0035 = ╱4b╱K╱ // 0x2c71 @0x35
0x2c3c…2c7f at0036 = ╱ef╱$╱ // 0x2c72 @0x36
0x2c3c…2c7f at0037 = ╱ed╱(╱ // 0x2c73 @0x37
0x2c3c…2c7f at0038 = ╱45╱E╱ // 0x2c74 @0x38
0x2c3c…2c7f at0039 = ╱f0╱:╱ // 0x2c75 @0x39
0x2c3c…2c7f at003a = ╱33╱3╱ // 0x2c76 @0x3a
0x2c3c…2c7f at003b = ╱35╱5╱ // 0x2c77 @0x3b
0x2c3c…2c7f at003c = ╱fe00008c06╱ // 0x2c78 @0x3c
0x2c3c…2c7f at0041 = ╱ee╱)╱ // 0x2c7d @0x41
0x2c3c…2c7f at0042 = EOL // 0x2c7e @0x42
0x2c3c…2c7f }
0x2c7f…2c94 b9eb 5380 CURSOR 22,23
0x2c7f…2c94 LineComalBin {
0x2c7f…2c94 ptr = 0xb9eb // 0x2c7f @0x0
0x2c7f…2c94 lno = 0x1504 // 0x2c81 @0x2
0x2c7f…2c94 at0004 = ╱a1╱ CURSOR ╱ // 0x2c83 @0x4
0x2c7f…2c94 at0005 = ╱32╱2╱ // 0x2c84 @0x5
0x2c7f…2c94 at0006 = ╱32╱2╱ // 0x2c85 @0x6
0x2c7f…2c94 at0007 = ╱fe0000b005╱ // 0x2c86 @0x7
0x2c7f…2c94 at000c = ╱ec╱,╱ // 0x2c8b @0xc
0x2c7f…2c94 at000d = ╱32╱2╱ // 0x2c8c @0xd
0x2c7f…2c94 at000e = ╱33╱3╱ // 0x2c8d @0xe
0x2c7f…2c94 at000f = ╱fe0000b805╱ // 0x2c8e @0xf
0x2c7f…2c94 at0014 = EOL // 0x2c93 @0x14
0x2c7f…2c94 }
0x2c94…2c9e b9f5 5390 INPUT KTN$
0x2c94…2c9e LineComalBin {
0x2c94…2c9e ptr = 0xb9f5 // 0x2c94 @0x0
0x2c94…2c9e lno = 0x150e // 0x2c96 @0x2
0x2c94…2c9e at0004 = ╱91╱ INPUT ╱ // 0x2c98 @0x4
0x2c94…2c9e at0005 = ╱4b╱K╱ // 0x2c99 @0x5
0x2c94…2c9e at0006 = ╱54╱T╱ // 0x2c9a @0x6
0x2c94…2c9e at0007 = ╱4e╱N╱ // 0x2c9b @0x7
0x2c94…2c9e at0008 = ╱ef╱$╱ // 0x2c9c @0x8
0x2c94…2c9e at0009 = EOL // 0x2c9d @0x9
0x2c94…2c9e }
0x2c9e…2cb0 ba07 5400 EXEC NRTEST(KTN$)
0x2c9e…2cb0 LineComalBin {
0x2c9e…2cb0 ptr = 0xba07 // 0x2c9e @0x0
0x2c9e…2cb0 lno = 0x1518 // 0x2ca0 @0x2
0x2c9e…2cb0 at0004 = ╱9d╱ EXEC ╱ // 0x2ca2 @0x4
0x2c9e…2cb0 at0005 = ╱4e╱N╱ // 0x2ca3 @0x5
0x2c9e…2cb0 at0006 = ╱52╱R╱ // 0x2ca4 @0x6
0x2c9e…2cb0 at0007 = ╱54╱T╱ // 0x2ca5 @0x7
0x2c9e…2cb0 at0008 = ╱45╱E╱ // 0x2ca6 @0x8
0x2c9e…2cb0 at0009 = ╱53╱S╱ // 0x2ca7 @0x9
0x2c9e…2cb0 at000a = ╱54╱T╱ // 0x2ca8 @0xa
0x2c9e…2cb0 at000b = ╱ed╱(╱ // 0x2ca9 @0xb
0x2c9e…2cb0 at000c = ╱4b╱K╱ // 0x2caa @0xc
0x2c9e…2cb0 at000d = ╱54╱T╱ // 0x2cab @0xd
0x2c9e…2cb0 at000e = ╱4e╱N╱ // 0x2cac @0xe
0x2c9e…2cb0 at000f = ╱ef╱$╱ // 0x2cad @0xf
0x2c9e…2cb0 at0010 = ╱ee╱)╱ // 0x2cae @0x10
0x2c9e…2cb0 at0011 = EOL // 0x2caf @0x11
0x2c9e…2cb0 }
0x2cb0…2ce4 ba3b 5410 UNTIL (TEST2=B AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=B
0x2cb0…2ce4 LineComalBin {
0x2cb0…2ce4 ptr = 0xba3b // 0x2cb0 @0x0
0x2cb0…2ce4 lno = 0x1522 // 0x2cb2 @0x2
0x2cb0…2ce4 at0004 = ╱98╱ UNTIL ╱ // 0x2cb4 @0x4
0x2cb0…2ce4 at0005 = ╱ed╱(╱ // 0x2cb5 @0x5
0x2cb0…2ce4 at0006 = ╱54╱T╱ // 0x2cb6 @0x6
0x2cb0…2ce4 at0007 = ╱45╱E╱ // 0x2cb7 @0x7
0x2cb0…2ce4 at0008 = ╱53╱S╱ // 0x2cb8 @0x8
0x2cb0…2ce4 at0009 = ╱54╱T╱ // 0x2cb9 @0x9
0x2cb0…2ce4 at000a = ╱32╱2╱ // 0x2cba @0xa
0x2cb0…2ce4 at000b = ╱dc╱=╱ // 0x2cbb @0xb
0x2cb0…2ce4 at000c = ╱42╱B╱ // 0x2cbc @0xc
0x2cb0…2ce4 at000d = ╱da╱ AND ╱ // 0x2cbd @0xd
0x2cb0…2ce4 at000e = ╱4b╱K╱ // 0x2cbe @0xe
0x2cb0…2ce4 at000f = ╱54╱T╱ // 0x2cbf @0xf
0x2cb0…2ce4 at0010 = ╱41╱A╱ // 0x2cc0 @0x10
0x2cb0…2ce4 at0011 = ╱4c╱L╱ // 0x2cc1 @0x11
0x2cb0…2ce4 at0012 = ╱dc╱=╱ // 0x2cc2 @0x12
0x2cb0…2ce4 at0013 = ╱44╱D╱ // 0x2cc3 @0x13
0x2cb0…2ce4 at0014 = ╱54╱T╱ // 0x2cc4 @0x14
0x2cb0…2ce4 at0015 = ╱41╱A╱ // 0x2cc5 @0x15
0x2cb0…2ce4 at0016 = ╱4c╱L╱ // 0x2cc6 @0x16
0x2cb0…2ce4 at0017 = ╱da╱ AND ╱ // 0x2cc7 @0x17
0x2cb0…2ce4 at0018 = ╱44╱D╱ // 0x2cc8 @0x18
0x2cb0…2ce4 at0019 = ╱54╱T╱ // 0x2cc9 @0x19
0x2cb0…2ce4 at001a = ╱41╱A╱ // 0x2cca @0x1a
0x2cb0…2ce4 at001b = ╱4c╱L╱ // 0x2ccb @0x1b
0x2cb0…2ce4 at001c = ╱e4╱*╱ // 0x2ccc @0x1c
0x2cb0…2ce4 at001d = ╱31╱1╱ // 0x2ccd @0x1d
0x2cb0…2ce4 at001e = ╱30╱0╱ // 0x2cce @0x1e
0x2cb0…2ce4 at001f = ╱30╱0╱ // 0x2ccf @0x1f
0x2cb0…2ce4 at0020 = ╱30╱0╱ // 0x2cd0 @0x20
0x2cb0…2ce4 at0021 = ╱30╱0╱ // 0x2cd1 @0x21
0x2cb0…2ce4 at0022 = ╱fe00409c0e╱ // 0x2cd2 @0x22
0x2cb0…2ce4 at0027 = ╱e2╱+╱ // 0x2cd7 @0x27
0x2cb0…2ce4 at0028 = ╱4d╱M╱ // 0x2cd8 @0x28
0x2cb0…2ce4 at0029 = ╱4b╱K╱ // 0x2cd9 @0x29
0x2cb0…2ce4 at002a = ╱47╱G╱ // 0x2cda @0x2a
0x2cb0…2ce4 at002b = ╱52╱R╱ // 0x2cdb @0x2b
0x2cb0…2ce4 at002c = ╱dd╱<╱ // 0x2cdc @0x2c
0x2cb0…2ce4 at002d = ╱50╱P╱ // 0x2cdd @0x2d
0x2cb0…2ce4 at002e = ╱ee╱)╱ // 0x2cde @0x2e
0x2cb0…2ce4 at002f = ╱db╱ OR ╱ // 0x2cdf @0x2f
0x2cb0…2ce4 at0030 = ╱50╱P╱ // 0x2ce0 @0x30
0x2cb0…2ce4 at0031 = ╱dc╱=╱ // 0x2ce1 @0x31
0x2cb0…2ce4 at0032 = ╱42╱B╱ // 0x2ce2 @0x32
0x2cb0…2ce4 at0033 = EOL // 0x2ce3 @0x33
0x2cb0…2ce4 }
0x2ce4…2cef ba46 5420 KONT=P
0x2ce4…2cef LineComalBin {
0x2ce4…2cef ptr = 0xba46 // 0x2ce4 @0x0
0x2ce4…2cef lno = 0x152c // 0x2ce6 @0x2
0x2ce4…2cef at0004 = ╱4b╱K╱ // 0x2ce8 @0x4
0x2ce4…2cef at0005 = ╱4f╱O╱ // 0x2ce9 @0x5
0x2ce4…2cef at0006 = ╱4e╱N╱ // 0x2cea @0x6
0x2ce4…2cef at0007 = ╱54╱T╱ // 0x2ceb @0x7
0x2ce4…2cef at0008 = ╱dc╱=╱ // 0x2cec @0x8
0x2ce4…2cef at0009 = ╱50╱P╱ // 0x2ced @0x9
0x2ce4…2cef at000a = EOL // 0x2cee @0xa
0x2ce4…2cef }
0x2cef…2cfd ba54 5430 IF KONT=B THEN EXIT
0x2cef…2cfd LineComalBin {
0x2cef…2cfd ptr = 0xba54 // 0x2cef @0x0
0x2cef…2cfd lno = 0x1536 // 0x2cf1 @0x2
0x2cef…2cfd at0004 = ╱82╱ IF ╱ // 0x2cf3 @0x4
0x2cef…2cfd at0005 = ╱4b╱K╱ // 0x2cf4 @0x5
0x2cef…2cfd at0006 = ╱4f╱O╱ // 0x2cf5 @0x6
0x2cef…2cfd at0007 = ╱4e╱N╱ // 0x2cf6 @0x7
0x2cef…2cfd at0008 = ╱54╱T╱ // 0x2cf7 @0x8
0x2cef…2cfd at0009 = ╱dc╱=╱ // 0x2cf8 @0x9
0x2cef…2cfd at000a = ╱42╱B╱ // 0x2cf9 @0xa
0x2cef…2cfd at000b = ╱b6╱ THEN ╱ // 0x2cfa @0xb
0x2cef…2cfd at000c = ╱99╱ EXIT ╱ // 0x2cfb @0xc
0x2cef…2cfd at000d = EOL // 0x2cfc @0xd
0x2cef…2cfd }
0x2cfd…2d21 ba78 5440 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)
0x2cfd…2d21 LineComalBin {
0x2cfd…2d21 ptr = 0xba78 // 0x2cfd @0x0
0x2cfd…2d21 lno = 0x1540 // 0x2cff @0x2
0x2cfd…2d21 at0004 = ╱9d╱ EXEC ╱ // 0x2d01 @0x4
0x2cfd…2d21 at0005 = ╱46╱F╱ // 0x2d02 @0x5
0x2cfd…2d21 at0006 = ╱49╱I╱ // 0x2d03 @0x6
0x2cfd…2d21 at0007 = ╱4e╱N╱ // 0x2d04 @0x7
0x2cfd…2d21 at0008 = ╱44╱D╱ // 0x2d05 @0x8
0x2cfd…2d21 at0009 = ╱50╱P╱ // 0x2d06 @0x9
0x2cfd…2d21 at000a = ╱4f╱O╱ // 0x2d07 @0xa
0x2cfd…2d21 at000b = ╱53╱S╱ // 0x2d08 @0xb
0x2cfd…2d21 at000c = ╱54╱T╱ // 0x2d09 @0xc
0x2cfd…2d21 at000d = ╱ed╱(╱ // 0x2d0a @0xd
0x2cfd…2d21 at000e = ╱44╱D╱ // 0x2d0b @0xe
0x2cfd…2d21 at000f = ╱54╱T╱ // 0x2d0c @0xf
0x2cfd…2d21 at0010 = ╱41╱A╱ // 0x2d0d @0x10
0x2cfd…2d21 at0011 = ╱42╱B╱ // 0x2d0e @0x11
0x2cfd…2d21 at0012 = ╱ec╱,╱ // 0x2d0f @0x12
0x2cfd…2d21 at0013 = ╱4d╱M╱ // 0x2d10 @0x13
0x2cfd…2d21 at0014 = ╱44╱D╱ // 0x2d11 @0x14
0x2cfd…2d21 at0015 = ╱41╱A╱ // 0x2d12 @0x15
0x2cfd…2d21 at0016 = ╱4e╱N╱ // 0x2d13 @0x16
0x2cfd…2d21 at0017 = ╱54╱T╱ // 0x2d14 @0x17
0x2cfd…2d21 at0018 = ╱41╱A╱ // 0x2d15 @0x18
0x2cfd…2d21 at0019 = ╱4c╱L╱ // 0x2d16 @0x19
0x2cfd…2d21 at001a = ╱ec╱,╱ // 0x2d17 @0x1a
0x2cfd…2d21 at001b = ╱50╱P╱ // 0x2d18 @0x1b
0x2cfd…2d21 at001c = ╱ec╱,╱ // 0x2d19 @0x1c
0x2cfd…2d21 at001d = ╱44╱D╱ // 0x2d1a @0x1d
0x2cfd…2d21 at001e = ╱50╱P╱ // 0x2d1b @0x1e
0x2cfd…2d21 at001f = ╱49╱I╱ // 0x2d1c @0x1f
0x2cfd…2d21 at0020 = ╱4c╱L╱ // 0x2d1d @0x20
0x2cfd…2d21 at0021 = ╱33╱3╱ // 0x2d1e @0x21
0x2cfd…2d21 at0022 = ╱ee╱)╱ // 0x2d1f @0x22
0x2cfd…2d21 at0023 = EOL // 0x2d20 @0x23
0x2cfd…2d21 }
0x2d21…2d27 ba7e 5450 REPEAT
0x2d21…2d27 LineComalBin {
0x2d21…2d27 ptr = 0xba7e // 0x2d21 @0x0
0x2d21…2d27 lno = 0x154a // 0x2d23 @0x2
0x2d21…2d27 at0004 = ╱97╱ REPEAT ╱ // 0x2d25 @0x4
0x2d21…2d27 at0005 = EOL // 0x2d26 @0x5
0x2d21…2d27 }
0x2d27…2d3c ba93 5460 CURSOR 44,23
0x2d27…2d3c LineComalBin {
0x2d27…2d3c ptr = 0xba93 // 0x2d27 @0x0
0x2d27…2d3c lno = 0x1554 // 0x2d29 @0x2
0x2d27…2d3c at0004 = ╱a1╱ CURSOR ╱ // 0x2d2b @0x4
0x2d27…2d3c at0005 = ╱34╱4╱ // 0x2d2c @0x5
0x2d27…2d3c at0006 = ╱34╱4╱ // 0x2d2d @0x6
0x2d27…2d3c at0007 = ╱fe0000b006╱ // 0x2d2e @0x7
0x2d27…2d3c at000c = ╱ec╱,╱ // 0x2d33 @0xc
0x2d27…2d3c at000d = ╱32╱2╱ // 0x2d34 @0xd
0x2d27…2d3c at000e = ╱33╱3╱ // 0x2d35 @0xe
0x2d27…2d3c at000f = ╱fe0000b805╱ // 0x2d36 @0xf
0x2d27…2d3c at0014 = EOL // 0x2d3b @0x14
0x2d27…2d3c }
0x2d3c…2d6f bac6 5470 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) THEN
0x2d3c…2d6f LineComalBin {
0x2d3c…2d6f ptr = 0xbac6 // 0x2d3c @0x0
0x2d3c…2d6f lno = 0x155e // 0x2d3e @0x2
0x2d3c…2d6f at0004 = ╱9c╱ IF ╱ // 0x2d40 @0x4
0x2d3c…2d6f at0005 = ╱ed╱(╱ // 0x2d41 @0x5
0x2d3c…2d6f at0006 = ╱43╱C╱ // 0x2d42 @0x6
0x2d3c…2d6f at0007 = ╱45╱E╱ // 0x2d43 @0x7
0x2d3c…2d6f at0008 = ╱4b╱K╱ // 0x2d44 @0x8
0x2d3c…2d6f at0009 = ╱53╱S╱ // 0x2d45 @0x9
0x2d3c…2d6f at000a = ╱dc╱=╱ // 0x2d46 @0xa
0x2d3c…2d6f at000b = ╱42╱B╱ // 0x2d47 @0xb
0x2d3c…2d6f at000c = ╱da╱ AND ╱ // 0x2d48 @0xc
0x2d3c…2d6f at000d = ╱54╱T╱ // 0x2d49 @0xd
0x2d3c…2d6f at000e = ╱59╱Y╱ // 0x2d4a @0xe
0x2d3c…2d6f at000f = ╱50╱P╱ // 0x2d4b @0xf
0x2d3c…2d6f at0010 = ╱45╱E╱ // 0x2d4c @0x10
0x2d3c…2d6f at0011 = ╱e1╱<>╱ // 0x2d4d @0x11
0x2d3c…2d6f at0012 = ╱45╱E╱ // 0x2d4e @0x12
0x2d3c…2d6f at0013 = ╱ee╱)╱ // 0x2d4f @0x13
0x2d3c…2d6f at0014 = ╱db╱ OR ╱ // 0x2d50 @0x14
0x2d3c…2d6f at0015 = ╱ed╱(╱ // 0x2d51 @0x15
0x2d3c…2d6f at0016 = ╱43╱C╱ // 0x2d52 @0x16
0x2d3c…2d6f at0017 = ╱45╱E╱ // 0x2d53 @0x17
0x2d3c…2d6f at0018 = ╱4b╱K╱ // 0x2d54 @0x18
0x2d3c…2d6f at0019 = ╱53╱S╱ // 0x2d55 @0x19
0x2d3c…2d6f at001a = ╱dc╱=╱ // 0x2d56 @0x1a
0x2d3c…2d6f at001b = ╱45╱E╱ // 0x2d57 @0x1b
0x2d3c…2d6f at001c = ╱da╱ AND ╱ // 0x2d58 @0x1c
0x2d3c…2d6f at001d = ╱54╱T╱ // 0x2d59 @0x1d
0x2d3c…2d6f at001e = ╱59╱Y╱ // 0x2d5a @0x1e
0x2d3c…2d6f at001f = ╱50╱P╱ // 0x2d5b @0x1f
0x2d3c…2d6f at0020 = ╱45╱E╱ // 0x2d5c @0x20
0x2d3c…2d6f at0021 = ╱dc╱=╱ // 0x2d5d @0x21
0x2d3c…2d6f at0022 = ╱45╱E╱ // 0x2d5e @0x22
0x2d3c…2d6f at0023 = ╱da╱ AND ╱ // 0x2d5f @0x23
0x2d3c…2d6f at0024 = ╱41╱A╱ // 0x2d60 @0x24
0x2d3c…2d6f at0025 = ╱44╱D╱ // 0x2d61 @0x25
0x2d3c…2d6f at0026 = ╱45╱E╱ // 0x2d62 @0x26
0x2d3c…2d6f at0027 = ╱42╱B╱ // 0x2d63 @0x27
0x2d3c…2d6f at0028 = ╱dd╱<╱ // 0x2d64 @0x28
0x2d3c…2d6f at0029 = ╱4d╱M╱ // 0x2d65 @0x29
0x2d3c…2d6f at002a = ╱44╱D╱ // 0x2d66 @0x2a
0x2d3c…2d6f at002b = ╱41╱A╱ // 0x2d67 @0x2b
0x2d3c…2d6f at002c = ╱4e╱N╱ // 0x2d68 @0x2c
0x2d3c…2d6f at002d = ╱54╱T╱ // 0x2d69 @0x2d
0x2d3c…2d6f at002e = ╱41╱A╱ // 0x2d6a @0x2e
0x2d3c…2d6f at002f = ╱4c╱L╱ // 0x2d6b @0x2f
0x2d3c…2d6f at0030 = ╱ee╱)╱ // 0x2d6c @0x30
0x2d3c…2d6f at0031 = ╱b6╱ THEN ╱ // 0x2d6d @0x31
0x2d3c…2d6f at0032 = EOL // 0x2d6e @0x32
0x2d3c…2d6f }
0x2d6f…2d86 badd 5480 PRINT BLANK$(E:35)
0x2d6f…2d86 LineComalBin {
0x2d6f…2d86 ptr = 0xbadd // 0x2d6f @0x0
0x2d6f…2d86 lno = 0x1568 // 0x2d71 @0x2
0x2d6f…2d86 at0004 = ╱92╱ PRINT ╱ // 0x2d73 @0x4
0x2d6f…2d86 at0005 = ╱42╱B╱ // 0x2d74 @0x5
0x2d6f…2d86 at0006 = ╱4c╱L╱ // 0x2d75 @0x6
0x2d6f…2d86 at0007 = ╱41╱A╱ // 0x2d76 @0x7
0x2d6f…2d86 at0008 = ╱4e╱N╱ // 0x2d77 @0x8
0x2d6f…2d86 at0009 = ╱4b╱K╱ // 0x2d78 @0x9
0x2d6f…2d86 at000a = ╱ef╱$╱ // 0x2d79 @0xa
0x2d6f…2d86 at000b = ╱ed╱(╱ // 0x2d7a @0xb
0x2d6f…2d86 at000c = ╱45╱E╱ // 0x2d7b @0xc
0x2d6f…2d86 at000d = ╱f0╱:╱ // 0x2d7c @0xd
0x2d6f…2d86 at000e = ╱33╱3╱ // 0x2d7d @0xe
0x2d6f…2d86 at000f = ╱35╱5╱ // 0x2d7e @0xf
0x2d6f…2d86 at0010 = ╱fe00008c06╱ // 0x2d7f @0x10
0x2d6f…2d86 at0015 = ╱ee╱)╱ // 0x2d84 @0x15
0x2d6f…2d86 at0016 = EOL // 0x2d85 @0x16
0x2d6f…2d86 }
0x2d86…2d8f bae6 5490 P=-E
0x2d86…2d8f LineComalBin {
0x2d86…2d8f ptr = 0xbae6 // 0x2d86 @0x0
0x2d86…2d8f lno = 0x1572 // 0x2d88 @0x2
0x2d86…2d8f at0004 = ╱50╱P╱ // 0x2d8a @0x4
0x2d86…2d8f at0005 = ╱dc╱=╱ // 0x2d8b @0x5
0x2d86…2d8f at0006 = ╱e9╱-╱ // 0x2d8c @0x6
0x2d86…2d8f at0007 = ╱45╱E╱ // 0x2d8d @0x7
0x2d86…2d8f at0008 = EOL // 0x2d8e @0x8
0x2d86…2d8f }
0x2d8f…2d95 baec 5500 ELSE
0x2d8f…2d95 LineComalBin {
0x2d8f…2d95 ptr = 0xbaec // 0x2d8f @0x0
0x2d8f…2d95 lno = 0x157c // 0x2d91 @0x2
0x2d8f…2d95 at0004 = ╱9a╱ ELSE ╱ // 0x2d93 @0x4
0x2d8f…2d95 at0005 = EOL // 0x2d94 @0x5
0x2d8f…2d95 }
0x2d95…2db6 bb0d 5510 IF CEKS=E AND TYPE=E AND ADEB=>MDANTAL THEN
0x2d95…2db6 LineComalBin {
0x2d95…2db6 ptr = 0xbb0d // 0x2d95 @0x0
0x2d95…2db6 lno = 0x1586 // 0x2d97 @0x2
0x2d95…2db6 at0004 = ╱9c╱ IF ╱ // 0x2d99 @0x4
0x2d95…2db6 at0005 = ╱43╱C╱ // 0x2d9a @0x5
0x2d95…2db6 at0006 = ╱45╱E╱ // 0x2d9b @0x6
0x2d95…2db6 at0007 = ╱4b╱K╱ // 0x2d9c @0x7
0x2d95…2db6 at0008 = ╱53╱S╱ // 0x2d9d @0x8
0x2d95…2db6 at0009 = ╱dc╱=╱ // 0x2d9e @0x9
0x2d95…2db6 at000a = ╱45╱E╱ // 0x2d9f @0xa
0x2d95…2db6 at000b = ╱da╱ AND ╱ // 0x2da0 @0xb
0x2d95…2db6 at000c = ╱54╱T╱ // 0x2da1 @0xc
0x2d95…2db6 at000d = ╱59╱Y╱ // 0x2da2 @0xd
0x2d95…2db6 at000e = ╱50╱P╱ // 0x2da3 @0xe
0x2d95…2db6 at000f = ╱45╱E╱ // 0x2da4 @0xf
0x2d95…2db6 at0010 = ╱dc╱=╱ // 0x2da5 @0x10
0x2d95…2db6 at0011 = ╱45╱E╱ // 0x2da6 @0x11
0x2d95…2db6 at0012 = ╱da╱ AND ╱ // 0x2da7 @0x12
0x2d95…2db6 at0013 = ╱41╱A╱ // 0x2da8 @0x13
0x2d95…2db6 at0014 = ╱44╱D╱ // 0x2da9 @0x14
0x2d95…2db6 at0015 = ╱45╱E╱ // 0x2daa @0x15
0x2d95…2db6 at0016 = ╱42╱B╱ // 0x2dab @0x16
0x2d95…2db6 at0017 = ╱e0╱=>╱ // 0x2dac @0x17
0x2d95…2db6 at0018 = ╱4d╱M╱ // 0x2dad @0x18
0x2d95…2db6 at0019 = ╱44╱D╱ // 0x2dae @0x19
0x2d95…2db6 at001a = ╱41╱A╱ // 0x2daf @0x1a
0x2d95…2db6 at001b = ╱4e╱N╱ // 0x2db0 @0x1b
0x2d95…2db6 at001c = ╱54╱T╱ // 0x2db1 @0x1c
0x2d95…2db6 at001d = ╱41╱A╱ // 0x2db2 @0x1d
0x2d95…2db6 at001e = ╱4c╱L╱ // 0x2db3 @0x1e
0x2d95…2db6 at001f = ╱b6╱ THEN ╱ // 0x2db4 @0x1f
0x2d95…2db6 at0020 = EOL // 0x2db5 @0x20
0x2d95…2db6 }
0x2db6…2dc5 bb1c 5520 CURSOR V,23
0x2db6…2dc5 LineComalBin {
0x2db6…2dc5 ptr = 0xbb1c // 0x2db6 @0x0
0x2db6…2dc5 lno = 0x1590 // 0x2db8 @0x2
0x2db6…2dc5 at0004 = ╱a1╱ CURSOR ╱ // 0x2dba @0x4
0x2db6…2dc5 at0005 = ╱56╱V╱ // 0x2dbb @0x5
0x2db6…2dc5 at0006 = ╱ec╱,╱ // 0x2dbc @0x6
0x2db6…2dc5 at0007 = ╱32╱2╱ // 0x2dbd @0x7
0x2db6…2dc5 at0008 = ╱33╱3╱ // 0x2dbe @0x8
0x2db6…2dc5 at0009 = ╱fe0000b805╱ // 0x2dbf @0x9
0x2db6…2dc5 at000e = EOL // 0x2dc4 @0xe
0x2db6…2dc5 }
0x2dc5…2e0d bb64 5530 INPUT "Ikke plads til flere kunder,tast RETURN ",A$
0x2dc5…2e0d LineComalBin {
0x2dc5…2e0d ptr = 0xbb64 // 0x2dc5 @0x0
0x2dc5…2e0d lno = 0x159a // 0x2dc7 @0x2
0x2dc5…2e0d at0004 = ╱91╱ INPUT ╱ // 0x2dc9 @0x4
0x2dc5…2e0d at0005 = ╱22╱"╱ // 0x2dca @0x5
0x2dc5…2e0d at0006 = ╱49╱I╱ // 0x2dcb @0x6
0x2dc5…2e0d at0007 = ╱6b╱k╱ // 0x2dcc @0x7
0x2dc5…2e0d at0008 = ╱6b╱k╱ // 0x2dcd @0x8
0x2dc5…2e0d at0009 = ╱65╱e╱ // 0x2dce @0x9
0x2dc5…2e0d at000a = ╱20╱…╱ // 0x2dcf @0xa
0x2dc5…2e0d at000b = ╱70╱p╱ // 0x2dd0 @0xb
0x2dc5…2e0d at000c = ╱6c╱l╱ // 0x2dd1 @0xc
0x2dc5…2e0d at000d = ╱61╱a╱ // 0x2dd2 @0xd
0x2dc5…2e0d at000e = ╱64╱d╱ // 0x2dd3 @0xe
0x2dc5…2e0d at000f = ╱73╱s╱ // 0x2dd4 @0xf
0x2dc5…2e0d at0010 = ╱20╱…╱ // 0x2dd5 @0x10
0x2dc5…2e0d at0011 = ╱74╱t╱ // 0x2dd6 @0x11
0x2dc5…2e0d at0012 = ╱69╱i╱ // 0x2dd7 @0x12
0x2dc5…2e0d at0013 = ╱6c╱l╱ // 0x2dd8 @0x13
0x2dc5…2e0d at0014 = ╱20╱…╱ // 0x2dd9 @0x14
0x2dc5…2e0d at0015 = ╱66╱f╱ // 0x2dda @0x15
0x2dc5…2e0d at0016 = ╱6c╱l╱ // 0x2ddb @0x16
0x2dc5…2e0d at0017 = ╱65╱e╱ // 0x2ddc @0x17
0x2dc5…2e0d at0018 = ╱72╱r╱ // 0x2ddd @0x18
0x2dc5…2e0d at0019 = ╱65╱e╱ // 0x2dde @0x19
0x2dc5…2e0d at001a = ╱20╱…╱ // 0x2ddf @0x1a
0x2dc5…2e0d at001b = ╱6b╱k╱ // 0x2de0 @0x1b
0x2dc5…2e0d at001c = ╱75╱u╱ // 0x2de1 @0x1c
0x2dc5…2e0d at001d = ╱6e╱n╱ // 0x2de2 @0x1d
0x2dc5…2e0d at001e = ╱64╱d╱ // 0x2de3 @0x1e
0x2dc5…2e0d at001f = ╱65╱e╱ // 0x2de4 @0x1f
0x2dc5…2e0d at0020 = ╱72╱r╱ // 0x2de5 @0x20
0x2dc5…2e0d at0021 = ╱2c╱,╱ // 0x2de6 @0x21
0x2dc5…2e0d at0022 = ╱74╱t╱ // 0x2de7 @0x22
0x2dc5…2e0d at0023 = ╱61╱a╱ // 0x2de8 @0x23
0x2dc5…2e0d at0024 = ╱73╱s╱ // 0x2de9 @0x24
0x2dc5…2e0d at0025 = ╱74╱t╱ // 0x2dea @0x25
0x2dc5…2e0d at0026 = ╱20╱…╱ // 0x2deb @0x26
0x2dc5…2e0d at0027 = ╱52╱R╱ // 0x2dec @0x27
0x2dc5…2e0d at0028 = ╱45╱E╱ // 0x2ded @0x28
0x2dc5…2e0d at0029 = ╱54╱T╱ // 0x2dee @0x29
0x2dc5…2e0d at002a = ╱55╱U╱ // 0x2def @0x2a
0x2dc5…2e0d at002b = ╱52╱R╱ // 0x2df0 @0x2b
0x2dc5…2e0d at002c = ╱4e╱N╱ // 0x2df1 @0x2c
0x2dc5…2e0d at002d = ╱20╱…╱ // 0x2df2 @0x2d
0x2dc5…2e0d at002e = ╱20╱…╱ // 0x2df3 @0x2e
0x2dc5…2e0d at002f = ╱20╱…╱ // 0x2df4 @0x2f
0x2dc5…2e0d at0030 = ╱20╱…╱ // 0x2df5 @0x30
0x2dc5…2e0d at0031 = ╱20╱…╱ // 0x2df6 @0x31
0x2dc5…2e0d at0032 = ╱20╱…╱ // 0x2df7 @0x32
0x2dc5…2e0d at0033 = ╱20╱…╱ // 0x2df8 @0x33
0x2dc5…2e0d at0034 = ╱20╱…╱ // 0x2df9 @0x34
0x2dc5…2e0d at0035 = ╱20╱…╱ // 0x2dfa @0x35
0x2dc5…2e0d at0036 = ╱20╱…╱ // 0x2dfb @0x36
0x2dc5…2e0d at0037 = ╱20╱…╱ // 0x2dfc @0x37
0x2dc5…2e0d at0038 = ╱20╱…╱ // 0x2dfd @0x38
0x2dc5…2e0d at0039 = ╱20╱…╱ // 0x2dfe @0x39
0x2dc5…2e0d at003a = ╱20╱…╱ // 0x2dff @0x3a
0x2dc5…2e0d at003b = ╱20╱…╱ // 0x2e00 @0x3b
0x2dc5…2e0d at003c = ╱20╱…╱ // 0x2e01 @0x3c
0x2dc5…2e0d at003d = ╱20╱…╱ // 0x2e02 @0x3d
0x2dc5…2e0d at003e = ╱20╱…╱ // 0x2e03 @0x3e
0x2dc5…2e0d at003f = ╱20╱…╱ // 0x2e04 @0x3f
0x2dc5…2e0d at0040 = ╱20╱…╱ // 0x2e05 @0x40
0x2dc5…2e0d at0041 = ╱20╱…╱ // 0x2e06 @0x41
0x2dc5…2e0d at0042 = ╱20╱…╱ // 0x2e07 @0x42
0x2dc5…2e0d at0043 = ╱22╱"╱ // 0x2e08 @0x43
0x2dc5…2e0d at0044 = ╱ec╱,╱ // 0x2e09 @0x44
0x2dc5…2e0d at0045 = ╱41╱A╱ // 0x2e0a @0x45
0x2dc5…2e0d at0046 = ╱ef╱$╱ // 0x2e0b @0x46
0x2dc5…2e0d at0047 = EOL // 0x2e0c @0x47
0x2dc5…2e0d }
0x2e0d…2e13 bb6a 5540 ELSE
0x2e0d…2e13 LineComalBin {
0x2e0d…2e13 ptr = 0xbb6a // 0x2e0d @0x0
0x2e0d…2e13 lno = 0x15a4 // 0x2e0f @0x2
0x2e0d…2e13 at0004 = ╱9a╱ ELSE ╱ // 0x2e11 @0x4
0x2e0d…2e13 at0005 = EOL // 0x2e12 @0x5
0x2e0d…2e13 }
0x2e13…2e20 bb77 5550 IF CEKS=B THEN
0x2e13…2e20 LineComalBin {
0x2e13…2e20 ptr = 0xbb77 // 0x2e13 @0x0
0x2e13…2e20 lno = 0x15ae // 0x2e15 @0x2
0x2e13…2e20 at0004 = ╱9c╱ IF ╱ // 0x2e17 @0x4
0x2e13…2e20 at0005 = ╱43╱C╱ // 0x2e18 @0x5
0x2e13…2e20 at0006 = ╱45╱E╱ // 0x2e19 @0x6
0x2e13…2e20 at0007 = ╱4b╱K╱ // 0x2e1a @0x7
0x2e13…2e20 at0008 = ╱53╱S╱ // 0x2e1b @0x8
0x2e13…2e20 at0009 = ╱dc╱=╱ // 0x2e1c @0x9
0x2e13…2e20 at000a = ╱42╱B╱ // 0x2e1d @0xa
0x2e13…2e20 at000b = ╱b6╱ THEN ╱ // 0x2e1e @0xb
0x2e13…2e20 at000c = EOL // 0x2e1f @0xc
0x2e13…2e20 }
0x2e20…2e4e bba5 5560 INPUT "Kunde eksisterer , tast RETURN ",A$
0x2e20…2e4e LineComalBin {
0x2e20…2e4e ptr = 0xbba5 // 0x2e20 @0x0
0x2e20…2e4e lno = 0x15b8 // 0x2e22 @0x2
0x2e20…2e4e at0004 = ╱91╱ INPUT ╱ // 0x2e24 @0x4
0x2e20…2e4e at0005 = ╱22╱"╱ // 0x2e25 @0x5
0x2e20…2e4e at0006 = ╱4b╱K╱ // 0x2e26 @0x6
0x2e20…2e4e at0007 = ╱75╱u╱ // 0x2e27 @0x7
0x2e20…2e4e at0008 = ╱6e╱n╱ // 0x2e28 @0x8
0x2e20…2e4e at0009 = ╱64╱d╱ // 0x2e29 @0x9
0x2e20…2e4e at000a = ╱65╱e╱ // 0x2e2a @0xa
0x2e20…2e4e at000b = ╱20╱…╱ // 0x2e2b @0xb
0x2e20…2e4e at000c = ╱65╱e╱ // 0x2e2c @0xc
0x2e20…2e4e at000d = ╱6b╱k╱ // 0x2e2d @0xd
0x2e20…2e4e at000e = ╱73╱s╱ // 0x2e2e @0xe
0x2e20…2e4e at000f = ╱69╱i╱ // 0x2e2f @0xf
0x2e20…2e4e at0010 = ╱73╱s╱ // 0x2e30 @0x10
0x2e20…2e4e at0011 = ╱74╱t╱ // 0x2e31 @0x11
0x2e20…2e4e at0012 = ╱65╱e╱ // 0x2e32 @0x12
0x2e20…2e4e at0013 = ╱72╱r╱ // 0x2e33 @0x13
0x2e20…2e4e at0014 = ╱65╱e╱ // 0x2e34 @0x14
0x2e20…2e4e at0015 = ╱72╱r╱ // 0x2e35 @0x15
0x2e20…2e4e at0016 = ╱20╱…╱ // 0x2e36 @0x16
0x2e20…2e4e at0017 = ╱2c╱,╱ // 0x2e37 @0x17
0x2e20…2e4e at0018 = ╱20╱…╱ // 0x2e38 @0x18
0x2e20…2e4e at0019 = ╱74╱t╱ // 0x2e39 @0x19
0x2e20…2e4e at001a = ╱61╱a╱ // 0x2e3a @0x1a
0x2e20…2e4e at001b = ╱73╱s╱ // 0x2e3b @0x1b
0x2e20…2e4e at001c = ╱74╱t╱ // 0x2e3c @0x1c
0x2e20…2e4e at001d = ╱20╱…╱ // 0x2e3d @0x1d
0x2e20…2e4e at001e = ╱52╱R╱ // 0x2e3e @0x1e
0x2e20…2e4e at001f = ╱45╱E╱ // 0x2e3f @0x1f
0x2e20…2e4e at0020 = ╱54╱T╱ // 0x2e40 @0x20
0x2e20…2e4e at0021 = ╱55╱U╱ // 0x2e41 @0x21
0x2e20…2e4e at0022 = ╱52╱R╱ // 0x2e42 @0x22
0x2e20…2e4e at0023 = ╱4e╱N╱ // 0x2e43 @0x23
0x2e20…2e4e at0024 = ╱20╱…╱ // 0x2e44 @0x24
0x2e20…2e4e at0025 = ╱20╱…╱ // 0x2e45 @0x25
0x2e20…2e4e at0026 = ╱20╱…╱ // 0x2e46 @0x26
0x2e20…2e4e at0027 = ╱20╱…╱ // 0x2e47 @0x27
0x2e20…2e4e at0028 = ╱20╱…╱ // 0x2e48 @0x28
0x2e20…2e4e at0029 = ╱22╱"╱ // 0x2e49 @0x29
0x2e20…2e4e at002a = ╱ec╱,╱ // 0x2e4a @0x2a
0x2e20…2e4e at002b = ╱41╱A╱ // 0x2e4b @0x2b
0x2e20…2e4e at002c = ╱ef╱$╱ // 0x2e4c @0x2c
0x2e20…2e4e at002d = EOL // 0x2e4d @0x2d
0x2e20…2e4e }
0x2e4e…2e54 bbab 5570 ELSE
0x2e4e…2e54 LineComalBin {
0x2e4e…2e54 ptr = 0xbbab // 0x2e4e @0x0
0x2e4e…2e54 lno = 0x15c2 // 0x2e50 @0x2
0x2e4e…2e54 at0004 = ╱9a╱ ELSE ╱ // 0x2e52 @0x4
0x2e4e…2e54 at0005 = EOL // 0x2e53 @0x5
0x2e4e…2e54 }
0x2e54…2e82 bbd9 5580 INPUT "Kunde eksisterer ikke , tast RETURN",A$
0x2e54…2e82 LineComalBin {
0x2e54…2e82 ptr = 0xbbd9 // 0x2e54 @0x0
0x2e54…2e82 lno = 0x15cc // 0x2e56 @0x2
0x2e54…2e82 at0004 = ╱91╱ INPUT ╱ // 0x2e58 @0x4
0x2e54…2e82 at0005 = ╱22╱"╱ // 0x2e59 @0x5
0x2e54…2e82 at0006 = ╱4b╱K╱ // 0x2e5a @0x6
0x2e54…2e82 at0007 = ╱75╱u╱ // 0x2e5b @0x7
0x2e54…2e82 at0008 = ╱6e╱n╱ // 0x2e5c @0x8
0x2e54…2e82 at0009 = ╱64╱d╱ // 0x2e5d @0x9
0x2e54…2e82 at000a = ╱65╱e╱ // 0x2e5e @0xa
0x2e54…2e82 at000b = ╱20╱…╱ // 0x2e5f @0xb
0x2e54…2e82 at000c = ╱65╱e╱ // 0x2e60 @0xc
0x2e54…2e82 at000d = ╱6b╱k╱ // 0x2e61 @0xd
0x2e54…2e82 at000e = ╱73╱s╱ // 0x2e62 @0xe
0x2e54…2e82 at000f = ╱69╱i╱ // 0x2e63 @0xf
0x2e54…2e82 at0010 = ╱73╱s╱ // 0x2e64 @0x10
0x2e54…2e82 at0011 = ╱74╱t╱ // 0x2e65 @0x11
0x2e54…2e82 at0012 = ╱65╱e╱ // 0x2e66 @0x12
0x2e54…2e82 at0013 = ╱72╱r╱ // 0x2e67 @0x13
0x2e54…2e82 at0014 = ╱65╱e╱ // 0x2e68 @0x14
0x2e54…2e82 at0015 = ╱72╱r╱ // 0x2e69 @0x15
0x2e54…2e82 at0016 = ╱20╱…╱ // 0x2e6a @0x16
0x2e54…2e82 at0017 = ╱69╱i╱ // 0x2e6b @0x17
0x2e54…2e82 at0018 = ╱6b╱k╱ // 0x2e6c @0x18
0x2e54…2e82 at0019 = ╱6b╱k╱ // 0x2e6d @0x19
0x2e54…2e82 at001a = ╱65╱e╱ // 0x2e6e @0x1a
0x2e54…2e82 at001b = ╱20╱…╱ // 0x2e6f @0x1b
0x2e54…2e82 at001c = ╱2c╱,╱ // 0x2e70 @0x1c
0x2e54…2e82 at001d = ╱20╱…╱ // 0x2e71 @0x1d
0x2e54…2e82 at001e = ╱74╱t╱ // 0x2e72 @0x1e
0x2e54…2e82 at001f = ╱61╱a╱ // 0x2e73 @0x1f
0x2e54…2e82 at0020 = ╱73╱s╱ // 0x2e74 @0x20
0x2e54…2e82 at0021 = ╱74╱t╱ // 0x2e75 @0x21
0x2e54…2e82 at0022 = ╱20╱…╱ // 0x2e76 @0x22
0x2e54…2e82 at0023 = ╱52╱R╱ // 0x2e77 @0x23
0x2e54…2e82 at0024 = ╱45╱E╱ // 0x2e78 @0x24
0x2e54…2e82 at0025 = ╱54╱T╱ // 0x2e79 @0x25
0x2e54…2e82 at0026 = ╱55╱U╱ // 0x2e7a @0x26
0x2e54…2e82 at0027 = ╱52╱R╱ // 0x2e7b @0x27
0x2e54…2e82 at0028 = ╱4e╱N╱ // 0x2e7c @0x28
0x2e54…2e82 at0029 = ╱22╱"╱ // 0x2e7d @0x29
0x2e54…2e82 at002a = ╱ec╱,╱ // 0x2e7e @0x2a
0x2e54…2e82 at002b = ╱41╱A╱ // 0x2e7f @0x2b
0x2e54…2e82 at002c = ╱ef╱$╱ // 0x2e80 @0x2c
0x2e54…2e82 at002d = EOL // 0x2e81 @0x2d
0x2e54…2e82 }
0x2e82…2e88 bbdf 5590 ENDIF
0x2e82…2e88 LineComalBin {
0x2e82…2e88 ptr = 0xbbdf // 0x2e82 @0x0
0x2e82…2e88 lno = 0x15d6 // 0x2e84 @0x2
0x2e82…2e88 at0004 = ╱9b╱ ENDIF ╱ // 0x2e86 @0x4
0x2e82…2e88 at0005 = EOL // 0x2e87 @0x5
0x2e82…2e88 }
0x2e88…2e8e bbe5 5600 ENDIF
0x2e88…2e8e LineComalBin {
0x2e88…2e8e ptr = 0xbbe5 // 0x2e88 @0x0
0x2e88…2e8e lno = 0x15e0 // 0x2e8a @0x2
0x2e88…2e8e at0004 = ╱9b╱ ENDIF ╱ // 0x2e8c @0x4
0x2e88…2e8e at0005 = EOL // 0x2e8d @0x5
0x2e88…2e8e }
0x2e8e…2e9e bbf5 5610 EXEC NRTEST(A$)
0x2e8e…2e9e LineComalBin {
0x2e8e…2e9e ptr = 0xbbf5 // 0x2e8e @0x0
0x2e8e…2e9e lno = 0x15ea // 0x2e90 @0x2
0x2e8e…2e9e at0004 = ╱9d╱ EXEC ╱ // 0x2e92 @0x4
0x2e8e…2e9e at0005 = ╱4e╱N╱ // 0x2e93 @0x5
0x2e8e…2e9e at0006 = ╱52╱R╱ // 0x2e94 @0x6
0x2e8e…2e9e at0007 = ╱54╱T╱ // 0x2e95 @0x7
0x2e8e…2e9e at0008 = ╱45╱E╱ // 0x2e96 @0x8
0x2e8e…2e9e at0009 = ╱53╱S╱ // 0x2e97 @0x9
0x2e8e…2e9e at000a = ╱54╱T╱ // 0x2e98 @0xa
0x2e8e…2e9e at000b = ╱ed╱(╱ // 0x2e99 @0xb
0x2e8e…2e9e at000c = ╱41╱A╱ // 0x2e9a @0xc
0x2e8e…2e9e at000d = ╱ef╱$╱ // 0x2e9b @0xd
0x2e8e…2e9e at000e = ╱ee╱)╱ // 0x2e9c @0xe
0x2e8e…2e9e at000f = EOL // 0x2e9d @0xf
0x2e8e…2e9e }
0x2e9e…2ea4 bbfb 5620 ENDIF
0x2e9e…2ea4 LineComalBin {
0x2e9e…2ea4 ptr = 0xbbfb // 0x2e9e @0x0
0x2e9e…2ea4 lno = 0x15f4 // 0x2ea0 @0x2
0x2e9e…2ea4 at0004 = ╱9b╱ ENDIF ╱ // 0x2ea2 @0x4
0x2e9e…2ea4 at0005 = EOL // 0x2ea3 @0x5
0x2e9e…2ea4 }
0x2ea4…2eae bc05 5630 UNTIL P=-E
0x2ea4…2eae LineComalBin {
0x2ea4…2eae ptr = 0xbc05 // 0x2ea4 @0x0
0x2ea4…2eae lno = 0x15fe // 0x2ea6 @0x2
0x2ea4…2eae at0004 = ╱98╱ UNTIL ╱ // 0x2ea8 @0x4
0x2ea4…2eae at0005 = ╱50╱P╱ // 0x2ea9 @0x5
0x2ea4…2eae at0006 = ╱dc╱=╱ // 0x2eaa @0x6
0x2ea4…2eae at0007 = ╱e9╱-╱ // 0x2eab @0x7
0x2ea4…2eae at0008 = ╱45╱E╱ // 0x2eac @0x8
0x2ea4…2eae at0009 = EOL // 0x2ead @0x9
0x2ea4…2eae }
0x2eae…2ee0 bc37 5640 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL)
0x2eae…2ee0 LineComalBin {
0x2eae…2ee0 ptr = 0xbc37 // 0x2eae @0x0
0x2eae…2ee0 lno = 0x1608 // 0x2eb0 @0x2
0x2eae…2ee0 at0004 = ╱98╱ UNTIL ╱ // 0x2eb2 @0x4
0x2eae…2ee0 at0005 = ╱ed╱(╱ // 0x2eb3 @0x5
0x2eae…2ee0 at0006 = ╱43╱C╱ // 0x2eb4 @0x6
0x2eae…2ee0 at0007 = ╱45╱E╱ // 0x2eb5 @0x7
0x2eae…2ee0 at0008 = ╱4b╱K╱ // 0x2eb6 @0x8
0x2eae…2ee0 at0009 = ╱53╱S╱ // 0x2eb7 @0x9
0x2eae…2ee0 at000a = ╱dc╱=╱ // 0x2eb8 @0xa
0x2eae…2ee0 at000b = ╱42╱B╱ // 0x2eb9 @0xb
0x2eae…2ee0 at000c = ╱da╱ AND ╱ // 0x2eba @0xc
0x2eae…2ee0 at000d = ╱54╱T╱ // 0x2ebb @0xd
0x2eae…2ee0 at000e = ╱59╱Y╱ // 0x2ebc @0xe
0x2eae…2ee0 at000f = ╱50╱P╱ // 0x2ebd @0xf
0x2eae…2ee0 at0010 = ╱45╱E╱ // 0x2ebe @0x10
0x2eae…2ee0 at0011 = ╱e1╱<>╱ // 0x2ebf @0x11
0x2eae…2ee0 at0012 = ╱45╱E╱ // 0x2ec0 @0x12
0x2eae…2ee0 at0013 = ╱ee╱)╱ // 0x2ec1 @0x13
0x2eae…2ee0 at0014 = ╱db╱ OR ╱ // 0x2ec2 @0x14
0x2eae…2ee0 at0015 = ╱ed╱(╱ // 0x2ec3 @0x15
0x2eae…2ee0 at0016 = ╱43╱C╱ // 0x2ec4 @0x16
0x2eae…2ee0 at0017 = ╱45╱E╱ // 0x2ec5 @0x17
0x2eae…2ee0 at0018 = ╱4b╱K╱ // 0x2ec6 @0x18
0x2eae…2ee0 at0019 = ╱53╱S╱ // 0x2ec7 @0x19
0x2eae…2ee0 at001a = ╱dc╱=╱ // 0x2ec8 @0x1a
0x2eae…2ee0 at001b = ╱45╱E╱ // 0x2ec9 @0x1b
0x2eae…2ee0 at001c = ╱da╱ AND ╱ // 0x2eca @0x1c
0x2eae…2ee0 at001d = ╱54╱T╱ // 0x2ecb @0x1d
0x2eae…2ee0 at001e = ╱59╱Y╱ // 0x2ecc @0x1e
0x2eae…2ee0 at001f = ╱50╱P╱ // 0x2ecd @0x1f
0x2eae…2ee0 at0020 = ╱45╱E╱ // 0x2ece @0x20
0x2eae…2ee0 at0021 = ╱dc╱=╱ // 0x2ecf @0x21
0x2eae…2ee0 at0022 = ╱45╱E╱ // 0x2ed0 @0x22
0x2eae…2ee0 at0023 = ╱da╱ AND ╱ // 0x2ed1 @0x23
0x2eae…2ee0 at0024 = ╱41╱A╱ // 0x2ed2 @0x24
0x2eae…2ee0 at0025 = ╱44╱D╱ // 0x2ed3 @0x25
0x2eae…2ee0 at0026 = ╱45╱E╱ // 0x2ed4 @0x26
0x2eae…2ee0 at0027 = ╱42╱B╱ // 0x2ed5 @0x27
0x2eae…2ee0 at0028 = ╱dd╱<╱ // 0x2ed6 @0x28
0x2eae…2ee0 at0029 = ╱4d╱M╱ // 0x2ed7 @0x29
0x2eae…2ee0 at002a = ╱44╱D╱ // 0x2ed8 @0x2a
0x2eae…2ee0 at002b = ╱41╱A╱ // 0x2ed9 @0x2b
0x2eae…2ee0 at002c = ╱4e╱N╱ // 0x2eda @0x2c
0x2eae…2ee0 at002d = ╱54╱T╱ // 0x2edb @0x2d
0x2eae…2ee0 at002e = ╱41╱A╱ // 0x2edc @0x2e
0x2eae…2ee0 at002f = ╱4c╱L╱ // 0x2edd @0x2f
0x2eae…2ee0 at0030 = ╱ee╱)╱ // 0x2ede @0x30
0x2eae…2ee0 at0031 = EOL // 0x2edf @0x31
0x2eae…2ee0 }
0x2ee0…2eee bc45 5650 IF KONT=B THEN EXIT
0x2ee0…2eee LineComalBin {
0x2ee0…2eee ptr = 0xbc45 // 0x2ee0 @0x0
0x2ee0…2eee lno = 0x1612 // 0x2ee2 @0x2
0x2ee0…2eee at0004 = ╱82╱ IF ╱ // 0x2ee4 @0x4
0x2ee0…2eee at0005 = ╱4b╱K╱ // 0x2ee5 @0x5
0x2ee0…2eee at0006 = ╱4f╱O╱ // 0x2ee6 @0x6
0x2ee0…2eee at0007 = ╱4e╱N╱ // 0x2ee7 @0x7
0x2ee0…2eee at0008 = ╱54╱T╱ // 0x2ee8 @0x8
0x2ee0…2eee at0009 = ╱dc╱=╱ // 0x2ee9 @0x9
0x2ee0…2eee at000a = ╱42╱B╱ // 0x2eea @0xa
0x2ee0…2eee at000b = ╱b6╱ THEN ╱ // 0x2eeb @0xb
0x2ee0…2eee at000c = ╱99╱ EXIT ╱ // 0x2eec @0xc
0x2ee0…2eee at000d = EOL // 0x2eed @0xd
0x2ee0…2eee }
0x2eee…2efb bc52 5660 IF TYPE<>E THEN
0x2eee…2efb LineComalBin {
0x2eee…2efb ptr = 0xbc52 // 0x2eee @0x0
0x2eee…2efb lno = 0x161c // 0x2ef0 @0x2
0x2eee…2efb at0004 = ╱9c╱ IF ╱ // 0x2ef2 @0x4
0x2eee…2efb at0005 = ╱54╱T╱ // 0x2ef3 @0x5
0x2eee…2efb at0006 = ╱59╱Y╱ // 0x2ef4 @0x6
0x2eee…2efb at0007 = ╱50╱P╱ // 0x2ef5 @0x7
0x2eee…2efb at0008 = ╱45╱E╱ // 0x2ef6 @0x8
0x2eee…2efb at0009 = ╱e1╱<>╱ // 0x2ef7 @0x9
0x2eee…2efb at000a = ╱45╱E╱ // 0x2ef8 @0xa
0x2eee…2efb at000b = ╱b6╱ THEN ╱ // 0x2ef9 @0xb
0x2eee…2efb at000c = EOL // 0x2efa @0xc
0x2eee…2efb }
0x2efb…2f0f bc66 5670 FNR=KONT;TEST=B
0x2efb…2f0f LineComalBin {
0x2efb…2f0f ptr = 0xbc66 // 0x2efb @0x0
0x2efb…2f0f lno = 0x1626 // 0x2efd @0x2
0x2efb…2f0f at0004 = ╱46╱F╱ // 0x2eff @0x4
0x2efb…2f0f at0005 = ╱4e╱N╱ // 0x2f00 @0x5
0x2efb…2f0f at0006 = ╱52╱R╱ // 0x2f01 @0x6
0x2efb…2f0f at0007 = ╱dc╱=╱ // 0x2f02 @0x7
0x2efb…2f0f at0008 = ╱4b╱K╱ // 0x2f03 @0x8
0x2efb…2f0f at0009 = ╱4f╱O╱ // 0x2f04 @0x9
0x2efb…2f0f at000a = ╱4e╱N╱ // 0x2f05 @0xa
0x2efb…2f0f at000b = ╱54╱T╱ // 0x2f06 @0xb
0x2efb…2f0f at000c = ╱eb╱;╱ // 0x2f07 @0xc
0x2efb…2f0f at000d = ╱54╱T╱ // 0x2f08 @0xd
0x2efb…2f0f at000e = ╱45╱E╱ // 0x2f09 @0xe
0x2efb…2f0f at000f = ╱53╱S╱ // 0x2f0a @0xf
0x2efb…2f0f at0010 = ╱54╱T╱ // 0x2f0b @0x10
0x2efb…2f0f at0011 = ╱dc╱=╱ // 0x2f0c @0x11
0x2efb…2f0f at0012 = ╱42╱B╱ // 0x2f0d @0x12
0x2efb…2f0f at0013 = EOL // 0x2f0e @0x13
0x2efb…2f0f }
0x2f0f…2f1e bc75 5680 EXEC HENTDPOST
0x2f0f…2f1e LineComalBin {
0x2f0f…2f1e ptr = 0xbc75 // 0x2f0f @0x0
0x2f0f…2f1e lno = 0x1630 // 0x2f11 @0x2
0x2f0f…2f1e at0004 = ╱9d╱ EXEC ╱ // 0x2f13 @0x4
0x2f0f…2f1e at0005 = ╱48╱H╱ // 0x2f14 @0x5
0x2f0f…2f1e at0006 = ╱45╱E╱ // 0x2f15 @0x6
0x2f0f…2f1e at0007 = ╱4e╱N╱ // 0x2f16 @0x7
0x2f0f…2f1e at0008 = ╱54╱T╱ // 0x2f17 @0x8
0x2f0f…2f1e at0009 = ╱44╱D╱ // 0x2f18 @0x9
0x2f0f…2f1e at000a = ╱50╱P╱ // 0x2f19 @0xa
0x2f0f…2f1e at000b = ╱4f╱O╱ // 0x2f1a @0xb
0x2f0f…2f1e at000c = ╱53╱S╱ // 0x2f1b @0xc
0x2f0f…2f1e at000d = ╱54╱T╱ // 0x2f1c @0xd
0x2f0f…2f1e at000e = EOL // 0x2f1d @0xe
0x2f0f…2f1e }
0x2f1e…2f35 bc8c 5690 IF TYPE=V THEN EXEC SALDOTEST
0x2f1e…2f35 LineComalBin {
0x2f1e…2f35 ptr = 0xbc8c // 0x2f1e @0x0
0x2f1e…2f35 lno = 0x163a // 0x2f20 @0x2
0x2f1e…2f35 at0004 = ╱82╱ IF ╱ // 0x2f22 @0x4
0x2f1e…2f35 at0005 = ╱54╱T╱ // 0x2f23 @0x5
0x2f1e…2f35 at0006 = ╱59╱Y╱ // 0x2f24 @0x6
0x2f1e…2f35 at0007 = ╱50╱P╱ // 0x2f25 @0x7
0x2f1e…2f35 at0008 = ╱45╱E╱ // 0x2f26 @0x8
0x2f1e…2f35 at0009 = ╱dc╱=╱ // 0x2f27 @0x9
0x2f1e…2f35 at000a = ╱56╱V╱ // 0x2f28 @0xa
0x2f1e…2f35 at000b = ╱b6╱ THEN ╱ // 0x2f29 @0xb
0x2f1e…2f35 at000c = ╱9d╱ EXEC ╱ // 0x2f2a @0xc
0x2f1e…2f35 at000d = ╱53╱S╱ // 0x2f2b @0xd
0x2f1e…2f35 at000e = ╱41╱A╱ // 0x2f2c @0xe
0x2f1e…2f35 at000f = ╱4c╱L╱ // 0x2f2d @0xf
0x2f1e…2f35 at0010 = ╱44╱D╱ // 0x2f2e @0x10
0x2f1e…2f35 at0011 = ╱4f╱O╱ // 0x2f2f @0x11
0x2f1e…2f35 at0012 = ╱54╱T╱ // 0x2f30 @0x12
0x2f1e…2f35 at0013 = ╱45╱E╱ // 0x2f31 @0x13
0x2f1e…2f35 at0014 = ╱53╱S╱ // 0x2f32 @0x14
0x2f1e…2f35 at0015 = ╱54╱T╱ // 0x2f33 @0x15
0x2f1e…2f35 at0016 = EOL // 0x2f34 @0x16
0x2f1e…2f35 }
0x2f35…2f56 bcad 5700 EXEC DINDTAST(2,2,FNR)
0x2f35…2f56 LineComalBin {
0x2f35…2f56 ptr = 0xbcad // 0x2f35 @0x0
0x2f35…2f56 lno = 0x1644 // 0x2f37 @0x2
0x2f35…2f56 at0004 = ╱9d╱ EXEC ╱ // 0x2f39 @0x4
0x2f35…2f56 at0005 = ╱44╱D╱ // 0x2f3a @0x5
0x2f35…2f56 at0006 = ╱49╱I╱ // 0x2f3b @0x6
0x2f35…2f56 at0007 = ╱4e╱N╱ // 0x2f3c @0x7
0x2f35…2f56 at0008 = ╱44╱D╱ // 0x2f3d @0x8
0x2f35…2f56 at0009 = ╱54╱T╱ // 0x2f3e @0x9
0x2f35…2f56 at000a = ╱41╱A╱ // 0x2f3f @0xa
0x2f35…2f56 at000b = ╱53╱S╱ // 0x2f40 @0xb
0x2f35…2f56 at000c = ╱54╱T╱ // 0x2f41 @0xc
0x2f35…2f56 at000d = ╱ed╱(╱ // 0x2f42 @0xd
0x2f35…2f56 at000e = ╱32╱2╱ // 0x2f43 @0xe
0x2f35…2f56 at000f = ╱fe00008002╱ // 0x2f44 @0xf
0x2f35…2f56 at0014 = ╱ec╱,╱ // 0x2f49 @0x14
0x2f35…2f56 at0015 = ╱32╱2╱ // 0x2f4a @0x15
0x2f35…2f56 at0016 = ╱fe00008002╱ // 0x2f4b @0x16
0x2f35…2f56 at001b = ╱ec╱,╱ // 0x2f50 @0x1b
0x2f35…2f56 at001c = ╱46╱F╱ // 0x2f51 @0x1c
0x2f35…2f56 at001d = ╱4e╱N╱ // 0x2f52 @0x1d
0x2f35…2f56 at001e = ╱52╱R╱ // 0x2f53 @0x1e
0x2f35…2f56 at001f = ╱ee╱)╱ // 0x2f54 @0x1f
0x2f35…2f56 at0020 = EOL // 0x2f55 @0x20
0x2f35…2f56 }
0x2f56…2f5c bcb3 5710 ELSE
0x2f56…2f5c LineComalBin {
0x2f56…2f5c ptr = 0xbcb3 // 0x2f56 @0x0
0x2f56…2f5c lno = 0x164e // 0x2f58 @0x2
0x2f56…2f5c at0004 = ╱9a╱ ELSE ╱ // 0x2f5a @0x4
0x2f56…2f5c at0005 = EOL // 0x2f5b @0x5
0x2f56…2f5c }
0x2f5c…2f6b bcc2 5720 DEBNR=KONT
0x2f5c…2f6b LineComalBin {
0x2f5c…2f6b ptr = 0xbcc2 // 0x2f5c @0x0
0x2f5c…2f6b lno = 0x1658 // 0x2f5e @0x2
0x2f5c…2f6b at0004 = ╱44╱D╱ // 0x2f60 @0x4
0x2f5c…2f6b at0005 = ╱45╱E╱ // 0x2f61 @0x5
0x2f5c…2f6b at0006 = ╱42╱B╱ // 0x2f62 @0x6
0x2f5c…2f6b at0007 = ╱4e╱N╱ // 0x2f63 @0x7
0x2f5c…2f6b at0008 = ╱52╱R╱ // 0x2f64 @0x8
0x2f5c…2f6b at0009 = ╱dc╱=╱ // 0x2f65 @0x9
0x2f5c…2f6b at000a = ╱4b╱K╱ // 0x2f66 @0xa
0x2f5c…2f6b at000b = ╱4f╱O╱ // 0x2f67 @0xb
0x2f5c…2f6b at000c = ╱4e╱N╱ // 0x2f68 @0xc
0x2f5c…2f6b at000d = ╱54╱T╱ // 0x2f69 @0xd
0x2f5c…2f6b at000e = EOL // 0x2f6a @0xe
0x2f5c…2f6b }
0x2f6b…2f8a bce1 5730 DEBNAVN$=BLANK$(E:25)
0x2f6b…2f8a LineComalBin {
0x2f6b…2f8a ptr = 0xbce1 // 0x2f6b @0x0
0x2f6b…2f8a lno = 0x1662 // 0x2f6d @0x2
0x2f6b…2f8a at0004 = ╱44╱D╱ // 0x2f6f @0x4
0x2f6b…2f8a at0005 = ╱45╱E╱ // 0x2f70 @0x5
0x2f6b…2f8a at0006 = ╱42╱B╱ // 0x2f71 @0x6
0x2f6b…2f8a at0007 = ╱4e╱N╱ // 0x2f72 @0x7
0x2f6b…2f8a at0008 = ╱41╱A╱ // 0x2f73 @0x8
0x2f6b…2f8a at0009 = ╱56╱V╱ // 0x2f74 @0x9
0x2f6b…2f8a at000a = ╱4e╱N╱ // 0x2f75 @0xa
0x2f6b…2f8a at000b = ╱ef╱$╱ // 0x2f76 @0xb
0x2f6b…2f8a at000c = ╱dc╱=╱ // 0x2f77 @0xc
0x2f6b…2f8a at000d = ╱42╱B╱ // 0x2f78 @0xd
0x2f6b…2f8a at000e = ╱4c╱L╱ // 0x2f79 @0xe
0x2f6b…2f8a at000f = ╱41╱A╱ // 0x2f7a @0xf
0x2f6b…2f8a at0010 = ╱4e╱N╱ // 0x2f7b @0x10
0x2f6b…2f8a at0011 = ╱4b╱K╱ // 0x2f7c @0x11
0x2f6b…2f8a at0012 = ╱ef╱$╱ // 0x2f7d @0x12
0x2f6b…2f8a at0013 = ╱ed╱(╱ // 0x2f7e @0x13
0x2f6b…2f8a at0014 = ╱45╱E╱ // 0x2f7f @0x14
0x2f6b…2f8a at0015 = ╱f0╱:╱ // 0x2f80 @0x15
0x2f6b…2f8a at0016 = ╱32╱2╱ // 0x2f81 @0x16
0x2f6b…2f8a at0017 = ╱35╱5╱ // 0x2f82 @0x17
0x2f6b…2f8a at0018 = ╱fe0000c805╱ // 0x2f83 @0x18
0x2f6b…2f8a at001d = ╱ee╱)╱ // 0x2f88 @0x1d
0x2f6b…2f8a at001e = EOL // 0x2f89 @0x1e
0x2f6b…2f8a }
0x2f8a…2f9c bcf3 5740 DSALDO1$="0+"
0x2f8a…2f9c LineComalBin {
0x2f8a…2f9c ptr = 0xbcf3 // 0x2f8a @0x0
0x2f8a…2f9c lno = 0x166c // 0x2f8c @0x2
0x2f8a…2f9c at0004 = ╱44╱D╱ // 0x2f8e @0x4
0x2f8a…2f9c at0005 = ╱53╱S╱ // 0x2f8f @0x5
0x2f8a…2f9c at0006 = ╱41╱A╱ // 0x2f90 @0x6
0x2f8a…2f9c at0007 = ╱4c╱L╱ // 0x2f91 @0x7
0x2f8a…2f9c at0008 = ╱44╱D╱ // 0x2f92 @0x8
0x2f8a…2f9c at0009 = ╱4f╱O╱ // 0x2f93 @0x9
0x2f8a…2f9c at000a = ╱31╱1╱ // 0x2f94 @0xa
0x2f8a…2f9c at000b = ╱ef╱$╱ // 0x2f95 @0xb
0x2f8a…2f9c at000c = ╱dc╱=╱ // 0x2f96 @0xc
0x2f8a…2f9c at000d = ╱22╱"╱ // 0x2f97 @0xd
0x2f8a…2f9c at000e = ╱30╱0╱ // 0x2f98 @0xe
0x2f8a…2f9c at000f = ╱2b╱+╱ // 0x2f99 @0xf
0x2f8a…2f9c at0010 = ╱22╱"╱ // 0x2f9a @0x10
0x2f8a…2f9c at0011 = EOL // 0x2f9b @0x11
0x2f8a…2f9c }
0x2f9c…2fae bd05 5750 DSALDO2$="0+"
0x2f9c…2fae LineComalBin {
0x2f9c…2fae ptr = 0xbd05 // 0x2f9c @0x0
0x2f9c…2fae lno = 0x1676 // 0x2f9e @0x2
0x2f9c…2fae at0004 = ╱44╱D╱ // 0x2fa0 @0x4
0x2f9c…2fae at0005 = ╱53╱S╱ // 0x2fa1 @0x5
0x2f9c…2fae at0006 = ╱41╱A╱ // 0x2fa2 @0x6
0x2f9c…2fae at0007 = ╱4c╱L╱ // 0x2fa3 @0x7
0x2f9c…2fae at0008 = ╱44╱D╱ // 0x2fa4 @0x8
0x2f9c…2fae at0009 = ╱4f╱O╱ // 0x2fa5 @0x9
0x2f9c…2fae at000a = ╱32╱2╱ // 0x2fa6 @0xa
0x2f9c…2fae at000b = ╱ef╱$╱ // 0x2fa7 @0xb
0x2f9c…2fae at000c = ╱dc╱=╱ // 0x2fa8 @0xc
0x2f9c…2fae at000d = ╱22╱"╱ // 0x2fa9 @0xd
0x2f9c…2fae at000e = ╱30╱0╱ // 0x2faa @0xe
0x2f9c…2fae at000f = ╱2b╱+╱ // 0x2fab @0xf
0x2f9c…2fae at0010 = ╱22╱"╱ // 0x2fac @0x10
0x2f9c…2fae at0011 = EOL // 0x2fad @0x11
0x2f9c…2fae }
0x2fae…2fc0 bd17 5760 DSALDO3$="0+"
0x2fae…2fc0 LineComalBin {
0x2fae…2fc0 ptr = 0xbd17 // 0x2fae @0x0
0x2fae…2fc0 lno = 0x1680 // 0x2fb0 @0x2
0x2fae…2fc0 at0004 = ╱44╱D╱ // 0x2fb2 @0x4
0x2fae…2fc0 at0005 = ╱53╱S╱ // 0x2fb3 @0x5
0x2fae…2fc0 at0006 = ╱41╱A╱ // 0x2fb4 @0x6
0x2fae…2fc0 at0007 = ╱4c╱L╱ // 0x2fb5 @0x7
0x2fae…2fc0 at0008 = ╱44╱D╱ // 0x2fb6 @0x8
0x2fae…2fc0 at0009 = ╱4f╱O╱ // 0x2fb7 @0x9
0x2fae…2fc0 at000a = ╱33╱3╱ // 0x2fb8 @0xa
0x2fae…2fc0 at000b = ╱ef╱$╱ // 0x2fb9 @0xb
0x2fae…2fc0 at000c = ╱dc╱=╱ // 0x2fba @0xc
0x2fae…2fc0 at000d = ╱22╱"╱ // 0x2fbb @0xd
0x2fae…2fc0 at000e = ╱30╱0╱ // 0x2fbc @0xe
0x2fae…2fc0 at000f = ╱2b╱+╱ // 0x2fbd @0xf
0x2fae…2fc0 at0010 = ╱22╱"╱ // 0x2fbe @0x10
0x2fae…2fc0 at0011 = EOL // 0x2fbf @0x11
0x2fae…2fc0 }
0x2fc0…2fd2 bd29 5770 DSALDO4$="0+"
0x2fc0…2fd2 LineComalBin {
0x2fc0…2fd2 ptr = 0xbd29 // 0x2fc0 @0x0
0x2fc0…2fd2 lno = 0x168a // 0x2fc2 @0x2
0x2fc0…2fd2 at0004 = ╱44╱D╱ // 0x2fc4 @0x4
0x2fc0…2fd2 at0005 = ╱53╱S╱ // 0x2fc5 @0x5
0x2fc0…2fd2 at0006 = ╱41╱A╱ // 0x2fc6 @0x6
0x2fc0…2fd2 at0007 = ╱4c╱L╱ // 0x2fc7 @0x7
0x2fc0…2fd2 at0008 = ╱44╱D╱ // 0x2fc8 @0x8
0x2fc0…2fd2 at0009 = ╱4f╱O╱ // 0x2fc9 @0x9
0x2fc0…2fd2 at000a = ╱34╱4╱ // 0x2fca @0xa
0x2fc0…2fd2 at000b = ╱ef╱$╱ // 0x2fcb @0xb
0x2fc0…2fd2 at000c = ╱dc╱=╱ // 0x2fcc @0xc
0x2fc0…2fd2 at000d = ╱22╱"╱ // 0x2fcd @0xd
0x2fc0…2fd2 at000e = ╱30╱0╱ // 0x2fce @0xe
0x2fc0…2fd2 at000f = ╱2b╱+╱ // 0x2fcf @0xf
0x2fc0…2fd2 at0010 = ╱22╱"╱ // 0x2fd0 @0x10
0x2fc0…2fd2 at0011 = EOL // 0x2fd1 @0x11
0x2fc0…2fd2 }
0x2fd2…2fe3 bd3a 5780 MDNKØB$="0+"
0x2fd2…2fe3 LineComalBin {
0x2fd2…2fe3 ptr = 0xbd3a // 0x2fd2 @0x0
0x2fd2…2fe3 lno = 0x1694 // 0x2fd4 @0x2
0x2fd2…2fe3 at0004 = ╱4d╱M╱ // 0x2fd6 @0x4
0x2fd2…2fe3 at0005 = ╱44╱D╱ // 0x2fd7 @0x5
0x2fd2…2fe3 at0006 = ╱4e╱N╱ // 0x2fd8 @0x6
0x2fd2…2fe3 at0007 = ╱4b╱K╱ // 0x2fd9 @0x7
0x2fd2…2fe3 at0008 = ╱5c╱Ø╱ // 0x2fda @0x8
0x2fd2…2fe3 at0009 = ╱42╱B╱ // 0x2fdb @0x9
0x2fd2…2fe3 at000a = ╱ef╱$╱ // 0x2fdc @0xa
0x2fd2…2fe3 at000b = ╱dc╱=╱ // 0x2fdd @0xb
0x2fd2…2fe3 at000c = ╱22╱"╱ // 0x2fde @0xc
0x2fd2…2fe3 at000d = ╱30╱0╱ // 0x2fdf @0xd
0x2fd2…2fe3 at000e = ╱2b╱+╱ // 0x2fe0 @0xe
0x2fd2…2fe3 at000f = ╱22╱"╱ // 0x2fe1 @0xf
0x2fd2…2fe3 at0010 = EOL // 0x2fe2 @0x10
0x2fd2…2fe3 }
0x2fe3…2ff3 bd4a 5790 ÅRKØB$="0+"
0x2fe3…2ff3 LineComalBin {
0x2fe3…2ff3 ptr = 0xbd4a // 0x2fe3 @0x0
0x2fe3…2ff3 lno = 0x169e // 0x2fe5 @0x2
0x2fe3…2ff3 at0004 = ╱5d╱Å╱ // 0x2fe7 @0x4
0x2fe3…2ff3 at0005 = ╱52╱R╱ // 0x2fe8 @0x5
0x2fe3…2ff3 at0006 = ╱4b╱K╱ // 0x2fe9 @0x6
0x2fe3…2ff3 at0007 = ╱5c╱Ø╱ // 0x2fea @0x7
0x2fe3…2ff3 at0008 = ╱42╱B╱ // 0x2feb @0x8
0x2fe3…2ff3 at0009 = ╱ef╱$╱ // 0x2fec @0x9
0x2fe3…2ff3 at000a = ╱dc╱=╱ // 0x2fed @0xa
0x2fe3…2ff3 at000b = ╱22╱"╱ // 0x2fee @0xb
0x2fe3…2ff3 at000c = ╱30╱0╱ // 0x2fef @0xc
0x2fe3…2ff3 at000d = ╱2b╱+╱ // 0x2ff0 @0xd
0x2fe3…2ff3 at000e = ╱22╱"╱ // 0x2ff1 @0xe
0x2fe3…2ff3 at000f = EOL // 0x2ff2 @0xf
0x2fe3…2ff3 }
0x2ff3…3012 bd69 5800 DEBGADE$=BLANK$(E:25)
0x2ff3…3012 LineComalBin {
0x2ff3…3012 ptr = 0xbd69 // 0x2ff3 @0x0
0x2ff3…3012 lno = 0x16a8 // 0x2ff5 @0x2
0x2ff3…3012 at0004 = ╱44╱D╱ // 0x2ff7 @0x4
0x2ff3…3012 at0005 = ╱45╱E╱ // 0x2ff8 @0x5
0x2ff3…3012 at0006 = ╱42╱B╱ // 0x2ff9 @0x6
0x2ff3…3012 at0007 = ╱47╱G╱ // 0x2ffa @0x7
0x2ff3…3012 at0008 = ╱41╱A╱ // 0x2ffb @0x8
0x2ff3…3012 at0009 = ╱44╱D╱ // 0x2ffc @0x9
0x2ff3…3012 at000a = ╱45╱E╱ // 0x2ffd @0xa
0x2ff3…3012 at000b = ╱ef╱$╱ // 0x2ffe @0xb
0x2ff3…3012 at000c = ╱dc╱=╱ // 0x2fff @0xc
0x2ff3…3012 at000d = ╱42╱B╱ // 0x3000 @0xd
0x2ff3…3012 at000e = ╱4c╱L╱ // 0x3001 @0xe
0x2ff3…3012 at000f = ╱41╱A╱ // 0x3002 @0xf
0x2ff3…3012 at0010 = ╱4e╱N╱ // 0x3003 @0x10
0x2ff3…3012 at0011 = ╱4b╱K╱ // 0x3004 @0x11
0x2ff3…3012 at0012 = ╱ef╱$╱ // 0x3005 @0x12
0x2ff3…3012 at0013 = ╱ed╱(╱ // 0x3006 @0x13
0x2ff3…3012 at0014 = ╱45╱E╱ // 0x3007 @0x14
0x2ff3…3012 at0015 = ╱f0╱:╱ // 0x3008 @0x15
0x2ff3…3012 at0016 = ╱32╱2╱ // 0x3009 @0x16
0x2ff3…3012 at0017 = ╱35╱5╱ // 0x300a @0x17
0x2ff3…3012 at0018 = ╱fe0000c805╱ // 0x300b @0x18
0x2ff3…3012 at001d = ╱ee╱)╱ // 0x3010 @0x1d
0x2ff3…3012 at001e = EOL // 0x3011 @0x1e
0x2ff3…3012 }
0x3012…302a bd81 5810 DEBTLF$=BLANK$(E:W)
0x3012…302a LineComalBin {
0x3012…302a ptr = 0xbd81 // 0x3012 @0x0
0x3012…302a lno = 0x16b2 // 0x3014 @0x2
0x3012…302a at0004 = ╱44╱D╱ // 0x3016 @0x4
0x3012…302a at0005 = ╱45╱E╱ // 0x3017 @0x5
0x3012…302a at0006 = ╱42╱B╱ // 0x3018 @0x6
0x3012…302a at0007 = ╱54╱T╱ // 0x3019 @0x7
0x3012…302a at0008 = ╱4c╱L╱ // 0x301a @0x8
0x3012…302a at0009 = ╱46╱F╱ // 0x301b @0x9
0x3012…302a at000a = ╱ef╱$╱ // 0x301c @0xa
0x3012…302a at000b = ╱dc╱=╱ // 0x301d @0xb
0x3012…302a at000c = ╱42╱B╱ // 0x301e @0xc
0x3012…302a at000d = ╱4c╱L╱ // 0x301f @0xd
0x3012…302a at000e = ╱41╱A╱ // 0x3020 @0xe
0x3012…302a at000f = ╱4e╱N╱ // 0x3021 @0xf
0x3012…302a at0010 = ╱4b╱K╱ // 0x3022 @0x10
0x3012…302a at0011 = ╱ef╱$╱ // 0x3023 @0x11
0x3012…302a at0012 = ╱ed╱(╱ // 0x3024 @0x12
0x3012…302a at0013 = ╱45╱E╱ // 0x3025 @0x13
0x3012…302a at0014 = ╱f0╱:╱ // 0x3026 @0x14
0x3012…302a at0015 = ╱57╱W╱ // 0x3027 @0x15
0x3012…302a at0016 = ╱ee╱)╱ // 0x3028 @0x16
0x3012…302a at0017 = EOL // 0x3029 @0x17
0x3012…302a }
0x302a…3036 bd8d 5820 HPOST=B
0x302a…3036 LineComalBin {
0x302a…3036 ptr = 0xbd8d // 0x302a @0x0
0x302a…3036 lno = 0x16bc // 0x302c @0x2
0x302a…3036 at0004 = ╱48╱H╱ // 0x302e @0x4
0x302a…3036 at0005 = ╱50╱P╱ // 0x302f @0x5
0x302a…3036 at0006 = ╱4f╱O╱ // 0x3030 @0x6
0x302a…3036 at0007 = ╱53╱S╱ // 0x3031 @0x7
0x302a…3036 at0008 = ╱54╱T╱ // 0x3032 @0x8
0x302a…3036 at0009 = ╱dc╱=╱ // 0x3033 @0x9
0x302a…3036 at000a = ╱42╱B╱ // 0x3034 @0xa
0x302a…3036 at000b = EOL // 0x3035 @0xb
0x302a…3036 }
0x3036…3043 bd9a 5830 HKUNDE=B
0x3036…3043 LineComalBin {
0x3036…3043 ptr = 0xbd9a // 0x3036 @0x0
0x3036…3043 lno = 0x16c6 // 0x3038 @0x2
0x3036…3043 at0004 = ╱48╱H╱ // 0x303a @0x4
0x3036…3043 at0005 = ╱4b╱K╱ // 0x303b @0x5
0x3036…3043 at0006 = ╱55╱U╱ // 0x303c @0x6
0x3036…3043 at0007 = ╱4e╱N╱ // 0x303d @0x7
0x3036…3043 at0008 = ╱44╱D╱ // 0x303e @0x8
0x3036…3043 at0009 = ╱45╱E╱ // 0x303f @0x9
0x3036…3043 at000a = ╱dc╱=╱ // 0x3040 @0xa
0x3036…3043 at000b = ╱42╱B╱ // 0x3041 @0xb
0x3036…3043 at000c = EOL // 0x3042 @0xc
0x3036…3043 }
0x3043…3053 bdaa 5840 DEBPOSTNR=B
0x3043…3053 LineComalBin {
0x3043…3053 ptr = 0xbdaa // 0x3043 @0x0
0x3043…3053 lno = 0x16d0 // 0x3045 @0x2
0x3043…3053 at0004 = ╱44╱D╱ // 0x3047 @0x4
0x3043…3053 at0005 = ╱45╱E╱ // 0x3048 @0x5
0x3043…3053 at0006 = ╱42╱B╱ // 0x3049 @0x6
0x3043…3053 at0007 = ╱50╱P╱ // 0x304a @0x7
0x3043…3053 at0008 = ╱4f╱O╱ // 0x304b @0x8
0x3043…3053 at0009 = ╱53╱S╱ // 0x304c @0x9
0x3043…3053 at000a = ╱54╱T╱ // 0x304d @0xa
0x3043…3053 at000b = ╱4e╱N╱ // 0x304e @0xb
0x3043…3053 at000c = ╱52╱R╱ // 0x304f @0xc
0x3043…3053 at000d = ╱dc╱=╱ // 0x3050 @0xd
0x3043…3053 at000e = ╱42╱B╱ // 0x3051 @0xe
0x3043…3053 at000f = EOL // 0x3052 @0xf
0x3043…3053 }
0x3053…3062 bdb9 5850 DEBLK$="0"
0x3053…3062 LineComalBin {
0x3053…3062 ptr = 0xbdb9 // 0x3053 @0x0
0x3053…3062 lno = 0x16da // 0x3055 @0x2
0x3053…3062 at0004 = ╱44╱D╱ // 0x3057 @0x4
0x3053…3062 at0005 = ╱45╱E╱ // 0x3058 @0x5
0x3053…3062 at0006 = ╱42╱B╱ // 0x3059 @0x6
0x3053…3062 at0007 = ╱4c╱L╱ // 0x305a @0x7
0x3053…3062 at0008 = ╱4b╱K╱ // 0x305b @0x8
0x3053…3062 at0009 = ╱ef╱$╱ // 0x305c @0x9
0x3053…3062 at000a = ╱dc╱=╱ // 0x305d @0xa
0x3053…3062 at000b = ╱22╱"╱ // 0x305e @0xb
0x3053…3062 at000c = ╱30╱0╱ // 0x305f @0xc
0x3053…3062 at000d = ╱22╱"╱ // 0x3060 @0xd
0x3053…3062 at000e = EOL // 0x3061 @0xe
0x3053…3062 }
0x3062…3072 bdc9 5860 DEBKGR$="0"
0x3062…3072 LineComalBin {
0x3062…3072 ptr = 0xbdc9 // 0x3062 @0x0
0x3062…3072 lno = 0x16e4 // 0x3064 @0x2
0x3062…3072 at0004 = ╱44╱D╱ // 0x3066 @0x4
0x3062…3072 at0005 = ╱45╱E╱ // 0x3067 @0x5
0x3062…3072 at0006 = ╱42╱B╱ // 0x3068 @0x6
0x3062…3072 at0007 = ╱4b╱K╱ // 0x3069 @0x7
0x3062…3072 at0008 = ╱47╱G╱ // 0x306a @0x8
0x3062…3072 at0009 = ╱52╱R╱ // 0x306b @0x9
0x3062…3072 at000a = ╱ef╱$╱ // 0x306c @0xa
0x3062…3072 at000b = ╱dc╱=╱ // 0x306d @0xb
0x3062…3072 at000c = ╱22╱"╱ // 0x306e @0xc
0x3062…3072 at000d = ╱30╱0╱ // 0x306f @0xd
0x3062…3072 at000e = ╱22╱"╱ // 0x3070 @0xe
0x3062…3072 at000f = EOL // 0x3071 @0xf
0x3062…3072 }
0x3072…308f bde6 5870 DEBBY$=BLANK$(E:20)
0x3072…308f LineComalBin {
0x3072…308f ptr = 0xbde6 // 0x3072 @0x0
0x3072…308f lno = 0x16ee // 0x3074 @0x2
0x3072…308f at0004 = ╱44╱D╱ // 0x3076 @0x4
0x3072…308f at0005 = ╱45╱E╱ // 0x3077 @0x5
0x3072…308f at0006 = ╱42╱B╱ // 0x3078 @0x6
0x3072…308f at0007 = ╱42╱B╱ // 0x3079 @0x7
0x3072…308f at0008 = ╱59╱Y╱ // 0x307a @0x8
0x3072…308f at0009 = ╱ef╱$╱ // 0x307b @0x9
0x3072…308f at000a = ╱dc╱=╱ // 0x307c @0xa
0x3072…308f at000b = ╱42╱B╱ // 0x307d @0xb
0x3072…308f at000c = ╱4c╱L╱ // 0x307e @0xc
0x3072…308f at000d = ╱41╱A╱ // 0x307f @0xd
0x3072…308f at000e = ╱4e╱N╱ // 0x3080 @0xe
0x3072…308f at000f = ╱4b╱K╱ // 0x3081 @0xf
0x3072…308f at0010 = ╱ef╱$╱ // 0x3082 @0x10
0x3072…308f at0011 = ╱ed╱(╱ // 0x3083 @0x11
0x3072…308f at0012 = ╱45╱E╱ // 0x3084 @0x12
0x3072…308f at0013 = ╱f0╱:╱ // 0x3085 @0x13
0x3072…308f at0014 = ╱32╱2╱ // 0x3086 @0x14
0x3072…308f at0015 = ╱30╱0╱ // 0x3087 @0x15
0x3072…308f at0016 = ╱fe0000a005╱ // 0x3088 @0x16
0x3072…308f at001b = ╱ee╱)╱ // 0x308d @0x1b
0x3072…308f at001c = EOL // 0x308e @0x1c
0x3072…308f }
0x308f…30b2 be09 5880 EXEC DINDTAST(2,0,DEBNR)
0x308f…30b2 LineComalBin {
0x308f…30b2 ptr = 0xbe09 // 0x308f @0x0
0x308f…30b2 lno = 0x16f8 // 0x3091 @0x2
0x308f…30b2 at0004 = ╱9d╱ EXEC ╱ // 0x3093 @0x4
0x308f…30b2 at0005 = ╱44╱D╱ // 0x3094 @0x5
0x308f…30b2 at0006 = ╱49╱I╱ // 0x3095 @0x6
0x308f…30b2 at0007 = ╱4e╱N╱ // 0x3096 @0x7
0x308f…30b2 at0008 = ╱44╱D╱ // 0x3097 @0x8
0x308f…30b2 at0009 = ╱54╱T╱ // 0x3098 @0x9
0x308f…30b2 at000a = ╱41╱A╱ // 0x3099 @0xa
0x308f…30b2 at000b = ╱53╱S╱ // 0x309a @0xb
0x308f…30b2 at000c = ╱54╱T╱ // 0x309b @0xc
0x308f…30b2 at000d = ╱ed╱(╱ // 0x309c @0xd
0x308f…30b2 at000e = ╱32╱2╱ // 0x309d @0xe
0x308f…30b2 at000f = ╱fe00008002╱ // 0x309e @0xf
0x308f…30b2 at0014 = ╱ec╱,╱ // 0x30a3 @0x14
0x308f…30b2 at0015 = ╱30╱0╱ // 0x30a4 @0x15
0x308f…30b2 at0016 = ╱fe00000000╱ // 0x30a5 @0x16
0x308f…30b2 at001b = ╱ec╱,╱ // 0x30aa @0x1b
0x308f…30b2 at001c = ╱44╱D╱ // 0x30ab @0x1c
0x308f…30b2 at001d = ╱45╱E╱ // 0x30ac @0x1d
0x308f…30b2 at001e = ╱42╱B╱ // 0x30ad @0x1e
0x308f…30b2 at001f = ╱4e╱N╱ // 0x30ae @0x1f
0x308f…30b2 at0020 = ╱52╱R╱ // 0x30af @0x20
0x308f…30b2 at0021 = ╱ee╱)╱ // 0x30b0 @0x21
0x308f…30b2 at0022 = EOL // 0x30b1 @0x22
0x308f…30b2 }
0x30b2…30b8 be0f 5890 ENDIF
0x30b2…30b8 LineComalBin {
0x30b2…30b8 ptr = 0xbe0f // 0x30b2 @0x0
0x30b2…30b8 lno = 0x1702 // 0x30b4 @0x2
0x30b2…30b8 at0004 = ╱9b╱ ENDIF ╱ // 0x30b6 @0x4
0x30b2…30b8 at0005 = EOL // 0x30b7 @0x5
0x30b2…30b8 }
0x30b8…30be be15 5900 ENDIF
0x30b8…30be LineComalBin {
0x30b8…30be ptr = 0xbe15 // 0x30b8 @0x0
0x30b8…30be lno = 0x170c // 0x30ba @0x2
0x30b8…30be at0004 = ╱9b╱ ENDIF ╱ // 0x30bc @0x4
0x30b8…30be at0005 = EOL // 0x30bd @0x5
0x30b8…30be }
0x30be…30cc be23 5910 IF KONT=B THEN EXIT
0x30be…30cc LineComalBin {
0x30be…30cc ptr = 0xbe23 // 0x30be @0x0
0x30be…30cc lno = 0x1716 // 0x30c0 @0x2
0x30be…30cc at0004 = ╱82╱ IF ╱ // 0x30c2 @0x4
0x30be…30cc at0005 = ╱4b╱K╱ // 0x30c3 @0x5
0x30be…30cc at0006 = ╱4f╱O╱ // 0x30c4 @0x6
0x30be…30cc at0007 = ╱4e╱N╱ // 0x30c5 @0x7
0x30be…30cc at0008 = ╱54╱T╱ // 0x30c6 @0x8
0x30be…30cc at0009 = ╱dc╱=╱ // 0x30c7 @0x9
0x30be…30cc at000a = ╱42╱B╱ // 0x30c8 @0xa
0x30be…30cc at000b = ╱b6╱ THEN ╱ // 0x30c9 @0xb
0x30be…30cc at000c = ╱99╱ EXIT ╱ // 0x30ca @0xc
0x30be…30cc at000d = EOL // 0x30cb @0xd
0x30be…30cc }
0x30cc…30d9 be30 5920 IF TEST=B THEN
0x30cc…30d9 LineComalBin {
0x30cc…30d9 ptr = 0xbe30 // 0x30cc @0x0
0x30cc…30d9 lno = 0x1720 // 0x30ce @0x2
0x30cc…30d9 at0004 = ╱9c╱ IF ╱ // 0x30d0 @0x4
0x30cc…30d9 at0005 = ╱54╱T╱ // 0x30d1 @0x5
0x30cc…30d9 at0006 = ╱45╱E╱ // 0x30d2 @0x6
0x30cc…30d9 at0007 = ╱53╱S╱ // 0x30d3 @0x7
0x30cc…30d9 at0008 = ╱54╱T╱ // 0x30d4 @0x8
0x30cc…30d9 at0009 = ╱dc╱=╱ // 0x30d5 @0x9
0x30cc…30d9 at000a = ╱42╱B╱ // 0x30d6 @0xa
0x30cc…30d9 at000b = ╱b6╱ THEN ╱ // 0x30d7 @0xb
0x30cc…30d9 at000c = EOL // 0x30d8 @0xc
0x30cc…30d9 }
0x30d9…30e5 be3c 5930 CASE TYPE OF
0x30d9…30e5 LineComalBin {
0x30d9…30e5 ptr = 0xbe3c // 0x30d9 @0x0
0x30d9…30e5 lno = 0x172a // 0x30db @0x2
0x30d9…30e5 at0004 = ╱a201╱ CASE ╱ // 0x30dd @0x4
0x30d9…30e5 at0006 = ╱54╱T╱ // 0x30df @0x6
0x30d9…30e5 at0007 = ╱59╱Y╱ // 0x30e0 @0x7
0x30d9…30e5 at0008 = ╱50╱P╱ // 0x30e1 @0x8
0x30d9…30e5 at0009 = ╱45╱E╱ // 0x30e2 @0x9
0x30d9…30e5 at000a = ╱ba╱ OF ╱ // 0x30e3 @0xa
0x30d9…30e5 at000b = EOL // 0x30e4 @0xb
0x30d9…30e5 }
0x30e5…30eb be42 5940 STOP
0x30e5…30eb LineComalBin {
0x30e5…30eb ptr = 0xbe42 // 0x30e5 @0x0
0x30e5…30eb lno = 0x1734 // 0x30e7 @0x2
0x30e5…30eb at0004 = ╱8d╱ STOP ╱ // 0x30e9 @0x4
0x30e5…30eb at0005 = EOL // 0x30ea @0x5
0x30e5…30eb }
0x30eb…30f5 be4c 5950 WHEN E,G
0x30eb…30f5 LineComalBin {
0x30eb…30f5 ptr = 0xbe4c // 0x30eb @0x0
0x30eb…30f5 lno = 0x173e // 0x30ed @0x2
0x30eb…30f5 at0004 = ╱a301╱ WHEN ╱ // 0x30ef @0x4
0x30eb…30f5 at0006 = ╱45╱E╱ // 0x30f1 @0x6
0x30eb…30f5 at0007 = ╱ec╱,╱ // 0x30f2 @0x7
0x30eb…30f5 at0008 = ╱47╱G╱ // 0x30f3 @0x8
0x30eb…30f5 at0009 = EOL // 0x30f4 @0x9
0x30eb…30f5 }
0x30f5…30fb be52 5960 REPEAT
0x30f5…30fb LineComalBin {
0x30f5…30fb ptr = 0xbe52 // 0x30f5 @0x0
0x30f5…30fb lno = 0x1748 // 0x30f7 @0x2
0x30f5…30fb at0004 = ╱97╱ REPEAT ╱ // 0x30f9 @0x4
0x30f5…30fb at0005 = EOL // 0x30fa @0x5
0x30f5…30fb }
0x30fb…3101 be58 5970 REPEAT
0x30fb…3101 LineComalBin {
0x30fb…3101 ptr = 0xbe58 // 0x30fb @0x0
0x30fb…3101 lno = 0x1752 // 0x30fd @0x2
0x30fb…3101 at0004 = ╱97╱ REPEAT ╱ // 0x30ff @0x4
0x30fb…3101 at0005 = EOL // 0x3100 @0x5
0x30fb…3101 }
0x3101…3110 be67 5980 CURSOR V,23
0x3101…3110 LineComalBin {
0x3101…3110 ptr = 0xbe67 // 0x3101 @0x0
0x3101…3110 lno = 0x175c // 0x3103 @0x2
0x3101…3110 at0004 = ╱a1╱ CURSOR ╱ // 0x3105 @0x4
0x3101…3110 at0005 = ╱56╱V╱ // 0x3106 @0x5
0x3101…3110 at0006 = ╱ec╱,╱ // 0x3107 @0x6
0x3101…3110 at0007 = ╱32╱2╱ // 0x3108 @0x7
0x3101…3110 at0008 = ╱33╱3╱ // 0x3109 @0x8
0x3101…3110 at0009 = ╱fe0000b805╱ // 0x310a @0x9
0x3101…3110 at000e = EOL // 0x310f @0xe
0x3101…3110 }
0x3110…314e bea5 5990 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,";
0x3110…314e LineComalBin {
0x3110…314e ptr = 0xbea5 // 0x3110 @0x0
0x3110…314e lno = 0x1766 // 0x3112 @0x2
0x3110…314e at0004 = ╱92╱ PRINT ╱ // 0x3114 @0x4
0x3110…314e at0005 = ╱22╱"╱ // 0x3115 @0x5
0x3110…314e at0006 = ╱48╱H╱ // 0x3116 @0x6
0x3110…314e at0007 = ╱76╱v╱ // 0x3117 @0x7
0x3110…314e at0008 = ╱69╱i╱ // 0x3118 @0x8
0x3110…314e at0009 = ╱6c╱l╱ // 0x3119 @0x9
0x3110…314e at000a = ╱6b╱k╱ // 0x311a @0xa
0x3110…314e at000b = ╱65╱e╱ // 0x311b @0xb
0x3110…314e at000c = ╱74╱t╱ // 0x311c @0xc
0x3110…314e at000d = ╱20╱…╱ // 0x311d @0xd
0x3110…314e at000e = ╱66╱f╱ // 0x311e @0xe
0x3110…314e at000f = ╱65╱e╱ // 0x311f @0xf
0x3110…314e at0010 = ╱6c╱l╱ // 0x3120 @0x10
0x3110…314e at0011 = ╱74╱t╱ // 0x3121 @0x11
0x3110…314e at0012 = ╱20╱…╱ // 0x3122 @0x12
0x3110…314e at0013 = ╱7c╱ø╱ // 0x3123 @0x13
0x3110…314e at0014 = ╱6e╱n╱ // 0x3124 @0x14
0x3110…314e at0015 = ╱73╱s╱ // 0x3125 @0x15
0x3110…314e at0016 = ╱6b╱k╱ // 0x3126 @0x16
0x3110…314e at0017 = ╱65╱e╱ // 0x3127 @0x17
0x3110…314e at0018 = ╱73╱s╱ // 0x3128 @0x18
0x3110…314e at0019 = ╱20╱…╱ // 0x3129 @0x19
0x3110…314e at001a = ╱7b╱æ╱ // 0x312a @0x1a
0x3110…314e at001b = ╱6e╱n╱ // 0x312b @0x1b
0x3110…314e at001c = ╱64╱d╱ // 0x312c @0x1c
0x3110…314e at001d = ╱72╱r╱ // 0x312d @0x1d
0x3110…314e at001e = ╱65╱e╱ // 0x312e @0x1e
0x3110…314e at001f = ╱74╱t╱ // 0x312f @0x1f
0x3110…314e at0020 = ╱20╱…╱ // 0x3130 @0x20
0x3110…314e at0021 = ╱20╱…╱ // 0x3131 @0x21
0x3110…314e at0022 = ╱20╱…╱ // 0x3132 @0x22
0x3110…314e at0023 = ╱20╱…╱ // 0x3133 @0x23
0x3110…314e at0024 = ╱20╱…╱ // 0x3134 @0x24
0x3110…314e at0025 = ╱20╱…╱ // 0x3135 @0x25
0x3110…314e at0026 = ╱20╱…╱ // 0x3136 @0x26
0x3110…314e at0027 = ╱28╱(╱ // 0x3137 @0x27
0x3110…314e at0028 = ╱49╱I╱ // 0x3138 @0x28
0x3110…314e at0029 = ╱6e╱n╱ // 0x3139 @0x29
0x3110…314e at002a = ╱64╱d╱ // 0x313a @0x2a
0x3110…314e at002b = ╱74╱t╱ // 0x313b @0x2b
0x3110…314e at002c = ╱61╱a╱ // 0x313c @0x2c
0x3110…314e at002d = ╱73╱s╱ // 0x313d @0x2d
0x3110…314e at002e = ╱74╱t╱ // 0x313e @0x2e
0x3110…314e at002f = ╱20╱…╱ // 0x313f @0x2f
0x3110…314e at0030 = ╱66╱f╱ // 0x3140 @0x30
0x3110…314e at0031 = ╱65╱e╱ // 0x3141 @0x31
0x3110…314e at0032 = ╱6c╱l╱ // 0x3142 @0x32
0x3110…314e at0033 = ╱74╱t╱ // 0x3143 @0x33
0x3110…314e at0034 = ╱6e╱n╱ // 0x3144 @0x34
0x3110…314e at0035 = ╱72╱r╱ // 0x3145 @0x35
0x3110…314e at0036 = ╱20╱…╱ // 0x3146 @0x36
0x3110…314e at0037 = ╱32╱2╱ // 0x3147 @0x37
0x3110…314e at0038 = ╱2d╱-╱ // 0x3148 @0x38
0x3110…314e at0039 = ╱38╱8╱ // 0x3149 @0x39
0x3110…314e at003a = ╱2c╱,╱ // 0x314a @0x3a
0x3110…314e at003b = ╱22╱"╱ // 0x314b @0x3b
0x3110…314e at003c = ╱eb╱;╱ // 0x314c @0x3c
0x3110…314e at003d = EOL // 0x314d @0x3d
0x3110…314e }
0x314e…316d bec4 6000 PRINT "0:for færdig) "
0x314e…316d LineComalBin {
0x314e…316d ptr = 0xbec4 // 0x314e @0x0
0x314e…316d lno = 0x1770 // 0x3150 @0x2
0x314e…316d at0004 = ╱92╱ PRINT ╱ // 0x3152 @0x4
0x314e…316d at0005 = ╱22╱"╱ // 0x3153 @0x5
0x314e…316d at0006 = ╱30╱0╱ // 0x3154 @0x6
0x314e…316d at0007 = ╱3a╱:╱ // 0x3155 @0x7
0x314e…316d at0008 = ╱66╱f╱ // 0x3156 @0x8
0x314e…316d at0009 = ╱6f╱o╱ // 0x3157 @0x9
0x314e…316d at000a = ╱72╱r╱ // 0x3158 @0xa
0x314e…316d at000b = ╱20╱…╱ // 0x3159 @0xb
0x314e…316d at000c = ╱66╱f╱ // 0x315a @0xc
0x314e…316d at000d = ╱7b╱æ╱ // 0x315b @0xd
0x314e…316d at000e = ╱72╱r╱ // 0x315c @0xe
0x314e…316d at000f = ╱64╱d╱ // 0x315d @0xf
0x314e…316d at0010 = ╱69╱i╱ // 0x315e @0x10
0x314e…316d at0011 = ╱67╱g╱ // 0x315f @0x11
0x314e…316d at0012 = ╱29╱)╱ // 0x3160 @0x12
0x314e…316d at0013 = ╱20╱…╱ // 0x3161 @0x13
0x314e…316d at0014 = ╱20╱…╱ // 0x3162 @0x14
0x314e…316d at0015 = ╱20╱…╱ // 0x3163 @0x15
0x314e…316d at0016 = ╱20╱…╱ // 0x3164 @0x16
0x314e…316d at0017 = ╱20╱…╱ // 0x3165 @0x17
0x314e…316d at0018 = ╱20╱…╱ // 0x3166 @0x18
0x314e…316d at0019 = ╱20╱…╱ // 0x3167 @0x19
0x314e…316d at001a = ╱20╱…╱ // 0x3168 @0x1a
0x314e…316d at001b = ╱20╱…╱ // 0x3169 @0x1b
0x314e…316d at001c = ╱20╱…╱ // 0x316a @0x1c
0x314e…316d at001d = ╱22╱"╱ // 0x316b @0x1d
0x314e…316d at001e = EOL // 0x316c @0x1e
0x314e…316d }
0x316d…3182 bed9 6010 CURSOR 32,23
0x316d…3182 LineComalBin {
0x316d…3182 ptr = 0xbed9 // 0x316d @0x0
0x316d…3182 lno = 0x177a // 0x316f @0x2
0x316d…3182 at0004 = ╱a1╱ CURSOR ╱ // 0x3171 @0x4
0x316d…3182 at0005 = ╱33╱3╱ // 0x3172 @0x5
0x316d…3182 at0006 = ╱32╱2╱ // 0x3173 @0x6
0x316d…3182 at0007 = ╱fe00008006╱ // 0x3174 @0x7
0x316d…3182 at000c = ╱ec╱,╱ // 0x3179 @0xc
0x316d…3182 at000d = ╱32╱2╱ // 0x317a @0xd
0x316d…3182 at000e = ╱33╱3╱ // 0x317b @0xe
0x316d…3182 at000f = ╱fe0000b805╱ // 0x317c @0xf
0x316d…3182 at0014 = EOL // 0x3181 @0x14
0x316d…3182 }
0x3182…318b bee2 6020 INPUT LK$
0x3182…318b LineComalBin {
0x3182…318b ptr = 0xbee2 // 0x3182 @0x0
0x3182…318b lno = 0x1784 // 0x3184 @0x2
0x3182…318b at0004 = ╱91╱ INPUT ╱ // 0x3186 @0x4
0x3182…318b at0005 = ╱4c╱L╱ // 0x3187 @0x5
0x3182…318b at0006 = ╱4b╱K╱ // 0x3188 @0x6
0x3182…318b at0007 = ╱ef╱$╱ // 0x3189 @0x7
0x3182…318b at0008 = EOL // 0x318a @0x8
0x3182…318b }
0x318b…319c bef3 6030 EXEC NRTEST(LK$)
0x318b…319c LineComalBin {
0x318b…319c ptr = 0xbef3 // 0x318b @0x0
0x318b…319c lno = 0x178e // 0x318d @0x2
0x318b…319c at0004 = ╱9d╱ EXEC ╱ // 0x318f @0x4
0x318b…319c at0005 = ╱4e╱N╱ // 0x3190 @0x5
0x318b…319c at0006 = ╱52╱R╱ // 0x3191 @0x6
0x318b…319c at0007 = ╱54╱T╱ // 0x3192 @0x7
0x318b…319c at0008 = ╱45╱E╱ // 0x3193 @0x8
0x318b…319c at0009 = ╱53╱S╱ // 0x3194 @0x9
0x318b…319c at000a = ╱54╱T╱ // 0x3195 @0xa
0x318b…319c at000b = ╱ed╱(╱ // 0x3196 @0xb
0x318b…319c at000c = ╱4c╱L╱ // 0x3197 @0xc
0x318b…319c at000d = ╱4b╱K╱ // 0x3198 @0xd
0x318b…319c at000e = ╱ef╱$╱ // 0x3199 @0xe
0x318b…319c at000f = ╱ee╱)╱ // 0x319a @0xf
0x318b…319c at0010 = EOL // 0x319b @0x10
0x318b…319c }
0x319c…31af bf06 6040 UNTIL P=B OR (P>E AND P<W)
0x319c…31af LineComalBin {
0x319c…31af ptr = 0xbf06 // 0x319c @0x0
0x319c…31af lno = 0x1798 // 0x319e @0x2
0x319c…31af at0004 = ╱98╱ UNTIL ╱ // 0x31a0 @0x4
0x319c…31af at0005 = ╱50╱P╱ // 0x31a1 @0x5
0x319c…31af at0006 = ╱dc╱=╱ // 0x31a2 @0x6
0x319c…31af at0007 = ╱42╱B╱ // 0x31a3 @0x7
0x319c…31af at0008 = ╱db╱ OR ╱ // 0x31a4 @0x8
0x319c…31af at0009 = ╱ed╱(╱ // 0x31a5 @0x9
0x319c…31af at000a = ╱50╱P╱ // 0x31a6 @0xa
0x319c…31af at000b = ╱de╱>╱ // 0x31a7 @0xb
0x319c…31af at000c = ╱45╱E╱ // 0x31a8 @0xc
0x319c…31af at000d = ╱da╱ AND ╱ // 0x31a9 @0xd
0x319c…31af at000e = ╱50╱P╱ // 0x31aa @0xe
0x319c…31af at000f = ╱dd╱<╱ // 0x31ab @0xf
0x319c…31af at0010 = ╱57╱W╱ // 0x31ac @0x10
0x319c…31af at0011 = ╱ee╱)╱ // 0x31ad @0x11
0x319c…31af at0012 = EOL // 0x31ae @0x12
0x319c…31af }
0x31af…31bb bf12 6050 STYR1=P
0x31af…31bb LineComalBin {
0x31af…31bb ptr = 0xbf12 // 0x31af @0x0
0x31af…31bb lno = 0x17a2 // 0x31b1 @0x2
0x31af…31bb at0004 = ╱53╱S╱ // 0x31b3 @0x4
0x31af…31bb at0005 = ╱54╱T╱ // 0x31b4 @0x5
0x31af…31bb at0006 = ╱59╱Y╱ // 0x31b5 @0x6
0x31af…31bb at0007 = ╱52╱R╱ // 0x31b6 @0x7
0x31af…31bb at0008 = ╱31╱1╱ // 0x31b7 @0x8
0x31af…31bb at0009 = ╱dc╱=╱ // 0x31b8 @0x9
0x31af…31bb at000a = ╱50╱P╱ // 0x31b9 @0xa
0x31af…31bb at000b = EOL // 0x31ba @0xb
0x31af…31bb }
0x31bb…31ca bf21 6060 IF STYR1=B THEN EXIT
0x31bb…31ca LineComalBin {
0x31bb…31ca ptr = 0xbf21 // 0x31bb @0x0
0x31bb…31ca lno = 0x17ac // 0x31bd @0x2
0x31bb…31ca at0004 = ╱82╱ IF ╱ // 0x31bf @0x4
0x31bb…31ca at0005 = ╱53╱S╱ // 0x31c0 @0x5
0x31bb…31ca at0006 = ╱54╱T╱ // 0x31c1 @0x6
0x31bb…31ca at0007 = ╱59╱Y╱ // 0x31c2 @0x7
0x31bb…31ca at0008 = ╱52╱R╱ // 0x31c3 @0x8
0x31bb…31ca at0009 = ╱31╱1╱ // 0x31c4 @0x9
0x31bb…31ca at000a = ╱dc╱=╱ // 0x31c5 @0xa
0x31bb…31ca at000b = ╱42╱B╱ // 0x31c6 @0xb
0x31bb…31ca at000c = ╱b6╱ THEN ╱ // 0x31c7 @0xc
0x31bb…31ca at000d = ╱99╱ EXIT ╱ // 0x31c8 @0xd
0x31bb…31ca at000e = EOL // 0x31c9 @0xe
0x31bb…31ca }
0x31ca…31ec bf43 6070 EXEC DINDTAST(STYR1,1,DEBNR)
0x31ca…31ec LineComalBin {
0x31ca…31ec ptr = 0xbf43 // 0x31ca @0x0
0x31ca…31ec lno = 0x17b6 // 0x31cc @0x2
0x31ca…31ec at0004 = ╱9d╱ EXEC ╱ // 0x31ce @0x4
0x31ca…31ec at0005 = ╱44╱D╱ // 0x31cf @0x5
0x31ca…31ec at0006 = ╱49╱I╱ // 0x31d0 @0x6
0x31ca…31ec at0007 = ╱4e╱N╱ // 0x31d1 @0x7
0x31ca…31ec at0008 = ╱44╱D╱ // 0x31d2 @0x8
0x31ca…31ec at0009 = ╱54╱T╱ // 0x31d3 @0x9
0x31ca…31ec at000a = ╱41╱A╱ // 0x31d4 @0xa
0x31ca…31ec at000b = ╱53╱S╱ // 0x31d5 @0xb
0x31ca…31ec at000c = ╱54╱T╱ // 0x31d6 @0xc
0x31ca…31ec at000d = ╱ed╱(╱ // 0x31d7 @0xd
0x31ca…31ec at000e = ╱53╱S╱ // 0x31d8 @0xe
0x31ca…31ec at000f = ╱54╱T╱ // 0x31d9 @0xf
0x31ca…31ec at0010 = ╱59╱Y╱ // 0x31da @0x10
0x31ca…31ec at0011 = ╱52╱R╱ // 0x31db @0x11
0x31ca…31ec at0012 = ╱31╱1╱ // 0x31dc @0x12
0x31ca…31ec at0013 = ╱ec╱,╱ // 0x31dd @0x13
0x31ca…31ec at0014 = ╱31╱1╱ // 0x31de @0x14
0x31ca…31ec at0015 = ╱fe00008001╱ // 0x31df @0x15
0x31ca…31ec at001a = ╱ec╱,╱ // 0x31e4 @0x1a
0x31ca…31ec at001b = ╱44╱D╱ // 0x31e5 @0x1b
0x31ca…31ec at001c = ╱45╱E╱ // 0x31e6 @0x1c
0x31ca…31ec at001d = ╱42╱B╱ // 0x31e7 @0x1d
0x31ca…31ec at001e = ╱4e╱N╱ // 0x31e8 @0x1e
0x31ca…31ec at001f = ╱52╱R╱ // 0x31e9 @0x1f
0x31ca…31ec at0020 = ╱ee╱)╱ // 0x31ea @0x20
0x31ca…31ec at0021 = EOL // 0x31eb @0x21
0x31ca…31ec }
0x31ec…31f9 bf50 6080 UNTIL STYR1=B
0x31ec…31f9 LineComalBin {
0x31ec…31f9 ptr = 0xbf50 // 0x31ec @0x0
0x31ec…31f9 lno = 0x17c0 // 0x31ee @0x2
0x31ec…31f9 at0004 = ╱98╱ UNTIL ╱ // 0x31f0 @0x4
0x31ec…31f9 at0005 = ╱53╱S╱ // 0x31f1 @0x5
0x31ec…31f9 at0006 = ╱54╱T╱ // 0x31f2 @0x6
0x31ec…31f9 at0007 = ╱59╱Y╱ // 0x31f3 @0x7
0x31ec…31f9 at0008 = ╱52╱R╱ // 0x31f4 @0x8
0x31ec…31f9 at0009 = ╱31╱1╱ // 0x31f5 @0x9
0x31ec…31f9 at000a = ╱dc╱=╱ // 0x31f6 @0xa
0x31ec…31f9 at000b = ╱42╱B╱ // 0x31f7 @0xb
0x31ec…31f9 at000c = EOL // 0x31f8 @0xc
0x31ec…31f9 }
0x31f9…3206 bf5d 6090 IF TYPE=E THEN
0x31f9…3206 LineComalBin {
0x31f9…3206 ptr = 0xbf5d // 0x31f9 @0x0
0x31f9…3206 lno = 0x17ca // 0x31fb @0x2
0x31f9…3206 at0004 = ╱9c╱ IF ╱ // 0x31fd @0x4
0x31f9…3206 at0005 = ╱54╱T╱ // 0x31fe @0x5
0x31f9…3206 at0006 = ╱59╱Y╱ // 0x31ff @0x6
0x31f9…3206 at0007 = ╱50╱P╱ // 0x3200 @0x7
0x31f9…3206 at0008 = ╱45╱E╱ // 0x3201 @0x8
0x31f9…3206 at0009 = ╱dc╱=╱ // 0x3202 @0x9
0x31f9…3206 at000a = ╱45╱E╱ // 0x3203 @0xa
0x31f9…3206 at000b = ╱b6╱ THEN ╱ // 0x3204 @0xb
0x31f9…3206 at000c = EOL // 0x3205 @0xc
0x31f9…3206 }
0x3206…322a bf81 6100 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48)
0x3206…322a LineComalBin {
0x3206…322a ptr = 0xbf81 // 0x3206 @0x0
0x3206…322a lno = 0x17d4 // 0x3208 @0x2
0x3206…322a at0004 = ╱9d╱ EXEC ╱ // 0x320a @0x4
0x3206…322a at0005 = ╱4b╱K╱ // 0x320b @0x5
0x3206…322a at0006 = ╱53╱S╱ // 0x320c @0x6
0x3206…322a at0007 = ╱5c╱Ø╱ // 0x320d @0x7
0x3206…322a at0008 = ╱47╱G╱ // 0x320e @0x8
0x3206…322a at0009 = ╱ed╱(╱ // 0x320f @0x9
0x3206…322a at000a = ╱44╱D╱ // 0x3210 @0xa
0x3206…322a at000b = ╱45╱E╱ // 0x3211 @0xb
0x3206…322a at000c = ╱42╱B╱ // 0x3212 @0xc
0x3206…322a at000d = ╱4e╱N╱ // 0x3213 @0xd
0x3206…322a at000e = ╱52╱R╱ // 0x3214 @0xe
0x3206…322a at000f = ╱ec╱,╱ // 0x3215 @0xf
0x3206…322a at0010 = ╱cd╱ORD╱ // 0x3216 @0x10
0x3206…322a at0011 = ╱ed╱(╱ // 0x3217 @0x11
0x3206…322a at0012 = ╱44╱D╱ // 0x3218 @0x12
0x3206…322a at0013 = ╱45╱E╱ // 0x3219 @0x13
0x3206…322a at0014 = ╱42╱B╱ // 0x321a @0x14
0x3206…322a at0015 = ╱4b╱K╱ // 0x321b @0x15
0x3206…322a at0016 = ╱47╱G╱ // 0x321c @0x16
0x3206…322a at0017 = ╱52╱R╱ // 0x321d @0x17
0x3206…322a at0018 = ╱ef╱$╱ // 0x321e @0x18
0x3206…322a at0019 = ╱ee╱)╱ // 0x321f @0x19
0x3206…322a at001a = ╱e3╱-╱ // 0x3220 @0x1a
0x3206…322a at001b = ╱34╱4╱ // 0x3221 @0x1b
0x3206…322a at001c = ╱38╱8╱ // 0x3222 @0x1c
0x3206…322a at001d = ╱fe0000c006╱ // 0x3223 @0x1d
0x3206…322a at0022 = ╱ee╱)╱ // 0x3228 @0x22
0x3206…322a at0023 = EOL // 0x3229 @0x23
0x3206…322a }
0x322a…3240 bf97 6110 EXEC KINDSLET(1)
0x322a…3240 LineComalBin {
0x322a…3240 ptr = 0xbf97 // 0x322a @0x0
0x322a…3240 lno = 0x17de // 0x322c @0x2
0x322a…3240 at0004 = ╱9d╱ EXEC ╱ // 0x322e @0x4
0x322a…3240 at0005 = ╱4b╱K╱ // 0x322f @0x5
0x322a…3240 at0006 = ╱49╱I╱ // 0x3230 @0x6
0x322a…3240 at0007 = ╱4e╱N╱ // 0x3231 @0x7
0x322a…3240 at0008 = ╱44╱D╱ // 0x3232 @0x8
0x322a…3240 at0009 = ╱53╱S╱ // 0x3233 @0x9
0x322a…3240 at000a = ╱4c╱L╱ // 0x3234 @0xa
0x322a…3240 at000b = ╱45╱E╱ // 0x3235 @0xb
0x322a…3240 at000c = ╱54╱T╱ // 0x3236 @0xc
0x322a…3240 at000d = ╱ed╱(╱ // 0x3237 @0xd
0x322a…3240 at000e = ╱31╱1╱ // 0x3238 @0xe
0x322a…3240 at000f = ╱fe00008001╱ // 0x3239 @0xf
0x322a…3240 at0014 = ╱ee╱)╱ // 0x323e @0x14
0x322a…3240 at0015 = EOL // 0x323f @0x15
0x322a…3240 }
0x3240…3268 bfbf 6120 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3)
0x3240…3268 LineComalBin {
0x3240…3268 ptr = 0xbfbf // 0x3240 @0x0
0x3240…3268 lno = 0x17e8 // 0x3242 @0x2
0x3240…3268 at0004 = ╱9d╱ EXEC ╱ // 0x3244 @0x4
0x3240…3268 at0005 = ╱46╱F╱ // 0x3245 @0x5
0x3240…3268 at0006 = ╱49╱I╱ // 0x3246 @0x6
0x3240…3268 at0007 = ╱4e╱N╱ // 0x3247 @0x7
0x3240…3268 at0008 = ╱44╱D╱ // 0x3248 @0x8
0x3240…3268 at0009 = ╱50╱P╱ // 0x3249 @0x9
0x3240…3268 at000a = ╱4f╱O╱ // 0x324a @0xa
0x3240…3268 at000b = ╱53╱S╱ // 0x324b @0xb
0x3240…3268 at000c = ╱54╱T╱ // 0x324c @0xc
0x3240…3268 at000d = ╱ed╱(╱ // 0x324d @0xd
0x3240…3268 at000e = ╱44╱D╱ // 0x324e @0xe
0x3240…3268 at000f = ╱54╱T╱ // 0x324f @0xf
0x3240…3268 at0010 = ╱41╱A╱ // 0x3250 @0x10
0x3240…3268 at0011 = ╱42╱B╱ // 0x3251 @0x11
0x3240…3268 at0012 = ╱ec╱,╱ // 0x3252 @0x12
0x3240…3268 at0013 = ╱4d╱M╱ // 0x3253 @0x13
0x3240…3268 at0014 = ╱44╱D╱ // 0x3254 @0x14
0x3240…3268 at0015 = ╱41╱A╱ // 0x3255 @0x15
0x3240…3268 at0016 = ╱4e╱N╱ // 0x3256 @0x16
0x3240…3268 at0017 = ╱54╱T╱ // 0x3257 @0x17
0x3240…3268 at0018 = ╱41╱A╱ // 0x3258 @0x18
0x3240…3268 at0019 = ╱4c╱L╱ // 0x3259 @0x19
0x3240…3268 at001a = ╱ec╱,╱ // 0x325a @0x1a
0x3240…3268 at001b = ╱44╱D╱ // 0x325b @0x1b
0x3240…3268 at001c = ╱45╱E╱ // 0x325c @0x1c
0x3240…3268 at001d = ╱42╱B╱ // 0x325d @0x1d
0x3240…3268 at001e = ╱4e╱N╱ // 0x325e @0x1e
0x3240…3268 at001f = ╱52╱R╱ // 0x325f @0x1f
0x3240…3268 at0020 = ╱ec╱,╱ // 0x3260 @0x20
0x3240…3268 at0021 = ╱44╱D╱ // 0x3261 @0x21
0x3240…3268 at0022 = ╱50╱P╱ // 0x3262 @0x22
0x3240…3268 at0023 = ╱49╱I╱ // 0x3263 @0x23
0x3240…3268 at0024 = ╱4c╱L╱ // 0x3264 @0x24
0x3240…3268 at0025 = ╱33╱3╱ // 0x3265 @0x25
0x3240…3268 at0026 = ╱ee╱)╱ // 0x3266 @0x26
0x3240…3268 at0027 = EOL // 0x3267 @0x27
0x3240…3268 }
0x3268…328b bfe2 6130 EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3)
0x3268…328b LineComalBin {
0x3268…328b ptr = 0xbfe2 // 0x3268 @0x0
0x3268…328b lno = 0x17f2 // 0x326a @0x2
0x3268…328b at0004 = ╱9d╱ EXEC ╱ // 0x326c @0x4
0x3268…328b at0005 = ╱49╱I╱ // 0x326d @0x5
0x3268…328b at0006 = ╱4e╱N╱ // 0x326e @0x6
0x3268…328b at0007 = ╱44╱D╱ // 0x326f @0x7
0x3268…328b at0008 = ╱53╱S╱ // 0x3270 @0x8
0x3268…328b at0009 = ╱5b╱Æ╱ // 0x3271 @0x9
0x3268…328b at000a = ╱54╱T╱ // 0x3272 @0xa
0x3268…328b at000b = ╱ed╱(╱ // 0x3273 @0xb
0x3268…328b at000c = ╱44╱D╱ // 0x3274 @0xc
0x3268…328b at000d = ╱54╱T╱ // 0x3275 @0xd
0x3268…328b at000e = ╱41╱A╱ // 0x3276 @0xe
0x3268…328b at000f = ╱42╱B╱ // 0x3277 @0xf
0x3268…328b at0010 = ╱ec╱,╱ // 0x3278 @0x10
0x3268…328b at0011 = ╱41╱A╱ // 0x3279 @0x11
0x3268…328b at0012 = ╱44╱D╱ // 0x327a @0x12
0x3268…328b at0013 = ╱45╱E╱ // 0x327b @0x13
0x3268…328b at0014 = ╱42╱B╱ // 0x327c @0x14
0x3268…328b at0015 = ╱ec╱,╱ // 0x327d @0x15
0x3268…328b at0016 = ╱44╱D╱ // 0x327e @0x16
0x3268…328b at0017 = ╱45╱E╱ // 0x327f @0x17
0x3268…328b at0018 = ╱42╱B╱ // 0x3280 @0x18
0x3268…328b at0019 = ╱4e╱N╱ // 0x3281 @0x19
0x3268…328b at001a = ╱52╱R╱ // 0x3282 @0x1a
0x3268…328b at001b = ╱ec╱,╱ // 0x3283 @0x1b
0x3268…328b at001c = ╱44╱D╱ // 0x3284 @0x1c
0x3268…328b at001d = ╱50╱P╱ // 0x3285 @0x1d
0x3268…328b at001e = ╱49╱I╱ // 0x3286 @0x1e
0x3268…328b at001f = ╱4c╱L╱ // 0x3287 @0x1f
0x3268…328b at0020 = ╱33╱3╱ // 0x3288 @0x20
0x3268…328b at0021 = ╱ee╱)╱ // 0x3289 @0x21
0x3268…328b at0022 = EOL // 0x328a @0x22
0x3268…328b }
0x328b…3299 bff0 6140 EXEC GEMDPOST
0x328b…3299 LineComalBin {
0x328b…3299 ptr = 0xbff0 // 0x328b @0x0
0x328b…3299 lno = 0x17fc // 0x328d @0x2
0x328b…3299 at0004 = ╱9d╱ EXEC ╱ // 0x328f @0x4
0x328b…3299 at0005 = ╱47╱G╱ // 0x3290 @0x5
0x328b…3299 at0006 = ╱45╱E╱ // 0x3291 @0x6
0x328b…3299 at0007 = ╱4d╱M╱ // 0x3292 @0x7
0x328b…3299 at0008 = ╱44╱D╱ // 0x3293 @0x8
0x328b…3299 at0009 = ╱50╱P╱ // 0x3294 @0x9
0x328b…3299 at000a = ╱4f╱O╱ // 0x3295 @0xa
0x328b…3299 at000b = ╱53╱S╱ // 0x3296 @0xb
0x328b…3299 at000c = ╱54╱T╱ // 0x3297 @0xc
0x328b…3299 at000d = EOL // 0x3298 @0xd
0x328b…3299 }
0x3299…329f bff6 6150 ELSE
0x3299…329f LineComalBin {
0x3299…329f ptr = 0xbff6 // 0x3299 @0x0
0x3299…329f lno = 0x1806 // 0x329b @0x2
0x3299…329f at0004 = ╱9a╱ ELSE ╱ // 0x329d @0x4
0x3299…329f at0005 = EOL // 0x329e @0x5
0x3299…329f }
0x329f…32c7 c01e 6160 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3)
0x329f…32c7 LineComalBin {
0x329f…32c7 ptr = 0xc01e // 0x329f @0x0
0x329f…32c7 lno = 0x1810 // 0x32a1 @0x2
0x329f…32c7 at0004 = ╱9d╱ EXEC ╱ // 0x32a3 @0x4
0x329f…32c7 at0005 = ╱46╱F╱ // 0x32a4 @0x5
0x329f…32c7 at0006 = ╱49╱I╱ // 0x32a5 @0x6
0x329f…32c7 at0007 = ╱4e╱N╱ // 0x32a6 @0x7
0x329f…32c7 at0008 = ╱44╱D╱ // 0x32a7 @0x8
0x329f…32c7 at0009 = ╱50╱P╱ // 0x32a8 @0x9
0x329f…32c7 at000a = ╱4f╱O╱ // 0x32a9 @0xa
0x329f…32c7 at000b = ╱53╱S╱ // 0x32aa @0xb
0x329f…32c7 at000c = ╱54╱T╱ // 0x32ab @0xc
0x329f…32c7 at000d = ╱ed╱(╱ // 0x32ac @0xd
0x329f…32c7 at000e = ╱44╱D╱ // 0x32ad @0xe
0x329f…32c7 at000f = ╱54╱T╱ // 0x32ae @0xf
0x329f…32c7 at0010 = ╱41╱A╱ // 0x32af @0x10
0x329f…32c7 at0011 = ╱42╱B╱ // 0x32b0 @0x11
0x329f…32c7 at0012 = ╱ec╱,╱ // 0x32b1 @0x12
0x329f…32c7 at0013 = ╱4d╱M╱ // 0x32b2 @0x13
0x329f…32c7 at0014 = ╱44╱D╱ // 0x32b3 @0x14
0x329f…32c7 at0015 = ╱41╱A╱ // 0x32b4 @0x15
0x329f…32c7 at0016 = ╱4e╱N╱ // 0x32b5 @0x16
0x329f…32c7 at0017 = ╱54╱T╱ // 0x32b6 @0x17
0x329f…32c7 at0018 = ╱41╱A╱ // 0x32b7 @0x18
0x329f…32c7 at0019 = ╱4c╱L╱ // 0x32b8 @0x19
0x329f…32c7 at001a = ╱ec╱,╱ // 0x32b9 @0x1a
0x329f…32c7 at001b = ╱44╱D╱ // 0x32ba @0x1b
0x329f…32c7 at001c = ╱45╱E╱ // 0x32bb @0x1c
0x329f…32c7 at001d = ╱42╱B╱ // 0x32bc @0x1d
0x329f…32c7 at001e = ╱4e╱N╱ // 0x32bd @0x1e
0x329f…32c7 at001f = ╱52╱R╱ // 0x32be @0x1f
0x329f…32c7 at0020 = ╱ec╱,╱ // 0x32bf @0x20
0x329f…32c7 at0021 = ╱44╱D╱ // 0x32c0 @0x21
0x329f…32c7 at0022 = ╱50╱P╱ // 0x32c1 @0x22
0x329f…32c7 at0023 = ╱49╱I╱ // 0x32c2 @0x23
0x329f…32c7 at0024 = ╱4c╱L╱ // 0x32c3 @0x24
0x329f…32c7 at0025 = ╱33╱3╱ // 0x32c4 @0x25
0x329f…32c7 at0026 = ╱ee╱)╱ // 0x32c5 @0x26
0x329f…32c7 at0027 = EOL // 0x32c6 @0x27
0x329f…32c7 }
0x32c7…32d5 c02c 6170 EXEC GEMDPOST
0x32c7…32d5 LineComalBin {
0x32c7…32d5 ptr = 0xc02c // 0x32c7 @0x0
0x32c7…32d5 lno = 0x181a // 0x32c9 @0x2
0x32c7…32d5 at0004 = ╱9d╱ EXEC ╱ // 0x32cb @0x4
0x32c7…32d5 at0005 = ╱47╱G╱ // 0x32cc @0x5
0x32c7…32d5 at0006 = ╱45╱E╱ // 0x32cd @0x6
0x32c7…32d5 at0007 = ╱4d╱M╱ // 0x32ce @0x7
0x32c7…32d5 at0008 = ╱44╱D╱ // 0x32cf @0x8
0x32c7…32d5 at0009 = ╱50╱P╱ // 0x32d0 @0x9
0x32c7…32d5 at000a = ╱4f╱O╱ // 0x32d1 @0xa
0x32c7…32d5 at000b = ╱53╱S╱ // 0x32d2 @0xb
0x32c7…32d5 at000c = ╱54╱T╱ // 0x32d3 @0xc
0x32c7…32d5 at000d = EOL // 0x32d4 @0xd
0x32c7…32d5 }
0x32d5…32db (169,) c032 6180 ENDIF
0x32d5…32db LineComalBin {
0x32d5…32db ptr = 0xc032 // 0x32d5 @0x0
0x32d5…32db lno = 0x1824 // 0x32d7 @0x2
0x32d5…32db at0004 = ╱9b╱ ENDIF ╱ // 0x32d9 @0x4
0x32d5…32db at0005 = EOL // 0x32da @0x5
0x32d5…32db }
0x32db…32e3 c03a 6190 WHEN V
0x32db…32e3 LineComalBin {
0x32db…32e3 ptr = 0xc03a // 0x32db @0x0
0x32db…32e3 lno = 0x182e // 0x32dd @0x2
0x32db…32e3 at0004 = ╱a301╱ WHEN ╱ // 0x32df @0x4
0x32db…32e3 at0006 = ╱56╱V╱ // 0x32e1 @0x6
0x32db…32e3 at0007 = EOL // 0x32e2 @0x7
0x32db…32e3 }
0x32e3…32e9 c040 6200 REPEAT
0x32e3…32e9 LineComalBin {
0x32e3…32e9 ptr = 0xc040 // 0x32e3 @0x0
0x32e3…32e9 lno = 0x1838 // 0x32e5 @0x2
0x32e3…32e9 at0004 = ╱97╱ REPEAT ╱ // 0x32e7 @0x4
0x32e3…32e9 at0005 = EOL // 0x32e8 @0x5
0x32e3…32e9 }
0x32e9…32f8 c04f 6210 CURSOR V,23
0x32e9…32f8 LineComalBin {
0x32e9…32f8 ptr = 0xc04f // 0x32e9 @0x0
0x32e9…32f8 lno = 0x1842 // 0x32eb @0x2
0x32e9…32f8 at0004 = ╱a1╱ CURSOR ╱ // 0x32ed @0x4
0x32e9…32f8 at0005 = ╱56╱V╱ // 0x32ee @0x5
0x32e9…32f8 at0006 = ╱ec╱,╱ // 0x32ef @0x6
0x32e9…32f8 at0007 = ╱32╱2╱ // 0x32f0 @0x7
0x32e9…32f8 at0008 = ╱33╱3╱ // 0x32f1 @0x8
0x32e9…32f8 at0009 = ╱fe0000b805╱ // 0x32f2 @0x9
0x32e9…32f8 at000e = EOL // 0x32f7 @0xe
0x32e9…32f8 }
0x32f8…332b c082 6220 PRINT "Er det rigtigt at denne konto skal slettes";
0x32f8…332b LineComalBin {
0x32f8…332b ptr = 0xc082 // 0x32f8 @0x0
0x32f8…332b lno = 0x184c // 0x32fa @0x2
0x32f8…332b at0004 = ╱92╱ PRINT ╱ // 0x32fc @0x4
0x32f8…332b at0005 = ╱22╱"╱ // 0x32fd @0x5
0x32f8…332b at0006 = ╱45╱E╱ // 0x32fe @0x6
0x32f8…332b at0007 = ╱72╱r╱ // 0x32ff @0x7
0x32f8…332b at0008 = ╱20╱…╱ // 0x3300 @0x8
0x32f8…332b at0009 = ╱64╱d╱ // 0x3301 @0x9
0x32f8…332b at000a = ╱65╱e╱ // 0x3302 @0xa
0x32f8…332b at000b = ╱74╱t╱ // 0x3303 @0xb
0x32f8…332b at000c = ╱20╱…╱ // 0x3304 @0xc
0x32f8…332b at000d = ╱72╱r╱ // 0x3305 @0xd
0x32f8…332b at000e = ╱69╱i╱ // 0x3306 @0xe
0x32f8…332b at000f = ╱67╱g╱ // 0x3307 @0xf
0x32f8…332b at0010 = ╱74╱t╱ // 0x3308 @0x10
0x32f8…332b at0011 = ╱69╱i╱ // 0x3309 @0x11
0x32f8…332b at0012 = ╱67╱g╱ // 0x330a @0x12
0x32f8…332b at0013 = ╱74╱t╱ // 0x330b @0x13
0x32f8…332b at0014 = ╱20╱…╱ // 0x330c @0x14
0x32f8…332b at0015 = ╱61╱a╱ // 0x330d @0x15
0x32f8…332b at0016 = ╱74╱t╱ // 0x330e @0x16
0x32f8…332b at0017 = ╱20╱…╱ // 0x330f @0x17
0x32f8…332b at0018 = ╱64╱d╱ // 0x3310 @0x18
0x32f8…332b at0019 = ╱65╱e╱ // 0x3311 @0x19
0x32f8…332b at001a = ╱6e╱n╱ // 0x3312 @0x1a
0x32f8…332b at001b = ╱6e╱n╱ // 0x3313 @0x1b
0x32f8…332b at001c = ╱65╱e╱ // 0x3314 @0x1c
0x32f8…332b at001d = ╱20╱…╱ // 0x3315 @0x1d
0x32f8…332b at001e = ╱6b╱k╱ // 0x3316 @0x1e
0x32f8…332b at001f = ╱6f╱o╱ // 0x3317 @0x1f
0x32f8…332b at0020 = ╱6e╱n╱ // 0x3318 @0x20
0x32f8…332b at0021 = ╱74╱t╱ // 0x3319 @0x21
0x32f8…332b at0022 = ╱6f╱o╱ // 0x331a @0x22
0x32f8…332b at0023 = ╱20╱…╱ // 0x331b @0x23
0x32f8…332b at0024 = ╱73╱s╱ // 0x331c @0x24
0x32f8…332b at0025 = ╱6b╱k╱ // 0x331d @0x25
0x32f8…332b at0026 = ╱61╱a╱ // 0x331e @0x26
0x32f8…332b at0027 = ╱6c╱l╱ // 0x331f @0x27
0x32f8…332b at0028 = ╱20╱…╱ // 0x3320 @0x28
0x32f8…332b at0029 = ╱73╱s╱ // 0x3321 @0x29
0x32f8…332b at002a = ╱6c╱l╱ // 0x3322 @0x2a
0x32f8…332b at002b = ╱65╱e╱ // 0x3323 @0x2b
0x32f8…332b at002c = ╱74╱t╱ // 0x3324 @0x2c
0x32f8…332b at002d = ╱74╱t╱ // 0x3325 @0x2d
0x32f8…332b at002e = ╱65╱e╱ // 0x3326 @0x2e
0x32f8…332b at002f = ╱73╱s╱ // 0x3327 @0x2f
0x32f8…332b at0030 = ╱22╱"╱ // 0x3328 @0x30
0x32f8…332b at0031 = ╱eb╱;╱ // 0x3329 @0x31
0x32f8…332b at0032 = EOL // 0x332a @0x32
0x32f8…332b }
0x332b…3351 c0a8 6230 PRINT " (J/N)";BLANK$(E:23)
0x332b…3351 LineComalBin {
0x332b…3351 ptr = 0xc0a8 // 0x332b @0x0
0x332b…3351 lno = 0x1856 // 0x332d @0x2
0x332b…3351 at0004 = ╱92╱ PRINT ╱ // 0x332f @0x4
0x332b…3351 at0005 = ╱22╱"╱ // 0x3330 @0x5
0x332b…3351 at0006 = ╱20╱…╱ // 0x3331 @0x6
0x332b…3351 at0007 = ╱20╱…╱ // 0x3332 @0x7
0x332b…3351 at0008 = ╱20╱…╱ // 0x3333 @0x8
0x332b…3351 at0009 = ╱20╱…╱ // 0x3334 @0x9
0x332b…3351 at000a = ╱20╱…╱ // 0x3335 @0xa
0x332b…3351 at000b = ╱20╱…╱ // 0x3336 @0xb
0x332b…3351 at000c = ╱20╱…╱ // 0x3337 @0xc
0x332b…3351 at000d = ╱28╱(╱ // 0x3338 @0xd
0x332b…3351 at000e = ╱4a╱J╱ // 0x3339 @0xe
0x332b…3351 at000f = ╱2f╱/╱ // 0x333a @0xf
0x332b…3351 at0010 = ╱4e╱N╱ // 0x333b @0x10
0x332b…3351 at0011 = ╱29╱)╱ // 0x333c @0x11
0x332b…3351 at0012 = ╱22╱"╱ // 0x333d @0x12
0x332b…3351 at0013 = ╱eb╱;╱ // 0x333e @0x13
0x332b…3351 at0014 = ╱42╱B╱ // 0x333f @0x14
0x332b…3351 at0015 = ╱4c╱L╱ // 0x3340 @0x15
0x332b…3351 at0016 = ╱41╱A╱ // 0x3341 @0x16
0x332b…3351 at0017 = ╱4e╱N╱ // 0x3342 @0x17
0x332b…3351 at0018 = ╱4b╱K╱ // 0x3343 @0x18
0x332b…3351 at0019 = ╱ef╱$╱ // 0x3344 @0x19
0x332b…3351 at001a = ╱ed╱(╱ // 0x3345 @0x1a
0x332b…3351 at001b = ╱45╱E╱ // 0x3346 @0x1b
0x332b…3351 at001c = ╱f0╱:╱ // 0x3347 @0x1c
0x332b…3351 at001d = ╱32╱2╱ // 0x3348 @0x1d
0x332b…3351 at001e = ╱33╱3╱ // 0x3349 @0x1e
0x332b…3351 at001f = ╱fe0000b805╱ // 0x334a @0x1f
0x332b…3351 at0024 = ╱ee╱)╱ // 0x334f @0x24
0x332b…3351 at0025 = EOL // 0x3350 @0x25
0x332b…3351 }
0x3351…3366 c0bd 6240 CURSOR 48,23
0x3351…3366 LineComalBin {
0x3351…3366 ptr = 0xc0bd // 0x3351 @0x0
0x3351…3366 lno = 0x1860 // 0x3353 @0x2
0x3351…3366 at0004 = ╱a1╱ CURSOR ╱ // 0x3355 @0x4
0x3351…3366 at0005 = ╱34╱4╱ // 0x3356 @0x5
0x3351…3366 at0006 = ╱38╱8╱ // 0x3357 @0x6
0x3351…3366 at0007 = ╱fe0000c006╱ // 0x3358 @0x7
0x3351…3366 at000c = ╱ec╱,╱ // 0x335d @0xc
0x3351…3366 at000d = ╱32╱2╱ // 0x335e @0xd
0x3351…3366 at000e = ╱33╱3╱ // 0x335f @0xe
0x3351…3366 at000f = ╱fe0000b805╱ // 0x3360 @0xf
0x3351…3366 at0014 = EOL // 0x3365 @0x14
0x3351…3366 }
0x3366…336e c0c5 6250 INPUT A$
0x3366…336e LineComalBin {
0x3366…336e ptr = 0xc0c5 // 0x3366 @0x0
0x3366…336e lno = 0x186a // 0x3368 @0x2
0x3366…336e at0004 = ╱91╱ INPUT ╱ // 0x336a @0x4
0x3366…336e at0005 = ╱41╱A╱ // 0x336b @0x5
0x3366…336e at0006 = ╱ef╱$╱ // 0x336c @0x6
0x3366…336e at0007 = EOL // 0x336d @0x7
0x3366…336e }
0x336e…337e c0d5 6260 EXEC NRTEST(A$)
0x336e…337e LineComalBin {
0x336e…337e ptr = 0xc0d5 // 0x336e @0x0
0x336e…337e lno = 0x1874 // 0x3370 @0x2
0x336e…337e at0004 = ╱9d╱ EXEC ╱ // 0x3372 @0x4
0x336e…337e at0005 = ╱4e╱N╱ // 0x3373 @0x5
0x336e…337e at0006 = ╱52╱R╱ // 0x3374 @0x6
0x336e…337e at0007 = ╱54╱T╱ // 0x3375 @0x7
0x336e…337e at0008 = ╱45╱E╱ // 0x3376 @0x8
0x336e…337e at0009 = ╱53╱S╱ // 0x3377 @0x9
0x336e…337e at000a = ╱54╱T╱ // 0x3378 @0xa
0x336e…337e at000b = ╱ed╱(╱ // 0x3379 @0xb
0x336e…337e at000c = ╱41╱A╱ // 0x337a @0xc
0x336e…337e at000d = ╱ef╱$╱ // 0x337b @0xd
0x336e…337e at000e = ╱ee╱)╱ // 0x337c @0xe
0x336e…337e at000f = EOL // 0x337d @0xf
0x336e…337e }
0x337e…3397 c0ee 6270 UNTIL P=-7 OR P=-8
0x337e…3397 LineComalBin {
0x337e…3397 ptr = 0xc0ee // 0x337e @0x0
0x337e…3397 lno = 0x187e // 0x3380 @0x2
0x337e…3397 at0004 = ╱98╱ UNTIL ╱ // 0x3382 @0x4
0x337e…3397 at0005 = ╱50╱P╱ // 0x3383 @0x5
0x337e…3397 at0006 = ╱dc╱=╱ // 0x3384 @0x6
0x337e…3397 at0007 = ╱e9╱-╱ // 0x3385 @0x7
0x337e…3397 at0008 = ╱37╱7╱ // 0x3386 @0x8
0x337e…3397 at0009 = ╱fe0000e003╱ // 0x3387 @0x9
0x337e…3397 at000e = ╱db╱ OR ╱ // 0x338c @0xe
0x337e…3397 at000f = ╱50╱P╱ // 0x338d @0xf
0x337e…3397 at0010 = ╱dc╱=╱ // 0x338e @0x10
0x337e…3397 at0011 = ╱e9╱-╱ // 0x338f @0x11
0x337e…3397 at0012 = ╱38╱8╱ // 0x3390 @0x12
0x337e…3397 at0013 = ╱fe00008004╱ // 0x3391 @0x13
0x337e…3397 at0018 = EOL // 0x3396 @0x18
0x337e…3397 }
0x3397…33a7 c0fe 6280 IF P=-7 THEN
0x3397…33a7 LineComalBin {
0x3397…33a7 ptr = 0xc0fe // 0x3397 @0x0
0x3397…33a7 lno = 0x1888 // 0x3399 @0x2
0x3397…33a7 at0004 = ╱9c╱ IF ╱ // 0x339b @0x4
0x3397…33a7 at0005 = ╱50╱P╱ // 0x339c @0x5
0x3397…33a7 at0006 = ╱dc╱=╱ // 0x339d @0x6
0x3397…33a7 at0007 = ╱e9╱-╱ // 0x339e @0x7
0x3397…33a7 at0008 = ╱37╱7╱ // 0x339f @0x8
0x3397…33a7 at0009 = ╱fe0000e003╱ // 0x33a0 @0x9
0x3397…33a7 at000e = ╱b6╱ THEN ╱ // 0x33a5 @0xe
0x3397…33a7 at000f = EOL // 0x33a6 @0xf
0x3397…33a7 }
0x33a7…33cb c122 6290 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48)
0x33a7…33cb LineComalBin {
0x33a7…33cb ptr = 0xc122 // 0x33a7 @0x0
0x33a7…33cb lno = 0x1892 // 0x33a9 @0x2
0x33a7…33cb at0004 = ╱9d╱ EXEC ╱ // 0x33ab @0x4
0x33a7…33cb at0005 = ╱4b╱K╱ // 0x33ac @0x5
0x33a7…33cb at0006 = ╱53╱S╱ // 0x33ad @0x6
0x33a7…33cb at0007 = ╱5c╱Ø╱ // 0x33ae @0x7
0x33a7…33cb at0008 = ╱47╱G╱ // 0x33af @0x8
0x33a7…33cb at0009 = ╱ed╱(╱ // 0x33b0 @0x9
0x33a7…33cb at000a = ╱44╱D╱ // 0x33b1 @0xa
0x33a7…33cb at000b = ╱45╱E╱ // 0x33b2 @0xb
0x33a7…33cb at000c = ╱42╱B╱ // 0x33b3 @0xc
0x33a7…33cb at000d = ╱4e╱N╱ // 0x33b4 @0xd
0x33a7…33cb at000e = ╱52╱R╱ // 0x33b5 @0xe
0x33a7…33cb at000f = ╱ec╱,╱ // 0x33b6 @0xf
0x33a7…33cb at0010 = ╱cd╱ORD╱ // 0x33b7 @0x10
0x33a7…33cb at0011 = ╱ed╱(╱ // 0x33b8 @0x11
0x33a7…33cb at0012 = ╱44╱D╱ // 0x33b9 @0x12
0x33a7…33cb at0013 = ╱45╱E╱ // 0x33ba @0x13
0x33a7…33cb at0014 = ╱42╱B╱ // 0x33bb @0x14
0x33a7…33cb at0015 = ╱4b╱K╱ // 0x33bc @0x15
0x33a7…33cb at0016 = ╱47╱G╱ // 0x33bd @0x16
0x33a7…33cb at0017 = ╱52╱R╱ // 0x33be @0x17
0x33a7…33cb at0018 = ╱ef╱$╱ // 0x33bf @0x18
0x33a7…33cb at0019 = ╱ee╱)╱ // 0x33c0 @0x19
0x33a7…33cb at001a = ╱e3╱-╱ // 0x33c1 @0x1a
0x33a7…33cb at001b = ╱34╱4╱ // 0x33c2 @0x1b
0x33a7…33cb at001c = ╱38╱8╱ // 0x33c3 @0x1c
0x33a7…33cb at001d = ╱fe0000c006╱ // 0x33c4 @0x1d
0x33a7…33cb at0022 = ╱ee╱)╱ // 0x33c9 @0x22
0x33a7…33cb at0023 = EOL // 0x33ca @0x23
0x33a7…33cb }
0x33cb…33e1 c138 6300 EXEC KINDSLET(0)
0x33cb…33e1 LineComalBin {
0x33cb…33e1 ptr = 0xc138 // 0x33cb @0x0
0x33cb…33e1 lno = 0x189c // 0x33cd @0x2
0x33cb…33e1 at0004 = ╱9d╱ EXEC ╱ // 0x33cf @0x4
0x33cb…33e1 at0005 = ╱4b╱K╱ // 0x33d0 @0x5
0x33cb…33e1 at0006 = ╱49╱I╱ // 0x33d1 @0x6
0x33cb…33e1 at0007 = ╱4e╱N╱ // 0x33d2 @0x7
0x33cb…33e1 at0008 = ╱44╱D╱ // 0x33d3 @0x8
0x33cb…33e1 at0009 = ╱53╱S╱ // 0x33d4 @0x9
0x33cb…33e1 at000a = ╱4c╱L╱ // 0x33d5 @0xa
0x33cb…33e1 at000b = ╱45╱E╱ // 0x33d6 @0xb
0x33cb…33e1 at000c = ╱54╱T╱ // 0x33d7 @0xc
0x33cb…33e1 at000d = ╱ed╱(╱ // 0x33d8 @0xd
0x33cb…33e1 at000e = ╱30╱0╱ // 0x33d9 @0xe
0x33cb…33e1 at000f = ╱fe00000000╱ // 0x33da @0xf
0x33cb…33e1 at0014 = ╱ee╱)╱ // 0x33df @0x14
0x33cb…33e1 at0015 = EOL // 0x33e0 @0x15
0x33cb…33e1 }
0x33e1…33f7 c14e 6310 EXEC SLETDPOST(DEBNR)
0x33e1…33f7 LineComalBin {
0x33e1…33f7 ptr = 0xc14e // 0x33e1 @0x0
0x33e1…33f7 lno = 0x18a6 // 0x33e3 @0x2
0x33e1…33f7 at0004 = ╱9d╱ EXEC ╱ // 0x33e5 @0x4
0x33e1…33f7 at0005 = ╱53╱S╱ // 0x33e6 @0x5
0x33e1…33f7 at0006 = ╱4c╱L╱ // 0x33e7 @0x6
0x33e1…33f7 at0007 = ╱45╱E╱ // 0x33e8 @0x7
0x33e1…33f7 at0008 = ╱54╱T╱ // 0x33e9 @0x8
0x33e1…33f7 at0009 = ╱44╱D╱ // 0x33ea @0x9
0x33e1…33f7 at000a = ╱50╱P╱ // 0x33eb @0xa
0x33e1…33f7 at000b = ╱4f╱O╱ // 0x33ec @0xb
0x33e1…33f7 at000c = ╱53╱S╱ // 0x33ed @0xc
0x33e1…33f7 at000d = ╱54╱T╱ // 0x33ee @0xd
0x33e1…33f7 at000e = ╱ed╱(╱ // 0x33ef @0xe
0x33e1…33f7 at000f = ╱44╱D╱ // 0x33f0 @0xf
0x33e1…33f7 at0010 = ╱45╱E╱ // 0x33f1 @0x10
0x33e1…33f7 at0011 = ╱42╱B╱ // 0x33f2 @0x11
0x33e1…33f7 at0012 = ╱4e╱N╱ // 0x33f3 @0x12
0x33e1…33f7 at0013 = ╱52╱R╱ // 0x33f4 @0x13
0x33e1…33f7 at0014 = ╱ee╱)╱ // 0x33f5 @0x14
0x33e1…33f7 at0015 = EOL // 0x33f6 @0x15
0x33e1…33f7 }
0x33f7…33fd c154 6320 ENDIF
0x33f7…33fd LineComalBin {
0x33f7…33fd ptr = 0xc154 // 0x33f7 @0x0
0x33f7…33fd lno = 0x18b0 // 0x33f9 @0x2
0x33f7…33fd at0004 = ╱9b╱ ENDIF ╱ // 0x33fb @0x4
0x33f7…33fd at0005 = EOL // 0x33fc @0x5
0x33f7…33fd }
0x33fd…340a c161 6330 WHEN 4
0x33fd…340a LineComalBin {
0x33fd…340a ptr = 0xc161 // 0x33fd @0x0
0x33fd…340a lno = 0x18ba // 0x33ff @0x2
0x33fd…340a at0004 = ╱a301╱ WHEN ╱ // 0x3401 @0x4
0x33fd…340a at0006 = ╱34╱4╱ // 0x3403 @0x6
0x33fd…340a at0007 = ╱fe00008003╱ // 0x3404 @0x7
0x33fd…340a at000c = EOL // 0x3409 @0xc
0x33fd…340a }
0x340a…3417 c16e 6340 WHEN 5
0x340a…3417 LineComalBin {
0x340a…3417 ptr = 0xc16e // 0x340a @0x0
0x340a…3417 lno = 0x18c4 // 0x340c @0x2
0x340a…3417 at0004 = ╱a301╱ WHEN ╱ // 0x340e @0x4
0x340a…3417 at0006 = ╱35╱5╱ // 0x3410 @0x6
0x340a…3417 at0007 = ╱fe0000a003╱ // 0x3411 @0x7
0x340a…3417 at000c = EOL // 0x3416 @0xc
0x340a…3417 }
0x3417…341d c174 6350 REPEAT
0x3417…341d LineComalBin {
0x3417…341d ptr = 0xc174 // 0x3417 @0x0
0x3417…341d lno = 0x18ce // 0x3419 @0x2
0x3417…341d at0004 = ╱97╱ REPEAT ╱ // 0x341b @0x4
0x3417…341d at0005 = EOL // 0x341c @0x5
0x3417…341d }
0x341d…3423 c17a 6360 REPEAT
0x341d…3423 LineComalBin {
0x341d…3423 ptr = 0xc17a // 0x341d @0x0
0x341d…3423 lno = 0x18d8 // 0x341f @0x2
0x341d…3423 at0004 = ╱97╱ REPEAT ╱ // 0x3421 @0x4
0x341d…3423 at0005 = EOL // 0x3422 @0x5
0x341d…3423 }
0x3423…3432 c189 6370 CURSOR V,23
0x3423…3432 LineComalBin {
0x3423…3432 ptr = 0xc189 // 0x3423 @0x0
0x3423…3432 lno = 0x18e2 // 0x3425 @0x2
0x3423…3432 at0004 = ╱a1╱ CURSOR ╱ // 0x3427 @0x4
0x3423…3432 at0005 = ╱56╱V╱ // 0x3428 @0x5
0x3423…3432 at0006 = ╱ec╱,╱ // 0x3429 @0x6
0x3423…3432 at0007 = ╱32╱2╱ // 0x342a @0x7
0x3423…3432 at0008 = ╱33╱3╱ // 0x342b @0x8
0x3423…3432 at0009 = ╱fe0000b805╱ // 0x342c @0x9
0x3423…3432 at000e = EOL // 0x3431 @0xe
0x3423…3432 }
0x3432…3456 c1ad 6380 PRINT "Fra kundenr (0: Alle)"
0x3432…3456 LineComalBin {
0x3432…3456 ptr = 0xc1ad // 0x3432 @0x0
0x3432…3456 lno = 0x18ec // 0x3434 @0x2
0x3432…3456 at0004 = ╱92╱ PRINT ╱ // 0x3436 @0x4
0x3432…3456 at0005 = ╱22╱"╱ // 0x3437 @0x5
0x3432…3456 at0006 = ╱46╱F╱ // 0x3438 @0x6
0x3432…3456 at0007 = ╱72╱r╱ // 0x3439 @0x7
0x3432…3456 at0008 = ╱61╱a╱ // 0x343a @0x8
0x3432…3456 at0009 = ╱20╱…╱ // 0x343b @0x9
0x3432…3456 at000a = ╱6b╱k╱ // 0x343c @0xa
0x3432…3456 at000b = ╱75╱u╱ // 0x343d @0xb
0x3432…3456 at000c = ╱6e╱n╱ // 0x343e @0xc
0x3432…3456 at000d = ╱64╱d╱ // 0x343f @0xd
0x3432…3456 at000e = ╱65╱e╱ // 0x3440 @0xe
0x3432…3456 at000f = ╱6e╱n╱ // 0x3441 @0xf
0x3432…3456 at0010 = ╱72╱r╱ // 0x3442 @0x10
0x3432…3456 at0011 = ╱20╱…╱ // 0x3443 @0x11
0x3432…3456 at0012 = ╱20╱…╱ // 0x3444 @0x12
0x3432…3456 at0013 = ╱20╱…╱ // 0x3445 @0x13
0x3432…3456 at0014 = ╱20╱…╱ // 0x3446 @0x14
0x3432…3456 at0015 = ╱20╱…╱ // 0x3447 @0x15
0x3432…3456 at0016 = ╱20╱…╱ // 0x3448 @0x16
0x3432…3456 at0017 = ╱20╱…╱ // 0x3449 @0x17
0x3432…3456 at0018 = ╱20╱…╱ // 0x344a @0x18
0x3432…3456 at0019 = ╱28╱(╱ // 0x344b @0x19
0x3432…3456 at001a = ╱30╱0╱ // 0x344c @0x1a
0x3432…3456 at001b = ╱3a╱:╱ // 0x344d @0x1b
0x3432…3456 at001c = ╱20╱…╱ // 0x344e @0x1c
0x3432…3456 at001d = ╱41╱A╱ // 0x344f @0x1d
0x3432…3456 at001e = ╱6c╱l╱ // 0x3450 @0x1e
0x3432…3456 at001f = ╱6c╱l╱ // 0x3451 @0x1f
0x3432…3456 at0020 = ╱65╱e╱ // 0x3452 @0x20
0x3432…3456 at0021 = ╱29╱)╱ // 0x3453 @0x21
0x3432…3456 at0022 = ╱22╱"╱ // 0x3454 @0x22
0x3432…3456 at0023 = EOL // 0x3455 @0x23
0x3432…3456 }
0x3456…346b (174,) c1c2 6390 CURSOR 15,23
0x3456…346b LineComalBin {
0x3456…346b ptr = 0xc1c2 // 0x3456 @0x0
0x3456…346b lno = 0x18f6 // 0x3458 @0x2
0x3456…346b at0004 = ╱a1╱ CURSOR ╱ // 0x345a @0x4
0x3456…346b at0005 = ╱31╱1╱ // 0x345b @0x5
0x3456…346b at0006 = ╱35╱5╱ // 0x345c @0x6
0x3456…346b at0007 = ╱fe0000f004╱ // 0x345d @0x7
0x3456…346b at000c = ╱ec╱,╱ // 0x3462 @0xc
0x3456…346b at000d = ╱32╱2╱ // 0x3463 @0xd
0x3456…346b at000e = ╱33╱3╱ // 0x3464 @0xe
0x3456…346b at000f = ╱fe0000b805╱ // 0x3465 @0xf
0x3456…346b at0014 = EOL // 0x346a @0x14
0x3456…346b }
0x346b…3475 c1cc 6400 INPUT KTN$
0x346b…3475 LineComalBin {
0x346b…3475 ptr = 0xc1cc // 0x346b @0x0
0x346b…3475 lno = 0x1900 // 0x346d @0x2
0x346b…3475 at0004 = ╱91╱ INPUT ╱ // 0x346f @0x4
0x346b…3475 at0005 = ╱4b╱K╱ // 0x3470 @0x5
0x346b…3475 at0006 = ╱54╱T╱ // 0x3471 @0x6
0x346b…3475 at0007 = ╱4e╱N╱ // 0x3472 @0x7
0x346b…3475 at0008 = ╱ef╱$╱ // 0x3473 @0x8
0x346b…3475 at0009 = EOL // 0x3474 @0x9
0x346b…3475 }
0x3475…3487 c1de 6410 EXEC NRTEST(KTN$)
0x3475…3487 LineComalBin {
0x3475…3487 ptr = 0xc1de // 0x3475 @0x0
0x3475…3487 lno = 0x190a // 0x3477 @0x2
0x3475…3487 at0004 = ╱9d╱ EXEC ╱ // 0x3479 @0x4
0x3475…3487 at0005 = ╱4e╱N╱ // 0x347a @0x5
0x3475…3487 at0006 = ╱52╱R╱ // 0x347b @0x6
0x3475…3487 at0007 = ╱54╱T╱ // 0x347c @0x7
0x3475…3487 at0008 = ╱45╱E╱ // 0x347d @0x8
0x3475…3487 at0009 = ╱53╱S╱ // 0x347e @0x9
0x3475…3487 at000a = ╱54╱T╱ // 0x347f @0xa
0x3475…3487 at000b = ╱ed╱(╱ // 0x3480 @0xb
0x3475…3487 at000c = ╱4b╱K╱ // 0x3481 @0xc
0x3475…3487 at000d = ╱54╱T╱ // 0x3482 @0xd
0x3475…3487 at000e = ╱4e╱N╱ // 0x3483 @0xe
0x3475…3487 at000f = ╱ef╱$╱ // 0x3484 @0xf
0x3475…3487 at0010 = ╱ee╱)╱ // 0x3485 @0x10
0x3475…3487 at0011 = EOL // 0x3486 @0x11
0x3475…3487 }
0x3487…34ad c204 6420 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B
0x3487…34ad LineComalBin {
0x3487…34ad ptr = 0xc204 // 0x3487 @0x0
0x3487…34ad lno = 0x1914 // 0x3489 @0x2
0x3487…34ad at0004 = ╱98╱ UNTIL ╱ // 0x348b @0x4
0x3487…34ad at0005 = ╱4c╱L╱ // 0x348c @0x5
0x3487…34ad at0006 = ╱dc╱=╱ // 0x348d @0x6
0x3487…34ad at0007 = ╱35╱5╱ // 0x348e @0x7
0x3487…34ad at0008 = ╱fe0000a003╱ // 0x348f @0x8
0x3487…34ad at000d = ╱da╱ AND ╱ // 0x3494 @0xd
0x3487…34ad at000e = ╱50╱P╱ // 0x3495 @0xe
0x3487…34ad at000f = ╱de╱>╱ // 0x3496 @0xf
0x3487…34ad at0010 = ╱39╱9╱ // 0x3497 @0x10
0x3487…34ad at0011 = ╱39╱9╱ // 0x3498 @0x11
0x3487…34ad at0012 = ╱39╱9╱ // 0x3499 @0x12
0x3487…34ad at0013 = ╱39╱9╱ // 0x349a @0x13
0x3487…34ad at0014 = ╱fe003c9c0e╱ // 0x349b @0x14
0x3487…34ad at0019 = ╱da╱ AND ╱ // 0x34a0 @0x19
0x3487…34ad at001a = ╱54╱T╱ // 0x34a1 @0x1a
0x3487…34ad at001b = ╱45╱E╱ // 0x34a2 @0x1b
0x3487…34ad at001c = ╱53╱S╱ // 0x34a3 @0x1c
0x3487…34ad at001d = ╱54╱T╱ // 0x34a4 @0x1d
0x3487…34ad at001e = ╱32╱2╱ // 0x34a5 @0x1e
0x3487…34ad at001f = ╱dc╱=╱ // 0x34a6 @0x1f
0x3487…34ad at0020 = ╱42╱B╱ // 0x34a7 @0x20
0x3487…34ad at0021 = ╱db╱ OR ╱ // 0x34a8 @0x21
0x3487…34ad at0022 = ╱50╱P╱ // 0x34a9 @0x22
0x3487…34ad at0023 = ╱dc╱=╱ // 0x34aa @0x23
0x3487…34ad at0024 = ╱42╱B╱ // 0x34ab @0x24
0x3487…34ad at0025 = EOL // 0x34ac @0x25
0x3487…34ad }
0x34ad…34b7 c20e 6430 IF P=B THEN
0x34ad…34b7 LineComalBin {
0x34ad…34b7 ptr = 0xc20e // 0x34ad @0x0
0x34ad…34b7 lno = 0x191e // 0x34af @0x2
0x34ad…34b7 at0004 = ╱9c╱ IF ╱ // 0x34b1 @0x4
0x34ad…34b7 at0005 = ╱50╱P╱ // 0x34b2 @0x5
0x34ad…34b7 at0006 = ╱dc╱=╱ // 0x34b3 @0x6
0x34ad…34b7 at0007 = ╱42╱B╱ // 0x34b4 @0x7
0x34ad…34b7 at0008 = ╱b6╱ THEN ╱ // 0x34b5 @0x8
0x34ad…34b7 at0009 = EOL // 0x34b6 @0x9
0x34ad…34b7 }
0x34b7…34ca c221 6440 FRA=E;TIL=ADEB
0x34b7…34ca LineComalBin {
0x34b7…34ca ptr = 0xc221 // 0x34b7 @0x0
0x34b7…34ca lno = 0x1928 // 0x34b9 @0x2
0x34b7…34ca at0004 = ╱46╱F╱ // 0x34bb @0x4
0x34b7…34ca at0005 = ╱52╱R╱ // 0x34bc @0x5
0x34b7…34ca at0006 = ╱41╱A╱ // 0x34bd @0x6
0x34b7…34ca at0007 = ╱dc╱=╱ // 0x34be @0x7
0x34b7…34ca at0008 = ╱45╱E╱ // 0x34bf @0x8
0x34b7…34ca at0009 = ╱eb╱;╱ // 0x34c0 @0x9
0x34b7…34ca at000a = ╱54╱T╱ // 0x34c1 @0xa
0x34b7…34ca at000b = ╱49╱I╱ // 0x34c2 @0xb
0x34b7…34ca at000c = ╱4c╱L╱ // 0x34c3 @0xc
0x34b7…34ca at000d = ╱dc╱=╱ // 0x34c4 @0xd
0x34b7…34ca at000e = ╱41╱A╱ // 0x34c5 @0xe
0x34b7…34ca at000f = ╱44╱D╱ // 0x34c6 @0xf
0x34b7…34ca at0010 = ╱45╱E╱ // 0x34c7 @0x10
0x34b7…34ca at0011 = ╱42╱B╱ // 0x34c8 @0x11
0x34b7…34ca at0012 = EOL // 0x34c9 @0x12
0x34b7…34ca }
0x34ca…34d0 c227 6450 ELSE
0x34ca…34d0 LineComalBin {
0x34ca…34d0 ptr = 0xc227 // 0x34ca @0x0
0x34ca…34d0 lno = 0x1932 // 0x34cc @0x2
0x34ca…34d0 at0004 = ╱9a╱ ELSE ╱ // 0x34ce @0x4
0x34ca…34d0 at0005 = EOL // 0x34cf @0x5
0x34ca…34d0 }
0x34d0…34db c232 6460 KONT=P
0x34d0…34db LineComalBin {
0x34d0…34db ptr = 0xc232 // 0x34d0 @0x0
0x34d0…34db lno = 0x193c // 0x34d2 @0x2
0x34d0…34db at0004 = ╱4b╱K╱ // 0x34d4 @0x4
0x34d0…34db at0005 = ╱4f╱O╱ // 0x34d5 @0x5
0x34d0…34db at0006 = ╱4e╱N╱ // 0x34d6 @0x6
0x34d0…34db at0007 = ╱54╱T╱ // 0x34d7 @0x7
0x34d0…34db at0008 = ╱dc╱=╱ // 0x34d8 @0x8
0x34d0…34db at0009 = ╱50╱P╱ // 0x34d9 @0x9
0x34d0…34db at000a = EOL // 0x34da @0xa
0x34d0…34db }
0x34db…34ff c256 6470 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)
0x34db…34ff LineComalBin {
0x34db…34ff ptr = 0xc256 // 0x34db @0x0
0x34db…34ff lno = 0x1946 // 0x34dd @0x2
0x34db…34ff at0004 = ╱9d╱ EXEC ╱ // 0x34df @0x4
0x34db…34ff at0005 = ╱46╱F╱ // 0x34e0 @0x5
0x34db…34ff at0006 = ╱49╱I╱ // 0x34e1 @0x6
0x34db…34ff at0007 = ╱4e╱N╱ // 0x34e2 @0x7
0x34db…34ff at0008 = ╱44╱D╱ // 0x34e3 @0x8
0x34db…34ff at0009 = ╱50╱P╱ // 0x34e4 @0x9
0x34db…34ff at000a = ╱4f╱O╱ // 0x34e5 @0xa
0x34db…34ff at000b = ╱53╱S╱ // 0x34e6 @0xb
0x34db…34ff at000c = ╱54╱T╱ // 0x34e7 @0xc
0x34db…34ff at000d = ╱ed╱(╱ // 0x34e8 @0xd
0x34db…34ff at000e = ╱44╱D╱ // 0x34e9 @0xe
0x34db…34ff at000f = ╱54╱T╱ // 0x34ea @0xf
0x34db…34ff at0010 = ╱41╱A╱ // 0x34eb @0x10
0x34db…34ff at0011 = ╱42╱B╱ // 0x34ec @0x11
0x34db…34ff at0012 = ╱ec╱,╱ // 0x34ed @0x12
0x34db…34ff at0013 = ╱4d╱M╱ // 0x34ee @0x13
0x34db…34ff at0014 = ╱44╱D╱ // 0x34ef @0x14
0x34db…34ff at0015 = ╱41╱A╱ // 0x34f0 @0x15
0x34db…34ff at0016 = ╱4e╱N╱ // 0x34f1 @0x16
0x34db…34ff at0017 = ╱54╱T╱ // 0x34f2 @0x17
0x34db…34ff at0018 = ╱41╱A╱ // 0x34f3 @0x18
0x34db…34ff at0019 = ╱4c╱L╱ // 0x34f4 @0x19
0x34db…34ff at001a = ╱ec╱,╱ // 0x34f5 @0x1a
0x34db…34ff at001b = ╱50╱P╱ // 0x34f6 @0x1b
0x34db…34ff at001c = ╱ec╱,╱ // 0x34f7 @0x1c
0x34db…34ff at001d = ╱44╱D╱ // 0x34f8 @0x1d
0x34db…34ff at001e = ╱50╱P╱ // 0x34f9 @0x1e
0x34db…34ff at001f = ╱49╱I╱ // 0x34fa @0x1f
0x34db…34ff at0020 = ╱4c╱L╱ // 0x34fb @0x20
0x34db…34ff at0021 = ╱33╱3╱ // 0x34fc @0x21
0x34db…34ff at0022 = ╱ee╱)╱ // 0x34fd @0x22
0x34db…34ff at0023 = EOL // 0x34fe @0x23
0x34db…34ff }
0x34ff…3525 c27c 6480 IF DTAB(DPIL3,E)<KONT THEN DPIL3=DPIL3+E
0x34ff…3525 LineComalBin {
0x34ff…3525 ptr = 0xc27c // 0x34ff @0x0
0x34ff…3525 lno = 0x1950 // 0x3501 @0x2
0x34ff…3525 at0004 = ╱82╱ IF ╱ // 0x3503 @0x4
0x34ff…3525 at0005 = ╱44╱D╱ // 0x3504 @0x5
0x34ff…3525 at0006 = ╱54╱T╱ // 0x3505 @0x6
0x34ff…3525 at0007 = ╱41╱A╱ // 0x3506 @0x7
0x34ff…3525 at0008 = ╱42╱B╱ // 0x3507 @0x8
0x34ff…3525 at0009 = ╱ed╱(╱ // 0x3508 @0x9
0x34ff…3525 at000a = ╱44╱D╱ // 0x3509 @0xa
0x34ff…3525 at000b = ╱50╱P╱ // 0x350a @0xb
0x34ff…3525 at000c = ╱49╱I╱ // 0x350b @0xc
0x34ff…3525 at000d = ╱4c╱L╱ // 0x350c @0xd
0x34ff…3525 at000e = ╱33╱3╱ // 0x350d @0xe
0x34ff…3525 at000f = ╱ec╱,╱ // 0x350e @0xf
0x34ff…3525 at0010 = ╱45╱E╱ // 0x350f @0x10
0x34ff…3525 at0011 = ╱ee╱)╱ // 0x3510 @0x11
0x34ff…3525 at0012 = ╱dd╱<╱ // 0x3511 @0x12
0x34ff…3525 at0013 = ╱4b╱K╱ // 0x3512 @0x13
0x34ff…3525 at0014 = ╱4f╱O╱ // 0x3513 @0x14
0x34ff…3525 at0015 = ╱4e╱N╱ // 0x3514 @0x15
0x34ff…3525 at0016 = ╱54╱T╱ // 0x3515 @0x16
0x34ff…3525 at0017 = ╱b6╱ THEN ╱ // 0x3516 @0x17
0x34ff…3525 at0018 = ╱44╱D╱ // 0x3517 @0x18
0x34ff…3525 at0019 = ╱50╱P╱ // 0x3518 @0x19
0x34ff…3525 at001a = ╱49╱I╱ // 0x3519 @0x1a
0x34ff…3525 at001b = ╱4c╱L╱ // 0x351a @0x1b
0x34ff…3525 at001c = ╱33╱3╱ // 0x351b @0x1c
0x34ff…3525 at001d = ╱dc╱=╱ // 0x351c @0x1d
0x34ff…3525 at001e = ╱44╱D╱ // 0x351d @0x1e
0x34ff…3525 at001f = ╱50╱P╱ // 0x351e @0x1f
0x34ff…3525 at0020 = ╱49╱I╱ // 0x351f @0x20
0x34ff…3525 at0021 = ╱4c╱L╱ // 0x3520 @0x21
0x34ff…3525 at0022 = ╱33╱3╱ // 0x3521 @0x22
0x34ff…3525 at0023 = ╱e2╱+╱ // 0x3522 @0x23
0x34ff…3525 at0024 = ╱45╱E╱ // 0x3523 @0x24
0x34ff…3525 at0025 = EOL // 0x3524 @0x25
0x34ff…3525 }
0x3525…3533 c28a 6490 FRA=DPIL3
0x3525…3533 LineComalBin {
0x3525…3533 ptr = 0xc28a // 0x3525 @0x0
0x3525…3533 lno = 0x195a // 0x3527 @0x2
0x3525…3533 at0004 = ╱46╱F╱ // 0x3529 @0x4
0x3525…3533 at0005 = ╱52╱R╱ // 0x352a @0x5
0x3525…3533 at0006 = ╱41╱A╱ // 0x352b @0x6
0x3525…3533 at0007 = ╱dc╱=╱ // 0x352c @0x7
0x3525…3533 at0008 = ╱44╱D╱ // 0x352d @0x8
0x3525…3533 at0009 = ╱50╱P╱ // 0x352e @0x9
0x3525…3533 at000a = ╱49╱I╱ // 0x352f @0xa
0x3525…3533 at000b = ╱4c╱L╱ // 0x3530 @0xb
0x3525…3533 at000c = ╱33╱3╱ // 0x3531 @0xc
0x3525…3533 at000d = EOL // 0x3532 @0xd
0x3525…3533 }
0x3533…3539 c290 6500 ENDIF
0x3533…3539 LineComalBin {
0x3533…3539 ptr = 0xc290 // 0x3533 @0x0
0x3533…3539 lno = 0x1964 // 0x3535 @0x2
0x3533…3539 at0004 = ╱9b╱ ENDIF ╱ // 0x3537 @0x4
0x3533…3539 at0005 = EOL // 0x3538 @0x5
0x3533…3539 }
0x3539…3547 c29e 6510 UNTIL FRA<=ADEB
0x3539…3547 LineComalBin {
0x3539…3547 ptr = 0xc29e // 0x3539 @0x0
0x3539…3547 lno = 0x196e // 0x353b @0x2
0x3539…3547 at0004 = ╱98╱ UNTIL ╱ // 0x353d @0x4
0x3539…3547 at0005 = ╱46╱F╱ // 0x353e @0x5
0x3539…3547 at0006 = ╱52╱R╱ // 0x353f @0x6
0x3539…3547 at0007 = ╱41╱A╱ // 0x3540 @0x7
0x3539…3547 at0008 = ╱df╱<=╱ // 0x3541 @0x8
0x3539…3547 at0009 = ╱41╱A╱ // 0x3542 @0x9
0x3539…3547 at000a = ╱44╱D╱ // 0x3543 @0xa
0x3539…3547 at000b = ╱45╱E╱ // 0x3544 @0xb
0x3539…3547 at000c = ╱42╱B╱ // 0x3545 @0xc
0x3539…3547 at000d = EOL // 0x3546 @0xd
0x3539…3547 }
0x3547…3551 c2a8 6520 IF P>B THEN
0x3547…3551 LineComalBin {
0x3547…3551 ptr = 0xc2a8 // 0x3547 @0x0
0x3547…3551 lno = 0x1978 // 0x3549 @0x2
0x3547…3551 at0004 = ╱9c╱ IF ╱ // 0x354b @0x4
0x3547…3551 at0005 = ╱50╱P╱ // 0x354c @0x5
0x3547…3551 at0006 = ╱de╱>╱ // 0x354d @0x6
0x3547…3551 at0007 = ╱42╱B╱ // 0x354e @0x7
0x3547…3551 at0008 = ╱b6╱ THEN ╱ // 0x354f @0x8
0x3547…3551 at0009 = EOL // 0x3550 @0x9
0x3547…3551 }
0x3551…3557 c2ae 6530 REPEAT
0x3551…3557 LineComalBin {
0x3551…3557 ptr = 0xc2ae // 0x3551 @0x0
0x3551…3557 lno = 0x1982 // 0x3553 @0x2
0x3551…3557 at0004 = ╱97╱ REPEAT ╱ // 0x3555 @0x4
0x3551…3557 at0005 = EOL // 0x3556 @0x5
0x3551…3557 }
0x3557…3566 c2bd 6540 CURSOR V,23
0x3557…3566 LineComalBin {
0x3557…3566 ptr = 0xc2bd // 0x3557 @0x0
0x3557…3566 lno = 0x198c // 0x3559 @0x2
0x3557…3566 at0004 = ╱a1╱ CURSOR ╱ // 0x355b @0x4
0x3557…3566 at0005 = ╱56╱V╱ // 0x355c @0x5
0x3557…3566 at0006 = ╱ec╱,╱ // 0x355d @0x6
0x3557…3566 at0007 = ╱32╱2╱ // 0x355e @0x7
0x3557…3566 at0008 = ╱33╱3╱ // 0x355f @0x8
0x3557…3566 at0009 = ╱fe0000b805╱ // 0x3560 @0x9
0x3557…3566 at000e = EOL // 0x3565 @0xe
0x3557…3566 }
0x3566…358b c2e2 6550 PRINT "Til kundenr "
0x3566…358b LineComalBin {
0x3566…358b ptr = 0xc2e2 // 0x3566 @0x0
0x3566…358b lno = 0x1996 // 0x3568 @0x2
0x3566…358b at0004 = ╱92╱ PRINT ╱ // 0x356a @0x4
0x3566…358b at0005 = ╱22╱"╱ // 0x356b @0x5
0x3566…358b at0006 = ╱54╱T╱ // 0x356c @0x6
0x3566…358b at0007 = ╱69╱i╱ // 0x356d @0x7
0x3566…358b at0008 = ╱6c╱l╱ // 0x356e @0x8
0x3566…358b at0009 = ╱20╱…╱ // 0x356f @0x9
0x3566…358b at000a = ╱6b╱k╱ // 0x3570 @0xa
0x3566…358b at000b = ╱75╱u╱ // 0x3571 @0xb
0x3566…358b at000c = ╱6e╱n╱ // 0x3572 @0xc
0x3566…358b at000d = ╱64╱d╱ // 0x3573 @0xd
0x3566…358b at000e = ╱65╱e╱ // 0x3574 @0xe
0x3566…358b at000f = ╱6e╱n╱ // 0x3575 @0xf
0x3566…358b at0010 = ╱72╱r╱ // 0x3576 @0x10
0x3566…358b at0011 = ╱20╱…╱ // 0x3577 @0x11
0x3566…358b at0012 = ╱20╱…╱ // 0x3578 @0x12
0x3566…358b at0013 = ╱20╱…╱ // 0x3579 @0x13
0x3566…358b at0014 = ╱20╱…╱ // 0x357a @0x14
0x3566…358b at0015 = ╱20╱…╱ // 0x357b @0x15
0x3566…358b at0016 = ╱20╱…╱ // 0x357c @0x16
0x3566…358b at0017 = ╱20╱…╱ // 0x357d @0x17
0x3566…358b at0018 = ╱20╱…╱ // 0x357e @0x18
0x3566…358b at0019 = ╱20╱…╱ // 0x357f @0x19
0x3566…358b at001a = ╱20╱…╱ // 0x3580 @0x1a
0x3566…358b at001b = ╱20╱…╱ // 0x3581 @0x1b
0x3566…358b at001c = ╱20╱…╱ // 0x3582 @0x1c
0x3566…358b at001d = ╱20╱…╱ // 0x3583 @0x1d
0x3566…358b at001e = ╱20╱…╱ // 0x3584 @0x1e
0x3566…358b at001f = ╱20╱…╱ // 0x3585 @0x1f
0x3566…358b at0020 = ╱20╱…╱ // 0x3586 @0x20
0x3566…358b at0021 = ╱20╱…╱ // 0x3587 @0x21
0x3566…358b at0022 = ╱20╱…╱ // 0x3588 @0x22
0x3566…358b at0023 = ╱22╱"╱ // 0x3589 @0x23
0x3566…358b at0024 = EOL // 0x358a @0x24
0x3566…358b }
0x358b…35a0 c2f7 6560 CURSOR 15,23
0x358b…35a0 LineComalBin {
0x358b…35a0 ptr = 0xc2f7 // 0x358b @0x0
0x358b…35a0 lno = 0x19a0 // 0x358d @0x2
0x358b…35a0 at0004 = ╱a1╱ CURSOR ╱ // 0x358f @0x4
0x358b…35a0 at0005 = ╱31╱1╱ // 0x3590 @0x5
0x358b…35a0 at0006 = ╱35╱5╱ // 0x3591 @0x6
0x358b…35a0 at0007 = ╱fe0000f004╱ // 0x3592 @0x7
0x358b…35a0 at000c = ╱ec╱,╱ // 0x3597 @0xc
0x358b…35a0 at000d = ╱32╱2╱ // 0x3598 @0xd
0x358b…35a0 at000e = ╱33╱3╱ // 0x3599 @0xe
0x358b…35a0 at000f = ╱fe0000b805╱ // 0x359a @0xf
0x358b…35a0 at0014 = EOL // 0x359f @0x14
0x358b…35a0 }
0x35a0…35aa c301 6570 INPUT KTN$
0x35a0…35aa LineComalBin {
0x35a0…35aa ptr = 0xc301 // 0x35a0 @0x0
0x35a0…35aa lno = 0x19aa // 0x35a2 @0x2
0x35a0…35aa at0004 = ╱91╱ INPUT ╱ // 0x35a4 @0x4
0x35a0…35aa at0005 = ╱4b╱K╱ // 0x35a5 @0x5
0x35a0…35aa at0006 = ╱54╱T╱ // 0x35a6 @0x6
0x35a0…35aa at0007 = ╱4e╱N╱ // 0x35a7 @0x7
0x35a0…35aa at0008 = ╱ef╱$╱ // 0x35a8 @0x8
0x35a0…35aa at0009 = EOL // 0x35a9 @0x9
0x35a0…35aa }
0x35aa…35bc c313 6580 EXEC NRTEST(KTN$)
0x35aa…35bc LineComalBin {
0x35aa…35bc ptr = 0xc313 // 0x35aa @0x0
0x35aa…35bc lno = 0x19b4 // 0x35ac @0x2
0x35aa…35bc at0004 = ╱9d╱ EXEC ╱ // 0x35ae @0x4
0x35aa…35bc at0005 = ╱4e╱N╱ // 0x35af @0x5
0x35aa…35bc at0006 = ╱52╱R╱ // 0x35b0 @0x6
0x35aa…35bc at0007 = ╱54╱T╱ // 0x35b1 @0x7
0x35aa…35bc at0008 = ╱45╱E╱ // 0x35b2 @0x8
0x35aa…35bc at0009 = ╱53╱S╱ // 0x35b3 @0x9
0x35aa…35bc at000a = ╱54╱T╱ // 0x35b4 @0xa
0x35aa…35bc at000b = ╱ed╱(╱ // 0x35b5 @0xb
0x35aa…35bc at000c = ╱4b╱K╱ // 0x35b6 @0xc
0x35aa…35bc at000d = ╱54╱T╱ // 0x35b7 @0xd
0x35aa…35bc at000e = ╱4e╱N╱ // 0x35b8 @0xe
0x35aa…35bc at000f = ╱ef╱$╱ // 0x35b9 @0xf
0x35aa…35bc at0010 = ╱ee╱)╱ // 0x35ba @0x10
0x35aa…35bc at0011 = EOL // 0x35bb @0x11
0x35aa…35bc }
0x35bc…35e5 c33c 6590 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT
0x35bc…35e5 LineComalBin {
0x35bc…35e5 ptr = 0xc33c // 0x35bc @0x0
0x35bc…35e5 lno = 0x19be // 0x35be @0x2
0x35bc…35e5 at0004 = ╱98╱ UNTIL ╱ // 0x35c0 @0x4
0x35bc…35e5 at0005 = ╱4c╱L╱ // 0x35c1 @0x5
0x35bc…35e5 at0006 = ╱dc╱=╱ // 0x35c2 @0x6
0x35bc…35e5 at0007 = ╱35╱5╱ // 0x35c3 @0x7
0x35bc…35e5 at0008 = ╱fe0000a003╱ // 0x35c4 @0x8
0x35bc…35e5 at000d = ╱da╱ AND ╱ // 0x35c9 @0xd
0x35bc…35e5 at000e = ╱50╱P╱ // 0x35ca @0xe
0x35bc…35e5 at000f = ╱de╱>╱ // 0x35cb @0xf
0x35bc…35e5 at0010 = ╱39╱9╱ // 0x35cc @0x10
0x35bc…35e5 at0011 = ╱39╱9╱ // 0x35cd @0x11
0x35bc…35e5 at0012 = ╱39╱9╱ // 0x35ce @0x12
0x35bc…35e5 at0013 = ╱39╱9╱ // 0x35cf @0x13
0x35bc…35e5 at0014 = ╱fe003c9c0e╱ // 0x35d0 @0x14
0x35bc…35e5 at0019 = ╱da╱ AND ╱ // 0x35d5 @0x19
0x35bc…35e5 at001a = ╱54╱T╱ // 0x35d6 @0x1a
0x35bc…35e5 at001b = ╱45╱E╱ // 0x35d7 @0x1b
0x35bc…35e5 at001c = ╱53╱S╱ // 0x35d8 @0x1c
0x35bc…35e5 at001d = ╱54╱T╱ // 0x35d9 @0x1d
0x35bc…35e5 at001e = ╱32╱2╱ // 0x35da @0x1e
0x35bc…35e5 at001f = ╱dc╱=╱ // 0x35db @0x1f
0x35bc…35e5 at0020 = ╱42╱B╱ // 0x35dc @0x20
0x35bc…35e5 at0021 = ╱da╱ AND ╱ // 0x35dd @0x21
0x35bc…35e5 at0022 = ╱50╱P╱ // 0x35de @0x22
0x35bc…35e5 at0023 = ╱e0╱=>╱ // 0x35df @0x23
0x35bc…35e5 at0024 = ╱4b╱K╱ // 0x35e0 @0x24
0x35bc…35e5 at0025 = ╱4f╱O╱ // 0x35e1 @0x25
0x35bc…35e5 at0026 = ╱4e╱N╱ // 0x35e2 @0x26
0x35bc…35e5 at0027 = ╱54╱T╱ // 0x35e3 @0x27
0x35bc…35e5 at0028 = EOL // 0x35e4 @0x28
0x35bc…35e5 }
0x35e5…3609 c360 6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)
0x35e5…3609 LineComalBin {
0x35e5…3609 ptr = 0xc360 // 0x35e5 @0x0
0x35e5…3609 lno = 0x19c8 // 0x35e7 @0x2
0x35e5…3609 at0004 = ╱9d╱ EXEC ╱ // 0x35e9 @0x4
0x35e5…3609 at0005 = ╱46╱F╱ // 0x35ea @0x5
0x35e5…3609 at0006 = ╱49╱I╱ // 0x35eb @0x6
0x35e5…3609 at0007 = ╱4e╱N╱ // 0x35ec @0x7
0x35e5…3609 at0008 = ╱44╱D╱ // 0x35ed @0x8
0x35e5…3609 at0009 = ╱50╱P╱ // 0x35ee @0x9
0x35e5…3609 at000a = ╱4f╱O╱ // 0x35ef @0xa
0x35e5…3609 at000b = ╱53╱S╱ // 0x35f0 @0xb
0x35e5…3609 at000c = ╱54╱T╱ // 0x35f1 @0xc
0x35e5…3609 at000d = ╱ed╱(╱ // 0x35f2 @0xd
0x35e5…3609 at000e = ╱44╱D╱ // 0x35f3 @0xe
0x35e5…3609 at000f = ╱54╱T╱ // 0x35f4 @0xf
0x35e5…3609 at0010 = ╱41╱A╱ // 0x35f5 @0x10
0x35e5…3609 at0011 = ╱42╱B╱ // 0x35f6 @0x11
0x35e5…3609 at0012 = ╱ec╱,╱ // 0x35f7 @0x12
0x35e5…3609 at0013 = ╱4d╱M╱ // 0x35f8 @0x13
0x35e5…3609 at0014 = ╱44╱D╱ // 0x35f9 @0x14
0x35e5…3609 at0015 = ╱41╱A╱ // 0x35fa @0x15
0x35e5…3609 at0016 = ╱4e╱N╱ // 0x35fb @0x16
0x35e5…3609 at0017 = ╱54╱T╱ // 0x35fc @0x17
0x35e5…3609 at0018 = ╱41╱A╱ // 0x35fd @0x18
0x35e5…3609 at0019 = ╱4c╱L╱ // 0x35fe @0x19
0x35e5…3609 at001a = ╱ec╱,╱ // 0x35ff @0x1a
0x35e5…3609 at001b = ╱50╱P╱ // 0x3600 @0x1b
0x35e5…3609 at001c = ╱ec╱,╱ // 0x3601 @0x1c
0x35e5…3609 at001d = ╱44╱D╱ // 0x3602 @0x1d
0x35e5…3609 at001e = ╱50╱P╱ // 0x3603 @0x1e
0x35e5…3609 at001f = ╱49╱I╱ // 0x3604 @0x1f
0x35e5…3609 at0020 = ╱4c╱L╱ // 0x3605 @0x20
0x35e5…3609 at0021 = ╱33╱3╱ // 0x3606 @0x21
0x35e5…3609 at0022 = ╱ee╱)╱ // 0x3607 @0x22
0x35e5…3609 at0023 = EOL // 0x3608 @0x23
0x35e5…3609 }
0x3609…362c c383 6610 IF DTAB(DPIL3,E)>P THEN DPIL3=DPIL3-E
0x3609…362c LineComalBin {
0x3609…362c ptr = 0xc383 // 0x3609 @0x0
0x3609…362c lno = 0x19d2 // 0x360b @0x2
0x3609…362c at0004 = ╱82╱ IF ╱ // 0x360d @0x4
0x3609…362c at0005 = ╱44╱D╱ // 0x360e @0x5
0x3609…362c at0006 = ╱54╱T╱ // 0x360f @0x6
0x3609…362c at0007 = ╱41╱A╱ // 0x3610 @0x7
0x3609…362c at0008 = ╱42╱B╱ // 0x3611 @0x8
0x3609…362c at0009 = ╱ed╱(╱ // 0x3612 @0x9
0x3609…362c at000a = ╱44╱D╱ // 0x3613 @0xa
0x3609…362c at000b = ╱50╱P╱ // 0x3614 @0xb
0x3609…362c at000c = ╱49╱I╱ // 0x3615 @0xc
0x3609…362c at000d = ╱4c╱L╱ // 0x3616 @0xd
0x3609…362c at000e = ╱33╱3╱ // 0x3617 @0xe
0x3609…362c at000f = ╱ec╱,╱ // 0x3618 @0xf
0x3609…362c at0010 = ╱45╱E╱ // 0x3619 @0x10
0x3609…362c at0011 = ╱ee╱)╱ // 0x361a @0x11
0x3609…362c at0012 = ╱de╱>╱ // 0x361b @0x12
0x3609…362c at0013 = ╱50╱P╱ // 0x361c @0x13
0x3609…362c at0014 = ╱b6╱ THEN ╱ // 0x361d @0x14
0x3609…362c at0015 = ╱44╱D╱ // 0x361e @0x15
0x3609…362c at0016 = ╱50╱P╱ // 0x361f @0x16
0x3609…362c at0017 = ╱49╱I╱ // 0x3620 @0x17
0x3609…362c at0018 = ╱4c╱L╱ // 0x3621 @0x18
0x3609…362c at0019 = ╱33╱3╱ // 0x3622 @0x19
0x3609…362c at001a = ╱dc╱=╱ // 0x3623 @0x1a
0x3609…362c at001b = ╱44╱D╱ // 0x3624 @0x1b
0x3609…362c at001c = ╱50╱P╱ // 0x3625 @0x1c
0x3609…362c at001d = ╱49╱I╱ // 0x3626 @0x1d
0x3609…362c at001e = ╱4c╱L╱ // 0x3627 @0x1e
0x3609…362c at001f = ╱33╱3╱ // 0x3628 @0x1f
0x3609…362c at0020 = ╱e3╱-╱ // 0x3629 @0x20
0x3609…362c at0021 = ╱45╱E╱ // 0x362a @0x21
0x3609…362c at0022 = EOL // 0x362b @0x22
0x3609…362c }
0x362c…363a c391 6620 TIL=DPIL3
0x362c…363a LineComalBin {
0x362c…363a ptr = 0xc391 // 0x362c @0x0
0x362c…363a lno = 0x19dc // 0x362e @0x2
0x362c…363a at0004 = ╱54╱T╱ // 0x3630 @0x4
0x362c…363a at0005 = ╱49╱I╱ // 0x3631 @0x5
0x362c…363a at0006 = ╱4c╱L╱ // 0x3632 @0x6
0x362c…363a at0007 = ╱dc╱=╱ // 0x3633 @0x7
0x362c…363a at0008 = ╱44╱D╱ // 0x3634 @0x8
0x362c…363a at0009 = ╱50╱P╱ // 0x3635 @0x9
0x362c…363a at000a = ╱49╱I╱ // 0x3636 @0xa
0x362c…363a at000b = ╱4c╱L╱ // 0x3637 @0xb
0x362c…363a at000c = ╱33╱3╱ // 0x3638 @0xc
0x362c…363a at000d = EOL // 0x3639 @0xd
0x362c…363a }
0x363a…3640 c397 6630 ENDIF
0x363a…3640 LineComalBin {
0x363a…3640 ptr = 0xc397 // 0x363a @0x0
0x363a…3640 lno = 0x19e6 // 0x363c @0x2
0x363a…3640 at0004 = ╱9b╱ ENDIF ╱ // 0x363e @0x4
0x363a…3640 at0005 = EOL // 0x363f @0x5
0x363a…3640 }
0x3640…3646 c39d 6640 CLEAR
0x3640…3646 LineComalBin {
0x3640…3646 ptr = 0xc39d // 0x3640 @0x0
0x3640…3646 lno = 0x19f0 // 0x3642 @0x2
0x3640…3646 at0004 = ╱a0╱ CLEAR ╱ // 0x3644 @0x4
0x3640…3646 at0005 = EOL // 0x3645 @0x5
0x3640…3646 }
0x3646…364c c3a3 6650 REPEAT
0x3646…364c LineComalBin {
0x3646…364c ptr = 0xc3a3 // 0x3646 @0x0
0x3646…364c lno = 0x19fa // 0x3648 @0x2
0x3646…364c at0004 = ╱97╱ REPEAT ╱ // 0x364a @0x4
0x3646…364c at0005 = EOL // 0x364b @0x5
0x3646…364c }
0x364c…3660 c3b7 6660 CURSOR 8,13
0x364c…3660 LineComalBin {
0x364c…3660 ptr = 0xc3b7 // 0x364c @0x0
0x364c…3660 lno = 0x1a04 // 0x364e @0x2
0x364c…3660 at0004 = ╱a1╱ CURSOR ╱ // 0x3650 @0x4
0x364c…3660 at0005 = ╱38╱8╱ // 0x3651 @0x5
0x364c…3660 at0006 = ╱fe00008004╱ // 0x3652 @0x6
0x364c…3660 at000b = ╱ec╱,╱ // 0x3657 @0xb
0x364c…3660 at000c = ╱31╱1╱ // 0x3658 @0xc
0x364c…3660 at000d = ╱33╱3╱ // 0x3659 @0xd
0x364c…3660 at000e = ╱fe0000d004╱ // 0x365a @0xe
0x364c…3660 at0013 = EOL // 0x365f @0x13
0x364c…3660 }
0x3660…36a6 c3fd 6670 INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$
0x3660…36a6 LineComalBin {
0x3660…36a6 ptr = 0xc3fd // 0x3660 @0x0
0x3660…36a6 lno = 0x1a0e // 0x3662 @0x2
0x3660…36a6 at0004 = ╱91╱ INPUT ╱ // 0x3664 @0x4
0x3660…36a6 at0005 = ╱22╱"╱ // 0x3665 @0x5
0x3660…36a6 at0006 = ╱4d╱M╱ // 0x3666 @0x6
0x3660…36a6 at0007 = ╱6f╱o╱ // 0x3667 @0x7
0x3660…36a6 at0008 = ╱6e╱n╱ // 0x3668 @0x8
0x3660…36a6 at0009 = ╱74╱t╱ // 0x3669 @0x9
0x3660…36a6 at000a = ╱65╱e╱ // 0x366a @0xa
0x3660…36a6 at000b = ╱72╱r╱ // 0x366b @0xb
0x3660…36a6 at000c = ╱20╱…╱ // 0x366c @0xc
0x3660…36a6 at000d = ╱70╱p╱ // 0x366d @0xd
0x3660…36a6 at000e = ╱61╱a╱ // 0x366e @0xe
0x3660…36a6 at000f = ╱70╱p╱ // 0x366f @0xf
0x3660…36a6 at0010 = ╱69╱i╱ // 0x3670 @0x10
0x3660…36a6 at0011 = ╱72╱r╱ // 0x3671 @0x11
0x3660…36a6 at0012 = ╱20╱…╱ // 0x3672 @0x12
0x3660…36a6 at0013 = ╱74╱t╱ // 0x3673 @0x13
0x3660…36a6 at0014 = ╱69╱i╱ // 0x3674 @0x14
0x3660…36a6 at0015 = ╱6c╱l╱ // 0x3675 @0x15
0x3660…36a6 at0016 = ╱20╱…╱ // 0x3676 @0x16
0x3660…36a6 at0017 = ╱75╱u╱ // 0x3677 @0x17
0x3660…36a6 at0018 = ╱64╱d╱ // 0x3678 @0x18
0x3660…36a6 at0019 = ╱73╱s╱ // 0x3679 @0x19
0x3660…36a6 at001a = ╱6b╱k╱ // 0x367a @0x1a
0x3660…36a6 at001b = ╱72╱r╱ // 0x367b @0x1b
0x3660…36a6 at001c = ╱69╱i╱ // 0x367c @0x1c
0x3660…36a6 at001d = ╱66╱f╱ // 0x367d @0x1d
0x3660…36a6 at001e = ╱74╱t╱ // 0x367e @0x1e
0x3660…36a6 at001f = ╱20╱…╱ // 0x367f @0x1f
0x3660…36a6 at0020 = ╱61╱a╱ // 0x3680 @0x20
0x3660…36a6 at0021 = ╱66╱f╱ // 0x3681 @0x21
0x3660…36a6 at0022 = ╱20╱…╱ // 0x3682 @0x22
0x3660…36a6 at0023 = ╱6b╱k╱ // 0x3683 @0x23
0x3660…36a6 at0024 = ╱75╱u╱ // 0x3684 @0x24
0x3660…36a6 at0025 = ╱6e╱n╱ // 0x3685 @0x25
0x3660…36a6 at0026 = ╱64╱d╱ // 0x3686 @0x26
0x3660…36a6 at0027 = ╱65╱e╱ // 0x3687 @0x27
0x3660…36a6 at0028 = ╱6b╱k╱ // 0x3688 @0x28
0x3660…36a6 at0029 = ╱6f╱o╱ // 0x3689 @0x29
0x3660…36a6 at002a = ╱6e╱n╱ // 0x368a @0x2a
0x3660…36a6 at002b = ╱74╱t╱ // 0x368b @0x2b
0x3660…36a6 at002c = ╱6f╱o╱ // 0x368c @0x2c
0x3660…36a6 at002d = ╱6c╱l╱ // 0x368d @0x2d
0x3660…36a6 at002e = ╱69╱i╱ // 0x368e @0x2e
0x3660…36a6 at002f = ╱73╱s╱ // 0x368f @0x2f
0x3660…36a6 at0030 = ╱74╱t╱ // 0x3690 @0x30
0x3660…36a6 at0031 = ╱65╱e╱ // 0x3691 @0x31
0x3660…36a6 at0032 = ╱20╱…╱ // 0x3692 @0x32
0x3660…36a6 at0033 = ╱6f╱o╱ // 0x3693 @0x33
0x3660…36a6 at0034 = ╱67╱g╱ // 0x3694 @0x34
0x3660…36a6 at0035 = ╱20╱…╱ // 0x3695 @0x35
0x3660…36a6 at0036 = ╱74╱t╱ // 0x3696 @0x36
0x3660…36a6 at0037 = ╱61╱a╱ // 0x3697 @0x37
0x3660…36a6 at0038 = ╱73╱s╱ // 0x3698 @0x38
0x3660…36a6 at0039 = ╱74╱t╱ // 0x3699 @0x39
0x3660…36a6 at003a = ╱20╱…╱ // 0x369a @0x3a
0x3660…36a6 at003b = ╱52╱R╱ // 0x369b @0x3b
0x3660…36a6 at003c = ╱45╱E╱ // 0x369c @0x3c
0x3660…36a6 at003d = ╱54╱T╱ // 0x369d @0x3d
0x3660…36a6 at003e = ╱55╱U╱ // 0x369e @0x3e
0x3660…36a6 at003f = ╱52╱R╱ // 0x369f @0x3f
0x3660…36a6 at0040 = ╱4e╱N╱ // 0x36a0 @0x40
0x3660…36a6 at0041 = ╱22╱"╱ // 0x36a1 @0x41
0x3660…36a6 at0042 = ╱ec╱,╱ // 0x36a2 @0x42
0x3660…36a6 at0043 = ╱41╱A╱ // 0x36a3 @0x43
0x3660…36a6 at0044 = ╱ef╱$╱ // 0x36a4 @0x44
0x3660…36a6 at0045 = EOL // 0x36a5 @0x45
0x3660…36a6 }
0x36a6…36ba c411 6680 UNTIL ORD(A$)=255
0x36a6…36ba LineComalBin {
0x36a6…36ba ptr = 0xc411 // 0x36a6 @0x0
0x36a6…36ba lno = 0x1a18 // 0x36a8 @0x2
0x36a6…36ba at0004 = ╱98╱ UNTIL ╱ // 0x36aa @0x4
0x36a6…36ba at0005 = ╱cd╱ORD╱ // 0x36ab @0x5
0x36a6…36ba at0006 = ╱ed╱(╱ // 0x36ac @0x6
0x36a6…36ba at0007 = ╱41╱A╱ // 0x36ad @0x7
0x36a6…36ba at0008 = ╱ef╱$╱ // 0x36ae @0x8
0x36a6…36ba at0009 = ╱ee╱)╱ // 0x36af @0x9
0x36a6…36ba at000a = ╱dc╱=╱ // 0x36b0 @0xa
0x36a6…36ba at000b = ╱32╱2╱ // 0x36b1 @0xb
0x36a6…36ba at000c = ╱35╱5╱ // 0x36b2 @0xc
0x36a6…36ba at000d = ╱35╱5╱ // 0x36b3 @0xd
0x36a6…36ba at000e = ╱fe0000ff08╱ // 0x36b4 @0xe
0x36a6…36ba at0013 = EOL // 0x36b9 @0x13
0x36a6…36ba }
0x36ba…36c1 c418 6690 OUTPUT P
0x36ba…36c1 LineComalBin {
0x36ba…36c1 ptr = 0xc418 // 0x36ba @0x0
0x36ba…36c1 lno = 0x1a22 // 0x36bc @0x2
0x36ba…36c1 at0004 = ╱a5╱ OUTPUT ╱ // 0x36be @0x4
0x36ba…36c1 at0005 = ╱50╱P╱ // 0x36bf @0x5
0x36ba…36c1 at0006 = EOL // 0x36c0 @0x6
0x36ba…36c1 }
0x36c1…36e5 c43c 6700 SIDE=E;DA1=DATO;DAT$=" "
0x36c1…36e5 LineComalBin {
0x36c1…36e5 ptr = 0xc43c // 0x36c1 @0x0
0x36c1…36e5 lno = 0x1a2c // 0x36c3 @0x2
0x36c1…36e5 at0004 = ╱53╱S╱ // 0x36c5 @0x4
0x36c1…36e5 at0005 = ╱49╱I╱ // 0x36c6 @0x5
0x36c1…36e5 at0006 = ╱44╱D╱ // 0x36c7 @0x6
0x36c1…36e5 at0007 = ╱45╱E╱ // 0x36c8 @0x7
0x36c1…36e5 at0008 = ╱dc╱=╱ // 0x36c9 @0x8
0x36c1…36e5 at0009 = ╱45╱E╱ // 0x36ca @0x9
0x36c1…36e5 at000a = ╱eb╱;╱ // 0x36cb @0xa
0x36c1…36e5 at000b = ╱44╱D╱ // 0x36cc @0xb
0x36c1…36e5 at000c = ╱41╱A╱ // 0x36cd @0xc
0x36c1…36e5 at000d = ╱31╱1╱ // 0x36ce @0xd
0x36c1…36e5 at000e = ╱dc╱=╱ // 0x36cf @0xe
0x36c1…36e5 at000f = ╱44╱D╱ // 0x36d0 @0xf
0x36c1…36e5 at0010 = ╱41╱A╱ // 0x36d1 @0x10
0x36c1…36e5 at0011 = ╱54╱T╱ // 0x36d2 @0x11
0x36c1…36e5 at0012 = ╱4f╱O╱ // 0x36d3 @0x12
0x36c1…36e5 at0013 = ╱eb╱;╱ // 0x36d4 @0x13
0x36c1…36e5 at0014 = ╱44╱D╱ // 0x36d5 @0x14
0x36c1…36e5 at0015 = ╱41╱A╱ // 0x36d6 @0x15
0x36c1…36e5 at0016 = ╱54╱T╱ // 0x36d7 @0x16
0x36c1…36e5 at0017 = ╱ef╱$╱ // 0x36d8 @0x17
0x36c1…36e5 at0018 = ╱dc╱=╱ // 0x36d9 @0x18
0x36c1…36e5 at0019 = ╱22╱"╱ // 0x36da @0x19
0x36c1…36e5 at001a = ╱20╱…╱ // 0x36db @0x1a
0x36c1…36e5 at001b = ╱20╱…╱ // 0x36dc @0x1b
0x36c1…36e5 at001c = ╱20╱…╱ // 0x36dd @0x1c
0x36c1…36e5 at001d = ╱20╱…╱ // 0x36de @0x1d
0x36c1…36e5 at001e = ╱20╱…╱ // 0x36df @0x1e
0x36c1…36e5 at001f = ╱20╱…╱ // 0x36e0 @0x1f
0x36c1…36e5 at0020 = ╱20╱…╱ // 0x36e1 @0x20
0x36c1…36e5 at0021 = ╱20╱…╱ // 0x36e2 @0x21
0x36c1…36e5 at0022 = ╱22╱"╱ // 0x36e3 @0x22
0x36c1…36e5 at0023 = EOL // 0x36e4 @0x23
0x36c1…36e5 }
0x36e5…36f8 c44f 6710 FOR J=8 TO E STEP -E
0x36e5…36f8 LineComalBin {
0x36e5…36f8 ptr = 0xc44f // 0x36e5 @0x0
0x36e5…36f8 lno = 0x1a36 // 0x36e7 @0x2
0x36e5…36f8 at0004 = ╱83╱ FOR ╱ // 0x36e9 @0x4
0x36e5…36f8 at0005 = ╱4a╱J╱ // 0x36ea @0x5
0x36e5…36f8 at0006 = ╱dc╱=╱ // 0x36eb @0x6
0x36e5…36f8 at0007 = ╱38╱8╱ // 0x36ec @0x7
0x36e5…36f8 at0008 = ╱fe00008004╱ // 0x36ed @0x8
0x36e5…36f8 at000d = ╱b7╱ TO ╱ // 0x36f2 @0xd
0x36e5…36f8 at000e = ╱45╱E╱ // 0x36f3 @0xe
0x36e5…36f8 at000f = ╱b8╱ STEP ╱ // 0x36f4 @0xf
0x36e5…36f8 at0010 = ╱e9╱-╱ // 0x36f5 @0x10
0x36e5…36f8 at0011 = ╱45╱E╱ // 0x36f6 @0x11
0x36e5…36f8 at0012 = EOL // 0x36f7 @0x12
0x36e5…36f8 }
0x36f8…3704 c45b 6720 IF J MOD V=B THEN
0x36f8…3704 LineComalBin {
0x36f8…3704 ptr = 0xc45b // 0x36f8 @0x0
0x36f8…3704 lno = 0x1a40 // 0x36fa @0x2
0x36f8…3704 at0004 = ╱9c╱ IF ╱ // 0x36fc @0x4
0x36f8…3704 at0005 = ╱4a╱J╱ // 0x36fd @0x5
0x36f8…3704 at0006 = ╱e8╱ MOD ╱ // 0x36fe @0x6
0x36f8…3704 at0007 = ╱56╱V╱ // 0x36ff @0x7
0x36f8…3704 at0008 = ╱dc╱=╱ // 0x3700 @0x8
0x36f8…3704 at0009 = ╱42╱B╱ // 0x3701 @0x9
0x36f8…3704 at000a = ╱b6╱ THEN ╱ // 0x3702 @0xa
0x36f8…3704 at000b = EOL // 0x3703 @0xb
0x36f8…3704 }
0x3704…3714 c46b 6730 DAT$(J)="."
0x3704…3714 LineComalBin {
0x3704…3714 ptr = 0xc46b // 0x3704 @0x0
0x3704…3714 lno = 0x1a4a // 0x3706 @0x2
0x3704…3714 at0004 = ╱44╱D╱ // 0x3708 @0x4
0x3704…3714 at0005 = ╱41╱A╱ // 0x3709 @0x5
0x3704…3714 at0006 = ╱54╱T╱ // 0x370a @0x6
0x3704…3714 at0007 = ╱ef╱$╱ // 0x370b @0x7
0x3704…3714 at0008 = ╱ed╱(╱ // 0x370c @0x8
0x3704…3714 at0009 = ╱4a╱J╱ // 0x370d @0x9
0x3704…3714 at000a = ╱ee╱)╱ // 0x370e @0xa
0x3704…3714 at000b = ╱dc╱=╱ // 0x370f @0xb
0x3704…3714 at000c = ╱22╱"╱ // 0x3710 @0xc
0x3704…3714 at000d = ╱2e╱.╱ // 0x3711 @0xd
0x3704…3714 at000e = ╱22╱"╱ // 0x3712 @0xe
0x3704…3714 at000f = EOL // 0x3713 @0xf
0x3704…3714 }
0x3714…371a c471 6740 ELSE
0x3714…371a LineComalBin {
0x3714…371a ptr = 0xc471 // 0x3714 @0x0
0x3714…371a lno = 0x1a54 // 0x3716 @0x2
0x3714…371a at0004 = ╱9a╱ ELSE ╱ // 0x3718 @0x4
0x3714…371a at0005 = EOL // 0x3719 @0x5
0x3714…371a }
0x371a…374d c4a4 6750 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10
0x371a…374d LineComalBin {
0x371a…374d ptr = 0xc4a4 // 0x371a @0x0
0x371a…374d lno = 0x1a5e // 0x371c @0x2
0x371a…374d at0004 = ╱44╱D╱ // 0x371e @0x4
0x371a…374d at0005 = ╱41╱A╱ // 0x371f @0x5
0x371a…374d at0006 = ╱54╱T╱ // 0x3720 @0x6
0x371a…374d at0007 = ╱ef╱$╱ // 0x3721 @0x7
0x371a…374d at0008 = ╱ed╱(╱ // 0x3722 @0x8
0x371a…374d at0009 = ╱4a╱J╱ // 0x3723 @0x9
0x371a…374d at000a = ╱ee╱)╱ // 0x3724 @0xa
0x371a…374d at000b = ╱dc╱=╱ // 0x3725 @0xb
0x371a…374d at000c = ╱cf╱CHR╱ // 0x3726 @0xc
0x371a…374d at000d = ╱ed╱(╱ // 0x3727 @0xd
0x371a…374d at000e = ╱44╱D╱ // 0x3728 @0xe
0x371a…374d at000f = ╱41╱A╱ // 0x3729 @0xf
0x371a…374d at0010 = ╱31╱1╱ // 0x372a @0x10
0x371a…374d at0011 = ╱e8╱ MOD ╱ // 0x372b @0x11
0x371a…374d at0012 = ╱31╱1╱ // 0x372c @0x12
0x371a…374d at0013 = ╱30╱0╱ // 0x372d @0x13
0x371a…374d at0014 = ╱fe0000a004╱ // 0x372e @0x14
0x371a…374d at0019 = ╱e2╱+╱ // 0x3733 @0x19
0x371a…374d at001a = ╱34╱4╱ // 0x3734 @0x1a
0x371a…374d at001b = ╱38╱8╱ // 0x3735 @0x1b
0x371a…374d at001c = ╱fe0000c006╱ // 0x3736 @0x1c
0x371a…374d at0021 = ╱ee╱)╱ // 0x373b @0x21
0x371a…374d at0022 = ╱eb╱;╱ // 0x373c @0x22
0x371a…374d at0023 = ╱44╱D╱ // 0x373d @0x23
0x371a…374d at0024 = ╱41╱A╱ // 0x373e @0x24
0x371a…374d at0025 = ╱31╱1╱ // 0x373f @0x25
0x371a…374d at0026 = ╱dc╱=╱ // 0x3740 @0x26
0x371a…374d at0027 = ╱44╱D╱ // 0x3741 @0x27
0x371a…374d at0028 = ╱41╱A╱ // 0x3742 @0x28
0x371a…374d at0029 = ╱31╱1╱ // 0x3743 @0x29
0x371a…374d at002a = ╱e7╱ DIV ╱ // 0x3744 @0x2a
0x371a…374d at002b = ╱31╱1╱ // 0x3745 @0x2b
0x371a…374d at002c = ╱30╱0╱ // 0x3746 @0x2c
0x371a…374d at002d = ╱fe0000a004╱ // 0x3747 @0x2d
0x371a…374d at0032 = EOL // 0x374c @0x32
0x371a…374d }
0x374d…3753 c4aa 6760 ENDIF
0x374d…3753 LineComalBin {
0x374d…3753 ptr = 0xc4aa // 0x374d @0x0
0x374d…3753 lno = 0x1a68 // 0x374f @0x2
0x374d…3753 at0004 = ╱9b╱ ENDIF ╱ // 0x3751 @0x4
0x374d…3753 at0005 = EOL // 0x3752 @0x5
0x374d…3753 }
0x3753…375a c4b1 6770 NEXT J
0x3753…375a LineComalBin {
0x3753…375a ptr = 0xc4b1 // 0x3753 @0x0
0x3753…375a lno = 0x1a72 // 0x3755 @0x2
0x3753…375a at0004 = ╱84╱ NEXT ╱ // 0x3757 @0x4
0x3753…375a at0005 = ╱4a╱J╱ // 0x3758 @0x5
0x3753…375a at0006 = EOL // 0x3759 @0x6
0x3753…375a }
0x375a…3770 c4c7 6780 FOR I=FRA TO TIL STEP 4
0x375a…3770 LineComalBin {
0x375a…3770 ptr = 0xc4c7 // 0x375a @0x0
0x375a…3770 lno = 0x1a7c // 0x375c @0x2
0x375a…3770 at0004 = ╱83╱ FOR ╱ // 0x375e @0x4
0x375a…3770 at0005 = ╱49╱I╱ // 0x375f @0x5
0x375a…3770 at0006 = ╱dc╱=╱ // 0x3760 @0x6
0x375a…3770 at0007 = ╱46╱F╱ // 0x3761 @0x7
0x375a…3770 at0008 = ╱52╱R╱ // 0x3762 @0x8
0x375a…3770 at0009 = ╱41╱A╱ // 0x3763 @0x9
0x375a…3770 at000a = ╱b7╱ TO ╱ // 0x3764 @0xa
0x375a…3770 at000b = ╱54╱T╱ // 0x3765 @0xb
0x375a…3770 at000c = ╱49╱I╱ // 0x3766 @0xc
0x375a…3770 at000d = ╱4c╱L╱ // 0x3767 @0xd
0x375a…3770 at000e = ╱b8╱ STEP ╱ // 0x3768 @0xe
0x375a…3770 at000f = ╱34╱4╱ // 0x3769 @0xf
0x375a…3770 at0010 = ╱fe00008003╱ // 0x376a @0x10
0x375a…3770 at0015 = EOL // 0x376f @0x15
0x375a…3770 }
0x3770…3788 c4df 6785 PRINT TAB(67);DV$;" "
0x3770…3788 LineComalBin {
0x3770…3788 ptr = 0xc4df // 0x3770 @0x0
0x3770…3788 lno = 0x1a81 // 0x3772 @0x2
0x3770…3788 at0004 = ╱92╱ PRINT ╱ // 0x3774 @0x4
0x3770…3788 at0005 = ╱d2╱TAB╱ // 0x3775 @0x5
0x3770…3788 at0006 = ╱ed╱(╱ // 0x3776 @0x6
0x3770…3788 at0007 = ╱36╱6╱ // 0x3777 @0x7
0x3770…3788 at0008 = ╱37╱7╱ // 0x3778 @0x8
0x3770…3788 at0009 = ╱fe00008607╱ // 0x3779 @0x9
0x3770…3788 at000e = ╱ee╱)╱ // 0x377e @0xe
0x3770…3788 at000f = ╱eb╱;╱ // 0x377f @0xf
0x3770…3788 at0010 = ╱44╱D╱ // 0x3780 @0x10
0x3770…3788 at0011 = ╱56╱V╱ // 0x3781 @0x11
0x3770…3788 at0012 = ╱ef╱$╱ // 0x3782 @0x12
0x3770…3788 at0013 = ╱eb╱;╱ // 0x3783 @0x13
0x3770…3788 at0014 = ╱22╱"╱ // 0x3784 @0x14
0x3770…3788 at0015 = ╱20╱…╱ // 0x3785 @0x15
0x3770…3788 at0016 = ╱22╱"╱ // 0x3786 @0x16
0x3770…3788 at0017 = EOL // 0x3787 @0x17
0x3770…3788 }
0x3788…37db c532 6790 PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$;
0x3788…37db LineComalBin {
0x3788…37db ptr = 0xc532 // 0x3788 @0x0
0x3788…37db lno = 0x1a86 // 0x378a @0x2
0x3788…37db at0004 = ╱92╱ PRINT ╱ // 0x378c @0x4
0x3788…37db at0005 = ╱d2╱TAB╱ // 0x378d @0x5
0x3788…37db at0006 = ╱ed╱(╱ // 0x378e @0x6
0x3788…37db at0007 = ╱31╱1╱ // 0x378f @0x7
0x3788…37db at0008 = ╱30╱0╱ // 0x3790 @0x8
0x3788…37db at0009 = ╱fe0000a004╱ // 0x3791 @0x9
0x3788…37db at000e = ╱ee╱)╱ // 0x3796 @0xe
0x3788…37db at000f = ╱eb╱;╱ // 0x3797 @0xf
0x3788…37db at0010 = ╱cf╱CHR╱ // 0x3798 @0x10
0x3788…37db at0011 = ╱ed╱(╱ // 0x3799 @0x11
0x3788…37db at0012 = ╱31╱1╱ // 0x379a @0x12
0x3788…37db at0013 = ╱34╱4╱ // 0x379b @0x13
0x3788…37db at0014 = ╱fe0000e004╱ // 0x379c @0x14
0x3788…37db at0019 = ╱ee╱)╱ // 0x37a1 @0x19
0x3788…37db at001a = ╱eb╱;╱ // 0x37a2 @0x1a
0x3788…37db at001b = ╱22╱"╱ // 0x37a3 @0x1b
0x3788…37db at001c = ╱4b╱K╱ // 0x37a4 @0x1c
0x3788…37db at001d = ╱75╱u╱ // 0x37a5 @0x1d
0x3788…37db at001e = ╱6e╱n╱ // 0x37a6 @0x1e
0x3788…37db at001f = ╱64╱d╱ // 0x37a7 @0x1f
0x3788…37db at0020 = ╱65╱e╱ // 0x37a8 @0x20
0x3788…37db at0021 = ╱6b╱k╱ // 0x37a9 @0x21
0x3788…37db at0022 = ╱6f╱o╱ // 0x37aa @0x22
0x3788…37db at0023 = ╱6e╱n╱ // 0x37ab @0x23
0x3788…37db at0024 = ╱74╱t╱ // 0x37ac @0x24
0x3788…37db at0025 = ╱6f╱o╱ // 0x37ad @0x25
0x3788…37db at0026 = ╱6c╱l╱ // 0x37ae @0x26
0x3788…37db at0027 = ╱69╱i╱ // 0x37af @0x27
0x3788…37db at0028 = ╱73╱s╱ // 0x37b0 @0x28
0x3788…37db at0029 = ╱74╱t╱ // 0x37b1 @0x29
0x3788…37db at002a = ╱65╱e╱ // 0x37b2 @0x2a
0x3788…37db at002b = ╱22╱"╱ // 0x37b3 @0x2b
0x3788…37db at002c = ╱eb╱;╱ // 0x37b4 @0x2c
0x3788…37db at002d = ╱cf╱CHR╱ // 0x37b5 @0x2d
0x3788…37db at002e = ╱ed╱(╱ // 0x37b6 @0x2e
0x3788…37db at002f = ╱31╱1╱ // 0x37b7 @0x2f
0x3788…37db at0030 = ╱35╱5╱ // 0x37b8 @0x30
0x3788…37db at0031 = ╱fe0000f004╱ // 0x37b9 @0x31
0x3788…37db at0036 = ╱ee╱)╱ // 0x37be @0x36
0x3788…37db at0037 = ╱eb╱;╱ // 0x37bf @0x37
0x3788…37db at0038 = ╱d2╱TAB╱ // 0x37c0 @0x38
0x3788…37db at0039 = ╱ed╱(╱ // 0x37c1 @0x39
0x3788…37db at003a = ╱33╱3╱ // 0x37c2 @0x3a
0x3788…37db at003b = ╱38╱8╱ // 0x37c3 @0x3b
0x3788…37db at003c = ╱fe00009806╱ // 0x37c4 @0x3c
0x3788…37db at0041 = ╱ee╱)╱ // 0x37c9 @0x41
0x3788…37db at0042 = ╱eb╱;╱ // 0x37ca @0x42
0x3788…37db at0043 = ╱22╱"╱ // 0x37cb @0x43
0x3788…37db at0044 = ╱44╱D╱ // 0x37cc @0x44
0x3788…37db at0045 = ╱61╱a╱ // 0x37cd @0x45
0x3788…37db at0046 = ╱74╱t╱ // 0x37ce @0x46
0x3788…37db at0047 = ╱6f╱o╱ // 0x37cf @0x47
0x3788…37db at0048 = ╱20╱…╱ // 0x37d0 @0x48
0x3788…37db at0049 = ╱3a╱:╱ // 0x37d1 @0x49
0x3788…37db at004a = ╱20╱…╱ // 0x37d2 @0x4a
0x3788…37db at004b = ╱22╱"╱ // 0x37d3 @0x4b
0x3788…37db at004c = ╱eb╱;╱ // 0x37d4 @0x4c
0x3788…37db at004d = ╱44╱D╱ // 0x37d5 @0x4d
0x3788…37db at004e = ╱41╱A╱ // 0x37d6 @0x4e
0x3788…37db at004f = ╱54╱T╱ // 0x37d7 @0x4f
0x3788…37db at0050 = ╱ef╱$╱ // 0x37d8 @0x50
0x3788…37db at0051 = ╱eb╱;╱ // 0x37d9 @0x51
0x3788…37db at0052 = EOL // 0x37da @0x52
0x3788…37db }
0x37db…37f6 c54d 6800 PRINT USING " Side :####":SIDE
0x37db…37f6 LineComalBin {
0x37db…37f6 ptr = 0xc54d // 0x37db @0x0
0x37db…37f6 lno = 0x1a90 // 0x37dd @0x2
0x37db…37f6 at0004 = ╱92╱ PRINT ╱ // 0x37df @0x4
0x37db…37f6 at0005 = ╱b9╱ USING ╱ // 0x37e0 @0x5
0x37db…37f6 at0006 = ╱22╱"╱ // 0x37e1 @0x6
0x37db…37f6 at0007 = ╱20╱…╱ // 0x37e2 @0x7
0x37db…37f6 at0008 = ╱20╱…╱ // 0x37e3 @0x8
0x37db…37f6 at0009 = ╱20╱…╱ // 0x37e4 @0x9
0x37db…37f6 at000a = ╱53╱S╱ // 0x37e5 @0xa
0x37db…37f6 at000b = ╱69╱i╱ // 0x37e6 @0xb
0x37db…37f6 at000c = ╱64╱d╱ // 0x37e7 @0xc
0x37db…37f6 at000d = ╱65╱e╱ // 0x37e8 @0xd
0x37db…37f6 at000e = ╱20╱…╱ // 0x37e9 @0xe
0x37db…37f6 at000f = ╱3a╱:╱ // 0x37ea @0xf
0x37db…37f6 at0010 = ╱23╱#╱ // 0x37eb @0x10
0x37db…37f6 at0011 = ╱23╱#╱ // 0x37ec @0x11
0x37db…37f6 at0012 = ╱23╱#╱ // 0x37ed @0x12
0x37db…37f6 at0013 = ╱23╱#╱ // 0x37ee @0x13
0x37db…37f6 at0014 = ╱22╱"╱ // 0x37ef @0x14
0x37db…37f6 at0015 = ╱f0╱:╱ // 0x37f0 @0x15
0x37db…37f6 at0016 = ╱53╱S╱ // 0x37f1 @0x16
0x37db…37f6 at0017 = ╱49╱I╱ // 0x37f2 @0x17
0x37db…37f6 at0018 = ╱44╱D╱ // 0x37f3 @0x18
0x37db…37f6 at0019 = ╱45╱E╱ // 0x37f4 @0x19
0x37db…37f6 at001a = EOL // 0x37f5 @0x1a
0x37db…37f6 }
0x37f6…37ff c556 6810 PRINT " "
0x37f6…37ff LineComalBin {
0x37f6…37ff ptr = 0xc556 // 0x37f6 @0x0
0x37f6…37ff lno = 0x1a9a // 0x37f8 @0x2
0x37f6…37ff at0004 = ╱92╱ PRINT ╱ // 0x37fa @0x4
0x37f6…37ff at0005 = ╱22╱"╱ // 0x37fb @0x5
0x37f6…37ff at0006 = ╱20╱…╱ // 0x37fc @0x6
0x37f6…37ff at0007 = ╱22╱"╱ // 0x37fd @0x7
0x37f6…37ff at0008 = EOL // 0x37fe @0x8
0x37f6…37ff }
0x37ff…380f c566 6820 SIDE=SIDE+E
0x37ff…380f LineComalBin {
0x37ff…380f ptr = 0xc566 // 0x37ff @0x0
0x37ff…380f lno = 0x1aa4 // 0x3801 @0x2
0x37ff…380f at0004 = ╱53╱S╱ // 0x3803 @0x4
0x37ff…380f at0005 = ╱49╱I╱ // 0x3804 @0x5
0x37ff…380f at0006 = ╱44╱D╱ // 0x3805 @0x6
0x37ff…380f at0007 = ╱45╱E╱ // 0x3806 @0x7
0x37ff…380f at0008 = ╱dc╱=╱ // 0x3807 @0x8
0x37ff…380f at0009 = ╱53╱S╱ // 0x3808 @0x9
0x37ff…380f at000a = ╱49╱I╱ // 0x3809 @0xa
0x37ff…380f at000b = ╱44╱D╱ // 0x380a @0xb
0x37ff…380f at000c = ╱45╱E╱ // 0x380b @0xc
0x37ff…380f at000d = ╱e2╱+╱ // 0x380c @0xd
0x37ff…380f at000e = ╱45╱E╱ // 0x380d @0xe
0x37ff…380f at000f = EOL // 0x380e @0xf
0x37ff…380f }
0x380f…3820 c577 6830 FOR DPIL3=I TO I+V
0x380f…3820 LineComalBin {
0x380f…3820 ptr = 0xc577 // 0x380f @0x0
0x380f…3820 lno = 0x1aae // 0x3811 @0x2
0x380f…3820 at0004 = ╱83╱ FOR ╱ // 0x3813 @0x4
0x380f…3820 at0005 = ╱44╱D╱ // 0x3814 @0x5
0x380f…3820 at0006 = ╱50╱P╱ // 0x3815 @0x6
0x380f…3820 at0007 = ╱49╱I╱ // 0x3816 @0x7
0x380f…3820 at0008 = ╱4c╱L╱ // 0x3817 @0x8
0x380f…3820 at0009 = ╱33╱3╱ // 0x3818 @0x9
0x380f…3820 at000a = ╱dc╱=╱ // 0x3819 @0xa
0x380f…3820 at000b = ╱49╱I╱ // 0x381a @0xb
0x380f…3820 at000c = ╱b7╱ TO ╱ // 0x381b @0xc
0x380f…3820 at000d = ╱49╱I╱ // 0x381c @0xd
0x380f…3820 at000e = ╱e2╱+╱ // 0x381d @0xe
0x380f…3820 at000f = ╱56╱V╱ // 0x381e @0xf
0x380f…3820 at0010 = EOL // 0x381f @0x10
0x380f…3820 }
0x3820…3836 c58d 6840 IF DTAB(DPIL3,E)>B THEN
0x3820…3836 LineComalBin {
0x3820…3836 ptr = 0xc58d // 0x3820 @0x0
0x3820…3836 lno = 0x1ab8 // 0x3822 @0x2
0x3820…3836 at0004 = ╱9c╱ IF ╱ // 0x3824 @0x4
0x3820…3836 at0005 = ╱44╱D╱ // 0x3825 @0x5
0x3820…3836 at0006 = ╱54╱T╱ // 0x3826 @0x6
0x3820…3836 at0007 = ╱41╱A╱ // 0x3827 @0x7
0x3820…3836 at0008 = ╱42╱B╱ // 0x3828 @0x8
0x3820…3836 at0009 = ╱ed╱(╱ // 0x3829 @0x9
0x3820…3836 at000a = ╱44╱D╱ // 0x382a @0xa
0x3820…3836 at000b = ╱50╱P╱ // 0x382b @0xb
0x3820…3836 at000c = ╱49╱I╱ // 0x382c @0xc
0x3820…3836 at000d = ╱4c╱L╱ // 0x382d @0xd
0x3820…3836 at000e = ╱33╱3╱ // 0x382e @0xe
0x3820…3836 at000f = ╱ec╱,╱ // 0x382f @0xf
0x3820…3836 at0010 = ╱45╱E╱ // 0x3830 @0x10
0x3820…3836 at0011 = ╱ee╱)╱ // 0x3831 @0x11
0x3820…3836 at0012 = ╱de╱>╱ // 0x3832 @0x12
0x3820…3836 at0013 = ╱42╱B╱ // 0x3833 @0x13
0x3820…3836 at0014 = ╱b6╱ THEN ╱ // 0x3834 @0x14
0x3820…3836 at0015 = EOL // 0x3835 @0x15
0x3820…3836 }
0x3836…3845 c59c 6850 EXEC HENTDPOST
0x3836…3845 LineComalBin {
0x3836…3845 ptr = 0xc59c // 0x3836 @0x0
0x3836…3845 lno = 0x1ac2 // 0x3838 @0x2
0x3836…3845 at0004 = ╱9d╱ EXEC ╱ // 0x383a @0x4
0x3836…3845 at0005 = ╱48╱H╱ // 0x383b @0x5
0x3836…3845 at0006 = ╱45╱E╱ // 0x383c @0x6
0x3836…3845 at0007 = ╱4e╱N╱ // 0x383d @0x7
0x3836…3845 at0008 = ╱54╱T╱ // 0x383e @0x8
0x3836…3845 at0009 = ╱44╱D╱ // 0x383f @0x9
0x3836…3845 at000a = ╱50╱P╱ // 0x3840 @0xa
0x3836…3845 at000b = ╱4f╱O╱ // 0x3841 @0xb
0x3836…3845 at000c = ╱53╱S╱ // 0x3842 @0xc
0x3836…3845 at000d = ╱54╱T╱ // 0x3843 @0xd
0x3836…3845 at000e = EOL // 0x3844 @0xe
0x3836…3845 }
0x3845…3860 c5b7 6860 EXEC TUD(MDNKØB$,UD1$,E,B)
0x3845…3860 LineComalBin {
0x3845…3860 ptr = 0xc5b7 // 0x3845 @0x0
0x3845…3860 lno = 0x1acc // 0x3847 @0x2
0x3845…3860 at0004 = ╱9d╱ EXEC ╱ // 0x3849 @0x4
0x3845…3860 at0005 = ╱54╱T╱ // 0x384a @0x5
0x3845…3860 at0006 = ╱55╱U╱ // 0x384b @0x6
0x3845…3860 at0007 = ╱44╱D╱ // 0x384c @0x7
0x3845…3860 at0008 = ╱ed╱(╱ // 0x384d @0x8
0x3845…3860 at0009 = ╱4d╱M╱ // 0x384e @0x9
0x3845…3860 at000a = ╱44╱D╱ // 0x384f @0xa
0x3845…3860 at000b = ╱4e╱N╱ // 0x3850 @0xb
0x3845…3860 at000c = ╱4b╱K╱ // 0x3851 @0xc
0x3845…3860 at000d = ╱5c╱Ø╱ // 0x3852 @0xd
0x3845…3860 at000e = ╱42╱B╱ // 0x3853 @0xe
0x3845…3860 at000f = ╱ef╱$╱ // 0x3854 @0xf
0x3845…3860 at0010 = ╱ec╱,╱ // 0x3855 @0x10
0x3845…3860 at0011 = ╱55╱U╱ // 0x3856 @0x11
0x3845…3860 at0012 = ╱44╱D╱ // 0x3857 @0x12
0x3845…3860 at0013 = ╱31╱1╱ // 0x3858 @0x13
0x3845…3860 at0014 = ╱ef╱$╱ // 0x3859 @0x14
0x3845…3860 at0015 = ╱ec╱,╱ // 0x385a @0x15
0x3845…3860 at0016 = ╱45╱E╱ // 0x385b @0x16
0x3845…3860 at0017 = ╱ec╱,╱ // 0x385c @0x17
0x3845…3860 at0018 = ╱42╱B╱ // 0x385d @0x18
0x3845…3860 at0019 = ╱ee╱)╱ // 0x385e @0x19
0x3845…3860 at001a = EOL // 0x385f @0x1a
0x3845…3860 }
0x3860…3873 c5ca 6870 TÅRKØB$=ÅRKØB$
0x3860…3873 LineComalBin {
0x3860…3873 ptr = 0xc5ca // 0x3860 @0x0
0x3860…3873 lno = 0x1ad6 // 0x3862 @0x2
0x3860…3873 at0004 = ╱54╱T╱ // 0x3864 @0x4
0x3860…3873 at0005 = ╱5d╱Å╱ // 0x3865 @0x5
0x3860…3873 at0006 = ╱52╱R╱ // 0x3866 @0x6
0x3860…3873 at0007 = ╱4b╱K╱ // 0x3867 @0x7
0x3860…3873 at0008 = ╱5c╱Ø╱ // 0x3868 @0x8
0x3860…3873 at0009 = ╱42╱B╱ // 0x3869 @0x9
0x3860…3873 at000a = ╱ef╱$╱ // 0x386a @0xa
0x3860…3873 at000b = ╱dc╱=╱ // 0x386b @0xb
0x3860…3873 at000c = ╱5d╱Å╱ // 0x386c @0xc
0x3860…3873 at000d = ╱52╱R╱ // 0x386d @0xd
0x3860…3873 at000e = ╱4b╱K╱ // 0x386e @0xe
0x3860…3873 at000f = ╱5c╱Ø╱ // 0x386f @0xf
0x3860…3873 at0010 = ╱42╱B╱ // 0x3870 @0x10
0x3860…3873 at0011 = ╱ef╱$╱ // 0x3871 @0x11
0x3860…3873 at0012 = EOL // 0x3872 @0x12
0x3860…3873 }
0x3873…388e c5e5 6880 EXEC TUD(TÅRKØB$,UD2$,E,B)
0x3873…388e LineComalBin {
0x3873…388e ptr = 0xc5e5 // 0x3873 @0x0
0x3873…388e lno = 0x1ae0 // 0x3875 @0x2
0x3873…388e at0004 = ╱9d╱ EXEC ╱ // 0x3877 @0x4
0x3873…388e at0005 = ╱54╱T╱ // 0x3878 @0x5
0x3873…388e at0006 = ╱55╱U╱ // 0x3879 @0x6
0x3873…388e at0007 = ╱44╱D╱ // 0x387a @0x7
0x3873…388e at0008 = ╱ed╱(╱ // 0x387b @0x8
0x3873…388e at0009 = ╱54╱T╱ // 0x387c @0x9
0x3873…388e at000a = ╱5d╱Å╱ // 0x387d @0xa
0x3873…388e at000b = ╱52╱R╱ // 0x387e @0xb
0x3873…388e at000c = ╱4b╱K╱ // 0x387f @0xc
0x3873…388e at000d = ╱5c╱Ø╱ // 0x3880 @0xd
0x3873…388e at000e = ╱42╱B╱ // 0x3881 @0xe
0x3873…388e at000f = ╱ef╱$╱ // 0x3882 @0xf
0x3873…388e at0010 = ╱ec╱,╱ // 0x3883 @0x10
0x3873…388e at0011 = ╱55╱U╱ // 0x3884 @0x11
0x3873…388e at0012 = ╱44╱D╱ // 0x3885 @0x12
0x3873…388e at0013 = ╱32╱2╱ // 0x3886 @0x13
0x3873…388e at0014 = ╱ef╱$╱ // 0x3887 @0x14
0x3873…388e at0015 = ╱ec╱,╱ // 0x3888 @0x15
0x3873…388e at0016 = ╱45╱E╱ // 0x3889 @0x16
0x3873…388e at0017 = ╱ec╱,╱ // 0x388a @0x17
0x3873…388e at0018 = ╱42╱B╱ // 0x388b @0x18
0x3873…388e at0019 = ╱ee╱)╱ // 0x388c @0x19
0x3873…388e at001a = EOL // 0x388d @0x1a
0x3873…388e }
0x388e…389f c5f6 6890 PRINT TAB(W);STREG$
0x388e…389f LineComalBin {
0x388e…389f ptr = 0xc5f6 // 0x388e @0x0
0x388e…389f lno = 0x1aea // 0x3890 @0x2
0x388e…389f at0004 = ╱92╱ PRINT ╱ // 0x3892 @0x4
0x388e…389f at0005 = ╱d2╱TAB╱ // 0x3893 @0x5
0x388e…389f at0006 = ╱ed╱(╱ // 0x3894 @0x6
0x388e…389f at0007 = ╱57╱W╱ // 0x3895 @0x7
0x388e…389f at0008 = ╱ee╱)╱ // 0x3896 @0x8
0x388e…389f at0009 = ╱eb╱;╱ // 0x3897 @0x9
0x388e…389f at000a = ╱53╱S╱ // 0x3898 @0xa
0x388e…389f at000b = ╱54╱T╱ // 0x3899 @0xb
0x388e…389f at000c = ╱52╱R╱ // 0x389a @0xc
0x388e…389f at000d = ╱45╱E╱ // 0x389b @0xd
0x388e…389f at000e = ╱47╱G╱ // 0x389c @0xe
0x388e…389f at000f = ╱ef╱$╱ // 0x389d @0xf
0x388e…389f at0010 = EOL // 0x389e @0x10
0x388e…389f }
0x389f…38e8 c63f 6900 PRINT TAB(W);"NAVN OG ADRESSE";TAB(38);"MÅNEDENS KØB ÅRETS KØB H";
0x389f…38e8 LineComalBin {
0x389f…38e8 ptr = 0xc63f // 0x389f @0x0
0x389f…38e8 lno = 0x1af4 // 0x38a1 @0x2
0x389f…38e8 at0004 = ╱92╱ PRINT ╱ // 0x38a3 @0x4
0x389f…38e8 at0005 = ╱d2╱TAB╱ // 0x38a4 @0x5
0x389f…38e8 at0006 = ╱ed╱(╱ // 0x38a5 @0x6
0x389f…38e8 at0007 = ╱57╱W╱ // 0x38a6 @0x7
0x389f…38e8 at0008 = ╱ee╱)╱ // 0x38a7 @0x8
0x389f…38e8 at0009 = ╱eb╱;╱ // 0x38a8 @0x9
0x389f…38e8 at000a = ╱22╱"╱ // 0x38a9 @0xa
0x389f…38e8 at000b = ╱4e╱N╱ // 0x38aa @0xb
0x389f…38e8 at000c = ╱41╱A╱ // 0x38ab @0xc
0x389f…38e8 at000d = ╱56╱V╱ // 0x38ac @0xd
0x389f…38e8 at000e = ╱4e╱N╱ // 0x38ad @0xe
0x389f…38e8 at000f = ╱20╱…╱ // 0x38ae @0xf
0x389f…38e8 at0010 = ╱4f╱O╱ // 0x38af @0x10
0x389f…38e8 at0011 = ╱47╱G╱ // 0x38b0 @0x11
0x389f…38e8 at0012 = ╱20╱…╱ // 0x38b1 @0x12
0x389f…38e8 at0013 = ╱41╱A╱ // 0x38b2 @0x13
0x389f…38e8 at0014 = ╱44╱D╱ // 0x38b3 @0x14
0x389f…38e8 at0015 = ╱52╱R╱ // 0x38b4 @0x15
0x389f…38e8 at0016 = ╱45╱E╱ // 0x38b5 @0x16
0x389f…38e8 at0017 = ╱53╱S╱ // 0x38b6 @0x17
0x389f…38e8 at0018 = ╱53╱S╱ // 0x38b7 @0x18
0x389f…38e8 at0019 = ╱45╱E╱ // 0x38b8 @0x19
0x389f…38e8 at001a = ╱22╱"╱ // 0x38b9 @0x1a
0x389f…38e8 at001b = ╱eb╱;╱ // 0x38ba @0x1b
0x389f…38e8 at001c = ╱d2╱TAB╱ // 0x38bb @0x1c
0x389f…38e8 at001d = ╱ed╱(╱ // 0x38bc @0x1d
0x389f…38e8 at001e = ╱33╱3╱ // 0x38bd @0x1e
0x389f…38e8 at001f = ╱38╱8╱ // 0x38be @0x1f
0x389f…38e8 at0020 = ╱fe00009806╱ // 0x38bf @0x20
0x389f…38e8 at0025 = ╱ee╱)╱ // 0x38c4 @0x25
0x389f…38e8 at0026 = ╱eb╱;╱ // 0x38c5 @0x26
0x389f…38e8 at0027 = ╱22╱"╱ // 0x38c6 @0x27
0x389f…38e8 at0028 = ╱4d╱M╱ // 0x38c7 @0x28
0x389f…38e8 at0029 = ╱5d╱Å╱ // 0x38c8 @0x29
0x389f…38e8 at002a = ╱4e╱N╱ // 0x38c9 @0x2a
0x389f…38e8 at002b = ╱45╱E╱ // 0x38ca @0x2b
0x389f…38e8 at002c = ╱44╱D╱ // 0x38cb @0x2c
0x389f…38e8 at002d = ╱45╱E╱ // 0x38cc @0x2d
0x389f…38e8 at002e = ╱4e╱N╱ // 0x38cd @0x2e
0x389f…38e8 at002f = ╱53╱S╱ // 0x38ce @0x2f
0x389f…38e8 at0030 = ╱20╱…╱ // 0x38cf @0x30
0x389f…38e8 at0031 = ╱4b╱K╱ // 0x38d0 @0x31
0x389f…38e8 at0032 = ╱5c╱Ø╱ // 0x38d1 @0x32
0x389f…38e8 at0033 = ╱42╱B╱ // 0x38d2 @0x33
0x389f…38e8 at0034 = ╱20╱…╱ // 0x38d3 @0x34
0x389f…38e8 at0035 = ╱20╱…╱ // 0x38d4 @0x35
0x389f…38e8 at0036 = ╱20╱…╱ // 0x38d5 @0x36
0x389f…38e8 at0037 = ╱20╱…╱ // 0x38d6 @0x37
0x389f…38e8 at0038 = ╱20╱…╱ // 0x38d7 @0x38
0x389f…38e8 at0039 = ╱20╱…╱ // 0x38d8 @0x39
0x389f…38e8 at003a = ╱5d╱Å╱ // 0x38d9 @0x3a
0x389f…38e8 at003b = ╱52╱R╱ // 0x38da @0x3b
0x389f…38e8 at003c = ╱45╱E╱ // 0x38db @0x3c
0x389f…38e8 at003d = ╱54╱T╱ // 0x38dc @0x3d
0x389f…38e8 at003e = ╱53╱S╱ // 0x38dd @0x3e
0x389f…38e8 at003f = ╱20╱…╱ // 0x38de @0x3f
0x389f…38e8 at0040 = ╱4b╱K╱ // 0x38df @0x40
0x389f…38e8 at0041 = ╱5c╱Ø╱ // 0x38e0 @0x41
0x389f…38e8 at0042 = ╱42╱B╱ // 0x38e1 @0x42
0x389f…38e8 at0043 = ╱20╱…╱ // 0x38e2 @0x43
0x389f…38e8 at0044 = ╱20╱…╱ // 0x38e3 @0x44
0x389f…38e8 at0045 = ╱48╱H╱ // 0x38e4 @0x45
0x389f…38e8 at0046 = ╱22╱"╱ // 0x38e5 @0x46
0x389f…38e8 at0047 = ╱eb╱;╱ // 0x38e6 @0x47
0x389f…38e8 at0048 = EOL // 0x38e7 @0x48
0x389f…38e8 }
0x38e8…38fb c652 6910 PRINT "KUNDE HPOST"
0x38e8…38fb LineComalBin {
0x38e8…38fb ptr = 0xc652 // 0x38e8 @0x0
0x38e8…38fb lno = 0x1afe // 0x38ea @0x2
0x38e8…38fb at0004 = ╱92╱ PRINT ╱ // 0x38ec @0x4
0x38e8…38fb at0005 = ╱22╱"╱ // 0x38ed @0x5
0x38e8…38fb at0006 = ╱4b╱K╱ // 0x38ee @0x6
0x38e8…38fb at0007 = ╱55╱U╱ // 0x38ef @0x7
0x38e8…38fb at0008 = ╱4e╱N╱ // 0x38f0 @0x8
0x38e8…38fb at0009 = ╱44╱D╱ // 0x38f1 @0x9
0x38e8…38fb at000a = ╱45╱E╱ // 0x38f2 @0xa
0x38e8…38fb at000b = ╱20╱…╱ // 0x38f3 @0xb
0x38e8…38fb at000c = ╱48╱H╱ // 0x38f4 @0xc
0x38e8…38fb at000d = ╱50╱P╱ // 0x38f5 @0xd
0x38e8…38fb at000e = ╱4f╱O╱ // 0x38f6 @0xe
0x38e8…38fb at000f = ╱53╱S╱ // 0x38f7 @0xf
0x38e8…38fb at0010 = ╱54╱T╱ // 0x38f8 @0x10
0x38e8…38fb at0011 = ╱22╱"╱ // 0x38f9 @0x11
0x38e8…38fb at0012 = EOL // 0x38fa @0x12
0x38e8…38fb }
0x38fb…3904 c65b 6920 PRINT " "
0x38fb…3904 LineComalBin {
0x38fb…3904 ptr = 0xc65b // 0x38fb @0x0
0x38fb…3904 lno = 0x1b08 // 0x38fd @0x2
0x38fb…3904 at0004 = ╱92╱ PRINT ╱ // 0x38ff @0x4
0x38fb…3904 at0005 = ╱22╱"╱ // 0x3900 @0x5
0x38fb…3904 at0006 = ╱20╱…╱ // 0x3901 @0x6
0x38fb…3904 at0007 = ╱22╱"╱ // 0x3902 @0x7
0x38fb…3904 at0008 = EOL // 0x3903 @0x8
0x38fb…3904 }
0x3904…391c c673 6930 PRINT USING "###### ":DEBNR;
0x3904…391c LineComalBin {
0x3904…391c ptr = 0xc673 // 0x3904 @0x0
0x3904…391c lno = 0x1b12 // 0x3906 @0x2
0x3904…391c at0004 = ╱92╱ PRINT ╱ // 0x3908 @0x4
0x3904…391c at0005 = ╱b9╱ USING ╱ // 0x3909 @0x5
0x3904…391c at0006 = ╱22╱"╱ // 0x390a @0x6
0x3904…391c at0007 = ╱23╱#╱ // 0x390b @0x7
0x3904…391c at0008 = ╱23╱#╱ // 0x390c @0x8
0x3904…391c at0009 = ╱23╱#╱ // 0x390d @0x9
0x3904…391c at000a = ╱23╱#╱ // 0x390e @0xa
0x3904…391c at000b = ╱23╱#╱ // 0x390f @0xb
0x3904…391c at000c = ╱23╱#╱ // 0x3910 @0xc
0x3904…391c at000d = ╱20╱…╱ // 0x3911 @0xd
0x3904…391c at000e = ╱20╱…╱ // 0x3912 @0xe
0x3904…391c at000f = ╱22╱"╱ // 0x3913 @0xf
0x3904…391c at0010 = ╱f0╱:╱ // 0x3914 @0x10
0x3904…391c at0011 = ╱44╱D╱ // 0x3915 @0x11
0x3904…391c at0012 = ╱45╱E╱ // 0x3916 @0x12
0x3904…391c at0013 = ╱42╱B╱ // 0x3917 @0x13
0x3904…391c at0014 = ╱4e╱N╱ // 0x3918 @0x14
0x3904…391c at0015 = ╱52╱R╱ // 0x3919 @0x15
0x3904…391c at0016 = ╱eb╱;╱ // 0x391a @0x16
0x3904…391c at0017 = EOL // 0x391b @0x17
0x3904…391c }
0x391c…3944 c69b 6940 PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$;
0x391c…3944 LineComalBin {
0x391c…3944 ptr = 0xc69b // 0x391c @0x0
0x391c…3944 lno = 0x1b1c // 0x391e @0x2
0x391c…3944 at0004 = ╱92╱ PRINT ╱ // 0x3920 @0x4
0x391c…3944 at0005 = ╱44╱D╱ // 0x3921 @0x5
0x391c…3944 at0006 = ╱45╱E╱ // 0x3922 @0x6
0x391c…3944 at0007 = ╱42╱B╱ // 0x3923 @0x7
0x391c…3944 at0008 = ╱4e╱N╱ // 0x3924 @0x8
0x391c…3944 at0009 = ╱41╱A╱ // 0x3925 @0x9
0x391c…3944 at000a = ╱56╱V╱ // 0x3926 @0xa
0x391c…3944 at000b = ╱4e╱N╱ // 0x3927 @0xb
0x391c…3944 at000c = ╱ef╱$╱ // 0x3928 @0xc
0x391c…3944 at000d = ╱eb╱;╱ // 0x3929 @0xd
0x391c…3944 at000e = ╱d2╱TAB╱ // 0x392a @0xe
0x391c…3944 at000f = ╱ed╱(╱ // 0x392b @0xf
0x391c…3944 at0010 = ╱33╱3╱ // 0x392c @0x10
0x391c…3944 at0011 = ╱38╱8╱ // 0x392d @0x11
0x391c…3944 at0012 = ╱fe00009806╱ // 0x392e @0x12
0x391c…3944 at0017 = ╱ee╱)╱ // 0x3933 @0x17
0x391c…3944 at0018 = ╱eb╱;╱ // 0x3934 @0x18
0x391c…3944 at0019 = ╱55╱U╱ // 0x3935 @0x19
0x391c…3944 at001a = ╱44╱D╱ // 0x3936 @0x1a
0x391c…3944 at001b = ╱31╱1╱ // 0x3937 @0x1b
0x391c…3944 at001c = ╱ef╱$╱ // 0x3938 @0x1c
0x391c…3944 at001d = ╱eb╱;╱ // 0x3939 @0x1d
0x391c…3944 at001e = ╱22╱"╱ // 0x393a @0x1e
0x391c…3944 at001f = ╱20╱…╱ // 0x393b @0x1f
0x391c…3944 at0020 = ╱22╱"╱ // 0x393c @0x20
0x391c…3944 at0021 = ╱eb╱;╱ // 0x393d @0x21
0x391c…3944 at0022 = ╱55╱U╱ // 0x393e @0x22
0x391c…3944 at0023 = ╱44╱D╱ // 0x393f @0x23
0x391c…3944 at0024 = ╱32╱2╱ // 0x3940 @0x24
0x391c…3944 at0025 = ╱ef╱$╱ // 0x3941 @0x25
0x391c…3944 at0026 = ╱eb╱;╱ // 0x3942 @0x26
0x391c…3944 at0027 = EOL // 0x3943 @0x27
0x391c…3944 }
0x3944…3967 c6be 6950 PRINT USING "###### ######":HKUNDE,HPOST
0x3944…3967 LineComalBin {
0x3944…3967 ptr = 0xc6be // 0x3944 @0x0
0x3944…3967 lno = 0x1b26 // 0x3946 @0x2
0x3944…3967 at0004 = ╱92╱ PRINT ╱ // 0x3948 @0x4
0x3944…3967 at0005 = ╱b9╱ USING ╱ // 0x3949 @0x5
0x3944…3967 at0006 = ╱22╱"╱ // 0x394a @0x6
0x3944…3967 at0007 = ╱23╱#╱ // 0x394b @0x7
0x3944…3967 at0008 = ╱23╱#╱ // 0x394c @0x8
0x3944…3967 at0009 = ╱23╱#╱ // 0x394d @0x9
0x3944…3967 at000a = ╱23╱#╱ // 0x394e @0xa
0x3944…3967 at000b = ╱23╱#╱ // 0x394f @0xb
0x3944…3967 at000c = ╱23╱#╱ // 0x3950 @0xc
0x3944…3967 at000d = ╱20╱…╱ // 0x3951 @0xd
0x3944…3967 at000e = ╱23╱#╱ // 0x3952 @0xe
0x3944…3967 at000f = ╱23╱#╱ // 0x3953 @0xf
0x3944…3967 at0010 = ╱23╱#╱ // 0x3954 @0x10
0x3944…3967 at0011 = ╱23╱#╱ // 0x3955 @0x11
0x3944…3967 at0012 = ╱23╱#╱ // 0x3956 @0x12
0x3944…3967 at0013 = ╱23╱#╱ // 0x3957 @0x13
0x3944…3967 at0014 = ╱22╱"╱ // 0x3958 @0x14
0x3944…3967 at0015 = ╱f0╱:╱ // 0x3959 @0x15
0x3944…3967 at0016 = ╱48╱H╱ // 0x395a @0x16
0x3944…3967 at0017 = ╱4b╱K╱ // 0x395b @0x17
0x3944…3967 at0018 = ╱55╱U╱ // 0x395c @0x18
0x3944…3967 at0019 = ╱4e╱N╱ // 0x395d @0x19
0x3944…3967 at001a = ╱44╱D╱ // 0x395e @0x1a
0x3944…3967 at001b = ╱45╱E╱ // 0x395f @0x1b
0x3944…3967 at001c = ╱ec╱,╱ // 0x3960 @0x1c
0x3944…3967 at001d = ╱48╱H╱ // 0x3961 @0x1d
0x3944…3967 at001e = ╱50╱P╱ // 0x3962 @0x1e
0x3944…3967 at001f = ╱4f╱O╱ // 0x3963 @0x1f
0x3944…3967 at0020 = ╱53╱S╱ // 0x3964 @0x20
0x3944…3967 at0021 = ╱54╱T╱ // 0x3965 @0x21
0x3944…3967 at0022 = EOL // 0x3966 @0x22
0x3944…3967 }
0x3967…397e c6d5 6960 PRINT TAB(W);DEBGADE$;" "
0x3967…397e LineComalBin {
0x3967…397e ptr = 0xc6d5 // 0x3967 @0x0
0x3967…397e lno = 0x1b30 // 0x3969 @0x2
0x3967…397e at0004 = ╱92╱ PRINT ╱ // 0x396b @0x4
0x3967…397e at0005 = ╱d2╱TAB╱ // 0x396c @0x5
0x3967…397e at0006 = ╱ed╱(╱ // 0x396d @0x6
0x3967…397e at0007 = ╱57╱W╱ // 0x396e @0x7
0x3967…397e at0008 = ╱ee╱)╱ // 0x396f @0x8
0x3967…397e at0009 = ╱eb╱;╱ // 0x3970 @0x9
0x3967…397e at000a = ╱44╱D╱ // 0x3971 @0xa
0x3967…397e at000b = ╱45╱E╱ // 0x3972 @0xb
0x3967…397e at000c = ╱42╱B╱ // 0x3973 @0xc
0x3967…397e at000d = ╱47╱G╱ // 0x3974 @0xd
0x3967…397e at000e = ╱41╱A╱ // 0x3975 @0xe
0x3967…397e at000f = ╱44╱D╱ // 0x3976 @0xf
0x3967…397e at0010 = ╱45╱E╱ // 0x3977 @0x10
0x3967…397e at0011 = ╱ef╱$╱ // 0x3978 @0x11
0x3967…397e at0012 = ╱eb╱;╱ // 0x3979 @0x12
0x3967…397e at0013 = ╱22╱"╱ // 0x397a @0x13
0x3967…397e at0014 = ╱20╱…╱ // 0x397b @0x14
0x3967…397e at0015 = ╱22╱"╱ // 0x397c @0x15
0x3967…397e at0016 = EOL // 0x397d @0x16
0x3967…397e }
0x397e…39a1 c6f8 6970 PRINT USING " ####### ":DEBPOSTNR;
0x397e…39a1 LineComalBin {
0x397e…39a1 ptr = 0xc6f8 // 0x397e @0x0
0x397e…39a1 lno = 0x1b3a // 0x3980 @0x2
0x397e…39a1 at0004 = ╱92╱ PRINT ╱ // 0x3982 @0x4
0x397e…39a1 at0005 = ╱b9╱ USING ╱ // 0x3983 @0x5
0x397e…39a1 at0006 = ╱22╱"╱ // 0x3984 @0x6
0x397e…39a1 at0007 = ╱20╱…╱ // 0x3985 @0x7
0x397e…39a1 at0008 = ╱20╱…╱ // 0x3986 @0x8
0x397e…39a1 at0009 = ╱20╱…╱ // 0x3987 @0x9
0x397e…39a1 at000a = ╱20╱…╱ // 0x3988 @0xa
0x397e…39a1 at000b = ╱20╱…╱ // 0x3989 @0xb
0x397e…39a1 at000c = ╱20╱…╱ // 0x398a @0xc
0x397e…39a1 at000d = ╱20╱…╱ // 0x398b @0xd
0x397e…39a1 at000e = ╱23╱#╱ // 0x398c @0xe
0x397e…39a1 at000f = ╱23╱#╱ // 0x398d @0xf
0x397e…39a1 at0010 = ╱23╱#╱ // 0x398e @0x10
0x397e…39a1 at0011 = ╱23╱#╱ // 0x398f @0x11
0x397e…39a1 at0012 = ╱23╱#╱ // 0x3990 @0x12
0x397e…39a1 at0013 = ╱23╱#╱ // 0x3991 @0x13
0x397e…39a1 at0014 = ╱23╱#╱ // 0x3992 @0x14
0x397e…39a1 at0015 = ╱20╱…╱ // 0x3993 @0x15
0x397e…39a1 at0016 = ╱22╱"╱ // 0x3994 @0x16
0x397e…39a1 at0017 = ╱f0╱:╱ // 0x3995 @0x17
0x397e…39a1 at0018 = ╱44╱D╱ // 0x3996 @0x18
0x397e…39a1 at0019 = ╱45╱E╱ // 0x3997 @0x19
0x397e…39a1 at001a = ╱42╱B╱ // 0x3998 @0x1a
0x397e…39a1 at001b = ╱50╱P╱ // 0x3999 @0x1b
0x397e…39a1 at001c = ╱4f╱O╱ // 0x399a @0x1c
0x397e…39a1 at001d = ╱53╱S╱ // 0x399b @0x1d
0x397e…39a1 at001e = ╱54╱T╱ // 0x399c @0x1e
0x397e…39a1 at001f = ╱4e╱N╱ // 0x399d @0x1f
0x397e…39a1 at0020 = ╱52╱R╱ // 0x399e @0x20
0x397e…39a1 at0021 = ╱eb╱;╱ // 0x399f @0x21
0x397e…39a1 at0022 = EOL // 0x39a0 @0x22
0x397e…39a1 }
0x39a1…39b9 c710 6980 PRINT DEBBY$;TAB(39);
0x39a1…39b9 LineComalBin {
0x39a1…39b9 ptr = 0xc710 // 0x39a1 @0x0
0x39a1…39b9 lno = 0x1b44 // 0x39a3 @0x2
0x39a1…39b9 at0004 = ╱92╱ PRINT ╱ // 0x39a5 @0x4
0x39a1…39b9 at0005 = ╱44╱D╱ // 0x39a6 @0x5
0x39a1…39b9 at0006 = ╱45╱E╱ // 0x39a7 @0x6
0x39a1…39b9 at0007 = ╱42╱B╱ // 0x39a8 @0x7
0x39a1…39b9 at0008 = ╱42╱B╱ // 0x39a9 @0x8
0x39a1…39b9 at0009 = ╱59╱Y╱ // 0x39aa @0x9
0x39a1…39b9 at000a = ╱ef╱$╱ // 0x39ab @0xa
0x39a1…39b9 at000b = ╱eb╱;╱ // 0x39ac @0xb
0x39a1…39b9 at000c = ╱d2╱TAB╱ // 0x39ad @0xc
0x39a1…39b9 at000d = ╱ed╱(╱ // 0x39ae @0xd
0x39a1…39b9 at000e = ╱33╱3╱ // 0x39af @0xe
0x39a1…39b9 at000f = ╱39╱9╱ // 0x39b0 @0xf
0x39a1…39b9 at0010 = ╱fe00009c06╱ // 0x39b1 @0x10
0x39a1…39b9 at0015 = ╱ee╱)╱ // 0x39b6 @0x15
0x39a1…39b9 at0016 = ╱eb╱;╱ // 0x39b7 @0x16
0x39a1…39b9 at0017 = EOL // 0x39b8 @0x17
0x39a1…39b9 }
0x39b9…39eb c742 6990 DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48
0x39b9…39eb LineComalBin {
0x39b9…39eb ptr = 0xc742 // 0x39b9 @0x0
0x39b9…39eb lno = 0x1b4e // 0x39bb @0x2
0x39b9…39eb at0004 = ╱44╱D╱ // 0x39bd @0x4
0x39b9…39eb at0005 = ╱4c╱L╱ // 0x39be @0x5
0x39b9…39eb at0006 = ╱4b╱K╱ // 0x39bf @0x6
0x39b9…39eb at0007 = ╱dc╱=╱ // 0x39c0 @0x7
0x39b9…39eb at0008 = ╱cd╱ORD╱ // 0x39c1 @0x8
0x39b9…39eb at0009 = ╱ed╱(╱ // 0x39c2 @0x9
0x39b9…39eb at000a = ╱44╱D╱ // 0x39c3 @0xa
0x39b9…39eb at000b = ╱45╱E╱ // 0x39c4 @0xb
0x39b9…39eb at000c = ╱42╱B╱ // 0x39c5 @0xc
0x39b9…39eb at000d = ╱4c╱L╱ // 0x39c6 @0xd
0x39b9…39eb at000e = ╱4b╱K╱ // 0x39c7 @0xe
0x39b9…39eb at000f = ╱ef╱$╱ // 0x39c8 @0xf
0x39b9…39eb at0010 = ╱ee╱)╱ // 0x39c9 @0x10
0x39b9…39eb at0011 = ╱e3╱-╱ // 0x39ca @0x11
0x39b9…39eb at0012 = ╱34╱4╱ // 0x39cb @0x12
0x39b9…39eb at0013 = ╱38╱8╱ // 0x39cc @0x13
0x39b9…39eb at0014 = ╱fe0000c006╱ // 0x39cd @0x14
0x39b9…39eb at0019 = ╱eb╱;╱ // 0x39d2 @0x19
0x39b9…39eb at001a = ╱44╱D╱ // 0x39d3 @0x1a
0x39b9…39eb at001b = ╱4b╱K╱ // 0x39d4 @0x1b
0x39b9…39eb at001c = ╱47╱G╱ // 0x39d5 @0x1c
0x39b9…39eb at001d = ╱52╱R╱ // 0x39d6 @0x1d
0x39b9…39eb at001e = ╱dc╱=╱ // 0x39d7 @0x1e
0x39b9…39eb at001f = ╱cd╱ORD╱ // 0x39d8 @0x1f
0x39b9…39eb at0020 = ╱ed╱(╱ // 0x39d9 @0x20
0x39b9…39eb at0021 = ╱44╱D╱ // 0x39da @0x21
0x39b9…39eb at0022 = ╱45╱E╱ // 0x39db @0x22
0x39b9…39eb at0023 = ╱42╱B╱ // 0x39dc @0x23
0x39b9…39eb at0024 = ╱4b╱K╱ // 0x39dd @0x24
0x39b9…39eb at0025 = ╱47╱G╱ // 0x39de @0x25
0x39b9…39eb at0026 = ╱52╱R╱ // 0x39df @0x26
0x39b9…39eb at0027 = ╱ef╱$╱ // 0x39e0 @0x27
0x39b9…39eb at0028 = ╱ee╱)╱ // 0x39e1 @0x28
0x39b9…39eb at0029 = ╱e3╱-╱ // 0x39e2 @0x29
0x39b9…39eb at002a = ╱34╱4╱ // 0x39e3 @0x2a
0x39b9…39eb at002b = ╱38╱8╱ // 0x39e4 @0x2b
0x39b9…39eb at002c = ╱fe0000c006╱ // 0x39e5 @0x2c
0x39b9…39eb at0031 = EOL // 0x39ea @0x31
0x39b9…39eb }
0x39eb…3a1d c774 7000 PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR
0x39eb…3a1d LineComalBin {
0x39eb…3a1d ptr = 0xc774 // 0x39eb @0x0
0x39eb…3a1d lno = 0x1b58 // 0x39ed @0x2
0x39eb…3a1d at0004 = ╱92╱ PRINT ╱ // 0x39ef @0x4
0x39eb…3a1d at0005 = ╱b9╱ USING ╱ // 0x39f0 @0x5
0x39eb…3a1d at0006 = ╱22╱"╱ // 0x39f1 @0x6
0x39eb…3a1d at0007 = ╱4c╱L╱ // 0x39f2 @0x7
0x39eb…3a1d at0008 = ╱41╱A╱ // 0x39f3 @0x8
0x39eb…3a1d at0009 = ╱4e╱N╱ // 0x39f4 @0x9
0x39eb…3a1d at000a = ╱44╱D╱ // 0x39f5 @0xa
0x39eb…3a1d at000b = ╱45╱E╱ // 0x39f6 @0xb
0x39eb…3a1d at000c = ╱4b╱K╱ // 0x39f7 @0xc
0x39eb…3a1d at000d = ╱4f╱O╱ // 0x39f8 @0xd
0x39eb…3a1d at000e = ╱44╱D╱ // 0x39f9 @0xe
0x39eb…3a1d at000f = ╱45╱E╱ // 0x39fa @0xf
0x39eb…3a1d at0010 = ╱3a╱:╱ // 0x39fb @0x10
0x39eb…3a1d at0011 = ╱23╱#╱ // 0x39fc @0x11
0x39eb…3a1d at0012 = ╱23╱#╱ // 0x39fd @0x12
0x39eb…3a1d at0013 = ╱23╱#╱ // 0x39fe @0x13
0x39eb…3a1d at0014 = ╱20╱…╱ // 0x39ff @0x14
0x39eb…3a1d at0015 = ╱20╱…╱ // 0x3a00 @0x15
0x39eb…3a1d at0016 = ╱20╱…╱ // 0x3a01 @0x16
0x39eb…3a1d at0017 = ╱20╱…╱ // 0x3a02 @0x17
0x39eb…3a1d at0018 = ╱4b╱K╱ // 0x3a03 @0x18
0x39eb…3a1d at0019 = ╱55╱U╱ // 0x3a04 @0x19
0x39eb…3a1d at001a = ╱4e╱N╱ // 0x3a05 @0x1a
0x39eb…3a1d at001b = ╱44╱D╱ // 0x3a06 @0x1b
0x39eb…3a1d at001c = ╱45╱E╱ // 0x3a07 @0x1c
0x39eb…3a1d at001d = ╱47╱G╱ // 0x3a08 @0x1d
0x39eb…3a1d at001e = ╱52╱R╱ // 0x3a09 @0x1e
0x39eb…3a1d at001f = ╱55╱U╱ // 0x3a0a @0x1f
0x39eb…3a1d at0020 = ╱50╱P╱ // 0x3a0b @0x20
0x39eb…3a1d at0021 = ╱50╱P╱ // 0x3a0c @0x21
0x39eb…3a1d at0022 = ╱45╱E╱ // 0x3a0d @0x22
0x39eb…3a1d at0023 = ╱3a╱:╱ // 0x3a0e @0x23
0x39eb…3a1d at0024 = ╱23╱#╱ // 0x3a0f @0x24
0x39eb…3a1d at0025 = ╱23╱#╱ // 0x3a10 @0x25
0x39eb…3a1d at0026 = ╱23╱#╱ // 0x3a11 @0x26
0x39eb…3a1d at0027 = ╱22╱"╱ // 0x3a12 @0x27
0x39eb…3a1d at0028 = ╱f0╱:╱ // 0x3a13 @0x28
0x39eb…3a1d at0029 = ╱44╱D╱ // 0x3a14 @0x29
0x39eb…3a1d at002a = ╱4c╱L╱ // 0x3a15 @0x2a
0x39eb…3a1d at002b = ╱4b╱K╱ // 0x3a16 @0x2b
0x39eb…3a1d at002c = ╱ec╱,╱ // 0x3a17 @0x2c
0x39eb…3a1d at002d = ╱44╱D╱ // 0x3a18 @0x2d
0x39eb…3a1d at002e = ╱4b╱K╱ // 0x3a19 @0x2e
0x39eb…3a1d at002f = ╱47╱G╱ // 0x3a1a @0x2f
0x39eb…3a1d at0030 = ╱52╱R╱ // 0x3a1b @0x30
0x39eb…3a1d at0031 = EOL // 0x3a1c @0x31
0x39eb…3a1d }
0x3a1d…3a26 c77d 7010 PRINT " "
0x3a1d…3a26 LineComalBin {
0x3a1d…3a26 ptr = 0xc77d // 0x3a1d @0x0
0x3a1d…3a26 lno = 0x1b62 // 0x3a1f @0x2
0x3a1d…3a26 at0004 = ╱92╱ PRINT ╱ // 0x3a21 @0x4
0x3a1d…3a26 at0005 = ╱22╱"╱ // 0x3a22 @0x5
0x3a1d…3a26 at0006 = ╱20╱…╱ // 0x3a23 @0x6
0x3a1d…3a26 at0007 = ╱22╱"╱ // 0x3a24 @0x7
0x3a1d…3a26 at0008 = EOL // 0x3a25 @0x8
0x3a1d…3a26 }
0x3a26…3a6c c7c3 7020 PRINT TAB(W);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE";
0x3a26…3a6c LineComalBin {
0x3a26…3a6c ptr = 0xc7c3 // 0x3a26 @0x0
0x3a26…3a6c lno = 0x1b6c // 0x3a28 @0x2
0x3a26…3a6c at0004 = ╱92╱ PRINT ╱ // 0x3a2a @0x4
0x3a26…3a6c at0005 = ╱d2╱TAB╱ // 0x3a2b @0x5
0x3a26…3a6c at0006 = ╱ed╱(╱ // 0x3a2c @0x6
0x3a26…3a6c at0007 = ╱57╱W╱ // 0x3a2d @0x7
0x3a26…3a6c at0008 = ╱ee╱)╱ // 0x3a2e @0x8
0x3a26…3a6c at0009 = ╱eb╱;╱ // 0x3a2f @0x9
0x3a26…3a6c at000a = ╱22╱"╱ // 0x3a30 @0xa
0x3a26…3a6c at000b = ╱54╱T╱ // 0x3a31 @0xb
0x3a26…3a6c at000c = ╱4c╱L╱ // 0x3a32 @0xc
0x3a26…3a6c at000d = ╱46╱F╱ // 0x3a33 @0xd
0x3a26…3a6c at000e = ╱22╱"╱ // 0x3a34 @0xe
0x3a26…3a6c at000f = ╱eb╱;╱ // 0x3a35 @0xf
0x3a26…3a6c at0010 = ╱d2╱TAB╱ // 0x3a36 @0x10
0x3a26…3a6c at0011 = ╱ed╱(╱ // 0x3a37 @0x11
0x3a26…3a6c at0012 = ╱32╱2╱ // 0x3a38 @0x12
0x3a26…3a6c at0013 = ╱33╱3╱ // 0x3a39 @0x13
0x3a26…3a6c at0014 = ╱fe0000b805╱ // 0x3a3a @0x14
0x3a26…3a6c at0019 = ╱ee╱)╱ // 0x3a3f @0x19
0x3a26…3a6c at001a = ╱eb╱;╱ // 0x3a40 @0x1a
0x3a26…3a6c at001b = ╱22╱"╱ // 0x3a41 @0x1b
0x3a26…3a6c at001c = ╱30╱0╱ // 0x3a42 @0x1c
0x3a26…3a6c at001d = ╱2d╱-╱ // 0x3a43 @0x1d
0x3a26…3a6c at001e = ╱33╱3╱ // 0x3a44 @0x1e
0x3a26…3a6c at001f = ╱30╱0╱ // 0x3a45 @0x1f
0x3a26…3a6c at0020 = ╱20╱…╱ // 0x3a46 @0x20
0x3a26…3a6c at0021 = ╱44╱D╱ // 0x3a47 @0x21
0x3a26…3a6c at0022 = ╱41╱A╱ // 0x3a48 @0x22
0x3a26…3a6c at0023 = ╱47╱G╱ // 0x3a49 @0x23
0x3a26…3a6c at0024 = ╱45╱E╱ // 0x3a4a @0x24
0x3a26…3a6c at0025 = ╱20╱…╱ // 0x3a4b @0x25
0x3a26…3a6c at0026 = ╱20╱…╱ // 0x3a4c @0x26
0x3a26…3a6c at0027 = ╱20╱…╱ // 0x3a4d @0x27
0x3a26…3a6c at0028 = ╱20╱…╱ // 0x3a4e @0x28
0x3a26…3a6c at0029 = ╱20╱…╱ // 0x3a4f @0x29
0x3a26…3a6c at002a = ╱33╱3╱ // 0x3a50 @0x2a
0x3a26…3a6c at002b = ╱30╱0╱ // 0x3a51 @0x2b
0x3a26…3a6c at002c = ╱2d╱-╱ // 0x3a52 @0x2c
0x3a26…3a6c at002d = ╱36╱6╱ // 0x3a53 @0x2d
0x3a26…3a6c at002e = ╱30╱0╱ // 0x3a54 @0x2e
0x3a26…3a6c at002f = ╱20╱…╱ // 0x3a55 @0x2f
0x3a26…3a6c at0030 = ╱44╱D╱ // 0x3a56 @0x30
0x3a26…3a6c at0031 = ╱41╱A╱ // 0x3a57 @0x31
0x3a26…3a6c at0032 = ╱47╱G╱ // 0x3a58 @0x32
0x3a26…3a6c at0033 = ╱45╱E╱ // 0x3a59 @0x33
0x3a26…3a6c at0034 = ╱20╱…╱ // 0x3a5a @0x34
0x3a26…3a6c at0035 = ╱20╱…╱ // 0x3a5b @0x35
0x3a26…3a6c at0036 = ╱20╱…╱ // 0x3a5c @0x36
0x3a26…3a6c at0037 = ╱20╱…╱ // 0x3a5d @0x37
0x3a26…3a6c at0038 = ╱20╱…╱ // 0x3a5e @0x38
0x3a26…3a6c at0039 = ╱36╱6╱ // 0x3a5f @0x39
0x3a26…3a6c at003a = ╱30╱0╱ // 0x3a60 @0x3a
0x3a26…3a6c at003b = ╱2d╱-╱ // 0x3a61 @0x3b
0x3a26…3a6c at003c = ╱39╱9╱ // 0x3a62 @0x3c
0x3a26…3a6c at003d = ╱30╱0╱ // 0x3a63 @0x3d
0x3a26…3a6c at003e = ╱20╱…╱ // 0x3a64 @0x3e
0x3a26…3a6c at003f = ╱44╱D╱ // 0x3a65 @0x3f
0x3a26…3a6c at0040 = ╱41╱A╱ // 0x3a66 @0x40
0x3a26…3a6c at0041 = ╱47╱G╱ // 0x3a67 @0x41
0x3a26…3a6c at0042 = ╱45╱E╱ // 0x3a68 @0x42
0x3a26…3a6c at0043 = ╱22╱"╱ // 0x3a69 @0x43
0x3a26…3a6c at0044 = ╱eb╱;╱ // 0x3a6a @0x44
0x3a26…3a6c at0045 = EOL // 0x3a6b @0x45
0x3a26…3a6c }
0x3a6c…3a81 c7d8 7030 PRINT " ÆLDRE"
0x3a6c…3a81 LineComalBin {
0x3a6c…3a81 ptr = 0xc7d8 // 0x3a6c @0x0
0x3a6c…3a81 lno = 0x1b76 // 0x3a6e @0x2
0x3a6c…3a81 at0004 = ╱92╱ PRINT ╱ // 0x3a70 @0x4
0x3a6c…3a81 at0005 = ╱22╱"╱ // 0x3a71 @0x5
0x3a6c…3a81 at0006 = ╱20╱…╱ // 0x3a72 @0x6
0x3a6c…3a81 at0007 = ╱20╱…╱ // 0x3a73 @0x7
0x3a6c…3a81 at0008 = ╱20╱…╱ // 0x3a74 @0x8
0x3a6c…3a81 at0009 = ╱20╱…╱ // 0x3a75 @0x9
0x3a6c…3a81 at000a = ╱20╱…╱ // 0x3a76 @0xa
0x3a6c…3a81 at000b = ╱20╱…╱ // 0x3a77 @0xb
0x3a6c…3a81 at000c = ╱20╱…╱ // 0x3a78 @0xc
0x3a6c…3a81 at000d = ╱20╱…╱ // 0x3a79 @0xd
0x3a6c…3a81 at000e = ╱5b╱Æ╱ // 0x3a7a @0xe
0x3a6c…3a81 at000f = ╱4c╱L╱ // 0x3a7b @0xf
0x3a6c…3a81 at0010 = ╱44╱D╱ // 0x3a7c @0x10
0x3a6c…3a81 at0011 = ╱52╱R╱ // 0x3a7d @0x11
0x3a6c…3a81 at0012 = ╱45╱E╱ // 0x3a7e @0x12
0x3a6c…3a81 at0013 = ╱22╱"╱ // 0x3a7f @0x13
0x3a6c…3a81 at0014 = EOL // 0x3a80 @0x14
0x3a6c…3a81 }
0x3a81…3a8a c7e1 7040 PRINT " "
0x3a81…3a8a LineComalBin {
0x3a81…3a8a ptr = 0xc7e1 // 0x3a81 @0x0
0x3a81…3a8a lno = 0x1b80 // 0x3a83 @0x2
0x3a81…3a8a at0004 = ╱92╱ PRINT ╱ // 0x3a85 @0x4
0x3a81…3a8a at0005 = ╱22╱"╱ // 0x3a86 @0x5
0x3a81…3a8a at0006 = ╱20╱…╱ // 0x3a87 @0x6
0x3a81…3a8a at0007 = ╱22╱"╱ // 0x3a88 @0x7
0x3a81…3a8a at0008 = EOL // 0x3a89 @0x8
0x3a81…3a8a }
0x3a8a…3aa6 c7fd 7050 EXEC TUD(DSALDO1$,UD1$,E,B)
0x3a8a…3aa6 LineComalBin {
0x3a8a…3aa6 ptr = 0xc7fd // 0x3a8a @0x0
0x3a8a…3aa6 lno = 0x1b8a // 0x3a8c @0x2
0x3a8a…3aa6 at0004 = ╱9d╱ EXEC ╱ // 0x3a8e @0x4
0x3a8a…3aa6 at0005 = ╱54╱T╱ // 0x3a8f @0x5
0x3a8a…3aa6 at0006 = ╱55╱U╱ // 0x3a90 @0x6
0x3a8a…3aa6 at0007 = ╱44╱D╱ // 0x3a91 @0x7
0x3a8a…3aa6 at0008 = ╱ed╱(╱ // 0x3a92 @0x8
0x3a8a…3aa6 at0009 = ╱44╱D╱ // 0x3a93 @0x9
0x3a8a…3aa6 at000a = ╱53╱S╱ // 0x3a94 @0xa
0x3a8a…3aa6 at000b = ╱41╱A╱ // 0x3a95 @0xb
0x3a8a…3aa6 at000c = ╱4c╱L╱ // 0x3a96 @0xc
0x3a8a…3aa6 at000d = ╱44╱D╱ // 0x3a97 @0xd
0x3a8a…3aa6 at000e = ╱4f╱O╱ // 0x3a98 @0xe
0x3a8a…3aa6 at000f = ╱31╱1╱ // 0x3a99 @0xf
0x3a8a…3aa6 at0010 = ╱ef╱$╱ // 0x3a9a @0x10
0x3a8a…3aa6 at0011 = ╱ec╱,╱ // 0x3a9b @0x11
0x3a8a…3aa6 at0012 = ╱55╱U╱ // 0x3a9c @0x12
0x3a8a…3aa6 at0013 = ╱44╱D╱ // 0x3a9d @0x13
0x3a8a…3aa6 at0014 = ╱31╱1╱ // 0x3a9e @0x14
0x3a8a…3aa6 at0015 = ╱ef╱$╱ // 0x3a9f @0x15
0x3a8a…3aa6 at0016 = ╱ec╱,╱ // 0x3aa0 @0x16
0x3a8a…3aa6 at0017 = ╱45╱E╱ // 0x3aa1 @0x17
0x3a8a…3aa6 at0018 = ╱ec╱,╱ // 0x3aa2 @0x18
0x3a8a…3aa6 at0019 = ╱42╱B╱ // 0x3aa3 @0x19
0x3a8a…3aa6 at001a = ╱ee╱)╱ // 0x3aa4 @0x1a
0x3a8a…3aa6 at001b = EOL // 0x3aa5 @0x1b
0x3a8a…3aa6 }
0x3aa6…3ac2 c819 7060 EXEC TUD(DSALDO2$,UD2$,E,B)
0x3aa6…3ac2 LineComalBin {
0x3aa6…3ac2 ptr = 0xc819 // 0x3aa6 @0x0
0x3aa6…3ac2 lno = 0x1b94 // 0x3aa8 @0x2
0x3aa6…3ac2 at0004 = ╱9d╱ EXEC ╱ // 0x3aaa @0x4
0x3aa6…3ac2 at0005 = ╱54╱T╱ // 0x3aab @0x5
0x3aa6…3ac2 at0006 = ╱55╱U╱ // 0x3aac @0x6
0x3aa6…3ac2 at0007 = ╱44╱D╱ // 0x3aad @0x7
0x3aa6…3ac2 at0008 = ╱ed╱(╱ // 0x3aae @0x8
0x3aa6…3ac2 at0009 = ╱44╱D╱ // 0x3aaf @0x9
0x3aa6…3ac2 at000a = ╱53╱S╱ // 0x3ab0 @0xa
0x3aa6…3ac2 at000b = ╱41╱A╱ // 0x3ab1 @0xb
0x3aa6…3ac2 at000c = ╱4c╱L╱ // 0x3ab2 @0xc
0x3aa6…3ac2 at000d = ╱44╱D╱ // 0x3ab3 @0xd
0x3aa6…3ac2 at000e = ╱4f╱O╱ // 0x3ab4 @0xe
0x3aa6…3ac2 at000f = ╱32╱2╱ // 0x3ab5 @0xf
0x3aa6…3ac2 at0010 = ╱ef╱$╱ // 0x3ab6 @0x10
0x3aa6…3ac2 at0011 = ╱ec╱,╱ // 0x3ab7 @0x11
0x3aa6…3ac2 at0012 = ╱55╱U╱ // 0x3ab8 @0x12
0x3aa6…3ac2 at0013 = ╱44╱D╱ // 0x3ab9 @0x13
0x3aa6…3ac2 at0014 = ╱32╱2╱ // 0x3aba @0x14
0x3aa6…3ac2 at0015 = ╱ef╱$╱ // 0x3abb @0x15
0x3aa6…3ac2 at0016 = ╱ec╱,╱ // 0x3abc @0x16
0x3aa6…3ac2 at0017 = ╱45╱E╱ // 0x3abd @0x17
0x3aa6…3ac2 at0018 = ╱ec╱,╱ // 0x3abe @0x18
0x3aa6…3ac2 at0019 = ╱42╱B╱ // 0x3abf @0x19
0x3aa6…3ac2 at001a = ╱ee╱)╱ // 0x3ac0 @0x1a
0x3aa6…3ac2 at001b = EOL // 0x3ac1 @0x1b
0x3aa6…3ac2 }
0x3ac2…3ade c835 7070 EXEC TUD(DSALDO3$,UD3$,E,B)
0x3ac2…3ade LineComalBin {
0x3ac2…3ade ptr = 0xc835 // 0x3ac2 @0x0
0x3ac2…3ade lno = 0x1b9e // 0x3ac4 @0x2
0x3ac2…3ade at0004 = ╱9d╱ EXEC ╱ // 0x3ac6 @0x4
0x3ac2…3ade at0005 = ╱54╱T╱ // 0x3ac7 @0x5
0x3ac2…3ade at0006 = ╱55╱U╱ // 0x3ac8 @0x6
0x3ac2…3ade at0007 = ╱44╱D╱ // 0x3ac9 @0x7
0x3ac2…3ade at0008 = ╱ed╱(╱ // 0x3aca @0x8
0x3ac2…3ade at0009 = ╱44╱D╱ // 0x3acb @0x9
0x3ac2…3ade at000a = ╱53╱S╱ // 0x3acc @0xa
0x3ac2…3ade at000b = ╱41╱A╱ // 0x3acd @0xb
0x3ac2…3ade at000c = ╱4c╱L╱ // 0x3ace @0xc
0x3ac2…3ade at000d = ╱44╱D╱ // 0x3acf @0xd
0x3ac2…3ade at000e = ╱4f╱O╱ // 0x3ad0 @0xe
0x3ac2…3ade at000f = ╱33╱3╱ // 0x3ad1 @0xf
0x3ac2…3ade at0010 = ╱ef╱$╱ // 0x3ad2 @0x10
0x3ac2…3ade at0011 = ╱ec╱,╱ // 0x3ad3 @0x11
0x3ac2…3ade at0012 = ╱55╱U╱ // 0x3ad4 @0x12
0x3ac2…3ade at0013 = ╱44╱D╱ // 0x3ad5 @0x13
0x3ac2…3ade at0014 = ╱33╱3╱ // 0x3ad6 @0x14
0x3ac2…3ade at0015 = ╱ef╱$╱ // 0x3ad7 @0x15
0x3ac2…3ade at0016 = ╱ec╱,╱ // 0x3ad8 @0x16
0x3ac2…3ade at0017 = ╱45╱E╱ // 0x3ad9 @0x17
0x3ac2…3ade at0018 = ╱ec╱,╱ // 0x3ada @0x18
0x3ac2…3ade at0019 = ╱42╱B╱ // 0x3adb @0x19
0x3ac2…3ade at001a = ╱ee╱)╱ // 0x3adc @0x1a
0x3ac2…3ade at001b = EOL // 0x3add @0x1b
0x3ac2…3ade }
0x3ade…3afa c851 7080 EXEC TUD(DSALDO4$,UD4$,E,B)
0x3ade…3afa LineComalBin {
0x3ade…3afa ptr = 0xc851 // 0x3ade @0x0
0x3ade…3afa lno = 0x1ba8 // 0x3ae0 @0x2
0x3ade…3afa at0004 = ╱9d╱ EXEC ╱ // 0x3ae2 @0x4
0x3ade…3afa at0005 = ╱54╱T╱ // 0x3ae3 @0x5
0x3ade…3afa at0006 = ╱55╱U╱ // 0x3ae4 @0x6
0x3ade…3afa at0007 = ╱44╱D╱ // 0x3ae5 @0x7
0x3ade…3afa at0008 = ╱ed╱(╱ // 0x3ae6 @0x8
0x3ade…3afa at0009 = ╱44╱D╱ // 0x3ae7 @0x9
0x3ade…3afa at000a = ╱53╱S╱ // 0x3ae8 @0xa
0x3ade…3afa at000b = ╱41╱A╱ // 0x3ae9 @0xb
0x3ade…3afa at000c = ╱4c╱L╱ // 0x3aea @0xc
0x3ade…3afa at000d = ╱44╱D╱ // 0x3aeb @0xd
0x3ade…3afa at000e = ╱4f╱O╱ // 0x3aec @0xe
0x3ade…3afa at000f = ╱34╱4╱ // 0x3aed @0xf
0x3ade…3afa at0010 = ╱ef╱$╱ // 0x3aee @0x10
0x3ade…3afa at0011 = ╱ec╱,╱ // 0x3aef @0x11
0x3ade…3afa at0012 = ╱55╱U╱ // 0x3af0 @0x12
0x3ade…3afa at0013 = ╱44╱D╱ // 0x3af1 @0x13
0x3ade…3afa at0014 = ╱34╱4╱ // 0x3af2 @0x14
0x3ade…3afa at0015 = ╱ef╱$╱ // 0x3af3 @0x15
0x3ade…3afa at0016 = ╱ec╱,╱ // 0x3af4 @0x16
0x3ade…3afa at0017 = ╱45╱E╱ // 0x3af5 @0x17
0x3ade…3afa at0018 = ╱ec╱,╱ // 0x3af6 @0x18
0x3ade…3afa at0019 = ╱42╱B╱ // 0x3af7 @0x19
0x3ade…3afa at001a = ╱ee╱)╱ // 0x3af8 @0x1a
0x3ade…3afa at001b = EOL // 0x3af9 @0x1b
0x3ade…3afa }
0x3afa…3b37 c88e 7090 PRINT TAB(W);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$
0x3afa…3b37 LineComalBin {
0x3afa…3b37 ptr = 0xc88e // 0x3afa @0x0
0x3afa…3b37 lno = 0x1bb2 // 0x3afc @0x2
0x3afa…3b37 at0004 = ╱92╱ PRINT ╱ // 0x3afe @0x4
0x3afa…3b37 at0005 = ╱d2╱TAB╱ // 0x3aff @0x5
0x3afa…3b37 at0006 = ╱ed╱(╱ // 0x3b00 @0x6
0x3afa…3b37 at0007 = ╱57╱W╱ // 0x3b01 @0x7
0x3afa…3b37 at0008 = ╱ee╱)╱ // 0x3b02 @0x8
0x3afa…3b37 at0009 = ╱eb╱;╱ // 0x3b03 @0x9
0x3afa…3b37 at000a = ╱44╱D╱ // 0x3b04 @0xa
0x3afa…3b37 at000b = ╱45╱E╱ // 0x3b05 @0xb
0x3afa…3b37 at000c = ╱42╱B╱ // 0x3b06 @0xc
0x3afa…3b37 at000d = ╱54╱T╱ // 0x3b07 @0xd
0x3afa…3b37 at000e = ╱4c╱L╱ // 0x3b08 @0xe
0x3afa…3b37 at000f = ╱46╱F╱ // 0x3b09 @0xf
0x3afa…3b37 at0010 = ╱ef╱$╱ // 0x3b0a @0x10
0x3afa…3b37 at0011 = ╱eb╱;╱ // 0x3b0b @0x11
0x3afa…3b37 at0012 = ╱d2╱TAB╱ // 0x3b0c @0x12
0x3afa…3b37 at0013 = ╱ed╱(╱ // 0x3b0d @0x13
0x3afa…3b37 at0014 = ╱31╱1╱ // 0x3b0e @0x14
0x3afa…3b37 at0015 = ╱39╱9╱ // 0x3b0f @0x15
0x3afa…3b37 at0016 = ╱fe00009805╱ // 0x3b10 @0x16
0x3afa…3b37 at001b = ╱ee╱)╱ // 0x3b15 @0x1b
0x3afa…3b37 at001c = ╱eb╱;╱ // 0x3b16 @0x1c
0x3afa…3b37 at001d = ╱55╱U╱ // 0x3b17 @0x1d
0x3afa…3b37 at001e = ╱44╱D╱ // 0x3b18 @0x1e
0x3afa…3b37 at001f = ╱31╱1╱ // 0x3b19 @0x1f
0x3afa…3b37 at0020 = ╱ef╱$╱ // 0x3b1a @0x20
0x3afa…3b37 at0021 = ╱eb╱;╱ // 0x3b1b @0x21
0x3afa…3b37 at0022 = ╱22╱"╱ // 0x3b1c @0x22
0x3afa…3b37 at0023 = ╱20╱…╱ // 0x3b1d @0x23
0x3afa…3b37 at0024 = ╱22╱"╱ // 0x3b1e @0x24
0x3afa…3b37 at0025 = ╱eb╱;╱ // 0x3b1f @0x25
0x3afa…3b37 at0026 = ╱55╱U╱ // 0x3b20 @0x26
0x3afa…3b37 at0027 = ╱44╱D╱ // 0x3b21 @0x27
0x3afa…3b37 at0028 = ╱32╱2╱ // 0x3b22 @0x28
0x3afa…3b37 at0029 = ╱ef╱$╱ // 0x3b23 @0x29
0x3afa…3b37 at002a = ╱eb╱;╱ // 0x3b24 @0x2a
0x3afa…3b37 at002b = ╱22╱"╱ // 0x3b25 @0x2b
0x3afa…3b37 at002c = ╱20╱…╱ // 0x3b26 @0x2c
0x3afa…3b37 at002d = ╱22╱"╱ // 0x3b27 @0x2d
0x3afa…3b37 at002e = ╱eb╱;╱ // 0x3b28 @0x2e
0x3afa…3b37 at002f = ╱55╱U╱ // 0x3b29 @0x2f
0x3afa…3b37 at0030 = ╱44╱D╱ // 0x3b2a @0x30
0x3afa…3b37 at0031 = ╱33╱3╱ // 0x3b2b @0x31
0x3afa…3b37 at0032 = ╱ef╱$╱ // 0x3b2c @0x32
0x3afa…3b37 at0033 = ╱eb╱;╱ // 0x3b2d @0x33
0x3afa…3b37 at0034 = ╱22╱"╱ // 0x3b2e @0x34
0x3afa…3b37 at0035 = ╱20╱…╱ // 0x3b2f @0x35
0x3afa…3b37 at0036 = ╱22╱"╱ // 0x3b30 @0x36
0x3afa…3b37 at0037 = ╱eb╱;╱ // 0x3b31 @0x37
0x3afa…3b37 at0038 = ╱55╱U╱ // 0x3b32 @0x38
0x3afa…3b37 at0039 = ╱44╱D╱ // 0x3b33 @0x39
0x3afa…3b37 at003a = ╱34╱4╱ // 0x3b34 @0x3a
0x3afa…3b37 at003b = ╱ef╱$╱ // 0x3b35 @0x3b
0x3afa…3b37 at003c = EOL // 0x3b36 @0x3c
0x3afa…3b37 }
0x3b37…3b40 c897 7100 PRINT " "
0x3b37…3b40 LineComalBin {
0x3b37…3b40 ptr = 0xc897 // 0x3b37 @0x0
0x3b37…3b40 lno = 0x1bbc // 0x3b39 @0x2
0x3b37…3b40 at0004 = ╱92╱ PRINT ╱ // 0x3b3b @0x4
0x3b37…3b40 at0005 = ╱22╱"╱ // 0x3b3c @0x5
0x3b37…3b40 at0006 = ╱20╱…╱ // 0x3b3d @0x6
0x3b37…3b40 at0007 = ╱22╱"╱ // 0x3b3e @0x7
0x3b37…3b40 at0008 = EOL // 0x3b3f @0x8
0x3b37…3b40 }
0x3b40…3b46 c89d 7110 ENDIF
0x3b40…3b46 LineComalBin {
0x3b40…3b46 ptr = 0xc89d // 0x3b40 @0x0
0x3b40…3b46 lno = 0x1bc6 // 0x3b42 @0x2
0x3b40…3b46 at0004 = ╱9b╱ ENDIF ╱ // 0x3b44 @0x4
0x3b40…3b46 at0005 = EOL // 0x3b45 @0x5
0x3b40…3b46 }
0x3b46…3b57 c8ae 7120 IF DPIL3=TIL THEN EXIT
0x3b46…3b57 LineComalBin {
0x3b46…3b57 ptr = 0xc8ae // 0x3b46 @0x0
0x3b46…3b57 lno = 0x1bd0 // 0x3b48 @0x2
0x3b46…3b57 at0004 = ╱82╱ IF ╱ // 0x3b4a @0x4
0x3b46…3b57 at0005 = ╱44╱D╱ // 0x3b4b @0x5
0x3b46…3b57 at0006 = ╱50╱P╱ // 0x3b4c @0x6
0x3b46…3b57 at0007 = ╱49╱I╱ // 0x3b4d @0x7
0x3b46…3b57 at0008 = ╱4c╱L╱ // 0x3b4e @0x8
0x3b46…3b57 at0009 = ╱33╱3╱ // 0x3b4f @0x9
0x3b46…3b57 at000a = ╱dc╱=╱ // 0x3b50 @0xa
0x3b46…3b57 at000b = ╱54╱T╱ // 0x3b51 @0xb
0x3b46…3b57 at000c = ╱49╱I╱ // 0x3b52 @0xc
0x3b46…3b57 at000d = ╱4c╱L╱ // 0x3b53 @0xd
0x3b46…3b57 at000e = ╱b6╱ THEN ╱ // 0x3b54 @0xe
0x3b46…3b57 at000f = ╱99╱ EXIT ╱ // 0x3b55 @0xf
0x3b46…3b57 at0010 = EOL // 0x3b56 @0x10
0x3b46…3b57 }
0x3b57…3b62 c8b9 7130 NEXT DPIL3
0x3b57…3b62 LineComalBin {
0x3b57…3b62 ptr = 0xc8b9 // 0x3b57 @0x0
0x3b57…3b62 lno = 0x1bda // 0x3b59 @0x2
0x3b57…3b62 at0004 = ╱84╱ NEXT ╱ // 0x3b5b @0x4
0x3b57…3b62 at0005 = ╱44╱D╱ // 0x3b5c @0x5
0x3b57…3b62 at0006 = ╱50╱P╱ // 0x3b5d @0x6
0x3b57…3b62 at0007 = ╱49╱I╱ // 0x3b5e @0x7
0x3b57…3b62 at0008 = ╱4c╱L╱ // 0x3b5f @0x8
0x3b57…3b62 at0009 = ╱33╱3╱ // 0x3b60 @0x9
0x3b57…3b62 at000a = EOL // 0x3b61 @0xa
0x3b57…3b62 }
0x3b62…3b6b c8c2 7140 PRINT " "
0x3b62…3b6b LineComalBin {
0x3b62…3b6b ptr = 0xc8c2 // 0x3b62 @0x0
0x3b62…3b6b lno = 0x1be4 // 0x3b64 @0x2
0x3b62…3b6b at0004 = ╱92╱ PRINT ╱ // 0x3b66 @0x4
0x3b62…3b6b at0005 = ╱22╱"╱ // 0x3b67 @0x5
0x3b62…3b6b at0006 = ╱20╱…╱ // 0x3b68 @0x6
0x3b62…3b6b at0007 = ╱22╱"╱ // 0x3b69 @0x7
0x3b62…3b6b at0008 = EOL // 0x3b6a @0x8
0x3b62…3b6b }
0x3b6b…3b8b c8e2 7150 IF DPIL3=TIL AND DPIL3<I+4 THEN EXIT
0x3b6b…3b8b LineComalBin {
0x3b6b…3b8b ptr = 0xc8e2 // 0x3b6b @0x0
0x3b6b…3b8b lno = 0x1bee // 0x3b6d @0x2
0x3b6b…3b8b at0004 = ╱82╱ IF ╱ // 0x3b6f @0x4
0x3b6b…3b8b at0005 = ╱44╱D╱ // 0x3b70 @0x5
0x3b6b…3b8b at0006 = ╱50╱P╱ // 0x3b71 @0x6
0x3b6b…3b8b at0007 = ╱49╱I╱ // 0x3b72 @0x7
0x3b6b…3b8b at0008 = ╱4c╱L╱ // 0x3b73 @0x8
0x3b6b…3b8b at0009 = ╱33╱3╱ // 0x3b74 @0x9
0x3b6b…3b8b at000a = ╱dc╱=╱ // 0x3b75 @0xa
0x3b6b…3b8b at000b = ╱54╱T╱ // 0x3b76 @0xb
0x3b6b…3b8b at000c = ╱49╱I╱ // 0x3b77 @0xc
0x3b6b…3b8b at000d = ╱4c╱L╱ // 0x3b78 @0xd
0x3b6b…3b8b at000e = ╱da╱ AND ╱ // 0x3b79 @0xe
0x3b6b…3b8b at000f = ╱44╱D╱ // 0x3b7a @0xf
0x3b6b…3b8b at0010 = ╱50╱P╱ // 0x3b7b @0x10
0x3b6b…3b8b at0011 = ╱49╱I╱ // 0x3b7c @0x11
0x3b6b…3b8b at0012 = ╱4c╱L╱ // 0x3b7d @0x12
0x3b6b…3b8b at0013 = ╱33╱3╱ // 0x3b7e @0x13
0x3b6b…3b8b at0014 = ╱dd╱<╱ // 0x3b7f @0x14
0x3b6b…3b8b at0015 = ╱49╱I╱ // 0x3b80 @0x15
0x3b6b…3b8b at0016 = ╱e2╱+╱ // 0x3b81 @0x16
0x3b6b…3b8b at0017 = ╱34╱4╱ // 0x3b82 @0x17
0x3b6b…3b8b at0018 = ╱fe00008003╱ // 0x3b83 @0x18
0x3b6b…3b8b at001d = ╱b6╱ THEN ╱ // 0x3b88 @0x1d
0x3b6b…3b8b at001e = ╱99╱ EXIT ╱ // 0x3b89 @0x1e
0x3b6b…3b8b at001f = EOL // 0x3b8a @0x1f
0x3b6b…3b8b }
0x3b8b…3b92 c8e9 7160 NEXT I
0x3b8b…3b92 LineComalBin {
0x3b8b…3b92 ptr = 0xc8e9 // 0x3b8b @0x0
0x3b8b…3b92 lno = 0x1bf8 // 0x3b8d @0x2
0x3b8b…3b92 at0004 = ╱84╱ NEXT ╱ // 0x3b8f @0x4
0x3b8b…3b92 at0005 = ╱49╱I╱ // 0x3b90 @0x5
0x3b8b…3b92 at0006 = EOL // 0x3b91 @0x6
0x3b8b…3b92 }
0x3b92…3ba5 c8fc 7170 FOR J=DPIL3+E TO I+V
0x3b92…3ba5 LineComalBin {
0x3b92…3ba5 ptr = 0xc8fc // 0x3b92 @0x0
0x3b92…3ba5 lno = 0x1c02 // 0x3b94 @0x2
0x3b92…3ba5 at0004 = ╱83╱ FOR ╱ // 0x3b96 @0x4
0x3b92…3ba5 at0005 = ╱4a╱J╱ // 0x3b97 @0x5
0x3b92…3ba5 at0006 = ╱dc╱=╱ // 0x3b98 @0x6
0x3b92…3ba5 at0007 = ╱44╱D╱ // 0x3b99 @0x7
0x3b92…3ba5 at0008 = ╱50╱P╱ // 0x3b9a @0x8
0x3b92…3ba5 at0009 = ╱49╱I╱ // 0x3b9b @0x9
0x3b92…3ba5 at000a = ╱4c╱L╱ // 0x3b9c @0xa
0x3b92…3ba5 at000b = ╱33╱3╱ // 0x3b9d @0xb
0x3b92…3ba5 at000c = ╱e2╱+╱ // 0x3b9e @0xc
0x3b92…3ba5 at000d = ╱45╱E╱ // 0x3b9f @0xd
0x3b92…3ba5 at000e = ╱b7╱ TO ╱ // 0x3ba0 @0xe
0x3b92…3ba5 at000f = ╱49╱I╱ // 0x3ba1 @0xf
0x3b92…3ba5 at0010 = ╱e2╱+╱ // 0x3ba2 @0x10
0x3b92…3ba5 at0011 = ╱56╱V╱ // 0x3ba3 @0x11
0x3b92…3ba5 at0012 = EOL // 0x3ba4 @0x12
0x3b92…3ba5 }
0x3ba5…3bc0 c917 7180 PRINT CHR(10);CHR(10)
0x3ba5…3bc0 LineComalBin {
0x3ba5…3bc0 ptr = 0xc917 // 0x3ba5 @0x0
0x3ba5…3bc0 lno = 0x1c0c // 0x3ba7 @0x2
0x3ba5…3bc0 at0004 = ╱92╱ PRINT ╱ // 0x3ba9 @0x4
0x3ba5…3bc0 at0005 = ╱cf╱CHR╱ // 0x3baa @0x5
0x3ba5…3bc0 at0006 = ╱ed╱(╱ // 0x3bab @0x6
0x3ba5…3bc0 at0007 = ╱31╱1╱ // 0x3bac @0x7
0x3ba5…3bc0 at0008 = ╱30╱0╱ // 0x3bad @0x8
0x3ba5…3bc0 at0009 = ╱fe0000a004╱ // 0x3bae @0x9
0x3ba5…3bc0 at000e = ╱ee╱)╱ // 0x3bb3 @0xe
0x3ba5…3bc0 at000f = ╱eb╱;╱ // 0x3bb4 @0xf
0x3ba5…3bc0 at0010 = ╱cf╱CHR╱ // 0x3bb5 @0x10
0x3ba5…3bc0 at0011 = ╱ed╱(╱ // 0x3bb6 @0x11
0x3ba5…3bc0 at0012 = ╱31╱1╱ // 0x3bb7 @0x12
0x3ba5…3bc0 at0013 = ╱30╱0╱ // 0x3bb8 @0x13
0x3ba5…3bc0 at0014 = ╱fe0000a004╱ // 0x3bb9 @0x14
0x3ba5…3bc0 at0019 = ╱ee╱)╱ // 0x3bbe @0x19
0x3ba5…3bc0 at001a = EOL // 0x3bbf @0x1a
0x3ba5…3bc0 }
0x3bc0…3bdb c932 7190 PRINT CHR(10);CHR(10)
0x3bc0…3bdb LineComalBin {
0x3bc0…3bdb ptr = 0xc932 // 0x3bc0 @0x0
0x3bc0…3bdb lno = 0x1c16 // 0x3bc2 @0x2
0x3bc0…3bdb at0004 = ╱92╱ PRINT ╱ // 0x3bc4 @0x4
0x3bc0…3bdb at0005 = ╱cf╱CHR╱ // 0x3bc5 @0x5
0x3bc0…3bdb at0006 = ╱ed╱(╱ // 0x3bc6 @0x6
0x3bc0…3bdb at0007 = ╱31╱1╱ // 0x3bc7 @0x7
0x3bc0…3bdb at0008 = ╱30╱0╱ // 0x3bc8 @0x8
0x3bc0…3bdb at0009 = ╱fe0000a004╱ // 0x3bc9 @0x9
0x3bc0…3bdb at000e = ╱ee╱)╱ // 0x3bce @0xe
0x3bc0…3bdb at000f = ╱eb╱;╱ // 0x3bcf @0xf
0x3bc0…3bdb at0010 = ╱cf╱CHR╱ // 0x3bd0 @0x10
0x3bc0…3bdb at0011 = ╱ed╱(╱ // 0x3bd1 @0x11
0x3bc0…3bdb at0012 = ╱31╱1╱ // 0x3bd2 @0x12
0x3bc0…3bdb at0013 = ╱30╱0╱ // 0x3bd3 @0x13
0x3bc0…3bdb at0014 = ╱fe0000a004╱ // 0x3bd4 @0x14
0x3bc0…3bdb at0019 = ╱ee╱)╱ // 0x3bd9 @0x19
0x3bc0…3bdb at001a = EOL // 0x3bda @0x1a
0x3bc0…3bdb }
0x3bdb…3bf6 (199,) c94d 7200 PRINT CHR(10);CHR(10)
0x3bdb…3bf6 LineComalBin {
0x3bdb…3bf6 ptr = 0xc94d // 0x3bdb @0x0
0x3bdb…3bf6 lno = 0x1c20 // 0x3bdd @0x2
0x3bdb…3bf6 at0004 = ╱92╱ PRINT ╱ // 0x3bdf @0x4
0x3bdb…3bf6 at0005 = ╱cf╱CHR╱ // 0x3be0 @0x5
0x3bdb…3bf6 at0006 = ╱ed╱(╱ // 0x3be1 @0x6
0x3bdb…3bf6 at0007 = ╱31╱1╱ // 0x3be2 @0x7
0x3bdb…3bf6 at0008 = ╱30╱0╱ // 0x3be3 @0x8
0x3bdb…3bf6 at0009 = ╱fe0000a004╱ // 0x3be4 @0x9
0x3bdb…3bf6 at000e = ╱ee╱)╱ // 0x3be9 @0xe
0x3bdb…3bf6 at000f = ╱eb╱;╱ // 0x3bea @0xf
0x3bdb…3bf6 at0010 = ╱cf╱CHR╱ // 0x3beb @0x10
0x3bdb…3bf6 at0011 = ╱ed╱(╱ // 0x3bec @0x11
0x3bdb…3bf6 at0012 = ╱31╱1╱ // 0x3bed @0x12
0x3bdb…3bf6 at0013 = ╱30╱0╱ // 0x3bee @0x13
0x3bdb…3bf6 at0014 = ╱fe0000a004╱ // 0x3bef @0x14
0x3bdb…3bf6 at0019 = ╱ee╱)╱ // 0x3bf4 @0x19
0x3bdb…3bf6 at001a = EOL // 0x3bf5 @0x1a
0x3bdb…3bf6 }
0x3bf6…3bff c956 7220 PRINT " "
0x3bf6…3bff LineComalBin {
0x3bf6…3bff ptr = 0xc956 // 0x3bf6 @0x0
0x3bf6…3bff lno = 0x1c34 // 0x3bf8 @0x2
0x3bf6…3bff at0004 = ╱92╱ PRINT ╱ // 0x3bfa @0x4
0x3bf6…3bff at0005 = ╱22╱"╱ // 0x3bfb @0x5
0x3bf6…3bff at0006 = ╱20╱…╱ // 0x3bfc @0x6
0x3bf6…3bff at0007 = ╱22╱"╱ // 0x3bfd @0x7
0x3bf6…3bff at0008 = EOL // 0x3bfe @0x8
0x3bf6…3bff }
0x3bff…3c08 c95f 7230 PRINT " "
0x3bff…3c08 LineComalBin {
0x3bff…3c08 ptr = 0xc95f // 0x3bff @0x0
0x3bff…3c08 lno = 0x1c3e // 0x3c01 @0x2
0x3bff…3c08 at0004 = ╱92╱ PRINT ╱ // 0x3c03 @0x4
0x3bff…3c08 at0005 = ╱22╱"╱ // 0x3c04 @0x5
0x3bff…3c08 at0006 = ╱20╱…╱ // 0x3c05 @0x6
0x3bff…3c08 at0007 = ╱22╱"╱ // 0x3c06 @0x7
0x3bff…3c08 at0008 = EOL // 0x3c07 @0x8
0x3bff…3c08 }
0x3c08…3c0f c966 7240 NEXT J
0x3c08…3c0f LineComalBin {
0x3c08…3c0f ptr = 0xc966 // 0x3c08 @0x0
0x3c08…3c0f lno = 0x1c48 // 0x3c0a @0x2
0x3c08…3c0f at0004 = ╱84╱ NEXT ╱ // 0x3c0c @0x4
0x3c08…3c0f at0005 = ╱4a╱J╱ // 0x3c0d @0x5
0x3c08…3c0f at0006 = EOL // 0x3c0e @0x6
0x3c08…3c0f }
0x3c0f…3c16 c96d 7250 OUTPUT T
0x3c0f…3c16 LineComalBin {
0x3c0f…3c16 ptr = 0xc96d // 0x3c0f @0x0
0x3c0f…3c16 lno = 0x1c52 // 0x3c11 @0x2
0x3c0f…3c16 at0004 = ╱a5╱ OUTPUT ╱ // 0x3c13 @0x4
0x3c0f…3c16 at0005 = ╱54╱T╱ // 0x3c14 @0x5
0x3c0f…3c16 at0006 = EOL // 0x3c15 @0x6
0x3c0f…3c16 }
0x3c16…3c21 c978 7260 KONT=B
0x3c16…3c21 LineComalBin {
0x3c16…3c21 ptr = 0xc978 // 0x3c16 @0x0
0x3c16…3c21 lno = 0x1c5c // 0x3c18 @0x2
0x3c16…3c21 at0004 = ╱4b╱K╱ // 0x3c1a @0x4
0x3c16…3c21 at0005 = ╱4f╱O╱ // 0x3c1b @0x5
0x3c16…3c21 at0006 = ╱4e╱N╱ // 0x3c1c @0x6
0x3c16…3c21 at0007 = ╱54╱T╱ // 0x3c1d @0x7
0x3c16…3c21 at0008 = ╱dc╱=╱ // 0x3c1e @0x8
0x3c16…3c21 at0009 = ╱42╱B╱ // 0x3c1f @0x9
0x3c16…3c21 at000a = EOL // 0x3c20 @0xa
0x3c16…3c21 }
0x3c21…3c27 c97e 7270 ENDCASE
0x3c21…3c27 LineComalBin {
0x3c21…3c27 ptr = 0xc97e // 0x3c21 @0x0
0x3c21…3c27 lno = 0x1c66 // 0x3c23 @0x2
0x3c21…3c27 at0004 = ╱a4╱ ENDCASE ╱ // 0x3c25 @0x4
0x3c21…3c27 at0005 = EOL // 0x3c26 @0x5
0x3c21…3c27 }
0x3c27…3c2d c984 7280 ELSE
0x3c27…3c2d LineComalBin {
0x3c27…3c2d ptr = 0xc984 // 0x3c27 @0x0
0x3c27…3c2d lno = 0x1c70 // 0x3c29 @0x2
0x3c27…3c2d at0004 = ╱9a╱ ELSE ╱ // 0x3c2b @0x4
0x3c27…3c2d at0005 = EOL // 0x3c2c @0x5
0x3c27…3c2d }
0x3c2d…3c33 c98a 7290 REPEAT
0x3c2d…3c33 LineComalBin {
0x3c2d…3c33 ptr = 0xc98a // 0x3c2d @0x0
0x3c2d…3c33 lno = 0x1c7a // 0x3c2f @0x2
0x3c2d…3c33 at0004 = ╱97╱ REPEAT ╱ // 0x3c31 @0x4
0x3c2d…3c33 at0005 = EOL // 0x3c32 @0x5
0x3c2d…3c33 }
0x3c33…3c42 c999 7300 CURSOR V,23
0x3c33…3c42 LineComalBin {
0x3c33…3c42 ptr = 0xc999 // 0x3c33 @0x0
0x3c33…3c42 lno = 0x1c84 // 0x3c35 @0x2
0x3c33…3c42 at0004 = ╱a1╱ CURSOR ╱ // 0x3c37 @0x4
0x3c33…3c42 at0005 = ╱56╱V╱ // 0x3c38 @0x5
0x3c33…3c42 at0006 = ╱ec╱,╱ // 0x3c39 @0x6
0x3c33…3c42 at0007 = ╱32╱2╱ // 0x3c3a @0x7
0x3c33…3c42 at0008 = ╱33╱3╱ // 0x3c3b @0x8
0x3c33…3c42 at0009 = ╱fe0000b805╱ // 0x3c3c @0x9
0x3c33…3c42 at000e = EOL // 0x3c41 @0xe
0x3c33…3c42 }
0x3c42…3c85 c9dc 7310 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,";
0x3c42…3c85 LineComalBin {
0x3c42…3c85 ptr = 0xc9dc // 0x3c42 @0x0
0x3c42…3c85 lno = 0x1c8e // 0x3c44 @0x2
0x3c42…3c85 at0004 = ╱92╱ PRINT ╱ // 0x3c46 @0x4
0x3c42…3c85 at0005 = ╱22╱"╱ // 0x3c47 @0x5
0x3c42…3c85 at0006 = ╱44╱D╱ // 0x3c48 @0x6
0x3c42…3c85 at0007 = ╱65╱e╱ // 0x3c49 @0x7
0x3c42…3c85 at0008 = ╱6e╱n╱ // 0x3c4a @0x8
0x3c42…3c85 at0009 = ╱6e╱n╱ // 0x3c4b @0x9
0x3c42…3c85 at000a = ╱65╱e╱ // 0x3c4c @0xa
0x3c42…3c85 at000b = ╱20╱…╱ // 0x3c4d @0xb
0x3c42…3c85 at000c = ╱6b╱k╱ // 0x3c4e @0xc
0x3c42…3c85 at000d = ╱6f╱o╱ // 0x3c4f @0xd
0x3c42…3c85 at000e = ╱6e╱n╱ // 0x3c50 @0xe
0x3c42…3c85 at000f = ╱74╱t╱ // 0x3c51 @0xf
0x3c42…3c85 at0010 = ╱6f╱o╱ // 0x3c52 @0x10
0x3c42…3c85 at0011 = ╱20╱…╱ // 0x3c53 @0x11
0x3c42…3c85 at0012 = ╱6b╱k╱ // 0x3c54 @0x12
0x3c42…3c85 at0013 = ╱61╱a╱ // 0x3c55 @0x13
0x3c42…3c85 at0014 = ╱6e╱n╱ // 0x3c56 @0x14
0x3c42…3c85 at0015 = ╱20╱…╱ // 0x3c57 @0x15
0x3c42…3c85 at0016 = ╱69╱i╱ // 0x3c58 @0x16
0x3c42…3c85 at0017 = ╱6b╱k╱ // 0x3c59 @0x17
0x3c42…3c85 at0018 = ╱6b╱k╱ // 0x3c5a @0x18
0x3c42…3c85 at0019 = ╱65╱e╱ // 0x3c5b @0x19
0x3c42…3c85 at001a = ╱20╱…╱ // 0x3c5c @0x1a
0x3c42…3c85 at001b = ╱73╱s╱ // 0x3c5d @0x1b
0x3c42…3c85 at001c = ╱6c╱l╱ // 0x3c5e @0x1c
0x3c42…3c85 at001d = ╱65╱e╱ // 0x3c5f @0x1d
0x3c42…3c85 at001e = ╱74╱t╱ // 0x3c60 @0x1e
0x3c42…3c85 at001f = ╱74╱t╱ // 0x3c61 @0x1f
0x3c42…3c85 at0020 = ╱65╱e╱ // 0x3c62 @0x20
0x3c42…3c85 at0021 = ╱73╱s╱ // 0x3c63 @0x21
0x3c42…3c85 at0022 = ╱2c╱,╱ // 0x3c64 @0x22
0x3c42…3c85 at0023 = ╱20╱…╱ // 0x3c65 @0x23
0x3c42…3c85 at0024 = ╱64╱d╱ // 0x3c66 @0x24
0x3c42…3c85 at0025 = ╱61╱a╱ // 0x3c67 @0x25
0x3c42…3c85 at0026 = ╱20╱…╱ // 0x3c68 @0x26
0x3c42…3c85 at0027 = ╱73╱s╱ // 0x3c69 @0x27
0x3c42…3c85 at0028 = ╱61╱a╱ // 0x3c6a @0x28
0x3c42…3c85 at0029 = ╱6c╱l╱ // 0x3c6b @0x29
0x3c42…3c85 at002a = ╱64╱d╱ // 0x3c6c @0x2a
0x3c42…3c85 at002b = ╱6f╱o╱ // 0x3c6d @0x2b
0x3c42…3c85 at002c = ╱65╱e╱ // 0x3c6e @0x2c
0x3c42…3c85 at002d = ╱6e╱n╱ // 0x3c6f @0x2d
0x3c42…3c85 at002e = ╱20╱…╱ // 0x3c70 @0x2e
0x3c42…3c85 at002f = ╱69╱i╱ // 0x3c71 @0x2f
0x3c42…3c85 at0030 = ╱6b╱k╱ // 0x3c72 @0x30
0x3c42…3c85 at0031 = ╱6b╱k╱ // 0x3c73 @0x31
0x3c42…3c85 at0032 = ╱65╱e╱ // 0x3c74 @0x32
0x3c42…3c85 at0033 = ╱20╱…╱ // 0x3c75 @0x33
0x3c42…3c85 at0034 = ╱65╱e╱ // 0x3c76 @0x34
0x3c42…3c85 at0035 = ╱72╱r╱ // 0x3c77 @0x35
0x3c42…3c85 at0036 = ╱20╱…╱ // 0x3c78 @0x36
0x3c42…3c85 at0037 = ╱75╱u╱ // 0x3c79 @0x37
0x3c42…3c85 at0038 = ╱64╱d╱ // 0x3c7a @0x38
0x3c42…3c85 at0039 = ╱6c╱l╱ // 0x3c7b @0x39
0x3c42…3c85 at003a = ╱69╱i╱ // 0x3c7c @0x3a
0x3c42…3c85 at003b = ╱67╱g╱ // 0x3c7d @0x3b
0x3c42…3c85 at003c = ╱6e╱n╱ // 0x3c7e @0x3c
0x3c42…3c85 at003d = ╱65╱e╱ // 0x3c7f @0x3d
0x3c42…3c85 at003e = ╱74╱t╱ // 0x3c80 @0x3e
0x3c42…3c85 at003f = ╱2c╱,╱ // 0x3c81 @0x3f
0x3c42…3c85 at0040 = ╱22╱"╱ // 0x3c82 @0x40
0x3c42…3c85 at0041 = ╱eb╱;╱ // 0x3c83 @0x41
0x3c42…3c85 at0042 = EOL // 0x3c84 @0x42
0x3c42…3c85 }
0x3c85…3c9f c9f6 7320 PRINT " tryk RETURN "
0x3c85…3c9f LineComalBin {
0x3c85…3c9f ptr = 0xc9f6 // 0x3c85 @0x0
0x3c85…3c9f lno = 0x1c98 // 0x3c87 @0x2
0x3c85…3c9f at0004 = ╱92╱ PRINT ╱ // 0x3c89 @0x4
0x3c85…3c9f at0005 = ╱22╱"╱ // 0x3c8a @0x5
0x3c85…3c9f at0006 = ╱20╱…╱ // 0x3c8b @0x6
0x3c85…3c9f at0007 = ╱74╱t╱ // 0x3c8c @0x7
0x3c85…3c9f at0008 = ╱72╱r╱ // 0x3c8d @0x8
0x3c85…3c9f at0009 = ╱79╱y╱ // 0x3c8e @0x9
0x3c85…3c9f at000a = ╱6b╱k╱ // 0x3c8f @0xa
0x3c85…3c9f at000b = ╱20╱…╱ // 0x3c90 @0xb
0x3c85…3c9f at000c = ╱52╱R╱ // 0x3c91 @0xc
0x3c85…3c9f at000d = ╱45╱E╱ // 0x3c92 @0xd
0x3c85…3c9f at000e = ╱54╱T╱ // 0x3c93 @0xe
0x3c85…3c9f at000f = ╱55╱U╱ // 0x3c94 @0xf
0x3c85…3c9f at0010 = ╱52╱R╱ // 0x3c95 @0x10
0x3c85…3c9f at0011 = ╱4e╱N╱ // 0x3c96 @0x11
0x3c85…3c9f at0012 = ╱20╱…╱ // 0x3c97 @0x12
0x3c85…3c9f at0013 = ╱20╱…╱ // 0x3c98 @0x13
0x3c85…3c9f at0014 = ╱20╱…╱ // 0x3c99 @0x14
0x3c85…3c9f at0015 = ╱20╱…╱ // 0x3c9a @0x15
0x3c85…3c9f at0016 = ╱20╱…╱ // 0x3c9b @0x16
0x3c85…3c9f at0017 = ╱20╱…╱ // 0x3c9c @0x17
0x3c85…3c9f at0018 = ╱22╱"╱ // 0x3c9d @0x18
0x3c85…3c9f at0019 = EOL // 0x3c9e @0x19
0x3c85…3c9f }
0x3c9f…3ca7 c9fe 7330 INPUT A$
0x3c9f…3ca7 LineComalBin {
0x3c9f…3ca7 ptr = 0xc9fe // 0x3c9f @0x0
0x3c9f…3ca7 lno = 0x1ca2 // 0x3ca1 @0x2
0x3c9f…3ca7 at0004 = ╱91╱ INPUT ╱ // 0x3ca3 @0x4
0x3c9f…3ca7 at0005 = ╱41╱A╱ // 0x3ca4 @0x5
0x3c9f…3ca7 at0006 = ╱ef╱$╱ // 0x3ca5 @0x6
0x3c9f…3ca7 at0007 = EOL // 0x3ca6 @0x7
0x3c9f…3ca7 }
0x3ca7…3cb7 ca0e 7340 EXEC NRTEST(A$)
0x3ca7…3cb7 LineComalBin {
0x3ca7…3cb7 ptr = 0xca0e // 0x3ca7 @0x0
0x3ca7…3cb7 lno = 0x1cac // 0x3ca9 @0x2
0x3ca7…3cb7 at0004 = ╱9d╱ EXEC ╱ // 0x3cab @0x4
0x3ca7…3cb7 at0005 = ╱4e╱N╱ // 0x3cac @0x5
0x3ca7…3cb7 at0006 = ╱52╱R╱ // 0x3cad @0x6
0x3ca7…3cb7 at0007 = ╱54╱T╱ // 0x3cae @0x7
0x3ca7…3cb7 at0008 = ╱45╱E╱ // 0x3caf @0x8
0x3ca7…3cb7 at0009 = ╱53╱S╱ // 0x3cb0 @0x9
0x3ca7…3cb7 at000a = ╱54╱T╱ // 0x3cb1 @0xa
0x3ca7…3cb7 at000b = ╱ed╱(╱ // 0x3cb2 @0xb
0x3ca7…3cb7 at000c = ╱41╱A╱ // 0x3cb3 @0xc
0x3ca7…3cb7 at000d = ╱ef╱$╱ // 0x3cb4 @0xd
0x3ca7…3cb7 at000e = ╱ee╱)╱ // 0x3cb5 @0xe
0x3ca7…3cb7 at000f = EOL // 0x3cb6 @0xf
0x3ca7…3cb7 }
0x3cb7…3cc1 ca18 7350 UNTIL P=-E
0x3cb7…3cc1 LineComalBin {
0x3cb7…3cc1 ptr = 0xca18 // 0x3cb7 @0x0
0x3cb7…3cc1 lno = 0x1cb6 // 0x3cb9 @0x2
0x3cb7…3cc1 at0004 = ╱98╱ UNTIL ╱ // 0x3cbb @0x4
0x3cb7…3cc1 at0005 = ╱50╱P╱ // 0x3cbc @0x5
0x3cb7…3cc1 at0006 = ╱dc╱=╱ // 0x3cbd @0x6
0x3cb7…3cc1 at0007 = ╱e9╱-╱ // 0x3cbe @0x7
0x3cb7…3cc1 at0008 = ╱45╱E╱ // 0x3cbf @0x8
0x3cb7…3cc1 at0009 = EOL // 0x3cc0 @0x9
0x3cb7…3cc1 }
0x3cc1…3cc7 ca1e 7360 ENDIF
0x3cc1…3cc7 LineComalBin {
0x3cc1…3cc7 ptr = 0xca1e // 0x3cc1 @0x0
0x3cc1…3cc7 lno = 0x1cc0 // 0x3cc3 @0x2
0x3cc1…3cc7 at0004 = ╱9b╱ ENDIF ╱ // 0x3cc5 @0x4
0x3cc1…3cc7 at0005 = EOL // 0x3cc6 @0x5
0x3cc1…3cc7 }
0x3cc7…3cd3 ca2a 7370 UNTIL KONT=B
0x3cc7…3cd3 LineComalBin {
0x3cc7…3cd3 ptr = 0xca2a // 0x3cc7 @0x0
0x3cc7…3cd3 lno = 0x1cca // 0x3cc9 @0x2
0x3cc7…3cd3 at0004 = ╱98╱ UNTIL ╱ // 0x3ccb @0x4
0x3cc7…3cd3 at0005 = ╱4b╱K╱ // 0x3ccc @0x5
0x3cc7…3cd3 at0006 = ╱4f╱O╱ // 0x3ccd @0x6
0x3cc7…3cd3 at0007 = ╱4e╱N╱ // 0x3cce @0x7
0x3cc7…3cd3 at0008 = ╱54╱T╱ // 0x3ccf @0x8
0x3cc7…3cd3 at0009 = ╱dc╱=╱ // 0x3cd0 @0x9
0x3cc7…3cd3 at000a = ╱42╱B╱ // 0x3cd1 @0xa
0x3cc7…3cd3 at000b = EOL // 0x3cd2 @0xb
0x3cc7…3cd3 }
0x3cd3…3cdf ca36 7380 UNTIL TYPE=B
0x3cd3…3cdf LineComalBin {
0x3cd3…3cdf ptr = 0xca36 // 0x3cd3 @0x0
0x3cd3…3cdf lno = 0x1cd4 // 0x3cd5 @0x2
0x3cd3…3cdf at0004 = ╱98╱ UNTIL ╱ // 0x3cd7 @0x4
0x3cd3…3cdf at0005 = ╱54╱T╱ // 0x3cd8 @0x5
0x3cd3…3cdf at0006 = ╱59╱Y╱ // 0x3cd9 @0x6
0x3cd3…3cdf at0007 = ╱50╱P╱ // 0x3cda @0x7
0x3cd3…3cdf at0008 = ╱45╱E╱ // 0x3cdb @0x8
0x3cd3…3cdf at0009 = ╱dc╱=╱ // 0x3cdc @0x9
0x3cd3…3cdf at000a = ╱42╱B╱ // 0x3cdd @0xa
0x3cd3…3cdf at000b = EOL // 0x3cde @0xb
0x3cd3…3cdf }
0x3cdf…3ce9 ca40 7390 EXEC KPUT
0x3cdf…3ce9 LineComalBin {
0x3cdf…3ce9 ptr = 0xca40 // 0x3cdf @0x0
0x3cdf…3ce9 lno = 0x1cde // 0x3ce1 @0x2
0x3cdf…3ce9 at0004 = ╱9d╱ EXEC ╱ // 0x3ce3 @0x4
0x3cdf…3ce9 at0005 = ╱4b╱K╱ // 0x3ce4 @0x5
0x3cdf…3ce9 at0006 = ╱50╱P╱ // 0x3ce5 @0x6
0x3cdf…3ce9 at0007 = ╱55╱U╱ // 0x3ce6 @0x7
0x3cdf…3ce9 at0008 = ╱54╱T╱ // 0x3ce7 @0x8
0x3cdf…3ce9 at0009 = EOL // 0x3ce8 @0x9
0x3cdf…3ce9 }
0x3ce9…3d06 ca5d 7400 EXEC UDTAB(DTAB,MDANTAL,K2$)
0x3ce9…3d06 LineComalBin {
0x3ce9…3d06 ptr = 0xca5d // 0x3ce9 @0x0
0x3ce9…3d06 lno = 0x1ce8 // 0x3ceb @0x2
0x3ce9…3d06 at0004 = ╱9d╱ EXEC ╱ // 0x3ced @0x4
0x3ce9…3d06 at0005 = ╱55╱U╱ // 0x3cee @0x5
0x3ce9…3d06 at0006 = ╱44╱D╱ // 0x3cef @0x6
0x3ce9…3d06 at0007 = ╱54╱T╱ // 0x3cf0 @0x7
0x3ce9…3d06 at0008 = ╱41╱A╱ // 0x3cf1 @0x8
0x3ce9…3d06 at0009 = ╱42╱B╱ // 0x3cf2 @0x9
0x3ce9…3d06 at000a = ╱ed╱(╱ // 0x3cf3 @0xa
0x3ce9…3d06 at000b = ╱44╱D╱ // 0x3cf4 @0xb
0x3ce9…3d06 at000c = ╱54╱T╱ // 0x3cf5 @0xc
0x3ce9…3d06 at000d = ╱41╱A╱ // 0x3cf6 @0xd
0x3ce9…3d06 at000e = ╱42╱B╱ // 0x3cf7 @0xe
0x3ce9…3d06 at000f = ╱ec╱,╱ // 0x3cf8 @0xf
0x3ce9…3d06 at0010 = ╱4d╱M╱ // 0x3cf9 @0x10
0x3ce9…3d06 at0011 = ╱44╱D╱ // 0x3cfa @0x11
0x3ce9…3d06 at0012 = ╱41╱A╱ // 0x3cfb @0x12
0x3ce9…3d06 at0013 = ╱4e╱N╱ // 0x3cfc @0x13
0x3ce9…3d06 at0014 = ╱54╱T╱ // 0x3cfd @0x14
0x3ce9…3d06 at0015 = ╱41╱A╱ // 0x3cfe @0x15
0x3ce9…3d06 at0016 = ╱4c╱L╱ // 0x3cff @0x16
0x3ce9…3d06 at0017 = ╱ec╱,╱ // 0x3d00 @0x17
0x3ce9…3d06 at0018 = ╱4b╱K╱ // 0x3d01 @0x18
0x3ce9…3d06 at0019 = ╱32╱2╱ // 0x3d02 @0x19
0x3ce9…3d06 at001a = ╱ef╱$╱ // 0x3d03 @0x1a
0x3ce9…3d06 at001b = ╱ee╱)╱ // 0x3d04 @0x1b
0x3ce9…3d06 at001c = EOL // 0x3d05 @0x1c
0x3ce9…3d06 }
0x3d06…3d0f ca66 7410 CLOSE K2$
0x3d06…3d0f LineComalBin {
0x3d06…3d0f ptr = 0xca66 // 0x3d06 @0x0
0x3d06…3d0f lno = 0x1cf2 // 0x3d08 @0x2
0x3d06…3d0f at0004 = ╱a8╱ CLOSE ╱ // 0x3d0a @0x4
0x3d06…3d0f at0005 = ╱4b╱K╱ // 0x3d0b @0x5
0x3d06…3d0f at0006 = ╱32╱2╱ // 0x3d0c @0x6
0x3d06…3d0f at0007 = ╱ef╱$╱ // 0x3d0d @0x7
0x3d06…3d0f at0008 = EOL // 0x3d0e @0x8
0x3d06…3d0f }
0x3d0f…3d28 (203,) ca7f 7420 EXEC FEJL(W,20,K2$)
0x3d0f…3d28 LineComalBin {
0x3d0f…3d28 ptr = 0xca7f // 0x3d0f @0x0
0x3d0f…3d28 lno = 0x1cfc // 0x3d11 @0x2
0x3d0f…3d28 at0004 = ╱9d╱ EXEC ╱ // 0x3d13 @0x4
0x3d0f…3d28 at0005 = ╱46╱F╱ // 0x3d14 @0x5
0x3d0f…3d28 at0006 = ╱45╱E╱ // 0x3d15 @0x6
0x3d0f…3d28 at0007 = ╱4a╱J╱ // 0x3d16 @0x7
0x3d0f…3d28 at0008 = ╱4c╱L╱ // 0x3d17 @0x8
0x3d0f…3d28 at0009 = ╱ed╱(╱ // 0x3d18 @0x9
0x3d0f…3d28 at000a = ╱57╱W╱ // 0x3d19 @0xa
0x3d0f…3d28 at000b = ╱ec╱,╱ // 0x3d1a @0xb
0x3d0f…3d28 at000c = ╱32╱2╱ // 0x3d1b @0xc
0x3d0f…3d28 at000d = ╱30╱0╱ // 0x3d1c @0xd
0x3d0f…3d28 at000e = ╱fe0000a005╱ // 0x3d1d @0xe
0x3d0f…3d28 at0013 = ╱ec╱,╱ // 0x3d22 @0x13
0x3d0f…3d28 at0014 = ╱4b╱K╱ // 0x3d23 @0x14
0x3d0f…3d28 at0015 = ╱32╱2╱ // 0x3d24 @0x15
0x3d0f…3d28 at0016 = ╱ef╱$╱ // 0x3d25 @0x16
0x3d0f…3d28 at0017 = ╱ee╱)╱ // 0x3d26 @0x17
0x3d0f…3d28 at0018 = EOL // 0x3d27 @0x18
0x3d0f…3d28 }
0x3d28…3d31 ca88 7430 CLOSE K3$
0x3d28…3d31 LineComalBin {
0x3d28…3d31 ptr = 0xca88 // 0x3d28 @0x0
0x3d28…3d31 lno = 0x1d06 // 0x3d2a @0x2
0x3d28…3d31 at0004 = ╱a8╱ CLOSE ╱ // 0x3d2c @0x4
0x3d28…3d31 at0005 = ╱4b╱K╱ // 0x3d2d @0x5
0x3d28…3d31 at0006 = ╱33╱3╱ // 0x3d2e @0x6
0x3d28…3d31 at0007 = ╱ef╱$╱ // 0x3d2f @0x7
0x3d28…3d31 at0008 = EOL // 0x3d30 @0x8
0x3d28…3d31 }
0x3d31…3d4a caa1 7440 EXEC FEJL(W,21,K3$)
0x3d31…3d4a LineComalBin {
0x3d31…3d4a ptr = 0xcaa1 // 0x3d31 @0x0
0x3d31…3d4a lno = 0x1d10 // 0x3d33 @0x2
0x3d31…3d4a at0004 = ╱9d╱ EXEC ╱ // 0x3d35 @0x4
0x3d31…3d4a at0005 = ╱46╱F╱ // 0x3d36 @0x5
0x3d31…3d4a at0006 = ╱45╱E╱ // 0x3d37 @0x6
0x3d31…3d4a at0007 = ╱4a╱J╱ // 0x3d38 @0x7
0x3d31…3d4a at0008 = ╱4c╱L╱ // 0x3d39 @0x8
0x3d31…3d4a at0009 = ╱ed╱(╱ // 0x3d3a @0x9
0x3d31…3d4a at000a = ╱57╱W╱ // 0x3d3b @0xa
0x3d31…3d4a at000b = ╱ec╱,╱ // 0x3d3c @0xb
0x3d31…3d4a at000c = ╱32╱2╱ // 0x3d3d @0xc
0x3d31…3d4a at000d = ╱31╱1╱ // 0x3d3e @0xd
0x3d31…3d4a at000e = ╱fe0000a805╱ // 0x3d3f @0xe
0x3d31…3d4a at0013 = ╱ec╱,╱ // 0x3d44 @0x13
0x3d31…3d4a at0014 = ╱4b╱K╱ // 0x3d45 @0x14
0x3d31…3d4a at0015 = ╱33╱3╱ // 0x3d46 @0x15
0x3d31…3d4a at0016 = ╱ef╱$╱ // 0x3d47 @0x16
0x3d31…3d4a at0017 = ╱ee╱)╱ // 0x3d48 @0x17
0x3d31…3d4a at0018 = EOL // 0x3d49 @0x18
0x3d31…3d4a }
0x3d4a…3d56 caad 7450 T2(V)=B
0x3d4a…3d56 LineComalBin {
0x3d4a…3d56 ptr = 0xcaad // 0x3d4a @0x0
0x3d4a…3d56 lno = 0x1d1a // 0x3d4c @0x2
0x3d4a…3d56 at0004 = ╱54╱T╱ // 0x3d4e @0x4
0x3d4a…3d56 at0005 = ╱32╱2╱ // 0x3d4f @0x5
0x3d4a…3d56 at0006 = ╱ed╱(╱ // 0x3d50 @0x6
0x3d4a…3d56 at0007 = ╱56╱V╱ // 0x3d51 @0x7
0x3d4a…3d56 at0008 = ╱ee╱)╱ // 0x3d52 @0x8
0x3d4a…3d56 at0009 = ╱dc╱=╱ // 0x3d53 @0x9
0x3d4a…3d56 at000a = ╱42╱B╱ // 0x3d54 @0xa
0x3d4a…3d56 at000b = EOL // 0x3d55 @0xb
0x3d4a…3d56 }
0x3d56…3d61 cab8 7460 OPEN K5$,W
0x3d56…3d61 LineComalBin {
0x3d56…3d61 ptr = 0xcab8 // 0x3d56 @0x0
0x3d56…3d61 lno = 0x1d24 // 0x3d58 @0x2
0x3d56…3d61 at0004 = ╱a7╱ OPEN ╱ // 0x3d5a @0x4
0x3d56…3d61 at0005 = ╱4b╱K╱ // 0x3d5b @0x5
0x3d56…3d61 at0006 = ╱35╱5╱ // 0x3d5c @0x6
0x3d56…3d61 at0007 = ╱ef╱$╱ // 0x3d5d @0x7
0x3d56…3d61 at0008 = ╱ec╱,╱ // 0x3d5e @0x8
0x3d56…3d61 at0009 = ╱57╱W╱ // 0x3d5f @0x9
0x3d56…3d61 at000a = EOL // 0x3d60 @0xa
0x3d56…3d61 }
0x3d61…3d7a cad1 7470 EXEC FEJL(W,22,K5$)
0x3d61…3d7a LineComalBin {
0x3d61…3d7a ptr = 0xcad1 // 0x3d61 @0x0
0x3d61…3d7a lno = 0x1d2e // 0x3d63 @0x2
0x3d61…3d7a at0004 = ╱9d╱ EXEC ╱ // 0x3d65 @0x4
0x3d61…3d7a at0005 = ╱46╱F╱ // 0x3d66 @0x5
0x3d61…3d7a at0006 = ╱45╱E╱ // 0x3d67 @0x6
0x3d61…3d7a at0007 = ╱4a╱J╱ // 0x3d68 @0x7
0x3d61…3d7a at0008 = ╱4c╱L╱ // 0x3d69 @0x8
0x3d61…3d7a at0009 = ╱ed╱(╱ // 0x3d6a @0x9
0x3d61…3d7a at000a = ╱57╱W╱ // 0x3d6b @0xa
0x3d61…3d7a at000b = ╱ec╱,╱ // 0x3d6c @0xb
0x3d61…3d7a at000c = ╱32╱2╱ // 0x3d6d @0xc
0x3d61…3d7a at000d = ╱32╱2╱ // 0x3d6e @0xd
0x3d61…3d7a at000e = ╱fe0000b005╱ // 0x3d6f @0xe
0x3d61…3d7a at0013 = ╱ec╱,╱ // 0x3d74 @0x13
0x3d61…3d7a at0014 = ╱4b╱K╱ // 0x3d75 @0x14
0x3d61…3d7a at0015 = ╱35╱5╱ // 0x3d76 @0x15
0x3d61…3d7a at0016 = ╱ef╱$╱ // 0x3d77 @0x16
0x3d61…3d7a at0017 = ╱ee╱)╱ // 0x3d78 @0x17
0x3d61…3d7a at0018 = EOL // 0x3d79 @0x18
0x3d61…3d7a }
0x3d7a…3dd1 cb28 7480 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x3d7a…3dd1 LineComalBin {
0x3d7a…3dd1 ptr = 0xcb28 // 0x3d7a @0x0
0x3d7a…3dd1 lno = 0x1d38 // 0x3d7c @0x2
0x3d7a…3dd1 at0004 = ╱aa╱ PUT ╱ // 0x3d7e @0x4
0x3d7a…3dd1 at0005 = ╱4b╱K╱ // 0x3d7f @0x5
0x3d7a…3dd1 at0006 = ╱35╱5╱ // 0x3d80 @0x6
0x3d7a…3dd1 at0007 = ╱ef╱$╱ // 0x3d81 @0x7
0x3d7a…3dd1 at0008 = ╱ec╱,╱ // 0x3d82 @0x8
0x3d7a…3dd1 at0009 = ╱31╱1╱ // 0x3d83 @0x9
0x3d7a…3dd1 at000a = ╱34╱4╱ // 0x3d84 @0xa
0x3d7a…3dd1 at000b = ╱fe0000e004╱ // 0x3d85 @0xb
0x3d7a…3dd1 at0010 = ╱f0╱:╱ // 0x3d8a @0x10
0x3d7a…3dd1 at0011 = ╱41╱A╱ // 0x3d8b @0x11
0x3d7a…3dd1 at0012 = ╱46╱F╱ // 0x3d8c @0x12
0x3d7a…3dd1 at0013 = ╱49╱I╱ // 0x3d8d @0x13
0x3d7a…3dd1 at0014 = ╱4e╱N╱ // 0x3d8e @0x14
0x3d7a…3dd1 at0015 = ╱ec╱,╱ // 0x3d8f @0x15
0x3d7a…3dd1 at0016 = ╱41╱A╱ // 0x3d90 @0x16
0x3d7a…3dd1 at0017 = ╱44╱D╱ // 0x3d91 @0x17
0x3d7a…3dd1 at0018 = ╱45╱E╱ // 0x3d92 @0x18
0x3d7a…3dd1 at0019 = ╱42╱B╱ // 0x3d93 @0x19
0x3d7a…3dd1 at001a = ╱ec╱,╱ // 0x3d94 @0x1a
0x3d7a…3dd1 at001b = ╱41╱A╱ // 0x3d95 @0x1b
0x3d7a…3dd1 at001c = ╱4b╱K╱ // 0x3d96 @0x1c
0x3d7a…3dd1 at001d = ╱52╱R╱ // 0x3d97 @0x1d
0x3d7a…3dd1 at001e = ╱45╱E╱ // 0x3d98 @0x1e
0x3d7a…3dd1 at001f = ╱ec╱,╱ // 0x3d99 @0x1f
0x3d7a…3dd1 at0020 = ╱56╱V╱ // 0x3d9a @0x20
0x3d7a…3dd1 at0021 = ╱54╱T╱ // 0x3d9b @0x21
0x3d7a…3dd1 at0022 = ╱41╱A╱ // 0x3d9c @0x22
0x3d7a…3dd1 at0023 = ╱42╱B╱ // 0x3d9d @0x23
0x3d7a…3dd1 at0024 = ╱32╱2╱ // 0x3d9e @0x24
0x3d7a…3dd1 at0025 = ╱ed╱(╱ // 0x3d9f @0x25
0x3d7a…3dd1 at0026 = ╱45╱E╱ // 0x3da0 @0x26
0x3d7a…3dd1 at0027 = ╱ee╱)╱ // 0x3da1 @0x27
0x3d7a…3dd1 at0028 = ╱ec╱,╱ // 0x3da2 @0x28
0x3d7a…3dd1 at0029 = ╱56╱V╱ // 0x3da3 @0x29
0x3d7a…3dd1 at002a = ╱54╱T╱ // 0x3da4 @0x2a
0x3d7a…3dd1 at002b = ╱41╱A╱ // 0x3da5 @0x2b
0x3d7a…3dd1 at002c = ╱42╱B╱ // 0x3da6 @0x2c
0x3d7a…3dd1 at002d = ╱32╱2╱ // 0x3da7 @0x2d
0x3d7a…3dd1 at002e = ╱ed╱(╱ // 0x3da8 @0x2e
0x3d7a…3dd1 at002f = ╱47╱G╱ // 0x3da9 @0x2f
0x3d7a…3dd1 at0030 = ╱ee╱)╱ // 0x3daa @0x30
0x3d7a…3dd1 at0031 = ╱ec╱,╱ // 0x3dab @0x31
0x3d7a…3dd1 at0032 = ╱56╱V╱ // 0x3dac @0x32
0x3d7a…3dd1 at0033 = ╱54╱T╱ // 0x3dad @0x33
0x3d7a…3dd1 at0034 = ╱41╱A╱ // 0x3dae @0x34
0x3d7a…3dd1 at0035 = ╱42╱B╱ // 0x3daf @0x35
0x3d7a…3dd1 at0036 = ╱32╱2╱ // 0x3db0 @0x36
0x3d7a…3dd1 at0037 = ╱ed╱(╱ // 0x3db1 @0x37
0x3d7a…3dd1 at0038 = ╱56╱V╱ // 0x3db2 @0x38
0x3d7a…3dd1 at0039 = ╱ee╱)╱ // 0x3db3 @0x39
0x3d7a…3dd1 at003a = ╱ec╱,╱ // 0x3db4 @0x3a
0x3d7a…3dd1 at003b = ╱56╱V╱ // 0x3db5 @0x3b
0x3d7a…3dd1 at003c = ╱54╱T╱ // 0x3db6 @0x3c
0x3d7a…3dd1 at003d = ╱41╱A╱ // 0x3db7 @0x3d
0x3d7a…3dd1 at003e = ╱42╱B╱ // 0x3db8 @0x3e
0x3d7a…3dd1 at003f = ╱32╱2╱ // 0x3db9 @0x3f
0x3d7a…3dd1 at0040 = ╱ed╱(╱ // 0x3dba @0x40
0x3d7a…3dd1 at0041 = ╱34╱4╱ // 0x3dbb @0x41
0x3d7a…3dd1 at0042 = ╱fe00008003╱ // 0x3dbc @0x42
0x3d7a…3dd1 at0047 = ╱ee╱)╱ // 0x3dc1 @0x47
0x3d7a…3dd1 at0048 = ╱ec╱,╱ // 0x3dc2 @0x48
0x3d7a…3dd1 at0049 = ╱56╱V╱ // 0x3dc3 @0x49
0x3d7a…3dd1 at004a = ╱54╱T╱ // 0x3dc4 @0x4a
0x3d7a…3dd1 at004b = ╱41╱A╱ // 0x3dc5 @0x4b
0x3d7a…3dd1 at004c = ╱42╱B╱ // 0x3dc6 @0x4c
0x3d7a…3dd1 at004d = ╱32╱2╱ // 0x3dc7 @0x4d
0x3d7a…3dd1 at004e = ╱ed╱(╱ // 0x3dc8 @0x4e
0x3d7a…3dd1 at004f = ╱35╱5╱ // 0x3dc9 @0x4f
0x3d7a…3dd1 at0050 = ╱fe0000a003╱ // 0x3dca @0x50
0x3d7a…3dd1 at0055 = ╱ee╱)╱ // 0x3dcf @0x55
0x3d7a…3dd1 at0056 = EOL // 0x3dd0 @0x56
0x3d7a…3dd1 }
0x3dd1…3dea cb41 7490 EXEC FEJL(W,23,K5$)
0x3dd1…3dea LineComalBin {
0x3dd1…3dea ptr = 0xcb41 // 0x3dd1 @0x0
0x3dd1…3dea lno = 0x1d42 // 0x3dd3 @0x2
0x3dd1…3dea at0004 = ╱9d╱ EXEC ╱ // 0x3dd5 @0x4
0x3dd1…3dea at0005 = ╱46╱F╱ // 0x3dd6 @0x5
0x3dd1…3dea at0006 = ╱45╱E╱ // 0x3dd7 @0x6
0x3dd1…3dea at0007 = ╱4a╱J╱ // 0x3dd8 @0x7
0x3dd1…3dea at0008 = ╱4c╱L╱ // 0x3dd9 @0x8
0x3dd1…3dea at0009 = ╱ed╱(╱ // 0x3dda @0x9
0x3dd1…3dea at000a = ╱57╱W╱ // 0x3ddb @0xa
0x3dd1…3dea at000b = ╱ec╱,╱ // 0x3ddc @0xb
0x3dd1…3dea at000c = ╱32╱2╱ // 0x3ddd @0xc
0x3dd1…3dea at000d = ╱33╱3╱ // 0x3dde @0xd
0x3dd1…3dea at000e = ╱fe0000b805╱ // 0x3ddf @0xe
0x3dd1…3dea at0013 = ╱ec╱,╱ // 0x3de4 @0x13
0x3dd1…3dea at0014 = ╱4b╱K╱ // 0x3de5 @0x14
0x3dd1…3dea at0015 = ╱35╱5╱ // 0x3de6 @0x15
0x3dd1…3dea at0016 = ╱ef╱$╱ // 0x3de7 @0x16
0x3dd1…3dea at0017 = ╱ee╱)╱ // 0x3de8 @0x17
0x3dd1…3dea at0018 = EOL // 0x3de9 @0x18
0x3dd1…3dea }
0x3dea…3e4a cba1 7500 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x3dea…3e4a LineComalBin {
0x3dea…3e4a ptr = 0xcba1 // 0x3dea @0x0
0x3dea…3e4a lno = 0x1d4c // 0x3dec @0x2
0x3dea…3e4a at0004 = ╱aa╱ PUT ╱ // 0x3dee @0x4
0x3dea…3e4a at0005 = ╱4b╱K╱ // 0x3def @0x5
0x3dea…3e4a at0006 = ╱35╱5╱ // 0x3df0 @0x6
0x3dea…3e4a at0007 = ╱ef╱$╱ // 0x3df1 @0x7
0x3dea…3e4a at0008 = ╱ec╱,╱ // 0x3df2 @0x8
0x3dea…3e4a at0009 = ╱31╱1╱ // 0x3df3 @0x9
0x3dea…3e4a at000a = ╱37╱7╱ // 0x3df4 @0xa
0x3dea…3e4a at000b = ╱fe00008805╱ // 0x3df5 @0xb
0x3dea…3e4a at0010 = ╱f0╱:╱ // 0x3dfa @0x10
0x3dea…3e4a at0011 = ╱54╱T╱ // 0x3dfb @0x11
0x3dea…3e4a at0012 = ╱32╱2╱ // 0x3dfc @0x12
0x3dea…3e4a at0013 = ╱ed╱(╱ // 0x3dfd @0x13
0x3dea…3e4a at0014 = ╱45╱E╱ // 0x3dfe @0x14
0x3dea…3e4a at0015 = ╱ee╱)╱ // 0x3dff @0x15
0x3dea…3e4a at0016 = ╱ec╱,╱ // 0x3e00 @0x16
0x3dea…3e4a at0017 = ╱54╱T╱ // 0x3e01 @0x17
0x3dea…3e4a at0018 = ╱32╱2╱ // 0x3e02 @0x18
0x3dea…3e4a at0019 = ╱ed╱(╱ // 0x3e03 @0x19
0x3dea…3e4a at001a = ╱47╱G╱ // 0x3e04 @0x1a
0x3dea…3e4a at001b = ╱ee╱)╱ // 0x3e05 @0x1b
0x3dea…3e4a at001c = ╱ec╱,╱ // 0x3e06 @0x1c
0x3dea…3e4a at001d = ╱54╱T╱ // 0x3e07 @0x1d
0x3dea…3e4a at001e = ╱32╱2╱ // 0x3e08 @0x1e
0x3dea…3e4a at001f = ╱ed╱(╱ // 0x3e09 @0x1f
0x3dea…3e4a at0020 = ╱56╱V╱ // 0x3e0a @0x20
0x3dea…3e4a at0021 = ╱ee╱)╱ // 0x3e0b @0x21
0x3dea…3e4a at0022 = ╱ec╱,╱ // 0x3e0c @0x22
0x3dea…3e4a at0023 = ╱54╱T╱ // 0x3e0d @0x23
0x3dea…3e4a at0024 = ╱32╱2╱ // 0x3e0e @0x24
0x3dea…3e4a at0025 = ╱ed╱(╱ // 0x3e0f @0x25
0x3dea…3e4a at0026 = ╱34╱4╱ // 0x3e10 @0x26
0x3dea…3e4a at0027 = ╱fe00008003╱ // 0x3e11 @0x27
0x3dea…3e4a at002c = ╱ee╱)╱ // 0x3e16 @0x2c
0x3dea…3e4a at002d = ╱ec╱,╱ // 0x3e17 @0x2d
0x3dea…3e4a at002e = ╱54╱T╱ // 0x3e18 @0x2e
0x3dea…3e4a at002f = ╱32╱2╱ // 0x3e19 @0x2f
0x3dea…3e4a at0030 = ╱ed╱(╱ // 0x3e1a @0x30
0x3dea…3e4a at0031 = ╱35╱5╱ // 0x3e1b @0x31
0x3dea…3e4a at0032 = ╱fe0000a003╱ // 0x3e1c @0x32
0x3dea…3e4a at0037 = ╱ee╱)╱ // 0x3e21 @0x37
0x3dea…3e4a at0038 = ╱ec╱,╱ // 0x3e22 @0x38
0x3dea…3e4a at0039 = ╱54╱T╱ // 0x3e23 @0x39
0x3dea…3e4a at003a = ╱32╱2╱ // 0x3e24 @0x3a
0x3dea…3e4a at003b = ╱ed╱(╱ // 0x3e25 @0x3b
0x3dea…3e4a at003c = ╱36╱6╱ // 0x3e26 @0x3c
0x3dea…3e4a at003d = ╱fe0000c003╱ // 0x3e27 @0x3d
0x3dea…3e4a at0042 = ╱ee╱)╱ // 0x3e2c @0x42
0x3dea…3e4a at0043 = ╱ec╱,╱ // 0x3e2d @0x43
0x3dea…3e4a at0044 = ╱54╱T╱ // 0x3e2e @0x44
0x3dea…3e4a at0045 = ╱32╱2╱ // 0x3e2f @0x45
0x3dea…3e4a at0046 = ╱ed╱(╱ // 0x3e30 @0x46
0x3dea…3e4a at0047 = ╱37╱7╱ // 0x3e31 @0x47
0x3dea…3e4a at0048 = ╱fe0000e003╱ // 0x3e32 @0x48
0x3dea…3e4a at004d = ╱ee╱)╱ // 0x3e37 @0x4d
0x3dea…3e4a at004e = ╱ec╱,╱ // 0x3e38 @0x4e
0x3dea…3e4a at004f = ╱54╱T╱ // 0x3e39 @0x4f
0x3dea…3e4a at0050 = ╱32╱2╱ // 0x3e3a @0x50
0x3dea…3e4a at0051 = ╱ed╱(╱ // 0x3e3b @0x51
0x3dea…3e4a at0052 = ╱38╱8╱ // 0x3e3c @0x52
0x3dea…3e4a at0053 = ╱fe00008004╱ // 0x3e3d @0x53
0x3dea…3e4a at0058 = ╱ee╱)╱ // 0x3e42 @0x58
0x3dea…3e4a at0059 = ╱ec╱,╱ // 0x3e43 @0x59
0x3dea…3e4a at005a = ╱54╱T╱ // 0x3e44 @0x5a
0x3dea…3e4a at005b = ╱32╱2╱ // 0x3e45 @0x5b
0x3dea…3e4a at005c = ╱ed╱(╱ // 0x3e46 @0x5c
0x3dea…3e4a at005d = ╱57╱W╱ // 0x3e47 @0x5d
0x3dea…3e4a at005e = ╱ee╱)╱ // 0x3e48 @0x5e
0x3dea…3e4a at005f = EOL // 0x3e49 @0x5f
0x3dea…3e4a }
0x3e4a…3e63 cbba 7510 EXEC FEJL(W,24,K5$)
0x3e4a…3e63 LineComalBin {
0x3e4a…3e63 ptr = 0xcbba // 0x3e4a @0x0
0x3e4a…3e63 lno = 0x1d56 // 0x3e4c @0x2
0x3e4a…3e63 at0004 = ╱9d╱ EXEC ╱ // 0x3e4e @0x4
0x3e4a…3e63 at0005 = ╱46╱F╱ // 0x3e4f @0x5
0x3e4a…3e63 at0006 = ╱45╱E╱ // 0x3e50 @0x6
0x3e4a…3e63 at0007 = ╱4a╱J╱ // 0x3e51 @0x7
0x3e4a…3e63 at0008 = ╱4c╱L╱ // 0x3e52 @0x8
0x3e4a…3e63 at0009 = ╱ed╱(╱ // 0x3e53 @0x9
0x3e4a…3e63 at000a = ╱57╱W╱ // 0x3e54 @0xa
0x3e4a…3e63 at000b = ╱ec╱,╱ // 0x3e55 @0xb
0x3e4a…3e63 at000c = ╱32╱2╱ // 0x3e56 @0xc
0x3e4a…3e63 at000d = ╱34╱4╱ // 0x3e57 @0xd
0x3e4a…3e63 at000e = ╱fe0000c005╱ // 0x3e58 @0xe
0x3e4a…3e63 at0013 = ╱ec╱,╱ // 0x3e5d @0x13
0x3e4a…3e63 at0014 = ╱4b╱K╱ // 0x3e5e @0x14
0x3e4a…3e63 at0015 = ╱35╱5╱ // 0x3e5f @0x15
0x3e4a…3e63 at0016 = ╱ef╱$╱ // 0x3e60 @0x16
0x3e4a…3e63 at0017 = ╱ee╱)╱ // 0x3e61 @0x17
0x3e4a…3e63 at0018 = EOL // 0x3e62 @0x18
0x3e4a…3e63 }
0x3e63…3e6c cbc3 7520 CLOSE K5$
0x3e63…3e6c LineComalBin {
0x3e63…3e6c ptr = 0xcbc3 // 0x3e63 @0x0
0x3e63…3e6c lno = 0x1d60 // 0x3e65 @0x2
0x3e63…3e6c at0004 = ╱a8╱ CLOSE ╱ // 0x3e67 @0x4
0x3e63…3e6c at0005 = ╱4b╱K╱ // 0x3e68 @0x5
0x3e63…3e6c at0006 = ╱35╱5╱ // 0x3e69 @0x6
0x3e63…3e6c at0007 = ╱ef╱$╱ // 0x3e6a @0x7
0x3e63…3e6c at0008 = EOL // 0x3e6b @0x8
0x3e63…3e6c }
0x3e6c…3e85 cbdc 7530 EXEC FEJL(W,25,K5$)
0x3e6c…3e85 LineComalBin {
0x3e6c…3e85 ptr = 0xcbdc // 0x3e6c @0x0
0x3e6c…3e85 lno = 0x1d6a // 0x3e6e @0x2
0x3e6c…3e85 at0004 = ╱9d╱ EXEC ╱ // 0x3e70 @0x4
0x3e6c…3e85 at0005 = ╱46╱F╱ // 0x3e71 @0x5
0x3e6c…3e85 at0006 = ╱45╱E╱ // 0x3e72 @0x6
0x3e6c…3e85 at0007 = ╱4a╱J╱ // 0x3e73 @0x7
0x3e6c…3e85 at0008 = ╱4c╱L╱ // 0x3e74 @0x8
0x3e6c…3e85 at0009 = ╱ed╱(╱ // 0x3e75 @0x9
0x3e6c…3e85 at000a = ╱57╱W╱ // 0x3e76 @0xa
0x3e6c…3e85 at000b = ╱ec╱,╱ // 0x3e77 @0xb
0x3e6c…3e85 at000c = ╱32╱2╱ // 0x3e78 @0xc
0x3e6c…3e85 at000d = ╱35╱5╱ // 0x3e79 @0xd
0x3e6c…3e85 at000e = ╱fe0000c805╱ // 0x3e7a @0xe
0x3e6c…3e85 at0013 = ╱ec╱,╱ // 0x3e7f @0x13
0x3e6c…3e85 at0014 = ╱4b╱K╱ // 0x3e80 @0x14
0x3e6c…3e85 at0015 = ╱35╱5╱ // 0x3e81 @0x15
0x3e6c…3e85 at0016 = ╱ef╱$╱ // 0x3e82 @0x16
0x3e6c…3e85 at0017 = ╱ee╱)╱ // 0x3e83 @0x17
0x3e6c…3e85 at0018 = EOL // 0x3e84 @0x18
0x3e6c…3e85 }
0x3e85…3e9c cbf3 7540 CHAIN "P641210:OPSTART"
0x3e85…3e9c LineComalBin {
0x3e85…3e9c ptr = 0xcbf3 // 0x3e85 @0x0
0x3e85…3e9c lno = 0x1d74 // 0x3e87 @0x2
0x3e85…3e9c at0004 = ╱ac╱ CHAIN ╱ // 0x3e89 @0x4
0x3e85…3e9c at0005 = ╱22╱"╱ // 0x3e8a @0x5
0x3e85…3e9c at0006 = ╱50╱P╱ // 0x3e8b @0x6
0x3e85…3e9c at0007 = ╱36╱6╱ // 0x3e8c @0x7
0x3e85…3e9c at0008 = ╱34╱4╱ // 0x3e8d @0x8
0x3e85…3e9c at0009 = ╱31╱1╱ // 0x3e8e @0x9
0x3e85…3e9c at000a = ╱32╱2╱ // 0x3e8f @0xa
0x3e85…3e9c at000b = ╱31╱1╱ // 0x3e90 @0xb
0x3e85…3e9c at000c = ╱30╱0╱ // 0x3e91 @0xc
0x3e85…3e9c at000d = ╱3a╱:╱ // 0x3e92 @0xd
0x3e85…3e9c at000e = ╱4f╱O╱ // 0x3e93 @0xe
0x3e85…3e9c at000f = ╱50╱P╱ // 0x3e94 @0xf
0x3e85…3e9c at0010 = ╱53╱S╱ // 0x3e95 @0x10
0x3e85…3e9c at0011 = ╱54╱T╱ // 0x3e96 @0x11
0x3e85…3e9c at0012 = ╱41╱A╱ // 0x3e97 @0x12
0x3e85…3e9c at0013 = ╱52╱R╱ // 0x3e98 @0x13
0x3e85…3e9c at0014 = ╱54╱T╱ // 0x3e99 @0x14
0x3e85…3e9c at0015 = ╱22╱"╱ // 0x3e9a @0x15
0x3e85…3e9c at0016 = EOL // 0x3e9b @0x16
0x3e85…3e9c }
0x3e9c…3eab cc02 7550 PROC SALDOTEST
0x3e9c…3eab LineComalBin {
0x3e9c…3eab ptr = 0xcc02 // 0x3e9c @0x0
0x3e9c…3eab lno = 0x1d7e // 0x3e9e @0x2
0x3e9c…3eab at0004 = ╱9e╱ PROC ╱ // 0x3ea0 @0x4
0x3e9c…3eab at0005 = ╱53╱S╱ // 0x3ea1 @0x5
0x3e9c…3eab at0006 = ╱41╱A╱ // 0x3ea2 @0x6
0x3e9c…3eab at0007 = ╱4c╱L╱ // 0x3ea3 @0x7
0x3e9c…3eab at0008 = ╱44╱D╱ // 0x3ea4 @0x8
0x3e9c…3eab at0009 = ╱4f╱O╱ // 0x3ea5 @0x9
0x3e9c…3eab at000a = ╱54╱T╱ // 0x3ea6 @0xa
0x3e9c…3eab at000b = ╱45╱E╱ // 0x3ea7 @0xb
0x3e9c…3eab at000c = ╱53╱S╱ // 0x3ea8 @0xc
0x3e9c…3eab at000d = ╱54╱T╱ // 0x3ea9 @0xd
0x3e9c…3eab at000e = EOL // 0x3eaa @0xe
0x3e9c…3eab }
0x3eab…3ed0 cc27 7560 EXEC CALC(4,DSALDO1$,TAH$,TAH$)
0x3eab…3ed0 LineComalBin {
0x3eab…3ed0 ptr = 0xcc27 // 0x3eab @0x0
0x3eab…3ed0 lno = 0x1d88 // 0x3ead @0x2
0x3eab…3ed0 at0004 = ╱9d╱ EXEC ╱ // 0x3eaf @0x4
0x3eab…3ed0 at0005 = ╱43╱C╱ // 0x3eb0 @0x5
0x3eab…3ed0 at0006 = ╱41╱A╱ // 0x3eb1 @0x6
0x3eab…3ed0 at0007 = ╱4c╱L╱ // 0x3eb2 @0x7
0x3eab…3ed0 at0008 = ╱43╱C╱ // 0x3eb3 @0x8
0x3eab…3ed0 at0009 = ╱ed╱(╱ // 0x3eb4 @0x9
0x3eab…3ed0 at000a = ╱34╱4╱ // 0x3eb5 @0xa
0x3eab…3ed0 at000b = ╱fe00008003╱ // 0x3eb6 @0xb
0x3eab…3ed0 at0010 = ╱ec╱,╱ // 0x3ebb @0x10
0x3eab…3ed0 at0011 = ╱44╱D╱ // 0x3ebc @0x11
0x3eab…3ed0 at0012 = ╱53╱S╱ // 0x3ebd @0x12
0x3eab…3ed0 at0013 = ╱41╱A╱ // 0x3ebe @0x13
0x3eab…3ed0 at0014 = ╱4c╱L╱ // 0x3ebf @0x14
0x3eab…3ed0 at0015 = ╱44╱D╱ // 0x3ec0 @0x15
0x3eab…3ed0 at0016 = ╱4f╱O╱ // 0x3ec1 @0x16
0x3eab…3ed0 at0017 = ╱31╱1╱ // 0x3ec2 @0x17
0x3eab…3ed0 at0018 = ╱ef╱$╱ // 0x3ec3 @0x18
0x3eab…3ed0 at0019 = ╱ec╱,╱ // 0x3ec4 @0x19
0x3eab…3ed0 at001a = ╱54╱T╱ // 0x3ec5 @0x1a
0x3eab…3ed0 at001b = ╱41╱A╱ // 0x3ec6 @0x1b
0x3eab…3ed0 at001c = ╱48╱H╱ // 0x3ec7 @0x1c
0x3eab…3ed0 at001d = ╱ef╱$╱ // 0x3ec8 @0x1d
0x3eab…3ed0 at001e = ╱ec╱,╱ // 0x3ec9 @0x1e
0x3eab…3ed0 at001f = ╱54╱T╱ // 0x3eca @0x1f
0x3eab…3ed0 at0020 = ╱41╱A╱ // 0x3ecb @0x20
0x3eab…3ed0 at0021 = ╱48╱H╱ // 0x3ecc @0x21
0x3eab…3ed0 at0022 = ╱ef╱$╱ // 0x3ecd @0x22
0x3eab…3ed0 at0023 = ╱ee╱)╱ // 0x3ece @0x23
0x3eab…3ed0 at0024 = EOL // 0x3ecf @0x24
0x3eab…3ed0 }
0x3ed0…3edb cc32 7570 IF SI=B THEN
0x3ed0…3edb LineComalBin {
0x3ed0…3edb ptr = 0xcc32 // 0x3ed0 @0x0
0x3ed0…3edb lno = 0x1d92 // 0x3ed2 @0x2
0x3ed0…3edb at0004 = ╱9c╱ IF ╱ // 0x3ed4 @0x4
0x3ed0…3edb at0005 = ╱53╱S╱ // 0x3ed5 @0x5
0x3ed0…3edb at0006 = ╱49╱I╱ // 0x3ed6 @0x6
0x3ed0…3edb at0007 = ╱dc╱=╱ // 0x3ed7 @0x7
0x3ed0…3edb at0008 = ╱42╱B╱ // 0x3ed8 @0x8
0x3ed0…3edb at0009 = ╱b6╱ THEN ╱ // 0x3ed9 @0x9
0x3ed0…3edb at000a = EOL // 0x3eda @0xa
0x3ed0…3edb }
0x3edb…3f00 cc57 7580 EXEC CALC(4,DSALDO2$,TAH$,TAH$)
0x3edb…3f00 LineComalBin {
0x3edb…3f00 ptr = 0xcc57 // 0x3edb @0x0
0x3edb…3f00 lno = 0x1d9c // 0x3edd @0x2
0x3edb…3f00 at0004 = ╱9d╱ EXEC ╱ // 0x3edf @0x4
0x3edb…3f00 at0005 = ╱43╱C╱ // 0x3ee0 @0x5
0x3edb…3f00 at0006 = ╱41╱A╱ // 0x3ee1 @0x6
0x3edb…3f00 at0007 = ╱4c╱L╱ // 0x3ee2 @0x7
0x3edb…3f00 at0008 = ╱43╱C╱ // 0x3ee3 @0x8
0x3edb…3f00 at0009 = ╱ed╱(╱ // 0x3ee4 @0x9
0x3edb…3f00 at000a = ╱34╱4╱ // 0x3ee5 @0xa
0x3edb…3f00 at000b = ╱fe00008003╱ // 0x3ee6 @0xb
0x3edb…3f00 at0010 = ╱ec╱,╱ // 0x3eeb @0x10
0x3edb…3f00 at0011 = ╱44╱D╱ // 0x3eec @0x11
0x3edb…3f00 at0012 = ╱53╱S╱ // 0x3eed @0x12
0x3edb…3f00 at0013 = ╱41╱A╱ // 0x3eee @0x13
0x3edb…3f00 at0014 = ╱4c╱L╱ // 0x3eef @0x14
0x3edb…3f00 at0015 = ╱44╱D╱ // 0x3ef0 @0x15
0x3edb…3f00 at0016 = ╱4f╱O╱ // 0x3ef1 @0x16
0x3edb…3f00 at0017 = ╱32╱2╱ // 0x3ef2 @0x17
0x3edb…3f00 at0018 = ╱ef╱$╱ // 0x3ef3 @0x18
0x3edb…3f00 at0019 = ╱ec╱,╱ // 0x3ef4 @0x19
0x3edb…3f00 at001a = ╱54╱T╱ // 0x3ef5 @0x1a
0x3edb…3f00 at001b = ╱41╱A╱ // 0x3ef6 @0x1b
0x3edb…3f00 at001c = ╱48╱H╱ // 0x3ef7 @0x1c
0x3edb…3f00 at001d = ╱ef╱$╱ // 0x3ef8 @0x1d
0x3edb…3f00 at001e = ╱ec╱,╱ // 0x3ef9 @0x1e
0x3edb…3f00 at001f = ╱54╱T╱ // 0x3efa @0x1f
0x3edb…3f00 at0020 = ╱41╱A╱ // 0x3efb @0x20
0x3edb…3f00 at0021 = ╱48╱H╱ // 0x3efc @0x21
0x3edb…3f00 at0022 = ╱ef╱$╱ // 0x3efd @0x22
0x3edb…3f00 at0023 = ╱ee╱)╱ // 0x3efe @0x23
0x3edb…3f00 at0024 = EOL // 0x3eff @0x24
0x3edb…3f00 }
0x3f00…3f0b cc62 7590 IF SI=B THEN
0x3f00…3f0b LineComalBin {
0x3f00…3f0b ptr = 0xcc62 // 0x3f00 @0x0
0x3f00…3f0b lno = 0x1da6 // 0x3f02 @0x2
0x3f00…3f0b at0004 = ╱9c╱ IF ╱ // 0x3f04 @0x4
0x3f00…3f0b at0005 = ╱53╱S╱ // 0x3f05 @0x5
0x3f00…3f0b at0006 = ╱49╱I╱ // 0x3f06 @0x6
0x3f00…3f0b at0007 = ╱dc╱=╱ // 0x3f07 @0x7
0x3f00…3f0b at0008 = ╱42╱B╱ // 0x3f08 @0x8
0x3f00…3f0b at0009 = ╱b6╱ THEN ╱ // 0x3f09 @0x9
0x3f00…3f0b at000a = EOL // 0x3f0a @0xa
0x3f00…3f0b }
0x3f0b…3f30 cc87 7600 EXEC CALC(4,DSALDO3$,TAH$,TAH$)
0x3f0b…3f30 LineComalBin {
0x3f0b…3f30 ptr = 0xcc87 // 0x3f0b @0x0
0x3f0b…3f30 lno = 0x1db0 // 0x3f0d @0x2
0x3f0b…3f30 at0004 = ╱9d╱ EXEC ╱ // 0x3f0f @0x4
0x3f0b…3f30 at0005 = ╱43╱C╱ // 0x3f10 @0x5
0x3f0b…3f30 at0006 = ╱41╱A╱ // 0x3f11 @0x6
0x3f0b…3f30 at0007 = ╱4c╱L╱ // 0x3f12 @0x7
0x3f0b…3f30 at0008 = ╱43╱C╱ // 0x3f13 @0x8
0x3f0b…3f30 at0009 = ╱ed╱(╱ // 0x3f14 @0x9
0x3f0b…3f30 at000a = ╱34╱4╱ // 0x3f15 @0xa
0x3f0b…3f30 at000b = ╱fe00008003╱ // 0x3f16 @0xb
0x3f0b…3f30 at0010 = ╱ec╱,╱ // 0x3f1b @0x10
0x3f0b…3f30 at0011 = ╱44╱D╱ // 0x3f1c @0x11
0x3f0b…3f30 at0012 = ╱53╱S╱ // 0x3f1d @0x12
0x3f0b…3f30 at0013 = ╱41╱A╱ // 0x3f1e @0x13
0x3f0b…3f30 at0014 = ╱4c╱L╱ // 0x3f1f @0x14
0x3f0b…3f30 at0015 = ╱44╱D╱ // 0x3f20 @0x15
0x3f0b…3f30 at0016 = ╱4f╱O╱ // 0x3f21 @0x16
0x3f0b…3f30 at0017 = ╱33╱3╱ // 0x3f22 @0x17
0x3f0b…3f30 at0018 = ╱ef╱$╱ // 0x3f23 @0x18
0x3f0b…3f30 at0019 = ╱ec╱,╱ // 0x3f24 @0x19
0x3f0b…3f30 at001a = ╱54╱T╱ // 0x3f25 @0x1a
0x3f0b…3f30 at001b = ╱41╱A╱ // 0x3f26 @0x1b
0x3f0b…3f30 at001c = ╱48╱H╱ // 0x3f27 @0x1c
0x3f0b…3f30 at001d = ╱ef╱$╱ // 0x3f28 @0x1d
0x3f0b…3f30 at001e = ╱ec╱,╱ // 0x3f29 @0x1e
0x3f0b…3f30 at001f = ╱54╱T╱ // 0x3f2a @0x1f
0x3f0b…3f30 at0020 = ╱41╱A╱ // 0x3f2b @0x20
0x3f0b…3f30 at0021 = ╱48╱H╱ // 0x3f2c @0x21
0x3f0b…3f30 at0022 = ╱ef╱$╱ // 0x3f2d @0x22
0x3f0b…3f30 at0023 = ╱ee╱)╱ // 0x3f2e @0x23
0x3f0b…3f30 at0024 = EOL // 0x3f2f @0x24
0x3f0b…3f30 }
0x3f30…3f3b cc92 7610 IF SI=B THEN
0x3f30…3f3b LineComalBin {
0x3f30…3f3b ptr = 0xcc92 // 0x3f30 @0x0
0x3f30…3f3b lno = 0x1dba // 0x3f32 @0x2
0x3f30…3f3b at0004 = ╱9c╱ IF ╱ // 0x3f34 @0x4
0x3f30…3f3b at0005 = ╱53╱S╱ // 0x3f35 @0x5
0x3f30…3f3b at0006 = ╱49╱I╱ // 0x3f36 @0x6
0x3f30…3f3b at0007 = ╱dc╱=╱ // 0x3f37 @0x7
0x3f30…3f3b at0008 = ╱42╱B╱ // 0x3f38 @0x8
0x3f30…3f3b at0009 = ╱b6╱ THEN ╱ // 0x3f39 @0x9
0x3f30…3f3b at000a = EOL // 0x3f3a @0xa
0x3f30…3f3b }
0x3f3b…3f60 ccb7 7620 EXEC CALC(4,DSALDO4$,TAH$,TAH$)
0x3f3b…3f60 LineComalBin {
0x3f3b…3f60 ptr = 0xccb7 // 0x3f3b @0x0
0x3f3b…3f60 lno = 0x1dc4 // 0x3f3d @0x2
0x3f3b…3f60 at0004 = ╱9d╱ EXEC ╱ // 0x3f3f @0x4
0x3f3b…3f60 at0005 = ╱43╱C╱ // 0x3f40 @0x5
0x3f3b…3f60 at0006 = ╱41╱A╱ // 0x3f41 @0x6
0x3f3b…3f60 at0007 = ╱4c╱L╱ // 0x3f42 @0x7
0x3f3b…3f60 at0008 = ╱43╱C╱ // 0x3f43 @0x8
0x3f3b…3f60 at0009 = ╱ed╱(╱ // 0x3f44 @0x9
0x3f3b…3f60 at000a = ╱34╱4╱ // 0x3f45 @0xa
0x3f3b…3f60 at000b = ╱fe00008003╱ // 0x3f46 @0xb
0x3f3b…3f60 at0010 = ╱ec╱,╱ // 0x3f4b @0x10
0x3f3b…3f60 at0011 = ╱44╱D╱ // 0x3f4c @0x11
0x3f3b…3f60 at0012 = ╱53╱S╱ // 0x3f4d @0x12
0x3f3b…3f60 at0013 = ╱41╱A╱ // 0x3f4e @0x13
0x3f3b…3f60 at0014 = ╱4c╱L╱ // 0x3f4f @0x14
0x3f3b…3f60 at0015 = ╱44╱D╱ // 0x3f50 @0x15
0x3f3b…3f60 at0016 = ╱4f╱O╱ // 0x3f51 @0x16
0x3f3b…3f60 at0017 = ╱34╱4╱ // 0x3f52 @0x17
0x3f3b…3f60 at0018 = ╱ef╱$╱ // 0x3f53 @0x18
0x3f3b…3f60 at0019 = ╱ec╱,╱ // 0x3f54 @0x19
0x3f3b…3f60 at001a = ╱54╱T╱ // 0x3f55 @0x1a
0x3f3b…3f60 at001b = ╱41╱A╱ // 0x3f56 @0x1b
0x3f3b…3f60 at001c = ╱48╱H╱ // 0x3f57 @0x1c
0x3f3b…3f60 at001d = ╱ef╱$╱ // 0x3f58 @0x1d
0x3f3b…3f60 at001e = ╱ec╱,╱ // 0x3f59 @0x1e
0x3f3b…3f60 at001f = ╱54╱T╱ // 0x3f5a @0x1f
0x3f3b…3f60 at0020 = ╱41╱A╱ // 0x3f5b @0x20
0x3f3b…3f60 at0021 = ╱48╱H╱ // 0x3f5c @0x21
0x3f3b…3f60 at0022 = ╱ef╱$╱ // 0x3f5d @0x22
0x3f3b…3f60 at0023 = ╱ee╱)╱ // 0x3f5e @0x23
0x3f3b…3f60 at0024 = EOL // 0x3f5f @0x24
0x3f3b…3f60 }
0x3f60…3f71 ccc8 7630 IF SI<>B THEN TEST=E
0x3f60…3f71 LineComalBin {
0x3f60…3f71 ptr = 0xccc8 // 0x3f60 @0x0
0x3f60…3f71 lno = 0x1dce // 0x3f62 @0x2
0x3f60…3f71 at0004 = ╱82╱ IF ╱ // 0x3f64 @0x4
0x3f60…3f71 at0005 = ╱53╱S╱ // 0x3f65 @0x5
0x3f60…3f71 at0006 = ╱49╱I╱ // 0x3f66 @0x6
0x3f60…3f71 at0007 = ╱e1╱<>╱ // 0x3f67 @0x7
0x3f60…3f71 at0008 = ╱42╱B╱ // 0x3f68 @0x8
0x3f60…3f71 at0009 = ╱b6╱ THEN ╱ // 0x3f69 @0x9
0x3f60…3f71 at000a = ╱54╱T╱ // 0x3f6a @0xa
0x3f60…3f71 at000b = ╱45╱E╱ // 0x3f6b @0xb
0x3f60…3f71 at000c = ╱53╱S╱ // 0x3f6c @0xc
0x3f60…3f71 at000d = ╱54╱T╱ // 0x3f6d @0xd
0x3f60…3f71 at000e = ╱dc╱=╱ // 0x3f6e @0xe
0x3f60…3f71 at000f = ╱45╱E╱ // 0x3f6f @0xf
0x3f60…3f71 at0010 = EOL // 0x3f70 @0x10
0x3f60…3f71 }
0x3f71…3f77 ccce 7640 ELSE
0x3f71…3f77 LineComalBin {
0x3f71…3f77 ptr = 0xccce // 0x3f71 @0x0
0x3f71…3f77 lno = 0x1dd8 // 0x3f73 @0x2
0x3f71…3f77 at0004 = ╱9a╱ ELSE ╱ // 0x3f75 @0x4
0x3f71…3f77 at0005 = EOL // 0x3f76 @0x5
0x3f71…3f77 }
0x3f77…3f82 (211,) ccd9 7650 TEST=E
0x3f77…3f82 LineComalBin {
0x3f77…3f82 ptr = 0xccd9 // 0x3f77 @0x0
0x3f77…3f82 lno = 0x1de2 // 0x3f79 @0x2
0x3f77…3f82 at0004 = ╱54╱T╱ // 0x3f7b @0x4
0x3f77…3f82 at0005 = ╱45╱E╱ // 0x3f7c @0x5
0x3f77…3f82 at0006 = ╱53╱S╱ // 0x3f7d @0x6
0x3f77…3f82 at0007 = ╱54╱T╱ // 0x3f7e @0x7
0x3f77…3f82 at0008 = ╱dc╱=╱ // 0x3f7f @0x8
0x3f77…3f82 at0009 = ╱45╱E╱ // 0x3f80 @0x9
0x3f77…3f82 at000a = EOL // 0x3f81 @0xa
0x3f77…3f82 }
0x3f82…3f88 ccdf 7660 ENDIF
0x3f82…3f88 LineComalBin {
0x3f82…3f88 ptr = 0xccdf // 0x3f82 @0x0
0x3f82…3f88 lno = 0x1dec // 0x3f84 @0x2
0x3f82…3f88 at0004 = ╱9b╱ ENDIF ╱ // 0x3f86 @0x4
0x3f82…3f88 at0005 = EOL // 0x3f87 @0x5
0x3f82…3f88 }
0x3f88…3f8e cce5 7670 ELSE
0x3f88…3f8e LineComalBin {
0x3f88…3f8e ptr = 0xcce5 // 0x3f88 @0x0
0x3f88…3f8e lno = 0x1df6 // 0x3f8a @0x2
0x3f88…3f8e at0004 = ╱9a╱ ELSE ╱ // 0x3f8c @0x4
0x3f88…3f8e at0005 = EOL // 0x3f8d @0x5
0x3f88…3f8e }
0x3f8e…3f99 ccf0 7680 TEST=E
0x3f8e…3f99 LineComalBin {
0x3f8e…3f99 ptr = 0xccf0 // 0x3f8e @0x0
0x3f8e…3f99 lno = 0x1e00 // 0x3f90 @0x2
0x3f8e…3f99 at0004 = ╱54╱T╱ // 0x3f92 @0x4
0x3f8e…3f99 at0005 = ╱45╱E╱ // 0x3f93 @0x5
0x3f8e…3f99 at0006 = ╱53╱S╱ // 0x3f94 @0x6
0x3f8e…3f99 at0007 = ╱54╱T╱ // 0x3f95 @0x7
0x3f8e…3f99 at0008 = ╱dc╱=╱ // 0x3f96 @0x8
0x3f8e…3f99 at0009 = ╱45╱E╱ // 0x3f97 @0x9
0x3f8e…3f99 at000a = EOL // 0x3f98 @0xa
0x3f8e…3f99 }
0x3f99…3f9f ccf6 7690 ENDIF
0x3f99…3f9f LineComalBin {
0x3f99…3f9f ptr = 0xccf6 // 0x3f99 @0x0
0x3f99…3f9f lno = 0x1e0a // 0x3f9b @0x2
0x3f99…3f9f at0004 = ╱9b╱ ENDIF ╱ // 0x3f9d @0x4
0x3f99…3f9f at0005 = EOL // 0x3f9e @0x5
0x3f99…3f9f }
0x3f9f…3fa5 ccfc 7700 ELSE
0x3f9f…3fa5 LineComalBin {
0x3f9f…3fa5 ptr = 0xccfc // 0x3f9f @0x0
0x3f9f…3fa5 lno = 0x1e14 // 0x3fa1 @0x2
0x3f9f…3fa5 at0004 = ╱9a╱ ELSE ╱ // 0x3fa3 @0x4
0x3f9f…3fa5 at0005 = EOL // 0x3fa4 @0x5
0x3f9f…3fa5 }
0x3fa5…3fb0 cd07 7710 TEST=E
0x3fa5…3fb0 LineComalBin {
0x3fa5…3fb0 ptr = 0xcd07 // 0x3fa5 @0x0
0x3fa5…3fb0 lno = 0x1e1e // 0x3fa7 @0x2
0x3fa5…3fb0 at0004 = ╱54╱T╱ // 0x3fa9 @0x4
0x3fa5…3fb0 at0005 = ╱45╱E╱ // 0x3faa @0x5
0x3fa5…3fb0 at0006 = ╱53╱S╱ // 0x3fab @0x6
0x3fa5…3fb0 at0007 = ╱54╱T╱ // 0x3fac @0x7
0x3fa5…3fb0 at0008 = ╱dc╱=╱ // 0x3fad @0x8
0x3fa5…3fb0 at0009 = ╱45╱E╱ // 0x3fae @0x9
0x3fa5…3fb0 at000a = EOL // 0x3faf @0xa
0x3fa5…3fb0 }
0x3fb0…3fb6 cd0d 7720 ENDIF
0x3fb0…3fb6 LineComalBin {
0x3fb0…3fb6 ptr = 0xcd0d // 0x3fb0 @0x0
0x3fb0…3fb6 lno = 0x1e28 // 0x3fb2 @0x2
0x3fb0…3fb6 at0004 = ╱9b╱ ENDIF ╱ // 0x3fb4 @0x4
0x3fb0…3fb6 at0005 = EOL // 0x3fb5 @0x5
0x3fb0…3fb6 }
0x3fb6…3fbc 0000 7730 ENDPROC
0x3fb6…3fbc LineComalBin {
0x3fb6…3fbc ptr = 0x0000 // 0x3fb6 @0x0
0x3fb6…3fbc lno = 0x1e32 // 0x3fb8 @0x2
0x3fb6…3fbc at0004 = ╱9f╱ ENDPROC ╱ // 0x3fba @0x4
0x3fb6…3fbc at0005 = EOL // 0x3fbb @0x5
0x3fb6…3fbc }
0x3fbc…3fc0 57 8d 5a 00 ┆W Z ┆
0x3fc0…3fc4 42 dc 30 fe ┆B 0 ┆
0x3fc4…3fe4 (212,) 00 00 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 ┆ E 1 G 2 V 3 ┆
0x3fe4…3fed 57 dc 39 fe 00 00 90 04 ff ┆W 9 ┆
0x3fed…3ff3 (213,) 57 8d 13 cd 10 00 ┆W ┆