|
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: 17802 (0x458a)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »KSP1.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »KSP1.B«
0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(G),FNAVN$(25) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(G),DEBGADE$(25),A$(6) 0120 DIM BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),K3$(17),K4$(17) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),OP2$(12),BELØB$(12),KTNR$(6),K5$(17) 0140 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12) 0150 DIM OP1$(12),TK$(V),TEKST$(25),TFIL$(20,10),FUKODE$(E),N$(6),FMKODE$(E) 0160 DIM K6$(17),K7$(17),UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8) 0170 DIM EGNAVN$(30),EGGADE$(30),EGBY$(20),STREG$(77),TKODE$(E),EGPOSTNR$(4) 0180 DIM K8$(17),K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),K14$(17),DV$(10) 0190 DIM T1(W),T2(W),T3(W),KRENAVN$(25),KREGADE$(25),KREBY$(20),KRELK$(E) 0200 DIM KSALDO1$(12),KSALDO2$(12),LTX$(11,52),LAND$(W,12),KREGR$(E) 0210 DIM UBEL1$(14),UBEL2$(14),UBEL3$(14),UBEL4$(14) 0220 PROC CALC(AR3,B1,B2,ES) 0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0240 CALL "P641210:REGN" 0250 ES$=RES$ 0260 IF AR3<6 THEN IF FLAG THEN STOP 0290 ENDPROC 0300 PROC TUD(BLB,UBLB,TEGN,STØR) 0310 EXEC CALC(5,BLB$,TAH$,UBLB$) 0320 IF TEGN=B THEN UBLB$=UBLB$(E:13) 0350 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN UBLB$(LEN(UBLB$))=" " 0390 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V) 0420 ENDPROC 0430 PROC FEJL(NR1,NR2,NR3) 0440 IF STATUS(NR3$)<>B THEN 0450 PRINT NR1,NR2,NR3$,STATUS(NR3$) 0460 STOP 0470 ENDIF 0480 ENDPROC 0490 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34) 0510 PPIL2=MPOSTANTAL6 DIV 40+E;PPIL1=B 0520 REPEAT 0530 PPIL3=(PPIL1+PPIL2) DIV G 0540 IF HTAB3(PPIL3,E)=NØGLE3 THEN EXIT 0550 IF HTAB3(PPIL3,E)>NØGLE3 THEN 0560 PPIL2=PPIL3 0570 ELSE 0580 PPIL1=PPIL3 0590 ENDIF 0600 UNTIL PPIL2<=PPIL1+E 0610 IF PPIL3>E THEN 0620 REPEAT 0630 PPIL3=PPIL3-E 0640 UNTIL HTAB3(PPIL3,E)<NØGLE3 OR PPIL3=E 0650 ENDIF 0655 T=PPIL3 0660 IF HTAB3(PPIL3,G)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,E) THEN 0665 T=PPIL3+E 0670 IF HTAB3(PPIL3+E,E)>NØGLE3 THEN T=B 0740 ENDIF 0750 IF T<E THEN EXIT 0760 K=T+MPOSTANTAL6 DIV 160 0770 EXEC UNDIND(K34$,K,UTAB3) 0780 FOR I=4 TO E STEP -E 0790 IF UTAB3(I,E)<NØGLE3 THEN EXIT 0800 NEXT I 0810 IF I=B THEN I=E 0820 IF UTAB3(I,G)<NØGLE3 THEN 0825 T=(T-E)*40+I*10+E 0830 IF UTAB3(I+E,E)>NØGLE3 THEN T=B 0880 ELSE 0890 T=(T-E)*40+(I-E)*10+E 0900 ENDIF 0920 ENDPROC 0930 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3) 0940 LINIE=B 0950 OPEN K35$,R 0960 EXEC FEJL(E,E,K35$) 0970 FOR I=E TO 10 0980 GET K35$,T5:KTNUM 0990 EXEC FEJL(E,G,K35$) 1000 IF KTNUM=NØGLE4 OR MAFSLUT=E THEN EXIT 1020 T5=T5+E 1030 NEXT I 1040 IF KTNUM=NØGLE4 THEN 1050 FOR K=T5 TO MPOSTANTAL7 1060 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$,ENTKO 1070 EXEC FEJL(E,V,K35$) 1080 IF KONTO<>NØGLE4 THEN EXIT 1090 TKS=ORD(TKODE$)-48;TKS9=TKS-10*(TKS>20) 1100 IF TKS>W AND TKS<20 THEN 1110 K=K+E 1120 GET K35$,K:KONTO,TEKST$ 1130 EXEC FEJL(E,4,K35$) 1150 ELSE 1160 IF TKS>B AND TKS<30 THEN TEKST$=TFIL$(TKS9) 1210 ENDIF 1215 TEKST$=TEKST$+BLANK$ 1220 IF TKS<30 THEN EXEC UDSKRIV(PKODE,SU3$,LINIE) 1230 NEXT K 1240 IF MAFSLUT=E THEN T6=K;NØGLE4=KONTO 1270 ELSE 1280 T6=T5;NØGLE4=KTNUM;T5=B 1300 ENDIF 1310 CLOSE K35$ 1320 EXEC FEJL(E,5,K35$) 1330 ENDPROC 1340 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1,ENT1) 1350 SK=SKRIV1 1360 EXEC CALC(B,SU1$,BE2$,SU1$) 1370 EXEC DATOUD(DA2,DA5$) 1380 PRINT TAB(E+10*(SK));DA5$;TAB(11+8*(SK)); 1390 IF BI2<>-E THEN PRINT USING "#######":BI2; 1420 PRINT TAB(18+W*(SK));TE2$;TAB(44); 1425 IF NOT SK THEN PRINT USING "######":ENT1; 1430 EXEC TUD(BE2$,UBELØB$,B,B) 1450 PRINT TAB(51-G*(SK)+(15-4*(SK))*(BE2$(LEN(BE2$))="-"));UBELØB$ 1460 ENDPROC 1470 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK) 1480 REPEAT 1490 CURSOR XPOS1,YPOS1 1500 PRINT LTK$;BLANK$(E:77-XPOS1-LEN(LTK$)) 1510 CURSOR XPOS1+LEN(LTK$),YPOS1 1520 INPUT " ",A$ 1530 EXEC NRTEST(A$) 1540 UNTIL P>LN4 AND P<LN5 1550 ENDPROC 1560 PROC LINIER(FRA1,TIL1,TÆL1) 1570 FOR TÆL1=FRA1 TO TIL1 1580 PRINT " " 1590 NEXT TÆL1 1600 ENDPROC 1610 PROC NAVN2(NAVN3,GADE1,POSTNR1,BY1,LANDK1) 1620 PRINT NAVN3$ 1630 CURSOR W,6 1640 PRINT GADE1$ 1650 CURSOR W,7 1660 PRINT USING "######":POSTNR1 1670 CURSOR 17,7 1680 PRINT BY1$ 1690 CURSOR W,8 1700 EXEC NRTEST(LANDK1$) 1710 IF P>B AND P<10 THEN PRINT LAND$(P) 1720 ENDPROC 1730 PROC NAVN1(NAVN,GADE,POSTNR,BY,LANDK) 1740 PRINT TAB(12);NAVN$;" " 1750 PRINT TAB(12);GADE$;" " 1760 PRINT TAB(12);POSTNR;TAB(19);BY$;" " 1770 P1=ORD(LANDK$)-48 1780 IF P1>B AND P1<10 THEN PRINT TAB(12);LAND$(P1);" " 1790 EXEC LINIER(1,1*(P1<1 OR P1>9),I) 1800 ENDPROC 1810 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1820 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1830 REPEAT 1840 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT 1850 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6))) 1860 IF PIL6<E THEN PIL6=E 1870 IF PIL6>MANT3 THEN PIL6=MANT3 1880 UNTIL PIL1=B 1890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E) 1900 PIL6=MANT4+PIL6 1910 GET L8$,PIL6:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G) 1920 EXEC FEJL(E,E,L8$) 1930 FOR PIL6=E TO 4 1940 IF NØGL5=Q(PIL6,E) THEN EXIT 1950 NEXT PIL6 1960 IF PIL6<>5 THEN CEKS=B 1970 ENDPROC 1980 PROC INDTAB1(Z,MANT5,L7) 1990 PIL1=MANT5 DIV 32 2000 FOR I=E TO PIL1 2010 H=(I-E)*8+E 2020 GET L7$,I:Z(H),Z(H+E),Z(H+G),Z(H+V),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 2030 EXEC FEJL(G,E,L7$) 2040 NEXT I 2050 ENDPROC 2060 PROC LUDSKRIV(KT1,DA4,KSNR) 2070 EXEC DATOUD(DA4,DA5$) 2080 KSNR=KSNR+E 2090 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69); 2100 PRINT USING "##":KSNR 2110 ENDPROC 2120 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,DS3,DS4,LNR) 2130 IF MK<>G THEN EXEC LINIER(LNR,24-6*(SKRIV1),LNR) 2140 IF SKRIV1=B OR KTAL1<>DTAL OR (SKRIV1=E AND (MK=E OR MK=G)) THEN 2150 IF MK<>G AND SKRIV1=B THEN PRINT STREG$ 2160 CASE MK OF 2170 STOP 2180 WHEN E,G 2190 PRINT TAB(32);"Transport"; 2200 WHEN V,4 2210 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15) 2220 PRINT STREG$ 2230 WHEN B 2240 PRINT TAB(11),CHR(14);"Månedens køb";TAB(36);"Ny saldo";CHR(15) 2250 PRINT STREG$ 2260 ENDCASE 2270 ENDIF 2280 IF MK=B THEN 2290 EXEC TUD(MKØB$,UBELØB$,E,B) 2300 PRINT TAB(11);UBELØB$; 2310 ENDIF 2320 EXEC TUD(SU2$,UBELØB$,B,B) 2340 PRINT TAB(51-G*(SKRIV1)+(15-4*(SKRIV1))*(SU2$(LEN(SU2$))="-"));UBELØB$ 2350 IF SKRIV1=B THEN 2360 IF MK<>G THEN PRINT STREG$ 2370 ELSE 2380 IF MK<>G THEN 2381 PRINT " " 2382 PRINT " " 2383 ENDIF 2390 ENDIF 2400 IF MK<E OR MK>G THEN 2410 IF SKRIV1=B THEN 2420 CASE MK OF 2430 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15) 2440 WHEN B,4 2450 PRINT TAB(17);CHR(14);"0-30"; 2460 IF MK=B THEN PRINT TAB(25);"30-60";TAB(33);"60-90"; 2470 PRINT TAB(41);"Ældre";CHR(15) 2480 ENDCASE 2490 PRINT STREG$ 2500 ENDIF 2510 EXEC TUD(DS1$,UBEL1$,E,B) 2520 EXEC TUD(DS2$,UBEL2$,E,B) 2530 EXEC TUD(DS3$,UBEL3$,E,B) 2540 EXEC TUD(DS4$,UBEL4$,E,B) 2550 PRINT TAB(11);UBEL1$; 2560 IF MK<>4 THEN PRINT TAB(27);UBEL2$;TAB(44);UBEL3$; 2570 PRINT TAB(60);UBEL4$ 2580 ENDIF 2590 IF SKRIV1=B AND MK<>E AND MK<>G THEN 2600 PRINT STREG$ 2610 PRINT " " 2620 PRINT " " 2630 ENDIF 2640 IF MK=E AND SKRIV1=E THEN PRINT " " 2650 IF MK=E OR (SKRIV1=E AND MK<>G) THEN EXEC LINIER(LNR,29-5*(SKRIV1),LNR) 2660 ENDPROC 2670 PROC STARTBIL 2680 REPEAT 2690 OUTPUT T 2700 CLEAR 2710 EXEC OVERSKRIFT(0) 2720 REPEAT 2730 EXEC INDPUT1(4,3,-1,100000,LTX$(1)) 2740 UNTIL P=B OR (P>9999 AND P<100000) 2750 SUM$="0+";KONT=P;KTAL1=B 2760 IF KONT=B THEN EXIT 2770 IF KTAL=DTAL AND DTAL*10000+MKGR<KONT THEN KTAL1=DTAL 2780 IF KTAL=KRTAL AND KRTAL*1000+MKRGR<KONT THEN KTAL1=KRTAL 2790 CURSOR W,5 2800 CASE KTAL1 OF 2810 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONT,FPIL3,K2$) 2820 IF CEKS=B THEN 2830 EXEC HENTPOST 2840 IF ORD(FUKODE$)-48=B THEN 2850 PRINT FNAVN$;" " 2860 ELSE 2870 CEKS=E 2880 ENDIF 2890 ENDIF 2900 WHEN DTAL 2910 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONT,DPIL3,K3$) 2920 IF CEKS=B THEN 2930 EXEC HENTDPOST 2940 EXEC NAVN2(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$) 2950 ENDIF 2960 WHEN KRTAL 2970 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONT,KPIL3,K4$) 2980 IF CEKS=B THEN 2990 EXEC HENTKPOST 3000 EXEC NAVN2(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$) 3010 ENDIF 3020 ENDCASE 3030 IF CEKS=B THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2)) 3040 IF CEKS=E THEN EXEC INDPUT1(9,5,-2,0,LTX$(3)) 3050 UNTIL P=-7 OR KONT=B 3060 ENDPROC 3070 PROC HUDSKRIV 3080 PRINT " " 3090 IF SKRIV1=B THEN PRINT TAB(65);DV$;" " 3100 CASE KTAL1 OF 3110 PRINT TAB(12);CHR(14);FNAVN$;" ";CHR(15) 3120 EXEC LINIER(1,3,I) 3130 WHEN DTAL 3140 IF SKRIV1=E THEN 3150 PRINT " " 3155 PRINT " " 3160 PRINT TAB(12);EGNAVN$;" " 3170 PRINT TAB(12);EGGADE$;" " 3180 PRINT TAB(12);EGPOSTNR$;" ";EGBY$;" " 3190 EXEC LINIER(1,5,I) 3200 ENDIF 3210 EXEC NAVN1(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$) 3220 WHEN KRTAL 3230 EXEC NAVN1(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$) 3240 ENDCASE 3250 ENDPROC 3260 PROC HSUDSKRIV 3270 IF SKRIV THEN 3280 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side" 3290 PRINT TAB(49);STREG$(E:29) 3300 EXEC LUDSKRIV(KONT,DATO,KSIDENR) 3310 PRINT STREG$ 3320 ELSE 3330 CLEAR 3340 EXEC OVERSKRIFT(1) 3350 CURSOR E,V 3360 ENDIF 3370 PRINT TAB(V);"Dato";TAB(12);"Bilag Tekst";TAB(44);"Entre";TAB(57); 3375 PRINT "Debet";TAB(72);"Kredit" 3390 PRINT STREG$ 3400 ENDPROC 3410 PROC OVERSKRIFT(ART1) 3420 IF ART1=B THEN 3430 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$ 3440 ELSE 3450 CURSOR E,E 3460 PRINT "Kontospørgeprogram Nr:"; 3470 PRINT USING "###### Navn :":KONT; 3480 CASE KTAL1 OF 3490 PRINT FNAVN$;" "; 3500 WHEN DTAL 3510 PRINT DEBNAVN$;" "; 3520 WHEN KRTAL 3530 PRINT KRENAVN$;" "; 3540 ENDCASE 3550 PRINT TAB(63);" Dato:";DAT$ 3560 ENDIF 3570 ENDPROC 3580 PROC UDSKRIV(PKODE1,SU4,LNR1) 3590 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$,ENTKO) 3600 LNR1=LNR1+E 3610 IF LNR1=17+6*(SKRIV)-6*(SKRIV1) THEN 3620 IF PKODE1=E THEN 3630 IF SKRIV1=B THEN PRINT CHR(10);CHR(10) 3640 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1) 3650 EXEC HUDSKRIV 3660 IF SKRIV1=E THEN 3665 PRINT " " 3670 EXEC LUDSKRIV(KONTO,DATO,KSIDENR) 3680 PRINT "" 3685 PRINT " " 3690 ELSE 3700 EXEC HSUDSKRIV 3710 ENDIF 3720 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1) 3730 LNR1=E 3740 ELSE 3750 EXEC INDPUT1(4,23,-2,0,LTX$(4)) 3760 CLEAR 3770 EXEC HSUDSKRIV 3780 LNR1=B 3790 ENDIF 3800 ENDIF 3810 ENDPROC 3820 PROC HENTPOST 3830 S=FTAB(FPIL3,G) 3840 GET K5$,S:FNR,FNAVN$ 3850 EXEC FEJL(W,G,K5$) 3860 GET K5$,S+E:FMKODE$,FMDEBET$,FMKREDIT$ 3870 EXEC FEJL(W,V,K5$) 3880 GET K5$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$ 3890 EXEC FEJL(W,4,K5$) 3900 ENDPROC 3910 PROC HENTDPOST 3920 S=DTAB(DPIL3,G) 3930 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 3940 EXEC FEJL(8,G,K6$) 3950 GET K6$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 3960 EXEC FEJL(8,V,K6$) 3970 GET K6$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 3980 EXEC FEJL(8,4,K6$) 3990 GET K6$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 4000 EXEC FEJL(8,5,K6$) 4010 ENDPROC 4020 PROC HENTKPOST 4030 S=KTAB(KPIL3,G) 4040 GET K7$,S:KRENR,KRENAVN$,KREGADE$ 4050 EXEC FEJL(4,E,K7$) 4060 GET K7$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 4070 EXEC FEJL(4,G,K7$) 4080 ENDPROC 4090 PROC NRTEST(KTN1) 4100 P=B;TEST2=B;KTAL=B;L=LEN(KTN1$) 4110 CASE L OF 4120 FOR I=E TO L 4130 P1=INT(ORD(KTN1$(I))-48) 4140 IF P1=>B AND P1<=W THEN 4150 P=P*10+P1 4160 ELSE 4170 TEST2=E 4180 ENDIF 4190 NEXT I 4200 KTAL=P DIV 10000;KTAL9=P DIV 1000 4210 IF KTAL9=KRTAL THEN KTAL=KTAL9 4220 WHEN B 4230 P=-E 4240 WHEN E 4250 CASE KTN1$ OF 4260 P=INT(ORD(KTN1$)-48) 4270 WHEN "j","J" 4280 P=-7 4290 WHEN "n","N" 4300 P=-8 4310 ENDCASE 4320 ENDCASE 4330 ENDPROC 4340 PROC HOVIND(V1,MPOSTANTAL1,R) 4350 OPEN V1$,R 4360 EXEC FEJL(13,E,V1$) 4370 FOR I=E TO MPOSTANTAL1 DIV 160 4380 J=(I-E)*4+E;J1=J+E;J2=J+G;J3=J+V 4390 GET V1$,I:R(J,E),R(J,G),R(J1,E),R(J1,G),R(J2,E),R(J2,G),R(J3,E),R(J3,G) 4400 EXEC FEJL(13,G,V1$) 4410 NEXT I 4420 CLOSE V1$ 4430 EXEC FEJL(13,V,V1$) 4440 ENDPROC 4450 PROC UNDIND(V2,U1,Z) 4460 OPEN V2$,R 4470 EXEC FEJL(14,E,V2$) 4480 GET V2$,U1:Z(E,E),Z(E,G),Z(G,E),Z(G,G),Z(V,E),Z(V,G),Z(4,E),Z(4,G) 4490 EXEC FEJL(14,G,V2$) 4500 CLOSE V2$ 4510 EXEC FEJL(14,V,V2$) 4520 ENDPROC 4530 PROC DATOUD(DA1,DA2) 4550 DA3=DA1;DA2$=" " 4560 FOR J=8 TO E STEP -E 4570 IF J MOD V=B THEN 4580 DA2$(J)="." 4590 ELSE 4600 DA2$(J)=CHR(DA3 MOD 10+48);DA3=DA3 DIV 10 4620 ENDIF 4630 NEXT J 4640 ENDPROC 4650 PROC MKONTUD(K61,MPOSTANTAL8) 4660 OUTPUT P 4670 P=E;T=E 4680 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 4690 T=E 4700 IF P<100000 THEN 4710 REPEAT 4720 KSIDENR=B;SUM$="0+" 4730 CASE KTAL1 OF 4740 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 4750 IF CEKS=B THEN EXEC HENTPOST 4760 WHEN DTAL 4770 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,P,DPIL3,K3$) 4780 IF CEKS=B THEN EXEC HENTDPOST 4790 WHEN KRTAL 4800 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,P,KPIL3,K4$) 4810 IF CEKS=B THEN EXEC HENTKPOST 4820 ENDCASE 4830 IF CEKS<>B THEN STOP 4840 EXEC HUDSKRIV 4850 IF DTAL=KTAL1 AND SKRIV1=E THEN 4855 PRINT " " 4860 EXEC LUDSKRIV(P,DATO,KSIDENR) 4870 PRINT " " 4875 PRINT " " 4880 ELSE 4890 KONT=P 4900 EXEC HSUDSKRIV 4910 ENDIF 4920 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 4930 CASE KTAL1 OF 4940 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE) 4950 WHEN DTAL 4960 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE) 4970 WHEN KRTAL 4980 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE) 4990 ENDCASE 5000 T=T6 5010 UNTIL P=100000 OR T=>MPOSTANTAL8 5020 ENDIF 5030 P=B 5040 ENDPROC 5050 K1$="P641220:SYSTEM1" 5060 REPEAT 5070 OPEN K1$,R 5080 IF STATUS(K1$)=B THEN EXIT 5090 CLEAR 5100 CURSOR 25,13 5110 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$ 5120 UNTIL STATUS(K1$)=B 5130 GET K1$,E:MFANTAL,MDANTAL,MKANTAL 5140 EXEC FEJL(W,E,K1$) 5150 GET K1$,V:DPOST,KPOST,MFPOST,MDPOST 5160 EXEC FEJL(W,G,K1$) 5170 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 5180 EXEC FEJL(W,V,K1$) 5190 GET K1$,5:MKRGR 5200 EXEC FEJL(W,4,K1$) 5210 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 5220 EXEC FEJL(W,5,K1$) 5230 GET K1$,W:KRTAL 5240 EXEC FEJL(W,6,K1$) 5250 GET K1$,10:N$ 5260 EXEC FEJL(W,7,K1$) 5270 GET K1$,11:K2$ 5280 EXEC FEJL(W,8,K1$) 5290 GET K1$,12:K3$ 5300 EXEC FEJL(W,W,K1$) 5310 GET K1$,13:K4$ 5320 EXEC FEJL(W,10,K1$) 5330 GET K1$,15:K5$ 5340 EXEC FEJL(W,11,K1$) 5350 GET K1$,16:K6$ 5360 EXEC FEJL(W,12,K1$) 5370 GET K1$,17:K7$ 5380 EXEC FEJL(W,13,K1$) 5390 GET K1$,25:K8$ 5400 EXEC FEJL(W,14,K1$) 5410 GET K1$,26:K9$ 5420 EXEC FEJL(W,15,K1$) 5430 GET K1$,27:K10$ 5440 EXEC FEJL(W,16,K1$) 5450 GET K1$,32:K11$ 5460 EXEC FEJL(W,17,K1$) 5470 GET K1$,33:K12$ 5480 EXEC FEJL(W,18,K1$) 5490 GET K1$,34:K13$ 5500 EXEC FEJL(W,19,K1$) 5510 GET K1$,36:K14$ 5520 EXEC FEJL(W,20,K1$) 5530 CLOSE K1$ 5540 EXEC FEJL(W,21,K1$) 5550 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 5560 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$ 5570 K13$=N$+K13$;K14$=N$+K14$ 5580 OPEN K14$,R 5590 EXEC FEJL(W,22,K14$) 5600 GET K14$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 5610 EXEC FEJL(W,23,K14$) 5620 FOR I=E TO V 5630 H=(I-E)*V+E 5640 GET K14$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G) 5650 EXEC FEJL(W,24,K14$) 5660 NEXT I 5670 FOR I=E TO 6 5680 H=(I-E)*V+E 5690 GET K14$,I+5:TFIL$(H),TFIL$(H+E),TFIL$(H+G) 5700 EXEC FEJL(W,25,K14$) 5710 NEXT I 5720 GET K14$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 5730 EXEC FEJL(W,26,K14$) 5740 GET K14$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 5750 EXEC FEJL(W,27,K14$) 5760 GET K14$,18:EGNAVN$ 5770 EXEC FEJL(W,50,K14$) 5780 GET K14$,19:EGGADE$ 5790 EXEC FEJL(W,51,K14$) 5800 GET K14$,20:DV$,EGBY$,EGPOSTNR$ 5810 EXEC FEJL(W,52,K14$) 5820 CLOSE K14$ 5830 EXEC FEJL(W,31,K14$) 5840 OPEN K2$,R 5850 EXEC FEJL(W,32,K2$) 5860 OPEN K3$,R 5870 EXEC FEJL(W,33,K3$) 5880 OPEN K4$,R 5890 EXEC FEJL(W,34,K4$) 5900 OPEN K5$,R 5910 EXEC FEJL(W,35,K5$) 5920 OPEN K6$,R 5930 EXEC FEJL(W,36,K6$) 5940 OPEN K7$,R 5950 EXEC FEJL(W,37,K7$) 5960 DIM DTAB1(MDANTAL DIV 4),FTAB1(MFANTAL DIV 4),KTAB1(MKANTAL DIV 4) 5970 DIM HFTAB(MFPOST DIV 40,G),FTAB(4,G),KTAB(4,G),HDTAB(MDPOST DIV 40,G) 5990 DIM HKRTAB(MKPOST DIV 40,G),UFTAB(4,G),UDTAB(4,G),UKRTAB(4,G),DTAB(4,G) 6000 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 6010 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 6020 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 6030 EXEC HOVIND(K11$,MFPOST,HFTAB) 6040 EXEC HOVIND(K12$,MDPOST,HDTAB) 6050 EXEC HOVIND(K13$,MKPOST,HKRTAB) 6060 LTX$(E)="Indtast kontonr. (0:færdig):" 6070 LTX$(G)="Rigtig konto (J/N)" 6080 LTX$(V)="Konto eksisterer ikke, tast RETURN" 6090 LTX$(4)="Tast RETURN når sideskift ønskes" 6100 LTX$(5)="Ønskes kontoudtog skrevet på formular (J/N):" 6110 LTX$(6)="Monter kontoudtogsformularer og tast RETURN" 6120 LTX$(7)="Ønskes yderligere testprint (J/N):" 6130 LTX$(8)="Monter papir til kontoudtog og tast RETURN" 6140 LTX$(W)="Ønskes udskrift på printer (J/N):" 6150 LTX$(10)="Ønskes flere udskrifter (J/N):" 6160 LTX$(11)="Monter papir til udskrift af finanskonti,tast RETURN" 6170 DATO=T1(7);MAFSLUT=T3(G) 6180 EXEC DATOUD(DATO,DAT$) 6190 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-" 6200 BLANK$=" " 6210 IF MAFSLUT=E THEN 6220 REPEAT 6230 CLEAR 6240 CURSOR E,E 6250 PRINT TAB(15);"Månedsafslutning Kontoudtog";TAB(63);" Dato:";DAT$ 6260 EXEC INDPUT1(4,8,-9,-6,LTX$(5)) 6270 KTAL1=DTAL 6280 IF P=-7 THEN 6290 EXEC INDPUT1(4,10,-2,0,LTX$(6)) 6300 SKRIV1=E 6310 REPEAT 6320 DEBNAVN$="XXXXXXXXXXXXXXXXXXXXXXXXX";DEBGADE$=DEBNAVN$;DEBPOSTNR=9999 6330 OUTPUT P 6340 DEBBY$=DEBNAVN$(E:15);DEBLK$="0" 6350 EXEC HUDSKRIV 6360 EXEC LUDSKRIV(99999,999999,9) 6370 PRINT CHR(10);CHR(10) 6380 PRINT TAB(11);"XX.XX.XX XXXXXX ";DEBNAVN$;" XXX.XXX,XX XXX.XXX,XX" 6400 FOR I=E TO 15 6410 PRINT " " 6420 NEXT I 6440 PRINT TAB(11);"XX.XX.XX XXXXXX ";DEBNAVN$;" XXX.XXX,XX XXX.XXX,XX" 6460 PRINT " " 6465 PRINT " " 6470 PRINT TAB(11);"XX.XXX.XXX,XX";TAB(52);"XXX.XXX,XX XXX.XXX,XX" 6480 PRINT " " 6485 PRINT " " 6490 PRINT TAB(11);"XX.XXX.XXX,XX XX.XXX.XXX,XX XX.XXX.XXX,XX "; 6500 PRINT "XX.XXX.XXX,XX" 6510 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 6520 OUTPUT T 6530 EXEC INDPUT1(4,12,-9,-6,LTX$(7)) 6540 UNTIL P=-8 6550 ELSE 6560 EXEC INDPUT1(4,10,-2,0,LTX$(8)) 6570 SKRIV1=B 6580 ENDIF 6590 SKRIV=E;LINIE=B;T=E 6610 EXEC MKONTUD(K9$,MDPOST) 6620 KTAL1=DTAL-E 6630 IF SKRIV1=E THEN 6640 SKRIV1=B 6650 OUTPUT T 6660 CLEAR 6670 EXEC INDPUT1(20,13,-2,0,LTX$(11)) 6680 ENDIF 6690 EXEC MKONTUD(K8$,MFPOST) 6700 KTAL1=KRTAL 6705 OUTPUT T 6710 EXEC MKONTUD(K10$,MKPOST) 6720 CLEAR 6730 OUTPUT T 6740 EXEC INDPUT1(20,13,-9,-6,LTX$(10)) 6750 UNTIL P=-8 6760 ELSE 6770 EXEC STARTBIL 6780 REPEAT 6790 IF KONT=B THEN EXIT 6800 EXEC INDPUT1(4,14,-9,-6,LTX$(9)) 6810 KSIDENR=B;SKRIV1=B 6820 IF P=-7 THEN 6830 SKRIV=E 6840 OUTPUT P 6850 EXEC HUDSKRIV 6870 ELSE 6880 SKRIV=B 6890 OUTPUT T 6895 ENDIF 6900 EXEC HSUDSKRIV 6920 CASE KTAL1 OF 6930 EXEC SØG(MFPOST,HFTAB,KONT,UFTAB,K11$) 6940 WHEN DTAL 6950 EXEC SØG(MDPOST,HDTAB,KONT,UDTAB,K12$) 6960 WHEN KRTAL 6970 EXEC SØG(MKPOST,HKRTAB,KONT,UKRTAB,K13$) 6980 ENDCASE 6990 IF T>B THEN 7000 CASE KTAL1 OF 7010 EXEC POSTER(K8$,KONT,T,MFPOST,SKRIV,SUM$) 7020 WHEN DTAL 7030 EXEC POSTER(K9$,KONT,T,MDPOST,SKRIV,SUM$) 7040 WHEN KRTAL 7050 EXEC POSTER(K10$,KONT,T,MKPOST,SKRIV,SUM$) 7060 ENDCASE 7070 ELSE 7080 LINIE=B 7090 ENDIF 7100 IF T=B THEN SUM$="0+" 7110 IF SKRIV=B THEN 7120 EXEC TUD(SUM$,UBELØB$,B,B) 7130 PRINT TAB(35);STREG$(E:43) 7140 PRINT TAB(35);"Ny saldo";TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$ 7150 ELSE 7160 CASE KTAL1 OF 7170 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE) 7180 WHEN DTAL 7190 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE) 7200 WHEN KRTAL 7210 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE) 7220 ENDCASE 7230 ENDIF 7240 OUTPUT T 7250 EXEC INDPUT1(4,23,-9,-6,LTX$(10)) 7260 IF P=-7 THEN 7270 EXEC STARTBIL 7280 ELSE 7290 KONT=B 7300 ENDIF 7310 UNTIL KONT=B 7320 ENDIF 7330 OUTPUT T 7340 CLEAR 7350 IF MAFSLUT=E THEN CHAIN "P641210:ENTKSP1" 7360 CHAIN "P641210:OPSTART"
0x0000…005e (0,) 8db5 0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(G),FNAVN$(25)
0x0000…005e LineComalBin {
0x0000…005e ptr = 0x8db5 // 0x0 @0x0
0x0000…005e lno = 0x0064 // 0x2 @0x2
0x0000…005e at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…005e at0005 = ╱4b╱K╱ // 0x5 @0x5
0x0000…005e at0006 = ╱31╱1╱ // 0x6 @0x6
0x0000…005e at0007 = ╱ef╱$╱ // 0x7 @0x7
0x0000…005e at0008 = ╱ed╱(╱ // 0x8 @0x8
0x0000…005e at0009 = ╱31╱1╱ // 0x9 @0x9
0x0000…005e at000a = ╱37╱7╱ // 0xa @0xa
0x0000…005e at000b = ╱fe00008805╱ // 0xb @0xb
0x0000…005e at0010 = ╱ee╱)╱ // 0x10 @0x10
0x0000…005e at0011 = ╱ec╱,╱ // 0x11 @0x11
0x0000…005e at0012 = ╱4b╱K╱ // 0x12 @0x12
0x0000…005e at0013 = ╱32╱2╱ // 0x13 @0x13
0x0000…005e at0014 = ╱ef╱$╱ // 0x14 @0x14
0x0000…005e at0015 = ╱ed╱(╱ // 0x15 @0x15
0x0000…005e at0016 = ╱31╱1╱ // 0x16 @0x16
0x0000…005e at0017 = ╱37╱7╱ // 0x17 @0x17
0x0000…005e at0018 = ╱fe00008805╱ // 0x18 @0x18
0x0000…005e at001d = ╱ee╱)╱ // 0x1d @0x1d
0x0000…005e at001e = ╱ec╱,╱ // 0x1e @0x1e
0x0000…005e at001f = ╱44╱D╱ // 0x1f @0x1f
0x0000…005e at0020 = ╱45╱E╱ // 0x20 @0x20
0x0000…005e at0021 = ╱42╱B╱ // 0x21 @0x21
0x0000…005e at0022 = ╱4e╱N╱ // 0x22 @0x22
0x0000…005e at0023 = ╱41╱A╱ // 0x23 @0x23
0x0000…005e at0024 = ╱56╱V╱ // 0x24 @0x24
0x0000…005e at0025 = ╱4e╱N╱ // 0x25 @0x25
0x0000…005e at0026 = ╱ef╱$╱ // 0x26 @0x26
0x0000…005e at0027 = ╱ed╱(╱ // 0x27 @0x27
0x0000…005e at0028 = ╱32╱2╱ // 0x28 @0x28
0x0000…005e at0029 = ╱35╱5╱ // 0x29 @0x29
0x0000…005e at002a = ╱fe0000c805╱ // 0x2a @0x2a
0x0000…005e at002f = ╱ee╱)╱ // 0x2f @0x2f
0x0000…005e at0030 = ╱ec╱,╱ // 0x30 @0x30
0x0000…005e at0031 = ╱44╱D╱ // 0x31 @0x31
0x0000…005e at0032 = ╱53╱S╱ // 0x32 @0x32
0x0000…005e at0033 = ╱41╱A╱ // 0x33 @0x33
0x0000…005e at0034 = ╱4c╱L╱ // 0x34 @0x34
0x0000…005e at0035 = ╱44╱D╱ // 0x35 @0x35
0x0000…005e at0036 = ╱4f╱O╱ // 0x36 @0x36
0x0000…005e at0037 = ╱31╱1╱ // 0x37 @0x37
0x0000…005e at0038 = ╱ef╱$╱ // 0x38 @0x38
0x0000…005e at0039 = ╱ed╱(╱ // 0x39 @0x39
0x0000…005e at003a = ╱31╱1╱ // 0x3a @0x3a
0x0000…005e at003b = ╱32╱2╱ // 0x3b @0x3b
0x0000…005e at003c = ╱fe0000c004╱ // 0x3c @0x3c
0x0000…005e at0041 = ╱ee╱)╱ // 0x41 @0x41
0x0000…005e at0042 = ╱ec╱,╱ // 0x42 @0x42
0x0000…005e at0043 = ╱44╱D╱ // 0x43 @0x43
0x0000…005e at0044 = ╱45╱E╱ // 0x44 @0x44
0x0000…005e at0045 = ╱42╱B╱ // 0x45 @0x45
0x0000…005e at0046 = ╱4b╱K╱ // 0x46 @0x46
0x0000…005e at0047 = ╱47╱G╱ // 0x47 @0x47
0x0000…005e at0048 = ╱52╱R╱ // 0x48 @0x48
0x0000…005e at0049 = ╱ef╱$╱ // 0x49 @0x49
0x0000…005e at004a = ╱ed╱(╱ // 0x4a @0x4a
0x0000…005e at004b = ╱47╱G╱ // 0x4b @0x4b
0x0000…005e at004c = ╱ee╱)╱ // 0x4c @0x4c
0x0000…005e at004d = ╱ec╱,╱ // 0x4d @0x4d
0x0000…005e at004e = ╱46╱F╱ // 0x4e @0x4e
0x0000…005e at004f = ╱4e╱N╱ // 0x4f @0x4f
0x0000…005e at0050 = ╱41╱A╱ // 0x50 @0x50
0x0000…005e at0051 = ╱56╱V╱ // 0x51 @0x51
0x0000…005e at0052 = ╱4e╱N╱ // 0x52 @0x52
0x0000…005e at0053 = ╱ef╱$╱ // 0x53 @0x53
0x0000…005e at0054 = ╱ed╱(╱ // 0x54 @0x54
0x0000…005e at0055 = ╱32╱2╱ // 0x55 @0x55
0x0000…005e at0056 = ╱35╱5╱ // 0x56 @0x56
0x0000…005e at0057 = ╱fe0000c805╱ // 0x57 @0x57
0x0000…005e at005c = ╱ee╱)╱ // 0x5c @0x5c
0x0000…005e at005d = EOL // 0x5d @0x5d
0x0000…005e }
0x005e…00c0 8e17 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(G),DEBGADE$(25),A$(6)
0x005e…00c0 LineComalBin {
0x005e…00c0 ptr = 0x8e17 // 0x5e @0x0
0x005e…00c0 lno = 0x006e // 0x60 @0x2
0x005e…00c0 at0004 = ╱87╱ DIM ╱ // 0x62 @0x4
0x005e…00c0 at0005 = ╱44╱D╱ // 0x63 @0x5
0x005e…00c0 at0006 = ╱53╱S╱ // 0x64 @0x6
0x005e…00c0 at0007 = ╱41╱A╱ // 0x65 @0x7
0x005e…00c0 at0008 = ╱4c╱L╱ // 0x66 @0x8
0x005e…00c0 at0009 = ╱44╱D╱ // 0x67 @0x9
0x005e…00c0 at000a = ╱4f╱O╱ // 0x68 @0xa
0x005e…00c0 at000b = ╱32╱2╱ // 0x69 @0xb
0x005e…00c0 at000c = ╱ef╱$╱ // 0x6a @0xc
0x005e…00c0 at000d = ╱ed╱(╱ // 0x6b @0xd
0x005e…00c0 at000e = ╱31╱1╱ // 0x6c @0xe
0x005e…00c0 at000f = ╱32╱2╱ // 0x6d @0xf
0x005e…00c0 at0010 = ╱fe0000c004╱ // 0x6e @0x10
0x005e…00c0 at0015 = ╱ee╱)╱ // 0x73 @0x15
0x005e…00c0 at0016 = ╱ec╱,╱ // 0x74 @0x16
0x005e…00c0 at0017 = ╱44╱D╱ // 0x75 @0x17
0x005e…00c0 at0018 = ╱53╱S╱ // 0x76 @0x18
0x005e…00c0 at0019 = ╱41╱A╱ // 0x77 @0x19
0x005e…00c0 at001a = ╱4c╱L╱ // 0x78 @0x1a
0x005e…00c0 at001b = ╱44╱D╱ // 0x79 @0x1b
0x005e…00c0 at001c = ╱4f╱O╱ // 0x7a @0x1c
0x005e…00c0 at001d = ╱33╱3╱ // 0x7b @0x1d
0x005e…00c0 at001e = ╱ef╱$╱ // 0x7c @0x1e
0x005e…00c0 at001f = ╱ed╱(╱ // 0x7d @0x1f
0x005e…00c0 at0020 = ╱31╱1╱ // 0x7e @0x20
0x005e…00c0 at0021 = ╱32╱2╱ // 0x7f @0x21
0x005e…00c0 at0022 = ╱fe0000c004╱ // 0x80 @0x22
0x005e…00c0 at0027 = ╱ee╱)╱ // 0x85 @0x27
0x005e…00c0 at0028 = ╱ec╱,╱ // 0x86 @0x28
0x005e…00c0 at0029 = ╱44╱D╱ // 0x87 @0x29
0x005e…00c0 at002a = ╱53╱S╱ // 0x88 @0x2a
0x005e…00c0 at002b = ╱41╱A╱ // 0x89 @0x2b
0x005e…00c0 at002c = ╱4c╱L╱ // 0x8a @0x2c
0x005e…00c0 at002d = ╱44╱D╱ // 0x8b @0x2d
0x005e…00c0 at002e = ╱4f╱O╱ // 0x8c @0x2e
0x005e…00c0 at002f = ╱34╱4╱ // 0x8d @0x2f
0x005e…00c0 at0030 = ╱ef╱$╱ // 0x8e @0x30
0x005e…00c0 at0031 = ╱ed╱(╱ // 0x8f @0x31
0x005e…00c0 at0032 = ╱31╱1╱ // 0x90 @0x32
0x005e…00c0 at0033 = ╱32╱2╱ // 0x91 @0x33
0x005e…00c0 at0034 = ╱fe0000c004╱ // 0x92 @0x34
0x005e…00c0 at0039 = ╱ee╱)╱ // 0x97 @0x39
0x005e…00c0 at003a = ╱ec╱,╱ // 0x98 @0x3a
0x005e…00c0 at003b = ╱44╱D╱ // 0x99 @0x3b
0x005e…00c0 at003c = ╱45╱E╱ // 0x9a @0x3c
0x005e…00c0 at003d = ╱42╱B╱ // 0x9b @0x3d
0x005e…00c0 at003e = ╱4c╱L╱ // 0x9c @0x3e
0x005e…00c0 at003f = ╱4b╱K╱ // 0x9d @0x3f
0x005e…00c0 at0040 = ╱ef╱$╱ // 0x9e @0x40
0x005e…00c0 at0041 = ╱ed╱(╱ // 0x9f @0x41
0x005e…00c0 at0042 = ╱47╱G╱ // 0xa0 @0x42
0x005e…00c0 at0043 = ╱ee╱)╱ // 0xa1 @0x43
0x005e…00c0 at0044 = ╱ec╱,╱ // 0xa2 @0x44
0x005e…00c0 at0045 = ╱44╱D╱ // 0xa3 @0x45
0x005e…00c0 at0046 = ╱45╱E╱ // 0xa4 @0x46
0x005e…00c0 at0047 = ╱42╱B╱ // 0xa5 @0x47
0x005e…00c0 at0048 = ╱47╱G╱ // 0xa6 @0x48
0x005e…00c0 at0049 = ╱41╱A╱ // 0xa7 @0x49
0x005e…00c0 at004a = ╱44╱D╱ // 0xa8 @0x4a
0x005e…00c0 at004b = ╱45╱E╱ // 0xa9 @0x4b
0x005e…00c0 at004c = ╱ef╱$╱ // 0xaa @0x4c
0x005e…00c0 at004d = ╱ed╱(╱ // 0xab @0x4d
0x005e…00c0 at004e = ╱32╱2╱ // 0xac @0x4e
0x005e…00c0 at004f = ╱35╱5╱ // 0xad @0x4f
0x005e…00c0 at0050 = ╱fe0000c805╱ // 0xae @0x50
0x005e…00c0 at0055 = ╱ee╱)╱ // 0xb3 @0x55
0x005e…00c0 at0056 = ╱ec╱,╱ // 0xb4 @0x56
0x005e…00c0 at0057 = ╱41╱A╱ // 0xb5 @0x57
0x005e…00c0 at0058 = ╱ef╱$╱ // 0xb6 @0x58
0x005e…00c0 at0059 = ╱ed╱(╱ // 0xb7 @0x59
0x005e…00c0 at005a = ╱36╱6╱ // 0xb8 @0x5a
0x005e…00c0 at005b = ╱fe0000c003╱ // 0xb9 @0x5b
0x005e…00c0 at0060 = ╱ee╱)╱ // 0xbe @0x60
0x005e…00c0 at0061 = EOL // 0xbf @0x61
0x005e…00c0 }
0x00c0…0127 8e7e 0120 DIM BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),K3$(17),K4$(17)
0x00c0…0127 LineComalBin {
0x00c0…0127 ptr = 0x8e7e // 0xc0 @0x0
0x00c0…0127 lno = 0x0078 // 0xc2 @0x2
0x00c0…0127 at0004 = ╱87╱ DIM ╱ // 0xc4 @0x4
0x00c0…0127 at0005 = ╱42╱B╱ // 0xc5 @0x5
0x00c0…0127 at0006 = ╱4c╱L╱ // 0xc6 @0x6
0x00c0…0127 at0007 = ╱41╱A╱ // 0xc7 @0x7
0x00c0…0127 at0008 = ╱4e╱N╱ // 0xc8 @0x8
0x00c0…0127 at0009 = ╱4b╱K╱ // 0xc9 @0x9
0x00c0…0127 at000a = ╱ef╱$╱ // 0xca @0xa
0x00c0…0127 at000b = ╱ed╱(╱ // 0xcb @0xb
0x00c0…0127 at000c = ╱37╱7╱ // 0xcc @0xc
0x00c0…0127 at000d = ╱37╱7╱ // 0xcd @0xd
0x00c0…0127 at000e = ╱fe00009a07╱ // 0xce @0xe
0x00c0…0127 at0013 = ╱ee╱)╱ // 0xd3 @0x13
0x00c0…0127 at0014 = ╱ec╱,╱ // 0xd4 @0x14
0x00c0…0127 at0015 = ╱54╱T╱ // 0xd5 @0x15
0x00c0…0127 at0016 = ╱41╱A╱ // 0xd6 @0x16
0x00c0…0127 at0017 = ╱4c╱L╱ // 0xd7 @0x17
0x00c0…0127 at0018 = ╱34╱4╱ // 0xd8 @0x18
0x00c0…0127 at0019 = ╱ef╱$╱ // 0xd9 @0x19
0x00c0…0127 at001a = ╱ed╱(╱ // 0xda @0x1a
0x00c0…0127 at001b = ╱31╱1╱ // 0xdb @0x1b
0x00c0…0127 at001c = ╱34╱4╱ // 0xdc @0x1c
0x00c0…0127 at001d = ╱fe0000e004╱ // 0xdd @0x1d
0x00c0…0127 at0022 = ╱ee╱)╱ // 0xe2 @0x22
0x00c0…0127 at0023 = ╱ec╱,╱ // 0xe3 @0x23
0x00c0…0127 at0024 = ╱54╱T╱ // 0xe4 @0x24
0x00c0…0127 at0025 = ╱41╱A╱ // 0xe5 @0x25
0x00c0…0127 at0026 = ╱48╱H╱ // 0xe6 @0x26
0x00c0…0127 at0027 = ╱ef╱$╱ // 0xe7 @0x27
0x00c0…0127 at0028 = ╱ed╱(╱ // 0xe8 @0x28
0x00c0…0127 at0029 = ╱31╱1╱ // 0xe9 @0x29
0x00c0…0127 at002a = ╱32╱2╱ // 0xea @0x2a
0x00c0…0127 at002b = ╱fe0000c004╱ // 0xeb @0x2b
0x00c0…0127 at0030 = ╱ee╱)╱ // 0xf0 @0x30
0x00c0…0127 at0031 = ╱ec╱,╱ // 0xf1 @0x31
0x00c0…0127 at0032 = ╱44╱D╱ // 0xf2 @0x32
0x00c0…0127 at0033 = ╱45╱E╱ // 0xf3 @0x33
0x00c0…0127 at0034 = ╱42╱B╱ // 0xf4 @0x34
0x00c0…0127 at0035 = ╱54╱T╱ // 0xf5 @0x35
0x00c0…0127 at0036 = ╱4c╱L╱ // 0xf6 @0x36
0x00c0…0127 at0037 = ╱46╱F╱ // 0xf7 @0x37
0x00c0…0127 at0038 = ╱ef╱$╱ // 0xf8 @0x38
0x00c0…0127 at0039 = ╱ed╱(╱ // 0xf9 @0x39
0x00c0…0127 at003a = ╱57╱W╱ // 0xfa @0x3a
0x00c0…0127 at003b = ╱ee╱)╱ // 0xfb @0x3b
0x00c0…0127 at003c = ╱ec╱,╱ // 0xfc @0x3c
0x00c0…0127 at003d = ╱44╱D╱ // 0xfd @0x3d
0x00c0…0127 at003e = ╱45╱E╱ // 0xfe @0x3e
0x00c0…0127 at003f = ╱42╱B╱ // 0xff @0x3f
0x00c0…0127 at0040 = ╱42╱B╱ // 0x100 @0x40
0x00c0…0127 at0041 = ╱59╱Y╱ // 0x101 @0x41
0x00c0…0127 at0042 = ╱ef╱$╱ // 0x102 @0x42
0x00c0…0127 at0043 = ╱ed╱(╱ // 0x103 @0x43
0x00c0…0127 at0044 = ╱32╱2╱ // 0x104 @0x44
0x00c0…0127 at0045 = ╱30╱0╱ // 0x105 @0x45
0x00c0…0127 at0046 = ╱fe0000a005╱ // 0x106 @0x46
0x00c0…0127 at004b = ╱ee╱)╱ // 0x10b @0x4b
0x00c0…0127 at004c = ╱ec╱,╱ // 0x10c @0x4c
0x00c0…0127 at004d = ╱4b╱K╱ // 0x10d @0x4d
0x00c0…0127 at004e = ╱33╱3╱ // 0x10e @0x4e
0x00c0…0127 at004f = ╱ef╱$╱ // 0x10f @0x4f
0x00c0…0127 at0050 = ╱ed╱(╱ // 0x110 @0x50
0x00c0…0127 at0051 = ╱31╱1╱ // 0x111 @0x51
0x00c0…0127 at0052 = ╱37╱7╱ // 0x112 @0x52
0x00c0…0127 at0053 = ╱fe00008805╱ // 0x113 @0x53
0x00c0…0127 at0058 = ╱ee╱)╱ // 0x118 @0x58
0x00c0…0127 at0059 = ╱ec╱,╱ // 0x119 @0x59
0x00c0…0127 at005a = ╱4b╱K╱ // 0x11a @0x5a
0x00c0…0127 at005b = ╱34╱4╱ // 0x11b @0x5b
0x00c0…0127 at005c = ╱ef╱$╱ // 0x11c @0x5c
0x00c0…0127 at005d = ╱ed╱(╱ // 0x11d @0x5d
0x00c0…0127 at005e = ╱31╱1╱ // 0x11e @0x5e
0x00c0…0127 at005f = ╱37╱7╱ // 0x11f @0x5f
0x00c0…0127 at0060 = ╱fe00008805╱ // 0x120 @0x60
0x00c0…0127 at0065 = ╱ee╱)╱ // 0x125 @0x65
0x00c0…0127 at0066 = EOL // 0x126 @0x66
0x00c0…0127 }
0x0127…0194 8eeb 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),OP2$(12),BELØB$(12),KTNR$(6),K5$(17)
0x0127…0194 LineComalBin {
0x0127…0194 ptr = 0x8eeb // 0x127 @0x0
0x0127…0194 lno = 0x0082 // 0x129 @0x2
0x0127…0194 at0004 = ╱87╱ DIM ╱ // 0x12b @0x4
0x0127…0194 at0005 = ╱52╱R╱ // 0x12c @0x5
0x0127…0194 at0006 = ╱45╱E╱ // 0x12d @0x6
0x0127…0194 at0007 = ╱53╱S╱ // 0x12e @0x7
0x0127…0194 at0008 = ╱ef╱$╱ // 0x12f @0x8
0x0127…0194 at0009 = ╱ed╱(╱ // 0x130 @0x9
0x0127…0194 at000a = ╱31╱1╱ // 0x131 @0xa
0x0127…0194 at000b = ╱34╱4╱ // 0x132 @0xb
0x0127…0194 at000c = ╱fe0000e004╱ // 0x133 @0xc
0x0127…0194 at0011 = ╱ee╱)╱ // 0x138 @0x11
0x0127…0194 at0012 = ╱ec╱,╱ // 0x139 @0x12
0x0127…0194 at0013 = ╱5d╱Å╱ // 0x13a @0x13
0x0127…0194 at0014 = ╱52╱R╱ // 0x13b @0x14
0x0127…0194 at0015 = ╱4b╱K╱ // 0x13c @0x15
0x0127…0194 at0016 = ╱5c╱Ø╱ // 0x13d @0x16
0x0127…0194 at0017 = ╱42╱B╱ // 0x13e @0x17
0x0127…0194 at0018 = ╱ef╱$╱ // 0x13f @0x18
0x0127…0194 at0019 = ╱ed╱(╱ // 0x140 @0x19
0x0127…0194 at001a = ╱31╱1╱ // 0x141 @0x1a
0x0127…0194 at001b = ╱32╱2╱ // 0x142 @0x1b
0x0127…0194 at001c = ╱fe0000c004╱ // 0x143 @0x1c
0x0127…0194 at0021 = ╱ee╱)╱ // 0x148 @0x21
0x0127…0194 at0022 = ╱ec╱,╱ // 0x149 @0x22
0x0127…0194 at0023 = ╱4d╱M╱ // 0x14a @0x23
0x0127…0194 at0024 = ╱44╱D╱ // 0x14b @0x24
0x0127…0194 at0025 = ╱4e╱N╱ // 0x14c @0x25
0x0127…0194 at0026 = ╱4b╱K╱ // 0x14d @0x26
0x0127…0194 at0027 = ╱5c╱Ø╱ // 0x14e @0x27
0x0127…0194 at0028 = ╱42╱B╱ // 0x14f @0x28
0x0127…0194 at0029 = ╱ef╱$╱ // 0x150 @0x29
0x0127…0194 at002a = ╱ed╱(╱ // 0x151 @0x2a
0x0127…0194 at002b = ╱31╱1╱ // 0x152 @0x2b
0x0127…0194 at002c = ╱32╱2╱ // 0x153 @0x2c
0x0127…0194 at002d = ╱fe0000c004╱ // 0x154 @0x2d
0x0127…0194 at0032 = ╱ee╱)╱ // 0x159 @0x32
0x0127…0194 at0033 = ╱ec╱,╱ // 0x15a @0x33
0x0127…0194 at0034 = ╱4f╱O╱ // 0x15b @0x34
0x0127…0194 at0035 = ╱50╱P╱ // 0x15c @0x35
0x0127…0194 at0036 = ╱32╱2╱ // 0x15d @0x36
0x0127…0194 at0037 = ╱ef╱$╱ // 0x15e @0x37
0x0127…0194 at0038 = ╱ed╱(╱ // 0x15f @0x38
0x0127…0194 at0039 = ╱31╱1╱ // 0x160 @0x39
0x0127…0194 at003a = ╱32╱2╱ // 0x161 @0x3a
0x0127…0194 at003b = ╱fe0000c004╱ // 0x162 @0x3b
0x0127…0194 at0040 = ╱ee╱)╱ // 0x167 @0x40
0x0127…0194 at0041 = ╱ec╱,╱ // 0x168 @0x41
0x0127…0194 at0042 = ╱42╱B╱ // 0x169 @0x42
0x0127…0194 at0043 = ╱45╱E╱ // 0x16a @0x43
0x0127…0194 at0044 = ╱4c╱L╱ // 0x16b @0x44
0x0127…0194 at0045 = ╱5c╱Ø╱ // 0x16c @0x45
0x0127…0194 at0046 = ╱42╱B╱ // 0x16d @0x46
0x0127…0194 at0047 = ╱ef╱$╱ // 0x16e @0x47
0x0127…0194 at0048 = ╱ed╱(╱ // 0x16f @0x48
0x0127…0194 at0049 = ╱31╱1╱ // 0x170 @0x49
0x0127…0194 at004a = ╱32╱2╱ // 0x171 @0x4a
0x0127…0194 at004b = ╱fe0000c004╱ // 0x172 @0x4b
0x0127…0194 at0050 = ╱ee╱)╱ // 0x177 @0x50
0x0127…0194 at0051 = ╱ec╱,╱ // 0x178 @0x51
0x0127…0194 at0052 = ╱4b╱K╱ // 0x179 @0x52
0x0127…0194 at0053 = ╱54╱T╱ // 0x17a @0x53
0x0127…0194 at0054 = ╱4e╱N╱ // 0x17b @0x54
0x0127…0194 at0055 = ╱52╱R╱ // 0x17c @0x55
0x0127…0194 at0056 = ╱ef╱$╱ // 0x17d @0x56
0x0127…0194 at0057 = ╱ed╱(╱ // 0x17e @0x57
0x0127…0194 at0058 = ╱36╱6╱ // 0x17f @0x58
0x0127…0194 at0059 = ╱fe0000c003╱ // 0x180 @0x59
0x0127…0194 at005e = ╱ee╱)╱ // 0x185 @0x5e
0x0127…0194 at005f = ╱ec╱,╱ // 0x186 @0x5f
0x0127…0194 at0060 = ╱4b╱K╱ // 0x187 @0x60
0x0127…0194 at0061 = ╱35╱5╱ // 0x188 @0x61
0x0127…0194 at0062 = ╱ef╱$╱ // 0x189 @0x62
0x0127…0194 at0063 = ╱ed╱(╱ // 0x18a @0x63
0x0127…0194 at0064 = ╱31╱1╱ // 0x18b @0x64
0x0127…0194 at0065 = ╱37╱7╱ // 0x18c @0x65
0x0127…0194 at0066 = ╱fe00008805╱ // 0x18d @0x66
0x0127…0194 at006b = ╱ee╱)╱ // 0x192 @0x6b
0x0127…0194 at006c = EOL // 0x193 @0x6c
0x0127…0194 }
0x0194…01f4 8f4b 0140 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12)
0x0194…01f4 LineComalBin {
0x0194…01f4 ptr = 0x8f4b // 0x194 @0x0
0x0194…01f4 lno = 0x008c // 0x196 @0x2
0x0194…01f4 at0004 = ╱87╱ DIM ╱ // 0x198 @0x4
0x0194…01f4 at0005 = ╱46╱F╱ // 0x199 @0x5
0x0194…01f4 at0006 = ╱4d╱M╱ // 0x19a @0x6
0x0194…01f4 at0007 = ╱44╱D╱ // 0x19b @0x7
0x0194…01f4 at0008 = ╱45╱E╱ // 0x19c @0x8
0x0194…01f4 at0009 = ╱42╱B╱ // 0x19d @0x9
0x0194…01f4 at000a = ╱45╱E╱ // 0x19e @0xa
0x0194…01f4 at000b = ╱54╱T╱ // 0x19f @0xb
0x0194…01f4 at000c = ╱ef╱$╱ // 0x1a0 @0xc
0x0194…01f4 at000d = ╱ed╱(╱ // 0x1a1 @0xd
0x0194…01f4 at000e = ╱31╱1╱ // 0x1a2 @0xe
0x0194…01f4 at000f = ╱32╱2╱ // 0x1a3 @0xf
0x0194…01f4 at0010 = ╱fe0000c004╱ // 0x1a4 @0x10
0x0194…01f4 at0015 = ╱ee╱)╱ // 0x1a9 @0x15
0x0194…01f4 at0016 = ╱ec╱,╱ // 0x1aa @0x16
0x0194…01f4 at0017 = ╱46╱F╱ // 0x1ab @0x17
0x0194…01f4 at0018 = ╱4d╱M╱ // 0x1ac @0x18
0x0194…01f4 at0019 = ╱4b╱K╱ // 0x1ad @0x19
0x0194…01f4 at001a = ╱52╱R╱ // 0x1ae @0x1a
0x0194…01f4 at001b = ╱45╱E╱ // 0x1af @0x1b
0x0194…01f4 at001c = ╱44╱D╱ // 0x1b0 @0x1c
0x0194…01f4 at001d = ╱49╱I╱ // 0x1b1 @0x1d
0x0194…01f4 at001e = ╱54╱T╱ // 0x1b2 @0x1e
0x0194…01f4 at001f = ╱ef╱$╱ // 0x1b3 @0x1f
0x0194…01f4 at0020 = ╱ed╱(╱ // 0x1b4 @0x20
0x0194…01f4 at0021 = ╱31╱1╱ // 0x1b5 @0x21
0x0194…01f4 at0022 = ╱32╱2╱ // 0x1b6 @0x22
0x0194…01f4 at0023 = ╱fe0000c004╱ // 0x1b7 @0x23
0x0194…01f4 at0028 = ╱ee╱)╱ // 0x1bc @0x28
0x0194…01f4 at0029 = ╱ec╱,╱ // 0x1bd @0x29
0x0194…01f4 at002a = ╱46╱F╱ // 0x1be @0x2a
0x0194…01f4 at002b = ╱5d╱Å╱ // 0x1bf @0x2b
0x0194…01f4 at002c = ╱44╱D╱ // 0x1c0 @0x2c
0x0194…01f4 at002d = ╱45╱E╱ // 0x1c1 @0x2d
0x0194…01f4 at002e = ╱42╱B╱ // 0x1c2 @0x2e
0x0194…01f4 at002f = ╱45╱E╱ // 0x1c3 @0x2f
0x0194…01f4 at0030 = ╱54╱T╱ // 0x1c4 @0x30
0x0194…01f4 at0031 = ╱ef╱$╱ // 0x1c5 @0x31
0x0194…01f4 at0032 = ╱ed╱(╱ // 0x1c6 @0x32
0x0194…01f4 at0033 = ╱31╱1╱ // 0x1c7 @0x33
0x0194…01f4 at0034 = ╱32╱2╱ // 0x1c8 @0x34
0x0194…01f4 at0035 = ╱fe0000c004╱ // 0x1c9 @0x35
0x0194…01f4 at003a = ╱ee╱)╱ // 0x1ce @0x3a
0x0194…01f4 at003b = ╱ec╱,╱ // 0x1cf @0x3b
0x0194…01f4 at003c = ╱46╱F╱ // 0x1d0 @0x3c
0x0194…01f4 at003d = ╱5d╱Å╱ // 0x1d1 @0x3d
0x0194…01f4 at003e = ╱4b╱K╱ // 0x1d2 @0x3e
0x0194…01f4 at003f = ╱52╱R╱ // 0x1d3 @0x3f
0x0194…01f4 at0040 = ╱45╱E╱ // 0x1d4 @0x40
0x0194…01f4 at0041 = ╱44╱D╱ // 0x1d5 @0x41
0x0194…01f4 at0042 = ╱49╱I╱ // 0x1d6 @0x42
0x0194…01f4 at0043 = ╱54╱T╱ // 0x1d7 @0x43
0x0194…01f4 at0044 = ╱ef╱$╱ // 0x1d8 @0x44
0x0194…01f4 at0045 = ╱ed╱(╱ // 0x1d9 @0x45
0x0194…01f4 at0046 = ╱31╱1╱ // 0x1da @0x46
0x0194…01f4 at0047 = ╱32╱2╱ // 0x1db @0x47
0x0194…01f4 at0048 = ╱fe0000c004╱ // 0x1dc @0x48
0x0194…01f4 at004d = ╱ee╱)╱ // 0x1e1 @0x4d
0x0194…01f4 at004e = ╱ec╱,╱ // 0x1e2 @0x4e
0x0194…01f4 at004f = ╱46╱F╱ // 0x1e3 @0x4f
0x0194…01f4 at0050 = ╱53╱S╱ // 0x1e4 @0x50
0x0194…01f4 at0051 = ╱41╱A╱ // 0x1e5 @0x51
0x0194…01f4 at0052 = ╱4c╱L╱ // 0x1e6 @0x52
0x0194…01f4 at0053 = ╱44╱D╱ // 0x1e7 @0x53
0x0194…01f4 at0054 = ╱4f╱O╱ // 0x1e8 @0x54
0x0194…01f4 at0055 = ╱ef╱$╱ // 0x1e9 @0x55
0x0194…01f4 at0056 = ╱ed╱(╱ // 0x1ea @0x56
0x0194…01f4 at0057 = ╱31╱1╱ // 0x1eb @0x57
0x0194…01f4 at0058 = ╱32╱2╱ // 0x1ec @0x58
0x0194…01f4 at0059 = ╱fe0000c004╱ // 0x1ed @0x59
0x0194…01f4 at005e = ╱ee╱)╱ // 0x1f2 @0x5e
0x0194…01f4 at005f = EOL // 0x1f3 @0x5f
0x0194…01f4 }
0x01f4…0256 8fad 0150 DIM OP1$(12),TK$(V),TEKST$(25),TFIL$(20,10),FUKODE$(E),N$(6),FMKODE$(E)
0x01f4…0256 LineComalBin {
0x01f4…0256 ptr = 0x8fad // 0x1f4 @0x0
0x01f4…0256 lno = 0x0096 // 0x1f6 @0x2
0x01f4…0256 at0004 = ╱87╱ DIM ╱ // 0x1f8 @0x4
0x01f4…0256 at0005 = ╱4f╱O╱ // 0x1f9 @0x5
0x01f4…0256 at0006 = ╱50╱P╱ // 0x1fa @0x6
0x01f4…0256 at0007 = ╱31╱1╱ // 0x1fb @0x7
0x01f4…0256 at0008 = ╱ef╱$╱ // 0x1fc @0x8
0x01f4…0256 at0009 = ╱ed╱(╱ // 0x1fd @0x9
0x01f4…0256 at000a = ╱31╱1╱ // 0x1fe @0xa
0x01f4…0256 at000b = ╱32╱2╱ // 0x1ff @0xb
0x01f4…0256 at000c = ╱fe0000c004╱ // 0x200 @0xc
0x01f4…0256 at0011 = ╱ee╱)╱ // 0x205 @0x11
0x01f4…0256 at0012 = ╱ec╱,╱ // 0x206 @0x12
0x01f4…0256 at0013 = ╱54╱T╱ // 0x207 @0x13
0x01f4…0256 at0014 = ╱4b╱K╱ // 0x208 @0x14
0x01f4…0256 at0015 = ╱ef╱$╱ // 0x209 @0x15
0x01f4…0256 at0016 = ╱ed╱(╱ // 0x20a @0x16
0x01f4…0256 at0017 = ╱56╱V╱ // 0x20b @0x17
0x01f4…0256 at0018 = ╱ee╱)╱ // 0x20c @0x18
0x01f4…0256 at0019 = ╱ec╱,╱ // 0x20d @0x19
0x01f4…0256 at001a = ╱54╱T╱ // 0x20e @0x1a
0x01f4…0256 at001b = ╱45╱E╱ // 0x20f @0x1b
0x01f4…0256 at001c = ╱4b╱K╱ // 0x210 @0x1c
0x01f4…0256 at001d = ╱53╱S╱ // 0x211 @0x1d
0x01f4…0256 at001e = ╱54╱T╱ // 0x212 @0x1e
0x01f4…0256 at001f = ╱ef╱$╱ // 0x213 @0x1f
0x01f4…0256 at0020 = ╱ed╱(╱ // 0x214 @0x20
0x01f4…0256 at0021 = ╱32╱2╱ // 0x215 @0x21
0x01f4…0256 at0022 = ╱35╱5╱ // 0x216 @0x22
0x01f4…0256 at0023 = ╱fe0000c805╱ // 0x217 @0x23
0x01f4…0256 at0028 = ╱ee╱)╱ // 0x21c @0x28
0x01f4…0256 at0029 = ╱ec╱,╱ // 0x21d @0x29
0x01f4…0256 at002a = ╱54╱T╱ // 0x21e @0x2a
0x01f4…0256 at002b = ╱46╱F╱ // 0x21f @0x2b
0x01f4…0256 at002c = ╱49╱I╱ // 0x220 @0x2c
0x01f4…0256 at002d = ╱4c╱L╱ // 0x221 @0x2d
0x01f4…0256 at002e = ╱ef╱$╱ // 0x222 @0x2e
0x01f4…0256 at002f = ╱ed╱(╱ // 0x223 @0x2f
0x01f4…0256 at0030 = ╱32╱2╱ // 0x224 @0x30
0x01f4…0256 at0031 = ╱30╱0╱ // 0x225 @0x31
0x01f4…0256 at0032 = ╱fe0000a005╱ // 0x226 @0x32
0x01f4…0256 at0037 = ╱ec╱,╱ // 0x22b @0x37
0x01f4…0256 at0038 = ╱31╱1╱ // 0x22c @0x38
0x01f4…0256 at0039 = ╱30╱0╱ // 0x22d @0x39
0x01f4…0256 at003a = ╱fe0000a004╱ // 0x22e @0x3a
0x01f4…0256 at003f = ╱ee╱)╱ // 0x233 @0x3f
0x01f4…0256 at0040 = ╱ec╱,╱ // 0x234 @0x40
0x01f4…0256 at0041 = ╱46╱F╱ // 0x235 @0x41
0x01f4…0256 at0042 = ╱55╱U╱ // 0x236 @0x42
0x01f4…0256 at0043 = ╱4b╱K╱ // 0x237 @0x43
0x01f4…0256 at0044 = ╱4f╱O╱ // 0x238 @0x44
0x01f4…0256 at0045 = ╱44╱D╱ // 0x239 @0x45
0x01f4…0256 at0046 = ╱45╱E╱ // 0x23a @0x46
0x01f4…0256 at0047 = ╱ef╱$╱ // 0x23b @0x47
0x01f4…0256 at0048 = ╱ed╱(╱ // 0x23c @0x48
0x01f4…0256 at0049 = ╱45╱E╱ // 0x23d @0x49
0x01f4…0256 at004a = ╱ee╱)╱ // 0x23e @0x4a
0x01f4…0256 at004b = ╱ec╱,╱ // 0x23f @0x4b
0x01f4…0256 at004c = ╱4e╱N╱ // 0x240 @0x4c
0x01f4…0256 at004d = ╱ef╱$╱ // 0x241 @0x4d
0x01f4…0256 at004e = ╱ed╱(╱ // 0x242 @0x4e
0x01f4…0256 at004f = ╱36╱6╱ // 0x243 @0x4f
0x01f4…0256 at0050 = ╱fe0000c003╱ // 0x244 @0x50
0x01f4…0256 at0055 = ╱ee╱)╱ // 0x249 @0x55
0x01f4…0256 at0056 = ╱ec╱,╱ // 0x24a @0x56
0x01f4…0256 at0057 = ╱46╱F╱ // 0x24b @0x57
0x01f4…0256 at0058 = ╱4d╱M╱ // 0x24c @0x58
0x01f4…0256 at0059 = ╱4b╱K╱ // 0x24d @0x59
0x01f4…0256 at005a = ╱4f╱O╱ // 0x24e @0x5a
0x01f4…0256 at005b = ╱44╱D╱ // 0x24f @0x5b
0x01f4…0256 at005c = ╱45╱E╱ // 0x250 @0x5c
0x01f4…0256 at005d = ╱ef╱$╱ // 0x251 @0x5d
0x01f4…0256 at005e = ╱ed╱(╱ // 0x252 @0x5e
0x01f4…0256 at005f = ╱45╱E╱ // 0x253 @0x5f
0x01f4…0256 at0060 = ╱ee╱)╱ // 0x254 @0x60
0x01f4…0256 at0061 = EOL // 0x255 @0x61
0x01f4…0256 }
0x0256…02be 9015 0160 DIM K6$(17),K7$(17),UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8)
0x0256…02be LineComalBin {
0x0256…02be ptr = 0x9015 // 0x256 @0x0
0x0256…02be lno = 0x00a0 // 0x258 @0x2
0x0256…02be at0004 = ╱87╱ DIM ╱ // 0x25a @0x4
0x0256…02be at0005 = ╱4b╱K╱ // 0x25b @0x5
0x0256…02be at0006 = ╱36╱6╱ // 0x25c @0x6
0x0256…02be at0007 = ╱ef╱$╱ // 0x25d @0x7
0x0256…02be at0008 = ╱ed╱(╱ // 0x25e @0x8
0x0256…02be at0009 = ╱31╱1╱ // 0x25f @0x9
0x0256…02be at000a = ╱37╱7╱ // 0x260 @0xa
0x0256…02be at000b = ╱fe00008805╱ // 0x261 @0xb
0x0256…02be at0010 = ╱ee╱)╱ // 0x266 @0x10
0x0256…02be at0011 = ╱ec╱,╱ // 0x267 @0x11
0x0256…02be at0012 = ╱4b╱K╱ // 0x268 @0x12
0x0256…02be at0013 = ╱37╱7╱ // 0x269 @0x13
0x0256…02be at0014 = ╱ef╱$╱ // 0x26a @0x14
0x0256…02be at0015 = ╱ed╱(╱ // 0x26b @0x15
0x0256…02be at0016 = ╱31╱1╱ // 0x26c @0x16
0x0256…02be at0017 = ╱37╱7╱ // 0x26d @0x17
0x0256…02be at0018 = ╱fe00008805╱ // 0x26e @0x18
0x0256…02be at001d = ╱ee╱)╱ // 0x273 @0x1d
0x0256…02be at001e = ╱ec╱,╱ // 0x274 @0x1e
0x0256…02be at001f = ╱55╱U╱ // 0x275 @0x1f
0x0256…02be at0020 = ╱42╱B╱ // 0x276 @0x20
0x0256…02be at0021 = ╱45╱E╱ // 0x277 @0x21
0x0256…02be at0022 = ╱4c╱L╱ // 0x278 @0x22
0x0256…02be at0023 = ╱5c╱Ø╱ // 0x279 @0x23
0x0256…02be at0024 = ╱42╱B╱ // 0x27a @0x24
0x0256…02be at0025 = ╱ef╱$╱ // 0x27b @0x25
0x0256…02be at0026 = ╱ed╱(╱ // 0x27c @0x26
0x0256…02be at0027 = ╱31╱1╱ // 0x27d @0x27
0x0256…02be at0028 = ╱34╱4╱ // 0x27e @0x28
0x0256…02be at0029 = ╱fe0000e004╱ // 0x27f @0x29
0x0256…02be at002e = ╱ee╱)╱ // 0x284 @0x2e
0x0256…02be at002f = ╱ec╱,╱ // 0x285 @0x2f
0x0256…02be at0030 = ╱53╱S╱ // 0x286 @0x30
0x0256…02be at0031 = ╱55╱U╱ // 0x287 @0x31
0x0256…02be at0032 = ╱4d╱M╱ // 0x288 @0x32
0x0256…02be at0033 = ╱ef╱$╱ // 0x289 @0x33
0x0256…02be at0034 = ╱ed╱(╱ // 0x28a @0x34
0x0256…02be at0035 = ╱31╱1╱ // 0x28b @0x35
0x0256…02be at0036 = ╱32╱2╱ // 0x28c @0x36
0x0256…02be at0037 = ╱fe0000c004╱ // 0x28d @0x37
0x0256…02be at003c = ╱ee╱)╱ // 0x292 @0x3c
0x0256…02be at003d = ╱ec╱,╱ // 0x293 @0x3d
0x0256…02be at003e = ╱44╱D╱ // 0x294 @0x3e
0x0256…02be at003f = ╱41╱A╱ // 0x295 @0x3f
0x0256…02be at0040 = ╱54╱T╱ // 0x296 @0x40
0x0256…02be at0041 = ╱ef╱$╱ // 0x297 @0x41
0x0256…02be at0042 = ╱ed╱(╱ // 0x298 @0x42
0x0256…02be at0043 = ╱38╱8╱ // 0x299 @0x43
0x0256…02be at0044 = ╱fe00008004╱ // 0x29a @0x44
0x0256…02be at0049 = ╱ee╱)╱ // 0x29f @0x49
0x0256…02be at004a = ╱ec╱,╱ // 0x2a0 @0x4a
0x0256…02be at004b = ╱53╱S╱ // 0x2a1 @0x4b
0x0256…02be at004c = ╱41╱A╱ // 0x2a2 @0x4c
0x0256…02be at004d = ╱4c╱L╱ // 0x2a3 @0x4d
0x0256…02be at004e = ╱44╱D╱ // 0x2a4 @0x4e
0x0256…02be at004f = ╱4f╱O╱ // 0x2a5 @0x4f
0x0256…02be at0050 = ╱ef╱$╱ // 0x2a6 @0x50
0x0256…02be at0051 = ╱ed╱(╱ // 0x2a7 @0x51
0x0256…02be at0052 = ╱31╱1╱ // 0x2a8 @0x52
0x0256…02be at0053 = ╱32╱2╱ // 0x2a9 @0x53
0x0256…02be at0054 = ╱fe0000c004╱ // 0x2aa @0x54
0x0256…02be at0059 = ╱ee╱)╱ // 0x2af @0x59
0x0256…02be at005a = ╱ec╱,╱ // 0x2b0 @0x5a
0x0256…02be at005b = ╱44╱D╱ // 0x2b1 @0x5b
0x0256…02be at005c = ╱41╱A╱ // 0x2b2 @0x5c
0x0256…02be at005d = ╱35╱5╱ // 0x2b3 @0x5d
0x0256…02be at005e = ╱ef╱$╱ // 0x2b4 @0x5e
0x0256…02be at005f = ╱ed╱(╱ // 0x2b5 @0x5f
0x0256…02be at0060 = ╱38╱8╱ // 0x2b6 @0x60
0x0256…02be at0061 = ╱fe00008004╱ // 0x2b7 @0x61
0x0256…02be at0066 = ╱ee╱)╱ // 0x2bc @0x66
0x0256…02be at0067 = EOL // 0x2bd @0x67
0x0256…02be }
0x02be…0320 9077 0170 DIM EGNAVN$(30),EGGADE$(30),EGBY$(20),STREG$(77),TKODE$(E),EGPOSTNR$(4)
0x02be…0320 LineComalBin {
0x02be…0320 ptr = 0x9077 // 0x2be @0x0
0x02be…0320 lno = 0x00aa // 0x2c0 @0x2
0x02be…0320 at0004 = ╱87╱ DIM ╱ // 0x2c2 @0x4
0x02be…0320 at0005 = ╱45╱E╱ // 0x2c3 @0x5
0x02be…0320 at0006 = ╱47╱G╱ // 0x2c4 @0x6
0x02be…0320 at0007 = ╱4e╱N╱ // 0x2c5 @0x7
0x02be…0320 at0008 = ╱41╱A╱ // 0x2c6 @0x8
0x02be…0320 at0009 = ╱56╱V╱ // 0x2c7 @0x9
0x02be…0320 at000a = ╱4e╱N╱ // 0x2c8 @0xa
0x02be…0320 at000b = ╱ef╱$╱ // 0x2c9 @0xb
0x02be…0320 at000c = ╱ed╱(╱ // 0x2ca @0xc
0x02be…0320 at000d = ╱33╱3╱ // 0x2cb @0xd
0x02be…0320 at000e = ╱30╱0╱ // 0x2cc @0xe
0x02be…0320 at000f = ╱fe0000f005╱ // 0x2cd @0xf
0x02be…0320 at0014 = ╱ee╱)╱ // 0x2d2 @0x14
0x02be…0320 at0015 = ╱ec╱,╱ // 0x2d3 @0x15
0x02be…0320 at0016 = ╱45╱E╱ // 0x2d4 @0x16
0x02be…0320 at0017 = ╱47╱G╱ // 0x2d5 @0x17
0x02be…0320 at0018 = ╱47╱G╱ // 0x2d6 @0x18
0x02be…0320 at0019 = ╱41╱A╱ // 0x2d7 @0x19
0x02be…0320 at001a = ╱44╱D╱ // 0x2d8 @0x1a
0x02be…0320 at001b = ╱45╱E╱ // 0x2d9 @0x1b
0x02be…0320 at001c = ╱ef╱$╱ // 0x2da @0x1c
0x02be…0320 at001d = ╱ed╱(╱ // 0x2db @0x1d
0x02be…0320 at001e = ╱33╱3╱ // 0x2dc @0x1e
0x02be…0320 at001f = ╱30╱0╱ // 0x2dd @0x1f
0x02be…0320 at0020 = ╱fe0000f005╱ // 0x2de @0x20
0x02be…0320 at0025 = ╱ee╱)╱ // 0x2e3 @0x25
0x02be…0320 at0026 = ╱ec╱,╱ // 0x2e4 @0x26
0x02be…0320 at0027 = ╱45╱E╱ // 0x2e5 @0x27
0x02be…0320 at0028 = ╱47╱G╱ // 0x2e6 @0x28
0x02be…0320 at0029 = ╱42╱B╱ // 0x2e7 @0x29
0x02be…0320 at002a = ╱59╱Y╱ // 0x2e8 @0x2a
0x02be…0320 at002b = ╱ef╱$╱ // 0x2e9 @0x2b
0x02be…0320 at002c = ╱ed╱(╱ // 0x2ea @0x2c
0x02be…0320 at002d = ╱32╱2╱ // 0x2eb @0x2d
0x02be…0320 at002e = ╱30╱0╱ // 0x2ec @0x2e
0x02be…0320 at002f = ╱fe0000a005╱ // 0x2ed @0x2f
0x02be…0320 at0034 = ╱ee╱)╱ // 0x2f2 @0x34
0x02be…0320 at0035 = ╱ec╱,╱ // 0x2f3 @0x35
0x02be…0320 at0036 = ╱53╱S╱ // 0x2f4 @0x36
0x02be…0320 at0037 = ╱54╱T╱ // 0x2f5 @0x37
0x02be…0320 at0038 = ╱52╱R╱ // 0x2f6 @0x38
0x02be…0320 at0039 = ╱45╱E╱ // 0x2f7 @0x39
0x02be…0320 at003a = ╱47╱G╱ // 0x2f8 @0x3a
0x02be…0320 at003b = ╱ef╱$╱ // 0x2f9 @0x3b
0x02be…0320 at003c = ╱ed╱(╱ // 0x2fa @0x3c
0x02be…0320 at003d = ╱37╱7╱ // 0x2fb @0x3d
0x02be…0320 at003e = ╱37╱7╱ // 0x2fc @0x3e
0x02be…0320 at003f = ╱fe00009a07╱ // 0x2fd @0x3f
0x02be…0320 at0044 = ╱ee╱)╱ // 0x302 @0x44
0x02be…0320 at0045 = ╱ec╱,╱ // 0x303 @0x45
0x02be…0320 at0046 = ╱54╱T╱ // 0x304 @0x46
0x02be…0320 at0047 = ╱4b╱K╱ // 0x305 @0x47
0x02be…0320 at0048 = ╱4f╱O╱ // 0x306 @0x48
0x02be…0320 at0049 = ╱44╱D╱ // 0x307 @0x49
0x02be…0320 at004a = ╱45╱E╱ // 0x308 @0x4a
0x02be…0320 at004b = ╱ef╱$╱ // 0x309 @0x4b
0x02be…0320 at004c = ╱ed╱(╱ // 0x30a @0x4c
0x02be…0320 at004d = ╱45╱E╱ // 0x30b @0x4d
0x02be…0320 at004e = ╱ee╱)╱ // 0x30c @0x4e
0x02be…0320 at004f = ╱ec╱,╱ // 0x30d @0x4f
0x02be…0320 at0050 = ╱45╱E╱ // 0x30e @0x50
0x02be…0320 at0051 = ╱47╱G╱ // 0x30f @0x51
0x02be…0320 at0052 = ╱50╱P╱ // 0x310 @0x52
0x02be…0320 at0053 = ╱4f╱O╱ // 0x311 @0x53
0x02be…0320 at0054 = ╱53╱S╱ // 0x312 @0x54
0x02be…0320 at0055 = ╱54╱T╱ // 0x313 @0x55
0x02be…0320 at0056 = ╱4e╱N╱ // 0x314 @0x56
0x02be…0320 at0057 = ╱52╱R╱ // 0x315 @0x57
0x02be…0320 at0058 = ╱ef╱$╱ // 0x316 @0x58
0x02be…0320 at0059 = ╱ed╱(╱ // 0x317 @0x59
0x02be…0320 at005a = ╱34╱4╱ // 0x318 @0x5a
0x02be…0320 at005b = ╱fe00008003╱ // 0x319 @0x5b
0x02be…0320 at0060 = ╱ee╱)╱ // 0x31e @0x60
0x02be…0320 at0061 = EOL // 0x31f @0x61
0x02be…0320 }
0x0320…0392 90e9 0180 DIM K8$(17),K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),K14$(17),DV$(10)
0x0320…0392 LineComalBin {
0x0320…0392 ptr = 0x90e9 // 0x320 @0x0
0x0320…0392 lno = 0x00b4 // 0x322 @0x2
0x0320…0392 at0004 = ╱87╱ DIM ╱ // 0x324 @0x4
0x0320…0392 at0005 = ╱4b╱K╱ // 0x325 @0x5
0x0320…0392 at0006 = ╱38╱8╱ // 0x326 @0x6
0x0320…0392 at0007 = ╱ef╱$╱ // 0x327 @0x7
0x0320…0392 at0008 = ╱ed╱(╱ // 0x328 @0x8
0x0320…0392 at0009 = ╱31╱1╱ // 0x329 @0x9
0x0320…0392 at000a = ╱37╱7╱ // 0x32a @0xa
0x0320…0392 at000b = ╱fe00008805╱ // 0x32b @0xb
0x0320…0392 at0010 = ╱ee╱)╱ // 0x330 @0x10
0x0320…0392 at0011 = ╱ec╱,╱ // 0x331 @0x11
0x0320…0392 at0012 = ╱4b╱K╱ // 0x332 @0x12
0x0320…0392 at0013 = ╱39╱9╱ // 0x333 @0x13
0x0320…0392 at0014 = ╱ef╱$╱ // 0x334 @0x14
0x0320…0392 at0015 = ╱ed╱(╱ // 0x335 @0x15
0x0320…0392 at0016 = ╱31╱1╱ // 0x336 @0x16
0x0320…0392 at0017 = ╱37╱7╱ // 0x337 @0x17
0x0320…0392 at0018 = ╱fe00008805╱ // 0x338 @0x18
0x0320…0392 at001d = ╱ee╱)╱ // 0x33d @0x1d
0x0320…0392 at001e = ╱ec╱,╱ // 0x33e @0x1e
0x0320…0392 at001f = ╱4b╱K╱ // 0x33f @0x1f
0x0320…0392 at0020 = ╱31╱1╱ // 0x340 @0x20
0x0320…0392 at0021 = ╱30╱0╱ // 0x341 @0x21
0x0320…0392 at0022 = ╱ef╱$╱ // 0x342 @0x22
0x0320…0392 at0023 = ╱ed╱(╱ // 0x343 @0x23
0x0320…0392 at0024 = ╱31╱1╱ // 0x344 @0x24
0x0320…0392 at0025 = ╱37╱7╱ // 0x345 @0x25
0x0320…0392 at0026 = ╱fe00008805╱ // 0x346 @0x26
0x0320…0392 at002b = ╱ee╱)╱ // 0x34b @0x2b
0x0320…0392 at002c = ╱ec╱,╱ // 0x34c @0x2c
0x0320…0392 at002d = ╱4b╱K╱ // 0x34d @0x2d
0x0320…0392 at002e = ╱31╱1╱ // 0x34e @0x2e
0x0320…0392 at002f = ╱31╱1╱ // 0x34f @0x2f
0x0320…0392 at0030 = ╱ef╱$╱ // 0x350 @0x30
0x0320…0392 at0031 = ╱ed╱(╱ // 0x351 @0x31
0x0320…0392 at0032 = ╱31╱1╱ // 0x352 @0x32
0x0320…0392 at0033 = ╱37╱7╱ // 0x353 @0x33
0x0320…0392 at0034 = ╱fe00008805╱ // 0x354 @0x34
0x0320…0392 at0039 = ╱ee╱)╱ // 0x359 @0x39
0x0320…0392 at003a = ╱ec╱,╱ // 0x35a @0x3a
0x0320…0392 at003b = ╱4b╱K╱ // 0x35b @0x3b
0x0320…0392 at003c = ╱31╱1╱ // 0x35c @0x3c
0x0320…0392 at003d = ╱32╱2╱ // 0x35d @0x3d
0x0320…0392 at003e = ╱ef╱$╱ // 0x35e @0x3e
0x0320…0392 at003f = ╱ed╱(╱ // 0x35f @0x3f
0x0320…0392 at0040 = ╱31╱1╱ // 0x360 @0x40
0x0320…0392 at0041 = ╱37╱7╱ // 0x361 @0x41
0x0320…0392 at0042 = ╱fe00008805╱ // 0x362 @0x42
0x0320…0392 at0047 = ╱ee╱)╱ // 0x367 @0x47
0x0320…0392 at0048 = ╱ec╱,╱ // 0x368 @0x48
0x0320…0392 at0049 = ╱4b╱K╱ // 0x369 @0x49
0x0320…0392 at004a = ╱31╱1╱ // 0x36a @0x4a
0x0320…0392 at004b = ╱33╱3╱ // 0x36b @0x4b
0x0320…0392 at004c = ╱ef╱$╱ // 0x36c @0x4c
0x0320…0392 at004d = ╱ed╱(╱ // 0x36d @0x4d
0x0320…0392 at004e = ╱31╱1╱ // 0x36e @0x4e
0x0320…0392 at004f = ╱37╱7╱ // 0x36f @0x4f
0x0320…0392 at0050 = ╱fe00008805╱ // 0x370 @0x50
0x0320…0392 at0055 = ╱ee╱)╱ // 0x375 @0x55
0x0320…0392 at0056 = ╱ec╱,╱ // 0x376 @0x56
0x0320…0392 at0057 = ╱4b╱K╱ // 0x377 @0x57
0x0320…0392 at0058 = ╱31╱1╱ // 0x378 @0x58
0x0320…0392 at0059 = ╱34╱4╱ // 0x379 @0x59
0x0320…0392 at005a = ╱ef╱$╱ // 0x37a @0x5a
0x0320…0392 at005b = ╱ed╱(╱ // 0x37b @0x5b
0x0320…0392 at005c = ╱31╱1╱ // 0x37c @0x5c
0x0320…0392 at005d = ╱37╱7╱ // 0x37d @0x5d
0x0320…0392 at005e = ╱fe00008805╱ // 0x37e @0x5e
0x0320…0392 at0063 = ╱ee╱)╱ // 0x383 @0x63
0x0320…0392 at0064 = ╱ec╱,╱ // 0x384 @0x64
0x0320…0392 at0065 = ╱44╱D╱ // 0x385 @0x65
0x0320…0392 at0066 = ╱56╱V╱ // 0x386 @0x66
0x0320…0392 at0067 = ╱ef╱$╱ // 0x387 @0x67
0x0320…0392 at0068 = ╱ed╱(╱ // 0x388 @0x68
0x0320…0392 at0069 = ╱31╱1╱ // 0x389 @0x69
0x0320…0392 at006a = ╱30╱0╱ // 0x38a @0x6a
0x0320…0392 at006b = ╱fe0000a004╱ // 0x38b @0x6b
0x0320…0392 at0070 = ╱ee╱)╱ // 0x390 @0x70
0x0320…0392 at0071 = EOL // 0x391 @0x71
0x0320…0392 }
0x0392…03e7 913e 0190 DIM T1(W),T2(W),T3(W),KRENAVN$(25),KREGADE$(25),KREBY$(20),KRELK$(E)
0x0392…03e7 LineComalBin {
0x0392…03e7 ptr = 0x913e // 0x392 @0x0
0x0392…03e7 lno = 0x00be // 0x394 @0x2
0x0392…03e7 at0004 = ╱87╱ DIM ╱ // 0x396 @0x4
0x0392…03e7 at0005 = ╱54╱T╱ // 0x397 @0x5
0x0392…03e7 at0006 = ╱31╱1╱ // 0x398 @0x6
0x0392…03e7 at0007 = ╱ed╱(╱ // 0x399 @0x7
0x0392…03e7 at0008 = ╱57╱W╱ // 0x39a @0x8
0x0392…03e7 at0009 = ╱ee╱)╱ // 0x39b @0x9
0x0392…03e7 at000a = ╱ec╱,╱ // 0x39c @0xa
0x0392…03e7 at000b = ╱54╱T╱ // 0x39d @0xb
0x0392…03e7 at000c = ╱32╱2╱ // 0x39e @0xc
0x0392…03e7 at000d = ╱ed╱(╱ // 0x39f @0xd
0x0392…03e7 at000e = ╱57╱W╱ // 0x3a0 @0xe
0x0392…03e7 at000f = ╱ee╱)╱ // 0x3a1 @0xf
0x0392…03e7 at0010 = ╱ec╱,╱ // 0x3a2 @0x10
0x0392…03e7 at0011 = ╱54╱T╱ // 0x3a3 @0x11
0x0392…03e7 at0012 = ╱33╱3╱ // 0x3a4 @0x12
0x0392…03e7 at0013 = ╱ed╱(╱ // 0x3a5 @0x13
0x0392…03e7 at0014 = ╱57╱W╱ // 0x3a6 @0x14
0x0392…03e7 at0015 = ╱ee╱)╱ // 0x3a7 @0x15
0x0392…03e7 at0016 = ╱ec╱,╱ // 0x3a8 @0x16
0x0392…03e7 at0017 = ╱4b╱K╱ // 0x3a9 @0x17
0x0392…03e7 at0018 = ╱52╱R╱ // 0x3aa @0x18
0x0392…03e7 at0019 = ╱45╱E╱ // 0x3ab @0x19
0x0392…03e7 at001a = ╱4e╱N╱ // 0x3ac @0x1a
0x0392…03e7 at001b = ╱41╱A╱ // 0x3ad @0x1b
0x0392…03e7 at001c = ╱56╱V╱ // 0x3ae @0x1c
0x0392…03e7 at001d = ╱4e╱N╱ // 0x3af @0x1d
0x0392…03e7 at001e = ╱ef╱$╱ // 0x3b0 @0x1e
0x0392…03e7 at001f = ╱ed╱(╱ // 0x3b1 @0x1f
0x0392…03e7 at0020 = ╱32╱2╱ // 0x3b2 @0x20
0x0392…03e7 at0021 = ╱35╱5╱ // 0x3b3 @0x21
0x0392…03e7 at0022 = ╱fe0000c805╱ // 0x3b4 @0x22
0x0392…03e7 at0027 = ╱ee╱)╱ // 0x3b9 @0x27
0x0392…03e7 at0028 = ╱ec╱,╱ // 0x3ba @0x28
0x0392…03e7 at0029 = ╱4b╱K╱ // 0x3bb @0x29
0x0392…03e7 at002a = ╱52╱R╱ // 0x3bc @0x2a
0x0392…03e7 at002b = ╱45╱E╱ // 0x3bd @0x2b
0x0392…03e7 at002c = ╱47╱G╱ // 0x3be @0x2c
0x0392…03e7 at002d = ╱41╱A╱ // 0x3bf @0x2d
0x0392…03e7 at002e = ╱44╱D╱ // 0x3c0 @0x2e
0x0392…03e7 at002f = ╱45╱E╱ // 0x3c1 @0x2f
0x0392…03e7 at0030 = ╱ef╱$╱ // 0x3c2 @0x30
0x0392…03e7 at0031 = ╱ed╱(╱ // 0x3c3 @0x31
0x0392…03e7 at0032 = ╱32╱2╱ // 0x3c4 @0x32
0x0392…03e7 at0033 = ╱35╱5╱ // 0x3c5 @0x33
0x0392…03e7 at0034 = ╱fe0000c805╱ // 0x3c6 @0x34
0x0392…03e7 at0039 = ╱ee╱)╱ // 0x3cb @0x39
0x0392…03e7 at003a = ╱ec╱,╱ // 0x3cc @0x3a
0x0392…03e7 at003b = ╱4b╱K╱ // 0x3cd @0x3b
0x0392…03e7 at003c = ╱52╱R╱ // 0x3ce @0x3c
0x0392…03e7 at003d = ╱45╱E╱ // 0x3cf @0x3d
0x0392…03e7 at003e = ╱42╱B╱ // 0x3d0 @0x3e
0x0392…03e7 at003f = ╱59╱Y╱ // 0x3d1 @0x3f
0x0392…03e7 at0040 = ╱ef╱$╱ // 0x3d2 @0x40
0x0392…03e7 at0041 = ╱ed╱(╱ // 0x3d3 @0x41
0x0392…03e7 at0042 = ╱32╱2╱ // 0x3d4 @0x42
0x0392…03e7 at0043 = ╱30╱0╱ // 0x3d5 @0x43
0x0392…03e7 at0044 = ╱fe0000a005╱ // 0x3d6 @0x44
0x0392…03e7 at0049 = ╱ee╱)╱ // 0x3db @0x49
0x0392…03e7 at004a = ╱ec╱,╱ // 0x3dc @0x4a
0x0392…03e7 at004b = ╱4b╱K╱ // 0x3dd @0x4b
0x0392…03e7 at004c = ╱52╱R╱ // 0x3de @0x4c
0x0392…03e7 at004d = ╱45╱E╱ // 0x3df @0x4d
0x0392…03e7 at004e = ╱4c╱L╱ // 0x3e0 @0x4e
0x0392…03e7 at004f = ╱4b╱K╱ // 0x3e1 @0x4f
0x0392…03e7 at0050 = ╱ef╱$╱ // 0x3e2 @0x50
0x0392…03e7 at0051 = ╱ed╱(╱ // 0x3e3 @0x51
0x0392…03e7 at0052 = ╱45╱E╱ // 0x3e4 @0x52
0x0392…03e7 at0053 = ╱ee╱)╱ // 0x3e5 @0x53
0x0392…03e7 at0054 = EOL // 0x3e6 @0x54
0x0392…03e7 }
0x03e7…0441 9198 0200 DIM KSALDO1$(12),KSALDO2$(12),LTX$(11,52),LAND$(W,12),KREGR$(E)
0x03e7…0441 LineComalBin {
0x03e7…0441 ptr = 0x9198 // 0x3e7 @0x0
0x03e7…0441 lno = 0x00c8 // 0x3e9 @0x2
0x03e7…0441 at0004 = ╱87╱ DIM ╱ // 0x3eb @0x4
0x03e7…0441 at0005 = ╱4b╱K╱ // 0x3ec @0x5
0x03e7…0441 at0006 = ╱53╱S╱ // 0x3ed @0x6
0x03e7…0441 at0007 = ╱41╱A╱ // 0x3ee @0x7
0x03e7…0441 at0008 = ╱4c╱L╱ // 0x3ef @0x8
0x03e7…0441 at0009 = ╱44╱D╱ // 0x3f0 @0x9
0x03e7…0441 at000a = ╱4f╱O╱ // 0x3f1 @0xa
0x03e7…0441 at000b = ╱31╱1╱ // 0x3f2 @0xb
0x03e7…0441 at000c = ╱ef╱$╱ // 0x3f3 @0xc
0x03e7…0441 at000d = ╱ed╱(╱ // 0x3f4 @0xd
0x03e7…0441 at000e = ╱31╱1╱ // 0x3f5 @0xe
0x03e7…0441 at000f = ╱32╱2╱ // 0x3f6 @0xf
0x03e7…0441 at0010 = ╱fe0000c004╱ // 0x3f7 @0x10
0x03e7…0441 at0015 = ╱ee╱)╱ // 0x3fc @0x15
0x03e7…0441 at0016 = ╱ec╱,╱ // 0x3fd @0x16
0x03e7…0441 at0017 = ╱4b╱K╱ // 0x3fe @0x17
0x03e7…0441 at0018 = ╱53╱S╱ // 0x3ff @0x18
0x03e7…0441 at0019 = ╱41╱A╱ // 0x400 @0x19
0x03e7…0441 at001a = ╱4c╱L╱ // 0x401 @0x1a
0x03e7…0441 at001b = ╱44╱D╱ // 0x402 @0x1b
0x03e7…0441 at001c = ╱4f╱O╱ // 0x403 @0x1c
0x03e7…0441 at001d = ╱32╱2╱ // 0x404 @0x1d
0x03e7…0441 at001e = ╱ef╱$╱ // 0x405 @0x1e
0x03e7…0441 at001f = ╱ed╱(╱ // 0x406 @0x1f
0x03e7…0441 at0020 = ╱31╱1╱ // 0x407 @0x20
0x03e7…0441 at0021 = ╱32╱2╱ // 0x408 @0x21
0x03e7…0441 at0022 = ╱fe0000c004╱ // 0x409 @0x22
0x03e7…0441 at0027 = ╱ee╱)╱ // 0x40e @0x27
0x03e7…0441 at0028 = ╱ec╱,╱ // 0x40f @0x28
0x03e7…0441 at0029 = ╱4c╱L╱ // 0x410 @0x29
0x03e7…0441 at002a = ╱54╱T╱ // 0x411 @0x2a
0x03e7…0441 at002b = ╱58╱X╱ // 0x412 @0x2b
0x03e7…0441 at002c = ╱ef╱$╱ // 0x413 @0x2c
0x03e7…0441 at002d = ╱ed╱(╱ // 0x414 @0x2d
0x03e7…0441 at002e = ╱31╱1╱ // 0x415 @0x2e
0x03e7…0441 at002f = ╱31╱1╱ // 0x416 @0x2f
0x03e7…0441 at0030 = ╱fe0000b004╱ // 0x417 @0x30
0x03e7…0441 at0035 = ╱ec╱,╱ // 0x41c @0x35
0x03e7…0441 at0036 = ╱35╱5╱ // 0x41d @0x36
0x03e7…0441 at0037 = ╱32╱2╱ // 0x41e @0x37
0x03e7…0441 at0038 = ╱fe0000d006╱ // 0x41f @0x38
0x03e7…0441 at003d = ╱ee╱)╱ // 0x424 @0x3d
0x03e7…0441 at003e = ╱ec╱,╱ // 0x425 @0x3e
0x03e7…0441 at003f = ╱4c╱L╱ // 0x426 @0x3f
0x03e7…0441 at0040 = ╱41╱A╱ // 0x427 @0x40
0x03e7…0441 at0041 = ╱4e╱N╱ // 0x428 @0x41
0x03e7…0441 at0042 = ╱44╱D╱ // 0x429 @0x42
0x03e7…0441 at0043 = ╱ef╱$╱ // 0x42a @0x43
0x03e7…0441 at0044 = ╱ed╱(╱ // 0x42b @0x44
0x03e7…0441 at0045 = ╱57╱W╱ // 0x42c @0x45
0x03e7…0441 at0046 = ╱ec╱,╱ // 0x42d @0x46
0x03e7…0441 at0047 = ╱31╱1╱ // 0x42e @0x47
0x03e7…0441 at0048 = ╱32╱2╱ // 0x42f @0x48
0x03e7…0441 at0049 = ╱fe0000c004╱ // 0x430 @0x49
0x03e7…0441 at004e = ╱ee╱)╱ // 0x435 @0x4e
0x03e7…0441 at004f = ╱ec╱,╱ // 0x436 @0x4f
0x03e7…0441 at0050 = ╱4b╱K╱ // 0x437 @0x50
0x03e7…0441 at0051 = ╱52╱R╱ // 0x438 @0x51
0x03e7…0441 at0052 = ╱45╱E╱ // 0x439 @0x52
0x03e7…0441 at0053 = ╱47╱G╱ // 0x43a @0x53
0x03e7…0441 at0054 = ╱52╱R╱ // 0x43b @0x54
0x03e7…0441 at0055 = ╱ef╱$╱ // 0x43c @0x55
0x03e7…0441 at0056 = ╱ed╱(╱ // 0x43d @0x56
0x03e7…0441 at0057 = ╱45╱E╱ // 0x43e @0x57
0x03e7…0441 at0058 = ╱ee╱)╱ // 0x43f @0x58
0x03e7…0441 at0059 = EOL // 0x440 @0x59
0x03e7…0441 }
0x0441…0486 91dd 0210 DIM UBEL1$(14),UBEL2$(14),UBEL3$(14),UBEL4$(14)
0x0441…0486 LineComalBin {
0x0441…0486 ptr = 0x91dd // 0x441 @0x0
0x0441…0486 lno = 0x00d2 // 0x443 @0x2
0x0441…0486 at0004 = ╱87╱ DIM ╱ // 0x445 @0x4
0x0441…0486 at0005 = ╱55╱U╱ // 0x446 @0x5
0x0441…0486 at0006 = ╱42╱B╱ // 0x447 @0x6
0x0441…0486 at0007 = ╱45╱E╱ // 0x448 @0x7
0x0441…0486 at0008 = ╱4c╱L╱ // 0x449 @0x8
0x0441…0486 at0009 = ╱31╱1╱ // 0x44a @0x9
0x0441…0486 at000a = ╱ef╱$╱ // 0x44b @0xa
0x0441…0486 at000b = ╱ed╱(╱ // 0x44c @0xb
0x0441…0486 at000c = ╱31╱1╱ // 0x44d @0xc
0x0441…0486 at000d = ╱34╱4╱ // 0x44e @0xd
0x0441…0486 at000e = ╱fe0000e004╱ // 0x44f @0xe
0x0441…0486 at0013 = ╱ee╱)╱ // 0x454 @0x13
0x0441…0486 at0014 = ╱ec╱,╱ // 0x455 @0x14
0x0441…0486 at0015 = ╱55╱U╱ // 0x456 @0x15
0x0441…0486 at0016 = ╱42╱B╱ // 0x457 @0x16
0x0441…0486 at0017 = ╱45╱E╱ // 0x458 @0x17
0x0441…0486 at0018 = ╱4c╱L╱ // 0x459 @0x18
0x0441…0486 at0019 = ╱32╱2╱ // 0x45a @0x19
0x0441…0486 at001a = ╱ef╱$╱ // 0x45b @0x1a
0x0441…0486 at001b = ╱ed╱(╱ // 0x45c @0x1b
0x0441…0486 at001c = ╱31╱1╱ // 0x45d @0x1c
0x0441…0486 at001d = ╱34╱4╱ // 0x45e @0x1d
0x0441…0486 at001e = ╱fe0000e004╱ // 0x45f @0x1e
0x0441…0486 at0023 = ╱ee╱)╱ // 0x464 @0x23
0x0441…0486 at0024 = ╱ec╱,╱ // 0x465 @0x24
0x0441…0486 at0025 = ╱55╱U╱ // 0x466 @0x25
0x0441…0486 at0026 = ╱42╱B╱ // 0x467 @0x26
0x0441…0486 at0027 = ╱45╱E╱ // 0x468 @0x27
0x0441…0486 at0028 = ╱4c╱L╱ // 0x469 @0x28
0x0441…0486 at0029 = ╱33╱3╱ // 0x46a @0x29
0x0441…0486 at002a = ╱ef╱$╱ // 0x46b @0x2a
0x0441…0486 at002b = ╱ed╱(╱ // 0x46c @0x2b
0x0441…0486 at002c = ╱31╱1╱ // 0x46d @0x2c
0x0441…0486 at002d = ╱34╱4╱ // 0x46e @0x2d
0x0441…0486 at002e = ╱fe0000e004╱ // 0x46f @0x2e
0x0441…0486 at0033 = ╱ee╱)╱ // 0x474 @0x33
0x0441…0486 at0034 = ╱ec╱,╱ // 0x475 @0x34
0x0441…0486 at0035 = ╱55╱U╱ // 0x476 @0x35
0x0441…0486 at0036 = ╱42╱B╱ // 0x477 @0x36
0x0441…0486 at0037 = ╱45╱E╱ // 0x478 @0x37
0x0441…0486 at0038 = ╱4c╱L╱ // 0x479 @0x38
0x0441…0486 at0039 = ╱34╱4╱ // 0x47a @0x39
0x0441…0486 at003a = ╱ef╱$╱ // 0x47b @0x3a
0x0441…0486 at003b = ╱ed╱(╱ // 0x47c @0x3b
0x0441…0486 at003c = ╱31╱1╱ // 0x47d @0x3c
0x0441…0486 at003d = ╱34╱4╱ // 0x47e @0x3d
0x0441…0486 at003e = ╱fe0000e004╱ // 0x47f @0x3e
0x0441…0486 at0043 = ╱ee╱)╱ // 0x484 @0x43
0x0441…0486 at0044 = EOL // 0x485 @0x44
0x0441…0486 }
0x0486…049e 91f5 0220 PROC CALC(AR3,B1,B2,ES)
0x0486…049e LineComalBin {
0x0486…049e ptr = 0x91f5 // 0x486 @0x0
0x0486…049e lno = 0x00dc // 0x488 @0x2
0x0486…049e at0004 = ╱9e╱ PROC ╱ // 0x48a @0x4
0x0486…049e at0005 = ╱43╱C╱ // 0x48b @0x5
0x0486…049e at0006 = ╱41╱A╱ // 0x48c @0x6
0x0486…049e at0007 = ╱4c╱L╱ // 0x48d @0x7
0x0486…049e at0008 = ╱43╱C╱ // 0x48e @0x8
0x0486…049e at0009 = ╱ed╱(╱ // 0x48f @0x9
0x0486…049e at000a = ╱41╱A╱ // 0x490 @0xa
0x0486…049e at000b = ╱52╱R╱ // 0x491 @0xb
0x0486…049e at000c = ╱33╱3╱ // 0x492 @0xc
0x0486…049e at000d = ╱ec╱,╱ // 0x493 @0xd
0x0486…049e at000e = ╱42╱B╱ // 0x494 @0xe
0x0486…049e at000f = ╱31╱1╱ // 0x495 @0xf
0x0486…049e at0010 = ╱ec╱,╱ // 0x496 @0x10
0x0486…049e at0011 = ╱42╱B╱ // 0x497 @0x11
0x0486…049e at0012 = ╱32╱2╱ // 0x498 @0x12
0x0486…049e at0013 = ╱ec╱,╱ // 0x499 @0x13
0x0486…049e at0014 = ╱45╱E╱ // 0x49a @0x14
0x0486…049e at0015 = ╱53╱S╱ // 0x49b @0x15
0x0486…049e at0016 = ╱ee╱)╱ // 0x49c @0x16
0x0486…049e at0017 = EOL // 0x49d @0x17
0x0486…049e }
0x049e…04e5 923c 0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x049e…04e5 LineComalBin {
0x049e…04e5 ptr = 0x923c // 0x49e @0x0
0x049e…04e5 lno = 0x00e6 // 0x4a0 @0x2
0x049e…04e5 at0004 = ╱4f╱O╱ // 0x4a2 @0x4
0x049e…04e5 at0005 = ╱50╱P╱ // 0x4a3 @0x5
0x049e…04e5 at0006 = ╱31╱1╱ // 0x4a4 @0x6
0x049e…04e5 at0007 = ╱ef╱$╱ // 0x4a5 @0x7
0x049e…04e5 at0008 = ╱dc╱=╱ // 0x4a6 @0x8
0x049e…04e5 at0009 = ╱42╱B╱ // 0x4a7 @0x9
0x049e…04e5 at000a = ╱31╱1╱ // 0x4a8 @0xa
0x049e…04e5 at000b = ╱ef╱$╱ // 0x4a9 @0xb
0x049e…04e5 at000c = ╱eb╱;╱ // 0x4aa @0xc
0x049e…04e5 at000d = ╱4f╱O╱ // 0x4ab @0xd
0x049e…04e5 at000e = ╱50╱P╱ // 0x4ac @0xe
0x049e…04e5 at000f = ╱32╱2╱ // 0x4ad @0xf
0x049e…04e5 at0010 = ╱ef╱$╱ // 0x4ae @0x10
0x049e…04e5 at0011 = ╱dc╱=╱ // 0x4af @0x11
0x049e…04e5 at0012 = ╱42╱B╱ // 0x4b0 @0x12
0x049e…04e5 at0013 = ╱32╱2╱ // 0x4b1 @0x13
0x049e…04e5 at0014 = ╱ef╱$╱ // 0x4b2 @0x14
0x049e…04e5 at0015 = ╱eb╱;╱ // 0x4b3 @0x15
0x049e…04e5 at0016 = ╱52╱R╱ // 0x4b4 @0x16
0x049e…04e5 at0017 = ╱45╱E╱ // 0x4b5 @0x17
0x049e…04e5 at0018 = ╱53╱S╱ // 0x4b6 @0x18
0x049e…04e5 at0019 = ╱ef╱$╱ // 0x4b7 @0x19
0x049e…04e5 at001a = ╱dc╱=╱ // 0x4b8 @0x1a
0x049e…04e5 at001b = ╱45╱E╱ // 0x4b9 @0x1b
0x049e…04e5 at001c = ╱53╱S╱ // 0x4ba @0x1c
0x049e…04e5 at001d = ╱ef╱$╱ // 0x4bb @0x1d
0x049e…04e5 at001e = ╱eb╱;╱ // 0x4bc @0x1e
0x049e…04e5 at001f = ╱53╱S╱ // 0x4bd @0x1f
0x049e…04e5 at0020 = ╱49╱I╱ // 0x4be @0x20
0x049e…04e5 at0021 = ╱dc╱=╱ // 0x4bf @0x21
0x049e…04e5 at0022 = ╱42╱B╱ // 0x4c0 @0x22
0x049e…04e5 at0023 = ╱eb╱;╱ // 0x4c1 @0x23
0x049e…04e5 at0024 = ╱46╱F╱ // 0x4c2 @0x24
0x049e…04e5 at0025 = ╱4c╱L╱ // 0x4c3 @0x25
0x049e…04e5 at0026 = ╱41╱A╱ // 0x4c4 @0x26
0x049e…04e5 at0027 = ╱47╱G╱ // 0x4c5 @0x27
0x049e…04e5 at0028 = ╱dc╱=╱ // 0x4c6 @0x28
0x049e…04e5 at0029 = ╱42╱B╱ // 0x4c7 @0x29
0x049e…04e5 at002a = ╱eb╱;╱ // 0x4c8 @0x2a
0x049e…04e5 at002b = ╱41╱A╱ // 0x4c9 @0x2b
0x049e…04e5 at002c = ╱52╱R╱ // 0x4ca @0x2c
0x049e…04e5 at002d = ╱54╱T╱ // 0x4cb @0x2d
0x049e…04e5 at002e = ╱dc╱=╱ // 0x4cc @0x2e
0x049e…04e5 at002f = ╱41╱A╱ // 0x4cd @0x2f
0x049e…04e5 at0030 = ╱52╱R╱ // 0x4ce @0x30
0x049e…04e5 at0031 = ╱33╱3╱ // 0x4cf @0x31
0x049e…04e5 at0032 = ╱e3╱-╱ // 0x4d0 @0x32
0x049e…04e5 at0033 = ╱36╱6╱ // 0x4d1 @0x33
0x049e…04e5 at0034 = ╱fe0000c003╱ // 0x4d2 @0x34
0x049e…04e5 at0039 = ╱e4╱*╱ // 0x4d7 @0x39
0x049e…04e5 at003a = ╱ed╱(╱ // 0x4d8 @0x3a
0x049e…04e5 at003b = ╱41╱A╱ // 0x4d9 @0x3b
0x049e…04e5 at003c = ╱52╱R╱ // 0x4da @0x3c
0x049e…04e5 at003d = ╱33╱3╱ // 0x4db @0x3d
0x049e…04e5 at003e = ╱de╱>╱ // 0x4dc @0x3e
0x049e…04e5 at003f = ╱35╱5╱ // 0x4dd @0x3f
0x049e…04e5 at0040 = ╱fe0000a003╱ // 0x4de @0x40
0x049e…04e5 at0045 = ╱ee╱)╱ // 0x4e3 @0x45
0x049e…04e5 at0046 = EOL // 0x4e4 @0x46
0x049e…04e5 }
0x04e5…04fb 9252 0240 CALL "P641210:REGN"
0x04e5…04fb LineComalBin {
0x04e5…04fb ptr = 0x9252 // 0x4e5 @0x0
0x04e5…04fb lno = 0x00f0 // 0x4e7 @0x2
0x04e5…04fb at0004 = ╱adff61╱ CALL ╱ // 0x4e9 @0x4
0x04e5…04fb at0007 = ╱22╱"╱ // 0x4ec @0x7
0x04e5…04fb at0008 = ╱50╱P╱ // 0x4ed @0x8
0x04e5…04fb at0009 = ╱36╱6╱ // 0x4ee @0x9
0x04e5…04fb at000a = ╱34╱4╱ // 0x4ef @0xa
0x04e5…04fb at000b = ╱31╱1╱ // 0x4f0 @0xb
0x04e5…04fb at000c = ╱32╱2╱ // 0x4f1 @0xc
0x04e5…04fb at000d = ╱31╱1╱ // 0x4f2 @0xd
0x04e5…04fb at000e = ╱30╱0╱ // 0x4f3 @0xe
0x04e5…04fb at000f = ╱3a╱:╱ // 0x4f4 @0xf
0x04e5…04fb at0010 = ╱52╱R╱ // 0x4f5 @0x10
0x04e5…04fb at0011 = ╱45╱E╱ // 0x4f6 @0x11
0x04e5…04fb at0012 = ╱47╱G╱ // 0x4f7 @0x12
0x04e5…04fb at0013 = ╱4e╱N╱ // 0x4f8 @0x13
0x04e5…04fb at0014 = ╱22╱"╱ // 0x4f9 @0x14
0x04e5…04fb at0015 = EOL // 0x4fa @0x15
0x04e5…04fb }
0x04fb…0508 925f 0250 ES$=RES$
0x04fb…0508 LineComalBin {
0x04fb…0508 ptr = 0x925f // 0x4fb @0x0
0x04fb…0508 lno = 0x00fa // 0x4fd @0x2
0x04fb…0508 at0004 = ╱45╱E╱ // 0x4ff @0x4
0x04fb…0508 at0005 = ╱53╱S╱ // 0x500 @0x5
0x04fb…0508 at0006 = ╱ef╱$╱ // 0x501 @0x6
0x04fb…0508 at0007 = ╱dc╱=╱ // 0x502 @0x7
0x04fb…0508 at0008 = ╱52╱R╱ // 0x503 @0x8
0x04fb…0508 at0009 = ╱45╱E╱ // 0x504 @0x9
0x04fb…0508 at000a = ╱53╱S╱ // 0x505 @0xa
0x04fb…0508 at000b = ╱ef╱$╱ // 0x506 @0xb
0x04fb…0508 at000c = EOL // 0x507 @0xc
0x04fb…0508 }
0x0508…0520 9277 0260 IF AR3<6 THEN IF FLAG THEN STOP
0x0508…0520 LineComalBin {
0x0508…0520 ptr = 0x9277 // 0x508 @0x0
0x0508…0520 lno = 0x0104 // 0x50a @0x2
0x0508…0520 at0004 = ╱82╱ IF ╱ // 0x50c @0x4
0x0508…0520 at0005 = ╱41╱A╱ // 0x50d @0x5
0x0508…0520 at0006 = ╱52╱R╱ // 0x50e @0x6
0x0508…0520 at0007 = ╱33╱3╱ // 0x50f @0x7
0x0508…0520 at0008 = ╱dd╱<╱ // 0x510 @0x8
0x0508…0520 at0009 = ╱36╱6╱ // 0x511 @0x9
0x0508…0520 at000a = ╱fe0000c003╱ // 0x512 @0xa
0x0508…0520 at000f = ╱b6╱ THEN ╱ // 0x517 @0xf
0x0508…0520 at0010 = ╱82╱ IF ╱ // 0x518 @0x10
0x0508…0520 at0011 = ╱46╱F╱ // 0x519 @0x11
0x0508…0520 at0012 = ╱4c╱L╱ // 0x51a @0x12
0x0508…0520 at0013 = ╱41╱A╱ // 0x51b @0x13
0x0508…0520 at0014 = ╱47╱G╱ // 0x51c @0x14
0x0508…0520 at0015 = ╱b6╱ THEN ╱ // 0x51d @0x15
0x0508…0520 at0016 = ╱8d╱ STOP ╱ // 0x51e @0x16
0x0508…0520 at0017 = EOL // 0x51f @0x17
0x0508…0520 }
0x0520…0526 927d 0290 ENDPROC
0x0520…0526 LineComalBin {
0x0520…0526 ptr = 0x927d // 0x520 @0x0
0x0520…0526 lno = 0x0122 // 0x522 @0x2
0x0520…0526 at0004 = ╱9f╱ ENDPROC ╱ // 0x524 @0x4
0x0520…0526 at0005 = EOL // 0x525 @0x5
0x0520…0526 }
0x0526…0543 929a 0300 PROC TUD(BLB,UBLB,TEGN,STØR)
0x0526…0543 LineComalBin {
0x0526…0543 ptr = 0x929a // 0x526 @0x0
0x0526…0543 lno = 0x012c // 0x528 @0x2
0x0526…0543 at0004 = ╱9e╱ PROC ╱ // 0x52a @0x4
0x0526…0543 at0005 = ╱54╱T╱ // 0x52b @0x5
0x0526…0543 at0006 = ╱55╱U╱ // 0x52c @0x6
0x0526…0543 at0007 = ╱44╱D╱ // 0x52d @0x7
0x0526…0543 at0008 = ╱ed╱(╱ // 0x52e @0x8
0x0526…0543 at0009 = ╱42╱B╱ // 0x52f @0x9
0x0526…0543 at000a = ╱4c╱L╱ // 0x530 @0xa
0x0526…0543 at000b = ╱42╱B╱ // 0x531 @0xb
0x0526…0543 at000c = ╱ec╱,╱ // 0x532 @0xc
0x0526…0543 at000d = ╱55╱U╱ // 0x533 @0xd
0x0526…0543 at000e = ╱42╱B╱ // 0x534 @0xe
0x0526…0543 at000f = ╱4c╱L╱ // 0x535 @0xf
0x0526…0543 at0010 = ╱42╱B╱ // 0x536 @0x10
0x0526…0543 at0011 = ╱ec╱,╱ // 0x537 @0x11
0x0526…0543 at0012 = ╱54╱T╱ // 0x538 @0x12
0x0526…0543 at0013 = ╱45╱E╱ // 0x539 @0x13
0x0526…0543 at0014 = ╱47╱G╱ // 0x53a @0x14
0x0526…0543 at0015 = ╱4e╱N╱ // 0x53b @0x15
0x0526…0543 at0016 = ╱ec╱,╱ // 0x53c @0x16
0x0526…0543 at0017 = ╱53╱S╱ // 0x53d @0x17
0x0526…0543 at0018 = ╱54╱T╱ // 0x53e @0x18
0x0526…0543 at0019 = ╱5c╱Ø╱ // 0x53f @0x19
0x0526…0543 at001a = ╱52╱R╱ // 0x540 @0x1a
0x0526…0543 at001b = ╱ee╱)╱ // 0x541 @0x1b
0x0526…0543 at001c = EOL // 0x542 @0x1c
0x0526…0543 }
0x0543…0565 92bc 0310 EXEC CALC(5,BLB$,TAH$,UBLB$)
0x0543…0565 LineComalBin {
0x0543…0565 ptr = 0x92bc // 0x543 @0x0
0x0543…0565 lno = 0x0136 // 0x545 @0x2
0x0543…0565 at0004 = ╱9d╱ EXEC ╱ // 0x547 @0x4
0x0543…0565 at0005 = ╱43╱C╱ // 0x548 @0x5
0x0543…0565 at0006 = ╱41╱A╱ // 0x549 @0x6
0x0543…0565 at0007 = ╱4c╱L╱ // 0x54a @0x7
0x0543…0565 at0008 = ╱43╱C╱ // 0x54b @0x8
0x0543…0565 at0009 = ╱ed╱(╱ // 0x54c @0x9
0x0543…0565 at000a = ╱35╱5╱ // 0x54d @0xa
0x0543…0565 at000b = ╱fe0000a003╱ // 0x54e @0xb
0x0543…0565 at0010 = ╱ec╱,╱ // 0x553 @0x10
0x0543…0565 at0011 = ╱42╱B╱ // 0x554 @0x11
0x0543…0565 at0012 = ╱4c╱L╱ // 0x555 @0x12
0x0543…0565 at0013 = ╱42╱B╱ // 0x556 @0x13
0x0543…0565 at0014 = ╱ef╱$╱ // 0x557 @0x14
0x0543…0565 at0015 = ╱ec╱,╱ // 0x558 @0x15
0x0543…0565 at0016 = ╱54╱T╱ // 0x559 @0x16
0x0543…0565 at0017 = ╱41╱A╱ // 0x55a @0x17
0x0543…0565 at0018 = ╱48╱H╱ // 0x55b @0x18
0x0543…0565 at0019 = ╱ef╱$╱ // 0x55c @0x19
0x0543…0565 at001a = ╱ec╱,╱ // 0x55d @0x1a
0x0543…0565 at001b = ╱55╱U╱ // 0x55e @0x1b
0x0543…0565 at001c = ╱42╱B╱ // 0x55f @0x1c
0x0543…0565 at001d = ╱4c╱L╱ // 0x560 @0x1d
0x0543…0565 at001e = ╱42╱B╱ // 0x561 @0x1e
0x0543…0565 at001f = ╱ef╱$╱ // 0x562 @0x1f
0x0543…0565 at0020 = ╱ee╱)╱ // 0x563 @0x20
0x0543…0565 at0021 = EOL // 0x564 @0x21
0x0543…0565 }
0x0565…0588 92df 0320 IF TEGN=B THEN UBLB$=UBLB$(E:13)
0x0565…0588 LineComalBin {
0x0565…0588 ptr = 0x92df // 0x565 @0x0
0x0565…0588 lno = 0x0140 // 0x567 @0x2
0x0565…0588 at0004 = ╱82╱ IF ╱ // 0x569 @0x4
0x0565…0588 at0005 = ╱54╱T╱ // 0x56a @0x5
0x0565…0588 at0006 = ╱45╱E╱ // 0x56b @0x6
0x0565…0588 at0007 = ╱47╱G╱ // 0x56c @0x7
0x0565…0588 at0008 = ╱4e╱N╱ // 0x56d @0x8
0x0565…0588 at0009 = ╱dc╱=╱ // 0x56e @0x9
0x0565…0588 at000a = ╱42╱B╱ // 0x56f @0xa
0x0565…0588 at000b = ╱b6╱ THEN ╱ // 0x570 @0xb
0x0565…0588 at000c = ╱55╱U╱ // 0x571 @0xc
0x0565…0588 at000d = ╱42╱B╱ // 0x572 @0xd
0x0565…0588 at000e = ╱4c╱L╱ // 0x573 @0xe
0x0565…0588 at000f = ╱42╱B╱ // 0x574 @0xf
0x0565…0588 at0010 = ╱ef╱$╱ // 0x575 @0x10
0x0565…0588 at0011 = ╱dc╱=╱ // 0x576 @0x11
0x0565…0588 at0012 = ╱55╱U╱ // 0x577 @0x12
0x0565…0588 at0013 = ╱42╱B╱ // 0x578 @0x13
0x0565…0588 at0014 = ╱4c╱L╱ // 0x579 @0x14
0x0565…0588 at0015 = ╱42╱B╱ // 0x57a @0x15
0x0565…0588 at0016 = ╱ef╱$╱ // 0x57b @0x16
0x0565…0588 at0017 = ╱ed╱(╱ // 0x57c @0x17
0x0565…0588 at0018 = ╱45╱E╱ // 0x57d @0x18
0x0565…0588 at0019 = ╱f0╱:╱ // 0x57e @0x19
0x0565…0588 at001a = ╱31╱1╱ // 0x57f @0x1a
0x0565…0588 at001b = ╱33╱3╱ // 0x580 @0x1b
0x0565…0588 at001c = ╱fe0000d004╱ // 0x581 @0x1c
0x0565…0588 at0021 = ╱ee╱)╱ // 0x586 @0x21
0x0565…0588 at0022 = EOL // 0x587 @0x22
0x0565…0588 }
0x0588…05bc 9313 0350 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN UBLB$(LEN(UBLB$))=" "
0x0588…05bc LineComalBin {
0x0588…05bc ptr = 0x9313 // 0x588 @0x0
0x0588…05bc lno = 0x015e // 0x58a @0x2
0x0588…05bc at0004 = ╱82╱ IF ╱ // 0x58c @0x4
0x0588…05bc at0005 = ╱54╱T╱ // 0x58d @0x5
0x0588…05bc at0006 = ╱45╱E╱ // 0x58e @0x6
0x0588…05bc at0007 = ╱47╱G╱ // 0x58f @0x7
0x0588…05bc at0008 = ╱4e╱N╱ // 0x590 @0x8
0x0588…05bc at0009 = ╱dc╱=╱ // 0x591 @0x9
0x0588…05bc at000a = ╱45╱E╱ // 0x592 @0xa
0x0588…05bc at000b = ╱da╱ AND ╱ // 0x593 @0xb
0x0588…05bc at000c = ╱55╱U╱ // 0x594 @0xc
0x0588…05bc at000d = ╱42╱B╱ // 0x595 @0xd
0x0588…05bc at000e = ╱4c╱L╱ // 0x596 @0xe
0x0588…05bc at000f = ╱42╱B╱ // 0x597 @0xf
0x0588…05bc at0010 = ╱ef╱$╱ // 0x598 @0x10
0x0588…05bc at0011 = ╱ed╱(╱ // 0x599 @0x11
0x0588…05bc at0012 = ╱cc╱LEN╱ // 0x59a @0x12
0x0588…05bc at0013 = ╱ed╱(╱ // 0x59b @0x13
0x0588…05bc at0014 = ╱55╱U╱ // 0x59c @0x14
0x0588…05bc at0015 = ╱42╱B╱ // 0x59d @0x15
0x0588…05bc at0016 = ╱4c╱L╱ // 0x59e @0x16
0x0588…05bc at0017 = ╱42╱B╱ // 0x59f @0x17
0x0588…05bc at0018 = ╱ef╱$╱ // 0x5a0 @0x18
0x0588…05bc at0019 = ╱ee╱)╱ // 0x5a1 @0x19
0x0588…05bc at001a = ╱ee╱)╱ // 0x5a2 @0x1a
0x0588…05bc at001b = ╱dc╱=╱ // 0x5a3 @0x1b
0x0588…05bc at001c = ╱22╱"╱ // 0x5a4 @0x1c
0x0588…05bc at001d = ╱2b╱+╱ // 0x5a5 @0x1d
0x0588…05bc at001e = ╱22╱"╱ // 0x5a6 @0x1e
0x0588…05bc at001f = ╱b6╱ THEN ╱ // 0x5a7 @0x1f
0x0588…05bc at0020 = ╱55╱U╱ // 0x5a8 @0x20
0x0588…05bc at0021 = ╱42╱B╱ // 0x5a9 @0x21
0x0588…05bc at0022 = ╱4c╱L╱ // 0x5aa @0x22
0x0588…05bc at0023 = ╱42╱B╱ // 0x5ab @0x23
0x0588…05bc at0024 = ╱ef╱$╱ // 0x5ac @0x24
0x0588…05bc at0025 = ╱ed╱(╱ // 0x5ad @0x25
0x0588…05bc at0026 = ╱cc╱LEN╱ // 0x5ae @0x26
0x0588…05bc at0027 = ╱ed╱(╱ // 0x5af @0x27
0x0588…05bc at0028 = ╱55╱U╱ // 0x5b0 @0x28
0x0588…05bc at0029 = ╱42╱B╱ // 0x5b1 @0x29
0x0588…05bc at002a = ╱4c╱L╱ // 0x5b2 @0x2a
0x0588…05bc at002b = ╱42╱B╱ // 0x5b3 @0x2b
0x0588…05bc at002c = ╱ef╱$╱ // 0x5b4 @0x2c
0x0588…05bc at002d = ╱ee╱)╱ // 0x5b5 @0x2d
0x0588…05bc at002e = ╱ee╱)╱ // 0x5b6 @0x2e
0x0588…05bc at002f = ╱dc╱=╱ // 0x5b7 @0x2f
0x0588…05bc at0030 = ╱22╱"╱ // 0x5b8 @0x30
0x0588…05bc at0031 = ╱20╱…╱ // 0x5b9 @0x31
0x0588…05bc at0032 = ╱22╱"╱ // 0x5ba @0x32
0x0588…05bc at0033 = EOL // 0x5bb @0x33
0x0588…05bc }
0x05bc…05e7 933e 0390 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V)
0x05bc…05e7 LineComalBin {
0x05bc…05e7 ptr = 0x933e // 0x5bc @0x0
0x05bc…05e7 lno = 0x0186 // 0x5be @0x2
0x05bc…05e7 at0004 = ╱82╱ IF ╱ // 0x5c0 @0x4
0x05bc…05e7 at0005 = ╱53╱S╱ // 0x5c1 @0x5
0x05bc…05e7 at0006 = ╱54╱T╱ // 0x5c2 @0x6
0x05bc…05e7 at0007 = ╱5c╱Ø╱ // 0x5c3 @0x7
0x05bc…05e7 at0008 = ╱52╱R╱ // 0x5c4 @0x8
0x05bc…05e7 at0009 = ╱dc╱=╱ // 0x5c5 @0x9
0x05bc…05e7 at000a = ╱45╱E╱ // 0x5c6 @0xa
0x05bc…05e7 at000b = ╱b6╱ THEN ╱ // 0x5c7 @0xb
0x05bc…05e7 at000c = ╱55╱U╱ // 0x5c8 @0xc
0x05bc…05e7 at000d = ╱42╱B╱ // 0x5c9 @0xd
0x05bc…05e7 at000e = ╱4c╱L╱ // 0x5ca @0xe
0x05bc…05e7 at000f = ╱42╱B╱ // 0x5cb @0xf
0x05bc…05e7 at0010 = ╱ef╱$╱ // 0x5cc @0x10
0x05bc…05e7 at0011 = ╱dc╱=╱ // 0x5cd @0x11
0x05bc…05e7 at0012 = ╱55╱U╱ // 0x5ce @0x12
0x05bc…05e7 at0013 = ╱42╱B╱ // 0x5cf @0x13
0x05bc…05e7 at0014 = ╱4c╱L╱ // 0x5d0 @0x14
0x05bc…05e7 at0015 = ╱42╱B╱ // 0x5d1 @0x15
0x05bc…05e7 at0016 = ╱ef╱$╱ // 0x5d2 @0x16
0x05bc…05e7 at0017 = ╱ed╱(╱ // 0x5d3 @0x17
0x05bc…05e7 at0018 = ╱34╱4╱ // 0x5d4 @0x18
0x05bc…05e7 at0019 = ╱fe00008003╱ // 0x5d5 @0x19
0x05bc…05e7 at001e = ╱f0╱:╱ // 0x5da @0x1e
0x05bc…05e7 at001f = ╱cc╱LEN╱ // 0x5db @0x1f
0x05bc…05e7 at0020 = ╱ed╱(╱ // 0x5dc @0x20
0x05bc…05e7 at0021 = ╱55╱U╱ // 0x5dd @0x21
0x05bc…05e7 at0022 = ╱42╱B╱ // 0x5de @0x22
0x05bc…05e7 at0023 = ╱4c╱L╱ // 0x5df @0x23
0x05bc…05e7 at0024 = ╱42╱B╱ // 0x5e0 @0x24
0x05bc…05e7 at0025 = ╱ef╱$╱ // 0x5e1 @0x25
0x05bc…05e7 at0026 = ╱ee╱)╱ // 0x5e2 @0x26
0x05bc…05e7 at0027 = ╱e3╱-╱ // 0x5e3 @0x27
0x05bc…05e7 at0028 = ╱56╱V╱ // 0x5e4 @0x28
0x05bc…05e7 at0029 = ╱ee╱)╱ // 0x5e5 @0x29
0x05bc…05e7 at002a = EOL // 0x5e6 @0x2a
0x05bc…05e7 }
0x05e7…05ed 9344 0420 ENDPROC
0x05e7…05ed LineComalBin {
0x05e7…05ed ptr = 0x9344 // 0x5e7 @0x0
0x05e7…05ed lno = 0x01a4 // 0x5e9 @0x2
0x05e7…05ed at0004 = ╱9f╱ ENDPROC ╱ // 0x5eb @0x4
0x05e7…05ed at0005 = EOL // 0x5ec @0x5
0x05e7…05ed }
0x05ed…0604 935b 0430 PROC FEJL(NR1,NR2,NR3)
0x05ed…0604 LineComalBin {
0x05ed…0604 ptr = 0x935b // 0x5ed @0x0
0x05ed…0604 lno = 0x01ae // 0x5ef @0x2
0x05ed…0604 at0004 = ╱9e╱ PROC ╱ // 0x5f1 @0x4
0x05ed…0604 at0005 = ╱46╱F╱ // 0x5f2 @0x5
0x05ed…0604 at0006 = ╱45╱E╱ // 0x5f3 @0x6
0x05ed…0604 at0007 = ╱4a╱J╱ // 0x5f4 @0x7
0x05ed…0604 at0008 = ╱4c╱L╱ // 0x5f5 @0x8
0x05ed…0604 at0009 = ╱ed╱(╱ // 0x5f6 @0x9
0x05ed…0604 at000a = ╱4e╱N╱ // 0x5f7 @0xa
0x05ed…0604 at000b = ╱52╱R╱ // 0x5f8 @0xb
0x05ed…0604 at000c = ╱31╱1╱ // 0x5f9 @0xc
0x05ed…0604 at000d = ╱ec╱,╱ // 0x5fa @0xd
0x05ed…0604 at000e = ╱4e╱N╱ // 0x5fb @0xe
0x05ed…0604 at000f = ╱52╱R╱ // 0x5fc @0xf
0x05ed…0604 at0010 = ╱32╱2╱ // 0x5fd @0x10
0x05ed…0604 at0011 = ╱ec╱,╱ // 0x5fe @0x11
0x05ed…0604 at0012 = ╱4e╱N╱ // 0x5ff @0x12
0x05ed…0604 at0013 = ╱52╱R╱ // 0x600 @0x13
0x05ed…0604 at0014 = ╱33╱3╱ // 0x601 @0x14
0x05ed…0604 at0015 = ╱ee╱)╱ // 0x602 @0x15
0x05ed…0604 at0016 = EOL // 0x603 @0x16
0x05ed…0604 }
0x0604…0614 (20,) 936b 0440 IF STATUS(NR3$)<>B THEN
0x0604…0614 LineComalBin {
0x0604…0614 ptr = 0x936b // 0x604 @0x0
0x0604…0614 lno = 0x01b8 // 0x606 @0x2
0x0604…0614 at0004 = ╱9c╱ IF ╱ // 0x608 @0x4
0x0604…0614 at0005 = ╱ce╱STATUS╱ // 0x609 @0x5
0x0604…0614 at0006 = ╱ed╱(╱ // 0x60a @0x6
0x0604…0614 at0007 = ╱4e╱N╱ // 0x60b @0x7
0x0604…0614 at0008 = ╱52╱R╱ // 0x60c @0x8
0x0604…0614 at0009 = ╱33╱3╱ // 0x60d @0x9
0x0604…0614 at000a = ╱ef╱$╱ // 0x60e @0xa
0x0604…0614 at000b = ╱ee╱)╱ // 0x60f @0xb
0x0604…0614 at000c = ╱e1╱<>╱ // 0x610 @0xc
0x0604…0614 at000d = ╱42╱B╱ // 0x611 @0xd
0x0604…0614 at000e = ╱b6╱ THEN ╱ // 0x612 @0xe
0x0604…0614 at000f = EOL // 0x613 @0xf
0x0604…0614 }
0x0614…062e 9385 0450 PRINT NR1,NR2,NR3$,STATUS(NR3$)
0x0614…062e LineComalBin {
0x0614…062e ptr = 0x9385 // 0x614 @0x0
0x0614…062e lno = 0x01c2 // 0x616 @0x2
0x0614…062e at0004 = ╱92╱ PRINT ╱ // 0x618 @0x4
0x0614…062e at0005 = ╱4e╱N╱ // 0x619 @0x5
0x0614…062e at0006 = ╱52╱R╱ // 0x61a @0x6
0x0614…062e at0007 = ╱31╱1╱ // 0x61b @0x7
0x0614…062e at0008 = ╱ec╱,╱ // 0x61c @0x8
0x0614…062e at0009 = ╱4e╱N╱ // 0x61d @0x9
0x0614…062e at000a = ╱52╱R╱ // 0x61e @0xa
0x0614…062e at000b = ╱32╱2╱ // 0x61f @0xb
0x0614…062e at000c = ╱ec╱,╱ // 0x620 @0xc
0x0614…062e at000d = ╱4e╱N╱ // 0x621 @0xd
0x0614…062e at000e = ╱52╱R╱ // 0x622 @0xe
0x0614…062e at000f = ╱33╱3╱ // 0x623 @0xf
0x0614…062e at0010 = ╱ef╱$╱ // 0x624 @0x10
0x0614…062e at0011 = ╱ec╱,╱ // 0x625 @0x11
0x0614…062e at0012 = ╱ce╱STATUS╱ // 0x626 @0x12
0x0614…062e at0013 = ╱ed╱(╱ // 0x627 @0x13
0x0614…062e at0014 = ╱4e╱N╱ // 0x628 @0x14
0x0614…062e at0015 = ╱52╱R╱ // 0x629 @0x15
0x0614…062e at0016 = ╱33╱3╱ // 0x62a @0x16
0x0614…062e at0017 = ╱ef╱$╱ // 0x62b @0x17
0x0614…062e at0018 = ╱ee╱)╱ // 0x62c @0x18
0x0614…062e at0019 = EOL // 0x62d @0x19
0x0614…062e }
0x062e…0634 938b 0460 STOP
0x062e…0634 LineComalBin {
0x062e…0634 ptr = 0x938b // 0x62e @0x0
0x062e…0634 lno = 0x01cc // 0x630 @0x2
0x062e…0634 at0004 = ╱8d╱ STOP ╱ // 0x632 @0x4
0x062e…0634 at0005 = EOL // 0x633 @0x5
0x062e…0634 }
0x0634…063a 9391 0470 ENDIF
0x0634…063a LineComalBin {
0x0634…063a ptr = 0x9391 // 0x634 @0x0
0x0634…063a lno = 0x01d6 // 0x636 @0x2
0x0634…063a at0004 = ╱9b╱ ENDIF ╱ // 0x638 @0x4
0x0634…063a at0005 = EOL // 0x639 @0x5
0x0634…063a }
0x063a…0640 9397 0480 ENDPROC
0x063a…0640 LineComalBin {
0x063a…0640 ptr = 0x9397 // 0x63a @0x0
0x063a…0640 lno = 0x01e0 // 0x63c @0x2
0x063a…0640 at0004 = ╱9f╱ ENDPROC ╱ // 0x63e @0x4
0x063a…0640 at0005 = EOL // 0x63f @0x5
0x063a…0640 }
0x0640…066d 93c4 0490 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34)
0x0640…066d LineComalBin {
0x0640…066d ptr = 0x93c4 // 0x640 @0x0
0x0640…066d lno = 0x01ea // 0x642 @0x2
0x0640…066d at0004 = ╱9e╱ PROC ╱ // 0x644 @0x4
0x0640…066d at0005 = ╱53╱S╱ // 0x645 @0x5
0x0640…066d at0006 = ╱5c╱Ø╱ // 0x646 @0x6
0x0640…066d at0007 = ╱47╱G╱ // 0x647 @0x7
0x0640…066d at0008 = ╱ed╱(╱ // 0x648 @0x8
0x0640…066d at0009 = ╱4d╱M╱ // 0x649 @0x9
0x0640…066d at000a = ╱50╱P╱ // 0x64a @0xa
0x0640…066d at000b = ╱4f╱O╱ // 0x64b @0xb
0x0640…066d at000c = ╱53╱S╱ // 0x64c @0xc
0x0640…066d at000d = ╱54╱T╱ // 0x64d @0xd
0x0640…066d at000e = ╱41╱A╱ // 0x64e @0xe
0x0640…066d at000f = ╱4e╱N╱ // 0x64f @0xf
0x0640…066d at0010 = ╱54╱T╱ // 0x650 @0x10
0x0640…066d at0011 = ╱41╱A╱ // 0x651 @0x11
0x0640…066d at0012 = ╱4c╱L╱ // 0x652 @0x12
0x0640…066d at0013 = ╱36╱6╱ // 0x653 @0x13
0x0640…066d at0014 = ╱ec╱,╱ // 0x654 @0x14
0x0640…066d at0015 = ╱48╱H╱ // 0x655 @0x15
0x0640…066d at0016 = ╱54╱T╱ // 0x656 @0x16
0x0640…066d at0017 = ╱41╱A╱ // 0x657 @0x17
0x0640…066d at0018 = ╱42╱B╱ // 0x658 @0x18
0x0640…066d at0019 = ╱33╱3╱ // 0x659 @0x19
0x0640…066d at001a = ╱ec╱,╱ // 0x65a @0x1a
0x0640…066d at001b = ╱4e╱N╱ // 0x65b @0x1b
0x0640…066d at001c = ╱5c╱Ø╱ // 0x65c @0x1c
0x0640…066d at001d = ╱47╱G╱ // 0x65d @0x1d
0x0640…066d at001e = ╱4c╱L╱ // 0x65e @0x1e
0x0640…066d at001f = ╱45╱E╱ // 0x65f @0x1f
0x0640…066d at0020 = ╱33╱3╱ // 0x660 @0x20
0x0640…066d at0021 = ╱ec╱,╱ // 0x661 @0x21
0x0640…066d at0022 = ╱55╱U╱ // 0x662 @0x22
0x0640…066d at0023 = ╱54╱T╱ // 0x663 @0x23
0x0640…066d at0024 = ╱41╱A╱ // 0x664 @0x24
0x0640…066d at0025 = ╱42╱B╱ // 0x665 @0x25
0x0640…066d at0026 = ╱33╱3╱ // 0x666 @0x26
0x0640…066d at0027 = ╱ec╱,╱ // 0x667 @0x27
0x0640…066d at0028 = ╱4b╱K╱ // 0x668 @0x28
0x0640…066d at0029 = ╱33╱3╱ // 0x669 @0x29
0x0640…066d at002a = ╱34╱4╱ // 0x66a @0x2a
0x0640…066d at002b = ╱ee╱)╱ // 0x66b @0x2b
0x0640…066d at002c = EOL // 0x66c @0x2c
0x0640…066d }
0x066d…0695 93ec 0510 PPIL2=MPOSTANTAL6 DIV 40+E;PPIL1=B
0x066d…0695 LineComalBin {
0x066d…0695 ptr = 0x93ec // 0x66d @0x0
0x066d…0695 lno = 0x01fe // 0x66f @0x2
0x066d…0695 at0004 = ╱50╱P╱ // 0x671 @0x4
0x066d…0695 at0005 = ╱50╱P╱ // 0x672 @0x5
0x066d…0695 at0006 = ╱49╱I╱ // 0x673 @0x6
0x066d…0695 at0007 = ╱4c╱L╱ // 0x674 @0x7
0x066d…0695 at0008 = ╱32╱2╱ // 0x675 @0x8
0x066d…0695 at0009 = ╱dc╱=╱ // 0x676 @0x9
0x066d…0695 at000a = ╱4d╱M╱ // 0x677 @0xa
0x066d…0695 at000b = ╱50╱P╱ // 0x678 @0xb
0x066d…0695 at000c = ╱4f╱O╱ // 0x679 @0xc
0x066d…0695 at000d = ╱53╱S╱ // 0x67a @0xd
0x066d…0695 at000e = ╱54╱T╱ // 0x67b @0xe
0x066d…0695 at000f = ╱41╱A╱ // 0x67c @0xf
0x066d…0695 at0010 = ╱4e╱N╱ // 0x67d @0x10
0x066d…0695 at0011 = ╱54╱T╱ // 0x67e @0x11
0x066d…0695 at0012 = ╱41╱A╱ // 0x67f @0x12
0x066d…0695 at0013 = ╱4c╱L╱ // 0x680 @0x13
0x066d…0695 at0014 = ╱36╱6╱ // 0x681 @0x14
0x066d…0695 at0015 = ╱e7╱ DIV ╱ // 0x682 @0x15
0x066d…0695 at0016 = ╱34╱4╱ // 0x683 @0x16
0x066d…0695 at0017 = ╱30╱0╱ // 0x684 @0x17
0x066d…0695 at0018 = ╱fe0000a006╱ // 0x685 @0x18
0x066d…0695 at001d = ╱e2╱+╱ // 0x68a @0x1d
0x066d…0695 at001e = ╱45╱E╱ // 0x68b @0x1e
0x066d…0695 at001f = ╱eb╱;╱ // 0x68c @0x1f
0x066d…0695 at0020 = ╱50╱P╱ // 0x68d @0x20
0x066d…0695 at0021 = ╱50╱P╱ // 0x68e @0x21
0x066d…0695 at0022 = ╱49╱I╱ // 0x68f @0x22
0x066d…0695 at0023 = ╱4c╱L╱ // 0x690 @0x23
0x066d…0695 at0024 = ╱31╱1╱ // 0x691 @0x24
0x066d…0695 at0025 = ╱dc╱=╱ // 0x692 @0x25
0x066d…0695 at0026 = ╱42╱B╱ // 0x693 @0x26
0x066d…0695 at0027 = EOL // 0x694 @0x27
0x066d…0695 }
0x0695…069b 93f2 0520 REPEAT
0x0695…069b LineComalBin {
0x0695…069b ptr = 0x93f2 // 0x695 @0x0
0x0695…069b lno = 0x0208 // 0x697 @0x2
0x0695…069b at0004 = ╱97╱ REPEAT ╱ // 0x699 @0x4
0x0695…069b at0005 = EOL // 0x69a @0x5
0x0695…069b }
0x069b…06b5 940c 0530 PPIL3=(PPIL1+PPIL2) DIV G
0x069b…06b5 LineComalBin {
0x069b…06b5 ptr = 0x940c // 0x69b @0x0
0x069b…06b5 lno = 0x0212 // 0x69d @0x2
0x069b…06b5 at0004 = ╱50╱P╱ // 0x69f @0x4
0x069b…06b5 at0005 = ╱50╱P╱ // 0x6a0 @0x5
0x069b…06b5 at0006 = ╱49╱I╱ // 0x6a1 @0x6
0x069b…06b5 at0007 = ╱4c╱L╱ // 0x6a2 @0x7
0x069b…06b5 at0008 = ╱33╱3╱ // 0x6a3 @0x8
0x069b…06b5 at0009 = ╱dc╱=╱ // 0x6a4 @0x9
0x069b…06b5 at000a = ╱ed╱(╱ // 0x6a5 @0xa
0x069b…06b5 at000b = ╱50╱P╱ // 0x6a6 @0xb
0x069b…06b5 at000c = ╱50╱P╱ // 0x6a7 @0xc
0x069b…06b5 at000d = ╱49╱I╱ // 0x6a8 @0xd
0x069b…06b5 at000e = ╱4c╱L╱ // 0x6a9 @0xe
0x069b…06b5 at000f = ╱31╱1╱ // 0x6aa @0xf
0x069b…06b5 at0010 = ╱e2╱+╱ // 0x6ab @0x10
0x069b…06b5 at0011 = ╱50╱P╱ // 0x6ac @0x11
0x069b…06b5 at0012 = ╱50╱P╱ // 0x6ad @0x12
0x069b…06b5 at0013 = ╱49╱I╱ // 0x6ae @0x13
0x069b…06b5 at0014 = ╱4c╱L╱ // 0x6af @0x14
0x069b…06b5 at0015 = ╱32╱2╱ // 0x6b0 @0x15
0x069b…06b5 at0016 = ╱ee╱)╱ // 0x6b1 @0x16
0x069b…06b5 at0017 = ╱e7╱ DIV ╱ // 0x6b2 @0x17
0x069b…06b5 at0018 = ╱47╱G╱ // 0x6b3 @0x18
0x069b…06b5 at0019 = EOL // 0x6b4 @0x19
0x069b…06b5 }
0x06b5…06d2 9429 0540 IF HTAB3(PPIL3,E)=NØGLE3 THEN EXIT
0x06b5…06d2 LineComalBin {
0x06b5…06d2 ptr = 0x9429 // 0x6b5 @0x0
0x06b5…06d2 lno = 0x021c // 0x6b7 @0x2
0x06b5…06d2 at0004 = ╱82╱ IF ╱ // 0x6b9 @0x4
0x06b5…06d2 at0005 = ╱48╱H╱ // 0x6ba @0x5
0x06b5…06d2 at0006 = ╱54╱T╱ // 0x6bb @0x6
0x06b5…06d2 at0007 = ╱41╱A╱ // 0x6bc @0x7
0x06b5…06d2 at0008 = ╱42╱B╱ // 0x6bd @0x8
0x06b5…06d2 at0009 = ╱33╱3╱ // 0x6be @0x9
0x06b5…06d2 at000a = ╱ed╱(╱ // 0x6bf @0xa
0x06b5…06d2 at000b = ╱50╱P╱ // 0x6c0 @0xb
0x06b5…06d2 at000c = ╱50╱P╱ // 0x6c1 @0xc
0x06b5…06d2 at000d = ╱49╱I╱ // 0x6c2 @0xd
0x06b5…06d2 at000e = ╱4c╱L╱ // 0x6c3 @0xe
0x06b5…06d2 at000f = ╱33╱3╱ // 0x6c4 @0xf
0x06b5…06d2 at0010 = ╱ec╱,╱ // 0x6c5 @0x10
0x06b5…06d2 at0011 = ╱45╱E╱ // 0x6c6 @0x11
0x06b5…06d2 at0012 = ╱ee╱)╱ // 0x6c7 @0x12
0x06b5…06d2 at0013 = ╱dc╱=╱ // 0x6c8 @0x13
0x06b5…06d2 at0014 = ╱4e╱N╱ // 0x6c9 @0x14
0x06b5…06d2 at0015 = ╱5c╱Ø╱ // 0x6ca @0x15
0x06b5…06d2 at0016 = ╱47╱G╱ // 0x6cb @0x16
0x06b5…06d2 at0017 = ╱4c╱L╱ // 0x6cc @0x17
0x06b5…06d2 at0018 = ╱45╱E╱ // 0x6cd @0x18
0x06b5…06d2 at0019 = ╱33╱3╱ // 0x6ce @0x19
0x06b5…06d2 at001a = ╱b6╱ THEN ╱ // 0x6cf @0x1a
0x06b5…06d2 at001b = ╱99╱ EXIT ╱ // 0x6d0 @0x1b
0x06b5…06d2 at001c = EOL // 0x6d1 @0x1c
0x06b5…06d2 }
0x06d2…06ee 9445 0550 IF HTAB3(PPIL3,E)>NØGLE3 THEN
0x06d2…06ee LineComalBin {
0x06d2…06ee ptr = 0x9445 // 0x6d2 @0x0
0x06d2…06ee lno = 0x0226 // 0x6d4 @0x2
0x06d2…06ee at0004 = ╱9c╱ IF ╱ // 0x6d6 @0x4
0x06d2…06ee at0005 = ╱48╱H╱ // 0x6d7 @0x5
0x06d2…06ee at0006 = ╱54╱T╱ // 0x6d8 @0x6
0x06d2…06ee at0007 = ╱41╱A╱ // 0x6d9 @0x7
0x06d2…06ee at0008 = ╱42╱B╱ // 0x6da @0x8
0x06d2…06ee at0009 = ╱33╱3╱ // 0x6db @0x9
0x06d2…06ee at000a = ╱ed╱(╱ // 0x6dc @0xa
0x06d2…06ee at000b = ╱50╱P╱ // 0x6dd @0xb
0x06d2…06ee at000c = ╱50╱P╱ // 0x6de @0xc
0x06d2…06ee at000d = ╱49╱I╱ // 0x6df @0xd
0x06d2…06ee at000e = ╱4c╱L╱ // 0x6e0 @0xe
0x06d2…06ee at000f = ╱33╱3╱ // 0x6e1 @0xf
0x06d2…06ee at0010 = ╱ec╱,╱ // 0x6e2 @0x10
0x06d2…06ee at0011 = ╱45╱E╱ // 0x6e3 @0x11
0x06d2…06ee at0012 = ╱ee╱)╱ // 0x6e4 @0x12
0x06d2…06ee at0013 = ╱de╱>╱ // 0x6e5 @0x13
0x06d2…06ee at0014 = ╱4e╱N╱ // 0x6e6 @0x14
0x06d2…06ee at0015 = ╱5c╱Ø╱ // 0x6e7 @0x15
0x06d2…06ee at0016 = ╱47╱G╱ // 0x6e8 @0x16
0x06d2…06ee at0017 = ╱4c╱L╱ // 0x6e9 @0x17
0x06d2…06ee at0018 = ╱45╱E╱ // 0x6ea @0x18
0x06d2…06ee at0019 = ╱33╱3╱ // 0x6eb @0x19
0x06d2…06ee at001a = ╱b6╱ THEN ╱ // 0x6ec @0x1a
0x06d2…06ee at001b = EOL // 0x6ed @0x1b
0x06d2…06ee }
0x06ee…06fe 9455 0560 PPIL2=PPIL3
0x06ee…06fe LineComalBin {
0x06ee…06fe ptr = 0x9455 // 0x6ee @0x0
0x06ee…06fe lno = 0x0230 // 0x6f0 @0x2
0x06ee…06fe at0004 = ╱50╱P╱ // 0x6f2 @0x4
0x06ee…06fe at0005 = ╱50╱P╱ // 0x6f3 @0x5
0x06ee…06fe at0006 = ╱49╱I╱ // 0x6f4 @0x6
0x06ee…06fe at0007 = ╱4c╱L╱ // 0x6f5 @0x7
0x06ee…06fe at0008 = ╱32╱2╱ // 0x6f6 @0x8
0x06ee…06fe at0009 = ╱dc╱=╱ // 0x6f7 @0x9
0x06ee…06fe at000a = ╱50╱P╱ // 0x6f8 @0xa
0x06ee…06fe at000b = ╱50╱P╱ // 0x6f9 @0xb
0x06ee…06fe at000c = ╱49╱I╱ // 0x6fa @0xc
0x06ee…06fe at000d = ╱4c╱L╱ // 0x6fb @0xd
0x06ee…06fe at000e = ╱33╱3╱ // 0x6fc @0xe
0x06ee…06fe at000f = EOL // 0x6fd @0xf
0x06ee…06fe }
0x06fe…0704 945b 0570 ELSE
0x06fe…0704 LineComalBin {
0x06fe…0704 ptr = 0x945b // 0x6fe @0x0
0x06fe…0704 lno = 0x023a // 0x700 @0x2
0x06fe…0704 at0004 = ╱9a╱ ELSE ╱ // 0x702 @0x4
0x06fe…0704 at0005 = EOL // 0x703 @0x5
0x06fe…0704 }
0x0704…0714 946b 0580 PPIL1=PPIL3
0x0704…0714 LineComalBin {
0x0704…0714 ptr = 0x946b // 0x704 @0x0
0x0704…0714 lno = 0x0244 // 0x706 @0x2
0x0704…0714 at0004 = ╱50╱P╱ // 0x708 @0x4
0x0704…0714 at0005 = ╱50╱P╱ // 0x709 @0x5
0x0704…0714 at0006 = ╱49╱I╱ // 0x70a @0x6
0x0704…0714 at0007 = ╱4c╱L╱ // 0x70b @0x7
0x0704…0714 at0008 = ╱31╱1╱ // 0x70c @0x8
0x0704…0714 at0009 = ╱dc╱=╱ // 0x70d @0x9
0x0704…0714 at000a = ╱50╱P╱ // 0x70e @0xa
0x0704…0714 at000b = ╱50╱P╱ // 0x70f @0xb
0x0704…0714 at000c = ╱49╱I╱ // 0x710 @0xc
0x0704…0714 at000d = ╱4c╱L╱ // 0x711 @0xd
0x0704…0714 at000e = ╱33╱3╱ // 0x712 @0xe
0x0704…0714 at000f = EOL // 0x713 @0xf
0x0704…0714 }
0x0714…071a 9471 0590 ENDIF
0x0714…071a LineComalBin {
0x0714…071a ptr = 0x9471 // 0x714 @0x0
0x0714…071a lno = 0x024e // 0x716 @0x2
0x0714…071a at0004 = ╱9b╱ ENDIF ╱ // 0x718 @0x4
0x0714…071a at0005 = EOL // 0x719 @0x5
0x0714…071a }
0x071a…072d 9484 0600 UNTIL PPIL2<=PPIL1+E
0x071a…072d LineComalBin {
0x071a…072d ptr = 0x9484 // 0x71a @0x0
0x071a…072d lno = 0x0258 // 0x71c @0x2
0x071a…072d at0004 = ╱98╱ UNTIL ╱ // 0x71e @0x4
0x071a…072d at0005 = ╱50╱P╱ // 0x71f @0x5
0x071a…072d at0006 = ╱50╱P╱ // 0x720 @0x6
0x071a…072d at0007 = ╱49╱I╱ // 0x721 @0x7
0x071a…072d at0008 = ╱4c╱L╱ // 0x722 @0x8
0x071a…072d at0009 = ╱32╱2╱ // 0x723 @0x9
0x071a…072d at000a = ╱df╱<=╱ // 0x724 @0xa
0x071a…072d at000b = ╱50╱P╱ // 0x725 @0xb
0x071a…072d at000c = ╱50╱P╱ // 0x726 @0xc
0x071a…072d at000d = ╱49╱I╱ // 0x727 @0xd
0x071a…072d at000e = ╱4c╱L╱ // 0x728 @0xe
0x071a…072d at000f = ╱31╱1╱ // 0x729 @0xf
0x071a…072d at0010 = ╱e2╱+╱ // 0x72a @0x10
0x071a…072d at0011 = ╱45╱E╱ // 0x72b @0x11
0x071a…072d at0012 = EOL // 0x72c @0x12
0x071a…072d }
0x072d…073b 9492 0610 IF PPIL3>E THEN
0x072d…073b LineComalBin {
0x072d…073b ptr = 0x9492 // 0x72d @0x0
0x072d…073b lno = 0x0262 // 0x72f @0x2
0x072d…073b at0004 = ╱9c╱ IF ╱ // 0x731 @0x4
0x072d…073b at0005 = ╱50╱P╱ // 0x732 @0x5
0x072d…073b at0006 = ╱50╱P╱ // 0x733 @0x6
0x072d…073b at0007 = ╱49╱I╱ // 0x734 @0x7
0x072d…073b at0008 = ╱4c╱L╱ // 0x735 @0x8
0x072d…073b at0009 = ╱33╱3╱ // 0x736 @0x9
0x072d…073b at000a = ╱de╱>╱ // 0x737 @0xa
0x072d…073b at000b = ╱45╱E╱ // 0x738 @0xb
0x072d…073b at000c = ╱b6╱ THEN ╱ // 0x739 @0xc
0x072d…073b at000d = EOL // 0x73a @0xd
0x072d…073b }
0x073b…0741 9498 0620 REPEAT
0x073b…0741 LineComalBin {
0x073b…0741 ptr = 0x9498 // 0x73b @0x0
0x073b…0741 lno = 0x026c // 0x73d @0x2
0x073b…0741 at0004 = ╱97╱ REPEAT ╱ // 0x73f @0x4
0x073b…0741 at0005 = EOL // 0x740 @0x5
0x073b…0741 }
0x0741…0753 94aa 0630 PPIL3=PPIL3-E
0x0741…0753 LineComalBin {
0x0741…0753 ptr = 0x94aa // 0x741 @0x0
0x0741…0753 lno = 0x0276 // 0x743 @0x2
0x0741…0753 at0004 = ╱50╱P╱ // 0x745 @0x4
0x0741…0753 at0005 = ╱50╱P╱ // 0x746 @0x5
0x0741…0753 at0006 = ╱49╱I╱ // 0x747 @0x6
0x0741…0753 at0007 = ╱4c╱L╱ // 0x748 @0x7
0x0741…0753 at0008 = ╱33╱3╱ // 0x749 @0x8
0x0741…0753 at0009 = ╱dc╱=╱ // 0x74a @0x9
0x0741…0753 at000a = ╱50╱P╱ // 0x74b @0xa
0x0741…0753 at000b = ╱50╱P╱ // 0x74c @0xb
0x0741…0753 at000c = ╱49╱I╱ // 0x74d @0xc
0x0741…0753 at000d = ╱4c╱L╱ // 0x74e @0xd
0x0741…0753 at000e = ╱33╱3╱ // 0x74f @0xe
0x0741…0753 at000f = ╱e3╱-╱ // 0x750 @0xf
0x0741…0753 at0010 = ╱45╱E╱ // 0x751 @0x10
0x0741…0753 at0011 = EOL // 0x752 @0x11
0x0741…0753 }
0x0753…0776 94cd 0640 UNTIL HTAB3(PPIL3,E)<NØGLE3 OR PPIL3=E
0x0753…0776 LineComalBin {
0x0753…0776 ptr = 0x94cd // 0x753 @0x0
0x0753…0776 lno = 0x0280 // 0x755 @0x2
0x0753…0776 at0004 = ╱98╱ UNTIL ╱ // 0x757 @0x4
0x0753…0776 at0005 = ╱48╱H╱ // 0x758 @0x5
0x0753…0776 at0006 = ╱54╱T╱ // 0x759 @0x6
0x0753…0776 at0007 = ╱41╱A╱ // 0x75a @0x7
0x0753…0776 at0008 = ╱42╱B╱ // 0x75b @0x8
0x0753…0776 at0009 = ╱33╱3╱ // 0x75c @0x9
0x0753…0776 at000a = ╱ed╱(╱ // 0x75d @0xa
0x0753…0776 at000b = ╱50╱P╱ // 0x75e @0xb
0x0753…0776 at000c = ╱50╱P╱ // 0x75f @0xc
0x0753…0776 at000d = ╱49╱I╱ // 0x760 @0xd
0x0753…0776 at000e = ╱4c╱L╱ // 0x761 @0xe
0x0753…0776 at000f = ╱33╱3╱ // 0x762 @0xf
0x0753…0776 at0010 = ╱ec╱,╱ // 0x763 @0x10
0x0753…0776 at0011 = ╱45╱E╱ // 0x764 @0x11
0x0753…0776 at0012 = ╱ee╱)╱ // 0x765 @0x12
0x0753…0776 at0013 = ╱dd╱<╱ // 0x766 @0x13
0x0753…0776 at0014 = ╱4e╱N╱ // 0x767 @0x14
0x0753…0776 at0015 = ╱5c╱Ø╱ // 0x768 @0x15
0x0753…0776 at0016 = ╱47╱G╱ // 0x769 @0x16
0x0753…0776 at0017 = ╱4c╱L╱ // 0x76a @0x17
0x0753…0776 at0018 = ╱45╱E╱ // 0x76b @0x18
0x0753…0776 at0019 = ╱33╱3╱ // 0x76c @0x19
0x0753…0776 at001a = ╱db╱ OR ╱ // 0x76d @0x1a
0x0753…0776 at001b = ╱50╱P╱ // 0x76e @0x1b
0x0753…0776 at001c = ╱50╱P╱ // 0x76f @0x1c
0x0753…0776 at001d = ╱49╱I╱ // 0x770 @0x1d
0x0753…0776 at001e = ╱4c╱L╱ // 0x771 @0x1e
0x0753…0776 at001f = ╱33╱3╱ // 0x772 @0x1f
0x0753…0776 at0020 = ╱dc╱=╱ // 0x773 @0x20
0x0753…0776 at0021 = ╱45╱E╱ // 0x774 @0x21
0x0753…0776 at0022 = EOL // 0x775 @0x22
0x0753…0776 }
0x0776…077c 94d3 0650 ENDIF
0x0776…077c LineComalBin {
0x0776…077c ptr = 0x94d3 // 0x776 @0x0
0x0776…077c lno = 0x028a // 0x778 @0x2
0x0776…077c at0004 = ╱9b╱ ENDIF ╱ // 0x77a @0x4
0x0776…077c at0005 = EOL // 0x77b @0x5
0x0776…077c }
0x077c…0788 94df 0655 T=PPIL3
0x077c…0788 LineComalBin {
0x077c…0788 ptr = 0x94df // 0x77c @0x0
0x077c…0788 lno = 0x028f // 0x77e @0x2
0x077c…0788 at0004 = ╱54╱T╱ // 0x780 @0x4
0x077c…0788 at0005 = ╱dc╱=╱ // 0x781 @0x5
0x077c…0788 at0006 = ╱50╱P╱ // 0x782 @0x6
0x077c…0788 at0007 = ╱50╱P╱ // 0x783 @0x7
0x077c…0788 at0008 = ╱49╱I╱ // 0x784 @0x8
0x077c…0788 at0009 = ╱4c╱L╱ // 0x785 @0x9
0x077c…0788 at000a = ╱33╱3╱ // 0x786 @0xa
0x077c…0788 at000b = EOL // 0x787 @0xb
0x077c…0788 }
0x0788…07ba 9511 0660 IF HTAB3(PPIL3,G)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,E) THEN
0x0788…07ba LineComalBin {
0x0788…07ba ptr = 0x9511 // 0x788 @0x0
0x0788…07ba lno = 0x0294 // 0x78a @0x2
0x0788…07ba at0004 = ╱9c╱ IF ╱ // 0x78c @0x4
0x0788…07ba at0005 = ╱48╱H╱ // 0x78d @0x5
0x0788…07ba at0006 = ╱54╱T╱ // 0x78e @0x6
0x0788…07ba at0007 = ╱41╱A╱ // 0x78f @0x7
0x0788…07ba at0008 = ╱42╱B╱ // 0x790 @0x8
0x0788…07ba at0009 = ╱33╱3╱ // 0x791 @0x9
0x0788…07ba at000a = ╱ed╱(╱ // 0x792 @0xa
0x0788…07ba at000b = ╱50╱P╱ // 0x793 @0xb
0x0788…07ba at000c = ╱50╱P╱ // 0x794 @0xc
0x0788…07ba at000d = ╱49╱I╱ // 0x795 @0xd
0x0788…07ba at000e = ╱4c╱L╱ // 0x796 @0xe
0x0788…07ba at000f = ╱33╱3╱ // 0x797 @0xf
0x0788…07ba at0010 = ╱ec╱,╱ // 0x798 @0x10
0x0788…07ba at0011 = ╱47╱G╱ // 0x799 @0x11
0x0788…07ba at0012 = ╱ee╱)╱ // 0x79a @0x12
0x0788…07ba at0013 = ╱dd╱<╱ // 0x79b @0x13
0x0788…07ba at0014 = ╱4e╱N╱ // 0x79c @0x14
0x0788…07ba at0015 = ╱5c╱Ø╱ // 0x79d @0x15
0x0788…07ba at0016 = ╱47╱G╱ // 0x79e @0x16
0x0788…07ba at0017 = ╱4c╱L╱ // 0x79f @0x17
0x0788…07ba at0018 = ╱45╱E╱ // 0x7a0 @0x18
0x0788…07ba at0019 = ╱33╱3╱ // 0x7a1 @0x19
0x0788…07ba at001a = ╱db╱ OR ╱ // 0x7a2 @0x1a
0x0788…07ba at001b = ╱4e╱N╱ // 0x7a3 @0x1b
0x0788…07ba at001c = ╱5c╱Ø╱ // 0x7a4 @0x1c
0x0788…07ba at001d = ╱47╱G╱ // 0x7a5 @0x1d
0x0788…07ba at001e = ╱4c╱L╱ // 0x7a6 @0x1e
0x0788…07ba at001f = ╱45╱E╱ // 0x7a7 @0x1f
0x0788…07ba at0020 = ╱33╱3╱ // 0x7a8 @0x20
0x0788…07ba at0021 = ╱dd╱<╱ // 0x7a9 @0x21
0x0788…07ba at0022 = ╱48╱H╱ // 0x7aa @0x22
0x0788…07ba at0023 = ╱54╱T╱ // 0x7ab @0x23
0x0788…07ba at0024 = ╱41╱A╱ // 0x7ac @0x24
0x0788…07ba at0025 = ╱42╱B╱ // 0x7ad @0x25
0x0788…07ba at0026 = ╱33╱3╱ // 0x7ae @0x26
0x0788…07ba at0027 = ╱ed╱(╱ // 0x7af @0x27
0x0788…07ba at0028 = ╱50╱P╱ // 0x7b0 @0x28
0x0788…07ba at0029 = ╱50╱P╱ // 0x7b1 @0x29
0x0788…07ba at002a = ╱49╱I╱ // 0x7b2 @0x2a
0x0788…07ba at002b = ╱4c╱L╱ // 0x7b3 @0x2b
0x0788…07ba at002c = ╱33╱3╱ // 0x7b4 @0x2c
0x0788…07ba at002d = ╱ec╱,╱ // 0x7b5 @0x2d
0x0788…07ba at002e = ╱45╱E╱ // 0x7b6 @0x2e
0x0788…07ba at002f = ╱ee╱)╱ // 0x7b7 @0x2f
0x0788…07ba at0030 = ╱b6╱ THEN ╱ // 0x7b8 @0x30
0x0788…07ba at0031 = EOL // 0x7b9 @0x31
0x0788…07ba }
0x07ba…07c8 951f 0665 T=PPIL3+E
0x07ba…07c8 LineComalBin {
0x07ba…07c8 ptr = 0x951f // 0x7ba @0x0
0x07ba…07c8 lno = 0x0299 // 0x7bc @0x2
0x07ba…07c8 at0004 = ╱54╱T╱ // 0x7be @0x4
0x07ba…07c8 at0005 = ╱dc╱=╱ // 0x7bf @0x5
0x07ba…07c8 at0006 = ╱50╱P╱ // 0x7c0 @0x6
0x07ba…07c8 at0007 = ╱50╱P╱ // 0x7c1 @0x7
0x07ba…07c8 at0008 = ╱49╱I╱ // 0x7c2 @0x8
0x07ba…07c8 at0009 = ╱4c╱L╱ // 0x7c3 @0x9
0x07ba…07c8 at000a = ╱33╱3╱ // 0x7c4 @0xa
0x07ba…07c8 at000b = ╱e2╱+╱ // 0x7c5 @0xb
0x07ba…07c8 at000c = ╱45╱E╱ // 0x7c6 @0xc
0x07ba…07c8 at000d = EOL // 0x7c7 @0xd
0x07ba…07c8 }
0x07c8…07e9 9540 0670 IF HTAB3(PPIL3+E,E)>NØGLE3 THEN T=B
0x07c8…07e9 LineComalBin {
0x07c8…07e9 ptr = 0x9540 // 0x7c8 @0x0
0x07c8…07e9 lno = 0x029e // 0x7ca @0x2
0x07c8…07e9 at0004 = ╱82╱ IF ╱ // 0x7cc @0x4
0x07c8…07e9 at0005 = ╱48╱H╱ // 0x7cd @0x5
0x07c8…07e9 at0006 = ╱54╱T╱ // 0x7ce @0x6
0x07c8…07e9 at0007 = ╱41╱A╱ // 0x7cf @0x7
0x07c8…07e9 at0008 = ╱42╱B╱ // 0x7d0 @0x8
0x07c8…07e9 at0009 = ╱33╱3╱ // 0x7d1 @0x9
0x07c8…07e9 at000a = ╱ed╱(╱ // 0x7d2 @0xa
0x07c8…07e9 at000b = ╱50╱P╱ // 0x7d3 @0xb
0x07c8…07e9 at000c = ╱50╱P╱ // 0x7d4 @0xc
0x07c8…07e9 at000d = ╱49╱I╱ // 0x7d5 @0xd
0x07c8…07e9 at000e = ╱4c╱L╱ // 0x7d6 @0xe
0x07c8…07e9 at000f = ╱33╱3╱ // 0x7d7 @0xf
0x07c8…07e9 at0010 = ╱e2╱+╱ // 0x7d8 @0x10
0x07c8…07e9 at0011 = ╱45╱E╱ // 0x7d9 @0x11
0x07c8…07e9 at0012 = ╱ec╱,╱ // 0x7da @0x12
0x07c8…07e9 at0013 = ╱45╱E╱ // 0x7db @0x13
0x07c8…07e9 at0014 = ╱ee╱)╱ // 0x7dc @0x14
0x07c8…07e9 at0015 = ╱de╱>╱ // 0x7dd @0x15
0x07c8…07e9 at0016 = ╱4e╱N╱ // 0x7de @0x16
0x07c8…07e9 at0017 = ╱5c╱Ø╱ // 0x7df @0x17
0x07c8…07e9 at0018 = ╱47╱G╱ // 0x7e0 @0x18
0x07c8…07e9 at0019 = ╱4c╱L╱ // 0x7e1 @0x19
0x07c8…07e9 at001a = ╱45╱E╱ // 0x7e2 @0x1a
0x07c8…07e9 at001b = ╱33╱3╱ // 0x7e3 @0x1b
0x07c8…07e9 at001c = ╱b6╱ THEN ╱ // 0x7e4 @0x1c
0x07c8…07e9 at001d = ╱54╱T╱ // 0x7e5 @0x1d
0x07c8…07e9 at001e = ╱dc╱=╱ // 0x7e6 @0x1e
0x07c8…07e9 at001f = ╱42╱B╱ // 0x7e7 @0x1f
0x07c8…07e9 at0020 = EOL // 0x7e8 @0x20
0x07c8…07e9 }
0x07e9…07ef 9546 0740 ENDIF
0x07e9…07ef LineComalBin {
0x07e9…07ef ptr = 0x9546 // 0x7e9 @0x0
0x07e9…07ef lno = 0x02e4 // 0x7eb @0x2
0x07e9…07ef at0004 = ╱9b╱ ENDIF ╱ // 0x7ed @0x4
0x07e9…07ef at0005 = EOL // 0x7ee @0x5
0x07e9…07ef }
0x07ef…07fa 9551 0750 IF T<E THEN EXIT
0x07ef…07fa LineComalBin {
0x07ef…07fa ptr = 0x9551 // 0x7ef @0x0
0x07ef…07fa lno = 0x02ee // 0x7f1 @0x2
0x07ef…07fa at0004 = ╱82╱ IF ╱ // 0x7f3 @0x4
0x07ef…07fa at0005 = ╱54╱T╱ // 0x7f4 @0x5
0x07ef…07fa at0006 = ╱dd╱<╱ // 0x7f5 @0x6
0x07ef…07fa at0007 = ╱45╱E╱ // 0x7f6 @0x7
0x07ef…07fa at0008 = ╱b6╱ THEN ╱ // 0x7f7 @0x8
0x07ef…07fa at0009 = ╱99╱ EXIT ╱ // 0x7f8 @0x9
0x07ef…07fa at000a = EOL // 0x7f9 @0xa
0x07ef…07fa }
0x07fa…0817 956e 0760 K=T+MPOSTANTAL6 DIV 160
0x07fa…0817 LineComalBin {
0x07fa…0817 ptr = 0x956e // 0x7fa @0x0
0x07fa…0817 lno = 0x02f8 // 0x7fc @0x2
0x07fa…0817 at0004 = ╱4b╱K╱ // 0x7fe @0x4
0x07fa…0817 at0005 = ╱dc╱=╱ // 0x7ff @0x5
0x07fa…0817 at0006 = ╱54╱T╱ // 0x800 @0x6
0x07fa…0817 at0007 = ╱e2╱+╱ // 0x801 @0x7
0x07fa…0817 at0008 = ╱4d╱M╱ // 0x802 @0x8
0x07fa…0817 at0009 = ╱50╱P╱ // 0x803 @0x9
0x07fa…0817 at000a = ╱4f╱O╱ // 0x804 @0xa
0x07fa…0817 at000b = ╱53╱S╱ // 0x805 @0xb
0x07fa…0817 at000c = ╱54╱T╱ // 0x806 @0xc
0x07fa…0817 at000d = ╱41╱A╱ // 0x807 @0xd
0x07fa…0817 at000e = ╱4e╱N╱ // 0x808 @0xe
0x07fa…0817 at000f = ╱54╱T╱ // 0x809 @0xf
0x07fa…0817 at0010 = ╱41╱A╱ // 0x80a @0x10
0x07fa…0817 at0011 = ╱4c╱L╱ // 0x80b @0x11
0x07fa…0817 at0012 = ╱36╱6╱ // 0x80c @0x12
0x07fa…0817 at0013 = ╱e7╱ DIV ╱ // 0x80d @0x13
0x07fa…0817 at0014 = ╱31╱1╱ // 0x80e @0x14
0x07fa…0817 at0015 = ╱36╱6╱ // 0x80f @0x15
0x07fa…0817 at0016 = ╱30╱0╱ // 0x810 @0x16
0x07fa…0817 at0017 = ╱fe0000a008╱ // 0x811 @0x17
0x07fa…0817 at001c = EOL // 0x816 @0x1c
0x07fa…0817 }
0x0817…0831 9588 0770 EXEC UNDIND(K34$,K,UTAB3)
0x0817…0831 LineComalBin {
0x0817…0831 ptr = 0x9588 // 0x817 @0x0
0x0817…0831 lno = 0x0302 // 0x819 @0x2
0x0817…0831 at0004 = ╱9d╱ EXEC ╱ // 0x81b @0x4
0x0817…0831 at0005 = ╱55╱U╱ // 0x81c @0x5
0x0817…0831 at0006 = ╱4e╱N╱ // 0x81d @0x6
0x0817…0831 at0007 = ╱44╱D╱ // 0x81e @0x7
0x0817…0831 at0008 = ╱49╱I╱ // 0x81f @0x8
0x0817…0831 at0009 = ╱4e╱N╱ // 0x820 @0x9
0x0817…0831 at000a = ╱44╱D╱ // 0x821 @0xa
0x0817…0831 at000b = ╱ed╱(╱ // 0x822 @0xb
0x0817…0831 at000c = ╱4b╱K╱ // 0x823 @0xc
0x0817…0831 at000d = ╱33╱3╱ // 0x824 @0xd
0x0817…0831 at000e = ╱34╱4╱ // 0x825 @0xe
0x0817…0831 at000f = ╱ef╱$╱ // 0x826 @0xf
0x0817…0831 at0010 = ╱ec╱,╱ // 0x827 @0x10
0x0817…0831 at0011 = ╱4b╱K╱ // 0x828 @0x11
0x0817…0831 at0012 = ╱ec╱,╱ // 0x829 @0x12
0x0817…0831 at0013 = ╱55╱U╱ // 0x82a @0x13
0x0817…0831 at0014 = ╱54╱T╱ // 0x82b @0x14
0x0817…0831 at0015 = ╱41╱A╱ // 0x82c @0x15
0x0817…0831 at0016 = ╱42╱B╱ // 0x82d @0x16
0x0817…0831 at0017 = ╱33╱3╱ // 0x82e @0x17
0x0817…0831 at0018 = ╱ee╱)╱ // 0x82f @0x18
0x0817…0831 at0019 = EOL // 0x830 @0x19
0x0817…0831 }
0x0831…0844 959b 0780 FOR I=4 TO E STEP -E
0x0831…0844 LineComalBin {
0x0831…0844 ptr = 0x959b // 0x831 @0x0
0x0831…0844 lno = 0x030c // 0x833 @0x2
0x0831…0844 at0004 = ╱83╱ FOR ╱ // 0x835 @0x4
0x0831…0844 at0005 = ╱49╱I╱ // 0x836 @0x5
0x0831…0844 at0006 = ╱dc╱=╱ // 0x837 @0x6
0x0831…0844 at0007 = ╱34╱4╱ // 0x838 @0x7
0x0831…0844 at0008 = ╱fe00008003╱ // 0x839 @0x8
0x0831…0844 at000d = ╱b7╱ TO ╱ // 0x83e @0xd
0x0831…0844 at000e = ╱45╱E╱ // 0x83f @0xe
0x0831…0844 at000f = ╱b8╱ STEP ╱ // 0x840 @0xf
0x0831…0844 at0010 = ╱e9╱-╱ // 0x841 @0x10
0x0831…0844 at0011 = ╱45╱E╱ // 0x842 @0x11
0x0831…0844 at0012 = EOL // 0x843 @0x12
0x0831…0844 }
0x0844…085d 95b4 0790 IF UTAB3(I,E)<NØGLE3 THEN EXIT
0x0844…085d LineComalBin {
0x0844…085d ptr = 0x95b4 // 0x844 @0x0
0x0844…085d lno = 0x0316 // 0x846 @0x2
0x0844…085d at0004 = ╱82╱ IF ╱ // 0x848 @0x4
0x0844…085d at0005 = ╱55╱U╱ // 0x849 @0x5
0x0844…085d at0006 = ╱54╱T╱ // 0x84a @0x6
0x0844…085d at0007 = ╱41╱A╱ // 0x84b @0x7
0x0844…085d at0008 = ╱42╱B╱ // 0x84c @0x8
0x0844…085d at0009 = ╱33╱3╱ // 0x84d @0x9
0x0844…085d at000a = ╱ed╱(╱ // 0x84e @0xa
0x0844…085d at000b = ╱49╱I╱ // 0x84f @0xb
0x0844…085d at000c = ╱ec╱,╱ // 0x850 @0xc
0x0844…085d at000d = ╱45╱E╱ // 0x851 @0xd
0x0844…085d at000e = ╱ee╱)╱ // 0x852 @0xe
0x0844…085d at000f = ╱dd╱<╱ // 0x853 @0xf
0x0844…085d at0010 = ╱4e╱N╱ // 0x854 @0x10
0x0844…085d at0011 = ╱5c╱Ø╱ // 0x855 @0x11
0x0844…085d at0012 = ╱47╱G╱ // 0x856 @0x12
0x0844…085d at0013 = ╱4c╱L╱ // 0x857 @0x13
0x0844…085d at0014 = ╱45╱E╱ // 0x858 @0x14
0x0844…085d at0015 = ╱33╱3╱ // 0x859 @0x15
0x0844…085d at0016 = ╱b6╱ THEN ╱ // 0x85a @0x16
0x0844…085d at0017 = ╱99╱ EXIT ╱ // 0x85b @0x17
0x0844…085d at0018 = EOL // 0x85c @0x18
0x0844…085d }
0x085d…0864 95bb 0800 NEXT I
0x085d…0864 LineComalBin {
0x085d…0864 ptr = 0x95bb // 0x85d @0x0
0x085d…0864 lno = 0x0320 // 0x85f @0x2
0x085d…0864 at0004 = ╱84╱ NEXT ╱ // 0x861 @0x4
0x085d…0864 at0005 = ╱49╱I╱ // 0x862 @0x5
0x085d…0864 at0006 = EOL // 0x863 @0x6
0x085d…0864 }
0x0864…0871 95c8 0810 IF I=B THEN I=E
0x0864…0871 LineComalBin {
0x0864…0871 ptr = 0x95c8 // 0x864 @0x0
0x0864…0871 lno = 0x032a // 0x866 @0x2
0x0864…0871 at0004 = ╱82╱ IF ╱ // 0x868 @0x4
0x0864…0871 at0005 = ╱49╱I╱ // 0x869 @0x5
0x0864…0871 at0006 = ╱dc╱=╱ // 0x86a @0x6
0x0864…0871 at0007 = ╱42╱B╱ // 0x86b @0x7
0x0864…0871 at0008 = ╱b6╱ THEN ╱ // 0x86c @0x8
0x0864…0871 at0009 = ╱49╱I╱ // 0x86d @0x9
0x0864…0871 at000a = ╱dc╱=╱ // 0x86e @0xa
0x0864…0871 at000b = ╱45╱E╱ // 0x86f @0xb
0x0864…0871 at000c = EOL // 0x870 @0xc
0x0864…0871 }
0x0871…0889 95e0 0820 IF UTAB3(I,G)<NØGLE3 THEN
0x0871…0889 LineComalBin {
0x0871…0889 ptr = 0x95e0 // 0x871 @0x0
0x0871…0889 lno = 0x0334 // 0x873 @0x2
0x0871…0889 at0004 = ╱9c╱ IF ╱ // 0x875 @0x4
0x0871…0889 at0005 = ╱55╱U╱ // 0x876 @0x5
0x0871…0889 at0006 = ╱54╱T╱ // 0x877 @0x6
0x0871…0889 at0007 = ╱41╱A╱ // 0x878 @0x7
0x0871…0889 at0008 = ╱42╱B╱ // 0x879 @0x8
0x0871…0889 at0009 = ╱33╱3╱ // 0x87a @0x9
0x0871…0889 at000a = ╱ed╱(╱ // 0x87b @0xa
0x0871…0889 at000b = ╱49╱I╱ // 0x87c @0xb
0x0871…0889 at000c = ╱ec╱,╱ // 0x87d @0xc
0x0871…0889 at000d = ╱47╱G╱ // 0x87e @0xd
0x0871…0889 at000e = ╱ee╱)╱ // 0x87f @0xe
0x0871…0889 at000f = ╱dd╱<╱ // 0x880 @0xf
0x0871…0889 at0010 = ╱4e╱N╱ // 0x881 @0x10
0x0871…0889 at0011 = ╱5c╱Ø╱ // 0x882 @0x11
0x0871…0889 at0012 = ╱47╱G╱ // 0x883 @0x12
0x0871…0889 at0013 = ╱4c╱L╱ // 0x884 @0x13
0x0871…0889 at0014 = ╱45╱E╱ // 0x885 @0x14
0x0871…0889 at0015 = ╱33╱3╱ // 0x886 @0x15
0x0871…0889 at0016 = ╱b6╱ THEN ╱ // 0x887 @0x16
0x0871…0889 at0017 = EOL // 0x888 @0x17
0x0871…0889 }
0x0889…08a9 9600 0825 T=(T-E)*40+I*10+E
0x0889…08a9 LineComalBin {
0x0889…08a9 ptr = 0x9600 // 0x889 @0x0
0x0889…08a9 lno = 0x0339 // 0x88b @0x2
0x0889…08a9 at0004 = ╱54╱T╱ // 0x88d @0x4
0x0889…08a9 at0005 = ╱dc╱=╱ // 0x88e @0x5
0x0889…08a9 at0006 = ╱ed╱(╱ // 0x88f @0x6
0x0889…08a9 at0007 = ╱54╱T╱ // 0x890 @0x7
0x0889…08a9 at0008 = ╱e3╱-╱ // 0x891 @0x8
0x0889…08a9 at0009 = ╱45╱E╱ // 0x892 @0x9
0x0889…08a9 at000a = ╱ee╱)╱ // 0x893 @0xa
0x0889…08a9 at000b = ╱e4╱*╱ // 0x894 @0xb
0x0889…08a9 at000c = ╱34╱4╱ // 0x895 @0xc
0x0889…08a9 at000d = ╱30╱0╱ // 0x896 @0xd
0x0889…08a9 at000e = ╱fe0000a006╱ // 0x897 @0xe
0x0889…08a9 at0013 = ╱e2╱+╱ // 0x89c @0x13
0x0889…08a9 at0014 = ╱49╱I╱ // 0x89d @0x14
0x0889…08a9 at0015 = ╱e4╱*╱ // 0x89e @0x15
0x0889…08a9 at0016 = ╱31╱1╱ // 0x89f @0x16
0x0889…08a9 at0017 = ╱30╱0╱ // 0x8a0 @0x17
0x0889…08a9 at0018 = ╱fe0000a004╱ // 0x8a1 @0x18
0x0889…08a9 at001d = ╱e2╱+╱ // 0x8a6 @0x1d
0x0889…08a9 at001e = ╱45╱E╱ // 0x8a7 @0x1e
0x0889…08a9 at001f = EOL // 0x8a8 @0x1f
0x0889…08a9 }
0x08a9…08c6 961d 0830 IF UTAB3(I+E,E)>NØGLE3 THEN T=B
0x08a9…08c6 LineComalBin {
0x08a9…08c6 ptr = 0x961d // 0x8a9 @0x0
0x08a9…08c6 lno = 0x033e // 0x8ab @0x2
0x08a9…08c6 at0004 = ╱82╱ IF ╱ // 0x8ad @0x4
0x08a9…08c6 at0005 = ╱55╱U╱ // 0x8ae @0x5
0x08a9…08c6 at0006 = ╱54╱T╱ // 0x8af @0x6
0x08a9…08c6 at0007 = ╱41╱A╱ // 0x8b0 @0x7
0x08a9…08c6 at0008 = ╱42╱B╱ // 0x8b1 @0x8
0x08a9…08c6 at0009 = ╱33╱3╱ // 0x8b2 @0x9
0x08a9…08c6 at000a = ╱ed╱(╱ // 0x8b3 @0xa
0x08a9…08c6 at000b = ╱49╱I╱ // 0x8b4 @0xb
0x08a9…08c6 at000c = ╱e2╱+╱ // 0x8b5 @0xc
0x08a9…08c6 at000d = ╱45╱E╱ // 0x8b6 @0xd
0x08a9…08c6 at000e = ╱ec╱,╱ // 0x8b7 @0xe
0x08a9…08c6 at000f = ╱45╱E╱ // 0x8b8 @0xf
0x08a9…08c6 at0010 = ╱ee╱)╱ // 0x8b9 @0x10
0x08a9…08c6 at0011 = ╱de╱>╱ // 0x8ba @0x11
0x08a9…08c6 at0012 = ╱4e╱N╱ // 0x8bb @0x12
0x08a9…08c6 at0013 = ╱5c╱Ø╱ // 0x8bc @0x13
0x08a9…08c6 at0014 = ╱47╱G╱ // 0x8bd @0x14
0x08a9…08c6 at0015 = ╱4c╱L╱ // 0x8be @0x15
0x08a9…08c6 at0016 = ╱45╱E╱ // 0x8bf @0x16
0x08a9…08c6 at0017 = ╱33╱3╱ // 0x8c0 @0x17
0x08a9…08c6 at0018 = ╱b6╱ THEN ╱ // 0x8c1 @0x18
0x08a9…08c6 at0019 = ╱54╱T╱ // 0x8c2 @0x19
0x08a9…08c6 at001a = ╱dc╱=╱ // 0x8c3 @0x1a
0x08a9…08c6 at001b = ╱42╱B╱ // 0x8c4 @0x1b
0x08a9…08c6 at001c = EOL // 0x8c5 @0x1c
0x08a9…08c6 }
0x08c6…08cc 9623 0880 ELSE
0x08c6…08cc LineComalBin {
0x08c6…08cc ptr = 0x9623 // 0x8c6 @0x0
0x08c6…08cc lno = 0x0370 // 0x8c8 @0x2
0x08c6…08cc at0004 = ╱9a╱ ELSE ╱ // 0x8ca @0x4
0x08c6…08cc at0005 = EOL // 0x8cb @0x5
0x08c6…08cc }
0x08cc…08f0 9647 0890 T=(T-E)*40+(I-E)*10+E
0x08cc…08f0 LineComalBin {
0x08cc…08f0 ptr = 0x9647 // 0x8cc @0x0
0x08cc…08f0 lno = 0x037a // 0x8ce @0x2
0x08cc…08f0 at0004 = ╱54╱T╱ // 0x8d0 @0x4
0x08cc…08f0 at0005 = ╱dc╱=╱ // 0x8d1 @0x5
0x08cc…08f0 at0006 = ╱ed╱(╱ // 0x8d2 @0x6
0x08cc…08f0 at0007 = ╱54╱T╱ // 0x8d3 @0x7
0x08cc…08f0 at0008 = ╱e3╱-╱ // 0x8d4 @0x8
0x08cc…08f0 at0009 = ╱45╱E╱ // 0x8d5 @0x9
0x08cc…08f0 at000a = ╱ee╱)╱ // 0x8d6 @0xa
0x08cc…08f0 at000b = ╱e4╱*╱ // 0x8d7 @0xb
0x08cc…08f0 at000c = ╱34╱4╱ // 0x8d8 @0xc
0x08cc…08f0 at000d = ╱30╱0╱ // 0x8d9 @0xd
0x08cc…08f0 at000e = ╱fe0000a006╱ // 0x8da @0xe
0x08cc…08f0 at0013 = ╱e2╱+╱ // 0x8df @0x13
0x08cc…08f0 at0014 = ╱ed╱(╱ // 0x8e0 @0x14
0x08cc…08f0 at0015 = ╱49╱I╱ // 0x8e1 @0x15
0x08cc…08f0 at0016 = ╱e3╱-╱ // 0x8e2 @0x16
0x08cc…08f0 at0017 = ╱45╱E╱ // 0x8e3 @0x17
0x08cc…08f0 at0018 = ╱ee╱)╱ // 0x8e4 @0x18
0x08cc…08f0 at0019 = ╱e4╱*╱ // 0x8e5 @0x19
0x08cc…08f0 at001a = ╱31╱1╱ // 0x8e6 @0x1a
0x08cc…08f0 at001b = ╱30╱0╱ // 0x8e7 @0x1b
0x08cc…08f0 at001c = ╱fe0000a004╱ // 0x8e8 @0x1c
0x08cc…08f0 at0021 = ╱e2╱+╱ // 0x8ed @0x21
0x08cc…08f0 at0022 = ╱45╱E╱ // 0x8ee @0x22
0x08cc…08f0 at0023 = EOL // 0x8ef @0x23
0x08cc…08f0 }
0x08f0…08f6 964d 0900 ENDIF
0x08f0…08f6 LineComalBin {
0x08f0…08f6 ptr = 0x964d // 0x8f0 @0x0
0x08f0…08f6 lno = 0x0384 // 0x8f2 @0x2
0x08f0…08f6 at0004 = ╱9b╱ ENDIF ╱ // 0x8f4 @0x4
0x08f0…08f6 at0005 = EOL // 0x8f5 @0x5
0x08f0…08f6 }
0x08f6…08fc 9653 0920 ENDPROC
0x08f6…08fc LineComalBin {
0x08f6…08fc ptr = 0x9653 // 0x8f6 @0x0
0x08f6…08fc lno = 0x0398 // 0x8f8 @0x2
0x08f6…08fc at0004 = ╱9f╱ ENDPROC ╱ // 0x8fa @0x4
0x08f6…08fc at0005 = EOL // 0x8fb @0x5
0x08f6…08fc }
0x08fc…092d 9684 0930 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3)
0x08fc…092d LineComalBin {
0x08fc…092d ptr = 0x9684 // 0x8fc @0x0
0x08fc…092d lno = 0x03a2 // 0x8fe @0x2
0x08fc…092d at0004 = ╱9e╱ PROC ╱ // 0x900 @0x4
0x08fc…092d at0005 = ╱50╱P╱ // 0x901 @0x5
0x08fc…092d at0006 = ╱4f╱O╱ // 0x902 @0x6
0x08fc…092d at0007 = ╱53╱S╱ // 0x903 @0x7
0x08fc…092d at0008 = ╱54╱T╱ // 0x904 @0x8
0x08fc…092d at0009 = ╱45╱E╱ // 0x905 @0x9
0x08fc…092d at000a = ╱52╱R╱ // 0x906 @0xa
0x08fc…092d at000b = ╱ed╱(╱ // 0x907 @0xb
0x08fc…092d at000c = ╱4b╱K╱ // 0x908 @0xc
0x08fc…092d at000d = ╱33╱3╱ // 0x909 @0xd
0x08fc…092d at000e = ╱35╱5╱ // 0x90a @0xe
0x08fc…092d at000f = ╱ec╱,╱ // 0x90b @0xf
0x08fc…092d at0010 = ╱4e╱N╱ // 0x90c @0x10
0x08fc…092d at0011 = ╱5c╱Ø╱ // 0x90d @0x11
0x08fc…092d at0012 = ╱47╱G╱ // 0x90e @0x12
0x08fc…092d at0013 = ╱4c╱L╱ // 0x90f @0x13
0x08fc…092d at0014 = ╱45╱E╱ // 0x910 @0x14
0x08fc…092d at0015 = ╱34╱4╱ // 0x911 @0x15
0x08fc…092d at0016 = ╱ec╱,╱ // 0x912 @0x16
0x08fc…092d at0017 = ╱54╱T╱ // 0x913 @0x17
0x08fc…092d at0018 = ╱35╱5╱ // 0x914 @0x18
0x08fc…092d at0019 = ╱ec╱,╱ // 0x915 @0x19
0x08fc…092d at001a = ╱4d╱M╱ // 0x916 @0x1a
0x08fc…092d at001b = ╱50╱P╱ // 0x917 @0x1b
0x08fc…092d at001c = ╱4f╱O╱ // 0x918 @0x1c
0x08fc…092d at001d = ╱53╱S╱ // 0x919 @0x1d
0x08fc…092d at001e = ╱54╱T╱ // 0x91a @0x1e
0x08fc…092d at001f = ╱41╱A╱ // 0x91b @0x1f
0x08fc…092d at0020 = ╱4e╱N╱ // 0x91c @0x20
0x08fc…092d at0021 = ╱54╱T╱ // 0x91d @0x21
0x08fc…092d at0022 = ╱41╱A╱ // 0x91e @0x22
0x08fc…092d at0023 = ╱4c╱L╱ // 0x91f @0x23
0x08fc…092d at0024 = ╱37╱7╱ // 0x920 @0x24
0x08fc…092d at0025 = ╱ec╱,╱ // 0x921 @0x25
0x08fc…092d at0026 = ╱50╱P╱ // 0x922 @0x26
0x08fc…092d at0027 = ╱4b╱K╱ // 0x923 @0x27
0x08fc…092d at0028 = ╱4f╱O╱ // 0x924 @0x28
0x08fc…092d at0029 = ╱44╱D╱ // 0x925 @0x29
0x08fc…092d at002a = ╱45╱E╱ // 0x926 @0x2a
0x08fc…092d at002b = ╱ec╱,╱ // 0x927 @0x2b
0x08fc…092d at002c = ╱53╱S╱ // 0x928 @0x2c
0x08fc…092d at002d = ╱55╱U╱ // 0x929 @0x2d
0x08fc…092d at002e = ╱33╱3╱ // 0x92a @0x2e
0x08fc…092d at002f = ╱ee╱)╱ // 0x92b @0x2f
0x08fc…092d at0030 = EOL // 0x92c @0x30
0x08fc…092d }
0x092d…0939 9690 0940 LINIE=B
0x092d…0939 LineComalBin {
0x092d…0939 ptr = 0x9690 // 0x92d @0x0
0x092d…0939 lno = 0x03ac // 0x92f @0x2
0x092d…0939 at0004 = ╱4c╱L╱ // 0x931 @0x4
0x092d…0939 at0005 = ╱49╱I╱ // 0x932 @0x5
0x092d…0939 at0006 = ╱4e╱N╱ // 0x933 @0x6
0x092d…0939 at0007 = ╱49╱I╱ // 0x934 @0x7
0x092d…0939 at0008 = ╱45╱E╱ // 0x935 @0x8
0x092d…0939 at0009 = ╱dc╱=╱ // 0x936 @0x9
0x092d…0939 at000a = ╱42╱B╱ // 0x937 @0xa
0x092d…0939 at000b = EOL // 0x938 @0xb
0x092d…0939 }
0x0939…0945 969c 0950 OPEN K35$,R
0x0939…0945 LineComalBin {
0x0939…0945 ptr = 0x969c // 0x939 @0x0
0x0939…0945 lno = 0x03b6 // 0x93b @0x2
0x0939…0945 at0004 = ╱a7╱ OPEN ╱ // 0x93d @0x4
0x0939…0945 at0005 = ╱4b╱K╱ // 0x93e @0x5
0x0939…0945 at0006 = ╱33╱3╱ // 0x93f @0x6
0x0939…0945 at0007 = ╱35╱5╱ // 0x940 @0x7
0x0939…0945 at0008 = ╱ef╱$╱ // 0x941 @0x8
0x0939…0945 at0009 = ╱ec╱,╱ // 0x942 @0x9
0x0939…0945 at000a = ╱52╱R╱ // 0x943 @0xa
0x0939…0945 at000b = EOL // 0x944 @0xb
0x0939…0945 }
0x0945…0959 96b0 0960 EXEC FEJL(E,E,K35$)
0x0945…0959 LineComalBin {
0x0945…0959 ptr = 0x96b0 // 0x945 @0x0
0x0945…0959 lno = 0x03c0 // 0x947 @0x2
0x0945…0959 at0004 = ╱9d╱ EXEC ╱ // 0x949 @0x4
0x0945…0959 at0005 = ╱46╱F╱ // 0x94a @0x5
0x0945…0959 at0006 = ╱45╱E╱ // 0x94b @0x6
0x0945…0959 at0007 = ╱4a╱J╱ // 0x94c @0x7
0x0945…0959 at0008 = ╱4c╱L╱ // 0x94d @0x8
0x0945…0959 at0009 = ╱ed╱(╱ // 0x94e @0x9
0x0945…0959 at000a = ╱45╱E╱ // 0x94f @0xa
0x0945…0959 at000b = ╱ec╱,╱ // 0x950 @0xb
0x0945…0959 at000c = ╱45╱E╱ // 0x951 @0xc
0x0945…0959 at000d = ╱ec╱,╱ // 0x952 @0xd
0x0945…0959 at000e = ╱4b╱K╱ // 0x953 @0xe
0x0945…0959 at000f = ╱33╱3╱ // 0x954 @0xf
0x0945…0959 at0010 = ╱35╱5╱ // 0x955 @0x10
0x0945…0959 at0011 = ╱ef╱$╱ // 0x956 @0x11
0x0945…0959 at0012 = ╱ee╱)╱ // 0x957 @0x12
0x0945…0959 at0013 = EOL // 0x958 @0x13
0x0945…0959 }
0x0959…096a 96c1 0970 FOR I=E TO 10
0x0959…096a LineComalBin {
0x0959…096a ptr = 0x96c1 // 0x959 @0x0
0x0959…096a lno = 0x03ca // 0x95b @0x2
0x0959…096a at0004 = ╱83╱ FOR ╱ // 0x95d @0x4
0x0959…096a at0005 = ╱49╱I╱ // 0x95e @0x5
0x0959…096a at0006 = ╱dc╱=╱ // 0x95f @0x6
0x0959…096a at0007 = ╱45╱E╱ // 0x960 @0x7
0x0959…096a at0008 = ╱b7╱ TO ╱ // 0x961 @0x8
0x0959…096a at0009 = ╱31╱1╱ // 0x962 @0x9
0x0959…096a at000a = ╱30╱0╱ // 0x963 @0xa
0x0959…096a at000b = ╱fe0000a004╱ // 0x964 @0xb
0x0959…096a at0010 = EOL // 0x969 @0x10
0x0959…096a }
0x096a…097d 96d4 0980 GET K35$,T5:KTNUM
0x096a…097d LineComalBin {
0x096a…097d ptr = 0x96d4 // 0x96a @0x0
0x096a…097d lno = 0x03d4 // 0x96c @0x2
0x096a…097d at0004 = ╱a9╱ GET ╱ // 0x96e @0x4
0x096a…097d at0005 = ╱4b╱K╱ // 0x96f @0x5
0x096a…097d at0006 = ╱33╱3╱ // 0x970 @0x6
0x096a…097d at0007 = ╱35╱5╱ // 0x971 @0x7
0x096a…097d at0008 = ╱ef╱$╱ // 0x972 @0x8
0x096a…097d at0009 = ╱ec╱,╱ // 0x973 @0x9
0x096a…097d at000a = ╱54╱T╱ // 0x974 @0xa
0x096a…097d at000b = ╱35╱5╱ // 0x975 @0xb
0x096a…097d at000c = ╱f0╱:╱ // 0x976 @0xc
0x096a…097d at000d = ╱4b╱K╱ // 0x977 @0xd
0x096a…097d at000e = ╱54╱T╱ // 0x978 @0xe
0x096a…097d at000f = ╱4e╱N╱ // 0x979 @0xf
0x096a…097d at0010 = ╱55╱U╱ // 0x97a @0x10
0x096a…097d at0011 = ╱4d╱M╱ // 0x97b @0x11
0x096a…097d at0012 = EOL // 0x97c @0x12
0x096a…097d }
0x097d…0991 96e8 0990 EXEC FEJL(E,G,K35$)
0x097d…0991 LineComalBin {
0x097d…0991 ptr = 0x96e8 // 0x97d @0x0
0x097d…0991 lno = 0x03de // 0x97f @0x2
0x097d…0991 at0004 = ╱9d╱ EXEC ╱ // 0x981 @0x4
0x097d…0991 at0005 = ╱46╱F╱ // 0x982 @0x5
0x097d…0991 at0006 = ╱45╱E╱ // 0x983 @0x6
0x097d…0991 at0007 = ╱4a╱J╱ // 0x984 @0x7
0x097d…0991 at0008 = ╱4c╱L╱ // 0x985 @0x8
0x097d…0991 at0009 = ╱ed╱(╱ // 0x986 @0x9
0x097d…0991 at000a = ╱45╱E╱ // 0x987 @0xa
0x097d…0991 at000b = ╱ec╱,╱ // 0x988 @0xb
0x097d…0991 at000c = ╱47╱G╱ // 0x989 @0xc
0x097d…0991 at000d = ╱ec╱,╱ // 0x98a @0xd
0x097d…0991 at000e = ╱4b╱K╱ // 0x98b @0xe
0x097d…0991 at000f = ╱33╱3╱ // 0x98c @0xf
0x097d…0991 at0010 = ╱35╱5╱ // 0x98d @0x10
0x097d…0991 at0011 = ╱ef╱$╱ // 0x98e @0x11
0x097d…0991 at0012 = ╱ee╱)╱ // 0x98f @0x12
0x097d…0991 at0013 = EOL // 0x990 @0x13
0x097d…0991 }
0x0991…09af 9706 1000 IF KTNUM=NØGLE4 OR MAFSLUT=E THEN EXIT
0x0991…09af LineComalBin {
0x0991…09af ptr = 0x9706 // 0x991 @0x0
0x0991…09af lno = 0x03e8 // 0x993 @0x2
0x0991…09af at0004 = ╱82╱ IF ╱ // 0x995 @0x4
0x0991…09af at0005 = ╱4b╱K╱ // 0x996 @0x5
0x0991…09af at0006 = ╱54╱T╱ // 0x997 @0x6
0x0991…09af at0007 = ╱4e╱N╱ // 0x998 @0x7
0x0991…09af at0008 = ╱55╱U╱ // 0x999 @0x8
0x0991…09af at0009 = ╱4d╱M╱ // 0x99a @0x9
0x0991…09af at000a = ╱dc╱=╱ // 0x99b @0xa
0x0991…09af at000b = ╱4e╱N╱ // 0x99c @0xb
0x0991…09af at000c = ╱5c╱Ø╱ // 0x99d @0xc
0x0991…09af at000d = ╱47╱G╱ // 0x99e @0xd
0x0991…09af at000e = ╱4c╱L╱ // 0x99f @0xe
0x0991…09af at000f = ╱45╱E╱ // 0x9a0 @0xf
0x0991…09af at0010 = ╱34╱4╱ // 0x9a1 @0x10
0x0991…09af at0011 = ╱db╱ OR ╱ // 0x9a2 @0x11
0x0991…09af at0012 = ╱4d╱M╱ // 0x9a3 @0x12
0x0991…09af at0013 = ╱41╱A╱ // 0x9a4 @0x13
0x0991…09af at0014 = ╱46╱F╱ // 0x9a5 @0x14
0x0991…09af at0015 = ╱53╱S╱ // 0x9a6 @0x15
0x0991…09af at0016 = ╱4c╱L╱ // 0x9a7 @0x16
0x0991…09af at0017 = ╱55╱U╱ // 0x9a8 @0x17
0x0991…09af at0018 = ╱54╱T╱ // 0x9a9 @0x18
0x0991…09af at0019 = ╱dc╱=╱ // 0x9aa @0x19
0x0991…09af at001a = ╱45╱E╱ // 0x9ab @0x1a
0x0991…09af at001b = ╱b6╱ THEN ╱ // 0x9ac @0x1b
0x0991…09af at001c = ╱99╱ EXIT ╱ // 0x9ad @0x1c
0x0991…09af at001d = EOL // 0x9ae @0x1d
0x0991…09af }
0x09af…09bb 9712 1020 T5=T5+E
0x09af…09bb LineComalBin {
0x09af…09bb ptr = 0x9712 // 0x9af @0x0
0x09af…09bb lno = 0x03fc // 0x9b1 @0x2
0x09af…09bb at0004 = ╱54╱T╱ // 0x9b3 @0x4
0x09af…09bb at0005 = ╱35╱5╱ // 0x9b4 @0x5
0x09af…09bb at0006 = ╱dc╱=╱ // 0x9b5 @0x6
0x09af…09bb at0007 = ╱54╱T╱ // 0x9b6 @0x7
0x09af…09bb at0008 = ╱35╱5╱ // 0x9b7 @0x8
0x09af…09bb at0009 = ╱e2╱+╱ // 0x9b8 @0x9
0x09af…09bb at000a = ╱45╱E╱ // 0x9b9 @0xa
0x09af…09bb at000b = EOL // 0x9ba @0xb
0x09af…09bb }
0x09bb…09c2 9719 1030 NEXT I
0x09bb…09c2 LineComalBin {
0x09bb…09c2 ptr = 0x9719 // 0x9bb @0x0
0x09bb…09c2 lno = 0x0406 // 0x9bd @0x2
0x09bb…09c2 at0004 = ╱84╱ NEXT ╱ // 0x9bf @0x4
0x09bb…09c2 at0005 = ╱49╱I╱ // 0x9c0 @0x5
0x09bb…09c2 at0006 = EOL // 0x9c1 @0x6
0x09bb…09c2 }
0x09c2…09d5 972c 1040 IF KTNUM=NØGLE4 THEN
0x09c2…09d5 LineComalBin {
0x09c2…09d5 ptr = 0x972c // 0x9c2 @0x0
0x09c2…09d5 lno = 0x0410 // 0x9c4 @0x2
0x09c2…09d5 at0004 = ╱9c╱ IF ╱ // 0x9c6 @0x4
0x09c2…09d5 at0005 = ╱4b╱K╱ // 0x9c7 @0x5
0x09c2…09d5 at0006 = ╱54╱T╱ // 0x9c8 @0x6
0x09c2…09d5 at0007 = ╱4e╱N╱ // 0x9c9 @0x7
0x09c2…09d5 at0008 = ╱55╱U╱ // 0x9ca @0x8
0x09c2…09d5 at0009 = ╱4d╱M╱ // 0x9cb @0x9
0x09c2…09d5 at000a = ╱dc╱=╱ // 0x9cc @0xa
0x09c2…09d5 at000b = ╱4e╱N╱ // 0x9cd @0xb
0x09c2…09d5 at000c = ╱5c╱Ø╱ // 0x9ce @0xc
0x09c2…09d5 at000d = ╱47╱G╱ // 0x9cf @0xd
0x09c2…09d5 at000e = ╱4c╱L╱ // 0x9d0 @0xe
0x09c2…09d5 at000f = ╱45╱E╱ // 0x9d1 @0xf
0x09c2…09d5 at0010 = ╱34╱4╱ // 0x9d2 @0x10
0x09c2…09d5 at0011 = ╱b6╱ THEN ╱ // 0x9d3 @0x11
0x09c2…09d5 at0012 = EOL // 0x9d4 @0x12
0x09c2…09d5 }
0x09d5…09eb 9742 1050 FOR K=T5 TO MPOSTANTAL7
0x09d5…09eb LineComalBin {
0x09d5…09eb ptr = 0x9742 // 0x9d5 @0x0
0x09d5…09eb lno = 0x041a // 0x9d7 @0x2
0x09d5…09eb at0004 = ╱83╱ FOR ╱ // 0x9d9 @0x4
0x09d5…09eb at0005 = ╱4b╱K╱ // 0x9da @0x5
0x09d5…09eb at0006 = ╱dc╱=╱ // 0x9db @0x6
0x09d5…09eb at0007 = ╱54╱T╱ // 0x9dc @0x7
0x09d5…09eb at0008 = ╱35╱5╱ // 0x9dd @0x8
0x09d5…09eb at0009 = ╱b7╱ TO ╱ // 0x9de @0x9
0x09d5…09eb at000a = ╱4d╱M╱ // 0x9df @0xa
0x09d5…09eb at000b = ╱50╱P╱ // 0x9e0 @0xb
0x09d5…09eb at000c = ╱4f╱O╱ // 0x9e1 @0xc
0x09d5…09eb at000d = ╱53╱S╱ // 0x9e2 @0xd
0x09d5…09eb at000e = ╱54╱T╱ // 0x9e3 @0xe
0x09d5…09eb at000f = ╱41╱A╱ // 0x9e4 @0xf
0x09d5…09eb at0010 = ╱4e╱N╱ // 0x9e5 @0x10
0x09d5…09eb at0011 = ╱54╱T╱ // 0x9e6 @0x11
0x09d5…09eb at0012 = ╱41╱A╱ // 0x9e7 @0x12
0x09d5…09eb at0013 = ╱4c╱L╱ // 0x9e8 @0x13
0x09d5…09eb at0014 = ╱37╱7╱ // 0x9e9 @0x14
0x09d5…09eb at0015 = EOL // 0x9ea @0x15
0x09d5…09eb }
0x09eb…0a1d 9774 1060 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$,ENTKO
0x09eb…0a1d LineComalBin {
0x09eb…0a1d ptr = 0x9774 // 0x9eb @0x0
0x09eb…0a1d lno = 0x0424 // 0x9ed @0x2
0x09eb…0a1d at0004 = ╱a9╱ GET ╱ // 0x9ef @0x4
0x09eb…0a1d at0005 = ╱4b╱K╱ // 0x9f0 @0x5
0x09eb…0a1d at0006 = ╱33╱3╱ // 0x9f1 @0x6
0x09eb…0a1d at0007 = ╱35╱5╱ // 0x9f2 @0x7
0x09eb…0a1d at0008 = ╱ef╱$╱ // 0x9f3 @0x8
0x09eb…0a1d at0009 = ╱ec╱,╱ // 0x9f4 @0x9
0x09eb…0a1d at000a = ╱4b╱K╱ // 0x9f5 @0xa
0x09eb…0a1d at000b = ╱f0╱:╱ // 0x9f6 @0xb
0x09eb…0a1d at000c = ╱4b╱K╱ // 0x9f7 @0xc
0x09eb…0a1d at000d = ╱4f╱O╱ // 0x9f8 @0xd
0x09eb…0a1d at000e = ╱4e╱N╱ // 0x9f9 @0xe
0x09eb…0a1d at000f = ╱54╱T╱ // 0x9fa @0xf
0x09eb…0a1d at0010 = ╱4f╱O╱ // 0x9fb @0x10
0x09eb…0a1d at0011 = ╱ec╱,╱ // 0x9fc @0x11
0x09eb…0a1d at0012 = ╱44╱D╱ // 0x9fd @0x12
0x09eb…0a1d at0013 = ╱44╱D╱ // 0x9fe @0x13
0x09eb…0a1d at0014 = ╱41╱A╱ // 0x9ff @0x14
0x09eb…0a1d at0015 = ╱54╱T╱ // 0xa00 @0x15
0x09eb…0a1d at0016 = ╱4f╱O╱ // 0xa01 @0x16
0x09eb…0a1d at0017 = ╱ec╱,╱ // 0xa02 @0x17
0x09eb…0a1d at0018 = ╱42╱B╱ // 0xa03 @0x18
0x09eb…0a1d at0019 = ╱49╱I╱ // 0xa04 @0x19
0x09eb…0a1d at001a = ╱4c╱L╱ // 0xa05 @0x1a
0x09eb…0a1d at001b = ╱41╱A╱ // 0xa06 @0x1b
0x09eb…0a1d at001c = ╱47╱G╱ // 0xa07 @0x1c
0x09eb…0a1d at001d = ╱ec╱,╱ // 0xa08 @0x1d
0x09eb…0a1d at001e = ╱54╱T╱ // 0xa09 @0x1e
0x09eb…0a1d at001f = ╱4b╱K╱ // 0xa0a @0x1f
0x09eb…0a1d at0020 = ╱4f╱O╱ // 0xa0b @0x20
0x09eb…0a1d at0021 = ╱44╱D╱ // 0xa0c @0x21
0x09eb…0a1d at0022 = ╱45╱E╱ // 0xa0d @0x22
0x09eb…0a1d at0023 = ╱ef╱$╱ // 0xa0e @0x23
0x09eb…0a1d at0024 = ╱ec╱,╱ // 0xa0f @0x24
0x09eb…0a1d at0025 = ╱42╱B╱ // 0xa10 @0x25
0x09eb…0a1d at0026 = ╱45╱E╱ // 0xa11 @0x26
0x09eb…0a1d at0027 = ╱4c╱L╱ // 0xa12 @0x27
0x09eb…0a1d at0028 = ╱5c╱Ø╱ // 0xa13 @0x28
0x09eb…0a1d at0029 = ╱42╱B╱ // 0xa14 @0x29
0x09eb…0a1d at002a = ╱ef╱$╱ // 0xa15 @0x2a
0x09eb…0a1d at002b = ╱ec╱,╱ // 0xa16 @0x2b
0x09eb…0a1d at002c = ╱45╱E╱ // 0xa17 @0x2c
0x09eb…0a1d at002d = ╱4e╱N╱ // 0xa18 @0x2d
0x09eb…0a1d at002e = ╱54╱T╱ // 0xa19 @0x2e
0x09eb…0a1d at002f = ╱4b╱K╱ // 0xa1a @0x2f
0x09eb…0a1d at0030 = ╱4f╱O╱ // 0xa1b @0x30
0x09eb…0a1d at0031 = EOL // 0xa1c @0x31
0x09eb…0a1d }
0x0a1d…0a31 9788 1070 EXEC FEJL(E,V,K35$)
0x0a1d…0a31 LineComalBin {
0x0a1d…0a31 ptr = 0x9788 // 0xa1d @0x0
0x0a1d…0a31 lno = 0x042e // 0xa1f @0x2
0x0a1d…0a31 at0004 = ╱9d╱ EXEC ╱ // 0xa21 @0x4
0x0a1d…0a31 at0005 = ╱46╱F╱ // 0xa22 @0x5
0x0a1d…0a31 at0006 = ╱45╱E╱ // 0xa23 @0x6
0x0a1d…0a31 at0007 = ╱4a╱J╱ // 0xa24 @0x7
0x0a1d…0a31 at0008 = ╱4c╱L╱ // 0xa25 @0x8
0x0a1d…0a31 at0009 = ╱ed╱(╱ // 0xa26 @0x9
0x0a1d…0a31 at000a = ╱45╱E╱ // 0xa27 @0xa
0x0a1d…0a31 at000b = ╱ec╱,╱ // 0xa28 @0xb
0x0a1d…0a31 at000c = ╱56╱V╱ // 0xa29 @0xc
0x0a1d…0a31 at000d = ╱ec╱,╱ // 0xa2a @0xd
0x0a1d…0a31 at000e = ╱4b╱K╱ // 0xa2b @0xe
0x0a1d…0a31 at000f = ╱33╱3╱ // 0xa2c @0xf
0x0a1d…0a31 at0010 = ╱35╱5╱ // 0xa2d @0x10
0x0a1d…0a31 at0011 = ╱ef╱$╱ // 0xa2e @0x11
0x0a1d…0a31 at0012 = ╱ee╱)╱ // 0xa2f @0x12
0x0a1d…0a31 at0013 = EOL // 0xa30 @0x13
0x0a1d…0a31 }
0x0a31…0a45 979c 1080 IF KONTO<>NØGLE4 THEN EXIT
0x0a31…0a45 LineComalBin {
0x0a31…0a45 ptr = 0x979c // 0xa31 @0x0
0x0a31…0a45 lno = 0x0438 // 0xa33 @0x2
0x0a31…0a45 at0004 = ╱82╱ IF ╱ // 0xa35 @0x4
0x0a31…0a45 at0005 = ╱4b╱K╱ // 0xa36 @0x5
0x0a31…0a45 at0006 = ╱4f╱O╱ // 0xa37 @0x6
0x0a31…0a45 at0007 = ╱4e╱N╱ // 0xa38 @0x7
0x0a31…0a45 at0008 = ╱54╱T╱ // 0xa39 @0x8
0x0a31…0a45 at0009 = ╱4f╱O╱ // 0xa3a @0x9
0x0a31…0a45 at000a = ╱e1╱<>╱ // 0xa3b @0xa
0x0a31…0a45 at000b = ╱4e╱N╱ // 0xa3c @0xb
0x0a31…0a45 at000c = ╱5c╱Ø╱ // 0xa3d @0xc
0x0a31…0a45 at000d = ╱47╱G╱ // 0xa3e @0xd
0x0a31…0a45 at000e = ╱4c╱L╱ // 0xa3f @0xe
0x0a31…0a45 at000f = ╱45╱E╱ // 0xa40 @0xf
0x0a31…0a45 at0010 = ╱34╱4╱ // 0xa41 @0x10
0x0a31…0a45 at0011 = ╱b6╱ THEN ╱ // 0xa42 @0x11
0x0a31…0a45 at0012 = ╱99╱ EXIT ╱ // 0xa43 @0x12
0x0a31…0a45 at0013 = EOL // 0xa44 @0x13
0x0a31…0a45 }
0x0a45…0a7e 97d5 1090 TKS=ORD(TKODE$)-48;TKS9=TKS-10*(TKS>20)
0x0a45…0a7e LineComalBin {
0x0a45…0a7e ptr = 0x97d5 // 0xa45 @0x0
0x0a45…0a7e lno = 0x0442 // 0xa47 @0x2
0x0a45…0a7e at0004 = ╱54╱T╱ // 0xa49 @0x4
0x0a45…0a7e at0005 = ╱4b╱K╱ // 0xa4a @0x5
0x0a45…0a7e at0006 = ╱53╱S╱ // 0xa4b @0x6
0x0a45…0a7e at0007 = ╱dc╱=╱ // 0xa4c @0x7
0x0a45…0a7e at0008 = ╱cd╱ORD╱ // 0xa4d @0x8
0x0a45…0a7e at0009 = ╱ed╱(╱ // 0xa4e @0x9
0x0a45…0a7e at000a = ╱54╱T╱ // 0xa4f @0xa
0x0a45…0a7e at000b = ╱4b╱K╱ // 0xa50 @0xb
0x0a45…0a7e at000c = ╱4f╱O╱ // 0xa51 @0xc
0x0a45…0a7e at000d = ╱44╱D╱ // 0xa52 @0xd
0x0a45…0a7e at000e = ╱45╱E╱ // 0xa53 @0xe
0x0a45…0a7e at000f = ╱ef╱$╱ // 0xa54 @0xf
0x0a45…0a7e at0010 = ╱ee╱)╱ // 0xa55 @0x10
0x0a45…0a7e at0011 = ╱e3╱-╱ // 0xa56 @0x11
0x0a45…0a7e at0012 = ╱34╱4╱ // 0xa57 @0x12
0x0a45…0a7e at0013 = ╱38╱8╱ // 0xa58 @0x13
0x0a45…0a7e at0014 = ╱fe0000c006╱ // 0xa59 @0x14
0x0a45…0a7e at0019 = ╱eb╱;╱ // 0xa5e @0x19
0x0a45…0a7e at001a = ╱54╱T╱ // 0xa5f @0x1a
0x0a45…0a7e at001b = ╱4b╱K╱ // 0xa60 @0x1b
0x0a45…0a7e at001c = ╱53╱S╱ // 0xa61 @0x1c
0x0a45…0a7e at001d = ╱39╱9╱ // 0xa62 @0x1d
0x0a45…0a7e at001e = ╱dc╱=╱ // 0xa63 @0x1e
0x0a45…0a7e at001f = ╱54╱T╱ // 0xa64 @0x1f
0x0a45…0a7e at0020 = ╱4b╱K╱ // 0xa65 @0x20
0x0a45…0a7e at0021 = ╱53╱S╱ // 0xa66 @0x21
0x0a45…0a7e at0022 = ╱e3╱-╱ // 0xa67 @0x22
0x0a45…0a7e at0023 = ╱31╱1╱ // 0xa68 @0x23
0x0a45…0a7e at0024 = ╱30╱0╱ // 0xa69 @0x24
0x0a45…0a7e at0025 = ╱fe0000a004╱ // 0xa6a @0x25
0x0a45…0a7e at002a = ╱e4╱*╱ // 0xa6f @0x2a
0x0a45…0a7e at002b = ╱ed╱(╱ // 0xa70 @0x2b
0x0a45…0a7e at002c = ╱54╱T╱ // 0xa71 @0x2c
0x0a45…0a7e at002d = ╱4b╱K╱ // 0xa72 @0x2d
0x0a45…0a7e at002e = ╱53╱S╱ // 0xa73 @0x2e
0x0a45…0a7e at002f = ╱de╱>╱ // 0xa74 @0x2f
0x0a45…0a7e at0030 = ╱32╱2╱ // 0xa75 @0x30
0x0a45…0a7e at0031 = ╱30╱0╱ // 0xa76 @0x31
0x0a45…0a7e at0032 = ╱fe0000a005╱ // 0xa77 @0x32
0x0a45…0a7e at0037 = ╱ee╱)╱ // 0xa7c @0x37
0x0a45…0a7e at0038 = EOL // 0xa7d @0x38
0x0a45…0a7e }
0x0a7e…0a96 97ed 1100 IF TKS>W AND TKS<20 THEN
0x0a7e…0a96 LineComalBin {
0x0a7e…0a96 ptr = 0x97ed // 0xa7e @0x0
0x0a7e…0a96 lno = 0x044c // 0xa80 @0x2
0x0a7e…0a96 at0004 = ╱9c╱ IF ╱ // 0xa82 @0x4
0x0a7e…0a96 at0005 = ╱54╱T╱ // 0xa83 @0x5
0x0a7e…0a96 at0006 = ╱4b╱K╱ // 0xa84 @0x6
0x0a7e…0a96 at0007 = ╱53╱S╱ // 0xa85 @0x7
0x0a7e…0a96 at0008 = ╱de╱>╱ // 0xa86 @0x8
0x0a7e…0a96 at0009 = ╱57╱W╱ // 0xa87 @0x9
0x0a7e…0a96 at000a = ╱da╱ AND ╱ // 0xa88 @0xa
0x0a7e…0a96 at000b = ╱54╱T╱ // 0xa89 @0xb
0x0a7e…0a96 at000c = ╱4b╱K╱ // 0xa8a @0xc
0x0a7e…0a96 at000d = ╱53╱S╱ // 0xa8b @0xd
0x0a7e…0a96 at000e = ╱dd╱<╱ // 0xa8c @0xe
0x0a7e…0a96 at000f = ╱32╱2╱ // 0xa8d @0xf
0x0a7e…0a96 at0010 = ╱30╱0╱ // 0xa8e @0x10
0x0a7e…0a96 at0011 = ╱fe0000a005╱ // 0xa8f @0x11
0x0a7e…0a96 at0016 = ╱b6╱ THEN ╱ // 0xa94 @0x16
0x0a7e…0a96 at0017 = EOL // 0xa95 @0x17
0x0a7e…0a96 }
0x0a96…0aa0 97f7 1110 K=K+E
0x0a96…0aa0 LineComalBin {
0x0a96…0aa0 ptr = 0x97f7 // 0xa96 @0x0
0x0a96…0aa0 lno = 0x0456 // 0xa98 @0x2
0x0a96…0aa0 at0004 = ╱4b╱K╱ // 0xa9a @0x4
0x0a96…0aa0 at0005 = ╱dc╱=╱ // 0xa9b @0x5
0x0a96…0aa0 at0006 = ╱4b╱K╱ // 0xa9c @0x6
0x0a96…0aa0 at0007 = ╱e2╱+╱ // 0xa9d @0x7
0x0a96…0aa0 at0008 = ╱45╱E╱ // 0xa9e @0x8
0x0a96…0aa0 at0009 = EOL // 0xa9f @0x9
0x0a96…0aa0 }
0x0aa0…0ab9 9810 1120 GET K35$,K:KONTO,TEKST$
0x0aa0…0ab9 LineComalBin {
0x0aa0…0ab9 ptr = 0x9810 // 0xaa0 @0x0
0x0aa0…0ab9 lno = 0x0460 // 0xaa2 @0x2
0x0aa0…0ab9 at0004 = ╱a9╱ GET ╱ // 0xaa4 @0x4
0x0aa0…0ab9 at0005 = ╱4b╱K╱ // 0xaa5 @0x5
0x0aa0…0ab9 at0006 = ╱33╱3╱ // 0xaa6 @0x6
0x0aa0…0ab9 at0007 = ╱35╱5╱ // 0xaa7 @0x7
0x0aa0…0ab9 at0008 = ╱ef╱$╱ // 0xaa8 @0x8
0x0aa0…0ab9 at0009 = ╱ec╱,╱ // 0xaa9 @0x9
0x0aa0…0ab9 at000a = ╱4b╱K╱ // 0xaaa @0xa
0x0aa0…0ab9 at000b = ╱f0╱:╱ // 0xaab @0xb
0x0aa0…0ab9 at000c = ╱4b╱K╱ // 0xaac @0xc
0x0aa0…0ab9 at000d = ╱4f╱O╱ // 0xaad @0xd
0x0aa0…0ab9 at000e = ╱4e╱N╱ // 0xaae @0xe
0x0aa0…0ab9 at000f = ╱54╱T╱ // 0xaaf @0xf
0x0aa0…0ab9 at0010 = ╱4f╱O╱ // 0xab0 @0x10
0x0aa0…0ab9 at0011 = ╱ec╱,╱ // 0xab1 @0x11
0x0aa0…0ab9 at0012 = ╱54╱T╱ // 0xab2 @0x12
0x0aa0…0ab9 at0013 = ╱45╱E╱ // 0xab3 @0x13
0x0aa0…0ab9 at0014 = ╱4b╱K╱ // 0xab4 @0x14
0x0aa0…0ab9 at0015 = ╱53╱S╱ // 0xab5 @0x15
0x0aa0…0ab9 at0016 = ╱54╱T╱ // 0xab6 @0x16
0x0aa0…0ab9 at0017 = ╱ef╱$╱ // 0xab7 @0x17
0x0aa0…0ab9 at0018 = EOL // 0xab8 @0x18
0x0aa0…0ab9 }
0x0ab9…0ad2 9829 1130 EXEC FEJL(E,4,K35$)
0x0ab9…0ad2 LineComalBin {
0x0ab9…0ad2 ptr = 0x9829 // 0xab9 @0x0
0x0ab9…0ad2 lno = 0x046a // 0xabb @0x2
0x0ab9…0ad2 at0004 = ╱9d╱ EXEC ╱ // 0xabd @0x4
0x0ab9…0ad2 at0005 = ╱46╱F╱ // 0xabe @0x5
0x0ab9…0ad2 at0006 = ╱45╱E╱ // 0xabf @0x6
0x0ab9…0ad2 at0007 = ╱4a╱J╱ // 0xac0 @0x7
0x0ab9…0ad2 at0008 = ╱4c╱L╱ // 0xac1 @0x8
0x0ab9…0ad2 at0009 = ╱ed╱(╱ // 0xac2 @0x9
0x0ab9…0ad2 at000a = ╱45╱E╱ // 0xac3 @0xa
0x0ab9…0ad2 at000b = ╱ec╱,╱ // 0xac4 @0xb
0x0ab9…0ad2 at000c = ╱34╱4╱ // 0xac5 @0xc
0x0ab9…0ad2 at000d = ╱fe00008003╱ // 0xac6 @0xd
0x0ab9…0ad2 at0012 = ╱ec╱,╱ // 0xacb @0x12
0x0ab9…0ad2 at0013 = ╱4b╱K╱ // 0xacc @0x13
0x0ab9…0ad2 at0014 = ╱33╱3╱ // 0xacd @0x14
0x0ab9…0ad2 at0015 = ╱35╱5╱ // 0xace @0x15
0x0ab9…0ad2 at0016 = ╱ef╱$╱ // 0xacf @0x16
0x0ab9…0ad2 at0017 = ╱ee╱)╱ // 0xad0 @0x17
0x0ab9…0ad2 at0018 = EOL // 0xad1 @0x18
0x0ab9…0ad2 }
0x0ad2…0ad8 982f 1150 ELSE
0x0ad2…0ad8 LineComalBin {
0x0ad2…0ad8 ptr = 0x982f // 0xad2 @0x0
0x0ad2…0ad8 lno = 0x047e // 0xad4 @0x2
0x0ad2…0ad8 at0004 = ╱9a╱ ELSE ╱ // 0xad6 @0x4
0x0ad2…0ad8 at0005 = EOL // 0xad7 @0x5
0x0ad2…0ad8 }
0x0ad8…0b02 9859 1160 IF TKS>B AND TKS<30 THEN TEKST$=TFIL$(TKS9)
0x0ad8…0b02 LineComalBin {
0x0ad8…0b02 ptr = 0x9859 // 0xad8 @0x0
0x0ad8…0b02 lno = 0x0488 // 0xada @0x2
0x0ad8…0b02 at0004 = ╱82╱ IF ╱ // 0xadc @0x4
0x0ad8…0b02 at0005 = ╱54╱T╱ // 0xadd @0x5
0x0ad8…0b02 at0006 = ╱4b╱K╱ // 0xade @0x6
0x0ad8…0b02 at0007 = ╱53╱S╱ // 0xadf @0x7
0x0ad8…0b02 at0008 = ╱de╱>╱ // 0xae0 @0x8
0x0ad8…0b02 at0009 = ╱42╱B╱ // 0xae1 @0x9
0x0ad8…0b02 at000a = ╱da╱ AND ╱ // 0xae2 @0xa
0x0ad8…0b02 at000b = ╱54╱T╱ // 0xae3 @0xb
0x0ad8…0b02 at000c = ╱4b╱K╱ // 0xae4 @0xc
0x0ad8…0b02 at000d = ╱53╱S╱ // 0xae5 @0xd
0x0ad8…0b02 at000e = ╱dd╱<╱ // 0xae6 @0xe
0x0ad8…0b02 at000f = ╱33╱3╱ // 0xae7 @0xf
0x0ad8…0b02 at0010 = ╱30╱0╱ // 0xae8 @0x10
0x0ad8…0b02 at0011 = ╱fe0000f005╱ // 0xae9 @0x11
0x0ad8…0b02 at0016 = ╱b6╱ THEN ╱ // 0xaee @0x16
0x0ad8…0b02 at0017 = ╱54╱T╱ // 0xaef @0x17
0x0ad8…0b02 at0018 = ╱45╱E╱ // 0xaf0 @0x18
0x0ad8…0b02 at0019 = ╱4b╱K╱ // 0xaf1 @0x19
0x0ad8…0b02 at001a = ╱53╱S╱ // 0xaf2 @0x1a
0x0ad8…0b02 at001b = ╱54╱T╱ // 0xaf3 @0x1b
0x0ad8…0b02 at001c = ╱ef╱$╱ // 0xaf4 @0x1c
0x0ad8…0b02 at001d = ╱dc╱=╱ // 0xaf5 @0x1d
0x0ad8…0b02 at001e = ╱54╱T╱ // 0xaf6 @0x1e
0x0ad8…0b02 at001f = ╱46╱F╱ // 0xaf7 @0x1f
0x0ad8…0b02 at0020 = ╱49╱I╱ // 0xaf8 @0x20
0x0ad8…0b02 at0021 = ╱4c╱L╱ // 0xaf9 @0x21
0x0ad8…0b02 at0022 = ╱ef╱$╱ // 0xafa @0x22
0x0ad8…0b02 at0023 = ╱ed╱(╱ // 0xafb @0x23
0x0ad8…0b02 at0024 = ╱54╱T╱ // 0xafc @0x24
0x0ad8…0b02 at0025 = ╱4b╱K╱ // 0xafd @0x25
0x0ad8…0b02 at0026 = ╱53╱S╱ // 0xafe @0x26
0x0ad8…0b02 at0027 = ╱39╱9╱ // 0xaff @0x27
0x0ad8…0b02 at0028 = ╱ee╱)╱ // 0xb00 @0x28
0x0ad8…0b02 at0029 = EOL // 0xb01 @0x29
0x0ad8…0b02 }
0x0b02…0b08 985f 1210 ENDIF
0x0b02…0b08 LineComalBin {
0x0b02…0b08 ptr = 0x985f // 0xb02 @0x0
0x0b02…0b08 lno = 0x04ba // 0xb04 @0x2
0x0b02…0b08 at0004 = ╱9b╱ ENDIF ╱ // 0xb06 @0x4
0x0b02…0b08 at0005 = EOL // 0xb07 @0x5
0x0b02…0b08 }
0x0b08…0b21 9878 1215 TEKST$=TEKST$+BLANK$
0x0b08…0b21 LineComalBin {
0x0b08…0b21 ptr = 0x9878 // 0xb08 @0x0
0x0b08…0b21 lno = 0x04bf // 0xb0a @0x2
0x0b08…0b21 at0004 = ╱54╱T╱ // 0xb0c @0x4
0x0b08…0b21 at0005 = ╱45╱E╱ // 0xb0d @0x5
0x0b08…0b21 at0006 = ╱4b╱K╱ // 0xb0e @0x6
0x0b08…0b21 at0007 = ╱53╱S╱ // 0xb0f @0x7
0x0b08…0b21 at0008 = ╱54╱T╱ // 0xb10 @0x8
0x0b08…0b21 at0009 = ╱ef╱$╱ // 0xb11 @0x9
0x0b08…0b21 at000a = ╱dc╱=╱ // 0xb12 @0xa
0x0b08…0b21 at000b = ╱54╱T╱ // 0xb13 @0xb
0x0b08…0b21 at000c = ╱45╱E╱ // 0xb14 @0xc
0x0b08…0b21 at000d = ╱4b╱K╱ // 0xb15 @0xd
0x0b08…0b21 at000e = ╱53╱S╱ // 0xb16 @0xe
0x0b08…0b21 at000f = ╱54╱T╱ // 0xb17 @0xf
0x0b08…0b21 at0010 = ╱ef╱$╱ // 0xb18 @0x10
0x0b08…0b21 at0011 = ╱f1╱+╱ // 0xb19 @0x11
0x0b08…0b21 at0012 = ╱42╱B╱ // 0xb1a @0x12
0x0b08…0b21 at0013 = ╱4c╱L╱ // 0xb1b @0x13
0x0b08…0b21 at0014 = ╱41╱A╱ // 0xb1c @0x14
0x0b08…0b21 at0015 = ╱4e╱N╱ // 0xb1d @0x15
0x0b08…0b21 at0016 = ╱4b╱K╱ // 0xb1e @0x16
0x0b08…0b21 at0017 = ╱ef╱$╱ // 0xb1f @0x17
0x0b08…0b21 at0018 = EOL // 0xb20 @0x18
0x0b08…0b21 }
0x0b21…0b4d (37,) 98a4 1220 IF TKS<30 THEN EXEC UDSKRIV(PKODE,SU3$,LINIE)
0x0b21…0b4d LineComalBin {
0x0b21…0b4d ptr = 0x98a4 // 0xb21 @0x0
0x0b21…0b4d lno = 0x04c4 // 0xb23 @0x2
0x0b21…0b4d at0004 = ╱82╱ IF ╱ // 0xb25 @0x4
0x0b21…0b4d at0005 = ╱54╱T╱ // 0xb26 @0x5
0x0b21…0b4d at0006 = ╱4b╱K╱ // 0xb27 @0x6
0x0b21…0b4d at0007 = ╱53╱S╱ // 0xb28 @0x7
0x0b21…0b4d at0008 = ╱dd╱<╱ // 0xb29 @0x8
0x0b21…0b4d at0009 = ╱33╱3╱ // 0xb2a @0x9
0x0b21…0b4d at000a = ╱30╱0╱ // 0xb2b @0xa
0x0b21…0b4d at000b = ╱fe0000f005╱ // 0xb2c @0xb
0x0b21…0b4d at0010 = ╱b6╱ THEN ╱ // 0xb31 @0x10
0x0b21…0b4d at0011 = ╱9d╱ EXEC ╱ // 0xb32 @0x11
0x0b21…0b4d at0012 = ╱55╱U╱ // 0xb33 @0x12
0x0b21…0b4d at0013 = ╱44╱D╱ // 0xb34 @0x13
0x0b21…0b4d at0014 = ╱53╱S╱ // 0xb35 @0x14
0x0b21…0b4d at0015 = ╱4b╱K╱ // 0xb36 @0x15
0x0b21…0b4d at0016 = ╱52╱R╱ // 0xb37 @0x16
0x0b21…0b4d at0017 = ╱49╱I╱ // 0xb38 @0x17
0x0b21…0b4d at0018 = ╱56╱V╱ // 0xb39 @0x18
0x0b21…0b4d at0019 = ╱ed╱(╱ // 0xb3a @0x19
0x0b21…0b4d at001a = ╱50╱P╱ // 0xb3b @0x1a
0x0b21…0b4d at001b = ╱4b╱K╱ // 0xb3c @0x1b
0x0b21…0b4d at001c = ╱4f╱O╱ // 0xb3d @0x1c
0x0b21…0b4d at001d = ╱44╱D╱ // 0xb3e @0x1d
0x0b21…0b4d at001e = ╱45╱E╱ // 0xb3f @0x1e
0x0b21…0b4d at001f = ╱ec╱,╱ // 0xb40 @0x1f
0x0b21…0b4d at0020 = ╱53╱S╱ // 0xb41 @0x20
0x0b21…0b4d at0021 = ╱55╱U╱ // 0xb42 @0x21
0x0b21…0b4d at0022 = ╱33╱3╱ // 0xb43 @0x22
0x0b21…0b4d at0023 = ╱ef╱$╱ // 0xb44 @0x23
0x0b21…0b4d at0024 = ╱ec╱,╱ // 0xb45 @0x24
0x0b21…0b4d at0025 = ╱4c╱L╱ // 0xb46 @0x25
0x0b21…0b4d at0026 = ╱49╱I╱ // 0xb47 @0x26
0x0b21…0b4d at0027 = ╱4e╱N╱ // 0xb48 @0x27
0x0b21…0b4d at0028 = ╱49╱I╱ // 0xb49 @0x28
0x0b21…0b4d at0029 = ╱45╱E╱ // 0xb4a @0x29
0x0b21…0b4d at002a = ╱ee╱)╱ // 0xb4b @0x2a
0x0b21…0b4d at002b = EOL // 0xb4c @0x2b
0x0b21…0b4d }
0x0b4d…0b54 98ab 1230 NEXT K
0x0b4d…0b54 LineComalBin {
0x0b4d…0b54 ptr = 0x98ab // 0xb4d @0x0
0x0b4d…0b54 lno = 0x04ce // 0xb4f @0x2
0x0b4d…0b54 at0004 = ╱84╱ NEXT ╱ // 0xb51 @0x4
0x0b4d…0b54 at0005 = ╱4b╱K╱ // 0xb52 @0x5
0x0b4d…0b54 at0006 = EOL // 0xb53 @0x6
0x0b4d…0b54 }
0x0b54…0b75 98cc 1240 IF MAFSLUT=E THEN T6=K;NØGLE4=KONTO
0x0b54…0b75 LineComalBin {
0x0b54…0b75 ptr = 0x98cc // 0xb54 @0x0
0x0b54…0b75 lno = 0x04d8 // 0xb56 @0x2
0x0b54…0b75 at0004 = ╱82╱ IF ╱ // 0xb58 @0x4
0x0b54…0b75 at0005 = ╱4d╱M╱ // 0xb59 @0x5
0x0b54…0b75 at0006 = ╱41╱A╱ // 0xb5a @0x6
0x0b54…0b75 at0007 = ╱46╱F╱ // 0xb5b @0x7
0x0b54…0b75 at0008 = ╱53╱S╱ // 0xb5c @0x8
0x0b54…0b75 at0009 = ╱4c╱L╱ // 0xb5d @0x9
0x0b54…0b75 at000a = ╱55╱U╱ // 0xb5e @0xa
0x0b54…0b75 at000b = ╱54╱T╱ // 0xb5f @0xb
0x0b54…0b75 at000c = ╱dc╱=╱ // 0xb60 @0xc
0x0b54…0b75 at000d = ╱45╱E╱ // 0xb61 @0xd
0x0b54…0b75 at000e = ╱b6╱ THEN ╱ // 0xb62 @0xe
0x0b54…0b75 at000f = ╱54╱T╱ // 0xb63 @0xf
0x0b54…0b75 at0010 = ╱36╱6╱ // 0xb64 @0x10
0x0b54…0b75 at0011 = ╱dc╱=╱ // 0xb65 @0x11
0x0b54…0b75 at0012 = ╱4b╱K╱ // 0xb66 @0x12
0x0b54…0b75 at0013 = ╱eb╱;╱ // 0xb67 @0x13
0x0b54…0b75 at0014 = ╱4e╱N╱ // 0xb68 @0x14
0x0b54…0b75 at0015 = ╱5c╱Ø╱ // 0xb69 @0x15
0x0b54…0b75 at0016 = ╱47╱G╱ // 0xb6a @0x16
0x0b54…0b75 at0017 = ╱4c╱L╱ // 0xb6b @0x17
0x0b54…0b75 at0018 = ╱45╱E╱ // 0xb6c @0x18
0x0b54…0b75 at0019 = ╱34╱4╱ // 0xb6d @0x19
0x0b54…0b75 at001a = ╱dc╱=╱ // 0xb6e @0x1a
0x0b54…0b75 at001b = ╱4b╱K╱ // 0xb6f @0x1b
0x0b54…0b75 at001c = ╱4f╱O╱ // 0xb70 @0x1c
0x0b54…0b75 at001d = ╱4e╱N╱ // 0xb71 @0x1d
0x0b54…0b75 at001e = ╱54╱T╱ // 0xb72 @0x1e
0x0b54…0b75 at001f = ╱4f╱O╱ // 0xb73 @0x1f
0x0b54…0b75 at0020 = EOL // 0xb74 @0x20
0x0b54…0b75 }
0x0b75…0b7b 98d2 1270 ELSE
0x0b75…0b7b LineComalBin {
0x0b75…0b7b ptr = 0x98d2 // 0xb75 @0x0
0x0b75…0b7b lno = 0x04f6 // 0xb77 @0x2
0x0b75…0b7b at0004 = ╱9a╱ ELSE ╱ // 0xb79 @0x4
0x0b75…0b7b at0005 = EOL // 0xb7a @0x5
0x0b75…0b7b }
0x0b7b…0b97 98ee 1280 T6=T5;NØGLE4=KTNUM;T5=B
0x0b7b…0b97 LineComalBin {
0x0b7b…0b97 ptr = 0x98ee // 0xb7b @0x0
0x0b7b…0b97 lno = 0x0500 // 0xb7d @0x2
0x0b7b…0b97 at0004 = ╱54╱T╱ // 0xb7f @0x4
0x0b7b…0b97 at0005 = ╱36╱6╱ // 0xb80 @0x5
0x0b7b…0b97 at0006 = ╱dc╱=╱ // 0xb81 @0x6
0x0b7b…0b97 at0007 = ╱54╱T╱ // 0xb82 @0x7
0x0b7b…0b97 at0008 = ╱35╱5╱ // 0xb83 @0x8
0x0b7b…0b97 at0009 = ╱eb╱;╱ // 0xb84 @0x9
0x0b7b…0b97 at000a = ╱4e╱N╱ // 0xb85 @0xa
0x0b7b…0b97 at000b = ╱5c╱Ø╱ // 0xb86 @0xb
0x0b7b…0b97 at000c = ╱47╱G╱ // 0xb87 @0xc
0x0b7b…0b97 at000d = ╱4c╱L╱ // 0xb88 @0xd
0x0b7b…0b97 at000e = ╱45╱E╱ // 0xb89 @0xe
0x0b7b…0b97 at000f = ╱34╱4╱ // 0xb8a @0xf
0x0b7b…0b97 at0010 = ╱dc╱=╱ // 0xb8b @0x10
0x0b7b…0b97 at0011 = ╱4b╱K╱ // 0xb8c @0x11
0x0b7b…0b97 at0012 = ╱54╱T╱ // 0xb8d @0x12
0x0b7b…0b97 at0013 = ╱4e╱N╱ // 0xb8e @0x13
0x0b7b…0b97 at0014 = ╱55╱U╱ // 0xb8f @0x14
0x0b7b…0b97 at0015 = ╱4d╱M╱ // 0xb90 @0x15
0x0b7b…0b97 at0016 = ╱eb╱;╱ // 0xb91 @0x16
0x0b7b…0b97 at0017 = ╱54╱T╱ // 0xb92 @0x17
0x0b7b…0b97 at0018 = ╱35╱5╱ // 0xb93 @0x18
0x0b7b…0b97 at0019 = ╱dc╱=╱ // 0xb94 @0x19
0x0b7b…0b97 at001a = ╱42╱B╱ // 0xb95 @0x1a
0x0b7b…0b97 at001b = EOL // 0xb96 @0x1b
0x0b7b…0b97 }
0x0b97…0b9d 98f4 1300 ENDIF
0x0b97…0b9d LineComalBin {
0x0b97…0b9d ptr = 0x98f4 // 0xb97 @0x0
0x0b97…0b9d lno = 0x0514 // 0xb99 @0x2
0x0b97…0b9d at0004 = ╱9b╱ ENDIF ╱ // 0xb9b @0x4
0x0b97…0b9d at0005 = EOL // 0xb9c @0x5
0x0b97…0b9d }
0x0b9d…0ba7 98fe 1310 CLOSE K35$
0x0b9d…0ba7 LineComalBin {
0x0b9d…0ba7 ptr = 0x98fe // 0xb9d @0x0
0x0b9d…0ba7 lno = 0x051e // 0xb9f @0x2
0x0b9d…0ba7 at0004 = ╱a8╱ CLOSE ╱ // 0xba1 @0x4
0x0b9d…0ba7 at0005 = ╱4b╱K╱ // 0xba2 @0x5
0x0b9d…0ba7 at0006 = ╱33╱3╱ // 0xba3 @0x6
0x0b9d…0ba7 at0007 = ╱35╱5╱ // 0xba4 @0x7
0x0b9d…0ba7 at0008 = ╱ef╱$╱ // 0xba5 @0x8
0x0b9d…0ba7 at0009 = EOL // 0xba6 @0x9
0x0b9d…0ba7 }
0x0ba7…0bc0 9917 1320 EXEC FEJL(E,5,K35$)
0x0ba7…0bc0 LineComalBin {
0x0ba7…0bc0 ptr = 0x9917 // 0xba7 @0x0
0x0ba7…0bc0 lno = 0x0528 // 0xba9 @0x2
0x0ba7…0bc0 at0004 = ╱9d╱ EXEC ╱ // 0xbab @0x4
0x0ba7…0bc0 at0005 = ╱46╱F╱ // 0xbac @0x5
0x0ba7…0bc0 at0006 = ╱45╱E╱ // 0xbad @0x6
0x0ba7…0bc0 at0007 = ╱4a╱J╱ // 0xbae @0x7
0x0ba7…0bc0 at0008 = ╱4c╱L╱ // 0xbaf @0x8
0x0ba7…0bc0 at0009 = ╱ed╱(╱ // 0xbb0 @0x9
0x0ba7…0bc0 at000a = ╱45╱E╱ // 0xbb1 @0xa
0x0ba7…0bc0 at000b = ╱ec╱,╱ // 0xbb2 @0xb
0x0ba7…0bc0 at000c = ╱35╱5╱ // 0xbb3 @0xc
0x0ba7…0bc0 at000d = ╱fe0000a003╱ // 0xbb4 @0xd
0x0ba7…0bc0 at0012 = ╱ec╱,╱ // 0xbb9 @0x12
0x0ba7…0bc0 at0013 = ╱4b╱K╱ // 0xbba @0x13
0x0ba7…0bc0 at0014 = ╱33╱3╱ // 0xbbb @0x14
0x0ba7…0bc0 at0015 = ╱35╱5╱ // 0xbbc @0x15
0x0ba7…0bc0 at0016 = ╱ef╱$╱ // 0xbbd @0x16
0x0ba7…0bc0 at0017 = ╱ee╱)╱ // 0xbbe @0x17
0x0ba7…0bc0 at0018 = EOL // 0xbbf @0x18
0x0ba7…0bc0 }
0x0bc0…0bc6 991d 1330 ENDPROC
0x0bc0…0bc6 LineComalBin {
0x0bc0…0bc6 ptr = 0x991d // 0xbc0 @0x0
0x0bc0…0bc6 lno = 0x0532 // 0xbc2 @0x2
0x0bc0…0bc6 at0004 = ╱9f╱ ENDPROC ╱ // 0xbc4 @0x4
0x0bc0…0bc6 at0005 = EOL // 0xbc5 @0x5
0x0bc0…0bc6 }
0x0bc6…0bed 9944 1340 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1,ENT1)
0x0bc6…0bed LineComalBin {
0x0bc6…0bed ptr = 0x9944 // 0xbc6 @0x0
0x0bc6…0bed lno = 0x053c // 0xbc8 @0x2
0x0bc6…0bed at0004 = ╱9e╱ PROC ╱ // 0xbca @0x4
0x0bc6…0bed at0005 = ╱4c╱L╱ // 0xbcb @0x5
0x0bc6…0bed at0006 = ╱49╱I╱ // 0xbcc @0x6
0x0bc6…0bed at0007 = ╱4e╱N╱ // 0xbcd @0x7
0x0bc6…0bed at0008 = ╱49╱I╱ // 0xbce @0x8
0x0bc6…0bed at0009 = ╱45╱E╱ // 0xbcf @0x9
0x0bc6…0bed at000a = ╱55╱U╱ // 0xbd0 @0xa
0x0bc6…0bed at000b = ╱44╱D╱ // 0xbd1 @0xb
0x0bc6…0bed at000c = ╱ed╱(╱ // 0xbd2 @0xc
0x0bc6…0bed at000d = ╱44╱D╱ // 0xbd3 @0xd
0x0bc6…0bed at000e = ╱41╱A╱ // 0xbd4 @0xe
0x0bc6…0bed at000f = ╱32╱2╱ // 0xbd5 @0xf
0x0bc6…0bed at0010 = ╱ec╱,╱ // 0xbd6 @0x10
0x0bc6…0bed at0011 = ╱42╱B╱ // 0xbd7 @0x11
0x0bc6…0bed at0012 = ╱49╱I╱ // 0xbd8 @0x12
0x0bc6…0bed at0013 = ╱32╱2╱ // 0xbd9 @0x13
0x0bc6…0bed at0014 = ╱ec╱,╱ // 0xbda @0x14
0x0bc6…0bed at0015 = ╱54╱T╱ // 0xbdb @0x15
0x0bc6…0bed at0016 = ╱45╱E╱ // 0xbdc @0x16
0x0bc6…0bed at0017 = ╱32╱2╱ // 0xbdd @0x17
0x0bc6…0bed at0018 = ╱ec╱,╱ // 0xbde @0x18
0x0bc6…0bed at0019 = ╱42╱B╱ // 0xbdf @0x19
0x0bc6…0bed at001a = ╱45╱E╱ // 0xbe0 @0x1a
0x0bc6…0bed at001b = ╱32╱2╱ // 0xbe1 @0x1b
0x0bc6…0bed at001c = ╱ec╱,╱ // 0xbe2 @0x1c
0x0bc6…0bed at001d = ╱53╱S╱ // 0xbe3 @0x1d
0x0bc6…0bed at001e = ╱55╱U╱ // 0xbe4 @0x1e
0x0bc6…0bed at001f = ╱31╱1╱ // 0xbe5 @0x1f
0x0bc6…0bed at0020 = ╱ec╱,╱ // 0xbe6 @0x20
0x0bc6…0bed at0021 = ╱45╱E╱ // 0xbe7 @0x21
0x0bc6…0bed at0022 = ╱4e╱N╱ // 0xbe8 @0x22
0x0bc6…0bed at0023 = ╱54╱T╱ // 0xbe9 @0x23
0x0bc6…0bed at0024 = ╱31╱1╱ // 0xbea @0x24
0x0bc6…0bed at0025 = ╱ee╱)╱ // 0xbeb @0x25
0x0bc6…0bed at0026 = EOL // 0xbec @0x26
0x0bc6…0bed }
0x0bed…0bfb 9952 1350 SK=SKRIV1
0x0bed…0bfb LineComalBin {
0x0bed…0bfb ptr = 0x9952 // 0xbed @0x0
0x0bed…0bfb lno = 0x0546 // 0xbef @0x2
0x0bed…0bfb at0004 = ╱53╱S╱ // 0xbf1 @0x4
0x0bed…0bfb at0005 = ╱4b╱K╱ // 0xbf2 @0x5
0x0bed…0bfb at0006 = ╱dc╱=╱ // 0xbf3 @0x6
0x0bed…0bfb at0007 = ╱53╱S╱ // 0xbf4 @0x7
0x0bed…0bfb at0008 = ╱4b╱K╱ // 0xbf5 @0x8
0x0bed…0bfb at0009 = ╱52╱R╱ // 0xbf6 @0x9
0x0bed…0bfb at000a = ╱49╱I╱ // 0xbf7 @0xa
0x0bed…0bfb at000b = ╱56╱V╱ // 0xbf8 @0xb
0x0bed…0bfb at000c = ╱31╱1╱ // 0xbf9 @0xc
0x0bed…0bfb at000d = EOL // 0xbfa @0xd
0x0bed…0bfb }
0x0bfb…0c17 996e 1360 EXEC CALC(B,SU1$,BE2$,SU1$)
0x0bfb…0c17 LineComalBin {
0x0bfb…0c17 ptr = 0x996e // 0xbfb @0x0
0x0bfb…0c17 lno = 0x0550 // 0xbfd @0x2
0x0bfb…0c17 at0004 = ╱9d╱ EXEC ╱ // 0xbff @0x4
0x0bfb…0c17 at0005 = ╱43╱C╱ // 0xc00 @0x5
0x0bfb…0c17 at0006 = ╱41╱A╱ // 0xc01 @0x6
0x0bfb…0c17 at0007 = ╱4c╱L╱ // 0xc02 @0x7
0x0bfb…0c17 at0008 = ╱43╱C╱ // 0xc03 @0x8
0x0bfb…0c17 at0009 = ╱ed╱(╱ // 0xc04 @0x9
0x0bfb…0c17 at000a = ╱42╱B╱ // 0xc05 @0xa
0x0bfb…0c17 at000b = ╱ec╱,╱ // 0xc06 @0xb
0x0bfb…0c17 at000c = ╱53╱S╱ // 0xc07 @0xc
0x0bfb…0c17 at000d = ╱55╱U╱ // 0xc08 @0xd
0x0bfb…0c17 at000e = ╱31╱1╱ // 0xc09 @0xe
0x0bfb…0c17 at000f = ╱ef╱$╱ // 0xc0a @0xf
0x0bfb…0c17 at0010 = ╱ec╱,╱ // 0xc0b @0x10
0x0bfb…0c17 at0011 = ╱42╱B╱ // 0xc0c @0x11
0x0bfb…0c17 at0012 = ╱45╱E╱ // 0xc0d @0x12
0x0bfb…0c17 at0013 = ╱32╱2╱ // 0xc0e @0x13
0x0bfb…0c17 at0014 = ╱ef╱$╱ // 0xc0f @0x14
0x0bfb…0c17 at0015 = ╱ec╱,╱ // 0xc10 @0x15
0x0bfb…0c17 at0016 = ╱53╱S╱ // 0xc11 @0x16
0x0bfb…0c17 at0017 = ╱55╱U╱ // 0xc12 @0x17
0x0bfb…0c17 at0018 = ╱31╱1╱ // 0xc13 @0x18
0x0bfb…0c17 at0019 = ╱ef╱$╱ // 0xc14 @0x19
0x0bfb…0c17 at001a = ╱ee╱)╱ // 0xc15 @0x1a
0x0bfb…0c17 at001b = EOL // 0xc16 @0x1b
0x0bfb…0c17 }
0x0c17…0c2d 9984 1370 EXEC DATOUD(DA2,DA5$)
0x0c17…0c2d LineComalBin {
0x0c17…0c2d ptr = 0x9984 // 0xc17 @0x0
0x0c17…0c2d lno = 0x055a // 0xc19 @0x2
0x0c17…0c2d at0004 = ╱9d╱ EXEC ╱ // 0xc1b @0x4
0x0c17…0c2d at0005 = ╱44╱D╱ // 0xc1c @0x5
0x0c17…0c2d at0006 = ╱41╱A╱ // 0xc1d @0x6
0x0c17…0c2d at0007 = ╱54╱T╱ // 0xc1e @0x7
0x0c17…0c2d at0008 = ╱4f╱O╱ // 0xc1f @0x8
0x0c17…0c2d at0009 = ╱55╱U╱ // 0xc20 @0x9
0x0c17…0c2d at000a = ╱44╱D╱ // 0xc21 @0xa
0x0c17…0c2d at000b = ╱ed╱(╱ // 0xc22 @0xb
0x0c17…0c2d at000c = ╱44╱D╱ // 0xc23 @0xc
0x0c17…0c2d at000d = ╱41╱A╱ // 0xc24 @0xd
0x0c17…0c2d at000e = ╱32╱2╱ // 0xc25 @0xe
0x0c17…0c2d at000f = ╱ec╱,╱ // 0xc26 @0xf
0x0c17…0c2d at0010 = ╱44╱D╱ // 0xc27 @0x10
0x0c17…0c2d at0011 = ╱41╱A╱ // 0xc28 @0x11
0x0c17…0c2d at0012 = ╱35╱5╱ // 0xc29 @0x12
0x0c17…0c2d at0013 = ╱ef╱$╱ // 0xc2a @0x13
0x0c17…0c2d at0014 = ╱ee╱)╱ // 0xc2b @0x14
0x0c17…0c2d at0015 = EOL // 0xc2c @0x15
0x0c17…0c2d }
0x0c2d…0c61 99b8 1380 PRINT TAB(E+10*(SK));DA5$;TAB(11+8*(SK));
0x0c2d…0c61 LineComalBin {
0x0c2d…0c61 ptr = 0x99b8 // 0xc2d @0x0
0x0c2d…0c61 lno = 0x0564 // 0xc2f @0x2
0x0c2d…0c61 at0004 = ╱92╱ PRINT ╱ // 0xc31 @0x4
0x0c2d…0c61 at0005 = ╱d2╱TAB╱ // 0xc32 @0x5
0x0c2d…0c61 at0006 = ╱ed╱(╱ // 0xc33 @0x6
0x0c2d…0c61 at0007 = ╱45╱E╱ // 0xc34 @0x7
0x0c2d…0c61 at0008 = ╱e2╱+╱ // 0xc35 @0x8
0x0c2d…0c61 at0009 = ╱31╱1╱ // 0xc36 @0x9
0x0c2d…0c61 at000a = ╱30╱0╱ // 0xc37 @0xa
0x0c2d…0c61 at000b = ╱fe0000a004╱ // 0xc38 @0xb
0x0c2d…0c61 at0010 = ╱e4╱*╱ // 0xc3d @0x10
0x0c2d…0c61 at0011 = ╱ed╱(╱ // 0xc3e @0x11
0x0c2d…0c61 at0012 = ╱53╱S╱ // 0xc3f @0x12
0x0c2d…0c61 at0013 = ╱4b╱K╱ // 0xc40 @0x13
0x0c2d…0c61 at0014 = ╱ee╱)╱ // 0xc41 @0x14
0x0c2d…0c61 at0015 = ╱ee╱)╱ // 0xc42 @0x15
0x0c2d…0c61 at0016 = ╱eb╱;╱ // 0xc43 @0x16
0x0c2d…0c61 at0017 = ╱44╱D╱ // 0xc44 @0x17
0x0c2d…0c61 at0018 = ╱41╱A╱ // 0xc45 @0x18
0x0c2d…0c61 at0019 = ╱35╱5╱ // 0xc46 @0x19
0x0c2d…0c61 at001a = ╱ef╱$╱ // 0xc47 @0x1a
0x0c2d…0c61 at001b = ╱eb╱;╱ // 0xc48 @0x1b
0x0c2d…0c61 at001c = ╱d2╱TAB╱ // 0xc49 @0x1c
0x0c2d…0c61 at001d = ╱ed╱(╱ // 0xc4a @0x1d
0x0c2d…0c61 at001e = ╱31╱1╱ // 0xc4b @0x1e
0x0c2d…0c61 at001f = ╱31╱1╱ // 0xc4c @0x1f
0x0c2d…0c61 at0020 = ╱fe0000b004╱ // 0xc4d @0x20
0x0c2d…0c61 at0025 = ╱e2╱+╱ // 0xc52 @0x25
0x0c2d…0c61 at0026 = ╱38╱8╱ // 0xc53 @0x26
0x0c2d…0c61 at0027 = ╱fe00008004╱ // 0xc54 @0x27
0x0c2d…0c61 at002c = ╱e4╱*╱ // 0xc59 @0x2c
0x0c2d…0c61 at002d = ╱ed╱(╱ // 0xc5a @0x2d
0x0c2d…0c61 at002e = ╱53╱S╱ // 0xc5b @0x2e
0x0c2d…0c61 at002f = ╱4b╱K╱ // 0xc5c @0x2f
0x0c2d…0c61 at0030 = ╱ee╱)╱ // 0xc5d @0x30
0x0c2d…0c61 at0031 = ╱ee╱)╱ // 0xc5e @0x31
0x0c2d…0c61 at0032 = ╱eb╱;╱ // 0xc5f @0x32
0x0c2d…0c61 at0033 = EOL // 0xc60 @0x33
0x0c2d…0c61 }
0x0c61…0c7e 99d5 1390 IF BI2<>-E THEN PRINT USING "#######":BI2;
0x0c61…0c7e LineComalBin {
0x0c61…0c7e ptr = 0x99d5 // 0xc61 @0x0
0x0c61…0c7e lno = 0x056e // 0xc63 @0x2
0x0c61…0c7e at0004 = ╱82╱ IF ╱ // 0xc65 @0x4
0x0c61…0c7e at0005 = ╱42╱B╱ // 0xc66 @0x5
0x0c61…0c7e at0006 = ╱49╱I╱ // 0xc67 @0x6
0x0c61…0c7e at0007 = ╱32╱2╱ // 0xc68 @0x7
0x0c61…0c7e at0008 = ╱e1╱<>╱ // 0xc69 @0x8
0x0c61…0c7e at0009 = ╱e9╱-╱ // 0xc6a @0x9
0x0c61…0c7e at000a = ╱45╱E╱ // 0xc6b @0xa
0x0c61…0c7e at000b = ╱b6╱ THEN ╱ // 0xc6c @0xb
0x0c61…0c7e at000c = ╱92╱ PRINT ╱ // 0xc6d @0xc
0x0c61…0c7e at000d = ╱b9╱ USING ╱ // 0xc6e @0xd
0x0c61…0c7e at000e = ╱22╱"╱ // 0xc6f @0xe
0x0c61…0c7e at000f = ╱23╱#╱ // 0xc70 @0xf
0x0c61…0c7e at0010 = ╱23╱#╱ // 0xc71 @0x10
0x0c61…0c7e at0011 = ╱23╱#╱ // 0xc72 @0x11
0x0c61…0c7e at0012 = ╱23╱#╱ // 0xc73 @0x12
0x0c61…0c7e at0013 = ╱23╱#╱ // 0xc74 @0x13
0x0c61…0c7e at0014 = ╱23╱#╱ // 0xc75 @0x14
0x0c61…0c7e at0015 = ╱23╱#╱ // 0xc76 @0x15
0x0c61…0c7e at0016 = ╱22╱"╱ // 0xc77 @0x16
0x0c61…0c7e at0017 = ╱f0╱:╱ // 0xc78 @0x17
0x0c61…0c7e at0018 = ╱42╱B╱ // 0xc79 @0x18
0x0c61…0c7e at0019 = ╱49╱I╱ // 0xc7a @0x19
0x0c61…0c7e at001a = ╱32╱2╱ // 0xc7b @0x1a
0x0c61…0c7e at001b = ╱eb╱;╱ // 0xc7c @0x1b
0x0c61…0c7e at001c = EOL // 0xc7d @0x1c
0x0c61…0c7e }
0x0c7e…0ca6 99fd 1420 PRINT TAB(18+W*(SK));TE2$;TAB(44);
0x0c7e…0ca6 LineComalBin {
0x0c7e…0ca6 ptr = 0x99fd // 0xc7e @0x0
0x0c7e…0ca6 lno = 0x058c // 0xc80 @0x2
0x0c7e…0ca6 at0004 = ╱92╱ PRINT ╱ // 0xc82 @0x4
0x0c7e…0ca6 at0005 = ╱d2╱TAB╱ // 0xc83 @0x5
0x0c7e…0ca6 at0006 = ╱ed╱(╱ // 0xc84 @0x6
0x0c7e…0ca6 at0007 = ╱31╱1╱ // 0xc85 @0x7
0x0c7e…0ca6 at0008 = ╱38╱8╱ // 0xc86 @0x8
0x0c7e…0ca6 at0009 = ╱fe00009005╱ // 0xc87 @0x9
0x0c7e…0ca6 at000e = ╱e2╱+╱ // 0xc8c @0xe
0x0c7e…0ca6 at000f = ╱57╱W╱ // 0xc8d @0xf
0x0c7e…0ca6 at0010 = ╱e4╱*╱ // 0xc8e @0x10
0x0c7e…0ca6 at0011 = ╱ed╱(╱ // 0xc8f @0x11
0x0c7e…0ca6 at0012 = ╱53╱S╱ // 0xc90 @0x12
0x0c7e…0ca6 at0013 = ╱4b╱K╱ // 0xc91 @0x13
0x0c7e…0ca6 at0014 = ╱ee╱)╱ // 0xc92 @0x14
0x0c7e…0ca6 at0015 = ╱ee╱)╱ // 0xc93 @0x15
0x0c7e…0ca6 at0016 = ╱eb╱;╱ // 0xc94 @0x16
0x0c7e…0ca6 at0017 = ╱54╱T╱ // 0xc95 @0x17
0x0c7e…0ca6 at0018 = ╱45╱E╱ // 0xc96 @0x18
0x0c7e…0ca6 at0019 = ╱32╱2╱ // 0xc97 @0x19
0x0c7e…0ca6 at001a = ╱ef╱$╱ // 0xc98 @0x1a
0x0c7e…0ca6 at001b = ╱eb╱;╱ // 0xc99 @0x1b
0x0c7e…0ca6 at001c = ╱d2╱TAB╱ // 0xc9a @0x1c
0x0c7e…0ca6 at001d = ╱ed╱(╱ // 0xc9b @0x1d
0x0c7e…0ca6 at001e = ╱34╱4╱ // 0xc9c @0x1e
0x0c7e…0ca6 at001f = ╱34╱4╱ // 0xc9d @0x1f
0x0c7e…0ca6 at0020 = ╱fe0000b006╱ // 0xc9e @0x20
0x0c7e…0ca6 at0025 = ╱ee╱)╱ // 0xca3 @0x25
0x0c7e…0ca6 at0026 = ╱eb╱;╱ // 0xca4 @0x26
0x0c7e…0ca6 at0027 = EOL // 0xca5 @0x27
0x0c7e…0ca6 }
0x0ca6…0cc0 9a17 1425 IF NOT SK THEN PRINT USING "######":ENT1;
0x0ca6…0cc0 LineComalBin {
0x0ca6…0cc0 ptr = 0x9a17 // 0xca6 @0x0
0x0ca6…0cc0 lno = 0x0591 // 0xca8 @0x2
0x0ca6…0cc0 at0004 = ╱82╱ IF ╱ // 0xcaa @0x4
0x0ca6…0cc0 at0005 = ╱d9╱ NOT ╱ // 0xcab @0x5
0x0ca6…0cc0 at0006 = ╱53╱S╱ // 0xcac @0x6
0x0ca6…0cc0 at0007 = ╱4b╱K╱ // 0xcad @0x7
0x0ca6…0cc0 at0008 = ╱b6╱ THEN ╱ // 0xcae @0x8
0x0ca6…0cc0 at0009 = ╱92╱ PRINT ╱ // 0xcaf @0x9
0x0ca6…0cc0 at000a = ╱b9╱ USING ╱ // 0xcb0 @0xa
0x0ca6…0cc0 at000b = ╱22╱"╱ // 0xcb1 @0xb
0x0ca6…0cc0 at000c = ╱23╱#╱ // 0xcb2 @0xc
0x0ca6…0cc0 at000d = ╱23╱#╱ // 0xcb3 @0xd
0x0ca6…0cc0 at000e = ╱23╱#╱ // 0xcb4 @0xe
0x0ca6…0cc0 at000f = ╱23╱#╱ // 0xcb5 @0xf
0x0ca6…0cc0 at0010 = ╱23╱#╱ // 0xcb6 @0x10
0x0ca6…0cc0 at0011 = ╱23╱#╱ // 0xcb7 @0x11
0x0ca6…0cc0 at0012 = ╱22╱"╱ // 0xcb8 @0x12
0x0ca6…0cc0 at0013 = ╱f0╱:╱ // 0xcb9 @0x13
0x0ca6…0cc0 at0014 = ╱45╱E╱ // 0xcba @0x14
0x0ca6…0cc0 at0015 = ╱4e╱N╱ // 0xcbb @0x15
0x0ca6…0cc0 at0016 = ╱54╱T╱ // 0xcbc @0x16
0x0ca6…0cc0 at0017 = ╱31╱1╱ // 0xcbd @0x17
0x0ca6…0cc0 at0018 = ╱eb╱;╱ // 0xcbe @0x18
0x0ca6…0cc0 at0019 = EOL // 0xcbf @0x19
0x0ca6…0cc0 }
0x0cc0…0cdb 9a32 1430 EXEC TUD(BE2$,UBELØB$,B,B)
0x0cc0…0cdb LineComalBin {
0x0cc0…0cdb ptr = 0x9a32 // 0xcc0 @0x0
0x0cc0…0cdb lno = 0x0596 // 0xcc2 @0x2
0x0cc0…0cdb at0004 = ╱9d╱ EXEC ╱ // 0xcc4 @0x4
0x0cc0…0cdb at0005 = ╱54╱T╱ // 0xcc5 @0x5
0x0cc0…0cdb at0006 = ╱55╱U╱ // 0xcc6 @0x6
0x0cc0…0cdb at0007 = ╱44╱D╱ // 0xcc7 @0x7
0x0cc0…0cdb at0008 = ╱ed╱(╱ // 0xcc8 @0x8
0x0cc0…0cdb at0009 = ╱42╱B╱ // 0xcc9 @0x9
0x0cc0…0cdb at000a = ╱45╱E╱ // 0xcca @0xa
0x0cc0…0cdb at000b = ╱32╱2╱ // 0xccb @0xb
0x0cc0…0cdb at000c = ╱ef╱$╱ // 0xccc @0xc
0x0cc0…0cdb at000d = ╱ec╱,╱ // 0xccd @0xd
0x0cc0…0cdb at000e = ╱55╱U╱ // 0xcce @0xe
0x0cc0…0cdb at000f = ╱42╱B╱ // 0xccf @0xf
0x0cc0…0cdb at0010 = ╱45╱E╱ // 0xcd0 @0x10
0x0cc0…0cdb at0011 = ╱4c╱L╱ // 0xcd1 @0x11
0x0cc0…0cdb at0012 = ╱5c╱Ø╱ // 0xcd2 @0x12
0x0cc0…0cdb at0013 = ╱42╱B╱ // 0xcd3 @0x13
0x0cc0…0cdb at0014 = ╱ef╱$╱ // 0xcd4 @0x14
0x0cc0…0cdb at0015 = ╱ec╱,╱ // 0xcd5 @0x15
0x0cc0…0cdb at0016 = ╱42╱B╱ // 0xcd6 @0x16
0x0cc0…0cdb at0017 = ╱ec╱,╱ // 0xcd7 @0x17
0x0cc0…0cdb at0018 = ╱42╱B╱ // 0xcd8 @0x18
0x0cc0…0cdb at0019 = ╱ee╱)╱ // 0xcd9 @0x19
0x0cc0…0cdb at001a = EOL // 0xcda @0x1a
0x0cc0…0cdb }
0x0cdb…0d24 9a7b 1450 PRINT TAB(51-G*(SK)+(15-4*(SK))*(BE2$(LEN(BE2$))="-"));UBELØB$
0x0cdb…0d24 LineComalBin {
0x0cdb…0d24 ptr = 0x9a7b // 0xcdb @0x0
0x0cdb…0d24 lno = 0x05aa // 0xcdd @0x2
0x0cdb…0d24 at0004 = ╱92╱ PRINT ╱ // 0xcdf @0x4
0x0cdb…0d24 at0005 = ╱d2╱TAB╱ // 0xce0 @0x5
0x0cdb…0d24 at0006 = ╱ed╱(╱ // 0xce1 @0x6
0x0cdb…0d24 at0007 = ╱35╱5╱ // 0xce2 @0x7
0x0cdb…0d24 at0008 = ╱31╱1╱ // 0xce3 @0x8
0x0cdb…0d24 at0009 = ╱fe0000cc06╱ // 0xce4 @0x9
0x0cdb…0d24 at000e = ╱e3╱-╱ // 0xce9 @0xe
0x0cdb…0d24 at000f = ╱47╱G╱ // 0xcea @0xf
0x0cdb…0d24 at0010 = ╱e4╱*╱ // 0xceb @0x10
0x0cdb…0d24 at0011 = ╱ed╱(╱ // 0xcec @0x11
0x0cdb…0d24 at0012 = ╱53╱S╱ // 0xced @0x12
0x0cdb…0d24 at0013 = ╱4b╱K╱ // 0xcee @0x13
0x0cdb…0d24 at0014 = ╱ee╱)╱ // 0xcef @0x14
0x0cdb…0d24 at0015 = ╱e2╱+╱ // 0xcf0 @0x15
0x0cdb…0d24 at0016 = ╱ed╱(╱ // 0xcf1 @0x16
0x0cdb…0d24 at0017 = ╱31╱1╱ // 0xcf2 @0x17
0x0cdb…0d24 at0018 = ╱35╱5╱ // 0xcf3 @0x18
0x0cdb…0d24 at0019 = ╱fe0000f004╱ // 0xcf4 @0x19
0x0cdb…0d24 at001e = ╱e3╱-╱ // 0xcf9 @0x1e
0x0cdb…0d24 at001f = ╱34╱4╱ // 0xcfa @0x1f
0x0cdb…0d24 at0020 = ╱fe00008003╱ // 0xcfb @0x20
0x0cdb…0d24 at0025 = ╱e4╱*╱ // 0xd00 @0x25
0x0cdb…0d24 at0026 = ╱ed╱(╱ // 0xd01 @0x26
0x0cdb…0d24 at0027 = ╱53╱S╱ // 0xd02 @0x27
0x0cdb…0d24 at0028 = ╱4b╱K╱ // 0xd03 @0x28
0x0cdb…0d24 at0029 = ╱ee╱)╱ // 0xd04 @0x29
0x0cdb…0d24 at002a = ╱ee╱)╱ // 0xd05 @0x2a
0x0cdb…0d24 at002b = ╱e4╱*╱ // 0xd06 @0x2b
0x0cdb…0d24 at002c = ╱ed╱(╱ // 0xd07 @0x2c
0x0cdb…0d24 at002d = ╱42╱B╱ // 0xd08 @0x2d
0x0cdb…0d24 at002e = ╱45╱E╱ // 0xd09 @0x2e
0x0cdb…0d24 at002f = ╱32╱2╱ // 0xd0a @0x2f
0x0cdb…0d24 at0030 = ╱ef╱$╱ // 0xd0b @0x30
0x0cdb…0d24 at0031 = ╱ed╱(╱ // 0xd0c @0x31
0x0cdb…0d24 at0032 = ╱cc╱LEN╱ // 0xd0d @0x32
0x0cdb…0d24 at0033 = ╱ed╱(╱ // 0xd0e @0x33
0x0cdb…0d24 at0034 = ╱42╱B╱ // 0xd0f @0x34
0x0cdb…0d24 at0035 = ╱45╱E╱ // 0xd10 @0x35
0x0cdb…0d24 at0036 = ╱32╱2╱ // 0xd11 @0x36
0x0cdb…0d24 at0037 = ╱ef╱$╱ // 0xd12 @0x37
0x0cdb…0d24 at0038 = ╱ee╱)╱ // 0xd13 @0x38
0x0cdb…0d24 at0039 = ╱ee╱)╱ // 0xd14 @0x39
0x0cdb…0d24 at003a = ╱dc╱=╱ // 0xd15 @0x3a
0x0cdb…0d24 at003b = ╱22╱"╱ // 0xd16 @0x3b
0x0cdb…0d24 at003c = ╱2d╱-╱ // 0xd17 @0x3c
0x0cdb…0d24 at003d = ╱22╱"╱ // 0xd18 @0x3d
0x0cdb…0d24 at003e = ╱ee╱)╱ // 0xd19 @0x3e
0x0cdb…0d24 at003f = ╱ee╱)╱ // 0xd1a @0x3f
0x0cdb…0d24 at0040 = ╱eb╱;╱ // 0xd1b @0x40
0x0cdb…0d24 at0041 = ╱55╱U╱ // 0xd1c @0x41
0x0cdb…0d24 at0042 = ╱42╱B╱ // 0xd1d @0x42
0x0cdb…0d24 at0043 = ╱45╱E╱ // 0xd1e @0x43
0x0cdb…0d24 at0044 = ╱4c╱L╱ // 0xd1f @0x44
0x0cdb…0d24 at0045 = ╱5c╱Ø╱ // 0xd20 @0x45
0x0cdb…0d24 at0046 = ╱42╱B╱ // 0xd21 @0x46
0x0cdb…0d24 at0047 = ╱ef╱$╱ // 0xd22 @0x47
0x0cdb…0d24 at0048 = EOL // 0xd23 @0x48
0x0cdb…0d24 }
0x0d24…0d2a 9a81 1460 ENDPROC
0x0d24…0d2a LineComalBin {
0x0d24…0d2a ptr = 0x9a81 // 0xd24 @0x0
0x0d24…0d2a lno = 0x05b4 // 0xd26 @0x2
0x0d24…0d2a at0004 = ╱9f╱ ENDPROC ╱ // 0xd28 @0x4
0x0d24…0d2a at0005 = EOL // 0xd29 @0x5
0x0d24…0d2a }
0x0d2a…0d50 9aa7 1470 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK)
0x0d2a…0d50 LineComalBin {
0x0d2a…0d50 ptr = 0x9aa7 // 0xd2a @0x0
0x0d2a…0d50 lno = 0x05be // 0xd2c @0x2
0x0d2a…0d50 at0004 = ╱9e╱ PROC ╱ // 0xd2e @0x4
0x0d2a…0d50 at0005 = ╱49╱I╱ // 0xd2f @0x5
0x0d2a…0d50 at0006 = ╱4e╱N╱ // 0xd30 @0x6
0x0d2a…0d50 at0007 = ╱44╱D╱ // 0xd31 @0x7
0x0d2a…0d50 at0008 = ╱50╱P╱ // 0xd32 @0x8
0x0d2a…0d50 at0009 = ╱55╱U╱ // 0xd33 @0x9
0x0d2a…0d50 at000a = ╱54╱T╱ // 0xd34 @0xa
0x0d2a…0d50 at000b = ╱31╱1╱ // 0xd35 @0xb
0x0d2a…0d50 at000c = ╱ed╱(╱ // 0xd36 @0xc
0x0d2a…0d50 at000d = ╱58╱X╱ // 0xd37 @0xd
0x0d2a…0d50 at000e = ╱50╱P╱ // 0xd38 @0xe
0x0d2a…0d50 at000f = ╱4f╱O╱ // 0xd39 @0xf
0x0d2a…0d50 at0010 = ╱53╱S╱ // 0xd3a @0x10
0x0d2a…0d50 at0011 = ╱31╱1╱ // 0xd3b @0x11
0x0d2a…0d50 at0012 = ╱ec╱,╱ // 0xd3c @0x12
0x0d2a…0d50 at0013 = ╱59╱Y╱ // 0xd3d @0x13
0x0d2a…0d50 at0014 = ╱50╱P╱ // 0xd3e @0x14
0x0d2a…0d50 at0015 = ╱4f╱O╱ // 0xd3f @0x15
0x0d2a…0d50 at0016 = ╱53╱S╱ // 0xd40 @0x16
0x0d2a…0d50 at0017 = ╱31╱1╱ // 0xd41 @0x17
0x0d2a…0d50 at0018 = ╱ec╱,╱ // 0xd42 @0x18
0x0d2a…0d50 at0019 = ╱4c╱L╱ // 0xd43 @0x19
0x0d2a…0d50 at001a = ╱4e╱N╱ // 0xd44 @0x1a
0x0d2a…0d50 at001b = ╱34╱4╱ // 0xd45 @0x1b
0x0d2a…0d50 at001c = ╱ec╱,╱ // 0xd46 @0x1c
0x0d2a…0d50 at001d = ╱4c╱L╱ // 0xd47 @0x1d
0x0d2a…0d50 at001e = ╱4e╱N╱ // 0xd48 @0x1e
0x0d2a…0d50 at001f = ╱35╱5╱ // 0xd49 @0x1f
0x0d2a…0d50 at0020 = ╱ec╱,╱ // 0xd4a @0x20
0x0d2a…0d50 at0021 = ╱4c╱L╱ // 0xd4b @0x21
0x0d2a…0d50 at0022 = ╱54╱T╱ // 0xd4c @0x22
0x0d2a…0d50 at0023 = ╱4b╱K╱ // 0xd4d @0x23
0x0d2a…0d50 at0024 = ╱ee╱)╱ // 0xd4e @0x24
0x0d2a…0d50 at0025 = EOL // 0xd4f @0x25
0x0d2a…0d50 }
0x0d50…0d56 9aad 1480 REPEAT
0x0d50…0d56 LineComalBin {
0x0d50…0d56 ptr = 0x9aad // 0xd50 @0x0
0x0d50…0d56 lno = 0x05c8 // 0xd52 @0x2
0x0d50…0d56 at0004 = ╱97╱ REPEAT ╱ // 0xd54 @0x4
0x0d50…0d56 at0005 = EOL // 0xd55 @0x5
0x0d50…0d56 }
0x0d56…0d67 9abe 1490 CURSOR XPOS1,YPOS1
0x0d56…0d67 LineComalBin {
0x0d56…0d67 ptr = 0x9abe // 0xd56 @0x0
0x0d56…0d67 lno = 0x05d2 // 0xd58 @0x2
0x0d56…0d67 at0004 = ╱a1╱ CURSOR ╱ // 0xd5a @0x4
0x0d56…0d67 at0005 = ╱58╱X╱ // 0xd5b @0x5
0x0d56…0d67 at0006 = ╱50╱P╱ // 0xd5c @0x6
0x0d56…0d67 at0007 = ╱4f╱O╱ // 0xd5d @0x7
0x0d56…0d67 at0008 = ╱53╱S╱ // 0xd5e @0x8
0x0d56…0d67 at0009 = ╱31╱1╱ // 0xd5f @0x9
0x0d56…0d67 at000a = ╱ec╱,╱ // 0xd60 @0xa
0x0d56…0d67 at000b = ╱59╱Y╱ // 0xd61 @0xb
0x0d56…0d67 at000c = ╱50╱P╱ // 0xd62 @0xc
0x0d56…0d67 at000d = ╱4f╱O╱ // 0xd63 @0xd
0x0d56…0d67 at000e = ╱53╱S╱ // 0xd64 @0xe
0x0d56…0d67 at000f = ╱31╱1╱ // 0xd65 @0xf
0x0d56…0d67 at0010 = EOL // 0xd66 @0x10
0x0d56…0d67 }
0x0d67…0d91 9ae8 1500 PRINT LTK$;BLANK$(E:77-XPOS1-LEN(LTK$))
0x0d67…0d91 LineComalBin {
0x0d67…0d91 ptr = 0x9ae8 // 0xd67 @0x0
0x0d67…0d91 lno = 0x05dc // 0xd69 @0x2
0x0d67…0d91 at0004 = ╱92╱ PRINT ╱ // 0xd6b @0x4
0x0d67…0d91 at0005 = ╱4c╱L╱ // 0xd6c @0x5
0x0d67…0d91 at0006 = ╱54╱T╱ // 0xd6d @0x6
0x0d67…0d91 at0007 = ╱4b╱K╱ // 0xd6e @0x7
0x0d67…0d91 at0008 = ╱ef╱$╱ // 0xd6f @0x8
0x0d67…0d91 at0009 = ╱eb╱;╱ // 0xd70 @0x9
0x0d67…0d91 at000a = ╱42╱B╱ // 0xd71 @0xa
0x0d67…0d91 at000b = ╱4c╱L╱ // 0xd72 @0xb
0x0d67…0d91 at000c = ╱41╱A╱ // 0xd73 @0xc
0x0d67…0d91 at000d = ╱4e╱N╱ // 0xd74 @0xd
0x0d67…0d91 at000e = ╱4b╱K╱ // 0xd75 @0xe
0x0d67…0d91 at000f = ╱ef╱$╱ // 0xd76 @0xf
0x0d67…0d91 at0010 = ╱ed╱(╱ // 0xd77 @0x10
0x0d67…0d91 at0011 = ╱45╱E╱ // 0xd78 @0x11
0x0d67…0d91 at0012 = ╱f0╱:╱ // 0xd79 @0x12
0x0d67…0d91 at0013 = ╱37╱7╱ // 0xd7a @0x13
0x0d67…0d91 at0014 = ╱37╱7╱ // 0xd7b @0x14
0x0d67…0d91 at0015 = ╱fe00009a07╱ // 0xd7c @0x15
0x0d67…0d91 at001a = ╱e3╱-╱ // 0xd81 @0x1a
0x0d67…0d91 at001b = ╱58╱X╱ // 0xd82 @0x1b
0x0d67…0d91 at001c = ╱50╱P╱ // 0xd83 @0x1c
0x0d67…0d91 at001d = ╱4f╱O╱ // 0xd84 @0x1d
0x0d67…0d91 at001e = ╱53╱S╱ // 0xd85 @0x1e
0x0d67…0d91 at001f = ╱31╱1╱ // 0xd86 @0x1f
0x0d67…0d91 at0020 = ╱e3╱-╱ // 0xd87 @0x20
0x0d67…0d91 at0021 = ╱cc╱LEN╱ // 0xd88 @0x21
0x0d67…0d91 at0022 = ╱ed╱(╱ // 0xd89 @0x22
0x0d67…0d91 at0023 = ╱4c╱L╱ // 0xd8a @0x23
0x0d67…0d91 at0024 = ╱54╱T╱ // 0xd8b @0x24
0x0d67…0d91 at0025 = ╱4b╱K╱ // 0xd8c @0x25
0x0d67…0d91 at0026 = ╱ef╱$╱ // 0xd8d @0x26
0x0d67…0d91 at0027 = ╱ee╱)╱ // 0xd8e @0x27
0x0d67…0d91 at0028 = ╱ee╱)╱ // 0xd8f @0x28
0x0d67…0d91 at0029 = EOL // 0xd90 @0x29
0x0d67…0d91 }
0x0d91…0daa 9b01 1510 CURSOR XPOS1+LEN(LTK$),YPOS1
0x0d91…0daa LineComalBin {
0x0d91…0daa ptr = 0x9b01 // 0xd91 @0x0
0x0d91…0daa lno = 0x05e6 // 0xd93 @0x2
0x0d91…0daa at0004 = ╱a1╱ CURSOR ╱ // 0xd95 @0x4
0x0d91…0daa at0005 = ╱58╱X╱ // 0xd96 @0x5
0x0d91…0daa at0006 = ╱50╱P╱ // 0xd97 @0x6
0x0d91…0daa at0007 = ╱4f╱O╱ // 0xd98 @0x7
0x0d91…0daa at0008 = ╱53╱S╱ // 0xd99 @0x8
0x0d91…0daa at0009 = ╱31╱1╱ // 0xd9a @0x9
0x0d91…0daa at000a = ╱e2╱+╱ // 0xd9b @0xa
0x0d91…0daa at000b = ╱cc╱LEN╱ // 0xd9c @0xb
0x0d91…0daa at000c = ╱ed╱(╱ // 0xd9d @0xc
0x0d91…0daa at000d = ╱4c╱L╱ // 0xd9e @0xd
0x0d91…0daa at000e = ╱54╱T╱ // 0xd9f @0xe
0x0d91…0daa at000f = ╱4b╱K╱ // 0xda0 @0xf
0x0d91…0daa at0010 = ╱ef╱$╱ // 0xda1 @0x10
0x0d91…0daa at0011 = ╱ee╱)╱ // 0xda2 @0x11
0x0d91…0daa at0012 = ╱ec╱,╱ // 0xda3 @0x12
0x0d91…0daa at0013 = ╱59╱Y╱ // 0xda4 @0x13
0x0d91…0daa at0014 = ╱50╱P╱ // 0xda5 @0x14
0x0d91…0daa at0015 = ╱4f╱O╱ // 0xda6 @0x15
0x0d91…0daa at0016 = ╱53╱S╱ // 0xda7 @0x16
0x0d91…0daa at0017 = ╱31╱1╱ // 0xda8 @0x17
0x0d91…0daa at0018 = EOL // 0xda9 @0x18
0x0d91…0daa }
0x0daa…0db6 9b0d 1520 INPUT " ",A$
0x0daa…0db6 LineComalBin {
0x0daa…0db6 ptr = 0x9b0d // 0xdaa @0x0
0x0daa…0db6 lno = 0x05f0 // 0xdac @0x2
0x0daa…0db6 at0004 = ╱91╱ INPUT ╱ // 0xdae @0x4
0x0daa…0db6 at0005 = ╱22╱"╱ // 0xdaf @0x5
0x0daa…0db6 at0006 = ╱20╱…╱ // 0xdb0 @0x6
0x0daa…0db6 at0007 = ╱22╱"╱ // 0xdb1 @0x7
0x0daa…0db6 at0008 = ╱ec╱,╱ // 0xdb2 @0x8
0x0daa…0db6 at0009 = ╱41╱A╱ // 0xdb3 @0x9
0x0daa…0db6 at000a = ╱ef╱$╱ // 0xdb4 @0xa
0x0daa…0db6 at000b = EOL // 0xdb5 @0xb
0x0daa…0db6 }
0x0db6…0dc6 9b1d 1530 EXEC NRTEST(A$)
0x0db6…0dc6 LineComalBin {
0x0db6…0dc6 ptr = 0x9b1d // 0xdb6 @0x0
0x0db6…0dc6 lno = 0x05fa // 0xdb8 @0x2
0x0db6…0dc6 at0004 = ╱9d╱ EXEC ╱ // 0xdba @0x4
0x0db6…0dc6 at0005 = ╱4e╱N╱ // 0xdbb @0x5
0x0db6…0dc6 at0006 = ╱52╱R╱ // 0xdbc @0x6
0x0db6…0dc6 at0007 = ╱54╱T╱ // 0xdbd @0x7
0x0db6…0dc6 at0008 = ╱45╱E╱ // 0xdbe @0x8
0x0db6…0dc6 at0009 = ╱53╱S╱ // 0xdbf @0x9
0x0db6…0dc6 at000a = ╱54╱T╱ // 0xdc0 @0xa
0x0db6…0dc6 at000b = ╱ed╱(╱ // 0xdc1 @0xb
0x0db6…0dc6 at000c = ╱41╱A╱ // 0xdc2 @0xc
0x0db6…0dc6 at000d = ╱ef╱$╱ // 0xdc3 @0xd
0x0db6…0dc6 at000e = ╱ee╱)╱ // 0xdc4 @0xe
0x0db6…0dc6 at000f = EOL // 0xdc5 @0xf
0x0db6…0dc6 }
0x0dc6…0dd7 9b2e 1540 UNTIL P>LN4 AND P<LN5
0x0dc6…0dd7 LineComalBin {
0x0dc6…0dd7 ptr = 0x9b2e // 0xdc6 @0x0
0x0dc6…0dd7 lno = 0x0604 // 0xdc8 @0x2
0x0dc6…0dd7 at0004 = ╱98╱ UNTIL ╱ // 0xdca @0x4
0x0dc6…0dd7 at0005 = ╱50╱P╱ // 0xdcb @0x5
0x0dc6…0dd7 at0006 = ╱de╱>╱ // 0xdcc @0x6
0x0dc6…0dd7 at0007 = ╱4c╱L╱ // 0xdcd @0x7
0x0dc6…0dd7 at0008 = ╱4e╱N╱ // 0xdce @0x8
0x0dc6…0dd7 at0009 = ╱34╱4╱ // 0xdcf @0x9
0x0dc6…0dd7 at000a = ╱da╱ AND ╱ // 0xdd0 @0xa
0x0dc6…0dd7 at000b = ╱50╱P╱ // 0xdd1 @0xb
0x0dc6…0dd7 at000c = ╱dd╱<╱ // 0xdd2 @0xc
0x0dc6…0dd7 at000d = ╱4c╱L╱ // 0xdd3 @0xd
0x0dc6…0dd7 at000e = ╱4e╱N╱ // 0xdd4 @0xe
0x0dc6…0dd7 at000f = ╱35╱5╱ // 0xdd5 @0xf
0x0dc6…0dd7 at0010 = EOL // 0xdd6 @0x10
0x0dc6…0dd7 }
0x0dd7…0ddd 9b34 1550 ENDPROC
0x0dd7…0ddd LineComalBin {
0x0dd7…0ddd ptr = 0x9b34 // 0xdd7 @0x0
0x0dd7…0ddd lno = 0x060e // 0xdd9 @0x2
0x0dd7…0ddd at0004 = ╱9f╱ ENDPROC ╱ // 0xddb @0x4
0x0dd7…0ddd at0005 = EOL // 0xddc @0x5
0x0dd7…0ddd }
0x0ddd…0df9 9b50 1560 PROC LINIER(FRA1,TIL1,TÆL1)
0x0ddd…0df9 LineComalBin {
0x0ddd…0df9 ptr = 0x9b50 // 0xddd @0x0
0x0ddd…0df9 lno = 0x0618 // 0xddf @0x2
0x0ddd…0df9 at0004 = ╱9e╱ PROC ╱ // 0xde1 @0x4
0x0ddd…0df9 at0005 = ╱4c╱L╱ // 0xde2 @0x5
0x0ddd…0df9 at0006 = ╱49╱I╱ // 0xde3 @0x6
0x0ddd…0df9 at0007 = ╱4e╱N╱ // 0xde4 @0x7
0x0ddd…0df9 at0008 = ╱49╱I╱ // 0xde5 @0x8
0x0ddd…0df9 at0009 = ╱45╱E╱ // 0xde6 @0x9
0x0ddd…0df9 at000a = ╱52╱R╱ // 0xde7 @0xa
0x0ddd…0df9 at000b = ╱ed╱(╱ // 0xde8 @0xb
0x0ddd…0df9 at000c = ╱46╱F╱ // 0xde9 @0xc
0x0ddd…0df9 at000d = ╱52╱R╱ // 0xdea @0xd
0x0ddd…0df9 at000e = ╱41╱A╱ // 0xdeb @0xe
0x0ddd…0df9 at000f = ╱31╱1╱ // 0xdec @0xf
0x0ddd…0df9 at0010 = ╱ec╱,╱ // 0xded @0x10
0x0ddd…0df9 at0011 = ╱54╱T╱ // 0xdee @0x11
0x0ddd…0df9 at0012 = ╱49╱I╱ // 0xdef @0x12
0x0ddd…0df9 at0013 = ╱4c╱L╱ // 0xdf0 @0x13
0x0ddd…0df9 at0014 = ╱31╱1╱ // 0xdf1 @0x14
0x0ddd…0df9 at0015 = ╱ec╱,╱ // 0xdf2 @0x15
0x0ddd…0df9 at0016 = ╱54╱T╱ // 0xdf3 @0x16
0x0ddd…0df9 at0017 = ╱5b╱Æ╱ // 0xdf4 @0x17
0x0ddd…0df9 at0018 = ╱4c╱L╱ // 0xdf5 @0x18
0x0ddd…0df9 at0019 = ╱31╱1╱ // 0xdf6 @0x19
0x0ddd…0df9 at001a = ╱ee╱)╱ // 0xdf7 @0x1a
0x0ddd…0df9 at001b = EOL // 0xdf8 @0x1b
0x0ddd…0df9 }
0x0df9…0e0d 9b64 1570 FOR TÆL1=FRA1 TO TIL1
0x0df9…0e0d LineComalBin {
0x0df9…0e0d ptr = 0x9b64 // 0xdf9 @0x0
0x0df9…0e0d lno = 0x0622 // 0xdfb @0x2
0x0df9…0e0d at0004 = ╱83╱ FOR ╱ // 0xdfd @0x4
0x0df9…0e0d at0005 = ╱54╱T╱ // 0xdfe @0x5
0x0df9…0e0d at0006 = ╱5b╱Æ╱ // 0xdff @0x6
0x0df9…0e0d at0007 = ╱4c╱L╱ // 0xe00 @0x7
0x0df9…0e0d at0008 = ╱31╱1╱ // 0xe01 @0x8
0x0df9…0e0d at0009 = ╱dc╱=╱ // 0xe02 @0x9
0x0df9…0e0d at000a = ╱46╱F╱ // 0xe03 @0xa
0x0df9…0e0d at000b = ╱52╱R╱ // 0xe04 @0xb
0x0df9…0e0d at000c = ╱41╱A╱ // 0xe05 @0xc
0x0df9…0e0d at000d = ╱31╱1╱ // 0xe06 @0xd
0x0df9…0e0d at000e = ╱b7╱ TO ╱ // 0xe07 @0xe
0x0df9…0e0d at000f = ╱54╱T╱ // 0xe08 @0xf
0x0df9…0e0d at0010 = ╱49╱I╱ // 0xe09 @0x10
0x0df9…0e0d at0011 = ╱4c╱L╱ // 0xe0a @0x11
0x0df9…0e0d at0012 = ╱31╱1╱ // 0xe0b @0x12
0x0df9…0e0d at0013 = EOL // 0xe0c @0x13
0x0df9…0e0d }
0x0e0d…0e16 9b6d 1580 PRINT " "
0x0e0d…0e16 LineComalBin {
0x0e0d…0e16 ptr = 0x9b6d // 0xe0d @0x0
0x0e0d…0e16 lno = 0x062c // 0xe0f @0x2
0x0e0d…0e16 at0004 = ╱92╱ PRINT ╱ // 0xe11 @0x4
0x0e0d…0e16 at0005 = ╱22╱"╱ // 0xe12 @0x5
0x0e0d…0e16 at0006 = ╱20╱…╱ // 0xe13 @0x6
0x0e0d…0e16 at0007 = ╱22╱"╱ // 0xe14 @0x7
0x0e0d…0e16 at0008 = EOL // 0xe15 @0x8
0x0e0d…0e16 }
0x0e16…0e20 9b77 1590 NEXT TÆL1
0x0e16…0e20 LineComalBin {
0x0e16…0e20 ptr = 0x9b77 // 0xe16 @0x0
0x0e16…0e20 lno = 0x0636 // 0xe18 @0x2
0x0e16…0e20 at0004 = ╱84╱ NEXT ╱ // 0xe1a @0x4
0x0e16…0e20 at0005 = ╱54╱T╱ // 0xe1b @0x5
0x0e16…0e20 at0006 = ╱5b╱Æ╱ // 0xe1c @0x6
0x0e16…0e20 at0007 = ╱4c╱L╱ // 0xe1d @0x7
0x0e16…0e20 at0008 = ╱31╱1╱ // 0xe1e @0x8
0x0e16…0e20 at0009 = EOL // 0xe1f @0x9
0x0e16…0e20 }
0x0e20…0e26 9b7d 1600 ENDPROC
0x0e20…0e26 LineComalBin {
0x0e20…0e26 ptr = 0x9b7d // 0xe20 @0x0
0x0e20…0e26 lno = 0x0640 // 0xe22 @0x2
0x0e20…0e26 at0004 = ╱9f╱ ENDPROC ╱ // 0xe24 @0x4
0x0e20…0e26 at0005 = EOL // 0xe25 @0x5
0x0e20…0e26 }
0x0e26…0e51 9ba8 1610 PROC NAVN2(NAVN3,GADE1,POSTNR1,BY1,LANDK1)
0x0e26…0e51 LineComalBin {
0x0e26…0e51 ptr = 0x9ba8 // 0xe26 @0x0
0x0e26…0e51 lno = 0x064a // 0xe28 @0x2
0x0e26…0e51 at0004 = ╱9e╱ PROC ╱ // 0xe2a @0x4
0x0e26…0e51 at0005 = ╱4e╱N╱ // 0xe2b @0x5
0x0e26…0e51 at0006 = ╱41╱A╱ // 0xe2c @0x6
0x0e26…0e51 at0007 = ╱56╱V╱ // 0xe2d @0x7
0x0e26…0e51 at0008 = ╱4e╱N╱ // 0xe2e @0x8
0x0e26…0e51 at0009 = ╱32╱2╱ // 0xe2f @0x9
0x0e26…0e51 at000a = ╱ed╱(╱ // 0xe30 @0xa
0x0e26…0e51 at000b = ╱4e╱N╱ // 0xe31 @0xb
0x0e26…0e51 at000c = ╱41╱A╱ // 0xe32 @0xc
0x0e26…0e51 at000d = ╱56╱V╱ // 0xe33 @0xd
0x0e26…0e51 at000e = ╱4e╱N╱ // 0xe34 @0xe
0x0e26…0e51 at000f = ╱33╱3╱ // 0xe35 @0xf
0x0e26…0e51 at0010 = ╱ec╱,╱ // 0xe36 @0x10
0x0e26…0e51 at0011 = ╱47╱G╱ // 0xe37 @0x11
0x0e26…0e51 at0012 = ╱41╱A╱ // 0xe38 @0x12
0x0e26…0e51 at0013 = ╱44╱D╱ // 0xe39 @0x13
0x0e26…0e51 at0014 = ╱45╱E╱ // 0xe3a @0x14
0x0e26…0e51 at0015 = ╱31╱1╱ // 0xe3b @0x15
0x0e26…0e51 at0016 = ╱ec╱,╱ // 0xe3c @0x16
0x0e26…0e51 at0017 = ╱50╱P╱ // 0xe3d @0x17
0x0e26…0e51 at0018 = ╱4f╱O╱ // 0xe3e @0x18
0x0e26…0e51 at0019 = ╱53╱S╱ // 0xe3f @0x19
0x0e26…0e51 at001a = ╱54╱T╱ // 0xe40 @0x1a
0x0e26…0e51 at001b = ╱4e╱N╱ // 0xe41 @0x1b
0x0e26…0e51 at001c = ╱52╱R╱ // 0xe42 @0x1c
0x0e26…0e51 at001d = ╱31╱1╱ // 0xe43 @0x1d
0x0e26…0e51 at001e = ╱ec╱,╱ // 0xe44 @0x1e
0x0e26…0e51 at001f = ╱42╱B╱ // 0xe45 @0x1f
0x0e26…0e51 at0020 = ╱59╱Y╱ // 0xe46 @0x20
0x0e26…0e51 at0021 = ╱31╱1╱ // 0xe47 @0x21
0x0e26…0e51 at0022 = ╱ec╱,╱ // 0xe48 @0x22
0x0e26…0e51 at0023 = ╱4c╱L╱ // 0xe49 @0x23
0x0e26…0e51 at0024 = ╱41╱A╱ // 0xe4a @0x24
0x0e26…0e51 at0025 = ╱4e╱N╱ // 0xe4b @0x25
0x0e26…0e51 at0026 = ╱44╱D╱ // 0xe4c @0x26
0x0e26…0e51 at0027 = ╱4b╱K╱ // 0xe4d @0x27
0x0e26…0e51 at0028 = ╱31╱1╱ // 0xe4e @0x28
0x0e26…0e51 at0029 = ╱ee╱)╱ // 0xe4f @0x29
0x0e26…0e51 at002a = EOL // 0xe50 @0x2a
0x0e26…0e51 }
0x0e51…0e5d 9bb4 1620 PRINT NAVN3$
0x0e51…0e5d LineComalBin {
0x0e51…0e5d ptr = 0x9bb4 // 0xe51 @0x0
0x0e51…0e5d lno = 0x0654 // 0xe53 @0x2
0x0e51…0e5d at0004 = ╱92╱ PRINT ╱ // 0xe55 @0x4
0x0e51…0e5d at0005 = ╱4e╱N╱ // 0xe56 @0x5
0x0e51…0e5d at0006 = ╱41╱A╱ // 0xe57 @0x6
0x0e51…0e5d at0007 = ╱56╱V╱ // 0xe58 @0x7
0x0e51…0e5d at0008 = ╱4e╱N╱ // 0xe59 @0x8
0x0e51…0e5d at0009 = ╱33╱3╱ // 0xe5a @0x9
0x0e51…0e5d at000a = ╱ef╱$╱ // 0xe5b @0xa
0x0e51…0e5d at000b = EOL // 0xe5c @0xb
0x0e51…0e5d }
0x0e5d…0e6b 9bc2 1630 CURSOR W,6
0x0e5d…0e6b LineComalBin {
0x0e5d…0e6b ptr = 0x9bc2 // 0xe5d @0x0
0x0e5d…0e6b lno = 0x065e // 0xe5f @0x2
0x0e5d…0e6b at0004 = ╱a1╱ CURSOR ╱ // 0xe61 @0x4
0x0e5d…0e6b at0005 = ╱57╱W╱ // 0xe62 @0x5
0x0e5d…0e6b at0006 = ╱ec╱,╱ // 0xe63 @0x6
0x0e5d…0e6b at0007 = ╱36╱6╱ // 0xe64 @0x7
0x0e5d…0e6b at0008 = ╱fe0000c003╱ // 0xe65 @0x8
0x0e5d…0e6b at000d = EOL // 0xe6a @0xd
0x0e5d…0e6b }
0x0e6b…0e77 9bce 1640 PRINT GADE1$
0x0e6b…0e77 LineComalBin {
0x0e6b…0e77 ptr = 0x9bce // 0xe6b @0x0
0x0e6b…0e77 lno = 0x0668 // 0xe6d @0x2
0x0e6b…0e77 at0004 = ╱92╱ PRINT ╱ // 0xe6f @0x4
0x0e6b…0e77 at0005 = ╱47╱G╱ // 0xe70 @0x5
0x0e6b…0e77 at0006 = ╱41╱A╱ // 0xe71 @0x6
0x0e6b…0e77 at0007 = ╱44╱D╱ // 0xe72 @0x7
0x0e6b…0e77 at0008 = ╱45╱E╱ // 0xe73 @0x8
0x0e6b…0e77 at0009 = ╱31╱1╱ // 0xe74 @0x9
0x0e6b…0e77 at000a = ╱ef╱$╱ // 0xe75 @0xa
0x0e6b…0e77 at000b = EOL // 0xe76 @0xb
0x0e6b…0e77 }
0x0e77…0e85 9bdc 1650 CURSOR W,7
0x0e77…0e85 LineComalBin {
0x0e77…0e85 ptr = 0x9bdc // 0xe77 @0x0
0x0e77…0e85 lno = 0x0672 // 0xe79 @0x2
0x0e77…0e85 at0004 = ╱a1╱ CURSOR ╱ // 0xe7b @0x4
0x0e77…0e85 at0005 = ╱57╱W╱ // 0xe7c @0x5
0x0e77…0e85 at0006 = ╱ec╱,╱ // 0xe7d @0x6
0x0e77…0e85 at0007 = ╱37╱7╱ // 0xe7e @0x7
0x0e77…0e85 at0008 = ╱fe0000e003╱ // 0xe7f @0x8
0x0e77…0e85 at000d = EOL // 0xe84 @0xd
0x0e77…0e85 }
0x0e85…0e9c 9bf3 1660 PRINT USING "######":POSTNR1
0x0e85…0e9c LineComalBin {
0x0e85…0e9c ptr = 0x9bf3 // 0xe85 @0x0
0x0e85…0e9c lno = 0x067c // 0xe87 @0x2
0x0e85…0e9c at0004 = ╱92╱ PRINT ╱ // 0xe89 @0x4
0x0e85…0e9c at0005 = ╱b9╱ USING ╱ // 0xe8a @0x5
0x0e85…0e9c at0006 = ╱22╱"╱ // 0xe8b @0x6
0x0e85…0e9c at0007 = ╱23╱#╱ // 0xe8c @0x7
0x0e85…0e9c at0008 = ╱23╱#╱ // 0xe8d @0x8
0x0e85…0e9c at0009 = ╱23╱#╱ // 0xe8e @0x9
0x0e85…0e9c at000a = ╱23╱#╱ // 0xe8f @0xa
0x0e85…0e9c at000b = ╱23╱#╱ // 0xe90 @0xb
0x0e85…0e9c at000c = ╱23╱#╱ // 0xe91 @0xc
0x0e85…0e9c at000d = ╱22╱"╱ // 0xe92 @0xd
0x0e85…0e9c at000e = ╱f0╱:╱ // 0xe93 @0xe
0x0e85…0e9c at000f = ╱50╱P╱ // 0xe94 @0xf
0x0e85…0e9c at0010 = ╱4f╱O╱ // 0xe95 @0x10
0x0e85…0e9c at0011 = ╱53╱S╱ // 0xe96 @0x11
0x0e85…0e9c at0012 = ╱54╱T╱ // 0xe97 @0x12
0x0e85…0e9c at0013 = ╱4e╱N╱ // 0xe98 @0x13
0x0e85…0e9c at0014 = ╱52╱R╱ // 0xe99 @0x14
0x0e85…0e9c at0015 = ╱31╱1╱ // 0xe9a @0x15
0x0e85…0e9c at0016 = EOL // 0xe9b @0x16
0x0e85…0e9c }
0x0e9c…0eb0 9c07 1670 CURSOR 17,7
0x0e9c…0eb0 LineComalBin {
0x0e9c…0eb0 ptr = 0x9c07 // 0xe9c @0x0
0x0e9c…0eb0 lno = 0x0686 // 0xe9e @0x2
0x0e9c…0eb0 at0004 = ╱a1╱ CURSOR ╱ // 0xea0 @0x4
0x0e9c…0eb0 at0005 = ╱31╱1╱ // 0xea1 @0x5
0x0e9c…0eb0 at0006 = ╱37╱7╱ // 0xea2 @0x6
0x0e9c…0eb0 at0007 = ╱fe00008805╱ // 0xea3 @0x7
0x0e9c…0eb0 at000c = ╱ec╱,╱ // 0xea8 @0xc
0x0e9c…0eb0 at000d = ╱37╱7╱ // 0xea9 @0xd
0x0e9c…0eb0 at000e = ╱fe0000e003╱ // 0xeaa @0xe
0x0e9c…0eb0 at0013 = EOL // 0xeaf @0x13
0x0e9c…0eb0 }
0x0eb0…0eba 9c11 1680 PRINT BY1$
0x0eb0…0eba LineComalBin {
0x0eb0…0eba ptr = 0x9c11 // 0xeb0 @0x0
0x0eb0…0eba lno = 0x0690 // 0xeb2 @0x2
0x0eb0…0eba at0004 = ╱92╱ PRINT ╱ // 0xeb4 @0x4
0x0eb0…0eba at0005 = ╱42╱B╱ // 0xeb5 @0x5
0x0eb0…0eba at0006 = ╱59╱Y╱ // 0xeb6 @0x6
0x0eb0…0eba at0007 = ╱31╱1╱ // 0xeb7 @0x7
0x0eb0…0eba at0008 = ╱ef╱$╱ // 0xeb8 @0x8
0x0eb0…0eba at0009 = EOL // 0xeb9 @0x9
0x0eb0…0eba }
0x0eba…0ec8 9c1f 1690 CURSOR W,8
0x0eba…0ec8 LineComalBin {
0x0eba…0ec8 ptr = 0x9c1f // 0xeba @0x0
0x0eba…0ec8 lno = 0x069a // 0xebc @0x2
0x0eba…0ec8 at0004 = ╱a1╱ CURSOR ╱ // 0xebe @0x4
0x0eba…0ec8 at0005 = ╱57╱W╱ // 0xebf @0x5
0x0eba…0ec8 at0006 = ╱ec╱,╱ // 0xec0 @0x6
0x0eba…0ec8 at0007 = ╱38╱8╱ // 0xec1 @0x7
0x0eba…0ec8 at0008 = ╱fe00008004╱ // 0xec2 @0x8
0x0eba…0ec8 at000d = EOL // 0xec7 @0xd
0x0eba…0ec8 }
0x0ec8…0edd 9c34 1700 EXEC NRTEST(LANDK1$)
0x0ec8…0edd LineComalBin {
0x0ec8…0edd ptr = 0x9c34 // 0xec8 @0x0
0x0ec8…0edd lno = 0x06a4 // 0xeca @0x2
0x0ec8…0edd at0004 = ╱9d╱ EXEC ╱ // 0xecc @0x4
0x0ec8…0edd at0005 = ╱4e╱N╱ // 0xecd @0x5
0x0ec8…0edd at0006 = ╱52╱R╱ // 0xece @0x6
0x0ec8…0edd at0007 = ╱54╱T╱ // 0xecf @0x7
0x0ec8…0edd at0008 = ╱45╱E╱ // 0xed0 @0x8
0x0ec8…0edd at0009 = ╱53╱S╱ // 0xed1 @0x9
0x0ec8…0edd at000a = ╱54╱T╱ // 0xed2 @0xa
0x0ec8…0edd at000b = ╱ed╱(╱ // 0xed3 @0xb
0x0ec8…0edd at000c = ╱4c╱L╱ // 0xed4 @0xc
0x0ec8…0edd at000d = ╱41╱A╱ // 0xed5 @0xd
0x0ec8…0edd at000e = ╱4e╱N╱ // 0xed6 @0xe
0x0ec8…0edd at000f = ╱44╱D╱ // 0xed7 @0xf
0x0ec8…0edd at0010 = ╱4b╱K╱ // 0xed8 @0x10
0x0ec8…0edd at0011 = ╱31╱1╱ // 0xed9 @0x11
0x0ec8…0edd at0012 = ╱ef╱$╱ // 0xeda @0x12
0x0ec8…0edd at0013 = ╱ee╱)╱ // 0xedb @0x13
0x0ec8…0edd at0014 = EOL // 0xedc @0x14
0x0ec8…0edd }
0x0edd…0efa 9c51 1710 IF P>B AND P<10 THEN PRINT LAND$(P)
0x0edd…0efa LineComalBin {
0x0edd…0efa ptr = 0x9c51 // 0xedd @0x0
0x0edd…0efa lno = 0x06ae // 0xedf @0x2
0x0edd…0efa at0004 = ╱82╱ IF ╱ // 0xee1 @0x4
0x0edd…0efa at0005 = ╱50╱P╱ // 0xee2 @0x5
0x0edd…0efa at0006 = ╱de╱>╱ // 0xee3 @0x6
0x0edd…0efa at0007 = ╱42╱B╱ // 0xee4 @0x7
0x0edd…0efa at0008 = ╱da╱ AND ╱ // 0xee5 @0x8
0x0edd…0efa at0009 = ╱50╱P╱ // 0xee6 @0x9
0x0edd…0efa at000a = ╱dd╱<╱ // 0xee7 @0xa
0x0edd…0efa at000b = ╱31╱1╱ // 0xee8 @0xb
0x0edd…0efa at000c = ╱30╱0╱ // 0xee9 @0xc
0x0edd…0efa at000d = ╱fe0000a004╱ // 0xeea @0xd
0x0edd…0efa at0012 = ╱b6╱ THEN ╱ // 0xeef @0x12
0x0edd…0efa at0013 = ╱92╱ PRINT ╱ // 0xef0 @0x13
0x0edd…0efa at0014 = ╱4c╱L╱ // 0xef1 @0x14
0x0edd…0efa at0015 = ╱41╱A╱ // 0xef2 @0x15
0x0edd…0efa at0016 = ╱4e╱N╱ // 0xef3 @0x16
0x0edd…0efa at0017 = ╱44╱D╱ // 0xef4 @0x17
0x0edd…0efa at0018 = ╱ef╱$╱ // 0xef5 @0x18
0x0edd…0efa at0019 = ╱ed╱(╱ // 0xef6 @0x19
0x0edd…0efa at001a = ╱50╱P╱ // 0xef7 @0x1a
0x0edd…0efa at001b = ╱ee╱)╱ // 0xef8 @0x1b
0x0edd…0efa at001c = EOL // 0xef9 @0x1c
0x0edd…0efa }
0x0efa…0f00 9c57 1720 ENDPROC
0x0efa…0f00 LineComalBin {
0x0efa…0f00 ptr = 0x9c57 // 0xefa @0x0
0x0efa…0f00 lno = 0x06b8 // 0xefc @0x2
0x0efa…0f00 at0004 = ╱9f╱ ENDPROC ╱ // 0xefe @0x4
0x0efa…0f00 at0005 = EOL // 0xeff @0x5
0x0efa…0f00 }
0x0f00…0f26 9c7d 1730 PROC NAVN1(NAVN,GADE,POSTNR,BY,LANDK)
0x0f00…0f26 LineComalBin {
0x0f00…0f26 ptr = 0x9c7d // 0xf00 @0x0
0x0f00…0f26 lno = 0x06c2 // 0xf02 @0x2
0x0f00…0f26 at0004 = ╱9e╱ PROC ╱ // 0xf04 @0x4
0x0f00…0f26 at0005 = ╱4e╱N╱ // 0xf05 @0x5
0x0f00…0f26 at0006 = ╱41╱A╱ // 0xf06 @0x6
0x0f00…0f26 at0007 = ╱56╱V╱ // 0xf07 @0x7
0x0f00…0f26 at0008 = ╱4e╱N╱ // 0xf08 @0x8
0x0f00…0f26 at0009 = ╱31╱1╱ // 0xf09 @0x9
0x0f00…0f26 at000a = ╱ed╱(╱ // 0xf0a @0xa
0x0f00…0f26 at000b = ╱4e╱N╱ // 0xf0b @0xb
0x0f00…0f26 at000c = ╱41╱A╱ // 0xf0c @0xc
0x0f00…0f26 at000d = ╱56╱V╱ // 0xf0d @0xd
0x0f00…0f26 at000e = ╱4e╱N╱ // 0xf0e @0xe
0x0f00…0f26 at000f = ╱ec╱,╱ // 0xf0f @0xf
0x0f00…0f26 at0010 = ╱47╱G╱ // 0xf10 @0x10
0x0f00…0f26 at0011 = ╱41╱A╱ // 0xf11 @0x11
0x0f00…0f26 at0012 = ╱44╱D╱ // 0xf12 @0x12
0x0f00…0f26 at0013 = ╱45╱E╱ // 0xf13 @0x13
0x0f00…0f26 at0014 = ╱ec╱,╱ // 0xf14 @0x14
0x0f00…0f26 at0015 = ╱50╱P╱ // 0xf15 @0x15
0x0f00…0f26 at0016 = ╱4f╱O╱ // 0xf16 @0x16
0x0f00…0f26 at0017 = ╱53╱S╱ // 0xf17 @0x17
0x0f00…0f26 at0018 = ╱54╱T╱ // 0xf18 @0x18
0x0f00…0f26 at0019 = ╱4e╱N╱ // 0xf19 @0x19
0x0f00…0f26 at001a = ╱52╱R╱ // 0xf1a @0x1a
0x0f00…0f26 at001b = ╱ec╱,╱ // 0xf1b @0x1b
0x0f00…0f26 at001c = ╱42╱B╱ // 0xf1c @0x1c
0x0f00…0f26 at001d = ╱59╱Y╱ // 0xf1d @0x1d
0x0f00…0f26 at001e = ╱ec╱,╱ // 0xf1e @0x1e
0x0f00…0f26 at001f = ╱4c╱L╱ // 0xf1f @0x1f
0x0f00…0f26 at0020 = ╱41╱A╱ // 0xf20 @0x20
0x0f00…0f26 at0021 = ╱4e╱N╱ // 0xf21 @0x21
0x0f00…0f26 at0022 = ╱44╱D╱ // 0xf22 @0x22
0x0f00…0f26 at0023 = ╱4b╱K╱ // 0xf23 @0x23
0x0f00…0f26 at0024 = ╱ee╱)╱ // 0xf24 @0x24
0x0f00…0f26 at0025 = EOL // 0xf25 @0x25
0x0f00…0f26 }
0x0f26…0f40 9c97 1740 PRINT TAB(12);NAVN$;" "
0x0f26…0f40 LineComalBin {
0x0f26…0f40 ptr = 0x9c97 // 0xf26 @0x0
0x0f26…0f40 lno = 0x06cc // 0xf28 @0x2
0x0f26…0f40 at0004 = ╱92╱ PRINT ╱ // 0xf2a @0x4
0x0f26…0f40 at0005 = ╱d2╱TAB╱ // 0xf2b @0x5
0x0f26…0f40 at0006 = ╱ed╱(╱ // 0xf2c @0x6
0x0f26…0f40 at0007 = ╱31╱1╱ // 0xf2d @0x7
0x0f26…0f40 at0008 = ╱32╱2╱ // 0xf2e @0x8
0x0f26…0f40 at0009 = ╱fe0000c004╱ // 0xf2f @0x9
0x0f26…0f40 at000e = ╱ee╱)╱ // 0xf34 @0xe
0x0f26…0f40 at000f = ╱eb╱;╱ // 0xf35 @0xf
0x0f26…0f40 at0010 = ╱4e╱N╱ // 0xf36 @0x10
0x0f26…0f40 at0011 = ╱41╱A╱ // 0xf37 @0x11
0x0f26…0f40 at0012 = ╱56╱V╱ // 0xf38 @0x12
0x0f26…0f40 at0013 = ╱4e╱N╱ // 0xf39 @0x13
0x0f26…0f40 at0014 = ╱ef╱$╱ // 0xf3a @0x14
0x0f26…0f40 at0015 = ╱eb╱;╱ // 0xf3b @0x15
0x0f26…0f40 at0016 = ╱22╱"╱ // 0xf3c @0x16
0x0f26…0f40 at0017 = ╱20╱…╱ // 0xf3d @0x17
0x0f26…0f40 at0018 = ╱22╱"╱ // 0xf3e @0x18
0x0f26…0f40 at0019 = EOL // 0xf3f @0x19
0x0f26…0f40 }
0x0f40…0f5a 9cb1 1750 PRINT TAB(12);GADE$;" "
0x0f40…0f5a LineComalBin {
0x0f40…0f5a ptr = 0x9cb1 // 0xf40 @0x0
0x0f40…0f5a lno = 0x06d6 // 0xf42 @0x2
0x0f40…0f5a at0004 = ╱92╱ PRINT ╱ // 0xf44 @0x4
0x0f40…0f5a at0005 = ╱d2╱TAB╱ // 0xf45 @0x5
0x0f40…0f5a at0006 = ╱ed╱(╱ // 0xf46 @0x6
0x0f40…0f5a at0007 = ╱31╱1╱ // 0xf47 @0x7
0x0f40…0f5a at0008 = ╱32╱2╱ // 0xf48 @0x8
0x0f40…0f5a at0009 = ╱fe0000c004╱ // 0xf49 @0x9
0x0f40…0f5a at000e = ╱ee╱)╱ // 0xf4e @0xe
0x0f40…0f5a at000f = ╱eb╱;╱ // 0xf4f @0xf
0x0f40…0f5a at0010 = ╱47╱G╱ // 0xf50 @0x10
0x0f40…0f5a at0011 = ╱41╱A╱ // 0xf51 @0x11
0x0f40…0f5a at0012 = ╱44╱D╱ // 0xf52 @0x12
0x0f40…0f5a at0013 = ╱45╱E╱ // 0xf53 @0x13
0x0f40…0f5a at0014 = ╱ef╱$╱ // 0xf54 @0x14
0x0f40…0f5a at0015 = ╱eb╱;╱ // 0xf55 @0x15
0x0f40…0f5a at0016 = ╱22╱"╱ // 0xf56 @0x16
0x0f40…0f5a at0017 = ╱20╱…╱ // 0xf57 @0x17
0x0f40…0f5a at0018 = ╱22╱"╱ // 0xf58 @0x18
0x0f40…0f5a at0019 = EOL // 0xf59 @0x19
0x0f40…0f5a }
0x0f5a…0f84 9cdb 1760 PRINT TAB(12);POSTNR;TAB(19);BY$;" "
0x0f5a…0f84 LineComalBin {
0x0f5a…0f84 ptr = 0x9cdb // 0xf5a @0x0
0x0f5a…0f84 lno = 0x06e0 // 0xf5c @0x2
0x0f5a…0f84 at0004 = ╱92╱ PRINT ╱ // 0xf5e @0x4
0x0f5a…0f84 at0005 = ╱d2╱TAB╱ // 0xf5f @0x5
0x0f5a…0f84 at0006 = ╱ed╱(╱ // 0xf60 @0x6
0x0f5a…0f84 at0007 = ╱31╱1╱ // 0xf61 @0x7
0x0f5a…0f84 at0008 = ╱32╱2╱ // 0xf62 @0x8
0x0f5a…0f84 at0009 = ╱fe0000c004╱ // 0xf63 @0x9
0x0f5a…0f84 at000e = ╱ee╱)╱ // 0xf68 @0xe
0x0f5a…0f84 at000f = ╱eb╱;╱ // 0xf69 @0xf
0x0f5a…0f84 at0010 = ╱50╱P╱ // 0xf6a @0x10
0x0f5a…0f84 at0011 = ╱4f╱O╱ // 0xf6b @0x11
0x0f5a…0f84 at0012 = ╱53╱S╱ // 0xf6c @0x12
0x0f5a…0f84 at0013 = ╱54╱T╱ // 0xf6d @0x13
0x0f5a…0f84 at0014 = ╱4e╱N╱ // 0xf6e @0x14
0x0f5a…0f84 at0015 = ╱52╱R╱ // 0xf6f @0x15
0x0f5a…0f84 at0016 = ╱eb╱;╱ // 0xf70 @0x16
0x0f5a…0f84 at0017 = ╱d2╱TAB╱ // 0xf71 @0x17
0x0f5a…0f84 at0018 = ╱ed╱(╱ // 0xf72 @0x18
0x0f5a…0f84 at0019 = ╱31╱1╱ // 0xf73 @0x19
0x0f5a…0f84 at001a = ╱39╱9╱ // 0xf74 @0x1a
0x0f5a…0f84 at001b = ╱fe00009805╱ // 0xf75 @0x1b
0x0f5a…0f84 at0020 = ╱ee╱)╱ // 0xf7a @0x20
0x0f5a…0f84 at0021 = ╱eb╱;╱ // 0xf7b @0x21
0x0f5a…0f84 at0022 = ╱42╱B╱ // 0xf7c @0x22
0x0f5a…0f84 at0023 = ╱59╱Y╱ // 0xf7d @0x23
0x0f5a…0f84 at0024 = ╱ef╱$╱ // 0xf7e @0x24
0x0f5a…0f84 at0025 = ╱eb╱;╱ // 0xf7f @0x25
0x0f5a…0f84 at0026 = ╱22╱"╱ // 0xf80 @0x26
0x0f5a…0f84 at0027 = ╱20╱…╱ // 0xf81 @0x27
0x0f5a…0f84 at0028 = ╱22╱"╱ // 0xf82 @0x28
0x0f5a…0f84 at0029 = EOL // 0xf83 @0x29
0x0f5a…0f84 }
0x0f84…0f9d 9cf4 1770 P1=ORD(LANDK$)-48
0x0f84…0f9d LineComalBin {
0x0f84…0f9d ptr = 0x9cf4 // 0xf84 @0x0
0x0f84…0f9d lno = 0x06ea // 0xf86 @0x2
0x0f84…0f9d at0004 = ╱50╱P╱ // 0xf88 @0x4
0x0f84…0f9d at0005 = ╱31╱1╱ // 0xf89 @0x5
0x0f84…0f9d at0006 = ╱dc╱=╱ // 0xf8a @0x6
0x0f84…0f9d at0007 = ╱cd╱ORD╱ // 0xf8b @0x7
0x0f84…0f9d at0008 = ╱ed╱(╱ // 0xf8c @0x8
0x0f84…0f9d at0009 = ╱4c╱L╱ // 0xf8d @0x9
0x0f84…0f9d at000a = ╱41╱A╱ // 0xf8e @0xa
0x0f84…0f9d at000b = ╱4e╱N╱ // 0xf8f @0xb
0x0f84…0f9d at000c = ╱44╱D╱ // 0xf90 @0xc
0x0f84…0f9d at000d = ╱4b╱K╱ // 0xf91 @0xd
0x0f84…0f9d at000e = ╱ef╱$╱ // 0xf92 @0xe
0x0f84…0f9d at000f = ╱ee╱)╱ // 0xf93 @0xf
0x0f84…0f9d at0010 = ╱e3╱-╱ // 0xf94 @0x10
0x0f84…0f9d at0011 = ╱34╱4╱ // 0xf95 @0x11
0x0f84…0f9d at0012 = ╱38╱8╱ // 0xf96 @0x12
0x0f84…0f9d at0013 = ╱fe0000c006╱ // 0xf97 @0x13
0x0f84…0f9d at0018 = EOL // 0xf9c @0x18
0x0f84…0f9d }
0x0f9d…0fcc 9d23 1780 IF P1>B AND P1<10 THEN PRINT TAB(12);LAND$(P1);" "
0x0f9d…0fcc LineComalBin {
0x0f9d…0fcc ptr = 0x9d23 // 0xf9d @0x0
0x0f9d…0fcc lno = 0x06f4 // 0xf9f @0x2
0x0f9d…0fcc at0004 = ╱82╱ IF ╱ // 0xfa1 @0x4
0x0f9d…0fcc at0005 = ╱50╱P╱ // 0xfa2 @0x5
0x0f9d…0fcc at0006 = ╱31╱1╱ // 0xfa3 @0x6
0x0f9d…0fcc at0007 = ╱de╱>╱ // 0xfa4 @0x7
0x0f9d…0fcc at0008 = ╱42╱B╱ // 0xfa5 @0x8
0x0f9d…0fcc at0009 = ╱da╱ AND ╱ // 0xfa6 @0x9
0x0f9d…0fcc at000a = ╱50╱P╱ // 0xfa7 @0xa
0x0f9d…0fcc at000b = ╱31╱1╱ // 0xfa8 @0xb
0x0f9d…0fcc at000c = ╱dd╱<╱ // 0xfa9 @0xc
0x0f9d…0fcc at000d = ╱31╱1╱ // 0xfaa @0xd
0x0f9d…0fcc at000e = ╱30╱0╱ // 0xfab @0xe
0x0f9d…0fcc at000f = ╱fe0000a004╱ // 0xfac @0xf
0x0f9d…0fcc at0014 = ╱b6╱ THEN ╱ // 0xfb1 @0x14
0x0f9d…0fcc at0015 = ╱92╱ PRINT ╱ // 0xfb2 @0x15
0x0f9d…0fcc at0016 = ╱d2╱TAB╱ // 0xfb3 @0x16
0x0f9d…0fcc at0017 = ╱ed╱(╱ // 0xfb4 @0x17
0x0f9d…0fcc at0018 = ╱31╱1╱ // 0xfb5 @0x18
0x0f9d…0fcc at0019 = ╱32╱2╱ // 0xfb6 @0x19
0x0f9d…0fcc at001a = ╱fe0000c004╱ // 0xfb7 @0x1a
0x0f9d…0fcc at001f = ╱ee╱)╱ // 0xfbc @0x1f
0x0f9d…0fcc at0020 = ╱eb╱;╱ // 0xfbd @0x20
0x0f9d…0fcc at0021 = ╱4c╱L╱ // 0xfbe @0x21
0x0f9d…0fcc at0022 = ╱41╱A╱ // 0xfbf @0x22
0x0f9d…0fcc at0023 = ╱4e╱N╱ // 0xfc0 @0x23
0x0f9d…0fcc at0024 = ╱44╱D╱ // 0xfc1 @0x24
0x0f9d…0fcc at0025 = ╱ef╱$╱ // 0xfc2 @0x25
0x0f9d…0fcc at0026 = ╱ed╱(╱ // 0xfc3 @0x26
0x0f9d…0fcc at0027 = ╱50╱P╱ // 0xfc4 @0x27
0x0f9d…0fcc at0028 = ╱31╱1╱ // 0xfc5 @0x28
0x0f9d…0fcc at0029 = ╱ee╱)╱ // 0xfc6 @0x29
0x0f9d…0fcc at002a = ╱eb╱;╱ // 0xfc7 @0x2a
0x0f9d…0fcc at002b = ╱22╱"╱ // 0xfc8 @0x2b
0x0f9d…0fcc at002c = ╱20╱…╱ // 0xfc9 @0x2c
0x0f9d…0fcc at002d = ╱22╱"╱ // 0xfca @0x2d
0x0f9d…0fcc at002e = EOL // 0xfcb @0x2e
0x0f9d…0fcc }
0x0fcc…0fff 9d56 1790 EXEC LINIER(1,1*(P1<1 OR P1>9),I)
0x0fcc…0fff LineComalBin {
0x0fcc…0fff ptr = 0x9d56 // 0xfcc @0x0
0x0fcc…0fff lno = 0x06fe // 0xfce @0x2
0x0fcc…0fff at0004 = ╱9d╱ EXEC ╱ // 0xfd0 @0x4
0x0fcc…0fff at0005 = ╱4c╱L╱ // 0xfd1 @0x5
0x0fcc…0fff at0006 = ╱49╱I╱ // 0xfd2 @0x6
0x0fcc…0fff at0007 = ╱4e╱N╱ // 0xfd3 @0x7
0x0fcc…0fff at0008 = ╱49╱I╱ // 0xfd4 @0x8
0x0fcc…0fff at0009 = ╱45╱E╱ // 0xfd5 @0x9
0x0fcc…0fff at000a = ╱52╱R╱ // 0xfd6 @0xa
0x0fcc…0fff at000b = ╱ed╱(╱ // 0xfd7 @0xb
0x0fcc…0fff at000c = ╱31╱1╱ // 0xfd8 @0xc
0x0fcc…0fff at000d = ╱fe00008001╱ // 0xfd9 @0xd
0x0fcc…0fff at0012 = ╱ec╱,╱ // 0xfde @0x12
0x0fcc…0fff at0013 = ╱31╱1╱ // 0xfdf @0x13
0x0fcc…0fff at0014 = ╱fe00008001╱ // 0xfe0 @0x14
0x0fcc…0fff at0019 = ╱e4╱*╱ // 0xfe5 @0x19
0x0fcc…0fff at001a = ╱ed╱(╱ // 0xfe6 @0x1a
0x0fcc…0fff at001b = ╱50╱P╱ // 0xfe7 @0x1b
0x0fcc…0fff at001c = ╱31╱1╱ // 0xfe8 @0x1c
0x0fcc…0fff at001d = ╱dd╱<╱ // 0xfe9 @0x1d
0x0fcc…0fff at001e = ╱31╱1╱ // 0xfea @0x1e
0x0fcc…0fff at001f = ╱fe00008001╱ // 0xfeb @0x1f
0x0fcc…0fff at0024 = ╱db╱ OR ╱ // 0xff0 @0x24
0x0fcc…0fff at0025 = ╱50╱P╱ // 0xff1 @0x25
0x0fcc…0fff at0026 = ╱31╱1╱ // 0xff2 @0x26
0x0fcc…0fff at0027 = ╱de╱>╱ // 0xff3 @0x27
0x0fcc…0fff at0028 = ╱39╱9╱ // 0xff4 @0x28
0x0fcc…0fff at0029 = ╱fe00009004╱ // 0xff5 @0x29
0x0fcc…0fff at002e = ╱ee╱)╱ // 0xffa @0x2e
0x0fcc…0fff at002f = ╱ec╱,╱ // 0xffb @0x2f
0x0fcc…0fff at0030 = ╱49╱I╱ // 0xffc @0x30
0x0fcc…0fff at0031 = ╱ee╱)╱ // 0xffd @0x31
0x0fcc…0fff at0032 = EOL // 0xffe @0x32
0x0fcc…0fff }
0x0fff…1005 9d5c 1800 ENDPROC
0x0fff…1005 LineComalBin {
0x0fff…1005 ptr = 0x9d5c // 0xfff @0x0
0x0fff…1005 lno = 0x0708 // 0x1001 @0x2
0x0fff…1005 at0004 = ╱9f╱ ENDPROC ╱ // 0x1003 @0x4
0x0fff…1005 at0005 = EOL // 0x1004 @0x5
0x0fff…1005 }
0x1005…1030 9d87 1810 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
0x1005…1030 LineComalBin {
0x1005…1030 ptr = 0x9d87 // 0x1005 @0x0
0x1005…1030 lno = 0x0712 // 0x1007 @0x2
0x1005…1030 at0004 = ╱9e╱ PROC ╱ // 0x1009 @0x4
0x1005…1030 at0005 = ╱46╱F╱ // 0x100a @0x5
0x1005…1030 at0006 = ╱49╱I╱ // 0x100b @0x6
0x1005…1030 at0007 = ╱4e╱N╱ // 0x100c @0x7
0x1005…1030 at0008 = ╱44╱D╱ // 0x100d @0x8
0x1005…1030 at0009 = ╱50╱P╱ // 0x100e @0x9
0x1005…1030 at000a = ╱4f╱O╱ // 0x100f @0xa
0x1005…1030 at000b = ╱53╱S╱ // 0x1010 @0xb
0x1005…1030 at000c = ╱54╱T╱ // 0x1011 @0xc
0x1005…1030 at000d = ╱31╱1╱ // 0x1012 @0xd
0x1005…1030 at000e = ╱ed╱(╱ // 0x1013 @0xe
0x1005…1030 at000f = ╱54╱T╱ // 0x1014 @0xf
0x1005…1030 at0010 = ╱41╱A╱ // 0x1015 @0x10
0x1005…1030 at0011 = ╱42╱B╱ // 0x1016 @0x11
0x1005…1030 at0012 = ╱34╱4╱ // 0x1017 @0x12
0x1005…1030 at0013 = ╱ec╱,╱ // 0x1018 @0x13
0x1005…1030 at0014 = ╱51╱Q╱ // 0x1019 @0x14
0x1005…1030 at0015 = ╱ec╱,╱ // 0x101a @0x15
0x1005…1030 at0016 = ╱4d╱M╱ // 0x101b @0x16
0x1005…1030 at0017 = ╱41╱A╱ // 0x101c @0x17
0x1005…1030 at0018 = ╱4e╱N╱ // 0x101d @0x18
0x1005…1030 at0019 = ╱54╱T╱ // 0x101e @0x19
0x1005…1030 at001a = ╱32╱2╱ // 0x101f @0x1a
0x1005…1030 at001b = ╱ec╱,╱ // 0x1020 @0x1b
0x1005…1030 at001c = ╱4e╱N╱ // 0x1021 @0x1c
0x1005…1030 at001d = ╱5c╱Ø╱ // 0x1022 @0x1d
0x1005…1030 at001e = ╱47╱G╱ // 0x1023 @0x1e
0x1005…1030 at001f = ╱4c╱L╱ // 0x1024 @0x1f
0x1005…1030 at0020 = ╱35╱5╱ // 0x1025 @0x20
0x1005…1030 at0021 = ╱ec╱,╱ // 0x1026 @0x21
0x1005…1030 at0022 = ╱50╱P╱ // 0x1027 @0x22
0x1005…1030 at0023 = ╱49╱I╱ // 0x1028 @0x23
0x1005…1030 at0024 = ╱4c╱L╱ // 0x1029 @0x24
0x1005…1030 at0025 = ╱36╱6╱ // 0x102a @0x25
0x1005…1030 at0026 = ╱ec╱,╱ // 0x102b @0x26
0x1005…1030 at0027 = ╱4c╱L╱ // 0x102c @0x27
0x1005…1030 at0028 = ╱38╱8╱ // 0x102d @0x28
0x1005…1030 at0029 = ╱ee╱)╱ // 0x102e @0x29
0x1005…1030 at002a = EOL // 0x102f @0x2a
0x1005…1030 }
0x1030…107e 9dd5 1820 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
0x1030…107e LineComalBin {
0x1030…107e ptr = 0x9dd5 // 0x1030 @0x0
0x1030…107e lno = 0x071c // 0x1032 @0x2
0x1030…107e at0004 = ╱50╱P╱ // 0x1034 @0x4
0x1030…107e at0005 = ╱49╱I╱ // 0x1035 @0x5
0x1030…107e at0006 = ╱4c╱L╱ // 0x1036 @0x6
0x1030…107e at0007 = ╱31╱1╱ // 0x1037 @0x7
0x1030…107e at0008 = ╱dc╱=╱ // 0x1038 @0x8
0x1030…107e at0009 = ╱4d╱M╱ // 0x1039 @0x9
0x1030…107e at000a = ╱41╱A╱ // 0x103a @0xa
0x1030…107e at000b = ╱4e╱N╱ // 0x103b @0xb
0x1030…107e at000c = ╱54╱T╱ // 0x103c @0xc
0x1030…107e at000d = ╱32╱2╱ // 0x103d @0xd
0x1030…107e at000e = ╱e7╱ DIV ╱ // 0x103e @0xe
0x1030…107e at000f = ╱38╱8╱ // 0x103f @0xf
0x1030…107e at0010 = ╱fe00008004╱ // 0x1040 @0x10
0x1030…107e at0015 = ╱eb╱;╱ // 0x1045 @0x15
0x1030…107e at0016 = ╱50╱P╱ // 0x1046 @0x16
0x1030…107e at0017 = ╱49╱I╱ // 0x1047 @0x17
0x1030…107e at0018 = ╱4c╱L╱ // 0x1048 @0x18
0x1030…107e at0019 = ╱36╱6╱ // 0x1049 @0x19
0x1030…107e at001a = ╱dc╱=╱ // 0x104a @0x1a
0x1030…107e at001b = ╱50╱P╱ // 0x104b @0x1b
0x1030…107e at001c = ╱49╱I╱ // 0x104c @0x1c
0x1030…107e at001d = ╱4c╱L╱ // 0x104d @0x1d
0x1030…107e at001e = ╱31╱1╱ // 0x104e @0x1e
0x1030…107e at001f = ╱eb╱;╱ // 0x104f @0x1f
0x1030…107e at0020 = ╱43╱C╱ // 0x1050 @0x20
0x1030…107e at0021 = ╱45╱E╱ // 0x1051 @0x21
0x1030…107e at0022 = ╱4b╱K╱ // 0x1052 @0x22
0x1030…107e at0023 = ╱53╱S╱ // 0x1053 @0x23
0x1030…107e at0024 = ╱dc╱=╱ // 0x1054 @0x24
0x1030…107e at0025 = ╱45╱E╱ // 0x1055 @0x25
0x1030…107e at0026 = ╱eb╱;╱ // 0x1056 @0x26
0x1030…107e at0027 = ╱4d╱M╱ // 0x1057 @0x27
0x1030…107e at0028 = ╱41╱A╱ // 0x1058 @0x28
0x1030…107e at0029 = ╱4e╱N╱ // 0x1059 @0x29
0x1030…107e at002a = ╱54╱T╱ // 0x105a @0x2a
0x1030…107e at002b = ╱33╱3╱ // 0x105b @0x2b
0x1030…107e at002c = ╱dc╱=╱ // 0x105c @0x2c
0x1030…107e at002d = ╱4d╱M╱ // 0x105d @0x2d
0x1030…107e at002e = ╱41╱A╱ // 0x105e @0x2e
0x1030…107e at002f = ╱4e╱N╱ // 0x105f @0x2f
0x1030…107e at0030 = ╱54╱T╱ // 0x1060 @0x30
0x1030…107e at0031 = ╱32╱2╱ // 0x1061 @0x31
0x1030…107e at0032 = ╱e7╱ DIV ╱ // 0x1062 @0x32
0x1030…107e at0033 = ╱34╱4╱ // 0x1063 @0x33
0x1030…107e at0034 = ╱fe00008003╱ // 0x1064 @0x34
0x1030…107e at0039 = ╱eb╱;╱ // 0x1069 @0x39
0x1030…107e at003a = ╱4d╱M╱ // 0x106a @0x3a
0x1030…107e at003b = ╱41╱A╱ // 0x106b @0x3b
0x1030…107e at003c = ╱4e╱N╱ // 0x106c @0x3c
0x1030…107e at003d = ╱54╱T╱ // 0x106d @0x3d
0x1030…107e at003e = ╱34╱4╱ // 0x106e @0x3e
0x1030…107e at003f = ╱dc╱=╱ // 0x106f @0x3f
0x1030…107e at0040 = ╱4d╱M╱ // 0x1070 @0x40
0x1030…107e at0041 = ╱41╱A╱ // 0x1071 @0x41
0x1030…107e at0042 = ╱4e╱N╱ // 0x1072 @0x42
0x1030…107e at0043 = ╱54╱T╱ // 0x1073 @0x43
0x1030…107e at0044 = ╱32╱2╱ // 0x1074 @0x44
0x1030…107e at0045 = ╱e7╱ DIV ╱ // 0x1075 @0x45
0x1030…107e at0046 = ╱33╱3╱ // 0x1076 @0x46
0x1030…107e at0047 = ╱32╱2╱ // 0x1077 @0x47
0x1030…107e at0048 = ╱fe00008006╱ // 0x1078 @0x48
0x1030…107e at004d = EOL // 0x107d @0x4d
0x1030…107e }
0x107e…1084 9ddb 1830 REPEAT
0x107e…1084 LineComalBin {
0x107e…1084 ptr = 0x9ddb // 0x107e @0x0
0x107e…1084 lno = 0x0726 // 0x1080 @0x2
0x107e…1084 at0004 = ╱97╱ REPEAT ╱ // 0x1082 @0x4
0x107e…1084 at0005 = EOL // 0x1083 @0x5
0x107e…1084 }
0x1084…10a3 9dfa 1840 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
0x1084…10a3 LineComalBin {
0x1084…10a3 ptr = 0x9dfa // 0x1084 @0x0
0x1084…10a3 lno = 0x0730 // 0x1086 @0x2
0x1084…10a3 at0004 = ╱82╱ IF ╱ // 0x1088 @0x4
0x1084…10a3 at0005 = ╱4e╱N╱ // 0x1089 @0x5
0x1084…10a3 at0006 = ╱5c╱Ø╱ // 0x108a @0x6
0x1084…10a3 at0007 = ╱47╱G╱ // 0x108b @0x7
0x1084…10a3 at0008 = ╱4c╱L╱ // 0x108c @0x8
0x1084…10a3 at0009 = ╱35╱5╱ // 0x108d @0x9
0x1084…10a3 at000a = ╱dc╱=╱ // 0x108e @0xa
0x1084…10a3 at000b = ╱54╱T╱ // 0x108f @0xb
0x1084…10a3 at000c = ╱41╱A╱ // 0x1090 @0xc
0x1084…10a3 at000d = ╱42╱B╱ // 0x1091 @0xd
0x1084…10a3 at000e = ╱34╱4╱ // 0x1092 @0xe
0x1084…10a3 at000f = ╱ed╱(╱ // 0x1093 @0xf
0x1084…10a3 at0010 = ╱50╱P╱ // 0x1094 @0x10
0x1084…10a3 at0011 = ╱49╱I╱ // 0x1095 @0x11
0x1084…10a3 at0012 = ╱4c╱L╱ // 0x1096 @0x12
0x1084…10a3 at0013 = ╱36╱6╱ // 0x1097 @0x13
0x1084…10a3 at0014 = ╱ee╱)╱ // 0x1098 @0x14
0x1084…10a3 at0015 = ╱db╱ OR ╱ // 0x1099 @0x15
0x1084…10a3 at0016 = ╱50╱P╱ // 0x109a @0x16
0x1084…10a3 at0017 = ╱49╱I╱ // 0x109b @0x17
0x1084…10a3 at0018 = ╱4c╱L╱ // 0x109c @0x18
0x1084…10a3 at0019 = ╱31╱1╱ // 0x109d @0x19
0x1084…10a3 at001a = ╱dc╱=╱ // 0x109e @0x1a
0x1084…10a3 at001b = ╱45╱E╱ // 0x109f @0x1b
0x1084…10a3 at001c = ╱b6╱ THEN ╱ // 0x10a0 @0x1c
0x1084…10a3 at001d = ╱99╱ EXIT ╱ // 0x10a1 @0x1d
0x1084…10a3 at001e = EOL // 0x10a2 @0x1e
0x1084…10a3 }
0x10a3…10df 9e36 1850 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
0x10a3…10df LineComalBin {
0x10a3…10df ptr = 0x9e36 // 0x10a3 @0x0
0x10a3…10df lno = 0x073a // 0x10a5 @0x2
0x10a3…10df at0004 = ╱50╱P╱ // 0x10a7 @0x4
0x10a3…10df at0005 = ╱49╱I╱ // 0x10a8 @0x5
0x10a3…10df at0006 = ╱4c╱L╱ // 0x10a9 @0x6
0x10a3…10df at0007 = ╱31╱1╱ // 0x10aa @0x7
0x10a3…10df at0008 = ╱dc╱=╱ // 0x10ab @0x8
0x10a3…10df at0009 = ╱ed╱(╱ // 0x10ac @0x9
0x10a3…10df at000a = ╱50╱P╱ // 0x10ad @0xa
0x10a3…10df at000b = ╱49╱I╱ // 0x10ae @0xb
0x10a3…10df at000c = ╱4c╱L╱ // 0x10af @0xc
0x10a3…10df at000d = ╱31╱1╱ // 0x10b0 @0xd
0x10a3…10df at000e = ╱e2╱+╱ // 0x10b1 @0xe
0x10a3…10df at000f = ╱45╱E╱ // 0x10b2 @0xf
0x10a3…10df at0010 = ╱ee╱)╱ // 0x10b3 @0x10
0x10a3…10df at0011 = ╱e7╱ DIV ╱ // 0x10b4 @0x11
0x10a3…10df at0012 = ╱47╱G╱ // 0x10b5 @0x12
0x10a3…10df at0013 = ╱eb╱;╱ // 0x10b6 @0x13
0x10a3…10df at0014 = ╱50╱P╱ // 0x10b7 @0x14
0x10a3…10df at0015 = ╱49╱I╱ // 0x10b8 @0x15
0x10a3…10df at0016 = ╱4c╱L╱ // 0x10b9 @0x16
0x10a3…10df at0017 = ╱36╱6╱ // 0x10ba @0x17
0x10a3…10df at0018 = ╱dc╱=╱ // 0x10bb @0x18
0x10a3…10df at0019 = ╱50╱P╱ // 0x10bc @0x19
0x10a3…10df at001a = ╱49╱I╱ // 0x10bd @0x1a
0x10a3…10df at001b = ╱4c╱L╱ // 0x10be @0x1b
0x10a3…10df at001c = ╱36╱6╱ // 0x10bf @0x1c
0x10a3…10df at001d = ╱e2╱+╱ // 0x10c0 @0x1d
0x10a3…10df at001e = ╱50╱P╱ // 0x10c1 @0x1e
0x10a3…10df at001f = ╱49╱I╱ // 0x10c2 @0x1f
0x10a3…10df at0020 = ╱4c╱L╱ // 0x10c3 @0x20
0x10a3…10df at0021 = ╱31╱1╱ // 0x10c4 @0x21
0x10a3…10df at0022 = ╱e4╱*╱ // 0x10c5 @0x22
0x10a3…10df at0023 = ╱ed╱(╱ // 0x10c6 @0x23
0x10a3…10df at0024 = ╱45╱E╱ // 0x10c7 @0x24
0x10a3…10df at0025 = ╱e3╱-╱ // 0x10c8 @0x25
0x10a3…10df at0026 = ╱47╱G╱ // 0x10c9 @0x26
0x10a3…10df at0027 = ╱e4╱*╱ // 0x10ca @0x27
0x10a3…10df at0028 = ╱ed╱(╱ // 0x10cb @0x28
0x10a3…10df at0029 = ╱4e╱N╱ // 0x10cc @0x29
0x10a3…10df at002a = ╱5c╱Ø╱ // 0x10cd @0x2a
0x10a3…10df at002b = ╱47╱G╱ // 0x10ce @0x2b
0x10a3…10df at002c = ╱4c╱L╱ // 0x10cf @0x2c
0x10a3…10df at002d = ╱35╱5╱ // 0x10d0 @0x2d
0x10a3…10df at002e = ╱dd╱<╱ // 0x10d1 @0x2e
0x10a3…10df at002f = ╱54╱T╱ // 0x10d2 @0x2f
0x10a3…10df at0030 = ╱41╱A╱ // 0x10d3 @0x30
0x10a3…10df at0031 = ╱42╱B╱ // 0x10d4 @0x31
0x10a3…10df at0032 = ╱34╱4╱ // 0x10d5 @0x32
0x10a3…10df at0033 = ╱ed╱(╱ // 0x10d6 @0x33
0x10a3…10df at0034 = ╱50╱P╱ // 0x10d7 @0x34
0x10a3…10df at0035 = ╱49╱I╱ // 0x10d8 @0x35
0x10a3…10df at0036 = ╱4c╱L╱ // 0x10d9 @0x36
0x10a3…10df at0037 = ╱36╱6╱ // 0x10da @0x37
0x10a3…10df at0038 = ╱ee╱)╱ // 0x10db @0x38
0x10a3…10df at0039 = ╱ee╱)╱ // 0x10dc @0x39
0x10a3…10df at003a = ╱ee╱)╱ // 0x10dd @0x3a
0x10a3…10df at003b = EOL // 0x10de @0x3b
0x10a3…10df }
0x10df…10f2 9e49 1860 IF PIL6<E THEN PIL6=E
0x10df…10f2 LineComalBin {
0x10df…10f2 ptr = 0x9e49 // 0x10df @0x0
0x10df…10f2 lno = 0x0744 // 0x10e1 @0x2
0x10df…10f2 at0004 = ╱82╱ IF ╱ // 0x10e3 @0x4
0x10df…10f2 at0005 = ╱50╱P╱ // 0x10e4 @0x5
0x10df…10f2 at0006 = ╱49╱I╱ // 0x10e5 @0x6
0x10df…10f2 at0007 = ╱4c╱L╱ // 0x10e6 @0x7
0x10df…10f2 at0008 = ╱36╱6╱ // 0x10e7 @0x8
0x10df…10f2 at0009 = ╱dd╱<╱ // 0x10e8 @0x9
0x10df…10f2 at000a = ╱45╱E╱ // 0x10e9 @0xa
0x10df…10f2 at000b = ╱b6╱ THEN ╱ // 0x10ea @0xb
0x10df…10f2 at000c = ╱50╱P╱ // 0x10eb @0xc
0x10df…10f2 at000d = ╱49╱I╱ // 0x10ec @0xd
0x10df…10f2 at000e = ╱4c╱L╱ // 0x10ed @0xe
0x10df…10f2 at000f = ╱36╱6╱ // 0x10ee @0xf
0x10df…10f2 at0010 = ╱dc╱=╱ // 0x10ef @0x10
0x10df…10f2 at0011 = ╱45╱E╱ // 0x10f0 @0x11
0x10df…10f2 at0012 = EOL // 0x10f1 @0x12
0x10df…10f2 }
0x10f2…110d 9e64 1870 IF PIL6>MANT3 THEN PIL6=MANT3
0x10f2…110d LineComalBin {
0x10f2…110d ptr = 0x9e64 // 0x10f2 @0x0
0x10f2…110d lno = 0x074e // 0x10f4 @0x2
0x10f2…110d at0004 = ╱82╱ IF ╱ // 0x10f6 @0x4
0x10f2…110d at0005 = ╱50╱P╱ // 0x10f7 @0x5
0x10f2…110d at0006 = ╱49╱I╱ // 0x10f8 @0x6
0x10f2…110d at0007 = ╱4c╱L╱ // 0x10f9 @0x7
0x10f2…110d at0008 = ╱36╱6╱ // 0x10fa @0x8
0x10f2…110d at0009 = ╱de╱>╱ // 0x10fb @0x9
0x10f2…110d at000a = ╱4d╱M╱ // 0x10fc @0xa
0x10f2…110d at000b = ╱41╱A╱ // 0x10fd @0xb
0x10f2…110d at000c = ╱4e╱N╱ // 0x10fe @0xc
0x10f2…110d at000d = ╱54╱T╱ // 0x10ff @0xd
0x10f2…110d at000e = ╱33╱3╱ // 0x1100 @0xe
0x10f2…110d at000f = ╱b6╱ THEN ╱ // 0x1101 @0xf
0x10f2…110d at0010 = ╱50╱P╱ // 0x1102 @0x10
0x10f2…110d at0011 = ╱49╱I╱ // 0x1103 @0x11
0x10f2…110d at0012 = ╱4c╱L╱ // 0x1104 @0x12
0x10f2…110d at0013 = ╱36╱6╱ // 0x1105 @0x13
0x10f2…110d at0014 = ╱dc╱=╱ // 0x1106 @0x14
0x10f2…110d at0015 = ╱4d╱M╱ // 0x1107 @0x15
0x10f2…110d at0016 = ╱41╱A╱ // 0x1108 @0x16
0x10f2…110d at0017 = ╱4e╱N╱ // 0x1109 @0x17
0x10f2…110d at0018 = ╱54╱T╱ // 0x110a @0x18
0x10f2…110d at0019 = ╱33╱3╱ // 0x110b @0x19
0x10f2…110d at001a = EOL // 0x110c @0x1a
0x10f2…110d }
0x110d…1119 9e70 1880 UNTIL PIL1=B
0x110d…1119 LineComalBin {
0x110d…1119 ptr = 0x9e70 // 0x110d @0x0
0x110d…1119 lno = 0x0758 // 0x110f @0x2
0x110d…1119 at0004 = ╱98╱ UNTIL ╱ // 0x1111 @0x4
0x110d…1119 at0005 = ╱50╱P╱ // 0x1112 @0x5
0x110d…1119 at0006 = ╱49╱I╱ // 0x1113 @0x6
0x110d…1119 at0007 = ╱4c╱L╱ // 0x1114 @0x7
0x110d…1119 at0008 = ╱31╱1╱ // 0x1115 @0x8
0x110d…1119 at0009 = ╱dc╱=╱ // 0x1116 @0x9
0x110d…1119 at000a = ╱42╱B╱ // 0x1117 @0xa
0x110d…1119 at000b = EOL // 0x1118 @0xb
0x110d…1119 }
0x1119…1144 9e9b 1890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
0x1119…1144 LineComalBin {
0x1119…1144 ptr = 0x9e9b // 0x1119 @0x0
0x1119…1144 lno = 0x0762 // 0x111b @0x2
0x1119…1144 at0004 = ╱82╱ IF ╱ // 0x111d @0x4
0x1119…1144 at0005 = ╱54╱T╱ // 0x111e @0x5
0x1119…1144 at0006 = ╱41╱A╱ // 0x111f @0x6
0x1119…1144 at0007 = ╱42╱B╱ // 0x1120 @0x7
0x1119…1144 at0008 = ╱34╱4╱ // 0x1121 @0x8
0x1119…1144 at0009 = ╱ed╱(╱ // 0x1122 @0x9
0x1119…1144 at000a = ╱50╱P╱ // 0x1123 @0xa
0x1119…1144 at000b = ╱49╱I╱ // 0x1124 @0xb
0x1119…1144 at000c = ╱4c╱L╱ // 0x1125 @0xc
0x1119…1144 at000d = ╱36╱6╱ // 0x1126 @0xd
0x1119…1144 at000e = ╱ee╱)╱ // 0x1127 @0xe
0x1119…1144 at000f = ╱de╱>╱ // 0x1128 @0xf
0x1119…1144 at0010 = ╱4e╱N╱ // 0x1129 @0x10
0x1119…1144 at0011 = ╱5c╱Ø╱ // 0x112a @0x11
0x1119…1144 at0012 = ╱47╱G╱ // 0x112b @0x12
0x1119…1144 at0013 = ╱4c╱L╱ // 0x112c @0x13
0x1119…1144 at0014 = ╱35╱5╱ // 0x112d @0x14
0x1119…1144 at0015 = ╱b6╱ THEN ╱ // 0x112e @0x15
0x1119…1144 at0016 = ╱50╱P╱ // 0x112f @0x16
0x1119…1144 at0017 = ╱49╱I╱ // 0x1130 @0x17
0x1119…1144 at0018 = ╱4c╱L╱ // 0x1131 @0x18
0x1119…1144 at0019 = ╱36╱6╱ // 0x1132 @0x19
0x1119…1144 at001a = ╱dc╱=╱ // 0x1133 @0x1a
0x1119…1144 at001b = ╱50╱P╱ // 0x1134 @0x1b
0x1119…1144 at001c = ╱49╱I╱ // 0x1135 @0x1c
0x1119…1144 at001d = ╱4c╱L╱ // 0x1136 @0x1d
0x1119…1144 at001e = ╱36╱6╱ // 0x1137 @0x1e
0x1119…1144 at001f = ╱e3╱-╱ // 0x1138 @0x1f
0x1119…1144 at0020 = ╱45╱E╱ // 0x1139 @0x20
0x1119…1144 at0021 = ╱e4╱*╱ // 0x113a @0x21
0x1119…1144 at0022 = ╱ed╱(╱ // 0x113b @0x22
0x1119…1144 at0023 = ╱50╱P╱ // 0x113c @0x23
0x1119…1144 at0024 = ╱49╱I╱ // 0x113d @0x24
0x1119…1144 at0025 = ╱4c╱L╱ // 0x113e @0x25
0x1119…1144 at0026 = ╱36╱6╱ // 0x113f @0x26
0x1119…1144 at0027 = ╱de╱>╱ // 0x1140 @0x27
0x1119…1144 at0028 = ╱45╱E╱ // 0x1141 @0x28
0x1119…1144 at0029 = ╱ee╱)╱ // 0x1142 @0x29
0x1119…1144 at002a = EOL // 0x1143 @0x2a
0x1119…1144 }
0x1144…1158 9eaf 1900 PIL6=MANT4+PIL6
0x1144…1158 LineComalBin {
0x1144…1158 ptr = 0x9eaf // 0x1144 @0x0
0x1144…1158 lno = 0x076c // 0x1146 @0x2
0x1144…1158 at0004 = ╱50╱P╱ // 0x1148 @0x4
0x1144…1158 at0005 = ╱49╱I╱ // 0x1149 @0x5
0x1144…1158 at0006 = ╱4c╱L╱ // 0x114a @0x6
0x1144…1158 at0007 = ╱36╱6╱ // 0x114b @0x7
0x1144…1158 at0008 = ╱dc╱=╱ // 0x114c @0x8
0x1144…1158 at0009 = ╱4d╱M╱ // 0x114d @0x9
0x1144…1158 at000a = ╱41╱A╱ // 0x114e @0xa
0x1144…1158 at000b = ╱4e╱N╱ // 0x114f @0xb
0x1144…1158 at000c = ╱54╱T╱ // 0x1150 @0xc
0x1144…1158 at000d = ╱34╱4╱ // 0x1151 @0xd
0x1144…1158 at000e = ╱e2╱+╱ // 0x1152 @0xe
0x1144…1158 at000f = ╱50╱P╱ // 0x1153 @0xf
0x1144…1158 at0010 = ╱49╱I╱ // 0x1154 @0x10
0x1144…1158 at0011 = ╱4c╱L╱ // 0x1155 @0x11
0x1144…1158 at0012 = ╱36╱6╱ // 0x1156 @0x12
0x1144…1158 at0013 = EOL // 0x1157 @0x13
0x1144…1158 }
0x1158…11a8 9eff 1910 GET L8$,PIL6:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G)
0x1158…11a8 LineComalBin {
0x1158…11a8 ptr = 0x9eff // 0x1158 @0x0
0x1158…11a8 lno = 0x0776 // 0x115a @0x2
0x1158…11a8 at0004 = ╱a9╱ GET ╱ // 0x115c @0x4
0x1158…11a8 at0005 = ╱4c╱L╱ // 0x115d @0x5
0x1158…11a8 at0006 = ╱38╱8╱ // 0x115e @0x6
0x1158…11a8 at0007 = ╱ef╱$╱ // 0x115f @0x7
0x1158…11a8 at0008 = ╱ec╱,╱ // 0x1160 @0x8
0x1158…11a8 at0009 = ╱50╱P╱ // 0x1161 @0x9
0x1158…11a8 at000a = ╱49╱I╱ // 0x1162 @0xa
0x1158…11a8 at000b = ╱4c╱L╱ // 0x1163 @0xb
0x1158…11a8 at000c = ╱36╱6╱ // 0x1164 @0xc
0x1158…11a8 at000d = ╱f0╱:╱ // 0x1165 @0xd
0x1158…11a8 at000e = ╱51╱Q╱ // 0x1166 @0xe
0x1158…11a8 at000f = ╱ed╱(╱ // 0x1167 @0xf
0x1158…11a8 at0010 = ╱45╱E╱ // 0x1168 @0x10
0x1158…11a8 at0011 = ╱ec╱,╱ // 0x1169 @0x11
0x1158…11a8 at0012 = ╱45╱E╱ // 0x116a @0x12
0x1158…11a8 at0013 = ╱ee╱)╱ // 0x116b @0x13
0x1158…11a8 at0014 = ╱ec╱,╱ // 0x116c @0x14
0x1158…11a8 at0015 = ╱51╱Q╱ // 0x116d @0x15
0x1158…11a8 at0016 = ╱ed╱(╱ // 0x116e @0x16
0x1158…11a8 at0017 = ╱45╱E╱ // 0x116f @0x17
0x1158…11a8 at0018 = ╱ec╱,╱ // 0x1170 @0x18
0x1158…11a8 at0019 = ╱47╱G╱ // 0x1171 @0x19
0x1158…11a8 at001a = ╱ee╱)╱ // 0x1172 @0x1a
0x1158…11a8 at001b = ╱ec╱,╱ // 0x1173 @0x1b
0x1158…11a8 at001c = ╱51╱Q╱ // 0x1174 @0x1c
0x1158…11a8 at001d = ╱ed╱(╱ // 0x1175 @0x1d
0x1158…11a8 at001e = ╱47╱G╱ // 0x1176 @0x1e
0x1158…11a8 at001f = ╱ec╱,╱ // 0x1177 @0x1f
0x1158…11a8 at0020 = ╱45╱E╱ // 0x1178 @0x20
0x1158…11a8 at0021 = ╱ee╱)╱ // 0x1179 @0x21
0x1158…11a8 at0022 = ╱ec╱,╱ // 0x117a @0x22
0x1158…11a8 at0023 = ╱51╱Q╱ // 0x117b @0x23
0x1158…11a8 at0024 = ╱ed╱(╱ // 0x117c @0x24
0x1158…11a8 at0025 = ╱47╱G╱ // 0x117d @0x25
0x1158…11a8 at0026 = ╱ec╱,╱ // 0x117e @0x26
0x1158…11a8 at0027 = ╱47╱G╱ // 0x117f @0x27
0x1158…11a8 at0028 = ╱ee╱)╱ // 0x1180 @0x28
0x1158…11a8 at0029 = ╱ec╱,╱ // 0x1181 @0x29
0x1158…11a8 at002a = ╱51╱Q╱ // 0x1182 @0x2a
0x1158…11a8 at002b = ╱ed╱(╱ // 0x1183 @0x2b
0x1158…11a8 at002c = ╱56╱V╱ // 0x1184 @0x2c
0x1158…11a8 at002d = ╱ec╱,╱ // 0x1185 @0x2d
0x1158…11a8 at002e = ╱45╱E╱ // 0x1186 @0x2e
0x1158…11a8 at002f = ╱ee╱)╱ // 0x1187 @0x2f
0x1158…11a8 at0030 = ╱ec╱,╱ // 0x1188 @0x30
0x1158…11a8 at0031 = ╱51╱Q╱ // 0x1189 @0x31
0x1158…11a8 at0032 = ╱ed╱(╱ // 0x118a @0x32
0x1158…11a8 at0033 = ╱56╱V╱ // 0x118b @0x33
0x1158…11a8 at0034 = ╱ec╱,╱ // 0x118c @0x34
0x1158…11a8 at0035 = ╱47╱G╱ // 0x118d @0x35
0x1158…11a8 at0036 = ╱ee╱)╱ // 0x118e @0x36
0x1158…11a8 at0037 = ╱ec╱,╱ // 0x118f @0x37
0x1158…11a8 at0038 = ╱51╱Q╱ // 0x1190 @0x38
0x1158…11a8 at0039 = ╱ed╱(╱ // 0x1191 @0x39
0x1158…11a8 at003a = ╱34╱4╱ // 0x1192 @0x3a
0x1158…11a8 at003b = ╱fe00008003╱ // 0x1193 @0x3b
0x1158…11a8 at0040 = ╱ec╱,╱ // 0x1198 @0x40
0x1158…11a8 at0041 = ╱45╱E╱ // 0x1199 @0x41
0x1158…11a8 at0042 = ╱ee╱)╱ // 0x119a @0x42
0x1158…11a8 at0043 = ╱ec╱,╱ // 0x119b @0x43
0x1158…11a8 at0044 = ╱51╱Q╱ // 0x119c @0x44
0x1158…11a8 at0045 = ╱ed╱(╱ // 0x119d @0x45
0x1158…11a8 at0046 = ╱34╱4╱ // 0x119e @0x46
0x1158…11a8 at0047 = ╱fe00008003╱ // 0x119f @0x47
0x1158…11a8 at004c = ╱ec╱,╱ // 0x11a4 @0x4c
0x1158…11a8 at004d = ╱47╱G╱ // 0x11a5 @0x4d
0x1158…11a8 at004e = ╱ee╱)╱ // 0x11a6 @0x4e
0x1158…11a8 at004f = EOL // 0x11a7 @0x4f
0x1158…11a8 }
0x11a8…11bb 9f12 1920 EXEC FEJL(E,E,L8$)
0x11a8…11bb LineComalBin {
0x11a8…11bb ptr = 0x9f12 // 0x11a8 @0x0
0x11a8…11bb lno = 0x0780 // 0x11aa @0x2
0x11a8…11bb at0004 = ╱9d╱ EXEC ╱ // 0x11ac @0x4
0x11a8…11bb at0005 = ╱46╱F╱ // 0x11ad @0x5
0x11a8…11bb at0006 = ╱45╱E╱ // 0x11ae @0x6
0x11a8…11bb at0007 = ╱4a╱J╱ // 0x11af @0x7
0x11a8…11bb at0008 = ╱4c╱L╱ // 0x11b0 @0x8
0x11a8…11bb at0009 = ╱ed╱(╱ // 0x11b1 @0x9
0x11a8…11bb at000a = ╱45╱E╱ // 0x11b2 @0xa
0x11a8…11bb at000b = ╱ec╱,╱ // 0x11b3 @0xb
0x11a8…11bb at000c = ╱45╱E╱ // 0x11b4 @0xc
0x11a8…11bb at000d = ╱ec╱,╱ // 0x11b5 @0xd
0x11a8…11bb at000e = ╱4c╱L╱ // 0x11b6 @0xe
0x11a8…11bb at000f = ╱38╱8╱ // 0x11b7 @0xf
0x11a8…11bb at0010 = ╱ef╱$╱ // 0x11b8 @0x10
0x11a8…11bb at0011 = ╱ee╱)╱ // 0x11b9 @0x11
0x11a8…11bb at0012 = EOL // 0x11ba @0x12
0x11a8…11bb }
0x11bb…11ce 9f25 1930 FOR PIL6=E TO 4
0x11bb…11ce LineComalBin {
0x11bb…11ce ptr = 0x9f25 // 0x11bb @0x0
0x11bb…11ce lno = 0x078a // 0x11bd @0x2
0x11bb…11ce at0004 = ╱83╱ FOR ╱ // 0x11bf @0x4
0x11bb…11ce at0005 = ╱50╱P╱ // 0x11c0 @0x5
0x11bb…11ce at0006 = ╱49╱I╱ // 0x11c1 @0x6
0x11bb…11ce at0007 = ╱4c╱L╱ // 0x11c2 @0x7
0x11bb…11ce at0008 = ╱36╱6╱ // 0x11c3 @0x8
0x11bb…11ce at0009 = ╱dc╱=╱ // 0x11c4 @0x9
0x11bb…11ce at000a = ╱45╱E╱ // 0x11c5 @0xa
0x11bb…11ce at000b = ╱b7╱ TO ╱ // 0x11c6 @0xb
0x11bb…11ce at000c = ╱34╱4╱ // 0x11c7 @0xc
0x11bb…11ce at000d = ╱fe00008003╱ // 0x11c8 @0xd
0x11bb…11ce at0012 = EOL // 0x11cd @0x12
0x11bb…11ce }
0x11ce…11e5 9f3c 1940 IF NØGL5=Q(PIL6,E) THEN EXIT
0x11ce…11e5 LineComalBin {
0x11ce…11e5 ptr = 0x9f3c // 0x11ce @0x0
0x11ce…11e5 lno = 0x0794 // 0x11d0 @0x2
0x11ce…11e5 at0004 = ╱82╱ IF ╱ // 0x11d2 @0x4
0x11ce…11e5 at0005 = ╱4e╱N╱ // 0x11d3 @0x5
0x11ce…11e5 at0006 = ╱5c╱Ø╱ // 0x11d4 @0x6
0x11ce…11e5 at0007 = ╱47╱G╱ // 0x11d5 @0x7
0x11ce…11e5 at0008 = ╱4c╱L╱ // 0x11d6 @0x8
0x11ce…11e5 at0009 = ╱35╱5╱ // 0x11d7 @0x9
0x11ce…11e5 at000a = ╱dc╱=╱ // 0x11d8 @0xa
0x11ce…11e5 at000b = ╱51╱Q╱ // 0x11d9 @0xb
0x11ce…11e5 at000c = ╱ed╱(╱ // 0x11da @0xc
0x11ce…11e5 at000d = ╱50╱P╱ // 0x11db @0xd
0x11ce…11e5 at000e = ╱49╱I╱ // 0x11dc @0xe
0x11ce…11e5 at000f = ╱4c╱L╱ // 0x11dd @0xf
0x11ce…11e5 at0010 = ╱36╱6╱ // 0x11de @0x10
0x11ce…11e5 at0011 = ╱ec╱,╱ // 0x11df @0x11
0x11ce…11e5 at0012 = ╱45╱E╱ // 0x11e0 @0x12
0x11ce…11e5 at0013 = ╱ee╱)╱ // 0x11e1 @0x13
0x11ce…11e5 at0014 = ╱b6╱ THEN ╱ // 0x11e2 @0x14
0x11ce…11e5 at0015 = ╱99╱ EXIT ╱ // 0x11e3 @0x15
0x11ce…11e5 at0016 = EOL // 0x11e4 @0x16
0x11ce…11e5 }
0x11e5…11ef 9f46 1950 NEXT PIL6
0x11e5…11ef LineComalBin {
0x11e5…11ef ptr = 0x9f46 // 0x11e5 @0x0
0x11e5…11ef lno = 0x079e // 0x11e7 @0x2
0x11e5…11ef at0004 = ╱84╱ NEXT ╱ // 0x11e9 @0x4
0x11e5…11ef at0005 = ╱50╱P╱ // 0x11ea @0x5
0x11e5…11ef at0006 = ╱49╱I╱ // 0x11eb @0x6
0x11e5…11ef at0007 = ╱4c╱L╱ // 0x11ec @0x7
0x11e5…11ef at0008 = ╱36╱6╱ // 0x11ed @0x8
0x11e5…11ef at0009 = EOL // 0x11ee @0x9
0x11e5…11ef }
0x11ef…1207 9f5e 1960 IF PIL6<>5 THEN CEKS=B
0x11ef…1207 LineComalBin {
0x11ef…1207 ptr = 0x9f5e // 0x11ef @0x0
0x11ef…1207 lno = 0x07a8 // 0x11f1 @0x2
0x11ef…1207 at0004 = ╱82╱ IF ╱ // 0x11f3 @0x4
0x11ef…1207 at0005 = ╱50╱P╱ // 0x11f4 @0x5
0x11ef…1207 at0006 = ╱49╱I╱ // 0x11f5 @0x6
0x11ef…1207 at0007 = ╱4c╱L╱ // 0x11f6 @0x7
0x11ef…1207 at0008 = ╱36╱6╱ // 0x11f7 @0x8
0x11ef…1207 at0009 = ╱e1╱<>╱ // 0x11f8 @0x9
0x11ef…1207 at000a = ╱35╱5╱ // 0x11f9 @0xa
0x11ef…1207 at000b = ╱fe0000a003╱ // 0x11fa @0xb
0x11ef…1207 at0010 = ╱b6╱ THEN ╱ // 0x11ff @0x10
0x11ef…1207 at0011 = ╱43╱C╱ // 0x1200 @0x11
0x11ef…1207 at0012 = ╱45╱E╱ // 0x1201 @0x12
0x11ef…1207 at0013 = ╱4b╱K╱ // 0x1202 @0x13
0x11ef…1207 at0014 = ╱53╱S╱ // 0x1203 @0x14
0x11ef…1207 at0015 = ╱dc╱=╱ // 0x1204 @0x15
0x11ef…1207 at0016 = ╱42╱B╱ // 0x1205 @0x16
0x11ef…1207 at0017 = EOL // 0x1206 @0x17
0x11ef…1207 }
0x1207…120d 9f64 1970 ENDPROC
0x1207…120d LineComalBin {
0x1207…120d ptr = 0x9f64 // 0x1207 @0x0
0x1207…120d lno = 0x07b2 // 0x1209 @0x2
0x1207…120d at0004 = ╱9f╱ ENDPROC ╱ // 0x120b @0x4
0x1207…120d at0005 = EOL // 0x120c @0x5
0x1207…120d }
0x120d…1226 9f7d 1980 PROC INDTAB1(Z,MANT5,L7)
0x120d…1226 LineComalBin {
0x120d…1226 ptr = 0x9f7d // 0x120d @0x0
0x120d…1226 lno = 0x07bc // 0x120f @0x2
0x120d…1226 at0004 = ╱9e╱ PROC ╱ // 0x1211 @0x4
0x120d…1226 at0005 = ╱49╱I╱ // 0x1212 @0x5
0x120d…1226 at0006 = ╱4e╱N╱ // 0x1213 @0x6
0x120d…1226 at0007 = ╱44╱D╱ // 0x1214 @0x7
0x120d…1226 at0008 = ╱54╱T╱ // 0x1215 @0x8
0x120d…1226 at0009 = ╱41╱A╱ // 0x1216 @0x9
0x120d…1226 at000a = ╱42╱B╱ // 0x1217 @0xa
0x120d…1226 at000b = ╱31╱1╱ // 0x1218 @0xb
0x120d…1226 at000c = ╱ed╱(╱ // 0x1219 @0xc
0x120d…1226 at000d = ╱5a╱Z╱ // 0x121a @0xd
0x120d…1226 at000e = ╱ec╱,╱ // 0x121b @0xe
0x120d…1226 at000f = ╱4d╱M╱ // 0x121c @0xf
0x120d…1226 at0010 = ╱41╱A╱ // 0x121d @0x10
0x120d…1226 at0011 = ╱4e╱N╱ // 0x121e @0x11
0x120d…1226 at0012 = ╱54╱T╱ // 0x121f @0x12
0x120d…1226 at0013 = ╱35╱5╱ // 0x1220 @0x13
0x120d…1226 at0014 = ╱ec╱,╱ // 0x1221 @0x14
0x120d…1226 at0015 = ╱4c╱L╱ // 0x1222 @0x15
0x120d…1226 at0016 = ╱37╱7╱ // 0x1223 @0x16
0x120d…1226 at0017 = ╱ee╱)╱ // 0x1224 @0x17
0x120d…1226 at0018 = EOL // 0x1225 @0x18
0x120d…1226 }
0x1226…123d 9f94 1990 PIL1=MANT5 DIV 32
0x1226…123d LineComalBin {
0x1226…123d ptr = 0x9f94 // 0x1226 @0x0
0x1226…123d lno = 0x07c6 // 0x1228 @0x2
0x1226…123d at0004 = ╱50╱P╱ // 0x122a @0x4
0x1226…123d at0005 = ╱49╱I╱ // 0x122b @0x5
0x1226…123d at0006 = ╱4c╱L╱ // 0x122c @0x6
0x1226…123d at0007 = ╱31╱1╱ // 0x122d @0x7
0x1226…123d at0008 = ╱dc╱=╱ // 0x122e @0x8
0x1226…123d at0009 = ╱4d╱M╱ // 0x122f @0x9
0x1226…123d at000a = ╱41╱A╱ // 0x1230 @0xa
0x1226…123d at000b = ╱4e╱N╱ // 0x1231 @0xb
0x1226…123d at000c = ╱54╱T╱ // 0x1232 @0xc
0x1226…123d at000d = ╱35╱5╱ // 0x1233 @0xd
0x1226…123d at000e = ╱e7╱ DIV ╱ // 0x1234 @0xe
0x1226…123d at000f = ╱33╱3╱ // 0x1235 @0xf
0x1226…123d at0010 = ╱32╱2╱ // 0x1236 @0x10
0x1226…123d at0011 = ╱fe00008006╱ // 0x1237 @0x11
0x1226…123d at0016 = EOL // 0x123c @0x16
0x1226…123d }
0x123d…124b 9fa2 2000 FOR I=E TO PIL1
0x123d…124b LineComalBin {
0x123d…124b ptr = 0x9fa2 // 0x123d @0x0
0x123d…124b lno = 0x07d0 // 0x123f @0x2
0x123d…124b at0004 = ╱83╱ FOR ╱ // 0x1241 @0x4
0x123d…124b at0005 = ╱49╱I╱ // 0x1242 @0x5
0x123d…124b at0006 = ╱dc╱=╱ // 0x1243 @0x6
0x123d…124b at0007 = ╱45╱E╱ // 0x1244 @0x7
0x123d…124b at0008 = ╱b7╱ TO ╱ // 0x1245 @0x8
0x123d…124b at0009 = ╱50╱P╱ // 0x1246 @0x9
0x123d…124b at000a = ╱49╱I╱ // 0x1247 @0xa
0x123d…124b at000b = ╱4c╱L╱ // 0x1248 @0xb
0x123d…124b at000c = ╱31╱1╱ // 0x1249 @0xc
0x123d…124b at000d = EOL // 0x124a @0xd
0x123d…124b }
0x124b…1260 9fb7 2010 H=(I-E)*8+E
0x124b…1260 LineComalBin {
0x124b…1260 ptr = 0x9fb7 // 0x124b @0x0
0x124b…1260 lno = 0x07da // 0x124d @0x2
0x124b…1260 at0004 = ╱48╱H╱ // 0x124f @0x4
0x124b…1260 at0005 = ╱dc╱=╱ // 0x1250 @0x5
0x124b…1260 at0006 = ╱ed╱(╱ // 0x1251 @0x6
0x124b…1260 at0007 = ╱49╱I╱ // 0x1252 @0x7
0x124b…1260 at0008 = ╱e3╱-╱ // 0x1253 @0x8
0x124b…1260 at0009 = ╱45╱E╱ // 0x1254 @0x9
0x124b…1260 at000a = ╱ee╱)╱ // 0x1255 @0xa
0x124b…1260 at000b = ╱e4╱*╱ // 0x1256 @0xb
0x124b…1260 at000c = ╱38╱8╱ // 0x1257 @0xc
0x124b…1260 at000d = ╱fe00008004╱ // 0x1258 @0xd
0x124b…1260 at0012 = ╱e2╱+╱ // 0x125d @0x12
0x124b…1260 at0013 = ╱45╱E╱ // 0x125e @0x13
0x124b…1260 at0014 = EOL // 0x125f @0x14
0x124b…1260 }
0x1260…12b5 a00c 2020 GET L7$,I:Z(H),Z(H+E),Z(H+G),Z(H+V),Z(H+4),Z(H+5),Z(H+6),Z(H+7)
0x1260…12b5 LineComalBin {
0x1260…12b5 ptr = 0xa00c // 0x1260 @0x0
0x1260…12b5 lno = 0x07e4 // 0x1262 @0x2
0x1260…12b5 at0004 = ╱a9╱ GET ╱ // 0x1264 @0x4
0x1260…12b5 at0005 = ╱4c╱L╱ // 0x1265 @0x5
0x1260…12b5 at0006 = ╱37╱7╱ // 0x1266 @0x6
0x1260…12b5 at0007 = ╱ef╱$╱ // 0x1267 @0x7
0x1260…12b5 at0008 = ╱ec╱,╱ // 0x1268 @0x8
0x1260…12b5 at0009 = ╱49╱I╱ // 0x1269 @0x9
0x1260…12b5 at000a = ╱f0╱:╱ // 0x126a @0xa
0x1260…12b5 at000b = ╱5a╱Z╱ // 0x126b @0xb
0x1260…12b5 at000c = ╱ed╱(╱ // 0x126c @0xc
0x1260…12b5 at000d = ╱48╱H╱ // 0x126d @0xd
0x1260…12b5 at000e = ╱ee╱)╱ // 0x126e @0xe
0x1260…12b5 at000f = ╱ec╱,╱ // 0x126f @0xf
0x1260…12b5 at0010 = ╱5a╱Z╱ // 0x1270 @0x10
0x1260…12b5 at0011 = ╱ed╱(╱ // 0x1271 @0x11
0x1260…12b5 at0012 = ╱48╱H╱ // 0x1272 @0x12
0x1260…12b5 at0013 = ╱e2╱+╱ // 0x1273 @0x13
0x1260…12b5 at0014 = ╱45╱E╱ // 0x1274 @0x14
0x1260…12b5 at0015 = ╱ee╱)╱ // 0x1275 @0x15
0x1260…12b5 at0016 = ╱ec╱,╱ // 0x1276 @0x16
0x1260…12b5 at0017 = ╱5a╱Z╱ // 0x1277 @0x17
0x1260…12b5 at0018 = ╱ed╱(╱ // 0x1278 @0x18
0x1260…12b5 at0019 = ╱48╱H╱ // 0x1279 @0x19
0x1260…12b5 at001a = ╱e2╱+╱ // 0x127a @0x1a
0x1260…12b5 at001b = ╱47╱G╱ // 0x127b @0x1b
0x1260…12b5 at001c = ╱ee╱)╱ // 0x127c @0x1c
0x1260…12b5 at001d = ╱ec╱,╱ // 0x127d @0x1d
0x1260…12b5 at001e = ╱5a╱Z╱ // 0x127e @0x1e
0x1260…12b5 at001f = ╱ed╱(╱ // 0x127f @0x1f
0x1260…12b5 at0020 = ╱48╱H╱ // 0x1280 @0x20
0x1260…12b5 at0021 = ╱e2╱+╱ // 0x1281 @0x21
0x1260…12b5 at0022 = ╱56╱V╱ // 0x1282 @0x22
0x1260…12b5 at0023 = ╱ee╱)╱ // 0x1283 @0x23
0x1260…12b5 at0024 = ╱ec╱,╱ // 0x1284 @0x24
0x1260…12b5 at0025 = ╱5a╱Z╱ // 0x1285 @0x25
0x1260…12b5 at0026 = ╱ed╱(╱ // 0x1286 @0x26
0x1260…12b5 at0027 = ╱48╱H╱ // 0x1287 @0x27
0x1260…12b5 at0028 = ╱e2╱+╱ // 0x1288 @0x28
0x1260…12b5 at0029 = ╱34╱4╱ // 0x1289 @0x29
0x1260…12b5 at002a = ╱fe00008003╱ // 0x128a @0x2a
0x1260…12b5 at002f = ╱ee╱)╱ // 0x128f @0x2f
0x1260…12b5 at0030 = ╱ec╱,╱ // 0x1290 @0x30
0x1260…12b5 at0031 = ╱5a╱Z╱ // 0x1291 @0x31
0x1260…12b5 at0032 = ╱ed╱(╱ // 0x1292 @0x32
0x1260…12b5 at0033 = ╱48╱H╱ // 0x1293 @0x33
0x1260…12b5 at0034 = ╱e2╱+╱ // 0x1294 @0x34
0x1260…12b5 at0035 = ╱35╱5╱ // 0x1295 @0x35
0x1260…12b5 at0036 = ╱fe0000a003╱ // 0x1296 @0x36
0x1260…12b5 at003b = ╱ee╱)╱ // 0x129b @0x3b
0x1260…12b5 at003c = ╱ec╱,╱ // 0x129c @0x3c
0x1260…12b5 at003d = ╱5a╱Z╱ // 0x129d @0x3d
0x1260…12b5 at003e = ╱ed╱(╱ // 0x129e @0x3e
0x1260…12b5 at003f = ╱48╱H╱ // 0x129f @0x3f
0x1260…12b5 at0040 = ╱e2╱+╱ // 0x12a0 @0x40
0x1260…12b5 at0041 = ╱36╱6╱ // 0x12a1 @0x41
0x1260…12b5 at0042 = ╱fe0000c003╱ // 0x12a2 @0x42
0x1260…12b5 at0047 = ╱ee╱)╱ // 0x12a7 @0x47
0x1260…12b5 at0048 = ╱ec╱,╱ // 0x12a8 @0x48
0x1260…12b5 at0049 = ╱5a╱Z╱ // 0x12a9 @0x49
0x1260…12b5 at004a = ╱ed╱(╱ // 0x12aa @0x4a
0x1260…12b5 at004b = ╱48╱H╱ // 0x12ab @0x4b
0x1260…12b5 at004c = ╱e2╱+╱ // 0x12ac @0x4c
0x1260…12b5 at004d = ╱37╱7╱ // 0x12ad @0x4d
0x1260…12b5 at004e = ╱fe0000e003╱ // 0x12ae @0x4e
0x1260…12b5 at0053 = ╱ee╱)╱ // 0x12b3 @0x53
0x1260…12b5 at0054 = EOL // 0x12b4 @0x54
0x1260…12b5 }
0x12b5…12c8 a01f 2030 EXEC FEJL(G,E,L7$)
0x12b5…12c8 LineComalBin {
0x12b5…12c8 ptr = 0xa01f // 0x12b5 @0x0
0x12b5…12c8 lno = 0x07ee // 0x12b7 @0x2
0x12b5…12c8 at0004 = ╱9d╱ EXEC ╱ // 0x12b9 @0x4
0x12b5…12c8 at0005 = ╱46╱F╱ // 0x12ba @0x5
0x12b5…12c8 at0006 = ╱45╱E╱ // 0x12bb @0x6
0x12b5…12c8 at0007 = ╱4a╱J╱ // 0x12bc @0x7
0x12b5…12c8 at0008 = ╱4c╱L╱ // 0x12bd @0x8
0x12b5…12c8 at0009 = ╱ed╱(╱ // 0x12be @0x9
0x12b5…12c8 at000a = ╱47╱G╱ // 0x12bf @0xa
0x12b5…12c8 at000b = ╱ec╱,╱ // 0x12c0 @0xb
0x12b5…12c8 at000c = ╱45╱E╱ // 0x12c1 @0xc
0x12b5…12c8 at000d = ╱ec╱,╱ // 0x12c2 @0xd
0x12b5…12c8 at000e = ╱4c╱L╱ // 0x12c3 @0xe
0x12b5…12c8 at000f = ╱37╱7╱ // 0x12c4 @0xf
0x12b5…12c8 at0010 = ╱ef╱$╱ // 0x12c5 @0x10
0x12b5…12c8 at0011 = ╱ee╱)╱ // 0x12c6 @0x11
0x12b5…12c8 at0012 = EOL // 0x12c7 @0x12
0x12b5…12c8 }
0x12c8…12cf a026 2040 NEXT I
0x12c8…12cf LineComalBin {
0x12c8…12cf ptr = 0xa026 // 0x12c8 @0x0
0x12c8…12cf lno = 0x07f8 // 0x12ca @0x2
0x12c8…12cf at0004 = ╱84╱ NEXT ╱ // 0x12cc @0x4
0x12c8…12cf at0005 = ╱49╱I╱ // 0x12cd @0x5
0x12c8…12cf at0006 = EOL // 0x12ce @0x6
0x12c8…12cf }
0x12cf…12d5 a02c 2050 ENDPROC
0x12cf…12d5 LineComalBin {
0x12cf…12d5 ptr = 0xa02c // 0x12cf @0x0
0x12cf…12d5 lno = 0x0802 // 0x12d1 @0x2
0x12cf…12d5 at0004 = ╱9f╱ ENDPROC ╱ // 0x12d3 @0x4
0x12cf…12d5 at0005 = EOL // 0x12d4 @0x5
0x12cf…12d5 }
0x12d5…12f1 a048 2060 PROC LUDSKRIV(KT1,DA4,KSNR)
0x12d5…12f1 LineComalBin {
0x12d5…12f1 ptr = 0xa048 // 0x12d5 @0x0
0x12d5…12f1 lno = 0x080c // 0x12d7 @0x2
0x12d5…12f1 at0004 = ╱9e╱ PROC ╱ // 0x12d9 @0x4
0x12d5…12f1 at0005 = ╱4c╱L╱ // 0x12da @0x5
0x12d5…12f1 at0006 = ╱55╱U╱ // 0x12db @0x6
0x12d5…12f1 at0007 = ╱44╱D╱ // 0x12dc @0x7
0x12d5…12f1 at0008 = ╱53╱S╱ // 0x12dd @0x8
0x12d5…12f1 at0009 = ╱4b╱K╱ // 0x12de @0x9
0x12d5…12f1 at000a = ╱52╱R╱ // 0x12df @0xa
0x12d5…12f1 at000b = ╱49╱I╱ // 0x12e0 @0xb
0x12d5…12f1 at000c = ╱56╱V╱ // 0x12e1 @0xc
0x12d5…12f1 at000d = ╱ed╱(╱ // 0x12e2 @0xd
0x12d5…12f1 at000e = ╱4b╱K╱ // 0x12e3 @0xe
0x12d5…12f1 at000f = ╱54╱T╱ // 0x12e4 @0xf
0x12d5…12f1 at0010 = ╱31╱1╱ // 0x12e5 @0x10
0x12d5…12f1 at0011 = ╱ec╱,╱ // 0x12e6 @0x11
0x12d5…12f1 at0012 = ╱44╱D╱ // 0x12e7 @0x12
0x12d5…12f1 at0013 = ╱41╱A╱ // 0x12e8 @0x13
0x12d5…12f1 at0014 = ╱34╱4╱ // 0x12e9 @0x14
0x12d5…12f1 at0015 = ╱ec╱,╱ // 0x12ea @0x15
0x12d5…12f1 at0016 = ╱4b╱K╱ // 0x12eb @0x16
0x12d5…12f1 at0017 = ╱53╱S╱ // 0x12ec @0x17
0x12d5…12f1 at0018 = ╱4e╱N╱ // 0x12ed @0x18
0x12d5…12f1 at0019 = ╱52╱R╱ // 0x12ee @0x19
0x12d5…12f1 at001a = ╱ee╱)╱ // 0x12ef @0x1a
0x12d5…12f1 at001b = EOL // 0x12f0 @0x1b
0x12d5…12f1 }
0x12f1…1307 a05e 2070 EXEC DATOUD(DA4,DA5$)
0x12f1…1307 LineComalBin {
0x12f1…1307 ptr = 0xa05e // 0x12f1 @0x0
0x12f1…1307 lno = 0x0816 // 0x12f3 @0x2
0x12f1…1307 at0004 = ╱9d╱ EXEC ╱ // 0x12f5 @0x4
0x12f1…1307 at0005 = ╱44╱D╱ // 0x12f6 @0x5
0x12f1…1307 at0006 = ╱41╱A╱ // 0x12f7 @0x6
0x12f1…1307 at0007 = ╱54╱T╱ // 0x12f8 @0x7
0x12f1…1307 at0008 = ╱4f╱O╱ // 0x12f9 @0x8
0x12f1…1307 at0009 = ╱55╱U╱ // 0x12fa @0x9
0x12f1…1307 at000a = ╱44╱D╱ // 0x12fb @0xa
0x12f1…1307 at000b = ╱ed╱(╱ // 0x12fc @0xb
0x12f1…1307 at000c = ╱44╱D╱ // 0x12fd @0xc
0x12f1…1307 at000d = ╱41╱A╱ // 0x12fe @0xd
0x12f1…1307 at000e = ╱34╱4╱ // 0x12ff @0xe
0x12f1…1307 at000f = ╱ec╱,╱ // 0x1300 @0xf
0x12f1…1307 at0010 = ╱44╱D╱ // 0x1301 @0x10
0x12f1…1307 at0011 = ╱41╱A╱ // 0x1302 @0x11
0x12f1…1307 at0012 = ╱35╱5╱ // 0x1303 @0x12
0x12f1…1307 at0013 = ╱ef╱$╱ // 0x1304 @0x13
0x12f1…1307 at0014 = ╱ee╱)╱ // 0x1305 @0x14
0x12f1…1307 at0015 = EOL // 0x1306 @0x15
0x12f1…1307 }
0x1307…1317 a06e 2080 KSNR=KSNR+E
0x1307…1317 LineComalBin {
0x1307…1317 ptr = 0xa06e // 0x1307 @0x0
0x1307…1317 lno = 0x0820 // 0x1309 @0x2
0x1307…1317 at0004 = ╱4b╱K╱ // 0x130b @0x4
0x1307…1317 at0005 = ╱53╱S╱ // 0x130c @0x5
0x1307…1317 at0006 = ╱4e╱N╱ // 0x130d @0x6
0x1307…1317 at0007 = ╱52╱R╱ // 0x130e @0x7
0x1307…1317 at0008 = ╱dc╱=╱ // 0x130f @0x8
0x1307…1317 at0009 = ╱4b╱K╱ // 0x1310 @0x9
0x1307…1317 at000a = ╱53╱S╱ // 0x1311 @0xa
0x1307…1317 at000b = ╱4e╱N╱ // 0x1312 @0xb
0x1307…1317 at000c = ╱52╱R╱ // 0x1313 @0xc
0x1307…1317 at000d = ╱e2╱+╱ // 0x1314 @0xd
0x1307…1317 at000e = ╱45╱E╱ // 0x1315 @0xe
0x1307…1317 at000f = EOL // 0x1316 @0xf
0x1307…1317 }
0x1317…1347 a09e 2090 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69);
0x1317…1347 LineComalBin {
0x1317…1347 ptr = 0xa09e // 0x1317 @0x0
0x1317…1347 lno = 0x082a // 0x1319 @0x2
0x1317…1347 at0004 = ╱92╱ PRINT ╱ // 0x131b @0x4
0x1317…1347 at0005 = ╱d2╱TAB╱ // 0x131c @0x5
0x1317…1347 at0006 = ╱ed╱(╱ // 0x131d @0x6
0x1317…1347 at0007 = ╱34╱4╱ // 0x131e @0x7
0x1317…1347 at0008 = ╱38╱8╱ // 0x131f @0x8
0x1317…1347 at0009 = ╱fe0000c006╱ // 0x1320 @0x9
0x1317…1347 at000e = ╱ee╱)╱ // 0x1325 @0xe
0x1317…1347 at000f = ╱eb╱;╱ // 0x1326 @0xf
0x1317…1347 at0010 = ╱4b╱K╱ // 0x1327 @0x10
0x1317…1347 at0011 = ╱54╱T╱ // 0x1328 @0x11
0x1317…1347 at0012 = ╱31╱1╱ // 0x1329 @0x12
0x1317…1347 at0013 = ╱eb╱;╱ // 0x132a @0x13
0x1317…1347 at0014 = ╱d2╱TAB╱ // 0x132b @0x14
0x1317…1347 at0015 = ╱ed╱(╱ // 0x132c @0x15
0x1317…1347 at0016 = ╱35╱5╱ // 0x132d @0x16
0x1317…1347 at0017 = ╱36╱6╱ // 0x132e @0x17
0x1317…1347 at0018 = ╱fe0000e006╱ // 0x132f @0x18
0x1317…1347 at001d = ╱ee╱)╱ // 0x1334 @0x1d
0x1317…1347 at001e = ╱eb╱;╱ // 0x1335 @0x1e
0x1317…1347 at001f = ╱44╱D╱ // 0x1336 @0x1f
0x1317…1347 at0020 = ╱41╱A╱ // 0x1337 @0x20
0x1317…1347 at0021 = ╱35╱5╱ // 0x1338 @0x21
0x1317…1347 at0022 = ╱ef╱$╱ // 0x1339 @0x22
0x1317…1347 at0023 = ╱eb╱;╱ // 0x133a @0x23
0x1317…1347 at0024 = ╱d2╱TAB╱ // 0x133b @0x24
0x1317…1347 at0025 = ╱ed╱(╱ // 0x133c @0x25
0x1317…1347 at0026 = ╱36╱6╱ // 0x133d @0x26
0x1317…1347 at0027 = ╱39╱9╱ // 0x133e @0x27
0x1317…1347 at0028 = ╱fe00008a07╱ // 0x133f @0x28
0x1317…1347 at002d = ╱ee╱)╱ // 0x1344 @0x2d
0x1317…1347 at002e = ╱eb╱;╱ // 0x1345 @0x2e
0x1317…1347 at002f = EOL // 0x1346 @0x2f
0x1317…1347 }
0x1347…1357 a0ae 2100 PRINT USING "##":KSNR
0x1347…1357 LineComalBin {
0x1347…1357 ptr = 0xa0ae // 0x1347 @0x0
0x1347…1357 lno = 0x0834 // 0x1349 @0x2
0x1347…1357 at0004 = ╱92╱ PRINT ╱ // 0x134b @0x4
0x1347…1357 at0005 = ╱b9╱ USING ╱ // 0x134c @0x5
0x1347…1357 at0006 = ╱22╱"╱ // 0x134d @0x6
0x1347…1357 at0007 = ╱23╱#╱ // 0x134e @0x7
0x1347…1357 at0008 = ╱23╱#╱ // 0x134f @0x8
0x1347…1357 at0009 = ╱22╱"╱ // 0x1350 @0x9
0x1347…1357 at000a = ╱f0╱:╱ // 0x1351 @0xa
0x1347…1357 at000b = ╱4b╱K╱ // 0x1352 @0xb
0x1347…1357 at000c = ╱53╱S╱ // 0x1353 @0xc
0x1347…1357 at000d = ╱4e╱N╱ // 0x1354 @0xd
0x1347…1357 at000e = ╱52╱R╱ // 0x1355 @0xe
0x1347…1357 at000f = EOL // 0x1356 @0xf
0x1347…1357 }
0x1357…135d a0b4 2110 ENDPROC
0x1357…135d LineComalBin {
0x1357…135d ptr = 0xa0b4 // 0x1357 @0x0
0x1357…135d lno = 0x083e // 0x1359 @0x2
0x1357…135d at0004 = ╱9f╱ ENDPROC ╱ // 0x135b @0x4
0x1357…135d at0005 = EOL // 0x135c @0x5
0x1357…135d }
0x135d…138c a0e3 2120 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,DS3,DS4,LNR)
0x135d…138c LineComalBin {
0x135d…138c ptr = 0xa0e3 // 0x135d @0x0
0x135d…138c lno = 0x0848 // 0x135f @0x2
0x135d…138c at0004 = ╱9e╱ PROC ╱ // 0x1361 @0x4
0x135d…138c at0005 = ╱42╱B╱ // 0x1362 @0x5
0x135d…138c at0006 = ╱55╱U╱ // 0x1363 @0x6
0x135d…138c at0007 = ╱44╱D╱ // 0x1364 @0x7
0x135d…138c at0008 = ╱53╱S╱ // 0x1365 @0x8
0x135d…138c at0009 = ╱4b╱K╱ // 0x1366 @0x9
0x135d…138c at000a = ╱52╱R╱ // 0x1367 @0xa
0x135d…138c at000b = ╱49╱I╱ // 0x1368 @0xb
0x135d…138c at000c = ╱56╱V╱ // 0x1369 @0xc
0x135d…138c at000d = ╱ed╱(╱ // 0x136a @0xd
0x135d…138c at000e = ╱4d╱M╱ // 0x136b @0xe
0x135d…138c at000f = ╱4b╱K╱ // 0x136c @0xf
0x135d…138c at0010 = ╱5c╱Ø╱ // 0x136d @0x10
0x135d…138c at0011 = ╱42╱B╱ // 0x136e @0x11
0x135d…138c at0012 = ╱ec╱,╱ // 0x136f @0x12
0x135d…138c at0013 = ╱4d╱M╱ // 0x1370 @0x13
0x135d…138c at0014 = ╱4b╱K╱ // 0x1371 @0x14
0x135d…138c at0015 = ╱ec╱,╱ // 0x1372 @0x15
0x135d…138c at0016 = ╱53╱S╱ // 0x1373 @0x16
0x135d…138c at0017 = ╱55╱U╱ // 0x1374 @0x17
0x135d…138c at0018 = ╱32╱2╱ // 0x1375 @0x18
0x135d…138c at0019 = ╱ec╱,╱ // 0x1376 @0x19
0x135d…138c at001a = ╱44╱D╱ // 0x1377 @0x1a
0x135d…138c at001b = ╱53╱S╱ // 0x1378 @0x1b
0x135d…138c at001c = ╱31╱1╱ // 0x1379 @0x1c
0x135d…138c at001d = ╱ec╱,╱ // 0x137a @0x1d
0x135d…138c at001e = ╱44╱D╱ // 0x137b @0x1e
0x135d…138c at001f = ╱53╱S╱ // 0x137c @0x1f
0x135d…138c at0020 = ╱32╱2╱ // 0x137d @0x20
0x135d…138c at0021 = ╱ec╱,╱ // 0x137e @0x21
0x135d…138c at0022 = ╱44╱D╱ // 0x137f @0x22
0x135d…138c at0023 = ╱53╱S╱ // 0x1380 @0x23
0x135d…138c at0024 = ╱33╱3╱ // 0x1381 @0x24
0x135d…138c at0025 = ╱ec╱,╱ // 0x1382 @0x25
0x135d…138c at0026 = ╱44╱D╱ // 0x1383 @0x26
0x135d…138c at0027 = ╱53╱S╱ // 0x1384 @0x27
0x135d…138c at0028 = ╱34╱4╱ // 0x1385 @0x28
0x135d…138c at0029 = ╱ec╱,╱ // 0x1386 @0x29
0x135d…138c at002a = ╱4c╱L╱ // 0x1387 @0x2a
0x135d…138c at002b = ╱4e╱N╱ // 0x1388 @0x2b
0x135d…138c at002c = ╱52╱R╱ // 0x1389 @0x2c
0x135d…138c at002d = ╱ee╱)╱ // 0x138a @0x2d
0x135d…138c at002e = EOL // 0x138b @0x2e
0x135d…138c }
0x138c…13bf a116 2130 IF MK<>G THEN EXEC LINIER(LNR,24-6*(SKRIV1),LNR)
0x138c…13bf LineComalBin {
0x138c…13bf ptr = 0xa116 // 0x138c @0x0
0x138c…13bf lno = 0x0852 // 0x138e @0x2
0x138c…13bf at0004 = ╱82╱ IF ╱ // 0x1390 @0x4
0x138c…13bf at0005 = ╱4d╱M╱ // 0x1391 @0x5
0x138c…13bf at0006 = ╱4b╱K╱ // 0x1392 @0x6
0x138c…13bf at0007 = ╱e1╱<>╱ // 0x1393 @0x7
0x138c…13bf at0008 = ╱47╱G╱ // 0x1394 @0x8
0x138c…13bf at0009 = ╱b6╱ THEN ╱ // 0x1395 @0x9
0x138c…13bf at000a = ╱9d╱ EXEC ╱ // 0x1396 @0xa
0x138c…13bf at000b = ╱4c╱L╱ // 0x1397 @0xb
0x138c…13bf at000c = ╱49╱I╱ // 0x1398 @0xc
0x138c…13bf at000d = ╱4e╱N╱ // 0x1399 @0xd
0x138c…13bf at000e = ╱49╱I╱ // 0x139a @0xe
0x138c…13bf at000f = ╱45╱E╱ // 0x139b @0xf
0x138c…13bf at0010 = ╱52╱R╱ // 0x139c @0x10
0x138c…13bf at0011 = ╱ed╱(╱ // 0x139d @0x11
0x138c…13bf at0012 = ╱4c╱L╱ // 0x139e @0x12
0x138c…13bf at0013 = ╱4e╱N╱ // 0x139f @0x13
0x138c…13bf at0014 = ╱52╱R╱ // 0x13a0 @0x14
0x138c…13bf at0015 = ╱ec╱,╱ // 0x13a1 @0x15
0x138c…13bf at0016 = ╱32╱2╱ // 0x13a2 @0x16
0x138c…13bf at0017 = ╱34╱4╱ // 0x13a3 @0x17
0x138c…13bf at0018 = ╱fe0000c005╱ // 0x13a4 @0x18
0x138c…13bf at001d = ╱e3╱-╱ // 0x13a9 @0x1d
0x138c…13bf at001e = ╱36╱6╱ // 0x13aa @0x1e
0x138c…13bf at001f = ╱fe0000c003╱ // 0x13ab @0x1f
0x138c…13bf at0024 = ╱e4╱*╱ // 0x13b0 @0x24
0x138c…13bf at0025 = ╱ed╱(╱ // 0x13b1 @0x25
0x138c…13bf at0026 = ╱53╱S╱ // 0x13b2 @0x26
0x138c…13bf at0027 = ╱4b╱K╱ // 0x13b3 @0x27
0x138c…13bf at0028 = ╱52╱R╱ // 0x13b4 @0x28
0x138c…13bf at0029 = ╱49╱I╱ // 0x13b5 @0x29
0x138c…13bf at002a = ╱56╱V╱ // 0x13b6 @0x2a
0x138c…13bf at002b = ╱31╱1╱ // 0x13b7 @0x2b
0x138c…13bf at002c = ╱ee╱)╱ // 0x13b8 @0x2c
0x138c…13bf at002d = ╱ec╱,╱ // 0x13b9 @0x2d
0x138c…13bf at002e = ╱4c╱L╱ // 0x13ba @0x2e
0x138c…13bf at002f = ╱4e╱N╱ // 0x13bb @0x2f
0x138c…13bf at0030 = ╱52╱R╱ // 0x13bc @0x30
0x138c…13bf at0031 = ╱ee╱)╱ // 0x13bd @0x31
0x138c…13bf at0032 = EOL // 0x13be @0x32
0x138c…13bf }
0x13bf…13f0 a147 2140 IF SKRIV1=B OR KTAL1<>DTAL OR (SKRIV1=E AND (MK=E OR MK=G)) THEN
0x13bf…13f0 LineComalBin {
0x13bf…13f0 ptr = 0xa147 // 0x13bf @0x0
0x13bf…13f0 lno = 0x085c // 0x13c1 @0x2
0x13bf…13f0 at0004 = ╱9c╱ IF ╱ // 0x13c3 @0x4
0x13bf…13f0 at0005 = ╱53╱S╱ // 0x13c4 @0x5
0x13bf…13f0 at0006 = ╱4b╱K╱ // 0x13c5 @0x6
0x13bf…13f0 at0007 = ╱52╱R╱ // 0x13c6 @0x7
0x13bf…13f0 at0008 = ╱49╱I╱ // 0x13c7 @0x8
0x13bf…13f0 at0009 = ╱56╱V╱ // 0x13c8 @0x9
0x13bf…13f0 at000a = ╱31╱1╱ // 0x13c9 @0xa
0x13bf…13f0 at000b = ╱dc╱=╱ // 0x13ca @0xb
0x13bf…13f0 at000c = ╱42╱B╱ // 0x13cb @0xc
0x13bf…13f0 at000d = ╱db╱ OR ╱ // 0x13cc @0xd
0x13bf…13f0 at000e = ╱4b╱K╱ // 0x13cd @0xe
0x13bf…13f0 at000f = ╱54╱T╱ // 0x13ce @0xf
0x13bf…13f0 at0010 = ╱41╱A╱ // 0x13cf @0x10
0x13bf…13f0 at0011 = ╱4c╱L╱ // 0x13d0 @0x11
0x13bf…13f0 at0012 = ╱31╱1╱ // 0x13d1 @0x12
0x13bf…13f0 at0013 = ╱e1╱<>╱ // 0x13d2 @0x13
0x13bf…13f0 at0014 = ╱44╱D╱ // 0x13d3 @0x14
0x13bf…13f0 at0015 = ╱54╱T╱ // 0x13d4 @0x15
0x13bf…13f0 at0016 = ╱41╱A╱ // 0x13d5 @0x16
0x13bf…13f0 at0017 = ╱4c╱L╱ // 0x13d6 @0x17
0x13bf…13f0 at0018 = ╱db╱ OR ╱ // 0x13d7 @0x18
0x13bf…13f0 at0019 = ╱ed╱(╱ // 0x13d8 @0x19
0x13bf…13f0 at001a = ╱53╱S╱ // 0x13d9 @0x1a
0x13bf…13f0 at001b = ╱4b╱K╱ // 0x13da @0x1b
0x13bf…13f0 at001c = ╱52╱R╱ // 0x13db @0x1c
0x13bf…13f0 at001d = ╱49╱I╱ // 0x13dc @0x1d
0x13bf…13f0 at001e = ╱56╱V╱ // 0x13dd @0x1e
0x13bf…13f0 at001f = ╱31╱1╱ // 0x13de @0x1f
0x13bf…13f0 at0020 = ╱dc╱=╱ // 0x13df @0x20
0x13bf…13f0 at0021 = ╱45╱E╱ // 0x13e0 @0x21
0x13bf…13f0 at0022 = ╱da╱ AND ╱ // 0x13e1 @0x22
0x13bf…13f0 at0023 = ╱ed╱(╱ // 0x13e2 @0x23
0x13bf…13f0 at0024 = ╱4d╱M╱ // 0x13e3 @0x24
0x13bf…13f0 at0025 = ╱4b╱K╱ // 0x13e4 @0x25
0x13bf…13f0 at0026 = ╱dc╱=╱ // 0x13e5 @0x26
0x13bf…13f0 at0027 = ╱45╱E╱ // 0x13e6 @0x27
0x13bf…13f0 at0028 = ╱db╱ OR ╱ // 0x13e7 @0x28
0x13bf…13f0 at0029 = ╱4d╱M╱ // 0x13e8 @0x29
0x13bf…13f0 at002a = ╱4b╱K╱ // 0x13e9 @0x2a
0x13bf…13f0 at002b = ╱dc╱=╱ // 0x13ea @0x2b
0x13bf…13f0 at002c = ╱47╱G╱ // 0x13eb @0x2c
0x13bf…13f0 at002d = ╱ee╱)╱ // 0x13ec @0x2d
0x13bf…13f0 at002e = ╱ee╱)╱ // 0x13ed @0x2e
0x13bf…13f0 at002f = ╱b6╱ THEN ╱ // 0x13ee @0x2f
0x13bf…13f0 at0030 = EOL // 0x13ef @0x30
0x13bf…13f0 }
0x13f0…140b a162 2150 IF MK<>G AND SKRIV1=B THEN PRINT STREG$
0x13f0…140b LineComalBin {
0x13f0…140b ptr = 0xa162 // 0x13f0 @0x0
0x13f0…140b lno = 0x0866 // 0x13f2 @0x2
0x13f0…140b at0004 = ╱82╱ IF ╱ // 0x13f4 @0x4
0x13f0…140b at0005 = ╱4d╱M╱ // 0x13f5 @0x5
0x13f0…140b at0006 = ╱4b╱K╱ // 0x13f6 @0x6
0x13f0…140b at0007 = ╱e1╱<>╱ // 0x13f7 @0x7
0x13f0…140b at0008 = ╱47╱G╱ // 0x13f8 @0x8
0x13f0…140b at0009 = ╱da╱ AND ╱ // 0x13f9 @0x9
0x13f0…140b at000a = ╱53╱S╱ // 0x13fa @0xa
0x13f0…140b at000b = ╱4b╱K╱ // 0x13fb @0xb
0x13f0…140b at000c = ╱52╱R╱ // 0x13fc @0xc
0x13f0…140b at000d = ╱49╱I╱ // 0x13fd @0xd
0x13f0…140b at000e = ╱56╱V╱ // 0x13fe @0xe
0x13f0…140b at000f = ╱31╱1╱ // 0x13ff @0xf
0x13f0…140b at0010 = ╱dc╱=╱ // 0x1400 @0x10
0x13f0…140b at0011 = ╱42╱B╱ // 0x1401 @0x11
0x13f0…140b at0012 = ╱b6╱ THEN ╱ // 0x1402 @0x12
0x13f0…140b at0013 = ╱92╱ PRINT ╱ // 0x1403 @0x13
0x13f0…140b at0014 = ╱53╱S╱ // 0x1404 @0x14
0x13f0…140b at0015 = ╱54╱T╱ // 0x1405 @0x15
0x13f0…140b at0016 = ╱52╱R╱ // 0x1406 @0x16
0x13f0…140b at0017 = ╱45╱E╱ // 0x1407 @0x17
0x13f0…140b at0018 = ╱47╱G╱ // 0x1408 @0x18
0x13f0…140b at0019 = ╱ef╱$╱ // 0x1409 @0x19
0x13f0…140b at001a = EOL // 0x140a @0x1a
0x13f0…140b }
0x140b…1415 a16c 2160 CASE MK OF
0x140b…1415 LineComalBin {
0x140b…1415 ptr = 0xa16c // 0x140b @0x0
0x140b…1415 lno = 0x0870 // 0x140d @0x2
0x140b…1415 at0004 = ╱a201╱ CASE ╱ // 0x140f @0x4
0x140b…1415 at0006 = ╱4d╱M╱ // 0x1411 @0x6
0x140b…1415 at0007 = ╱4b╱K╱ // 0x1412 @0x7
0x140b…1415 at0008 = ╱ba╱ OF ╱ // 0x1413 @0x8
0x140b…1415 at0009 = EOL // 0x1414 @0x9
0x140b…1415 }
0x1415…141b a172 2170 STOP
0x1415…141b LineComalBin {
0x1415…141b ptr = 0xa172 // 0x1415 @0x0
0x1415…141b lno = 0x087a // 0x1417 @0x2
0x1415…141b at0004 = ╱8d╱ STOP ╱ // 0x1419 @0x4
0x1415…141b at0005 = EOL // 0x141a @0x5
0x1415…141b }
0x141b…1425 a17c 2180 WHEN E,G
0x141b…1425 LineComalBin {
0x141b…1425 ptr = 0xa17c // 0x141b @0x0
0x141b…1425 lno = 0x0884 // 0x141d @0x2
0x141b…1425 at0004 = ╱a301╱ WHEN ╱ // 0x141f @0x4
0x141b…1425 at0006 = ╱45╱E╱ // 0x1421 @0x6
0x141b…1425 at0007 = ╱ec╱,╱ // 0x1422 @0x7
0x141b…1425 at0008 = ╱47╱G╱ // 0x1423 @0x8
0x141b…1425 at0009 = EOL // 0x1424 @0x9
0x141b…1425 }
0x1425…1442 a199 2190 PRINT TAB(32);"Transport";
0x1425…1442 LineComalBin {
0x1425…1442 ptr = 0xa199 // 0x1425 @0x0
0x1425…1442 lno = 0x088e // 0x1427 @0x2
0x1425…1442 at0004 = ╱92╱ PRINT ╱ // 0x1429 @0x4
0x1425…1442 at0005 = ╱d2╱TAB╱ // 0x142a @0x5
0x1425…1442 at0006 = ╱ed╱(╱ // 0x142b @0x6
0x1425…1442 at0007 = ╱33╱3╱ // 0x142c @0x7
0x1425…1442 at0008 = ╱32╱2╱ // 0x142d @0x8
0x1425…1442 at0009 = ╱fe00008006╱ // 0x142e @0x9
0x1425…1442 at000e = ╱ee╱)╱ // 0x1433 @0xe
0x1425…1442 at000f = ╱eb╱;╱ // 0x1434 @0xf
0x1425…1442 at0010 = ╱22╱"╱ // 0x1435 @0x10
0x1425…1442 at0011 = ╱54╱T╱ // 0x1436 @0x11
0x1425…1442 at0012 = ╱72╱r╱ // 0x1437 @0x12
0x1425…1442 at0013 = ╱61╱a╱ // 0x1438 @0x13
0x1425…1442 at0014 = ╱6e╱n╱ // 0x1439 @0x14
0x1425…1442 at0015 = ╱73╱s╱ // 0x143a @0x15
0x1425…1442 at0016 = ╱70╱p╱ // 0x143b @0x16
0x1425…1442 at0017 = ╱6f╱o╱ // 0x143c @0x17
0x1425…1442 at0018 = ╱72╱r╱ // 0x143d @0x18
0x1425…1442 at0019 = ╱74╱t╱ // 0x143e @0x19
0x1425…1442 at001a = ╱22╱"╱ // 0x143f @0x1a
0x1425…1442 at001b = ╱eb╱;╱ // 0x1440 @0x1b
0x1425…1442 at001c = EOL // 0x1441 @0x1c
0x1425…1442 }
0x1442…1451 a1a8 2200 WHEN V,4
0x1442…1451 LineComalBin {
0x1442…1451 ptr = 0xa1a8 // 0x1442 @0x0
0x1442…1451 lno = 0x0898 // 0x1444 @0x2
0x1442…1451 at0004 = ╱a301╱ WHEN ╱ // 0x1446 @0x4
0x1442…1451 at0006 = ╱56╱V╱ // 0x1448 @0x6
0x1442…1451 at0007 = ╱ec╱,╱ // 0x1449 @0x7
0x1442…1451 at0008 = ╱34╱4╱ // 0x144a @0x8
0x1442…1451 at0009 = ╱fe00008003╱ // 0x144b @0x9
0x1442…1451 at000e = EOL // 0x1450 @0xe
0x1442…1451 }
0x1451…1482 a1d9 2210 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15)
0x1451…1482 LineComalBin {
0x1451…1482 ptr = 0xa1d9 // 0x1451 @0x0
0x1451…1482 lno = 0x08a2 // 0x1453 @0x2
0x1451…1482 at0004 = ╱92╱ PRINT ╱ // 0x1455 @0x4
0x1451…1482 at0005 = ╱d2╱TAB╱ // 0x1456 @0x5
0x1451…1482 at0006 = ╱ed╱(╱ // 0x1457 @0x6
0x1451…1482 at0007 = ╱35╱5╱ // 0x1458 @0x7
0x1451…1482 at0008 = ╱37╱7╱ // 0x1459 @0x8
0x1451…1482 at0009 = ╱fe0000e406╱ // 0x145a @0x9
0x1451…1482 at000e = ╱ee╱)╱ // 0x145f @0xe
0x1451…1482 at000f = ╱eb╱;╱ // 0x1460 @0xf
0x1451…1482 at0010 = ╱cf╱CHR╱ // 0x1461 @0x10
0x1451…1482 at0011 = ╱ed╱(╱ // 0x1462 @0x11
0x1451…1482 at0012 = ╱31╱1╱ // 0x1463 @0x12
0x1451…1482 at0013 = ╱34╱4╱ // 0x1464 @0x13
0x1451…1482 at0014 = ╱fe0000e004╱ // 0x1465 @0x14
0x1451…1482 at0019 = ╱ee╱)╱ // 0x146a @0x19
0x1451…1482 at001a = ╱eb╱;╱ // 0x146b @0x1a
0x1451…1482 at001b = ╱22╱"╱ // 0x146c @0x1b
0x1451…1482 at001c = ╱4e╱N╱ // 0x146d @0x1c
0x1451…1482 at001d = ╱79╱y╱ // 0x146e @0x1d
0x1451…1482 at001e = ╱20╱…╱ // 0x146f @0x1e
0x1451…1482 at001f = ╱73╱s╱ // 0x1470 @0x1f
0x1451…1482 at0020 = ╱61╱a╱ // 0x1471 @0x20
0x1451…1482 at0021 = ╱6c╱l╱ // 0x1472 @0x21
0x1451…1482 at0022 = ╱64╱d╱ // 0x1473 @0x22
0x1451…1482 at0023 = ╱6f╱o╱ // 0x1474 @0x23
0x1451…1482 at0024 = ╱22╱"╱ // 0x1475 @0x24
0x1451…1482 at0025 = ╱eb╱;╱ // 0x1476 @0x25
0x1451…1482 at0026 = ╱cf╱CHR╱ // 0x1477 @0x26
0x1451…1482 at0027 = ╱ed╱(╱ // 0x1478 @0x27
0x1451…1482 at0028 = ╱31╱1╱ // 0x1479 @0x28
0x1451…1482 at0029 = ╱35╱5╱ // 0x147a @0x29
0x1451…1482 at002a = ╱fe0000f004╱ // 0x147b @0x2a
0x1451…1482 at002f = ╱ee╱)╱ // 0x1480 @0x2f
0x1451…1482 at0030 = EOL // 0x1481 @0x30
0x1451…1482 }
0x1482…148e a1e5 2220 PRINT STREG$
0x1482…148e LineComalBin {
0x1482…148e ptr = 0xa1e5 // 0x1482 @0x0
0x1482…148e lno = 0x08ac // 0x1484 @0x2
0x1482…148e at0004 = ╱92╱ PRINT ╱ // 0x1486 @0x4
0x1482…148e at0005 = ╱53╱S╱ // 0x1487 @0x5
0x1482…148e at0006 = ╱54╱T╱ // 0x1488 @0x6
0x1482…148e at0007 = ╱52╱R╱ // 0x1489 @0x7
0x1482…148e at0008 = ╱45╱E╱ // 0x148a @0x8
0x1482…148e at0009 = ╱47╱G╱ // 0x148b @0x9
0x1482…148e at000a = ╱ef╱$╱ // 0x148c @0xa
0x1482…148e at000b = EOL // 0x148d @0xb
0x1482…148e }
0x148e…1496 a1ed 2230 WHEN B
0x148e…1496 LineComalBin {
0x148e…1496 ptr = 0xa1ed // 0x148e @0x0
0x148e…1496 lno = 0x08b6 // 0x1490 @0x2
0x148e…1496 at0004 = ╱a301╱ WHEN ╱ // 0x1492 @0x4
0x148e…1496 at0006 = ╱42╱B╱ // 0x1494 @0x6
0x148e…1496 at0007 = EOL // 0x1495 @0x7
0x148e…1496 }
0x1496…14e1 a238 2240 PRINT TAB(11),CHR(14);"Månedens køb";TAB(36);"Ny saldo";CHR(15)
0x1496…14e1 LineComalBin {
0x1496…14e1 ptr = 0xa238 // 0x1496 @0x0
0x1496…14e1 lno = 0x08c0 // 0x1498 @0x2
0x1496…14e1 at0004 = ╱92╱ PRINT ╱ // 0x149a @0x4
0x1496…14e1 at0005 = ╱d2╱TAB╱ // 0x149b @0x5
0x1496…14e1 at0006 = ╱ed╱(╱ // 0x149c @0x6
0x1496…14e1 at0007 = ╱31╱1╱ // 0x149d @0x7
0x1496…14e1 at0008 = ╱31╱1╱ // 0x149e @0x8
0x1496…14e1 at0009 = ╱fe0000b004╱ // 0x149f @0x9
0x1496…14e1 at000e = ╱ee╱)╱ // 0x14a4 @0xe
0x1496…14e1 at000f = ╱ec╱,╱ // 0x14a5 @0xf
0x1496…14e1 at0010 = ╱cf╱CHR╱ // 0x14a6 @0x10
0x1496…14e1 at0011 = ╱ed╱(╱ // 0x14a7 @0x11
0x1496…14e1 at0012 = ╱31╱1╱ // 0x14a8 @0x12
0x1496…14e1 at0013 = ╱34╱4╱ // 0x14a9 @0x13
0x1496…14e1 at0014 = ╱fe0000e004╱ // 0x14aa @0x14
0x1496…14e1 at0019 = ╱ee╱)╱ // 0x14af @0x19
0x1496…14e1 at001a = ╱eb╱;╱ // 0x14b0 @0x1a
0x1496…14e1 at001b = ╱22╱"╱ // 0x14b1 @0x1b
0x1496…14e1 at001c = ╱4d╱M╱ // 0x14b2 @0x1c
0x1496…14e1 at001d = ╱7d╱å╱ // 0x14b3 @0x1d
0x1496…14e1 at001e = ╱6e╱n╱ // 0x14b4 @0x1e
0x1496…14e1 at001f = ╱65╱e╱ // 0x14b5 @0x1f
0x1496…14e1 at0020 = ╱64╱d╱ // 0x14b6 @0x20
0x1496…14e1 at0021 = ╱65╱e╱ // 0x14b7 @0x21
0x1496…14e1 at0022 = ╱6e╱n╱ // 0x14b8 @0x22
0x1496…14e1 at0023 = ╱73╱s╱ // 0x14b9 @0x23
0x1496…14e1 at0024 = ╱20╱…╱ // 0x14ba @0x24
0x1496…14e1 at0025 = ╱6b╱k╱ // 0x14bb @0x25
0x1496…14e1 at0026 = ╱7c╱ø╱ // 0x14bc @0x26
0x1496…14e1 at0027 = ╱62╱b╱ // 0x14bd @0x27
0x1496…14e1 at0028 = ╱22╱"╱ // 0x14be @0x28
0x1496…14e1 at0029 = ╱eb╱;╱ // 0x14bf @0x29
0x1496…14e1 at002a = ╱d2╱TAB╱ // 0x14c0 @0x2a
0x1496…14e1 at002b = ╱ed╱(╱ // 0x14c1 @0x2b
0x1496…14e1 at002c = ╱33╱3╱ // 0x14c2 @0x2c
0x1496…14e1 at002d = ╱36╱6╱ // 0x14c3 @0x2d
0x1496…14e1 at002e = ╱fe00009006╱ // 0x14c4 @0x2e
0x1496…14e1 at0033 = ╱ee╱)╱ // 0x14c9 @0x33
0x1496…14e1 at0034 = ╱eb╱;╱ // 0x14ca @0x34
0x1496…14e1 at0035 = ╱22╱"╱ // 0x14cb @0x35
0x1496…14e1 at0036 = ╱4e╱N╱ // 0x14cc @0x36
0x1496…14e1 at0037 = ╱79╱y╱ // 0x14cd @0x37
0x1496…14e1 at0038 = ╱20╱…╱ // 0x14ce @0x38
0x1496…14e1 at0039 = ╱73╱s╱ // 0x14cf @0x39
0x1496…14e1 at003a = ╱61╱a╱ // 0x14d0 @0x3a
0x1496…14e1 at003b = ╱6c╱l╱ // 0x14d1 @0x3b
0x1496…14e1 at003c = ╱64╱d╱ // 0x14d2 @0x3c
0x1496…14e1 at003d = ╱6f╱o╱ // 0x14d3 @0x3d
0x1496…14e1 at003e = ╱22╱"╱ // 0x14d4 @0x3e
0x1496…14e1 at003f = ╱eb╱;╱ // 0x14d5 @0x3f
0x1496…14e1 at0040 = ╱cf╱CHR╱ // 0x14d6 @0x40
0x1496…14e1 at0041 = ╱ed╱(╱ // 0x14d7 @0x41
0x1496…14e1 at0042 = ╱31╱1╱ // 0x14d8 @0x42
0x1496…14e1 at0043 = ╱35╱5╱ // 0x14d9 @0x43
0x1496…14e1 at0044 = ╱fe0000f004╱ // 0x14da @0x44
0x1496…14e1 at0049 = ╱ee╱)╱ // 0x14df @0x49
0x1496…14e1 at004a = EOL // 0x14e0 @0x4a
0x1496…14e1 }
0x14e1…14ed a244 2250 PRINT STREG$
0x14e1…14ed LineComalBin {
0x14e1…14ed ptr = 0xa244 // 0x14e1 @0x0
0x14e1…14ed lno = 0x08ca // 0x14e3 @0x2
0x14e1…14ed at0004 = ╱92╱ PRINT ╱ // 0x14e5 @0x4
0x14e1…14ed at0005 = ╱53╱S╱ // 0x14e6 @0x5
0x14e1…14ed at0006 = ╱54╱T╱ // 0x14e7 @0x6
0x14e1…14ed at0007 = ╱52╱R╱ // 0x14e8 @0x7
0x14e1…14ed at0008 = ╱45╱E╱ // 0x14e9 @0x8
0x14e1…14ed at0009 = ╱47╱G╱ // 0x14ea @0x9
0x14e1…14ed at000a = ╱ef╱$╱ // 0x14eb @0xa
0x14e1…14ed at000b = EOL // 0x14ec @0xb
0x14e1…14ed }
0x14ed…14f3 a24a 2260 ENDCASE
0x14ed…14f3 LineComalBin {
0x14ed…14f3 ptr = 0xa24a // 0x14ed @0x0
0x14ed…14f3 lno = 0x08d4 // 0x14ef @0x2
0x14ed…14f3 at0004 = ╱a4╱ ENDCASE ╱ // 0x14f1 @0x4
0x14ed…14f3 at0005 = EOL // 0x14f2 @0x5
0x14ed…14f3 }
0x14f3…14f9 a250 2270 ENDIF
0x14f3…14f9 LineComalBin {
0x14f3…14f9 ptr = 0xa250 // 0x14f3 @0x0
0x14f3…14f9 lno = 0x08de // 0x14f5 @0x2
0x14f3…14f9 at0004 = ╱9b╱ ENDIF ╱ // 0x14f7 @0x4
0x14f3…14f9 at0005 = EOL // 0x14f8 @0x5
0x14f3…14f9 }
0x14f9…1504 a25b 2280 IF MK=B THEN
0x14f9…1504 LineComalBin {
0x14f9…1504 ptr = 0xa25b // 0x14f9 @0x0
0x14f9…1504 lno = 0x08e8 // 0x14fb @0x2
0x14f9…1504 at0004 = ╱9c╱ IF ╱ // 0x14fd @0x4
0x14f9…1504 at0005 = ╱4d╱M╱ // 0x14fe @0x5
0x14f9…1504 at0006 = ╱4b╱K╱ // 0x14ff @0x6
0x14f9…1504 at0007 = ╱dc╱=╱ // 0x1500 @0x7
0x14f9…1504 at0008 = ╱42╱B╱ // 0x1501 @0x8
0x14f9…1504 at0009 = ╱b6╱ THEN ╱ // 0x1502 @0x9
0x14f9…1504 at000a = EOL // 0x1503 @0xa
0x14f9…1504 }
0x1504…1520 a277 2290 EXEC TUD(MKØB$,UBELØB$,E,B)
0x1504…1520 LineComalBin {
0x1504…1520 ptr = 0xa277 // 0x1504 @0x0
0x1504…1520 lno = 0x08f2 // 0x1506 @0x2
0x1504…1520 at0004 = ╱9d╱ EXEC ╱ // 0x1508 @0x4
0x1504…1520 at0005 = ╱54╱T╱ // 0x1509 @0x5
0x1504…1520 at0006 = ╱55╱U╱ // 0x150a @0x6
0x1504…1520 at0007 = ╱44╱D╱ // 0x150b @0x7
0x1504…1520 at0008 = ╱ed╱(╱ // 0x150c @0x8
0x1504…1520 at0009 = ╱4d╱M╱ // 0x150d @0x9
0x1504…1520 at000a = ╱4b╱K╱ // 0x150e @0xa
0x1504…1520 at000b = ╱5c╱Ø╱ // 0x150f @0xb
0x1504…1520 at000c = ╱42╱B╱ // 0x1510 @0xc
0x1504…1520 at000d = ╱ef╱$╱ // 0x1511 @0xd
0x1504…1520 at000e = ╱ec╱,╱ // 0x1512 @0xe
0x1504…1520 at000f = ╱55╱U╱ // 0x1513 @0xf
0x1504…1520 at0010 = ╱42╱B╱ // 0x1514 @0x10
0x1504…1520 at0011 = ╱45╱E╱ // 0x1515 @0x11
0x1504…1520 at0012 = ╱4c╱L╱ // 0x1516 @0x12
0x1504…1520 at0013 = ╱5c╱Ø╱ // 0x1517 @0x13
0x1504…1520 at0014 = ╱42╱B╱ // 0x1518 @0x14
0x1504…1520 at0015 = ╱ef╱$╱ // 0x1519 @0x15
0x1504…1520 at0016 = ╱ec╱,╱ // 0x151a @0x16
0x1504…1520 at0017 = ╱45╱E╱ // 0x151b @0x17
0x1504…1520 at0018 = ╱ec╱,╱ // 0x151c @0x18
0x1504…1520 at0019 = ╱42╱B╱ // 0x151d @0x19
0x1504…1520 at001a = ╱ee╱)╱ // 0x151e @0x1a
0x1504…1520 at001b = EOL // 0x151f @0x1b
0x1504…1520 }
0x1520…1539 a290 2300 PRINT TAB(11);UBELØB$;
0x1520…1539 LineComalBin {
0x1520…1539 ptr = 0xa290 // 0x1520 @0x0
0x1520…1539 lno = 0x08fc // 0x1522 @0x2
0x1520…1539 at0004 = ╱92╱ PRINT ╱ // 0x1524 @0x4
0x1520…1539 at0005 = ╱d2╱TAB╱ // 0x1525 @0x5
0x1520…1539 at0006 = ╱ed╱(╱ // 0x1526 @0x6
0x1520…1539 at0007 = ╱31╱1╱ // 0x1527 @0x7
0x1520…1539 at0008 = ╱31╱1╱ // 0x1528 @0x8
0x1520…1539 at0009 = ╱fe0000b004╱ // 0x1529 @0x9
0x1520…1539 at000e = ╱ee╱)╱ // 0x152e @0xe
0x1520…1539 at000f = ╱eb╱;╱ // 0x152f @0xf
0x1520…1539 at0010 = ╱55╱U╱ // 0x1530 @0x10
0x1520…1539 at0011 = ╱42╱B╱ // 0x1531 @0x11
0x1520…1539 at0012 = ╱45╱E╱ // 0x1532 @0x12
0x1520…1539 at0013 = ╱4c╱L╱ // 0x1533 @0x13
0x1520…1539 at0014 = ╱5c╱Ø╱ // 0x1534 @0x14
0x1520…1539 at0015 = ╱42╱B╱ // 0x1535 @0x15
0x1520…1539 at0016 = ╱ef╱$╱ // 0x1536 @0x16
0x1520…1539 at0017 = ╱eb╱;╱ // 0x1537 @0x17
0x1520…1539 at0018 = EOL // 0x1538 @0x18
0x1520…1539 }
0x1539…153f a296 2310 ENDIF
0x1539…153f LineComalBin {
0x1539…153f ptr = 0xa296 // 0x1539 @0x0
0x1539…153f lno = 0x0906 // 0x153b @0x2
0x1539…153f at0004 = ╱9b╱ ENDIF ╱ // 0x153d @0x4
0x1539…153f at0005 = EOL // 0x153e @0x5
0x1539…153f }
0x153f…155a a2b1 2320 EXEC TUD(SU2$,UBELØB$,B,B)
0x153f…155a LineComalBin {
0x153f…155a ptr = 0xa2b1 // 0x153f @0x0
0x153f…155a lno = 0x0910 // 0x1541 @0x2
0x153f…155a at0004 = ╱9d╱ EXEC ╱ // 0x1543 @0x4
0x153f…155a at0005 = ╱54╱T╱ // 0x1544 @0x5
0x153f…155a at0006 = ╱55╱U╱ // 0x1545 @0x6
0x153f…155a at0007 = ╱44╱D╱ // 0x1546 @0x7
0x153f…155a at0008 = ╱ed╱(╱ // 0x1547 @0x8
0x153f…155a at0009 = ╱53╱S╱ // 0x1548 @0x9
0x153f…155a at000a = ╱55╱U╱ // 0x1549 @0xa
0x153f…155a at000b = ╱32╱2╱ // 0x154a @0xb
0x153f…155a at000c = ╱ef╱$╱ // 0x154b @0xc
0x153f…155a at000d = ╱ec╱,╱ // 0x154c @0xd
0x153f…155a at000e = ╱55╱U╱ // 0x154d @0xe
0x153f…155a at000f = ╱42╱B╱ // 0x154e @0xf
0x153f…155a at0010 = ╱45╱E╱ // 0x154f @0x10
0x153f…155a at0011 = ╱4c╱L╱ // 0x1550 @0x11
0x153f…155a at0012 = ╱5c╱Ø╱ // 0x1551 @0x12
0x153f…155a at0013 = ╱42╱B╱ // 0x1552 @0x13
0x153f…155a at0014 = ╱ef╱$╱ // 0x1553 @0x14
0x153f…155a at0015 = ╱ec╱,╱ // 0x1554 @0x15
0x153f…155a at0016 = ╱42╱B╱ // 0x1555 @0x16
0x153f…155a at0017 = ╱ec╱,╱ // 0x1556 @0x17
0x153f…155a at0018 = ╱42╱B╱ // 0x1557 @0x18
0x153f…155a at0019 = ╱ee╱)╱ // 0x1558 @0x19
0x153f…155a at001a = EOL // 0x1559 @0x1a
0x153f…155a }
0x155a…15ab a302 2340 PRINT TAB(51-G*(SKRIV1)+(15-4*(SKRIV1))*(SU2$(LEN(SU2$))="-"));UBELØB$
0x155a…15ab LineComalBin {
0x155a…15ab ptr = 0xa302 // 0x155a @0x0
0x155a…15ab lno = 0x0924 // 0x155c @0x2
0x155a…15ab at0004 = ╱92╱ PRINT ╱ // 0x155e @0x4
0x155a…15ab at0005 = ╱d2╱TAB╱ // 0x155f @0x5
0x155a…15ab at0006 = ╱ed╱(╱ // 0x1560 @0x6
0x155a…15ab at0007 = ╱35╱5╱ // 0x1561 @0x7
0x155a…15ab at0008 = ╱31╱1╱ // 0x1562 @0x8
0x155a…15ab at0009 = ╱fe0000cc06╱ // 0x1563 @0x9
0x155a…15ab at000e = ╱e3╱-╱ // 0x1568 @0xe
0x155a…15ab at000f = ╱47╱G╱ // 0x1569 @0xf
0x155a…15ab at0010 = ╱e4╱*╱ // 0x156a @0x10
0x155a…15ab at0011 = ╱ed╱(╱ // 0x156b @0x11
0x155a…15ab at0012 = ╱53╱S╱ // 0x156c @0x12
0x155a…15ab at0013 = ╱4b╱K╱ // 0x156d @0x13
0x155a…15ab at0014 = ╱52╱R╱ // 0x156e @0x14
0x155a…15ab at0015 = ╱49╱I╱ // 0x156f @0x15
0x155a…15ab at0016 = ╱56╱V╱ // 0x1570 @0x16
0x155a…15ab at0017 = ╱31╱1╱ // 0x1571 @0x17
0x155a…15ab at0018 = ╱ee╱)╱ // 0x1572 @0x18
0x155a…15ab at0019 = ╱e2╱+╱ // 0x1573 @0x19
0x155a…15ab at001a = ╱ed╱(╱ // 0x1574 @0x1a
0x155a…15ab at001b = ╱31╱1╱ // 0x1575 @0x1b
0x155a…15ab at001c = ╱35╱5╱ // 0x1576 @0x1c
0x155a…15ab at001d = ╱fe0000f004╱ // 0x1577 @0x1d
0x155a…15ab at0022 = ╱e3╱-╱ // 0x157c @0x22
0x155a…15ab at0023 = ╱34╱4╱ // 0x157d @0x23
0x155a…15ab at0024 = ╱fe00008003╱ // 0x157e @0x24
0x155a…15ab at0029 = ╱e4╱*╱ // 0x1583 @0x29
0x155a…15ab at002a = ╱ed╱(╱ // 0x1584 @0x2a
0x155a…15ab at002b = ╱53╱S╱ // 0x1585 @0x2b
0x155a…15ab at002c = ╱4b╱K╱ // 0x1586 @0x2c
0x155a…15ab at002d = ╱52╱R╱ // 0x1587 @0x2d
0x155a…15ab at002e = ╱49╱I╱ // 0x1588 @0x2e
0x155a…15ab at002f = ╱56╱V╱ // 0x1589 @0x2f
0x155a…15ab at0030 = ╱31╱1╱ // 0x158a @0x30
0x155a…15ab at0031 = ╱ee╱)╱ // 0x158b @0x31
0x155a…15ab at0032 = ╱ee╱)╱ // 0x158c @0x32
0x155a…15ab at0033 = ╱e4╱*╱ // 0x158d @0x33
0x155a…15ab at0034 = ╱ed╱(╱ // 0x158e @0x34
0x155a…15ab at0035 = ╱53╱S╱ // 0x158f @0x35
0x155a…15ab at0036 = ╱55╱U╱ // 0x1590 @0x36
0x155a…15ab at0037 = ╱32╱2╱ // 0x1591 @0x37
0x155a…15ab at0038 = ╱ef╱$╱ // 0x1592 @0x38
0x155a…15ab at0039 = ╱ed╱(╱ // 0x1593 @0x39
0x155a…15ab at003a = ╱cc╱LEN╱ // 0x1594 @0x3a
0x155a…15ab at003b = ╱ed╱(╱ // 0x1595 @0x3b
0x155a…15ab at003c = ╱53╱S╱ // 0x1596 @0x3c
0x155a…15ab at003d = ╱55╱U╱ // 0x1597 @0x3d
0x155a…15ab at003e = ╱32╱2╱ // 0x1598 @0x3e
0x155a…15ab at003f = ╱ef╱$╱ // 0x1599 @0x3f
0x155a…15ab at0040 = ╱ee╱)╱ // 0x159a @0x40
0x155a…15ab at0041 = ╱ee╱)╱ // 0x159b @0x41
0x155a…15ab at0042 = ╱dc╱=╱ // 0x159c @0x42
0x155a…15ab at0043 = ╱22╱"╱ // 0x159d @0x43
0x155a…15ab at0044 = ╱2d╱-╱ // 0x159e @0x44
0x155a…15ab at0045 = ╱22╱"╱ // 0x159f @0x45
0x155a…15ab at0046 = ╱ee╱)╱ // 0x15a0 @0x46
0x155a…15ab at0047 = ╱ee╱)╱ // 0x15a1 @0x47
0x155a…15ab at0048 = ╱eb╱;╱ // 0x15a2 @0x48
0x155a…15ab at0049 = ╱55╱U╱ // 0x15a3 @0x49
0x155a…15ab at004a = ╱42╱B╱ // 0x15a4 @0x4a
0x155a…15ab at004b = ╱45╱E╱ // 0x15a5 @0x4b
0x155a…15ab at004c = ╱4c╱L╱ // 0x15a6 @0x4c
0x155a…15ab at004d = ╱5c╱Ø╱ // 0x15a7 @0x4d
0x155a…15ab at004e = ╱42╱B╱ // 0x15a8 @0x4e
0x155a…15ab at004f = ╱ef╱$╱ // 0x15a9 @0x4f
0x155a…15ab at0050 = EOL // 0x15aa @0x50
0x155a…15ab }
0x15ab…15ba a311 2350 IF SKRIV1=B THEN
0x15ab…15ba LineComalBin {
0x15ab…15ba ptr = 0xa311 // 0x15ab @0x0
0x15ab…15ba lno = 0x092e // 0x15ad @0x2
0x15ab…15ba at0004 = ╱9c╱ IF ╱ // 0x15af @0x4
0x15ab…15ba at0005 = ╱53╱S╱ // 0x15b0 @0x5
0x15ab…15ba at0006 = ╱4b╱K╱ // 0x15b1 @0x6
0x15ab…15ba at0007 = ╱52╱R╱ // 0x15b2 @0x7
0x15ab…15ba at0008 = ╱49╱I╱ // 0x15b3 @0x8
0x15ab…15ba at0009 = ╱56╱V╱ // 0x15b4 @0x9
0x15ab…15ba at000a = ╱31╱1╱ // 0x15b5 @0xa
0x15ab…15ba at000b = ╱dc╱=╱ // 0x15b6 @0xb
0x15ab…15ba at000c = ╱42╱B╱ // 0x15b7 @0xc
0x15ab…15ba at000d = ╱b6╱ THEN ╱ // 0x15b8 @0xd
0x15ab…15ba at000e = EOL // 0x15b9 @0xe
0x15ab…15ba }
0x15ba…15cc a323 2360 IF MK<>G THEN PRINT STREG$
0x15ba…15cc LineComalBin {
0x15ba…15cc ptr = 0xa323 // 0x15ba @0x0
0x15ba…15cc lno = 0x0938 // 0x15bc @0x2
0x15ba…15cc at0004 = ╱82╱ IF ╱ // 0x15be @0x4
0x15ba…15cc at0005 = ╱4d╱M╱ // 0x15bf @0x5
0x15ba…15cc at0006 = ╱4b╱K╱ // 0x15c0 @0x6
0x15ba…15cc at0007 = ╱e1╱<>╱ // 0x15c1 @0x7
0x15ba…15cc at0008 = ╱47╱G╱ // 0x15c2 @0x8
0x15ba…15cc at0009 = ╱b6╱ THEN ╱ // 0x15c3 @0x9
0x15ba…15cc at000a = ╱92╱ PRINT ╱ // 0x15c4 @0xa
0x15ba…15cc at000b = ╱53╱S╱ // 0x15c5 @0xb
0x15ba…15cc at000c = ╱54╱T╱ // 0x15c6 @0xc
0x15ba…15cc at000d = ╱52╱R╱ // 0x15c7 @0xd
0x15ba…15cc at000e = ╱45╱E╱ // 0x15c8 @0xe
0x15ba…15cc at000f = ╱47╱G╱ // 0x15c9 @0xf
0x15ba…15cc at0010 = ╱ef╱$╱ // 0x15ca @0x10
0x15ba…15cc at0011 = EOL // 0x15cb @0x11
0x15ba…15cc }
0x15cc…15d2 a329 2370 ELSE
0x15cc…15d2 LineComalBin {
0x15cc…15d2 ptr = 0xa329 // 0x15cc @0x0
0x15cc…15d2 lno = 0x0942 // 0x15ce @0x2
0x15cc…15d2 at0004 = ╱9a╱ ELSE ╱ // 0x15d0 @0x4
0x15cc…15d2 at0005 = EOL // 0x15d1 @0x5
0x15cc…15d2 }
0x15d2…15dd a334 2380 IF MK<>G THEN
0x15d2…15dd LineComalBin {
0x15d2…15dd ptr = 0xa334 // 0x15d2 @0x0
0x15d2…15dd lno = 0x094c // 0x15d4 @0x2
0x15d2…15dd at0004 = ╱9c╱ IF ╱ // 0x15d6 @0x4
0x15d2…15dd at0005 = ╱4d╱M╱ // 0x15d7 @0x5
0x15d2…15dd at0006 = ╱4b╱K╱ // 0x15d8 @0x6
0x15d2…15dd at0007 = ╱e1╱<>╱ // 0x15d9 @0x7
0x15d2…15dd at0008 = ╱47╱G╱ // 0x15da @0x8
0x15d2…15dd at0009 = ╱b6╱ THEN ╱ // 0x15db @0x9
0x15d2…15dd at000a = EOL // 0x15dc @0xa
0x15d2…15dd }
0x15dd…15e6 a33d 2381 PRINT " "
0x15dd…15e6 LineComalBin {
0x15dd…15e6 ptr = 0xa33d // 0x15dd @0x0
0x15dd…15e6 lno = 0x094d // 0x15df @0x2
0x15dd…15e6 at0004 = ╱92╱ PRINT ╱ // 0x15e1 @0x4
0x15dd…15e6 at0005 = ╱22╱"╱ // 0x15e2 @0x5
0x15dd…15e6 at0006 = ╱20╱…╱ // 0x15e3 @0x6
0x15dd…15e6 at0007 = ╱22╱"╱ // 0x15e4 @0x7
0x15dd…15e6 at0008 = EOL // 0x15e5 @0x8
0x15dd…15e6 }
0x15e6…15ef a346 2382 PRINT " "
0x15e6…15ef LineComalBin {
0x15e6…15ef ptr = 0xa346 // 0x15e6 @0x0
0x15e6…15ef lno = 0x094e // 0x15e8 @0x2
0x15e6…15ef at0004 = ╱92╱ PRINT ╱ // 0x15ea @0x4
0x15e6…15ef at0005 = ╱22╱"╱ // 0x15eb @0x5
0x15e6…15ef at0006 = ╱20╱…╱ // 0x15ec @0x6
0x15e6…15ef at0007 = ╱22╱"╱ // 0x15ed @0x7
0x15e6…15ef at0008 = EOL // 0x15ee @0x8
0x15e6…15ef }
0x15ef…15f5 a34c 2383 ENDIF
0x15ef…15f5 LineComalBin {
0x15ef…15f5 ptr = 0xa34c // 0x15ef @0x0
0x15ef…15f5 lno = 0x094f // 0x15f1 @0x2
0x15ef…15f5 at0004 = ╱9b╱ ENDIF ╱ // 0x15f3 @0x4
0x15ef…15f5 at0005 = EOL // 0x15f4 @0x5
0x15ef…15f5 }
0x15f5…15fb (73,) a352 2390 ENDIF
0x15f5…15fb LineComalBin {
0x15f5…15fb ptr = 0xa352 // 0x15f5 @0x0
0x15f5…15fb lno = 0x0956 // 0x15f7 @0x2
0x15f5…15fb at0004 = ╱9b╱ ENDIF ╱ // 0x15f9 @0x4
0x15f5…15fb at0005 = EOL // 0x15fa @0x5
0x15f5…15fb }
0x15fb…160b a362 2400 IF MK<E OR MK>G THEN
0x15fb…160b LineComalBin {
0x15fb…160b ptr = 0xa362 // 0x15fb @0x0
0x15fb…160b lno = 0x0960 // 0x15fd @0x2
0x15fb…160b at0004 = ╱9c╱ IF ╱ // 0x15ff @0x4
0x15fb…160b at0005 = ╱4d╱M╱ // 0x1600 @0x5
0x15fb…160b at0006 = ╱4b╱K╱ // 0x1601 @0x6
0x15fb…160b at0007 = ╱dd╱<╱ // 0x1602 @0x7
0x15fb…160b at0008 = ╱45╱E╱ // 0x1603 @0x8
0x15fb…160b at0009 = ╱db╱ OR ╱ // 0x1604 @0x9
0x15fb…160b at000a = ╱4d╱M╱ // 0x1605 @0xa
0x15fb…160b at000b = ╱4b╱K╱ // 0x1606 @0xb
0x15fb…160b at000c = ╱de╱>╱ // 0x1607 @0xc
0x15fb…160b at000d = ╱47╱G╱ // 0x1608 @0xd
0x15fb…160b at000e = ╱b6╱ THEN ╱ // 0x1609 @0xe
0x15fb…160b at000f = EOL // 0x160a @0xf
0x15fb…160b }
0x160b…161a a371 2410 IF SKRIV1=B THEN
0x160b…161a LineComalBin {
0x160b…161a ptr = 0xa371 // 0x160b @0x0
0x160b…161a lno = 0x096a // 0x160d @0x2
0x160b…161a at0004 = ╱9c╱ IF ╱ // 0x160f @0x4
0x160b…161a at0005 = ╱53╱S╱ // 0x1610 @0x5
0x160b…161a at0006 = ╱4b╱K╱ // 0x1611 @0x6
0x160b…161a at0007 = ╱52╱R╱ // 0x1612 @0x7
0x160b…161a at0008 = ╱49╱I╱ // 0x1613 @0x8
0x160b…161a at0009 = ╱56╱V╱ // 0x1614 @0x9
0x160b…161a at000a = ╱31╱1╱ // 0x1615 @0xa
0x160b…161a at000b = ╱dc╱=╱ // 0x1616 @0xb
0x160b…161a at000c = ╱42╱B╱ // 0x1617 @0xc
0x160b…161a at000d = ╱b6╱ THEN ╱ // 0x1618 @0xd
0x160b…161a at000e = EOL // 0x1619 @0xe
0x160b…161a }
0x161a…1624 a37b 2420 CASE MK OF
0x161a…1624 LineComalBin {
0x161a…1624 ptr = 0xa37b // 0x161a @0x0
0x161a…1624 lno = 0x0974 // 0x161c @0x2
0x161a…1624 at0004 = ╱a201╱ CASE ╱ // 0x161e @0x4
0x161a…1624 at0006 = ╱4d╱M╱ // 0x1620 @0x6
0x161a…1624 at0007 = ╱4b╱K╱ // 0x1621 @0x7
0x161a…1624 at0008 = ╱ba╱ OF ╱ // 0x1622 @0x8
0x161a…1624 at0009 = EOL // 0x1623 @0x9
0x161a…1624 }
0x1624…1672 a3c9 2430 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15)
0x1624…1672 LineComalBin {
0x1624…1672 ptr = 0xa3c9 // 0x1624 @0x0
0x1624…1672 lno = 0x097e // 0x1626 @0x2
0x1624…1672 at0004 = ╱92╱ PRINT ╱ // 0x1628 @0x4
0x1624…1672 at0005 = ╱d2╱TAB╱ // 0x1629 @0x5
0x1624…1672 at0006 = ╱ed╱(╱ // 0x162a @0x6
0x1624…1672 at0007 = ╱31╱1╱ // 0x162b @0x7
0x1624…1672 at0008 = ╱35╱5╱ // 0x162c @0x8
0x1624…1672 at0009 = ╱fe0000f004╱ // 0x162d @0x9
0x1624…1672 at000e = ╱ee╱)╱ // 0x1632 @0xe
0x1624…1672 at000f = ╱eb╱;╱ // 0x1633 @0xf
0x1624…1672 at0010 = ╱cf╱CHR╱ // 0x1634 @0x10
0x1624…1672 at0011 = ╱ed╱(╱ // 0x1635 @0x11
0x1624…1672 at0012 = ╱31╱1╱ // 0x1636 @0x12
0x1624…1672 at0013 = ╱34╱4╱ // 0x1637 @0x13
0x1624…1672 at0014 = ╱fe0000e004╱ // 0x1638 @0x14
0x1624…1672 at0019 = ╱ee╱)╱ // 0x163d @0x19
0x1624…1672 at001a = ╱eb╱;╱ // 0x163e @0x1a
0x1624…1672 at001b = ╱22╱"╱ // 0x163f @0x1b
0x1624…1672 at001c = ╱4d╱M╱ // 0x1640 @0x1c
0x1624…1672 at001d = ╱7d╱å╱ // 0x1641 @0x1d
0x1624…1672 at001e = ╱6e╱n╱ // 0x1642 @0x1e
0x1624…1672 at001f = ╱65╱e╱ // 0x1643 @0x1f
0x1624…1672 at0020 = ╱64╱d╱ // 0x1644 @0x20
0x1624…1672 at0021 = ╱65╱e╱ // 0x1645 @0x21
0x1624…1672 at0022 = ╱6e╱n╱ // 0x1646 @0x22
0x1624…1672 at0023 = ╱73╱s╱ // 0x1647 @0x23
0x1624…1672 at0024 = ╱20╱…╱ // 0x1648 @0x24
0x1624…1672 at0025 = ╱62╱b╱ // 0x1649 @0x25
0x1624…1672 at0026 = ╱65╱e╱ // 0x164a @0x26
0x1624…1672 at0027 = ╱76╱v╱ // 0x164b @0x27
0x1624…1672 at0028 = ╱2e╱.╱ // 0x164c @0x28
0x1624…1672 at0029 = ╱22╱"╱ // 0x164d @0x29
0x1624…1672 at002a = ╱eb╱;╱ // 0x164e @0x2a
0x1624…1672 at002b = ╱d2╱TAB╱ // 0x164f @0x2b
0x1624…1672 at002c = ╱ed╱(╱ // 0x1650 @0x2c
0x1624…1672 at002d = ╱33╱3╱ // 0x1651 @0x2d
0x1624…1672 at002e = ╱34╱4╱ // 0x1652 @0x2e
0x1624…1672 at002f = ╱fe00008806╱ // 0x1653 @0x2f
0x1624…1672 at0034 = ╱ee╱)╱ // 0x1658 @0x34
0x1624…1672 at0035 = ╱eb╱;╱ // 0x1659 @0x35
0x1624…1672 at0036 = ╱22╱"╱ // 0x165a @0x36
0x1624…1672 at0037 = ╱5d╱Å╱ // 0x165b @0x37
0x1624…1672 at0038 = ╱72╱r╱ // 0x165c @0x38
0x1624…1672 at0039 = ╱65╱e╱ // 0x165d @0x39
0x1624…1672 at003a = ╱74╱t╱ // 0x165e @0x3a
0x1624…1672 at003b = ╱73╱s╱ // 0x165f @0x3b
0x1624…1672 at003c = ╱20╱…╱ // 0x1660 @0x3c
0x1624…1672 at003d = ╱62╱b╱ // 0x1661 @0x3d
0x1624…1672 at003e = ╱65╱e╱ // 0x1662 @0x3e
0x1624…1672 at003f = ╱76╱v╱ // 0x1663 @0x3f
0x1624…1672 at0040 = ╱2e╱.╱ // 0x1664 @0x40
0x1624…1672 at0041 = ╱22╱"╱ // 0x1665 @0x41
0x1624…1672 at0042 = ╱eb╱;╱ // 0x1666 @0x42
0x1624…1672 at0043 = ╱cf╱CHR╱ // 0x1667 @0x43
0x1624…1672 at0044 = ╱ed╱(╱ // 0x1668 @0x44
0x1624…1672 at0045 = ╱31╱1╱ // 0x1669 @0x45
0x1624…1672 at0046 = ╱35╱5╱ // 0x166a @0x46
0x1624…1672 at0047 = ╱fe0000f004╱ // 0x166b @0x47
0x1624…1672 at004c = ╱ee╱)╱ // 0x1670 @0x4c
0x1624…1672 at004d = EOL // 0x1671 @0x4d
0x1624…1672 }
0x1672…1681 a3d8 2440 WHEN B,4
0x1672…1681 LineComalBin {
0x1672…1681 ptr = 0xa3d8 // 0x1672 @0x0
0x1672…1681 lno = 0x0988 // 0x1674 @0x2
0x1672…1681 at0004 = ╱a301╱ WHEN ╱ // 0x1676 @0x4
0x1672…1681 at0006 = ╱42╱B╱ // 0x1678 @0x6
0x1672…1681 at0007 = ╱ec╱,╱ // 0x1679 @0x7
0x1672…1681 at0008 = ╱34╱4╱ // 0x167a @0x8
0x1672…1681 at0009 = ╱fe00008003╱ // 0x167b @0x9
0x1672…1681 at000e = EOL // 0x1680 @0xe
0x1672…1681 }
0x1681…16a4 a3fb 2450 PRINT TAB(17);CHR(14);"0-30";
0x1681…16a4 LineComalBin {
0x1681…16a4 ptr = 0xa3fb // 0x1681 @0x0
0x1681…16a4 lno = 0x0992 // 0x1683 @0x2
0x1681…16a4 at0004 = ╱92╱ PRINT ╱ // 0x1685 @0x4
0x1681…16a4 at0005 = ╱d2╱TAB╱ // 0x1686 @0x5
0x1681…16a4 at0006 = ╱ed╱(╱ // 0x1687 @0x6
0x1681…16a4 at0007 = ╱31╱1╱ // 0x1688 @0x7
0x1681…16a4 at0008 = ╱37╱7╱ // 0x1689 @0x8
0x1681…16a4 at0009 = ╱fe00008805╱ // 0x168a @0x9
0x1681…16a4 at000e = ╱ee╱)╱ // 0x168f @0xe
0x1681…16a4 at000f = ╱eb╱;╱ // 0x1690 @0xf
0x1681…16a4 at0010 = ╱cf╱CHR╱ // 0x1691 @0x10
0x1681…16a4 at0011 = ╱ed╱(╱ // 0x1692 @0x11
0x1681…16a4 at0012 = ╱31╱1╱ // 0x1693 @0x12
0x1681…16a4 at0013 = ╱34╱4╱ // 0x1694 @0x13
0x1681…16a4 at0014 = ╱fe0000e004╱ // 0x1695 @0x14
0x1681…16a4 at0019 = ╱ee╱)╱ // 0x169a @0x19
0x1681…16a4 at001a = ╱eb╱;╱ // 0x169b @0x1a
0x1681…16a4 at001b = ╱22╱"╱ // 0x169c @0x1b
0x1681…16a4 at001c = ╱30╱0╱ // 0x169d @0x1c
0x1681…16a4 at001d = ╱2d╱-╱ // 0x169e @0x1d
0x1681…16a4 at001e = ╱33╱3╱ // 0x169f @0x1e
0x1681…16a4 at001f = ╱30╱0╱ // 0x16a0 @0x1f
0x1681…16a4 at0020 = ╱22╱"╱ // 0x16a1 @0x20
0x1681…16a4 at0021 = ╱eb╱;╱ // 0x16a2 @0x21
0x1681…16a4 at0022 = EOL // 0x16a3 @0x22
0x1681…16a4 }
0x16a4…16d6 a42d 2460 IF MK=B THEN PRINT TAB(25);"30-60";TAB(33);"60-90";
0x16a4…16d6 LineComalBin {
0x16a4…16d6 ptr = 0xa42d // 0x16a4 @0x0
0x16a4…16d6 lno = 0x099c // 0x16a6 @0x2
0x16a4…16d6 at0004 = ╱82╱ IF ╱ // 0x16a8 @0x4
0x16a4…16d6 at0005 = ╱4d╱M╱ // 0x16a9 @0x5
0x16a4…16d6 at0006 = ╱4b╱K╱ // 0x16aa @0x6
0x16a4…16d6 at0007 = ╱dc╱=╱ // 0x16ab @0x7
0x16a4…16d6 at0008 = ╱42╱B╱ // 0x16ac @0x8
0x16a4…16d6 at0009 = ╱b6╱ THEN ╱ // 0x16ad @0x9
0x16a4…16d6 at000a = ╱92╱ PRINT ╱ // 0x16ae @0xa
0x16a4…16d6 at000b = ╱d2╱TAB╱ // 0x16af @0xb
0x16a4…16d6 at000c = ╱ed╱(╱ // 0x16b0 @0xc
0x16a4…16d6 at000d = ╱32╱2╱ // 0x16b1 @0xd
0x16a4…16d6 at000e = ╱35╱5╱ // 0x16b2 @0xe
0x16a4…16d6 at000f = ╱fe0000c805╱ // 0x16b3 @0xf
0x16a4…16d6 at0014 = ╱ee╱)╱ // 0x16b8 @0x14
0x16a4…16d6 at0015 = ╱eb╱;╱ // 0x16b9 @0x15
0x16a4…16d6 at0016 = ╱22╱"╱ // 0x16ba @0x16
0x16a4…16d6 at0017 = ╱33╱3╱ // 0x16bb @0x17
0x16a4…16d6 at0018 = ╱30╱0╱ // 0x16bc @0x18
0x16a4…16d6 at0019 = ╱2d╱-╱ // 0x16bd @0x19
0x16a4…16d6 at001a = ╱36╱6╱ // 0x16be @0x1a
0x16a4…16d6 at001b = ╱30╱0╱ // 0x16bf @0x1b
0x16a4…16d6 at001c = ╱22╱"╱ // 0x16c0 @0x1c
0x16a4…16d6 at001d = ╱eb╱;╱ // 0x16c1 @0x1d
0x16a4…16d6 at001e = ╱d2╱TAB╱ // 0x16c2 @0x1e
0x16a4…16d6 at001f = ╱ed╱(╱ // 0x16c3 @0x1f
0x16a4…16d6 at0020 = ╱33╱3╱ // 0x16c4 @0x20
0x16a4…16d6 at0021 = ╱33╱3╱ // 0x16c5 @0x21
0x16a4…16d6 at0022 = ╱fe00008406╱ // 0x16c6 @0x22
0x16a4…16d6 at0027 = ╱ee╱)╱ // 0x16cb @0x27
0x16a4…16d6 at0028 = ╱eb╱;╱ // 0x16cc @0x28
0x16a4…16d6 at0029 = ╱22╱"╱ // 0x16cd @0x29
0x16a4…16d6 at002a = ╱36╱6╱ // 0x16ce @0x2a
0x16a4…16d6 at002b = ╱30╱0╱ // 0x16cf @0x2b
0x16a4…16d6 at002c = ╱2d╱-╱ // 0x16d0 @0x2c
0x16a4…16d6 at002d = ╱39╱9╱ // 0x16d1 @0x2d
0x16a4…16d6 at002e = ╱30╱0╱ // 0x16d2 @0x2e
0x16a4…16d6 at002f = ╱22╱"╱ // 0x16d3 @0x2f
0x16a4…16d6 at0030 = ╱eb╱;╱ // 0x16d4 @0x30
0x16a4…16d6 at0031 = EOL // 0x16d5 @0x31
0x16a4…16d6 }
0x16d6…16f9 a450 2470 PRINT TAB(41);"Ældre";CHR(15)
0x16d6…16f9 LineComalBin {
0x16d6…16f9 ptr = 0xa450 // 0x16d6 @0x0
0x16d6…16f9 lno = 0x09a6 // 0x16d8 @0x2
0x16d6…16f9 at0004 = ╱92╱ PRINT ╱ // 0x16da @0x4
0x16d6…16f9 at0005 = ╱d2╱TAB╱ // 0x16db @0x5
0x16d6…16f9 at0006 = ╱ed╱(╱ // 0x16dc @0x6
0x16d6…16f9 at0007 = ╱34╱4╱ // 0x16dd @0x7
0x16d6…16f9 at0008 = ╱31╱1╱ // 0x16de @0x8
0x16d6…16f9 at0009 = ╱fe0000a406╱ // 0x16df @0x9
0x16d6…16f9 at000e = ╱ee╱)╱ // 0x16e4 @0xe
0x16d6…16f9 at000f = ╱eb╱;╱ // 0x16e5 @0xf
0x16d6…16f9 at0010 = ╱22╱"╱ // 0x16e6 @0x10
0x16d6…16f9 at0011 = ╱5b╱Æ╱ // 0x16e7 @0x11
0x16d6…16f9 at0012 = ╱6c╱l╱ // 0x16e8 @0x12
0x16d6…16f9 at0013 = ╱64╱d╱ // 0x16e9 @0x13
0x16d6…16f9 at0014 = ╱72╱r╱ // 0x16ea @0x14
0x16d6…16f9 at0015 = ╱65╱e╱ // 0x16eb @0x15
0x16d6…16f9 at0016 = ╱22╱"╱ // 0x16ec @0x16
0x16d6…16f9 at0017 = ╱eb╱;╱ // 0x16ed @0x17
0x16d6…16f9 at0018 = ╱cf╱CHR╱ // 0x16ee @0x18
0x16d6…16f9 at0019 = ╱ed╱(╱ // 0x16ef @0x19
0x16d6…16f9 at001a = ╱31╱1╱ // 0x16f0 @0x1a
0x16d6…16f9 at001b = ╱35╱5╱ // 0x16f1 @0x1b
0x16d6…16f9 at001c = ╱fe0000f004╱ // 0x16f2 @0x1c
0x16d6…16f9 at0021 = ╱ee╱)╱ // 0x16f7 @0x21
0x16d6…16f9 at0022 = EOL // 0x16f8 @0x22
0x16d6…16f9 }
0x16f9…16ff a456 2480 ENDCASE
0x16f9…16ff LineComalBin {
0x16f9…16ff ptr = 0xa456 // 0x16f9 @0x0
0x16f9…16ff lno = 0x09b0 // 0x16fb @0x2
0x16f9…16ff at0004 = ╱a4╱ ENDCASE ╱ // 0x16fd @0x4
0x16f9…16ff at0005 = EOL // 0x16fe @0x5
0x16f9…16ff }
0x16ff…170b a462 2490 PRINT STREG$
0x16ff…170b LineComalBin {
0x16ff…170b ptr = 0xa462 // 0x16ff @0x0
0x16ff…170b lno = 0x09ba // 0x1701 @0x2
0x16ff…170b at0004 = ╱92╱ PRINT ╱ // 0x1703 @0x4
0x16ff…170b at0005 = ╱53╱S╱ // 0x1704 @0x5
0x16ff…170b at0006 = ╱54╱T╱ // 0x1705 @0x6
0x16ff…170b at0007 = ╱52╱R╱ // 0x1706 @0x7
0x16ff…170b at0008 = ╱45╱E╱ // 0x1707 @0x8
0x16ff…170b at0009 = ╱47╱G╱ // 0x1708 @0x9
0x16ff…170b at000a = ╱ef╱$╱ // 0x1709 @0xa
0x16ff…170b at000b = EOL // 0x170a @0xb
0x16ff…170b }
0x170b…1711 a468 2500 ENDIF
0x170b…1711 LineComalBin {
0x170b…1711 ptr = 0xa468 // 0x170b @0x0
0x170b…1711 lno = 0x09c4 // 0x170d @0x2
0x170b…1711 at0004 = ╱9b╱ ENDIF ╱ // 0x170f @0x4
0x170b…1711 at0005 = EOL // 0x1710 @0x5
0x170b…1711 }
0x1711…172b a482 2510 EXEC TUD(DS1$,UBEL1$,E,B)
0x1711…172b LineComalBin {
0x1711…172b ptr = 0xa482 // 0x1711 @0x0
0x1711…172b lno = 0x09ce // 0x1713 @0x2
0x1711…172b at0004 = ╱9d╱ EXEC ╱ // 0x1715 @0x4
0x1711…172b at0005 = ╱54╱T╱ // 0x1716 @0x5
0x1711…172b at0006 = ╱55╱U╱ // 0x1717 @0x6
0x1711…172b at0007 = ╱44╱D╱ // 0x1718 @0x7
0x1711…172b at0008 = ╱ed╱(╱ // 0x1719 @0x8
0x1711…172b at0009 = ╱44╱D╱ // 0x171a @0x9
0x1711…172b at000a = ╱53╱S╱ // 0x171b @0xa
0x1711…172b at000b = ╱31╱1╱ // 0x171c @0xb
0x1711…172b at000c = ╱ef╱$╱ // 0x171d @0xc
0x1711…172b at000d = ╱ec╱,╱ // 0x171e @0xd
0x1711…172b at000e = ╱55╱U╱ // 0x171f @0xe
0x1711…172b at000f = ╱42╱B╱ // 0x1720 @0xf
0x1711…172b at0010 = ╱45╱E╱ // 0x1721 @0x10
0x1711…172b at0011 = ╱4c╱L╱ // 0x1722 @0x11
0x1711…172b at0012 = ╱31╱1╱ // 0x1723 @0x12
0x1711…172b at0013 = ╱ef╱$╱ // 0x1724 @0x13
0x1711…172b at0014 = ╱ec╱,╱ // 0x1725 @0x14
0x1711…172b at0015 = ╱45╱E╱ // 0x1726 @0x15
0x1711…172b at0016 = ╱ec╱,╱ // 0x1727 @0x16
0x1711…172b at0017 = ╱42╱B╱ // 0x1728 @0x17
0x1711…172b at0018 = ╱ee╱)╱ // 0x1729 @0x18
0x1711…172b at0019 = EOL // 0x172a @0x19
0x1711…172b }
0x172b…1745 a49c 2520 EXEC TUD(DS2$,UBEL2$,E,B)
0x172b…1745 LineComalBin {
0x172b…1745 ptr = 0xa49c // 0x172b @0x0
0x172b…1745 lno = 0x09d8 // 0x172d @0x2
0x172b…1745 at0004 = ╱9d╱ EXEC ╱ // 0x172f @0x4
0x172b…1745 at0005 = ╱54╱T╱ // 0x1730 @0x5
0x172b…1745 at0006 = ╱55╱U╱ // 0x1731 @0x6
0x172b…1745 at0007 = ╱44╱D╱ // 0x1732 @0x7
0x172b…1745 at0008 = ╱ed╱(╱ // 0x1733 @0x8
0x172b…1745 at0009 = ╱44╱D╱ // 0x1734 @0x9
0x172b…1745 at000a = ╱53╱S╱ // 0x1735 @0xa
0x172b…1745 at000b = ╱32╱2╱ // 0x1736 @0xb
0x172b…1745 at000c = ╱ef╱$╱ // 0x1737 @0xc
0x172b…1745 at000d = ╱ec╱,╱ // 0x1738 @0xd
0x172b…1745 at000e = ╱55╱U╱ // 0x1739 @0xe
0x172b…1745 at000f = ╱42╱B╱ // 0x173a @0xf
0x172b…1745 at0010 = ╱45╱E╱ // 0x173b @0x10
0x172b…1745 at0011 = ╱4c╱L╱ // 0x173c @0x11
0x172b…1745 at0012 = ╱32╱2╱ // 0x173d @0x12
0x172b…1745 at0013 = ╱ef╱$╱ // 0x173e @0x13
0x172b…1745 at0014 = ╱ec╱,╱ // 0x173f @0x14
0x172b…1745 at0015 = ╱45╱E╱ // 0x1740 @0x15
0x172b…1745 at0016 = ╱ec╱,╱ // 0x1741 @0x16
0x172b…1745 at0017 = ╱42╱B╱ // 0x1742 @0x17
0x172b…1745 at0018 = ╱ee╱)╱ // 0x1743 @0x18
0x172b…1745 at0019 = EOL // 0x1744 @0x19
0x172b…1745 }
0x1745…175f a4b6 2530 EXEC TUD(DS3$,UBEL3$,E,B)
0x1745…175f LineComalBin {
0x1745…175f ptr = 0xa4b6 // 0x1745 @0x0
0x1745…175f lno = 0x09e2 // 0x1747 @0x2
0x1745…175f at0004 = ╱9d╱ EXEC ╱ // 0x1749 @0x4
0x1745…175f at0005 = ╱54╱T╱ // 0x174a @0x5
0x1745…175f at0006 = ╱55╱U╱ // 0x174b @0x6
0x1745…175f at0007 = ╱44╱D╱ // 0x174c @0x7
0x1745…175f at0008 = ╱ed╱(╱ // 0x174d @0x8
0x1745…175f at0009 = ╱44╱D╱ // 0x174e @0x9
0x1745…175f at000a = ╱53╱S╱ // 0x174f @0xa
0x1745…175f at000b = ╱33╱3╱ // 0x1750 @0xb
0x1745…175f at000c = ╱ef╱$╱ // 0x1751 @0xc
0x1745…175f at000d = ╱ec╱,╱ // 0x1752 @0xd
0x1745…175f at000e = ╱55╱U╱ // 0x1753 @0xe
0x1745…175f at000f = ╱42╱B╱ // 0x1754 @0xf
0x1745…175f at0010 = ╱45╱E╱ // 0x1755 @0x10
0x1745…175f at0011 = ╱4c╱L╱ // 0x1756 @0x11
0x1745…175f at0012 = ╱33╱3╱ // 0x1757 @0x12
0x1745…175f at0013 = ╱ef╱$╱ // 0x1758 @0x13
0x1745…175f at0014 = ╱ec╱,╱ // 0x1759 @0x14
0x1745…175f at0015 = ╱45╱E╱ // 0x175a @0x15
0x1745…175f at0016 = ╱ec╱,╱ // 0x175b @0x16
0x1745…175f at0017 = ╱42╱B╱ // 0x175c @0x17
0x1745…175f at0018 = ╱ee╱)╱ // 0x175d @0x18
0x1745…175f at0019 = EOL // 0x175e @0x19
0x1745…175f }
0x175f…1779 a4d0 2540 EXEC TUD(DS4$,UBEL4$,E,B)
0x175f…1779 LineComalBin {
0x175f…1779 ptr = 0xa4d0 // 0x175f @0x0
0x175f…1779 lno = 0x09ec // 0x1761 @0x2
0x175f…1779 at0004 = ╱9d╱ EXEC ╱ // 0x1763 @0x4
0x175f…1779 at0005 = ╱54╱T╱ // 0x1764 @0x5
0x175f…1779 at0006 = ╱55╱U╱ // 0x1765 @0x6
0x175f…1779 at0007 = ╱44╱D╱ // 0x1766 @0x7
0x175f…1779 at0008 = ╱ed╱(╱ // 0x1767 @0x8
0x175f…1779 at0009 = ╱44╱D╱ // 0x1768 @0x9
0x175f…1779 at000a = ╱53╱S╱ // 0x1769 @0xa
0x175f…1779 at000b = ╱34╱4╱ // 0x176a @0xb
0x175f…1779 at000c = ╱ef╱$╱ // 0x176b @0xc
0x175f…1779 at000d = ╱ec╱,╱ // 0x176c @0xd
0x175f…1779 at000e = ╱55╱U╱ // 0x176d @0xe
0x175f…1779 at000f = ╱42╱B╱ // 0x176e @0xf
0x175f…1779 at0010 = ╱45╱E╱ // 0x176f @0x10
0x175f…1779 at0011 = ╱4c╱L╱ // 0x1770 @0x11
0x175f…1779 at0012 = ╱34╱4╱ // 0x1771 @0x12
0x175f…1779 at0013 = ╱ef╱$╱ // 0x1772 @0x13
0x175f…1779 at0014 = ╱ec╱,╱ // 0x1773 @0x14
0x175f…1779 at0015 = ╱45╱E╱ // 0x1774 @0x15
0x175f…1779 at0016 = ╱ec╱,╱ // 0x1775 @0x16
0x175f…1779 at0017 = ╱42╱B╱ // 0x1776 @0x17
0x175f…1779 at0018 = ╱ee╱)╱ // 0x1777 @0x18
0x175f…1779 at0019 = EOL // 0x1778 @0x19
0x175f…1779 }
0x1779…1791 a4e8 2550 PRINT TAB(11);UBEL1$;
0x1779…1791 LineComalBin {
0x1779…1791 ptr = 0xa4e8 // 0x1779 @0x0
0x1779…1791 lno = 0x09f6 // 0x177b @0x2
0x1779…1791 at0004 = ╱92╱ PRINT ╱ // 0x177d @0x4
0x1779…1791 at0005 = ╱d2╱TAB╱ // 0x177e @0x5
0x1779…1791 at0006 = ╱ed╱(╱ // 0x177f @0x6
0x1779…1791 at0007 = ╱31╱1╱ // 0x1780 @0x7
0x1779…1791 at0008 = ╱31╱1╱ // 0x1781 @0x8
0x1779…1791 at0009 = ╱fe0000b004╱ // 0x1782 @0x9
0x1779…1791 at000e = ╱ee╱)╱ // 0x1787 @0xe
0x1779…1791 at000f = ╱eb╱;╱ // 0x1788 @0xf
0x1779…1791 at0010 = ╱55╱U╱ // 0x1789 @0x10
0x1779…1791 at0011 = ╱42╱B╱ // 0x178a @0x11
0x1779…1791 at0012 = ╱45╱E╱ // 0x178b @0x12
0x1779…1791 at0013 = ╱4c╱L╱ // 0x178c @0x13
0x1779…1791 at0014 = ╱31╱1╱ // 0x178d @0x14
0x1779…1791 at0015 = ╱ef╱$╱ // 0x178e @0x15
0x1779…1791 at0016 = ╱eb╱;╱ // 0x178f @0x16
0x1779…1791 at0017 = EOL // 0x1790 @0x17
0x1779…1791 }
0x1791…17c6 a51d 2560 IF MK<>4 THEN PRINT TAB(27);UBEL2$;TAB(44);UBEL3$;
0x1791…17c6 LineComalBin {
0x1791…17c6 ptr = 0xa51d // 0x1791 @0x0
0x1791…17c6 lno = 0x0a00 // 0x1793 @0x2
0x1791…17c6 at0004 = ╱82╱ IF ╱ // 0x1795 @0x4
0x1791…17c6 at0005 = ╱4d╱M╱ // 0x1796 @0x5
0x1791…17c6 at0006 = ╱4b╱K╱ // 0x1797 @0x6
0x1791…17c6 at0007 = ╱e1╱<>╱ // 0x1798 @0x7
0x1791…17c6 at0008 = ╱34╱4╱ // 0x1799 @0x8
0x1791…17c6 at0009 = ╱fe00008003╱ // 0x179a @0x9
0x1791…17c6 at000e = ╱b6╱ THEN ╱ // 0x179f @0xe
0x1791…17c6 at000f = ╱92╱ PRINT ╱ // 0x17a0 @0xf
0x1791…17c6 at0010 = ╱d2╱TAB╱ // 0x17a1 @0x10
0x1791…17c6 at0011 = ╱ed╱(╱ // 0x17a2 @0x11
0x1791…17c6 at0012 = ╱32╱2╱ // 0x17a3 @0x12
0x1791…17c6 at0013 = ╱37╱7╱ // 0x17a4 @0x13
0x1791…17c6 at0014 = ╱fe0000d805╱ // 0x17a5 @0x14
0x1791…17c6 at0019 = ╱ee╱)╱ // 0x17aa @0x19
0x1791…17c6 at001a = ╱eb╱;╱ // 0x17ab @0x1a
0x1791…17c6 at001b = ╱55╱U╱ // 0x17ac @0x1b
0x1791…17c6 at001c = ╱42╱B╱ // 0x17ad @0x1c
0x1791…17c6 at001d = ╱45╱E╱ // 0x17ae @0x1d
0x1791…17c6 at001e = ╱4c╱L╱ // 0x17af @0x1e
0x1791…17c6 at001f = ╱32╱2╱ // 0x17b0 @0x1f
0x1791…17c6 at0020 = ╱ef╱$╱ // 0x17b1 @0x20
0x1791…17c6 at0021 = ╱eb╱;╱ // 0x17b2 @0x21
0x1791…17c6 at0022 = ╱d2╱TAB╱ // 0x17b3 @0x22
0x1791…17c6 at0023 = ╱ed╱(╱ // 0x17b4 @0x23
0x1791…17c6 at0024 = ╱34╱4╱ // 0x17b5 @0x24
0x1791…17c6 at0025 = ╱34╱4╱ // 0x17b6 @0x25
0x1791…17c6 at0026 = ╱fe0000b006╱ // 0x17b7 @0x26
0x1791…17c6 at002b = ╱ee╱)╱ // 0x17bc @0x2b
0x1791…17c6 at002c = ╱eb╱;╱ // 0x17bd @0x2c
0x1791…17c6 at002d = ╱55╱U╱ // 0x17be @0x2d
0x1791…17c6 at002e = ╱42╱B╱ // 0x17bf @0x2e
0x1791…17c6 at002f = ╱45╱E╱ // 0x17c0 @0x2f
0x1791…17c6 at0030 = ╱4c╱L╱ // 0x17c1 @0x30
0x1791…17c6 at0031 = ╱33╱3╱ // 0x17c2 @0x31
0x1791…17c6 at0032 = ╱ef╱$╱ // 0x17c3 @0x32
0x1791…17c6 at0033 = ╱eb╱;╱ // 0x17c4 @0x33
0x1791…17c6 at0034 = EOL // 0x17c5 @0x34
0x1791…17c6 }
0x17c6…17dd a534 2570 PRINT TAB(60);UBEL4$
0x17c6…17dd LineComalBin {
0x17c6…17dd ptr = 0xa534 // 0x17c6 @0x0
0x17c6…17dd lno = 0x0a0a // 0x17c8 @0x2
0x17c6…17dd at0004 = ╱92╱ PRINT ╱ // 0x17ca @0x4
0x17c6…17dd at0005 = ╱d2╱TAB╱ // 0x17cb @0x5
0x17c6…17dd at0006 = ╱ed╱(╱ // 0x17cc @0x6
0x17c6…17dd at0007 = ╱36╱6╱ // 0x17cd @0x7
0x17c6…17dd at0008 = ╱30╱0╱ // 0x17ce @0x8
0x17c6…17dd at0009 = ╱fe0000f006╱ // 0x17cf @0x9
0x17c6…17dd at000e = ╱ee╱)╱ // 0x17d4 @0xe
0x17c6…17dd at000f = ╱eb╱;╱ // 0x17d5 @0xf
0x17c6…17dd at0010 = ╱55╱U╱ // 0x17d6 @0x10
0x17c6…17dd at0011 = ╱42╱B╱ // 0x17d7 @0x11
0x17c6…17dd at0012 = ╱45╱E╱ // 0x17d8 @0x12
0x17c6…17dd at0013 = ╱4c╱L╱ // 0x17d9 @0x13
0x17c6…17dd at0014 = ╱34╱4╱ // 0x17da @0x14
0x17c6…17dd at0015 = ╱ef╱$╱ // 0x17db @0x15
0x17c6…17dd at0016 = EOL // 0x17dc @0x16
0x17c6…17dd }
0x17dd…17e3 a53a 2580 ENDIF
0x17dd…17e3 LineComalBin {
0x17dd…17e3 ptr = 0xa53a // 0x17dd @0x0
0x17dd…17e3 lno = 0x0a14 // 0x17df @0x2
0x17dd…17e3 at0004 = ╱9b╱ ENDIF ╱ // 0x17e1 @0x4
0x17dd…17e3 at0005 = EOL // 0x17e2 @0x5
0x17dd…17e3 }
0x17e3…17fc a553 2590 IF SKRIV1=B AND MK<>E AND MK<>G THEN
0x17e3…17fc LineComalBin {
0x17e3…17fc ptr = 0xa553 // 0x17e3 @0x0
0x17e3…17fc lno = 0x0a1e // 0x17e5 @0x2
0x17e3…17fc at0004 = ╱9c╱ IF ╱ // 0x17e7 @0x4
0x17e3…17fc at0005 = ╱53╱S╱ // 0x17e8 @0x5
0x17e3…17fc at0006 = ╱4b╱K╱ // 0x17e9 @0x6
0x17e3…17fc at0007 = ╱52╱R╱ // 0x17ea @0x7
0x17e3…17fc at0008 = ╱49╱I╱ // 0x17eb @0x8
0x17e3…17fc at0009 = ╱56╱V╱ // 0x17ec @0x9
0x17e3…17fc at000a = ╱31╱1╱ // 0x17ed @0xa
0x17e3…17fc at000b = ╱dc╱=╱ // 0x17ee @0xb
0x17e3…17fc at000c = ╱42╱B╱ // 0x17ef @0xc
0x17e3…17fc at000d = ╱da╱ AND ╱ // 0x17f0 @0xd
0x17e3…17fc at000e = ╱4d╱M╱ // 0x17f1 @0xe
0x17e3…17fc at000f = ╱4b╱K╱ // 0x17f2 @0xf
0x17e3…17fc at0010 = ╱e1╱<>╱ // 0x17f3 @0x10
0x17e3…17fc at0011 = ╱45╱E╱ // 0x17f4 @0x11
0x17e3…17fc at0012 = ╱da╱ AND ╱ // 0x17f5 @0x12
0x17e3…17fc at0013 = ╱4d╱M╱ // 0x17f6 @0x13
0x17e3…17fc at0014 = ╱4b╱K╱ // 0x17f7 @0x14
0x17e3…17fc at0015 = ╱e1╱<>╱ // 0x17f8 @0x15
0x17e3…17fc at0016 = ╱47╱G╱ // 0x17f9 @0x16
0x17e3…17fc at0017 = ╱b6╱ THEN ╱ // 0x17fa @0x17
0x17e3…17fc at0018 = EOL // 0x17fb @0x18
0x17e3…17fc }
0x17fc…1808 a55f 2600 PRINT STREG$
0x17fc…1808 LineComalBin {
0x17fc…1808 ptr = 0xa55f // 0x17fc @0x0
0x17fc…1808 lno = 0x0a28 // 0x17fe @0x2
0x17fc…1808 at0004 = ╱92╱ PRINT ╱ // 0x1800 @0x4
0x17fc…1808 at0005 = ╱53╱S╱ // 0x1801 @0x5
0x17fc…1808 at0006 = ╱54╱T╱ // 0x1802 @0x6
0x17fc…1808 at0007 = ╱52╱R╱ // 0x1803 @0x7
0x17fc…1808 at0008 = ╱45╱E╱ // 0x1804 @0x8
0x17fc…1808 at0009 = ╱47╱G╱ // 0x1805 @0x9
0x17fc…1808 at000a = ╱ef╱$╱ // 0x1806 @0xa
0x17fc…1808 at000b = EOL // 0x1807 @0xb
0x17fc…1808 }
0x1808…1811 a568 2610 PRINT " "
0x1808…1811 LineComalBin {
0x1808…1811 ptr = 0xa568 // 0x1808 @0x0
0x1808…1811 lno = 0x0a32 // 0x180a @0x2
0x1808…1811 at0004 = ╱92╱ PRINT ╱ // 0x180c @0x4
0x1808…1811 at0005 = ╱22╱"╱ // 0x180d @0x5
0x1808…1811 at0006 = ╱20╱…╱ // 0x180e @0x6
0x1808…1811 at0007 = ╱22╱"╱ // 0x180f @0x7
0x1808…1811 at0008 = EOL // 0x1810 @0x8
0x1808…1811 }
0x1811…181a a571 2620 PRINT " "
0x1811…181a LineComalBin {
0x1811…181a ptr = 0xa571 // 0x1811 @0x0
0x1811…181a lno = 0x0a3c // 0x1813 @0x2
0x1811…181a at0004 = ╱92╱ PRINT ╱ // 0x1815 @0x4
0x1811…181a at0005 = ╱22╱"╱ // 0x1816 @0x5
0x1811…181a at0006 = ╱20╱…╱ // 0x1817 @0x6
0x1811…181a at0007 = ╱22╱"╱ // 0x1818 @0x7
0x1811…181a at0008 = EOL // 0x1819 @0x8
0x1811…181a }
0x181a…1820 a577 2630 ENDIF
0x181a…1820 LineComalBin {
0x181a…1820 ptr = 0xa577 // 0x181a @0x0
0x181a…1820 lno = 0x0a46 // 0x181c @0x2
0x181a…1820 at0004 = ╱9b╱ ENDIF ╱ // 0x181e @0x4
0x181a…1820 at0005 = EOL // 0x181f @0x5
0x181a…1820 }
0x1820…1838 a58f 2640 IF MK=E AND SKRIV1=E THEN PRINT " "
0x1820…1838 LineComalBin {
0x1820…1838 ptr = 0xa58f // 0x1820 @0x0
0x1820…1838 lno = 0x0a50 // 0x1822 @0x2
0x1820…1838 at0004 = ╱82╱ IF ╱ // 0x1824 @0x4
0x1820…1838 at0005 = ╱4d╱M╱ // 0x1825 @0x5
0x1820…1838 at0006 = ╱4b╱K╱ // 0x1826 @0x6
0x1820…1838 at0007 = ╱dc╱=╱ // 0x1827 @0x7
0x1820…1838 at0008 = ╱45╱E╱ // 0x1828 @0x8
0x1820…1838 at0009 = ╱da╱ AND ╱ // 0x1829 @0x9
0x1820…1838 at000a = ╱53╱S╱ // 0x182a @0xa
0x1820…1838 at000b = ╱4b╱K╱ // 0x182b @0xb
0x1820…1838 at000c = ╱52╱R╱ // 0x182c @0xc
0x1820…1838 at000d = ╱49╱I╱ // 0x182d @0xd
0x1820…1838 at000e = ╱56╱V╱ // 0x182e @0xe
0x1820…1838 at000f = ╱31╱1╱ // 0x182f @0xf
0x1820…1838 at0010 = ╱dc╱=╱ // 0x1830 @0x10
0x1820…1838 at0011 = ╱45╱E╱ // 0x1831 @0x11
0x1820…1838 at0012 = ╱b6╱ THEN ╱ // 0x1832 @0x12
0x1820…1838 at0013 = ╱92╱ PRINT ╱ // 0x1833 @0x13
0x1820…1838 at0014 = ╱22╱"╱ // 0x1834 @0x14
0x1820…1838 at0015 = ╱20╱…╱ // 0x1835 @0x15
0x1820…1838 at0016 = ╱22╱"╱ // 0x1836 @0x16
0x1820…1838 at0017 = EOL // 0x1837 @0x17
0x1820…1838 }
0x1838…187b a5d2 2650 IF MK=E OR (SKRIV1=E AND MK<>G) THEN EXEC LINIER(LNR,29-5*(SKRIV1),LNR)
0x1838…187b LineComalBin {
0x1838…187b ptr = 0xa5d2 // 0x1838 @0x0
0x1838…187b lno = 0x0a5a // 0x183a @0x2
0x1838…187b at0004 = ╱82╱ IF ╱ // 0x183c @0x4
0x1838…187b at0005 = ╱4d╱M╱ // 0x183d @0x5
0x1838…187b at0006 = ╱4b╱K╱ // 0x183e @0x6
0x1838…187b at0007 = ╱dc╱=╱ // 0x183f @0x7
0x1838…187b at0008 = ╱45╱E╱ // 0x1840 @0x8
0x1838…187b at0009 = ╱db╱ OR ╱ // 0x1841 @0x9
0x1838…187b at000a = ╱ed╱(╱ // 0x1842 @0xa
0x1838…187b at000b = ╱53╱S╱ // 0x1843 @0xb
0x1838…187b at000c = ╱4b╱K╱ // 0x1844 @0xc
0x1838…187b at000d = ╱52╱R╱ // 0x1845 @0xd
0x1838…187b at000e = ╱49╱I╱ // 0x1846 @0xe
0x1838…187b at000f = ╱56╱V╱ // 0x1847 @0xf
0x1838…187b at0010 = ╱31╱1╱ // 0x1848 @0x10
0x1838…187b at0011 = ╱dc╱=╱ // 0x1849 @0x11
0x1838…187b at0012 = ╱45╱E╱ // 0x184a @0x12
0x1838…187b at0013 = ╱da╱ AND ╱ // 0x184b @0x13
0x1838…187b at0014 = ╱4d╱M╱ // 0x184c @0x14
0x1838…187b at0015 = ╱4b╱K╱ // 0x184d @0x15
0x1838…187b at0016 = ╱e1╱<>╱ // 0x184e @0x16
0x1838…187b at0017 = ╱47╱G╱ // 0x184f @0x17
0x1838…187b at0018 = ╱ee╱)╱ // 0x1850 @0x18
0x1838…187b at0019 = ╱b6╱ THEN ╱ // 0x1851 @0x19
0x1838…187b at001a = ╱9d╱ EXEC ╱ // 0x1852 @0x1a
0x1838…187b at001b = ╱4c╱L╱ // 0x1853 @0x1b
0x1838…187b at001c = ╱49╱I╱ // 0x1854 @0x1c
0x1838…187b at001d = ╱4e╱N╱ // 0x1855 @0x1d
0x1838…187b at001e = ╱49╱I╱ // 0x1856 @0x1e
0x1838…187b at001f = ╱45╱E╱ // 0x1857 @0x1f
0x1838…187b at0020 = ╱52╱R╱ // 0x1858 @0x20
0x1838…187b at0021 = ╱ed╱(╱ // 0x1859 @0x21
0x1838…187b at0022 = ╱4c╱L╱ // 0x185a @0x22
0x1838…187b at0023 = ╱4e╱N╱ // 0x185b @0x23
0x1838…187b at0024 = ╱52╱R╱ // 0x185c @0x24
0x1838…187b at0025 = ╱ec╱,╱ // 0x185d @0x25
0x1838…187b at0026 = ╱32╱2╱ // 0x185e @0x26
0x1838…187b at0027 = ╱39╱9╱ // 0x185f @0x27
0x1838…187b at0028 = ╱fe0000e805╱ // 0x1860 @0x28
0x1838…187b at002d = ╱e3╱-╱ // 0x1865 @0x2d
0x1838…187b at002e = ╱35╱5╱ // 0x1866 @0x2e
0x1838…187b at002f = ╱fe0000a003╱ // 0x1867 @0x2f
0x1838…187b at0034 = ╱e4╱*╱ // 0x186c @0x34
0x1838…187b at0035 = ╱ed╱(╱ // 0x186d @0x35
0x1838…187b at0036 = ╱53╱S╱ // 0x186e @0x36
0x1838…187b at0037 = ╱4b╱K╱ // 0x186f @0x37
0x1838…187b at0038 = ╱52╱R╱ // 0x1870 @0x38
0x1838…187b at0039 = ╱49╱I╱ // 0x1871 @0x39
0x1838…187b at003a = ╱56╱V╱ // 0x1872 @0x3a
0x1838…187b at003b = ╱31╱1╱ // 0x1873 @0x3b
0x1838…187b at003c = ╱ee╱)╱ // 0x1874 @0x3c
0x1838…187b at003d = ╱ec╱,╱ // 0x1875 @0x3d
0x1838…187b at003e = ╱4c╱L╱ // 0x1876 @0x3e
0x1838…187b at003f = ╱4e╱N╱ // 0x1877 @0x3f
0x1838…187b at0040 = ╱52╱R╱ // 0x1878 @0x40
0x1838…187b at0041 = ╱ee╱)╱ // 0x1879 @0x41
0x1838…187b at0042 = EOL // 0x187a @0x42
0x1838…187b }
0x187b…1881 a5d8 2660 ENDPROC
0x187b…1881 LineComalBin {
0x187b…1881 ptr = 0xa5d8 // 0x187b @0x0
0x187b…1881 lno = 0x0a64 // 0x187d @0x2
0x187b…1881 at0004 = ╱9f╱ ENDPROC ╱ // 0x187f @0x4
0x187b…1881 at0005 = EOL // 0x1880 @0x5
0x187b…1881 }
0x1881…188f a5e6 2670 PROC STARTBIL
0x1881…188f LineComalBin {
0x1881…188f ptr = 0xa5e6 // 0x1881 @0x0
0x1881…188f lno = 0x0a6e // 0x1883 @0x2
0x1881…188f at0004 = ╱9e╱ PROC ╱ // 0x1885 @0x4
0x1881…188f at0005 = ╱53╱S╱ // 0x1886 @0x5
0x1881…188f at0006 = ╱54╱T╱ // 0x1887 @0x6
0x1881…188f at0007 = ╱41╱A╱ // 0x1888 @0x7
0x1881…188f at0008 = ╱52╱R╱ // 0x1889 @0x8
0x1881…188f at0009 = ╱54╱T╱ // 0x188a @0x9
0x1881…188f at000a = ╱42╱B╱ // 0x188b @0xa
0x1881…188f at000b = ╱49╱I╱ // 0x188c @0xb
0x1881…188f at000c = ╱4c╱L╱ // 0x188d @0xc
0x1881…188f at000d = EOL // 0x188e @0xd
0x1881…188f }
0x188f…1895 a5ec 2680 REPEAT
0x188f…1895 LineComalBin {
0x188f…1895 ptr = 0xa5ec // 0x188f @0x0
0x188f…1895 lno = 0x0a78 // 0x1891 @0x2
0x188f…1895 at0004 = ╱97╱ REPEAT ╱ // 0x1893 @0x4
0x188f…1895 at0005 = EOL // 0x1894 @0x5
0x188f…1895 }
0x1895…189c a5f3 2690 OUTPUT T
0x1895…189c LineComalBin {
0x1895…189c ptr = 0xa5f3 // 0x1895 @0x0
0x1895…189c lno = 0x0a82 // 0x1897 @0x2
0x1895…189c at0004 = ╱a5╱ OUTPUT ╱ // 0x1899 @0x4
0x1895…189c at0005 = ╱54╱T╱ // 0x189a @0x5
0x1895…189c at0006 = EOL // 0x189b @0x6
0x1895…189c }
0x189c…18a2 a5f9 2700 CLEAR
0x189c…18a2 LineComalBin {
0x189c…18a2 ptr = 0xa5f9 // 0x189c @0x0
0x189c…18a2 lno = 0x0a8c // 0x189e @0x2
0x189c…18a2 at0004 = ╱a0╱ CLEAR ╱ // 0x18a0 @0x4
0x189c…18a2 at0005 = EOL // 0x18a1 @0x5
0x189c…18a2 }
0x18a2…18ba a611 2710 EXEC OVERSKRIFT(0)
0x18a2…18ba LineComalBin {
0x18a2…18ba ptr = 0xa611 // 0x18a2 @0x0
0x18a2…18ba lno = 0x0a96 // 0x18a4 @0x2
0x18a2…18ba at0004 = ╱9d╱ EXEC ╱ // 0x18a6 @0x4
0x18a2…18ba at0005 = ╱4f╱O╱ // 0x18a7 @0x5
0x18a2…18ba at0006 = ╱56╱V╱ // 0x18a8 @0x6
0x18a2…18ba at0007 = ╱45╱E╱ // 0x18a9 @0x7
0x18a2…18ba at0008 = ╱52╱R╱ // 0x18aa @0x8
0x18a2…18ba at0009 = ╱53╱S╱ // 0x18ab @0x9
0x18a2…18ba at000a = ╱4b╱K╱ // 0x18ac @0xa
0x18a2…18ba at000b = ╱52╱R╱ // 0x18ad @0xb
0x18a2…18ba at000c = ╱49╱I╱ // 0x18ae @0xc
0x18a2…18ba at000d = ╱46╱F╱ // 0x18af @0xd
0x18a2…18ba at000e = ╱54╱T╱ // 0x18b0 @0xe
0x18a2…18ba at000f = ╱ed╱(╱ // 0x18b1 @0xf
0x18a2…18ba at0010 = ╱30╱0╱ // 0x18b2 @0x10
0x18a2…18ba at0011 = ╱fe00000000╱ // 0x18b3 @0x11
0x18a2…18ba at0016 = ╱ee╱)╱ // 0x18b8 @0x16
0x18a2…18ba at0017 = EOL // 0x18b9 @0x17
0x18a2…18ba }
0x18ba…18c0 a617 2720 REPEAT
0x18ba…18c0 LineComalBin {
0x18ba…18c0 ptr = 0xa617 // 0x18ba @0x0
0x18ba…18c0 lno = 0x0aa0 // 0x18bc @0x2
0x18ba…18c0 at0004 = ╱97╱ REPEAT ╱ // 0x18be @0x4
0x18ba…18c0 at0005 = EOL // 0x18bf @0x5
0x18ba…18c0 }
0x18c0…18fd a654 2730 EXEC INDPUT1(4,3,-1,100000,LTX$(1))
0x18c0…18fd LineComalBin {
0x18c0…18fd ptr = 0xa654 // 0x18c0 @0x0
0x18c0…18fd lno = 0x0aaa // 0x18c2 @0x2
0x18c0…18fd at0004 = ╱9d╱ EXEC ╱ // 0x18c4 @0x4
0x18c0…18fd at0005 = ╱49╱I╱ // 0x18c5 @0x5
0x18c0…18fd at0006 = ╱4e╱N╱ // 0x18c6 @0x6
0x18c0…18fd at0007 = ╱44╱D╱ // 0x18c7 @0x7
0x18c0…18fd at0008 = ╱50╱P╱ // 0x18c8 @0x8
0x18c0…18fd at0009 = ╱55╱U╱ // 0x18c9 @0x9
0x18c0…18fd at000a = ╱54╱T╱ // 0x18ca @0xa
0x18c0…18fd at000b = ╱31╱1╱ // 0x18cb @0xb
0x18c0…18fd at000c = ╱ed╱(╱ // 0x18cc @0xc
0x18c0…18fd at000d = ╱34╱4╱ // 0x18cd @0xd
0x18c0…18fd at000e = ╱fe00008003╱ // 0x18ce @0xe
0x18c0…18fd at0013 = ╱ec╱,╱ // 0x18d3 @0x13
0x18c0…18fd at0014 = ╱33╱3╱ // 0x18d4 @0x14
0x18c0…18fd at0015 = ╱fe0000c002╱ // 0x18d5 @0x15
0x18c0…18fd at001a = ╱ec╱,╱ // 0x18da @0x1a
0x18c0…18fd at001b = ╱e9╱-╱ // 0x18db @0x1b
0x18c0…18fd at001c = ╱31╱1╱ // 0x18dc @0x1c
0x18c0…18fd at001d = ╱fe00008001╱ // 0x18dd @0x1d
0x18c0…18fd at0022 = ╱ec╱,╱ // 0x18e2 @0x22
0x18c0…18fd at0023 = ╱31╱1╱ // 0x18e3 @0x23
0x18c0…18fd at0024 = ╱30╱0╱ // 0x18e4 @0x24
0x18c0…18fd at0025 = ╱30╱0╱ // 0x18e5 @0x25
0x18c0…18fd at0026 = ╱30╱0╱ // 0x18e6 @0x26
0x18c0…18fd at0027 = ╱30╱0╱ // 0x18e7 @0x27
0x18c0…18fd at0028 = ╱30╱0╱ // 0x18e8 @0x28
0x18c0…18fd at0029 = ╱fe0050c311╱ // 0x18e9 @0x29
0x18c0…18fd at002e = ╱ec╱,╱ // 0x18ee @0x2e
0x18c0…18fd at002f = ╱4c╱L╱ // 0x18ef @0x2f
0x18c0…18fd at0030 = ╱54╱T╱ // 0x18f0 @0x30
0x18c0…18fd at0031 = ╱58╱X╱ // 0x18f1 @0x31
0x18c0…18fd at0032 = ╱ef╱$╱ // 0x18f2 @0x32
0x18c0…18fd at0033 = ╱ed╱(╱ // 0x18f3 @0x33
0x18c0…18fd at0034 = ╱31╱1╱ // 0x18f4 @0x34
0x18c0…18fd at0035 = ╱fe00008001╱ // 0x18f5 @0x35
0x18c0…18fd at003a = ╱ee╱)╱ // 0x18fa @0x3a
0x18c0…18fd at003b = ╱ee╱)╱ // 0x18fb @0x3b
0x18c0…18fd at003c = EOL // 0x18fc @0x3c
0x18c0…18fd }
0x18fd…1922 a679 2740 UNTIL P=B OR (P>9999 AND P<100000)
0x18fd…1922 LineComalBin {
0x18fd…1922 ptr = 0xa679 // 0x18fd @0x0
0x18fd…1922 lno = 0x0ab4 // 0x18ff @0x2
0x18fd…1922 at0004 = ╱98╱ UNTIL ╱ // 0x1901 @0x4
0x18fd…1922 at0005 = ╱50╱P╱ // 0x1902 @0x5
0x18fd…1922 at0006 = ╱dc╱=╱ // 0x1903 @0x6
0x18fd…1922 at0007 = ╱42╱B╱ // 0x1904 @0x7
0x18fd…1922 at0008 = ╱db╱ OR ╱ // 0x1905 @0x8
0x18fd…1922 at0009 = ╱ed╱(╱ // 0x1906 @0x9
0x18fd…1922 at000a = ╱50╱P╱ // 0x1907 @0xa
0x18fd…1922 at000b = ╱de╱>╱ // 0x1908 @0xb
0x18fd…1922 at000c = ╱39╱9╱ // 0x1909 @0xc
0x18fd…1922 at000d = ╱39╱9╱ // 0x190a @0xd
0x18fd…1922 at000e = ╱39╱9╱ // 0x190b @0xe
0x18fd…1922 at000f = ╱39╱9╱ // 0x190c @0xf
0x18fd…1922 at0010 = ╱fe003c9c0e╱ // 0x190d @0x10
0x18fd…1922 at0015 = ╱da╱ AND ╱ // 0x1912 @0x15
0x18fd…1922 at0016 = ╱50╱P╱ // 0x1913 @0x16
0x18fd…1922 at0017 = ╱dd╱<╱ // 0x1914 @0x17
0x18fd…1922 at0018 = ╱31╱1╱ // 0x1915 @0x18
0x18fd…1922 at0019 = ╱30╱0╱ // 0x1916 @0x19
0x18fd…1922 at001a = ╱30╱0╱ // 0x1917 @0x1a
0x18fd…1922 at001b = ╱30╱0╱ // 0x1918 @0x1b
0x18fd…1922 at001c = ╱30╱0╱ // 0x1919 @0x1c
0x18fd…1922 at001d = ╱30╱0╱ // 0x191a @0x1d
0x18fd…1922 at001e = ╱fe0050c311╱ // 0x191b @0x1e
0x18fd…1922 at0023 = ╱ee╱)╱ // 0x1920 @0x23
0x18fd…1922 at0024 = EOL // 0x1921 @0x24
0x18fd…1922 }
0x1922…193f a696 2750 SUM$="0+";KONT=P;KTAL1=B
0x1922…193f LineComalBin {
0x1922…193f ptr = 0xa696 // 0x1922 @0x0
0x1922…193f lno = 0x0abe // 0x1924 @0x2
0x1922…193f at0004 = ╱53╱S╱ // 0x1926 @0x4
0x1922…193f at0005 = ╱55╱U╱ // 0x1927 @0x5
0x1922…193f at0006 = ╱4d╱M╱ // 0x1928 @0x6
0x1922…193f at0007 = ╱ef╱$╱ // 0x1929 @0x7
0x1922…193f at0008 = ╱dc╱=╱ // 0x192a @0x8
0x1922…193f at0009 = ╱22╱"╱ // 0x192b @0x9
0x1922…193f at000a = ╱30╱0╱ // 0x192c @0xa
0x1922…193f at000b = ╱2b╱+╱ // 0x192d @0xb
0x1922…193f at000c = ╱22╱"╱ // 0x192e @0xc
0x1922…193f at000d = ╱eb╱;╱ // 0x192f @0xd
0x1922…193f at000e = ╱4b╱K╱ // 0x1930 @0xe
0x1922…193f at000f = ╱4f╱O╱ // 0x1931 @0xf
0x1922…193f at0010 = ╱4e╱N╱ // 0x1932 @0x10
0x1922…193f at0011 = ╱54╱T╱ // 0x1933 @0x11
0x1922…193f at0012 = ╱dc╱=╱ // 0x1934 @0x12
0x1922…193f at0013 = ╱50╱P╱ // 0x1935 @0x13
0x1922…193f at0014 = ╱eb╱;╱ // 0x1936 @0x14
0x1922…193f at0015 = ╱4b╱K╱ // 0x1937 @0x15
0x1922…193f at0016 = ╱54╱T╱ // 0x1938 @0x16
0x1922…193f at0017 = ╱41╱A╱ // 0x1939 @0x17
0x1922…193f at0018 = ╱4c╱L╱ // 0x193a @0x18
0x1922…193f at0019 = ╱31╱1╱ // 0x193b @0x19
0x1922…193f at001a = ╱dc╱=╱ // 0x193c @0x1a
0x1922…193f at001b = ╱42╱B╱ // 0x193d @0x1b
0x1922…193f at001c = EOL // 0x193e @0x1c
0x1922…193f }
0x193f…194d a6a4 2760 IF KONT=B THEN EXIT
0x193f…194d LineComalBin {
0x193f…194d ptr = 0xa6a4 // 0x193f @0x0
0x193f…194d lno = 0x0ac8 // 0x1941 @0x2
0x193f…194d at0004 = ╱82╱ IF ╱ // 0x1943 @0x4
0x193f…194d at0005 = ╱4b╱K╱ // 0x1944 @0x5
0x193f…194d at0006 = ╱4f╱O╱ // 0x1945 @0x6
0x193f…194d at0007 = ╱4e╱N╱ // 0x1946 @0x7
0x193f…194d at0008 = ╱54╱T╱ // 0x1947 @0x8
0x193f…194d at0009 = ╱dc╱=╱ // 0x1948 @0x9
0x193f…194d at000a = ╱42╱B╱ // 0x1949 @0xa
0x193f…194d at000b = ╱b6╱ THEN ╱ // 0x194a @0xb
0x193f…194d at000c = ╱99╱ EXIT ╱ // 0x194b @0xc
0x193f…194d at000d = EOL // 0x194c @0xd
0x193f…194d }
0x194d…1981 a6d8 2770 IF KTAL=DTAL AND DTAL*10000+MKGR<KONT THEN KTAL1=DTAL
0x194d…1981 LineComalBin {
0x194d…1981 ptr = 0xa6d8 // 0x194d @0x0
0x194d…1981 lno = 0x0ad2 // 0x194f @0x2
0x194d…1981 at0004 = ╱82╱ IF ╱ // 0x1951 @0x4
0x194d…1981 at0005 = ╱4b╱K╱ // 0x1952 @0x5
0x194d…1981 at0006 = ╱54╱T╱ // 0x1953 @0x6
0x194d…1981 at0007 = ╱41╱A╱ // 0x1954 @0x7
0x194d…1981 at0008 = ╱4c╱L╱ // 0x1955 @0x8
0x194d…1981 at0009 = ╱dc╱=╱ // 0x1956 @0x9
0x194d…1981 at000a = ╱44╱D╱ // 0x1957 @0xa
0x194d…1981 at000b = ╱54╱T╱ // 0x1958 @0xb
0x194d…1981 at000c = ╱41╱A╱ // 0x1959 @0xc
0x194d…1981 at000d = ╱4c╱L╱ // 0x195a @0xd
0x194d…1981 at000e = ╱da╱ AND ╱ // 0x195b @0xe
0x194d…1981 at000f = ╱44╱D╱ // 0x195c @0xf
0x194d…1981 at0010 = ╱54╱T╱ // 0x195d @0x10
0x194d…1981 at0011 = ╱41╱A╱ // 0x195e @0x11
0x194d…1981 at0012 = ╱4c╱L╱ // 0x195f @0x12
0x194d…1981 at0013 = ╱e4╱*╱ // 0x1960 @0x13
0x194d…1981 at0014 = ╱31╱1╱ // 0x1961 @0x14
0x194d…1981 at0015 = ╱30╱0╱ // 0x1962 @0x15
0x194d…1981 at0016 = ╱30╱0╱ // 0x1963 @0x16
0x194d…1981 at0017 = ╱30╱0╱ // 0x1964 @0x17
0x194d…1981 at0018 = ╱30╱0╱ // 0x1965 @0x18
0x194d…1981 at0019 = ╱fe00409c0e╱ // 0x1966 @0x19
0x194d…1981 at001e = ╱e2╱+╱ // 0x196b @0x1e
0x194d…1981 at001f = ╱4d╱M╱ // 0x196c @0x1f
0x194d…1981 at0020 = ╱4b╱K╱ // 0x196d @0x20
0x194d…1981 at0021 = ╱47╱G╱ // 0x196e @0x21
0x194d…1981 at0022 = ╱52╱R╱ // 0x196f @0x22
0x194d…1981 at0023 = ╱dd╱<╱ // 0x1970 @0x23
0x194d…1981 at0024 = ╱4b╱K╱ // 0x1971 @0x24
0x194d…1981 at0025 = ╱4f╱O╱ // 0x1972 @0x25
0x194d…1981 at0026 = ╱4e╱N╱ // 0x1973 @0x26
0x194d…1981 at0027 = ╱54╱T╱ // 0x1974 @0x27
0x194d…1981 at0028 = ╱b6╱ THEN ╱ // 0x1975 @0x28
0x194d…1981 at0029 = ╱4b╱K╱ // 0x1976 @0x29
0x194d…1981 at002a = ╱54╱T╱ // 0x1977 @0x2a
0x194d…1981 at002b = ╱41╱A╱ // 0x1978 @0x2b
0x194d…1981 at002c = ╱4c╱L╱ // 0x1979 @0x2c
0x194d…1981 at002d = ╱31╱1╱ // 0x197a @0x2d
0x194d…1981 at002e = ╱dc╱=╱ // 0x197b @0x2e
0x194d…1981 at002f = ╱44╱D╱ // 0x197c @0x2f
0x194d…1981 at0030 = ╱54╱T╱ // 0x197d @0x30
0x194d…1981 at0031 = ╱41╱A╱ // 0x197e @0x31
0x194d…1981 at0032 = ╱4c╱L╱ // 0x197f @0x32
0x194d…1981 at0033 = EOL // 0x1980 @0x33
0x194d…1981 }
0x1981…19b8 a70f 2780 IF KTAL=KRTAL AND KRTAL*1000+MKRGR<KONT THEN KTAL1=KRTAL
0x1981…19b8 LineComalBin {
0x1981…19b8 ptr = 0xa70f // 0x1981 @0x0
0x1981…19b8 lno = 0x0adc // 0x1983 @0x2
0x1981…19b8 at0004 = ╱82╱ IF ╱ // 0x1985 @0x4
0x1981…19b8 at0005 = ╱4b╱K╱ // 0x1986 @0x5
0x1981…19b8 at0006 = ╱54╱T╱ // 0x1987 @0x6
0x1981…19b8 at0007 = ╱41╱A╱ // 0x1988 @0x7
0x1981…19b8 at0008 = ╱4c╱L╱ // 0x1989 @0x8
0x1981…19b8 at0009 = ╱dc╱=╱ // 0x198a @0x9
0x1981…19b8 at000a = ╱4b╱K╱ // 0x198b @0xa
0x1981…19b8 at000b = ╱52╱R╱ // 0x198c @0xb
0x1981…19b8 at000c = ╱54╱T╱ // 0x198d @0xc
0x1981…19b8 at000d = ╱41╱A╱ // 0x198e @0xd
0x1981…19b8 at000e = ╱4c╱L╱ // 0x198f @0xe
0x1981…19b8 at000f = ╱da╱ AND ╱ // 0x1990 @0xf
0x1981…19b8 at0010 = ╱4b╱K╱ // 0x1991 @0x10
0x1981…19b8 at0011 = ╱52╱R╱ // 0x1992 @0x11
0x1981…19b8 at0012 = ╱54╱T╱ // 0x1993 @0x12
0x1981…19b8 at0013 = ╱41╱A╱ // 0x1994 @0x13
0x1981…19b8 at0014 = ╱4c╱L╱ // 0x1995 @0x14
0x1981…19b8 at0015 = ╱e4╱*╱ // 0x1996 @0x15
0x1981…19b8 at0016 = ╱31╱1╱ // 0x1997 @0x16
0x1981…19b8 at0017 = ╱30╱0╱ // 0x1998 @0x17
0x1981…19b8 at0018 = ╱30╱0╱ // 0x1999 @0x18
0x1981…19b8 at0019 = ╱30╱0╱ // 0x199a @0x19
0x1981…19b8 at001a = ╱fe0000fa0a╱ // 0x199b @0x1a
0x1981…19b8 at001f = ╱e2╱+╱ // 0x19a0 @0x1f
0x1981…19b8 at0020 = ╱4d╱M╱ // 0x19a1 @0x20
0x1981…19b8 at0021 = ╱4b╱K╱ // 0x19a2 @0x21
0x1981…19b8 at0022 = ╱52╱R╱ // 0x19a3 @0x22
0x1981…19b8 at0023 = ╱47╱G╱ // 0x19a4 @0x23
0x1981…19b8 at0024 = ╱52╱R╱ // 0x19a5 @0x24
0x1981…19b8 at0025 = ╱dd╱<╱ // 0x19a6 @0x25
0x1981…19b8 at0026 = ╱4b╱K╱ // 0x19a7 @0x26
0x1981…19b8 at0027 = ╱4f╱O╱ // 0x19a8 @0x27
0x1981…19b8 at0028 = ╱4e╱N╱ // 0x19a9 @0x28
0x1981…19b8 at0029 = ╱54╱T╱ // 0x19aa @0x29
0x1981…19b8 at002a = ╱b6╱ THEN ╱ // 0x19ab @0x2a
0x1981…19b8 at002b = ╱4b╱K╱ // 0x19ac @0x2b
0x1981…19b8 at002c = ╱54╱T╱ // 0x19ad @0x2c
0x1981…19b8 at002d = ╱41╱A╱ // 0x19ae @0x2d
0x1981…19b8 at002e = ╱4c╱L╱ // 0x19af @0x2e
0x1981…19b8 at002f = ╱31╱1╱ // 0x19b0 @0x2f
0x1981…19b8 at0030 = ╱dc╱=╱ // 0x19b1 @0x30
0x1981…19b8 at0031 = ╱4b╱K╱ // 0x19b2 @0x31
0x1981…19b8 at0032 = ╱52╱R╱ // 0x19b3 @0x32
0x1981…19b8 at0033 = ╱54╱T╱ // 0x19b4 @0x33
0x1981…19b8 at0034 = ╱41╱A╱ // 0x19b5 @0x34
0x1981…19b8 at0035 = ╱4c╱L╱ // 0x19b6 @0x35
0x1981…19b8 at0036 = EOL // 0x19b7 @0x36
0x1981…19b8 }
0x19b8…19c6 a71d 2790 CURSOR W,5
0x19b8…19c6 LineComalBin {
0x19b8…19c6 ptr = 0xa71d // 0x19b8 @0x0
0x19b8…19c6 lno = 0x0ae6 // 0x19ba @0x2
0x19b8…19c6 at0004 = ╱a1╱ CURSOR ╱ // 0x19bc @0x4
0x19b8…19c6 at0005 = ╱57╱W╱ // 0x19bd @0x5
0x19b8…19c6 at0006 = ╱ec╱,╱ // 0x19be @0x6
0x19b8…19c6 at0007 = ╱35╱5╱ // 0x19bf @0x7
0x19b8…19c6 at0008 = ╱fe0000a003╱ // 0x19c0 @0x8
0x19b8…19c6 at000d = EOL // 0x19c5 @0xd
0x19b8…19c6 }
0x19c6…19d3 a72a 2800 CASE KTAL1 OF
0x19c6…19d3 LineComalBin {
0x19c6…19d3 ptr = 0xa72a // 0x19c6 @0x0
0x19c6…19d3 lno = 0x0af0 // 0x19c8 @0x2
0x19c6…19d3 at0004 = ╱a201╱ CASE ╱ // 0x19ca @0x4
0x19c6…19d3 at0006 = ╱4b╱K╱ // 0x19cc @0x6
0x19c6…19d3 at0007 = ╱54╱T╱ // 0x19cd @0x7
0x19c6…19d3 at0008 = ╱41╱A╱ // 0x19ce @0x8
0x19c6…19d3 at0009 = ╱4c╱L╱ // 0x19cf @0x9
0x19c6…19d3 at000a = ╱31╱1╱ // 0x19d0 @0xa
0x19c6…19d3 at000b = ╱ba╱ OF ╱ // 0x19d1 @0xb
0x19c6…19d3 at000c = EOL // 0x19d2 @0xc
0x19c6…19d3 }
0x19d3…1a05 a75c 2810 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONT,FPIL3,K2$)
0x19d3…1a05 LineComalBin {
0x19d3…1a05 ptr = 0xa75c // 0x19d3 @0x0
0x19d3…1a05 lno = 0x0afa // 0x19d5 @0x2
0x19d3…1a05 at0004 = ╱9d╱ EXEC ╱ // 0x19d7 @0x4
0x19d3…1a05 at0005 = ╱46╱F╱ // 0x19d8 @0x5
0x19d3…1a05 at0006 = ╱49╱I╱ // 0x19d9 @0x6
0x19d3…1a05 at0007 = ╱4e╱N╱ // 0x19da @0x7
0x19d3…1a05 at0008 = ╱44╱D╱ // 0x19db @0x8
0x19d3…1a05 at0009 = ╱50╱P╱ // 0x19dc @0x9
0x19d3…1a05 at000a = ╱4f╱O╱ // 0x19dd @0xa
0x19d3…1a05 at000b = ╱53╱S╱ // 0x19de @0xb
0x19d3…1a05 at000c = ╱54╱T╱ // 0x19df @0xc
0x19d3…1a05 at000d = ╱31╱1╱ // 0x19e0 @0xd
0x19d3…1a05 at000e = ╱ed╱(╱ // 0x19e1 @0xe
0x19d3…1a05 at000f = ╱46╱F╱ // 0x19e2 @0xf
0x19d3…1a05 at0010 = ╱54╱T╱ // 0x19e3 @0x10
0x19d3…1a05 at0011 = ╱41╱A╱ // 0x19e4 @0x11
0x19d3…1a05 at0012 = ╱42╱B╱ // 0x19e5 @0x12
0x19d3…1a05 at0013 = ╱31╱1╱ // 0x19e6 @0x13
0x19d3…1a05 at0014 = ╱ec╱,╱ // 0x19e7 @0x14
0x19d3…1a05 at0015 = ╱46╱F╱ // 0x19e8 @0x15
0x19d3…1a05 at0016 = ╱54╱T╱ // 0x19e9 @0x16
0x19d3…1a05 at0017 = ╱41╱A╱ // 0x19ea @0x17
0x19d3…1a05 at0018 = ╱42╱B╱ // 0x19eb @0x18
0x19d3…1a05 at0019 = ╱ec╱,╱ // 0x19ec @0x19
0x19d3…1a05 at001a = ╱4d╱M╱ // 0x19ed @0x1a
0x19d3…1a05 at001b = ╱46╱F╱ // 0x19ee @0x1b
0x19d3…1a05 at001c = ╱41╱A╱ // 0x19ef @0x1c
0x19d3…1a05 at001d = ╱4e╱N╱ // 0x19f0 @0x1d
0x19d3…1a05 at001e = ╱54╱T╱ // 0x19f1 @0x1e
0x19d3…1a05 at001f = ╱41╱A╱ // 0x19f2 @0x1f
0x19d3…1a05 at0020 = ╱4c╱L╱ // 0x19f3 @0x20
0x19d3…1a05 at0021 = ╱ec╱,╱ // 0x19f4 @0x21
0x19d3…1a05 at0022 = ╱4b╱K╱ // 0x19f5 @0x22
0x19d3…1a05 at0023 = ╱4f╱O╱ // 0x19f6 @0x23
0x19d3…1a05 at0024 = ╱4e╱N╱ // 0x19f7 @0x24
0x19d3…1a05 at0025 = ╱54╱T╱ // 0x19f8 @0x25
0x19d3…1a05 at0026 = ╱ec╱,╱ // 0x19f9 @0x26
0x19d3…1a05 at0027 = ╱46╱F╱ // 0x19fa @0x27
0x19d3…1a05 at0028 = ╱50╱P╱ // 0x19fb @0x28
0x19d3…1a05 at0029 = ╱49╱I╱ // 0x19fc @0x29
0x19d3…1a05 at002a = ╱4c╱L╱ // 0x19fd @0x2a
0x19d3…1a05 at002b = ╱33╱3╱ // 0x19fe @0x2b
0x19d3…1a05 at002c = ╱ec╱,╱ // 0x19ff @0x2c
0x19d3…1a05 at002d = ╱4b╱K╱ // 0x1a00 @0x2d
0x19d3…1a05 at002e = ╱32╱2╱ // 0x1a01 @0x2e
0x19d3…1a05 at002f = ╱ef╱$╱ // 0x1a02 @0x2f
0x19d3…1a05 at0030 = ╱ee╱)╱ // 0x1a03 @0x30
0x19d3…1a05 at0031 = EOL // 0x1a04 @0x31
0x19d3…1a05 }
0x1a05…1a12 a769 2820 IF CEKS=B THEN
0x1a05…1a12 LineComalBin {
0x1a05…1a12 ptr = 0xa769 // 0x1a05 @0x0
0x1a05…1a12 lno = 0x0b04 // 0x1a07 @0x2
0x1a05…1a12 at0004 = ╱9c╱ IF ╱ // 0x1a09 @0x4
0x1a05…1a12 at0005 = ╱43╱C╱ // 0x1a0a @0x5
0x1a05…1a12 at0006 = ╱45╱E╱ // 0x1a0b @0x6
0x1a05…1a12 at0007 = ╱4b╱K╱ // 0x1a0c @0x7
0x1a05…1a12 at0008 = ╱53╱S╱ // 0x1a0d @0x8
0x1a05…1a12 at0009 = ╱dc╱=╱ // 0x1a0e @0x9
0x1a05…1a12 at000a = ╱42╱B╱ // 0x1a0f @0xa
0x1a05…1a12 at000b = ╱b6╱ THEN ╱ // 0x1a10 @0xb
0x1a05…1a12 at000c = EOL // 0x1a11 @0xc
0x1a05…1a12 }
0x1a12…1a20 a777 2830 EXEC HENTPOST
0x1a12…1a20 LineComalBin {
0x1a12…1a20 ptr = 0xa777 // 0x1a12 @0x0
0x1a12…1a20 lno = 0x0b0e // 0x1a14 @0x2
0x1a12…1a20 at0004 = ╱9d╱ EXEC ╱ // 0x1a16 @0x4
0x1a12…1a20 at0005 = ╱48╱H╱ // 0x1a17 @0x5
0x1a12…1a20 at0006 = ╱45╱E╱ // 0x1a18 @0x6
0x1a12…1a20 at0007 = ╱4e╱N╱ // 0x1a19 @0x7
0x1a12…1a20 at0008 = ╱54╱T╱ // 0x1a1a @0x8
0x1a12…1a20 at0009 = ╱50╱P╱ // 0x1a1b @0x9
0x1a12…1a20 at000a = ╱4f╱O╱ // 0x1a1c @0xa
0x1a12…1a20 at000b = ╱53╱S╱ // 0x1a1d @0xb
0x1a12…1a20 at000c = ╱54╱T╱ // 0x1a1e @0xc
0x1a12…1a20 at000d = EOL // 0x1a1f @0xd
0x1a12…1a20 }
0x1a20…1a3b a792 2840 IF ORD(FUKODE$)-48=B THEN
0x1a20…1a3b LineComalBin {
0x1a20…1a3b ptr = 0xa792 // 0x1a20 @0x0
0x1a20…1a3b lno = 0x0b18 // 0x1a22 @0x2
0x1a20…1a3b at0004 = ╱9c╱ IF ╱ // 0x1a24 @0x4
0x1a20…1a3b at0005 = ╱cd╱ORD╱ // 0x1a25 @0x5
0x1a20…1a3b at0006 = ╱ed╱(╱ // 0x1a26 @0x6
0x1a20…1a3b at0007 = ╱46╱F╱ // 0x1a27 @0x7
0x1a20…1a3b at0008 = ╱55╱U╱ // 0x1a28 @0x8
0x1a20…1a3b at0009 = ╱4b╱K╱ // 0x1a29 @0x9
0x1a20…1a3b at000a = ╱4f╱O╱ // 0x1a2a @0xa
0x1a20…1a3b at000b = ╱44╱D╱ // 0x1a2b @0xb
0x1a20…1a3b at000c = ╱45╱E╱ // 0x1a2c @0xc
0x1a20…1a3b at000d = ╱ef╱$╱ // 0x1a2d @0xd
0x1a20…1a3b at000e = ╱ee╱)╱ // 0x1a2e @0xe
0x1a20…1a3b at000f = ╱e3╱-╱ // 0x1a2f @0xf
0x1a20…1a3b at0010 = ╱34╱4╱ // 0x1a30 @0x10
0x1a20…1a3b at0011 = ╱38╱8╱ // 0x1a31 @0x11
0x1a20…1a3b at0012 = ╱fe0000c006╱ // 0x1a32 @0x12
0x1a20…1a3b at0017 = ╱dc╱=╱ // 0x1a37 @0x17
0x1a20…1a3b at0018 = ╱42╱B╱ // 0x1a38 @0x18
0x1a20…1a3b at0019 = ╱b6╱ THEN ╱ // 0x1a39 @0x19
0x1a20…1a3b at001a = EOL // 0x1a3a @0x1a
0x1a20…1a3b }
0x1a3b…1a4b a7a2 2850 PRINT FNAVN$;" "
0x1a3b…1a4b LineComalBin {
0x1a3b…1a4b ptr = 0xa7a2 // 0x1a3b @0x0
0x1a3b…1a4b lno = 0x0b22 // 0x1a3d @0x2
0x1a3b…1a4b at0004 = ╱92╱ PRINT ╱ // 0x1a3f @0x4
0x1a3b…1a4b at0005 = ╱46╱F╱ // 0x1a40 @0x5
0x1a3b…1a4b at0006 = ╱4e╱N╱ // 0x1a41 @0x6
0x1a3b…1a4b at0007 = ╱41╱A╱ // 0x1a42 @0x7
0x1a3b…1a4b at0008 = ╱56╱V╱ // 0x1a43 @0x8
0x1a3b…1a4b at0009 = ╱4e╱N╱ // 0x1a44 @0x9
0x1a3b…1a4b at000a = ╱ef╱$╱ // 0x1a45 @0xa
0x1a3b…1a4b at000b = ╱eb╱;╱ // 0x1a46 @0xb
0x1a3b…1a4b at000c = ╱22╱"╱ // 0x1a47 @0xc
0x1a3b…1a4b at000d = ╱20╱…╱ // 0x1a48 @0xd
0x1a3b…1a4b at000e = ╱22╱"╱ // 0x1a49 @0xe
0x1a3b…1a4b at000f = EOL // 0x1a4a @0xf
0x1a3b…1a4b }
0x1a4b…1a51 a7a8 2860 ELSE
0x1a4b…1a51 LineComalBin {
0x1a4b…1a51 ptr = 0xa7a8 // 0x1a4b @0x0
0x1a4b…1a51 lno = 0x0b2c // 0x1a4d @0x2
0x1a4b…1a51 at0004 = ╱9a╱ ELSE ╱ // 0x1a4f @0x4
0x1a4b…1a51 at0005 = EOL // 0x1a50 @0x5
0x1a4b…1a51 }
0x1a51…1a5c a7b3 2870 CEKS=E
0x1a51…1a5c LineComalBin {
0x1a51…1a5c ptr = 0xa7b3 // 0x1a51 @0x0
0x1a51…1a5c lno = 0x0b36 // 0x1a53 @0x2
0x1a51…1a5c at0004 = ╱43╱C╱ // 0x1a55 @0x4
0x1a51…1a5c at0005 = ╱45╱E╱ // 0x1a56 @0x5
0x1a51…1a5c at0006 = ╱4b╱K╱ // 0x1a57 @0x6
0x1a51…1a5c at0007 = ╱53╱S╱ // 0x1a58 @0x7
0x1a51…1a5c at0008 = ╱dc╱=╱ // 0x1a59 @0x8
0x1a51…1a5c at0009 = ╱45╱E╱ // 0x1a5a @0x9
0x1a51…1a5c at000a = EOL // 0x1a5b @0xa
0x1a51…1a5c }
0x1a5c…1a62 a7b9 2880 ENDIF
0x1a5c…1a62 LineComalBin {
0x1a5c…1a62 ptr = 0xa7b9 // 0x1a5c @0x0
0x1a5c…1a62 lno = 0x0b40 // 0x1a5e @0x2
0x1a5c…1a62 at0004 = ╱9b╱ ENDIF ╱ // 0x1a60 @0x4
0x1a5c…1a62 at0005 = EOL // 0x1a61 @0x5
0x1a5c…1a62 }
0x1a62…1a68 a7bf 2890 ENDIF
0x1a62…1a68 LineComalBin {
0x1a62…1a68 ptr = 0xa7bf // 0x1a62 @0x0
0x1a62…1a68 lno = 0x0b4a // 0x1a64 @0x2
0x1a62…1a68 at0004 = ╱9b╱ ENDIF ╱ // 0x1a66 @0x4
0x1a62…1a68 at0005 = EOL // 0x1a67 @0x5
0x1a62…1a68 }
0x1a68…1a73 a7ca 2900 WHEN DTAL
0x1a68…1a73 LineComalBin {
0x1a68…1a73 ptr = 0xa7ca // 0x1a68 @0x0
0x1a68…1a73 lno = 0x0b54 // 0x1a6a @0x2
0x1a68…1a73 at0004 = ╱a301╱ WHEN ╱ // 0x1a6c @0x4
0x1a68…1a73 at0006 = ╱44╱D╱ // 0x1a6e @0x6
0x1a68…1a73 at0007 = ╱54╱T╱ // 0x1a6f @0x7
0x1a68…1a73 at0008 = ╱41╱A╱ // 0x1a70 @0x8
0x1a68…1a73 at0009 = ╱4c╱L╱ // 0x1a71 @0x9
0x1a68…1a73 at000a = EOL // 0x1a72 @0xa
0x1a68…1a73 }
0x1a73…1aa5 a7fc 2910 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONT,DPIL3,K3$)
0x1a73…1aa5 LineComalBin {
0x1a73…1aa5 ptr = 0xa7fc // 0x1a73 @0x0
0x1a73…1aa5 lno = 0x0b5e // 0x1a75 @0x2
0x1a73…1aa5 at0004 = ╱9d╱ EXEC ╱ // 0x1a77 @0x4
0x1a73…1aa5 at0005 = ╱46╱F╱ // 0x1a78 @0x5
0x1a73…1aa5 at0006 = ╱49╱I╱ // 0x1a79 @0x6
0x1a73…1aa5 at0007 = ╱4e╱N╱ // 0x1a7a @0x7
0x1a73…1aa5 at0008 = ╱44╱D╱ // 0x1a7b @0x8
0x1a73…1aa5 at0009 = ╱50╱P╱ // 0x1a7c @0x9
0x1a73…1aa5 at000a = ╱4f╱O╱ // 0x1a7d @0xa
0x1a73…1aa5 at000b = ╱53╱S╱ // 0x1a7e @0xb
0x1a73…1aa5 at000c = ╱54╱T╱ // 0x1a7f @0xc
0x1a73…1aa5 at000d = ╱31╱1╱ // 0x1a80 @0xd
0x1a73…1aa5 at000e = ╱ed╱(╱ // 0x1a81 @0xe
0x1a73…1aa5 at000f = ╱44╱D╱ // 0x1a82 @0xf
0x1a73…1aa5 at0010 = ╱54╱T╱ // 0x1a83 @0x10
0x1a73…1aa5 at0011 = ╱41╱A╱ // 0x1a84 @0x11
0x1a73…1aa5 at0012 = ╱42╱B╱ // 0x1a85 @0x12
0x1a73…1aa5 at0013 = ╱31╱1╱ // 0x1a86 @0x13
0x1a73…1aa5 at0014 = ╱ec╱,╱ // 0x1a87 @0x14
0x1a73…1aa5 at0015 = ╱44╱D╱ // 0x1a88 @0x15
0x1a73…1aa5 at0016 = ╱54╱T╱ // 0x1a89 @0x16
0x1a73…1aa5 at0017 = ╱41╱A╱ // 0x1a8a @0x17
0x1a73…1aa5 at0018 = ╱42╱B╱ // 0x1a8b @0x18
0x1a73…1aa5 at0019 = ╱ec╱,╱ // 0x1a8c @0x19
0x1a73…1aa5 at001a = ╱4d╱M╱ // 0x1a8d @0x1a
0x1a73…1aa5 at001b = ╱44╱D╱ // 0x1a8e @0x1b
0x1a73…1aa5 at001c = ╱41╱A╱ // 0x1a8f @0x1c
0x1a73…1aa5 at001d = ╱4e╱N╱ // 0x1a90 @0x1d
0x1a73…1aa5 at001e = ╱54╱T╱ // 0x1a91 @0x1e
0x1a73…1aa5 at001f = ╱41╱A╱ // 0x1a92 @0x1f
0x1a73…1aa5 at0020 = ╱4c╱L╱ // 0x1a93 @0x20
0x1a73…1aa5 at0021 = ╱ec╱,╱ // 0x1a94 @0x21
0x1a73…1aa5 at0022 = ╱4b╱K╱ // 0x1a95 @0x22
0x1a73…1aa5 at0023 = ╱4f╱O╱ // 0x1a96 @0x23
0x1a73…1aa5 at0024 = ╱4e╱N╱ // 0x1a97 @0x24
0x1a73…1aa5 at0025 = ╱54╱T╱ // 0x1a98 @0x25
0x1a73…1aa5 at0026 = ╱ec╱,╱ // 0x1a99 @0x26
0x1a73…1aa5 at0027 = ╱44╱D╱ // 0x1a9a @0x27
0x1a73…1aa5 at0028 = ╱50╱P╱ // 0x1a9b @0x28
0x1a73…1aa5 at0029 = ╱49╱I╱ // 0x1a9c @0x29
0x1a73…1aa5 at002a = ╱4c╱L╱ // 0x1a9d @0x2a
0x1a73…1aa5 at002b = ╱33╱3╱ // 0x1a9e @0x2b
0x1a73…1aa5 at002c = ╱ec╱,╱ // 0x1a9f @0x2c
0x1a73…1aa5 at002d = ╱4b╱K╱ // 0x1aa0 @0x2d
0x1a73…1aa5 at002e = ╱33╱3╱ // 0x1aa1 @0x2e
0x1a73…1aa5 at002f = ╱ef╱$╱ // 0x1aa2 @0x2f
0x1a73…1aa5 at0030 = ╱ee╱)╱ // 0x1aa3 @0x30
0x1a73…1aa5 at0031 = EOL // 0x1aa4 @0x31
0x1a73…1aa5 }
0x1aa5…1ab2 a809 2920 IF CEKS=B THEN
0x1aa5…1ab2 LineComalBin {
0x1aa5…1ab2 ptr = 0xa809 // 0x1aa5 @0x0
0x1aa5…1ab2 lno = 0x0b68 // 0x1aa7 @0x2
0x1aa5…1ab2 at0004 = ╱9c╱ IF ╱ // 0x1aa9 @0x4
0x1aa5…1ab2 at0005 = ╱43╱C╱ // 0x1aaa @0x5
0x1aa5…1ab2 at0006 = ╱45╱E╱ // 0x1aab @0x6
0x1aa5…1ab2 at0007 = ╱4b╱K╱ // 0x1aac @0x7
0x1aa5…1ab2 at0008 = ╱53╱S╱ // 0x1aad @0x8
0x1aa5…1ab2 at0009 = ╱dc╱=╱ // 0x1aae @0x9
0x1aa5…1ab2 at000a = ╱42╱B╱ // 0x1aaf @0xa
0x1aa5…1ab2 at000b = ╱b6╱ THEN ╱ // 0x1ab0 @0xb
0x1aa5…1ab2 at000c = EOL // 0x1ab1 @0xc
0x1aa5…1ab2 }
0x1ab2…1ac1 a818 2930 EXEC HENTDPOST
0x1ab2…1ac1 LineComalBin {
0x1ab2…1ac1 ptr = 0xa818 // 0x1ab2 @0x0
0x1ab2…1ac1 lno = 0x0b72 // 0x1ab4 @0x2
0x1ab2…1ac1 at0004 = ╱9d╱ EXEC ╱ // 0x1ab6 @0x4
0x1ab2…1ac1 at0005 = ╱48╱H╱ // 0x1ab7 @0x5
0x1ab2…1ac1 at0006 = ╱45╱E╱ // 0x1ab8 @0x6
0x1ab2…1ac1 at0007 = ╱4e╱N╱ // 0x1ab9 @0x7
0x1ab2…1ac1 at0008 = ╱54╱T╱ // 0x1aba @0x8
0x1ab2…1ac1 at0009 = ╱44╱D╱ // 0x1abb @0x9
0x1ab2…1ac1 at000a = ╱50╱P╱ // 0x1abc @0xa
0x1ab2…1ac1 at000b = ╱4f╱O╱ // 0x1abd @0xb
0x1ab2…1ac1 at000c = ╱53╱S╱ // 0x1abe @0xc
0x1ab2…1ac1 at000d = ╱54╱T╱ // 0x1abf @0xd
0x1ab2…1ac1 at000e = EOL // 0x1ac0 @0xe
0x1ab2…1ac1 }
0x1ac1…1af7 a84e 2940 EXEC NAVN2(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$)
0x1ac1…1af7 LineComalBin {
0x1ac1…1af7 ptr = 0xa84e // 0x1ac1 @0x0
0x1ac1…1af7 lno = 0x0b7c // 0x1ac3 @0x2
0x1ac1…1af7 at0004 = ╱9d╱ EXEC ╱ // 0x1ac5 @0x4
0x1ac1…1af7 at0005 = ╱4e╱N╱ // 0x1ac6 @0x5
0x1ac1…1af7 at0006 = ╱41╱A╱ // 0x1ac7 @0x6
0x1ac1…1af7 at0007 = ╱56╱V╱ // 0x1ac8 @0x7
0x1ac1…1af7 at0008 = ╱4e╱N╱ // 0x1ac9 @0x8
0x1ac1…1af7 at0009 = ╱32╱2╱ // 0x1aca @0x9
0x1ac1…1af7 at000a = ╱ed╱(╱ // 0x1acb @0xa
0x1ac1…1af7 at000b = ╱44╱D╱ // 0x1acc @0xb
0x1ac1…1af7 at000c = ╱45╱E╱ // 0x1acd @0xc
0x1ac1…1af7 at000d = ╱42╱B╱ // 0x1ace @0xd
0x1ac1…1af7 at000e = ╱4e╱N╱ // 0x1acf @0xe
0x1ac1…1af7 at000f = ╱41╱A╱ // 0x1ad0 @0xf
0x1ac1…1af7 at0010 = ╱56╱V╱ // 0x1ad1 @0x10
0x1ac1…1af7 at0011 = ╱4e╱N╱ // 0x1ad2 @0x11
0x1ac1…1af7 at0012 = ╱ef╱$╱ // 0x1ad3 @0x12
0x1ac1…1af7 at0013 = ╱ec╱,╱ // 0x1ad4 @0x13
0x1ac1…1af7 at0014 = ╱44╱D╱ // 0x1ad5 @0x14
0x1ac1…1af7 at0015 = ╱45╱E╱ // 0x1ad6 @0x15
0x1ac1…1af7 at0016 = ╱42╱B╱ // 0x1ad7 @0x16
0x1ac1…1af7 at0017 = ╱47╱G╱ // 0x1ad8 @0x17
0x1ac1…1af7 at0018 = ╱41╱A╱ // 0x1ad9 @0x18
0x1ac1…1af7 at0019 = ╱44╱D╱ // 0x1ada @0x19
0x1ac1…1af7 at001a = ╱45╱E╱ // 0x1adb @0x1a
0x1ac1…1af7 at001b = ╱ef╱$╱ // 0x1adc @0x1b
0x1ac1…1af7 at001c = ╱ec╱,╱ // 0x1add @0x1c
0x1ac1…1af7 at001d = ╱44╱D╱ // 0x1ade @0x1d
0x1ac1…1af7 at001e = ╱45╱E╱ // 0x1adf @0x1e
0x1ac1…1af7 at001f = ╱42╱B╱ // 0x1ae0 @0x1f
0x1ac1…1af7 at0020 = ╱50╱P╱ // 0x1ae1 @0x20
0x1ac1…1af7 at0021 = ╱4f╱O╱ // 0x1ae2 @0x21
0x1ac1…1af7 at0022 = ╱53╱S╱ // 0x1ae3 @0x22
0x1ac1…1af7 at0023 = ╱54╱T╱ // 0x1ae4 @0x23
0x1ac1…1af7 at0024 = ╱4e╱N╱ // 0x1ae5 @0x24
0x1ac1…1af7 at0025 = ╱52╱R╱ // 0x1ae6 @0x25
0x1ac1…1af7 at0026 = ╱ec╱,╱ // 0x1ae7 @0x26
0x1ac1…1af7 at0027 = ╱44╱D╱ // 0x1ae8 @0x27
0x1ac1…1af7 at0028 = ╱45╱E╱ // 0x1ae9 @0x28
0x1ac1…1af7 at0029 = ╱42╱B╱ // 0x1aea @0x29
0x1ac1…1af7 at002a = ╱42╱B╱ // 0x1aeb @0x2a
0x1ac1…1af7 at002b = ╱59╱Y╱ // 0x1aec @0x2b
0x1ac1…1af7 at002c = ╱ef╱$╱ // 0x1aed @0x2c
0x1ac1…1af7 at002d = ╱ec╱,╱ // 0x1aee @0x2d
0x1ac1…1af7 at002e = ╱44╱D╱ // 0x1aef @0x2e
0x1ac1…1af7 at002f = ╱45╱E╱ // 0x1af0 @0x2f
0x1ac1…1af7 at0030 = ╱42╱B╱ // 0x1af1 @0x30
0x1ac1…1af7 at0031 = ╱4c╱L╱ // 0x1af2 @0x31
0x1ac1…1af7 at0032 = ╱4b╱K╱ // 0x1af3 @0x32
0x1ac1…1af7 at0033 = ╱ef╱$╱ // 0x1af4 @0x33
0x1ac1…1af7 at0034 = ╱ee╱)╱ // 0x1af5 @0x34
0x1ac1…1af7 at0035 = EOL // 0x1af6 @0x35
0x1ac1…1af7 }
0x1af7…1afd a854 2950 ENDIF
0x1af7…1afd LineComalBin {
0x1af7…1afd ptr = 0xa854 // 0x1af7 @0x0
0x1af7…1afd lno = 0x0b86 // 0x1af9 @0x2
0x1af7…1afd at0004 = ╱9b╱ ENDIF ╱ // 0x1afb @0x4
0x1af7…1afd at0005 = EOL // 0x1afc @0x5
0x1af7…1afd }
0x1afd…1b09 a860 2960 WHEN KRTAL
0x1afd…1b09 LineComalBin {
0x1afd…1b09 ptr = 0xa860 // 0x1afd @0x0
0x1afd…1b09 lno = 0x0b90 // 0x1aff @0x2
0x1afd…1b09 at0004 = ╱a301╱ WHEN ╱ // 0x1b01 @0x4
0x1afd…1b09 at0006 = ╱4b╱K╱ // 0x1b03 @0x6
0x1afd…1b09 at0007 = ╱52╱R╱ // 0x1b04 @0x7
0x1afd…1b09 at0008 = ╱54╱T╱ // 0x1b05 @0x8
0x1afd…1b09 at0009 = ╱41╱A╱ // 0x1b06 @0x9
0x1afd…1b09 at000a = ╱4c╱L╱ // 0x1b07 @0xa
0x1afd…1b09 at000b = EOL // 0x1b08 @0xb
0x1afd…1b09 }
0x1b09…1b3b a892 2970 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONT,KPIL3,K4$)
0x1b09…1b3b LineComalBin {
0x1b09…1b3b ptr = 0xa892 // 0x1b09 @0x0
0x1b09…1b3b lno = 0x0b9a // 0x1b0b @0x2
0x1b09…1b3b at0004 = ╱9d╱ EXEC ╱ // 0x1b0d @0x4
0x1b09…1b3b at0005 = ╱46╱F╱ // 0x1b0e @0x5
0x1b09…1b3b at0006 = ╱49╱I╱ // 0x1b0f @0x6
0x1b09…1b3b at0007 = ╱4e╱N╱ // 0x1b10 @0x7
0x1b09…1b3b at0008 = ╱44╱D╱ // 0x1b11 @0x8
0x1b09…1b3b at0009 = ╱50╱P╱ // 0x1b12 @0x9
0x1b09…1b3b at000a = ╱4f╱O╱ // 0x1b13 @0xa
0x1b09…1b3b at000b = ╱53╱S╱ // 0x1b14 @0xb
0x1b09…1b3b at000c = ╱54╱T╱ // 0x1b15 @0xc
0x1b09…1b3b at000d = ╱31╱1╱ // 0x1b16 @0xd
0x1b09…1b3b at000e = ╱ed╱(╱ // 0x1b17 @0xe
0x1b09…1b3b at000f = ╱4b╱K╱ // 0x1b18 @0xf
0x1b09…1b3b at0010 = ╱54╱T╱ // 0x1b19 @0x10
0x1b09…1b3b at0011 = ╱41╱A╱ // 0x1b1a @0x11
0x1b09…1b3b at0012 = ╱42╱B╱ // 0x1b1b @0x12
0x1b09…1b3b at0013 = ╱31╱1╱ // 0x1b1c @0x13
0x1b09…1b3b at0014 = ╱ec╱,╱ // 0x1b1d @0x14
0x1b09…1b3b at0015 = ╱4b╱K╱ // 0x1b1e @0x15
0x1b09…1b3b at0016 = ╱54╱T╱ // 0x1b1f @0x16
0x1b09…1b3b at0017 = ╱41╱A╱ // 0x1b20 @0x17
0x1b09…1b3b at0018 = ╱42╱B╱ // 0x1b21 @0x18
0x1b09…1b3b at0019 = ╱ec╱,╱ // 0x1b22 @0x19
0x1b09…1b3b at001a = ╱4d╱M╱ // 0x1b23 @0x1a
0x1b09…1b3b at001b = ╱4b╱K╱ // 0x1b24 @0x1b
0x1b09…1b3b at001c = ╱41╱A╱ // 0x1b25 @0x1c
0x1b09…1b3b at001d = ╱4e╱N╱ // 0x1b26 @0x1d
0x1b09…1b3b at001e = ╱54╱T╱ // 0x1b27 @0x1e
0x1b09…1b3b at001f = ╱41╱A╱ // 0x1b28 @0x1f
0x1b09…1b3b at0020 = ╱4c╱L╱ // 0x1b29 @0x20
0x1b09…1b3b at0021 = ╱ec╱,╱ // 0x1b2a @0x21
0x1b09…1b3b at0022 = ╱4b╱K╱ // 0x1b2b @0x22
0x1b09…1b3b at0023 = ╱4f╱O╱ // 0x1b2c @0x23
0x1b09…1b3b at0024 = ╱4e╱N╱ // 0x1b2d @0x24
0x1b09…1b3b at0025 = ╱54╱T╱ // 0x1b2e @0x25
0x1b09…1b3b at0026 = ╱ec╱,╱ // 0x1b2f @0x26
0x1b09…1b3b at0027 = ╱4b╱K╱ // 0x1b30 @0x27
0x1b09…1b3b at0028 = ╱50╱P╱ // 0x1b31 @0x28
0x1b09…1b3b at0029 = ╱49╱I╱ // 0x1b32 @0x29
0x1b09…1b3b at002a = ╱4c╱L╱ // 0x1b33 @0x2a
0x1b09…1b3b at002b = ╱33╱3╱ // 0x1b34 @0x2b
0x1b09…1b3b at002c = ╱ec╱,╱ // 0x1b35 @0x2c
0x1b09…1b3b at002d = ╱4b╱K╱ // 0x1b36 @0x2d
0x1b09…1b3b at002e = ╱34╱4╱ // 0x1b37 @0x2e
0x1b09…1b3b at002f = ╱ef╱$╱ // 0x1b38 @0x2f
0x1b09…1b3b at0030 = ╱ee╱)╱ // 0x1b39 @0x30
0x1b09…1b3b at0031 = EOL // 0x1b3a @0x31
0x1b09…1b3b }
0x1b3b…1b48 a89f 2980 IF CEKS=B THEN
0x1b3b…1b48 LineComalBin {
0x1b3b…1b48 ptr = 0xa89f // 0x1b3b @0x0
0x1b3b…1b48 lno = 0x0ba4 // 0x1b3d @0x2
0x1b3b…1b48 at0004 = ╱9c╱ IF ╱ // 0x1b3f @0x4
0x1b3b…1b48 at0005 = ╱43╱C╱ // 0x1b40 @0x5
0x1b3b…1b48 at0006 = ╱45╱E╱ // 0x1b41 @0x6
0x1b3b…1b48 at0007 = ╱4b╱K╱ // 0x1b42 @0x7
0x1b3b…1b48 at0008 = ╱53╱S╱ // 0x1b43 @0x8
0x1b3b…1b48 at0009 = ╱dc╱=╱ // 0x1b44 @0x9
0x1b3b…1b48 at000a = ╱42╱B╱ // 0x1b45 @0xa
0x1b3b…1b48 at000b = ╱b6╱ THEN ╱ // 0x1b46 @0xb
0x1b3b…1b48 at000c = EOL // 0x1b47 @0xc
0x1b3b…1b48 }
0x1b48…1b57 a8ae 2990 EXEC HENTKPOST
0x1b48…1b57 LineComalBin {
0x1b48…1b57 ptr = 0xa8ae // 0x1b48 @0x0
0x1b48…1b57 lno = 0x0bae // 0x1b4a @0x2
0x1b48…1b57 at0004 = ╱9d╱ EXEC ╱ // 0x1b4c @0x4
0x1b48…1b57 at0005 = ╱48╱H╱ // 0x1b4d @0x5
0x1b48…1b57 at0006 = ╱45╱E╱ // 0x1b4e @0x6
0x1b48…1b57 at0007 = ╱4e╱N╱ // 0x1b4f @0x7
0x1b48…1b57 at0008 = ╱54╱T╱ // 0x1b50 @0x8
0x1b48…1b57 at0009 = ╱4b╱K╱ // 0x1b51 @0x9
0x1b48…1b57 at000a = ╱50╱P╱ // 0x1b52 @0xa
0x1b48…1b57 at000b = ╱4f╱O╱ // 0x1b53 @0xb
0x1b48…1b57 at000c = ╱53╱S╱ // 0x1b54 @0xc
0x1b48…1b57 at000d = ╱54╱T╱ // 0x1b55 @0xd
0x1b48…1b57 at000e = EOL // 0x1b56 @0xe
0x1b48…1b57 }
0x1b57…1b8d a8e4 3000 EXEC NAVN2(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$)
0x1b57…1b8d LineComalBin {
0x1b57…1b8d ptr = 0xa8e4 // 0x1b57 @0x0
0x1b57…1b8d lno = 0x0bb8 // 0x1b59 @0x2
0x1b57…1b8d at0004 = ╱9d╱ EXEC ╱ // 0x1b5b @0x4
0x1b57…1b8d at0005 = ╱4e╱N╱ // 0x1b5c @0x5
0x1b57…1b8d at0006 = ╱41╱A╱ // 0x1b5d @0x6
0x1b57…1b8d at0007 = ╱56╱V╱ // 0x1b5e @0x7
0x1b57…1b8d at0008 = ╱4e╱N╱ // 0x1b5f @0x8
0x1b57…1b8d at0009 = ╱32╱2╱ // 0x1b60 @0x9
0x1b57…1b8d at000a = ╱ed╱(╱ // 0x1b61 @0xa
0x1b57…1b8d at000b = ╱4b╱K╱ // 0x1b62 @0xb
0x1b57…1b8d at000c = ╱52╱R╱ // 0x1b63 @0xc
0x1b57…1b8d at000d = ╱45╱E╱ // 0x1b64 @0xd
0x1b57…1b8d at000e = ╱4e╱N╱ // 0x1b65 @0xe
0x1b57…1b8d at000f = ╱41╱A╱ // 0x1b66 @0xf
0x1b57…1b8d at0010 = ╱56╱V╱ // 0x1b67 @0x10
0x1b57…1b8d at0011 = ╱4e╱N╱ // 0x1b68 @0x11
0x1b57…1b8d at0012 = ╱ef╱$╱ // 0x1b69 @0x12
0x1b57…1b8d at0013 = ╱ec╱,╱ // 0x1b6a @0x13
0x1b57…1b8d at0014 = ╱4b╱K╱ // 0x1b6b @0x14
0x1b57…1b8d at0015 = ╱52╱R╱ // 0x1b6c @0x15
0x1b57…1b8d at0016 = ╱45╱E╱ // 0x1b6d @0x16
0x1b57…1b8d at0017 = ╱47╱G╱ // 0x1b6e @0x17
0x1b57…1b8d at0018 = ╱41╱A╱ // 0x1b6f @0x18
0x1b57…1b8d at0019 = ╱44╱D╱ // 0x1b70 @0x19
0x1b57…1b8d at001a = ╱45╱E╱ // 0x1b71 @0x1a
0x1b57…1b8d at001b = ╱ef╱$╱ // 0x1b72 @0x1b
0x1b57…1b8d at001c = ╱ec╱,╱ // 0x1b73 @0x1c
0x1b57…1b8d at001d = ╱4b╱K╱ // 0x1b74 @0x1d
0x1b57…1b8d at001e = ╱52╱R╱ // 0x1b75 @0x1e
0x1b57…1b8d at001f = ╱45╱E╱ // 0x1b76 @0x1f
0x1b57…1b8d at0020 = ╱50╱P╱ // 0x1b77 @0x20
0x1b57…1b8d at0021 = ╱4f╱O╱ // 0x1b78 @0x21
0x1b57…1b8d at0022 = ╱53╱S╱ // 0x1b79 @0x22
0x1b57…1b8d at0023 = ╱54╱T╱ // 0x1b7a @0x23
0x1b57…1b8d at0024 = ╱4e╱N╱ // 0x1b7b @0x24
0x1b57…1b8d at0025 = ╱52╱R╱ // 0x1b7c @0x25
0x1b57…1b8d at0026 = ╱ec╱,╱ // 0x1b7d @0x26
0x1b57…1b8d at0027 = ╱4b╱K╱ // 0x1b7e @0x27
0x1b57…1b8d at0028 = ╱52╱R╱ // 0x1b7f @0x28
0x1b57…1b8d at0029 = ╱45╱E╱ // 0x1b80 @0x29
0x1b57…1b8d at002a = ╱42╱B╱ // 0x1b81 @0x2a
0x1b57…1b8d at002b = ╱59╱Y╱ // 0x1b82 @0x2b
0x1b57…1b8d at002c = ╱ef╱$╱ // 0x1b83 @0x2c
0x1b57…1b8d at002d = ╱ec╱,╱ // 0x1b84 @0x2d
0x1b57…1b8d at002e = ╱4b╱K╱ // 0x1b85 @0x2e
0x1b57…1b8d at002f = ╱52╱R╱ // 0x1b86 @0x2f
0x1b57…1b8d at0030 = ╱45╱E╱ // 0x1b87 @0x30
0x1b57…1b8d at0031 = ╱4c╱L╱ // 0x1b88 @0x31
0x1b57…1b8d at0032 = ╱4b╱K╱ // 0x1b89 @0x32
0x1b57…1b8d at0033 = ╱ef╱$╱ // 0x1b8a @0x33
0x1b57…1b8d at0034 = ╱ee╱)╱ // 0x1b8b @0x34
0x1b57…1b8d at0035 = EOL // 0x1b8c @0x35
0x1b57…1b8d }
0x1b8d…1b93 a8ea 3010 ENDIF
0x1b8d…1b93 LineComalBin {
0x1b8d…1b93 ptr = 0xa8ea // 0x1b8d @0x0
0x1b8d…1b93 lno = 0x0bc2 // 0x1b8f @0x2
0x1b8d…1b93 at0004 = ╱9b╱ ENDIF ╱ // 0x1b91 @0x4
0x1b8d…1b93 at0005 = EOL // 0x1b92 @0x5
0x1b8d…1b93 }
0x1b93…1b99 a8f0 3020 ENDCASE
0x1b93…1b99 LineComalBin {
0x1b93…1b99 ptr = 0xa8f0 // 0x1b93 @0x0
0x1b93…1b99 lno = 0x0bcc // 0x1b95 @0x2
0x1b93…1b99 at0004 = ╱a4╱ ENDCASE ╱ // 0x1b97 @0x4
0x1b93…1b99 at0005 = EOL // 0x1b98 @0x5
0x1b93…1b99 }
0x1b99…1bdb a932 3030 IF CEKS=B THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2))
0x1b99…1bdb LineComalBin {
0x1b99…1bdb ptr = 0xa932 // 0x1b99 @0x0
0x1b99…1bdb lno = 0x0bd6 // 0x1b9b @0x2
0x1b99…1bdb at0004 = ╱82╱ IF ╱ // 0x1b9d @0x4
0x1b99…1bdb at0005 = ╱43╱C╱ // 0x1b9e @0x5
0x1b99…1bdb at0006 = ╱45╱E╱ // 0x1b9f @0x6
0x1b99…1bdb at0007 = ╱4b╱K╱ // 0x1ba0 @0x7
0x1b99…1bdb at0008 = ╱53╱S╱ // 0x1ba1 @0x8
0x1b99…1bdb at0009 = ╱dc╱=╱ // 0x1ba2 @0x9
0x1b99…1bdb at000a = ╱42╱B╱ // 0x1ba3 @0xa
0x1b99…1bdb at000b = ╱b6╱ THEN ╱ // 0x1ba4 @0xb
0x1b99…1bdb at000c = ╱9d╱ EXEC ╱ // 0x1ba5 @0xc
0x1b99…1bdb at000d = ╱49╱I╱ // 0x1ba6 @0xd
0x1b99…1bdb at000e = ╱4e╱N╱ // 0x1ba7 @0xe
0x1b99…1bdb at000f = ╱44╱D╱ // 0x1ba8 @0xf
0x1b99…1bdb at0010 = ╱50╱P╱ // 0x1ba9 @0x10
0x1b99…1bdb at0011 = ╱55╱U╱ // 0x1baa @0x11
0x1b99…1bdb at0012 = ╱54╱T╱ // 0x1bab @0x12
0x1b99…1bdb at0013 = ╱31╱1╱ // 0x1bac @0x13
0x1b99…1bdb at0014 = ╱ed╱(╱ // 0x1bad @0x14
0x1b99…1bdb at0015 = ╱34╱4╱ // 0x1bae @0x15
0x1b99…1bdb at0016 = ╱fe00008003╱ // 0x1baf @0x16
0x1b99…1bdb at001b = ╱ec╱,╱ // 0x1bb4 @0x1b
0x1b99…1bdb at001c = ╱31╱1╱ // 0x1bb5 @0x1c
0x1b99…1bdb at001d = ╱32╱2╱ // 0x1bb6 @0x1d
0x1b99…1bdb at001e = ╱fe0000c004╱ // 0x1bb7 @0x1e
0x1b99…1bdb at0023 = ╱ec╱,╱ // 0x1bbc @0x23
0x1b99…1bdb at0024 = ╱e9╱-╱ // 0x1bbd @0x24
0x1b99…1bdb at0025 = ╱39╱9╱ // 0x1bbe @0x25
0x1b99…1bdb at0026 = ╱fe00009004╱ // 0x1bbf @0x26
0x1b99…1bdb at002b = ╱ec╱,╱ // 0x1bc4 @0x2b
0x1b99…1bdb at002c = ╱e9╱-╱ // 0x1bc5 @0x2c
0x1b99…1bdb at002d = ╱36╱6╱ // 0x1bc6 @0x2d
0x1b99…1bdb at002e = ╱fe0000c003╱ // 0x1bc7 @0x2e
0x1b99…1bdb at0033 = ╱ec╱,╱ // 0x1bcc @0x33
0x1b99…1bdb at0034 = ╱4c╱L╱ // 0x1bcd @0x34
0x1b99…1bdb at0035 = ╱54╱T╱ // 0x1bce @0x35
0x1b99…1bdb at0036 = ╱58╱X╱ // 0x1bcf @0x36
0x1b99…1bdb at0037 = ╱ef╱$╱ // 0x1bd0 @0x37
0x1b99…1bdb at0038 = ╱ed╱(╱ // 0x1bd1 @0x38
0x1b99…1bdb at0039 = ╱32╱2╱ // 0x1bd2 @0x39
0x1b99…1bdb at003a = ╱fe00008002╱ // 0x1bd3 @0x3a
0x1b99…1bdb at003f = ╱ee╱)╱ // 0x1bd8 @0x3f
0x1b99…1bdb at0040 = ╱ee╱)╱ // 0x1bd9 @0x40
0x1b99…1bdb at0041 = EOL // 0x1bda @0x41
0x1b99…1bdb }
0x1bdb…1c1b a972 3040 IF CEKS=E THEN EXEC INDPUT1(9,5,-2,0,LTX$(3))
0x1bdb…1c1b LineComalBin {
0x1bdb…1c1b ptr = 0xa972 // 0x1bdb @0x0
0x1bdb…1c1b lno = 0x0be0 // 0x1bdd @0x2
0x1bdb…1c1b at0004 = ╱82╱ IF ╱ // 0x1bdf @0x4
0x1bdb…1c1b at0005 = ╱43╱C╱ // 0x1be0 @0x5
0x1bdb…1c1b at0006 = ╱45╱E╱ // 0x1be1 @0x6
0x1bdb…1c1b at0007 = ╱4b╱K╱ // 0x1be2 @0x7
0x1bdb…1c1b at0008 = ╱53╱S╱ // 0x1be3 @0x8
0x1bdb…1c1b at0009 = ╱dc╱=╱ // 0x1be4 @0x9
0x1bdb…1c1b at000a = ╱45╱E╱ // 0x1be5 @0xa
0x1bdb…1c1b at000b = ╱b6╱ THEN ╱ // 0x1be6 @0xb
0x1bdb…1c1b at000c = ╱9d╱ EXEC ╱ // 0x1be7 @0xc
0x1bdb…1c1b at000d = ╱49╱I╱ // 0x1be8 @0xd
0x1bdb…1c1b at000e = ╱4e╱N╱ // 0x1be9 @0xe
0x1bdb…1c1b at000f = ╱44╱D╱ // 0x1bea @0xf
0x1bdb…1c1b at0010 = ╱50╱P╱ // 0x1beb @0x10
0x1bdb…1c1b at0011 = ╱55╱U╱ // 0x1bec @0x11
0x1bdb…1c1b at0012 = ╱54╱T╱ // 0x1bed @0x12
0x1bdb…1c1b at0013 = ╱31╱1╱ // 0x1bee @0x13
0x1bdb…1c1b at0014 = ╱ed╱(╱ // 0x1bef @0x14
0x1bdb…1c1b at0015 = ╱39╱9╱ // 0x1bf0 @0x15
0x1bdb…1c1b at0016 = ╱fe00009004╱ // 0x1bf1 @0x16
0x1bdb…1c1b at001b = ╱ec╱,╱ // 0x1bf6 @0x1b
0x1bdb…1c1b at001c = ╱35╱5╱ // 0x1bf7 @0x1c
0x1bdb…1c1b at001d = ╱fe0000a003╱ // 0x1bf8 @0x1d
0x1bdb…1c1b at0022 = ╱ec╱,╱ // 0x1bfd @0x22
0x1bdb…1c1b at0023 = ╱e9╱-╱ // 0x1bfe @0x23
0x1bdb…1c1b at0024 = ╱32╱2╱ // 0x1bff @0x24
0x1bdb…1c1b at0025 = ╱fe00008002╱ // 0x1c00 @0x25
0x1bdb…1c1b at002a = ╱ec╱,╱ // 0x1c05 @0x2a
0x1bdb…1c1b at002b = ╱30╱0╱ // 0x1c06 @0x2b
0x1bdb…1c1b at002c = ╱fe00000000╱ // 0x1c07 @0x2c
0x1bdb…1c1b at0031 = ╱ec╱,╱ // 0x1c0c @0x31
0x1bdb…1c1b at0032 = ╱4c╱L╱ // 0x1c0d @0x32
0x1bdb…1c1b at0033 = ╱54╱T╱ // 0x1c0e @0x33
0x1bdb…1c1b at0034 = ╱58╱X╱ // 0x1c0f @0x34
0x1bdb…1c1b at0035 = ╱ef╱$╱ // 0x1c10 @0x35
0x1bdb…1c1b at0036 = ╱ed╱(╱ // 0x1c11 @0x36
0x1bdb…1c1b at0037 = ╱33╱3╱ // 0x1c12 @0x37
0x1bdb…1c1b at0038 = ╱fe0000c002╱ // 0x1c13 @0x38
0x1bdb…1c1b at003d = ╱ee╱)╱ // 0x1c18 @0x3d
0x1bdb…1c1b at003e = ╱ee╱)╱ // 0x1c19 @0x3e
0x1bdb…1c1b at003f = EOL // 0x1c1a @0x3f
0x1bdb…1c1b }
0x1c1b…1c31 a988 3050 UNTIL P=-7 OR KONT=B
0x1c1b…1c31 LineComalBin {
0x1c1b…1c31 ptr = 0xa988 // 0x1c1b @0x0
0x1c1b…1c31 lno = 0x0bea // 0x1c1d @0x2
0x1c1b…1c31 at0004 = ╱98╱ UNTIL ╱ // 0x1c1f @0x4
0x1c1b…1c31 at0005 = ╱50╱P╱ // 0x1c20 @0x5
0x1c1b…1c31 at0006 = ╱dc╱=╱ // 0x1c21 @0x6
0x1c1b…1c31 at0007 = ╱e9╱-╱ // 0x1c22 @0x7
0x1c1b…1c31 at0008 = ╱37╱7╱ // 0x1c23 @0x8
0x1c1b…1c31 at0009 = ╱fe0000e003╱ // 0x1c24 @0x9
0x1c1b…1c31 at000e = ╱db╱ OR ╱ // 0x1c29 @0xe
0x1c1b…1c31 at000f = ╱4b╱K╱ // 0x1c2a @0xf
0x1c1b…1c31 at0010 = ╱4f╱O╱ // 0x1c2b @0x10
0x1c1b…1c31 at0011 = ╱4e╱N╱ // 0x1c2c @0x11
0x1c1b…1c31 at0012 = ╱54╱T╱ // 0x1c2d @0x12
0x1c1b…1c31 at0013 = ╱dc╱=╱ // 0x1c2e @0x13
0x1c1b…1c31 at0014 = ╱42╱B╱ // 0x1c2f @0x14
0x1c1b…1c31 at0015 = EOL // 0x1c30 @0x15
0x1c1b…1c31 }
0x1c31…1c37 a98e 3060 ENDPROC
0x1c31…1c37 LineComalBin {
0x1c31…1c37 ptr = 0xa98e // 0x1c31 @0x0
0x1c31…1c37 lno = 0x0bf4 // 0x1c33 @0x2
0x1c31…1c37 at0004 = ╱9f╱ ENDPROC ╱ // 0x1c35 @0x4
0x1c31…1c37 at0005 = EOL // 0x1c36 @0x5
0x1c31…1c37 }
0x1c37…1c45 a99c 3070 PROC HUDSKRIV
0x1c37…1c45 LineComalBin {
0x1c37…1c45 ptr = 0xa99c // 0x1c37 @0x0
0x1c37…1c45 lno = 0x0bfe // 0x1c39 @0x2
0x1c37…1c45 at0004 = ╱9e╱ PROC ╱ // 0x1c3b @0x4
0x1c37…1c45 at0005 = ╱48╱H╱ // 0x1c3c @0x5
0x1c37…1c45 at0006 = ╱55╱U╱ // 0x1c3d @0x6
0x1c37…1c45 at0007 = ╱44╱D╱ // 0x1c3e @0x7
0x1c37…1c45 at0008 = ╱53╱S╱ // 0x1c3f @0x8
0x1c37…1c45 at0009 = ╱4b╱K╱ // 0x1c40 @0x9
0x1c37…1c45 at000a = ╱52╱R╱ // 0x1c41 @0xa
0x1c37…1c45 at000b = ╱49╱I╱ // 0x1c42 @0xb
0x1c37…1c45 at000c = ╱56╱V╱ // 0x1c43 @0xc
0x1c37…1c45 at000d = EOL // 0x1c44 @0xd
0x1c37…1c45 }
0x1c45…1c4e a9a5 3080 PRINT " "
0x1c45…1c4e LineComalBin {
0x1c45…1c4e ptr = 0xa9a5 // 0x1c45 @0x0
0x1c45…1c4e lno = 0x0c08 // 0x1c47 @0x2
0x1c45…1c4e at0004 = ╱92╱ PRINT ╱ // 0x1c49 @0x4
0x1c45…1c4e at0005 = ╱22╱"╱ // 0x1c4a @0x5
0x1c45…1c4e at0006 = ╱20╱…╱ // 0x1c4b @0x6
0x1c45…1c4e at0007 = ╱22╱"╱ // 0x1c4c @0x7
0x1c45…1c4e at0008 = EOL // 0x1c4d @0x8
0x1c45…1c4e }
0x1c4e…1c70 a9c7 3090 IF SKRIV1=B THEN PRINT TAB(65);DV$;" "
0x1c4e…1c70 LineComalBin {
0x1c4e…1c70 ptr = 0xa9c7 // 0x1c4e @0x0
0x1c4e…1c70 lno = 0x0c12 // 0x1c50 @0x2
0x1c4e…1c70 at0004 = ╱82╱ IF ╱ // 0x1c52 @0x4
0x1c4e…1c70 at0005 = ╱53╱S╱ // 0x1c53 @0x5
0x1c4e…1c70 at0006 = ╱4b╱K╱ // 0x1c54 @0x6
0x1c4e…1c70 at0007 = ╱52╱R╱ // 0x1c55 @0x7
0x1c4e…1c70 at0008 = ╱49╱I╱ // 0x1c56 @0x8
0x1c4e…1c70 at0009 = ╱56╱V╱ // 0x1c57 @0x9
0x1c4e…1c70 at000a = ╱31╱1╱ // 0x1c58 @0xa
0x1c4e…1c70 at000b = ╱dc╱=╱ // 0x1c59 @0xb
0x1c4e…1c70 at000c = ╱42╱B╱ // 0x1c5a @0xc
0x1c4e…1c70 at000d = ╱b6╱ THEN ╱ // 0x1c5b @0xd
0x1c4e…1c70 at000e = ╱92╱ PRINT ╱ // 0x1c5c @0xe
0x1c4e…1c70 at000f = ╱d2╱TAB╱ // 0x1c5d @0xf
0x1c4e…1c70 at0010 = ╱ed╱(╱ // 0x1c5e @0x10
0x1c4e…1c70 at0011 = ╱36╱6╱ // 0x1c5f @0x11
0x1c4e…1c70 at0012 = ╱35╱5╱ // 0x1c60 @0x12
0x1c4e…1c70 at0013 = ╱fe00008207╱ // 0x1c61 @0x13
0x1c4e…1c70 at0018 = ╱ee╱)╱ // 0x1c66 @0x18
0x1c4e…1c70 at0019 = ╱eb╱;╱ // 0x1c67 @0x19
0x1c4e…1c70 at001a = ╱44╱D╱ // 0x1c68 @0x1a
0x1c4e…1c70 at001b = ╱56╱V╱ // 0x1c69 @0x1b
0x1c4e…1c70 at001c = ╱ef╱$╱ // 0x1c6a @0x1c
0x1c4e…1c70 at001d = ╱eb╱;╱ // 0x1c6b @0x1d
0x1c4e…1c70 at001e = ╱22╱"╱ // 0x1c6c @0x1e
0x1c4e…1c70 at001f = ╱20╱…╱ // 0x1c6d @0x1f
0x1c4e…1c70 at0020 = ╱22╱"╱ // 0x1c6e @0x20
0x1c4e…1c70 at0021 = EOL // 0x1c6f @0x21
0x1c4e…1c70 }
0x1c70…1c7d a9d4 3100 CASE KTAL1 OF
0x1c70…1c7d LineComalBin {
0x1c70…1c7d ptr = 0xa9d4 // 0x1c70 @0x0
0x1c70…1c7d lno = 0x0c1c // 0x1c72 @0x2
0x1c70…1c7d at0004 = ╱a201╱ CASE ╱ // 0x1c74 @0x4
0x1c70…1c7d at0006 = ╱4b╱K╱ // 0x1c76 @0x6
0x1c70…1c7d at0007 = ╱54╱T╱ // 0x1c77 @0x7
0x1c70…1c7d at0008 = ╱41╱A╱ // 0x1c78 @0x8
0x1c70…1c7d at0009 = ╱4c╱L╱ // 0x1c79 @0x9
0x1c70…1c7d at000a = ╱31╱1╱ // 0x1c7a @0xa
0x1c70…1c7d at000b = ╱ba╱ OF ╱ // 0x1c7b @0xb
0x1c70…1c7d at000c = EOL // 0x1c7c @0xc
0x1c70…1c7d }
0x1c7d…1cae aa05 3110 PRINT TAB(12);CHR(14);FNAVN$;" ";CHR(15)
0x1c7d…1cae LineComalBin {
0x1c7d…1cae ptr = 0xaa05 // 0x1c7d @0x0
0x1c7d…1cae lno = 0x0c26 // 0x1c7f @0x2
0x1c7d…1cae at0004 = ╱92╱ PRINT ╱ // 0x1c81 @0x4
0x1c7d…1cae at0005 = ╱d2╱TAB╱ // 0x1c82 @0x5
0x1c7d…1cae at0006 = ╱ed╱(╱ // 0x1c83 @0x6
0x1c7d…1cae at0007 = ╱31╱1╱ // 0x1c84 @0x7
0x1c7d…1cae at0008 = ╱32╱2╱ // 0x1c85 @0x8
0x1c7d…1cae at0009 = ╱fe0000c004╱ // 0x1c86 @0x9
0x1c7d…1cae at000e = ╱ee╱)╱ // 0x1c8b @0xe
0x1c7d…1cae at000f = ╱eb╱;╱ // 0x1c8c @0xf
0x1c7d…1cae at0010 = ╱cf╱CHR╱ // 0x1c8d @0x10
0x1c7d…1cae at0011 = ╱ed╱(╱ // 0x1c8e @0x11
0x1c7d…1cae at0012 = ╱31╱1╱ // 0x1c8f @0x12
0x1c7d…1cae at0013 = ╱34╱4╱ // 0x1c90 @0x13
0x1c7d…1cae at0014 = ╱fe0000e004╱ // 0x1c91 @0x14
0x1c7d…1cae at0019 = ╱ee╱)╱ // 0x1c96 @0x19
0x1c7d…1cae at001a = ╱eb╱;╱ // 0x1c97 @0x1a
0x1c7d…1cae at001b = ╱46╱F╱ // 0x1c98 @0x1b
0x1c7d…1cae at001c = ╱4e╱N╱ // 0x1c99 @0x1c
0x1c7d…1cae at001d = ╱41╱A╱ // 0x1c9a @0x1d
0x1c7d…1cae at001e = ╱56╱V╱ // 0x1c9b @0x1e
0x1c7d…1cae at001f = ╱4e╱N╱ // 0x1c9c @0x1f
0x1c7d…1cae at0020 = ╱ef╱$╱ // 0x1c9d @0x20
0x1c7d…1cae at0021 = ╱eb╱;╱ // 0x1c9e @0x21
0x1c7d…1cae at0022 = ╱22╱"╱ // 0x1c9f @0x22
0x1c7d…1cae at0023 = ╱20╱…╱ // 0x1ca0 @0x23
0x1c7d…1cae at0024 = ╱22╱"╱ // 0x1ca1 @0x24
0x1c7d…1cae at0025 = ╱eb╱;╱ // 0x1ca2 @0x25
0x1c7d…1cae at0026 = ╱cf╱CHR╱ // 0x1ca3 @0x26
0x1c7d…1cae at0027 = ╱ed╱(╱ // 0x1ca4 @0x27
0x1c7d…1cae at0028 = ╱31╱1╱ // 0x1ca5 @0x28
0x1c7d…1cae at0029 = ╱35╱5╱ // 0x1ca6 @0x29
0x1c7d…1cae at002a = ╱fe0000f004╱ // 0x1ca7 @0x2a
0x1c7d…1cae at002f = ╱ee╱)╱ // 0x1cac @0x2f
0x1c7d…1cae at0030 = EOL // 0x1cad @0x30
0x1c7d…1cae }
0x1cae…1ccb aa22 3120 EXEC LINIER(1,3,I)
0x1cae…1ccb LineComalBin {
0x1cae…1ccb ptr = 0xaa22 // 0x1cae @0x0
0x1cae…1ccb lno = 0x0c30 // 0x1cb0 @0x2
0x1cae…1ccb at0004 = ╱9d╱ EXEC ╱ // 0x1cb2 @0x4
0x1cae…1ccb at0005 = ╱4c╱L╱ // 0x1cb3 @0x5
0x1cae…1ccb at0006 = ╱49╱I╱ // 0x1cb4 @0x6
0x1cae…1ccb at0007 = ╱4e╱N╱ // 0x1cb5 @0x7
0x1cae…1ccb at0008 = ╱49╱I╱ // 0x1cb6 @0x8
0x1cae…1ccb at0009 = ╱45╱E╱ // 0x1cb7 @0x9
0x1cae…1ccb at000a = ╱52╱R╱ // 0x1cb8 @0xa
0x1cae…1ccb at000b = ╱ed╱(╱ // 0x1cb9 @0xb
0x1cae…1ccb at000c = ╱31╱1╱ // 0x1cba @0xc
0x1cae…1ccb at000d = ╱fe00008001╱ // 0x1cbb @0xd
0x1cae…1ccb at0012 = ╱ec╱,╱ // 0x1cc0 @0x12
0x1cae…1ccb at0013 = ╱33╱3╱ // 0x1cc1 @0x13
0x1cae…1ccb at0014 = ╱fe0000c002╱ // 0x1cc2 @0x14
0x1cae…1ccb at0019 = ╱ec╱,╱ // 0x1cc7 @0x19
0x1cae…1ccb at001a = ╱49╱I╱ // 0x1cc8 @0x1a
0x1cae…1ccb at001b = ╱ee╱)╱ // 0x1cc9 @0x1b
0x1cae…1ccb at001c = EOL // 0x1cca @0x1c
0x1cae…1ccb }
0x1ccb…1cd6 aa2d 3130 WHEN DTAL
0x1ccb…1cd6 LineComalBin {
0x1ccb…1cd6 ptr = 0xaa2d // 0x1ccb @0x0
0x1ccb…1cd6 lno = 0x0c3a // 0x1ccd @0x2
0x1ccb…1cd6 at0004 = ╱a301╱ WHEN ╱ // 0x1ccf @0x4
0x1ccb…1cd6 at0006 = ╱44╱D╱ // 0x1cd1 @0x6
0x1ccb…1cd6 at0007 = ╱54╱T╱ // 0x1cd2 @0x7
0x1ccb…1cd6 at0008 = ╱41╱A╱ // 0x1cd3 @0x8
0x1ccb…1cd6 at0009 = ╱4c╱L╱ // 0x1cd4 @0x9
0x1ccb…1cd6 at000a = EOL // 0x1cd5 @0xa
0x1ccb…1cd6 }
0x1cd6…1ce5 aa3c 3140 IF SKRIV1=E THEN
0x1cd6…1ce5 LineComalBin {
0x1cd6…1ce5 ptr = 0xaa3c // 0x1cd6 @0x0
0x1cd6…1ce5 lno = 0x0c44 // 0x1cd8 @0x2
0x1cd6…1ce5 at0004 = ╱9c╱ IF ╱ // 0x1cda @0x4
0x1cd6…1ce5 at0005 = ╱53╱S╱ // 0x1cdb @0x5
0x1cd6…1ce5 at0006 = ╱4b╱K╱ // 0x1cdc @0x6
0x1cd6…1ce5 at0007 = ╱52╱R╱ // 0x1cdd @0x7
0x1cd6…1ce5 at0008 = ╱49╱I╱ // 0x1cde @0x8
0x1cd6…1ce5 at0009 = ╱56╱V╱ // 0x1cdf @0x9
0x1cd6…1ce5 at000a = ╱31╱1╱ // 0x1ce0 @0xa
0x1cd6…1ce5 at000b = ╱dc╱=╱ // 0x1ce1 @0xb
0x1cd6…1ce5 at000c = ╱45╱E╱ // 0x1ce2 @0xc
0x1cd6…1ce5 at000d = ╱b6╱ THEN ╱ // 0x1ce3 @0xd
0x1cd6…1ce5 at000e = EOL // 0x1ce4 @0xe
0x1cd6…1ce5 }
0x1ce5…1cee aa45 3150 PRINT " "
0x1ce5…1cee LineComalBin {
0x1ce5…1cee ptr = 0xaa45 // 0x1ce5 @0x0
0x1ce5…1cee lno = 0x0c4e // 0x1ce7 @0x2
0x1ce5…1cee at0004 = ╱92╱ PRINT ╱ // 0x1ce9 @0x4
0x1ce5…1cee at0005 = ╱22╱"╱ // 0x1cea @0x5
0x1ce5…1cee at0006 = ╱20╱…╱ // 0x1ceb @0x6
0x1ce5…1cee at0007 = ╱22╱"╱ // 0x1cec @0x7
0x1ce5…1cee at0008 = EOL // 0x1ced @0x8
0x1ce5…1cee }
0x1cee…1cf7 aa4e 3155 PRINT " "
0x1cee…1cf7 LineComalBin {
0x1cee…1cf7 ptr = 0xaa4e // 0x1cee @0x0
0x1cee…1cf7 lno = 0x0c53 // 0x1cf0 @0x2
0x1cee…1cf7 at0004 = ╱92╱ PRINT ╱ // 0x1cf2 @0x4
0x1cee…1cf7 at0005 = ╱22╱"╱ // 0x1cf3 @0x5
0x1cee…1cf7 at0006 = ╱20╱…╱ // 0x1cf4 @0x6
0x1cee…1cf7 at0007 = ╱22╱"╱ // 0x1cf5 @0x7
0x1cee…1cf7 at0008 = EOL // 0x1cf6 @0x8
0x1cee…1cf7 }
0x1cf7…1d13 aa6a 3160 PRINT TAB(12);EGNAVN$;" "
0x1cf7…1d13 LineComalBin {
0x1cf7…1d13 ptr = 0xaa6a // 0x1cf7 @0x0
0x1cf7…1d13 lno = 0x0c58 // 0x1cf9 @0x2
0x1cf7…1d13 at0004 = ╱92╱ PRINT ╱ // 0x1cfb @0x4
0x1cf7…1d13 at0005 = ╱d2╱TAB╱ // 0x1cfc @0x5
0x1cf7…1d13 at0006 = ╱ed╱(╱ // 0x1cfd @0x6
0x1cf7…1d13 at0007 = ╱31╱1╱ // 0x1cfe @0x7
0x1cf7…1d13 at0008 = ╱32╱2╱ // 0x1cff @0x8
0x1cf7…1d13 at0009 = ╱fe0000c004╱ // 0x1d00 @0x9
0x1cf7…1d13 at000e = ╱ee╱)╱ // 0x1d05 @0xe
0x1cf7…1d13 at000f = ╱eb╱;╱ // 0x1d06 @0xf
0x1cf7…1d13 at0010 = ╱45╱E╱ // 0x1d07 @0x10
0x1cf7…1d13 at0011 = ╱47╱G╱ // 0x1d08 @0x11
0x1cf7…1d13 at0012 = ╱4e╱N╱ // 0x1d09 @0x12
0x1cf7…1d13 at0013 = ╱41╱A╱ // 0x1d0a @0x13
0x1cf7…1d13 at0014 = ╱56╱V╱ // 0x1d0b @0x14
0x1cf7…1d13 at0015 = ╱4e╱N╱ // 0x1d0c @0x15
0x1cf7…1d13 at0016 = ╱ef╱$╱ // 0x1d0d @0x16
0x1cf7…1d13 at0017 = ╱eb╱;╱ // 0x1d0e @0x17
0x1cf7…1d13 at0018 = ╱22╱"╱ // 0x1d0f @0x18
0x1cf7…1d13 at0019 = ╱20╱…╱ // 0x1d10 @0x19
0x1cf7…1d13 at001a = ╱22╱"╱ // 0x1d11 @0x1a
0x1cf7…1d13 at001b = EOL // 0x1d12 @0x1b
0x1cf7…1d13 }
0x1d13…1d2f aa86 3170 PRINT TAB(12);EGGADE$;" "
0x1d13…1d2f LineComalBin {
0x1d13…1d2f ptr = 0xaa86 // 0x1d13 @0x0
0x1d13…1d2f lno = 0x0c62 // 0x1d15 @0x2
0x1d13…1d2f at0004 = ╱92╱ PRINT ╱ // 0x1d17 @0x4
0x1d13…1d2f at0005 = ╱d2╱TAB╱ // 0x1d18 @0x5
0x1d13…1d2f at0006 = ╱ed╱(╱ // 0x1d19 @0x6
0x1d13…1d2f at0007 = ╱31╱1╱ // 0x1d1a @0x7
0x1d13…1d2f at0008 = ╱32╱2╱ // 0x1d1b @0x8
0x1d13…1d2f at0009 = ╱fe0000c004╱ // 0x1d1c @0x9
0x1d13…1d2f at000e = ╱ee╱)╱ // 0x1d21 @0xe
0x1d13…1d2f at000f = ╱eb╱;╱ // 0x1d22 @0xf
0x1d13…1d2f at0010 = ╱45╱E╱ // 0x1d23 @0x10
0x1d13…1d2f at0011 = ╱47╱G╱ // 0x1d24 @0x11
0x1d13…1d2f at0012 = ╱47╱G╱ // 0x1d25 @0x12
0x1d13…1d2f at0013 = ╱41╱A╱ // 0x1d26 @0x13
0x1d13…1d2f at0014 = ╱44╱D╱ // 0x1d27 @0x14
0x1d13…1d2f at0015 = ╱45╱E╱ // 0x1d28 @0x15
0x1d13…1d2f at0016 = ╱ef╱$╱ // 0x1d29 @0x16
0x1d13…1d2f at0017 = ╱eb╱;╱ // 0x1d2a @0x17
0x1d13…1d2f at0018 = ╱22╱"╱ // 0x1d2b @0x18
0x1d13…1d2f at0019 = ╱20╱…╱ // 0x1d2c @0x19
0x1d13…1d2f at001a = ╱22╱"╱ // 0x1d2d @0x1a
0x1d13…1d2f at001b = EOL // 0x1d2e @0x1b
0x1d13…1d2f }
0x1d2f…1d58 aaaf 3180 PRINT TAB(12);EGPOSTNR$;" ";EGBY$;" "
0x1d2f…1d58 LineComalBin {
0x1d2f…1d58 ptr = 0xaaaf // 0x1d2f @0x0
0x1d2f…1d58 lno = 0x0c6c // 0x1d31 @0x2
0x1d2f…1d58 at0004 = ╱92╱ PRINT ╱ // 0x1d33 @0x4
0x1d2f…1d58 at0005 = ╱d2╱TAB╱ // 0x1d34 @0x5
0x1d2f…1d58 at0006 = ╱ed╱(╱ // 0x1d35 @0x6
0x1d2f…1d58 at0007 = ╱31╱1╱ // 0x1d36 @0x7
0x1d2f…1d58 at0008 = ╱32╱2╱ // 0x1d37 @0x8
0x1d2f…1d58 at0009 = ╱fe0000c004╱ // 0x1d38 @0x9
0x1d2f…1d58 at000e = ╱ee╱)╱ // 0x1d3d @0xe
0x1d2f…1d58 at000f = ╱eb╱;╱ // 0x1d3e @0xf
0x1d2f…1d58 at0010 = ╱45╱E╱ // 0x1d3f @0x10
0x1d2f…1d58 at0011 = ╱47╱G╱ // 0x1d40 @0x11
0x1d2f…1d58 at0012 = ╱50╱P╱ // 0x1d41 @0x12
0x1d2f…1d58 at0013 = ╱4f╱O╱ // 0x1d42 @0x13
0x1d2f…1d58 at0014 = ╱53╱S╱ // 0x1d43 @0x14
0x1d2f…1d58 at0015 = ╱54╱T╱ // 0x1d44 @0x15
0x1d2f…1d58 at0016 = ╱4e╱N╱ // 0x1d45 @0x16
0x1d2f…1d58 at0017 = ╱52╱R╱ // 0x1d46 @0x17
0x1d2f…1d58 at0018 = ╱ef╱$╱ // 0x1d47 @0x18
0x1d2f…1d58 at0019 = ╱eb╱;╱ // 0x1d48 @0x19
0x1d2f…1d58 at001a = ╱22╱"╱ // 0x1d49 @0x1a
0x1d2f…1d58 at001b = ╱20╱…╱ // 0x1d4a @0x1b
0x1d2f…1d58 at001c = ╱20╱…╱ // 0x1d4b @0x1c
0x1d2f…1d58 at001d = ╱22╱"╱ // 0x1d4c @0x1d
0x1d2f…1d58 at001e = ╱eb╱;╱ // 0x1d4d @0x1e
0x1d2f…1d58 at001f = ╱45╱E╱ // 0x1d4e @0x1f
0x1d2f…1d58 at0020 = ╱47╱G╱ // 0x1d4f @0x20
0x1d2f…1d58 at0021 = ╱42╱B╱ // 0x1d50 @0x21
0x1d2f…1d58 at0022 = ╱59╱Y╱ // 0x1d51 @0x22
0x1d2f…1d58 at0023 = ╱ef╱$╱ // 0x1d52 @0x23
0x1d2f…1d58 at0024 = ╱eb╱;╱ // 0x1d53 @0x24
0x1d2f…1d58 at0025 = ╱22╱"╱ // 0x1d54 @0x25
0x1d2f…1d58 at0026 = ╱20╱…╱ // 0x1d55 @0x26
0x1d2f…1d58 at0027 = ╱22╱"╱ // 0x1d56 @0x27
0x1d2f…1d58 at0028 = EOL // 0x1d57 @0x28
0x1d2f…1d58 }
0x1d58…1d75 aacc 3190 EXEC LINIER(1,5,I)
0x1d58…1d75 LineComalBin {
0x1d58…1d75 ptr = 0xaacc // 0x1d58 @0x0
0x1d58…1d75 lno = 0x0c76 // 0x1d5a @0x2
0x1d58…1d75 at0004 = ╱9d╱ EXEC ╱ // 0x1d5c @0x4
0x1d58…1d75 at0005 = ╱4c╱L╱ // 0x1d5d @0x5
0x1d58…1d75 at0006 = ╱49╱I╱ // 0x1d5e @0x6
0x1d58…1d75 at0007 = ╱4e╱N╱ // 0x1d5f @0x7
0x1d58…1d75 at0008 = ╱49╱I╱ // 0x1d60 @0x8
0x1d58…1d75 at0009 = ╱45╱E╱ // 0x1d61 @0x9
0x1d58…1d75 at000a = ╱52╱R╱ // 0x1d62 @0xa
0x1d58…1d75 at000b = ╱ed╱(╱ // 0x1d63 @0xb
0x1d58…1d75 at000c = ╱31╱1╱ // 0x1d64 @0xc
0x1d58…1d75 at000d = ╱fe00008001╱ // 0x1d65 @0xd
0x1d58…1d75 at0012 = ╱ec╱,╱ // 0x1d6a @0x12
0x1d58…1d75 at0013 = ╱35╱5╱ // 0x1d6b @0x13
0x1d58…1d75 at0014 = ╱fe0000a003╱ // 0x1d6c @0x14
0x1d58…1d75 at0019 = ╱ec╱,╱ // 0x1d71 @0x19
0x1d58…1d75 at001a = ╱49╱I╱ // 0x1d72 @0x1a
0x1d58…1d75 at001b = ╱ee╱)╱ // 0x1d73 @0x1b
0x1d58…1d75 at001c = EOL // 0x1d74 @0x1c
0x1d58…1d75 }
0x1d75…1d7b aad2 3200 ENDIF
0x1d75…1d7b LineComalBin {
0x1d75…1d7b ptr = 0xaad2 // 0x1d75 @0x0
0x1d75…1d7b lno = 0x0c80 // 0x1d77 @0x2
0x1d75…1d7b at0004 = ╱9b╱ ENDIF ╱ // 0x1d79 @0x4
0x1d75…1d7b at0005 = EOL // 0x1d7a @0x5
0x1d75…1d7b }
0x1d7b…1db1 ab08 3210 EXEC NAVN1(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$)
0x1d7b…1db1 LineComalBin {
0x1d7b…1db1 ptr = 0xab08 // 0x1d7b @0x0
0x1d7b…1db1 lno = 0x0c8a // 0x1d7d @0x2
0x1d7b…1db1 at0004 = ╱9d╱ EXEC ╱ // 0x1d7f @0x4
0x1d7b…1db1 at0005 = ╱4e╱N╱ // 0x1d80 @0x5
0x1d7b…1db1 at0006 = ╱41╱A╱ // 0x1d81 @0x6
0x1d7b…1db1 at0007 = ╱56╱V╱ // 0x1d82 @0x7
0x1d7b…1db1 at0008 = ╱4e╱N╱ // 0x1d83 @0x8
0x1d7b…1db1 at0009 = ╱31╱1╱ // 0x1d84 @0x9
0x1d7b…1db1 at000a = ╱ed╱(╱ // 0x1d85 @0xa
0x1d7b…1db1 at000b = ╱44╱D╱ // 0x1d86 @0xb
0x1d7b…1db1 at000c = ╱45╱E╱ // 0x1d87 @0xc
0x1d7b…1db1 at000d = ╱42╱B╱ // 0x1d88 @0xd
0x1d7b…1db1 at000e = ╱4e╱N╱ // 0x1d89 @0xe
0x1d7b…1db1 at000f = ╱41╱A╱ // 0x1d8a @0xf
0x1d7b…1db1 at0010 = ╱56╱V╱ // 0x1d8b @0x10
0x1d7b…1db1 at0011 = ╱4e╱N╱ // 0x1d8c @0x11
0x1d7b…1db1 at0012 = ╱ef╱$╱ // 0x1d8d @0x12
0x1d7b…1db1 at0013 = ╱ec╱,╱ // 0x1d8e @0x13
0x1d7b…1db1 at0014 = ╱44╱D╱ // 0x1d8f @0x14
0x1d7b…1db1 at0015 = ╱45╱E╱ // 0x1d90 @0x15
0x1d7b…1db1 at0016 = ╱42╱B╱ // 0x1d91 @0x16
0x1d7b…1db1 at0017 = ╱47╱G╱ // 0x1d92 @0x17
0x1d7b…1db1 at0018 = ╱41╱A╱ // 0x1d93 @0x18
0x1d7b…1db1 at0019 = ╱44╱D╱ // 0x1d94 @0x19
0x1d7b…1db1 at001a = ╱45╱E╱ // 0x1d95 @0x1a
0x1d7b…1db1 at001b = ╱ef╱$╱ // 0x1d96 @0x1b
0x1d7b…1db1 at001c = ╱ec╱,╱ // 0x1d97 @0x1c
0x1d7b…1db1 at001d = ╱44╱D╱ // 0x1d98 @0x1d
0x1d7b…1db1 at001e = ╱45╱E╱ // 0x1d99 @0x1e
0x1d7b…1db1 at001f = ╱42╱B╱ // 0x1d9a @0x1f
0x1d7b…1db1 at0020 = ╱50╱P╱ // 0x1d9b @0x20
0x1d7b…1db1 at0021 = ╱4f╱O╱ // 0x1d9c @0x21
0x1d7b…1db1 at0022 = ╱53╱S╱ // 0x1d9d @0x22
0x1d7b…1db1 at0023 = ╱54╱T╱ // 0x1d9e @0x23
0x1d7b…1db1 at0024 = ╱4e╱N╱ // 0x1d9f @0x24
0x1d7b…1db1 at0025 = ╱52╱R╱ // 0x1da0 @0x25
0x1d7b…1db1 at0026 = ╱ec╱,╱ // 0x1da1 @0x26
0x1d7b…1db1 at0027 = ╱44╱D╱ // 0x1da2 @0x27
0x1d7b…1db1 at0028 = ╱45╱E╱ // 0x1da3 @0x28
0x1d7b…1db1 at0029 = ╱42╱B╱ // 0x1da4 @0x29
0x1d7b…1db1 at002a = ╱42╱B╱ // 0x1da5 @0x2a
0x1d7b…1db1 at002b = ╱59╱Y╱ // 0x1da6 @0x2b
0x1d7b…1db1 at002c = ╱ef╱$╱ // 0x1da7 @0x2c
0x1d7b…1db1 at002d = ╱ec╱,╱ // 0x1da8 @0x2d
0x1d7b…1db1 at002e = ╱44╱D╱ // 0x1da9 @0x2e
0x1d7b…1db1 at002f = ╱45╱E╱ // 0x1daa @0x2f
0x1d7b…1db1 at0030 = ╱42╱B╱ // 0x1dab @0x30
0x1d7b…1db1 at0031 = ╱4c╱L╱ // 0x1dac @0x31
0x1d7b…1db1 at0032 = ╱4b╱K╱ // 0x1dad @0x32
0x1d7b…1db1 at0033 = ╱ef╱$╱ // 0x1dae @0x33
0x1d7b…1db1 at0034 = ╱ee╱)╱ // 0x1daf @0x34
0x1d7b…1db1 at0035 = EOL // 0x1db0 @0x35
0x1d7b…1db1 }
0x1db1…1dbd ab14 3220 WHEN KRTAL
0x1db1…1dbd LineComalBin {
0x1db1…1dbd ptr = 0xab14 // 0x1db1 @0x0
0x1db1…1dbd lno = 0x0c94 // 0x1db3 @0x2
0x1db1…1dbd at0004 = ╱a301╱ WHEN ╱ // 0x1db5 @0x4
0x1db1…1dbd at0006 = ╱4b╱K╱ // 0x1db7 @0x6
0x1db1…1dbd at0007 = ╱52╱R╱ // 0x1db8 @0x7
0x1db1…1dbd at0008 = ╱54╱T╱ // 0x1db9 @0x8
0x1db1…1dbd at0009 = ╱41╱A╱ // 0x1dba @0x9
0x1db1…1dbd at000a = ╱4c╱L╱ // 0x1dbb @0xa
0x1db1…1dbd at000b = EOL // 0x1dbc @0xb
0x1db1…1dbd }
0x1dbd…1df3 ab4a 3230 EXEC NAVN1(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$)
0x1dbd…1df3 LineComalBin {
0x1dbd…1df3 ptr = 0xab4a // 0x1dbd @0x0
0x1dbd…1df3 lno = 0x0c9e // 0x1dbf @0x2
0x1dbd…1df3 at0004 = ╱9d╱ EXEC ╱ // 0x1dc1 @0x4
0x1dbd…1df3 at0005 = ╱4e╱N╱ // 0x1dc2 @0x5
0x1dbd…1df3 at0006 = ╱41╱A╱ // 0x1dc3 @0x6
0x1dbd…1df3 at0007 = ╱56╱V╱ // 0x1dc4 @0x7
0x1dbd…1df3 at0008 = ╱4e╱N╱ // 0x1dc5 @0x8
0x1dbd…1df3 at0009 = ╱31╱1╱ // 0x1dc6 @0x9
0x1dbd…1df3 at000a = ╱ed╱(╱ // 0x1dc7 @0xa
0x1dbd…1df3 at000b = ╱4b╱K╱ // 0x1dc8 @0xb
0x1dbd…1df3 at000c = ╱52╱R╱ // 0x1dc9 @0xc
0x1dbd…1df3 at000d = ╱45╱E╱ // 0x1dca @0xd
0x1dbd…1df3 at000e = ╱4e╱N╱ // 0x1dcb @0xe
0x1dbd…1df3 at000f = ╱41╱A╱ // 0x1dcc @0xf
0x1dbd…1df3 at0010 = ╱56╱V╱ // 0x1dcd @0x10
0x1dbd…1df3 at0011 = ╱4e╱N╱ // 0x1dce @0x11
0x1dbd…1df3 at0012 = ╱ef╱$╱ // 0x1dcf @0x12
0x1dbd…1df3 at0013 = ╱ec╱,╱ // 0x1dd0 @0x13
0x1dbd…1df3 at0014 = ╱4b╱K╱ // 0x1dd1 @0x14
0x1dbd…1df3 at0015 = ╱52╱R╱ // 0x1dd2 @0x15
0x1dbd…1df3 at0016 = ╱45╱E╱ // 0x1dd3 @0x16
0x1dbd…1df3 at0017 = ╱47╱G╱ // 0x1dd4 @0x17
0x1dbd…1df3 at0018 = ╱41╱A╱ // 0x1dd5 @0x18
0x1dbd…1df3 at0019 = ╱44╱D╱ // 0x1dd6 @0x19
0x1dbd…1df3 at001a = ╱45╱E╱ // 0x1dd7 @0x1a
0x1dbd…1df3 at001b = ╱ef╱$╱ // 0x1dd8 @0x1b
0x1dbd…1df3 at001c = ╱ec╱,╱ // 0x1dd9 @0x1c
0x1dbd…1df3 at001d = ╱4b╱K╱ // 0x1dda @0x1d
0x1dbd…1df3 at001e = ╱52╱R╱ // 0x1ddb @0x1e
0x1dbd…1df3 at001f = ╱45╱E╱ // 0x1ddc @0x1f
0x1dbd…1df3 at0020 = ╱50╱P╱ // 0x1ddd @0x20
0x1dbd…1df3 at0021 = ╱4f╱O╱ // 0x1dde @0x21
0x1dbd…1df3 at0022 = ╱53╱S╱ // 0x1ddf @0x22
0x1dbd…1df3 at0023 = ╱54╱T╱ // 0x1de0 @0x23
0x1dbd…1df3 at0024 = ╱4e╱N╱ // 0x1de1 @0x24
0x1dbd…1df3 at0025 = ╱52╱R╱ // 0x1de2 @0x25
0x1dbd…1df3 at0026 = ╱ec╱,╱ // 0x1de3 @0x26
0x1dbd…1df3 at0027 = ╱4b╱K╱ // 0x1de4 @0x27
0x1dbd…1df3 at0028 = ╱52╱R╱ // 0x1de5 @0x28
0x1dbd…1df3 at0029 = ╱45╱E╱ // 0x1de6 @0x29
0x1dbd…1df3 at002a = ╱42╱B╱ // 0x1de7 @0x2a
0x1dbd…1df3 at002b = ╱59╱Y╱ // 0x1de8 @0x2b
0x1dbd…1df3 at002c = ╱ef╱$╱ // 0x1de9 @0x2c
0x1dbd…1df3 at002d = ╱ec╱,╱ // 0x1dea @0x2d
0x1dbd…1df3 at002e = ╱4b╱K╱ // 0x1deb @0x2e
0x1dbd…1df3 at002f = ╱52╱R╱ // 0x1dec @0x2f
0x1dbd…1df3 at0030 = ╱45╱E╱ // 0x1ded @0x30
0x1dbd…1df3 at0031 = ╱4c╱L╱ // 0x1dee @0x31
0x1dbd…1df3 at0032 = ╱4b╱K╱ // 0x1def @0x32
0x1dbd…1df3 at0033 = ╱ef╱$╱ // 0x1df0 @0x33
0x1dbd…1df3 at0034 = ╱ee╱)╱ // 0x1df1 @0x34
0x1dbd…1df3 at0035 = EOL // 0x1df2 @0x35
0x1dbd…1df3 }
0x1df3…1df9 ab50 3240 ENDCASE
0x1df3…1df9 LineComalBin {
0x1df3…1df9 ptr = 0xab50 // 0x1df3 @0x0
0x1df3…1df9 lno = 0x0ca8 // 0x1df5 @0x2
0x1df3…1df9 at0004 = ╱a4╱ ENDCASE ╱ // 0x1df7 @0x4
0x1df3…1df9 at0005 = EOL // 0x1df8 @0x5
0x1df3…1df9 }
0x1df9…1dff ab56 3250 ENDPROC
0x1df9…1dff LineComalBin {
0x1df9…1dff ptr = 0xab56 // 0x1df9 @0x0
0x1df9…1dff lno = 0x0cb2 // 0x1dfb @0x2
0x1df9…1dff at0004 = ╱9f╱ ENDPROC ╱ // 0x1dfd @0x4
0x1df9…1dff at0005 = EOL // 0x1dfe @0x5
0x1df9…1dff }
0x1dff…1e0e ab65 3260 PROC HSUDSKRIV
0x1dff…1e0e LineComalBin {
0x1dff…1e0e ptr = 0xab65 // 0x1dff @0x0
0x1dff…1e0e lno = 0x0cbc // 0x1e01 @0x2
0x1dff…1e0e at0004 = ╱9e╱ PROC ╱ // 0x1e03 @0x4
0x1dff…1e0e at0005 = ╱48╱H╱ // 0x1e04 @0x5
0x1dff…1e0e at0006 = ╱53╱S╱ // 0x1e05 @0x6
0x1dff…1e0e at0007 = ╱55╱U╱ // 0x1e06 @0x7
0x1dff…1e0e at0008 = ╱44╱D╱ // 0x1e07 @0x8
0x1dff…1e0e at0009 = ╱53╱S╱ // 0x1e08 @0x9
0x1dff…1e0e at000a = ╱4b╱K╱ // 0x1e09 @0xa
0x1dff…1e0e at000b = ╱52╱R╱ // 0x1e0a @0xb
0x1dff…1e0e at000c = ╱49╱I╱ // 0x1e0b @0xc
0x1dff…1e0e at000d = ╱56╱V╱ // 0x1e0c @0xd
0x1dff…1e0e at000e = EOL // 0x1e0d @0xe
0x1dff…1e0e }
0x1e0e…1e1a ab71 3270 IF SKRIV THEN
0x1e0e…1e1a LineComalBin {
0x1e0e…1e1a ptr = 0xab71 // 0x1e0e @0x0
0x1e0e…1e1a lno = 0x0cc6 // 0x1e10 @0x2
0x1e0e…1e1a at0004 = ╱9c╱ IF ╱ // 0x1e12 @0x4
0x1e0e…1e1a at0005 = ╱53╱S╱ // 0x1e13 @0x5
0x1e0e…1e1a at0006 = ╱4b╱K╱ // 0x1e14 @0x6
0x1e0e…1e1a at0007 = ╱52╱R╱ // 0x1e15 @0x7
0x1e0e…1e1a at0008 = ╱49╱I╱ // 0x1e16 @0x8
0x1e0e…1e1a at0009 = ╱56╱V╱ // 0x1e17 @0x9
0x1e0e…1e1a at000a = ╱b6╱ THEN ╱ // 0x1e18 @0xa
0x1e0e…1e1a at000b = EOL // 0x1e19 @0xb
0x1e0e…1e1a }
0x1e1a…1e56 abad 3280 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side"
0x1e1a…1e56 LineComalBin {
0x1e1a…1e56 ptr = 0xabad // 0x1e1a @0x0
0x1e1a…1e56 lno = 0x0cd0 // 0x1e1c @0x2
0x1e1a…1e56 at0004 = ╱92╱ PRINT ╱ // 0x1e1e @0x4
0x1e1a…1e56 at0005 = ╱d2╱TAB╱ // 0x1e1f @0x5
0x1e1a…1e56 at0006 = ╱ed╱(╱ // 0x1e20 @0x6
0x1e1a…1e56 at0007 = ╱34╱4╱ // 0x1e21 @0x7
0x1e1a…1e56 at0008 = ╱39╱9╱ // 0x1e22 @0x8
0x1e1a…1e56 at0009 = ╱fe0000c406╱ // 0x1e23 @0x9
0x1e1a…1e56 at000e = ╱ee╱)╱ // 0x1e28 @0xe
0x1e1a…1e56 at000f = ╱eb╱;╱ // 0x1e29 @0xf
0x1e1a…1e56 at0010 = ╱22╱"╱ // 0x1e2a @0x10
0x1e1a…1e56 at0011 = ╱4b╱K╱ // 0x1e2b @0x11
0x1e1a…1e56 at0012 = ╱6f╱o╱ // 0x1e2c @0x12
0x1e1a…1e56 at0013 = ╱6e╱n╱ // 0x1e2d @0x13
0x1e1a…1e56 at0014 = ╱74╱t╱ // 0x1e2e @0x14
0x1e1a…1e56 at0015 = ╱6f╱o╱ // 0x1e2f @0x15
0x1e1a…1e56 at0016 = ╱22╱"╱ // 0x1e30 @0x16
0x1e1a…1e56 at0017 = ╱eb╱;╱ // 0x1e31 @0x17
0x1e1a…1e56 at0018 = ╱d2╱TAB╱ // 0x1e32 @0x18
0x1e1a…1e56 at0019 = ╱ed╱(╱ // 0x1e33 @0x19
0x1e1a…1e56 at001a = ╱35╱5╱ // 0x1e34 @0x1a
0x1e1a…1e56 at001b = ╱36╱6╱ // 0x1e35 @0x1b
0x1e1a…1e56 at001c = ╱fe0000e006╱ // 0x1e36 @0x1c
0x1e1a…1e56 at0021 = ╱ee╱)╱ // 0x1e3b @0x21
0x1e1a…1e56 at0022 = ╱eb╱;╱ // 0x1e3c @0x22
0x1e1a…1e56 at0023 = ╱22╱"╱ // 0x1e3d @0x23
0x1e1a…1e56 at0024 = ╱44╱D╱ // 0x1e3e @0x24
0x1e1a…1e56 at0025 = ╱61╱a╱ // 0x1e3f @0x25
0x1e1a…1e56 at0026 = ╱74╱t╱ // 0x1e40 @0x26
0x1e1a…1e56 at0027 = ╱6f╱o╱ // 0x1e41 @0x27
0x1e1a…1e56 at0028 = ╱22╱"╱ // 0x1e42 @0x28
0x1e1a…1e56 at0029 = ╱eb╱;╱ // 0x1e43 @0x29
0x1e1a…1e56 at002a = ╱d2╱TAB╱ // 0x1e44 @0x2a
0x1e1a…1e56 at002b = ╱ed╱(╱ // 0x1e45 @0x2b
0x1e1a…1e56 at002c = ╱36╱6╱ // 0x1e46 @0x2c
0x1e1a…1e56 at002d = ╱38╱8╱ // 0x1e47 @0x2d
0x1e1a…1e56 at002e = ╱fe00008807╱ // 0x1e48 @0x2e
0x1e1a…1e56 at0033 = ╱ee╱)╱ // 0x1e4d @0x33
0x1e1a…1e56 at0034 = ╱eb╱;╱ // 0x1e4e @0x34
0x1e1a…1e56 at0035 = ╱22╱"╱ // 0x1e4f @0x35
0x1e1a…1e56 at0036 = ╱53╱S╱ // 0x1e50 @0x36
0x1e1a…1e56 at0037 = ╱69╱i╱ // 0x1e51 @0x37
0x1e1a…1e56 at0038 = ╱64╱d╱ // 0x1e52 @0x38
0x1e1a…1e56 at0039 = ╱65╱e╱ // 0x1e53 @0x39
0x1e1a…1e56 at003a = ╱22╱"╱ // 0x1e54 @0x3a
0x1e1a…1e56 at003b = EOL // 0x1e55 @0x3b
0x1e1a…1e56 }
0x1e56…1e78 abcf 3290 PRINT TAB(49);STREG$(E:29)
0x1e56…1e78 LineComalBin {
0x1e56…1e78 ptr = 0xabcf // 0x1e56 @0x0
0x1e56…1e78 lno = 0x0cda // 0x1e58 @0x2
0x1e56…1e78 at0004 = ╱92╱ PRINT ╱ // 0x1e5a @0x4
0x1e56…1e78 at0005 = ╱d2╱TAB╱ // 0x1e5b @0x5
0x1e56…1e78 at0006 = ╱ed╱(╱ // 0x1e5c @0x6
0x1e56…1e78 at0007 = ╱34╱4╱ // 0x1e5d @0x7
0x1e56…1e78 at0008 = ╱39╱9╱ // 0x1e5e @0x8
0x1e56…1e78 at0009 = ╱fe0000c406╱ // 0x1e5f @0x9
0x1e56…1e78 at000e = ╱ee╱)╱ // 0x1e64 @0xe
0x1e56…1e78 at000f = ╱eb╱;╱ // 0x1e65 @0xf
0x1e56…1e78 at0010 = ╱53╱S╱ // 0x1e66 @0x10
0x1e56…1e78 at0011 = ╱54╱T╱ // 0x1e67 @0x11
0x1e56…1e78 at0012 = ╱52╱R╱ // 0x1e68 @0x12
0x1e56…1e78 at0013 = ╱45╱E╱ // 0x1e69 @0x13
0x1e56…1e78 at0014 = ╱47╱G╱ // 0x1e6a @0x14
0x1e56…1e78 at0015 = ╱ef╱$╱ // 0x1e6b @0x15
0x1e56…1e78 at0016 = ╱ed╱(╱ // 0x1e6c @0x16
0x1e56…1e78 at0017 = ╱45╱E╱ // 0x1e6d @0x17
0x1e56…1e78 at0018 = ╱f0╱:╱ // 0x1e6e @0x18
0x1e56…1e78 at0019 = ╱32╱2╱ // 0x1e6f @0x19
0x1e56…1e78 at001a = ╱39╱9╱ // 0x1e70 @0x1a
0x1e56…1e78 at001b = ╱fe0000e805╱ // 0x1e71 @0x1b
0x1e56…1e78 at0020 = ╱ee╱)╱ // 0x1e76 @0x20
0x1e56…1e78 at0021 = EOL // 0x1e77 @0x21
0x1e56…1e78 }
0x1e78…1e99 abf0 3300 EXEC LUDSKRIV(KONT,DATO,KSIDENR)
0x1e78…1e99 LineComalBin {
0x1e78…1e99 ptr = 0xabf0 // 0x1e78 @0x0
0x1e78…1e99 lno = 0x0ce4 // 0x1e7a @0x2
0x1e78…1e99 at0004 = ╱9d╱ EXEC ╱ // 0x1e7c @0x4
0x1e78…1e99 at0005 = ╱4c╱L╱ // 0x1e7d @0x5
0x1e78…1e99 at0006 = ╱55╱U╱ // 0x1e7e @0x6
0x1e78…1e99 at0007 = ╱44╱D╱ // 0x1e7f @0x7
0x1e78…1e99 at0008 = ╱53╱S╱ // 0x1e80 @0x8
0x1e78…1e99 at0009 = ╱4b╱K╱ // 0x1e81 @0x9
0x1e78…1e99 at000a = ╱52╱R╱ // 0x1e82 @0xa
0x1e78…1e99 at000b = ╱49╱I╱ // 0x1e83 @0xb
0x1e78…1e99 at000c = ╱56╱V╱ // 0x1e84 @0xc
0x1e78…1e99 at000d = ╱ed╱(╱ // 0x1e85 @0xd
0x1e78…1e99 at000e = ╱4b╱K╱ // 0x1e86 @0xe
0x1e78…1e99 at000f = ╱4f╱O╱ // 0x1e87 @0xf
0x1e78…1e99 at0010 = ╱4e╱N╱ // 0x1e88 @0x10
0x1e78…1e99 at0011 = ╱54╱T╱ // 0x1e89 @0x11
0x1e78…1e99 at0012 = ╱ec╱,╱ // 0x1e8a @0x12
0x1e78…1e99 at0013 = ╱44╱D╱ // 0x1e8b @0x13
0x1e78…1e99 at0014 = ╱41╱A╱ // 0x1e8c @0x14
0x1e78…1e99 at0015 = ╱54╱T╱ // 0x1e8d @0x15
0x1e78…1e99 at0016 = ╱4f╱O╱ // 0x1e8e @0x16
0x1e78…1e99 at0017 = ╱ec╱,╱ // 0x1e8f @0x17
0x1e78…1e99 at0018 = ╱4b╱K╱ // 0x1e90 @0x18
0x1e78…1e99 at0019 = ╱53╱S╱ // 0x1e91 @0x19
0x1e78…1e99 at001a = ╱49╱I╱ // 0x1e92 @0x1a
0x1e78…1e99 at001b = ╱44╱D╱ // 0x1e93 @0x1b
0x1e78…1e99 at001c = ╱45╱E╱ // 0x1e94 @0x1c
0x1e78…1e99 at001d = ╱4e╱N╱ // 0x1e95 @0x1d
0x1e78…1e99 at001e = ╱52╱R╱ // 0x1e96 @0x1e
0x1e78…1e99 at001f = ╱ee╱)╱ // 0x1e97 @0x1f
0x1e78…1e99 at0020 = EOL // 0x1e98 @0x20
0x1e78…1e99 }
0x1e99…1ea5 abfc 3310 PRINT STREG$
0x1e99…1ea5 LineComalBin {
0x1e99…1ea5 ptr = 0xabfc // 0x1e99 @0x0
0x1e99…1ea5 lno = 0x0cee // 0x1e9b @0x2
0x1e99…1ea5 at0004 = ╱92╱ PRINT ╱ // 0x1e9d @0x4
0x1e99…1ea5 at0005 = ╱53╱S╱ // 0x1e9e @0x5
0x1e99…1ea5 at0006 = ╱54╱T╱ // 0x1e9f @0x6
0x1e99…1ea5 at0007 = ╱52╱R╱ // 0x1ea0 @0x7
0x1e99…1ea5 at0008 = ╱45╱E╱ // 0x1ea1 @0x8
0x1e99…1ea5 at0009 = ╱47╱G╱ // 0x1ea2 @0x9
0x1e99…1ea5 at000a = ╱ef╱$╱ // 0x1ea3 @0xa
0x1e99…1ea5 at000b = EOL // 0x1ea4 @0xb
0x1e99…1ea5 }
0x1ea5…1eab ac02 3320 ELSE
0x1ea5…1eab LineComalBin {
0x1ea5…1eab ptr = 0xac02 // 0x1ea5 @0x0
0x1ea5…1eab lno = 0x0cf8 // 0x1ea7 @0x2
0x1ea5…1eab at0004 = ╱9a╱ ELSE ╱ // 0x1ea9 @0x4
0x1ea5…1eab at0005 = EOL // 0x1eaa @0x5
0x1ea5…1eab }
0x1eab…1eb1 ac08 3330 CLEAR
0x1eab…1eb1 LineComalBin {
0x1eab…1eb1 ptr = 0xac08 // 0x1eab @0x0
0x1eab…1eb1 lno = 0x0d02 // 0x1ead @0x2
0x1eab…1eb1 at0004 = ╱a0╱ CLEAR ╱ // 0x1eaf @0x4
0x1eab…1eb1 at0005 = EOL // 0x1eb0 @0x5
0x1eab…1eb1 }
0x1eb1…1ec9 ac20 3340 EXEC OVERSKRIFT(1)
0x1eb1…1ec9 LineComalBin {
0x1eb1…1ec9 ptr = 0xac20 // 0x1eb1 @0x0
0x1eb1…1ec9 lno = 0x0d0c // 0x1eb3 @0x2
0x1eb1…1ec9 at0004 = ╱9d╱ EXEC ╱ // 0x1eb5 @0x4
0x1eb1…1ec9 at0005 = ╱4f╱O╱ // 0x1eb6 @0x5
0x1eb1…1ec9 at0006 = ╱56╱V╱ // 0x1eb7 @0x6
0x1eb1…1ec9 at0007 = ╱45╱E╱ // 0x1eb8 @0x7
0x1eb1…1ec9 at0008 = ╱52╱R╱ // 0x1eb9 @0x8
0x1eb1…1ec9 at0009 = ╱53╱S╱ // 0x1eba @0x9
0x1eb1…1ec9 at000a = ╱4b╱K╱ // 0x1ebb @0xa
0x1eb1…1ec9 at000b = ╱52╱R╱ // 0x1ebc @0xb
0x1eb1…1ec9 at000c = ╱49╱I╱ // 0x1ebd @0xc
0x1eb1…1ec9 at000d = ╱46╱F╱ // 0x1ebe @0xd
0x1eb1…1ec9 at000e = ╱54╱T╱ // 0x1ebf @0xe
0x1eb1…1ec9 at000f = ╱ed╱(╱ // 0x1ec0 @0xf
0x1eb1…1ec9 at0010 = ╱31╱1╱ // 0x1ec1 @0x10
0x1eb1…1ec9 at0011 = ╱fe00008001╱ // 0x1ec2 @0x11
0x1eb1…1ec9 at0016 = ╱ee╱)╱ // 0x1ec7 @0x16
0x1eb1…1ec9 at0017 = EOL // 0x1ec8 @0x17
0x1eb1…1ec9 }
0x1ec9…1ed2 ac29 3350 CURSOR E,V
0x1ec9…1ed2 LineComalBin {
0x1ec9…1ed2 ptr = 0xac29 // 0x1ec9 @0x0
0x1ec9…1ed2 lno = 0x0d16 // 0x1ecb @0x2
0x1ec9…1ed2 at0004 = ╱a1╱ CURSOR ╱ // 0x1ecd @0x4
0x1ec9…1ed2 at0005 = ╱45╱E╱ // 0x1ece @0x5
0x1ec9…1ed2 at0006 = ╱ec╱,╱ // 0x1ecf @0x6
0x1ec9…1ed2 at0007 = ╱56╱V╱ // 0x1ed0 @0x7
0x1ec9…1ed2 at0008 = EOL // 0x1ed1 @0x8
0x1ec9…1ed2 }
0x1ed2…1ed8 ac2f 3360 ENDIF
0x1ed2…1ed8 LineComalBin {
0x1ed2…1ed8 ptr = 0xac2f // 0x1ed2 @0x0
0x1ed2…1ed8 lno = 0x0d20 // 0x1ed4 @0x2
0x1ed2…1ed8 at0004 = ╱9b╱ ENDIF ╱ // 0x1ed6 @0x4
0x1ed2…1ed8 at0005 = EOL // 0x1ed7 @0x5
0x1ed2…1ed8 }
0x1ed8…1f25 ac7c 3370 PRINT TAB(V);"Dato";TAB(12);"Bilag Tekst";TAB(44);"Entre";TAB(57);
0x1ed8…1f25 LineComalBin {
0x1ed8…1f25 ptr = 0xac7c // 0x1ed8 @0x0
0x1ed8…1f25 lno = 0x0d2a // 0x1eda @0x2
0x1ed8…1f25 at0004 = ╱92╱ PRINT ╱ // 0x1edc @0x4
0x1ed8…1f25 at0005 = ╱d2╱TAB╱ // 0x1edd @0x5
0x1ed8…1f25 at0006 = ╱ed╱(╱ // 0x1ede @0x6
0x1ed8…1f25 at0007 = ╱56╱V╱ // 0x1edf @0x7
0x1ed8…1f25 at0008 = ╱ee╱)╱ // 0x1ee0 @0x8
0x1ed8…1f25 at0009 = ╱eb╱;╱ // 0x1ee1 @0x9
0x1ed8…1f25 at000a = ╱22╱"╱ // 0x1ee2 @0xa
0x1ed8…1f25 at000b = ╱44╱D╱ // 0x1ee3 @0xb
0x1ed8…1f25 at000c = ╱61╱a╱ // 0x1ee4 @0xc
0x1ed8…1f25 at000d = ╱74╱t╱ // 0x1ee5 @0xd
0x1ed8…1f25 at000e = ╱6f╱o╱ // 0x1ee6 @0xe
0x1ed8…1f25 at000f = ╱22╱"╱ // 0x1ee7 @0xf
0x1ed8…1f25 at0010 = ╱eb╱;╱ // 0x1ee8 @0x10
0x1ed8…1f25 at0011 = ╱d2╱TAB╱ // 0x1ee9 @0x11
0x1ed8…1f25 at0012 = ╱ed╱(╱ // 0x1eea @0x12
0x1ed8…1f25 at0013 = ╱31╱1╱ // 0x1eeb @0x13
0x1ed8…1f25 at0014 = ╱32╱2╱ // 0x1eec @0x14
0x1ed8…1f25 at0015 = ╱fe0000c004╱ // 0x1eed @0x15
0x1ed8…1f25 at001a = ╱ee╱)╱ // 0x1ef2 @0x1a
0x1ed8…1f25 at001b = ╱eb╱;╱ // 0x1ef3 @0x1b
0x1ed8…1f25 at001c = ╱22╱"╱ // 0x1ef4 @0x1c
0x1ed8…1f25 at001d = ╱42╱B╱ // 0x1ef5 @0x1d
0x1ed8…1f25 at001e = ╱69╱i╱ // 0x1ef6 @0x1e
0x1ed8…1f25 at001f = ╱6c╱l╱ // 0x1ef7 @0x1f
0x1ed8…1f25 at0020 = ╱61╱a╱ // 0x1ef8 @0x20
0x1ed8…1f25 at0021 = ╱67╱g╱ // 0x1ef9 @0x21
0x1ed8…1f25 at0022 = ╱20╱…╱ // 0x1efa @0x22
0x1ed8…1f25 at0023 = ╱20╱…╱ // 0x1efb @0x23
0x1ed8…1f25 at0024 = ╱20╱…╱ // 0x1efc @0x24
0x1ed8…1f25 at0025 = ╱20╱…╱ // 0x1efd @0x25
0x1ed8…1f25 at0026 = ╱20╱…╱ // 0x1efe @0x26
0x1ed8…1f25 at0027 = ╱54╱T╱ // 0x1eff @0x27
0x1ed8…1f25 at0028 = ╱65╱e╱ // 0x1f00 @0x28
0x1ed8…1f25 at0029 = ╱6b╱k╱ // 0x1f01 @0x29
0x1ed8…1f25 at002a = ╱73╱s╱ // 0x1f02 @0x2a
0x1ed8…1f25 at002b = ╱74╱t╱ // 0x1f03 @0x2b
0x1ed8…1f25 at002c = ╱22╱"╱ // 0x1f04 @0x2c
0x1ed8…1f25 at002d = ╱eb╱;╱ // 0x1f05 @0x2d
0x1ed8…1f25 at002e = ╱d2╱TAB╱ // 0x1f06 @0x2e
0x1ed8…1f25 at002f = ╱ed╱(╱ // 0x1f07 @0x2f
0x1ed8…1f25 at0030 = ╱34╱4╱ // 0x1f08 @0x30
0x1ed8…1f25 at0031 = ╱34╱4╱ // 0x1f09 @0x31
0x1ed8…1f25 at0032 = ╱fe0000b006╱ // 0x1f0a @0x32
0x1ed8…1f25 at0037 = ╱ee╱)╱ // 0x1f0f @0x37
0x1ed8…1f25 at0038 = ╱eb╱;╱ // 0x1f10 @0x38
0x1ed8…1f25 at0039 = ╱22╱"╱ // 0x1f11 @0x39
0x1ed8…1f25 at003a = ╱45╱E╱ // 0x1f12 @0x3a
0x1ed8…1f25 at003b = ╱6e╱n╱ // 0x1f13 @0x3b
0x1ed8…1f25 at003c = ╱74╱t╱ // 0x1f14 @0x3c
0x1ed8…1f25 at003d = ╱72╱r╱ // 0x1f15 @0x3d
0x1ed8…1f25 at003e = ╱65╱e╱ // 0x1f16 @0x3e
0x1ed8…1f25 at003f = ╱22╱"╱ // 0x1f17 @0x3f
0x1ed8…1f25 at0040 = ╱eb╱;╱ // 0x1f18 @0x40
0x1ed8…1f25 at0041 = ╱d2╱TAB╱ // 0x1f19 @0x41
0x1ed8…1f25 at0042 = ╱ed╱(╱ // 0x1f1a @0x42
0x1ed8…1f25 at0043 = ╱35╱5╱ // 0x1f1b @0x43
0x1ed8…1f25 at0044 = ╱37╱7╱ // 0x1f1c @0x44
0x1ed8…1f25 at0045 = ╱fe0000e406╱ // 0x1f1d @0x45
0x1ed8…1f25 at004a = ╱ee╱)╱ // 0x1f22 @0x4a
0x1ed8…1f25 at004b = ╱eb╱;╱ // 0x1f23 @0x4b
0x1ed8…1f25 at004c = EOL // 0x1f24 @0x4c
0x1ed8…1f25 }
0x1f25…1f46 ac9d 3375 PRINT "Debet";TAB(72);"Kredit"
0x1f25…1f46 LineComalBin {
0x1f25…1f46 ptr = 0xac9d // 0x1f25 @0x0
0x1f25…1f46 lno = 0x0d2f // 0x1f27 @0x2
0x1f25…1f46 at0004 = ╱92╱ PRINT ╱ // 0x1f29 @0x4
0x1f25…1f46 at0005 = ╱22╱"╱ // 0x1f2a @0x5
0x1f25…1f46 at0006 = ╱44╱D╱ // 0x1f2b @0x6
0x1f25…1f46 at0007 = ╱65╱e╱ // 0x1f2c @0x7
0x1f25…1f46 at0008 = ╱62╱b╱ // 0x1f2d @0x8
0x1f25…1f46 at0009 = ╱65╱e╱ // 0x1f2e @0x9
0x1f25…1f46 at000a = ╱74╱t╱ // 0x1f2f @0xa
0x1f25…1f46 at000b = ╱22╱"╱ // 0x1f30 @0xb
0x1f25…1f46 at000c = ╱eb╱;╱ // 0x1f31 @0xc
0x1f25…1f46 at000d = ╱d2╱TAB╱ // 0x1f32 @0xd
0x1f25…1f46 at000e = ╱ed╱(╱ // 0x1f33 @0xe
0x1f25…1f46 at000f = ╱37╱7╱ // 0x1f34 @0xf
0x1f25…1f46 at0010 = ╱32╱2╱ // 0x1f35 @0x10
0x1f25…1f46 at0011 = ╱fe00009007╱ // 0x1f36 @0x11
0x1f25…1f46 at0016 = ╱ee╱)╱ // 0x1f3b @0x16
0x1f25…1f46 at0017 = ╱eb╱;╱ // 0x1f3c @0x17
0x1f25…1f46 at0018 = ╱22╱"╱ // 0x1f3d @0x18
0x1f25…1f46 at0019 = ╱4b╱K╱ // 0x1f3e @0x19
0x1f25…1f46 at001a = ╱72╱r╱ // 0x1f3f @0x1a
0x1f25…1f46 at001b = ╱65╱e╱ // 0x1f40 @0x1b
0x1f25…1f46 at001c = ╱64╱d╱ // 0x1f41 @0x1c
0x1f25…1f46 at001d = ╱69╱i╱ // 0x1f42 @0x1d
0x1f25…1f46 at001e = ╱74╱t╱ // 0x1f43 @0x1e
0x1f25…1f46 at001f = ╱22╱"╱ // 0x1f44 @0x1f
0x1f25…1f46 at0020 = EOL // 0x1f45 @0x20
0x1f25…1f46 }
0x1f46…1f52 aca9 3390 PRINT STREG$
0x1f46…1f52 LineComalBin {
0x1f46…1f52 ptr = 0xaca9 // 0x1f46 @0x0
0x1f46…1f52 lno = 0x0d3e // 0x1f48 @0x2
0x1f46…1f52 at0004 = ╱92╱ PRINT ╱ // 0x1f4a @0x4
0x1f46…1f52 at0005 = ╱53╱S╱ // 0x1f4b @0x5
0x1f46…1f52 at0006 = ╱54╱T╱ // 0x1f4c @0x6
0x1f46…1f52 at0007 = ╱52╱R╱ // 0x1f4d @0x7
0x1f46…1f52 at0008 = ╱45╱E╱ // 0x1f4e @0x8
0x1f46…1f52 at0009 = ╱47╱G╱ // 0x1f4f @0x9
0x1f46…1f52 at000a = ╱ef╱$╱ // 0x1f50 @0xa
0x1f46…1f52 at000b = EOL // 0x1f51 @0xb
0x1f46…1f52 }
0x1f52…1f58 acaf 3400 ENDPROC
0x1f52…1f58 LineComalBin {
0x1f52…1f58 ptr = 0xacaf // 0x1f52 @0x0
0x1f52…1f58 lno = 0x0d48 // 0x1f54 @0x2
0x1f52…1f58 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f56 @0x4
0x1f52…1f58 at0005 = EOL // 0x1f57 @0x5
0x1f52…1f58 }
0x1f58…1f6e acc5 3410 PROC OVERSKRIFT(ART1)
0x1f58…1f6e LineComalBin {
0x1f58…1f6e ptr = 0xacc5 // 0x1f58 @0x0
0x1f58…1f6e lno = 0x0d52 // 0x1f5a @0x2
0x1f58…1f6e at0004 = ╱9e╱ PROC ╱ // 0x1f5c @0x4
0x1f58…1f6e at0005 = ╱4f╱O╱ // 0x1f5d @0x5
0x1f58…1f6e at0006 = ╱56╱V╱ // 0x1f5e @0x6
0x1f58…1f6e at0007 = ╱45╱E╱ // 0x1f5f @0x7
0x1f58…1f6e at0008 = ╱52╱R╱ // 0x1f60 @0x8
0x1f58…1f6e at0009 = ╱53╱S╱ // 0x1f61 @0x9
0x1f58…1f6e at000a = ╱4b╱K╱ // 0x1f62 @0xa
0x1f58…1f6e at000b = ╱52╱R╱ // 0x1f63 @0xb
0x1f58…1f6e at000c = ╱49╱I╱ // 0x1f64 @0xc
0x1f58…1f6e at000d = ╱46╱F╱ // 0x1f65 @0xd
0x1f58…1f6e at000e = ╱54╱T╱ // 0x1f66 @0xe
0x1f58…1f6e at000f = ╱ed╱(╱ // 0x1f67 @0xf
0x1f58…1f6e at0010 = ╱41╱A╱ // 0x1f68 @0x10
0x1f58…1f6e at0011 = ╱52╱R╱ // 0x1f69 @0x11
0x1f58…1f6e at0012 = ╱54╱T╱ // 0x1f6a @0x12
0x1f58…1f6e at0013 = ╱31╱1╱ // 0x1f6b @0x13
0x1f58…1f6e at0014 = ╱ee╱)╱ // 0x1f6c @0x14
0x1f58…1f6e at0015 = EOL // 0x1f6d @0x15
0x1f58…1f6e }
0x1f6e…1f7b acd2 3420 IF ART1=B THEN
0x1f6e…1f7b LineComalBin {
0x1f6e…1f7b ptr = 0xacd2 // 0x1f6e @0x0
0x1f6e…1f7b lno = 0x0d5c // 0x1f70 @0x2
0x1f6e…1f7b at0004 = ╱9c╱ IF ╱ // 0x1f72 @0x4
0x1f6e…1f7b at0005 = ╱41╱A╱ // 0x1f73 @0x5
0x1f6e…1f7b at0006 = ╱52╱R╱ // 0x1f74 @0x6
0x1f6e…1f7b at0007 = ╱54╱T╱ // 0x1f75 @0x7
0x1f6e…1f7b at0008 = ╱31╱1╱ // 0x1f76 @0x8
0x1f6e…1f7b at0009 = ╱dc╱=╱ // 0x1f77 @0x9
0x1f6e…1f7b at000a = ╱42╱B╱ // 0x1f78 @0xa
0x1f6e…1f7b at000b = ╱b6╱ THEN ╱ // 0x1f79 @0xb
0x1f6e…1f7b at000c = EOL // 0x1f7a @0xc
0x1f6e…1f7b }
0x1f7b…1fb8 ad0f 3430 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$
0x1f7b…1fb8 LineComalBin {
0x1f7b…1fb8 ptr = 0xad0f // 0x1f7b @0x0
0x1f7b…1fb8 lno = 0x0d66 // 0x1f7d @0x2
0x1f7b…1fb8 at0004 = ╱92╱ PRINT ╱ // 0x1f7f @0x4
0x1f7b…1fb8 at0005 = ╱d2╱TAB╱ // 0x1f80 @0x5
0x1f7b…1fb8 at0006 = ╱ed╱(╱ // 0x1f81 @0x6
0x1f7b…1fb8 at0007 = ╱32╱2╱ // 0x1f82 @0x7
0x1f7b…1fb8 at0008 = ╱31╱1╱ // 0x1f83 @0x8
0x1f7b…1fb8 at0009 = ╱fe0000a805╱ // 0x1f84 @0x9
0x1f7b…1fb8 at000e = ╱ee╱)╱ // 0x1f89 @0xe
0x1f7b…1fb8 at000f = ╱eb╱;╱ // 0x1f8a @0xf
0x1f7b…1fb8 at0010 = ╱22╱"╱ // 0x1f8b @0x10
0x1f7b…1fb8 at0011 = ╱4b╱K╱ // 0x1f8c @0x11
0x1f7b…1fb8 at0012 = ╱6f╱o╱ // 0x1f8d @0x12
0x1f7b…1fb8 at0013 = ╱6e╱n╱ // 0x1f8e @0x13
0x1f7b…1fb8 at0014 = ╱74╱t╱ // 0x1f8f @0x14
0x1f7b…1fb8 at0015 = ╱6f╱o╱ // 0x1f90 @0x15
0x1f7b…1fb8 at0016 = ╱73╱s╱ // 0x1f91 @0x16
0x1f7b…1fb8 at0017 = ╱70╱p╱ // 0x1f92 @0x17
0x1f7b…1fb8 at0018 = ╱7c╱ø╱ // 0x1f93 @0x18
0x1f7b…1fb8 at0019 = ╱72╱r╱ // 0x1f94 @0x19
0x1f7b…1fb8 at001a = ╱67╱g╱ // 0x1f95 @0x1a
0x1f7b…1fb8 at001b = ╱65╱e╱ // 0x1f96 @0x1b
0x1f7b…1fb8 at001c = ╱70╱p╱ // 0x1f97 @0x1c
0x1f7b…1fb8 at001d = ╱72╱r╱ // 0x1f98 @0x1d
0x1f7b…1fb8 at001e = ╱6f╱o╱ // 0x1f99 @0x1e
0x1f7b…1fb8 at001f = ╱67╱g╱ // 0x1f9a @0x1f
0x1f7b…1fb8 at0020 = ╱72╱r╱ // 0x1f9b @0x20
0x1f7b…1fb8 at0021 = ╱61╱a╱ // 0x1f9c @0x21
0x1f7b…1fb8 at0022 = ╱6d╱m╱ // 0x1f9d @0x22
0x1f7b…1fb8 at0023 = ╱22╱"╱ // 0x1f9e @0x23
0x1f7b…1fb8 at0024 = ╱eb╱;╱ // 0x1f9f @0x24
0x1f7b…1fb8 at0025 = ╱d2╱TAB╱ // 0x1fa0 @0x25
0x1f7b…1fb8 at0026 = ╱ed╱(╱ // 0x1fa1 @0x26
0x1f7b…1fb8 at0027 = ╱36╱6╱ // 0x1fa2 @0x27
0x1f7b…1fb8 at0028 = ╱31╱1╱ // 0x1fa3 @0x28
0x1f7b…1fb8 at0029 = ╱fe0000f406╱ // 0x1fa4 @0x29
0x1f7b…1fb8 at002e = ╱ee╱)╱ // 0x1fa9 @0x2e
0x1f7b…1fb8 at002f = ╱eb╱;╱ // 0x1faa @0x2f
0x1f7b…1fb8 at0030 = ╱22╱"╱ // 0x1fab @0x30
0x1f7b…1fb8 at0031 = ╱44╱D╱ // 0x1fac @0x31
0x1f7b…1fb8 at0032 = ╱61╱a╱ // 0x1fad @0x32
0x1f7b…1fb8 at0033 = ╱74╱t╱ // 0x1fae @0x33
0x1f7b…1fb8 at0034 = ╱6f╱o╱ // 0x1faf @0x34
0x1f7b…1fb8 at0035 = ╱3a╱:╱ // 0x1fb0 @0x35
0x1f7b…1fb8 at0036 = ╱22╱"╱ // 0x1fb1 @0x36
0x1f7b…1fb8 at0037 = ╱eb╱;╱ // 0x1fb2 @0x37
0x1f7b…1fb8 at0038 = ╱44╱D╱ // 0x1fb3 @0x38
0x1f7b…1fb8 at0039 = ╱41╱A╱ // 0x1fb4 @0x39
0x1f7b…1fb8 at003a = ╱54╱T╱ // 0x1fb5 @0x3a
0x1f7b…1fb8 at003b = ╱ef╱$╱ // 0x1fb6 @0x3b
0x1f7b…1fb8 at003c = EOL // 0x1fb7 @0x3c
0x1f7b…1fb8 }
0x1fb8…1fbe ad15 3440 ELSE
0x1fb8…1fbe LineComalBin {
0x1fb8…1fbe ptr = 0xad15 // 0x1fb8 @0x0
0x1fb8…1fbe lno = 0x0d70 // 0x1fba @0x2
0x1fb8…1fbe at0004 = ╱9a╱ ELSE ╱ // 0x1fbc @0x4
0x1fb8…1fbe at0005 = EOL // 0x1fbd @0x5
0x1fb8…1fbe }
0x1fbe…1fc7 ad1e 3450 CURSOR E,E
0x1fbe…1fc7 LineComalBin {
0x1fbe…1fc7 ptr = 0xad1e // 0x1fbe @0x0
0x1fbe…1fc7 lno = 0x0d7a // 0x1fc0 @0x2
0x1fbe…1fc7 at0004 = ╱a1╱ CURSOR ╱ // 0x1fc2 @0x4
0x1fbe…1fc7 at0005 = ╱45╱E╱ // 0x1fc3 @0x5
0x1fbe…1fc7 at0006 = ╱ec╱,╱ // 0x1fc4 @0x6
0x1fbe…1fc7 at0007 = ╱45╱E╱ // 0x1fc5 @0x7
0x1fbe…1fc7 at0008 = EOL // 0x1fc6 @0x8
0x1fbe…1fc7 }
0x1fc7…1fe8 ad3f 3460 PRINT "Kontospørgeprogram Nr:";
0x1fc7…1fe8 LineComalBin {
0x1fc7…1fe8 ptr = 0xad3f // 0x1fc7 @0x0
0x1fc7…1fe8 lno = 0x0d84 // 0x1fc9 @0x2
0x1fc7…1fe8 at0004 = ╱92╱ PRINT ╱ // 0x1fcb @0x4
0x1fc7…1fe8 at0005 = ╱22╱"╱ // 0x1fcc @0x5
0x1fc7…1fe8 at0006 = ╱4b╱K╱ // 0x1fcd @0x6
0x1fc7…1fe8 at0007 = ╱6f╱o╱ // 0x1fce @0x7
0x1fc7…1fe8 at0008 = ╱6e╱n╱ // 0x1fcf @0x8
0x1fc7…1fe8 at0009 = ╱74╱t╱ // 0x1fd0 @0x9
0x1fc7…1fe8 at000a = ╱6f╱o╱ // 0x1fd1 @0xa
0x1fc7…1fe8 at000b = ╱73╱s╱ // 0x1fd2 @0xb
0x1fc7…1fe8 at000c = ╱70╱p╱ // 0x1fd3 @0xc
0x1fc7…1fe8 at000d = ╱7c╱ø╱ // 0x1fd4 @0xd
0x1fc7…1fe8 at000e = ╱72╱r╱ // 0x1fd5 @0xe
0x1fc7…1fe8 at000f = ╱67╱g╱ // 0x1fd6 @0xf
0x1fc7…1fe8 at0010 = ╱65╱e╱ // 0x1fd7 @0x10
0x1fc7…1fe8 at0011 = ╱70╱p╱ // 0x1fd8 @0x11
0x1fc7…1fe8 at0012 = ╱72╱r╱ // 0x1fd9 @0x12
0x1fc7…1fe8 at0013 = ╱6f╱o╱ // 0x1fda @0x13
0x1fc7…1fe8 at0014 = ╱67╱g╱ // 0x1fdb @0x14
0x1fc7…1fe8 at0015 = ╱72╱r╱ // 0x1fdc @0x15
0x1fc7…1fe8 at0016 = ╱61╱a╱ // 0x1fdd @0x16
0x1fc7…1fe8 at0017 = ╱6d╱m╱ // 0x1fde @0x17
0x1fc7…1fe8 at0018 = ╱20╱…╱ // 0x1fdf @0x18
0x1fc7…1fe8 at0019 = ╱20╱…╱ // 0x1fe0 @0x19
0x1fc7…1fe8 at001a = ╱20╱…╱ // 0x1fe1 @0x1a
0x1fc7…1fe8 at001b = ╱4e╱N╱ // 0x1fe2 @0x1b
0x1fc7…1fe8 at001c = ╱72╱r╱ // 0x1fe3 @0x1c
0x1fc7…1fe8 at001d = ╱3a╱:╱ // 0x1fe4 @0x1d
0x1fc7…1fe8 at001e = ╱22╱"╱ // 0x1fe5 @0x1e
0x1fc7…1fe8 at001f = ╱eb╱;╱ // 0x1fe6 @0x1f
0x1fc7…1fe8 at0020 = EOL // 0x1fe7 @0x20
0x1fc7…1fe8 }
0x1fe8…2005 ad5c 3470 PRINT USING "###### Navn :":KONT;
0x1fe8…2005 LineComalBin {
0x1fe8…2005 ptr = 0xad5c // 0x1fe8 @0x0
0x1fe8…2005 lno = 0x0d8e // 0x1fea @0x2
0x1fe8…2005 at0004 = ╱92╱ PRINT ╱ // 0x1fec @0x4
0x1fe8…2005 at0005 = ╱b9╱ USING ╱ // 0x1fed @0x5
0x1fe8…2005 at0006 = ╱22╱"╱ // 0x1fee @0x6
0x1fe8…2005 at0007 = ╱23╱#╱ // 0x1fef @0x7
0x1fe8…2005 at0008 = ╱23╱#╱ // 0x1ff0 @0x8
0x1fe8…2005 at0009 = ╱23╱#╱ // 0x1ff1 @0x9
0x1fe8…2005 at000a = ╱23╱#╱ // 0x1ff2 @0xa
0x1fe8…2005 at000b = ╱23╱#╱ // 0x1ff3 @0xb
0x1fe8…2005 at000c = ╱23╱#╱ // 0x1ff4 @0xc
0x1fe8…2005 at000d = ╱20╱…╱ // 0x1ff5 @0xd
0x1fe8…2005 at000e = ╱20╱…╱ // 0x1ff6 @0xe
0x1fe8…2005 at000f = ╱4e╱N╱ // 0x1ff7 @0xf
0x1fe8…2005 at0010 = ╱61╱a╱ // 0x1ff8 @0x10
0x1fe8…2005 at0011 = ╱76╱v╱ // 0x1ff9 @0x11
0x1fe8…2005 at0012 = ╱6e╱n╱ // 0x1ffa @0x12
0x1fe8…2005 at0013 = ╱20╱…╱ // 0x1ffb @0x13
0x1fe8…2005 at0014 = ╱3a╱:╱ // 0x1ffc @0x14
0x1fe8…2005 at0015 = ╱22╱"╱ // 0x1ffd @0x15
0x1fe8…2005 at0016 = ╱f0╱:╱ // 0x1ffe @0x16
0x1fe8…2005 at0017 = ╱4b╱K╱ // 0x1fff @0x17
0x1fe8…2005 at0018 = ╱4f╱O╱ // 0x2000 @0x18
0x1fe8…2005 at0019 = ╱4e╱N╱ // 0x2001 @0x19
0x1fe8…2005 at001a = ╱54╱T╱ // 0x2002 @0x1a
0x1fe8…2005 at001b = ╱eb╱;╱ // 0x2003 @0x1b
0x1fe8…2005 at001c = EOL // 0x2004 @0x1c
0x1fe8…2005 }
0x2005…2012 ad69 3480 CASE KTAL1 OF
0x2005…2012 LineComalBin {
0x2005…2012 ptr = 0xad69 // 0x2005 @0x0
0x2005…2012 lno = 0x0d98 // 0x2007 @0x2
0x2005…2012 at0004 = ╱a201╱ CASE ╱ // 0x2009 @0x4
0x2005…2012 at0006 = ╱4b╱K╱ // 0x200b @0x6
0x2005…2012 at0007 = ╱54╱T╱ // 0x200c @0x7
0x2005…2012 at0008 = ╱41╱A╱ // 0x200d @0x8
0x2005…2012 at0009 = ╱4c╱L╱ // 0x200e @0x9
0x2005…2012 at000a = ╱31╱1╱ // 0x200f @0xa
0x2005…2012 at000b = ╱ba╱ OF ╱ // 0x2010 @0xb
0x2005…2012 at000c = EOL // 0x2011 @0xc
0x2005…2012 }
0x2012…2023 ad7a 3490 PRINT FNAVN$;" ";
0x2012…2023 LineComalBin {
0x2012…2023 ptr = 0xad7a // 0x2012 @0x0
0x2012…2023 lno = 0x0da2 // 0x2014 @0x2
0x2012…2023 at0004 = ╱92╱ PRINT ╱ // 0x2016 @0x4
0x2012…2023 at0005 = ╱46╱F╱ // 0x2017 @0x5
0x2012…2023 at0006 = ╱4e╱N╱ // 0x2018 @0x6
0x2012…2023 at0007 = ╱41╱A╱ // 0x2019 @0x7
0x2012…2023 at0008 = ╱56╱V╱ // 0x201a @0x8
0x2012…2023 at0009 = ╱4e╱N╱ // 0x201b @0x9
0x2012…2023 at000a = ╱ef╱$╱ // 0x201c @0xa
0x2012…2023 at000b = ╱eb╱;╱ // 0x201d @0xb
0x2012…2023 at000c = ╱22╱"╱ // 0x201e @0xc
0x2012…2023 at000d = ╱20╱…╱ // 0x201f @0xd
0x2012…2023 at000e = ╱22╱"╱ // 0x2020 @0xe
0x2012…2023 at000f = ╱eb╱;╱ // 0x2021 @0xf
0x2012…2023 at0010 = EOL // 0x2022 @0x10
0x2012…2023 }
0x2023…202e ad85 3500 WHEN DTAL
0x2023…202e LineComalBin {
0x2023…202e ptr = 0xad85 // 0x2023 @0x0
0x2023…202e lno = 0x0dac // 0x2025 @0x2
0x2023…202e at0004 = ╱a301╱ WHEN ╱ // 0x2027 @0x4
0x2023…202e at0006 = ╱44╱D╱ // 0x2029 @0x6
0x2023…202e at0007 = ╱54╱T╱ // 0x202a @0x7
0x2023…202e at0008 = ╱41╱A╱ // 0x202b @0x8
0x2023…202e at0009 = ╱4c╱L╱ // 0x202c @0x9
0x2023…202e at000a = EOL // 0x202d @0xa
0x2023…202e }
0x202e…2041 ad98 3510 PRINT DEBNAVN$;" ";
0x202e…2041 LineComalBin {
0x202e…2041 ptr = 0xad98 // 0x202e @0x0
0x202e…2041 lno = 0x0db6 // 0x2030 @0x2
0x202e…2041 at0004 = ╱92╱ PRINT ╱ // 0x2032 @0x4
0x202e…2041 at0005 = ╱44╱D╱ // 0x2033 @0x5
0x202e…2041 at0006 = ╱45╱E╱ // 0x2034 @0x6
0x202e…2041 at0007 = ╱42╱B╱ // 0x2035 @0x7
0x202e…2041 at0008 = ╱4e╱N╱ // 0x2036 @0x8
0x202e…2041 at0009 = ╱41╱A╱ // 0x2037 @0x9
0x202e…2041 at000a = ╱56╱V╱ // 0x2038 @0xa
0x202e…2041 at000b = ╱4e╱N╱ // 0x2039 @0xb
0x202e…2041 at000c = ╱ef╱$╱ // 0x203a @0xc
0x202e…2041 at000d = ╱eb╱;╱ // 0x203b @0xd
0x202e…2041 at000e = ╱22╱"╱ // 0x203c @0xe
0x202e…2041 at000f = ╱20╱…╱ // 0x203d @0xf
0x202e…2041 at0010 = ╱22╱"╱ // 0x203e @0x10
0x202e…2041 at0011 = ╱eb╱;╱ // 0x203f @0x11
0x202e…2041 at0012 = EOL // 0x2040 @0x12
0x202e…2041 }
0x2041…204d ada4 3520 WHEN KRTAL
0x2041…204d LineComalBin {
0x2041…204d ptr = 0xada4 // 0x2041 @0x0
0x2041…204d lno = 0x0dc0 // 0x2043 @0x2
0x2041…204d at0004 = ╱a301╱ WHEN ╱ // 0x2045 @0x4
0x2041…204d at0006 = ╱4b╱K╱ // 0x2047 @0x6
0x2041…204d at0007 = ╱52╱R╱ // 0x2048 @0x7
0x2041…204d at0008 = ╱54╱T╱ // 0x2049 @0x8
0x2041…204d at0009 = ╱41╱A╱ // 0x204a @0x9
0x2041…204d at000a = ╱4c╱L╱ // 0x204b @0xa
0x2041…204d at000b = EOL // 0x204c @0xb
0x2041…204d }
0x204d…2060 adb7 3530 PRINT KRENAVN$;" ";
0x204d…2060 LineComalBin {
0x204d…2060 ptr = 0xadb7 // 0x204d @0x0
0x204d…2060 lno = 0x0dca // 0x204f @0x2
0x204d…2060 at0004 = ╱92╱ PRINT ╱ // 0x2051 @0x4
0x204d…2060 at0005 = ╱4b╱K╱ // 0x2052 @0x5
0x204d…2060 at0006 = ╱52╱R╱ // 0x2053 @0x6
0x204d…2060 at0007 = ╱45╱E╱ // 0x2054 @0x7
0x204d…2060 at0008 = ╱4e╱N╱ // 0x2055 @0x8
0x204d…2060 at0009 = ╱41╱A╱ // 0x2056 @0x9
0x204d…2060 at000a = ╱56╱V╱ // 0x2057 @0xa
0x204d…2060 at000b = ╱4e╱N╱ // 0x2058 @0xb
0x204d…2060 at000c = ╱ef╱$╱ // 0x2059 @0xc
0x204d…2060 at000d = ╱eb╱;╱ // 0x205a @0xd
0x204d…2060 at000e = ╱22╱"╱ // 0x205b @0xe
0x204d…2060 at000f = ╱20╱…╱ // 0x205c @0xf
0x204d…2060 at0010 = ╱22╱"╱ // 0x205d @0x10
0x204d…2060 at0011 = ╱eb╱;╱ // 0x205e @0x11
0x204d…2060 at0012 = EOL // 0x205f @0x12
0x204d…2060 }
0x2060…2066 adbd 3540 ENDCASE
0x2060…2066 LineComalBin {
0x2060…2066 ptr = 0xadbd // 0x2060 @0x0
0x2060…2066 lno = 0x0dd4 // 0x2062 @0x2
0x2060…2066 at0004 = ╱a4╱ ENDCASE ╱ // 0x2064 @0x4
0x2060…2066 at0005 = EOL // 0x2065 @0x5
0x2060…2066 }
0x2066…2084 addb 3550 PRINT TAB(63);" Dato:";DAT$
0x2066…2084 LineComalBin {
0x2066…2084 ptr = 0xaddb // 0x2066 @0x0
0x2066…2084 lno = 0x0dde // 0x2068 @0x2
0x2066…2084 at0004 = ╱92╱ PRINT ╱ // 0x206a @0x4
0x2066…2084 at0005 = ╱d2╱TAB╱ // 0x206b @0x5
0x2066…2084 at0006 = ╱ed╱(╱ // 0x206c @0x6
0x2066…2084 at0007 = ╱36╱6╱ // 0x206d @0x7
0x2066…2084 at0008 = ╱33╱3╱ // 0x206e @0x8
0x2066…2084 at0009 = ╱fe0000fc06╱ // 0x206f @0x9
0x2066…2084 at000e = ╱ee╱)╱ // 0x2074 @0xe
0x2066…2084 at000f = ╱eb╱;╱ // 0x2075 @0xf
0x2066…2084 at0010 = ╱22╱"╱ // 0x2076 @0x10
0x2066…2084 at0011 = ╱20╱…╱ // 0x2077 @0x11
0x2066…2084 at0012 = ╱44╱D╱ // 0x2078 @0x12
0x2066…2084 at0013 = ╱61╱a╱ // 0x2079 @0x13
0x2066…2084 at0014 = ╱74╱t╱ // 0x207a @0x14
0x2066…2084 at0015 = ╱6f╱o╱ // 0x207b @0x15
0x2066…2084 at0016 = ╱3a╱:╱ // 0x207c @0x16
0x2066…2084 at0017 = ╱22╱"╱ // 0x207d @0x17
0x2066…2084 at0018 = ╱eb╱;╱ // 0x207e @0x18
0x2066…2084 at0019 = ╱44╱D╱ // 0x207f @0x19
0x2066…2084 at001a = ╱41╱A╱ // 0x2080 @0x1a
0x2066…2084 at001b = ╱54╱T╱ // 0x2081 @0x1b
0x2066…2084 at001c = ╱ef╱$╱ // 0x2082 @0x1c
0x2066…2084 at001d = EOL // 0x2083 @0x1d
0x2066…2084 }
0x2084…208a ade1 3560 ENDIF
0x2084…208a LineComalBin {
0x2084…208a ptr = 0xade1 // 0x2084 @0x0
0x2084…208a lno = 0x0de8 // 0x2086 @0x2
0x2084…208a at0004 = ╱9b╱ ENDIF ╱ // 0x2088 @0x4
0x2084…208a at0005 = EOL // 0x2089 @0x5
0x2084…208a }
0x208a…2090 ade7 3570 ENDPROC
0x208a…2090 LineComalBin {
0x208a…2090 ptr = 0xade7 // 0x208a @0x0
0x208a…2090 lno = 0x0df2 // 0x208c @0x2
0x208a…2090 at0004 = ╱9f╱ ENDPROC ╱ // 0x208e @0x4
0x208a…2090 at0005 = EOL // 0x208f @0x5
0x208a…2090 }
0x2090…20ae ae05 3580 PROC UDSKRIV(PKODE1,SU4,LNR1)
0x2090…20ae LineComalBin {
0x2090…20ae ptr = 0xae05 // 0x2090 @0x0
0x2090…20ae lno = 0x0dfc // 0x2092 @0x2
0x2090…20ae at0004 = ╱9e╱ PROC ╱ // 0x2094 @0x4
0x2090…20ae at0005 = ╱55╱U╱ // 0x2095 @0x5
0x2090…20ae at0006 = ╱44╱D╱ // 0x2096 @0x6
0x2090…20ae at0007 = ╱53╱S╱ // 0x2097 @0x7
0x2090…20ae at0008 = ╱4b╱K╱ // 0x2098 @0x8
0x2090…20ae at0009 = ╱52╱R╱ // 0x2099 @0x9
0x2090…20ae at000a = ╱49╱I╱ // 0x209a @0xa
0x2090…20ae at000b = ╱56╱V╱ // 0x209b @0xb
0x2090…20ae at000c = ╱ed╱(╱ // 0x209c @0xc
0x2090…20ae at000d = ╱50╱P╱ // 0x209d @0xd
0x2090…20ae at000e = ╱4b╱K╱ // 0x209e @0xe
0x2090…20ae at000f = ╱4f╱O╱ // 0x209f @0xf
0x2090…20ae at0010 = ╱44╱D╱ // 0x20a0 @0x10
0x2090…20ae at0011 = ╱45╱E╱ // 0x20a1 @0x11
0x2090…20ae at0012 = ╱31╱1╱ // 0x20a2 @0x12
0x2090…20ae at0013 = ╱ec╱,╱ // 0x20a3 @0x13
0x2090…20ae at0014 = ╱53╱S╱ // 0x20a4 @0x14
0x2090…20ae at0015 = ╱55╱U╱ // 0x20a5 @0x15
0x2090…20ae at0016 = ╱34╱4╱ // 0x20a6 @0x16
0x2090…20ae at0017 = ╱ec╱,╱ // 0x20a7 @0x17
0x2090…20ae at0018 = ╱4c╱L╱ // 0x20a8 @0x18
0x2090…20ae at0019 = ╱4e╱N╱ // 0x20a9 @0x19
0x2090…20ae at001a = ╱52╱R╱ // 0x20aa @0x1a
0x2090…20ae at001b = ╱31╱1╱ // 0x20ab @0x1b
0x2090…20ae at001c = ╱ee╱)╱ // 0x20ac @0x1c
0x2090…20ae at001d = EOL // 0x20ad @0x1d
0x2090…20ae }
0x20ae…20e1 ae38 3590 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$,ENTKO)
0x20ae…20e1 LineComalBin {
0x20ae…20e1 ptr = 0xae38 // 0x20ae @0x0
0x20ae…20e1 lno = 0x0e06 // 0x20b0 @0x2
0x20ae…20e1 at0004 = ╱9d╱ EXEC ╱ // 0x20b2 @0x4
0x20ae…20e1 at0005 = ╱4c╱L╱ // 0x20b3 @0x5
0x20ae…20e1 at0006 = ╱49╱I╱ // 0x20b4 @0x6
0x20ae…20e1 at0007 = ╱4e╱N╱ // 0x20b5 @0x7
0x20ae…20e1 at0008 = ╱49╱I╱ // 0x20b6 @0x8
0x20ae…20e1 at0009 = ╱45╱E╱ // 0x20b7 @0x9
0x20ae…20e1 at000a = ╱55╱U╱ // 0x20b8 @0xa
0x20ae…20e1 at000b = ╱44╱D╱ // 0x20b9 @0xb
0x20ae…20e1 at000c = ╱ed╱(╱ // 0x20ba @0xc
0x20ae…20e1 at000d = ╱44╱D╱ // 0x20bb @0xd
0x20ae…20e1 at000e = ╱44╱D╱ // 0x20bc @0xe
0x20ae…20e1 at000f = ╱41╱A╱ // 0x20bd @0xf
0x20ae…20e1 at0010 = ╱54╱T╱ // 0x20be @0x10
0x20ae…20e1 at0011 = ╱4f╱O╱ // 0x20bf @0x11
0x20ae…20e1 at0012 = ╱ec╱,╱ // 0x20c0 @0x12
0x20ae…20e1 at0013 = ╱42╱B╱ // 0x20c1 @0x13
0x20ae…20e1 at0014 = ╱49╱I╱ // 0x20c2 @0x14
0x20ae…20e1 at0015 = ╱4c╱L╱ // 0x20c3 @0x15
0x20ae…20e1 at0016 = ╱41╱A╱ // 0x20c4 @0x16
0x20ae…20e1 at0017 = ╱47╱G╱ // 0x20c5 @0x17
0x20ae…20e1 at0018 = ╱ec╱,╱ // 0x20c6 @0x18
0x20ae…20e1 at0019 = ╱54╱T╱ // 0x20c7 @0x19
0x20ae…20e1 at001a = ╱45╱E╱ // 0x20c8 @0x1a
0x20ae…20e1 at001b = ╱4b╱K╱ // 0x20c9 @0x1b
0x20ae…20e1 at001c = ╱53╱S╱ // 0x20ca @0x1c
0x20ae…20e1 at001d = ╱54╱T╱ // 0x20cb @0x1d
0x20ae…20e1 at001e = ╱ef╱$╱ // 0x20cc @0x1e
0x20ae…20e1 at001f = ╱ec╱,╱ // 0x20cd @0x1f
0x20ae…20e1 at0020 = ╱42╱B╱ // 0x20ce @0x20
0x20ae…20e1 at0021 = ╱45╱E╱ // 0x20cf @0x21
0x20ae…20e1 at0022 = ╱4c╱L╱ // 0x20d0 @0x22
0x20ae…20e1 at0023 = ╱5c╱Ø╱ // 0x20d1 @0x23
0x20ae…20e1 at0024 = ╱42╱B╱ // 0x20d2 @0x24
0x20ae…20e1 at0025 = ╱ef╱$╱ // 0x20d3 @0x25
0x20ae…20e1 at0026 = ╱ec╱,╱ // 0x20d4 @0x26
0x20ae…20e1 at0027 = ╱53╱S╱ // 0x20d5 @0x27
0x20ae…20e1 at0028 = ╱55╱U╱ // 0x20d6 @0x28
0x20ae…20e1 at0029 = ╱34╱4╱ // 0x20d7 @0x29
0x20ae…20e1 at002a = ╱ef╱$╱ // 0x20d8 @0x2a
0x20ae…20e1 at002b = ╱ec╱,╱ // 0x20d9 @0x2b
0x20ae…20e1 at002c = ╱45╱E╱ // 0x20da @0x2c
0x20ae…20e1 at002d = ╱4e╱N╱ // 0x20db @0x2d
0x20ae…20e1 at002e = ╱54╱T╱ // 0x20dc @0x2e
0x20ae…20e1 at002f = ╱4b╱K╱ // 0x20dd @0x2f
0x20ae…20e1 at0030 = ╱4f╱O╱ // 0x20de @0x30
0x20ae…20e1 at0031 = ╱ee╱)╱ // 0x20df @0x31
0x20ae…20e1 at0032 = EOL // 0x20e0 @0x32
0x20ae…20e1 }
0x20e1…20f1 ae48 3600 LNR1=LNR1+E
0x20e1…20f1 LineComalBin {
0x20e1…20f1 ptr = 0xae48 // 0x20e1 @0x0
0x20e1…20f1 lno = 0x0e10 // 0x20e3 @0x2
0x20e1…20f1 at0004 = ╱4c╱L╱ // 0x20e5 @0x4
0x20e1…20f1 at0005 = ╱4e╱N╱ // 0x20e6 @0x5
0x20e1…20f1 at0006 = ╱52╱R╱ // 0x20e7 @0x6
0x20e1…20f1 at0007 = ╱31╱1╱ // 0x20e8 @0x7
0x20e1…20f1 at0008 = ╱dc╱=╱ // 0x20e9 @0x8
0x20e1…20f1 at0009 = ╱4c╱L╱ // 0x20ea @0x9
0x20e1…20f1 at000a = ╱4e╱N╱ // 0x20eb @0xa
0x20e1…20f1 at000b = ╱52╱R╱ // 0x20ec @0xb
0x20e1…20f1 at000c = ╱31╱1╱ // 0x20ed @0xc
0x20e1…20f1 at000d = ╱e2╱+╱ // 0x20ee @0xd
0x20e1…20f1 at000e = ╱45╱E╱ // 0x20ef @0xe
0x20e1…20f1 at000f = EOL // 0x20f0 @0xf
0x20e1…20f1 }
0x20f1…2123 ae7a 3610 IF LNR1=17+6*(SKRIV)-6*(SKRIV1) THEN
0x20f1…2123 LineComalBin {
0x20f1…2123 ptr = 0xae7a // 0x20f1 @0x0
0x20f1…2123 lno = 0x0e1a // 0x20f3 @0x2
0x20f1…2123 at0004 = ╱9c╱ IF ╱ // 0x20f5 @0x4
0x20f1…2123 at0005 = ╱4c╱L╱ // 0x20f6 @0x5
0x20f1…2123 at0006 = ╱4e╱N╱ // 0x20f7 @0x6
0x20f1…2123 at0007 = ╱52╱R╱ // 0x20f8 @0x7
0x20f1…2123 at0008 = ╱31╱1╱ // 0x20f9 @0x8
0x20f1…2123 at0009 = ╱dc╱=╱ // 0x20fa @0x9
0x20f1…2123 at000a = ╱31╱1╱ // 0x20fb @0xa
0x20f1…2123 at000b = ╱37╱7╱ // 0x20fc @0xb
0x20f1…2123 at000c = ╱fe00008805╱ // 0x20fd @0xc
0x20f1…2123 at0011 = ╱e2╱+╱ // 0x2102 @0x11
0x20f1…2123 at0012 = ╱36╱6╱ // 0x2103 @0x12
0x20f1…2123 at0013 = ╱fe0000c003╱ // 0x2104 @0x13
0x20f1…2123 at0018 = ╱e4╱*╱ // 0x2109 @0x18
0x20f1…2123 at0019 = ╱ed╱(╱ // 0x210a @0x19
0x20f1…2123 at001a = ╱53╱S╱ // 0x210b @0x1a
0x20f1…2123 at001b = ╱4b╱K╱ // 0x210c @0x1b
0x20f1…2123 at001c = ╱52╱R╱ // 0x210d @0x1c
0x20f1…2123 at001d = ╱49╱I╱ // 0x210e @0x1d
0x20f1…2123 at001e = ╱56╱V╱ // 0x210f @0x1e
0x20f1…2123 at001f = ╱ee╱)╱ // 0x2110 @0x1f
0x20f1…2123 at0020 = ╱e3╱-╱ // 0x2111 @0x20
0x20f1…2123 at0021 = ╱36╱6╱ // 0x2112 @0x21
0x20f1…2123 at0022 = ╱fe0000c003╱ // 0x2113 @0x22
0x20f1…2123 at0027 = ╱e4╱*╱ // 0x2118 @0x27
0x20f1…2123 at0028 = ╱ed╱(╱ // 0x2119 @0x28
0x20f1…2123 at0029 = ╱53╱S╱ // 0x211a @0x29
0x20f1…2123 at002a = ╱4b╱K╱ // 0x211b @0x2a
0x20f1…2123 at002b = ╱52╱R╱ // 0x211c @0x2b
0x20f1…2123 at002c = ╱49╱I╱ // 0x211d @0x2c
0x20f1…2123 at002d = ╱56╱V╱ // 0x211e @0x2d
0x20f1…2123 at002e = ╱31╱1╱ // 0x211f @0x2e
0x20f1…2123 at002f = ╱ee╱)╱ // 0x2120 @0x2f
0x20f1…2123 at0030 = ╱b6╱ THEN ╱ // 0x2121 @0x30
0x20f1…2123 at0031 = EOL // 0x2122 @0x31
0x20f1…2123 }
0x2123…2132 ae89 3620 IF PKODE1=E THEN
0x2123…2132 LineComalBin {
0x2123…2132 ptr = 0xae89 // 0x2123 @0x0
0x2123…2132 lno = 0x0e24 // 0x2125 @0x2
0x2123…2132 at0004 = ╱9c╱ IF ╱ // 0x2127 @0x4
0x2123…2132 at0005 = ╱50╱P╱ // 0x2128 @0x5
0x2123…2132 at0006 = ╱4b╱K╱ // 0x2129 @0x6
0x2123…2132 at0007 = ╱4f╱O╱ // 0x212a @0x7
0x2123…2132 at0008 = ╱44╱D╱ // 0x212b @0x8
0x2123…2132 at0009 = ╱45╱E╱ // 0x212c @0x9
0x2123…2132 at000a = ╱31╱1╱ // 0x212d @0xa
0x2123…2132 at000b = ╱dc╱=╱ // 0x212e @0xb
0x2123…2132 at000c = ╱45╱E╱ // 0x212f @0xc
0x2123…2132 at000d = ╱b6╱ THEN ╱ // 0x2130 @0xd
0x2123…2132 at000e = EOL // 0x2131 @0xe
0x2123…2132 }
0x2132…2157 aeae 3630 IF SKRIV1=B THEN PRINT CHR(10);CHR(10)
0x2132…2157 LineComalBin {
0x2132…2157 ptr = 0xaeae // 0x2132 @0x0
0x2132…2157 lno = 0x0e2e // 0x2134 @0x2
0x2132…2157 at0004 = ╱82╱ IF ╱ // 0x2136 @0x4
0x2132…2157 at0005 = ╱53╱S╱ // 0x2137 @0x5
0x2132…2157 at0006 = ╱4b╱K╱ // 0x2138 @0x6
0x2132…2157 at0007 = ╱52╱R╱ // 0x2139 @0x7
0x2132…2157 at0008 = ╱49╱I╱ // 0x213a @0x8
0x2132…2157 at0009 = ╱56╱V╱ // 0x213b @0x9
0x2132…2157 at000a = ╱31╱1╱ // 0x213c @0xa
0x2132…2157 at000b = ╱dc╱=╱ // 0x213d @0xb
0x2132…2157 at000c = ╱42╱B╱ // 0x213e @0xc
0x2132…2157 at000d = ╱b6╱ THEN ╱ // 0x213f @0xd
0x2132…2157 at000e = ╱92╱ PRINT ╱ // 0x2140 @0xe
0x2132…2157 at000f = ╱cf╱CHR╱ // 0x2141 @0xf
0x2132…2157 at0010 = ╱ed╱(╱ // 0x2142 @0x10
0x2132…2157 at0011 = ╱31╱1╱ // 0x2143 @0x11
0x2132…2157 at0012 = ╱30╱0╱ // 0x2144 @0x12
0x2132…2157 at0013 = ╱fe0000a004╱ // 0x2145 @0x13
0x2132…2157 at0018 = ╱ee╱)╱ // 0x214a @0x18
0x2132…2157 at0019 = ╱eb╱;╱ // 0x214b @0x19
0x2132…2157 at001a = ╱cf╱CHR╱ // 0x214c @0x1a
0x2132…2157 at001b = ╱ed╱(╱ // 0x214d @0x1b
0x2132…2157 at001c = ╱31╱1╱ // 0x214e @0x1c
0x2132…2157 at001d = ╱30╱0╱ // 0x214f @0x1d
0x2132…2157 at001e = ╱fe0000a004╱ // 0x2150 @0x1e
0x2132…2157 at0023 = ╱ee╱)╱ // 0x2155 @0x23
0x2132…2157 at0024 = EOL // 0x2156 @0x24
0x2132…2157 }
0x2157…2195 aeec 3640 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1)
0x2157…2195 LineComalBin {
0x2157…2195 ptr = 0xaeec // 0x2157 @0x0
0x2157…2195 lno = 0x0e38 // 0x2159 @0x2
0x2157…2195 at0004 = ╱9d╱ EXEC ╱ // 0x215b @0x4
0x2157…2195 at0005 = ╱42╱B╱ // 0x215c @0x5
0x2157…2195 at0006 = ╱55╱U╱ // 0x215d @0x6
0x2157…2195 at0007 = ╱44╱D╱ // 0x215e @0x7
0x2157…2195 at0008 = ╱53╱S╱ // 0x215f @0x8
0x2157…2195 at0009 = ╱4b╱K╱ // 0x2160 @0x9
0x2157…2195 at000a = ╱52╱R╱ // 0x2161 @0xa
0x2157…2195 at000b = ╱49╱I╱ // 0x2162 @0xb
0x2157…2195 at000c = ╱56╱V╱ // 0x2163 @0xc
0x2157…2195 at000d = ╱ed╱(╱ // 0x2164 @0xd
0x2157…2195 at000e = ╱54╱T╱ // 0x2165 @0xe
0x2157…2195 at000f = ╱41╱A╱ // 0x2166 @0xf
0x2157…2195 at0010 = ╱4c╱L╱ // 0x2167 @0x10
0x2157…2195 at0011 = ╱34╱4╱ // 0x2168 @0x11
0x2157…2195 at0012 = ╱ef╱$╱ // 0x2169 @0x12
0x2157…2195 at0013 = ╱ec╱,╱ // 0x216a @0x13
0x2157…2195 at0014 = ╱31╱1╱ // 0x216b @0x14
0x2157…2195 at0015 = ╱fe00008001╱ // 0x216c @0x15
0x2157…2195 at001a = ╱ec╱,╱ // 0x2171 @0x1a
0x2157…2195 at001b = ╱53╱S╱ // 0x2172 @0x1b
0x2157…2195 at001c = ╱55╱U╱ // 0x2173 @0x1c
0x2157…2195 at001d = ╱34╱4╱ // 0x2174 @0x1d
0x2157…2195 at001e = ╱ef╱$╱ // 0x2175 @0x1e
0x2157…2195 at001f = ╱ec╱,╱ // 0x2176 @0x1f
0x2157…2195 at0020 = ╱54╱T╱ // 0x2177 @0x20
0x2157…2195 at0021 = ╱41╱A╱ // 0x2178 @0x21
0x2157…2195 at0022 = ╱4c╱L╱ // 0x2179 @0x22
0x2157…2195 at0023 = ╱34╱4╱ // 0x217a @0x23
0x2157…2195 at0024 = ╱ef╱$╱ // 0x217b @0x24
0x2157…2195 at0025 = ╱ec╱,╱ // 0x217c @0x25
0x2157…2195 at0026 = ╱54╱T╱ // 0x217d @0x26
0x2157…2195 at0027 = ╱41╱A╱ // 0x217e @0x27
0x2157…2195 at0028 = ╱4c╱L╱ // 0x217f @0x28
0x2157…2195 at0029 = ╱34╱4╱ // 0x2180 @0x29
0x2157…2195 at002a = ╱ef╱$╱ // 0x2181 @0x2a
0x2157…2195 at002b = ╱ec╱,╱ // 0x2182 @0x2b
0x2157…2195 at002c = ╱54╱T╱ // 0x2183 @0x2c
0x2157…2195 at002d = ╱41╱A╱ // 0x2184 @0x2d
0x2157…2195 at002e = ╱4c╱L╱ // 0x2185 @0x2e
0x2157…2195 at002f = ╱34╱4╱ // 0x2186 @0x2f
0x2157…2195 at0030 = ╱ef╱$╱ // 0x2187 @0x30
0x2157…2195 at0031 = ╱ec╱,╱ // 0x2188 @0x31
0x2157…2195 at0032 = ╱54╱T╱ // 0x2189 @0x32
0x2157…2195 at0033 = ╱41╱A╱ // 0x218a @0x33
0x2157…2195 at0034 = ╱4c╱L╱ // 0x218b @0x34
0x2157…2195 at0035 = ╱34╱4╱ // 0x218c @0x35
0x2157…2195 at0036 = ╱ef╱$╱ // 0x218d @0x36
0x2157…2195 at0037 = ╱ec╱,╱ // 0x218e @0x37
0x2157…2195 at0038 = ╱4c╱L╱ // 0x218f @0x38
0x2157…2195 at0039 = ╱4e╱N╱ // 0x2190 @0x39
0x2157…2195 at003a = ╱52╱R╱ // 0x2191 @0x3a
0x2157…2195 at003b = ╱31╱1╱ // 0x2192 @0x3b
0x2157…2195 at003c = ╱ee╱)╱ // 0x2193 @0x3c
0x2157…2195 at003d = EOL // 0x2194 @0x3d
0x2157…2195 }
0x2195…21a3 aefa 3650 EXEC HUDSKRIV
0x2195…21a3 LineComalBin {
0x2195…21a3 ptr = 0xaefa // 0x2195 @0x0
0x2195…21a3 lno = 0x0e42 // 0x2197 @0x2
0x2195…21a3 at0004 = ╱9d╱ EXEC ╱ // 0x2199 @0x4
0x2195…21a3 at0005 = ╱48╱H╱ // 0x219a @0x5
0x2195…21a3 at0006 = ╱55╱U╱ // 0x219b @0x6
0x2195…21a3 at0007 = ╱44╱D╱ // 0x219c @0x7
0x2195…21a3 at0008 = ╱53╱S╱ // 0x219d @0x8
0x2195…21a3 at0009 = ╱4b╱K╱ // 0x219e @0x9
0x2195…21a3 at000a = ╱52╱R╱ // 0x219f @0xa
0x2195…21a3 at000b = ╱49╱I╱ // 0x21a0 @0xb
0x2195…21a3 at000c = ╱56╱V╱ // 0x21a1 @0xc
0x2195…21a3 at000d = EOL // 0x21a2 @0xd
0x2195…21a3 }
0x21a3…21b2 af09 3660 IF SKRIV1=E THEN
0x21a3…21b2 LineComalBin {
0x21a3…21b2 ptr = 0xaf09 // 0x21a3 @0x0
0x21a3…21b2 lno = 0x0e4c // 0x21a5 @0x2
0x21a3…21b2 at0004 = ╱9c╱ IF ╱ // 0x21a7 @0x4
0x21a3…21b2 at0005 = ╱53╱S╱ // 0x21a8 @0x5
0x21a3…21b2 at0006 = ╱4b╱K╱ // 0x21a9 @0x6
0x21a3…21b2 at0007 = ╱52╱R╱ // 0x21aa @0x7
0x21a3…21b2 at0008 = ╱49╱I╱ // 0x21ab @0x8
0x21a3…21b2 at0009 = ╱56╱V╱ // 0x21ac @0x9
0x21a3…21b2 at000a = ╱31╱1╱ // 0x21ad @0xa
0x21a3…21b2 at000b = ╱dc╱=╱ // 0x21ae @0xb
0x21a3…21b2 at000c = ╱45╱E╱ // 0x21af @0xc
0x21a3…21b2 at000d = ╱b6╱ THEN ╱ // 0x21b0 @0xd
0x21a3…21b2 at000e = EOL // 0x21b1 @0xe
0x21a3…21b2 }
0x21b2…21bb af12 3665 PRINT " "
0x21b2…21bb LineComalBin {
0x21b2…21bb ptr = 0xaf12 // 0x21b2 @0x0
0x21b2…21bb lno = 0x0e51 // 0x21b4 @0x2
0x21b2…21bb at0004 = ╱92╱ PRINT ╱ // 0x21b6 @0x4
0x21b2…21bb at0005 = ╱22╱"╱ // 0x21b7 @0x5
0x21b2…21bb at0006 = ╱20╱…╱ // 0x21b8 @0x6
0x21b2…21bb at0007 = ╱22╱"╱ // 0x21b9 @0x7
0x21b2…21bb at0008 = EOL // 0x21ba @0x8
0x21b2…21bb }
0x21bb…21dd af34 3670 EXEC LUDSKRIV(KONTO,DATO,KSIDENR)
0x21bb…21dd LineComalBin {
0x21bb…21dd ptr = 0xaf34 // 0x21bb @0x0
0x21bb…21dd lno = 0x0e56 // 0x21bd @0x2
0x21bb…21dd at0004 = ╱9d╱ EXEC ╱ // 0x21bf @0x4
0x21bb…21dd at0005 = ╱4c╱L╱ // 0x21c0 @0x5
0x21bb…21dd at0006 = ╱55╱U╱ // 0x21c1 @0x6
0x21bb…21dd at0007 = ╱44╱D╱ // 0x21c2 @0x7
0x21bb…21dd at0008 = ╱53╱S╱ // 0x21c3 @0x8
0x21bb…21dd at0009 = ╱4b╱K╱ // 0x21c4 @0x9
0x21bb…21dd at000a = ╱52╱R╱ // 0x21c5 @0xa
0x21bb…21dd at000b = ╱49╱I╱ // 0x21c6 @0xb
0x21bb…21dd at000c = ╱56╱V╱ // 0x21c7 @0xc
0x21bb…21dd at000d = ╱ed╱(╱ // 0x21c8 @0xd
0x21bb…21dd at000e = ╱4b╱K╱ // 0x21c9 @0xe
0x21bb…21dd at000f = ╱4f╱O╱ // 0x21ca @0xf
0x21bb…21dd at0010 = ╱4e╱N╱ // 0x21cb @0x10
0x21bb…21dd at0011 = ╱54╱T╱ // 0x21cc @0x11
0x21bb…21dd at0012 = ╱4f╱O╱ // 0x21cd @0x12
0x21bb…21dd at0013 = ╱ec╱,╱ // 0x21ce @0x13
0x21bb…21dd at0014 = ╱44╱D╱ // 0x21cf @0x14
0x21bb…21dd at0015 = ╱41╱A╱ // 0x21d0 @0x15
0x21bb…21dd at0016 = ╱54╱T╱ // 0x21d1 @0x16
0x21bb…21dd at0017 = ╱4f╱O╱ // 0x21d2 @0x17
0x21bb…21dd at0018 = ╱ec╱,╱ // 0x21d3 @0x18
0x21bb…21dd at0019 = ╱4b╱K╱ // 0x21d4 @0x19
0x21bb…21dd at001a = ╱53╱S╱ // 0x21d5 @0x1a
0x21bb…21dd at001b = ╱49╱I╱ // 0x21d6 @0x1b
0x21bb…21dd at001c = ╱44╱D╱ // 0x21d7 @0x1c
0x21bb…21dd at001d = ╱45╱E╱ // 0x21d8 @0x1d
0x21bb…21dd at001e = ╱4e╱N╱ // 0x21d9 @0x1e
0x21bb…21dd at001f = ╱52╱R╱ // 0x21da @0x1f
0x21bb…21dd at0020 = ╱ee╱)╱ // 0x21db @0x20
0x21bb…21dd at0021 = EOL // 0x21dc @0x21
0x21bb…21dd }
0x21dd…21e5 af3c 3680 PRINT ""
0x21dd…21e5 LineComalBin {
0x21dd…21e5 ptr = 0xaf3c // 0x21dd @0x0
0x21dd…21e5 lno = 0x0e60 // 0x21df @0x2
0x21dd…21e5 at0004 = ╱92╱ PRINT ╱ // 0x21e1 @0x4
0x21dd…21e5 at0005 = ╱22╱"╱ // 0x21e2 @0x5
0x21dd…21e5 at0006 = ╱22╱"╱ // 0x21e3 @0x6
0x21dd…21e5 at0007 = EOL // 0x21e4 @0x7
0x21dd…21e5 }
0x21e5…21ee af45 3685 PRINT " "
0x21e5…21ee LineComalBin {
0x21e5…21ee ptr = 0xaf45 // 0x21e5 @0x0
0x21e5…21ee lno = 0x0e65 // 0x21e7 @0x2
0x21e5…21ee at0004 = ╱92╱ PRINT ╱ // 0x21e9 @0x4
0x21e5…21ee at0005 = ╱22╱"╱ // 0x21ea @0x5
0x21e5…21ee at0006 = ╱20╱…╱ // 0x21eb @0x6
0x21e5…21ee at0007 = ╱22╱"╱ // 0x21ec @0x7
0x21e5…21ee at0008 = EOL // 0x21ed @0x8
0x21e5…21ee }
0x21ee…21f4 af4b 3690 ELSE
0x21ee…21f4 LineComalBin {
0x21ee…21f4 ptr = 0xaf4b // 0x21ee @0x0
0x21ee…21f4 lno = 0x0e6a // 0x21f0 @0x2
0x21ee…21f4 at0004 = ╱9a╱ ELSE ╱ // 0x21f2 @0x4
0x21ee…21f4 at0005 = EOL // 0x21f3 @0x5
0x21ee…21f4 }
0x21f4…2203 af5a 3700 EXEC HSUDSKRIV
0x21f4…2203 LineComalBin {
0x21f4…2203 ptr = 0xaf5a // 0x21f4 @0x0
0x21f4…2203 lno = 0x0e74 // 0x21f6 @0x2
0x21f4…2203 at0004 = ╱9d╱ EXEC ╱ // 0x21f8 @0x4
0x21f4…2203 at0005 = ╱48╱H╱ // 0x21f9 @0x5
0x21f4…2203 at0006 = ╱53╱S╱ // 0x21fa @0x6
0x21f4…2203 at0007 = ╱55╱U╱ // 0x21fb @0x7
0x21f4…2203 at0008 = ╱44╱D╱ // 0x21fc @0x8
0x21f4…2203 at0009 = ╱53╱S╱ // 0x21fd @0x9
0x21f4…2203 at000a = ╱4b╱K╱ // 0x21fe @0xa
0x21f4…2203 at000b = ╱52╱R╱ // 0x21ff @0xb
0x21f4…2203 at000c = ╱49╱I╱ // 0x2200 @0xc
0x21f4…2203 at000d = ╱56╱V╱ // 0x2201 @0xd
0x21f4…2203 at000e = EOL // 0x2202 @0xe
0x21f4…2203 }
0x2203…2209 af60 3710 ENDIF
0x2203…2209 LineComalBin {
0x2203…2209 ptr = 0xaf60 // 0x2203 @0x0
0x2203…2209 lno = 0x0e7e // 0x2205 @0x2
0x2203…2209 at0004 = ╱9b╱ ENDIF ╱ // 0x2207 @0x4
0x2203…2209 at0005 = EOL // 0x2208 @0x5
0x2203…2209 }
0x2209…2247 af9e 3720 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1)
0x2209…2247 LineComalBin {
0x2209…2247 ptr = 0xaf9e // 0x2209 @0x0
0x2209…2247 lno = 0x0e88 // 0x220b @0x2
0x2209…2247 at0004 = ╱9d╱ EXEC ╱ // 0x220d @0x4
0x2209…2247 at0005 = ╱42╱B╱ // 0x220e @0x5
0x2209…2247 at0006 = ╱55╱U╱ // 0x220f @0x6
0x2209…2247 at0007 = ╱44╱D╱ // 0x2210 @0x7
0x2209…2247 at0008 = ╱53╱S╱ // 0x2211 @0x8
0x2209…2247 at0009 = ╱4b╱K╱ // 0x2212 @0x9
0x2209…2247 at000a = ╱52╱R╱ // 0x2213 @0xa
0x2209…2247 at000b = ╱49╱I╱ // 0x2214 @0xb
0x2209…2247 at000c = ╱56╱V╱ // 0x2215 @0xc
0x2209…2247 at000d = ╱ed╱(╱ // 0x2216 @0xd
0x2209…2247 at000e = ╱54╱T╱ // 0x2217 @0xe
0x2209…2247 at000f = ╱41╱A╱ // 0x2218 @0xf
0x2209…2247 at0010 = ╱4c╱L╱ // 0x2219 @0x10
0x2209…2247 at0011 = ╱34╱4╱ // 0x221a @0x11
0x2209…2247 at0012 = ╱ef╱$╱ // 0x221b @0x12
0x2209…2247 at0013 = ╱ec╱,╱ // 0x221c @0x13
0x2209…2247 at0014 = ╱32╱2╱ // 0x221d @0x14
0x2209…2247 at0015 = ╱fe00008002╱ // 0x221e @0x15
0x2209…2247 at001a = ╱ec╱,╱ // 0x2223 @0x1a
0x2209…2247 at001b = ╱53╱S╱ // 0x2224 @0x1b
0x2209…2247 at001c = ╱55╱U╱ // 0x2225 @0x1c
0x2209…2247 at001d = ╱34╱4╱ // 0x2226 @0x1d
0x2209…2247 at001e = ╱ef╱$╱ // 0x2227 @0x1e
0x2209…2247 at001f = ╱ec╱,╱ // 0x2228 @0x1f
0x2209…2247 at0020 = ╱54╱T╱ // 0x2229 @0x20
0x2209…2247 at0021 = ╱41╱A╱ // 0x222a @0x21
0x2209…2247 at0022 = ╱4c╱L╱ // 0x222b @0x22
0x2209…2247 at0023 = ╱34╱4╱ // 0x222c @0x23
0x2209…2247 at0024 = ╱ef╱$╱ // 0x222d @0x24
0x2209…2247 at0025 = ╱ec╱,╱ // 0x222e @0x25
0x2209…2247 at0026 = ╱54╱T╱ // 0x222f @0x26
0x2209…2247 at0027 = ╱41╱A╱ // 0x2230 @0x27
0x2209…2247 at0028 = ╱4c╱L╱ // 0x2231 @0x28
0x2209…2247 at0029 = ╱34╱4╱ // 0x2232 @0x29
0x2209…2247 at002a = ╱ef╱$╱ // 0x2233 @0x2a
0x2209…2247 at002b = ╱ec╱,╱ // 0x2234 @0x2b
0x2209…2247 at002c = ╱54╱T╱ // 0x2235 @0x2c
0x2209…2247 at002d = ╱41╱A╱ // 0x2236 @0x2d
0x2209…2247 at002e = ╱4c╱L╱ // 0x2237 @0x2e
0x2209…2247 at002f = ╱34╱4╱ // 0x2238 @0x2f
0x2209…2247 at0030 = ╱ef╱$╱ // 0x2239 @0x30
0x2209…2247 at0031 = ╱ec╱,╱ // 0x223a @0x31
0x2209…2247 at0032 = ╱54╱T╱ // 0x223b @0x32
0x2209…2247 at0033 = ╱41╱A╱ // 0x223c @0x33
0x2209…2247 at0034 = ╱4c╱L╱ // 0x223d @0x34
0x2209…2247 at0035 = ╱34╱4╱ // 0x223e @0x35
0x2209…2247 at0036 = ╱ef╱$╱ // 0x223f @0x36
0x2209…2247 at0037 = ╱ec╱,╱ // 0x2240 @0x37
0x2209…2247 at0038 = ╱4c╱L╱ // 0x2241 @0x38
0x2209…2247 at0039 = ╱4e╱N╱ // 0x2242 @0x39
0x2209…2247 at003a = ╱52╱R╱ // 0x2243 @0x3a
0x2209…2247 at003b = ╱31╱1╱ // 0x2244 @0x3b
0x2209…2247 at003c = ╱ee╱)╱ // 0x2245 @0x3c
0x2209…2247 at003d = EOL // 0x2246 @0x3d
0x2209…2247 }
0x2247…2252 afa9 3730 LNR1=E
0x2247…2252 LineComalBin {
0x2247…2252 ptr = 0xafa9 // 0x2247 @0x0
0x2247…2252 lno = 0x0e92 // 0x2249 @0x2
0x2247…2252 at0004 = ╱4c╱L╱ // 0x224b @0x4
0x2247…2252 at0005 = ╱4e╱N╱ // 0x224c @0x5
0x2247…2252 at0006 = ╱52╱R╱ // 0x224d @0x6
0x2247…2252 at0007 = ╱31╱1╱ // 0x224e @0x7
0x2247…2252 at0008 = ╱dc╱=╱ // 0x224f @0x8
0x2247…2252 at0009 = ╱45╱E╱ // 0x2250 @0x9
0x2247…2252 at000a = EOL // 0x2251 @0xa
0x2247…2252 }
0x2252…2258 afaf 3740 ELSE
0x2252…2258 LineComalBin {
0x2252…2258 ptr = 0xafaf // 0x2252 @0x0
0x2252…2258 lno = 0x0e9c // 0x2254 @0x2
0x2252…2258 at0004 = ╱9a╱ ELSE ╱ // 0x2256 @0x4
0x2252…2258 at0005 = EOL // 0x2257 @0x5
0x2252…2258 }
0x2258…2291 afe8 3750 EXEC INDPUT1(4,23,-2,0,LTX$(4))
0x2258…2291 LineComalBin {
0x2258…2291 ptr = 0xafe8 // 0x2258 @0x0
0x2258…2291 lno = 0x0ea6 // 0x225a @0x2
0x2258…2291 at0004 = ╱9d╱ EXEC ╱ // 0x225c @0x4
0x2258…2291 at0005 = ╱49╱I╱ // 0x225d @0x5
0x2258…2291 at0006 = ╱4e╱N╱ // 0x225e @0x6
0x2258…2291 at0007 = ╱44╱D╱ // 0x225f @0x7
0x2258…2291 at0008 = ╱50╱P╱ // 0x2260 @0x8
0x2258…2291 at0009 = ╱55╱U╱ // 0x2261 @0x9
0x2258…2291 at000a = ╱54╱T╱ // 0x2262 @0xa
0x2258…2291 at000b = ╱31╱1╱ // 0x2263 @0xb
0x2258…2291 at000c = ╱ed╱(╱ // 0x2264 @0xc
0x2258…2291 at000d = ╱34╱4╱ // 0x2265 @0xd
0x2258…2291 at000e = ╱fe00008003╱ // 0x2266 @0xe
0x2258…2291 at0013 = ╱ec╱,╱ // 0x226b @0x13
0x2258…2291 at0014 = ╱32╱2╱ // 0x226c @0x14
0x2258…2291 at0015 = ╱33╱3╱ // 0x226d @0x15
0x2258…2291 at0016 = ╱fe0000b805╱ // 0x226e @0x16
0x2258…2291 at001b = ╱ec╱,╱ // 0x2273 @0x1b
0x2258…2291 at001c = ╱e9╱-╱ // 0x2274 @0x1c
0x2258…2291 at001d = ╱32╱2╱ // 0x2275 @0x1d
0x2258…2291 at001e = ╱fe00008002╱ // 0x2276 @0x1e
0x2258…2291 at0023 = ╱ec╱,╱ // 0x227b @0x23
0x2258…2291 at0024 = ╱30╱0╱ // 0x227c @0x24
0x2258…2291 at0025 = ╱fe00000000╱ // 0x227d @0x25
0x2258…2291 at002a = ╱ec╱,╱ // 0x2282 @0x2a
0x2258…2291 at002b = ╱4c╱L╱ // 0x2283 @0x2b
0x2258…2291 at002c = ╱54╱T╱ // 0x2284 @0x2c
0x2258…2291 at002d = ╱58╱X╱ // 0x2285 @0x2d
0x2258…2291 at002e = ╱ef╱$╱ // 0x2286 @0x2e
0x2258…2291 at002f = ╱ed╱(╱ // 0x2287 @0x2f
0x2258…2291 at0030 = ╱34╱4╱ // 0x2288 @0x30
0x2258…2291 at0031 = ╱fe00008003╱ // 0x2289 @0x31
0x2258…2291 at0036 = ╱ee╱)╱ // 0x228e @0x36
0x2258…2291 at0037 = ╱ee╱)╱ // 0x228f @0x37
0x2258…2291 at0038 = EOL // 0x2290 @0x38
0x2258…2291 }
0x2291…2297 afee 3760 CLEAR
0x2291…2297 LineComalBin {
0x2291…2297 ptr = 0xafee // 0x2291 @0x0
0x2291…2297 lno = 0x0eb0 // 0x2293 @0x2
0x2291…2297 at0004 = ╱a0╱ CLEAR ╱ // 0x2295 @0x4
0x2291…2297 at0005 = EOL // 0x2296 @0x5
0x2291…2297 }
0x2297…22a6 (115,) affd 3770 EXEC HSUDSKRIV
0x2297…22a6 LineComalBin {
0x2297…22a6 ptr = 0xaffd // 0x2297 @0x0
0x2297…22a6 lno = 0x0eba // 0x2299 @0x2
0x2297…22a6 at0004 = ╱9d╱ EXEC ╱ // 0x229b @0x4
0x2297…22a6 at0005 = ╱48╱H╱ // 0x229c @0x5
0x2297…22a6 at0006 = ╱53╱S╱ // 0x229d @0x6
0x2297…22a6 at0007 = ╱55╱U╱ // 0x229e @0x7
0x2297…22a6 at0008 = ╱44╱D╱ // 0x229f @0x8
0x2297…22a6 at0009 = ╱53╱S╱ // 0x22a0 @0x9
0x2297…22a6 at000a = ╱4b╱K╱ // 0x22a1 @0xa
0x2297…22a6 at000b = ╱52╱R╱ // 0x22a2 @0xb
0x2297…22a6 at000c = ╱49╱I╱ // 0x22a3 @0xc
0x2297…22a6 at000d = ╱56╱V╱ // 0x22a4 @0xd
0x2297…22a6 at000e = EOL // 0x22a5 @0xe
0x2297…22a6 }
0x22a6…22b1 b008 3780 LNR1=B
0x22a6…22b1 LineComalBin {
0x22a6…22b1 ptr = 0xb008 // 0x22a6 @0x0
0x22a6…22b1 lno = 0x0ec4 // 0x22a8 @0x2
0x22a6…22b1 at0004 = ╱4c╱L╱ // 0x22aa @0x4
0x22a6…22b1 at0005 = ╱4e╱N╱ // 0x22ab @0x5
0x22a6…22b1 at0006 = ╱52╱R╱ // 0x22ac @0x6
0x22a6…22b1 at0007 = ╱31╱1╱ // 0x22ad @0x7
0x22a6…22b1 at0008 = ╱dc╱=╱ // 0x22ae @0x8
0x22a6…22b1 at0009 = ╱42╱B╱ // 0x22af @0x9
0x22a6…22b1 at000a = EOL // 0x22b0 @0xa
0x22a6…22b1 }
0x22b1…22b7 b00e 3790 ENDIF
0x22b1…22b7 LineComalBin {
0x22b1…22b7 ptr = 0xb00e // 0x22b1 @0x0
0x22b1…22b7 lno = 0x0ece // 0x22b3 @0x2
0x22b1…22b7 at0004 = ╱9b╱ ENDIF ╱ // 0x22b5 @0x4
0x22b1…22b7 at0005 = EOL // 0x22b6 @0x5
0x22b1…22b7 }
0x22b7…22bd b014 3800 ENDIF
0x22b7…22bd LineComalBin {
0x22b7…22bd ptr = 0xb014 // 0x22b7 @0x0
0x22b7…22bd lno = 0x0ed8 // 0x22b9 @0x2
0x22b7…22bd at0004 = ╱9b╱ ENDIF ╱ // 0x22bb @0x4
0x22b7…22bd at0005 = EOL // 0x22bc @0x5
0x22b7…22bd }
0x22bd…22c3 b01a 3810 ENDPROC
0x22bd…22c3 LineComalBin {
0x22bd…22c3 ptr = 0xb01a // 0x22bd @0x0
0x22bd…22c3 lno = 0x0ee2 // 0x22bf @0x2
0x22bd…22c3 at0004 = ╱9f╱ ENDPROC ╱ // 0x22c1 @0x4
0x22bd…22c3 at0005 = EOL // 0x22c2 @0x5
0x22bd…22c3 }
0x22c3…22d1 b028 3820 PROC HENTPOST
0x22c3…22d1 LineComalBin {
0x22c3…22d1 ptr = 0xb028 // 0x22c3 @0x0
0x22c3…22d1 lno = 0x0eec // 0x22c5 @0x2
0x22c3…22d1 at0004 = ╱9e╱ PROC ╱ // 0x22c7 @0x4
0x22c3…22d1 at0005 = ╱48╱H╱ // 0x22c8 @0x5
0x22c3…22d1 at0006 = ╱45╱E╱ // 0x22c9 @0x6
0x22c3…22d1 at0007 = ╱4e╱N╱ // 0x22ca @0x7
0x22c3…22d1 at0008 = ╱54╱T╱ // 0x22cb @0x8
0x22c3…22d1 at0009 = ╱50╱P╱ // 0x22cc @0x9
0x22c3…22d1 at000a = ╱4f╱O╱ // 0x22cd @0xa
0x22c3…22d1 at000b = ╱53╱S╱ // 0x22ce @0xb
0x22c3…22d1 at000c = ╱54╱T╱ // 0x22cf @0xc
0x22c3…22d1 at000d = EOL // 0x22d0 @0xd
0x22c3…22d1 }
0x22d1…22e5 b03c 3830 S=FTAB(FPIL3,G)
0x22d1…22e5 LineComalBin {
0x22d1…22e5 ptr = 0xb03c // 0x22d1 @0x0
0x22d1…22e5 lno = 0x0ef6 // 0x22d3 @0x2
0x22d1…22e5 at0004 = ╱53╱S╱ // 0x22d5 @0x4
0x22d1…22e5 at0005 = ╱dc╱=╱ // 0x22d6 @0x5
0x22d1…22e5 at0006 = ╱46╱F╱ // 0x22d7 @0x6
0x22d1…22e5 at0007 = ╱54╱T╱ // 0x22d8 @0x7
0x22d1…22e5 at0008 = ╱41╱A╱ // 0x22d9 @0x8
0x22d1…22e5 at0009 = ╱42╱B╱ // 0x22da @0x9
0x22d1…22e5 at000a = ╱ed╱(╱ // 0x22db @0xa
0x22d1…22e5 at000b = ╱46╱F╱ // 0x22dc @0xb
0x22d1…22e5 at000c = ╱50╱P╱ // 0x22dd @0xc
0x22d1…22e5 at000d = ╱49╱I╱ // 0x22de @0xd
0x22d1…22e5 at000e = ╱4c╱L╱ // 0x22df @0xe
0x22d1…22e5 at000f = ╱33╱3╱ // 0x22e0 @0xf
0x22d1…22e5 at0010 = ╱ec╱,╱ // 0x22e1 @0x10
0x22d1…22e5 at0011 = ╱47╱G╱ // 0x22e2 @0x11
0x22d1…22e5 at0012 = ╱ee╱)╱ // 0x22e3 @0x12
0x22d1…22e5 at0013 = EOL // 0x22e4 @0x13
0x22d1…22e5 }
0x22e5…22fb b052 3840 GET K5$,S:FNR,FNAVN$
0x22e5…22fb LineComalBin {
0x22e5…22fb ptr = 0xb052 // 0x22e5 @0x0
0x22e5…22fb lno = 0x0f00 // 0x22e7 @0x2
0x22e5…22fb at0004 = ╱a9╱ GET ╱ // 0x22e9 @0x4
0x22e5…22fb at0005 = ╱4b╱K╱ // 0x22ea @0x5
0x22e5…22fb at0006 = ╱35╱5╱ // 0x22eb @0x6
0x22e5…22fb at0007 = ╱ef╱$╱ // 0x22ec @0x7
0x22e5…22fb at0008 = ╱ec╱,╱ // 0x22ed @0x8
0x22e5…22fb at0009 = ╱53╱S╱ // 0x22ee @0x9
0x22e5…22fb at000a = ╱f0╱:╱ // 0x22ef @0xa
0x22e5…22fb at000b = ╱46╱F╱ // 0x22f0 @0xb
0x22e5…22fb at000c = ╱4e╱N╱ // 0x22f1 @0xc
0x22e5…22fb at000d = ╱52╱R╱ // 0x22f2 @0xd
0x22e5…22fb at000e = ╱ec╱,╱ // 0x22f3 @0xe
0x22e5…22fb at000f = ╱46╱F╱ // 0x22f4 @0xf
0x22e5…22fb at0010 = ╱4e╱N╱ // 0x22f5 @0x10
0x22e5…22fb at0011 = ╱41╱A╱ // 0x22f6 @0x11
0x22e5…22fb at0012 = ╱56╱V╱ // 0x22f7 @0x12
0x22e5…22fb at0013 = ╱4e╱N╱ // 0x22f8 @0x13
0x22e5…22fb at0014 = ╱ef╱$╱ // 0x22f9 @0x14
0x22e5…22fb at0015 = EOL // 0x22fa @0x15
0x22e5…22fb }
0x22fb…230e b065 3850 EXEC FEJL(W,G,K5$)
0x22fb…230e LineComalBin {
0x22fb…230e ptr = 0xb065 // 0x22fb @0x0
0x22fb…230e lno = 0x0f0a // 0x22fd @0x2
0x22fb…230e at0004 = ╱9d╱ EXEC ╱ // 0x22ff @0x4
0x22fb…230e at0005 = ╱46╱F╱ // 0x2300 @0x5
0x22fb…230e at0006 = ╱45╱E╱ // 0x2301 @0x6
0x22fb…230e at0007 = ╱4a╱J╱ // 0x2302 @0x7
0x22fb…230e at0008 = ╱4c╱L╱ // 0x2303 @0x8
0x22fb…230e at0009 = ╱ed╱(╱ // 0x2304 @0x9
0x22fb…230e at000a = ╱57╱W╱ // 0x2305 @0xa
0x22fb…230e at000b = ╱ec╱,╱ // 0x2306 @0xb
0x22fb…230e at000c = ╱47╱G╱ // 0x2307 @0xc
0x22fb…230e at000d = ╱ec╱,╱ // 0x2308 @0xd
0x22fb…230e at000e = ╱4b╱K╱ // 0x2309 @0xe
0x22fb…230e at000f = ╱35╱5╱ // 0x230a @0xf
0x22fb…230e at0010 = ╱ef╱$╱ // 0x230b @0x10
0x22fb…230e at0011 = ╱ee╱)╱ // 0x230c @0x11
0x22fb…230e at0012 = EOL // 0x230d @0x12
0x22fb…230e }
0x230e…2336 b08d 3860 GET K5$,S+E:FMKODE$,FMDEBET$,FMKREDIT$
0x230e…2336 LineComalBin {
0x230e…2336 ptr = 0xb08d // 0x230e @0x0
0x230e…2336 lno = 0x0f14 // 0x2310 @0x2
0x230e…2336 at0004 = ╱a9╱ GET ╱ // 0x2312 @0x4
0x230e…2336 at0005 = ╱4b╱K╱ // 0x2313 @0x5
0x230e…2336 at0006 = ╱35╱5╱ // 0x2314 @0x6
0x230e…2336 at0007 = ╱ef╱$╱ // 0x2315 @0x7
0x230e…2336 at0008 = ╱ec╱,╱ // 0x2316 @0x8
0x230e…2336 at0009 = ╱53╱S╱ // 0x2317 @0x9
0x230e…2336 at000a = ╱e2╱+╱ // 0x2318 @0xa
0x230e…2336 at000b = ╱45╱E╱ // 0x2319 @0xb
0x230e…2336 at000c = ╱f0╱:╱ // 0x231a @0xc
0x230e…2336 at000d = ╱46╱F╱ // 0x231b @0xd
0x230e…2336 at000e = ╱4d╱M╱ // 0x231c @0xe
0x230e…2336 at000f = ╱4b╱K╱ // 0x231d @0xf
0x230e…2336 at0010 = ╱4f╱O╱ // 0x231e @0x10
0x230e…2336 at0011 = ╱44╱D╱ // 0x231f @0x11
0x230e…2336 at0012 = ╱45╱E╱ // 0x2320 @0x12
0x230e…2336 at0013 = ╱ef╱$╱ // 0x2321 @0x13
0x230e…2336 at0014 = ╱ec╱,╱ // 0x2322 @0x14
0x230e…2336 at0015 = ╱46╱F╱ // 0x2323 @0x15
0x230e…2336 at0016 = ╱4d╱M╱ // 0x2324 @0x16
0x230e…2336 at0017 = ╱44╱D╱ // 0x2325 @0x17
0x230e…2336 at0018 = ╱45╱E╱ // 0x2326 @0x18
0x230e…2336 at0019 = ╱42╱B╱ // 0x2327 @0x19
0x230e…2336 at001a = ╱45╱E╱ // 0x2328 @0x1a
0x230e…2336 at001b = ╱54╱T╱ // 0x2329 @0x1b
0x230e…2336 at001c = ╱ef╱$╱ // 0x232a @0x1c
0x230e…2336 at001d = ╱ec╱,╱ // 0x232b @0x1d
0x230e…2336 at001e = ╱46╱F╱ // 0x232c @0x1e
0x230e…2336 at001f = ╱4d╱M╱ // 0x232d @0x1f
0x230e…2336 at0020 = ╱4b╱K╱ // 0x232e @0x20
0x230e…2336 at0021 = ╱52╱R╱ // 0x232f @0x21
0x230e…2336 at0022 = ╱45╱E╱ // 0x2330 @0x22
0x230e…2336 at0023 = ╱44╱D╱ // 0x2331 @0x23
0x230e…2336 at0024 = ╱49╱I╱ // 0x2332 @0x24
0x230e…2336 at0025 = ╱54╱T╱ // 0x2333 @0x25
0x230e…2336 at0026 = ╱ef╱$╱ // 0x2334 @0x26
0x230e…2336 at0027 = EOL // 0x2335 @0x27
0x230e…2336 }
0x2336…2349 b0a0 3870 EXEC FEJL(W,V,K5$)
0x2336…2349 LineComalBin {
0x2336…2349 ptr = 0xb0a0 // 0x2336 @0x0
0x2336…2349 lno = 0x0f1e // 0x2338 @0x2
0x2336…2349 at0004 = ╱9d╱ EXEC ╱ // 0x233a @0x4
0x2336…2349 at0005 = ╱46╱F╱ // 0x233b @0x5
0x2336…2349 at0006 = ╱45╱E╱ // 0x233c @0x6
0x2336…2349 at0007 = ╱4a╱J╱ // 0x233d @0x7
0x2336…2349 at0008 = ╱4c╱L╱ // 0x233e @0x8
0x2336…2349 at0009 = ╱ed╱(╱ // 0x233f @0x9
0x2336…2349 at000a = ╱57╱W╱ // 0x2340 @0xa
0x2336…2349 at000b = ╱ec╱,╱ // 0x2341 @0xb
0x2336…2349 at000c = ╱56╱V╱ // 0x2342 @0xc
0x2336…2349 at000d = ╱ec╱,╱ // 0x2343 @0xd
0x2336…2349 at000e = ╱4b╱K╱ // 0x2344 @0xe
0x2336…2349 at000f = ╱35╱5╱ // 0x2345 @0xf
0x2336…2349 at0010 = ╱ef╱$╱ // 0x2346 @0x10
0x2336…2349 at0011 = ╱ee╱)╱ // 0x2347 @0x11
0x2336…2349 at0012 = EOL // 0x2348 @0x12
0x2336…2349 }
0x2349…2371 b0c8 3880 GET K5$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$
0x2349…2371 LineComalBin {
0x2349…2371 ptr = 0xb0c8 // 0x2349 @0x0
0x2349…2371 lno = 0x0f28 // 0x234b @0x2
0x2349…2371 at0004 = ╱a9╱ GET ╱ // 0x234d @0x4
0x2349…2371 at0005 = ╱4b╱K╱ // 0x234e @0x5
0x2349…2371 at0006 = ╱35╱5╱ // 0x234f @0x6
0x2349…2371 at0007 = ╱ef╱$╱ // 0x2350 @0x7
0x2349…2371 at0008 = ╱ec╱,╱ // 0x2351 @0x8
0x2349…2371 at0009 = ╱53╱S╱ // 0x2352 @0x9
0x2349…2371 at000a = ╱e2╱+╱ // 0x2353 @0xa
0x2349…2371 at000b = ╱47╱G╱ // 0x2354 @0xb
0x2349…2371 at000c = ╱f0╱:╱ // 0x2355 @0xc
0x2349…2371 at000d = ╱46╱F╱ // 0x2356 @0xd
0x2349…2371 at000e = ╱55╱U╱ // 0x2357 @0xe
0x2349…2371 at000f = ╱4b╱K╱ // 0x2358 @0xf
0x2349…2371 at0010 = ╱4f╱O╱ // 0x2359 @0x10
0x2349…2371 at0011 = ╱44╱D╱ // 0x235a @0x11
0x2349…2371 at0012 = ╱45╱E╱ // 0x235b @0x12
0x2349…2371 at0013 = ╱ef╱$╱ // 0x235c @0x13
0x2349…2371 at0014 = ╱ec╱,╱ // 0x235d @0x14
0x2349…2371 at0015 = ╱46╱F╱ // 0x235e @0x15
0x2349…2371 at0016 = ╱5d╱Å╱ // 0x235f @0x16
0x2349…2371 at0017 = ╱44╱D╱ // 0x2360 @0x17
0x2349…2371 at0018 = ╱45╱E╱ // 0x2361 @0x18
0x2349…2371 at0019 = ╱42╱B╱ // 0x2362 @0x19
0x2349…2371 at001a = ╱45╱E╱ // 0x2363 @0x1a
0x2349…2371 at001b = ╱54╱T╱ // 0x2364 @0x1b
0x2349…2371 at001c = ╱ef╱$╱ // 0x2365 @0x1c
0x2349…2371 at001d = ╱ec╱,╱ // 0x2366 @0x1d
0x2349…2371 at001e = ╱46╱F╱ // 0x2367 @0x1e
0x2349…2371 at001f = ╱5d╱Å╱ // 0x2368 @0x1f
0x2349…2371 at0020 = ╱4b╱K╱ // 0x2369 @0x20
0x2349…2371 at0021 = ╱52╱R╱ // 0x236a @0x21
0x2349…2371 at0022 = ╱45╱E╱ // 0x236b @0x22
0x2349…2371 at0023 = ╱44╱D╱ // 0x236c @0x23
0x2349…2371 at0024 = ╱49╱I╱ // 0x236d @0x24
0x2349…2371 at0025 = ╱54╱T╱ // 0x236e @0x25
0x2349…2371 at0026 = ╱ef╱$╱ // 0x236f @0x26
0x2349…2371 at0027 = EOL // 0x2370 @0x27
0x2349…2371 }
0x2371…2389 b0e0 3890 EXEC FEJL(W,4,K5$)
0x2371…2389 LineComalBin {
0x2371…2389 ptr = 0xb0e0 // 0x2371 @0x0
0x2371…2389 lno = 0x0f32 // 0x2373 @0x2
0x2371…2389 at0004 = ╱9d╱ EXEC ╱ // 0x2375 @0x4
0x2371…2389 at0005 = ╱46╱F╱ // 0x2376 @0x5
0x2371…2389 at0006 = ╱45╱E╱ // 0x2377 @0x6
0x2371…2389 at0007 = ╱4a╱J╱ // 0x2378 @0x7
0x2371…2389 at0008 = ╱4c╱L╱ // 0x2379 @0x8
0x2371…2389 at0009 = ╱ed╱(╱ // 0x237a @0x9
0x2371…2389 at000a = ╱57╱W╱ // 0x237b @0xa
0x2371…2389 at000b = ╱ec╱,╱ // 0x237c @0xb
0x2371…2389 at000c = ╱34╱4╱ // 0x237d @0xc
0x2371…2389 at000d = ╱fe00008003╱ // 0x237e @0xd
0x2371…2389 at0012 = ╱ec╱,╱ // 0x2383 @0x12
0x2371…2389 at0013 = ╱4b╱K╱ // 0x2384 @0x13
0x2371…2389 at0014 = ╱35╱5╱ // 0x2385 @0x14
0x2371…2389 at0015 = ╱ef╱$╱ // 0x2386 @0x15
0x2371…2389 at0016 = ╱ee╱)╱ // 0x2387 @0x16
0x2371…2389 at0017 = EOL // 0x2388 @0x17
0x2371…2389 }
0x2389…238f b0e6 3900 ENDPROC
0x2389…238f LineComalBin {
0x2389…238f ptr = 0xb0e6 // 0x2389 @0x0
0x2389…238f lno = 0x0f3c // 0x238b @0x2
0x2389…238f at0004 = ╱9f╱ ENDPROC ╱ // 0x238d @0x4
0x2389…238f at0005 = EOL // 0x238e @0x5
0x2389…238f }
0x238f…239e b0f5 3910 PROC HENTDPOST
0x238f…239e LineComalBin {
0x238f…239e ptr = 0xb0f5 // 0x238f @0x0
0x238f…239e lno = 0x0f46 // 0x2391 @0x2
0x238f…239e at0004 = ╱9e╱ PROC ╱ // 0x2393 @0x4
0x238f…239e at0005 = ╱48╱H╱ // 0x2394 @0x5
0x238f…239e at0006 = ╱45╱E╱ // 0x2395 @0x6
0x238f…239e at0007 = ╱4e╱N╱ // 0x2396 @0x7
0x238f…239e at0008 = ╱54╱T╱ // 0x2397 @0x8
0x238f…239e at0009 = ╱44╱D╱ // 0x2398 @0x9
0x238f…239e at000a = ╱50╱P╱ // 0x2399 @0xa
0x238f…239e at000b = ╱4f╱O╱ // 0x239a @0xb
0x238f…239e at000c = ╱53╱S╱ // 0x239b @0xc
0x238f…239e at000d = ╱54╱T╱ // 0x239c @0xd
0x238f…239e at000e = EOL // 0x239d @0xe
0x238f…239e }
0x239e…23b2 b109 3920 S=DTAB(DPIL3,G)
0x239e…23b2 LineComalBin {
0x239e…23b2 ptr = 0xb109 // 0x239e @0x0
0x239e…23b2 lno = 0x0f50 // 0x23a0 @0x2
0x239e…23b2 at0004 = ╱53╱S╱ // 0x23a2 @0x4
0x239e…23b2 at0005 = ╱dc╱=╱ // 0x23a3 @0x5
0x239e…23b2 at0006 = ╱44╱D╱ // 0x23a4 @0x6
0x239e…23b2 at0007 = ╱54╱T╱ // 0x23a5 @0x7
0x239e…23b2 at0008 = ╱41╱A╱ // 0x23a6 @0x8
0x239e…23b2 at0009 = ╱42╱B╱ // 0x23a7 @0x9
0x239e…23b2 at000a = ╱ed╱(╱ // 0x23a8 @0xa
0x239e…23b2 at000b = ╱44╱D╱ // 0x23a9 @0xb
0x239e…23b2 at000c = ╱50╱P╱ // 0x23aa @0xc
0x239e…23b2 at000d = ╱49╱I╱ // 0x23ab @0xd
0x239e…23b2 at000e = ╱4c╱L╱ // 0x23ac @0xe
0x239e…23b2 at000f = ╱33╱3╱ // 0x23ad @0xf
0x239e…23b2 at0010 = ╱ec╱,╱ // 0x23ae @0x10
0x239e…23b2 at0011 = ╱47╱G╱ // 0x23af @0x11
0x239e…23b2 at0012 = ╱ee╱)╱ // 0x23b0 @0x12
0x239e…23b2 at0013 = EOL // 0x23b1 @0x13
0x239e…23b2 }
0x23b2…23dd b134 3930 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x23b2…23dd LineComalBin {
0x23b2…23dd ptr = 0xb134 // 0x23b2 @0x0
0x23b2…23dd lno = 0x0f5a // 0x23b4 @0x2
0x23b2…23dd at0004 = ╱a9╱ GET ╱ // 0x23b6 @0x4
0x23b2…23dd at0005 = ╱4b╱K╱ // 0x23b7 @0x5
0x23b2…23dd at0006 = ╱36╱6╱ // 0x23b8 @0x6
0x23b2…23dd at0007 = ╱ef╱$╱ // 0x23b9 @0x7
0x23b2…23dd at0008 = ╱ec╱,╱ // 0x23ba @0x8
0x23b2…23dd at0009 = ╱53╱S╱ // 0x23bb @0x9
0x23b2…23dd at000a = ╱f0╱:╱ // 0x23bc @0xa
0x23b2…23dd at000b = ╱44╱D╱ // 0x23bd @0xb
0x23b2…23dd at000c = ╱45╱E╱ // 0x23be @0xc
0x23b2…23dd at000d = ╱42╱B╱ // 0x23bf @0xd
0x23b2…23dd at000e = ╱4e╱N╱ // 0x23c0 @0xe
0x23b2…23dd at000f = ╱52╱R╱ // 0x23c1 @0xf
0x23b2…23dd at0010 = ╱ec╱,╱ // 0x23c2 @0x10
0x23b2…23dd at0011 = ╱44╱D╱ // 0x23c3 @0x11
0x23b2…23dd at0012 = ╱45╱E╱ // 0x23c4 @0x12
0x23b2…23dd at0013 = ╱42╱B╱ // 0x23c5 @0x13
0x23b2…23dd at0014 = ╱4e╱N╱ // 0x23c6 @0x14
0x23b2…23dd at0015 = ╱41╱A╱ // 0x23c7 @0x15
0x23b2…23dd at0016 = ╱56╱V╱ // 0x23c8 @0x16
0x23b2…23dd at0017 = ╱4e╱N╱ // 0x23c9 @0x17
0x23b2…23dd at0018 = ╱ef╱$╱ // 0x23ca @0x18
0x23b2…23dd at0019 = ╱ec╱,╱ // 0x23cb @0x19
0x23b2…23dd at001a = ╱44╱D╱ // 0x23cc @0x1a
0x23b2…23dd at001b = ╱53╱S╱ // 0x23cd @0x1b
0x23b2…23dd at001c = ╱41╱A╱ // 0x23ce @0x1c
0x23b2…23dd at001d = ╱4c╱L╱ // 0x23cf @0x1d
0x23b2…23dd at001e = ╱44╱D╱ // 0x23d0 @0x1e
0x23b2…23dd at001f = ╱4f╱O╱ // 0x23d1 @0x1f
0x23b2…23dd at0020 = ╱31╱1╱ // 0x23d2 @0x20
0x23b2…23dd at0021 = ╱ef╱$╱ // 0x23d3 @0x21
0x23b2…23dd at0022 = ╱ec╱,╱ // 0x23d4 @0x22
0x23b2…23dd at0023 = ╱44╱D╱ // 0x23d5 @0x23
0x23b2…23dd at0024 = ╱45╱E╱ // 0x23d6 @0x24
0x23b2…23dd at0025 = ╱42╱B╱ // 0x23d7 @0x25
0x23b2…23dd at0026 = ╱4b╱K╱ // 0x23d8 @0x26
0x23b2…23dd at0027 = ╱47╱G╱ // 0x23d9 @0x27
0x23b2…23dd at0028 = ╱52╱R╱ // 0x23da @0x28
0x23b2…23dd at0029 = ╱ef╱$╱ // 0x23db @0x29
0x23b2…23dd at002a = EOL // 0x23dc @0x2a
0x23b2…23dd }
0x23dd…23f5 b14c 3940 EXEC FEJL(8,G,K6$)
0x23dd…23f5 LineComalBin {
0x23dd…23f5 ptr = 0xb14c // 0x23dd @0x0
0x23dd…23f5 lno = 0x0f64 // 0x23df @0x2
0x23dd…23f5 at0004 = ╱9d╱ EXEC ╱ // 0x23e1 @0x4
0x23dd…23f5 at0005 = ╱46╱F╱ // 0x23e2 @0x5
0x23dd…23f5 at0006 = ╱45╱E╱ // 0x23e3 @0x6
0x23dd…23f5 at0007 = ╱4a╱J╱ // 0x23e4 @0x7
0x23dd…23f5 at0008 = ╱4c╱L╱ // 0x23e5 @0x8
0x23dd…23f5 at0009 = ╱ed╱(╱ // 0x23e6 @0x9
0x23dd…23f5 at000a = ╱38╱8╱ // 0x23e7 @0xa
0x23dd…23f5 at000b = ╱fe00008004╱ // 0x23e8 @0xb
0x23dd…23f5 at0010 = ╱ec╱,╱ // 0x23ed @0x10
0x23dd…23f5 at0011 = ╱47╱G╱ // 0x23ee @0x11
0x23dd…23f5 at0012 = ╱ec╱,╱ // 0x23ef @0x12
0x23dd…23f5 at0013 = ╱4b╱K╱ // 0x23f0 @0x13
0x23dd…23f5 at0014 = ╱36╱6╱ // 0x23f1 @0x14
0x23dd…23f5 at0015 = ╱ef╱$╱ // 0x23f2 @0x15
0x23dd…23f5 at0016 = ╱ee╱)╱ // 0x23f3 @0x16
0x23dd…23f5 at0017 = EOL // 0x23f4 @0x17
0x23dd…23f5 }
0x23f5…242e b185 3950 GET K6$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x23f5…242e LineComalBin {
0x23f5…242e ptr = 0xb185 // 0x23f5 @0x0
0x23f5…242e lno = 0x0f6e // 0x23f7 @0x2
0x23f5…242e at0004 = ╱a9╱ GET ╱ // 0x23f9 @0x4
0x23f5…242e at0005 = ╱4b╱K╱ // 0x23fa @0x5
0x23f5…242e at0006 = ╱36╱6╱ // 0x23fb @0x6
0x23f5…242e at0007 = ╱ef╱$╱ // 0x23fc @0x7
0x23f5…242e at0008 = ╱ec╱,╱ // 0x23fd @0x8
0x23f5…242e at0009 = ╱53╱S╱ // 0x23fe @0x9
0x23f5…242e at000a = ╱e2╱+╱ // 0x23ff @0xa
0x23f5…242e at000b = ╱45╱E╱ // 0x2400 @0xb
0x23f5…242e at000c = ╱f0╱:╱ // 0x2401 @0xc
0x23f5…242e at000d = ╱44╱D╱ // 0x2402 @0xd
0x23f5…242e at000e = ╱53╱S╱ // 0x2403 @0xe
0x23f5…242e at000f = ╱41╱A╱ // 0x2404 @0xf
0x23f5…242e at0010 = ╱4c╱L╱ // 0x2405 @0x10
0x23f5…242e at0011 = ╱44╱D╱ // 0x2406 @0x11
0x23f5…242e at0012 = ╱4f╱O╱ // 0x2407 @0x12
0x23f5…242e at0013 = ╱32╱2╱ // 0x2408 @0x13
0x23f5…242e at0014 = ╱ef╱$╱ // 0x2409 @0x14
0x23f5…242e at0015 = ╱ec╱,╱ // 0x240a @0x15
0x23f5…242e at0016 = ╱44╱D╱ // 0x240b @0x16
0x23f5…242e at0017 = ╱53╱S╱ // 0x240c @0x17
0x23f5…242e at0018 = ╱41╱A╱ // 0x240d @0x18
0x23f5…242e at0019 = ╱4c╱L╱ // 0x240e @0x19
0x23f5…242e at001a = ╱44╱D╱ // 0x240f @0x1a
0x23f5…242e at001b = ╱4f╱O╱ // 0x2410 @0x1b
0x23f5…242e at001c = ╱33╱3╱ // 0x2411 @0x1c
0x23f5…242e at001d = ╱ef╱$╱ // 0x2412 @0x1d
0x23f5…242e at001e = ╱ec╱,╱ // 0x2413 @0x1e
0x23f5…242e at001f = ╱44╱D╱ // 0x2414 @0x1f
0x23f5…242e at0020 = ╱53╱S╱ // 0x2415 @0x20
0x23f5…242e at0021 = ╱41╱A╱ // 0x2416 @0x21
0x23f5…242e at0022 = ╱4c╱L╱ // 0x2417 @0x22
0x23f5…242e at0023 = ╱44╱D╱ // 0x2418 @0x23
0x23f5…242e at0024 = ╱4f╱O╱ // 0x2419 @0x24
0x23f5…242e at0025 = ╱34╱4╱ // 0x241a @0x25
0x23f5…242e at0026 = ╱ef╱$╱ // 0x241b @0x26
0x23f5…242e at0027 = ╱ec╱,╱ // 0x241c @0x27
0x23f5…242e at0028 = ╱44╱D╱ // 0x241d @0x28
0x23f5…242e at0029 = ╱45╱E╱ // 0x241e @0x29
0x23f5…242e at002a = ╱42╱B╱ // 0x241f @0x2a
0x23f5…242e at002b = ╱50╱P╱ // 0x2420 @0x2b
0x23f5…242e at002c = ╱4f╱O╱ // 0x2421 @0x2c
0x23f5…242e at002d = ╱53╱S╱ // 0x2422 @0x2d
0x23f5…242e at002e = ╱54╱T╱ // 0x2423 @0x2e
0x23f5…242e at002f = ╱4e╱N╱ // 0x2424 @0x2f
0x23f5…242e at0030 = ╱52╱R╱ // 0x2425 @0x30
0x23f5…242e at0031 = ╱ec╱,╱ // 0x2426 @0x31
0x23f5…242e at0032 = ╱44╱D╱ // 0x2427 @0x32
0x23f5…242e at0033 = ╱45╱E╱ // 0x2428 @0x33
0x23f5…242e at0034 = ╱42╱B╱ // 0x2429 @0x34
0x23f5…242e at0035 = ╱4c╱L╱ // 0x242a @0x35
0x23f5…242e at0036 = ╱4b╱K╱ // 0x242b @0x36
0x23f5…242e at0037 = ╱ef╱$╱ // 0x242c @0x37
0x23f5…242e at0038 = EOL // 0x242d @0x38
0x23f5…242e }
0x242e…2446 b19d 3960 EXEC FEJL(8,V,K6$)
0x242e…2446 LineComalBin {
0x242e…2446 ptr = 0xb19d // 0x242e @0x0
0x242e…2446 lno = 0x0f78 // 0x2430 @0x2
0x242e…2446 at0004 = ╱9d╱ EXEC ╱ // 0x2432 @0x4
0x242e…2446 at0005 = ╱46╱F╱ // 0x2433 @0x5
0x242e…2446 at0006 = ╱45╱E╱ // 0x2434 @0x6
0x242e…2446 at0007 = ╱4a╱J╱ // 0x2435 @0x7
0x242e…2446 at0008 = ╱4c╱L╱ // 0x2436 @0x8
0x242e…2446 at0009 = ╱ed╱(╱ // 0x2437 @0x9
0x242e…2446 at000a = ╱38╱8╱ // 0x2438 @0xa
0x242e…2446 at000b = ╱fe00008004╱ // 0x2439 @0xb
0x242e…2446 at0010 = ╱ec╱,╱ // 0x243e @0x10
0x242e…2446 at0011 = ╱56╱V╱ // 0x243f @0x11
0x242e…2446 at0012 = ╱ec╱,╱ // 0x2440 @0x12
0x242e…2446 at0013 = ╱4b╱K╱ // 0x2441 @0x13
0x242e…2446 at0014 = ╱36╱6╱ // 0x2442 @0x14
0x242e…2446 at0015 = ╱ef╱$╱ // 0x2443 @0x15
0x242e…2446 at0016 = ╱ee╱)╱ // 0x2444 @0x16
0x242e…2446 at0017 = EOL // 0x2445 @0x17
0x242e…2446 }
0x2446…2471 b1c8 3970 GET K6$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x2446…2471 LineComalBin {
0x2446…2471 ptr = 0xb1c8 // 0x2446 @0x0
0x2446…2471 lno = 0x0f82 // 0x2448 @0x2
0x2446…2471 at0004 = ╱a9╱ GET ╱ // 0x244a @0x4
0x2446…2471 at0005 = ╱4b╱K╱ // 0x244b @0x5
0x2446…2471 at0006 = ╱36╱6╱ // 0x244c @0x6
0x2446…2471 at0007 = ╱ef╱$╱ // 0x244d @0x7
0x2446…2471 at0008 = ╱ec╱,╱ // 0x244e @0x8
0x2446…2471 at0009 = ╱53╱S╱ // 0x244f @0x9
0x2446…2471 at000a = ╱e2╱+╱ // 0x2450 @0xa
0x2446…2471 at000b = ╱47╱G╱ // 0x2451 @0xb
0x2446…2471 at000c = ╱f0╱:╱ // 0x2452 @0xc
0x2446…2471 at000d = ╱44╱D╱ // 0x2453 @0xd
0x2446…2471 at000e = ╱45╱E╱ // 0x2454 @0xe
0x2446…2471 at000f = ╱42╱B╱ // 0x2455 @0xf
0x2446…2471 at0010 = ╱47╱G╱ // 0x2456 @0x10
0x2446…2471 at0011 = ╱41╱A╱ // 0x2457 @0x11
0x2446…2471 at0012 = ╱44╱D╱ // 0x2458 @0x12
0x2446…2471 at0013 = ╱45╱E╱ // 0x2459 @0x13
0x2446…2471 at0014 = ╱ef╱$╱ // 0x245a @0x14
0x2446…2471 at0015 = ╱ec╱,╱ // 0x245b @0x15
0x2446…2471 at0016 = ╱44╱D╱ // 0x245c @0x16
0x2446…2471 at0017 = ╱45╱E╱ // 0x245d @0x17
0x2446…2471 at0018 = ╱42╱B╱ // 0x245e @0x18
0x2446…2471 at0019 = ╱54╱T╱ // 0x245f @0x19
0x2446…2471 at001a = ╱4c╱L╱ // 0x2460 @0x1a
0x2446…2471 at001b = ╱46╱F╱ // 0x2461 @0x1b
0x2446…2471 at001c = ╱ef╱$╱ // 0x2462 @0x1c
0x2446…2471 at001d = ╱ec╱,╱ // 0x2463 @0x1d
0x2446…2471 at001e = ╱48╱H╱ // 0x2464 @0x1e
0x2446…2471 at001f = ╱50╱P╱ // 0x2465 @0x1f
0x2446…2471 at0020 = ╱4f╱O╱ // 0x2466 @0x20
0x2446…2471 at0021 = ╱53╱S╱ // 0x2467 @0x21
0x2446…2471 at0022 = ╱54╱T╱ // 0x2468 @0x22
0x2446…2471 at0023 = ╱ec╱,╱ // 0x2469 @0x23
0x2446…2471 at0024 = ╱48╱H╱ // 0x246a @0x24
0x2446…2471 at0025 = ╱4b╱K╱ // 0x246b @0x25
0x2446…2471 at0026 = ╱55╱U╱ // 0x246c @0x26
0x2446…2471 at0027 = ╱4e╱N╱ // 0x246d @0x27
0x2446…2471 at0028 = ╱44╱D╱ // 0x246e @0x28
0x2446…2471 at0029 = ╱45╱E╱ // 0x246f @0x29
0x2446…2471 at002a = EOL // 0x2470 @0x2a
0x2446…2471 }
0x2471…248e b1e5 3980 EXEC FEJL(8,4,K6$)
0x2471…248e LineComalBin {
0x2471…248e ptr = 0xb1e5 // 0x2471 @0x0
0x2471…248e lno = 0x0f8c // 0x2473 @0x2
0x2471…248e at0004 = ╱9d╱ EXEC ╱ // 0x2475 @0x4
0x2471…248e at0005 = ╱46╱F╱ // 0x2476 @0x5
0x2471…248e at0006 = ╱45╱E╱ // 0x2477 @0x6
0x2471…248e at0007 = ╱4a╱J╱ // 0x2478 @0x7
0x2471…248e at0008 = ╱4c╱L╱ // 0x2479 @0x8
0x2471…248e at0009 = ╱ed╱(╱ // 0x247a @0x9
0x2471…248e at000a = ╱38╱8╱ // 0x247b @0xa
0x2471…248e at000b = ╱fe00008004╱ // 0x247c @0xb
0x2471…248e at0010 = ╱ec╱,╱ // 0x2481 @0x10
0x2471…248e at0011 = ╱34╱4╱ // 0x2482 @0x11
0x2471…248e at0012 = ╱fe00008003╱ // 0x2483 @0x12
0x2471…248e at0017 = ╱ec╱,╱ // 0x2488 @0x17
0x2471…248e at0018 = ╱4b╱K╱ // 0x2489 @0x18
0x2471…248e at0019 = ╱36╱6╱ // 0x248a @0x19
0x2471…248e at001a = ╱ef╱$╱ // 0x248b @0x1a
0x2471…248e at001b = ╱ee╱)╱ // 0x248c @0x1b
0x2471…248e at001c = EOL // 0x248d @0x1c
0x2471…248e }
0x248e…24b1 b208 3990 GET K6$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x248e…24b1 LineComalBin {
0x248e…24b1 ptr = 0xb208 // 0x248e @0x0
0x248e…24b1 lno = 0x0f96 // 0x2490 @0x2
0x248e…24b1 at0004 = ╱a9╱ GET ╱ // 0x2492 @0x4
0x248e…24b1 at0005 = ╱4b╱K╱ // 0x2493 @0x5
0x248e…24b1 at0006 = ╱36╱6╱ // 0x2494 @0x6
0x248e…24b1 at0007 = ╱ef╱$╱ // 0x2495 @0x7
0x248e…24b1 at0008 = ╱ec╱,╱ // 0x2496 @0x8
0x248e…24b1 at0009 = ╱53╱S╱ // 0x2497 @0x9
0x248e…24b1 at000a = ╱e2╱+╱ // 0x2498 @0xa
0x248e…24b1 at000b = ╱56╱V╱ // 0x2499 @0xb
0x248e…24b1 at000c = ╱f0╱:╱ // 0x249a @0xc
0x248e…24b1 at000d = ╱44╱D╱ // 0x249b @0xd
0x248e…24b1 at000e = ╱45╱E╱ // 0x249c @0xe
0x248e…24b1 at000f = ╱42╱B╱ // 0x249d @0xf
0x248e…24b1 at0010 = ╱42╱B╱ // 0x249e @0x10
0x248e…24b1 at0011 = ╱59╱Y╱ // 0x249f @0x11
0x248e…24b1 at0012 = ╱ef╱$╱ // 0x24a0 @0x12
0x248e…24b1 at0013 = ╱ec╱,╱ // 0x24a1 @0x13
0x248e…24b1 at0014 = ╱5d╱Å╱ // 0x24a2 @0x14
0x248e…24b1 at0015 = ╱52╱R╱ // 0x24a3 @0x15
0x248e…24b1 at0016 = ╱4b╱K╱ // 0x24a4 @0x16
0x248e…24b1 at0017 = ╱5c╱Ø╱ // 0x24a5 @0x17
0x248e…24b1 at0018 = ╱42╱B╱ // 0x24a6 @0x18
0x248e…24b1 at0019 = ╱ef╱$╱ // 0x24a7 @0x19
0x248e…24b1 at001a = ╱ec╱,╱ // 0x24a8 @0x1a
0x248e…24b1 at001b = ╱4d╱M╱ // 0x24a9 @0x1b
0x248e…24b1 at001c = ╱44╱D╱ // 0x24aa @0x1c
0x248e…24b1 at001d = ╱4e╱N╱ // 0x24ab @0x1d
0x248e…24b1 at001e = ╱4b╱K╱ // 0x24ac @0x1e
0x248e…24b1 at001f = ╱5c╱Ø╱ // 0x24ad @0x1f
0x248e…24b1 at0020 = ╱42╱B╱ // 0x24ae @0x20
0x248e…24b1 at0021 = ╱ef╱$╱ // 0x24af @0x21
0x248e…24b1 at0022 = EOL // 0x24b0 @0x22
0x248e…24b1 }
0x24b1…24ce b225 4000 EXEC FEJL(8,5,K6$)
0x24b1…24ce LineComalBin {
0x24b1…24ce ptr = 0xb225 // 0x24b1 @0x0
0x24b1…24ce lno = 0x0fa0 // 0x24b3 @0x2
0x24b1…24ce at0004 = ╱9d╱ EXEC ╱ // 0x24b5 @0x4
0x24b1…24ce at0005 = ╱46╱F╱ // 0x24b6 @0x5
0x24b1…24ce at0006 = ╱45╱E╱ // 0x24b7 @0x6
0x24b1…24ce at0007 = ╱4a╱J╱ // 0x24b8 @0x7
0x24b1…24ce at0008 = ╱4c╱L╱ // 0x24b9 @0x8
0x24b1…24ce at0009 = ╱ed╱(╱ // 0x24ba @0x9
0x24b1…24ce at000a = ╱38╱8╱ // 0x24bb @0xa
0x24b1…24ce at000b = ╱fe00008004╱ // 0x24bc @0xb
0x24b1…24ce at0010 = ╱ec╱,╱ // 0x24c1 @0x10
0x24b1…24ce at0011 = ╱35╱5╱ // 0x24c2 @0x11
0x24b1…24ce at0012 = ╱fe0000a003╱ // 0x24c3 @0x12
0x24b1…24ce at0017 = ╱ec╱,╱ // 0x24c8 @0x17
0x24b1…24ce at0018 = ╱4b╱K╱ // 0x24c9 @0x18
0x24b1…24ce at0019 = ╱36╱6╱ // 0x24ca @0x19
0x24b1…24ce at001a = ╱ef╱$╱ // 0x24cb @0x1a
0x24b1…24ce at001b = ╱ee╱)╱ // 0x24cc @0x1b
0x24b1…24ce at001c = EOL // 0x24cd @0x1c
0x24b1…24ce }
0x24ce…24d4 b22b 4010 ENDPROC
0x24ce…24d4 LineComalBin {
0x24ce…24d4 ptr = 0xb22b // 0x24ce @0x0
0x24ce…24d4 lno = 0x0faa // 0x24d0 @0x2
0x24ce…24d4 at0004 = ╱9f╱ ENDPROC ╱ // 0x24d2 @0x4
0x24ce…24d4 at0005 = EOL // 0x24d3 @0x5
0x24ce…24d4 }
0x24d4…24e3 b23a 4020 PROC HENTKPOST
0x24d4…24e3 LineComalBin {
0x24d4…24e3 ptr = 0xb23a // 0x24d4 @0x0
0x24d4…24e3 lno = 0x0fb4 // 0x24d6 @0x2
0x24d4…24e3 at0004 = ╱9e╱ PROC ╱ // 0x24d8 @0x4
0x24d4…24e3 at0005 = ╱48╱H╱ // 0x24d9 @0x5
0x24d4…24e3 at0006 = ╱45╱E╱ // 0x24da @0x6
0x24d4…24e3 at0007 = ╱4e╱N╱ // 0x24db @0x7
0x24d4…24e3 at0008 = ╱54╱T╱ // 0x24dc @0x8
0x24d4…24e3 at0009 = ╱4b╱K╱ // 0x24dd @0x9
0x24d4…24e3 at000a = ╱50╱P╱ // 0x24de @0xa
0x24d4…24e3 at000b = ╱4f╱O╱ // 0x24df @0xb
0x24d4…24e3 at000c = ╱53╱S╱ // 0x24e0 @0xc
0x24d4…24e3 at000d = ╱54╱T╱ // 0x24e1 @0xd
0x24d4…24e3 at000e = EOL // 0x24e2 @0xe
0x24d4…24e3 }
0x24e3…24f7 b24e 4030 S=KTAB(KPIL3,G)
0x24e3…24f7 LineComalBin {
0x24e3…24f7 ptr = 0xb24e // 0x24e3 @0x0
0x24e3…24f7 lno = 0x0fbe // 0x24e5 @0x2
0x24e3…24f7 at0004 = ╱53╱S╱ // 0x24e7 @0x4
0x24e3…24f7 at0005 = ╱dc╱=╱ // 0x24e8 @0x5
0x24e3…24f7 at0006 = ╱4b╱K╱ // 0x24e9 @0x6
0x24e3…24f7 at0007 = ╱54╱T╱ // 0x24ea @0x7
0x24e3…24f7 at0008 = ╱41╱A╱ // 0x24eb @0x8
0x24e3…24f7 at0009 = ╱42╱B╱ // 0x24ec @0x9
0x24e3…24f7 at000a = ╱ed╱(╱ // 0x24ed @0xa
0x24e3…24f7 at000b = ╱4b╱K╱ // 0x24ee @0xb
0x24e3…24f7 at000c = ╱50╱P╱ // 0x24ef @0xc
0x24e3…24f7 at000d = ╱49╱I╱ // 0x24f0 @0xd
0x24e3…24f7 at000e = ╱4c╱L╱ // 0x24f1 @0xe
0x24e3…24f7 at000f = ╱33╱3╱ // 0x24f2 @0xf
0x24e3…24f7 at0010 = ╱ec╱,╱ // 0x24f3 @0x10
0x24e3…24f7 at0011 = ╱47╱G╱ // 0x24f4 @0x11
0x24e3…24f7 at0012 = ╱ee╱)╱ // 0x24f5 @0x12
0x24e3…24f7 at0013 = EOL // 0x24f6 @0x13
0x24e3…24f7 }
0x24f7…251a b271 4040 GET K7$,S:KRENR,KRENAVN$,KREGADE$
0x24f7…251a LineComalBin {
0x24f7…251a ptr = 0xb271 // 0x24f7 @0x0
0x24f7…251a lno = 0x0fc8 // 0x24f9 @0x2
0x24f7…251a at0004 = ╱a9╱ GET ╱ // 0x24fb @0x4
0x24f7…251a at0005 = ╱4b╱K╱ // 0x24fc @0x5
0x24f7…251a at0006 = ╱37╱7╱ // 0x24fd @0x6
0x24f7…251a at0007 = ╱ef╱$╱ // 0x24fe @0x7
0x24f7…251a at0008 = ╱ec╱,╱ // 0x24ff @0x8
0x24f7…251a at0009 = ╱53╱S╱ // 0x2500 @0x9
0x24f7…251a at000a = ╱f0╱:╱ // 0x2501 @0xa
0x24f7…251a at000b = ╱4b╱K╱ // 0x2502 @0xb
0x24f7…251a at000c = ╱52╱R╱ // 0x2503 @0xc
0x24f7…251a at000d = ╱45╱E╱ // 0x2504 @0xd
0x24f7…251a at000e = ╱4e╱N╱ // 0x2505 @0xe
0x24f7…251a at000f = ╱52╱R╱ // 0x2506 @0xf
0x24f7…251a at0010 = ╱ec╱,╱ // 0x2507 @0x10
0x24f7…251a at0011 = ╱4b╱K╱ // 0x2508 @0x11
0x24f7…251a at0012 = ╱52╱R╱ // 0x2509 @0x12
0x24f7…251a at0013 = ╱45╱E╱ // 0x250a @0x13
0x24f7…251a at0014 = ╱4e╱N╱ // 0x250b @0x14
0x24f7…251a at0015 = ╱41╱A╱ // 0x250c @0x15
0x24f7…251a at0016 = ╱56╱V╱ // 0x250d @0x16
0x24f7…251a at0017 = ╱4e╱N╱ // 0x250e @0x17
0x24f7…251a at0018 = ╱ef╱$╱ // 0x250f @0x18
0x24f7…251a at0019 = ╱ec╱,╱ // 0x2510 @0x19
0x24f7…251a at001a = ╱4b╱K╱ // 0x2511 @0x1a
0x24f7…251a at001b = ╱52╱R╱ // 0x2512 @0x1b
0x24f7…251a at001c = ╱45╱E╱ // 0x2513 @0x1c
0x24f7…251a at001d = ╱47╱G╱ // 0x2514 @0x1d
0x24f7…251a at001e = ╱41╱A╱ // 0x2515 @0x1e
0x24f7…251a at001f = ╱44╱D╱ // 0x2516 @0x1f
0x24f7…251a at0020 = ╱45╱E╱ // 0x2517 @0x20
0x24f7…251a at0021 = ╱ef╱$╱ // 0x2518 @0x21
0x24f7…251a at0022 = EOL // 0x2519 @0x22
0x24f7…251a }
0x251a…2532 b289 4050 EXEC FEJL(4,E,K7$)
0x251a…2532 LineComalBin {
0x251a…2532 ptr = 0xb289 // 0x251a @0x0
0x251a…2532 lno = 0x0fd2 // 0x251c @0x2
0x251a…2532 at0004 = ╱9d╱ EXEC ╱ // 0x251e @0x4
0x251a…2532 at0005 = ╱46╱F╱ // 0x251f @0x5
0x251a…2532 at0006 = ╱45╱E╱ // 0x2520 @0x6
0x251a…2532 at0007 = ╱4a╱J╱ // 0x2521 @0x7
0x251a…2532 at0008 = ╱4c╱L╱ // 0x2522 @0x8
0x251a…2532 at0009 = ╱ed╱(╱ // 0x2523 @0x9
0x251a…2532 at000a = ╱34╱4╱ // 0x2524 @0xa
0x251a…2532 at000b = ╱fe00008003╱ // 0x2525 @0xb
0x251a…2532 at0010 = ╱ec╱,╱ // 0x252a @0x10
0x251a…2532 at0011 = ╱45╱E╱ // 0x252b @0x11
0x251a…2532 at0012 = ╱ec╱,╱ // 0x252c @0x12
0x251a…2532 at0013 = ╱4b╱K╱ // 0x252d @0x13
0x251a…2532 at0014 = ╱37╱7╱ // 0x252e @0x14
0x251a…2532 at0015 = ╱ef╱$╱ // 0x252f @0x15
0x251a…2532 at0016 = ╱ee╱)╱ // 0x2530 @0x16
0x251a…2532 at0017 = EOL // 0x2531 @0x17
0x251a…2532 }
0x2532…2570 b2c7 4060 GET K7$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$
0x2532…2570 LineComalBin {
0x2532…2570 ptr = 0xb2c7 // 0x2532 @0x0
0x2532…2570 lno = 0x0fdc // 0x2534 @0x2
0x2532…2570 at0004 = ╱a9╱ GET ╱ // 0x2536 @0x4
0x2532…2570 at0005 = ╱4b╱K╱ // 0x2537 @0x5
0x2532…2570 at0006 = ╱37╱7╱ // 0x2538 @0x6
0x2532…2570 at0007 = ╱ef╱$╱ // 0x2539 @0x7
0x2532…2570 at0008 = ╱ec╱,╱ // 0x253a @0x8
0x2532…2570 at0009 = ╱53╱S╱ // 0x253b @0x9
0x2532…2570 at000a = ╱e2╱+╱ // 0x253c @0xa
0x2532…2570 at000b = ╱45╱E╱ // 0x253d @0xb
0x2532…2570 at000c = ╱f0╱:╱ // 0x253e @0xc
0x2532…2570 at000d = ╱4b╱K╱ // 0x253f @0xd
0x2532…2570 at000e = ╱52╱R╱ // 0x2540 @0xe
0x2532…2570 at000f = ╱45╱E╱ // 0x2541 @0xf
0x2532…2570 at0010 = ╱42╱B╱ // 0x2542 @0x10
0x2532…2570 at0011 = ╱59╱Y╱ // 0x2543 @0x11
0x2532…2570 at0012 = ╱ef╱$╱ // 0x2544 @0x12
0x2532…2570 at0013 = ╱ec╱,╱ // 0x2545 @0x13
0x2532…2570 at0014 = ╱4b╱K╱ // 0x2546 @0x14
0x2532…2570 at0015 = ╱52╱R╱ // 0x2547 @0x15
0x2532…2570 at0016 = ╱45╱E╱ // 0x2548 @0x16
0x2532…2570 at0017 = ╱4c╱L╱ // 0x2549 @0x17
0x2532…2570 at0018 = ╱4b╱K╱ // 0x254a @0x18
0x2532…2570 at0019 = ╱ef╱$╱ // 0x254b @0x19
0x2532…2570 at001a = ╱ec╱,╱ // 0x254c @0x1a
0x2532…2570 at001b = ╱4b╱K╱ // 0x254d @0x1b
0x2532…2570 at001c = ╱52╱R╱ // 0x254e @0x1c
0x2532…2570 at001d = ╱45╱E╱ // 0x254f @0x1d
0x2532…2570 at001e = ╱47╱G╱ // 0x2550 @0x1e
0x2532…2570 at001f = ╱52╱R╱ // 0x2551 @0x1f
0x2532…2570 at0020 = ╱ef╱$╱ // 0x2552 @0x20
0x2532…2570 at0021 = ╱ec╱,╱ // 0x2553 @0x21
0x2532…2570 at0022 = ╱4b╱K╱ // 0x2554 @0x22
0x2532…2570 at0023 = ╱52╱R╱ // 0x2555 @0x23
0x2532…2570 at0024 = ╱45╱E╱ // 0x2556 @0x24
0x2532…2570 at0025 = ╱50╱P╱ // 0x2557 @0x25
0x2532…2570 at0026 = ╱4f╱O╱ // 0x2558 @0x26
0x2532…2570 at0027 = ╱53╱S╱ // 0x2559 @0x27
0x2532…2570 at0028 = ╱54╱T╱ // 0x255a @0x28
0x2532…2570 at0029 = ╱4e╱N╱ // 0x255b @0x29
0x2532…2570 at002a = ╱52╱R╱ // 0x255c @0x2a
0x2532…2570 at002b = ╱ec╱,╱ // 0x255d @0x2b
0x2532…2570 at002c = ╱4b╱K╱ // 0x255e @0x2c
0x2532…2570 at002d = ╱53╱S╱ // 0x255f @0x2d
0x2532…2570 at002e = ╱41╱A╱ // 0x2560 @0x2e
0x2532…2570 at002f = ╱4c╱L╱ // 0x2561 @0x2f
0x2532…2570 at0030 = ╱44╱D╱ // 0x2562 @0x30
0x2532…2570 at0031 = ╱4f╱O╱ // 0x2563 @0x31
0x2532…2570 at0032 = ╱31╱1╱ // 0x2564 @0x32
0x2532…2570 at0033 = ╱ef╱$╱ // 0x2565 @0x33
0x2532…2570 at0034 = ╱ec╱,╱ // 0x2566 @0x34
0x2532…2570 at0035 = ╱4b╱K╱ // 0x2567 @0x35
0x2532…2570 at0036 = ╱53╱S╱ // 0x2568 @0x36
0x2532…2570 at0037 = ╱41╱A╱ // 0x2569 @0x37
0x2532…2570 at0038 = ╱4c╱L╱ // 0x256a @0x38
0x2532…2570 at0039 = ╱44╱D╱ // 0x256b @0x39
0x2532…2570 at003a = ╱4f╱O╱ // 0x256c @0x3a
0x2532…2570 at003b = ╱32╱2╱ // 0x256d @0x3b
0x2532…2570 at003c = ╱ef╱$╱ // 0x256e @0x3c
0x2532…2570 at003d = EOL // 0x256f @0x3d
0x2532…2570 }
0x2570…2588 b2df 4070 EXEC FEJL(4,G,K7$)
0x2570…2588 LineComalBin {
0x2570…2588 ptr = 0xb2df // 0x2570 @0x0
0x2570…2588 lno = 0x0fe6 // 0x2572 @0x2
0x2570…2588 at0004 = ╱9d╱ EXEC ╱ // 0x2574 @0x4
0x2570…2588 at0005 = ╱46╱F╱ // 0x2575 @0x5
0x2570…2588 at0006 = ╱45╱E╱ // 0x2576 @0x6
0x2570…2588 at0007 = ╱4a╱J╱ // 0x2577 @0x7
0x2570…2588 at0008 = ╱4c╱L╱ // 0x2578 @0x8
0x2570…2588 at0009 = ╱ed╱(╱ // 0x2579 @0x9
0x2570…2588 at000a = ╱34╱4╱ // 0x257a @0xa
0x2570…2588 at000b = ╱fe00008003╱ // 0x257b @0xb
0x2570…2588 at0010 = ╱ec╱,╱ // 0x2580 @0x10
0x2570…2588 at0011 = ╱47╱G╱ // 0x2581 @0x11
0x2570…2588 at0012 = ╱ec╱,╱ // 0x2582 @0x12
0x2570…2588 at0013 = ╱4b╱K╱ // 0x2583 @0x13
0x2570…2588 at0014 = ╱37╱7╱ // 0x2584 @0x14
0x2570…2588 at0015 = ╱ef╱$╱ // 0x2585 @0x15
0x2570…2588 at0016 = ╱ee╱)╱ // 0x2586 @0x16
0x2570…2588 at0017 = EOL // 0x2587 @0x17
0x2570…2588 }
0x2588…258e b2e5 4080 ENDPROC
0x2588…258e LineComalBin {
0x2588…258e ptr = 0xb2e5 // 0x2588 @0x0
0x2588…258e lno = 0x0ff0 // 0x258a @0x2
0x2588…258e at0004 = ╱9f╱ ENDPROC ╱ // 0x258c @0x4
0x2588…258e at0005 = EOL // 0x258d @0x5
0x2588…258e }
0x258e…25a0 b2f7 4090 PROC NRTEST(KTN1)
0x258e…25a0 LineComalBin {
0x258e…25a0 ptr = 0xb2f7 // 0x258e @0x0
0x258e…25a0 lno = 0x0ffa // 0x2590 @0x2
0x258e…25a0 at0004 = ╱9e╱ PROC ╱ // 0x2592 @0x4
0x258e…25a0 at0005 = ╱4e╱N╱ // 0x2593 @0x5
0x258e…25a0 at0006 = ╱52╱R╱ // 0x2594 @0x6
0x258e…25a0 at0007 = ╱54╱T╱ // 0x2595 @0x7
0x258e…25a0 at0008 = ╱45╱E╱ // 0x2596 @0x8
0x258e…25a0 at0009 = ╱53╱S╱ // 0x2597 @0x9
0x258e…25a0 at000a = ╱54╱T╱ // 0x2598 @0xa
0x258e…25a0 at000b = ╱ed╱(╱ // 0x2599 @0xb
0x258e…25a0 at000c = ╱4b╱K╱ // 0x259a @0xc
0x258e…25a0 at000d = ╱54╱T╱ // 0x259b @0xd
0x258e…25a0 at000e = ╱4e╱N╱ // 0x259c @0xe
0x258e…25a0 at000f = ╱31╱1╱ // 0x259d @0xf
0x258e…25a0 at0010 = ╱ee╱)╱ // 0x259e @0x10
0x258e…25a0 at0011 = EOL // 0x259f @0x11
0x258e…25a0 }
0x25a0…25c2 b319 4100 P=B;TEST2=B;KTAL=B;L=LEN(KTN1$)
0x25a0…25c2 LineComalBin {
0x25a0…25c2 ptr = 0xb319 // 0x25a0 @0x0
0x25a0…25c2 lno = 0x1004 // 0x25a2 @0x2
0x25a0…25c2 at0004 = ╱50╱P╱ // 0x25a4 @0x4
0x25a0…25c2 at0005 = ╱dc╱=╱ // 0x25a5 @0x5
0x25a0…25c2 at0006 = ╱42╱B╱ // 0x25a6 @0x6
0x25a0…25c2 at0007 = ╱eb╱;╱ // 0x25a7 @0x7
0x25a0…25c2 at0008 = ╱54╱T╱ // 0x25a8 @0x8
0x25a0…25c2 at0009 = ╱45╱E╱ // 0x25a9 @0x9
0x25a0…25c2 at000a = ╱53╱S╱ // 0x25aa @0xa
0x25a0…25c2 at000b = ╱54╱T╱ // 0x25ab @0xb
0x25a0…25c2 at000c = ╱32╱2╱ // 0x25ac @0xc
0x25a0…25c2 at000d = ╱dc╱=╱ // 0x25ad @0xd
0x25a0…25c2 at000e = ╱42╱B╱ // 0x25ae @0xe
0x25a0…25c2 at000f = ╱eb╱;╱ // 0x25af @0xf
0x25a0…25c2 at0010 = ╱4b╱K╱ // 0x25b0 @0x10
0x25a0…25c2 at0011 = ╱54╱T╱ // 0x25b1 @0x11
0x25a0…25c2 at0012 = ╱41╱A╱ // 0x25b2 @0x12
0x25a0…25c2 at0013 = ╱4c╱L╱ // 0x25b3 @0x13
0x25a0…25c2 at0014 = ╱dc╱=╱ // 0x25b4 @0x14
0x25a0…25c2 at0015 = ╱42╱B╱ // 0x25b5 @0x15
0x25a0…25c2 at0016 = ╱eb╱;╱ // 0x25b6 @0x16
0x25a0…25c2 at0017 = ╱4c╱L╱ // 0x25b7 @0x17
0x25a0…25c2 at0018 = ╱dc╱=╱ // 0x25b8 @0x18
0x25a0…25c2 at0019 = ╱cc╱LEN╱ // 0x25b9 @0x19
0x25a0…25c2 at001a = ╱ed╱(╱ // 0x25ba @0x1a
0x25a0…25c2 at001b = ╱4b╱K╱ // 0x25bb @0x1b
0x25a0…25c2 at001c = ╱54╱T╱ // 0x25bc @0x1c
0x25a0…25c2 at001d = ╱4e╱N╱ // 0x25bd @0x1d
0x25a0…25c2 at001e = ╱31╱1╱ // 0x25be @0x1e
0x25a0…25c2 at001f = ╱ef╱$╱ // 0x25bf @0x1f
0x25a0…25c2 at0020 = ╱ee╱)╱ // 0x25c0 @0x20
0x25a0…25c2 at0021 = EOL // 0x25c1 @0x21
0x25a0…25c2 }
0x25c2…25cb b322 4110 CASE L OF
0x25c2…25cb LineComalBin {
0x25c2…25cb ptr = 0xb322 // 0x25c2 @0x0
0x25c2…25cb lno = 0x100e // 0x25c4 @0x2
0x25c2…25cb at0004 = ╱a201╱ CASE ╱ // 0x25c6 @0x4
0x25c2…25cb at0006 = ╱4c╱L╱ // 0x25c8 @0x6
0x25c2…25cb at0007 = ╱ba╱ OF ╱ // 0x25c9 @0x7
0x25c2…25cb at0008 = EOL // 0x25ca @0x8
0x25c2…25cb }
0x25cb…25d6 b32d 4120 FOR I=E TO L
0x25cb…25d6 LineComalBin {
0x25cb…25d6 ptr = 0xb32d // 0x25cb @0x0
0x25cb…25d6 lno = 0x1018 // 0x25cd @0x2
0x25cb…25d6 at0004 = ╱83╱ FOR ╱ // 0x25cf @0x4
0x25cb…25d6 at0005 = ╱49╱I╱ // 0x25d0 @0x5
0x25cb…25d6 at0006 = ╱dc╱=╱ // 0x25d1 @0x6
0x25cb…25d6 at0007 = ╱45╱E╱ // 0x25d2 @0x7
0x25cb…25d6 at0008 = ╱b7╱ TO ╱ // 0x25d3 @0x8
0x25cb…25d6 at0009 = ╱4c╱L╱ // 0x25d4 @0x9
0x25cb…25d6 at000a = EOL // 0x25d5 @0xa
0x25cb…25d6 }
0x25d6…25f4 b34b 4130 P1=INT(ORD(KTN1$(I))-48)
0x25d6…25f4 LineComalBin {
0x25d6…25f4 ptr = 0xb34b // 0x25d6 @0x0
0x25d6…25f4 lno = 0x1022 // 0x25d8 @0x2
0x25d6…25f4 at0004 = ╱50╱P╱ // 0x25da @0x4
0x25d6…25f4 at0005 = ╱31╱1╱ // 0x25db @0x5
0x25d6…25f4 at0006 = ╱dc╱=╱ // 0x25dc @0x6
0x25d6…25f4 at0007 = ╱c6╱INT╱ // 0x25dd @0x7
0x25d6…25f4 at0008 = ╱ed╱(╱ // 0x25de @0x8
0x25d6…25f4 at0009 = ╱cd╱ORD╱ // 0x25df @0x9
0x25d6…25f4 at000a = ╱ed╱(╱ // 0x25e0 @0xa
0x25d6…25f4 at000b = ╱4b╱K╱ // 0x25e1 @0xb
0x25d6…25f4 at000c = ╱54╱T╱ // 0x25e2 @0xc
0x25d6…25f4 at000d = ╱4e╱N╱ // 0x25e3 @0xd
0x25d6…25f4 at000e = ╱31╱1╱ // 0x25e4 @0xe
0x25d6…25f4 at000f = ╱ef╱$╱ // 0x25e5 @0xf
0x25d6…25f4 at0010 = ╱ed╱(╱ // 0x25e6 @0x10
0x25d6…25f4 at0011 = ╱49╱I╱ // 0x25e7 @0x11
0x25d6…25f4 at0012 = ╱ee╱)╱ // 0x25e8 @0x12
0x25d6…25f4 at0013 = ╱ee╱)╱ // 0x25e9 @0x13
0x25d6…25f4 at0014 = ╱e3╱-╱ // 0x25ea @0x14
0x25d6…25f4 at0015 = ╱34╱4╱ // 0x25eb @0x15
0x25d6…25f4 at0016 = ╱38╱8╱ // 0x25ec @0x16
0x25d6…25f4 at0017 = ╱fe0000c006╱ // 0x25ed @0x17
0x25d6…25f4 at001c = ╱ee╱)╱ // 0x25f2 @0x1c
0x25d6…25f4 at001d = EOL // 0x25f3 @0x1d
0x25d6…25f4 }
0x25f4…2604 b35b 4140 IF P1=>B AND P1<=W THEN
0x25f4…2604 LineComalBin {
0x25f4…2604 ptr = 0xb35b // 0x25f4 @0x0
0x25f4…2604 lno = 0x102c // 0x25f6 @0x2
0x25f4…2604 at0004 = ╱9c╱ IF ╱ // 0x25f8 @0x4
0x25f4…2604 at0005 = ╱50╱P╱ // 0x25f9 @0x5
0x25f4…2604 at0006 = ╱31╱1╱ // 0x25fa @0x6
0x25f4…2604 at0007 = ╱e0╱=>╱ // 0x25fb @0x7
0x25f4…2604 at0008 = ╱42╱B╱ // 0x25fc @0x8
0x25f4…2604 at0009 = ╱da╱ AND ╱ // 0x25fd @0x9
0x25f4…2604 at000a = ╱50╱P╱ // 0x25fe @0xa
0x25f4…2604 at000b = ╱31╱1╱ // 0x25ff @0xb
0x25f4…2604 at000c = ╱df╱<=╱ // 0x2600 @0xc
0x25f4…2604 at000d = ╱57╱W╱ // 0x2601 @0xd
0x25f4…2604 at000e = ╱b6╱ THEN ╱ // 0x2602 @0xe
0x25f4…2604 at000f = EOL // 0x2603 @0xf
0x25f4…2604 }
0x2604…2617 b36e 4150 P=P*10+P1
0x2604…2617 LineComalBin {
0x2604…2617 ptr = 0xb36e // 0x2604 @0x0
0x2604…2617 lno = 0x1036 // 0x2606 @0x2
0x2604…2617 at0004 = ╱50╱P╱ // 0x2608 @0x4
0x2604…2617 at0005 = ╱dc╱=╱ // 0x2609 @0x5
0x2604…2617 at0006 = ╱50╱P╱ // 0x260a @0x6
0x2604…2617 at0007 = ╱e4╱*╱ // 0x260b @0x7
0x2604…2617 at0008 = ╱31╱1╱ // 0x260c @0x8
0x2604…2617 at0009 = ╱30╱0╱ // 0x260d @0x9
0x2604…2617 at000a = ╱fe0000a004╱ // 0x260e @0xa
0x2604…2617 at000f = ╱e2╱+╱ // 0x2613 @0xf
0x2604…2617 at0010 = ╱50╱P╱ // 0x2614 @0x10
0x2604…2617 at0011 = ╱31╱1╱ // 0x2615 @0x11
0x2604…2617 at0012 = EOL // 0x2616 @0x12
0x2604…2617 }
0x2617…261d b374 4160 ELSE
0x2617…261d LineComalBin {
0x2617…261d ptr = 0xb374 // 0x2617 @0x0
0x2617…261d lno = 0x1040 // 0x2619 @0x2
0x2617…261d at0004 = ╱9a╱ ELSE ╱ // 0x261b @0x4
0x2617…261d at0005 = EOL // 0x261c @0x5
0x2617…261d }
0x261d…2629 b380 4170 TEST2=E
0x261d…2629 LineComalBin {
0x261d…2629 ptr = 0xb380 // 0x261d @0x0
0x261d…2629 lno = 0x104a // 0x261f @0x2
0x261d…2629 at0004 = ╱54╱T╱ // 0x2621 @0x4
0x261d…2629 at0005 = ╱45╱E╱ // 0x2622 @0x5
0x261d…2629 at0006 = ╱53╱S╱ // 0x2623 @0x6
0x261d…2629 at0007 = ╱54╱T╱ // 0x2624 @0x7
0x261d…2629 at0008 = ╱32╱2╱ // 0x2625 @0x8
0x261d…2629 at0009 = ╱dc╱=╱ // 0x2626 @0x9
0x261d…2629 at000a = ╱45╱E╱ // 0x2627 @0xa
0x261d…2629 at000b = EOL // 0x2628 @0xb
0x261d…2629 }
0x2629…262f b386 4180 ENDIF
0x2629…262f LineComalBin {
0x2629…262f ptr = 0xb386 // 0x2629 @0x0
0x2629…262f lno = 0x1054 // 0x262b @0x2
0x2629…262f at0004 = ╱9b╱ ENDIF ╱ // 0x262d @0x4
0x2629…262f at0005 = EOL // 0x262e @0x5
0x2629…262f }
0x262f…2636 b38d 4190 NEXT I
0x262f…2636 LineComalBin {
0x262f…2636 ptr = 0xb38d // 0x262f @0x0
0x262f…2636 lno = 0x105e // 0x2631 @0x2
0x262f…2636 at0004 = ╱84╱ NEXT ╱ // 0x2633 @0x4
0x262f…2636 at0005 = ╱49╱I╱ // 0x2634 @0x5
0x262f…2636 at0006 = EOL // 0x2635 @0x6
0x262f…2636 }
0x2636…265e b3b5 4200 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x2636…265e LineComalBin {
0x2636…265e ptr = 0xb3b5 // 0x2636 @0x0
0x2636…265e lno = 0x1068 // 0x2638 @0x2
0x2636…265e at0004 = ╱4b╱K╱ // 0x263a @0x4
0x2636…265e at0005 = ╱54╱T╱ // 0x263b @0x5
0x2636…265e at0006 = ╱41╱A╱ // 0x263c @0x6
0x2636…265e at0007 = ╱4c╱L╱ // 0x263d @0x7
0x2636…265e at0008 = ╱dc╱=╱ // 0x263e @0x8
0x2636…265e at0009 = ╱50╱P╱ // 0x263f @0x9
0x2636…265e at000a = ╱e7╱ DIV ╱ // 0x2640 @0xa
0x2636…265e at000b = ╱31╱1╱ // 0x2641 @0xb
0x2636…265e at000c = ╱30╱0╱ // 0x2642 @0xc
0x2636…265e at000d = ╱30╱0╱ // 0x2643 @0xd
0x2636…265e at000e = ╱30╱0╱ // 0x2644 @0xe
0x2636…265e at000f = ╱30╱0╱ // 0x2645 @0xf
0x2636…265e at0010 = ╱fe00409c0e╱ // 0x2646 @0x10
0x2636…265e at0015 = ╱eb╱;╱ // 0x264b @0x15
0x2636…265e at0016 = ╱4b╱K╱ // 0x264c @0x16
0x2636…265e at0017 = ╱54╱T╱ // 0x264d @0x17
0x2636…265e at0018 = ╱41╱A╱ // 0x264e @0x18
0x2636…265e at0019 = ╱4c╱L╱ // 0x264f @0x19
0x2636…265e at001a = ╱39╱9╱ // 0x2650 @0x1a
0x2636…265e at001b = ╱dc╱=╱ // 0x2651 @0x1b
0x2636…265e at001c = ╱50╱P╱ // 0x2652 @0x1c
0x2636…265e at001d = ╱e7╱ DIV ╱ // 0x2653 @0x1d
0x2636…265e at001e = ╱31╱1╱ // 0x2654 @0x1e
0x2636…265e at001f = ╱30╱0╱ // 0x2655 @0x1f
0x2636…265e at0020 = ╱30╱0╱ // 0x2656 @0x20
0x2636…265e at0021 = ╱30╱0╱ // 0x2657 @0x21
0x2636…265e at0022 = ╱fe0000fa0a╱ // 0x2658 @0x22
0x2636…265e at0027 = EOL // 0x265d @0x27
0x2636…265e }
0x265e…267a b3d1 4210 IF KTAL9=KRTAL THEN KTAL=KTAL9
0x265e…267a LineComalBin {
0x265e…267a ptr = 0xb3d1 // 0x265e @0x0
0x265e…267a lno = 0x1072 // 0x2660 @0x2
0x265e…267a at0004 = ╱82╱ IF ╱ // 0x2662 @0x4
0x265e…267a at0005 = ╱4b╱K╱ // 0x2663 @0x5
0x265e…267a at0006 = ╱54╱T╱ // 0x2664 @0x6
0x265e…267a at0007 = ╱41╱A╱ // 0x2665 @0x7
0x265e…267a at0008 = ╱4c╱L╱ // 0x2666 @0x8
0x265e…267a at0009 = ╱39╱9╱ // 0x2667 @0x9
0x265e…267a at000a = ╱dc╱=╱ // 0x2668 @0xa
0x265e…267a at000b = ╱4b╱K╱ // 0x2669 @0xb
0x265e…267a at000c = ╱52╱R╱ // 0x266a @0xc
0x265e…267a at000d = ╱54╱T╱ // 0x266b @0xd
0x265e…267a at000e = ╱41╱A╱ // 0x266c @0xe
0x265e…267a at000f = ╱4c╱L╱ // 0x266d @0xf
0x265e…267a at0010 = ╱b6╱ THEN ╱ // 0x266e @0x10
0x265e…267a at0011 = ╱4b╱K╱ // 0x266f @0x11
0x265e…267a at0012 = ╱54╱T╱ // 0x2670 @0x12
0x265e…267a at0013 = ╱41╱A╱ // 0x2671 @0x13
0x265e…267a at0014 = ╱4c╱L╱ // 0x2672 @0x14
0x265e…267a at0015 = ╱dc╱=╱ // 0x2673 @0x15
0x265e…267a at0016 = ╱4b╱K╱ // 0x2674 @0x16
0x265e…267a at0017 = ╱54╱T╱ // 0x2675 @0x17
0x265e…267a at0018 = ╱41╱A╱ // 0x2676 @0x18
0x265e…267a at0019 = ╱4c╱L╱ // 0x2677 @0x19
0x265e…267a at001a = ╱39╱9╱ // 0x2678 @0x1a
0x265e…267a at001b = EOL // 0x2679 @0x1b
0x265e…267a }
0x267a…2682 b3d9 4220 WHEN B
0x267a…2682 LineComalBin {
0x267a…2682 ptr = 0xb3d9 // 0x267a @0x0
0x267a…2682 lno = 0x107c // 0x267c @0x2
0x267a…2682 at0004 = ╱a301╱ WHEN ╱ // 0x267e @0x4
0x267a…2682 at0006 = ╱42╱B╱ // 0x2680 @0x6
0x267a…2682 at0007 = EOL // 0x2681 @0x7
0x267a…2682 }
0x2682…268b b3e2 4230 P=-E
0x2682…268b LineComalBin {
0x2682…268b ptr = 0xb3e2 // 0x2682 @0x0
0x2682…268b lno = 0x1086 // 0x2684 @0x2
0x2682…268b at0004 = ╱50╱P╱ // 0x2686 @0x4
0x2682…268b at0005 = ╱dc╱=╱ // 0x2687 @0x5
0x2682…268b at0006 = ╱e9╱-╱ // 0x2688 @0x6
0x2682…268b at0007 = ╱45╱E╱ // 0x2689 @0x7
0x2682…268b at0008 = EOL // 0x268a @0x8
0x2682…268b }
0x268b…2693 b3ea 4240 WHEN E
0x268b…2693 LineComalBin {
0x268b…2693 ptr = 0xb3ea // 0x268b @0x0
0x268b…2693 lno = 0x1090 // 0x268d @0x2
0x268b…2693 at0004 = ╱a301╱ WHEN ╱ // 0x268f @0x4
0x268b…2693 at0006 = ╱45╱E╱ // 0x2691 @0x6
0x268b…2693 at0007 = EOL // 0x2692 @0x7
0x268b…2693 }
0x2693…26a0 b3f7 4250 CASE KTN1$ OF
0x2693…26a0 LineComalBin {
0x2693…26a0 ptr = 0xb3f7 // 0x2693 @0x0
0x2693…26a0 lno = 0x109a // 0x2695 @0x2
0x2693…26a0 at0004 = ╱a200╱ CASE ╱ // 0x2697 @0x4
0x2693…26a0 at0006 = ╱4b╱K╱ // 0x2699 @0x6
0x2693…26a0 at0007 = ╱54╱T╱ // 0x269a @0x7
0x2693…26a0 at0008 = ╱4e╱N╱ // 0x269b @0x8
0x2693…26a0 at0009 = ╱31╱1╱ // 0x269c @0x9
0x2693…26a0 at000a = ╱ef╱$╱ // 0x269d @0xa
0x2693…26a0 at000b = ╱ba╱ OF ╱ // 0x269e @0xb
0x2693…26a0 at000c = EOL // 0x269f @0xc
0x2693…26a0 }
0x26a0…26ba b411 4260 P=INT(ORD(KTN1$)-48)
0x26a0…26ba LineComalBin {
0x26a0…26ba ptr = 0xb411 // 0x26a0 @0x0
0x26a0…26ba lno = 0x10a4 // 0x26a2 @0x2
0x26a0…26ba at0004 = ╱50╱P╱ // 0x26a4 @0x4
0x26a0…26ba at0005 = ╱dc╱=╱ // 0x26a5 @0x5
0x26a0…26ba at0006 = ╱c6╱INT╱ // 0x26a6 @0x6
0x26a0…26ba at0007 = ╱ed╱(╱ // 0x26a7 @0x7
0x26a0…26ba at0008 = ╱cd╱ORD╱ // 0x26a8 @0x8
0x26a0…26ba at0009 = ╱ed╱(╱ // 0x26a9 @0x9
0x26a0…26ba at000a = ╱4b╱K╱ // 0x26aa @0xa
0x26a0…26ba at000b = ╱54╱T╱ // 0x26ab @0xb
0x26a0…26ba at000c = ╱4e╱N╱ // 0x26ac @0xc
0x26a0…26ba at000d = ╱31╱1╱ // 0x26ad @0xd
0x26a0…26ba at000e = ╱ef╱$╱ // 0x26ae @0xe
0x26a0…26ba at000f = ╱ee╱)╱ // 0x26af @0xf
0x26a0…26ba at0010 = ╱e3╱-╱ // 0x26b0 @0x10
0x26a0…26ba at0011 = ╱34╱4╱ // 0x26b1 @0x11
0x26a0…26ba at0012 = ╱38╱8╱ // 0x26b2 @0x12
0x26a0…26ba at0013 = ╱fe0000c006╱ // 0x26b3 @0x13
0x26a0…26ba at0018 = ╱ee╱)╱ // 0x26b8 @0x18
0x26a0…26ba at0019 = EOL // 0x26b9 @0x19
0x26a0…26ba }
0x26ba…26c8 b41f 4270 WHEN "j","J"
0x26ba…26c8 LineComalBin {
0x26ba…26c8 ptr = 0xb41f // 0x26ba @0x0
0x26ba…26c8 lno = 0x10ae // 0x26bc @0x2
0x26ba…26c8 at0004 = ╱a300╱ WHEN ╱ // 0x26be @0x4
0x26ba…26c8 at0006 = ╱22╱"╱ // 0x26c0 @0x6
0x26ba…26c8 at0007 = ╱6a╱j╱ // 0x26c1 @0x7
0x26ba…26c8 at0008 = ╱22╱"╱ // 0x26c2 @0x8
0x26ba…26c8 at0009 = ╱ec╱,╱ // 0x26c3 @0x9
0x26ba…26c8 at000a = ╱22╱"╱ // 0x26c4 @0xa
0x26ba…26c8 at000b = ╱4a╱J╱ // 0x26c5 @0xb
0x26ba…26c8 at000c = ╱22╱"╱ // 0x26c6 @0xc
0x26ba…26c8 at000d = EOL // 0x26c7 @0xd
0x26ba…26c8 }
0x26c8…26d6 b42d 4280 P=-7
0x26c8…26d6 LineComalBin {
0x26c8…26d6 ptr = 0xb42d // 0x26c8 @0x0
0x26c8…26d6 lno = 0x10b8 // 0x26ca @0x2
0x26c8…26d6 at0004 = ╱50╱P╱ // 0x26cc @0x4
0x26c8…26d6 at0005 = ╱dc╱=╱ // 0x26cd @0x5
0x26c8…26d6 at0006 = ╱e9╱-╱ // 0x26ce @0x6
0x26c8…26d6 at0007 = ╱37╱7╱ // 0x26cf @0x7
0x26c8…26d6 at0008 = ╱fe0000e003╱ // 0x26d0 @0x8
0x26c8…26d6 at000d = EOL // 0x26d5 @0xd
0x26c8…26d6 }
0x26d6…26e4 b43b 4290 WHEN "n","N"
0x26d6…26e4 LineComalBin {
0x26d6…26e4 ptr = 0xb43b // 0x26d6 @0x0
0x26d6…26e4 lno = 0x10c2 // 0x26d8 @0x2
0x26d6…26e4 at0004 = ╱a300╱ WHEN ╱ // 0x26da @0x4
0x26d6…26e4 at0006 = ╱22╱"╱ // 0x26dc @0x6
0x26d6…26e4 at0007 = ╱6e╱n╱ // 0x26dd @0x7
0x26d6…26e4 at0008 = ╱22╱"╱ // 0x26de @0x8
0x26d6…26e4 at0009 = ╱ec╱,╱ // 0x26df @0x9
0x26d6…26e4 at000a = ╱22╱"╱ // 0x26e0 @0xa
0x26d6…26e4 at000b = ╱4e╱N╱ // 0x26e1 @0xb
0x26d6…26e4 at000c = ╱22╱"╱ // 0x26e2 @0xc
0x26d6…26e4 at000d = EOL // 0x26e3 @0xd
0x26d6…26e4 }
0x26e4…26f2 b449 4300 P=-8
0x26e4…26f2 LineComalBin {
0x26e4…26f2 ptr = 0xb449 // 0x26e4 @0x0
0x26e4…26f2 lno = 0x10cc // 0x26e6 @0x2
0x26e4…26f2 at0004 = ╱50╱P╱ // 0x26e8 @0x4
0x26e4…26f2 at0005 = ╱dc╱=╱ // 0x26e9 @0x5
0x26e4…26f2 at0006 = ╱e9╱-╱ // 0x26ea @0x6
0x26e4…26f2 at0007 = ╱38╱8╱ // 0x26eb @0x7
0x26e4…26f2 at0008 = ╱fe00008004╱ // 0x26ec @0x8
0x26e4…26f2 at000d = EOL // 0x26f1 @0xd
0x26e4…26f2 }
0x26f2…26f8 b44f 4310 ENDCASE
0x26f2…26f8 LineComalBin {
0x26f2…26f8 ptr = 0xb44f // 0x26f2 @0x0
0x26f2…26f8 lno = 0x10d6 // 0x26f4 @0x2
0x26f2…26f8 at0004 = ╱a4╱ ENDCASE ╱ // 0x26f6 @0x4
0x26f2…26f8 at0005 = EOL // 0x26f7 @0x5
0x26f2…26f8 }
0x26f8…26fe b455 4320 ENDCASE
0x26f8…26fe LineComalBin {
0x26f8…26fe ptr = 0xb455 // 0x26f8 @0x0
0x26f8…26fe lno = 0x10e0 // 0x26fa @0x2
0x26f8…26fe at0004 = ╱a4╱ ENDCASE ╱ // 0x26fc @0x4
0x26f8…26fe at0005 = EOL // 0x26fd @0x5
0x26f8…26fe }
0x26fe…2704 b45b 4330 ENDPROC
0x26fe…2704 LineComalBin {
0x26fe…2704 ptr = 0xb45b // 0x26fe @0x0
0x26fe…2704 lno = 0x10ea // 0x2700 @0x2
0x26fe…2704 at0004 = ╱9f╱ ENDPROC ╱ // 0x2702 @0x4
0x26fe…2704 at0005 = EOL // 0x2703 @0x5
0x26fe…2704 }
0x2704…2722 b479 4340 PROC HOVIND(V1,MPOSTANTAL1,R)
0x2704…2722 LineComalBin {
0x2704…2722 ptr = 0xb479 // 0x2704 @0x0
0x2704…2722 lno = 0x10f4 // 0x2706 @0x2
0x2704…2722 at0004 = ╱9e╱ PROC ╱ // 0x2708 @0x4
0x2704…2722 at0005 = ╱48╱H╱ // 0x2709 @0x5
0x2704…2722 at0006 = ╱4f╱O╱ // 0x270a @0x6
0x2704…2722 at0007 = ╱56╱V╱ // 0x270b @0x7
0x2704…2722 at0008 = ╱49╱I╱ // 0x270c @0x8
0x2704…2722 at0009 = ╱4e╱N╱ // 0x270d @0x9
0x2704…2722 at000a = ╱44╱D╱ // 0x270e @0xa
0x2704…2722 at000b = ╱ed╱(╱ // 0x270f @0xb
0x2704…2722 at000c = ╱56╱V╱ // 0x2710 @0xc
0x2704…2722 at000d = ╱31╱1╱ // 0x2711 @0xd
0x2704…2722 at000e = ╱ec╱,╱ // 0x2712 @0xe
0x2704…2722 at000f = ╱4d╱M╱ // 0x2713 @0xf
0x2704…2722 at0010 = ╱50╱P╱ // 0x2714 @0x10
0x2704…2722 at0011 = ╱4f╱O╱ // 0x2715 @0x11
0x2704…2722 at0012 = ╱53╱S╱ // 0x2716 @0x12
0x2704…2722 at0013 = ╱54╱T╱ // 0x2717 @0x13
0x2704…2722 at0014 = ╱41╱A╱ // 0x2718 @0x14
0x2704…2722 at0015 = ╱4e╱N╱ // 0x2719 @0x15
0x2704…2722 at0016 = ╱54╱T╱ // 0x271a @0x16
0x2704…2722 at0017 = ╱41╱A╱ // 0x271b @0x17
0x2704…2722 at0018 = ╱4c╱L╱ // 0x271c @0x18
0x2704…2722 at0019 = ╱31╱1╱ // 0x271d @0x19
0x2704…2722 at001a = ╱ec╱,╱ // 0x271e @0x1a
0x2704…2722 at001b = ╱52╱R╱ // 0x271f @0x1b
0x2704…2722 at001c = ╱ee╱)╱ // 0x2720 @0x1c
0x2704…2722 at001d = EOL // 0x2721 @0x1d
0x2704…2722 }
0x2722…272d b484 4350 OPEN V1$,R
0x2722…272d LineComalBin {
0x2722…272d ptr = 0xb484 // 0x2722 @0x0
0x2722…272d lno = 0x10fe // 0x2724 @0x2
0x2722…272d at0004 = ╱a7╱ OPEN ╱ // 0x2726 @0x4
0x2722…272d at0005 = ╱56╱V╱ // 0x2727 @0x5
0x2722…272d at0006 = ╱31╱1╱ // 0x2728 @0x6
0x2722…272d at0007 = ╱ef╱$╱ // 0x2729 @0x7
0x2722…272d at0008 = ╱ec╱,╱ // 0x272a @0x8
0x2722…272d at0009 = ╱52╱R╱ // 0x272b @0x9
0x2722…272d at000a = EOL // 0x272c @0xa
0x2722…272d }
0x272d…2746 b49d 4360 EXEC FEJL(13,E,V1$)
0x272d…2746 LineComalBin {
0x272d…2746 ptr = 0xb49d // 0x272d @0x0
0x272d…2746 lno = 0x1108 // 0x272f @0x2
0x272d…2746 at0004 = ╱9d╱ EXEC ╱ // 0x2731 @0x4
0x272d…2746 at0005 = ╱46╱F╱ // 0x2732 @0x5
0x272d…2746 at0006 = ╱45╱E╱ // 0x2733 @0x6
0x272d…2746 at0007 = ╱4a╱J╱ // 0x2734 @0x7
0x272d…2746 at0008 = ╱4c╱L╱ // 0x2735 @0x8
0x272d…2746 at0009 = ╱ed╱(╱ // 0x2736 @0x9
0x272d…2746 at000a = ╱31╱1╱ // 0x2737 @0xa
0x272d…2746 at000b = ╱33╱3╱ // 0x2738 @0xb
0x272d…2746 at000c = ╱fe0000d004╱ // 0x2739 @0xc
0x272d…2746 at0011 = ╱ec╱,╱ // 0x273e @0x11
0x272d…2746 at0012 = ╱45╱E╱ // 0x273f @0x12
0x272d…2746 at0013 = ╱ec╱,╱ // 0x2740 @0x13
0x272d…2746 at0014 = ╱56╱V╱ // 0x2741 @0x14
0x272d…2746 at0015 = ╱31╱1╱ // 0x2742 @0x15
0x272d…2746 at0016 = ╱ef╱$╱ // 0x2743 @0x16
0x272d…2746 at0017 = ╱ee╱)╱ // 0x2744 @0x17
0x272d…2746 at0018 = EOL // 0x2745 @0x18
0x272d…2746 }
0x2746…2764 b4bb 4370 FOR I=E TO MPOSTANTAL1 DIV 160
0x2746…2764 LineComalBin {
0x2746…2764 ptr = 0xb4bb // 0x2746 @0x0
0x2746…2764 lno = 0x1112 // 0x2748 @0x2
0x2746…2764 at0004 = ╱83╱ FOR ╱ // 0x274a @0x4
0x2746…2764 at0005 = ╱49╱I╱ // 0x274b @0x5
0x2746…2764 at0006 = ╱dc╱=╱ // 0x274c @0x6
0x2746…2764 at0007 = ╱45╱E╱ // 0x274d @0x7
0x2746…2764 at0008 = ╱b7╱ TO ╱ // 0x274e @0x8
0x2746…2764 at0009 = ╱4d╱M╱ // 0x274f @0x9
0x2746…2764 at000a = ╱50╱P╱ // 0x2750 @0xa
0x2746…2764 at000b = ╱4f╱O╱ // 0x2751 @0xb
0x2746…2764 at000c = ╱53╱S╱ // 0x2752 @0xc
0x2746…2764 at000d = ╱54╱T╱ // 0x2753 @0xd
0x2746…2764 at000e = ╱41╱A╱ // 0x2754 @0xe
0x2746…2764 at000f = ╱4e╱N╱ // 0x2755 @0xf
0x2746…2764 at0010 = ╱54╱T╱ // 0x2756 @0x10
0x2746…2764 at0011 = ╱41╱A╱ // 0x2757 @0x11
0x2746…2764 at0012 = ╱4c╱L╱ // 0x2758 @0x12
0x2746…2764 at0013 = ╱31╱1╱ // 0x2759 @0x13
0x2746…2764 at0014 = ╱e7╱ DIV ╱ // 0x275a @0x14
0x2746…2764 at0015 = ╱31╱1╱ // 0x275b @0x15
0x2746…2764 at0016 = ╱36╱6╱ // 0x275c @0x16
0x2746…2764 at0017 = ╱30╱0╱ // 0x275d @0x17
0x2746…2764 at0018 = ╱fe0000a008╱ // 0x275e @0x18
0x2746…2764 at001d = EOL // 0x2763 @0x1d
0x2746…2764 }
0x2764…278e b4e5 4380 J=(I-E)*4+E;J1=J+E;J2=J+G;J3=J+V
0x2764…278e LineComalBin {
0x2764…278e ptr = 0xb4e5 // 0x2764 @0x0
0x2764…278e lno = 0x111c // 0x2766 @0x2
0x2764…278e at0004 = ╱4a╱J╱ // 0x2768 @0x4
0x2764…278e at0005 = ╱dc╱=╱ // 0x2769 @0x5
0x2764…278e at0006 = ╱ed╱(╱ // 0x276a @0x6
0x2764…278e at0007 = ╱49╱I╱ // 0x276b @0x7
0x2764…278e at0008 = ╱e3╱-╱ // 0x276c @0x8
0x2764…278e at0009 = ╱45╱E╱ // 0x276d @0x9
0x2764…278e at000a = ╱ee╱)╱ // 0x276e @0xa
0x2764…278e at000b = ╱e4╱*╱ // 0x276f @0xb
0x2764…278e at000c = ╱34╱4╱ // 0x2770 @0xc
0x2764…278e at000d = ╱fe00008003╱ // 0x2771 @0xd
0x2764…278e at0012 = ╱e2╱+╱ // 0x2776 @0x12
0x2764…278e at0013 = ╱45╱E╱ // 0x2777 @0x13
0x2764…278e at0014 = ╱eb╱;╱ // 0x2778 @0x14
0x2764…278e at0015 = ╱4a╱J╱ // 0x2779 @0x15
0x2764…278e at0016 = ╱31╱1╱ // 0x277a @0x16
0x2764…278e at0017 = ╱dc╱=╱ // 0x277b @0x17
0x2764…278e at0018 = ╱4a╱J╱ // 0x277c @0x18
0x2764…278e at0019 = ╱e2╱+╱ // 0x277d @0x19
0x2764…278e at001a = ╱45╱E╱ // 0x277e @0x1a
0x2764…278e at001b = ╱eb╱;╱ // 0x277f @0x1b
0x2764…278e at001c = ╱4a╱J╱ // 0x2780 @0x1c
0x2764…278e at001d = ╱32╱2╱ // 0x2781 @0x1d
0x2764…278e at001e = ╱dc╱=╱ // 0x2782 @0x1e
0x2764…278e at001f = ╱4a╱J╱ // 0x2783 @0x1f
0x2764…278e at0020 = ╱e2╱+╱ // 0x2784 @0x20
0x2764…278e at0021 = ╱47╱G╱ // 0x2785 @0x21
0x2764…278e at0022 = ╱eb╱;╱ // 0x2786 @0x22
0x2764…278e at0023 = ╱4a╱J╱ // 0x2787 @0x23
0x2764…278e at0024 = ╱33╱3╱ // 0x2788 @0x24
0x2764…278e at0025 = ╱dc╱=╱ // 0x2789 @0x25
0x2764…278e at0026 = ╱4a╱J╱ // 0x278a @0x26
0x2764…278e at0027 = ╱e2╱+╱ // 0x278b @0x27
0x2764…278e at0028 = ╱56╱V╱ // 0x278c @0x28
0x2764…278e at0029 = EOL // 0x278d @0x29
0x2764…278e }
0x278e…27d7 b52e 4390 GET V1$,I:R(J,E),R(J,G),R(J1,E),R(J1,G),R(J2,E),R(J2,G),R(J3,E),R(J3,G)
0x278e…27d7 LineComalBin {
0x278e…27d7 ptr = 0xb52e // 0x278e @0x0
0x278e…27d7 lno = 0x1126 // 0x2790 @0x2
0x278e…27d7 at0004 = ╱a9╱ GET ╱ // 0x2792 @0x4
0x278e…27d7 at0005 = ╱56╱V╱ // 0x2793 @0x5
0x278e…27d7 at0006 = ╱31╱1╱ // 0x2794 @0x6
0x278e…27d7 at0007 = ╱ef╱$╱ // 0x2795 @0x7
0x278e…27d7 at0008 = ╱ec╱,╱ // 0x2796 @0x8
0x278e…27d7 at0009 = ╱49╱I╱ // 0x2797 @0x9
0x278e…27d7 at000a = ╱f0╱:╱ // 0x2798 @0xa
0x278e…27d7 at000b = ╱52╱R╱ // 0x2799 @0xb
0x278e…27d7 at000c = ╱ed╱(╱ // 0x279a @0xc
0x278e…27d7 at000d = ╱4a╱J╱ // 0x279b @0xd
0x278e…27d7 at000e = ╱ec╱,╱ // 0x279c @0xe
0x278e…27d7 at000f = ╱45╱E╱ // 0x279d @0xf
0x278e…27d7 at0010 = ╱ee╱)╱ // 0x279e @0x10
0x278e…27d7 at0011 = ╱ec╱,╱ // 0x279f @0x11
0x278e…27d7 at0012 = ╱52╱R╱ // 0x27a0 @0x12
0x278e…27d7 at0013 = ╱ed╱(╱ // 0x27a1 @0x13
0x278e…27d7 at0014 = ╱4a╱J╱ // 0x27a2 @0x14
0x278e…27d7 at0015 = ╱ec╱,╱ // 0x27a3 @0x15
0x278e…27d7 at0016 = ╱47╱G╱ // 0x27a4 @0x16
0x278e…27d7 at0017 = ╱ee╱)╱ // 0x27a5 @0x17
0x278e…27d7 at0018 = ╱ec╱,╱ // 0x27a6 @0x18
0x278e…27d7 at0019 = ╱52╱R╱ // 0x27a7 @0x19
0x278e…27d7 at001a = ╱ed╱(╱ // 0x27a8 @0x1a
0x278e…27d7 at001b = ╱4a╱J╱ // 0x27a9 @0x1b
0x278e…27d7 at001c = ╱31╱1╱ // 0x27aa @0x1c
0x278e…27d7 at001d = ╱ec╱,╱ // 0x27ab @0x1d
0x278e…27d7 at001e = ╱45╱E╱ // 0x27ac @0x1e
0x278e…27d7 at001f = ╱ee╱)╱ // 0x27ad @0x1f
0x278e…27d7 at0020 = ╱ec╱,╱ // 0x27ae @0x20
0x278e…27d7 at0021 = ╱52╱R╱ // 0x27af @0x21
0x278e…27d7 at0022 = ╱ed╱(╱ // 0x27b0 @0x22
0x278e…27d7 at0023 = ╱4a╱J╱ // 0x27b1 @0x23
0x278e…27d7 at0024 = ╱31╱1╱ // 0x27b2 @0x24
0x278e…27d7 at0025 = ╱ec╱,╱ // 0x27b3 @0x25
0x278e…27d7 at0026 = ╱47╱G╱ // 0x27b4 @0x26
0x278e…27d7 at0027 = ╱ee╱)╱ // 0x27b5 @0x27
0x278e…27d7 at0028 = ╱ec╱,╱ // 0x27b6 @0x28
0x278e…27d7 at0029 = ╱52╱R╱ // 0x27b7 @0x29
0x278e…27d7 at002a = ╱ed╱(╱ // 0x27b8 @0x2a
0x278e…27d7 at002b = ╱4a╱J╱ // 0x27b9 @0x2b
0x278e…27d7 at002c = ╱32╱2╱ // 0x27ba @0x2c
0x278e…27d7 at002d = ╱ec╱,╱ // 0x27bb @0x2d
0x278e…27d7 at002e = ╱45╱E╱ // 0x27bc @0x2e
0x278e…27d7 at002f = ╱ee╱)╱ // 0x27bd @0x2f
0x278e…27d7 at0030 = ╱ec╱,╱ // 0x27be @0x30
0x278e…27d7 at0031 = ╱52╱R╱ // 0x27bf @0x31
0x278e…27d7 at0032 = ╱ed╱(╱ // 0x27c0 @0x32
0x278e…27d7 at0033 = ╱4a╱J╱ // 0x27c1 @0x33
0x278e…27d7 at0034 = ╱32╱2╱ // 0x27c2 @0x34
0x278e…27d7 at0035 = ╱ec╱,╱ // 0x27c3 @0x35
0x278e…27d7 at0036 = ╱47╱G╱ // 0x27c4 @0x36
0x278e…27d7 at0037 = ╱ee╱)╱ // 0x27c5 @0x37
0x278e…27d7 at0038 = ╱ec╱,╱ // 0x27c6 @0x38
0x278e…27d7 at0039 = ╱52╱R╱ // 0x27c7 @0x39
0x278e…27d7 at003a = ╱ed╱(╱ // 0x27c8 @0x3a
0x278e…27d7 at003b = ╱4a╱J╱ // 0x27c9 @0x3b
0x278e…27d7 at003c = ╱33╱3╱ // 0x27ca @0x3c
0x278e…27d7 at003d = ╱ec╱,╱ // 0x27cb @0x3d
0x278e…27d7 at003e = ╱45╱E╱ // 0x27cc @0x3e
0x278e…27d7 at003f = ╱ee╱)╱ // 0x27cd @0x3f
0x278e…27d7 at0040 = ╱ec╱,╱ // 0x27ce @0x40
0x278e…27d7 at0041 = ╱52╱R╱ // 0x27cf @0x41
0x278e…27d7 at0042 = ╱ed╱(╱ // 0x27d0 @0x42
0x278e…27d7 at0043 = ╱4a╱J╱ // 0x27d1 @0x43
0x278e…27d7 at0044 = ╱33╱3╱ // 0x27d2 @0x44
0x278e…27d7 at0045 = ╱ec╱,╱ // 0x27d3 @0x45
0x278e…27d7 at0046 = ╱47╱G╱ // 0x27d4 @0x46
0x278e…27d7 at0047 = ╱ee╱)╱ // 0x27d5 @0x47
0x278e…27d7 at0048 = EOL // 0x27d6 @0x48
0x278e…27d7 }
0x27d7…27f0 b547 4400 EXEC FEJL(13,G,V1$)
0x27d7…27f0 LineComalBin {
0x27d7…27f0 ptr = 0xb547 // 0x27d7 @0x0
0x27d7…27f0 lno = 0x1130 // 0x27d9 @0x2
0x27d7…27f0 at0004 = ╱9d╱ EXEC ╱ // 0x27db @0x4
0x27d7…27f0 at0005 = ╱46╱F╱ // 0x27dc @0x5
0x27d7…27f0 at0006 = ╱45╱E╱ // 0x27dd @0x6
0x27d7…27f0 at0007 = ╱4a╱J╱ // 0x27de @0x7
0x27d7…27f0 at0008 = ╱4c╱L╱ // 0x27df @0x8
0x27d7…27f0 at0009 = ╱ed╱(╱ // 0x27e0 @0x9
0x27d7…27f0 at000a = ╱31╱1╱ // 0x27e1 @0xa
0x27d7…27f0 at000b = ╱33╱3╱ // 0x27e2 @0xb
0x27d7…27f0 at000c = ╱fe0000d004╱ // 0x27e3 @0xc
0x27d7…27f0 at0011 = ╱ec╱,╱ // 0x27e8 @0x11
0x27d7…27f0 at0012 = ╱47╱G╱ // 0x27e9 @0x12
0x27d7…27f0 at0013 = ╱ec╱,╱ // 0x27ea @0x13
0x27d7…27f0 at0014 = ╱56╱V╱ // 0x27eb @0x14
0x27d7…27f0 at0015 = ╱31╱1╱ // 0x27ec @0x15
0x27d7…27f0 at0016 = ╱ef╱$╱ // 0x27ed @0x16
0x27d7…27f0 at0017 = ╱ee╱)╱ // 0x27ee @0x17
0x27d7…27f0 at0018 = EOL // 0x27ef @0x18
0x27d7…27f0 }
0x27f0…27f7 b54e 4410 NEXT I
0x27f0…27f7 LineComalBin {
0x27f0…27f7 ptr = 0xb54e // 0x27f0 @0x0
0x27f0…27f7 lno = 0x113a // 0x27f2 @0x2
0x27f0…27f7 at0004 = ╱84╱ NEXT ╱ // 0x27f4 @0x4
0x27f0…27f7 at0005 = ╱49╱I╱ // 0x27f5 @0x5
0x27f0…27f7 at0006 = EOL // 0x27f6 @0x6
0x27f0…27f7 }
0x27f7…2800 b557 4420 CLOSE V1$
0x27f7…2800 LineComalBin {
0x27f7…2800 ptr = 0xb557 // 0x27f7 @0x0
0x27f7…2800 lno = 0x1144 // 0x27f9 @0x2
0x27f7…2800 at0004 = ╱a8╱ CLOSE ╱ // 0x27fb @0x4
0x27f7…2800 at0005 = ╱56╱V╱ // 0x27fc @0x5
0x27f7…2800 at0006 = ╱31╱1╱ // 0x27fd @0x6
0x27f7…2800 at0007 = ╱ef╱$╱ // 0x27fe @0x7
0x27f7…2800 at0008 = EOL // 0x27ff @0x8
0x27f7…2800 }
0x2800…2819 b570 4430 EXEC FEJL(13,V,V1$)
0x2800…2819 LineComalBin {
0x2800…2819 ptr = 0xb570 // 0x2800 @0x0
0x2800…2819 lno = 0x114e // 0x2802 @0x2
0x2800…2819 at0004 = ╱9d╱ EXEC ╱ // 0x2804 @0x4
0x2800…2819 at0005 = ╱46╱F╱ // 0x2805 @0x5
0x2800…2819 at0006 = ╱45╱E╱ // 0x2806 @0x6
0x2800…2819 at0007 = ╱4a╱J╱ // 0x2807 @0x7
0x2800…2819 at0008 = ╱4c╱L╱ // 0x2808 @0x8
0x2800…2819 at0009 = ╱ed╱(╱ // 0x2809 @0x9
0x2800…2819 at000a = ╱31╱1╱ // 0x280a @0xa
0x2800…2819 at000b = ╱33╱3╱ // 0x280b @0xb
0x2800…2819 at000c = ╱fe0000d004╱ // 0x280c @0xc
0x2800…2819 at0011 = ╱ec╱,╱ // 0x2811 @0x11
0x2800…2819 at0012 = ╱56╱V╱ // 0x2812 @0x12
0x2800…2819 at0013 = ╱ec╱,╱ // 0x2813 @0x13
0x2800…2819 at0014 = ╱56╱V╱ // 0x2814 @0x14
0x2800…2819 at0015 = ╱31╱1╱ // 0x2815 @0x15
0x2800…2819 at0016 = ╱ef╱$╱ // 0x2816 @0x16
0x2800…2819 at0017 = ╱ee╱)╱ // 0x2817 @0x17
0x2800…2819 at0018 = EOL // 0x2818 @0x18
0x2800…2819 }
0x2819…281f b576 4440 ENDPROC
0x2819…281f LineComalBin {
0x2819…281f ptr = 0xb576 // 0x2819 @0x0
0x2819…281f lno = 0x1158 // 0x281b @0x2
0x2819…281f at0004 = ╱9f╱ ENDPROC ╱ // 0x281d @0x4
0x2819…281f at0005 = EOL // 0x281e @0x5
0x2819…281f }
0x281f…2834 b58b 4450 PROC UNDIND(V2,U1,Z)
0x281f…2834 LineComalBin {
0x281f…2834 ptr = 0xb58b // 0x281f @0x0
0x281f…2834 lno = 0x1162 // 0x2821 @0x2
0x281f…2834 at0004 = ╱9e╱ PROC ╱ // 0x2823 @0x4
0x281f…2834 at0005 = ╱55╱U╱ // 0x2824 @0x5
0x281f…2834 at0006 = ╱4e╱N╱ // 0x2825 @0x6
0x281f…2834 at0007 = ╱44╱D╱ // 0x2826 @0x7
0x281f…2834 at0008 = ╱49╱I╱ // 0x2827 @0x8
0x281f…2834 at0009 = ╱4e╱N╱ // 0x2828 @0x9
0x281f…2834 at000a = ╱44╱D╱ // 0x2829 @0xa
0x281f…2834 at000b = ╱ed╱(╱ // 0x282a @0xb
0x281f…2834 at000c = ╱56╱V╱ // 0x282b @0xc
0x281f…2834 at000d = ╱32╱2╱ // 0x282c @0xd
0x281f…2834 at000e = ╱ec╱,╱ // 0x282d @0xe
0x281f…2834 at000f = ╱55╱U╱ // 0x282e @0xf
0x281f…2834 at0010 = ╱31╱1╱ // 0x282f @0x10
0x281f…2834 at0011 = ╱ec╱,╱ // 0x2830 @0x11
0x281f…2834 at0012 = ╱5a╱Z╱ // 0x2831 @0x12
0x281f…2834 at0013 = ╱ee╱)╱ // 0x2832 @0x13
0x281f…2834 at0014 = EOL // 0x2833 @0x14
0x281f…2834 }
0x2834…283f b596 4460 OPEN V2$,R
0x2834…283f LineComalBin {
0x2834…283f ptr = 0xb596 // 0x2834 @0x0
0x2834…283f lno = 0x116c // 0x2836 @0x2
0x2834…283f at0004 = ╱a7╱ OPEN ╱ // 0x2838 @0x4
0x2834…283f at0005 = ╱56╱V╱ // 0x2839 @0x5
0x2834…283f at0006 = ╱32╱2╱ // 0x283a @0x6
0x2834…283f at0007 = ╱ef╱$╱ // 0x283b @0x7
0x2834…283f at0008 = ╱ec╱,╱ // 0x283c @0x8
0x2834…283f at0009 = ╱52╱R╱ // 0x283d @0x9
0x2834…283f at000a = EOL // 0x283e @0xa
0x2834…283f }
0x283f…2858 b5af 4470 EXEC FEJL(14,E,V2$)
0x283f…2858 LineComalBin {
0x283f…2858 ptr = 0xb5af // 0x283f @0x0
0x283f…2858 lno = 0x1176 // 0x2841 @0x2
0x283f…2858 at0004 = ╱9d╱ EXEC ╱ // 0x2843 @0x4
0x283f…2858 at0005 = ╱46╱F╱ // 0x2844 @0x5
0x283f…2858 at0006 = ╱45╱E╱ // 0x2845 @0x6
0x283f…2858 at0007 = ╱4a╱J╱ // 0x2846 @0x7
0x283f…2858 at0008 = ╱4c╱L╱ // 0x2847 @0x8
0x283f…2858 at0009 = ╱ed╱(╱ // 0x2848 @0x9
0x283f…2858 at000a = ╱31╱1╱ // 0x2849 @0xa
0x283f…2858 at000b = ╱34╱4╱ // 0x284a @0xb
0x283f…2858 at000c = ╱fe0000e004╱ // 0x284b @0xc
0x283f…2858 at0011 = ╱ec╱,╱ // 0x2850 @0x11
0x283f…2858 at0012 = ╱45╱E╱ // 0x2851 @0x12
0x283f…2858 at0013 = ╱ec╱,╱ // 0x2852 @0x13
0x283f…2858 at0014 = ╱56╱V╱ // 0x2853 @0x14
0x283f…2858 at0015 = ╱32╱2╱ // 0x2854 @0x15
0x283f…2858 at0016 = ╱ef╱$╱ // 0x2855 @0x16
0x283f…2858 at0017 = ╱ee╱)╱ // 0x2856 @0x17
0x283f…2858 at0018 = EOL // 0x2857 @0x18
0x283f…2858 }
0x2858…28a6 b5fd 4480 GET V2$,U1:Z(E,E),Z(E,G),Z(G,E),Z(G,G),Z(V,E),Z(V,G),Z(4,E),Z(4,G)
0x2858…28a6 LineComalBin {
0x2858…28a6 ptr = 0xb5fd // 0x2858 @0x0
0x2858…28a6 lno = 0x1180 // 0x285a @0x2
0x2858…28a6 at0004 = ╱a9╱ GET ╱ // 0x285c @0x4
0x2858…28a6 at0005 = ╱56╱V╱ // 0x285d @0x5
0x2858…28a6 at0006 = ╱32╱2╱ // 0x285e @0x6
0x2858…28a6 at0007 = ╱ef╱$╱ // 0x285f @0x7
0x2858…28a6 at0008 = ╱ec╱,╱ // 0x2860 @0x8
0x2858…28a6 at0009 = ╱55╱U╱ // 0x2861 @0x9
0x2858…28a6 at000a = ╱31╱1╱ // 0x2862 @0xa
0x2858…28a6 at000b = ╱f0╱:╱ // 0x2863 @0xb
0x2858…28a6 at000c = ╱5a╱Z╱ // 0x2864 @0xc
0x2858…28a6 at000d = ╱ed╱(╱ // 0x2865 @0xd
0x2858…28a6 at000e = ╱45╱E╱ // 0x2866 @0xe
0x2858…28a6 at000f = ╱ec╱,╱ // 0x2867 @0xf
0x2858…28a6 at0010 = ╱45╱E╱ // 0x2868 @0x10
0x2858…28a6 at0011 = ╱ee╱)╱ // 0x2869 @0x11
0x2858…28a6 at0012 = ╱ec╱,╱ // 0x286a @0x12
0x2858…28a6 at0013 = ╱5a╱Z╱ // 0x286b @0x13
0x2858…28a6 at0014 = ╱ed╱(╱ // 0x286c @0x14
0x2858…28a6 at0015 = ╱45╱E╱ // 0x286d @0x15
0x2858…28a6 at0016 = ╱ec╱,╱ // 0x286e @0x16
0x2858…28a6 at0017 = ╱47╱G╱ // 0x286f @0x17
0x2858…28a6 at0018 = ╱ee╱)╱ // 0x2870 @0x18
0x2858…28a6 at0019 = ╱ec╱,╱ // 0x2871 @0x19
0x2858…28a6 at001a = ╱5a╱Z╱ // 0x2872 @0x1a
0x2858…28a6 at001b = ╱ed╱(╱ // 0x2873 @0x1b
0x2858…28a6 at001c = ╱47╱G╱ // 0x2874 @0x1c
0x2858…28a6 at001d = ╱ec╱,╱ // 0x2875 @0x1d
0x2858…28a6 at001e = ╱45╱E╱ // 0x2876 @0x1e
0x2858…28a6 at001f = ╱ee╱)╱ // 0x2877 @0x1f
0x2858…28a6 at0020 = ╱ec╱,╱ // 0x2878 @0x20
0x2858…28a6 at0021 = ╱5a╱Z╱ // 0x2879 @0x21
0x2858…28a6 at0022 = ╱ed╱(╱ // 0x287a @0x22
0x2858…28a6 at0023 = ╱47╱G╱ // 0x287b @0x23
0x2858…28a6 at0024 = ╱ec╱,╱ // 0x287c @0x24
0x2858…28a6 at0025 = ╱47╱G╱ // 0x287d @0x25
0x2858…28a6 at0026 = ╱ee╱)╱ // 0x287e @0x26
0x2858…28a6 at0027 = ╱ec╱,╱ // 0x287f @0x27
0x2858…28a6 at0028 = ╱5a╱Z╱ // 0x2880 @0x28
0x2858…28a6 at0029 = ╱ed╱(╱ // 0x2881 @0x29
0x2858…28a6 at002a = ╱56╱V╱ // 0x2882 @0x2a
0x2858…28a6 at002b = ╱ec╱,╱ // 0x2883 @0x2b
0x2858…28a6 at002c = ╱45╱E╱ // 0x2884 @0x2c
0x2858…28a6 at002d = ╱ee╱)╱ // 0x2885 @0x2d
0x2858…28a6 at002e = ╱ec╱,╱ // 0x2886 @0x2e
0x2858…28a6 at002f = ╱5a╱Z╱ // 0x2887 @0x2f
0x2858…28a6 at0030 = ╱ed╱(╱ // 0x2888 @0x30
0x2858…28a6 at0031 = ╱56╱V╱ // 0x2889 @0x31
0x2858…28a6 at0032 = ╱ec╱,╱ // 0x288a @0x32
0x2858…28a6 at0033 = ╱47╱G╱ // 0x288b @0x33
0x2858…28a6 at0034 = ╱ee╱)╱ // 0x288c @0x34
0x2858…28a6 at0035 = ╱ec╱,╱ // 0x288d @0x35
0x2858…28a6 at0036 = ╱5a╱Z╱ // 0x288e @0x36
0x2858…28a6 at0037 = ╱ed╱(╱ // 0x288f @0x37
0x2858…28a6 at0038 = ╱34╱4╱ // 0x2890 @0x38
0x2858…28a6 at0039 = ╱fe00008003╱ // 0x2891 @0x39
0x2858…28a6 at003e = ╱ec╱,╱ // 0x2896 @0x3e
0x2858…28a6 at003f = ╱45╱E╱ // 0x2897 @0x3f
0x2858…28a6 at0040 = ╱ee╱)╱ // 0x2898 @0x40
0x2858…28a6 at0041 = ╱ec╱,╱ // 0x2899 @0x41
0x2858…28a6 at0042 = ╱5a╱Z╱ // 0x289a @0x42
0x2858…28a6 at0043 = ╱ed╱(╱ // 0x289b @0x43
0x2858…28a6 at0044 = ╱34╱4╱ // 0x289c @0x44
0x2858…28a6 at0045 = ╱fe00008003╱ // 0x289d @0x45
0x2858…28a6 at004a = ╱ec╱,╱ // 0x28a2 @0x4a
0x2858…28a6 at004b = ╱47╱G╱ // 0x28a3 @0x4b
0x2858…28a6 at004c = ╱ee╱)╱ // 0x28a4 @0x4c
0x2858…28a6 at004d = EOL // 0x28a5 @0x4d
0x2858…28a6 }
0x28a6…28bf b616 4490 EXEC FEJL(14,G,V2$)
0x28a6…28bf LineComalBin {
0x28a6…28bf ptr = 0xb616 // 0x28a6 @0x0
0x28a6…28bf lno = 0x118a // 0x28a8 @0x2
0x28a6…28bf at0004 = ╱9d╱ EXEC ╱ // 0x28aa @0x4
0x28a6…28bf at0005 = ╱46╱F╱ // 0x28ab @0x5
0x28a6…28bf at0006 = ╱45╱E╱ // 0x28ac @0x6
0x28a6…28bf at0007 = ╱4a╱J╱ // 0x28ad @0x7
0x28a6…28bf at0008 = ╱4c╱L╱ // 0x28ae @0x8
0x28a6…28bf at0009 = ╱ed╱(╱ // 0x28af @0x9
0x28a6…28bf at000a = ╱31╱1╱ // 0x28b0 @0xa
0x28a6…28bf at000b = ╱34╱4╱ // 0x28b1 @0xb
0x28a6…28bf at000c = ╱fe0000e004╱ // 0x28b2 @0xc
0x28a6…28bf at0011 = ╱ec╱,╱ // 0x28b7 @0x11
0x28a6…28bf at0012 = ╱47╱G╱ // 0x28b8 @0x12
0x28a6…28bf at0013 = ╱ec╱,╱ // 0x28b9 @0x13
0x28a6…28bf at0014 = ╱56╱V╱ // 0x28ba @0x14
0x28a6…28bf at0015 = ╱32╱2╱ // 0x28bb @0x15
0x28a6…28bf at0016 = ╱ef╱$╱ // 0x28bc @0x16
0x28a6…28bf at0017 = ╱ee╱)╱ // 0x28bd @0x17
0x28a6…28bf at0018 = EOL // 0x28be @0x18
0x28a6…28bf }
0x28bf…28c8 b61f 4500 CLOSE V2$
0x28bf…28c8 LineComalBin {
0x28bf…28c8 ptr = 0xb61f // 0x28bf @0x0
0x28bf…28c8 lno = 0x1194 // 0x28c1 @0x2
0x28bf…28c8 at0004 = ╱a8╱ CLOSE ╱ // 0x28c3 @0x4
0x28bf…28c8 at0005 = ╱56╱V╱ // 0x28c4 @0x5
0x28bf…28c8 at0006 = ╱32╱2╱ // 0x28c5 @0x6
0x28bf…28c8 at0007 = ╱ef╱$╱ // 0x28c6 @0x7
0x28bf…28c8 at0008 = EOL // 0x28c7 @0x8
0x28bf…28c8 }
0x28c8…28e1 b638 4510 EXEC FEJL(14,V,V2$)
0x28c8…28e1 LineComalBin {
0x28c8…28e1 ptr = 0xb638 // 0x28c8 @0x0
0x28c8…28e1 lno = 0x119e // 0x28ca @0x2
0x28c8…28e1 at0004 = ╱9d╱ EXEC ╱ // 0x28cc @0x4
0x28c8…28e1 at0005 = ╱46╱F╱ // 0x28cd @0x5
0x28c8…28e1 at0006 = ╱45╱E╱ // 0x28ce @0x6
0x28c8…28e1 at0007 = ╱4a╱J╱ // 0x28cf @0x7
0x28c8…28e1 at0008 = ╱4c╱L╱ // 0x28d0 @0x8
0x28c8…28e1 at0009 = ╱ed╱(╱ // 0x28d1 @0x9
0x28c8…28e1 at000a = ╱31╱1╱ // 0x28d2 @0xa
0x28c8…28e1 at000b = ╱34╱4╱ // 0x28d3 @0xb
0x28c8…28e1 at000c = ╱fe0000e004╱ // 0x28d4 @0xc
0x28c8…28e1 at0011 = ╱ec╱,╱ // 0x28d9 @0x11
0x28c8…28e1 at0012 = ╱56╱V╱ // 0x28da @0x12
0x28c8…28e1 at0013 = ╱ec╱,╱ // 0x28db @0x13
0x28c8…28e1 at0014 = ╱56╱V╱ // 0x28dc @0x14
0x28c8…28e1 at0015 = ╱32╱2╱ // 0x28dd @0x15
0x28c8…28e1 at0016 = ╱ef╱$╱ // 0x28de @0x16
0x28c8…28e1 at0017 = ╱ee╱)╱ // 0x28df @0x17
0x28c8…28e1 at0018 = EOL // 0x28e0 @0x18
0x28c8…28e1 }
0x28e1…28e7 b63e 4520 ENDPROC
0x28e1…28e7 LineComalBin {
0x28e1…28e7 ptr = 0xb63e // 0x28e1 @0x0
0x28e1…28e7 lno = 0x11a8 // 0x28e3 @0x2
0x28e1…28e7 at0004 = ╱9f╱ ENDPROC ╱ // 0x28e5 @0x4
0x28e1…28e7 at0005 = EOL // 0x28e6 @0x5
0x28e1…28e7 }
0x28e7…28fc b653 4530 PROC DATOUD(DA1,DA2)
0x28e7…28fc LineComalBin {
0x28e7…28fc ptr = 0xb653 // 0x28e7 @0x0
0x28e7…28fc lno = 0x11b2 // 0x28e9 @0x2
0x28e7…28fc at0004 = ╱9e╱ PROC ╱ // 0x28eb @0x4
0x28e7…28fc at0005 = ╱44╱D╱ // 0x28ec @0x5
0x28e7…28fc at0006 = ╱41╱A╱ // 0x28ed @0x6
0x28e7…28fc at0007 = ╱54╱T╱ // 0x28ee @0x7
0x28e7…28fc at0008 = ╱4f╱O╱ // 0x28ef @0x8
0x28e7…28fc at0009 = ╱55╱U╱ // 0x28f0 @0x9
0x28e7…28fc at000a = ╱44╱D╱ // 0x28f1 @0xa
0x28e7…28fc at000b = ╱ed╱(╱ // 0x28f2 @0xb
0x28e7…28fc at000c = ╱44╱D╱ // 0x28f3 @0xc
0x28e7…28fc at000d = ╱41╱A╱ // 0x28f4 @0xd
0x28e7…28fc at000e = ╱31╱1╱ // 0x28f5 @0xe
0x28e7…28fc at000f = ╱ec╱,╱ // 0x28f6 @0xf
0x28e7…28fc at0010 = ╱44╱D╱ // 0x28f7 @0x10
0x28e7…28fc at0011 = ╱41╱A╱ // 0x28f8 @0x11
0x28e7…28fc at0012 = ╱32╱2╱ // 0x28f9 @0x12
0x28e7…28fc at0013 = ╱ee╱)╱ // 0x28fa @0x13
0x28e7…28fc at0014 = EOL // 0x28fb @0x14
0x28e7…28fc }
0x28fc…2918 b66f 4550 DA3=DA1;DA2$=" "
0x28fc…2918 LineComalBin {
0x28fc…2918 ptr = 0xb66f // 0x28fc @0x0
0x28fc…2918 lno = 0x11c6 // 0x28fe @0x2
0x28fc…2918 at0004 = ╱44╱D╱ // 0x2900 @0x4
0x28fc…2918 at0005 = ╱41╱A╱ // 0x2901 @0x5
0x28fc…2918 at0006 = ╱33╱3╱ // 0x2902 @0x6
0x28fc…2918 at0007 = ╱dc╱=╱ // 0x2903 @0x7
0x28fc…2918 at0008 = ╱44╱D╱ // 0x2904 @0x8
0x28fc…2918 at0009 = ╱41╱A╱ // 0x2905 @0x9
0x28fc…2918 at000a = ╱31╱1╱ // 0x2906 @0xa
0x28fc…2918 at000b = ╱eb╱;╱ // 0x2907 @0xb
0x28fc…2918 at000c = ╱44╱D╱ // 0x2908 @0xc
0x28fc…2918 at000d = ╱41╱A╱ // 0x2909 @0xd
0x28fc…2918 at000e = ╱32╱2╱ // 0x290a @0xe
0x28fc…2918 at000f = ╱ef╱$╱ // 0x290b @0xf
0x28fc…2918 at0010 = ╱dc╱=╱ // 0x290c @0x10
0x28fc…2918 at0011 = ╱22╱"╱ // 0x290d @0x11
0x28fc…2918 at0012 = ╱20╱…╱ // 0x290e @0x12
0x28fc…2918 at0013 = ╱20╱…╱ // 0x290f @0x13
0x28fc…2918 at0014 = ╱20╱…╱ // 0x2910 @0x14
0x28fc…2918 at0015 = ╱20╱…╱ // 0x2911 @0x15
0x28fc…2918 at0016 = ╱20╱…╱ // 0x2912 @0x16
0x28fc…2918 at0017 = ╱20╱…╱ // 0x2913 @0x17
0x28fc…2918 at0018 = ╱20╱…╱ // 0x2914 @0x18
0x28fc…2918 at0019 = ╱20╱…╱ // 0x2915 @0x19
0x28fc…2918 at001a = ╱22╱"╱ // 0x2916 @0x1a
0x28fc…2918 at001b = EOL // 0x2917 @0x1b
0x28fc…2918 }
0x2918…292b b682 4560 FOR J=8 TO E STEP -E
0x2918…292b LineComalBin {
0x2918…292b ptr = 0xb682 // 0x2918 @0x0
0x2918…292b lno = 0x11d0 // 0x291a @0x2
0x2918…292b at0004 = ╱83╱ FOR ╱ // 0x291c @0x4
0x2918…292b at0005 = ╱4a╱J╱ // 0x291d @0x5
0x2918…292b at0006 = ╱dc╱=╱ // 0x291e @0x6
0x2918…292b at0007 = ╱38╱8╱ // 0x291f @0x7
0x2918…292b at0008 = ╱fe00008004╱ // 0x2920 @0x8
0x2918…292b at000d = ╱b7╱ TO ╱ // 0x2925 @0xd
0x2918…292b at000e = ╱45╱E╱ // 0x2926 @0xe
0x2918…292b at000f = ╱b8╱ STEP ╱ // 0x2927 @0xf
0x2918…292b at0010 = ╱e9╱-╱ // 0x2928 @0x10
0x2918…292b at0011 = ╱45╱E╱ // 0x2929 @0x11
0x2918…292b at0012 = EOL // 0x292a @0x12
0x2918…292b }
0x292b…2937 b68e 4570 IF J MOD V=B THEN
0x292b…2937 LineComalBin {
0x292b…2937 ptr = 0xb68e // 0x292b @0x0
0x292b…2937 lno = 0x11da // 0x292d @0x2
0x292b…2937 at0004 = ╱9c╱ IF ╱ // 0x292f @0x4
0x292b…2937 at0005 = ╱4a╱J╱ // 0x2930 @0x5
0x292b…2937 at0006 = ╱e8╱ MOD ╱ // 0x2931 @0x6
0x292b…2937 at0007 = ╱56╱V╱ // 0x2932 @0x7
0x292b…2937 at0008 = ╱dc╱=╱ // 0x2933 @0x8
0x292b…2937 at0009 = ╱42╱B╱ // 0x2934 @0x9
0x292b…2937 at000a = ╱b6╱ THEN ╱ // 0x2935 @0xa
0x292b…2937 at000b = EOL // 0x2936 @0xb
0x292b…2937 }
0x2937…2947 b69e 4580 DA2$(J)="."
0x2937…2947 LineComalBin {
0x2937…2947 ptr = 0xb69e // 0x2937 @0x0
0x2937…2947 lno = 0x11e4 // 0x2939 @0x2
0x2937…2947 at0004 = ╱44╱D╱ // 0x293b @0x4
0x2937…2947 at0005 = ╱41╱A╱ // 0x293c @0x5
0x2937…2947 at0006 = ╱32╱2╱ // 0x293d @0x6
0x2937…2947 at0007 = ╱ef╱$╱ // 0x293e @0x7
0x2937…2947 at0008 = ╱ed╱(╱ // 0x293f @0x8
0x2937…2947 at0009 = ╱4a╱J╱ // 0x2940 @0x9
0x2937…2947 at000a = ╱ee╱)╱ // 0x2941 @0xa
0x2937…2947 at000b = ╱dc╱=╱ // 0x2942 @0xb
0x2937…2947 at000c = ╱22╱"╱ // 0x2943 @0xc
0x2937…2947 at000d = ╱2e╱.╱ // 0x2944 @0xd
0x2937…2947 at000e = ╱22╱"╱ // 0x2945 @0xe
0x2937…2947 at000f = EOL // 0x2946 @0xf
0x2937…2947 }
0x2947…294d b6a4 4590 ELSE
0x2947…294d LineComalBin {
0x2947…294d ptr = 0xb6a4 // 0x2947 @0x0
0x2947…294d lno = 0x11ee // 0x2949 @0x2
0x2947…294d at0004 = ╱9a╱ ELSE ╱ // 0x294b @0x4
0x2947…294d at0005 = EOL // 0x294c @0x5
0x2947…294d }
0x294d…2980 b6d7 4600 DA2$(J)=CHR(DA3 MOD 10+48);DA3=DA3 DIV 10
0x294d…2980 LineComalBin {
0x294d…2980 ptr = 0xb6d7 // 0x294d @0x0
0x294d…2980 lno = 0x11f8 // 0x294f @0x2
0x294d…2980 at0004 = ╱44╱D╱ // 0x2951 @0x4
0x294d…2980 at0005 = ╱41╱A╱ // 0x2952 @0x5
0x294d…2980 at0006 = ╱32╱2╱ // 0x2953 @0x6
0x294d…2980 at0007 = ╱ef╱$╱ // 0x2954 @0x7
0x294d…2980 at0008 = ╱ed╱(╱ // 0x2955 @0x8
0x294d…2980 at0009 = ╱4a╱J╱ // 0x2956 @0x9
0x294d…2980 at000a = ╱ee╱)╱ // 0x2957 @0xa
0x294d…2980 at000b = ╱dc╱=╱ // 0x2958 @0xb
0x294d…2980 at000c = ╱cf╱CHR╱ // 0x2959 @0xc
0x294d…2980 at000d = ╱ed╱(╱ // 0x295a @0xd
0x294d…2980 at000e = ╱44╱D╱ // 0x295b @0xe
0x294d…2980 at000f = ╱41╱A╱ // 0x295c @0xf
0x294d…2980 at0010 = ╱33╱3╱ // 0x295d @0x10
0x294d…2980 at0011 = ╱e8╱ MOD ╱ // 0x295e @0x11
0x294d…2980 at0012 = ╱31╱1╱ // 0x295f @0x12
0x294d…2980 at0013 = ╱30╱0╱ // 0x2960 @0x13
0x294d…2980 at0014 = ╱fe0000a004╱ // 0x2961 @0x14
0x294d…2980 at0019 = ╱e2╱+╱ // 0x2966 @0x19
0x294d…2980 at001a = ╱34╱4╱ // 0x2967 @0x1a
0x294d…2980 at001b = ╱38╱8╱ // 0x2968 @0x1b
0x294d…2980 at001c = ╱fe0000c006╱ // 0x2969 @0x1c
0x294d…2980 at0021 = ╱ee╱)╱ // 0x296e @0x21
0x294d…2980 at0022 = ╱eb╱;╱ // 0x296f @0x22
0x294d…2980 at0023 = ╱44╱D╱ // 0x2970 @0x23
0x294d…2980 at0024 = ╱41╱A╱ // 0x2971 @0x24
0x294d…2980 at0025 = ╱33╱3╱ // 0x2972 @0x25
0x294d…2980 at0026 = ╱dc╱=╱ // 0x2973 @0x26
0x294d…2980 at0027 = ╱44╱D╱ // 0x2974 @0x27
0x294d…2980 at0028 = ╱41╱A╱ // 0x2975 @0x28
0x294d…2980 at0029 = ╱33╱3╱ // 0x2976 @0x29
0x294d…2980 at002a = ╱e7╱ DIV ╱ // 0x2977 @0x2a
0x294d…2980 at002b = ╱31╱1╱ // 0x2978 @0x2b
0x294d…2980 at002c = ╱30╱0╱ // 0x2979 @0x2c
0x294d…2980 at002d = ╱fe0000a004╱ // 0x297a @0x2d
0x294d…2980 at0032 = EOL // 0x297f @0x32
0x294d…2980 }
0x2980…2986 b6dd 4620 ENDIF
0x2980…2986 LineComalBin {
0x2980…2986 ptr = 0xb6dd // 0x2980 @0x0
0x2980…2986 lno = 0x120c // 0x2982 @0x2
0x2980…2986 at0004 = ╱9b╱ ENDIF ╱ // 0x2984 @0x4
0x2980…2986 at0005 = EOL // 0x2985 @0x5
0x2980…2986 }
0x2986…298d b6e4 4630 NEXT J
0x2986…298d LineComalBin {
0x2986…298d ptr = 0xb6e4 // 0x2986 @0x0
0x2986…298d lno = 0x1216 // 0x2988 @0x2
0x2986…298d at0004 = ╱84╱ NEXT ╱ // 0x298a @0x4
0x2986…298d at0005 = ╱4a╱J╱ // 0x298b @0x5
0x2986…298d at0006 = EOL // 0x298c @0x6
0x2986…298d }
0x298d…2993 b6ea 4640 ENDPROC
0x298d…2993 LineComalBin {
0x298d…2993 ptr = 0xb6ea // 0x298d @0x0
0x298d…2993 lno = 0x1220 // 0x298f @0x2
0x298d…2993 at0004 = ╱9f╱ ENDPROC ╱ // 0x2991 @0x4
0x298d…2993 at0005 = EOL // 0x2992 @0x5
0x298d…2993 }
0x2993…29b1 b708 4650 PROC MKONTUD(K61,MPOSTANTAL8)
0x2993…29b1 LineComalBin {
0x2993…29b1 ptr = 0xb708 // 0x2993 @0x0
0x2993…29b1 lno = 0x122a // 0x2995 @0x2
0x2993…29b1 at0004 = ╱9e╱ PROC ╱ // 0x2997 @0x4
0x2993…29b1 at0005 = ╱4d╱M╱ // 0x2998 @0x5
0x2993…29b1 at0006 = ╱4b╱K╱ // 0x2999 @0x6
0x2993…29b1 at0007 = ╱4f╱O╱ // 0x299a @0x7
0x2993…29b1 at0008 = ╱4e╱N╱ // 0x299b @0x8
0x2993…29b1 at0009 = ╱54╱T╱ // 0x299c @0x9
0x2993…29b1 at000a = ╱55╱U╱ // 0x299d @0xa
0x2993…29b1 at000b = ╱44╱D╱ // 0x299e @0xb
0x2993…29b1 at000c = ╱ed╱(╱ // 0x299f @0xc
0x2993…29b1 at000d = ╱4b╱K╱ // 0x29a0 @0xd
0x2993…29b1 at000e = ╱36╱6╱ // 0x29a1 @0xe
0x2993…29b1 at000f = ╱31╱1╱ // 0x29a2 @0xf
0x2993…29b1 at0010 = ╱ec╱,╱ // 0x29a3 @0x10
0x2993…29b1 at0011 = ╱4d╱M╱ // 0x29a4 @0x11
0x2993…29b1 at0012 = ╱50╱P╱ // 0x29a5 @0x12
0x2993…29b1 at0013 = ╱4f╱O╱ // 0x29a6 @0x13
0x2993…29b1 at0014 = ╱53╱S╱ // 0x29a7 @0x14
0x2993…29b1 at0015 = ╱54╱T╱ // 0x29a8 @0x15
0x2993…29b1 at0016 = ╱41╱A╱ // 0x29a9 @0x16
0x2993…29b1 at0017 = ╱4e╱N╱ // 0x29aa @0x17
0x2993…29b1 at0018 = ╱54╱T╱ // 0x29ab @0x18
0x2993…29b1 at0019 = ╱41╱A╱ // 0x29ac @0x19
0x2993…29b1 at001a = ╱4c╱L╱ // 0x29ad @0x1a
0x2993…29b1 at001b = ╱38╱8╱ // 0x29ae @0x1b
0x2993…29b1 at001c = ╱ee╱)╱ // 0x29af @0x1c
0x2993…29b1 at001d = EOL // 0x29b0 @0x1d
0x2993…29b1 }
0x29b1…29b8 b70f 4660 OUTPUT P
0x29b1…29b8 LineComalBin {
0x29b1…29b8 ptr = 0xb70f // 0x29b1 @0x0
0x29b1…29b8 lno = 0x1234 // 0x29b3 @0x2
0x29b1…29b8 at0004 = ╱a5╱ OUTPUT ╱ // 0x29b5 @0x4
0x29b1…29b8 at0005 = ╱50╱P╱ // 0x29b6 @0x5
0x29b1…29b8 at0006 = EOL // 0x29b7 @0x6
0x29b1…29b8 }
0x29b8…29c4 b71b 4670 P=E;T=E
0x29b8…29c4 LineComalBin {
0x29b8…29c4 ptr = 0xb71b // 0x29b8 @0x0
0x29b8…29c4 lno = 0x123e // 0x29ba @0x2
0x29b8…29c4 at0004 = ╱50╱P╱ // 0x29bc @0x4
0x29b8…29c4 at0005 = ╱dc╱=╱ // 0x29bd @0x5
0x29b8…29c4 at0006 = ╱45╱E╱ // 0x29be @0x6
0x29b8…29c4 at0007 = ╱eb╱;╱ // 0x29bf @0x7
0x29b8…29c4 at0008 = ╱54╱T╱ // 0x29c0 @0x8
0x29b8…29c4 at0009 = ╱dc╱=╱ // 0x29c1 @0x9
0x29b8…29c4 at000a = ╱45╱E╱ // 0x29c2 @0xa
0x29b8…29c4 at000b = EOL // 0x29c3 @0xb
0x29b8…29c4 }
0x29c4…29f1 b748 4680 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
0x29c4…29f1 LineComalBin {
0x29c4…29f1 ptr = 0xb748 // 0x29c4 @0x0
0x29c4…29f1 lno = 0x1248 // 0x29c6 @0x2
0x29c4…29f1 at0004 = ╱9d╱ EXEC ╱ // 0x29c8 @0x4
0x29c4…29f1 at0005 = ╱50╱P╱ // 0x29c9 @0x5
0x29c4…29f1 at0006 = ╱4f╱O╱ // 0x29ca @0x6
0x29c4…29f1 at0007 = ╱53╱S╱ // 0x29cb @0x7
0x29c4…29f1 at0008 = ╱54╱T╱ // 0x29cc @0x8
0x29c4…29f1 at0009 = ╱45╱E╱ // 0x29cd @0x9
0x29c4…29f1 at000a = ╱52╱R╱ // 0x29ce @0xa
0x29c4…29f1 at000b = ╱ed╱(╱ // 0x29cf @0xb
0x29c4…29f1 at000c = ╱4b╱K╱ // 0x29d0 @0xc
0x29c4…29f1 at000d = ╱36╱6╱ // 0x29d1 @0xd
0x29c4…29f1 at000e = ╱31╱1╱ // 0x29d2 @0xe
0x29c4…29f1 at000f = ╱ef╱$╱ // 0x29d3 @0xf
0x29c4…29f1 at0010 = ╱ec╱,╱ // 0x29d4 @0x10
0x29c4…29f1 at0011 = ╱50╱P╱ // 0x29d5 @0x11
0x29c4…29f1 at0012 = ╱ec╱,╱ // 0x29d6 @0x12
0x29c4…29f1 at0013 = ╱54╱T╱ // 0x29d7 @0x13
0x29c4…29f1 at0014 = ╱ec╱,╱ // 0x29d8 @0x14
0x29c4…29f1 at0015 = ╱4d╱M╱ // 0x29d9 @0x15
0x29c4…29f1 at0016 = ╱50╱P╱ // 0x29da @0x16
0x29c4…29f1 at0017 = ╱4f╱O╱ // 0x29db @0x17
0x29c4…29f1 at0018 = ╱53╱S╱ // 0x29dc @0x18
0x29c4…29f1 at0019 = ╱54╱T╱ // 0x29dd @0x19
0x29c4…29f1 at001a = ╱41╱A╱ // 0x29de @0x1a
0x29c4…29f1 at001b = ╱4e╱N╱ // 0x29df @0x1b
0x29c4…29f1 at001c = ╱54╱T╱ // 0x29e0 @0x1c
0x29c4…29f1 at001d = ╱41╱A╱ // 0x29e1 @0x1d
0x29c4…29f1 at001e = ╱4c╱L╱ // 0x29e2 @0x1e
0x29c4…29f1 at001f = ╱38╱8╱ // 0x29e3 @0x1f
0x29c4…29f1 at0020 = ╱ec╱,╱ // 0x29e4 @0x20
0x29c4…29f1 at0021 = ╱53╱S╱ // 0x29e5 @0x21
0x29c4…29f1 at0022 = ╱4b╱K╱ // 0x29e6 @0x22
0x29c4…29f1 at0023 = ╱52╱R╱ // 0x29e7 @0x23
0x29c4…29f1 at0024 = ╱49╱I╱ // 0x29e8 @0x24
0x29c4…29f1 at0025 = ╱56╱V╱ // 0x29e9 @0x25
0x29c4…29f1 at0026 = ╱ec╱,╱ // 0x29ea @0x26
0x29c4…29f1 at0027 = ╱53╱S╱ // 0x29eb @0x27
0x29c4…29f1 at0028 = ╱55╱U╱ // 0x29ec @0x28
0x29c4…29f1 at0029 = ╱4d╱M╱ // 0x29ed @0x29
0x29c4…29f1 at002a = ╱ef╱$╱ // 0x29ee @0x2a
0x29c4…29f1 at002b = ╱ee╱)╱ // 0x29ef @0x2b
0x29c4…29f1 at002c = EOL // 0x29f0 @0x2c
0x29c4…29f1 }
0x29f1…29f9 b750 4690 T=E
0x29f1…29f9 LineComalBin {
0x29f1…29f9 ptr = 0xb750 // 0x29f1 @0x0
0x29f1…29f9 lno = 0x1252 // 0x29f3 @0x2
0x29f1…29f9 at0004 = ╱54╱T╱ // 0x29f5 @0x4
0x29f1…29f9 at0005 = ╱dc╱=╱ // 0x29f6 @0x5
0x29f1…29f9 at0006 = ╱45╱E╱ // 0x29f7 @0x6
0x29f1…29f9 at0007 = EOL // 0x29f8 @0x7
0x29f1…29f9 }
0x29f9…2a0d b764 4700 IF P<100000 THEN
0x29f9…2a0d LineComalBin {
0x29f9…2a0d ptr = 0xb764 // 0x29f9 @0x0
0x29f9…2a0d lno = 0x125c // 0x29fb @0x2
0x29f9…2a0d at0004 = ╱9c╱ IF ╱ // 0x29fd @0x4
0x29f9…2a0d at0005 = ╱50╱P╱ // 0x29fe @0x5
0x29f9…2a0d at0006 = ╱dd╱<╱ // 0x29ff @0x6
0x29f9…2a0d at0007 = ╱31╱1╱ // 0x2a00 @0x7
0x29f9…2a0d at0008 = ╱30╱0╱ // 0x2a01 @0x8
0x29f9…2a0d at0009 = ╱30╱0╱ // 0x2a02 @0x9
0x29f9…2a0d at000a = ╱30╱0╱ // 0x2a03 @0xa
0x29f9…2a0d at000b = ╱30╱0╱ // 0x2a04 @0xb
0x29f9…2a0d at000c = ╱30╱0╱ // 0x2a05 @0xc
0x29f9…2a0d at000d = ╱fe0050c311╱ // 0x2a06 @0xd
0x29f9…2a0d at0012 = ╱b6╱ THEN ╱ // 0x2a0b @0x12
0x29f9…2a0d at0013 = EOL // 0x2a0c @0x13
0x29f9…2a0d }
0x2a0d…2a13 b76a 4710 REPEAT
0x2a0d…2a13 LineComalBin {
0x2a0d…2a13 ptr = 0xb76a // 0x2a0d @0x0
0x2a0d…2a13 lno = 0x1266 // 0x2a0f @0x2
0x2a0d…2a13 at0004 = ╱97╱ REPEAT ╱ // 0x2a11 @0x4
0x2a0d…2a13 at0005 = EOL // 0x2a12 @0x5
0x2a0d…2a13 }
0x2a13…2a2b b782 4720 KSIDENR=B;SUM$="0+"
0x2a13…2a2b LineComalBin {
0x2a13…2a2b ptr = 0xb782 // 0x2a13 @0x0
0x2a13…2a2b lno = 0x1270 // 0x2a15 @0x2
0x2a13…2a2b at0004 = ╱4b╱K╱ // 0x2a17 @0x4
0x2a13…2a2b at0005 = ╱53╱S╱ // 0x2a18 @0x5
0x2a13…2a2b at0006 = ╱49╱I╱ // 0x2a19 @0x6
0x2a13…2a2b at0007 = ╱44╱D╱ // 0x2a1a @0x7
0x2a13…2a2b at0008 = ╱45╱E╱ // 0x2a1b @0x8
0x2a13…2a2b at0009 = ╱4e╱N╱ // 0x2a1c @0x9
0x2a13…2a2b at000a = ╱52╱R╱ // 0x2a1d @0xa
0x2a13…2a2b at000b = ╱dc╱=╱ // 0x2a1e @0xb
0x2a13…2a2b at000c = ╱42╱B╱ // 0x2a1f @0xc
0x2a13…2a2b at000d = ╱eb╱;╱ // 0x2a20 @0xd
0x2a13…2a2b at000e = ╱53╱S╱ // 0x2a21 @0xe
0x2a13…2a2b at000f = ╱55╱U╱ // 0x2a22 @0xf
0x2a13…2a2b at0010 = ╱4d╱M╱ // 0x2a23 @0x10
0x2a13…2a2b at0011 = ╱ef╱$╱ // 0x2a24 @0x11
0x2a13…2a2b at0012 = ╱dc╱=╱ // 0x2a25 @0x12
0x2a13…2a2b at0013 = ╱22╱"╱ // 0x2a26 @0x13
0x2a13…2a2b at0014 = ╱30╱0╱ // 0x2a27 @0x14
0x2a13…2a2b at0015 = ╱2b╱+╱ // 0x2a28 @0x15
0x2a13…2a2b at0016 = ╱22╱"╱ // 0x2a29 @0x16
0x2a13…2a2b at0017 = EOL // 0x2a2a @0x17
0x2a13…2a2b }
0x2a2b…2a38 b78f 4730 CASE KTAL1 OF
0x2a2b…2a38 LineComalBin {
0x2a2b…2a38 ptr = 0xb78f // 0x2a2b @0x0
0x2a2b…2a38 lno = 0x127a // 0x2a2d @0x2
0x2a2b…2a38 at0004 = ╱a201╱ CASE ╱ // 0x2a2f @0x4
0x2a2b…2a38 at0006 = ╱4b╱K╱ // 0x2a31 @0x6
0x2a2b…2a38 at0007 = ╱54╱T╱ // 0x2a32 @0x7
0x2a2b…2a38 at0008 = ╱41╱A╱ // 0x2a33 @0x8
0x2a2b…2a38 at0009 = ╱4c╱L╱ // 0x2a34 @0x9
0x2a2b…2a38 at000a = ╱31╱1╱ // 0x2a35 @0xa
0x2a2b…2a38 at000b = ╱ba╱ OF ╱ // 0x2a36 @0xb
0x2a2b…2a38 at000c = EOL // 0x2a37 @0xc
0x2a2b…2a38 }
0x2a38…2a67 b7be 4740 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)
0x2a38…2a67 LineComalBin {
0x2a38…2a67 ptr = 0xb7be // 0x2a38 @0x0
0x2a38…2a67 lno = 0x1284 // 0x2a3a @0x2
0x2a38…2a67 at0004 = ╱9d╱ EXEC ╱ // 0x2a3c @0x4
0x2a38…2a67 at0005 = ╱46╱F╱ // 0x2a3d @0x5
0x2a38…2a67 at0006 = ╱49╱I╱ // 0x2a3e @0x6
0x2a38…2a67 at0007 = ╱4e╱N╱ // 0x2a3f @0x7
0x2a38…2a67 at0008 = ╱44╱D╱ // 0x2a40 @0x8
0x2a38…2a67 at0009 = ╱50╱P╱ // 0x2a41 @0x9
0x2a38…2a67 at000a = ╱4f╱O╱ // 0x2a42 @0xa
0x2a38…2a67 at000b = ╱53╱S╱ // 0x2a43 @0xb
0x2a38…2a67 at000c = ╱54╱T╱ // 0x2a44 @0xc
0x2a38…2a67 at000d = ╱31╱1╱ // 0x2a45 @0xd
0x2a38…2a67 at000e = ╱ed╱(╱ // 0x2a46 @0xe
0x2a38…2a67 at000f = ╱46╱F╱ // 0x2a47 @0xf
0x2a38…2a67 at0010 = ╱54╱T╱ // 0x2a48 @0x10
0x2a38…2a67 at0011 = ╱41╱A╱ // 0x2a49 @0x11
0x2a38…2a67 at0012 = ╱42╱B╱ // 0x2a4a @0x12
0x2a38…2a67 at0013 = ╱31╱1╱ // 0x2a4b @0x13
0x2a38…2a67 at0014 = ╱ec╱,╱ // 0x2a4c @0x14
0x2a38…2a67 at0015 = ╱46╱F╱ // 0x2a4d @0x15
0x2a38…2a67 at0016 = ╱54╱T╱ // 0x2a4e @0x16
0x2a38…2a67 at0017 = ╱41╱A╱ // 0x2a4f @0x17
0x2a38…2a67 at0018 = ╱42╱B╱ // 0x2a50 @0x18
0x2a38…2a67 at0019 = ╱ec╱,╱ // 0x2a51 @0x19
0x2a38…2a67 at001a = ╱4d╱M╱ // 0x2a52 @0x1a
0x2a38…2a67 at001b = ╱46╱F╱ // 0x2a53 @0x1b
0x2a38…2a67 at001c = ╱41╱A╱ // 0x2a54 @0x1c
0x2a38…2a67 at001d = ╱4e╱N╱ // 0x2a55 @0x1d
0x2a38…2a67 at001e = ╱54╱T╱ // 0x2a56 @0x1e
0x2a38…2a67 at001f = ╱41╱A╱ // 0x2a57 @0x1f
0x2a38…2a67 at0020 = ╱4c╱L╱ // 0x2a58 @0x20
0x2a38…2a67 at0021 = ╱ec╱,╱ // 0x2a59 @0x21
0x2a38…2a67 at0022 = ╱50╱P╱ // 0x2a5a @0x22
0x2a38…2a67 at0023 = ╱ec╱,╱ // 0x2a5b @0x23
0x2a38…2a67 at0024 = ╱46╱F╱ // 0x2a5c @0x24
0x2a38…2a67 at0025 = ╱50╱P╱ // 0x2a5d @0x25
0x2a38…2a67 at0026 = ╱49╱I╱ // 0x2a5e @0x26
0x2a38…2a67 at0027 = ╱4c╱L╱ // 0x2a5f @0x27
0x2a38…2a67 at0028 = ╱33╱3╱ // 0x2a60 @0x28
0x2a38…2a67 at0029 = ╱ec╱,╱ // 0x2a61 @0x29
0x2a38…2a67 at002a = ╱4b╱K╱ // 0x2a62 @0x2a
0x2a38…2a67 at002b = ╱32╱2╱ // 0x2a63 @0x2b
0x2a38…2a67 at002c = ╱ef╱$╱ // 0x2a64 @0x2c
0x2a38…2a67 at002d = ╱ee╱)╱ // 0x2a65 @0x2d
0x2a38…2a67 at002e = EOL // 0x2a66 @0x2e
0x2a38…2a67 }
0x2a67…2a7d b7d4 4750 IF CEKS=B THEN EXEC HENTPOST
0x2a67…2a7d LineComalBin {
0x2a67…2a7d ptr = 0xb7d4 // 0x2a67 @0x0
0x2a67…2a7d lno = 0x128e // 0x2a69 @0x2
0x2a67…2a7d at0004 = ╱82╱ IF ╱ // 0x2a6b @0x4
0x2a67…2a7d at0005 = ╱43╱C╱ // 0x2a6c @0x5
0x2a67…2a7d at0006 = ╱45╱E╱ // 0x2a6d @0x6
0x2a67…2a7d at0007 = ╱4b╱K╱ // 0x2a6e @0x7
0x2a67…2a7d at0008 = ╱53╱S╱ // 0x2a6f @0x8
0x2a67…2a7d at0009 = ╱dc╱=╱ // 0x2a70 @0x9
0x2a67…2a7d at000a = ╱42╱B╱ // 0x2a71 @0xa
0x2a67…2a7d at000b = ╱b6╱ THEN ╱ // 0x2a72 @0xb
0x2a67…2a7d at000c = ╱9d╱ EXEC ╱ // 0x2a73 @0xc
0x2a67…2a7d at000d = ╱48╱H╱ // 0x2a74 @0xd
0x2a67…2a7d at000e = ╱45╱E╱ // 0x2a75 @0xe
0x2a67…2a7d at000f = ╱4e╱N╱ // 0x2a76 @0xf
0x2a67…2a7d at0010 = ╱54╱T╱ // 0x2a77 @0x10
0x2a67…2a7d at0011 = ╱50╱P╱ // 0x2a78 @0x11
0x2a67…2a7d at0012 = ╱4f╱O╱ // 0x2a79 @0x12
0x2a67…2a7d at0013 = ╱53╱S╱ // 0x2a7a @0x13
0x2a67…2a7d at0014 = ╱54╱T╱ // 0x2a7b @0x14
0x2a67…2a7d at0015 = EOL // 0x2a7c @0x15
0x2a67…2a7d }
0x2a7d…2a88 b7df 4760 WHEN DTAL
0x2a7d…2a88 LineComalBin {
0x2a7d…2a88 ptr = 0xb7df // 0x2a7d @0x0
0x2a7d…2a88 lno = 0x1298 // 0x2a7f @0x2
0x2a7d…2a88 at0004 = ╱a301╱ WHEN ╱ // 0x2a81 @0x4
0x2a7d…2a88 at0006 = ╱44╱D╱ // 0x2a83 @0x6
0x2a7d…2a88 at0007 = ╱54╱T╱ // 0x2a84 @0x7
0x2a7d…2a88 at0008 = ╱41╱A╱ // 0x2a85 @0x8
0x2a7d…2a88 at0009 = ╱4c╱L╱ // 0x2a86 @0x9
0x2a7d…2a88 at000a = EOL // 0x2a87 @0xa
0x2a7d…2a88 }
0x2a88…2ab7 b80e 4770 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,P,DPIL3,K3$)
0x2a88…2ab7 LineComalBin {
0x2a88…2ab7 ptr = 0xb80e // 0x2a88 @0x0
0x2a88…2ab7 lno = 0x12a2 // 0x2a8a @0x2
0x2a88…2ab7 at0004 = ╱9d╱ EXEC ╱ // 0x2a8c @0x4
0x2a88…2ab7 at0005 = ╱46╱F╱ // 0x2a8d @0x5
0x2a88…2ab7 at0006 = ╱49╱I╱ // 0x2a8e @0x6
0x2a88…2ab7 at0007 = ╱4e╱N╱ // 0x2a8f @0x7
0x2a88…2ab7 at0008 = ╱44╱D╱ // 0x2a90 @0x8
0x2a88…2ab7 at0009 = ╱50╱P╱ // 0x2a91 @0x9
0x2a88…2ab7 at000a = ╱4f╱O╱ // 0x2a92 @0xa
0x2a88…2ab7 at000b = ╱53╱S╱ // 0x2a93 @0xb
0x2a88…2ab7 at000c = ╱54╱T╱ // 0x2a94 @0xc
0x2a88…2ab7 at000d = ╱31╱1╱ // 0x2a95 @0xd
0x2a88…2ab7 at000e = ╱ed╱(╱ // 0x2a96 @0xe
0x2a88…2ab7 at000f = ╱44╱D╱ // 0x2a97 @0xf
0x2a88…2ab7 at0010 = ╱54╱T╱ // 0x2a98 @0x10
0x2a88…2ab7 at0011 = ╱41╱A╱ // 0x2a99 @0x11
0x2a88…2ab7 at0012 = ╱42╱B╱ // 0x2a9a @0x12
0x2a88…2ab7 at0013 = ╱31╱1╱ // 0x2a9b @0x13
0x2a88…2ab7 at0014 = ╱ec╱,╱ // 0x2a9c @0x14
0x2a88…2ab7 at0015 = ╱44╱D╱ // 0x2a9d @0x15
0x2a88…2ab7 at0016 = ╱54╱T╱ // 0x2a9e @0x16
0x2a88…2ab7 at0017 = ╱41╱A╱ // 0x2a9f @0x17
0x2a88…2ab7 at0018 = ╱42╱B╱ // 0x2aa0 @0x18
0x2a88…2ab7 at0019 = ╱ec╱,╱ // 0x2aa1 @0x19
0x2a88…2ab7 at001a = ╱4d╱M╱ // 0x2aa2 @0x1a
0x2a88…2ab7 at001b = ╱44╱D╱ // 0x2aa3 @0x1b
0x2a88…2ab7 at001c = ╱41╱A╱ // 0x2aa4 @0x1c
0x2a88…2ab7 at001d = ╱4e╱N╱ // 0x2aa5 @0x1d
0x2a88…2ab7 at001e = ╱54╱T╱ // 0x2aa6 @0x1e
0x2a88…2ab7 at001f = ╱41╱A╱ // 0x2aa7 @0x1f
0x2a88…2ab7 at0020 = ╱4c╱L╱ // 0x2aa8 @0x20
0x2a88…2ab7 at0021 = ╱ec╱,╱ // 0x2aa9 @0x21
0x2a88…2ab7 at0022 = ╱50╱P╱ // 0x2aaa @0x22
0x2a88…2ab7 at0023 = ╱ec╱,╱ // 0x2aab @0x23
0x2a88…2ab7 at0024 = ╱44╱D╱ // 0x2aac @0x24
0x2a88…2ab7 at0025 = ╱50╱P╱ // 0x2aad @0x25
0x2a88…2ab7 at0026 = ╱49╱I╱ // 0x2aae @0x26
0x2a88…2ab7 at0027 = ╱4c╱L╱ // 0x2aaf @0x27
0x2a88…2ab7 at0028 = ╱33╱3╱ // 0x2ab0 @0x28
0x2a88…2ab7 at0029 = ╱ec╱,╱ // 0x2ab1 @0x29
0x2a88…2ab7 at002a = ╱4b╱K╱ // 0x2ab2 @0x2a
0x2a88…2ab7 at002b = ╱33╱3╱ // 0x2ab3 @0x2b
0x2a88…2ab7 at002c = ╱ef╱$╱ // 0x2ab4 @0x2c
0x2a88…2ab7 at002d = ╱ee╱)╱ // 0x2ab5 @0x2d
0x2a88…2ab7 at002e = EOL // 0x2ab6 @0x2e
0x2a88…2ab7 }
0x2ab7…2ace b825 4780 IF CEKS=B THEN EXEC HENTDPOST
0x2ab7…2ace LineComalBin {
0x2ab7…2ace ptr = 0xb825 // 0x2ab7 @0x0
0x2ab7…2ace lno = 0x12ac // 0x2ab9 @0x2
0x2ab7…2ace at0004 = ╱82╱ IF ╱ // 0x2abb @0x4
0x2ab7…2ace at0005 = ╱43╱C╱ // 0x2abc @0x5
0x2ab7…2ace at0006 = ╱45╱E╱ // 0x2abd @0x6
0x2ab7…2ace at0007 = ╱4b╱K╱ // 0x2abe @0x7
0x2ab7…2ace at0008 = ╱53╱S╱ // 0x2abf @0x8
0x2ab7…2ace at0009 = ╱dc╱=╱ // 0x2ac0 @0x9
0x2ab7…2ace at000a = ╱42╱B╱ // 0x2ac1 @0xa
0x2ab7…2ace at000b = ╱b6╱ THEN ╱ // 0x2ac2 @0xb
0x2ab7…2ace at000c = ╱9d╱ EXEC ╱ // 0x2ac3 @0xc
0x2ab7…2ace at000d = ╱48╱H╱ // 0x2ac4 @0xd
0x2ab7…2ace at000e = ╱45╱E╱ // 0x2ac5 @0xe
0x2ab7…2ace at000f = ╱4e╱N╱ // 0x2ac6 @0xf
0x2ab7…2ace at0010 = ╱54╱T╱ // 0x2ac7 @0x10
0x2ab7…2ace at0011 = ╱44╱D╱ // 0x2ac8 @0x11
0x2ab7…2ace at0012 = ╱50╱P╱ // 0x2ac9 @0x12
0x2ab7…2ace at0013 = ╱4f╱O╱ // 0x2aca @0x13
0x2ab7…2ace at0014 = ╱53╱S╱ // 0x2acb @0x14
0x2ab7…2ace at0015 = ╱54╱T╱ // 0x2acc @0x15
0x2ab7…2ace at0016 = EOL // 0x2acd @0x16
0x2ab7…2ace }
0x2ace…2ada b831 4790 WHEN KRTAL
0x2ace…2ada LineComalBin {
0x2ace…2ada ptr = 0xb831 // 0x2ace @0x0
0x2ace…2ada lno = 0x12b6 // 0x2ad0 @0x2
0x2ace…2ada at0004 = ╱a301╱ WHEN ╱ // 0x2ad2 @0x4
0x2ace…2ada at0006 = ╱4b╱K╱ // 0x2ad4 @0x6
0x2ace…2ada at0007 = ╱52╱R╱ // 0x2ad5 @0x7
0x2ace…2ada at0008 = ╱54╱T╱ // 0x2ad6 @0x8
0x2ace…2ada at0009 = ╱41╱A╱ // 0x2ad7 @0x9
0x2ace…2ada at000a = ╱4c╱L╱ // 0x2ad8 @0xa
0x2ace…2ada at000b = EOL // 0x2ad9 @0xb
0x2ace…2ada }
0x2ada…2b09 b860 4800 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,P,KPIL3,K4$)
0x2ada…2b09 LineComalBin {
0x2ada…2b09 ptr = 0xb860 // 0x2ada @0x0
0x2ada…2b09 lno = 0x12c0 // 0x2adc @0x2
0x2ada…2b09 at0004 = ╱9d╱ EXEC ╱ // 0x2ade @0x4
0x2ada…2b09 at0005 = ╱46╱F╱ // 0x2adf @0x5
0x2ada…2b09 at0006 = ╱49╱I╱ // 0x2ae0 @0x6
0x2ada…2b09 at0007 = ╱4e╱N╱ // 0x2ae1 @0x7
0x2ada…2b09 at0008 = ╱44╱D╱ // 0x2ae2 @0x8
0x2ada…2b09 at0009 = ╱50╱P╱ // 0x2ae3 @0x9
0x2ada…2b09 at000a = ╱4f╱O╱ // 0x2ae4 @0xa
0x2ada…2b09 at000b = ╱53╱S╱ // 0x2ae5 @0xb
0x2ada…2b09 at000c = ╱54╱T╱ // 0x2ae6 @0xc
0x2ada…2b09 at000d = ╱31╱1╱ // 0x2ae7 @0xd
0x2ada…2b09 at000e = ╱ed╱(╱ // 0x2ae8 @0xe
0x2ada…2b09 at000f = ╱4b╱K╱ // 0x2ae9 @0xf
0x2ada…2b09 at0010 = ╱54╱T╱ // 0x2aea @0x10
0x2ada…2b09 at0011 = ╱41╱A╱ // 0x2aeb @0x11
0x2ada…2b09 at0012 = ╱42╱B╱ // 0x2aec @0x12
0x2ada…2b09 at0013 = ╱31╱1╱ // 0x2aed @0x13
0x2ada…2b09 at0014 = ╱ec╱,╱ // 0x2aee @0x14
0x2ada…2b09 at0015 = ╱4b╱K╱ // 0x2aef @0x15
0x2ada…2b09 at0016 = ╱54╱T╱ // 0x2af0 @0x16
0x2ada…2b09 at0017 = ╱41╱A╱ // 0x2af1 @0x17
0x2ada…2b09 at0018 = ╱42╱B╱ // 0x2af2 @0x18
0x2ada…2b09 at0019 = ╱ec╱,╱ // 0x2af3 @0x19
0x2ada…2b09 at001a = ╱4d╱M╱ // 0x2af4 @0x1a
0x2ada…2b09 at001b = ╱4b╱K╱ // 0x2af5 @0x1b
0x2ada…2b09 at001c = ╱41╱A╱ // 0x2af6 @0x1c
0x2ada…2b09 at001d = ╱4e╱N╱ // 0x2af7 @0x1d
0x2ada…2b09 at001e = ╱54╱T╱ // 0x2af8 @0x1e
0x2ada…2b09 at001f = ╱41╱A╱ // 0x2af9 @0x1f
0x2ada…2b09 at0020 = ╱4c╱L╱ // 0x2afa @0x20
0x2ada…2b09 at0021 = ╱ec╱,╱ // 0x2afb @0x21
0x2ada…2b09 at0022 = ╱50╱P╱ // 0x2afc @0x22
0x2ada…2b09 at0023 = ╱ec╱,╱ // 0x2afd @0x23
0x2ada…2b09 at0024 = ╱4b╱K╱ // 0x2afe @0x24
0x2ada…2b09 at0025 = ╱50╱P╱ // 0x2aff @0x25
0x2ada…2b09 at0026 = ╱49╱I╱ // 0x2b00 @0x26
0x2ada…2b09 at0027 = ╱4c╱L╱ // 0x2b01 @0x27
0x2ada…2b09 at0028 = ╱33╱3╱ // 0x2b02 @0x28
0x2ada…2b09 at0029 = ╱ec╱,╱ // 0x2b03 @0x29
0x2ada…2b09 at002a = ╱4b╱K╱ // 0x2b04 @0x2a
0x2ada…2b09 at002b = ╱34╱4╱ // 0x2b05 @0x2b
0x2ada…2b09 at002c = ╱ef╱$╱ // 0x2b06 @0x2c
0x2ada…2b09 at002d = ╱ee╱)╱ // 0x2b07 @0x2d
0x2ada…2b09 at002e = EOL // 0x2b08 @0x2e
0x2ada…2b09 }
0x2b09…2b20 b877 4810 IF CEKS=B THEN EXEC HENTKPOST
0x2b09…2b20 LineComalBin {
0x2b09…2b20 ptr = 0xb877 // 0x2b09 @0x0
0x2b09…2b20 lno = 0x12ca // 0x2b0b @0x2
0x2b09…2b20 at0004 = ╱82╱ IF ╱ // 0x2b0d @0x4
0x2b09…2b20 at0005 = ╱43╱C╱ // 0x2b0e @0x5
0x2b09…2b20 at0006 = ╱45╱E╱ // 0x2b0f @0x6
0x2b09…2b20 at0007 = ╱4b╱K╱ // 0x2b10 @0x7
0x2b09…2b20 at0008 = ╱53╱S╱ // 0x2b11 @0x8
0x2b09…2b20 at0009 = ╱dc╱=╱ // 0x2b12 @0x9
0x2b09…2b20 at000a = ╱42╱B╱ // 0x2b13 @0xa
0x2b09…2b20 at000b = ╱b6╱ THEN ╱ // 0x2b14 @0xb
0x2b09…2b20 at000c = ╱9d╱ EXEC ╱ // 0x2b15 @0xc
0x2b09…2b20 at000d = ╱48╱H╱ // 0x2b16 @0xd
0x2b09…2b20 at000e = ╱45╱E╱ // 0x2b17 @0xe
0x2b09…2b20 at000f = ╱4e╱N╱ // 0x2b18 @0xf
0x2b09…2b20 at0010 = ╱54╱T╱ // 0x2b19 @0x10
0x2b09…2b20 at0011 = ╱4b╱K╱ // 0x2b1a @0x11
0x2b09…2b20 at0012 = ╱50╱P╱ // 0x2b1b @0x12
0x2b09…2b20 at0013 = ╱4f╱O╱ // 0x2b1c @0x13
0x2b09…2b20 at0014 = ╱53╱S╱ // 0x2b1d @0x14
0x2b09…2b20 at0015 = ╱54╱T╱ // 0x2b1e @0x15
0x2b09…2b20 at0016 = EOL // 0x2b1f @0x16
0x2b09…2b20 }
0x2b20…2b26 b87d 4820 ENDCASE
0x2b20…2b26 LineComalBin {
0x2b20…2b26 ptr = 0xb87d // 0x2b20 @0x0
0x2b20…2b26 lno = 0x12d4 // 0x2b22 @0x2
0x2b20…2b26 at0004 = ╱a4╱ ENDCASE ╱ // 0x2b24 @0x4
0x2b20…2b26 at0005 = EOL // 0x2b25 @0x5
0x2b20…2b26 }
0x2b26…2b34 b88b 4830 IF CEKS<>B THEN STOP
0x2b26…2b34 LineComalBin {
0x2b26…2b34 ptr = 0xb88b // 0x2b26 @0x0
0x2b26…2b34 lno = 0x12de // 0x2b28 @0x2
0x2b26…2b34 at0004 = ╱82╱ IF ╱ // 0x2b2a @0x4
0x2b26…2b34 at0005 = ╱43╱C╱ // 0x2b2b @0x5
0x2b26…2b34 at0006 = ╱45╱E╱ // 0x2b2c @0x6
0x2b26…2b34 at0007 = ╱4b╱K╱ // 0x2b2d @0x7
0x2b26…2b34 at0008 = ╱53╱S╱ // 0x2b2e @0x8
0x2b26…2b34 at0009 = ╱e1╱<>╱ // 0x2b2f @0x9
0x2b26…2b34 at000a = ╱42╱B╱ // 0x2b30 @0xa
0x2b26…2b34 at000b = ╱b6╱ THEN ╱ // 0x2b31 @0xb
0x2b26…2b34 at000c = ╱8d╱ STOP ╱ // 0x2b32 @0xc
0x2b26…2b34 at000d = EOL // 0x2b33 @0xd
0x2b26…2b34 }
0x2b34…2b42 b899 4840 EXEC HUDSKRIV
0x2b34…2b42 LineComalBin {
0x2b34…2b42 ptr = 0xb899 // 0x2b34 @0x0
0x2b34…2b42 lno = 0x12e8 // 0x2b36 @0x2
0x2b34…2b42 at0004 = ╱9d╱ EXEC ╱ // 0x2b38 @0x4
0x2b34…2b42 at0005 = ╱48╱H╱ // 0x2b39 @0x5
0x2b34…2b42 at0006 = ╱55╱U╱ // 0x2b3a @0x6
0x2b34…2b42 at0007 = ╱44╱D╱ // 0x2b3b @0x7
0x2b34…2b42 at0008 = ╱53╱S╱ // 0x2b3c @0x8
0x2b34…2b42 at0009 = ╱4b╱K╱ // 0x2b3d @0x9
0x2b34…2b42 at000a = ╱52╱R╱ // 0x2b3e @0xa
0x2b34…2b42 at000b = ╱49╱I╱ // 0x2b3f @0xb
0x2b34…2b42 at000c = ╱56╱V╱ // 0x2b40 @0xc
0x2b34…2b42 at000d = EOL // 0x2b41 @0xd
0x2b34…2b42 }
0x2b42…2b5c b8b3 4850 IF DTAL=KTAL1 AND SKRIV1=E THEN
0x2b42…2b5c LineComalBin {
0x2b42…2b5c ptr = 0xb8b3 // 0x2b42 @0x0
0x2b42…2b5c lno = 0x12f2 // 0x2b44 @0x2
0x2b42…2b5c at0004 = ╱9c╱ IF ╱ // 0x2b46 @0x4
0x2b42…2b5c at0005 = ╱44╱D╱ // 0x2b47 @0x5
0x2b42…2b5c at0006 = ╱54╱T╱ // 0x2b48 @0x6
0x2b42…2b5c at0007 = ╱41╱A╱ // 0x2b49 @0x7
0x2b42…2b5c at0008 = ╱4c╱L╱ // 0x2b4a @0x8
0x2b42…2b5c at0009 = ╱dc╱=╱ // 0x2b4b @0x9
0x2b42…2b5c at000a = ╱4b╱K╱ // 0x2b4c @0xa
0x2b42…2b5c at000b = ╱54╱T╱ // 0x2b4d @0xb
0x2b42…2b5c at000c = ╱41╱A╱ // 0x2b4e @0xc
0x2b42…2b5c at000d = ╱4c╱L╱ // 0x2b4f @0xd
0x2b42…2b5c at000e = ╱31╱1╱ // 0x2b50 @0xe
0x2b42…2b5c at000f = ╱da╱ AND ╱ // 0x2b51 @0xf
0x2b42…2b5c at0010 = ╱53╱S╱ // 0x2b52 @0x10
0x2b42…2b5c at0011 = ╱4b╱K╱ // 0x2b53 @0x11
0x2b42…2b5c at0012 = ╱52╱R╱ // 0x2b54 @0x12
0x2b42…2b5c at0013 = ╱49╱I╱ // 0x2b55 @0x13
0x2b42…2b5c at0014 = ╱56╱V╱ // 0x2b56 @0x14
0x2b42…2b5c at0015 = ╱31╱1╱ // 0x2b57 @0x15
0x2b42…2b5c at0016 = ╱dc╱=╱ // 0x2b58 @0x16
0x2b42…2b5c at0017 = ╱45╱E╱ // 0x2b59 @0x17
0x2b42…2b5c at0018 = ╱b6╱ THEN ╱ // 0x2b5a @0x18
0x2b42…2b5c at0019 = EOL // 0x2b5b @0x19
0x2b42…2b5c }
0x2b5c…2b65 b8bc 4855 PRINT " "
0x2b5c…2b65 LineComalBin {
0x2b5c…2b65 ptr = 0xb8bc // 0x2b5c @0x0
0x2b5c…2b65 lno = 0x12f7 // 0x2b5e @0x2
0x2b5c…2b65 at0004 = ╱92╱ PRINT ╱ // 0x2b60 @0x4
0x2b5c…2b65 at0005 = ╱22╱"╱ // 0x2b61 @0x5
0x2b5c…2b65 at0006 = ╱20╱…╱ // 0x2b62 @0x6
0x2b5c…2b65 at0007 = ╱22╱"╱ // 0x2b63 @0x7
0x2b5c…2b65 at0008 = EOL // 0x2b64 @0x8
0x2b5c…2b65 }
0x2b65…2b83 b8da 4860 EXEC LUDSKRIV(P,DATO,KSIDENR)
0x2b65…2b83 LineComalBin {
0x2b65…2b83 ptr = 0xb8da // 0x2b65 @0x0
0x2b65…2b83 lno = 0x12fc // 0x2b67 @0x2
0x2b65…2b83 at0004 = ╱9d╱ EXEC ╱ // 0x2b69 @0x4
0x2b65…2b83 at0005 = ╱4c╱L╱ // 0x2b6a @0x5
0x2b65…2b83 at0006 = ╱55╱U╱ // 0x2b6b @0x6
0x2b65…2b83 at0007 = ╱44╱D╱ // 0x2b6c @0x7
0x2b65…2b83 at0008 = ╱53╱S╱ // 0x2b6d @0x8
0x2b65…2b83 at0009 = ╱4b╱K╱ // 0x2b6e @0x9
0x2b65…2b83 at000a = ╱52╱R╱ // 0x2b6f @0xa
0x2b65…2b83 at000b = ╱49╱I╱ // 0x2b70 @0xb
0x2b65…2b83 at000c = ╱56╱V╱ // 0x2b71 @0xc
0x2b65…2b83 at000d = ╱ed╱(╱ // 0x2b72 @0xd
0x2b65…2b83 at000e = ╱50╱P╱ // 0x2b73 @0xe
0x2b65…2b83 at000f = ╱ec╱,╱ // 0x2b74 @0xf
0x2b65…2b83 at0010 = ╱44╱D╱ // 0x2b75 @0x10
0x2b65…2b83 at0011 = ╱41╱A╱ // 0x2b76 @0x11
0x2b65…2b83 at0012 = ╱54╱T╱ // 0x2b77 @0x12
0x2b65…2b83 at0013 = ╱4f╱O╱ // 0x2b78 @0x13
0x2b65…2b83 at0014 = ╱ec╱,╱ // 0x2b79 @0x14
0x2b65…2b83 at0015 = ╱4b╱K╱ // 0x2b7a @0x15
0x2b65…2b83 at0016 = ╱53╱S╱ // 0x2b7b @0x16
0x2b65…2b83 at0017 = ╱49╱I╱ // 0x2b7c @0x17
0x2b65…2b83 at0018 = ╱44╱D╱ // 0x2b7d @0x18
0x2b65…2b83 at0019 = ╱45╱E╱ // 0x2b7e @0x19
0x2b65…2b83 at001a = ╱4e╱N╱ // 0x2b7f @0x1a
0x2b65…2b83 at001b = ╱52╱R╱ // 0x2b80 @0x1b
0x2b65…2b83 at001c = ╱ee╱)╱ // 0x2b81 @0x1c
0x2b65…2b83 at001d = EOL // 0x2b82 @0x1d
0x2b65…2b83 }
0x2b83…2b8c b8e3 4870 PRINT " "
0x2b83…2b8c LineComalBin {
0x2b83…2b8c ptr = 0xb8e3 // 0x2b83 @0x0
0x2b83…2b8c lno = 0x1306 // 0x2b85 @0x2
0x2b83…2b8c at0004 = ╱92╱ PRINT ╱ // 0x2b87 @0x4
0x2b83…2b8c at0005 = ╱22╱"╱ // 0x2b88 @0x5
0x2b83…2b8c at0006 = ╱20╱…╱ // 0x2b89 @0x6
0x2b83…2b8c at0007 = ╱22╱"╱ // 0x2b8a @0x7
0x2b83…2b8c at0008 = EOL // 0x2b8b @0x8
0x2b83…2b8c }
0x2b8c…2b95 b8ec 4875 PRINT " "
0x2b8c…2b95 LineComalBin {
0x2b8c…2b95 ptr = 0xb8ec // 0x2b8c @0x0
0x2b8c…2b95 lno = 0x130b // 0x2b8e @0x2
0x2b8c…2b95 at0004 = ╱92╱ PRINT ╱ // 0x2b90 @0x4
0x2b8c…2b95 at0005 = ╱22╱"╱ // 0x2b91 @0x5
0x2b8c…2b95 at0006 = ╱20╱…╱ // 0x2b92 @0x6
0x2b8c…2b95 at0007 = ╱22╱"╱ // 0x2b93 @0x7
0x2b8c…2b95 at0008 = EOL // 0x2b94 @0x8
0x2b8c…2b95 }
0x2b95…2b9b b8f2 4880 ELSE
0x2b95…2b9b LineComalBin {
0x2b95…2b9b ptr = 0xb8f2 // 0x2b95 @0x0
0x2b95…2b9b lno = 0x1310 // 0x2b97 @0x2
0x2b95…2b9b at0004 = ╱9a╱ ELSE ╱ // 0x2b99 @0x4
0x2b95…2b9b at0005 = EOL // 0x2b9a @0x5
0x2b95…2b9b }
0x2b9b…2ba6 b8fd 4890 KONT=P
0x2b9b…2ba6 LineComalBin {
0x2b9b…2ba6 ptr = 0xb8fd // 0x2b9b @0x0
0x2b9b…2ba6 lno = 0x131a // 0x2b9d @0x2
0x2b9b…2ba6 at0004 = ╱4b╱K╱ // 0x2b9f @0x4
0x2b9b…2ba6 at0005 = ╱4f╱O╱ // 0x2ba0 @0x5
0x2b9b…2ba6 at0006 = ╱4e╱N╱ // 0x2ba1 @0x6
0x2b9b…2ba6 at0007 = ╱54╱T╱ // 0x2ba2 @0x7
0x2b9b…2ba6 at0008 = ╱dc╱=╱ // 0x2ba3 @0x8
0x2b9b…2ba6 at0009 = ╱50╱P╱ // 0x2ba4 @0x9
0x2b9b…2ba6 at000a = EOL // 0x2ba5 @0xa
0x2b9b…2ba6 }
0x2ba6…2bb5 b90c 4900 EXEC HSUDSKRIV
0x2ba6…2bb5 LineComalBin {
0x2ba6…2bb5 ptr = 0xb90c // 0x2ba6 @0x0
0x2ba6…2bb5 lno = 0x1324 // 0x2ba8 @0x2
0x2ba6…2bb5 at0004 = ╱9d╱ EXEC ╱ // 0x2baa @0x4
0x2ba6…2bb5 at0005 = ╱48╱H╱ // 0x2bab @0x5
0x2ba6…2bb5 at0006 = ╱53╱S╱ // 0x2bac @0x6
0x2ba6…2bb5 at0007 = ╱55╱U╱ // 0x2bad @0x7
0x2ba6…2bb5 at0008 = ╱44╱D╱ // 0x2bae @0x8
0x2ba6…2bb5 at0009 = ╱53╱S╱ // 0x2baf @0x9
0x2ba6…2bb5 at000a = ╱4b╱K╱ // 0x2bb0 @0xa
0x2ba6…2bb5 at000b = ╱52╱R╱ // 0x2bb1 @0xb
0x2ba6…2bb5 at000c = ╱49╱I╱ // 0x2bb2 @0xc
0x2ba6…2bb5 at000d = ╱56╱V╱ // 0x2bb3 @0xd
0x2ba6…2bb5 at000e = EOL // 0x2bb4 @0xe
0x2ba6…2bb5 }
0x2bb5…2bbb b912 4910 ENDIF
0x2bb5…2bbb LineComalBin {
0x2bb5…2bbb ptr = 0xb912 // 0x2bb5 @0x0
0x2bb5…2bbb lno = 0x132e // 0x2bb7 @0x2
0x2bb5…2bbb at0004 = ╱9b╱ ENDIF ╱ // 0x2bb9 @0x4
0x2bb5…2bbb at0005 = EOL // 0x2bba @0x5
0x2bb5…2bbb }
0x2bbb…2be8 b93f 4920 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
0x2bbb…2be8 LineComalBin {
0x2bbb…2be8 ptr = 0xb93f // 0x2bbb @0x0
0x2bbb…2be8 lno = 0x1338 // 0x2bbd @0x2
0x2bbb…2be8 at0004 = ╱9d╱ EXEC ╱ // 0x2bbf @0x4
0x2bbb…2be8 at0005 = ╱50╱P╱ // 0x2bc0 @0x5
0x2bbb…2be8 at0006 = ╱4f╱O╱ // 0x2bc1 @0x6
0x2bbb…2be8 at0007 = ╱53╱S╱ // 0x2bc2 @0x7
0x2bbb…2be8 at0008 = ╱54╱T╱ // 0x2bc3 @0x8
0x2bbb…2be8 at0009 = ╱45╱E╱ // 0x2bc4 @0x9
0x2bbb…2be8 at000a = ╱52╱R╱ // 0x2bc5 @0xa
0x2bbb…2be8 at000b = ╱ed╱(╱ // 0x2bc6 @0xb
0x2bbb…2be8 at000c = ╱4b╱K╱ // 0x2bc7 @0xc
0x2bbb…2be8 at000d = ╱36╱6╱ // 0x2bc8 @0xd
0x2bbb…2be8 at000e = ╱31╱1╱ // 0x2bc9 @0xe
0x2bbb…2be8 at000f = ╱ef╱$╱ // 0x2bca @0xf
0x2bbb…2be8 at0010 = ╱ec╱,╱ // 0x2bcb @0x10
0x2bbb…2be8 at0011 = ╱50╱P╱ // 0x2bcc @0x11
0x2bbb…2be8 at0012 = ╱ec╱,╱ // 0x2bcd @0x12
0x2bbb…2be8 at0013 = ╱54╱T╱ // 0x2bce @0x13
0x2bbb…2be8 at0014 = ╱ec╱,╱ // 0x2bcf @0x14
0x2bbb…2be8 at0015 = ╱4d╱M╱ // 0x2bd0 @0x15
0x2bbb…2be8 at0016 = ╱50╱P╱ // 0x2bd1 @0x16
0x2bbb…2be8 at0017 = ╱4f╱O╱ // 0x2bd2 @0x17
0x2bbb…2be8 at0018 = ╱53╱S╱ // 0x2bd3 @0x18
0x2bbb…2be8 at0019 = ╱54╱T╱ // 0x2bd4 @0x19
0x2bbb…2be8 at001a = ╱41╱A╱ // 0x2bd5 @0x1a
0x2bbb…2be8 at001b = ╱4e╱N╱ // 0x2bd6 @0x1b
0x2bbb…2be8 at001c = ╱54╱T╱ // 0x2bd7 @0x1c
0x2bbb…2be8 at001d = ╱41╱A╱ // 0x2bd8 @0x1d
0x2bbb…2be8 at001e = ╱4c╱L╱ // 0x2bd9 @0x1e
0x2bbb…2be8 at001f = ╱38╱8╱ // 0x2bda @0x1f
0x2bbb…2be8 at0020 = ╱ec╱,╱ // 0x2bdb @0x20
0x2bbb…2be8 at0021 = ╱53╱S╱ // 0x2bdc @0x21
0x2bbb…2be8 at0022 = ╱4b╱K╱ // 0x2bdd @0x22
0x2bbb…2be8 at0023 = ╱52╱R╱ // 0x2bde @0x23
0x2bbb…2be8 at0024 = ╱49╱I╱ // 0x2bdf @0x24
0x2bbb…2be8 at0025 = ╱56╱V╱ // 0x2be0 @0x25
0x2bbb…2be8 at0026 = ╱ec╱,╱ // 0x2be1 @0x26
0x2bbb…2be8 at0027 = ╱53╱S╱ // 0x2be2 @0x27
0x2bbb…2be8 at0028 = ╱55╱U╱ // 0x2be3 @0x28
0x2bbb…2be8 at0029 = ╱4d╱M╱ // 0x2be4 @0x29
0x2bbb…2be8 at002a = ╱ef╱$╱ // 0x2be5 @0x2a
0x2bbb…2be8 at002b = ╱ee╱)╱ // 0x2be6 @0x2b
0x2bbb…2be8 at002c = EOL // 0x2be7 @0x2c
0x2bbb…2be8 }
0x2be8…2bf5 b94c 4930 CASE KTAL1 OF
0x2be8…2bf5 LineComalBin {
0x2be8…2bf5 ptr = 0xb94c // 0x2be8 @0x0
0x2be8…2bf5 lno = 0x1342 // 0x2bea @0x2
0x2be8…2bf5 at0004 = ╱a201╱ CASE ╱ // 0x2bec @0x4
0x2be8…2bf5 at0006 = ╱4b╱K╱ // 0x2bee @0x6
0x2be8…2bf5 at0007 = ╱54╱T╱ // 0x2bef @0x7
0x2be8…2bf5 at0008 = ╱41╱A╱ // 0x2bf0 @0x8
0x2be8…2bf5 at0009 = ╱4c╱L╱ // 0x2bf1 @0x9
0x2be8…2bf5 at000a = ╱31╱1╱ // 0x2bf2 @0xa
0x2be8…2bf5 at000b = ╱ba╱ OF ╱ // 0x2bf3 @0xb
0x2be8…2bf5 at000c = EOL // 0x2bf4 @0xc
0x2be8…2bf5 }
0x2bf5…2c42 b999 4940 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE)
0x2bf5…2c42 LineComalBin {
0x2bf5…2c42 ptr = 0xb999 // 0x2bf5 @0x0
0x2bf5…2c42 lno = 0x134c // 0x2bf7 @0x2
0x2bf5…2c42 at0004 = ╱9d╱ EXEC ╱ // 0x2bf9 @0x4
0x2bf5…2c42 at0005 = ╱42╱B╱ // 0x2bfa @0x5
0x2bf5…2c42 at0006 = ╱55╱U╱ // 0x2bfb @0x6
0x2bf5…2c42 at0007 = ╱44╱D╱ // 0x2bfc @0x7
0x2bf5…2c42 at0008 = ╱53╱S╱ // 0x2bfd @0x8
0x2bf5…2c42 at0009 = ╱4b╱K╱ // 0x2bfe @0x9
0x2bf5…2c42 at000a = ╱52╱R╱ // 0x2bff @0xa
0x2bf5…2c42 at000b = ╱49╱I╱ // 0x2c00 @0xb
0x2bf5…2c42 at000c = ╱56╱V╱ // 0x2c01 @0xc
0x2bf5…2c42 at000d = ╱ed╱(╱ // 0x2c02 @0xd
0x2bf5…2c42 at000e = ╱54╱T╱ // 0x2c03 @0xe
0x2bf5…2c42 at000f = ╱41╱A╱ // 0x2c04 @0xf
0x2bf5…2c42 at0010 = ╱4c╱L╱ // 0x2c05 @0x10
0x2bf5…2c42 at0011 = ╱34╱4╱ // 0x2c06 @0x11
0x2bf5…2c42 at0012 = ╱ef╱$╱ // 0x2c07 @0x12
0x2bf5…2c42 at0013 = ╱ec╱,╱ // 0x2c08 @0x13
0x2bf5…2c42 at0014 = ╱33╱3╱ // 0x2c09 @0x14
0x2bf5…2c42 at0015 = ╱fe0000c002╱ // 0x2c0a @0x15
0x2bf5…2c42 at001a = ╱ec╱,╱ // 0x2c0f @0x1a
0x2bf5…2c42 at001b = ╱53╱S╱ // 0x2c10 @0x1b
0x2bf5…2c42 at001c = ╱55╱U╱ // 0x2c11 @0x1c
0x2bf5…2c42 at001d = ╱4d╱M╱ // 0x2c12 @0x1d
0x2bf5…2c42 at001e = ╱ef╱$╱ // 0x2c13 @0x1e
0x2bf5…2c42 at001f = ╱ec╱,╱ // 0x2c14 @0x1f
0x2bf5…2c42 at0020 = ╱46╱F╱ // 0x2c15 @0x20
0x2bf5…2c42 at0021 = ╱4d╱M╱ // 0x2c16 @0x21
0x2bf5…2c42 at0022 = ╱44╱D╱ // 0x2c17 @0x22
0x2bf5…2c42 at0023 = ╱45╱E╱ // 0x2c18 @0x23
0x2bf5…2c42 at0024 = ╱42╱B╱ // 0x2c19 @0x24
0x2bf5…2c42 at0025 = ╱45╱E╱ // 0x2c1a @0x25
0x2bf5…2c42 at0026 = ╱54╱T╱ // 0x2c1b @0x26
0x2bf5…2c42 at0027 = ╱ef╱$╱ // 0x2c1c @0x27
0x2bf5…2c42 at0028 = ╱ec╱,╱ // 0x2c1d @0x28
0x2bf5…2c42 at0029 = ╱46╱F╱ // 0x2c1e @0x29
0x2bf5…2c42 at002a = ╱4d╱M╱ // 0x2c1f @0x2a
0x2bf5…2c42 at002b = ╱4b╱K╱ // 0x2c20 @0x2b
0x2bf5…2c42 at002c = ╱52╱R╱ // 0x2c21 @0x2c
0x2bf5…2c42 at002d = ╱45╱E╱ // 0x2c22 @0x2d
0x2bf5…2c42 at002e = ╱44╱D╱ // 0x2c23 @0x2e
0x2bf5…2c42 at002f = ╱49╱I╱ // 0x2c24 @0x2f
0x2bf5…2c42 at0030 = ╱54╱T╱ // 0x2c25 @0x30
0x2bf5…2c42 at0031 = ╱ef╱$╱ // 0x2c26 @0x31
0x2bf5…2c42 at0032 = ╱ec╱,╱ // 0x2c27 @0x32
0x2bf5…2c42 at0033 = ╱46╱F╱ // 0x2c28 @0x33
0x2bf5…2c42 at0034 = ╱5d╱Å╱ // 0x2c29 @0x34
0x2bf5…2c42 at0035 = ╱44╱D╱ // 0x2c2a @0x35
0x2bf5…2c42 at0036 = ╱45╱E╱ // 0x2c2b @0x36
0x2bf5…2c42 at0037 = ╱42╱B╱ // 0x2c2c @0x37
0x2bf5…2c42 at0038 = ╱45╱E╱ // 0x2c2d @0x38
0x2bf5…2c42 at0039 = ╱54╱T╱ // 0x2c2e @0x39
0x2bf5…2c42 at003a = ╱ef╱$╱ // 0x2c2f @0x3a
0x2bf5…2c42 at003b = ╱ec╱,╱ // 0x2c30 @0x3b
0x2bf5…2c42 at003c = ╱46╱F╱ // 0x2c31 @0x3c
0x2bf5…2c42 at003d = ╱5d╱Å╱ // 0x2c32 @0x3d
0x2bf5…2c42 at003e = ╱4b╱K╱ // 0x2c33 @0x3e
0x2bf5…2c42 at003f = ╱52╱R╱ // 0x2c34 @0x3f
0x2bf5…2c42 at0040 = ╱45╱E╱ // 0x2c35 @0x40
0x2bf5…2c42 at0041 = ╱44╱D╱ // 0x2c36 @0x41
0x2bf5…2c42 at0042 = ╱49╱I╱ // 0x2c37 @0x42
0x2bf5…2c42 at0043 = ╱54╱T╱ // 0x2c38 @0x43
0x2bf5…2c42 at0044 = ╱ef╱$╱ // 0x2c39 @0x44
0x2bf5…2c42 at0045 = ╱ec╱,╱ // 0x2c3a @0x45
0x2bf5…2c42 at0046 = ╱4c╱L╱ // 0x2c3b @0x46
0x2bf5…2c42 at0047 = ╱49╱I╱ // 0x2c3c @0x47
0x2bf5…2c42 at0048 = ╱4e╱N╱ // 0x2c3d @0x48
0x2bf5…2c42 at0049 = ╱49╱I╱ // 0x2c3e @0x49
0x2bf5…2c42 at004a = ╱45╱E╱ // 0x2c3f @0x4a
0x2bf5…2c42 at004b = ╱ee╱)╱ // 0x2c40 @0x4b
0x2bf5…2c42 at004c = EOL // 0x2c41 @0x4c
0x2bf5…2c42 }
0x2c42…2c4d b9a4 4950 WHEN DTAL
0x2c42…2c4d LineComalBin {
0x2c42…2c4d ptr = 0xb9a4 // 0x2c42 @0x0
0x2c42…2c4d lno = 0x1356 // 0x2c44 @0x2
0x2c42…2c4d at0004 = ╱a301╱ WHEN ╱ // 0x2c46 @0x4
0x2c42…2c4d at0006 = ╱44╱D╱ // 0x2c48 @0x6
0x2c42…2c4d at0007 = ╱54╱T╱ // 0x2c49 @0x7
0x2c42…2c4d at0008 = ╱41╱A╱ // 0x2c4a @0x8
0x2c42…2c4d at0009 = ╱4c╱L╱ // 0x2c4b @0x9
0x2c42…2c4d at000a = EOL // 0x2c4c @0xa
0x2c42…2c4d }
0x2c4d…2c9a b9f1 4960 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE)
0x2c4d…2c9a LineComalBin {
0x2c4d…2c9a ptr = 0xb9f1 // 0x2c4d @0x0
0x2c4d…2c9a lno = 0x1360 // 0x2c4f @0x2
0x2c4d…2c9a at0004 = ╱9d╱ EXEC ╱ // 0x2c51 @0x4
0x2c4d…2c9a at0005 = ╱42╱B╱ // 0x2c52 @0x5
0x2c4d…2c9a at0006 = ╱55╱U╱ // 0x2c53 @0x6
0x2c4d…2c9a at0007 = ╱44╱D╱ // 0x2c54 @0x7
0x2c4d…2c9a at0008 = ╱53╱S╱ // 0x2c55 @0x8
0x2c4d…2c9a at0009 = ╱4b╱K╱ // 0x2c56 @0x9
0x2c4d…2c9a at000a = ╱52╱R╱ // 0x2c57 @0xa
0x2c4d…2c9a at000b = ╱49╱I╱ // 0x2c58 @0xb
0x2c4d…2c9a at000c = ╱56╱V╱ // 0x2c59 @0xc
0x2c4d…2c9a at000d = ╱ed╱(╱ // 0x2c5a @0xd
0x2c4d…2c9a at000e = ╱4d╱M╱ // 0x2c5b @0xe
0x2c4d…2c9a at000f = ╱44╱D╱ // 0x2c5c @0xf
0x2c4d…2c9a at0010 = ╱4e╱N╱ // 0x2c5d @0x10
0x2c4d…2c9a at0011 = ╱4b╱K╱ // 0x2c5e @0x11
0x2c4d…2c9a at0012 = ╱5c╱Ø╱ // 0x2c5f @0x12
0x2c4d…2c9a at0013 = ╱42╱B╱ // 0x2c60 @0x13
0x2c4d…2c9a at0014 = ╱ef╱$╱ // 0x2c61 @0x14
0x2c4d…2c9a at0015 = ╱ec╱,╱ // 0x2c62 @0x15
0x2c4d…2c9a at0016 = ╱30╱0╱ // 0x2c63 @0x16
0x2c4d…2c9a at0017 = ╱fe00000000╱ // 0x2c64 @0x17
0x2c4d…2c9a at001c = ╱ec╱,╱ // 0x2c69 @0x1c
0x2c4d…2c9a at001d = ╱53╱S╱ // 0x2c6a @0x1d
0x2c4d…2c9a at001e = ╱55╱U╱ // 0x2c6b @0x1e
0x2c4d…2c9a at001f = ╱4d╱M╱ // 0x2c6c @0x1f
0x2c4d…2c9a at0020 = ╱ef╱$╱ // 0x2c6d @0x20
0x2c4d…2c9a at0021 = ╱ec╱,╱ // 0x2c6e @0x21
0x2c4d…2c9a at0022 = ╱44╱D╱ // 0x2c6f @0x22
0x2c4d…2c9a at0023 = ╱53╱S╱ // 0x2c70 @0x23
0x2c4d…2c9a at0024 = ╱41╱A╱ // 0x2c71 @0x24
0x2c4d…2c9a at0025 = ╱4c╱L╱ // 0x2c72 @0x25
0x2c4d…2c9a at0026 = ╱44╱D╱ // 0x2c73 @0x26
0x2c4d…2c9a at0027 = ╱4f╱O╱ // 0x2c74 @0x27
0x2c4d…2c9a at0028 = ╱31╱1╱ // 0x2c75 @0x28
0x2c4d…2c9a at0029 = ╱ef╱$╱ // 0x2c76 @0x29
0x2c4d…2c9a at002a = ╱ec╱,╱ // 0x2c77 @0x2a
0x2c4d…2c9a at002b = ╱44╱D╱ // 0x2c78 @0x2b
0x2c4d…2c9a at002c = ╱53╱S╱ // 0x2c79 @0x2c
0x2c4d…2c9a at002d = ╱41╱A╱ // 0x2c7a @0x2d
0x2c4d…2c9a at002e = ╱4c╱L╱ // 0x2c7b @0x2e
0x2c4d…2c9a at002f = ╱44╱D╱ // 0x2c7c @0x2f
0x2c4d…2c9a at0030 = ╱4f╱O╱ // 0x2c7d @0x30
0x2c4d…2c9a at0031 = ╱32╱2╱ // 0x2c7e @0x31
0x2c4d…2c9a at0032 = ╱ef╱$╱ // 0x2c7f @0x32
0x2c4d…2c9a at0033 = ╱ec╱,╱ // 0x2c80 @0x33
0x2c4d…2c9a at0034 = ╱44╱D╱ // 0x2c81 @0x34
0x2c4d…2c9a at0035 = ╱53╱S╱ // 0x2c82 @0x35
0x2c4d…2c9a at0036 = ╱41╱A╱ // 0x2c83 @0x36
0x2c4d…2c9a at0037 = ╱4c╱L╱ // 0x2c84 @0x37
0x2c4d…2c9a at0038 = ╱44╱D╱ // 0x2c85 @0x38
0x2c4d…2c9a at0039 = ╱4f╱O╱ // 0x2c86 @0x39
0x2c4d…2c9a at003a = ╱33╱3╱ // 0x2c87 @0x3a
0x2c4d…2c9a at003b = ╱ef╱$╱ // 0x2c88 @0x3b
0x2c4d…2c9a at003c = ╱ec╱,╱ // 0x2c89 @0x3c
0x2c4d…2c9a at003d = ╱44╱D╱ // 0x2c8a @0x3d
0x2c4d…2c9a at003e = ╱53╱S╱ // 0x2c8b @0x3e
0x2c4d…2c9a at003f = ╱41╱A╱ // 0x2c8c @0x3f
0x2c4d…2c9a at0040 = ╱4c╱L╱ // 0x2c8d @0x40
0x2c4d…2c9a at0041 = ╱44╱D╱ // 0x2c8e @0x41
0x2c4d…2c9a at0042 = ╱4f╱O╱ // 0x2c8f @0x42
0x2c4d…2c9a at0043 = ╱34╱4╱ // 0x2c90 @0x43
0x2c4d…2c9a at0044 = ╱ef╱$╱ // 0x2c91 @0x44
0x2c4d…2c9a at0045 = ╱ec╱,╱ // 0x2c92 @0x45
0x2c4d…2c9a at0046 = ╱4c╱L╱ // 0x2c93 @0x46
0x2c4d…2c9a at0047 = ╱49╱I╱ // 0x2c94 @0x47
0x2c4d…2c9a at0048 = ╱4e╱N╱ // 0x2c95 @0x48
0x2c4d…2c9a at0049 = ╱49╱I╱ // 0x2c96 @0x49
0x2c4d…2c9a at004a = ╱45╱E╱ // 0x2c97 @0x4a
0x2c4d…2c9a at004b = ╱ee╱)╱ // 0x2c98 @0x4b
0x2c4d…2c9a at004c = EOL // 0x2c99 @0x4c
0x2c4d…2c9a }
0x2c9a…2ca6 b9fd 4970 WHEN KRTAL
0x2c9a…2ca6 LineComalBin {
0x2c9a…2ca6 ptr = 0xb9fd // 0x2c9a @0x0
0x2c9a…2ca6 lno = 0x136a // 0x2c9c @0x2
0x2c9a…2ca6 at0004 = ╱a301╱ WHEN ╱ // 0x2c9e @0x4
0x2c9a…2ca6 at0006 = ╱4b╱K╱ // 0x2ca0 @0x6
0x2c9a…2ca6 at0007 = ╱52╱R╱ // 0x2ca1 @0x7
0x2c9a…2ca6 at0008 = ╱54╱T╱ // 0x2ca2 @0x8
0x2c9a…2ca6 at0009 = ╱41╱A╱ // 0x2ca3 @0x9
0x2c9a…2ca6 at000a = ╱4c╱L╱ // 0x2ca4 @0xa
0x2c9a…2ca6 at000b = EOL // 0x2ca5 @0xb
0x2c9a…2ca6 }
0x2ca6…2ceb ba42 4980 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE)
0x2ca6…2ceb LineComalBin {
0x2ca6…2ceb ptr = 0xba42 // 0x2ca6 @0x0
0x2ca6…2ceb lno = 0x1374 // 0x2ca8 @0x2
0x2ca6…2ceb at0004 = ╱9d╱ EXEC ╱ // 0x2caa @0x4
0x2ca6…2ceb at0005 = ╱42╱B╱ // 0x2cab @0x5
0x2ca6…2ceb at0006 = ╱55╱U╱ // 0x2cac @0x6
0x2ca6…2ceb at0007 = ╱44╱D╱ // 0x2cad @0x7
0x2ca6…2ceb at0008 = ╱53╱S╱ // 0x2cae @0x8
0x2ca6…2ceb at0009 = ╱4b╱K╱ // 0x2caf @0x9
0x2ca6…2ceb at000a = ╱52╱R╱ // 0x2cb0 @0xa
0x2ca6…2ceb at000b = ╱49╱I╱ // 0x2cb1 @0xb
0x2ca6…2ceb at000c = ╱56╱V╱ // 0x2cb2 @0xc
0x2ca6…2ceb at000d = ╱ed╱(╱ // 0x2cb3 @0xd
0x2ca6…2ceb at000e = ╱54╱T╱ // 0x2cb4 @0xe
0x2ca6…2ceb at000f = ╱41╱A╱ // 0x2cb5 @0xf
0x2ca6…2ceb at0010 = ╱4c╱L╱ // 0x2cb6 @0x10
0x2ca6…2ceb at0011 = ╱34╱4╱ // 0x2cb7 @0x11
0x2ca6…2ceb at0012 = ╱ef╱$╱ // 0x2cb8 @0x12
0x2ca6…2ceb at0013 = ╱ec╱,╱ // 0x2cb9 @0x13
0x2ca6…2ceb at0014 = ╱34╱4╱ // 0x2cba @0x14
0x2ca6…2ceb at0015 = ╱fe00008003╱ // 0x2cbb @0x15
0x2ca6…2ceb at001a = ╱ec╱,╱ // 0x2cc0 @0x1a
0x2ca6…2ceb at001b = ╱53╱S╱ // 0x2cc1 @0x1b
0x2ca6…2ceb at001c = ╱55╱U╱ // 0x2cc2 @0x1c
0x2ca6…2ceb at001d = ╱4d╱M╱ // 0x2cc3 @0x1d
0x2ca6…2ceb at001e = ╱ef╱$╱ // 0x2cc4 @0x1e
0x2ca6…2ceb at001f = ╱ec╱,╱ // 0x2cc5 @0x1f
0x2ca6…2ceb at0020 = ╱4b╱K╱ // 0x2cc6 @0x20
0x2ca6…2ceb at0021 = ╱53╱S╱ // 0x2cc7 @0x21
0x2ca6…2ceb at0022 = ╱41╱A╱ // 0x2cc8 @0x22
0x2ca6…2ceb at0023 = ╱4c╱L╱ // 0x2cc9 @0x23
0x2ca6…2ceb at0024 = ╱44╱D╱ // 0x2cca @0x24
0x2ca6…2ceb at0025 = ╱4f╱O╱ // 0x2ccb @0x25
0x2ca6…2ceb at0026 = ╱31╱1╱ // 0x2ccc @0x26
0x2ca6…2ceb at0027 = ╱ef╱$╱ // 0x2ccd @0x27
0x2ca6…2ceb at0028 = ╱ec╱,╱ // 0x2cce @0x28
0x2ca6…2ceb at0029 = ╱54╱T╱ // 0x2ccf @0x29
0x2ca6…2ceb at002a = ╱41╱A╱ // 0x2cd0 @0x2a
0x2ca6…2ceb at002b = ╱4c╱L╱ // 0x2cd1 @0x2b
0x2ca6…2ceb at002c = ╱34╱4╱ // 0x2cd2 @0x2c
0x2ca6…2ceb at002d = ╱ef╱$╱ // 0x2cd3 @0x2d
0x2ca6…2ceb at002e = ╱ec╱,╱ // 0x2cd4 @0x2e
0x2ca6…2ceb at002f = ╱54╱T╱ // 0x2cd5 @0x2f
0x2ca6…2ceb at0030 = ╱41╱A╱ // 0x2cd6 @0x30
0x2ca6…2ceb at0031 = ╱4c╱L╱ // 0x2cd7 @0x31
0x2ca6…2ceb at0032 = ╱34╱4╱ // 0x2cd8 @0x32
0x2ca6…2ceb at0033 = ╱ef╱$╱ // 0x2cd9 @0x33
0x2ca6…2ceb at0034 = ╱ec╱,╱ // 0x2cda @0x34
0x2ca6…2ceb at0035 = ╱4b╱K╱ // 0x2cdb @0x35
0x2ca6…2ceb at0036 = ╱53╱S╱ // 0x2cdc @0x36
0x2ca6…2ceb at0037 = ╱41╱A╱ // 0x2cdd @0x37
0x2ca6…2ceb at0038 = ╱4c╱L╱ // 0x2cde @0x38
0x2ca6…2ceb at0039 = ╱44╱D╱ // 0x2cdf @0x39
0x2ca6…2ceb at003a = ╱4f╱O╱ // 0x2ce0 @0x3a
0x2ca6…2ceb at003b = ╱32╱2╱ // 0x2ce1 @0x3b
0x2ca6…2ceb at003c = ╱ef╱$╱ // 0x2ce2 @0x3c
0x2ca6…2ceb at003d = ╱ec╱,╱ // 0x2ce3 @0x3d
0x2ca6…2ceb at003e = ╱4c╱L╱ // 0x2ce4 @0x3e
0x2ca6…2ceb at003f = ╱49╱I╱ // 0x2ce5 @0x3f
0x2ca6…2ceb at0040 = ╱4e╱N╱ // 0x2ce6 @0x40
0x2ca6…2ceb at0041 = ╱49╱I╱ // 0x2ce7 @0x41
0x2ca6…2ceb at0042 = ╱45╱E╱ // 0x2ce8 @0x42
0x2ca6…2ceb at0043 = ╱ee╱)╱ // 0x2ce9 @0x43
0x2ca6…2ceb at0044 = EOL // 0x2cea @0x44
0x2ca6…2ceb }
0x2ceb…2cf1 ba48 4990 ENDCASE
0x2ceb…2cf1 LineComalBin {
0x2ceb…2cf1 ptr = 0xba48 // 0x2ceb @0x0
0x2ceb…2cf1 lno = 0x137e // 0x2ced @0x2
0x2ceb…2cf1 at0004 = ╱a4╱ ENDCASE ╱ // 0x2cef @0x4
0x2ceb…2cf1 at0005 = EOL // 0x2cf0 @0x5
0x2ceb…2cf1 }
0x2cf1…2cfa ba51 5000 T=T6
0x2cf1…2cfa LineComalBin {
0x2cf1…2cfa ptr = 0xba51 // 0x2cf1 @0x0
0x2cf1…2cfa lno = 0x1388 // 0x2cf3 @0x2
0x2cf1…2cfa at0004 = ╱54╱T╱ // 0x2cf5 @0x4
0x2cf1…2cfa at0005 = ╱dc╱=╱ // 0x2cf6 @0x5
0x2cf1…2cfa at0006 = ╱54╱T╱ // 0x2cf7 @0x6
0x2cf1…2cfa at0007 = ╱36╱6╱ // 0x2cf8 @0x7
0x2cf1…2cfa at0008 = EOL // 0x2cf9 @0x8
0x2cf1…2cfa }
0x2cfa…2d1b ba72 5010 UNTIL P=100000 OR T=>MPOSTANTAL8
0x2cfa…2d1b LineComalBin {
0x2cfa…2d1b ptr = 0xba72 // 0x2cfa @0x0
0x2cfa…2d1b lno = 0x1392 // 0x2cfc @0x2
0x2cfa…2d1b at0004 = ╱98╱ UNTIL ╱ // 0x2cfe @0x4
0x2cfa…2d1b at0005 = ╱50╱P╱ // 0x2cff @0x5
0x2cfa…2d1b at0006 = ╱dc╱=╱ // 0x2d00 @0x6
0x2cfa…2d1b at0007 = ╱31╱1╱ // 0x2d01 @0x7
0x2cfa…2d1b at0008 = ╱30╱0╱ // 0x2d02 @0x8
0x2cfa…2d1b at0009 = ╱30╱0╱ // 0x2d03 @0x9
0x2cfa…2d1b at000a = ╱30╱0╱ // 0x2d04 @0xa
0x2cfa…2d1b at000b = ╱30╱0╱ // 0x2d05 @0xb
0x2cfa…2d1b at000c = ╱30╱0╱ // 0x2d06 @0xc
0x2cfa…2d1b at000d = ╱fe0050c311╱ // 0x2d07 @0xd
0x2cfa…2d1b at0012 = ╱db╱ OR ╱ // 0x2d0c @0x12
0x2cfa…2d1b at0013 = ╱54╱T╱ // 0x2d0d @0x13
0x2cfa…2d1b at0014 = ╱e0╱=>╱ // 0x2d0e @0x14
0x2cfa…2d1b at0015 = ╱4d╱M╱ // 0x2d0f @0x15
0x2cfa…2d1b at0016 = ╱50╱P╱ // 0x2d10 @0x16
0x2cfa…2d1b at0017 = ╱4f╱O╱ // 0x2d11 @0x17
0x2cfa…2d1b at0018 = ╱53╱S╱ // 0x2d12 @0x18
0x2cfa…2d1b at0019 = ╱54╱T╱ // 0x2d13 @0x19
0x2cfa…2d1b at001a = ╱41╱A╱ // 0x2d14 @0x1a
0x2cfa…2d1b at001b = ╱4e╱N╱ // 0x2d15 @0x1b
0x2cfa…2d1b at001c = ╱54╱T╱ // 0x2d16 @0x1c
0x2cfa…2d1b at001d = ╱41╱A╱ // 0x2d17 @0x1d
0x2cfa…2d1b at001e = ╱4c╱L╱ // 0x2d18 @0x1e
0x2cfa…2d1b at001f = ╱38╱8╱ // 0x2d19 @0x1f
0x2cfa…2d1b at0020 = EOL // 0x2d1a @0x20
0x2cfa…2d1b }
0x2d1b…2d21 ba78 5020 ENDIF
0x2d1b…2d21 LineComalBin {
0x2d1b…2d21 ptr = 0xba78 // 0x2d1b @0x0
0x2d1b…2d21 lno = 0x139c // 0x2d1d @0x2
0x2d1b…2d21 at0004 = ╱9b╱ ENDIF ╱ // 0x2d1f @0x4
0x2d1b…2d21 at0005 = EOL // 0x2d20 @0x5
0x2d1b…2d21 }
0x2d21…2d29 ba80 5030 P=B
0x2d21…2d29 LineComalBin {
0x2d21…2d29 ptr = 0xba80 // 0x2d21 @0x0
0x2d21…2d29 lno = 0x13a6 // 0x2d23 @0x2
0x2d21…2d29 at0004 = ╱50╱P╱ // 0x2d25 @0x4
0x2d21…2d29 at0005 = ╱dc╱=╱ // 0x2d26 @0x5
0x2d21…2d29 at0006 = ╱42╱B╱ // 0x2d27 @0x6
0x2d21…2d29 at0007 = EOL // 0x2d28 @0x7
0x2d21…2d29 }
0x2d29…2d2f ba86 5040 ENDPROC
0x2d29…2d2f LineComalBin {
0x2d29…2d2f ptr = 0xba86 // 0x2d29 @0x0
0x2d29…2d2f lno = 0x13b0 // 0x2d2b @0x2
0x2d29…2d2f at0004 = ╱9f╱ ENDPROC ╱ // 0x2d2d @0x4
0x2d29…2d2f at0005 = EOL // 0x2d2e @0x5
0x2d29…2d2f }
0x2d2f…2d49 baa0 5050 K1$="P641220:SYSTEM1"
0x2d2f…2d49 LineComalBin {
0x2d2f…2d49 ptr = 0xbaa0 // 0x2d2f @0x0
0x2d2f…2d49 lno = 0x13ba // 0x2d31 @0x2
0x2d2f…2d49 at0004 = ╱4b╱K╱ // 0x2d33 @0x4
0x2d2f…2d49 at0005 = ╱31╱1╱ // 0x2d34 @0x5
0x2d2f…2d49 at0006 = ╱ef╱$╱ // 0x2d35 @0x6
0x2d2f…2d49 at0007 = ╱dc╱=╱ // 0x2d36 @0x7
0x2d2f…2d49 at0008 = ╱22╱"╱ // 0x2d37 @0x8
0x2d2f…2d49 at0009 = ╱50╱P╱ // 0x2d38 @0x9
0x2d2f…2d49 at000a = ╱36╱6╱ // 0x2d39 @0xa
0x2d2f…2d49 at000b = ╱34╱4╱ // 0x2d3a @0xb
0x2d2f…2d49 at000c = ╱31╱1╱ // 0x2d3b @0xc
0x2d2f…2d49 at000d = ╱32╱2╱ // 0x2d3c @0xd
0x2d2f…2d49 at000e = ╱32╱2╱ // 0x2d3d @0xe
0x2d2f…2d49 at000f = ╱30╱0╱ // 0x2d3e @0xf
0x2d2f…2d49 at0010 = ╱3a╱:╱ // 0x2d3f @0x10
0x2d2f…2d49 at0011 = ╱53╱S╱ // 0x2d40 @0x11
0x2d2f…2d49 at0012 = ╱59╱Y╱ // 0x2d41 @0x12
0x2d2f…2d49 at0013 = ╱53╱S╱ // 0x2d42 @0x13
0x2d2f…2d49 at0014 = ╱54╱T╱ // 0x2d43 @0x14
0x2d2f…2d49 at0015 = ╱45╱E╱ // 0x2d44 @0x15
0x2d2f…2d49 at0016 = ╱4d╱M╱ // 0x2d45 @0x16
0x2d2f…2d49 at0017 = ╱31╱1╱ // 0x2d46 @0x17
0x2d2f…2d49 at0018 = ╱22╱"╱ // 0x2d47 @0x18
0x2d2f…2d49 at0019 = EOL // 0x2d48 @0x19
0x2d2f…2d49 }
0x2d49…2d4f baa6 5060 REPEAT
0x2d49…2d4f LineComalBin {
0x2d49…2d4f ptr = 0xbaa6 // 0x2d49 @0x0
0x2d49…2d4f lno = 0x13c4 // 0x2d4b @0x2
0x2d49…2d4f at0004 = ╱97╱ REPEAT ╱ // 0x2d4d @0x4
0x2d49…2d4f at0005 = EOL // 0x2d4e @0x5
0x2d49…2d4f }
0x2d4f…2d5a bab1 5070 OPEN K1$,R
0x2d4f…2d5a LineComalBin {
0x2d4f…2d5a ptr = 0xbab1 // 0x2d4f @0x0
0x2d4f…2d5a lno = 0x13ce // 0x2d51 @0x2
0x2d4f…2d5a at0004 = ╱a7╱ OPEN ╱ // 0x2d53 @0x4
0x2d4f…2d5a at0005 = ╱4b╱K╱ // 0x2d54 @0x5
0x2d4f…2d5a at0006 = ╱31╱1╱ // 0x2d55 @0x6
0x2d4f…2d5a at0007 = ╱ef╱$╱ // 0x2d56 @0x7
0x2d4f…2d5a at0008 = ╱ec╱,╱ // 0x2d57 @0x8
0x2d4f…2d5a at0009 = ╱52╱R╱ // 0x2d58 @0x9
0x2d4f…2d5a at000a = EOL // 0x2d59 @0xa
0x2d4f…2d5a }
0x2d5a…2d6a bac1 5080 IF STATUS(K1$)=B THEN EXIT
0x2d5a…2d6a LineComalBin {
0x2d5a…2d6a ptr = 0xbac1 // 0x2d5a @0x0
0x2d5a…2d6a lno = 0x13d8 // 0x2d5c @0x2
0x2d5a…2d6a at0004 = ╱82╱ IF ╱ // 0x2d5e @0x4
0x2d5a…2d6a at0005 = ╱ce╱STATUS╱ // 0x2d5f @0x5
0x2d5a…2d6a at0006 = ╱ed╱(╱ // 0x2d60 @0x6
0x2d5a…2d6a at0007 = ╱4b╱K╱ // 0x2d61 @0x7
0x2d5a…2d6a at0008 = ╱31╱1╱ // 0x2d62 @0x8
0x2d5a…2d6a at0009 = ╱ef╱$╱ // 0x2d63 @0x9
0x2d5a…2d6a at000a = ╱ee╱)╱ // 0x2d64 @0xa
0x2d5a…2d6a at000b = ╱dc╱=╱ // 0x2d65 @0xb
0x2d5a…2d6a at000c = ╱42╱B╱ // 0x2d66 @0xc
0x2d5a…2d6a at000d = ╱b6╱ THEN ╱ // 0x2d67 @0xd
0x2d5a…2d6a at000e = ╱99╱ EXIT ╱ // 0x2d68 @0xe
0x2d5a…2d6a at000f = EOL // 0x2d69 @0xf
0x2d5a…2d6a }
0x2d6a…2d70 bac7 5090 CLEAR
0x2d6a…2d70 LineComalBin {
0x2d6a…2d70 ptr = 0xbac7 // 0x2d6a @0x0
0x2d6a…2d70 lno = 0x13e2 // 0x2d6c @0x2
0x2d6a…2d70 at0004 = ╱a0╱ CLEAR ╱ // 0x2d6e @0x4
0x2d6a…2d70 at0005 = EOL // 0x2d6f @0x5
0x2d6a…2d70 }
0x2d70…2d85 badc 5100 CURSOR 25,13
0x2d70…2d85 LineComalBin {
0x2d70…2d85 ptr = 0xbadc // 0x2d70 @0x0
0x2d70…2d85 lno = 0x13ec // 0x2d72 @0x2
0x2d70…2d85 at0004 = ╱a1╱ CURSOR ╱ // 0x2d74 @0x4
0x2d70…2d85 at0005 = ╱32╱2╱ // 0x2d75 @0x5
0x2d70…2d85 at0006 = ╱35╱5╱ // 0x2d76 @0x6
0x2d70…2d85 at0007 = ╱fe0000c805╱ // 0x2d77 @0x7
0x2d70…2d85 at000c = ╱ec╱,╱ // 0x2d7c @0xc
0x2d70…2d85 at000d = ╱31╱1╱ // 0x2d7d @0xd
0x2d70…2d85 at000e = ╱33╱3╱ // 0x2d7e @0xe
0x2d70…2d85 at000f = ╱fe0000d004╱ // 0x2d7f @0xf
0x2d70…2d85 at0014 = EOL // 0x2d84 @0x14
0x2d70…2d85 }
0x2d85…2dac bb03 5110 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$
0x2d85…2dac LineComalBin {
0x2d85…2dac ptr = 0xbb03 // 0x2d85 @0x0
0x2d85…2dac lno = 0x13f6 // 0x2d87 @0x2
0x2d85…2dac at0004 = ╱91╱ INPUT ╱ // 0x2d89 @0x4
0x2d85…2dac at0005 = ╱22╱"╱ // 0x2d8a @0x5
0x2d85…2dac at0006 = ╱49╱I╱ // 0x2d8b @0x6
0x2d85…2dac at0007 = ╱53╱S╱ // 0x2d8c @0x7
0x2d85…2dac at0008 = ╱5b╱Æ╱ // 0x2d8d @0x8
0x2d85…2dac at0009 = ╱54╱T╱ // 0x2d8e @0x9
0x2d85…2dac at000a = ╱20╱…╱ // 0x2d8f @0xa
0x2d85…2dac at000b = ╱50╱P╱ // 0x2d90 @0xb
0x2d85…2dac at000c = ╱4c╱L╱ // 0x2d91 @0xc
0x2d85…2dac at000d = ╱41╱A╱ // 0x2d92 @0xd
0x2d85…2dac at000e = ╱44╱D╱ // 0x2d93 @0xe
0x2d85…2dac at000f = ╱45╱E╱ // 0x2d94 @0xf
0x2d85…2dac at0010 = ╱20╱…╱ // 0x2d95 @0x10
0x2d85…2dac at0011 = ╱4e╱N╱ // 0x2d96 @0x11
0x2d85…2dac at0012 = ╱52╱R╱ // 0x2d97 @0x12
0x2d85…2dac at0013 = ╱2e╱.╱ // 0x2d98 @0x13
0x2d85…2dac at0014 = ╱32╱2╱ // 0x2d99 @0x14
0x2d85…2dac at0015 = ╱30╱0╱ // 0x2d9a @0x15
0x2d85…2dac at0016 = ╱2c╱,╱ // 0x2d9b @0x16
0x2d85…2dac at0017 = ╱54╱T╱ // 0x2d9c @0x17
0x2d85…2dac at0018 = ╱41╱A╱ // 0x2d9d @0x18
0x2d85…2dac at0019 = ╱53╱S╱ // 0x2d9e @0x19
0x2d85…2dac at001a = ╱54╱T╱ // 0x2d9f @0x1a
0x2d85…2dac at001b = ╱20╱…╱ // 0x2da0 @0x1b
0x2d85…2dac at001c = ╱52╱R╱ // 0x2da1 @0x1c
0x2d85…2dac at001d = ╱45╱E╱ // 0x2da2 @0x1d
0x2d85…2dac at001e = ╱54╱T╱ // 0x2da3 @0x1e
0x2d85…2dac at001f = ╱55╱U╱ // 0x2da4 @0x1f
0x2d85…2dac at0020 = ╱52╱R╱ // 0x2da5 @0x20
0x2d85…2dac at0021 = ╱4e╱N╱ // 0x2da6 @0x21
0x2d85…2dac at0022 = ╱22╱"╱ // 0x2da7 @0x22
0x2d85…2dac at0023 = ╱ec╱,╱ // 0x2da8 @0x23
0x2d85…2dac at0024 = ╱41╱A╱ // 0x2da9 @0x24
0x2d85…2dac at0025 = ╱ef╱$╱ // 0x2daa @0x25
0x2d85…2dac at0026 = EOL // 0x2dab @0x26
0x2d85…2dac }
0x2dac…2dba bb11 5120 UNTIL STATUS(K1$)=B
0x2dac…2dba LineComalBin {
0x2dac…2dba ptr = 0xbb11 // 0x2dac @0x0
0x2dac…2dba lno = 0x1400 // 0x2dae @0x2
0x2dac…2dba at0004 = ╱98╱ UNTIL ╱ // 0x2db0 @0x4
0x2dac…2dba at0005 = ╱ce╱STATUS╱ // 0x2db1 @0x5
0x2dac…2dba at0006 = ╱ed╱(╱ // 0x2db2 @0x6
0x2dac…2dba at0007 = ╱4b╱K╱ // 0x2db3 @0x7
0x2dac…2dba at0008 = ╱31╱1╱ // 0x2db4 @0x8
0x2dac…2dba at0009 = ╱ef╱$╱ // 0x2db5 @0x9
0x2dac…2dba at000a = ╱ee╱)╱ // 0x2db6 @0xa
0x2dac…2dba at000b = ╱dc╱=╱ // 0x2db7 @0xb
0x2dac…2dba at000c = ╱42╱B╱ // 0x2db8 @0xc
0x2dac…2dba at000d = EOL // 0x2db9 @0xd
0x2dac…2dba }
0x2dba…2ddd bb34 5130 GET K1$,E:MFANTAL,MDANTAL,MKANTAL
0x2dba…2ddd LineComalBin {
0x2dba…2ddd ptr = 0xbb34 // 0x2dba @0x0
0x2dba…2ddd lno = 0x140a // 0x2dbc @0x2
0x2dba…2ddd at0004 = ╱a9╱ GET ╱ // 0x2dbe @0x4
0x2dba…2ddd at0005 = ╱4b╱K╱ // 0x2dbf @0x5
0x2dba…2ddd at0006 = ╱31╱1╱ // 0x2dc0 @0x6
0x2dba…2ddd at0007 = ╱ef╱$╱ // 0x2dc1 @0x7
0x2dba…2ddd at0008 = ╱ec╱,╱ // 0x2dc2 @0x8
0x2dba…2ddd at0009 = ╱45╱E╱ // 0x2dc3 @0x9
0x2dba…2ddd at000a = ╱f0╱:╱ // 0x2dc4 @0xa
0x2dba…2ddd at000b = ╱4d╱M╱ // 0x2dc5 @0xb
0x2dba…2ddd at000c = ╱46╱F╱ // 0x2dc6 @0xc
0x2dba…2ddd at000d = ╱41╱A╱ // 0x2dc7 @0xd
0x2dba…2ddd at000e = ╱4e╱N╱ // 0x2dc8 @0xe
0x2dba…2ddd at000f = ╱54╱T╱ // 0x2dc9 @0xf
0x2dba…2ddd at0010 = ╱41╱A╱ // 0x2dca @0x10
0x2dba…2ddd at0011 = ╱4c╱L╱ // 0x2dcb @0x11
0x2dba…2ddd at0012 = ╱ec╱,╱ // 0x2dcc @0x12
0x2dba…2ddd at0013 = ╱4d╱M╱ // 0x2dcd @0x13
0x2dba…2ddd at0014 = ╱44╱D╱ // 0x2dce @0x14
0x2dba…2ddd at0015 = ╱41╱A╱ // 0x2dcf @0x15
0x2dba…2ddd at0016 = ╱4e╱N╱ // 0x2dd0 @0x16
0x2dba…2ddd at0017 = ╱54╱T╱ // 0x2dd1 @0x17
0x2dba…2ddd at0018 = ╱41╱A╱ // 0x2dd2 @0x18
0x2dba…2ddd at0019 = ╱4c╱L╱ // 0x2dd3 @0x19
0x2dba…2ddd at001a = ╱ec╱,╱ // 0x2dd4 @0x1a
0x2dba…2ddd at001b = ╱4d╱M╱ // 0x2dd5 @0x1b
0x2dba…2ddd at001c = ╱4b╱K╱ // 0x2dd6 @0x1c
0x2dba…2ddd at001d = ╱41╱A╱ // 0x2dd7 @0x1d
0x2dba…2ddd at001e = ╱4e╱N╱ // 0x2dd8 @0x1e
0x2dba…2ddd at001f = ╱54╱T╱ // 0x2dd9 @0x1f
0x2dba…2ddd at0020 = ╱41╱A╱ // 0x2dda @0x20
0x2dba…2ddd at0021 = ╱4c╱L╱ // 0x2ddb @0x21
0x2dba…2ddd at0022 = EOL // 0x2ddc @0x22
0x2dba…2ddd }
0x2ddd…2df0 bb47 5140 EXEC FEJL(W,E,K1$)
0x2ddd…2df0 LineComalBin {
0x2ddd…2df0 ptr = 0xbb47 // 0x2ddd @0x0
0x2ddd…2df0 lno = 0x1414 // 0x2ddf @0x2
0x2ddd…2df0 at0004 = ╱9d╱ EXEC ╱ // 0x2de1 @0x4
0x2ddd…2df0 at0005 = ╱46╱F╱ // 0x2de2 @0x5
0x2ddd…2df0 at0006 = ╱45╱E╱ // 0x2de3 @0x6
0x2ddd…2df0 at0007 = ╱4a╱J╱ // 0x2de4 @0x7
0x2ddd…2df0 at0008 = ╱4c╱L╱ // 0x2de5 @0x8
0x2ddd…2df0 at0009 = ╱ed╱(╱ // 0x2de6 @0x9
0x2ddd…2df0 at000a = ╱57╱W╱ // 0x2de7 @0xa
0x2ddd…2df0 at000b = ╱ec╱,╱ // 0x2de8 @0xb
0x2ddd…2df0 at000c = ╱45╱E╱ // 0x2de9 @0xc
0x2ddd…2df0 at000d = ╱ec╱,╱ // 0x2dea @0xd
0x2ddd…2df0 at000e = ╱4b╱K╱ // 0x2deb @0xe
0x2ddd…2df0 at000f = ╱31╱1╱ // 0x2dec @0xf
0x2ddd…2df0 at0010 = ╱ef╱$╱ // 0x2ded @0x10
0x2ddd…2df0 at0011 = ╱ee╱)╱ // 0x2dee @0x11
0x2ddd…2df0 at0012 = EOL // 0x2def @0x12
0x2ddd…2df0 }
0x2df0…2e15 bb6c 5150 GET K1$,V:DPOST,KPOST,MFPOST,MDPOST
0x2df0…2e15 LineComalBin {
0x2df0…2e15 ptr = 0xbb6c // 0x2df0 @0x0
0x2df0…2e15 lno = 0x141e // 0x2df2 @0x2
0x2df0…2e15 at0004 = ╱a9╱ GET ╱ // 0x2df4 @0x4
0x2df0…2e15 at0005 = ╱4b╱K╱ // 0x2df5 @0x5
0x2df0…2e15 at0006 = ╱31╱1╱ // 0x2df6 @0x6
0x2df0…2e15 at0007 = ╱ef╱$╱ // 0x2df7 @0x7
0x2df0…2e15 at0008 = ╱ec╱,╱ // 0x2df8 @0x8
0x2df0…2e15 at0009 = ╱56╱V╱ // 0x2df9 @0x9
0x2df0…2e15 at000a = ╱f0╱:╱ // 0x2dfa @0xa
0x2df0…2e15 at000b = ╱44╱D╱ // 0x2dfb @0xb
0x2df0…2e15 at000c = ╱50╱P╱ // 0x2dfc @0xc
0x2df0…2e15 at000d = ╱4f╱O╱ // 0x2dfd @0xd
0x2df0…2e15 at000e = ╱53╱S╱ // 0x2dfe @0xe
0x2df0…2e15 at000f = ╱54╱T╱ // 0x2dff @0xf
0x2df0…2e15 at0010 = ╱ec╱,╱ // 0x2e00 @0x10
0x2df0…2e15 at0011 = ╱4b╱K╱ // 0x2e01 @0x11
0x2df0…2e15 at0012 = ╱50╱P╱ // 0x2e02 @0x12
0x2df0…2e15 at0013 = ╱4f╱O╱ // 0x2e03 @0x13
0x2df0…2e15 at0014 = ╱53╱S╱ // 0x2e04 @0x14
0x2df0…2e15 at0015 = ╱54╱T╱ // 0x2e05 @0x15
0x2df0…2e15 at0016 = ╱ec╱,╱ // 0x2e06 @0x16
0x2df0…2e15 at0017 = ╱4d╱M╱ // 0x2e07 @0x17
0x2df0…2e15 at0018 = ╱46╱F╱ // 0x2e08 @0x18
0x2df0…2e15 at0019 = ╱50╱P╱ // 0x2e09 @0x19
0x2df0…2e15 at001a = ╱4f╱O╱ // 0x2e0a @0x1a
0x2df0…2e15 at001b = ╱53╱S╱ // 0x2e0b @0x1b
0x2df0…2e15 at001c = ╱54╱T╱ // 0x2e0c @0x1c
0x2df0…2e15 at001d = ╱ec╱,╱ // 0x2e0d @0x1d
0x2df0…2e15 at001e = ╱4d╱M╱ // 0x2e0e @0x1e
0x2df0…2e15 at001f = ╱44╱D╱ // 0x2e0f @0x1f
0x2df0…2e15 at0020 = ╱50╱P╱ // 0x2e10 @0x20
0x2df0…2e15 at0021 = ╱4f╱O╱ // 0x2e11 @0x21
0x2df0…2e15 at0022 = ╱53╱S╱ // 0x2e12 @0x22
0x2df0…2e15 at0023 = ╱54╱T╱ // 0x2e13 @0x23
0x2df0…2e15 at0024 = EOL // 0x2e14 @0x24
0x2df0…2e15 }
0x2e15…2e28 bb7f 5160 EXEC FEJL(W,G,K1$)
0x2e15…2e28 LineComalBin {
0x2e15…2e28 ptr = 0xbb7f // 0x2e15 @0x0
0x2e15…2e28 lno = 0x1428 // 0x2e17 @0x2
0x2e15…2e28 at0004 = ╱9d╱ EXEC ╱ // 0x2e19 @0x4
0x2e15…2e28 at0005 = ╱46╱F╱ // 0x2e1a @0x5
0x2e15…2e28 at0006 = ╱45╱E╱ // 0x2e1b @0x6
0x2e15…2e28 at0007 = ╱4a╱J╱ // 0x2e1c @0x7
0x2e15…2e28 at0008 = ╱4c╱L╱ // 0x2e1d @0x8
0x2e15…2e28 at0009 = ╱ed╱(╱ // 0x2e1e @0x9
0x2e15…2e28 at000a = ╱57╱W╱ // 0x2e1f @0xa
0x2e15…2e28 at000b = ╱ec╱,╱ // 0x2e20 @0xb
0x2e15…2e28 at000c = ╱47╱G╱ // 0x2e21 @0xc
0x2e15…2e28 at000d = ╱ec╱,╱ // 0x2e22 @0xd
0x2e15…2e28 at000e = ╱4b╱K╱ // 0x2e23 @0xe
0x2e15…2e28 at000f = ╱31╱1╱ // 0x2e24 @0xf
0x2e15…2e28 at0010 = ╱ef╱$╱ // 0x2e25 @0x10
0x2e15…2e28 at0011 = ╱ee╱)╱ // 0x2e26 @0x11
0x2e15…2e28 at0012 = EOL // 0x2e27 @0x12
0x2e15…2e28 }
0x2e28…2e4e bba5 5170 GET K1$,4:MKPOST,MFAK,MVGR,MKGR
0x2e28…2e4e LineComalBin {
0x2e28…2e4e ptr = 0xbba5 // 0x2e28 @0x0
0x2e28…2e4e lno = 0x1432 // 0x2e2a @0x2
0x2e28…2e4e at0004 = ╱a9╱ GET ╱ // 0x2e2c @0x4
0x2e28…2e4e at0005 = ╱4b╱K╱ // 0x2e2d @0x5
0x2e28…2e4e at0006 = ╱31╱1╱ // 0x2e2e @0x6
0x2e28…2e4e at0007 = ╱ef╱$╱ // 0x2e2f @0x7
0x2e28…2e4e at0008 = ╱ec╱,╱ // 0x2e30 @0x8
0x2e28…2e4e at0009 = ╱34╱4╱ // 0x2e31 @0x9
0x2e28…2e4e at000a = ╱fe00008003╱ // 0x2e32 @0xa
0x2e28…2e4e at000f = ╱f0╱:╱ // 0x2e37 @0xf
0x2e28…2e4e at0010 = ╱4d╱M╱ // 0x2e38 @0x10
0x2e28…2e4e at0011 = ╱4b╱K╱ // 0x2e39 @0x11
0x2e28…2e4e at0012 = ╱50╱P╱ // 0x2e3a @0x12
0x2e28…2e4e at0013 = ╱4f╱O╱ // 0x2e3b @0x13
0x2e28…2e4e at0014 = ╱53╱S╱ // 0x2e3c @0x14
0x2e28…2e4e at0015 = ╱54╱T╱ // 0x2e3d @0x15
0x2e28…2e4e at0016 = ╱ec╱,╱ // 0x2e3e @0x16
0x2e28…2e4e at0017 = ╱4d╱M╱ // 0x2e3f @0x17
0x2e28…2e4e at0018 = ╱46╱F╱ // 0x2e40 @0x18
0x2e28…2e4e at0019 = ╱41╱A╱ // 0x2e41 @0x19
0x2e28…2e4e at001a = ╱4b╱K╱ // 0x2e42 @0x1a
0x2e28…2e4e at001b = ╱ec╱,╱ // 0x2e43 @0x1b
0x2e28…2e4e at001c = ╱4d╱M╱ // 0x2e44 @0x1c
0x2e28…2e4e at001d = ╱56╱V╱ // 0x2e45 @0x1d
0x2e28…2e4e at001e = ╱47╱G╱ // 0x2e46 @0x1e
0x2e28…2e4e at001f = ╱52╱R╱ // 0x2e47 @0x1f
0x2e28…2e4e at0020 = ╱ec╱,╱ // 0x2e48 @0x20
0x2e28…2e4e at0021 = ╱4d╱M╱ // 0x2e49 @0x21
0x2e28…2e4e at0022 = ╱4b╱K╱ // 0x2e4a @0x22
0x2e28…2e4e at0023 = ╱47╱G╱ // 0x2e4b @0x23
0x2e28…2e4e at0024 = ╱52╱R╱ // 0x2e4c @0x24
0x2e28…2e4e at0025 = EOL // 0x2e4d @0x25
0x2e28…2e4e }
0x2e4e…2e61 bbb8 5180 EXEC FEJL(W,V,K1$)
0x2e4e…2e61 LineComalBin {
0x2e4e…2e61 ptr = 0xbbb8 // 0x2e4e @0x0
0x2e4e…2e61 lno = 0x143c // 0x2e50 @0x2
0x2e4e…2e61 at0004 = ╱9d╱ EXEC ╱ // 0x2e52 @0x4
0x2e4e…2e61 at0005 = ╱46╱F╱ // 0x2e53 @0x5
0x2e4e…2e61 at0006 = ╱45╱E╱ // 0x2e54 @0x6
0x2e4e…2e61 at0007 = ╱4a╱J╱ // 0x2e55 @0x7
0x2e4e…2e61 at0008 = ╱4c╱L╱ // 0x2e56 @0x8
0x2e4e…2e61 at0009 = ╱ed╱(╱ // 0x2e57 @0x9
0x2e4e…2e61 at000a = ╱57╱W╱ // 0x2e58 @0xa
0x2e4e…2e61 at000b = ╱ec╱,╱ // 0x2e59 @0xb
0x2e4e…2e61 at000c = ╱56╱V╱ // 0x2e5a @0xc
0x2e4e…2e61 at000d = ╱ec╱,╱ // 0x2e5b @0xd
0x2e4e…2e61 at000e = ╱4b╱K╱ // 0x2e5c @0xe
0x2e4e…2e61 at000f = ╱31╱1╱ // 0x2e5d @0xf
0x2e4e…2e61 at0010 = ╱ef╱$╱ // 0x2e5e @0x10
0x2e4e…2e61 at0011 = ╱ee╱)╱ // 0x2e5f @0x11
0x2e4e…2e61 at0012 = EOL // 0x2e60 @0x12
0x2e4e…2e61 }
0x2e61…2e77 bbce 5190 GET K1$,5:MKRGR
0x2e61…2e77 LineComalBin {
0x2e61…2e77 ptr = 0xbbce // 0x2e61 @0x0
0x2e61…2e77 lno = 0x1446 // 0x2e63 @0x2
0x2e61…2e77 at0004 = ╱a9╱ GET ╱ // 0x2e65 @0x4
0x2e61…2e77 at0005 = ╱4b╱K╱ // 0x2e66 @0x5
0x2e61…2e77 at0006 = ╱31╱1╱ // 0x2e67 @0x6
0x2e61…2e77 at0007 = ╱ef╱$╱ // 0x2e68 @0x7
0x2e61…2e77 at0008 = ╱ec╱,╱ // 0x2e69 @0x8
0x2e61…2e77 at0009 = ╱35╱5╱ // 0x2e6a @0x9
0x2e61…2e77 at000a = ╱fe0000a003╱ // 0x2e6b @0xa
0x2e61…2e77 at000f = ╱f0╱:╱ // 0x2e70 @0xf
0x2e61…2e77 at0010 = ╱4d╱M╱ // 0x2e71 @0x10
0x2e61…2e77 at0011 = ╱4b╱K╱ // 0x2e72 @0x11
0x2e61…2e77 at0012 = ╱52╱R╱ // 0x2e73 @0x12
0x2e61…2e77 at0013 = ╱47╱G╱ // 0x2e74 @0x13
0x2e61…2e77 at0014 = ╱52╱R╱ // 0x2e75 @0x14
0x2e61…2e77 at0015 = EOL // 0x2e76 @0x15
0x2e61…2e77 }
0x2e77…2e8f bbe6 5200 EXEC FEJL(W,4,K1$)
0x2e77…2e8f LineComalBin {
0x2e77…2e8f ptr = 0xbbe6 // 0x2e77 @0x0
0x2e77…2e8f lno = 0x1450 // 0x2e79 @0x2
0x2e77…2e8f at0004 = ╱9d╱ EXEC ╱ // 0x2e7b @0x4
0x2e77…2e8f at0005 = ╱46╱F╱ // 0x2e7c @0x5
0x2e77…2e8f at0006 = ╱45╱E╱ // 0x2e7d @0x6
0x2e77…2e8f at0007 = ╱4a╱J╱ // 0x2e7e @0x7
0x2e77…2e8f at0008 = ╱4c╱L╱ // 0x2e7f @0x8
0x2e77…2e8f at0009 = ╱ed╱(╱ // 0x2e80 @0x9
0x2e77…2e8f at000a = ╱57╱W╱ // 0x2e81 @0xa
0x2e77…2e8f at000b = ╱ec╱,╱ // 0x2e82 @0xb
0x2e77…2e8f at000c = ╱34╱4╱ // 0x2e83 @0xc
0x2e77…2e8f at000d = ╱fe00008003╱ // 0x2e84 @0xd
0x2e77…2e8f at0012 = ╱ec╱,╱ // 0x2e89 @0x12
0x2e77…2e8f at0013 = ╱4b╱K╱ // 0x2e8a @0x13
0x2e77…2e8f at0014 = ╱31╱1╱ // 0x2e8b @0x14
0x2e77…2e8f at0015 = ╱ef╱$╱ // 0x2e8c @0x15
0x2e77…2e8f at0016 = ╱ee╱)╱ // 0x2e8d @0x16
0x2e77…2e8f at0017 = EOL // 0x2e8e @0x17
0x2e77…2e8f }
0x2e8f…2eb7 bc0e 5210 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL
0x2e8f…2eb7 LineComalBin {
0x2e8f…2eb7 ptr = 0xbc0e // 0x2e8f @0x0
0x2e8f…2eb7 lno = 0x145a // 0x2e91 @0x2
0x2e8f…2eb7 at0004 = ╱a9╱ GET ╱ // 0x2e93 @0x4
0x2e8f…2eb7 at0005 = ╱4b╱K╱ // 0x2e94 @0x5
0x2e8f…2eb7 at0006 = ╱31╱1╱ // 0x2e95 @0x6
0x2e8f…2eb7 at0007 = ╱ef╱$╱ // 0x2e96 @0x7
0x2e8f…2eb7 at0008 = ╱ec╱,╱ // 0x2e97 @0x8
0x2e8f…2eb7 at0009 = ╱38╱8╱ // 0x2e98 @0x9
0x2e8f…2eb7 at000a = ╱fe00008004╱ // 0x2e99 @0xa
0x2e8f…2eb7 at000f = ╱f0╱:╱ // 0x2e9e @0xf
0x2e8f…2eb7 at0010 = ╱44╱D╱ // 0x2e9f @0x10
0x2e8f…2eb7 at0011 = ╱49╱I╱ // 0x2ea0 @0x11
0x2e8f…2eb7 at0012 = ╱56╱V╱ // 0x2ea1 @0x12
0x2e8f…2eb7 at0013 = ╱4e╱N╱ // 0x2ea2 @0x13
0x2e8f…2eb7 at0014 = ╱52╱R╱ // 0x2ea3 @0x14
0x2e8f…2eb7 at0015 = ╱ec╱,╱ // 0x2ea4 @0x15
0x2e8f…2eb7 at0016 = ╱44╱D╱ // 0x2ea5 @0x16
0x2e8f…2eb7 at0017 = ╱49╱I╱ // 0x2ea6 @0x17
0x2e8f…2eb7 at0018 = ╱56╱V╱ // 0x2ea7 @0x18
0x2e8f…2eb7 at0019 = ╱44╱D╱ // 0x2ea8 @0x19
0x2e8f…2eb7 at001a = ╱4e╱N╱ // 0x2ea9 @0x1a
0x2e8f…2eb7 at001b = ╱52╱R╱ // 0x2eaa @0x1b
0x2e8f…2eb7 at001c = ╱ec╱,╱ // 0x2eab @0x1c
0x2e8f…2eb7 at001d = ╱44╱D╱ // 0x2eac @0x1d
0x2e8f…2eb7 at001e = ╱49╱I╱ // 0x2ead @0x1e
0x2e8f…2eb7 at001f = ╱46╱F╱ // 0x2eae @0x1f
0x2e8f…2eb7 at0020 = ╱4e╱N╱ // 0x2eaf @0x20
0x2e8f…2eb7 at0021 = ╱52╱R╱ // 0x2eb0 @0x21
0x2e8f…2eb7 at0022 = ╱ec╱,╱ // 0x2eb1 @0x22
0x2e8f…2eb7 at0023 = ╱44╱D╱ // 0x2eb2 @0x23
0x2e8f…2eb7 at0024 = ╱54╱T╱ // 0x2eb3 @0x24
0x2e8f…2eb7 at0025 = ╱41╱A╱ // 0x2eb4 @0x25
0x2e8f…2eb7 at0026 = ╱4c╱L╱ // 0x2eb5 @0x26
0x2e8f…2eb7 at0027 = EOL // 0x2eb6 @0x27
0x2e8f…2eb7 }
0x2eb7…2ecf bc26 5220 EXEC FEJL(W,5,K1$)
0x2eb7…2ecf LineComalBin {
0x2eb7…2ecf ptr = 0xbc26 // 0x2eb7 @0x0
0x2eb7…2ecf lno = 0x1464 // 0x2eb9 @0x2
0x2eb7…2ecf at0004 = ╱9d╱ EXEC ╱ // 0x2ebb @0x4
0x2eb7…2ecf at0005 = ╱46╱F╱ // 0x2ebc @0x5
0x2eb7…2ecf at0006 = ╱45╱E╱ // 0x2ebd @0x6
0x2eb7…2ecf at0007 = ╱4a╱J╱ // 0x2ebe @0x7
0x2eb7…2ecf at0008 = ╱4c╱L╱ // 0x2ebf @0x8
0x2eb7…2ecf at0009 = ╱ed╱(╱ // 0x2ec0 @0x9
0x2eb7…2ecf at000a = ╱57╱W╱ // 0x2ec1 @0xa
0x2eb7…2ecf at000b = ╱ec╱,╱ // 0x2ec2 @0xb
0x2eb7…2ecf at000c = ╱35╱5╱ // 0x2ec3 @0xc
0x2eb7…2ecf at000d = ╱fe0000a003╱ // 0x2ec4 @0xd
0x2eb7…2ecf at0012 = ╱ec╱,╱ // 0x2ec9 @0x12
0x2eb7…2ecf at0013 = ╱4b╱K╱ // 0x2eca @0x13
0x2eb7…2ecf at0014 = ╱31╱1╱ // 0x2ecb @0x14
0x2eb7…2ecf at0015 = ╱ef╱$╱ // 0x2ecc @0x15
0x2eb7…2ecf at0016 = ╱ee╱)╱ // 0x2ecd @0x16
0x2eb7…2ecf at0017 = EOL // 0x2ece @0x17
0x2eb7…2ecf }
0x2ecf…2ee0 bc37 5230 GET K1$,W:KRTAL
0x2ecf…2ee0 LineComalBin {
0x2ecf…2ee0 ptr = 0xbc37 // 0x2ecf @0x0
0x2ecf…2ee0 lno = 0x146e // 0x2ed1 @0x2
0x2ecf…2ee0 at0004 = ╱a9╱ GET ╱ // 0x2ed3 @0x4
0x2ecf…2ee0 at0005 = ╱4b╱K╱ // 0x2ed4 @0x5
0x2ecf…2ee0 at0006 = ╱31╱1╱ // 0x2ed5 @0x6
0x2ecf…2ee0 at0007 = ╱ef╱$╱ // 0x2ed6 @0x7
0x2ecf…2ee0 at0008 = ╱ec╱,╱ // 0x2ed7 @0x8
0x2ecf…2ee0 at0009 = ╱57╱W╱ // 0x2ed8 @0x9
0x2ecf…2ee0 at000a = ╱f0╱:╱ // 0x2ed9 @0xa
0x2ecf…2ee0 at000b = ╱4b╱K╱ // 0x2eda @0xb
0x2ecf…2ee0 at000c = ╱52╱R╱ // 0x2edb @0xc
0x2ecf…2ee0 at000d = ╱54╱T╱ // 0x2edc @0xd
0x2ecf…2ee0 at000e = ╱41╱A╱ // 0x2edd @0xe
0x2ecf…2ee0 at000f = ╱4c╱L╱ // 0x2ede @0xf
0x2ecf…2ee0 at0010 = EOL // 0x2edf @0x10
0x2ecf…2ee0 }
0x2ee0…2ef8 bc4f 5240 EXEC FEJL(W,6,K1$)
0x2ee0…2ef8 LineComalBin {
0x2ee0…2ef8 ptr = 0xbc4f // 0x2ee0 @0x0
0x2ee0…2ef8 lno = 0x1478 // 0x2ee2 @0x2
0x2ee0…2ef8 at0004 = ╱9d╱ EXEC ╱ // 0x2ee4 @0x4
0x2ee0…2ef8 at0005 = ╱46╱F╱ // 0x2ee5 @0x5
0x2ee0…2ef8 at0006 = ╱45╱E╱ // 0x2ee6 @0x6
0x2ee0…2ef8 at0007 = ╱4a╱J╱ // 0x2ee7 @0x7
0x2ee0…2ef8 at0008 = ╱4c╱L╱ // 0x2ee8 @0x8
0x2ee0…2ef8 at0009 = ╱ed╱(╱ // 0x2ee9 @0x9
0x2ee0…2ef8 at000a = ╱57╱W╱ // 0x2eea @0xa
0x2ee0…2ef8 at000b = ╱ec╱,╱ // 0x2eeb @0xb
0x2ee0…2ef8 at000c = ╱36╱6╱ // 0x2eec @0xc
0x2ee0…2ef8 at000d = ╱fe0000c003╱ // 0x2eed @0xd
0x2ee0…2ef8 at0012 = ╱ec╱,╱ // 0x2ef2 @0x12
0x2ee0…2ef8 at0013 = ╱4b╱K╱ // 0x2ef3 @0x13
0x2ee0…2ef8 at0014 = ╱31╱1╱ // 0x2ef4 @0x14
0x2ee0…2ef8 at0015 = ╱ef╱$╱ // 0x2ef5 @0x15
0x2ee0…2ef8 at0016 = ╱ee╱)╱ // 0x2ef6 @0x16
0x2ee0…2ef8 at0017 = EOL // 0x2ef7 @0x17
0x2ee0…2ef8 }
0x2ef8…2f0c bc63 5250 GET K1$,10:N$
0x2ef8…2f0c LineComalBin {
0x2ef8…2f0c ptr = 0xbc63 // 0x2ef8 @0x0
0x2ef8…2f0c lno = 0x1482 // 0x2efa @0x2
0x2ef8…2f0c at0004 = ╱a9╱ GET ╱ // 0x2efc @0x4
0x2ef8…2f0c at0005 = ╱4b╱K╱ // 0x2efd @0x5
0x2ef8…2f0c at0006 = ╱31╱1╱ // 0x2efe @0x6
0x2ef8…2f0c at0007 = ╱ef╱$╱ // 0x2eff @0x7
0x2ef8…2f0c at0008 = ╱ec╱,╱ // 0x2f00 @0x8
0x2ef8…2f0c at0009 = ╱31╱1╱ // 0x2f01 @0x9
0x2ef8…2f0c at000a = ╱30╱0╱ // 0x2f02 @0xa
0x2ef8…2f0c at000b = ╱fe0000a004╱ // 0x2f03 @0xb
0x2ef8…2f0c at0010 = ╱f0╱:╱ // 0x2f08 @0x10
0x2ef8…2f0c at0011 = ╱4e╱N╱ // 0x2f09 @0x11
0x2ef8…2f0c at0012 = ╱ef╱$╱ // 0x2f0a @0x12
0x2ef8…2f0c at0013 = EOL // 0x2f0b @0x13
0x2ef8…2f0c }
0x2f0c…2f24 bc7b 5260 EXEC FEJL(W,7,K1$)
0x2f0c…2f24 LineComalBin {
0x2f0c…2f24 ptr = 0xbc7b // 0x2f0c @0x0
0x2f0c…2f24 lno = 0x148c // 0x2f0e @0x2
0x2f0c…2f24 at0004 = ╱9d╱ EXEC ╱ // 0x2f10 @0x4
0x2f0c…2f24 at0005 = ╱46╱F╱ // 0x2f11 @0x5
0x2f0c…2f24 at0006 = ╱45╱E╱ // 0x2f12 @0x6
0x2f0c…2f24 at0007 = ╱4a╱J╱ // 0x2f13 @0x7
0x2f0c…2f24 at0008 = ╱4c╱L╱ // 0x2f14 @0x8
0x2f0c…2f24 at0009 = ╱ed╱(╱ // 0x2f15 @0x9
0x2f0c…2f24 at000a = ╱57╱W╱ // 0x2f16 @0xa
0x2f0c…2f24 at000b = ╱ec╱,╱ // 0x2f17 @0xb
0x2f0c…2f24 at000c = ╱37╱7╱ // 0x2f18 @0xc
0x2f0c…2f24 at000d = ╱fe0000e003╱ // 0x2f19 @0xd
0x2f0c…2f24 at0012 = ╱ec╱,╱ // 0x2f1e @0x12
0x2f0c…2f24 at0013 = ╱4b╱K╱ // 0x2f1f @0x13
0x2f0c…2f24 at0014 = ╱31╱1╱ // 0x2f20 @0x14
0x2f0c…2f24 at0015 = ╱ef╱$╱ // 0x2f21 @0x15
0x2f0c…2f24 at0016 = ╱ee╱)╱ // 0x2f22 @0x16
0x2f0c…2f24 at0017 = EOL // 0x2f23 @0x17
0x2f0c…2f24 }
0x2f24…2f39 bc90 5270 GET K1$,11:K2$
0x2f24…2f39 LineComalBin {
0x2f24…2f39 ptr = 0xbc90 // 0x2f24 @0x0
0x2f24…2f39 lno = 0x1496 // 0x2f26 @0x2
0x2f24…2f39 at0004 = ╱a9╱ GET ╱ // 0x2f28 @0x4
0x2f24…2f39 at0005 = ╱4b╱K╱ // 0x2f29 @0x5
0x2f24…2f39 at0006 = ╱31╱1╱ // 0x2f2a @0x6
0x2f24…2f39 at0007 = ╱ef╱$╱ // 0x2f2b @0x7
0x2f24…2f39 at0008 = ╱ec╱,╱ // 0x2f2c @0x8
0x2f24…2f39 at0009 = ╱31╱1╱ // 0x2f2d @0x9
0x2f24…2f39 at000a = ╱31╱1╱ // 0x2f2e @0xa
0x2f24…2f39 at000b = ╱fe0000b004╱ // 0x2f2f @0xb
0x2f24…2f39 at0010 = ╱f0╱:╱ // 0x2f34 @0x10
0x2f24…2f39 at0011 = ╱4b╱K╱ // 0x2f35 @0x11
0x2f24…2f39 at0012 = ╱32╱2╱ // 0x2f36 @0x12
0x2f24…2f39 at0013 = ╱ef╱$╱ // 0x2f37 @0x13
0x2f24…2f39 at0014 = EOL // 0x2f38 @0x14
0x2f24…2f39 }
0x2f39…2f51 (157,) bca8 5280 EXEC FEJL(W,8,K1$)
0x2f39…2f51 LineComalBin {
0x2f39…2f51 ptr = 0xbca8 // 0x2f39 @0x0
0x2f39…2f51 lno = 0x14a0 // 0x2f3b @0x2
0x2f39…2f51 at0004 = ╱9d╱ EXEC ╱ // 0x2f3d @0x4
0x2f39…2f51 at0005 = ╱46╱F╱ // 0x2f3e @0x5
0x2f39…2f51 at0006 = ╱45╱E╱ // 0x2f3f @0x6
0x2f39…2f51 at0007 = ╱4a╱J╱ // 0x2f40 @0x7
0x2f39…2f51 at0008 = ╱4c╱L╱ // 0x2f41 @0x8
0x2f39…2f51 at0009 = ╱ed╱(╱ // 0x2f42 @0x9
0x2f39…2f51 at000a = ╱57╱W╱ // 0x2f43 @0xa
0x2f39…2f51 at000b = ╱ec╱,╱ // 0x2f44 @0xb
0x2f39…2f51 at000c = ╱38╱8╱ // 0x2f45 @0xc
0x2f39…2f51 at000d = ╱fe00008004╱ // 0x2f46 @0xd
0x2f39…2f51 at0012 = ╱ec╱,╱ // 0x2f4b @0x12
0x2f39…2f51 at0013 = ╱4b╱K╱ // 0x2f4c @0x13
0x2f39…2f51 at0014 = ╱31╱1╱ // 0x2f4d @0x14
0x2f39…2f51 at0015 = ╱ef╱$╱ // 0x2f4e @0x15
0x2f39…2f51 at0016 = ╱ee╱)╱ // 0x2f4f @0x16
0x2f39…2f51 at0017 = EOL // 0x2f50 @0x17
0x2f39…2f51 }
0x2f51…2f66 bcbd 5290 GET K1$,12:K3$
0x2f51…2f66 LineComalBin {
0x2f51…2f66 ptr = 0xbcbd // 0x2f51 @0x0
0x2f51…2f66 lno = 0x14aa // 0x2f53 @0x2
0x2f51…2f66 at0004 = ╱a9╱ GET ╱ // 0x2f55 @0x4
0x2f51…2f66 at0005 = ╱4b╱K╱ // 0x2f56 @0x5
0x2f51…2f66 at0006 = ╱31╱1╱ // 0x2f57 @0x6
0x2f51…2f66 at0007 = ╱ef╱$╱ // 0x2f58 @0x7
0x2f51…2f66 at0008 = ╱ec╱,╱ // 0x2f59 @0x8
0x2f51…2f66 at0009 = ╱31╱1╱ // 0x2f5a @0x9
0x2f51…2f66 at000a = ╱32╱2╱ // 0x2f5b @0xa
0x2f51…2f66 at000b = ╱fe0000c004╱ // 0x2f5c @0xb
0x2f51…2f66 at0010 = ╱f0╱:╱ // 0x2f61 @0x10
0x2f51…2f66 at0011 = ╱4b╱K╱ // 0x2f62 @0x11
0x2f51…2f66 at0012 = ╱33╱3╱ // 0x2f63 @0x12
0x2f51…2f66 at0013 = ╱ef╱$╱ // 0x2f64 @0x13
0x2f51…2f66 at0014 = EOL // 0x2f65 @0x14
0x2f51…2f66 }
0x2f66…2f79 bcd0 5300 EXEC FEJL(W,W,K1$)
0x2f66…2f79 LineComalBin {
0x2f66…2f79 ptr = 0xbcd0 // 0x2f66 @0x0
0x2f66…2f79 lno = 0x14b4 // 0x2f68 @0x2
0x2f66…2f79 at0004 = ╱9d╱ EXEC ╱ // 0x2f6a @0x4
0x2f66…2f79 at0005 = ╱46╱F╱ // 0x2f6b @0x5
0x2f66…2f79 at0006 = ╱45╱E╱ // 0x2f6c @0x6
0x2f66…2f79 at0007 = ╱4a╱J╱ // 0x2f6d @0x7
0x2f66…2f79 at0008 = ╱4c╱L╱ // 0x2f6e @0x8
0x2f66…2f79 at0009 = ╱ed╱(╱ // 0x2f6f @0x9
0x2f66…2f79 at000a = ╱57╱W╱ // 0x2f70 @0xa
0x2f66…2f79 at000b = ╱ec╱,╱ // 0x2f71 @0xb
0x2f66…2f79 at000c = ╱57╱W╱ // 0x2f72 @0xc
0x2f66…2f79 at000d = ╱ec╱,╱ // 0x2f73 @0xd
0x2f66…2f79 at000e = ╱4b╱K╱ // 0x2f74 @0xe
0x2f66…2f79 at000f = ╱31╱1╱ // 0x2f75 @0xf
0x2f66…2f79 at0010 = ╱ef╱$╱ // 0x2f76 @0x10
0x2f66…2f79 at0011 = ╱ee╱)╱ // 0x2f77 @0x11
0x2f66…2f79 at0012 = EOL // 0x2f78 @0x12
0x2f66…2f79 }
0x2f79…2f8e bce5 5310 GET K1$,13:K4$
0x2f79…2f8e LineComalBin {
0x2f79…2f8e ptr = 0xbce5 // 0x2f79 @0x0
0x2f79…2f8e lno = 0x14be // 0x2f7b @0x2
0x2f79…2f8e at0004 = ╱a9╱ GET ╱ // 0x2f7d @0x4
0x2f79…2f8e at0005 = ╱4b╱K╱ // 0x2f7e @0x5
0x2f79…2f8e at0006 = ╱31╱1╱ // 0x2f7f @0x6
0x2f79…2f8e at0007 = ╱ef╱$╱ // 0x2f80 @0x7
0x2f79…2f8e at0008 = ╱ec╱,╱ // 0x2f81 @0x8
0x2f79…2f8e at0009 = ╱31╱1╱ // 0x2f82 @0x9
0x2f79…2f8e at000a = ╱33╱3╱ // 0x2f83 @0xa
0x2f79…2f8e at000b = ╱fe0000d004╱ // 0x2f84 @0xb
0x2f79…2f8e at0010 = ╱f0╱:╱ // 0x2f89 @0x10
0x2f79…2f8e at0011 = ╱4b╱K╱ // 0x2f8a @0x11
0x2f79…2f8e at0012 = ╱34╱4╱ // 0x2f8b @0x12
0x2f79…2f8e at0013 = ╱ef╱$╱ // 0x2f8c @0x13
0x2f79…2f8e at0014 = EOL // 0x2f8d @0x14
0x2f79…2f8e }
0x2f8e…2fa7 bcfe 5320 EXEC FEJL(W,10,K1$)
0x2f8e…2fa7 LineComalBin {
0x2f8e…2fa7 ptr = 0xbcfe // 0x2f8e @0x0
0x2f8e…2fa7 lno = 0x14c8 // 0x2f90 @0x2
0x2f8e…2fa7 at0004 = ╱9d╱ EXEC ╱ // 0x2f92 @0x4
0x2f8e…2fa7 at0005 = ╱46╱F╱ // 0x2f93 @0x5
0x2f8e…2fa7 at0006 = ╱45╱E╱ // 0x2f94 @0x6
0x2f8e…2fa7 at0007 = ╱4a╱J╱ // 0x2f95 @0x7
0x2f8e…2fa7 at0008 = ╱4c╱L╱ // 0x2f96 @0x8
0x2f8e…2fa7 at0009 = ╱ed╱(╱ // 0x2f97 @0x9
0x2f8e…2fa7 at000a = ╱57╱W╱ // 0x2f98 @0xa
0x2f8e…2fa7 at000b = ╱ec╱,╱ // 0x2f99 @0xb
0x2f8e…2fa7 at000c = ╱31╱1╱ // 0x2f9a @0xc
0x2f8e…2fa7 at000d = ╱30╱0╱ // 0x2f9b @0xd
0x2f8e…2fa7 at000e = ╱fe0000a004╱ // 0x2f9c @0xe
0x2f8e…2fa7 at0013 = ╱ec╱,╱ // 0x2fa1 @0x13
0x2f8e…2fa7 at0014 = ╱4b╱K╱ // 0x2fa2 @0x14
0x2f8e…2fa7 at0015 = ╱31╱1╱ // 0x2fa3 @0x15
0x2f8e…2fa7 at0016 = ╱ef╱$╱ // 0x2fa4 @0x16
0x2f8e…2fa7 at0017 = ╱ee╱)╱ // 0x2fa5 @0x17
0x2f8e…2fa7 at0018 = EOL // 0x2fa6 @0x18
0x2f8e…2fa7 }
0x2fa7…2fbc bd13 5330 GET K1$,15:K5$
0x2fa7…2fbc LineComalBin {
0x2fa7…2fbc ptr = 0xbd13 // 0x2fa7 @0x0
0x2fa7…2fbc lno = 0x14d2 // 0x2fa9 @0x2
0x2fa7…2fbc at0004 = ╱a9╱ GET ╱ // 0x2fab @0x4
0x2fa7…2fbc at0005 = ╱4b╱K╱ // 0x2fac @0x5
0x2fa7…2fbc at0006 = ╱31╱1╱ // 0x2fad @0x6
0x2fa7…2fbc at0007 = ╱ef╱$╱ // 0x2fae @0x7
0x2fa7…2fbc at0008 = ╱ec╱,╱ // 0x2faf @0x8
0x2fa7…2fbc at0009 = ╱31╱1╱ // 0x2fb0 @0x9
0x2fa7…2fbc at000a = ╱35╱5╱ // 0x2fb1 @0xa
0x2fa7…2fbc at000b = ╱fe0000f004╱ // 0x2fb2 @0xb
0x2fa7…2fbc at0010 = ╱f0╱:╱ // 0x2fb7 @0x10
0x2fa7…2fbc at0011 = ╱4b╱K╱ // 0x2fb8 @0x11
0x2fa7…2fbc at0012 = ╱35╱5╱ // 0x2fb9 @0x12
0x2fa7…2fbc at0013 = ╱ef╱$╱ // 0x2fba @0x13
0x2fa7…2fbc at0014 = EOL // 0x2fbb @0x14
0x2fa7…2fbc }
0x2fbc…2fd5 bd2c 5340 EXEC FEJL(W,11,K1$)
0x2fbc…2fd5 LineComalBin {
0x2fbc…2fd5 ptr = 0xbd2c // 0x2fbc @0x0
0x2fbc…2fd5 lno = 0x14dc // 0x2fbe @0x2
0x2fbc…2fd5 at0004 = ╱9d╱ EXEC ╱ // 0x2fc0 @0x4
0x2fbc…2fd5 at0005 = ╱46╱F╱ // 0x2fc1 @0x5
0x2fbc…2fd5 at0006 = ╱45╱E╱ // 0x2fc2 @0x6
0x2fbc…2fd5 at0007 = ╱4a╱J╱ // 0x2fc3 @0x7
0x2fbc…2fd5 at0008 = ╱4c╱L╱ // 0x2fc4 @0x8
0x2fbc…2fd5 at0009 = ╱ed╱(╱ // 0x2fc5 @0x9
0x2fbc…2fd5 at000a = ╱57╱W╱ // 0x2fc6 @0xa
0x2fbc…2fd5 at000b = ╱ec╱,╱ // 0x2fc7 @0xb
0x2fbc…2fd5 at000c = ╱31╱1╱ // 0x2fc8 @0xc
0x2fbc…2fd5 at000d = ╱31╱1╱ // 0x2fc9 @0xd
0x2fbc…2fd5 at000e = ╱fe0000b004╱ // 0x2fca @0xe
0x2fbc…2fd5 at0013 = ╱ec╱,╱ // 0x2fcf @0x13
0x2fbc…2fd5 at0014 = ╱4b╱K╱ // 0x2fd0 @0x14
0x2fbc…2fd5 at0015 = ╱31╱1╱ // 0x2fd1 @0x15
0x2fbc…2fd5 at0016 = ╱ef╱$╱ // 0x2fd2 @0x16
0x2fbc…2fd5 at0017 = ╱ee╱)╱ // 0x2fd3 @0x17
0x2fbc…2fd5 at0018 = EOL // 0x2fd4 @0x18
0x2fbc…2fd5 }
0x2fd5…2fea bd41 5350 GET K1$,16:K6$
0x2fd5…2fea LineComalBin {
0x2fd5…2fea ptr = 0xbd41 // 0x2fd5 @0x0
0x2fd5…2fea lno = 0x14e6 // 0x2fd7 @0x2
0x2fd5…2fea at0004 = ╱a9╱ GET ╱ // 0x2fd9 @0x4
0x2fd5…2fea at0005 = ╱4b╱K╱ // 0x2fda @0x5
0x2fd5…2fea at0006 = ╱31╱1╱ // 0x2fdb @0x6
0x2fd5…2fea at0007 = ╱ef╱$╱ // 0x2fdc @0x7
0x2fd5…2fea at0008 = ╱ec╱,╱ // 0x2fdd @0x8
0x2fd5…2fea at0009 = ╱31╱1╱ // 0x2fde @0x9
0x2fd5…2fea at000a = ╱36╱6╱ // 0x2fdf @0xa
0x2fd5…2fea at000b = ╱fe00008005╱ // 0x2fe0 @0xb
0x2fd5…2fea at0010 = ╱f0╱:╱ // 0x2fe5 @0x10
0x2fd5…2fea at0011 = ╱4b╱K╱ // 0x2fe6 @0x11
0x2fd5…2fea at0012 = ╱36╱6╱ // 0x2fe7 @0x12
0x2fd5…2fea at0013 = ╱ef╱$╱ // 0x2fe8 @0x13
0x2fd5…2fea at0014 = EOL // 0x2fe9 @0x14
0x2fd5…2fea }
0x2fea…3003 bd5a 5360 EXEC FEJL(W,12,K1$)
0x2fea…3003 LineComalBin {
0x2fea…3003 ptr = 0xbd5a // 0x2fea @0x0
0x2fea…3003 lno = 0x14f0 // 0x2fec @0x2
0x2fea…3003 at0004 = ╱9d╱ EXEC ╱ // 0x2fee @0x4
0x2fea…3003 at0005 = ╱46╱F╱ // 0x2fef @0x5
0x2fea…3003 at0006 = ╱45╱E╱ // 0x2ff0 @0x6
0x2fea…3003 at0007 = ╱4a╱J╱ // 0x2ff1 @0x7
0x2fea…3003 at0008 = ╱4c╱L╱ // 0x2ff2 @0x8
0x2fea…3003 at0009 = ╱ed╱(╱ // 0x2ff3 @0x9
0x2fea…3003 at000a = ╱57╱W╱ // 0x2ff4 @0xa
0x2fea…3003 at000b = ╱ec╱,╱ // 0x2ff5 @0xb
0x2fea…3003 at000c = ╱31╱1╱ // 0x2ff6 @0xc
0x2fea…3003 at000d = ╱32╱2╱ // 0x2ff7 @0xd
0x2fea…3003 at000e = ╱fe0000c004╱ // 0x2ff8 @0xe
0x2fea…3003 at0013 = ╱ec╱,╱ // 0x2ffd @0x13
0x2fea…3003 at0014 = ╱4b╱K╱ // 0x2ffe @0x14
0x2fea…3003 at0015 = ╱31╱1╱ // 0x2fff @0x15
0x2fea…3003 at0016 = ╱ef╱$╱ // 0x3000 @0x16
0x2fea…3003 at0017 = ╱ee╱)╱ // 0x3001 @0x17
0x2fea…3003 at0018 = EOL // 0x3002 @0x18
0x2fea…3003 }
0x3003…3018 bd6f 5370 GET K1$,17:K7$
0x3003…3018 LineComalBin {
0x3003…3018 ptr = 0xbd6f // 0x3003 @0x0
0x3003…3018 lno = 0x14fa // 0x3005 @0x2
0x3003…3018 at0004 = ╱a9╱ GET ╱ // 0x3007 @0x4
0x3003…3018 at0005 = ╱4b╱K╱ // 0x3008 @0x5
0x3003…3018 at0006 = ╱31╱1╱ // 0x3009 @0x6
0x3003…3018 at0007 = ╱ef╱$╱ // 0x300a @0x7
0x3003…3018 at0008 = ╱ec╱,╱ // 0x300b @0x8
0x3003…3018 at0009 = ╱31╱1╱ // 0x300c @0x9
0x3003…3018 at000a = ╱37╱7╱ // 0x300d @0xa
0x3003…3018 at000b = ╱fe00008805╱ // 0x300e @0xb
0x3003…3018 at0010 = ╱f0╱:╱ // 0x3013 @0x10
0x3003…3018 at0011 = ╱4b╱K╱ // 0x3014 @0x11
0x3003…3018 at0012 = ╱37╱7╱ // 0x3015 @0x12
0x3003…3018 at0013 = ╱ef╱$╱ // 0x3016 @0x13
0x3003…3018 at0014 = EOL // 0x3017 @0x14
0x3003…3018 }
0x3018…3031 bd88 5380 EXEC FEJL(W,13,K1$)
0x3018…3031 LineComalBin {
0x3018…3031 ptr = 0xbd88 // 0x3018 @0x0
0x3018…3031 lno = 0x1504 // 0x301a @0x2
0x3018…3031 at0004 = ╱9d╱ EXEC ╱ // 0x301c @0x4
0x3018…3031 at0005 = ╱46╱F╱ // 0x301d @0x5
0x3018…3031 at0006 = ╱45╱E╱ // 0x301e @0x6
0x3018…3031 at0007 = ╱4a╱J╱ // 0x301f @0x7
0x3018…3031 at0008 = ╱4c╱L╱ // 0x3020 @0x8
0x3018…3031 at0009 = ╱ed╱(╱ // 0x3021 @0x9
0x3018…3031 at000a = ╱57╱W╱ // 0x3022 @0xa
0x3018…3031 at000b = ╱ec╱,╱ // 0x3023 @0xb
0x3018…3031 at000c = ╱31╱1╱ // 0x3024 @0xc
0x3018…3031 at000d = ╱33╱3╱ // 0x3025 @0xd
0x3018…3031 at000e = ╱fe0000d004╱ // 0x3026 @0xe
0x3018…3031 at0013 = ╱ec╱,╱ // 0x302b @0x13
0x3018…3031 at0014 = ╱4b╱K╱ // 0x302c @0x14
0x3018…3031 at0015 = ╱31╱1╱ // 0x302d @0x15
0x3018…3031 at0016 = ╱ef╱$╱ // 0x302e @0x16
0x3018…3031 at0017 = ╱ee╱)╱ // 0x302f @0x17
0x3018…3031 at0018 = EOL // 0x3030 @0x18
0x3018…3031 }
0x3031…3046 bd9d 5390 GET K1$,25:K8$
0x3031…3046 LineComalBin {
0x3031…3046 ptr = 0xbd9d // 0x3031 @0x0
0x3031…3046 lno = 0x150e // 0x3033 @0x2
0x3031…3046 at0004 = ╱a9╱ GET ╱ // 0x3035 @0x4
0x3031…3046 at0005 = ╱4b╱K╱ // 0x3036 @0x5
0x3031…3046 at0006 = ╱31╱1╱ // 0x3037 @0x6
0x3031…3046 at0007 = ╱ef╱$╱ // 0x3038 @0x7
0x3031…3046 at0008 = ╱ec╱,╱ // 0x3039 @0x8
0x3031…3046 at0009 = ╱32╱2╱ // 0x303a @0x9
0x3031…3046 at000a = ╱35╱5╱ // 0x303b @0xa
0x3031…3046 at000b = ╱fe0000c805╱ // 0x303c @0xb
0x3031…3046 at0010 = ╱f0╱:╱ // 0x3041 @0x10
0x3031…3046 at0011 = ╱4b╱K╱ // 0x3042 @0x11
0x3031…3046 at0012 = ╱38╱8╱ // 0x3043 @0x12
0x3031…3046 at0013 = ╱ef╱$╱ // 0x3044 @0x13
0x3031…3046 at0014 = EOL // 0x3045 @0x14
0x3031…3046 }
0x3046…305f bdb6 5400 EXEC FEJL(W,14,K1$)
0x3046…305f LineComalBin {
0x3046…305f ptr = 0xbdb6 // 0x3046 @0x0
0x3046…305f lno = 0x1518 // 0x3048 @0x2
0x3046…305f at0004 = ╱9d╱ EXEC ╱ // 0x304a @0x4
0x3046…305f at0005 = ╱46╱F╱ // 0x304b @0x5
0x3046…305f at0006 = ╱45╱E╱ // 0x304c @0x6
0x3046…305f at0007 = ╱4a╱J╱ // 0x304d @0x7
0x3046…305f at0008 = ╱4c╱L╱ // 0x304e @0x8
0x3046…305f at0009 = ╱ed╱(╱ // 0x304f @0x9
0x3046…305f at000a = ╱57╱W╱ // 0x3050 @0xa
0x3046…305f at000b = ╱ec╱,╱ // 0x3051 @0xb
0x3046…305f at000c = ╱31╱1╱ // 0x3052 @0xc
0x3046…305f at000d = ╱34╱4╱ // 0x3053 @0xd
0x3046…305f at000e = ╱fe0000e004╱ // 0x3054 @0xe
0x3046…305f at0013 = ╱ec╱,╱ // 0x3059 @0x13
0x3046…305f at0014 = ╱4b╱K╱ // 0x305a @0x14
0x3046…305f at0015 = ╱31╱1╱ // 0x305b @0x15
0x3046…305f at0016 = ╱ef╱$╱ // 0x305c @0x16
0x3046…305f at0017 = ╱ee╱)╱ // 0x305d @0x17
0x3046…305f at0018 = EOL // 0x305e @0x18
0x3046…305f }
0x305f…3074 bdcb 5410 GET K1$,26:K9$
0x305f…3074 LineComalBin {
0x305f…3074 ptr = 0xbdcb // 0x305f @0x0
0x305f…3074 lno = 0x1522 // 0x3061 @0x2
0x305f…3074 at0004 = ╱a9╱ GET ╱ // 0x3063 @0x4
0x305f…3074 at0005 = ╱4b╱K╱ // 0x3064 @0x5
0x305f…3074 at0006 = ╱31╱1╱ // 0x3065 @0x6
0x305f…3074 at0007 = ╱ef╱$╱ // 0x3066 @0x7
0x305f…3074 at0008 = ╱ec╱,╱ // 0x3067 @0x8
0x305f…3074 at0009 = ╱32╱2╱ // 0x3068 @0x9
0x305f…3074 at000a = ╱36╱6╱ // 0x3069 @0xa
0x305f…3074 at000b = ╱fe0000d005╱ // 0x306a @0xb
0x305f…3074 at0010 = ╱f0╱:╱ // 0x306f @0x10
0x305f…3074 at0011 = ╱4b╱K╱ // 0x3070 @0x11
0x305f…3074 at0012 = ╱39╱9╱ // 0x3071 @0x12
0x305f…3074 at0013 = ╱ef╱$╱ // 0x3072 @0x13
0x305f…3074 at0014 = EOL // 0x3073 @0x14
0x305f…3074 }
0x3074…308d bde4 5420 EXEC FEJL(W,15,K1$)
0x3074…308d LineComalBin {
0x3074…308d ptr = 0xbde4 // 0x3074 @0x0
0x3074…308d lno = 0x152c // 0x3076 @0x2
0x3074…308d at0004 = ╱9d╱ EXEC ╱ // 0x3078 @0x4
0x3074…308d at0005 = ╱46╱F╱ // 0x3079 @0x5
0x3074…308d at0006 = ╱45╱E╱ // 0x307a @0x6
0x3074…308d at0007 = ╱4a╱J╱ // 0x307b @0x7
0x3074…308d at0008 = ╱4c╱L╱ // 0x307c @0x8
0x3074…308d at0009 = ╱ed╱(╱ // 0x307d @0x9
0x3074…308d at000a = ╱57╱W╱ // 0x307e @0xa
0x3074…308d at000b = ╱ec╱,╱ // 0x307f @0xb
0x3074…308d at000c = ╱31╱1╱ // 0x3080 @0xc
0x3074…308d at000d = ╱35╱5╱ // 0x3081 @0xd
0x3074…308d at000e = ╱fe0000f004╱ // 0x3082 @0xe
0x3074…308d at0013 = ╱ec╱,╱ // 0x3087 @0x13
0x3074…308d at0014 = ╱4b╱K╱ // 0x3088 @0x14
0x3074…308d at0015 = ╱31╱1╱ // 0x3089 @0x15
0x3074…308d at0016 = ╱ef╱$╱ // 0x308a @0x16
0x3074…308d at0017 = ╱ee╱)╱ // 0x308b @0x17
0x3074…308d at0018 = EOL // 0x308c @0x18
0x3074…308d }
0x308d…30a3 bdfa 5430 GET K1$,27:K10$
0x308d…30a3 LineComalBin {
0x308d…30a3 ptr = 0xbdfa // 0x308d @0x0
0x308d…30a3 lno = 0x1536 // 0x308f @0x2
0x308d…30a3 at0004 = ╱a9╱ GET ╱ // 0x3091 @0x4
0x308d…30a3 at0005 = ╱4b╱K╱ // 0x3092 @0x5
0x308d…30a3 at0006 = ╱31╱1╱ // 0x3093 @0x6
0x308d…30a3 at0007 = ╱ef╱$╱ // 0x3094 @0x7
0x308d…30a3 at0008 = ╱ec╱,╱ // 0x3095 @0x8
0x308d…30a3 at0009 = ╱32╱2╱ // 0x3096 @0x9
0x308d…30a3 at000a = ╱37╱7╱ // 0x3097 @0xa
0x308d…30a3 at000b = ╱fe0000d805╱ // 0x3098 @0xb
0x308d…30a3 at0010 = ╱f0╱:╱ // 0x309d @0x10
0x308d…30a3 at0011 = ╱4b╱K╱ // 0x309e @0x11
0x308d…30a3 at0012 = ╱31╱1╱ // 0x309f @0x12
0x308d…30a3 at0013 = ╱30╱0╱ // 0x30a0 @0x13
0x308d…30a3 at0014 = ╱ef╱$╱ // 0x30a1 @0x14
0x308d…30a3 at0015 = EOL // 0x30a2 @0x15
0x308d…30a3 }
0x30a3…30bc be13 5440 EXEC FEJL(W,16,K1$)
0x30a3…30bc LineComalBin {
0x30a3…30bc ptr = 0xbe13 // 0x30a3 @0x0
0x30a3…30bc lno = 0x1540 // 0x30a5 @0x2
0x30a3…30bc at0004 = ╱9d╱ EXEC ╱ // 0x30a7 @0x4
0x30a3…30bc at0005 = ╱46╱F╱ // 0x30a8 @0x5
0x30a3…30bc at0006 = ╱45╱E╱ // 0x30a9 @0x6
0x30a3…30bc at0007 = ╱4a╱J╱ // 0x30aa @0x7
0x30a3…30bc at0008 = ╱4c╱L╱ // 0x30ab @0x8
0x30a3…30bc at0009 = ╱ed╱(╱ // 0x30ac @0x9
0x30a3…30bc at000a = ╱57╱W╱ // 0x30ad @0xa
0x30a3…30bc at000b = ╱ec╱,╱ // 0x30ae @0xb
0x30a3…30bc at000c = ╱31╱1╱ // 0x30af @0xc
0x30a3…30bc at000d = ╱36╱6╱ // 0x30b0 @0xd
0x30a3…30bc at000e = ╱fe00008005╱ // 0x30b1 @0xe
0x30a3…30bc at0013 = ╱ec╱,╱ // 0x30b6 @0x13
0x30a3…30bc at0014 = ╱4b╱K╱ // 0x30b7 @0x14
0x30a3…30bc at0015 = ╱31╱1╱ // 0x30b8 @0x15
0x30a3…30bc at0016 = ╱ef╱$╱ // 0x30b9 @0x16
0x30a3…30bc at0017 = ╱ee╱)╱ // 0x30ba @0x17
0x30a3…30bc at0018 = EOL // 0x30bb @0x18
0x30a3…30bc }
0x30bc…30d2 be29 5450 GET K1$,32:K11$
0x30bc…30d2 LineComalBin {
0x30bc…30d2 ptr = 0xbe29 // 0x30bc @0x0
0x30bc…30d2 lno = 0x154a // 0x30be @0x2
0x30bc…30d2 at0004 = ╱a9╱ GET ╱ // 0x30c0 @0x4
0x30bc…30d2 at0005 = ╱4b╱K╱ // 0x30c1 @0x5
0x30bc…30d2 at0006 = ╱31╱1╱ // 0x30c2 @0x6
0x30bc…30d2 at0007 = ╱ef╱$╱ // 0x30c3 @0x7
0x30bc…30d2 at0008 = ╱ec╱,╱ // 0x30c4 @0x8
0x30bc…30d2 at0009 = ╱33╱3╱ // 0x30c5 @0x9
0x30bc…30d2 at000a = ╱32╱2╱ // 0x30c6 @0xa
0x30bc…30d2 at000b = ╱fe00008006╱ // 0x30c7 @0xb
0x30bc…30d2 at0010 = ╱f0╱:╱ // 0x30cc @0x10
0x30bc…30d2 at0011 = ╱4b╱K╱ // 0x30cd @0x11
0x30bc…30d2 at0012 = ╱31╱1╱ // 0x30ce @0x12
0x30bc…30d2 at0013 = ╱31╱1╱ // 0x30cf @0x13
0x30bc…30d2 at0014 = ╱ef╱$╱ // 0x30d0 @0x14
0x30bc…30d2 at0015 = EOL // 0x30d1 @0x15
0x30bc…30d2 }
0x30d2…30eb be42 5460 EXEC FEJL(W,17,K1$)
0x30d2…30eb LineComalBin {
0x30d2…30eb ptr = 0xbe42 // 0x30d2 @0x0
0x30d2…30eb lno = 0x1554 // 0x30d4 @0x2
0x30d2…30eb at0004 = ╱9d╱ EXEC ╱ // 0x30d6 @0x4
0x30d2…30eb at0005 = ╱46╱F╱ // 0x30d7 @0x5
0x30d2…30eb at0006 = ╱45╱E╱ // 0x30d8 @0x6
0x30d2…30eb at0007 = ╱4a╱J╱ // 0x30d9 @0x7
0x30d2…30eb at0008 = ╱4c╱L╱ // 0x30da @0x8
0x30d2…30eb at0009 = ╱ed╱(╱ // 0x30db @0x9
0x30d2…30eb at000a = ╱57╱W╱ // 0x30dc @0xa
0x30d2…30eb at000b = ╱ec╱,╱ // 0x30dd @0xb
0x30d2…30eb at000c = ╱31╱1╱ // 0x30de @0xc
0x30d2…30eb at000d = ╱37╱7╱ // 0x30df @0xd
0x30d2…30eb at000e = ╱fe00008805╱ // 0x30e0 @0xe
0x30d2…30eb at0013 = ╱ec╱,╱ // 0x30e5 @0x13
0x30d2…30eb at0014 = ╱4b╱K╱ // 0x30e6 @0x14
0x30d2…30eb at0015 = ╱31╱1╱ // 0x30e7 @0x15
0x30d2…30eb at0016 = ╱ef╱$╱ // 0x30e8 @0x16
0x30d2…30eb at0017 = ╱ee╱)╱ // 0x30e9 @0x17
0x30d2…30eb at0018 = EOL // 0x30ea @0x18
0x30d2…30eb }
0x30eb…3101 be58 5470 GET K1$,33:K12$
0x30eb…3101 LineComalBin {
0x30eb…3101 ptr = 0xbe58 // 0x30eb @0x0
0x30eb…3101 lno = 0x155e // 0x30ed @0x2
0x30eb…3101 at0004 = ╱a9╱ GET ╱ // 0x30ef @0x4
0x30eb…3101 at0005 = ╱4b╱K╱ // 0x30f0 @0x5
0x30eb…3101 at0006 = ╱31╱1╱ // 0x30f1 @0x6
0x30eb…3101 at0007 = ╱ef╱$╱ // 0x30f2 @0x7
0x30eb…3101 at0008 = ╱ec╱,╱ // 0x30f3 @0x8
0x30eb…3101 at0009 = ╱33╱3╱ // 0x30f4 @0x9
0x30eb…3101 at000a = ╱33╱3╱ // 0x30f5 @0xa
0x30eb…3101 at000b = ╱fe00008406╱ // 0x30f6 @0xb
0x30eb…3101 at0010 = ╱f0╱:╱ // 0x30fb @0x10
0x30eb…3101 at0011 = ╱4b╱K╱ // 0x30fc @0x11
0x30eb…3101 at0012 = ╱31╱1╱ // 0x30fd @0x12
0x30eb…3101 at0013 = ╱32╱2╱ // 0x30fe @0x13
0x30eb…3101 at0014 = ╱ef╱$╱ // 0x30ff @0x14
0x30eb…3101 at0015 = EOL // 0x3100 @0x15
0x30eb…3101 }
0x3101…311a be71 5480 EXEC FEJL(W,18,K1$)
0x3101…311a LineComalBin {
0x3101…311a ptr = 0xbe71 // 0x3101 @0x0
0x3101…311a lno = 0x1568 // 0x3103 @0x2
0x3101…311a at0004 = ╱9d╱ EXEC ╱ // 0x3105 @0x4
0x3101…311a at0005 = ╱46╱F╱ // 0x3106 @0x5
0x3101…311a at0006 = ╱45╱E╱ // 0x3107 @0x6
0x3101…311a at0007 = ╱4a╱J╱ // 0x3108 @0x7
0x3101…311a at0008 = ╱4c╱L╱ // 0x3109 @0x8
0x3101…311a at0009 = ╱ed╱(╱ // 0x310a @0x9
0x3101…311a at000a = ╱57╱W╱ // 0x310b @0xa
0x3101…311a at000b = ╱ec╱,╱ // 0x310c @0xb
0x3101…311a at000c = ╱31╱1╱ // 0x310d @0xc
0x3101…311a at000d = ╱38╱8╱ // 0x310e @0xd
0x3101…311a at000e = ╱fe00009005╱ // 0x310f @0xe
0x3101…311a at0013 = ╱ec╱,╱ // 0x3114 @0x13
0x3101…311a at0014 = ╱4b╱K╱ // 0x3115 @0x14
0x3101…311a at0015 = ╱31╱1╱ // 0x3116 @0x15
0x3101…311a at0016 = ╱ef╱$╱ // 0x3117 @0x16
0x3101…311a at0017 = ╱ee╱)╱ // 0x3118 @0x17
0x3101…311a at0018 = EOL // 0x3119 @0x18
0x3101…311a }
0x311a…3130 be87 5490 GET K1$,34:K13$
0x311a…3130 LineComalBin {
0x311a…3130 ptr = 0xbe87 // 0x311a @0x0
0x311a…3130 lno = 0x1572 // 0x311c @0x2
0x311a…3130 at0004 = ╱a9╱ GET ╱ // 0x311e @0x4
0x311a…3130 at0005 = ╱4b╱K╱ // 0x311f @0x5
0x311a…3130 at0006 = ╱31╱1╱ // 0x3120 @0x6
0x311a…3130 at0007 = ╱ef╱$╱ // 0x3121 @0x7
0x311a…3130 at0008 = ╱ec╱,╱ // 0x3122 @0x8
0x311a…3130 at0009 = ╱33╱3╱ // 0x3123 @0x9
0x311a…3130 at000a = ╱34╱4╱ // 0x3124 @0xa
0x311a…3130 at000b = ╱fe00008806╱ // 0x3125 @0xb
0x311a…3130 at0010 = ╱f0╱:╱ // 0x312a @0x10
0x311a…3130 at0011 = ╱4b╱K╱ // 0x312b @0x11
0x311a…3130 at0012 = ╱31╱1╱ // 0x312c @0x12
0x311a…3130 at0013 = ╱33╱3╱ // 0x312d @0x13
0x311a…3130 at0014 = ╱ef╱$╱ // 0x312e @0x14
0x311a…3130 at0015 = EOL // 0x312f @0x15
0x311a…3130 }
0x3130…3149 bea0 5500 EXEC FEJL(W,19,K1$)
0x3130…3149 LineComalBin {
0x3130…3149 ptr = 0xbea0 // 0x3130 @0x0
0x3130…3149 lno = 0x157c // 0x3132 @0x2
0x3130…3149 at0004 = ╱9d╱ EXEC ╱ // 0x3134 @0x4
0x3130…3149 at0005 = ╱46╱F╱ // 0x3135 @0x5
0x3130…3149 at0006 = ╱45╱E╱ // 0x3136 @0x6
0x3130…3149 at0007 = ╱4a╱J╱ // 0x3137 @0x7
0x3130…3149 at0008 = ╱4c╱L╱ // 0x3138 @0x8
0x3130…3149 at0009 = ╱ed╱(╱ // 0x3139 @0x9
0x3130…3149 at000a = ╱57╱W╱ // 0x313a @0xa
0x3130…3149 at000b = ╱ec╱,╱ // 0x313b @0xb
0x3130…3149 at000c = ╱31╱1╱ // 0x313c @0xc
0x3130…3149 at000d = ╱39╱9╱ // 0x313d @0xd
0x3130…3149 at000e = ╱fe00009805╱ // 0x313e @0xe
0x3130…3149 at0013 = ╱ec╱,╱ // 0x3143 @0x13
0x3130…3149 at0014 = ╱4b╱K╱ // 0x3144 @0x14
0x3130…3149 at0015 = ╱31╱1╱ // 0x3145 @0x15
0x3130…3149 at0016 = ╱ef╱$╱ // 0x3146 @0x16
0x3130…3149 at0017 = ╱ee╱)╱ // 0x3147 @0x17
0x3130…3149 at0018 = EOL // 0x3148 @0x18
0x3130…3149 }
0x3149…315f beb6 5510 GET K1$,36:K14$
0x3149…315f LineComalBin {
0x3149…315f ptr = 0xbeb6 // 0x3149 @0x0
0x3149…315f lno = 0x1586 // 0x314b @0x2
0x3149…315f at0004 = ╱a9╱ GET ╱ // 0x314d @0x4
0x3149…315f at0005 = ╱4b╱K╱ // 0x314e @0x5
0x3149…315f at0006 = ╱31╱1╱ // 0x314f @0x6
0x3149…315f at0007 = ╱ef╱$╱ // 0x3150 @0x7
0x3149…315f at0008 = ╱ec╱,╱ // 0x3151 @0x8
0x3149…315f at0009 = ╱33╱3╱ // 0x3152 @0x9
0x3149…315f at000a = ╱36╱6╱ // 0x3153 @0xa
0x3149…315f at000b = ╱fe00009006╱ // 0x3154 @0xb
0x3149…315f at0010 = ╱f0╱:╱ // 0x3159 @0x10
0x3149…315f at0011 = ╱4b╱K╱ // 0x315a @0x11
0x3149…315f at0012 = ╱31╱1╱ // 0x315b @0x12
0x3149…315f at0013 = ╱34╱4╱ // 0x315c @0x13
0x3149…315f at0014 = ╱ef╱$╱ // 0x315d @0x14
0x3149…315f at0015 = EOL // 0x315e @0x15
0x3149…315f }
0x315f…3178 becf 5520 EXEC FEJL(W,20,K1$)
0x315f…3178 LineComalBin {
0x315f…3178 ptr = 0xbecf // 0x315f @0x0
0x315f…3178 lno = 0x1590 // 0x3161 @0x2
0x315f…3178 at0004 = ╱9d╱ EXEC ╱ // 0x3163 @0x4
0x315f…3178 at0005 = ╱46╱F╱ // 0x3164 @0x5
0x315f…3178 at0006 = ╱45╱E╱ // 0x3165 @0x6
0x315f…3178 at0007 = ╱4a╱J╱ // 0x3166 @0x7
0x315f…3178 at0008 = ╱4c╱L╱ // 0x3167 @0x8
0x315f…3178 at0009 = ╱ed╱(╱ // 0x3168 @0x9
0x315f…3178 at000a = ╱57╱W╱ // 0x3169 @0xa
0x315f…3178 at000b = ╱ec╱,╱ // 0x316a @0xb
0x315f…3178 at000c = ╱32╱2╱ // 0x316b @0xc
0x315f…3178 at000d = ╱30╱0╱ // 0x316c @0xd
0x315f…3178 at000e = ╱fe0000a005╱ // 0x316d @0xe
0x315f…3178 at0013 = ╱ec╱,╱ // 0x3172 @0x13
0x315f…3178 at0014 = ╱4b╱K╱ // 0x3173 @0x14
0x315f…3178 at0015 = ╱31╱1╱ // 0x3174 @0x15
0x315f…3178 at0016 = ╱ef╱$╱ // 0x3175 @0x16
0x315f…3178 at0017 = ╱ee╱)╱ // 0x3176 @0x17
0x315f…3178 at0018 = EOL // 0x3177 @0x18
0x315f…3178 }
0x3178…3181 bed8 5530 CLOSE K1$
0x3178…3181 LineComalBin {
0x3178…3181 ptr = 0xbed8 // 0x3178 @0x0
0x3178…3181 lno = 0x159a // 0x317a @0x2
0x3178…3181 at0004 = ╱a8╱ CLOSE ╱ // 0x317c @0x4
0x3178…3181 at0005 = ╱4b╱K╱ // 0x317d @0x5
0x3178…3181 at0006 = ╱31╱1╱ // 0x317e @0x6
0x3178…3181 at0007 = ╱ef╱$╱ // 0x317f @0x7
0x3178…3181 at0008 = EOL // 0x3180 @0x8
0x3178…3181 }
0x3181…319a bef1 5540 EXEC FEJL(W,21,K1$)
0x3181…319a LineComalBin {
0x3181…319a ptr = 0xbef1 // 0x3181 @0x0
0x3181…319a lno = 0x15a4 // 0x3183 @0x2
0x3181…319a at0004 = ╱9d╱ EXEC ╱ // 0x3185 @0x4
0x3181…319a at0005 = ╱46╱F╱ // 0x3186 @0x5
0x3181…319a at0006 = ╱45╱E╱ // 0x3187 @0x6
0x3181…319a at0007 = ╱4a╱J╱ // 0x3188 @0x7
0x3181…319a at0008 = ╱4c╱L╱ // 0x3189 @0x8
0x3181…319a at0009 = ╱ed╱(╱ // 0x318a @0x9
0x3181…319a at000a = ╱57╱W╱ // 0x318b @0xa
0x3181…319a at000b = ╱ec╱,╱ // 0x318c @0xb
0x3181…319a at000c = ╱32╱2╱ // 0x318d @0xc
0x3181…319a at000d = ╱31╱1╱ // 0x318e @0xd
0x3181…319a at000e = ╱fe0000a805╱ // 0x318f @0xe
0x3181…319a at0013 = ╱ec╱,╱ // 0x3194 @0x13
0x3181…319a at0014 = ╱4b╱K╱ // 0x3195 @0x14
0x3181…319a at0015 = ╱31╱1╱ // 0x3196 @0x15
0x3181…319a at0016 = ╱ef╱$╱ // 0x3197 @0x16
0x3181…319a at0017 = ╱ee╱)╱ // 0x3198 @0x17
0x3181…319a at0018 = EOL // 0x3199 @0x18
0x3181…319a }
0x319a…31e0 bf37 5550 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$
0x319a…31e0 LineComalBin {
0x319a…31e0 ptr = 0xbf37 // 0x319a @0x0
0x319a…31e0 lno = 0x15ae // 0x319c @0x2
0x319a…31e0 at0004 = ╱4b╱K╱ // 0x319e @0x4
0x319a…31e0 at0005 = ╱32╱2╱ // 0x319f @0x5
0x319a…31e0 at0006 = ╱ef╱$╱ // 0x31a0 @0x6
0x319a…31e0 at0007 = ╱dc╱=╱ // 0x31a1 @0x7
0x319a…31e0 at0008 = ╱4e╱N╱ // 0x31a2 @0x8
0x319a…31e0 at0009 = ╱ef╱$╱ // 0x31a3 @0x9
0x319a…31e0 at000a = ╱f1╱+╱ // 0x31a4 @0xa
0x319a…31e0 at000b = ╱4b╱K╱ // 0x31a5 @0xb
0x319a…31e0 at000c = ╱32╱2╱ // 0x31a6 @0xc
0x319a…31e0 at000d = ╱ef╱$╱ // 0x31a7 @0xd
0x319a…31e0 at000e = ╱eb╱;╱ // 0x31a8 @0xe
0x319a…31e0 at000f = ╱4b╱K╱ // 0x31a9 @0xf
0x319a…31e0 at0010 = ╱33╱3╱ // 0x31aa @0x10
0x319a…31e0 at0011 = ╱ef╱$╱ // 0x31ab @0x11
0x319a…31e0 at0012 = ╱dc╱=╱ // 0x31ac @0x12
0x319a…31e0 at0013 = ╱4e╱N╱ // 0x31ad @0x13
0x319a…31e0 at0014 = ╱ef╱$╱ // 0x31ae @0x14
0x319a…31e0 at0015 = ╱f1╱+╱ // 0x31af @0x15
0x319a…31e0 at0016 = ╱4b╱K╱ // 0x31b0 @0x16
0x319a…31e0 at0017 = ╱33╱3╱ // 0x31b1 @0x17
0x319a…31e0 at0018 = ╱ef╱$╱ // 0x31b2 @0x18
0x319a…31e0 at0019 = ╱eb╱;╱ // 0x31b3 @0x19
0x319a…31e0 at001a = ╱4b╱K╱ // 0x31b4 @0x1a
0x319a…31e0 at001b = ╱34╱4╱ // 0x31b5 @0x1b
0x319a…31e0 at001c = ╱ef╱$╱ // 0x31b6 @0x1c
0x319a…31e0 at001d = ╱dc╱=╱ // 0x31b7 @0x1d
0x319a…31e0 at001e = ╱4e╱N╱ // 0x31b8 @0x1e
0x319a…31e0 at001f = ╱ef╱$╱ // 0x31b9 @0x1f
0x319a…31e0 at0020 = ╱f1╱+╱ // 0x31ba @0x20
0x319a…31e0 at0021 = ╱4b╱K╱ // 0x31bb @0x21
0x319a…31e0 at0022 = ╱34╱4╱ // 0x31bc @0x22
0x319a…31e0 at0023 = ╱ef╱$╱ // 0x31bd @0x23
0x319a…31e0 at0024 = ╱eb╱;╱ // 0x31be @0x24
0x319a…31e0 at0025 = ╱4b╱K╱ // 0x31bf @0x25
0x319a…31e0 at0026 = ╱35╱5╱ // 0x31c0 @0x26
0x319a…31e0 at0027 = ╱ef╱$╱ // 0x31c1 @0x27
0x319a…31e0 at0028 = ╱dc╱=╱ // 0x31c2 @0x28
0x319a…31e0 at0029 = ╱4e╱N╱ // 0x31c3 @0x29
0x319a…31e0 at002a = ╱ef╱$╱ // 0x31c4 @0x2a
0x319a…31e0 at002b = ╱f1╱+╱ // 0x31c5 @0x2b
0x319a…31e0 at002c = ╱4b╱K╱ // 0x31c6 @0x2c
0x319a…31e0 at002d = ╱35╱5╱ // 0x31c7 @0x2d
0x319a…31e0 at002e = ╱ef╱$╱ // 0x31c8 @0x2e
0x319a…31e0 at002f = ╱eb╱;╱ // 0x31c9 @0x2f
0x319a…31e0 at0030 = ╱4b╱K╱ // 0x31ca @0x30
0x319a…31e0 at0031 = ╱36╱6╱ // 0x31cb @0x31
0x319a…31e0 at0032 = ╱ef╱$╱ // 0x31cc @0x32
0x319a…31e0 at0033 = ╱dc╱=╱ // 0x31cd @0x33
0x319a…31e0 at0034 = ╱4e╱N╱ // 0x31ce @0x34
0x319a…31e0 at0035 = ╱ef╱$╱ // 0x31cf @0x35
0x319a…31e0 at0036 = ╱f1╱+╱ // 0x31d0 @0x36
0x319a…31e0 at0037 = ╱4b╱K╱ // 0x31d1 @0x37
0x319a…31e0 at0038 = ╱36╱6╱ // 0x31d2 @0x38
0x319a…31e0 at0039 = ╱ef╱$╱ // 0x31d3 @0x39
0x319a…31e0 at003a = ╱eb╱;╱ // 0x31d4 @0x3a
0x319a…31e0 at003b = ╱4b╱K╱ // 0x31d5 @0x3b
0x319a…31e0 at003c = ╱37╱7╱ // 0x31d6 @0x3c
0x319a…31e0 at003d = ╱ef╱$╱ // 0x31d7 @0x3d
0x319a…31e0 at003e = ╱dc╱=╱ // 0x31d8 @0x3e
0x319a…31e0 at003f = ╱4e╱N╱ // 0x31d9 @0x3f
0x319a…31e0 at0040 = ╱ef╱$╱ // 0x31da @0x40
0x319a…31e0 at0041 = ╱f1╱+╱ // 0x31db @0x41
0x319a…31e0 at0042 = ╱4b╱K╱ // 0x31dc @0x42
0x319a…31e0 at0043 = ╱37╱7╱ // 0x31dd @0x43
0x319a…31e0 at0044 = ╱ef╱$╱ // 0x31de @0x44
0x319a…31e0 at0045 = EOL // 0x31df @0x45
0x319a…31e0 }
0x31e0…3221 bf78 5560 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$
0x31e0…3221 LineComalBin {
0x31e0…3221 ptr = 0xbf78 // 0x31e0 @0x0
0x31e0…3221 lno = 0x15b8 // 0x31e2 @0x2
0x31e0…3221 at0004 = ╱4b╱K╱ // 0x31e4 @0x4
0x31e0…3221 at0005 = ╱38╱8╱ // 0x31e5 @0x5
0x31e0…3221 at0006 = ╱ef╱$╱ // 0x31e6 @0x6
0x31e0…3221 at0007 = ╱dc╱=╱ // 0x31e7 @0x7
0x31e0…3221 at0008 = ╱4e╱N╱ // 0x31e8 @0x8
0x31e0…3221 at0009 = ╱ef╱$╱ // 0x31e9 @0x9
0x31e0…3221 at000a = ╱f1╱+╱ // 0x31ea @0xa
0x31e0…3221 at000b = ╱4b╱K╱ // 0x31eb @0xb
0x31e0…3221 at000c = ╱38╱8╱ // 0x31ec @0xc
0x31e0…3221 at000d = ╱ef╱$╱ // 0x31ed @0xd
0x31e0…3221 at000e = ╱eb╱;╱ // 0x31ee @0xe
0x31e0…3221 at000f = ╱4b╱K╱ // 0x31ef @0xf
0x31e0…3221 at0010 = ╱39╱9╱ // 0x31f0 @0x10
0x31e0…3221 at0011 = ╱ef╱$╱ // 0x31f1 @0x11
0x31e0…3221 at0012 = ╱dc╱=╱ // 0x31f2 @0x12
0x31e0…3221 at0013 = ╱4e╱N╱ // 0x31f3 @0x13
0x31e0…3221 at0014 = ╱ef╱$╱ // 0x31f4 @0x14
0x31e0…3221 at0015 = ╱f1╱+╱ // 0x31f5 @0x15
0x31e0…3221 at0016 = ╱4b╱K╱ // 0x31f6 @0x16
0x31e0…3221 at0017 = ╱39╱9╱ // 0x31f7 @0x17
0x31e0…3221 at0018 = ╱ef╱$╱ // 0x31f8 @0x18
0x31e0…3221 at0019 = ╱eb╱;╱ // 0x31f9 @0x19
0x31e0…3221 at001a = ╱4b╱K╱ // 0x31fa @0x1a
0x31e0…3221 at001b = ╱31╱1╱ // 0x31fb @0x1b
0x31e0…3221 at001c = ╱30╱0╱ // 0x31fc @0x1c
0x31e0…3221 at001d = ╱ef╱$╱ // 0x31fd @0x1d
0x31e0…3221 at001e = ╱dc╱=╱ // 0x31fe @0x1e
0x31e0…3221 at001f = ╱4e╱N╱ // 0x31ff @0x1f
0x31e0…3221 at0020 = ╱ef╱$╱ // 0x3200 @0x20
0x31e0…3221 at0021 = ╱f1╱+╱ // 0x3201 @0x21
0x31e0…3221 at0022 = ╱4b╱K╱ // 0x3202 @0x22
0x31e0…3221 at0023 = ╱31╱1╱ // 0x3203 @0x23
0x31e0…3221 at0024 = ╱30╱0╱ // 0x3204 @0x24
0x31e0…3221 at0025 = ╱ef╱$╱ // 0x3205 @0x25
0x31e0…3221 at0026 = ╱eb╱;╱ // 0x3206 @0x26
0x31e0…3221 at0027 = ╱4b╱K╱ // 0x3207 @0x27
0x31e0…3221 at0028 = ╱31╱1╱ // 0x3208 @0x28
0x31e0…3221 at0029 = ╱31╱1╱ // 0x3209 @0x29
0x31e0…3221 at002a = ╱ef╱$╱ // 0x320a @0x2a
0x31e0…3221 at002b = ╱dc╱=╱ // 0x320b @0x2b
0x31e0…3221 at002c = ╱4e╱N╱ // 0x320c @0x2c
0x31e0…3221 at002d = ╱ef╱$╱ // 0x320d @0x2d
0x31e0…3221 at002e = ╱f1╱+╱ // 0x320e @0x2e
0x31e0…3221 at002f = ╱4b╱K╱ // 0x320f @0x2f
0x31e0…3221 at0030 = ╱31╱1╱ // 0x3210 @0x30
0x31e0…3221 at0031 = ╱31╱1╱ // 0x3211 @0x31
0x31e0…3221 at0032 = ╱ef╱$╱ // 0x3212 @0x32
0x31e0…3221 at0033 = ╱eb╱;╱ // 0x3213 @0x33
0x31e0…3221 at0034 = ╱4b╱K╱ // 0x3214 @0x34
0x31e0…3221 at0035 = ╱31╱1╱ // 0x3215 @0x35
0x31e0…3221 at0036 = ╱32╱2╱ // 0x3216 @0x36
0x31e0…3221 at0037 = ╱ef╱$╱ // 0x3217 @0x37
0x31e0…3221 at0038 = ╱dc╱=╱ // 0x3218 @0x38
0x31e0…3221 at0039 = ╱4e╱N╱ // 0x3219 @0x39
0x31e0…3221 at003a = ╱ef╱$╱ // 0x321a @0x3a
0x31e0…3221 at003b = ╱f1╱+╱ // 0x321b @0x3b
0x31e0…3221 at003c = ╱4b╱K╱ // 0x321c @0x3c
0x31e0…3221 at003d = ╱31╱1╱ // 0x321d @0x3d
0x31e0…3221 at003e = ╱32╱2╱ // 0x321e @0x3e
0x31e0…3221 at003f = ╱ef╱$╱ // 0x321f @0x3f
0x31e0…3221 at0040 = EOL // 0x3220 @0x40
0x31e0…3221 }
0x3221…323f bf96 5570 K13$=N$+K13$;K14$=N$+K14$
0x3221…323f LineComalBin {
0x3221…323f ptr = 0xbf96 // 0x3221 @0x0
0x3221…323f lno = 0x15c2 // 0x3223 @0x2
0x3221…323f at0004 = ╱4b╱K╱ // 0x3225 @0x4
0x3221…323f at0005 = ╱31╱1╱ // 0x3226 @0x5
0x3221…323f at0006 = ╱33╱3╱ // 0x3227 @0x6
0x3221…323f at0007 = ╱ef╱$╱ // 0x3228 @0x7
0x3221…323f at0008 = ╱dc╱=╱ // 0x3229 @0x8
0x3221…323f at0009 = ╱4e╱N╱ // 0x322a @0x9
0x3221…323f at000a = ╱ef╱$╱ // 0x322b @0xa
0x3221…323f at000b = ╱f1╱+╱ // 0x322c @0xb
0x3221…323f at000c = ╱4b╱K╱ // 0x322d @0xc
0x3221…323f at000d = ╱31╱1╱ // 0x322e @0xd
0x3221…323f at000e = ╱33╱3╱ // 0x322f @0xe
0x3221…323f at000f = ╱ef╱$╱ // 0x3230 @0xf
0x3221…323f at0010 = ╱eb╱;╱ // 0x3231 @0x10
0x3221…323f at0011 = ╱4b╱K╱ // 0x3232 @0x11
0x3221…323f at0012 = ╱31╱1╱ // 0x3233 @0x12
0x3221…323f at0013 = ╱34╱4╱ // 0x3234 @0x13
0x3221…323f at0014 = ╱ef╱$╱ // 0x3235 @0x14
0x3221…323f at0015 = ╱dc╱=╱ // 0x3236 @0x15
0x3221…323f at0016 = ╱4e╱N╱ // 0x3237 @0x16
0x3221…323f at0017 = ╱ef╱$╱ // 0x3238 @0x17
0x3221…323f at0018 = ╱f1╱+╱ // 0x3239 @0x18
0x3221…323f at0019 = ╱4b╱K╱ // 0x323a @0x19
0x3221…323f at001a = ╱31╱1╱ // 0x323b @0x1a
0x3221…323f at001b = ╱34╱4╱ // 0x323c @0x1b
0x3221…323f at001c = ╱ef╱$╱ // 0x323d @0x1c
0x3221…323f at001d = EOL // 0x323e @0x1d
0x3221…323f }
0x323f…324b bfa2 5580 OPEN K14$,R
0x323f…324b LineComalBin {
0x323f…324b ptr = 0xbfa2 // 0x323f @0x0
0x323f…324b lno = 0x15cc // 0x3241 @0x2
0x323f…324b at0004 = ╱a7╱ OPEN ╱ // 0x3243 @0x4
0x323f…324b at0005 = ╱4b╱K╱ // 0x3244 @0x5
0x323f…324b at0006 = ╱31╱1╱ // 0x3245 @0x6
0x323f…324b at0007 = ╱34╱4╱ // 0x3246 @0x7
0x323f…324b at0008 = ╱ef╱$╱ // 0x3247 @0x8
0x323f…324b at0009 = ╱ec╱,╱ // 0x3248 @0x9
0x323f…324b at000a = ╱52╱R╱ // 0x3249 @0xa
0x323f…324b at000b = EOL // 0x324a @0xb
0x323f…324b }
0x324b…3265 bfbc 5590 EXEC FEJL(W,22,K14$)
0x324b…3265 LineComalBin {
0x324b…3265 ptr = 0xbfbc // 0x324b @0x0
0x324b…3265 lno = 0x15d6 // 0x324d @0x2
0x324b…3265 at0004 = ╱9d╱ EXEC ╱ // 0x324f @0x4
0x324b…3265 at0005 = ╱46╱F╱ // 0x3250 @0x5
0x324b…3265 at0006 = ╱45╱E╱ // 0x3251 @0x6
0x324b…3265 at0007 = ╱4a╱J╱ // 0x3252 @0x7
0x324b…3265 at0008 = ╱4c╱L╱ // 0x3253 @0x8
0x324b…3265 at0009 = ╱ed╱(╱ // 0x3254 @0x9
0x324b…3265 at000a = ╱57╱W╱ // 0x3255 @0xa
0x324b…3265 at000b = ╱ec╱,╱ // 0x3256 @0xb
0x324b…3265 at000c = ╱32╱2╱ // 0x3257 @0xc
0x324b…3265 at000d = ╱32╱2╱ // 0x3258 @0xd
0x324b…3265 at000e = ╱fe0000b005╱ // 0x3259 @0xe
0x324b…3265 at0013 = ╱ec╱,╱ // 0x325e @0x13
0x324b…3265 at0014 = ╱4b╱K╱ // 0x325f @0x14
0x324b…3265 at0015 = ╱31╱1╱ // 0x3260 @0x15
0x324b…3265 at0016 = ╱34╱4╱ // 0x3261 @0x16
0x324b…3265 at0017 = ╱ef╱$╱ // 0x3262 @0x17
0x324b…3265 at0018 = ╱ee╱)╱ // 0x3263 @0x18
0x324b…3265 at0019 = EOL // 0x3264 @0x19
0x324b…3265 }
0x3265…32c0 c017 5600 GET K14$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x3265…32c0 LineComalBin {
0x3265…32c0 ptr = 0xc017 // 0x3265 @0x0
0x3265…32c0 lno = 0x15e0 // 0x3267 @0x2
0x3265…32c0 at0004 = ╱a9╱ GET ╱ // 0x3269 @0x4
0x3265…32c0 at0005 = ╱4b╱K╱ // 0x326a @0x5
0x3265…32c0 at0006 = ╱31╱1╱ // 0x326b @0x6
0x3265…32c0 at0007 = ╱34╱4╱ // 0x326c @0x7
0x3265…32c0 at0008 = ╱ef╱$╱ // 0x326d @0x8
0x3265…32c0 at0009 = ╱ec╱,╱ // 0x326e @0x9
0x3265…32c0 at000a = ╱47╱G╱ // 0x326f @0xa
0x3265…32c0 at000b = ╱f0╱:╱ // 0x3270 @0xb
0x3265…32c0 at000c = ╱54╱T╱ // 0x3271 @0xc
0x3265…32c0 at000d = ╱31╱1╱ // 0x3272 @0xd
0x3265…32c0 at000e = ╱ed╱(╱ // 0x3273 @0xe
0x3265…32c0 at000f = ╱45╱E╱ // 0x3274 @0xf
0x3265…32c0 at0010 = ╱ee╱)╱ // 0x3275 @0x10
0x3265…32c0 at0011 = ╱ec╱,╱ // 0x3276 @0x11
0x3265…32c0 at0012 = ╱54╱T╱ // 0x3277 @0x12
0x3265…32c0 at0013 = ╱31╱1╱ // 0x3278 @0x13
0x3265…32c0 at0014 = ╱ed╱(╱ // 0x3279 @0x14
0x3265…32c0 at0015 = ╱47╱G╱ // 0x327a @0x15
0x3265…32c0 at0016 = ╱ee╱)╱ // 0x327b @0x16
0x3265…32c0 at0017 = ╱ec╱,╱ // 0x327c @0x17
0x3265…32c0 at0018 = ╱54╱T╱ // 0x327d @0x18
0x3265…32c0 at0019 = ╱31╱1╱ // 0x327e @0x19
0x3265…32c0 at001a = ╱ed╱(╱ // 0x327f @0x1a
0x3265…32c0 at001b = ╱56╱V╱ // 0x3280 @0x1b
0x3265…32c0 at001c = ╱ee╱)╱ // 0x3281 @0x1c
0x3265…32c0 at001d = ╱ec╱,╱ // 0x3282 @0x1d
0x3265…32c0 at001e = ╱54╱T╱ // 0x3283 @0x1e
0x3265…32c0 at001f = ╱31╱1╱ // 0x3284 @0x1f
0x3265…32c0 at0020 = ╱ed╱(╱ // 0x3285 @0x20
0x3265…32c0 at0021 = ╱34╱4╱ // 0x3286 @0x21
0x3265…32c0 at0022 = ╱fe00008003╱ // 0x3287 @0x22
0x3265…32c0 at0027 = ╱ee╱)╱ // 0x328c @0x27
0x3265…32c0 at0028 = ╱ec╱,╱ // 0x328d @0x28
0x3265…32c0 at0029 = ╱54╱T╱ // 0x328e @0x29
0x3265…32c0 at002a = ╱31╱1╱ // 0x328f @0x2a
0x3265…32c0 at002b = ╱ed╱(╱ // 0x3290 @0x2b
0x3265…32c0 at002c = ╱35╱5╱ // 0x3291 @0x2c
0x3265…32c0 at002d = ╱fe0000a003╱ // 0x3292 @0x2d
0x3265…32c0 at0032 = ╱ee╱)╱ // 0x3297 @0x32
0x3265…32c0 at0033 = ╱ec╱,╱ // 0x3298 @0x33
0x3265…32c0 at0034 = ╱54╱T╱ // 0x3299 @0x34
0x3265…32c0 at0035 = ╱31╱1╱ // 0x329a @0x35
0x3265…32c0 at0036 = ╱ed╱(╱ // 0x329b @0x36
0x3265…32c0 at0037 = ╱36╱6╱ // 0x329c @0x37
0x3265…32c0 at0038 = ╱fe0000c003╱ // 0x329d @0x38
0x3265…32c0 at003d = ╱ee╱)╱ // 0x32a2 @0x3d
0x3265…32c0 at003e = ╱ec╱,╱ // 0x32a3 @0x3e
0x3265…32c0 at003f = ╱54╱T╱ // 0x32a4 @0x3f
0x3265…32c0 at0040 = ╱31╱1╱ // 0x32a5 @0x40
0x3265…32c0 at0041 = ╱ed╱(╱ // 0x32a6 @0x41
0x3265…32c0 at0042 = ╱37╱7╱ // 0x32a7 @0x42
0x3265…32c0 at0043 = ╱fe0000e003╱ // 0x32a8 @0x43
0x3265…32c0 at0048 = ╱ee╱)╱ // 0x32ad @0x48
0x3265…32c0 at0049 = ╱ec╱,╱ // 0x32ae @0x49
0x3265…32c0 at004a = ╱54╱T╱ // 0x32af @0x4a
0x3265…32c0 at004b = ╱31╱1╱ // 0x32b0 @0x4b
0x3265…32c0 at004c = ╱ed╱(╱ // 0x32b1 @0x4c
0x3265…32c0 at004d = ╱38╱8╱ // 0x32b2 @0x4d
0x3265…32c0 at004e = ╱fe00008004╱ // 0x32b3 @0x4e
0x3265…32c0 at0053 = ╱ee╱)╱ // 0x32b8 @0x53
0x3265…32c0 at0054 = ╱ec╱,╱ // 0x32b9 @0x54
0x3265…32c0 at0055 = ╱54╱T╱ // 0x32ba @0x55
0x3265…32c0 at0056 = ╱31╱1╱ // 0x32bb @0x56
0x3265…32c0 at0057 = ╱ed╱(╱ // 0x32bc @0x57
0x3265…32c0 at0058 = ╱57╱W╱ // 0x32bd @0x58
0x3265…32c0 at0059 = ╱ee╱)╱ // 0x32be @0x59
0x3265…32c0 at005a = EOL // 0x32bf @0x5a
0x3265…32c0 }
0x32c0…32da c031 5610 EXEC FEJL(W,23,K14$)
0x32c0…32da LineComalBin {
0x32c0…32da ptr = 0xc031 // 0x32c0 @0x0
0x32c0…32da lno = 0x15ea // 0x32c2 @0x2
0x32c0…32da at0004 = ╱9d╱ EXEC ╱ // 0x32c4 @0x4
0x32c0…32da at0005 = ╱46╱F╱ // 0x32c5 @0x5
0x32c0…32da at0006 = ╱45╱E╱ // 0x32c6 @0x6
0x32c0…32da at0007 = ╱4a╱J╱ // 0x32c7 @0x7
0x32c0…32da at0008 = ╱4c╱L╱ // 0x32c8 @0x8
0x32c0…32da at0009 = ╱ed╱(╱ // 0x32c9 @0x9
0x32c0…32da at000a = ╱57╱W╱ // 0x32ca @0xa
0x32c0…32da at000b = ╱ec╱,╱ // 0x32cb @0xb
0x32c0…32da at000c = ╱32╱2╱ // 0x32cc @0xc
0x32c0…32da at000d = ╱33╱3╱ // 0x32cd @0xd
0x32c0…32da at000e = ╱fe0000b805╱ // 0x32ce @0xe
0x32c0…32da at0013 = ╱ec╱,╱ // 0x32d3 @0x13
0x32c0…32da at0014 = ╱4b╱K╱ // 0x32d4 @0x14
0x32c0…32da at0015 = ╱31╱1╱ // 0x32d5 @0x15
0x32c0…32da at0016 = ╱34╱4╱ // 0x32d6 @0x16
0x32c0…32da at0017 = ╱ef╱$╱ // 0x32d7 @0x17
0x32c0…32da at0018 = ╱ee╱)╱ // 0x32d8 @0x18
0x32c0…32da at0019 = EOL // 0x32d9 @0x19
0x32c0…32da }
0x32da…32e5 c03c 5620 FOR I=E TO V
0x32da…32e5 LineComalBin {
0x32da…32e5 ptr = 0xc03c // 0x32da @0x0
0x32da…32e5 lno = 0x15f4 // 0x32dc @0x2
0x32da…32e5 at0004 = ╱83╱ FOR ╱ // 0x32de @0x4
0x32da…32e5 at0005 = ╱49╱I╱ // 0x32df @0x5
0x32da…32e5 at0006 = ╱dc╱=╱ // 0x32e0 @0x6
0x32da…32e5 at0007 = ╱45╱E╱ // 0x32e1 @0x7
0x32da…32e5 at0008 = ╱b7╱ TO ╱ // 0x32e2 @0x8
0x32da…32e5 at0009 = ╱56╱V╱ // 0x32e3 @0x9
0x32da…32e5 at000a = EOL // 0x32e4 @0xa
0x32da…32e5 }
0x32e5…32f5 c04c 5630 H=(I-E)*V+E
0x32e5…32f5 LineComalBin {
0x32e5…32f5 ptr = 0xc04c // 0x32e5 @0x0
0x32e5…32f5 lno = 0x15fe // 0x32e7 @0x2
0x32e5…32f5 at0004 = ╱48╱H╱ // 0x32e9 @0x4
0x32e5…32f5 at0005 = ╱dc╱=╱ // 0x32ea @0x5
0x32e5…32f5 at0006 = ╱ed╱(╱ // 0x32eb @0x6
0x32e5…32f5 at0007 = ╱49╱I╱ // 0x32ec @0x7
0x32e5…32f5 at0008 = ╱e3╱-╱ // 0x32ed @0x8
0x32e5…32f5 at0009 = ╱45╱E╱ // 0x32ee @0x9
0x32e5…32f5 at000a = ╱ee╱)╱ // 0x32ef @0xa
0x32e5…32f5 at000b = ╱e4╱*╱ // 0x32f0 @0xb
0x32e5…32f5 at000c = ╱56╱V╱ // 0x32f1 @0xc
0x32e5…32f5 at000d = ╱e2╱+╱ // 0x32f2 @0xd
0x32e5…32f5 at000e = ╱45╱E╱ // 0x32f3 @0xe
0x32e5…32f5 at000f = EOL // 0x32f4 @0xf
0x32e5…32f5 }
0x32f5…3322 c079 5640 GET K14$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G)
0x32f5…3322 LineComalBin {
0x32f5…3322 ptr = 0xc079 // 0x32f5 @0x0
0x32f5…3322 lno = 0x1608 // 0x32f7 @0x2
0x32f5…3322 at0004 = ╱a9╱ GET ╱ // 0x32f9 @0x4
0x32f5…3322 at0005 = ╱4b╱K╱ // 0x32fa @0x5
0x32f5…3322 at0006 = ╱31╱1╱ // 0x32fb @0x6
0x32f5…3322 at0007 = ╱34╱4╱ // 0x32fc @0x7
0x32f5…3322 at0008 = ╱ef╱$╱ // 0x32fd @0x8
0x32f5…3322 at0009 = ╱ec╱,╱ // 0x32fe @0x9
0x32f5…3322 at000a = ╱49╱I╱ // 0x32ff @0xa
0x32f5…3322 at000b = ╱e2╱+╱ // 0x3300 @0xb
0x32f5…3322 at000c = ╱47╱G╱ // 0x3301 @0xc
0x32f5…3322 at000d = ╱f0╱:╱ // 0x3302 @0xd
0x32f5…3322 at000e = ╱4c╱L╱ // 0x3303 @0xe
0x32f5…3322 at000f = ╱41╱A╱ // 0x3304 @0xf
0x32f5…3322 at0010 = ╱4e╱N╱ // 0x3305 @0x10
0x32f5…3322 at0011 = ╱44╱D╱ // 0x3306 @0x11
0x32f5…3322 at0012 = ╱ef╱$╱ // 0x3307 @0x12
0x32f5…3322 at0013 = ╱ed╱(╱ // 0x3308 @0x13
0x32f5…3322 at0014 = ╱48╱H╱ // 0x3309 @0x14
0x32f5…3322 at0015 = ╱ee╱)╱ // 0x330a @0x15
0x32f5…3322 at0016 = ╱ec╱,╱ // 0x330b @0x16
0x32f5…3322 at0017 = ╱4c╱L╱ // 0x330c @0x17
0x32f5…3322 at0018 = ╱41╱A╱ // 0x330d @0x18
0x32f5…3322 at0019 = ╱4e╱N╱ // 0x330e @0x19
0x32f5…3322 at001a = ╱44╱D╱ // 0x330f @0x1a
0x32f5…3322 at001b = ╱ef╱$╱ // 0x3310 @0x1b
0x32f5…3322 at001c = ╱ed╱(╱ // 0x3311 @0x1c
0x32f5…3322 at001d = ╱48╱H╱ // 0x3312 @0x1d
0x32f5…3322 at001e = ╱e2╱+╱ // 0x3313 @0x1e
0x32f5…3322 at001f = ╱45╱E╱ // 0x3314 @0x1f
0x32f5…3322 at0020 = ╱ee╱)╱ // 0x3315 @0x20
0x32f5…3322 at0021 = ╱ec╱,╱ // 0x3316 @0x21
0x32f5…3322 at0022 = ╱4c╱L╱ // 0x3317 @0x22
0x32f5…3322 at0023 = ╱41╱A╱ // 0x3318 @0x23
0x32f5…3322 at0024 = ╱4e╱N╱ // 0x3319 @0x24
0x32f5…3322 at0025 = ╱44╱D╱ // 0x331a @0x25
0x32f5…3322 at0026 = ╱ef╱$╱ // 0x331b @0x26
0x32f5…3322 at0027 = ╱ed╱(╱ // 0x331c @0x27
0x32f5…3322 at0028 = ╱48╱H╱ // 0x331d @0x28
0x32f5…3322 at0029 = ╱e2╱+╱ // 0x331e @0x29
0x32f5…3322 at002a = ╱47╱G╱ // 0x331f @0x2a
0x32f5…3322 at002b = ╱ee╱)╱ // 0x3320 @0x2b
0x32f5…3322 at002c = EOL // 0x3321 @0x2c
0x32f5…3322 }
0x3322…333c (170,) c093 5650 EXEC FEJL(W,24,K14$)
0x3322…333c LineComalBin {
0x3322…333c ptr = 0xc093 // 0x3322 @0x0
0x3322…333c lno = 0x1612 // 0x3324 @0x2
0x3322…333c at0004 = ╱9d╱ EXEC ╱ // 0x3326 @0x4
0x3322…333c at0005 = ╱46╱F╱ // 0x3327 @0x5
0x3322…333c at0006 = ╱45╱E╱ // 0x3328 @0x6
0x3322…333c at0007 = ╱4a╱J╱ // 0x3329 @0x7
0x3322…333c at0008 = ╱4c╱L╱ // 0x332a @0x8
0x3322…333c at0009 = ╱ed╱(╱ // 0x332b @0x9
0x3322…333c at000a = ╱57╱W╱ // 0x332c @0xa
0x3322…333c at000b = ╱ec╱,╱ // 0x332d @0xb
0x3322…333c at000c = ╱32╱2╱ // 0x332e @0xc
0x3322…333c at000d = ╱34╱4╱ // 0x332f @0xd
0x3322…333c at000e = ╱fe0000c005╱ // 0x3330 @0xe
0x3322…333c at0013 = ╱ec╱,╱ // 0x3335 @0x13
0x3322…333c at0014 = ╱4b╱K╱ // 0x3336 @0x14
0x3322…333c at0015 = ╱31╱1╱ // 0x3337 @0x15
0x3322…333c at0016 = ╱34╱4╱ // 0x3338 @0x16
0x3322…333c at0017 = ╱ef╱$╱ // 0x3339 @0x17
0x3322…333c at0018 = ╱ee╱)╱ // 0x333a @0x18
0x3322…333c at0019 = EOL // 0x333b @0x19
0x3322…333c }
0x333c…3343 c09a 5660 NEXT I
0x333c…3343 LineComalBin {
0x333c…3343 ptr = 0xc09a // 0x333c @0x0
0x333c…3343 lno = 0x161c // 0x333e @0x2
0x333c…3343 at0004 = ╱84╱ NEXT ╱ // 0x3340 @0x4
0x333c…3343 at0005 = ╱49╱I╱ // 0x3341 @0x5
0x333c…3343 at0006 = EOL // 0x3342 @0x6
0x333c…3343 }
0x3343…3353 c0aa 5670 FOR I=E TO 6
0x3343…3353 LineComalBin {
0x3343…3353 ptr = 0xc0aa // 0x3343 @0x0
0x3343…3353 lno = 0x1626 // 0x3345 @0x2
0x3343…3353 at0004 = ╱83╱ FOR ╱ // 0x3347 @0x4
0x3343…3353 at0005 = ╱49╱I╱ // 0x3348 @0x5
0x3343…3353 at0006 = ╱dc╱=╱ // 0x3349 @0x6
0x3343…3353 at0007 = ╱45╱E╱ // 0x334a @0x7
0x3343…3353 at0008 = ╱b7╱ TO ╱ // 0x334b @0x8
0x3343…3353 at0009 = ╱36╱6╱ // 0x334c @0x9
0x3343…3353 at000a = ╱fe0000c003╱ // 0x334d @0xa
0x3343…3353 at000f = EOL // 0x3352 @0xf
0x3343…3353 }
0x3353…3363 c0ba 5680 H=(I-E)*V+E
0x3353…3363 LineComalBin {
0x3353…3363 ptr = 0xc0ba // 0x3353 @0x0
0x3353…3363 lno = 0x1630 // 0x3355 @0x2
0x3353…3363 at0004 = ╱48╱H╱ // 0x3357 @0x4
0x3353…3363 at0005 = ╱dc╱=╱ // 0x3358 @0x5
0x3353…3363 at0006 = ╱ed╱(╱ // 0x3359 @0x6
0x3353…3363 at0007 = ╱49╱I╱ // 0x335a @0x7
0x3353…3363 at0008 = ╱e3╱-╱ // 0x335b @0x8
0x3353…3363 at0009 = ╱45╱E╱ // 0x335c @0x9
0x3353…3363 at000a = ╱ee╱)╱ // 0x335d @0xa
0x3353…3363 at000b = ╱e4╱*╱ // 0x335e @0xb
0x3353…3363 at000c = ╱56╱V╱ // 0x335f @0xc
0x3353…3363 at000d = ╱e2╱+╱ // 0x3360 @0xd
0x3353…3363 at000e = ╱45╱E╱ // 0x3361 @0xe
0x3353…3363 at000f = EOL // 0x3362 @0xf
0x3353…3363 }
0x3363…3395 c0ec 5690 GET K14$,I+5:TFIL$(H),TFIL$(H+E),TFIL$(H+G)
0x3363…3395 LineComalBin {
0x3363…3395 ptr = 0xc0ec // 0x3363 @0x0
0x3363…3395 lno = 0x163a // 0x3365 @0x2
0x3363…3395 at0004 = ╱a9╱ GET ╱ // 0x3367 @0x4
0x3363…3395 at0005 = ╱4b╱K╱ // 0x3368 @0x5
0x3363…3395 at0006 = ╱31╱1╱ // 0x3369 @0x6
0x3363…3395 at0007 = ╱34╱4╱ // 0x336a @0x7
0x3363…3395 at0008 = ╱ef╱$╱ // 0x336b @0x8
0x3363…3395 at0009 = ╱ec╱,╱ // 0x336c @0x9
0x3363…3395 at000a = ╱49╱I╱ // 0x336d @0xa
0x3363…3395 at000b = ╱e2╱+╱ // 0x336e @0xb
0x3363…3395 at000c = ╱35╱5╱ // 0x336f @0xc
0x3363…3395 at000d = ╱fe0000a003╱ // 0x3370 @0xd
0x3363…3395 at0012 = ╱f0╱:╱ // 0x3375 @0x12
0x3363…3395 at0013 = ╱54╱T╱ // 0x3376 @0x13
0x3363…3395 at0014 = ╱46╱F╱ // 0x3377 @0x14
0x3363…3395 at0015 = ╱49╱I╱ // 0x3378 @0x15
0x3363…3395 at0016 = ╱4c╱L╱ // 0x3379 @0x16
0x3363…3395 at0017 = ╱ef╱$╱ // 0x337a @0x17
0x3363…3395 at0018 = ╱ed╱(╱ // 0x337b @0x18
0x3363…3395 at0019 = ╱48╱H╱ // 0x337c @0x19
0x3363…3395 at001a = ╱ee╱)╱ // 0x337d @0x1a
0x3363…3395 at001b = ╱ec╱,╱ // 0x337e @0x1b
0x3363…3395 at001c = ╱54╱T╱ // 0x337f @0x1c
0x3363…3395 at001d = ╱46╱F╱ // 0x3380 @0x1d
0x3363…3395 at001e = ╱49╱I╱ // 0x3381 @0x1e
0x3363…3395 at001f = ╱4c╱L╱ // 0x3382 @0x1f
0x3363…3395 at0020 = ╱ef╱$╱ // 0x3383 @0x20
0x3363…3395 at0021 = ╱ed╱(╱ // 0x3384 @0x21
0x3363…3395 at0022 = ╱48╱H╱ // 0x3385 @0x22
0x3363…3395 at0023 = ╱e2╱+╱ // 0x3386 @0x23
0x3363…3395 at0024 = ╱45╱E╱ // 0x3387 @0x24
0x3363…3395 at0025 = ╱ee╱)╱ // 0x3388 @0x25
0x3363…3395 at0026 = ╱ec╱,╱ // 0x3389 @0x26
0x3363…3395 at0027 = ╱54╱T╱ // 0x338a @0x27
0x3363…3395 at0028 = ╱46╱F╱ // 0x338b @0x28
0x3363…3395 at0029 = ╱49╱I╱ // 0x338c @0x29
0x3363…3395 at002a = ╱4c╱L╱ // 0x338d @0x2a
0x3363…3395 at002b = ╱ef╱$╱ // 0x338e @0x2b
0x3363…3395 at002c = ╱ed╱(╱ // 0x338f @0x2c
0x3363…3395 at002d = ╱48╱H╱ // 0x3390 @0x2d
0x3363…3395 at002e = ╱e2╱+╱ // 0x3391 @0x2e
0x3363…3395 at002f = ╱47╱G╱ // 0x3392 @0x2f
0x3363…3395 at0030 = ╱ee╱)╱ // 0x3393 @0x30
0x3363…3395 at0031 = EOL // 0x3394 @0x31
0x3363…3395 }
0x3395…33af c106 5700 EXEC FEJL(W,25,K14$)
0x3395…33af LineComalBin {
0x3395…33af ptr = 0xc106 // 0x3395 @0x0
0x3395…33af lno = 0x1644 // 0x3397 @0x2
0x3395…33af at0004 = ╱9d╱ EXEC ╱ // 0x3399 @0x4
0x3395…33af at0005 = ╱46╱F╱ // 0x339a @0x5
0x3395…33af at0006 = ╱45╱E╱ // 0x339b @0x6
0x3395…33af at0007 = ╱4a╱J╱ // 0x339c @0x7
0x3395…33af at0008 = ╱4c╱L╱ // 0x339d @0x8
0x3395…33af at0009 = ╱ed╱(╱ // 0x339e @0x9
0x3395…33af at000a = ╱57╱W╱ // 0x339f @0xa
0x3395…33af at000b = ╱ec╱,╱ // 0x33a0 @0xb
0x3395…33af at000c = ╱32╱2╱ // 0x33a1 @0xc
0x3395…33af at000d = ╱35╱5╱ // 0x33a2 @0xd
0x3395…33af at000e = ╱fe0000c805╱ // 0x33a3 @0xe
0x3395…33af at0013 = ╱ec╱,╱ // 0x33a8 @0x13
0x3395…33af at0014 = ╱4b╱K╱ // 0x33a9 @0x14
0x3395…33af at0015 = ╱31╱1╱ // 0x33aa @0x15
0x3395…33af at0016 = ╱34╱4╱ // 0x33ab @0x16
0x3395…33af at0017 = ╱ef╱$╱ // 0x33ac @0x17
0x3395…33af at0018 = ╱ee╱)╱ // 0x33ad @0x18
0x3395…33af at0019 = EOL // 0x33ae @0x19
0x3395…33af }
0x33af…33b6 c10d 5710 NEXT I
0x33af…33b6 LineComalBin {
0x33af…33b6 ptr = 0xc10d // 0x33af @0x0
0x33af…33b6 lno = 0x164e // 0x33b1 @0x2
0x33af…33b6 at0004 = ╱84╱ NEXT ╱ // 0x33b3 @0x4
0x33af…33b6 at0005 = ╱49╱I╱ // 0x33b4 @0x5
0x33af…33b6 at0006 = EOL // 0x33b5 @0x6
0x33af…33b6 }
0x33b6…3417 c16e 5720 GET K14$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x33b6…3417 LineComalBin {
0x33b6…3417 ptr = 0xc16e // 0x33b6 @0x0
0x33b6…3417 lno = 0x1658 // 0x33b8 @0x2
0x33b6…3417 at0004 = ╱a9╱ GET ╱ // 0x33ba @0x4
0x33b6…3417 at0005 = ╱4b╱K╱ // 0x33bb @0x5
0x33b6…3417 at0006 = ╱31╱1╱ // 0x33bc @0x6
0x33b6…3417 at0007 = ╱34╱4╱ // 0x33bd @0x7
0x33b6…3417 at0008 = ╱ef╱$╱ // 0x33be @0x8
0x33b6…3417 at0009 = ╱ec╱,╱ // 0x33bf @0x9
0x33b6…3417 at000a = ╱31╱1╱ // 0x33c0 @0xa
0x33b6…3417 at000b = ╱33╱3╱ // 0x33c1 @0xb
0x33b6…3417 at000c = ╱fe0000d004╱ // 0x33c2 @0xc
0x33b6…3417 at0011 = ╱f0╱:╱ // 0x33c7 @0x11
0x33b6…3417 at0012 = ╱54╱T╱ // 0x33c8 @0x12
0x33b6…3417 at0013 = ╱32╱2╱ // 0x33c9 @0x13
0x33b6…3417 at0014 = ╱ed╱(╱ // 0x33ca @0x14
0x33b6…3417 at0015 = ╱45╱E╱ // 0x33cb @0x15
0x33b6…3417 at0016 = ╱ee╱)╱ // 0x33cc @0x16
0x33b6…3417 at0017 = ╱ec╱,╱ // 0x33cd @0x17
0x33b6…3417 at0018 = ╱54╱T╱ // 0x33ce @0x18
0x33b6…3417 at0019 = ╱32╱2╱ // 0x33cf @0x19
0x33b6…3417 at001a = ╱ed╱(╱ // 0x33d0 @0x1a
0x33b6…3417 at001b = ╱47╱G╱ // 0x33d1 @0x1b
0x33b6…3417 at001c = ╱ee╱)╱ // 0x33d2 @0x1c
0x33b6…3417 at001d = ╱ec╱,╱ // 0x33d3 @0x1d
0x33b6…3417 at001e = ╱54╱T╱ // 0x33d4 @0x1e
0x33b6…3417 at001f = ╱32╱2╱ // 0x33d5 @0x1f
0x33b6…3417 at0020 = ╱ed╱(╱ // 0x33d6 @0x20
0x33b6…3417 at0021 = ╱56╱V╱ // 0x33d7 @0x21
0x33b6…3417 at0022 = ╱ee╱)╱ // 0x33d8 @0x22
0x33b6…3417 at0023 = ╱ec╱,╱ // 0x33d9 @0x23
0x33b6…3417 at0024 = ╱54╱T╱ // 0x33da @0x24
0x33b6…3417 at0025 = ╱32╱2╱ // 0x33db @0x25
0x33b6…3417 at0026 = ╱ed╱(╱ // 0x33dc @0x26
0x33b6…3417 at0027 = ╱34╱4╱ // 0x33dd @0x27
0x33b6…3417 at0028 = ╱fe00008003╱ // 0x33de @0x28
0x33b6…3417 at002d = ╱ee╱)╱ // 0x33e3 @0x2d
0x33b6…3417 at002e = ╱ec╱,╱ // 0x33e4 @0x2e
0x33b6…3417 at002f = ╱54╱T╱ // 0x33e5 @0x2f
0x33b6…3417 at0030 = ╱32╱2╱ // 0x33e6 @0x30
0x33b6…3417 at0031 = ╱ed╱(╱ // 0x33e7 @0x31
0x33b6…3417 at0032 = ╱35╱5╱ // 0x33e8 @0x32
0x33b6…3417 at0033 = ╱fe0000a003╱ // 0x33e9 @0x33
0x33b6…3417 at0038 = ╱ee╱)╱ // 0x33ee @0x38
0x33b6…3417 at0039 = ╱ec╱,╱ // 0x33ef @0x39
0x33b6…3417 at003a = ╱54╱T╱ // 0x33f0 @0x3a
0x33b6…3417 at003b = ╱32╱2╱ // 0x33f1 @0x3b
0x33b6…3417 at003c = ╱ed╱(╱ // 0x33f2 @0x3c
0x33b6…3417 at003d = ╱36╱6╱ // 0x33f3 @0x3d
0x33b6…3417 at003e = ╱fe0000c003╱ // 0x33f4 @0x3e
0x33b6…3417 at0043 = ╱ee╱)╱ // 0x33f9 @0x43
0x33b6…3417 at0044 = ╱ec╱,╱ // 0x33fa @0x44
0x33b6…3417 at0045 = ╱54╱T╱ // 0x33fb @0x45
0x33b6…3417 at0046 = ╱32╱2╱ // 0x33fc @0x46
0x33b6…3417 at0047 = ╱ed╱(╱ // 0x33fd @0x47
0x33b6…3417 at0048 = ╱37╱7╱ // 0x33fe @0x48
0x33b6…3417 at0049 = ╱fe0000e003╱ // 0x33ff @0x49
0x33b6…3417 at004e = ╱ee╱)╱ // 0x3404 @0x4e
0x33b6…3417 at004f = ╱ec╱,╱ // 0x3405 @0x4f
0x33b6…3417 at0050 = ╱54╱T╱ // 0x3406 @0x50
0x33b6…3417 at0051 = ╱32╱2╱ // 0x3407 @0x51
0x33b6…3417 at0052 = ╱ed╱(╱ // 0x3408 @0x52
0x33b6…3417 at0053 = ╱38╱8╱ // 0x3409 @0x53
0x33b6…3417 at0054 = ╱fe00008004╱ // 0x340a @0x54
0x33b6…3417 at0059 = ╱ee╱)╱ // 0x340f @0x59
0x33b6…3417 at005a = ╱ec╱,╱ // 0x3410 @0x5a
0x33b6…3417 at005b = ╱54╱T╱ // 0x3411 @0x5b
0x33b6…3417 at005c = ╱32╱2╱ // 0x3412 @0x5c
0x33b6…3417 at005d = ╱ed╱(╱ // 0x3413 @0x5d
0x33b6…3417 at005e = ╱57╱W╱ // 0x3414 @0x5e
0x33b6…3417 at005f = ╱ee╱)╱ // 0x3415 @0x5f
0x33b6…3417 at0060 = EOL // 0x3416 @0x60
0x33b6…3417 }
0x3417…3431 c188 5730 EXEC FEJL(W,26,K14$)
0x3417…3431 LineComalBin {
0x3417…3431 ptr = 0xc188 // 0x3417 @0x0
0x3417…3431 lno = 0x1662 // 0x3419 @0x2
0x3417…3431 at0004 = ╱9d╱ EXEC ╱ // 0x341b @0x4
0x3417…3431 at0005 = ╱46╱F╱ // 0x341c @0x5
0x3417…3431 at0006 = ╱45╱E╱ // 0x341d @0x6
0x3417…3431 at0007 = ╱4a╱J╱ // 0x341e @0x7
0x3417…3431 at0008 = ╱4c╱L╱ // 0x341f @0x8
0x3417…3431 at0009 = ╱ed╱(╱ // 0x3420 @0x9
0x3417…3431 at000a = ╱57╱W╱ // 0x3421 @0xa
0x3417…3431 at000b = ╱ec╱,╱ // 0x3422 @0xb
0x3417…3431 at000c = ╱32╱2╱ // 0x3423 @0xc
0x3417…3431 at000d = ╱36╱6╱ // 0x3424 @0xd
0x3417…3431 at000e = ╱fe0000d005╱ // 0x3425 @0xe
0x3417…3431 at0013 = ╱ec╱,╱ // 0x342a @0x13
0x3417…3431 at0014 = ╱4b╱K╱ // 0x342b @0x14
0x3417…3431 at0015 = ╱31╱1╱ // 0x342c @0x15
0x3417…3431 at0016 = ╱34╱4╱ // 0x342d @0x16
0x3417…3431 at0017 = ╱ef╱$╱ // 0x342e @0x17
0x3417…3431 at0018 = ╱ee╱)╱ // 0x342f @0x18
0x3417…3431 at0019 = EOL // 0x3430 @0x19
0x3417…3431 }
0x3431…3492 c1e9 5740 GET K14$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x3431…3492 LineComalBin {
0x3431…3492 ptr = 0xc1e9 // 0x3431 @0x0
0x3431…3492 lno = 0x166c // 0x3433 @0x2
0x3431…3492 at0004 = ╱a9╱ GET ╱ // 0x3435 @0x4
0x3431…3492 at0005 = ╱4b╱K╱ // 0x3436 @0x5
0x3431…3492 at0006 = ╱31╱1╱ // 0x3437 @0x6
0x3431…3492 at0007 = ╱34╱4╱ // 0x3438 @0x7
0x3431…3492 at0008 = ╱ef╱$╱ // 0x3439 @0x8
0x3431…3492 at0009 = ╱ec╱,╱ // 0x343a @0x9
0x3431…3492 at000a = ╱31╱1╱ // 0x343b @0xa
0x3431…3492 at000b = ╱37╱7╱ // 0x343c @0xb
0x3431…3492 at000c = ╱fe00008805╱ // 0x343d @0xc
0x3431…3492 at0011 = ╱f0╱:╱ // 0x3442 @0x11
0x3431…3492 at0012 = ╱54╱T╱ // 0x3443 @0x12
0x3431…3492 at0013 = ╱33╱3╱ // 0x3444 @0x13
0x3431…3492 at0014 = ╱ed╱(╱ // 0x3445 @0x14
0x3431…3492 at0015 = ╱45╱E╱ // 0x3446 @0x15
0x3431…3492 at0016 = ╱ee╱)╱ // 0x3447 @0x16
0x3431…3492 at0017 = ╱ec╱,╱ // 0x3448 @0x17
0x3431…3492 at0018 = ╱54╱T╱ // 0x3449 @0x18
0x3431…3492 at0019 = ╱33╱3╱ // 0x344a @0x19
0x3431…3492 at001a = ╱ed╱(╱ // 0x344b @0x1a
0x3431…3492 at001b = ╱47╱G╱ // 0x344c @0x1b
0x3431…3492 at001c = ╱ee╱)╱ // 0x344d @0x1c
0x3431…3492 at001d = ╱ec╱,╱ // 0x344e @0x1d
0x3431…3492 at001e = ╱54╱T╱ // 0x344f @0x1e
0x3431…3492 at001f = ╱33╱3╱ // 0x3450 @0x1f
0x3431…3492 at0020 = ╱ed╱(╱ // 0x3451 @0x20
0x3431…3492 at0021 = ╱56╱V╱ // 0x3452 @0x21
0x3431…3492 at0022 = ╱ee╱)╱ // 0x3453 @0x22
0x3431…3492 at0023 = ╱ec╱,╱ // 0x3454 @0x23
0x3431…3492 at0024 = ╱54╱T╱ // 0x3455 @0x24
0x3431…3492 at0025 = ╱33╱3╱ // 0x3456 @0x25
0x3431…3492 at0026 = ╱ed╱(╱ // 0x3457 @0x26
0x3431…3492 at0027 = ╱34╱4╱ // 0x3458 @0x27
0x3431…3492 at0028 = ╱fe00008003╱ // 0x3459 @0x28
0x3431…3492 at002d = ╱ee╱)╱ // 0x345e @0x2d
0x3431…3492 at002e = ╱ec╱,╱ // 0x345f @0x2e
0x3431…3492 at002f = ╱54╱T╱ // 0x3460 @0x2f
0x3431…3492 at0030 = ╱33╱3╱ // 0x3461 @0x30
0x3431…3492 at0031 = ╱ed╱(╱ // 0x3462 @0x31
0x3431…3492 at0032 = ╱35╱5╱ // 0x3463 @0x32
0x3431…3492 at0033 = ╱fe0000a003╱ // 0x3464 @0x33
0x3431…3492 at0038 = ╱ee╱)╱ // 0x3469 @0x38
0x3431…3492 at0039 = ╱ec╱,╱ // 0x346a @0x39
0x3431…3492 at003a = ╱54╱T╱ // 0x346b @0x3a
0x3431…3492 at003b = ╱33╱3╱ // 0x346c @0x3b
0x3431…3492 at003c = ╱ed╱(╱ // 0x346d @0x3c
0x3431…3492 at003d = ╱36╱6╱ // 0x346e @0x3d
0x3431…3492 at003e = ╱fe0000c003╱ // 0x346f @0x3e
0x3431…3492 at0043 = ╱ee╱)╱ // 0x3474 @0x43
0x3431…3492 at0044 = ╱ec╱,╱ // 0x3475 @0x44
0x3431…3492 at0045 = ╱54╱T╱ // 0x3476 @0x45
0x3431…3492 at0046 = ╱33╱3╱ // 0x3477 @0x46
0x3431…3492 at0047 = ╱ed╱(╱ // 0x3478 @0x47
0x3431…3492 at0048 = ╱37╱7╱ // 0x3479 @0x48
0x3431…3492 at0049 = ╱fe0000e003╱ // 0x347a @0x49
0x3431…3492 at004e = ╱ee╱)╱ // 0x347f @0x4e
0x3431…3492 at004f = ╱ec╱,╱ // 0x3480 @0x4f
0x3431…3492 at0050 = ╱54╱T╱ // 0x3481 @0x50
0x3431…3492 at0051 = ╱33╱3╱ // 0x3482 @0x51
0x3431…3492 at0052 = ╱ed╱(╱ // 0x3483 @0x52
0x3431…3492 at0053 = ╱38╱8╱ // 0x3484 @0x53
0x3431…3492 at0054 = ╱fe00008004╱ // 0x3485 @0x54
0x3431…3492 at0059 = ╱ee╱)╱ // 0x348a @0x59
0x3431…3492 at005a = ╱ec╱,╱ // 0x348b @0x5a
0x3431…3492 at005b = ╱54╱T╱ // 0x348c @0x5b
0x3431…3492 at005c = ╱33╱3╱ // 0x348d @0x5c
0x3431…3492 at005d = ╱ed╱(╱ // 0x348e @0x5d
0x3431…3492 at005e = ╱57╱W╱ // 0x348f @0x5e
0x3431…3492 at005f = ╱ee╱)╱ // 0x3490 @0x5f
0x3431…3492 at0060 = EOL // 0x3491 @0x60
0x3431…3492 }
0x3492…34ac c203 5750 EXEC FEJL(W,27,K14$)
0x3492…34ac LineComalBin {
0x3492…34ac ptr = 0xc203 // 0x3492 @0x0
0x3492…34ac lno = 0x1676 // 0x3494 @0x2
0x3492…34ac at0004 = ╱9d╱ EXEC ╱ // 0x3496 @0x4
0x3492…34ac at0005 = ╱46╱F╱ // 0x3497 @0x5
0x3492…34ac at0006 = ╱45╱E╱ // 0x3498 @0x6
0x3492…34ac at0007 = ╱4a╱J╱ // 0x3499 @0x7
0x3492…34ac at0008 = ╱4c╱L╱ // 0x349a @0x8
0x3492…34ac at0009 = ╱ed╱(╱ // 0x349b @0x9
0x3492…34ac at000a = ╱57╱W╱ // 0x349c @0xa
0x3492…34ac at000b = ╱ec╱,╱ // 0x349d @0xb
0x3492…34ac at000c = ╱32╱2╱ // 0x349e @0xc
0x3492…34ac at000d = ╱37╱7╱ // 0x349f @0xd
0x3492…34ac at000e = ╱fe0000d805╱ // 0x34a0 @0xe
0x3492…34ac at0013 = ╱ec╱,╱ // 0x34a5 @0x13
0x3492…34ac at0014 = ╱4b╱K╱ // 0x34a6 @0x14
0x3492…34ac at0015 = ╱31╱1╱ // 0x34a7 @0x15
0x3492…34ac at0016 = ╱34╱4╱ // 0x34a8 @0x16
0x3492…34ac at0017 = ╱ef╱$╱ // 0x34a9 @0x17
0x3492…34ac at0018 = ╱ee╱)╱ // 0x34aa @0x18
0x3492…34ac at0019 = EOL // 0x34ab @0x19
0x3492…34ac }
0x34ac…34c6 c21d 5760 GET K14$,18:EGNAVN$
0x34ac…34c6 LineComalBin {
0x34ac…34c6 ptr = 0xc21d // 0x34ac @0x0
0x34ac…34c6 lno = 0x1680 // 0x34ae @0x2
0x34ac…34c6 at0004 = ╱a9╱ GET ╱ // 0x34b0 @0x4
0x34ac…34c6 at0005 = ╱4b╱K╱ // 0x34b1 @0x5
0x34ac…34c6 at0006 = ╱31╱1╱ // 0x34b2 @0x6
0x34ac…34c6 at0007 = ╱34╱4╱ // 0x34b3 @0x7
0x34ac…34c6 at0008 = ╱ef╱$╱ // 0x34b4 @0x8
0x34ac…34c6 at0009 = ╱ec╱,╱ // 0x34b5 @0x9
0x34ac…34c6 at000a = ╱31╱1╱ // 0x34b6 @0xa
0x34ac…34c6 at000b = ╱38╱8╱ // 0x34b7 @0xb
0x34ac…34c6 at000c = ╱fe00009005╱ // 0x34b8 @0xc
0x34ac…34c6 at0011 = ╱f0╱:╱ // 0x34bd @0x11
0x34ac…34c6 at0012 = ╱45╱E╱ // 0x34be @0x12
0x34ac…34c6 at0013 = ╱47╱G╱ // 0x34bf @0x13
0x34ac…34c6 at0014 = ╱4e╱N╱ // 0x34c0 @0x14
0x34ac…34c6 at0015 = ╱41╱A╱ // 0x34c1 @0x15
0x34ac…34c6 at0016 = ╱56╱V╱ // 0x34c2 @0x16
0x34ac…34c6 at0017 = ╱4e╱N╱ // 0x34c3 @0x17
0x34ac…34c6 at0018 = ╱ef╱$╱ // 0x34c4 @0x18
0x34ac…34c6 at0019 = EOL // 0x34c5 @0x19
0x34ac…34c6 }
0x34c6…34e0 c237 5770 EXEC FEJL(W,50,K14$)
0x34c6…34e0 LineComalBin {
0x34c6…34e0 ptr = 0xc237 // 0x34c6 @0x0
0x34c6…34e0 lno = 0x168a // 0x34c8 @0x2
0x34c6…34e0 at0004 = ╱9d╱ EXEC ╱ // 0x34ca @0x4
0x34c6…34e0 at0005 = ╱46╱F╱ // 0x34cb @0x5
0x34c6…34e0 at0006 = ╱45╱E╱ // 0x34cc @0x6
0x34c6…34e0 at0007 = ╱4a╱J╱ // 0x34cd @0x7
0x34c6…34e0 at0008 = ╱4c╱L╱ // 0x34ce @0x8
0x34c6…34e0 at0009 = ╱ed╱(╱ // 0x34cf @0x9
0x34c6…34e0 at000a = ╱57╱W╱ // 0x34d0 @0xa
0x34c6…34e0 at000b = ╱ec╱,╱ // 0x34d1 @0xb
0x34c6…34e0 at000c = ╱35╱5╱ // 0x34d2 @0xc
0x34c6…34e0 at000d = ╱30╱0╱ // 0x34d3 @0xd
0x34c6…34e0 at000e = ╱fe0000c806╱ // 0x34d4 @0xe
0x34c6…34e0 at0013 = ╱ec╱,╱ // 0x34d9 @0x13
0x34c6…34e0 at0014 = ╱4b╱K╱ // 0x34da @0x14
0x34c6…34e0 at0015 = ╱31╱1╱ // 0x34db @0x15
0x34c6…34e0 at0016 = ╱34╱4╱ // 0x34dc @0x16
0x34c6…34e0 at0017 = ╱ef╱$╱ // 0x34dd @0x17
0x34c6…34e0 at0018 = ╱ee╱)╱ // 0x34de @0x18
0x34c6…34e0 at0019 = EOL // 0x34df @0x19
0x34c6…34e0 }
0x34e0…34fa c251 5780 GET K14$,19:EGGADE$
0x34e0…34fa LineComalBin {
0x34e0…34fa ptr = 0xc251 // 0x34e0 @0x0
0x34e0…34fa lno = 0x1694 // 0x34e2 @0x2
0x34e0…34fa at0004 = ╱a9╱ GET ╱ // 0x34e4 @0x4
0x34e0…34fa at0005 = ╱4b╱K╱ // 0x34e5 @0x5
0x34e0…34fa at0006 = ╱31╱1╱ // 0x34e6 @0x6
0x34e0…34fa at0007 = ╱34╱4╱ // 0x34e7 @0x7
0x34e0…34fa at0008 = ╱ef╱$╱ // 0x34e8 @0x8
0x34e0…34fa at0009 = ╱ec╱,╱ // 0x34e9 @0x9
0x34e0…34fa at000a = ╱31╱1╱ // 0x34ea @0xa
0x34e0…34fa at000b = ╱39╱9╱ // 0x34eb @0xb
0x34e0…34fa at000c = ╱fe00009805╱ // 0x34ec @0xc
0x34e0…34fa at0011 = ╱f0╱:╱ // 0x34f1 @0x11
0x34e0…34fa at0012 = ╱45╱E╱ // 0x34f2 @0x12
0x34e0…34fa at0013 = ╱47╱G╱ // 0x34f3 @0x13
0x34e0…34fa at0014 = ╱47╱G╱ // 0x34f4 @0x14
0x34e0…34fa at0015 = ╱41╱A╱ // 0x34f5 @0x15
0x34e0…34fa at0016 = ╱44╱D╱ // 0x34f6 @0x16
0x34e0…34fa at0017 = ╱45╱E╱ // 0x34f7 @0x17
0x34e0…34fa at0018 = ╱ef╱$╱ // 0x34f8 @0x18
0x34e0…34fa at0019 = EOL // 0x34f9 @0x19
0x34e0…34fa }
0x34fa…3514 c26b 5790 EXEC FEJL(W,51,K14$)
0x34fa…3514 LineComalBin {
0x34fa…3514 ptr = 0xc26b // 0x34fa @0x0
0x34fa…3514 lno = 0x169e // 0x34fc @0x2
0x34fa…3514 at0004 = ╱9d╱ EXEC ╱ // 0x34fe @0x4
0x34fa…3514 at0005 = ╱46╱F╱ // 0x34ff @0x5
0x34fa…3514 at0006 = ╱45╱E╱ // 0x3500 @0x6
0x34fa…3514 at0007 = ╱4a╱J╱ // 0x3501 @0x7
0x34fa…3514 at0008 = ╱4c╱L╱ // 0x3502 @0x8
0x34fa…3514 at0009 = ╱ed╱(╱ // 0x3503 @0x9
0x34fa…3514 at000a = ╱57╱W╱ // 0x3504 @0xa
0x34fa…3514 at000b = ╱ec╱,╱ // 0x3505 @0xb
0x34fa…3514 at000c = ╱35╱5╱ // 0x3506 @0xc
0x34fa…3514 at000d = ╱31╱1╱ // 0x3507 @0xd
0x34fa…3514 at000e = ╱fe0000cc06╱ // 0x3508 @0xe
0x34fa…3514 at0013 = ╱ec╱,╱ // 0x350d @0x13
0x34fa…3514 at0014 = ╱4b╱K╱ // 0x350e @0x14
0x34fa…3514 at0015 = ╱31╱1╱ // 0x350f @0x15
0x34fa…3514 at0016 = ╱34╱4╱ // 0x3510 @0x16
0x34fa…3514 at0017 = ╱ef╱$╱ // 0x3511 @0x17
0x34fa…3514 at0018 = ╱ee╱)╱ // 0x3512 @0x18
0x34fa…3514 at0019 = EOL // 0x3513 @0x19
0x34fa…3514 }
0x3514…353a c291 5800 GET K14$,20:DV$,EGBY$,EGPOSTNR$
0x3514…353a LineComalBin {
0x3514…353a ptr = 0xc291 // 0x3514 @0x0
0x3514…353a lno = 0x16a8 // 0x3516 @0x2
0x3514…353a at0004 = ╱a9╱ GET ╱ // 0x3518 @0x4
0x3514…353a at0005 = ╱4b╱K╱ // 0x3519 @0x5
0x3514…353a at0006 = ╱31╱1╱ // 0x351a @0x6
0x3514…353a at0007 = ╱34╱4╱ // 0x351b @0x7
0x3514…353a at0008 = ╱ef╱$╱ // 0x351c @0x8
0x3514…353a at0009 = ╱ec╱,╱ // 0x351d @0x9
0x3514…353a at000a = ╱32╱2╱ // 0x351e @0xa
0x3514…353a at000b = ╱30╱0╱ // 0x351f @0xb
0x3514…353a at000c = ╱fe0000a005╱ // 0x3520 @0xc
0x3514…353a at0011 = ╱f0╱:╱ // 0x3525 @0x11
0x3514…353a at0012 = ╱44╱D╱ // 0x3526 @0x12
0x3514…353a at0013 = ╱56╱V╱ // 0x3527 @0x13
0x3514…353a at0014 = ╱ef╱$╱ // 0x3528 @0x14
0x3514…353a at0015 = ╱ec╱,╱ // 0x3529 @0x15
0x3514…353a at0016 = ╱45╱E╱ // 0x352a @0x16
0x3514…353a at0017 = ╱47╱G╱ // 0x352b @0x17
0x3514…353a at0018 = ╱42╱B╱ // 0x352c @0x18
0x3514…353a at0019 = ╱59╱Y╱ // 0x352d @0x19
0x3514…353a at001a = ╱ef╱$╱ // 0x352e @0x1a
0x3514…353a at001b = ╱ec╱,╱ // 0x352f @0x1b
0x3514…353a at001c = ╱45╱E╱ // 0x3530 @0x1c
0x3514…353a at001d = ╱47╱G╱ // 0x3531 @0x1d
0x3514…353a at001e = ╱50╱P╱ // 0x3532 @0x1e
0x3514…353a at001f = ╱4f╱O╱ // 0x3533 @0x1f
0x3514…353a at0020 = ╱53╱S╱ // 0x3534 @0x20
0x3514…353a at0021 = ╱54╱T╱ // 0x3535 @0x21
0x3514…353a at0022 = ╱4e╱N╱ // 0x3536 @0x22
0x3514…353a at0023 = ╱52╱R╱ // 0x3537 @0x23
0x3514…353a at0024 = ╱ef╱$╱ // 0x3538 @0x24
0x3514…353a at0025 = EOL // 0x3539 @0x25
0x3514…353a }
0x353a…3554 c2ab 5810 EXEC FEJL(W,52,K14$)
0x353a…3554 LineComalBin {
0x353a…3554 ptr = 0xc2ab // 0x353a @0x0
0x353a…3554 lno = 0x16b2 // 0x353c @0x2
0x353a…3554 at0004 = ╱9d╱ EXEC ╱ // 0x353e @0x4
0x353a…3554 at0005 = ╱46╱F╱ // 0x353f @0x5
0x353a…3554 at0006 = ╱45╱E╱ // 0x3540 @0x6
0x353a…3554 at0007 = ╱4a╱J╱ // 0x3541 @0x7
0x353a…3554 at0008 = ╱4c╱L╱ // 0x3542 @0x8
0x353a…3554 at0009 = ╱ed╱(╱ // 0x3543 @0x9
0x353a…3554 at000a = ╱57╱W╱ // 0x3544 @0xa
0x353a…3554 at000b = ╱ec╱,╱ // 0x3545 @0xb
0x353a…3554 at000c = ╱35╱5╱ // 0x3546 @0xc
0x353a…3554 at000d = ╱32╱2╱ // 0x3547 @0xd
0x353a…3554 at000e = ╱fe0000d006╱ // 0x3548 @0xe
0x353a…3554 at0013 = ╱ec╱,╱ // 0x354d @0x13
0x353a…3554 at0014 = ╱4b╱K╱ // 0x354e @0x14
0x353a…3554 at0015 = ╱31╱1╱ // 0x354f @0x15
0x353a…3554 at0016 = ╱34╱4╱ // 0x3550 @0x16
0x353a…3554 at0017 = ╱ef╱$╱ // 0x3551 @0x17
0x353a…3554 at0018 = ╱ee╱)╱ // 0x3552 @0x18
0x353a…3554 at0019 = EOL // 0x3553 @0x19
0x353a…3554 }
0x3554…355e c2b5 5820 CLOSE K14$
0x3554…355e LineComalBin {
0x3554…355e ptr = 0xc2b5 // 0x3554 @0x0
0x3554…355e lno = 0x16bc // 0x3556 @0x2
0x3554…355e at0004 = ╱a8╱ CLOSE ╱ // 0x3558 @0x4
0x3554…355e at0005 = ╱4b╱K╱ // 0x3559 @0x5
0x3554…355e at0006 = ╱31╱1╱ // 0x355a @0x6
0x3554…355e at0007 = ╱34╱4╱ // 0x355b @0x7
0x3554…355e at0008 = ╱ef╱$╱ // 0x355c @0x8
0x3554…355e at0009 = EOL // 0x355d @0x9
0x3554…355e }
0x355e…3578 c2cf 5830 EXEC FEJL(W,31,K14$)
0x355e…3578 LineComalBin {
0x355e…3578 ptr = 0xc2cf // 0x355e @0x0
0x355e…3578 lno = 0x16c6 // 0x3560 @0x2
0x355e…3578 at0004 = ╱9d╱ EXEC ╱ // 0x3562 @0x4
0x355e…3578 at0005 = ╱46╱F╱ // 0x3563 @0x5
0x355e…3578 at0006 = ╱45╱E╱ // 0x3564 @0x6
0x355e…3578 at0007 = ╱4a╱J╱ // 0x3565 @0x7
0x355e…3578 at0008 = ╱4c╱L╱ // 0x3566 @0x8
0x355e…3578 at0009 = ╱ed╱(╱ // 0x3567 @0x9
0x355e…3578 at000a = ╱57╱W╱ // 0x3568 @0xa
0x355e…3578 at000b = ╱ec╱,╱ // 0x3569 @0xb
0x355e…3578 at000c = ╱33╱3╱ // 0x356a @0xc
0x355e…3578 at000d = ╱31╱1╱ // 0x356b @0xd
0x355e…3578 at000e = ╱fe0000f805╱ // 0x356c @0xe
0x355e…3578 at0013 = ╱ec╱,╱ // 0x3571 @0x13
0x355e…3578 at0014 = ╱4b╱K╱ // 0x3572 @0x14
0x355e…3578 at0015 = ╱31╱1╱ // 0x3573 @0x15
0x355e…3578 at0016 = ╱34╱4╱ // 0x3574 @0x16
0x355e…3578 at0017 = ╱ef╱$╱ // 0x3575 @0x17
0x355e…3578 at0018 = ╱ee╱)╱ // 0x3576 @0x18
0x355e…3578 at0019 = EOL // 0x3577 @0x19
0x355e…3578 }
0x3578…3583 c2da 5840 OPEN K2$,R
0x3578…3583 LineComalBin {
0x3578…3583 ptr = 0xc2da // 0x3578 @0x0
0x3578…3583 lno = 0x16d0 // 0x357a @0x2
0x3578…3583 at0004 = ╱a7╱ OPEN ╱ // 0x357c @0x4
0x3578…3583 at0005 = ╱4b╱K╱ // 0x357d @0x5
0x3578…3583 at0006 = ╱32╱2╱ // 0x357e @0x6
0x3578…3583 at0007 = ╱ef╱$╱ // 0x357f @0x7
0x3578…3583 at0008 = ╱ec╱,╱ // 0x3580 @0x8
0x3578…3583 at0009 = ╱52╱R╱ // 0x3581 @0x9
0x3578…3583 at000a = EOL // 0x3582 @0xa
0x3578…3583 }
0x3583…359c c2f3 5850 EXEC FEJL(W,32,K2$)
0x3583…359c LineComalBin {
0x3583…359c ptr = 0xc2f3 // 0x3583 @0x0
0x3583…359c lno = 0x16da // 0x3585 @0x2
0x3583…359c at0004 = ╱9d╱ EXEC ╱ // 0x3587 @0x4
0x3583…359c at0005 = ╱46╱F╱ // 0x3588 @0x5
0x3583…359c at0006 = ╱45╱E╱ // 0x3589 @0x6
0x3583…359c at0007 = ╱4a╱J╱ // 0x358a @0x7
0x3583…359c at0008 = ╱4c╱L╱ // 0x358b @0x8
0x3583…359c at0009 = ╱ed╱(╱ // 0x358c @0x9
0x3583…359c at000a = ╱57╱W╱ // 0x358d @0xa
0x3583…359c at000b = ╱ec╱,╱ // 0x358e @0xb
0x3583…359c at000c = ╱33╱3╱ // 0x358f @0xc
0x3583…359c at000d = ╱32╱2╱ // 0x3590 @0xd
0x3583…359c at000e = ╱fe00008006╱ // 0x3591 @0xe
0x3583…359c at0013 = ╱ec╱,╱ // 0x3596 @0x13
0x3583…359c at0014 = ╱4b╱K╱ // 0x3597 @0x14
0x3583…359c at0015 = ╱32╱2╱ // 0x3598 @0x15
0x3583…359c at0016 = ╱ef╱$╱ // 0x3599 @0x16
0x3583…359c at0017 = ╱ee╱)╱ // 0x359a @0x17
0x3583…359c at0018 = EOL // 0x359b @0x18
0x3583…359c }
0x359c…35a7 c2fe 5860 OPEN K3$,R
0x359c…35a7 LineComalBin {
0x359c…35a7 ptr = 0xc2fe // 0x359c @0x0
0x359c…35a7 lno = 0x16e4 // 0x359e @0x2
0x359c…35a7 at0004 = ╱a7╱ OPEN ╱ // 0x35a0 @0x4
0x359c…35a7 at0005 = ╱4b╱K╱ // 0x35a1 @0x5
0x359c…35a7 at0006 = ╱33╱3╱ // 0x35a2 @0x6
0x359c…35a7 at0007 = ╱ef╱$╱ // 0x35a3 @0x7
0x359c…35a7 at0008 = ╱ec╱,╱ // 0x35a4 @0x8
0x359c…35a7 at0009 = ╱52╱R╱ // 0x35a5 @0x9
0x359c…35a7 at000a = EOL // 0x35a6 @0xa
0x359c…35a7 }
0x35a7…35c0 c317 5870 EXEC FEJL(W,33,K3$)
0x35a7…35c0 LineComalBin {
0x35a7…35c0 ptr = 0xc317 // 0x35a7 @0x0
0x35a7…35c0 lno = 0x16ee // 0x35a9 @0x2
0x35a7…35c0 at0004 = ╱9d╱ EXEC ╱ // 0x35ab @0x4
0x35a7…35c0 at0005 = ╱46╱F╱ // 0x35ac @0x5
0x35a7…35c0 at0006 = ╱45╱E╱ // 0x35ad @0x6
0x35a7…35c0 at0007 = ╱4a╱J╱ // 0x35ae @0x7
0x35a7…35c0 at0008 = ╱4c╱L╱ // 0x35af @0x8
0x35a7…35c0 at0009 = ╱ed╱(╱ // 0x35b0 @0x9
0x35a7…35c0 at000a = ╱57╱W╱ // 0x35b1 @0xa
0x35a7…35c0 at000b = ╱ec╱,╱ // 0x35b2 @0xb
0x35a7…35c0 at000c = ╱33╱3╱ // 0x35b3 @0xc
0x35a7…35c0 at000d = ╱33╱3╱ // 0x35b4 @0xd
0x35a7…35c0 at000e = ╱fe00008406╱ // 0x35b5 @0xe
0x35a7…35c0 at0013 = ╱ec╱,╱ // 0x35ba @0x13
0x35a7…35c0 at0014 = ╱4b╱K╱ // 0x35bb @0x14
0x35a7…35c0 at0015 = ╱33╱3╱ // 0x35bc @0x15
0x35a7…35c0 at0016 = ╱ef╱$╱ // 0x35bd @0x16
0x35a7…35c0 at0017 = ╱ee╱)╱ // 0x35be @0x17
0x35a7…35c0 at0018 = EOL // 0x35bf @0x18
0x35a7…35c0 }
0x35c0…35cb c322 5880 OPEN K4$,R
0x35c0…35cb LineComalBin {
0x35c0…35cb ptr = 0xc322 // 0x35c0 @0x0
0x35c0…35cb lno = 0x16f8 // 0x35c2 @0x2
0x35c0…35cb at0004 = ╱a7╱ OPEN ╱ // 0x35c4 @0x4
0x35c0…35cb at0005 = ╱4b╱K╱ // 0x35c5 @0x5
0x35c0…35cb at0006 = ╱34╱4╱ // 0x35c6 @0x6
0x35c0…35cb at0007 = ╱ef╱$╱ // 0x35c7 @0x7
0x35c0…35cb at0008 = ╱ec╱,╱ // 0x35c8 @0x8
0x35c0…35cb at0009 = ╱52╱R╱ // 0x35c9 @0x9
0x35c0…35cb at000a = EOL // 0x35ca @0xa
0x35c0…35cb }
0x35cb…35e4 c33b 5890 EXEC FEJL(W,34,K4$)
0x35cb…35e4 LineComalBin {
0x35cb…35e4 ptr = 0xc33b // 0x35cb @0x0
0x35cb…35e4 lno = 0x1702 // 0x35cd @0x2
0x35cb…35e4 at0004 = ╱9d╱ EXEC ╱ // 0x35cf @0x4
0x35cb…35e4 at0005 = ╱46╱F╱ // 0x35d0 @0x5
0x35cb…35e4 at0006 = ╱45╱E╱ // 0x35d1 @0x6
0x35cb…35e4 at0007 = ╱4a╱J╱ // 0x35d2 @0x7
0x35cb…35e4 at0008 = ╱4c╱L╱ // 0x35d3 @0x8
0x35cb…35e4 at0009 = ╱ed╱(╱ // 0x35d4 @0x9
0x35cb…35e4 at000a = ╱57╱W╱ // 0x35d5 @0xa
0x35cb…35e4 at000b = ╱ec╱,╱ // 0x35d6 @0xb
0x35cb…35e4 at000c = ╱33╱3╱ // 0x35d7 @0xc
0x35cb…35e4 at000d = ╱34╱4╱ // 0x35d8 @0xd
0x35cb…35e4 at000e = ╱fe00008806╱ // 0x35d9 @0xe
0x35cb…35e4 at0013 = ╱ec╱,╱ // 0x35de @0x13
0x35cb…35e4 at0014 = ╱4b╱K╱ // 0x35df @0x14
0x35cb…35e4 at0015 = ╱34╱4╱ // 0x35e0 @0x15
0x35cb…35e4 at0016 = ╱ef╱$╱ // 0x35e1 @0x16
0x35cb…35e4 at0017 = ╱ee╱)╱ // 0x35e2 @0x17
0x35cb…35e4 at0018 = EOL // 0x35e3 @0x18
0x35cb…35e4 }
0x35e4…35ef c346 5900 OPEN K5$,R
0x35e4…35ef LineComalBin {
0x35e4…35ef ptr = 0xc346 // 0x35e4 @0x0
0x35e4…35ef lno = 0x170c // 0x35e6 @0x2
0x35e4…35ef at0004 = ╱a7╱ OPEN ╱ // 0x35e8 @0x4
0x35e4…35ef at0005 = ╱4b╱K╱ // 0x35e9 @0x5
0x35e4…35ef at0006 = ╱35╱5╱ // 0x35ea @0x6
0x35e4…35ef at0007 = ╱ef╱$╱ // 0x35eb @0x7
0x35e4…35ef at0008 = ╱ec╱,╱ // 0x35ec @0x8
0x35e4…35ef at0009 = ╱52╱R╱ // 0x35ed @0x9
0x35e4…35ef at000a = EOL // 0x35ee @0xa
0x35e4…35ef }
0x35ef…3608 c35f 5910 EXEC FEJL(W,35,K5$)
0x35ef…3608 LineComalBin {
0x35ef…3608 ptr = 0xc35f // 0x35ef @0x0
0x35ef…3608 lno = 0x1716 // 0x35f1 @0x2
0x35ef…3608 at0004 = ╱9d╱ EXEC ╱ // 0x35f3 @0x4
0x35ef…3608 at0005 = ╱46╱F╱ // 0x35f4 @0x5
0x35ef…3608 at0006 = ╱45╱E╱ // 0x35f5 @0x6
0x35ef…3608 at0007 = ╱4a╱J╱ // 0x35f6 @0x7
0x35ef…3608 at0008 = ╱4c╱L╱ // 0x35f7 @0x8
0x35ef…3608 at0009 = ╱ed╱(╱ // 0x35f8 @0x9
0x35ef…3608 at000a = ╱57╱W╱ // 0x35f9 @0xa
0x35ef…3608 at000b = ╱ec╱,╱ // 0x35fa @0xb
0x35ef…3608 at000c = ╱33╱3╱ // 0x35fb @0xc
0x35ef…3608 at000d = ╱35╱5╱ // 0x35fc @0xd
0x35ef…3608 at000e = ╱fe00008c06╱ // 0x35fd @0xe
0x35ef…3608 at0013 = ╱ec╱,╱ // 0x3602 @0x13
0x35ef…3608 at0014 = ╱4b╱K╱ // 0x3603 @0x14
0x35ef…3608 at0015 = ╱35╱5╱ // 0x3604 @0x15
0x35ef…3608 at0016 = ╱ef╱$╱ // 0x3605 @0x16
0x35ef…3608 at0017 = ╱ee╱)╱ // 0x3606 @0x17
0x35ef…3608 at0018 = EOL // 0x3607 @0x18
0x35ef…3608 }
0x3608…3613 c36a 5920 OPEN K6$,R
0x3608…3613 LineComalBin {
0x3608…3613 ptr = 0xc36a // 0x3608 @0x0
0x3608…3613 lno = 0x1720 // 0x360a @0x2
0x3608…3613 at0004 = ╱a7╱ OPEN ╱ // 0x360c @0x4
0x3608…3613 at0005 = ╱4b╱K╱ // 0x360d @0x5
0x3608…3613 at0006 = ╱36╱6╱ // 0x360e @0x6
0x3608…3613 at0007 = ╱ef╱$╱ // 0x360f @0x7
0x3608…3613 at0008 = ╱ec╱,╱ // 0x3610 @0x8
0x3608…3613 at0009 = ╱52╱R╱ // 0x3611 @0x9
0x3608…3613 at000a = EOL // 0x3612 @0xa
0x3608…3613 }
0x3613…362c c383 5930 EXEC FEJL(W,36,K6$)
0x3613…362c LineComalBin {
0x3613…362c ptr = 0xc383 // 0x3613 @0x0
0x3613…362c lno = 0x172a // 0x3615 @0x2
0x3613…362c at0004 = ╱9d╱ EXEC ╱ // 0x3617 @0x4
0x3613…362c at0005 = ╱46╱F╱ // 0x3618 @0x5
0x3613…362c at0006 = ╱45╱E╱ // 0x3619 @0x6
0x3613…362c at0007 = ╱4a╱J╱ // 0x361a @0x7
0x3613…362c at0008 = ╱4c╱L╱ // 0x361b @0x8
0x3613…362c at0009 = ╱ed╱(╱ // 0x361c @0x9
0x3613…362c at000a = ╱57╱W╱ // 0x361d @0xa
0x3613…362c at000b = ╱ec╱,╱ // 0x361e @0xb
0x3613…362c at000c = ╱33╱3╱ // 0x361f @0xc
0x3613…362c at000d = ╱36╱6╱ // 0x3620 @0xd
0x3613…362c at000e = ╱fe00009006╱ // 0x3621 @0xe
0x3613…362c at0013 = ╱ec╱,╱ // 0x3626 @0x13
0x3613…362c at0014 = ╱4b╱K╱ // 0x3627 @0x14
0x3613…362c at0015 = ╱36╱6╱ // 0x3628 @0x15
0x3613…362c at0016 = ╱ef╱$╱ // 0x3629 @0x16
0x3613…362c at0017 = ╱ee╱)╱ // 0x362a @0x17
0x3613…362c at0018 = EOL // 0x362b @0x18
0x3613…362c }
0x362c…3637 c38e 5940 OPEN K7$,R
0x362c…3637 LineComalBin {
0x362c…3637 ptr = 0xc38e // 0x362c @0x0
0x362c…3637 lno = 0x1734 // 0x362e @0x2
0x362c…3637 at0004 = ╱a7╱ OPEN ╱ // 0x3630 @0x4
0x362c…3637 at0005 = ╱4b╱K╱ // 0x3631 @0x5
0x362c…3637 at0006 = ╱37╱7╱ // 0x3632 @0x6
0x362c…3637 at0007 = ╱ef╱$╱ // 0x3633 @0x7
0x362c…3637 at0008 = ╱ec╱,╱ // 0x3634 @0x8
0x362c…3637 at0009 = ╱52╱R╱ // 0x3635 @0x9
0x362c…3637 at000a = EOL // 0x3636 @0xa
0x362c…3637 }
0x3637…3650 c3a7 5950 EXEC FEJL(W,37,K7$)
0x3637…3650 LineComalBin {
0x3637…3650 ptr = 0xc3a7 // 0x3637 @0x0
0x3637…3650 lno = 0x173e // 0x3639 @0x2
0x3637…3650 at0004 = ╱9d╱ EXEC ╱ // 0x363b @0x4
0x3637…3650 at0005 = ╱46╱F╱ // 0x363c @0x5
0x3637…3650 at0006 = ╱45╱E╱ // 0x363d @0x6
0x3637…3650 at0007 = ╱4a╱J╱ // 0x363e @0x7
0x3637…3650 at0008 = ╱4c╱L╱ // 0x363f @0x8
0x3637…3650 at0009 = ╱ed╱(╱ // 0x3640 @0x9
0x3637…3650 at000a = ╱57╱W╱ // 0x3641 @0xa
0x3637…3650 at000b = ╱ec╱,╱ // 0x3642 @0xb
0x3637…3650 at000c = ╱33╱3╱ // 0x3643 @0xc
0x3637…3650 at000d = ╱37╱7╱ // 0x3644 @0xd
0x3637…3650 at000e = ╱fe00009406╱ // 0x3645 @0xe
0x3637…3650 at0013 = ╱ec╱,╱ // 0x364a @0x13
0x3637…3650 at0014 = ╱4b╱K╱ // 0x364b @0x14
0x3637…3650 at0015 = ╱37╱7╱ // 0x364c @0x15
0x3637…3650 at0016 = ╱ef╱$╱ // 0x364d @0x16
0x3637…3650 at0017 = ╱ee╱)╱ // 0x364e @0x17
0x3637…3650 at0018 = EOL // 0x364f @0x18
0x3637…3650 }
0x3650…3697 c3ee 5960 DIM DTAB1(MDANTAL DIV 4),FTAB1(MFANTAL DIV 4),KTAB1(MKANTAL DIV 4)
0x3650…3697 LineComalBin {
0x3650…3697 ptr = 0xc3ee // 0x3650 @0x0
0x3650…3697 lno = 0x1748 // 0x3652 @0x2
0x3650…3697 at0004 = ╱87╱ DIM ╱ // 0x3654 @0x4
0x3650…3697 at0005 = ╱44╱D╱ // 0x3655 @0x5
0x3650…3697 at0006 = ╱54╱T╱ // 0x3656 @0x6
0x3650…3697 at0007 = ╱41╱A╱ // 0x3657 @0x7
0x3650…3697 at0008 = ╱42╱B╱ // 0x3658 @0x8
0x3650…3697 at0009 = ╱31╱1╱ // 0x3659 @0x9
0x3650…3697 at000a = ╱ed╱(╱ // 0x365a @0xa
0x3650…3697 at000b = ╱4d╱M╱ // 0x365b @0xb
0x3650…3697 at000c = ╱44╱D╱ // 0x365c @0xc
0x3650…3697 at000d = ╱41╱A╱ // 0x365d @0xd
0x3650…3697 at000e = ╱4e╱N╱ // 0x365e @0xe
0x3650…3697 at000f = ╱54╱T╱ // 0x365f @0xf
0x3650…3697 at0010 = ╱41╱A╱ // 0x3660 @0x10
0x3650…3697 at0011 = ╱4c╱L╱ // 0x3661 @0x11
0x3650…3697 at0012 = ╱e7╱ DIV ╱ // 0x3662 @0x12
0x3650…3697 at0013 = ╱34╱4╱ // 0x3663 @0x13
0x3650…3697 at0014 = ╱fe00008003╱ // 0x3664 @0x14
0x3650…3697 at0019 = ╱ee╱)╱ // 0x3669 @0x19
0x3650…3697 at001a = ╱ec╱,╱ // 0x366a @0x1a
0x3650…3697 at001b = ╱46╱F╱ // 0x366b @0x1b
0x3650…3697 at001c = ╱54╱T╱ // 0x366c @0x1c
0x3650…3697 at001d = ╱41╱A╱ // 0x366d @0x1d
0x3650…3697 at001e = ╱42╱B╱ // 0x366e @0x1e
0x3650…3697 at001f = ╱31╱1╱ // 0x366f @0x1f
0x3650…3697 at0020 = ╱ed╱(╱ // 0x3670 @0x20
0x3650…3697 at0021 = ╱4d╱M╱ // 0x3671 @0x21
0x3650…3697 at0022 = ╱46╱F╱ // 0x3672 @0x22
0x3650…3697 at0023 = ╱41╱A╱ // 0x3673 @0x23
0x3650…3697 at0024 = ╱4e╱N╱ // 0x3674 @0x24
0x3650…3697 at0025 = ╱54╱T╱ // 0x3675 @0x25
0x3650…3697 at0026 = ╱41╱A╱ // 0x3676 @0x26
0x3650…3697 at0027 = ╱4c╱L╱ // 0x3677 @0x27
0x3650…3697 at0028 = ╱e7╱ DIV ╱ // 0x3678 @0x28
0x3650…3697 at0029 = ╱34╱4╱ // 0x3679 @0x29
0x3650…3697 at002a = ╱fe00008003╱ // 0x367a @0x2a
0x3650…3697 at002f = ╱ee╱)╱ // 0x367f @0x2f
0x3650…3697 at0030 = ╱ec╱,╱ // 0x3680 @0x30
0x3650…3697 at0031 = ╱4b╱K╱ // 0x3681 @0x31
0x3650…3697 at0032 = ╱54╱T╱ // 0x3682 @0x32
0x3650…3697 at0033 = ╱41╱A╱ // 0x3683 @0x33
0x3650…3697 at0034 = ╱42╱B╱ // 0x3684 @0x34
0x3650…3697 at0035 = ╱31╱1╱ // 0x3685 @0x35
0x3650…3697 at0036 = ╱ed╱(╱ // 0x3686 @0x36
0x3650…3697 at0037 = ╱4d╱M╱ // 0x3687 @0x37
0x3650…3697 at0038 = ╱4b╱K╱ // 0x3688 @0x38
0x3650…3697 at0039 = ╱41╱A╱ // 0x3689 @0x39
0x3650…3697 at003a = ╱4e╱N╱ // 0x368a @0x3a
0x3650…3697 at003b = ╱54╱T╱ // 0x368b @0x3b
0x3650…3697 at003c = ╱41╱A╱ // 0x368c @0x3c
0x3650…3697 at003d = ╱4c╱L╱ // 0x368d @0x3d
0x3650…3697 at003e = ╱e7╱ DIV ╱ // 0x368e @0x3e
0x3650…3697 at003f = ╱34╱4╱ // 0x368f @0x3f
0x3650…3697 at0040 = ╱fe00008003╱ // 0x3690 @0x40
0x3650…3697 at0045 = ╱ee╱)╱ // 0x3695 @0x45
0x3650…3697 at0046 = EOL // 0x3696 @0x46
0x3650…3697 }
0x3697…36ea c441 5970 DIM HFTAB(MFPOST DIV 40,G),FTAB(4,G),KTAB(4,G),HDTAB(MDPOST DIV 40,G)
0x3697…36ea LineComalBin {
0x3697…36ea ptr = 0xc441 // 0x3697 @0x0
0x3697…36ea lno = 0x1752 // 0x3699 @0x2
0x3697…36ea at0004 = ╱87╱ DIM ╱ // 0x369b @0x4
0x3697…36ea at0005 = ╱48╱H╱ // 0x369c @0x5
0x3697…36ea at0006 = ╱46╱F╱ // 0x369d @0x6
0x3697…36ea at0007 = ╱54╱T╱ // 0x369e @0x7
0x3697…36ea at0008 = ╱41╱A╱ // 0x369f @0x8
0x3697…36ea at0009 = ╱42╱B╱ // 0x36a0 @0x9
0x3697…36ea at000a = ╱ed╱(╱ // 0x36a1 @0xa
0x3697…36ea at000b = ╱4d╱M╱ // 0x36a2 @0xb
0x3697…36ea at000c = ╱46╱F╱ // 0x36a3 @0xc
0x3697…36ea at000d = ╱50╱P╱ // 0x36a4 @0xd
0x3697…36ea at000e = ╱4f╱O╱ // 0x36a5 @0xe
0x3697…36ea at000f = ╱53╱S╱ // 0x36a6 @0xf
0x3697…36ea at0010 = ╱54╱T╱ // 0x36a7 @0x10
0x3697…36ea at0011 = ╱e7╱ DIV ╱ // 0x36a8 @0x11
0x3697…36ea at0012 = ╱34╱4╱ // 0x36a9 @0x12
0x3697…36ea at0013 = ╱30╱0╱ // 0x36aa @0x13
0x3697…36ea at0014 = ╱fe0000a006╱ // 0x36ab @0x14
0x3697…36ea at0019 = ╱ec╱,╱ // 0x36b0 @0x19
0x3697…36ea at001a = ╱47╱G╱ // 0x36b1 @0x1a
0x3697…36ea at001b = ╱ee╱)╱ // 0x36b2 @0x1b
0x3697…36ea at001c = ╱ec╱,╱ // 0x36b3 @0x1c
0x3697…36ea at001d = ╱46╱F╱ // 0x36b4 @0x1d
0x3697…36ea at001e = ╱54╱T╱ // 0x36b5 @0x1e
0x3697…36ea at001f = ╱41╱A╱ // 0x36b6 @0x1f
0x3697…36ea at0020 = ╱42╱B╱ // 0x36b7 @0x20
0x3697…36ea at0021 = ╱ed╱(╱ // 0x36b8 @0x21
0x3697…36ea at0022 = ╱34╱4╱ // 0x36b9 @0x22
0x3697…36ea at0023 = ╱fe00008003╱ // 0x36ba @0x23
0x3697…36ea at0028 = ╱ec╱,╱ // 0x36bf @0x28
0x3697…36ea at0029 = ╱47╱G╱ // 0x36c0 @0x29
0x3697…36ea at002a = ╱ee╱)╱ // 0x36c1 @0x2a
0x3697…36ea at002b = ╱ec╱,╱ // 0x36c2 @0x2b
0x3697…36ea at002c = ╱4b╱K╱ // 0x36c3 @0x2c
0x3697…36ea at002d = ╱54╱T╱ // 0x36c4 @0x2d
0x3697…36ea at002e = ╱41╱A╱ // 0x36c5 @0x2e
0x3697…36ea at002f = ╱42╱B╱ // 0x36c6 @0x2f
0x3697…36ea at0030 = ╱ed╱(╱ // 0x36c7 @0x30
0x3697…36ea at0031 = ╱34╱4╱ // 0x36c8 @0x31
0x3697…36ea at0032 = ╱fe00008003╱ // 0x36c9 @0x32
0x3697…36ea at0037 = ╱ec╱,╱ // 0x36ce @0x37
0x3697…36ea at0038 = ╱47╱G╱ // 0x36cf @0x38
0x3697…36ea at0039 = ╱ee╱)╱ // 0x36d0 @0x39
0x3697…36ea at003a = ╱ec╱,╱ // 0x36d1 @0x3a
0x3697…36ea at003b = ╱48╱H╱ // 0x36d2 @0x3b
0x3697…36ea at003c = ╱44╱D╱ // 0x36d3 @0x3c
0x3697…36ea at003d = ╱54╱T╱ // 0x36d4 @0x3d
0x3697…36ea at003e = ╱41╱A╱ // 0x36d5 @0x3e
0x3697…36ea at003f = ╱42╱B╱ // 0x36d6 @0x3f
0x3697…36ea at0040 = ╱ed╱(╱ // 0x36d7 @0x40
0x3697…36ea at0041 = ╱4d╱M╱ // 0x36d8 @0x41
0x3697…36ea at0042 = ╱44╱D╱ // 0x36d9 @0x42
0x3697…36ea at0043 = ╱50╱P╱ // 0x36da @0x43
0x3697…36ea at0044 = ╱4f╱O╱ // 0x36db @0x44
0x3697…36ea at0045 = ╱53╱S╱ // 0x36dc @0x45
0x3697…36ea at0046 = ╱54╱T╱ // 0x36dd @0x46
0x3697…36ea at0047 = ╱e7╱ DIV ╱ // 0x36de @0x47
0x3697…36ea at0048 = ╱34╱4╱ // 0x36df @0x48
0x3697…36ea at0049 = ╱30╱0╱ // 0x36e0 @0x49
0x3697…36ea at004a = ╱fe0000a006╱ // 0x36e1 @0x4a
0x3697…36ea at004f = ╱ec╱,╱ // 0x36e6 @0x4f
0x3697…36ea at0050 = ╱47╱G╱ // 0x36e7 @0x50
0x3697…36ea at0051 = ╱ee╱)╱ // 0x36e8 @0x51
0x3697…36ea at0052 = EOL // 0x36e9 @0x52
0x3697…36ea }
0x36ea…3748 c49f 5990 DIM HKRTAB(MKPOST DIV 40,G),UFTAB(4,G),UDTAB(4,G),UKRTAB(4,G),DTAB(4,G)
0x36ea…3748 LineComalBin {
0x36ea…3748 ptr = 0xc49f // 0x36ea @0x0
0x36ea…3748 lno = 0x1766 // 0x36ec @0x2
0x36ea…3748 at0004 = ╱87╱ DIM ╱ // 0x36ee @0x4
0x36ea…3748 at0005 = ╱48╱H╱ // 0x36ef @0x5
0x36ea…3748 at0006 = ╱4b╱K╱ // 0x36f0 @0x6
0x36ea…3748 at0007 = ╱52╱R╱ // 0x36f1 @0x7
0x36ea…3748 at0008 = ╱54╱T╱ // 0x36f2 @0x8
0x36ea…3748 at0009 = ╱41╱A╱ // 0x36f3 @0x9
0x36ea…3748 at000a = ╱42╱B╱ // 0x36f4 @0xa
0x36ea…3748 at000b = ╱ed╱(╱ // 0x36f5 @0xb
0x36ea…3748 at000c = ╱4d╱M╱ // 0x36f6 @0xc
0x36ea…3748 at000d = ╱4b╱K╱ // 0x36f7 @0xd
0x36ea…3748 at000e = ╱50╱P╱ // 0x36f8 @0xe
0x36ea…3748 at000f = ╱4f╱O╱ // 0x36f9 @0xf
0x36ea…3748 at0010 = ╱53╱S╱ // 0x36fa @0x10
0x36ea…3748 at0011 = ╱54╱T╱ // 0x36fb @0x11
0x36ea…3748 at0012 = ╱e7╱ DIV ╱ // 0x36fc @0x12
0x36ea…3748 at0013 = ╱34╱4╱ // 0x36fd @0x13
0x36ea…3748 at0014 = ╱30╱0╱ // 0x36fe @0x14
0x36ea…3748 at0015 = ╱fe0000a006╱ // 0x36ff @0x15
0x36ea…3748 at001a = ╱ec╱,╱ // 0x3704 @0x1a
0x36ea…3748 at001b = ╱47╱G╱ // 0x3705 @0x1b
0x36ea…3748 at001c = ╱ee╱)╱ // 0x3706 @0x1c
0x36ea…3748 at001d = ╱ec╱,╱ // 0x3707 @0x1d
0x36ea…3748 at001e = ╱55╱U╱ // 0x3708 @0x1e
0x36ea…3748 at001f = ╱46╱F╱ // 0x3709 @0x1f
0x36ea…3748 at0020 = ╱54╱T╱ // 0x370a @0x20
0x36ea…3748 at0021 = ╱41╱A╱ // 0x370b @0x21
0x36ea…3748 at0022 = ╱42╱B╱ // 0x370c @0x22
0x36ea…3748 at0023 = ╱ed╱(╱ // 0x370d @0x23
0x36ea…3748 at0024 = ╱34╱4╱ // 0x370e @0x24
0x36ea…3748 at0025 = ╱fe00008003╱ // 0x370f @0x25
0x36ea…3748 at002a = ╱ec╱,╱ // 0x3714 @0x2a
0x36ea…3748 at002b = ╱47╱G╱ // 0x3715 @0x2b
0x36ea…3748 at002c = ╱ee╱)╱ // 0x3716 @0x2c
0x36ea…3748 at002d = ╱ec╱,╱ // 0x3717 @0x2d
0x36ea…3748 at002e = ╱55╱U╱ // 0x3718 @0x2e
0x36ea…3748 at002f = ╱44╱D╱ // 0x3719 @0x2f
0x36ea…3748 at0030 = ╱54╱T╱ // 0x371a @0x30
0x36ea…3748 at0031 = ╱41╱A╱ // 0x371b @0x31
0x36ea…3748 at0032 = ╱42╱B╱ // 0x371c @0x32
0x36ea…3748 at0033 = ╱ed╱(╱ // 0x371d @0x33
0x36ea…3748 at0034 = ╱34╱4╱ // 0x371e @0x34
0x36ea…3748 at0035 = ╱fe00008003╱ // 0x371f @0x35
0x36ea…3748 at003a = ╱ec╱,╱ // 0x3724 @0x3a
0x36ea…3748 at003b = ╱47╱G╱ // 0x3725 @0x3b
0x36ea…3748 at003c = ╱ee╱)╱ // 0x3726 @0x3c
0x36ea…3748 at003d = ╱ec╱,╱ // 0x3727 @0x3d
0x36ea…3748 at003e = ╱55╱U╱ // 0x3728 @0x3e
0x36ea…3748 at003f = ╱4b╱K╱ // 0x3729 @0x3f
0x36ea…3748 at0040 = ╱52╱R╱ // 0x372a @0x40
0x36ea…3748 at0041 = ╱54╱T╱ // 0x372b @0x41
0x36ea…3748 at0042 = ╱41╱A╱ // 0x372c @0x42
0x36ea…3748 at0043 = ╱42╱B╱ // 0x372d @0x43
0x36ea…3748 at0044 = ╱ed╱(╱ // 0x372e @0x44
0x36ea…3748 at0045 = ╱34╱4╱ // 0x372f @0x45
0x36ea…3748 at0046 = ╱fe00008003╱ // 0x3730 @0x46
0x36ea…3748 at004b = ╱ec╱,╱ // 0x3735 @0x4b
0x36ea…3748 at004c = ╱47╱G╱ // 0x3736 @0x4c
0x36ea…3748 at004d = ╱ee╱)╱ // 0x3737 @0x4d
0x36ea…3748 at004e = ╱ec╱,╱ // 0x3738 @0x4e
0x36ea…3748 at004f = ╱44╱D╱ // 0x3739 @0x4f
0x36ea…3748 at0050 = ╱54╱T╱ // 0x373a @0x50
0x36ea…3748 at0051 = ╱41╱A╱ // 0x373b @0x51
0x36ea…3748 at0052 = ╱42╱B╱ // 0x373c @0x52
0x36ea…3748 at0053 = ╱ed╱(╱ // 0x373d @0x53
0x36ea…3748 at0054 = ╱34╱4╱ // 0x373e @0x54
0x36ea…3748 at0055 = ╱fe00008003╱ // 0x373f @0x55
0x36ea…3748 at005a = ╱ec╱,╱ // 0x3744 @0x5a
0x36ea…3748 at005b = ╱47╱G╱ // 0x3745 @0x5b
0x36ea…3748 at005c = ╱ee╱)╱ // 0x3746 @0x5c
0x36ea…3748 at005d = EOL // 0x3747 @0x5d
0x36ea…3748 }
0x3748…3768 c4bf 6000 EXEC INDTAB1(FTAB1,MFANTAL,K2$)
0x3748…3768 LineComalBin {
0x3748…3768 ptr = 0xc4bf // 0x3748 @0x0
0x3748…3768 lno = 0x1770 // 0x374a @0x2
0x3748…3768 at0004 = ╱9d╱ EXEC ╱ // 0x374c @0x4
0x3748…3768 at0005 = ╱49╱I╱ // 0x374d @0x5
0x3748…3768 at0006 = ╱4e╱N╱ // 0x374e @0x6
0x3748…3768 at0007 = ╱44╱D╱ // 0x374f @0x7
0x3748…3768 at0008 = ╱54╱T╱ // 0x3750 @0x8
0x3748…3768 at0009 = ╱41╱A╱ // 0x3751 @0x9
0x3748…3768 at000a = ╱42╱B╱ // 0x3752 @0xa
0x3748…3768 at000b = ╱31╱1╱ // 0x3753 @0xb
0x3748…3768 at000c = ╱ed╱(╱ // 0x3754 @0xc
0x3748…3768 at000d = ╱46╱F╱ // 0x3755 @0xd
0x3748…3768 at000e = ╱54╱T╱ // 0x3756 @0xe
0x3748…3768 at000f = ╱41╱A╱ // 0x3757 @0xf
0x3748…3768 at0010 = ╱42╱B╱ // 0x3758 @0x10
0x3748…3768 at0011 = ╱31╱1╱ // 0x3759 @0x11
0x3748…3768 at0012 = ╱ec╱,╱ // 0x375a @0x12
0x3748…3768 at0013 = ╱4d╱M╱ // 0x375b @0x13
0x3748…3768 at0014 = ╱46╱F╱ // 0x375c @0x14
0x3748…3768 at0015 = ╱41╱A╱ // 0x375d @0x15
0x3748…3768 at0016 = ╱4e╱N╱ // 0x375e @0x16
0x3748…3768 at0017 = ╱54╱T╱ // 0x375f @0x17
0x3748…3768 at0018 = ╱41╱A╱ // 0x3760 @0x18
0x3748…3768 at0019 = ╱4c╱L╱ // 0x3761 @0x19
0x3748…3768 at001a = ╱ec╱,╱ // 0x3762 @0x1a
0x3748…3768 at001b = ╱4b╱K╱ // 0x3763 @0x1b
0x3748…3768 at001c = ╱32╱2╱ // 0x3764 @0x1c
0x3748…3768 at001d = ╱ef╱$╱ // 0x3765 @0x1d
0x3748…3768 at001e = ╱ee╱)╱ // 0x3766 @0x1e
0x3748…3768 at001f = EOL // 0x3767 @0x1f
0x3748…3768 }
0x3768…3788 c4df 6010 EXEC INDTAB1(DTAB1,MDANTAL,K3$)
0x3768…3788 LineComalBin {
0x3768…3788 ptr = 0xc4df // 0x3768 @0x0
0x3768…3788 lno = 0x177a // 0x376a @0x2
0x3768…3788 at0004 = ╱9d╱ EXEC ╱ // 0x376c @0x4
0x3768…3788 at0005 = ╱49╱I╱ // 0x376d @0x5
0x3768…3788 at0006 = ╱4e╱N╱ // 0x376e @0x6
0x3768…3788 at0007 = ╱44╱D╱ // 0x376f @0x7
0x3768…3788 at0008 = ╱54╱T╱ // 0x3770 @0x8
0x3768…3788 at0009 = ╱41╱A╱ // 0x3771 @0x9
0x3768…3788 at000a = ╱42╱B╱ // 0x3772 @0xa
0x3768…3788 at000b = ╱31╱1╱ // 0x3773 @0xb
0x3768…3788 at000c = ╱ed╱(╱ // 0x3774 @0xc
0x3768…3788 at000d = ╱44╱D╱ // 0x3775 @0xd
0x3768…3788 at000e = ╱54╱T╱ // 0x3776 @0xe
0x3768…3788 at000f = ╱41╱A╱ // 0x3777 @0xf
0x3768…3788 at0010 = ╱42╱B╱ // 0x3778 @0x10
0x3768…3788 at0011 = ╱31╱1╱ // 0x3779 @0x11
0x3768…3788 at0012 = ╱ec╱,╱ // 0x377a @0x12
0x3768…3788 at0013 = ╱4d╱M╱ // 0x377b @0x13
0x3768…3788 at0014 = ╱44╱D╱ // 0x377c @0x14
0x3768…3788 at0015 = ╱41╱A╱ // 0x377d @0x15
0x3768…3788 at0016 = ╱4e╱N╱ // 0x377e @0x16
0x3768…3788 at0017 = ╱54╱T╱ // 0x377f @0x17
0x3768…3788 at0018 = ╱41╱A╱ // 0x3780 @0x18
0x3768…3788 at0019 = ╱4c╱L╱ // 0x3781 @0x19
0x3768…3788 at001a = ╱ec╱,╱ // 0x3782 @0x1a
0x3768…3788 at001b = ╱4b╱K╱ // 0x3783 @0x1b
0x3768…3788 at001c = ╱33╱3╱ // 0x3784 @0x1c
0x3768…3788 at001d = ╱ef╱$╱ // 0x3785 @0x1d
0x3768…3788 at001e = ╱ee╱)╱ // 0x3786 @0x1e
0x3768…3788 at001f = EOL // 0x3787 @0x1f
0x3768…3788 }
0x3788…37a8 c4ff 6020 EXEC INDTAB1(KTAB1,MKANTAL,K4$)
0x3788…37a8 LineComalBin {
0x3788…37a8 ptr = 0xc4ff // 0x3788 @0x0
0x3788…37a8 lno = 0x1784 // 0x378a @0x2
0x3788…37a8 at0004 = ╱9d╱ EXEC ╱ // 0x378c @0x4
0x3788…37a8 at0005 = ╱49╱I╱ // 0x378d @0x5
0x3788…37a8 at0006 = ╱4e╱N╱ // 0x378e @0x6
0x3788…37a8 at0007 = ╱44╱D╱ // 0x378f @0x7
0x3788…37a8 at0008 = ╱54╱T╱ // 0x3790 @0x8
0x3788…37a8 at0009 = ╱41╱A╱ // 0x3791 @0x9
0x3788…37a8 at000a = ╱42╱B╱ // 0x3792 @0xa
0x3788…37a8 at000b = ╱31╱1╱ // 0x3793 @0xb
0x3788…37a8 at000c = ╱ed╱(╱ // 0x3794 @0xc
0x3788…37a8 at000d = ╱4b╱K╱ // 0x3795 @0xd
0x3788…37a8 at000e = ╱54╱T╱ // 0x3796 @0xe
0x3788…37a8 at000f = ╱41╱A╱ // 0x3797 @0xf
0x3788…37a8 at0010 = ╱42╱B╱ // 0x3798 @0x10
0x3788…37a8 at0011 = ╱31╱1╱ // 0x3799 @0x11
0x3788…37a8 at0012 = ╱ec╱,╱ // 0x379a @0x12
0x3788…37a8 at0013 = ╱4d╱M╱ // 0x379b @0x13
0x3788…37a8 at0014 = ╱4b╱K╱ // 0x379c @0x14
0x3788…37a8 at0015 = ╱41╱A╱ // 0x379d @0x15
0x3788…37a8 at0016 = ╱4e╱N╱ // 0x379e @0x16
0x3788…37a8 at0017 = ╱54╱T╱ // 0x379f @0x17
0x3788…37a8 at0018 = ╱41╱A╱ // 0x37a0 @0x18
0x3788…37a8 at0019 = ╱4c╱L╱ // 0x37a1 @0x19
0x3788…37a8 at001a = ╱ec╱,╱ // 0x37a2 @0x1a
0x3788…37a8 at001b = ╱4b╱K╱ // 0x37a3 @0x1b
0x3788…37a8 at001c = ╱34╱4╱ // 0x37a4 @0x1c
0x3788…37a8 at001d = ╱ef╱$╱ // 0x37a5 @0x1d
0x3788…37a8 at001e = ╱ee╱)╱ // 0x37a6 @0x1e
0x3788…37a8 at001f = EOL // 0x37a7 @0x1f
0x3788…37a8 }
0x37a8…37c7 c51e 6030 EXEC HOVIND(K11$,MFPOST,HFTAB)
0x37a8…37c7 LineComalBin {
0x37a8…37c7 ptr = 0xc51e // 0x37a8 @0x0
0x37a8…37c7 lno = 0x178e // 0x37aa @0x2
0x37a8…37c7 at0004 = ╱9d╱ EXEC ╱ // 0x37ac @0x4
0x37a8…37c7 at0005 = ╱48╱H╱ // 0x37ad @0x5
0x37a8…37c7 at0006 = ╱4f╱O╱ // 0x37ae @0x6
0x37a8…37c7 at0007 = ╱56╱V╱ // 0x37af @0x7
0x37a8…37c7 at0008 = ╱49╱I╱ // 0x37b0 @0x8
0x37a8…37c7 at0009 = ╱4e╱N╱ // 0x37b1 @0x9
0x37a8…37c7 at000a = ╱44╱D╱ // 0x37b2 @0xa
0x37a8…37c7 at000b = ╱ed╱(╱ // 0x37b3 @0xb
0x37a8…37c7 at000c = ╱4b╱K╱ // 0x37b4 @0xc
0x37a8…37c7 at000d = ╱31╱1╱ // 0x37b5 @0xd
0x37a8…37c7 at000e = ╱31╱1╱ // 0x37b6 @0xe
0x37a8…37c7 at000f = ╱ef╱$╱ // 0x37b7 @0xf
0x37a8…37c7 at0010 = ╱ec╱,╱ // 0x37b8 @0x10
0x37a8…37c7 at0011 = ╱4d╱M╱ // 0x37b9 @0x11
0x37a8…37c7 at0012 = ╱46╱F╱ // 0x37ba @0x12
0x37a8…37c7 at0013 = ╱50╱P╱ // 0x37bb @0x13
0x37a8…37c7 at0014 = ╱4f╱O╱ // 0x37bc @0x14
0x37a8…37c7 at0015 = ╱53╱S╱ // 0x37bd @0x15
0x37a8…37c7 at0016 = ╱54╱T╱ // 0x37be @0x16
0x37a8…37c7 at0017 = ╱ec╱,╱ // 0x37bf @0x17
0x37a8…37c7 at0018 = ╱48╱H╱ // 0x37c0 @0x18
0x37a8…37c7 at0019 = ╱46╱F╱ // 0x37c1 @0x19
0x37a8…37c7 at001a = ╱54╱T╱ // 0x37c2 @0x1a
0x37a8…37c7 at001b = ╱41╱A╱ // 0x37c3 @0x1b
0x37a8…37c7 at001c = ╱42╱B╱ // 0x37c4 @0x1c
0x37a8…37c7 at001d = ╱ee╱)╱ // 0x37c5 @0x1d
0x37a8…37c7 at001e = EOL // 0x37c6 @0x1e
0x37a8…37c7 }
0x37c7…37e6 c53d 6040 EXEC HOVIND(K12$,MDPOST,HDTAB)
0x37c7…37e6 LineComalBin {
0x37c7…37e6 ptr = 0xc53d // 0x37c7 @0x0
0x37c7…37e6 lno = 0x1798 // 0x37c9 @0x2
0x37c7…37e6 at0004 = ╱9d╱ EXEC ╱ // 0x37cb @0x4
0x37c7…37e6 at0005 = ╱48╱H╱ // 0x37cc @0x5
0x37c7…37e6 at0006 = ╱4f╱O╱ // 0x37cd @0x6
0x37c7…37e6 at0007 = ╱56╱V╱ // 0x37ce @0x7
0x37c7…37e6 at0008 = ╱49╱I╱ // 0x37cf @0x8
0x37c7…37e6 at0009 = ╱4e╱N╱ // 0x37d0 @0x9
0x37c7…37e6 at000a = ╱44╱D╱ // 0x37d1 @0xa
0x37c7…37e6 at000b = ╱ed╱(╱ // 0x37d2 @0xb
0x37c7…37e6 at000c = ╱4b╱K╱ // 0x37d3 @0xc
0x37c7…37e6 at000d = ╱31╱1╱ // 0x37d4 @0xd
0x37c7…37e6 at000e = ╱32╱2╱ // 0x37d5 @0xe
0x37c7…37e6 at000f = ╱ef╱$╱ // 0x37d6 @0xf
0x37c7…37e6 at0010 = ╱ec╱,╱ // 0x37d7 @0x10
0x37c7…37e6 at0011 = ╱4d╱M╱ // 0x37d8 @0x11
0x37c7…37e6 at0012 = ╱44╱D╱ // 0x37d9 @0x12
0x37c7…37e6 at0013 = ╱50╱P╱ // 0x37da @0x13
0x37c7…37e6 at0014 = ╱4f╱O╱ // 0x37db @0x14
0x37c7…37e6 at0015 = ╱53╱S╱ // 0x37dc @0x15
0x37c7…37e6 at0016 = ╱54╱T╱ // 0x37dd @0x16
0x37c7…37e6 at0017 = ╱ec╱,╱ // 0x37de @0x17
0x37c7…37e6 at0018 = ╱48╱H╱ // 0x37df @0x18
0x37c7…37e6 at0019 = ╱44╱D╱ // 0x37e0 @0x19
0x37c7…37e6 at001a = ╱54╱T╱ // 0x37e1 @0x1a
0x37c7…37e6 at001b = ╱41╱A╱ // 0x37e2 @0x1b
0x37c7…37e6 at001c = ╱42╱B╱ // 0x37e3 @0x1c
0x37c7…37e6 at001d = ╱ee╱)╱ // 0x37e4 @0x1d
0x37c7…37e6 at001e = EOL // 0x37e5 @0x1e
0x37c7…37e6 }
0x37e6…3806 c55d 6050 EXEC HOVIND(K13$,MKPOST,HKRTAB)
0x37e6…3806 LineComalBin {
0x37e6…3806 ptr = 0xc55d // 0x37e6 @0x0
0x37e6…3806 lno = 0x17a2 // 0x37e8 @0x2
0x37e6…3806 at0004 = ╱9d╱ EXEC ╱ // 0x37ea @0x4
0x37e6…3806 at0005 = ╱48╱H╱ // 0x37eb @0x5
0x37e6…3806 at0006 = ╱4f╱O╱ // 0x37ec @0x6
0x37e6…3806 at0007 = ╱56╱V╱ // 0x37ed @0x7
0x37e6…3806 at0008 = ╱49╱I╱ // 0x37ee @0x8
0x37e6…3806 at0009 = ╱4e╱N╱ // 0x37ef @0x9
0x37e6…3806 at000a = ╱44╱D╱ // 0x37f0 @0xa
0x37e6…3806 at000b = ╱ed╱(╱ // 0x37f1 @0xb
0x37e6…3806 at000c = ╱4b╱K╱ // 0x37f2 @0xc
0x37e6…3806 at000d = ╱31╱1╱ // 0x37f3 @0xd
0x37e6…3806 at000e = ╱33╱3╱ // 0x37f4 @0xe
0x37e6…3806 at000f = ╱ef╱$╱ // 0x37f5 @0xf
0x37e6…3806 at0010 = ╱ec╱,╱ // 0x37f6 @0x10
0x37e6…3806 at0011 = ╱4d╱M╱ // 0x37f7 @0x11
0x37e6…3806 at0012 = ╱4b╱K╱ // 0x37f8 @0x12
0x37e6…3806 at0013 = ╱50╱P╱ // 0x37f9 @0x13
0x37e6…3806 at0014 = ╱4f╱O╱ // 0x37fa @0x14
0x37e6…3806 at0015 = ╱53╱S╱ // 0x37fb @0x15
0x37e6…3806 at0016 = ╱54╱T╱ // 0x37fc @0x16
0x37e6…3806 at0017 = ╱ec╱,╱ // 0x37fd @0x17
0x37e6…3806 at0018 = ╱48╱H╱ // 0x37fe @0x18
0x37e6…3806 at0019 = ╱4b╱K╱ // 0x37ff @0x19
0x37e6…3806 at001a = ╱52╱R╱ // 0x3800 @0x1a
0x37e6…3806 at001b = ╱54╱T╱ // 0x3801 @0x1b
0x37e6…3806 at001c = ╱41╱A╱ // 0x3802 @0x1c
0x37e6…3806 at001d = ╱42╱B╱ // 0x3803 @0x1d
0x37e6…3806 at001e = ╱ee╱)╱ // 0x3804 @0x1e
0x37e6…3806 at001f = EOL // 0x3805 @0x1f
0x37e6…3806 }
0x3806…3831 c588 6060 LTX$(E)="Indtast kontonr. (0:færdig):"
0x3806…3831 LineComalBin {
0x3806…3831 ptr = 0xc588 // 0x3806 @0x0
0x3806…3831 lno = 0x17ac // 0x3808 @0x2
0x3806…3831 at0004 = ╱4c╱L╱ // 0x380a @0x4
0x3806…3831 at0005 = ╱54╱T╱ // 0x380b @0x5
0x3806…3831 at0006 = ╱58╱X╱ // 0x380c @0x6
0x3806…3831 at0007 = ╱ef╱$╱ // 0x380d @0x7
0x3806…3831 at0008 = ╱ed╱(╱ // 0x380e @0x8
0x3806…3831 at0009 = ╱45╱E╱ // 0x380f @0x9
0x3806…3831 at000a = ╱ee╱)╱ // 0x3810 @0xa
0x3806…3831 at000b = ╱dc╱=╱ // 0x3811 @0xb
0x3806…3831 at000c = ╱22╱"╱ // 0x3812 @0xc
0x3806…3831 at000d = ╱49╱I╱ // 0x3813 @0xd
0x3806…3831 at000e = ╱6e╱n╱ // 0x3814 @0xe
0x3806…3831 at000f = ╱64╱d╱ // 0x3815 @0xf
0x3806…3831 at0010 = ╱74╱t╱ // 0x3816 @0x10
0x3806…3831 at0011 = ╱61╱a╱ // 0x3817 @0x11
0x3806…3831 at0012 = ╱73╱s╱ // 0x3818 @0x12
0x3806…3831 at0013 = ╱74╱t╱ // 0x3819 @0x13
0x3806…3831 at0014 = ╱20╱…╱ // 0x381a @0x14
0x3806…3831 at0015 = ╱6b╱k╱ // 0x381b @0x15
0x3806…3831 at0016 = ╱6f╱o╱ // 0x381c @0x16
0x3806…3831 at0017 = ╱6e╱n╱ // 0x381d @0x17
0x3806…3831 at0018 = ╱74╱t╱ // 0x381e @0x18
0x3806…3831 at0019 = ╱6f╱o╱ // 0x381f @0x19
0x3806…3831 at001a = ╱6e╱n╱ // 0x3820 @0x1a
0x3806…3831 at001b = ╱72╱r╱ // 0x3821 @0x1b
0x3806…3831 at001c = ╱2e╱.╱ // 0x3822 @0x1c
0x3806…3831 at001d = ╱20╱…╱ // 0x3823 @0x1d
0x3806…3831 at001e = ╱28╱(╱ // 0x3824 @0x1e
0x3806…3831 at001f = ╱30╱0╱ // 0x3825 @0x1f
0x3806…3831 at0020 = ╱3a╱:╱ // 0x3826 @0x20
0x3806…3831 at0021 = ╱66╱f╱ // 0x3827 @0x21
0x3806…3831 at0022 = ╱7b╱æ╱ // 0x3828 @0x22
0x3806…3831 at0023 = ╱72╱r╱ // 0x3829 @0x23
0x3806…3831 at0024 = ╱64╱d╱ // 0x382a @0x24
0x3806…3831 at0025 = ╱69╱i╱ // 0x382b @0x25
0x3806…3831 at0026 = ╱67╱g╱ // 0x382c @0x26
0x3806…3831 at0027 = ╱29╱)╱ // 0x382d @0x27
0x3806…3831 at0028 = ╱3a╱:╱ // 0x382e @0x28
0x3806…3831 at0029 = ╱22╱"╱ // 0x382f @0x29
0x3806…3831 at002a = EOL // 0x3830 @0x2a
0x3806…3831 }
0x3831…3852 c5a9 6070 LTX$(G)="Rigtig konto (J/N)"
0x3831…3852 LineComalBin {
0x3831…3852 ptr = 0xc5a9 // 0x3831 @0x0
0x3831…3852 lno = 0x17b6 // 0x3833 @0x2
0x3831…3852 at0004 = ╱4c╱L╱ // 0x3835 @0x4
0x3831…3852 at0005 = ╱54╱T╱ // 0x3836 @0x5
0x3831…3852 at0006 = ╱58╱X╱ // 0x3837 @0x6
0x3831…3852 at0007 = ╱ef╱$╱ // 0x3838 @0x7
0x3831…3852 at0008 = ╱ed╱(╱ // 0x3839 @0x8
0x3831…3852 at0009 = ╱47╱G╱ // 0x383a @0x9
0x3831…3852 at000a = ╱ee╱)╱ // 0x383b @0xa
0x3831…3852 at000b = ╱dc╱=╱ // 0x383c @0xb
0x3831…3852 at000c = ╱22╱"╱ // 0x383d @0xc
0x3831…3852 at000d = ╱52╱R╱ // 0x383e @0xd
0x3831…3852 at000e = ╱69╱i╱ // 0x383f @0xe
0x3831…3852 at000f = ╱67╱g╱ // 0x3840 @0xf
0x3831…3852 at0010 = ╱74╱t╱ // 0x3841 @0x10
0x3831…3852 at0011 = ╱69╱i╱ // 0x3842 @0x11
0x3831…3852 at0012 = ╱67╱g╱ // 0x3843 @0x12
0x3831…3852 at0013 = ╱20╱…╱ // 0x3844 @0x13
0x3831…3852 at0014 = ╱6b╱k╱ // 0x3845 @0x14
0x3831…3852 at0015 = ╱6f╱o╱ // 0x3846 @0x15
0x3831…3852 at0016 = ╱6e╱n╱ // 0x3847 @0x16
0x3831…3852 at0017 = ╱74╱t╱ // 0x3848 @0x17
0x3831…3852 at0018 = ╱6f╱o╱ // 0x3849 @0x18
0x3831…3852 at0019 = ╱20╱…╱ // 0x384a @0x19
0x3831…3852 at001a = ╱28╱(╱ // 0x384b @0x1a
0x3831…3852 at001b = ╱4a╱J╱ // 0x384c @0x1b
0x3831…3852 at001c = ╱2f╱/╱ // 0x384d @0x1c
0x3831…3852 at001d = ╱4e╱N╱ // 0x384e @0x1d
0x3831…3852 at001e = ╱29╱)╱ // 0x384f @0x1e
0x3831…3852 at001f = ╱22╱"╱ // 0x3850 @0x1f
0x3831…3852 at0020 = EOL // 0x3851 @0x20
0x3831…3852 }
0x3852…3883 c5da 6080 LTX$(V)="Konto eksisterer ikke, tast RETURN"
0x3852…3883 LineComalBin {
0x3852…3883 ptr = 0xc5da // 0x3852 @0x0
0x3852…3883 lno = 0x17c0 // 0x3854 @0x2
0x3852…3883 at0004 = ╱4c╱L╱ // 0x3856 @0x4
0x3852…3883 at0005 = ╱54╱T╱ // 0x3857 @0x5
0x3852…3883 at0006 = ╱58╱X╱ // 0x3858 @0x6
0x3852…3883 at0007 = ╱ef╱$╱ // 0x3859 @0x7
0x3852…3883 at0008 = ╱ed╱(╱ // 0x385a @0x8
0x3852…3883 at0009 = ╱56╱V╱ // 0x385b @0x9
0x3852…3883 at000a = ╱ee╱)╱ // 0x385c @0xa
0x3852…3883 at000b = ╱dc╱=╱ // 0x385d @0xb
0x3852…3883 at000c = ╱22╱"╱ // 0x385e @0xc
0x3852…3883 at000d = ╱4b╱K╱ // 0x385f @0xd
0x3852…3883 at000e = ╱6f╱o╱ // 0x3860 @0xe
0x3852…3883 at000f = ╱6e╱n╱ // 0x3861 @0xf
0x3852…3883 at0010 = ╱74╱t╱ // 0x3862 @0x10
0x3852…3883 at0011 = ╱6f╱o╱ // 0x3863 @0x11
0x3852…3883 at0012 = ╱20╱…╱ // 0x3864 @0x12
0x3852…3883 at0013 = ╱65╱e╱ // 0x3865 @0x13
0x3852…3883 at0014 = ╱6b╱k╱ // 0x3866 @0x14
0x3852…3883 at0015 = ╱73╱s╱ // 0x3867 @0x15
0x3852…3883 at0016 = ╱69╱i╱ // 0x3868 @0x16
0x3852…3883 at0017 = ╱73╱s╱ // 0x3869 @0x17
0x3852…3883 at0018 = ╱74╱t╱ // 0x386a @0x18
0x3852…3883 at0019 = ╱65╱e╱ // 0x386b @0x19
0x3852…3883 at001a = ╱72╱r╱ // 0x386c @0x1a
0x3852…3883 at001b = ╱65╱e╱ // 0x386d @0x1b
0x3852…3883 at001c = ╱72╱r╱ // 0x386e @0x1c
0x3852…3883 at001d = ╱20╱…╱ // 0x386f @0x1d
0x3852…3883 at001e = ╱69╱i╱ // 0x3870 @0x1e
0x3852…3883 at001f = ╱6b╱k╱ // 0x3871 @0x1f
0x3852…3883 at0020 = ╱6b╱k╱ // 0x3872 @0x20
0x3852…3883 at0021 = ╱65╱e╱ // 0x3873 @0x21
0x3852…3883 at0022 = ╱2c╱,╱ // 0x3874 @0x22
0x3852…3883 at0023 = ╱20╱…╱ // 0x3875 @0x23
0x3852…3883 at0024 = ╱74╱t╱ // 0x3876 @0x24
0x3852…3883 at0025 = ╱61╱a╱ // 0x3877 @0x25
0x3852…3883 at0026 = ╱73╱s╱ // 0x3878 @0x26
0x3852…3883 at0027 = ╱74╱t╱ // 0x3879 @0x27
0x3852…3883 at0028 = ╱20╱…╱ // 0x387a @0x28
0x3852…3883 at0029 = ╱52╱R╱ // 0x387b @0x29
0x3852…3883 at002a = ╱45╱E╱ // 0x387c @0x2a
0x3852…3883 at002b = ╱54╱T╱ // 0x387d @0x2b
0x3852…3883 at002c = ╱55╱U╱ // 0x387e @0x2c
0x3852…3883 at002d = ╱52╱R╱ // 0x387f @0x2d
0x3852…3883 at002e = ╱4e╱N╱ // 0x3880 @0x2e
0x3852…3883 at002f = ╱22╱"╱ // 0x3881 @0x2f
0x3852…3883 at0030 = EOL // 0x3882 @0x30
0x3852…3883 }
0x3883…38b7 c60e 6090 LTX$(4)="Tast RETURN når sideskift ønskes"
0x3883…38b7 LineComalBin {
0x3883…38b7 ptr = 0xc60e // 0x3883 @0x0
0x3883…38b7 lno = 0x17ca // 0x3885 @0x2
0x3883…38b7 at0004 = ╱4c╱L╱ // 0x3887 @0x4
0x3883…38b7 at0005 = ╱54╱T╱ // 0x3888 @0x5
0x3883…38b7 at0006 = ╱58╱X╱ // 0x3889 @0x6
0x3883…38b7 at0007 = ╱ef╱$╱ // 0x388a @0x7
0x3883…38b7 at0008 = ╱ed╱(╱ // 0x388b @0x8
0x3883…38b7 at0009 = ╱34╱4╱ // 0x388c @0x9
0x3883…38b7 at000a = ╱fe00008003╱ // 0x388d @0xa
0x3883…38b7 at000f = ╱ee╱)╱ // 0x3892 @0xf
0x3883…38b7 at0010 = ╱dc╱=╱ // 0x3893 @0x10
0x3883…38b7 at0011 = ╱22╱"╱ // 0x3894 @0x11
0x3883…38b7 at0012 = ╱54╱T╱ // 0x3895 @0x12
0x3883…38b7 at0013 = ╱61╱a╱ // 0x3896 @0x13
0x3883…38b7 at0014 = ╱73╱s╱ // 0x3897 @0x14
0x3883…38b7 at0015 = ╱74╱t╱ // 0x3898 @0x15
0x3883…38b7 at0016 = ╱20╱…╱ // 0x3899 @0x16
0x3883…38b7 at0017 = ╱52╱R╱ // 0x389a @0x17
0x3883…38b7 at0018 = ╱45╱E╱ // 0x389b @0x18
0x3883…38b7 at0019 = ╱54╱T╱ // 0x389c @0x19
0x3883…38b7 at001a = ╱55╱U╱ // 0x389d @0x1a
0x3883…38b7 at001b = ╱52╱R╱ // 0x389e @0x1b
0x3883…38b7 at001c = ╱4e╱N╱ // 0x389f @0x1c
0x3883…38b7 at001d = ╱20╱…╱ // 0x38a0 @0x1d
0x3883…38b7 at001e = ╱6e╱n╱ // 0x38a1 @0x1e
0x3883…38b7 at001f = ╱7d╱å╱ // 0x38a2 @0x1f
0x3883…38b7 at0020 = ╱72╱r╱ // 0x38a3 @0x20
0x3883…38b7 at0021 = ╱20╱…╱ // 0x38a4 @0x21
0x3883…38b7 at0022 = ╱73╱s╱ // 0x38a5 @0x22
0x3883…38b7 at0023 = ╱69╱i╱ // 0x38a6 @0x23
0x3883…38b7 at0024 = ╱64╱d╱ // 0x38a7 @0x24
0x3883…38b7 at0025 = ╱65╱e╱ // 0x38a8 @0x25
0x3883…38b7 at0026 = ╱73╱s╱ // 0x38a9 @0x26
0x3883…38b7 at0027 = ╱6b╱k╱ // 0x38aa @0x27
0x3883…38b7 at0028 = ╱69╱i╱ // 0x38ab @0x28
0x3883…38b7 at0029 = ╱66╱f╱ // 0x38ac @0x29
0x3883…38b7 at002a = ╱74╱t╱ // 0x38ad @0x2a
0x3883…38b7 at002b = ╱20╱…╱ // 0x38ae @0x2b
0x3883…38b7 at002c = ╱7c╱ø╱ // 0x38af @0x2c
0x3883…38b7 at002d = ╱6e╱n╱ // 0x38b0 @0x2d
0x3883…38b7 at002e = ╱73╱s╱ // 0x38b1 @0x2e
0x3883…38b7 at002f = ╱6b╱k╱ // 0x38b2 @0x2f
0x3883…38b7 at0030 = ╱65╱e╱ // 0x38b3 @0x30
0x3883…38b7 at0031 = ╱73╱s╱ // 0x38b4 @0x31
0x3883…38b7 at0032 = ╱22╱"╱ // 0x38b5 @0x32
0x3883…38b7 at0033 = EOL // 0x38b6 @0x33
0x3883…38b7 }
0x38b7…38f7 c64e 6100 LTX$(5)="Ønskes kontoudtog skrevet på formular (J/N):"
0x38b7…38f7 LineComalBin {
0x38b7…38f7 ptr = 0xc64e // 0x38b7 @0x0
0x38b7…38f7 lno = 0x17d4 // 0x38b9 @0x2
0x38b7…38f7 at0004 = ╱4c╱L╱ // 0x38bb @0x4
0x38b7…38f7 at0005 = ╱54╱T╱ // 0x38bc @0x5
0x38b7…38f7 at0006 = ╱58╱X╱ // 0x38bd @0x6
0x38b7…38f7 at0007 = ╱ef╱$╱ // 0x38be @0x7
0x38b7…38f7 at0008 = ╱ed╱(╱ // 0x38bf @0x8
0x38b7…38f7 at0009 = ╱35╱5╱ // 0x38c0 @0x9
0x38b7…38f7 at000a = ╱fe0000a003╱ // 0x38c1 @0xa
0x38b7…38f7 at000f = ╱ee╱)╱ // 0x38c6 @0xf
0x38b7…38f7 at0010 = ╱dc╱=╱ // 0x38c7 @0x10
0x38b7…38f7 at0011 = ╱22╱"╱ // 0x38c8 @0x11
0x38b7…38f7 at0012 = ╱5c╱Ø╱ // 0x38c9 @0x12
0x38b7…38f7 at0013 = ╱6e╱n╱ // 0x38ca @0x13
0x38b7…38f7 at0014 = ╱73╱s╱ // 0x38cb @0x14
0x38b7…38f7 at0015 = ╱6b╱k╱ // 0x38cc @0x15
0x38b7…38f7 at0016 = ╱65╱e╱ // 0x38cd @0x16
0x38b7…38f7 at0017 = ╱73╱s╱ // 0x38ce @0x17
0x38b7…38f7 at0018 = ╱20╱…╱ // 0x38cf @0x18
0x38b7…38f7 at0019 = ╱6b╱k╱ // 0x38d0 @0x19
0x38b7…38f7 at001a = ╱6f╱o╱ // 0x38d1 @0x1a
0x38b7…38f7 at001b = ╱6e╱n╱ // 0x38d2 @0x1b
0x38b7…38f7 at001c = ╱74╱t╱ // 0x38d3 @0x1c
0x38b7…38f7 at001d = ╱6f╱o╱ // 0x38d4 @0x1d
0x38b7…38f7 at001e = ╱75╱u╱ // 0x38d5 @0x1e
0x38b7…38f7 at001f = ╱64╱d╱ // 0x38d6 @0x1f
0x38b7…38f7 at0020 = ╱74╱t╱ // 0x38d7 @0x20
0x38b7…38f7 at0021 = ╱6f╱o╱ // 0x38d8 @0x21
0x38b7…38f7 at0022 = ╱67╱g╱ // 0x38d9 @0x22
0x38b7…38f7 at0023 = ╱20╱…╱ // 0x38da @0x23
0x38b7…38f7 at0024 = ╱73╱s╱ // 0x38db @0x24
0x38b7…38f7 at0025 = ╱6b╱k╱ // 0x38dc @0x25
0x38b7…38f7 at0026 = ╱72╱r╱ // 0x38dd @0x26
0x38b7…38f7 at0027 = ╱65╱e╱ // 0x38de @0x27
0x38b7…38f7 at0028 = ╱76╱v╱ // 0x38df @0x28
0x38b7…38f7 at0029 = ╱65╱e╱ // 0x38e0 @0x29
0x38b7…38f7 at002a = ╱74╱t╱ // 0x38e1 @0x2a
0x38b7…38f7 at002b = ╱20╱…╱ // 0x38e2 @0x2b
0x38b7…38f7 at002c = ╱70╱p╱ // 0x38e3 @0x2c
0x38b7…38f7 at002d = ╱7d╱å╱ // 0x38e4 @0x2d
0x38b7…38f7 at002e = ╱20╱…╱ // 0x38e5 @0x2e
0x38b7…38f7 at002f = ╱66╱f╱ // 0x38e6 @0x2f
0x38b7…38f7 at0030 = ╱6f╱o╱ // 0x38e7 @0x30
0x38b7…38f7 at0031 = ╱72╱r╱ // 0x38e8 @0x31
0x38b7…38f7 at0032 = ╱6d╱m╱ // 0x38e9 @0x32
0x38b7…38f7 at0033 = ╱75╱u╱ // 0x38ea @0x33
0x38b7…38f7 at0034 = ╱6c╱l╱ // 0x38eb @0x34
0x38b7…38f7 at0035 = ╱61╱a╱ // 0x38ec @0x35
0x38b7…38f7 at0036 = ╱72╱r╱ // 0x38ed @0x36
0x38b7…38f7 at0037 = ╱20╱…╱ // 0x38ee @0x37
0x38b7…38f7 at0038 = ╱28╱(╱ // 0x38ef @0x38
0x38b7…38f7 at0039 = ╱4a╱J╱ // 0x38f0 @0x39
0x38b7…38f7 at003a = ╱2f╱/╱ // 0x38f1 @0x3a
0x38b7…38f7 at003b = ╱4e╱N╱ // 0x38f2 @0x3b
0x38b7…38f7 at003c = ╱29╱)╱ // 0x38f3 @0x3c
0x38b7…38f7 at003d = ╱3a╱:╱ // 0x38f4 @0x3d
0x38b7…38f7 at003e = ╱22╱"╱ // 0x38f5 @0x3e
0x38b7…38f7 at003f = EOL // 0x38f6 @0x3f
0x38b7…38f7 }
0x38f7…3936 c68d 6110 LTX$(6)="Monter kontoudtogsformularer og tast RETURN"
0x38f7…3936 LineComalBin {
0x38f7…3936 ptr = 0xc68d // 0x38f7 @0x0
0x38f7…3936 lno = 0x17de // 0x38f9 @0x2
0x38f7…3936 at0004 = ╱4c╱L╱ // 0x38fb @0x4
0x38f7…3936 at0005 = ╱54╱T╱ // 0x38fc @0x5
0x38f7…3936 at0006 = ╱58╱X╱ // 0x38fd @0x6
0x38f7…3936 at0007 = ╱ef╱$╱ // 0x38fe @0x7
0x38f7…3936 at0008 = ╱ed╱(╱ // 0x38ff @0x8
0x38f7…3936 at0009 = ╱36╱6╱ // 0x3900 @0x9
0x38f7…3936 at000a = ╱fe0000c003╱ // 0x3901 @0xa
0x38f7…3936 at000f = ╱ee╱)╱ // 0x3906 @0xf
0x38f7…3936 at0010 = ╱dc╱=╱ // 0x3907 @0x10
0x38f7…3936 at0011 = ╱22╱"╱ // 0x3908 @0x11
0x38f7…3936 at0012 = ╱4d╱M╱ // 0x3909 @0x12
0x38f7…3936 at0013 = ╱6f╱o╱ // 0x390a @0x13
0x38f7…3936 at0014 = ╱6e╱n╱ // 0x390b @0x14
0x38f7…3936 at0015 = ╱74╱t╱ // 0x390c @0x15
0x38f7…3936 at0016 = ╱65╱e╱ // 0x390d @0x16
0x38f7…3936 at0017 = ╱72╱r╱ // 0x390e @0x17
0x38f7…3936 at0018 = ╱20╱…╱ // 0x390f @0x18
0x38f7…3936 at0019 = ╱6b╱k╱ // 0x3910 @0x19
0x38f7…3936 at001a = ╱6f╱o╱ // 0x3911 @0x1a
0x38f7…3936 at001b = ╱6e╱n╱ // 0x3912 @0x1b
0x38f7…3936 at001c = ╱74╱t╱ // 0x3913 @0x1c
0x38f7…3936 at001d = ╱6f╱o╱ // 0x3914 @0x1d
0x38f7…3936 at001e = ╱75╱u╱ // 0x3915 @0x1e
0x38f7…3936 at001f = ╱64╱d╱ // 0x3916 @0x1f
0x38f7…3936 at0020 = ╱74╱t╱ // 0x3917 @0x20
0x38f7…3936 at0021 = ╱6f╱o╱ // 0x3918 @0x21
0x38f7…3936 at0022 = ╱67╱g╱ // 0x3919 @0x22
0x38f7…3936 at0023 = ╱73╱s╱ // 0x391a @0x23
0x38f7…3936 at0024 = ╱66╱f╱ // 0x391b @0x24
0x38f7…3936 at0025 = ╱6f╱o╱ // 0x391c @0x25
0x38f7…3936 at0026 = ╱72╱r╱ // 0x391d @0x26
0x38f7…3936 at0027 = ╱6d╱m╱ // 0x391e @0x27
0x38f7…3936 at0028 = ╱75╱u╱ // 0x391f @0x28
0x38f7…3936 at0029 = ╱6c╱l╱ // 0x3920 @0x29
0x38f7…3936 at002a = ╱61╱a╱ // 0x3921 @0x2a
0x38f7…3936 at002b = ╱72╱r╱ // 0x3922 @0x2b
0x38f7…3936 at002c = ╱65╱e╱ // 0x3923 @0x2c
0x38f7…3936 at002d = ╱72╱r╱ // 0x3924 @0x2d
0x38f7…3936 at002e = ╱20╱…╱ // 0x3925 @0x2e
0x38f7…3936 at002f = ╱6f╱o╱ // 0x3926 @0x2f
0x38f7…3936 at0030 = ╱67╱g╱ // 0x3927 @0x30
0x38f7…3936 at0031 = ╱20╱…╱ // 0x3928 @0x31
0x38f7…3936 at0032 = ╱74╱t╱ // 0x3929 @0x32
0x38f7…3936 at0033 = ╱61╱a╱ // 0x392a @0x33
0x38f7…3936 at0034 = ╱73╱s╱ // 0x392b @0x34
0x38f7…3936 at0035 = ╱74╱t╱ // 0x392c @0x35
0x38f7…3936 at0036 = ╱20╱…╱ // 0x392d @0x36
0x38f7…3936 at0037 = ╱52╱R╱ // 0x392e @0x37
0x38f7…3936 at0038 = ╱45╱E╱ // 0x392f @0x38
0x38f7…3936 at0039 = ╱54╱T╱ // 0x3930 @0x39
0x38f7…3936 at003a = ╱55╱U╱ // 0x3931 @0x3a
0x38f7…3936 at003b = ╱52╱R╱ // 0x3932 @0x3b
0x38f7…3936 at003c = ╱4e╱N╱ // 0x3933 @0x3c
0x38f7…3936 at003d = ╱22╱"╱ // 0x3934 @0x3d
0x38f7…3936 at003e = EOL // 0x3935 @0x3e
0x38f7…3936 }
0x3936…396c c6c3 6120 LTX$(7)="Ønskes yderligere testprint (J/N):"
0x3936…396c LineComalBin {
0x3936…396c ptr = 0xc6c3 // 0x3936 @0x0
0x3936…396c lno = 0x17e8 // 0x3938 @0x2
0x3936…396c at0004 = ╱4c╱L╱ // 0x393a @0x4
0x3936…396c at0005 = ╱54╱T╱ // 0x393b @0x5
0x3936…396c at0006 = ╱58╱X╱ // 0x393c @0x6
0x3936…396c at0007 = ╱ef╱$╱ // 0x393d @0x7
0x3936…396c at0008 = ╱ed╱(╱ // 0x393e @0x8
0x3936…396c at0009 = ╱37╱7╱ // 0x393f @0x9
0x3936…396c at000a = ╱fe0000e003╱ // 0x3940 @0xa
0x3936…396c at000f = ╱ee╱)╱ // 0x3945 @0xf
0x3936…396c at0010 = ╱dc╱=╱ // 0x3946 @0x10
0x3936…396c at0011 = ╱22╱"╱ // 0x3947 @0x11
0x3936…396c at0012 = ╱5c╱Ø╱ // 0x3948 @0x12
0x3936…396c at0013 = ╱6e╱n╱ // 0x3949 @0x13
0x3936…396c at0014 = ╱73╱s╱ // 0x394a @0x14
0x3936…396c at0015 = ╱6b╱k╱ // 0x394b @0x15
0x3936…396c at0016 = ╱65╱e╱ // 0x394c @0x16
0x3936…396c at0017 = ╱73╱s╱ // 0x394d @0x17
0x3936…396c at0018 = ╱20╱…╱ // 0x394e @0x18
0x3936…396c at0019 = ╱79╱y╱ // 0x394f @0x19
0x3936…396c at001a = ╱64╱d╱ // 0x3950 @0x1a
0x3936…396c at001b = ╱65╱e╱ // 0x3951 @0x1b
0x3936…396c at001c = ╱72╱r╱ // 0x3952 @0x1c
0x3936…396c at001d = ╱6c╱l╱ // 0x3953 @0x1d
0x3936…396c at001e = ╱69╱i╱ // 0x3954 @0x1e
0x3936…396c at001f = ╱67╱g╱ // 0x3955 @0x1f
0x3936…396c at0020 = ╱65╱e╱ // 0x3956 @0x20
0x3936…396c at0021 = ╱72╱r╱ // 0x3957 @0x21
0x3936…396c at0022 = ╱65╱e╱ // 0x3958 @0x22
0x3936…396c at0023 = ╱20╱…╱ // 0x3959 @0x23
0x3936…396c at0024 = ╱74╱t╱ // 0x395a @0x24
0x3936…396c at0025 = ╱65╱e╱ // 0x395b @0x25
0x3936…396c at0026 = ╱73╱s╱ // 0x395c @0x26
0x3936…396c at0027 = ╱74╱t╱ // 0x395d @0x27
0x3936…396c at0028 = ╱70╱p╱ // 0x395e @0x28
0x3936…396c at0029 = ╱72╱r╱ // 0x395f @0x29
0x3936…396c at002a = ╱69╱i╱ // 0x3960 @0x2a
0x3936…396c at002b = ╱6e╱n╱ // 0x3961 @0x2b
0x3936…396c at002c = ╱74╱t╱ // 0x3962 @0x2c
0x3936…396c at002d = ╱20╱…╱ // 0x3963 @0x2d
0x3936…396c at002e = ╱28╱(╱ // 0x3964 @0x2e
0x3936…396c at002f = ╱4a╱J╱ // 0x3965 @0x2f
0x3936…396c at0030 = ╱2f╱/╱ // 0x3966 @0x30
0x3936…396c at0031 = ╱4e╱N╱ // 0x3967 @0x31
0x3936…396c at0032 = ╱29╱)╱ // 0x3968 @0x32
0x3936…396c at0033 = ╱3a╱:╱ // 0x3969 @0x33
0x3936…396c at0034 = ╱22╱"╱ // 0x396a @0x34
0x3936…396c at0035 = EOL // 0x396b @0x35
0x3936…396c }
0x396c…39aa c701 6130 LTX$(8)="Monter papir til kontoudtog og tast RETURN"
0x396c…39aa LineComalBin {
0x396c…39aa ptr = 0xc701 // 0x396c @0x0
0x396c…39aa lno = 0x17f2 // 0x396e @0x2
0x396c…39aa at0004 = ╱4c╱L╱ // 0x3970 @0x4
0x396c…39aa at0005 = ╱54╱T╱ // 0x3971 @0x5
0x396c…39aa at0006 = ╱58╱X╱ // 0x3972 @0x6
0x396c…39aa at0007 = ╱ef╱$╱ // 0x3973 @0x7
0x396c…39aa at0008 = ╱ed╱(╱ // 0x3974 @0x8
0x396c…39aa at0009 = ╱38╱8╱ // 0x3975 @0x9
0x396c…39aa at000a = ╱fe00008004╱ // 0x3976 @0xa
0x396c…39aa at000f = ╱ee╱)╱ // 0x397b @0xf
0x396c…39aa at0010 = ╱dc╱=╱ // 0x397c @0x10
0x396c…39aa at0011 = ╱22╱"╱ // 0x397d @0x11
0x396c…39aa at0012 = ╱4d╱M╱ // 0x397e @0x12
0x396c…39aa at0013 = ╱6f╱o╱ // 0x397f @0x13
0x396c…39aa at0014 = ╱6e╱n╱ // 0x3980 @0x14
0x396c…39aa at0015 = ╱74╱t╱ // 0x3981 @0x15
0x396c…39aa at0016 = ╱65╱e╱ // 0x3982 @0x16
0x396c…39aa at0017 = ╱72╱r╱ // 0x3983 @0x17
0x396c…39aa at0018 = ╱20╱…╱ // 0x3984 @0x18
0x396c…39aa at0019 = ╱70╱p╱ // 0x3985 @0x19
0x396c…39aa at001a = ╱61╱a╱ // 0x3986 @0x1a
0x396c…39aa at001b = ╱70╱p╱ // 0x3987 @0x1b
0x396c…39aa at001c = ╱69╱i╱ // 0x3988 @0x1c
0x396c…39aa at001d = ╱72╱r╱ // 0x3989 @0x1d
0x396c…39aa at001e = ╱20╱…╱ // 0x398a @0x1e
0x396c…39aa at001f = ╱74╱t╱ // 0x398b @0x1f
0x396c…39aa at0020 = ╱69╱i╱ // 0x398c @0x20
0x396c…39aa at0021 = ╱6c╱l╱ // 0x398d @0x21
0x396c…39aa at0022 = ╱20╱…╱ // 0x398e @0x22
0x396c…39aa at0023 = ╱6b╱k╱ // 0x398f @0x23
0x396c…39aa at0024 = ╱6f╱o╱ // 0x3990 @0x24
0x396c…39aa at0025 = ╱6e╱n╱ // 0x3991 @0x25
0x396c…39aa at0026 = ╱74╱t╱ // 0x3992 @0x26
0x396c…39aa at0027 = ╱6f╱o╱ // 0x3993 @0x27
0x396c…39aa at0028 = ╱75╱u╱ // 0x3994 @0x28
0x396c…39aa at0029 = ╱64╱d╱ // 0x3995 @0x29
0x396c…39aa at002a = ╱74╱t╱ // 0x3996 @0x2a
0x396c…39aa at002b = ╱6f╱o╱ // 0x3997 @0x2b
0x396c…39aa at002c = ╱67╱g╱ // 0x3998 @0x2c
0x396c…39aa at002d = ╱20╱…╱ // 0x3999 @0x2d
0x396c…39aa at002e = ╱6f╱o╱ // 0x399a @0x2e
0x396c…39aa at002f = ╱67╱g╱ // 0x399b @0x2f
0x396c…39aa at0030 = ╱20╱…╱ // 0x399c @0x30
0x396c…39aa at0031 = ╱74╱t╱ // 0x399d @0x31
0x396c…39aa at0032 = ╱61╱a╱ // 0x399e @0x32
0x396c…39aa at0033 = ╱73╱s╱ // 0x399f @0x33
0x396c…39aa at0034 = ╱74╱t╱ // 0x39a0 @0x34
0x396c…39aa at0035 = ╱20╱…╱ // 0x39a1 @0x35
0x396c…39aa at0036 = ╱52╱R╱ // 0x39a2 @0x36
0x396c…39aa at0037 = ╱45╱E╱ // 0x39a3 @0x37
0x396c…39aa at0038 = ╱54╱T╱ // 0x39a4 @0x38
0x396c…39aa at0039 = ╱55╱U╱ // 0x39a5 @0x39
0x396c…39aa at003a = ╱52╱R╱ // 0x39a6 @0x3a
0x396c…39aa at003b = ╱4e╱N╱ // 0x39a7 @0x3b
0x396c…39aa at003c = ╱22╱"╱ // 0x39a8 @0x3c
0x396c…39aa at003d = EOL // 0x39a9 @0x3d
0x396c…39aa }
0x39aa…39da c731 6140 LTX$(W)="Ønskes udskrift på printer (J/N):"
0x39aa…39da LineComalBin {
0x39aa…39da ptr = 0xc731 // 0x39aa @0x0
0x39aa…39da lno = 0x17fc // 0x39ac @0x2
0x39aa…39da at0004 = ╱4c╱L╱ // 0x39ae @0x4
0x39aa…39da at0005 = ╱54╱T╱ // 0x39af @0x5
0x39aa…39da at0006 = ╱58╱X╱ // 0x39b0 @0x6
0x39aa…39da at0007 = ╱ef╱$╱ // 0x39b1 @0x7
0x39aa…39da at0008 = ╱ed╱(╱ // 0x39b2 @0x8
0x39aa…39da at0009 = ╱57╱W╱ // 0x39b3 @0x9
0x39aa…39da at000a = ╱ee╱)╱ // 0x39b4 @0xa
0x39aa…39da at000b = ╱dc╱=╱ // 0x39b5 @0xb
0x39aa…39da at000c = ╱22╱"╱ // 0x39b6 @0xc
0x39aa…39da at000d = ╱5c╱Ø╱ // 0x39b7 @0xd
0x39aa…39da at000e = ╱6e╱n╱ // 0x39b8 @0xe
0x39aa…39da at000f = ╱73╱s╱ // 0x39b9 @0xf
0x39aa…39da at0010 = ╱6b╱k╱ // 0x39ba @0x10
0x39aa…39da at0011 = ╱65╱e╱ // 0x39bb @0x11
0x39aa…39da at0012 = ╱73╱s╱ // 0x39bc @0x12
0x39aa…39da at0013 = ╱20╱…╱ // 0x39bd @0x13
0x39aa…39da at0014 = ╱75╱u╱ // 0x39be @0x14
0x39aa…39da at0015 = ╱64╱d╱ // 0x39bf @0x15
0x39aa…39da at0016 = ╱73╱s╱ // 0x39c0 @0x16
0x39aa…39da at0017 = ╱6b╱k╱ // 0x39c1 @0x17
0x39aa…39da at0018 = ╱72╱r╱ // 0x39c2 @0x18
0x39aa…39da at0019 = ╱69╱i╱ // 0x39c3 @0x19
0x39aa…39da at001a = ╱66╱f╱ // 0x39c4 @0x1a
0x39aa…39da at001b = ╱74╱t╱ // 0x39c5 @0x1b
0x39aa…39da at001c = ╱20╱…╱ // 0x39c6 @0x1c
0x39aa…39da at001d = ╱70╱p╱ // 0x39c7 @0x1d
0x39aa…39da at001e = ╱7d╱å╱ // 0x39c8 @0x1e
0x39aa…39da at001f = ╱20╱…╱ // 0x39c9 @0x1f
0x39aa…39da at0020 = ╱70╱p╱ // 0x39ca @0x20
0x39aa…39da at0021 = ╱72╱r╱ // 0x39cb @0x21
0x39aa…39da at0022 = ╱69╱i╱ // 0x39cc @0x22
0x39aa…39da at0023 = ╱6e╱n╱ // 0x39cd @0x23
0x39aa…39da at0024 = ╱74╱t╱ // 0x39ce @0x24
0x39aa…39da at0025 = ╱65╱e╱ // 0x39cf @0x25
0x39aa…39da at0026 = ╱72╱r╱ // 0x39d0 @0x26
0x39aa…39da at0027 = ╱20╱…╱ // 0x39d1 @0x27
0x39aa…39da at0028 = ╱28╱(╱ // 0x39d2 @0x28
0x39aa…39da at0029 = ╱4a╱J╱ // 0x39d3 @0x29
0x39aa…39da at002a = ╱2f╱/╱ // 0x39d4 @0x2a
0x39aa…39da at002b = ╱4e╱N╱ // 0x39d5 @0x2b
0x39aa…39da at002c = ╱29╱)╱ // 0x39d6 @0x2c
0x39aa…39da at002d = ╱3a╱:╱ // 0x39d7 @0x2d
0x39aa…39da at002e = ╱22╱"╱ // 0x39d8 @0x2e
0x39aa…39da at002f = EOL // 0x39d9 @0x2f
0x39aa…39da }
0x39da…3a0d c764 6150 LTX$(10)="Ønskes flere udskrifter (J/N):"
0x39da…3a0d LineComalBin {
0x39da…3a0d ptr = 0xc764 // 0x39da @0x0
0x39da…3a0d lno = 0x1806 // 0x39dc @0x2
0x39da…3a0d at0004 = ╱4c╱L╱ // 0x39de @0x4
0x39da…3a0d at0005 = ╱54╱T╱ // 0x39df @0x5
0x39da…3a0d at0006 = ╱58╱X╱ // 0x39e0 @0x6
0x39da…3a0d at0007 = ╱ef╱$╱ // 0x39e1 @0x7
0x39da…3a0d at0008 = ╱ed╱(╱ // 0x39e2 @0x8
0x39da…3a0d at0009 = ╱31╱1╱ // 0x39e3 @0x9
0x39da…3a0d at000a = ╱30╱0╱ // 0x39e4 @0xa
0x39da…3a0d at000b = ╱fe0000a004╱ // 0x39e5 @0xb
0x39da…3a0d at0010 = ╱ee╱)╱ // 0x39ea @0x10
0x39da…3a0d at0011 = ╱dc╱=╱ // 0x39eb @0x11
0x39da…3a0d at0012 = ╱22╱"╱ // 0x39ec @0x12
0x39da…3a0d at0013 = ╱5c╱Ø╱ // 0x39ed @0x13
0x39da…3a0d at0014 = ╱6e╱n╱ // 0x39ee @0x14
0x39da…3a0d at0015 = ╱73╱s╱ // 0x39ef @0x15
0x39da…3a0d at0016 = ╱6b╱k╱ // 0x39f0 @0x16
0x39da…3a0d at0017 = ╱65╱e╱ // 0x39f1 @0x17
0x39da…3a0d at0018 = ╱73╱s╱ // 0x39f2 @0x18
0x39da…3a0d at0019 = ╱20╱…╱ // 0x39f3 @0x19
0x39da…3a0d at001a = ╱66╱f╱ // 0x39f4 @0x1a
0x39da…3a0d at001b = ╱6c╱l╱ // 0x39f5 @0x1b
0x39da…3a0d at001c = ╱65╱e╱ // 0x39f6 @0x1c
0x39da…3a0d at001d = ╱72╱r╱ // 0x39f7 @0x1d
0x39da…3a0d at001e = ╱65╱e╱ // 0x39f8 @0x1e
0x39da…3a0d at001f = ╱20╱…╱ // 0x39f9 @0x1f
0x39da…3a0d at0020 = ╱75╱u╱ // 0x39fa @0x20
0x39da…3a0d at0021 = ╱64╱d╱ // 0x39fb @0x21
0x39da…3a0d at0022 = ╱73╱s╱ // 0x39fc @0x22
0x39da…3a0d at0023 = ╱6b╱k╱ // 0x39fd @0x23
0x39da…3a0d at0024 = ╱72╱r╱ // 0x39fe @0x24
0x39da…3a0d at0025 = ╱69╱i╱ // 0x39ff @0x25
0x39da…3a0d at0026 = ╱66╱f╱ // 0x3a00 @0x26
0x39da…3a0d at0027 = ╱74╱t╱ // 0x3a01 @0x27
0x39da…3a0d at0028 = ╱65╱e╱ // 0x3a02 @0x28
0x39da…3a0d at0029 = ╱72╱r╱ // 0x3a03 @0x29
0x39da…3a0d at002a = ╱20╱…╱ // 0x3a04 @0x2a
0x39da…3a0d at002b = ╱28╱(╱ // 0x3a05 @0x2b
0x39da…3a0d at002c = ╱4a╱J╱ // 0x3a06 @0x2c
0x39da…3a0d at002d = ╱2f╱/╱ // 0x3a07 @0x2d
0x39da…3a0d at002e = ╱4e╱N╱ // 0x3a08 @0x2e
0x39da…3a0d at002f = ╱29╱)╱ // 0x3a09 @0x2f
0x39da…3a0d at0030 = ╱3a╱:╱ // 0x3a0a @0x30
0x39da…3a0d at0031 = ╱22╱"╱ // 0x3a0b @0x31
0x39da…3a0d at0032 = EOL // 0x3a0c @0x32
0x39da…3a0d }
0x3a0d…3a56 (193,) c7ad 6160 LTX$(11)="Monter papir til udskrift af finanskonti,tast RETURN"
0x3a0d…3a56 LineComalBin {
0x3a0d…3a56 ptr = 0xc7ad // 0x3a0d @0x0
0x3a0d…3a56 lno = 0x1810 // 0x3a0f @0x2
0x3a0d…3a56 at0004 = ╱4c╱L╱ // 0x3a11 @0x4
0x3a0d…3a56 at0005 = ╱54╱T╱ // 0x3a12 @0x5
0x3a0d…3a56 at0006 = ╱58╱X╱ // 0x3a13 @0x6
0x3a0d…3a56 at0007 = ╱ef╱$╱ // 0x3a14 @0x7
0x3a0d…3a56 at0008 = ╱ed╱(╱ // 0x3a15 @0x8
0x3a0d…3a56 at0009 = ╱31╱1╱ // 0x3a16 @0x9
0x3a0d…3a56 at000a = ╱31╱1╱ // 0x3a17 @0xa
0x3a0d…3a56 at000b = ╱fe0000b004╱ // 0x3a18 @0xb
0x3a0d…3a56 at0010 = ╱ee╱)╱ // 0x3a1d @0x10
0x3a0d…3a56 at0011 = ╱dc╱=╱ // 0x3a1e @0x11
0x3a0d…3a56 at0012 = ╱22╱"╱ // 0x3a1f @0x12
0x3a0d…3a56 at0013 = ╱4d╱M╱ // 0x3a20 @0x13
0x3a0d…3a56 at0014 = ╱6f╱o╱ // 0x3a21 @0x14
0x3a0d…3a56 at0015 = ╱6e╱n╱ // 0x3a22 @0x15
0x3a0d…3a56 at0016 = ╱74╱t╱ // 0x3a23 @0x16
0x3a0d…3a56 at0017 = ╱65╱e╱ // 0x3a24 @0x17
0x3a0d…3a56 at0018 = ╱72╱r╱ // 0x3a25 @0x18
0x3a0d…3a56 at0019 = ╱20╱…╱ // 0x3a26 @0x19
0x3a0d…3a56 at001a = ╱70╱p╱ // 0x3a27 @0x1a
0x3a0d…3a56 at001b = ╱61╱a╱ // 0x3a28 @0x1b
0x3a0d…3a56 at001c = ╱70╱p╱ // 0x3a29 @0x1c
0x3a0d…3a56 at001d = ╱69╱i╱ // 0x3a2a @0x1d
0x3a0d…3a56 at001e = ╱72╱r╱ // 0x3a2b @0x1e
0x3a0d…3a56 at001f = ╱20╱…╱ // 0x3a2c @0x1f
0x3a0d…3a56 at0020 = ╱74╱t╱ // 0x3a2d @0x20
0x3a0d…3a56 at0021 = ╱69╱i╱ // 0x3a2e @0x21
0x3a0d…3a56 at0022 = ╱6c╱l╱ // 0x3a2f @0x22
0x3a0d…3a56 at0023 = ╱20╱…╱ // 0x3a30 @0x23
0x3a0d…3a56 at0024 = ╱75╱u╱ // 0x3a31 @0x24
0x3a0d…3a56 at0025 = ╱64╱d╱ // 0x3a32 @0x25
0x3a0d…3a56 at0026 = ╱73╱s╱ // 0x3a33 @0x26
0x3a0d…3a56 at0027 = ╱6b╱k╱ // 0x3a34 @0x27
0x3a0d…3a56 at0028 = ╱72╱r╱ // 0x3a35 @0x28
0x3a0d…3a56 at0029 = ╱69╱i╱ // 0x3a36 @0x29
0x3a0d…3a56 at002a = ╱66╱f╱ // 0x3a37 @0x2a
0x3a0d…3a56 at002b = ╱74╱t╱ // 0x3a38 @0x2b
0x3a0d…3a56 at002c = ╱20╱…╱ // 0x3a39 @0x2c
0x3a0d…3a56 at002d = ╱61╱a╱ // 0x3a3a @0x2d
0x3a0d…3a56 at002e = ╱66╱f╱ // 0x3a3b @0x2e
0x3a0d…3a56 at002f = ╱20╱…╱ // 0x3a3c @0x2f
0x3a0d…3a56 at0030 = ╱66╱f╱ // 0x3a3d @0x30
0x3a0d…3a56 at0031 = ╱69╱i╱ // 0x3a3e @0x31
0x3a0d…3a56 at0032 = ╱6e╱n╱ // 0x3a3f @0x32
0x3a0d…3a56 at0033 = ╱61╱a╱ // 0x3a40 @0x33
0x3a0d…3a56 at0034 = ╱6e╱n╱ // 0x3a41 @0x34
0x3a0d…3a56 at0035 = ╱73╱s╱ // 0x3a42 @0x35
0x3a0d…3a56 at0036 = ╱6b╱k╱ // 0x3a43 @0x36
0x3a0d…3a56 at0037 = ╱6f╱o╱ // 0x3a44 @0x37
0x3a0d…3a56 at0038 = ╱6e╱n╱ // 0x3a45 @0x38
0x3a0d…3a56 at0039 = ╱74╱t╱ // 0x3a46 @0x39
0x3a0d…3a56 at003a = ╱69╱i╱ // 0x3a47 @0x3a
0x3a0d…3a56 at003b = ╱2c╱,╱ // 0x3a48 @0x3b
0x3a0d…3a56 at003c = ╱74╱t╱ // 0x3a49 @0x3c
0x3a0d…3a56 at003d = ╱61╱a╱ // 0x3a4a @0x3d
0x3a0d…3a56 at003e = ╱73╱s╱ // 0x3a4b @0x3e
0x3a0d…3a56 at003f = ╱74╱t╱ // 0x3a4c @0x3f
0x3a0d…3a56 at0040 = ╱20╱…╱ // 0x3a4d @0x40
0x3a0d…3a56 at0041 = ╱52╱R╱ // 0x3a4e @0x41
0x3a0d…3a56 at0042 = ╱45╱E╱ // 0x3a4f @0x42
0x3a0d…3a56 at0043 = ╱54╱T╱ // 0x3a50 @0x43
0x3a0d…3a56 at0044 = ╱55╱U╱ // 0x3a51 @0x44
0x3a0d…3a56 at0045 = ╱52╱R╱ // 0x3a52 @0x45
0x3a0d…3a56 at0046 = ╱4e╱N╱ // 0x3a53 @0x46
0x3a0d…3a56 at0047 = ╱22╱"╱ // 0x3a54 @0x47
0x3a0d…3a56 at0048 = EOL // 0x3a55 @0x48
0x3a0d…3a56 }
0x3a56…3a78 c7cf 6170 DATO=T1(7);MAFSLUT=T3(G)
0x3a56…3a78 LineComalBin {
0x3a56…3a78 ptr = 0xc7cf // 0x3a56 @0x0
0x3a56…3a78 lno = 0x181a // 0x3a58 @0x2
0x3a56…3a78 at0004 = ╱44╱D╱ // 0x3a5a @0x4
0x3a56…3a78 at0005 = ╱41╱A╱ // 0x3a5b @0x5
0x3a56…3a78 at0006 = ╱54╱T╱ // 0x3a5c @0x6
0x3a56…3a78 at0007 = ╱4f╱O╱ // 0x3a5d @0x7
0x3a56…3a78 at0008 = ╱dc╱=╱ // 0x3a5e @0x8
0x3a56…3a78 at0009 = ╱54╱T╱ // 0x3a5f @0x9
0x3a56…3a78 at000a = ╱31╱1╱ // 0x3a60 @0xa
0x3a56…3a78 at000b = ╱ed╱(╱ // 0x3a61 @0xb
0x3a56…3a78 at000c = ╱37╱7╱ // 0x3a62 @0xc
0x3a56…3a78 at000d = ╱fe0000e003╱ // 0x3a63 @0xd
0x3a56…3a78 at0012 = ╱ee╱)╱ // 0x3a68 @0x12
0x3a56…3a78 at0013 = ╱eb╱;╱ // 0x3a69 @0x13
0x3a56…3a78 at0014 = ╱4d╱M╱ // 0x3a6a @0x14
0x3a56…3a78 at0015 = ╱41╱A╱ // 0x3a6b @0x15
0x3a56…3a78 at0016 = ╱46╱F╱ // 0x3a6c @0x16
0x3a56…3a78 at0017 = ╱53╱S╱ // 0x3a6d @0x17
0x3a56…3a78 at0018 = ╱4c╱L╱ // 0x3a6e @0x18
0x3a56…3a78 at0019 = ╱55╱U╱ // 0x3a6f @0x19
0x3a56…3a78 at001a = ╱54╱T╱ // 0x3a70 @0x1a
0x3a56…3a78 at001b = ╱dc╱=╱ // 0x3a71 @0x1b
0x3a56…3a78 at001c = ╱54╱T╱ // 0x3a72 @0x1c
0x3a56…3a78 at001d = ╱33╱3╱ // 0x3a73 @0x1d
0x3a56…3a78 at001e = ╱ed╱(╱ // 0x3a74 @0x1e
0x3a56…3a78 at001f = ╱47╱G╱ // 0x3a75 @0x1f
0x3a56…3a78 at0020 = ╱ee╱)╱ // 0x3a76 @0x20
0x3a56…3a78 at0021 = EOL // 0x3a77 @0x21
0x3a56…3a78 }
0x3a78…3a8f c7e6 6180 EXEC DATOUD(DATO,DAT$)
0x3a78…3a8f LineComalBin {
0x3a78…3a8f ptr = 0xc7e6 // 0x3a78 @0x0
0x3a78…3a8f lno = 0x1824 // 0x3a7a @0x2
0x3a78…3a8f at0004 = ╱9d╱ EXEC ╱ // 0x3a7c @0x4
0x3a78…3a8f at0005 = ╱44╱D╱ // 0x3a7d @0x5
0x3a78…3a8f at0006 = ╱41╱A╱ // 0x3a7e @0x6
0x3a78…3a8f at0007 = ╱54╱T╱ // 0x3a7f @0x7
0x3a78…3a8f at0008 = ╱4f╱O╱ // 0x3a80 @0x8
0x3a78…3a8f at0009 = ╱55╱U╱ // 0x3a81 @0x9
0x3a78…3a8f at000a = ╱44╱D╱ // 0x3a82 @0xa
0x3a78…3a8f at000b = ╱ed╱(╱ // 0x3a83 @0xb
0x3a78…3a8f at000c = ╱44╱D╱ // 0x3a84 @0xc
0x3a78…3a8f at000d = ╱41╱A╱ // 0x3a85 @0xd
0x3a78…3a8f at000e = ╱54╱T╱ // 0x3a86 @0xe
0x3a78…3a8f at000f = ╱4f╱O╱ // 0x3a87 @0xf
0x3a78…3a8f at0010 = ╱ec╱,╱ // 0x3a88 @0x10
0x3a78…3a8f at0011 = ╱44╱D╱ // 0x3a89 @0x11
0x3a78…3a8f at0012 = ╱41╱A╱ // 0x3a8a @0x12
0x3a78…3a8f at0013 = ╱54╱T╱ // 0x3a8b @0x13
0x3a78…3a8f at0014 = ╱ef╱$╱ // 0x3a8c @0x14
0x3a78…3a8f at0015 = ╱ee╱)╱ // 0x3a8d @0x15
0x3a78…3a8f at0016 = EOL // 0x3a8e @0x16
0x3a78…3a8f }
0x3a8f…3adc c833 6190 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-"
0x3a8f…3adc LineComalBin {
0x3a8f…3adc ptr = 0xc833 // 0x3a8f @0x0
0x3a8f…3adc lno = 0x182e // 0x3a91 @0x2
0x3a8f…3adc at0004 = ╱53╱S╱ // 0x3a93 @0x4
0x3a8f…3adc at0005 = ╱54╱T╱ // 0x3a94 @0x5
0x3a8f…3adc at0006 = ╱52╱R╱ // 0x3a95 @0x6
0x3a8f…3adc at0007 = ╱45╱E╱ // 0x3a96 @0x7
0x3a8f…3adc at0008 = ╱47╱G╱ // 0x3a97 @0x8
0x3a8f…3adc at0009 = ╱ef╱$╱ // 0x3a98 @0x9
0x3a8f…3adc at000a = ╱dc╱=╱ // 0x3a99 @0xa
0x3a8f…3adc at000b = ╱22╱"╱ // 0x3a9a @0xb
0x3a8f…3adc at000c = ╱2d╱-╱ // 0x3a9b @0xc
0x3a8f…3adc at000d = ╱2d╱-╱ // 0x3a9c @0xd
0x3a8f…3adc at000e = ╱2d╱-╱ // 0x3a9d @0xe
0x3a8f…3adc at000f = ╱2d╱-╱ // 0x3a9e @0xf
0x3a8f…3adc at0010 = ╱2d╱-╱ // 0x3a9f @0x10
0x3a8f…3adc at0011 = ╱2d╱-╱ // 0x3aa0 @0x11
0x3a8f…3adc at0012 = ╱2d╱-╱ // 0x3aa1 @0x12
0x3a8f…3adc at0013 = ╱2d╱-╱ // 0x3aa2 @0x13
0x3a8f…3adc at0014 = ╱2d╱-╱ // 0x3aa3 @0x14
0x3a8f…3adc at0015 = ╱2d╱-╱ // 0x3aa4 @0x15
0x3a8f…3adc at0016 = ╱2d╱-╱ // 0x3aa5 @0x16
0x3a8f…3adc at0017 = ╱2d╱-╱ // 0x3aa6 @0x17
0x3a8f…3adc at0018 = ╱2d╱-╱ // 0x3aa7 @0x18
0x3a8f…3adc at0019 = ╱2d╱-╱ // 0x3aa8 @0x19
0x3a8f…3adc at001a = ╱2d╱-╱ // 0x3aa9 @0x1a
0x3a8f…3adc at001b = ╱2d╱-╱ // 0x3aaa @0x1b
0x3a8f…3adc at001c = ╱2d╱-╱ // 0x3aab @0x1c
0x3a8f…3adc at001d = ╱2d╱-╱ // 0x3aac @0x1d
0x3a8f…3adc at001e = ╱2d╱-╱ // 0x3aad @0x1e
0x3a8f…3adc at001f = ╱2d╱-╱ // 0x3aae @0x1f
0x3a8f…3adc at0020 = ╱2d╱-╱ // 0x3aaf @0x20
0x3a8f…3adc at0021 = ╱2d╱-╱ // 0x3ab0 @0x21
0x3a8f…3adc at0022 = ╱2d╱-╱ // 0x3ab1 @0x22
0x3a8f…3adc at0023 = ╱2d╱-╱ // 0x3ab2 @0x23
0x3a8f…3adc at0024 = ╱2d╱-╱ // 0x3ab3 @0x24
0x3a8f…3adc at0025 = ╱2d╱-╱ // 0x3ab4 @0x25
0x3a8f…3adc at0026 = ╱2d╱-╱ // 0x3ab5 @0x26
0x3a8f…3adc at0027 = ╱2d╱-╱ // 0x3ab6 @0x27
0x3a8f…3adc at0028 = ╱2d╱-╱ // 0x3ab7 @0x28
0x3a8f…3adc at0029 = ╱2d╱-╱ // 0x3ab8 @0x29
0x3a8f…3adc at002a = ╱2d╱-╱ // 0x3ab9 @0x2a
0x3a8f…3adc at002b = ╱2d╱-╱ // 0x3aba @0x2b
0x3a8f…3adc at002c = ╱2d╱-╱ // 0x3abb @0x2c
0x3a8f…3adc at002d = ╱2d╱-╱ // 0x3abc @0x2d
0x3a8f…3adc at002e = ╱2d╱-╱ // 0x3abd @0x2e
0x3a8f…3adc at002f = ╱2d╱-╱ // 0x3abe @0x2f
0x3a8f…3adc at0030 = ╱2d╱-╱ // 0x3abf @0x30
0x3a8f…3adc at0031 = ╱2d╱-╱ // 0x3ac0 @0x31
0x3a8f…3adc at0032 = ╱22╱"╱ // 0x3ac1 @0x32
0x3a8f…3adc at0033 = ╱eb╱;╱ // 0x3ac2 @0x33
0x3a8f…3adc at0034 = ╱53╱S╱ // 0x3ac3 @0x34
0x3a8f…3adc at0035 = ╱54╱T╱ // 0x3ac4 @0x35
0x3a8f…3adc at0036 = ╱52╱R╱ // 0x3ac5 @0x36
0x3a8f…3adc at0037 = ╱45╱E╱ // 0x3ac6 @0x37
0x3a8f…3adc at0038 = ╱47╱G╱ // 0x3ac7 @0x38
0x3a8f…3adc at0039 = ╱ef╱$╱ // 0x3ac8 @0x39
0x3a8f…3adc at003a = ╱dc╱=╱ // 0x3ac9 @0x3a
0x3a8f…3adc at003b = ╱53╱S╱ // 0x3aca @0x3b
0x3a8f…3adc at003c = ╱54╱T╱ // 0x3acb @0x3c
0x3a8f…3adc at003d = ╱52╱R╱ // 0x3acc @0x3d
0x3a8f…3adc at003e = ╱45╱E╱ // 0x3acd @0x3e
0x3a8f…3adc at003f = ╱47╱G╱ // 0x3ace @0x3f
0x3a8f…3adc at0040 = ╱ef╱$╱ // 0x3acf @0x40
0x3a8f…3adc at0041 = ╱f1╱+╱ // 0x3ad0 @0x41
0x3a8f…3adc at0042 = ╱53╱S╱ // 0x3ad1 @0x42
0x3a8f…3adc at0043 = ╱54╱T╱ // 0x3ad2 @0x43
0x3a8f…3adc at0044 = ╱52╱R╱ // 0x3ad3 @0x44
0x3a8f…3adc at0045 = ╱45╱E╱ // 0x3ad4 @0x45
0x3a8f…3adc at0046 = ╱47╱G╱ // 0x3ad5 @0x46
0x3a8f…3adc at0047 = ╱ef╱$╱ // 0x3ad6 @0x47
0x3a8f…3adc at0048 = ╱f1╱+╱ // 0x3ad7 @0x48
0x3a8f…3adc at0049 = ╱22╱"╱ // 0x3ad8 @0x49
0x3a8f…3adc at004a = ╱2d╱-╱ // 0x3ad9 @0x4a
0x3a8f…3adc at004b = ╱22╱"╱ // 0x3ada @0x4b
0x3a8f…3adc at004c = EOL // 0x3adb @0x4c
0x3a8f…3adc }
0x3adc…3b03 c85a 6200 BLANK$=" "
0x3adc…3b03 LineComalBin {
0x3adc…3b03 ptr = 0xc85a // 0x3adc @0x0
0x3adc…3b03 lno = 0x1838 // 0x3ade @0x2
0x3adc…3b03 at0004 = ╱42╱B╱ // 0x3ae0 @0x4
0x3adc…3b03 at0005 = ╱4c╱L╱ // 0x3ae1 @0x5
0x3adc…3b03 at0006 = ╱41╱A╱ // 0x3ae2 @0x6
0x3adc…3b03 at0007 = ╱4e╱N╱ // 0x3ae3 @0x7
0x3adc…3b03 at0008 = ╱4b╱K╱ // 0x3ae4 @0x8
0x3adc…3b03 at0009 = ╱ef╱$╱ // 0x3ae5 @0x9
0x3adc…3b03 at000a = ╱dc╱=╱ // 0x3ae6 @0xa
0x3adc…3b03 at000b = ╱22╱"╱ // 0x3ae7 @0xb
0x3adc…3b03 at000c = ╱20╱…╱ // 0x3ae8 @0xc
0x3adc…3b03 at000d = ╱20╱…╱ // 0x3ae9 @0xd
0x3adc…3b03 at000e = ╱20╱…╱ // 0x3aea @0xe
0x3adc…3b03 at000f = ╱20╱…╱ // 0x3aeb @0xf
0x3adc…3b03 at0010 = ╱20╱…╱ // 0x3aec @0x10
0x3adc…3b03 at0011 = ╱20╱…╱ // 0x3aed @0x11
0x3adc…3b03 at0012 = ╱20╱…╱ // 0x3aee @0x12
0x3adc…3b03 at0013 = ╱20╱…╱ // 0x3aef @0x13
0x3adc…3b03 at0014 = ╱20╱…╱ // 0x3af0 @0x14
0x3adc…3b03 at0015 = ╱20╱…╱ // 0x3af1 @0x15
0x3adc…3b03 at0016 = ╱20╱…╱ // 0x3af2 @0x16
0x3adc…3b03 at0017 = ╱20╱…╱ // 0x3af3 @0x17
0x3adc…3b03 at0018 = ╱20╱…╱ // 0x3af4 @0x18
0x3adc…3b03 at0019 = ╱20╱…╱ // 0x3af5 @0x19
0x3adc…3b03 at001a = ╱20╱…╱ // 0x3af6 @0x1a
0x3adc…3b03 at001b = ╱20╱…╱ // 0x3af7 @0x1b
0x3adc…3b03 at001c = ╱20╱…╱ // 0x3af8 @0x1c
0x3adc…3b03 at001d = ╱20╱…╱ // 0x3af9 @0x1d
0x3adc…3b03 at001e = ╱20╱…╱ // 0x3afa @0x1e
0x3adc…3b03 at001f = ╱20╱…╱ // 0x3afb @0x1f
0x3adc…3b03 at0020 = ╱20╱…╱ // 0x3afc @0x20
0x3adc…3b03 at0021 = ╱20╱…╱ // 0x3afd @0x21
0x3adc…3b03 at0022 = ╱20╱…╱ // 0x3afe @0x22
0x3adc…3b03 at0023 = ╱20╱…╱ // 0x3aff @0x23
0x3adc…3b03 at0024 = ╱20╱…╱ // 0x3b00 @0x24
0x3adc…3b03 at0025 = ╱22╱"╱ // 0x3b01 @0x25
0x3adc…3b03 at0026 = EOL // 0x3b02 @0x26
0x3adc…3b03 }
0x3b03…3b13 c86a 6210 IF MAFSLUT=E THEN
0x3b03…3b13 LineComalBin {
0x3b03…3b13 ptr = 0xc86a // 0x3b03 @0x0
0x3b03…3b13 lno = 0x1842 // 0x3b05 @0x2
0x3b03…3b13 at0004 = ╱9c╱ IF ╱ // 0x3b07 @0x4
0x3b03…3b13 at0005 = ╱4d╱M╱ // 0x3b08 @0x5
0x3b03…3b13 at0006 = ╱41╱A╱ // 0x3b09 @0x6
0x3b03…3b13 at0007 = ╱46╱F╱ // 0x3b0a @0x7
0x3b03…3b13 at0008 = ╱53╱S╱ // 0x3b0b @0x8
0x3b03…3b13 at0009 = ╱4c╱L╱ // 0x3b0c @0x9
0x3b03…3b13 at000a = ╱55╱U╱ // 0x3b0d @0xa
0x3b03…3b13 at000b = ╱54╱T╱ // 0x3b0e @0xb
0x3b03…3b13 at000c = ╱dc╱=╱ // 0x3b0f @0xc
0x3b03…3b13 at000d = ╱45╱E╱ // 0x3b10 @0xd
0x3b03…3b13 at000e = ╱b6╱ THEN ╱ // 0x3b11 @0xe
0x3b03…3b13 at000f = EOL // 0x3b12 @0xf
0x3b03…3b13 }
0x3b13…3b19 c870 6220 REPEAT
0x3b13…3b19 LineComalBin {
0x3b13…3b19 ptr = 0xc870 // 0x3b13 @0x0
0x3b13…3b19 lno = 0x184c // 0x3b15 @0x2
0x3b13…3b19 at0004 = ╱97╱ REPEAT ╱ // 0x3b17 @0x4
0x3b13…3b19 at0005 = EOL // 0x3b18 @0x5
0x3b13…3b19 }
0x3b19…3b1f c876 6230 CLEAR
0x3b19…3b1f LineComalBin {
0x3b19…3b1f ptr = 0xc876 // 0x3b19 @0x0
0x3b19…3b1f lno = 0x1856 // 0x3b1b @0x2
0x3b19…3b1f at0004 = ╱a0╱ CLEAR ╱ // 0x3b1d @0x4
0x3b19…3b1f at0005 = EOL // 0x3b1e @0x5
0x3b19…3b1f }
0x3b1f…3b28 c87f 6240 CURSOR E,E
0x3b1f…3b28 LineComalBin {
0x3b1f…3b28 ptr = 0xc87f // 0x3b1f @0x0
0x3b1f…3b28 lno = 0x1860 // 0x3b21 @0x2
0x3b1f…3b28 at0004 = ╱a1╱ CURSOR ╱ // 0x3b23 @0x4
0x3b1f…3b28 at0005 = ╱45╱E╱ // 0x3b24 @0x5
0x3b1f…3b28 at0006 = ╱ec╱,╱ // 0x3b25 @0x6
0x3b1f…3b28 at0007 = ╱45╱E╱ // 0x3b26 @0x7
0x3b1f…3b28 at0008 = EOL // 0x3b27 @0x8
0x3b1f…3b28 }
0x3b28…3b6f c8c6 6250 PRINT TAB(15);"Månedsafslutning Kontoudtog";TAB(63);" Dato:";DAT$
0x3b28…3b6f LineComalBin {
0x3b28…3b6f ptr = 0xc8c6 // 0x3b28 @0x0
0x3b28…3b6f lno = 0x186a // 0x3b2a @0x2
0x3b28…3b6f at0004 = ╱92╱ PRINT ╱ // 0x3b2c @0x4
0x3b28…3b6f at0005 = ╱d2╱TAB╱ // 0x3b2d @0x5
0x3b28…3b6f at0006 = ╱ed╱(╱ // 0x3b2e @0x6
0x3b28…3b6f at0007 = ╱31╱1╱ // 0x3b2f @0x7
0x3b28…3b6f at0008 = ╱35╱5╱ // 0x3b30 @0x8
0x3b28…3b6f at0009 = ╱fe0000f004╱ // 0x3b31 @0x9
0x3b28…3b6f at000e = ╱ee╱)╱ // 0x3b36 @0xe
0x3b28…3b6f at000f = ╱eb╱;╱ // 0x3b37 @0xf
0x3b28…3b6f at0010 = ╱22╱"╱ // 0x3b38 @0x10
0x3b28…3b6f at0011 = ╱4d╱M╱ // 0x3b39 @0x11
0x3b28…3b6f at0012 = ╱7d╱å╱ // 0x3b3a @0x12
0x3b28…3b6f at0013 = ╱6e╱n╱ // 0x3b3b @0x13
0x3b28…3b6f at0014 = ╱65╱e╱ // 0x3b3c @0x14
0x3b28…3b6f at0015 = ╱64╱d╱ // 0x3b3d @0x15
0x3b28…3b6f at0016 = ╱73╱s╱ // 0x3b3e @0x16
0x3b28…3b6f at0017 = ╱61╱a╱ // 0x3b3f @0x17
0x3b28…3b6f at0018 = ╱66╱f╱ // 0x3b40 @0x18
0x3b28…3b6f at0019 = ╱73╱s╱ // 0x3b41 @0x19
0x3b28…3b6f at001a = ╱6c╱l╱ // 0x3b42 @0x1a
0x3b28…3b6f at001b = ╱75╱u╱ // 0x3b43 @0x1b
0x3b28…3b6f at001c = ╱74╱t╱ // 0x3b44 @0x1c
0x3b28…3b6f at001d = ╱6e╱n╱ // 0x3b45 @0x1d
0x3b28…3b6f at001e = ╱69╱i╱ // 0x3b46 @0x1e
0x3b28…3b6f at001f = ╱6e╱n╱ // 0x3b47 @0x1f
0x3b28…3b6f at0020 = ╱67╱g╱ // 0x3b48 @0x20
0x3b28…3b6f at0021 = ╱20╱…╱ // 0x3b49 @0x21
0x3b28…3b6f at0022 = ╱4b╱K╱ // 0x3b4a @0x22
0x3b28…3b6f at0023 = ╱6f╱o╱ // 0x3b4b @0x23
0x3b28…3b6f at0024 = ╱6e╱n╱ // 0x3b4c @0x24
0x3b28…3b6f at0025 = ╱74╱t╱ // 0x3b4d @0x25
0x3b28…3b6f at0026 = ╱6f╱o╱ // 0x3b4e @0x26
0x3b28…3b6f at0027 = ╱75╱u╱ // 0x3b4f @0x27
0x3b28…3b6f at0028 = ╱64╱d╱ // 0x3b50 @0x28
0x3b28…3b6f at0029 = ╱74╱t╱ // 0x3b51 @0x29
0x3b28…3b6f at002a = ╱6f╱o╱ // 0x3b52 @0x2a
0x3b28…3b6f at002b = ╱67╱g╱ // 0x3b53 @0x2b
0x3b28…3b6f at002c = ╱22╱"╱ // 0x3b54 @0x2c
0x3b28…3b6f at002d = ╱eb╱;╱ // 0x3b55 @0x2d
0x3b28…3b6f at002e = ╱d2╱TAB╱ // 0x3b56 @0x2e
0x3b28…3b6f at002f = ╱ed╱(╱ // 0x3b57 @0x2f
0x3b28…3b6f at0030 = ╱36╱6╱ // 0x3b58 @0x30
0x3b28…3b6f at0031 = ╱33╱3╱ // 0x3b59 @0x31
0x3b28…3b6f at0032 = ╱fe0000fc06╱ // 0x3b5a @0x32
0x3b28…3b6f at0037 = ╱ee╱)╱ // 0x3b5f @0x37
0x3b28…3b6f at0038 = ╱eb╱;╱ // 0x3b60 @0x38
0x3b28…3b6f at0039 = ╱22╱"╱ // 0x3b61 @0x39
0x3b28…3b6f at003a = ╱20╱…╱ // 0x3b62 @0x3a
0x3b28…3b6f at003b = ╱44╱D╱ // 0x3b63 @0x3b
0x3b28…3b6f at003c = ╱61╱a╱ // 0x3b64 @0x3c
0x3b28…3b6f at003d = ╱74╱t╱ // 0x3b65 @0x3d
0x3b28…3b6f at003e = ╱6f╱o╱ // 0x3b66 @0x3e
0x3b28…3b6f at003f = ╱3a╱:╱ // 0x3b67 @0x3f
0x3b28…3b6f at0040 = ╱22╱"╱ // 0x3b68 @0x40
0x3b28…3b6f at0041 = ╱eb╱;╱ // 0x3b69 @0x41
0x3b28…3b6f at0042 = ╱44╱D╱ // 0x3b6a @0x42
0x3b28…3b6f at0043 = ╱41╱A╱ // 0x3b6b @0x43
0x3b28…3b6f at0044 = ╱54╱T╱ // 0x3b6c @0x44
0x3b28…3b6f at0045 = ╱ef╱$╱ // 0x3b6d @0x45
0x3b28…3b6f at0046 = EOL // 0x3b6e @0x46
0x3b28…3b6f }
0x3b6f…3ba8 c8ff 6260 EXEC INDPUT1(4,8,-9,-6,LTX$(5))
0x3b6f…3ba8 LineComalBin {
0x3b6f…3ba8 ptr = 0xc8ff // 0x3b6f @0x0
0x3b6f…3ba8 lno = 0x1874 // 0x3b71 @0x2
0x3b6f…3ba8 at0004 = ╱9d╱ EXEC ╱ // 0x3b73 @0x4
0x3b6f…3ba8 at0005 = ╱49╱I╱ // 0x3b74 @0x5
0x3b6f…3ba8 at0006 = ╱4e╱N╱ // 0x3b75 @0x6
0x3b6f…3ba8 at0007 = ╱44╱D╱ // 0x3b76 @0x7
0x3b6f…3ba8 at0008 = ╱50╱P╱ // 0x3b77 @0x8
0x3b6f…3ba8 at0009 = ╱55╱U╱ // 0x3b78 @0x9
0x3b6f…3ba8 at000a = ╱54╱T╱ // 0x3b79 @0xa
0x3b6f…3ba8 at000b = ╱31╱1╱ // 0x3b7a @0xb
0x3b6f…3ba8 at000c = ╱ed╱(╱ // 0x3b7b @0xc
0x3b6f…3ba8 at000d = ╱34╱4╱ // 0x3b7c @0xd
0x3b6f…3ba8 at000e = ╱fe00008003╱ // 0x3b7d @0xe
0x3b6f…3ba8 at0013 = ╱ec╱,╱ // 0x3b82 @0x13
0x3b6f…3ba8 at0014 = ╱38╱8╱ // 0x3b83 @0x14
0x3b6f…3ba8 at0015 = ╱fe00008004╱ // 0x3b84 @0x15
0x3b6f…3ba8 at001a = ╱ec╱,╱ // 0x3b89 @0x1a
0x3b6f…3ba8 at001b = ╱e9╱-╱ // 0x3b8a @0x1b
0x3b6f…3ba8 at001c = ╱39╱9╱ // 0x3b8b @0x1c
0x3b6f…3ba8 at001d = ╱fe00009004╱ // 0x3b8c @0x1d
0x3b6f…3ba8 at0022 = ╱ec╱,╱ // 0x3b91 @0x22
0x3b6f…3ba8 at0023 = ╱e9╱-╱ // 0x3b92 @0x23
0x3b6f…3ba8 at0024 = ╱36╱6╱ // 0x3b93 @0x24
0x3b6f…3ba8 at0025 = ╱fe0000c003╱ // 0x3b94 @0x25
0x3b6f…3ba8 at002a = ╱ec╱,╱ // 0x3b99 @0x2a
0x3b6f…3ba8 at002b = ╱4c╱L╱ // 0x3b9a @0x2b
0x3b6f…3ba8 at002c = ╱54╱T╱ // 0x3b9b @0x2c
0x3b6f…3ba8 at002d = ╱58╱X╱ // 0x3b9c @0x2d
0x3b6f…3ba8 at002e = ╱ef╱$╱ // 0x3b9d @0x2e
0x3b6f…3ba8 at002f = ╱ed╱(╱ // 0x3b9e @0x2f
0x3b6f…3ba8 at0030 = ╱35╱5╱ // 0x3b9f @0x30
0x3b6f…3ba8 at0031 = ╱fe0000a003╱ // 0x3ba0 @0x31
0x3b6f…3ba8 at0036 = ╱ee╱)╱ // 0x3ba5 @0x36
0x3b6f…3ba8 at0037 = ╱ee╱)╱ // 0x3ba6 @0x37
0x3b6f…3ba8 at0038 = EOL // 0x3ba7 @0x38
0x3b6f…3ba8 }
0x3ba8…3bb7 c90e 6270 KTAL1=DTAL
0x3ba8…3bb7 LineComalBin {
0x3ba8…3bb7 ptr = 0xc90e // 0x3ba8 @0x0
0x3ba8…3bb7 lno = 0x187e // 0x3baa @0x2
0x3ba8…3bb7 at0004 = ╱4b╱K╱ // 0x3bac @0x4
0x3ba8…3bb7 at0005 = ╱54╱T╱ // 0x3bad @0x5
0x3ba8…3bb7 at0006 = ╱41╱A╱ // 0x3bae @0x6
0x3ba8…3bb7 at0007 = ╱4c╱L╱ // 0x3baf @0x7
0x3ba8…3bb7 at0008 = ╱31╱1╱ // 0x3bb0 @0x8
0x3ba8…3bb7 at0009 = ╱dc╱=╱ // 0x3bb1 @0x9
0x3ba8…3bb7 at000a = ╱44╱D╱ // 0x3bb2 @0xa
0x3ba8…3bb7 at000b = ╱54╱T╱ // 0x3bb3 @0xb
0x3ba8…3bb7 at000c = ╱41╱A╱ // 0x3bb4 @0xc
0x3ba8…3bb7 at000d = ╱4c╱L╱ // 0x3bb5 @0xd
0x3ba8…3bb7 at000e = EOL // 0x3bb6 @0xe
0x3ba8…3bb7 }
0x3bb7…3bc7 c91e 6280 IF P=-7 THEN
0x3bb7…3bc7 LineComalBin {
0x3bb7…3bc7 ptr = 0xc91e // 0x3bb7 @0x0
0x3bb7…3bc7 lno = 0x1888 // 0x3bb9 @0x2
0x3bb7…3bc7 at0004 = ╱9c╱ IF ╱ // 0x3bbb @0x4
0x3bb7…3bc7 at0005 = ╱50╱P╱ // 0x3bbc @0x5
0x3bb7…3bc7 at0006 = ╱dc╱=╱ // 0x3bbd @0x6
0x3bb7…3bc7 at0007 = ╱e9╱-╱ // 0x3bbe @0x7
0x3bb7…3bc7 at0008 = ╱37╱7╱ // 0x3bbf @0x8
0x3bb7…3bc7 at0009 = ╱fe0000e003╱ // 0x3bc0 @0x9
0x3bb7…3bc7 at000e = ╱b6╱ THEN ╱ // 0x3bc5 @0xe
0x3bb7…3bc7 at000f = EOL // 0x3bc6 @0xf
0x3bb7…3bc7 }
0x3bc7…3c00 c957 6290 EXEC INDPUT1(4,10,-2,0,LTX$(6))
0x3bc7…3c00 LineComalBin {
0x3bc7…3c00 ptr = 0xc957 // 0x3bc7 @0x0
0x3bc7…3c00 lno = 0x1892 // 0x3bc9 @0x2
0x3bc7…3c00 at0004 = ╱9d╱ EXEC ╱ // 0x3bcb @0x4
0x3bc7…3c00 at0005 = ╱49╱I╱ // 0x3bcc @0x5
0x3bc7…3c00 at0006 = ╱4e╱N╱ // 0x3bcd @0x6
0x3bc7…3c00 at0007 = ╱44╱D╱ // 0x3bce @0x7
0x3bc7…3c00 at0008 = ╱50╱P╱ // 0x3bcf @0x8
0x3bc7…3c00 at0009 = ╱55╱U╱ // 0x3bd0 @0x9
0x3bc7…3c00 at000a = ╱54╱T╱ // 0x3bd1 @0xa
0x3bc7…3c00 at000b = ╱31╱1╱ // 0x3bd2 @0xb
0x3bc7…3c00 at000c = ╱ed╱(╱ // 0x3bd3 @0xc
0x3bc7…3c00 at000d = ╱34╱4╱ // 0x3bd4 @0xd
0x3bc7…3c00 at000e = ╱fe00008003╱ // 0x3bd5 @0xe
0x3bc7…3c00 at0013 = ╱ec╱,╱ // 0x3bda @0x13
0x3bc7…3c00 at0014 = ╱31╱1╱ // 0x3bdb @0x14
0x3bc7…3c00 at0015 = ╱30╱0╱ // 0x3bdc @0x15
0x3bc7…3c00 at0016 = ╱fe0000a004╱ // 0x3bdd @0x16
0x3bc7…3c00 at001b = ╱ec╱,╱ // 0x3be2 @0x1b
0x3bc7…3c00 at001c = ╱e9╱-╱ // 0x3be3 @0x1c
0x3bc7…3c00 at001d = ╱32╱2╱ // 0x3be4 @0x1d
0x3bc7…3c00 at001e = ╱fe00008002╱ // 0x3be5 @0x1e
0x3bc7…3c00 at0023 = ╱ec╱,╱ // 0x3bea @0x23
0x3bc7…3c00 at0024 = ╱30╱0╱ // 0x3beb @0x24
0x3bc7…3c00 at0025 = ╱fe00000000╱ // 0x3bec @0x25
0x3bc7…3c00 at002a = ╱ec╱,╱ // 0x3bf1 @0x2a
0x3bc7…3c00 at002b = ╱4c╱L╱ // 0x3bf2 @0x2b
0x3bc7…3c00 at002c = ╱54╱T╱ // 0x3bf3 @0x2c
0x3bc7…3c00 at002d = ╱58╱X╱ // 0x3bf4 @0x2d
0x3bc7…3c00 at002e = ╱ef╱$╱ // 0x3bf5 @0x2e
0x3bc7…3c00 at002f = ╱ed╱(╱ // 0x3bf6 @0x2f
0x3bc7…3c00 at0030 = ╱36╱6╱ // 0x3bf7 @0x30
0x3bc7…3c00 at0031 = ╱fe0000c003╱ // 0x3bf8 @0x31
0x3bc7…3c00 at0036 = ╱ee╱)╱ // 0x3bfd @0x36
0x3bc7…3c00 at0037 = ╱ee╱)╱ // 0x3bfe @0x37
0x3bc7…3c00 at0038 = EOL // 0x3bff @0x38
0x3bc7…3c00 }
0x3c00…3c0d c964 6300 SKRIV1=E
0x3c00…3c0d LineComalBin {
0x3c00…3c0d ptr = 0xc964 // 0x3c00 @0x0
0x3c00…3c0d lno = 0x189c // 0x3c02 @0x2
0x3c00…3c0d at0004 = ╱53╱S╱ // 0x3c04 @0x4
0x3c00…3c0d at0005 = ╱4b╱K╱ // 0x3c05 @0x5
0x3c00…3c0d at0006 = ╱52╱R╱ // 0x3c06 @0x6
0x3c00…3c0d at0007 = ╱49╱I╱ // 0x3c07 @0x7
0x3c00…3c0d at0008 = ╱56╱V╱ // 0x3c08 @0x8
0x3c00…3c0d at0009 = ╱31╱1╱ // 0x3c09 @0x9
0x3c00…3c0d at000a = ╱dc╱=╱ // 0x3c0a @0xa
0x3c00…3c0d at000b = ╱45╱E╱ // 0x3c0b @0xb
0x3c00…3c0d at000c = EOL // 0x3c0c @0xc
0x3c00…3c0d }
0x3c0d…3c13 c96a 6310 REPEAT
0x3c0d…3c13 LineComalBin {
0x3c0d…3c13 ptr = 0xc96a // 0x3c0d @0x0
0x3c0d…3c13 lno = 0x18a6 // 0x3c0f @0x2
0x3c0d…3c13 at0004 = ╱97╱ REPEAT ╱ // 0x3c11 @0x4
0x3c0d…3c13 at0005 = EOL // 0x3c12 @0x5
0x3c0d…3c13 }
0x3c13…3c62 c9b9 6320 DEBNAVN$="XXXXXXXXXXXXXXXXXXXXXXXXX";DEBGADE$=DEBNAVN$;DEBPOSTNR=9999
0x3c13…3c62 LineComalBin {
0x3c13…3c62 ptr = 0xc9b9 // 0x3c13 @0x0
0x3c13…3c62 lno = 0x18b0 // 0x3c15 @0x2
0x3c13…3c62 at0004 = ╱44╱D╱ // 0x3c17 @0x4
0x3c13…3c62 at0005 = ╱45╱E╱ // 0x3c18 @0x5
0x3c13…3c62 at0006 = ╱42╱B╱ // 0x3c19 @0x6
0x3c13…3c62 at0007 = ╱4e╱N╱ // 0x3c1a @0x7
0x3c13…3c62 at0008 = ╱41╱A╱ // 0x3c1b @0x8
0x3c13…3c62 at0009 = ╱56╱V╱ // 0x3c1c @0x9
0x3c13…3c62 at000a = ╱4e╱N╱ // 0x3c1d @0xa
0x3c13…3c62 at000b = ╱ef╱$╱ // 0x3c1e @0xb
0x3c13…3c62 at000c = ╱dc╱=╱ // 0x3c1f @0xc
0x3c13…3c62 at000d = ╱22╱"╱ // 0x3c20 @0xd
0x3c13…3c62 at000e = ╱58╱X╱ // 0x3c21 @0xe
0x3c13…3c62 at000f = ╱58╱X╱ // 0x3c22 @0xf
0x3c13…3c62 at0010 = ╱58╱X╱ // 0x3c23 @0x10
0x3c13…3c62 at0011 = ╱58╱X╱ // 0x3c24 @0x11
0x3c13…3c62 at0012 = ╱58╱X╱ // 0x3c25 @0x12
0x3c13…3c62 at0013 = ╱58╱X╱ // 0x3c26 @0x13
0x3c13…3c62 at0014 = ╱58╱X╱ // 0x3c27 @0x14
0x3c13…3c62 at0015 = ╱58╱X╱ // 0x3c28 @0x15
0x3c13…3c62 at0016 = ╱58╱X╱ // 0x3c29 @0x16
0x3c13…3c62 at0017 = ╱58╱X╱ // 0x3c2a @0x17
0x3c13…3c62 at0018 = ╱58╱X╱ // 0x3c2b @0x18
0x3c13…3c62 at0019 = ╱58╱X╱ // 0x3c2c @0x19
0x3c13…3c62 at001a = ╱58╱X╱ // 0x3c2d @0x1a
0x3c13…3c62 at001b = ╱58╱X╱ // 0x3c2e @0x1b
0x3c13…3c62 at001c = ╱58╱X╱ // 0x3c2f @0x1c
0x3c13…3c62 at001d = ╱58╱X╱ // 0x3c30 @0x1d
0x3c13…3c62 at001e = ╱58╱X╱ // 0x3c31 @0x1e
0x3c13…3c62 at001f = ╱58╱X╱ // 0x3c32 @0x1f
0x3c13…3c62 at0020 = ╱58╱X╱ // 0x3c33 @0x20
0x3c13…3c62 at0021 = ╱58╱X╱ // 0x3c34 @0x21
0x3c13…3c62 at0022 = ╱58╱X╱ // 0x3c35 @0x22
0x3c13…3c62 at0023 = ╱58╱X╱ // 0x3c36 @0x23
0x3c13…3c62 at0024 = ╱58╱X╱ // 0x3c37 @0x24
0x3c13…3c62 at0025 = ╱58╱X╱ // 0x3c38 @0x25
0x3c13…3c62 at0026 = ╱58╱X╱ // 0x3c39 @0x26
0x3c13…3c62 at0027 = ╱22╱"╱ // 0x3c3a @0x27
0x3c13…3c62 at0028 = ╱eb╱;╱ // 0x3c3b @0x28
0x3c13…3c62 at0029 = ╱44╱D╱ // 0x3c3c @0x29
0x3c13…3c62 at002a = ╱45╱E╱ // 0x3c3d @0x2a
0x3c13…3c62 at002b = ╱42╱B╱ // 0x3c3e @0x2b
0x3c13…3c62 at002c = ╱47╱G╱ // 0x3c3f @0x2c
0x3c13…3c62 at002d = ╱41╱A╱ // 0x3c40 @0x2d
0x3c13…3c62 at002e = ╱44╱D╱ // 0x3c41 @0x2e
0x3c13…3c62 at002f = ╱45╱E╱ // 0x3c42 @0x2f
0x3c13…3c62 at0030 = ╱ef╱$╱ // 0x3c43 @0x30
0x3c13…3c62 at0031 = ╱dc╱=╱ // 0x3c44 @0x31
0x3c13…3c62 at0032 = ╱44╱D╱ // 0x3c45 @0x32
0x3c13…3c62 at0033 = ╱45╱E╱ // 0x3c46 @0x33
0x3c13…3c62 at0034 = ╱42╱B╱ // 0x3c47 @0x34
0x3c13…3c62 at0035 = ╱4e╱N╱ // 0x3c48 @0x35
0x3c13…3c62 at0036 = ╱41╱A╱ // 0x3c49 @0x36
0x3c13…3c62 at0037 = ╱56╱V╱ // 0x3c4a @0x37
0x3c13…3c62 at0038 = ╱4e╱N╱ // 0x3c4b @0x38
0x3c13…3c62 at0039 = ╱ef╱$╱ // 0x3c4c @0x39
0x3c13…3c62 at003a = ╱eb╱;╱ // 0x3c4d @0x3a
0x3c13…3c62 at003b = ╱44╱D╱ // 0x3c4e @0x3b
0x3c13…3c62 at003c = ╱45╱E╱ // 0x3c4f @0x3c
0x3c13…3c62 at003d = ╱42╱B╱ // 0x3c50 @0x3d
0x3c13…3c62 at003e = ╱50╱P╱ // 0x3c51 @0x3e
0x3c13…3c62 at003f = ╱4f╱O╱ // 0x3c52 @0x3f
0x3c13…3c62 at0040 = ╱53╱S╱ // 0x3c53 @0x40
0x3c13…3c62 at0041 = ╱54╱T╱ // 0x3c54 @0x41
0x3c13…3c62 at0042 = ╱4e╱N╱ // 0x3c55 @0x42
0x3c13…3c62 at0043 = ╱52╱R╱ // 0x3c56 @0x43
0x3c13…3c62 at0044 = ╱dc╱=╱ // 0x3c57 @0x44
0x3c13…3c62 at0045 = ╱39╱9╱ // 0x3c58 @0x45
0x3c13…3c62 at0046 = ╱39╱9╱ // 0x3c59 @0x46
0x3c13…3c62 at0047 = ╱39╱9╱ // 0x3c5a @0x47
0x3c13…3c62 at0048 = ╱39╱9╱ // 0x3c5b @0x48
0x3c13…3c62 at0049 = ╱fe003c9c0e╱ // 0x3c5c @0x49
0x3c13…3c62 at004e = EOL // 0x3c61 @0x4e
0x3c13…3c62 }
0x3c62…3c69 c9c0 6330 OUTPUT P
0x3c62…3c69 LineComalBin {
0x3c62…3c69 ptr = 0xc9c0 // 0x3c62 @0x0
0x3c62…3c69 lno = 0x18ba // 0x3c64 @0x2
0x3c62…3c69 at0004 = ╱a5╱ OUTPUT ╱ // 0x3c66 @0x4
0x3c62…3c69 at0005 = ╱50╱P╱ // 0x3c67 @0x5
0x3c62…3c69 at0006 = EOL // 0x3c68 @0x6
0x3c62…3c69 }
0x3c69…3c93 c9ea 6340 DEBBY$=DEBNAVN$(E:15);DEBLK$="0"
0x3c69…3c93 LineComalBin {
0x3c69…3c93 ptr = 0xc9ea // 0x3c69 @0x0
0x3c69…3c93 lno = 0x18c4 // 0x3c6b @0x2
0x3c69…3c93 at0004 = ╱44╱D╱ // 0x3c6d @0x4
0x3c69…3c93 at0005 = ╱45╱E╱ // 0x3c6e @0x5
0x3c69…3c93 at0006 = ╱42╱B╱ // 0x3c6f @0x6
0x3c69…3c93 at0007 = ╱42╱B╱ // 0x3c70 @0x7
0x3c69…3c93 at0008 = ╱59╱Y╱ // 0x3c71 @0x8
0x3c69…3c93 at0009 = ╱ef╱$╱ // 0x3c72 @0x9
0x3c69…3c93 at000a = ╱dc╱=╱ // 0x3c73 @0xa
0x3c69…3c93 at000b = ╱44╱D╱ // 0x3c74 @0xb
0x3c69…3c93 at000c = ╱45╱E╱ // 0x3c75 @0xc
0x3c69…3c93 at000d = ╱42╱B╱ // 0x3c76 @0xd
0x3c69…3c93 at000e = ╱4e╱N╱ // 0x3c77 @0xe
0x3c69…3c93 at000f = ╱41╱A╱ // 0x3c78 @0xf
0x3c69…3c93 at0010 = ╱56╱V╱ // 0x3c79 @0x10
0x3c69…3c93 at0011 = ╱4e╱N╱ // 0x3c7a @0x11
0x3c69…3c93 at0012 = ╱ef╱$╱ // 0x3c7b @0x12
0x3c69…3c93 at0013 = ╱ed╱(╱ // 0x3c7c @0x13
0x3c69…3c93 at0014 = ╱45╱E╱ // 0x3c7d @0x14
0x3c69…3c93 at0015 = ╱f0╱:╱ // 0x3c7e @0x15
0x3c69…3c93 at0016 = ╱31╱1╱ // 0x3c7f @0x16
0x3c69…3c93 at0017 = ╱35╱5╱ // 0x3c80 @0x17
0x3c69…3c93 at0018 = ╱fe0000f004╱ // 0x3c81 @0x18
0x3c69…3c93 at001d = ╱ee╱)╱ // 0x3c86 @0x1d
0x3c69…3c93 at001e = ╱eb╱;╱ // 0x3c87 @0x1e
0x3c69…3c93 at001f = ╱44╱D╱ // 0x3c88 @0x1f
0x3c69…3c93 at0020 = ╱45╱E╱ // 0x3c89 @0x20
0x3c69…3c93 at0021 = ╱42╱B╱ // 0x3c8a @0x21
0x3c69…3c93 at0022 = ╱4c╱L╱ // 0x3c8b @0x22
0x3c69…3c93 at0023 = ╱4b╱K╱ // 0x3c8c @0x23
0x3c69…3c93 at0024 = ╱ef╱$╱ // 0x3c8d @0x24
0x3c69…3c93 at0025 = ╱dc╱=╱ // 0x3c8e @0x25
0x3c69…3c93 at0026 = ╱22╱"╱ // 0x3c8f @0x26
0x3c69…3c93 at0027 = ╱30╱0╱ // 0x3c90 @0x27
0x3c69…3c93 at0028 = ╱22╱"╱ // 0x3c91 @0x28
0x3c69…3c93 at0029 = EOL // 0x3c92 @0x29
0x3c69…3c93 }
0x3c93…3ca1 c9f8 6350 EXEC HUDSKRIV
0x3c93…3ca1 LineComalBin {
0x3c93…3ca1 ptr = 0xc9f8 // 0x3c93 @0x0
0x3c93…3ca1 lno = 0x18ce // 0x3c95 @0x2
0x3c93…3ca1 at0004 = ╱9d╱ EXEC ╱ // 0x3c97 @0x4
0x3c93…3ca1 at0005 = ╱48╱H╱ // 0x3c98 @0x5
0x3c93…3ca1 at0006 = ╱55╱U╱ // 0x3c99 @0x6
0x3c93…3ca1 at0007 = ╱44╱D╱ // 0x3c9a @0x7
0x3c93…3ca1 at0008 = ╱53╱S╱ // 0x3c9b @0x8
0x3c93…3ca1 at0009 = ╱4b╱K╱ // 0x3c9c @0x9
0x3c93…3ca1 at000a = ╱52╱R╱ // 0x3c9d @0xa
0x3c93…3ca1 at000b = ╱49╱I╱ // 0x3c9e @0xb
0x3c93…3ca1 at000c = ╱56╱V╱ // 0x3c9f @0xc
0x3c93…3ca1 at000d = EOL // 0x3ca0 @0xd
0x3c93…3ca1 }
0x3ca1…3cce ca25 6360 EXEC LUDSKRIV(99999,999999,9)
0x3ca1…3cce LineComalBin {
0x3ca1…3cce ptr = 0xca25 // 0x3ca1 @0x0
0x3ca1…3cce lno = 0x18d8 // 0x3ca3 @0x2
0x3ca1…3cce at0004 = ╱9d╱ EXEC ╱ // 0x3ca5 @0x4
0x3ca1…3cce at0005 = ╱4c╱L╱ // 0x3ca6 @0x5
0x3ca1…3cce at0006 = ╱55╱U╱ // 0x3ca7 @0x6
0x3ca1…3cce at0007 = ╱44╱D╱ // 0x3ca8 @0x7
0x3ca1…3cce at0008 = ╱53╱S╱ // 0x3ca9 @0x8
0x3ca1…3cce at0009 = ╱4b╱K╱ // 0x3caa @0x9
0x3ca1…3cce at000a = ╱52╱R╱ // 0x3cab @0xa
0x3ca1…3cce at000b = ╱49╱I╱ // 0x3cac @0xb
0x3ca1…3cce at000c = ╱56╱V╱ // 0x3cad @0xc
0x3ca1…3cce at000d = ╱ed╱(╱ // 0x3cae @0xd
0x3ca1…3cce at000e = ╱39╱9╱ // 0x3caf @0xe
0x3ca1…3cce at000f = ╱39╱9╱ // 0x3cb0 @0xf
0x3ca1…3cce at0010 = ╱39╱9╱ // 0x3cb1 @0x10
0x3ca1…3cce at0011 = ╱39╱9╱ // 0x3cb2 @0x11
0x3ca1…3cce at0012 = ╱39╱9╱ // 0x3cb3 @0x12
0x3ca1…3cce at0013 = ╱fe804fc311╱ // 0x3cb4 @0x13
0x3ca1…3cce at0018 = ╱ec╱,╱ // 0x3cb9 @0x18
0x3ca1…3cce at0019 = ╱39╱9╱ // 0x3cba @0x19
0x3ca1…3cce at001a = ╱39╱9╱ // 0x3cbb @0x1a
0x3ca1…3cce at001b = ╱39╱9╱ // 0x3cbc @0x1b
0x3ca1…3cce at001c = ╱39╱9╱ // 0x3cbd @0x1c
0x3ca1…3cce at001d = ╱39╱9╱ // 0x3cbe @0x1d
0x3ca1…3cce at001e = ╱39╱9╱ // 0x3cbf @0x1e
0x3ca1…3cce at001f = ╱fef023f414╱ // 0x3cc0 @0x1f
0x3ca1…3cce at0024 = ╱ec╱,╱ // 0x3cc5 @0x24
0x3ca1…3cce at0025 = ╱39╱9╱ // 0x3cc6 @0x25
0x3ca1…3cce at0026 = ╱fe00009004╱ // 0x3cc7 @0x26
0x3ca1…3cce at002b = ╱ee╱)╱ // 0x3ccc @0x2b
0x3ca1…3cce at002c = EOL // 0x3ccd @0x2c
0x3ca1…3cce }
0x3cce…3ce9 ca40 6370 PRINT CHR(10);CHR(10)
0x3cce…3ce9 LineComalBin {
0x3cce…3ce9 ptr = 0xca40 // 0x3cce @0x0
0x3cce…3ce9 lno = 0x18e2 // 0x3cd0 @0x2
0x3cce…3ce9 at0004 = ╱92╱ PRINT ╱ // 0x3cd2 @0x4
0x3cce…3ce9 at0005 = ╱cf╱CHR╱ // 0x3cd3 @0x5
0x3cce…3ce9 at0006 = ╱ed╱(╱ // 0x3cd4 @0x6
0x3cce…3ce9 at0007 = ╱31╱1╱ // 0x3cd5 @0x7
0x3cce…3ce9 at0008 = ╱30╱0╱ // 0x3cd6 @0x8
0x3cce…3ce9 at0009 = ╱fe0000a004╱ // 0x3cd7 @0x9
0x3cce…3ce9 at000e = ╱ee╱)╱ // 0x3cdc @0xe
0x3cce…3ce9 at000f = ╱eb╱;╱ // 0x3cdd @0xf
0x3cce…3ce9 at0010 = ╱cf╱CHR╱ // 0x3cde @0x10
0x3cce…3ce9 at0011 = ╱ed╱(╱ // 0x3cdf @0x11
0x3cce…3ce9 at0012 = ╱31╱1╱ // 0x3ce0 @0x12
0x3cce…3ce9 at0013 = ╱30╱0╱ // 0x3ce1 @0x13
0x3cce…3ce9 at0014 = ╱fe0000a004╱ // 0x3ce2 @0x14
0x3cce…3ce9 at0019 = ╱ee╱)╱ // 0x3ce7 @0x19
0x3cce…3ce9 at001a = EOL // 0x3ce8 @0x1a
0x3cce…3ce9 }
0x3ce9…3d2f ca86 6380 PRINT TAB(11);"XX.XX.XX XXXXXX ";DEBNAVN$;" XXX.XXX,XX XXX.XXX,XX"
0x3ce9…3d2f LineComalBin {
0x3ce9…3d2f ptr = 0xca86 // 0x3ce9 @0x0
0x3ce9…3d2f lno = 0x18ec // 0x3ceb @0x2
0x3ce9…3d2f at0004 = ╱92╱ PRINT ╱ // 0x3ced @0x4
0x3ce9…3d2f at0005 = ╱d2╱TAB╱ // 0x3cee @0x5
0x3ce9…3d2f at0006 = ╱ed╱(╱ // 0x3cef @0x6
0x3ce9…3d2f at0007 = ╱31╱1╱ // 0x3cf0 @0x7
0x3ce9…3d2f at0008 = ╱31╱1╱ // 0x3cf1 @0x8
0x3ce9…3d2f at0009 = ╱fe0000b004╱ // 0x3cf2 @0x9
0x3ce9…3d2f at000e = ╱ee╱)╱ // 0x3cf7 @0xe
0x3ce9…3d2f at000f = ╱eb╱;╱ // 0x3cf8 @0xf
0x3ce9…3d2f at0010 = ╱22╱"╱ // 0x3cf9 @0x10
0x3ce9…3d2f at0011 = ╱58╱X╱ // 0x3cfa @0x11
0x3ce9…3d2f at0012 = ╱58╱X╱ // 0x3cfb @0x12
0x3ce9…3d2f at0013 = ╱2e╱.╱ // 0x3cfc @0x13
0x3ce9…3d2f at0014 = ╱58╱X╱ // 0x3cfd @0x14
0x3ce9…3d2f at0015 = ╱58╱X╱ // 0x3cfe @0x15
0x3ce9…3d2f at0016 = ╱2e╱.╱ // 0x3cff @0x16
0x3ce9…3d2f at0017 = ╱58╱X╱ // 0x3d00 @0x17
0x3ce9…3d2f at0018 = ╱58╱X╱ // 0x3d01 @0x18
0x3ce9…3d2f at0019 = ╱20╱…╱ // 0x3d02 @0x19
0x3ce9…3d2f at001a = ╱58╱X╱ // 0x3d03 @0x1a
0x3ce9…3d2f at001b = ╱58╱X╱ // 0x3d04 @0x1b
0x3ce9…3d2f at001c = ╱58╱X╱ // 0x3d05 @0x1c
0x3ce9…3d2f at001d = ╱58╱X╱ // 0x3d06 @0x1d
0x3ce9…3d2f at001e = ╱58╱X╱ // 0x3d07 @0x1e
0x3ce9…3d2f at001f = ╱58╱X╱ // 0x3d08 @0x1f
0x3ce9…3d2f at0020 = ╱20╱…╱ // 0x3d09 @0x20
0x3ce9…3d2f at0021 = ╱22╱"╱ // 0x3d0a @0x21
0x3ce9…3d2f at0022 = ╱eb╱;╱ // 0x3d0b @0x22
0x3ce9…3d2f at0023 = ╱44╱D╱ // 0x3d0c @0x23
0x3ce9…3d2f at0024 = ╱45╱E╱ // 0x3d0d @0x24
0x3ce9…3d2f at0025 = ╱42╱B╱ // 0x3d0e @0x25
0x3ce9…3d2f at0026 = ╱4e╱N╱ // 0x3d0f @0x26
0x3ce9…3d2f at0027 = ╱41╱A╱ // 0x3d10 @0x27
0x3ce9…3d2f at0028 = ╱56╱V╱ // 0x3d11 @0x28
0x3ce9…3d2f at0029 = ╱4e╱N╱ // 0x3d12 @0x29
0x3ce9…3d2f at002a = ╱ef╱$╱ // 0x3d13 @0x2a
0x3ce9…3d2f at002b = ╱eb╱;╱ // 0x3d14 @0x2b
0x3ce9…3d2f at002c = ╱22╱"╱ // 0x3d15 @0x2c
0x3ce9…3d2f at002d = ╱20╱…╱ // 0x3d16 @0x2d
0x3ce9…3d2f at002e = ╱20╱…╱ // 0x3d17 @0x2e
0x3ce9…3d2f at002f = ╱58╱X╱ // 0x3d18 @0x2f
0x3ce9…3d2f at0030 = ╱58╱X╱ // 0x3d19 @0x30
0x3ce9…3d2f at0031 = ╱58╱X╱ // 0x3d1a @0x31
0x3ce9…3d2f at0032 = ╱2e╱.╱ // 0x3d1b @0x32
0x3ce9…3d2f at0033 = ╱58╱X╱ // 0x3d1c @0x33
0x3ce9…3d2f at0034 = ╱58╱X╱ // 0x3d1d @0x34
0x3ce9…3d2f at0035 = ╱58╱X╱ // 0x3d1e @0x35
0x3ce9…3d2f at0036 = ╱2c╱,╱ // 0x3d1f @0x36
0x3ce9…3d2f at0037 = ╱58╱X╱ // 0x3d20 @0x37
0x3ce9…3d2f at0038 = ╱58╱X╱ // 0x3d21 @0x38
0x3ce9…3d2f at0039 = ╱20╱…╱ // 0x3d22 @0x39
0x3ce9…3d2f at003a = ╱58╱X╱ // 0x3d23 @0x3a
0x3ce9…3d2f at003b = ╱58╱X╱ // 0x3d24 @0x3b
0x3ce9…3d2f at003c = ╱58╱X╱ // 0x3d25 @0x3c
0x3ce9…3d2f at003d = ╱2e╱.╱ // 0x3d26 @0x3d
0x3ce9…3d2f at003e = ╱58╱X╱ // 0x3d27 @0x3e
0x3ce9…3d2f at003f = ╱58╱X╱ // 0x3d28 @0x3f
0x3ce9…3d2f at0040 = ╱58╱X╱ // 0x3d29 @0x40
0x3ce9…3d2f at0041 = ╱2c╱,╱ // 0x3d2a @0x41
0x3ce9…3d2f at0042 = ╱58╱X╱ // 0x3d2b @0x42
0x3ce9…3d2f at0043 = ╱58╱X╱ // 0x3d2c @0x43
0x3ce9…3d2f at0044 = ╱22╱"╱ // 0x3d2d @0x44
0x3ce9…3d2f at0045 = EOL // 0x3d2e @0x45
0x3ce9…3d2f }
0x3d2f…3d40 ca97 6400 FOR I=E TO 15
0x3d2f…3d40 LineComalBin {
0x3d2f…3d40 ptr = 0xca97 // 0x3d2f @0x0
0x3d2f…3d40 lno = 0x1900 // 0x3d31 @0x2
0x3d2f…3d40 at0004 = ╱83╱ FOR ╱ // 0x3d33 @0x4
0x3d2f…3d40 at0005 = ╱49╱I╱ // 0x3d34 @0x5
0x3d2f…3d40 at0006 = ╱dc╱=╱ // 0x3d35 @0x6
0x3d2f…3d40 at0007 = ╱45╱E╱ // 0x3d36 @0x7
0x3d2f…3d40 at0008 = ╱b7╱ TO ╱ // 0x3d37 @0x8
0x3d2f…3d40 at0009 = ╱31╱1╱ // 0x3d38 @0x9
0x3d2f…3d40 at000a = ╱35╱5╱ // 0x3d39 @0xa
0x3d2f…3d40 at000b = ╱fe0000f004╱ // 0x3d3a @0xb
0x3d2f…3d40 at0010 = EOL // 0x3d3f @0x10
0x3d2f…3d40 }
0x3d40…3d49 caa0 6410 PRINT " "
0x3d40…3d49 LineComalBin {
0x3d40…3d49 ptr = 0xcaa0 // 0x3d40 @0x0
0x3d40…3d49 lno = 0x190a // 0x3d42 @0x2
0x3d40…3d49 at0004 = ╱92╱ PRINT ╱ // 0x3d44 @0x4
0x3d40…3d49 at0005 = ╱22╱"╱ // 0x3d45 @0x5
0x3d40…3d49 at0006 = ╱20╱…╱ // 0x3d46 @0x6
0x3d40…3d49 at0007 = ╱22╱"╱ // 0x3d47 @0x7
0x3d40…3d49 at0008 = EOL // 0x3d48 @0x8
0x3d40…3d49 }
0x3d49…3d50 caa7 6420 NEXT I
0x3d49…3d50 LineComalBin {
0x3d49…3d50 ptr = 0xcaa7 // 0x3d49 @0x0
0x3d49…3d50 lno = 0x1914 // 0x3d4b @0x2
0x3d49…3d50 at0004 = ╱84╱ NEXT ╱ // 0x3d4d @0x4
0x3d49…3d50 at0005 = ╱49╱I╱ // 0x3d4e @0x5
0x3d49…3d50 at0006 = EOL // 0x3d4f @0x6
0x3d49…3d50 }
0x3d50…3d96 caed 6440 PRINT TAB(11);"XX.XX.XX XXXXXX ";DEBNAVN$;" XXX.XXX,XX XXX.XXX,XX"
0x3d50…3d96 LineComalBin {
0x3d50…3d96 ptr = 0xcaed // 0x3d50 @0x0
0x3d50…3d96 lno = 0x1928 // 0x3d52 @0x2
0x3d50…3d96 at0004 = ╱92╱ PRINT ╱ // 0x3d54 @0x4
0x3d50…3d96 at0005 = ╱d2╱TAB╱ // 0x3d55 @0x5
0x3d50…3d96 at0006 = ╱ed╱(╱ // 0x3d56 @0x6
0x3d50…3d96 at0007 = ╱31╱1╱ // 0x3d57 @0x7
0x3d50…3d96 at0008 = ╱31╱1╱ // 0x3d58 @0x8
0x3d50…3d96 at0009 = ╱fe0000b004╱ // 0x3d59 @0x9
0x3d50…3d96 at000e = ╱ee╱)╱ // 0x3d5e @0xe
0x3d50…3d96 at000f = ╱eb╱;╱ // 0x3d5f @0xf
0x3d50…3d96 at0010 = ╱22╱"╱ // 0x3d60 @0x10
0x3d50…3d96 at0011 = ╱58╱X╱ // 0x3d61 @0x11
0x3d50…3d96 at0012 = ╱58╱X╱ // 0x3d62 @0x12
0x3d50…3d96 at0013 = ╱2e╱.╱ // 0x3d63 @0x13
0x3d50…3d96 at0014 = ╱58╱X╱ // 0x3d64 @0x14
0x3d50…3d96 at0015 = ╱58╱X╱ // 0x3d65 @0x15
0x3d50…3d96 at0016 = ╱2e╱.╱ // 0x3d66 @0x16
0x3d50…3d96 at0017 = ╱58╱X╱ // 0x3d67 @0x17
0x3d50…3d96 at0018 = ╱58╱X╱ // 0x3d68 @0x18
0x3d50…3d96 at0019 = ╱20╱…╱ // 0x3d69 @0x19
0x3d50…3d96 at001a = ╱58╱X╱ // 0x3d6a @0x1a
0x3d50…3d96 at001b = ╱58╱X╱ // 0x3d6b @0x1b
0x3d50…3d96 at001c = ╱58╱X╱ // 0x3d6c @0x1c
0x3d50…3d96 at001d = ╱58╱X╱ // 0x3d6d @0x1d
0x3d50…3d96 at001e = ╱58╱X╱ // 0x3d6e @0x1e
0x3d50…3d96 at001f = ╱58╱X╱ // 0x3d6f @0x1f
0x3d50…3d96 at0020 = ╱20╱…╱ // 0x3d70 @0x20
0x3d50…3d96 at0021 = ╱22╱"╱ // 0x3d71 @0x21
0x3d50…3d96 at0022 = ╱eb╱;╱ // 0x3d72 @0x22
0x3d50…3d96 at0023 = ╱44╱D╱ // 0x3d73 @0x23
0x3d50…3d96 at0024 = ╱45╱E╱ // 0x3d74 @0x24
0x3d50…3d96 at0025 = ╱42╱B╱ // 0x3d75 @0x25
0x3d50…3d96 at0026 = ╱4e╱N╱ // 0x3d76 @0x26
0x3d50…3d96 at0027 = ╱41╱A╱ // 0x3d77 @0x27
0x3d50…3d96 at0028 = ╱56╱V╱ // 0x3d78 @0x28
0x3d50…3d96 at0029 = ╱4e╱N╱ // 0x3d79 @0x29
0x3d50…3d96 at002a = ╱ef╱$╱ // 0x3d7a @0x2a
0x3d50…3d96 at002b = ╱eb╱;╱ // 0x3d7b @0x2b
0x3d50…3d96 at002c = ╱22╱"╱ // 0x3d7c @0x2c
0x3d50…3d96 at002d = ╱20╱…╱ // 0x3d7d @0x2d
0x3d50…3d96 at002e = ╱20╱…╱ // 0x3d7e @0x2e
0x3d50…3d96 at002f = ╱58╱X╱ // 0x3d7f @0x2f
0x3d50…3d96 at0030 = ╱58╱X╱ // 0x3d80 @0x30
0x3d50…3d96 at0031 = ╱58╱X╱ // 0x3d81 @0x31
0x3d50…3d96 at0032 = ╱2e╱.╱ // 0x3d82 @0x32
0x3d50…3d96 at0033 = ╱58╱X╱ // 0x3d83 @0x33
0x3d50…3d96 at0034 = ╱58╱X╱ // 0x3d84 @0x34
0x3d50…3d96 at0035 = ╱58╱X╱ // 0x3d85 @0x35
0x3d50…3d96 at0036 = ╱2c╱,╱ // 0x3d86 @0x36
0x3d50…3d96 at0037 = ╱58╱X╱ // 0x3d87 @0x37
0x3d50…3d96 at0038 = ╱58╱X╱ // 0x3d88 @0x38
0x3d50…3d96 at0039 = ╱20╱…╱ // 0x3d89 @0x39
0x3d50…3d96 at003a = ╱58╱X╱ // 0x3d8a @0x3a
0x3d50…3d96 at003b = ╱58╱X╱ // 0x3d8b @0x3b
0x3d50…3d96 at003c = ╱58╱X╱ // 0x3d8c @0x3c
0x3d50…3d96 at003d = ╱2e╱.╱ // 0x3d8d @0x3d
0x3d50…3d96 at003e = ╱58╱X╱ // 0x3d8e @0x3e
0x3d50…3d96 at003f = ╱58╱X╱ // 0x3d8f @0x3f
0x3d50…3d96 at0040 = ╱58╱X╱ // 0x3d90 @0x40
0x3d50…3d96 at0041 = ╱2c╱,╱ // 0x3d91 @0x41
0x3d50…3d96 at0042 = ╱58╱X╱ // 0x3d92 @0x42
0x3d50…3d96 at0043 = ╱58╱X╱ // 0x3d93 @0x43
0x3d50…3d96 at0044 = ╱22╱"╱ // 0x3d94 @0x44
0x3d50…3d96 at0045 = EOL // 0x3d95 @0x45
0x3d50…3d96 }
0x3d96…3d9f caf6 6460 PRINT " "
0x3d96…3d9f LineComalBin {
0x3d96…3d9f ptr = 0xcaf6 // 0x3d96 @0x0
0x3d96…3d9f lno = 0x193c // 0x3d98 @0x2
0x3d96…3d9f at0004 = ╱92╱ PRINT ╱ // 0x3d9a @0x4
0x3d96…3d9f at0005 = ╱22╱"╱ // 0x3d9b @0x5
0x3d96…3d9f at0006 = ╱20╱…╱ // 0x3d9c @0x6
0x3d96…3d9f at0007 = ╱22╱"╱ // 0x3d9d @0x7
0x3d96…3d9f at0008 = EOL // 0x3d9e @0x8
0x3d96…3d9f }
0x3d9f…3da8 caff 6465 PRINT " "
0x3d9f…3da8 LineComalBin {
0x3d9f…3da8 ptr = 0xcaff // 0x3d9f @0x0
0x3d9f…3da8 lno = 0x1941 // 0x3da1 @0x2
0x3d9f…3da8 at0004 = ╱92╱ PRINT ╱ // 0x3da3 @0x4
0x3d9f…3da8 at0005 = ╱22╱"╱ // 0x3da4 @0x5
0x3d9f…3da8 at0006 = ╱20╱…╱ // 0x3da5 @0x6
0x3d9f…3da8 at0007 = ╱22╱"╱ // 0x3da6 @0x7
0x3d9f…3da8 at0008 = EOL // 0x3da7 @0x8
0x3d9f…3da8 }
0x3da8…3deb cb42 6470 PRINT TAB(11);"XX.XXX.XXX,XX";TAB(52);"XXX.XXX,XX XXX.XXX,XX"
0x3da8…3deb LineComalBin {
0x3da8…3deb ptr = 0xcb42 // 0x3da8 @0x0
0x3da8…3deb lno = 0x1946 // 0x3daa @0x2
0x3da8…3deb at0004 = ╱92╱ PRINT ╱ // 0x3dac @0x4
0x3da8…3deb at0005 = ╱d2╱TAB╱ // 0x3dad @0x5
0x3da8…3deb at0006 = ╱ed╱(╱ // 0x3dae @0x6
0x3da8…3deb at0007 = ╱31╱1╱ // 0x3daf @0x7
0x3da8…3deb at0008 = ╱31╱1╱ // 0x3db0 @0x8
0x3da8…3deb at0009 = ╱fe0000b004╱ // 0x3db1 @0x9
0x3da8…3deb at000e = ╱ee╱)╱ // 0x3db6 @0xe
0x3da8…3deb at000f = ╱eb╱;╱ // 0x3db7 @0xf
0x3da8…3deb at0010 = ╱22╱"╱ // 0x3db8 @0x10
0x3da8…3deb at0011 = ╱58╱X╱ // 0x3db9 @0x11
0x3da8…3deb at0012 = ╱58╱X╱ // 0x3dba @0x12
0x3da8…3deb at0013 = ╱2e╱.╱ // 0x3dbb @0x13
0x3da8…3deb at0014 = ╱58╱X╱ // 0x3dbc @0x14
0x3da8…3deb at0015 = ╱58╱X╱ // 0x3dbd @0x15
0x3da8…3deb at0016 = ╱58╱X╱ // 0x3dbe @0x16
0x3da8…3deb at0017 = ╱2e╱.╱ // 0x3dbf @0x17
0x3da8…3deb at0018 = ╱58╱X╱ // 0x3dc0 @0x18
0x3da8…3deb at0019 = ╱58╱X╱ // 0x3dc1 @0x19
0x3da8…3deb at001a = ╱58╱X╱ // 0x3dc2 @0x1a
0x3da8…3deb at001b = ╱2c╱,╱ // 0x3dc3 @0x1b
0x3da8…3deb at001c = ╱58╱X╱ // 0x3dc4 @0x1c
0x3da8…3deb at001d = ╱58╱X╱ // 0x3dc5 @0x1d
0x3da8…3deb at001e = ╱22╱"╱ // 0x3dc6 @0x1e
0x3da8…3deb at001f = ╱eb╱;╱ // 0x3dc7 @0x1f
0x3da8…3deb at0020 = ╱d2╱TAB╱ // 0x3dc8 @0x20
0x3da8…3deb at0021 = ╱ed╱(╱ // 0x3dc9 @0x21
0x3da8…3deb at0022 = ╱35╱5╱ // 0x3dca @0x22
0x3da8…3deb at0023 = ╱32╱2╱ // 0x3dcb @0x23
0x3da8…3deb at0024 = ╱fe0000d006╱ // 0x3dcc @0x24
0x3da8…3deb at0029 = ╱ee╱)╱ // 0x3dd1 @0x29
0x3da8…3deb at002a = ╱eb╱;╱ // 0x3dd2 @0x2a
0x3da8…3deb at002b = ╱22╱"╱ // 0x3dd3 @0x2b
0x3da8…3deb at002c = ╱58╱X╱ // 0x3dd4 @0x2c
0x3da8…3deb at002d = ╱58╱X╱ // 0x3dd5 @0x2d
0x3da8…3deb at002e = ╱58╱X╱ // 0x3dd6 @0x2e
0x3da8…3deb at002f = ╱2e╱.╱ // 0x3dd7 @0x2f
0x3da8…3deb at0030 = ╱58╱X╱ // 0x3dd8 @0x30
0x3da8…3deb at0031 = ╱58╱X╱ // 0x3dd9 @0x31
0x3da8…3deb at0032 = ╱58╱X╱ // 0x3dda @0x32
0x3da8…3deb at0033 = ╱2c╱,╱ // 0x3ddb @0x33
0x3da8…3deb at0034 = ╱58╱X╱ // 0x3ddc @0x34
0x3da8…3deb at0035 = ╱58╱X╱ // 0x3ddd @0x35
0x3da8…3deb at0036 = ╱20╱…╱ // 0x3dde @0x36
0x3da8…3deb at0037 = ╱58╱X╱ // 0x3ddf @0x37
0x3da8…3deb at0038 = ╱58╱X╱ // 0x3de0 @0x38
0x3da8…3deb at0039 = ╱58╱X╱ // 0x3de1 @0x39
0x3da8…3deb at003a = ╱2e╱.╱ // 0x3de2 @0x3a
0x3da8…3deb at003b = ╱58╱X╱ // 0x3de3 @0x3b
0x3da8…3deb at003c = ╱58╱X╱ // 0x3de4 @0x3c
0x3da8…3deb at003d = ╱58╱X╱ // 0x3de5 @0x3d
0x3da8…3deb at003e = ╱2c╱,╱ // 0x3de6 @0x3e
0x3da8…3deb at003f = ╱58╱X╱ // 0x3de7 @0x3f
0x3da8…3deb at0040 = ╱58╱X╱ // 0x3de8 @0x40
0x3da8…3deb at0041 = ╱22╱"╱ // 0x3de9 @0x41
0x3da8…3deb at0042 = EOL // 0x3dea @0x42
0x3da8…3deb }
0x3deb…3df4 cb4b 6480 PRINT " "
0x3deb…3df4 LineComalBin {
0x3deb…3df4 ptr = 0xcb4b // 0x3deb @0x0
0x3deb…3df4 lno = 0x1950 // 0x3ded @0x2
0x3deb…3df4 at0004 = ╱92╱ PRINT ╱ // 0x3def @0x4
0x3deb…3df4 at0005 = ╱22╱"╱ // 0x3df0 @0x5
0x3deb…3df4 at0006 = ╱20╱…╱ // 0x3df1 @0x6
0x3deb…3df4 at0007 = ╱22╱"╱ // 0x3df2 @0x7
0x3deb…3df4 at0008 = EOL // 0x3df3 @0x8
0x3deb…3df4 }
0x3df4…3dfd cb54 6485 PRINT " "
0x3df4…3dfd LineComalBin {
0x3df4…3dfd ptr = 0xcb54 // 0x3df4 @0x0
0x3df4…3dfd lno = 0x1955 // 0x3df6 @0x2
0x3df4…3dfd at0004 = ╱92╱ PRINT ╱ // 0x3df8 @0x4
0x3df4…3dfd at0005 = ╱22╱"╱ // 0x3df9 @0x5
0x3df4…3dfd at0006 = ╱20╱…╱ // 0x3dfa @0x6
0x3df4…3dfd at0007 = ╱22╱"╱ // 0x3dfb @0x7
0x3df4…3dfd at0008 = EOL // 0x3dfc @0x8
0x3df4…3dfd }
0x3dfd…3e42 cb99 6490 PRINT TAB(11);"XX.XXX.XXX,XX XX.XXX.XXX,XX XX.XXX.XXX,XX ";
0x3dfd…3e42 LineComalBin {
0x3dfd…3e42 ptr = 0xcb99 // 0x3dfd @0x0
0x3dfd…3e42 lno = 0x195a // 0x3dff @0x2
0x3dfd…3e42 at0004 = ╱92╱ PRINT ╱ // 0x3e01 @0x4
0x3dfd…3e42 at0005 = ╱d2╱TAB╱ // 0x3e02 @0x5
0x3dfd…3e42 at0006 = ╱ed╱(╱ // 0x3e03 @0x6
0x3dfd…3e42 at0007 = ╱31╱1╱ // 0x3e04 @0x7
0x3dfd…3e42 at0008 = ╱31╱1╱ // 0x3e05 @0x8
0x3dfd…3e42 at0009 = ╱fe0000b004╱ // 0x3e06 @0x9
0x3dfd…3e42 at000e = ╱ee╱)╱ // 0x3e0b @0xe
0x3dfd…3e42 at000f = ╱eb╱;╱ // 0x3e0c @0xf
0x3dfd…3e42 at0010 = ╱22╱"╱ // 0x3e0d @0x10
0x3dfd…3e42 at0011 = ╱58╱X╱ // 0x3e0e @0x11
0x3dfd…3e42 at0012 = ╱58╱X╱ // 0x3e0f @0x12
0x3dfd…3e42 at0013 = ╱2e╱.╱ // 0x3e10 @0x13
0x3dfd…3e42 at0014 = ╱58╱X╱ // 0x3e11 @0x14
0x3dfd…3e42 at0015 = ╱58╱X╱ // 0x3e12 @0x15
0x3dfd…3e42 at0016 = ╱58╱X╱ // 0x3e13 @0x16
0x3dfd…3e42 at0017 = ╱2e╱.╱ // 0x3e14 @0x17
0x3dfd…3e42 at0018 = ╱58╱X╱ // 0x3e15 @0x18
0x3dfd…3e42 at0019 = ╱58╱X╱ // 0x3e16 @0x19
0x3dfd…3e42 at001a = ╱58╱X╱ // 0x3e17 @0x1a
0x3dfd…3e42 at001b = ╱2c╱,╱ // 0x3e18 @0x1b
0x3dfd…3e42 at001c = ╱58╱X╱ // 0x3e19 @0x1c
0x3dfd…3e42 at001d = ╱58╱X╱ // 0x3e1a @0x1d
0x3dfd…3e42 at001e = ╱20╱…╱ // 0x3e1b @0x1e
0x3dfd…3e42 at001f = ╱20╱…╱ // 0x3e1c @0x1f
0x3dfd…3e42 at0020 = ╱20╱…╱ // 0x3e1d @0x20
0x3dfd…3e42 at0021 = ╱58╱X╱ // 0x3e1e @0x21
0x3dfd…3e42 at0022 = ╱58╱X╱ // 0x3e1f @0x22
0x3dfd…3e42 at0023 = ╱2e╱.╱ // 0x3e20 @0x23
0x3dfd…3e42 at0024 = ╱58╱X╱ // 0x3e21 @0x24
0x3dfd…3e42 at0025 = ╱58╱X╱ // 0x3e22 @0x25
0x3dfd…3e42 at0026 = ╱58╱X╱ // 0x3e23 @0x26
0x3dfd…3e42 at0027 = ╱2e╱.╱ // 0x3e24 @0x27
0x3dfd…3e42 at0028 = ╱58╱X╱ // 0x3e25 @0x28
0x3dfd…3e42 at0029 = ╱58╱X╱ // 0x3e26 @0x29
0x3dfd…3e42 at002a = ╱58╱X╱ // 0x3e27 @0x2a
0x3dfd…3e42 at002b = ╱2c╱,╱ // 0x3e28 @0x2b
0x3dfd…3e42 at002c = ╱58╱X╱ // 0x3e29 @0x2c
0x3dfd…3e42 at002d = ╱58╱X╱ // 0x3e2a @0x2d
0x3dfd…3e42 at002e = ╱20╱…╱ // 0x3e2b @0x2e
0x3dfd…3e42 at002f = ╱20╱…╱ // 0x3e2c @0x2f
0x3dfd…3e42 at0030 = ╱20╱…╱ // 0x3e2d @0x30
0x3dfd…3e42 at0031 = ╱20╱…╱ // 0x3e2e @0x31
0x3dfd…3e42 at0032 = ╱58╱X╱ // 0x3e2f @0x32
0x3dfd…3e42 at0033 = ╱58╱X╱ // 0x3e30 @0x33
0x3dfd…3e42 at0034 = ╱2e╱.╱ // 0x3e31 @0x34
0x3dfd…3e42 at0035 = ╱58╱X╱ // 0x3e32 @0x35
0x3dfd…3e42 at0036 = ╱58╱X╱ // 0x3e33 @0x36
0x3dfd…3e42 at0037 = ╱58╱X╱ // 0x3e34 @0x37
0x3dfd…3e42 at0038 = ╱2e╱.╱ // 0x3e35 @0x38
0x3dfd…3e42 at0039 = ╱58╱X╱ // 0x3e36 @0x39
0x3dfd…3e42 at003a = ╱58╱X╱ // 0x3e37 @0x3a
0x3dfd…3e42 at003b = ╱58╱X╱ // 0x3e38 @0x3b
0x3dfd…3e42 at003c = ╱2c╱,╱ // 0x3e39 @0x3c
0x3dfd…3e42 at003d = ╱58╱X╱ // 0x3e3a @0x3d
0x3dfd…3e42 at003e = ╱58╱X╱ // 0x3e3b @0x3e
0x3dfd…3e42 at003f = ╱20╱…╱ // 0x3e3c @0x3f
0x3dfd…3e42 at0040 = ╱20╱…╱ // 0x3e3d @0x40
0x3dfd…3e42 at0041 = ╱20╱…╱ // 0x3e3e @0x41
0x3dfd…3e42 at0042 = ╱22╱"╱ // 0x3e3f @0x42
0x3dfd…3e42 at0043 = ╱eb╱;╱ // 0x3e40 @0x43
0x3dfd…3e42 at0044 = EOL // 0x3e41 @0x44
0x3dfd…3e42 }
0x3e42…3e57 cbae 6500 PRINT "XX.XXX.XXX,XX"
0x3e42…3e57 LineComalBin {
0x3e42…3e57 ptr = 0xcbae // 0x3e42 @0x0
0x3e42…3e57 lno = 0x1964 // 0x3e44 @0x2
0x3e42…3e57 at0004 = ╱92╱ PRINT ╱ // 0x3e46 @0x4
0x3e42…3e57 at0005 = ╱22╱"╱ // 0x3e47 @0x5
0x3e42…3e57 at0006 = ╱58╱X╱ // 0x3e48 @0x6
0x3e42…3e57 at0007 = ╱58╱X╱ // 0x3e49 @0x7
0x3e42…3e57 at0008 = ╱2e╱.╱ // 0x3e4a @0x8
0x3e42…3e57 at0009 = ╱58╱X╱ // 0x3e4b @0x9
0x3e42…3e57 at000a = ╱58╱X╱ // 0x3e4c @0xa
0x3e42…3e57 at000b = ╱58╱X╱ // 0x3e4d @0xb
0x3e42…3e57 at000c = ╱2e╱.╱ // 0x3e4e @0xc
0x3e42…3e57 at000d = ╱58╱X╱ // 0x3e4f @0xd
0x3e42…3e57 at000e = ╱58╱X╱ // 0x3e50 @0xe
0x3e42…3e57 at000f = ╱58╱X╱ // 0x3e51 @0xf
0x3e42…3e57 at0010 = ╱2c╱,╱ // 0x3e52 @0x10
0x3e42…3e57 at0011 = ╱58╱X╱ // 0x3e53 @0x11
0x3e42…3e57 at0012 = ╱58╱X╱ // 0x3e54 @0x12
0x3e42…3e57 at0013 = ╱22╱"╱ // 0x3e55 @0x13
0x3e42…3e57 at0014 = EOL // 0x3e56 @0x14
0x3e42…3e57 }
0x3e57…3e93 cbea 6510 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x3e57…3e93 LineComalBin {
0x3e57…3e93 ptr = 0xcbea // 0x3e57 @0x0
0x3e57…3e93 lno = 0x196e // 0x3e59 @0x2
0x3e57…3e93 at0004 = ╱92╱ PRINT ╱ // 0x3e5b @0x4
0x3e57…3e93 at0005 = ╱cf╱CHR╱ // 0x3e5c @0x5
0x3e57…3e93 at0006 = ╱ed╱(╱ // 0x3e5d @0x6
0x3e57…3e93 at0007 = ╱31╱1╱ // 0x3e5e @0x7
0x3e57…3e93 at0008 = ╱30╱0╱ // 0x3e5f @0x8
0x3e57…3e93 at0009 = ╱fe0000a004╱ // 0x3e60 @0x9
0x3e57…3e93 at000e = ╱ee╱)╱ // 0x3e65 @0xe
0x3e57…3e93 at000f = ╱eb╱;╱ // 0x3e66 @0xf
0x3e57…3e93 at0010 = ╱cf╱CHR╱ // 0x3e67 @0x10
0x3e57…3e93 at0011 = ╱ed╱(╱ // 0x3e68 @0x11
0x3e57…3e93 at0012 = ╱31╱1╱ // 0x3e69 @0x12
0x3e57…3e93 at0013 = ╱30╱0╱ // 0x3e6a @0x13
0x3e57…3e93 at0014 = ╱fe0000a004╱ // 0x3e6b @0x14
0x3e57…3e93 at0019 = ╱ee╱)╱ // 0x3e70 @0x19
0x3e57…3e93 at001a = ╱eb╱;╱ // 0x3e71 @0x1a
0x3e57…3e93 at001b = ╱cf╱CHR╱ // 0x3e72 @0x1b
0x3e57…3e93 at001c = ╱ed╱(╱ // 0x3e73 @0x1c
0x3e57…3e93 at001d = ╱31╱1╱ // 0x3e74 @0x1d
0x3e57…3e93 at001e = ╱30╱0╱ // 0x3e75 @0x1e
0x3e57…3e93 at001f = ╱fe0000a004╱ // 0x3e76 @0x1f
0x3e57…3e93 at0024 = ╱ee╱)╱ // 0x3e7b @0x24
0x3e57…3e93 at0025 = ╱eb╱;╱ // 0x3e7c @0x25
0x3e57…3e93 at0026 = ╱cf╱CHR╱ // 0x3e7d @0x26
0x3e57…3e93 at0027 = ╱ed╱(╱ // 0x3e7e @0x27
0x3e57…3e93 at0028 = ╱31╱1╱ // 0x3e7f @0x28
0x3e57…3e93 at0029 = ╱30╱0╱ // 0x3e80 @0x29
0x3e57…3e93 at002a = ╱fe0000a004╱ // 0x3e81 @0x2a
0x3e57…3e93 at002f = ╱ee╱)╱ // 0x3e86 @0x2f
0x3e57…3e93 at0030 = ╱eb╱;╱ // 0x3e87 @0x30
0x3e57…3e93 at0031 = ╱cf╱CHR╱ // 0x3e88 @0x31
0x3e57…3e93 at0032 = ╱ed╱(╱ // 0x3e89 @0x32
0x3e57…3e93 at0033 = ╱31╱1╱ // 0x3e8a @0x33
0x3e57…3e93 at0034 = ╱30╱0╱ // 0x3e8b @0x34
0x3e57…3e93 at0035 = ╱fe0000a004╱ // 0x3e8c @0x35
0x3e57…3e93 at003a = ╱ee╱)╱ // 0x3e91 @0x3a
0x3e57…3e93 at003b = EOL // 0x3e92 @0x3b
0x3e57…3e93 }
0x3e93…3e9a cbf1 6520 OUTPUT T
0x3e93…3e9a LineComalBin {
0x3e93…3e9a ptr = 0xcbf1 // 0x3e93 @0x0
0x3e93…3e9a lno = 0x1978 // 0x3e95 @0x2
0x3e93…3e9a at0004 = ╱a5╱ OUTPUT ╱ // 0x3e97 @0x4
0x3e93…3e9a at0005 = ╱54╱T╱ // 0x3e98 @0x5
0x3e93…3e9a at0006 = EOL // 0x3e99 @0x6
0x3e93…3e9a }
0x3e9a…3ed4 cc2b 6530 EXEC INDPUT1(4,12,-9,-6,LTX$(7))
0x3e9a…3ed4 LineComalBin {
0x3e9a…3ed4 ptr = 0xcc2b // 0x3e9a @0x0
0x3e9a…3ed4 lno = 0x1982 // 0x3e9c @0x2
0x3e9a…3ed4 at0004 = ╱9d╱ EXEC ╱ // 0x3e9e @0x4
0x3e9a…3ed4 at0005 = ╱49╱I╱ // 0x3e9f @0x5
0x3e9a…3ed4 at0006 = ╱4e╱N╱ // 0x3ea0 @0x6
0x3e9a…3ed4 at0007 = ╱44╱D╱ // 0x3ea1 @0x7
0x3e9a…3ed4 at0008 = ╱50╱P╱ // 0x3ea2 @0x8
0x3e9a…3ed4 at0009 = ╱55╱U╱ // 0x3ea3 @0x9
0x3e9a…3ed4 at000a = ╱54╱T╱ // 0x3ea4 @0xa
0x3e9a…3ed4 at000b = ╱31╱1╱ // 0x3ea5 @0xb
0x3e9a…3ed4 at000c = ╱ed╱(╱ // 0x3ea6 @0xc
0x3e9a…3ed4 at000d = ╱34╱4╱ // 0x3ea7 @0xd
0x3e9a…3ed4 at000e = ╱fe00008003╱ // 0x3ea8 @0xe
0x3e9a…3ed4 at0013 = ╱ec╱,╱ // 0x3ead @0x13
0x3e9a…3ed4 at0014 = ╱31╱1╱ // 0x3eae @0x14
0x3e9a…3ed4 at0015 = ╱32╱2╱ // 0x3eaf @0x15
0x3e9a…3ed4 at0016 = ╱fe0000c004╱ // 0x3eb0 @0x16
0x3e9a…3ed4 at001b = ╱ec╱,╱ // 0x3eb5 @0x1b
0x3e9a…3ed4 at001c = ╱e9╱-╱ // 0x3eb6 @0x1c
0x3e9a…3ed4 at001d = ╱39╱9╱ // 0x3eb7 @0x1d
0x3e9a…3ed4 at001e = ╱fe00009004╱ // 0x3eb8 @0x1e
0x3e9a…3ed4 at0023 = ╱ec╱,╱ // 0x3ebd @0x23
0x3e9a…3ed4 at0024 = ╱e9╱-╱ // 0x3ebe @0x24
0x3e9a…3ed4 at0025 = ╱36╱6╱ // 0x3ebf @0x25
0x3e9a…3ed4 at0026 = ╱fe0000c003╱ // 0x3ec0 @0x26
0x3e9a…3ed4 at002b = ╱ec╱,╱ // 0x3ec5 @0x2b
0x3e9a…3ed4 at002c = ╱4c╱L╱ // 0x3ec6 @0x2c
0x3e9a…3ed4 at002d = ╱54╱T╱ // 0x3ec7 @0x2d
0x3e9a…3ed4 at002e = ╱58╱X╱ // 0x3ec8 @0x2e
0x3e9a…3ed4 at002f = ╱ef╱$╱ // 0x3ec9 @0x2f
0x3e9a…3ed4 at0030 = ╱ed╱(╱ // 0x3eca @0x30
0x3e9a…3ed4 at0031 = ╱37╱7╱ // 0x3ecb @0x31
0x3e9a…3ed4 at0032 = ╱fe0000e003╱ // 0x3ecc @0x32
0x3e9a…3ed4 at0037 = ╱ee╱)╱ // 0x3ed1 @0x37
0x3e9a…3ed4 at0038 = ╱ee╱)╱ // 0x3ed2 @0x38
0x3e9a…3ed4 at0039 = EOL // 0x3ed3 @0x39
0x3e9a…3ed4 }
0x3ed4…3ee3 cc3a 6540 UNTIL P=-8
0x3ed4…3ee3 LineComalBin {
0x3ed4…3ee3 ptr = 0xcc3a // 0x3ed4 @0x0
0x3ed4…3ee3 lno = 0x198c // 0x3ed6 @0x2
0x3ed4…3ee3 at0004 = ╱98╱ UNTIL ╱ // 0x3ed8 @0x4
0x3ed4…3ee3 at0005 = ╱50╱P╱ // 0x3ed9 @0x5
0x3ed4…3ee3 at0006 = ╱dc╱=╱ // 0x3eda @0x6
0x3ed4…3ee3 at0007 = ╱e9╱-╱ // 0x3edb @0x7
0x3ed4…3ee3 at0008 = ╱38╱8╱ // 0x3edc @0x8
0x3ed4…3ee3 at0009 = ╱fe00008004╱ // 0x3edd @0x9
0x3ed4…3ee3 at000e = EOL // 0x3ee2 @0xe
0x3ed4…3ee3 }
0x3ee3…3ee9 cc40 6550 ELSE
0x3ee3…3ee9 LineComalBin {
0x3ee3…3ee9 ptr = 0xcc40 // 0x3ee3 @0x0
0x3ee3…3ee9 lno = 0x1996 // 0x3ee5 @0x2
0x3ee3…3ee9 at0004 = ╱9a╱ ELSE ╱ // 0x3ee7 @0x4
0x3ee3…3ee9 at0005 = EOL // 0x3ee8 @0x5
0x3ee3…3ee9 }
0x3ee9…3f22 cc79 6560 EXEC INDPUT1(4,10,-2,0,LTX$(8))
0x3ee9…3f22 LineComalBin {
0x3ee9…3f22 ptr = 0xcc79 // 0x3ee9 @0x0
0x3ee9…3f22 lno = 0x19a0 // 0x3eeb @0x2
0x3ee9…3f22 at0004 = ╱9d╱ EXEC ╱ // 0x3eed @0x4
0x3ee9…3f22 at0005 = ╱49╱I╱ // 0x3eee @0x5
0x3ee9…3f22 at0006 = ╱4e╱N╱ // 0x3eef @0x6
0x3ee9…3f22 at0007 = ╱44╱D╱ // 0x3ef0 @0x7
0x3ee9…3f22 at0008 = ╱50╱P╱ // 0x3ef1 @0x8
0x3ee9…3f22 at0009 = ╱55╱U╱ // 0x3ef2 @0x9
0x3ee9…3f22 at000a = ╱54╱T╱ // 0x3ef3 @0xa
0x3ee9…3f22 at000b = ╱31╱1╱ // 0x3ef4 @0xb
0x3ee9…3f22 at000c = ╱ed╱(╱ // 0x3ef5 @0xc
0x3ee9…3f22 at000d = ╱34╱4╱ // 0x3ef6 @0xd
0x3ee9…3f22 at000e = ╱fe00008003╱ // 0x3ef7 @0xe
0x3ee9…3f22 at0013 = ╱ec╱,╱ // 0x3efc @0x13
0x3ee9…3f22 at0014 = ╱31╱1╱ // 0x3efd @0x14
0x3ee9…3f22 at0015 = ╱30╱0╱ // 0x3efe @0x15
0x3ee9…3f22 at0016 = ╱fe0000a004╱ // 0x3eff @0x16
0x3ee9…3f22 at001b = ╱ec╱,╱ // 0x3f04 @0x1b
0x3ee9…3f22 at001c = ╱e9╱-╱ // 0x3f05 @0x1c
0x3ee9…3f22 at001d = ╱32╱2╱ // 0x3f06 @0x1d
0x3ee9…3f22 at001e = ╱fe00008002╱ // 0x3f07 @0x1e
0x3ee9…3f22 at0023 = ╱ec╱,╱ // 0x3f0c @0x23
0x3ee9…3f22 at0024 = ╱30╱0╱ // 0x3f0d @0x24
0x3ee9…3f22 at0025 = ╱fe00000000╱ // 0x3f0e @0x25
0x3ee9…3f22 at002a = ╱ec╱,╱ // 0x3f13 @0x2a
0x3ee9…3f22 at002b = ╱4c╱L╱ // 0x3f14 @0x2b
0x3ee9…3f22 at002c = ╱54╱T╱ // 0x3f15 @0x2c
0x3ee9…3f22 at002d = ╱58╱X╱ // 0x3f16 @0x2d
0x3ee9…3f22 at002e = ╱ef╱$╱ // 0x3f17 @0x2e
0x3ee9…3f22 at002f = ╱ed╱(╱ // 0x3f18 @0x2f
0x3ee9…3f22 at0030 = ╱38╱8╱ // 0x3f19 @0x30
0x3ee9…3f22 at0031 = ╱fe00008004╱ // 0x3f1a @0x31
0x3ee9…3f22 at0036 = ╱ee╱)╱ // 0x3f1f @0x36
0x3ee9…3f22 at0037 = ╱ee╱)╱ // 0x3f20 @0x37
0x3ee9…3f22 at0038 = EOL // 0x3f21 @0x38
0x3ee9…3f22 }
0x3f22…3f2f cc86 6570 SKRIV1=B
0x3f22…3f2f LineComalBin {
0x3f22…3f2f ptr = 0xcc86 // 0x3f22 @0x0
0x3f22…3f2f lno = 0x19aa // 0x3f24 @0x2
0x3f22…3f2f at0004 = ╱53╱S╱ // 0x3f26 @0x4
0x3f22…3f2f at0005 = ╱4b╱K╱ // 0x3f27 @0x5
0x3f22…3f2f at0006 = ╱52╱R╱ // 0x3f28 @0x6
0x3f22…3f2f at0007 = ╱49╱I╱ // 0x3f29 @0x7
0x3f22…3f2f at0008 = ╱56╱V╱ // 0x3f2a @0x8
0x3f22…3f2f at0009 = ╱31╱1╱ // 0x3f2b @0x9
0x3f22…3f2f at000a = ╱dc╱=╱ // 0x3f2c @0xa
0x3f22…3f2f at000b = ╱42╱B╱ // 0x3f2d @0xb
0x3f22…3f2f at000c = EOL // 0x3f2e @0xc
0x3f22…3f2f }
0x3f2f…3f35 cc8c 6580 ENDIF
0x3f2f…3f35 LineComalBin {
0x3f2f…3f35 ptr = 0xcc8c // 0x3f2f @0x0
0x3f2f…3f35 lno = 0x19b4 // 0x3f31 @0x2
0x3f2f…3f35 at0004 = ╱9b╱ ENDIF ╱ // 0x3f33 @0x4
0x3f2f…3f35 at0005 = EOL // 0x3f34 @0x5
0x3f2f…3f35 }
0x3f35…3f4d cca4 6590 SKRIV=E;LINIE=B;T=E
0x3f35…3f4d LineComalBin {
0x3f35…3f4d ptr = 0xcca4 // 0x3f35 @0x0
0x3f35…3f4d lno = 0x19be // 0x3f37 @0x2
0x3f35…3f4d at0004 = ╱53╱S╱ // 0x3f39 @0x4
0x3f35…3f4d at0005 = ╱4b╱K╱ // 0x3f3a @0x5
0x3f35…3f4d at0006 = ╱52╱R╱ // 0x3f3b @0x6
0x3f35…3f4d at0007 = ╱49╱I╱ // 0x3f3c @0x7
0x3f35…3f4d at0008 = ╱56╱V╱ // 0x3f3d @0x8
0x3f35…3f4d at0009 = ╱dc╱=╱ // 0x3f3e @0x9
0x3f35…3f4d at000a = ╱45╱E╱ // 0x3f3f @0xa
0x3f35…3f4d at000b = ╱eb╱;╱ // 0x3f40 @0xb
0x3f35…3f4d at000c = ╱4c╱L╱ // 0x3f41 @0xc
0x3f35…3f4d at000d = ╱49╱I╱ // 0x3f42 @0xd
0x3f35…3f4d at000e = ╱4e╱N╱ // 0x3f43 @0xe
0x3f35…3f4d at000f = ╱49╱I╱ // 0x3f44 @0xf
0x3f35…3f4d at0010 = ╱45╱E╱ // 0x3f45 @0x10
0x3f35…3f4d at0011 = ╱dc╱=╱ // 0x3f46 @0x11
0x3f35…3f4d at0012 = ╱42╱B╱ // 0x3f47 @0x12
0x3f35…3f4d at0013 = ╱eb╱;╱ // 0x3f48 @0x13
0x3f35…3f4d at0014 = ╱54╱T╱ // 0x3f49 @0x14
0x3f35…3f4d at0015 = ╱dc╱=╱ // 0x3f4a @0x15
0x3f35…3f4d at0016 = ╱45╱E╱ // 0x3f4b @0x16
0x3f35…3f4d at0017 = EOL // 0x3f4c @0x17
0x3f35…3f4d }
0x3f4d…3f66 ccbd 6610 EXEC MKONTUD(K9$,MDPOST)
0x3f4d…3f66 LineComalBin {
0x3f4d…3f66 ptr = 0xccbd // 0x3f4d @0x0
0x3f4d…3f66 lno = 0x19d2 // 0x3f4f @0x2
0x3f4d…3f66 at0004 = ╱9d╱ EXEC ╱ // 0x3f51 @0x4
0x3f4d…3f66 at0005 = ╱4d╱M╱ // 0x3f52 @0x5
0x3f4d…3f66 at0006 = ╱4b╱K╱ // 0x3f53 @0x6
0x3f4d…3f66 at0007 = ╱4f╱O╱ // 0x3f54 @0x7
0x3f4d…3f66 at0008 = ╱4e╱N╱ // 0x3f55 @0x8
0x3f4d…3f66 at0009 = ╱54╱T╱ // 0x3f56 @0x9
0x3f4d…3f66 at000a = ╱55╱U╱ // 0x3f57 @0xa
0x3f4d…3f66 at000b = ╱44╱D╱ // 0x3f58 @0xb
0x3f4d…3f66 at000c = ╱ed╱(╱ // 0x3f59 @0xc
0x3f4d…3f66 at000d = ╱4b╱K╱ // 0x3f5a @0xd
0x3f4d…3f66 at000e = ╱39╱9╱ // 0x3f5b @0xe
0x3f4d…3f66 at000f = ╱ef╱$╱ // 0x3f5c @0xf
0x3f4d…3f66 at0010 = ╱ec╱,╱ // 0x3f5d @0x10
0x3f4d…3f66 at0011 = ╱4d╱M╱ // 0x3f5e @0x11
0x3f4d…3f66 at0012 = ╱44╱D╱ // 0x3f5f @0x12
0x3f4d…3f66 at0013 = ╱50╱P╱ // 0x3f60 @0x13
0x3f4d…3f66 at0014 = ╱4f╱O╱ // 0x3f61 @0x14
0x3f4d…3f66 at0015 = ╱53╱S╱ // 0x3f62 @0x15
0x3f4d…3f66 at0016 = ╱54╱T╱ // 0x3f63 @0x16
0x3f4d…3f66 at0017 = ╱ee╱)╱ // 0x3f64 @0x17
0x3f4d…3f66 at0018 = EOL // 0x3f65 @0x18
0x3f4d…3f66 }
0x3f66…3f77 ccce 6620 KTAL1=DTAL-E
0x3f66…3f77 LineComalBin {
0x3f66…3f77 ptr = 0xccce // 0x3f66 @0x0
0x3f66…3f77 lno = 0x19dc // 0x3f68 @0x2
0x3f66…3f77 at0004 = ╱4b╱K╱ // 0x3f6a @0x4
0x3f66…3f77 at0005 = ╱54╱T╱ // 0x3f6b @0x5
0x3f66…3f77 at0006 = ╱41╱A╱ // 0x3f6c @0x6
0x3f66…3f77 at0007 = ╱4c╱L╱ // 0x3f6d @0x7
0x3f66…3f77 at0008 = ╱31╱1╱ // 0x3f6e @0x8
0x3f66…3f77 at0009 = ╱dc╱=╱ // 0x3f6f @0x9
0x3f66…3f77 at000a = ╱44╱D╱ // 0x3f70 @0xa
0x3f66…3f77 at000b = ╱54╱T╱ // 0x3f71 @0xb
0x3f66…3f77 at000c = ╱41╱A╱ // 0x3f72 @0xc
0x3f66…3f77 at000d = ╱4c╱L╱ // 0x3f73 @0xd
0x3f66…3f77 at000e = ╱e3╱-╱ // 0x3f74 @0xe
0x3f66…3f77 at000f = ╱45╱E╱ // 0x3f75 @0xf
0x3f66…3f77 at0010 = EOL // 0x3f76 @0x10
0x3f66…3f77 }
0x3f77…3f86 (211,) ccdd 6630 IF SKRIV1=E THEN
0x3f77…3f86 LineComalBin {
0x3f77…3f86 ptr = 0xccdd // 0x3f77 @0x0
0x3f77…3f86 lno = 0x19e6 // 0x3f79 @0x2
0x3f77…3f86 at0004 = ╱9c╱ IF ╱ // 0x3f7b @0x4
0x3f77…3f86 at0005 = ╱53╱S╱ // 0x3f7c @0x5
0x3f77…3f86 at0006 = ╱4b╱K╱ // 0x3f7d @0x6
0x3f77…3f86 at0007 = ╱52╱R╱ // 0x3f7e @0x7
0x3f77…3f86 at0008 = ╱49╱I╱ // 0x3f7f @0x8
0x3f77…3f86 at0009 = ╱56╱V╱ // 0x3f80 @0x9
0x3f77…3f86 at000a = ╱31╱1╱ // 0x3f81 @0xa
0x3f77…3f86 at000b = ╱dc╱=╱ // 0x3f82 @0xb
0x3f77…3f86 at000c = ╱45╱E╱ // 0x3f83 @0xc
0x3f77…3f86 at000d = ╱b6╱ THEN ╱ // 0x3f84 @0xd
0x3f77…3f86 at000e = EOL // 0x3f85 @0xe
0x3f77…3f86 }
0x3f86…3f93 ccea 6640 SKRIV1=B
0x3f86…3f93 LineComalBin {
0x3f86…3f93 ptr = 0xccea // 0x3f86 @0x0
0x3f86…3f93 lno = 0x19f0 // 0x3f88 @0x2
0x3f86…3f93 at0004 = ╱53╱S╱ // 0x3f8a @0x4
0x3f86…3f93 at0005 = ╱4b╱K╱ // 0x3f8b @0x5
0x3f86…3f93 at0006 = ╱52╱R╱ // 0x3f8c @0x6
0x3f86…3f93 at0007 = ╱49╱I╱ // 0x3f8d @0x7
0x3f86…3f93 at0008 = ╱56╱V╱ // 0x3f8e @0x8
0x3f86…3f93 at0009 = ╱31╱1╱ // 0x3f8f @0x9
0x3f86…3f93 at000a = ╱dc╱=╱ // 0x3f90 @0xa
0x3f86…3f93 at000b = ╱42╱B╱ // 0x3f91 @0xb
0x3f86…3f93 at000c = EOL // 0x3f92 @0xc
0x3f86…3f93 }
0x3f93…3f9a ccf1 6650 OUTPUT T
0x3f93…3f9a LineComalBin {
0x3f93…3f9a ptr = 0xccf1 // 0x3f93 @0x0
0x3f93…3f9a lno = 0x19fa // 0x3f95 @0x2
0x3f93…3f9a at0004 = ╱a5╱ OUTPUT ╱ // 0x3f97 @0x4
0x3f93…3f9a at0005 = ╱54╱T╱ // 0x3f98 @0x5
0x3f93…3f9a at0006 = EOL // 0x3f99 @0x6
0x3f93…3f9a }
0x3f9a…3fa0 ccf7 6660 CLEAR
0x3f9a…3fa0 LineComalBin {
0x3f9a…3fa0 ptr = 0xccf7 // 0x3f9a @0x0
0x3f9a…3fa0 lno = 0x1a04 // 0x3f9c @0x2
0x3f9a…3fa0 at0004 = ╱a0╱ CLEAR ╱ // 0x3f9e @0x4
0x3f9a…3fa0 at0005 = EOL // 0x3f9f @0x5
0x3f9a…3fa0 }
0x3fa0…3fdb cd32 6670 EXEC INDPUT1(20,13,-2,0,LTX$(11))
0x3fa0…3fdb LineComalBin {
0x3fa0…3fdb ptr = 0xcd32 // 0x3fa0 @0x0
0x3fa0…3fdb lno = 0x1a0e // 0x3fa2 @0x2
0x3fa0…3fdb at0004 = ╱9d╱ EXEC ╱ // 0x3fa4 @0x4
0x3fa0…3fdb at0005 = ╱49╱I╱ // 0x3fa5 @0x5
0x3fa0…3fdb at0006 = ╱4e╱N╱ // 0x3fa6 @0x6
0x3fa0…3fdb at0007 = ╱44╱D╱ // 0x3fa7 @0x7
0x3fa0…3fdb at0008 = ╱50╱P╱ // 0x3fa8 @0x8
0x3fa0…3fdb at0009 = ╱55╱U╱ // 0x3fa9 @0x9
0x3fa0…3fdb at000a = ╱54╱T╱ // 0x3faa @0xa
0x3fa0…3fdb at000b = ╱31╱1╱ // 0x3fab @0xb
0x3fa0…3fdb at000c = ╱ed╱(╱ // 0x3fac @0xc
0x3fa0…3fdb at000d = ╱32╱2╱ // 0x3fad @0xd
0x3fa0…3fdb at000e = ╱30╱0╱ // 0x3fae @0xe
0x3fa0…3fdb at000f = ╱fe0000a005╱ // 0x3faf @0xf
0x3fa0…3fdb at0014 = ╱ec╱,╱ // 0x3fb4 @0x14
0x3fa0…3fdb at0015 = ╱31╱1╱ // 0x3fb5 @0x15
0x3fa0…3fdb at0016 = ╱33╱3╱ // 0x3fb6 @0x16
0x3fa0…3fdb at0017 = ╱fe0000d004╱ // 0x3fb7 @0x17
0x3fa0…3fdb at001c = ╱ec╱,╱ // 0x3fbc @0x1c
0x3fa0…3fdb at001d = ╱e9╱-╱ // 0x3fbd @0x1d
0x3fa0…3fdb at001e = ╱32╱2╱ // 0x3fbe @0x1e
0x3fa0…3fdb at001f = ╱fe00008002╱ // 0x3fbf @0x1f
0x3fa0…3fdb at0024 = ╱ec╱,╱ // 0x3fc4 @0x24
0x3fa0…3fdb at0025 = ╱30╱0╱ // 0x3fc5 @0x25
0x3fa0…3fdb at0026 = ╱fe00000000╱ // 0x3fc6 @0x26
0x3fa0…3fdb at002b = ╱ec╱,╱ // 0x3fcb @0x2b
0x3fa0…3fdb at002c = ╱4c╱L╱ // 0x3fcc @0x2c
0x3fa0…3fdb at002d = ╱54╱T╱ // 0x3fcd @0x2d
0x3fa0…3fdb at002e = ╱58╱X╱ // 0x3fce @0x2e
0x3fa0…3fdb at002f = ╱ef╱$╱ // 0x3fcf @0x2f
0x3fa0…3fdb at0030 = ╱ed╱(╱ // 0x3fd0 @0x30
0x3fa0…3fdb at0031 = ╱31╱1╱ // 0x3fd1 @0x31
0x3fa0…3fdb at0032 = ╱31╱1╱ // 0x3fd2 @0x32
0x3fa0…3fdb at0033 = ╱fe0000b004╱ // 0x3fd3 @0x33
0x3fa0…3fdb at0038 = ╱ee╱)╱ // 0x3fd8 @0x38
0x3fa0…3fdb at0039 = ╱ee╱)╱ // 0x3fd9 @0x39
0x3fa0…3fdb at003a = EOL // 0x3fda @0x3a
0x3fa0…3fdb }
0x3fdb…3fe1 cd38 6680 ENDIF
0x3fdb…3fe1 LineComalBin {
0x3fdb…3fe1 ptr = 0xcd38 // 0x3fdb @0x0
0x3fdb…3fe1 lno = 0x1a18 // 0x3fdd @0x2
0x3fdb…3fe1 at0004 = ╱9b╱ ENDIF ╱ // 0x3fdf @0x4
0x3fdb…3fe1 at0005 = EOL // 0x3fe0 @0x5
0x3fdb…3fe1 }
0x3fe1…3ffa cd51 6690 EXEC MKONTUD(K8$,MFPOST)
0x3fe1…3ffa LineComalBin {
0x3fe1…3ffa ptr = 0xcd51 // 0x3fe1 @0x0
0x3fe1…3ffa lno = 0x1a22 // 0x3fe3 @0x2
0x3fe1…3ffa at0004 = ╱9d╱ EXEC ╱ // 0x3fe5 @0x4
0x3fe1…3ffa at0005 = ╱4d╱M╱ // 0x3fe6 @0x5
0x3fe1…3ffa at0006 = ╱4b╱K╱ // 0x3fe7 @0x6
0x3fe1…3ffa at0007 = ╱4f╱O╱ // 0x3fe8 @0x7
0x3fe1…3ffa at0008 = ╱4e╱N╱ // 0x3fe9 @0x8
0x3fe1…3ffa at0009 = ╱54╱T╱ // 0x3fea @0x9
0x3fe1…3ffa at000a = ╱55╱U╱ // 0x3feb @0xa
0x3fe1…3ffa at000b = ╱44╱D╱ // 0x3fec @0xb
0x3fe1…3ffa at000c = ╱ed╱(╱ // 0x3fed @0xc
0x3fe1…3ffa at000d = ╱4b╱K╱ // 0x3fee @0xd
0x3fe1…3ffa at000e = ╱38╱8╱ // 0x3fef @0xe
0x3fe1…3ffa at000f = ╱ef╱$╱ // 0x3ff0 @0xf
0x3fe1…3ffa at0010 = ╱ec╱,╱ // 0x3ff1 @0x10
0x3fe1…3ffa at0011 = ╱4d╱M╱ // 0x3ff2 @0x11
0x3fe1…3ffa at0012 = ╱46╱F╱ // 0x3ff3 @0x12
0x3fe1…3ffa at0013 = ╱50╱P╱ // 0x3ff4 @0x13
0x3fe1…3ffa at0014 = ╱4f╱O╱ // 0x3ff5 @0x14
0x3fe1…3ffa at0015 = ╱53╱S╱ // 0x3ff6 @0x15
0x3fe1…3ffa at0016 = ╱54╱T╱ // 0x3ff7 @0x16
0x3fe1…3ffa at0017 = ╱ee╱)╱ // 0x3ff8 @0x17
0x3fe1…3ffa at0018 = EOL // 0x3ff9 @0x18
0x3fe1…3ffa }
0x3ffa…400a cd61 6700 KTAL1=KRTAL
0x3ffa…400a LineComalBin {
0x3ffa…400a ptr = 0xcd61 // 0x3ffa @0x0
0x3ffa…400a lno = 0x1a2c // 0x3ffc @0x2
0x3ffa…400a at0004 = ╱4b╱K╱ // 0x3ffe @0x4
0x3ffa…400a at0005 = ╱54╱T╱ // 0x3fff @0x5
0x3ffa…400a at0006 = ╱41╱A╱ // 0x4000 @0x6
0x3ffa…400a at0007 = ╱4c╱L╱ // 0x4001 @0x7
0x3ffa…400a at0008 = ╱31╱1╱ // 0x4002 @0x8
0x3ffa…400a at0009 = ╱dc╱=╱ // 0x4003 @0x9
0x3ffa…400a at000a = ╱4b╱K╱ // 0x4004 @0xa
0x3ffa…400a at000b = ╱52╱R╱ // 0x4005 @0xb
0x3ffa…400a at000c = ╱54╱T╱ // 0x4006 @0xc
0x3ffa…400a at000d = ╱41╱A╱ // 0x4007 @0xd
0x3ffa…400a at000e = ╱4c╱L╱ // 0x4008 @0xe
0x3ffa…400a at000f = EOL // 0x4009 @0xf
0x3ffa…400a }
0x400a…4011 cd68 6705 OUTPUT T
0x400a…4011 LineComalBin {
0x400a…4011 ptr = 0xcd68 // 0x400a @0x0
0x400a…4011 lno = 0x1a31 // 0x400c @0x2
0x400a…4011 at0004 = ╱a5╱ OUTPUT ╱ // 0x400e @0x4
0x400a…4011 at0005 = ╱54╱T╱ // 0x400f @0x5
0x400a…4011 at0006 = EOL // 0x4010 @0x6
0x400a…4011 }
0x4011…402b (213,) cd82 6710 EXEC MKONTUD(K10$,MKPOST)
0x4011…402b LineComalBin {
0x4011…402b ptr = 0xcd82 // 0x4011 @0x0
0x4011…402b lno = 0x1a36 // 0x4013 @0x2
0x4011…402b at0004 = ╱9d╱ EXEC ╱ // 0x4015 @0x4
0x4011…402b at0005 = ╱4d╱M╱ // 0x4016 @0x5
0x4011…402b at0006 = ╱4b╱K╱ // 0x4017 @0x6
0x4011…402b at0007 = ╱4f╱O╱ // 0x4018 @0x7
0x4011…402b at0008 = ╱4e╱N╱ // 0x4019 @0x8
0x4011…402b at0009 = ╱54╱T╱ // 0x401a @0x9
0x4011…402b at000a = ╱55╱U╱ // 0x401b @0xa
0x4011…402b at000b = ╱44╱D╱ // 0x401c @0xb
0x4011…402b at000c = ╱ed╱(╱ // 0x401d @0xc
0x4011…402b at000d = ╱4b╱K╱ // 0x401e @0xd
0x4011…402b at000e = ╱31╱1╱ // 0x401f @0xe
0x4011…402b at000f = ╱30╱0╱ // 0x4020 @0xf
0x4011…402b at0010 = ╱ef╱$╱ // 0x4021 @0x10
0x4011…402b at0011 = ╱ec╱,╱ // 0x4022 @0x11
0x4011…402b at0012 = ╱4d╱M╱ // 0x4023 @0x12
0x4011…402b at0013 = ╱4b╱K╱ // 0x4024 @0x13
0x4011…402b at0014 = ╱50╱P╱ // 0x4025 @0x14
0x4011…402b at0015 = ╱4f╱O╱ // 0x4026 @0x15
0x4011…402b at0016 = ╱53╱S╱ // 0x4027 @0x16
0x4011…402b at0017 = ╱54╱T╱ // 0x4028 @0x17
0x4011…402b at0018 = ╱ee╱)╱ // 0x4029 @0x18
0x4011…402b at0019 = EOL // 0x402a @0x19
0x4011…402b }
0x402b…4031 cd88 6720 CLEAR
0x402b…4031 LineComalBin {
0x402b…4031 ptr = 0xcd88 // 0x402b @0x0
0x402b…4031 lno = 0x1a40 // 0x402d @0x2
0x402b…4031 at0004 = ╱a0╱ CLEAR ╱ // 0x402f @0x4
0x402b…4031 at0005 = EOL // 0x4030 @0x5
0x402b…4031 }
0x4031…4038 cd8f 6730 OUTPUT T
0x4031…4038 LineComalBin {
0x4031…4038 ptr = 0xcd8f // 0x4031 @0x0
0x4031…4038 lno = 0x1a4a // 0x4033 @0x2
0x4031…4038 at0004 = ╱a5╱ OUTPUT ╱ // 0x4035 @0x4
0x4031…4038 at0005 = ╱54╱T╱ // 0x4036 @0x5
0x4031…4038 at0006 = EOL // 0x4037 @0x6
0x4031…4038 }
0x4038…4074 cdcb 6740 EXEC INDPUT1(20,13,-9,-6,LTX$(10))
0x4038…4074 LineComalBin {
0x4038…4074 ptr = 0xcdcb // 0x4038 @0x0
0x4038…4074 lno = 0x1a54 // 0x403a @0x2
0x4038…4074 at0004 = ╱9d╱ EXEC ╱ // 0x403c @0x4
0x4038…4074 at0005 = ╱49╱I╱ // 0x403d @0x5
0x4038…4074 at0006 = ╱4e╱N╱ // 0x403e @0x6
0x4038…4074 at0007 = ╱44╱D╱ // 0x403f @0x7
0x4038…4074 at0008 = ╱50╱P╱ // 0x4040 @0x8
0x4038…4074 at0009 = ╱55╱U╱ // 0x4041 @0x9
0x4038…4074 at000a = ╱54╱T╱ // 0x4042 @0xa
0x4038…4074 at000b = ╱31╱1╱ // 0x4043 @0xb
0x4038…4074 at000c = ╱ed╱(╱ // 0x4044 @0xc
0x4038…4074 at000d = ╱32╱2╱ // 0x4045 @0xd
0x4038…4074 at000e = ╱30╱0╱ // 0x4046 @0xe
0x4038…4074 at000f = ╱fe0000a005╱ // 0x4047 @0xf
0x4038…4074 at0014 = ╱ec╱,╱ // 0x404c @0x14
0x4038…4074 at0015 = ╱31╱1╱ // 0x404d @0x15
0x4038…4074 at0016 = ╱33╱3╱ // 0x404e @0x16
0x4038…4074 at0017 = ╱fe0000d004╱ // 0x404f @0x17
0x4038…4074 at001c = ╱ec╱,╱ // 0x4054 @0x1c
0x4038…4074 at001d = ╱e9╱-╱ // 0x4055 @0x1d
0x4038…4074 at001e = ╱39╱9╱ // 0x4056 @0x1e
0x4038…4074 at001f = ╱fe00009004╱ // 0x4057 @0x1f
0x4038…4074 at0024 = ╱ec╱,╱ // 0x405c @0x24
0x4038…4074 at0025 = ╱e9╱-╱ // 0x405d @0x25
0x4038…4074 at0026 = ╱36╱6╱ // 0x405e @0x26
0x4038…4074 at0027 = ╱fe0000c003╱ // 0x405f @0x27
0x4038…4074 at002c = ╱ec╱,╱ // 0x4064 @0x2c
0x4038…4074 at002d = ╱4c╱L╱ // 0x4065 @0x2d
0x4038…4074 at002e = ╱54╱T╱ // 0x4066 @0x2e
0x4038…4074 at002f = ╱58╱X╱ // 0x4067 @0x2f
0x4038…4074 at0030 = ╱ef╱$╱ // 0x4068 @0x30
0x4038…4074 at0031 = ╱ed╱(╱ // 0x4069 @0x31
0x4038…4074 at0032 = ╱31╱1╱ // 0x406a @0x32
0x4038…4074 at0033 = ╱30╱0╱ // 0x406b @0x33
0x4038…4074 at0034 = ╱fe0000a004╱ // 0x406c @0x34
0x4038…4074 at0039 = ╱ee╱)╱ // 0x4071 @0x39
0x4038…4074 at003a = ╱ee╱)╱ // 0x4072 @0x3a
0x4038…4074 at003b = EOL // 0x4073 @0x3b
0x4038…4074 }
0x4074…4083 cdda 6750 UNTIL P=-8
0x4074…4083 LineComalBin {
0x4074…4083 ptr = 0xcdda // 0x4074 @0x0
0x4074…4083 lno = 0x1a5e // 0x4076 @0x2
0x4074…4083 at0004 = ╱98╱ UNTIL ╱ // 0x4078 @0x4
0x4074…4083 at0005 = ╱50╱P╱ // 0x4079 @0x5
0x4074…4083 at0006 = ╱dc╱=╱ // 0x407a @0x6
0x4074…4083 at0007 = ╱e9╱-╱ // 0x407b @0x7
0x4074…4083 at0008 = ╱38╱8╱ // 0x407c @0x8
0x4074…4083 at0009 = ╱fe00008004╱ // 0x407d @0x9
0x4074…4083 at000e = EOL // 0x4082 @0xe
0x4074…4083 }
0x4083…4089 cde0 6760 ELSE
0x4083…4089 LineComalBin {
0x4083…4089 ptr = 0xcde0 // 0x4083 @0x0
0x4083…4089 lno = 0x1a68 // 0x4085 @0x2
0x4083…4089 at0004 = ╱9a╱ ELSE ╱ // 0x4087 @0x4
0x4083…4089 at0005 = EOL // 0x4088 @0x5
0x4083…4089 }
0x4089…4097 cdee 6770 EXEC STARTBIL
0x4089…4097 LineComalBin {
0x4089…4097 ptr = 0xcdee // 0x4089 @0x0
0x4089…4097 lno = 0x1a72 // 0x408b @0x2
0x4089…4097 at0004 = ╱9d╱ EXEC ╱ // 0x408d @0x4
0x4089…4097 at0005 = ╱53╱S╱ // 0x408e @0x5
0x4089…4097 at0006 = ╱54╱T╱ // 0x408f @0x6
0x4089…4097 at0007 = ╱41╱A╱ // 0x4090 @0x7
0x4089…4097 at0008 = ╱52╱R╱ // 0x4091 @0x8
0x4089…4097 at0009 = ╱54╱T╱ // 0x4092 @0x9
0x4089…4097 at000a = ╱42╱B╱ // 0x4093 @0xa
0x4089…4097 at000b = ╱49╱I╱ // 0x4094 @0xb
0x4089…4097 at000c = ╱4c╱L╱ // 0x4095 @0xc
0x4089…4097 at000d = EOL // 0x4096 @0xd
0x4089…4097 }
0x4097…409d cdf4 6780 REPEAT
0x4097…409d LineComalBin {
0x4097…409d ptr = 0xcdf4 // 0x4097 @0x0
0x4097…409d lno = 0x1a7c // 0x4099 @0x2
0x4097…409d at0004 = ╱97╱ REPEAT ╱ // 0x409b @0x4
0x4097…409d at0005 = EOL // 0x409c @0x5
0x4097…409d }
0x409d…40ab ce02 6790 IF KONT=B THEN EXIT
0x409d…40ab LineComalBin {
0x409d…40ab ptr = 0xce02 // 0x409d @0x0
0x409d…40ab lno = 0x1a86 // 0x409f @0x2
0x409d…40ab at0004 = ╱82╱ IF ╱ // 0x40a1 @0x4
0x409d…40ab at0005 = ╱4b╱K╱ // 0x40a2 @0x5
0x409d…40ab at0006 = ╱4f╱O╱ // 0x40a3 @0x6
0x409d…40ab at0007 = ╱4e╱N╱ // 0x40a4 @0x7
0x409d…40ab at0008 = ╱54╱T╱ // 0x40a5 @0x8
0x409d…40ab at0009 = ╱dc╱=╱ // 0x40a6 @0x9
0x409d…40ab at000a = ╱42╱B╱ // 0x40a7 @0xa
0x409d…40ab at000b = ╱b6╱ THEN ╱ // 0x40a8 @0xb
0x409d…40ab at000c = ╱99╱ EXIT ╱ // 0x40a9 @0xc
0x409d…40ab at000d = EOL // 0x40aa @0xd
0x409d…40ab }
0x40ab…40e5 (215,) ce3c 6800 EXEC INDPUT1(4,14,-9,-6,LTX$(9))
0x40ab…40e5 LineComalBin {
0x40ab…40e5 ptr = 0xce3c // 0x40ab @0x0
0x40ab…40e5 lno = 0x1a90 // 0x40ad @0x2
0x40ab…40e5 at0004 = ╱9d╱ EXEC ╱ // 0x40af @0x4
0x40ab…40e5 at0005 = ╱49╱I╱ // 0x40b0 @0x5
0x40ab…40e5 at0006 = ╱4e╱N╱ // 0x40b1 @0x6
0x40ab…40e5 at0007 = ╱44╱D╱ // 0x40b2 @0x7
0x40ab…40e5 at0008 = ╱50╱P╱ // 0x40b3 @0x8
0x40ab…40e5 at0009 = ╱55╱U╱ // 0x40b4 @0x9
0x40ab…40e5 at000a = ╱54╱T╱ // 0x40b5 @0xa
0x40ab…40e5 at000b = ╱31╱1╱ // 0x40b6 @0xb
0x40ab…40e5 at000c = ╱ed╱(╱ // 0x40b7 @0xc
0x40ab…40e5 at000d = ╱34╱4╱ // 0x40b8 @0xd
0x40ab…40e5 at000e = ╱fe00008003╱ // 0x40b9 @0xe
0x40ab…40e5 at0013 = ╱ec╱,╱ // 0x40be @0x13
0x40ab…40e5 at0014 = ╱31╱1╱ // 0x40bf @0x14
0x40ab…40e5 at0015 = ╱34╱4╱ // 0x40c0 @0x15
0x40ab…40e5 at0016 = ╱fe0000e004╱ // 0x40c1 @0x16
0x40ab…40e5 at001b = ╱ec╱,╱ // 0x40c6 @0x1b
0x40ab…40e5 at001c = ╱e9╱-╱ // 0x40c7 @0x1c
0x40ab…40e5 at001d = ╱39╱9╱ // 0x40c8 @0x1d
0x40ab…40e5 at001e = ╱fe00009004╱ // 0x40c9 @0x1e
0x40ab…40e5 at0023 = ╱ec╱,╱ // 0x40ce @0x23
0x40ab…40e5 at0024 = ╱e9╱-╱ // 0x40cf @0x24
0x40ab…40e5 at0025 = ╱36╱6╱ // 0x40d0 @0x25
0x40ab…40e5 at0026 = ╱fe0000c003╱ // 0x40d1 @0x26
0x40ab…40e5 at002b = ╱ec╱,╱ // 0x40d6 @0x2b
0x40ab…40e5 at002c = ╱4c╱L╱ // 0x40d7 @0x2c
0x40ab…40e5 at002d = ╱54╱T╱ // 0x40d8 @0x2d
0x40ab…40e5 at002e = ╱58╱X╱ // 0x40d9 @0x2e
0x40ab…40e5 at002f = ╱ef╱$╱ // 0x40da @0x2f
0x40ab…40e5 at0030 = ╱ed╱(╱ // 0x40db @0x30
0x40ab…40e5 at0031 = ╱39╱9╱ // 0x40dc @0x31
0x40ab…40e5 at0032 = ╱fe00009004╱ // 0x40dd @0x32
0x40ab…40e5 at0037 = ╱ee╱)╱ // 0x40e2 @0x37
0x40ab…40e5 at0038 = ╱ee╱)╱ // 0x40e3 @0x38
0x40ab…40e5 at0039 = EOL // 0x40e4 @0x39
0x40ab…40e5 }
0x40e5…40fc ce53 6810 KSIDENR=B;SKRIV1=B
0x40e5…40fc LineComalBin {
0x40e5…40fc ptr = 0xce53 // 0x40e5 @0x0
0x40e5…40fc lno = 0x1a9a // 0x40e7 @0x2
0x40e5…40fc at0004 = ╱4b╱K╱ // 0x40e9 @0x4
0x40e5…40fc at0005 = ╱53╱S╱ // 0x40ea @0x5
0x40e5…40fc at0006 = ╱49╱I╱ // 0x40eb @0x6
0x40e5…40fc at0007 = ╱44╱D╱ // 0x40ec @0x7
0x40e5…40fc at0008 = ╱45╱E╱ // 0x40ed @0x8
0x40e5…40fc at0009 = ╱4e╱N╱ // 0x40ee @0x9
0x40e5…40fc at000a = ╱52╱R╱ // 0x40ef @0xa
0x40e5…40fc at000b = ╱dc╱=╱ // 0x40f0 @0xb
0x40e5…40fc at000c = ╱42╱B╱ // 0x40f1 @0xc
0x40e5…40fc at000d = ╱eb╱;╱ // 0x40f2 @0xd
0x40e5…40fc at000e = ╱53╱S╱ // 0x40f3 @0xe
0x40e5…40fc at000f = ╱4b╱K╱ // 0x40f4 @0xf
0x40e5…40fc at0010 = ╱52╱R╱ // 0x40f5 @0x10
0x40e5…40fc at0011 = ╱49╱I╱ // 0x40f6 @0x11
0x40e5…40fc at0012 = ╱56╱V╱ // 0x40f7 @0x12
0x40e5…40fc at0013 = ╱31╱1╱ // 0x40f8 @0x13
0x40e5…40fc at0014 = ╱dc╱=╱ // 0x40f9 @0x14
0x40e5…40fc at0015 = ╱42╱B╱ // 0x40fa @0x15
0x40e5…40fc at0016 = EOL // 0x40fb @0x16
0x40e5…40fc }
0x40fc…410c ce63 6820 IF P=-7 THEN
0x40fc…410c LineComalBin {
0x40fc…410c ptr = 0xce63 // 0x40fc @0x0
0x40fc…410c lno = 0x1aa4 // 0x40fe @0x2
0x40fc…410c at0004 = ╱9c╱ IF ╱ // 0x4100 @0x4
0x40fc…410c at0005 = ╱50╱P╱ // 0x4101 @0x5
0x40fc…410c at0006 = ╱dc╱=╱ // 0x4102 @0x6
0x40fc…410c at0007 = ╱e9╱-╱ // 0x4103 @0x7
0x40fc…410c at0008 = ╱37╱7╱ // 0x4104 @0x8
0x40fc…410c at0009 = ╱fe0000e003╱ // 0x4105 @0x9
0x40fc…410c at000e = ╱b6╱ THEN ╱ // 0x410a @0xe
0x40fc…410c at000f = EOL // 0x410b @0xf
0x40fc…410c }
0x410c…4118 ce6f 6830 SKRIV=E
0x410c…4118 LineComalBin {
0x410c…4118 ptr = 0xce6f // 0x410c @0x0
0x410c…4118 lno = 0x1aae // 0x410e @0x2
0x410c…4118 at0004 = ╱53╱S╱ // 0x4110 @0x4
0x410c…4118 at0005 = ╱4b╱K╱ // 0x4111 @0x5
0x410c…4118 at0006 = ╱52╱R╱ // 0x4112 @0x6
0x410c…4118 at0007 = ╱49╱I╱ // 0x4113 @0x7
0x410c…4118 at0008 = ╱56╱V╱ // 0x4114 @0x8
0x410c…4118 at0009 = ╱dc╱=╱ // 0x4115 @0x9
0x410c…4118 at000a = ╱45╱E╱ // 0x4116 @0xa
0x410c…4118 at000b = EOL // 0x4117 @0xb
0x410c…4118 }
0x4118…411f ce76 6840 OUTPUT P
0x4118…411f LineComalBin {
0x4118…411f ptr = 0xce76 // 0x4118 @0x0
0x4118…411f lno = 0x1ab8 // 0x411a @0x2
0x4118…411f at0004 = ╱a5╱ OUTPUT ╱ // 0x411c @0x4
0x4118…411f at0005 = ╱50╱P╱ // 0x411d @0x5
0x4118…411f at0006 = EOL // 0x411e @0x6
0x4118…411f }
0x411f…412d ce84 6850 EXEC HUDSKRIV
0x411f…412d LineComalBin {
0x411f…412d ptr = 0xce84 // 0x411f @0x0
0x411f…412d lno = 0x1ac2 // 0x4121 @0x2
0x411f…412d at0004 = ╱9d╱ EXEC ╱ // 0x4123 @0x4
0x411f…412d at0005 = ╱48╱H╱ // 0x4124 @0x5
0x411f…412d at0006 = ╱55╱U╱ // 0x4125 @0x6
0x411f…412d at0007 = ╱44╱D╱ // 0x4126 @0x7
0x411f…412d at0008 = ╱53╱S╱ // 0x4127 @0x8
0x411f…412d at0009 = ╱4b╱K╱ // 0x4128 @0x9
0x411f…412d at000a = ╱52╱R╱ // 0x4129 @0xa
0x411f…412d at000b = ╱49╱I╱ // 0x412a @0xb
0x411f…412d at000c = ╱56╱V╱ // 0x412b @0xc
0x411f…412d at000d = EOL // 0x412c @0xd
0x411f…412d }
0x412d…4133 ce8a 6870 ELSE
0x412d…4133 LineComalBin {
0x412d…4133 ptr = 0xce8a // 0x412d @0x0
0x412d…4133 lno = 0x1ad6 // 0x412f @0x2
0x412d…4133 at0004 = ╱9a╱ ELSE ╱ // 0x4131 @0x4
0x412d…4133 at0005 = EOL // 0x4132 @0x5
0x412d…4133 }
0x4133…413f ce96 6880 SKRIV=B
0x4133…413f LineComalBin {
0x4133…413f ptr = 0xce96 // 0x4133 @0x0
0x4133…413f lno = 0x1ae0 // 0x4135 @0x2
0x4133…413f at0004 = ╱53╱S╱ // 0x4137 @0x4
0x4133…413f at0005 = ╱4b╱K╱ // 0x4138 @0x5
0x4133…413f at0006 = ╱52╱R╱ // 0x4139 @0x6
0x4133…413f at0007 = ╱49╱I╱ // 0x413a @0x7
0x4133…413f at0008 = ╱56╱V╱ // 0x413b @0x8
0x4133…413f at0009 = ╱dc╱=╱ // 0x413c @0x9
0x4133…413f at000a = ╱42╱B╱ // 0x413d @0xa
0x4133…413f at000b = EOL // 0x413e @0xb
0x4133…413f }
0x413f…4146 ce9d 6890 OUTPUT T
0x413f…4146 LineComalBin {
0x413f…4146 ptr = 0xce9d // 0x413f @0x0
0x413f…4146 lno = 0x1aea // 0x4141 @0x2
0x413f…4146 at0004 = ╱a5╱ OUTPUT ╱ // 0x4143 @0x4
0x413f…4146 at0005 = ╱54╱T╱ // 0x4144 @0x5
0x413f…4146 at0006 = EOL // 0x4145 @0x6
0x413f…4146 }
0x4146…414c cea3 6895 ENDIF
0x4146…414c LineComalBin {
0x4146…414c ptr = 0xcea3 // 0x4146 @0x0
0x4146…414c lno = 0x1aef // 0x4148 @0x2
0x4146…414c at0004 = ╱9b╱ ENDIF ╱ // 0x414a @0x4
0x4146…414c at0005 = EOL // 0x414b @0x5
0x4146…414c }
0x414c…415b ceb2 6900 EXEC HSUDSKRIV
0x414c…415b LineComalBin {
0x414c…415b ptr = 0xceb2 // 0x414c @0x0
0x414c…415b lno = 0x1af4 // 0x414e @0x2
0x414c…415b at0004 = ╱9d╱ EXEC ╱ // 0x4150 @0x4
0x414c…415b at0005 = ╱48╱H╱ // 0x4151 @0x5
0x414c…415b at0006 = ╱53╱S╱ // 0x4152 @0x6
0x414c…415b at0007 = ╱55╱U╱ // 0x4153 @0x7
0x414c…415b at0008 = ╱44╱D╱ // 0x4154 @0x8
0x414c…415b at0009 = ╱53╱S╱ // 0x4155 @0x9
0x414c…415b at000a = ╱4b╱K╱ // 0x4156 @0xa
0x414c…415b at000b = ╱52╱R╱ // 0x4157 @0xb
0x414c…415b at000c = ╱49╱I╱ // 0x4158 @0xc
0x414c…415b at000d = ╱56╱V╱ // 0x4159 @0xd
0x414c…415b at000e = EOL // 0x415a @0xe
0x414c…415b }
0x415b…4168 cebf 6920 CASE KTAL1 OF
0x415b…4168 LineComalBin {
0x415b…4168 ptr = 0xcebf // 0x415b @0x0
0x415b…4168 lno = 0x1b08 // 0x415d @0x2
0x415b…4168 at0004 = ╱a201╱ CASE ╱ // 0x415f @0x4
0x415b…4168 at0006 = ╱4b╱K╱ // 0x4161 @0x6
0x415b…4168 at0007 = ╱54╱T╱ // 0x4162 @0x7
0x415b…4168 at0008 = ╱41╱A╱ // 0x4163 @0x8
0x415b…4168 at0009 = ╱4c╱L╱ // 0x4164 @0x9
0x415b…4168 at000a = ╱31╱1╱ // 0x4165 @0xa
0x415b…4168 at000b = ╱ba╱ OF ╱ // 0x4166 @0xb
0x415b…4168 at000c = EOL // 0x4167 @0xc
0x415b…4168 }
0x4168…418f cee6 6930 EXEC SØG(MFPOST,HFTAB,KONT,UFTAB,K11$)
0x4168…418f LineComalBin {
0x4168…418f ptr = 0xcee6 // 0x4168 @0x0
0x4168…418f lno = 0x1b12 // 0x416a @0x2
0x4168…418f at0004 = ╱9d╱ EXEC ╱ // 0x416c @0x4
0x4168…418f at0005 = ╱53╱S╱ // 0x416d @0x5
0x4168…418f at0006 = ╱5c╱Ø╱ // 0x416e @0x6
0x4168…418f at0007 = ╱47╱G╱ // 0x416f @0x7
0x4168…418f at0008 = ╱ed╱(╱ // 0x4170 @0x8
0x4168…418f at0009 = ╱4d╱M╱ // 0x4171 @0x9
0x4168…418f at000a = ╱46╱F╱ // 0x4172 @0xa
0x4168…418f at000b = ╱50╱P╱ // 0x4173 @0xb
0x4168…418f at000c = ╱4f╱O╱ // 0x4174 @0xc
0x4168…418f at000d = ╱53╱S╱ // 0x4175 @0xd
0x4168…418f at000e = ╱54╱T╱ // 0x4176 @0xe
0x4168…418f at000f = ╱ec╱,╱ // 0x4177 @0xf
0x4168…418f at0010 = ╱48╱H╱ // 0x4178 @0x10
0x4168…418f at0011 = ╱46╱F╱ // 0x4179 @0x11
0x4168…418f at0012 = ╱54╱T╱ // 0x417a @0x12
0x4168…418f at0013 = ╱41╱A╱ // 0x417b @0x13
0x4168…418f at0014 = ╱42╱B╱ // 0x417c @0x14
0x4168…418f at0015 = ╱ec╱,╱ // 0x417d @0x15
0x4168…418f at0016 = ╱4b╱K╱ // 0x417e @0x16
0x4168…418f at0017 = ╱4f╱O╱ // 0x417f @0x17
0x4168…418f at0018 = ╱4e╱N╱ // 0x4180 @0x18
0x4168…418f at0019 = ╱54╱T╱ // 0x4181 @0x19
0x4168…418f at001a = ╱ec╱,╱ // 0x4182 @0x1a
0x4168…418f at001b = ╱55╱U╱ // 0x4183 @0x1b
0x4168…418f at001c = ╱46╱F╱ // 0x4184 @0x1c
0x4168…418f at001d = ╱54╱T╱ // 0x4185 @0x1d
0x4168…418f at001e = ╱41╱A╱ // 0x4186 @0x1e
0x4168…418f at001f = ╱42╱B╱ // 0x4187 @0x1f
0x4168…418f at0020 = ╱ec╱,╱ // 0x4188 @0x20
0x4168…418f at0021 = ╱4b╱K╱ // 0x4189 @0x21
0x4168…418f at0022 = ╱31╱1╱ // 0x418a @0x22
0x4168…418f at0023 = ╱31╱1╱ // 0x418b @0x23
0x4168…418f at0024 = ╱ef╱$╱ // 0x418c @0x24
0x4168…418f at0025 = ╱ee╱)╱ // 0x418d @0x25
0x4168…418f at0026 = EOL // 0x418e @0x26
0x4168…418f }
0x418f…419a cef1 6940 WHEN DTAL
0x418f…419a LineComalBin {
0x418f…419a ptr = 0xcef1 // 0x418f @0x0
0x418f…419a lno = 0x1b1c // 0x4191 @0x2
0x418f…419a at0004 = ╱a301╱ WHEN ╱ // 0x4193 @0x4
0x418f…419a at0006 = ╱44╱D╱ // 0x4195 @0x6
0x418f…419a at0007 = ╱54╱T╱ // 0x4196 @0x7
0x418f…419a at0008 = ╱41╱A╱ // 0x4197 @0x8
0x418f…419a at0009 = ╱4c╱L╱ // 0x4198 @0x9
0x418f…419a at000a = EOL // 0x4199 @0xa
0x418f…419a }
0x419a…41c1 cf18 6950 EXEC SØG(MDPOST,HDTAB,KONT,UDTAB,K12$)
0x419a…41c1 LineComalBin {
0x419a…41c1 ptr = 0xcf18 // 0x419a @0x0
0x419a…41c1 lno = 0x1b26 // 0x419c @0x2
0x419a…41c1 at0004 = ╱9d╱ EXEC ╱ // 0x419e @0x4
0x419a…41c1 at0005 = ╱53╱S╱ // 0x419f @0x5
0x419a…41c1 at0006 = ╱5c╱Ø╱ // 0x41a0 @0x6
0x419a…41c1 at0007 = ╱47╱G╱ // 0x41a1 @0x7
0x419a…41c1 at0008 = ╱ed╱(╱ // 0x41a2 @0x8
0x419a…41c1 at0009 = ╱4d╱M╱ // 0x41a3 @0x9
0x419a…41c1 at000a = ╱44╱D╱ // 0x41a4 @0xa
0x419a…41c1 at000b = ╱50╱P╱ // 0x41a5 @0xb
0x419a…41c1 at000c = ╱4f╱O╱ // 0x41a6 @0xc
0x419a…41c1 at000d = ╱53╱S╱ // 0x41a7 @0xd
0x419a…41c1 at000e = ╱54╱T╱ // 0x41a8 @0xe
0x419a…41c1 at000f = ╱ec╱,╱ // 0x41a9 @0xf
0x419a…41c1 at0010 = ╱48╱H╱ // 0x41aa @0x10
0x419a…41c1 at0011 = ╱44╱D╱ // 0x41ab @0x11
0x419a…41c1 at0012 = ╱54╱T╱ // 0x41ac @0x12
0x419a…41c1 at0013 = ╱41╱A╱ // 0x41ad @0x13
0x419a…41c1 at0014 = ╱42╱B╱ // 0x41ae @0x14
0x419a…41c1 at0015 = ╱ec╱,╱ // 0x41af @0x15
0x419a…41c1 at0016 = ╱4b╱K╱ // 0x41b0 @0x16
0x419a…41c1 at0017 = ╱4f╱O╱ // 0x41b1 @0x17
0x419a…41c1 at0018 = ╱4e╱N╱ // 0x41b2 @0x18
0x419a…41c1 at0019 = ╱54╱T╱ // 0x41b3 @0x19
0x419a…41c1 at001a = ╱ec╱,╱ // 0x41b4 @0x1a
0x419a…41c1 at001b = ╱55╱U╱ // 0x41b5 @0x1b
0x419a…41c1 at001c = ╱44╱D╱ // 0x41b6 @0x1c
0x419a…41c1 at001d = ╱54╱T╱ // 0x41b7 @0x1d
0x419a…41c1 at001e = ╱41╱A╱ // 0x41b8 @0x1e
0x419a…41c1 at001f = ╱42╱B╱ // 0x41b9 @0x1f
0x419a…41c1 at0020 = ╱ec╱,╱ // 0x41ba @0x20
0x419a…41c1 at0021 = ╱4b╱K╱ // 0x41bb @0x21
0x419a…41c1 at0022 = ╱31╱1╱ // 0x41bc @0x22
0x419a…41c1 at0023 = ╱32╱2╱ // 0x41bd @0x23
0x419a…41c1 at0024 = ╱ef╱$╱ // 0x41be @0x24
0x419a…41c1 at0025 = ╱ee╱)╱ // 0x41bf @0x25
0x419a…41c1 at0026 = EOL // 0x41c0 @0x26
0x419a…41c1 }
0x41c1…41cd cf24 6960 WHEN KRTAL
0x41c1…41cd LineComalBin {
0x41c1…41cd ptr = 0xcf24 // 0x41c1 @0x0
0x41c1…41cd lno = 0x1b30 // 0x41c3 @0x2
0x41c1…41cd at0004 = ╱a301╱ WHEN ╱ // 0x41c5 @0x4
0x41c1…41cd at0006 = ╱4b╱K╱ // 0x41c7 @0x6
0x41c1…41cd at0007 = ╱52╱R╱ // 0x41c8 @0x7
0x41c1…41cd at0008 = ╱54╱T╱ // 0x41c9 @0x8
0x41c1…41cd at0009 = ╱41╱A╱ // 0x41ca @0x9
0x41c1…41cd at000a = ╱4c╱L╱ // 0x41cb @0xa
0x41c1…41cd at000b = EOL // 0x41cc @0xb
0x41c1…41cd }
0x41cd…41f6 cf4d 6970 EXEC SØG(MKPOST,HKRTAB,KONT,UKRTAB,K13$)
0x41cd…41f6 LineComalBin {
0x41cd…41f6 ptr = 0xcf4d // 0x41cd @0x0
0x41cd…41f6 lno = 0x1b3a // 0x41cf @0x2
0x41cd…41f6 at0004 = ╱9d╱ EXEC ╱ // 0x41d1 @0x4
0x41cd…41f6 at0005 = ╱53╱S╱ // 0x41d2 @0x5
0x41cd…41f6 at0006 = ╱5c╱Ø╱ // 0x41d3 @0x6
0x41cd…41f6 at0007 = ╱47╱G╱ // 0x41d4 @0x7
0x41cd…41f6 at0008 = ╱ed╱(╱ // 0x41d5 @0x8
0x41cd…41f6 at0009 = ╱4d╱M╱ // 0x41d6 @0x9
0x41cd…41f6 at000a = ╱4b╱K╱ // 0x41d7 @0xa
0x41cd…41f6 at000b = ╱50╱P╱ // 0x41d8 @0xb
0x41cd…41f6 at000c = ╱4f╱O╱ // 0x41d9 @0xc
0x41cd…41f6 at000d = ╱53╱S╱ // 0x41da @0xd
0x41cd…41f6 at000e = ╱54╱T╱ // 0x41db @0xe
0x41cd…41f6 at000f = ╱ec╱,╱ // 0x41dc @0xf
0x41cd…41f6 at0010 = ╱48╱H╱ // 0x41dd @0x10
0x41cd…41f6 at0011 = ╱4b╱K╱ // 0x41de @0x11
0x41cd…41f6 at0012 = ╱52╱R╱ // 0x41df @0x12
0x41cd…41f6 at0013 = ╱54╱T╱ // 0x41e0 @0x13
0x41cd…41f6 at0014 = ╱41╱A╱ // 0x41e1 @0x14
0x41cd…41f6 at0015 = ╱42╱B╱ // 0x41e2 @0x15
0x41cd…41f6 at0016 = ╱ec╱,╱ // 0x41e3 @0x16
0x41cd…41f6 at0017 = ╱4b╱K╱ // 0x41e4 @0x17
0x41cd…41f6 at0018 = ╱4f╱O╱ // 0x41e5 @0x18
0x41cd…41f6 at0019 = ╱4e╱N╱ // 0x41e6 @0x19
0x41cd…41f6 at001a = ╱54╱T╱ // 0x41e7 @0x1a
0x41cd…41f6 at001b = ╱ec╱,╱ // 0x41e8 @0x1b
0x41cd…41f6 at001c = ╱55╱U╱ // 0x41e9 @0x1c
0x41cd…41f6 at001d = ╱4b╱K╱ // 0x41ea @0x1d
0x41cd…41f6 at001e = ╱52╱R╱ // 0x41eb @0x1e
0x41cd…41f6 at001f = ╱54╱T╱ // 0x41ec @0x1f
0x41cd…41f6 at0020 = ╱41╱A╱ // 0x41ed @0x20
0x41cd…41f6 at0021 = ╱42╱B╱ // 0x41ee @0x21
0x41cd…41f6 at0022 = ╱ec╱,╱ // 0x41ef @0x22
0x41cd…41f6 at0023 = ╱4b╱K╱ // 0x41f0 @0x23
0x41cd…41f6 at0024 = ╱31╱1╱ // 0x41f1 @0x24
0x41cd…41f6 at0025 = ╱33╱3╱ // 0x41f2 @0x25
0x41cd…41f6 at0026 = ╱ef╱$╱ // 0x41f3 @0x26
0x41cd…41f6 at0027 = ╱ee╱)╱ // 0x41f4 @0x27
0x41cd…41f6 at0028 = EOL // 0x41f5 @0x28
0x41cd…41f6 }
0x41f6…41fc cf53 6980 ENDCASE
0x41f6…41fc LineComalBin {
0x41f6…41fc ptr = 0xcf53 // 0x41f6 @0x0
0x41f6…41fc lno = 0x1b44 // 0x41f8 @0x2
0x41f6…41fc at0004 = ╱a4╱ ENDCASE ╱ // 0x41fa @0x4
0x41f6…41fc at0005 = EOL // 0x41fb @0x5
0x41f6…41fc }
0x41fc…4206 cf5d 6990 IF T>B THEN
0x41fc…4206 LineComalBin {
0x41fc…4206 ptr = 0xcf5d // 0x41fc @0x0
0x41fc…4206 lno = 0x1b4e // 0x41fe @0x2
0x41fc…4206 at0004 = ╱9c╱ IF ╱ // 0x4200 @0x4
0x41fc…4206 at0005 = ╱54╱T╱ // 0x4201 @0x5
0x41fc…4206 at0006 = ╱de╱>╱ // 0x4202 @0x6
0x41fc…4206 at0007 = ╱42╱B╱ // 0x4203 @0x7
0x41fc…4206 at0008 = ╱b6╱ THEN ╱ // 0x4204 @0x8
0x41fc…4206 at0009 = EOL // 0x4205 @0x9
0x41fc…4206 }
0x4206…4213 cf6a 7000 CASE KTAL1 OF
0x4206…4213 LineComalBin {
0x4206…4213 ptr = 0xcf6a // 0x4206 @0x0
0x4206…4213 lno = 0x1b58 // 0x4208 @0x2
0x4206…4213 at0004 = ╱a201╱ CASE ╱ // 0x420a @0x4
0x4206…4213 at0006 = ╱4b╱K╱ // 0x420c @0x6
0x4206…4213 at0007 = ╱54╱T╱ // 0x420d @0x7
0x4206…4213 at0008 = ╱41╱A╱ // 0x420e @0x8
0x4206…4213 at0009 = ╱4c╱L╱ // 0x420f @0x9
0x4206…4213 at000a = ╱31╱1╱ // 0x4210 @0xa
0x4206…4213 at000b = ╱ba╱ OF ╱ // 0x4211 @0xb
0x4206…4213 at000c = EOL // 0x4212 @0xc
0x4206…4213 }
0x4213…423d cf94 7010 EXEC POSTER(K8$,KONT,T,MFPOST,SKRIV,SUM$)
0x4213…423d LineComalBin {
0x4213…423d ptr = 0xcf94 // 0x4213 @0x0
0x4213…423d lno = 0x1b62 // 0x4215 @0x2
0x4213…423d at0004 = ╱9d╱ EXEC ╱ // 0x4217 @0x4
0x4213…423d at0005 = ╱50╱P╱ // 0x4218 @0x5
0x4213…423d at0006 = ╱4f╱O╱ // 0x4219 @0x6
0x4213…423d at0007 = ╱53╱S╱ // 0x421a @0x7
0x4213…423d at0008 = ╱54╱T╱ // 0x421b @0x8
0x4213…423d at0009 = ╱45╱E╱ // 0x421c @0x9
0x4213…423d at000a = ╱52╱R╱ // 0x421d @0xa
0x4213…423d at000b = ╱ed╱(╱ // 0x421e @0xb
0x4213…423d at000c = ╱4b╱K╱ // 0x421f @0xc
0x4213…423d at000d = ╱38╱8╱ // 0x4220 @0xd
0x4213…423d at000e = ╱ef╱$╱ // 0x4221 @0xe
0x4213…423d at000f = ╱ec╱,╱ // 0x4222 @0xf
0x4213…423d at0010 = ╱4b╱K╱ // 0x4223 @0x10
0x4213…423d at0011 = ╱4f╱O╱ // 0x4224 @0x11
0x4213…423d at0012 = ╱4e╱N╱ // 0x4225 @0x12
0x4213…423d at0013 = ╱54╱T╱ // 0x4226 @0x13
0x4213…423d at0014 = ╱ec╱,╱ // 0x4227 @0x14
0x4213…423d at0015 = ╱54╱T╱ // 0x4228 @0x15
0x4213…423d at0016 = ╱ec╱,╱ // 0x4229 @0x16
0x4213…423d at0017 = ╱4d╱M╱ // 0x422a @0x17
0x4213…423d at0018 = ╱46╱F╱ // 0x422b @0x18
0x4213…423d at0019 = ╱50╱P╱ // 0x422c @0x19
0x4213…423d at001a = ╱4f╱O╱ // 0x422d @0x1a
0x4213…423d at001b = ╱53╱S╱ // 0x422e @0x1b
0x4213…423d at001c = ╱54╱T╱ // 0x422f @0x1c
0x4213…423d at001d = ╱ec╱,╱ // 0x4230 @0x1d
0x4213…423d at001e = ╱53╱S╱ // 0x4231 @0x1e
0x4213…423d at001f = ╱4b╱K╱ // 0x4232 @0x1f
0x4213…423d at0020 = ╱52╱R╱ // 0x4233 @0x20
0x4213…423d at0021 = ╱49╱I╱ // 0x4234 @0x21
0x4213…423d at0022 = ╱56╱V╱ // 0x4235 @0x22
0x4213…423d at0023 = ╱ec╱,╱ // 0x4236 @0x23
0x4213…423d at0024 = ╱53╱S╱ // 0x4237 @0x24
0x4213…423d at0025 = ╱55╱U╱ // 0x4238 @0x25
0x4213…423d at0026 = ╱4d╱M╱ // 0x4239 @0x26
0x4213…423d at0027 = ╱ef╱$╱ // 0x423a @0x27
0x4213…423d at0028 = ╱ee╱)╱ // 0x423b @0x28
0x4213…423d at0029 = EOL // 0x423c @0x29
0x4213…423d }
0x423d…4248 cf9f 7020 WHEN DTAL
0x423d…4248 LineComalBin {
0x423d…4248 ptr = 0xcf9f // 0x423d @0x0
0x423d…4248 lno = 0x1b6c // 0x423f @0x2
0x423d…4248 at0004 = ╱a301╱ WHEN ╱ // 0x4241 @0x4
0x423d…4248 at0006 = ╱44╱D╱ // 0x4243 @0x6
0x423d…4248 at0007 = ╱54╱T╱ // 0x4244 @0x7
0x423d…4248 at0008 = ╱41╱A╱ // 0x4245 @0x8
0x423d…4248 at0009 = ╱4c╱L╱ // 0x4246 @0x9
0x423d…4248 at000a = EOL // 0x4247 @0xa
0x423d…4248 }
0x4248…4272 cfc9 7030 EXEC POSTER(K9$,KONT,T,MDPOST,SKRIV,SUM$)
0x4248…4272 LineComalBin {
0x4248…4272 ptr = 0xcfc9 // 0x4248 @0x0
0x4248…4272 lno = 0x1b76 // 0x424a @0x2
0x4248…4272 at0004 = ╱9d╱ EXEC ╱ // 0x424c @0x4
0x4248…4272 at0005 = ╱50╱P╱ // 0x424d @0x5
0x4248…4272 at0006 = ╱4f╱O╱ // 0x424e @0x6
0x4248…4272 at0007 = ╱53╱S╱ // 0x424f @0x7
0x4248…4272 at0008 = ╱54╱T╱ // 0x4250 @0x8
0x4248…4272 at0009 = ╱45╱E╱ // 0x4251 @0x9
0x4248…4272 at000a = ╱52╱R╱ // 0x4252 @0xa
0x4248…4272 at000b = ╱ed╱(╱ // 0x4253 @0xb
0x4248…4272 at000c = ╱4b╱K╱ // 0x4254 @0xc
0x4248…4272 at000d = ╱39╱9╱ // 0x4255 @0xd
0x4248…4272 at000e = ╱ef╱$╱ // 0x4256 @0xe
0x4248…4272 at000f = ╱ec╱,╱ // 0x4257 @0xf
0x4248…4272 at0010 = ╱4b╱K╱ // 0x4258 @0x10
0x4248…4272 at0011 = ╱4f╱O╱ // 0x4259 @0x11
0x4248…4272 at0012 = ╱4e╱N╱ // 0x425a @0x12
0x4248…4272 at0013 = ╱54╱T╱ // 0x425b @0x13
0x4248…4272 at0014 = ╱ec╱,╱ // 0x425c @0x14
0x4248…4272 at0015 = ╱54╱T╱ // 0x425d @0x15
0x4248…4272 at0016 = ╱ec╱,╱ // 0x425e @0x16
0x4248…4272 at0017 = ╱4d╱M╱ // 0x425f @0x17
0x4248…4272 at0018 = ╱44╱D╱ // 0x4260 @0x18
0x4248…4272 at0019 = ╱50╱P╱ // 0x4261 @0x19
0x4248…4272 at001a = ╱4f╱O╱ // 0x4262 @0x1a
0x4248…4272 at001b = ╱53╱S╱ // 0x4263 @0x1b
0x4248…4272 at001c = ╱54╱T╱ // 0x4264 @0x1c
0x4248…4272 at001d = ╱ec╱,╱ // 0x4265 @0x1d
0x4248…4272 at001e = ╱53╱S╱ // 0x4266 @0x1e
0x4248…4272 at001f = ╱4b╱K╱ // 0x4267 @0x1f
0x4248…4272 at0020 = ╱52╱R╱ // 0x4268 @0x20
0x4248…4272 at0021 = ╱49╱I╱ // 0x4269 @0x21
0x4248…4272 at0022 = ╱56╱V╱ // 0x426a @0x22
0x4248…4272 at0023 = ╱ec╱,╱ // 0x426b @0x23
0x4248…4272 at0024 = ╱53╱S╱ // 0x426c @0x24
0x4248…4272 at0025 = ╱55╱U╱ // 0x426d @0x25
0x4248…4272 at0026 = ╱4d╱M╱ // 0x426e @0x26
0x4248…4272 at0027 = ╱ef╱$╱ // 0x426f @0x27
0x4248…4272 at0028 = ╱ee╱)╱ // 0x4270 @0x28
0x4248…4272 at0029 = EOL // 0x4271 @0x29
0x4248…4272 }
0x4272…427e cfd5 7040 WHEN KRTAL
0x4272…427e LineComalBin {
0x4272…427e ptr = 0xcfd5 // 0x4272 @0x0
0x4272…427e lno = 0x1b80 // 0x4274 @0x2
0x4272…427e at0004 = ╱a301╱ WHEN ╱ // 0x4276 @0x4
0x4272…427e at0006 = ╱4b╱K╱ // 0x4278 @0x6
0x4272…427e at0007 = ╱52╱R╱ // 0x4279 @0x7
0x4272…427e at0008 = ╱54╱T╱ // 0x427a @0x8
0x4272…427e at0009 = ╱41╱A╱ // 0x427b @0x9
0x4272…427e at000a = ╱4c╱L╱ // 0x427c @0xa
0x4272…427e at000b = EOL // 0x427d @0xb
0x4272…427e }
0x427e…42a9 d000 7050 EXEC POSTER(K10$,KONT,T,MKPOST,SKRIV,SUM$)
0x427e…42a9 LineComalBin {
0x427e…42a9 ptr = 0xd000 // 0x427e @0x0
0x427e…42a9 lno = 0x1b8a // 0x4280 @0x2
0x427e…42a9 at0004 = ╱9d╱ EXEC ╱ // 0x4282 @0x4
0x427e…42a9 at0005 = ╱50╱P╱ // 0x4283 @0x5
0x427e…42a9 at0006 = ╱4f╱O╱ // 0x4284 @0x6
0x427e…42a9 at0007 = ╱53╱S╱ // 0x4285 @0x7
0x427e…42a9 at0008 = ╱54╱T╱ // 0x4286 @0x8
0x427e…42a9 at0009 = ╱45╱E╱ // 0x4287 @0x9
0x427e…42a9 at000a = ╱52╱R╱ // 0x4288 @0xa
0x427e…42a9 at000b = ╱ed╱(╱ // 0x4289 @0xb
0x427e…42a9 at000c = ╱4b╱K╱ // 0x428a @0xc
0x427e…42a9 at000d = ╱31╱1╱ // 0x428b @0xd
0x427e…42a9 at000e = ╱30╱0╱ // 0x428c @0xe
0x427e…42a9 at000f = ╱ef╱$╱ // 0x428d @0xf
0x427e…42a9 at0010 = ╱ec╱,╱ // 0x428e @0x10
0x427e…42a9 at0011 = ╱4b╱K╱ // 0x428f @0x11
0x427e…42a9 at0012 = ╱4f╱O╱ // 0x4290 @0x12
0x427e…42a9 at0013 = ╱4e╱N╱ // 0x4291 @0x13
0x427e…42a9 at0014 = ╱54╱T╱ // 0x4292 @0x14
0x427e…42a9 at0015 = ╱ec╱,╱ // 0x4293 @0x15
0x427e…42a9 at0016 = ╱54╱T╱ // 0x4294 @0x16
0x427e…42a9 at0017 = ╱ec╱,╱ // 0x4295 @0x17
0x427e…42a9 at0018 = ╱4d╱M╱ // 0x4296 @0x18
0x427e…42a9 at0019 = ╱4b╱K╱ // 0x4297 @0x19
0x427e…42a9 at001a = ╱50╱P╱ // 0x4298 @0x1a
0x427e…42a9 at001b = ╱4f╱O╱ // 0x4299 @0x1b
0x427e…42a9 at001c = ╱53╱S╱ // 0x429a @0x1c
0x427e…42a9 at001d = ╱54╱T╱ // 0x429b @0x1d
0x427e…42a9 at001e = ╱ec╱,╱ // 0x429c @0x1e
0x427e…42a9 at001f = ╱53╱S╱ // 0x429d @0x1f
0x427e…42a9 at0020 = ╱4b╱K╱ // 0x429e @0x20
0x427e…42a9 at0021 = ╱52╱R╱ // 0x429f @0x21
0x427e…42a9 at0022 = ╱49╱I╱ // 0x42a0 @0x22
0x427e…42a9 at0023 = ╱56╱V╱ // 0x42a1 @0x23
0x427e…42a9 at0024 = ╱ec╱,╱ // 0x42a2 @0x24
0x427e…42a9 at0025 = ╱53╱S╱ // 0x42a3 @0x25
0x427e…42a9 at0026 = ╱55╱U╱ // 0x42a4 @0x26
0x427e…42a9 at0027 = ╱4d╱M╱ // 0x42a5 @0x27
0x427e…42a9 at0028 = ╱ef╱$╱ // 0x42a6 @0x28
0x427e…42a9 at0029 = ╱ee╱)╱ // 0x42a7 @0x29
0x427e…42a9 at002a = EOL // 0x42a8 @0x2a
0x427e…42a9 }
0x42a9…42af d006 7060 ENDCASE
0x42a9…42af LineComalBin {
0x42a9…42af ptr = 0xd006 // 0x42a9 @0x0
0x42a9…42af lno = 0x1b94 // 0x42ab @0x2
0x42a9…42af at0004 = ╱a4╱ ENDCASE ╱ // 0x42ad @0x4
0x42a9…42af at0005 = EOL // 0x42ae @0x5
0x42a9…42af }
0x42af…42b5 d00c 7070 ELSE
0x42af…42b5 LineComalBin {
0x42af…42b5 ptr = 0xd00c // 0x42af @0x0
0x42af…42b5 lno = 0x1b9e // 0x42b1 @0x2
0x42af…42b5 at0004 = ╱9a╱ ELSE ╱ // 0x42b3 @0x4
0x42af…42b5 at0005 = EOL // 0x42b4 @0x5
0x42af…42b5 }
0x42b5…42c1 d018 7080 LINIE=B
0x42b5…42c1 LineComalBin {
0x42b5…42c1 ptr = 0xd018 // 0x42b5 @0x0
0x42b5…42c1 lno = 0x1ba8 // 0x42b7 @0x2
0x42b5…42c1 at0004 = ╱4c╱L╱ // 0x42b9 @0x4
0x42b5…42c1 at0005 = ╱49╱I╱ // 0x42ba @0x5
0x42b5…42c1 at0006 = ╱4e╱N╱ // 0x42bb @0x6
0x42b5…42c1 at0007 = ╱49╱I╱ // 0x42bc @0x7
0x42b5…42c1 at0008 = ╱45╱E╱ // 0x42bd @0x8
0x42b5…42c1 at0009 = ╱dc╱=╱ // 0x42be @0x9
0x42b5…42c1 at000a = ╱42╱B╱ // 0x42bf @0xa
0x42b5…42c1 at000b = EOL // 0x42c0 @0xb
0x42b5…42c1 }
0x42c1…42c7 d01e 7090 ENDIF
0x42c1…42c7 LineComalBin {
0x42c1…42c7 ptr = 0xd01e // 0x42c1 @0x0
0x42c1…42c7 lno = 0x1bb2 // 0x42c3 @0x2
0x42c1…42c7 at0004 = ╱9b╱ ENDIF ╱ // 0x42c5 @0x4
0x42c1…42c7 at0005 = EOL // 0x42c6 @0x5
0x42c1…42c7 }
0x42c7…42da d031 7100 IF T=B THEN SUM$="0+"
0x42c7…42da LineComalBin {
0x42c7…42da ptr = 0xd031 // 0x42c7 @0x0
0x42c7…42da lno = 0x1bbc // 0x42c9 @0x2
0x42c7…42da at0004 = ╱82╱ IF ╱ // 0x42cb @0x4
0x42c7…42da at0005 = ╱54╱T╱ // 0x42cc @0x5
0x42c7…42da at0006 = ╱dc╱=╱ // 0x42cd @0x6
0x42c7…42da at0007 = ╱42╱B╱ // 0x42ce @0x7
0x42c7…42da at0008 = ╱b6╱ THEN ╱ // 0x42cf @0x8
0x42c7…42da at0009 = ╱53╱S╱ // 0x42d0 @0x9
0x42c7…42da at000a = ╱55╱U╱ // 0x42d1 @0xa
0x42c7…42da at000b = ╱4d╱M╱ // 0x42d2 @0xb
0x42c7…42da at000c = ╱ef╱$╱ // 0x42d3 @0xc
0x42c7…42da at000d = ╱dc╱=╱ // 0x42d4 @0xd
0x42c7…42da at000e = ╱22╱"╱ // 0x42d5 @0xe
0x42c7…42da at000f = ╱30╱0╱ // 0x42d6 @0xf
0x42c7…42da at0010 = ╱2b╱+╱ // 0x42d7 @0x10
0x42c7…42da at0011 = ╱22╱"╱ // 0x42d8 @0x11
0x42c7…42da at0012 = EOL // 0x42d9 @0x12
0x42c7…42da }
0x42da…42e8 d03f 7110 IF SKRIV=B THEN
0x42da…42e8 LineComalBin {
0x42da…42e8 ptr = 0xd03f // 0x42da @0x0
0x42da…42e8 lno = 0x1bc6 // 0x42dc @0x2
0x42da…42e8 at0004 = ╱9c╱ IF ╱ // 0x42de @0x4
0x42da…42e8 at0005 = ╱53╱S╱ // 0x42df @0x5
0x42da…42e8 at0006 = ╱4b╱K╱ // 0x42e0 @0x6
0x42da…42e8 at0007 = ╱52╱R╱ // 0x42e1 @0x7
0x42da…42e8 at0008 = ╱49╱I╱ // 0x42e2 @0x8
0x42da…42e8 at0009 = ╱56╱V╱ // 0x42e3 @0x9
0x42da…42e8 at000a = ╱dc╱=╱ // 0x42e4 @0xa
0x42da…42e8 at000b = ╱42╱B╱ // 0x42e5 @0xb
0x42da…42e8 at000c = ╱b6╱ THEN ╱ // 0x42e6 @0xc
0x42da…42e8 at000d = EOL // 0x42e7 @0xd
0x42da…42e8 }
0x42e8…4303 d05a 7120 EXEC TUD(SUM$,UBELØB$,B,B)
0x42e8…4303 LineComalBin {
0x42e8…4303 ptr = 0xd05a // 0x42e8 @0x0
0x42e8…4303 lno = 0x1bd0 // 0x42ea @0x2
0x42e8…4303 at0004 = ╱9d╱ EXEC ╱ // 0x42ec @0x4
0x42e8…4303 at0005 = ╱54╱T╱ // 0x42ed @0x5
0x42e8…4303 at0006 = ╱55╱U╱ // 0x42ee @0x6
0x42e8…4303 at0007 = ╱44╱D╱ // 0x42ef @0x7
0x42e8…4303 at0008 = ╱ed╱(╱ // 0x42f0 @0x8
0x42e8…4303 at0009 = ╱53╱S╱ // 0x42f1 @0x9
0x42e8…4303 at000a = ╱55╱U╱ // 0x42f2 @0xa
0x42e8…4303 at000b = ╱4d╱M╱ // 0x42f3 @0xb
0x42e8…4303 at000c = ╱ef╱$╱ // 0x42f4 @0xc
0x42e8…4303 at000d = ╱ec╱,╱ // 0x42f5 @0xd
0x42e8…4303 at000e = ╱55╱U╱ // 0x42f6 @0xe
0x42e8…4303 at000f = ╱42╱B╱ // 0x42f7 @0xf
0x42e8…4303 at0010 = ╱45╱E╱ // 0x42f8 @0x10
0x42e8…4303 at0011 = ╱4c╱L╱ // 0x42f9 @0x11
0x42e8…4303 at0012 = ╱5c╱Ø╱ // 0x42fa @0x12
0x42e8…4303 at0013 = ╱42╱B╱ // 0x42fb @0x13
0x42e8…4303 at0014 = ╱ef╱$╱ // 0x42fc @0x14
0x42e8…4303 at0015 = ╱ec╱,╱ // 0x42fd @0x15
0x42e8…4303 at0016 = ╱42╱B╱ // 0x42fe @0x16
0x42e8…4303 at0017 = ╱ec╱,╱ // 0x42ff @0x17
0x42e8…4303 at0018 = ╱42╱B╱ // 0x4300 @0x18
0x42e8…4303 at0019 = ╱ee╱)╱ // 0x4301 @0x19
0x42e8…4303 at001a = EOL // 0x4302 @0x1a
0x42e8…4303 }
0x4303…4325 d07c 7130 PRINT TAB(35);STREG$(E:43)
0x4303…4325 LineComalBin {
0x4303…4325 ptr = 0xd07c // 0x4303 @0x0
0x4303…4325 lno = 0x1bda // 0x4305 @0x2
0x4303…4325 at0004 = ╱92╱ PRINT ╱ // 0x4307 @0x4
0x4303…4325 at0005 = ╱d2╱TAB╱ // 0x4308 @0x5
0x4303…4325 at0006 = ╱ed╱(╱ // 0x4309 @0x6
0x4303…4325 at0007 = ╱33╱3╱ // 0x430a @0x7
0x4303…4325 at0008 = ╱35╱5╱ // 0x430b @0x8
0x4303…4325 at0009 = ╱fe00008c06╱ // 0x430c @0x9
0x4303…4325 at000e = ╱ee╱)╱ // 0x4311 @0xe
0x4303…4325 at000f = ╱eb╱;╱ // 0x4312 @0xf
0x4303…4325 at0010 = ╱53╱S╱ // 0x4313 @0x10
0x4303…4325 at0011 = ╱54╱T╱ // 0x4314 @0x11
0x4303…4325 at0012 = ╱52╱R╱ // 0x4315 @0x12
0x4303…4325 at0013 = ╱45╱E╱ // 0x4316 @0x13
0x4303…4325 at0014 = ╱47╱G╱ // 0x4317 @0x14
0x4303…4325 at0015 = ╱ef╱$╱ // 0x4318 @0x15
0x4303…4325 at0016 = ╱ed╱(╱ // 0x4319 @0x16
0x4303…4325 at0017 = ╱45╱E╱ // 0x431a @0x17
0x4303…4325 at0018 = ╱f0╱:╱ // 0x431b @0x18
0x4303…4325 at0019 = ╱34╱4╱ // 0x431c @0x19
0x4303…4325 at001a = ╱33╱3╱ // 0x431d @0x1a
0x4303…4325 at001b = ╱fe0000ac06╱ // 0x431e @0x1b
0x4303…4325 at0020 = ╱ee╱)╱ // 0x4323 @0x20
0x4303…4325 at0021 = EOL // 0x4324 @0x21
0x4303…4325 }
0x4325…436f d0c6 7140 PRINT TAB(35);"Ny saldo";TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$
0x4325…436f LineComalBin {
0x4325…436f ptr = 0xd0c6 // 0x4325 @0x0
0x4325…436f lno = 0x1be4 // 0x4327 @0x2
0x4325…436f at0004 = ╱92╱ PRINT ╱ // 0x4329 @0x4
0x4325…436f at0005 = ╱d2╱TAB╱ // 0x432a @0x5
0x4325…436f at0006 = ╱ed╱(╱ // 0x432b @0x6
0x4325…436f at0007 = ╱33╱3╱ // 0x432c @0x7
0x4325…436f at0008 = ╱35╱5╱ // 0x432d @0x8
0x4325…436f at0009 = ╱fe00008c06╱ // 0x432e @0x9
0x4325…436f at000e = ╱ee╱)╱ // 0x4333 @0xe
0x4325…436f at000f = ╱eb╱;╱ // 0x4334 @0xf
0x4325…436f at0010 = ╱22╱"╱ // 0x4335 @0x10
0x4325…436f at0011 = ╱4e╱N╱ // 0x4336 @0x11
0x4325…436f at0012 = ╱79╱y╱ // 0x4337 @0x12
0x4325…436f at0013 = ╱20╱…╱ // 0x4338 @0x13
0x4325…436f at0014 = ╱73╱s╱ // 0x4339 @0x14
0x4325…436f at0015 = ╱61╱a╱ // 0x433a @0x15
0x4325…436f at0016 = ╱6c╱l╱ // 0x433b @0x16
0x4325…436f at0017 = ╱64╱d╱ // 0x433c @0x17
0x4325…436f at0018 = ╱6f╱o╱ // 0x433d @0x18
0x4325…436f at0019 = ╱22╱"╱ // 0x433e @0x19
0x4325…436f at001a = ╱eb╱;╱ // 0x433f @0x1a
0x4325…436f at001b = ╱d2╱TAB╱ // 0x4340 @0x1b
0x4325…436f at001c = ╱ed╱(╱ // 0x4341 @0x1c
0x4325…436f at001d = ╱35╱5╱ // 0x4342 @0x1d
0x4325…436f at001e = ╱31╱1╱ // 0x4343 @0x1e
0x4325…436f at001f = ╱fe0000cc06╱ // 0x4344 @0x1f
0x4325…436f at0024 = ╱e2╱+╱ // 0x4349 @0x24
0x4325…436f at0025 = ╱31╱1╱ // 0x434a @0x25
0x4325…436f at0026 = ╱35╱5╱ // 0x434b @0x26
0x4325…436f at0027 = ╱fe0000f004╱ // 0x434c @0x27
0x4325…436f at002c = ╱e4╱*╱ // 0x4351 @0x2c
0x4325…436f at002d = ╱ed╱(╱ // 0x4352 @0x2d
0x4325…436f at002e = ╱53╱S╱ // 0x4353 @0x2e
0x4325…436f at002f = ╱55╱U╱ // 0x4354 @0x2f
0x4325…436f at0030 = ╱4d╱M╱ // 0x4355 @0x30
0x4325…436f at0031 = ╱ef╱$╱ // 0x4356 @0x31
0x4325…436f at0032 = ╱ed╱(╱ // 0x4357 @0x32
0x4325…436f at0033 = ╱cc╱LEN╱ // 0x4358 @0x33
0x4325…436f at0034 = ╱ed╱(╱ // 0x4359 @0x34
0x4325…436f at0035 = ╱53╱S╱ // 0x435a @0x35
0x4325…436f at0036 = ╱55╱U╱ // 0x435b @0x36
0x4325…436f at0037 = ╱4d╱M╱ // 0x435c @0x37
0x4325…436f at0038 = ╱ef╱$╱ // 0x435d @0x38
0x4325…436f at0039 = ╱ee╱)╱ // 0x435e @0x39
0x4325…436f at003a = ╱ee╱)╱ // 0x435f @0x3a
0x4325…436f at003b = ╱dc╱=╱ // 0x4360 @0x3b
0x4325…436f at003c = ╱22╱"╱ // 0x4361 @0x3c
0x4325…436f at003d = ╱2d╱-╱ // 0x4362 @0x3d
0x4325…436f at003e = ╱22╱"╱ // 0x4363 @0x3e
0x4325…436f at003f = ╱ee╱)╱ // 0x4364 @0x3f
0x4325…436f at0040 = ╱ee╱)╱ // 0x4365 @0x40
0x4325…436f at0041 = ╱eb╱;╱ // 0x4366 @0x41
0x4325…436f at0042 = ╱55╱U╱ // 0x4367 @0x42
0x4325…436f at0043 = ╱42╱B╱ // 0x4368 @0x43
0x4325…436f at0044 = ╱45╱E╱ // 0x4369 @0x44
0x4325…436f at0045 = ╱4c╱L╱ // 0x436a @0x45
0x4325…436f at0046 = ╱5c╱Ø╱ // 0x436b @0x46
0x4325…436f at0047 = ╱42╱B╱ // 0x436c @0x47
0x4325…436f at0048 = ╱ef╱$╱ // 0x436d @0x48
0x4325…436f at0049 = EOL // 0x436e @0x49
0x4325…436f }
0x436f…4375 d0cc 7150 ELSE
0x436f…4375 LineComalBin {
0x436f…4375 ptr = 0xd0cc // 0x436f @0x0
0x436f…4375 lno = 0x1bee // 0x4371 @0x2
0x436f…4375 at0004 = ╱9a╱ ELSE ╱ // 0x4373 @0x4
0x436f…4375 at0005 = EOL // 0x4374 @0x5
0x436f…4375 }
0x4375…4382 d0d9 7160 CASE KTAL1 OF
0x4375…4382 LineComalBin {
0x4375…4382 ptr = 0xd0d9 // 0x4375 @0x0
0x4375…4382 lno = 0x1bf8 // 0x4377 @0x2
0x4375…4382 at0004 = ╱a201╱ CASE ╱ // 0x4379 @0x4
0x4375…4382 at0006 = ╱4b╱K╱ // 0x437b @0x6
0x4375…4382 at0007 = ╱54╱T╱ // 0x437c @0x7
0x4375…4382 at0008 = ╱41╱A╱ // 0x437d @0x8
0x4375…4382 at0009 = ╱4c╱L╱ // 0x437e @0x9
0x4375…4382 at000a = ╱31╱1╱ // 0x437f @0xa
0x4375…4382 at000b = ╱ba╱ OF ╱ // 0x4380 @0xb
0x4375…4382 at000c = EOL // 0x4381 @0xc
0x4375…4382 }
0x4382…43cf d126 7170 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE)
0x4382…43cf LineComalBin {
0x4382…43cf ptr = 0xd126 // 0x4382 @0x0
0x4382…43cf lno = 0x1c02 // 0x4384 @0x2
0x4382…43cf at0004 = ╱9d╱ EXEC ╱ // 0x4386 @0x4
0x4382…43cf at0005 = ╱42╱B╱ // 0x4387 @0x5
0x4382…43cf at0006 = ╱55╱U╱ // 0x4388 @0x6
0x4382…43cf at0007 = ╱44╱D╱ // 0x4389 @0x7
0x4382…43cf at0008 = ╱53╱S╱ // 0x438a @0x8
0x4382…43cf at0009 = ╱4b╱K╱ // 0x438b @0x9
0x4382…43cf at000a = ╱52╱R╱ // 0x438c @0xa
0x4382…43cf at000b = ╱49╱I╱ // 0x438d @0xb
0x4382…43cf at000c = ╱56╱V╱ // 0x438e @0xc
0x4382…43cf at000d = ╱ed╱(╱ // 0x438f @0xd
0x4382…43cf at000e = ╱54╱T╱ // 0x4390 @0xe
0x4382…43cf at000f = ╱41╱A╱ // 0x4391 @0xf
0x4382…43cf at0010 = ╱4c╱L╱ // 0x4392 @0x10
0x4382…43cf at0011 = ╱34╱4╱ // 0x4393 @0x11
0x4382…43cf at0012 = ╱ef╱$╱ // 0x4394 @0x12
0x4382…43cf at0013 = ╱ec╱,╱ // 0x4395 @0x13
0x4382…43cf at0014 = ╱33╱3╱ // 0x4396 @0x14
0x4382…43cf at0015 = ╱fe0000c002╱ // 0x4397 @0x15
0x4382…43cf at001a = ╱ec╱,╱ // 0x439c @0x1a
0x4382…43cf at001b = ╱53╱S╱ // 0x439d @0x1b
0x4382…43cf at001c = ╱55╱U╱ // 0x439e @0x1c
0x4382…43cf at001d = ╱4d╱M╱ // 0x439f @0x1d
0x4382…43cf at001e = ╱ef╱$╱ // 0x43a0 @0x1e
0x4382…43cf at001f = ╱ec╱,╱ // 0x43a1 @0x1f
0x4382…43cf at0020 = ╱46╱F╱ // 0x43a2 @0x20
0x4382…43cf at0021 = ╱4d╱M╱ // 0x43a3 @0x21
0x4382…43cf at0022 = ╱44╱D╱ // 0x43a4 @0x22
0x4382…43cf at0023 = ╱45╱E╱ // 0x43a5 @0x23
0x4382…43cf at0024 = ╱42╱B╱ // 0x43a6 @0x24
0x4382…43cf at0025 = ╱45╱E╱ // 0x43a7 @0x25
0x4382…43cf at0026 = ╱54╱T╱ // 0x43a8 @0x26
0x4382…43cf at0027 = ╱ef╱$╱ // 0x43a9 @0x27
0x4382…43cf at0028 = ╱ec╱,╱ // 0x43aa @0x28
0x4382…43cf at0029 = ╱46╱F╱ // 0x43ab @0x29
0x4382…43cf at002a = ╱4d╱M╱ // 0x43ac @0x2a
0x4382…43cf at002b = ╱4b╱K╱ // 0x43ad @0x2b
0x4382…43cf at002c = ╱52╱R╱ // 0x43ae @0x2c
0x4382…43cf at002d = ╱45╱E╱ // 0x43af @0x2d
0x4382…43cf at002e = ╱44╱D╱ // 0x43b0 @0x2e
0x4382…43cf at002f = ╱49╱I╱ // 0x43b1 @0x2f
0x4382…43cf at0030 = ╱54╱T╱ // 0x43b2 @0x30
0x4382…43cf at0031 = ╱ef╱$╱ // 0x43b3 @0x31
0x4382…43cf at0032 = ╱ec╱,╱ // 0x43b4 @0x32
0x4382…43cf at0033 = ╱46╱F╱ // 0x43b5 @0x33
0x4382…43cf at0034 = ╱5d╱Å╱ // 0x43b6 @0x34
0x4382…43cf at0035 = ╱44╱D╱ // 0x43b7 @0x35
0x4382…43cf at0036 = ╱45╱E╱ // 0x43b8 @0x36
0x4382…43cf at0037 = ╱42╱B╱ // 0x43b9 @0x37
0x4382…43cf at0038 = ╱45╱E╱ // 0x43ba @0x38
0x4382…43cf at0039 = ╱54╱T╱ // 0x43bb @0x39
0x4382…43cf at003a = ╱ef╱$╱ // 0x43bc @0x3a
0x4382…43cf at003b = ╱ec╱,╱ // 0x43bd @0x3b
0x4382…43cf at003c = ╱46╱F╱ // 0x43be @0x3c
0x4382…43cf at003d = ╱5d╱Å╱ // 0x43bf @0x3d
0x4382…43cf at003e = ╱4b╱K╱ // 0x43c0 @0x3e
0x4382…43cf at003f = ╱52╱R╱ // 0x43c1 @0x3f
0x4382…43cf at0040 = ╱45╱E╱ // 0x43c2 @0x40
0x4382…43cf at0041 = ╱44╱D╱ // 0x43c3 @0x41
0x4382…43cf at0042 = ╱49╱I╱ // 0x43c4 @0x42
0x4382…43cf at0043 = ╱54╱T╱ // 0x43c5 @0x43
0x4382…43cf at0044 = ╱ef╱$╱ // 0x43c6 @0x44
0x4382…43cf at0045 = ╱ec╱,╱ // 0x43c7 @0x45
0x4382…43cf at0046 = ╱4c╱L╱ // 0x43c8 @0x46
0x4382…43cf at0047 = ╱49╱I╱ // 0x43c9 @0x47
0x4382…43cf at0048 = ╱4e╱N╱ // 0x43ca @0x48
0x4382…43cf at0049 = ╱49╱I╱ // 0x43cb @0x49
0x4382…43cf at004a = ╱45╱E╱ // 0x43cc @0x4a
0x4382…43cf at004b = ╱ee╱)╱ // 0x43cd @0x4b
0x4382…43cf at004c = EOL // 0x43ce @0x4c
0x4382…43cf }
0x43cf…43da d131 7180 WHEN DTAL
0x43cf…43da LineComalBin {
0x43cf…43da ptr = 0xd131 // 0x43cf @0x0
0x43cf…43da lno = 0x1c0c // 0x43d1 @0x2
0x43cf…43da at0004 = ╱a301╱ WHEN ╱ // 0x43d3 @0x4
0x43cf…43da at0006 = ╱44╱D╱ // 0x43d5 @0x6
0x43cf…43da at0007 = ╱54╱T╱ // 0x43d6 @0x7
0x43cf…43da at0008 = ╱41╱A╱ // 0x43d7 @0x8
0x43cf…43da at0009 = ╱4c╱L╱ // 0x43d8 @0x9
0x43cf…43da at000a = EOL // 0x43d9 @0xa
0x43cf…43da }
0x43da…4427 d17e 7190 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE)
0x43da…4427 LineComalBin {
0x43da…4427 ptr = 0xd17e // 0x43da @0x0
0x43da…4427 lno = 0x1c16 // 0x43dc @0x2
0x43da…4427 at0004 = ╱9d╱ EXEC ╱ // 0x43de @0x4
0x43da…4427 at0005 = ╱42╱B╱ // 0x43df @0x5
0x43da…4427 at0006 = ╱55╱U╱ // 0x43e0 @0x6
0x43da…4427 at0007 = ╱44╱D╱ // 0x43e1 @0x7
0x43da…4427 at0008 = ╱53╱S╱ // 0x43e2 @0x8
0x43da…4427 at0009 = ╱4b╱K╱ // 0x43e3 @0x9
0x43da…4427 at000a = ╱52╱R╱ // 0x43e4 @0xa
0x43da…4427 at000b = ╱49╱I╱ // 0x43e5 @0xb
0x43da…4427 at000c = ╱56╱V╱ // 0x43e6 @0xc
0x43da…4427 at000d = ╱ed╱(╱ // 0x43e7 @0xd
0x43da…4427 at000e = ╱4d╱M╱ // 0x43e8 @0xe
0x43da…4427 at000f = ╱44╱D╱ // 0x43e9 @0xf
0x43da…4427 at0010 = ╱4e╱N╱ // 0x43ea @0x10
0x43da…4427 at0011 = ╱4b╱K╱ // 0x43eb @0x11
0x43da…4427 at0012 = ╱5c╱Ø╱ // 0x43ec @0x12
0x43da…4427 at0013 = ╱42╱B╱ // 0x43ed @0x13
0x43da…4427 at0014 = ╱ef╱$╱ // 0x43ee @0x14
0x43da…4427 at0015 = ╱ec╱,╱ // 0x43ef @0x15
0x43da…4427 at0016 = ╱30╱0╱ // 0x43f0 @0x16
0x43da…4427 at0017 = ╱fe00000000╱ // 0x43f1 @0x17
0x43da…4427 at001c = ╱ec╱,╱ // 0x43f6 @0x1c
0x43da…4427 at001d = ╱53╱S╱ // 0x43f7 @0x1d
0x43da…4427 at001e = ╱55╱U╱ // 0x43f8 @0x1e
0x43da…4427 at001f = ╱4d╱M╱ // 0x43f9 @0x1f
0x43da…4427 at0020 = ╱ef╱$╱ // 0x43fa @0x20
0x43da…4427 at0021 = ╱ec╱,╱ // 0x43fb @0x21
0x43da…4427 at0022 = ╱44╱D╱ // 0x43fc @0x22
0x43da…4427 at0023 = ╱53╱S╱ // 0x43fd @0x23
0x43da…4427 at0024 = ╱41╱A╱ // 0x43fe @0x24
0x43da…4427 at0025 = ╱4c╱L╱ // 0x43ff @0x25
0x43da…4427 at0026 = ╱44╱D╱ // 0x4400 @0x26
0x43da…4427 at0027 = ╱4f╱O╱ // 0x4401 @0x27
0x43da…4427 at0028 = ╱31╱1╱ // 0x4402 @0x28
0x43da…4427 at0029 = ╱ef╱$╱ // 0x4403 @0x29
0x43da…4427 at002a = ╱ec╱,╱ // 0x4404 @0x2a
0x43da…4427 at002b = ╱44╱D╱ // 0x4405 @0x2b
0x43da…4427 at002c = ╱53╱S╱ // 0x4406 @0x2c
0x43da…4427 at002d = ╱41╱A╱ // 0x4407 @0x2d
0x43da…4427 at002e = ╱4c╱L╱ // 0x4408 @0x2e
0x43da…4427 at002f = ╱44╱D╱ // 0x4409 @0x2f
0x43da…4427 at0030 = ╱4f╱O╱ // 0x440a @0x30
0x43da…4427 at0031 = ╱32╱2╱ // 0x440b @0x31
0x43da…4427 at0032 = ╱ef╱$╱ // 0x440c @0x32
0x43da…4427 at0033 = ╱ec╱,╱ // 0x440d @0x33
0x43da…4427 at0034 = ╱44╱D╱ // 0x440e @0x34
0x43da…4427 at0035 = ╱53╱S╱ // 0x440f @0x35
0x43da…4427 at0036 = ╱41╱A╱ // 0x4410 @0x36
0x43da…4427 at0037 = ╱4c╱L╱ // 0x4411 @0x37
0x43da…4427 at0038 = ╱44╱D╱ // 0x4412 @0x38
0x43da…4427 at0039 = ╱4f╱O╱ // 0x4413 @0x39
0x43da…4427 at003a = ╱33╱3╱ // 0x4414 @0x3a
0x43da…4427 at003b = ╱ef╱$╱ // 0x4415 @0x3b
0x43da…4427 at003c = ╱ec╱,╱ // 0x4416 @0x3c
0x43da…4427 at003d = ╱44╱D╱ // 0x4417 @0x3d
0x43da…4427 at003e = ╱53╱S╱ // 0x4418 @0x3e
0x43da…4427 at003f = ╱41╱A╱ // 0x4419 @0x3f
0x43da…4427 at0040 = ╱4c╱L╱ // 0x441a @0x40
0x43da…4427 at0041 = ╱44╱D╱ // 0x441b @0x41
0x43da…4427 at0042 = ╱4f╱O╱ // 0x441c @0x42
0x43da…4427 at0043 = ╱34╱4╱ // 0x441d @0x43
0x43da…4427 at0044 = ╱ef╱$╱ // 0x441e @0x44
0x43da…4427 at0045 = ╱ec╱,╱ // 0x441f @0x45
0x43da…4427 at0046 = ╱4c╱L╱ // 0x4420 @0x46
0x43da…4427 at0047 = ╱49╱I╱ // 0x4421 @0x47
0x43da…4427 at0048 = ╱4e╱N╱ // 0x4422 @0x48
0x43da…4427 at0049 = ╱49╱I╱ // 0x4423 @0x49
0x43da…4427 at004a = ╱45╱E╱ // 0x4424 @0x4a
0x43da…4427 at004b = ╱ee╱)╱ // 0x4425 @0x4b
0x43da…4427 at004c = EOL // 0x4426 @0x4c
0x43da…4427 }
0x4427…4433 d18a 7200 WHEN KRTAL
0x4427…4433 LineComalBin {
0x4427…4433 ptr = 0xd18a // 0x4427 @0x0
0x4427…4433 lno = 0x1c20 // 0x4429 @0x2
0x4427…4433 at0004 = ╱a301╱ WHEN ╱ // 0x442b @0x4
0x4427…4433 at0006 = ╱4b╱K╱ // 0x442d @0x6
0x4427…4433 at0007 = ╱52╱R╱ // 0x442e @0x7
0x4427…4433 at0008 = ╱54╱T╱ // 0x442f @0x8
0x4427…4433 at0009 = ╱41╱A╱ // 0x4430 @0x9
0x4427…4433 at000a = ╱4c╱L╱ // 0x4431 @0xa
0x4427…4433 at000b = EOL // 0x4432 @0xb
0x4427…4433 }
0x4433…4478 d1cf 7210 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE)
0x4433…4478 LineComalBin {
0x4433…4478 ptr = 0xd1cf // 0x4433 @0x0
0x4433…4478 lno = 0x1c2a // 0x4435 @0x2
0x4433…4478 at0004 = ╱9d╱ EXEC ╱ // 0x4437 @0x4
0x4433…4478 at0005 = ╱42╱B╱ // 0x4438 @0x5
0x4433…4478 at0006 = ╱55╱U╱ // 0x4439 @0x6
0x4433…4478 at0007 = ╱44╱D╱ // 0x443a @0x7
0x4433…4478 at0008 = ╱53╱S╱ // 0x443b @0x8
0x4433…4478 at0009 = ╱4b╱K╱ // 0x443c @0x9
0x4433…4478 at000a = ╱52╱R╱ // 0x443d @0xa
0x4433…4478 at000b = ╱49╱I╱ // 0x443e @0xb
0x4433…4478 at000c = ╱56╱V╱ // 0x443f @0xc
0x4433…4478 at000d = ╱ed╱(╱ // 0x4440 @0xd
0x4433…4478 at000e = ╱54╱T╱ // 0x4441 @0xe
0x4433…4478 at000f = ╱41╱A╱ // 0x4442 @0xf
0x4433…4478 at0010 = ╱4c╱L╱ // 0x4443 @0x10
0x4433…4478 at0011 = ╱34╱4╱ // 0x4444 @0x11
0x4433…4478 at0012 = ╱ef╱$╱ // 0x4445 @0x12
0x4433…4478 at0013 = ╱ec╱,╱ // 0x4446 @0x13
0x4433…4478 at0014 = ╱34╱4╱ // 0x4447 @0x14
0x4433…4478 at0015 = ╱fe00008003╱ // 0x4448 @0x15
0x4433…4478 at001a = ╱ec╱,╱ // 0x444d @0x1a
0x4433…4478 at001b = ╱53╱S╱ // 0x444e @0x1b
0x4433…4478 at001c = ╱55╱U╱ // 0x444f @0x1c
0x4433…4478 at001d = ╱4d╱M╱ // 0x4450 @0x1d
0x4433…4478 at001e = ╱ef╱$╱ // 0x4451 @0x1e
0x4433…4478 at001f = ╱ec╱,╱ // 0x4452 @0x1f
0x4433…4478 at0020 = ╱4b╱K╱ // 0x4453 @0x20
0x4433…4478 at0021 = ╱53╱S╱ // 0x4454 @0x21
0x4433…4478 at0022 = ╱41╱A╱ // 0x4455 @0x22
0x4433…4478 at0023 = ╱4c╱L╱ // 0x4456 @0x23
0x4433…4478 at0024 = ╱44╱D╱ // 0x4457 @0x24
0x4433…4478 at0025 = ╱4f╱O╱ // 0x4458 @0x25
0x4433…4478 at0026 = ╱31╱1╱ // 0x4459 @0x26
0x4433…4478 at0027 = ╱ef╱$╱ // 0x445a @0x27
0x4433…4478 at0028 = ╱ec╱,╱ // 0x445b @0x28
0x4433…4478 at0029 = ╱54╱T╱ // 0x445c @0x29
0x4433…4478 at002a = ╱41╱A╱ // 0x445d @0x2a
0x4433…4478 at002b = ╱4c╱L╱ // 0x445e @0x2b
0x4433…4478 at002c = ╱34╱4╱ // 0x445f @0x2c
0x4433…4478 at002d = ╱ef╱$╱ // 0x4460 @0x2d
0x4433…4478 at002e = ╱ec╱,╱ // 0x4461 @0x2e
0x4433…4478 at002f = ╱54╱T╱ // 0x4462 @0x2f
0x4433…4478 at0030 = ╱41╱A╱ // 0x4463 @0x30
0x4433…4478 at0031 = ╱4c╱L╱ // 0x4464 @0x31
0x4433…4478 at0032 = ╱34╱4╱ // 0x4465 @0x32
0x4433…4478 at0033 = ╱ef╱$╱ // 0x4466 @0x33
0x4433…4478 at0034 = ╱ec╱,╱ // 0x4467 @0x34
0x4433…4478 at0035 = ╱4b╱K╱ // 0x4468 @0x35
0x4433…4478 at0036 = ╱53╱S╱ // 0x4469 @0x36
0x4433…4478 at0037 = ╱41╱A╱ // 0x446a @0x37
0x4433…4478 at0038 = ╱4c╱L╱ // 0x446b @0x38
0x4433…4478 at0039 = ╱44╱D╱ // 0x446c @0x39
0x4433…4478 at003a = ╱4f╱O╱ // 0x446d @0x3a
0x4433…4478 at003b = ╱32╱2╱ // 0x446e @0x3b
0x4433…4478 at003c = ╱ef╱$╱ // 0x446f @0x3c
0x4433…4478 at003d = ╱ec╱,╱ // 0x4470 @0x3d
0x4433…4478 at003e = ╱4c╱L╱ // 0x4471 @0x3e
0x4433…4478 at003f = ╱49╱I╱ // 0x4472 @0x3f
0x4433…4478 at0040 = ╱4e╱N╱ // 0x4473 @0x40
0x4433…4478 at0041 = ╱49╱I╱ // 0x4474 @0x41
0x4433…4478 at0042 = ╱45╱E╱ // 0x4475 @0x42
0x4433…4478 at0043 = ╱ee╱)╱ // 0x4476 @0x43
0x4433…4478 at0044 = EOL // 0x4477 @0x44
0x4433…4478 }
0x4478…447e d1d5 7220 ENDCASE
0x4478…447e LineComalBin {
0x4478…447e ptr = 0xd1d5 // 0x4478 @0x0
0x4478…447e lno = 0x1c34 // 0x447a @0x2
0x4478…447e at0004 = ╱a4╱ ENDCASE ╱ // 0x447c @0x4
0x4478…447e at0005 = EOL // 0x447d @0x5
0x4478…447e }
0x447e…4484 d1db 7230 ENDIF
0x447e…4484 LineComalBin {
0x447e…4484 ptr = 0xd1db // 0x447e @0x0
0x447e…4484 lno = 0x1c3e // 0x4480 @0x2
0x447e…4484 at0004 = ╱9b╱ ENDIF ╱ // 0x4482 @0x4
0x447e…4484 at0005 = EOL // 0x4483 @0x5
0x447e…4484 }
0x4484…448b d1e2 7240 OUTPUT T
0x4484…448b LineComalBin {
0x4484…448b ptr = 0xd1e2 // 0x4484 @0x0
0x4484…448b lno = 0x1c48 // 0x4486 @0x2
0x4484…448b at0004 = ╱a5╱ OUTPUT ╱ // 0x4488 @0x4
0x4484…448b at0005 = ╱54╱T╱ // 0x4489 @0x5
0x4484…448b at0006 = EOL // 0x448a @0x6
0x4484…448b }
0x448b…44c6 d21d 7250 EXEC INDPUT1(4,23,-9,-6,LTX$(10))
0x448b…44c6 LineComalBin {
0x448b…44c6 ptr = 0xd21d // 0x448b @0x0
0x448b…44c6 lno = 0x1c52 // 0x448d @0x2
0x448b…44c6 at0004 = ╱9d╱ EXEC ╱ // 0x448f @0x4
0x448b…44c6 at0005 = ╱49╱I╱ // 0x4490 @0x5
0x448b…44c6 at0006 = ╱4e╱N╱ // 0x4491 @0x6
0x448b…44c6 at0007 = ╱44╱D╱ // 0x4492 @0x7
0x448b…44c6 at0008 = ╱50╱P╱ // 0x4493 @0x8
0x448b…44c6 at0009 = ╱55╱U╱ // 0x4494 @0x9
0x448b…44c6 at000a = ╱54╱T╱ // 0x4495 @0xa
0x448b…44c6 at000b = ╱31╱1╱ // 0x4496 @0xb
0x448b…44c6 at000c = ╱ed╱(╱ // 0x4497 @0xc
0x448b…44c6 at000d = ╱34╱4╱ // 0x4498 @0xd
0x448b…44c6 at000e = ╱fe00008003╱ // 0x4499 @0xe
0x448b…44c6 at0013 = ╱ec╱,╱ // 0x449e @0x13
0x448b…44c6 at0014 = ╱32╱2╱ // 0x449f @0x14
0x448b…44c6 at0015 = ╱33╱3╱ // 0x44a0 @0x15
0x448b…44c6 at0016 = ╱fe0000b805╱ // 0x44a1 @0x16
0x448b…44c6 at001b = ╱ec╱,╱ // 0x44a6 @0x1b
0x448b…44c6 at001c = ╱e9╱-╱ // 0x44a7 @0x1c
0x448b…44c6 at001d = ╱39╱9╱ // 0x44a8 @0x1d
0x448b…44c6 at001e = ╱fe00009004╱ // 0x44a9 @0x1e
0x448b…44c6 at0023 = ╱ec╱,╱ // 0x44ae @0x23
0x448b…44c6 at0024 = ╱e9╱-╱ // 0x44af @0x24
0x448b…44c6 at0025 = ╱36╱6╱ // 0x44b0 @0x25
0x448b…44c6 at0026 = ╱fe0000c003╱ // 0x44b1 @0x26
0x448b…44c6 at002b = ╱ec╱,╱ // 0x44b6 @0x2b
0x448b…44c6 at002c = ╱4c╱L╱ // 0x44b7 @0x2c
0x448b…44c6 at002d = ╱54╱T╱ // 0x44b8 @0x2d
0x448b…44c6 at002e = ╱58╱X╱ // 0x44b9 @0x2e
0x448b…44c6 at002f = ╱ef╱$╱ // 0x44ba @0x2f
0x448b…44c6 at0030 = ╱ed╱(╱ // 0x44bb @0x30
0x448b…44c6 at0031 = ╱31╱1╱ // 0x44bc @0x31
0x448b…44c6 at0032 = ╱30╱0╱ // 0x44bd @0x32
0x448b…44c6 at0033 = ╱fe0000a004╱ // 0x44be @0x33
0x448b…44c6 at0038 = ╱ee╱)╱ // 0x44c3 @0x38
0x448b…44c6 at0039 = ╱ee╱)╱ // 0x44c4 @0x39
0x448b…44c6 at003a = EOL // 0x44c5 @0x3a
0x448b…44c6 }
0x44c6…44d6 d22d 7260 IF P=-7 THEN
0x44c6…44d6 LineComalBin {
0x44c6…44d6 ptr = 0xd22d // 0x44c6 @0x0
0x44c6…44d6 lno = 0x1c5c // 0x44c8 @0x2
0x44c6…44d6 at0004 = ╱9c╱ IF ╱ // 0x44ca @0x4
0x44c6…44d6 at0005 = ╱50╱P╱ // 0x44cb @0x5
0x44c6…44d6 at0006 = ╱dc╱=╱ // 0x44cc @0x6
0x44c6…44d6 at0007 = ╱e9╱-╱ // 0x44cd @0x7
0x44c6…44d6 at0008 = ╱37╱7╱ // 0x44ce @0x8
0x44c6…44d6 at0009 = ╱fe0000e003╱ // 0x44cf @0x9
0x44c6…44d6 at000e = ╱b6╱ THEN ╱ // 0x44d4 @0xe
0x44c6…44d6 at000f = EOL // 0x44d5 @0xf
0x44c6…44d6 }
0x44d6…44e4 d23b 7270 EXEC STARTBIL
0x44d6…44e4 LineComalBin {
0x44d6…44e4 ptr = 0xd23b // 0x44d6 @0x0
0x44d6…44e4 lno = 0x1c66 // 0x44d8 @0x2
0x44d6…44e4 at0004 = ╱9d╱ EXEC ╱ // 0x44da @0x4
0x44d6…44e4 at0005 = ╱53╱S╱ // 0x44db @0x5
0x44d6…44e4 at0006 = ╱54╱T╱ // 0x44dc @0x6
0x44d6…44e4 at0007 = ╱41╱A╱ // 0x44dd @0x7
0x44d6…44e4 at0008 = ╱52╱R╱ // 0x44de @0x8
0x44d6…44e4 at0009 = ╱54╱T╱ // 0x44df @0x9
0x44d6…44e4 at000a = ╱42╱B╱ // 0x44e0 @0xa
0x44d6…44e4 at000b = ╱49╱I╱ // 0x44e1 @0xb
0x44d6…44e4 at000c = ╱4c╱L╱ // 0x44e2 @0xc
0x44d6…44e4 at000d = EOL // 0x44e3 @0xd
0x44d6…44e4 }
0x44e4…44ea d241 7280 ELSE
0x44e4…44ea LineComalBin {
0x44e4…44ea ptr = 0xd241 // 0x44e4 @0x0
0x44e4…44ea lno = 0x1c70 // 0x44e6 @0x2
0x44e4…44ea at0004 = ╱9a╱ ELSE ╱ // 0x44e8 @0x4
0x44e4…44ea at0005 = EOL // 0x44e9 @0x5
0x44e4…44ea }
0x44ea…44f5 d24c 7290 KONT=B
0x44ea…44f5 LineComalBin {
0x44ea…44f5 ptr = 0xd24c // 0x44ea @0x0
0x44ea…44f5 lno = 0x1c7a // 0x44ec @0x2
0x44ea…44f5 at0004 = ╱4b╱K╱ // 0x44ee @0x4
0x44ea…44f5 at0005 = ╱4f╱O╱ // 0x44ef @0x5
0x44ea…44f5 at0006 = ╱4e╱N╱ // 0x44f0 @0x6
0x44ea…44f5 at0007 = ╱54╱T╱ // 0x44f1 @0x7
0x44ea…44f5 at0008 = ╱dc╱=╱ // 0x44f2 @0x8
0x44ea…44f5 at0009 = ╱42╱B╱ // 0x44f3 @0x9
0x44ea…44f5 at000a = EOL // 0x44f4 @0xa
0x44ea…44f5 }
0x44f5…44fb d252 7300 ENDIF
0x44f5…44fb LineComalBin {
0x44f5…44fb ptr = 0xd252 // 0x44f5 @0x0
0x44f5…44fb lno = 0x1c84 // 0x44f7 @0x2
0x44f5…44fb at0004 = ╱9b╱ ENDIF ╱ // 0x44f9 @0x4
0x44f5…44fb at0005 = EOL // 0x44fa @0x5
0x44f5…44fb }
0x44fb…4507 d25e 7310 UNTIL KONT=B
0x44fb…4507 LineComalBin {
0x44fb…4507 ptr = 0xd25e // 0x44fb @0x0
0x44fb…4507 lno = 0x1c8e // 0x44fd @0x2
0x44fb…4507 at0004 = ╱98╱ UNTIL ╱ // 0x44ff @0x4
0x44fb…4507 at0005 = ╱4b╱K╱ // 0x4500 @0x5
0x44fb…4507 at0006 = ╱4f╱O╱ // 0x4501 @0x6
0x44fb…4507 at0007 = ╱4e╱N╱ // 0x4502 @0x7
0x44fb…4507 at0008 = ╱54╱T╱ // 0x4503 @0x8
0x44fb…4507 at0009 = ╱dc╱=╱ // 0x4504 @0x9
0x44fb…4507 at000a = ╱42╱B╱ // 0x4505 @0xa
0x44fb…4507 at000b = EOL // 0x4506 @0xb
0x44fb…4507 }
0x4507…450d d264 7320 ENDIF
0x4507…450d LineComalBin {
0x4507…450d ptr = 0xd264 // 0x4507 @0x0
0x4507…450d lno = 0x1c98 // 0x4509 @0x2
0x4507…450d at0004 = ╱9b╱ ENDIF ╱ // 0x450b @0x4
0x4507…450d at0005 = EOL // 0x450c @0x5
0x4507…450d }
0x450d…4514 d26b 7330 OUTPUT T
0x450d…4514 LineComalBin {
0x450d…4514 ptr = 0xd26b // 0x450d @0x0
0x450d…4514 lno = 0x1ca2 // 0x450f @0x2
0x450d…4514 at0004 = ╱a5╱ OUTPUT ╱ // 0x4511 @0x4
0x450d…4514 at0005 = ╱54╱T╱ // 0x4512 @0x5
0x450d…4514 at0006 = EOL // 0x4513 @0x6
0x450d…4514 }
0x4514…451a d271 7340 CLEAR
0x4514…451a LineComalBin {
0x4514…451a ptr = 0xd271 // 0x4514 @0x0
0x4514…451a lno = 0x1cac // 0x4516 @0x2
0x4514…451a at0004 = ╱a0╱ CLEAR ╱ // 0x4518 @0x4
0x4514…451a at0005 = EOL // 0x4519 @0x5
0x4514…451a }
0x451a…453c d293 7350 IF MAFSLUT=E THEN CHAIN "P641210:ENTKSP1"
0x451a…453c LineComalBin {
0x451a…453c ptr = 0xd293 // 0x451a @0x0
0x451a…453c lno = 0x1cb6 // 0x451c @0x2
0x451a…453c at0004 = ╱82╱ IF ╱ // 0x451e @0x4
0x451a…453c at0005 = ╱4d╱M╱ // 0x451f @0x5
0x451a…453c at0006 = ╱41╱A╱ // 0x4520 @0x6
0x451a…453c at0007 = ╱46╱F╱ // 0x4521 @0x7
0x451a…453c at0008 = ╱53╱S╱ // 0x4522 @0x8
0x451a…453c at0009 = ╱4c╱L╱ // 0x4523 @0x9
0x451a…453c at000a = ╱55╱U╱ // 0x4524 @0xa
0x451a…453c at000b = ╱54╱T╱ // 0x4525 @0xb
0x451a…453c at000c = ╱dc╱=╱ // 0x4526 @0xc
0x451a…453c at000d = ╱45╱E╱ // 0x4527 @0xd
0x451a…453c at000e = ╱b6╱ THEN ╱ // 0x4528 @0xe
0x451a…453c at000f = ╱ac╱ CHAIN ╱ // 0x4529 @0xf
0x451a…453c at0010 = ╱22╱"╱ // 0x452a @0x10
0x451a…453c at0011 = ╱50╱P╱ // 0x452b @0x11
0x451a…453c at0012 = ╱36╱6╱ // 0x452c @0x12
0x451a…453c at0013 = ╱34╱4╱ // 0x452d @0x13
0x451a…453c at0014 = ╱31╱1╱ // 0x452e @0x14
0x451a…453c at0015 = ╱32╱2╱ // 0x452f @0x15
0x451a…453c at0016 = ╱31╱1╱ // 0x4530 @0x16
0x451a…453c at0017 = ╱30╱0╱ // 0x4531 @0x17
0x451a…453c at0018 = ╱3a╱:╱ // 0x4532 @0x18
0x451a…453c at0019 = ╱45╱E╱ // 0x4533 @0x19
0x451a…453c at001a = ╱4e╱N╱ // 0x4534 @0x1a
0x451a…453c at001b = ╱54╱T╱ // 0x4535 @0x1b
0x451a…453c at001c = ╱4b╱K╱ // 0x4536 @0x1c
0x451a…453c at001d = ╱53╱S╱ // 0x4537 @0x1d
0x451a…453c at001e = ╱50╱P╱ // 0x4538 @0x1e
0x451a…453c at001f = ╱31╱1╱ // 0x4539 @0x1f
0x451a…453c at0020 = ╱22╱"╱ // 0x453a @0x20
0x451a…453c at0021 = EOL // 0x453b @0x21
0x451a…453c }
0x453c…4553 0000 7360 CHAIN "P641210:OPSTART"
0x453c…4553 LineComalBin {
0x453c…4553 ptr = 0x0000 // 0x453c @0x0
0x453c…4553 lno = 0x1cc0 // 0x453e @0x2
0x453c…4553 at0004 = ╱ac╱ CHAIN ╱ // 0x4540 @0x4
0x453c…4553 at0005 = ╱22╱"╱ // 0x4541 @0x5
0x453c…4553 at0006 = ╱50╱P╱ // 0x4542 @0x6
0x453c…4553 at0007 = ╱36╱6╱ // 0x4543 @0x7
0x453c…4553 at0008 = ╱34╱4╱ // 0x4544 @0x8
0x453c…4553 at0009 = ╱31╱1╱ // 0x4545 @0x9
0x453c…4553 at000a = ╱32╱2╱ // 0x4546 @0xa
0x453c…4553 at000b = ╱31╱1╱ // 0x4547 @0xb
0x453c…4553 at000c = ╱30╱0╱ // 0x4548 @0xc
0x453c…4553 at000d = ╱3a╱:╱ // 0x4549 @0xd
0x453c…4553 at000e = ╱4f╱O╱ // 0x454a @0xe
0x453c…4553 at000f = ╱50╱P╱ // 0x454b @0xf
0x453c…4553 at0010 = ╱53╱S╱ // 0x454c @0x10
0x453c…4553 at0011 = ╱54╱T╱ // 0x454d @0x11
0x453c…4553 at0012 = ╱41╱A╱ // 0x454e @0x12
0x453c…4553 at0013 = ╱52╱R╱ // 0x454f @0x13
0x453c…4553 at0014 = ╱54╱T╱ // 0x4550 @0x14
0x453c…4553 at0015 = ╱22╱"╱ // 0x4551 @0x15
0x453c…4553 at0016 = EOL // 0x4552 @0x16
0x453c…4553 }
0x4553…4560 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb ┆W Z B 0 ┆
0x4560…457b 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb ┆E 1 G 2 V 3 ┆
0x457b…4584 (231,) 57 dc 39 fe 00 00 90 04 ff ┆W 9 ┆
0x4584…458a (232,) 57 8d aa d2 10 00 ┆W ┆