|
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: 12874 (0x324a)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »KREVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »KREVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »KREVEDL.B«
0090 DIM RES$(15),OP1$(12),OP2$(12) 0100 DIM PNR$(6),TY$(E),TA$(12),TB$(14),DAT$(8) 0110 DIM KSALDI$(12),LK$(V),KG$(V),KTN$(6),VTAB2(5) 0120 DIM BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),KSALDO1$(12),KSALDO2$(12) 0130 DIM K1$(17),K2$(17),KRENAVN$(25),KREGR$(E),STREG$(71) 0140 DIM KRELK$(E),KREGADE$(25),N$(6),DV$(10) 0150 DIM T2(W),BLANK$(77),A$(E),TAL4$(14),TAH$(12),KREBY$(20) 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12) 0170 ART=B 0180 PROC CALC(AT,B1,B2,ES) 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AT 0200 CALL "P641210:REGN" 0210 ES$=RES$ 0220 IF FLAG THEN STOP 0230 ENDPROC 0240 PROC FEJL(NR1,NR2,NR3) 0250 IF STATUS(NR3$)<>B THEN 0260 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0270 STOP 0280 ENDIF 0290 ENDPROC 0300 PROC INDTAB(T,MANTAL,K10) 0310 J=MANTAL DIV 32+E 0320 FOR I=J TO MANTAL DIV 4+J-E 0330 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0340 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) 0350 EXEC FEJL(E,E,K10$) 0360 NEXT I 0370 ENDPROC 0380 PROC UDTAB(U,MANTAL1,K9) 0390 J=MANTAL1 DIV 32+E 0400 FOR I=E TO J-E 0410 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 0420 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) 0430 EXEC FEJL(G,E,K9$) 0440 NEXT I 0450 FOR I=J TO MANTAL1 DIV 4+J-E 0460 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0470 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) 0480 EXEC FEJL(G,G,K9$) 0490 NEXT I 0500 ENDPROC 0510 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0520 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0530 REPEAT 0540 IF NØGL1=TAB1(PIL3,E) THEN 0550 CEKS=B 0560 ELSE 0570 IF PIL1=E THEN PIL1=B 0580 PIL1=INT((PIL1+E)/G) 0590 IF NØGL1>TAB1(PIL3,E) THEN 0600 PIL3=PIL3+PIL1 0610 ELSE 0620 PIL3=PIL3-PIL1 0630 ENDIF 0640 IF PIL3<E THEN PIL3=E 0650 IF PIL3>MANT1 THEN PIL3=MANT1 0660 ENDIF 0670 UNTIL CEKS=B OR PIL1=B 0680 ENDPROC 0690 PROC SLETDPOST(NØGLE3) 0700 EXEC FINDPOST(KTAB,MKANTAL,NØGLE3,KPIL3) 0710 IF CEKS=E THEN STOP 0720 KRENR=B 0730 KRENAVN$=BLANK$(E:25) 0740 KSALDO1$=BLANK$(E:12) 0750 KSALDO2$=BLANK$(E:12) 0760 KREGR$="0" 0770 KREPOSTNR=B 0780 KRELK$="0" 0790 KREGADE$=BLANK$(E:25) 0800 KREBY$=BLANK$(E:20) 0810 EXEC GEMKPOST 0820 EXEC SLETPOST(KTAB,AKRE,NØGLE3,KPIL3) 0830 ENDPROC 0840 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0850 IF CEKS=E THEN 0860 POSTNR=TAB2(ANTAL2+E,G) 0870 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0880 FOR J=ANTAL2+E TO PIL4+E STEP -E 0890 TAB2(J,E)=TAB2(J-E,E) 0900 TAB2(J,G)=TAB2(J-E,G) 0910 NEXT J 0920 TAB2(PIL4,E)=NØGL2 0930 TAB2(PIL4,G)=POSTNR 0940 ANTAL2=ANTAL2+E 0950 ENDIF 0960 ENDPROC 0970 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0980 IF CEKS=B THEN 0990 POSTNR=TAB3(PIL5,G) 1000 FOR I=PIL5 TO ANTAL3-E 1010 TAB3(I,E)=TAB3(I+E,E) 1020 TAB3(I,G)=TAB3(I+E,G) 1030 NEXT I 1040 TAB3(ANTAL3,E)=1000000 1050 TAB3(ANTAL3,G)=POSTNR 1060 ANTAL3=ANTAL3-E 1070 ENDIF 1080 ENDPROC 1090 PROC HENTKPOST 1100 S=KTAB(KPIL3,G) 1110 GET K3$,S:KRENR,KRENAVN$,KREGADE$ 1120 EXEC FEJL(8,G,K3$) 1130 IF KRENR<>KTAB(KPIL3,E) THEN STOP 1140 GET K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1150 EXEC FEJL(8,V,K3$) 1160 ENDPROC 1170 PROC GEMKPOST 1180 S=KTAB(KPIL3,G) 1190 PUT K3$,S:KRENR,KRENAVN$,KREGADE$ 1200 EXEC FEJL(W,V,K3$) 1210 PUT K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1220 EXEC FEJL(W,4,K3$) 1230 ENDPROC 1240 PROC DINDTAST(KSTYR,CÆND,KRENR2) 1250 IF CÆND<>E THEN 1260 CLEAR 1270 CURSOR 21,E 1280 PRINT "Kreditoroplysninger" 1290 EXEC VERSKRIFT 1300 CURSOR G,V 1310 PRINT "1:Kreditornr:";KRENR2 1320 ENDIF 1330 REPEAT 1340 CASE KSTYR OF 1350 STOP 1360 WHEN G 1370 IF CÆND<>E THEN 1380 CURSOR G,4 1390 PRINT "2:Navn :" 1400 KSTYR=V 1410 ENDIF 1420 IF CÆND<>G THEN 1430 CURSOR V,23 1440 PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1450 CURSOR 13,23 1460 INPUT KRENAVN$ 1470 ENDIF 1480 CURSOR 16,4 1490 PRINT BLANK$(E:25) 1500 CURSOR 16,4 1510 PRINT KRENAVN$ 1520 WHEN V 1530 IF CÆND<>E THEN 1540 CURSOR G,5 1550 PRINT "3:Gade :" 1560 KSTYR=4 1570 ENDIF 1580 IF CÆND<>G THEN 1590 CURSOR V,23 1600 PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1610 CURSOR 13,23 1620 INPUT KREGADE$ 1630 ENDIF 1640 CURSOR 16,5 1650 PRINT BLANK$(E:25) 1660 CURSOR 16,5 1670 PRINT KREGADE$ 1680 WHEN 4 1690 IF CÆND<>E THEN 1700 CURSOR G,6 1710 PRINT "4:Postnr :" 1720 KSTYR=5 1730 ENDIF 1740 IF CÆND<>G THEN 1750 REPEAT 1760 CURSOR V,23 1770 PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45) 1780 CURSOR 13,23 1790 INPUT PNR$ 1800 EXEC NRTEST(PNR$) 1810 UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B 1820 IF P<>-E THEN KREPOSTNR=P 1830 ENDIF 1840 CURSOR 16,6 1850 PRINT BLANK$(E:6) 1860 CURSOR 16,6 1870 PRINT KREPOSTNR 1880 WHEN 5 1890 IF CÆND<>E THEN 1900 CURSOR G,7 1910 PRINT "5:By :" 1920 KSTYR=6 1930 ENDIF 1940 IF CÆND<>G THEN 1950 CURSOR V,23 1960 PRINT "BY";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31) 1970 CURSOR 13,23 1980 INPUT KREBY$ 1990 ENDIF 2000 CURSOR 16,7 2010 PRINT BLANK$(E:20) 2020 CURSOR 16,7 2030 PRINT KREBY$ 2040 WHEN 6 2050 IF CÆND<>E THEN 2060 CURSOR G,8 2070 PRINT "6:Landekode : Land:" 2080 KSTYR=7 2090 ENDIF 2100 IF CÆND<>G THEN 2110 REPEAT 2120 CURSOR V,23 2130 PRINT "Landekode";BLANK$(E:W);"0:for Danmark, max 2 cifre)";BLANK$(E:30) 2140 CURSOR 13,23 2150 INPUT LK$ 2160 EXEC NRTEST(LK$) 2170 UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E) 2180 ENDIF 2190 CURSOR 16,8 2200 PRINT BLANK$(E:V) 2210 CURSOR 27,8 2220 PRINT BLANK$(E:15) 2230 CURSOR 16,8 2240 IF P<10 AND CÆND<>G THEN 2250 KRELK$=CHR(P+48) 2260 ENDIF 2270 P=ORD(KRELK$)-48 2280 PRINT USING "###":P 2290 CURSOR 27,8 2300 IF P=B THEN 2310 PRINT "Danmark" 2320 ELSE 2330 PRINT LAND$(P) 2340 ENDIF 2350 WHEN 7 2360 IF CÆND<>E THEN 2370 CURSOR G,W 2380 PRINT "7:Kreditorgr:" 2390 KSTYR=8 2400 ENDIF 2410 IF CÆND<>G THEN 2420 REPEAT 2430 CURSOR V,23 2440 PRINT "Kreditorgr: (max 1 ciffer)";BLANK$(E:45) 2450 CURSOR 13,23 2460 INPUT KG$ 2470 EXEC NRTEST(KG$) 2480 UNTIL (P>B AND TEST2=B AND P<=MKRGR) OR (P=-E AND CÆND=E) 2490 ENDIF 2500 CURSOR 16,W 2510 IF P>B AND CÆND<>G THEN 2520 KREGR$=CHR(P+48) 2530 ENDIF 2540 PRINT USING "###":INT(ORD(KREGR$)-48) 2550 ENDCASE 2560 IF CÆND=E THEN 2570 KSTYR=8 2580 ENDIF 2590 UNTIL KSTYR=8 2600 IF CÆND<>E THEN 2610 EXEC CALC(B,KSALDO1$,KSALDO2$,KSALDI$) 2620 CURSOR 4,12 2630 PRINT "Saldo :" 2640 CURSOR 17,12 2650 EXEC TUD(KSALDI$,TAL4$,E,B) 2660 PRINT TAL4$ 2670 CURSOR 4,14 2680 PRINT " 0-30 Dage :" 2690 CURSOR 17,14 2700 EXEC TUD(KSALDO1$,TAL4$,E,B) 2710 PRINT TAL4$ 2720 CURSOR 4,16 2730 PRINT "Ældre :" 2740 CURSOR 17,16 2750 EXEC TUD(KSALDO2$,TAL4$,E,B) 2760 PRINT TAL4$ 2770 ENDIF 2780 ENDPROC 2790 PROC TUD(BLB1,UBLB1,TEGN,STØR) 2800 BLB2$=BLB1$;UBLB2$=UBLB1$ 2810 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 2820 UBLB1$=UBLB2$ 2830 IF TEGN=B THEN 2840 UBLB1$=UBLB1$(E:13) 2850 ELSE 2860 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 2870 UBLB1$(LEN(UBLB1$))=" " 2880 ENDIF 2890 ENDIF 2900 IF STØR=E THEN 2910 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 2920 ENDIF 2930 ENDPROC 2940 PROC NRTEST(NUM1) 2950 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 2960 CASE L OF 2970 FOR I=E TO L 2980 P1=INT(ORD(NUM1$(I))-48) 2990 IF P1=>B AND P1<=W THEN 3000 P=P*10+P1 3010 ELSE 3020 TEST2=E 3030 ENDIF 3040 NEXT I 3050 KTAL=P DIV 10000;KTAL9=P DIV 1000 3060 IF KTAL9=KRTAL THEN KTAL=KTAL9 3070 WHEN B 3080 P=-E 3090 WHEN E 3100 CASE NUM1$ OF 3110 P=INT(ORD(NUM1$)-48) 3120 WHEN "J","j" 3130 P=-7 3140 WHEN "N","n" 3150 P=-8 3160 ENDCASE 3170 ENDCASE 3180 ENDPROC 3190 PROC VERSKRIFT 3200 CURSOR 45,E 3210 CASE TYPE OF 3220 WHEN E 3230 PRINT "Oprettelse" 3240 WHEN G 3250 PRINT "Ændring" 3260 WHEN V 3270 PRINT "Sletning" 3280 WHEN 4 3290 PRINT "Udskrift" 3300 WHEN 5 3310 PRINT "Kreditorkontoliste" 3320 ENDCASE 3330 ENDPROC 3340 K1$="P641220:SYSTEM1" 3350 OPEN K1$,R 3360 EXEC FEJL(W,E,K1$) 3370 GET K1$,E:MFANTAL,MDANTAL,MKANTAL 3380 EXEC FEJL(W,G,K1$) 3390 GET K1$,5:MKRGR 3400 EXEC FEJL(W,V,K1$) 3410 GET K1$,W:KRTAL 3420 EXEC FEJL(W,4,K1$) 3430 GET K1$,10:N$ 3440 EXEC FEJL(W,5,K1$) 3450 GET K1$,13:K2$ 3460 EXEC FEJL(W,6,K1$) 3470 GET K1$,17:K3$ 3480 EXEC FEJL(W,7,K1$) 3490 GET K1$,36:K5$ 3500 EXEC FEJL(W,W,K1$) 3510 CLOSE K1$ 3520 EXEC FEJL(W,10,K1$) 3530 DIM KTAB(MKANTAL,G) 3540 K5$=N$+K5$ 3550 OPEN K5$,W 3560 EXEC FEJL(W,11,K5$) 3570 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 3580 EXEC FEJL(W,12,K5$) 3590 FOR I=E TO V 3600 J=(I-E)*V+E 3610 GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G) 3620 EXEC FEJL(W,13,K5$) 3630 NEXT I 3640 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 3650 EXEC FEJL(W,14,K5$) 3660 GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3670 EXEC FEJL(W,15,K5$) 3680 T2(5)=E 3690 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3700 EXEC FEJL(W,16,K5$) 3702 GET K5$,20:DV$ 3704 EXEC FEJL(W,22,K5$) 3710 CLOSE K5$ 3720 EXEC FEJL(W,17,K5$) 3730 K3$=N$+K3$ 3740 OPEN K3$,W 3750 EXEC FEJL(W,18,K3$) 3760 K2$=N$+K2$ 3770 OPEN K2$,W 3780 EXEC FEJL(W,19,K2$) 3790 EXEC INDTAB(KTAB,MKANTAL,K2$) 3800 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 3810 TAH$="0+";TAL4$="0+" 3820 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 3830 REPEAT 3840 CLEAR 3850 CURSOR 21,E 3860 PRINT "Kreditorvedligeholdelse" 3870 CURSOR G,V 3880 PRINT "0:Færdig" 3890 CURSOR G,5 3900 PRINT "1:Oprettelse" 3910 CURSOR G,7 3920 PRINT "2:Ændring" 3930 CURSOR G,W 3940 PRINT "3:Sletning" 3950 CURSOR G,11 3960 PRINT "4:Udskrift" 3970 CURSOR G,13 3980 PRINT "5:Kreditorkontoliste" 3990 REPEAT 4000 CURSOR 4,15 4010 PRINT "Vælg type (0-5)" 4020 CURSOR 14,15 4030 INPUT TY$ 4040 EXEC NRTEST(TY$) 4050 UNTIL P>-E AND P<6 4060 TYPE=P 4070 IF TYPE=B THEN EXIT 4080 REPEAT 4090 EXEC VERSKRIFT 4100 TEST=B;KONT=E 4110 IF TYPE<5 THEN 4120 REPEAT 4130 REPEAT 4140 CURSOR V,23 4150 PRINT "Indtast kreditornr (0:for færdig)";BLANK$(E:35) 4160 CURSOR 22,23 4170 INPUT KTN$ 4180 EXEC NRTEST(KTN$) 4190 UNTIL (TEST2=B AND KTAL=KRTAL AND KRTAL*1000+MKRGR<P) OR P=B 4200 KONT=P 4210 IF KONT=B THEN EXIT 4220 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 4230 REPEAT 4240 CURSOR 44,23 4250 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AKRE<MKANTAL) THEN 4260 PRINT BLANK$(E:35) 4270 P=-E 4280 ELSE 4290 IF CEKS=E AND TYPE=E AND AKRE=>MKANTAL THEN 4300 CURSOR V,23 4310 INPUT "Ikke plads til flere kreditorer,tast RETURN ",A$ 4320 ELSE 4330 IF CEKS=B THEN 4340 INPUT "Kreditor eksisterer , tast RETURN ",A$ 4350 ELSE 4360 INPUT "Kreditor eksisterer ikke,tast RETURN",A$ 4370 ENDIF 4380 ENDIF 4390 EXEC NRTEST(A$) 4400 ENDIF 4410 UNTIL P=-E 4420 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AKRE<MKANTAL) 4430 IF KONT=B THEN EXIT 4440 IF TYPE<>E THEN 4450 FNR=KONT;TEST=B 4460 EXEC HENTKPOST 4470 IF TYPE=V THEN EXEC SALDOTEST 4480 EXEC DINDTAST(2,2,FNR) 4490 ELSE 4500 KRENR=KONT 4510 KRENAVN$=BLANK$(E:25) 4520 KSALDO1$="0+" 4530 KSALDO2$="0+" 4540 KREGADE$=BLANK$(E:25) 4550 KREPOSTNR=B 4560 KRELK$="0" 4570 KREGR$="0" 4580 KREBY$=BLANK$(E:20) 4590 EXEC DINDTAST(2,0,KRENR) 4600 ENDIF 4610 ENDIF 4620 IF KONT=B THEN EXIT 4630 IF TEST=B THEN 4640 CASE TYPE OF 4650 STOP 4660 WHEN E,G 4670 REPEAT 4680 REPEAT 4690 CURSOR V,23 4700 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-7, 0:færdig) " 4710 CURSOR 32,23 4720 INPUT LK$ 4730 EXEC NRTEST(LK$) 4740 UNTIL P=B OR (P>E AND P<8) 4750 STYR1=P 4760 IF STYR1=B THEN EXIT 4770 EXEC DINDTAST(STYR1,1,KRENR) 4780 UNTIL STYR1=B 4790 EXEC FINDPOST(KTAB,MKANTAL,KRENR,KPIL3) 4800 IF TYPE=E THEN 4810 EXEC INDSÆT(KTAB,AKRE,KRENR,KPIL3) 4820 ENDIF 4830 EXEC GEMKPOST 4840 WHEN V 4850 REPEAT 4860 CURSOR V,23 4870 PRINT "Er det rigtigt at denne konto skal slettes"; 4880 PRINT " (J/N)";BLANK$(E:23) 4890 CURSOR 48,23 4900 INPUT A$ 4910 EXEC NRTEST(A$) 4920 UNTIL P=-7 OR P=-8 4930 IF P=-7 THEN 4940 EXEC SLETDPOST(KRENR) 4950 ENDIF 4960 WHEN 4 4970 WHEN 5 4980 REPEAT 4990 REPEAT 5000 CURSOR V,23 5010 PRINT "Fra kreditornr (0: Alle)" 5020 CURSOR 18,23 5030 INPUT KTN$ 5040 EXEC NRTEST(KTN$) 5050 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B 5060 IF P=B THEN 5070 FRA=E;TIL=AKRE 5080 ELSE 5090 KONT=P 5100 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 5110 FRA=KPIL3 5120 ENDIF 5130 UNTIL FRA<=AKRE 5140 IF P>B THEN 5150 REPEAT 5160 CURSOR V,23 5170 PRINT "Til kreditornr " 5180 CURSOR 18,23 5190 INPUT KTN$ 5200 EXEC NRTEST(KTN$) 5210 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT 5220 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 5230 IF CEKS=E THEN KPIL3=KPIL3-E 5240 TIL=KPIL3 5250 ENDIF 5260 CLEAR 5270 REPEAT 5280 CURSOR 8,13 5290 INPUT "Monter papir til udskrift af kreditorkontoliste , tast RETURN",A$ 5300 UNTIL ORD(A$)=255 5310 OUTPUT P 5320 SIDE=E;DA1=DATO;DAT$=" " 5330 FOR J=8 TO E STEP -E 5340 IF J MOD V=B THEN 5350 DAT$(J)="." 5360 ELSE 5370 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 5380 ENDIF 5390 NEXT J 5400 FOR I=FRA TO TIL STEP 6 5405 PRINT TAB(67);DV$;" " 5410 PRINT TAB(10);CHR(14);"Kreditorkontoliste";CHR(15);TAB(32);"Dato : "; 5420 PRINT DAT$; 5430 PRINT USING " Side :####":SIDE 5440 PRINT " " 5450 SIDE=SIDE+E 5460 FOR KPIL3=I TO I+5 5470 IF KTAB(KPIL3,E)>B THEN 5480 EXEC HENTKPOST 5490 EXEC TUD(KSALDO1$,UD1$,E,B) 5500 EXEC TUD(KSALDO2$,UD2$,E,B) 5510 PRINT TAB(W);STREG$ 5520 PRINT TAB(W);"NAVN OG ADRESSE";TAB(42);"0-30 DAGE ÆLDRE" 5530 PRINT " " 5540 PRINT USING "###### ":KRENR; 5550 PRINT KRENAVN$;TAB(38);UD1$;" ";UD2$ 5560 PRINT TAB(W);KREGADE$;" " 5570 PRINT USING " ####### ":KREPOSTNR; 5580 PRINT KREBY$;TAB(39); 5590 DLK=ORD(KRELK$)-48;DKGR=ORD(KREGR$)-48 5600 PRINT USING "LANDEKODE:### KREDITORGRUPPE:###":DLK,DKGR 5610 PRINT " " 5620 ENDIF 5630 IF KPIL3=TIL THEN EXIT 5640 NEXT KPIL3 5650 PRINT CHR(10);CHR(10) 5660 IF KPIL3=TIL AND KPIL3<I+6 THEN EXIT 5670 NEXT I 5680 FOR J=KPIL3+E TO I+5 5690 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 5695 PRINT " " 5730 NEXT J 5740 OUTPUT T 5750 KONT=B 5760 ENDCASE 5770 ELSE 5780 REPEAT 5790 CURSOR V,23 5800 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 5810 PRINT "tryk RETURN";BLANK$(E:6) 5820 INPUT A$ 5830 EXEC NRTEST(A$) 5840 UNTIL P=-E 5850 ENDIF 5860 UNTIL KONT=B 5870 UNTIL TYPE=B 5880 EXEC UDTAB(KTAB,MKANTAL,K2$) 5890 CLOSE K2$ 5900 EXEC FEJL(W,20,K2$) 5910 CLOSE K3$ 5920 EXEC FEJL(W,21,K3$) 5930 T2(5)=B 5940 OPEN K5$,W 5950 EXEC FEJL(W,22,K5$) 5960 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 5970 EXEC FEJL(W,23,K5$) 5980 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 5990 EXEC FEJL(W,24,K5$) 6000 CLOSE K5$ 6010 EXEC FEJL(W,25,K5$) 6020 CHAIN "P641210:OPSTART" 6030 PROC SALDOTEST 6040 EXEC CALC(4,KSALDO1$,TAH$,TAH$) 6050 IF SI=B THEN 6060 EXEC CALC(4,KSALDO2$,TAH$,TAH$) 6070 IF SI<>B THEN TEST=E 6080 ELSE 6090 TEST=E 6100 ENDIF 6110 ENDPROC
0x0000…002f (0,) 8d86 0090 DIM RES$(15),OP1$(12),OP2$(12)
0x0000…002f LineComalBin {
0x0000…002f ptr = 0x8d86 // 0x0 @0x0
0x0000…002f lno = 0x005a // 0x2 @0x2
0x0000…002f at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…002f at0005 = ╱52╱R╱ // 0x5 @0x5
0x0000…002f at0006 = ╱45╱E╱ // 0x6 @0x6
0x0000…002f at0007 = ╱53╱S╱ // 0x7 @0x7
0x0000…002f at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…002f at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…002f at000a = ╱31╱1╱ // 0xa @0xa
0x0000…002f at000b = ╱35╱5╱ // 0xb @0xb
0x0000…002f at000c = ╱fe0000f004╱ // 0xc @0xc
0x0000…002f at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…002f at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…002f at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…002f at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…002f at0015 = ╱31╱1╱ // 0x15 @0x15
0x0000…002f at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…002f at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…002f at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…002f at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…002f at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…002f at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…002f at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…002f at0021 = ╱4f╱O╱ // 0x21 @0x21
0x0000…002f at0022 = ╱50╱P╱ // 0x22 @0x22
0x0000…002f at0023 = ╱32╱2╱ // 0x23 @0x23
0x0000…002f at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…002f at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…002f at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…002f at0027 = ╱32╱2╱ // 0x27 @0x27
0x0000…002f at0028 = ╱fe0000c004╱ // 0x28 @0x28
0x0000…002f at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…002f at002e = EOL // 0x2e @0x2e
0x0000…002f }
0x002f…006f 8dc6 0100 DIM PNR$(6),TY$(E),TA$(12),TB$(14),DAT$(8)
0x002f…006f LineComalBin {
0x002f…006f ptr = 0x8dc6 // 0x2f @0x0
0x002f…006f lno = 0x0064 // 0x31 @0x2
0x002f…006f at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…006f at0005 = ╱50╱P╱ // 0x34 @0x5
0x002f…006f at0006 = ╱4e╱N╱ // 0x35 @0x6
0x002f…006f at0007 = ╱52╱R╱ // 0x36 @0x7
0x002f…006f at0008 = ╱ef╱$╱ // 0x37 @0x8
0x002f…006f at0009 = ╱ed╱(╱ // 0x38 @0x9
0x002f…006f at000a = ╱36╱6╱ // 0x39 @0xa
0x002f…006f at000b = ╱fe0000c003╱ // 0x3a @0xb
0x002f…006f at0010 = ╱ee╱)╱ // 0x3f @0x10
0x002f…006f at0011 = ╱ec╱,╱ // 0x40 @0x11
0x002f…006f at0012 = ╱54╱T╱ // 0x41 @0x12
0x002f…006f at0013 = ╱59╱Y╱ // 0x42 @0x13
0x002f…006f at0014 = ╱ef╱$╱ // 0x43 @0x14
0x002f…006f at0015 = ╱ed╱(╱ // 0x44 @0x15
0x002f…006f at0016 = ╱45╱E╱ // 0x45 @0x16
0x002f…006f at0017 = ╱ee╱)╱ // 0x46 @0x17
0x002f…006f at0018 = ╱ec╱,╱ // 0x47 @0x18
0x002f…006f at0019 = ╱54╱T╱ // 0x48 @0x19
0x002f…006f at001a = ╱41╱A╱ // 0x49 @0x1a
0x002f…006f at001b = ╱ef╱$╱ // 0x4a @0x1b
0x002f…006f at001c = ╱ed╱(╱ // 0x4b @0x1c
0x002f…006f at001d = ╱31╱1╱ // 0x4c @0x1d
0x002f…006f at001e = ╱32╱2╱ // 0x4d @0x1e
0x002f…006f at001f = ╱fe0000c004╱ // 0x4e @0x1f
0x002f…006f at0024 = ╱ee╱)╱ // 0x53 @0x24
0x002f…006f at0025 = ╱ec╱,╱ // 0x54 @0x25
0x002f…006f at0026 = ╱54╱T╱ // 0x55 @0x26
0x002f…006f at0027 = ╱42╱B╱ // 0x56 @0x27
0x002f…006f at0028 = ╱ef╱$╱ // 0x57 @0x28
0x002f…006f at0029 = ╱ed╱(╱ // 0x58 @0x29
0x002f…006f at002a = ╱31╱1╱ // 0x59 @0x2a
0x002f…006f at002b = ╱34╱4╱ // 0x5a @0x2b
0x002f…006f at002c = ╱fe0000e004╱ // 0x5b @0x2c
0x002f…006f at0031 = ╱ee╱)╱ // 0x60 @0x31
0x002f…006f at0032 = ╱ec╱,╱ // 0x61 @0x32
0x002f…006f at0033 = ╱44╱D╱ // 0x62 @0x33
0x002f…006f at0034 = ╱41╱A╱ // 0x63 @0x34
0x002f…006f at0035 = ╱54╱T╱ // 0x64 @0x35
0x002f…006f at0036 = ╱ef╱$╱ // 0x65 @0x36
0x002f…006f at0037 = ╱ed╱(╱ // 0x66 @0x37
0x002f…006f at0038 = ╱38╱8╱ // 0x67 @0x38
0x002f…006f at0039 = ╱fe00008004╱ // 0x68 @0x39
0x002f…006f at003e = ╱ee╱)╱ // 0x6d @0x3e
0x002f…006f at003f = EOL // 0x6e @0x3f
0x002f…006f }
0x006f…00ae 8e05 0110 DIM KSALDI$(12),LK$(V),KG$(V),KTN$(6),VTAB2(5)
0x006f…00ae LineComalBin {
0x006f…00ae ptr = 0x8e05 // 0x6f @0x0
0x006f…00ae lno = 0x006e // 0x71 @0x2
0x006f…00ae at0004 = ╱87╱ DIM ╱ // 0x73 @0x4
0x006f…00ae at0005 = ╱4b╱K╱ // 0x74 @0x5
0x006f…00ae at0006 = ╱53╱S╱ // 0x75 @0x6
0x006f…00ae at0007 = ╱41╱A╱ // 0x76 @0x7
0x006f…00ae at0008 = ╱4c╱L╱ // 0x77 @0x8
0x006f…00ae at0009 = ╱44╱D╱ // 0x78 @0x9
0x006f…00ae at000a = ╱49╱I╱ // 0x79 @0xa
0x006f…00ae at000b = ╱ef╱$╱ // 0x7a @0xb
0x006f…00ae at000c = ╱ed╱(╱ // 0x7b @0xc
0x006f…00ae at000d = ╱31╱1╱ // 0x7c @0xd
0x006f…00ae at000e = ╱32╱2╱ // 0x7d @0xe
0x006f…00ae at000f = ╱fe0000c004╱ // 0x7e @0xf
0x006f…00ae at0014 = ╱ee╱)╱ // 0x83 @0x14
0x006f…00ae at0015 = ╱ec╱,╱ // 0x84 @0x15
0x006f…00ae at0016 = ╱4c╱L╱ // 0x85 @0x16
0x006f…00ae at0017 = ╱4b╱K╱ // 0x86 @0x17
0x006f…00ae at0018 = ╱ef╱$╱ // 0x87 @0x18
0x006f…00ae at0019 = ╱ed╱(╱ // 0x88 @0x19
0x006f…00ae at001a = ╱56╱V╱ // 0x89 @0x1a
0x006f…00ae at001b = ╱ee╱)╱ // 0x8a @0x1b
0x006f…00ae at001c = ╱ec╱,╱ // 0x8b @0x1c
0x006f…00ae at001d = ╱4b╱K╱ // 0x8c @0x1d
0x006f…00ae at001e = ╱47╱G╱ // 0x8d @0x1e
0x006f…00ae at001f = ╱ef╱$╱ // 0x8e @0x1f
0x006f…00ae at0020 = ╱ed╱(╱ // 0x8f @0x20
0x006f…00ae at0021 = ╱56╱V╱ // 0x90 @0x21
0x006f…00ae at0022 = ╱ee╱)╱ // 0x91 @0x22
0x006f…00ae at0023 = ╱ec╱,╱ // 0x92 @0x23
0x006f…00ae at0024 = ╱4b╱K╱ // 0x93 @0x24
0x006f…00ae at0025 = ╱54╱T╱ // 0x94 @0x25
0x006f…00ae at0026 = ╱4e╱N╱ // 0x95 @0x26
0x006f…00ae at0027 = ╱ef╱$╱ // 0x96 @0x27
0x006f…00ae at0028 = ╱ed╱(╱ // 0x97 @0x28
0x006f…00ae at0029 = ╱36╱6╱ // 0x98 @0x29
0x006f…00ae at002a = ╱fe0000c003╱ // 0x99 @0x2a
0x006f…00ae at002f = ╱ee╱)╱ // 0x9e @0x2f
0x006f…00ae at0030 = ╱ec╱,╱ // 0x9f @0x30
0x006f…00ae at0031 = ╱56╱V╱ // 0xa0 @0x31
0x006f…00ae at0032 = ╱54╱T╱ // 0xa1 @0x32
0x006f…00ae at0033 = ╱41╱A╱ // 0xa2 @0x33
0x006f…00ae at0034 = ╱42╱B╱ // 0xa3 @0x34
0x006f…00ae at0035 = ╱32╱2╱ // 0xa4 @0x35
0x006f…00ae at0036 = ╱ed╱(╱ // 0xa5 @0x36
0x006f…00ae at0037 = ╱35╱5╱ // 0xa6 @0x37
0x006f…00ae at0038 = ╱fe0000a003╱ // 0xa7 @0x38
0x006f…00ae at003d = ╱ee╱)╱ // 0xac @0x3d
0x006f…00ae at003e = EOL // 0xad @0x3e
0x006f…00ae }
0x00ae…0112 8e69 0120 DIM BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),KSALDO1$(12),KSALDO2$(12)
0x00ae…0112 LineComalBin {
0x00ae…0112 ptr = 0x8e69 // 0xae @0x0
0x00ae…0112 lno = 0x0078 // 0xb0 @0x2
0x00ae…0112 at0004 = ╱87╱ DIM ╱ // 0xb2 @0x4
0x00ae…0112 at0005 = ╱42╱B╱ // 0xb3 @0x5
0x00ae…0112 at0006 = ╱4c╱L╱ // 0xb4 @0x6
0x00ae…0112 at0007 = ╱42╱B╱ // 0xb5 @0x7
0x00ae…0112 at0008 = ╱32╱2╱ // 0xb6 @0x8
0x00ae…0112 at0009 = ╱ef╱$╱ // 0xb7 @0x9
0x00ae…0112 at000a = ╱ed╱(╱ // 0xb8 @0xa
0x00ae…0112 at000b = ╱31╱1╱ // 0xb9 @0xb
0x00ae…0112 at000c = ╱32╱2╱ // 0xba @0xc
0x00ae…0112 at000d = ╱fe0000c004╱ // 0xbb @0xd
0x00ae…0112 at0012 = ╱ee╱)╱ // 0xc0 @0x12
0x00ae…0112 at0013 = ╱ec╱,╱ // 0xc1 @0x13
0x00ae…0112 at0014 = ╱55╱U╱ // 0xc2 @0x14
0x00ae…0112 at0015 = ╱42╱B╱ // 0xc3 @0x15
0x00ae…0112 at0016 = ╱4c╱L╱ // 0xc4 @0x16
0x00ae…0112 at0017 = ╱42╱B╱ // 0xc5 @0x17
0x00ae…0112 at0018 = ╱32╱2╱ // 0xc6 @0x18
0x00ae…0112 at0019 = ╱ef╱$╱ // 0xc7 @0x19
0x00ae…0112 at001a = ╱ed╱(╱ // 0xc8 @0x1a
0x00ae…0112 at001b = ╱31╱1╱ // 0xc9 @0x1b
0x00ae…0112 at001c = ╱34╱4╱ // 0xca @0x1c
0x00ae…0112 at001d = ╱fe0000e004╱ // 0xcb @0x1d
0x00ae…0112 at0022 = ╱ee╱)╱ // 0xd0 @0x22
0x00ae…0112 at0023 = ╱ec╱,╱ // 0xd1 @0x23
0x00ae…0112 at0024 = ╱55╱U╱ // 0xd2 @0x24
0x00ae…0112 at0025 = ╱44╱D╱ // 0xd3 @0x25
0x00ae…0112 at0026 = ╱31╱1╱ // 0xd4 @0x26
0x00ae…0112 at0027 = ╱ef╱$╱ // 0xd5 @0x27
0x00ae…0112 at0028 = ╱ed╱(╱ // 0xd6 @0x28
0x00ae…0112 at0029 = ╱31╱1╱ // 0xd7 @0x29
0x00ae…0112 at002a = ╱34╱4╱ // 0xd8 @0x2a
0x00ae…0112 at002b = ╱fe0000e004╱ // 0xd9 @0x2b
0x00ae…0112 at0030 = ╱ee╱)╱ // 0xde @0x30
0x00ae…0112 at0031 = ╱ec╱,╱ // 0xdf @0x31
0x00ae…0112 at0032 = ╱55╱U╱ // 0xe0 @0x32
0x00ae…0112 at0033 = ╱44╱D╱ // 0xe1 @0x33
0x00ae…0112 at0034 = ╱32╱2╱ // 0xe2 @0x34
0x00ae…0112 at0035 = ╱ef╱$╱ // 0xe3 @0x35
0x00ae…0112 at0036 = ╱ed╱(╱ // 0xe4 @0x36
0x00ae…0112 at0037 = ╱31╱1╱ // 0xe5 @0x37
0x00ae…0112 at0038 = ╱34╱4╱ // 0xe6 @0x38
0x00ae…0112 at0039 = ╱fe0000e004╱ // 0xe7 @0x39
0x00ae…0112 at003e = ╱ee╱)╱ // 0xec @0x3e
0x00ae…0112 at003f = ╱ec╱,╱ // 0xed @0x3f
0x00ae…0112 at0040 = ╱4b╱K╱ // 0xee @0x40
0x00ae…0112 at0041 = ╱53╱S╱ // 0xef @0x41
0x00ae…0112 at0042 = ╱41╱A╱ // 0xf0 @0x42
0x00ae…0112 at0043 = ╱4c╱L╱ // 0xf1 @0x43
0x00ae…0112 at0044 = ╱44╱D╱ // 0xf2 @0x44
0x00ae…0112 at0045 = ╱4f╱O╱ // 0xf3 @0x45
0x00ae…0112 at0046 = ╱31╱1╱ // 0xf4 @0x46
0x00ae…0112 at0047 = ╱ef╱$╱ // 0xf5 @0x47
0x00ae…0112 at0048 = ╱ed╱(╱ // 0xf6 @0x48
0x00ae…0112 at0049 = ╱31╱1╱ // 0xf7 @0x49
0x00ae…0112 at004a = ╱32╱2╱ // 0xf8 @0x4a
0x00ae…0112 at004b = ╱fe0000c004╱ // 0xf9 @0x4b
0x00ae…0112 at0050 = ╱ee╱)╱ // 0xfe @0x50
0x00ae…0112 at0051 = ╱ec╱,╱ // 0xff @0x51
0x00ae…0112 at0052 = ╱4b╱K╱ // 0x100 @0x52
0x00ae…0112 at0053 = ╱53╱S╱ // 0x101 @0x53
0x00ae…0112 at0054 = ╱41╱A╱ // 0x102 @0x54
0x00ae…0112 at0055 = ╱4c╱L╱ // 0x103 @0x55
0x00ae…0112 at0056 = ╱44╱D╱ // 0x104 @0x56
0x00ae…0112 at0057 = ╱4f╱O╱ // 0x105 @0x57
0x00ae…0112 at0058 = ╱32╱2╱ // 0x106 @0x58
0x00ae…0112 at0059 = ╱ef╱$╱ // 0x107 @0x59
0x00ae…0112 at005a = ╱ed╱(╱ // 0x108 @0x5a
0x00ae…0112 at005b = ╱31╱1╱ // 0x109 @0x5b
0x00ae…0112 at005c = ╱32╱2╱ // 0x10a @0x5c
0x00ae…0112 at005d = ╱fe0000c004╱ // 0x10b @0x5d
0x00ae…0112 at0062 = ╱ee╱)╱ // 0x110 @0x62
0x00ae…0112 at0063 = EOL // 0x111 @0x63
0x00ae…0112 }
0x0112…015d 8eb4 0130 DIM K1$(17),K2$(17),KRENAVN$(25),KREGR$(E),STREG$(71)
0x0112…015d LineComalBin {
0x0112…015d ptr = 0x8eb4 // 0x112 @0x0
0x0112…015d lno = 0x0082 // 0x114 @0x2
0x0112…015d at0004 = ╱87╱ DIM ╱ // 0x116 @0x4
0x0112…015d at0005 = ╱4b╱K╱ // 0x117 @0x5
0x0112…015d at0006 = ╱31╱1╱ // 0x118 @0x6
0x0112…015d at0007 = ╱ef╱$╱ // 0x119 @0x7
0x0112…015d at0008 = ╱ed╱(╱ // 0x11a @0x8
0x0112…015d at0009 = ╱31╱1╱ // 0x11b @0x9
0x0112…015d at000a = ╱37╱7╱ // 0x11c @0xa
0x0112…015d at000b = ╱fe00008805╱ // 0x11d @0xb
0x0112…015d at0010 = ╱ee╱)╱ // 0x122 @0x10
0x0112…015d at0011 = ╱ec╱,╱ // 0x123 @0x11
0x0112…015d at0012 = ╱4b╱K╱ // 0x124 @0x12
0x0112…015d at0013 = ╱32╱2╱ // 0x125 @0x13
0x0112…015d at0014 = ╱ef╱$╱ // 0x126 @0x14
0x0112…015d at0015 = ╱ed╱(╱ // 0x127 @0x15
0x0112…015d at0016 = ╱31╱1╱ // 0x128 @0x16
0x0112…015d at0017 = ╱37╱7╱ // 0x129 @0x17
0x0112…015d at0018 = ╱fe00008805╱ // 0x12a @0x18
0x0112…015d at001d = ╱ee╱)╱ // 0x12f @0x1d
0x0112…015d at001e = ╱ec╱,╱ // 0x130 @0x1e
0x0112…015d at001f = ╱4b╱K╱ // 0x131 @0x1f
0x0112…015d at0020 = ╱52╱R╱ // 0x132 @0x20
0x0112…015d at0021 = ╱45╱E╱ // 0x133 @0x21
0x0112…015d at0022 = ╱4e╱N╱ // 0x134 @0x22
0x0112…015d at0023 = ╱41╱A╱ // 0x135 @0x23
0x0112…015d at0024 = ╱56╱V╱ // 0x136 @0x24
0x0112…015d at0025 = ╱4e╱N╱ // 0x137 @0x25
0x0112…015d at0026 = ╱ef╱$╱ // 0x138 @0x26
0x0112…015d at0027 = ╱ed╱(╱ // 0x139 @0x27
0x0112…015d at0028 = ╱32╱2╱ // 0x13a @0x28
0x0112…015d at0029 = ╱35╱5╱ // 0x13b @0x29
0x0112…015d at002a = ╱fe0000c805╱ // 0x13c @0x2a
0x0112…015d at002f = ╱ee╱)╱ // 0x141 @0x2f
0x0112…015d at0030 = ╱ec╱,╱ // 0x142 @0x30
0x0112…015d at0031 = ╱4b╱K╱ // 0x143 @0x31
0x0112…015d at0032 = ╱52╱R╱ // 0x144 @0x32
0x0112…015d at0033 = ╱45╱E╱ // 0x145 @0x33
0x0112…015d at0034 = ╱47╱G╱ // 0x146 @0x34
0x0112…015d at0035 = ╱52╱R╱ // 0x147 @0x35
0x0112…015d at0036 = ╱ef╱$╱ // 0x148 @0x36
0x0112…015d at0037 = ╱ed╱(╱ // 0x149 @0x37
0x0112…015d at0038 = ╱45╱E╱ // 0x14a @0x38
0x0112…015d at0039 = ╱ee╱)╱ // 0x14b @0x39
0x0112…015d at003a = ╱ec╱,╱ // 0x14c @0x3a
0x0112…015d at003b = ╱53╱S╱ // 0x14d @0x3b
0x0112…015d at003c = ╱54╱T╱ // 0x14e @0x3c
0x0112…015d at003d = ╱52╱R╱ // 0x14f @0x3d
0x0112…015d at003e = ╱45╱E╱ // 0x150 @0x3e
0x0112…015d at003f = ╱47╱G╱ // 0x151 @0x3f
0x0112…015d at0040 = ╱ef╱$╱ // 0x152 @0x40
0x0112…015d at0041 = ╱ed╱(╱ // 0x153 @0x41
0x0112…015d at0042 = ╱37╱7╱ // 0x154 @0x42
0x0112…015d at0043 = ╱31╱1╱ // 0x155 @0x43
0x0112…015d at0044 = ╱fe00008e07╱ // 0x156 @0x44
0x0112…015d at0049 = ╱ee╱)╱ // 0x15b @0x49
0x0112…015d at004a = EOL // 0x15c @0x4a
0x0112…015d }
0x015d…0196 8eed 0140 DIM KRELK$(E),KREGADE$(25),N$(6),DV$(10)
0x015d…0196 LineComalBin {
0x015d…0196 ptr = 0x8eed // 0x15d @0x0
0x015d…0196 lno = 0x008c // 0x15f @0x2
0x015d…0196 at0004 = ╱87╱ DIM ╱ // 0x161 @0x4
0x015d…0196 at0005 = ╱4b╱K╱ // 0x162 @0x5
0x015d…0196 at0006 = ╱52╱R╱ // 0x163 @0x6
0x015d…0196 at0007 = ╱45╱E╱ // 0x164 @0x7
0x015d…0196 at0008 = ╱4c╱L╱ // 0x165 @0x8
0x015d…0196 at0009 = ╱4b╱K╱ // 0x166 @0x9
0x015d…0196 at000a = ╱ef╱$╱ // 0x167 @0xa
0x015d…0196 at000b = ╱ed╱(╱ // 0x168 @0xb
0x015d…0196 at000c = ╱45╱E╱ // 0x169 @0xc
0x015d…0196 at000d = ╱ee╱)╱ // 0x16a @0xd
0x015d…0196 at000e = ╱ec╱,╱ // 0x16b @0xe
0x015d…0196 at000f = ╱4b╱K╱ // 0x16c @0xf
0x015d…0196 at0010 = ╱52╱R╱ // 0x16d @0x10
0x015d…0196 at0011 = ╱45╱E╱ // 0x16e @0x11
0x015d…0196 at0012 = ╱47╱G╱ // 0x16f @0x12
0x015d…0196 at0013 = ╱41╱A╱ // 0x170 @0x13
0x015d…0196 at0014 = ╱44╱D╱ // 0x171 @0x14
0x015d…0196 at0015 = ╱45╱E╱ // 0x172 @0x15
0x015d…0196 at0016 = ╱ef╱$╱ // 0x173 @0x16
0x015d…0196 at0017 = ╱ed╱(╱ // 0x174 @0x17
0x015d…0196 at0018 = ╱32╱2╱ // 0x175 @0x18
0x015d…0196 at0019 = ╱35╱5╱ // 0x176 @0x19
0x015d…0196 at001a = ╱fe0000c805╱ // 0x177 @0x1a
0x015d…0196 at001f = ╱ee╱)╱ // 0x17c @0x1f
0x015d…0196 at0020 = ╱ec╱,╱ // 0x17d @0x20
0x015d…0196 at0021 = ╱4e╱N╱ // 0x17e @0x21
0x015d…0196 at0022 = ╱ef╱$╱ // 0x17f @0x22
0x015d…0196 at0023 = ╱ed╱(╱ // 0x180 @0x23
0x015d…0196 at0024 = ╱36╱6╱ // 0x181 @0x24
0x015d…0196 at0025 = ╱fe0000c003╱ // 0x182 @0x25
0x015d…0196 at002a = ╱ee╱)╱ // 0x187 @0x2a
0x015d…0196 at002b = ╱ec╱,╱ // 0x188 @0x2b
0x015d…0196 at002c = ╱44╱D╱ // 0x189 @0x2c
0x015d…0196 at002d = ╱56╱V╱ // 0x18a @0x2d
0x015d…0196 at002e = ╱ef╱$╱ // 0x18b @0x2e
0x015d…0196 at002f = ╱ed╱(╱ // 0x18c @0x2f
0x015d…0196 at0030 = ╱31╱1╱ // 0x18d @0x30
0x015d…0196 at0031 = ╱30╱0╱ // 0x18e @0x31
0x015d…0196 at0032 = ╱fe0000a004╱ // 0x18f @0x32
0x015d…0196 at0037 = ╱ee╱)╱ // 0x194 @0x37
0x015d…0196 at0038 = EOL // 0x195 @0x38
0x015d…0196 }
0x0196…01e4 8f3b 0150 DIM T2(W),BLANK$(77),A$(E),TAL4$(14),TAH$(12),KREBY$(20)
0x0196…01e4 LineComalBin {
0x0196…01e4 ptr = 0x8f3b // 0x196 @0x0
0x0196…01e4 lno = 0x0096 // 0x198 @0x2
0x0196…01e4 at0004 = ╱87╱ DIM ╱ // 0x19a @0x4
0x0196…01e4 at0005 = ╱54╱T╱ // 0x19b @0x5
0x0196…01e4 at0006 = ╱32╱2╱ // 0x19c @0x6
0x0196…01e4 at0007 = ╱ed╱(╱ // 0x19d @0x7
0x0196…01e4 at0008 = ╱57╱W╱ // 0x19e @0x8
0x0196…01e4 at0009 = ╱ee╱)╱ // 0x19f @0x9
0x0196…01e4 at000a = ╱ec╱,╱ // 0x1a0 @0xa
0x0196…01e4 at000b = ╱42╱B╱ // 0x1a1 @0xb
0x0196…01e4 at000c = ╱4c╱L╱ // 0x1a2 @0xc
0x0196…01e4 at000d = ╱41╱A╱ // 0x1a3 @0xd
0x0196…01e4 at000e = ╱4e╱N╱ // 0x1a4 @0xe
0x0196…01e4 at000f = ╱4b╱K╱ // 0x1a5 @0xf
0x0196…01e4 at0010 = ╱ef╱$╱ // 0x1a6 @0x10
0x0196…01e4 at0011 = ╱ed╱(╱ // 0x1a7 @0x11
0x0196…01e4 at0012 = ╱37╱7╱ // 0x1a8 @0x12
0x0196…01e4 at0013 = ╱37╱7╱ // 0x1a9 @0x13
0x0196…01e4 at0014 = ╱fe00009a07╱ // 0x1aa @0x14
0x0196…01e4 at0019 = ╱ee╱)╱ // 0x1af @0x19
0x0196…01e4 at001a = ╱ec╱,╱ // 0x1b0 @0x1a
0x0196…01e4 at001b = ╱41╱A╱ // 0x1b1 @0x1b
0x0196…01e4 at001c = ╱ef╱$╱ // 0x1b2 @0x1c
0x0196…01e4 at001d = ╱ed╱(╱ // 0x1b3 @0x1d
0x0196…01e4 at001e = ╱45╱E╱ // 0x1b4 @0x1e
0x0196…01e4 at001f = ╱ee╱)╱ // 0x1b5 @0x1f
0x0196…01e4 at0020 = ╱ec╱,╱ // 0x1b6 @0x20
0x0196…01e4 at0021 = ╱54╱T╱ // 0x1b7 @0x21
0x0196…01e4 at0022 = ╱41╱A╱ // 0x1b8 @0x22
0x0196…01e4 at0023 = ╱4c╱L╱ // 0x1b9 @0x23
0x0196…01e4 at0024 = ╱34╱4╱ // 0x1ba @0x24
0x0196…01e4 at0025 = ╱ef╱$╱ // 0x1bb @0x25
0x0196…01e4 at0026 = ╱ed╱(╱ // 0x1bc @0x26
0x0196…01e4 at0027 = ╱31╱1╱ // 0x1bd @0x27
0x0196…01e4 at0028 = ╱34╱4╱ // 0x1be @0x28
0x0196…01e4 at0029 = ╱fe0000e004╱ // 0x1bf @0x29
0x0196…01e4 at002e = ╱ee╱)╱ // 0x1c4 @0x2e
0x0196…01e4 at002f = ╱ec╱,╱ // 0x1c5 @0x2f
0x0196…01e4 at0030 = ╱54╱T╱ // 0x1c6 @0x30
0x0196…01e4 at0031 = ╱41╱A╱ // 0x1c7 @0x31
0x0196…01e4 at0032 = ╱48╱H╱ // 0x1c8 @0x32
0x0196…01e4 at0033 = ╱ef╱$╱ // 0x1c9 @0x33
0x0196…01e4 at0034 = ╱ed╱(╱ // 0x1ca @0x34
0x0196…01e4 at0035 = ╱31╱1╱ // 0x1cb @0x35
0x0196…01e4 at0036 = ╱32╱2╱ // 0x1cc @0x36
0x0196…01e4 at0037 = ╱fe0000c004╱ // 0x1cd @0x37
0x0196…01e4 at003c = ╱ee╱)╱ // 0x1d2 @0x3c
0x0196…01e4 at003d = ╱ec╱,╱ // 0x1d3 @0x3d
0x0196…01e4 at003e = ╱4b╱K╱ // 0x1d4 @0x3e
0x0196…01e4 at003f = ╱52╱R╱ // 0x1d5 @0x3f
0x0196…01e4 at0040 = ╱45╱E╱ // 0x1d6 @0x40
0x0196…01e4 at0041 = ╱42╱B╱ // 0x1d7 @0x41
0x0196…01e4 at0042 = ╱59╱Y╱ // 0x1d8 @0x42
0x0196…01e4 at0043 = ╱ef╱$╱ // 0x1d9 @0x43
0x0196…01e4 at0044 = ╱ed╱(╱ // 0x1da @0x44
0x0196…01e4 at0045 = ╱32╱2╱ // 0x1db @0x45
0x0196…01e4 at0046 = ╱30╱0╱ // 0x1dc @0x46
0x0196…01e4 at0047 = ╱fe0000a005╱ // 0x1dd @0x47
0x0196…01e4 at004c = ╱ee╱)╱ // 0x1e2 @0x4c
0x0196…01e4 at004d = EOL // 0x1e3 @0x4d
0x0196…01e4 }
0x01e4…0250 8fa7 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12)
0x01e4…0250 LineComalBin {
0x01e4…0250 ptr = 0x8fa7 // 0x1e4 @0x0
0x01e4…0250 lno = 0x00a0 // 0x1e6 @0x2
0x01e4…0250 at0004 = ╱87╱ DIM ╱ // 0x1e8 @0x4
0x01e4…0250 at0005 = ╱55╱U╱ // 0x1e9 @0x5
0x01e4…0250 at0006 = ╱44╱D╱ // 0x1ea @0x6
0x01e4…0250 at0007 = ╱33╱3╱ // 0x1eb @0x7
0x01e4…0250 at0008 = ╱ef╱$╱ // 0x1ec @0x8
0x01e4…0250 at0009 = ╱ed╱(╱ // 0x1ed @0x9
0x01e4…0250 at000a = ╱31╱1╱ // 0x1ee @0xa
0x01e4…0250 at000b = ╱34╱4╱ // 0x1ef @0xb
0x01e4…0250 at000c = ╱fe0000e004╱ // 0x1f0 @0xc
0x01e4…0250 at0011 = ╱ee╱)╱ // 0x1f5 @0x11
0x01e4…0250 at0012 = ╱ec╱,╱ // 0x1f6 @0x12
0x01e4…0250 at0013 = ╱55╱U╱ // 0x1f7 @0x13
0x01e4…0250 at0014 = ╱44╱D╱ // 0x1f8 @0x14
0x01e4…0250 at0015 = ╱34╱4╱ // 0x1f9 @0x15
0x01e4…0250 at0016 = ╱ef╱$╱ // 0x1fa @0x16
0x01e4…0250 at0017 = ╱ed╱(╱ // 0x1fb @0x17
0x01e4…0250 at0018 = ╱31╱1╱ // 0x1fc @0x18
0x01e4…0250 at0019 = ╱34╱4╱ // 0x1fd @0x19
0x01e4…0250 at001a = ╱fe0000e004╱ // 0x1fe @0x1a
0x01e4…0250 at001f = ╱ee╱)╱ // 0x203 @0x1f
0x01e4…0250 at0020 = ╱ec╱,╱ // 0x204 @0x20
0x01e4…0250 at0021 = ╱4b╱K╱ // 0x205 @0x21
0x01e4…0250 at0022 = ╱33╱3╱ // 0x206 @0x22
0x01e4…0250 at0023 = ╱ef╱$╱ // 0x207 @0x23
0x01e4…0250 at0024 = ╱ed╱(╱ // 0x208 @0x24
0x01e4…0250 at0025 = ╱31╱1╱ // 0x209 @0x25
0x01e4…0250 at0026 = ╱37╱7╱ // 0x20a @0x26
0x01e4…0250 at0027 = ╱fe00008805╱ // 0x20b @0x27
0x01e4…0250 at002c = ╱ee╱)╱ // 0x210 @0x2c
0x01e4…0250 at002d = ╱ec╱,╱ // 0x211 @0x2d
0x01e4…0250 at002e = ╱4b╱K╱ // 0x212 @0x2e
0x01e4…0250 at002f = ╱34╱4╱ // 0x213 @0x2f
0x01e4…0250 at0030 = ╱ef╱$╱ // 0x214 @0x30
0x01e4…0250 at0031 = ╱ed╱(╱ // 0x215 @0x31
0x01e4…0250 at0032 = ╱31╱1╱ // 0x216 @0x32
0x01e4…0250 at0033 = ╱37╱7╱ // 0x217 @0x33
0x01e4…0250 at0034 = ╱fe00008805╱ // 0x218 @0x34
0x01e4…0250 at0039 = ╱ee╱)╱ // 0x21d @0x39
0x01e4…0250 at003a = ╱ec╱,╱ // 0x21e @0x3a
0x01e4…0250 at003b = ╱4b╱K╱ // 0x21f @0x3b
0x01e4…0250 at003c = ╱35╱5╱ // 0x220 @0x3c
0x01e4…0250 at003d = ╱ef╱$╱ // 0x221 @0x3d
0x01e4…0250 at003e = ╱ed╱(╱ // 0x222 @0x3e
0x01e4…0250 at003f = ╱31╱1╱ // 0x223 @0x3f
0x01e4…0250 at0040 = ╱37╱7╱ // 0x224 @0x40
0x01e4…0250 at0041 = ╱fe00008805╱ // 0x225 @0x41
0x01e4…0250 at0046 = ╱ee╱)╱ // 0x22a @0x46
0x01e4…0250 at0047 = ╱ec╱,╱ // 0x22b @0x47
0x01e4…0250 at0048 = ╱4b╱K╱ // 0x22c @0x48
0x01e4…0250 at0049 = ╱36╱6╱ // 0x22d @0x49
0x01e4…0250 at004a = ╱ef╱$╱ // 0x22e @0x4a
0x01e4…0250 at004b = ╱ed╱(╱ // 0x22f @0x4b
0x01e4…0250 at004c = ╱31╱1╱ // 0x230 @0x4c
0x01e4…0250 at004d = ╱37╱7╱ // 0x231 @0x4d
0x01e4…0250 at004e = ╱fe00008805╱ // 0x232 @0x4e
0x01e4…0250 at0053 = ╱ee╱)╱ // 0x237 @0x53
0x01e4…0250 at0054 = ╱ec╱,╱ // 0x238 @0x54
0x01e4…0250 at0055 = ╱54╱T╱ // 0x239 @0x55
0x01e4…0250 at0056 = ╱31╱1╱ // 0x23a @0x56
0x01e4…0250 at0057 = ╱ed╱(╱ // 0x23b @0x57
0x01e4…0250 at0058 = ╱57╱W╱ // 0x23c @0x58
0x01e4…0250 at0059 = ╱ee╱)╱ // 0x23d @0x59
0x01e4…0250 at005a = ╱ec╱,╱ // 0x23e @0x5a
0x01e4…0250 at005b = ╱4c╱L╱ // 0x23f @0x5b
0x01e4…0250 at005c = ╱41╱A╱ // 0x240 @0x5c
0x01e4…0250 at005d = ╱4e╱N╱ // 0x241 @0x5d
0x01e4…0250 at005e = ╱44╱D╱ // 0x242 @0x5e
0x01e4…0250 at005f = ╱ef╱$╱ // 0x243 @0x5f
0x01e4…0250 at0060 = ╱ed╱(╱ // 0x244 @0x60
0x01e4…0250 at0061 = ╱57╱W╱ // 0x245 @0x61
0x01e4…0250 at0062 = ╱ec╱,╱ // 0x246 @0x62
0x01e4…0250 at0063 = ╱31╱1╱ // 0x247 @0x63
0x01e4…0250 at0064 = ╱32╱2╱ // 0x248 @0x64
0x01e4…0250 at0065 = ╱fe0000c004╱ // 0x249 @0x65
0x01e4…0250 at006a = ╱ee╱)╱ // 0x24e @0x6a
0x01e4…0250 at006b = EOL // 0x24f @0x6b
0x01e4…0250 }
0x0250…025a 8fb1 0170 ART=B
0x0250…025a LineComalBin {
0x0250…025a ptr = 0x8fb1 // 0x250 @0x0
0x0250…025a lno = 0x00aa // 0x252 @0x2
0x0250…025a at0004 = ╱41╱A╱ // 0x254 @0x4
0x0250…025a at0005 = ╱52╱R╱ // 0x255 @0x5
0x0250…025a at0006 = ╱54╱T╱ // 0x256 @0x6
0x0250…025a at0007 = ╱dc╱=╱ // 0x257 @0x7
0x0250…025a at0008 = ╱42╱B╱ // 0x258 @0x8
0x0250…025a at0009 = EOL // 0x259 @0x9
0x0250…025a }
0x025a…0271 8fc8 0180 PROC CALC(AT,B1,B2,ES)
0x025a…0271 LineComalBin {
0x025a…0271 ptr = 0x8fc8 // 0x25a @0x0
0x025a…0271 lno = 0x00b4 // 0x25c @0x2
0x025a…0271 at0004 = ╱9e╱ PROC ╱ // 0x25e @0x4
0x025a…0271 at0005 = ╱43╱C╱ // 0x25f @0x5
0x025a…0271 at0006 = ╱41╱A╱ // 0x260 @0x6
0x025a…0271 at0007 = ╱4c╱L╱ // 0x261 @0x7
0x025a…0271 at0008 = ╱43╱C╱ // 0x262 @0x8
0x025a…0271 at0009 = ╱ed╱(╱ // 0x263 @0x9
0x025a…0271 at000a = ╱41╱A╱ // 0x264 @0xa
0x025a…0271 at000b = ╱54╱T╱ // 0x265 @0xb
0x025a…0271 at000c = ╱ec╱,╱ // 0x266 @0xc
0x025a…0271 at000d = ╱42╱B╱ // 0x267 @0xd
0x025a…0271 at000e = ╱31╱1╱ // 0x268 @0xe
0x025a…0271 at000f = ╱ec╱,╱ // 0x269 @0xf
0x025a…0271 at0010 = ╱42╱B╱ // 0x26a @0x10
0x025a…0271 at0011 = ╱32╱2╱ // 0x26b @0x11
0x025a…0271 at0012 = ╱ec╱,╱ // 0x26c @0x12
0x025a…0271 at0013 = ╱45╱E╱ // 0x26d @0x13
0x025a…0271 at0014 = ╱53╱S╱ // 0x26e @0x14
0x025a…0271 at0015 = ╱ee╱)╱ // 0x26f @0x15
0x025a…0271 at0016 = EOL // 0x270 @0x16
0x025a…0271 }
0x0271…02a3 8ffa 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AT
0x0271…02a3 LineComalBin {
0x0271…02a3 ptr = 0x8ffa // 0x271 @0x0
0x0271…02a3 lno = 0x00be // 0x273 @0x2
0x0271…02a3 at0004 = ╱4f╱O╱ // 0x275 @0x4
0x0271…02a3 at0005 = ╱50╱P╱ // 0x276 @0x5
0x0271…02a3 at0006 = ╱31╱1╱ // 0x277 @0x6
0x0271…02a3 at0007 = ╱ef╱$╱ // 0x278 @0x7
0x0271…02a3 at0008 = ╱dc╱=╱ // 0x279 @0x8
0x0271…02a3 at0009 = ╱42╱B╱ // 0x27a @0x9
0x0271…02a3 at000a = ╱31╱1╱ // 0x27b @0xa
0x0271…02a3 at000b = ╱ef╱$╱ // 0x27c @0xb
0x0271…02a3 at000c = ╱eb╱;╱ // 0x27d @0xc
0x0271…02a3 at000d = ╱4f╱O╱ // 0x27e @0xd
0x0271…02a3 at000e = ╱50╱P╱ // 0x27f @0xe
0x0271…02a3 at000f = ╱32╱2╱ // 0x280 @0xf
0x0271…02a3 at0010 = ╱ef╱$╱ // 0x281 @0x10
0x0271…02a3 at0011 = ╱dc╱=╱ // 0x282 @0x11
0x0271…02a3 at0012 = ╱42╱B╱ // 0x283 @0x12
0x0271…02a3 at0013 = ╱32╱2╱ // 0x284 @0x13
0x0271…02a3 at0014 = ╱ef╱$╱ // 0x285 @0x14
0x0271…02a3 at0015 = ╱eb╱;╱ // 0x286 @0x15
0x0271…02a3 at0016 = ╱52╱R╱ // 0x287 @0x16
0x0271…02a3 at0017 = ╱45╱E╱ // 0x288 @0x17
0x0271…02a3 at0018 = ╱53╱S╱ // 0x289 @0x18
0x0271…02a3 at0019 = ╱ef╱$╱ // 0x28a @0x19
0x0271…02a3 at001a = ╱dc╱=╱ // 0x28b @0x1a
0x0271…02a3 at001b = ╱45╱E╱ // 0x28c @0x1b
0x0271…02a3 at001c = ╱53╱S╱ // 0x28d @0x1c
0x0271…02a3 at001d = ╱ef╱$╱ // 0x28e @0x1d
0x0271…02a3 at001e = ╱eb╱;╱ // 0x28f @0x1e
0x0271…02a3 at001f = ╱53╱S╱ // 0x290 @0x1f
0x0271…02a3 at0020 = ╱49╱I╱ // 0x291 @0x20
0x0271…02a3 at0021 = ╱dc╱=╱ // 0x292 @0x21
0x0271…02a3 at0022 = ╱42╱B╱ // 0x293 @0x22
0x0271…02a3 at0023 = ╱eb╱;╱ // 0x294 @0x23
0x0271…02a3 at0024 = ╱46╱F╱ // 0x295 @0x24
0x0271…02a3 at0025 = ╱4c╱L╱ // 0x296 @0x25
0x0271…02a3 at0026 = ╱41╱A╱ // 0x297 @0x26
0x0271…02a3 at0027 = ╱47╱G╱ // 0x298 @0x27
0x0271…02a3 at0028 = ╱dc╱=╱ // 0x299 @0x28
0x0271…02a3 at0029 = ╱42╱B╱ // 0x29a @0x29
0x0271…02a3 at002a = ╱eb╱;╱ // 0x29b @0x2a
0x0271…02a3 at002b = ╱41╱A╱ // 0x29c @0x2b
0x0271…02a3 at002c = ╱52╱R╱ // 0x29d @0x2c
0x0271…02a3 at002d = ╱54╱T╱ // 0x29e @0x2d
0x0271…02a3 at002e = ╱dc╱=╱ // 0x29f @0x2e
0x0271…02a3 at002f = ╱41╱A╱ // 0x2a0 @0x2f
0x0271…02a3 at0030 = ╱54╱T╱ // 0x2a1 @0x30
0x0271…02a3 at0031 = EOL // 0x2a2 @0x31
0x0271…02a3 }
0x02a3…02b9 9010 0200 CALL "P641210:REGN"
0x02a3…02b9 LineComalBin {
0x02a3…02b9 ptr = 0x9010 // 0x2a3 @0x0
0x02a3…02b9 lno = 0x00c8 // 0x2a5 @0x2
0x02a3…02b9 at0004 = ╱ad0d90╱ CALL ╱ // 0x2a7 @0x4
0x02a3…02b9 at0007 = ╱22╱"╱ // 0x2aa @0x7
0x02a3…02b9 at0008 = ╱50╱P╱ // 0x2ab @0x8
0x02a3…02b9 at0009 = ╱36╱6╱ // 0x2ac @0x9
0x02a3…02b9 at000a = ╱34╱4╱ // 0x2ad @0xa
0x02a3…02b9 at000b = ╱31╱1╱ // 0x2ae @0xb
0x02a3…02b9 at000c = ╱32╱2╱ // 0x2af @0xc
0x02a3…02b9 at000d = ╱31╱1╱ // 0x2b0 @0xd
0x02a3…02b9 at000e = ╱30╱0╱ // 0x2b1 @0xe
0x02a3…02b9 at000f = ╱3a╱:╱ // 0x2b2 @0xf
0x02a3…02b9 at0010 = ╱52╱R╱ // 0x2b3 @0x10
0x02a3…02b9 at0011 = ╱45╱E╱ // 0x2b4 @0x11
0x02a3…02b9 at0012 = ╱47╱G╱ // 0x2b5 @0x12
0x02a3…02b9 at0013 = ╱4e╱N╱ // 0x2b6 @0x13
0x02a3…02b9 at0014 = ╱22╱"╱ // 0x2b7 @0x14
0x02a3…02b9 at0015 = EOL // 0x2b8 @0x15
0x02a3…02b9 }
0x02b9…02c6 901d 0210 ES$=RES$
0x02b9…02c6 LineComalBin {
0x02b9…02c6 ptr = 0x901d // 0x2b9 @0x0
0x02b9…02c6 lno = 0x00d2 // 0x2bb @0x2
0x02b9…02c6 at0004 = ╱45╱E╱ // 0x2bd @0x4
0x02b9…02c6 at0005 = ╱53╱S╱ // 0x2be @0x5
0x02b9…02c6 at0006 = ╱ef╱$╱ // 0x2bf @0x6
0x02b9…02c6 at0007 = ╱dc╱=╱ // 0x2c0 @0x7
0x02b9…02c6 at0008 = ╱52╱R╱ // 0x2c1 @0x8
0x02b9…02c6 at0009 = ╱45╱E╱ // 0x2c2 @0x9
0x02b9…02c6 at000a = ╱53╱S╱ // 0x2c3 @0xa
0x02b9…02c6 at000b = ╱ef╱$╱ // 0x2c4 @0xb
0x02b9…02c6 at000c = EOL // 0x2c5 @0xc
0x02b9…02c6 }
0x02c6…02d2 9029 0220 IF FLAG THEN STOP
0x02c6…02d2 LineComalBin {
0x02c6…02d2 ptr = 0x9029 // 0x2c6 @0x0
0x02c6…02d2 lno = 0x00dc // 0x2c8 @0x2
0x02c6…02d2 at0004 = ╱82╱ IF ╱ // 0x2ca @0x4
0x02c6…02d2 at0005 = ╱46╱F╱ // 0x2cb @0x5
0x02c6…02d2 at0006 = ╱4c╱L╱ // 0x2cc @0x6
0x02c6…02d2 at0007 = ╱41╱A╱ // 0x2cd @0x7
0x02c6…02d2 at0008 = ╱47╱G╱ // 0x2ce @0x8
0x02c6…02d2 at0009 = ╱b6╱ THEN ╱ // 0x2cf @0x9
0x02c6…02d2 at000a = ╱8d╱ STOP ╱ // 0x2d0 @0xa
0x02c6…02d2 at000b = EOL // 0x2d1 @0xb
0x02c6…02d2 }
0x02d2…02d8 902f 0230 ENDPROC
0x02d2…02d8 LineComalBin {
0x02d2…02d8 ptr = 0x902f // 0x2d2 @0x0
0x02d2…02d8 lno = 0x00e6 // 0x2d4 @0x2
0x02d2…02d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x2d6 @0x4
0x02d2…02d8 at0005 = EOL // 0x2d7 @0x5
0x02d2…02d8 }
0x02d8…02ef 9046 0240 PROC FEJL(NR1,NR2,NR3)
0x02d8…02ef LineComalBin {
0x02d8…02ef ptr = 0x9046 // 0x2d8 @0x0
0x02d8…02ef lno = 0x00f0 // 0x2da @0x2
0x02d8…02ef at0004 = ╱9e╱ PROC ╱ // 0x2dc @0x4
0x02d8…02ef at0005 = ╱46╱F╱ // 0x2dd @0x5
0x02d8…02ef at0006 = ╱45╱E╱ // 0x2de @0x6
0x02d8…02ef at0007 = ╱4a╱J╱ // 0x2df @0x7
0x02d8…02ef at0008 = ╱4c╱L╱ // 0x2e0 @0x8
0x02d8…02ef at0009 = ╱ed╱(╱ // 0x2e1 @0x9
0x02d8…02ef at000a = ╱4e╱N╱ // 0x2e2 @0xa
0x02d8…02ef at000b = ╱52╱R╱ // 0x2e3 @0xb
0x02d8…02ef at000c = ╱31╱1╱ // 0x2e4 @0xc
0x02d8…02ef at000d = ╱ec╱,╱ // 0x2e5 @0xd
0x02d8…02ef at000e = ╱4e╱N╱ // 0x2e6 @0xe
0x02d8…02ef at000f = ╱52╱R╱ // 0x2e7 @0xf
0x02d8…02ef at0010 = ╱32╱2╱ // 0x2e8 @0x10
0x02d8…02ef at0011 = ╱ec╱,╱ // 0x2e9 @0x11
0x02d8…02ef at0012 = ╱4e╱N╱ // 0x2ea @0x12
0x02d8…02ef at0013 = ╱52╱R╱ // 0x2eb @0x13
0x02d8…02ef at0014 = ╱33╱3╱ // 0x2ec @0x14
0x02d8…02ef at0015 = ╱ee╱)╱ // 0x2ed @0x15
0x02d8…02ef at0016 = EOL // 0x2ee @0x16
0x02d8…02ef }
0x02ef…02ff 9056 0250 IF STATUS(NR3$)<>B THEN
0x02ef…02ff LineComalBin {
0x02ef…02ff ptr = 0x9056 // 0x2ef @0x0
0x02ef…02ff lno = 0x00fa // 0x2f1 @0x2
0x02ef…02ff at0004 = ╱9c╱ IF ╱ // 0x2f3 @0x4
0x02ef…02ff at0005 = ╱ce╱STATUS╱ // 0x2f4 @0x5
0x02ef…02ff at0006 = ╱ed╱(╱ // 0x2f5 @0x6
0x02ef…02ff at0007 = ╱4e╱N╱ // 0x2f6 @0x7
0x02ef…02ff at0008 = ╱52╱R╱ // 0x2f7 @0x8
0x02ef…02ff at0009 = ╱33╱3╱ // 0x2f8 @0x9
0x02ef…02ff at000a = ╱ef╱$╱ // 0x2f9 @0xa
0x02ef…02ff at000b = ╱ee╱)╱ // 0x2fa @0xb
0x02ef…02ff at000c = ╱e1╱<>╱ // 0x2fb @0xc
0x02ef…02ff at000d = ╱42╱B╱ // 0x2fc @0xd
0x02ef…02ff at000e = ╱b6╱ THEN ╱ // 0x2fd @0xe
0x02ef…02ff at000f = EOL // 0x2fe @0xf
0x02ef…02ff }
0x02ff…0319 9070 0260 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x02ff…0319 LineComalBin {
0x02ff…0319 ptr = 0x9070 // 0x2ff @0x0
0x02ff…0319 lno = 0x0104 // 0x301 @0x2
0x02ff…0319 at0004 = ╱92╱ PRINT ╱ // 0x303 @0x4
0x02ff…0319 at0005 = ╱ce╱STATUS╱ // 0x304 @0x5
0x02ff…0319 at0006 = ╱ed╱(╱ // 0x305 @0x6
0x02ff…0319 at0007 = ╱4e╱N╱ // 0x306 @0x7
0x02ff…0319 at0008 = ╱52╱R╱ // 0x307 @0x8
0x02ff…0319 at0009 = ╱33╱3╱ // 0x308 @0x9
0x02ff…0319 at000a = ╱ef╱$╱ // 0x309 @0xa
0x02ff…0319 at000b = ╱ee╱)╱ // 0x30a @0xb
0x02ff…0319 at000c = ╱ec╱,╱ // 0x30b @0xc
0x02ff…0319 at000d = ╱4e╱N╱ // 0x30c @0xd
0x02ff…0319 at000e = ╱52╱R╱ // 0x30d @0xe
0x02ff…0319 at000f = ╱31╱1╱ // 0x30e @0xf
0x02ff…0319 at0010 = ╱ec╱,╱ // 0x30f @0x10
0x02ff…0319 at0011 = ╱4e╱N╱ // 0x310 @0x11
0x02ff…0319 at0012 = ╱52╱R╱ // 0x311 @0x12
0x02ff…0319 at0013 = ╱32╱2╱ // 0x312 @0x13
0x02ff…0319 at0014 = ╱ec╱,╱ // 0x313 @0x14
0x02ff…0319 at0015 = ╱4e╱N╱ // 0x314 @0x15
0x02ff…0319 at0016 = ╱52╱R╱ // 0x315 @0x16
0x02ff…0319 at0017 = ╱33╱3╱ // 0x316 @0x17
0x02ff…0319 at0018 = ╱ef╱$╱ // 0x317 @0x18
0x02ff…0319 at0019 = EOL // 0x318 @0x19
0x02ff…0319 }
0x0319…031f 9076 0270 STOP
0x0319…031f LineComalBin {
0x0319…031f ptr = 0x9076 // 0x319 @0x0
0x0319…031f lno = 0x010e // 0x31b @0x2
0x0319…031f at0004 = ╱8d╱ STOP ╱ // 0x31d @0x4
0x0319…031f at0005 = EOL // 0x31e @0x5
0x0319…031f }
0x031f…0325 907c 0280 ENDIF
0x031f…0325 LineComalBin {
0x031f…0325 ptr = 0x907c // 0x31f @0x0
0x031f…0325 lno = 0x0118 // 0x321 @0x2
0x031f…0325 at0004 = ╱9b╱ ENDIF ╱ // 0x323 @0x4
0x031f…0325 at0005 = EOL // 0x324 @0x5
0x031f…0325 }
0x0325…032b 9082 0290 ENDPROC
0x0325…032b LineComalBin {
0x0325…032b ptr = 0x9082 // 0x325 @0x0
0x0325…032b lno = 0x0122 // 0x327 @0x2
0x0325…032b at0004 = ╱9f╱ ENDPROC ╱ // 0x329 @0x4
0x0325…032b at0005 = EOL // 0x32a @0x5
0x0325…032b }
0x032b…0345 909c 0300 PROC INDTAB(T,MANTAL,K10)
0x032b…0345 LineComalBin {
0x032b…0345 ptr = 0x909c // 0x32b @0x0
0x032b…0345 lno = 0x012c // 0x32d @0x2
0x032b…0345 at0004 = ╱9e╱ PROC ╱ // 0x32f @0x4
0x032b…0345 at0005 = ╱49╱I╱ // 0x330 @0x5
0x032b…0345 at0006 = ╱4e╱N╱ // 0x331 @0x6
0x032b…0345 at0007 = ╱44╱D╱ // 0x332 @0x7
0x032b…0345 at0008 = ╱54╱T╱ // 0x333 @0x8
0x032b…0345 at0009 = ╱41╱A╱ // 0x334 @0x9
0x032b…0345 at000a = ╱42╱B╱ // 0x335 @0xa
0x032b…0345 at000b = ╱ed╱(╱ // 0x336 @0xb
0x032b…0345 at000c = ╱54╱T╱ // 0x337 @0xc
0x032b…0345 at000d = ╱ec╱,╱ // 0x338 @0xd
0x032b…0345 at000e = ╱4d╱M╱ // 0x339 @0xe
0x032b…0345 at000f = ╱41╱A╱ // 0x33a @0xf
0x032b…0345 at0010 = ╱4e╱N╱ // 0x33b @0x10
0x032b…0345 at0011 = ╱54╱T╱ // 0x33c @0x11
0x032b…0345 at0012 = ╱41╱A╱ // 0x33d @0x12
0x032b…0345 at0013 = ╱4c╱L╱ // 0x33e @0x13
0x032b…0345 at0014 = ╱ec╱,╱ // 0x33f @0x14
0x032b…0345 at0015 = ╱4b╱K╱ // 0x340 @0x15
0x032b…0345 at0016 = ╱31╱1╱ // 0x341 @0x16
0x032b…0345 at0017 = ╱30╱0╱ // 0x342 @0x17
0x032b…0345 at0018 = ╱ee╱)╱ // 0x343 @0x18
0x032b…0345 at0019 = EOL // 0x344 @0x19
0x032b…0345 }
0x0345…035c 90b3 0310 J=MANTAL DIV 32+E
0x0345…035c LineComalBin {
0x0345…035c ptr = 0x90b3 // 0x345 @0x0
0x0345…035c lno = 0x0136 // 0x347 @0x2
0x0345…035c at0004 = ╱4a╱J╱ // 0x349 @0x4
0x0345…035c at0005 = ╱dc╱=╱ // 0x34a @0x5
0x0345…035c at0006 = ╱4d╱M╱ // 0x34b @0x6
0x0345…035c at0007 = ╱41╱A╱ // 0x34c @0x7
0x0345…035c at0008 = ╱4e╱N╱ // 0x34d @0x8
0x0345…035c at0009 = ╱54╱T╱ // 0x34e @0x9
0x0345…035c at000a = ╱41╱A╱ // 0x34f @0xa
0x0345…035c at000b = ╱4c╱L╱ // 0x350 @0xb
0x0345…035c at000c = ╱e7╱ DIV ╱ // 0x351 @0xc
0x0345…035c at000d = ╱33╱3╱ // 0x352 @0xd
0x0345…035c at000e = ╱32╱2╱ // 0x353 @0xe
0x0345…035c at000f = ╱fe00008006╱ // 0x354 @0xf
0x0345…035c at0014 = ╱e2╱+╱ // 0x359 @0x14
0x0345…035c at0015 = ╱45╱E╱ // 0x35a @0x15
0x0345…035c at0016 = EOL // 0x35b @0x16
0x0345…035c }
0x035c…0377 90ce 0320 FOR I=J TO MANTAL DIV 4+J-E
0x035c…0377 LineComalBin {
0x035c…0377 ptr = 0x90ce // 0x35c @0x0
0x035c…0377 lno = 0x0140 // 0x35e @0x2
0x035c…0377 at0004 = ╱83╱ FOR ╱ // 0x360 @0x4
0x035c…0377 at0005 = ╱49╱I╱ // 0x361 @0x5
0x035c…0377 at0006 = ╱dc╱=╱ // 0x362 @0x6
0x035c…0377 at0007 = ╱4a╱J╱ // 0x363 @0x7
0x035c…0377 at0008 = ╱b7╱ TO ╱ // 0x364 @0x8
0x035c…0377 at0009 = ╱4d╱M╱ // 0x365 @0x9
0x035c…0377 at000a = ╱41╱A╱ // 0x366 @0xa
0x035c…0377 at000b = ╱4e╱N╱ // 0x367 @0xb
0x035c…0377 at000c = ╱54╱T╱ // 0x368 @0xc
0x035c…0377 at000d = ╱41╱A╱ // 0x369 @0xd
0x035c…0377 at000e = ╱4c╱L╱ // 0x36a @0xe
0x035c…0377 at000f = ╱e7╱ DIV ╱ // 0x36b @0xf
0x035c…0377 at0010 = ╱34╱4╱ // 0x36c @0x10
0x035c…0377 at0011 = ╱fe00008003╱ // 0x36d @0x11
0x035c…0377 at0016 = ╱e2╱+╱ // 0x372 @0x16
0x035c…0377 at0017 = ╱4a╱J╱ // 0x373 @0x17
0x035c…0377 at0018 = ╱e3╱-╱ // 0x374 @0x18
0x035c…0377 at0019 = ╱45╱E╱ // 0x375 @0x19
0x035c…0377 at001a = EOL // 0x376 @0x1a
0x035c…0377 }
0x0377…03a1 90f8 0330 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V
0x0377…03a1 LineComalBin {
0x0377…03a1 ptr = 0x90f8 // 0x377 @0x0
0x0377…03a1 lno = 0x014a // 0x379 @0x2
0x0377…03a1 at0004 = ╱48╱H╱ // 0x37b @0x4
0x0377…03a1 at0005 = ╱dc╱=╱ // 0x37c @0x5
0x0377…03a1 at0006 = ╱ed╱(╱ // 0x37d @0x6
0x0377…03a1 at0007 = ╱49╱I╱ // 0x37e @0x7
0x0377…03a1 at0008 = ╱e3╱-╱ // 0x37f @0x8
0x0377…03a1 at0009 = ╱4a╱J╱ // 0x380 @0x9
0x0377…03a1 at000a = ╱ee╱)╱ // 0x381 @0xa
0x0377…03a1 at000b = ╱e4╱*╱ // 0x382 @0xb
0x0377…03a1 at000c = ╱34╱4╱ // 0x383 @0xc
0x0377…03a1 at000d = ╱fe00008003╱ // 0x384 @0xd
0x0377…03a1 at0012 = ╱e2╱+╱ // 0x389 @0x12
0x0377…03a1 at0013 = ╱45╱E╱ // 0x38a @0x13
0x0377…03a1 at0014 = ╱eb╱;╱ // 0x38b @0x14
0x0377…03a1 at0015 = ╱4a╱J╱ // 0x38c @0x15
0x0377…03a1 at0016 = ╱32╱2╱ // 0x38d @0x16
0x0377…03a1 at0017 = ╱dc╱=╱ // 0x38e @0x17
0x0377…03a1 at0018 = ╱48╱H╱ // 0x38f @0x18
0x0377…03a1 at0019 = ╱e2╱+╱ // 0x390 @0x19
0x0377…03a1 at001a = ╱45╱E╱ // 0x391 @0x1a
0x0377…03a1 at001b = ╱eb╱;╱ // 0x392 @0x1b
0x0377…03a1 at001c = ╱4a╱J╱ // 0x393 @0x1c
0x0377…03a1 at001d = ╱33╱3╱ // 0x394 @0x1d
0x0377…03a1 at001e = ╱dc╱=╱ // 0x395 @0x1e
0x0377…03a1 at001f = ╱48╱H╱ // 0x396 @0x1f
0x0377…03a1 at0020 = ╱e2╱+╱ // 0x397 @0x20
0x0377…03a1 at0021 = ╱47╱G╱ // 0x398 @0x21
0x0377…03a1 at0022 = ╱eb╱;╱ // 0x399 @0x22
0x0377…03a1 at0023 = ╱4a╱J╱ // 0x39a @0x23
0x0377…03a1 at0024 = ╱34╱4╱ // 0x39b @0x24
0x0377…03a1 at0025 = ╱dc╱=╱ // 0x39c @0x25
0x0377…03a1 at0026 = ╱48╱H╱ // 0x39d @0x26
0x0377…03a1 at0027 = ╱e2╱+╱ // 0x39e @0x27
0x0377…03a1 at0028 = ╱56╱V╱ // 0x39f @0x28
0x0377…03a1 at0029 = EOL // 0x3a0 @0x29
0x0377…03a1 }
0x03a1…03eb 9142 0340 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)
0x03a1…03eb LineComalBin {
0x03a1…03eb ptr = 0x9142 // 0x3a1 @0x0
0x03a1…03eb lno = 0x0154 // 0x3a3 @0x2
0x03a1…03eb at0004 = ╱a9╱ GET ╱ // 0x3a5 @0x4
0x03a1…03eb at0005 = ╱4b╱K╱ // 0x3a6 @0x5
0x03a1…03eb at0006 = ╱31╱1╱ // 0x3a7 @0x6
0x03a1…03eb at0007 = ╱30╱0╱ // 0x3a8 @0x7
0x03a1…03eb at0008 = ╱ef╱$╱ // 0x3a9 @0x8
0x03a1…03eb at0009 = ╱ec╱,╱ // 0x3aa @0x9
0x03a1…03eb at000a = ╱49╱I╱ // 0x3ab @0xa
0x03a1…03eb at000b = ╱f0╱:╱ // 0x3ac @0xb
0x03a1…03eb at000c = ╱54╱T╱ // 0x3ad @0xc
0x03a1…03eb at000d = ╱ed╱(╱ // 0x3ae @0xd
0x03a1…03eb at000e = ╱48╱H╱ // 0x3af @0xe
0x03a1…03eb at000f = ╱ec╱,╱ // 0x3b0 @0xf
0x03a1…03eb at0010 = ╱45╱E╱ // 0x3b1 @0x10
0x03a1…03eb at0011 = ╱ee╱)╱ // 0x3b2 @0x11
0x03a1…03eb at0012 = ╱ec╱,╱ // 0x3b3 @0x12
0x03a1…03eb at0013 = ╱54╱T╱ // 0x3b4 @0x13
0x03a1…03eb at0014 = ╱ed╱(╱ // 0x3b5 @0x14
0x03a1…03eb at0015 = ╱48╱H╱ // 0x3b6 @0x15
0x03a1…03eb at0016 = ╱ec╱,╱ // 0x3b7 @0x16
0x03a1…03eb at0017 = ╱47╱G╱ // 0x3b8 @0x17
0x03a1…03eb at0018 = ╱ee╱)╱ // 0x3b9 @0x18
0x03a1…03eb at0019 = ╱ec╱,╱ // 0x3ba @0x19
0x03a1…03eb at001a = ╱54╱T╱ // 0x3bb @0x1a
0x03a1…03eb at001b = ╱ed╱(╱ // 0x3bc @0x1b
0x03a1…03eb at001c = ╱4a╱J╱ // 0x3bd @0x1c
0x03a1…03eb at001d = ╱32╱2╱ // 0x3be @0x1d
0x03a1…03eb at001e = ╱ec╱,╱ // 0x3bf @0x1e
0x03a1…03eb at001f = ╱45╱E╱ // 0x3c0 @0x1f
0x03a1…03eb at0020 = ╱ee╱)╱ // 0x3c1 @0x20
0x03a1…03eb at0021 = ╱ec╱,╱ // 0x3c2 @0x21
0x03a1…03eb at0022 = ╱54╱T╱ // 0x3c3 @0x22
0x03a1…03eb at0023 = ╱ed╱(╱ // 0x3c4 @0x23
0x03a1…03eb at0024 = ╱4a╱J╱ // 0x3c5 @0x24
0x03a1…03eb at0025 = ╱32╱2╱ // 0x3c6 @0x25
0x03a1…03eb at0026 = ╱ec╱,╱ // 0x3c7 @0x26
0x03a1…03eb at0027 = ╱47╱G╱ // 0x3c8 @0x27
0x03a1…03eb at0028 = ╱ee╱)╱ // 0x3c9 @0x28
0x03a1…03eb at0029 = ╱ec╱,╱ // 0x3ca @0x29
0x03a1…03eb at002a = ╱54╱T╱ // 0x3cb @0x2a
0x03a1…03eb at002b = ╱ed╱(╱ // 0x3cc @0x2b
0x03a1…03eb at002c = ╱4a╱J╱ // 0x3cd @0x2c
0x03a1…03eb at002d = ╱33╱3╱ // 0x3ce @0x2d
0x03a1…03eb at002e = ╱ec╱,╱ // 0x3cf @0x2e
0x03a1…03eb at002f = ╱45╱E╱ // 0x3d0 @0x2f
0x03a1…03eb at0030 = ╱ee╱)╱ // 0x3d1 @0x30
0x03a1…03eb at0031 = ╱ec╱,╱ // 0x3d2 @0x31
0x03a1…03eb at0032 = ╱54╱T╱ // 0x3d3 @0x32
0x03a1…03eb at0033 = ╱ed╱(╱ // 0x3d4 @0x33
0x03a1…03eb at0034 = ╱4a╱J╱ // 0x3d5 @0x34
0x03a1…03eb at0035 = ╱33╱3╱ // 0x3d6 @0x35
0x03a1…03eb at0036 = ╱ec╱,╱ // 0x3d7 @0x36
0x03a1…03eb at0037 = ╱47╱G╱ // 0x3d8 @0x37
0x03a1…03eb at0038 = ╱ee╱)╱ // 0x3d9 @0x38
0x03a1…03eb at0039 = ╱ec╱,╱ // 0x3da @0x39
0x03a1…03eb at003a = ╱54╱T╱ // 0x3db @0x3a
0x03a1…03eb at003b = ╱ed╱(╱ // 0x3dc @0x3b
0x03a1…03eb at003c = ╱4a╱J╱ // 0x3dd @0x3c
0x03a1…03eb at003d = ╱34╱4╱ // 0x3de @0x3d
0x03a1…03eb at003e = ╱ec╱,╱ // 0x3df @0x3e
0x03a1…03eb at003f = ╱45╱E╱ // 0x3e0 @0x3f
0x03a1…03eb at0040 = ╱ee╱)╱ // 0x3e1 @0x40
0x03a1…03eb at0041 = ╱ec╱,╱ // 0x3e2 @0x41
0x03a1…03eb at0042 = ╱54╱T╱ // 0x3e3 @0x42
0x03a1…03eb at0043 = ╱ed╱(╱ // 0x3e4 @0x43
0x03a1…03eb at0044 = ╱4a╱J╱ // 0x3e5 @0x44
0x03a1…03eb at0045 = ╱34╱4╱ // 0x3e6 @0x45
0x03a1…03eb at0046 = ╱ec╱,╱ // 0x3e7 @0x46
0x03a1…03eb at0047 = ╱47╱G╱ // 0x3e8 @0x47
0x03a1…03eb at0048 = ╱ee╱)╱ // 0x3e9 @0x48
0x03a1…03eb at0049 = EOL // 0x3ea @0x49
0x03a1…03eb }
0x03eb…03ff 9156 0350 EXEC FEJL(E,E,K10$)
0x03eb…03ff LineComalBin {
0x03eb…03ff ptr = 0x9156 // 0x3eb @0x0
0x03eb…03ff lno = 0x015e // 0x3ed @0x2
0x03eb…03ff at0004 = ╱9d╱ EXEC ╱ // 0x3ef @0x4
0x03eb…03ff at0005 = ╱46╱F╱ // 0x3f0 @0x5
0x03eb…03ff at0006 = ╱45╱E╱ // 0x3f1 @0x6
0x03eb…03ff at0007 = ╱4a╱J╱ // 0x3f2 @0x7
0x03eb…03ff at0008 = ╱4c╱L╱ // 0x3f3 @0x8
0x03eb…03ff at0009 = ╱ed╱(╱ // 0x3f4 @0x9
0x03eb…03ff at000a = ╱45╱E╱ // 0x3f5 @0xa
0x03eb…03ff at000b = ╱ec╱,╱ // 0x3f6 @0xb
0x03eb…03ff at000c = ╱45╱E╱ // 0x3f7 @0xc
0x03eb…03ff at000d = ╱ec╱,╱ // 0x3f8 @0xd
0x03eb…03ff at000e = ╱4b╱K╱ // 0x3f9 @0xe
0x03eb…03ff at000f = ╱31╱1╱ // 0x3fa @0xf
0x03eb…03ff at0010 = ╱30╱0╱ // 0x3fb @0x10
0x03eb…03ff at0011 = ╱ef╱$╱ // 0x3fc @0x11
0x03eb…03ff at0012 = ╱ee╱)╱ // 0x3fd @0x12
0x03eb…03ff at0013 = EOL // 0x3fe @0x13
0x03eb…03ff }
0x03ff…0406 915d 0360 NEXT I
0x03ff…0406 LineComalBin {
0x03ff…0406 ptr = 0x915d // 0x3ff @0x0
0x03ff…0406 lno = 0x0168 // 0x401 @0x2
0x03ff…0406 at0004 = ╱84╱ NEXT ╱ // 0x403 @0x4
0x03ff…0406 at0005 = ╱49╱I╱ // 0x404 @0x5
0x03ff…0406 at0006 = EOL // 0x405 @0x6
0x03ff…0406 }
0x0406…040c 9163 0370 ENDPROC
0x0406…040c LineComalBin {
0x0406…040c ptr = 0x9163 // 0x406 @0x0
0x0406…040c lno = 0x0172 // 0x408 @0x2
0x0406…040c at0004 = ╱9f╱ ENDPROC ╱ // 0x40a @0x4
0x0406…040c at0005 = EOL // 0x40b @0x5
0x0406…040c }
0x040c…0425 917c 0380 PROC UDTAB(U,MANTAL1,K9)
0x040c…0425 LineComalBin {
0x040c…0425 ptr = 0x917c // 0x40c @0x0
0x040c…0425 lno = 0x017c // 0x40e @0x2
0x040c…0425 at0004 = ╱9e╱ PROC ╱ // 0x410 @0x4
0x040c…0425 at0005 = ╱55╱U╱ // 0x411 @0x5
0x040c…0425 at0006 = ╱44╱D╱ // 0x412 @0x6
0x040c…0425 at0007 = ╱54╱T╱ // 0x413 @0x7
0x040c…0425 at0008 = ╱41╱A╱ // 0x414 @0x8
0x040c…0425 at0009 = ╱42╱B╱ // 0x415 @0x9
0x040c…0425 at000a = ╱ed╱(╱ // 0x416 @0xa
0x040c…0425 at000b = ╱55╱U╱ // 0x417 @0xb
0x040c…0425 at000c = ╱ec╱,╱ // 0x418 @0xc
0x040c…0425 at000d = ╱4d╱M╱ // 0x419 @0xd
0x040c…0425 at000e = ╱41╱A╱ // 0x41a @0xe
0x040c…0425 at000f = ╱4e╱N╱ // 0x41b @0xf
0x040c…0425 at0010 = ╱54╱T╱ // 0x41c @0x10
0x040c…0425 at0011 = ╱41╱A╱ // 0x41d @0x11
0x040c…0425 at0012 = ╱4c╱L╱ // 0x41e @0x12
0x040c…0425 at0013 = ╱31╱1╱ // 0x41f @0x13
0x040c…0425 at0014 = ╱ec╱,╱ // 0x420 @0x14
0x040c…0425 at0015 = ╱4b╱K╱ // 0x421 @0x15
0x040c…0425 at0016 = ╱39╱9╱ // 0x422 @0x16
0x040c…0425 at0017 = ╱ee╱)╱ // 0x423 @0x17
0x040c…0425 at0018 = EOL // 0x424 @0x18
0x040c…0425 }
0x0425…043d 9194 0390 J=MANTAL1 DIV 32+E
0x0425…043d LineComalBin {
0x0425…043d ptr = 0x9194 // 0x425 @0x0
0x0425…043d lno = 0x0186 // 0x427 @0x2
0x0425…043d at0004 = ╱4a╱J╱ // 0x429 @0x4
0x0425…043d at0005 = ╱dc╱=╱ // 0x42a @0x5
0x0425…043d at0006 = ╱4d╱M╱ // 0x42b @0x6
0x0425…043d at0007 = ╱41╱A╱ // 0x42c @0x7
0x0425…043d at0008 = ╱4e╱N╱ // 0x42d @0x8
0x0425…043d at0009 = ╱54╱T╱ // 0x42e @0x9
0x0425…043d at000a = ╱41╱A╱ // 0x42f @0xa
0x0425…043d at000b = ╱4c╱L╱ // 0x430 @0xb
0x0425…043d at000c = ╱31╱1╱ // 0x431 @0xc
0x0425…043d at000d = ╱e7╱ DIV ╱ // 0x432 @0xd
0x0425…043d at000e = ╱33╱3╱ // 0x433 @0xe
0x0425…043d at000f = ╱32╱2╱ // 0x434 @0xf
0x0425…043d at0010 = ╱fe00008006╱ // 0x435 @0x10
0x0425…043d at0015 = ╱e2╱+╱ // 0x43a @0x15
0x0425…043d at0016 = ╱45╱E╱ // 0x43b @0x16
0x0425…043d at0017 = EOL // 0x43c @0x17
0x0425…043d }
0x043d…044a 91a1 0400 FOR I=E TO J-E
0x043d…044a LineComalBin {
0x043d…044a ptr = 0x91a1 // 0x43d @0x0
0x043d…044a lno = 0x0190 // 0x43f @0x2
0x043d…044a at0004 = ╱83╱ FOR ╱ // 0x441 @0x4
0x043d…044a at0005 = ╱49╱I╱ // 0x442 @0x5
0x043d…044a at0006 = ╱dc╱=╱ // 0x443 @0x6
0x043d…044a at0007 = ╱45╱E╱ // 0x444 @0x7
0x043d…044a at0008 = ╱b7╱ TO ╱ // 0x445 @0x8
0x043d…044a at0009 = ╱4a╱J╱ // 0x446 @0x9
0x043d…044a at000a = ╱e3╱-╱ // 0x447 @0xa
0x043d…044a at000b = ╱45╱E╱ // 0x448 @0xb
0x043d…044a at000c = EOL // 0x449 @0xc
0x043d…044a }
0x044a…04b9 9210 0410 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
0x044a…04b9 LineComalBin {
0x044a…04b9 ptr = 0x9210 // 0x44a @0x0
0x044a…04b9 lno = 0x019a // 0x44c @0x2
0x044a…04b9 at0004 = ╱48╱H╱ // 0x44e @0x4
0x044a…04b9 at0005 = ╱dc╱=╱ // 0x44f @0x5
0x044a…04b9 at0006 = ╱ed╱(╱ // 0x450 @0x6
0x044a…04b9 at0007 = ╱49╱I╱ // 0x451 @0x7
0x044a…04b9 at0008 = ╱e3╱-╱ // 0x452 @0x8
0x044a…04b9 at0009 = ╱45╱E╱ // 0x453 @0x9
0x044a…04b9 at000a = ╱ee╱)╱ // 0x454 @0xa
0x044a…04b9 at000b = ╱e4╱*╱ // 0x455 @0xb
0x044a…04b9 at000c = ╱33╱3╱ // 0x456 @0xc
0x044a…04b9 at000d = ╱32╱2╱ // 0x457 @0xd
0x044a…04b9 at000e = ╱fe00008006╱ // 0x458 @0xe
0x044a…04b9 at0013 = ╱e2╱+╱ // 0x45d @0x13
0x044a…04b9 at0014 = ╱45╱E╱ // 0x45e @0x14
0x044a…04b9 at0015 = ╱eb╱;╱ // 0x45f @0x15
0x044a…04b9 at0016 = ╱4a╱J╱ // 0x460 @0x16
0x044a…04b9 at0017 = ╱31╱1╱ // 0x461 @0x17
0x044a…04b9 at0018 = ╱dc╱=╱ // 0x462 @0x18
0x044a…04b9 at0019 = ╱48╱H╱ // 0x463 @0x19
0x044a…04b9 at001a = ╱e2╱+╱ // 0x464 @0x1a
0x044a…04b9 at001b = ╱34╱4╱ // 0x465 @0x1b
0x044a…04b9 at001c = ╱fe00008003╱ // 0x466 @0x1c
0x044a…04b9 at0021 = ╱eb╱;╱ // 0x46b @0x21
0x044a…04b9 at0022 = ╱4a╱J╱ // 0x46c @0x22
0x044a…04b9 at0023 = ╱32╱2╱ // 0x46d @0x23
0x044a…04b9 at0024 = ╱dc╱=╱ // 0x46e @0x24
0x044a…04b9 at0025 = ╱48╱H╱ // 0x46f @0x25
0x044a…04b9 at0026 = ╱e2╱+╱ // 0x470 @0x26
0x044a…04b9 at0027 = ╱38╱8╱ // 0x471 @0x27
0x044a…04b9 at0028 = ╱fe00008004╱ // 0x472 @0x28
0x044a…04b9 at002d = ╱eb╱;╱ // 0x477 @0x2d
0x044a…04b9 at002e = ╱4a╱J╱ // 0x478 @0x2e
0x044a…04b9 at002f = ╱33╱3╱ // 0x479 @0x2f
0x044a…04b9 at0030 = ╱dc╱=╱ // 0x47a @0x30
0x044a…04b9 at0031 = ╱48╱H╱ // 0x47b @0x31
0x044a…04b9 at0032 = ╱e2╱+╱ // 0x47c @0x32
0x044a…04b9 at0033 = ╱31╱1╱ // 0x47d @0x33
0x044a…04b9 at0034 = ╱32╱2╱ // 0x47e @0x34
0x044a…04b9 at0035 = ╱fe0000c004╱ // 0x47f @0x35
0x044a…04b9 at003a = ╱eb╱;╱ // 0x484 @0x3a
0x044a…04b9 at003b = ╱4a╱J╱ // 0x485 @0x3b
0x044a…04b9 at003c = ╱34╱4╱ // 0x486 @0x3c
0x044a…04b9 at003d = ╱dc╱=╱ // 0x487 @0x3d
0x044a…04b9 at003e = ╱48╱H╱ // 0x488 @0x3e
0x044a…04b9 at003f = ╱e2╱+╱ // 0x489 @0x3f
0x044a…04b9 at0040 = ╱31╱1╱ // 0x48a @0x40
0x044a…04b9 at0041 = ╱36╱6╱ // 0x48b @0x41
0x044a…04b9 at0042 = ╱fe00008005╱ // 0x48c @0x42
0x044a…04b9 at0047 = ╱eb╱;╱ // 0x491 @0x47
0x044a…04b9 at0048 = ╱4a╱J╱ // 0x492 @0x48
0x044a…04b9 at0049 = ╱35╱5╱ // 0x493 @0x49
0x044a…04b9 at004a = ╱dc╱=╱ // 0x494 @0x4a
0x044a…04b9 at004b = ╱48╱H╱ // 0x495 @0x4b
0x044a…04b9 at004c = ╱e2╱+╱ // 0x496 @0x4c
0x044a…04b9 at004d = ╱32╱2╱ // 0x497 @0x4d
0x044a…04b9 at004e = ╱30╱0╱ // 0x498 @0x4e
0x044a…04b9 at004f = ╱fe0000a005╱ // 0x499 @0x4f
0x044a…04b9 at0054 = ╱eb╱;╱ // 0x49e @0x54
0x044a…04b9 at0055 = ╱4a╱J╱ // 0x49f @0x55
0x044a…04b9 at0056 = ╱36╱6╱ // 0x4a0 @0x56
0x044a…04b9 at0057 = ╱dc╱=╱ // 0x4a1 @0x57
0x044a…04b9 at0058 = ╱48╱H╱ // 0x4a2 @0x58
0x044a…04b9 at0059 = ╱e2╱+╱ // 0x4a3 @0x59
0x044a…04b9 at005a = ╱32╱2╱ // 0x4a4 @0x5a
0x044a…04b9 at005b = ╱34╱4╱ // 0x4a5 @0x5b
0x044a…04b9 at005c = ╱fe0000c005╱ // 0x4a6 @0x5c
0x044a…04b9 at0061 = ╱eb╱;╱ // 0x4ab @0x61
0x044a…04b9 at0062 = ╱4a╱J╱ // 0x4ac @0x62
0x044a…04b9 at0063 = ╱37╱7╱ // 0x4ad @0x63
0x044a…04b9 at0064 = ╱dc╱=╱ // 0x4ae @0x64
0x044a…04b9 at0065 = ╱48╱H╱ // 0x4af @0x65
0x044a…04b9 at0066 = ╱e2╱+╱ // 0x4b0 @0x66
0x044a…04b9 at0067 = ╱32╱2╱ // 0x4b1 @0x67
0x044a…04b9 at0068 = ╱38╱8╱ // 0x4b2 @0x68
0x044a…04b9 at0069 = ╱fe0000e005╱ // 0x4b3 @0x69
0x044a…04b9 at006e = EOL // 0x4b8 @0x6e
0x044a…04b9 }
0x04b9…0503 925a 0420 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)
0x04b9…0503 LineComalBin {
0x04b9…0503 ptr = 0x925a // 0x4b9 @0x0
0x04b9…0503 lno = 0x01a4 // 0x4bb @0x2
0x04b9…0503 at0004 = ╱aa╱ PUT ╱ // 0x4bd @0x4
0x04b9…0503 at0005 = ╱4b╱K╱ // 0x4be @0x5
0x04b9…0503 at0006 = ╱39╱9╱ // 0x4bf @0x6
0x04b9…0503 at0007 = ╱ef╱$╱ // 0x4c0 @0x7
0x04b9…0503 at0008 = ╱ec╱,╱ // 0x4c1 @0x8
0x04b9…0503 at0009 = ╱49╱I╱ // 0x4c2 @0x9
0x04b9…0503 at000a = ╱f0╱:╱ // 0x4c3 @0xa
0x04b9…0503 at000b = ╱55╱U╱ // 0x4c4 @0xb
0x04b9…0503 at000c = ╱ed╱(╱ // 0x4c5 @0xc
0x04b9…0503 at000d = ╱48╱H╱ // 0x4c6 @0xd
0x04b9…0503 at000e = ╱ec╱,╱ // 0x4c7 @0xe
0x04b9…0503 at000f = ╱45╱E╱ // 0x4c8 @0xf
0x04b9…0503 at0010 = ╱ee╱)╱ // 0x4c9 @0x10
0x04b9…0503 at0011 = ╱ec╱,╱ // 0x4ca @0x11
0x04b9…0503 at0012 = ╱55╱U╱ // 0x4cb @0x12
0x04b9…0503 at0013 = ╱ed╱(╱ // 0x4cc @0x13
0x04b9…0503 at0014 = ╱4a╱J╱ // 0x4cd @0x14
0x04b9…0503 at0015 = ╱31╱1╱ // 0x4ce @0x15
0x04b9…0503 at0016 = ╱ec╱,╱ // 0x4cf @0x16
0x04b9…0503 at0017 = ╱45╱E╱ // 0x4d0 @0x17
0x04b9…0503 at0018 = ╱ee╱)╱ // 0x4d1 @0x18
0x04b9…0503 at0019 = ╱ec╱,╱ // 0x4d2 @0x19
0x04b9…0503 at001a = ╱55╱U╱ // 0x4d3 @0x1a
0x04b9…0503 at001b = ╱ed╱(╱ // 0x4d4 @0x1b
0x04b9…0503 at001c = ╱4a╱J╱ // 0x4d5 @0x1c
0x04b9…0503 at001d = ╱32╱2╱ // 0x4d6 @0x1d
0x04b9…0503 at001e = ╱ec╱,╱ // 0x4d7 @0x1e
0x04b9…0503 at001f = ╱45╱E╱ // 0x4d8 @0x1f
0x04b9…0503 at0020 = ╱ee╱)╱ // 0x4d9 @0x20
0x04b9…0503 at0021 = ╱ec╱,╱ // 0x4da @0x21
0x04b9…0503 at0022 = ╱55╱U╱ // 0x4db @0x22
0x04b9…0503 at0023 = ╱ed╱(╱ // 0x4dc @0x23
0x04b9…0503 at0024 = ╱4a╱J╱ // 0x4dd @0x24
0x04b9…0503 at0025 = ╱33╱3╱ // 0x4de @0x25
0x04b9…0503 at0026 = ╱ec╱,╱ // 0x4df @0x26
0x04b9…0503 at0027 = ╱45╱E╱ // 0x4e0 @0x27
0x04b9…0503 at0028 = ╱ee╱)╱ // 0x4e1 @0x28
0x04b9…0503 at0029 = ╱ec╱,╱ // 0x4e2 @0x29
0x04b9…0503 at002a = ╱55╱U╱ // 0x4e3 @0x2a
0x04b9…0503 at002b = ╱ed╱(╱ // 0x4e4 @0x2b
0x04b9…0503 at002c = ╱4a╱J╱ // 0x4e5 @0x2c
0x04b9…0503 at002d = ╱34╱4╱ // 0x4e6 @0x2d
0x04b9…0503 at002e = ╱ec╱,╱ // 0x4e7 @0x2e
0x04b9…0503 at002f = ╱45╱E╱ // 0x4e8 @0x2f
0x04b9…0503 at0030 = ╱ee╱)╱ // 0x4e9 @0x30
0x04b9…0503 at0031 = ╱ec╱,╱ // 0x4ea @0x31
0x04b9…0503 at0032 = ╱55╱U╱ // 0x4eb @0x32
0x04b9…0503 at0033 = ╱ed╱(╱ // 0x4ec @0x33
0x04b9…0503 at0034 = ╱4a╱J╱ // 0x4ed @0x34
0x04b9…0503 at0035 = ╱35╱5╱ // 0x4ee @0x35
0x04b9…0503 at0036 = ╱ec╱,╱ // 0x4ef @0x36
0x04b9…0503 at0037 = ╱45╱E╱ // 0x4f0 @0x37
0x04b9…0503 at0038 = ╱ee╱)╱ // 0x4f1 @0x38
0x04b9…0503 at0039 = ╱ec╱,╱ // 0x4f2 @0x39
0x04b9…0503 at003a = ╱55╱U╱ // 0x4f3 @0x3a
0x04b9…0503 at003b = ╱ed╱(╱ // 0x4f4 @0x3b
0x04b9…0503 at003c = ╱4a╱J╱ // 0x4f5 @0x3c
0x04b9…0503 at003d = ╱36╱6╱ // 0x4f6 @0x3d
0x04b9…0503 at003e = ╱ec╱,╱ // 0x4f7 @0x3e
0x04b9…0503 at003f = ╱45╱E╱ // 0x4f8 @0x3f
0x04b9…0503 at0040 = ╱ee╱)╱ // 0x4f9 @0x40
0x04b9…0503 at0041 = ╱ec╱,╱ // 0x4fa @0x41
0x04b9…0503 at0042 = ╱55╱U╱ // 0x4fb @0x42
0x04b9…0503 at0043 = ╱ed╱(╱ // 0x4fc @0x43
0x04b9…0503 at0044 = ╱4a╱J╱ // 0x4fd @0x44
0x04b9…0503 at0045 = ╱37╱7╱ // 0x4fe @0x45
0x04b9…0503 at0046 = ╱ec╱,╱ // 0x4ff @0x46
0x04b9…0503 at0047 = ╱45╱E╱ // 0x500 @0x47
0x04b9…0503 at0048 = ╱ee╱)╱ // 0x501 @0x48
0x04b9…0503 at0049 = EOL // 0x502 @0x49
0x04b9…0503 }
0x0503…0516 926d 0430 EXEC FEJL(G,E,K9$)
0x0503…0516 LineComalBin {
0x0503…0516 ptr = 0x926d // 0x503 @0x0
0x0503…0516 lno = 0x01ae // 0x505 @0x2
0x0503…0516 at0004 = ╱9d╱ EXEC ╱ // 0x507 @0x4
0x0503…0516 at0005 = ╱46╱F╱ // 0x508 @0x5
0x0503…0516 at0006 = ╱45╱E╱ // 0x509 @0x6
0x0503…0516 at0007 = ╱4a╱J╱ // 0x50a @0x7
0x0503…0516 at0008 = ╱4c╱L╱ // 0x50b @0x8
0x0503…0516 at0009 = ╱ed╱(╱ // 0x50c @0x9
0x0503…0516 at000a = ╱47╱G╱ // 0x50d @0xa
0x0503…0516 at000b = ╱ec╱,╱ // 0x50e @0xb
0x0503…0516 at000c = ╱45╱E╱ // 0x50f @0xc
0x0503…0516 at000d = ╱ec╱,╱ // 0x510 @0xd
0x0503…0516 at000e = ╱4b╱K╱ // 0x511 @0xe
0x0503…0516 at000f = ╱39╱9╱ // 0x512 @0xf
0x0503…0516 at0010 = ╱ef╱$╱ // 0x513 @0x10
0x0503…0516 at0011 = ╱ee╱)╱ // 0x514 @0x11
0x0503…0516 at0012 = EOL // 0x515 @0x12
0x0503…0516 }
0x0516…051d 9274 0440 NEXT I
0x0516…051d LineComalBin {
0x0516…051d ptr = 0x9274 // 0x516 @0x0
0x0516…051d lno = 0x01b8 // 0x518 @0x2
0x0516…051d at0004 = ╱84╱ NEXT ╱ // 0x51a @0x4
0x0516…051d at0005 = ╱49╱I╱ // 0x51b @0x5
0x0516…051d at0006 = EOL // 0x51c @0x6
0x0516…051d }
0x051d…0539 (17,) 9290 0450 FOR I=J TO MANTAL1 DIV 4+J-E
0x051d…0539 LineComalBin {
0x051d…0539 ptr = 0x9290 // 0x51d @0x0
0x051d…0539 lno = 0x01c2 // 0x51f @0x2
0x051d…0539 at0004 = ╱83╱ FOR ╱ // 0x521 @0x4
0x051d…0539 at0005 = ╱49╱I╱ // 0x522 @0x5
0x051d…0539 at0006 = ╱dc╱=╱ // 0x523 @0x6
0x051d…0539 at0007 = ╱4a╱J╱ // 0x524 @0x7
0x051d…0539 at0008 = ╱b7╱ TO ╱ // 0x525 @0x8
0x051d…0539 at0009 = ╱4d╱M╱ // 0x526 @0x9
0x051d…0539 at000a = ╱41╱A╱ // 0x527 @0xa
0x051d…0539 at000b = ╱4e╱N╱ // 0x528 @0xb
0x051d…0539 at000c = ╱54╱T╱ // 0x529 @0xc
0x051d…0539 at000d = ╱41╱A╱ // 0x52a @0xd
0x051d…0539 at000e = ╱4c╱L╱ // 0x52b @0xe
0x051d…0539 at000f = ╱31╱1╱ // 0x52c @0xf
0x051d…0539 at0010 = ╱e7╱ DIV ╱ // 0x52d @0x10
0x051d…0539 at0011 = ╱34╱4╱ // 0x52e @0x11
0x051d…0539 at0012 = ╱fe00008003╱ // 0x52f @0x12
0x051d…0539 at0017 = ╱e2╱+╱ // 0x534 @0x17
0x051d…0539 at0018 = ╱4a╱J╱ // 0x535 @0x18
0x051d…0539 at0019 = ╱e3╱-╱ // 0x536 @0x19
0x051d…0539 at001a = ╱45╱E╱ // 0x537 @0x1a
0x051d…0539 at001b = EOL // 0x538 @0x1b
0x051d…0539 }
0x0539…0563 92ba 0460 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V
0x0539…0563 LineComalBin {
0x0539…0563 ptr = 0x92ba // 0x539 @0x0
0x0539…0563 lno = 0x01cc // 0x53b @0x2
0x0539…0563 at0004 = ╱48╱H╱ // 0x53d @0x4
0x0539…0563 at0005 = ╱dc╱=╱ // 0x53e @0x5
0x0539…0563 at0006 = ╱ed╱(╱ // 0x53f @0x6
0x0539…0563 at0007 = ╱49╱I╱ // 0x540 @0x7
0x0539…0563 at0008 = ╱e3╱-╱ // 0x541 @0x8
0x0539…0563 at0009 = ╱4a╱J╱ // 0x542 @0x9
0x0539…0563 at000a = ╱ee╱)╱ // 0x543 @0xa
0x0539…0563 at000b = ╱e4╱*╱ // 0x544 @0xb
0x0539…0563 at000c = ╱34╱4╱ // 0x545 @0xc
0x0539…0563 at000d = ╱fe00008003╱ // 0x546 @0xd
0x0539…0563 at0012 = ╱e2╱+╱ // 0x54b @0x12
0x0539…0563 at0013 = ╱45╱E╱ // 0x54c @0x13
0x0539…0563 at0014 = ╱eb╱;╱ // 0x54d @0x14
0x0539…0563 at0015 = ╱4a╱J╱ // 0x54e @0x15
0x0539…0563 at0016 = ╱31╱1╱ // 0x54f @0x16
0x0539…0563 at0017 = ╱dc╱=╱ // 0x550 @0x17
0x0539…0563 at0018 = ╱48╱H╱ // 0x551 @0x18
0x0539…0563 at0019 = ╱e2╱+╱ // 0x552 @0x19
0x0539…0563 at001a = ╱45╱E╱ // 0x553 @0x1a
0x0539…0563 at001b = ╱eb╱;╱ // 0x554 @0x1b
0x0539…0563 at001c = ╱4a╱J╱ // 0x555 @0x1c
0x0539…0563 at001d = ╱32╱2╱ // 0x556 @0x1d
0x0539…0563 at001e = ╱dc╱=╱ // 0x557 @0x1e
0x0539…0563 at001f = ╱48╱H╱ // 0x558 @0x1f
0x0539…0563 at0020 = ╱e2╱+╱ // 0x559 @0x20
0x0539…0563 at0021 = ╱47╱G╱ // 0x55a @0x21
0x0539…0563 at0022 = ╱eb╱;╱ // 0x55b @0x22
0x0539…0563 at0023 = ╱4a╱J╱ // 0x55c @0x23
0x0539…0563 at0024 = ╱33╱3╱ // 0x55d @0x24
0x0539…0563 at0025 = ╱dc╱=╱ // 0x55e @0x25
0x0539…0563 at0026 = ╱48╱H╱ // 0x55f @0x26
0x0539…0563 at0027 = ╱e2╱+╱ // 0x560 @0x27
0x0539…0563 at0028 = ╱56╱V╱ // 0x561 @0x28
0x0539…0563 at0029 = EOL // 0x562 @0x29
0x0539…0563 }
0x0563…05ac 9303 0470 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)
0x0563…05ac LineComalBin {
0x0563…05ac ptr = 0x9303 // 0x563 @0x0
0x0563…05ac lno = 0x01d6 // 0x565 @0x2
0x0563…05ac at0004 = ╱aa╱ PUT ╱ // 0x567 @0x4
0x0563…05ac at0005 = ╱4b╱K╱ // 0x568 @0x5
0x0563…05ac at0006 = ╱39╱9╱ // 0x569 @0x6
0x0563…05ac at0007 = ╱ef╱$╱ // 0x56a @0x7
0x0563…05ac at0008 = ╱ec╱,╱ // 0x56b @0x8
0x0563…05ac at0009 = ╱49╱I╱ // 0x56c @0x9
0x0563…05ac at000a = ╱f0╱:╱ // 0x56d @0xa
0x0563…05ac at000b = ╱55╱U╱ // 0x56e @0xb
0x0563…05ac at000c = ╱ed╱(╱ // 0x56f @0xc
0x0563…05ac at000d = ╱48╱H╱ // 0x570 @0xd
0x0563…05ac at000e = ╱ec╱,╱ // 0x571 @0xe
0x0563…05ac at000f = ╱45╱E╱ // 0x572 @0xf
0x0563…05ac at0010 = ╱ee╱)╱ // 0x573 @0x10
0x0563…05ac at0011 = ╱ec╱,╱ // 0x574 @0x11
0x0563…05ac at0012 = ╱55╱U╱ // 0x575 @0x12
0x0563…05ac at0013 = ╱ed╱(╱ // 0x576 @0x13
0x0563…05ac at0014 = ╱48╱H╱ // 0x577 @0x14
0x0563…05ac at0015 = ╱ec╱,╱ // 0x578 @0x15
0x0563…05ac at0016 = ╱47╱G╱ // 0x579 @0x16
0x0563…05ac at0017 = ╱ee╱)╱ // 0x57a @0x17
0x0563…05ac at0018 = ╱ec╱,╱ // 0x57b @0x18
0x0563…05ac at0019 = ╱55╱U╱ // 0x57c @0x19
0x0563…05ac at001a = ╱ed╱(╱ // 0x57d @0x1a
0x0563…05ac at001b = ╱4a╱J╱ // 0x57e @0x1b
0x0563…05ac at001c = ╱31╱1╱ // 0x57f @0x1c
0x0563…05ac at001d = ╱ec╱,╱ // 0x580 @0x1d
0x0563…05ac at001e = ╱45╱E╱ // 0x581 @0x1e
0x0563…05ac at001f = ╱ee╱)╱ // 0x582 @0x1f
0x0563…05ac at0020 = ╱ec╱,╱ // 0x583 @0x20
0x0563…05ac at0021 = ╱55╱U╱ // 0x584 @0x21
0x0563…05ac at0022 = ╱ed╱(╱ // 0x585 @0x22
0x0563…05ac at0023 = ╱4a╱J╱ // 0x586 @0x23
0x0563…05ac at0024 = ╱31╱1╱ // 0x587 @0x24
0x0563…05ac at0025 = ╱ec╱,╱ // 0x588 @0x25
0x0563…05ac at0026 = ╱47╱G╱ // 0x589 @0x26
0x0563…05ac at0027 = ╱ee╱)╱ // 0x58a @0x27
0x0563…05ac at0028 = ╱ec╱,╱ // 0x58b @0x28
0x0563…05ac at0029 = ╱55╱U╱ // 0x58c @0x29
0x0563…05ac at002a = ╱ed╱(╱ // 0x58d @0x2a
0x0563…05ac at002b = ╱4a╱J╱ // 0x58e @0x2b
0x0563…05ac at002c = ╱32╱2╱ // 0x58f @0x2c
0x0563…05ac at002d = ╱ec╱,╱ // 0x590 @0x2d
0x0563…05ac at002e = ╱45╱E╱ // 0x591 @0x2e
0x0563…05ac at002f = ╱ee╱)╱ // 0x592 @0x2f
0x0563…05ac at0030 = ╱ec╱,╱ // 0x593 @0x30
0x0563…05ac at0031 = ╱55╱U╱ // 0x594 @0x31
0x0563…05ac at0032 = ╱ed╱(╱ // 0x595 @0x32
0x0563…05ac at0033 = ╱4a╱J╱ // 0x596 @0x33
0x0563…05ac at0034 = ╱32╱2╱ // 0x597 @0x34
0x0563…05ac at0035 = ╱ec╱,╱ // 0x598 @0x35
0x0563…05ac at0036 = ╱47╱G╱ // 0x599 @0x36
0x0563…05ac at0037 = ╱ee╱)╱ // 0x59a @0x37
0x0563…05ac at0038 = ╱ec╱,╱ // 0x59b @0x38
0x0563…05ac at0039 = ╱55╱U╱ // 0x59c @0x39
0x0563…05ac at003a = ╱ed╱(╱ // 0x59d @0x3a
0x0563…05ac at003b = ╱4a╱J╱ // 0x59e @0x3b
0x0563…05ac at003c = ╱33╱3╱ // 0x59f @0x3c
0x0563…05ac at003d = ╱ec╱,╱ // 0x5a0 @0x3d
0x0563…05ac at003e = ╱45╱E╱ // 0x5a1 @0x3e
0x0563…05ac at003f = ╱ee╱)╱ // 0x5a2 @0x3f
0x0563…05ac at0040 = ╱ec╱,╱ // 0x5a3 @0x40
0x0563…05ac at0041 = ╱55╱U╱ // 0x5a4 @0x41
0x0563…05ac at0042 = ╱ed╱(╱ // 0x5a5 @0x42
0x0563…05ac at0043 = ╱4a╱J╱ // 0x5a6 @0x43
0x0563…05ac at0044 = ╱33╱3╱ // 0x5a7 @0x44
0x0563…05ac at0045 = ╱ec╱,╱ // 0x5a8 @0x45
0x0563…05ac at0046 = ╱47╱G╱ // 0x5a9 @0x46
0x0563…05ac at0047 = ╱ee╱)╱ // 0x5aa @0x47
0x0563…05ac at0048 = EOL // 0x5ab @0x48
0x0563…05ac }
0x05ac…05bf 9316 0480 EXEC FEJL(G,G,K9$)
0x05ac…05bf LineComalBin {
0x05ac…05bf ptr = 0x9316 // 0x5ac @0x0
0x05ac…05bf lno = 0x01e0 // 0x5ae @0x2
0x05ac…05bf at0004 = ╱9d╱ EXEC ╱ // 0x5b0 @0x4
0x05ac…05bf at0005 = ╱46╱F╱ // 0x5b1 @0x5
0x05ac…05bf at0006 = ╱45╱E╱ // 0x5b2 @0x6
0x05ac…05bf at0007 = ╱4a╱J╱ // 0x5b3 @0x7
0x05ac…05bf at0008 = ╱4c╱L╱ // 0x5b4 @0x8
0x05ac…05bf at0009 = ╱ed╱(╱ // 0x5b5 @0x9
0x05ac…05bf at000a = ╱47╱G╱ // 0x5b6 @0xa
0x05ac…05bf at000b = ╱ec╱,╱ // 0x5b7 @0xb
0x05ac…05bf at000c = ╱47╱G╱ // 0x5b8 @0xc
0x05ac…05bf at000d = ╱ec╱,╱ // 0x5b9 @0xd
0x05ac…05bf at000e = ╱4b╱K╱ // 0x5ba @0xe
0x05ac…05bf at000f = ╱39╱9╱ // 0x5bb @0xf
0x05ac…05bf at0010 = ╱ef╱$╱ // 0x5bc @0x10
0x05ac…05bf at0011 = ╱ee╱)╱ // 0x5bd @0x11
0x05ac…05bf at0012 = EOL // 0x5be @0x12
0x05ac…05bf }
0x05bf…05c6 931d 0490 NEXT I
0x05bf…05c6 LineComalBin {
0x05bf…05c6 ptr = 0x931d // 0x5bf @0x0
0x05bf…05c6 lno = 0x01ea // 0x5c1 @0x2
0x05bf…05c6 at0004 = ╱84╱ NEXT ╱ // 0x5c3 @0x4
0x05bf…05c6 at0005 = ╱49╱I╱ // 0x5c4 @0x5
0x05bf…05c6 at0006 = EOL // 0x5c5 @0x6
0x05bf…05c6 }
0x05c6…05cc 9323 0500 ENDPROC
0x05c6…05cc LineComalBin {
0x05c6…05cc ptr = 0x9323 // 0x5c6 @0x0
0x05c6…05cc lno = 0x01f4 // 0x5c8 @0x2
0x05c6…05cc at0004 = ╱9f╱ ENDPROC ╱ // 0x5ca @0x4
0x05c6…05cc at0005 = EOL // 0x5cb @0x5
0x05c6…05cc }
0x05cc…05f1 9348 0510 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x05cc…05f1 LineComalBin {
0x05cc…05f1 ptr = 0x9348 // 0x5cc @0x0
0x05cc…05f1 lno = 0x01fe // 0x5ce @0x2
0x05cc…05f1 at0004 = ╱9e╱ PROC ╱ // 0x5d0 @0x4
0x05cc…05f1 at0005 = ╱46╱F╱ // 0x5d1 @0x5
0x05cc…05f1 at0006 = ╱49╱I╱ // 0x5d2 @0x6
0x05cc…05f1 at0007 = ╱4e╱N╱ // 0x5d3 @0x7
0x05cc…05f1 at0008 = ╱44╱D╱ // 0x5d4 @0x8
0x05cc…05f1 at0009 = ╱50╱P╱ // 0x5d5 @0x9
0x05cc…05f1 at000a = ╱4f╱O╱ // 0x5d6 @0xa
0x05cc…05f1 at000b = ╱53╱S╱ // 0x5d7 @0xb
0x05cc…05f1 at000c = ╱54╱T╱ // 0x5d8 @0xc
0x05cc…05f1 at000d = ╱ed╱(╱ // 0x5d9 @0xd
0x05cc…05f1 at000e = ╱54╱T╱ // 0x5da @0xe
0x05cc…05f1 at000f = ╱41╱A╱ // 0x5db @0xf
0x05cc…05f1 at0010 = ╱42╱B╱ // 0x5dc @0x10
0x05cc…05f1 at0011 = ╱31╱1╱ // 0x5dd @0x11
0x05cc…05f1 at0012 = ╱ec╱,╱ // 0x5de @0x12
0x05cc…05f1 at0013 = ╱4d╱M╱ // 0x5df @0x13
0x05cc…05f1 at0014 = ╱41╱A╱ // 0x5e0 @0x14
0x05cc…05f1 at0015 = ╱4e╱N╱ // 0x5e1 @0x15
0x05cc…05f1 at0016 = ╱54╱T╱ // 0x5e2 @0x16
0x05cc…05f1 at0017 = ╱31╱1╱ // 0x5e3 @0x17
0x05cc…05f1 at0018 = ╱ec╱,╱ // 0x5e4 @0x18
0x05cc…05f1 at0019 = ╱4e╱N╱ // 0x5e5 @0x19
0x05cc…05f1 at001a = ╱5c╱Ø╱ // 0x5e6 @0x1a
0x05cc…05f1 at001b = ╱47╱G╱ // 0x5e7 @0x1b
0x05cc…05f1 at001c = ╱4c╱L╱ // 0x5e8 @0x1c
0x05cc…05f1 at001d = ╱31╱1╱ // 0x5e9 @0x1d
0x05cc…05f1 at001e = ╱ec╱,╱ // 0x5ea @0x1e
0x05cc…05f1 at001f = ╱50╱P╱ // 0x5eb @0x1f
0x05cc…05f1 at0020 = ╱49╱I╱ // 0x5ec @0x20
0x05cc…05f1 at0021 = ╱4c╱L╱ // 0x5ed @0x21
0x05cc…05f1 at0022 = ╱33╱3╱ // 0x5ee @0x22
0x05cc…05f1 at0023 = ╱ee╱)╱ // 0x5ef @0x23
0x05cc…05f1 at0024 = EOL // 0x5f0 @0x24
0x05cc…05f1 }
0x05f1…0613 936a 0520 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x05f1…0613 LineComalBin {
0x05f1…0613 ptr = 0x936a // 0x5f1 @0x0
0x05f1…0613 lno = 0x0208 // 0x5f3 @0x2
0x05f1…0613 at0004 = ╱50╱P╱ // 0x5f5 @0x4
0x05f1…0613 at0005 = ╱49╱I╱ // 0x5f6 @0x5
0x05f1…0613 at0006 = ╱4c╱L╱ // 0x5f7 @0x6
0x05f1…0613 at0007 = ╱31╱1╱ // 0x5f8 @0x7
0x05f1…0613 at0008 = ╱dc╱=╱ // 0x5f9 @0x8
0x05f1…0613 at0009 = ╱4d╱M╱ // 0x5fa @0x9
0x05f1…0613 at000a = ╱41╱A╱ // 0x5fb @0xa
0x05f1…0613 at000b = ╱4e╱N╱ // 0x5fc @0xb
0x05f1…0613 at000c = ╱54╱T╱ // 0x5fd @0xc
0x05f1…0613 at000d = ╱31╱1╱ // 0x5fe @0xd
0x05f1…0613 at000e = ╱e7╱ DIV ╱ // 0x5ff @0xe
0x05f1…0613 at000f = ╱47╱G╱ // 0x600 @0xf
0x05f1…0613 at0010 = ╱eb╱;╱ // 0x601 @0x10
0x05f1…0613 at0011 = ╱50╱P╱ // 0x602 @0x11
0x05f1…0613 at0012 = ╱49╱I╱ // 0x603 @0x12
0x05f1…0613 at0013 = ╱4c╱L╱ // 0x604 @0x13
0x05f1…0613 at0014 = ╱33╱3╱ // 0x605 @0x14
0x05f1…0613 at0015 = ╱dc╱=╱ // 0x606 @0x15
0x05f1…0613 at0016 = ╱50╱P╱ // 0x607 @0x16
0x05f1…0613 at0017 = ╱49╱I╱ // 0x608 @0x17
0x05f1…0613 at0018 = ╱4c╱L╱ // 0x609 @0x18
0x05f1…0613 at0019 = ╱31╱1╱ // 0x60a @0x19
0x05f1…0613 at001a = ╱eb╱;╱ // 0x60b @0x1a
0x05f1…0613 at001b = ╱43╱C╱ // 0x60c @0x1b
0x05f1…0613 at001c = ╱45╱E╱ // 0x60d @0x1c
0x05f1…0613 at001d = ╱4b╱K╱ // 0x60e @0x1d
0x05f1…0613 at001e = ╱53╱S╱ // 0x60f @0x1e
0x05f1…0613 at001f = ╱dc╱=╱ // 0x610 @0x1f
0x05f1…0613 at0020 = ╱45╱E╱ // 0x611 @0x20
0x05f1…0613 at0021 = EOL // 0x612 @0x21
0x05f1…0613 }
0x0613…0619 9370 0530 REPEAT
0x0613…0619 LineComalBin {
0x0613…0619 ptr = 0x9370 // 0x613 @0x0
0x0613…0619 lno = 0x0212 // 0x615 @0x2
0x0613…0619 at0004 = ╱97╱ REPEAT ╱ // 0x617 @0x4
0x0613…0619 at0005 = EOL // 0x618 @0x5
0x0613…0619 }
0x0619…0632 9389 0540 IF NØGL1=TAB1(PIL3,E) THEN
0x0619…0632 LineComalBin {
0x0619…0632 ptr = 0x9389 // 0x619 @0x0
0x0619…0632 lno = 0x021c // 0x61b @0x2
0x0619…0632 at0004 = ╱9c╱ IF ╱ // 0x61d @0x4
0x0619…0632 at0005 = ╱4e╱N╱ // 0x61e @0x5
0x0619…0632 at0006 = ╱5c╱Ø╱ // 0x61f @0x6
0x0619…0632 at0007 = ╱47╱G╱ // 0x620 @0x7
0x0619…0632 at0008 = ╱4c╱L╱ // 0x621 @0x8
0x0619…0632 at0009 = ╱31╱1╱ // 0x622 @0x9
0x0619…0632 at000a = ╱dc╱=╱ // 0x623 @0xa
0x0619…0632 at000b = ╱54╱T╱ // 0x624 @0xb
0x0619…0632 at000c = ╱41╱A╱ // 0x625 @0xc
0x0619…0632 at000d = ╱42╱B╱ // 0x626 @0xd
0x0619…0632 at000e = ╱31╱1╱ // 0x627 @0xe
0x0619…0632 at000f = ╱ed╱(╱ // 0x628 @0xf
0x0619…0632 at0010 = ╱50╱P╱ // 0x629 @0x10
0x0619…0632 at0011 = ╱49╱I╱ // 0x62a @0x11
0x0619…0632 at0012 = ╱4c╱L╱ // 0x62b @0x12
0x0619…0632 at0013 = ╱33╱3╱ // 0x62c @0x13
0x0619…0632 at0014 = ╱ec╱,╱ // 0x62d @0x14
0x0619…0632 at0015 = ╱45╱E╱ // 0x62e @0x15
0x0619…0632 at0016 = ╱ee╱)╱ // 0x62f @0x16
0x0619…0632 at0017 = ╱b6╱ THEN ╱ // 0x630 @0x17
0x0619…0632 at0018 = EOL // 0x631 @0x18
0x0619…0632 }
0x0632…063d 9394 0550 CEKS=B
0x0632…063d LineComalBin {
0x0632…063d ptr = 0x9394 // 0x632 @0x0
0x0632…063d lno = 0x0226 // 0x634 @0x2
0x0632…063d at0004 = ╱43╱C╱ // 0x636 @0x4
0x0632…063d at0005 = ╱45╱E╱ // 0x637 @0x5
0x0632…063d at0006 = ╱4b╱K╱ // 0x638 @0x6
0x0632…063d at0007 = ╱53╱S╱ // 0x639 @0x7
0x0632…063d at0008 = ╱dc╱=╱ // 0x63a @0x8
0x0632…063d at0009 = ╱42╱B╱ // 0x63b @0x9
0x0632…063d at000a = EOL // 0x63c @0xa
0x0632…063d }
0x063d…0643 939a 0560 ELSE
0x063d…0643 LineComalBin {
0x063d…0643 ptr = 0x939a // 0x63d @0x0
0x063d…0643 lno = 0x0230 // 0x63f @0x2
0x063d…0643 at0004 = ╱9a╱ ELSE ╱ // 0x641 @0x4
0x063d…0643 at0005 = EOL // 0x642 @0x5
0x063d…0643 }
0x0643…0656 93ad 0570 IF PIL1=E THEN PIL1=B
0x0643…0656 LineComalBin {
0x0643…0656 ptr = 0x93ad // 0x643 @0x0
0x0643…0656 lno = 0x023a // 0x645 @0x2
0x0643…0656 at0004 = ╱82╱ IF ╱ // 0x647 @0x4
0x0643…0656 at0005 = ╱50╱P╱ // 0x648 @0x5
0x0643…0656 at0006 = ╱49╱I╱ // 0x649 @0x6
0x0643…0656 at0007 = ╱4c╱L╱ // 0x64a @0x7
0x0643…0656 at0008 = ╱31╱1╱ // 0x64b @0x8
0x0643…0656 at0009 = ╱dc╱=╱ // 0x64c @0x9
0x0643…0656 at000a = ╱45╱E╱ // 0x64d @0xa
0x0643…0656 at000b = ╱b6╱ THEN ╱ // 0x64e @0xb
0x0643…0656 at000c = ╱50╱P╱ // 0x64f @0xc
0x0643…0656 at000d = ╱49╱I╱ // 0x650 @0xd
0x0643…0656 at000e = ╱4c╱L╱ // 0x651 @0xe
0x0643…0656 at000f = ╱31╱1╱ // 0x652 @0xf
0x0643…0656 at0010 = ╱dc╱=╱ // 0x653 @0x10
0x0643…0656 at0011 = ╱42╱B╱ // 0x654 @0x11
0x0643…0656 at0012 = EOL // 0x655 @0x12
0x0643…0656 }
0x0656…066d 93c4 0580 PIL1=INT((PIL1+E)/G)
0x0656…066d LineComalBin {
0x0656…066d ptr = 0x93c4 // 0x656 @0x0
0x0656…066d lno = 0x0244 // 0x658 @0x2
0x0656…066d at0004 = ╱50╱P╱ // 0x65a @0x4
0x0656…066d at0005 = ╱49╱I╱ // 0x65b @0x5
0x0656…066d at0006 = ╱4c╱L╱ // 0x65c @0x6
0x0656…066d at0007 = ╱31╱1╱ // 0x65d @0x7
0x0656…066d at0008 = ╱dc╱=╱ // 0x65e @0x8
0x0656…066d at0009 = ╱c6╱INT╱ // 0x65f @0x9
0x0656…066d at000a = ╱ed╱(╱ // 0x660 @0xa
0x0656…066d at000b = ╱ed╱(╱ // 0x661 @0xb
0x0656…066d at000c = ╱50╱P╱ // 0x662 @0xc
0x0656…066d at000d = ╱49╱I╱ // 0x663 @0xd
0x0656…066d at000e = ╱4c╱L╱ // 0x664 @0xe
0x0656…066d at000f = ╱31╱1╱ // 0x665 @0xf
0x0656…066d at0010 = ╱e2╱+╱ // 0x666 @0x10
0x0656…066d at0011 = ╱45╱E╱ // 0x667 @0x11
0x0656…066d at0012 = ╱ee╱)╱ // 0x668 @0x12
0x0656…066d at0013 = ╱e5╱/╱ // 0x669 @0x13
0x0656…066d at0014 = ╱47╱G╱ // 0x66a @0x14
0x0656…066d at0015 = ╱ee╱)╱ // 0x66b @0x15
0x0656…066d at0016 = EOL // 0x66c @0x16
0x0656…066d }
0x066d…0686 93dd 0590 IF NØGL1>TAB1(PIL3,E) THEN
0x066d…0686 LineComalBin {
0x066d…0686 ptr = 0x93dd // 0x66d @0x0
0x066d…0686 lno = 0x024e // 0x66f @0x2
0x066d…0686 at0004 = ╱9c╱ IF ╱ // 0x671 @0x4
0x066d…0686 at0005 = ╱4e╱N╱ // 0x672 @0x5
0x066d…0686 at0006 = ╱5c╱Ø╱ // 0x673 @0x6
0x066d…0686 at0007 = ╱47╱G╱ // 0x674 @0x7
0x066d…0686 at0008 = ╱4c╱L╱ // 0x675 @0x8
0x066d…0686 at0009 = ╱31╱1╱ // 0x676 @0x9
0x066d…0686 at000a = ╱de╱>╱ // 0x677 @0xa
0x066d…0686 at000b = ╱54╱T╱ // 0x678 @0xb
0x066d…0686 at000c = ╱41╱A╱ // 0x679 @0xc
0x066d…0686 at000d = ╱42╱B╱ // 0x67a @0xd
0x066d…0686 at000e = ╱31╱1╱ // 0x67b @0xe
0x066d…0686 at000f = ╱ed╱(╱ // 0x67c @0xf
0x066d…0686 at0010 = ╱50╱P╱ // 0x67d @0x10
0x066d…0686 at0011 = ╱49╱I╱ // 0x67e @0x11
0x066d…0686 at0012 = ╱4c╱L╱ // 0x67f @0x12
0x066d…0686 at0013 = ╱33╱3╱ // 0x680 @0x13
0x066d…0686 at0014 = ╱ec╱,╱ // 0x681 @0x14
0x066d…0686 at0015 = ╱45╱E╱ // 0x682 @0x15
0x066d…0686 at0016 = ╱ee╱)╱ // 0x683 @0x16
0x066d…0686 at0017 = ╱b6╱ THEN ╱ // 0x684 @0x17
0x066d…0686 at0018 = EOL // 0x685 @0x18
0x066d…0686 }
0x0686…0699 93f0 0600 PIL3=PIL3+PIL1
0x0686…0699 LineComalBin {
0x0686…0699 ptr = 0x93f0 // 0x686 @0x0
0x0686…0699 lno = 0x0258 // 0x688 @0x2
0x0686…0699 at0004 = ╱50╱P╱ // 0x68a @0x4
0x0686…0699 at0005 = ╱49╱I╱ // 0x68b @0x5
0x0686…0699 at0006 = ╱4c╱L╱ // 0x68c @0x6
0x0686…0699 at0007 = ╱33╱3╱ // 0x68d @0x7
0x0686…0699 at0008 = ╱dc╱=╱ // 0x68e @0x8
0x0686…0699 at0009 = ╱50╱P╱ // 0x68f @0x9
0x0686…0699 at000a = ╱49╱I╱ // 0x690 @0xa
0x0686…0699 at000b = ╱4c╱L╱ // 0x691 @0xb
0x0686…0699 at000c = ╱33╱3╱ // 0x692 @0xc
0x0686…0699 at000d = ╱e2╱+╱ // 0x693 @0xd
0x0686…0699 at000e = ╱50╱P╱ // 0x694 @0xe
0x0686…0699 at000f = ╱49╱I╱ // 0x695 @0xf
0x0686…0699 at0010 = ╱4c╱L╱ // 0x696 @0x10
0x0686…0699 at0011 = ╱31╱1╱ // 0x697 @0x11
0x0686…0699 at0012 = EOL // 0x698 @0x12
0x0686…0699 }
0x0699…069f 93f6 0610 ELSE
0x0699…069f LineComalBin {
0x0699…069f ptr = 0x93f6 // 0x699 @0x0
0x0699…069f lno = 0x0262 // 0x69b @0x2
0x0699…069f at0004 = ╱9a╱ ELSE ╱ // 0x69d @0x4
0x0699…069f at0005 = EOL // 0x69e @0x5
0x0699…069f }
0x069f…06b2 9409 0620 PIL3=PIL3-PIL1
0x069f…06b2 LineComalBin {
0x069f…06b2 ptr = 0x9409 // 0x69f @0x0
0x069f…06b2 lno = 0x026c // 0x6a1 @0x2
0x069f…06b2 at0004 = ╱50╱P╱ // 0x6a3 @0x4
0x069f…06b2 at0005 = ╱49╱I╱ // 0x6a4 @0x5
0x069f…06b2 at0006 = ╱4c╱L╱ // 0x6a5 @0x6
0x069f…06b2 at0007 = ╱33╱3╱ // 0x6a6 @0x7
0x069f…06b2 at0008 = ╱dc╱=╱ // 0x6a7 @0x8
0x069f…06b2 at0009 = ╱50╱P╱ // 0x6a8 @0x9
0x069f…06b2 at000a = ╱49╱I╱ // 0x6a9 @0xa
0x069f…06b2 at000b = ╱4c╱L╱ // 0x6aa @0xb
0x069f…06b2 at000c = ╱33╱3╱ // 0x6ab @0xc
0x069f…06b2 at000d = ╱e3╱-╱ // 0x6ac @0xd
0x069f…06b2 at000e = ╱50╱P╱ // 0x6ad @0xe
0x069f…06b2 at000f = ╱49╱I╱ // 0x6ae @0xf
0x069f…06b2 at0010 = ╱4c╱L╱ // 0x6af @0x10
0x069f…06b2 at0011 = ╱31╱1╱ // 0x6b0 @0x11
0x069f…06b2 at0012 = EOL // 0x6b1 @0x12
0x069f…06b2 }
0x06b2…06b8 940f 0630 ENDIF
0x06b2…06b8 LineComalBin {
0x06b2…06b8 ptr = 0x940f // 0x6b2 @0x0
0x06b2…06b8 lno = 0x0276 // 0x6b4 @0x2
0x06b2…06b8 at0004 = ╱9b╱ ENDIF ╱ // 0x6b6 @0x4
0x06b2…06b8 at0005 = EOL // 0x6b7 @0x5
0x06b2…06b8 }
0x06b8…06cb 9422 0640 IF PIL3<E THEN PIL3=E
0x06b8…06cb LineComalBin {
0x06b8…06cb ptr = 0x9422 // 0x6b8 @0x0
0x06b8…06cb lno = 0x0280 // 0x6ba @0x2
0x06b8…06cb at0004 = ╱82╱ IF ╱ // 0x6bc @0x4
0x06b8…06cb at0005 = ╱50╱P╱ // 0x6bd @0x5
0x06b8…06cb at0006 = ╱49╱I╱ // 0x6be @0x6
0x06b8…06cb at0007 = ╱4c╱L╱ // 0x6bf @0x7
0x06b8…06cb at0008 = ╱33╱3╱ // 0x6c0 @0x8
0x06b8…06cb at0009 = ╱dd╱<╱ // 0x6c1 @0x9
0x06b8…06cb at000a = ╱45╱E╱ // 0x6c2 @0xa
0x06b8…06cb at000b = ╱b6╱ THEN ╱ // 0x6c3 @0xb
0x06b8…06cb at000c = ╱50╱P╱ // 0x6c4 @0xc
0x06b8…06cb at000d = ╱49╱I╱ // 0x6c5 @0xd
0x06b8…06cb at000e = ╱4c╱L╱ // 0x6c6 @0xe
0x06b8…06cb at000f = ╱33╱3╱ // 0x6c7 @0xf
0x06b8…06cb at0010 = ╱dc╱=╱ // 0x6c8 @0x10
0x06b8…06cb at0011 = ╱45╱E╱ // 0x6c9 @0x11
0x06b8…06cb at0012 = EOL // 0x6ca @0x12
0x06b8…06cb }
0x06cb…06e6 943d 0650 IF PIL3>MANT1 THEN PIL3=MANT1
0x06cb…06e6 LineComalBin {
0x06cb…06e6 ptr = 0x943d // 0x6cb @0x0
0x06cb…06e6 lno = 0x028a // 0x6cd @0x2
0x06cb…06e6 at0004 = ╱82╱ IF ╱ // 0x6cf @0x4
0x06cb…06e6 at0005 = ╱50╱P╱ // 0x6d0 @0x5
0x06cb…06e6 at0006 = ╱49╱I╱ // 0x6d1 @0x6
0x06cb…06e6 at0007 = ╱4c╱L╱ // 0x6d2 @0x7
0x06cb…06e6 at0008 = ╱33╱3╱ // 0x6d3 @0x8
0x06cb…06e6 at0009 = ╱de╱>╱ // 0x6d4 @0x9
0x06cb…06e6 at000a = ╱4d╱M╱ // 0x6d5 @0xa
0x06cb…06e6 at000b = ╱41╱A╱ // 0x6d6 @0xb
0x06cb…06e6 at000c = ╱4e╱N╱ // 0x6d7 @0xc
0x06cb…06e6 at000d = ╱54╱T╱ // 0x6d8 @0xd
0x06cb…06e6 at000e = ╱31╱1╱ // 0x6d9 @0xe
0x06cb…06e6 at000f = ╱b6╱ THEN ╱ // 0x6da @0xf
0x06cb…06e6 at0010 = ╱50╱P╱ // 0x6db @0x10
0x06cb…06e6 at0011 = ╱49╱I╱ // 0x6dc @0x11
0x06cb…06e6 at0012 = ╱4c╱L╱ // 0x6dd @0x12
0x06cb…06e6 at0013 = ╱33╱3╱ // 0x6de @0x13
0x06cb…06e6 at0014 = ╱dc╱=╱ // 0x6df @0x14
0x06cb…06e6 at0015 = ╱4d╱M╱ // 0x6e0 @0x15
0x06cb…06e6 at0016 = ╱41╱A╱ // 0x6e1 @0x16
0x06cb…06e6 at0017 = ╱4e╱N╱ // 0x6e2 @0x17
0x06cb…06e6 at0018 = ╱54╱T╱ // 0x6e3 @0x18
0x06cb…06e6 at0019 = ╱31╱1╱ // 0x6e4 @0x19
0x06cb…06e6 at001a = EOL // 0x6e5 @0x1a
0x06cb…06e6 }
0x06e6…06ec 9443 0660 ENDIF
0x06e6…06ec LineComalBin {
0x06e6…06ec ptr = 0x9443 // 0x6e6 @0x0
0x06e6…06ec lno = 0x0294 // 0x6e8 @0x2
0x06e6…06ec at0004 = ╱9b╱ ENDIF ╱ // 0x6ea @0x4
0x06e6…06ec at0005 = EOL // 0x6eb @0x5
0x06e6…06ec }
0x06ec…06ff 9456 0670 UNTIL CEKS=B OR PIL1=B
0x06ec…06ff LineComalBin {
0x06ec…06ff ptr = 0x9456 // 0x6ec @0x0
0x06ec…06ff lno = 0x029e // 0x6ee @0x2
0x06ec…06ff at0004 = ╱98╱ UNTIL ╱ // 0x6f0 @0x4
0x06ec…06ff at0005 = ╱43╱C╱ // 0x6f1 @0x5
0x06ec…06ff at0006 = ╱45╱E╱ // 0x6f2 @0x6
0x06ec…06ff at0007 = ╱4b╱K╱ // 0x6f3 @0x7
0x06ec…06ff at0008 = ╱53╱S╱ // 0x6f4 @0x8
0x06ec…06ff at0009 = ╱dc╱=╱ // 0x6f5 @0x9
0x06ec…06ff at000a = ╱42╱B╱ // 0x6f6 @0xa
0x06ec…06ff at000b = ╱db╱ OR ╱ // 0x6f7 @0xb
0x06ec…06ff at000c = ╱50╱P╱ // 0x6f8 @0xc
0x06ec…06ff at000d = ╱49╱I╱ // 0x6f9 @0xd
0x06ec…06ff at000e = ╱4c╱L╱ // 0x6fa @0xe
0x06ec…06ff at000f = ╱31╱1╱ // 0x6fb @0xf
0x06ec…06ff at0010 = ╱dc╱=╱ // 0x6fc @0x10
0x06ec…06ff at0011 = ╱42╱B╱ // 0x6fd @0x11
0x06ec…06ff at0012 = EOL // 0x6fe @0x12
0x06ec…06ff }
0x06ff…0705 945c 0680 ENDPROC
0x06ff…0705 LineComalBin {
0x06ff…0705 ptr = 0x945c // 0x6ff @0x0
0x06ff…0705 lno = 0x02a8 // 0x701 @0x2
0x06ff…0705 at0004 = ╱9f╱ ENDPROC ╱ // 0x703 @0x4
0x06ff…0705 at0005 = EOL // 0x704 @0x5
0x06ff…0705 }
0x0705…071c 9473 0690 PROC SLETDPOST(NØGLE3)
0x0705…071c LineComalBin {
0x0705…071c ptr = 0x9473 // 0x705 @0x0
0x0705…071c lno = 0x02b2 // 0x707 @0x2
0x0705…071c at0004 = ╱9e╱ PROC ╱ // 0x709 @0x4
0x0705…071c at0005 = ╱53╱S╱ // 0x70a @0x5
0x0705…071c at0006 = ╱4c╱L╱ // 0x70b @0x6
0x0705…071c at0007 = ╱45╱E╱ // 0x70c @0x7
0x0705…071c at0008 = ╱54╱T╱ // 0x70d @0x8
0x0705…071c at0009 = ╱44╱D╱ // 0x70e @0x9
0x0705…071c at000a = ╱50╱P╱ // 0x70f @0xa
0x0705…071c at000b = ╱4f╱O╱ // 0x710 @0xb
0x0705…071c at000c = ╱53╱S╱ // 0x711 @0xc
0x0705…071c at000d = ╱54╱T╱ // 0x712 @0xd
0x0705…071c at000e = ╱ed╱(╱ // 0x713 @0xe
0x0705…071c at000f = ╱4e╱N╱ // 0x714 @0xf
0x0705…071c at0010 = ╱5c╱Ø╱ // 0x715 @0x10
0x0705…071c at0011 = ╱47╱G╱ // 0x716 @0x11
0x0705…071c at0012 = ╱4c╱L╱ // 0x717 @0x12
0x0705…071c at0013 = ╱45╱E╱ // 0x718 @0x13
0x0705…071c at0014 = ╱33╱3╱ // 0x719 @0x14
0x0705…071c at0015 = ╱ee╱)╱ // 0x71a @0x15
0x0705…071c at0016 = EOL // 0x71b @0x16
0x0705…071c }
0x071c…0745 949c 0700 EXEC FINDPOST(KTAB,MKANTAL,NØGLE3,KPIL3)
0x071c…0745 LineComalBin {
0x071c…0745 ptr = 0x949c // 0x71c @0x0
0x071c…0745 lno = 0x02bc // 0x71e @0x2
0x071c…0745 at0004 = ╱9d╱ EXEC ╱ // 0x720 @0x4
0x071c…0745 at0005 = ╱46╱F╱ // 0x721 @0x5
0x071c…0745 at0006 = ╱49╱I╱ // 0x722 @0x6
0x071c…0745 at0007 = ╱4e╱N╱ // 0x723 @0x7
0x071c…0745 at0008 = ╱44╱D╱ // 0x724 @0x8
0x071c…0745 at0009 = ╱50╱P╱ // 0x725 @0x9
0x071c…0745 at000a = ╱4f╱O╱ // 0x726 @0xa
0x071c…0745 at000b = ╱53╱S╱ // 0x727 @0xb
0x071c…0745 at000c = ╱54╱T╱ // 0x728 @0xc
0x071c…0745 at000d = ╱ed╱(╱ // 0x729 @0xd
0x071c…0745 at000e = ╱4b╱K╱ // 0x72a @0xe
0x071c…0745 at000f = ╱54╱T╱ // 0x72b @0xf
0x071c…0745 at0010 = ╱41╱A╱ // 0x72c @0x10
0x071c…0745 at0011 = ╱42╱B╱ // 0x72d @0x11
0x071c…0745 at0012 = ╱ec╱,╱ // 0x72e @0x12
0x071c…0745 at0013 = ╱4d╱M╱ // 0x72f @0x13
0x071c…0745 at0014 = ╱4b╱K╱ // 0x730 @0x14
0x071c…0745 at0015 = ╱41╱A╱ // 0x731 @0x15
0x071c…0745 at0016 = ╱4e╱N╱ // 0x732 @0x16
0x071c…0745 at0017 = ╱54╱T╱ // 0x733 @0x17
0x071c…0745 at0018 = ╱41╱A╱ // 0x734 @0x18
0x071c…0745 at0019 = ╱4c╱L╱ // 0x735 @0x19
0x071c…0745 at001a = ╱ec╱,╱ // 0x736 @0x1a
0x071c…0745 at001b = ╱4e╱N╱ // 0x737 @0x1b
0x071c…0745 at001c = ╱5c╱Ø╱ // 0x738 @0x1c
0x071c…0745 at001d = ╱47╱G╱ // 0x739 @0x1d
0x071c…0745 at001e = ╱4c╱L╱ // 0x73a @0x1e
0x071c…0745 at001f = ╱45╱E╱ // 0x73b @0x1f
0x071c…0745 at0020 = ╱33╱3╱ // 0x73c @0x20
0x071c…0745 at0021 = ╱ec╱,╱ // 0x73d @0x21
0x071c…0745 at0022 = ╱4b╱K╱ // 0x73e @0x22
0x071c…0745 at0023 = ╱50╱P╱ // 0x73f @0x23
0x071c…0745 at0024 = ╱49╱I╱ // 0x740 @0x24
0x071c…0745 at0025 = ╱4c╱L╱ // 0x741 @0x25
0x071c…0745 at0026 = ╱33╱3╱ // 0x742 @0x26
0x071c…0745 at0027 = ╱ee╱)╱ // 0x743 @0x27
0x071c…0745 at0028 = EOL // 0x744 @0x28
0x071c…0745 }
0x0745…0753 94aa 0710 IF CEKS=E THEN STOP
0x0745…0753 LineComalBin {
0x0745…0753 ptr = 0x94aa // 0x745 @0x0
0x0745…0753 lno = 0x02c6 // 0x747 @0x2
0x0745…0753 at0004 = ╱82╱ IF ╱ // 0x749 @0x4
0x0745…0753 at0005 = ╱43╱C╱ // 0x74a @0x5
0x0745…0753 at0006 = ╱45╱E╱ // 0x74b @0x6
0x0745…0753 at0007 = ╱4b╱K╱ // 0x74c @0x7
0x0745…0753 at0008 = ╱53╱S╱ // 0x74d @0x8
0x0745…0753 at0009 = ╱dc╱=╱ // 0x74e @0x9
0x0745…0753 at000a = ╱45╱E╱ // 0x74f @0xa
0x0745…0753 at000b = ╱b6╱ THEN ╱ // 0x750 @0xb
0x0745…0753 at000c = ╱8d╱ STOP ╱ // 0x751 @0xc
0x0745…0753 at000d = EOL // 0x752 @0xd
0x0745…0753 }
0x0753…075f 94b6 0720 KRENR=B
0x0753…075f LineComalBin {
0x0753…075f ptr = 0x94b6 // 0x753 @0x0
0x0753…075f lno = 0x02d0 // 0x755 @0x2
0x0753…075f at0004 = ╱4b╱K╱ // 0x757 @0x4
0x0753…075f at0005 = ╱52╱R╱ // 0x758 @0x5
0x0753…075f at0006 = ╱45╱E╱ // 0x759 @0x6
0x0753…075f at0007 = ╱4e╱N╱ // 0x75a @0x7
0x0753…075f at0008 = ╱52╱R╱ // 0x75b @0x8
0x0753…075f at0009 = ╱dc╱=╱ // 0x75c @0x9
0x0753…075f at000a = ╱42╱B╱ // 0x75d @0xa
0x0753…075f at000b = EOL // 0x75e @0xb
0x0753…075f }
0x075f…077e 94d5 0730 KRENAVN$=BLANK$(E:25)
0x075f…077e LineComalBin {
0x075f…077e ptr = 0x94d5 // 0x75f @0x0
0x075f…077e lno = 0x02da // 0x761 @0x2
0x075f…077e at0004 = ╱4b╱K╱ // 0x763 @0x4
0x075f…077e at0005 = ╱52╱R╱ // 0x764 @0x5
0x075f…077e at0006 = ╱45╱E╱ // 0x765 @0x6
0x075f…077e at0007 = ╱4e╱N╱ // 0x766 @0x7
0x075f…077e at0008 = ╱41╱A╱ // 0x767 @0x8
0x075f…077e at0009 = ╱56╱V╱ // 0x768 @0x9
0x075f…077e at000a = ╱4e╱N╱ // 0x769 @0xa
0x075f…077e at000b = ╱ef╱$╱ // 0x76a @0xb
0x075f…077e at000c = ╱dc╱=╱ // 0x76b @0xc
0x075f…077e at000d = ╱42╱B╱ // 0x76c @0xd
0x075f…077e at000e = ╱4c╱L╱ // 0x76d @0xe
0x075f…077e at000f = ╱41╱A╱ // 0x76e @0xf
0x075f…077e at0010 = ╱4e╱N╱ // 0x76f @0x10
0x075f…077e at0011 = ╱4b╱K╱ // 0x770 @0x11
0x075f…077e at0012 = ╱ef╱$╱ // 0x771 @0x12
0x075f…077e at0013 = ╱ed╱(╱ // 0x772 @0x13
0x075f…077e at0014 = ╱45╱E╱ // 0x773 @0x14
0x075f…077e at0015 = ╱f0╱:╱ // 0x774 @0x15
0x075f…077e at0016 = ╱32╱2╱ // 0x775 @0x16
0x075f…077e at0017 = ╱35╱5╱ // 0x776 @0x17
0x075f…077e at0018 = ╱fe0000c805╱ // 0x777 @0x18
0x075f…077e at001d = ╱ee╱)╱ // 0x77c @0x1d
0x075f…077e at001e = EOL // 0x77d @0x1e
0x075f…077e }
0x077e…079d 94f4 0740 KSALDO1$=BLANK$(E:12)
0x077e…079d LineComalBin {
0x077e…079d ptr = 0x94f4 // 0x77e @0x0
0x077e…079d lno = 0x02e4 // 0x780 @0x2
0x077e…079d at0004 = ╱4b╱K╱ // 0x782 @0x4
0x077e…079d at0005 = ╱53╱S╱ // 0x783 @0x5
0x077e…079d at0006 = ╱41╱A╱ // 0x784 @0x6
0x077e…079d at0007 = ╱4c╱L╱ // 0x785 @0x7
0x077e…079d at0008 = ╱44╱D╱ // 0x786 @0x8
0x077e…079d at0009 = ╱4f╱O╱ // 0x787 @0x9
0x077e…079d at000a = ╱31╱1╱ // 0x788 @0xa
0x077e…079d at000b = ╱ef╱$╱ // 0x789 @0xb
0x077e…079d at000c = ╱dc╱=╱ // 0x78a @0xc
0x077e…079d at000d = ╱42╱B╱ // 0x78b @0xd
0x077e…079d at000e = ╱4c╱L╱ // 0x78c @0xe
0x077e…079d at000f = ╱41╱A╱ // 0x78d @0xf
0x077e…079d at0010 = ╱4e╱N╱ // 0x78e @0x10
0x077e…079d at0011 = ╱4b╱K╱ // 0x78f @0x11
0x077e…079d at0012 = ╱ef╱$╱ // 0x790 @0x12
0x077e…079d at0013 = ╱ed╱(╱ // 0x791 @0x13
0x077e…079d at0014 = ╱45╱E╱ // 0x792 @0x14
0x077e…079d at0015 = ╱f0╱:╱ // 0x793 @0x15
0x077e…079d at0016 = ╱31╱1╱ // 0x794 @0x16
0x077e…079d at0017 = ╱32╱2╱ // 0x795 @0x17
0x077e…079d at0018 = ╱fe0000c004╱ // 0x796 @0x18
0x077e…079d at001d = ╱ee╱)╱ // 0x79b @0x1d
0x077e…079d at001e = EOL // 0x79c @0x1e
0x077e…079d }
0x079d…07bc 9513 0750 KSALDO2$=BLANK$(E:12)
0x079d…07bc LineComalBin {
0x079d…07bc ptr = 0x9513 // 0x79d @0x0
0x079d…07bc lno = 0x02ee // 0x79f @0x2
0x079d…07bc at0004 = ╱4b╱K╱ // 0x7a1 @0x4
0x079d…07bc at0005 = ╱53╱S╱ // 0x7a2 @0x5
0x079d…07bc at0006 = ╱41╱A╱ // 0x7a3 @0x6
0x079d…07bc at0007 = ╱4c╱L╱ // 0x7a4 @0x7
0x079d…07bc at0008 = ╱44╱D╱ // 0x7a5 @0x8
0x079d…07bc at0009 = ╱4f╱O╱ // 0x7a6 @0x9
0x079d…07bc at000a = ╱32╱2╱ // 0x7a7 @0xa
0x079d…07bc at000b = ╱ef╱$╱ // 0x7a8 @0xb
0x079d…07bc at000c = ╱dc╱=╱ // 0x7a9 @0xc
0x079d…07bc at000d = ╱42╱B╱ // 0x7aa @0xd
0x079d…07bc at000e = ╱4c╱L╱ // 0x7ab @0xe
0x079d…07bc at000f = ╱41╱A╱ // 0x7ac @0xf
0x079d…07bc at0010 = ╱4e╱N╱ // 0x7ad @0x10
0x079d…07bc at0011 = ╱4b╱K╱ // 0x7ae @0x11
0x079d…07bc at0012 = ╱ef╱$╱ // 0x7af @0x12
0x079d…07bc at0013 = ╱ed╱(╱ // 0x7b0 @0x13
0x079d…07bc at0014 = ╱45╱E╱ // 0x7b1 @0x14
0x079d…07bc at0015 = ╱f0╱:╱ // 0x7b2 @0x15
0x079d…07bc at0016 = ╱31╱1╱ // 0x7b3 @0x16
0x079d…07bc at0017 = ╱32╱2╱ // 0x7b4 @0x17
0x079d…07bc at0018 = ╱fe0000c004╱ // 0x7b5 @0x18
0x079d…07bc at001d = ╱ee╱)╱ // 0x7ba @0x1d
0x079d…07bc at001e = EOL // 0x7bb @0x1e
0x079d…07bc }
0x07bc…07cb 9522 0760 KREGR$="0"
0x07bc…07cb LineComalBin {
0x07bc…07cb ptr = 0x9522 // 0x7bc @0x0
0x07bc…07cb lno = 0x02f8 // 0x7be @0x2
0x07bc…07cb at0004 = ╱4b╱K╱ // 0x7c0 @0x4
0x07bc…07cb at0005 = ╱52╱R╱ // 0x7c1 @0x5
0x07bc…07cb at0006 = ╱45╱E╱ // 0x7c2 @0x6
0x07bc…07cb at0007 = ╱47╱G╱ // 0x7c3 @0x7
0x07bc…07cb at0008 = ╱52╱R╱ // 0x7c4 @0x8
0x07bc…07cb at0009 = ╱ef╱$╱ // 0x7c5 @0x9
0x07bc…07cb at000a = ╱dc╱=╱ // 0x7c6 @0xa
0x07bc…07cb at000b = ╱22╱"╱ // 0x7c7 @0xb
0x07bc…07cb at000c = ╱30╱0╱ // 0x7c8 @0xc
0x07bc…07cb at000d = ╱22╱"╱ // 0x7c9 @0xd
0x07bc…07cb at000e = EOL // 0x7ca @0xe
0x07bc…07cb }
0x07cb…07db 9532 0770 KREPOSTNR=B
0x07cb…07db LineComalBin {
0x07cb…07db ptr = 0x9532 // 0x7cb @0x0
0x07cb…07db lno = 0x0302 // 0x7cd @0x2
0x07cb…07db at0004 = ╱4b╱K╱ // 0x7cf @0x4
0x07cb…07db at0005 = ╱52╱R╱ // 0x7d0 @0x5
0x07cb…07db at0006 = ╱45╱E╱ // 0x7d1 @0x6
0x07cb…07db at0007 = ╱50╱P╱ // 0x7d2 @0x7
0x07cb…07db at0008 = ╱4f╱O╱ // 0x7d3 @0x8
0x07cb…07db at0009 = ╱53╱S╱ // 0x7d4 @0x9
0x07cb…07db at000a = ╱54╱T╱ // 0x7d5 @0xa
0x07cb…07db at000b = ╱4e╱N╱ // 0x7d6 @0xb
0x07cb…07db at000c = ╱52╱R╱ // 0x7d7 @0xc
0x07cb…07db at000d = ╱dc╱=╱ // 0x7d8 @0xd
0x07cb…07db at000e = ╱42╱B╱ // 0x7d9 @0xe
0x07cb…07db at000f = EOL // 0x7da @0xf
0x07cb…07db }
0x07db…07ea 9541 0780 KRELK$="0"
0x07db…07ea LineComalBin {
0x07db…07ea ptr = 0x9541 // 0x7db @0x0
0x07db…07ea lno = 0x030c // 0x7dd @0x2
0x07db…07ea at0004 = ╱4b╱K╱ // 0x7df @0x4
0x07db…07ea at0005 = ╱52╱R╱ // 0x7e0 @0x5
0x07db…07ea at0006 = ╱45╱E╱ // 0x7e1 @0x6
0x07db…07ea at0007 = ╱4c╱L╱ // 0x7e2 @0x7
0x07db…07ea at0008 = ╱4b╱K╱ // 0x7e3 @0x8
0x07db…07ea at0009 = ╱ef╱$╱ // 0x7e4 @0x9
0x07db…07ea at000a = ╱dc╱=╱ // 0x7e5 @0xa
0x07db…07ea at000b = ╱22╱"╱ // 0x7e6 @0xb
0x07db…07ea at000c = ╱30╱0╱ // 0x7e7 @0xc
0x07db…07ea at000d = ╱22╱"╱ // 0x7e8 @0xd
0x07db…07ea at000e = EOL // 0x7e9 @0xe
0x07db…07ea }
0x07ea…0809 9560 0790 KREGADE$=BLANK$(E:25)
0x07ea…0809 LineComalBin {
0x07ea…0809 ptr = 0x9560 // 0x7ea @0x0
0x07ea…0809 lno = 0x0316 // 0x7ec @0x2
0x07ea…0809 at0004 = ╱4b╱K╱ // 0x7ee @0x4
0x07ea…0809 at0005 = ╱52╱R╱ // 0x7ef @0x5
0x07ea…0809 at0006 = ╱45╱E╱ // 0x7f0 @0x6
0x07ea…0809 at0007 = ╱47╱G╱ // 0x7f1 @0x7
0x07ea…0809 at0008 = ╱41╱A╱ // 0x7f2 @0x8
0x07ea…0809 at0009 = ╱44╱D╱ // 0x7f3 @0x9
0x07ea…0809 at000a = ╱45╱E╱ // 0x7f4 @0xa
0x07ea…0809 at000b = ╱ef╱$╱ // 0x7f5 @0xb
0x07ea…0809 at000c = ╱dc╱=╱ // 0x7f6 @0xc
0x07ea…0809 at000d = ╱42╱B╱ // 0x7f7 @0xd
0x07ea…0809 at000e = ╱4c╱L╱ // 0x7f8 @0xe
0x07ea…0809 at000f = ╱41╱A╱ // 0x7f9 @0xf
0x07ea…0809 at0010 = ╱4e╱N╱ // 0x7fa @0x10
0x07ea…0809 at0011 = ╱4b╱K╱ // 0x7fb @0x11
0x07ea…0809 at0012 = ╱ef╱$╱ // 0x7fc @0x12
0x07ea…0809 at0013 = ╱ed╱(╱ // 0x7fd @0x13
0x07ea…0809 at0014 = ╱45╱E╱ // 0x7fe @0x14
0x07ea…0809 at0015 = ╱f0╱:╱ // 0x7ff @0x15
0x07ea…0809 at0016 = ╱32╱2╱ // 0x800 @0x16
0x07ea…0809 at0017 = ╱35╱5╱ // 0x801 @0x17
0x07ea…0809 at0018 = ╱fe0000c805╱ // 0x802 @0x18
0x07ea…0809 at001d = ╱ee╱)╱ // 0x807 @0x1d
0x07ea…0809 at001e = EOL // 0x808 @0x1e
0x07ea…0809 }
0x0809…0826 957d 0800 KREBY$=BLANK$(E:20)
0x0809…0826 LineComalBin {
0x0809…0826 ptr = 0x957d // 0x809 @0x0
0x0809…0826 lno = 0x0320 // 0x80b @0x2
0x0809…0826 at0004 = ╱4b╱K╱ // 0x80d @0x4
0x0809…0826 at0005 = ╱52╱R╱ // 0x80e @0x5
0x0809…0826 at0006 = ╱45╱E╱ // 0x80f @0x6
0x0809…0826 at0007 = ╱42╱B╱ // 0x810 @0x7
0x0809…0826 at0008 = ╱59╱Y╱ // 0x811 @0x8
0x0809…0826 at0009 = ╱ef╱$╱ // 0x812 @0x9
0x0809…0826 at000a = ╱dc╱=╱ // 0x813 @0xa
0x0809…0826 at000b = ╱42╱B╱ // 0x814 @0xb
0x0809…0826 at000c = ╱4c╱L╱ // 0x815 @0xc
0x0809…0826 at000d = ╱41╱A╱ // 0x816 @0xd
0x0809…0826 at000e = ╱4e╱N╱ // 0x817 @0xe
0x0809…0826 at000f = ╱4b╱K╱ // 0x818 @0xf
0x0809…0826 at0010 = ╱ef╱$╱ // 0x819 @0x10
0x0809…0826 at0011 = ╱ed╱(╱ // 0x81a @0x11
0x0809…0826 at0012 = ╱45╱E╱ // 0x81b @0x12
0x0809…0826 at0013 = ╱f0╱:╱ // 0x81c @0x13
0x0809…0826 at0014 = ╱32╱2╱ // 0x81d @0x14
0x0809…0826 at0015 = ╱30╱0╱ // 0x81e @0x15
0x0809…0826 at0016 = ╱fe0000a005╱ // 0x81f @0x16
0x0809…0826 at001b = ╱ee╱)╱ // 0x824 @0x1b
0x0809…0826 at001c = EOL // 0x825 @0x1c
0x0809…0826 }
0x0826…0834 958b 0810 EXEC GEMKPOST
0x0826…0834 LineComalBin {
0x0826…0834 ptr = 0x958b // 0x826 @0x0
0x0826…0834 lno = 0x032a // 0x828 @0x2
0x0826…0834 at0004 = ╱9d╱ EXEC ╱ // 0x82a @0x4
0x0826…0834 at0005 = ╱47╱G╱ // 0x82b @0x5
0x0826…0834 at0006 = ╱45╱E╱ // 0x82c @0x6
0x0826…0834 at0007 = ╱4d╱M╱ // 0x82d @0x7
0x0826…0834 at0008 = ╱4b╱K╱ // 0x82e @0x8
0x0826…0834 at0009 = ╱50╱P╱ // 0x82f @0x9
0x0826…0834 at000a = ╱4f╱O╱ // 0x830 @0xa
0x0826…0834 at000b = ╱53╱S╱ // 0x831 @0xb
0x0826…0834 at000c = ╱54╱T╱ // 0x832 @0xc
0x0826…0834 at000d = EOL // 0x833 @0xd
0x0826…0834 }
0x0834…085a 95b1 0820 EXEC SLETPOST(KTAB,AKRE,NØGLE3,KPIL3)
0x0834…085a LineComalBin {
0x0834…085a ptr = 0x95b1 // 0x834 @0x0
0x0834…085a lno = 0x0334 // 0x836 @0x2
0x0834…085a at0004 = ╱9d╱ EXEC ╱ // 0x838 @0x4
0x0834…085a at0005 = ╱53╱S╱ // 0x839 @0x5
0x0834…085a at0006 = ╱4c╱L╱ // 0x83a @0x6
0x0834…085a at0007 = ╱45╱E╱ // 0x83b @0x7
0x0834…085a at0008 = ╱54╱T╱ // 0x83c @0x8
0x0834…085a at0009 = ╱50╱P╱ // 0x83d @0x9
0x0834…085a at000a = ╱4f╱O╱ // 0x83e @0xa
0x0834…085a at000b = ╱53╱S╱ // 0x83f @0xb
0x0834…085a at000c = ╱54╱T╱ // 0x840 @0xc
0x0834…085a at000d = ╱ed╱(╱ // 0x841 @0xd
0x0834…085a at000e = ╱4b╱K╱ // 0x842 @0xe
0x0834…085a at000f = ╱54╱T╱ // 0x843 @0xf
0x0834…085a at0010 = ╱41╱A╱ // 0x844 @0x10
0x0834…085a at0011 = ╱42╱B╱ // 0x845 @0x11
0x0834…085a at0012 = ╱ec╱,╱ // 0x846 @0x12
0x0834…085a at0013 = ╱41╱A╱ // 0x847 @0x13
0x0834…085a at0014 = ╱4b╱K╱ // 0x848 @0x14
0x0834…085a at0015 = ╱52╱R╱ // 0x849 @0x15
0x0834…085a at0016 = ╱45╱E╱ // 0x84a @0x16
0x0834…085a at0017 = ╱ec╱,╱ // 0x84b @0x17
0x0834…085a at0018 = ╱4e╱N╱ // 0x84c @0x18
0x0834…085a at0019 = ╱5c╱Ø╱ // 0x84d @0x19
0x0834…085a at001a = ╱47╱G╱ // 0x84e @0x1a
0x0834…085a at001b = ╱4c╱L╱ // 0x84f @0x1b
0x0834…085a at001c = ╱45╱E╱ // 0x850 @0x1c
0x0834…085a at001d = ╱33╱3╱ // 0x851 @0x1d
0x0834…085a at001e = ╱ec╱,╱ // 0x852 @0x1e
0x0834…085a at001f = ╱4b╱K╱ // 0x853 @0x1f
0x0834…085a at0020 = ╱50╱P╱ // 0x854 @0x20
0x0834…085a at0021 = ╱49╱I╱ // 0x855 @0x21
0x0834…085a at0022 = ╱4c╱L╱ // 0x856 @0x22
0x0834…085a at0023 = ╱33╱3╱ // 0x857 @0x23
0x0834…085a at0024 = ╱ee╱)╱ // 0x858 @0x24
0x0834…085a at0025 = EOL // 0x859 @0x25
0x0834…085a }
0x085a…0860 95b7 0830 ENDPROC
0x085a…0860 LineComalBin {
0x085a…0860 ptr = 0x95b7 // 0x85a @0x0
0x085a…0860 lno = 0x033e // 0x85c @0x2
0x085a…0860 at0004 = ╱9f╱ ENDPROC ╱ // 0x85e @0x4
0x085a…0860 at0005 = EOL // 0x85f @0x5
0x085a…0860 }
0x0860…0884 95db 0840 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)
0x0860…0884 LineComalBin {
0x0860…0884 ptr = 0x95db // 0x860 @0x0
0x0860…0884 lno = 0x0348 // 0x862 @0x2
0x0860…0884 at0004 = ╱9e╱ PROC ╱ // 0x864 @0x4
0x0860…0884 at0005 = ╱49╱I╱ // 0x865 @0x5
0x0860…0884 at0006 = ╱4e╱N╱ // 0x866 @0x6
0x0860…0884 at0007 = ╱44╱D╱ // 0x867 @0x7
0x0860…0884 at0008 = ╱53╱S╱ // 0x868 @0x8
0x0860…0884 at0009 = ╱5b╱Æ╱ // 0x869 @0x9
0x0860…0884 at000a = ╱54╱T╱ // 0x86a @0xa
0x0860…0884 at000b = ╱ed╱(╱ // 0x86b @0xb
0x0860…0884 at000c = ╱54╱T╱ // 0x86c @0xc
0x0860…0884 at000d = ╱41╱A╱ // 0x86d @0xd
0x0860…0884 at000e = ╱42╱B╱ // 0x86e @0xe
0x0860…0884 at000f = ╱32╱2╱ // 0x86f @0xf
0x0860…0884 at0010 = ╱ec╱,╱ // 0x870 @0x10
0x0860…0884 at0011 = ╱41╱A╱ // 0x871 @0x11
0x0860…0884 at0012 = ╱4e╱N╱ // 0x872 @0x12
0x0860…0884 at0013 = ╱54╱T╱ // 0x873 @0x13
0x0860…0884 at0014 = ╱41╱A╱ // 0x874 @0x14
0x0860…0884 at0015 = ╱4c╱L╱ // 0x875 @0x15
0x0860…0884 at0016 = ╱32╱2╱ // 0x876 @0x16
0x0860…0884 at0017 = ╱ec╱,╱ // 0x877 @0x17
0x0860…0884 at0018 = ╱4e╱N╱ // 0x878 @0x18
0x0860…0884 at0019 = ╱5c╱Ø╱ // 0x879 @0x19
0x0860…0884 at001a = ╱47╱G╱ // 0x87a @0x1a
0x0860…0884 at001b = ╱4c╱L╱ // 0x87b @0x1b
0x0860…0884 at001c = ╱32╱2╱ // 0x87c @0x1c
0x0860…0884 at001d = ╱ec╱,╱ // 0x87d @0x1d
0x0860…0884 at001e = ╱50╱P╱ // 0x87e @0x1e
0x0860…0884 at001f = ╱49╱I╱ // 0x87f @0x1f
0x0860…0884 at0020 = ╱4c╱L╱ // 0x880 @0x20
0x0860…0884 at0021 = ╱34╱4╱ // 0x881 @0x21
0x0860…0884 at0022 = ╱ee╱)╱ // 0x882 @0x22
0x0860…0884 at0023 = EOL // 0x883 @0x23
0x0860…0884 }
0x0884…0891 95e8 0850 IF CEKS=E THEN
0x0884…0891 LineComalBin {
0x0884…0891 ptr = 0x95e8 // 0x884 @0x0
0x0884…0891 lno = 0x0352 // 0x886 @0x2
0x0884…0891 at0004 = ╱9c╱ IF ╱ // 0x888 @0x4
0x0884…0891 at0005 = ╱43╱C╱ // 0x889 @0x5
0x0884…0891 at0006 = ╱45╱E╱ // 0x88a @0x6
0x0884…0891 at0007 = ╱4b╱K╱ // 0x88b @0x7
0x0884…0891 at0008 = ╱53╱S╱ // 0x88c @0x8
0x0884…0891 at0009 = ╱dc╱=╱ // 0x88d @0x9
0x0884…0891 at000a = ╱45╱E╱ // 0x88e @0xa
0x0884…0891 at000b = ╱b6╱ THEN ╱ // 0x88f @0xb
0x0884…0891 at000c = EOL // 0x890 @0xc
0x0884…0891 }
0x0891…08ad 9604 0860 POSTNR=TAB2(ANTAL2+E,G)
0x0891…08ad LineComalBin {
0x0891…08ad ptr = 0x9604 // 0x891 @0x0
0x0891…08ad lno = 0x035c // 0x893 @0x2
0x0891…08ad at0004 = ╱50╱P╱ // 0x895 @0x4
0x0891…08ad at0005 = ╱4f╱O╱ // 0x896 @0x5
0x0891…08ad at0006 = ╱53╱S╱ // 0x897 @0x6
0x0891…08ad at0007 = ╱54╱T╱ // 0x898 @0x7
0x0891…08ad at0008 = ╱4e╱N╱ // 0x899 @0x8
0x0891…08ad at0009 = ╱52╱R╱ // 0x89a @0x9
0x0891…08ad at000a = ╱dc╱=╱ // 0x89b @0xa
0x0891…08ad at000b = ╱54╱T╱ // 0x89c @0xb
0x0891…08ad at000c = ╱41╱A╱ // 0x89d @0xc
0x0891…08ad at000d = ╱42╱B╱ // 0x89e @0xd
0x0891…08ad at000e = ╱32╱2╱ // 0x89f @0xe
0x0891…08ad at000f = ╱ed╱(╱ // 0x8a0 @0xf
0x0891…08ad at0010 = ╱41╱A╱ // 0x8a1 @0x10
0x0891…08ad at0011 = ╱4e╱N╱ // 0x8a2 @0x11
0x0891…08ad at0012 = ╱54╱T╱ // 0x8a3 @0x12
0x0891…08ad at0013 = ╱41╱A╱ // 0x8a4 @0x13
0x0891…08ad at0014 = ╱4c╱L╱ // 0x8a5 @0x14
0x0891…08ad at0015 = ╱32╱2╱ // 0x8a6 @0x15
0x0891…08ad at0016 = ╱e2╱+╱ // 0x8a7 @0x16
0x0891…08ad at0017 = ╱45╱E╱ // 0x8a8 @0x17
0x0891…08ad at0018 = ╱ec╱,╱ // 0x8a9 @0x18
0x0891…08ad at0019 = ╱47╱G╱ // 0x8aa @0x19
0x0891…08ad at001a = ╱ee╱)╱ // 0x8ab @0x1a
0x0891…08ad at001b = EOL // 0x8ac @0x1b
0x0891…08ad }
0x08ad…08eb 9642 0870 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E
0x08ad…08eb LineComalBin {
0x08ad…08eb ptr = 0x9642 // 0x8ad @0x0
0x08ad…08eb lno = 0x0366 // 0x8af @0x2
0x08ad…08eb at0004 = ╱82╱ IF ╱ // 0x8b1 @0x4
0x08ad…08eb at0005 = ╱4e╱N╱ // 0x8b2 @0x5
0x08ad…08eb at0006 = ╱5c╱Ø╱ // 0x8b3 @0x6
0x08ad…08eb at0007 = ╱47╱G╱ // 0x8b4 @0x7
0x08ad…08eb at0008 = ╱4c╱L╱ // 0x8b5 @0x8
0x08ad…08eb at0009 = ╱32╱2╱ // 0x8b6 @0x9
0x08ad…08eb at000a = ╱de╱>╱ // 0x8b7 @0xa
0x08ad…08eb at000b = ╱54╱T╱ // 0x8b8 @0xb
0x08ad…08eb at000c = ╱41╱A╱ // 0x8b9 @0xc
0x08ad…08eb at000d = ╱42╱B╱ // 0x8ba @0xd
0x08ad…08eb at000e = ╱32╱2╱ // 0x8bb @0xe
0x08ad…08eb at000f = ╱ed╱(╱ // 0x8bc @0xf
0x08ad…08eb at0010 = ╱50╱P╱ // 0x8bd @0x10
0x08ad…08eb at0011 = ╱49╱I╱ // 0x8be @0x11
0x08ad…08eb at0012 = ╱4c╱L╱ // 0x8bf @0x12
0x08ad…08eb at0013 = ╱34╱4╱ // 0x8c0 @0x13
0x08ad…08eb at0014 = ╱ec╱,╱ // 0x8c1 @0x14
0x08ad…08eb at0015 = ╱45╱E╱ // 0x8c2 @0x15
0x08ad…08eb at0016 = ╱ee╱)╱ // 0x8c3 @0x16
0x08ad…08eb at0017 = ╱da╱ AND ╱ // 0x8c4 @0x17
0x08ad…08eb at0018 = ╱54╱T╱ // 0x8c5 @0x18
0x08ad…08eb at0019 = ╱41╱A╱ // 0x8c6 @0x19
0x08ad…08eb at001a = ╱42╱B╱ // 0x8c7 @0x1a
0x08ad…08eb at001b = ╱32╱2╱ // 0x8c8 @0x1b
0x08ad…08eb at001c = ╱ed╱(╱ // 0x8c9 @0x1c
0x08ad…08eb at001d = ╱50╱P╱ // 0x8ca @0x1d
0x08ad…08eb at001e = ╱49╱I╱ // 0x8cb @0x1e
0x08ad…08eb at001f = ╱4c╱L╱ // 0x8cc @0x1f
0x08ad…08eb at0020 = ╱34╱4╱ // 0x8cd @0x20
0x08ad…08eb at0021 = ╱ec╱,╱ // 0x8ce @0x21
0x08ad…08eb at0022 = ╱45╱E╱ // 0x8cf @0x22
0x08ad…08eb at0023 = ╱ee╱)╱ // 0x8d0 @0x23
0x08ad…08eb at0024 = ╱e1╱<>╱ // 0x8d1 @0x24
0x08ad…08eb at0025 = ╱31╱1╱ // 0x8d2 @0x25
0x08ad…08eb at0026 = ╱30╱0╱ // 0x8d3 @0x26
0x08ad…08eb at0027 = ╱30╱0╱ // 0x8d4 @0x27
0x08ad…08eb at0028 = ╱30╱0╱ // 0x8d5 @0x28
0x08ad…08eb at0029 = ╱30╱0╱ // 0x8d6 @0x29
0x08ad…08eb at002a = ╱30╱0╱ // 0x8d7 @0x2a
0x08ad…08eb at002b = ╱30╱0╱ // 0x8d8 @0x2b
0x08ad…08eb at002c = ╱fe0024f414╱ // 0x8d9 @0x2c
0x08ad…08eb at0031 = ╱b6╱ THEN ╱ // 0x8de @0x31
0x08ad…08eb at0032 = ╱50╱P╱ // 0x8df @0x32
0x08ad…08eb at0033 = ╱49╱I╱ // 0x8e0 @0x33
0x08ad…08eb at0034 = ╱4c╱L╱ // 0x8e1 @0x34
0x08ad…08eb at0035 = ╱34╱4╱ // 0x8e2 @0x35
0x08ad…08eb at0036 = ╱dc╱=╱ // 0x8e3 @0x36
0x08ad…08eb at0037 = ╱50╱P╱ // 0x8e4 @0x37
0x08ad…08eb at0038 = ╱49╱I╱ // 0x8e5 @0x38
0x08ad…08eb at0039 = ╱4c╱L╱ // 0x8e6 @0x39
0x08ad…08eb at003a = ╱34╱4╱ // 0x8e7 @0x3a
0x08ad…08eb at003b = ╱e2╱+╱ // 0x8e8 @0x3b
0x08ad…08eb at003c = ╱45╱E╱ // 0x8e9 @0x3c
0x08ad…08eb at003d = EOL // 0x8ea @0x3d
0x08ad…08eb }
0x08eb…0905 965c 0880 FOR J=ANTAL2+E TO PIL4+E STEP -E
0x08eb…0905 LineComalBin {
0x08eb…0905 ptr = 0x965c // 0x8eb @0x0
0x08eb…0905 lno = 0x0370 // 0x8ed @0x2
0x08eb…0905 at0004 = ╱83╱ FOR ╱ // 0x8ef @0x4
0x08eb…0905 at0005 = ╱4a╱J╱ // 0x8f0 @0x5
0x08eb…0905 at0006 = ╱dc╱=╱ // 0x8f1 @0x6
0x08eb…0905 at0007 = ╱41╱A╱ // 0x8f2 @0x7
0x08eb…0905 at0008 = ╱4e╱N╱ // 0x8f3 @0x8
0x08eb…0905 at0009 = ╱54╱T╱ // 0x8f4 @0x9
0x08eb…0905 at000a = ╱41╱A╱ // 0x8f5 @0xa
0x08eb…0905 at000b = ╱4c╱L╱ // 0x8f6 @0xb
0x08eb…0905 at000c = ╱32╱2╱ // 0x8f7 @0xc
0x08eb…0905 at000d = ╱e2╱+╱ // 0x8f8 @0xd
0x08eb…0905 at000e = ╱45╱E╱ // 0x8f9 @0xe
0x08eb…0905 at000f = ╱b7╱ TO ╱ // 0x8fa @0xf
0x08eb…0905 at0010 = ╱50╱P╱ // 0x8fb @0x10
0x08eb…0905 at0011 = ╱49╱I╱ // 0x8fc @0x11
0x08eb…0905 at0012 = ╱4c╱L╱ // 0x8fd @0x12
0x08eb…0905 at0013 = ╱34╱4╱ // 0x8fe @0x13
0x08eb…0905 at0014 = ╱e2╱+╱ // 0x8ff @0x14
0x08eb…0905 at0015 = ╱45╱E╱ // 0x900 @0x15
0x08eb…0905 at0016 = ╱b8╱ STEP ╱ // 0x901 @0x16
0x08eb…0905 at0017 = ╱e9╱-╱ // 0x902 @0x17
0x08eb…0905 at0018 = ╱45╱E╱ // 0x903 @0x18
0x08eb…0905 at0019 = EOL // 0x904 @0x19
0x08eb…0905 }
0x0905…091f 9676 0890 TAB2(J,E)=TAB2(J-E,E)
0x0905…091f LineComalBin {
0x0905…091f ptr = 0x9676 // 0x905 @0x0
0x0905…091f lno = 0x037a // 0x907 @0x2
0x0905…091f at0004 = ╱54╱T╱ // 0x909 @0x4
0x0905…091f at0005 = ╱41╱A╱ // 0x90a @0x5
0x0905…091f at0006 = ╱42╱B╱ // 0x90b @0x6
0x0905…091f at0007 = ╱32╱2╱ // 0x90c @0x7
0x0905…091f at0008 = ╱ed╱(╱ // 0x90d @0x8
0x0905…091f at0009 = ╱4a╱J╱ // 0x90e @0x9
0x0905…091f at000a = ╱ec╱,╱ // 0x90f @0xa
0x0905…091f at000b = ╱45╱E╱ // 0x910 @0xb
0x0905…091f at000c = ╱ee╱)╱ // 0x911 @0xc
0x0905…091f at000d = ╱dc╱=╱ // 0x912 @0xd
0x0905…091f at000e = ╱54╱T╱ // 0x913 @0xe
0x0905…091f at000f = ╱41╱A╱ // 0x914 @0xf
0x0905…091f at0010 = ╱42╱B╱ // 0x915 @0x10
0x0905…091f at0011 = ╱32╱2╱ // 0x916 @0x11
0x0905…091f at0012 = ╱ed╱(╱ // 0x917 @0x12
0x0905…091f at0013 = ╱4a╱J╱ // 0x918 @0x13
0x0905…091f at0014 = ╱e3╱-╱ // 0x919 @0x14
0x0905…091f at0015 = ╱45╱E╱ // 0x91a @0x15
0x0905…091f at0016 = ╱ec╱,╱ // 0x91b @0x16
0x0905…091f at0017 = ╱45╱E╱ // 0x91c @0x17
0x0905…091f at0018 = ╱ee╱)╱ // 0x91d @0x18
0x0905…091f at0019 = EOL // 0x91e @0x19
0x0905…091f }
0x091f…0939 9690 0900 TAB2(J,G)=TAB2(J-E,G)
0x091f…0939 LineComalBin {
0x091f…0939 ptr = 0x9690 // 0x91f @0x0
0x091f…0939 lno = 0x0384 // 0x921 @0x2
0x091f…0939 at0004 = ╱54╱T╱ // 0x923 @0x4
0x091f…0939 at0005 = ╱41╱A╱ // 0x924 @0x5
0x091f…0939 at0006 = ╱42╱B╱ // 0x925 @0x6
0x091f…0939 at0007 = ╱32╱2╱ // 0x926 @0x7
0x091f…0939 at0008 = ╱ed╱(╱ // 0x927 @0x8
0x091f…0939 at0009 = ╱4a╱J╱ // 0x928 @0x9
0x091f…0939 at000a = ╱ec╱,╱ // 0x929 @0xa
0x091f…0939 at000b = ╱47╱G╱ // 0x92a @0xb
0x091f…0939 at000c = ╱ee╱)╱ // 0x92b @0xc
0x091f…0939 at000d = ╱dc╱=╱ // 0x92c @0xd
0x091f…0939 at000e = ╱54╱T╱ // 0x92d @0xe
0x091f…0939 at000f = ╱41╱A╱ // 0x92e @0xf
0x091f…0939 at0010 = ╱42╱B╱ // 0x92f @0x10
0x091f…0939 at0011 = ╱32╱2╱ // 0x930 @0x11
0x091f…0939 at0012 = ╱ed╱(╱ // 0x931 @0x12
0x091f…0939 at0013 = ╱4a╱J╱ // 0x932 @0x13
0x091f…0939 at0014 = ╱e3╱-╱ // 0x933 @0x14
0x091f…0939 at0015 = ╱45╱E╱ // 0x934 @0x15
0x091f…0939 at0016 = ╱ec╱,╱ // 0x935 @0x16
0x091f…0939 at0017 = ╱47╱G╱ // 0x936 @0x17
0x091f…0939 at0018 = ╱ee╱)╱ // 0x937 @0x18
0x091f…0939 at0019 = EOL // 0x938 @0x19
0x091f…0939 }
0x0939…0940 9697 0910 NEXT J
0x0939…0940 LineComalBin {
0x0939…0940 ptr = 0x9697 // 0x939 @0x0
0x0939…0940 lno = 0x038e // 0x93b @0x2
0x0939…0940 at0004 = ╱84╱ NEXT ╱ // 0x93d @0x4
0x0939…0940 at0005 = ╱4a╱J╱ // 0x93e @0x5
0x0939…0940 at0006 = EOL // 0x93f @0x6
0x0939…0940 }
0x0940…0957 96ae 0920 TAB2(PIL4,E)=NØGL2
0x0940…0957 LineComalBin {
0x0940…0957 ptr = 0x96ae // 0x940 @0x0
0x0940…0957 lno = 0x0398 // 0x942 @0x2
0x0940…0957 at0004 = ╱54╱T╱ // 0x944 @0x4
0x0940…0957 at0005 = ╱41╱A╱ // 0x945 @0x5
0x0940…0957 at0006 = ╱42╱B╱ // 0x946 @0x6
0x0940…0957 at0007 = ╱32╱2╱ // 0x947 @0x7
0x0940…0957 at0008 = ╱ed╱(╱ // 0x948 @0x8
0x0940…0957 at0009 = ╱50╱P╱ // 0x949 @0x9
0x0940…0957 at000a = ╱49╱I╱ // 0x94a @0xa
0x0940…0957 at000b = ╱4c╱L╱ // 0x94b @0xb
0x0940…0957 at000c = ╱34╱4╱ // 0x94c @0xc
0x0940…0957 at000d = ╱ec╱,╱ // 0x94d @0xd
0x0940…0957 at000e = ╱45╱E╱ // 0x94e @0xe
0x0940…0957 at000f = ╱ee╱)╱ // 0x94f @0xf
0x0940…0957 at0010 = ╱dc╱=╱ // 0x950 @0x10
0x0940…0957 at0011 = ╱4e╱N╱ // 0x951 @0x11
0x0940…0957 at0012 = ╱5c╱Ø╱ // 0x952 @0x12
0x0940…0957 at0013 = ╱47╱G╱ // 0x953 @0x13
0x0940…0957 at0014 = ╱4c╱L╱ // 0x954 @0x14
0x0940…0957 at0015 = ╱32╱2╱ // 0x955 @0x15
0x0940…0957 at0016 = EOL // 0x956 @0x16
0x0940…0957 }
0x0957…096f 96c6 0930 TAB2(PIL4,G)=POSTNR
0x0957…096f LineComalBin {
0x0957…096f ptr = 0x96c6 // 0x957 @0x0
0x0957…096f lno = 0x03a2 // 0x959 @0x2
0x0957…096f at0004 = ╱54╱T╱ // 0x95b @0x4
0x0957…096f at0005 = ╱41╱A╱ // 0x95c @0x5
0x0957…096f at0006 = ╱42╱B╱ // 0x95d @0x6
0x0957…096f at0007 = ╱32╱2╱ // 0x95e @0x7
0x0957…096f at0008 = ╱ed╱(╱ // 0x95f @0x8
0x0957…096f at0009 = ╱50╱P╱ // 0x960 @0x9
0x0957…096f at000a = ╱49╱I╱ // 0x961 @0xa
0x0957…096f at000b = ╱4c╱L╱ // 0x962 @0xb
0x0957…096f at000c = ╱34╱4╱ // 0x963 @0xc
0x0957…096f at000d = ╱ec╱,╱ // 0x964 @0xd
0x0957…096f at000e = ╱47╱G╱ // 0x965 @0xe
0x0957…096f at000f = ╱ee╱)╱ // 0x966 @0xf
0x0957…096f at0010 = ╱dc╱=╱ // 0x967 @0x10
0x0957…096f at0011 = ╱50╱P╱ // 0x968 @0x11
0x0957…096f at0012 = ╱4f╱O╱ // 0x969 @0x12
0x0957…096f at0013 = ╱53╱S╱ // 0x96a @0x13
0x0957…096f at0014 = ╱54╱T╱ // 0x96b @0x14
0x0957…096f at0015 = ╱4e╱N╱ // 0x96c @0x15
0x0957…096f at0016 = ╱52╱R╱ // 0x96d @0x16
0x0957…096f at0017 = EOL // 0x96e @0x17
0x0957…096f }
0x096f…0983 96da 0940 ANTAL2=ANTAL2+E
0x096f…0983 LineComalBin {
0x096f…0983 ptr = 0x96da // 0x96f @0x0
0x096f…0983 lno = 0x03ac // 0x971 @0x2
0x096f…0983 at0004 = ╱41╱A╱ // 0x973 @0x4
0x096f…0983 at0005 = ╱4e╱N╱ // 0x974 @0x5
0x096f…0983 at0006 = ╱54╱T╱ // 0x975 @0x6
0x096f…0983 at0007 = ╱41╱A╱ // 0x976 @0x7
0x096f…0983 at0008 = ╱4c╱L╱ // 0x977 @0x8
0x096f…0983 at0009 = ╱32╱2╱ // 0x978 @0x9
0x096f…0983 at000a = ╱dc╱=╱ // 0x979 @0xa
0x096f…0983 at000b = ╱41╱A╱ // 0x97a @0xb
0x096f…0983 at000c = ╱4e╱N╱ // 0x97b @0xc
0x096f…0983 at000d = ╱54╱T╱ // 0x97c @0xd
0x096f…0983 at000e = ╱41╱A╱ // 0x97d @0xe
0x096f…0983 at000f = ╱4c╱L╱ // 0x97e @0xf
0x096f…0983 at0010 = ╱32╱2╱ // 0x97f @0x10
0x096f…0983 at0011 = ╱e2╱+╱ // 0x980 @0x11
0x096f…0983 at0012 = ╱45╱E╱ // 0x981 @0x12
0x096f…0983 at0013 = EOL // 0x982 @0x13
0x096f…0983 }
0x0983…0989 96e0 0950 ENDIF
0x0983…0989 LineComalBin {
0x0983…0989 ptr = 0x96e0 // 0x983 @0x0
0x0983…0989 lno = 0x03b6 // 0x985 @0x2
0x0983…0989 at0004 = ╱9b╱ ENDIF ╱ // 0x987 @0x4
0x0983…0989 at0005 = EOL // 0x988 @0x5
0x0983…0989 }
0x0989…098f 96e6 0960 ENDPROC
0x0989…098f LineComalBin {
0x0989…098f ptr = 0x96e6 // 0x989 @0x0
0x0989…098f lno = 0x03c0 // 0x98b @0x2
0x0989…098f at0004 = ╱9f╱ ENDPROC ╱ // 0x98d @0x4
0x0989…098f at0005 = EOL // 0x98e @0x5
0x0989…098f }
0x098f…09b5 970c 0970 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)
0x098f…09b5 LineComalBin {
0x098f…09b5 ptr = 0x970c // 0x98f @0x0
0x098f…09b5 lno = 0x03ca // 0x991 @0x2
0x098f…09b5 at0004 = ╱9e╱ PROC ╱ // 0x993 @0x4
0x098f…09b5 at0005 = ╱53╱S╱ // 0x994 @0x5
0x098f…09b5 at0006 = ╱4c╱L╱ // 0x995 @0x6
0x098f…09b5 at0007 = ╱45╱E╱ // 0x996 @0x7
0x098f…09b5 at0008 = ╱54╱T╱ // 0x997 @0x8
0x098f…09b5 at0009 = ╱50╱P╱ // 0x998 @0x9
0x098f…09b5 at000a = ╱4f╱O╱ // 0x999 @0xa
0x098f…09b5 at000b = ╱53╱S╱ // 0x99a @0xb
0x098f…09b5 at000c = ╱54╱T╱ // 0x99b @0xc
0x098f…09b5 at000d = ╱ed╱(╱ // 0x99c @0xd
0x098f…09b5 at000e = ╱54╱T╱ // 0x99d @0xe
0x098f…09b5 at000f = ╱41╱A╱ // 0x99e @0xf
0x098f…09b5 at0010 = ╱42╱B╱ // 0x99f @0x10
0x098f…09b5 at0011 = ╱33╱3╱ // 0x9a0 @0x11
0x098f…09b5 at0012 = ╱ec╱,╱ // 0x9a1 @0x12
0x098f…09b5 at0013 = ╱41╱A╱ // 0x9a2 @0x13
0x098f…09b5 at0014 = ╱4e╱N╱ // 0x9a3 @0x14
0x098f…09b5 at0015 = ╱54╱T╱ // 0x9a4 @0x15
0x098f…09b5 at0016 = ╱41╱A╱ // 0x9a5 @0x16
0x098f…09b5 at0017 = ╱4c╱L╱ // 0x9a6 @0x17
0x098f…09b5 at0018 = ╱33╱3╱ // 0x9a7 @0x18
0x098f…09b5 at0019 = ╱ec╱,╱ // 0x9a8 @0x19
0x098f…09b5 at001a = ╱4e╱N╱ // 0x9a9 @0x1a
0x098f…09b5 at001b = ╱5c╱Ø╱ // 0x9aa @0x1b
0x098f…09b5 at001c = ╱47╱G╱ // 0x9ab @0x1c
0x098f…09b5 at001d = ╱4c╱L╱ // 0x9ac @0x1d
0x098f…09b5 at001e = ╱33╱3╱ // 0x9ad @0x1e
0x098f…09b5 at001f = ╱ec╱,╱ // 0x9ae @0x1f
0x098f…09b5 at0020 = ╱50╱P╱ // 0x9af @0x20
0x098f…09b5 at0021 = ╱49╱I╱ // 0x9b0 @0x21
0x098f…09b5 at0022 = ╱4c╱L╱ // 0x9b1 @0x22
0x098f…09b5 at0023 = ╱35╱5╱ // 0x9b2 @0x23
0x098f…09b5 at0024 = ╱ee╱)╱ // 0x9b3 @0x24
0x098f…09b5 at0025 = EOL // 0x9b4 @0x25
0x098f…09b5 }
0x09b5…09c2 9719 0980 IF CEKS=B THEN
0x09b5…09c2 LineComalBin {
0x09b5…09c2 ptr = 0x9719 // 0x9b5 @0x0
0x09b5…09c2 lno = 0x03d4 // 0x9b7 @0x2
0x09b5…09c2 at0004 = ╱9c╱ IF ╱ // 0x9b9 @0x4
0x09b5…09c2 at0005 = ╱43╱C╱ // 0x9ba @0x5
0x09b5…09c2 at0006 = ╱45╱E╱ // 0x9bb @0x6
0x09b5…09c2 at0007 = ╱4b╱K╱ // 0x9bc @0x7
0x09b5…09c2 at0008 = ╱53╱S╱ // 0x9bd @0x8
0x09b5…09c2 at0009 = ╱dc╱=╱ // 0x9be @0x9
0x09b5…09c2 at000a = ╱42╱B╱ // 0x9bf @0xa
0x09b5…09c2 at000b = ╱b6╱ THEN ╱ // 0x9c0 @0xb
0x09b5…09c2 at000c = EOL // 0x9c1 @0xc
0x09b5…09c2 }
0x09c2…09da 9731 0990 POSTNR=TAB3(PIL5,G)
0x09c2…09da LineComalBin {
0x09c2…09da ptr = 0x9731 // 0x9c2 @0x0
0x09c2…09da lno = 0x03de // 0x9c4 @0x2
0x09c2…09da at0004 = ╱50╱P╱ // 0x9c6 @0x4
0x09c2…09da at0005 = ╱4f╱O╱ // 0x9c7 @0x5
0x09c2…09da at0006 = ╱53╱S╱ // 0x9c8 @0x6
0x09c2…09da at0007 = ╱54╱T╱ // 0x9c9 @0x7
0x09c2…09da at0008 = ╱4e╱N╱ // 0x9ca @0x8
0x09c2…09da at0009 = ╱52╱R╱ // 0x9cb @0x9
0x09c2…09da at000a = ╱dc╱=╱ // 0x9cc @0xa
0x09c2…09da at000b = ╱54╱T╱ // 0x9cd @0xb
0x09c2…09da at000c = ╱41╱A╱ // 0x9ce @0xc
0x09c2…09da at000d = ╱42╱B╱ // 0x9cf @0xd
0x09c2…09da at000e = ╱33╱3╱ // 0x9d0 @0xe
0x09c2…09da at000f = ╱ed╱(╱ // 0x9d1 @0xf
0x09c2…09da at0010 = ╱50╱P╱ // 0x9d2 @0x10
0x09c2…09da at0011 = ╱49╱I╱ // 0x9d3 @0x11
0x09c2…09da at0012 = ╱4c╱L╱ // 0x9d4 @0x12
0x09c2…09da at0013 = ╱35╱5╱ // 0x9d5 @0x13
0x09c2…09da at0014 = ╱ec╱,╱ // 0x9d6 @0x14
0x09c2…09da at0015 = ╱47╱G╱ // 0x9d7 @0x15
0x09c2…09da at0016 = ╱ee╱)╱ // 0x9d8 @0x16
0x09c2…09da at0017 = EOL // 0x9d9 @0x17
0x09c2…09da }
0x09da…09ef 9746 1000 FOR I=PIL5 TO ANTAL3-E
0x09da…09ef LineComalBin {
0x09da…09ef ptr = 0x9746 // 0x9da @0x0
0x09da…09ef lno = 0x03e8 // 0x9dc @0x2
0x09da…09ef at0004 = ╱83╱ FOR ╱ // 0x9de @0x4
0x09da…09ef at0005 = ╱49╱I╱ // 0x9df @0x5
0x09da…09ef at0006 = ╱dc╱=╱ // 0x9e0 @0x6
0x09da…09ef at0007 = ╱50╱P╱ // 0x9e1 @0x7
0x09da…09ef at0008 = ╱49╱I╱ // 0x9e2 @0x8
0x09da…09ef at0009 = ╱4c╱L╱ // 0x9e3 @0x9
0x09da…09ef at000a = ╱35╱5╱ // 0x9e4 @0xa
0x09da…09ef at000b = ╱b7╱ TO ╱ // 0x9e5 @0xb
0x09da…09ef at000c = ╱41╱A╱ // 0x9e6 @0xc
0x09da…09ef at000d = ╱4e╱N╱ // 0x9e7 @0xd
0x09da…09ef at000e = ╱54╱T╱ // 0x9e8 @0xe
0x09da…09ef at000f = ╱41╱A╱ // 0x9e9 @0xf
0x09da…09ef at0010 = ╱4c╱L╱ // 0x9ea @0x10
0x09da…09ef at0011 = ╱33╱3╱ // 0x9eb @0x11
0x09da…09ef at0012 = ╱e3╱-╱ // 0x9ec @0x12
0x09da…09ef at0013 = ╱45╱E╱ // 0x9ed @0x13
0x09da…09ef at0014 = EOL // 0x9ee @0x14
0x09da…09ef }
0x09ef…0a09 9760 1010 TAB3(I,E)=TAB3(I+E,E)
0x09ef…0a09 LineComalBin {
0x09ef…0a09 ptr = 0x9760 // 0x9ef @0x0
0x09ef…0a09 lno = 0x03f2 // 0x9f1 @0x2
0x09ef…0a09 at0004 = ╱54╱T╱ // 0x9f3 @0x4
0x09ef…0a09 at0005 = ╱41╱A╱ // 0x9f4 @0x5
0x09ef…0a09 at0006 = ╱42╱B╱ // 0x9f5 @0x6
0x09ef…0a09 at0007 = ╱33╱3╱ // 0x9f6 @0x7
0x09ef…0a09 at0008 = ╱ed╱(╱ // 0x9f7 @0x8
0x09ef…0a09 at0009 = ╱49╱I╱ // 0x9f8 @0x9
0x09ef…0a09 at000a = ╱ec╱,╱ // 0x9f9 @0xa
0x09ef…0a09 at000b = ╱45╱E╱ // 0x9fa @0xb
0x09ef…0a09 at000c = ╱ee╱)╱ // 0x9fb @0xc
0x09ef…0a09 at000d = ╱dc╱=╱ // 0x9fc @0xd
0x09ef…0a09 at000e = ╱54╱T╱ // 0x9fd @0xe
0x09ef…0a09 at000f = ╱41╱A╱ // 0x9fe @0xf
0x09ef…0a09 at0010 = ╱42╱B╱ // 0x9ff @0x10
0x09ef…0a09 at0011 = ╱33╱3╱ // 0xa00 @0x11
0x09ef…0a09 at0012 = ╱ed╱(╱ // 0xa01 @0x12
0x09ef…0a09 at0013 = ╱49╱I╱ // 0xa02 @0x13
0x09ef…0a09 at0014 = ╱e2╱+╱ // 0xa03 @0x14
0x09ef…0a09 at0015 = ╱45╱E╱ // 0xa04 @0x15
0x09ef…0a09 at0016 = ╱ec╱,╱ // 0xa05 @0x16
0x09ef…0a09 at0017 = ╱45╱E╱ // 0xa06 @0x17
0x09ef…0a09 at0018 = ╱ee╱)╱ // 0xa07 @0x18
0x09ef…0a09 at0019 = EOL // 0xa08 @0x19
0x09ef…0a09 }
0x0a09…0a23 977a 1020 TAB3(I,G)=TAB3(I+E,G)
0x0a09…0a23 LineComalBin {
0x0a09…0a23 ptr = 0x977a // 0xa09 @0x0
0x0a09…0a23 lno = 0x03fc // 0xa0b @0x2
0x0a09…0a23 at0004 = ╱54╱T╱ // 0xa0d @0x4
0x0a09…0a23 at0005 = ╱41╱A╱ // 0xa0e @0x5
0x0a09…0a23 at0006 = ╱42╱B╱ // 0xa0f @0x6
0x0a09…0a23 at0007 = ╱33╱3╱ // 0xa10 @0x7
0x0a09…0a23 at0008 = ╱ed╱(╱ // 0xa11 @0x8
0x0a09…0a23 at0009 = ╱49╱I╱ // 0xa12 @0x9
0x0a09…0a23 at000a = ╱ec╱,╱ // 0xa13 @0xa
0x0a09…0a23 at000b = ╱47╱G╱ // 0xa14 @0xb
0x0a09…0a23 at000c = ╱ee╱)╱ // 0xa15 @0xc
0x0a09…0a23 at000d = ╱dc╱=╱ // 0xa16 @0xd
0x0a09…0a23 at000e = ╱54╱T╱ // 0xa17 @0xe
0x0a09…0a23 at000f = ╱41╱A╱ // 0xa18 @0xf
0x0a09…0a23 at0010 = ╱42╱B╱ // 0xa19 @0x10
0x0a09…0a23 at0011 = ╱33╱3╱ // 0xa1a @0x11
0x0a09…0a23 at0012 = ╱ed╱(╱ // 0xa1b @0x12
0x0a09…0a23 at0013 = ╱49╱I╱ // 0xa1c @0x13
0x0a09…0a23 at0014 = ╱e2╱+╱ // 0xa1d @0x14
0x0a09…0a23 at0015 = ╱45╱E╱ // 0xa1e @0x15
0x0a09…0a23 at0016 = ╱ec╱,╱ // 0xa1f @0x16
0x0a09…0a23 at0017 = ╱47╱G╱ // 0xa20 @0x17
0x0a09…0a23 at0018 = ╱ee╱)╱ // 0xa21 @0x18
0x0a09…0a23 at0019 = EOL // 0xa22 @0x19
0x0a09…0a23 }
0x0a23…0a2a 9781 1030 NEXT I
0x0a23…0a2a LineComalBin {
0x0a23…0a2a ptr = 0x9781 // 0xa23 @0x0
0x0a23…0a2a lno = 0x0406 // 0xa25 @0x2
0x0a23…0a2a at0004 = ╱84╱ NEXT ╱ // 0xa27 @0x4
0x0a23…0a2a at0005 = ╱49╱I╱ // 0xa28 @0x5
0x0a23…0a2a at0006 = EOL // 0xa29 @0x6
0x0a23…0a2a }
0x0a2a…0a4a 97a1 1040 TAB3(ANTAL3,E)=1000000
0x0a2a…0a4a LineComalBin {
0x0a2a…0a4a ptr = 0x97a1 // 0xa2a @0x0
0x0a2a…0a4a lno = 0x0410 // 0xa2c @0x2
0x0a2a…0a4a at0004 = ╱54╱T╱ // 0xa2e @0x4
0x0a2a…0a4a at0005 = ╱41╱A╱ // 0xa2f @0x5
0x0a2a…0a4a at0006 = ╱42╱B╱ // 0xa30 @0x6
0x0a2a…0a4a at0007 = ╱33╱3╱ // 0xa31 @0x7
0x0a2a…0a4a at0008 = ╱ed╱(╱ // 0xa32 @0x8
0x0a2a…0a4a at0009 = ╱41╱A╱ // 0xa33 @0x9
0x0a2a…0a4a at000a = ╱4e╱N╱ // 0xa34 @0xa
0x0a2a…0a4a at000b = ╱54╱T╱ // 0xa35 @0xb
0x0a2a…0a4a at000c = ╱41╱A╱ // 0xa36 @0xc
0x0a2a…0a4a at000d = ╱4c╱L╱ // 0xa37 @0xd
0x0a2a…0a4a at000e = ╱33╱3╱ // 0xa38 @0xe
0x0a2a…0a4a at000f = ╱ec╱,╱ // 0xa39 @0xf
0x0a2a…0a4a at0010 = ╱45╱E╱ // 0xa3a @0x10
0x0a2a…0a4a at0011 = ╱ee╱)╱ // 0xa3b @0x11
0x0a2a…0a4a at0012 = ╱dc╱=╱ // 0xa3c @0x12
0x0a2a…0a4a at0013 = ╱31╱1╱ // 0xa3d @0x13
0x0a2a…0a4a at0014 = ╱30╱0╱ // 0xa3e @0x14
0x0a2a…0a4a at0015 = ╱30╱0╱ // 0xa3f @0x15
0x0a2a…0a4a at0016 = ╱30╱0╱ // 0xa40 @0x16
0x0a2a…0a4a at0017 = ╱30╱0╱ // 0xa41 @0x17
0x0a2a…0a4a at0018 = ╱30╱0╱ // 0xa42 @0x18
0x0a2a…0a4a at0019 = ╱30╱0╱ // 0xa43 @0x19
0x0a2a…0a4a at001a = ╱fe0024f414╱ // 0xa44 @0x1a
0x0a2a…0a4a at001f = EOL // 0xa49 @0x1f
0x0a2a…0a4a }
0x0a4a…0a64 97bb 1050 TAB3(ANTAL3,G)=POSTNR
0x0a4a…0a64 LineComalBin {
0x0a4a…0a64 ptr = 0x97bb // 0xa4a @0x0
0x0a4a…0a64 lno = 0x041a // 0xa4c @0x2
0x0a4a…0a64 at0004 = ╱54╱T╱ // 0xa4e @0x4
0x0a4a…0a64 at0005 = ╱41╱A╱ // 0xa4f @0x5
0x0a4a…0a64 at0006 = ╱42╱B╱ // 0xa50 @0x6
0x0a4a…0a64 at0007 = ╱33╱3╱ // 0xa51 @0x7
0x0a4a…0a64 at0008 = ╱ed╱(╱ // 0xa52 @0x8
0x0a4a…0a64 at0009 = ╱41╱A╱ // 0xa53 @0x9
0x0a4a…0a64 at000a = ╱4e╱N╱ // 0xa54 @0xa
0x0a4a…0a64 at000b = ╱54╱T╱ // 0xa55 @0xb
0x0a4a…0a64 at000c = ╱41╱A╱ // 0xa56 @0xc
0x0a4a…0a64 at000d = ╱4c╱L╱ // 0xa57 @0xd
0x0a4a…0a64 at000e = ╱33╱3╱ // 0xa58 @0xe
0x0a4a…0a64 at000f = ╱ec╱,╱ // 0xa59 @0xf
0x0a4a…0a64 at0010 = ╱47╱G╱ // 0xa5a @0x10
0x0a4a…0a64 at0011 = ╱ee╱)╱ // 0xa5b @0x11
0x0a4a…0a64 at0012 = ╱dc╱=╱ // 0xa5c @0x12
0x0a4a…0a64 at0013 = ╱50╱P╱ // 0xa5d @0x13
0x0a4a…0a64 at0014 = ╱4f╱O╱ // 0xa5e @0x14
0x0a4a…0a64 at0015 = ╱53╱S╱ // 0xa5f @0x15
0x0a4a…0a64 at0016 = ╱54╱T╱ // 0xa60 @0x16
0x0a4a…0a64 at0017 = ╱4e╱N╱ // 0xa61 @0x17
0x0a4a…0a64 at0018 = ╱52╱R╱ // 0xa62 @0x18
0x0a4a…0a64 at0019 = EOL // 0xa63 @0x19
0x0a4a…0a64 }
0x0a64…0a78 97cf 1060 ANTAL3=ANTAL3-E
0x0a64…0a78 LineComalBin {
0x0a64…0a78 ptr = 0x97cf // 0xa64 @0x0
0x0a64…0a78 lno = 0x0424 // 0xa66 @0x2
0x0a64…0a78 at0004 = ╱41╱A╱ // 0xa68 @0x4
0x0a64…0a78 at0005 = ╱4e╱N╱ // 0xa69 @0x5
0x0a64…0a78 at0006 = ╱54╱T╱ // 0xa6a @0x6
0x0a64…0a78 at0007 = ╱41╱A╱ // 0xa6b @0x7
0x0a64…0a78 at0008 = ╱4c╱L╱ // 0xa6c @0x8
0x0a64…0a78 at0009 = ╱33╱3╱ // 0xa6d @0x9
0x0a64…0a78 at000a = ╱dc╱=╱ // 0xa6e @0xa
0x0a64…0a78 at000b = ╱41╱A╱ // 0xa6f @0xb
0x0a64…0a78 at000c = ╱4e╱N╱ // 0xa70 @0xc
0x0a64…0a78 at000d = ╱54╱T╱ // 0xa71 @0xd
0x0a64…0a78 at000e = ╱41╱A╱ // 0xa72 @0xe
0x0a64…0a78 at000f = ╱4c╱L╱ // 0xa73 @0xf
0x0a64…0a78 at0010 = ╱33╱3╱ // 0xa74 @0x10
0x0a64…0a78 at0011 = ╱e3╱-╱ // 0xa75 @0x11
0x0a64…0a78 at0012 = ╱45╱E╱ // 0xa76 @0x12
0x0a64…0a78 at0013 = EOL // 0xa77 @0x13
0x0a64…0a78 }
0x0a78…0a7e 97d5 1070 ENDIF
0x0a78…0a7e LineComalBin {
0x0a78…0a7e ptr = 0x97d5 // 0xa78 @0x0
0x0a78…0a7e lno = 0x042e // 0xa7a @0x2
0x0a78…0a7e at0004 = ╱9b╱ ENDIF ╱ // 0xa7c @0x4
0x0a78…0a7e at0005 = EOL // 0xa7d @0x5
0x0a78…0a7e }
0x0a7e…0a84 97db 1080 ENDPROC
0x0a7e…0a84 LineComalBin {
0x0a7e…0a84 ptr = 0x97db // 0xa7e @0x0
0x0a7e…0a84 lno = 0x0438 // 0xa80 @0x2
0x0a7e…0a84 at0004 = ╱9f╱ ENDPROC ╱ // 0xa82 @0x4
0x0a7e…0a84 at0005 = EOL // 0xa83 @0x5
0x0a7e…0a84 }
0x0a84…0a93 97ea 1090 PROC HENTKPOST
0x0a84…0a93 LineComalBin {
0x0a84…0a93 ptr = 0x97ea // 0xa84 @0x0
0x0a84…0a93 lno = 0x0442 // 0xa86 @0x2
0x0a84…0a93 at0004 = ╱9e╱ PROC ╱ // 0xa88 @0x4
0x0a84…0a93 at0005 = ╱48╱H╱ // 0xa89 @0x5
0x0a84…0a93 at0006 = ╱45╱E╱ // 0xa8a @0x6
0x0a84…0a93 at0007 = ╱4e╱N╱ // 0xa8b @0x7
0x0a84…0a93 at0008 = ╱54╱T╱ // 0xa8c @0x8
0x0a84…0a93 at0009 = ╱4b╱K╱ // 0xa8d @0x9
0x0a84…0a93 at000a = ╱50╱P╱ // 0xa8e @0xa
0x0a84…0a93 at000b = ╱4f╱O╱ // 0xa8f @0xb
0x0a84…0a93 at000c = ╱53╱S╱ // 0xa90 @0xc
0x0a84…0a93 at000d = ╱54╱T╱ // 0xa91 @0xd
0x0a84…0a93 at000e = EOL // 0xa92 @0xe
0x0a84…0a93 }
0x0a93…0aa7 97fe 1100 S=KTAB(KPIL3,G)
0x0a93…0aa7 LineComalBin {
0x0a93…0aa7 ptr = 0x97fe // 0xa93 @0x0
0x0a93…0aa7 lno = 0x044c // 0xa95 @0x2
0x0a93…0aa7 at0004 = ╱53╱S╱ // 0xa97 @0x4
0x0a93…0aa7 at0005 = ╱dc╱=╱ // 0xa98 @0x5
0x0a93…0aa7 at0006 = ╱4b╱K╱ // 0xa99 @0x6
0x0a93…0aa7 at0007 = ╱54╱T╱ // 0xa9a @0x7
0x0a93…0aa7 at0008 = ╱41╱A╱ // 0xa9b @0x8
0x0a93…0aa7 at0009 = ╱42╱B╱ // 0xa9c @0x9
0x0a93…0aa7 at000a = ╱ed╱(╱ // 0xa9d @0xa
0x0a93…0aa7 at000b = ╱4b╱K╱ // 0xa9e @0xb
0x0a93…0aa7 at000c = ╱50╱P╱ // 0xa9f @0xc
0x0a93…0aa7 at000d = ╱49╱I╱ // 0xaa0 @0xd
0x0a93…0aa7 at000e = ╱4c╱L╱ // 0xaa1 @0xe
0x0a93…0aa7 at000f = ╱33╱3╱ // 0xaa2 @0xf
0x0a93…0aa7 at0010 = ╱ec╱,╱ // 0xaa3 @0x10
0x0a93…0aa7 at0011 = ╱47╱G╱ // 0xaa4 @0x11
0x0a93…0aa7 at0012 = ╱ee╱)╱ // 0xaa5 @0x12
0x0a93…0aa7 at0013 = EOL // 0xaa6 @0x13
0x0a93…0aa7 }
0x0aa7…0aca 9821 1110 GET K3$,S:KRENR,KRENAVN$,KREGADE$
0x0aa7…0aca LineComalBin {
0x0aa7…0aca ptr = 0x9821 // 0xaa7 @0x0
0x0aa7…0aca lno = 0x0456 // 0xaa9 @0x2
0x0aa7…0aca at0004 = ╱a9╱ GET ╱ // 0xaab @0x4
0x0aa7…0aca at0005 = ╱4b╱K╱ // 0xaac @0x5
0x0aa7…0aca at0006 = ╱33╱3╱ // 0xaad @0x6
0x0aa7…0aca at0007 = ╱ef╱$╱ // 0xaae @0x7
0x0aa7…0aca at0008 = ╱ec╱,╱ // 0xaaf @0x8
0x0aa7…0aca at0009 = ╱53╱S╱ // 0xab0 @0x9
0x0aa7…0aca at000a = ╱f0╱:╱ // 0xab1 @0xa
0x0aa7…0aca at000b = ╱4b╱K╱ // 0xab2 @0xb
0x0aa7…0aca at000c = ╱52╱R╱ // 0xab3 @0xc
0x0aa7…0aca at000d = ╱45╱E╱ // 0xab4 @0xd
0x0aa7…0aca at000e = ╱4e╱N╱ // 0xab5 @0xe
0x0aa7…0aca at000f = ╱52╱R╱ // 0xab6 @0xf
0x0aa7…0aca at0010 = ╱ec╱,╱ // 0xab7 @0x10
0x0aa7…0aca at0011 = ╱4b╱K╱ // 0xab8 @0x11
0x0aa7…0aca at0012 = ╱52╱R╱ // 0xab9 @0x12
0x0aa7…0aca at0013 = ╱45╱E╱ // 0xaba @0x13
0x0aa7…0aca at0014 = ╱4e╱N╱ // 0xabb @0x14
0x0aa7…0aca at0015 = ╱41╱A╱ // 0xabc @0x15
0x0aa7…0aca at0016 = ╱56╱V╱ // 0xabd @0x16
0x0aa7…0aca at0017 = ╱4e╱N╱ // 0xabe @0x17
0x0aa7…0aca at0018 = ╱ef╱$╱ // 0xabf @0x18
0x0aa7…0aca at0019 = ╱ec╱,╱ // 0xac0 @0x19
0x0aa7…0aca at001a = ╱4b╱K╱ // 0xac1 @0x1a
0x0aa7…0aca at001b = ╱52╱R╱ // 0xac2 @0x1b
0x0aa7…0aca at001c = ╱45╱E╱ // 0xac3 @0x1c
0x0aa7…0aca at001d = ╱47╱G╱ // 0xac4 @0x1d
0x0aa7…0aca at001e = ╱41╱A╱ // 0xac5 @0x1e
0x0aa7…0aca at001f = ╱44╱D╱ // 0xac6 @0x1f
0x0aa7…0aca at0020 = ╱45╱E╱ // 0xac7 @0x20
0x0aa7…0aca at0021 = ╱ef╱$╱ // 0xac8 @0x21
0x0aa7…0aca at0022 = EOL // 0xac9 @0x22
0x0aa7…0aca }
0x0aca…0ae2 9839 1120 EXEC FEJL(8,G,K3$)
0x0aca…0ae2 LineComalBin {
0x0aca…0ae2 ptr = 0x9839 // 0xaca @0x0
0x0aca…0ae2 lno = 0x0460 // 0xacc @0x2
0x0aca…0ae2 at0004 = ╱9d╱ EXEC ╱ // 0xace @0x4
0x0aca…0ae2 at0005 = ╱46╱F╱ // 0xacf @0x5
0x0aca…0ae2 at0006 = ╱45╱E╱ // 0xad0 @0x6
0x0aca…0ae2 at0007 = ╱4a╱J╱ // 0xad1 @0x7
0x0aca…0ae2 at0008 = ╱4c╱L╱ // 0xad2 @0x8
0x0aca…0ae2 at0009 = ╱ed╱(╱ // 0xad3 @0x9
0x0aca…0ae2 at000a = ╱38╱8╱ // 0xad4 @0xa
0x0aca…0ae2 at000b = ╱fe00008004╱ // 0xad5 @0xb
0x0aca…0ae2 at0010 = ╱ec╱,╱ // 0xada @0x10
0x0aca…0ae2 at0011 = ╱47╱G╱ // 0xadb @0x11
0x0aca…0ae2 at0012 = ╱ec╱,╱ // 0xadc @0x12
0x0aca…0ae2 at0013 = ╱4b╱K╱ // 0xadd @0x13
0x0aca…0ae2 at0014 = ╱33╱3╱ // 0xade @0x14
0x0aca…0ae2 at0015 = ╱ef╱$╱ // 0xadf @0x15
0x0aca…0ae2 at0016 = ╱ee╱)╱ // 0xae0 @0x16
0x0aca…0ae2 at0017 = EOL // 0xae1 @0x17
0x0aca…0ae2 }
0x0ae2…0afd 9854 1130 IF KRENR<>KTAB(KPIL3,E) THEN STOP
0x0ae2…0afd LineComalBin {
0x0ae2…0afd ptr = 0x9854 // 0xae2 @0x0
0x0ae2…0afd lno = 0x046a // 0xae4 @0x2
0x0ae2…0afd at0004 = ╱82╱ IF ╱ // 0xae6 @0x4
0x0ae2…0afd at0005 = ╱4b╱K╱ // 0xae7 @0x5
0x0ae2…0afd at0006 = ╱52╱R╱ // 0xae8 @0x6
0x0ae2…0afd at0007 = ╱45╱E╱ // 0xae9 @0x7
0x0ae2…0afd at0008 = ╱4e╱N╱ // 0xaea @0x8
0x0ae2…0afd at0009 = ╱52╱R╱ // 0xaeb @0x9
0x0ae2…0afd at000a = ╱e1╱<>╱ // 0xaec @0xa
0x0ae2…0afd at000b = ╱4b╱K╱ // 0xaed @0xb
0x0ae2…0afd at000c = ╱54╱T╱ // 0xaee @0xc
0x0ae2…0afd at000d = ╱41╱A╱ // 0xaef @0xd
0x0ae2…0afd at000e = ╱42╱B╱ // 0xaf0 @0xe
0x0ae2…0afd at000f = ╱ed╱(╱ // 0xaf1 @0xf
0x0ae2…0afd at0010 = ╱4b╱K╱ // 0xaf2 @0x10
0x0ae2…0afd at0011 = ╱50╱P╱ // 0xaf3 @0x11
0x0ae2…0afd at0012 = ╱49╱I╱ // 0xaf4 @0x12
0x0ae2…0afd at0013 = ╱4c╱L╱ // 0xaf5 @0x13
0x0ae2…0afd at0014 = ╱33╱3╱ // 0xaf6 @0x14
0x0ae2…0afd at0015 = ╱ec╱,╱ // 0xaf7 @0x15
0x0ae2…0afd at0016 = ╱45╱E╱ // 0xaf8 @0x16
0x0ae2…0afd at0017 = ╱ee╱)╱ // 0xaf9 @0x17
0x0ae2…0afd at0018 = ╱b6╱ THEN ╱ // 0xafa @0x18
0x0ae2…0afd at0019 = ╱8d╱ STOP ╱ // 0xafb @0x19
0x0ae2…0afd at001a = EOL // 0xafc @0x1a
0x0ae2…0afd }
0x0afd…0b3b 9892 1140 GET K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$
0x0afd…0b3b LineComalBin {
0x0afd…0b3b ptr = 0x9892 // 0xafd @0x0
0x0afd…0b3b lno = 0x0474 // 0xaff @0x2
0x0afd…0b3b at0004 = ╱a9╱ GET ╱ // 0xb01 @0x4
0x0afd…0b3b at0005 = ╱4b╱K╱ // 0xb02 @0x5
0x0afd…0b3b at0006 = ╱33╱3╱ // 0xb03 @0x6
0x0afd…0b3b at0007 = ╱ef╱$╱ // 0xb04 @0x7
0x0afd…0b3b at0008 = ╱ec╱,╱ // 0xb05 @0x8
0x0afd…0b3b at0009 = ╱53╱S╱ // 0xb06 @0x9
0x0afd…0b3b at000a = ╱e2╱+╱ // 0xb07 @0xa
0x0afd…0b3b at000b = ╱45╱E╱ // 0xb08 @0xb
0x0afd…0b3b at000c = ╱f0╱:╱ // 0xb09 @0xc
0x0afd…0b3b at000d = ╱4b╱K╱ // 0xb0a @0xd
0x0afd…0b3b at000e = ╱52╱R╱ // 0xb0b @0xe
0x0afd…0b3b at000f = ╱45╱E╱ // 0xb0c @0xf
0x0afd…0b3b at0010 = ╱42╱B╱ // 0xb0d @0x10
0x0afd…0b3b at0011 = ╱59╱Y╱ // 0xb0e @0x11
0x0afd…0b3b at0012 = ╱ef╱$╱ // 0xb0f @0x12
0x0afd…0b3b at0013 = ╱ec╱,╱ // 0xb10 @0x13
0x0afd…0b3b at0014 = ╱4b╱K╱ // 0xb11 @0x14
0x0afd…0b3b at0015 = ╱52╱R╱ // 0xb12 @0x15
0x0afd…0b3b at0016 = ╱45╱E╱ // 0xb13 @0x16
0x0afd…0b3b at0017 = ╱4c╱L╱ // 0xb14 @0x17
0x0afd…0b3b at0018 = ╱4b╱K╱ // 0xb15 @0x18
0x0afd…0b3b at0019 = ╱ef╱$╱ // 0xb16 @0x19
0x0afd…0b3b at001a = ╱ec╱,╱ // 0xb17 @0x1a
0x0afd…0b3b at001b = ╱4b╱K╱ // 0xb18 @0x1b
0x0afd…0b3b at001c = ╱52╱R╱ // 0xb19 @0x1c
0x0afd…0b3b at001d = ╱45╱E╱ // 0xb1a @0x1d
0x0afd…0b3b at001e = ╱47╱G╱ // 0xb1b @0x1e
0x0afd…0b3b at001f = ╱52╱R╱ // 0xb1c @0x1f
0x0afd…0b3b at0020 = ╱ef╱$╱ // 0xb1d @0x20
0x0afd…0b3b at0021 = ╱ec╱,╱ // 0xb1e @0x21
0x0afd…0b3b at0022 = ╱4b╱K╱ // 0xb1f @0x22
0x0afd…0b3b at0023 = ╱52╱R╱ // 0xb20 @0x23
0x0afd…0b3b at0024 = ╱45╱E╱ // 0xb21 @0x24
0x0afd…0b3b at0025 = ╱50╱P╱ // 0xb22 @0x25
0x0afd…0b3b at0026 = ╱4f╱O╱ // 0xb23 @0x26
0x0afd…0b3b at0027 = ╱53╱S╱ // 0xb24 @0x27
0x0afd…0b3b at0028 = ╱54╱T╱ // 0xb25 @0x28
0x0afd…0b3b at0029 = ╱4e╱N╱ // 0xb26 @0x29
0x0afd…0b3b at002a = ╱52╱R╱ // 0xb27 @0x2a
0x0afd…0b3b at002b = ╱ec╱,╱ // 0xb28 @0x2b
0x0afd…0b3b at002c = ╱4b╱K╱ // 0xb29 @0x2c
0x0afd…0b3b at002d = ╱53╱S╱ // 0xb2a @0x2d
0x0afd…0b3b at002e = ╱41╱A╱ // 0xb2b @0x2e
0x0afd…0b3b at002f = ╱4c╱L╱ // 0xb2c @0x2f
0x0afd…0b3b at0030 = ╱44╱D╱ // 0xb2d @0x30
0x0afd…0b3b at0031 = ╱4f╱O╱ // 0xb2e @0x31
0x0afd…0b3b at0032 = ╱31╱1╱ // 0xb2f @0x32
0x0afd…0b3b at0033 = ╱ef╱$╱ // 0xb30 @0x33
0x0afd…0b3b at0034 = ╱ec╱,╱ // 0xb31 @0x34
0x0afd…0b3b at0035 = ╱4b╱K╱ // 0xb32 @0x35
0x0afd…0b3b at0036 = ╱53╱S╱ // 0xb33 @0x36
0x0afd…0b3b at0037 = ╱41╱A╱ // 0xb34 @0x37
0x0afd…0b3b at0038 = ╱4c╱L╱ // 0xb35 @0x38
0x0afd…0b3b at0039 = ╱44╱D╱ // 0xb36 @0x39
0x0afd…0b3b at003a = ╱4f╱O╱ // 0xb37 @0x3a
0x0afd…0b3b at003b = ╱32╱2╱ // 0xb38 @0x3b
0x0afd…0b3b at003c = ╱ef╱$╱ // 0xb39 @0x3c
0x0afd…0b3b at003d = EOL // 0xb3a @0x3d
0x0afd…0b3b }
0x0b3b…0b53 98aa 1150 EXEC FEJL(8,V,K3$)
0x0b3b…0b53 LineComalBin {
0x0b3b…0b53 ptr = 0x98aa // 0xb3b @0x0
0x0b3b…0b53 lno = 0x047e // 0xb3d @0x2
0x0b3b…0b53 at0004 = ╱9d╱ EXEC ╱ // 0xb3f @0x4
0x0b3b…0b53 at0005 = ╱46╱F╱ // 0xb40 @0x5
0x0b3b…0b53 at0006 = ╱45╱E╱ // 0xb41 @0x6
0x0b3b…0b53 at0007 = ╱4a╱J╱ // 0xb42 @0x7
0x0b3b…0b53 at0008 = ╱4c╱L╱ // 0xb43 @0x8
0x0b3b…0b53 at0009 = ╱ed╱(╱ // 0xb44 @0x9
0x0b3b…0b53 at000a = ╱38╱8╱ // 0xb45 @0xa
0x0b3b…0b53 at000b = ╱fe00008004╱ // 0xb46 @0xb
0x0b3b…0b53 at0010 = ╱ec╱,╱ // 0xb4b @0x10
0x0b3b…0b53 at0011 = ╱56╱V╱ // 0xb4c @0x11
0x0b3b…0b53 at0012 = ╱ec╱,╱ // 0xb4d @0x12
0x0b3b…0b53 at0013 = ╱4b╱K╱ // 0xb4e @0x13
0x0b3b…0b53 at0014 = ╱33╱3╱ // 0xb4f @0x14
0x0b3b…0b53 at0015 = ╱ef╱$╱ // 0xb50 @0x15
0x0b3b…0b53 at0016 = ╱ee╱)╱ // 0xb51 @0x16
0x0b3b…0b53 at0017 = EOL // 0xb52 @0x17
0x0b3b…0b53 }
0x0b53…0b59 98b0 1160 ENDPROC
0x0b53…0b59 LineComalBin {
0x0b53…0b59 ptr = 0x98b0 // 0xb53 @0x0
0x0b53…0b59 lno = 0x0488 // 0xb55 @0x2
0x0b53…0b59 at0004 = ╱9f╱ ENDPROC ╱ // 0xb57 @0x4
0x0b53…0b59 at0005 = EOL // 0xb58 @0x5
0x0b53…0b59 }
0x0b59…0b67 98be 1170 PROC GEMKPOST
0x0b59…0b67 LineComalBin {
0x0b59…0b67 ptr = 0x98be // 0xb59 @0x0
0x0b59…0b67 lno = 0x0492 // 0xb5b @0x2
0x0b59…0b67 at0004 = ╱9e╱ PROC ╱ // 0xb5d @0x4
0x0b59…0b67 at0005 = ╱47╱G╱ // 0xb5e @0x5
0x0b59…0b67 at0006 = ╱45╱E╱ // 0xb5f @0x6
0x0b59…0b67 at0007 = ╱4d╱M╱ // 0xb60 @0x7
0x0b59…0b67 at0008 = ╱4b╱K╱ // 0xb61 @0x8
0x0b59…0b67 at0009 = ╱50╱P╱ // 0xb62 @0x9
0x0b59…0b67 at000a = ╱4f╱O╱ // 0xb63 @0xa
0x0b59…0b67 at000b = ╱53╱S╱ // 0xb64 @0xb
0x0b59…0b67 at000c = ╱54╱T╱ // 0xb65 @0xc
0x0b59…0b67 at000d = EOL // 0xb66 @0xd
0x0b59…0b67 }
0x0b67…0b7b 98d2 1180 S=KTAB(KPIL3,G)
0x0b67…0b7b LineComalBin {
0x0b67…0b7b ptr = 0x98d2 // 0xb67 @0x0
0x0b67…0b7b lno = 0x049c // 0xb69 @0x2
0x0b67…0b7b at0004 = ╱53╱S╱ // 0xb6b @0x4
0x0b67…0b7b at0005 = ╱dc╱=╱ // 0xb6c @0x5
0x0b67…0b7b at0006 = ╱4b╱K╱ // 0xb6d @0x6
0x0b67…0b7b at0007 = ╱54╱T╱ // 0xb6e @0x7
0x0b67…0b7b at0008 = ╱41╱A╱ // 0xb6f @0x8
0x0b67…0b7b at0009 = ╱42╱B╱ // 0xb70 @0x9
0x0b67…0b7b at000a = ╱ed╱(╱ // 0xb71 @0xa
0x0b67…0b7b at000b = ╱4b╱K╱ // 0xb72 @0xb
0x0b67…0b7b at000c = ╱50╱P╱ // 0xb73 @0xc
0x0b67…0b7b at000d = ╱49╱I╱ // 0xb74 @0xd
0x0b67…0b7b at000e = ╱4c╱L╱ // 0xb75 @0xe
0x0b67…0b7b at000f = ╱33╱3╱ // 0xb76 @0xf
0x0b67…0b7b at0010 = ╱ec╱,╱ // 0xb77 @0x10
0x0b67…0b7b at0011 = ╱47╱G╱ // 0xb78 @0x11
0x0b67…0b7b at0012 = ╱ee╱)╱ // 0xb79 @0x12
0x0b67…0b7b at0013 = EOL // 0xb7a @0x13
0x0b67…0b7b }
0x0b7b…0b9e 98f5 1190 PUT K3$,S:KRENR,KRENAVN$,KREGADE$
0x0b7b…0b9e LineComalBin {
0x0b7b…0b9e ptr = 0x98f5 // 0xb7b @0x0
0x0b7b…0b9e lno = 0x04a6 // 0xb7d @0x2
0x0b7b…0b9e at0004 = ╱aa╱ PUT ╱ // 0xb7f @0x4
0x0b7b…0b9e at0005 = ╱4b╱K╱ // 0xb80 @0x5
0x0b7b…0b9e at0006 = ╱33╱3╱ // 0xb81 @0x6
0x0b7b…0b9e at0007 = ╱ef╱$╱ // 0xb82 @0x7
0x0b7b…0b9e at0008 = ╱ec╱,╱ // 0xb83 @0x8
0x0b7b…0b9e at0009 = ╱53╱S╱ // 0xb84 @0x9
0x0b7b…0b9e at000a = ╱f0╱:╱ // 0xb85 @0xa
0x0b7b…0b9e at000b = ╱4b╱K╱ // 0xb86 @0xb
0x0b7b…0b9e at000c = ╱52╱R╱ // 0xb87 @0xc
0x0b7b…0b9e at000d = ╱45╱E╱ // 0xb88 @0xd
0x0b7b…0b9e at000e = ╱4e╱N╱ // 0xb89 @0xe
0x0b7b…0b9e at000f = ╱52╱R╱ // 0xb8a @0xf
0x0b7b…0b9e at0010 = ╱ec╱,╱ // 0xb8b @0x10
0x0b7b…0b9e at0011 = ╱4b╱K╱ // 0xb8c @0x11
0x0b7b…0b9e at0012 = ╱52╱R╱ // 0xb8d @0x12
0x0b7b…0b9e at0013 = ╱45╱E╱ // 0xb8e @0x13
0x0b7b…0b9e at0014 = ╱4e╱N╱ // 0xb8f @0x14
0x0b7b…0b9e at0015 = ╱41╱A╱ // 0xb90 @0x15
0x0b7b…0b9e at0016 = ╱56╱V╱ // 0xb91 @0x16
0x0b7b…0b9e at0017 = ╱4e╱N╱ // 0xb92 @0x17
0x0b7b…0b9e at0018 = ╱ef╱$╱ // 0xb93 @0x18
0x0b7b…0b9e at0019 = ╱ec╱,╱ // 0xb94 @0x19
0x0b7b…0b9e at001a = ╱4b╱K╱ // 0xb95 @0x1a
0x0b7b…0b9e at001b = ╱52╱R╱ // 0xb96 @0x1b
0x0b7b…0b9e at001c = ╱45╱E╱ // 0xb97 @0x1c
0x0b7b…0b9e at001d = ╱47╱G╱ // 0xb98 @0x1d
0x0b7b…0b9e at001e = ╱41╱A╱ // 0xb99 @0x1e
0x0b7b…0b9e at001f = ╱44╱D╱ // 0xb9a @0x1f
0x0b7b…0b9e at0020 = ╱45╱E╱ // 0xb9b @0x20
0x0b7b…0b9e at0021 = ╱ef╱$╱ // 0xb9c @0x21
0x0b7b…0b9e at0022 = EOL // 0xb9d @0x22
0x0b7b…0b9e }
0x0b9e…0bb1 9908 1200 EXEC FEJL(W,V,K3$)
0x0b9e…0bb1 LineComalBin {
0x0b9e…0bb1 ptr = 0x9908 // 0xb9e @0x0
0x0b9e…0bb1 lno = 0x04b0 // 0xba0 @0x2
0x0b9e…0bb1 at0004 = ╱9d╱ EXEC ╱ // 0xba2 @0x4
0x0b9e…0bb1 at0005 = ╱46╱F╱ // 0xba3 @0x5
0x0b9e…0bb1 at0006 = ╱45╱E╱ // 0xba4 @0x6
0x0b9e…0bb1 at0007 = ╱4a╱J╱ // 0xba5 @0x7
0x0b9e…0bb1 at0008 = ╱4c╱L╱ // 0xba6 @0x8
0x0b9e…0bb1 at0009 = ╱ed╱(╱ // 0xba7 @0x9
0x0b9e…0bb1 at000a = ╱57╱W╱ // 0xba8 @0xa
0x0b9e…0bb1 at000b = ╱ec╱,╱ // 0xba9 @0xb
0x0b9e…0bb1 at000c = ╱56╱V╱ // 0xbaa @0xc
0x0b9e…0bb1 at000d = ╱ec╱,╱ // 0xbab @0xd
0x0b9e…0bb1 at000e = ╱4b╱K╱ // 0xbac @0xe
0x0b9e…0bb1 at000f = ╱33╱3╱ // 0xbad @0xf
0x0b9e…0bb1 at0010 = ╱ef╱$╱ // 0xbae @0x10
0x0b9e…0bb1 at0011 = ╱ee╱)╱ // 0xbaf @0x11
0x0b9e…0bb1 at0012 = EOL // 0xbb0 @0x12
0x0b9e…0bb1 }
0x0bb1…0bef 9946 1210 PUT K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$
0x0bb1…0bef LineComalBin {
0x0bb1…0bef ptr = 0x9946 // 0xbb1 @0x0
0x0bb1…0bef lno = 0x04ba // 0xbb3 @0x2
0x0bb1…0bef at0004 = ╱aa╱ PUT ╱ // 0xbb5 @0x4
0x0bb1…0bef at0005 = ╱4b╱K╱ // 0xbb6 @0x5
0x0bb1…0bef at0006 = ╱33╱3╱ // 0xbb7 @0x6
0x0bb1…0bef at0007 = ╱ef╱$╱ // 0xbb8 @0x7
0x0bb1…0bef at0008 = ╱ec╱,╱ // 0xbb9 @0x8
0x0bb1…0bef at0009 = ╱53╱S╱ // 0xbba @0x9
0x0bb1…0bef at000a = ╱e2╱+╱ // 0xbbb @0xa
0x0bb1…0bef at000b = ╱45╱E╱ // 0xbbc @0xb
0x0bb1…0bef at000c = ╱f0╱:╱ // 0xbbd @0xc
0x0bb1…0bef at000d = ╱4b╱K╱ // 0xbbe @0xd
0x0bb1…0bef at000e = ╱52╱R╱ // 0xbbf @0xe
0x0bb1…0bef at000f = ╱45╱E╱ // 0xbc0 @0xf
0x0bb1…0bef at0010 = ╱42╱B╱ // 0xbc1 @0x10
0x0bb1…0bef at0011 = ╱59╱Y╱ // 0xbc2 @0x11
0x0bb1…0bef at0012 = ╱ef╱$╱ // 0xbc3 @0x12
0x0bb1…0bef at0013 = ╱ec╱,╱ // 0xbc4 @0x13
0x0bb1…0bef at0014 = ╱4b╱K╱ // 0xbc5 @0x14
0x0bb1…0bef at0015 = ╱52╱R╱ // 0xbc6 @0x15
0x0bb1…0bef at0016 = ╱45╱E╱ // 0xbc7 @0x16
0x0bb1…0bef at0017 = ╱4c╱L╱ // 0xbc8 @0x17
0x0bb1…0bef at0018 = ╱4b╱K╱ // 0xbc9 @0x18
0x0bb1…0bef at0019 = ╱ef╱$╱ // 0xbca @0x19
0x0bb1…0bef at001a = ╱ec╱,╱ // 0xbcb @0x1a
0x0bb1…0bef at001b = ╱4b╱K╱ // 0xbcc @0x1b
0x0bb1…0bef at001c = ╱52╱R╱ // 0xbcd @0x1c
0x0bb1…0bef at001d = ╱45╱E╱ // 0xbce @0x1d
0x0bb1…0bef at001e = ╱47╱G╱ // 0xbcf @0x1e
0x0bb1…0bef at001f = ╱52╱R╱ // 0xbd0 @0x1f
0x0bb1…0bef at0020 = ╱ef╱$╱ // 0xbd1 @0x20
0x0bb1…0bef at0021 = ╱ec╱,╱ // 0xbd2 @0x21
0x0bb1…0bef at0022 = ╱4b╱K╱ // 0xbd3 @0x22
0x0bb1…0bef at0023 = ╱52╱R╱ // 0xbd4 @0x23
0x0bb1…0bef at0024 = ╱45╱E╱ // 0xbd5 @0x24
0x0bb1…0bef at0025 = ╱50╱P╱ // 0xbd6 @0x25
0x0bb1…0bef at0026 = ╱4f╱O╱ // 0xbd7 @0x26
0x0bb1…0bef at0027 = ╱53╱S╱ // 0xbd8 @0x27
0x0bb1…0bef at0028 = ╱54╱T╱ // 0xbd9 @0x28
0x0bb1…0bef at0029 = ╱4e╱N╱ // 0xbda @0x29
0x0bb1…0bef at002a = ╱52╱R╱ // 0xbdb @0x2a
0x0bb1…0bef at002b = ╱ec╱,╱ // 0xbdc @0x2b
0x0bb1…0bef at002c = ╱4b╱K╱ // 0xbdd @0x2c
0x0bb1…0bef at002d = ╱53╱S╱ // 0xbde @0x2d
0x0bb1…0bef at002e = ╱41╱A╱ // 0xbdf @0x2e
0x0bb1…0bef at002f = ╱4c╱L╱ // 0xbe0 @0x2f
0x0bb1…0bef at0030 = ╱44╱D╱ // 0xbe1 @0x30
0x0bb1…0bef at0031 = ╱4f╱O╱ // 0xbe2 @0x31
0x0bb1…0bef at0032 = ╱31╱1╱ // 0xbe3 @0x32
0x0bb1…0bef at0033 = ╱ef╱$╱ // 0xbe4 @0x33
0x0bb1…0bef at0034 = ╱ec╱,╱ // 0xbe5 @0x34
0x0bb1…0bef at0035 = ╱4b╱K╱ // 0xbe6 @0x35
0x0bb1…0bef at0036 = ╱53╱S╱ // 0xbe7 @0x36
0x0bb1…0bef at0037 = ╱41╱A╱ // 0xbe8 @0x37
0x0bb1…0bef at0038 = ╱4c╱L╱ // 0xbe9 @0x38
0x0bb1…0bef at0039 = ╱44╱D╱ // 0xbea @0x39
0x0bb1…0bef at003a = ╱4f╱O╱ // 0xbeb @0x3a
0x0bb1…0bef at003b = ╱32╱2╱ // 0xbec @0x3b
0x0bb1…0bef at003c = ╱ef╱$╱ // 0xbed @0x3c
0x0bb1…0bef at003d = EOL // 0xbee @0x3d
0x0bb1…0bef }
0x0bef…0c07 995e 1220 EXEC FEJL(W,4,K3$)
0x0bef…0c07 LineComalBin {
0x0bef…0c07 ptr = 0x995e // 0xbef @0x0
0x0bef…0c07 lno = 0x04c4 // 0xbf1 @0x2
0x0bef…0c07 at0004 = ╱9d╱ EXEC ╱ // 0xbf3 @0x4
0x0bef…0c07 at0005 = ╱46╱F╱ // 0xbf4 @0x5
0x0bef…0c07 at0006 = ╱45╱E╱ // 0xbf5 @0x6
0x0bef…0c07 at0007 = ╱4a╱J╱ // 0xbf6 @0x7
0x0bef…0c07 at0008 = ╱4c╱L╱ // 0xbf7 @0x8
0x0bef…0c07 at0009 = ╱ed╱(╱ // 0xbf8 @0x9
0x0bef…0c07 at000a = ╱57╱W╱ // 0xbf9 @0xa
0x0bef…0c07 at000b = ╱ec╱,╱ // 0xbfa @0xb
0x0bef…0c07 at000c = ╱34╱4╱ // 0xbfb @0xc
0x0bef…0c07 at000d = ╱fe00008003╱ // 0xbfc @0xd
0x0bef…0c07 at0012 = ╱ec╱,╱ // 0xc01 @0x12
0x0bef…0c07 at0013 = ╱4b╱K╱ // 0xc02 @0x13
0x0bef…0c07 at0014 = ╱33╱3╱ // 0xc03 @0x14
0x0bef…0c07 at0015 = ╱ef╱$╱ // 0xc04 @0x15
0x0bef…0c07 at0016 = ╱ee╱)╱ // 0xc05 @0x16
0x0bef…0c07 at0017 = EOL // 0xc06 @0x17
0x0bef…0c07 }
0x0c07…0c0d 9964 1230 ENDPROC
0x0c07…0c0d LineComalBin {
0x0c07…0c0d ptr = 0x9964 // 0xc07 @0x0
0x0c07…0c0d lno = 0x04ce // 0xc09 @0x2
0x0c07…0c0d at0004 = ╱9f╱ ENDPROC ╱ // 0xc0b @0x4
0x0c07…0c0d at0005 = EOL // 0xc0c @0x5
0x0c07…0c0d }
0x0c0d…0c2e 9985 1240 PROC DINDTAST(KSTYR,CÆND,KRENR2)
0x0c0d…0c2e LineComalBin {
0x0c0d…0c2e ptr = 0x9985 // 0xc0d @0x0
0x0c0d…0c2e lno = 0x04d8 // 0xc0f @0x2
0x0c0d…0c2e at0004 = ╱9e╱ PROC ╱ // 0xc11 @0x4
0x0c0d…0c2e at0005 = ╱44╱D╱ // 0xc12 @0x5
0x0c0d…0c2e at0006 = ╱49╱I╱ // 0xc13 @0x6
0x0c0d…0c2e at0007 = ╱4e╱N╱ // 0xc14 @0x7
0x0c0d…0c2e at0008 = ╱44╱D╱ // 0xc15 @0x8
0x0c0d…0c2e at0009 = ╱54╱T╱ // 0xc16 @0x9
0x0c0d…0c2e at000a = ╱41╱A╱ // 0xc17 @0xa
0x0c0d…0c2e at000b = ╱53╱S╱ // 0xc18 @0xb
0x0c0d…0c2e at000c = ╱54╱T╱ // 0xc19 @0xc
0x0c0d…0c2e at000d = ╱ed╱(╱ // 0xc1a @0xd
0x0c0d…0c2e at000e = ╱4b╱K╱ // 0xc1b @0xe
0x0c0d…0c2e at000f = ╱53╱S╱ // 0xc1c @0xf
0x0c0d…0c2e at0010 = ╱54╱T╱ // 0xc1d @0x10
0x0c0d…0c2e at0011 = ╱59╱Y╱ // 0xc1e @0x11
0x0c0d…0c2e at0012 = ╱52╱R╱ // 0xc1f @0x12
0x0c0d…0c2e at0013 = ╱ec╱,╱ // 0xc20 @0x13
0x0c0d…0c2e at0014 = ╱43╱C╱ // 0xc21 @0x14
0x0c0d…0c2e at0015 = ╱5b╱Æ╱ // 0xc22 @0x15
0x0c0d…0c2e at0016 = ╱4e╱N╱ // 0xc23 @0x16
0x0c0d…0c2e at0017 = ╱44╱D╱ // 0xc24 @0x17
0x0c0d…0c2e at0018 = ╱ec╱,╱ // 0xc25 @0x18
0x0c0d…0c2e at0019 = ╱4b╱K╱ // 0xc26 @0x19
0x0c0d…0c2e at001a = ╱52╱R╱ // 0xc27 @0x1a
0x0c0d…0c2e at001b = ╱45╱E╱ // 0xc28 @0x1b
0x0c0d…0c2e at001c = ╱4e╱N╱ // 0xc29 @0x1c
0x0c0d…0c2e at001d = ╱52╱R╱ // 0xc2a @0x1d
0x0c0d…0c2e at001e = ╱32╱2╱ // 0xc2b @0x1e
0x0c0d…0c2e at001f = ╱ee╱)╱ // 0xc2c @0x1f
0x0c0d…0c2e at0020 = EOL // 0xc2d @0x20
0x0c0d…0c2e }
0x0c2e…0c3b 9992 1250 IF CÆND<>E THEN
0x0c2e…0c3b LineComalBin {
0x0c2e…0c3b ptr = 0x9992 // 0xc2e @0x0
0x0c2e…0c3b lno = 0x04e2 // 0xc30 @0x2
0x0c2e…0c3b at0004 = ╱9c╱ IF ╱ // 0xc32 @0x4
0x0c2e…0c3b at0005 = ╱43╱C╱ // 0xc33 @0x5
0x0c2e…0c3b at0006 = ╱5b╱Æ╱ // 0xc34 @0x6
0x0c2e…0c3b at0007 = ╱4e╱N╱ // 0xc35 @0x7
0x0c2e…0c3b at0008 = ╱44╱D╱ // 0xc36 @0x8
0x0c2e…0c3b at0009 = ╱e1╱<>╱ // 0xc37 @0x9
0x0c2e…0c3b at000a = ╱45╱E╱ // 0xc38 @0xa
0x0c2e…0c3b at000b = ╱b6╱ THEN ╱ // 0xc39 @0xb
0x0c2e…0c3b at000c = EOL // 0xc3a @0xc
0x0c2e…0c3b }
0x0c3b…0c41 9998 1260 CLEAR
0x0c3b…0c41 LineComalBin {
0x0c3b…0c41 ptr = 0x9998 // 0xc3b @0x0
0x0c3b…0c41 lno = 0x04ec // 0xc3d @0x2
0x0c3b…0c41 at0004 = ╱a0╱ CLEAR ╱ // 0xc3f @0x4
0x0c3b…0c41 at0005 = EOL // 0xc40 @0x5
0x0c3b…0c41 }
0x0c41…0c50 99a7 1270 CURSOR 21,E
0x0c41…0c50 LineComalBin {
0x0c41…0c50 ptr = 0x99a7 // 0xc41 @0x0
0x0c41…0c50 lno = 0x04f6 // 0xc43 @0x2
0x0c41…0c50 at0004 = ╱a1╱ CURSOR ╱ // 0xc45 @0x4
0x0c41…0c50 at0005 = ╱32╱2╱ // 0xc46 @0x5
0x0c41…0c50 at0006 = ╱31╱1╱ // 0xc47 @0x6
0x0c41…0c50 at0007 = ╱fe0000a805╱ // 0xc48 @0x7
0x0c41…0c50 at000c = ╱ec╱,╱ // 0xc4d @0xc
0x0c41…0c50 at000d = ╱45╱E╱ // 0xc4e @0xd
0x0c41…0c50 at000e = EOL // 0xc4f @0xe
0x0c41…0c50 }
0x0c50…0c6b 99c2 1280 PRINT "Kreditoroplysninger"
0x0c50…0c6b LineComalBin {
0x0c50…0c6b ptr = 0x99c2 // 0xc50 @0x0
0x0c50…0c6b lno = 0x0500 // 0xc52 @0x2
0x0c50…0c6b at0004 = ╱92╱ PRINT ╱ // 0xc54 @0x4
0x0c50…0c6b at0005 = ╱22╱"╱ // 0xc55 @0x5
0x0c50…0c6b at0006 = ╱4b╱K╱ // 0xc56 @0x6
0x0c50…0c6b at0007 = ╱72╱r╱ // 0xc57 @0x7
0x0c50…0c6b at0008 = ╱65╱e╱ // 0xc58 @0x8
0x0c50…0c6b at0009 = ╱64╱d╱ // 0xc59 @0x9
0x0c50…0c6b at000a = ╱69╱i╱ // 0xc5a @0xa
0x0c50…0c6b at000b = ╱74╱t╱ // 0xc5b @0xb
0x0c50…0c6b at000c = ╱6f╱o╱ // 0xc5c @0xc
0x0c50…0c6b at000d = ╱72╱r╱ // 0xc5d @0xd
0x0c50…0c6b at000e = ╱6f╱o╱ // 0xc5e @0xe
0x0c50…0c6b at000f = ╱70╱p╱ // 0xc5f @0xf
0x0c50…0c6b at0010 = ╱6c╱l╱ // 0xc60 @0x10
0x0c50…0c6b at0011 = ╱79╱y╱ // 0xc61 @0x11
0x0c50…0c6b at0012 = ╱73╱s╱ // 0xc62 @0x12
0x0c50…0c6b at0013 = ╱6e╱n╱ // 0xc63 @0x13
0x0c50…0c6b at0014 = ╱69╱i╱ // 0xc64 @0x14
0x0c50…0c6b at0015 = ╱6e╱n╱ // 0xc65 @0x15
0x0c50…0c6b at0016 = ╱67╱g╱ // 0xc66 @0x16
0x0c50…0c6b at0017 = ╱65╱e╱ // 0xc67 @0x17
0x0c50…0c6b at0018 = ╱72╱r╱ // 0xc68 @0x18
0x0c50…0c6b at0019 = ╱22╱"╱ // 0xc69 @0x19
0x0c50…0c6b at001a = EOL // 0xc6a @0x1a
0x0c50…0c6b }
0x0c6b…0c7a 99d1 1290 EXEC VERSKRIFT
0x0c6b…0c7a LineComalBin {
0x0c6b…0c7a ptr = 0x99d1 // 0xc6b @0x0
0x0c6b…0c7a lno = 0x050a // 0xc6d @0x2
0x0c6b…0c7a at0004 = ╱9d╱ EXEC ╱ // 0xc6f @0x4
0x0c6b…0c7a at0005 = ╱56╱V╱ // 0xc70 @0x5
0x0c6b…0c7a at0006 = ╱45╱E╱ // 0xc71 @0x6
0x0c6b…0c7a at0007 = ╱52╱R╱ // 0xc72 @0x7
0x0c6b…0c7a at0008 = ╱53╱S╱ // 0xc73 @0x8
0x0c6b…0c7a at0009 = ╱4b╱K╱ // 0xc74 @0x9
0x0c6b…0c7a at000a = ╱52╱R╱ // 0xc75 @0xa
0x0c6b…0c7a at000b = ╱49╱I╱ // 0xc76 @0xb
0x0c6b…0c7a at000c = ╱46╱F╱ // 0xc77 @0xc
0x0c6b…0c7a at000d = ╱54╱T╱ // 0xc78 @0xd
0x0c6b…0c7a at000e = EOL // 0xc79 @0xe
0x0c6b…0c7a }
0x0c7a…0c83 99da 1300 CURSOR G,V
0x0c7a…0c83 LineComalBin {
0x0c7a…0c83 ptr = 0x99da // 0xc7a @0x0
0x0c7a…0c83 lno = 0x0514 // 0xc7c @0x2
0x0c7a…0c83 at0004 = ╱a1╱ CURSOR ╱ // 0xc7e @0x4
0x0c7a…0c83 at0005 = ╱47╱G╱ // 0xc7f @0x5
0x0c7a…0c83 at0006 = ╱ec╱,╱ // 0xc80 @0x6
0x0c7a…0c83 at0007 = ╱56╱V╱ // 0xc81 @0x7
0x0c7a…0c83 at0008 = EOL // 0xc82 @0x8
0x0c7a…0c83 }
0x0c83…0c9f 99f6 1310 PRINT "1:Kreditornr:";KRENR2
0x0c83…0c9f LineComalBin {
0x0c83…0c9f ptr = 0x99f6 // 0xc83 @0x0
0x0c83…0c9f lno = 0x051e // 0xc85 @0x2
0x0c83…0c9f at0004 = ╱92╱ PRINT ╱ // 0xc87 @0x4
0x0c83…0c9f at0005 = ╱22╱"╱ // 0xc88 @0x5
0x0c83…0c9f at0006 = ╱31╱1╱ // 0xc89 @0x6
0x0c83…0c9f at0007 = ╱3a╱:╱ // 0xc8a @0x7
0x0c83…0c9f at0008 = ╱4b╱K╱ // 0xc8b @0x8
0x0c83…0c9f at0009 = ╱72╱r╱ // 0xc8c @0x9
0x0c83…0c9f at000a = ╱65╱e╱ // 0xc8d @0xa
0x0c83…0c9f at000b = ╱64╱d╱ // 0xc8e @0xb
0x0c83…0c9f at000c = ╱69╱i╱ // 0xc8f @0xc
0x0c83…0c9f at000d = ╱74╱t╱ // 0xc90 @0xd
0x0c83…0c9f at000e = ╱6f╱o╱ // 0xc91 @0xe
0x0c83…0c9f at000f = ╱72╱r╱ // 0xc92 @0xf
0x0c83…0c9f at0010 = ╱6e╱n╱ // 0xc93 @0x10
0x0c83…0c9f at0011 = ╱72╱r╱ // 0xc94 @0x11
0x0c83…0c9f at0012 = ╱3a╱:╱ // 0xc95 @0x12
0x0c83…0c9f at0013 = ╱22╱"╱ // 0xc96 @0x13
0x0c83…0c9f at0014 = ╱eb╱;╱ // 0xc97 @0x14
0x0c83…0c9f at0015 = ╱4b╱K╱ // 0xc98 @0x15
0x0c83…0c9f at0016 = ╱52╱R╱ // 0xc99 @0x16
0x0c83…0c9f at0017 = ╱45╱E╱ // 0xc9a @0x17
0x0c83…0c9f at0018 = ╱4e╱N╱ // 0xc9b @0x18
0x0c83…0c9f at0019 = ╱52╱R╱ // 0xc9c @0x19
0x0c83…0c9f at001a = ╱32╱2╱ // 0xc9d @0x1a
0x0c83…0c9f at001b = EOL // 0xc9e @0x1b
0x0c83…0c9f }
0x0c9f…0ca5 99fc 1320 ENDIF
0x0c9f…0ca5 LineComalBin {
0x0c9f…0ca5 ptr = 0x99fc // 0xc9f @0x0
0x0c9f…0ca5 lno = 0x0528 // 0xca1 @0x2
0x0c9f…0ca5 at0004 = ╱9b╱ ENDIF ╱ // 0xca3 @0x4
0x0c9f…0ca5 at0005 = EOL // 0xca4 @0x5
0x0c9f…0ca5 }
0x0ca5…0cab 9a02 1330 REPEAT
0x0ca5…0cab LineComalBin {
0x0ca5…0cab ptr = 0x9a02 // 0xca5 @0x0
0x0ca5…0cab lno = 0x0532 // 0xca7 @0x2
0x0ca5…0cab at0004 = ╱97╱ REPEAT ╱ // 0xca9 @0x4
0x0ca5…0cab at0005 = EOL // 0xcaa @0x5
0x0ca5…0cab }
0x0cab…0cb8 9a0f 1340 CASE KSTYR OF
0x0cab…0cb8 LineComalBin {
0x0cab…0cb8 ptr = 0x9a0f // 0xcab @0x0
0x0cab…0cb8 lno = 0x053c // 0xcad @0x2
0x0cab…0cb8 at0004 = ╱a201╱ CASE ╱ // 0xcaf @0x4
0x0cab…0cb8 at0006 = ╱4b╱K╱ // 0xcb1 @0x6
0x0cab…0cb8 at0007 = ╱53╱S╱ // 0xcb2 @0x7
0x0cab…0cb8 at0008 = ╱54╱T╱ // 0xcb3 @0x8
0x0cab…0cb8 at0009 = ╱59╱Y╱ // 0xcb4 @0x9
0x0cab…0cb8 at000a = ╱52╱R╱ // 0xcb5 @0xa
0x0cab…0cb8 at000b = ╱ba╱ OF ╱ // 0xcb6 @0xb
0x0cab…0cb8 at000c = EOL // 0xcb7 @0xc
0x0cab…0cb8 }
0x0cb8…0cbe 9a15 1350 STOP
0x0cb8…0cbe LineComalBin {
0x0cb8…0cbe ptr = 0x9a15 // 0xcb8 @0x0
0x0cb8…0cbe lno = 0x0546 // 0xcba @0x2
0x0cb8…0cbe at0004 = ╱8d╱ STOP ╱ // 0xcbc @0x4
0x0cb8…0cbe at0005 = EOL // 0xcbd @0x5
0x0cb8…0cbe }
0x0cbe…0cc6 9a1d 1360 WHEN G
0x0cbe…0cc6 LineComalBin {
0x0cbe…0cc6 ptr = 0x9a1d // 0xcbe @0x0
0x0cbe…0cc6 lno = 0x0550 // 0xcc0 @0x2
0x0cbe…0cc6 at0004 = ╱a301╱ WHEN ╱ // 0xcc2 @0x4
0x0cbe…0cc6 at0006 = ╱47╱G╱ // 0xcc4 @0x6
0x0cbe…0cc6 at0007 = EOL // 0xcc5 @0x7
0x0cbe…0cc6 }
0x0cc6…0cd3 9a2a 1370 IF CÆND<>E THEN
0x0cc6…0cd3 LineComalBin {
0x0cc6…0cd3 ptr = 0x9a2a // 0xcc6 @0x0
0x0cc6…0cd3 lno = 0x055a // 0xcc8 @0x2
0x0cc6…0cd3 at0004 = ╱9c╱ IF ╱ // 0xcca @0x4
0x0cc6…0cd3 at0005 = ╱43╱C╱ // 0xccb @0x5
0x0cc6…0cd3 at0006 = ╱5b╱Æ╱ // 0xccc @0x6
0x0cc6…0cd3 at0007 = ╱4e╱N╱ // 0xccd @0x7
0x0cc6…0cd3 at0008 = ╱44╱D╱ // 0xcce @0x8
0x0cc6…0cd3 at0009 = ╱e1╱<>╱ // 0xccf @0x9
0x0cc6…0cd3 at000a = ╱45╱E╱ // 0xcd0 @0xa
0x0cc6…0cd3 at000b = ╱b6╱ THEN ╱ // 0xcd1 @0xb
0x0cc6…0cd3 at000c = EOL // 0xcd2 @0xc
0x0cc6…0cd3 }
0x0cd3…0ce1 9a38 1380 CURSOR G,4
0x0cd3…0ce1 LineComalBin {
0x0cd3…0ce1 ptr = 0x9a38 // 0xcd3 @0x0
0x0cd3…0ce1 lno = 0x0564 // 0xcd5 @0x2
0x0cd3…0ce1 at0004 = ╱a1╱ CURSOR ╱ // 0xcd7 @0x4
0x0cd3…0ce1 at0005 = ╱47╱G╱ // 0xcd8 @0x5
0x0cd3…0ce1 at0006 = ╱ec╱,╱ // 0xcd9 @0x6
0x0cd3…0ce1 at0007 = ╱34╱4╱ // 0xcda @0x7
0x0cd3…0ce1 at0008 = ╱fe00008003╱ // 0xcdb @0x8
0x0cd3…0ce1 at000d = EOL // 0xce0 @0xd
0x0cd3…0ce1 }
0x0ce1…0cf6 9a4d 1390 PRINT "2:Navn :"
0x0ce1…0cf6 LineComalBin {
0x0ce1…0cf6 ptr = 0x9a4d // 0xce1 @0x0
0x0ce1…0cf6 lno = 0x056e // 0xce3 @0x2
0x0ce1…0cf6 at0004 = ╱92╱ PRINT ╱ // 0xce5 @0x4
0x0ce1…0cf6 at0005 = ╱22╱"╱ // 0xce6 @0x5
0x0ce1…0cf6 at0006 = ╱32╱2╱ // 0xce7 @0x6
0x0ce1…0cf6 at0007 = ╱3a╱:╱ // 0xce8 @0x7
0x0ce1…0cf6 at0008 = ╱4e╱N╱ // 0xce9 @0x8
0x0ce1…0cf6 at0009 = ╱61╱a╱ // 0xcea @0x9
0x0ce1…0cf6 at000a = ╱76╱v╱ // 0xceb @0xa
0x0ce1…0cf6 at000b = ╱6e╱n╱ // 0xcec @0xb
0x0ce1…0cf6 at000c = ╱20╱…╱ // 0xced @0xc
0x0ce1…0cf6 at000d = ╱20╱…╱ // 0xcee @0xd
0x0ce1…0cf6 at000e = ╱20╱…╱ // 0xcef @0xe
0x0ce1…0cf6 at000f = ╱20╱…╱ // 0xcf0 @0xf
0x0ce1…0cf6 at0010 = ╱20╱…╱ // 0xcf1 @0x10
0x0ce1…0cf6 at0011 = ╱20╱…╱ // 0xcf2 @0x11
0x0ce1…0cf6 at0012 = ╱3a╱:╱ // 0xcf3 @0x12
0x0ce1…0cf6 at0013 = ╱22╱"╱ // 0xcf4 @0x13
0x0ce1…0cf6 at0014 = EOL // 0xcf5 @0x14
0x0ce1…0cf6 }
0x0cf6…0d02 9a59 1400 KSTYR=V
0x0cf6…0d02 LineComalBin {
0x0cf6…0d02 ptr = 0x9a59 // 0xcf6 @0x0
0x0cf6…0d02 lno = 0x0578 // 0xcf8 @0x2
0x0cf6…0d02 at0004 = ╱4b╱K╱ // 0xcfa @0x4
0x0cf6…0d02 at0005 = ╱53╱S╱ // 0xcfb @0x5
0x0cf6…0d02 at0006 = ╱54╱T╱ // 0xcfc @0x6
0x0cf6…0d02 at0007 = ╱59╱Y╱ // 0xcfd @0x7
0x0cf6…0d02 at0008 = ╱52╱R╱ // 0xcfe @0x8
0x0cf6…0d02 at0009 = ╱dc╱=╱ // 0xcff @0x9
0x0cf6…0d02 at000a = ╱56╱V╱ // 0xd00 @0xa
0x0cf6…0d02 at000b = EOL // 0xd01 @0xb
0x0cf6…0d02 }
0x0d02…0d08 9a5f 1410 ENDIF
0x0d02…0d08 LineComalBin {
0x0d02…0d08 ptr = 0x9a5f // 0xd02 @0x0
0x0d02…0d08 lno = 0x0582 // 0xd04 @0x2
0x0d02…0d08 at0004 = ╱9b╱ ENDIF ╱ // 0xd06 @0x4
0x0d02…0d08 at0005 = EOL // 0xd07 @0x5
0x0d02…0d08 }
0x0d08…0d15 9a6c 1420 IF CÆND<>G THEN
0x0d08…0d15 LineComalBin {
0x0d08…0d15 ptr = 0x9a6c // 0xd08 @0x0
0x0d08…0d15 lno = 0x058c // 0xd0a @0x2
0x0d08…0d15 at0004 = ╱9c╱ IF ╱ // 0xd0c @0x4
0x0d08…0d15 at0005 = ╱43╱C╱ // 0xd0d @0x5
0x0d08…0d15 at0006 = ╱5b╱Æ╱ // 0xd0e @0x6
0x0d08…0d15 at0007 = ╱4e╱N╱ // 0xd0f @0x7
0x0d08…0d15 at0008 = ╱44╱D╱ // 0xd10 @0x8
0x0d08…0d15 at0009 = ╱e1╱<>╱ // 0xd11 @0x9
0x0d08…0d15 at000a = ╱47╱G╱ // 0xd12 @0xa
0x0d08…0d15 at000b = ╱b6╱ THEN ╱ // 0xd13 @0xb
0x0d08…0d15 at000c = EOL // 0xd14 @0xc
0x0d08…0d15 }
0x0d15…0d24 9a7b 1430 CURSOR V,23
0x0d15…0d24 LineComalBin {
0x0d15…0d24 ptr = 0x9a7b // 0xd15 @0x0
0x0d15…0d24 lno = 0x0596 // 0xd17 @0x2
0x0d15…0d24 at0004 = ╱a1╱ CURSOR ╱ // 0xd19 @0x4
0x0d15…0d24 at0005 = ╱56╱V╱ // 0xd1a @0x5
0x0d15…0d24 at0006 = ╱ec╱,╱ // 0xd1b @0x6
0x0d15…0d24 at0007 = ╱32╱2╱ // 0xd1c @0x7
0x0d15…0d24 at0008 = ╱33╱3╱ // 0xd1d @0x8
0x0d15…0d24 at0009 = ╱fe0000b805╱ // 0xd1e @0x9
0x0d15…0d24 at000e = EOL // 0xd23 @0xe
0x0d15…0d24 }
0x0d24…0d64 9abb 1440 PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26)
0x0d24…0d64 LineComalBin {
0x0d24…0d64 ptr = 0x9abb // 0xd24 @0x0
0x0d24…0d64 lno = 0x05a0 // 0xd26 @0x2
0x0d24…0d64 at0004 = ╱92╱ PRINT ╱ // 0xd28 @0x4
0x0d24…0d64 at0005 = ╱22╱"╱ // 0xd29 @0x5
0x0d24…0d64 at0006 = ╱4e╱N╱ // 0xd2a @0x6
0x0d24…0d64 at0007 = ╱61╱a╱ // 0xd2b @0x7
0x0d24…0d64 at0008 = ╱76╱v╱ // 0xd2c @0x8
0x0d24…0d64 at0009 = ╱6e╱n╱ // 0xd2d @0x9
0x0d24…0d64 at000a = ╱22╱"╱ // 0xd2e @0xa
0x0d24…0d64 at000b = ╱eb╱;╱ // 0xd2f @0xb
0x0d24…0d64 at000c = ╱42╱B╱ // 0xd30 @0xc
0x0d24…0d64 at000d = ╱4c╱L╱ // 0xd31 @0xd
0x0d24…0d64 at000e = ╱41╱A╱ // 0xd32 @0xe
0x0d24…0d64 at000f = ╱4e╱N╱ // 0xd33 @0xf
0x0d24…0d64 at0010 = ╱4b╱K╱ // 0xd34 @0x10
0x0d24…0d64 at0011 = ╱ef╱$╱ // 0xd35 @0x11
0x0d24…0d64 at0012 = ╱ed╱(╱ // 0xd36 @0x12
0x0d24…0d64 at0013 = ╱45╱E╱ // 0xd37 @0x13
0x0d24…0d64 at0014 = ╱f0╱:╱ // 0xd38 @0x14
0x0d24…0d64 at0015 = ╱33╱3╱ // 0xd39 @0x15
0x0d24…0d64 at0016 = ╱33╱3╱ // 0xd3a @0x16
0x0d24…0d64 at0017 = ╱fe00008406╱ // 0xd3b @0x17
0x0d24…0d64 at001c = ╱ee╱)╱ // 0xd40 @0x1c
0x0d24…0d64 at001d = ╱eb╱;╱ // 0xd41 @0x1d
0x0d24…0d64 at001e = ╱22╱"╱ // 0xd42 @0x1e
0x0d24…0d64 at001f = ╱28╱(╱ // 0xd43 @0x1f
0x0d24…0d64 at0020 = ╱6d╱m╱ // 0xd44 @0x20
0x0d24…0d64 at0021 = ╱61╱a╱ // 0xd45 @0x21
0x0d24…0d64 at0022 = ╱78╱x╱ // 0xd46 @0x22
0x0d24…0d64 at0023 = ╱20╱…╱ // 0xd47 @0x23
0x0d24…0d64 at0024 = ╱32╱2╱ // 0xd48 @0x24
0x0d24…0d64 at0025 = ╱35╱5╱ // 0xd49 @0x25
0x0d24…0d64 at0026 = ╱20╱…╱ // 0xd4a @0x26
0x0d24…0d64 at0027 = ╱74╱t╱ // 0xd4b @0x27
0x0d24…0d64 at0028 = ╱65╱e╱ // 0xd4c @0x28
0x0d24…0d64 at0029 = ╱67╱g╱ // 0xd4d @0x29
0x0d24…0d64 at002a = ╱6e╱n╱ // 0xd4e @0x2a
0x0d24…0d64 at002b = ╱29╱)╱ // 0xd4f @0x2b
0x0d24…0d64 at002c = ╱22╱"╱ // 0xd50 @0x2c
0x0d24…0d64 at002d = ╱eb╱;╱ // 0xd51 @0x2d
0x0d24…0d64 at002e = ╱42╱B╱ // 0xd52 @0x2e
0x0d24…0d64 at002f = ╱4c╱L╱ // 0xd53 @0x2f
0x0d24…0d64 at0030 = ╱41╱A╱ // 0xd54 @0x30
0x0d24…0d64 at0031 = ╱4e╱N╱ // 0xd55 @0x31
0x0d24…0d64 at0032 = ╱4b╱K╱ // 0xd56 @0x32
0x0d24…0d64 at0033 = ╱ef╱$╱ // 0xd57 @0x33
0x0d24…0d64 at0034 = ╱ed╱(╱ // 0xd58 @0x34
0x0d24…0d64 at0035 = ╱45╱E╱ // 0xd59 @0x35
0x0d24…0d64 at0036 = ╱f0╱:╱ // 0xd5a @0x36
0x0d24…0d64 at0037 = ╱32╱2╱ // 0xd5b @0x37
0x0d24…0d64 at0038 = ╱36╱6╱ // 0xd5c @0x38
0x0d24…0d64 at0039 = ╱fe0000d005╱ // 0xd5d @0x39
0x0d24…0d64 at003e = ╱ee╱)╱ // 0xd62 @0x3e
0x0d24…0d64 at003f = EOL // 0xd63 @0x3f
0x0d24…0d64 }
0x0d64…0d79 9ad0 1450 CURSOR 13,23
0x0d64…0d79 LineComalBin {
0x0d64…0d79 ptr = 0x9ad0 // 0xd64 @0x0
0x0d64…0d79 lno = 0x05aa // 0xd66 @0x2
0x0d64…0d79 at0004 = ╱a1╱ CURSOR ╱ // 0xd68 @0x4
0x0d64…0d79 at0005 = ╱31╱1╱ // 0xd69 @0x5
0x0d64…0d79 at0006 = ╱33╱3╱ // 0xd6a @0x6
0x0d64…0d79 at0007 = ╱fe0000d004╱ // 0xd6b @0x7
0x0d64…0d79 at000c = ╱ec╱,╱ // 0xd70 @0xc
0x0d64…0d79 at000d = ╱32╱2╱ // 0xd71 @0xd
0x0d64…0d79 at000e = ╱33╱3╱ // 0xd72 @0xe
0x0d64…0d79 at000f = ╱fe0000b805╱ // 0xd73 @0xf
0x0d64…0d79 at0014 = EOL // 0xd78 @0x14
0x0d64…0d79 }
0x0d79…0d87 9ade 1460 INPUT KRENAVN$
0x0d79…0d87 LineComalBin {
0x0d79…0d87 ptr = 0x9ade // 0xd79 @0x0
0x0d79…0d87 lno = 0x05b4 // 0xd7b @0x2
0x0d79…0d87 at0004 = ╱91╱ INPUT ╱ // 0xd7d @0x4
0x0d79…0d87 at0005 = ╱4b╱K╱ // 0xd7e @0x5
0x0d79…0d87 at0006 = ╱52╱R╱ // 0xd7f @0x6
0x0d79…0d87 at0007 = ╱45╱E╱ // 0xd80 @0x7
0x0d79…0d87 at0008 = ╱4e╱N╱ // 0xd81 @0x8
0x0d79…0d87 at0009 = ╱41╱A╱ // 0xd82 @0x9
0x0d79…0d87 at000a = ╱56╱V╱ // 0xd83 @0xa
0x0d79…0d87 at000b = ╱4e╱N╱ // 0xd84 @0xb
0x0d79…0d87 at000c = ╱ef╱$╱ // 0xd85 @0xc
0x0d79…0d87 at000d = EOL // 0xd86 @0xd
0x0d79…0d87 }
0x0d87…0d8d 9ae4 1470 ENDIF
0x0d87…0d8d LineComalBin {
0x0d87…0d8d ptr = 0x9ae4 // 0xd87 @0x0
0x0d87…0d8d lno = 0x05be // 0xd89 @0x2
0x0d87…0d8d at0004 = ╱9b╱ ENDIF ╱ // 0xd8b @0x4
0x0d87…0d8d at0005 = EOL // 0xd8c @0x5
0x0d87…0d8d }
0x0d8d…0da1 9af8 1480 CURSOR 16,4
0x0d8d…0da1 LineComalBin {
0x0d8d…0da1 ptr = 0x9af8 // 0xd8d @0x0
0x0d8d…0da1 lno = 0x05c8 // 0xd8f @0x2
0x0d8d…0da1 at0004 = ╱a1╱ CURSOR ╱ // 0xd91 @0x4
0x0d8d…0da1 at0005 = ╱31╱1╱ // 0xd92 @0x5
0x0d8d…0da1 at0006 = ╱36╱6╱ // 0xd93 @0x6
0x0d8d…0da1 at0007 = ╱fe00008005╱ // 0xd94 @0x7
0x0d8d…0da1 at000c = ╱ec╱,╱ // 0xd99 @0xc
0x0d8d…0da1 at000d = ╱34╱4╱ // 0xd9a @0xd
0x0d8d…0da1 at000e = ╱fe00008003╱ // 0xd9b @0xe
0x0d8d…0da1 at0013 = EOL // 0xda0 @0x13
0x0d8d…0da1 }
0x0da1…0db8 9b0f 1490 PRINT BLANK$(E:25)
0x0da1…0db8 LineComalBin {
0x0da1…0db8 ptr = 0x9b0f // 0xda1 @0x0
0x0da1…0db8 lno = 0x05d2 // 0xda3 @0x2
0x0da1…0db8 at0004 = ╱92╱ PRINT ╱ // 0xda5 @0x4
0x0da1…0db8 at0005 = ╱42╱B╱ // 0xda6 @0x5
0x0da1…0db8 at0006 = ╱4c╱L╱ // 0xda7 @0x6
0x0da1…0db8 at0007 = ╱41╱A╱ // 0xda8 @0x7
0x0da1…0db8 at0008 = ╱4e╱N╱ // 0xda9 @0x8
0x0da1…0db8 at0009 = ╱4b╱K╱ // 0xdaa @0x9
0x0da1…0db8 at000a = ╱ef╱$╱ // 0xdab @0xa
0x0da1…0db8 at000b = ╱ed╱(╱ // 0xdac @0xb
0x0da1…0db8 at000c = ╱45╱E╱ // 0xdad @0xc
0x0da1…0db8 at000d = ╱f0╱:╱ // 0xdae @0xd
0x0da1…0db8 at000e = ╱32╱2╱ // 0xdaf @0xe
0x0da1…0db8 at000f = ╱35╱5╱ // 0xdb0 @0xf
0x0da1…0db8 at0010 = ╱fe0000c805╱ // 0xdb1 @0x10
0x0da1…0db8 at0015 = ╱ee╱)╱ // 0xdb6 @0x15
0x0da1…0db8 at0016 = EOL // 0xdb7 @0x16
0x0da1…0db8 }
0x0db8…0dcc 9b23 1500 CURSOR 16,4
0x0db8…0dcc LineComalBin {
0x0db8…0dcc ptr = 0x9b23 // 0xdb8 @0x0
0x0db8…0dcc lno = 0x05dc // 0xdba @0x2
0x0db8…0dcc at0004 = ╱a1╱ CURSOR ╱ // 0xdbc @0x4
0x0db8…0dcc at0005 = ╱31╱1╱ // 0xdbd @0x5
0x0db8…0dcc at0006 = ╱36╱6╱ // 0xdbe @0x6
0x0db8…0dcc at0007 = ╱fe00008005╱ // 0xdbf @0x7
0x0db8…0dcc at000c = ╱ec╱,╱ // 0xdc4 @0xc
0x0db8…0dcc at000d = ╱34╱4╱ // 0xdc5 @0xd
0x0db8…0dcc at000e = ╱fe00008003╱ // 0xdc6 @0xe
0x0db8…0dcc at0013 = EOL // 0xdcb @0x13
0x0db8…0dcc }
0x0dcc…0dda 9b31 1510 PRINT KRENAVN$
0x0dcc…0dda LineComalBin {
0x0dcc…0dda ptr = 0x9b31 // 0xdcc @0x0
0x0dcc…0dda lno = 0x05e6 // 0xdce @0x2
0x0dcc…0dda at0004 = ╱92╱ PRINT ╱ // 0xdd0 @0x4
0x0dcc…0dda at0005 = ╱4b╱K╱ // 0xdd1 @0x5
0x0dcc…0dda at0006 = ╱52╱R╱ // 0xdd2 @0x6
0x0dcc…0dda at0007 = ╱45╱E╱ // 0xdd3 @0x7
0x0dcc…0dda at0008 = ╱4e╱N╱ // 0xdd4 @0x8
0x0dcc…0dda at0009 = ╱41╱A╱ // 0xdd5 @0x9
0x0dcc…0dda at000a = ╱56╱V╱ // 0xdd6 @0xa
0x0dcc…0dda at000b = ╱4e╱N╱ // 0xdd7 @0xb
0x0dcc…0dda at000c = ╱ef╱$╱ // 0xdd8 @0xc
0x0dcc…0dda at000d = EOL // 0xdd9 @0xd
0x0dcc…0dda }
0x0dda…0de2 9b39 1520 WHEN V
0x0dda…0de2 LineComalBin {
0x0dda…0de2 ptr = 0x9b39 // 0xdda @0x0
0x0dda…0de2 lno = 0x05f0 // 0xddc @0x2
0x0dda…0de2 at0004 = ╱a301╱ WHEN ╱ // 0xdde @0x4
0x0dda…0de2 at0006 = ╱56╱V╱ // 0xde0 @0x6
0x0dda…0de2 at0007 = EOL // 0xde1 @0x7
0x0dda…0de2 }
0x0de2…0def 9b46 1530 IF CÆND<>E THEN
0x0de2…0def LineComalBin {
0x0de2…0def ptr = 0x9b46 // 0xde2 @0x0
0x0de2…0def lno = 0x05fa // 0xde4 @0x2
0x0de2…0def at0004 = ╱9c╱ IF ╱ // 0xde6 @0x4
0x0de2…0def at0005 = ╱43╱C╱ // 0xde7 @0x5
0x0de2…0def at0006 = ╱5b╱Æ╱ // 0xde8 @0x6
0x0de2…0def at0007 = ╱4e╱N╱ // 0xde9 @0x7
0x0de2…0def at0008 = ╱44╱D╱ // 0xdea @0x8
0x0de2…0def at0009 = ╱e1╱<>╱ // 0xdeb @0x9
0x0de2…0def at000a = ╱45╱E╱ // 0xdec @0xa
0x0de2…0def at000b = ╱b6╱ THEN ╱ // 0xded @0xb
0x0de2…0def at000c = EOL // 0xdee @0xc
0x0de2…0def }
0x0def…0dfd 9b54 1540 CURSOR G,5
0x0def…0dfd LineComalBin {
0x0def…0dfd ptr = 0x9b54 // 0xdef @0x0
0x0def…0dfd lno = 0x0604 // 0xdf1 @0x2
0x0def…0dfd at0004 = ╱a1╱ CURSOR ╱ // 0xdf3 @0x4
0x0def…0dfd at0005 = ╱47╱G╱ // 0xdf4 @0x5
0x0def…0dfd at0006 = ╱ec╱,╱ // 0xdf5 @0x6
0x0def…0dfd at0007 = ╱35╱5╱ // 0xdf6 @0x7
0x0def…0dfd at0008 = ╱fe0000a003╱ // 0xdf7 @0x8
0x0def…0dfd at000d = EOL // 0xdfc @0xd
0x0def…0dfd }
0x0dfd…0e12 9b69 1550 PRINT "3:Gade :"
0x0dfd…0e12 LineComalBin {
0x0dfd…0e12 ptr = 0x9b69 // 0xdfd @0x0
0x0dfd…0e12 lno = 0x060e // 0xdff @0x2
0x0dfd…0e12 at0004 = ╱92╱ PRINT ╱ // 0xe01 @0x4
0x0dfd…0e12 at0005 = ╱22╱"╱ // 0xe02 @0x5
0x0dfd…0e12 at0006 = ╱33╱3╱ // 0xe03 @0x6
0x0dfd…0e12 at0007 = ╱3a╱:╱ // 0xe04 @0x7
0x0dfd…0e12 at0008 = ╱47╱G╱ // 0xe05 @0x8
0x0dfd…0e12 at0009 = ╱61╱a╱ // 0xe06 @0x9
0x0dfd…0e12 at000a = ╱64╱d╱ // 0xe07 @0xa
0x0dfd…0e12 at000b = ╱65╱e╱ // 0xe08 @0xb
0x0dfd…0e12 at000c = ╱20╱…╱ // 0xe09 @0xc
0x0dfd…0e12 at000d = ╱20╱…╱ // 0xe0a @0xd
0x0dfd…0e12 at000e = ╱20╱…╱ // 0xe0b @0xe
0x0dfd…0e12 at000f = ╱20╱…╱ // 0xe0c @0xf
0x0dfd…0e12 at0010 = ╱20╱…╱ // 0xe0d @0x10
0x0dfd…0e12 at0011 = ╱20╱…╱ // 0xe0e @0x11
0x0dfd…0e12 at0012 = ╱3a╱:╱ // 0xe0f @0x12
0x0dfd…0e12 at0013 = ╱22╱"╱ // 0xe10 @0x13
0x0dfd…0e12 at0014 = EOL // 0xe11 @0x14
0x0dfd…0e12 }
0x0e12…0e23 9b7a 1560 KSTYR=4
0x0e12…0e23 LineComalBin {
0x0e12…0e23 ptr = 0x9b7a // 0xe12 @0x0
0x0e12…0e23 lno = 0x0618 // 0xe14 @0x2
0x0e12…0e23 at0004 = ╱4b╱K╱ // 0xe16 @0x4
0x0e12…0e23 at0005 = ╱53╱S╱ // 0xe17 @0x5
0x0e12…0e23 at0006 = ╱54╱T╱ // 0xe18 @0x6
0x0e12…0e23 at0007 = ╱59╱Y╱ // 0xe19 @0x7
0x0e12…0e23 at0008 = ╱52╱R╱ // 0xe1a @0x8
0x0e12…0e23 at0009 = ╱dc╱=╱ // 0xe1b @0x9
0x0e12…0e23 at000a = ╱34╱4╱ // 0xe1c @0xa
0x0e12…0e23 at000b = ╱fe00008003╱ // 0xe1d @0xb
0x0e12…0e23 at0010 = EOL // 0xe22 @0x10
0x0e12…0e23 }
0x0e23…0e29 (47,) 9b80 1570 ENDIF
0x0e23…0e29 LineComalBin {
0x0e23…0e29 ptr = 0x9b80 // 0xe23 @0x0
0x0e23…0e29 lno = 0x0622 // 0xe25 @0x2
0x0e23…0e29 at0004 = ╱9b╱ ENDIF ╱ // 0xe27 @0x4
0x0e23…0e29 at0005 = EOL // 0xe28 @0x5
0x0e23…0e29 }
0x0e29…0e36 9b8d 1580 IF CÆND<>G THEN
0x0e29…0e36 LineComalBin {
0x0e29…0e36 ptr = 0x9b8d // 0xe29 @0x0
0x0e29…0e36 lno = 0x062c // 0xe2b @0x2
0x0e29…0e36 at0004 = ╱9c╱ IF ╱ // 0xe2d @0x4
0x0e29…0e36 at0005 = ╱43╱C╱ // 0xe2e @0x5
0x0e29…0e36 at0006 = ╱5b╱Æ╱ // 0xe2f @0x6
0x0e29…0e36 at0007 = ╱4e╱N╱ // 0xe30 @0x7
0x0e29…0e36 at0008 = ╱44╱D╱ // 0xe31 @0x8
0x0e29…0e36 at0009 = ╱e1╱<>╱ // 0xe32 @0x9
0x0e29…0e36 at000a = ╱47╱G╱ // 0xe33 @0xa
0x0e29…0e36 at000b = ╱b6╱ THEN ╱ // 0xe34 @0xb
0x0e29…0e36 at000c = EOL // 0xe35 @0xc
0x0e29…0e36 }
0x0e36…0e45 9b9c 1590 CURSOR V,23
0x0e36…0e45 LineComalBin {
0x0e36…0e45 ptr = 0x9b9c // 0xe36 @0x0
0x0e36…0e45 lno = 0x0636 // 0xe38 @0x2
0x0e36…0e45 at0004 = ╱a1╱ CURSOR ╱ // 0xe3a @0x4
0x0e36…0e45 at0005 = ╱56╱V╱ // 0xe3b @0x5
0x0e36…0e45 at0006 = ╱ec╱,╱ // 0xe3c @0x6
0x0e36…0e45 at0007 = ╱32╱2╱ // 0xe3d @0x7
0x0e36…0e45 at0008 = ╱33╱3╱ // 0xe3e @0x8
0x0e36…0e45 at0009 = ╱fe0000b805╱ // 0xe3f @0x9
0x0e36…0e45 at000e = EOL // 0xe44 @0xe
0x0e36…0e45 }
0x0e45…0e85 9bdc 1600 PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26)
0x0e45…0e85 LineComalBin {
0x0e45…0e85 ptr = 0x9bdc // 0xe45 @0x0
0x0e45…0e85 lno = 0x0640 // 0xe47 @0x2
0x0e45…0e85 at0004 = ╱92╱ PRINT ╱ // 0xe49 @0x4
0x0e45…0e85 at0005 = ╱22╱"╱ // 0xe4a @0x5
0x0e45…0e85 at0006 = ╱47╱G╱ // 0xe4b @0x6
0x0e45…0e85 at0007 = ╱61╱a╱ // 0xe4c @0x7
0x0e45…0e85 at0008 = ╱64╱d╱ // 0xe4d @0x8
0x0e45…0e85 at0009 = ╱65╱e╱ // 0xe4e @0x9
0x0e45…0e85 at000a = ╱22╱"╱ // 0xe4f @0xa
0x0e45…0e85 at000b = ╱eb╱;╱ // 0xe50 @0xb
0x0e45…0e85 at000c = ╱42╱B╱ // 0xe51 @0xc
0x0e45…0e85 at000d = ╱4c╱L╱ // 0xe52 @0xd
0x0e45…0e85 at000e = ╱41╱A╱ // 0xe53 @0xe
0x0e45…0e85 at000f = ╱4e╱N╱ // 0xe54 @0xf
0x0e45…0e85 at0010 = ╱4b╱K╱ // 0xe55 @0x10
0x0e45…0e85 at0011 = ╱ef╱$╱ // 0xe56 @0x11
0x0e45…0e85 at0012 = ╱ed╱(╱ // 0xe57 @0x12
0x0e45…0e85 at0013 = ╱45╱E╱ // 0xe58 @0x13
0x0e45…0e85 at0014 = ╱f0╱:╱ // 0xe59 @0x14
0x0e45…0e85 at0015 = ╱33╱3╱ // 0xe5a @0x15
0x0e45…0e85 at0016 = ╱33╱3╱ // 0xe5b @0x16
0x0e45…0e85 at0017 = ╱fe00008406╱ // 0xe5c @0x17
0x0e45…0e85 at001c = ╱ee╱)╱ // 0xe61 @0x1c
0x0e45…0e85 at001d = ╱eb╱;╱ // 0xe62 @0x1d
0x0e45…0e85 at001e = ╱22╱"╱ // 0xe63 @0x1e
0x0e45…0e85 at001f = ╱28╱(╱ // 0xe64 @0x1f
0x0e45…0e85 at0020 = ╱6d╱m╱ // 0xe65 @0x20
0x0e45…0e85 at0021 = ╱61╱a╱ // 0xe66 @0x21
0x0e45…0e85 at0022 = ╱78╱x╱ // 0xe67 @0x22
0x0e45…0e85 at0023 = ╱20╱…╱ // 0xe68 @0x23
0x0e45…0e85 at0024 = ╱32╱2╱ // 0xe69 @0x24
0x0e45…0e85 at0025 = ╱35╱5╱ // 0xe6a @0x25
0x0e45…0e85 at0026 = ╱20╱…╱ // 0xe6b @0x26
0x0e45…0e85 at0027 = ╱74╱t╱ // 0xe6c @0x27
0x0e45…0e85 at0028 = ╱65╱e╱ // 0xe6d @0x28
0x0e45…0e85 at0029 = ╱67╱g╱ // 0xe6e @0x29
0x0e45…0e85 at002a = ╱6e╱n╱ // 0xe6f @0x2a
0x0e45…0e85 at002b = ╱29╱)╱ // 0xe70 @0x2b
0x0e45…0e85 at002c = ╱22╱"╱ // 0xe71 @0x2c
0x0e45…0e85 at002d = ╱eb╱;╱ // 0xe72 @0x2d
0x0e45…0e85 at002e = ╱42╱B╱ // 0xe73 @0x2e
0x0e45…0e85 at002f = ╱4c╱L╱ // 0xe74 @0x2f
0x0e45…0e85 at0030 = ╱41╱A╱ // 0xe75 @0x30
0x0e45…0e85 at0031 = ╱4e╱N╱ // 0xe76 @0x31
0x0e45…0e85 at0032 = ╱4b╱K╱ // 0xe77 @0x32
0x0e45…0e85 at0033 = ╱ef╱$╱ // 0xe78 @0x33
0x0e45…0e85 at0034 = ╱ed╱(╱ // 0xe79 @0x34
0x0e45…0e85 at0035 = ╱45╱E╱ // 0xe7a @0x35
0x0e45…0e85 at0036 = ╱f0╱:╱ // 0xe7b @0x36
0x0e45…0e85 at0037 = ╱32╱2╱ // 0xe7c @0x37
0x0e45…0e85 at0038 = ╱36╱6╱ // 0xe7d @0x38
0x0e45…0e85 at0039 = ╱fe0000d005╱ // 0xe7e @0x39
0x0e45…0e85 at003e = ╱ee╱)╱ // 0xe83 @0x3e
0x0e45…0e85 at003f = EOL // 0xe84 @0x3f
0x0e45…0e85 }
0x0e85…0e9a 9bf1 1610 CURSOR 13,23
0x0e85…0e9a LineComalBin {
0x0e85…0e9a ptr = 0x9bf1 // 0xe85 @0x0
0x0e85…0e9a lno = 0x064a // 0xe87 @0x2
0x0e85…0e9a at0004 = ╱a1╱ CURSOR ╱ // 0xe89 @0x4
0x0e85…0e9a at0005 = ╱31╱1╱ // 0xe8a @0x5
0x0e85…0e9a at0006 = ╱33╱3╱ // 0xe8b @0x6
0x0e85…0e9a at0007 = ╱fe0000d004╱ // 0xe8c @0x7
0x0e85…0e9a at000c = ╱ec╱,╱ // 0xe91 @0xc
0x0e85…0e9a at000d = ╱32╱2╱ // 0xe92 @0xd
0x0e85…0e9a at000e = ╱33╱3╱ // 0xe93 @0xe
0x0e85…0e9a at000f = ╱fe0000b805╱ // 0xe94 @0xf
0x0e85…0e9a at0014 = EOL // 0xe99 @0x14
0x0e85…0e9a }
0x0e9a…0ea8 9bff 1620 INPUT KREGADE$
0x0e9a…0ea8 LineComalBin {
0x0e9a…0ea8 ptr = 0x9bff // 0xe9a @0x0
0x0e9a…0ea8 lno = 0x0654 // 0xe9c @0x2
0x0e9a…0ea8 at0004 = ╱91╱ INPUT ╱ // 0xe9e @0x4
0x0e9a…0ea8 at0005 = ╱4b╱K╱ // 0xe9f @0x5
0x0e9a…0ea8 at0006 = ╱52╱R╱ // 0xea0 @0x6
0x0e9a…0ea8 at0007 = ╱45╱E╱ // 0xea1 @0x7
0x0e9a…0ea8 at0008 = ╱47╱G╱ // 0xea2 @0x8
0x0e9a…0ea8 at0009 = ╱41╱A╱ // 0xea3 @0x9
0x0e9a…0ea8 at000a = ╱44╱D╱ // 0xea4 @0xa
0x0e9a…0ea8 at000b = ╱45╱E╱ // 0xea5 @0xb
0x0e9a…0ea8 at000c = ╱ef╱$╱ // 0xea6 @0xc
0x0e9a…0ea8 at000d = EOL // 0xea7 @0xd
0x0e9a…0ea8 }
0x0ea8…0eae 9c05 1630 ENDIF
0x0ea8…0eae LineComalBin {
0x0ea8…0eae ptr = 0x9c05 // 0xea8 @0x0
0x0ea8…0eae lno = 0x065e // 0xeaa @0x2
0x0ea8…0eae at0004 = ╱9b╱ ENDIF ╱ // 0xeac @0x4
0x0ea8…0eae at0005 = EOL // 0xead @0x5
0x0ea8…0eae }
0x0eae…0ec2 9c19 1640 CURSOR 16,5
0x0eae…0ec2 LineComalBin {
0x0eae…0ec2 ptr = 0x9c19 // 0xeae @0x0
0x0eae…0ec2 lno = 0x0668 // 0xeb0 @0x2
0x0eae…0ec2 at0004 = ╱a1╱ CURSOR ╱ // 0xeb2 @0x4
0x0eae…0ec2 at0005 = ╱31╱1╱ // 0xeb3 @0x5
0x0eae…0ec2 at0006 = ╱36╱6╱ // 0xeb4 @0x6
0x0eae…0ec2 at0007 = ╱fe00008005╱ // 0xeb5 @0x7
0x0eae…0ec2 at000c = ╱ec╱,╱ // 0xeba @0xc
0x0eae…0ec2 at000d = ╱35╱5╱ // 0xebb @0xd
0x0eae…0ec2 at000e = ╱fe0000a003╱ // 0xebc @0xe
0x0eae…0ec2 at0013 = EOL // 0xec1 @0x13
0x0eae…0ec2 }
0x0ec2…0ed9 9c30 1650 PRINT BLANK$(E:25)
0x0ec2…0ed9 LineComalBin {
0x0ec2…0ed9 ptr = 0x9c30 // 0xec2 @0x0
0x0ec2…0ed9 lno = 0x0672 // 0xec4 @0x2
0x0ec2…0ed9 at0004 = ╱92╱ PRINT ╱ // 0xec6 @0x4
0x0ec2…0ed9 at0005 = ╱42╱B╱ // 0xec7 @0x5
0x0ec2…0ed9 at0006 = ╱4c╱L╱ // 0xec8 @0x6
0x0ec2…0ed9 at0007 = ╱41╱A╱ // 0xec9 @0x7
0x0ec2…0ed9 at0008 = ╱4e╱N╱ // 0xeca @0x8
0x0ec2…0ed9 at0009 = ╱4b╱K╱ // 0xecb @0x9
0x0ec2…0ed9 at000a = ╱ef╱$╱ // 0xecc @0xa
0x0ec2…0ed9 at000b = ╱ed╱(╱ // 0xecd @0xb
0x0ec2…0ed9 at000c = ╱45╱E╱ // 0xece @0xc
0x0ec2…0ed9 at000d = ╱f0╱:╱ // 0xecf @0xd
0x0ec2…0ed9 at000e = ╱32╱2╱ // 0xed0 @0xe
0x0ec2…0ed9 at000f = ╱35╱5╱ // 0xed1 @0xf
0x0ec2…0ed9 at0010 = ╱fe0000c805╱ // 0xed2 @0x10
0x0ec2…0ed9 at0015 = ╱ee╱)╱ // 0xed7 @0x15
0x0ec2…0ed9 at0016 = EOL // 0xed8 @0x16
0x0ec2…0ed9 }
0x0ed9…0eed 9c44 1660 CURSOR 16,5
0x0ed9…0eed LineComalBin {
0x0ed9…0eed ptr = 0x9c44 // 0xed9 @0x0
0x0ed9…0eed lno = 0x067c // 0xedb @0x2
0x0ed9…0eed at0004 = ╱a1╱ CURSOR ╱ // 0xedd @0x4
0x0ed9…0eed at0005 = ╱31╱1╱ // 0xede @0x5
0x0ed9…0eed at0006 = ╱36╱6╱ // 0xedf @0x6
0x0ed9…0eed at0007 = ╱fe00008005╱ // 0xee0 @0x7
0x0ed9…0eed at000c = ╱ec╱,╱ // 0xee5 @0xc
0x0ed9…0eed at000d = ╱35╱5╱ // 0xee6 @0xd
0x0ed9…0eed at000e = ╱fe0000a003╱ // 0xee7 @0xe
0x0ed9…0eed at0013 = EOL // 0xeec @0x13
0x0ed9…0eed }
0x0eed…0efb 9c52 1670 PRINT KREGADE$
0x0eed…0efb LineComalBin {
0x0eed…0efb ptr = 0x9c52 // 0xeed @0x0
0x0eed…0efb lno = 0x0686 // 0xeef @0x2
0x0eed…0efb at0004 = ╱92╱ PRINT ╱ // 0xef1 @0x4
0x0eed…0efb at0005 = ╱4b╱K╱ // 0xef2 @0x5
0x0eed…0efb at0006 = ╱52╱R╱ // 0xef3 @0x6
0x0eed…0efb at0007 = ╱45╱E╱ // 0xef4 @0x7
0x0eed…0efb at0008 = ╱47╱G╱ // 0xef5 @0x8
0x0eed…0efb at0009 = ╱41╱A╱ // 0xef6 @0x9
0x0eed…0efb at000a = ╱44╱D╱ // 0xef7 @0xa
0x0eed…0efb at000b = ╱45╱E╱ // 0xef8 @0xb
0x0eed…0efb at000c = ╱ef╱$╱ // 0xef9 @0xc
0x0eed…0efb at000d = EOL // 0xefa @0xd
0x0eed…0efb }
0x0efb…0f08 9c5f 1680 WHEN 4
0x0efb…0f08 LineComalBin {
0x0efb…0f08 ptr = 0x9c5f // 0xefb @0x0
0x0efb…0f08 lno = 0x0690 // 0xefd @0x2
0x0efb…0f08 at0004 = ╱a301╱ WHEN ╱ // 0xeff @0x4
0x0efb…0f08 at0006 = ╱34╱4╱ // 0xf01 @0x6
0x0efb…0f08 at0007 = ╱fe00008003╱ // 0xf02 @0x7
0x0efb…0f08 at000c = EOL // 0xf07 @0xc
0x0efb…0f08 }
0x0f08…0f15 9c6c 1690 IF CÆND<>E THEN
0x0f08…0f15 LineComalBin {
0x0f08…0f15 ptr = 0x9c6c // 0xf08 @0x0
0x0f08…0f15 lno = 0x069a // 0xf0a @0x2
0x0f08…0f15 at0004 = ╱9c╱ IF ╱ // 0xf0c @0x4
0x0f08…0f15 at0005 = ╱43╱C╱ // 0xf0d @0x5
0x0f08…0f15 at0006 = ╱5b╱Æ╱ // 0xf0e @0x6
0x0f08…0f15 at0007 = ╱4e╱N╱ // 0xf0f @0x7
0x0f08…0f15 at0008 = ╱44╱D╱ // 0xf10 @0x8
0x0f08…0f15 at0009 = ╱e1╱<>╱ // 0xf11 @0x9
0x0f08…0f15 at000a = ╱45╱E╱ // 0xf12 @0xa
0x0f08…0f15 at000b = ╱b6╱ THEN ╱ // 0xf13 @0xb
0x0f08…0f15 at000c = EOL // 0xf14 @0xc
0x0f08…0f15 }
0x0f15…0f23 9c7a 1700 CURSOR G,6
0x0f15…0f23 LineComalBin {
0x0f15…0f23 ptr = 0x9c7a // 0xf15 @0x0
0x0f15…0f23 lno = 0x06a4 // 0xf17 @0x2
0x0f15…0f23 at0004 = ╱a1╱ CURSOR ╱ // 0xf19 @0x4
0x0f15…0f23 at0005 = ╱47╱G╱ // 0xf1a @0x5
0x0f15…0f23 at0006 = ╱ec╱,╱ // 0xf1b @0x6
0x0f15…0f23 at0007 = ╱36╱6╱ // 0xf1c @0x7
0x0f15…0f23 at0008 = ╱fe0000c003╱ // 0xf1d @0x8
0x0f15…0f23 at000d = EOL // 0xf22 @0xd
0x0f15…0f23 }
0x0f23…0f38 9c8f 1710 PRINT "4:Postnr :"
0x0f23…0f38 LineComalBin {
0x0f23…0f38 ptr = 0x9c8f // 0xf23 @0x0
0x0f23…0f38 lno = 0x06ae // 0xf25 @0x2
0x0f23…0f38 at0004 = ╱92╱ PRINT ╱ // 0xf27 @0x4
0x0f23…0f38 at0005 = ╱22╱"╱ // 0xf28 @0x5
0x0f23…0f38 at0006 = ╱34╱4╱ // 0xf29 @0x6
0x0f23…0f38 at0007 = ╱3a╱:╱ // 0xf2a @0x7
0x0f23…0f38 at0008 = ╱50╱P╱ // 0xf2b @0x8
0x0f23…0f38 at0009 = ╱6f╱o╱ // 0xf2c @0x9
0x0f23…0f38 at000a = ╱73╱s╱ // 0xf2d @0xa
0x0f23…0f38 at000b = ╱74╱t╱ // 0xf2e @0xb
0x0f23…0f38 at000c = ╱6e╱n╱ // 0xf2f @0xc
0x0f23…0f38 at000d = ╱72╱r╱ // 0xf30 @0xd
0x0f23…0f38 at000e = ╱20╱…╱ // 0xf31 @0xe
0x0f23…0f38 at000f = ╱20╱…╱ // 0xf32 @0xf
0x0f23…0f38 at0010 = ╱20╱…╱ // 0xf33 @0x10
0x0f23…0f38 at0011 = ╱20╱…╱ // 0xf34 @0x11
0x0f23…0f38 at0012 = ╱3a╱:╱ // 0xf35 @0x12
0x0f23…0f38 at0013 = ╱22╱"╱ // 0xf36 @0x13
0x0f23…0f38 at0014 = EOL // 0xf37 @0x14
0x0f23…0f38 }
0x0f38…0f49 9ca0 1720 KSTYR=5
0x0f38…0f49 LineComalBin {
0x0f38…0f49 ptr = 0x9ca0 // 0xf38 @0x0
0x0f38…0f49 lno = 0x06b8 // 0xf3a @0x2
0x0f38…0f49 at0004 = ╱4b╱K╱ // 0xf3c @0x4
0x0f38…0f49 at0005 = ╱53╱S╱ // 0xf3d @0x5
0x0f38…0f49 at0006 = ╱54╱T╱ // 0xf3e @0x6
0x0f38…0f49 at0007 = ╱59╱Y╱ // 0xf3f @0x7
0x0f38…0f49 at0008 = ╱52╱R╱ // 0xf40 @0x8
0x0f38…0f49 at0009 = ╱dc╱=╱ // 0xf41 @0x9
0x0f38…0f49 at000a = ╱35╱5╱ // 0xf42 @0xa
0x0f38…0f49 at000b = ╱fe0000a003╱ // 0xf43 @0xb
0x0f38…0f49 at0010 = EOL // 0xf48 @0x10
0x0f38…0f49 }
0x0f49…0f4f 9ca6 1730 ENDIF
0x0f49…0f4f LineComalBin {
0x0f49…0f4f ptr = 0x9ca6 // 0xf49 @0x0
0x0f49…0f4f lno = 0x06c2 // 0xf4b @0x2
0x0f49…0f4f at0004 = ╱9b╱ ENDIF ╱ // 0xf4d @0x4
0x0f49…0f4f at0005 = EOL // 0xf4e @0x5
0x0f49…0f4f }
0x0f4f…0f5c 9cb3 1740 IF CÆND<>G THEN
0x0f4f…0f5c LineComalBin {
0x0f4f…0f5c ptr = 0x9cb3 // 0xf4f @0x0
0x0f4f…0f5c lno = 0x06cc // 0xf51 @0x2
0x0f4f…0f5c at0004 = ╱9c╱ IF ╱ // 0xf53 @0x4
0x0f4f…0f5c at0005 = ╱43╱C╱ // 0xf54 @0x5
0x0f4f…0f5c at0006 = ╱5b╱Æ╱ // 0xf55 @0x6
0x0f4f…0f5c at0007 = ╱4e╱N╱ // 0xf56 @0x7
0x0f4f…0f5c at0008 = ╱44╱D╱ // 0xf57 @0x8
0x0f4f…0f5c at0009 = ╱e1╱<>╱ // 0xf58 @0x9
0x0f4f…0f5c at000a = ╱47╱G╱ // 0xf59 @0xa
0x0f4f…0f5c at000b = ╱b6╱ THEN ╱ // 0xf5a @0xb
0x0f4f…0f5c at000c = EOL // 0xf5b @0xc
0x0f4f…0f5c }
0x0f5c…0f62 9cb9 1750 REPEAT
0x0f5c…0f62 LineComalBin {
0x0f5c…0f62 ptr = 0x9cb9 // 0xf5c @0x0
0x0f5c…0f62 lno = 0x06d6 // 0xf5e @0x2
0x0f5c…0f62 at0004 = ╱97╱ REPEAT ╱ // 0xf60 @0x4
0x0f5c…0f62 at0005 = EOL // 0xf61 @0x5
0x0f5c…0f62 }
0x0f62…0f71 9cc8 1760 CURSOR V,23
0x0f62…0f71 LineComalBin {
0x0f62…0f71 ptr = 0x9cc8 // 0xf62 @0x0
0x0f62…0f71 lno = 0x06e0 // 0xf64 @0x2
0x0f62…0f71 at0004 = ╱a1╱ CURSOR ╱ // 0xf66 @0x4
0x0f62…0f71 at0005 = ╱56╱V╱ // 0xf67 @0x5
0x0f62…0f71 at0006 = ╱ec╱,╱ // 0xf68 @0x6
0x0f62…0f71 at0007 = ╱32╱2╱ // 0xf69 @0x7
0x0f62…0f71 at0008 = ╱33╱3╱ // 0xf6a @0x8
0x0f62…0f71 at0009 = ╱fe0000b805╱ // 0xf6b @0x9
0x0f62…0f71 at000e = EOL // 0xf70 @0xe
0x0f62…0f71 }
0x0f71…0fb2 9d09 1770 PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45)
0x0f71…0fb2 LineComalBin {
0x0f71…0fb2 ptr = 0x9d09 // 0xf71 @0x0
0x0f71…0fb2 lno = 0x06ea // 0xf73 @0x2
0x0f71…0fb2 at0004 = ╱92╱ PRINT ╱ // 0xf75 @0x4
0x0f71…0fb2 at0005 = ╱22╱"╱ // 0xf76 @0x5
0x0f71…0fb2 at0006 = ╱50╱P╱ // 0xf77 @0x6
0x0f71…0fb2 at0007 = ╱6f╱o╱ // 0xf78 @0x7
0x0f71…0fb2 at0008 = ╱73╱s╱ // 0xf79 @0x8
0x0f71…0fb2 at0009 = ╱74╱t╱ // 0xf7a @0x9
0x0f71…0fb2 at000a = ╱6e╱n╱ // 0xf7b @0xa
0x0f71…0fb2 at000b = ╱72╱r╱ // 0xf7c @0xb
0x0f71…0fb2 at000c = ╱22╱"╱ // 0xf7d @0xc
0x0f71…0fb2 at000d = ╱eb╱;╱ // 0xf7e @0xd
0x0f71…0fb2 at000e = ╱42╱B╱ // 0xf7f @0xe
0x0f71…0fb2 at000f = ╱4c╱L╱ // 0xf80 @0xf
0x0f71…0fb2 at0010 = ╱41╱A╱ // 0xf81 @0x10
0x0f71…0fb2 at0011 = ╱4e╱N╱ // 0xf82 @0x11
0x0f71…0fb2 at0012 = ╱4b╱K╱ // 0xf83 @0x12
0x0f71…0fb2 at0013 = ╱ef╱$╱ // 0xf84 @0x13
0x0f71…0fb2 at0014 = ╱ed╱(╱ // 0xf85 @0x14
0x0f71…0fb2 at0015 = ╱45╱E╱ // 0xf86 @0x15
0x0f71…0fb2 at0016 = ╱f0╱:╱ // 0xf87 @0x16
0x0f71…0fb2 at0017 = ╱31╱1╱ // 0xf88 @0x17
0x0f71…0fb2 at0018 = ╱32╱2╱ // 0xf89 @0x18
0x0f71…0fb2 at0019 = ╱fe0000c004╱ // 0xf8a @0x19
0x0f71…0fb2 at001e = ╱ee╱)╱ // 0xf8f @0x1e
0x0f71…0fb2 at001f = ╱eb╱;╱ // 0xf90 @0x1f
0x0f71…0fb2 at0020 = ╱22╱"╱ // 0xf91 @0x20
0x0f71…0fb2 at0021 = ╱28╱(╱ // 0xf92 @0x21
0x0f71…0fb2 at0022 = ╱6d╱m╱ // 0xf93 @0x22
0x0f71…0fb2 at0023 = ╱61╱a╱ // 0xf94 @0x23
0x0f71…0fb2 at0024 = ╱78╱x╱ // 0xf95 @0x24
0x0f71…0fb2 at0025 = ╱20╱…╱ // 0xf96 @0x25
0x0f71…0fb2 at0026 = ╱36╱6╱ // 0xf97 @0x26
0x0f71…0fb2 at0027 = ╱20╱…╱ // 0xf98 @0x27
0x0f71…0fb2 at0028 = ╱74╱t╱ // 0xf99 @0x28
0x0f71…0fb2 at0029 = ╱65╱e╱ // 0xf9a @0x29
0x0f71…0fb2 at002a = ╱67╱g╱ // 0xf9b @0x2a
0x0f71…0fb2 at002b = ╱6e╱n╱ // 0xf9c @0x2b
0x0f71…0fb2 at002c = ╱29╱)╱ // 0xf9d @0x2c
0x0f71…0fb2 at002d = ╱22╱"╱ // 0xf9e @0x2d
0x0f71…0fb2 at002e = ╱eb╱;╱ // 0xf9f @0x2e
0x0f71…0fb2 at002f = ╱42╱B╱ // 0xfa0 @0x2f
0x0f71…0fb2 at0030 = ╱4c╱L╱ // 0xfa1 @0x30
0x0f71…0fb2 at0031 = ╱41╱A╱ // 0xfa2 @0x31
0x0f71…0fb2 at0032 = ╱4e╱N╱ // 0xfa3 @0x32
0x0f71…0fb2 at0033 = ╱4b╱K╱ // 0xfa4 @0x33
0x0f71…0fb2 at0034 = ╱ef╱$╱ // 0xfa5 @0x34
0x0f71…0fb2 at0035 = ╱ed╱(╱ // 0xfa6 @0x35
0x0f71…0fb2 at0036 = ╱45╱E╱ // 0xfa7 @0x36
0x0f71…0fb2 at0037 = ╱f0╱:╱ // 0xfa8 @0x37
0x0f71…0fb2 at0038 = ╱34╱4╱ // 0xfa9 @0x38
0x0f71…0fb2 at0039 = ╱35╱5╱ // 0xfaa @0x39
0x0f71…0fb2 at003a = ╱fe0000b406╱ // 0xfab @0x3a
0x0f71…0fb2 at003f = ╱ee╱)╱ // 0xfb0 @0x3f
0x0f71…0fb2 at0040 = EOL // 0xfb1 @0x40
0x0f71…0fb2 }
0x0fb2…0fc7 9d1e 1780 CURSOR 13,23
0x0fb2…0fc7 LineComalBin {
0x0fb2…0fc7 ptr = 0x9d1e // 0xfb2 @0x0
0x0fb2…0fc7 lno = 0x06f4 // 0xfb4 @0x2
0x0fb2…0fc7 at0004 = ╱a1╱ CURSOR ╱ // 0xfb6 @0x4
0x0fb2…0fc7 at0005 = ╱31╱1╱ // 0xfb7 @0x5
0x0fb2…0fc7 at0006 = ╱33╱3╱ // 0xfb8 @0x6
0x0fb2…0fc7 at0007 = ╱fe0000d004╱ // 0xfb9 @0x7
0x0fb2…0fc7 at000c = ╱ec╱,╱ // 0xfbe @0xc
0x0fb2…0fc7 at000d = ╱32╱2╱ // 0xfbf @0xd
0x0fb2…0fc7 at000e = ╱33╱3╱ // 0xfc0 @0xe
0x0fb2…0fc7 at000f = ╱fe0000b805╱ // 0xfc1 @0xf
0x0fb2…0fc7 at0014 = EOL // 0xfc6 @0x14
0x0fb2…0fc7 }
0x0fc7…0fd1 9d28 1790 INPUT PNR$
0x0fc7…0fd1 LineComalBin {
0x0fc7…0fd1 ptr = 0x9d28 // 0xfc7 @0x0
0x0fc7…0fd1 lno = 0x06fe // 0xfc9 @0x2
0x0fc7…0fd1 at0004 = ╱91╱ INPUT ╱ // 0xfcb @0x4
0x0fc7…0fd1 at0005 = ╱50╱P╱ // 0xfcc @0x5
0x0fc7…0fd1 at0006 = ╱4e╱N╱ // 0xfcd @0x6
0x0fc7…0fd1 at0007 = ╱52╱R╱ // 0xfce @0x7
0x0fc7…0fd1 at0008 = ╱ef╱$╱ // 0xfcf @0x8
0x0fc7…0fd1 at0009 = EOL // 0xfd0 @0x9
0x0fc7…0fd1 }
0x0fd1…0fe3 9d3a 1800 EXEC NRTEST(PNR$)
0x0fd1…0fe3 LineComalBin {
0x0fd1…0fe3 ptr = 0x9d3a // 0xfd1 @0x0
0x0fd1…0fe3 lno = 0x0708 // 0xfd3 @0x2
0x0fd1…0fe3 at0004 = ╱9d╱ EXEC ╱ // 0xfd5 @0x4
0x0fd1…0fe3 at0005 = ╱4e╱N╱ // 0xfd6 @0x5
0x0fd1…0fe3 at0006 = ╱52╱R╱ // 0xfd7 @0x6
0x0fd1…0fe3 at0007 = ╱54╱T╱ // 0xfd8 @0x7
0x0fd1…0fe3 at0008 = ╱45╱E╱ // 0xfd9 @0x8
0x0fd1…0fe3 at0009 = ╱53╱S╱ // 0xfda @0x9
0x0fd1…0fe3 at000a = ╱54╱T╱ // 0xfdb @0xa
0x0fd1…0fe3 at000b = ╱ed╱(╱ // 0xfdc @0xb
0x0fd1…0fe3 at000c = ╱50╱P╱ // 0xfdd @0xc
0x0fd1…0fe3 at000d = ╱4e╱N╱ // 0xfde @0xd
0x0fd1…0fe3 at000e = ╱52╱R╱ // 0xfdf @0xe
0x0fd1…0fe3 at000f = ╱ef╱$╱ // 0xfe0 @0xf
0x0fd1…0fe3 at0010 = ╱ee╱)╱ // 0xfe1 @0x10
0x0fd1…0fe3 at0011 = EOL // 0xfe2 @0x11
0x0fd1…0fe3 }
0x0fe3…100f 9d66 1810 UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B
0x0fe3…100f LineComalBin {
0x0fe3…100f ptr = 0x9d66 // 0xfe3 @0x0
0x0fe3…100f lno = 0x0712 // 0xfe5 @0x2
0x0fe3…100f at0004 = ╱98╱ UNTIL ╱ // 0xfe7 @0x4
0x0fe3…100f at0005 = ╱ed╱(╱ // 0xfe8 @0x5
0x0fe3…100f at0006 = ╱ed╱(╱ // 0xfe9 @0x6
0x0fe3…100f at0007 = ╱4c╱L╱ // 0xfea @0x7
0x0fe3…100f at0008 = ╱de╱>╱ // 0xfeb @0x8
0x0fe3…100f at0009 = ╱56╱V╱ // 0xfec @0x9
0x0fe3…100f at000a = ╱da╱ AND ╱ // 0xfed @0xa
0x0fe3…100f at000b = ╱4c╱L╱ // 0xfee @0xb
0x0fe3…100f at000c = ╱dd╱<╱ // 0xfef @0xc
0x0fe3…100f at000d = ╱37╱7╱ // 0xff0 @0xd
0x0fe3…100f at000e = ╱fe0000e003╱ // 0xff1 @0xe
0x0fe3…100f at0013 = ╱ee╱)╱ // 0xff6 @0x13
0x0fe3…100f at0014 = ╱db╱ OR ╱ // 0xff7 @0x14
0x0fe3…100f at0015 = ╱ed╱(╱ // 0xff8 @0x15
0x0fe3…100f at0016 = ╱50╱P╱ // 0xff9 @0x16
0x0fe3…100f at0017 = ╱dc╱=╱ // 0xffa @0x17
0x0fe3…100f at0018 = ╱e9╱-╱ // 0xffb @0x18
0x0fe3…100f at0019 = ╱45╱E╱ // 0xffc @0x19
0x0fe3…100f at001a = ╱da╱ AND ╱ // 0xffd @0x1a
0x0fe3…100f at001b = ╱43╱C╱ // 0xffe @0x1b
0x0fe3…100f at001c = ╱5b╱Æ╱ // 0xfff @0x1c
0x0fe3…100f at001d = ╱4e╱N╱ // 0x1000 @0x1d
0x0fe3…100f at001e = ╱44╱D╱ // 0x1001 @0x1e
0x0fe3…100f at001f = ╱dc╱=╱ // 0x1002 @0x1f
0x0fe3…100f at0020 = ╱45╱E╱ // 0x1003 @0x20
0x0fe3…100f at0021 = ╱ee╱)╱ // 0x1004 @0x21
0x0fe3…100f at0022 = ╱ee╱)╱ // 0x1005 @0x22
0x0fe3…100f at0023 = ╱da╱ AND ╱ // 0x1006 @0x23
0x0fe3…100f at0024 = ╱54╱T╱ // 0x1007 @0x24
0x0fe3…100f at0025 = ╱45╱E╱ // 0x1008 @0x25
0x0fe3…100f at0026 = ╱53╱S╱ // 0x1009 @0x26
0x0fe3…100f at0027 = ╱54╱T╱ // 0x100a @0x27
0x0fe3…100f at0028 = ╱32╱2╱ // 0x100b @0x28
0x0fe3…100f at0029 = ╱dc╱=╱ // 0x100c @0x29
0x0fe3…100f at002a = ╱42╱B╱ // 0x100d @0x2a
0x0fe3…100f at002b = EOL // 0x100e @0x2b
0x0fe3…100f }
0x100f…1025 9d7c 1820 IF P<>-E THEN KREPOSTNR=P
0x100f…1025 LineComalBin {
0x100f…1025 ptr = 0x9d7c // 0x100f @0x0
0x100f…1025 lno = 0x071c // 0x1011 @0x2
0x100f…1025 at0004 = ╱82╱ IF ╱ // 0x1013 @0x4
0x100f…1025 at0005 = ╱50╱P╱ // 0x1014 @0x5
0x100f…1025 at0006 = ╱e1╱<>╱ // 0x1015 @0x6
0x100f…1025 at0007 = ╱e9╱-╱ // 0x1016 @0x7
0x100f…1025 at0008 = ╱45╱E╱ // 0x1017 @0x8
0x100f…1025 at0009 = ╱b6╱ THEN ╱ // 0x1018 @0x9
0x100f…1025 at000a = ╱4b╱K╱ // 0x1019 @0xa
0x100f…1025 at000b = ╱52╱R╱ // 0x101a @0xb
0x100f…1025 at000c = ╱45╱E╱ // 0x101b @0xc
0x100f…1025 at000d = ╱50╱P╱ // 0x101c @0xd
0x100f…1025 at000e = ╱4f╱O╱ // 0x101d @0xe
0x100f…1025 at000f = ╱53╱S╱ // 0x101e @0xf
0x100f…1025 at0010 = ╱54╱T╱ // 0x101f @0x10
0x100f…1025 at0011 = ╱4e╱N╱ // 0x1020 @0x11
0x100f…1025 at0012 = ╱52╱R╱ // 0x1021 @0x12
0x100f…1025 at0013 = ╱dc╱=╱ // 0x1022 @0x13
0x100f…1025 at0014 = ╱50╱P╱ // 0x1023 @0x14
0x100f…1025 at0015 = EOL // 0x1024 @0x15
0x100f…1025 }
0x1025…102b 9d82 1830 ENDIF
0x1025…102b LineComalBin {
0x1025…102b ptr = 0x9d82 // 0x1025 @0x0
0x1025…102b lno = 0x0726 // 0x1027 @0x2
0x1025…102b at0004 = ╱9b╱ ENDIF ╱ // 0x1029 @0x4
0x1025…102b at0005 = EOL // 0x102a @0x5
0x1025…102b }
0x102b…103f 9d96 1840 CURSOR 16,6
0x102b…103f LineComalBin {
0x102b…103f ptr = 0x9d96 // 0x102b @0x0
0x102b…103f lno = 0x0730 // 0x102d @0x2
0x102b…103f at0004 = ╱a1╱ CURSOR ╱ // 0x102f @0x4
0x102b…103f at0005 = ╱31╱1╱ // 0x1030 @0x5
0x102b…103f at0006 = ╱36╱6╱ // 0x1031 @0x6
0x102b…103f at0007 = ╱fe00008005╱ // 0x1032 @0x7
0x102b…103f at000c = ╱ec╱,╱ // 0x1037 @0xc
0x102b…103f at000d = ╱36╱6╱ // 0x1038 @0xd
0x102b…103f at000e = ╱fe0000c003╱ // 0x1039 @0xe
0x102b…103f at0013 = EOL // 0x103e @0x13
0x102b…103f }
0x103f…1055 9dac 1850 PRINT BLANK$(E:6)
0x103f…1055 LineComalBin {
0x103f…1055 ptr = 0x9dac // 0x103f @0x0
0x103f…1055 lno = 0x073a // 0x1041 @0x2
0x103f…1055 at0004 = ╱92╱ PRINT ╱ // 0x1043 @0x4
0x103f…1055 at0005 = ╱42╱B╱ // 0x1044 @0x5
0x103f…1055 at0006 = ╱4c╱L╱ // 0x1045 @0x6
0x103f…1055 at0007 = ╱41╱A╱ // 0x1046 @0x7
0x103f…1055 at0008 = ╱4e╱N╱ // 0x1047 @0x8
0x103f…1055 at0009 = ╱4b╱K╱ // 0x1048 @0x9
0x103f…1055 at000a = ╱ef╱$╱ // 0x1049 @0xa
0x103f…1055 at000b = ╱ed╱(╱ // 0x104a @0xb
0x103f…1055 at000c = ╱45╱E╱ // 0x104b @0xc
0x103f…1055 at000d = ╱f0╱:╱ // 0x104c @0xd
0x103f…1055 at000e = ╱36╱6╱ // 0x104d @0xe
0x103f…1055 at000f = ╱fe0000c003╱ // 0x104e @0xf
0x103f…1055 at0014 = ╱ee╱)╱ // 0x1053 @0x14
0x103f…1055 at0015 = EOL // 0x1054 @0x15
0x103f…1055 }
0x1055…1069 9dc0 1860 CURSOR 16,6
0x1055…1069 LineComalBin {
0x1055…1069 ptr = 0x9dc0 // 0x1055 @0x0
0x1055…1069 lno = 0x0744 // 0x1057 @0x2
0x1055…1069 at0004 = ╱a1╱ CURSOR ╱ // 0x1059 @0x4
0x1055…1069 at0005 = ╱31╱1╱ // 0x105a @0x5
0x1055…1069 at0006 = ╱36╱6╱ // 0x105b @0x6
0x1055…1069 at0007 = ╱fe00008005╱ // 0x105c @0x7
0x1055…1069 at000c = ╱ec╱,╱ // 0x1061 @0xc
0x1055…1069 at000d = ╱36╱6╱ // 0x1062 @0xd
0x1055…1069 at000e = ╱fe0000c003╱ // 0x1063 @0xe
0x1055…1069 at0013 = EOL // 0x1068 @0x13
0x1055…1069 }
0x1069…1078 9dcf 1870 PRINT KREPOSTNR
0x1069…1078 LineComalBin {
0x1069…1078 ptr = 0x9dcf // 0x1069 @0x0
0x1069…1078 lno = 0x074e // 0x106b @0x2
0x1069…1078 at0004 = ╱92╱ PRINT ╱ // 0x106d @0x4
0x1069…1078 at0005 = ╱4b╱K╱ // 0x106e @0x5
0x1069…1078 at0006 = ╱52╱R╱ // 0x106f @0x6
0x1069…1078 at0007 = ╱45╱E╱ // 0x1070 @0x7
0x1069…1078 at0008 = ╱50╱P╱ // 0x1071 @0x8
0x1069…1078 at0009 = ╱4f╱O╱ // 0x1072 @0x9
0x1069…1078 at000a = ╱53╱S╱ // 0x1073 @0xa
0x1069…1078 at000b = ╱54╱T╱ // 0x1074 @0xb
0x1069…1078 at000c = ╱4e╱N╱ // 0x1075 @0xc
0x1069…1078 at000d = ╱52╱R╱ // 0x1076 @0xd
0x1069…1078 at000e = EOL // 0x1077 @0xe
0x1069…1078 }
0x1078…1085 9ddc 1880 WHEN 5
0x1078…1085 LineComalBin {
0x1078…1085 ptr = 0x9ddc // 0x1078 @0x0
0x1078…1085 lno = 0x0758 // 0x107a @0x2
0x1078…1085 at0004 = ╱a301╱ WHEN ╱ // 0x107c @0x4
0x1078…1085 at0006 = ╱35╱5╱ // 0x107e @0x6
0x1078…1085 at0007 = ╱fe0000a003╱ // 0x107f @0x7
0x1078…1085 at000c = EOL // 0x1084 @0xc
0x1078…1085 }
0x1085…1092 9de9 1890 IF CÆND<>E THEN
0x1085…1092 LineComalBin {
0x1085…1092 ptr = 0x9de9 // 0x1085 @0x0
0x1085…1092 lno = 0x0762 // 0x1087 @0x2
0x1085…1092 at0004 = ╱9c╱ IF ╱ // 0x1089 @0x4
0x1085…1092 at0005 = ╱43╱C╱ // 0x108a @0x5
0x1085…1092 at0006 = ╱5b╱Æ╱ // 0x108b @0x6
0x1085…1092 at0007 = ╱4e╱N╱ // 0x108c @0x7
0x1085…1092 at0008 = ╱44╱D╱ // 0x108d @0x8
0x1085…1092 at0009 = ╱e1╱<>╱ // 0x108e @0x9
0x1085…1092 at000a = ╱45╱E╱ // 0x108f @0xa
0x1085…1092 at000b = ╱b6╱ THEN ╱ // 0x1090 @0xb
0x1085…1092 at000c = EOL // 0x1091 @0xc
0x1085…1092 }
0x1092…10a0 9df7 1900 CURSOR G,7
0x1092…10a0 LineComalBin {
0x1092…10a0 ptr = 0x9df7 // 0x1092 @0x0
0x1092…10a0 lno = 0x076c // 0x1094 @0x2
0x1092…10a0 at0004 = ╱a1╱ CURSOR ╱ // 0x1096 @0x4
0x1092…10a0 at0005 = ╱47╱G╱ // 0x1097 @0x5
0x1092…10a0 at0006 = ╱ec╱,╱ // 0x1098 @0x6
0x1092…10a0 at0007 = ╱37╱7╱ // 0x1099 @0x7
0x1092…10a0 at0008 = ╱fe0000e003╱ // 0x109a @0x8
0x1092…10a0 at000d = EOL // 0x109f @0xd
0x1092…10a0 }
0x10a0…10b5 9e0c 1910 PRINT "5:By :"
0x10a0…10b5 LineComalBin {
0x10a0…10b5 ptr = 0x9e0c // 0x10a0 @0x0
0x10a0…10b5 lno = 0x0776 // 0x10a2 @0x2
0x10a0…10b5 at0004 = ╱92╱ PRINT ╱ // 0x10a4 @0x4
0x10a0…10b5 at0005 = ╱22╱"╱ // 0x10a5 @0x5
0x10a0…10b5 at0006 = ╱35╱5╱ // 0x10a6 @0x6
0x10a0…10b5 at0007 = ╱3a╱:╱ // 0x10a7 @0x7
0x10a0…10b5 at0008 = ╱42╱B╱ // 0x10a8 @0x8
0x10a0…10b5 at0009 = ╱79╱y╱ // 0x10a9 @0x9
0x10a0…10b5 at000a = ╱20╱…╱ // 0x10aa @0xa
0x10a0…10b5 at000b = ╱20╱…╱ // 0x10ab @0xb
0x10a0…10b5 at000c = ╱20╱…╱ // 0x10ac @0xc
0x10a0…10b5 at000d = ╱20╱…╱ // 0x10ad @0xd
0x10a0…10b5 at000e = ╱20╱…╱ // 0x10ae @0xe
0x10a0…10b5 at000f = ╱20╱…╱ // 0x10af @0xf
0x10a0…10b5 at0010 = ╱20╱…╱ // 0x10b0 @0x10
0x10a0…10b5 at0011 = ╱20╱…╱ // 0x10b1 @0x11
0x10a0…10b5 at0012 = ╱3a╱:╱ // 0x10b2 @0x12
0x10a0…10b5 at0013 = ╱22╱"╱ // 0x10b3 @0x13
0x10a0…10b5 at0014 = EOL // 0x10b4 @0x14
0x10a0…10b5 }
0x10b5…10c6 9e1d 1920 KSTYR=6
0x10b5…10c6 LineComalBin {
0x10b5…10c6 ptr = 0x9e1d // 0x10b5 @0x0
0x10b5…10c6 lno = 0x0780 // 0x10b7 @0x2
0x10b5…10c6 at0004 = ╱4b╱K╱ // 0x10b9 @0x4
0x10b5…10c6 at0005 = ╱53╱S╱ // 0x10ba @0x5
0x10b5…10c6 at0006 = ╱54╱T╱ // 0x10bb @0x6
0x10b5…10c6 at0007 = ╱59╱Y╱ // 0x10bc @0x7
0x10b5…10c6 at0008 = ╱52╱R╱ // 0x10bd @0x8
0x10b5…10c6 at0009 = ╱dc╱=╱ // 0x10be @0x9
0x10b5…10c6 at000a = ╱36╱6╱ // 0x10bf @0xa
0x10b5…10c6 at000b = ╱fe0000c003╱ // 0x10c0 @0xb
0x10b5…10c6 at0010 = EOL // 0x10c5 @0x10
0x10b5…10c6 }
0x10c6…10cc 9e23 1930 ENDIF
0x10c6…10cc LineComalBin {
0x10c6…10cc ptr = 0x9e23 // 0x10c6 @0x0
0x10c6…10cc lno = 0x078a // 0x10c8 @0x2
0x10c6…10cc at0004 = ╱9b╱ ENDIF ╱ // 0x10ca @0x4
0x10c6…10cc at0005 = EOL // 0x10cb @0x5
0x10c6…10cc }
0x10cc…10d9 9e30 1940 IF CÆND<>G THEN
0x10cc…10d9 LineComalBin {
0x10cc…10d9 ptr = 0x9e30 // 0x10cc @0x0
0x10cc…10d9 lno = 0x0794 // 0x10ce @0x2
0x10cc…10d9 at0004 = ╱9c╱ IF ╱ // 0x10d0 @0x4
0x10cc…10d9 at0005 = ╱43╱C╱ // 0x10d1 @0x5
0x10cc…10d9 at0006 = ╱5b╱Æ╱ // 0x10d2 @0x6
0x10cc…10d9 at0007 = ╱4e╱N╱ // 0x10d3 @0x7
0x10cc…10d9 at0008 = ╱44╱D╱ // 0x10d4 @0x8
0x10cc…10d9 at0009 = ╱e1╱<>╱ // 0x10d5 @0x9
0x10cc…10d9 at000a = ╱47╱G╱ // 0x10d6 @0xa
0x10cc…10d9 at000b = ╱b6╱ THEN ╱ // 0x10d7 @0xb
0x10cc…10d9 at000c = EOL // 0x10d8 @0xc
0x10cc…10d9 }
0x10d9…10e8 9e3f 1950 CURSOR V,23
0x10d9…10e8 LineComalBin {
0x10d9…10e8 ptr = 0x9e3f // 0x10d9 @0x0
0x10d9…10e8 lno = 0x079e // 0x10db @0x2
0x10d9…10e8 at0004 = ╱a1╱ CURSOR ╱ // 0x10dd @0x4
0x10d9…10e8 at0005 = ╱56╱V╱ // 0x10de @0x5
0x10d9…10e8 at0006 = ╱ec╱,╱ // 0x10df @0x6
0x10d9…10e8 at0007 = ╱32╱2╱ // 0x10e0 @0x7
0x10d9…10e8 at0008 = ╱33╱3╱ // 0x10e1 @0x8
0x10d9…10e8 at0009 = ╱fe0000b805╱ // 0x10e2 @0x9
0x10d9…10e8 at000e = EOL // 0x10e7 @0xe
0x10d9…10e8 }
0x10e8…1126 9e7d 1960 PRINT "BY";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31)
0x10e8…1126 LineComalBin {
0x10e8…1126 ptr = 0x9e7d // 0x10e8 @0x0
0x10e8…1126 lno = 0x07a8 // 0x10ea @0x2
0x10e8…1126 at0004 = ╱92╱ PRINT ╱ // 0x10ec @0x4
0x10e8…1126 at0005 = ╱22╱"╱ // 0x10ed @0x5
0x10e8…1126 at0006 = ╱42╱B╱ // 0x10ee @0x6
0x10e8…1126 at0007 = ╱59╱Y╱ // 0x10ef @0x7
0x10e8…1126 at0008 = ╱22╱"╱ // 0x10f0 @0x8
0x10e8…1126 at0009 = ╱eb╱;╱ // 0x10f1 @0x9
0x10e8…1126 at000a = ╱42╱B╱ // 0x10f2 @0xa
0x10e8…1126 at000b = ╱4c╱L╱ // 0x10f3 @0xb
0x10e8…1126 at000c = ╱41╱A╱ // 0x10f4 @0xc
0x10e8…1126 at000d = ╱4e╱N╱ // 0x10f5 @0xd
0x10e8…1126 at000e = ╱4b╱K╱ // 0x10f6 @0xe
0x10e8…1126 at000f = ╱ef╱$╱ // 0x10f7 @0xf
0x10e8…1126 at0010 = ╱ed╱(╱ // 0x10f8 @0x10
0x10e8…1126 at0011 = ╱45╱E╱ // 0x10f9 @0x11
0x10e8…1126 at0012 = ╱f0╱:╱ // 0x10fa @0x12
0x10e8…1126 at0013 = ╱33╱3╱ // 0x10fb @0x13
0x10e8…1126 at0014 = ╱30╱0╱ // 0x10fc @0x14
0x10e8…1126 at0015 = ╱fe0000f005╱ // 0x10fd @0x15
0x10e8…1126 at001a = ╱ee╱)╱ // 0x1102 @0x1a
0x10e8…1126 at001b = ╱eb╱;╱ // 0x1103 @0x1b
0x10e8…1126 at001c = ╱22╱"╱ // 0x1104 @0x1c
0x10e8…1126 at001d = ╱28╱(╱ // 0x1105 @0x1d
0x10e8…1126 at001e = ╱6d╱m╱ // 0x1106 @0x1e
0x10e8…1126 at001f = ╱61╱a╱ // 0x1107 @0x1f
0x10e8…1126 at0020 = ╱78╱x╱ // 0x1108 @0x20
0x10e8…1126 at0021 = ╱20╱…╱ // 0x1109 @0x21
0x10e8…1126 at0022 = ╱32╱2╱ // 0x110a @0x22
0x10e8…1126 at0023 = ╱30╱0╱ // 0x110b @0x23
0x10e8…1126 at0024 = ╱20╱…╱ // 0x110c @0x24
0x10e8…1126 at0025 = ╱74╱t╱ // 0x110d @0x25
0x10e8…1126 at0026 = ╱65╱e╱ // 0x110e @0x26
0x10e8…1126 at0027 = ╱67╱g╱ // 0x110f @0x27
0x10e8…1126 at0028 = ╱6e╱n╱ // 0x1110 @0x28
0x10e8…1126 at0029 = ╱29╱)╱ // 0x1111 @0x29
0x10e8…1126 at002a = ╱22╱"╱ // 0x1112 @0x2a
0x10e8…1126 at002b = ╱eb╱;╱ // 0x1113 @0x2b
0x10e8…1126 at002c = ╱42╱B╱ // 0x1114 @0x2c
0x10e8…1126 at002d = ╱4c╱L╱ // 0x1115 @0x2d
0x10e8…1126 at002e = ╱41╱A╱ // 0x1116 @0x2e
0x10e8…1126 at002f = ╱4e╱N╱ // 0x1117 @0x2f
0x10e8…1126 at0030 = ╱4b╱K╱ // 0x1118 @0x30
0x10e8…1126 at0031 = ╱ef╱$╱ // 0x1119 @0x31
0x10e8…1126 at0032 = ╱ed╱(╱ // 0x111a @0x32
0x10e8…1126 at0033 = ╱45╱E╱ // 0x111b @0x33
0x10e8…1126 at0034 = ╱f0╱:╱ // 0x111c @0x34
0x10e8…1126 at0035 = ╱33╱3╱ // 0x111d @0x35
0x10e8…1126 at0036 = ╱31╱1╱ // 0x111e @0x36
0x10e8…1126 at0037 = ╱fe0000f805╱ // 0x111f @0x37
0x10e8…1126 at003c = ╱ee╱)╱ // 0x1124 @0x3c
0x10e8…1126 at003d = EOL // 0x1125 @0x3d
0x10e8…1126 }
0x1126…113b 9e92 1970 CURSOR 13,23
0x1126…113b LineComalBin {
0x1126…113b ptr = 0x9e92 // 0x1126 @0x0
0x1126…113b lno = 0x07b2 // 0x1128 @0x2
0x1126…113b at0004 = ╱a1╱ CURSOR ╱ // 0x112a @0x4
0x1126…113b at0005 = ╱31╱1╱ // 0x112b @0x5
0x1126…113b at0006 = ╱33╱3╱ // 0x112c @0x6
0x1126…113b at0007 = ╱fe0000d004╱ // 0x112d @0x7
0x1126…113b at000c = ╱ec╱,╱ // 0x1132 @0xc
0x1126…113b at000d = ╱32╱2╱ // 0x1133 @0xd
0x1126…113b at000e = ╱33╱3╱ // 0x1134 @0xe
0x1126…113b at000f = ╱fe0000b805╱ // 0x1135 @0xf
0x1126…113b at0014 = EOL // 0x113a @0x14
0x1126…113b }
0x113b…1147 9e9e 1980 INPUT KREBY$
0x113b…1147 LineComalBin {
0x113b…1147 ptr = 0x9e9e // 0x113b @0x0
0x113b…1147 lno = 0x07bc // 0x113d @0x2
0x113b…1147 at0004 = ╱91╱ INPUT ╱ // 0x113f @0x4
0x113b…1147 at0005 = ╱4b╱K╱ // 0x1140 @0x5
0x113b…1147 at0006 = ╱52╱R╱ // 0x1141 @0x6
0x113b…1147 at0007 = ╱45╱E╱ // 0x1142 @0x7
0x113b…1147 at0008 = ╱42╱B╱ // 0x1143 @0x8
0x113b…1147 at0009 = ╱59╱Y╱ // 0x1144 @0x9
0x113b…1147 at000a = ╱ef╱$╱ // 0x1145 @0xa
0x113b…1147 at000b = EOL // 0x1146 @0xb
0x113b…1147 }
0x1147…114d 9ea4 1990 ENDIF
0x1147…114d LineComalBin {
0x1147…114d ptr = 0x9ea4 // 0x1147 @0x0
0x1147…114d lno = 0x07c6 // 0x1149 @0x2
0x1147…114d at0004 = ╱9b╱ ENDIF ╱ // 0x114b @0x4
0x1147…114d at0005 = EOL // 0x114c @0x5
0x1147…114d }
0x114d…1161 9eb8 2000 CURSOR 16,7
0x114d…1161 LineComalBin {
0x114d…1161 ptr = 0x9eb8 // 0x114d @0x0
0x114d…1161 lno = 0x07d0 // 0x114f @0x2
0x114d…1161 at0004 = ╱a1╱ CURSOR ╱ // 0x1151 @0x4
0x114d…1161 at0005 = ╱31╱1╱ // 0x1152 @0x5
0x114d…1161 at0006 = ╱36╱6╱ // 0x1153 @0x6
0x114d…1161 at0007 = ╱fe00008005╱ // 0x1154 @0x7
0x114d…1161 at000c = ╱ec╱,╱ // 0x1159 @0xc
0x114d…1161 at000d = ╱37╱7╱ // 0x115a @0xd
0x114d…1161 at000e = ╱fe0000e003╱ // 0x115b @0xe
0x114d…1161 at0013 = EOL // 0x1160 @0x13
0x114d…1161 }
0x1161…1178 9ecf 2010 PRINT BLANK$(E:20)
0x1161…1178 LineComalBin {
0x1161…1178 ptr = 0x9ecf // 0x1161 @0x0
0x1161…1178 lno = 0x07da // 0x1163 @0x2
0x1161…1178 at0004 = ╱92╱ PRINT ╱ // 0x1165 @0x4
0x1161…1178 at0005 = ╱42╱B╱ // 0x1166 @0x5
0x1161…1178 at0006 = ╱4c╱L╱ // 0x1167 @0x6
0x1161…1178 at0007 = ╱41╱A╱ // 0x1168 @0x7
0x1161…1178 at0008 = ╱4e╱N╱ // 0x1169 @0x8
0x1161…1178 at0009 = ╱4b╱K╱ // 0x116a @0x9
0x1161…1178 at000a = ╱ef╱$╱ // 0x116b @0xa
0x1161…1178 at000b = ╱ed╱(╱ // 0x116c @0xb
0x1161…1178 at000c = ╱45╱E╱ // 0x116d @0xc
0x1161…1178 at000d = ╱f0╱:╱ // 0x116e @0xd
0x1161…1178 at000e = ╱32╱2╱ // 0x116f @0xe
0x1161…1178 at000f = ╱30╱0╱ // 0x1170 @0xf
0x1161…1178 at0010 = ╱fe0000a005╱ // 0x1171 @0x10
0x1161…1178 at0015 = ╱ee╱)╱ // 0x1176 @0x15
0x1161…1178 at0016 = EOL // 0x1177 @0x16
0x1161…1178 }
0x1178…118c 9ee3 2020 CURSOR 16,7
0x1178…118c LineComalBin {
0x1178…118c ptr = 0x9ee3 // 0x1178 @0x0
0x1178…118c lno = 0x07e4 // 0x117a @0x2
0x1178…118c at0004 = ╱a1╱ CURSOR ╱ // 0x117c @0x4
0x1178…118c at0005 = ╱31╱1╱ // 0x117d @0x5
0x1178…118c at0006 = ╱36╱6╱ // 0x117e @0x6
0x1178…118c at0007 = ╱fe00008005╱ // 0x117f @0x7
0x1178…118c at000c = ╱ec╱,╱ // 0x1184 @0xc
0x1178…118c at000d = ╱37╱7╱ // 0x1185 @0xd
0x1178…118c at000e = ╱fe0000e003╱ // 0x1186 @0xe
0x1178…118c at0013 = EOL // 0x118b @0x13
0x1178…118c }
0x118c…1198 9eef 2030 PRINT KREBY$
0x118c…1198 LineComalBin {
0x118c…1198 ptr = 0x9eef // 0x118c @0x0
0x118c…1198 lno = 0x07ee // 0x118e @0x2
0x118c…1198 at0004 = ╱92╱ PRINT ╱ // 0x1190 @0x4
0x118c…1198 at0005 = ╱4b╱K╱ // 0x1191 @0x5
0x118c…1198 at0006 = ╱52╱R╱ // 0x1192 @0x6
0x118c…1198 at0007 = ╱45╱E╱ // 0x1193 @0x7
0x118c…1198 at0008 = ╱42╱B╱ // 0x1194 @0x8
0x118c…1198 at0009 = ╱59╱Y╱ // 0x1195 @0x9
0x118c…1198 at000a = ╱ef╱$╱ // 0x1196 @0xa
0x118c…1198 at000b = EOL // 0x1197 @0xb
0x118c…1198 }
0x1198…11a5 9efc 2040 WHEN 6
0x1198…11a5 LineComalBin {
0x1198…11a5 ptr = 0x9efc // 0x1198 @0x0
0x1198…11a5 lno = 0x07f8 // 0x119a @0x2
0x1198…11a5 at0004 = ╱a301╱ WHEN ╱ // 0x119c @0x4
0x1198…11a5 at0006 = ╱36╱6╱ // 0x119e @0x6
0x1198…11a5 at0007 = ╱fe0000c003╱ // 0x119f @0x7
0x1198…11a5 at000c = EOL // 0x11a4 @0xc
0x1198…11a5 }
0x11a5…11b2 9f09 2050 IF CÆND<>E THEN
0x11a5…11b2 LineComalBin {
0x11a5…11b2 ptr = 0x9f09 // 0x11a5 @0x0
0x11a5…11b2 lno = 0x0802 // 0x11a7 @0x2
0x11a5…11b2 at0004 = ╱9c╱ IF ╱ // 0x11a9 @0x4
0x11a5…11b2 at0005 = ╱43╱C╱ // 0x11aa @0x5
0x11a5…11b2 at0006 = ╱5b╱Æ╱ // 0x11ab @0x6
0x11a5…11b2 at0007 = ╱4e╱N╱ // 0x11ac @0x7
0x11a5…11b2 at0008 = ╱44╱D╱ // 0x11ad @0x8
0x11a5…11b2 at0009 = ╱e1╱<>╱ // 0x11ae @0x9
0x11a5…11b2 at000a = ╱45╱E╱ // 0x11af @0xa
0x11a5…11b2 at000b = ╱b6╱ THEN ╱ // 0x11b0 @0xb
0x11a5…11b2 at000c = EOL // 0x11b1 @0xc
0x11a5…11b2 }
0x11b2…11c0 9f17 2060 CURSOR G,8
0x11b2…11c0 LineComalBin {
0x11b2…11c0 ptr = 0x9f17 // 0x11b2 @0x0
0x11b2…11c0 lno = 0x080c // 0x11b4 @0x2
0x11b2…11c0 at0004 = ╱a1╱ CURSOR ╱ // 0x11b6 @0x4
0x11b2…11c0 at0005 = ╱47╱G╱ // 0x11b7 @0x5
0x11b2…11c0 at0006 = ╱ec╱,╱ // 0x11b8 @0x6
0x11b2…11c0 at0007 = ╱38╱8╱ // 0x11b9 @0x7
0x11b2…11c0 at0008 = ╱fe00008004╱ // 0x11ba @0x8
0x11b2…11c0 at000d = EOL // 0x11bf @0xd
0x11b2…11c0 }
0x11c0…11df 9f36 2070 PRINT "6:Landekode : Land:"
0x11c0…11df LineComalBin {
0x11c0…11df ptr = 0x9f36 // 0x11c0 @0x0
0x11c0…11df lno = 0x0816 // 0x11c2 @0x2
0x11c0…11df at0004 = ╱92╱ PRINT ╱ // 0x11c4 @0x4
0x11c0…11df at0005 = ╱22╱"╱ // 0x11c5 @0x5
0x11c0…11df at0006 = ╱36╱6╱ // 0x11c6 @0x6
0x11c0…11df at0007 = ╱3a╱:╱ // 0x11c7 @0x7
0x11c0…11df at0008 = ╱4c╱L╱ // 0x11c8 @0x8
0x11c0…11df at0009 = ╱61╱a╱ // 0x11c9 @0x9
0x11c0…11df at000a = ╱6e╱n╱ // 0x11ca @0xa
0x11c0…11df at000b = ╱64╱d╱ // 0x11cb @0xb
0x11c0…11df at000c = ╱65╱e╱ // 0x11cc @0xc
0x11c0…11df at000d = ╱6b╱k╱ // 0x11cd @0xd
0x11c0…11df at000e = ╱6f╱o╱ // 0x11ce @0xe
0x11c0…11df at000f = ╱64╱d╱ // 0x11cf @0xf
0x11c0…11df at0010 = ╱65╱e╱ // 0x11d0 @0x10
0x11c0…11df at0011 = ╱20╱…╱ // 0x11d1 @0x11
0x11c0…11df at0012 = ╱3a╱:╱ // 0x11d2 @0x12
0x11c0…11df at0013 = ╱20╱…╱ // 0x11d3 @0x13
0x11c0…11df at0014 = ╱20╱…╱ // 0x11d4 @0x14
0x11c0…11df at0015 = ╱20╱…╱ // 0x11d5 @0x15
0x11c0…11df at0016 = ╱20╱…╱ // 0x11d6 @0x16
0x11c0…11df at0017 = ╱20╱…╱ // 0x11d7 @0x17
0x11c0…11df at0018 = ╱4c╱L╱ // 0x11d8 @0x18
0x11c0…11df at0019 = ╱61╱a╱ // 0x11d9 @0x19
0x11c0…11df at001a = ╱6e╱n╱ // 0x11da @0x1a
0x11c0…11df at001b = ╱64╱d╱ // 0x11db @0x1b
0x11c0…11df at001c = ╱3a╱:╱ // 0x11dc @0x1c
0x11c0…11df at001d = ╱22╱"╱ // 0x11dd @0x1d
0x11c0…11df at001e = EOL // 0x11de @0x1e
0x11c0…11df }
0x11df…11f0 9f47 2080 KSTYR=7
0x11df…11f0 LineComalBin {
0x11df…11f0 ptr = 0x9f47 // 0x11df @0x0
0x11df…11f0 lno = 0x0820 // 0x11e1 @0x2
0x11df…11f0 at0004 = ╱4b╱K╱ // 0x11e3 @0x4
0x11df…11f0 at0005 = ╱53╱S╱ // 0x11e4 @0x5
0x11df…11f0 at0006 = ╱54╱T╱ // 0x11e5 @0x6
0x11df…11f0 at0007 = ╱59╱Y╱ // 0x11e6 @0x7
0x11df…11f0 at0008 = ╱52╱R╱ // 0x11e7 @0x8
0x11df…11f0 at0009 = ╱dc╱=╱ // 0x11e8 @0x9
0x11df…11f0 at000a = ╱37╱7╱ // 0x11e9 @0xa
0x11df…11f0 at000b = ╱fe0000e003╱ // 0x11ea @0xb
0x11df…11f0 at0010 = EOL // 0x11ef @0x10
0x11df…11f0 }
0x11f0…11f6 9f4d 2090 ENDIF
0x11f0…11f6 LineComalBin {
0x11f0…11f6 ptr = 0x9f4d // 0x11f0 @0x0
0x11f0…11f6 lno = 0x082a // 0x11f2 @0x2
0x11f0…11f6 at0004 = ╱9b╱ ENDIF ╱ // 0x11f4 @0x4
0x11f0…11f6 at0005 = EOL // 0x11f5 @0x5
0x11f0…11f6 }
0x11f6…1203 9f5a 2100 IF CÆND<>G THEN
0x11f6…1203 LineComalBin {
0x11f6…1203 ptr = 0x9f5a // 0x11f6 @0x0
0x11f6…1203 lno = 0x0834 // 0x11f8 @0x2
0x11f6…1203 at0004 = ╱9c╱ IF ╱ // 0x11fa @0x4
0x11f6…1203 at0005 = ╱43╱C╱ // 0x11fb @0x5
0x11f6…1203 at0006 = ╱5b╱Æ╱ // 0x11fc @0x6
0x11f6…1203 at0007 = ╱4e╱N╱ // 0x11fd @0x7
0x11f6…1203 at0008 = ╱44╱D╱ // 0x11fe @0x8
0x11f6…1203 at0009 = ╱e1╱<>╱ // 0x11ff @0x9
0x11f6…1203 at000a = ╱47╱G╱ // 0x1200 @0xa
0x11f6…1203 at000b = ╱b6╱ THEN ╱ // 0x1201 @0xb
0x11f6…1203 at000c = EOL // 0x1202 @0xc
0x11f6…1203 }
0x1203…1209 9f60 2110 REPEAT
0x1203…1209 LineComalBin {
0x1203…1209 ptr = 0x9f60 // 0x1203 @0x0
0x1203…1209 lno = 0x083e // 0x1205 @0x2
0x1203…1209 at0004 = ╱97╱ REPEAT ╱ // 0x1207 @0x4
0x1203…1209 at0005 = EOL // 0x1208 @0x5
0x1203…1209 }
0x1209…1218 9f6f 2120 CURSOR V,23
0x1209…1218 LineComalBin {
0x1209…1218 ptr = 0x9f6f // 0x1209 @0x0
0x1209…1218 lno = 0x0848 // 0x120b @0x2
0x1209…1218 at0004 = ╱a1╱ CURSOR ╱ // 0x120d @0x4
0x1209…1218 at0005 = ╱56╱V╱ // 0x120e @0x5
0x1209…1218 at0006 = ╱ec╱,╱ // 0x120f @0x6
0x1209…1218 at0007 = ╱32╱2╱ // 0x1210 @0x7
0x1209…1218 at0008 = ╱33╱3╱ // 0x1211 @0x8
0x1209…1218 at0009 = ╱fe0000b805╱ // 0x1212 @0x9
0x1209…1218 at000e = EOL // 0x1217 @0xe
0x1209…1218 }
0x1218…1265 9fbc 2130 PRINT "Landekode";BLANK$(E:W);"0:for Danmark, max 2 cifre)";BLANK$(E:30)
0x1218…1265 LineComalBin {
0x1218…1265 ptr = 0x9fbc // 0x1218 @0x0
0x1218…1265 lno = 0x0852 // 0x121a @0x2
0x1218…1265 at0004 = ╱92╱ PRINT ╱ // 0x121c @0x4
0x1218…1265 at0005 = ╱22╱"╱ // 0x121d @0x5
0x1218…1265 at0006 = ╱4c╱L╱ // 0x121e @0x6
0x1218…1265 at0007 = ╱61╱a╱ // 0x121f @0x7
0x1218…1265 at0008 = ╱6e╱n╱ // 0x1220 @0x8
0x1218…1265 at0009 = ╱64╱d╱ // 0x1221 @0x9
0x1218…1265 at000a = ╱65╱e╱ // 0x1222 @0xa
0x1218…1265 at000b = ╱6b╱k╱ // 0x1223 @0xb
0x1218…1265 at000c = ╱6f╱o╱ // 0x1224 @0xc
0x1218…1265 at000d = ╱64╱d╱ // 0x1225 @0xd
0x1218…1265 at000e = ╱65╱e╱ // 0x1226 @0xe
0x1218…1265 at000f = ╱22╱"╱ // 0x1227 @0xf
0x1218…1265 at0010 = ╱eb╱;╱ // 0x1228 @0x10
0x1218…1265 at0011 = ╱42╱B╱ // 0x1229 @0x11
0x1218…1265 at0012 = ╱4c╱L╱ // 0x122a @0x12
0x1218…1265 at0013 = ╱41╱A╱ // 0x122b @0x13
0x1218…1265 at0014 = ╱4e╱N╱ // 0x122c @0x14
0x1218…1265 at0015 = ╱4b╱K╱ // 0x122d @0x15
0x1218…1265 at0016 = ╱ef╱$╱ // 0x122e @0x16
0x1218…1265 at0017 = ╱ed╱(╱ // 0x122f @0x17
0x1218…1265 at0018 = ╱45╱E╱ // 0x1230 @0x18
0x1218…1265 at0019 = ╱f0╱:╱ // 0x1231 @0x19
0x1218…1265 at001a = ╱57╱W╱ // 0x1232 @0x1a
0x1218…1265 at001b = ╱ee╱)╱ // 0x1233 @0x1b
0x1218…1265 at001c = ╱eb╱;╱ // 0x1234 @0x1c
0x1218…1265 at001d = ╱22╱"╱ // 0x1235 @0x1d
0x1218…1265 at001e = ╱30╱0╱ // 0x1236 @0x1e
0x1218…1265 at001f = ╱3a╱:╱ // 0x1237 @0x1f
0x1218…1265 at0020 = ╱66╱f╱ // 0x1238 @0x20
0x1218…1265 at0021 = ╱6f╱o╱ // 0x1239 @0x21
0x1218…1265 at0022 = ╱72╱r╱ // 0x123a @0x22
0x1218…1265 at0023 = ╱20╱…╱ // 0x123b @0x23
0x1218…1265 at0024 = ╱44╱D╱ // 0x123c @0x24
0x1218…1265 at0025 = ╱61╱a╱ // 0x123d @0x25
0x1218…1265 at0026 = ╱6e╱n╱ // 0x123e @0x26
0x1218…1265 at0027 = ╱6d╱m╱ // 0x123f @0x27
0x1218…1265 at0028 = ╱61╱a╱ // 0x1240 @0x28
0x1218…1265 at0029 = ╱72╱r╱ // 0x1241 @0x29
0x1218…1265 at002a = ╱6b╱k╱ // 0x1242 @0x2a
0x1218…1265 at002b = ╱2c╱,╱ // 0x1243 @0x2b
0x1218…1265 at002c = ╱20╱…╱ // 0x1244 @0x2c
0x1218…1265 at002d = ╱6d╱m╱ // 0x1245 @0x2d
0x1218…1265 at002e = ╱61╱a╱ // 0x1246 @0x2e
0x1218…1265 at002f = ╱78╱x╱ // 0x1247 @0x2f
0x1218…1265 at0030 = ╱20╱…╱ // 0x1248 @0x30
0x1218…1265 at0031 = ╱32╱2╱ // 0x1249 @0x31
0x1218…1265 at0032 = ╱20╱…╱ // 0x124a @0x32
0x1218…1265 at0033 = ╱63╱c╱ // 0x124b @0x33
0x1218…1265 at0034 = ╱69╱i╱ // 0x124c @0x34
0x1218…1265 at0035 = ╱66╱f╱ // 0x124d @0x35
0x1218…1265 at0036 = ╱72╱r╱ // 0x124e @0x36
0x1218…1265 at0037 = ╱65╱e╱ // 0x124f @0x37
0x1218…1265 at0038 = ╱29╱)╱ // 0x1250 @0x38
0x1218…1265 at0039 = ╱22╱"╱ // 0x1251 @0x39
0x1218…1265 at003a = ╱eb╱;╱ // 0x1252 @0x3a
0x1218…1265 at003b = ╱42╱B╱ // 0x1253 @0x3b
0x1218…1265 at003c = ╱4c╱L╱ // 0x1254 @0x3c
0x1218…1265 at003d = ╱41╱A╱ // 0x1255 @0x3d
0x1218…1265 at003e = ╱4e╱N╱ // 0x1256 @0x3e
0x1218…1265 at003f = ╱4b╱K╱ // 0x1257 @0x3f
0x1218…1265 at0040 = ╱ef╱$╱ // 0x1258 @0x40
0x1218…1265 at0041 = ╱ed╱(╱ // 0x1259 @0x41
0x1218…1265 at0042 = ╱45╱E╱ // 0x125a @0x42
0x1218…1265 at0043 = ╱f0╱:╱ // 0x125b @0x43
0x1218…1265 at0044 = ╱33╱3╱ // 0x125c @0x44
0x1218…1265 at0045 = ╱30╱0╱ // 0x125d @0x45
0x1218…1265 at0046 = ╱fe0000f005╱ // 0x125e @0x46
0x1218…1265 at004b = ╱ee╱)╱ // 0x1263 @0x4b
0x1218…1265 at004c = EOL // 0x1264 @0x4c
0x1218…1265 }
0x1265…127a 9fd1 2140 CURSOR 13,23
0x1265…127a LineComalBin {
0x1265…127a ptr = 0x9fd1 // 0x1265 @0x0
0x1265…127a lno = 0x085c // 0x1267 @0x2
0x1265…127a at0004 = ╱a1╱ CURSOR ╱ // 0x1269 @0x4
0x1265…127a at0005 = ╱31╱1╱ // 0x126a @0x5
0x1265…127a at0006 = ╱33╱3╱ // 0x126b @0x6
0x1265…127a at0007 = ╱fe0000d004╱ // 0x126c @0x7
0x1265…127a at000c = ╱ec╱,╱ // 0x1271 @0xc
0x1265…127a at000d = ╱32╱2╱ // 0x1272 @0xd
0x1265…127a at000e = ╱33╱3╱ // 0x1273 @0xe
0x1265…127a at000f = ╱fe0000b805╱ // 0x1274 @0xf
0x1265…127a at0014 = EOL // 0x1279 @0x14
0x1265…127a }
0x127a…1283 9fda 2150 INPUT LK$
0x127a…1283 LineComalBin {
0x127a…1283 ptr = 0x9fda // 0x127a @0x0
0x127a…1283 lno = 0x0866 // 0x127c @0x2
0x127a…1283 at0004 = ╱91╱ INPUT ╱ // 0x127e @0x4
0x127a…1283 at0005 = ╱4c╱L╱ // 0x127f @0x5
0x127a…1283 at0006 = ╱4b╱K╱ // 0x1280 @0x6
0x127a…1283 at0007 = ╱ef╱$╱ // 0x1281 @0x7
0x127a…1283 at0008 = EOL // 0x1282 @0x8
0x127a…1283 }
0x1283…1294 9feb 2160 EXEC NRTEST(LK$)
0x1283…1294 LineComalBin {
0x1283…1294 ptr = 0x9feb // 0x1283 @0x0
0x1283…1294 lno = 0x0870 // 0x1285 @0x2
0x1283…1294 at0004 = ╱9d╱ EXEC ╱ // 0x1287 @0x4
0x1283…1294 at0005 = ╱4e╱N╱ // 0x1288 @0x5
0x1283…1294 at0006 = ╱52╱R╱ // 0x1289 @0x6
0x1283…1294 at0007 = ╱54╱T╱ // 0x128a @0x7
0x1283…1294 at0008 = ╱45╱E╱ // 0x128b @0x8
0x1283…1294 at0009 = ╱53╱S╱ // 0x128c @0x9
0x1283…1294 at000a = ╱54╱T╱ // 0x128d @0xa
0x1283…1294 at000b = ╱ed╱(╱ // 0x128e @0xb
0x1283…1294 at000c = ╱4c╱L╱ // 0x128f @0xc
0x1283…1294 at000d = ╱4b╱K╱ // 0x1290 @0xd
0x1283…1294 at000e = ╱ef╱$╱ // 0x1291 @0xe
0x1283…1294 at000f = ╱ee╱)╱ // 0x1292 @0xf
0x1283…1294 at0010 = EOL // 0x1293 @0x10
0x1283…1294 }
0x1294…12c0 a017 2170 UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E)
0x1294…12c0 LineComalBin {
0x1294…12c0 ptr = 0xa017 // 0x1294 @0x0
0x1294…12c0 lno = 0x087a // 0x1296 @0x2
0x1294…12c0 at0004 = ╱98╱ UNTIL ╱ // 0x1298 @0x4
0x1294…12c0 at0005 = ╱ed╱(╱ // 0x1299 @0x5
0x1294…12c0 at0006 = ╱50╱P╱ // 0x129a @0x6
0x1294…12c0 at0007 = ╱de╱>╱ // 0x129b @0x7
0x1294…12c0 at0008 = ╱e9╱-╱ // 0x129c @0x8
0x1294…12c0 at0009 = ╱45╱E╱ // 0x129d @0x9
0x1294…12c0 at000a = ╱da╱ AND ╱ // 0x129e @0xa
0x1294…12c0 at000b = ╱50╱P╱ // 0x129f @0xb
0x1294…12c0 at000c = ╱dd╱<╱ // 0x12a0 @0xc
0x1294…12c0 at000d = ╱31╱1╱ // 0x12a1 @0xd
0x1294…12c0 at000e = ╱30╱0╱ // 0x12a2 @0xe
0x1294…12c0 at000f = ╱fe0000a004╱ // 0x12a3 @0xf
0x1294…12c0 at0014 = ╱da╱ AND ╱ // 0x12a8 @0x14
0x1294…12c0 at0015 = ╱54╱T╱ // 0x12a9 @0x15
0x1294…12c0 at0016 = ╱45╱E╱ // 0x12aa @0x16
0x1294…12c0 at0017 = ╱53╱S╱ // 0x12ab @0x17
0x1294…12c0 at0018 = ╱54╱T╱ // 0x12ac @0x18
0x1294…12c0 at0019 = ╱32╱2╱ // 0x12ad @0x19
0x1294…12c0 at001a = ╱dc╱=╱ // 0x12ae @0x1a
0x1294…12c0 at001b = ╱42╱B╱ // 0x12af @0x1b
0x1294…12c0 at001c = ╱ee╱)╱ // 0x12b0 @0x1c
0x1294…12c0 at001d = ╱db╱ OR ╱ // 0x12b1 @0x1d
0x1294…12c0 at001e = ╱ed╱(╱ // 0x12b2 @0x1e
0x1294…12c0 at001f = ╱50╱P╱ // 0x12b3 @0x1f
0x1294…12c0 at0020 = ╱dc╱=╱ // 0x12b4 @0x20
0x1294…12c0 at0021 = ╱e9╱-╱ // 0x12b5 @0x21
0x1294…12c0 at0022 = ╱45╱E╱ // 0x12b6 @0x22
0x1294…12c0 at0023 = ╱da╱ AND ╱ // 0x12b7 @0x23
0x1294…12c0 at0024 = ╱43╱C╱ // 0x12b8 @0x24
0x1294…12c0 at0025 = ╱5b╱Æ╱ // 0x12b9 @0x25
0x1294…12c0 at0026 = ╱4e╱N╱ // 0x12ba @0x26
0x1294…12c0 at0027 = ╱44╱D╱ // 0x12bb @0x27
0x1294…12c0 at0028 = ╱dc╱=╱ // 0x12bc @0x28
0x1294…12c0 at0029 = ╱45╱E╱ // 0x12bd @0x29
0x1294…12c0 at002a = ╱ee╱)╱ // 0x12be @0x2a
0x1294…12c0 at002b = EOL // 0x12bf @0x2b
0x1294…12c0 }
0x12c0…12c6 a01d 2180 ENDIF
0x12c0…12c6 LineComalBin {
0x12c0…12c6 ptr = 0xa01d // 0x12c0 @0x0
0x12c0…12c6 lno = 0x0884 // 0x12c2 @0x2
0x12c0…12c6 at0004 = ╱9b╱ ENDIF ╱ // 0x12c4 @0x4
0x12c0…12c6 at0005 = EOL // 0x12c5 @0x5
0x12c0…12c6 }
0x12c6…12da a031 2190 CURSOR 16,8
0x12c6…12da LineComalBin {
0x12c6…12da ptr = 0xa031 // 0x12c6 @0x0
0x12c6…12da lno = 0x088e // 0x12c8 @0x2
0x12c6…12da at0004 = ╱a1╱ CURSOR ╱ // 0x12ca @0x4
0x12c6…12da at0005 = ╱31╱1╱ // 0x12cb @0x5
0x12c6…12da at0006 = ╱36╱6╱ // 0x12cc @0x6
0x12c6…12da at0007 = ╱fe00008005╱ // 0x12cd @0x7
0x12c6…12da at000c = ╱ec╱,╱ // 0x12d2 @0xc
0x12c6…12da at000d = ╱38╱8╱ // 0x12d3 @0xd
0x12c6…12da at000e = ╱fe00008004╱ // 0x12d4 @0xe
0x12c6…12da at0013 = EOL // 0x12d9 @0x13
0x12c6…12da }
0x12da…12eb a042 2200 PRINT BLANK$(E:V)
0x12da…12eb LineComalBin {
0x12da…12eb ptr = 0xa042 // 0x12da @0x0
0x12da…12eb lno = 0x0898 // 0x12dc @0x2
0x12da…12eb at0004 = ╱92╱ PRINT ╱ // 0x12de @0x4
0x12da…12eb at0005 = ╱42╱B╱ // 0x12df @0x5
0x12da…12eb at0006 = ╱4c╱L╱ // 0x12e0 @0x6
0x12da…12eb at0007 = ╱41╱A╱ // 0x12e1 @0x7
0x12da…12eb at0008 = ╱4e╱N╱ // 0x12e2 @0x8
0x12da…12eb at0009 = ╱4b╱K╱ // 0x12e3 @0x9
0x12da…12eb at000a = ╱ef╱$╱ // 0x12e4 @0xa
0x12da…12eb at000b = ╱ed╱(╱ // 0x12e5 @0xb
0x12da…12eb at000c = ╱45╱E╱ // 0x12e6 @0xc
0x12da…12eb at000d = ╱f0╱:╱ // 0x12e7 @0xd
0x12da…12eb at000e = ╱56╱V╱ // 0x12e8 @0xe
0x12da…12eb at000f = ╱ee╱)╱ // 0x12e9 @0xf
0x12da…12eb at0010 = EOL // 0x12ea @0x10
0x12da…12eb }
0x12eb…12ff a056 2210 CURSOR 27,8
0x12eb…12ff LineComalBin {
0x12eb…12ff ptr = 0xa056 // 0x12eb @0x0
0x12eb…12ff lno = 0x08a2 // 0x12ed @0x2
0x12eb…12ff at0004 = ╱a1╱ CURSOR ╱ // 0x12ef @0x4
0x12eb…12ff at0005 = ╱32╱2╱ // 0x12f0 @0x5
0x12eb…12ff at0006 = ╱37╱7╱ // 0x12f1 @0x6
0x12eb…12ff at0007 = ╱fe0000d805╱ // 0x12f2 @0x7
0x12eb…12ff at000c = ╱ec╱,╱ // 0x12f7 @0xc
0x12eb…12ff at000d = ╱38╱8╱ // 0x12f8 @0xd
0x12eb…12ff at000e = ╱fe00008004╱ // 0x12f9 @0xe
0x12eb…12ff at0013 = EOL // 0x12fe @0x13
0x12eb…12ff }
0x12ff…1316 a06d 2220 PRINT BLANK$(E:15)
0x12ff…1316 LineComalBin {
0x12ff…1316 ptr = 0xa06d // 0x12ff @0x0
0x12ff…1316 lno = 0x08ac // 0x1301 @0x2
0x12ff…1316 at0004 = ╱92╱ PRINT ╱ // 0x1303 @0x4
0x12ff…1316 at0005 = ╱42╱B╱ // 0x1304 @0x5
0x12ff…1316 at0006 = ╱4c╱L╱ // 0x1305 @0x6
0x12ff…1316 at0007 = ╱41╱A╱ // 0x1306 @0x7
0x12ff…1316 at0008 = ╱4e╱N╱ // 0x1307 @0x8
0x12ff…1316 at0009 = ╱4b╱K╱ // 0x1308 @0x9
0x12ff…1316 at000a = ╱ef╱$╱ // 0x1309 @0xa
0x12ff…1316 at000b = ╱ed╱(╱ // 0x130a @0xb
0x12ff…1316 at000c = ╱45╱E╱ // 0x130b @0xc
0x12ff…1316 at000d = ╱f0╱:╱ // 0x130c @0xd
0x12ff…1316 at000e = ╱31╱1╱ // 0x130d @0xe
0x12ff…1316 at000f = ╱35╱5╱ // 0x130e @0xf
0x12ff…1316 at0010 = ╱fe0000f004╱ // 0x130f @0x10
0x12ff…1316 at0015 = ╱ee╱)╱ // 0x1314 @0x15
0x12ff…1316 at0016 = EOL // 0x1315 @0x16
0x12ff…1316 }
0x1316…132a a081 2230 CURSOR 16,8
0x1316…132a LineComalBin {
0x1316…132a ptr = 0xa081 // 0x1316 @0x0
0x1316…132a lno = 0x08b6 // 0x1318 @0x2
0x1316…132a at0004 = ╱a1╱ CURSOR ╱ // 0x131a @0x4
0x1316…132a at0005 = ╱31╱1╱ // 0x131b @0x5
0x1316…132a at0006 = ╱36╱6╱ // 0x131c @0x6
0x1316…132a at0007 = ╱fe00008005╱ // 0x131d @0x7
0x1316…132a at000c = ╱ec╱,╱ // 0x1322 @0xc
0x1316…132a at000d = ╱38╱8╱ // 0x1323 @0xd
0x1316…132a at000e = ╱fe00008004╱ // 0x1324 @0xe
0x1316…132a at0013 = EOL // 0x1329 @0x13
0x1316…132a }
0x132a…1341 a098 2240 IF P<10 AND CÆND<>G THEN
0x132a…1341 LineComalBin {
0x132a…1341 ptr = 0xa098 // 0x132a @0x0
0x132a…1341 lno = 0x08c0 // 0x132c @0x2
0x132a…1341 at0004 = ╱9c╱ IF ╱ // 0x132e @0x4
0x132a…1341 at0005 = ╱50╱P╱ // 0x132f @0x5
0x132a…1341 at0006 = ╱dd╱<╱ // 0x1330 @0x6
0x132a…1341 at0007 = ╱31╱1╱ // 0x1331 @0x7
0x132a…1341 at0008 = ╱30╱0╱ // 0x1332 @0x8
0x132a…1341 at0009 = ╱fe0000a004╱ // 0x1333 @0x9
0x132a…1341 at000e = ╱da╱ AND ╱ // 0x1338 @0xe
0x132a…1341 at000f = ╱43╱C╱ // 0x1339 @0xf
0x132a…1341 at0010 = ╱5b╱Æ╱ // 0x133a @0x10
0x132a…1341 at0011 = ╱4e╱N╱ // 0x133b @0x11
0x132a…1341 at0012 = ╱44╱D╱ // 0x133c @0x12
0x132a…1341 at0013 = ╱e1╱<>╱ // 0x133d @0x13
0x132a…1341 at0014 = ╱47╱G╱ // 0x133e @0x14
0x132a…1341 at0015 = ╱b6╱ THEN ╱ // 0x133f @0x15
0x132a…1341 at0016 = EOL // 0x1340 @0x16
0x132a…1341 }
0x1341…1359 a0b0 2250 KRELK$=CHR(P+48)
0x1341…1359 LineComalBin {
0x1341…1359 ptr = 0xa0b0 // 0x1341 @0x0
0x1341…1359 lno = 0x08ca // 0x1343 @0x2
0x1341…1359 at0004 = ╱4b╱K╱ // 0x1345 @0x4
0x1341…1359 at0005 = ╱52╱R╱ // 0x1346 @0x5
0x1341…1359 at0006 = ╱45╱E╱ // 0x1347 @0x6
0x1341…1359 at0007 = ╱4c╱L╱ // 0x1348 @0x7
0x1341…1359 at0008 = ╱4b╱K╱ // 0x1349 @0x8
0x1341…1359 at0009 = ╱ef╱$╱ // 0x134a @0x9
0x1341…1359 at000a = ╱dc╱=╱ // 0x134b @0xa
0x1341…1359 at000b = ╱cf╱CHR╱ // 0x134c @0xb
0x1341…1359 at000c = ╱ed╱(╱ // 0x134d @0xc
0x1341…1359 at000d = ╱50╱P╱ // 0x134e @0xd
0x1341…1359 at000e = ╱e2╱+╱ // 0x134f @0xe
0x1341…1359 at000f = ╱34╱4╱ // 0x1350 @0xf
0x1341…1359 at0010 = ╱38╱8╱ // 0x1351 @0x10
0x1341…1359 at0011 = ╱fe0000c006╱ // 0x1352 @0x11
0x1341…1359 at0016 = ╱ee╱)╱ // 0x1357 @0x16
0x1341…1359 at0017 = EOL // 0x1358 @0x17
0x1341…1359 }
0x1359…135f a0b6 2260 ENDIF
0x1359…135f LineComalBin {
0x1359…135f ptr = 0xa0b6 // 0x1359 @0x0
0x1359…135f lno = 0x08d4 // 0x135b @0x2
0x1359…135f at0004 = ╱9b╱ ENDIF ╱ // 0x135d @0x4
0x1359…135f at0005 = EOL // 0x135e @0x5
0x1359…135f }
0x135f…1377 a0ce 2270 P=ORD(KRELK$)-48
0x135f…1377 LineComalBin {
0x135f…1377 ptr = 0xa0ce // 0x135f @0x0
0x135f…1377 lno = 0x08de // 0x1361 @0x2
0x135f…1377 at0004 = ╱50╱P╱ // 0x1363 @0x4
0x135f…1377 at0005 = ╱dc╱=╱ // 0x1364 @0x5
0x135f…1377 at0006 = ╱cd╱ORD╱ // 0x1365 @0x6
0x135f…1377 at0007 = ╱ed╱(╱ // 0x1366 @0x7
0x135f…1377 at0008 = ╱4b╱K╱ // 0x1367 @0x8
0x135f…1377 at0009 = ╱52╱R╱ // 0x1368 @0x9
0x135f…1377 at000a = ╱45╱E╱ // 0x1369 @0xa
0x135f…1377 at000b = ╱4c╱L╱ // 0x136a @0xb
0x135f…1377 at000c = ╱4b╱K╱ // 0x136b @0xc
0x135f…1377 at000d = ╱ef╱$╱ // 0x136c @0xd
0x135f…1377 at000e = ╱ee╱)╱ // 0x136d @0xe
0x135f…1377 at000f = ╱e3╱-╱ // 0x136e @0xf
0x135f…1377 at0010 = ╱34╱4╱ // 0x136f @0x10
0x135f…1377 at0011 = ╱38╱8╱ // 0x1370 @0x11
0x135f…1377 at0012 = ╱fe0000c006╱ // 0x1371 @0x12
0x135f…1377 at0017 = EOL // 0x1376 @0x17
0x135f…1377 }
0x1377…1385 a0dc 2280 PRINT USING "###":P
0x1377…1385 LineComalBin {
0x1377…1385 ptr = 0xa0dc // 0x1377 @0x0
0x1377…1385 lno = 0x08e8 // 0x1379 @0x2
0x1377…1385 at0004 = ╱92╱ PRINT ╱ // 0x137b @0x4
0x1377…1385 at0005 = ╱b9╱ USING ╱ // 0x137c @0x5
0x1377…1385 at0006 = ╱22╱"╱ // 0x137d @0x6
0x1377…1385 at0007 = ╱23╱#╱ // 0x137e @0x7
0x1377…1385 at0008 = ╱23╱#╱ // 0x137f @0x8
0x1377…1385 at0009 = ╱23╱#╱ // 0x1380 @0x9
0x1377…1385 at000a = ╱22╱"╱ // 0x1381 @0xa
0x1377…1385 at000b = ╱f0╱:╱ // 0x1382 @0xb
0x1377…1385 at000c = ╱50╱P╱ // 0x1383 @0xc
0x1377…1385 at000d = EOL // 0x1384 @0xd
0x1377…1385 }
0x1385…1399 a0f0 2290 CURSOR 27,8
0x1385…1399 LineComalBin {
0x1385…1399 ptr = 0xa0f0 // 0x1385 @0x0
0x1385…1399 lno = 0x08f2 // 0x1387 @0x2
0x1385…1399 at0004 = ╱a1╱ CURSOR ╱ // 0x1389 @0x4
0x1385…1399 at0005 = ╱32╱2╱ // 0x138a @0x5
0x1385…1399 at0006 = ╱37╱7╱ // 0x138b @0x6
0x1385…1399 at0007 = ╱fe0000d805╱ // 0x138c @0x7
0x1385…1399 at000c = ╱ec╱,╱ // 0x1391 @0xc
0x1385…1399 at000d = ╱38╱8╱ // 0x1392 @0xd
0x1385…1399 at000e = ╱fe00008004╱ // 0x1393 @0xe
0x1385…1399 at0013 = EOL // 0x1398 @0x13
0x1385…1399 }
0x1399…13a3 a0fa 2300 IF P=B THEN
0x1399…13a3 LineComalBin {
0x1399…13a3 ptr = 0xa0fa // 0x1399 @0x0
0x1399…13a3 lno = 0x08fc // 0x139b @0x2
0x1399…13a3 at0004 = ╱9c╱ IF ╱ // 0x139d @0x4
0x1399…13a3 at0005 = ╱50╱P╱ // 0x139e @0x5
0x1399…13a3 at0006 = ╱dc╱=╱ // 0x139f @0x6
0x1399…13a3 at0007 = ╱42╱B╱ // 0x13a0 @0x7
0x1399…13a3 at0008 = ╱b6╱ THEN ╱ // 0x13a1 @0x8
0x1399…13a3 at0009 = EOL // 0x13a2 @0x9
0x1399…13a3 }
0x13a3…13b2 a109 2310 PRINT "Danmark"
0x13a3…13b2 LineComalBin {
0x13a3…13b2 ptr = 0xa109 // 0x13a3 @0x0
0x13a3…13b2 lno = 0x0906 // 0x13a5 @0x2
0x13a3…13b2 at0004 = ╱92╱ PRINT ╱ // 0x13a7 @0x4
0x13a3…13b2 at0005 = ╱22╱"╱ // 0x13a8 @0x5
0x13a3…13b2 at0006 = ╱44╱D╱ // 0x13a9 @0x6
0x13a3…13b2 at0007 = ╱61╱a╱ // 0x13aa @0x7
0x13a3…13b2 at0008 = ╱6e╱n╱ // 0x13ab @0x8
0x13a3…13b2 at0009 = ╱6d╱m╱ // 0x13ac @0x9
0x13a3…13b2 at000a = ╱61╱a╱ // 0x13ad @0xa
0x13a3…13b2 at000b = ╱72╱r╱ // 0x13ae @0xb
0x13a3…13b2 at000c = ╱6b╱k╱ // 0x13af @0xc
0x13a3…13b2 at000d = ╱22╱"╱ // 0x13b0 @0xd
0x13a3…13b2 at000e = EOL // 0x13b1 @0xe
0x13a3…13b2 }
0x13b2…13b8 a10f 2320 ELSE
0x13b2…13b8 LineComalBin {
0x13b2…13b8 ptr = 0xa10f // 0x13b2 @0x0
0x13b2…13b8 lno = 0x0910 // 0x13b4 @0x2
0x13b2…13b8 at0004 = ╱9a╱ ELSE ╱ // 0x13b6 @0x4
0x13b2…13b8 at0005 = EOL // 0x13b7 @0x5
0x13b2…13b8 }
0x13b8…13c6 a11d 2330 PRINT LAND$(P)
0x13b8…13c6 LineComalBin {
0x13b8…13c6 ptr = 0xa11d // 0x13b8 @0x0
0x13b8…13c6 lno = 0x091a // 0x13ba @0x2
0x13b8…13c6 at0004 = ╱92╱ PRINT ╱ // 0x13bc @0x4
0x13b8…13c6 at0005 = ╱4c╱L╱ // 0x13bd @0x5
0x13b8…13c6 at0006 = ╱41╱A╱ // 0x13be @0x6
0x13b8…13c6 at0007 = ╱4e╱N╱ // 0x13bf @0x7
0x13b8…13c6 at0008 = ╱44╱D╱ // 0x13c0 @0x8
0x13b8…13c6 at0009 = ╱ef╱$╱ // 0x13c1 @0x9
0x13b8…13c6 at000a = ╱ed╱(╱ // 0x13c2 @0xa
0x13b8…13c6 at000b = ╱50╱P╱ // 0x13c3 @0xb
0x13b8…13c6 at000c = ╱ee╱)╱ // 0x13c4 @0xc
0x13b8…13c6 at000d = EOL // 0x13c5 @0xd
0x13b8…13c6 }
0x13c6…13cc a123 2340 ENDIF
0x13c6…13cc LineComalBin {
0x13c6…13cc ptr = 0xa123 // 0x13c6 @0x0
0x13c6…13cc lno = 0x0924 // 0x13c8 @0x2
0x13c6…13cc at0004 = ╱9b╱ ENDIF ╱ // 0x13ca @0x4
0x13c6…13cc at0005 = EOL // 0x13cb @0x5
0x13c6…13cc }
0x13cc…13d9 a130 2350 WHEN 7
0x13cc…13d9 LineComalBin {
0x13cc…13d9 ptr = 0xa130 // 0x13cc @0x0
0x13cc…13d9 lno = 0x092e // 0x13ce @0x2
0x13cc…13d9 at0004 = ╱a301╱ WHEN ╱ // 0x13d0 @0x4
0x13cc…13d9 at0006 = ╱37╱7╱ // 0x13d2 @0x6
0x13cc…13d9 at0007 = ╱fe0000e003╱ // 0x13d3 @0x7
0x13cc…13d9 at000c = EOL // 0x13d8 @0xc
0x13cc…13d9 }
0x13d9…13e6 a13d 2360 IF CÆND<>E THEN
0x13d9…13e6 LineComalBin {
0x13d9…13e6 ptr = 0xa13d // 0x13d9 @0x0
0x13d9…13e6 lno = 0x0938 // 0x13db @0x2
0x13d9…13e6 at0004 = ╱9c╱ IF ╱ // 0x13dd @0x4
0x13d9…13e6 at0005 = ╱43╱C╱ // 0x13de @0x5
0x13d9…13e6 at0006 = ╱5b╱Æ╱ // 0x13df @0x6
0x13d9…13e6 at0007 = ╱4e╱N╱ // 0x13e0 @0x7
0x13d9…13e6 at0008 = ╱44╱D╱ // 0x13e1 @0x8
0x13d9…13e6 at0009 = ╱e1╱<>╱ // 0x13e2 @0x9
0x13d9…13e6 at000a = ╱45╱E╱ // 0x13e3 @0xa
0x13d9…13e6 at000b = ╱b6╱ THEN ╱ // 0x13e4 @0xb
0x13d9…13e6 at000c = EOL // 0x13e5 @0xc
0x13d9…13e6 }
0x13e6…13ef a146 2370 CURSOR G,W
0x13e6…13ef LineComalBin {
0x13e6…13ef ptr = 0xa146 // 0x13e6 @0x0
0x13e6…13ef lno = 0x0942 // 0x13e8 @0x2
0x13e6…13ef at0004 = ╱a1╱ CURSOR ╱ // 0x13ea @0x4
0x13e6…13ef at0005 = ╱47╱G╱ // 0x13eb @0x5
0x13e6…13ef at0006 = ╱ec╱,╱ // 0x13ec @0x6
0x13e6…13ef at0007 = ╱57╱W╱ // 0x13ed @0x7
0x13e6…13ef at0008 = EOL // 0x13ee @0x8
0x13e6…13ef }
0x13ef…1404 a15b 2380 PRINT "7:Kreditorgr:"
0x13ef…1404 LineComalBin {
0x13ef…1404 ptr = 0xa15b // 0x13ef @0x0
0x13ef…1404 lno = 0x094c // 0x13f1 @0x2
0x13ef…1404 at0004 = ╱92╱ PRINT ╱ // 0x13f3 @0x4
0x13ef…1404 at0005 = ╱22╱"╱ // 0x13f4 @0x5
0x13ef…1404 at0006 = ╱37╱7╱ // 0x13f5 @0x6
0x13ef…1404 at0007 = ╱3a╱:╱ // 0x13f6 @0x7
0x13ef…1404 at0008 = ╱4b╱K╱ // 0x13f7 @0x8
0x13ef…1404 at0009 = ╱72╱r╱ // 0x13f8 @0x9
0x13ef…1404 at000a = ╱65╱e╱ // 0x13f9 @0xa
0x13ef…1404 at000b = ╱64╱d╱ // 0x13fa @0xb
0x13ef…1404 at000c = ╱69╱i╱ // 0x13fb @0xc
0x13ef…1404 at000d = ╱74╱t╱ // 0x13fc @0xd
0x13ef…1404 at000e = ╱6f╱o╱ // 0x13fd @0xe
0x13ef…1404 at000f = ╱72╱r╱ // 0x13fe @0xf
0x13ef…1404 at0010 = ╱67╱g╱ // 0x13ff @0x10
0x13ef…1404 at0011 = ╱72╱r╱ // 0x1400 @0x11
0x13ef…1404 at0012 = ╱3a╱:╱ // 0x1401 @0x12
0x13ef…1404 at0013 = ╱22╱"╱ // 0x1402 @0x13
0x13ef…1404 at0014 = EOL // 0x1403 @0x14
0x13ef…1404 }
0x1404…1415 a16c 2390 KSTYR=8
0x1404…1415 LineComalBin {
0x1404…1415 ptr = 0xa16c // 0x1404 @0x0
0x1404…1415 lno = 0x0956 // 0x1406 @0x2
0x1404…1415 at0004 = ╱4b╱K╱ // 0x1408 @0x4
0x1404…1415 at0005 = ╱53╱S╱ // 0x1409 @0x5
0x1404…1415 at0006 = ╱54╱T╱ // 0x140a @0x6
0x1404…1415 at0007 = ╱59╱Y╱ // 0x140b @0x7
0x1404…1415 at0008 = ╱52╱R╱ // 0x140c @0x8
0x1404…1415 at0009 = ╱dc╱=╱ // 0x140d @0x9
0x1404…1415 at000a = ╱38╱8╱ // 0x140e @0xa
0x1404…1415 at000b = ╱fe00008004╱ // 0x140f @0xb
0x1404…1415 at0010 = EOL // 0x1414 @0x10
0x1404…1415 }
0x1415…141b a172 2400 ENDIF
0x1415…141b LineComalBin {
0x1415…141b ptr = 0xa172 // 0x1415 @0x0
0x1415…141b lno = 0x0960 // 0x1417 @0x2
0x1415…141b at0004 = ╱9b╱ ENDIF ╱ // 0x1419 @0x4
0x1415…141b at0005 = EOL // 0x141a @0x5
0x1415…141b }
0x141b…1428 a17f 2410 IF CÆND<>G THEN
0x141b…1428 LineComalBin {
0x141b…1428 ptr = 0xa17f // 0x141b @0x0
0x141b…1428 lno = 0x096a // 0x141d @0x2
0x141b…1428 at0004 = ╱9c╱ IF ╱ // 0x141f @0x4
0x141b…1428 at0005 = ╱43╱C╱ // 0x1420 @0x5
0x141b…1428 at0006 = ╱5b╱Æ╱ // 0x1421 @0x6
0x141b…1428 at0007 = ╱4e╱N╱ // 0x1422 @0x7
0x141b…1428 at0008 = ╱44╱D╱ // 0x1423 @0x8
0x141b…1428 at0009 = ╱e1╱<>╱ // 0x1424 @0x9
0x141b…1428 at000a = ╱47╱G╱ // 0x1425 @0xa
0x141b…1428 at000b = ╱b6╱ THEN ╱ // 0x1426 @0xb
0x141b…1428 at000c = EOL // 0x1427 @0xc
0x141b…1428 }
0x1428…142e a185 2420 REPEAT
0x1428…142e LineComalBin {
0x1428…142e ptr = 0xa185 // 0x1428 @0x0
0x1428…142e lno = 0x0974 // 0x142a @0x2
0x1428…142e at0004 = ╱97╱ REPEAT ╱ // 0x142c @0x4
0x1428…142e at0005 = EOL // 0x142d @0x5
0x1428…142e }
0x142e…143d a194 2430 CURSOR V,23
0x142e…143d LineComalBin {
0x142e…143d ptr = 0xa194 // 0x142e @0x0
0x142e…143d lno = 0x097e // 0x1430 @0x2
0x142e…143d at0004 = ╱a1╱ CURSOR ╱ // 0x1432 @0x4
0x142e…143d at0005 = ╱56╱V╱ // 0x1433 @0x5
0x142e…143d at0006 = ╱ec╱,╱ // 0x1434 @0x6
0x142e…143d at0007 = ╱32╱2╱ // 0x1435 @0x7
0x142e…143d at0008 = ╱33╱3╱ // 0x1436 @0x8
0x142e…143d at0009 = ╱fe0000b805╱ // 0x1437 @0x9
0x142e…143d at000e = EOL // 0x143c @0xe
0x142e…143d }
0x143d…1473 a1ca 2440 PRINT "Kreditorgr: (max 1 ciffer)";BLANK$(E:45)
0x143d…1473 LineComalBin {
0x143d…1473 ptr = 0xa1ca // 0x143d @0x0
0x143d…1473 lno = 0x0988 // 0x143f @0x2
0x143d…1473 at0004 = ╱92╱ PRINT ╱ // 0x1441 @0x4
0x143d…1473 at0005 = ╱22╱"╱ // 0x1442 @0x5
0x143d…1473 at0006 = ╱4b╱K╱ // 0x1443 @0x6
0x143d…1473 at0007 = ╱72╱r╱ // 0x1444 @0x7
0x143d…1473 at0008 = ╱65╱e╱ // 0x1445 @0x8
0x143d…1473 at0009 = ╱64╱d╱ // 0x1446 @0x9
0x143d…1473 at000a = ╱69╱i╱ // 0x1447 @0xa
0x143d…1473 at000b = ╱74╱t╱ // 0x1448 @0xb
0x143d…1473 at000c = ╱6f╱o╱ // 0x1449 @0xc
0x143d…1473 at000d = ╱72╱r╱ // 0x144a @0xd
0x143d…1473 at000e = ╱67╱g╱ // 0x144b @0xe
0x143d…1473 at000f = ╱72╱r╱ // 0x144c @0xf
0x143d…1473 at0010 = ╱3a╱:╱ // 0x144d @0x10
0x143d…1473 at0011 = ╱20╱…╱ // 0x144e @0x11
0x143d…1473 at0012 = ╱20╱…╱ // 0x144f @0x12
0x143d…1473 at0013 = ╱20╱…╱ // 0x1450 @0x13
0x143d…1473 at0014 = ╱28╱(╱ // 0x1451 @0x14
0x143d…1473 at0015 = ╱6d╱m╱ // 0x1452 @0x15
0x143d…1473 at0016 = ╱61╱a╱ // 0x1453 @0x16
0x143d…1473 at0017 = ╱78╱x╱ // 0x1454 @0x17
0x143d…1473 at0018 = ╱20╱…╱ // 0x1455 @0x18
0x143d…1473 at0019 = ╱31╱1╱ // 0x1456 @0x19
0x143d…1473 at001a = ╱20╱…╱ // 0x1457 @0x1a
0x143d…1473 at001b = ╱63╱c╱ // 0x1458 @0x1b
0x143d…1473 at001c = ╱69╱i╱ // 0x1459 @0x1c
0x143d…1473 at001d = ╱66╱f╱ // 0x145a @0x1d
0x143d…1473 at001e = ╱66╱f╱ // 0x145b @0x1e
0x143d…1473 at001f = ╱65╱e╱ // 0x145c @0x1f
0x143d…1473 at0020 = ╱72╱r╱ // 0x145d @0x20
0x143d…1473 at0021 = ╱29╱)╱ // 0x145e @0x21
0x143d…1473 at0022 = ╱22╱"╱ // 0x145f @0x22
0x143d…1473 at0023 = ╱eb╱;╱ // 0x1460 @0x23
0x143d…1473 at0024 = ╱42╱B╱ // 0x1461 @0x24
0x143d…1473 at0025 = ╱4c╱L╱ // 0x1462 @0x25
0x143d…1473 at0026 = ╱41╱A╱ // 0x1463 @0x26
0x143d…1473 at0027 = ╱4e╱N╱ // 0x1464 @0x27
0x143d…1473 at0028 = ╱4b╱K╱ // 0x1465 @0x28
0x143d…1473 at0029 = ╱ef╱$╱ // 0x1466 @0x29
0x143d…1473 at002a = ╱ed╱(╱ // 0x1467 @0x2a
0x143d…1473 at002b = ╱45╱E╱ // 0x1468 @0x2b
0x143d…1473 at002c = ╱f0╱:╱ // 0x1469 @0x2c
0x143d…1473 at002d = ╱34╱4╱ // 0x146a @0x2d
0x143d…1473 at002e = ╱35╱5╱ // 0x146b @0x2e
0x143d…1473 at002f = ╱fe0000b406╱ // 0x146c @0x2f
0x143d…1473 at0034 = ╱ee╱)╱ // 0x1471 @0x34
0x143d…1473 at0035 = EOL // 0x1472 @0x35
0x143d…1473 }
0x1473…1488 a1df 2450 CURSOR 13,23
0x1473…1488 LineComalBin {
0x1473…1488 ptr = 0xa1df // 0x1473 @0x0
0x1473…1488 lno = 0x0992 // 0x1475 @0x2
0x1473…1488 at0004 = ╱a1╱ CURSOR ╱ // 0x1477 @0x4
0x1473…1488 at0005 = ╱31╱1╱ // 0x1478 @0x5
0x1473…1488 at0006 = ╱33╱3╱ // 0x1479 @0x6
0x1473…1488 at0007 = ╱fe0000d004╱ // 0x147a @0x7
0x1473…1488 at000c = ╱ec╱,╱ // 0x147f @0xc
0x1473…1488 at000d = ╱32╱2╱ // 0x1480 @0xd
0x1473…1488 at000e = ╱33╱3╱ // 0x1481 @0xe
0x1473…1488 at000f = ╱fe0000b805╱ // 0x1482 @0xf
0x1473…1488 at0014 = EOL // 0x1487 @0x14
0x1473…1488 }
0x1488…1491 a1e8 2460 INPUT KG$
0x1488…1491 LineComalBin {
0x1488…1491 ptr = 0xa1e8 // 0x1488 @0x0
0x1488…1491 lno = 0x099c // 0x148a @0x2
0x1488…1491 at0004 = ╱91╱ INPUT ╱ // 0x148c @0x4
0x1488…1491 at0005 = ╱4b╱K╱ // 0x148d @0x5
0x1488…1491 at0006 = ╱47╱G╱ // 0x148e @0x6
0x1488…1491 at0007 = ╱ef╱$╱ // 0x148f @0x7
0x1488…1491 at0008 = EOL // 0x1490 @0x8
0x1488…1491 }
0x1491…14a2 a1f9 2470 EXEC NRTEST(KG$)
0x1491…14a2 LineComalBin {
0x1491…14a2 ptr = 0xa1f9 // 0x1491 @0x0
0x1491…14a2 lno = 0x09a6 // 0x1493 @0x2
0x1491…14a2 at0004 = ╱9d╱ EXEC ╱ // 0x1495 @0x4
0x1491…14a2 at0005 = ╱4e╱N╱ // 0x1496 @0x5
0x1491…14a2 at0006 = ╱52╱R╱ // 0x1497 @0x6
0x1491…14a2 at0007 = ╱54╱T╱ // 0x1498 @0x7
0x1491…14a2 at0008 = ╱45╱E╱ // 0x1499 @0x8
0x1491…14a2 at0009 = ╱53╱S╱ // 0x149a @0x9
0x1491…14a2 at000a = ╱54╱T╱ // 0x149b @0xa
0x1491…14a2 at000b = ╱ed╱(╱ // 0x149c @0xb
0x1491…14a2 at000c = ╱4b╱K╱ // 0x149d @0xc
0x1491…14a2 at000d = ╱47╱G╱ // 0x149e @0xd
0x1491…14a2 at000e = ╱ef╱$╱ // 0x149f @0xe
0x1491…14a2 at000f = ╱ee╱)╱ // 0x14a0 @0xf
0x1491…14a2 at0010 = EOL // 0x14a1 @0x10
0x1491…14a2 }
0x14a2…14cb a222 2480 UNTIL (P>B AND TEST2=B AND P<=MKRGR) OR (P=-E AND CÆND=E)
0x14a2…14cb LineComalBin {
0x14a2…14cb ptr = 0xa222 // 0x14a2 @0x0
0x14a2…14cb lno = 0x09b0 // 0x14a4 @0x2
0x14a2…14cb at0004 = ╱98╱ UNTIL ╱ // 0x14a6 @0x4
0x14a2…14cb at0005 = ╱ed╱(╱ // 0x14a7 @0x5
0x14a2…14cb at0006 = ╱50╱P╱ // 0x14a8 @0x6
0x14a2…14cb at0007 = ╱de╱>╱ // 0x14a9 @0x7
0x14a2…14cb at0008 = ╱42╱B╱ // 0x14aa @0x8
0x14a2…14cb at0009 = ╱da╱ AND ╱ // 0x14ab @0x9
0x14a2…14cb at000a = ╱54╱T╱ // 0x14ac @0xa
0x14a2…14cb at000b = ╱45╱E╱ // 0x14ad @0xb
0x14a2…14cb at000c = ╱53╱S╱ // 0x14ae @0xc
0x14a2…14cb at000d = ╱54╱T╱ // 0x14af @0xd
0x14a2…14cb at000e = ╱32╱2╱ // 0x14b0 @0xe
0x14a2…14cb at000f = ╱dc╱=╱ // 0x14b1 @0xf
0x14a2…14cb at0010 = ╱42╱B╱ // 0x14b2 @0x10
0x14a2…14cb at0011 = ╱da╱ AND ╱ // 0x14b3 @0x11
0x14a2…14cb at0012 = ╱50╱P╱ // 0x14b4 @0x12
0x14a2…14cb at0013 = ╱df╱<=╱ // 0x14b5 @0x13
0x14a2…14cb at0014 = ╱4d╱M╱ // 0x14b6 @0x14
0x14a2…14cb at0015 = ╱4b╱K╱ // 0x14b7 @0x15
0x14a2…14cb at0016 = ╱52╱R╱ // 0x14b8 @0x16
0x14a2…14cb at0017 = ╱47╱G╱ // 0x14b9 @0x17
0x14a2…14cb at0018 = ╱52╱R╱ // 0x14ba @0x18
0x14a2…14cb at0019 = ╱ee╱)╱ // 0x14bb @0x19
0x14a2…14cb at001a = ╱db╱ OR ╱ // 0x14bc @0x1a
0x14a2…14cb at001b = ╱ed╱(╱ // 0x14bd @0x1b
0x14a2…14cb at001c = ╱50╱P╱ // 0x14be @0x1c
0x14a2…14cb at001d = ╱dc╱=╱ // 0x14bf @0x1d
0x14a2…14cb at001e = ╱e9╱-╱ // 0x14c0 @0x1e
0x14a2…14cb at001f = ╱45╱E╱ // 0x14c1 @0x1f
0x14a2…14cb at0020 = ╱da╱ AND ╱ // 0x14c2 @0x20
0x14a2…14cb at0021 = ╱43╱C╱ // 0x14c3 @0x21
0x14a2…14cb at0022 = ╱5b╱Æ╱ // 0x14c4 @0x22
0x14a2…14cb at0023 = ╱4e╱N╱ // 0x14c5 @0x23
0x14a2…14cb at0024 = ╱44╱D╱ // 0x14c6 @0x24
0x14a2…14cb at0025 = ╱dc╱=╱ // 0x14c7 @0x25
0x14a2…14cb at0026 = ╱45╱E╱ // 0x14c8 @0x26
0x14a2…14cb at0027 = ╱ee╱)╱ // 0x14c9 @0x27
0x14a2…14cb at0028 = EOL // 0x14ca @0x28
0x14a2…14cb }
0x14cb…14d1 a228 2490 ENDIF
0x14cb…14d1 LineComalBin {
0x14cb…14d1 ptr = 0xa228 // 0x14cb @0x0
0x14cb…14d1 lno = 0x09ba // 0x14cd @0x2
0x14cb…14d1 at0004 = ╱9b╱ ENDIF ╱ // 0x14cf @0x4
0x14cb…14d1 at0005 = EOL // 0x14d0 @0x5
0x14cb…14d1 }
0x14d1…14e0 a237 2500 CURSOR 16,W
0x14d1…14e0 LineComalBin {
0x14d1…14e0 ptr = 0xa237 // 0x14d1 @0x0
0x14d1…14e0 lno = 0x09c4 // 0x14d3 @0x2
0x14d1…14e0 at0004 = ╱a1╱ CURSOR ╱ // 0x14d5 @0x4
0x14d1…14e0 at0005 = ╱31╱1╱ // 0x14d6 @0x5
0x14d1…14e0 at0006 = ╱36╱6╱ // 0x14d7 @0x6
0x14d1…14e0 at0007 = ╱fe00008005╱ // 0x14d8 @0x7
0x14d1…14e0 at000c = ╱ec╱,╱ // 0x14dd @0xc
0x14d1…14e0 at000d = ╱57╱W╱ // 0x14de @0xd
0x14d1…14e0 at000e = EOL // 0x14df @0xe
0x14d1…14e0 }
0x14e0…14f1 a248 2510 IF P>B AND CÆND<>G THEN
0x14e0…14f1 LineComalBin {
0x14e0…14f1 ptr = 0xa248 // 0x14e0 @0x0
0x14e0…14f1 lno = 0x09ce // 0x14e2 @0x2
0x14e0…14f1 at0004 = ╱9c╱ IF ╱ // 0x14e4 @0x4
0x14e0…14f1 at0005 = ╱50╱P╱ // 0x14e5 @0x5
0x14e0…14f1 at0006 = ╱de╱>╱ // 0x14e6 @0x6
0x14e0…14f1 at0007 = ╱42╱B╱ // 0x14e7 @0x7
0x14e0…14f1 at0008 = ╱da╱ AND ╱ // 0x14e8 @0x8
0x14e0…14f1 at0009 = ╱43╱C╱ // 0x14e9 @0x9
0x14e0…14f1 at000a = ╱5b╱Æ╱ // 0x14ea @0xa
0x14e0…14f1 at000b = ╱4e╱N╱ // 0x14eb @0xb
0x14e0…14f1 at000c = ╱44╱D╱ // 0x14ec @0xc
0x14e0…14f1 at000d = ╱e1╱<>╱ // 0x14ed @0xd
0x14e0…14f1 at000e = ╱47╱G╱ // 0x14ee @0xe
0x14e0…14f1 at000f = ╱b6╱ THEN ╱ // 0x14ef @0xf
0x14e0…14f1 at0010 = EOL // 0x14f0 @0x10
0x14e0…14f1 }
0x14f1…1509 a260 2520 KREGR$=CHR(P+48)
0x14f1…1509 LineComalBin {
0x14f1…1509 ptr = 0xa260 // 0x14f1 @0x0
0x14f1…1509 lno = 0x09d8 // 0x14f3 @0x2
0x14f1…1509 at0004 = ╱4b╱K╱ // 0x14f5 @0x4
0x14f1…1509 at0005 = ╱52╱R╱ // 0x14f6 @0x5
0x14f1…1509 at0006 = ╱45╱E╱ // 0x14f7 @0x6
0x14f1…1509 at0007 = ╱47╱G╱ // 0x14f8 @0x7
0x14f1…1509 at0008 = ╱52╱R╱ // 0x14f9 @0x8
0x14f1…1509 at0009 = ╱ef╱$╱ // 0x14fa @0x9
0x14f1…1509 at000a = ╱dc╱=╱ // 0x14fb @0xa
0x14f1…1509 at000b = ╱cf╱CHR╱ // 0x14fc @0xb
0x14f1…1509 at000c = ╱ed╱(╱ // 0x14fd @0xc
0x14f1…1509 at000d = ╱50╱P╱ // 0x14fe @0xd
0x14f1…1509 at000e = ╱e2╱+╱ // 0x14ff @0xe
0x14f1…1509 at000f = ╱34╱4╱ // 0x1500 @0xf
0x14f1…1509 at0010 = ╱38╱8╱ // 0x1501 @0x10
0x14f1…1509 at0011 = ╱fe0000c006╱ // 0x1502 @0x11
0x14f1…1509 at0016 = ╱ee╱)╱ // 0x1507 @0x16
0x14f1…1509 at0017 = EOL // 0x1508 @0x17
0x14f1…1509 }
0x1509…150f a266 2530 ENDIF
0x1509…150f LineComalBin {
0x1509…150f ptr = 0xa266 // 0x1509 @0x0
0x1509…150f lno = 0x09e2 // 0x150b @0x2
0x1509…150f at0004 = ╱9b╱ ENDIF ╱ // 0x150d @0x4
0x1509…150f at0005 = EOL // 0x150e @0x5
0x1509…150f }
0x150f…1530 a287 2540 PRINT USING "###":INT(ORD(KREGR$)-48)
0x150f…1530 LineComalBin {
0x150f…1530 ptr = 0xa287 // 0x150f @0x0
0x150f…1530 lno = 0x09ec // 0x1511 @0x2
0x150f…1530 at0004 = ╱92╱ PRINT ╱ // 0x1513 @0x4
0x150f…1530 at0005 = ╱b9╱ USING ╱ // 0x1514 @0x5
0x150f…1530 at0006 = ╱22╱"╱ // 0x1515 @0x6
0x150f…1530 at0007 = ╱23╱#╱ // 0x1516 @0x7
0x150f…1530 at0008 = ╱23╱#╱ // 0x1517 @0x8
0x150f…1530 at0009 = ╱23╱#╱ // 0x1518 @0x9
0x150f…1530 at000a = ╱22╱"╱ // 0x1519 @0xa
0x150f…1530 at000b = ╱f0╱:╱ // 0x151a @0xb
0x150f…1530 at000c = ╱c6╱INT╱ // 0x151b @0xc
0x150f…1530 at000d = ╱ed╱(╱ // 0x151c @0xd
0x150f…1530 at000e = ╱cd╱ORD╱ // 0x151d @0xe
0x150f…1530 at000f = ╱ed╱(╱ // 0x151e @0xf
0x150f…1530 at0010 = ╱4b╱K╱ // 0x151f @0x10
0x150f…1530 at0011 = ╱52╱R╱ // 0x1520 @0x11
0x150f…1530 at0012 = ╱45╱E╱ // 0x1521 @0x12
0x150f…1530 at0013 = ╱47╱G╱ // 0x1522 @0x13
0x150f…1530 at0014 = ╱52╱R╱ // 0x1523 @0x14
0x150f…1530 at0015 = ╱ef╱$╱ // 0x1524 @0x15
0x150f…1530 at0016 = ╱ee╱)╱ // 0x1525 @0x16
0x150f…1530 at0017 = ╱e3╱-╱ // 0x1526 @0x17
0x150f…1530 at0018 = ╱34╱4╱ // 0x1527 @0x18
0x150f…1530 at0019 = ╱38╱8╱ // 0x1528 @0x19
0x150f…1530 at001a = ╱fe0000c006╱ // 0x1529 @0x1a
0x150f…1530 at001f = ╱ee╱)╱ // 0x152e @0x1f
0x150f…1530 at0020 = EOL // 0x152f @0x20
0x150f…1530 }
0x1530…1536 a28d 2550 ENDCASE
0x1530…1536 LineComalBin {
0x1530…1536 ptr = 0xa28d // 0x1530 @0x0
0x1530…1536 lno = 0x09f6 // 0x1532 @0x2
0x1530…1536 at0004 = ╱a4╱ ENDCASE ╱ // 0x1534 @0x4
0x1530…1536 at0005 = EOL // 0x1535 @0x5
0x1530…1536 }
0x1536…1543 a29a 2560 IF CÆND=E THEN
0x1536…1543 LineComalBin {
0x1536…1543 ptr = 0xa29a // 0x1536 @0x0
0x1536…1543 lno = 0x0a00 // 0x1538 @0x2
0x1536…1543 at0004 = ╱9c╱ IF ╱ // 0x153a @0x4
0x1536…1543 at0005 = ╱43╱C╱ // 0x153b @0x5
0x1536…1543 at0006 = ╱5b╱Æ╱ // 0x153c @0x6
0x1536…1543 at0007 = ╱4e╱N╱ // 0x153d @0x7
0x1536…1543 at0008 = ╱44╱D╱ // 0x153e @0x8
0x1536…1543 at0009 = ╱dc╱=╱ // 0x153f @0x9
0x1536…1543 at000a = ╱45╱E╱ // 0x1540 @0xa
0x1536…1543 at000b = ╱b6╱ THEN ╱ // 0x1541 @0xb
0x1536…1543 at000c = EOL // 0x1542 @0xc
0x1536…1543 }
0x1543…1554 a2ab 2570 KSTYR=8
0x1543…1554 LineComalBin {
0x1543…1554 ptr = 0xa2ab // 0x1543 @0x0
0x1543…1554 lno = 0x0a0a // 0x1545 @0x2
0x1543…1554 at0004 = ╱4b╱K╱ // 0x1547 @0x4
0x1543…1554 at0005 = ╱53╱S╱ // 0x1548 @0x5
0x1543…1554 at0006 = ╱54╱T╱ // 0x1549 @0x6
0x1543…1554 at0007 = ╱59╱Y╱ // 0x154a @0x7
0x1543…1554 at0008 = ╱52╱R╱ // 0x154b @0x8
0x1543…1554 at0009 = ╱dc╱=╱ // 0x154c @0x9
0x1543…1554 at000a = ╱38╱8╱ // 0x154d @0xa
0x1543…1554 at000b = ╱fe00008004╱ // 0x154e @0xb
0x1543…1554 at0010 = EOL // 0x1553 @0x10
0x1543…1554 }
0x1554…155a a2b1 2580 ENDIF
0x1554…155a LineComalBin {
0x1554…155a ptr = 0xa2b1 // 0x1554 @0x0
0x1554…155a lno = 0x0a14 // 0x1556 @0x2
0x1554…155a at0004 = ╱9b╱ ENDIF ╱ // 0x1558 @0x4
0x1554…155a at0005 = EOL // 0x1559 @0x5
0x1554…155a }
0x155a…156c a2c3 2590 UNTIL KSTYR=8
0x155a…156c LineComalBin {
0x155a…156c ptr = 0xa2c3 // 0x155a @0x0
0x155a…156c lno = 0x0a1e // 0x155c @0x2
0x155a…156c at0004 = ╱98╱ UNTIL ╱ // 0x155e @0x4
0x155a…156c at0005 = ╱4b╱K╱ // 0x155f @0x5
0x155a…156c at0006 = ╱53╱S╱ // 0x1560 @0x6
0x155a…156c at0007 = ╱54╱T╱ // 0x1561 @0x7
0x155a…156c at0008 = ╱59╱Y╱ // 0x1562 @0x8
0x155a…156c at0009 = ╱52╱R╱ // 0x1563 @0x9
0x155a…156c at000a = ╱dc╱=╱ // 0x1564 @0xa
0x155a…156c at000b = ╱38╱8╱ // 0x1565 @0xb
0x155a…156c at000c = ╱fe00008004╱ // 0x1566 @0xc
0x155a…156c at0011 = EOL // 0x156b @0x11
0x155a…156c }
0x156c…1579 a2d0 2600 IF CÆND<>E THEN
0x156c…1579 LineComalBin {
0x156c…1579 ptr = 0xa2d0 // 0x156c @0x0
0x156c…1579 lno = 0x0a28 // 0x156e @0x2
0x156c…1579 at0004 = ╱9c╱ IF ╱ // 0x1570 @0x4
0x156c…1579 at0005 = ╱43╱C╱ // 0x1571 @0x5
0x156c…1579 at0006 = ╱5b╱Æ╱ // 0x1572 @0x6
0x156c…1579 at0007 = ╱4e╱N╱ // 0x1573 @0x7
0x156c…1579 at0008 = ╱44╱D╱ // 0x1574 @0x8
0x156c…1579 at0009 = ╱e1╱<>╱ // 0x1575 @0x9
0x156c…1579 at000a = ╱45╱E╱ // 0x1576 @0xa
0x156c…1579 at000b = ╱b6╱ THEN ╱ // 0x1577 @0xb
0x156c…1579 at000c = EOL // 0x1578 @0xc
0x156c…1579 }
0x1579…15a0 a2f7 2610 EXEC CALC(B,KSALDO1$,KSALDO2$,KSALDI$)
0x1579…15a0 LineComalBin {
0x1579…15a0 ptr = 0xa2f7 // 0x1579 @0x0
0x1579…15a0 lno = 0x0a32 // 0x157b @0x2
0x1579…15a0 at0004 = ╱9d╱ EXEC ╱ // 0x157d @0x4
0x1579…15a0 at0005 = ╱43╱C╱ // 0x157e @0x5
0x1579…15a0 at0006 = ╱41╱A╱ // 0x157f @0x6
0x1579…15a0 at0007 = ╱4c╱L╱ // 0x1580 @0x7
0x1579…15a0 at0008 = ╱43╱C╱ // 0x1581 @0x8
0x1579…15a0 at0009 = ╱ed╱(╱ // 0x1582 @0x9
0x1579…15a0 at000a = ╱42╱B╱ // 0x1583 @0xa
0x1579…15a0 at000b = ╱ec╱,╱ // 0x1584 @0xb
0x1579…15a0 at000c = ╱4b╱K╱ // 0x1585 @0xc
0x1579…15a0 at000d = ╱53╱S╱ // 0x1586 @0xd
0x1579…15a0 at000e = ╱41╱A╱ // 0x1587 @0xe
0x1579…15a0 at000f = ╱4c╱L╱ // 0x1588 @0xf
0x1579…15a0 at0010 = ╱44╱D╱ // 0x1589 @0x10
0x1579…15a0 at0011 = ╱4f╱O╱ // 0x158a @0x11
0x1579…15a0 at0012 = ╱31╱1╱ // 0x158b @0x12
0x1579…15a0 at0013 = ╱ef╱$╱ // 0x158c @0x13
0x1579…15a0 at0014 = ╱ec╱,╱ // 0x158d @0x14
0x1579…15a0 at0015 = ╱4b╱K╱ // 0x158e @0x15
0x1579…15a0 at0016 = ╱53╱S╱ // 0x158f @0x16
0x1579…15a0 at0017 = ╱41╱A╱ // 0x1590 @0x17
0x1579…15a0 at0018 = ╱4c╱L╱ // 0x1591 @0x18
0x1579…15a0 at0019 = ╱44╱D╱ // 0x1592 @0x19
0x1579…15a0 at001a = ╱4f╱O╱ // 0x1593 @0x1a
0x1579…15a0 at001b = ╱32╱2╱ // 0x1594 @0x1b
0x1579…15a0 at001c = ╱ef╱$╱ // 0x1595 @0x1c
0x1579…15a0 at001d = ╱ec╱,╱ // 0x1596 @0x1d
0x1579…15a0 at001e = ╱4b╱K╱ // 0x1597 @0x1e
0x1579…15a0 at001f = ╱53╱S╱ // 0x1598 @0x1f
0x1579…15a0 at0020 = ╱41╱A╱ // 0x1599 @0x20
0x1579…15a0 at0021 = ╱4c╱L╱ // 0x159a @0x21
0x1579…15a0 at0022 = ╱44╱D╱ // 0x159b @0x22
0x1579…15a0 at0023 = ╱49╱I╱ // 0x159c @0x23
0x1579…15a0 at0024 = ╱ef╱$╱ // 0x159d @0x24
0x1579…15a0 at0025 = ╱ee╱)╱ // 0x159e @0x25
0x1579…15a0 at0026 = EOL // 0x159f @0x26
0x1579…15a0 }
0x15a0…15b4 a30b 2620 CURSOR 4,12
0x15a0…15b4 LineComalBin {
0x15a0…15b4 ptr = 0xa30b // 0x15a0 @0x0
0x15a0…15b4 lno = 0x0a3c // 0x15a2 @0x2
0x15a0…15b4 at0004 = ╱a1╱ CURSOR ╱ // 0x15a4 @0x4
0x15a0…15b4 at0005 = ╱34╱4╱ // 0x15a5 @0x5
0x15a0…15b4 at0006 = ╱fe00008003╱ // 0x15a6 @0x6
0x15a0…15b4 at000b = ╱ec╱,╱ // 0x15ab @0xb
0x15a0…15b4 at000c = ╱31╱1╱ // 0x15ac @0xc
0x15a0…15b4 at000d = ╱32╱2╱ // 0x15ad @0xd
0x15a0…15b4 at000e = ╱fe0000c004╱ // 0x15ae @0xe
0x15a0…15b4 at0013 = EOL // 0x15b3 @0x13
0x15a0…15b4 }
0x15b4…15c8 a31f 2630 PRINT "Saldo :"
0x15b4…15c8 LineComalBin {
0x15b4…15c8 ptr = 0xa31f // 0x15b4 @0x0
0x15b4…15c8 lno = 0x0a46 // 0x15b6 @0x2
0x15b4…15c8 at0004 = ╱92╱ PRINT ╱ // 0x15b8 @0x4
0x15b4…15c8 at0005 = ╱22╱"╱ // 0x15b9 @0x5
0x15b4…15c8 at0006 = ╱53╱S╱ // 0x15ba @0x6
0x15b4…15c8 at0007 = ╱61╱a╱ // 0x15bb @0x7
0x15b4…15c8 at0008 = ╱6c╱l╱ // 0x15bc @0x8
0x15b4…15c8 at0009 = ╱64╱d╱ // 0x15bd @0x9
0x15b4…15c8 at000a = ╱6f╱o╱ // 0x15be @0xa
0x15b4…15c8 at000b = ╱20╱…╱ // 0x15bf @0xb
0x15b4…15c8 at000c = ╱20╱…╱ // 0x15c0 @0xc
0x15b4…15c8 at000d = ╱20╱…╱ // 0x15c1 @0xd
0x15b4…15c8 at000e = ╱20╱…╱ // 0x15c2 @0xe
0x15b4…15c8 at000f = ╱20╱…╱ // 0x15c3 @0xf
0x15b4…15c8 at0010 = ╱20╱…╱ // 0x15c4 @0x10
0x15b4…15c8 at0011 = ╱3a╱:╱ // 0x15c5 @0x11
0x15b4…15c8 at0012 = ╱22╱"╱ // 0x15c6 @0x12
0x15b4…15c8 at0013 = EOL // 0x15c7 @0x13
0x15b4…15c8 }
0x15c8…15dd a334 2640 CURSOR 17,12
0x15c8…15dd LineComalBin {
0x15c8…15dd ptr = 0xa334 // 0x15c8 @0x0
0x15c8…15dd lno = 0x0a50 // 0x15ca @0x2
0x15c8…15dd at0004 = ╱a1╱ CURSOR ╱ // 0x15cc @0x4
0x15c8…15dd at0005 = ╱31╱1╱ // 0x15cd @0x5
0x15c8…15dd at0006 = ╱37╱7╱ // 0x15ce @0x6
0x15c8…15dd at0007 = ╱fe00008805╱ // 0x15cf @0x7
0x15c8…15dd at000c = ╱ec╱,╱ // 0x15d4 @0xc
0x15c8…15dd at000d = ╱31╱1╱ // 0x15d5 @0xd
0x15c8…15dd at000e = ╱32╱2╱ // 0x15d6 @0xe
0x15c8…15dd at000f = ╱fe0000c004╱ // 0x15d7 @0xf
0x15c8…15dd at0014 = EOL // 0x15dc @0x14
0x15c8…15dd }
0x15dd…15f9 a350 2650 EXEC TUD(KSALDI$,TAL4$,E,B)
0x15dd…15f9 LineComalBin {
0x15dd…15f9 ptr = 0xa350 // 0x15dd @0x0
0x15dd…15f9 lno = 0x0a5a // 0x15df @0x2
0x15dd…15f9 at0004 = ╱9d╱ EXEC ╱ // 0x15e1 @0x4
0x15dd…15f9 at0005 = ╱54╱T╱ // 0x15e2 @0x5
0x15dd…15f9 at0006 = ╱55╱U╱ // 0x15e3 @0x6
0x15dd…15f9 at0007 = ╱44╱D╱ // 0x15e4 @0x7
0x15dd…15f9 at0008 = ╱ed╱(╱ // 0x15e5 @0x8
0x15dd…15f9 at0009 = ╱4b╱K╱ // 0x15e6 @0x9
0x15dd…15f9 at000a = ╱53╱S╱ // 0x15e7 @0xa
0x15dd…15f9 at000b = ╱41╱A╱ // 0x15e8 @0xb
0x15dd…15f9 at000c = ╱4c╱L╱ // 0x15e9 @0xc
0x15dd…15f9 at000d = ╱44╱D╱ // 0x15ea @0xd
0x15dd…15f9 at000e = ╱49╱I╱ // 0x15eb @0xe
0x15dd…15f9 at000f = ╱ef╱$╱ // 0x15ec @0xf
0x15dd…15f9 at0010 = ╱ec╱,╱ // 0x15ed @0x10
0x15dd…15f9 at0011 = ╱54╱T╱ // 0x15ee @0x11
0x15dd…15f9 at0012 = ╱41╱A╱ // 0x15ef @0x12
0x15dd…15f9 at0013 = ╱4c╱L╱ // 0x15f0 @0x13
0x15dd…15f9 at0014 = ╱34╱4╱ // 0x15f1 @0x14
0x15dd…15f9 at0015 = ╱ef╱$╱ // 0x15f2 @0x15
0x15dd…15f9 at0016 = ╱ec╱,╱ // 0x15f3 @0x16
0x15dd…15f9 at0017 = ╱45╱E╱ // 0x15f4 @0x17
0x15dd…15f9 at0018 = ╱ec╱,╱ // 0x15f5 @0x18
0x15dd…15f9 at0019 = ╱42╱B╱ // 0x15f6 @0x19
0x15dd…15f9 at001a = ╱ee╱)╱ // 0x15f7 @0x1a
0x15dd…15f9 at001b = EOL // 0x15f8 @0x1b
0x15dd…15f9 }
0x15f9…1604 a35b 2660 PRINT TAL4$
0x15f9…1604 LineComalBin {
0x15f9…1604 ptr = 0xa35b // 0x15f9 @0x0
0x15f9…1604 lno = 0x0a64 // 0x15fb @0x2
0x15f9…1604 at0004 = ╱92╱ PRINT ╱ // 0x15fd @0x4
0x15f9…1604 at0005 = ╱54╱T╱ // 0x15fe @0x5
0x15f9…1604 at0006 = ╱41╱A╱ // 0x15ff @0x6
0x15f9…1604 at0007 = ╱4c╱L╱ // 0x1600 @0x7
0x15f9…1604 at0008 = ╱34╱4╱ // 0x1601 @0x8
0x15f9…1604 at0009 = ╱ef╱$╱ // 0x1602 @0x9
0x15f9…1604 at000a = EOL // 0x1603 @0xa
0x15f9…1604 }
0x1604…1618 a36f 2670 CURSOR 4,14
0x1604…1618 LineComalBin {
0x1604…1618 ptr = 0xa36f // 0x1604 @0x0
0x1604…1618 lno = 0x0a6e // 0x1606 @0x2
0x1604…1618 at0004 = ╱a1╱ CURSOR ╱ // 0x1608 @0x4
0x1604…1618 at0005 = ╱34╱4╱ // 0x1609 @0x5
0x1604…1618 at0006 = ╱fe00008003╱ // 0x160a @0x6
0x1604…1618 at000b = ╱ec╱,╱ // 0x160f @0xb
0x1604…1618 at000c = ╱31╱1╱ // 0x1610 @0xc
0x1604…1618 at000d = ╱34╱4╱ // 0x1611 @0xd
0x1604…1618 at000e = ╱fe0000e004╱ // 0x1612 @0xe
0x1604…1618 at0013 = EOL // 0x1617 @0x13
0x1604…1618 }
0x1618…162c a383 2680 PRINT " 0-30 Dage :"
0x1618…162c LineComalBin {
0x1618…162c ptr = 0xa383 // 0x1618 @0x0
0x1618…162c lno = 0x0a78 // 0x161a @0x2
0x1618…162c at0004 = ╱92╱ PRINT ╱ // 0x161c @0x4
0x1618…162c at0005 = ╱22╱"╱ // 0x161d @0x5
0x1618…162c at0006 = ╱20╱…╱ // 0x161e @0x6
0x1618…162c at0007 = ╱30╱0╱ // 0x161f @0x7
0x1618…162c at0008 = ╱2d╱-╱ // 0x1620 @0x8
0x1618…162c at0009 = ╱33╱3╱ // 0x1621 @0x9
0x1618…162c at000a = ╱30╱0╱ // 0x1622 @0xa
0x1618…162c at000b = ╱20╱…╱ // 0x1623 @0xb
0x1618…162c at000c = ╱44╱D╱ // 0x1624 @0xc
0x1618…162c at000d = ╱61╱a╱ // 0x1625 @0xd
0x1618…162c at000e = ╱67╱g╱ // 0x1626 @0xe
0x1618…162c at000f = ╱65╱e╱ // 0x1627 @0xf
0x1618…162c at0010 = ╱20╱…╱ // 0x1628 @0x10
0x1618…162c at0011 = ╱3a╱:╱ // 0x1629 @0x11
0x1618…162c at0012 = ╱22╱"╱ // 0x162a @0x12
0x1618…162c at0013 = EOL // 0x162b @0x13
0x1618…162c }
0x162c…1641 a398 2690 CURSOR 17,14
0x162c…1641 LineComalBin {
0x162c…1641 ptr = 0xa398 // 0x162c @0x0
0x162c…1641 lno = 0x0a82 // 0x162e @0x2
0x162c…1641 at0004 = ╱a1╱ CURSOR ╱ // 0x1630 @0x4
0x162c…1641 at0005 = ╱31╱1╱ // 0x1631 @0x5
0x162c…1641 at0006 = ╱37╱7╱ // 0x1632 @0x6
0x162c…1641 at0007 = ╱fe00008805╱ // 0x1633 @0x7
0x162c…1641 at000c = ╱ec╱,╱ // 0x1638 @0xc
0x162c…1641 at000d = ╱31╱1╱ // 0x1639 @0xd
0x162c…1641 at000e = ╱34╱4╱ // 0x163a @0xe
0x162c…1641 at000f = ╱fe0000e004╱ // 0x163b @0xf
0x162c…1641 at0014 = EOL // 0x1640 @0x14
0x162c…1641 }
0x1641…165e a3b5 2700 EXEC TUD(KSALDO1$,TAL4$,E,B)
0x1641…165e LineComalBin {
0x1641…165e ptr = 0xa3b5 // 0x1641 @0x0
0x1641…165e lno = 0x0a8c // 0x1643 @0x2
0x1641…165e at0004 = ╱9d╱ EXEC ╱ // 0x1645 @0x4
0x1641…165e at0005 = ╱54╱T╱ // 0x1646 @0x5
0x1641…165e at0006 = ╱55╱U╱ // 0x1647 @0x6
0x1641…165e at0007 = ╱44╱D╱ // 0x1648 @0x7
0x1641…165e at0008 = ╱ed╱(╱ // 0x1649 @0x8
0x1641…165e at0009 = ╱4b╱K╱ // 0x164a @0x9
0x1641…165e at000a = ╱53╱S╱ // 0x164b @0xa
0x1641…165e at000b = ╱41╱A╱ // 0x164c @0xb
0x1641…165e at000c = ╱4c╱L╱ // 0x164d @0xc
0x1641…165e at000d = ╱44╱D╱ // 0x164e @0xd
0x1641…165e at000e = ╱4f╱O╱ // 0x164f @0xe
0x1641…165e at000f = ╱31╱1╱ // 0x1650 @0xf
0x1641…165e at0010 = ╱ef╱$╱ // 0x1651 @0x10
0x1641…165e at0011 = ╱ec╱,╱ // 0x1652 @0x11
0x1641…165e at0012 = ╱54╱T╱ // 0x1653 @0x12
0x1641…165e at0013 = ╱41╱A╱ // 0x1654 @0x13
0x1641…165e at0014 = ╱4c╱L╱ // 0x1655 @0x14
0x1641…165e at0015 = ╱34╱4╱ // 0x1656 @0x15
0x1641…165e at0016 = ╱ef╱$╱ // 0x1657 @0x16
0x1641…165e at0017 = ╱ec╱,╱ // 0x1658 @0x17
0x1641…165e at0018 = ╱45╱E╱ // 0x1659 @0x18
0x1641…165e at0019 = ╱ec╱,╱ // 0x165a @0x19
0x1641…165e at001a = ╱42╱B╱ // 0x165b @0x1a
0x1641…165e at001b = ╱ee╱)╱ // 0x165c @0x1b
0x1641…165e at001c = EOL // 0x165d @0x1c
0x1641…165e }
0x165e…1669 a3c0 2710 PRINT TAL4$
0x165e…1669 LineComalBin {
0x165e…1669 ptr = 0xa3c0 // 0x165e @0x0
0x165e…1669 lno = 0x0a96 // 0x1660 @0x2
0x165e…1669 at0004 = ╱92╱ PRINT ╱ // 0x1662 @0x4
0x165e…1669 at0005 = ╱54╱T╱ // 0x1663 @0x5
0x165e…1669 at0006 = ╱41╱A╱ // 0x1664 @0x6
0x165e…1669 at0007 = ╱4c╱L╱ // 0x1665 @0x7
0x165e…1669 at0008 = ╱34╱4╱ // 0x1666 @0x8
0x165e…1669 at0009 = ╱ef╱$╱ // 0x1667 @0x9
0x165e…1669 at000a = EOL // 0x1668 @0xa
0x165e…1669 }
0x1669…167d a3d4 2720 CURSOR 4,16
0x1669…167d LineComalBin {
0x1669…167d ptr = 0xa3d4 // 0x1669 @0x0
0x1669…167d lno = 0x0aa0 // 0x166b @0x2
0x1669…167d at0004 = ╱a1╱ CURSOR ╱ // 0x166d @0x4
0x1669…167d at0005 = ╱34╱4╱ // 0x166e @0x5
0x1669…167d at0006 = ╱fe00008003╱ // 0x166f @0x6
0x1669…167d at000b = ╱ec╱,╱ // 0x1674 @0xb
0x1669…167d at000c = ╱31╱1╱ // 0x1675 @0xc
0x1669…167d at000d = ╱36╱6╱ // 0x1676 @0xd
0x1669…167d at000e = ╱fe00008005╱ // 0x1677 @0xe
0x1669…167d at0013 = EOL // 0x167c @0x13
0x1669…167d }
0x167d…1691 a3e8 2730 PRINT "Ældre :"
0x167d…1691 LineComalBin {
0x167d…1691 ptr = 0xa3e8 // 0x167d @0x0
0x167d…1691 lno = 0x0aaa // 0x167f @0x2
0x167d…1691 at0004 = ╱92╱ PRINT ╱ // 0x1681 @0x4
0x167d…1691 at0005 = ╱22╱"╱ // 0x1682 @0x5
0x167d…1691 at0006 = ╱5b╱Æ╱ // 0x1683 @0x6
0x167d…1691 at0007 = ╱6c╱l╱ // 0x1684 @0x7
0x167d…1691 at0008 = ╱64╱d╱ // 0x1685 @0x8
0x167d…1691 at0009 = ╱72╱r╱ // 0x1686 @0x9
0x167d…1691 at000a = ╱65╱e╱ // 0x1687 @0xa
0x167d…1691 at000b = ╱20╱…╱ // 0x1688 @0xb
0x167d…1691 at000c = ╱20╱…╱ // 0x1689 @0xc
0x167d…1691 at000d = ╱20╱…╱ // 0x168a @0xd
0x167d…1691 at000e = ╱20╱…╱ // 0x168b @0xe
0x167d…1691 at000f = ╱20╱…╱ // 0x168c @0xf
0x167d…1691 at0010 = ╱20╱…╱ // 0x168d @0x10
0x167d…1691 at0011 = ╱3a╱:╱ // 0x168e @0x11
0x167d…1691 at0012 = ╱22╱"╱ // 0x168f @0x12
0x167d…1691 at0013 = EOL // 0x1690 @0x13
0x167d…1691 }
0x1691…16a6 a3fd 2740 CURSOR 17,16
0x1691…16a6 LineComalBin {
0x1691…16a6 ptr = 0xa3fd // 0x1691 @0x0
0x1691…16a6 lno = 0x0ab4 // 0x1693 @0x2
0x1691…16a6 at0004 = ╱a1╱ CURSOR ╱ // 0x1695 @0x4
0x1691…16a6 at0005 = ╱31╱1╱ // 0x1696 @0x5
0x1691…16a6 at0006 = ╱37╱7╱ // 0x1697 @0x6
0x1691…16a6 at0007 = ╱fe00008805╱ // 0x1698 @0x7
0x1691…16a6 at000c = ╱ec╱,╱ // 0x169d @0xc
0x1691…16a6 at000d = ╱31╱1╱ // 0x169e @0xd
0x1691…16a6 at000e = ╱36╱6╱ // 0x169f @0xe
0x1691…16a6 at000f = ╱fe00008005╱ // 0x16a0 @0xf
0x1691…16a6 at0014 = EOL // 0x16a5 @0x14
0x1691…16a6 }
0x16a6…16c3 a41a 2750 EXEC TUD(KSALDO2$,TAL4$,E,B)
0x16a6…16c3 LineComalBin {
0x16a6…16c3 ptr = 0xa41a // 0x16a6 @0x0
0x16a6…16c3 lno = 0x0abe // 0x16a8 @0x2
0x16a6…16c3 at0004 = ╱9d╱ EXEC ╱ // 0x16aa @0x4
0x16a6…16c3 at0005 = ╱54╱T╱ // 0x16ab @0x5
0x16a6…16c3 at0006 = ╱55╱U╱ // 0x16ac @0x6
0x16a6…16c3 at0007 = ╱44╱D╱ // 0x16ad @0x7
0x16a6…16c3 at0008 = ╱ed╱(╱ // 0x16ae @0x8
0x16a6…16c3 at0009 = ╱4b╱K╱ // 0x16af @0x9
0x16a6…16c3 at000a = ╱53╱S╱ // 0x16b0 @0xa
0x16a6…16c3 at000b = ╱41╱A╱ // 0x16b1 @0xb
0x16a6…16c3 at000c = ╱4c╱L╱ // 0x16b2 @0xc
0x16a6…16c3 at000d = ╱44╱D╱ // 0x16b3 @0xd
0x16a6…16c3 at000e = ╱4f╱O╱ // 0x16b4 @0xe
0x16a6…16c3 at000f = ╱32╱2╱ // 0x16b5 @0xf
0x16a6…16c3 at0010 = ╱ef╱$╱ // 0x16b6 @0x10
0x16a6…16c3 at0011 = ╱ec╱,╱ // 0x16b7 @0x11
0x16a6…16c3 at0012 = ╱54╱T╱ // 0x16b8 @0x12
0x16a6…16c3 at0013 = ╱41╱A╱ // 0x16b9 @0x13
0x16a6…16c3 at0014 = ╱4c╱L╱ // 0x16ba @0x14
0x16a6…16c3 at0015 = ╱34╱4╱ // 0x16bb @0x15
0x16a6…16c3 at0016 = ╱ef╱$╱ // 0x16bc @0x16
0x16a6…16c3 at0017 = ╱ec╱,╱ // 0x16bd @0x17
0x16a6…16c3 at0018 = ╱45╱E╱ // 0x16be @0x18
0x16a6…16c3 at0019 = ╱ec╱,╱ // 0x16bf @0x19
0x16a6…16c3 at001a = ╱42╱B╱ // 0x16c0 @0x1a
0x16a6…16c3 at001b = ╱ee╱)╱ // 0x16c1 @0x1b
0x16a6…16c3 at001c = EOL // 0x16c2 @0x1c
0x16a6…16c3 }
0x16c3…16ce a425 2760 PRINT TAL4$
0x16c3…16ce LineComalBin {
0x16c3…16ce ptr = 0xa425 // 0x16c3 @0x0
0x16c3…16ce lno = 0x0ac8 // 0x16c5 @0x2
0x16c3…16ce at0004 = ╱92╱ PRINT ╱ // 0x16c7 @0x4
0x16c3…16ce at0005 = ╱54╱T╱ // 0x16c8 @0x5
0x16c3…16ce at0006 = ╱41╱A╱ // 0x16c9 @0x6
0x16c3…16ce at0007 = ╱4c╱L╱ // 0x16ca @0x7
0x16c3…16ce at0008 = ╱34╱4╱ // 0x16cb @0x8
0x16c3…16ce at0009 = ╱ef╱$╱ // 0x16cc @0x9
0x16c3…16ce at000a = EOL // 0x16cd @0xa
0x16c3…16ce }
0x16ce…16d4 a42b 2770 ENDIF
0x16ce…16d4 LineComalBin {
0x16ce…16d4 ptr = 0xa42b // 0x16ce @0x0
0x16ce…16d4 lno = 0x0ad2 // 0x16d0 @0x2
0x16ce…16d4 at0004 = ╱9b╱ ENDIF ╱ // 0x16d2 @0x4
0x16ce…16d4 at0005 = EOL // 0x16d3 @0x5
0x16ce…16d4 }
0x16d4…16da a431 2780 ENDPROC
0x16d4…16da LineComalBin {
0x16d4…16da ptr = 0xa431 // 0x16d4 @0x0
0x16d4…16da lno = 0x0adc // 0x16d6 @0x2
0x16d4…16da at0004 = ╱9f╱ ENDPROC ╱ // 0x16d8 @0x4
0x16d4…16da at0005 = EOL // 0x16d9 @0x5
0x16d4…16da }
0x16da…16f9 a450 2790 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x16da…16f9 LineComalBin {
0x16da…16f9 ptr = 0xa450 // 0x16da @0x0
0x16da…16f9 lno = 0x0ae6 // 0x16dc @0x2
0x16da…16f9 at0004 = ╱9e╱ PROC ╱ // 0x16de @0x4
0x16da…16f9 at0005 = ╱54╱T╱ // 0x16df @0x5
0x16da…16f9 at0006 = ╱55╱U╱ // 0x16e0 @0x6
0x16da…16f9 at0007 = ╱44╱D╱ // 0x16e1 @0x7
0x16da…16f9 at0008 = ╱ed╱(╱ // 0x16e2 @0x8
0x16da…16f9 at0009 = ╱42╱B╱ // 0x16e3 @0x9
0x16da…16f9 at000a = ╱4c╱L╱ // 0x16e4 @0xa
0x16da…16f9 at000b = ╱42╱B╱ // 0x16e5 @0xb
0x16da…16f9 at000c = ╱31╱1╱ // 0x16e6 @0xc
0x16da…16f9 at000d = ╱ec╱,╱ // 0x16e7 @0xd
0x16da…16f9 at000e = ╱55╱U╱ // 0x16e8 @0xe
0x16da…16f9 at000f = ╱42╱B╱ // 0x16e9 @0xf
0x16da…16f9 at0010 = ╱4c╱L╱ // 0x16ea @0x10
0x16da…16f9 at0011 = ╱42╱B╱ // 0x16eb @0x11
0x16da…16f9 at0012 = ╱31╱1╱ // 0x16ec @0x12
0x16da…16f9 at0013 = ╱ec╱,╱ // 0x16ed @0x13
0x16da…16f9 at0014 = ╱54╱T╱ // 0x16ee @0x14
0x16da…16f9 at0015 = ╱45╱E╱ // 0x16ef @0x15
0x16da…16f9 at0016 = ╱47╱G╱ // 0x16f0 @0x16
0x16da…16f9 at0017 = ╱4e╱N╱ // 0x16f1 @0x17
0x16da…16f9 at0018 = ╱ec╱,╱ // 0x16f2 @0x18
0x16da…16f9 at0019 = ╱53╱S╱ // 0x16f3 @0x19
0x16da…16f9 at001a = ╱54╱T╱ // 0x16f4 @0x1a
0x16da…16f9 at001b = ╱5c╱Ø╱ // 0x16f5 @0x1b
0x16da…16f9 at001c = ╱52╱R╱ // 0x16f6 @0x1c
0x16da…16f9 at001d = ╱ee╱)╱ // 0x16f7 @0x1d
0x16da…16f9 at001e = EOL // 0x16f8 @0x1e
0x16da…16f9 }
0x16f9…1717 a46e 2800 BLB2$=BLB1$;UBLB2$=UBLB1$
0x16f9…1717 LineComalBin {
0x16f9…1717 ptr = 0xa46e // 0x16f9 @0x0
0x16f9…1717 lno = 0x0af0 // 0x16fb @0x2
0x16f9…1717 at0004 = ╱42╱B╱ // 0x16fd @0x4
0x16f9…1717 at0005 = ╱4c╱L╱ // 0x16fe @0x5
0x16f9…1717 at0006 = ╱42╱B╱ // 0x16ff @0x6
0x16f9…1717 at0007 = ╱32╱2╱ // 0x1700 @0x7
0x16f9…1717 at0008 = ╱ef╱$╱ // 0x1701 @0x8
0x16f9…1717 at0009 = ╱dc╱=╱ // 0x1702 @0x9
0x16f9…1717 at000a = ╱42╱B╱ // 0x1703 @0xa
0x16f9…1717 at000b = ╱4c╱L╱ // 0x1704 @0xb
0x16f9…1717 at000c = ╱42╱B╱ // 0x1705 @0xc
0x16f9…1717 at000d = ╱31╱1╱ // 0x1706 @0xd
0x16f9…1717 at000e = ╱ef╱$╱ // 0x1707 @0xe
0x16f9…1717 at000f = ╱eb╱;╱ // 0x1708 @0xf
0x16f9…1717 at0010 = ╱55╱U╱ // 0x1709 @0x10
0x16f9…1717 at0011 = ╱42╱B╱ // 0x170a @0x11
0x16f9…1717 at0012 = ╱4c╱L╱ // 0x170b @0x12
0x16f9…1717 at0013 = ╱42╱B╱ // 0x170c @0x13
0x16f9…1717 at0014 = ╱32╱2╱ // 0x170d @0x14
0x16f9…1717 at0015 = ╱ef╱$╱ // 0x170e @0x15
0x16f9…1717 at0016 = ╱dc╱=╱ // 0x170f @0x16
0x16f9…1717 at0017 = ╱55╱U╱ // 0x1710 @0x17
0x16f9…1717 at0018 = ╱42╱B╱ // 0x1711 @0x18
0x16f9…1717 at0019 = ╱4c╱L╱ // 0x1712 @0x19
0x16f9…1717 at001a = ╱42╱B╱ // 0x1713 @0x1a
0x16f9…1717 at001b = ╱31╱1╱ // 0x1714 @0x1b
0x16f9…1717 at001c = ╱ef╱$╱ // 0x1715 @0x1c
0x16f9…1717 at001d = EOL // 0x1716 @0x1d
0x16f9…1717 }
0x1717…173b a492 2810 EXEC CALC(5,BLB2$,TAH$,UBLB2$)
0x1717…173b LineComalBin {
0x1717…173b ptr = 0xa492 // 0x1717 @0x0
0x1717…173b lno = 0x0afa // 0x1719 @0x2
0x1717…173b at0004 = ╱9d╱ EXEC ╱ // 0x171b @0x4
0x1717…173b at0005 = ╱43╱C╱ // 0x171c @0x5
0x1717…173b at0006 = ╱41╱A╱ // 0x171d @0x6
0x1717…173b at0007 = ╱4c╱L╱ // 0x171e @0x7
0x1717…173b at0008 = ╱43╱C╱ // 0x171f @0x8
0x1717…173b at0009 = ╱ed╱(╱ // 0x1720 @0x9
0x1717…173b at000a = ╱35╱5╱ // 0x1721 @0xa
0x1717…173b at000b = ╱fe0000a003╱ // 0x1722 @0xb
0x1717…173b at0010 = ╱ec╱,╱ // 0x1727 @0x10
0x1717…173b at0011 = ╱42╱B╱ // 0x1728 @0x11
0x1717…173b at0012 = ╱4c╱L╱ // 0x1729 @0x12
0x1717…173b at0013 = ╱42╱B╱ // 0x172a @0x13
0x1717…173b at0014 = ╱32╱2╱ // 0x172b @0x14
0x1717…173b at0015 = ╱ef╱$╱ // 0x172c @0x15
0x1717…173b at0016 = ╱ec╱,╱ // 0x172d @0x16
0x1717…173b at0017 = ╱54╱T╱ // 0x172e @0x17
0x1717…173b at0018 = ╱41╱A╱ // 0x172f @0x18
0x1717…173b at0019 = ╱48╱H╱ // 0x1730 @0x19
0x1717…173b at001a = ╱ef╱$╱ // 0x1731 @0x1a
0x1717…173b at001b = ╱ec╱,╱ // 0x1732 @0x1b
0x1717…173b at001c = ╱55╱U╱ // 0x1733 @0x1c
0x1717…173b at001d = ╱42╱B╱ // 0x1734 @0x1d
0x1717…173b at001e = ╱4c╱L╱ // 0x1735 @0x1e
0x1717…173b at001f = ╱42╱B╱ // 0x1736 @0x1f
0x1717…173b at0020 = ╱32╱2╱ // 0x1737 @0x20
0x1717…173b at0021 = ╱ef╱$╱ // 0x1738 @0x21
0x1717…173b at0022 = ╱ee╱)╱ // 0x1739 @0x22
0x1717…173b at0023 = EOL // 0x173a @0x23
0x1717…173b }
0x173b…174d a4a4 2820 UBLB1$=UBLB2$
0x173b…174d LineComalBin {
0x173b…174d ptr = 0xa4a4 // 0x173b @0x0
0x173b…174d lno = 0x0b04 // 0x173d @0x2
0x173b…174d at0004 = ╱55╱U╱ // 0x173f @0x4
0x173b…174d at0005 = ╱42╱B╱ // 0x1740 @0x5
0x173b…174d at0006 = ╱4c╱L╱ // 0x1741 @0x6
0x173b…174d at0007 = ╱42╱B╱ // 0x1742 @0x7
0x173b…174d at0008 = ╱31╱1╱ // 0x1743 @0x8
0x173b…174d at0009 = ╱ef╱$╱ // 0x1744 @0x9
0x173b…174d at000a = ╱dc╱=╱ // 0x1745 @0xa
0x173b…174d at000b = ╱55╱U╱ // 0x1746 @0xb
0x173b…174d at000c = ╱42╱B╱ // 0x1747 @0xc
0x173b…174d at000d = ╱4c╱L╱ // 0x1748 @0xd
0x173b…174d at000e = ╱42╱B╱ // 0x1749 @0xe
0x173b…174d at000f = ╱32╱2╱ // 0x174a @0xf
0x173b…174d at0010 = ╱ef╱$╱ // 0x174b @0x10
0x173b…174d at0011 = EOL // 0x174c @0x11
0x173b…174d }
0x174d…175a a4b1 2830 IF TEGN=B THEN
0x174d…175a LineComalBin {
0x174d…175a ptr = 0xa4b1 // 0x174d @0x0
0x174d…175a lno = 0x0b0e // 0x174f @0x2
0x174d…175a at0004 = ╱9c╱ IF ╱ // 0x1751 @0x4
0x174d…175a at0005 = ╱54╱T╱ // 0x1752 @0x5
0x174d…175a at0006 = ╱45╱E╱ // 0x1753 @0x6
0x174d…175a at0007 = ╱47╱G╱ // 0x1754 @0x7
0x174d…175a at0008 = ╱4e╱N╱ // 0x1755 @0x8
0x174d…175a at0009 = ╱dc╱=╱ // 0x1756 @0x9
0x174d…175a at000a = ╱42╱B╱ // 0x1757 @0xa
0x174d…175a at000b = ╱b6╱ THEN ╱ // 0x1758 @0xb
0x174d…175a at000c = EOL // 0x1759 @0xc
0x174d…175a }
0x175a…1777 a4ce 2840 UBLB1$=UBLB1$(E:13)
0x175a…1777 LineComalBin {
0x175a…1777 ptr = 0xa4ce // 0x175a @0x0
0x175a…1777 lno = 0x0b18 // 0x175c @0x2
0x175a…1777 at0004 = ╱55╱U╱ // 0x175e @0x4
0x175a…1777 at0005 = ╱42╱B╱ // 0x175f @0x5
0x175a…1777 at0006 = ╱4c╱L╱ // 0x1760 @0x6
0x175a…1777 at0007 = ╱42╱B╱ // 0x1761 @0x7
0x175a…1777 at0008 = ╱31╱1╱ // 0x1762 @0x8
0x175a…1777 at0009 = ╱ef╱$╱ // 0x1763 @0x9
0x175a…1777 at000a = ╱dc╱=╱ // 0x1764 @0xa
0x175a…1777 at000b = ╱55╱U╱ // 0x1765 @0xb
0x175a…1777 at000c = ╱42╱B╱ // 0x1766 @0xc
0x175a…1777 at000d = ╱4c╱L╱ // 0x1767 @0xd
0x175a…1777 at000e = ╱42╱B╱ // 0x1768 @0xe
0x175a…1777 at000f = ╱31╱1╱ // 0x1769 @0xf
0x175a…1777 at0010 = ╱ef╱$╱ // 0x176a @0x10
0x175a…1777 at0011 = ╱ed╱(╱ // 0x176b @0x11
0x175a…1777 at0012 = ╱45╱E╱ // 0x176c @0x12
0x175a…1777 at0013 = ╱f0╱:╱ // 0x176d @0x13
0x175a…1777 at0014 = ╱31╱1╱ // 0x176e @0x14
0x175a…1777 at0015 = ╱33╱3╱ // 0x176f @0x15
0x175a…1777 at0016 = ╱fe0000d004╱ // 0x1770 @0x16
0x175a…1777 at001b = ╱ee╱)╱ // 0x1775 @0x1b
0x175a…1777 at001c = EOL // 0x1776 @0x1c
0x175a…1777 }
0x1777…177d a4d4 2850 ELSE
0x1777…177d LineComalBin {
0x1777…177d ptr = 0xa4d4 // 0x1777 @0x0
0x1777…177d lno = 0x0b22 // 0x1779 @0x2
0x1777…177d at0004 = ╱9a╱ ELSE ╱ // 0x177b @0x4
0x1777…177d at0005 = EOL // 0x177c @0x5
0x1777…177d }
0x177d…17a0 a4f7 2860 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN
0x177d…17a0 LineComalBin {
0x177d…17a0 ptr = 0xa4f7 // 0x177d @0x0
0x177d…17a0 lno = 0x0b2c // 0x177f @0x2
0x177d…17a0 at0004 = ╱9c╱ IF ╱ // 0x1781 @0x4
0x177d…17a0 at0005 = ╱54╱T╱ // 0x1782 @0x5
0x177d…17a0 at0006 = ╱45╱E╱ // 0x1783 @0x6
0x177d…17a0 at0007 = ╱47╱G╱ // 0x1784 @0x7
0x177d…17a0 at0008 = ╱4e╱N╱ // 0x1785 @0x8
0x177d…17a0 at0009 = ╱dc╱=╱ // 0x1786 @0x9
0x177d…17a0 at000a = ╱45╱E╱ // 0x1787 @0xa
0x177d…17a0 at000b = ╱da╱ AND ╱ // 0x1788 @0xb
0x177d…17a0 at000c = ╱55╱U╱ // 0x1789 @0xc
0x177d…17a0 at000d = ╱42╱B╱ // 0x178a @0xd
0x177d…17a0 at000e = ╱4c╱L╱ // 0x178b @0xe
0x177d…17a0 at000f = ╱42╱B╱ // 0x178c @0xf
0x177d…17a0 at0010 = ╱31╱1╱ // 0x178d @0x10
0x177d…17a0 at0011 = ╱ef╱$╱ // 0x178e @0x11
0x177d…17a0 at0012 = ╱ed╱(╱ // 0x178f @0x12
0x177d…17a0 at0013 = ╱cc╱LEN╱ // 0x1790 @0x13
0x177d…17a0 at0014 = ╱ed╱(╱ // 0x1791 @0x14
0x177d…17a0 at0015 = ╱55╱U╱ // 0x1792 @0x15
0x177d…17a0 at0016 = ╱42╱B╱ // 0x1793 @0x16
0x177d…17a0 at0017 = ╱4c╱L╱ // 0x1794 @0x17
0x177d…17a0 at0018 = ╱42╱B╱ // 0x1795 @0x18
0x177d…17a0 at0019 = ╱31╱1╱ // 0x1796 @0x19
0x177d…17a0 at001a = ╱ef╱$╱ // 0x1797 @0x1a
0x177d…17a0 at001b = ╱ee╱)╱ // 0x1798 @0x1b
0x177d…17a0 at001c = ╱ee╱)╱ // 0x1799 @0x1c
0x177d…17a0 at001d = ╱dc╱=╱ // 0x179a @0x1d
0x177d…17a0 at001e = ╱22╱"╱ // 0x179b @0x1e
0x177d…17a0 at001f = ╱2b╱+╱ // 0x179c @0x1f
0x177d…17a0 at0020 = ╱22╱"╱ // 0x179d @0x20
0x177d…17a0 at0021 = ╱b6╱ THEN ╱ // 0x179e @0x21
0x177d…17a0 at0022 = EOL // 0x179f @0x22
0x177d…17a0 }
0x17a0…17ba a511 2870 UBLB1$(LEN(UBLB1$))=" "
0x17a0…17ba LineComalBin {
0x17a0…17ba ptr = 0xa511 // 0x17a0 @0x0
0x17a0…17ba lno = 0x0b36 // 0x17a2 @0x2
0x17a0…17ba at0004 = ╱55╱U╱ // 0x17a4 @0x4
0x17a0…17ba at0005 = ╱42╱B╱ // 0x17a5 @0x5
0x17a0…17ba at0006 = ╱4c╱L╱ // 0x17a6 @0x6
0x17a0…17ba at0007 = ╱42╱B╱ // 0x17a7 @0x7
0x17a0…17ba at0008 = ╱31╱1╱ // 0x17a8 @0x8
0x17a0…17ba at0009 = ╱ef╱$╱ // 0x17a9 @0x9
0x17a0…17ba at000a = ╱ed╱(╱ // 0x17aa @0xa
0x17a0…17ba at000b = ╱cc╱LEN╱ // 0x17ab @0xb
0x17a0…17ba at000c = ╱ed╱(╱ // 0x17ac @0xc
0x17a0…17ba at000d = ╱55╱U╱ // 0x17ad @0xd
0x17a0…17ba at000e = ╱42╱B╱ // 0x17ae @0xe
0x17a0…17ba at000f = ╱4c╱L╱ // 0x17af @0xf
0x17a0…17ba at0010 = ╱42╱B╱ // 0x17b0 @0x10
0x17a0…17ba at0011 = ╱31╱1╱ // 0x17b1 @0x11
0x17a0…17ba at0012 = ╱ef╱$╱ // 0x17b2 @0x12
0x17a0…17ba at0013 = ╱ee╱)╱ // 0x17b3 @0x13
0x17a0…17ba at0014 = ╱ee╱)╱ // 0x17b4 @0x14
0x17a0…17ba at0015 = ╱dc╱=╱ // 0x17b5 @0x15
0x17a0…17ba at0016 = ╱22╱"╱ // 0x17b6 @0x16
0x17a0…17ba at0017 = ╱20╱…╱ // 0x17b7 @0x17
0x17a0…17ba at0018 = ╱22╱"╱ // 0x17b8 @0x18
0x17a0…17ba at0019 = EOL // 0x17b9 @0x19
0x17a0…17ba }
0x17ba…17c0 a517 2880 ENDIF
0x17ba…17c0 LineComalBin {
0x17ba…17c0 ptr = 0xa517 // 0x17ba @0x0
0x17ba…17c0 lno = 0x0b40 // 0x17bc @0x2
0x17ba…17c0 at0004 = ╱9b╱ ENDIF ╱ // 0x17be @0x4
0x17ba…17c0 at0005 = EOL // 0x17bf @0x5
0x17ba…17c0 }
0x17c0…17c6 a51d 2890 ENDIF
0x17c0…17c6 LineComalBin {
0x17c0…17c6 ptr = 0xa51d // 0x17c0 @0x0
0x17c0…17c6 lno = 0x0b4a // 0x17c2 @0x2
0x17c0…17c6 at0004 = ╱9b╱ ENDIF ╱ // 0x17c4 @0x4
0x17c0…17c6 at0005 = EOL // 0x17c5 @0x5
0x17c0…17c6 }
0x17c6…17d3 a52a 2900 IF STØR=E THEN
0x17c6…17d3 LineComalBin {
0x17c6…17d3 ptr = 0xa52a // 0x17c6 @0x0
0x17c6…17d3 lno = 0x0b54 // 0x17c8 @0x2
0x17c6…17d3 at0004 = ╱9c╱ IF ╱ // 0x17ca @0x4
0x17c6…17d3 at0005 = ╱53╱S╱ // 0x17cb @0x5
0x17c6…17d3 at0006 = ╱54╱T╱ // 0x17cc @0x6
0x17c6…17d3 at0007 = ╱5c╱Ø╱ // 0x17cd @0x7
0x17c6…17d3 at0008 = ╱52╱R╱ // 0x17ce @0x8
0x17c6…17d3 at0009 = ╱dc╱=╱ // 0x17cf @0x9
0x17c6…17d3 at000a = ╱45╱E╱ // 0x17d0 @0xa
0x17c6…17d3 at000b = ╱b6╱ THEN ╱ // 0x17d1 @0xb
0x17c6…17d3 at000c = EOL // 0x17d2 @0xc
0x17c6…17d3 }
0x17d3…17f9 a550 2910 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x17d3…17f9 LineComalBin {
0x17d3…17f9 ptr = 0xa550 // 0x17d3 @0x0
0x17d3…17f9 lno = 0x0b5e // 0x17d5 @0x2
0x17d3…17f9 at0004 = ╱55╱U╱ // 0x17d7 @0x4
0x17d3…17f9 at0005 = ╱42╱B╱ // 0x17d8 @0x5
0x17d3…17f9 at0006 = ╱4c╱L╱ // 0x17d9 @0x6
0x17d3…17f9 at0007 = ╱42╱B╱ // 0x17da @0x7
0x17d3…17f9 at0008 = ╱31╱1╱ // 0x17db @0x8
0x17d3…17f9 at0009 = ╱ef╱$╱ // 0x17dc @0x9
0x17d3…17f9 at000a = ╱dc╱=╱ // 0x17dd @0xa
0x17d3…17f9 at000b = ╱55╱U╱ // 0x17de @0xb
0x17d3…17f9 at000c = ╱42╱B╱ // 0x17df @0xc
0x17d3…17f9 at000d = ╱4c╱L╱ // 0x17e0 @0xd
0x17d3…17f9 at000e = ╱42╱B╱ // 0x17e1 @0xe
0x17d3…17f9 at000f = ╱31╱1╱ // 0x17e2 @0xf
0x17d3…17f9 at0010 = ╱ef╱$╱ // 0x17e3 @0x10
0x17d3…17f9 at0011 = ╱ed╱(╱ // 0x17e4 @0x11
0x17d3…17f9 at0012 = ╱34╱4╱ // 0x17e5 @0x12
0x17d3…17f9 at0013 = ╱fe00008003╱ // 0x17e6 @0x13
0x17d3…17f9 at0018 = ╱f0╱:╱ // 0x17eb @0x18
0x17d3…17f9 at0019 = ╱cc╱LEN╱ // 0x17ec @0x19
0x17d3…17f9 at001a = ╱ed╱(╱ // 0x17ed @0x1a
0x17d3…17f9 at001b = ╱55╱U╱ // 0x17ee @0x1b
0x17d3…17f9 at001c = ╱42╱B╱ // 0x17ef @0x1c
0x17d3…17f9 at001d = ╱4c╱L╱ // 0x17f0 @0x1d
0x17d3…17f9 at001e = ╱42╱B╱ // 0x17f1 @0x1e
0x17d3…17f9 at001f = ╱31╱1╱ // 0x17f2 @0x1f
0x17d3…17f9 at0020 = ╱ef╱$╱ // 0x17f3 @0x20
0x17d3…17f9 at0021 = ╱ee╱)╱ // 0x17f4 @0x21
0x17d3…17f9 at0022 = ╱e3╱-╱ // 0x17f5 @0x22
0x17d3…17f9 at0023 = ╱56╱V╱ // 0x17f6 @0x23
0x17d3…17f9 at0024 = ╱ee╱)╱ // 0x17f7 @0x24
0x17d3…17f9 at0025 = EOL // 0x17f8 @0x25
0x17d3…17f9 }
0x17f9…17ff a556 2920 ENDIF
0x17f9…17ff LineComalBin {
0x17f9…17ff ptr = 0xa556 // 0x17f9 @0x0
0x17f9…17ff lno = 0x0b68 // 0x17fb @0x2
0x17f9…17ff at0004 = ╱9b╱ ENDIF ╱ // 0x17fd @0x4
0x17f9…17ff at0005 = EOL // 0x17fe @0x5
0x17f9…17ff }
0x17ff…1805 a55c 2930 ENDPROC
0x17ff…1805 LineComalBin {
0x17ff…1805 ptr = 0xa55c // 0x17ff @0x0
0x17ff…1805 lno = 0x0b72 // 0x1801 @0x2
0x17ff…1805 at0004 = ╱9f╱ ENDPROC ╱ // 0x1803 @0x4
0x17ff…1805 at0005 = EOL // 0x1804 @0x5
0x17ff…1805 }
0x1805…1817 a56e 2940 PROC NRTEST(NUM1)
0x1805…1817 LineComalBin {
0x1805…1817 ptr = 0xa56e // 0x1805 @0x0
0x1805…1817 lno = 0x0b7c // 0x1807 @0x2
0x1805…1817 at0004 = ╱9e╱ PROC ╱ // 0x1809 @0x4
0x1805…1817 at0005 = ╱4e╱N╱ // 0x180a @0x5
0x1805…1817 at0006 = ╱52╱R╱ // 0x180b @0x6
0x1805…1817 at0007 = ╱54╱T╱ // 0x180c @0x7
0x1805…1817 at0008 = ╱45╱E╱ // 0x180d @0x8
0x1805…1817 at0009 = ╱53╱S╱ // 0x180e @0x9
0x1805…1817 at000a = ╱54╱T╱ // 0x180f @0xa
0x1805…1817 at000b = ╱ed╱(╱ // 0x1810 @0xb
0x1805…1817 at000c = ╱4e╱N╱ // 0x1811 @0xc
0x1805…1817 at000d = ╱55╱U╱ // 0x1812 @0xd
0x1805…1817 at000e = ╱4d╱M╱ // 0x1813 @0xe
0x1805…1817 at000f = ╱31╱1╱ // 0x1814 @0xf
0x1805…1817 at0010 = ╱ee╱)╱ // 0x1815 @0x10
0x1805…1817 at0011 = EOL // 0x1816 @0x11
0x1805…1817 }
0x1817…1839 a590 2950 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x1817…1839 LineComalBin {
0x1817…1839 ptr = 0xa590 // 0x1817 @0x0
0x1817…1839 lno = 0x0b86 // 0x1819 @0x2
0x1817…1839 at0004 = ╱50╱P╱ // 0x181b @0x4
0x1817…1839 at0005 = ╱dc╱=╱ // 0x181c @0x5
0x1817…1839 at0006 = ╱42╱B╱ // 0x181d @0x6
0x1817…1839 at0007 = ╱eb╱;╱ // 0x181e @0x7
0x1817…1839 at0008 = ╱54╱T╱ // 0x181f @0x8
0x1817…1839 at0009 = ╱45╱E╱ // 0x1820 @0x9
0x1817…1839 at000a = ╱53╱S╱ // 0x1821 @0xa
0x1817…1839 at000b = ╱54╱T╱ // 0x1822 @0xb
0x1817…1839 at000c = ╱32╱2╱ // 0x1823 @0xc
0x1817…1839 at000d = ╱dc╱=╱ // 0x1824 @0xd
0x1817…1839 at000e = ╱42╱B╱ // 0x1825 @0xe
0x1817…1839 at000f = ╱eb╱;╱ // 0x1826 @0xf
0x1817…1839 at0010 = ╱4b╱K╱ // 0x1827 @0x10
0x1817…1839 at0011 = ╱54╱T╱ // 0x1828 @0x11
0x1817…1839 at0012 = ╱41╱A╱ // 0x1829 @0x12
0x1817…1839 at0013 = ╱4c╱L╱ // 0x182a @0x13
0x1817…1839 at0014 = ╱dc╱=╱ // 0x182b @0x14
0x1817…1839 at0015 = ╱42╱B╱ // 0x182c @0x15
0x1817…1839 at0016 = ╱eb╱;╱ // 0x182d @0x16
0x1817…1839 at0017 = ╱4c╱L╱ // 0x182e @0x17
0x1817…1839 at0018 = ╱dc╱=╱ // 0x182f @0x18
0x1817…1839 at0019 = ╱cc╱LEN╱ // 0x1830 @0x19
0x1817…1839 at001a = ╱ed╱(╱ // 0x1831 @0x1a
0x1817…1839 at001b = ╱4e╱N╱ // 0x1832 @0x1b
0x1817…1839 at001c = ╱55╱U╱ // 0x1833 @0x1c
0x1817…1839 at001d = ╱4d╱M╱ // 0x1834 @0x1d
0x1817…1839 at001e = ╱31╱1╱ // 0x1835 @0x1e
0x1817…1839 at001f = ╱ef╱$╱ // 0x1836 @0x1f
0x1817…1839 at0020 = ╱ee╱)╱ // 0x1837 @0x20
0x1817…1839 at0021 = EOL // 0x1838 @0x21
0x1817…1839 }
0x1839…1842 a599 2960 CASE L OF
0x1839…1842 LineComalBin {
0x1839…1842 ptr = 0xa599 // 0x1839 @0x0
0x1839…1842 lno = 0x0b90 // 0x183b @0x2
0x1839…1842 at0004 = ╱a201╱ CASE ╱ // 0x183d @0x4
0x1839…1842 at0006 = ╱4c╱L╱ // 0x183f @0x6
0x1839…1842 at0007 = ╱ba╱ OF ╱ // 0x1840 @0x7
0x1839…1842 at0008 = EOL // 0x1841 @0x8
0x1839…1842 }
0x1842…184d a5a4 2970 FOR I=E TO L
0x1842…184d LineComalBin {
0x1842…184d ptr = 0xa5a4 // 0x1842 @0x0
0x1842…184d lno = 0x0b9a // 0x1844 @0x2
0x1842…184d at0004 = ╱83╱ FOR ╱ // 0x1846 @0x4
0x1842…184d at0005 = ╱49╱I╱ // 0x1847 @0x5
0x1842…184d at0006 = ╱dc╱=╱ // 0x1848 @0x6
0x1842…184d at0007 = ╱45╱E╱ // 0x1849 @0x7
0x1842…184d at0008 = ╱b7╱ TO ╱ // 0x184a @0x8
0x1842…184d at0009 = ╱4c╱L╱ // 0x184b @0x9
0x1842…184d at000a = EOL // 0x184c @0xa
0x1842…184d }
0x184d…186b a5c2 2980 P1=INT(ORD(NUM1$(I))-48)
0x184d…186b LineComalBin {
0x184d…186b ptr = 0xa5c2 // 0x184d @0x0
0x184d…186b lno = 0x0ba4 // 0x184f @0x2
0x184d…186b at0004 = ╱50╱P╱ // 0x1851 @0x4
0x184d…186b at0005 = ╱31╱1╱ // 0x1852 @0x5
0x184d…186b at0006 = ╱dc╱=╱ // 0x1853 @0x6
0x184d…186b at0007 = ╱c6╱INT╱ // 0x1854 @0x7
0x184d…186b at0008 = ╱ed╱(╱ // 0x1855 @0x8
0x184d…186b at0009 = ╱cd╱ORD╱ // 0x1856 @0x9
0x184d…186b at000a = ╱ed╱(╱ // 0x1857 @0xa
0x184d…186b at000b = ╱4e╱N╱ // 0x1858 @0xb
0x184d…186b at000c = ╱55╱U╱ // 0x1859 @0xc
0x184d…186b at000d = ╱4d╱M╱ // 0x185a @0xd
0x184d…186b at000e = ╱31╱1╱ // 0x185b @0xe
0x184d…186b at000f = ╱ef╱$╱ // 0x185c @0xf
0x184d…186b at0010 = ╱ed╱(╱ // 0x185d @0x10
0x184d…186b at0011 = ╱49╱I╱ // 0x185e @0x11
0x184d…186b at0012 = ╱ee╱)╱ // 0x185f @0x12
0x184d…186b at0013 = ╱ee╱)╱ // 0x1860 @0x13
0x184d…186b at0014 = ╱e3╱-╱ // 0x1861 @0x14
0x184d…186b at0015 = ╱34╱4╱ // 0x1862 @0x15
0x184d…186b at0016 = ╱38╱8╱ // 0x1863 @0x16
0x184d…186b at0017 = ╱fe0000c006╱ // 0x1864 @0x17
0x184d…186b at001c = ╱ee╱)╱ // 0x1869 @0x1c
0x184d…186b at001d = EOL // 0x186a @0x1d
0x184d…186b }
0x186b…187b a5d2 2990 IF P1=>B AND P1<=W THEN
0x186b…187b LineComalBin {
0x186b…187b ptr = 0xa5d2 // 0x186b @0x0
0x186b…187b lno = 0x0bae // 0x186d @0x2
0x186b…187b at0004 = ╱9c╱ IF ╱ // 0x186f @0x4
0x186b…187b at0005 = ╱50╱P╱ // 0x1870 @0x5
0x186b…187b at0006 = ╱31╱1╱ // 0x1871 @0x6
0x186b…187b at0007 = ╱e0╱=>╱ // 0x1872 @0x7
0x186b…187b at0008 = ╱42╱B╱ // 0x1873 @0x8
0x186b…187b at0009 = ╱da╱ AND ╱ // 0x1874 @0x9
0x186b…187b at000a = ╱50╱P╱ // 0x1875 @0xa
0x186b…187b at000b = ╱31╱1╱ // 0x1876 @0xb
0x186b…187b at000c = ╱df╱<=╱ // 0x1877 @0xc
0x186b…187b at000d = ╱57╱W╱ // 0x1878 @0xd
0x186b…187b at000e = ╱b6╱ THEN ╱ // 0x1879 @0xe
0x186b…187b at000f = EOL // 0x187a @0xf
0x186b…187b }
0x187b…188e a5e5 3000 P=P*10+P1
0x187b…188e LineComalBin {
0x187b…188e ptr = 0xa5e5 // 0x187b @0x0
0x187b…188e lno = 0x0bb8 // 0x187d @0x2
0x187b…188e at0004 = ╱50╱P╱ // 0x187f @0x4
0x187b…188e at0005 = ╱dc╱=╱ // 0x1880 @0x5
0x187b…188e at0006 = ╱50╱P╱ // 0x1881 @0x6
0x187b…188e at0007 = ╱e4╱*╱ // 0x1882 @0x7
0x187b…188e at0008 = ╱31╱1╱ // 0x1883 @0x8
0x187b…188e at0009 = ╱30╱0╱ // 0x1884 @0x9
0x187b…188e at000a = ╱fe0000a004╱ // 0x1885 @0xa
0x187b…188e at000f = ╱e2╱+╱ // 0x188a @0xf
0x187b…188e at0010 = ╱50╱P╱ // 0x188b @0x10
0x187b…188e at0011 = ╱31╱1╱ // 0x188c @0x11
0x187b…188e at0012 = EOL // 0x188d @0x12
0x187b…188e }
0x188e…1894 a5eb 3010 ELSE
0x188e…1894 LineComalBin {
0x188e…1894 ptr = 0xa5eb // 0x188e @0x0
0x188e…1894 lno = 0x0bc2 // 0x1890 @0x2
0x188e…1894 at0004 = ╱9a╱ ELSE ╱ // 0x1892 @0x4
0x188e…1894 at0005 = EOL // 0x1893 @0x5
0x188e…1894 }
0x1894…18a0 a5f7 3020 TEST2=E
0x1894…18a0 LineComalBin {
0x1894…18a0 ptr = 0xa5f7 // 0x1894 @0x0
0x1894…18a0 lno = 0x0bcc // 0x1896 @0x2
0x1894…18a0 at0004 = ╱54╱T╱ // 0x1898 @0x4
0x1894…18a0 at0005 = ╱45╱E╱ // 0x1899 @0x5
0x1894…18a0 at0006 = ╱53╱S╱ // 0x189a @0x6
0x1894…18a0 at0007 = ╱54╱T╱ // 0x189b @0x7
0x1894…18a0 at0008 = ╱32╱2╱ // 0x189c @0x8
0x1894…18a0 at0009 = ╱dc╱=╱ // 0x189d @0x9
0x1894…18a0 at000a = ╱45╱E╱ // 0x189e @0xa
0x1894…18a0 at000b = EOL // 0x189f @0xb
0x1894…18a0 }
0x18a0…18a6 a5fd 3030 ENDIF
0x18a0…18a6 LineComalBin {
0x18a0…18a6 ptr = 0xa5fd // 0x18a0 @0x0
0x18a0…18a6 lno = 0x0bd6 // 0x18a2 @0x2
0x18a0…18a6 at0004 = ╱9b╱ ENDIF ╱ // 0x18a4 @0x4
0x18a0…18a6 at0005 = EOL // 0x18a5 @0x5
0x18a0…18a6 }
0x18a6…18ad a604 3040 NEXT I
0x18a6…18ad LineComalBin {
0x18a6…18ad ptr = 0xa604 // 0x18a6 @0x0
0x18a6…18ad lno = 0x0be0 // 0x18a8 @0x2
0x18a6…18ad at0004 = ╱84╱ NEXT ╱ // 0x18aa @0x4
0x18a6…18ad at0005 = ╱49╱I╱ // 0x18ab @0x5
0x18a6…18ad at0006 = EOL // 0x18ac @0x6
0x18a6…18ad }
0x18ad…18d5 a62c 3050 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x18ad…18d5 LineComalBin {
0x18ad…18d5 ptr = 0xa62c // 0x18ad @0x0
0x18ad…18d5 lno = 0x0bea // 0x18af @0x2
0x18ad…18d5 at0004 = ╱4b╱K╱ // 0x18b1 @0x4
0x18ad…18d5 at0005 = ╱54╱T╱ // 0x18b2 @0x5
0x18ad…18d5 at0006 = ╱41╱A╱ // 0x18b3 @0x6
0x18ad…18d5 at0007 = ╱4c╱L╱ // 0x18b4 @0x7
0x18ad…18d5 at0008 = ╱dc╱=╱ // 0x18b5 @0x8
0x18ad…18d5 at0009 = ╱50╱P╱ // 0x18b6 @0x9
0x18ad…18d5 at000a = ╱e7╱ DIV ╱ // 0x18b7 @0xa
0x18ad…18d5 at000b = ╱31╱1╱ // 0x18b8 @0xb
0x18ad…18d5 at000c = ╱30╱0╱ // 0x18b9 @0xc
0x18ad…18d5 at000d = ╱30╱0╱ // 0x18ba @0xd
0x18ad…18d5 at000e = ╱30╱0╱ // 0x18bb @0xe
0x18ad…18d5 at000f = ╱30╱0╱ // 0x18bc @0xf
0x18ad…18d5 at0010 = ╱fe00409c0e╱ // 0x18bd @0x10
0x18ad…18d5 at0015 = ╱eb╱;╱ // 0x18c2 @0x15
0x18ad…18d5 at0016 = ╱4b╱K╱ // 0x18c3 @0x16
0x18ad…18d5 at0017 = ╱54╱T╱ // 0x18c4 @0x17
0x18ad…18d5 at0018 = ╱41╱A╱ // 0x18c5 @0x18
0x18ad…18d5 at0019 = ╱4c╱L╱ // 0x18c6 @0x19
0x18ad…18d5 at001a = ╱39╱9╱ // 0x18c7 @0x1a
0x18ad…18d5 at001b = ╱dc╱=╱ // 0x18c8 @0x1b
0x18ad…18d5 at001c = ╱50╱P╱ // 0x18c9 @0x1c
0x18ad…18d5 at001d = ╱e7╱ DIV ╱ // 0x18ca @0x1d
0x18ad…18d5 at001e = ╱31╱1╱ // 0x18cb @0x1e
0x18ad…18d5 at001f = ╱30╱0╱ // 0x18cc @0x1f
0x18ad…18d5 at0020 = ╱30╱0╱ // 0x18cd @0x20
0x18ad…18d5 at0021 = ╱30╱0╱ // 0x18ce @0x21
0x18ad…18d5 at0022 = ╱fe0000fa0a╱ // 0x18cf @0x22
0x18ad…18d5 at0027 = EOL // 0x18d4 @0x27
0x18ad…18d5 }
0x18d5…18f1 a648 3060 IF KTAL9=KRTAL THEN KTAL=KTAL9
0x18d5…18f1 LineComalBin {
0x18d5…18f1 ptr = 0xa648 // 0x18d5 @0x0
0x18d5…18f1 lno = 0x0bf4 // 0x18d7 @0x2
0x18d5…18f1 at0004 = ╱82╱ IF ╱ // 0x18d9 @0x4
0x18d5…18f1 at0005 = ╱4b╱K╱ // 0x18da @0x5
0x18d5…18f1 at0006 = ╱54╱T╱ // 0x18db @0x6
0x18d5…18f1 at0007 = ╱41╱A╱ // 0x18dc @0x7
0x18d5…18f1 at0008 = ╱4c╱L╱ // 0x18dd @0x8
0x18d5…18f1 at0009 = ╱39╱9╱ // 0x18de @0x9
0x18d5…18f1 at000a = ╱dc╱=╱ // 0x18df @0xa
0x18d5…18f1 at000b = ╱4b╱K╱ // 0x18e0 @0xb
0x18d5…18f1 at000c = ╱52╱R╱ // 0x18e1 @0xc
0x18d5…18f1 at000d = ╱54╱T╱ // 0x18e2 @0xd
0x18d5…18f1 at000e = ╱41╱A╱ // 0x18e3 @0xe
0x18d5…18f1 at000f = ╱4c╱L╱ // 0x18e4 @0xf
0x18d5…18f1 at0010 = ╱b6╱ THEN ╱ // 0x18e5 @0x10
0x18d5…18f1 at0011 = ╱4b╱K╱ // 0x18e6 @0x11
0x18d5…18f1 at0012 = ╱54╱T╱ // 0x18e7 @0x12
0x18d5…18f1 at0013 = ╱41╱A╱ // 0x18e8 @0x13
0x18d5…18f1 at0014 = ╱4c╱L╱ // 0x18e9 @0x14
0x18d5…18f1 at0015 = ╱dc╱=╱ // 0x18ea @0x15
0x18d5…18f1 at0016 = ╱4b╱K╱ // 0x18eb @0x16
0x18d5…18f1 at0017 = ╱54╱T╱ // 0x18ec @0x17
0x18d5…18f1 at0018 = ╱41╱A╱ // 0x18ed @0x18
0x18d5…18f1 at0019 = ╱4c╱L╱ // 0x18ee @0x19
0x18d5…18f1 at001a = ╱39╱9╱ // 0x18ef @0x1a
0x18d5…18f1 at001b = EOL // 0x18f0 @0x1b
0x18d5…18f1 }
0x18f1…18f9 a650 3070 WHEN B
0x18f1…18f9 LineComalBin {
0x18f1…18f9 ptr = 0xa650 // 0x18f1 @0x0
0x18f1…18f9 lno = 0x0bfe // 0x18f3 @0x2
0x18f1…18f9 at0004 = ╱a301╱ WHEN ╱ // 0x18f5 @0x4
0x18f1…18f9 at0006 = ╱42╱B╱ // 0x18f7 @0x6
0x18f1…18f9 at0007 = EOL // 0x18f8 @0x7
0x18f1…18f9 }
0x18f9…1902 a659 3080 P=-E
0x18f9…1902 LineComalBin {
0x18f9…1902 ptr = 0xa659 // 0x18f9 @0x0
0x18f9…1902 lno = 0x0c08 // 0x18fb @0x2
0x18f9…1902 at0004 = ╱50╱P╱ // 0x18fd @0x4
0x18f9…1902 at0005 = ╱dc╱=╱ // 0x18fe @0x5
0x18f9…1902 at0006 = ╱e9╱-╱ // 0x18ff @0x6
0x18f9…1902 at0007 = ╱45╱E╱ // 0x1900 @0x7
0x18f9…1902 at0008 = EOL // 0x1901 @0x8
0x18f9…1902 }
0x1902…190a a661 3090 WHEN E
0x1902…190a LineComalBin {
0x1902…190a ptr = 0xa661 // 0x1902 @0x0
0x1902…190a lno = 0x0c12 // 0x1904 @0x2
0x1902…190a at0004 = ╱a301╱ WHEN ╱ // 0x1906 @0x4
0x1902…190a at0006 = ╱45╱E╱ // 0x1908 @0x6
0x1902…190a at0007 = EOL // 0x1909 @0x7
0x1902…190a }
0x190a…1917 a66e 3100 CASE NUM1$ OF
0x190a…1917 LineComalBin {
0x190a…1917 ptr = 0xa66e // 0x190a @0x0
0x190a…1917 lno = 0x0c1c // 0x190c @0x2
0x190a…1917 at0004 = ╱a200╱ CASE ╱ // 0x190e @0x4
0x190a…1917 at0006 = ╱4e╱N╱ // 0x1910 @0x6
0x190a…1917 at0007 = ╱55╱U╱ // 0x1911 @0x7
0x190a…1917 at0008 = ╱4d╱M╱ // 0x1912 @0x8
0x190a…1917 at0009 = ╱31╱1╱ // 0x1913 @0x9
0x190a…1917 at000a = ╱ef╱$╱ // 0x1914 @0xa
0x190a…1917 at000b = ╱ba╱ OF ╱ // 0x1915 @0xb
0x190a…1917 at000c = EOL // 0x1916 @0xc
0x190a…1917 }
0x1917…1931 a688 3110 P=INT(ORD(NUM1$)-48)
0x1917…1931 LineComalBin {
0x1917…1931 ptr = 0xa688 // 0x1917 @0x0
0x1917…1931 lno = 0x0c26 // 0x1919 @0x2
0x1917…1931 at0004 = ╱50╱P╱ // 0x191b @0x4
0x1917…1931 at0005 = ╱dc╱=╱ // 0x191c @0x5
0x1917…1931 at0006 = ╱c6╱INT╱ // 0x191d @0x6
0x1917…1931 at0007 = ╱ed╱(╱ // 0x191e @0x7
0x1917…1931 at0008 = ╱cd╱ORD╱ // 0x191f @0x8
0x1917…1931 at0009 = ╱ed╱(╱ // 0x1920 @0x9
0x1917…1931 at000a = ╱4e╱N╱ // 0x1921 @0xa
0x1917…1931 at000b = ╱55╱U╱ // 0x1922 @0xb
0x1917…1931 at000c = ╱4d╱M╱ // 0x1923 @0xc
0x1917…1931 at000d = ╱31╱1╱ // 0x1924 @0xd
0x1917…1931 at000e = ╱ef╱$╱ // 0x1925 @0xe
0x1917…1931 at000f = ╱ee╱)╱ // 0x1926 @0xf
0x1917…1931 at0010 = ╱e3╱-╱ // 0x1927 @0x10
0x1917…1931 at0011 = ╱34╱4╱ // 0x1928 @0x11
0x1917…1931 at0012 = ╱38╱8╱ // 0x1929 @0x12
0x1917…1931 at0013 = ╱fe0000c006╱ // 0x192a @0x13
0x1917…1931 at0018 = ╱ee╱)╱ // 0x192f @0x18
0x1917…1931 at0019 = EOL // 0x1930 @0x19
0x1917…1931 }
0x1931…193f a696 3120 WHEN "J","j"
0x1931…193f LineComalBin {
0x1931…193f ptr = 0xa696 // 0x1931 @0x0
0x1931…193f lno = 0x0c30 // 0x1933 @0x2
0x1931…193f at0004 = ╱a300╱ WHEN ╱ // 0x1935 @0x4
0x1931…193f at0006 = ╱22╱"╱ // 0x1937 @0x6
0x1931…193f at0007 = ╱4a╱J╱ // 0x1938 @0x7
0x1931…193f at0008 = ╱22╱"╱ // 0x1939 @0x8
0x1931…193f at0009 = ╱ec╱,╱ // 0x193a @0x9
0x1931…193f at000a = ╱22╱"╱ // 0x193b @0xa
0x1931…193f at000b = ╱6a╱j╱ // 0x193c @0xb
0x1931…193f at000c = ╱22╱"╱ // 0x193d @0xc
0x1931…193f at000d = EOL // 0x193e @0xd
0x1931…193f }
0x193f…194d a6a4 3130 P=-7
0x193f…194d LineComalBin {
0x193f…194d ptr = 0xa6a4 // 0x193f @0x0
0x193f…194d lno = 0x0c3a // 0x1941 @0x2
0x193f…194d at0004 = ╱50╱P╱ // 0x1943 @0x4
0x193f…194d at0005 = ╱dc╱=╱ // 0x1944 @0x5
0x193f…194d at0006 = ╱e9╱-╱ // 0x1945 @0x6
0x193f…194d at0007 = ╱37╱7╱ // 0x1946 @0x7
0x193f…194d at0008 = ╱fe0000e003╱ // 0x1947 @0x8
0x193f…194d at000d = EOL // 0x194c @0xd
0x193f…194d }
0x194d…195b a6b2 3140 WHEN "N","n"
0x194d…195b LineComalBin {
0x194d…195b ptr = 0xa6b2 // 0x194d @0x0
0x194d…195b lno = 0x0c44 // 0x194f @0x2
0x194d…195b at0004 = ╱a300╱ WHEN ╱ // 0x1951 @0x4
0x194d…195b at0006 = ╱22╱"╱ // 0x1953 @0x6
0x194d…195b at0007 = ╱4e╱N╱ // 0x1954 @0x7
0x194d…195b at0008 = ╱22╱"╱ // 0x1955 @0x8
0x194d…195b at0009 = ╱ec╱,╱ // 0x1956 @0x9
0x194d…195b at000a = ╱22╱"╱ // 0x1957 @0xa
0x194d…195b at000b = ╱6e╱n╱ // 0x1958 @0xb
0x194d…195b at000c = ╱22╱"╱ // 0x1959 @0xc
0x194d…195b at000d = EOL // 0x195a @0xd
0x194d…195b }
0x195b…1969 a6c0 3150 P=-8
0x195b…1969 LineComalBin {
0x195b…1969 ptr = 0xa6c0 // 0x195b @0x0
0x195b…1969 lno = 0x0c4e // 0x195d @0x2
0x195b…1969 at0004 = ╱50╱P╱ // 0x195f @0x4
0x195b…1969 at0005 = ╱dc╱=╱ // 0x1960 @0x5
0x195b…1969 at0006 = ╱e9╱-╱ // 0x1961 @0x6
0x195b…1969 at0007 = ╱38╱8╱ // 0x1962 @0x7
0x195b…1969 at0008 = ╱fe00008004╱ // 0x1963 @0x8
0x195b…1969 at000d = EOL // 0x1968 @0xd
0x195b…1969 }
0x1969…196f a6c6 3160 ENDCASE
0x1969…196f LineComalBin {
0x1969…196f ptr = 0xa6c6 // 0x1969 @0x0
0x1969…196f lno = 0x0c58 // 0x196b @0x2
0x1969…196f at0004 = ╱a4╱ ENDCASE ╱ // 0x196d @0x4
0x1969…196f at0005 = EOL // 0x196e @0x5
0x1969…196f }
0x196f…1975 a6cc 3170 ENDCASE
0x196f…1975 LineComalBin {
0x196f…1975 ptr = 0xa6cc // 0x196f @0x0
0x196f…1975 lno = 0x0c62 // 0x1971 @0x2
0x196f…1975 at0004 = ╱a4╱ ENDCASE ╱ // 0x1973 @0x4
0x196f…1975 at0005 = EOL // 0x1974 @0x5
0x196f…1975 }
0x1975…197b a6d2 3180 ENDPROC
0x1975…197b LineComalBin {
0x1975…197b ptr = 0xa6d2 // 0x1975 @0x0
0x1975…197b lno = 0x0c6c // 0x1977 @0x2
0x1975…197b at0004 = ╱9f╱ ENDPROC ╱ // 0x1979 @0x4
0x1975…197b at0005 = EOL // 0x197a @0x5
0x1975…197b }
0x197b…198a a6e1 3190 PROC VERSKRIFT
0x197b…198a LineComalBin {
0x197b…198a ptr = 0xa6e1 // 0x197b @0x0
0x197b…198a lno = 0x0c76 // 0x197d @0x2
0x197b…198a at0004 = ╱9e╱ PROC ╱ // 0x197f @0x4
0x197b…198a at0005 = ╱56╱V╱ // 0x1980 @0x5
0x197b…198a at0006 = ╱45╱E╱ // 0x1981 @0x6
0x197b…198a at0007 = ╱52╱R╱ // 0x1982 @0x7
0x197b…198a at0008 = ╱53╱S╱ // 0x1983 @0x8
0x197b…198a at0009 = ╱4b╱K╱ // 0x1984 @0x9
0x197b…198a at000a = ╱52╱R╱ // 0x1985 @0xa
0x197b…198a at000b = ╱49╱I╱ // 0x1986 @0xb
0x197b…198a at000c = ╱46╱F╱ // 0x1987 @0xc
0x197b…198a at000d = ╱54╱T╱ // 0x1988 @0xd
0x197b…198a at000e = EOL // 0x1989 @0xe
0x197b…198a }
0x198a…1999 a6f0 3200 CURSOR 45,E
0x198a…1999 LineComalBin {
0x198a…1999 ptr = 0xa6f0 // 0x198a @0x0
0x198a…1999 lno = 0x0c80 // 0x198c @0x2
0x198a…1999 at0004 = ╱a1╱ CURSOR ╱ // 0x198e @0x4
0x198a…1999 at0005 = ╱34╱4╱ // 0x198f @0x5
0x198a…1999 at0006 = ╱35╱5╱ // 0x1990 @0x6
0x198a…1999 at0007 = ╱fe0000b406╱ // 0x1991 @0x7
0x198a…1999 at000c = ╱ec╱,╱ // 0x1996 @0xc
0x198a…1999 at000d = ╱45╱E╱ // 0x1997 @0xd
0x198a…1999 at000e = EOL // 0x1998 @0xe
0x198a…1999 }
0x1999…19a5 a6fc 3210 CASE TYPE OF
0x1999…19a5 LineComalBin {
0x1999…19a5 ptr = 0xa6fc // 0x1999 @0x0
0x1999…19a5 lno = 0x0c8a // 0x199b @0x2
0x1999…19a5 at0004 = ╱a201╱ CASE ╱ // 0x199d @0x4
0x1999…19a5 at0006 = ╱54╱T╱ // 0x199f @0x6
0x1999…19a5 at0007 = ╱59╱Y╱ // 0x19a0 @0x7
0x1999…19a5 at0008 = ╱50╱P╱ // 0x19a1 @0x8
0x1999…19a5 at0009 = ╱45╱E╱ // 0x19a2 @0x9
0x1999…19a5 at000a = ╱ba╱ OF ╱ // 0x19a3 @0xa
0x1999…19a5 at000b = EOL // 0x19a4 @0xb
0x1999…19a5 }
0x19a5…19ad a704 3220 WHEN E
0x19a5…19ad LineComalBin {
0x19a5…19ad ptr = 0xa704 // 0x19a5 @0x0
0x19a5…19ad lno = 0x0c94 // 0x19a7 @0x2
0x19a5…19ad at0004 = ╱a301╱ WHEN ╱ // 0x19a9 @0x4
0x19a5…19ad at0006 = ╱45╱E╱ // 0x19ab @0x6
0x19a5…19ad at0007 = EOL // 0x19ac @0x7
0x19a5…19ad }
0x19ad…19bf a716 3230 PRINT "Oprettelse"
0x19ad…19bf LineComalBin {
0x19ad…19bf ptr = 0xa716 // 0x19ad @0x0
0x19ad…19bf lno = 0x0c9e // 0x19af @0x2
0x19ad…19bf at0004 = ╱92╱ PRINT ╱ // 0x19b1 @0x4
0x19ad…19bf at0005 = ╱22╱"╱ // 0x19b2 @0x5
0x19ad…19bf at0006 = ╱4f╱O╱ // 0x19b3 @0x6
0x19ad…19bf at0007 = ╱70╱p╱ // 0x19b4 @0x7
0x19ad…19bf at0008 = ╱72╱r╱ // 0x19b5 @0x8
0x19ad…19bf at0009 = ╱65╱e╱ // 0x19b6 @0x9
0x19ad…19bf at000a = ╱74╱t╱ // 0x19b7 @0xa
0x19ad…19bf at000b = ╱74╱t╱ // 0x19b8 @0xb
0x19ad…19bf at000c = ╱65╱e╱ // 0x19b9 @0xc
0x19ad…19bf at000d = ╱6c╱l╱ // 0x19ba @0xd
0x19ad…19bf at000e = ╱73╱s╱ // 0x19bb @0xe
0x19ad…19bf at000f = ╱65╱e╱ // 0x19bc @0xf
0x19ad…19bf at0010 = ╱22╱"╱ // 0x19bd @0x10
0x19ad…19bf at0011 = EOL // 0x19be @0x11
0x19ad…19bf }
0x19bf…19c7 a71e 3240 WHEN G
0x19bf…19c7 LineComalBin {
0x19bf…19c7 ptr = 0xa71e // 0x19bf @0x0
0x19bf…19c7 lno = 0x0ca8 // 0x19c1 @0x2
0x19bf…19c7 at0004 = ╱a301╱ WHEN ╱ // 0x19c3 @0x4
0x19bf…19c7 at0006 = ╱47╱G╱ // 0x19c5 @0x6
0x19bf…19c7 at0007 = EOL // 0x19c6 @0x7
0x19bf…19c7 }
0x19c7…19d6 a72d 3250 PRINT "Ændring"
0x19c7…19d6 LineComalBin {
0x19c7…19d6 ptr = 0xa72d // 0x19c7 @0x0
0x19c7…19d6 lno = 0x0cb2 // 0x19c9 @0x2
0x19c7…19d6 at0004 = ╱92╱ PRINT ╱ // 0x19cb @0x4
0x19c7…19d6 at0005 = ╱22╱"╱ // 0x19cc @0x5
0x19c7…19d6 at0006 = ╱5b╱Æ╱ // 0x19cd @0x6
0x19c7…19d6 at0007 = ╱6e╱n╱ // 0x19ce @0x7
0x19c7…19d6 at0008 = ╱64╱d╱ // 0x19cf @0x8
0x19c7…19d6 at0009 = ╱72╱r╱ // 0x19d0 @0x9
0x19c7…19d6 at000a = ╱69╱i╱ // 0x19d1 @0xa
0x19c7…19d6 at000b = ╱6e╱n╱ // 0x19d2 @0xb
0x19c7…19d6 at000c = ╱67╱g╱ // 0x19d3 @0xc
0x19c7…19d6 at000d = ╱22╱"╱ // 0x19d4 @0xd
0x19c7…19d6 at000e = EOL // 0x19d5 @0xe
0x19c7…19d6 }
0x19d6…19de a735 3260 WHEN V
0x19d6…19de LineComalBin {
0x19d6…19de ptr = 0xa735 // 0x19d6 @0x0
0x19d6…19de lno = 0x0cbc // 0x19d8 @0x2
0x19d6…19de at0004 = ╱a301╱ WHEN ╱ // 0x19da @0x4
0x19d6…19de at0006 = ╱56╱V╱ // 0x19dc @0x6
0x19d6…19de at0007 = EOL // 0x19dd @0x7
0x19d6…19de }
0x19de…19ee (86,) a745 3270 PRINT "Sletning"
0x19de…19ee LineComalBin {
0x19de…19ee ptr = 0xa745 // 0x19de @0x0
0x19de…19ee lno = 0x0cc6 // 0x19e0 @0x2
0x19de…19ee at0004 = ╱92╱ PRINT ╱ // 0x19e2 @0x4
0x19de…19ee at0005 = ╱22╱"╱ // 0x19e3 @0x5
0x19de…19ee at0006 = ╱53╱S╱ // 0x19e4 @0x6
0x19de…19ee at0007 = ╱6c╱l╱ // 0x19e5 @0x7
0x19de…19ee at0008 = ╱65╱e╱ // 0x19e6 @0x8
0x19de…19ee at0009 = ╱74╱t╱ // 0x19e7 @0x9
0x19de…19ee at000a = ╱6e╱n╱ // 0x19e8 @0xa
0x19de…19ee at000b = ╱69╱i╱ // 0x19e9 @0xb
0x19de…19ee at000c = ╱6e╱n╱ // 0x19ea @0xc
0x19de…19ee at000d = ╱67╱g╱ // 0x19eb @0xd
0x19de…19ee at000e = ╱22╱"╱ // 0x19ec @0xe
0x19de…19ee at000f = EOL // 0x19ed @0xf
0x19de…19ee }
0x19ee…19fb a752 3280 WHEN 4
0x19ee…19fb LineComalBin {
0x19ee…19fb ptr = 0xa752 // 0x19ee @0x0
0x19ee…19fb lno = 0x0cd0 // 0x19f0 @0x2
0x19ee…19fb at0004 = ╱a301╱ WHEN ╱ // 0x19f2 @0x4
0x19ee…19fb at0006 = ╱34╱4╱ // 0x19f4 @0x6
0x19ee…19fb at0007 = ╱fe00008003╱ // 0x19f5 @0x7
0x19ee…19fb at000c = EOL // 0x19fa @0xc
0x19ee…19fb }
0x19fb…1a0b a762 3290 PRINT "Udskrift"
0x19fb…1a0b LineComalBin {
0x19fb…1a0b ptr = 0xa762 // 0x19fb @0x0
0x19fb…1a0b lno = 0x0cda // 0x19fd @0x2
0x19fb…1a0b at0004 = ╱92╱ PRINT ╱ // 0x19ff @0x4
0x19fb…1a0b at0005 = ╱22╱"╱ // 0x1a00 @0x5
0x19fb…1a0b at0006 = ╱55╱U╱ // 0x1a01 @0x6
0x19fb…1a0b at0007 = ╱64╱d╱ // 0x1a02 @0x7
0x19fb…1a0b at0008 = ╱73╱s╱ // 0x1a03 @0x8
0x19fb…1a0b at0009 = ╱6b╱k╱ // 0x1a04 @0x9
0x19fb…1a0b at000a = ╱72╱r╱ // 0x1a05 @0xa
0x19fb…1a0b at000b = ╱69╱i╱ // 0x1a06 @0xb
0x19fb…1a0b at000c = ╱66╱f╱ // 0x1a07 @0xc
0x19fb…1a0b at000d = ╱74╱t╱ // 0x1a08 @0xd
0x19fb…1a0b at000e = ╱22╱"╱ // 0x1a09 @0xe
0x19fb…1a0b at000f = EOL // 0x1a0a @0xf
0x19fb…1a0b }
0x1a0b…1a18 a76f 3300 WHEN 5
0x1a0b…1a18 LineComalBin {
0x1a0b…1a18 ptr = 0xa76f // 0x1a0b @0x0
0x1a0b…1a18 lno = 0x0ce4 // 0x1a0d @0x2
0x1a0b…1a18 at0004 = ╱a301╱ WHEN ╱ // 0x1a0f @0x4
0x1a0b…1a18 at0006 = ╱35╱5╱ // 0x1a11 @0x6
0x1a0b…1a18 at0007 = ╱fe0000a003╱ // 0x1a12 @0x7
0x1a0b…1a18 at000c = EOL // 0x1a17 @0xc
0x1a0b…1a18 }
0x1a18…1a32 a789 3310 PRINT "Kreditorkontoliste"
0x1a18…1a32 LineComalBin {
0x1a18…1a32 ptr = 0xa789 // 0x1a18 @0x0
0x1a18…1a32 lno = 0x0cee // 0x1a1a @0x2
0x1a18…1a32 at0004 = ╱92╱ PRINT ╱ // 0x1a1c @0x4
0x1a18…1a32 at0005 = ╱22╱"╱ // 0x1a1d @0x5
0x1a18…1a32 at0006 = ╱4b╱K╱ // 0x1a1e @0x6
0x1a18…1a32 at0007 = ╱72╱r╱ // 0x1a1f @0x7
0x1a18…1a32 at0008 = ╱65╱e╱ // 0x1a20 @0x8
0x1a18…1a32 at0009 = ╱64╱d╱ // 0x1a21 @0x9
0x1a18…1a32 at000a = ╱69╱i╱ // 0x1a22 @0xa
0x1a18…1a32 at000b = ╱74╱t╱ // 0x1a23 @0xb
0x1a18…1a32 at000c = ╱6f╱o╱ // 0x1a24 @0xc
0x1a18…1a32 at000d = ╱72╱r╱ // 0x1a25 @0xd
0x1a18…1a32 at000e = ╱6b╱k╱ // 0x1a26 @0xe
0x1a18…1a32 at000f = ╱6f╱o╱ // 0x1a27 @0xf
0x1a18…1a32 at0010 = ╱6e╱n╱ // 0x1a28 @0x10
0x1a18…1a32 at0011 = ╱74╱t╱ // 0x1a29 @0x11
0x1a18…1a32 at0012 = ╱6f╱o╱ // 0x1a2a @0x12
0x1a18…1a32 at0013 = ╱6c╱l╱ // 0x1a2b @0x13
0x1a18…1a32 at0014 = ╱69╱i╱ // 0x1a2c @0x14
0x1a18…1a32 at0015 = ╱73╱s╱ // 0x1a2d @0x15
0x1a18…1a32 at0016 = ╱74╱t╱ // 0x1a2e @0x16
0x1a18…1a32 at0017 = ╱65╱e╱ // 0x1a2f @0x17
0x1a18…1a32 at0018 = ╱22╱"╱ // 0x1a30 @0x18
0x1a18…1a32 at0019 = EOL // 0x1a31 @0x19
0x1a18…1a32 }
0x1a32…1a38 a78f 3320 ENDCASE
0x1a32…1a38 LineComalBin {
0x1a32…1a38 ptr = 0xa78f // 0x1a32 @0x0
0x1a32…1a38 lno = 0x0cf8 // 0x1a34 @0x2
0x1a32…1a38 at0004 = ╱a4╱ ENDCASE ╱ // 0x1a36 @0x4
0x1a32…1a38 at0005 = EOL // 0x1a37 @0x5
0x1a32…1a38 }
0x1a38…1a3e a795 3330 ENDPROC
0x1a38…1a3e LineComalBin {
0x1a38…1a3e ptr = 0xa795 // 0x1a38 @0x0
0x1a38…1a3e lno = 0x0d02 // 0x1a3a @0x2
0x1a38…1a3e at0004 = ╱9f╱ ENDPROC ╱ // 0x1a3c @0x4
0x1a38…1a3e at0005 = EOL // 0x1a3d @0x5
0x1a38…1a3e }
0x1a3e…1a58 a7af 3340 K1$="P641220:SYSTEM1"
0x1a3e…1a58 LineComalBin {
0x1a3e…1a58 ptr = 0xa7af // 0x1a3e @0x0
0x1a3e…1a58 lno = 0x0d0c // 0x1a40 @0x2
0x1a3e…1a58 at0004 = ╱4b╱K╱ // 0x1a42 @0x4
0x1a3e…1a58 at0005 = ╱31╱1╱ // 0x1a43 @0x5
0x1a3e…1a58 at0006 = ╱ef╱$╱ // 0x1a44 @0x6
0x1a3e…1a58 at0007 = ╱dc╱=╱ // 0x1a45 @0x7
0x1a3e…1a58 at0008 = ╱22╱"╱ // 0x1a46 @0x8
0x1a3e…1a58 at0009 = ╱50╱P╱ // 0x1a47 @0x9
0x1a3e…1a58 at000a = ╱36╱6╱ // 0x1a48 @0xa
0x1a3e…1a58 at000b = ╱34╱4╱ // 0x1a49 @0xb
0x1a3e…1a58 at000c = ╱31╱1╱ // 0x1a4a @0xc
0x1a3e…1a58 at000d = ╱32╱2╱ // 0x1a4b @0xd
0x1a3e…1a58 at000e = ╱32╱2╱ // 0x1a4c @0xe
0x1a3e…1a58 at000f = ╱30╱0╱ // 0x1a4d @0xf
0x1a3e…1a58 at0010 = ╱3a╱:╱ // 0x1a4e @0x10
0x1a3e…1a58 at0011 = ╱53╱S╱ // 0x1a4f @0x11
0x1a3e…1a58 at0012 = ╱59╱Y╱ // 0x1a50 @0x12
0x1a3e…1a58 at0013 = ╱53╱S╱ // 0x1a51 @0x13
0x1a3e…1a58 at0014 = ╱54╱T╱ // 0x1a52 @0x14
0x1a3e…1a58 at0015 = ╱45╱E╱ // 0x1a53 @0x15
0x1a3e…1a58 at0016 = ╱4d╱M╱ // 0x1a54 @0x16
0x1a3e…1a58 at0017 = ╱31╱1╱ // 0x1a55 @0x17
0x1a3e…1a58 at0018 = ╱22╱"╱ // 0x1a56 @0x18
0x1a3e…1a58 at0019 = EOL // 0x1a57 @0x19
0x1a3e…1a58 }
0x1a58…1a63 a7ba 3350 OPEN K1$,R
0x1a58…1a63 LineComalBin {
0x1a58…1a63 ptr = 0xa7ba // 0x1a58 @0x0
0x1a58…1a63 lno = 0x0d16 // 0x1a5a @0x2
0x1a58…1a63 at0004 = ╱a7╱ OPEN ╱ // 0x1a5c @0x4
0x1a58…1a63 at0005 = ╱4b╱K╱ // 0x1a5d @0x5
0x1a58…1a63 at0006 = ╱31╱1╱ // 0x1a5e @0x6
0x1a58…1a63 at0007 = ╱ef╱$╱ // 0x1a5f @0x7
0x1a58…1a63 at0008 = ╱ec╱,╱ // 0x1a60 @0x8
0x1a58…1a63 at0009 = ╱52╱R╱ // 0x1a61 @0x9
0x1a58…1a63 at000a = EOL // 0x1a62 @0xa
0x1a58…1a63 }
0x1a63…1a76 a7cd 3360 EXEC FEJL(W,E,K1$)
0x1a63…1a76 LineComalBin {
0x1a63…1a76 ptr = 0xa7cd // 0x1a63 @0x0
0x1a63…1a76 lno = 0x0d20 // 0x1a65 @0x2
0x1a63…1a76 at0004 = ╱9d╱ EXEC ╱ // 0x1a67 @0x4
0x1a63…1a76 at0005 = ╱46╱F╱ // 0x1a68 @0x5
0x1a63…1a76 at0006 = ╱45╱E╱ // 0x1a69 @0x6
0x1a63…1a76 at0007 = ╱4a╱J╱ // 0x1a6a @0x7
0x1a63…1a76 at0008 = ╱4c╱L╱ // 0x1a6b @0x8
0x1a63…1a76 at0009 = ╱ed╱(╱ // 0x1a6c @0x9
0x1a63…1a76 at000a = ╱57╱W╱ // 0x1a6d @0xa
0x1a63…1a76 at000b = ╱ec╱,╱ // 0x1a6e @0xb
0x1a63…1a76 at000c = ╱45╱E╱ // 0x1a6f @0xc
0x1a63…1a76 at000d = ╱ec╱,╱ // 0x1a70 @0xd
0x1a63…1a76 at000e = ╱4b╱K╱ // 0x1a71 @0xe
0x1a63…1a76 at000f = ╱31╱1╱ // 0x1a72 @0xf
0x1a63…1a76 at0010 = ╱ef╱$╱ // 0x1a73 @0x10
0x1a63…1a76 at0011 = ╱ee╱)╱ // 0x1a74 @0x11
0x1a63…1a76 at0012 = EOL // 0x1a75 @0x12
0x1a63…1a76 }
0x1a76…1a99 a7f0 3370 GET K1$,E:MFANTAL,MDANTAL,MKANTAL
0x1a76…1a99 LineComalBin {
0x1a76…1a99 ptr = 0xa7f0 // 0x1a76 @0x0
0x1a76…1a99 lno = 0x0d2a // 0x1a78 @0x2
0x1a76…1a99 at0004 = ╱a9╱ GET ╱ // 0x1a7a @0x4
0x1a76…1a99 at0005 = ╱4b╱K╱ // 0x1a7b @0x5
0x1a76…1a99 at0006 = ╱31╱1╱ // 0x1a7c @0x6
0x1a76…1a99 at0007 = ╱ef╱$╱ // 0x1a7d @0x7
0x1a76…1a99 at0008 = ╱ec╱,╱ // 0x1a7e @0x8
0x1a76…1a99 at0009 = ╱45╱E╱ // 0x1a7f @0x9
0x1a76…1a99 at000a = ╱f0╱:╱ // 0x1a80 @0xa
0x1a76…1a99 at000b = ╱4d╱M╱ // 0x1a81 @0xb
0x1a76…1a99 at000c = ╱46╱F╱ // 0x1a82 @0xc
0x1a76…1a99 at000d = ╱41╱A╱ // 0x1a83 @0xd
0x1a76…1a99 at000e = ╱4e╱N╱ // 0x1a84 @0xe
0x1a76…1a99 at000f = ╱54╱T╱ // 0x1a85 @0xf
0x1a76…1a99 at0010 = ╱41╱A╱ // 0x1a86 @0x10
0x1a76…1a99 at0011 = ╱4c╱L╱ // 0x1a87 @0x11
0x1a76…1a99 at0012 = ╱ec╱,╱ // 0x1a88 @0x12
0x1a76…1a99 at0013 = ╱4d╱M╱ // 0x1a89 @0x13
0x1a76…1a99 at0014 = ╱44╱D╱ // 0x1a8a @0x14
0x1a76…1a99 at0015 = ╱41╱A╱ // 0x1a8b @0x15
0x1a76…1a99 at0016 = ╱4e╱N╱ // 0x1a8c @0x16
0x1a76…1a99 at0017 = ╱54╱T╱ // 0x1a8d @0x17
0x1a76…1a99 at0018 = ╱41╱A╱ // 0x1a8e @0x18
0x1a76…1a99 at0019 = ╱4c╱L╱ // 0x1a8f @0x19
0x1a76…1a99 at001a = ╱ec╱,╱ // 0x1a90 @0x1a
0x1a76…1a99 at001b = ╱4d╱M╱ // 0x1a91 @0x1b
0x1a76…1a99 at001c = ╱4b╱K╱ // 0x1a92 @0x1c
0x1a76…1a99 at001d = ╱41╱A╱ // 0x1a93 @0x1d
0x1a76…1a99 at001e = ╱4e╱N╱ // 0x1a94 @0x1e
0x1a76…1a99 at001f = ╱54╱T╱ // 0x1a95 @0x1f
0x1a76…1a99 at0020 = ╱41╱A╱ // 0x1a96 @0x20
0x1a76…1a99 at0021 = ╱4c╱L╱ // 0x1a97 @0x21
0x1a76…1a99 at0022 = EOL // 0x1a98 @0x22
0x1a76…1a99 }
0x1a99…1aac a803 3380 EXEC FEJL(W,G,K1$)
0x1a99…1aac LineComalBin {
0x1a99…1aac ptr = 0xa803 // 0x1a99 @0x0
0x1a99…1aac lno = 0x0d34 // 0x1a9b @0x2
0x1a99…1aac at0004 = ╱9d╱ EXEC ╱ // 0x1a9d @0x4
0x1a99…1aac at0005 = ╱46╱F╱ // 0x1a9e @0x5
0x1a99…1aac at0006 = ╱45╱E╱ // 0x1a9f @0x6
0x1a99…1aac at0007 = ╱4a╱J╱ // 0x1aa0 @0x7
0x1a99…1aac at0008 = ╱4c╱L╱ // 0x1aa1 @0x8
0x1a99…1aac at0009 = ╱ed╱(╱ // 0x1aa2 @0x9
0x1a99…1aac at000a = ╱57╱W╱ // 0x1aa3 @0xa
0x1a99…1aac at000b = ╱ec╱,╱ // 0x1aa4 @0xb
0x1a99…1aac at000c = ╱47╱G╱ // 0x1aa5 @0xc
0x1a99…1aac at000d = ╱ec╱,╱ // 0x1aa6 @0xd
0x1a99…1aac at000e = ╱4b╱K╱ // 0x1aa7 @0xe
0x1a99…1aac at000f = ╱31╱1╱ // 0x1aa8 @0xf
0x1a99…1aac at0010 = ╱ef╱$╱ // 0x1aa9 @0x10
0x1a99…1aac at0011 = ╱ee╱)╱ // 0x1aaa @0x11
0x1a99…1aac at0012 = EOL // 0x1aab @0x12
0x1a99…1aac }
0x1aac…1ac2 a819 3390 GET K1$,5:MKRGR
0x1aac…1ac2 LineComalBin {
0x1aac…1ac2 ptr = 0xa819 // 0x1aac @0x0
0x1aac…1ac2 lno = 0x0d3e // 0x1aae @0x2
0x1aac…1ac2 at0004 = ╱a9╱ GET ╱ // 0x1ab0 @0x4
0x1aac…1ac2 at0005 = ╱4b╱K╱ // 0x1ab1 @0x5
0x1aac…1ac2 at0006 = ╱31╱1╱ // 0x1ab2 @0x6
0x1aac…1ac2 at0007 = ╱ef╱$╱ // 0x1ab3 @0x7
0x1aac…1ac2 at0008 = ╱ec╱,╱ // 0x1ab4 @0x8
0x1aac…1ac2 at0009 = ╱35╱5╱ // 0x1ab5 @0x9
0x1aac…1ac2 at000a = ╱fe0000a003╱ // 0x1ab6 @0xa
0x1aac…1ac2 at000f = ╱f0╱:╱ // 0x1abb @0xf
0x1aac…1ac2 at0010 = ╱4d╱M╱ // 0x1abc @0x10
0x1aac…1ac2 at0011 = ╱4b╱K╱ // 0x1abd @0x11
0x1aac…1ac2 at0012 = ╱52╱R╱ // 0x1abe @0x12
0x1aac…1ac2 at0013 = ╱47╱G╱ // 0x1abf @0x13
0x1aac…1ac2 at0014 = ╱52╱R╱ // 0x1ac0 @0x14
0x1aac…1ac2 at0015 = EOL // 0x1ac1 @0x15
0x1aac…1ac2 }
0x1ac2…1ad5 a82c 3400 EXEC FEJL(W,V,K1$)
0x1ac2…1ad5 LineComalBin {
0x1ac2…1ad5 ptr = 0xa82c // 0x1ac2 @0x0
0x1ac2…1ad5 lno = 0x0d48 // 0x1ac4 @0x2
0x1ac2…1ad5 at0004 = ╱9d╱ EXEC ╱ // 0x1ac6 @0x4
0x1ac2…1ad5 at0005 = ╱46╱F╱ // 0x1ac7 @0x5
0x1ac2…1ad5 at0006 = ╱45╱E╱ // 0x1ac8 @0x6
0x1ac2…1ad5 at0007 = ╱4a╱J╱ // 0x1ac9 @0x7
0x1ac2…1ad5 at0008 = ╱4c╱L╱ // 0x1aca @0x8
0x1ac2…1ad5 at0009 = ╱ed╱(╱ // 0x1acb @0x9
0x1ac2…1ad5 at000a = ╱57╱W╱ // 0x1acc @0xa
0x1ac2…1ad5 at000b = ╱ec╱,╱ // 0x1acd @0xb
0x1ac2…1ad5 at000c = ╱56╱V╱ // 0x1ace @0xc
0x1ac2…1ad5 at000d = ╱ec╱,╱ // 0x1acf @0xd
0x1ac2…1ad5 at000e = ╱4b╱K╱ // 0x1ad0 @0xe
0x1ac2…1ad5 at000f = ╱31╱1╱ // 0x1ad1 @0xf
0x1ac2…1ad5 at0010 = ╱ef╱$╱ // 0x1ad2 @0x10
0x1ac2…1ad5 at0011 = ╱ee╱)╱ // 0x1ad3 @0x11
0x1ac2…1ad5 at0012 = EOL // 0x1ad4 @0x12
0x1ac2…1ad5 }
0x1ad5…1ae6 a83d 3410 GET K1$,W:KRTAL
0x1ad5…1ae6 LineComalBin {
0x1ad5…1ae6 ptr = 0xa83d // 0x1ad5 @0x0
0x1ad5…1ae6 lno = 0x0d52 // 0x1ad7 @0x2
0x1ad5…1ae6 at0004 = ╱a9╱ GET ╱ // 0x1ad9 @0x4
0x1ad5…1ae6 at0005 = ╱4b╱K╱ // 0x1ada @0x5
0x1ad5…1ae6 at0006 = ╱31╱1╱ // 0x1adb @0x6
0x1ad5…1ae6 at0007 = ╱ef╱$╱ // 0x1adc @0x7
0x1ad5…1ae6 at0008 = ╱ec╱,╱ // 0x1add @0x8
0x1ad5…1ae6 at0009 = ╱57╱W╱ // 0x1ade @0x9
0x1ad5…1ae6 at000a = ╱f0╱:╱ // 0x1adf @0xa
0x1ad5…1ae6 at000b = ╱4b╱K╱ // 0x1ae0 @0xb
0x1ad5…1ae6 at000c = ╱52╱R╱ // 0x1ae1 @0xc
0x1ad5…1ae6 at000d = ╱54╱T╱ // 0x1ae2 @0xd
0x1ad5…1ae6 at000e = ╱41╱A╱ // 0x1ae3 @0xe
0x1ad5…1ae6 at000f = ╱4c╱L╱ // 0x1ae4 @0xf
0x1ad5…1ae6 at0010 = EOL // 0x1ae5 @0x10
0x1ad5…1ae6 }
0x1ae6…1afe a855 3420 EXEC FEJL(W,4,K1$)
0x1ae6…1afe LineComalBin {
0x1ae6…1afe ptr = 0xa855 // 0x1ae6 @0x0
0x1ae6…1afe lno = 0x0d5c // 0x1ae8 @0x2
0x1ae6…1afe at0004 = ╱9d╱ EXEC ╱ // 0x1aea @0x4
0x1ae6…1afe at0005 = ╱46╱F╱ // 0x1aeb @0x5
0x1ae6…1afe at0006 = ╱45╱E╱ // 0x1aec @0x6
0x1ae6…1afe at0007 = ╱4a╱J╱ // 0x1aed @0x7
0x1ae6…1afe at0008 = ╱4c╱L╱ // 0x1aee @0x8
0x1ae6…1afe at0009 = ╱ed╱(╱ // 0x1aef @0x9
0x1ae6…1afe at000a = ╱57╱W╱ // 0x1af0 @0xa
0x1ae6…1afe at000b = ╱ec╱,╱ // 0x1af1 @0xb
0x1ae6…1afe at000c = ╱34╱4╱ // 0x1af2 @0xc
0x1ae6…1afe at000d = ╱fe00008003╱ // 0x1af3 @0xd
0x1ae6…1afe at0012 = ╱ec╱,╱ // 0x1af8 @0x12
0x1ae6…1afe at0013 = ╱4b╱K╱ // 0x1af9 @0x13
0x1ae6…1afe at0014 = ╱31╱1╱ // 0x1afa @0x14
0x1ae6…1afe at0015 = ╱ef╱$╱ // 0x1afb @0x15
0x1ae6…1afe at0016 = ╱ee╱)╱ // 0x1afc @0x16
0x1ae6…1afe at0017 = EOL // 0x1afd @0x17
0x1ae6…1afe }
0x1afe…1b12 a869 3430 GET K1$,10:N$
0x1afe…1b12 LineComalBin {
0x1afe…1b12 ptr = 0xa869 // 0x1afe @0x0
0x1afe…1b12 lno = 0x0d66 // 0x1b00 @0x2
0x1afe…1b12 at0004 = ╱a9╱ GET ╱ // 0x1b02 @0x4
0x1afe…1b12 at0005 = ╱4b╱K╱ // 0x1b03 @0x5
0x1afe…1b12 at0006 = ╱31╱1╱ // 0x1b04 @0x6
0x1afe…1b12 at0007 = ╱ef╱$╱ // 0x1b05 @0x7
0x1afe…1b12 at0008 = ╱ec╱,╱ // 0x1b06 @0x8
0x1afe…1b12 at0009 = ╱31╱1╱ // 0x1b07 @0x9
0x1afe…1b12 at000a = ╱30╱0╱ // 0x1b08 @0xa
0x1afe…1b12 at000b = ╱fe0000a004╱ // 0x1b09 @0xb
0x1afe…1b12 at0010 = ╱f0╱:╱ // 0x1b0e @0x10
0x1afe…1b12 at0011 = ╱4e╱N╱ // 0x1b0f @0x11
0x1afe…1b12 at0012 = ╱ef╱$╱ // 0x1b10 @0x12
0x1afe…1b12 at0013 = EOL // 0x1b11 @0x13
0x1afe…1b12 }
0x1b12…1b2a (90,) a881 3440 EXEC FEJL(W,5,K1$)
0x1b12…1b2a LineComalBin {
0x1b12…1b2a ptr = 0xa881 // 0x1b12 @0x0
0x1b12…1b2a lno = 0x0d70 // 0x1b14 @0x2
0x1b12…1b2a at0004 = ╱9d╱ EXEC ╱ // 0x1b16 @0x4
0x1b12…1b2a at0005 = ╱46╱F╱ // 0x1b17 @0x5
0x1b12…1b2a at0006 = ╱45╱E╱ // 0x1b18 @0x6
0x1b12…1b2a at0007 = ╱4a╱J╱ // 0x1b19 @0x7
0x1b12…1b2a at0008 = ╱4c╱L╱ // 0x1b1a @0x8
0x1b12…1b2a at0009 = ╱ed╱(╱ // 0x1b1b @0x9
0x1b12…1b2a at000a = ╱57╱W╱ // 0x1b1c @0xa
0x1b12…1b2a at000b = ╱ec╱,╱ // 0x1b1d @0xb
0x1b12…1b2a at000c = ╱35╱5╱ // 0x1b1e @0xc
0x1b12…1b2a at000d = ╱fe0000a003╱ // 0x1b1f @0xd
0x1b12…1b2a at0012 = ╱ec╱,╱ // 0x1b24 @0x12
0x1b12…1b2a at0013 = ╱4b╱K╱ // 0x1b25 @0x13
0x1b12…1b2a at0014 = ╱31╱1╱ // 0x1b26 @0x14
0x1b12…1b2a at0015 = ╱ef╱$╱ // 0x1b27 @0x15
0x1b12…1b2a at0016 = ╱ee╱)╱ // 0x1b28 @0x16
0x1b12…1b2a at0017 = EOL // 0x1b29 @0x17
0x1b12…1b2a }
0x1b2a…1b3f a896 3450 GET K1$,13:K2$
0x1b2a…1b3f LineComalBin {
0x1b2a…1b3f ptr = 0xa896 // 0x1b2a @0x0
0x1b2a…1b3f lno = 0x0d7a // 0x1b2c @0x2
0x1b2a…1b3f at0004 = ╱a9╱ GET ╱ // 0x1b2e @0x4
0x1b2a…1b3f at0005 = ╱4b╱K╱ // 0x1b2f @0x5
0x1b2a…1b3f at0006 = ╱31╱1╱ // 0x1b30 @0x6
0x1b2a…1b3f at0007 = ╱ef╱$╱ // 0x1b31 @0x7
0x1b2a…1b3f at0008 = ╱ec╱,╱ // 0x1b32 @0x8
0x1b2a…1b3f at0009 = ╱31╱1╱ // 0x1b33 @0x9
0x1b2a…1b3f at000a = ╱33╱3╱ // 0x1b34 @0xa
0x1b2a…1b3f at000b = ╱fe0000d004╱ // 0x1b35 @0xb
0x1b2a…1b3f at0010 = ╱f0╱:╱ // 0x1b3a @0x10
0x1b2a…1b3f at0011 = ╱4b╱K╱ // 0x1b3b @0x11
0x1b2a…1b3f at0012 = ╱32╱2╱ // 0x1b3c @0x12
0x1b2a…1b3f at0013 = ╱ef╱$╱ // 0x1b3d @0x13
0x1b2a…1b3f at0014 = EOL // 0x1b3e @0x14
0x1b2a…1b3f }
0x1b3f…1b57 a8ae 3460 EXEC FEJL(W,6,K1$)
0x1b3f…1b57 LineComalBin {
0x1b3f…1b57 ptr = 0xa8ae // 0x1b3f @0x0
0x1b3f…1b57 lno = 0x0d84 // 0x1b41 @0x2
0x1b3f…1b57 at0004 = ╱9d╱ EXEC ╱ // 0x1b43 @0x4
0x1b3f…1b57 at0005 = ╱46╱F╱ // 0x1b44 @0x5
0x1b3f…1b57 at0006 = ╱45╱E╱ // 0x1b45 @0x6
0x1b3f…1b57 at0007 = ╱4a╱J╱ // 0x1b46 @0x7
0x1b3f…1b57 at0008 = ╱4c╱L╱ // 0x1b47 @0x8
0x1b3f…1b57 at0009 = ╱ed╱(╱ // 0x1b48 @0x9
0x1b3f…1b57 at000a = ╱57╱W╱ // 0x1b49 @0xa
0x1b3f…1b57 at000b = ╱ec╱,╱ // 0x1b4a @0xb
0x1b3f…1b57 at000c = ╱36╱6╱ // 0x1b4b @0xc
0x1b3f…1b57 at000d = ╱fe0000c003╱ // 0x1b4c @0xd
0x1b3f…1b57 at0012 = ╱ec╱,╱ // 0x1b51 @0x12
0x1b3f…1b57 at0013 = ╱4b╱K╱ // 0x1b52 @0x13
0x1b3f…1b57 at0014 = ╱31╱1╱ // 0x1b53 @0x14
0x1b3f…1b57 at0015 = ╱ef╱$╱ // 0x1b54 @0x15
0x1b3f…1b57 at0016 = ╱ee╱)╱ // 0x1b55 @0x16
0x1b3f…1b57 at0017 = EOL // 0x1b56 @0x17
0x1b3f…1b57 }
0x1b57…1b6c a8c3 3470 GET K1$,17:K3$
0x1b57…1b6c LineComalBin {
0x1b57…1b6c ptr = 0xa8c3 // 0x1b57 @0x0
0x1b57…1b6c lno = 0x0d8e // 0x1b59 @0x2
0x1b57…1b6c at0004 = ╱a9╱ GET ╱ // 0x1b5b @0x4
0x1b57…1b6c at0005 = ╱4b╱K╱ // 0x1b5c @0x5
0x1b57…1b6c at0006 = ╱31╱1╱ // 0x1b5d @0x6
0x1b57…1b6c at0007 = ╱ef╱$╱ // 0x1b5e @0x7
0x1b57…1b6c at0008 = ╱ec╱,╱ // 0x1b5f @0x8
0x1b57…1b6c at0009 = ╱31╱1╱ // 0x1b60 @0x9
0x1b57…1b6c at000a = ╱37╱7╱ // 0x1b61 @0xa
0x1b57…1b6c at000b = ╱fe00008805╱ // 0x1b62 @0xb
0x1b57…1b6c at0010 = ╱f0╱:╱ // 0x1b67 @0x10
0x1b57…1b6c at0011 = ╱4b╱K╱ // 0x1b68 @0x11
0x1b57…1b6c at0012 = ╱33╱3╱ // 0x1b69 @0x12
0x1b57…1b6c at0013 = ╱ef╱$╱ // 0x1b6a @0x13
0x1b57…1b6c at0014 = EOL // 0x1b6b @0x14
0x1b57…1b6c }
0x1b6c…1b84 a8db 3480 EXEC FEJL(W,7,K1$)
0x1b6c…1b84 LineComalBin {
0x1b6c…1b84 ptr = 0xa8db // 0x1b6c @0x0
0x1b6c…1b84 lno = 0x0d98 // 0x1b6e @0x2
0x1b6c…1b84 at0004 = ╱9d╱ EXEC ╱ // 0x1b70 @0x4
0x1b6c…1b84 at0005 = ╱46╱F╱ // 0x1b71 @0x5
0x1b6c…1b84 at0006 = ╱45╱E╱ // 0x1b72 @0x6
0x1b6c…1b84 at0007 = ╱4a╱J╱ // 0x1b73 @0x7
0x1b6c…1b84 at0008 = ╱4c╱L╱ // 0x1b74 @0x8
0x1b6c…1b84 at0009 = ╱ed╱(╱ // 0x1b75 @0x9
0x1b6c…1b84 at000a = ╱57╱W╱ // 0x1b76 @0xa
0x1b6c…1b84 at000b = ╱ec╱,╱ // 0x1b77 @0xb
0x1b6c…1b84 at000c = ╱37╱7╱ // 0x1b78 @0xc
0x1b6c…1b84 at000d = ╱fe0000e003╱ // 0x1b79 @0xd
0x1b6c…1b84 at0012 = ╱ec╱,╱ // 0x1b7e @0x12
0x1b6c…1b84 at0013 = ╱4b╱K╱ // 0x1b7f @0x13
0x1b6c…1b84 at0014 = ╱31╱1╱ // 0x1b80 @0x14
0x1b6c…1b84 at0015 = ╱ef╱$╱ // 0x1b81 @0x15
0x1b6c…1b84 at0016 = ╱ee╱)╱ // 0x1b82 @0x16
0x1b6c…1b84 at0017 = EOL // 0x1b83 @0x17
0x1b6c…1b84 }
0x1b84…1b99 a8f0 3490 GET K1$,36:K5$
0x1b84…1b99 LineComalBin {
0x1b84…1b99 ptr = 0xa8f0 // 0x1b84 @0x0
0x1b84…1b99 lno = 0x0da2 // 0x1b86 @0x2
0x1b84…1b99 at0004 = ╱a9╱ GET ╱ // 0x1b88 @0x4
0x1b84…1b99 at0005 = ╱4b╱K╱ // 0x1b89 @0x5
0x1b84…1b99 at0006 = ╱31╱1╱ // 0x1b8a @0x6
0x1b84…1b99 at0007 = ╱ef╱$╱ // 0x1b8b @0x7
0x1b84…1b99 at0008 = ╱ec╱,╱ // 0x1b8c @0x8
0x1b84…1b99 at0009 = ╱33╱3╱ // 0x1b8d @0x9
0x1b84…1b99 at000a = ╱36╱6╱ // 0x1b8e @0xa
0x1b84…1b99 at000b = ╱fe00009006╱ // 0x1b8f @0xb
0x1b84…1b99 at0010 = ╱f0╱:╱ // 0x1b94 @0x10
0x1b84…1b99 at0011 = ╱4b╱K╱ // 0x1b95 @0x11
0x1b84…1b99 at0012 = ╱35╱5╱ // 0x1b96 @0x12
0x1b84…1b99 at0013 = ╱ef╱$╱ // 0x1b97 @0x13
0x1b84…1b99 at0014 = EOL // 0x1b98 @0x14
0x1b84…1b99 }
0x1b99…1bac a903 3500 EXEC FEJL(W,W,K1$)
0x1b99…1bac LineComalBin {
0x1b99…1bac ptr = 0xa903 // 0x1b99 @0x0
0x1b99…1bac lno = 0x0dac // 0x1b9b @0x2
0x1b99…1bac at0004 = ╱9d╱ EXEC ╱ // 0x1b9d @0x4
0x1b99…1bac at0005 = ╱46╱F╱ // 0x1b9e @0x5
0x1b99…1bac at0006 = ╱45╱E╱ // 0x1b9f @0x6
0x1b99…1bac at0007 = ╱4a╱J╱ // 0x1ba0 @0x7
0x1b99…1bac at0008 = ╱4c╱L╱ // 0x1ba1 @0x8
0x1b99…1bac at0009 = ╱ed╱(╱ // 0x1ba2 @0x9
0x1b99…1bac at000a = ╱57╱W╱ // 0x1ba3 @0xa
0x1b99…1bac at000b = ╱ec╱,╱ // 0x1ba4 @0xb
0x1b99…1bac at000c = ╱57╱W╱ // 0x1ba5 @0xc
0x1b99…1bac at000d = ╱ec╱,╱ // 0x1ba6 @0xd
0x1b99…1bac at000e = ╱4b╱K╱ // 0x1ba7 @0xe
0x1b99…1bac at000f = ╱31╱1╱ // 0x1ba8 @0xf
0x1b99…1bac at0010 = ╱ef╱$╱ // 0x1ba9 @0x10
0x1b99…1bac at0011 = ╱ee╱)╱ // 0x1baa @0x11
0x1b99…1bac at0012 = EOL // 0x1bab @0x12
0x1b99…1bac }
0x1bac…1bb5 (92,) a90c 3510 CLOSE K1$
0x1bac…1bb5 LineComalBin {
0x1bac…1bb5 ptr = 0xa90c // 0x1bac @0x0
0x1bac…1bb5 lno = 0x0db6 // 0x1bae @0x2
0x1bac…1bb5 at0004 = ╱a8╱ CLOSE ╱ // 0x1bb0 @0x4
0x1bac…1bb5 at0005 = ╱4b╱K╱ // 0x1bb1 @0x5
0x1bac…1bb5 at0006 = ╱31╱1╱ // 0x1bb2 @0x6
0x1bac…1bb5 at0007 = ╱ef╱$╱ // 0x1bb3 @0x7
0x1bac…1bb5 at0008 = EOL // 0x1bb4 @0x8
0x1bac…1bb5 }
0x1bb5…1bce a925 3520 EXEC FEJL(W,10,K1$)
0x1bb5…1bce LineComalBin {
0x1bb5…1bce ptr = 0xa925 // 0x1bb5 @0x0
0x1bb5…1bce lno = 0x0dc0 // 0x1bb7 @0x2
0x1bb5…1bce at0004 = ╱9d╱ EXEC ╱ // 0x1bb9 @0x4
0x1bb5…1bce at0005 = ╱46╱F╱ // 0x1bba @0x5
0x1bb5…1bce at0006 = ╱45╱E╱ // 0x1bbb @0x6
0x1bb5…1bce at0007 = ╱4a╱J╱ // 0x1bbc @0x7
0x1bb5…1bce at0008 = ╱4c╱L╱ // 0x1bbd @0x8
0x1bb5…1bce at0009 = ╱ed╱(╱ // 0x1bbe @0x9
0x1bb5…1bce at000a = ╱57╱W╱ // 0x1bbf @0xa
0x1bb5…1bce at000b = ╱ec╱,╱ // 0x1bc0 @0xb
0x1bb5…1bce at000c = ╱31╱1╱ // 0x1bc1 @0xc
0x1bb5…1bce at000d = ╱30╱0╱ // 0x1bc2 @0xd
0x1bb5…1bce at000e = ╱fe0000a004╱ // 0x1bc3 @0xe
0x1bb5…1bce at0013 = ╱ec╱,╱ // 0x1bc8 @0x13
0x1bb5…1bce at0014 = ╱4b╱K╱ // 0x1bc9 @0x14
0x1bb5…1bce at0015 = ╱31╱1╱ // 0x1bca @0x15
0x1bb5…1bce at0016 = ╱ef╱$╱ // 0x1bcb @0x16
0x1bb5…1bce at0017 = ╱ee╱)╱ // 0x1bcc @0x17
0x1bb5…1bce at0018 = EOL // 0x1bcd @0x18
0x1bb5…1bce }
0x1bce…1be3 a93a 3530 DIM KTAB(MKANTAL,G)
0x1bce…1be3 LineComalBin {
0x1bce…1be3 ptr = 0xa93a // 0x1bce @0x0
0x1bce…1be3 lno = 0x0dca // 0x1bd0 @0x2
0x1bce…1be3 at0004 = ╱87╱ DIM ╱ // 0x1bd2 @0x4
0x1bce…1be3 at0005 = ╱4b╱K╱ // 0x1bd3 @0x5
0x1bce…1be3 at0006 = ╱54╱T╱ // 0x1bd4 @0x6
0x1bce…1be3 at0007 = ╱41╱A╱ // 0x1bd5 @0x7
0x1bce…1be3 at0008 = ╱42╱B╱ // 0x1bd6 @0x8
0x1bce…1be3 at0009 = ╱ed╱(╱ // 0x1bd7 @0x9
0x1bce…1be3 at000a = ╱4d╱M╱ // 0x1bd8 @0xa
0x1bce…1be3 at000b = ╱4b╱K╱ // 0x1bd9 @0xb
0x1bce…1be3 at000c = ╱41╱A╱ // 0x1bda @0xc
0x1bce…1be3 at000d = ╱4e╱N╱ // 0x1bdb @0xd
0x1bce…1be3 at000e = ╱54╱T╱ // 0x1bdc @0xe
0x1bce…1be3 at000f = ╱41╱A╱ // 0x1bdd @0xf
0x1bce…1be3 at0010 = ╱4c╱L╱ // 0x1bde @0x10
0x1bce…1be3 at0011 = ╱ec╱,╱ // 0x1bdf @0x11
0x1bce…1be3 at0012 = ╱47╱G╱ // 0x1be0 @0x12
0x1bce…1be3 at0013 = ╱ee╱)╱ // 0x1be1 @0x13
0x1bce…1be3 at0014 = EOL // 0x1be2 @0x14
0x1bce…1be3 }
0x1be3…1bf2 a949 3540 K5$=N$+K5$
0x1be3…1bf2 LineComalBin {
0x1be3…1bf2 ptr = 0xa949 // 0x1be3 @0x0
0x1be3…1bf2 lno = 0x0dd4 // 0x1be5 @0x2
0x1be3…1bf2 at0004 = ╱4b╱K╱ // 0x1be7 @0x4
0x1be3…1bf2 at0005 = ╱35╱5╱ // 0x1be8 @0x5
0x1be3…1bf2 at0006 = ╱ef╱$╱ // 0x1be9 @0x6
0x1be3…1bf2 at0007 = ╱dc╱=╱ // 0x1bea @0x7
0x1be3…1bf2 at0008 = ╱4e╱N╱ // 0x1beb @0x8
0x1be3…1bf2 at0009 = ╱ef╱$╱ // 0x1bec @0x9
0x1be3…1bf2 at000a = ╱f1╱+╱ // 0x1bed @0xa
0x1be3…1bf2 at000b = ╱4b╱K╱ // 0x1bee @0xb
0x1be3…1bf2 at000c = ╱35╱5╱ // 0x1bef @0xc
0x1be3…1bf2 at000d = ╱ef╱$╱ // 0x1bf0 @0xd
0x1be3…1bf2 at000e = EOL // 0x1bf1 @0xe
0x1be3…1bf2 }
0x1bf2…1bfd a954 3550 OPEN K5$,W
0x1bf2…1bfd LineComalBin {
0x1bf2…1bfd ptr = 0xa954 // 0x1bf2 @0x0
0x1bf2…1bfd lno = 0x0dde // 0x1bf4 @0x2
0x1bf2…1bfd at0004 = ╱a7╱ OPEN ╱ // 0x1bf6 @0x4
0x1bf2…1bfd at0005 = ╱4b╱K╱ // 0x1bf7 @0x5
0x1bf2…1bfd at0006 = ╱35╱5╱ // 0x1bf8 @0x6
0x1bf2…1bfd at0007 = ╱ef╱$╱ // 0x1bf9 @0x7
0x1bf2…1bfd at0008 = ╱ec╱,╱ // 0x1bfa @0x8
0x1bf2…1bfd at0009 = ╱57╱W╱ // 0x1bfb @0x9
0x1bf2…1bfd at000a = EOL // 0x1bfc @0xa
0x1bf2…1bfd }
0x1bfd…1c16 a96d 3560 EXEC FEJL(W,11,K5$)
0x1bfd…1c16 LineComalBin {
0x1bfd…1c16 ptr = 0xa96d // 0x1bfd @0x0
0x1bfd…1c16 lno = 0x0de8 // 0x1bff @0x2
0x1bfd…1c16 at0004 = ╱9d╱ EXEC ╱ // 0x1c01 @0x4
0x1bfd…1c16 at0005 = ╱46╱F╱ // 0x1c02 @0x5
0x1bfd…1c16 at0006 = ╱45╱E╱ // 0x1c03 @0x6
0x1bfd…1c16 at0007 = ╱4a╱J╱ // 0x1c04 @0x7
0x1bfd…1c16 at0008 = ╱4c╱L╱ // 0x1c05 @0x8
0x1bfd…1c16 at0009 = ╱ed╱(╱ // 0x1c06 @0x9
0x1bfd…1c16 at000a = ╱57╱W╱ // 0x1c07 @0xa
0x1bfd…1c16 at000b = ╱ec╱,╱ // 0x1c08 @0xb
0x1bfd…1c16 at000c = ╱31╱1╱ // 0x1c09 @0xc
0x1bfd…1c16 at000d = ╱31╱1╱ // 0x1c0a @0xd
0x1bfd…1c16 at000e = ╱fe0000b004╱ // 0x1c0b @0xe
0x1bfd…1c16 at0013 = ╱ec╱,╱ // 0x1c10 @0x13
0x1bfd…1c16 at0014 = ╱4b╱K╱ // 0x1c11 @0x14
0x1bfd…1c16 at0015 = ╱35╱5╱ // 0x1c12 @0x15
0x1bfd…1c16 at0016 = ╱ef╱$╱ // 0x1c13 @0x16
0x1bfd…1c16 at0017 = ╱ee╱)╱ // 0x1c14 @0x17
0x1bfd…1c16 at0018 = EOL // 0x1c15 @0x18
0x1bfd…1c16 }
0x1c16…1c59 a9b0 3570 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO
0x1c16…1c59 LineComalBin {
0x1c16…1c59 ptr = 0xa9b0 // 0x1c16 @0x0
0x1c16…1c59 lno = 0x0df2 // 0x1c18 @0x2
0x1c16…1c59 at0004 = ╱a9╱ GET ╱ // 0x1c1a @0x4
0x1c16…1c59 at0005 = ╱4b╱K╱ // 0x1c1b @0x5
0x1c16…1c59 at0006 = ╱35╱5╱ // 0x1c1c @0x6
0x1c16…1c59 at0007 = ╱ef╱$╱ // 0x1c1d @0x7
0x1c16…1c59 at0008 = ╱ec╱,╱ // 0x1c1e @0x8
0x1c16…1c59 at0009 = ╱47╱G╱ // 0x1c1f @0x9
0x1c16…1c59 at000a = ╱f0╱:╱ // 0x1c20 @0xa
0x1c16…1c59 at000b = ╱54╱T╱ // 0x1c21 @0xb
0x1c16…1c59 at000c = ╱31╱1╱ // 0x1c22 @0xc
0x1c16…1c59 at000d = ╱ed╱(╱ // 0x1c23 @0xd
0x1c16…1c59 at000e = ╱45╱E╱ // 0x1c24 @0xe
0x1c16…1c59 at000f = ╱ee╱)╱ // 0x1c25 @0xf
0x1c16…1c59 at0010 = ╱ec╱,╱ // 0x1c26 @0x10
0x1c16…1c59 at0011 = ╱54╱T╱ // 0x1c27 @0x11
0x1c16…1c59 at0012 = ╱31╱1╱ // 0x1c28 @0x12
0x1c16…1c59 at0013 = ╱ed╱(╱ // 0x1c29 @0x13
0x1c16…1c59 at0014 = ╱47╱G╱ // 0x1c2a @0x14
0x1c16…1c59 at0015 = ╱ee╱)╱ // 0x1c2b @0x15
0x1c16…1c59 at0016 = ╱ec╱,╱ // 0x1c2c @0x16
0x1c16…1c59 at0017 = ╱54╱T╱ // 0x1c2d @0x17
0x1c16…1c59 at0018 = ╱31╱1╱ // 0x1c2e @0x18
0x1c16…1c59 at0019 = ╱ed╱(╱ // 0x1c2f @0x19
0x1c16…1c59 at001a = ╱56╱V╱ // 0x1c30 @0x1a
0x1c16…1c59 at001b = ╱ee╱)╱ // 0x1c31 @0x1b
0x1c16…1c59 at001c = ╱ec╱,╱ // 0x1c32 @0x1c
0x1c16…1c59 at001d = ╱54╱T╱ // 0x1c33 @0x1d
0x1c16…1c59 at001e = ╱31╱1╱ // 0x1c34 @0x1e
0x1c16…1c59 at001f = ╱ed╱(╱ // 0x1c35 @0x1f
0x1c16…1c59 at0020 = ╱34╱4╱ // 0x1c36 @0x20
0x1c16…1c59 at0021 = ╱fe00008003╱ // 0x1c37 @0x21
0x1c16…1c59 at0026 = ╱ee╱)╱ // 0x1c3c @0x26
0x1c16…1c59 at0027 = ╱ec╱,╱ // 0x1c3d @0x27
0x1c16…1c59 at0028 = ╱54╱T╱ // 0x1c3e @0x28
0x1c16…1c59 at0029 = ╱31╱1╱ // 0x1c3f @0x29
0x1c16…1c59 at002a = ╱ed╱(╱ // 0x1c40 @0x2a
0x1c16…1c59 at002b = ╱35╱5╱ // 0x1c41 @0x2b
0x1c16…1c59 at002c = ╱fe0000a003╱ // 0x1c42 @0x2c
0x1c16…1c59 at0031 = ╱ee╱)╱ // 0x1c47 @0x31
0x1c16…1c59 at0032 = ╱ec╱,╱ // 0x1c48 @0x32
0x1c16…1c59 at0033 = ╱54╱T╱ // 0x1c49 @0x33
0x1c16…1c59 at0034 = ╱31╱1╱ // 0x1c4a @0x34
0x1c16…1c59 at0035 = ╱ed╱(╱ // 0x1c4b @0x35
0x1c16…1c59 at0036 = ╱36╱6╱ // 0x1c4c @0x36
0x1c16…1c59 at0037 = ╱fe0000c003╱ // 0x1c4d @0x37
0x1c16…1c59 at003c = ╱ee╱)╱ // 0x1c52 @0x3c
0x1c16…1c59 at003d = ╱ec╱,╱ // 0x1c53 @0x3d
0x1c16…1c59 at003e = ╱44╱D╱ // 0x1c54 @0x3e
0x1c16…1c59 at003f = ╱41╱A╱ // 0x1c55 @0x3f
0x1c16…1c59 at0040 = ╱54╱T╱ // 0x1c56 @0x40
0x1c16…1c59 at0041 = ╱4f╱O╱ // 0x1c57 @0x41
0x1c16…1c59 at0042 = EOL // 0x1c58 @0x42
0x1c16…1c59 }
0x1c59…1c72 a9c9 3580 EXEC FEJL(W,12,K5$)
0x1c59…1c72 LineComalBin {
0x1c59…1c72 ptr = 0xa9c9 // 0x1c59 @0x0
0x1c59…1c72 lno = 0x0dfc // 0x1c5b @0x2
0x1c59…1c72 at0004 = ╱9d╱ EXEC ╱ // 0x1c5d @0x4
0x1c59…1c72 at0005 = ╱46╱F╱ // 0x1c5e @0x5
0x1c59…1c72 at0006 = ╱45╱E╱ // 0x1c5f @0x6
0x1c59…1c72 at0007 = ╱4a╱J╱ // 0x1c60 @0x7
0x1c59…1c72 at0008 = ╱4c╱L╱ // 0x1c61 @0x8
0x1c59…1c72 at0009 = ╱ed╱(╱ // 0x1c62 @0x9
0x1c59…1c72 at000a = ╱57╱W╱ // 0x1c63 @0xa
0x1c59…1c72 at000b = ╱ec╱,╱ // 0x1c64 @0xb
0x1c59…1c72 at000c = ╱31╱1╱ // 0x1c65 @0xc
0x1c59…1c72 at000d = ╱32╱2╱ // 0x1c66 @0xd
0x1c59…1c72 at000e = ╱fe0000c004╱ // 0x1c67 @0xe
0x1c59…1c72 at0013 = ╱ec╱,╱ // 0x1c6c @0x13
0x1c59…1c72 at0014 = ╱4b╱K╱ // 0x1c6d @0x14
0x1c59…1c72 at0015 = ╱35╱5╱ // 0x1c6e @0x15
0x1c59…1c72 at0016 = ╱ef╱$╱ // 0x1c6f @0x16
0x1c59…1c72 at0017 = ╱ee╱)╱ // 0x1c70 @0x17
0x1c59…1c72 at0018 = EOL // 0x1c71 @0x18
0x1c59…1c72 }
0x1c72…1c7d a9d4 3590 FOR I=E TO V
0x1c72…1c7d LineComalBin {
0x1c72…1c7d ptr = 0xa9d4 // 0x1c72 @0x0
0x1c72…1c7d lno = 0x0e06 // 0x1c74 @0x2
0x1c72…1c7d at0004 = ╱83╱ FOR ╱ // 0x1c76 @0x4
0x1c72…1c7d at0005 = ╱49╱I╱ // 0x1c77 @0x5
0x1c72…1c7d at0006 = ╱dc╱=╱ // 0x1c78 @0x6
0x1c72…1c7d at0007 = ╱45╱E╱ // 0x1c79 @0x7
0x1c72…1c7d at0008 = ╱b7╱ TO ╱ // 0x1c7a @0x8
0x1c72…1c7d at0009 = ╱56╱V╱ // 0x1c7b @0x9
0x1c72…1c7d at000a = EOL // 0x1c7c @0xa
0x1c72…1c7d }
0x1c7d…1c8d a9e4 3600 J=(I-E)*V+E
0x1c7d…1c8d LineComalBin {
0x1c7d…1c8d ptr = 0xa9e4 // 0x1c7d @0x0
0x1c7d…1c8d lno = 0x0e10 // 0x1c7f @0x2
0x1c7d…1c8d at0004 = ╱4a╱J╱ // 0x1c81 @0x4
0x1c7d…1c8d at0005 = ╱dc╱=╱ // 0x1c82 @0x5
0x1c7d…1c8d at0006 = ╱ed╱(╱ // 0x1c83 @0x6
0x1c7d…1c8d at0007 = ╱49╱I╱ // 0x1c84 @0x7
0x1c7d…1c8d at0008 = ╱e3╱-╱ // 0x1c85 @0x8
0x1c7d…1c8d at0009 = ╱45╱E╱ // 0x1c86 @0x9
0x1c7d…1c8d at000a = ╱ee╱)╱ // 0x1c87 @0xa
0x1c7d…1c8d at000b = ╱e4╱*╱ // 0x1c88 @0xb
0x1c7d…1c8d at000c = ╱56╱V╱ // 0x1c89 @0xc
0x1c7d…1c8d at000d = ╱e2╱+╱ // 0x1c8a @0xd
0x1c7d…1c8d at000e = ╱45╱E╱ // 0x1c8b @0xe
0x1c7d…1c8d at000f = EOL // 0x1c8c @0xf
0x1c7d…1c8d }
0x1c8d…1cb9 aa10 3610 GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G)
0x1c8d…1cb9 LineComalBin {
0x1c8d…1cb9 ptr = 0xaa10 // 0x1c8d @0x0
0x1c8d…1cb9 lno = 0x0e1a // 0x1c8f @0x2
0x1c8d…1cb9 at0004 = ╱a9╱ GET ╱ // 0x1c91 @0x4
0x1c8d…1cb9 at0005 = ╱4b╱K╱ // 0x1c92 @0x5
0x1c8d…1cb9 at0006 = ╱35╱5╱ // 0x1c93 @0x6
0x1c8d…1cb9 at0007 = ╱ef╱$╱ // 0x1c94 @0x7
0x1c8d…1cb9 at0008 = ╱ec╱,╱ // 0x1c95 @0x8
0x1c8d…1cb9 at0009 = ╱49╱I╱ // 0x1c96 @0x9
0x1c8d…1cb9 at000a = ╱e2╱+╱ // 0x1c97 @0xa
0x1c8d…1cb9 at000b = ╱47╱G╱ // 0x1c98 @0xb
0x1c8d…1cb9 at000c = ╱f0╱:╱ // 0x1c99 @0xc
0x1c8d…1cb9 at000d = ╱4c╱L╱ // 0x1c9a @0xd
0x1c8d…1cb9 at000e = ╱41╱A╱ // 0x1c9b @0xe
0x1c8d…1cb9 at000f = ╱4e╱N╱ // 0x1c9c @0xf
0x1c8d…1cb9 at0010 = ╱44╱D╱ // 0x1c9d @0x10
0x1c8d…1cb9 at0011 = ╱ef╱$╱ // 0x1c9e @0x11
0x1c8d…1cb9 at0012 = ╱ed╱(╱ // 0x1c9f @0x12
0x1c8d…1cb9 at0013 = ╱4a╱J╱ // 0x1ca0 @0x13
0x1c8d…1cb9 at0014 = ╱ee╱)╱ // 0x1ca1 @0x14
0x1c8d…1cb9 at0015 = ╱ec╱,╱ // 0x1ca2 @0x15
0x1c8d…1cb9 at0016 = ╱4c╱L╱ // 0x1ca3 @0x16
0x1c8d…1cb9 at0017 = ╱41╱A╱ // 0x1ca4 @0x17
0x1c8d…1cb9 at0018 = ╱4e╱N╱ // 0x1ca5 @0x18
0x1c8d…1cb9 at0019 = ╱44╱D╱ // 0x1ca6 @0x19
0x1c8d…1cb9 at001a = ╱ef╱$╱ // 0x1ca7 @0x1a
0x1c8d…1cb9 at001b = ╱ed╱(╱ // 0x1ca8 @0x1b
0x1c8d…1cb9 at001c = ╱4a╱J╱ // 0x1ca9 @0x1c
0x1c8d…1cb9 at001d = ╱e2╱+╱ // 0x1caa @0x1d
0x1c8d…1cb9 at001e = ╱45╱E╱ // 0x1cab @0x1e
0x1c8d…1cb9 at001f = ╱ee╱)╱ // 0x1cac @0x1f
0x1c8d…1cb9 at0020 = ╱ec╱,╱ // 0x1cad @0x20
0x1c8d…1cb9 at0021 = ╱4c╱L╱ // 0x1cae @0x21
0x1c8d…1cb9 at0022 = ╱41╱A╱ // 0x1caf @0x22
0x1c8d…1cb9 at0023 = ╱4e╱N╱ // 0x1cb0 @0x23
0x1c8d…1cb9 at0024 = ╱44╱D╱ // 0x1cb1 @0x24
0x1c8d…1cb9 at0025 = ╱ef╱$╱ // 0x1cb2 @0x25
0x1c8d…1cb9 at0026 = ╱ed╱(╱ // 0x1cb3 @0x26
0x1c8d…1cb9 at0027 = ╱4a╱J╱ // 0x1cb4 @0x27
0x1c8d…1cb9 at0028 = ╱e2╱+╱ // 0x1cb5 @0x28
0x1c8d…1cb9 at0029 = ╱47╱G╱ // 0x1cb6 @0x29
0x1c8d…1cb9 at002a = ╱ee╱)╱ // 0x1cb7 @0x2a
0x1c8d…1cb9 at002b = EOL // 0x1cb8 @0x2b
0x1c8d…1cb9 }
0x1cb9…1cd2 aa29 3620 EXEC FEJL(W,13,K5$)
0x1cb9…1cd2 LineComalBin {
0x1cb9…1cd2 ptr = 0xaa29 // 0x1cb9 @0x0
0x1cb9…1cd2 lno = 0x0e24 // 0x1cbb @0x2
0x1cb9…1cd2 at0004 = ╱9d╱ EXEC ╱ // 0x1cbd @0x4
0x1cb9…1cd2 at0005 = ╱46╱F╱ // 0x1cbe @0x5
0x1cb9…1cd2 at0006 = ╱45╱E╱ // 0x1cbf @0x6
0x1cb9…1cd2 at0007 = ╱4a╱J╱ // 0x1cc0 @0x7
0x1cb9…1cd2 at0008 = ╱4c╱L╱ // 0x1cc1 @0x8
0x1cb9…1cd2 at0009 = ╱ed╱(╱ // 0x1cc2 @0x9
0x1cb9…1cd2 at000a = ╱57╱W╱ // 0x1cc3 @0xa
0x1cb9…1cd2 at000b = ╱ec╱,╱ // 0x1cc4 @0xb
0x1cb9…1cd2 at000c = ╱31╱1╱ // 0x1cc5 @0xc
0x1cb9…1cd2 at000d = ╱33╱3╱ // 0x1cc6 @0xd
0x1cb9…1cd2 at000e = ╱fe0000d004╱ // 0x1cc7 @0xe
0x1cb9…1cd2 at0013 = ╱ec╱,╱ // 0x1ccc @0x13
0x1cb9…1cd2 at0014 = ╱4b╱K╱ // 0x1ccd @0x14
0x1cb9…1cd2 at0015 = ╱35╱5╱ // 0x1cce @0x15
0x1cb9…1cd2 at0016 = ╱ef╱$╱ // 0x1ccf @0x16
0x1cb9…1cd2 at0017 = ╱ee╱)╱ // 0x1cd0 @0x17
0x1cb9…1cd2 at0018 = EOL // 0x1cd1 @0x18
0x1cb9…1cd2 }
0x1cd2…1cd9 aa30 3630 NEXT I
0x1cd2…1cd9 LineComalBin {
0x1cd2…1cd9 ptr = 0xaa30 // 0x1cd2 @0x0
0x1cd2…1cd9 lno = 0x0e2e // 0x1cd4 @0x2
0x1cd2…1cd9 at0004 = ╱84╱ NEXT ╱ // 0x1cd6 @0x4
0x1cd2…1cd9 at0005 = ╱49╱I╱ // 0x1cd7 @0x5
0x1cd2…1cd9 at0006 = EOL // 0x1cd8 @0x6
0x1cd2…1cd9 }
0x1cd9…1d30 aa87 3640 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x1cd9…1d30 LineComalBin {
0x1cd9…1d30 ptr = 0xaa87 // 0x1cd9 @0x0
0x1cd9…1d30 lno = 0x0e38 // 0x1cdb @0x2
0x1cd9…1d30 at0004 = ╱a9╱ GET ╱ // 0x1cdd @0x4
0x1cd9…1d30 at0005 = ╱4b╱K╱ // 0x1cde @0x5
0x1cd9…1d30 at0006 = ╱35╱5╱ // 0x1cdf @0x6
0x1cd9…1d30 at0007 = ╱ef╱$╱ // 0x1ce0 @0x7
0x1cd9…1d30 at0008 = ╱ec╱,╱ // 0x1ce1 @0x8
0x1cd9…1d30 at0009 = ╱31╱1╱ // 0x1ce2 @0x9
0x1cd9…1d30 at000a = ╱34╱4╱ // 0x1ce3 @0xa
0x1cd9…1d30 at000b = ╱fe0000e004╱ // 0x1ce4 @0xb
0x1cd9…1d30 at0010 = ╱f0╱:╱ // 0x1ce9 @0x10
0x1cd9…1d30 at0011 = ╱41╱A╱ // 0x1cea @0x11
0x1cd9…1d30 at0012 = ╱46╱F╱ // 0x1ceb @0x12
0x1cd9…1d30 at0013 = ╱49╱I╱ // 0x1cec @0x13
0x1cd9…1d30 at0014 = ╱4e╱N╱ // 0x1ced @0x14
0x1cd9…1d30 at0015 = ╱ec╱,╱ // 0x1cee @0x15
0x1cd9…1d30 at0016 = ╱41╱A╱ // 0x1cef @0x16
0x1cd9…1d30 at0017 = ╱44╱D╱ // 0x1cf0 @0x17
0x1cd9…1d30 at0018 = ╱45╱E╱ // 0x1cf1 @0x18
0x1cd9…1d30 at0019 = ╱42╱B╱ // 0x1cf2 @0x19
0x1cd9…1d30 at001a = ╱ec╱,╱ // 0x1cf3 @0x1a
0x1cd9…1d30 at001b = ╱41╱A╱ // 0x1cf4 @0x1b
0x1cd9…1d30 at001c = ╱4b╱K╱ // 0x1cf5 @0x1c
0x1cd9…1d30 at001d = ╱52╱R╱ // 0x1cf6 @0x1d
0x1cd9…1d30 at001e = ╱45╱E╱ // 0x1cf7 @0x1e
0x1cd9…1d30 at001f = ╱ec╱,╱ // 0x1cf8 @0x1f
0x1cd9…1d30 at0020 = ╱56╱V╱ // 0x1cf9 @0x20
0x1cd9…1d30 at0021 = ╱54╱T╱ // 0x1cfa @0x21
0x1cd9…1d30 at0022 = ╱41╱A╱ // 0x1cfb @0x22
0x1cd9…1d30 at0023 = ╱42╱B╱ // 0x1cfc @0x23
0x1cd9…1d30 at0024 = ╱32╱2╱ // 0x1cfd @0x24
0x1cd9…1d30 at0025 = ╱ed╱(╱ // 0x1cfe @0x25
0x1cd9…1d30 at0026 = ╱45╱E╱ // 0x1cff @0x26
0x1cd9…1d30 at0027 = ╱ee╱)╱ // 0x1d00 @0x27
0x1cd9…1d30 at0028 = ╱ec╱,╱ // 0x1d01 @0x28
0x1cd9…1d30 at0029 = ╱56╱V╱ // 0x1d02 @0x29
0x1cd9…1d30 at002a = ╱54╱T╱ // 0x1d03 @0x2a
0x1cd9…1d30 at002b = ╱41╱A╱ // 0x1d04 @0x2b
0x1cd9…1d30 at002c = ╱42╱B╱ // 0x1d05 @0x2c
0x1cd9…1d30 at002d = ╱32╱2╱ // 0x1d06 @0x2d
0x1cd9…1d30 at002e = ╱ed╱(╱ // 0x1d07 @0x2e
0x1cd9…1d30 at002f = ╱47╱G╱ // 0x1d08 @0x2f
0x1cd9…1d30 at0030 = ╱ee╱)╱ // 0x1d09 @0x30
0x1cd9…1d30 at0031 = ╱ec╱,╱ // 0x1d0a @0x31
0x1cd9…1d30 at0032 = ╱56╱V╱ // 0x1d0b @0x32
0x1cd9…1d30 at0033 = ╱54╱T╱ // 0x1d0c @0x33
0x1cd9…1d30 at0034 = ╱41╱A╱ // 0x1d0d @0x34
0x1cd9…1d30 at0035 = ╱42╱B╱ // 0x1d0e @0x35
0x1cd9…1d30 at0036 = ╱32╱2╱ // 0x1d0f @0x36
0x1cd9…1d30 at0037 = ╱ed╱(╱ // 0x1d10 @0x37
0x1cd9…1d30 at0038 = ╱56╱V╱ // 0x1d11 @0x38
0x1cd9…1d30 at0039 = ╱ee╱)╱ // 0x1d12 @0x39
0x1cd9…1d30 at003a = ╱ec╱,╱ // 0x1d13 @0x3a
0x1cd9…1d30 at003b = ╱56╱V╱ // 0x1d14 @0x3b
0x1cd9…1d30 at003c = ╱54╱T╱ // 0x1d15 @0x3c
0x1cd9…1d30 at003d = ╱41╱A╱ // 0x1d16 @0x3d
0x1cd9…1d30 at003e = ╱42╱B╱ // 0x1d17 @0x3e
0x1cd9…1d30 at003f = ╱32╱2╱ // 0x1d18 @0x3f
0x1cd9…1d30 at0040 = ╱ed╱(╱ // 0x1d19 @0x40
0x1cd9…1d30 at0041 = ╱34╱4╱ // 0x1d1a @0x41
0x1cd9…1d30 at0042 = ╱fe00008003╱ // 0x1d1b @0x42
0x1cd9…1d30 at0047 = ╱ee╱)╱ // 0x1d20 @0x47
0x1cd9…1d30 at0048 = ╱ec╱,╱ // 0x1d21 @0x48
0x1cd9…1d30 at0049 = ╱56╱V╱ // 0x1d22 @0x49
0x1cd9…1d30 at004a = ╱54╱T╱ // 0x1d23 @0x4a
0x1cd9…1d30 at004b = ╱41╱A╱ // 0x1d24 @0x4b
0x1cd9…1d30 at004c = ╱42╱B╱ // 0x1d25 @0x4c
0x1cd9…1d30 at004d = ╱32╱2╱ // 0x1d26 @0x4d
0x1cd9…1d30 at004e = ╱ed╱(╱ // 0x1d27 @0x4e
0x1cd9…1d30 at004f = ╱35╱5╱ // 0x1d28 @0x4f
0x1cd9…1d30 at0050 = ╱fe0000a003╱ // 0x1d29 @0x50
0x1cd9…1d30 at0055 = ╱ee╱)╱ // 0x1d2e @0x55
0x1cd9…1d30 at0056 = EOL // 0x1d2f @0x56
0x1cd9…1d30 }
0x1d30…1d49 aaa0 3650 EXEC FEJL(W,14,K5$)
0x1d30…1d49 LineComalBin {
0x1d30…1d49 ptr = 0xaaa0 // 0x1d30 @0x0
0x1d30…1d49 lno = 0x0e42 // 0x1d32 @0x2
0x1d30…1d49 at0004 = ╱9d╱ EXEC ╱ // 0x1d34 @0x4
0x1d30…1d49 at0005 = ╱46╱F╱ // 0x1d35 @0x5
0x1d30…1d49 at0006 = ╱45╱E╱ // 0x1d36 @0x6
0x1d30…1d49 at0007 = ╱4a╱J╱ // 0x1d37 @0x7
0x1d30…1d49 at0008 = ╱4c╱L╱ // 0x1d38 @0x8
0x1d30…1d49 at0009 = ╱ed╱(╱ // 0x1d39 @0x9
0x1d30…1d49 at000a = ╱57╱W╱ // 0x1d3a @0xa
0x1d30…1d49 at000b = ╱ec╱,╱ // 0x1d3b @0xb
0x1d30…1d49 at000c = ╱31╱1╱ // 0x1d3c @0xc
0x1d30…1d49 at000d = ╱34╱4╱ // 0x1d3d @0xd
0x1d30…1d49 at000e = ╱fe0000e004╱ // 0x1d3e @0xe
0x1d30…1d49 at0013 = ╱ec╱,╱ // 0x1d43 @0x13
0x1d30…1d49 at0014 = ╱4b╱K╱ // 0x1d44 @0x14
0x1d30…1d49 at0015 = ╱35╱5╱ // 0x1d45 @0x15
0x1d30…1d49 at0016 = ╱ef╱$╱ // 0x1d46 @0x16
0x1d30…1d49 at0017 = ╱ee╱)╱ // 0x1d47 @0x17
0x1d30…1d49 at0018 = EOL // 0x1d48 @0x18
0x1d30…1d49 }
0x1d49…1da9 ab00 3660 GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x1d49…1da9 LineComalBin {
0x1d49…1da9 ptr = 0xab00 // 0x1d49 @0x0
0x1d49…1da9 lno = 0x0e4c // 0x1d4b @0x2
0x1d49…1da9 at0004 = ╱a9╱ GET ╱ // 0x1d4d @0x4
0x1d49…1da9 at0005 = ╱4b╱K╱ // 0x1d4e @0x5
0x1d49…1da9 at0006 = ╱35╱5╱ // 0x1d4f @0x6
0x1d49…1da9 at0007 = ╱ef╱$╱ // 0x1d50 @0x7
0x1d49…1da9 at0008 = ╱ec╱,╱ // 0x1d51 @0x8
0x1d49…1da9 at0009 = ╱31╱1╱ // 0x1d52 @0x9
0x1d49…1da9 at000a = ╱37╱7╱ // 0x1d53 @0xa
0x1d49…1da9 at000b = ╱fe00008805╱ // 0x1d54 @0xb
0x1d49…1da9 at0010 = ╱f0╱:╱ // 0x1d59 @0x10
0x1d49…1da9 at0011 = ╱54╱T╱ // 0x1d5a @0x11
0x1d49…1da9 at0012 = ╱32╱2╱ // 0x1d5b @0x12
0x1d49…1da9 at0013 = ╱ed╱(╱ // 0x1d5c @0x13
0x1d49…1da9 at0014 = ╱45╱E╱ // 0x1d5d @0x14
0x1d49…1da9 at0015 = ╱ee╱)╱ // 0x1d5e @0x15
0x1d49…1da9 at0016 = ╱ec╱,╱ // 0x1d5f @0x16
0x1d49…1da9 at0017 = ╱54╱T╱ // 0x1d60 @0x17
0x1d49…1da9 at0018 = ╱32╱2╱ // 0x1d61 @0x18
0x1d49…1da9 at0019 = ╱ed╱(╱ // 0x1d62 @0x19
0x1d49…1da9 at001a = ╱47╱G╱ // 0x1d63 @0x1a
0x1d49…1da9 at001b = ╱ee╱)╱ // 0x1d64 @0x1b
0x1d49…1da9 at001c = ╱ec╱,╱ // 0x1d65 @0x1c
0x1d49…1da9 at001d = ╱54╱T╱ // 0x1d66 @0x1d
0x1d49…1da9 at001e = ╱32╱2╱ // 0x1d67 @0x1e
0x1d49…1da9 at001f = ╱ed╱(╱ // 0x1d68 @0x1f
0x1d49…1da9 at0020 = ╱56╱V╱ // 0x1d69 @0x20
0x1d49…1da9 at0021 = ╱ee╱)╱ // 0x1d6a @0x21
0x1d49…1da9 at0022 = ╱ec╱,╱ // 0x1d6b @0x22
0x1d49…1da9 at0023 = ╱54╱T╱ // 0x1d6c @0x23
0x1d49…1da9 at0024 = ╱32╱2╱ // 0x1d6d @0x24
0x1d49…1da9 at0025 = ╱ed╱(╱ // 0x1d6e @0x25
0x1d49…1da9 at0026 = ╱34╱4╱ // 0x1d6f @0x26
0x1d49…1da9 at0027 = ╱fe00008003╱ // 0x1d70 @0x27
0x1d49…1da9 at002c = ╱ee╱)╱ // 0x1d75 @0x2c
0x1d49…1da9 at002d = ╱ec╱,╱ // 0x1d76 @0x2d
0x1d49…1da9 at002e = ╱54╱T╱ // 0x1d77 @0x2e
0x1d49…1da9 at002f = ╱32╱2╱ // 0x1d78 @0x2f
0x1d49…1da9 at0030 = ╱ed╱(╱ // 0x1d79 @0x30
0x1d49…1da9 at0031 = ╱35╱5╱ // 0x1d7a @0x31
0x1d49…1da9 at0032 = ╱fe0000a003╱ // 0x1d7b @0x32
0x1d49…1da9 at0037 = ╱ee╱)╱ // 0x1d80 @0x37
0x1d49…1da9 at0038 = ╱ec╱,╱ // 0x1d81 @0x38
0x1d49…1da9 at0039 = ╱54╱T╱ // 0x1d82 @0x39
0x1d49…1da9 at003a = ╱32╱2╱ // 0x1d83 @0x3a
0x1d49…1da9 at003b = ╱ed╱(╱ // 0x1d84 @0x3b
0x1d49…1da9 at003c = ╱36╱6╱ // 0x1d85 @0x3c
0x1d49…1da9 at003d = ╱fe0000c003╱ // 0x1d86 @0x3d
0x1d49…1da9 at0042 = ╱ee╱)╱ // 0x1d8b @0x42
0x1d49…1da9 at0043 = ╱ec╱,╱ // 0x1d8c @0x43
0x1d49…1da9 at0044 = ╱54╱T╱ // 0x1d8d @0x44
0x1d49…1da9 at0045 = ╱32╱2╱ // 0x1d8e @0x45
0x1d49…1da9 at0046 = ╱ed╱(╱ // 0x1d8f @0x46
0x1d49…1da9 at0047 = ╱37╱7╱ // 0x1d90 @0x47
0x1d49…1da9 at0048 = ╱fe0000e003╱ // 0x1d91 @0x48
0x1d49…1da9 at004d = ╱ee╱)╱ // 0x1d96 @0x4d
0x1d49…1da9 at004e = ╱ec╱,╱ // 0x1d97 @0x4e
0x1d49…1da9 at004f = ╱54╱T╱ // 0x1d98 @0x4f
0x1d49…1da9 at0050 = ╱32╱2╱ // 0x1d99 @0x50
0x1d49…1da9 at0051 = ╱ed╱(╱ // 0x1d9a @0x51
0x1d49…1da9 at0052 = ╱38╱8╱ // 0x1d9b @0x52
0x1d49…1da9 at0053 = ╱fe00008004╱ // 0x1d9c @0x53
0x1d49…1da9 at0058 = ╱ee╱)╱ // 0x1da1 @0x58
0x1d49…1da9 at0059 = ╱ec╱,╱ // 0x1da2 @0x59
0x1d49…1da9 at005a = ╱54╱T╱ // 0x1da3 @0x5a
0x1d49…1da9 at005b = ╱32╱2╱ // 0x1da4 @0x5b
0x1d49…1da9 at005c = ╱ed╱(╱ // 0x1da5 @0x5c
0x1d49…1da9 at005d = ╱57╱W╱ // 0x1da6 @0x5d
0x1d49…1da9 at005e = ╱ee╱)╱ // 0x1da7 @0x5e
0x1d49…1da9 at005f = EOL // 0x1da8 @0x5f
0x1d49…1da9 }
0x1da9…1dc2 ab19 3670 EXEC FEJL(W,15,K5$)
0x1da9…1dc2 LineComalBin {
0x1da9…1dc2 ptr = 0xab19 // 0x1da9 @0x0
0x1da9…1dc2 lno = 0x0e56 // 0x1dab @0x2
0x1da9…1dc2 at0004 = ╱9d╱ EXEC ╱ // 0x1dad @0x4
0x1da9…1dc2 at0005 = ╱46╱F╱ // 0x1dae @0x5
0x1da9…1dc2 at0006 = ╱45╱E╱ // 0x1daf @0x6
0x1da9…1dc2 at0007 = ╱4a╱J╱ // 0x1db0 @0x7
0x1da9…1dc2 at0008 = ╱4c╱L╱ // 0x1db1 @0x8
0x1da9…1dc2 at0009 = ╱ed╱(╱ // 0x1db2 @0x9
0x1da9…1dc2 at000a = ╱57╱W╱ // 0x1db3 @0xa
0x1da9…1dc2 at000b = ╱ec╱,╱ // 0x1db4 @0xb
0x1da9…1dc2 at000c = ╱31╱1╱ // 0x1db5 @0xc
0x1da9…1dc2 at000d = ╱35╱5╱ // 0x1db6 @0xd
0x1da9…1dc2 at000e = ╱fe0000f004╱ // 0x1db7 @0xe
0x1da9…1dc2 at0013 = ╱ec╱,╱ // 0x1dbc @0x13
0x1da9…1dc2 at0014 = ╱4b╱K╱ // 0x1dbd @0x14
0x1da9…1dc2 at0015 = ╱35╱5╱ // 0x1dbe @0x15
0x1da9…1dc2 at0016 = ╱ef╱$╱ // 0x1dbf @0x16
0x1da9…1dc2 at0017 = ╱ee╱)╱ // 0x1dc0 @0x17
0x1da9…1dc2 at0018 = EOL // 0x1dc1 @0x18
0x1da9…1dc2 }
0x1dc2…1dd3 ab2a 3680 T2(5)=E
0x1dc2…1dd3 LineComalBin {
0x1dc2…1dd3 ptr = 0xab2a // 0x1dc2 @0x0
0x1dc2…1dd3 lno = 0x0e60 // 0x1dc4 @0x2
0x1dc2…1dd3 at0004 = ╱54╱T╱ // 0x1dc6 @0x4
0x1dc2…1dd3 at0005 = ╱32╱2╱ // 0x1dc7 @0x5
0x1dc2…1dd3 at0006 = ╱ed╱(╱ // 0x1dc8 @0x6
0x1dc2…1dd3 at0007 = ╱35╱5╱ // 0x1dc9 @0x7
0x1dc2…1dd3 at0008 = ╱fe0000a003╱ // 0x1dca @0x8
0x1dc2…1dd3 at000d = ╱ee╱)╱ // 0x1dcf @0xd
0x1dc2…1dd3 at000e = ╱dc╱=╱ // 0x1dd0 @0xe
0x1dc2…1dd3 at000f = ╱45╱E╱ // 0x1dd1 @0xf
0x1dc2…1dd3 at0010 = EOL // 0x1dd2 @0x10
0x1dc2…1dd3 }
0x1dd3…1e33 ab8a 3690 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x1dd3…1e33 LineComalBin {
0x1dd3…1e33 ptr = 0xab8a // 0x1dd3 @0x0
0x1dd3…1e33 lno = 0x0e6a // 0x1dd5 @0x2
0x1dd3…1e33 at0004 = ╱aa╱ PUT ╱ // 0x1dd7 @0x4
0x1dd3…1e33 at0005 = ╱4b╱K╱ // 0x1dd8 @0x5
0x1dd3…1e33 at0006 = ╱35╱5╱ // 0x1dd9 @0x6
0x1dd3…1e33 at0007 = ╱ef╱$╱ // 0x1dda @0x7
0x1dd3…1e33 at0008 = ╱ec╱,╱ // 0x1ddb @0x8
0x1dd3…1e33 at0009 = ╱31╱1╱ // 0x1ddc @0x9
0x1dd3…1e33 at000a = ╱37╱7╱ // 0x1ddd @0xa
0x1dd3…1e33 at000b = ╱fe00008805╱ // 0x1dde @0xb
0x1dd3…1e33 at0010 = ╱f0╱:╱ // 0x1de3 @0x10
0x1dd3…1e33 at0011 = ╱54╱T╱ // 0x1de4 @0x11
0x1dd3…1e33 at0012 = ╱32╱2╱ // 0x1de5 @0x12
0x1dd3…1e33 at0013 = ╱ed╱(╱ // 0x1de6 @0x13
0x1dd3…1e33 at0014 = ╱45╱E╱ // 0x1de7 @0x14
0x1dd3…1e33 at0015 = ╱ee╱)╱ // 0x1de8 @0x15
0x1dd3…1e33 at0016 = ╱ec╱,╱ // 0x1de9 @0x16
0x1dd3…1e33 at0017 = ╱54╱T╱ // 0x1dea @0x17
0x1dd3…1e33 at0018 = ╱32╱2╱ // 0x1deb @0x18
0x1dd3…1e33 at0019 = ╱ed╱(╱ // 0x1dec @0x19
0x1dd3…1e33 at001a = ╱47╱G╱ // 0x1ded @0x1a
0x1dd3…1e33 at001b = ╱ee╱)╱ // 0x1dee @0x1b
0x1dd3…1e33 at001c = ╱ec╱,╱ // 0x1def @0x1c
0x1dd3…1e33 at001d = ╱54╱T╱ // 0x1df0 @0x1d
0x1dd3…1e33 at001e = ╱32╱2╱ // 0x1df1 @0x1e
0x1dd3…1e33 at001f = ╱ed╱(╱ // 0x1df2 @0x1f
0x1dd3…1e33 at0020 = ╱56╱V╱ // 0x1df3 @0x20
0x1dd3…1e33 at0021 = ╱ee╱)╱ // 0x1df4 @0x21
0x1dd3…1e33 at0022 = ╱ec╱,╱ // 0x1df5 @0x22
0x1dd3…1e33 at0023 = ╱54╱T╱ // 0x1df6 @0x23
0x1dd3…1e33 at0024 = ╱32╱2╱ // 0x1df7 @0x24
0x1dd3…1e33 at0025 = ╱ed╱(╱ // 0x1df8 @0x25
0x1dd3…1e33 at0026 = ╱34╱4╱ // 0x1df9 @0x26
0x1dd3…1e33 at0027 = ╱fe00008003╱ // 0x1dfa @0x27
0x1dd3…1e33 at002c = ╱ee╱)╱ // 0x1dff @0x2c
0x1dd3…1e33 at002d = ╱ec╱,╱ // 0x1e00 @0x2d
0x1dd3…1e33 at002e = ╱54╱T╱ // 0x1e01 @0x2e
0x1dd3…1e33 at002f = ╱32╱2╱ // 0x1e02 @0x2f
0x1dd3…1e33 at0030 = ╱ed╱(╱ // 0x1e03 @0x30
0x1dd3…1e33 at0031 = ╱35╱5╱ // 0x1e04 @0x31
0x1dd3…1e33 at0032 = ╱fe0000a003╱ // 0x1e05 @0x32
0x1dd3…1e33 at0037 = ╱ee╱)╱ // 0x1e0a @0x37
0x1dd3…1e33 at0038 = ╱ec╱,╱ // 0x1e0b @0x38
0x1dd3…1e33 at0039 = ╱54╱T╱ // 0x1e0c @0x39
0x1dd3…1e33 at003a = ╱32╱2╱ // 0x1e0d @0x3a
0x1dd3…1e33 at003b = ╱ed╱(╱ // 0x1e0e @0x3b
0x1dd3…1e33 at003c = ╱36╱6╱ // 0x1e0f @0x3c
0x1dd3…1e33 at003d = ╱fe0000c003╱ // 0x1e10 @0x3d
0x1dd3…1e33 at0042 = ╱ee╱)╱ // 0x1e15 @0x42
0x1dd3…1e33 at0043 = ╱ec╱,╱ // 0x1e16 @0x43
0x1dd3…1e33 at0044 = ╱54╱T╱ // 0x1e17 @0x44
0x1dd3…1e33 at0045 = ╱32╱2╱ // 0x1e18 @0x45
0x1dd3…1e33 at0046 = ╱ed╱(╱ // 0x1e19 @0x46
0x1dd3…1e33 at0047 = ╱37╱7╱ // 0x1e1a @0x47
0x1dd3…1e33 at0048 = ╱fe0000e003╱ // 0x1e1b @0x48
0x1dd3…1e33 at004d = ╱ee╱)╱ // 0x1e20 @0x4d
0x1dd3…1e33 at004e = ╱ec╱,╱ // 0x1e21 @0x4e
0x1dd3…1e33 at004f = ╱54╱T╱ // 0x1e22 @0x4f
0x1dd3…1e33 at0050 = ╱32╱2╱ // 0x1e23 @0x50
0x1dd3…1e33 at0051 = ╱ed╱(╱ // 0x1e24 @0x51
0x1dd3…1e33 at0052 = ╱38╱8╱ // 0x1e25 @0x52
0x1dd3…1e33 at0053 = ╱fe00008004╱ // 0x1e26 @0x53
0x1dd3…1e33 at0058 = ╱ee╱)╱ // 0x1e2b @0x58
0x1dd3…1e33 at0059 = ╱ec╱,╱ // 0x1e2c @0x59
0x1dd3…1e33 at005a = ╱54╱T╱ // 0x1e2d @0x5a
0x1dd3…1e33 at005b = ╱32╱2╱ // 0x1e2e @0x5b
0x1dd3…1e33 at005c = ╱ed╱(╱ // 0x1e2f @0x5c
0x1dd3…1e33 at005d = ╱57╱W╱ // 0x1e30 @0x5d
0x1dd3…1e33 at005e = ╱ee╱)╱ // 0x1e31 @0x5e
0x1dd3…1e33 at005f = EOL // 0x1e32 @0x5f
0x1dd3…1e33 }
0x1e33…1e4c aba3 3700 EXEC FEJL(W,16,K5$)
0x1e33…1e4c LineComalBin {
0x1e33…1e4c ptr = 0xaba3 // 0x1e33 @0x0
0x1e33…1e4c lno = 0x0e74 // 0x1e35 @0x2
0x1e33…1e4c at0004 = ╱9d╱ EXEC ╱ // 0x1e37 @0x4
0x1e33…1e4c at0005 = ╱46╱F╱ // 0x1e38 @0x5
0x1e33…1e4c at0006 = ╱45╱E╱ // 0x1e39 @0x6
0x1e33…1e4c at0007 = ╱4a╱J╱ // 0x1e3a @0x7
0x1e33…1e4c at0008 = ╱4c╱L╱ // 0x1e3b @0x8
0x1e33…1e4c at0009 = ╱ed╱(╱ // 0x1e3c @0x9
0x1e33…1e4c at000a = ╱57╱W╱ // 0x1e3d @0xa
0x1e33…1e4c at000b = ╱ec╱,╱ // 0x1e3e @0xb
0x1e33…1e4c at000c = ╱31╱1╱ // 0x1e3f @0xc
0x1e33…1e4c at000d = ╱36╱6╱ // 0x1e40 @0xd
0x1e33…1e4c at000e = ╱fe00008005╱ // 0x1e41 @0xe
0x1e33…1e4c at0013 = ╱ec╱,╱ // 0x1e46 @0x13
0x1e33…1e4c at0014 = ╱4b╱K╱ // 0x1e47 @0x14
0x1e33…1e4c at0015 = ╱35╱5╱ // 0x1e48 @0x15
0x1e33…1e4c at0016 = ╱ef╱$╱ // 0x1e49 @0x16
0x1e33…1e4c at0017 = ╱ee╱)╱ // 0x1e4a @0x17
0x1e33…1e4c at0018 = EOL // 0x1e4b @0x18
0x1e33…1e4c }
0x1e4c…1e61 abb8 3702 GET K5$,20:DV$
0x1e4c…1e61 LineComalBin {
0x1e4c…1e61 ptr = 0xabb8 // 0x1e4c @0x0
0x1e4c…1e61 lno = 0x0e76 // 0x1e4e @0x2
0x1e4c…1e61 at0004 = ╱a9╱ GET ╱ // 0x1e50 @0x4
0x1e4c…1e61 at0005 = ╱4b╱K╱ // 0x1e51 @0x5
0x1e4c…1e61 at0006 = ╱35╱5╱ // 0x1e52 @0x6
0x1e4c…1e61 at0007 = ╱ef╱$╱ // 0x1e53 @0x7
0x1e4c…1e61 at0008 = ╱ec╱,╱ // 0x1e54 @0x8
0x1e4c…1e61 at0009 = ╱32╱2╱ // 0x1e55 @0x9
0x1e4c…1e61 at000a = ╱30╱0╱ // 0x1e56 @0xa
0x1e4c…1e61 at000b = ╱fe0000a005╱ // 0x1e57 @0xb
0x1e4c…1e61 at0010 = ╱f0╱:╱ // 0x1e5c @0x10
0x1e4c…1e61 at0011 = ╱44╱D╱ // 0x1e5d @0x11
0x1e4c…1e61 at0012 = ╱56╱V╱ // 0x1e5e @0x12
0x1e4c…1e61 at0013 = ╱ef╱$╱ // 0x1e5f @0x13
0x1e4c…1e61 at0014 = EOL // 0x1e60 @0x14
0x1e4c…1e61 }
0x1e61…1e7a (101,) abd1 3704 EXEC FEJL(W,22,K5$)
0x1e61…1e7a LineComalBin {
0x1e61…1e7a ptr = 0xabd1 // 0x1e61 @0x0
0x1e61…1e7a lno = 0x0e78 // 0x1e63 @0x2
0x1e61…1e7a at0004 = ╱9d╱ EXEC ╱ // 0x1e65 @0x4
0x1e61…1e7a at0005 = ╱46╱F╱ // 0x1e66 @0x5
0x1e61…1e7a at0006 = ╱45╱E╱ // 0x1e67 @0x6
0x1e61…1e7a at0007 = ╱4a╱J╱ // 0x1e68 @0x7
0x1e61…1e7a at0008 = ╱4c╱L╱ // 0x1e69 @0x8
0x1e61…1e7a at0009 = ╱ed╱(╱ // 0x1e6a @0x9
0x1e61…1e7a at000a = ╱57╱W╱ // 0x1e6b @0xa
0x1e61…1e7a at000b = ╱ec╱,╱ // 0x1e6c @0xb
0x1e61…1e7a at000c = ╱32╱2╱ // 0x1e6d @0xc
0x1e61…1e7a at000d = ╱32╱2╱ // 0x1e6e @0xd
0x1e61…1e7a at000e = ╱fe0000b005╱ // 0x1e6f @0xe
0x1e61…1e7a at0013 = ╱ec╱,╱ // 0x1e74 @0x13
0x1e61…1e7a at0014 = ╱4b╱K╱ // 0x1e75 @0x14
0x1e61…1e7a at0015 = ╱35╱5╱ // 0x1e76 @0x15
0x1e61…1e7a at0016 = ╱ef╱$╱ // 0x1e77 @0x16
0x1e61…1e7a at0017 = ╱ee╱)╱ // 0x1e78 @0x17
0x1e61…1e7a at0018 = EOL // 0x1e79 @0x18
0x1e61…1e7a }
0x1e7a…1e83 abda 3710 CLOSE K5$
0x1e7a…1e83 LineComalBin {
0x1e7a…1e83 ptr = 0xabda // 0x1e7a @0x0
0x1e7a…1e83 lno = 0x0e7e // 0x1e7c @0x2
0x1e7a…1e83 at0004 = ╱a8╱ CLOSE ╱ // 0x1e7e @0x4
0x1e7a…1e83 at0005 = ╱4b╱K╱ // 0x1e7f @0x5
0x1e7a…1e83 at0006 = ╱35╱5╱ // 0x1e80 @0x6
0x1e7a…1e83 at0007 = ╱ef╱$╱ // 0x1e81 @0x7
0x1e7a…1e83 at0008 = EOL // 0x1e82 @0x8
0x1e7a…1e83 }
0x1e83…1e9c abf3 3720 EXEC FEJL(W,17,K5$)
0x1e83…1e9c LineComalBin {
0x1e83…1e9c ptr = 0xabf3 // 0x1e83 @0x0
0x1e83…1e9c lno = 0x0e88 // 0x1e85 @0x2
0x1e83…1e9c at0004 = ╱9d╱ EXEC ╱ // 0x1e87 @0x4
0x1e83…1e9c at0005 = ╱46╱F╱ // 0x1e88 @0x5
0x1e83…1e9c at0006 = ╱45╱E╱ // 0x1e89 @0x6
0x1e83…1e9c at0007 = ╱4a╱J╱ // 0x1e8a @0x7
0x1e83…1e9c at0008 = ╱4c╱L╱ // 0x1e8b @0x8
0x1e83…1e9c at0009 = ╱ed╱(╱ // 0x1e8c @0x9
0x1e83…1e9c at000a = ╱57╱W╱ // 0x1e8d @0xa
0x1e83…1e9c at000b = ╱ec╱,╱ // 0x1e8e @0xb
0x1e83…1e9c at000c = ╱31╱1╱ // 0x1e8f @0xc
0x1e83…1e9c at000d = ╱37╱7╱ // 0x1e90 @0xd
0x1e83…1e9c at000e = ╱fe00008805╱ // 0x1e91 @0xe
0x1e83…1e9c at0013 = ╱ec╱,╱ // 0x1e96 @0x13
0x1e83…1e9c at0014 = ╱4b╱K╱ // 0x1e97 @0x14
0x1e83…1e9c at0015 = ╱35╱5╱ // 0x1e98 @0x15
0x1e83…1e9c at0016 = ╱ef╱$╱ // 0x1e99 @0x16
0x1e83…1e9c at0017 = ╱ee╱)╱ // 0x1e9a @0x17
0x1e83…1e9c at0018 = EOL // 0x1e9b @0x18
0x1e83…1e9c }
0x1e9c…1eab ac02 3730 K3$=N$+K3$
0x1e9c…1eab LineComalBin {
0x1e9c…1eab ptr = 0xac02 // 0x1e9c @0x0
0x1e9c…1eab lno = 0x0e92 // 0x1e9e @0x2
0x1e9c…1eab at0004 = ╱4b╱K╱ // 0x1ea0 @0x4
0x1e9c…1eab at0005 = ╱33╱3╱ // 0x1ea1 @0x5
0x1e9c…1eab at0006 = ╱ef╱$╱ // 0x1ea2 @0x6
0x1e9c…1eab at0007 = ╱dc╱=╱ // 0x1ea3 @0x7
0x1e9c…1eab at0008 = ╱4e╱N╱ // 0x1ea4 @0x8
0x1e9c…1eab at0009 = ╱ef╱$╱ // 0x1ea5 @0x9
0x1e9c…1eab at000a = ╱f1╱+╱ // 0x1ea6 @0xa
0x1e9c…1eab at000b = ╱4b╱K╱ // 0x1ea7 @0xb
0x1e9c…1eab at000c = ╱33╱3╱ // 0x1ea8 @0xc
0x1e9c…1eab at000d = ╱ef╱$╱ // 0x1ea9 @0xd
0x1e9c…1eab at000e = EOL // 0x1eaa @0xe
0x1e9c…1eab }
0x1eab…1eb6 ac0d 3740 OPEN K3$,W
0x1eab…1eb6 LineComalBin {
0x1eab…1eb6 ptr = 0xac0d // 0x1eab @0x0
0x1eab…1eb6 lno = 0x0e9c // 0x1ead @0x2
0x1eab…1eb6 at0004 = ╱a7╱ OPEN ╱ // 0x1eaf @0x4
0x1eab…1eb6 at0005 = ╱4b╱K╱ // 0x1eb0 @0x5
0x1eab…1eb6 at0006 = ╱33╱3╱ // 0x1eb1 @0x6
0x1eab…1eb6 at0007 = ╱ef╱$╱ // 0x1eb2 @0x7
0x1eab…1eb6 at0008 = ╱ec╱,╱ // 0x1eb3 @0x8
0x1eab…1eb6 at0009 = ╱57╱W╱ // 0x1eb4 @0x9
0x1eab…1eb6 at000a = EOL // 0x1eb5 @0xa
0x1eab…1eb6 }
0x1eb6…1ecf ac26 3750 EXEC FEJL(W,18,K3$)
0x1eb6…1ecf LineComalBin {
0x1eb6…1ecf ptr = 0xac26 // 0x1eb6 @0x0
0x1eb6…1ecf lno = 0x0ea6 // 0x1eb8 @0x2
0x1eb6…1ecf at0004 = ╱9d╱ EXEC ╱ // 0x1eba @0x4
0x1eb6…1ecf at0005 = ╱46╱F╱ // 0x1ebb @0x5
0x1eb6…1ecf at0006 = ╱45╱E╱ // 0x1ebc @0x6
0x1eb6…1ecf at0007 = ╱4a╱J╱ // 0x1ebd @0x7
0x1eb6…1ecf at0008 = ╱4c╱L╱ // 0x1ebe @0x8
0x1eb6…1ecf at0009 = ╱ed╱(╱ // 0x1ebf @0x9
0x1eb6…1ecf at000a = ╱57╱W╱ // 0x1ec0 @0xa
0x1eb6…1ecf at000b = ╱ec╱,╱ // 0x1ec1 @0xb
0x1eb6…1ecf at000c = ╱31╱1╱ // 0x1ec2 @0xc
0x1eb6…1ecf at000d = ╱38╱8╱ // 0x1ec3 @0xd
0x1eb6…1ecf at000e = ╱fe00009005╱ // 0x1ec4 @0xe
0x1eb6…1ecf at0013 = ╱ec╱,╱ // 0x1ec9 @0x13
0x1eb6…1ecf at0014 = ╱4b╱K╱ // 0x1eca @0x14
0x1eb6…1ecf at0015 = ╱33╱3╱ // 0x1ecb @0x15
0x1eb6…1ecf at0016 = ╱ef╱$╱ // 0x1ecc @0x16
0x1eb6…1ecf at0017 = ╱ee╱)╱ // 0x1ecd @0x17
0x1eb6…1ecf at0018 = EOL // 0x1ece @0x18
0x1eb6…1ecf }
0x1ecf…1ede ac35 3760 K2$=N$+K2$
0x1ecf…1ede LineComalBin {
0x1ecf…1ede ptr = 0xac35 // 0x1ecf @0x0
0x1ecf…1ede lno = 0x0eb0 // 0x1ed1 @0x2
0x1ecf…1ede at0004 = ╱4b╱K╱ // 0x1ed3 @0x4
0x1ecf…1ede at0005 = ╱32╱2╱ // 0x1ed4 @0x5
0x1ecf…1ede at0006 = ╱ef╱$╱ // 0x1ed5 @0x6
0x1ecf…1ede at0007 = ╱dc╱=╱ // 0x1ed6 @0x7
0x1ecf…1ede at0008 = ╱4e╱N╱ // 0x1ed7 @0x8
0x1ecf…1ede at0009 = ╱ef╱$╱ // 0x1ed8 @0x9
0x1ecf…1ede at000a = ╱f1╱+╱ // 0x1ed9 @0xa
0x1ecf…1ede at000b = ╱4b╱K╱ // 0x1eda @0xb
0x1ecf…1ede at000c = ╱32╱2╱ // 0x1edb @0xc
0x1ecf…1ede at000d = ╱ef╱$╱ // 0x1edc @0xd
0x1ecf…1ede at000e = EOL // 0x1edd @0xe
0x1ecf…1ede }
0x1ede…1ee9 ac40 3770 OPEN K2$,W
0x1ede…1ee9 LineComalBin {
0x1ede…1ee9 ptr = 0xac40 // 0x1ede @0x0
0x1ede…1ee9 lno = 0x0eba // 0x1ee0 @0x2
0x1ede…1ee9 at0004 = ╱a7╱ OPEN ╱ // 0x1ee2 @0x4
0x1ede…1ee9 at0005 = ╱4b╱K╱ // 0x1ee3 @0x5
0x1ede…1ee9 at0006 = ╱32╱2╱ // 0x1ee4 @0x6
0x1ede…1ee9 at0007 = ╱ef╱$╱ // 0x1ee5 @0x7
0x1ede…1ee9 at0008 = ╱ec╱,╱ // 0x1ee6 @0x8
0x1ede…1ee9 at0009 = ╱57╱W╱ // 0x1ee7 @0x9
0x1ede…1ee9 at000a = EOL // 0x1ee8 @0xa
0x1ede…1ee9 }
0x1ee9…1f02 ac59 3780 EXEC FEJL(W,19,K2$)
0x1ee9…1f02 LineComalBin {
0x1ee9…1f02 ptr = 0xac59 // 0x1ee9 @0x0
0x1ee9…1f02 lno = 0x0ec4 // 0x1eeb @0x2
0x1ee9…1f02 at0004 = ╱9d╱ EXEC ╱ // 0x1eed @0x4
0x1ee9…1f02 at0005 = ╱46╱F╱ // 0x1eee @0x5
0x1ee9…1f02 at0006 = ╱45╱E╱ // 0x1eef @0x6
0x1ee9…1f02 at0007 = ╱4a╱J╱ // 0x1ef0 @0x7
0x1ee9…1f02 at0008 = ╱4c╱L╱ // 0x1ef1 @0x8
0x1ee9…1f02 at0009 = ╱ed╱(╱ // 0x1ef2 @0x9
0x1ee9…1f02 at000a = ╱57╱W╱ // 0x1ef3 @0xa
0x1ee9…1f02 at000b = ╱ec╱,╱ // 0x1ef4 @0xb
0x1ee9…1f02 at000c = ╱31╱1╱ // 0x1ef5 @0xc
0x1ee9…1f02 at000d = ╱39╱9╱ // 0x1ef6 @0xd
0x1ee9…1f02 at000e = ╱fe00009805╱ // 0x1ef7 @0xe
0x1ee9…1f02 at0013 = ╱ec╱,╱ // 0x1efc @0x13
0x1ee9…1f02 at0014 = ╱4b╱K╱ // 0x1efd @0x14
0x1ee9…1f02 at0015 = ╱32╱2╱ // 0x1efe @0x15
0x1ee9…1f02 at0016 = ╱ef╱$╱ // 0x1eff @0x16
0x1ee9…1f02 at0017 = ╱ee╱)╱ // 0x1f00 @0x17
0x1ee9…1f02 at0018 = EOL // 0x1f01 @0x18
0x1ee9…1f02 }
0x1f02…1f20 ac77 3790 EXEC INDTAB(KTAB,MKANTAL,K2$)
0x1f02…1f20 LineComalBin {
0x1f02…1f20 ptr = 0xac77 // 0x1f02 @0x0
0x1f02…1f20 lno = 0x0ece // 0x1f04 @0x2
0x1f02…1f20 at0004 = ╱9d╱ EXEC ╱ // 0x1f06 @0x4
0x1f02…1f20 at0005 = ╱49╱I╱ // 0x1f07 @0x5
0x1f02…1f20 at0006 = ╱4e╱N╱ // 0x1f08 @0x6
0x1f02…1f20 at0007 = ╱44╱D╱ // 0x1f09 @0x7
0x1f02…1f20 at0008 = ╱54╱T╱ // 0x1f0a @0x8
0x1f02…1f20 at0009 = ╱41╱A╱ // 0x1f0b @0x9
0x1f02…1f20 at000a = ╱42╱B╱ // 0x1f0c @0xa
0x1f02…1f20 at000b = ╱ed╱(╱ // 0x1f0d @0xb
0x1f02…1f20 at000c = ╱4b╱K╱ // 0x1f0e @0xc
0x1f02…1f20 at000d = ╱54╱T╱ // 0x1f0f @0xd
0x1f02…1f20 at000e = ╱41╱A╱ // 0x1f10 @0xe
0x1f02…1f20 at000f = ╱42╱B╱ // 0x1f11 @0xf
0x1f02…1f20 at0010 = ╱ec╱,╱ // 0x1f12 @0x10
0x1f02…1f20 at0011 = ╱4d╱M╱ // 0x1f13 @0x11
0x1f02…1f20 at0012 = ╱4b╱K╱ // 0x1f14 @0x12
0x1f02…1f20 at0013 = ╱41╱A╱ // 0x1f15 @0x13
0x1f02…1f20 at0014 = ╱4e╱N╱ // 0x1f16 @0x14
0x1f02…1f20 at0015 = ╱54╱T╱ // 0x1f17 @0x15
0x1f02…1f20 at0016 = ╱41╱A╱ // 0x1f18 @0x16
0x1f02…1f20 at0017 = ╱4c╱L╱ // 0x1f19 @0x17
0x1f02…1f20 at0018 = ╱ec╱,╱ // 0x1f1a @0x18
0x1f02…1f20 at0019 = ╱4b╱K╱ // 0x1f1b @0x19
0x1f02…1f20 at001a = ╱32╱2╱ // 0x1f1c @0x1a
0x1f02…1f20 at001b = ╱ef╱$╱ // 0x1f1d @0x1b
0x1f02…1f20 at001c = ╱ee╱)╱ // 0x1f1e @0x1c
0x1f02…1f20 at001d = EOL // 0x1f1f @0x1d
0x1f02…1f20 }
0x1f20…1f6d acc4 3800 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "
0x1f20…1f6d LineComalBin {
0x1f20…1f6d ptr = 0xacc4 // 0x1f20 @0x0
0x1f20…1f6d lno = 0x0ed8 // 0x1f22 @0x2
0x1f20…1f6d at0004 = ╱42╱B╱ // 0x1f24 @0x4
0x1f20…1f6d at0005 = ╱4c╱L╱ // 0x1f25 @0x5
0x1f20…1f6d at0006 = ╱41╱A╱ // 0x1f26 @0x6
0x1f20…1f6d at0007 = ╱4e╱N╱ // 0x1f27 @0x7
0x1f20…1f6d at0008 = ╱4b╱K╱ // 0x1f28 @0x8
0x1f20…1f6d at0009 = ╱ef╱$╱ // 0x1f29 @0x9
0x1f20…1f6d at000a = ╱dc╱=╱ // 0x1f2a @0xa
0x1f20…1f6d at000b = ╱22╱"╱ // 0x1f2b @0xb
0x1f20…1f6d at000c = ╱20╱…╱ // 0x1f2c @0xc
0x1f20…1f6d at000d = ╱20╱…╱ // 0x1f2d @0xd
0x1f20…1f6d at000e = ╱20╱…╱ // 0x1f2e @0xe
0x1f20…1f6d at000f = ╱20╱…╱ // 0x1f2f @0xf
0x1f20…1f6d at0010 = ╱20╱…╱ // 0x1f30 @0x10
0x1f20…1f6d at0011 = ╱20╱…╱ // 0x1f31 @0x11
0x1f20…1f6d at0012 = ╱20╱…╱ // 0x1f32 @0x12
0x1f20…1f6d at0013 = ╱20╱…╱ // 0x1f33 @0x13
0x1f20…1f6d at0014 = ╱20╱…╱ // 0x1f34 @0x14
0x1f20…1f6d at0015 = ╱20╱…╱ // 0x1f35 @0x15
0x1f20…1f6d at0016 = ╱20╱…╱ // 0x1f36 @0x16
0x1f20…1f6d at0017 = ╱20╱…╱ // 0x1f37 @0x17
0x1f20…1f6d at0018 = ╱20╱…╱ // 0x1f38 @0x18
0x1f20…1f6d at0019 = ╱20╱…╱ // 0x1f39 @0x19
0x1f20…1f6d at001a = ╱20╱…╱ // 0x1f3a @0x1a
0x1f20…1f6d at001b = ╱20╱…╱ // 0x1f3b @0x1b
0x1f20…1f6d at001c = ╱20╱…╱ // 0x1f3c @0x1c
0x1f20…1f6d at001d = ╱20╱…╱ // 0x1f3d @0x1d
0x1f20…1f6d at001e = ╱20╱…╱ // 0x1f3e @0x1e
0x1f20…1f6d at001f = ╱20╱…╱ // 0x1f3f @0x1f
0x1f20…1f6d at0020 = ╱20╱…╱ // 0x1f40 @0x20
0x1f20…1f6d at0021 = ╱20╱…╱ // 0x1f41 @0x21
0x1f20…1f6d at0022 = ╱20╱…╱ // 0x1f42 @0x22
0x1f20…1f6d at0023 = ╱20╱…╱ // 0x1f43 @0x23
0x1f20…1f6d at0024 = ╱20╱…╱ // 0x1f44 @0x24
0x1f20…1f6d at0025 = ╱20╱…╱ // 0x1f45 @0x25
0x1f20…1f6d at0026 = ╱20╱…╱ // 0x1f46 @0x26
0x1f20…1f6d at0027 = ╱20╱…╱ // 0x1f47 @0x27
0x1f20…1f6d at0028 = ╱20╱…╱ // 0x1f48 @0x28
0x1f20…1f6d at0029 = ╱20╱…╱ // 0x1f49 @0x29
0x1f20…1f6d at002a = ╱20╱…╱ // 0x1f4a @0x2a
0x1f20…1f6d at002b = ╱20╱…╱ // 0x1f4b @0x2b
0x1f20…1f6d at002c = ╱20╱…╱ // 0x1f4c @0x2c
0x1f20…1f6d at002d = ╱20╱…╱ // 0x1f4d @0x2d
0x1f20…1f6d at002e = ╱20╱…╱ // 0x1f4e @0x2e
0x1f20…1f6d at002f = ╱20╱…╱ // 0x1f4f @0x2f
0x1f20…1f6d at0030 = ╱20╱…╱ // 0x1f50 @0x30
0x1f20…1f6d at0031 = ╱20╱…╱ // 0x1f51 @0x31
0x1f20…1f6d at0032 = ╱22╱"╱ // 0x1f52 @0x32
0x1f20…1f6d at0033 = ╱eb╱;╱ // 0x1f53 @0x33
0x1f20…1f6d at0034 = ╱42╱B╱ // 0x1f54 @0x34
0x1f20…1f6d at0035 = ╱4c╱L╱ // 0x1f55 @0x35
0x1f20…1f6d at0036 = ╱41╱A╱ // 0x1f56 @0x36
0x1f20…1f6d at0037 = ╱4e╱N╱ // 0x1f57 @0x37
0x1f20…1f6d at0038 = ╱4b╱K╱ // 0x1f58 @0x38
0x1f20…1f6d at0039 = ╱ef╱$╱ // 0x1f59 @0x39
0x1f20…1f6d at003a = ╱dc╱=╱ // 0x1f5a @0x3a
0x1f20…1f6d at003b = ╱42╱B╱ // 0x1f5b @0x3b
0x1f20…1f6d at003c = ╱4c╱L╱ // 0x1f5c @0x3c
0x1f20…1f6d at003d = ╱41╱A╱ // 0x1f5d @0x3d
0x1f20…1f6d at003e = ╱4e╱N╱ // 0x1f5e @0x3e
0x1f20…1f6d at003f = ╱4b╱K╱ // 0x1f5f @0x3f
0x1f20…1f6d at0040 = ╱ef╱$╱ // 0x1f60 @0x40
0x1f20…1f6d at0041 = ╱f1╱+╱ // 0x1f61 @0x41
0x1f20…1f6d at0042 = ╱42╱B╱ // 0x1f62 @0x42
0x1f20…1f6d at0043 = ╱4c╱L╱ // 0x1f63 @0x43
0x1f20…1f6d at0044 = ╱41╱A╱ // 0x1f64 @0x44
0x1f20…1f6d at0045 = ╱4e╱N╱ // 0x1f65 @0x45
0x1f20…1f6d at0046 = ╱4b╱K╱ // 0x1f66 @0x46
0x1f20…1f6d at0047 = ╱ef╱$╱ // 0x1f67 @0x47
0x1f20…1f6d at0048 = ╱f1╱+╱ // 0x1f68 @0x48
0x1f20…1f6d at0049 = ╱22╱"╱ // 0x1f69 @0x49
0x1f20…1f6d at004a = ╱20╱…╱ // 0x1f6a @0x4a
0x1f20…1f6d at004b = ╱22╱"╱ // 0x1f6b @0x4b
0x1f20…1f6d at004c = EOL // 0x1f6c @0x4c
0x1f20…1f6d }
0x1f6d…1f86 acdd 3810 TAH$="0+";TAL4$="0+"
0x1f6d…1f86 LineComalBin {
0x1f6d…1f86 ptr = 0xacdd // 0x1f6d @0x0
0x1f6d…1f86 lno = 0x0ee2 // 0x1f6f @0x2
0x1f6d…1f86 at0004 = ╱54╱T╱ // 0x1f71 @0x4
0x1f6d…1f86 at0005 = ╱41╱A╱ // 0x1f72 @0x5
0x1f6d…1f86 at0006 = ╱48╱H╱ // 0x1f73 @0x6
0x1f6d…1f86 at0007 = ╱ef╱$╱ // 0x1f74 @0x7
0x1f6d…1f86 at0008 = ╱dc╱=╱ // 0x1f75 @0x8
0x1f6d…1f86 at0009 = ╱22╱"╱ // 0x1f76 @0x9
0x1f6d…1f86 at000a = ╱30╱0╱ // 0x1f77 @0xa
0x1f6d…1f86 at000b = ╱2b╱+╱ // 0x1f78 @0xb
0x1f6d…1f86 at000c = ╱22╱"╱ // 0x1f79 @0xc
0x1f6d…1f86 at000d = ╱eb╱;╱ // 0x1f7a @0xd
0x1f6d…1f86 at000e = ╱54╱T╱ // 0x1f7b @0xe
0x1f6d…1f86 at000f = ╱41╱A╱ // 0x1f7c @0xf
0x1f6d…1f86 at0010 = ╱4c╱L╱ // 0x1f7d @0x10
0x1f6d…1f86 at0011 = ╱34╱4╱ // 0x1f7e @0x11
0x1f6d…1f86 at0012 = ╱ef╱$╱ // 0x1f7f @0x12
0x1f6d…1f86 at0013 = ╱dc╱=╱ // 0x1f80 @0x13
0x1f6d…1f86 at0014 = ╱22╱"╱ // 0x1f81 @0x14
0x1f6d…1f86 at0015 = ╱30╱0╱ // 0x1f82 @0x15
0x1f6d…1f86 at0016 = ╱2b╱+╱ // 0x1f83 @0x16
0x1f6d…1f86 at0017 = ╱22╱"╱ // 0x1f84 @0x17
0x1f6d…1f86 at0018 = EOL // 0x1f85 @0x18
0x1f6d…1f86 }
0x1f86…1fcc ad23 3820 STREG$="-----------------------------------";STREG$=STREG$+STREG$
0x1f86…1fcc LineComalBin {
0x1f86…1fcc ptr = 0xad23 // 0x1f86 @0x0
0x1f86…1fcc lno = 0x0eec // 0x1f88 @0x2
0x1f86…1fcc at0004 = ╱53╱S╱ // 0x1f8a @0x4
0x1f86…1fcc at0005 = ╱54╱T╱ // 0x1f8b @0x5
0x1f86…1fcc at0006 = ╱52╱R╱ // 0x1f8c @0x6
0x1f86…1fcc at0007 = ╱45╱E╱ // 0x1f8d @0x7
0x1f86…1fcc at0008 = ╱47╱G╱ // 0x1f8e @0x8
0x1f86…1fcc at0009 = ╱ef╱$╱ // 0x1f8f @0x9
0x1f86…1fcc at000a = ╱dc╱=╱ // 0x1f90 @0xa
0x1f86…1fcc at000b = ╱22╱"╱ // 0x1f91 @0xb
0x1f86…1fcc at000c = ╱2d╱-╱ // 0x1f92 @0xc
0x1f86…1fcc at000d = ╱2d╱-╱ // 0x1f93 @0xd
0x1f86…1fcc at000e = ╱2d╱-╱ // 0x1f94 @0xe
0x1f86…1fcc at000f = ╱2d╱-╱ // 0x1f95 @0xf
0x1f86…1fcc at0010 = ╱2d╱-╱ // 0x1f96 @0x10
0x1f86…1fcc at0011 = ╱2d╱-╱ // 0x1f97 @0x11
0x1f86…1fcc at0012 = ╱2d╱-╱ // 0x1f98 @0x12
0x1f86…1fcc at0013 = ╱2d╱-╱ // 0x1f99 @0x13
0x1f86…1fcc at0014 = ╱2d╱-╱ // 0x1f9a @0x14
0x1f86…1fcc at0015 = ╱2d╱-╱ // 0x1f9b @0x15
0x1f86…1fcc at0016 = ╱2d╱-╱ // 0x1f9c @0x16
0x1f86…1fcc at0017 = ╱2d╱-╱ // 0x1f9d @0x17
0x1f86…1fcc at0018 = ╱2d╱-╱ // 0x1f9e @0x18
0x1f86…1fcc at0019 = ╱2d╱-╱ // 0x1f9f @0x19
0x1f86…1fcc at001a = ╱2d╱-╱ // 0x1fa0 @0x1a
0x1f86…1fcc at001b = ╱2d╱-╱ // 0x1fa1 @0x1b
0x1f86…1fcc at001c = ╱2d╱-╱ // 0x1fa2 @0x1c
0x1f86…1fcc at001d = ╱2d╱-╱ // 0x1fa3 @0x1d
0x1f86…1fcc at001e = ╱2d╱-╱ // 0x1fa4 @0x1e
0x1f86…1fcc at001f = ╱2d╱-╱ // 0x1fa5 @0x1f
0x1f86…1fcc at0020 = ╱2d╱-╱ // 0x1fa6 @0x20
0x1f86…1fcc at0021 = ╱2d╱-╱ // 0x1fa7 @0x21
0x1f86…1fcc at0022 = ╱2d╱-╱ // 0x1fa8 @0x22
0x1f86…1fcc at0023 = ╱2d╱-╱ // 0x1fa9 @0x23
0x1f86…1fcc at0024 = ╱2d╱-╱ // 0x1faa @0x24
0x1f86…1fcc at0025 = ╱2d╱-╱ // 0x1fab @0x25
0x1f86…1fcc at0026 = ╱2d╱-╱ // 0x1fac @0x26
0x1f86…1fcc at0027 = ╱2d╱-╱ // 0x1fad @0x27
0x1f86…1fcc at0028 = ╱2d╱-╱ // 0x1fae @0x28
0x1f86…1fcc at0029 = ╱2d╱-╱ // 0x1faf @0x29
0x1f86…1fcc at002a = ╱2d╱-╱ // 0x1fb0 @0x2a
0x1f86…1fcc at002b = ╱2d╱-╱ // 0x1fb1 @0x2b
0x1f86…1fcc at002c = ╱2d╱-╱ // 0x1fb2 @0x2c
0x1f86…1fcc at002d = ╱2d╱-╱ // 0x1fb3 @0x2d
0x1f86…1fcc at002e = ╱2d╱-╱ // 0x1fb4 @0x2e
0x1f86…1fcc at002f = ╱22╱"╱ // 0x1fb5 @0x2f
0x1f86…1fcc at0030 = ╱eb╱;╱ // 0x1fb6 @0x30
0x1f86…1fcc at0031 = ╱53╱S╱ // 0x1fb7 @0x31
0x1f86…1fcc at0032 = ╱54╱T╱ // 0x1fb8 @0x32
0x1f86…1fcc at0033 = ╱52╱R╱ // 0x1fb9 @0x33
0x1f86…1fcc at0034 = ╱45╱E╱ // 0x1fba @0x34
0x1f86…1fcc at0035 = ╱47╱G╱ // 0x1fbb @0x35
0x1f86…1fcc at0036 = ╱ef╱$╱ // 0x1fbc @0x36
0x1f86…1fcc at0037 = ╱dc╱=╱ // 0x1fbd @0x37
0x1f86…1fcc at0038 = ╱53╱S╱ // 0x1fbe @0x38
0x1f86…1fcc at0039 = ╱54╱T╱ // 0x1fbf @0x39
0x1f86…1fcc at003a = ╱52╱R╱ // 0x1fc0 @0x3a
0x1f86…1fcc at003b = ╱45╱E╱ // 0x1fc1 @0x3b
0x1f86…1fcc at003c = ╱47╱G╱ // 0x1fc2 @0x3c
0x1f86…1fcc at003d = ╱ef╱$╱ // 0x1fc3 @0x3d
0x1f86…1fcc at003e = ╱f1╱+╱ // 0x1fc4 @0x3e
0x1f86…1fcc at003f = ╱53╱S╱ // 0x1fc5 @0x3f
0x1f86…1fcc at0040 = ╱54╱T╱ // 0x1fc6 @0x40
0x1f86…1fcc at0041 = ╱52╱R╱ // 0x1fc7 @0x41
0x1f86…1fcc at0042 = ╱45╱E╱ // 0x1fc8 @0x42
0x1f86…1fcc at0043 = ╱47╱G╱ // 0x1fc9 @0x43
0x1f86…1fcc at0044 = ╱ef╱$╱ // 0x1fca @0x44
0x1f86…1fcc at0045 = EOL // 0x1fcb @0x45
0x1f86…1fcc }
0x1fcc…1fd2 ad29 3830 REPEAT
0x1fcc…1fd2 LineComalBin {
0x1fcc…1fd2 ptr = 0xad29 // 0x1fcc @0x0
0x1fcc…1fd2 lno = 0x0ef6 // 0x1fce @0x2
0x1fcc…1fd2 at0004 = ╱97╱ REPEAT ╱ // 0x1fd0 @0x4
0x1fcc…1fd2 at0005 = EOL // 0x1fd1 @0x5
0x1fcc…1fd2 }
0x1fd2…1fd8 ad2f 3840 CLEAR
0x1fd2…1fd8 LineComalBin {
0x1fd2…1fd8 ptr = 0xad2f // 0x1fd2 @0x0
0x1fd2…1fd8 lno = 0x0f00 // 0x1fd4 @0x2
0x1fd2…1fd8 at0004 = ╱a0╱ CLEAR ╱ // 0x1fd6 @0x4
0x1fd2…1fd8 at0005 = EOL // 0x1fd7 @0x5
0x1fd2…1fd8 }
0x1fd8…1fe7 ad3e 3850 CURSOR 21,E
0x1fd8…1fe7 LineComalBin {
0x1fd8…1fe7 ptr = 0xad3e // 0x1fd8 @0x0
0x1fd8…1fe7 lno = 0x0f0a // 0x1fda @0x2
0x1fd8…1fe7 at0004 = ╱a1╱ CURSOR ╱ // 0x1fdc @0x4
0x1fd8…1fe7 at0005 = ╱32╱2╱ // 0x1fdd @0x5
0x1fd8…1fe7 at0006 = ╱31╱1╱ // 0x1fde @0x6
0x1fd8…1fe7 at0007 = ╱fe0000a805╱ // 0x1fdf @0x7
0x1fd8…1fe7 at000c = ╱ec╱,╱ // 0x1fe4 @0xc
0x1fd8…1fe7 at000d = ╱45╱E╱ // 0x1fe5 @0xd
0x1fd8…1fe7 at000e = EOL // 0x1fe6 @0xe
0x1fd8…1fe7 }
0x1fe7…2006 ad5d 3860 PRINT "Kreditorvedligeholdelse"
0x1fe7…2006 LineComalBin {
0x1fe7…2006 ptr = 0xad5d // 0x1fe7 @0x0
0x1fe7…2006 lno = 0x0f14 // 0x1fe9 @0x2
0x1fe7…2006 at0004 = ╱92╱ PRINT ╱ // 0x1feb @0x4
0x1fe7…2006 at0005 = ╱22╱"╱ // 0x1fec @0x5
0x1fe7…2006 at0006 = ╱4b╱K╱ // 0x1fed @0x6
0x1fe7…2006 at0007 = ╱72╱r╱ // 0x1fee @0x7
0x1fe7…2006 at0008 = ╱65╱e╱ // 0x1fef @0x8
0x1fe7…2006 at0009 = ╱64╱d╱ // 0x1ff0 @0x9
0x1fe7…2006 at000a = ╱69╱i╱ // 0x1ff1 @0xa
0x1fe7…2006 at000b = ╱74╱t╱ // 0x1ff2 @0xb
0x1fe7…2006 at000c = ╱6f╱o╱ // 0x1ff3 @0xc
0x1fe7…2006 at000d = ╱72╱r╱ // 0x1ff4 @0xd
0x1fe7…2006 at000e = ╱76╱v╱ // 0x1ff5 @0xe
0x1fe7…2006 at000f = ╱65╱e╱ // 0x1ff6 @0xf
0x1fe7…2006 at0010 = ╱64╱d╱ // 0x1ff7 @0x10
0x1fe7…2006 at0011 = ╱6c╱l╱ // 0x1ff8 @0x11
0x1fe7…2006 at0012 = ╱69╱i╱ // 0x1ff9 @0x12
0x1fe7…2006 at0013 = ╱67╱g╱ // 0x1ffa @0x13
0x1fe7…2006 at0014 = ╱65╱e╱ // 0x1ffb @0x14
0x1fe7…2006 at0015 = ╱68╱h╱ // 0x1ffc @0x15
0x1fe7…2006 at0016 = ╱6f╱o╱ // 0x1ffd @0x16
0x1fe7…2006 at0017 = ╱6c╱l╱ // 0x1ffe @0x17
0x1fe7…2006 at0018 = ╱64╱d╱ // 0x1fff @0x18
0x1fe7…2006 at0019 = ╱65╱e╱ // 0x2000 @0x19
0x1fe7…2006 at001a = ╱6c╱l╱ // 0x2001 @0x1a
0x1fe7…2006 at001b = ╱73╱s╱ // 0x2002 @0x1b
0x1fe7…2006 at001c = ╱65╱e╱ // 0x2003 @0x1c
0x1fe7…2006 at001d = ╱22╱"╱ // 0x2004 @0x1d
0x1fe7…2006 at001e = EOL // 0x2005 @0x1e
0x1fe7…2006 }
0x2006…200f ad66 3870 CURSOR G,V
0x2006…200f LineComalBin {
0x2006…200f ptr = 0xad66 // 0x2006 @0x0
0x2006…200f lno = 0x0f1e // 0x2008 @0x2
0x2006…200f at0004 = ╱a1╱ CURSOR ╱ // 0x200a @0x4
0x2006…200f at0005 = ╱47╱G╱ // 0x200b @0x5
0x2006…200f at0006 = ╱ec╱,╱ // 0x200c @0x6
0x2006…200f at0007 = ╱56╱V╱ // 0x200d @0x7
0x2006…200f at0008 = EOL // 0x200e @0x8
0x2006…200f }
0x200f…201f ad76 3880 PRINT "0:Færdig"
0x200f…201f LineComalBin {
0x200f…201f ptr = 0xad76 // 0x200f @0x0
0x200f…201f lno = 0x0f28 // 0x2011 @0x2
0x200f…201f at0004 = ╱92╱ PRINT ╱ // 0x2013 @0x4
0x200f…201f at0005 = ╱22╱"╱ // 0x2014 @0x5
0x200f…201f at0006 = ╱30╱0╱ // 0x2015 @0x6
0x200f…201f at0007 = ╱3a╱:╱ // 0x2016 @0x7
0x200f…201f at0008 = ╱46╱F╱ // 0x2017 @0x8
0x200f…201f at0009 = ╱7b╱æ╱ // 0x2018 @0x9
0x200f…201f at000a = ╱72╱r╱ // 0x2019 @0xa
0x200f…201f at000b = ╱64╱d╱ // 0x201a @0xb
0x200f…201f at000c = ╱69╱i╱ // 0x201b @0xc
0x200f…201f at000d = ╱67╱g╱ // 0x201c @0xd
0x200f…201f at000e = ╱22╱"╱ // 0x201d @0xe
0x200f…201f at000f = EOL // 0x201e @0xf
0x200f…201f }
0x201f…202d ad84 3890 CURSOR G,5
0x201f…202d LineComalBin {
0x201f…202d ptr = 0xad84 // 0x201f @0x0
0x201f…202d lno = 0x0f32 // 0x2021 @0x2
0x201f…202d at0004 = ╱a1╱ CURSOR ╱ // 0x2023 @0x4
0x201f…202d at0005 = ╱47╱G╱ // 0x2024 @0x5
0x201f…202d at0006 = ╱ec╱,╱ // 0x2025 @0x6
0x201f…202d at0007 = ╱35╱5╱ // 0x2026 @0x7
0x201f…202d at0008 = ╱fe0000a003╱ // 0x2027 @0x8
0x201f…202d at000d = EOL // 0x202c @0xd
0x201f…202d }
0x202d…2041 ad98 3900 PRINT "1:Oprettelse"
0x202d…2041 LineComalBin {
0x202d…2041 ptr = 0xad98 // 0x202d @0x0
0x202d…2041 lno = 0x0f3c // 0x202f @0x2
0x202d…2041 at0004 = ╱92╱ PRINT ╱ // 0x2031 @0x4
0x202d…2041 at0005 = ╱22╱"╱ // 0x2032 @0x5
0x202d…2041 at0006 = ╱31╱1╱ // 0x2033 @0x6
0x202d…2041 at0007 = ╱3a╱:╱ // 0x2034 @0x7
0x202d…2041 at0008 = ╱4f╱O╱ // 0x2035 @0x8
0x202d…2041 at0009 = ╱70╱p╱ // 0x2036 @0x9
0x202d…2041 at000a = ╱72╱r╱ // 0x2037 @0xa
0x202d…2041 at000b = ╱65╱e╱ // 0x2038 @0xb
0x202d…2041 at000c = ╱74╱t╱ // 0x2039 @0xc
0x202d…2041 at000d = ╱74╱t╱ // 0x203a @0xd
0x202d…2041 at000e = ╱65╱e╱ // 0x203b @0xe
0x202d…2041 at000f = ╱6c╱l╱ // 0x203c @0xf
0x202d…2041 at0010 = ╱73╱s╱ // 0x203d @0x10
0x202d…2041 at0011 = ╱65╱e╱ // 0x203e @0x11
0x202d…2041 at0012 = ╱22╱"╱ // 0x203f @0x12
0x202d…2041 at0013 = EOL // 0x2040 @0x13
0x202d…2041 }
0x2041…204f ada6 3910 CURSOR G,7
0x2041…204f LineComalBin {
0x2041…204f ptr = 0xada6 // 0x2041 @0x0
0x2041…204f lno = 0x0f46 // 0x2043 @0x2
0x2041…204f at0004 = ╱a1╱ CURSOR ╱ // 0x2045 @0x4
0x2041…204f at0005 = ╱47╱G╱ // 0x2046 @0x5
0x2041…204f at0006 = ╱ec╱,╱ // 0x2047 @0x6
0x2041…204f at0007 = ╱37╱7╱ // 0x2048 @0x7
0x2041…204f at0008 = ╱fe0000e003╱ // 0x2049 @0x8
0x2041…204f at000d = EOL // 0x204e @0xd
0x2041…204f }
0x204f…2060 adb7 3920 PRINT "2:Ændring"
0x204f…2060 LineComalBin {
0x204f…2060 ptr = 0xadb7 // 0x204f @0x0
0x204f…2060 lno = 0x0f50 // 0x2051 @0x2
0x204f…2060 at0004 = ╱92╱ PRINT ╱ // 0x2053 @0x4
0x204f…2060 at0005 = ╱22╱"╱ // 0x2054 @0x5
0x204f…2060 at0006 = ╱32╱2╱ // 0x2055 @0x6
0x204f…2060 at0007 = ╱3a╱:╱ // 0x2056 @0x7
0x204f…2060 at0008 = ╱5b╱Æ╱ // 0x2057 @0x8
0x204f…2060 at0009 = ╱6e╱n╱ // 0x2058 @0x9
0x204f…2060 at000a = ╱64╱d╱ // 0x2059 @0xa
0x204f…2060 at000b = ╱72╱r╱ // 0x205a @0xb
0x204f…2060 at000c = ╱69╱i╱ // 0x205b @0xc
0x204f…2060 at000d = ╱6e╱n╱ // 0x205c @0xd
0x204f…2060 at000e = ╱67╱g╱ // 0x205d @0xe
0x204f…2060 at000f = ╱22╱"╱ // 0x205e @0xf
0x204f…2060 at0010 = EOL // 0x205f @0x10
0x204f…2060 }
0x2060…2069 adc0 3930 CURSOR G,W
0x2060…2069 LineComalBin {
0x2060…2069 ptr = 0xadc0 // 0x2060 @0x0
0x2060…2069 lno = 0x0f5a // 0x2062 @0x2
0x2060…2069 at0004 = ╱a1╱ CURSOR ╱ // 0x2064 @0x4
0x2060…2069 at0005 = ╱47╱G╱ // 0x2065 @0x5
0x2060…2069 at0006 = ╱ec╱,╱ // 0x2066 @0x6
0x2060…2069 at0007 = ╱57╱W╱ // 0x2067 @0x7
0x2060…2069 at0008 = EOL // 0x2068 @0x8
0x2060…2069 }
0x2069…207b add2 3940 PRINT "3:Sletning"
0x2069…207b LineComalBin {
0x2069…207b ptr = 0xadd2 // 0x2069 @0x0
0x2069…207b lno = 0x0f64 // 0x206b @0x2
0x2069…207b at0004 = ╱92╱ PRINT ╱ // 0x206d @0x4
0x2069…207b at0005 = ╱22╱"╱ // 0x206e @0x5
0x2069…207b at0006 = ╱33╱3╱ // 0x206f @0x6
0x2069…207b at0007 = ╱3a╱:╱ // 0x2070 @0x7
0x2069…207b at0008 = ╱53╱S╱ // 0x2071 @0x8
0x2069…207b at0009 = ╱6c╱l╱ // 0x2072 @0x9
0x2069…207b at000a = ╱65╱e╱ // 0x2073 @0xa
0x2069…207b at000b = ╱74╱t╱ // 0x2074 @0xb
0x2069…207b at000c = ╱6e╱n╱ // 0x2075 @0xc
0x2069…207b at000d = ╱69╱i╱ // 0x2076 @0xd
0x2069…207b at000e = ╱6e╱n╱ // 0x2077 @0xe
0x2069…207b at000f = ╱67╱g╱ // 0x2078 @0xf
0x2069…207b at0010 = ╱22╱"╱ // 0x2079 @0x10
0x2069…207b at0011 = EOL // 0x207a @0x11
0x2069…207b }
0x207b…208a ade1 3950 CURSOR G,11
0x207b…208a LineComalBin {
0x207b…208a ptr = 0xade1 // 0x207b @0x0
0x207b…208a lno = 0x0f6e // 0x207d @0x2
0x207b…208a at0004 = ╱a1╱ CURSOR ╱ // 0x207f @0x4
0x207b…208a at0005 = ╱47╱G╱ // 0x2080 @0x5
0x207b…208a at0006 = ╱ec╱,╱ // 0x2081 @0x6
0x207b…208a at0007 = ╱31╱1╱ // 0x2082 @0x7
0x207b…208a at0008 = ╱31╱1╱ // 0x2083 @0x8
0x207b…208a at0009 = ╱fe0000b004╱ // 0x2084 @0x9
0x207b…208a at000e = EOL // 0x2089 @0xe
0x207b…208a }
0x208a…209c adf3 3960 PRINT "4:Udskrift"
0x208a…209c LineComalBin {
0x208a…209c ptr = 0xadf3 // 0x208a @0x0
0x208a…209c lno = 0x0f78 // 0x208c @0x2
0x208a…209c at0004 = ╱92╱ PRINT ╱ // 0x208e @0x4
0x208a…209c at0005 = ╱22╱"╱ // 0x208f @0x5
0x208a…209c at0006 = ╱34╱4╱ // 0x2090 @0x6
0x208a…209c at0007 = ╱3a╱:╱ // 0x2091 @0x7
0x208a…209c at0008 = ╱55╱U╱ // 0x2092 @0x8
0x208a…209c at0009 = ╱64╱d╱ // 0x2093 @0x9
0x208a…209c at000a = ╱73╱s╱ // 0x2094 @0xa
0x208a…209c at000b = ╱6b╱k╱ // 0x2095 @0xb
0x208a…209c at000c = ╱72╱r╱ // 0x2096 @0xc
0x208a…209c at000d = ╱69╱i╱ // 0x2097 @0xd
0x208a…209c at000e = ╱66╱f╱ // 0x2098 @0xe
0x208a…209c at000f = ╱74╱t╱ // 0x2099 @0xf
0x208a…209c at0010 = ╱22╱"╱ // 0x209a @0x10
0x208a…209c at0011 = EOL // 0x209b @0x11
0x208a…209c }
0x209c…20ab ae02 3970 CURSOR G,13
0x209c…20ab LineComalBin {
0x209c…20ab ptr = 0xae02 // 0x209c @0x0
0x209c…20ab lno = 0x0f82 // 0x209e @0x2
0x209c…20ab at0004 = ╱a1╱ CURSOR ╱ // 0x20a0 @0x4
0x209c…20ab at0005 = ╱47╱G╱ // 0x20a1 @0x5
0x209c…20ab at0006 = ╱ec╱,╱ // 0x20a2 @0x6
0x209c…20ab at0007 = ╱31╱1╱ // 0x20a3 @0x7
0x209c…20ab at0008 = ╱33╱3╱ // 0x20a4 @0x8
0x209c…20ab at0009 = ╱fe0000d004╱ // 0x20a5 @0x9
0x209c…20ab at000e = EOL // 0x20aa @0xe
0x209c…20ab }
0x20ab…20c7 ae1e 3980 PRINT "5:Kreditorkontoliste"
0x20ab…20c7 LineComalBin {
0x20ab…20c7 ptr = 0xae1e // 0x20ab @0x0
0x20ab…20c7 lno = 0x0f8c // 0x20ad @0x2
0x20ab…20c7 at0004 = ╱92╱ PRINT ╱ // 0x20af @0x4
0x20ab…20c7 at0005 = ╱22╱"╱ // 0x20b0 @0x5
0x20ab…20c7 at0006 = ╱35╱5╱ // 0x20b1 @0x6
0x20ab…20c7 at0007 = ╱3a╱:╱ // 0x20b2 @0x7
0x20ab…20c7 at0008 = ╱4b╱K╱ // 0x20b3 @0x8
0x20ab…20c7 at0009 = ╱72╱r╱ // 0x20b4 @0x9
0x20ab…20c7 at000a = ╱65╱e╱ // 0x20b5 @0xa
0x20ab…20c7 at000b = ╱64╱d╱ // 0x20b6 @0xb
0x20ab…20c7 at000c = ╱69╱i╱ // 0x20b7 @0xc
0x20ab…20c7 at000d = ╱74╱t╱ // 0x20b8 @0xd
0x20ab…20c7 at000e = ╱6f╱o╱ // 0x20b9 @0xe
0x20ab…20c7 at000f = ╱72╱r╱ // 0x20ba @0xf
0x20ab…20c7 at0010 = ╱6b╱k╱ // 0x20bb @0x10
0x20ab…20c7 at0011 = ╱6f╱o╱ // 0x20bc @0x11
0x20ab…20c7 at0012 = ╱6e╱n╱ // 0x20bd @0x12
0x20ab…20c7 at0013 = ╱74╱t╱ // 0x20be @0x13
0x20ab…20c7 at0014 = ╱6f╱o╱ // 0x20bf @0x14
0x20ab…20c7 at0015 = ╱6c╱l╱ // 0x20c0 @0x15
0x20ab…20c7 at0016 = ╱69╱i╱ // 0x20c1 @0x16
0x20ab…20c7 at0017 = ╱73╱s╱ // 0x20c2 @0x17
0x20ab…20c7 at0018 = ╱74╱t╱ // 0x20c3 @0x18
0x20ab…20c7 at0019 = ╱65╱e╱ // 0x20c4 @0x19
0x20ab…20c7 at001a = ╱22╱"╱ // 0x20c5 @0x1a
0x20ab…20c7 at001b = EOL // 0x20c6 @0x1b
0x20ab…20c7 }
0x20c7…20cd ae24 3990 REPEAT
0x20c7…20cd LineComalBin {
0x20c7…20cd ptr = 0xae24 // 0x20c7 @0x0
0x20c7…20cd lno = 0x0f96 // 0x20c9 @0x2
0x20c7…20cd at0004 = ╱97╱ REPEAT ╱ // 0x20cb @0x4
0x20c7…20cd at0005 = EOL // 0x20cc @0x5
0x20c7…20cd }
0x20cd…20e1 ae38 4000 CURSOR 4,15
0x20cd…20e1 LineComalBin {
0x20cd…20e1 ptr = 0xae38 // 0x20cd @0x0
0x20cd…20e1 lno = 0x0fa0 // 0x20cf @0x2
0x20cd…20e1 at0004 = ╱a1╱ CURSOR ╱ // 0x20d1 @0x4
0x20cd…20e1 at0005 = ╱34╱4╱ // 0x20d2 @0x5
0x20cd…20e1 at0006 = ╱fe00008003╱ // 0x20d3 @0x6
0x20cd…20e1 at000b = ╱ec╱,╱ // 0x20d8 @0xb
0x20cd…20e1 at000c = ╱31╱1╱ // 0x20d9 @0xc
0x20cd…20e1 at000d = ╱35╱5╱ // 0x20da @0xd
0x20cd…20e1 at000e = ╱fe0000f004╱ // 0x20db @0xe
0x20cd…20e1 at0013 = EOL // 0x20e0 @0x13
0x20cd…20e1 }
0x20e1…20fc ae53 4010 PRINT "Vælg type (0-5)"
0x20e1…20fc LineComalBin {
0x20e1…20fc ptr = 0xae53 // 0x20e1 @0x0
0x20e1…20fc lno = 0x0faa // 0x20e3 @0x2
0x20e1…20fc at0004 = ╱92╱ PRINT ╱ // 0x20e5 @0x4
0x20e1…20fc at0005 = ╱22╱"╱ // 0x20e6 @0x5
0x20e1…20fc at0006 = ╱56╱V╱ // 0x20e7 @0x6
0x20e1…20fc at0007 = ╱7b╱æ╱ // 0x20e8 @0x7
0x20e1…20fc at0008 = ╱6c╱l╱ // 0x20e9 @0x8
0x20e1…20fc at0009 = ╱67╱g╱ // 0x20ea @0x9
0x20e1…20fc at000a = ╱20╱…╱ // 0x20eb @0xa
0x20e1…20fc at000b = ╱74╱t╱ // 0x20ec @0xb
0x20e1…20fc at000c = ╱79╱y╱ // 0x20ed @0xc
0x20e1…20fc at000d = ╱70╱p╱ // 0x20ee @0xd
0x20e1…20fc at000e = ╱65╱e╱ // 0x20ef @0xe
0x20e1…20fc at000f = ╱20╱…╱ // 0x20f0 @0xf
0x20e1…20fc at0010 = ╱20╱…╱ // 0x20f1 @0x10
0x20e1…20fc at0011 = ╱20╱…╱ // 0x20f2 @0x11
0x20e1…20fc at0012 = ╱20╱…╱ // 0x20f3 @0x12
0x20e1…20fc at0013 = ╱20╱…╱ // 0x20f4 @0x13
0x20e1…20fc at0014 = ╱28╱(╱ // 0x20f5 @0x14
0x20e1…20fc at0015 = ╱30╱0╱ // 0x20f6 @0x15
0x20e1…20fc at0016 = ╱2d╱-╱ // 0x20f7 @0x16
0x20e1…20fc at0017 = ╱35╱5╱ // 0x20f8 @0x17
0x20e1…20fc at0018 = ╱29╱)╱ // 0x20f9 @0x18
0x20e1…20fc at0019 = ╱22╱"╱ // 0x20fa @0x19
0x20e1…20fc at001a = EOL // 0x20fb @0x1a
0x20e1…20fc }
0x20fc…2111 ae68 4020 CURSOR 14,15
0x20fc…2111 LineComalBin {
0x20fc…2111 ptr = 0xae68 // 0x20fc @0x0
0x20fc…2111 lno = 0x0fb4 // 0x20fe @0x2
0x20fc…2111 at0004 = ╱a1╱ CURSOR ╱ // 0x2100 @0x4
0x20fc…2111 at0005 = ╱31╱1╱ // 0x2101 @0x5
0x20fc…2111 at0006 = ╱34╱4╱ // 0x2102 @0x6
0x20fc…2111 at0007 = ╱fe0000e004╱ // 0x2103 @0x7
0x20fc…2111 at000c = ╱ec╱,╱ // 0x2108 @0xc
0x20fc…2111 at000d = ╱31╱1╱ // 0x2109 @0xd
0x20fc…2111 at000e = ╱35╱5╱ // 0x210a @0xe
0x20fc…2111 at000f = ╱fe0000f004╱ // 0x210b @0xf
0x20fc…2111 at0014 = EOL // 0x2110 @0x14
0x20fc…2111 }
0x2111…211a ae71 4030 INPUT TY$
0x2111…211a LineComalBin {
0x2111…211a ptr = 0xae71 // 0x2111 @0x0
0x2111…211a lno = 0x0fbe // 0x2113 @0x2
0x2111…211a at0004 = ╱91╱ INPUT ╱ // 0x2115 @0x4
0x2111…211a at0005 = ╱54╱T╱ // 0x2116 @0x5
0x2111…211a at0006 = ╱59╱Y╱ // 0x2117 @0x6
0x2111…211a at0007 = ╱ef╱$╱ // 0x2118 @0x7
0x2111…211a at0008 = EOL // 0x2119 @0x8
0x2111…211a }
0x211a…212b ae82 4040 EXEC NRTEST(TY$)
0x211a…212b LineComalBin {
0x211a…212b ptr = 0xae82 // 0x211a @0x0
0x211a…212b lno = 0x0fc8 // 0x211c @0x2
0x211a…212b at0004 = ╱9d╱ EXEC ╱ // 0x211e @0x4
0x211a…212b at0005 = ╱4e╱N╱ // 0x211f @0x5
0x211a…212b at0006 = ╱52╱R╱ // 0x2120 @0x6
0x211a…212b at0007 = ╱54╱T╱ // 0x2121 @0x7
0x211a…212b at0008 = ╱45╱E╱ // 0x2122 @0x8
0x211a…212b at0009 = ╱53╱S╱ // 0x2123 @0x9
0x211a…212b at000a = ╱54╱T╱ // 0x2124 @0xa
0x211a…212b at000b = ╱ed╱(╱ // 0x2125 @0xb
0x211a…212b at000c = ╱54╱T╱ // 0x2126 @0xc
0x211a…212b at000d = ╱59╱Y╱ // 0x2127 @0xd
0x211a…212b at000e = ╱ef╱$╱ // 0x2128 @0xe
0x211a…212b at000f = ╱ee╱)╱ // 0x2129 @0xf
0x211a…212b at0010 = EOL // 0x212a @0x10
0x211a…212b }
0x212b…213e ae95 4050 UNTIL P>-E AND P<6
0x212b…213e LineComalBin {
0x212b…213e ptr = 0xae95 // 0x212b @0x0
0x212b…213e lno = 0x0fd2 // 0x212d @0x2
0x212b…213e at0004 = ╱98╱ UNTIL ╱ // 0x212f @0x4
0x212b…213e at0005 = ╱50╱P╱ // 0x2130 @0x5
0x212b…213e at0006 = ╱de╱>╱ // 0x2131 @0x6
0x212b…213e at0007 = ╱e9╱-╱ // 0x2132 @0x7
0x212b…213e at0008 = ╱45╱E╱ // 0x2133 @0x8
0x212b…213e at0009 = ╱da╱ AND ╱ // 0x2134 @0x9
0x212b…213e at000a = ╱50╱P╱ // 0x2135 @0xa
0x212b…213e at000b = ╱dd╱<╱ // 0x2136 @0xb
0x212b…213e at000c = ╱36╱6╱ // 0x2137 @0xc
0x212b…213e at000d = ╱fe0000c003╱ // 0x2138 @0xd
0x212b…213e at0012 = EOL // 0x213d @0x12
0x212b…213e }
0x213e…2149 aea0 4060 TYPE=P
0x213e…2149 LineComalBin {
0x213e…2149 ptr = 0xaea0 // 0x213e @0x0
0x213e…2149 lno = 0x0fdc // 0x2140 @0x2
0x213e…2149 at0004 = ╱54╱T╱ // 0x2142 @0x4
0x213e…2149 at0005 = ╱59╱Y╱ // 0x2143 @0x5
0x213e…2149 at0006 = ╱50╱P╱ // 0x2144 @0x6
0x213e…2149 at0007 = ╱45╱E╱ // 0x2145 @0x7
0x213e…2149 at0008 = ╱dc╱=╱ // 0x2146 @0x8
0x213e…2149 at0009 = ╱50╱P╱ // 0x2147 @0x9
0x213e…2149 at000a = EOL // 0x2148 @0xa
0x213e…2149 }
0x2149…2157 aeae 4070 IF TYPE=B THEN EXIT
0x2149…2157 LineComalBin {
0x2149…2157 ptr = 0xaeae // 0x2149 @0x0
0x2149…2157 lno = 0x0fe6 // 0x214b @0x2
0x2149…2157 at0004 = ╱82╱ IF ╱ // 0x214d @0x4
0x2149…2157 at0005 = ╱54╱T╱ // 0x214e @0x5
0x2149…2157 at0006 = ╱59╱Y╱ // 0x214f @0x6
0x2149…2157 at0007 = ╱50╱P╱ // 0x2150 @0x7
0x2149…2157 at0008 = ╱45╱E╱ // 0x2151 @0x8
0x2149…2157 at0009 = ╱dc╱=╱ // 0x2152 @0x9
0x2149…2157 at000a = ╱42╱B╱ // 0x2153 @0xa
0x2149…2157 at000b = ╱b6╱ THEN ╱ // 0x2154 @0xb
0x2149…2157 at000c = ╱99╱ EXIT ╱ // 0x2155 @0xc
0x2149…2157 at000d = EOL // 0x2156 @0xd
0x2149…2157 }
0x2157…215d aeb4 4080 REPEAT
0x2157…215d LineComalBin {
0x2157…215d ptr = 0xaeb4 // 0x2157 @0x0
0x2157…215d lno = 0x0ff0 // 0x2159 @0x2
0x2157…215d at0004 = ╱97╱ REPEAT ╱ // 0x215b @0x4
0x2157…215d at0005 = EOL // 0x215c @0x5
0x2157…215d }
0x215d…216c aec3 4090 EXEC VERSKRIFT
0x215d…216c LineComalBin {
0x215d…216c ptr = 0xaec3 // 0x215d @0x0
0x215d…216c lno = 0x0ffa // 0x215f @0x2
0x215d…216c at0004 = ╱9d╱ EXEC ╱ // 0x2161 @0x4
0x215d…216c at0005 = ╱56╱V╱ // 0x2162 @0x5
0x215d…216c at0006 = ╱45╱E╱ // 0x2163 @0x6
0x215d…216c at0007 = ╱52╱R╱ // 0x2164 @0x7
0x215d…216c at0008 = ╱53╱S╱ // 0x2165 @0x8
0x215d…216c at0009 = ╱4b╱K╱ // 0x2166 @0x9
0x215d…216c at000a = ╱52╱R╱ // 0x2167 @0xa
0x215d…216c at000b = ╱49╱I╱ // 0x2168 @0xb
0x215d…216c at000c = ╱46╱F╱ // 0x2169 @0xc
0x215d…216c at000d = ╱54╱T╱ // 0x216a @0xd
0x215d…216c at000e = EOL // 0x216b @0xe
0x215d…216c }
0x216c…217e aed5 4100 TEST=B;KONT=E
0x216c…217e LineComalBin {
0x216c…217e ptr = 0xaed5 // 0x216c @0x0
0x216c…217e lno = 0x1004 // 0x216e @0x2
0x216c…217e at0004 = ╱54╱T╱ // 0x2170 @0x4
0x216c…217e at0005 = ╱45╱E╱ // 0x2171 @0x5
0x216c…217e at0006 = ╱53╱S╱ // 0x2172 @0x6
0x216c…217e at0007 = ╱54╱T╱ // 0x2173 @0x7
0x216c…217e at0008 = ╱dc╱=╱ // 0x2174 @0x8
0x216c…217e at0009 = ╱42╱B╱ // 0x2175 @0x9
0x216c…217e at000a = ╱eb╱;╱ // 0x2176 @0xa
0x216c…217e at000b = ╱4b╱K╱ // 0x2177 @0xb
0x216c…217e at000c = ╱4f╱O╱ // 0x2178 @0xc
0x216c…217e at000d = ╱4e╱N╱ // 0x2179 @0xd
0x216c…217e at000e = ╱54╱T╱ // 0x217a @0xe
0x216c…217e at000f = ╱dc╱=╱ // 0x217b @0xf
0x216c…217e at0010 = ╱45╱E╱ // 0x217c @0x10
0x216c…217e at0011 = EOL // 0x217d @0x11
0x216c…217e }
0x217e…2190 aee7 4110 IF TYPE<5 THEN
0x217e…2190 LineComalBin {
0x217e…2190 ptr = 0xaee7 // 0x217e @0x0
0x217e…2190 lno = 0x100e // 0x2180 @0x2
0x217e…2190 at0004 = ╱9c╱ IF ╱ // 0x2182 @0x4
0x217e…2190 at0005 = ╱54╱T╱ // 0x2183 @0x5
0x217e…2190 at0006 = ╱59╱Y╱ // 0x2184 @0x6
0x217e…2190 at0007 = ╱50╱P╱ // 0x2185 @0x7
0x217e…2190 at0008 = ╱45╱E╱ // 0x2186 @0x8
0x217e…2190 at0009 = ╱dd╱<╱ // 0x2187 @0x9
0x217e…2190 at000a = ╱35╱5╱ // 0x2188 @0xa
0x217e…2190 at000b = ╱fe0000a003╱ // 0x2189 @0xb
0x217e…2190 at0010 = ╱b6╱ THEN ╱ // 0x218e @0x10
0x217e…2190 at0011 = EOL // 0x218f @0x11
0x217e…2190 }
0x2190…2196 aeed 4120 REPEAT
0x2190…2196 LineComalBin {
0x2190…2196 ptr = 0xaeed // 0x2190 @0x0
0x2190…2196 lno = 0x1018 // 0x2192 @0x2
0x2190…2196 at0004 = ╱97╱ REPEAT ╱ // 0x2194 @0x4
0x2190…2196 at0005 = EOL // 0x2195 @0x5
0x2190…2196 }
0x2196…219c aef3 4130 REPEAT
0x2196…219c LineComalBin {
0x2196…219c ptr = 0xaef3 // 0x2196 @0x0
0x2196…219c lno = 0x1022 // 0x2198 @0x2
0x2196…219c at0004 = ╱97╱ REPEAT ╱ // 0x219a @0x4
0x2196…219c at0005 = EOL // 0x219b @0x5
0x2196…219c }
0x219c…21ab af02 4140 CURSOR V,23
0x219c…21ab LineComalBin {
0x219c…21ab ptr = 0xaf02 // 0x219c @0x0
0x219c…21ab lno = 0x102c // 0x219e @0x2
0x219c…21ab at0004 = ╱a1╱ CURSOR ╱ // 0x21a0 @0x4
0x219c…21ab at0005 = ╱56╱V╱ // 0x21a1 @0x5
0x219c…21ab at0006 = ╱ec╱,╱ // 0x21a2 @0x6
0x219c…21ab at0007 = ╱32╱2╱ // 0x21a3 @0x7
0x219c…21ab at0008 = ╱33╱3╱ // 0x21a4 @0x8
0x219c…21ab at0009 = ╱fe0000b805╱ // 0x21a5 @0x9
0x219c…21ab at000e = EOL // 0x21aa @0xe
0x219c…21ab }
0x21ab…21ee af45 4150 PRINT "Indtast kreditornr (0:for færdig)";BLANK$(E:35)
0x21ab…21ee LineComalBin {
0x21ab…21ee ptr = 0xaf45 // 0x21ab @0x0
0x21ab…21ee lno = 0x1036 // 0x21ad @0x2
0x21ab…21ee at0004 = ╱92╱ PRINT ╱ // 0x21af @0x4
0x21ab…21ee at0005 = ╱22╱"╱ // 0x21b0 @0x5
0x21ab…21ee at0006 = ╱49╱I╱ // 0x21b1 @0x6
0x21ab…21ee at0007 = ╱6e╱n╱ // 0x21b2 @0x7
0x21ab…21ee at0008 = ╱64╱d╱ // 0x21b3 @0x8
0x21ab…21ee at0009 = ╱74╱t╱ // 0x21b4 @0x9
0x21ab…21ee at000a = ╱61╱a╱ // 0x21b5 @0xa
0x21ab…21ee at000b = ╱73╱s╱ // 0x21b6 @0xb
0x21ab…21ee at000c = ╱74╱t╱ // 0x21b7 @0xc
0x21ab…21ee at000d = ╱20╱…╱ // 0x21b8 @0xd
0x21ab…21ee at000e = ╱6b╱k╱ // 0x21b9 @0xe
0x21ab…21ee at000f = ╱72╱r╱ // 0x21ba @0xf
0x21ab…21ee at0010 = ╱65╱e╱ // 0x21bb @0x10
0x21ab…21ee at0011 = ╱64╱d╱ // 0x21bc @0x11
0x21ab…21ee at0012 = ╱69╱i╱ // 0x21bd @0x12
0x21ab…21ee at0013 = ╱74╱t╱ // 0x21be @0x13
0x21ab…21ee at0014 = ╱6f╱o╱ // 0x21bf @0x14
0x21ab…21ee at0015 = ╱72╱r╱ // 0x21c0 @0x15
0x21ab…21ee at0016 = ╱6e╱n╱ // 0x21c1 @0x16
0x21ab…21ee at0017 = ╱72╱r╱ // 0x21c2 @0x17
0x21ab…21ee at0018 = ╱20╱…╱ // 0x21c3 @0x18
0x21ab…21ee at0019 = ╱20╱…╱ // 0x21c4 @0x19
0x21ab…21ee at001a = ╱20╱…╱ // 0x21c5 @0x1a
0x21ab…21ee at001b = ╱20╱…╱ // 0x21c6 @0x1b
0x21ab…21ee at001c = ╱20╱…╱ // 0x21c7 @0x1c
0x21ab…21ee at001d = ╱20╱…╱ // 0x21c8 @0x1d
0x21ab…21ee at001e = ╱20╱…╱ // 0x21c9 @0x1e
0x21ab…21ee at001f = ╱20╱…╱ // 0x21ca @0x1f
0x21ab…21ee at0020 = ╱20╱…╱ // 0x21cb @0x20
0x21ab…21ee at0021 = ╱28╱(╱ // 0x21cc @0x21
0x21ab…21ee at0022 = ╱30╱0╱ // 0x21cd @0x22
0x21ab…21ee at0023 = ╱3a╱:╱ // 0x21ce @0x23
0x21ab…21ee at0024 = ╱66╱f╱ // 0x21cf @0x24
0x21ab…21ee at0025 = ╱6f╱o╱ // 0x21d0 @0x25
0x21ab…21ee at0026 = ╱72╱r╱ // 0x21d1 @0x26
0x21ab…21ee at0027 = ╱20╱…╱ // 0x21d2 @0x27
0x21ab…21ee at0028 = ╱66╱f╱ // 0x21d3 @0x28
0x21ab…21ee at0029 = ╱7b╱æ╱ // 0x21d4 @0x29
0x21ab…21ee at002a = ╱72╱r╱ // 0x21d5 @0x2a
0x21ab…21ee at002b = ╱64╱d╱ // 0x21d6 @0x2b
0x21ab…21ee at002c = ╱69╱i╱ // 0x21d7 @0x2c
0x21ab…21ee at002d = ╱67╱g╱ // 0x21d8 @0x2d
0x21ab…21ee at002e = ╱29╱)╱ // 0x21d9 @0x2e
0x21ab…21ee at002f = ╱22╱"╱ // 0x21da @0x2f
0x21ab…21ee at0030 = ╱eb╱;╱ // 0x21db @0x30
0x21ab…21ee at0031 = ╱42╱B╱ // 0x21dc @0x31
0x21ab…21ee at0032 = ╱4c╱L╱ // 0x21dd @0x32
0x21ab…21ee at0033 = ╱41╱A╱ // 0x21de @0x33
0x21ab…21ee at0034 = ╱4e╱N╱ // 0x21df @0x34
0x21ab…21ee at0035 = ╱4b╱K╱ // 0x21e0 @0x35
0x21ab…21ee at0036 = ╱ef╱$╱ // 0x21e1 @0x36
0x21ab…21ee at0037 = ╱ed╱(╱ // 0x21e2 @0x37
0x21ab…21ee at0038 = ╱45╱E╱ // 0x21e3 @0x38
0x21ab…21ee at0039 = ╱f0╱:╱ // 0x21e4 @0x39
0x21ab…21ee at003a = ╱33╱3╱ // 0x21e5 @0x3a
0x21ab…21ee at003b = ╱35╱5╱ // 0x21e6 @0x3b
0x21ab…21ee at003c = ╱fe00008c06╱ // 0x21e7 @0x3c
0x21ab…21ee at0041 = ╱ee╱)╱ // 0x21ec @0x41
0x21ab…21ee at0042 = EOL // 0x21ed @0x42
0x21ab…21ee }
0x21ee…2203 af5a 4160 CURSOR 22,23
0x21ee…2203 LineComalBin {
0x21ee…2203 ptr = 0xaf5a // 0x21ee @0x0
0x21ee…2203 lno = 0x1040 // 0x21f0 @0x2
0x21ee…2203 at0004 = ╱a1╱ CURSOR ╱ // 0x21f2 @0x4
0x21ee…2203 at0005 = ╱32╱2╱ // 0x21f3 @0x5
0x21ee…2203 at0006 = ╱32╱2╱ // 0x21f4 @0x6
0x21ee…2203 at0007 = ╱fe0000b005╱ // 0x21f5 @0x7
0x21ee…2203 at000c = ╱ec╱,╱ // 0x21fa @0xc
0x21ee…2203 at000d = ╱32╱2╱ // 0x21fb @0xd
0x21ee…2203 at000e = ╱33╱3╱ // 0x21fc @0xe
0x21ee…2203 at000f = ╱fe0000b805╱ // 0x21fd @0xf
0x21ee…2203 at0014 = EOL // 0x2202 @0x14
0x21ee…2203 }
0x2203…220d af64 4170 INPUT KTN$
0x2203…220d LineComalBin {
0x2203…220d ptr = 0xaf64 // 0x2203 @0x0
0x2203…220d lno = 0x104a // 0x2205 @0x2
0x2203…220d at0004 = ╱91╱ INPUT ╱ // 0x2207 @0x4
0x2203…220d at0005 = ╱4b╱K╱ // 0x2208 @0x5
0x2203…220d at0006 = ╱54╱T╱ // 0x2209 @0x6
0x2203…220d at0007 = ╱4e╱N╱ // 0x220a @0x7
0x2203…220d at0008 = ╱ef╱$╱ // 0x220b @0x8
0x2203…220d at0009 = EOL // 0x220c @0x9
0x2203…220d }
0x220d…221f af76 4180 EXEC NRTEST(KTN$)
0x220d…221f LineComalBin {
0x220d…221f ptr = 0xaf76 // 0x220d @0x0
0x220d…221f lno = 0x1054 // 0x220f @0x2
0x220d…221f at0004 = ╱9d╱ EXEC ╱ // 0x2211 @0x4
0x220d…221f at0005 = ╱4e╱N╱ // 0x2212 @0x5
0x220d…221f at0006 = ╱52╱R╱ // 0x2213 @0x6
0x220d…221f at0007 = ╱54╱T╱ // 0x2214 @0x7
0x220d…221f at0008 = ╱45╱E╱ // 0x2215 @0x8
0x220d…221f at0009 = ╱53╱S╱ // 0x2216 @0x9
0x220d…221f at000a = ╱54╱T╱ // 0x2217 @0xa
0x220d…221f at000b = ╱ed╱(╱ // 0x2218 @0xb
0x220d…221f at000c = ╱4b╱K╱ // 0x2219 @0xc
0x220d…221f at000d = ╱54╱T╱ // 0x221a @0xd
0x220d…221f at000e = ╱4e╱N╱ // 0x221b @0xe
0x220d…221f at000f = ╱ef╱$╱ // 0x221c @0xf
0x220d…221f at0010 = ╱ee╱)╱ // 0x221d @0x10
0x220d…221f at0011 = EOL // 0x221e @0x11
0x220d…221f }
0x221f…2255 afac 4190 UNTIL (TEST2=B AND KTAL=KRTAL AND KRTAL*1000+MKRGR<P) OR P=B
0x221f…2255 LineComalBin {
0x221f…2255 ptr = 0xafac // 0x221f @0x0
0x221f…2255 lno = 0x105e // 0x2221 @0x2
0x221f…2255 at0004 = ╱98╱ UNTIL ╱ // 0x2223 @0x4
0x221f…2255 at0005 = ╱ed╱(╱ // 0x2224 @0x5
0x221f…2255 at0006 = ╱54╱T╱ // 0x2225 @0x6
0x221f…2255 at0007 = ╱45╱E╱ // 0x2226 @0x7
0x221f…2255 at0008 = ╱53╱S╱ // 0x2227 @0x8
0x221f…2255 at0009 = ╱54╱T╱ // 0x2228 @0x9
0x221f…2255 at000a = ╱32╱2╱ // 0x2229 @0xa
0x221f…2255 at000b = ╱dc╱=╱ // 0x222a @0xb
0x221f…2255 at000c = ╱42╱B╱ // 0x222b @0xc
0x221f…2255 at000d = ╱da╱ AND ╱ // 0x222c @0xd
0x221f…2255 at000e = ╱4b╱K╱ // 0x222d @0xe
0x221f…2255 at000f = ╱54╱T╱ // 0x222e @0xf
0x221f…2255 at0010 = ╱41╱A╱ // 0x222f @0x10
0x221f…2255 at0011 = ╱4c╱L╱ // 0x2230 @0x11
0x221f…2255 at0012 = ╱dc╱=╱ // 0x2231 @0x12
0x221f…2255 at0013 = ╱4b╱K╱ // 0x2232 @0x13
0x221f…2255 at0014 = ╱52╱R╱ // 0x2233 @0x14
0x221f…2255 at0015 = ╱54╱T╱ // 0x2234 @0x15
0x221f…2255 at0016 = ╱41╱A╱ // 0x2235 @0x16
0x221f…2255 at0017 = ╱4c╱L╱ // 0x2236 @0x17
0x221f…2255 at0018 = ╱da╱ AND ╱ // 0x2237 @0x18
0x221f…2255 at0019 = ╱4b╱K╱ // 0x2238 @0x19
0x221f…2255 at001a = ╱52╱R╱ // 0x2239 @0x1a
0x221f…2255 at001b = ╱54╱T╱ // 0x223a @0x1b
0x221f…2255 at001c = ╱41╱A╱ // 0x223b @0x1c
0x221f…2255 at001d = ╱4c╱L╱ // 0x223c @0x1d
0x221f…2255 at001e = ╱e4╱*╱ // 0x223d @0x1e
0x221f…2255 at001f = ╱31╱1╱ // 0x223e @0x1f
0x221f…2255 at0020 = ╱30╱0╱ // 0x223f @0x20
0x221f…2255 at0021 = ╱30╱0╱ // 0x2240 @0x21
0x221f…2255 at0022 = ╱30╱0╱ // 0x2241 @0x22
0x221f…2255 at0023 = ╱fe0000fa0a╱ // 0x2242 @0x23
0x221f…2255 at0028 = ╱e2╱+╱ // 0x2247 @0x28
0x221f…2255 at0029 = ╱4d╱M╱ // 0x2248 @0x29
0x221f…2255 at002a = ╱4b╱K╱ // 0x2249 @0x2a
0x221f…2255 at002b = ╱52╱R╱ // 0x224a @0x2b
0x221f…2255 at002c = ╱47╱G╱ // 0x224b @0x2c
0x221f…2255 at002d = ╱52╱R╱ // 0x224c @0x2d
0x221f…2255 at002e = ╱dd╱<╱ // 0x224d @0x2e
0x221f…2255 at002f = ╱50╱P╱ // 0x224e @0x2f
0x221f…2255 at0030 = ╱ee╱)╱ // 0x224f @0x30
0x221f…2255 at0031 = ╱db╱ OR ╱ // 0x2250 @0x31
0x221f…2255 at0032 = ╱50╱P╱ // 0x2251 @0x32
0x221f…2255 at0033 = ╱dc╱=╱ // 0x2252 @0x33
0x221f…2255 at0034 = ╱42╱B╱ // 0x2253 @0x34
0x221f…2255 at0035 = EOL // 0x2254 @0x35
0x221f…2255 }
0x2255…2260 afb7 4200 KONT=P
0x2255…2260 LineComalBin {
0x2255…2260 ptr = 0xafb7 // 0x2255 @0x0
0x2255…2260 lno = 0x1068 // 0x2257 @0x2
0x2255…2260 at0004 = ╱4b╱K╱ // 0x2259 @0x4
0x2255…2260 at0005 = ╱4f╱O╱ // 0x225a @0x5
0x2255…2260 at0006 = ╱4e╱N╱ // 0x225b @0x6
0x2255…2260 at0007 = ╱54╱T╱ // 0x225c @0x7
0x2255…2260 at0008 = ╱dc╱=╱ // 0x225d @0x8
0x2255…2260 at0009 = ╱50╱P╱ // 0x225e @0x9
0x2255…2260 at000a = EOL // 0x225f @0xa
0x2255…2260 }
0x2260…226e afc5 4210 IF KONT=B THEN EXIT
0x2260…226e LineComalBin {
0x2260…226e ptr = 0xafc5 // 0x2260 @0x0
0x2260…226e lno = 0x1072 // 0x2262 @0x2
0x2260…226e at0004 = ╱82╱ IF ╱ // 0x2264 @0x4
0x2260…226e at0005 = ╱4b╱K╱ // 0x2265 @0x5
0x2260…226e at0006 = ╱4f╱O╱ // 0x2266 @0x6
0x2260…226e at0007 = ╱4e╱N╱ // 0x2267 @0x7
0x2260…226e at0008 = ╱54╱T╱ // 0x2268 @0x8
0x2260…226e at0009 = ╱dc╱=╱ // 0x2269 @0x9
0x2260…226e at000a = ╱42╱B╱ // 0x226a @0xa
0x2260…226e at000b = ╱b6╱ THEN ╱ // 0x226b @0xb
0x2260…226e at000c = ╱99╱ EXIT ╱ // 0x226c @0xc
0x2260…226e at000d = EOL // 0x226d @0xd
0x2260…226e }
0x226e…2292 afe9 4220 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)
0x226e…2292 LineComalBin {
0x226e…2292 ptr = 0xafe9 // 0x226e @0x0
0x226e…2292 lno = 0x107c // 0x2270 @0x2
0x226e…2292 at0004 = ╱9d╱ EXEC ╱ // 0x2272 @0x4
0x226e…2292 at0005 = ╱46╱F╱ // 0x2273 @0x5
0x226e…2292 at0006 = ╱49╱I╱ // 0x2274 @0x6
0x226e…2292 at0007 = ╱4e╱N╱ // 0x2275 @0x7
0x226e…2292 at0008 = ╱44╱D╱ // 0x2276 @0x8
0x226e…2292 at0009 = ╱50╱P╱ // 0x2277 @0x9
0x226e…2292 at000a = ╱4f╱O╱ // 0x2278 @0xa
0x226e…2292 at000b = ╱53╱S╱ // 0x2279 @0xb
0x226e…2292 at000c = ╱54╱T╱ // 0x227a @0xc
0x226e…2292 at000d = ╱ed╱(╱ // 0x227b @0xd
0x226e…2292 at000e = ╱4b╱K╱ // 0x227c @0xe
0x226e…2292 at000f = ╱54╱T╱ // 0x227d @0xf
0x226e…2292 at0010 = ╱41╱A╱ // 0x227e @0x10
0x226e…2292 at0011 = ╱42╱B╱ // 0x227f @0x11
0x226e…2292 at0012 = ╱ec╱,╱ // 0x2280 @0x12
0x226e…2292 at0013 = ╱4d╱M╱ // 0x2281 @0x13
0x226e…2292 at0014 = ╱4b╱K╱ // 0x2282 @0x14
0x226e…2292 at0015 = ╱41╱A╱ // 0x2283 @0x15
0x226e…2292 at0016 = ╱4e╱N╱ // 0x2284 @0x16
0x226e…2292 at0017 = ╱54╱T╱ // 0x2285 @0x17
0x226e…2292 at0018 = ╱41╱A╱ // 0x2286 @0x18
0x226e…2292 at0019 = ╱4c╱L╱ // 0x2287 @0x19
0x226e…2292 at001a = ╱ec╱,╱ // 0x2288 @0x1a
0x226e…2292 at001b = ╱50╱P╱ // 0x2289 @0x1b
0x226e…2292 at001c = ╱ec╱,╱ // 0x228a @0x1c
0x226e…2292 at001d = ╱4b╱K╱ // 0x228b @0x1d
0x226e…2292 at001e = ╱50╱P╱ // 0x228c @0x1e
0x226e…2292 at001f = ╱49╱I╱ // 0x228d @0x1f
0x226e…2292 at0020 = ╱4c╱L╱ // 0x228e @0x20
0x226e…2292 at0021 = ╱33╱3╱ // 0x228f @0x21
0x226e…2292 at0022 = ╱ee╱)╱ // 0x2290 @0x22
0x226e…2292 at0023 = EOL // 0x2291 @0x23
0x226e…2292 }
0x2292…2298 afef 4230 REPEAT
0x2292…2298 LineComalBin {
0x2292…2298 ptr = 0xafef // 0x2292 @0x0
0x2292…2298 lno = 0x1086 // 0x2294 @0x2
0x2292…2298 at0004 = ╱97╱ REPEAT ╱ // 0x2296 @0x4
0x2292…2298 at0005 = EOL // 0x2297 @0x5
0x2292…2298 }
0x2298…22ad b004 4240 CURSOR 44,23
0x2298…22ad LineComalBin {
0x2298…22ad ptr = 0xb004 // 0x2298 @0x0
0x2298…22ad lno = 0x1090 // 0x229a @0x2
0x2298…22ad at0004 = ╱a1╱ CURSOR ╱ // 0x229c @0x4
0x2298…22ad at0005 = ╱34╱4╱ // 0x229d @0x5
0x2298…22ad at0006 = ╱34╱4╱ // 0x229e @0x6
0x2298…22ad at0007 = ╱fe0000b006╱ // 0x229f @0x7
0x2298…22ad at000c = ╱ec╱,╱ // 0x22a4 @0xc
0x2298…22ad at000d = ╱32╱2╱ // 0x22a5 @0xd
0x2298…22ad at000e = ╱33╱3╱ // 0x22a6 @0xe
0x2298…22ad at000f = ╱fe0000b805╱ // 0x22a7 @0xf
0x2298…22ad at0014 = EOL // 0x22ac @0x14
0x2298…22ad }
0x22ad…22e0 b037 4250 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AKRE<MKANTAL) THEN
0x22ad…22e0 LineComalBin {
0x22ad…22e0 ptr = 0xb037 // 0x22ad @0x0
0x22ad…22e0 lno = 0x109a // 0x22af @0x2
0x22ad…22e0 at0004 = ╱9c╱ IF ╱ // 0x22b1 @0x4
0x22ad…22e0 at0005 = ╱ed╱(╱ // 0x22b2 @0x5
0x22ad…22e0 at0006 = ╱43╱C╱ // 0x22b3 @0x6
0x22ad…22e0 at0007 = ╱45╱E╱ // 0x22b4 @0x7
0x22ad…22e0 at0008 = ╱4b╱K╱ // 0x22b5 @0x8
0x22ad…22e0 at0009 = ╱53╱S╱ // 0x22b6 @0x9
0x22ad…22e0 at000a = ╱dc╱=╱ // 0x22b7 @0xa
0x22ad…22e0 at000b = ╱42╱B╱ // 0x22b8 @0xb
0x22ad…22e0 at000c = ╱da╱ AND ╱ // 0x22b9 @0xc
0x22ad…22e0 at000d = ╱54╱T╱ // 0x22ba @0xd
0x22ad…22e0 at000e = ╱59╱Y╱ // 0x22bb @0xe
0x22ad…22e0 at000f = ╱50╱P╱ // 0x22bc @0xf
0x22ad…22e0 at0010 = ╱45╱E╱ // 0x22bd @0x10
0x22ad…22e0 at0011 = ╱e1╱<>╱ // 0x22be @0x11
0x22ad…22e0 at0012 = ╱45╱E╱ // 0x22bf @0x12
0x22ad…22e0 at0013 = ╱ee╱)╱ // 0x22c0 @0x13
0x22ad…22e0 at0014 = ╱db╱ OR ╱ // 0x22c1 @0x14
0x22ad…22e0 at0015 = ╱ed╱(╱ // 0x22c2 @0x15
0x22ad…22e0 at0016 = ╱43╱C╱ // 0x22c3 @0x16
0x22ad…22e0 at0017 = ╱45╱E╱ // 0x22c4 @0x17
0x22ad…22e0 at0018 = ╱4b╱K╱ // 0x22c5 @0x18
0x22ad…22e0 at0019 = ╱53╱S╱ // 0x22c6 @0x19
0x22ad…22e0 at001a = ╱dc╱=╱ // 0x22c7 @0x1a
0x22ad…22e0 at001b = ╱45╱E╱ // 0x22c8 @0x1b
0x22ad…22e0 at001c = ╱da╱ AND ╱ // 0x22c9 @0x1c
0x22ad…22e0 at001d = ╱54╱T╱ // 0x22ca @0x1d
0x22ad…22e0 at001e = ╱59╱Y╱ // 0x22cb @0x1e
0x22ad…22e0 at001f = ╱50╱P╱ // 0x22cc @0x1f
0x22ad…22e0 at0020 = ╱45╱E╱ // 0x22cd @0x20
0x22ad…22e0 at0021 = ╱dc╱=╱ // 0x22ce @0x21
0x22ad…22e0 at0022 = ╱45╱E╱ // 0x22cf @0x22
0x22ad…22e0 at0023 = ╱da╱ AND ╱ // 0x22d0 @0x23
0x22ad…22e0 at0024 = ╱41╱A╱ // 0x22d1 @0x24
0x22ad…22e0 at0025 = ╱4b╱K╱ // 0x22d2 @0x25
0x22ad…22e0 at0026 = ╱52╱R╱ // 0x22d3 @0x26
0x22ad…22e0 at0027 = ╱45╱E╱ // 0x22d4 @0x27
0x22ad…22e0 at0028 = ╱dd╱<╱ // 0x22d5 @0x28
0x22ad…22e0 at0029 = ╱4d╱M╱ // 0x22d6 @0x29
0x22ad…22e0 at002a = ╱4b╱K╱ // 0x22d7 @0x2a
0x22ad…22e0 at002b = ╱41╱A╱ // 0x22d8 @0x2b
0x22ad…22e0 at002c = ╱4e╱N╱ // 0x22d9 @0x2c
0x22ad…22e0 at002d = ╱54╱T╱ // 0x22da @0x2d
0x22ad…22e0 at002e = ╱41╱A╱ // 0x22db @0x2e
0x22ad…22e0 at002f = ╱4c╱L╱ // 0x22dc @0x2f
0x22ad…22e0 at0030 = ╱ee╱)╱ // 0x22dd @0x30
0x22ad…22e0 at0031 = ╱b6╱ THEN ╱ // 0x22de @0x31
0x22ad…22e0 at0032 = EOL // 0x22df @0x32
0x22ad…22e0 }
0x22e0…22f7 b04e 4260 PRINT BLANK$(E:35)
0x22e0…22f7 LineComalBin {
0x22e0…22f7 ptr = 0xb04e // 0x22e0 @0x0
0x22e0…22f7 lno = 0x10a4 // 0x22e2 @0x2
0x22e0…22f7 at0004 = ╱92╱ PRINT ╱ // 0x22e4 @0x4
0x22e0…22f7 at0005 = ╱42╱B╱ // 0x22e5 @0x5
0x22e0…22f7 at0006 = ╱4c╱L╱ // 0x22e6 @0x6
0x22e0…22f7 at0007 = ╱41╱A╱ // 0x22e7 @0x7
0x22e0…22f7 at0008 = ╱4e╱N╱ // 0x22e8 @0x8
0x22e0…22f7 at0009 = ╱4b╱K╱ // 0x22e9 @0x9
0x22e0…22f7 at000a = ╱ef╱$╱ // 0x22ea @0xa
0x22e0…22f7 at000b = ╱ed╱(╱ // 0x22eb @0xb
0x22e0…22f7 at000c = ╱45╱E╱ // 0x22ec @0xc
0x22e0…22f7 at000d = ╱f0╱:╱ // 0x22ed @0xd
0x22e0…22f7 at000e = ╱33╱3╱ // 0x22ee @0xe
0x22e0…22f7 at000f = ╱35╱5╱ // 0x22ef @0xf
0x22e0…22f7 at0010 = ╱fe00008c06╱ // 0x22f0 @0x10
0x22e0…22f7 at0015 = ╱ee╱)╱ // 0x22f5 @0x15
0x22e0…22f7 at0016 = EOL // 0x22f6 @0x16
0x22e0…22f7 }
0x22f7…2300 b057 4270 P=-E
0x22f7…2300 LineComalBin {
0x22f7…2300 ptr = 0xb057 // 0x22f7 @0x0
0x22f7…2300 lno = 0x10ae // 0x22f9 @0x2
0x22f7…2300 at0004 = ╱50╱P╱ // 0x22fb @0x4
0x22f7…2300 at0005 = ╱dc╱=╱ // 0x22fc @0x5
0x22f7…2300 at0006 = ╱e9╱-╱ // 0x22fd @0x6
0x22f7…2300 at0007 = ╱45╱E╱ // 0x22fe @0x7
0x22f7…2300 at0008 = EOL // 0x22ff @0x8
0x22f7…2300 }
0x2300…2306 b05d 4280 ELSE
0x2300…2306 LineComalBin {
0x2300…2306 ptr = 0xb05d // 0x2300 @0x0
0x2300…2306 lno = 0x10b8 // 0x2302 @0x2
0x2300…2306 at0004 = ╱9a╱ ELSE ╱ // 0x2304 @0x4
0x2300…2306 at0005 = EOL // 0x2305 @0x5
0x2300…2306 }
0x2306…2327 b07e 4290 IF CEKS=E AND TYPE=E AND AKRE=>MKANTAL THEN
0x2306…2327 LineComalBin {
0x2306…2327 ptr = 0xb07e // 0x2306 @0x0
0x2306…2327 lno = 0x10c2 // 0x2308 @0x2
0x2306…2327 at0004 = ╱9c╱ IF ╱ // 0x230a @0x4
0x2306…2327 at0005 = ╱43╱C╱ // 0x230b @0x5
0x2306…2327 at0006 = ╱45╱E╱ // 0x230c @0x6
0x2306…2327 at0007 = ╱4b╱K╱ // 0x230d @0x7
0x2306…2327 at0008 = ╱53╱S╱ // 0x230e @0x8
0x2306…2327 at0009 = ╱dc╱=╱ // 0x230f @0x9
0x2306…2327 at000a = ╱45╱E╱ // 0x2310 @0xa
0x2306…2327 at000b = ╱da╱ AND ╱ // 0x2311 @0xb
0x2306…2327 at000c = ╱54╱T╱ // 0x2312 @0xc
0x2306…2327 at000d = ╱59╱Y╱ // 0x2313 @0xd
0x2306…2327 at000e = ╱50╱P╱ // 0x2314 @0xe
0x2306…2327 at000f = ╱45╱E╱ // 0x2315 @0xf
0x2306…2327 at0010 = ╱dc╱=╱ // 0x2316 @0x10
0x2306…2327 at0011 = ╱45╱E╱ // 0x2317 @0x11
0x2306…2327 at0012 = ╱da╱ AND ╱ // 0x2318 @0x12
0x2306…2327 at0013 = ╱41╱A╱ // 0x2319 @0x13
0x2306…2327 at0014 = ╱4b╱K╱ // 0x231a @0x14
0x2306…2327 at0015 = ╱52╱R╱ // 0x231b @0x15
0x2306…2327 at0016 = ╱45╱E╱ // 0x231c @0x16
0x2306…2327 at0017 = ╱e0╱=>╱ // 0x231d @0x17
0x2306…2327 at0018 = ╱4d╱M╱ // 0x231e @0x18
0x2306…2327 at0019 = ╱4b╱K╱ // 0x231f @0x19
0x2306…2327 at001a = ╱41╱A╱ // 0x2320 @0x1a
0x2306…2327 at001b = ╱4e╱N╱ // 0x2321 @0x1b
0x2306…2327 at001c = ╱54╱T╱ // 0x2322 @0x1c
0x2306…2327 at001d = ╱41╱A╱ // 0x2323 @0x1d
0x2306…2327 at001e = ╱4c╱L╱ // 0x2324 @0x1e
0x2306…2327 at001f = ╱b6╱ THEN ╱ // 0x2325 @0x1f
0x2306…2327 at0020 = EOL // 0x2326 @0x20
0x2306…2327 }
0x2327…2336 b08d 4300 CURSOR V,23
0x2327…2336 LineComalBin {
0x2327…2336 ptr = 0xb08d // 0x2327 @0x0
0x2327…2336 lno = 0x10cc // 0x2329 @0x2
0x2327…2336 at0004 = ╱a1╱ CURSOR ╱ // 0x232b @0x4
0x2327…2336 at0005 = ╱56╱V╱ // 0x232c @0x5
0x2327…2336 at0006 = ╱ec╱,╱ // 0x232d @0x6
0x2327…2336 at0007 = ╱32╱2╱ // 0x232e @0x7
0x2327…2336 at0008 = ╱33╱3╱ // 0x232f @0x8
0x2327…2336 at0009 = ╱fe0000b805╱ // 0x2330 @0x9
0x2327…2336 at000e = EOL // 0x2335 @0xe
0x2327…2336 }
0x2336…237b b0d2 4310 INPUT "Ikke plads til flere kreditorer,tast RETURN ",A$
0x2336…237b LineComalBin {
0x2336…237b ptr = 0xb0d2 // 0x2336 @0x0
0x2336…237b lno = 0x10d6 // 0x2338 @0x2
0x2336…237b at0004 = ╱91╱ INPUT ╱ // 0x233a @0x4
0x2336…237b at0005 = ╱22╱"╱ // 0x233b @0x5
0x2336…237b at0006 = ╱49╱I╱ // 0x233c @0x6
0x2336…237b at0007 = ╱6b╱k╱ // 0x233d @0x7
0x2336…237b at0008 = ╱6b╱k╱ // 0x233e @0x8
0x2336…237b at0009 = ╱65╱e╱ // 0x233f @0x9
0x2336…237b at000a = ╱20╱…╱ // 0x2340 @0xa
0x2336…237b at000b = ╱70╱p╱ // 0x2341 @0xb
0x2336…237b at000c = ╱6c╱l╱ // 0x2342 @0xc
0x2336…237b at000d = ╱61╱a╱ // 0x2343 @0xd
0x2336…237b at000e = ╱64╱d╱ // 0x2344 @0xe
0x2336…237b at000f = ╱73╱s╱ // 0x2345 @0xf
0x2336…237b at0010 = ╱20╱…╱ // 0x2346 @0x10
0x2336…237b at0011 = ╱74╱t╱ // 0x2347 @0x11
0x2336…237b at0012 = ╱69╱i╱ // 0x2348 @0x12
0x2336…237b at0013 = ╱6c╱l╱ // 0x2349 @0x13
0x2336…237b at0014 = ╱20╱…╱ // 0x234a @0x14
0x2336…237b at0015 = ╱66╱f╱ // 0x234b @0x15
0x2336…237b at0016 = ╱6c╱l╱ // 0x234c @0x16
0x2336…237b at0017 = ╱65╱e╱ // 0x234d @0x17
0x2336…237b at0018 = ╱72╱r╱ // 0x234e @0x18
0x2336…237b at0019 = ╱65╱e╱ // 0x234f @0x19
0x2336…237b at001a = ╱20╱…╱ // 0x2350 @0x1a
0x2336…237b at001b = ╱6b╱k╱ // 0x2351 @0x1b
0x2336…237b at001c = ╱72╱r╱ // 0x2352 @0x1c
0x2336…237b at001d = ╱65╱e╱ // 0x2353 @0x1d
0x2336…237b at001e = ╱64╱d╱ // 0x2354 @0x1e
0x2336…237b at001f = ╱69╱i╱ // 0x2355 @0x1f
0x2336…237b at0020 = ╱74╱t╱ // 0x2356 @0x20
0x2336…237b at0021 = ╱6f╱o╱ // 0x2357 @0x21
0x2336…237b at0022 = ╱72╱r╱ // 0x2358 @0x22
0x2336…237b at0023 = ╱65╱e╱ // 0x2359 @0x23
0x2336…237b at0024 = ╱72╱r╱ // 0x235a @0x24
0x2336…237b at0025 = ╱2c╱,╱ // 0x235b @0x25
0x2336…237b at0026 = ╱74╱t╱ // 0x235c @0x26
0x2336…237b at0027 = ╱61╱a╱ // 0x235d @0x27
0x2336…237b at0028 = ╱73╱s╱ // 0x235e @0x28
0x2336…237b at0029 = ╱74╱t╱ // 0x235f @0x29
0x2336…237b at002a = ╱20╱…╱ // 0x2360 @0x2a
0x2336…237b at002b = ╱52╱R╱ // 0x2361 @0x2b
0x2336…237b at002c = ╱45╱E╱ // 0x2362 @0x2c
0x2336…237b at002d = ╱54╱T╱ // 0x2363 @0x2d
0x2336…237b at002e = ╱55╱U╱ // 0x2364 @0x2e
0x2336…237b at002f = ╱52╱R╱ // 0x2365 @0x2f
0x2336…237b at0030 = ╱4e╱N╱ // 0x2366 @0x30
0x2336…237b at0031 = ╱20╱…╱ // 0x2367 @0x31
0x2336…237b at0032 = ╱20╱…╱ // 0x2368 @0x32
0x2336…237b at0033 = ╱20╱…╱ // 0x2369 @0x33
0x2336…237b at0034 = ╱20╱…╱ // 0x236a @0x34
0x2336…237b at0035 = ╱20╱…╱ // 0x236b @0x35
0x2336…237b at0036 = ╱20╱…╱ // 0x236c @0x36
0x2336…237b at0037 = ╱20╱…╱ // 0x236d @0x37
0x2336…237b at0038 = ╱20╱…╱ // 0x236e @0x38
0x2336…237b at0039 = ╱20╱…╱ // 0x236f @0x39
0x2336…237b at003a = ╱20╱…╱ // 0x2370 @0x3a
0x2336…237b at003b = ╱20╱…╱ // 0x2371 @0x3b
0x2336…237b at003c = ╱20╱…╱ // 0x2372 @0x3c
0x2336…237b at003d = ╱20╱…╱ // 0x2373 @0x3d
0x2336…237b at003e = ╱20╱…╱ // 0x2374 @0x3e
0x2336…237b at003f = ╱20╱…╱ // 0x2375 @0x3f
0x2336…237b at0040 = ╱22╱"╱ // 0x2376 @0x40
0x2336…237b at0041 = ╱ec╱,╱ // 0x2377 @0x41
0x2336…237b at0042 = ╱41╱A╱ // 0x2378 @0x42
0x2336…237b at0043 = ╱ef╱$╱ // 0x2379 @0x43
0x2336…237b at0044 = EOL // 0x237a @0x44
0x2336…237b }
0x237b…2381 b0d8 4320 ELSE
0x237b…2381 LineComalBin {
0x237b…2381 ptr = 0xb0d8 // 0x237b @0x0
0x237b…2381 lno = 0x10e0 // 0x237d @0x2
0x237b…2381 at0004 = ╱9a╱ ELSE ╱ // 0x237f @0x4
0x237b…2381 at0005 = EOL // 0x2380 @0x5
0x237b…2381 }
0x2381…238e b0e5 4330 IF CEKS=B THEN
0x2381…238e LineComalBin {
0x2381…238e ptr = 0xb0e5 // 0x2381 @0x0
0x2381…238e lno = 0x10ea // 0x2383 @0x2
0x2381…238e at0004 = ╱9c╱ IF ╱ // 0x2385 @0x4
0x2381…238e at0005 = ╱43╱C╱ // 0x2386 @0x5
0x2381…238e at0006 = ╱45╱E╱ // 0x2387 @0x6
0x2381…238e at0007 = ╱4b╱K╱ // 0x2388 @0x7
0x2381…238e at0008 = ╱53╱S╱ // 0x2389 @0x8
0x2381…238e at0009 = ╱dc╱=╱ // 0x238a @0x9
0x2381…238e at000a = ╱42╱B╱ // 0x238b @0xa
0x2381…238e at000b = ╱b6╱ THEN ╱ // 0x238c @0xb
0x2381…238e at000c = EOL // 0x238d @0xc
0x2381…238e }
0x238e…23bc b113 4340 INPUT "Kreditor eksisterer , tast RETURN ",A$
0x238e…23bc LineComalBin {
0x238e…23bc ptr = 0xb113 // 0x238e @0x0
0x238e…23bc lno = 0x10f4 // 0x2390 @0x2
0x238e…23bc at0004 = ╱91╱ INPUT ╱ // 0x2392 @0x4
0x238e…23bc at0005 = ╱22╱"╱ // 0x2393 @0x5
0x238e…23bc at0006 = ╱4b╱K╱ // 0x2394 @0x6
0x238e…23bc at0007 = ╱72╱r╱ // 0x2395 @0x7
0x238e…23bc at0008 = ╱65╱e╱ // 0x2396 @0x8
0x238e…23bc at0009 = ╱64╱d╱ // 0x2397 @0x9
0x238e…23bc at000a = ╱69╱i╱ // 0x2398 @0xa
0x238e…23bc at000b = ╱74╱t╱ // 0x2399 @0xb
0x238e…23bc at000c = ╱6f╱o╱ // 0x239a @0xc
0x238e…23bc at000d = ╱72╱r╱ // 0x239b @0xd
0x238e…23bc at000e = ╱20╱…╱ // 0x239c @0xe
0x238e…23bc at000f = ╱65╱e╱ // 0x239d @0xf
0x238e…23bc at0010 = ╱6b╱k╱ // 0x239e @0x10
0x238e…23bc at0011 = ╱73╱s╱ // 0x239f @0x11
0x238e…23bc at0012 = ╱69╱i╱ // 0x23a0 @0x12
0x238e…23bc at0013 = ╱73╱s╱ // 0x23a1 @0x13
0x238e…23bc at0014 = ╱74╱t╱ // 0x23a2 @0x14
0x238e…23bc at0015 = ╱65╱e╱ // 0x23a3 @0x15
0x238e…23bc at0016 = ╱72╱r╱ // 0x23a4 @0x16
0x238e…23bc at0017 = ╱65╱e╱ // 0x23a5 @0x17
0x238e…23bc at0018 = ╱72╱r╱ // 0x23a6 @0x18
0x238e…23bc at0019 = ╱20╱…╱ // 0x23a7 @0x19
0x238e…23bc at001a = ╱2c╱,╱ // 0x23a8 @0x1a
0x238e…23bc at001b = ╱20╱…╱ // 0x23a9 @0x1b
0x238e…23bc at001c = ╱74╱t╱ // 0x23aa @0x1c
0x238e…23bc at001d = ╱61╱a╱ // 0x23ab @0x1d
0x238e…23bc at001e = ╱73╱s╱ // 0x23ac @0x1e
0x238e…23bc at001f = ╱74╱t╱ // 0x23ad @0x1f
0x238e…23bc at0020 = ╱20╱…╱ // 0x23ae @0x20
0x238e…23bc at0021 = ╱52╱R╱ // 0x23af @0x21
0x238e…23bc at0022 = ╱45╱E╱ // 0x23b0 @0x22
0x238e…23bc at0023 = ╱54╱T╱ // 0x23b1 @0x23
0x238e…23bc at0024 = ╱55╱U╱ // 0x23b2 @0x24
0x238e…23bc at0025 = ╱52╱R╱ // 0x23b3 @0x25
0x238e…23bc at0026 = ╱4e╱N╱ // 0x23b4 @0x26
0x238e…23bc at0027 = ╱20╱…╱ // 0x23b5 @0x27
0x238e…23bc at0028 = ╱20╱…╱ // 0x23b6 @0x28
0x238e…23bc at0029 = ╱22╱"╱ // 0x23b7 @0x29
0x238e…23bc at002a = ╱ec╱,╱ // 0x23b8 @0x2a
0x238e…23bc at002b = ╱41╱A╱ // 0x23b9 @0x2b
0x238e…23bc at002c = ╱ef╱$╱ // 0x23ba @0x2c
0x238e…23bc at002d = EOL // 0x23bb @0x2d
0x238e…23bc }
0x23bc…23c2 b119 4350 ELSE
0x23bc…23c2 LineComalBin {
0x23bc…23c2 ptr = 0xb119 // 0x23bc @0x0
0x23bc…23c2 lno = 0x10fe // 0x23be @0x2
0x23bc…23c2 at0004 = ╱9a╱ ELSE ╱ // 0x23c0 @0x4
0x23bc…23c2 at0005 = EOL // 0x23c1 @0x5
0x23bc…23c2 }
0x23c2…23f1 b148 4360 INPUT "Kreditor eksisterer ikke,tast RETURN",A$
0x23c2…23f1 LineComalBin {
0x23c2…23f1 ptr = 0xb148 // 0x23c2 @0x0
0x23c2…23f1 lno = 0x1108 // 0x23c4 @0x2
0x23c2…23f1 at0004 = ╱91╱ INPUT ╱ // 0x23c6 @0x4
0x23c2…23f1 at0005 = ╱22╱"╱ // 0x23c7 @0x5
0x23c2…23f1 at0006 = ╱4b╱K╱ // 0x23c8 @0x6
0x23c2…23f1 at0007 = ╱72╱r╱ // 0x23c9 @0x7
0x23c2…23f1 at0008 = ╱65╱e╱ // 0x23ca @0x8
0x23c2…23f1 at0009 = ╱64╱d╱ // 0x23cb @0x9
0x23c2…23f1 at000a = ╱69╱i╱ // 0x23cc @0xa
0x23c2…23f1 at000b = ╱74╱t╱ // 0x23cd @0xb
0x23c2…23f1 at000c = ╱6f╱o╱ // 0x23ce @0xc
0x23c2…23f1 at000d = ╱72╱r╱ // 0x23cf @0xd
0x23c2…23f1 at000e = ╱20╱…╱ // 0x23d0 @0xe
0x23c2…23f1 at000f = ╱65╱e╱ // 0x23d1 @0xf
0x23c2…23f1 at0010 = ╱6b╱k╱ // 0x23d2 @0x10
0x23c2…23f1 at0011 = ╱73╱s╱ // 0x23d3 @0x11
0x23c2…23f1 at0012 = ╱69╱i╱ // 0x23d4 @0x12
0x23c2…23f1 at0013 = ╱73╱s╱ // 0x23d5 @0x13
0x23c2…23f1 at0014 = ╱74╱t╱ // 0x23d6 @0x14
0x23c2…23f1 at0015 = ╱65╱e╱ // 0x23d7 @0x15
0x23c2…23f1 at0016 = ╱72╱r╱ // 0x23d8 @0x16
0x23c2…23f1 at0017 = ╱65╱e╱ // 0x23d9 @0x17
0x23c2…23f1 at0018 = ╱72╱r╱ // 0x23da @0x18
0x23c2…23f1 at0019 = ╱20╱…╱ // 0x23db @0x19
0x23c2…23f1 at001a = ╱69╱i╱ // 0x23dc @0x1a
0x23c2…23f1 at001b = ╱6b╱k╱ // 0x23dd @0x1b
0x23c2…23f1 at001c = ╱6b╱k╱ // 0x23de @0x1c
0x23c2…23f1 at001d = ╱65╱e╱ // 0x23df @0x1d
0x23c2…23f1 at001e = ╱2c╱,╱ // 0x23e0 @0x1e
0x23c2…23f1 at001f = ╱74╱t╱ // 0x23e1 @0x1f
0x23c2…23f1 at0020 = ╱61╱a╱ // 0x23e2 @0x20
0x23c2…23f1 at0021 = ╱73╱s╱ // 0x23e3 @0x21
0x23c2…23f1 at0022 = ╱74╱t╱ // 0x23e4 @0x22
0x23c2…23f1 at0023 = ╱20╱…╱ // 0x23e5 @0x23
0x23c2…23f1 at0024 = ╱52╱R╱ // 0x23e6 @0x24
0x23c2…23f1 at0025 = ╱45╱E╱ // 0x23e7 @0x25
0x23c2…23f1 at0026 = ╱54╱T╱ // 0x23e8 @0x26
0x23c2…23f1 at0027 = ╱55╱U╱ // 0x23e9 @0x27
0x23c2…23f1 at0028 = ╱52╱R╱ // 0x23ea @0x28
0x23c2…23f1 at0029 = ╱4e╱N╱ // 0x23eb @0x29
0x23c2…23f1 at002a = ╱22╱"╱ // 0x23ec @0x2a
0x23c2…23f1 at002b = ╱ec╱,╱ // 0x23ed @0x2b
0x23c2…23f1 at002c = ╱41╱A╱ // 0x23ee @0x2c
0x23c2…23f1 at002d = ╱ef╱$╱ // 0x23ef @0x2d
0x23c2…23f1 at002e = EOL // 0x23f0 @0x2e
0x23c2…23f1 }
0x23f1…23f7 b14e 4370 ENDIF
0x23f1…23f7 LineComalBin {
0x23f1…23f7 ptr = 0xb14e // 0x23f1 @0x0
0x23f1…23f7 lno = 0x1112 // 0x23f3 @0x2
0x23f1…23f7 at0004 = ╱9b╱ ENDIF ╱ // 0x23f5 @0x4
0x23f1…23f7 at0005 = EOL // 0x23f6 @0x5
0x23f1…23f7 }
0x23f7…23fd b154 4380 ENDIF
0x23f7…23fd LineComalBin {
0x23f7…23fd ptr = 0xb154 // 0x23f7 @0x0
0x23f7…23fd lno = 0x111c // 0x23f9 @0x2
0x23f7…23fd at0004 = ╱9b╱ ENDIF ╱ // 0x23fb @0x4
0x23f7…23fd at0005 = EOL // 0x23fc @0x5
0x23f7…23fd }
0x23fd…240d b164 4390 EXEC NRTEST(A$)
0x23fd…240d LineComalBin {
0x23fd…240d ptr = 0xb164 // 0x23fd @0x0
0x23fd…240d lno = 0x1126 // 0x23ff @0x2
0x23fd…240d at0004 = ╱9d╱ EXEC ╱ // 0x2401 @0x4
0x23fd…240d at0005 = ╱4e╱N╱ // 0x2402 @0x5
0x23fd…240d at0006 = ╱52╱R╱ // 0x2403 @0x6
0x23fd…240d at0007 = ╱54╱T╱ // 0x2404 @0x7
0x23fd…240d at0008 = ╱45╱E╱ // 0x2405 @0x8
0x23fd…240d at0009 = ╱53╱S╱ // 0x2406 @0x9
0x23fd…240d at000a = ╱54╱T╱ // 0x2407 @0xa
0x23fd…240d at000b = ╱ed╱(╱ // 0x2408 @0xb
0x23fd…240d at000c = ╱41╱A╱ // 0x2409 @0xc
0x23fd…240d at000d = ╱ef╱$╱ // 0x240a @0xd
0x23fd…240d at000e = ╱ee╱)╱ // 0x240b @0xe
0x23fd…240d at000f = EOL // 0x240c @0xf
0x23fd…240d }
0x240d…2413 b16a 4400 ENDIF
0x240d…2413 LineComalBin {
0x240d…2413 ptr = 0xb16a // 0x240d @0x0
0x240d…2413 lno = 0x1130 // 0x240f @0x2
0x240d…2413 at0004 = ╱9b╱ ENDIF ╱ // 0x2411 @0x4
0x240d…2413 at0005 = EOL // 0x2412 @0x5
0x240d…2413 }
0x2413…241d b174 4410 UNTIL P=-E
0x2413…241d LineComalBin {
0x2413…241d ptr = 0xb174 // 0x2413 @0x0
0x2413…241d lno = 0x113a // 0x2415 @0x2
0x2413…241d at0004 = ╱98╱ UNTIL ╱ // 0x2417 @0x4
0x2413…241d at0005 = ╱50╱P╱ // 0x2418 @0x5
0x2413…241d at0006 = ╱dc╱=╱ // 0x2419 @0x6
0x2413…241d at0007 = ╱e9╱-╱ // 0x241a @0x7
0x2413…241d at0008 = ╱45╱E╱ // 0x241b @0x8
0x2413…241d at0009 = EOL // 0x241c @0x9
0x2413…241d }
0x241d…244f b1a6 4420 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AKRE<MKANTAL)
0x241d…244f LineComalBin {
0x241d…244f ptr = 0xb1a6 // 0x241d @0x0
0x241d…244f lno = 0x1144 // 0x241f @0x2
0x241d…244f at0004 = ╱98╱ UNTIL ╱ // 0x2421 @0x4
0x241d…244f at0005 = ╱ed╱(╱ // 0x2422 @0x5
0x241d…244f at0006 = ╱43╱C╱ // 0x2423 @0x6
0x241d…244f at0007 = ╱45╱E╱ // 0x2424 @0x7
0x241d…244f at0008 = ╱4b╱K╱ // 0x2425 @0x8
0x241d…244f at0009 = ╱53╱S╱ // 0x2426 @0x9
0x241d…244f at000a = ╱dc╱=╱ // 0x2427 @0xa
0x241d…244f at000b = ╱42╱B╱ // 0x2428 @0xb
0x241d…244f at000c = ╱da╱ AND ╱ // 0x2429 @0xc
0x241d…244f at000d = ╱54╱T╱ // 0x242a @0xd
0x241d…244f at000e = ╱59╱Y╱ // 0x242b @0xe
0x241d…244f at000f = ╱50╱P╱ // 0x242c @0xf
0x241d…244f at0010 = ╱45╱E╱ // 0x242d @0x10
0x241d…244f at0011 = ╱e1╱<>╱ // 0x242e @0x11
0x241d…244f at0012 = ╱45╱E╱ // 0x242f @0x12
0x241d…244f at0013 = ╱ee╱)╱ // 0x2430 @0x13
0x241d…244f at0014 = ╱db╱ OR ╱ // 0x2431 @0x14
0x241d…244f at0015 = ╱ed╱(╱ // 0x2432 @0x15
0x241d…244f at0016 = ╱43╱C╱ // 0x2433 @0x16
0x241d…244f at0017 = ╱45╱E╱ // 0x2434 @0x17
0x241d…244f at0018 = ╱4b╱K╱ // 0x2435 @0x18
0x241d…244f at0019 = ╱53╱S╱ // 0x2436 @0x19
0x241d…244f at001a = ╱dc╱=╱ // 0x2437 @0x1a
0x241d…244f at001b = ╱45╱E╱ // 0x2438 @0x1b
0x241d…244f at001c = ╱da╱ AND ╱ // 0x2439 @0x1c
0x241d…244f at001d = ╱54╱T╱ // 0x243a @0x1d
0x241d…244f at001e = ╱59╱Y╱ // 0x243b @0x1e
0x241d…244f at001f = ╱50╱P╱ // 0x243c @0x1f
0x241d…244f at0020 = ╱45╱E╱ // 0x243d @0x20
0x241d…244f at0021 = ╱dc╱=╱ // 0x243e @0x21
0x241d…244f at0022 = ╱45╱E╱ // 0x243f @0x22
0x241d…244f at0023 = ╱da╱ AND ╱ // 0x2440 @0x23
0x241d…244f at0024 = ╱41╱A╱ // 0x2441 @0x24
0x241d…244f at0025 = ╱4b╱K╱ // 0x2442 @0x25
0x241d…244f at0026 = ╱52╱R╱ // 0x2443 @0x26
0x241d…244f at0027 = ╱45╱E╱ // 0x2444 @0x27
0x241d…244f at0028 = ╱dd╱<╱ // 0x2445 @0x28
0x241d…244f at0029 = ╱4d╱M╱ // 0x2446 @0x29
0x241d…244f at002a = ╱4b╱K╱ // 0x2447 @0x2a
0x241d…244f at002b = ╱41╱A╱ // 0x2448 @0x2b
0x241d…244f at002c = ╱4e╱N╱ // 0x2449 @0x2c
0x241d…244f at002d = ╱54╱T╱ // 0x244a @0x2d
0x241d…244f at002e = ╱41╱A╱ // 0x244b @0x2e
0x241d…244f at002f = ╱4c╱L╱ // 0x244c @0x2f
0x241d…244f at0030 = ╱ee╱)╱ // 0x244d @0x30
0x241d…244f at0031 = EOL // 0x244e @0x31
0x241d…244f }
0x244f…245d b1b4 4430 IF KONT=B THEN EXIT
0x244f…245d LineComalBin {
0x244f…245d ptr = 0xb1b4 // 0x244f @0x0
0x244f…245d lno = 0x114e // 0x2451 @0x2
0x244f…245d at0004 = ╱82╱ IF ╱ // 0x2453 @0x4
0x244f…245d at0005 = ╱4b╱K╱ // 0x2454 @0x5
0x244f…245d at0006 = ╱4f╱O╱ // 0x2455 @0x6
0x244f…245d at0007 = ╱4e╱N╱ // 0x2456 @0x7
0x244f…245d at0008 = ╱54╱T╱ // 0x2457 @0x8
0x244f…245d at0009 = ╱dc╱=╱ // 0x2458 @0x9
0x244f…245d at000a = ╱42╱B╱ // 0x2459 @0xa
0x244f…245d at000b = ╱b6╱ THEN ╱ // 0x245a @0xb
0x244f…245d at000c = ╱99╱ EXIT ╱ // 0x245b @0xc
0x244f…245d at000d = EOL // 0x245c @0xd
0x244f…245d }
0x245d…246a b1c1 4440 IF TYPE<>E THEN
0x245d…246a LineComalBin {
0x245d…246a ptr = 0xb1c1 // 0x245d @0x0
0x245d…246a lno = 0x1158 // 0x245f @0x2
0x245d…246a at0004 = ╱9c╱ IF ╱ // 0x2461 @0x4
0x245d…246a at0005 = ╱54╱T╱ // 0x2462 @0x5
0x245d…246a at0006 = ╱59╱Y╱ // 0x2463 @0x6
0x245d…246a at0007 = ╱50╱P╱ // 0x2464 @0x7
0x245d…246a at0008 = ╱45╱E╱ // 0x2465 @0x8
0x245d…246a at0009 = ╱e1╱<>╱ // 0x2466 @0x9
0x245d…246a at000a = ╱45╱E╱ // 0x2467 @0xa
0x245d…246a at000b = ╱b6╱ THEN ╱ // 0x2468 @0xb
0x245d…246a at000c = EOL // 0x2469 @0xc
0x245d…246a }
0x246a…247e b1d5 4450 FNR=KONT;TEST=B
0x246a…247e LineComalBin {
0x246a…247e ptr = 0xb1d5 // 0x246a @0x0
0x246a…247e lno = 0x1162 // 0x246c @0x2
0x246a…247e at0004 = ╱46╱F╱ // 0x246e @0x4
0x246a…247e at0005 = ╱4e╱N╱ // 0x246f @0x5
0x246a…247e at0006 = ╱52╱R╱ // 0x2470 @0x6
0x246a…247e at0007 = ╱dc╱=╱ // 0x2471 @0x7
0x246a…247e at0008 = ╱4b╱K╱ // 0x2472 @0x8
0x246a…247e at0009 = ╱4f╱O╱ // 0x2473 @0x9
0x246a…247e at000a = ╱4e╱N╱ // 0x2474 @0xa
0x246a…247e at000b = ╱54╱T╱ // 0x2475 @0xb
0x246a…247e at000c = ╱eb╱;╱ // 0x2476 @0xc
0x246a…247e at000d = ╱54╱T╱ // 0x2477 @0xd
0x246a…247e at000e = ╱45╱E╱ // 0x2478 @0xe
0x246a…247e at000f = ╱53╱S╱ // 0x2479 @0xf
0x246a…247e at0010 = ╱54╱T╱ // 0x247a @0x10
0x246a…247e at0011 = ╱dc╱=╱ // 0x247b @0x11
0x246a…247e at0012 = ╱42╱B╱ // 0x247c @0x12
0x246a…247e at0013 = EOL // 0x247d @0x13
0x246a…247e }
0x247e…248d b1e4 4460 EXEC HENTKPOST
0x247e…248d LineComalBin {
0x247e…248d ptr = 0xb1e4 // 0x247e @0x0
0x247e…248d lno = 0x116c // 0x2480 @0x2
0x247e…248d at0004 = ╱9d╱ EXEC ╱ // 0x2482 @0x4
0x247e…248d at0005 = ╱48╱H╱ // 0x2483 @0x5
0x247e…248d at0006 = ╱45╱E╱ // 0x2484 @0x6
0x247e…248d at0007 = ╱4e╱N╱ // 0x2485 @0x7
0x247e…248d at0008 = ╱54╱T╱ // 0x2486 @0x8
0x247e…248d at0009 = ╱4b╱K╱ // 0x2487 @0x9
0x247e…248d at000a = ╱50╱P╱ // 0x2488 @0xa
0x247e…248d at000b = ╱4f╱O╱ // 0x2489 @0xb
0x247e…248d at000c = ╱53╱S╱ // 0x248a @0xc
0x247e…248d at000d = ╱54╱T╱ // 0x248b @0xd
0x247e…248d at000e = EOL // 0x248c @0xe
0x247e…248d }
0x248d…24a4 b1fb 4470 IF TYPE=V THEN EXEC SALDOTEST
0x248d…24a4 LineComalBin {
0x248d…24a4 ptr = 0xb1fb // 0x248d @0x0
0x248d…24a4 lno = 0x1176 // 0x248f @0x2
0x248d…24a4 at0004 = ╱82╱ IF ╱ // 0x2491 @0x4
0x248d…24a4 at0005 = ╱54╱T╱ // 0x2492 @0x5
0x248d…24a4 at0006 = ╱59╱Y╱ // 0x2493 @0x6
0x248d…24a4 at0007 = ╱50╱P╱ // 0x2494 @0x7
0x248d…24a4 at0008 = ╱45╱E╱ // 0x2495 @0x8
0x248d…24a4 at0009 = ╱dc╱=╱ // 0x2496 @0x9
0x248d…24a4 at000a = ╱56╱V╱ // 0x2497 @0xa
0x248d…24a4 at000b = ╱b6╱ THEN ╱ // 0x2498 @0xb
0x248d…24a4 at000c = ╱9d╱ EXEC ╱ // 0x2499 @0xc
0x248d…24a4 at000d = ╱53╱S╱ // 0x249a @0xd
0x248d…24a4 at000e = ╱41╱A╱ // 0x249b @0xe
0x248d…24a4 at000f = ╱4c╱L╱ // 0x249c @0xf
0x248d…24a4 at0010 = ╱44╱D╱ // 0x249d @0x10
0x248d…24a4 at0011 = ╱4f╱O╱ // 0x249e @0x11
0x248d…24a4 at0012 = ╱54╱T╱ // 0x249f @0x12
0x248d…24a4 at0013 = ╱45╱E╱ // 0x24a0 @0x13
0x248d…24a4 at0014 = ╱53╱S╱ // 0x24a1 @0x14
0x248d…24a4 at0015 = ╱54╱T╱ // 0x24a2 @0x15
0x248d…24a4 at0016 = EOL // 0x24a3 @0x16
0x248d…24a4 }
0x24a4…24c5 b21c 4480 EXEC DINDTAST(2,2,FNR)
0x24a4…24c5 LineComalBin {
0x24a4…24c5 ptr = 0xb21c // 0x24a4 @0x0
0x24a4…24c5 lno = 0x1180 // 0x24a6 @0x2
0x24a4…24c5 at0004 = ╱9d╱ EXEC ╱ // 0x24a8 @0x4
0x24a4…24c5 at0005 = ╱44╱D╱ // 0x24a9 @0x5
0x24a4…24c5 at0006 = ╱49╱I╱ // 0x24aa @0x6
0x24a4…24c5 at0007 = ╱4e╱N╱ // 0x24ab @0x7
0x24a4…24c5 at0008 = ╱44╱D╱ // 0x24ac @0x8
0x24a4…24c5 at0009 = ╱54╱T╱ // 0x24ad @0x9
0x24a4…24c5 at000a = ╱41╱A╱ // 0x24ae @0xa
0x24a4…24c5 at000b = ╱53╱S╱ // 0x24af @0xb
0x24a4…24c5 at000c = ╱54╱T╱ // 0x24b0 @0xc
0x24a4…24c5 at000d = ╱ed╱(╱ // 0x24b1 @0xd
0x24a4…24c5 at000e = ╱32╱2╱ // 0x24b2 @0xe
0x24a4…24c5 at000f = ╱fe00008002╱ // 0x24b3 @0xf
0x24a4…24c5 at0014 = ╱ec╱,╱ // 0x24b8 @0x14
0x24a4…24c5 at0015 = ╱32╱2╱ // 0x24b9 @0x15
0x24a4…24c5 at0016 = ╱fe00008002╱ // 0x24ba @0x16
0x24a4…24c5 at001b = ╱ec╱,╱ // 0x24bf @0x1b
0x24a4…24c5 at001c = ╱46╱F╱ // 0x24c0 @0x1c
0x24a4…24c5 at001d = ╱4e╱N╱ // 0x24c1 @0x1d
0x24a4…24c5 at001e = ╱52╱R╱ // 0x24c2 @0x1e
0x24a4…24c5 at001f = ╱ee╱)╱ // 0x24c3 @0x1f
0x24a4…24c5 at0020 = EOL // 0x24c4 @0x20
0x24a4…24c5 }
0x24c5…24cb b222 4490 ELSE
0x24c5…24cb LineComalBin {
0x24c5…24cb ptr = 0xb222 // 0x24c5 @0x0
0x24c5…24cb lno = 0x118a // 0x24c7 @0x2
0x24c5…24cb at0004 = ╱9a╱ ELSE ╱ // 0x24c9 @0x4
0x24c5…24cb at0005 = EOL // 0x24ca @0x5
0x24c5…24cb }
0x24cb…24da b231 4500 KRENR=KONT
0x24cb…24da LineComalBin {
0x24cb…24da ptr = 0xb231 // 0x24cb @0x0
0x24cb…24da lno = 0x1194 // 0x24cd @0x2
0x24cb…24da at0004 = ╱4b╱K╱ // 0x24cf @0x4
0x24cb…24da at0005 = ╱52╱R╱ // 0x24d0 @0x5
0x24cb…24da at0006 = ╱45╱E╱ // 0x24d1 @0x6
0x24cb…24da at0007 = ╱4e╱N╱ // 0x24d2 @0x7
0x24cb…24da at0008 = ╱52╱R╱ // 0x24d3 @0x8
0x24cb…24da at0009 = ╱dc╱=╱ // 0x24d4 @0x9
0x24cb…24da at000a = ╱4b╱K╱ // 0x24d5 @0xa
0x24cb…24da at000b = ╱4f╱O╱ // 0x24d6 @0xb
0x24cb…24da at000c = ╱4e╱N╱ // 0x24d7 @0xc
0x24cb…24da at000d = ╱54╱T╱ // 0x24d8 @0xd
0x24cb…24da at000e = EOL // 0x24d9 @0xe
0x24cb…24da }
0x24da…24f9 b250 4510 KRENAVN$=BLANK$(E:25)
0x24da…24f9 LineComalBin {
0x24da…24f9 ptr = 0xb250 // 0x24da @0x0
0x24da…24f9 lno = 0x119e // 0x24dc @0x2
0x24da…24f9 at0004 = ╱4b╱K╱ // 0x24de @0x4
0x24da…24f9 at0005 = ╱52╱R╱ // 0x24df @0x5
0x24da…24f9 at0006 = ╱45╱E╱ // 0x24e0 @0x6
0x24da…24f9 at0007 = ╱4e╱N╱ // 0x24e1 @0x7
0x24da…24f9 at0008 = ╱41╱A╱ // 0x24e2 @0x8
0x24da…24f9 at0009 = ╱56╱V╱ // 0x24e3 @0x9
0x24da…24f9 at000a = ╱4e╱N╱ // 0x24e4 @0xa
0x24da…24f9 at000b = ╱ef╱$╱ // 0x24e5 @0xb
0x24da…24f9 at000c = ╱dc╱=╱ // 0x24e6 @0xc
0x24da…24f9 at000d = ╱42╱B╱ // 0x24e7 @0xd
0x24da…24f9 at000e = ╱4c╱L╱ // 0x24e8 @0xe
0x24da…24f9 at000f = ╱41╱A╱ // 0x24e9 @0xf
0x24da…24f9 at0010 = ╱4e╱N╱ // 0x24ea @0x10
0x24da…24f9 at0011 = ╱4b╱K╱ // 0x24eb @0x11
0x24da…24f9 at0012 = ╱ef╱$╱ // 0x24ec @0x12
0x24da…24f9 at0013 = ╱ed╱(╱ // 0x24ed @0x13
0x24da…24f9 at0014 = ╱45╱E╱ // 0x24ee @0x14
0x24da…24f9 at0015 = ╱f0╱:╱ // 0x24ef @0x15
0x24da…24f9 at0016 = ╱32╱2╱ // 0x24f0 @0x16
0x24da…24f9 at0017 = ╱35╱5╱ // 0x24f1 @0x17
0x24da…24f9 at0018 = ╱fe0000c805╱ // 0x24f2 @0x18
0x24da…24f9 at001d = ╱ee╱)╱ // 0x24f7 @0x1d
0x24da…24f9 at001e = EOL // 0x24f8 @0x1e
0x24da…24f9 }
0x24f9…250b b262 4520 KSALDO1$="0+"
0x24f9…250b LineComalBin {
0x24f9…250b ptr = 0xb262 // 0x24f9 @0x0
0x24f9…250b lno = 0x11a8 // 0x24fb @0x2
0x24f9…250b at0004 = ╱4b╱K╱ // 0x24fd @0x4
0x24f9…250b at0005 = ╱53╱S╱ // 0x24fe @0x5
0x24f9…250b at0006 = ╱41╱A╱ // 0x24ff @0x6
0x24f9…250b at0007 = ╱4c╱L╱ // 0x2500 @0x7
0x24f9…250b at0008 = ╱44╱D╱ // 0x2501 @0x8
0x24f9…250b at0009 = ╱4f╱O╱ // 0x2502 @0x9
0x24f9…250b at000a = ╱31╱1╱ // 0x2503 @0xa
0x24f9…250b at000b = ╱ef╱$╱ // 0x2504 @0xb
0x24f9…250b at000c = ╱dc╱=╱ // 0x2505 @0xc
0x24f9…250b at000d = ╱22╱"╱ // 0x2506 @0xd
0x24f9…250b at000e = ╱30╱0╱ // 0x2507 @0xe
0x24f9…250b at000f = ╱2b╱+╱ // 0x2508 @0xf
0x24f9…250b at0010 = ╱22╱"╱ // 0x2509 @0x10
0x24f9…250b at0011 = EOL // 0x250a @0x11
0x24f9…250b }
0x250b…251d b274 4530 KSALDO2$="0+"
0x250b…251d LineComalBin {
0x250b…251d ptr = 0xb274 // 0x250b @0x0
0x250b…251d lno = 0x11b2 // 0x250d @0x2
0x250b…251d at0004 = ╱4b╱K╱ // 0x250f @0x4
0x250b…251d at0005 = ╱53╱S╱ // 0x2510 @0x5
0x250b…251d at0006 = ╱41╱A╱ // 0x2511 @0x6
0x250b…251d at0007 = ╱4c╱L╱ // 0x2512 @0x7
0x250b…251d at0008 = ╱44╱D╱ // 0x2513 @0x8
0x250b…251d at0009 = ╱4f╱O╱ // 0x2514 @0x9
0x250b…251d at000a = ╱32╱2╱ // 0x2515 @0xa
0x250b…251d at000b = ╱ef╱$╱ // 0x2516 @0xb
0x250b…251d at000c = ╱dc╱=╱ // 0x2517 @0xc
0x250b…251d at000d = ╱22╱"╱ // 0x2518 @0xd
0x250b…251d at000e = ╱30╱0╱ // 0x2519 @0xe
0x250b…251d at000f = ╱2b╱+╱ // 0x251a @0xf
0x250b…251d at0010 = ╱22╱"╱ // 0x251b @0x10
0x250b…251d at0011 = EOL // 0x251c @0x11
0x250b…251d }
0x251d…253c b293 4540 KREGADE$=BLANK$(E:25)
0x251d…253c LineComalBin {
0x251d…253c ptr = 0xb293 // 0x251d @0x0
0x251d…253c lno = 0x11bc // 0x251f @0x2
0x251d…253c at0004 = ╱4b╱K╱ // 0x2521 @0x4
0x251d…253c at0005 = ╱52╱R╱ // 0x2522 @0x5
0x251d…253c at0006 = ╱45╱E╱ // 0x2523 @0x6
0x251d…253c at0007 = ╱47╱G╱ // 0x2524 @0x7
0x251d…253c at0008 = ╱41╱A╱ // 0x2525 @0x8
0x251d…253c at0009 = ╱44╱D╱ // 0x2526 @0x9
0x251d…253c at000a = ╱45╱E╱ // 0x2527 @0xa
0x251d…253c at000b = ╱ef╱$╱ // 0x2528 @0xb
0x251d…253c at000c = ╱dc╱=╱ // 0x2529 @0xc
0x251d…253c at000d = ╱42╱B╱ // 0x252a @0xd
0x251d…253c at000e = ╱4c╱L╱ // 0x252b @0xe
0x251d…253c at000f = ╱41╱A╱ // 0x252c @0xf
0x251d…253c at0010 = ╱4e╱N╱ // 0x252d @0x10
0x251d…253c at0011 = ╱4b╱K╱ // 0x252e @0x11
0x251d…253c at0012 = ╱ef╱$╱ // 0x252f @0x12
0x251d…253c at0013 = ╱ed╱(╱ // 0x2530 @0x13
0x251d…253c at0014 = ╱45╱E╱ // 0x2531 @0x14
0x251d…253c at0015 = ╱f0╱:╱ // 0x2532 @0x15
0x251d…253c at0016 = ╱32╱2╱ // 0x2533 @0x16
0x251d…253c at0017 = ╱35╱5╱ // 0x2534 @0x17
0x251d…253c at0018 = ╱fe0000c805╱ // 0x2535 @0x18
0x251d…253c at001d = ╱ee╱)╱ // 0x253a @0x1d
0x251d…253c at001e = EOL // 0x253b @0x1e
0x251d…253c }
0x253c…254c b2a3 4550 KREPOSTNR=B
0x253c…254c LineComalBin {
0x253c…254c ptr = 0xb2a3 // 0x253c @0x0
0x253c…254c lno = 0x11c6 // 0x253e @0x2
0x253c…254c at0004 = ╱4b╱K╱ // 0x2540 @0x4
0x253c…254c at0005 = ╱52╱R╱ // 0x2541 @0x5
0x253c…254c at0006 = ╱45╱E╱ // 0x2542 @0x6
0x253c…254c at0007 = ╱50╱P╱ // 0x2543 @0x7
0x253c…254c at0008 = ╱4f╱O╱ // 0x2544 @0x8
0x253c…254c at0009 = ╱53╱S╱ // 0x2545 @0x9
0x253c…254c at000a = ╱54╱T╱ // 0x2546 @0xa
0x253c…254c at000b = ╱4e╱N╱ // 0x2547 @0xb
0x253c…254c at000c = ╱52╱R╱ // 0x2548 @0xc
0x253c…254c at000d = ╱dc╱=╱ // 0x2549 @0xd
0x253c…254c at000e = ╱42╱B╱ // 0x254a @0xe
0x253c…254c at000f = EOL // 0x254b @0xf
0x253c…254c }
0x254c…255b (124,) b2b2 4560 KRELK$="0"
0x254c…255b LineComalBin {
0x254c…255b ptr = 0xb2b2 // 0x254c @0x0
0x254c…255b lno = 0x11d0 // 0x254e @0x2
0x254c…255b at0004 = ╱4b╱K╱ // 0x2550 @0x4
0x254c…255b at0005 = ╱52╱R╱ // 0x2551 @0x5
0x254c…255b at0006 = ╱45╱E╱ // 0x2552 @0x6
0x254c…255b at0007 = ╱4c╱L╱ // 0x2553 @0x7
0x254c…255b at0008 = ╱4b╱K╱ // 0x2554 @0x8
0x254c…255b at0009 = ╱ef╱$╱ // 0x2555 @0x9
0x254c…255b at000a = ╱dc╱=╱ // 0x2556 @0xa
0x254c…255b at000b = ╱22╱"╱ // 0x2557 @0xb
0x254c…255b at000c = ╱30╱0╱ // 0x2558 @0xc
0x254c…255b at000d = ╱22╱"╱ // 0x2559 @0xd
0x254c…255b at000e = EOL // 0x255a @0xe
0x254c…255b }
0x255b…256a b2c1 4570 KREGR$="0"
0x255b…256a LineComalBin {
0x255b…256a ptr = 0xb2c1 // 0x255b @0x0
0x255b…256a lno = 0x11da // 0x255d @0x2
0x255b…256a at0004 = ╱4b╱K╱ // 0x255f @0x4
0x255b…256a at0005 = ╱52╱R╱ // 0x2560 @0x5
0x255b…256a at0006 = ╱45╱E╱ // 0x2561 @0x6
0x255b…256a at0007 = ╱47╱G╱ // 0x2562 @0x7
0x255b…256a at0008 = ╱52╱R╱ // 0x2563 @0x8
0x255b…256a at0009 = ╱ef╱$╱ // 0x2564 @0x9
0x255b…256a at000a = ╱dc╱=╱ // 0x2565 @0xa
0x255b…256a at000b = ╱22╱"╱ // 0x2566 @0xb
0x255b…256a at000c = ╱30╱0╱ // 0x2567 @0xc
0x255b…256a at000d = ╱22╱"╱ // 0x2568 @0xd
0x255b…256a at000e = EOL // 0x2569 @0xe
0x255b…256a }
0x256a…2587 b2de 4580 KREBY$=BLANK$(E:20)
0x256a…2587 LineComalBin {
0x256a…2587 ptr = 0xb2de // 0x256a @0x0
0x256a…2587 lno = 0x11e4 // 0x256c @0x2
0x256a…2587 at0004 = ╱4b╱K╱ // 0x256e @0x4
0x256a…2587 at0005 = ╱52╱R╱ // 0x256f @0x5
0x256a…2587 at0006 = ╱45╱E╱ // 0x2570 @0x6
0x256a…2587 at0007 = ╱42╱B╱ // 0x2571 @0x7
0x256a…2587 at0008 = ╱59╱Y╱ // 0x2572 @0x8
0x256a…2587 at0009 = ╱ef╱$╱ // 0x2573 @0x9
0x256a…2587 at000a = ╱dc╱=╱ // 0x2574 @0xa
0x256a…2587 at000b = ╱42╱B╱ // 0x2575 @0xb
0x256a…2587 at000c = ╱4c╱L╱ // 0x2576 @0xc
0x256a…2587 at000d = ╱41╱A╱ // 0x2577 @0xd
0x256a…2587 at000e = ╱4e╱N╱ // 0x2578 @0xe
0x256a…2587 at000f = ╱4b╱K╱ // 0x2579 @0xf
0x256a…2587 at0010 = ╱ef╱$╱ // 0x257a @0x10
0x256a…2587 at0011 = ╱ed╱(╱ // 0x257b @0x11
0x256a…2587 at0012 = ╱45╱E╱ // 0x257c @0x12
0x256a…2587 at0013 = ╱f0╱:╱ // 0x257d @0x13
0x256a…2587 at0014 = ╱32╱2╱ // 0x257e @0x14
0x256a…2587 at0015 = ╱30╱0╱ // 0x257f @0x15
0x256a…2587 at0016 = ╱fe0000a005╱ // 0x2580 @0x16
0x256a…2587 at001b = ╱ee╱)╱ // 0x2585 @0x1b
0x256a…2587 at001c = EOL // 0x2586 @0x1c
0x256a…2587 }
0x2587…25aa b301 4590 EXEC DINDTAST(2,0,KRENR)
0x2587…25aa LineComalBin {
0x2587…25aa ptr = 0xb301 // 0x2587 @0x0
0x2587…25aa lno = 0x11ee // 0x2589 @0x2
0x2587…25aa at0004 = ╱9d╱ EXEC ╱ // 0x258b @0x4
0x2587…25aa at0005 = ╱44╱D╱ // 0x258c @0x5
0x2587…25aa at0006 = ╱49╱I╱ // 0x258d @0x6
0x2587…25aa at0007 = ╱4e╱N╱ // 0x258e @0x7
0x2587…25aa at0008 = ╱44╱D╱ // 0x258f @0x8
0x2587…25aa at0009 = ╱54╱T╱ // 0x2590 @0x9
0x2587…25aa at000a = ╱41╱A╱ // 0x2591 @0xa
0x2587…25aa at000b = ╱53╱S╱ // 0x2592 @0xb
0x2587…25aa at000c = ╱54╱T╱ // 0x2593 @0xc
0x2587…25aa at000d = ╱ed╱(╱ // 0x2594 @0xd
0x2587…25aa at000e = ╱32╱2╱ // 0x2595 @0xe
0x2587…25aa at000f = ╱fe00008002╱ // 0x2596 @0xf
0x2587…25aa at0014 = ╱ec╱,╱ // 0x259b @0x14
0x2587…25aa at0015 = ╱30╱0╱ // 0x259c @0x15
0x2587…25aa at0016 = ╱fe00000000╱ // 0x259d @0x16
0x2587…25aa at001b = ╱ec╱,╱ // 0x25a2 @0x1b
0x2587…25aa at001c = ╱4b╱K╱ // 0x25a3 @0x1c
0x2587…25aa at001d = ╱52╱R╱ // 0x25a4 @0x1d
0x2587…25aa at001e = ╱45╱E╱ // 0x25a5 @0x1e
0x2587…25aa at001f = ╱4e╱N╱ // 0x25a6 @0x1f
0x2587…25aa at0020 = ╱52╱R╱ // 0x25a7 @0x20
0x2587…25aa at0021 = ╱ee╱)╱ // 0x25a8 @0x21
0x2587…25aa at0022 = EOL // 0x25a9 @0x22
0x2587…25aa }
0x25aa…25b0 b307 4600 ENDIF
0x25aa…25b0 LineComalBin {
0x25aa…25b0 ptr = 0xb307 // 0x25aa @0x0
0x25aa…25b0 lno = 0x11f8 // 0x25ac @0x2
0x25aa…25b0 at0004 = ╱9b╱ ENDIF ╱ // 0x25ae @0x4
0x25aa…25b0 at0005 = EOL // 0x25af @0x5
0x25aa…25b0 }
0x25b0…25b6 b30d 4610 ENDIF
0x25b0…25b6 LineComalBin {
0x25b0…25b6 ptr = 0xb30d // 0x25b0 @0x0
0x25b0…25b6 lno = 0x1202 // 0x25b2 @0x2
0x25b0…25b6 at0004 = ╱9b╱ ENDIF ╱ // 0x25b4 @0x4
0x25b0…25b6 at0005 = EOL // 0x25b5 @0x5
0x25b0…25b6 }
0x25b6…25c4 b31b 4620 IF KONT=B THEN EXIT
0x25b6…25c4 LineComalBin {
0x25b6…25c4 ptr = 0xb31b // 0x25b6 @0x0
0x25b6…25c4 lno = 0x120c // 0x25b8 @0x2
0x25b6…25c4 at0004 = ╱82╱ IF ╱ // 0x25ba @0x4
0x25b6…25c4 at0005 = ╱4b╱K╱ // 0x25bb @0x5
0x25b6…25c4 at0006 = ╱4f╱O╱ // 0x25bc @0x6
0x25b6…25c4 at0007 = ╱4e╱N╱ // 0x25bd @0x7
0x25b6…25c4 at0008 = ╱54╱T╱ // 0x25be @0x8
0x25b6…25c4 at0009 = ╱dc╱=╱ // 0x25bf @0x9
0x25b6…25c4 at000a = ╱42╱B╱ // 0x25c0 @0xa
0x25b6…25c4 at000b = ╱b6╱ THEN ╱ // 0x25c1 @0xb
0x25b6…25c4 at000c = ╱99╱ EXIT ╱ // 0x25c2 @0xc
0x25b6…25c4 at000d = EOL // 0x25c3 @0xd
0x25b6…25c4 }
0x25c4…25d1 b328 4630 IF TEST=B THEN
0x25c4…25d1 LineComalBin {
0x25c4…25d1 ptr = 0xb328 // 0x25c4 @0x0
0x25c4…25d1 lno = 0x1216 // 0x25c6 @0x2
0x25c4…25d1 at0004 = ╱9c╱ IF ╱ // 0x25c8 @0x4
0x25c4…25d1 at0005 = ╱54╱T╱ // 0x25c9 @0x5
0x25c4…25d1 at0006 = ╱45╱E╱ // 0x25ca @0x6
0x25c4…25d1 at0007 = ╱53╱S╱ // 0x25cb @0x7
0x25c4…25d1 at0008 = ╱54╱T╱ // 0x25cc @0x8
0x25c4…25d1 at0009 = ╱dc╱=╱ // 0x25cd @0x9
0x25c4…25d1 at000a = ╱42╱B╱ // 0x25ce @0xa
0x25c4…25d1 at000b = ╱b6╱ THEN ╱ // 0x25cf @0xb
0x25c4…25d1 at000c = EOL // 0x25d0 @0xc
0x25c4…25d1 }
0x25d1…25dd b334 4640 CASE TYPE OF
0x25d1…25dd LineComalBin {
0x25d1…25dd ptr = 0xb334 // 0x25d1 @0x0
0x25d1…25dd lno = 0x1220 // 0x25d3 @0x2
0x25d1…25dd at0004 = ╱a201╱ CASE ╱ // 0x25d5 @0x4
0x25d1…25dd at0006 = ╱54╱T╱ // 0x25d7 @0x6
0x25d1…25dd at0007 = ╱59╱Y╱ // 0x25d8 @0x7
0x25d1…25dd at0008 = ╱50╱P╱ // 0x25d9 @0x8
0x25d1…25dd at0009 = ╱45╱E╱ // 0x25da @0x9
0x25d1…25dd at000a = ╱ba╱ OF ╱ // 0x25db @0xa
0x25d1…25dd at000b = EOL // 0x25dc @0xb
0x25d1…25dd }
0x25dd…25e3 b33a 4650 STOP
0x25dd…25e3 LineComalBin {
0x25dd…25e3 ptr = 0xb33a // 0x25dd @0x0
0x25dd…25e3 lno = 0x122a // 0x25df @0x2
0x25dd…25e3 at0004 = ╱8d╱ STOP ╱ // 0x25e1 @0x4
0x25dd…25e3 at0005 = EOL // 0x25e2 @0x5
0x25dd…25e3 }
0x25e3…25ed b344 4660 WHEN E,G
0x25e3…25ed LineComalBin {
0x25e3…25ed ptr = 0xb344 // 0x25e3 @0x0
0x25e3…25ed lno = 0x1234 // 0x25e5 @0x2
0x25e3…25ed at0004 = ╱a301╱ WHEN ╱ // 0x25e7 @0x4
0x25e3…25ed at0006 = ╱45╱E╱ // 0x25e9 @0x6
0x25e3…25ed at0007 = ╱ec╱,╱ // 0x25ea @0x7
0x25e3…25ed at0008 = ╱47╱G╱ // 0x25eb @0x8
0x25e3…25ed at0009 = EOL // 0x25ec @0x9
0x25e3…25ed }
0x25ed…25f3 b34a 4670 REPEAT
0x25ed…25f3 LineComalBin {
0x25ed…25f3 ptr = 0xb34a // 0x25ed @0x0
0x25ed…25f3 lno = 0x123e // 0x25ef @0x2
0x25ed…25f3 at0004 = ╱97╱ REPEAT ╱ // 0x25f1 @0x4
0x25ed…25f3 at0005 = EOL // 0x25f2 @0x5
0x25ed…25f3 }
0x25f3…25f9 b350 4680 REPEAT
0x25f3…25f9 LineComalBin {
0x25f3…25f9 ptr = 0xb350 // 0x25f3 @0x0
0x25f3…25f9 lno = 0x1248 // 0x25f5 @0x2
0x25f3…25f9 at0004 = ╱97╱ REPEAT ╱ // 0x25f7 @0x4
0x25f3…25f9 at0005 = EOL // 0x25f8 @0x5
0x25f3…25f9 }
0x25f9…2608 b35f 4690 CURSOR V,23
0x25f9…2608 LineComalBin {
0x25f9…2608 ptr = 0xb35f // 0x25f9 @0x0
0x25f9…2608 lno = 0x1252 // 0x25fb @0x2
0x25f9…2608 at0004 = ╱a1╱ CURSOR ╱ // 0x25fd @0x4
0x25f9…2608 at0005 = ╱56╱V╱ // 0x25fe @0x5
0x25f9…2608 at0006 = ╱ec╱,╱ // 0x25ff @0x6
0x25f9…2608 at0007 = ╱32╱2╱ // 0x2600 @0x7
0x25f9…2608 at0008 = ╱33╱3╱ // 0x2601 @0x8
0x25f9…2608 at0009 = ╱fe0000b805╱ // 0x2602 @0x9
0x25f9…2608 at000e = EOL // 0x2607 @0xe
0x25f9…2608 }
0x2608…2650 b3a7 4700 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-7, 0:færdig) "
0x2608…2650 LineComalBin {
0x2608…2650 ptr = 0xb3a7 // 0x2608 @0x0
0x2608…2650 lno = 0x125c // 0x260a @0x2
0x2608…2650 at0004 = ╱92╱ PRINT ╱ // 0x260c @0x4
0x2608…2650 at0005 = ╱22╱"╱ // 0x260d @0x5
0x2608…2650 at0006 = ╱48╱H╱ // 0x260e @0x6
0x2608…2650 at0007 = ╱76╱v╱ // 0x260f @0x7
0x2608…2650 at0008 = ╱69╱i╱ // 0x2610 @0x8
0x2608…2650 at0009 = ╱6c╱l╱ // 0x2611 @0x9
0x2608…2650 at000a = ╱6b╱k╱ // 0x2612 @0xa
0x2608…2650 at000b = ╱65╱e╱ // 0x2613 @0xb
0x2608…2650 at000c = ╱74╱t╱ // 0x2614 @0xc
0x2608…2650 at000d = ╱20╱…╱ // 0x2615 @0xd
0x2608…2650 at000e = ╱66╱f╱ // 0x2616 @0xe
0x2608…2650 at000f = ╱65╱e╱ // 0x2617 @0xf
0x2608…2650 at0010 = ╱6c╱l╱ // 0x2618 @0x10
0x2608…2650 at0011 = ╱74╱t╱ // 0x2619 @0x11
0x2608…2650 at0012 = ╱20╱…╱ // 0x261a @0x12
0x2608…2650 at0013 = ╱7c╱ø╱ // 0x261b @0x13
0x2608…2650 at0014 = ╱6e╱n╱ // 0x261c @0x14
0x2608…2650 at0015 = ╱73╱s╱ // 0x261d @0x15
0x2608…2650 at0016 = ╱6b╱k╱ // 0x261e @0x16
0x2608…2650 at0017 = ╱65╱e╱ // 0x261f @0x17
0x2608…2650 at0018 = ╱73╱s╱ // 0x2620 @0x18
0x2608…2650 at0019 = ╱20╱…╱ // 0x2621 @0x19
0x2608…2650 at001a = ╱7b╱æ╱ // 0x2622 @0x1a
0x2608…2650 at001b = ╱6e╱n╱ // 0x2623 @0x1b
0x2608…2650 at001c = ╱64╱d╱ // 0x2624 @0x1c
0x2608…2650 at001d = ╱72╱r╱ // 0x2625 @0x1d
0x2608…2650 at001e = ╱65╱e╱ // 0x2626 @0x1e
0x2608…2650 at001f = ╱74╱t╱ // 0x2627 @0x1f
0x2608…2650 at0020 = ╱20╱…╱ // 0x2628 @0x20
0x2608…2650 at0021 = ╱20╱…╱ // 0x2629 @0x21
0x2608…2650 at0022 = ╱20╱…╱ // 0x262a @0x22
0x2608…2650 at0023 = ╱20╱…╱ // 0x262b @0x23
0x2608…2650 at0024 = ╱20╱…╱ // 0x262c @0x24
0x2608…2650 at0025 = ╱20╱…╱ // 0x262d @0x25
0x2608…2650 at0026 = ╱28╱(╱ // 0x262e @0x26
0x2608…2650 at0027 = ╱49╱I╱ // 0x262f @0x27
0x2608…2650 at0028 = ╱6e╱n╱ // 0x2630 @0x28
0x2608…2650 at0029 = ╱64╱d╱ // 0x2631 @0x29
0x2608…2650 at002a = ╱74╱t╱ // 0x2632 @0x2a
0x2608…2650 at002b = ╱61╱a╱ // 0x2633 @0x2b
0x2608…2650 at002c = ╱73╱s╱ // 0x2634 @0x2c
0x2608…2650 at002d = ╱74╱t╱ // 0x2635 @0x2d
0x2608…2650 at002e = ╱20╱…╱ // 0x2636 @0x2e
0x2608…2650 at002f = ╱66╱f╱ // 0x2637 @0x2f
0x2608…2650 at0030 = ╱65╱e╱ // 0x2638 @0x30
0x2608…2650 at0031 = ╱6c╱l╱ // 0x2639 @0x31
0x2608…2650 at0032 = ╱74╱t╱ // 0x263a @0x32
0x2608…2650 at0033 = ╱6e╱n╱ // 0x263b @0x33
0x2608…2650 at0034 = ╱72╱r╱ // 0x263c @0x34
0x2608…2650 at0035 = ╱20╱…╱ // 0x263d @0x35
0x2608…2650 at0036 = ╱32╱2╱ // 0x263e @0x36
0x2608…2650 at0037 = ╱2d╱-╱ // 0x263f @0x37
0x2608…2650 at0038 = ╱37╱7╱ // 0x2640 @0x38
0x2608…2650 at0039 = ╱2c╱,╱ // 0x2641 @0x39
0x2608…2650 at003a = ╱20╱…╱ // 0x2642 @0x3a
0x2608…2650 at003b = ╱30╱0╱ // 0x2643 @0x3b
0x2608…2650 at003c = ╱3a╱:╱ // 0x2644 @0x3c
0x2608…2650 at003d = ╱66╱f╱ // 0x2645 @0x3d
0x2608…2650 at003e = ╱7b╱æ╱ // 0x2646 @0x3e
0x2608…2650 at003f = ╱72╱r╱ // 0x2647 @0x3f
0x2608…2650 at0040 = ╱64╱d╱ // 0x2648 @0x40
0x2608…2650 at0041 = ╱69╱i╱ // 0x2649 @0x41
0x2608…2650 at0042 = ╱67╱g╱ // 0x264a @0x42
0x2608…2650 at0043 = ╱29╱)╱ // 0x264b @0x43
0x2608…2650 at0044 = ╱20╱…╱ // 0x264c @0x44
0x2608…2650 at0045 = ╱20╱…╱ // 0x264d @0x45
0x2608…2650 at0046 = ╱22╱"╱ // 0x264e @0x46
0x2608…2650 at0047 = EOL // 0x264f @0x47
0x2608…2650 }
0x2650…2665 b3bc 4710 CURSOR 32,23
0x2650…2665 LineComalBin {
0x2650…2665 ptr = 0xb3bc // 0x2650 @0x0
0x2650…2665 lno = 0x1266 // 0x2652 @0x2
0x2650…2665 at0004 = ╱a1╱ CURSOR ╱ // 0x2654 @0x4
0x2650…2665 at0005 = ╱33╱3╱ // 0x2655 @0x5
0x2650…2665 at0006 = ╱32╱2╱ // 0x2656 @0x6
0x2650…2665 at0007 = ╱fe00008006╱ // 0x2657 @0x7
0x2650…2665 at000c = ╱ec╱,╱ // 0x265c @0xc
0x2650…2665 at000d = ╱32╱2╱ // 0x265d @0xd
0x2650…2665 at000e = ╱33╱3╱ // 0x265e @0xe
0x2650…2665 at000f = ╱fe0000b805╱ // 0x265f @0xf
0x2650…2665 at0014 = EOL // 0x2664 @0x14
0x2650…2665 }
0x2665…266e b3c5 4720 INPUT LK$
0x2665…266e LineComalBin {
0x2665…266e ptr = 0xb3c5 // 0x2665 @0x0
0x2665…266e lno = 0x1270 // 0x2667 @0x2
0x2665…266e at0004 = ╱91╱ INPUT ╱ // 0x2669 @0x4
0x2665…266e at0005 = ╱4c╱L╱ // 0x266a @0x5
0x2665…266e at0006 = ╱4b╱K╱ // 0x266b @0x6
0x2665…266e at0007 = ╱ef╱$╱ // 0x266c @0x7
0x2665…266e at0008 = EOL // 0x266d @0x8
0x2665…266e }
0x266e…267f b3d6 4730 EXEC NRTEST(LK$)
0x266e…267f LineComalBin {
0x266e…267f ptr = 0xb3d6 // 0x266e @0x0
0x266e…267f lno = 0x127a // 0x2670 @0x2
0x266e…267f at0004 = ╱9d╱ EXEC ╱ // 0x2672 @0x4
0x266e…267f at0005 = ╱4e╱N╱ // 0x2673 @0x5
0x266e…267f at0006 = ╱52╱R╱ // 0x2674 @0x6
0x266e…267f at0007 = ╱54╱T╱ // 0x2675 @0x7
0x266e…267f at0008 = ╱45╱E╱ // 0x2676 @0x8
0x266e…267f at0009 = ╱53╱S╱ // 0x2677 @0x9
0x266e…267f at000a = ╱54╱T╱ // 0x2678 @0xa
0x266e…267f at000b = ╱ed╱(╱ // 0x2679 @0xb
0x266e…267f at000c = ╱4c╱L╱ // 0x267a @0xc
0x266e…267f at000d = ╱4b╱K╱ // 0x267b @0xd
0x266e…267f at000e = ╱ef╱$╱ // 0x267c @0xe
0x266e…267f at000f = ╱ee╱)╱ // 0x267d @0xf
0x266e…267f at0010 = EOL // 0x267e @0x10
0x266e…267f }
0x267f…2697 b3ee 4740 UNTIL P=B OR (P>E AND P<8)
0x267f…2697 LineComalBin {
0x267f…2697 ptr = 0xb3ee // 0x267f @0x0
0x267f…2697 lno = 0x1284 // 0x2681 @0x2
0x267f…2697 at0004 = ╱98╱ UNTIL ╱ // 0x2683 @0x4
0x267f…2697 at0005 = ╱50╱P╱ // 0x2684 @0x5
0x267f…2697 at0006 = ╱dc╱=╱ // 0x2685 @0x6
0x267f…2697 at0007 = ╱42╱B╱ // 0x2686 @0x7
0x267f…2697 at0008 = ╱db╱ OR ╱ // 0x2687 @0x8
0x267f…2697 at0009 = ╱ed╱(╱ // 0x2688 @0x9
0x267f…2697 at000a = ╱50╱P╱ // 0x2689 @0xa
0x267f…2697 at000b = ╱de╱>╱ // 0x268a @0xb
0x267f…2697 at000c = ╱45╱E╱ // 0x268b @0xc
0x267f…2697 at000d = ╱da╱ AND ╱ // 0x268c @0xd
0x267f…2697 at000e = ╱50╱P╱ // 0x268d @0xe
0x267f…2697 at000f = ╱dd╱<╱ // 0x268e @0xf
0x267f…2697 at0010 = ╱38╱8╱ // 0x268f @0x10
0x267f…2697 at0011 = ╱fe00008004╱ // 0x2690 @0x11
0x267f…2697 at0016 = ╱ee╱)╱ // 0x2695 @0x16
0x267f…2697 at0017 = EOL // 0x2696 @0x17
0x267f…2697 }
0x2697…26a3 b3fa 4750 STYR1=P
0x2697…26a3 LineComalBin {
0x2697…26a3 ptr = 0xb3fa // 0x2697 @0x0
0x2697…26a3 lno = 0x128e // 0x2699 @0x2
0x2697…26a3 at0004 = ╱53╱S╱ // 0x269b @0x4
0x2697…26a3 at0005 = ╱54╱T╱ // 0x269c @0x5
0x2697…26a3 at0006 = ╱59╱Y╱ // 0x269d @0x6
0x2697…26a3 at0007 = ╱52╱R╱ // 0x269e @0x7
0x2697…26a3 at0008 = ╱31╱1╱ // 0x269f @0x8
0x2697…26a3 at0009 = ╱dc╱=╱ // 0x26a0 @0x9
0x2697…26a3 at000a = ╱50╱P╱ // 0x26a1 @0xa
0x2697…26a3 at000b = EOL // 0x26a2 @0xb
0x2697…26a3 }
0x26a3…26b2 b409 4760 IF STYR1=B THEN EXIT
0x26a3…26b2 LineComalBin {
0x26a3…26b2 ptr = 0xb409 // 0x26a3 @0x0
0x26a3…26b2 lno = 0x1298 // 0x26a5 @0x2
0x26a3…26b2 at0004 = ╱82╱ IF ╱ // 0x26a7 @0x4
0x26a3…26b2 at0005 = ╱53╱S╱ // 0x26a8 @0x5
0x26a3…26b2 at0006 = ╱54╱T╱ // 0x26a9 @0x6
0x26a3…26b2 at0007 = ╱59╱Y╱ // 0x26aa @0x7
0x26a3…26b2 at0008 = ╱52╱R╱ // 0x26ab @0x8
0x26a3…26b2 at0009 = ╱31╱1╱ // 0x26ac @0x9
0x26a3…26b2 at000a = ╱dc╱=╱ // 0x26ad @0xa
0x26a3…26b2 at000b = ╱42╱B╱ // 0x26ae @0xb
0x26a3…26b2 at000c = ╱b6╱ THEN ╱ // 0x26af @0xc
0x26a3…26b2 at000d = ╱99╱ EXIT ╱ // 0x26b0 @0xd
0x26a3…26b2 at000e = EOL // 0x26b1 @0xe
0x26a3…26b2 }
0x26b2…26d4 b42b 4770 EXEC DINDTAST(STYR1,1,KRENR)
0x26b2…26d4 LineComalBin {
0x26b2…26d4 ptr = 0xb42b // 0x26b2 @0x0
0x26b2…26d4 lno = 0x12a2 // 0x26b4 @0x2
0x26b2…26d4 at0004 = ╱9d╱ EXEC ╱ // 0x26b6 @0x4
0x26b2…26d4 at0005 = ╱44╱D╱ // 0x26b7 @0x5
0x26b2…26d4 at0006 = ╱49╱I╱ // 0x26b8 @0x6
0x26b2…26d4 at0007 = ╱4e╱N╱ // 0x26b9 @0x7
0x26b2…26d4 at0008 = ╱44╱D╱ // 0x26ba @0x8
0x26b2…26d4 at0009 = ╱54╱T╱ // 0x26bb @0x9
0x26b2…26d4 at000a = ╱41╱A╱ // 0x26bc @0xa
0x26b2…26d4 at000b = ╱53╱S╱ // 0x26bd @0xb
0x26b2…26d4 at000c = ╱54╱T╱ // 0x26be @0xc
0x26b2…26d4 at000d = ╱ed╱(╱ // 0x26bf @0xd
0x26b2…26d4 at000e = ╱53╱S╱ // 0x26c0 @0xe
0x26b2…26d4 at000f = ╱54╱T╱ // 0x26c1 @0xf
0x26b2…26d4 at0010 = ╱59╱Y╱ // 0x26c2 @0x10
0x26b2…26d4 at0011 = ╱52╱R╱ // 0x26c3 @0x11
0x26b2…26d4 at0012 = ╱31╱1╱ // 0x26c4 @0x12
0x26b2…26d4 at0013 = ╱ec╱,╱ // 0x26c5 @0x13
0x26b2…26d4 at0014 = ╱31╱1╱ // 0x26c6 @0x14
0x26b2…26d4 at0015 = ╱fe00008001╱ // 0x26c7 @0x15
0x26b2…26d4 at001a = ╱ec╱,╱ // 0x26cc @0x1a
0x26b2…26d4 at001b = ╱4b╱K╱ // 0x26cd @0x1b
0x26b2…26d4 at001c = ╱52╱R╱ // 0x26ce @0x1c
0x26b2…26d4 at001d = ╱45╱E╱ // 0x26cf @0x1d
0x26b2…26d4 at001e = ╱4e╱N╱ // 0x26d0 @0x1e
0x26b2…26d4 at001f = ╱52╱R╱ // 0x26d1 @0x1f
0x26b2…26d4 at0020 = ╱ee╱)╱ // 0x26d2 @0x20
0x26b2…26d4 at0021 = EOL // 0x26d3 @0x21
0x26b2…26d4 }
0x26d4…26e1 b438 4780 UNTIL STYR1=B
0x26d4…26e1 LineComalBin {
0x26d4…26e1 ptr = 0xb438 // 0x26d4 @0x0
0x26d4…26e1 lno = 0x12ac // 0x26d6 @0x2
0x26d4…26e1 at0004 = ╱98╱ UNTIL ╱ // 0x26d8 @0x4
0x26d4…26e1 at0005 = ╱53╱S╱ // 0x26d9 @0x5
0x26d4…26e1 at0006 = ╱54╱T╱ // 0x26da @0x6
0x26d4…26e1 at0007 = ╱59╱Y╱ // 0x26db @0x7
0x26d4…26e1 at0008 = ╱52╱R╱ // 0x26dc @0x8
0x26d4…26e1 at0009 = ╱31╱1╱ // 0x26dd @0x9
0x26d4…26e1 at000a = ╱dc╱=╱ // 0x26de @0xa
0x26d4…26e1 at000b = ╱42╱B╱ // 0x26df @0xb
0x26d4…26e1 at000c = EOL // 0x26e0 @0xc
0x26d4…26e1 }
0x26e1…2709 b460 4790 EXEC FINDPOST(KTAB,MKANTAL,KRENR,KPIL3)
0x26e1…2709 LineComalBin {
0x26e1…2709 ptr = 0xb460 // 0x26e1 @0x0
0x26e1…2709 lno = 0x12b6 // 0x26e3 @0x2
0x26e1…2709 at0004 = ╱9d╱ EXEC ╱ // 0x26e5 @0x4
0x26e1…2709 at0005 = ╱46╱F╱ // 0x26e6 @0x5
0x26e1…2709 at0006 = ╱49╱I╱ // 0x26e7 @0x6
0x26e1…2709 at0007 = ╱4e╱N╱ // 0x26e8 @0x7
0x26e1…2709 at0008 = ╱44╱D╱ // 0x26e9 @0x8
0x26e1…2709 at0009 = ╱50╱P╱ // 0x26ea @0x9
0x26e1…2709 at000a = ╱4f╱O╱ // 0x26eb @0xa
0x26e1…2709 at000b = ╱53╱S╱ // 0x26ec @0xb
0x26e1…2709 at000c = ╱54╱T╱ // 0x26ed @0xc
0x26e1…2709 at000d = ╱ed╱(╱ // 0x26ee @0xd
0x26e1…2709 at000e = ╱4b╱K╱ // 0x26ef @0xe
0x26e1…2709 at000f = ╱54╱T╱ // 0x26f0 @0xf
0x26e1…2709 at0010 = ╱41╱A╱ // 0x26f1 @0x10
0x26e1…2709 at0011 = ╱42╱B╱ // 0x26f2 @0x11
0x26e1…2709 at0012 = ╱ec╱,╱ // 0x26f3 @0x12
0x26e1…2709 at0013 = ╱4d╱M╱ // 0x26f4 @0x13
0x26e1…2709 at0014 = ╱4b╱K╱ // 0x26f5 @0x14
0x26e1…2709 at0015 = ╱41╱A╱ // 0x26f6 @0x15
0x26e1…2709 at0016 = ╱4e╱N╱ // 0x26f7 @0x16
0x26e1…2709 at0017 = ╱54╱T╱ // 0x26f8 @0x17
0x26e1…2709 at0018 = ╱41╱A╱ // 0x26f9 @0x18
0x26e1…2709 at0019 = ╱4c╱L╱ // 0x26fa @0x19
0x26e1…2709 at001a = ╱ec╱,╱ // 0x26fb @0x1a
0x26e1…2709 at001b = ╱4b╱K╱ // 0x26fc @0x1b
0x26e1…2709 at001c = ╱52╱R╱ // 0x26fd @0x1c
0x26e1…2709 at001d = ╱45╱E╱ // 0x26fe @0x1d
0x26e1…2709 at001e = ╱4e╱N╱ // 0x26ff @0x1e
0x26e1…2709 at001f = ╱52╱R╱ // 0x2700 @0x1f
0x26e1…2709 at0020 = ╱ec╱,╱ // 0x2701 @0x20
0x26e1…2709 at0021 = ╱4b╱K╱ // 0x2702 @0x21
0x26e1…2709 at0022 = ╱50╱P╱ // 0x2703 @0x22
0x26e1…2709 at0023 = ╱49╱I╱ // 0x2704 @0x23
0x26e1…2709 at0024 = ╱4c╱L╱ // 0x2705 @0x24
0x26e1…2709 at0025 = ╱33╱3╱ // 0x2706 @0x25
0x26e1…2709 at0026 = ╱ee╱)╱ // 0x2707 @0x26
0x26e1…2709 at0027 = EOL // 0x2708 @0x27
0x26e1…2709 }
0x2709…2716 b46d 4800 IF TYPE=E THEN
0x2709…2716 LineComalBin {
0x2709…2716 ptr = 0xb46d // 0x2709 @0x0
0x2709…2716 lno = 0x12c0 // 0x270b @0x2
0x2709…2716 at0004 = ╱9c╱ IF ╱ // 0x270d @0x4
0x2709…2716 at0005 = ╱54╱T╱ // 0x270e @0x5
0x2709…2716 at0006 = ╱59╱Y╱ // 0x270f @0x6
0x2709…2716 at0007 = ╱50╱P╱ // 0x2710 @0x7
0x2709…2716 at0008 = ╱45╱E╱ // 0x2711 @0x8
0x2709…2716 at0009 = ╱dc╱=╱ // 0x2712 @0x9
0x2709…2716 at000a = ╱45╱E╱ // 0x2713 @0xa
0x2709…2716 at000b = ╱b6╱ THEN ╱ // 0x2714 @0xb
0x2709…2716 at000c = EOL // 0x2715 @0xc
0x2709…2716 }
0x2716…2739 b490 4810 EXEC INDSÆT(KTAB,AKRE,KRENR,KPIL3)
0x2716…2739 LineComalBin {
0x2716…2739 ptr = 0xb490 // 0x2716 @0x0
0x2716…2739 lno = 0x12ca // 0x2718 @0x2
0x2716…2739 at0004 = ╱9d╱ EXEC ╱ // 0x271a @0x4
0x2716…2739 at0005 = ╱49╱I╱ // 0x271b @0x5
0x2716…2739 at0006 = ╱4e╱N╱ // 0x271c @0x6
0x2716…2739 at0007 = ╱44╱D╱ // 0x271d @0x7
0x2716…2739 at0008 = ╱53╱S╱ // 0x271e @0x8
0x2716…2739 at0009 = ╱5b╱Æ╱ // 0x271f @0x9
0x2716…2739 at000a = ╱54╱T╱ // 0x2720 @0xa
0x2716…2739 at000b = ╱ed╱(╱ // 0x2721 @0xb
0x2716…2739 at000c = ╱4b╱K╱ // 0x2722 @0xc
0x2716…2739 at000d = ╱54╱T╱ // 0x2723 @0xd
0x2716…2739 at000e = ╱41╱A╱ // 0x2724 @0xe
0x2716…2739 at000f = ╱42╱B╱ // 0x2725 @0xf
0x2716…2739 at0010 = ╱ec╱,╱ // 0x2726 @0x10
0x2716…2739 at0011 = ╱41╱A╱ // 0x2727 @0x11
0x2716…2739 at0012 = ╱4b╱K╱ // 0x2728 @0x12
0x2716…2739 at0013 = ╱52╱R╱ // 0x2729 @0x13
0x2716…2739 at0014 = ╱45╱E╱ // 0x272a @0x14
0x2716…2739 at0015 = ╱ec╱,╱ // 0x272b @0x15
0x2716…2739 at0016 = ╱4b╱K╱ // 0x272c @0x16
0x2716…2739 at0017 = ╱52╱R╱ // 0x272d @0x17
0x2716…2739 at0018 = ╱45╱E╱ // 0x272e @0x18
0x2716…2739 at0019 = ╱4e╱N╱ // 0x272f @0x19
0x2716…2739 at001a = ╱52╱R╱ // 0x2730 @0x1a
0x2716…2739 at001b = ╱ec╱,╱ // 0x2731 @0x1b
0x2716…2739 at001c = ╱4b╱K╱ // 0x2732 @0x1c
0x2716…2739 at001d = ╱50╱P╱ // 0x2733 @0x1d
0x2716…2739 at001e = ╱49╱I╱ // 0x2734 @0x1e
0x2716…2739 at001f = ╱4c╱L╱ // 0x2735 @0x1f
0x2716…2739 at0020 = ╱33╱3╱ // 0x2736 @0x20
0x2716…2739 at0021 = ╱ee╱)╱ // 0x2737 @0x21
0x2716…2739 at0022 = EOL // 0x2738 @0x22
0x2716…2739 }
0x2739…273f b496 4820 ENDIF
0x2739…273f LineComalBin {
0x2739…273f ptr = 0xb496 // 0x2739 @0x0
0x2739…273f lno = 0x12d4 // 0x273b @0x2
0x2739…273f at0004 = ╱9b╱ ENDIF ╱ // 0x273d @0x4
0x2739…273f at0005 = EOL // 0x273e @0x5
0x2739…273f }
0x273f…274d b4a4 4830 EXEC GEMKPOST
0x273f…274d LineComalBin {
0x273f…274d ptr = 0xb4a4 // 0x273f @0x0
0x273f…274d lno = 0x12de // 0x2741 @0x2
0x273f…274d at0004 = ╱9d╱ EXEC ╱ // 0x2743 @0x4
0x273f…274d at0005 = ╱47╱G╱ // 0x2744 @0x5
0x273f…274d at0006 = ╱45╱E╱ // 0x2745 @0x6
0x273f…274d at0007 = ╱4d╱M╱ // 0x2746 @0x7
0x273f…274d at0008 = ╱4b╱K╱ // 0x2747 @0x8
0x273f…274d at0009 = ╱50╱P╱ // 0x2748 @0x9
0x273f…274d at000a = ╱4f╱O╱ // 0x2749 @0xa
0x273f…274d at000b = ╱53╱S╱ // 0x274a @0xb
0x273f…274d at000c = ╱54╱T╱ // 0x274b @0xc
0x273f…274d at000d = EOL // 0x274c @0xd
0x273f…274d }
0x274d…2755 b4ac 4840 WHEN V
0x274d…2755 LineComalBin {
0x274d…2755 ptr = 0xb4ac // 0x274d @0x0
0x274d…2755 lno = 0x12e8 // 0x274f @0x2
0x274d…2755 at0004 = ╱a301╱ WHEN ╱ // 0x2751 @0x4
0x274d…2755 at0006 = ╱56╱V╱ // 0x2753 @0x6
0x274d…2755 at0007 = EOL // 0x2754 @0x7
0x274d…2755 }
0x2755…275b b4b2 4850 REPEAT
0x2755…275b LineComalBin {
0x2755…275b ptr = 0xb4b2 // 0x2755 @0x0
0x2755…275b lno = 0x12f2 // 0x2757 @0x2
0x2755…275b at0004 = ╱97╱ REPEAT ╱ // 0x2759 @0x4
0x2755…275b at0005 = EOL // 0x275a @0x5
0x2755…275b }
0x275b…276a b4c1 4860 CURSOR V,23
0x275b…276a LineComalBin {
0x275b…276a ptr = 0xb4c1 // 0x275b @0x0
0x275b…276a lno = 0x12fc // 0x275d @0x2
0x275b…276a at0004 = ╱a1╱ CURSOR ╱ // 0x275f @0x4
0x275b…276a at0005 = ╱56╱V╱ // 0x2760 @0x5
0x275b…276a at0006 = ╱ec╱,╱ // 0x2761 @0x6
0x275b…276a at0007 = ╱32╱2╱ // 0x2762 @0x7
0x275b…276a at0008 = ╱33╱3╱ // 0x2763 @0x8
0x275b…276a at0009 = ╱fe0000b805╱ // 0x2764 @0x9
0x275b…276a at000e = EOL // 0x2769 @0xe
0x275b…276a }
0x276a…279d b4f4 4870 PRINT "Er det rigtigt at denne konto skal slettes";
0x276a…279d LineComalBin {
0x276a…279d ptr = 0xb4f4 // 0x276a @0x0
0x276a…279d lno = 0x1306 // 0x276c @0x2
0x276a…279d at0004 = ╱92╱ PRINT ╱ // 0x276e @0x4
0x276a…279d at0005 = ╱22╱"╱ // 0x276f @0x5
0x276a…279d at0006 = ╱45╱E╱ // 0x2770 @0x6
0x276a…279d at0007 = ╱72╱r╱ // 0x2771 @0x7
0x276a…279d at0008 = ╱20╱…╱ // 0x2772 @0x8
0x276a…279d at0009 = ╱64╱d╱ // 0x2773 @0x9
0x276a…279d at000a = ╱65╱e╱ // 0x2774 @0xa
0x276a…279d at000b = ╱74╱t╱ // 0x2775 @0xb
0x276a…279d at000c = ╱20╱…╱ // 0x2776 @0xc
0x276a…279d at000d = ╱72╱r╱ // 0x2777 @0xd
0x276a…279d at000e = ╱69╱i╱ // 0x2778 @0xe
0x276a…279d at000f = ╱67╱g╱ // 0x2779 @0xf
0x276a…279d at0010 = ╱74╱t╱ // 0x277a @0x10
0x276a…279d at0011 = ╱69╱i╱ // 0x277b @0x11
0x276a…279d at0012 = ╱67╱g╱ // 0x277c @0x12
0x276a…279d at0013 = ╱74╱t╱ // 0x277d @0x13
0x276a…279d at0014 = ╱20╱…╱ // 0x277e @0x14
0x276a…279d at0015 = ╱61╱a╱ // 0x277f @0x15
0x276a…279d at0016 = ╱74╱t╱ // 0x2780 @0x16
0x276a…279d at0017 = ╱20╱…╱ // 0x2781 @0x17
0x276a…279d at0018 = ╱64╱d╱ // 0x2782 @0x18
0x276a…279d at0019 = ╱65╱e╱ // 0x2783 @0x19
0x276a…279d at001a = ╱6e╱n╱ // 0x2784 @0x1a
0x276a…279d at001b = ╱6e╱n╱ // 0x2785 @0x1b
0x276a…279d at001c = ╱65╱e╱ // 0x2786 @0x1c
0x276a…279d at001d = ╱20╱…╱ // 0x2787 @0x1d
0x276a…279d at001e = ╱6b╱k╱ // 0x2788 @0x1e
0x276a…279d at001f = ╱6f╱o╱ // 0x2789 @0x1f
0x276a…279d at0020 = ╱6e╱n╱ // 0x278a @0x20
0x276a…279d at0021 = ╱74╱t╱ // 0x278b @0x21
0x276a…279d at0022 = ╱6f╱o╱ // 0x278c @0x22
0x276a…279d at0023 = ╱20╱…╱ // 0x278d @0x23
0x276a…279d at0024 = ╱73╱s╱ // 0x278e @0x24
0x276a…279d at0025 = ╱6b╱k╱ // 0x278f @0x25
0x276a…279d at0026 = ╱61╱a╱ // 0x2790 @0x26
0x276a…279d at0027 = ╱6c╱l╱ // 0x2791 @0x27
0x276a…279d at0028 = ╱20╱…╱ // 0x2792 @0x28
0x276a…279d at0029 = ╱73╱s╱ // 0x2793 @0x29
0x276a…279d at002a = ╱6c╱l╱ // 0x2794 @0x2a
0x276a…279d at002b = ╱65╱e╱ // 0x2795 @0x2b
0x276a…279d at002c = ╱74╱t╱ // 0x2796 @0x2c
0x276a…279d at002d = ╱74╱t╱ // 0x2797 @0x2d
0x276a…279d at002e = ╱65╱e╱ // 0x2798 @0x2e
0x276a…279d at002f = ╱73╱s╱ // 0x2799 @0x2f
0x276a…279d at0030 = ╱22╱"╱ // 0x279a @0x30
0x276a…279d at0031 = ╱eb╱;╱ // 0x279b @0x31
0x276a…279d at0032 = EOL // 0x279c @0x32
0x276a…279d }
0x279d…27c2 b519 4880 PRINT " (J/N)";BLANK$(E:23)
0x279d…27c2 LineComalBin {
0x279d…27c2 ptr = 0xb519 // 0x279d @0x0
0x279d…27c2 lno = 0x1310 // 0x279f @0x2
0x279d…27c2 at0004 = ╱92╱ PRINT ╱ // 0x27a1 @0x4
0x279d…27c2 at0005 = ╱22╱"╱ // 0x27a2 @0x5
0x279d…27c2 at0006 = ╱20╱…╱ // 0x27a3 @0x6
0x279d…27c2 at0007 = ╱20╱…╱ // 0x27a4 @0x7
0x279d…27c2 at0008 = ╱20╱…╱ // 0x27a5 @0x8
0x279d…27c2 at0009 = ╱20╱…╱ // 0x27a6 @0x9
0x279d…27c2 at000a = ╱20╱…╱ // 0x27a7 @0xa
0x279d…27c2 at000b = ╱20╱…╱ // 0x27a8 @0xb
0x279d…27c2 at000c = ╱28╱(╱ // 0x27a9 @0xc
0x279d…27c2 at000d = ╱4a╱J╱ // 0x27aa @0xd
0x279d…27c2 at000e = ╱2f╱/╱ // 0x27ab @0xe
0x279d…27c2 at000f = ╱4e╱N╱ // 0x27ac @0xf
0x279d…27c2 at0010 = ╱29╱)╱ // 0x27ad @0x10
0x279d…27c2 at0011 = ╱22╱"╱ // 0x27ae @0x11
0x279d…27c2 at0012 = ╱eb╱;╱ // 0x27af @0x12
0x279d…27c2 at0013 = ╱42╱B╱ // 0x27b0 @0x13
0x279d…27c2 at0014 = ╱4c╱L╱ // 0x27b1 @0x14
0x279d…27c2 at0015 = ╱41╱A╱ // 0x27b2 @0x15
0x279d…27c2 at0016 = ╱4e╱N╱ // 0x27b3 @0x16
0x279d…27c2 at0017 = ╱4b╱K╱ // 0x27b4 @0x17
0x279d…27c2 at0018 = ╱ef╱$╱ // 0x27b5 @0x18
0x279d…27c2 at0019 = ╱ed╱(╱ // 0x27b6 @0x19
0x279d…27c2 at001a = ╱45╱E╱ // 0x27b7 @0x1a
0x279d…27c2 at001b = ╱f0╱:╱ // 0x27b8 @0x1b
0x279d…27c2 at001c = ╱32╱2╱ // 0x27b9 @0x1c
0x279d…27c2 at001d = ╱33╱3╱ // 0x27ba @0x1d
0x279d…27c2 at001e = ╱fe0000b805╱ // 0x27bb @0x1e
0x279d…27c2 at0023 = ╱ee╱)╱ // 0x27c0 @0x23
0x279d…27c2 at0024 = EOL // 0x27c1 @0x24
0x279d…27c2 }
0x27c2…27d7 b52e 4890 CURSOR 48,23
0x27c2…27d7 LineComalBin {
0x27c2…27d7 ptr = 0xb52e // 0x27c2 @0x0
0x27c2…27d7 lno = 0x131a // 0x27c4 @0x2
0x27c2…27d7 at0004 = ╱a1╱ CURSOR ╱ // 0x27c6 @0x4
0x27c2…27d7 at0005 = ╱34╱4╱ // 0x27c7 @0x5
0x27c2…27d7 at0006 = ╱38╱8╱ // 0x27c8 @0x6
0x27c2…27d7 at0007 = ╱fe0000c006╱ // 0x27c9 @0x7
0x27c2…27d7 at000c = ╱ec╱,╱ // 0x27ce @0xc
0x27c2…27d7 at000d = ╱32╱2╱ // 0x27cf @0xd
0x27c2…27d7 at000e = ╱33╱3╱ // 0x27d0 @0xe
0x27c2…27d7 at000f = ╱fe0000b805╱ // 0x27d1 @0xf
0x27c2…27d7 at0014 = EOL // 0x27d6 @0x14
0x27c2…27d7 }
0x27d7…27df b536 4900 INPUT A$
0x27d7…27df LineComalBin {
0x27d7…27df ptr = 0xb536 // 0x27d7 @0x0
0x27d7…27df lno = 0x1324 // 0x27d9 @0x2
0x27d7…27df at0004 = ╱91╱ INPUT ╱ // 0x27db @0x4
0x27d7…27df at0005 = ╱41╱A╱ // 0x27dc @0x5
0x27d7…27df at0006 = ╱ef╱$╱ // 0x27dd @0x6
0x27d7…27df at0007 = EOL // 0x27de @0x7
0x27d7…27df }
0x27df…27ef b546 4910 EXEC NRTEST(A$)
0x27df…27ef LineComalBin {
0x27df…27ef ptr = 0xb546 // 0x27df @0x0
0x27df…27ef lno = 0x132e // 0x27e1 @0x2
0x27df…27ef at0004 = ╱9d╱ EXEC ╱ // 0x27e3 @0x4
0x27df…27ef at0005 = ╱4e╱N╱ // 0x27e4 @0x5
0x27df…27ef at0006 = ╱52╱R╱ // 0x27e5 @0x6
0x27df…27ef at0007 = ╱54╱T╱ // 0x27e6 @0x7
0x27df…27ef at0008 = ╱45╱E╱ // 0x27e7 @0x8
0x27df…27ef at0009 = ╱53╱S╱ // 0x27e8 @0x9
0x27df…27ef at000a = ╱54╱T╱ // 0x27e9 @0xa
0x27df…27ef at000b = ╱ed╱(╱ // 0x27ea @0xb
0x27df…27ef at000c = ╱41╱A╱ // 0x27eb @0xc
0x27df…27ef at000d = ╱ef╱$╱ // 0x27ec @0xd
0x27df…27ef at000e = ╱ee╱)╱ // 0x27ed @0xe
0x27df…27ef at000f = EOL // 0x27ee @0xf
0x27df…27ef }
0x27ef…2808 b55f 4920 UNTIL P=-7 OR P=-8
0x27ef…2808 LineComalBin {
0x27ef…2808 ptr = 0xb55f // 0x27ef @0x0
0x27ef…2808 lno = 0x1338 // 0x27f1 @0x2
0x27ef…2808 at0004 = ╱98╱ UNTIL ╱ // 0x27f3 @0x4
0x27ef…2808 at0005 = ╱50╱P╱ // 0x27f4 @0x5
0x27ef…2808 at0006 = ╱dc╱=╱ // 0x27f5 @0x6
0x27ef…2808 at0007 = ╱e9╱-╱ // 0x27f6 @0x7
0x27ef…2808 at0008 = ╱37╱7╱ // 0x27f7 @0x8
0x27ef…2808 at0009 = ╱fe0000e003╱ // 0x27f8 @0x9
0x27ef…2808 at000e = ╱db╱ OR ╱ // 0x27fd @0xe
0x27ef…2808 at000f = ╱50╱P╱ // 0x27fe @0xf
0x27ef…2808 at0010 = ╱dc╱=╱ // 0x27ff @0x10
0x27ef…2808 at0011 = ╱e9╱-╱ // 0x2800 @0x11
0x27ef…2808 at0012 = ╱38╱8╱ // 0x2801 @0x12
0x27ef…2808 at0013 = ╱fe00008004╱ // 0x2802 @0x13
0x27ef…2808 at0018 = EOL // 0x2807 @0x18
0x27ef…2808 }
0x2808…2818 b56f 4930 IF P=-7 THEN
0x2808…2818 LineComalBin {
0x2808…2818 ptr = 0xb56f // 0x2808 @0x0
0x2808…2818 lno = 0x1342 // 0x280a @0x2
0x2808…2818 at0004 = ╱9c╱ IF ╱ // 0x280c @0x4
0x2808…2818 at0005 = ╱50╱P╱ // 0x280d @0x5
0x2808…2818 at0006 = ╱dc╱=╱ // 0x280e @0x6
0x2808…2818 at0007 = ╱e9╱-╱ // 0x280f @0x7
0x2808…2818 at0008 = ╱37╱7╱ // 0x2810 @0x8
0x2808…2818 at0009 = ╱fe0000e003╱ // 0x2811 @0x9
0x2808…2818 at000e = ╱b6╱ THEN ╱ // 0x2816 @0xe
0x2808…2818 at000f = EOL // 0x2817 @0xf
0x2808…2818 }
0x2818…282e b585 4940 EXEC SLETDPOST(KRENR)
0x2818…282e LineComalBin {
0x2818…282e ptr = 0xb585 // 0x2818 @0x0
0x2818…282e lno = 0x134c // 0x281a @0x2
0x2818…282e at0004 = ╱9d╱ EXEC ╱ // 0x281c @0x4
0x2818…282e at0005 = ╱53╱S╱ // 0x281d @0x5
0x2818…282e at0006 = ╱4c╱L╱ // 0x281e @0x6
0x2818…282e at0007 = ╱45╱E╱ // 0x281f @0x7
0x2818…282e at0008 = ╱54╱T╱ // 0x2820 @0x8
0x2818…282e at0009 = ╱44╱D╱ // 0x2821 @0x9
0x2818…282e at000a = ╱50╱P╱ // 0x2822 @0xa
0x2818…282e at000b = ╱4f╱O╱ // 0x2823 @0xb
0x2818…282e at000c = ╱53╱S╱ // 0x2824 @0xc
0x2818…282e at000d = ╱54╱T╱ // 0x2825 @0xd
0x2818…282e at000e = ╱ed╱(╱ // 0x2826 @0xe
0x2818…282e at000f = ╱4b╱K╱ // 0x2827 @0xf
0x2818…282e at0010 = ╱52╱R╱ // 0x2828 @0x10
0x2818…282e at0011 = ╱45╱E╱ // 0x2829 @0x11
0x2818…282e at0012 = ╱4e╱N╱ // 0x282a @0x12
0x2818…282e at0013 = ╱52╱R╱ // 0x282b @0x13
0x2818…282e at0014 = ╱ee╱)╱ // 0x282c @0x14
0x2818…282e at0015 = EOL // 0x282d @0x15
0x2818…282e }
0x282e…2834 b58b 4950 ENDIF
0x282e…2834 LineComalBin {
0x282e…2834 ptr = 0xb58b // 0x282e @0x0
0x282e…2834 lno = 0x1356 // 0x2830 @0x2
0x282e…2834 at0004 = ╱9b╱ ENDIF ╱ // 0x2832 @0x4
0x282e…2834 at0005 = EOL // 0x2833 @0x5
0x282e…2834 }
0x2834…2841 b598 4960 WHEN 4
0x2834…2841 LineComalBin {
0x2834…2841 ptr = 0xb598 // 0x2834 @0x0
0x2834…2841 lno = 0x1360 // 0x2836 @0x2
0x2834…2841 at0004 = ╱a301╱ WHEN ╱ // 0x2838 @0x4
0x2834…2841 at0006 = ╱34╱4╱ // 0x283a @0x6
0x2834…2841 at0007 = ╱fe00008003╱ // 0x283b @0x7
0x2834…2841 at000c = EOL // 0x2840 @0xc
0x2834…2841 }
0x2841…284e b5a5 4970 WHEN 5
0x2841…284e LineComalBin {
0x2841…284e ptr = 0xb5a5 // 0x2841 @0x0
0x2841…284e lno = 0x136a // 0x2843 @0x2
0x2841…284e at0004 = ╱a301╱ WHEN ╱ // 0x2845 @0x4
0x2841…284e at0006 = ╱35╱5╱ // 0x2847 @0x6
0x2841…284e at0007 = ╱fe0000a003╱ // 0x2848 @0x7
0x2841…284e at000c = EOL // 0x284d @0xc
0x2841…284e }
0x284e…2854 (134,) b5ab 4980 REPEAT
0x284e…2854 LineComalBin {
0x284e…2854 ptr = 0xb5ab // 0x284e @0x0
0x284e…2854 lno = 0x1374 // 0x2850 @0x2
0x284e…2854 at0004 = ╱97╱ REPEAT ╱ // 0x2852 @0x4
0x284e…2854 at0005 = EOL // 0x2853 @0x5
0x284e…2854 }
0x2854…285a b5b1 4990 REPEAT
0x2854…285a LineComalBin {
0x2854…285a ptr = 0xb5b1 // 0x2854 @0x0
0x2854…285a lno = 0x137e // 0x2856 @0x2
0x2854…285a at0004 = ╱97╱ REPEAT ╱ // 0x2858 @0x4
0x2854…285a at0005 = EOL // 0x2859 @0x5
0x2854…285a }
0x285a…2869 b5c0 5000 CURSOR V,23
0x285a…2869 LineComalBin {
0x285a…2869 ptr = 0xb5c0 // 0x285a @0x0
0x285a…2869 lno = 0x1388 // 0x285c @0x2
0x285a…2869 at0004 = ╱a1╱ CURSOR ╱ // 0x285e @0x4
0x285a…2869 at0005 = ╱56╱V╱ // 0x285f @0x5
0x285a…2869 at0006 = ╱ec╱,╱ // 0x2860 @0x6
0x285a…2869 at0007 = ╱32╱2╱ // 0x2861 @0x7
0x285a…2869 at0008 = ╱33╱3╱ // 0x2862 @0x8
0x285a…2869 at0009 = ╱fe0000b805╱ // 0x2863 @0x9
0x285a…2869 at000e = EOL // 0x2868 @0xe
0x285a…2869 }
0x2869…2890 b5e7 5010 PRINT "Fra kreditornr (0: Alle)"
0x2869…2890 LineComalBin {
0x2869…2890 ptr = 0xb5e7 // 0x2869 @0x0
0x2869…2890 lno = 0x1392 // 0x286b @0x2
0x2869…2890 at0004 = ╱92╱ PRINT ╱ // 0x286d @0x4
0x2869…2890 at0005 = ╱22╱"╱ // 0x286e @0x5
0x2869…2890 at0006 = ╱46╱F╱ // 0x286f @0x6
0x2869…2890 at0007 = ╱72╱r╱ // 0x2870 @0x7
0x2869…2890 at0008 = ╱61╱a╱ // 0x2871 @0x8
0x2869…2890 at0009 = ╱20╱…╱ // 0x2872 @0x9
0x2869…2890 at000a = ╱6b╱k╱ // 0x2873 @0xa
0x2869…2890 at000b = ╱72╱r╱ // 0x2874 @0xb
0x2869…2890 at000c = ╱65╱e╱ // 0x2875 @0xc
0x2869…2890 at000d = ╱64╱d╱ // 0x2876 @0xd
0x2869…2890 at000e = ╱69╱i╱ // 0x2877 @0xe
0x2869…2890 at000f = ╱74╱t╱ // 0x2878 @0xf
0x2869…2890 at0010 = ╱6f╱o╱ // 0x2879 @0x10
0x2869…2890 at0011 = ╱72╱r╱ // 0x287a @0x11
0x2869…2890 at0012 = ╱6e╱n╱ // 0x287b @0x12
0x2869…2890 at0013 = ╱72╱r╱ // 0x287c @0x13
0x2869…2890 at0014 = ╱20╱…╱ // 0x287d @0x14
0x2869…2890 at0015 = ╱20╱…╱ // 0x287e @0x15
0x2869…2890 at0016 = ╱20╱…╱ // 0x287f @0x16
0x2869…2890 at0017 = ╱20╱…╱ // 0x2880 @0x17
0x2869…2890 at0018 = ╱20╱…╱ // 0x2881 @0x18
0x2869…2890 at0019 = ╱20╱…╱ // 0x2882 @0x19
0x2869…2890 at001a = ╱20╱…╱ // 0x2883 @0x1a
0x2869…2890 at001b = ╱20╱…╱ // 0x2884 @0x1b
0x2869…2890 at001c = ╱28╱(╱ // 0x2885 @0x1c
0x2869…2890 at001d = ╱30╱0╱ // 0x2886 @0x1d
0x2869…2890 at001e = ╱3a╱:╱ // 0x2887 @0x1e
0x2869…2890 at001f = ╱20╱…╱ // 0x2888 @0x1f
0x2869…2890 at0020 = ╱41╱A╱ // 0x2889 @0x20
0x2869…2890 at0021 = ╱6c╱l╱ // 0x288a @0x21
0x2869…2890 at0022 = ╱6c╱l╱ // 0x288b @0x22
0x2869…2890 at0023 = ╱65╱e╱ // 0x288c @0x23
0x2869…2890 at0024 = ╱29╱)╱ // 0x288d @0x24
0x2869…2890 at0025 = ╱22╱"╱ // 0x288e @0x25
0x2869…2890 at0026 = EOL // 0x288f @0x26
0x2869…2890 }
0x2890…28a5 b5fc 5020 CURSOR 18,23
0x2890…28a5 LineComalBin {
0x2890…28a5 ptr = 0xb5fc // 0x2890 @0x0
0x2890…28a5 lno = 0x139c // 0x2892 @0x2
0x2890…28a5 at0004 = ╱a1╱ CURSOR ╱ // 0x2894 @0x4
0x2890…28a5 at0005 = ╱31╱1╱ // 0x2895 @0x5
0x2890…28a5 at0006 = ╱38╱8╱ // 0x2896 @0x6
0x2890…28a5 at0007 = ╱fe00009005╱ // 0x2897 @0x7
0x2890…28a5 at000c = ╱ec╱,╱ // 0x289c @0xc
0x2890…28a5 at000d = ╱32╱2╱ // 0x289d @0xd
0x2890…28a5 at000e = ╱33╱3╱ // 0x289e @0xe
0x2890…28a5 at000f = ╱fe0000b805╱ // 0x289f @0xf
0x2890…28a5 at0014 = EOL // 0x28a4 @0x14
0x2890…28a5 }
0x28a5…28af b606 5030 INPUT KTN$
0x28a5…28af LineComalBin {
0x28a5…28af ptr = 0xb606 // 0x28a5 @0x0
0x28a5…28af lno = 0x13a6 // 0x28a7 @0x2
0x28a5…28af at0004 = ╱91╱ INPUT ╱ // 0x28a9 @0x4
0x28a5…28af at0005 = ╱4b╱K╱ // 0x28aa @0x5
0x28a5…28af at0006 = ╱54╱T╱ // 0x28ab @0x6
0x28a5…28af at0007 = ╱4e╱N╱ // 0x28ac @0x7
0x28a5…28af at0008 = ╱ef╱$╱ // 0x28ad @0x8
0x28a5…28af at0009 = EOL // 0x28ae @0x9
0x28a5…28af }
0x28af…28c1 b618 5040 EXEC NRTEST(KTN$)
0x28af…28c1 LineComalBin {
0x28af…28c1 ptr = 0xb618 // 0x28af @0x0
0x28af…28c1 lno = 0x13b0 // 0x28b1 @0x2
0x28af…28c1 at0004 = ╱9d╱ EXEC ╱ // 0x28b3 @0x4
0x28af…28c1 at0005 = ╱4e╱N╱ // 0x28b4 @0x5
0x28af…28c1 at0006 = ╱52╱R╱ // 0x28b5 @0x6
0x28af…28c1 at0007 = ╱54╱T╱ // 0x28b6 @0x7
0x28af…28c1 at0008 = ╱45╱E╱ // 0x28b7 @0x8
0x28af…28c1 at0009 = ╱53╱S╱ // 0x28b8 @0x9
0x28af…28c1 at000a = ╱54╱T╱ // 0x28b9 @0xa
0x28af…28c1 at000b = ╱ed╱(╱ // 0x28ba @0xb
0x28af…28c1 at000c = ╱4b╱K╱ // 0x28bb @0xc
0x28af…28c1 at000d = ╱54╱T╱ // 0x28bc @0xd
0x28af…28c1 at000e = ╱4e╱N╱ // 0x28bd @0xe
0x28af…28c1 at000f = ╱ef╱$╱ // 0x28be @0xf
0x28af…28c1 at0010 = ╱ee╱)╱ // 0x28bf @0x10
0x28af…28c1 at0011 = EOL // 0x28c0 @0x11
0x28af…28c1 }
0x28c1…28e7 b63e 5050 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B
0x28c1…28e7 LineComalBin {
0x28c1…28e7 ptr = 0xb63e // 0x28c1 @0x0
0x28c1…28e7 lno = 0x13ba // 0x28c3 @0x2
0x28c1…28e7 at0004 = ╱98╱ UNTIL ╱ // 0x28c5 @0x4
0x28c1…28e7 at0005 = ╱4c╱L╱ // 0x28c6 @0x5
0x28c1…28e7 at0006 = ╱dc╱=╱ // 0x28c7 @0x6
0x28c1…28e7 at0007 = ╱35╱5╱ // 0x28c8 @0x7
0x28c1…28e7 at0008 = ╱fe0000a003╱ // 0x28c9 @0x8
0x28c1…28e7 at000d = ╱da╱ AND ╱ // 0x28ce @0xd
0x28c1…28e7 at000e = ╱50╱P╱ // 0x28cf @0xe
0x28c1…28e7 at000f = ╱de╱>╱ // 0x28d0 @0xf
0x28c1…28e7 at0010 = ╱39╱9╱ // 0x28d1 @0x10
0x28c1…28e7 at0011 = ╱39╱9╱ // 0x28d2 @0x11
0x28c1…28e7 at0012 = ╱39╱9╱ // 0x28d3 @0x12
0x28c1…28e7 at0013 = ╱39╱9╱ // 0x28d4 @0x13
0x28c1…28e7 at0014 = ╱fe003c9c0e╱ // 0x28d5 @0x14
0x28c1…28e7 at0019 = ╱da╱ AND ╱ // 0x28da @0x19
0x28c1…28e7 at001a = ╱54╱T╱ // 0x28db @0x1a
0x28c1…28e7 at001b = ╱45╱E╱ // 0x28dc @0x1b
0x28c1…28e7 at001c = ╱53╱S╱ // 0x28dd @0x1c
0x28c1…28e7 at001d = ╱54╱T╱ // 0x28de @0x1d
0x28c1…28e7 at001e = ╱32╱2╱ // 0x28df @0x1e
0x28c1…28e7 at001f = ╱dc╱=╱ // 0x28e0 @0x1f
0x28c1…28e7 at0020 = ╱42╱B╱ // 0x28e1 @0x20
0x28c1…28e7 at0021 = ╱db╱ OR ╱ // 0x28e2 @0x21
0x28c1…28e7 at0022 = ╱50╱P╱ // 0x28e3 @0x22
0x28c1…28e7 at0023 = ╱dc╱=╱ // 0x28e4 @0x23
0x28c1…28e7 at0024 = ╱42╱B╱ // 0x28e5 @0x24
0x28c1…28e7 at0025 = EOL // 0x28e6 @0x25
0x28c1…28e7 }
0x28e7…28f1 b648 5060 IF P=B THEN
0x28e7…28f1 LineComalBin {
0x28e7…28f1 ptr = 0xb648 // 0x28e7 @0x0
0x28e7…28f1 lno = 0x13c4 // 0x28e9 @0x2
0x28e7…28f1 at0004 = ╱9c╱ IF ╱ // 0x28eb @0x4
0x28e7…28f1 at0005 = ╱50╱P╱ // 0x28ec @0x5
0x28e7…28f1 at0006 = ╱dc╱=╱ // 0x28ed @0x6
0x28e7…28f1 at0007 = ╱42╱B╱ // 0x28ee @0x7
0x28e7…28f1 at0008 = ╱b6╱ THEN ╱ // 0x28ef @0x8
0x28e7…28f1 at0009 = EOL // 0x28f0 @0x9
0x28e7…28f1 }
0x28f1…2904 b65b 5070 FRA=E;TIL=AKRE
0x28f1…2904 LineComalBin {
0x28f1…2904 ptr = 0xb65b // 0x28f1 @0x0
0x28f1…2904 lno = 0x13ce // 0x28f3 @0x2
0x28f1…2904 at0004 = ╱46╱F╱ // 0x28f5 @0x4
0x28f1…2904 at0005 = ╱52╱R╱ // 0x28f6 @0x5
0x28f1…2904 at0006 = ╱41╱A╱ // 0x28f7 @0x6
0x28f1…2904 at0007 = ╱dc╱=╱ // 0x28f8 @0x7
0x28f1…2904 at0008 = ╱45╱E╱ // 0x28f9 @0x8
0x28f1…2904 at0009 = ╱eb╱;╱ // 0x28fa @0x9
0x28f1…2904 at000a = ╱54╱T╱ // 0x28fb @0xa
0x28f1…2904 at000b = ╱49╱I╱ // 0x28fc @0xb
0x28f1…2904 at000c = ╱4c╱L╱ // 0x28fd @0xc
0x28f1…2904 at000d = ╱dc╱=╱ // 0x28fe @0xd
0x28f1…2904 at000e = ╱41╱A╱ // 0x28ff @0xe
0x28f1…2904 at000f = ╱4b╱K╱ // 0x2900 @0xf
0x28f1…2904 at0010 = ╱52╱R╱ // 0x2901 @0x10
0x28f1…2904 at0011 = ╱45╱E╱ // 0x2902 @0x11
0x28f1…2904 at0012 = EOL // 0x2903 @0x12
0x28f1…2904 }
0x2904…290a b661 5080 ELSE
0x2904…290a LineComalBin {
0x2904…290a ptr = 0xb661 // 0x2904 @0x0
0x2904…290a lno = 0x13d8 // 0x2906 @0x2
0x2904…290a at0004 = ╱9a╱ ELSE ╱ // 0x2908 @0x4
0x2904…290a at0005 = EOL // 0x2909 @0x5
0x2904…290a }
0x290a…2915 b66c 5090 KONT=P
0x290a…2915 LineComalBin {
0x290a…2915 ptr = 0xb66c // 0x290a @0x0
0x290a…2915 lno = 0x13e2 // 0x290c @0x2
0x290a…2915 at0004 = ╱4b╱K╱ // 0x290e @0x4
0x290a…2915 at0005 = ╱4f╱O╱ // 0x290f @0x5
0x290a…2915 at0006 = ╱4e╱N╱ // 0x2910 @0x6
0x290a…2915 at0007 = ╱54╱T╱ // 0x2911 @0x7
0x290a…2915 at0008 = ╱dc╱=╱ // 0x2912 @0x8
0x290a…2915 at0009 = ╱50╱P╱ // 0x2913 @0x9
0x290a…2915 at000a = EOL // 0x2914 @0xa
0x290a…2915 }
0x2915…2939 b690 5100 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)
0x2915…2939 LineComalBin {
0x2915…2939 ptr = 0xb690 // 0x2915 @0x0
0x2915…2939 lno = 0x13ec // 0x2917 @0x2
0x2915…2939 at0004 = ╱9d╱ EXEC ╱ // 0x2919 @0x4
0x2915…2939 at0005 = ╱46╱F╱ // 0x291a @0x5
0x2915…2939 at0006 = ╱49╱I╱ // 0x291b @0x6
0x2915…2939 at0007 = ╱4e╱N╱ // 0x291c @0x7
0x2915…2939 at0008 = ╱44╱D╱ // 0x291d @0x8
0x2915…2939 at0009 = ╱50╱P╱ // 0x291e @0x9
0x2915…2939 at000a = ╱4f╱O╱ // 0x291f @0xa
0x2915…2939 at000b = ╱53╱S╱ // 0x2920 @0xb
0x2915…2939 at000c = ╱54╱T╱ // 0x2921 @0xc
0x2915…2939 at000d = ╱ed╱(╱ // 0x2922 @0xd
0x2915…2939 at000e = ╱4b╱K╱ // 0x2923 @0xe
0x2915…2939 at000f = ╱54╱T╱ // 0x2924 @0xf
0x2915…2939 at0010 = ╱41╱A╱ // 0x2925 @0x10
0x2915…2939 at0011 = ╱42╱B╱ // 0x2926 @0x11
0x2915…2939 at0012 = ╱ec╱,╱ // 0x2927 @0x12
0x2915…2939 at0013 = ╱4d╱M╱ // 0x2928 @0x13
0x2915…2939 at0014 = ╱4b╱K╱ // 0x2929 @0x14
0x2915…2939 at0015 = ╱41╱A╱ // 0x292a @0x15
0x2915…2939 at0016 = ╱4e╱N╱ // 0x292b @0x16
0x2915…2939 at0017 = ╱54╱T╱ // 0x292c @0x17
0x2915…2939 at0018 = ╱41╱A╱ // 0x292d @0x18
0x2915…2939 at0019 = ╱4c╱L╱ // 0x292e @0x19
0x2915…2939 at001a = ╱ec╱,╱ // 0x292f @0x1a
0x2915…2939 at001b = ╱50╱P╱ // 0x2930 @0x1b
0x2915…2939 at001c = ╱ec╱,╱ // 0x2931 @0x1c
0x2915…2939 at001d = ╱4b╱K╱ // 0x2932 @0x1d
0x2915…2939 at001e = ╱50╱P╱ // 0x2933 @0x1e
0x2915…2939 at001f = ╱49╱I╱ // 0x2934 @0x1f
0x2915…2939 at0020 = ╱4c╱L╱ // 0x2935 @0x20
0x2915…2939 at0021 = ╱33╱3╱ // 0x2936 @0x21
0x2915…2939 at0022 = ╱ee╱)╱ // 0x2937 @0x22
0x2915…2939 at0023 = EOL // 0x2938 @0x23
0x2915…2939 }
0x2939…2947 b69e 5110 FRA=KPIL3
0x2939…2947 LineComalBin {
0x2939…2947 ptr = 0xb69e // 0x2939 @0x0
0x2939…2947 lno = 0x13f6 // 0x293b @0x2
0x2939…2947 at0004 = ╱46╱F╱ // 0x293d @0x4
0x2939…2947 at0005 = ╱52╱R╱ // 0x293e @0x5
0x2939…2947 at0006 = ╱41╱A╱ // 0x293f @0x6
0x2939…2947 at0007 = ╱dc╱=╱ // 0x2940 @0x7
0x2939…2947 at0008 = ╱4b╱K╱ // 0x2941 @0x8
0x2939…2947 at0009 = ╱50╱P╱ // 0x2942 @0x9
0x2939…2947 at000a = ╱49╱I╱ // 0x2943 @0xa
0x2939…2947 at000b = ╱4c╱L╱ // 0x2944 @0xb
0x2939…2947 at000c = ╱33╱3╱ // 0x2945 @0xc
0x2939…2947 at000d = EOL // 0x2946 @0xd
0x2939…2947 }
0x2947…294d b6a4 5120 ENDIF
0x2947…294d LineComalBin {
0x2947…294d ptr = 0xb6a4 // 0x2947 @0x0
0x2947…294d lno = 0x1400 // 0x2949 @0x2
0x2947…294d at0004 = ╱9b╱ ENDIF ╱ // 0x294b @0x4
0x2947…294d at0005 = EOL // 0x294c @0x5
0x2947…294d }
0x294d…295b b6b2 5130 UNTIL FRA<=AKRE
0x294d…295b LineComalBin {
0x294d…295b ptr = 0xb6b2 // 0x294d @0x0
0x294d…295b lno = 0x140a // 0x294f @0x2
0x294d…295b at0004 = ╱98╱ UNTIL ╱ // 0x2951 @0x4
0x294d…295b at0005 = ╱46╱F╱ // 0x2952 @0x5
0x294d…295b at0006 = ╱52╱R╱ // 0x2953 @0x6
0x294d…295b at0007 = ╱41╱A╱ // 0x2954 @0x7
0x294d…295b at0008 = ╱df╱<=╱ // 0x2955 @0x8
0x294d…295b at0009 = ╱41╱A╱ // 0x2956 @0x9
0x294d…295b at000a = ╱4b╱K╱ // 0x2957 @0xa
0x294d…295b at000b = ╱52╱R╱ // 0x2958 @0xb
0x294d…295b at000c = ╱45╱E╱ // 0x2959 @0xc
0x294d…295b at000d = EOL // 0x295a @0xd
0x294d…295b }
0x295b…2965 b6bc 5140 IF P>B THEN
0x295b…2965 LineComalBin {
0x295b…2965 ptr = 0xb6bc // 0x295b @0x0
0x295b…2965 lno = 0x1414 // 0x295d @0x2
0x295b…2965 at0004 = ╱9c╱ IF ╱ // 0x295f @0x4
0x295b…2965 at0005 = ╱50╱P╱ // 0x2960 @0x5
0x295b…2965 at0006 = ╱de╱>╱ // 0x2961 @0x6
0x295b…2965 at0007 = ╱42╱B╱ // 0x2962 @0x7
0x295b…2965 at0008 = ╱b6╱ THEN ╱ // 0x2963 @0x8
0x295b…2965 at0009 = EOL // 0x2964 @0x9
0x295b…2965 }
0x2965…296b b6c2 5150 REPEAT
0x2965…296b LineComalBin {
0x2965…296b ptr = 0xb6c2 // 0x2965 @0x0
0x2965…296b lno = 0x141e // 0x2967 @0x2
0x2965…296b at0004 = ╱97╱ REPEAT ╱ // 0x2969 @0x4
0x2965…296b at0005 = EOL // 0x296a @0x5
0x2965…296b }
0x296b…297a b6d1 5160 CURSOR V,23
0x296b…297a LineComalBin {
0x296b…297a ptr = 0xb6d1 // 0x296b @0x0
0x296b…297a lno = 0x1428 // 0x296d @0x2
0x296b…297a at0004 = ╱a1╱ CURSOR ╱ // 0x296f @0x4
0x296b…297a at0005 = ╱56╱V╱ // 0x2970 @0x5
0x296b…297a at0006 = ╱ec╱,╱ // 0x2971 @0x6
0x296b…297a at0007 = ╱32╱2╱ // 0x2972 @0x7
0x296b…297a at0008 = ╱33╱3╱ // 0x2973 @0x8
0x296b…297a at0009 = ╱fe0000b805╱ // 0x2974 @0x9
0x296b…297a at000e = EOL // 0x2979 @0xe
0x296b…297a }
0x297a…29a2 b6f9 5170 PRINT "Til kreditornr "
0x297a…29a2 LineComalBin {
0x297a…29a2 ptr = 0xb6f9 // 0x297a @0x0
0x297a…29a2 lno = 0x1432 // 0x297c @0x2
0x297a…29a2 at0004 = ╱92╱ PRINT ╱ // 0x297e @0x4
0x297a…29a2 at0005 = ╱22╱"╱ // 0x297f @0x5
0x297a…29a2 at0006 = ╱54╱T╱ // 0x2980 @0x6
0x297a…29a2 at0007 = ╱69╱i╱ // 0x2981 @0x7
0x297a…29a2 at0008 = ╱6c╱l╱ // 0x2982 @0x8
0x297a…29a2 at0009 = ╱20╱…╱ // 0x2983 @0x9
0x297a…29a2 at000a = ╱6b╱k╱ // 0x2984 @0xa
0x297a…29a2 at000b = ╱72╱r╱ // 0x2985 @0xb
0x297a…29a2 at000c = ╱65╱e╱ // 0x2986 @0xc
0x297a…29a2 at000d = ╱64╱d╱ // 0x2987 @0xd
0x297a…29a2 at000e = ╱69╱i╱ // 0x2988 @0xe
0x297a…29a2 at000f = ╱74╱t╱ // 0x2989 @0xf
0x297a…29a2 at0010 = ╱6f╱o╱ // 0x298a @0x10
0x297a…29a2 at0011 = ╱72╱r╱ // 0x298b @0x11
0x297a…29a2 at0012 = ╱6e╱n╱ // 0x298c @0x12
0x297a…29a2 at0013 = ╱72╱r╱ // 0x298d @0x13
0x297a…29a2 at0014 = ╱20╱…╱ // 0x298e @0x14
0x297a…29a2 at0015 = ╱20╱…╱ // 0x298f @0x15
0x297a…29a2 at0016 = ╱20╱…╱ // 0x2990 @0x16
0x297a…29a2 at0017 = ╱20╱…╱ // 0x2991 @0x17
0x297a…29a2 at0018 = ╱20╱…╱ // 0x2992 @0x18
0x297a…29a2 at0019 = ╱20╱…╱ // 0x2993 @0x19
0x297a…29a2 at001a = ╱20╱…╱ // 0x2994 @0x1a
0x297a…29a2 at001b = ╱20╱…╱ // 0x2995 @0x1b
0x297a…29a2 at001c = ╱20╱…╱ // 0x2996 @0x1c
0x297a…29a2 at001d = ╱20╱…╱ // 0x2997 @0x1d
0x297a…29a2 at001e = ╱20╱…╱ // 0x2998 @0x1e
0x297a…29a2 at001f = ╱20╱…╱ // 0x2999 @0x1f
0x297a…29a2 at0020 = ╱20╱…╱ // 0x299a @0x20
0x297a…29a2 at0021 = ╱20╱…╱ // 0x299b @0x21
0x297a…29a2 at0022 = ╱20╱…╱ // 0x299c @0x22
0x297a…29a2 at0023 = ╱20╱…╱ // 0x299d @0x23
0x297a…29a2 at0024 = ╱20╱…╱ // 0x299e @0x24
0x297a…29a2 at0025 = ╱20╱…╱ // 0x299f @0x25
0x297a…29a2 at0026 = ╱22╱"╱ // 0x29a0 @0x26
0x297a…29a2 at0027 = EOL // 0x29a1 @0x27
0x297a…29a2 }
0x29a2…29b7 b70e 5180 CURSOR 18,23
0x29a2…29b7 LineComalBin {
0x29a2…29b7 ptr = 0xb70e // 0x29a2 @0x0
0x29a2…29b7 lno = 0x143c // 0x29a4 @0x2
0x29a2…29b7 at0004 = ╱a1╱ CURSOR ╱ // 0x29a6 @0x4
0x29a2…29b7 at0005 = ╱31╱1╱ // 0x29a7 @0x5
0x29a2…29b7 at0006 = ╱38╱8╱ // 0x29a8 @0x6
0x29a2…29b7 at0007 = ╱fe00009005╱ // 0x29a9 @0x7
0x29a2…29b7 at000c = ╱ec╱,╱ // 0x29ae @0xc
0x29a2…29b7 at000d = ╱32╱2╱ // 0x29af @0xd
0x29a2…29b7 at000e = ╱33╱3╱ // 0x29b0 @0xe
0x29a2…29b7 at000f = ╱fe0000b805╱ // 0x29b1 @0xf
0x29a2…29b7 at0014 = EOL // 0x29b6 @0x14
0x29a2…29b7 }
0x29b7…29c1 b718 5190 INPUT KTN$
0x29b7…29c1 LineComalBin {
0x29b7…29c1 ptr = 0xb718 // 0x29b7 @0x0
0x29b7…29c1 lno = 0x1446 // 0x29b9 @0x2
0x29b7…29c1 at0004 = ╱91╱ INPUT ╱ // 0x29bb @0x4
0x29b7…29c1 at0005 = ╱4b╱K╱ // 0x29bc @0x5
0x29b7…29c1 at0006 = ╱54╱T╱ // 0x29bd @0x6
0x29b7…29c1 at0007 = ╱4e╱N╱ // 0x29be @0x7
0x29b7…29c1 at0008 = ╱ef╱$╱ // 0x29bf @0x8
0x29b7…29c1 at0009 = EOL // 0x29c0 @0x9
0x29b7…29c1 }
0x29c1…29d3 b72a 5200 EXEC NRTEST(KTN$)
0x29c1…29d3 LineComalBin {
0x29c1…29d3 ptr = 0xb72a // 0x29c1 @0x0
0x29c1…29d3 lno = 0x1450 // 0x29c3 @0x2
0x29c1…29d3 at0004 = ╱9d╱ EXEC ╱ // 0x29c5 @0x4
0x29c1…29d3 at0005 = ╱4e╱N╱ // 0x29c6 @0x5
0x29c1…29d3 at0006 = ╱52╱R╱ // 0x29c7 @0x6
0x29c1…29d3 at0007 = ╱54╱T╱ // 0x29c8 @0x7
0x29c1…29d3 at0008 = ╱45╱E╱ // 0x29c9 @0x8
0x29c1…29d3 at0009 = ╱53╱S╱ // 0x29ca @0x9
0x29c1…29d3 at000a = ╱54╱T╱ // 0x29cb @0xa
0x29c1…29d3 at000b = ╱ed╱(╱ // 0x29cc @0xb
0x29c1…29d3 at000c = ╱4b╱K╱ // 0x29cd @0xc
0x29c1…29d3 at000d = ╱54╱T╱ // 0x29ce @0xd
0x29c1…29d3 at000e = ╱4e╱N╱ // 0x29cf @0xe
0x29c1…29d3 at000f = ╱ef╱$╱ // 0x29d0 @0xf
0x29c1…29d3 at0010 = ╱ee╱)╱ // 0x29d1 @0x10
0x29c1…29d3 at0011 = EOL // 0x29d2 @0x11
0x29c1…29d3 }
0x29d3…29fc b753 5210 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT
0x29d3…29fc LineComalBin {
0x29d3…29fc ptr = 0xb753 // 0x29d3 @0x0
0x29d3…29fc lno = 0x145a // 0x29d5 @0x2
0x29d3…29fc at0004 = ╱98╱ UNTIL ╱ // 0x29d7 @0x4
0x29d3…29fc at0005 = ╱4c╱L╱ // 0x29d8 @0x5
0x29d3…29fc at0006 = ╱dc╱=╱ // 0x29d9 @0x6
0x29d3…29fc at0007 = ╱35╱5╱ // 0x29da @0x7
0x29d3…29fc at0008 = ╱fe0000a003╱ // 0x29db @0x8
0x29d3…29fc at000d = ╱da╱ AND ╱ // 0x29e0 @0xd
0x29d3…29fc at000e = ╱50╱P╱ // 0x29e1 @0xe
0x29d3…29fc at000f = ╱de╱>╱ // 0x29e2 @0xf
0x29d3…29fc at0010 = ╱39╱9╱ // 0x29e3 @0x10
0x29d3…29fc at0011 = ╱39╱9╱ // 0x29e4 @0x11
0x29d3…29fc at0012 = ╱39╱9╱ // 0x29e5 @0x12
0x29d3…29fc at0013 = ╱39╱9╱ // 0x29e6 @0x13
0x29d3…29fc at0014 = ╱fe003c9c0e╱ // 0x29e7 @0x14
0x29d3…29fc at0019 = ╱da╱ AND ╱ // 0x29ec @0x19
0x29d3…29fc at001a = ╱54╱T╱ // 0x29ed @0x1a
0x29d3…29fc at001b = ╱45╱E╱ // 0x29ee @0x1b
0x29d3…29fc at001c = ╱53╱S╱ // 0x29ef @0x1c
0x29d3…29fc at001d = ╱54╱T╱ // 0x29f0 @0x1d
0x29d3…29fc at001e = ╱32╱2╱ // 0x29f1 @0x1e
0x29d3…29fc at001f = ╱dc╱=╱ // 0x29f2 @0x1f
0x29d3…29fc at0020 = ╱42╱B╱ // 0x29f3 @0x20
0x29d3…29fc at0021 = ╱da╱ AND ╱ // 0x29f4 @0x21
0x29d3…29fc at0022 = ╱50╱P╱ // 0x29f5 @0x22
0x29d3…29fc at0023 = ╱e0╱=>╱ // 0x29f6 @0x23
0x29d3…29fc at0024 = ╱4b╱K╱ // 0x29f7 @0x24
0x29d3…29fc at0025 = ╱4f╱O╱ // 0x29f8 @0x25
0x29d3…29fc at0026 = ╱4e╱N╱ // 0x29f9 @0x26
0x29d3…29fc at0027 = ╱54╱T╱ // 0x29fa @0x27
0x29d3…29fc at0028 = EOL // 0x29fb @0x28
0x29d3…29fc }
0x29fc…2a20 b777 5220 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)
0x29fc…2a20 LineComalBin {
0x29fc…2a20 ptr = 0xb777 // 0x29fc @0x0
0x29fc…2a20 lno = 0x1464 // 0x29fe @0x2
0x29fc…2a20 at0004 = ╱9d╱ EXEC ╱ // 0x2a00 @0x4
0x29fc…2a20 at0005 = ╱46╱F╱ // 0x2a01 @0x5
0x29fc…2a20 at0006 = ╱49╱I╱ // 0x2a02 @0x6
0x29fc…2a20 at0007 = ╱4e╱N╱ // 0x2a03 @0x7
0x29fc…2a20 at0008 = ╱44╱D╱ // 0x2a04 @0x8
0x29fc…2a20 at0009 = ╱50╱P╱ // 0x2a05 @0x9
0x29fc…2a20 at000a = ╱4f╱O╱ // 0x2a06 @0xa
0x29fc…2a20 at000b = ╱53╱S╱ // 0x2a07 @0xb
0x29fc…2a20 at000c = ╱54╱T╱ // 0x2a08 @0xc
0x29fc…2a20 at000d = ╱ed╱(╱ // 0x2a09 @0xd
0x29fc…2a20 at000e = ╱4b╱K╱ // 0x2a0a @0xe
0x29fc…2a20 at000f = ╱54╱T╱ // 0x2a0b @0xf
0x29fc…2a20 at0010 = ╱41╱A╱ // 0x2a0c @0x10
0x29fc…2a20 at0011 = ╱42╱B╱ // 0x2a0d @0x11
0x29fc…2a20 at0012 = ╱ec╱,╱ // 0x2a0e @0x12
0x29fc…2a20 at0013 = ╱4d╱M╱ // 0x2a0f @0x13
0x29fc…2a20 at0014 = ╱4b╱K╱ // 0x2a10 @0x14
0x29fc…2a20 at0015 = ╱41╱A╱ // 0x2a11 @0x15
0x29fc…2a20 at0016 = ╱4e╱N╱ // 0x2a12 @0x16
0x29fc…2a20 at0017 = ╱54╱T╱ // 0x2a13 @0x17
0x29fc…2a20 at0018 = ╱41╱A╱ // 0x2a14 @0x18
0x29fc…2a20 at0019 = ╱4c╱L╱ // 0x2a15 @0x19
0x29fc…2a20 at001a = ╱ec╱,╱ // 0x2a16 @0x1a
0x29fc…2a20 at001b = ╱50╱P╱ // 0x2a17 @0x1b
0x29fc…2a20 at001c = ╱ec╱,╱ // 0x2a18 @0x1c
0x29fc…2a20 at001d = ╱4b╱K╱ // 0x2a19 @0x1d
0x29fc…2a20 at001e = ╱50╱P╱ // 0x2a1a @0x1e
0x29fc…2a20 at001f = ╱49╱I╱ // 0x2a1b @0x1f
0x29fc…2a20 at0020 = ╱4c╱L╱ // 0x2a1c @0x20
0x29fc…2a20 at0021 = ╱33╱3╱ // 0x2a1d @0x21
0x29fc…2a20 at0022 = ╱ee╱)╱ // 0x2a1e @0x22
0x29fc…2a20 at0023 = EOL // 0x2a1f @0x23
0x29fc…2a20 }
0x2a20…2a3a b791 5230 IF CEKS=E THEN KPIL3=KPIL3-E
0x2a20…2a3a LineComalBin {
0x2a20…2a3a ptr = 0xb791 // 0x2a20 @0x0
0x2a20…2a3a lno = 0x146e // 0x2a22 @0x2
0x2a20…2a3a at0004 = ╱82╱ IF ╱ // 0x2a24 @0x4
0x2a20…2a3a at0005 = ╱43╱C╱ // 0x2a25 @0x5
0x2a20…2a3a at0006 = ╱45╱E╱ // 0x2a26 @0x6
0x2a20…2a3a at0007 = ╱4b╱K╱ // 0x2a27 @0x7
0x2a20…2a3a at0008 = ╱53╱S╱ // 0x2a28 @0x8
0x2a20…2a3a at0009 = ╱dc╱=╱ // 0x2a29 @0x9
0x2a20…2a3a at000a = ╱45╱E╱ // 0x2a2a @0xa
0x2a20…2a3a at000b = ╱b6╱ THEN ╱ // 0x2a2b @0xb
0x2a20…2a3a at000c = ╱4b╱K╱ // 0x2a2c @0xc
0x2a20…2a3a at000d = ╱50╱P╱ // 0x2a2d @0xd
0x2a20…2a3a at000e = ╱49╱I╱ // 0x2a2e @0xe
0x2a20…2a3a at000f = ╱4c╱L╱ // 0x2a2f @0xf
0x2a20…2a3a at0010 = ╱33╱3╱ // 0x2a30 @0x10
0x2a20…2a3a at0011 = ╱dc╱=╱ // 0x2a31 @0x11
0x2a20…2a3a at0012 = ╱4b╱K╱ // 0x2a32 @0x12
0x2a20…2a3a at0013 = ╱50╱P╱ // 0x2a33 @0x13
0x2a20…2a3a at0014 = ╱49╱I╱ // 0x2a34 @0x14
0x2a20…2a3a at0015 = ╱4c╱L╱ // 0x2a35 @0x15
0x2a20…2a3a at0016 = ╱33╱3╱ // 0x2a36 @0x16
0x2a20…2a3a at0017 = ╱e3╱-╱ // 0x2a37 @0x17
0x2a20…2a3a at0018 = ╱45╱E╱ // 0x2a38 @0x18
0x2a20…2a3a at0019 = EOL // 0x2a39 @0x19
0x2a20…2a3a }
0x2a3a…2a48 b79f 5240 TIL=KPIL3
0x2a3a…2a48 LineComalBin {
0x2a3a…2a48 ptr = 0xb79f // 0x2a3a @0x0
0x2a3a…2a48 lno = 0x1478 // 0x2a3c @0x2
0x2a3a…2a48 at0004 = ╱54╱T╱ // 0x2a3e @0x4
0x2a3a…2a48 at0005 = ╱49╱I╱ // 0x2a3f @0x5
0x2a3a…2a48 at0006 = ╱4c╱L╱ // 0x2a40 @0x6
0x2a3a…2a48 at0007 = ╱dc╱=╱ // 0x2a41 @0x7
0x2a3a…2a48 at0008 = ╱4b╱K╱ // 0x2a42 @0x8
0x2a3a…2a48 at0009 = ╱50╱P╱ // 0x2a43 @0x9
0x2a3a…2a48 at000a = ╱49╱I╱ // 0x2a44 @0xa
0x2a3a…2a48 at000b = ╱4c╱L╱ // 0x2a45 @0xb
0x2a3a…2a48 at000c = ╱33╱3╱ // 0x2a46 @0xc
0x2a3a…2a48 at000d = EOL // 0x2a47 @0xd
0x2a3a…2a48 }
0x2a48…2a4e b7a5 5250 ENDIF
0x2a48…2a4e LineComalBin {
0x2a48…2a4e ptr = 0xb7a5 // 0x2a48 @0x0
0x2a48…2a4e lno = 0x1482 // 0x2a4a @0x2
0x2a48…2a4e at0004 = ╱9b╱ ENDIF ╱ // 0x2a4c @0x4
0x2a48…2a4e at0005 = EOL // 0x2a4d @0x5
0x2a48…2a4e }
0x2a4e…2a54 b7ab 5260 CLEAR
0x2a4e…2a54 LineComalBin {
0x2a4e…2a54 ptr = 0xb7ab // 0x2a4e @0x0
0x2a4e…2a54 lno = 0x148c // 0x2a50 @0x2
0x2a4e…2a54 at0004 = ╱a0╱ CLEAR ╱ // 0x2a52 @0x4
0x2a4e…2a54 at0005 = EOL // 0x2a53 @0x5
0x2a4e…2a54 }
0x2a54…2a5a b7b1 5270 REPEAT
0x2a54…2a5a LineComalBin {
0x2a54…2a5a ptr = 0xb7b1 // 0x2a54 @0x0
0x2a54…2a5a lno = 0x1496 // 0x2a56 @0x2
0x2a54…2a5a at0004 = ╱97╱ REPEAT ╱ // 0x2a58 @0x4
0x2a54…2a5a at0005 = EOL // 0x2a59 @0x5
0x2a54…2a5a }
0x2a5a…2a6e b7c5 5280 CURSOR 8,13
0x2a5a…2a6e LineComalBin {
0x2a5a…2a6e ptr = 0xb7c5 // 0x2a5a @0x0
0x2a5a…2a6e lno = 0x14a0 // 0x2a5c @0x2
0x2a5a…2a6e at0004 = ╱a1╱ CURSOR ╱ // 0x2a5e @0x4
0x2a5a…2a6e at0005 = ╱38╱8╱ // 0x2a5f @0x5
0x2a5a…2a6e at0006 = ╱fe00008004╱ // 0x2a60 @0x6
0x2a5a…2a6e at000b = ╱ec╱,╱ // 0x2a65 @0xb
0x2a5a…2a6e at000c = ╱31╱1╱ // 0x2a66 @0xc
0x2a5a…2a6e at000d = ╱33╱3╱ // 0x2a67 @0xd
0x2a5a…2a6e at000e = ╱fe0000d004╱ // 0x2a68 @0xe
0x2a5a…2a6e at0013 = EOL // 0x2a6d @0x13
0x2a5a…2a6e }
0x2a6e…2ab6 b80d 5290 INPUT "Monter papir til udskrift af kreditorkontoliste , tast RETURN",A$
0x2a6e…2ab6 LineComalBin {
0x2a6e…2ab6 ptr = 0xb80d // 0x2a6e @0x0
0x2a6e…2ab6 lno = 0x14aa // 0x2a70 @0x2
0x2a6e…2ab6 at0004 = ╱91╱ INPUT ╱ // 0x2a72 @0x4
0x2a6e…2ab6 at0005 = ╱22╱"╱ // 0x2a73 @0x5
0x2a6e…2ab6 at0006 = ╱4d╱M╱ // 0x2a74 @0x6
0x2a6e…2ab6 at0007 = ╱6f╱o╱ // 0x2a75 @0x7
0x2a6e…2ab6 at0008 = ╱6e╱n╱ // 0x2a76 @0x8
0x2a6e…2ab6 at0009 = ╱74╱t╱ // 0x2a77 @0x9
0x2a6e…2ab6 at000a = ╱65╱e╱ // 0x2a78 @0xa
0x2a6e…2ab6 at000b = ╱72╱r╱ // 0x2a79 @0xb
0x2a6e…2ab6 at000c = ╱20╱…╱ // 0x2a7a @0xc
0x2a6e…2ab6 at000d = ╱70╱p╱ // 0x2a7b @0xd
0x2a6e…2ab6 at000e = ╱61╱a╱ // 0x2a7c @0xe
0x2a6e…2ab6 at000f = ╱70╱p╱ // 0x2a7d @0xf
0x2a6e…2ab6 at0010 = ╱69╱i╱ // 0x2a7e @0x10
0x2a6e…2ab6 at0011 = ╱72╱r╱ // 0x2a7f @0x11
0x2a6e…2ab6 at0012 = ╱20╱…╱ // 0x2a80 @0x12
0x2a6e…2ab6 at0013 = ╱74╱t╱ // 0x2a81 @0x13
0x2a6e…2ab6 at0014 = ╱69╱i╱ // 0x2a82 @0x14
0x2a6e…2ab6 at0015 = ╱6c╱l╱ // 0x2a83 @0x15
0x2a6e…2ab6 at0016 = ╱20╱…╱ // 0x2a84 @0x16
0x2a6e…2ab6 at0017 = ╱75╱u╱ // 0x2a85 @0x17
0x2a6e…2ab6 at0018 = ╱64╱d╱ // 0x2a86 @0x18
0x2a6e…2ab6 at0019 = ╱73╱s╱ // 0x2a87 @0x19
0x2a6e…2ab6 at001a = ╱6b╱k╱ // 0x2a88 @0x1a
0x2a6e…2ab6 at001b = ╱72╱r╱ // 0x2a89 @0x1b
0x2a6e…2ab6 at001c = ╱69╱i╱ // 0x2a8a @0x1c
0x2a6e…2ab6 at001d = ╱66╱f╱ // 0x2a8b @0x1d
0x2a6e…2ab6 at001e = ╱74╱t╱ // 0x2a8c @0x1e
0x2a6e…2ab6 at001f = ╱20╱…╱ // 0x2a8d @0x1f
0x2a6e…2ab6 at0020 = ╱61╱a╱ // 0x2a8e @0x20
0x2a6e…2ab6 at0021 = ╱66╱f╱ // 0x2a8f @0x21
0x2a6e…2ab6 at0022 = ╱20╱…╱ // 0x2a90 @0x22
0x2a6e…2ab6 at0023 = ╱6b╱k╱ // 0x2a91 @0x23
0x2a6e…2ab6 at0024 = ╱72╱r╱ // 0x2a92 @0x24
0x2a6e…2ab6 at0025 = ╱65╱e╱ // 0x2a93 @0x25
0x2a6e…2ab6 at0026 = ╱64╱d╱ // 0x2a94 @0x26
0x2a6e…2ab6 at0027 = ╱69╱i╱ // 0x2a95 @0x27
0x2a6e…2ab6 at0028 = ╱74╱t╱ // 0x2a96 @0x28
0x2a6e…2ab6 at0029 = ╱6f╱o╱ // 0x2a97 @0x29
0x2a6e…2ab6 at002a = ╱72╱r╱ // 0x2a98 @0x2a
0x2a6e…2ab6 at002b = ╱6b╱k╱ // 0x2a99 @0x2b
0x2a6e…2ab6 at002c = ╱6f╱o╱ // 0x2a9a @0x2c
0x2a6e…2ab6 at002d = ╱6e╱n╱ // 0x2a9b @0x2d
0x2a6e…2ab6 at002e = ╱74╱t╱ // 0x2a9c @0x2e
0x2a6e…2ab6 at002f = ╱6f╱o╱ // 0x2a9d @0x2f
0x2a6e…2ab6 at0030 = ╱6c╱l╱ // 0x2a9e @0x30
0x2a6e…2ab6 at0031 = ╱69╱i╱ // 0x2a9f @0x31
0x2a6e…2ab6 at0032 = ╱73╱s╱ // 0x2aa0 @0x32
0x2a6e…2ab6 at0033 = ╱74╱t╱ // 0x2aa1 @0x33
0x2a6e…2ab6 at0034 = ╱65╱e╱ // 0x2aa2 @0x34
0x2a6e…2ab6 at0035 = ╱20╱…╱ // 0x2aa3 @0x35
0x2a6e…2ab6 at0036 = ╱2c╱,╱ // 0x2aa4 @0x36
0x2a6e…2ab6 at0037 = ╱20╱…╱ // 0x2aa5 @0x37
0x2a6e…2ab6 at0038 = ╱74╱t╱ // 0x2aa6 @0x38
0x2a6e…2ab6 at0039 = ╱61╱a╱ // 0x2aa7 @0x39
0x2a6e…2ab6 at003a = ╱73╱s╱ // 0x2aa8 @0x3a
0x2a6e…2ab6 at003b = ╱74╱t╱ // 0x2aa9 @0x3b
0x2a6e…2ab6 at003c = ╱20╱…╱ // 0x2aaa @0x3c
0x2a6e…2ab6 at003d = ╱52╱R╱ // 0x2aab @0x3d
0x2a6e…2ab6 at003e = ╱45╱E╱ // 0x2aac @0x3e
0x2a6e…2ab6 at003f = ╱54╱T╱ // 0x2aad @0x3f
0x2a6e…2ab6 at0040 = ╱55╱U╱ // 0x2aae @0x40
0x2a6e…2ab6 at0041 = ╱52╱R╱ // 0x2aaf @0x41
0x2a6e…2ab6 at0042 = ╱4e╱N╱ // 0x2ab0 @0x42
0x2a6e…2ab6 at0043 = ╱22╱"╱ // 0x2ab1 @0x43
0x2a6e…2ab6 at0044 = ╱ec╱,╱ // 0x2ab2 @0x44
0x2a6e…2ab6 at0045 = ╱41╱A╱ // 0x2ab3 @0x45
0x2a6e…2ab6 at0046 = ╱ef╱$╱ // 0x2ab4 @0x46
0x2a6e…2ab6 at0047 = EOL // 0x2ab5 @0x47
0x2a6e…2ab6 }
0x2ab6…2aca (142,) b821 5300 UNTIL ORD(A$)=255
0x2ab6…2aca LineComalBin {
0x2ab6…2aca ptr = 0xb821 // 0x2ab6 @0x0
0x2ab6…2aca lno = 0x14b4 // 0x2ab8 @0x2
0x2ab6…2aca at0004 = ╱98╱ UNTIL ╱ // 0x2aba @0x4
0x2ab6…2aca at0005 = ╱cd╱ORD╱ // 0x2abb @0x5
0x2ab6…2aca at0006 = ╱ed╱(╱ // 0x2abc @0x6
0x2ab6…2aca at0007 = ╱41╱A╱ // 0x2abd @0x7
0x2ab6…2aca at0008 = ╱ef╱$╱ // 0x2abe @0x8
0x2ab6…2aca at0009 = ╱ee╱)╱ // 0x2abf @0x9
0x2ab6…2aca at000a = ╱dc╱=╱ // 0x2ac0 @0xa
0x2ab6…2aca at000b = ╱32╱2╱ // 0x2ac1 @0xb
0x2ab6…2aca at000c = ╱35╱5╱ // 0x2ac2 @0xc
0x2ab6…2aca at000d = ╱35╱5╱ // 0x2ac3 @0xd
0x2ab6…2aca at000e = ╱fe0000ff08╱ // 0x2ac4 @0xe
0x2ab6…2aca at0013 = EOL // 0x2ac9 @0x13
0x2ab6…2aca }
0x2aca…2ad1 b828 5310 OUTPUT P
0x2aca…2ad1 LineComalBin {
0x2aca…2ad1 ptr = 0xb828 // 0x2aca @0x0
0x2aca…2ad1 lno = 0x14be // 0x2acc @0x2
0x2aca…2ad1 at0004 = ╱a5╱ OUTPUT ╱ // 0x2ace @0x4
0x2aca…2ad1 at0005 = ╱50╱P╱ // 0x2acf @0x5
0x2aca…2ad1 at0006 = EOL // 0x2ad0 @0x6
0x2aca…2ad1 }
0x2ad1…2af5 b84c 5320 SIDE=E;DA1=DATO;DAT$=" "
0x2ad1…2af5 LineComalBin {
0x2ad1…2af5 ptr = 0xb84c // 0x2ad1 @0x0
0x2ad1…2af5 lno = 0x14c8 // 0x2ad3 @0x2
0x2ad1…2af5 at0004 = ╱53╱S╱ // 0x2ad5 @0x4
0x2ad1…2af5 at0005 = ╱49╱I╱ // 0x2ad6 @0x5
0x2ad1…2af5 at0006 = ╱44╱D╱ // 0x2ad7 @0x6
0x2ad1…2af5 at0007 = ╱45╱E╱ // 0x2ad8 @0x7
0x2ad1…2af5 at0008 = ╱dc╱=╱ // 0x2ad9 @0x8
0x2ad1…2af5 at0009 = ╱45╱E╱ // 0x2ada @0x9
0x2ad1…2af5 at000a = ╱eb╱;╱ // 0x2adb @0xa
0x2ad1…2af5 at000b = ╱44╱D╱ // 0x2adc @0xb
0x2ad1…2af5 at000c = ╱41╱A╱ // 0x2add @0xc
0x2ad1…2af5 at000d = ╱31╱1╱ // 0x2ade @0xd
0x2ad1…2af5 at000e = ╱dc╱=╱ // 0x2adf @0xe
0x2ad1…2af5 at000f = ╱44╱D╱ // 0x2ae0 @0xf
0x2ad1…2af5 at0010 = ╱41╱A╱ // 0x2ae1 @0x10
0x2ad1…2af5 at0011 = ╱54╱T╱ // 0x2ae2 @0x11
0x2ad1…2af5 at0012 = ╱4f╱O╱ // 0x2ae3 @0x12
0x2ad1…2af5 at0013 = ╱eb╱;╱ // 0x2ae4 @0x13
0x2ad1…2af5 at0014 = ╱44╱D╱ // 0x2ae5 @0x14
0x2ad1…2af5 at0015 = ╱41╱A╱ // 0x2ae6 @0x15
0x2ad1…2af5 at0016 = ╱54╱T╱ // 0x2ae7 @0x16
0x2ad1…2af5 at0017 = ╱ef╱$╱ // 0x2ae8 @0x17
0x2ad1…2af5 at0018 = ╱dc╱=╱ // 0x2ae9 @0x18
0x2ad1…2af5 at0019 = ╱22╱"╱ // 0x2aea @0x19
0x2ad1…2af5 at001a = ╱20╱…╱ // 0x2aeb @0x1a
0x2ad1…2af5 at001b = ╱20╱…╱ // 0x2aec @0x1b
0x2ad1…2af5 at001c = ╱20╱…╱ // 0x2aed @0x1c
0x2ad1…2af5 at001d = ╱20╱…╱ // 0x2aee @0x1d
0x2ad1…2af5 at001e = ╱20╱…╱ // 0x2aef @0x1e
0x2ad1…2af5 at001f = ╱20╱…╱ // 0x2af0 @0x1f
0x2ad1…2af5 at0020 = ╱20╱…╱ // 0x2af1 @0x20
0x2ad1…2af5 at0021 = ╱20╱…╱ // 0x2af2 @0x21
0x2ad1…2af5 at0022 = ╱22╱"╱ // 0x2af3 @0x22
0x2ad1…2af5 at0023 = EOL // 0x2af4 @0x23
0x2ad1…2af5 }
0x2af5…2b08 b85f 5330 FOR J=8 TO E STEP -E
0x2af5…2b08 LineComalBin {
0x2af5…2b08 ptr = 0xb85f // 0x2af5 @0x0
0x2af5…2b08 lno = 0x14d2 // 0x2af7 @0x2
0x2af5…2b08 at0004 = ╱83╱ FOR ╱ // 0x2af9 @0x4
0x2af5…2b08 at0005 = ╱4a╱J╱ // 0x2afa @0x5
0x2af5…2b08 at0006 = ╱dc╱=╱ // 0x2afb @0x6
0x2af5…2b08 at0007 = ╱38╱8╱ // 0x2afc @0x7
0x2af5…2b08 at0008 = ╱fe00008004╱ // 0x2afd @0x8
0x2af5…2b08 at000d = ╱b7╱ TO ╱ // 0x2b02 @0xd
0x2af5…2b08 at000e = ╱45╱E╱ // 0x2b03 @0xe
0x2af5…2b08 at000f = ╱b8╱ STEP ╱ // 0x2b04 @0xf
0x2af5…2b08 at0010 = ╱e9╱-╱ // 0x2b05 @0x10
0x2af5…2b08 at0011 = ╱45╱E╱ // 0x2b06 @0x11
0x2af5…2b08 at0012 = EOL // 0x2b07 @0x12
0x2af5…2b08 }
0x2b08…2b14 b86b 5340 IF J MOD V=B THEN
0x2b08…2b14 LineComalBin {
0x2b08…2b14 ptr = 0xb86b // 0x2b08 @0x0
0x2b08…2b14 lno = 0x14dc // 0x2b0a @0x2
0x2b08…2b14 at0004 = ╱9c╱ IF ╱ // 0x2b0c @0x4
0x2b08…2b14 at0005 = ╱4a╱J╱ // 0x2b0d @0x5
0x2b08…2b14 at0006 = ╱e8╱ MOD ╱ // 0x2b0e @0x6
0x2b08…2b14 at0007 = ╱56╱V╱ // 0x2b0f @0x7
0x2b08…2b14 at0008 = ╱dc╱=╱ // 0x2b10 @0x8
0x2b08…2b14 at0009 = ╱42╱B╱ // 0x2b11 @0x9
0x2b08…2b14 at000a = ╱b6╱ THEN ╱ // 0x2b12 @0xa
0x2b08…2b14 at000b = EOL // 0x2b13 @0xb
0x2b08…2b14 }
0x2b14…2b24 b87b 5350 DAT$(J)="."
0x2b14…2b24 LineComalBin {
0x2b14…2b24 ptr = 0xb87b // 0x2b14 @0x0
0x2b14…2b24 lno = 0x14e6 // 0x2b16 @0x2
0x2b14…2b24 at0004 = ╱44╱D╱ // 0x2b18 @0x4
0x2b14…2b24 at0005 = ╱41╱A╱ // 0x2b19 @0x5
0x2b14…2b24 at0006 = ╱54╱T╱ // 0x2b1a @0x6
0x2b14…2b24 at0007 = ╱ef╱$╱ // 0x2b1b @0x7
0x2b14…2b24 at0008 = ╱ed╱(╱ // 0x2b1c @0x8
0x2b14…2b24 at0009 = ╱4a╱J╱ // 0x2b1d @0x9
0x2b14…2b24 at000a = ╱ee╱)╱ // 0x2b1e @0xa
0x2b14…2b24 at000b = ╱dc╱=╱ // 0x2b1f @0xb
0x2b14…2b24 at000c = ╱22╱"╱ // 0x2b20 @0xc
0x2b14…2b24 at000d = ╱2e╱.╱ // 0x2b21 @0xd
0x2b14…2b24 at000e = ╱22╱"╱ // 0x2b22 @0xe
0x2b14…2b24 at000f = EOL // 0x2b23 @0xf
0x2b14…2b24 }
0x2b24…2b2a b881 5360 ELSE
0x2b24…2b2a LineComalBin {
0x2b24…2b2a ptr = 0xb881 // 0x2b24 @0x0
0x2b24…2b2a lno = 0x14f0 // 0x2b26 @0x2
0x2b24…2b2a at0004 = ╱9a╱ ELSE ╱ // 0x2b28 @0x4
0x2b24…2b2a at0005 = EOL // 0x2b29 @0x5
0x2b24…2b2a }
0x2b2a…2b5d b8b4 5370 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10
0x2b2a…2b5d LineComalBin {
0x2b2a…2b5d ptr = 0xb8b4 // 0x2b2a @0x0
0x2b2a…2b5d lno = 0x14fa // 0x2b2c @0x2
0x2b2a…2b5d at0004 = ╱44╱D╱ // 0x2b2e @0x4
0x2b2a…2b5d at0005 = ╱41╱A╱ // 0x2b2f @0x5
0x2b2a…2b5d at0006 = ╱54╱T╱ // 0x2b30 @0x6
0x2b2a…2b5d at0007 = ╱ef╱$╱ // 0x2b31 @0x7
0x2b2a…2b5d at0008 = ╱ed╱(╱ // 0x2b32 @0x8
0x2b2a…2b5d at0009 = ╱4a╱J╱ // 0x2b33 @0x9
0x2b2a…2b5d at000a = ╱ee╱)╱ // 0x2b34 @0xa
0x2b2a…2b5d at000b = ╱dc╱=╱ // 0x2b35 @0xb
0x2b2a…2b5d at000c = ╱cf╱CHR╱ // 0x2b36 @0xc
0x2b2a…2b5d at000d = ╱ed╱(╱ // 0x2b37 @0xd
0x2b2a…2b5d at000e = ╱44╱D╱ // 0x2b38 @0xe
0x2b2a…2b5d at000f = ╱41╱A╱ // 0x2b39 @0xf
0x2b2a…2b5d at0010 = ╱31╱1╱ // 0x2b3a @0x10
0x2b2a…2b5d at0011 = ╱e8╱ MOD ╱ // 0x2b3b @0x11
0x2b2a…2b5d at0012 = ╱31╱1╱ // 0x2b3c @0x12
0x2b2a…2b5d at0013 = ╱30╱0╱ // 0x2b3d @0x13
0x2b2a…2b5d at0014 = ╱fe0000a004╱ // 0x2b3e @0x14
0x2b2a…2b5d at0019 = ╱e2╱+╱ // 0x2b43 @0x19
0x2b2a…2b5d at001a = ╱34╱4╱ // 0x2b44 @0x1a
0x2b2a…2b5d at001b = ╱38╱8╱ // 0x2b45 @0x1b
0x2b2a…2b5d at001c = ╱fe0000c006╱ // 0x2b46 @0x1c
0x2b2a…2b5d at0021 = ╱ee╱)╱ // 0x2b4b @0x21
0x2b2a…2b5d at0022 = ╱eb╱;╱ // 0x2b4c @0x22
0x2b2a…2b5d at0023 = ╱44╱D╱ // 0x2b4d @0x23
0x2b2a…2b5d at0024 = ╱41╱A╱ // 0x2b4e @0x24
0x2b2a…2b5d at0025 = ╱31╱1╱ // 0x2b4f @0x25
0x2b2a…2b5d at0026 = ╱dc╱=╱ // 0x2b50 @0x26
0x2b2a…2b5d at0027 = ╱44╱D╱ // 0x2b51 @0x27
0x2b2a…2b5d at0028 = ╱41╱A╱ // 0x2b52 @0x28
0x2b2a…2b5d at0029 = ╱31╱1╱ // 0x2b53 @0x29
0x2b2a…2b5d at002a = ╱e7╱ DIV ╱ // 0x2b54 @0x2a
0x2b2a…2b5d at002b = ╱31╱1╱ // 0x2b55 @0x2b
0x2b2a…2b5d at002c = ╱30╱0╱ // 0x2b56 @0x2c
0x2b2a…2b5d at002d = ╱fe0000a004╱ // 0x2b57 @0x2d
0x2b2a…2b5d at0032 = EOL // 0x2b5c @0x32
0x2b2a…2b5d }
0x2b5d…2b63 b8ba 5380 ENDIF
0x2b5d…2b63 LineComalBin {
0x2b5d…2b63 ptr = 0xb8ba // 0x2b5d @0x0
0x2b5d…2b63 lno = 0x1504 // 0x2b5f @0x2
0x2b5d…2b63 at0004 = ╱9b╱ ENDIF ╱ // 0x2b61 @0x4
0x2b5d…2b63 at0005 = EOL // 0x2b62 @0x5
0x2b5d…2b63 }
0x2b63…2b6a b8c1 5390 NEXT J
0x2b63…2b6a LineComalBin {
0x2b63…2b6a ptr = 0xb8c1 // 0x2b63 @0x0
0x2b63…2b6a lno = 0x150e // 0x2b65 @0x2
0x2b63…2b6a at0004 = ╱84╱ NEXT ╱ // 0x2b67 @0x4
0x2b63…2b6a at0005 = ╱4a╱J╱ // 0x2b68 @0x5
0x2b63…2b6a at0006 = EOL // 0x2b69 @0x6
0x2b63…2b6a }
0x2b6a…2b80 b8d7 5400 FOR I=FRA TO TIL STEP 6
0x2b6a…2b80 LineComalBin {
0x2b6a…2b80 ptr = 0xb8d7 // 0x2b6a @0x0
0x2b6a…2b80 lno = 0x1518 // 0x2b6c @0x2
0x2b6a…2b80 at0004 = ╱83╱ FOR ╱ // 0x2b6e @0x4
0x2b6a…2b80 at0005 = ╱49╱I╱ // 0x2b6f @0x5
0x2b6a…2b80 at0006 = ╱dc╱=╱ // 0x2b70 @0x6
0x2b6a…2b80 at0007 = ╱46╱F╱ // 0x2b71 @0x7
0x2b6a…2b80 at0008 = ╱52╱R╱ // 0x2b72 @0x8
0x2b6a…2b80 at0009 = ╱41╱A╱ // 0x2b73 @0x9
0x2b6a…2b80 at000a = ╱b7╱ TO ╱ // 0x2b74 @0xa
0x2b6a…2b80 at000b = ╱54╱T╱ // 0x2b75 @0xb
0x2b6a…2b80 at000c = ╱49╱I╱ // 0x2b76 @0xc
0x2b6a…2b80 at000d = ╱4c╱L╱ // 0x2b77 @0xd
0x2b6a…2b80 at000e = ╱b8╱ STEP ╱ // 0x2b78 @0xe
0x2b6a…2b80 at000f = ╱36╱6╱ // 0x2b79 @0xf
0x2b6a…2b80 at0010 = ╱fe0000c003╱ // 0x2b7a @0x10
0x2b6a…2b80 at0015 = EOL // 0x2b7f @0x15
0x2b6a…2b80 }
0x2b80…2b98 b8ef 5405 PRINT TAB(67);DV$;" "
0x2b80…2b98 LineComalBin {
0x2b80…2b98 ptr = 0xb8ef // 0x2b80 @0x0
0x2b80…2b98 lno = 0x151d // 0x2b82 @0x2
0x2b80…2b98 at0004 = ╱92╱ PRINT ╱ // 0x2b84 @0x4
0x2b80…2b98 at0005 = ╱d2╱TAB╱ // 0x2b85 @0x5
0x2b80…2b98 at0006 = ╱ed╱(╱ // 0x2b86 @0x6
0x2b80…2b98 at0007 = ╱36╱6╱ // 0x2b87 @0x7
0x2b80…2b98 at0008 = ╱37╱7╱ // 0x2b88 @0x8
0x2b80…2b98 at0009 = ╱fe00008607╱ // 0x2b89 @0x9
0x2b80…2b98 at000e = ╱ee╱)╱ // 0x2b8e @0xe
0x2b80…2b98 at000f = ╱eb╱;╱ // 0x2b8f @0xf
0x2b80…2b98 at0010 = ╱44╱D╱ // 0x2b90 @0x10
0x2b80…2b98 at0011 = ╱56╱V╱ // 0x2b91 @0x11
0x2b80…2b98 at0012 = ╱ef╱$╱ // 0x2b92 @0x12
0x2b80…2b98 at0013 = ╱eb╱;╱ // 0x2b93 @0x13
0x2b80…2b98 at0014 = ╱22╱"╱ // 0x2b94 @0x14
0x2b80…2b98 at0015 = ╱20╱…╱ // 0x2b95 @0x15
0x2b80…2b98 at0016 = ╱22╱"╱ // 0x2b96 @0x16
0x2b80…2b98 at0017 = EOL // 0x2b97 @0x17
0x2b80…2b98 }
0x2b98…2be9 b940 5410 PRINT TAB(10);CHR(14);"Kreditorkontoliste";CHR(15);TAB(32);"Dato : ";
0x2b98…2be9 LineComalBin {
0x2b98…2be9 ptr = 0xb940 // 0x2b98 @0x0
0x2b98…2be9 lno = 0x1522 // 0x2b9a @0x2
0x2b98…2be9 at0004 = ╱92╱ PRINT ╱ // 0x2b9c @0x4
0x2b98…2be9 at0005 = ╱d2╱TAB╱ // 0x2b9d @0x5
0x2b98…2be9 at0006 = ╱ed╱(╱ // 0x2b9e @0x6
0x2b98…2be9 at0007 = ╱31╱1╱ // 0x2b9f @0x7
0x2b98…2be9 at0008 = ╱30╱0╱ // 0x2ba0 @0x8
0x2b98…2be9 at0009 = ╱fe0000a004╱ // 0x2ba1 @0x9
0x2b98…2be9 at000e = ╱ee╱)╱ // 0x2ba6 @0xe
0x2b98…2be9 at000f = ╱eb╱;╱ // 0x2ba7 @0xf
0x2b98…2be9 at0010 = ╱cf╱CHR╱ // 0x2ba8 @0x10
0x2b98…2be9 at0011 = ╱ed╱(╱ // 0x2ba9 @0x11
0x2b98…2be9 at0012 = ╱31╱1╱ // 0x2baa @0x12
0x2b98…2be9 at0013 = ╱34╱4╱ // 0x2bab @0x13
0x2b98…2be9 at0014 = ╱fe0000e004╱ // 0x2bac @0x14
0x2b98…2be9 at0019 = ╱ee╱)╱ // 0x2bb1 @0x19
0x2b98…2be9 at001a = ╱eb╱;╱ // 0x2bb2 @0x1a
0x2b98…2be9 at001b = ╱22╱"╱ // 0x2bb3 @0x1b
0x2b98…2be9 at001c = ╱4b╱K╱ // 0x2bb4 @0x1c
0x2b98…2be9 at001d = ╱72╱r╱ // 0x2bb5 @0x1d
0x2b98…2be9 at001e = ╱65╱e╱ // 0x2bb6 @0x1e
0x2b98…2be9 at001f = ╱64╱d╱ // 0x2bb7 @0x1f
0x2b98…2be9 at0020 = ╱69╱i╱ // 0x2bb8 @0x20
0x2b98…2be9 at0021 = ╱74╱t╱ // 0x2bb9 @0x21
0x2b98…2be9 at0022 = ╱6f╱o╱ // 0x2bba @0x22
0x2b98…2be9 at0023 = ╱72╱r╱ // 0x2bbb @0x23
0x2b98…2be9 at0024 = ╱6b╱k╱ // 0x2bbc @0x24
0x2b98…2be9 at0025 = ╱6f╱o╱ // 0x2bbd @0x25
0x2b98…2be9 at0026 = ╱6e╱n╱ // 0x2bbe @0x26
0x2b98…2be9 at0027 = ╱74╱t╱ // 0x2bbf @0x27
0x2b98…2be9 at0028 = ╱6f╱o╱ // 0x2bc0 @0x28
0x2b98…2be9 at0029 = ╱6c╱l╱ // 0x2bc1 @0x29
0x2b98…2be9 at002a = ╱69╱i╱ // 0x2bc2 @0x2a
0x2b98…2be9 at002b = ╱73╱s╱ // 0x2bc3 @0x2b
0x2b98…2be9 at002c = ╱74╱t╱ // 0x2bc4 @0x2c
0x2b98…2be9 at002d = ╱65╱e╱ // 0x2bc5 @0x2d
0x2b98…2be9 at002e = ╱22╱"╱ // 0x2bc6 @0x2e
0x2b98…2be9 at002f = ╱eb╱;╱ // 0x2bc7 @0x2f
0x2b98…2be9 at0030 = ╱cf╱CHR╱ // 0x2bc8 @0x30
0x2b98…2be9 at0031 = ╱ed╱(╱ // 0x2bc9 @0x31
0x2b98…2be9 at0032 = ╱31╱1╱ // 0x2bca @0x32
0x2b98…2be9 at0033 = ╱35╱5╱ // 0x2bcb @0x33
0x2b98…2be9 at0034 = ╱fe0000f004╱ // 0x2bcc @0x34
0x2b98…2be9 at0039 = ╱ee╱)╱ // 0x2bd1 @0x39
0x2b98…2be9 at003a = ╱eb╱;╱ // 0x2bd2 @0x3a
0x2b98…2be9 at003b = ╱d2╱TAB╱ // 0x2bd3 @0x3b
0x2b98…2be9 at003c = ╱ed╱(╱ // 0x2bd4 @0x3c
0x2b98…2be9 at003d = ╱33╱3╱ // 0x2bd5 @0x3d
0x2b98…2be9 at003e = ╱32╱2╱ // 0x2bd6 @0x3e
0x2b98…2be9 at003f = ╱fe00008006╱ // 0x2bd7 @0x3f
0x2b98…2be9 at0044 = ╱ee╱)╱ // 0x2bdc @0x44
0x2b98…2be9 at0045 = ╱eb╱;╱ // 0x2bdd @0x45
0x2b98…2be9 at0046 = ╱22╱"╱ // 0x2bde @0x46
0x2b98…2be9 at0047 = ╱44╱D╱ // 0x2bdf @0x47
0x2b98…2be9 at0048 = ╱61╱a╱ // 0x2be0 @0x48
0x2b98…2be9 at0049 = ╱74╱t╱ // 0x2be1 @0x49
0x2b98…2be9 at004a = ╱6f╱o╱ // 0x2be2 @0x4a
0x2b98…2be9 at004b = ╱20╱…╱ // 0x2be3 @0x4b
0x2b98…2be9 at004c = ╱3a╱:╱ // 0x2be4 @0x4c
0x2b98…2be9 at004d = ╱20╱…╱ // 0x2be5 @0x4d
0x2b98…2be9 at004e = ╱22╱"╱ // 0x2be6 @0x4e
0x2b98…2be9 at004f = ╱eb╱;╱ // 0x2be7 @0x4f
0x2b98…2be9 at0050 = EOL // 0x2be8 @0x50
0x2b98…2be9 }
0x2be9…2bf4 b94b 5420 PRINT DAT$;
0x2be9…2bf4 LineComalBin {
0x2be9…2bf4 ptr = 0xb94b // 0x2be9 @0x0
0x2be9…2bf4 lno = 0x152c // 0x2beb @0x2
0x2be9…2bf4 at0004 = ╱92╱ PRINT ╱ // 0x2bed @0x4
0x2be9…2bf4 at0005 = ╱44╱D╱ // 0x2bee @0x5
0x2be9…2bf4 at0006 = ╱41╱A╱ // 0x2bef @0x6
0x2be9…2bf4 at0007 = ╱54╱T╱ // 0x2bf0 @0x7
0x2be9…2bf4 at0008 = ╱ef╱$╱ // 0x2bf1 @0x8
0x2be9…2bf4 at0009 = ╱eb╱;╱ // 0x2bf2 @0x9
0x2be9…2bf4 at000a = EOL // 0x2bf3 @0xa
0x2be9…2bf4 }
0x2bf4…2c0f b966 5430 PRINT USING " Side :####":SIDE
0x2bf4…2c0f LineComalBin {
0x2bf4…2c0f ptr = 0xb966 // 0x2bf4 @0x0
0x2bf4…2c0f lno = 0x1536 // 0x2bf6 @0x2
0x2bf4…2c0f at0004 = ╱92╱ PRINT ╱ // 0x2bf8 @0x4
0x2bf4…2c0f at0005 = ╱b9╱ USING ╱ // 0x2bf9 @0x5
0x2bf4…2c0f at0006 = ╱22╱"╱ // 0x2bfa @0x6
0x2bf4…2c0f at0007 = ╱20╱…╱ // 0x2bfb @0x7
0x2bf4…2c0f at0008 = ╱20╱…╱ // 0x2bfc @0x8
0x2bf4…2c0f at0009 = ╱20╱…╱ // 0x2bfd @0x9
0x2bf4…2c0f at000a = ╱53╱S╱ // 0x2bfe @0xa
0x2bf4…2c0f at000b = ╱69╱i╱ // 0x2bff @0xb
0x2bf4…2c0f at000c = ╱64╱d╱ // 0x2c00 @0xc
0x2bf4…2c0f at000d = ╱65╱e╱ // 0x2c01 @0xd
0x2bf4…2c0f at000e = ╱20╱…╱ // 0x2c02 @0xe
0x2bf4…2c0f at000f = ╱3a╱:╱ // 0x2c03 @0xf
0x2bf4…2c0f at0010 = ╱23╱#╱ // 0x2c04 @0x10
0x2bf4…2c0f at0011 = ╱23╱#╱ // 0x2c05 @0x11
0x2bf4…2c0f at0012 = ╱23╱#╱ // 0x2c06 @0x12
0x2bf4…2c0f at0013 = ╱23╱#╱ // 0x2c07 @0x13
0x2bf4…2c0f at0014 = ╱22╱"╱ // 0x2c08 @0x14
0x2bf4…2c0f at0015 = ╱f0╱:╱ // 0x2c09 @0x15
0x2bf4…2c0f at0016 = ╱53╱S╱ // 0x2c0a @0x16
0x2bf4…2c0f at0017 = ╱49╱I╱ // 0x2c0b @0x17
0x2bf4…2c0f at0018 = ╱44╱D╱ // 0x2c0c @0x18
0x2bf4…2c0f at0019 = ╱45╱E╱ // 0x2c0d @0x19
0x2bf4…2c0f at001a = EOL // 0x2c0e @0x1a
0x2bf4…2c0f }
0x2c0f…2c18 b96f 5440 PRINT " "
0x2c0f…2c18 LineComalBin {
0x2c0f…2c18 ptr = 0xb96f // 0x2c0f @0x0
0x2c0f…2c18 lno = 0x1540 // 0x2c11 @0x2
0x2c0f…2c18 at0004 = ╱92╱ PRINT ╱ // 0x2c13 @0x4
0x2c0f…2c18 at0005 = ╱22╱"╱ // 0x2c14 @0x5
0x2c0f…2c18 at0006 = ╱20╱…╱ // 0x2c15 @0x6
0x2c0f…2c18 at0007 = ╱22╱"╱ // 0x2c16 @0x7
0x2c0f…2c18 at0008 = EOL // 0x2c17 @0x8
0x2c0f…2c18 }
0x2c18…2c28 b97f 5450 SIDE=SIDE+E
0x2c18…2c28 LineComalBin {
0x2c18…2c28 ptr = 0xb97f // 0x2c18 @0x0
0x2c18…2c28 lno = 0x154a // 0x2c1a @0x2
0x2c18…2c28 at0004 = ╱53╱S╱ // 0x2c1c @0x4
0x2c18…2c28 at0005 = ╱49╱I╱ // 0x2c1d @0x5
0x2c18…2c28 at0006 = ╱44╱D╱ // 0x2c1e @0x6
0x2c18…2c28 at0007 = ╱45╱E╱ // 0x2c1f @0x7
0x2c18…2c28 at0008 = ╱dc╱=╱ // 0x2c20 @0x8
0x2c18…2c28 at0009 = ╱53╱S╱ // 0x2c21 @0x9
0x2c18…2c28 at000a = ╱49╱I╱ // 0x2c22 @0xa
0x2c18…2c28 at000b = ╱44╱D╱ // 0x2c23 @0xb
0x2c18…2c28 at000c = ╱45╱E╱ // 0x2c24 @0xc
0x2c18…2c28 at000d = ╱e2╱+╱ // 0x2c25 @0xd
0x2c18…2c28 at000e = ╱45╱E╱ // 0x2c26 @0xe
0x2c18…2c28 at000f = EOL // 0x2c27 @0xf
0x2c18…2c28 }
0x2c28…2c3e b995 5460 FOR KPIL3=I TO I+5
0x2c28…2c3e LineComalBin {
0x2c28…2c3e ptr = 0xb995 // 0x2c28 @0x0
0x2c28…2c3e lno = 0x1554 // 0x2c2a @0x2
0x2c28…2c3e at0004 = ╱83╱ FOR ╱ // 0x2c2c @0x4
0x2c28…2c3e at0005 = ╱4b╱K╱ // 0x2c2d @0x5
0x2c28…2c3e at0006 = ╱50╱P╱ // 0x2c2e @0x6
0x2c28…2c3e at0007 = ╱49╱I╱ // 0x2c2f @0x7
0x2c28…2c3e at0008 = ╱4c╱L╱ // 0x2c30 @0x8
0x2c28…2c3e at0009 = ╱33╱3╱ // 0x2c31 @0x9
0x2c28…2c3e at000a = ╱dc╱=╱ // 0x2c32 @0xa
0x2c28…2c3e at000b = ╱49╱I╱ // 0x2c33 @0xb
0x2c28…2c3e at000c = ╱b7╱ TO ╱ // 0x2c34 @0xc
0x2c28…2c3e at000d = ╱49╱I╱ // 0x2c35 @0xd
0x2c28…2c3e at000e = ╱e2╱+╱ // 0x2c36 @0xe
0x2c28…2c3e at000f = ╱35╱5╱ // 0x2c37 @0xf
0x2c28…2c3e at0010 = ╱fe0000a003╱ // 0x2c38 @0x10
0x2c28…2c3e at0015 = EOL // 0x2c3d @0x15
0x2c28…2c3e }
0x2c3e…2c54 b9ab 5470 IF KTAB(KPIL3,E)>B THEN
0x2c3e…2c54 LineComalBin {
0x2c3e…2c54 ptr = 0xb9ab // 0x2c3e @0x0
0x2c3e…2c54 lno = 0x155e // 0x2c40 @0x2
0x2c3e…2c54 at0004 = ╱9c╱ IF ╱ // 0x2c42 @0x4
0x2c3e…2c54 at0005 = ╱4b╱K╱ // 0x2c43 @0x5
0x2c3e…2c54 at0006 = ╱54╱T╱ // 0x2c44 @0x6
0x2c3e…2c54 at0007 = ╱41╱A╱ // 0x2c45 @0x7
0x2c3e…2c54 at0008 = ╱42╱B╱ // 0x2c46 @0x8
0x2c3e…2c54 at0009 = ╱ed╱(╱ // 0x2c47 @0x9
0x2c3e…2c54 at000a = ╱4b╱K╱ // 0x2c48 @0xa
0x2c3e…2c54 at000b = ╱50╱P╱ // 0x2c49 @0xb
0x2c3e…2c54 at000c = ╱49╱I╱ // 0x2c4a @0xc
0x2c3e…2c54 at000d = ╱4c╱L╱ // 0x2c4b @0xd
0x2c3e…2c54 at000e = ╱33╱3╱ // 0x2c4c @0xe
0x2c3e…2c54 at000f = ╱ec╱,╱ // 0x2c4d @0xf
0x2c3e…2c54 at0010 = ╱45╱E╱ // 0x2c4e @0x10
0x2c3e…2c54 at0011 = ╱ee╱)╱ // 0x2c4f @0x11
0x2c3e…2c54 at0012 = ╱de╱>╱ // 0x2c50 @0x12
0x2c3e…2c54 at0013 = ╱42╱B╱ // 0x2c51 @0x13
0x2c3e…2c54 at0014 = ╱b6╱ THEN ╱ // 0x2c52 @0x14
0x2c3e…2c54 at0015 = EOL // 0x2c53 @0x15
0x2c3e…2c54 }
0x2c54…2c63 b9ba 5480 EXEC HENTKPOST
0x2c54…2c63 LineComalBin {
0x2c54…2c63 ptr = 0xb9ba // 0x2c54 @0x0
0x2c54…2c63 lno = 0x1568 // 0x2c56 @0x2
0x2c54…2c63 at0004 = ╱9d╱ EXEC ╱ // 0x2c58 @0x4
0x2c54…2c63 at0005 = ╱48╱H╱ // 0x2c59 @0x5
0x2c54…2c63 at0006 = ╱45╱E╱ // 0x2c5a @0x6
0x2c54…2c63 at0007 = ╱4e╱N╱ // 0x2c5b @0x7
0x2c54…2c63 at0008 = ╱54╱T╱ // 0x2c5c @0x8
0x2c54…2c63 at0009 = ╱4b╱K╱ // 0x2c5d @0x9
0x2c54…2c63 at000a = ╱50╱P╱ // 0x2c5e @0xa
0x2c54…2c63 at000b = ╱4f╱O╱ // 0x2c5f @0xb
0x2c54…2c63 at000c = ╱53╱S╱ // 0x2c60 @0xc
0x2c54…2c63 at000d = ╱54╱T╱ // 0x2c61 @0xd
0x2c54…2c63 at000e = EOL // 0x2c62 @0xe
0x2c54…2c63 }
0x2c63…2c7f b9d6 5490 EXEC TUD(KSALDO1$,UD1$,E,B)
0x2c63…2c7f LineComalBin {
0x2c63…2c7f ptr = 0xb9d6 // 0x2c63 @0x0
0x2c63…2c7f lno = 0x1572 // 0x2c65 @0x2
0x2c63…2c7f at0004 = ╱9d╱ EXEC ╱ // 0x2c67 @0x4
0x2c63…2c7f at0005 = ╱54╱T╱ // 0x2c68 @0x5
0x2c63…2c7f at0006 = ╱55╱U╱ // 0x2c69 @0x6
0x2c63…2c7f at0007 = ╱44╱D╱ // 0x2c6a @0x7
0x2c63…2c7f at0008 = ╱ed╱(╱ // 0x2c6b @0x8
0x2c63…2c7f at0009 = ╱4b╱K╱ // 0x2c6c @0x9
0x2c63…2c7f at000a = ╱53╱S╱ // 0x2c6d @0xa
0x2c63…2c7f at000b = ╱41╱A╱ // 0x2c6e @0xb
0x2c63…2c7f at000c = ╱4c╱L╱ // 0x2c6f @0xc
0x2c63…2c7f at000d = ╱44╱D╱ // 0x2c70 @0xd
0x2c63…2c7f at000e = ╱4f╱O╱ // 0x2c71 @0xe
0x2c63…2c7f at000f = ╱31╱1╱ // 0x2c72 @0xf
0x2c63…2c7f at0010 = ╱ef╱$╱ // 0x2c73 @0x10
0x2c63…2c7f at0011 = ╱ec╱,╱ // 0x2c74 @0x11
0x2c63…2c7f at0012 = ╱55╱U╱ // 0x2c75 @0x12
0x2c63…2c7f at0013 = ╱44╱D╱ // 0x2c76 @0x13
0x2c63…2c7f at0014 = ╱31╱1╱ // 0x2c77 @0x14
0x2c63…2c7f at0015 = ╱ef╱$╱ // 0x2c78 @0x15
0x2c63…2c7f at0016 = ╱ec╱,╱ // 0x2c79 @0x16
0x2c63…2c7f at0017 = ╱45╱E╱ // 0x2c7a @0x17
0x2c63…2c7f at0018 = ╱ec╱,╱ // 0x2c7b @0x18
0x2c63…2c7f at0019 = ╱42╱B╱ // 0x2c7c @0x19
0x2c63…2c7f at001a = ╱ee╱)╱ // 0x2c7d @0x1a
0x2c63…2c7f at001b = EOL // 0x2c7e @0x1b
0x2c63…2c7f }
0x2c7f…2c9b b9f2 5500 EXEC TUD(KSALDO2$,UD2$,E,B)
0x2c7f…2c9b LineComalBin {
0x2c7f…2c9b ptr = 0xb9f2 // 0x2c7f @0x0
0x2c7f…2c9b lno = 0x157c // 0x2c81 @0x2
0x2c7f…2c9b at0004 = ╱9d╱ EXEC ╱ // 0x2c83 @0x4
0x2c7f…2c9b at0005 = ╱54╱T╱ // 0x2c84 @0x5
0x2c7f…2c9b at0006 = ╱55╱U╱ // 0x2c85 @0x6
0x2c7f…2c9b at0007 = ╱44╱D╱ // 0x2c86 @0x7
0x2c7f…2c9b at0008 = ╱ed╱(╱ // 0x2c87 @0x8
0x2c7f…2c9b at0009 = ╱4b╱K╱ // 0x2c88 @0x9
0x2c7f…2c9b at000a = ╱53╱S╱ // 0x2c89 @0xa
0x2c7f…2c9b at000b = ╱41╱A╱ // 0x2c8a @0xb
0x2c7f…2c9b at000c = ╱4c╱L╱ // 0x2c8b @0xc
0x2c7f…2c9b at000d = ╱44╱D╱ // 0x2c8c @0xd
0x2c7f…2c9b at000e = ╱4f╱O╱ // 0x2c8d @0xe
0x2c7f…2c9b at000f = ╱32╱2╱ // 0x2c8e @0xf
0x2c7f…2c9b at0010 = ╱ef╱$╱ // 0x2c8f @0x10
0x2c7f…2c9b at0011 = ╱ec╱,╱ // 0x2c90 @0x11
0x2c7f…2c9b at0012 = ╱55╱U╱ // 0x2c91 @0x12
0x2c7f…2c9b at0013 = ╱44╱D╱ // 0x2c92 @0x13
0x2c7f…2c9b at0014 = ╱32╱2╱ // 0x2c93 @0x14
0x2c7f…2c9b at0015 = ╱ef╱$╱ // 0x2c94 @0x15
0x2c7f…2c9b at0016 = ╱ec╱,╱ // 0x2c95 @0x16
0x2c7f…2c9b at0017 = ╱45╱E╱ // 0x2c96 @0x17
0x2c7f…2c9b at0018 = ╱ec╱,╱ // 0x2c97 @0x18
0x2c7f…2c9b at0019 = ╱42╱B╱ // 0x2c98 @0x19
0x2c7f…2c9b at001a = ╱ee╱)╱ // 0x2c99 @0x1a
0x2c7f…2c9b at001b = EOL // 0x2c9a @0x1b
0x2c7f…2c9b }
0x2c9b…2cac ba03 5510 PRINT TAB(W);STREG$
0x2c9b…2cac LineComalBin {
0x2c9b…2cac ptr = 0xba03 // 0x2c9b @0x0
0x2c9b…2cac lno = 0x1586 // 0x2c9d @0x2
0x2c9b…2cac at0004 = ╱92╱ PRINT ╱ // 0x2c9f @0x4
0x2c9b…2cac at0005 = ╱d2╱TAB╱ // 0x2ca0 @0x5
0x2c9b…2cac at0006 = ╱ed╱(╱ // 0x2ca1 @0x6
0x2c9b…2cac at0007 = ╱57╱W╱ // 0x2ca2 @0x7
0x2c9b…2cac at0008 = ╱ee╱)╱ // 0x2ca3 @0x8
0x2c9b…2cac at0009 = ╱eb╱;╱ // 0x2ca4 @0x9
0x2c9b…2cac at000a = ╱53╱S╱ // 0x2ca5 @0xa
0x2c9b…2cac at000b = ╱54╱T╱ // 0x2ca6 @0xb
0x2c9b…2cac at000c = ╱52╱R╱ // 0x2ca7 @0xc
0x2c9b…2cac at000d = ╱45╱E╱ // 0x2ca8 @0xd
0x2c9b…2cac at000e = ╱47╱G╱ // 0x2ca9 @0xe
0x2c9b…2cac at000f = ╱ef╱$╱ // 0x2caa @0xf
0x2c9b…2cac at0010 = EOL // 0x2cab @0x10
0x2c9b…2cac }
0x2cac…2ced ba44 5520 PRINT TAB(W);"NAVN OG ADRESSE";TAB(42);"0-30 DAGE ÆLDRE"
0x2cac…2ced LineComalBin {
0x2cac…2ced ptr = 0xba44 // 0x2cac @0x0
0x2cac…2ced lno = 0x1590 // 0x2cae @0x2
0x2cac…2ced at0004 = ╱92╱ PRINT ╱ // 0x2cb0 @0x4
0x2cac…2ced at0005 = ╱d2╱TAB╱ // 0x2cb1 @0x5
0x2cac…2ced at0006 = ╱ed╱(╱ // 0x2cb2 @0x6
0x2cac…2ced at0007 = ╱57╱W╱ // 0x2cb3 @0x7
0x2cac…2ced at0008 = ╱ee╱)╱ // 0x2cb4 @0x8
0x2cac…2ced at0009 = ╱eb╱;╱ // 0x2cb5 @0x9
0x2cac…2ced at000a = ╱22╱"╱ // 0x2cb6 @0xa
0x2cac…2ced at000b = ╱4e╱N╱ // 0x2cb7 @0xb
0x2cac…2ced at000c = ╱41╱A╱ // 0x2cb8 @0xc
0x2cac…2ced at000d = ╱56╱V╱ // 0x2cb9 @0xd
0x2cac…2ced at000e = ╱4e╱N╱ // 0x2cba @0xe
0x2cac…2ced at000f = ╱20╱…╱ // 0x2cbb @0xf
0x2cac…2ced at0010 = ╱4f╱O╱ // 0x2cbc @0x10
0x2cac…2ced at0011 = ╱47╱G╱ // 0x2cbd @0x11
0x2cac…2ced at0012 = ╱20╱…╱ // 0x2cbe @0x12
0x2cac…2ced at0013 = ╱41╱A╱ // 0x2cbf @0x13
0x2cac…2ced at0014 = ╱44╱D╱ // 0x2cc0 @0x14
0x2cac…2ced at0015 = ╱52╱R╱ // 0x2cc1 @0x15
0x2cac…2ced at0016 = ╱45╱E╱ // 0x2cc2 @0x16
0x2cac…2ced at0017 = ╱53╱S╱ // 0x2cc3 @0x17
0x2cac…2ced at0018 = ╱53╱S╱ // 0x2cc4 @0x18
0x2cac…2ced at0019 = ╱45╱E╱ // 0x2cc5 @0x19
0x2cac…2ced at001a = ╱22╱"╱ // 0x2cc6 @0x1a
0x2cac…2ced at001b = ╱eb╱;╱ // 0x2cc7 @0x1b
0x2cac…2ced at001c = ╱d2╱TAB╱ // 0x2cc8 @0x1c
0x2cac…2ced at001d = ╱ed╱(╱ // 0x2cc9 @0x1d
0x2cac…2ced at001e = ╱34╱4╱ // 0x2cca @0x1e
0x2cac…2ced at001f = ╱32╱2╱ // 0x2ccb @0x1f
0x2cac…2ced at0020 = ╱fe0000a806╱ // 0x2ccc @0x20
0x2cac…2ced at0025 = ╱ee╱)╱ // 0x2cd1 @0x25
0x2cac…2ced at0026 = ╱eb╱;╱ // 0x2cd2 @0x26
0x2cac…2ced at0027 = ╱22╱"╱ // 0x2cd3 @0x27
0x2cac…2ced at0028 = ╱30╱0╱ // 0x2cd4 @0x28
0x2cac…2ced at0029 = ╱2d╱-╱ // 0x2cd5 @0x29
0x2cac…2ced at002a = ╱33╱3╱ // 0x2cd6 @0x2a
0x2cac…2ced at002b = ╱30╱0╱ // 0x2cd7 @0x2b
0x2cac…2ced at002c = ╱20╱…╱ // 0x2cd8 @0x2c
0x2cac…2ced at002d = ╱44╱D╱ // 0x2cd9 @0x2d
0x2cac…2ced at002e = ╱41╱A╱ // 0x2cda @0x2e
0x2cac…2ced at002f = ╱47╱G╱ // 0x2cdb @0x2f
0x2cac…2ced at0030 = ╱45╱E╱ // 0x2cdc @0x30
0x2cac…2ced at0031 = ╱20╱…╱ // 0x2cdd @0x31
0x2cac…2ced at0032 = ╱20╱…╱ // 0x2cde @0x32
0x2cac…2ced at0033 = ╱20╱…╱ // 0x2cdf @0x33
0x2cac…2ced at0034 = ╱20╱…╱ // 0x2ce0 @0x34
0x2cac…2ced at0035 = ╱20╱…╱ // 0x2ce1 @0x35
0x2cac…2ced at0036 = ╱20╱…╱ // 0x2ce2 @0x36
0x2cac…2ced at0037 = ╱20╱…╱ // 0x2ce3 @0x37
0x2cac…2ced at0038 = ╱20╱…╱ // 0x2ce4 @0x38
0x2cac…2ced at0039 = ╱20╱…╱ // 0x2ce5 @0x39
0x2cac…2ced at003a = ╱5b╱Æ╱ // 0x2ce6 @0x3a
0x2cac…2ced at003b = ╱4c╱L╱ // 0x2ce7 @0x3b
0x2cac…2ced at003c = ╱44╱D╱ // 0x2ce8 @0x3c
0x2cac…2ced at003d = ╱52╱R╱ // 0x2ce9 @0x3d
0x2cac…2ced at003e = ╱45╱E╱ // 0x2cea @0x3e
0x2cac…2ced at003f = ╱22╱"╱ // 0x2ceb @0x3f
0x2cac…2ced at0040 = EOL // 0x2cec @0x40
0x2cac…2ced }
0x2ced…2cf6 ba4d 5530 PRINT " "
0x2ced…2cf6 LineComalBin {
0x2ced…2cf6 ptr = 0xba4d // 0x2ced @0x0
0x2ced…2cf6 lno = 0x159a // 0x2cef @0x2
0x2ced…2cf6 at0004 = ╱92╱ PRINT ╱ // 0x2cf1 @0x4
0x2ced…2cf6 at0005 = ╱22╱"╱ // 0x2cf2 @0x5
0x2ced…2cf6 at0006 = ╱20╱…╱ // 0x2cf3 @0x6
0x2ced…2cf6 at0007 = ╱22╱"╱ // 0x2cf4 @0x7
0x2ced…2cf6 at0008 = EOL // 0x2cf5 @0x8
0x2ced…2cf6 }
0x2cf6…2d0e ba65 5540 PRINT USING "###### ":KRENR;
0x2cf6…2d0e LineComalBin {
0x2cf6…2d0e ptr = 0xba65 // 0x2cf6 @0x0
0x2cf6…2d0e lno = 0x15a4 // 0x2cf8 @0x2
0x2cf6…2d0e at0004 = ╱92╱ PRINT ╱ // 0x2cfa @0x4
0x2cf6…2d0e at0005 = ╱b9╱ USING ╱ // 0x2cfb @0x5
0x2cf6…2d0e at0006 = ╱22╱"╱ // 0x2cfc @0x6
0x2cf6…2d0e at0007 = ╱23╱#╱ // 0x2cfd @0x7
0x2cf6…2d0e at0008 = ╱23╱#╱ // 0x2cfe @0x8
0x2cf6…2d0e at0009 = ╱23╱#╱ // 0x2cff @0x9
0x2cf6…2d0e at000a = ╱23╱#╱ // 0x2d00 @0xa
0x2cf6…2d0e at000b = ╱23╱#╱ // 0x2d01 @0xb
0x2cf6…2d0e at000c = ╱23╱#╱ // 0x2d02 @0xc
0x2cf6…2d0e at000d = ╱20╱…╱ // 0x2d03 @0xd
0x2cf6…2d0e at000e = ╱20╱…╱ // 0x2d04 @0xe
0x2cf6…2d0e at000f = ╱22╱"╱ // 0x2d05 @0xf
0x2cf6…2d0e at0010 = ╱f0╱:╱ // 0x2d06 @0x10
0x2cf6…2d0e at0011 = ╱4b╱K╱ // 0x2d07 @0x11
0x2cf6…2d0e at0012 = ╱52╱R╱ // 0x2d08 @0x12
0x2cf6…2d0e at0013 = ╱45╱E╱ // 0x2d09 @0x13
0x2cf6…2d0e at0014 = ╱4e╱N╱ // 0x2d0a @0x14
0x2cf6…2d0e at0015 = ╱52╱R╱ // 0x2d0b @0x15
0x2cf6…2d0e at0016 = ╱eb╱;╱ // 0x2d0c @0x16
0x2cf6…2d0e at0017 = EOL // 0x2d0d @0x17
0x2cf6…2d0e }
0x2d0e…2d35 ba8c 5550 PRINT KRENAVN$;TAB(38);UD1$;" ";UD2$
0x2d0e…2d35 LineComalBin {
0x2d0e…2d35 ptr = 0xba8c // 0x2d0e @0x0
0x2d0e…2d35 lno = 0x15ae // 0x2d10 @0x2
0x2d0e…2d35 at0004 = ╱92╱ PRINT ╱ // 0x2d12 @0x4
0x2d0e…2d35 at0005 = ╱4b╱K╱ // 0x2d13 @0x5
0x2d0e…2d35 at0006 = ╱52╱R╱ // 0x2d14 @0x6
0x2d0e…2d35 at0007 = ╱45╱E╱ // 0x2d15 @0x7
0x2d0e…2d35 at0008 = ╱4e╱N╱ // 0x2d16 @0x8
0x2d0e…2d35 at0009 = ╱41╱A╱ // 0x2d17 @0x9
0x2d0e…2d35 at000a = ╱56╱V╱ // 0x2d18 @0xa
0x2d0e…2d35 at000b = ╱4e╱N╱ // 0x2d19 @0xb
0x2d0e…2d35 at000c = ╱ef╱$╱ // 0x2d1a @0xc
0x2d0e…2d35 at000d = ╱eb╱;╱ // 0x2d1b @0xd
0x2d0e…2d35 at000e = ╱d2╱TAB╱ // 0x2d1c @0xe
0x2d0e…2d35 at000f = ╱ed╱(╱ // 0x2d1d @0xf
0x2d0e…2d35 at0010 = ╱33╱3╱ // 0x2d1e @0x10
0x2d0e…2d35 at0011 = ╱38╱8╱ // 0x2d1f @0x11
0x2d0e…2d35 at0012 = ╱fe00009806╱ // 0x2d20 @0x12
0x2d0e…2d35 at0017 = ╱ee╱)╱ // 0x2d25 @0x17
0x2d0e…2d35 at0018 = ╱eb╱;╱ // 0x2d26 @0x18
0x2d0e…2d35 at0019 = ╱55╱U╱ // 0x2d27 @0x19
0x2d0e…2d35 at001a = ╱44╱D╱ // 0x2d28 @0x1a
0x2d0e…2d35 at001b = ╱31╱1╱ // 0x2d29 @0x1b
0x2d0e…2d35 at001c = ╱ef╱$╱ // 0x2d2a @0x1c
0x2d0e…2d35 at001d = ╱eb╱;╱ // 0x2d2b @0x1d
0x2d0e…2d35 at001e = ╱22╱"╱ // 0x2d2c @0x1e
0x2d0e…2d35 at001f = ╱20╱…╱ // 0x2d2d @0x1f
0x2d0e…2d35 at0020 = ╱22╱"╱ // 0x2d2e @0x20
0x2d0e…2d35 at0021 = ╱eb╱;╱ // 0x2d2f @0x21
0x2d0e…2d35 at0022 = ╱55╱U╱ // 0x2d30 @0x22
0x2d0e…2d35 at0023 = ╱44╱D╱ // 0x2d31 @0x23
0x2d0e…2d35 at0024 = ╱32╱2╱ // 0x2d32 @0x24
0x2d0e…2d35 at0025 = ╱ef╱$╱ // 0x2d33 @0x25
0x2d0e…2d35 at0026 = EOL // 0x2d34 @0x26
0x2d0e…2d35 }
0x2d35…2d4c baa3 5560 PRINT TAB(W);KREGADE$;" "
0x2d35…2d4c LineComalBin {
0x2d35…2d4c ptr = 0xbaa3 // 0x2d35 @0x0
0x2d35…2d4c lno = 0x15b8 // 0x2d37 @0x2
0x2d35…2d4c at0004 = ╱92╱ PRINT ╱ // 0x2d39 @0x4
0x2d35…2d4c at0005 = ╱d2╱TAB╱ // 0x2d3a @0x5
0x2d35…2d4c at0006 = ╱ed╱(╱ // 0x2d3b @0x6
0x2d35…2d4c at0007 = ╱57╱W╱ // 0x2d3c @0x7
0x2d35…2d4c at0008 = ╱ee╱)╱ // 0x2d3d @0x8
0x2d35…2d4c at0009 = ╱eb╱;╱ // 0x2d3e @0x9
0x2d35…2d4c at000a = ╱4b╱K╱ // 0x2d3f @0xa
0x2d35…2d4c at000b = ╱52╱R╱ // 0x2d40 @0xb
0x2d35…2d4c at000c = ╱45╱E╱ // 0x2d41 @0xc
0x2d35…2d4c at000d = ╱47╱G╱ // 0x2d42 @0xd
0x2d35…2d4c at000e = ╱41╱A╱ // 0x2d43 @0xe
0x2d35…2d4c at000f = ╱44╱D╱ // 0x2d44 @0xf
0x2d35…2d4c at0010 = ╱45╱E╱ // 0x2d45 @0x10
0x2d35…2d4c at0011 = ╱ef╱$╱ // 0x2d46 @0x11
0x2d35…2d4c at0012 = ╱eb╱;╱ // 0x2d47 @0x12
0x2d35…2d4c at0013 = ╱22╱"╱ // 0x2d48 @0x13
0x2d35…2d4c at0014 = ╱20╱…╱ // 0x2d49 @0x14
0x2d35…2d4c at0015 = ╱22╱"╱ // 0x2d4a @0x15
0x2d35…2d4c at0016 = EOL // 0x2d4b @0x16
0x2d35…2d4c }
0x2d4c…2d6f bac6 5570 PRINT USING " ####### ":KREPOSTNR;
0x2d4c…2d6f LineComalBin {
0x2d4c…2d6f ptr = 0xbac6 // 0x2d4c @0x0
0x2d4c…2d6f lno = 0x15c2 // 0x2d4e @0x2
0x2d4c…2d6f at0004 = ╱92╱ PRINT ╱ // 0x2d50 @0x4
0x2d4c…2d6f at0005 = ╱b9╱ USING ╱ // 0x2d51 @0x5
0x2d4c…2d6f at0006 = ╱22╱"╱ // 0x2d52 @0x6
0x2d4c…2d6f at0007 = ╱20╱…╱ // 0x2d53 @0x7
0x2d4c…2d6f at0008 = ╱20╱…╱ // 0x2d54 @0x8
0x2d4c…2d6f at0009 = ╱20╱…╱ // 0x2d55 @0x9
0x2d4c…2d6f at000a = ╱20╱…╱ // 0x2d56 @0xa
0x2d4c…2d6f at000b = ╱20╱…╱ // 0x2d57 @0xb
0x2d4c…2d6f at000c = ╱20╱…╱ // 0x2d58 @0xc
0x2d4c…2d6f at000d = ╱20╱…╱ // 0x2d59 @0xd
0x2d4c…2d6f at000e = ╱23╱#╱ // 0x2d5a @0xe
0x2d4c…2d6f at000f = ╱23╱#╱ // 0x2d5b @0xf
0x2d4c…2d6f at0010 = ╱23╱#╱ // 0x2d5c @0x10
0x2d4c…2d6f at0011 = ╱23╱#╱ // 0x2d5d @0x11
0x2d4c…2d6f at0012 = ╱23╱#╱ // 0x2d5e @0x12
0x2d4c…2d6f at0013 = ╱23╱#╱ // 0x2d5f @0x13
0x2d4c…2d6f at0014 = ╱23╱#╱ // 0x2d60 @0x14
0x2d4c…2d6f at0015 = ╱20╱…╱ // 0x2d61 @0x15
0x2d4c…2d6f at0016 = ╱22╱"╱ // 0x2d62 @0x16
0x2d4c…2d6f at0017 = ╱f0╱:╱ // 0x2d63 @0x17
0x2d4c…2d6f at0018 = ╱4b╱K╱ // 0x2d64 @0x18
0x2d4c…2d6f at0019 = ╱52╱R╱ // 0x2d65 @0x19
0x2d4c…2d6f at001a = ╱45╱E╱ // 0x2d66 @0x1a
0x2d4c…2d6f at001b = ╱50╱P╱ // 0x2d67 @0x1b
0x2d4c…2d6f at001c = ╱4f╱O╱ // 0x2d68 @0x1c
0x2d4c…2d6f at001d = ╱53╱S╱ // 0x2d69 @0x1d
0x2d4c…2d6f at001e = ╱54╱T╱ // 0x2d6a @0x1e
0x2d4c…2d6f at001f = ╱4e╱N╱ // 0x2d6b @0x1f
0x2d4c…2d6f at0020 = ╱52╱R╱ // 0x2d6c @0x20
0x2d4c…2d6f at0021 = ╱eb╱;╱ // 0x2d6d @0x21
0x2d4c…2d6f at0022 = EOL // 0x2d6e @0x22
0x2d4c…2d6f }
0x2d6f…2d87 bade 5580 PRINT KREBY$;TAB(39);
0x2d6f…2d87 LineComalBin {
0x2d6f…2d87 ptr = 0xbade // 0x2d6f @0x0
0x2d6f…2d87 lno = 0x15cc // 0x2d71 @0x2
0x2d6f…2d87 at0004 = ╱92╱ PRINT ╱ // 0x2d73 @0x4
0x2d6f…2d87 at0005 = ╱4b╱K╱ // 0x2d74 @0x5
0x2d6f…2d87 at0006 = ╱52╱R╱ // 0x2d75 @0x6
0x2d6f…2d87 at0007 = ╱45╱E╱ // 0x2d76 @0x7
0x2d6f…2d87 at0008 = ╱42╱B╱ // 0x2d77 @0x8
0x2d6f…2d87 at0009 = ╱59╱Y╱ // 0x2d78 @0x9
0x2d6f…2d87 at000a = ╱ef╱$╱ // 0x2d79 @0xa
0x2d6f…2d87 at000b = ╱eb╱;╱ // 0x2d7a @0xb
0x2d6f…2d87 at000c = ╱d2╱TAB╱ // 0x2d7b @0xc
0x2d6f…2d87 at000d = ╱ed╱(╱ // 0x2d7c @0xd
0x2d6f…2d87 at000e = ╱33╱3╱ // 0x2d7d @0xe
0x2d6f…2d87 at000f = ╱39╱9╱ // 0x2d7e @0xf
0x2d6f…2d87 at0010 = ╱fe00009c06╱ // 0x2d7f @0x10
0x2d6f…2d87 at0015 = ╱ee╱)╱ // 0x2d84 @0x15
0x2d6f…2d87 at0016 = ╱eb╱;╱ // 0x2d85 @0x16
0x2d6f…2d87 at0017 = EOL // 0x2d86 @0x17
0x2d6f…2d87 }
0x2d87…2db8 bb0f 5590 DLK=ORD(KRELK$)-48;DKGR=ORD(KREGR$)-48
0x2d87…2db8 LineComalBin {
0x2d87…2db8 ptr = 0xbb0f // 0x2d87 @0x0
0x2d87…2db8 lno = 0x15d6 // 0x2d89 @0x2
0x2d87…2db8 at0004 = ╱44╱D╱ // 0x2d8b @0x4
0x2d87…2db8 at0005 = ╱4c╱L╱ // 0x2d8c @0x5
0x2d87…2db8 at0006 = ╱4b╱K╱ // 0x2d8d @0x6
0x2d87…2db8 at0007 = ╱dc╱=╱ // 0x2d8e @0x7
0x2d87…2db8 at0008 = ╱cd╱ORD╱ // 0x2d8f @0x8
0x2d87…2db8 at0009 = ╱ed╱(╱ // 0x2d90 @0x9
0x2d87…2db8 at000a = ╱4b╱K╱ // 0x2d91 @0xa
0x2d87…2db8 at000b = ╱52╱R╱ // 0x2d92 @0xb
0x2d87…2db8 at000c = ╱45╱E╱ // 0x2d93 @0xc
0x2d87…2db8 at000d = ╱4c╱L╱ // 0x2d94 @0xd
0x2d87…2db8 at000e = ╱4b╱K╱ // 0x2d95 @0xe
0x2d87…2db8 at000f = ╱ef╱$╱ // 0x2d96 @0xf
0x2d87…2db8 at0010 = ╱ee╱)╱ // 0x2d97 @0x10
0x2d87…2db8 at0011 = ╱e3╱-╱ // 0x2d98 @0x11
0x2d87…2db8 at0012 = ╱34╱4╱ // 0x2d99 @0x12
0x2d87…2db8 at0013 = ╱38╱8╱ // 0x2d9a @0x13
0x2d87…2db8 at0014 = ╱fe0000c006╱ // 0x2d9b @0x14
0x2d87…2db8 at0019 = ╱eb╱;╱ // 0x2da0 @0x19
0x2d87…2db8 at001a = ╱44╱D╱ // 0x2da1 @0x1a
0x2d87…2db8 at001b = ╱4b╱K╱ // 0x2da2 @0x1b
0x2d87…2db8 at001c = ╱47╱G╱ // 0x2da3 @0x1c
0x2d87…2db8 at001d = ╱52╱R╱ // 0x2da4 @0x1d
0x2d87…2db8 at001e = ╱dc╱=╱ // 0x2da5 @0x1e
0x2d87…2db8 at001f = ╱cd╱ORD╱ // 0x2da6 @0x1f
0x2d87…2db8 at0020 = ╱ed╱(╱ // 0x2da7 @0x20
0x2d87…2db8 at0021 = ╱4b╱K╱ // 0x2da8 @0x21
0x2d87…2db8 at0022 = ╱52╱R╱ // 0x2da9 @0x22
0x2d87…2db8 at0023 = ╱45╱E╱ // 0x2daa @0x23
0x2d87…2db8 at0024 = ╱47╱G╱ // 0x2dab @0x24
0x2d87…2db8 at0025 = ╱52╱R╱ // 0x2dac @0x25
0x2d87…2db8 at0026 = ╱ef╱$╱ // 0x2dad @0x26
0x2d87…2db8 at0027 = ╱ee╱)╱ // 0x2dae @0x27
0x2d87…2db8 at0028 = ╱e3╱-╱ // 0x2daf @0x28
0x2d87…2db8 at0029 = ╱34╱4╱ // 0x2db0 @0x29
0x2d87…2db8 at002a = ╱38╱8╱ // 0x2db1 @0x2a
0x2d87…2db8 at002b = ╱fe0000c006╱ // 0x2db2 @0x2b
0x2d87…2db8 at0030 = EOL // 0x2db7 @0x30
0x2d87…2db8 }
0x2db8…2ded (152,) bb44 5600 PRINT USING "LANDEKODE:### KREDITORGRUPPE:###":DLK,DKGR
0x2db8…2ded LineComalBin {
0x2db8…2ded ptr = 0xbb44 // 0x2db8 @0x0
0x2db8…2ded lno = 0x15e0 // 0x2dba @0x2
0x2db8…2ded at0004 = ╱92╱ PRINT ╱ // 0x2dbc @0x4
0x2db8…2ded at0005 = ╱b9╱ USING ╱ // 0x2dbd @0x5
0x2db8…2ded at0006 = ╱22╱"╱ // 0x2dbe @0x6
0x2db8…2ded at0007 = ╱4c╱L╱ // 0x2dbf @0x7
0x2db8…2ded at0008 = ╱41╱A╱ // 0x2dc0 @0x8
0x2db8…2ded at0009 = ╱4e╱N╱ // 0x2dc1 @0x9
0x2db8…2ded at000a = ╱44╱D╱ // 0x2dc2 @0xa
0x2db8…2ded at000b = ╱45╱E╱ // 0x2dc3 @0xb
0x2db8…2ded at000c = ╱4b╱K╱ // 0x2dc4 @0xc
0x2db8…2ded at000d = ╱4f╱O╱ // 0x2dc5 @0xd
0x2db8…2ded at000e = ╱44╱D╱ // 0x2dc6 @0xe
0x2db8…2ded at000f = ╱45╱E╱ // 0x2dc7 @0xf
0x2db8…2ded at0010 = ╱3a╱:╱ // 0x2dc8 @0x10
0x2db8…2ded at0011 = ╱23╱#╱ // 0x2dc9 @0x11
0x2db8…2ded at0012 = ╱23╱#╱ // 0x2dca @0x12
0x2db8…2ded at0013 = ╱23╱#╱ // 0x2dcb @0x13
0x2db8…2ded at0014 = ╱20╱…╱ // 0x2dcc @0x14
0x2db8…2ded at0015 = ╱20╱…╱ // 0x2dcd @0x15
0x2db8…2ded at0016 = ╱20╱…╱ // 0x2dce @0x16
0x2db8…2ded at0017 = ╱20╱…╱ // 0x2dcf @0x17
0x2db8…2ded at0018 = ╱4b╱K╱ // 0x2dd0 @0x18
0x2db8…2ded at0019 = ╱52╱R╱ // 0x2dd1 @0x19
0x2db8…2ded at001a = ╱45╱E╱ // 0x2dd2 @0x1a
0x2db8…2ded at001b = ╱44╱D╱ // 0x2dd3 @0x1b
0x2db8…2ded at001c = ╱49╱I╱ // 0x2dd4 @0x1c
0x2db8…2ded at001d = ╱54╱T╱ // 0x2dd5 @0x1d
0x2db8…2ded at001e = ╱4f╱O╱ // 0x2dd6 @0x1e
0x2db8…2ded at001f = ╱52╱R╱ // 0x2dd7 @0x1f
0x2db8…2ded at0020 = ╱47╱G╱ // 0x2dd8 @0x20
0x2db8…2ded at0021 = ╱52╱R╱ // 0x2dd9 @0x21
0x2db8…2ded at0022 = ╱55╱U╱ // 0x2dda @0x22
0x2db8…2ded at0023 = ╱50╱P╱ // 0x2ddb @0x23
0x2db8…2ded at0024 = ╱50╱P╱ // 0x2ddc @0x24
0x2db8…2ded at0025 = ╱45╱E╱ // 0x2ddd @0x25
0x2db8…2ded at0026 = ╱3a╱:╱ // 0x2dde @0x26
0x2db8…2ded at0027 = ╱23╱#╱ // 0x2ddf @0x27
0x2db8…2ded at0028 = ╱23╱#╱ // 0x2de0 @0x28
0x2db8…2ded at0029 = ╱23╱#╱ // 0x2de1 @0x29
0x2db8…2ded at002a = ╱22╱"╱ // 0x2de2 @0x2a
0x2db8…2ded at002b = ╱f0╱:╱ // 0x2de3 @0x2b
0x2db8…2ded at002c = ╱44╱D╱ // 0x2de4 @0x2c
0x2db8…2ded at002d = ╱4c╱L╱ // 0x2de5 @0x2d
0x2db8…2ded at002e = ╱4b╱K╱ // 0x2de6 @0x2e
0x2db8…2ded at002f = ╱ec╱,╱ // 0x2de7 @0x2f
0x2db8…2ded at0030 = ╱44╱D╱ // 0x2de8 @0x30
0x2db8…2ded at0031 = ╱4b╱K╱ // 0x2de9 @0x31
0x2db8…2ded at0032 = ╱47╱G╱ // 0x2dea @0x32
0x2db8…2ded at0033 = ╱52╱R╱ // 0x2deb @0x33
0x2db8…2ded at0034 = EOL // 0x2dec @0x34
0x2db8…2ded }
0x2ded…2df6 bb4d 5610 PRINT " "
0x2ded…2df6 LineComalBin {
0x2ded…2df6 ptr = 0xbb4d // 0x2ded @0x0
0x2ded…2df6 lno = 0x15ea // 0x2def @0x2
0x2ded…2df6 at0004 = ╱92╱ PRINT ╱ // 0x2df1 @0x4
0x2ded…2df6 at0005 = ╱22╱"╱ // 0x2df2 @0x5
0x2ded…2df6 at0006 = ╱20╱…╱ // 0x2df3 @0x6
0x2ded…2df6 at0007 = ╱22╱"╱ // 0x2df4 @0x7
0x2ded…2df6 at0008 = EOL // 0x2df5 @0x8
0x2ded…2df6 }
0x2df6…2dfc bb53 5620 ENDIF
0x2df6…2dfc LineComalBin {
0x2df6…2dfc ptr = 0xbb53 // 0x2df6 @0x0
0x2df6…2dfc lno = 0x15f4 // 0x2df8 @0x2
0x2df6…2dfc at0004 = ╱9b╱ ENDIF ╱ // 0x2dfa @0x4
0x2df6…2dfc at0005 = EOL // 0x2dfb @0x5
0x2df6…2dfc }
0x2dfc…2e0d bb64 5630 IF KPIL3=TIL THEN EXIT
0x2dfc…2e0d LineComalBin {
0x2dfc…2e0d ptr = 0xbb64 // 0x2dfc @0x0
0x2dfc…2e0d lno = 0x15fe // 0x2dfe @0x2
0x2dfc…2e0d at0004 = ╱82╱ IF ╱ // 0x2e00 @0x4
0x2dfc…2e0d at0005 = ╱4b╱K╱ // 0x2e01 @0x5
0x2dfc…2e0d at0006 = ╱50╱P╱ // 0x2e02 @0x6
0x2dfc…2e0d at0007 = ╱49╱I╱ // 0x2e03 @0x7
0x2dfc…2e0d at0008 = ╱4c╱L╱ // 0x2e04 @0x8
0x2dfc…2e0d at0009 = ╱33╱3╱ // 0x2e05 @0x9
0x2dfc…2e0d at000a = ╱dc╱=╱ // 0x2e06 @0xa
0x2dfc…2e0d at000b = ╱54╱T╱ // 0x2e07 @0xb
0x2dfc…2e0d at000c = ╱49╱I╱ // 0x2e08 @0xc
0x2dfc…2e0d at000d = ╱4c╱L╱ // 0x2e09 @0xd
0x2dfc…2e0d at000e = ╱b6╱ THEN ╱ // 0x2e0a @0xe
0x2dfc…2e0d at000f = ╱99╱ EXIT ╱ // 0x2e0b @0xf
0x2dfc…2e0d at0010 = EOL // 0x2e0c @0x10
0x2dfc…2e0d }
0x2e0d…2e18 bb6f 5640 NEXT KPIL3
0x2e0d…2e18 LineComalBin {
0x2e0d…2e18 ptr = 0xbb6f // 0x2e0d @0x0
0x2e0d…2e18 lno = 0x1608 // 0x2e0f @0x2
0x2e0d…2e18 at0004 = ╱84╱ NEXT ╱ // 0x2e11 @0x4
0x2e0d…2e18 at0005 = ╱4b╱K╱ // 0x2e12 @0x5
0x2e0d…2e18 at0006 = ╱50╱P╱ // 0x2e13 @0x6
0x2e0d…2e18 at0007 = ╱49╱I╱ // 0x2e14 @0x7
0x2e0d…2e18 at0008 = ╱4c╱L╱ // 0x2e15 @0x8
0x2e0d…2e18 at0009 = ╱33╱3╱ // 0x2e16 @0x9
0x2e0d…2e18 at000a = EOL // 0x2e17 @0xa
0x2e0d…2e18 }
0x2e18…2e33 bb8a 5650 PRINT CHR(10);CHR(10)
0x2e18…2e33 LineComalBin {
0x2e18…2e33 ptr = 0xbb8a // 0x2e18 @0x0
0x2e18…2e33 lno = 0x1612 // 0x2e1a @0x2
0x2e18…2e33 at0004 = ╱92╱ PRINT ╱ // 0x2e1c @0x4
0x2e18…2e33 at0005 = ╱cf╱CHR╱ // 0x2e1d @0x5
0x2e18…2e33 at0006 = ╱ed╱(╱ // 0x2e1e @0x6
0x2e18…2e33 at0007 = ╱31╱1╱ // 0x2e1f @0x7
0x2e18…2e33 at0008 = ╱30╱0╱ // 0x2e20 @0x8
0x2e18…2e33 at0009 = ╱fe0000a004╱ // 0x2e21 @0x9
0x2e18…2e33 at000e = ╱ee╱)╱ // 0x2e26 @0xe
0x2e18…2e33 at000f = ╱eb╱;╱ // 0x2e27 @0xf
0x2e18…2e33 at0010 = ╱cf╱CHR╱ // 0x2e28 @0x10
0x2e18…2e33 at0011 = ╱ed╱(╱ // 0x2e29 @0x11
0x2e18…2e33 at0012 = ╱31╱1╱ // 0x2e2a @0x12
0x2e18…2e33 at0013 = ╱30╱0╱ // 0x2e2b @0x13
0x2e18…2e33 at0014 = ╱fe0000a004╱ // 0x2e2c @0x14
0x2e18…2e33 at0019 = ╱ee╱)╱ // 0x2e31 @0x19
0x2e18…2e33 at001a = EOL // 0x2e32 @0x1a
0x2e18…2e33 }
0x2e33…2e53 bbaa 5660 IF KPIL3=TIL AND KPIL3<I+6 THEN EXIT
0x2e33…2e53 LineComalBin {
0x2e33…2e53 ptr = 0xbbaa // 0x2e33 @0x0
0x2e33…2e53 lno = 0x161c // 0x2e35 @0x2
0x2e33…2e53 at0004 = ╱82╱ IF ╱ // 0x2e37 @0x4
0x2e33…2e53 at0005 = ╱4b╱K╱ // 0x2e38 @0x5
0x2e33…2e53 at0006 = ╱50╱P╱ // 0x2e39 @0x6
0x2e33…2e53 at0007 = ╱49╱I╱ // 0x2e3a @0x7
0x2e33…2e53 at0008 = ╱4c╱L╱ // 0x2e3b @0x8
0x2e33…2e53 at0009 = ╱33╱3╱ // 0x2e3c @0x9
0x2e33…2e53 at000a = ╱dc╱=╱ // 0x2e3d @0xa
0x2e33…2e53 at000b = ╱54╱T╱ // 0x2e3e @0xb
0x2e33…2e53 at000c = ╱49╱I╱ // 0x2e3f @0xc
0x2e33…2e53 at000d = ╱4c╱L╱ // 0x2e40 @0xd
0x2e33…2e53 at000e = ╱da╱ AND ╱ // 0x2e41 @0xe
0x2e33…2e53 at000f = ╱4b╱K╱ // 0x2e42 @0xf
0x2e33…2e53 at0010 = ╱50╱P╱ // 0x2e43 @0x10
0x2e33…2e53 at0011 = ╱49╱I╱ // 0x2e44 @0x11
0x2e33…2e53 at0012 = ╱4c╱L╱ // 0x2e45 @0x12
0x2e33…2e53 at0013 = ╱33╱3╱ // 0x2e46 @0x13
0x2e33…2e53 at0014 = ╱dd╱<╱ // 0x2e47 @0x14
0x2e33…2e53 at0015 = ╱49╱I╱ // 0x2e48 @0x15
0x2e33…2e53 at0016 = ╱e2╱+╱ // 0x2e49 @0x16
0x2e33…2e53 at0017 = ╱36╱6╱ // 0x2e4a @0x17
0x2e33…2e53 at0018 = ╱fe0000c003╱ // 0x2e4b @0x18
0x2e33…2e53 at001d = ╱b6╱ THEN ╱ // 0x2e50 @0x1d
0x2e33…2e53 at001e = ╱99╱ EXIT ╱ // 0x2e51 @0x1e
0x2e33…2e53 at001f = EOL // 0x2e52 @0x1f
0x2e33…2e53 }
0x2e53…2e5a bbb1 5670 NEXT I
0x2e53…2e5a LineComalBin {
0x2e53…2e5a ptr = 0xbbb1 // 0x2e53 @0x0
0x2e53…2e5a lno = 0x1626 // 0x2e55 @0x2
0x2e53…2e5a at0004 = ╱84╱ NEXT ╱ // 0x2e57 @0x4
0x2e53…2e5a at0005 = ╱49╱I╱ // 0x2e58 @0x5
0x2e53…2e5a at0006 = EOL // 0x2e59 @0x6
0x2e53…2e5a }
0x2e5a…2e72 bbc9 5680 FOR J=KPIL3+E TO I+5
0x2e5a…2e72 LineComalBin {
0x2e5a…2e72 ptr = 0xbbc9 // 0x2e5a @0x0
0x2e5a…2e72 lno = 0x1630 // 0x2e5c @0x2
0x2e5a…2e72 at0004 = ╱83╱ FOR ╱ // 0x2e5e @0x4
0x2e5a…2e72 at0005 = ╱4a╱J╱ // 0x2e5f @0x5
0x2e5a…2e72 at0006 = ╱dc╱=╱ // 0x2e60 @0x6
0x2e5a…2e72 at0007 = ╱4b╱K╱ // 0x2e61 @0x7
0x2e5a…2e72 at0008 = ╱50╱P╱ // 0x2e62 @0x8
0x2e5a…2e72 at0009 = ╱49╱I╱ // 0x2e63 @0x9
0x2e5a…2e72 at000a = ╱4c╱L╱ // 0x2e64 @0xa
0x2e5a…2e72 at000b = ╱33╱3╱ // 0x2e65 @0xb
0x2e5a…2e72 at000c = ╱e2╱+╱ // 0x2e66 @0xc
0x2e5a…2e72 at000d = ╱45╱E╱ // 0x2e67 @0xd
0x2e5a…2e72 at000e = ╱b7╱ TO ╱ // 0x2e68 @0xe
0x2e5a…2e72 at000f = ╱49╱I╱ // 0x2e69 @0xf
0x2e5a…2e72 at0010 = ╱e2╱+╱ // 0x2e6a @0x10
0x2e5a…2e72 at0011 = ╱35╱5╱ // 0x2e6b @0x11
0x2e5a…2e72 at0012 = ╱fe0000a003╱ // 0x2e6c @0x12
0x2e5a…2e72 at0017 = EOL // 0x2e71 @0x17
0x2e5a…2e72 }
0x2e72…2eae bc05 5690 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x2e72…2eae LineComalBin {
0x2e72…2eae ptr = 0xbc05 // 0x2e72 @0x0
0x2e72…2eae lno = 0x163a // 0x2e74 @0x2
0x2e72…2eae at0004 = ╱92╱ PRINT ╱ // 0x2e76 @0x4
0x2e72…2eae at0005 = ╱cf╱CHR╱ // 0x2e77 @0x5
0x2e72…2eae at0006 = ╱ed╱(╱ // 0x2e78 @0x6
0x2e72…2eae at0007 = ╱31╱1╱ // 0x2e79 @0x7
0x2e72…2eae at0008 = ╱30╱0╱ // 0x2e7a @0x8
0x2e72…2eae at0009 = ╱fe0000a004╱ // 0x2e7b @0x9
0x2e72…2eae at000e = ╱ee╱)╱ // 0x2e80 @0xe
0x2e72…2eae at000f = ╱eb╱;╱ // 0x2e81 @0xf
0x2e72…2eae at0010 = ╱cf╱CHR╱ // 0x2e82 @0x10
0x2e72…2eae at0011 = ╱ed╱(╱ // 0x2e83 @0x11
0x2e72…2eae at0012 = ╱31╱1╱ // 0x2e84 @0x12
0x2e72…2eae at0013 = ╱30╱0╱ // 0x2e85 @0x13
0x2e72…2eae at0014 = ╱fe0000a004╱ // 0x2e86 @0x14
0x2e72…2eae at0019 = ╱ee╱)╱ // 0x2e8b @0x19
0x2e72…2eae at001a = ╱eb╱;╱ // 0x2e8c @0x1a
0x2e72…2eae at001b = ╱cf╱CHR╱ // 0x2e8d @0x1b
0x2e72…2eae at001c = ╱ed╱(╱ // 0x2e8e @0x1c
0x2e72…2eae at001d = ╱31╱1╱ // 0x2e8f @0x1d
0x2e72…2eae at001e = ╱30╱0╱ // 0x2e90 @0x1e
0x2e72…2eae at001f = ╱fe0000a004╱ // 0x2e91 @0x1f
0x2e72…2eae at0024 = ╱ee╱)╱ // 0x2e96 @0x24
0x2e72…2eae at0025 = ╱eb╱;╱ // 0x2e97 @0x25
0x2e72…2eae at0026 = ╱cf╱CHR╱ // 0x2e98 @0x26
0x2e72…2eae at0027 = ╱ed╱(╱ // 0x2e99 @0x27
0x2e72…2eae at0028 = ╱31╱1╱ // 0x2e9a @0x28
0x2e72…2eae at0029 = ╱30╱0╱ // 0x2e9b @0x29
0x2e72…2eae at002a = ╱fe0000a004╱ // 0x2e9c @0x2a
0x2e72…2eae at002f = ╱ee╱)╱ // 0x2ea1 @0x2f
0x2e72…2eae at0030 = ╱eb╱;╱ // 0x2ea2 @0x30
0x2e72…2eae at0031 = ╱cf╱CHR╱ // 0x2ea3 @0x31
0x2e72…2eae at0032 = ╱ed╱(╱ // 0x2ea4 @0x32
0x2e72…2eae at0033 = ╱31╱1╱ // 0x2ea5 @0x33
0x2e72…2eae at0034 = ╱30╱0╱ // 0x2ea6 @0x34
0x2e72…2eae at0035 = ╱fe0000a004╱ // 0x2ea7 @0x35
0x2e72…2eae at003a = ╱ee╱)╱ // 0x2eac @0x3a
0x2e72…2eae at003b = EOL // 0x2ead @0x3b
0x2e72…2eae }
0x2eae…2eb7 bc0e 5695 PRINT " "
0x2eae…2eb7 LineComalBin {
0x2eae…2eb7 ptr = 0xbc0e // 0x2eae @0x0
0x2eae…2eb7 lno = 0x163f // 0x2eb0 @0x2
0x2eae…2eb7 at0004 = ╱92╱ PRINT ╱ // 0x2eb2 @0x4
0x2eae…2eb7 at0005 = ╱22╱"╱ // 0x2eb3 @0x5
0x2eae…2eb7 at0006 = ╱20╱…╱ // 0x2eb4 @0x6
0x2eae…2eb7 at0007 = ╱22╱"╱ // 0x2eb5 @0x7
0x2eae…2eb7 at0008 = EOL // 0x2eb6 @0x8
0x2eae…2eb7 }
0x2eb7…2ebe bc15 5730 NEXT J
0x2eb7…2ebe LineComalBin {
0x2eb7…2ebe ptr = 0xbc15 // 0x2eb7 @0x0
0x2eb7…2ebe lno = 0x1662 // 0x2eb9 @0x2
0x2eb7…2ebe at0004 = ╱84╱ NEXT ╱ // 0x2ebb @0x4
0x2eb7…2ebe at0005 = ╱4a╱J╱ // 0x2ebc @0x5
0x2eb7…2ebe at0006 = EOL // 0x2ebd @0x6
0x2eb7…2ebe }
0x2ebe…2ec5 bc1c 5740 OUTPUT T
0x2ebe…2ec5 LineComalBin {
0x2ebe…2ec5 ptr = 0xbc1c // 0x2ebe @0x0
0x2ebe…2ec5 lno = 0x166c // 0x2ec0 @0x2
0x2ebe…2ec5 at0004 = ╱a5╱ OUTPUT ╱ // 0x2ec2 @0x4
0x2ebe…2ec5 at0005 = ╱54╱T╱ // 0x2ec3 @0x5
0x2ebe…2ec5 at0006 = EOL // 0x2ec4 @0x6
0x2ebe…2ec5 }
0x2ec5…2ed0 bc27 5750 KONT=B
0x2ec5…2ed0 LineComalBin {
0x2ec5…2ed0 ptr = 0xbc27 // 0x2ec5 @0x0
0x2ec5…2ed0 lno = 0x1676 // 0x2ec7 @0x2
0x2ec5…2ed0 at0004 = ╱4b╱K╱ // 0x2ec9 @0x4
0x2ec5…2ed0 at0005 = ╱4f╱O╱ // 0x2eca @0x5
0x2ec5…2ed0 at0006 = ╱4e╱N╱ // 0x2ecb @0x6
0x2ec5…2ed0 at0007 = ╱54╱T╱ // 0x2ecc @0x7
0x2ec5…2ed0 at0008 = ╱dc╱=╱ // 0x2ecd @0x8
0x2ec5…2ed0 at0009 = ╱42╱B╱ // 0x2ece @0x9
0x2ec5…2ed0 at000a = EOL // 0x2ecf @0xa
0x2ec5…2ed0 }
0x2ed0…2ed6 bc2d 5760 ENDCASE
0x2ed0…2ed6 LineComalBin {
0x2ed0…2ed6 ptr = 0xbc2d // 0x2ed0 @0x0
0x2ed0…2ed6 lno = 0x1680 // 0x2ed2 @0x2
0x2ed0…2ed6 at0004 = ╱a4╱ ENDCASE ╱ // 0x2ed4 @0x4
0x2ed0…2ed6 at0005 = EOL // 0x2ed5 @0x5
0x2ed0…2ed6 }
0x2ed6…2edc bc33 5770 ELSE
0x2ed6…2edc LineComalBin {
0x2ed6…2edc ptr = 0xbc33 // 0x2ed6 @0x0
0x2ed6…2edc lno = 0x168a // 0x2ed8 @0x2
0x2ed6…2edc at0004 = ╱9a╱ ELSE ╱ // 0x2eda @0x4
0x2ed6…2edc at0005 = EOL // 0x2edb @0x5
0x2ed6…2edc }
0x2edc…2ee2 bc39 5780 REPEAT
0x2edc…2ee2 LineComalBin {
0x2edc…2ee2 ptr = 0xbc39 // 0x2edc @0x0
0x2edc…2ee2 lno = 0x1694 // 0x2ede @0x2
0x2edc…2ee2 at0004 = ╱97╱ REPEAT ╱ // 0x2ee0 @0x4
0x2edc…2ee2 at0005 = EOL // 0x2ee1 @0x5
0x2edc…2ee2 }
0x2ee2…2ef1 bc48 5790 CURSOR V,23
0x2ee2…2ef1 LineComalBin {
0x2ee2…2ef1 ptr = 0xbc48 // 0x2ee2 @0x0
0x2ee2…2ef1 lno = 0x169e // 0x2ee4 @0x2
0x2ee2…2ef1 at0004 = ╱a1╱ CURSOR ╱ // 0x2ee6 @0x4
0x2ee2…2ef1 at0005 = ╱56╱V╱ // 0x2ee7 @0x5
0x2ee2…2ef1 at0006 = ╱ec╱,╱ // 0x2ee8 @0x6
0x2ee2…2ef1 at0007 = ╱32╱2╱ // 0x2ee9 @0x7
0x2ee2…2ef1 at0008 = ╱33╱3╱ // 0x2eea @0x8
0x2ee2…2ef1 at0009 = ╱fe0000b805╱ // 0x2eeb @0x9
0x2ee2…2ef1 at000e = EOL // 0x2ef0 @0xe
0x2ee2…2ef1 }
0x2ef1…2f34 bc8b 5800 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,";
0x2ef1…2f34 LineComalBin {
0x2ef1…2f34 ptr = 0xbc8b // 0x2ef1 @0x0
0x2ef1…2f34 lno = 0x16a8 // 0x2ef3 @0x2
0x2ef1…2f34 at0004 = ╱92╱ PRINT ╱ // 0x2ef5 @0x4
0x2ef1…2f34 at0005 = ╱22╱"╱ // 0x2ef6 @0x5
0x2ef1…2f34 at0006 = ╱44╱D╱ // 0x2ef7 @0x6
0x2ef1…2f34 at0007 = ╱65╱e╱ // 0x2ef8 @0x7
0x2ef1…2f34 at0008 = ╱6e╱n╱ // 0x2ef9 @0x8
0x2ef1…2f34 at0009 = ╱6e╱n╱ // 0x2efa @0x9
0x2ef1…2f34 at000a = ╱65╱e╱ // 0x2efb @0xa
0x2ef1…2f34 at000b = ╱20╱…╱ // 0x2efc @0xb
0x2ef1…2f34 at000c = ╱6b╱k╱ // 0x2efd @0xc
0x2ef1…2f34 at000d = ╱6f╱o╱ // 0x2efe @0xd
0x2ef1…2f34 at000e = ╱6e╱n╱ // 0x2eff @0xe
0x2ef1…2f34 at000f = ╱74╱t╱ // 0x2f00 @0xf
0x2ef1…2f34 at0010 = ╱6f╱o╱ // 0x2f01 @0x10
0x2ef1…2f34 at0011 = ╱20╱…╱ // 0x2f02 @0x11
0x2ef1…2f34 at0012 = ╱6b╱k╱ // 0x2f03 @0x12
0x2ef1…2f34 at0013 = ╱61╱a╱ // 0x2f04 @0x13
0x2ef1…2f34 at0014 = ╱6e╱n╱ // 0x2f05 @0x14
0x2ef1…2f34 at0015 = ╱20╱…╱ // 0x2f06 @0x15
0x2ef1…2f34 at0016 = ╱69╱i╱ // 0x2f07 @0x16
0x2ef1…2f34 at0017 = ╱6b╱k╱ // 0x2f08 @0x17
0x2ef1…2f34 at0018 = ╱6b╱k╱ // 0x2f09 @0x18
0x2ef1…2f34 at0019 = ╱65╱e╱ // 0x2f0a @0x19
0x2ef1…2f34 at001a = ╱20╱…╱ // 0x2f0b @0x1a
0x2ef1…2f34 at001b = ╱73╱s╱ // 0x2f0c @0x1b
0x2ef1…2f34 at001c = ╱6c╱l╱ // 0x2f0d @0x1c
0x2ef1…2f34 at001d = ╱65╱e╱ // 0x2f0e @0x1d
0x2ef1…2f34 at001e = ╱74╱t╱ // 0x2f0f @0x1e
0x2ef1…2f34 at001f = ╱74╱t╱ // 0x2f10 @0x1f
0x2ef1…2f34 at0020 = ╱65╱e╱ // 0x2f11 @0x20
0x2ef1…2f34 at0021 = ╱73╱s╱ // 0x2f12 @0x21
0x2ef1…2f34 at0022 = ╱2c╱,╱ // 0x2f13 @0x22
0x2ef1…2f34 at0023 = ╱20╱…╱ // 0x2f14 @0x23
0x2ef1…2f34 at0024 = ╱64╱d╱ // 0x2f15 @0x24
0x2ef1…2f34 at0025 = ╱61╱a╱ // 0x2f16 @0x25
0x2ef1…2f34 at0026 = ╱20╱…╱ // 0x2f17 @0x26
0x2ef1…2f34 at0027 = ╱73╱s╱ // 0x2f18 @0x27
0x2ef1…2f34 at0028 = ╱61╱a╱ // 0x2f19 @0x28
0x2ef1…2f34 at0029 = ╱6c╱l╱ // 0x2f1a @0x29
0x2ef1…2f34 at002a = ╱64╱d╱ // 0x2f1b @0x2a
0x2ef1…2f34 at002b = ╱6f╱o╱ // 0x2f1c @0x2b
0x2ef1…2f34 at002c = ╱65╱e╱ // 0x2f1d @0x2c
0x2ef1…2f34 at002d = ╱6e╱n╱ // 0x2f1e @0x2d
0x2ef1…2f34 at002e = ╱20╱…╱ // 0x2f1f @0x2e
0x2ef1…2f34 at002f = ╱69╱i╱ // 0x2f20 @0x2f
0x2ef1…2f34 at0030 = ╱6b╱k╱ // 0x2f21 @0x30
0x2ef1…2f34 at0031 = ╱6b╱k╱ // 0x2f22 @0x31
0x2ef1…2f34 at0032 = ╱65╱e╱ // 0x2f23 @0x32
0x2ef1…2f34 at0033 = ╱20╱…╱ // 0x2f24 @0x33
0x2ef1…2f34 at0034 = ╱65╱e╱ // 0x2f25 @0x34
0x2ef1…2f34 at0035 = ╱72╱r╱ // 0x2f26 @0x35
0x2ef1…2f34 at0036 = ╱20╱…╱ // 0x2f27 @0x36
0x2ef1…2f34 at0037 = ╱75╱u╱ // 0x2f28 @0x37
0x2ef1…2f34 at0038 = ╱64╱d╱ // 0x2f29 @0x38
0x2ef1…2f34 at0039 = ╱6c╱l╱ // 0x2f2a @0x39
0x2ef1…2f34 at003a = ╱69╱i╱ // 0x2f2b @0x3a
0x2ef1…2f34 at003b = ╱67╱g╱ // 0x2f2c @0x3b
0x2ef1…2f34 at003c = ╱6e╱n╱ // 0x2f2d @0x3c
0x2ef1…2f34 at003d = ╱65╱e╱ // 0x2f2e @0x3d
0x2ef1…2f34 at003e = ╱74╱t╱ // 0x2f2f @0x3e
0x2ef1…2f34 at003f = ╱2c╱,╱ // 0x2f30 @0x3f
0x2ef1…2f34 at0040 = ╱22╱"╱ // 0x2f31 @0x40
0x2ef1…2f34 at0041 = ╱eb╱;╱ // 0x2f32 @0x41
0x2ef1…2f34 at0042 = EOL // 0x2f33 @0x42
0x2ef1…2f34 }
0x2f34…2f58 bcaf 5810 PRINT "tryk RETURN";BLANK$(E:6)
0x2f34…2f58 LineComalBin {
0x2f34…2f58 ptr = 0xbcaf // 0x2f34 @0x0
0x2f34…2f58 lno = 0x16b2 // 0x2f36 @0x2
0x2f34…2f58 at0004 = ╱92╱ PRINT ╱ // 0x2f38 @0x4
0x2f34…2f58 at0005 = ╱22╱"╱ // 0x2f39 @0x5
0x2f34…2f58 at0006 = ╱74╱t╱ // 0x2f3a @0x6
0x2f34…2f58 at0007 = ╱72╱r╱ // 0x2f3b @0x7
0x2f34…2f58 at0008 = ╱79╱y╱ // 0x2f3c @0x8
0x2f34…2f58 at0009 = ╱6b╱k╱ // 0x2f3d @0x9
0x2f34…2f58 at000a = ╱20╱…╱ // 0x2f3e @0xa
0x2f34…2f58 at000b = ╱52╱R╱ // 0x2f3f @0xb
0x2f34…2f58 at000c = ╱45╱E╱ // 0x2f40 @0xc
0x2f34…2f58 at000d = ╱54╱T╱ // 0x2f41 @0xd
0x2f34…2f58 at000e = ╱55╱U╱ // 0x2f42 @0xe
0x2f34…2f58 at000f = ╱52╱R╱ // 0x2f43 @0xf
0x2f34…2f58 at0010 = ╱4e╱N╱ // 0x2f44 @0x10
0x2f34…2f58 at0011 = ╱22╱"╱ // 0x2f45 @0x11
0x2f34…2f58 at0012 = ╱eb╱;╱ // 0x2f46 @0x12
0x2f34…2f58 at0013 = ╱42╱B╱ // 0x2f47 @0x13
0x2f34…2f58 at0014 = ╱4c╱L╱ // 0x2f48 @0x14
0x2f34…2f58 at0015 = ╱41╱A╱ // 0x2f49 @0x15
0x2f34…2f58 at0016 = ╱4e╱N╱ // 0x2f4a @0x16
0x2f34…2f58 at0017 = ╱4b╱K╱ // 0x2f4b @0x17
0x2f34…2f58 at0018 = ╱ef╱$╱ // 0x2f4c @0x18
0x2f34…2f58 at0019 = ╱ed╱(╱ // 0x2f4d @0x19
0x2f34…2f58 at001a = ╱45╱E╱ // 0x2f4e @0x1a
0x2f34…2f58 at001b = ╱f0╱:╱ // 0x2f4f @0x1b
0x2f34…2f58 at001c = ╱36╱6╱ // 0x2f50 @0x1c
0x2f34…2f58 at001d = ╱fe0000c003╱ // 0x2f51 @0x1d
0x2f34…2f58 at0022 = ╱ee╱)╱ // 0x2f56 @0x22
0x2f34…2f58 at0023 = EOL // 0x2f57 @0x23
0x2f34…2f58 }
0x2f58…2f60 bcb7 5820 INPUT A$
0x2f58…2f60 LineComalBin {
0x2f58…2f60 ptr = 0xbcb7 // 0x2f58 @0x0
0x2f58…2f60 lno = 0x16bc // 0x2f5a @0x2
0x2f58…2f60 at0004 = ╱91╱ INPUT ╱ // 0x2f5c @0x4
0x2f58…2f60 at0005 = ╱41╱A╱ // 0x2f5d @0x5
0x2f58…2f60 at0006 = ╱ef╱$╱ // 0x2f5e @0x6
0x2f58…2f60 at0007 = EOL // 0x2f5f @0x7
0x2f58…2f60 }
0x2f60…2f70 bcc7 5830 EXEC NRTEST(A$)
0x2f60…2f70 LineComalBin {
0x2f60…2f70 ptr = 0xbcc7 // 0x2f60 @0x0
0x2f60…2f70 lno = 0x16c6 // 0x2f62 @0x2
0x2f60…2f70 at0004 = ╱9d╱ EXEC ╱ // 0x2f64 @0x4
0x2f60…2f70 at0005 = ╱4e╱N╱ // 0x2f65 @0x5
0x2f60…2f70 at0006 = ╱52╱R╱ // 0x2f66 @0x6
0x2f60…2f70 at0007 = ╱54╱T╱ // 0x2f67 @0x7
0x2f60…2f70 at0008 = ╱45╱E╱ // 0x2f68 @0x8
0x2f60…2f70 at0009 = ╱53╱S╱ // 0x2f69 @0x9
0x2f60…2f70 at000a = ╱54╱T╱ // 0x2f6a @0xa
0x2f60…2f70 at000b = ╱ed╱(╱ // 0x2f6b @0xb
0x2f60…2f70 at000c = ╱41╱A╱ // 0x2f6c @0xc
0x2f60…2f70 at000d = ╱ef╱$╱ // 0x2f6d @0xd
0x2f60…2f70 at000e = ╱ee╱)╱ // 0x2f6e @0xe
0x2f60…2f70 at000f = EOL // 0x2f6f @0xf
0x2f60…2f70 }
0x2f70…2f7a bcd1 5840 UNTIL P=-E
0x2f70…2f7a LineComalBin {
0x2f70…2f7a ptr = 0xbcd1 // 0x2f70 @0x0
0x2f70…2f7a lno = 0x16d0 // 0x2f72 @0x2
0x2f70…2f7a at0004 = ╱98╱ UNTIL ╱ // 0x2f74 @0x4
0x2f70…2f7a at0005 = ╱50╱P╱ // 0x2f75 @0x5
0x2f70…2f7a at0006 = ╱dc╱=╱ // 0x2f76 @0x6
0x2f70…2f7a at0007 = ╱e9╱-╱ // 0x2f77 @0x7
0x2f70…2f7a at0008 = ╱45╱E╱ // 0x2f78 @0x8
0x2f70…2f7a at0009 = EOL // 0x2f79 @0x9
0x2f70…2f7a }
0x2f7a…2f80 bcd7 5850 ENDIF
0x2f7a…2f80 LineComalBin {
0x2f7a…2f80 ptr = 0xbcd7 // 0x2f7a @0x0
0x2f7a…2f80 lno = 0x16da // 0x2f7c @0x2
0x2f7a…2f80 at0004 = ╱9b╱ ENDIF ╱ // 0x2f7e @0x4
0x2f7a…2f80 at0005 = EOL // 0x2f7f @0x5
0x2f7a…2f80 }
0x2f80…2f8c bce3 5860 UNTIL KONT=B
0x2f80…2f8c LineComalBin {
0x2f80…2f8c ptr = 0xbce3 // 0x2f80 @0x0
0x2f80…2f8c lno = 0x16e4 // 0x2f82 @0x2
0x2f80…2f8c at0004 = ╱98╱ UNTIL ╱ // 0x2f84 @0x4
0x2f80…2f8c at0005 = ╱4b╱K╱ // 0x2f85 @0x5
0x2f80…2f8c at0006 = ╱4f╱O╱ // 0x2f86 @0x6
0x2f80…2f8c at0007 = ╱4e╱N╱ // 0x2f87 @0x7
0x2f80…2f8c at0008 = ╱54╱T╱ // 0x2f88 @0x8
0x2f80…2f8c at0009 = ╱dc╱=╱ // 0x2f89 @0x9
0x2f80…2f8c at000a = ╱42╱B╱ // 0x2f8a @0xa
0x2f80…2f8c at000b = EOL // 0x2f8b @0xb
0x2f80…2f8c }
0x2f8c…2f98 bcef 5870 UNTIL TYPE=B
0x2f8c…2f98 LineComalBin {
0x2f8c…2f98 ptr = 0xbcef // 0x2f8c @0x0
0x2f8c…2f98 lno = 0x16ee // 0x2f8e @0x2
0x2f8c…2f98 at0004 = ╱98╱ UNTIL ╱ // 0x2f90 @0x4
0x2f8c…2f98 at0005 = ╱54╱T╱ // 0x2f91 @0x5
0x2f8c…2f98 at0006 = ╱59╱Y╱ // 0x2f92 @0x6
0x2f8c…2f98 at0007 = ╱50╱P╱ // 0x2f93 @0x7
0x2f8c…2f98 at0008 = ╱45╱E╱ // 0x2f94 @0x8
0x2f8c…2f98 at0009 = ╱dc╱=╱ // 0x2f95 @0x9
0x2f8c…2f98 at000a = ╱42╱B╱ // 0x2f96 @0xa
0x2f8c…2f98 at000b = EOL // 0x2f97 @0xb
0x2f8c…2f98 }
0x2f98…2fb5 bd0c 5880 EXEC UDTAB(KTAB,MKANTAL,K2$)
0x2f98…2fb5 LineComalBin {
0x2f98…2fb5 ptr = 0xbd0c // 0x2f98 @0x0
0x2f98…2fb5 lno = 0x16f8 // 0x2f9a @0x2
0x2f98…2fb5 at0004 = ╱9d╱ EXEC ╱ // 0x2f9c @0x4
0x2f98…2fb5 at0005 = ╱55╱U╱ // 0x2f9d @0x5
0x2f98…2fb5 at0006 = ╱44╱D╱ // 0x2f9e @0x6
0x2f98…2fb5 at0007 = ╱54╱T╱ // 0x2f9f @0x7
0x2f98…2fb5 at0008 = ╱41╱A╱ // 0x2fa0 @0x8
0x2f98…2fb5 at0009 = ╱42╱B╱ // 0x2fa1 @0x9
0x2f98…2fb5 at000a = ╱ed╱(╱ // 0x2fa2 @0xa
0x2f98…2fb5 at000b = ╱4b╱K╱ // 0x2fa3 @0xb
0x2f98…2fb5 at000c = ╱54╱T╱ // 0x2fa4 @0xc
0x2f98…2fb5 at000d = ╱41╱A╱ // 0x2fa5 @0xd
0x2f98…2fb5 at000e = ╱42╱B╱ // 0x2fa6 @0xe
0x2f98…2fb5 at000f = ╱ec╱,╱ // 0x2fa7 @0xf
0x2f98…2fb5 at0010 = ╱4d╱M╱ // 0x2fa8 @0x10
0x2f98…2fb5 at0011 = ╱4b╱K╱ // 0x2fa9 @0x11
0x2f98…2fb5 at0012 = ╱41╱A╱ // 0x2faa @0x12
0x2f98…2fb5 at0013 = ╱4e╱N╱ // 0x2fab @0x13
0x2f98…2fb5 at0014 = ╱54╱T╱ // 0x2fac @0x14
0x2f98…2fb5 at0015 = ╱41╱A╱ // 0x2fad @0x15
0x2f98…2fb5 at0016 = ╱4c╱L╱ // 0x2fae @0x16
0x2f98…2fb5 at0017 = ╱ec╱,╱ // 0x2faf @0x17
0x2f98…2fb5 at0018 = ╱4b╱K╱ // 0x2fb0 @0x18
0x2f98…2fb5 at0019 = ╱32╱2╱ // 0x2fb1 @0x19
0x2f98…2fb5 at001a = ╱ef╱$╱ // 0x2fb2 @0x1a
0x2f98…2fb5 at001b = ╱ee╱)╱ // 0x2fb3 @0x1b
0x2f98…2fb5 at001c = EOL // 0x2fb4 @0x1c
0x2f98…2fb5 }
0x2fb5…2fbe bd15 5890 CLOSE K2$
0x2fb5…2fbe LineComalBin {
0x2fb5…2fbe ptr = 0xbd15 // 0x2fb5 @0x0
0x2fb5…2fbe lno = 0x1702 // 0x2fb7 @0x2
0x2fb5…2fbe at0004 = ╱a8╱ CLOSE ╱ // 0x2fb9 @0x4
0x2fb5…2fbe at0005 = ╱4b╱K╱ // 0x2fba @0x5
0x2fb5…2fbe at0006 = ╱32╱2╱ // 0x2fbb @0x6
0x2fb5…2fbe at0007 = ╱ef╱$╱ // 0x2fbc @0x7
0x2fb5…2fbe at0008 = EOL // 0x2fbd @0x8
0x2fb5…2fbe }
0x2fbe…2fd7 bd2e 5900 EXEC FEJL(W,20,K2$)
0x2fbe…2fd7 LineComalBin {
0x2fbe…2fd7 ptr = 0xbd2e // 0x2fbe @0x0
0x2fbe…2fd7 lno = 0x170c // 0x2fc0 @0x2
0x2fbe…2fd7 at0004 = ╱9d╱ EXEC ╱ // 0x2fc2 @0x4
0x2fbe…2fd7 at0005 = ╱46╱F╱ // 0x2fc3 @0x5
0x2fbe…2fd7 at0006 = ╱45╱E╱ // 0x2fc4 @0x6
0x2fbe…2fd7 at0007 = ╱4a╱J╱ // 0x2fc5 @0x7
0x2fbe…2fd7 at0008 = ╱4c╱L╱ // 0x2fc6 @0x8
0x2fbe…2fd7 at0009 = ╱ed╱(╱ // 0x2fc7 @0x9
0x2fbe…2fd7 at000a = ╱57╱W╱ // 0x2fc8 @0xa
0x2fbe…2fd7 at000b = ╱ec╱,╱ // 0x2fc9 @0xb
0x2fbe…2fd7 at000c = ╱32╱2╱ // 0x2fca @0xc
0x2fbe…2fd7 at000d = ╱30╱0╱ // 0x2fcb @0xd
0x2fbe…2fd7 at000e = ╱fe0000a005╱ // 0x2fcc @0xe
0x2fbe…2fd7 at0013 = ╱ec╱,╱ // 0x2fd1 @0x13
0x2fbe…2fd7 at0014 = ╱4b╱K╱ // 0x2fd2 @0x14
0x2fbe…2fd7 at0015 = ╱32╱2╱ // 0x2fd3 @0x15
0x2fbe…2fd7 at0016 = ╱ef╱$╱ // 0x2fd4 @0x16
0x2fbe…2fd7 at0017 = ╱ee╱)╱ // 0x2fd5 @0x17
0x2fbe…2fd7 at0018 = EOL // 0x2fd6 @0x18
0x2fbe…2fd7 }
0x2fd7…2fe0 bd37 5910 CLOSE K3$
0x2fd7…2fe0 LineComalBin {
0x2fd7…2fe0 ptr = 0xbd37 // 0x2fd7 @0x0
0x2fd7…2fe0 lno = 0x1716 // 0x2fd9 @0x2
0x2fd7…2fe0 at0004 = ╱a8╱ CLOSE ╱ // 0x2fdb @0x4
0x2fd7…2fe0 at0005 = ╱4b╱K╱ // 0x2fdc @0x5
0x2fd7…2fe0 at0006 = ╱33╱3╱ // 0x2fdd @0x6
0x2fd7…2fe0 at0007 = ╱ef╱$╱ // 0x2fde @0x7
0x2fd7…2fe0 at0008 = EOL // 0x2fdf @0x8
0x2fd7…2fe0 }
0x2fe0…2ff9 bd50 5920 EXEC FEJL(W,21,K3$)
0x2fe0…2ff9 LineComalBin {
0x2fe0…2ff9 ptr = 0xbd50 // 0x2fe0 @0x0
0x2fe0…2ff9 lno = 0x1720 // 0x2fe2 @0x2
0x2fe0…2ff9 at0004 = ╱9d╱ EXEC ╱ // 0x2fe4 @0x4
0x2fe0…2ff9 at0005 = ╱46╱F╱ // 0x2fe5 @0x5
0x2fe0…2ff9 at0006 = ╱45╱E╱ // 0x2fe6 @0x6
0x2fe0…2ff9 at0007 = ╱4a╱J╱ // 0x2fe7 @0x7
0x2fe0…2ff9 at0008 = ╱4c╱L╱ // 0x2fe8 @0x8
0x2fe0…2ff9 at0009 = ╱ed╱(╱ // 0x2fe9 @0x9
0x2fe0…2ff9 at000a = ╱57╱W╱ // 0x2fea @0xa
0x2fe0…2ff9 at000b = ╱ec╱,╱ // 0x2feb @0xb
0x2fe0…2ff9 at000c = ╱32╱2╱ // 0x2fec @0xc
0x2fe0…2ff9 at000d = ╱31╱1╱ // 0x2fed @0xd
0x2fe0…2ff9 at000e = ╱fe0000a805╱ // 0x2fee @0xe
0x2fe0…2ff9 at0013 = ╱ec╱,╱ // 0x2ff3 @0x13
0x2fe0…2ff9 at0014 = ╱4b╱K╱ // 0x2ff4 @0x14
0x2fe0…2ff9 at0015 = ╱33╱3╱ // 0x2ff5 @0x15
0x2fe0…2ff9 at0016 = ╱ef╱$╱ // 0x2ff6 @0x16
0x2fe0…2ff9 at0017 = ╱ee╱)╱ // 0x2ff7 @0x17
0x2fe0…2ff9 at0018 = EOL // 0x2ff8 @0x18
0x2fe0…2ff9 }
0x2ff9…300a bd61 5930 T2(5)=B
0x2ff9…300a LineComalBin {
0x2ff9…300a ptr = 0xbd61 // 0x2ff9 @0x0
0x2ff9…300a lno = 0x172a // 0x2ffb @0x2
0x2ff9…300a at0004 = ╱54╱T╱ // 0x2ffd @0x4
0x2ff9…300a at0005 = ╱32╱2╱ // 0x2ffe @0x5
0x2ff9…300a at0006 = ╱ed╱(╱ // 0x2fff @0x6
0x2ff9…300a at0007 = ╱35╱5╱ // 0x3000 @0x7
0x2ff9…300a at0008 = ╱fe0000a003╱ // 0x3001 @0x8
0x2ff9…300a at000d = ╱ee╱)╱ // 0x3006 @0xd
0x2ff9…300a at000e = ╱dc╱=╱ // 0x3007 @0xe
0x2ff9…300a at000f = ╱42╱B╱ // 0x3008 @0xf
0x2ff9…300a at0010 = EOL // 0x3009 @0x10
0x2ff9…300a }
0x300a…3015 bd6c 5940 OPEN K5$,W
0x300a…3015 LineComalBin {
0x300a…3015 ptr = 0xbd6c // 0x300a @0x0
0x300a…3015 lno = 0x1734 // 0x300c @0x2
0x300a…3015 at0004 = ╱a7╱ OPEN ╱ // 0x300e @0x4
0x300a…3015 at0005 = ╱4b╱K╱ // 0x300f @0x5
0x300a…3015 at0006 = ╱35╱5╱ // 0x3010 @0x6
0x300a…3015 at0007 = ╱ef╱$╱ // 0x3011 @0x7
0x300a…3015 at0008 = ╱ec╱,╱ // 0x3012 @0x8
0x300a…3015 at0009 = ╱57╱W╱ // 0x3013 @0x9
0x300a…3015 at000a = EOL // 0x3014 @0xa
0x300a…3015 }
0x3015…302e bd85 5950 EXEC FEJL(W,22,K5$)
0x3015…302e LineComalBin {
0x3015…302e ptr = 0xbd85 // 0x3015 @0x0
0x3015…302e lno = 0x173e // 0x3017 @0x2
0x3015…302e at0004 = ╱9d╱ EXEC ╱ // 0x3019 @0x4
0x3015…302e at0005 = ╱46╱F╱ // 0x301a @0x5
0x3015…302e at0006 = ╱45╱E╱ // 0x301b @0x6
0x3015…302e at0007 = ╱4a╱J╱ // 0x301c @0x7
0x3015…302e at0008 = ╱4c╱L╱ // 0x301d @0x8
0x3015…302e at0009 = ╱ed╱(╱ // 0x301e @0x9
0x3015…302e at000a = ╱57╱W╱ // 0x301f @0xa
0x3015…302e at000b = ╱ec╱,╱ // 0x3020 @0xb
0x3015…302e at000c = ╱32╱2╱ // 0x3021 @0xc
0x3015…302e at000d = ╱32╱2╱ // 0x3022 @0xd
0x3015…302e at000e = ╱fe0000b005╱ // 0x3023 @0xe
0x3015…302e at0013 = ╱ec╱,╱ // 0x3028 @0x13
0x3015…302e at0014 = ╱4b╱K╱ // 0x3029 @0x14
0x3015…302e at0015 = ╱35╱5╱ // 0x302a @0x15
0x3015…302e at0016 = ╱ef╱$╱ // 0x302b @0x16
0x3015…302e at0017 = ╱ee╱)╱ // 0x302c @0x17
0x3015…302e at0018 = EOL // 0x302d @0x18
0x3015…302e }
0x302e…3085 bddc 5960 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x302e…3085 LineComalBin {
0x302e…3085 ptr = 0xbddc // 0x302e @0x0
0x302e…3085 lno = 0x1748 // 0x3030 @0x2
0x302e…3085 at0004 = ╱aa╱ PUT ╱ // 0x3032 @0x4
0x302e…3085 at0005 = ╱4b╱K╱ // 0x3033 @0x5
0x302e…3085 at0006 = ╱35╱5╱ // 0x3034 @0x6
0x302e…3085 at0007 = ╱ef╱$╱ // 0x3035 @0x7
0x302e…3085 at0008 = ╱ec╱,╱ // 0x3036 @0x8
0x302e…3085 at0009 = ╱31╱1╱ // 0x3037 @0x9
0x302e…3085 at000a = ╱34╱4╱ // 0x3038 @0xa
0x302e…3085 at000b = ╱fe0000e004╱ // 0x3039 @0xb
0x302e…3085 at0010 = ╱f0╱:╱ // 0x303e @0x10
0x302e…3085 at0011 = ╱41╱A╱ // 0x303f @0x11
0x302e…3085 at0012 = ╱46╱F╱ // 0x3040 @0x12
0x302e…3085 at0013 = ╱49╱I╱ // 0x3041 @0x13
0x302e…3085 at0014 = ╱4e╱N╱ // 0x3042 @0x14
0x302e…3085 at0015 = ╱ec╱,╱ // 0x3043 @0x15
0x302e…3085 at0016 = ╱41╱A╱ // 0x3044 @0x16
0x302e…3085 at0017 = ╱44╱D╱ // 0x3045 @0x17
0x302e…3085 at0018 = ╱45╱E╱ // 0x3046 @0x18
0x302e…3085 at0019 = ╱42╱B╱ // 0x3047 @0x19
0x302e…3085 at001a = ╱ec╱,╱ // 0x3048 @0x1a
0x302e…3085 at001b = ╱41╱A╱ // 0x3049 @0x1b
0x302e…3085 at001c = ╱4b╱K╱ // 0x304a @0x1c
0x302e…3085 at001d = ╱52╱R╱ // 0x304b @0x1d
0x302e…3085 at001e = ╱45╱E╱ // 0x304c @0x1e
0x302e…3085 at001f = ╱ec╱,╱ // 0x304d @0x1f
0x302e…3085 at0020 = ╱56╱V╱ // 0x304e @0x20
0x302e…3085 at0021 = ╱54╱T╱ // 0x304f @0x21
0x302e…3085 at0022 = ╱41╱A╱ // 0x3050 @0x22
0x302e…3085 at0023 = ╱42╱B╱ // 0x3051 @0x23
0x302e…3085 at0024 = ╱32╱2╱ // 0x3052 @0x24
0x302e…3085 at0025 = ╱ed╱(╱ // 0x3053 @0x25
0x302e…3085 at0026 = ╱45╱E╱ // 0x3054 @0x26
0x302e…3085 at0027 = ╱ee╱)╱ // 0x3055 @0x27
0x302e…3085 at0028 = ╱ec╱,╱ // 0x3056 @0x28
0x302e…3085 at0029 = ╱56╱V╱ // 0x3057 @0x29
0x302e…3085 at002a = ╱54╱T╱ // 0x3058 @0x2a
0x302e…3085 at002b = ╱41╱A╱ // 0x3059 @0x2b
0x302e…3085 at002c = ╱42╱B╱ // 0x305a @0x2c
0x302e…3085 at002d = ╱32╱2╱ // 0x305b @0x2d
0x302e…3085 at002e = ╱ed╱(╱ // 0x305c @0x2e
0x302e…3085 at002f = ╱47╱G╱ // 0x305d @0x2f
0x302e…3085 at0030 = ╱ee╱)╱ // 0x305e @0x30
0x302e…3085 at0031 = ╱ec╱,╱ // 0x305f @0x31
0x302e…3085 at0032 = ╱56╱V╱ // 0x3060 @0x32
0x302e…3085 at0033 = ╱54╱T╱ // 0x3061 @0x33
0x302e…3085 at0034 = ╱41╱A╱ // 0x3062 @0x34
0x302e…3085 at0035 = ╱42╱B╱ // 0x3063 @0x35
0x302e…3085 at0036 = ╱32╱2╱ // 0x3064 @0x36
0x302e…3085 at0037 = ╱ed╱(╱ // 0x3065 @0x37
0x302e…3085 at0038 = ╱56╱V╱ // 0x3066 @0x38
0x302e…3085 at0039 = ╱ee╱)╱ // 0x3067 @0x39
0x302e…3085 at003a = ╱ec╱,╱ // 0x3068 @0x3a
0x302e…3085 at003b = ╱56╱V╱ // 0x3069 @0x3b
0x302e…3085 at003c = ╱54╱T╱ // 0x306a @0x3c
0x302e…3085 at003d = ╱41╱A╱ // 0x306b @0x3d
0x302e…3085 at003e = ╱42╱B╱ // 0x306c @0x3e
0x302e…3085 at003f = ╱32╱2╱ // 0x306d @0x3f
0x302e…3085 at0040 = ╱ed╱(╱ // 0x306e @0x40
0x302e…3085 at0041 = ╱34╱4╱ // 0x306f @0x41
0x302e…3085 at0042 = ╱fe00008003╱ // 0x3070 @0x42
0x302e…3085 at0047 = ╱ee╱)╱ // 0x3075 @0x47
0x302e…3085 at0048 = ╱ec╱,╱ // 0x3076 @0x48
0x302e…3085 at0049 = ╱56╱V╱ // 0x3077 @0x49
0x302e…3085 at004a = ╱54╱T╱ // 0x3078 @0x4a
0x302e…3085 at004b = ╱41╱A╱ // 0x3079 @0x4b
0x302e…3085 at004c = ╱42╱B╱ // 0x307a @0x4c
0x302e…3085 at004d = ╱32╱2╱ // 0x307b @0x4d
0x302e…3085 at004e = ╱ed╱(╱ // 0x307c @0x4e
0x302e…3085 at004f = ╱35╱5╱ // 0x307d @0x4f
0x302e…3085 at0050 = ╱fe0000a003╱ // 0x307e @0x50
0x302e…3085 at0055 = ╱ee╱)╱ // 0x3083 @0x55
0x302e…3085 at0056 = EOL // 0x3084 @0x56
0x302e…3085 }
0x3085…309e bdf5 5970 EXEC FEJL(W,23,K5$)
0x3085…309e LineComalBin {
0x3085…309e ptr = 0xbdf5 // 0x3085 @0x0
0x3085…309e lno = 0x1752 // 0x3087 @0x2
0x3085…309e at0004 = ╱9d╱ EXEC ╱ // 0x3089 @0x4
0x3085…309e at0005 = ╱46╱F╱ // 0x308a @0x5
0x3085…309e at0006 = ╱45╱E╱ // 0x308b @0x6
0x3085…309e at0007 = ╱4a╱J╱ // 0x308c @0x7
0x3085…309e at0008 = ╱4c╱L╱ // 0x308d @0x8
0x3085…309e at0009 = ╱ed╱(╱ // 0x308e @0x9
0x3085…309e at000a = ╱57╱W╱ // 0x308f @0xa
0x3085…309e at000b = ╱ec╱,╱ // 0x3090 @0xb
0x3085…309e at000c = ╱32╱2╱ // 0x3091 @0xc
0x3085…309e at000d = ╱33╱3╱ // 0x3092 @0xd
0x3085…309e at000e = ╱fe0000b805╱ // 0x3093 @0xe
0x3085…309e at0013 = ╱ec╱,╱ // 0x3098 @0x13
0x3085…309e at0014 = ╱4b╱K╱ // 0x3099 @0x14
0x3085…309e at0015 = ╱35╱5╱ // 0x309a @0x15
0x3085…309e at0016 = ╱ef╱$╱ // 0x309b @0x16
0x3085…309e at0017 = ╱ee╱)╱ // 0x309c @0x17
0x3085…309e at0018 = EOL // 0x309d @0x18
0x3085…309e }
0x309e…30fe be55 5980 PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x309e…30fe LineComalBin {
0x309e…30fe ptr = 0xbe55 // 0x309e @0x0
0x309e…30fe lno = 0x175c // 0x30a0 @0x2
0x309e…30fe at0004 = ╱aa╱ PUT ╱ // 0x30a2 @0x4
0x309e…30fe at0005 = ╱4b╱K╱ // 0x30a3 @0x5
0x309e…30fe at0006 = ╱35╱5╱ // 0x30a4 @0x6
0x309e…30fe at0007 = ╱ef╱$╱ // 0x30a5 @0x7
0x309e…30fe at0008 = ╱ec╱,╱ // 0x30a6 @0x8
0x309e…30fe at0009 = ╱31╱1╱ // 0x30a7 @0x9
0x309e…30fe at000a = ╱37╱7╱ // 0x30a8 @0xa
0x309e…30fe at000b = ╱fe00008805╱ // 0x30a9 @0xb
0x309e…30fe at0010 = ╱f0╱:╱ // 0x30ae @0x10
0x309e…30fe at0011 = ╱54╱T╱ // 0x30af @0x11
0x309e…30fe at0012 = ╱32╱2╱ // 0x30b0 @0x12
0x309e…30fe at0013 = ╱ed╱(╱ // 0x30b1 @0x13
0x309e…30fe at0014 = ╱45╱E╱ // 0x30b2 @0x14
0x309e…30fe at0015 = ╱ee╱)╱ // 0x30b3 @0x15
0x309e…30fe at0016 = ╱ec╱,╱ // 0x30b4 @0x16
0x309e…30fe at0017 = ╱54╱T╱ // 0x30b5 @0x17
0x309e…30fe at0018 = ╱32╱2╱ // 0x30b6 @0x18
0x309e…30fe at0019 = ╱ed╱(╱ // 0x30b7 @0x19
0x309e…30fe at001a = ╱47╱G╱ // 0x30b8 @0x1a
0x309e…30fe at001b = ╱ee╱)╱ // 0x30b9 @0x1b
0x309e…30fe at001c = ╱ec╱,╱ // 0x30ba @0x1c
0x309e…30fe at001d = ╱54╱T╱ // 0x30bb @0x1d
0x309e…30fe at001e = ╱32╱2╱ // 0x30bc @0x1e
0x309e…30fe at001f = ╱ed╱(╱ // 0x30bd @0x1f
0x309e…30fe at0020 = ╱56╱V╱ // 0x30be @0x20
0x309e…30fe at0021 = ╱ee╱)╱ // 0x30bf @0x21
0x309e…30fe at0022 = ╱ec╱,╱ // 0x30c0 @0x22
0x309e…30fe at0023 = ╱54╱T╱ // 0x30c1 @0x23
0x309e…30fe at0024 = ╱32╱2╱ // 0x30c2 @0x24
0x309e…30fe at0025 = ╱ed╱(╱ // 0x30c3 @0x25
0x309e…30fe at0026 = ╱34╱4╱ // 0x30c4 @0x26
0x309e…30fe at0027 = ╱fe00008003╱ // 0x30c5 @0x27
0x309e…30fe at002c = ╱ee╱)╱ // 0x30ca @0x2c
0x309e…30fe at002d = ╱ec╱,╱ // 0x30cb @0x2d
0x309e…30fe at002e = ╱54╱T╱ // 0x30cc @0x2e
0x309e…30fe at002f = ╱32╱2╱ // 0x30cd @0x2f
0x309e…30fe at0030 = ╱ed╱(╱ // 0x30ce @0x30
0x309e…30fe at0031 = ╱35╱5╱ // 0x30cf @0x31
0x309e…30fe at0032 = ╱fe0000a003╱ // 0x30d0 @0x32
0x309e…30fe at0037 = ╱ee╱)╱ // 0x30d5 @0x37
0x309e…30fe at0038 = ╱ec╱,╱ // 0x30d6 @0x38
0x309e…30fe at0039 = ╱54╱T╱ // 0x30d7 @0x39
0x309e…30fe at003a = ╱32╱2╱ // 0x30d8 @0x3a
0x309e…30fe at003b = ╱ed╱(╱ // 0x30d9 @0x3b
0x309e…30fe at003c = ╱36╱6╱ // 0x30da @0x3c
0x309e…30fe at003d = ╱fe0000c003╱ // 0x30db @0x3d
0x309e…30fe at0042 = ╱ee╱)╱ // 0x30e0 @0x42
0x309e…30fe at0043 = ╱ec╱,╱ // 0x30e1 @0x43
0x309e…30fe at0044 = ╱54╱T╱ // 0x30e2 @0x44
0x309e…30fe at0045 = ╱32╱2╱ // 0x30e3 @0x45
0x309e…30fe at0046 = ╱ed╱(╱ // 0x30e4 @0x46
0x309e…30fe at0047 = ╱37╱7╱ // 0x30e5 @0x47
0x309e…30fe at0048 = ╱fe0000e003╱ // 0x30e6 @0x48
0x309e…30fe at004d = ╱ee╱)╱ // 0x30eb @0x4d
0x309e…30fe at004e = ╱ec╱,╱ // 0x30ec @0x4e
0x309e…30fe at004f = ╱54╱T╱ // 0x30ed @0x4f
0x309e…30fe at0050 = ╱32╱2╱ // 0x30ee @0x50
0x309e…30fe at0051 = ╱ed╱(╱ // 0x30ef @0x51
0x309e…30fe at0052 = ╱38╱8╱ // 0x30f0 @0x52
0x309e…30fe at0053 = ╱fe00008004╱ // 0x30f1 @0x53
0x309e…30fe at0058 = ╱ee╱)╱ // 0x30f6 @0x58
0x309e…30fe at0059 = ╱ec╱,╱ // 0x30f7 @0x59
0x309e…30fe at005a = ╱54╱T╱ // 0x30f8 @0x5a
0x309e…30fe at005b = ╱32╱2╱ // 0x30f9 @0x5b
0x309e…30fe at005c = ╱ed╱(╱ // 0x30fa @0x5c
0x309e…30fe at005d = ╱57╱W╱ // 0x30fb @0x5d
0x309e…30fe at005e = ╱ee╱)╱ // 0x30fc @0x5e
0x309e…30fe at005f = EOL // 0x30fd @0x5f
0x309e…30fe }
0x30fe…3117 be6e 5990 EXEC FEJL(W,24,K5$)
0x30fe…3117 LineComalBin {
0x30fe…3117 ptr = 0xbe6e // 0x30fe @0x0
0x30fe…3117 lno = 0x1766 // 0x3100 @0x2
0x30fe…3117 at0004 = ╱9d╱ EXEC ╱ // 0x3102 @0x4
0x30fe…3117 at0005 = ╱46╱F╱ // 0x3103 @0x5
0x30fe…3117 at0006 = ╱45╱E╱ // 0x3104 @0x6
0x30fe…3117 at0007 = ╱4a╱J╱ // 0x3105 @0x7
0x30fe…3117 at0008 = ╱4c╱L╱ // 0x3106 @0x8
0x30fe…3117 at0009 = ╱ed╱(╱ // 0x3107 @0x9
0x30fe…3117 at000a = ╱57╱W╱ // 0x3108 @0xa
0x30fe…3117 at000b = ╱ec╱,╱ // 0x3109 @0xb
0x30fe…3117 at000c = ╱32╱2╱ // 0x310a @0xc
0x30fe…3117 at000d = ╱34╱4╱ // 0x310b @0xd
0x30fe…3117 at000e = ╱fe0000c005╱ // 0x310c @0xe
0x30fe…3117 at0013 = ╱ec╱,╱ // 0x3111 @0x13
0x30fe…3117 at0014 = ╱4b╱K╱ // 0x3112 @0x14
0x30fe…3117 at0015 = ╱35╱5╱ // 0x3113 @0x15
0x30fe…3117 at0016 = ╱ef╱$╱ // 0x3114 @0x16
0x30fe…3117 at0017 = ╱ee╱)╱ // 0x3115 @0x17
0x30fe…3117 at0018 = EOL // 0x3116 @0x18
0x30fe…3117 }
0x3117…3120 be77 6000 CLOSE K5$
0x3117…3120 LineComalBin {
0x3117…3120 ptr = 0xbe77 // 0x3117 @0x0
0x3117…3120 lno = 0x1770 // 0x3119 @0x2
0x3117…3120 at0004 = ╱a8╱ CLOSE ╱ // 0x311b @0x4
0x3117…3120 at0005 = ╱4b╱K╱ // 0x311c @0x5
0x3117…3120 at0006 = ╱35╱5╱ // 0x311d @0x6
0x3117…3120 at0007 = ╱ef╱$╱ // 0x311e @0x7
0x3117…3120 at0008 = EOL // 0x311f @0x8
0x3117…3120 }
0x3120…3139 be90 6010 EXEC FEJL(W,25,K5$)
0x3120…3139 LineComalBin {
0x3120…3139 ptr = 0xbe90 // 0x3120 @0x0
0x3120…3139 lno = 0x177a // 0x3122 @0x2
0x3120…3139 at0004 = ╱9d╱ EXEC ╱ // 0x3124 @0x4
0x3120…3139 at0005 = ╱46╱F╱ // 0x3125 @0x5
0x3120…3139 at0006 = ╱45╱E╱ // 0x3126 @0x6
0x3120…3139 at0007 = ╱4a╱J╱ // 0x3127 @0x7
0x3120…3139 at0008 = ╱4c╱L╱ // 0x3128 @0x8
0x3120…3139 at0009 = ╱ed╱(╱ // 0x3129 @0x9
0x3120…3139 at000a = ╱57╱W╱ // 0x312a @0xa
0x3120…3139 at000b = ╱ec╱,╱ // 0x312b @0xb
0x3120…3139 at000c = ╱32╱2╱ // 0x312c @0xc
0x3120…3139 at000d = ╱35╱5╱ // 0x312d @0xd
0x3120…3139 at000e = ╱fe0000c805╱ // 0x312e @0xe
0x3120…3139 at0013 = ╱ec╱,╱ // 0x3133 @0x13
0x3120…3139 at0014 = ╱4b╱K╱ // 0x3134 @0x14
0x3120…3139 at0015 = ╱35╱5╱ // 0x3135 @0x15
0x3120…3139 at0016 = ╱ef╱$╱ // 0x3136 @0x16
0x3120…3139 at0017 = ╱ee╱)╱ // 0x3137 @0x17
0x3120…3139 at0018 = EOL // 0x3138 @0x18
0x3120…3139 }
0x3139…3150 bea7 6020 CHAIN "P641210:OPSTART"
0x3139…3150 LineComalBin {
0x3139…3150 ptr = 0xbea7 // 0x3139 @0x0
0x3139…3150 lno = 0x1784 // 0x313b @0x2
0x3139…3150 at0004 = ╱ac╱ CHAIN ╱ // 0x313d @0x4
0x3139…3150 at0005 = ╱22╱"╱ // 0x313e @0x5
0x3139…3150 at0006 = ╱50╱P╱ // 0x313f @0x6
0x3139…3150 at0007 = ╱36╱6╱ // 0x3140 @0x7
0x3139…3150 at0008 = ╱34╱4╱ // 0x3141 @0x8
0x3139…3150 at0009 = ╱31╱1╱ // 0x3142 @0x9
0x3139…3150 at000a = ╱32╱2╱ // 0x3143 @0xa
0x3139…3150 at000b = ╱31╱1╱ // 0x3144 @0xb
0x3139…3150 at000c = ╱30╱0╱ // 0x3145 @0xc
0x3139…3150 at000d = ╱3a╱:╱ // 0x3146 @0xd
0x3139…3150 at000e = ╱4f╱O╱ // 0x3147 @0xe
0x3139…3150 at000f = ╱50╱P╱ // 0x3148 @0xf
0x3139…3150 at0010 = ╱53╱S╱ // 0x3149 @0x10
0x3139…3150 at0011 = ╱54╱T╱ // 0x314a @0x11
0x3139…3150 at0012 = ╱41╱A╱ // 0x314b @0x12
0x3139…3150 at0013 = ╱52╱R╱ // 0x314c @0x13
0x3139…3150 at0014 = ╱54╱T╱ // 0x314d @0x14
0x3139…3150 at0015 = ╱22╱"╱ // 0x314e @0x15
0x3139…3150 at0016 = EOL // 0x314f @0x16
0x3139…3150 }
0x3150…315f beb6 6030 PROC SALDOTEST
0x3150…315f LineComalBin {
0x3150…315f ptr = 0xbeb6 // 0x3150 @0x0
0x3150…315f lno = 0x178e // 0x3152 @0x2
0x3150…315f at0004 = ╱9e╱ PROC ╱ // 0x3154 @0x4
0x3150…315f at0005 = ╱53╱S╱ // 0x3155 @0x5
0x3150…315f at0006 = ╱41╱A╱ // 0x3156 @0x6
0x3150…315f at0007 = ╱4c╱L╱ // 0x3157 @0x7
0x3150…315f at0008 = ╱44╱D╱ // 0x3158 @0x8
0x3150…315f at0009 = ╱4f╱O╱ // 0x3159 @0x9
0x3150…315f at000a = ╱54╱T╱ // 0x315a @0xa
0x3150…315f at000b = ╱45╱E╱ // 0x315b @0xb
0x3150…315f at000c = ╱53╱S╱ // 0x315c @0xc
0x3150…315f at000d = ╱54╱T╱ // 0x315d @0xd
0x3150…315f at000e = EOL // 0x315e @0xe
0x3150…315f }
0x315f…3184 bedb 6040 EXEC CALC(4,KSALDO1$,TAH$,TAH$)
0x315f…3184 LineComalBin {
0x315f…3184 ptr = 0xbedb // 0x315f @0x0
0x315f…3184 lno = 0x1798 // 0x3161 @0x2
0x315f…3184 at0004 = ╱9d╱ EXEC ╱ // 0x3163 @0x4
0x315f…3184 at0005 = ╱43╱C╱ // 0x3164 @0x5
0x315f…3184 at0006 = ╱41╱A╱ // 0x3165 @0x6
0x315f…3184 at0007 = ╱4c╱L╱ // 0x3166 @0x7
0x315f…3184 at0008 = ╱43╱C╱ // 0x3167 @0x8
0x315f…3184 at0009 = ╱ed╱(╱ // 0x3168 @0x9
0x315f…3184 at000a = ╱34╱4╱ // 0x3169 @0xa
0x315f…3184 at000b = ╱fe00008003╱ // 0x316a @0xb
0x315f…3184 at0010 = ╱ec╱,╱ // 0x316f @0x10
0x315f…3184 at0011 = ╱4b╱K╱ // 0x3170 @0x11
0x315f…3184 at0012 = ╱53╱S╱ // 0x3171 @0x12
0x315f…3184 at0013 = ╱41╱A╱ // 0x3172 @0x13
0x315f…3184 at0014 = ╱4c╱L╱ // 0x3173 @0x14
0x315f…3184 at0015 = ╱44╱D╱ // 0x3174 @0x15
0x315f…3184 at0016 = ╱4f╱O╱ // 0x3175 @0x16
0x315f…3184 at0017 = ╱31╱1╱ // 0x3176 @0x17
0x315f…3184 at0018 = ╱ef╱$╱ // 0x3177 @0x18
0x315f…3184 at0019 = ╱ec╱,╱ // 0x3178 @0x19
0x315f…3184 at001a = ╱54╱T╱ // 0x3179 @0x1a
0x315f…3184 at001b = ╱41╱A╱ // 0x317a @0x1b
0x315f…3184 at001c = ╱48╱H╱ // 0x317b @0x1c
0x315f…3184 at001d = ╱ef╱$╱ // 0x317c @0x1d
0x315f…3184 at001e = ╱ec╱,╱ // 0x317d @0x1e
0x315f…3184 at001f = ╱54╱T╱ // 0x317e @0x1f
0x315f…3184 at0020 = ╱41╱A╱ // 0x317f @0x20
0x315f…3184 at0021 = ╱48╱H╱ // 0x3180 @0x21
0x315f…3184 at0022 = ╱ef╱$╱ // 0x3181 @0x22
0x315f…3184 at0023 = ╱ee╱)╱ // 0x3182 @0x23
0x315f…3184 at0024 = EOL // 0x3183 @0x24
0x315f…3184 }
0x3184…318f bee6 6050 IF SI=B THEN
0x3184…318f LineComalBin {
0x3184…318f ptr = 0xbee6 // 0x3184 @0x0
0x3184…318f lno = 0x17a2 // 0x3186 @0x2
0x3184…318f at0004 = ╱9c╱ IF ╱ // 0x3188 @0x4
0x3184…318f at0005 = ╱53╱S╱ // 0x3189 @0x5
0x3184…318f at0006 = ╱49╱I╱ // 0x318a @0x6
0x3184…318f at0007 = ╱dc╱=╱ // 0x318b @0x7
0x3184…318f at0008 = ╱42╱B╱ // 0x318c @0x8
0x3184…318f at0009 = ╱b6╱ THEN ╱ // 0x318d @0x9
0x3184…318f at000a = EOL // 0x318e @0xa
0x3184…318f }
0x318f…31b4 bf0b 6060 EXEC CALC(4,KSALDO2$,TAH$,TAH$)
0x318f…31b4 LineComalBin {
0x318f…31b4 ptr = 0xbf0b // 0x318f @0x0
0x318f…31b4 lno = 0x17ac // 0x3191 @0x2
0x318f…31b4 at0004 = ╱9d╱ EXEC ╱ // 0x3193 @0x4
0x318f…31b4 at0005 = ╱43╱C╱ // 0x3194 @0x5
0x318f…31b4 at0006 = ╱41╱A╱ // 0x3195 @0x6
0x318f…31b4 at0007 = ╱4c╱L╱ // 0x3196 @0x7
0x318f…31b4 at0008 = ╱43╱C╱ // 0x3197 @0x8
0x318f…31b4 at0009 = ╱ed╱(╱ // 0x3198 @0x9
0x318f…31b4 at000a = ╱34╱4╱ // 0x3199 @0xa
0x318f…31b4 at000b = ╱fe00008003╱ // 0x319a @0xb
0x318f…31b4 at0010 = ╱ec╱,╱ // 0x319f @0x10
0x318f…31b4 at0011 = ╱4b╱K╱ // 0x31a0 @0x11
0x318f…31b4 at0012 = ╱53╱S╱ // 0x31a1 @0x12
0x318f…31b4 at0013 = ╱41╱A╱ // 0x31a2 @0x13
0x318f…31b4 at0014 = ╱4c╱L╱ // 0x31a3 @0x14
0x318f…31b4 at0015 = ╱44╱D╱ // 0x31a4 @0x15
0x318f…31b4 at0016 = ╱4f╱O╱ // 0x31a5 @0x16
0x318f…31b4 at0017 = ╱32╱2╱ // 0x31a6 @0x17
0x318f…31b4 at0018 = ╱ef╱$╱ // 0x31a7 @0x18
0x318f…31b4 at0019 = ╱ec╱,╱ // 0x31a8 @0x19
0x318f…31b4 at001a = ╱54╱T╱ // 0x31a9 @0x1a
0x318f…31b4 at001b = ╱41╱A╱ // 0x31aa @0x1b
0x318f…31b4 at001c = ╱48╱H╱ // 0x31ab @0x1c
0x318f…31b4 at001d = ╱ef╱$╱ // 0x31ac @0x1d
0x318f…31b4 at001e = ╱ec╱,╱ // 0x31ad @0x1e
0x318f…31b4 at001f = ╱54╱T╱ // 0x31ae @0x1f
0x318f…31b4 at0020 = ╱41╱A╱ // 0x31af @0x20
0x318f…31b4 at0021 = ╱48╱H╱ // 0x31b0 @0x21
0x318f…31b4 at0022 = ╱ef╱$╱ // 0x31b1 @0x22
0x318f…31b4 at0023 = ╱ee╱)╱ // 0x31b2 @0x23
0x318f…31b4 at0024 = EOL // 0x31b3 @0x24
0x318f…31b4 }
0x31b4…31c5 bf1c 6070 IF SI<>B THEN TEST=E
0x31b4…31c5 LineComalBin {
0x31b4…31c5 ptr = 0xbf1c // 0x31b4 @0x0
0x31b4…31c5 lno = 0x17b6 // 0x31b6 @0x2
0x31b4…31c5 at0004 = ╱82╱ IF ╱ // 0x31b8 @0x4
0x31b4…31c5 at0005 = ╱53╱S╱ // 0x31b9 @0x5
0x31b4…31c5 at0006 = ╱49╱I╱ // 0x31ba @0x6
0x31b4…31c5 at0007 = ╱e1╱<>╱ // 0x31bb @0x7
0x31b4…31c5 at0008 = ╱42╱B╱ // 0x31bc @0x8
0x31b4…31c5 at0009 = ╱b6╱ THEN ╱ // 0x31bd @0x9
0x31b4…31c5 at000a = ╱54╱T╱ // 0x31be @0xa
0x31b4…31c5 at000b = ╱45╱E╱ // 0x31bf @0xb
0x31b4…31c5 at000c = ╱53╱S╱ // 0x31c0 @0xc
0x31b4…31c5 at000d = ╱54╱T╱ // 0x31c1 @0xd
0x31b4…31c5 at000e = ╱dc╱=╱ // 0x31c2 @0xe
0x31b4…31c5 at000f = ╱45╱E╱ // 0x31c3 @0xf
0x31b4…31c5 at0010 = EOL // 0x31c4 @0x10
0x31b4…31c5 }
0x31c5…31cb bf22 6080 ELSE
0x31c5…31cb LineComalBin {
0x31c5…31cb ptr = 0xbf22 // 0x31c5 @0x0
0x31c5…31cb lno = 0x17c0 // 0x31c7 @0x2
0x31c5…31cb at0004 = ╱9a╱ ELSE ╱ // 0x31c9 @0x4
0x31c5…31cb at0005 = EOL // 0x31ca @0x5
0x31c5…31cb }
0x31cb…31d6 bf2d 6090 TEST=E
0x31cb…31d6 LineComalBin {
0x31cb…31d6 ptr = 0xbf2d // 0x31cb @0x0
0x31cb…31d6 lno = 0x17ca // 0x31cd @0x2
0x31cb…31d6 at0004 = ╱54╱T╱ // 0x31cf @0x4
0x31cb…31d6 at0005 = ╱45╱E╱ // 0x31d0 @0x5
0x31cb…31d6 at0006 = ╱53╱S╱ // 0x31d1 @0x6
0x31cb…31d6 at0007 = ╱54╱T╱ // 0x31d2 @0x7
0x31cb…31d6 at0008 = ╱dc╱=╱ // 0x31d3 @0x8
0x31cb…31d6 at0009 = ╱45╱E╱ // 0x31d4 @0x9
0x31cb…31d6 at000a = EOL // 0x31d5 @0xa
0x31cb…31d6 }
0x31d6…31dc bf33 6100 ENDIF
0x31d6…31dc LineComalBin {
0x31d6…31dc ptr = 0xbf33 // 0x31d6 @0x0
0x31d6…31dc lno = 0x17d4 // 0x31d8 @0x2
0x31d6…31dc at0004 = ╱9b╱ ENDIF ╱ // 0x31da @0x4
0x31d6…31dc at0005 = EOL // 0x31db @0x5
0x31d6…31dc }
0x31dc…31e2 0000 6110 ENDPROC
0x31dc…31e2 LineComalBin {
0x31dc…31e2 ptr = 0x0000 // 0x31dc @0x0
0x31dc…31e2 lno = 0x17de // 0x31de @0x2
0x31dc…31e2 at0004 = ╱9f╱ ENDPROC ╱ // 0x31e0 @0x4
0x31dc…31e2 at0005 = EOL // 0x31e1 @0x5
0x31dc…31e2 }
0x31e2…31ee 86 8d 5f 00 42 dc 30 fe 00 00 00 00 ┆ _ B 0 ┆
0x31ee…320e (166,) eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe ┆ E 1 G 2 V 3 W 9 ┆
0x320e…322e 00 00 90 04 ff 57 8d 55 00 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 ┆ W U B 0 E 1 G 2 ┆
0x322e…323b 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb ┆ V 3 ┆
0x323b…3244 (167,) 57 dc 39 fe 00 00 90 04 ff ┆W 9 ┆
0x3244…324a (168,) 57 8d 6a bf 10 00 ┆W j ┆