|
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: 11500 (0x2cec)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »ENTKSP1.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ENTKSP1.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »ENTKSP1.B«
0100 DIM K1$(17),ENAVN$(29),MBEV$(12),YBEV$(12),K14$(17),K15$(17),K16$(17) 0110 DIM BLANK$(77),TAL4$(14),TAH$(12),A$(6),K17$(17),K18$(17),K19$(17) 0120 DIM RES$(15),OP2$(12),BELØB$(12),KTNR$(6),STREG$(77),TKODE$(E) 0130 DIM OP1$(12),TK$(V),TEKST$(25),TFIL$(20,10),FUKODE$(E),N$(6) 0140 DIM UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8),DV$(10),LTX$(6,52) 0150 DIM T1(W),T2(W),T3(W) 0160 DIM UBEL1$(14),UBEL2$(14) 0170 PROC CALC(AR3,B1,B2,ES) 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0190 CALL "P641210:REGN" 0200 ES$=RES$ 0210 IF AR3<6 THEN IF FLAG THEN STOP 0220 ENDPROC 0230 PROC TUD(BLB,UBLB,TEGN,STØR) 0240 EXEC CALC(5,BLB$,TAH$,UBLB$) 0250 IF TEGN=B THEN UBLB$=UBLB$(E:13) 0260 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN UBLB$(LEN(UBLB$))=" " 0270 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V) 0280 ENDPROC 0290 PROC FEJL(NR1,NR2,NR3) 0300 IF STATUS(NR3$)<>B THEN 0310 PRINT NR1,NR2,NR3$,STATUS(NR3$) 0320 STOP 0330 ENDIF 0340 ENDPROC 0350 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34) 0360 PPIL2=MPOSTANTAL6 DIV 40+E;PPIL1=B 0370 REPEAT 0380 PPIL3=(PPIL1+PPIL2) DIV G 0390 IF HTAB3(PPIL3,E)=NØGLE3 THEN EXIT 0400 IF HTAB3(PPIL3,E)>NØGLE3 THEN 0410 PPIL2=PPIL3 0420 ELSE 0430 PPIL1=PPIL3 0440 ENDIF 0450 UNTIL PPIL2<=PPIL1+E 0460 IF PPIL3>E AND HTAB3(PPIL3,E)=>NØGLE3 THEN 0470 REPEAT 0480 PPIL3=PPIL3-E 0490 UNTIL HTAB3(PPIL3,E)<NØGLE3 OR PPIL3=E 0500 ENDIF 0510 T=PPIL3 0520 IF HTAB3(PPIL3,G)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,E) THEN 0530 T=PPIL3+E 0540 IF HTAB3(PPIL3+E,E)>NØGLE3 THEN T=B 0550 ENDIF 0560 IF T<E THEN EXIT 0570 K=T+MPOSTANTAL6 DIV 160 0580 EXEC UNDIND(K34$,K,UTAB3) 0590 FOR I=4 TO E STEP -E 0600 IF UTAB3(I,E)<NØGLE3 THEN EXIT 0610 NEXT I 0620 IF I=B THEN I=E 0630 IF UTAB3(I,G)<NØGLE3 THEN 0640 T=(T-E)*40+I*10+E 0650 IF UTAB3(I+E,E)>NØGLE3 THEN T=B 0660 ELSE 0670 T=(T-E)*40+(I-E)*10+E 0680 ENDIF 0690 ENDPROC 0700 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3) 0710 OPEN K35$,R 0720 EXEC FEJL(E,E,K35$) 0730 FOR I=E TO 10 0740 GET K35$,T5:KTNUM 0750 EXEC FEJL(E,G,K35$) 0760 IF KTNUM=NØGLE4 OR MAFSLUT=E THEN EXIT 0770 T5=T5+E 0780 NEXT I 0790 IF KTNUM=NØGLE4 THEN 0800 FOR K=T5 TO MPOSTANTAL7 0810 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$,ENTKO 0820 EXEC FEJL(E,V,K35$) 0830 IF KONTO<>NØGLE4 THEN EXIT 0840 TKS=ORD(TKODE$)-48;TKS9=TKS-10*(TKS>20) 0850 IF TKS>W AND TKS<20 THEN 0860 K=K+E 0870 GET K35$,K:KONTO,TEKST$ 0880 EXEC FEJL(E,4,K35$) 0890 ELSE 0900 IF TKS>B AND TKS<30 THEN TEKST$=TFIL$(TKS9) 0910 ENDIF 0920 TEKST$=TEKST$+BLANK$ 0930 IF TKS<30 THEN EXEC UDSKRIV(PKODE,SU3$,LINIE) 0940 NEXT K 0950 IF MAFSLUT=E THEN T6=K;NØGLE4=KONTO 0960 ELSE 0970 T6=T5;NØGLE4=KTNUM;T5=B 0980 ENDIF 0990 CLOSE K35$ 1000 EXEC FEJL(E,5,K35$) 1010 ENDPROC 1020 PROC GLSALDO 1030 EXEC CALC(E,YBEV$,MBEV$,SUM$) 1040 EXEC CALC(4,SUM$,TAH$,TAH$) 1050 IF SI<>B THEN 1060 PRINT TAB(18);"Gl. saldo";TAB(44); 1070 PRINT USING "######":1000000; 1080 EXEC TUD(SUM$,UBELØB$,B,B) 1090 PRINT TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$ 1100 LINIE=E 1110 ENDIF 1120 ENDPROC 1130 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1,ENT1) 1140 EXEC CALC(B,SU1$,BE2$,SU1$) 1150 EXEC DATOUD(DA2,DA5$) 1160 PRINT DA5$;TAB(10); 1170 IF BI2<>-E THEN PRINT USING "#######":BI2; 1180 PRINT TAB(18);TE2$;TAB(44); 1190 PRINT USING "######":ENT1; 1200 EXEC TUD(BE2$,UBELØB$,B,B) 1210 PRINT TAB(51+15*(BE2$(LEN(BE2$))="-"));UBELØB$ 1220 ENDPROC 1230 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK) 1240 REPEAT 1250 CURSOR XPOS1,YPOS1 1260 PRINT LTK$;BLANK$(E:77-XPOS1-LEN(LTK$)) 1270 CURSOR XPOS1+LEN(LTK$),YPOS1 1280 INPUT " ",A$ 1290 EXEC NRTEST(A$) 1300 UNTIL P>LN4 AND P<LN5 1310 ENDPROC 1320 PROC LINIER(FRA1,TIL1,TÆL1) 1330 FOR TÆL1=FRA1 TO TIL1 1340 PRINT " " 1350 NEXT TÆL1 1360 ENDPROC 1370 PROC HENTPOST 1380 EPIL2=E 1390 FOR EPIL1=E TO METOT+MUNKANT 1400 CEKS=B 1410 IF (KONT MOD 100)=ENR(EPIL1) AND EU$(EPIL1)="0" THEN EXIT 1420 CEKS=E;EPIL2=EPIL2+E*(EU$(EPIL1)="0") 1430 NEXT EPIL1 1440 IF CEKS=B THEN 1450 GET K15$,ETAB(EPIL3,G)+E:ENAVN$ 1460 EXEC FEJL(20,E,K15$) 1470 GET K15$,ETAB(EPIL3,G)+EPIL2+E:NR8,MBEV$,YBEV$ 1480 EXEC FEJL(20,G,K15$) 1490 ELSE 1500 EPIL1=EPIL1-E 1510 ENDIF 1520 ENDPROC 1530 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1540 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1550 REPEAT 1560 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT 1570 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6))) 1580 IF PIL6<E THEN PIL6=E 1590 IF PIL6>MANT3 THEN PIL6=MANT3 1600 UNTIL PIL1=B 1610 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E) 1620 PIL6=MANT4+PIL6 1630 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) 1640 EXEC FEJL(E,E,L8$) 1650 FOR PIL6=E TO 4 1660 IF NØGL5=Q(PIL6,E) THEN EXIT 1670 NEXT PIL6 1680 IF PIL6<>5 THEN CEKS=B 1690 ENDPROC 1700 PROC INDTAB1(Z,MANT5,L7) 1710 PIL1=MANT5 DIV 32 1720 FOR I=E TO PIL1 1730 H=(I-E)*8+E 1740 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) 1750 EXEC FEJL(G,E,L7$) 1760 NEXT I 1770 ENDPROC 1780 PROC LUDSKRIV(KT1,DA4,KSNR) 1790 EXEC DATOUD(DA4,DA5$) 1800 KSNR=KSNR+E 1810 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69); 1820 PRINT USING "##":KSNR 1830 ENDPROC 1840 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,LNR) 1850 IF MK<>G THEN EXEC LINIER(LNR,24,LNR) 1860 IF MK<>G THEN PRINT STREG$ 1870 CASE MK OF 1880 STOP 1890 WHEN E,G 1900 PRINT TAB(32);"Transport"; 1910 WHEN B 1920 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15) 1930 PRINT STREG$ 1940 ENDCASE 1950 EXEC TUD(SU2$,UBELØB$,B,B) 1960 PRINT TAB(51+15*(SU2$(LEN(SU2$))="-"));UBELØB$ 1970 IF MK<>G THEN PRINT STREG$ 1980 IF MK=B THEN 1990 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15) 2000 PRINT STREG$ 2010 EXEC TUD(DS1$,UBEL1$,E,B) 2020 EXEC TUD(DS2$,UBEL2$,E,B) 2030 PRINT TAB(11+16*(DS1$(LEN(DS1$))="-"));UBEL1$; 2040 PRINT TAB(44+16*(DS2$(LEN(DS2$))="-"));UBEL2$ 2050 PRINT STREG$ 2060 PRINT " " 2070 PRINT " " 2080 ENDIF 2090 IF MK=E THEN EXEC LINIER(LNR,29,LNR) 2100 ENDPROC 2110 PROC STARTBIL 2120 REPEAT 2130 OUTPUT T 2140 CLEAR 2150 EXEC OVERSKRIFT(0) 2160 REPEAT 2170 EXEC INDPUT1(4,3,-1,100000,LTX$(1)) 2180 UNTIL P=B OR (P>9999 AND P<100000) 2190 SUM$="0+";KONT=P 2200 IF KONT=B THEN EXIT 2210 CURSOR W,5 2220 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(KONT DIV 100),EPIL3,K16$) 2230 IF CEKS=B THEN 2240 EXEC HENTPOST 2250 IF EU$(EPIL1)="0" AND CEKS=B THEN 2260 PRINT ENAVN$;" " 2270 CURSOR W,7 2280 PRINT UNAVN$(EPIL1);" " 2290 ENDIF 2300 ENDIF 2310 IF CEKS=B THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2)) 2320 IF CEKS=E THEN EXEC INDPUT1(9,5,-2,0,LTX$(3)) 2330 UNTIL P=-7 OR KONT=B 2340 ENDPROC 2350 PROC HUDSKRIV 2360 PRINT " " 2370 PRINT TAB(65);DV$;" " 2380 PRINT TAB(12);CHR(14);ENAVN$;" ";CHR(15) 2390 PRINT " " 2400 PRINT TAB(12);CHR(14);UNAVN$(EPIL1);" ";CHR(15) 2410 PRINT " " 2420 ENDPROC 2430 PROC HSUDSKRIV 2440 IF SKRIV THEN 2450 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side" 2460 PRINT TAB(49);STREG$(E:29) 2470 EXEC LUDSKRIV(KONT,DATO,KSIDENR) 2480 PRINT STREG$ 2490 ELSE 2500 CLEAR 2510 EXEC OVERSKRIFT(1) 2520 CURSOR E,V 2530 ENDIF 2540 PRINT TAB(V);"Dato";TAB(12);"Bilag Tekst";TAB(45);"Konto";TAB(57); 2550 PRINT "Debet";TAB(72);"Kredit" 2560 PRINT STREG$ 2570 ENDPROC 2580 PROC OVERSKRIFT(ART1) 2590 IF ART1=B THEN 2600 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$ 2610 ELSE 2620 CURSOR E,E 2630 PRINT USING " Nr:###### ":KONT; 2640 PRINT ENAVN$;" ";UNAVN$(EPIL1); 2650 PRINT TAB(66);" Dato:";DAT$ 2660 ENDIF 2670 ENDPROC 2680 PROC UDSKRIV(PKODE1,SU4,LNR1) 2690 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$,ENTKO) 2700 LNR1=LNR1+E 2710 IF LNR1=17+6*(SKRIV) THEN 2720 IF PKODE1=E THEN 2730 PRINT CHR(10);CHR(10) 2740 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,LNR1) 2750 EXEC HUDSKRIV 2760 EXEC HSUDSKRIV 2770 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,LNR1) 2780 LNR1=E 2790 ELSE 2800 EXEC INDPUT1(4,23,-2,0,LTX$(4)) 2810 CLEAR 2820 EXEC HSUDSKRIV 2830 LNR1=B 2840 ENDIF 2850 ENDIF 2860 ENDPROC 2870 PROC NRTEST(KTN1) 2880 P=B;TEST2=B;KTAL=B;L=LEN(KTN1$) 2890 CASE L OF 2900 FOR I=E TO L 2910 P1=INT(ORD(KTN1$(I))-48) 2920 IF P1=>B AND P1<=W THEN 2930 P=P*10+P1 2940 ELSE 2950 TEST2=E 2960 ENDIF 2970 NEXT I 2980 KTAL=P DIV 10000;KTAL9=P DIV 1000 2990 IF KTAL9=KRTAL THEN KTAL=KTAL9 3000 WHEN B 3010 P=-E 3020 WHEN E 3030 CASE KTN1$ OF 3040 P=INT(ORD(KTN1$)-48) 3050 WHEN "j","J" 3060 P=-7 3070 WHEN "n","N" 3080 P=-8 3090 ENDCASE 3100 ENDCASE 3110 ENDPROC 3120 PROC HOVIND(V1,MPOSTANTAL1,R) 3130 OPEN V1$,R 3140 EXEC FEJL(13,E,V1$) 3150 FOR I=E TO MPOSTANTAL1 DIV 160 3160 J=(I-E)*4+E;J1=J+E;J2=J+G;J3=J+V 3170 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) 3180 EXEC FEJL(13,G,V1$) 3190 NEXT I 3200 CLOSE V1$ 3210 EXEC FEJL(13,V,V1$) 3220 ENDPROC 3230 PROC UNDIND(V2,U1,Z) 3240 OPEN V2$,R 3250 EXEC FEJL(14,E,V2$) 3260 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) 3270 EXEC FEJL(14,G,V2$) 3280 CLOSE V2$ 3290 EXEC FEJL(14,V,V2$) 3300 ENDPROC 3310 PROC DATOUD(DA1,DA2) 3320 DA3=DA1;DA2$=" " 3330 FOR J=8 TO E STEP -E 3340 IF J MOD V=B THEN 3350 DA2$(J)="." 3360 ELSE 3370 DA2$(J)=CHR(DA3 MOD 10+48);DA3=DA3 DIV 10 3380 ENDIF 3390 NEXT J 3400 ENDPROC 3410 PROC MKONTUD(K61,MPOSTANTAL8) 3420 OUTPUT P 3430 P=E;T=E;SKRIV=E 3440 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 3450 T=E 3460 IF P<1000000 THEN 3470 REPEAT 3480 KSIDENR=B;SUM$="0+";LINIE=B 3490 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(P DIV 100),EPIL3,K16$) 3500 IF CEKS<>B THEN STOP 3510 KONT=P 3520 EXEC HENTPOST 3530 EXEC HUDSKRIV 3540 EXEC HSUDSKRIV 3550 EXEC GLSALDO 3560 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 3570 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE) 3580 T=T6 3590 UNTIL P=1000000 OR T=>MPOSTANTAL8 3600 ENDIF 3610 P=B 3620 ENDPROC 3630 K1$="P641220:SYSTEM1" 3640 REPEAT 3650 OPEN K1$,R 3660 IF STATUS(K1$)=B THEN EXIT 3670 CLEAR 3680 CURSOR 25,13 3690 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$ 3700 UNTIL STATUS(K1$)=B 3710 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT 3720 EXEC FEJL(W,6,K1$) 3730 GET K1$,10:N$ 3740 EXEC FEJL(W,7,K1$) 3750 GET K1$,36:K14$ 3760 EXEC FEJL(W,20,K1$) 3770 GET K1$,37:K15$ 3780 EXEC FEJL(W,8,K1$) 3790 GET K1$,38:K16$ 3800 EXEC FEJL(W,W,K1$) 3810 GET K1$,39:K17$ 3820 EXEC FEJL(W,10,K1$) 3830 GET K1$,41:K18$ 3840 EXEC FEJL(W,11,K1$) 3850 GET K1$,42:K19$ 3860 EXEC FEJL(W,12,K1$) 3870 GET K1$,43:METOT,MEMID,MEPOST 3880 EXEC FEJL(W,13,K1$) 3890 CLOSE K1$ 3900 EXEC FEJL(W,21,K1$) 3910 K14$=N$+K14$;K15$=N$+K15$;K16$=N$+K16$;K17$=N$+K17$;K18$=N$+K18$ 3920 K19$=N$+K19$ 3930 OPEN K14$,R 3940 EXEC FEJL(W,22,K14$) 3950 GET K14$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 3960 EXEC FEJL(W,23,K14$) 3970 FOR I=E TO 6 3980 H=(I-E)*V+E 3990 GET K14$,I+5:TFIL$(H),TFIL$(H+E),TFIL$(H+G) 4000 EXEC FEJL(W,25,K14$) 4010 NEXT I 4020 GET K14$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4030 EXEC FEJL(W,26,K14$) 4040 GET K14$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 4050 EXEC FEJL(W,27,K14$) 4051 GET K14$,20:DV$ 4052 EXEC FEJL(99,99,K14$) 4060 CLOSE K14$ 4070 EXEC FEJL(W,31,K14$) 4080 OPEN K15$,R 4090 EXEC FEJL(W,32,K15$) 4100 OPEN K16$,R 4110 EXEC FEJL(W,35,K16$) 4120 OPEN K17$,R 4130 EXEC FEJL(W,36,K17$) 4140 DIM ETAB1(MEANTAL DIV 4),ENR(MUNKANT+METOT),EU$(MUNKANT+METOT) 4150 DIM HETAB(MEPOST DIV 40,G),ETAB(4,G),UNAVN$(MUNKANT+METOT,25),UETAB(4,G) 4160 EXEC INDTAB1(ETAB1,MEANTAL,K16$) 4170 EXEC HOVIND(K19$,MEPOST,HETAB) 4180 FOR X=E TO MUNKANT+METOT 4190 GET K17$,X:ENR(X),EU$(X),UNAVN$(X) 4200 EXEC FEJL(W,39,K17$) 4210 NEXT X 4220 LTX$(E)="Indtast kontonr. (0:færdig):" 4230 LTX$(G)="Rigtig konto (J/N)" 4240 LTX$(V)="Konto eksisterer ikke, tast RETURN" 4250 LTX$(4)="Tast RETURN når sideskift ønskes" 4260 LTX$(5)="Ønskes udskrift på printer (J/N):" 4270 LTX$(6)="Ønskes flere udskrifter (J/N):" 4280 DATO=T1(7);MAFSLUT=T3(G) 4290 EXEC DATOUD(DATO,DAT$) 4300 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-" 4310 BLANK$=" " 4320 IF MAFSLUT=E THEN 4330 REPEAT 4340 CLEAR 4350 CURSOR E,E 4360 PRINT TAB(15);"Månedsafslutning Entreprisekontoudtog";TAB(63);" Dato:"; 4370 PRINT DAT$ 4390 EXEC MKONTUD(K18$,MEPOST) 4400 CLEAR 4410 OUTPUT T 4420 EXEC INDPUT1(20,13,-9,-6,LTX$(6)) 4430 UNTIL P=-8 4440 ELSE 4450 EXEC STARTBIL 4460 REPEAT 4470 IF KONT=B THEN EXIT 4480 EXEC INDPUT1(4,14,-9,-6,LTX$(5)) 4490 KSIDENR,SKRIV1,LINIE=B;SUM$="0+" 4500 IF P=-7 THEN 4510 SKRIV=E 4520 OUTPUT P 4530 EXEC HUDSKRIV 4540 ELSE 4550 SKRIV=B 4560 OUTPUT T 4570 ENDIF 4580 EXEC HSUDSKRIV 4590 EXEC GLSALDO 4600 EXEC SØG(MEPOST,HETAB,KONT,UETAB,K19$) 4610 IF T>B THEN EXEC POSTER(K18$,KONT,T,MEPOST,SKRIV,SUM$) 4620 IF SKRIV=B THEN 4630 EXEC TUD(SUM$,UBELØB$,B,B) 4640 PRINT TAB(35);STREG$(E:43) 4650 PRINT TAB(35);"Ny saldo";TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$ 4660 ELSE 4670 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE) 4680 ENDIF 4690 OUTPUT T 4700 EXEC INDPUT1(4,23,-9,-6,LTX$(6)) 4710 IF P=-7 THEN 4720 EXEC STARTBIL 4730 ELSE 4740 KONT=B 4750 ENDIF 4760 UNTIL KONT=B 4770 ENDIF 4780 CLOSE 4790 OUTPUT T 4800 CLEAR 4810 IF MAFSLUT=E THEN CHAIN "P641210:MAFSLUT" 4820 CHAIN "P641210:OPSTART"
0x0000…006a (0,) 8dc1 0100 DIM K1$(17),ENAVN$(29),MBEV$(12),YBEV$(12),K14$(17),K15$(17),K16$(17)
0x0000…006a LineComalBin {
0x0000…006a ptr = 0x8dc1 // 0x0 @0x0
0x0000…006a lno = 0x0064 // 0x2 @0x2
0x0000…006a at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…006a at0005 = ╱4b╱K╱ // 0x5 @0x5
0x0000…006a at0006 = ╱31╱1╱ // 0x6 @0x6
0x0000…006a at0007 = ╱ef╱$╱ // 0x7 @0x7
0x0000…006a at0008 = ╱ed╱(╱ // 0x8 @0x8
0x0000…006a at0009 = ╱31╱1╱ // 0x9 @0x9
0x0000…006a at000a = ╱37╱7╱ // 0xa @0xa
0x0000…006a at000b = ╱fe00008805╱ // 0xb @0xb
0x0000…006a at0010 = ╱ee╱)╱ // 0x10 @0x10
0x0000…006a at0011 = ╱ec╱,╱ // 0x11 @0x11
0x0000…006a at0012 = ╱45╱E╱ // 0x12 @0x12
0x0000…006a at0013 = ╱4e╱N╱ // 0x13 @0x13
0x0000…006a at0014 = ╱41╱A╱ // 0x14 @0x14
0x0000…006a at0015 = ╱56╱V╱ // 0x15 @0x15
0x0000…006a at0016 = ╱4e╱N╱ // 0x16 @0x16
0x0000…006a at0017 = ╱ef╱$╱ // 0x17 @0x17
0x0000…006a at0018 = ╱ed╱(╱ // 0x18 @0x18
0x0000…006a at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…006a at001a = ╱39╱9╱ // 0x1a @0x1a
0x0000…006a at001b = ╱fe0000e805╱ // 0x1b @0x1b
0x0000…006a at0020 = ╱ee╱)╱ // 0x20 @0x20
0x0000…006a at0021 = ╱ec╱,╱ // 0x21 @0x21
0x0000…006a at0022 = ╱4d╱M╱ // 0x22 @0x22
0x0000…006a at0023 = ╱42╱B╱ // 0x23 @0x23
0x0000…006a at0024 = ╱45╱E╱ // 0x24 @0x24
0x0000…006a at0025 = ╱56╱V╱ // 0x25 @0x25
0x0000…006a at0026 = ╱ef╱$╱ // 0x26 @0x26
0x0000…006a at0027 = ╱ed╱(╱ // 0x27 @0x27
0x0000…006a at0028 = ╱31╱1╱ // 0x28 @0x28
0x0000…006a at0029 = ╱32╱2╱ // 0x29 @0x29
0x0000…006a at002a = ╱fe0000c004╱ // 0x2a @0x2a
0x0000…006a at002f = ╱ee╱)╱ // 0x2f @0x2f
0x0000…006a at0030 = ╱ec╱,╱ // 0x30 @0x30
0x0000…006a at0031 = ╱59╱Y╱ // 0x31 @0x31
0x0000…006a at0032 = ╱42╱B╱ // 0x32 @0x32
0x0000…006a at0033 = ╱45╱E╱ // 0x33 @0x33
0x0000…006a at0034 = ╱56╱V╱ // 0x34 @0x34
0x0000…006a at0035 = ╱ef╱$╱ // 0x35 @0x35
0x0000…006a at0036 = ╱ed╱(╱ // 0x36 @0x36
0x0000…006a at0037 = ╱31╱1╱ // 0x37 @0x37
0x0000…006a at0038 = ╱32╱2╱ // 0x38 @0x38
0x0000…006a at0039 = ╱fe0000c004╱ // 0x39 @0x39
0x0000…006a at003e = ╱ee╱)╱ // 0x3e @0x3e
0x0000…006a at003f = ╱ec╱,╱ // 0x3f @0x3f
0x0000…006a at0040 = ╱4b╱K╱ // 0x40 @0x40
0x0000…006a at0041 = ╱31╱1╱ // 0x41 @0x41
0x0000…006a at0042 = ╱34╱4╱ // 0x42 @0x42
0x0000…006a at0043 = ╱ef╱$╱ // 0x43 @0x43
0x0000…006a at0044 = ╱ed╱(╱ // 0x44 @0x44
0x0000…006a at0045 = ╱31╱1╱ // 0x45 @0x45
0x0000…006a at0046 = ╱37╱7╱ // 0x46 @0x46
0x0000…006a at0047 = ╱fe00008805╱ // 0x47 @0x47
0x0000…006a at004c = ╱ee╱)╱ // 0x4c @0x4c
0x0000…006a at004d = ╱ec╱,╱ // 0x4d @0x4d
0x0000…006a at004e = ╱4b╱K╱ // 0x4e @0x4e
0x0000…006a at004f = ╱31╱1╱ // 0x4f @0x4f
0x0000…006a at0050 = ╱35╱5╱ // 0x50 @0x50
0x0000…006a at0051 = ╱ef╱$╱ // 0x51 @0x51
0x0000…006a at0052 = ╱ed╱(╱ // 0x52 @0x52
0x0000…006a at0053 = ╱31╱1╱ // 0x53 @0x53
0x0000…006a at0054 = ╱37╱7╱ // 0x54 @0x54
0x0000…006a at0055 = ╱fe00008805╱ // 0x55 @0x55
0x0000…006a at005a = ╱ee╱)╱ // 0x5a @0x5a
0x0000…006a at005b = ╱ec╱,╱ // 0x5b @0x5b
0x0000…006a at005c = ╱4b╱K╱ // 0x5c @0x5c
0x0000…006a at005d = ╱31╱1╱ // 0x5d @0x5d
0x0000…006a at005e = ╱36╱6╱ // 0x5e @0x5e
0x0000…006a at005f = ╱ef╱$╱ // 0x5f @0x5f
0x0000…006a at0060 = ╱ed╱(╱ // 0x60 @0x60
0x0000…006a at0061 = ╱31╱1╱ // 0x61 @0x61
0x0000…006a at0062 = ╱37╱7╱ // 0x62 @0x62
0x0000…006a at0063 = ╱fe00008805╱ // 0x63 @0x63
0x0000…006a at0068 = ╱ee╱)╱ // 0x68 @0x68
0x0000…006a at0069 = EOL // 0x69 @0x69
0x0000…006a }
0x006a…00d1 8e28 0110 DIM BLANK$(77),TAL4$(14),TAH$(12),A$(6),K17$(17),K18$(17),K19$(17)
0x006a…00d1 LineComalBin {
0x006a…00d1 ptr = 0x8e28 // 0x6a @0x0
0x006a…00d1 lno = 0x006e // 0x6c @0x2
0x006a…00d1 at0004 = ╱87╱ DIM ╱ // 0x6e @0x4
0x006a…00d1 at0005 = ╱42╱B╱ // 0x6f @0x5
0x006a…00d1 at0006 = ╱4c╱L╱ // 0x70 @0x6
0x006a…00d1 at0007 = ╱41╱A╱ // 0x71 @0x7
0x006a…00d1 at0008 = ╱4e╱N╱ // 0x72 @0x8
0x006a…00d1 at0009 = ╱4b╱K╱ // 0x73 @0x9
0x006a…00d1 at000a = ╱ef╱$╱ // 0x74 @0xa
0x006a…00d1 at000b = ╱ed╱(╱ // 0x75 @0xb
0x006a…00d1 at000c = ╱37╱7╱ // 0x76 @0xc
0x006a…00d1 at000d = ╱37╱7╱ // 0x77 @0xd
0x006a…00d1 at000e = ╱fe00009a07╱ // 0x78 @0xe
0x006a…00d1 at0013 = ╱ee╱)╱ // 0x7d @0x13
0x006a…00d1 at0014 = ╱ec╱,╱ // 0x7e @0x14
0x006a…00d1 at0015 = ╱54╱T╱ // 0x7f @0x15
0x006a…00d1 at0016 = ╱41╱A╱ // 0x80 @0x16
0x006a…00d1 at0017 = ╱4c╱L╱ // 0x81 @0x17
0x006a…00d1 at0018 = ╱34╱4╱ // 0x82 @0x18
0x006a…00d1 at0019 = ╱ef╱$╱ // 0x83 @0x19
0x006a…00d1 at001a = ╱ed╱(╱ // 0x84 @0x1a
0x006a…00d1 at001b = ╱31╱1╱ // 0x85 @0x1b
0x006a…00d1 at001c = ╱34╱4╱ // 0x86 @0x1c
0x006a…00d1 at001d = ╱fe0000e004╱ // 0x87 @0x1d
0x006a…00d1 at0022 = ╱ee╱)╱ // 0x8c @0x22
0x006a…00d1 at0023 = ╱ec╱,╱ // 0x8d @0x23
0x006a…00d1 at0024 = ╱54╱T╱ // 0x8e @0x24
0x006a…00d1 at0025 = ╱41╱A╱ // 0x8f @0x25
0x006a…00d1 at0026 = ╱48╱H╱ // 0x90 @0x26
0x006a…00d1 at0027 = ╱ef╱$╱ // 0x91 @0x27
0x006a…00d1 at0028 = ╱ed╱(╱ // 0x92 @0x28
0x006a…00d1 at0029 = ╱31╱1╱ // 0x93 @0x29
0x006a…00d1 at002a = ╱32╱2╱ // 0x94 @0x2a
0x006a…00d1 at002b = ╱fe0000c004╱ // 0x95 @0x2b
0x006a…00d1 at0030 = ╱ee╱)╱ // 0x9a @0x30
0x006a…00d1 at0031 = ╱ec╱,╱ // 0x9b @0x31
0x006a…00d1 at0032 = ╱41╱A╱ // 0x9c @0x32
0x006a…00d1 at0033 = ╱ef╱$╱ // 0x9d @0x33
0x006a…00d1 at0034 = ╱ed╱(╱ // 0x9e @0x34
0x006a…00d1 at0035 = ╱36╱6╱ // 0x9f @0x35
0x006a…00d1 at0036 = ╱fe0000c003╱ // 0xa0 @0x36
0x006a…00d1 at003b = ╱ee╱)╱ // 0xa5 @0x3b
0x006a…00d1 at003c = ╱ec╱,╱ // 0xa6 @0x3c
0x006a…00d1 at003d = ╱4b╱K╱ // 0xa7 @0x3d
0x006a…00d1 at003e = ╱31╱1╱ // 0xa8 @0x3e
0x006a…00d1 at003f = ╱37╱7╱ // 0xa9 @0x3f
0x006a…00d1 at0040 = ╱ef╱$╱ // 0xaa @0x40
0x006a…00d1 at0041 = ╱ed╱(╱ // 0xab @0x41
0x006a…00d1 at0042 = ╱31╱1╱ // 0xac @0x42
0x006a…00d1 at0043 = ╱37╱7╱ // 0xad @0x43
0x006a…00d1 at0044 = ╱fe00008805╱ // 0xae @0x44
0x006a…00d1 at0049 = ╱ee╱)╱ // 0xb3 @0x49
0x006a…00d1 at004a = ╱ec╱,╱ // 0xb4 @0x4a
0x006a…00d1 at004b = ╱4b╱K╱ // 0xb5 @0x4b
0x006a…00d1 at004c = ╱31╱1╱ // 0xb6 @0x4c
0x006a…00d1 at004d = ╱38╱8╱ // 0xb7 @0x4d
0x006a…00d1 at004e = ╱ef╱$╱ // 0xb8 @0x4e
0x006a…00d1 at004f = ╱ed╱(╱ // 0xb9 @0x4f
0x006a…00d1 at0050 = ╱31╱1╱ // 0xba @0x50
0x006a…00d1 at0051 = ╱37╱7╱ // 0xbb @0x51
0x006a…00d1 at0052 = ╱fe00008805╱ // 0xbc @0x52
0x006a…00d1 at0057 = ╱ee╱)╱ // 0xc1 @0x57
0x006a…00d1 at0058 = ╱ec╱,╱ // 0xc2 @0x58
0x006a…00d1 at0059 = ╱4b╱K╱ // 0xc3 @0x59
0x006a…00d1 at005a = ╱31╱1╱ // 0xc4 @0x5a
0x006a…00d1 at005b = ╱39╱9╱ // 0xc5 @0x5b
0x006a…00d1 at005c = ╱ef╱$╱ // 0xc6 @0x5c
0x006a…00d1 at005d = ╱ed╱(╱ // 0xc7 @0x5d
0x006a…00d1 at005e = ╱31╱1╱ // 0xc8 @0x5e
0x006a…00d1 at005f = ╱37╱7╱ // 0xc9 @0x5f
0x006a…00d1 at0060 = ╱fe00008805╱ // 0xca @0x60
0x006a…00d1 at0065 = ╱ee╱)╱ // 0xcf @0x65
0x006a…00d1 at0066 = EOL // 0xd0 @0x66
0x006a…00d1 }
0x00d1…012a 8e81 0120 DIM RES$(15),OP2$(12),BELØB$(12),KTNR$(6),STREG$(77),TKODE$(E)
0x00d1…012a LineComalBin {
0x00d1…012a ptr = 0x8e81 // 0xd1 @0x0
0x00d1…012a lno = 0x0078 // 0xd3 @0x2
0x00d1…012a at0004 = ╱87╱ DIM ╱ // 0xd5 @0x4
0x00d1…012a at0005 = ╱52╱R╱ // 0xd6 @0x5
0x00d1…012a at0006 = ╱45╱E╱ // 0xd7 @0x6
0x00d1…012a at0007 = ╱53╱S╱ // 0xd8 @0x7
0x00d1…012a at0008 = ╱ef╱$╱ // 0xd9 @0x8
0x00d1…012a at0009 = ╱ed╱(╱ // 0xda @0x9
0x00d1…012a at000a = ╱31╱1╱ // 0xdb @0xa
0x00d1…012a at000b = ╱35╱5╱ // 0xdc @0xb
0x00d1…012a at000c = ╱fe0000f004╱ // 0xdd @0xc
0x00d1…012a at0011 = ╱ee╱)╱ // 0xe2 @0x11
0x00d1…012a at0012 = ╱ec╱,╱ // 0xe3 @0x12
0x00d1…012a at0013 = ╱4f╱O╱ // 0xe4 @0x13
0x00d1…012a at0014 = ╱50╱P╱ // 0xe5 @0x14
0x00d1…012a at0015 = ╱32╱2╱ // 0xe6 @0x15
0x00d1…012a at0016 = ╱ef╱$╱ // 0xe7 @0x16
0x00d1…012a at0017 = ╱ed╱(╱ // 0xe8 @0x17
0x00d1…012a at0018 = ╱31╱1╱ // 0xe9 @0x18
0x00d1…012a at0019 = ╱32╱2╱ // 0xea @0x19
0x00d1…012a at001a = ╱fe0000c004╱ // 0xeb @0x1a
0x00d1…012a at001f = ╱ee╱)╱ // 0xf0 @0x1f
0x00d1…012a at0020 = ╱ec╱,╱ // 0xf1 @0x20
0x00d1…012a at0021 = ╱42╱B╱ // 0xf2 @0x21
0x00d1…012a at0022 = ╱45╱E╱ // 0xf3 @0x22
0x00d1…012a at0023 = ╱4c╱L╱ // 0xf4 @0x23
0x00d1…012a at0024 = ╱5c╱Ø╱ // 0xf5 @0x24
0x00d1…012a at0025 = ╱42╱B╱ // 0xf6 @0x25
0x00d1…012a at0026 = ╱ef╱$╱ // 0xf7 @0x26
0x00d1…012a at0027 = ╱ed╱(╱ // 0xf8 @0x27
0x00d1…012a at0028 = ╱31╱1╱ // 0xf9 @0x28
0x00d1…012a at0029 = ╱32╱2╱ // 0xfa @0x29
0x00d1…012a at002a = ╱fe0000c004╱ // 0xfb @0x2a
0x00d1…012a at002f = ╱ee╱)╱ // 0x100 @0x2f
0x00d1…012a at0030 = ╱ec╱,╱ // 0x101 @0x30
0x00d1…012a at0031 = ╱4b╱K╱ // 0x102 @0x31
0x00d1…012a at0032 = ╱54╱T╱ // 0x103 @0x32
0x00d1…012a at0033 = ╱4e╱N╱ // 0x104 @0x33
0x00d1…012a at0034 = ╱52╱R╱ // 0x105 @0x34
0x00d1…012a at0035 = ╱ef╱$╱ // 0x106 @0x35
0x00d1…012a at0036 = ╱ed╱(╱ // 0x107 @0x36
0x00d1…012a at0037 = ╱36╱6╱ // 0x108 @0x37
0x00d1…012a at0038 = ╱fe0000c003╱ // 0x109 @0x38
0x00d1…012a at003d = ╱ee╱)╱ // 0x10e @0x3d
0x00d1…012a at003e = ╱ec╱,╱ // 0x10f @0x3e
0x00d1…012a at003f = ╱53╱S╱ // 0x110 @0x3f
0x00d1…012a at0040 = ╱54╱T╱ // 0x111 @0x40
0x00d1…012a at0041 = ╱52╱R╱ // 0x112 @0x41
0x00d1…012a at0042 = ╱45╱E╱ // 0x113 @0x42
0x00d1…012a at0043 = ╱47╱G╱ // 0x114 @0x43
0x00d1…012a at0044 = ╱ef╱$╱ // 0x115 @0x44
0x00d1…012a at0045 = ╱ed╱(╱ // 0x116 @0x45
0x00d1…012a at0046 = ╱37╱7╱ // 0x117 @0x46
0x00d1…012a at0047 = ╱37╱7╱ // 0x118 @0x47
0x00d1…012a at0048 = ╱fe00009a07╱ // 0x119 @0x48
0x00d1…012a at004d = ╱ee╱)╱ // 0x11e @0x4d
0x00d1…012a at004e = ╱ec╱,╱ // 0x11f @0x4e
0x00d1…012a at004f = ╱54╱T╱ // 0x120 @0x4f
0x00d1…012a at0050 = ╱4b╱K╱ // 0x121 @0x50
0x00d1…012a at0051 = ╱4f╱O╱ // 0x122 @0x51
0x00d1…012a at0052 = ╱44╱D╱ // 0x123 @0x52
0x00d1…012a at0053 = ╱45╱E╱ // 0x124 @0x53
0x00d1…012a at0054 = ╱ef╱$╱ // 0x125 @0x54
0x00d1…012a at0055 = ╱ed╱(╱ // 0x126 @0x55
0x00d1…012a at0056 = ╱45╱E╱ // 0x127 @0x56
0x00d1…012a at0057 = ╱ee╱)╱ // 0x128 @0x57
0x00d1…012a at0058 = EOL // 0x129 @0x58
0x00d1…012a }
0x012a…0181 8ed8 0130 DIM OP1$(12),TK$(V),TEKST$(25),TFIL$(20,10),FUKODE$(E),N$(6)
0x012a…0181 LineComalBin {
0x012a…0181 ptr = 0x8ed8 // 0x12a @0x0
0x012a…0181 lno = 0x0082 // 0x12c @0x2
0x012a…0181 at0004 = ╱87╱ DIM ╱ // 0x12e @0x4
0x012a…0181 at0005 = ╱4f╱O╱ // 0x12f @0x5
0x012a…0181 at0006 = ╱50╱P╱ // 0x130 @0x6
0x012a…0181 at0007 = ╱31╱1╱ // 0x131 @0x7
0x012a…0181 at0008 = ╱ef╱$╱ // 0x132 @0x8
0x012a…0181 at0009 = ╱ed╱(╱ // 0x133 @0x9
0x012a…0181 at000a = ╱31╱1╱ // 0x134 @0xa
0x012a…0181 at000b = ╱32╱2╱ // 0x135 @0xb
0x012a…0181 at000c = ╱fe0000c004╱ // 0x136 @0xc
0x012a…0181 at0011 = ╱ee╱)╱ // 0x13b @0x11
0x012a…0181 at0012 = ╱ec╱,╱ // 0x13c @0x12
0x012a…0181 at0013 = ╱54╱T╱ // 0x13d @0x13
0x012a…0181 at0014 = ╱4b╱K╱ // 0x13e @0x14
0x012a…0181 at0015 = ╱ef╱$╱ // 0x13f @0x15
0x012a…0181 at0016 = ╱ed╱(╱ // 0x140 @0x16
0x012a…0181 at0017 = ╱56╱V╱ // 0x141 @0x17
0x012a…0181 at0018 = ╱ee╱)╱ // 0x142 @0x18
0x012a…0181 at0019 = ╱ec╱,╱ // 0x143 @0x19
0x012a…0181 at001a = ╱54╱T╱ // 0x144 @0x1a
0x012a…0181 at001b = ╱45╱E╱ // 0x145 @0x1b
0x012a…0181 at001c = ╱4b╱K╱ // 0x146 @0x1c
0x012a…0181 at001d = ╱53╱S╱ // 0x147 @0x1d
0x012a…0181 at001e = ╱54╱T╱ // 0x148 @0x1e
0x012a…0181 at001f = ╱ef╱$╱ // 0x149 @0x1f
0x012a…0181 at0020 = ╱ed╱(╱ // 0x14a @0x20
0x012a…0181 at0021 = ╱32╱2╱ // 0x14b @0x21
0x012a…0181 at0022 = ╱35╱5╱ // 0x14c @0x22
0x012a…0181 at0023 = ╱fe0000c805╱ // 0x14d @0x23
0x012a…0181 at0028 = ╱ee╱)╱ // 0x152 @0x28
0x012a…0181 at0029 = ╱ec╱,╱ // 0x153 @0x29
0x012a…0181 at002a = ╱54╱T╱ // 0x154 @0x2a
0x012a…0181 at002b = ╱46╱F╱ // 0x155 @0x2b
0x012a…0181 at002c = ╱49╱I╱ // 0x156 @0x2c
0x012a…0181 at002d = ╱4c╱L╱ // 0x157 @0x2d
0x012a…0181 at002e = ╱ef╱$╱ // 0x158 @0x2e
0x012a…0181 at002f = ╱ed╱(╱ // 0x159 @0x2f
0x012a…0181 at0030 = ╱32╱2╱ // 0x15a @0x30
0x012a…0181 at0031 = ╱30╱0╱ // 0x15b @0x31
0x012a…0181 at0032 = ╱fe0000a005╱ // 0x15c @0x32
0x012a…0181 at0037 = ╱ec╱,╱ // 0x161 @0x37
0x012a…0181 at0038 = ╱31╱1╱ // 0x162 @0x38
0x012a…0181 at0039 = ╱30╱0╱ // 0x163 @0x39
0x012a…0181 at003a = ╱fe0000a004╱ // 0x164 @0x3a
0x012a…0181 at003f = ╱ee╱)╱ // 0x169 @0x3f
0x012a…0181 at0040 = ╱ec╱,╱ // 0x16a @0x40
0x012a…0181 at0041 = ╱46╱F╱ // 0x16b @0x41
0x012a…0181 at0042 = ╱55╱U╱ // 0x16c @0x42
0x012a…0181 at0043 = ╱4b╱K╱ // 0x16d @0x43
0x012a…0181 at0044 = ╱4f╱O╱ // 0x16e @0x44
0x012a…0181 at0045 = ╱44╱D╱ // 0x16f @0x45
0x012a…0181 at0046 = ╱45╱E╱ // 0x170 @0x46
0x012a…0181 at0047 = ╱ef╱$╱ // 0x171 @0x47
0x012a…0181 at0048 = ╱ed╱(╱ // 0x172 @0x48
0x012a…0181 at0049 = ╱45╱E╱ // 0x173 @0x49
0x012a…0181 at004a = ╱ee╱)╱ // 0x174 @0x4a
0x012a…0181 at004b = ╱ec╱,╱ // 0x175 @0x4b
0x012a…0181 at004c = ╱4e╱N╱ // 0x176 @0x4c
0x012a…0181 at004d = ╱ef╱$╱ // 0x177 @0x4d
0x012a…0181 at004e = ╱ed╱(╱ // 0x178 @0x4e
0x012a…0181 at004f = ╱36╱6╱ // 0x179 @0x4f
0x012a…0181 at0050 = ╱fe0000c003╱ // 0x17a @0x50
0x012a…0181 at0055 = ╱ee╱)╱ // 0x17f @0x55
0x012a…0181 at0056 = EOL // 0x180 @0x56
0x012a…0181 }
0x0181…01f1 (5,) 8f48 0140 DIM UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8),DV$(10),LTX$(6,52)
0x0181…01f1 LineComalBin {
0x0181…01f1 ptr = 0x8f48 // 0x181 @0x0
0x0181…01f1 lno = 0x008c // 0x183 @0x2
0x0181…01f1 at0004 = ╱87╱ DIM ╱ // 0x185 @0x4
0x0181…01f1 at0005 = ╱55╱U╱ // 0x186 @0x5
0x0181…01f1 at0006 = ╱42╱B╱ // 0x187 @0x6
0x0181…01f1 at0007 = ╱45╱E╱ // 0x188 @0x7
0x0181…01f1 at0008 = ╱4c╱L╱ // 0x189 @0x8
0x0181…01f1 at0009 = ╱5c╱Ø╱ // 0x18a @0x9
0x0181…01f1 at000a = ╱42╱B╱ // 0x18b @0xa
0x0181…01f1 at000b = ╱ef╱$╱ // 0x18c @0xb
0x0181…01f1 at000c = ╱ed╱(╱ // 0x18d @0xc
0x0181…01f1 at000d = ╱31╱1╱ // 0x18e @0xd
0x0181…01f1 at000e = ╱34╱4╱ // 0x18f @0xe
0x0181…01f1 at000f = ╱fe0000e004╱ // 0x190 @0xf
0x0181…01f1 at0014 = ╱ee╱)╱ // 0x195 @0x14
0x0181…01f1 at0015 = ╱ec╱,╱ // 0x196 @0x15
0x0181…01f1 at0016 = ╱53╱S╱ // 0x197 @0x16
0x0181…01f1 at0017 = ╱55╱U╱ // 0x198 @0x17
0x0181…01f1 at0018 = ╱4d╱M╱ // 0x199 @0x18
0x0181…01f1 at0019 = ╱ef╱$╱ // 0x19a @0x19
0x0181…01f1 at001a = ╱ed╱(╱ // 0x19b @0x1a
0x0181…01f1 at001b = ╱31╱1╱ // 0x19c @0x1b
0x0181…01f1 at001c = ╱32╱2╱ // 0x19d @0x1c
0x0181…01f1 at001d = ╱fe0000c004╱ // 0x19e @0x1d
0x0181…01f1 at0022 = ╱ee╱)╱ // 0x1a3 @0x22
0x0181…01f1 at0023 = ╱ec╱,╱ // 0x1a4 @0x23
0x0181…01f1 at0024 = ╱44╱D╱ // 0x1a5 @0x24
0x0181…01f1 at0025 = ╱41╱A╱ // 0x1a6 @0x25
0x0181…01f1 at0026 = ╱54╱T╱ // 0x1a7 @0x26
0x0181…01f1 at0027 = ╱ef╱$╱ // 0x1a8 @0x27
0x0181…01f1 at0028 = ╱ed╱(╱ // 0x1a9 @0x28
0x0181…01f1 at0029 = ╱38╱8╱ // 0x1aa @0x29
0x0181…01f1 at002a = ╱fe00008004╱ // 0x1ab @0x2a
0x0181…01f1 at002f = ╱ee╱)╱ // 0x1b0 @0x2f
0x0181…01f1 at0030 = ╱ec╱,╱ // 0x1b1 @0x30
0x0181…01f1 at0031 = ╱53╱S╱ // 0x1b2 @0x31
0x0181…01f1 at0032 = ╱41╱A╱ // 0x1b3 @0x32
0x0181…01f1 at0033 = ╱4c╱L╱ // 0x1b4 @0x33
0x0181…01f1 at0034 = ╱44╱D╱ // 0x1b5 @0x34
0x0181…01f1 at0035 = ╱4f╱O╱ // 0x1b6 @0x35
0x0181…01f1 at0036 = ╱ef╱$╱ // 0x1b7 @0x36
0x0181…01f1 at0037 = ╱ed╱(╱ // 0x1b8 @0x37
0x0181…01f1 at0038 = ╱31╱1╱ // 0x1b9 @0x38
0x0181…01f1 at0039 = ╱32╱2╱ // 0x1ba @0x39
0x0181…01f1 at003a = ╱fe0000c004╱ // 0x1bb @0x3a
0x0181…01f1 at003f = ╱ee╱)╱ // 0x1c0 @0x3f
0x0181…01f1 at0040 = ╱ec╱,╱ // 0x1c1 @0x40
0x0181…01f1 at0041 = ╱44╱D╱ // 0x1c2 @0x41
0x0181…01f1 at0042 = ╱41╱A╱ // 0x1c3 @0x42
0x0181…01f1 at0043 = ╱35╱5╱ // 0x1c4 @0x43
0x0181…01f1 at0044 = ╱ef╱$╱ // 0x1c5 @0x44
0x0181…01f1 at0045 = ╱ed╱(╱ // 0x1c6 @0x45
0x0181…01f1 at0046 = ╱38╱8╱ // 0x1c7 @0x46
0x0181…01f1 at0047 = ╱fe00008004╱ // 0x1c8 @0x47
0x0181…01f1 at004c = ╱ee╱)╱ // 0x1cd @0x4c
0x0181…01f1 at004d = ╱ec╱,╱ // 0x1ce @0x4d
0x0181…01f1 at004e = ╱44╱D╱ // 0x1cf @0x4e
0x0181…01f1 at004f = ╱56╱V╱ // 0x1d0 @0x4f
0x0181…01f1 at0050 = ╱ef╱$╱ // 0x1d1 @0x50
0x0181…01f1 at0051 = ╱ed╱(╱ // 0x1d2 @0x51
0x0181…01f1 at0052 = ╱31╱1╱ // 0x1d3 @0x52
0x0181…01f1 at0053 = ╱30╱0╱ // 0x1d4 @0x53
0x0181…01f1 at0054 = ╱fe0000a004╱ // 0x1d5 @0x54
0x0181…01f1 at0059 = ╱ee╱)╱ // 0x1da @0x59
0x0181…01f1 at005a = ╱ec╱,╱ // 0x1db @0x5a
0x0181…01f1 at005b = ╱4c╱L╱ // 0x1dc @0x5b
0x0181…01f1 at005c = ╱54╱T╱ // 0x1dd @0x5c
0x0181…01f1 at005d = ╱58╱X╱ // 0x1de @0x5d
0x0181…01f1 at005e = ╱ef╱$╱ // 0x1df @0x5e
0x0181…01f1 at005f = ╱ed╱(╱ // 0x1e0 @0x5f
0x0181…01f1 at0060 = ╱36╱6╱ // 0x1e1 @0x60
0x0181…01f1 at0061 = ╱fe0000c003╱ // 0x1e2 @0x61
0x0181…01f1 at0066 = ╱ec╱,╱ // 0x1e7 @0x66
0x0181…01f1 at0067 = ╱35╱5╱ // 0x1e8 @0x67
0x0181…01f1 at0068 = ╱32╱2╱ // 0x1e9 @0x68
0x0181…01f1 at0069 = ╱fe0000d006╱ // 0x1ea @0x69
0x0181…01f1 at006e = ╱ee╱)╱ // 0x1ef @0x6e
0x0181…01f1 at006f = EOL // 0x1f0 @0x6f
0x0181…01f1 }
0x01f1…0208 8f5f 0150 DIM T1(W),T2(W),T3(W)
0x01f1…0208 LineComalBin {
0x01f1…0208 ptr = 0x8f5f // 0x1f1 @0x0
0x01f1…0208 lno = 0x0096 // 0x1f3 @0x2
0x01f1…0208 at0004 = ╱87╱ DIM ╱ // 0x1f5 @0x4
0x01f1…0208 at0005 = ╱54╱T╱ // 0x1f6 @0x5
0x01f1…0208 at0006 = ╱31╱1╱ // 0x1f7 @0x6
0x01f1…0208 at0007 = ╱ed╱(╱ // 0x1f8 @0x7
0x01f1…0208 at0008 = ╱57╱W╱ // 0x1f9 @0x8
0x01f1…0208 at0009 = ╱ee╱)╱ // 0x1fa @0x9
0x01f1…0208 at000a = ╱ec╱,╱ // 0x1fb @0xa
0x01f1…0208 at000b = ╱54╱T╱ // 0x1fc @0xb
0x01f1…0208 at000c = ╱32╱2╱ // 0x1fd @0xc
0x01f1…0208 at000d = ╱ed╱(╱ // 0x1fe @0xd
0x01f1…0208 at000e = ╱57╱W╱ // 0x1ff @0xe
0x01f1…0208 at000f = ╱ee╱)╱ // 0x200 @0xf
0x01f1…0208 at0010 = ╱ec╱,╱ // 0x201 @0x10
0x01f1…0208 at0011 = ╱54╱T╱ // 0x202 @0x11
0x01f1…0208 at0012 = ╱33╱3╱ // 0x203 @0x12
0x01f1…0208 at0013 = ╱ed╱(╱ // 0x204 @0x13
0x01f1…0208 at0014 = ╱57╱W╱ // 0x205 @0x14
0x01f1…0208 at0015 = ╱ee╱)╱ // 0x206 @0x15
0x01f1…0208 at0016 = EOL // 0x207 @0x16
0x01f1…0208 }
0x0208…022d 8f84 0160 DIM UBEL1$(14),UBEL2$(14)
0x0208…022d LineComalBin {
0x0208…022d ptr = 0x8f84 // 0x208 @0x0
0x0208…022d lno = 0x00a0 // 0x20a @0x2
0x0208…022d at0004 = ╱87╱ DIM ╱ // 0x20c @0x4
0x0208…022d at0005 = ╱55╱U╱ // 0x20d @0x5
0x0208…022d at0006 = ╱42╱B╱ // 0x20e @0x6
0x0208…022d at0007 = ╱45╱E╱ // 0x20f @0x7
0x0208…022d at0008 = ╱4c╱L╱ // 0x210 @0x8
0x0208…022d at0009 = ╱31╱1╱ // 0x211 @0x9
0x0208…022d at000a = ╱ef╱$╱ // 0x212 @0xa
0x0208…022d at000b = ╱ed╱(╱ // 0x213 @0xb
0x0208…022d at000c = ╱31╱1╱ // 0x214 @0xc
0x0208…022d at000d = ╱34╱4╱ // 0x215 @0xd
0x0208…022d at000e = ╱fe0000e004╱ // 0x216 @0xe
0x0208…022d at0013 = ╱ee╱)╱ // 0x21b @0x13
0x0208…022d at0014 = ╱ec╱,╱ // 0x21c @0x14
0x0208…022d at0015 = ╱55╱U╱ // 0x21d @0x15
0x0208…022d at0016 = ╱42╱B╱ // 0x21e @0x16
0x0208…022d at0017 = ╱45╱E╱ // 0x21f @0x17
0x0208…022d at0018 = ╱4c╱L╱ // 0x220 @0x18
0x0208…022d at0019 = ╱32╱2╱ // 0x221 @0x19
0x0208…022d at001a = ╱ef╱$╱ // 0x222 @0x1a
0x0208…022d at001b = ╱ed╱(╱ // 0x223 @0x1b
0x0208…022d at001c = ╱31╱1╱ // 0x224 @0x1c
0x0208…022d at001d = ╱34╱4╱ // 0x225 @0x1d
0x0208…022d at001e = ╱fe0000e004╱ // 0x226 @0x1e
0x0208…022d at0023 = ╱ee╱)╱ // 0x22b @0x23
0x0208…022d at0024 = EOL // 0x22c @0x24
0x0208…022d }
0x022d…0245 8f9c 0170 PROC CALC(AR3,B1,B2,ES)
0x022d…0245 LineComalBin {
0x022d…0245 ptr = 0x8f9c // 0x22d @0x0
0x022d…0245 lno = 0x00aa // 0x22f @0x2
0x022d…0245 at0004 = ╱9e╱ PROC ╱ // 0x231 @0x4
0x022d…0245 at0005 = ╱43╱C╱ // 0x232 @0x5
0x022d…0245 at0006 = ╱41╱A╱ // 0x233 @0x6
0x022d…0245 at0007 = ╱4c╱L╱ // 0x234 @0x7
0x022d…0245 at0008 = ╱43╱C╱ // 0x235 @0x8
0x022d…0245 at0009 = ╱ed╱(╱ // 0x236 @0x9
0x022d…0245 at000a = ╱41╱A╱ // 0x237 @0xa
0x022d…0245 at000b = ╱52╱R╱ // 0x238 @0xb
0x022d…0245 at000c = ╱33╱3╱ // 0x239 @0xc
0x022d…0245 at000d = ╱ec╱,╱ // 0x23a @0xd
0x022d…0245 at000e = ╱42╱B╱ // 0x23b @0xe
0x022d…0245 at000f = ╱31╱1╱ // 0x23c @0xf
0x022d…0245 at0010 = ╱ec╱,╱ // 0x23d @0x10
0x022d…0245 at0011 = ╱42╱B╱ // 0x23e @0x11
0x022d…0245 at0012 = ╱32╱2╱ // 0x23f @0x12
0x022d…0245 at0013 = ╱ec╱,╱ // 0x240 @0x13
0x022d…0245 at0014 = ╱45╱E╱ // 0x241 @0x14
0x022d…0245 at0015 = ╱53╱S╱ // 0x242 @0x15
0x022d…0245 at0016 = ╱ee╱)╱ // 0x243 @0x16
0x022d…0245 at0017 = EOL // 0x244 @0x17
0x022d…0245 }
0x0245…028c 8fe3 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0245…028c LineComalBin {
0x0245…028c ptr = 0x8fe3 // 0x245 @0x0
0x0245…028c lno = 0x00b4 // 0x247 @0x2
0x0245…028c at0004 = ╱4f╱O╱ // 0x249 @0x4
0x0245…028c at0005 = ╱50╱P╱ // 0x24a @0x5
0x0245…028c at0006 = ╱31╱1╱ // 0x24b @0x6
0x0245…028c at0007 = ╱ef╱$╱ // 0x24c @0x7
0x0245…028c at0008 = ╱dc╱=╱ // 0x24d @0x8
0x0245…028c at0009 = ╱42╱B╱ // 0x24e @0x9
0x0245…028c at000a = ╱31╱1╱ // 0x24f @0xa
0x0245…028c at000b = ╱ef╱$╱ // 0x250 @0xb
0x0245…028c at000c = ╱eb╱;╱ // 0x251 @0xc
0x0245…028c at000d = ╱4f╱O╱ // 0x252 @0xd
0x0245…028c at000e = ╱50╱P╱ // 0x253 @0xe
0x0245…028c at000f = ╱32╱2╱ // 0x254 @0xf
0x0245…028c at0010 = ╱ef╱$╱ // 0x255 @0x10
0x0245…028c at0011 = ╱dc╱=╱ // 0x256 @0x11
0x0245…028c at0012 = ╱42╱B╱ // 0x257 @0x12
0x0245…028c at0013 = ╱32╱2╱ // 0x258 @0x13
0x0245…028c at0014 = ╱ef╱$╱ // 0x259 @0x14
0x0245…028c at0015 = ╱eb╱;╱ // 0x25a @0x15
0x0245…028c at0016 = ╱52╱R╱ // 0x25b @0x16
0x0245…028c at0017 = ╱45╱E╱ // 0x25c @0x17
0x0245…028c at0018 = ╱53╱S╱ // 0x25d @0x18
0x0245…028c at0019 = ╱ef╱$╱ // 0x25e @0x19
0x0245…028c at001a = ╱dc╱=╱ // 0x25f @0x1a
0x0245…028c at001b = ╱45╱E╱ // 0x260 @0x1b
0x0245…028c at001c = ╱53╱S╱ // 0x261 @0x1c
0x0245…028c at001d = ╱ef╱$╱ // 0x262 @0x1d
0x0245…028c at001e = ╱eb╱;╱ // 0x263 @0x1e
0x0245…028c at001f = ╱53╱S╱ // 0x264 @0x1f
0x0245…028c at0020 = ╱49╱I╱ // 0x265 @0x20
0x0245…028c at0021 = ╱dc╱=╱ // 0x266 @0x21
0x0245…028c at0022 = ╱42╱B╱ // 0x267 @0x22
0x0245…028c at0023 = ╱eb╱;╱ // 0x268 @0x23
0x0245…028c at0024 = ╱46╱F╱ // 0x269 @0x24
0x0245…028c at0025 = ╱4c╱L╱ // 0x26a @0x25
0x0245…028c at0026 = ╱41╱A╱ // 0x26b @0x26
0x0245…028c at0027 = ╱47╱G╱ // 0x26c @0x27
0x0245…028c at0028 = ╱dc╱=╱ // 0x26d @0x28
0x0245…028c at0029 = ╱42╱B╱ // 0x26e @0x29
0x0245…028c at002a = ╱eb╱;╱ // 0x26f @0x2a
0x0245…028c at002b = ╱41╱A╱ // 0x270 @0x2b
0x0245…028c at002c = ╱52╱R╱ // 0x271 @0x2c
0x0245…028c at002d = ╱54╱T╱ // 0x272 @0x2d
0x0245…028c at002e = ╱dc╱=╱ // 0x273 @0x2e
0x0245…028c at002f = ╱41╱A╱ // 0x274 @0x2f
0x0245…028c at0030 = ╱52╱R╱ // 0x275 @0x30
0x0245…028c at0031 = ╱33╱3╱ // 0x276 @0x31
0x0245…028c at0032 = ╱e3╱-╱ // 0x277 @0x32
0x0245…028c at0033 = ╱36╱6╱ // 0x278 @0x33
0x0245…028c at0034 = ╱fe0000c003╱ // 0x279 @0x34
0x0245…028c at0039 = ╱e4╱*╱ // 0x27e @0x39
0x0245…028c at003a = ╱ed╱(╱ // 0x27f @0x3a
0x0245…028c at003b = ╱41╱A╱ // 0x280 @0x3b
0x0245…028c at003c = ╱52╱R╱ // 0x281 @0x3c
0x0245…028c at003d = ╱33╱3╱ // 0x282 @0x3d
0x0245…028c at003e = ╱de╱>╱ // 0x283 @0x3e
0x0245…028c at003f = ╱35╱5╱ // 0x284 @0x3f
0x0245…028c at0040 = ╱fe0000a003╱ // 0x285 @0x40
0x0245…028c at0045 = ╱ee╱)╱ // 0x28a @0x45
0x0245…028c at0046 = EOL // 0x28b @0x46
0x0245…028c }
0x028c…02a2 8ff9 0190 CALL "P641210:REGN"
0x028c…02a2 LineComalBin {
0x028c…02a2 ptr = 0x8ff9 // 0x28c @0x0
0x028c…02a2 lno = 0x00be // 0x28e @0x2
0x028c…02a2 at0004 = ╱adff00╱ CALL ╱ // 0x290 @0x4
0x028c…02a2 at0007 = ╱22╱"╱ // 0x293 @0x7
0x028c…02a2 at0008 = ╱50╱P╱ // 0x294 @0x8
0x028c…02a2 at0009 = ╱36╱6╱ // 0x295 @0x9
0x028c…02a2 at000a = ╱34╱4╱ // 0x296 @0xa
0x028c…02a2 at000b = ╱31╱1╱ // 0x297 @0xb
0x028c…02a2 at000c = ╱32╱2╱ // 0x298 @0xc
0x028c…02a2 at000d = ╱31╱1╱ // 0x299 @0xd
0x028c…02a2 at000e = ╱30╱0╱ // 0x29a @0xe
0x028c…02a2 at000f = ╱3a╱:╱ // 0x29b @0xf
0x028c…02a2 at0010 = ╱52╱R╱ // 0x29c @0x10
0x028c…02a2 at0011 = ╱45╱E╱ // 0x29d @0x11
0x028c…02a2 at0012 = ╱47╱G╱ // 0x29e @0x12
0x028c…02a2 at0013 = ╱4e╱N╱ // 0x29f @0x13
0x028c…02a2 at0014 = ╱22╱"╱ // 0x2a0 @0x14
0x028c…02a2 at0015 = EOL // 0x2a1 @0x15
0x028c…02a2 }
0x02a2…02af 9006 0200 ES$=RES$
0x02a2…02af LineComalBin {
0x02a2…02af ptr = 0x9006 // 0x2a2 @0x0
0x02a2…02af lno = 0x00c8 // 0x2a4 @0x2
0x02a2…02af at0004 = ╱45╱E╱ // 0x2a6 @0x4
0x02a2…02af at0005 = ╱53╱S╱ // 0x2a7 @0x5
0x02a2…02af at0006 = ╱ef╱$╱ // 0x2a8 @0x6
0x02a2…02af at0007 = ╱dc╱=╱ // 0x2a9 @0x7
0x02a2…02af at0008 = ╱52╱R╱ // 0x2aa @0x8
0x02a2…02af at0009 = ╱45╱E╱ // 0x2ab @0x9
0x02a2…02af at000a = ╱53╱S╱ // 0x2ac @0xa
0x02a2…02af at000b = ╱ef╱$╱ // 0x2ad @0xb
0x02a2…02af at000c = EOL // 0x2ae @0xc
0x02a2…02af }
0x02af…02c7 901e 0210 IF AR3<6 THEN IF FLAG THEN STOP
0x02af…02c7 LineComalBin {
0x02af…02c7 ptr = 0x901e // 0x2af @0x0
0x02af…02c7 lno = 0x00d2 // 0x2b1 @0x2
0x02af…02c7 at0004 = ╱82╱ IF ╱ // 0x2b3 @0x4
0x02af…02c7 at0005 = ╱41╱A╱ // 0x2b4 @0x5
0x02af…02c7 at0006 = ╱52╱R╱ // 0x2b5 @0x6
0x02af…02c7 at0007 = ╱33╱3╱ // 0x2b6 @0x7
0x02af…02c7 at0008 = ╱dd╱<╱ // 0x2b7 @0x8
0x02af…02c7 at0009 = ╱36╱6╱ // 0x2b8 @0x9
0x02af…02c7 at000a = ╱fe0000c003╱ // 0x2b9 @0xa
0x02af…02c7 at000f = ╱b6╱ THEN ╱ // 0x2be @0xf
0x02af…02c7 at0010 = ╱82╱ IF ╱ // 0x2bf @0x10
0x02af…02c7 at0011 = ╱46╱F╱ // 0x2c0 @0x11
0x02af…02c7 at0012 = ╱4c╱L╱ // 0x2c1 @0x12
0x02af…02c7 at0013 = ╱41╱A╱ // 0x2c2 @0x13
0x02af…02c7 at0014 = ╱47╱G╱ // 0x2c3 @0x14
0x02af…02c7 at0015 = ╱b6╱ THEN ╱ // 0x2c4 @0x15
0x02af…02c7 at0016 = ╱8d╱ STOP ╱ // 0x2c5 @0x16
0x02af…02c7 at0017 = EOL // 0x2c6 @0x17
0x02af…02c7 }
0x02c7…02cd 9024 0220 ENDPROC
0x02c7…02cd LineComalBin {
0x02c7…02cd ptr = 0x9024 // 0x2c7 @0x0
0x02c7…02cd lno = 0x00dc // 0x2c9 @0x2
0x02c7…02cd at0004 = ╱9f╱ ENDPROC ╱ // 0x2cb @0x4
0x02c7…02cd at0005 = EOL // 0x2cc @0x5
0x02c7…02cd }
0x02cd…02ea 9041 0230 PROC TUD(BLB,UBLB,TEGN,STØR)
0x02cd…02ea LineComalBin {
0x02cd…02ea ptr = 0x9041 // 0x2cd @0x0
0x02cd…02ea lno = 0x00e6 // 0x2cf @0x2
0x02cd…02ea at0004 = ╱9e╱ PROC ╱ // 0x2d1 @0x4
0x02cd…02ea at0005 = ╱54╱T╱ // 0x2d2 @0x5
0x02cd…02ea at0006 = ╱55╱U╱ // 0x2d3 @0x6
0x02cd…02ea at0007 = ╱44╱D╱ // 0x2d4 @0x7
0x02cd…02ea at0008 = ╱ed╱(╱ // 0x2d5 @0x8
0x02cd…02ea at0009 = ╱42╱B╱ // 0x2d6 @0x9
0x02cd…02ea at000a = ╱4c╱L╱ // 0x2d7 @0xa
0x02cd…02ea at000b = ╱42╱B╱ // 0x2d8 @0xb
0x02cd…02ea at000c = ╱ec╱,╱ // 0x2d9 @0xc
0x02cd…02ea at000d = ╱55╱U╱ // 0x2da @0xd
0x02cd…02ea at000e = ╱42╱B╱ // 0x2db @0xe
0x02cd…02ea at000f = ╱4c╱L╱ // 0x2dc @0xf
0x02cd…02ea at0010 = ╱42╱B╱ // 0x2dd @0x10
0x02cd…02ea at0011 = ╱ec╱,╱ // 0x2de @0x11
0x02cd…02ea at0012 = ╱54╱T╱ // 0x2df @0x12
0x02cd…02ea at0013 = ╱45╱E╱ // 0x2e0 @0x13
0x02cd…02ea at0014 = ╱47╱G╱ // 0x2e1 @0x14
0x02cd…02ea at0015 = ╱4e╱N╱ // 0x2e2 @0x15
0x02cd…02ea at0016 = ╱ec╱,╱ // 0x2e3 @0x16
0x02cd…02ea at0017 = ╱53╱S╱ // 0x2e4 @0x17
0x02cd…02ea at0018 = ╱54╱T╱ // 0x2e5 @0x18
0x02cd…02ea at0019 = ╱5c╱Ø╱ // 0x2e6 @0x19
0x02cd…02ea at001a = ╱52╱R╱ // 0x2e7 @0x1a
0x02cd…02ea at001b = ╱ee╱)╱ // 0x2e8 @0x1b
0x02cd…02ea at001c = EOL // 0x2e9 @0x1c
0x02cd…02ea }
0x02ea…030c 9063 0240 EXEC CALC(5,BLB$,TAH$,UBLB$)
0x02ea…030c LineComalBin {
0x02ea…030c ptr = 0x9063 // 0x2ea @0x0
0x02ea…030c lno = 0x00f0 // 0x2ec @0x2
0x02ea…030c at0004 = ╱9d╱ EXEC ╱ // 0x2ee @0x4
0x02ea…030c at0005 = ╱43╱C╱ // 0x2ef @0x5
0x02ea…030c at0006 = ╱41╱A╱ // 0x2f0 @0x6
0x02ea…030c at0007 = ╱4c╱L╱ // 0x2f1 @0x7
0x02ea…030c at0008 = ╱43╱C╱ // 0x2f2 @0x8
0x02ea…030c at0009 = ╱ed╱(╱ // 0x2f3 @0x9
0x02ea…030c at000a = ╱35╱5╱ // 0x2f4 @0xa
0x02ea…030c at000b = ╱fe0000a003╱ // 0x2f5 @0xb
0x02ea…030c at0010 = ╱ec╱,╱ // 0x2fa @0x10
0x02ea…030c at0011 = ╱42╱B╱ // 0x2fb @0x11
0x02ea…030c at0012 = ╱4c╱L╱ // 0x2fc @0x12
0x02ea…030c at0013 = ╱42╱B╱ // 0x2fd @0x13
0x02ea…030c at0014 = ╱ef╱$╱ // 0x2fe @0x14
0x02ea…030c at0015 = ╱ec╱,╱ // 0x2ff @0x15
0x02ea…030c at0016 = ╱54╱T╱ // 0x300 @0x16
0x02ea…030c at0017 = ╱41╱A╱ // 0x301 @0x17
0x02ea…030c at0018 = ╱48╱H╱ // 0x302 @0x18
0x02ea…030c at0019 = ╱ef╱$╱ // 0x303 @0x19
0x02ea…030c at001a = ╱ec╱,╱ // 0x304 @0x1a
0x02ea…030c at001b = ╱55╱U╱ // 0x305 @0x1b
0x02ea…030c at001c = ╱42╱B╱ // 0x306 @0x1c
0x02ea…030c at001d = ╱4c╱L╱ // 0x307 @0x1d
0x02ea…030c at001e = ╱42╱B╱ // 0x308 @0x1e
0x02ea…030c at001f = ╱ef╱$╱ // 0x309 @0x1f
0x02ea…030c at0020 = ╱ee╱)╱ // 0x30a @0x20
0x02ea…030c at0021 = EOL // 0x30b @0x21
0x02ea…030c }
0x030c…032f 9086 0250 IF TEGN=B THEN UBLB$=UBLB$(E:13)
0x030c…032f LineComalBin {
0x030c…032f ptr = 0x9086 // 0x30c @0x0
0x030c…032f lno = 0x00fa // 0x30e @0x2
0x030c…032f at0004 = ╱82╱ IF ╱ // 0x310 @0x4
0x030c…032f at0005 = ╱54╱T╱ // 0x311 @0x5
0x030c…032f at0006 = ╱45╱E╱ // 0x312 @0x6
0x030c…032f at0007 = ╱47╱G╱ // 0x313 @0x7
0x030c…032f at0008 = ╱4e╱N╱ // 0x314 @0x8
0x030c…032f at0009 = ╱dc╱=╱ // 0x315 @0x9
0x030c…032f at000a = ╱42╱B╱ // 0x316 @0xa
0x030c…032f at000b = ╱b6╱ THEN ╱ // 0x317 @0xb
0x030c…032f at000c = ╱55╱U╱ // 0x318 @0xc
0x030c…032f at000d = ╱42╱B╱ // 0x319 @0xd
0x030c…032f at000e = ╱4c╱L╱ // 0x31a @0xe
0x030c…032f at000f = ╱42╱B╱ // 0x31b @0xf
0x030c…032f at0010 = ╱ef╱$╱ // 0x31c @0x10
0x030c…032f at0011 = ╱dc╱=╱ // 0x31d @0x11
0x030c…032f at0012 = ╱55╱U╱ // 0x31e @0x12
0x030c…032f at0013 = ╱42╱B╱ // 0x31f @0x13
0x030c…032f at0014 = ╱4c╱L╱ // 0x320 @0x14
0x030c…032f at0015 = ╱42╱B╱ // 0x321 @0x15
0x030c…032f at0016 = ╱ef╱$╱ // 0x322 @0x16
0x030c…032f at0017 = ╱ed╱(╱ // 0x323 @0x17
0x030c…032f at0018 = ╱45╱E╱ // 0x324 @0x18
0x030c…032f at0019 = ╱f0╱:╱ // 0x325 @0x19
0x030c…032f at001a = ╱31╱1╱ // 0x326 @0x1a
0x030c…032f at001b = ╱33╱3╱ // 0x327 @0x1b
0x030c…032f at001c = ╱fe0000d004╱ // 0x328 @0x1c
0x030c…032f at0021 = ╱ee╱)╱ // 0x32d @0x21
0x030c…032f at0022 = EOL // 0x32e @0x22
0x030c…032f }
0x032f…0363 90ba 0260 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN UBLB$(LEN(UBLB$))=" "
0x032f…0363 LineComalBin {
0x032f…0363 ptr = 0x90ba // 0x32f @0x0
0x032f…0363 lno = 0x0104 // 0x331 @0x2
0x032f…0363 at0004 = ╱82╱ IF ╱ // 0x333 @0x4
0x032f…0363 at0005 = ╱54╱T╱ // 0x334 @0x5
0x032f…0363 at0006 = ╱45╱E╱ // 0x335 @0x6
0x032f…0363 at0007 = ╱47╱G╱ // 0x336 @0x7
0x032f…0363 at0008 = ╱4e╱N╱ // 0x337 @0x8
0x032f…0363 at0009 = ╱dc╱=╱ // 0x338 @0x9
0x032f…0363 at000a = ╱45╱E╱ // 0x339 @0xa
0x032f…0363 at000b = ╱da╱ AND ╱ // 0x33a @0xb
0x032f…0363 at000c = ╱55╱U╱ // 0x33b @0xc
0x032f…0363 at000d = ╱42╱B╱ // 0x33c @0xd
0x032f…0363 at000e = ╱4c╱L╱ // 0x33d @0xe
0x032f…0363 at000f = ╱42╱B╱ // 0x33e @0xf
0x032f…0363 at0010 = ╱ef╱$╱ // 0x33f @0x10
0x032f…0363 at0011 = ╱ed╱(╱ // 0x340 @0x11
0x032f…0363 at0012 = ╱cc╱LEN╱ // 0x341 @0x12
0x032f…0363 at0013 = ╱ed╱(╱ // 0x342 @0x13
0x032f…0363 at0014 = ╱55╱U╱ // 0x343 @0x14
0x032f…0363 at0015 = ╱42╱B╱ // 0x344 @0x15
0x032f…0363 at0016 = ╱4c╱L╱ // 0x345 @0x16
0x032f…0363 at0017 = ╱42╱B╱ // 0x346 @0x17
0x032f…0363 at0018 = ╱ef╱$╱ // 0x347 @0x18
0x032f…0363 at0019 = ╱ee╱)╱ // 0x348 @0x19
0x032f…0363 at001a = ╱ee╱)╱ // 0x349 @0x1a
0x032f…0363 at001b = ╱dc╱=╱ // 0x34a @0x1b
0x032f…0363 at001c = ╱22╱"╱ // 0x34b @0x1c
0x032f…0363 at001d = ╱2b╱+╱ // 0x34c @0x1d
0x032f…0363 at001e = ╱22╱"╱ // 0x34d @0x1e
0x032f…0363 at001f = ╱b6╱ THEN ╱ // 0x34e @0x1f
0x032f…0363 at0020 = ╱55╱U╱ // 0x34f @0x20
0x032f…0363 at0021 = ╱42╱B╱ // 0x350 @0x21
0x032f…0363 at0022 = ╱4c╱L╱ // 0x351 @0x22
0x032f…0363 at0023 = ╱42╱B╱ // 0x352 @0x23
0x032f…0363 at0024 = ╱ef╱$╱ // 0x353 @0x24
0x032f…0363 at0025 = ╱ed╱(╱ // 0x354 @0x25
0x032f…0363 at0026 = ╱cc╱LEN╱ // 0x355 @0x26
0x032f…0363 at0027 = ╱ed╱(╱ // 0x356 @0x27
0x032f…0363 at0028 = ╱55╱U╱ // 0x357 @0x28
0x032f…0363 at0029 = ╱42╱B╱ // 0x358 @0x29
0x032f…0363 at002a = ╱4c╱L╱ // 0x359 @0x2a
0x032f…0363 at002b = ╱42╱B╱ // 0x35a @0x2b
0x032f…0363 at002c = ╱ef╱$╱ // 0x35b @0x2c
0x032f…0363 at002d = ╱ee╱)╱ // 0x35c @0x2d
0x032f…0363 at002e = ╱ee╱)╱ // 0x35d @0x2e
0x032f…0363 at002f = ╱dc╱=╱ // 0x35e @0x2f
0x032f…0363 at0030 = ╱22╱"╱ // 0x35f @0x30
0x032f…0363 at0031 = ╱20╱…╱ // 0x360 @0x31
0x032f…0363 at0032 = ╱22╱"╱ // 0x361 @0x32
0x032f…0363 at0033 = EOL // 0x362 @0x33
0x032f…0363 }
0x0363…038e 90e5 0270 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V)
0x0363…038e LineComalBin {
0x0363…038e ptr = 0x90e5 // 0x363 @0x0
0x0363…038e lno = 0x010e // 0x365 @0x2
0x0363…038e at0004 = ╱82╱ IF ╱ // 0x367 @0x4
0x0363…038e at0005 = ╱53╱S╱ // 0x368 @0x5
0x0363…038e at0006 = ╱54╱T╱ // 0x369 @0x6
0x0363…038e at0007 = ╱5c╱Ø╱ // 0x36a @0x7
0x0363…038e at0008 = ╱52╱R╱ // 0x36b @0x8
0x0363…038e at0009 = ╱dc╱=╱ // 0x36c @0x9
0x0363…038e at000a = ╱45╱E╱ // 0x36d @0xa
0x0363…038e at000b = ╱b6╱ THEN ╱ // 0x36e @0xb
0x0363…038e at000c = ╱55╱U╱ // 0x36f @0xc
0x0363…038e at000d = ╱42╱B╱ // 0x370 @0xd
0x0363…038e at000e = ╱4c╱L╱ // 0x371 @0xe
0x0363…038e at000f = ╱42╱B╱ // 0x372 @0xf
0x0363…038e at0010 = ╱ef╱$╱ // 0x373 @0x10
0x0363…038e at0011 = ╱dc╱=╱ // 0x374 @0x11
0x0363…038e at0012 = ╱55╱U╱ // 0x375 @0x12
0x0363…038e at0013 = ╱42╱B╱ // 0x376 @0x13
0x0363…038e at0014 = ╱4c╱L╱ // 0x377 @0x14
0x0363…038e at0015 = ╱42╱B╱ // 0x378 @0x15
0x0363…038e at0016 = ╱ef╱$╱ // 0x379 @0x16
0x0363…038e at0017 = ╱ed╱(╱ // 0x37a @0x17
0x0363…038e at0018 = ╱34╱4╱ // 0x37b @0x18
0x0363…038e at0019 = ╱fe00008003╱ // 0x37c @0x19
0x0363…038e at001e = ╱f0╱:╱ // 0x381 @0x1e
0x0363…038e at001f = ╱cc╱LEN╱ // 0x382 @0x1f
0x0363…038e at0020 = ╱ed╱(╱ // 0x383 @0x20
0x0363…038e at0021 = ╱55╱U╱ // 0x384 @0x21
0x0363…038e at0022 = ╱42╱B╱ // 0x385 @0x22
0x0363…038e at0023 = ╱4c╱L╱ // 0x386 @0x23
0x0363…038e at0024 = ╱42╱B╱ // 0x387 @0x24
0x0363…038e at0025 = ╱ef╱$╱ // 0x388 @0x25
0x0363…038e at0026 = ╱ee╱)╱ // 0x389 @0x26
0x0363…038e at0027 = ╱e3╱-╱ // 0x38a @0x27
0x0363…038e at0028 = ╱56╱V╱ // 0x38b @0x28
0x0363…038e at0029 = ╱ee╱)╱ // 0x38c @0x29
0x0363…038e at002a = EOL // 0x38d @0x2a
0x0363…038e }
0x038e…0394 90eb 0280 ENDPROC
0x038e…0394 LineComalBin {
0x038e…0394 ptr = 0x90eb // 0x38e @0x0
0x038e…0394 lno = 0x0118 // 0x390 @0x2
0x038e…0394 at0004 = ╱9f╱ ENDPROC ╱ // 0x392 @0x4
0x038e…0394 at0005 = EOL // 0x393 @0x5
0x038e…0394 }
0x0394…03ab 9102 0290 PROC FEJL(NR1,NR2,NR3)
0x0394…03ab LineComalBin {
0x0394…03ab ptr = 0x9102 // 0x394 @0x0
0x0394…03ab lno = 0x0122 // 0x396 @0x2
0x0394…03ab at0004 = ╱9e╱ PROC ╱ // 0x398 @0x4
0x0394…03ab at0005 = ╱46╱F╱ // 0x399 @0x5
0x0394…03ab at0006 = ╱45╱E╱ // 0x39a @0x6
0x0394…03ab at0007 = ╱4a╱J╱ // 0x39b @0x7
0x0394…03ab at0008 = ╱4c╱L╱ // 0x39c @0x8
0x0394…03ab at0009 = ╱ed╱(╱ // 0x39d @0x9
0x0394…03ab at000a = ╱4e╱N╱ // 0x39e @0xa
0x0394…03ab at000b = ╱52╱R╱ // 0x39f @0xb
0x0394…03ab at000c = ╱31╱1╱ // 0x3a0 @0xc
0x0394…03ab at000d = ╱ec╱,╱ // 0x3a1 @0xd
0x0394…03ab at000e = ╱4e╱N╱ // 0x3a2 @0xe
0x0394…03ab at000f = ╱52╱R╱ // 0x3a3 @0xf
0x0394…03ab at0010 = ╱32╱2╱ // 0x3a4 @0x10
0x0394…03ab at0011 = ╱ec╱,╱ // 0x3a5 @0x11
0x0394…03ab at0012 = ╱4e╱N╱ // 0x3a6 @0x12
0x0394…03ab at0013 = ╱52╱R╱ // 0x3a7 @0x13
0x0394…03ab at0014 = ╱33╱3╱ // 0x3a8 @0x14
0x0394…03ab at0015 = ╱ee╱)╱ // 0x3a9 @0x15
0x0394…03ab at0016 = EOL // 0x3aa @0x16
0x0394…03ab }
0x03ab…03bb 9112 0300 IF STATUS(NR3$)<>B THEN
0x03ab…03bb LineComalBin {
0x03ab…03bb ptr = 0x9112 // 0x3ab @0x0
0x03ab…03bb lno = 0x012c // 0x3ad @0x2
0x03ab…03bb at0004 = ╱9c╱ IF ╱ // 0x3af @0x4
0x03ab…03bb at0005 = ╱ce╱STATUS╱ // 0x3b0 @0x5
0x03ab…03bb at0006 = ╱ed╱(╱ // 0x3b1 @0x6
0x03ab…03bb at0007 = ╱4e╱N╱ // 0x3b2 @0x7
0x03ab…03bb at0008 = ╱52╱R╱ // 0x3b3 @0x8
0x03ab…03bb at0009 = ╱33╱3╱ // 0x3b4 @0x9
0x03ab…03bb at000a = ╱ef╱$╱ // 0x3b5 @0xa
0x03ab…03bb at000b = ╱ee╱)╱ // 0x3b6 @0xb
0x03ab…03bb at000c = ╱e1╱<>╱ // 0x3b7 @0xc
0x03ab…03bb at000d = ╱42╱B╱ // 0x3b8 @0xd
0x03ab…03bb at000e = ╱b6╱ THEN ╱ // 0x3b9 @0xe
0x03ab…03bb at000f = EOL // 0x3ba @0xf
0x03ab…03bb }
0x03bb…03d5 912c 0310 PRINT NR1,NR2,NR3$,STATUS(NR3$)
0x03bb…03d5 LineComalBin {
0x03bb…03d5 ptr = 0x912c // 0x3bb @0x0
0x03bb…03d5 lno = 0x0136 // 0x3bd @0x2
0x03bb…03d5 at0004 = ╱92╱ PRINT ╱ // 0x3bf @0x4
0x03bb…03d5 at0005 = ╱4e╱N╱ // 0x3c0 @0x5
0x03bb…03d5 at0006 = ╱52╱R╱ // 0x3c1 @0x6
0x03bb…03d5 at0007 = ╱31╱1╱ // 0x3c2 @0x7
0x03bb…03d5 at0008 = ╱ec╱,╱ // 0x3c3 @0x8
0x03bb…03d5 at0009 = ╱4e╱N╱ // 0x3c4 @0x9
0x03bb…03d5 at000a = ╱52╱R╱ // 0x3c5 @0xa
0x03bb…03d5 at000b = ╱32╱2╱ // 0x3c6 @0xb
0x03bb…03d5 at000c = ╱ec╱,╱ // 0x3c7 @0xc
0x03bb…03d5 at000d = ╱4e╱N╱ // 0x3c8 @0xd
0x03bb…03d5 at000e = ╱52╱R╱ // 0x3c9 @0xe
0x03bb…03d5 at000f = ╱33╱3╱ // 0x3ca @0xf
0x03bb…03d5 at0010 = ╱ef╱$╱ // 0x3cb @0x10
0x03bb…03d5 at0011 = ╱ec╱,╱ // 0x3cc @0x11
0x03bb…03d5 at0012 = ╱ce╱STATUS╱ // 0x3cd @0x12
0x03bb…03d5 at0013 = ╱ed╱(╱ // 0x3ce @0x13
0x03bb…03d5 at0014 = ╱4e╱N╱ // 0x3cf @0x14
0x03bb…03d5 at0015 = ╱52╱R╱ // 0x3d0 @0x15
0x03bb…03d5 at0016 = ╱33╱3╱ // 0x3d1 @0x16
0x03bb…03d5 at0017 = ╱ef╱$╱ // 0x3d2 @0x17
0x03bb…03d5 at0018 = ╱ee╱)╱ // 0x3d3 @0x18
0x03bb…03d5 at0019 = EOL // 0x3d4 @0x19
0x03bb…03d5 }
0x03d5…03db 9132 0320 STOP
0x03d5…03db LineComalBin {
0x03d5…03db ptr = 0x9132 // 0x3d5 @0x0
0x03d5…03db lno = 0x0140 // 0x3d7 @0x2
0x03d5…03db at0004 = ╱8d╱ STOP ╱ // 0x3d9 @0x4
0x03d5…03db at0005 = EOL // 0x3da @0x5
0x03d5…03db }
0x03db…03e1 9138 0330 ENDIF
0x03db…03e1 LineComalBin {
0x03db…03e1 ptr = 0x9138 // 0x3db @0x0
0x03db…03e1 lno = 0x014a // 0x3dd @0x2
0x03db…03e1 at0004 = ╱9b╱ ENDIF ╱ // 0x3df @0x4
0x03db…03e1 at0005 = EOL // 0x3e0 @0x5
0x03db…03e1 }
0x03e1…03e7 913e 0340 ENDPROC
0x03e1…03e7 LineComalBin {
0x03e1…03e7 ptr = 0x913e // 0x3e1 @0x0
0x03e1…03e7 lno = 0x0154 // 0x3e3 @0x2
0x03e1…03e7 at0004 = ╱9f╱ ENDPROC ╱ // 0x3e5 @0x4
0x03e1…03e7 at0005 = EOL // 0x3e6 @0x5
0x03e1…03e7 }
0x03e7…0414 916b 0350 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34)
0x03e7…0414 LineComalBin {
0x03e7…0414 ptr = 0x916b // 0x3e7 @0x0
0x03e7…0414 lno = 0x015e // 0x3e9 @0x2
0x03e7…0414 at0004 = ╱9e╱ PROC ╱ // 0x3eb @0x4
0x03e7…0414 at0005 = ╱53╱S╱ // 0x3ec @0x5
0x03e7…0414 at0006 = ╱5c╱Ø╱ // 0x3ed @0x6
0x03e7…0414 at0007 = ╱47╱G╱ // 0x3ee @0x7
0x03e7…0414 at0008 = ╱ed╱(╱ // 0x3ef @0x8
0x03e7…0414 at0009 = ╱4d╱M╱ // 0x3f0 @0x9
0x03e7…0414 at000a = ╱50╱P╱ // 0x3f1 @0xa
0x03e7…0414 at000b = ╱4f╱O╱ // 0x3f2 @0xb
0x03e7…0414 at000c = ╱53╱S╱ // 0x3f3 @0xc
0x03e7…0414 at000d = ╱54╱T╱ // 0x3f4 @0xd
0x03e7…0414 at000e = ╱41╱A╱ // 0x3f5 @0xe
0x03e7…0414 at000f = ╱4e╱N╱ // 0x3f6 @0xf
0x03e7…0414 at0010 = ╱54╱T╱ // 0x3f7 @0x10
0x03e7…0414 at0011 = ╱41╱A╱ // 0x3f8 @0x11
0x03e7…0414 at0012 = ╱4c╱L╱ // 0x3f9 @0x12
0x03e7…0414 at0013 = ╱36╱6╱ // 0x3fa @0x13
0x03e7…0414 at0014 = ╱ec╱,╱ // 0x3fb @0x14
0x03e7…0414 at0015 = ╱48╱H╱ // 0x3fc @0x15
0x03e7…0414 at0016 = ╱54╱T╱ // 0x3fd @0x16
0x03e7…0414 at0017 = ╱41╱A╱ // 0x3fe @0x17
0x03e7…0414 at0018 = ╱42╱B╱ // 0x3ff @0x18
0x03e7…0414 at0019 = ╱33╱3╱ // 0x400 @0x19
0x03e7…0414 at001a = ╱ec╱,╱ // 0x401 @0x1a
0x03e7…0414 at001b = ╱4e╱N╱ // 0x402 @0x1b
0x03e7…0414 at001c = ╱5c╱Ø╱ // 0x403 @0x1c
0x03e7…0414 at001d = ╱47╱G╱ // 0x404 @0x1d
0x03e7…0414 at001e = ╱4c╱L╱ // 0x405 @0x1e
0x03e7…0414 at001f = ╱45╱E╱ // 0x406 @0x1f
0x03e7…0414 at0020 = ╱33╱3╱ // 0x407 @0x20
0x03e7…0414 at0021 = ╱ec╱,╱ // 0x408 @0x21
0x03e7…0414 at0022 = ╱55╱U╱ // 0x409 @0x22
0x03e7…0414 at0023 = ╱54╱T╱ // 0x40a @0x23
0x03e7…0414 at0024 = ╱41╱A╱ // 0x40b @0x24
0x03e7…0414 at0025 = ╱42╱B╱ // 0x40c @0x25
0x03e7…0414 at0026 = ╱33╱3╱ // 0x40d @0x26
0x03e7…0414 at0027 = ╱ec╱,╱ // 0x40e @0x27
0x03e7…0414 at0028 = ╱4b╱K╱ // 0x40f @0x28
0x03e7…0414 at0029 = ╱33╱3╱ // 0x410 @0x29
0x03e7…0414 at002a = ╱34╱4╱ // 0x411 @0x2a
0x03e7…0414 at002b = ╱ee╱)╱ // 0x412 @0x2b
0x03e7…0414 at002c = EOL // 0x413 @0x2c
0x03e7…0414 }
0x0414…043c 9193 0360 PPIL2=MPOSTANTAL6 DIV 40+E;PPIL1=B
0x0414…043c LineComalBin {
0x0414…043c ptr = 0x9193 // 0x414 @0x0
0x0414…043c lno = 0x0168 // 0x416 @0x2
0x0414…043c at0004 = ╱50╱P╱ // 0x418 @0x4
0x0414…043c at0005 = ╱50╱P╱ // 0x419 @0x5
0x0414…043c at0006 = ╱49╱I╱ // 0x41a @0x6
0x0414…043c at0007 = ╱4c╱L╱ // 0x41b @0x7
0x0414…043c at0008 = ╱32╱2╱ // 0x41c @0x8
0x0414…043c at0009 = ╱dc╱=╱ // 0x41d @0x9
0x0414…043c at000a = ╱4d╱M╱ // 0x41e @0xa
0x0414…043c at000b = ╱50╱P╱ // 0x41f @0xb
0x0414…043c at000c = ╱4f╱O╱ // 0x420 @0xc
0x0414…043c at000d = ╱53╱S╱ // 0x421 @0xd
0x0414…043c at000e = ╱54╱T╱ // 0x422 @0xe
0x0414…043c at000f = ╱41╱A╱ // 0x423 @0xf
0x0414…043c at0010 = ╱4e╱N╱ // 0x424 @0x10
0x0414…043c at0011 = ╱54╱T╱ // 0x425 @0x11
0x0414…043c at0012 = ╱41╱A╱ // 0x426 @0x12
0x0414…043c at0013 = ╱4c╱L╱ // 0x427 @0x13
0x0414…043c at0014 = ╱36╱6╱ // 0x428 @0x14
0x0414…043c at0015 = ╱e7╱ DIV ╱ // 0x429 @0x15
0x0414…043c at0016 = ╱34╱4╱ // 0x42a @0x16
0x0414…043c at0017 = ╱30╱0╱ // 0x42b @0x17
0x0414…043c at0018 = ╱fe0000a006╱ // 0x42c @0x18
0x0414…043c at001d = ╱e2╱+╱ // 0x431 @0x1d
0x0414…043c at001e = ╱45╱E╱ // 0x432 @0x1e
0x0414…043c at001f = ╱eb╱;╱ // 0x433 @0x1f
0x0414…043c at0020 = ╱50╱P╱ // 0x434 @0x20
0x0414…043c at0021 = ╱50╱P╱ // 0x435 @0x21
0x0414…043c at0022 = ╱49╱I╱ // 0x436 @0x22
0x0414…043c at0023 = ╱4c╱L╱ // 0x437 @0x23
0x0414…043c at0024 = ╱31╱1╱ // 0x438 @0x24
0x0414…043c at0025 = ╱dc╱=╱ // 0x439 @0x25
0x0414…043c at0026 = ╱42╱B╱ // 0x43a @0x26
0x0414…043c at0027 = EOL // 0x43b @0x27
0x0414…043c }
0x043c…0442 9199 0370 REPEAT
0x043c…0442 LineComalBin {
0x043c…0442 ptr = 0x9199 // 0x43c @0x0
0x043c…0442 lno = 0x0172 // 0x43e @0x2
0x043c…0442 at0004 = ╱97╱ REPEAT ╱ // 0x440 @0x4
0x043c…0442 at0005 = EOL // 0x441 @0x5
0x043c…0442 }
0x0442…045c 91b3 0380 PPIL3=(PPIL1+PPIL2) DIV G
0x0442…045c LineComalBin {
0x0442…045c ptr = 0x91b3 // 0x442 @0x0
0x0442…045c lno = 0x017c // 0x444 @0x2
0x0442…045c at0004 = ╱50╱P╱ // 0x446 @0x4
0x0442…045c at0005 = ╱50╱P╱ // 0x447 @0x5
0x0442…045c at0006 = ╱49╱I╱ // 0x448 @0x6
0x0442…045c at0007 = ╱4c╱L╱ // 0x449 @0x7
0x0442…045c at0008 = ╱33╱3╱ // 0x44a @0x8
0x0442…045c at0009 = ╱dc╱=╱ // 0x44b @0x9
0x0442…045c at000a = ╱ed╱(╱ // 0x44c @0xa
0x0442…045c at000b = ╱50╱P╱ // 0x44d @0xb
0x0442…045c at000c = ╱50╱P╱ // 0x44e @0xc
0x0442…045c at000d = ╱49╱I╱ // 0x44f @0xd
0x0442…045c at000e = ╱4c╱L╱ // 0x450 @0xe
0x0442…045c at000f = ╱31╱1╱ // 0x451 @0xf
0x0442…045c at0010 = ╱e2╱+╱ // 0x452 @0x10
0x0442…045c at0011 = ╱50╱P╱ // 0x453 @0x11
0x0442…045c at0012 = ╱50╱P╱ // 0x454 @0x12
0x0442…045c at0013 = ╱49╱I╱ // 0x455 @0x13
0x0442…045c at0014 = ╱4c╱L╱ // 0x456 @0x14
0x0442…045c at0015 = ╱32╱2╱ // 0x457 @0x15
0x0442…045c at0016 = ╱ee╱)╱ // 0x458 @0x16
0x0442…045c at0017 = ╱e7╱ DIV ╱ // 0x459 @0x17
0x0442…045c at0018 = ╱47╱G╱ // 0x45a @0x18
0x0442…045c at0019 = EOL // 0x45b @0x19
0x0442…045c }
0x045c…0479 91d0 0390 IF HTAB3(PPIL3,E)=NØGLE3 THEN EXIT
0x045c…0479 LineComalBin {
0x045c…0479 ptr = 0x91d0 // 0x45c @0x0
0x045c…0479 lno = 0x0186 // 0x45e @0x2
0x045c…0479 at0004 = ╱82╱ IF ╱ // 0x460 @0x4
0x045c…0479 at0005 = ╱48╱H╱ // 0x461 @0x5
0x045c…0479 at0006 = ╱54╱T╱ // 0x462 @0x6
0x045c…0479 at0007 = ╱41╱A╱ // 0x463 @0x7
0x045c…0479 at0008 = ╱42╱B╱ // 0x464 @0x8
0x045c…0479 at0009 = ╱33╱3╱ // 0x465 @0x9
0x045c…0479 at000a = ╱ed╱(╱ // 0x466 @0xa
0x045c…0479 at000b = ╱50╱P╱ // 0x467 @0xb
0x045c…0479 at000c = ╱50╱P╱ // 0x468 @0xc
0x045c…0479 at000d = ╱49╱I╱ // 0x469 @0xd
0x045c…0479 at000e = ╱4c╱L╱ // 0x46a @0xe
0x045c…0479 at000f = ╱33╱3╱ // 0x46b @0xf
0x045c…0479 at0010 = ╱ec╱,╱ // 0x46c @0x10
0x045c…0479 at0011 = ╱45╱E╱ // 0x46d @0x11
0x045c…0479 at0012 = ╱ee╱)╱ // 0x46e @0x12
0x045c…0479 at0013 = ╱dc╱=╱ // 0x46f @0x13
0x045c…0479 at0014 = ╱4e╱N╱ // 0x470 @0x14
0x045c…0479 at0015 = ╱5c╱Ø╱ // 0x471 @0x15
0x045c…0479 at0016 = ╱47╱G╱ // 0x472 @0x16
0x045c…0479 at0017 = ╱4c╱L╱ // 0x473 @0x17
0x045c…0479 at0018 = ╱45╱E╱ // 0x474 @0x18
0x045c…0479 at0019 = ╱33╱3╱ // 0x475 @0x19
0x045c…0479 at001a = ╱b6╱ THEN ╱ // 0x476 @0x1a
0x045c…0479 at001b = ╱99╱ EXIT ╱ // 0x477 @0x1b
0x045c…0479 at001c = EOL // 0x478 @0x1c
0x045c…0479 }
0x0479…0495 91ec 0400 IF HTAB3(PPIL3,E)>NØGLE3 THEN
0x0479…0495 LineComalBin {
0x0479…0495 ptr = 0x91ec // 0x479 @0x0
0x0479…0495 lno = 0x0190 // 0x47b @0x2
0x0479…0495 at0004 = ╱9c╱ IF ╱ // 0x47d @0x4
0x0479…0495 at0005 = ╱48╱H╱ // 0x47e @0x5
0x0479…0495 at0006 = ╱54╱T╱ // 0x47f @0x6
0x0479…0495 at0007 = ╱41╱A╱ // 0x480 @0x7
0x0479…0495 at0008 = ╱42╱B╱ // 0x481 @0x8
0x0479…0495 at0009 = ╱33╱3╱ // 0x482 @0x9
0x0479…0495 at000a = ╱ed╱(╱ // 0x483 @0xa
0x0479…0495 at000b = ╱50╱P╱ // 0x484 @0xb
0x0479…0495 at000c = ╱50╱P╱ // 0x485 @0xc
0x0479…0495 at000d = ╱49╱I╱ // 0x486 @0xd
0x0479…0495 at000e = ╱4c╱L╱ // 0x487 @0xe
0x0479…0495 at000f = ╱33╱3╱ // 0x488 @0xf
0x0479…0495 at0010 = ╱ec╱,╱ // 0x489 @0x10
0x0479…0495 at0011 = ╱45╱E╱ // 0x48a @0x11
0x0479…0495 at0012 = ╱ee╱)╱ // 0x48b @0x12
0x0479…0495 at0013 = ╱de╱>╱ // 0x48c @0x13
0x0479…0495 at0014 = ╱4e╱N╱ // 0x48d @0x14
0x0479…0495 at0015 = ╱5c╱Ø╱ // 0x48e @0x15
0x0479…0495 at0016 = ╱47╱G╱ // 0x48f @0x16
0x0479…0495 at0017 = ╱4c╱L╱ // 0x490 @0x17
0x0479…0495 at0018 = ╱45╱E╱ // 0x491 @0x18
0x0479…0495 at0019 = ╱33╱3╱ // 0x492 @0x19
0x0479…0495 at001a = ╱b6╱ THEN ╱ // 0x493 @0x1a
0x0479…0495 at001b = EOL // 0x494 @0x1b
0x0479…0495 }
0x0495…04a5 91fc 0410 PPIL2=PPIL3
0x0495…04a5 LineComalBin {
0x0495…04a5 ptr = 0x91fc // 0x495 @0x0
0x0495…04a5 lno = 0x019a // 0x497 @0x2
0x0495…04a5 at0004 = ╱50╱P╱ // 0x499 @0x4
0x0495…04a5 at0005 = ╱50╱P╱ // 0x49a @0x5
0x0495…04a5 at0006 = ╱49╱I╱ // 0x49b @0x6
0x0495…04a5 at0007 = ╱4c╱L╱ // 0x49c @0x7
0x0495…04a5 at0008 = ╱32╱2╱ // 0x49d @0x8
0x0495…04a5 at0009 = ╱dc╱=╱ // 0x49e @0x9
0x0495…04a5 at000a = ╱50╱P╱ // 0x49f @0xa
0x0495…04a5 at000b = ╱50╱P╱ // 0x4a0 @0xb
0x0495…04a5 at000c = ╱49╱I╱ // 0x4a1 @0xc
0x0495…04a5 at000d = ╱4c╱L╱ // 0x4a2 @0xd
0x0495…04a5 at000e = ╱33╱3╱ // 0x4a3 @0xe
0x0495…04a5 at000f = EOL // 0x4a4 @0xf
0x0495…04a5 }
0x04a5…04ab 9202 0420 ELSE
0x04a5…04ab LineComalBin {
0x04a5…04ab ptr = 0x9202 // 0x4a5 @0x0
0x04a5…04ab lno = 0x01a4 // 0x4a7 @0x2
0x04a5…04ab at0004 = ╱9a╱ ELSE ╱ // 0x4a9 @0x4
0x04a5…04ab at0005 = EOL // 0x4aa @0x5
0x04a5…04ab }
0x04ab…04bb 9212 0430 PPIL1=PPIL3
0x04ab…04bb LineComalBin {
0x04ab…04bb ptr = 0x9212 // 0x4ab @0x0
0x04ab…04bb lno = 0x01ae // 0x4ad @0x2
0x04ab…04bb at0004 = ╱50╱P╱ // 0x4af @0x4
0x04ab…04bb at0005 = ╱50╱P╱ // 0x4b0 @0x5
0x04ab…04bb at0006 = ╱49╱I╱ // 0x4b1 @0x6
0x04ab…04bb at0007 = ╱4c╱L╱ // 0x4b2 @0x7
0x04ab…04bb at0008 = ╱31╱1╱ // 0x4b3 @0x8
0x04ab…04bb at0009 = ╱dc╱=╱ // 0x4b4 @0x9
0x04ab…04bb at000a = ╱50╱P╱ // 0x4b5 @0xa
0x04ab…04bb at000b = ╱50╱P╱ // 0x4b6 @0xb
0x04ab…04bb at000c = ╱49╱I╱ // 0x4b7 @0xc
0x04ab…04bb at000d = ╱4c╱L╱ // 0x4b8 @0xd
0x04ab…04bb at000e = ╱33╱3╱ // 0x4b9 @0xe
0x04ab…04bb at000f = EOL // 0x4ba @0xf
0x04ab…04bb }
0x04bb…04c1 9218 0440 ENDIF
0x04bb…04c1 LineComalBin {
0x04bb…04c1 ptr = 0x9218 // 0x4bb @0x0
0x04bb…04c1 lno = 0x01b8 // 0x4bd @0x2
0x04bb…04c1 at0004 = ╱9b╱ ENDIF ╱ // 0x4bf @0x4
0x04bb…04c1 at0005 = EOL // 0x4c0 @0x5
0x04bb…04c1 }
0x04c1…04d4 922b 0450 UNTIL PPIL2<=PPIL1+E
0x04c1…04d4 LineComalBin {
0x04c1…04d4 ptr = 0x922b // 0x4c1 @0x0
0x04c1…04d4 lno = 0x01c2 // 0x4c3 @0x2
0x04c1…04d4 at0004 = ╱98╱ UNTIL ╱ // 0x4c5 @0x4
0x04c1…04d4 at0005 = ╱50╱P╱ // 0x4c6 @0x5
0x04c1…04d4 at0006 = ╱50╱P╱ // 0x4c7 @0x6
0x04c1…04d4 at0007 = ╱49╱I╱ // 0x4c8 @0x7
0x04c1…04d4 at0008 = ╱4c╱L╱ // 0x4c9 @0x8
0x04c1…04d4 at0009 = ╱32╱2╱ // 0x4ca @0x9
0x04c1…04d4 at000a = ╱df╱<=╱ // 0x4cb @0xa
0x04c1…04d4 at000b = ╱50╱P╱ // 0x4cc @0xb
0x04c1…04d4 at000c = ╱50╱P╱ // 0x4cd @0xc
0x04c1…04d4 at000d = ╱49╱I╱ // 0x4ce @0xd
0x04c1…04d4 at000e = ╱4c╱L╱ // 0x4cf @0xe
0x04c1…04d4 at000f = ╱31╱1╱ // 0x4d0 @0xf
0x04c1…04d4 at0010 = ╱e2╱+╱ // 0x4d1 @0x10
0x04c1…04d4 at0011 = ╱45╱E╱ // 0x4d2 @0x11
0x04c1…04d4 at0012 = EOL // 0x4d3 @0x12
0x04c1…04d4 }
0x04d4…04f8 924f 0460 IF PPIL3>E AND HTAB3(PPIL3,E)=>NØGLE3 THEN
0x04d4…04f8 LineComalBin {
0x04d4…04f8 ptr = 0x924f // 0x4d4 @0x0
0x04d4…04f8 lno = 0x01cc // 0x4d6 @0x2
0x04d4…04f8 at0004 = ╱9c╱ IF ╱ // 0x4d8 @0x4
0x04d4…04f8 at0005 = ╱50╱P╱ // 0x4d9 @0x5
0x04d4…04f8 at0006 = ╱50╱P╱ // 0x4da @0x6
0x04d4…04f8 at0007 = ╱49╱I╱ // 0x4db @0x7
0x04d4…04f8 at0008 = ╱4c╱L╱ // 0x4dc @0x8
0x04d4…04f8 at0009 = ╱33╱3╱ // 0x4dd @0x9
0x04d4…04f8 at000a = ╱de╱>╱ // 0x4de @0xa
0x04d4…04f8 at000b = ╱45╱E╱ // 0x4df @0xb
0x04d4…04f8 at000c = ╱da╱ AND ╱ // 0x4e0 @0xc
0x04d4…04f8 at000d = ╱48╱H╱ // 0x4e1 @0xd
0x04d4…04f8 at000e = ╱54╱T╱ // 0x4e2 @0xe
0x04d4…04f8 at000f = ╱41╱A╱ // 0x4e3 @0xf
0x04d4…04f8 at0010 = ╱42╱B╱ // 0x4e4 @0x10
0x04d4…04f8 at0011 = ╱33╱3╱ // 0x4e5 @0x11
0x04d4…04f8 at0012 = ╱ed╱(╱ // 0x4e6 @0x12
0x04d4…04f8 at0013 = ╱50╱P╱ // 0x4e7 @0x13
0x04d4…04f8 at0014 = ╱50╱P╱ // 0x4e8 @0x14
0x04d4…04f8 at0015 = ╱49╱I╱ // 0x4e9 @0x15
0x04d4…04f8 at0016 = ╱4c╱L╱ // 0x4ea @0x16
0x04d4…04f8 at0017 = ╱33╱3╱ // 0x4eb @0x17
0x04d4…04f8 at0018 = ╱ec╱,╱ // 0x4ec @0x18
0x04d4…04f8 at0019 = ╱45╱E╱ // 0x4ed @0x19
0x04d4…04f8 at001a = ╱ee╱)╱ // 0x4ee @0x1a
0x04d4…04f8 at001b = ╱e0╱=>╱ // 0x4ef @0x1b
0x04d4…04f8 at001c = ╱4e╱N╱ // 0x4f0 @0x1c
0x04d4…04f8 at001d = ╱5c╱Ø╱ // 0x4f1 @0x1d
0x04d4…04f8 at001e = ╱47╱G╱ // 0x4f2 @0x1e
0x04d4…04f8 at001f = ╱4c╱L╱ // 0x4f3 @0x1f
0x04d4…04f8 at0020 = ╱45╱E╱ // 0x4f4 @0x20
0x04d4…04f8 at0021 = ╱33╱3╱ // 0x4f5 @0x21
0x04d4…04f8 at0022 = ╱b6╱ THEN ╱ // 0x4f6 @0x22
0x04d4…04f8 at0023 = EOL // 0x4f7 @0x23
0x04d4…04f8 }
0x04f8…04fe 9255 0470 REPEAT
0x04f8…04fe LineComalBin {
0x04f8…04fe ptr = 0x9255 // 0x4f8 @0x0
0x04f8…04fe lno = 0x01d6 // 0x4fa @0x2
0x04f8…04fe at0004 = ╱97╱ REPEAT ╱ // 0x4fc @0x4
0x04f8…04fe at0005 = EOL // 0x4fd @0x5
0x04f8…04fe }
0x04fe…0510 9267 0480 PPIL3=PPIL3-E
0x04fe…0510 LineComalBin {
0x04fe…0510 ptr = 0x9267 // 0x4fe @0x0
0x04fe…0510 lno = 0x01e0 // 0x500 @0x2
0x04fe…0510 at0004 = ╱50╱P╱ // 0x502 @0x4
0x04fe…0510 at0005 = ╱50╱P╱ // 0x503 @0x5
0x04fe…0510 at0006 = ╱49╱I╱ // 0x504 @0x6
0x04fe…0510 at0007 = ╱4c╱L╱ // 0x505 @0x7
0x04fe…0510 at0008 = ╱33╱3╱ // 0x506 @0x8
0x04fe…0510 at0009 = ╱dc╱=╱ // 0x507 @0x9
0x04fe…0510 at000a = ╱50╱P╱ // 0x508 @0xa
0x04fe…0510 at000b = ╱50╱P╱ // 0x509 @0xb
0x04fe…0510 at000c = ╱49╱I╱ // 0x50a @0xc
0x04fe…0510 at000d = ╱4c╱L╱ // 0x50b @0xd
0x04fe…0510 at000e = ╱33╱3╱ // 0x50c @0xe
0x04fe…0510 at000f = ╱e3╱-╱ // 0x50d @0xf
0x04fe…0510 at0010 = ╱45╱E╱ // 0x50e @0x10
0x04fe…0510 at0011 = EOL // 0x50f @0x11
0x04fe…0510 }
0x0510…0533 928a 0490 UNTIL HTAB3(PPIL3,E)<NØGLE3 OR PPIL3=E
0x0510…0533 LineComalBin {
0x0510…0533 ptr = 0x928a // 0x510 @0x0
0x0510…0533 lno = 0x01ea // 0x512 @0x2
0x0510…0533 at0004 = ╱98╱ UNTIL ╱ // 0x514 @0x4
0x0510…0533 at0005 = ╱48╱H╱ // 0x515 @0x5
0x0510…0533 at0006 = ╱54╱T╱ // 0x516 @0x6
0x0510…0533 at0007 = ╱41╱A╱ // 0x517 @0x7
0x0510…0533 at0008 = ╱42╱B╱ // 0x518 @0x8
0x0510…0533 at0009 = ╱33╱3╱ // 0x519 @0x9
0x0510…0533 at000a = ╱ed╱(╱ // 0x51a @0xa
0x0510…0533 at000b = ╱50╱P╱ // 0x51b @0xb
0x0510…0533 at000c = ╱50╱P╱ // 0x51c @0xc
0x0510…0533 at000d = ╱49╱I╱ // 0x51d @0xd
0x0510…0533 at000e = ╱4c╱L╱ // 0x51e @0xe
0x0510…0533 at000f = ╱33╱3╱ // 0x51f @0xf
0x0510…0533 at0010 = ╱ec╱,╱ // 0x520 @0x10
0x0510…0533 at0011 = ╱45╱E╱ // 0x521 @0x11
0x0510…0533 at0012 = ╱ee╱)╱ // 0x522 @0x12
0x0510…0533 at0013 = ╱dd╱<╱ // 0x523 @0x13
0x0510…0533 at0014 = ╱4e╱N╱ // 0x524 @0x14
0x0510…0533 at0015 = ╱5c╱Ø╱ // 0x525 @0x15
0x0510…0533 at0016 = ╱47╱G╱ // 0x526 @0x16
0x0510…0533 at0017 = ╱4c╱L╱ // 0x527 @0x17
0x0510…0533 at0018 = ╱45╱E╱ // 0x528 @0x18
0x0510…0533 at0019 = ╱33╱3╱ // 0x529 @0x19
0x0510…0533 at001a = ╱db╱ OR ╱ // 0x52a @0x1a
0x0510…0533 at001b = ╱50╱P╱ // 0x52b @0x1b
0x0510…0533 at001c = ╱50╱P╱ // 0x52c @0x1c
0x0510…0533 at001d = ╱49╱I╱ // 0x52d @0x1d
0x0510…0533 at001e = ╱4c╱L╱ // 0x52e @0x1e
0x0510…0533 at001f = ╱33╱3╱ // 0x52f @0x1f
0x0510…0533 at0020 = ╱dc╱=╱ // 0x530 @0x20
0x0510…0533 at0021 = ╱45╱E╱ // 0x531 @0x21
0x0510…0533 at0022 = EOL // 0x532 @0x22
0x0510…0533 }
0x0533…0539 9290 0500 ENDIF
0x0533…0539 LineComalBin {
0x0533…0539 ptr = 0x9290 // 0x533 @0x0
0x0533…0539 lno = 0x01f4 // 0x535 @0x2
0x0533…0539 at0004 = ╱9b╱ ENDIF ╱ // 0x537 @0x4
0x0533…0539 at0005 = EOL // 0x538 @0x5
0x0533…0539 }
0x0539…0545 929c 0510 T=PPIL3
0x0539…0545 LineComalBin {
0x0539…0545 ptr = 0x929c // 0x539 @0x0
0x0539…0545 lno = 0x01fe // 0x53b @0x2
0x0539…0545 at0004 = ╱54╱T╱ // 0x53d @0x4
0x0539…0545 at0005 = ╱dc╱=╱ // 0x53e @0x5
0x0539…0545 at0006 = ╱50╱P╱ // 0x53f @0x6
0x0539…0545 at0007 = ╱50╱P╱ // 0x540 @0x7
0x0539…0545 at0008 = ╱49╱I╱ // 0x541 @0x8
0x0539…0545 at0009 = ╱4c╱L╱ // 0x542 @0x9
0x0539…0545 at000a = ╱33╱3╱ // 0x543 @0xa
0x0539…0545 at000b = EOL // 0x544 @0xb
0x0539…0545 }
0x0545…0577 92ce 0520 IF HTAB3(PPIL3,G)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,E) THEN
0x0545…0577 LineComalBin {
0x0545…0577 ptr = 0x92ce // 0x545 @0x0
0x0545…0577 lno = 0x0208 // 0x547 @0x2
0x0545…0577 at0004 = ╱9c╱ IF ╱ // 0x549 @0x4
0x0545…0577 at0005 = ╱48╱H╱ // 0x54a @0x5
0x0545…0577 at0006 = ╱54╱T╱ // 0x54b @0x6
0x0545…0577 at0007 = ╱41╱A╱ // 0x54c @0x7
0x0545…0577 at0008 = ╱42╱B╱ // 0x54d @0x8
0x0545…0577 at0009 = ╱33╱3╱ // 0x54e @0x9
0x0545…0577 at000a = ╱ed╱(╱ // 0x54f @0xa
0x0545…0577 at000b = ╱50╱P╱ // 0x550 @0xb
0x0545…0577 at000c = ╱50╱P╱ // 0x551 @0xc
0x0545…0577 at000d = ╱49╱I╱ // 0x552 @0xd
0x0545…0577 at000e = ╱4c╱L╱ // 0x553 @0xe
0x0545…0577 at000f = ╱33╱3╱ // 0x554 @0xf
0x0545…0577 at0010 = ╱ec╱,╱ // 0x555 @0x10
0x0545…0577 at0011 = ╱47╱G╱ // 0x556 @0x11
0x0545…0577 at0012 = ╱ee╱)╱ // 0x557 @0x12
0x0545…0577 at0013 = ╱dd╱<╱ // 0x558 @0x13
0x0545…0577 at0014 = ╱4e╱N╱ // 0x559 @0x14
0x0545…0577 at0015 = ╱5c╱Ø╱ // 0x55a @0x15
0x0545…0577 at0016 = ╱47╱G╱ // 0x55b @0x16
0x0545…0577 at0017 = ╱4c╱L╱ // 0x55c @0x17
0x0545…0577 at0018 = ╱45╱E╱ // 0x55d @0x18
0x0545…0577 at0019 = ╱33╱3╱ // 0x55e @0x19
0x0545…0577 at001a = ╱db╱ OR ╱ // 0x55f @0x1a
0x0545…0577 at001b = ╱4e╱N╱ // 0x560 @0x1b
0x0545…0577 at001c = ╱5c╱Ø╱ // 0x561 @0x1c
0x0545…0577 at001d = ╱47╱G╱ // 0x562 @0x1d
0x0545…0577 at001e = ╱4c╱L╱ // 0x563 @0x1e
0x0545…0577 at001f = ╱45╱E╱ // 0x564 @0x1f
0x0545…0577 at0020 = ╱33╱3╱ // 0x565 @0x20
0x0545…0577 at0021 = ╱dd╱<╱ // 0x566 @0x21
0x0545…0577 at0022 = ╱48╱H╱ // 0x567 @0x22
0x0545…0577 at0023 = ╱54╱T╱ // 0x568 @0x23
0x0545…0577 at0024 = ╱41╱A╱ // 0x569 @0x24
0x0545…0577 at0025 = ╱42╱B╱ // 0x56a @0x25
0x0545…0577 at0026 = ╱33╱3╱ // 0x56b @0x26
0x0545…0577 at0027 = ╱ed╱(╱ // 0x56c @0x27
0x0545…0577 at0028 = ╱50╱P╱ // 0x56d @0x28
0x0545…0577 at0029 = ╱50╱P╱ // 0x56e @0x29
0x0545…0577 at002a = ╱49╱I╱ // 0x56f @0x2a
0x0545…0577 at002b = ╱4c╱L╱ // 0x570 @0x2b
0x0545…0577 at002c = ╱33╱3╱ // 0x571 @0x2c
0x0545…0577 at002d = ╱ec╱,╱ // 0x572 @0x2d
0x0545…0577 at002e = ╱45╱E╱ // 0x573 @0x2e
0x0545…0577 at002f = ╱ee╱)╱ // 0x574 @0x2f
0x0545…0577 at0030 = ╱b6╱ THEN ╱ // 0x575 @0x30
0x0545…0577 at0031 = EOL // 0x576 @0x31
0x0545…0577 }
0x0577…0585 92dc 0530 T=PPIL3+E
0x0577…0585 LineComalBin {
0x0577…0585 ptr = 0x92dc // 0x577 @0x0
0x0577…0585 lno = 0x0212 // 0x579 @0x2
0x0577…0585 at0004 = ╱54╱T╱ // 0x57b @0x4
0x0577…0585 at0005 = ╱dc╱=╱ // 0x57c @0x5
0x0577…0585 at0006 = ╱50╱P╱ // 0x57d @0x6
0x0577…0585 at0007 = ╱50╱P╱ // 0x57e @0x7
0x0577…0585 at0008 = ╱49╱I╱ // 0x57f @0x8
0x0577…0585 at0009 = ╱4c╱L╱ // 0x580 @0x9
0x0577…0585 at000a = ╱33╱3╱ // 0x581 @0xa
0x0577…0585 at000b = ╱e2╱+╱ // 0x582 @0xb
0x0577…0585 at000c = ╱45╱E╱ // 0x583 @0xc
0x0577…0585 at000d = EOL // 0x584 @0xd
0x0577…0585 }
0x0585…05a6 92fd 0540 IF HTAB3(PPIL3+E,E)>NØGLE3 THEN T=B
0x0585…05a6 LineComalBin {
0x0585…05a6 ptr = 0x92fd // 0x585 @0x0
0x0585…05a6 lno = 0x021c // 0x587 @0x2
0x0585…05a6 at0004 = ╱82╱ IF ╱ // 0x589 @0x4
0x0585…05a6 at0005 = ╱48╱H╱ // 0x58a @0x5
0x0585…05a6 at0006 = ╱54╱T╱ // 0x58b @0x6
0x0585…05a6 at0007 = ╱41╱A╱ // 0x58c @0x7
0x0585…05a6 at0008 = ╱42╱B╱ // 0x58d @0x8
0x0585…05a6 at0009 = ╱33╱3╱ // 0x58e @0x9
0x0585…05a6 at000a = ╱ed╱(╱ // 0x58f @0xa
0x0585…05a6 at000b = ╱50╱P╱ // 0x590 @0xb
0x0585…05a6 at000c = ╱50╱P╱ // 0x591 @0xc
0x0585…05a6 at000d = ╱49╱I╱ // 0x592 @0xd
0x0585…05a6 at000e = ╱4c╱L╱ // 0x593 @0xe
0x0585…05a6 at000f = ╱33╱3╱ // 0x594 @0xf
0x0585…05a6 at0010 = ╱e2╱+╱ // 0x595 @0x10
0x0585…05a6 at0011 = ╱45╱E╱ // 0x596 @0x11
0x0585…05a6 at0012 = ╱ec╱,╱ // 0x597 @0x12
0x0585…05a6 at0013 = ╱45╱E╱ // 0x598 @0x13
0x0585…05a6 at0014 = ╱ee╱)╱ // 0x599 @0x14
0x0585…05a6 at0015 = ╱de╱>╱ // 0x59a @0x15
0x0585…05a6 at0016 = ╱4e╱N╱ // 0x59b @0x16
0x0585…05a6 at0017 = ╱5c╱Ø╱ // 0x59c @0x17
0x0585…05a6 at0018 = ╱47╱G╱ // 0x59d @0x18
0x0585…05a6 at0019 = ╱4c╱L╱ // 0x59e @0x19
0x0585…05a6 at001a = ╱45╱E╱ // 0x59f @0x1a
0x0585…05a6 at001b = ╱33╱3╱ // 0x5a0 @0x1b
0x0585…05a6 at001c = ╱b6╱ THEN ╱ // 0x5a1 @0x1c
0x0585…05a6 at001d = ╱54╱T╱ // 0x5a2 @0x1d
0x0585…05a6 at001e = ╱dc╱=╱ // 0x5a3 @0x1e
0x0585…05a6 at001f = ╱42╱B╱ // 0x5a4 @0x1f
0x0585…05a6 at0020 = EOL // 0x5a5 @0x20
0x0585…05a6 }
0x05a6…05ac 9303 0550 ENDIF
0x05a6…05ac LineComalBin {
0x05a6…05ac ptr = 0x9303 // 0x5a6 @0x0
0x05a6…05ac lno = 0x0226 // 0x5a8 @0x2
0x05a6…05ac at0004 = ╱9b╱ ENDIF ╱ // 0x5aa @0x4
0x05a6…05ac at0005 = EOL // 0x5ab @0x5
0x05a6…05ac }
0x05ac…05b7 930e 0560 IF T<E THEN EXIT
0x05ac…05b7 LineComalBin {
0x05ac…05b7 ptr = 0x930e // 0x5ac @0x0
0x05ac…05b7 lno = 0x0230 // 0x5ae @0x2
0x05ac…05b7 at0004 = ╱82╱ IF ╱ // 0x5b0 @0x4
0x05ac…05b7 at0005 = ╱54╱T╱ // 0x5b1 @0x5
0x05ac…05b7 at0006 = ╱dd╱<╱ // 0x5b2 @0x6
0x05ac…05b7 at0007 = ╱45╱E╱ // 0x5b3 @0x7
0x05ac…05b7 at0008 = ╱b6╱ THEN ╱ // 0x5b4 @0x8
0x05ac…05b7 at0009 = ╱99╱ EXIT ╱ // 0x5b5 @0x9
0x05ac…05b7 at000a = EOL // 0x5b6 @0xa
0x05ac…05b7 }
0x05b7…05d4 (19,) 932b 0570 K=T+MPOSTANTAL6 DIV 160
0x05b7…05d4 LineComalBin {
0x05b7…05d4 ptr = 0x932b // 0x5b7 @0x0
0x05b7…05d4 lno = 0x023a // 0x5b9 @0x2
0x05b7…05d4 at0004 = ╱4b╱K╱ // 0x5bb @0x4
0x05b7…05d4 at0005 = ╱dc╱=╱ // 0x5bc @0x5
0x05b7…05d4 at0006 = ╱54╱T╱ // 0x5bd @0x6
0x05b7…05d4 at0007 = ╱e2╱+╱ // 0x5be @0x7
0x05b7…05d4 at0008 = ╱4d╱M╱ // 0x5bf @0x8
0x05b7…05d4 at0009 = ╱50╱P╱ // 0x5c0 @0x9
0x05b7…05d4 at000a = ╱4f╱O╱ // 0x5c1 @0xa
0x05b7…05d4 at000b = ╱53╱S╱ // 0x5c2 @0xb
0x05b7…05d4 at000c = ╱54╱T╱ // 0x5c3 @0xc
0x05b7…05d4 at000d = ╱41╱A╱ // 0x5c4 @0xd
0x05b7…05d4 at000e = ╱4e╱N╱ // 0x5c5 @0xe
0x05b7…05d4 at000f = ╱54╱T╱ // 0x5c6 @0xf
0x05b7…05d4 at0010 = ╱41╱A╱ // 0x5c7 @0x10
0x05b7…05d4 at0011 = ╱4c╱L╱ // 0x5c8 @0x11
0x05b7…05d4 at0012 = ╱36╱6╱ // 0x5c9 @0x12
0x05b7…05d4 at0013 = ╱e7╱ DIV ╱ // 0x5ca @0x13
0x05b7…05d4 at0014 = ╱31╱1╱ // 0x5cb @0x14
0x05b7…05d4 at0015 = ╱36╱6╱ // 0x5cc @0x15
0x05b7…05d4 at0016 = ╱30╱0╱ // 0x5cd @0x16
0x05b7…05d4 at0017 = ╱fe0000a008╱ // 0x5ce @0x17
0x05b7…05d4 at001c = EOL // 0x5d3 @0x1c
0x05b7…05d4 }
0x05d4…05ee 9345 0580 EXEC UNDIND(K34$,K,UTAB3)
0x05d4…05ee LineComalBin {
0x05d4…05ee ptr = 0x9345 // 0x5d4 @0x0
0x05d4…05ee lno = 0x0244 // 0x5d6 @0x2
0x05d4…05ee at0004 = ╱9d╱ EXEC ╱ // 0x5d8 @0x4
0x05d4…05ee at0005 = ╱55╱U╱ // 0x5d9 @0x5
0x05d4…05ee at0006 = ╱4e╱N╱ // 0x5da @0x6
0x05d4…05ee at0007 = ╱44╱D╱ // 0x5db @0x7
0x05d4…05ee at0008 = ╱49╱I╱ // 0x5dc @0x8
0x05d4…05ee at0009 = ╱4e╱N╱ // 0x5dd @0x9
0x05d4…05ee at000a = ╱44╱D╱ // 0x5de @0xa
0x05d4…05ee at000b = ╱ed╱(╱ // 0x5df @0xb
0x05d4…05ee at000c = ╱4b╱K╱ // 0x5e0 @0xc
0x05d4…05ee at000d = ╱33╱3╱ // 0x5e1 @0xd
0x05d4…05ee at000e = ╱34╱4╱ // 0x5e2 @0xe
0x05d4…05ee at000f = ╱ef╱$╱ // 0x5e3 @0xf
0x05d4…05ee at0010 = ╱ec╱,╱ // 0x5e4 @0x10
0x05d4…05ee at0011 = ╱4b╱K╱ // 0x5e5 @0x11
0x05d4…05ee at0012 = ╱ec╱,╱ // 0x5e6 @0x12
0x05d4…05ee at0013 = ╱55╱U╱ // 0x5e7 @0x13
0x05d4…05ee at0014 = ╱54╱T╱ // 0x5e8 @0x14
0x05d4…05ee at0015 = ╱41╱A╱ // 0x5e9 @0x15
0x05d4…05ee at0016 = ╱42╱B╱ // 0x5ea @0x16
0x05d4…05ee at0017 = ╱33╱3╱ // 0x5eb @0x17
0x05d4…05ee at0018 = ╱ee╱)╱ // 0x5ec @0x18
0x05d4…05ee at0019 = EOL // 0x5ed @0x19
0x05d4…05ee }
0x05ee…0601 9358 0590 FOR I=4 TO E STEP -E
0x05ee…0601 LineComalBin {
0x05ee…0601 ptr = 0x9358 // 0x5ee @0x0
0x05ee…0601 lno = 0x024e // 0x5f0 @0x2
0x05ee…0601 at0004 = ╱83╱ FOR ╱ // 0x5f2 @0x4
0x05ee…0601 at0005 = ╱49╱I╱ // 0x5f3 @0x5
0x05ee…0601 at0006 = ╱dc╱=╱ // 0x5f4 @0x6
0x05ee…0601 at0007 = ╱34╱4╱ // 0x5f5 @0x7
0x05ee…0601 at0008 = ╱fe00008003╱ // 0x5f6 @0x8
0x05ee…0601 at000d = ╱b7╱ TO ╱ // 0x5fb @0xd
0x05ee…0601 at000e = ╱45╱E╱ // 0x5fc @0xe
0x05ee…0601 at000f = ╱b8╱ STEP ╱ // 0x5fd @0xf
0x05ee…0601 at0010 = ╱e9╱-╱ // 0x5fe @0x10
0x05ee…0601 at0011 = ╱45╱E╱ // 0x5ff @0x11
0x05ee…0601 at0012 = EOL // 0x600 @0x12
0x05ee…0601 }
0x0601…061a 9371 0600 IF UTAB3(I,E)<NØGLE3 THEN EXIT
0x0601…061a LineComalBin {
0x0601…061a ptr = 0x9371 // 0x601 @0x0
0x0601…061a lno = 0x0258 // 0x603 @0x2
0x0601…061a at0004 = ╱82╱ IF ╱ // 0x605 @0x4
0x0601…061a at0005 = ╱55╱U╱ // 0x606 @0x5
0x0601…061a at0006 = ╱54╱T╱ // 0x607 @0x6
0x0601…061a at0007 = ╱41╱A╱ // 0x608 @0x7
0x0601…061a at0008 = ╱42╱B╱ // 0x609 @0x8
0x0601…061a at0009 = ╱33╱3╱ // 0x60a @0x9
0x0601…061a at000a = ╱ed╱(╱ // 0x60b @0xa
0x0601…061a at000b = ╱49╱I╱ // 0x60c @0xb
0x0601…061a at000c = ╱ec╱,╱ // 0x60d @0xc
0x0601…061a at000d = ╱45╱E╱ // 0x60e @0xd
0x0601…061a at000e = ╱ee╱)╱ // 0x60f @0xe
0x0601…061a at000f = ╱dd╱<╱ // 0x610 @0xf
0x0601…061a at0010 = ╱4e╱N╱ // 0x611 @0x10
0x0601…061a at0011 = ╱5c╱Ø╱ // 0x612 @0x11
0x0601…061a at0012 = ╱47╱G╱ // 0x613 @0x12
0x0601…061a at0013 = ╱4c╱L╱ // 0x614 @0x13
0x0601…061a at0014 = ╱45╱E╱ // 0x615 @0x14
0x0601…061a at0015 = ╱33╱3╱ // 0x616 @0x15
0x0601…061a at0016 = ╱b6╱ THEN ╱ // 0x617 @0x16
0x0601…061a at0017 = ╱99╱ EXIT ╱ // 0x618 @0x17
0x0601…061a at0018 = EOL // 0x619 @0x18
0x0601…061a }
0x061a…0621 9378 0610 NEXT I
0x061a…0621 LineComalBin {
0x061a…0621 ptr = 0x9378 // 0x61a @0x0
0x061a…0621 lno = 0x0262 // 0x61c @0x2
0x061a…0621 at0004 = ╱84╱ NEXT ╱ // 0x61e @0x4
0x061a…0621 at0005 = ╱49╱I╱ // 0x61f @0x5
0x061a…0621 at0006 = EOL // 0x620 @0x6
0x061a…0621 }
0x0621…062e 9385 0620 IF I=B THEN I=E
0x0621…062e LineComalBin {
0x0621…062e ptr = 0x9385 // 0x621 @0x0
0x0621…062e lno = 0x026c // 0x623 @0x2
0x0621…062e at0004 = ╱82╱ IF ╱ // 0x625 @0x4
0x0621…062e at0005 = ╱49╱I╱ // 0x626 @0x5
0x0621…062e at0006 = ╱dc╱=╱ // 0x627 @0x6
0x0621…062e at0007 = ╱42╱B╱ // 0x628 @0x7
0x0621…062e at0008 = ╱b6╱ THEN ╱ // 0x629 @0x8
0x0621…062e at0009 = ╱49╱I╱ // 0x62a @0x9
0x0621…062e at000a = ╱dc╱=╱ // 0x62b @0xa
0x0621…062e at000b = ╱45╱E╱ // 0x62c @0xb
0x0621…062e at000c = EOL // 0x62d @0xc
0x0621…062e }
0x062e…0646 939d 0630 IF UTAB3(I,G)<NØGLE3 THEN
0x062e…0646 LineComalBin {
0x062e…0646 ptr = 0x939d // 0x62e @0x0
0x062e…0646 lno = 0x0276 // 0x630 @0x2
0x062e…0646 at0004 = ╱9c╱ IF ╱ // 0x632 @0x4
0x062e…0646 at0005 = ╱55╱U╱ // 0x633 @0x5
0x062e…0646 at0006 = ╱54╱T╱ // 0x634 @0x6
0x062e…0646 at0007 = ╱41╱A╱ // 0x635 @0x7
0x062e…0646 at0008 = ╱42╱B╱ // 0x636 @0x8
0x062e…0646 at0009 = ╱33╱3╱ // 0x637 @0x9
0x062e…0646 at000a = ╱ed╱(╱ // 0x638 @0xa
0x062e…0646 at000b = ╱49╱I╱ // 0x639 @0xb
0x062e…0646 at000c = ╱ec╱,╱ // 0x63a @0xc
0x062e…0646 at000d = ╱47╱G╱ // 0x63b @0xd
0x062e…0646 at000e = ╱ee╱)╱ // 0x63c @0xe
0x062e…0646 at000f = ╱dd╱<╱ // 0x63d @0xf
0x062e…0646 at0010 = ╱4e╱N╱ // 0x63e @0x10
0x062e…0646 at0011 = ╱5c╱Ø╱ // 0x63f @0x11
0x062e…0646 at0012 = ╱47╱G╱ // 0x640 @0x12
0x062e…0646 at0013 = ╱4c╱L╱ // 0x641 @0x13
0x062e…0646 at0014 = ╱45╱E╱ // 0x642 @0x14
0x062e…0646 at0015 = ╱33╱3╱ // 0x643 @0x15
0x062e…0646 at0016 = ╱b6╱ THEN ╱ // 0x644 @0x16
0x062e…0646 at0017 = EOL // 0x645 @0x17
0x062e…0646 }
0x0646…0666 93bd 0640 T=(T-E)*40+I*10+E
0x0646…0666 LineComalBin {
0x0646…0666 ptr = 0x93bd // 0x646 @0x0
0x0646…0666 lno = 0x0280 // 0x648 @0x2
0x0646…0666 at0004 = ╱54╱T╱ // 0x64a @0x4
0x0646…0666 at0005 = ╱dc╱=╱ // 0x64b @0x5
0x0646…0666 at0006 = ╱ed╱(╱ // 0x64c @0x6
0x0646…0666 at0007 = ╱54╱T╱ // 0x64d @0x7
0x0646…0666 at0008 = ╱e3╱-╱ // 0x64e @0x8
0x0646…0666 at0009 = ╱45╱E╱ // 0x64f @0x9
0x0646…0666 at000a = ╱ee╱)╱ // 0x650 @0xa
0x0646…0666 at000b = ╱e4╱*╱ // 0x651 @0xb
0x0646…0666 at000c = ╱34╱4╱ // 0x652 @0xc
0x0646…0666 at000d = ╱30╱0╱ // 0x653 @0xd
0x0646…0666 at000e = ╱fe0000a006╱ // 0x654 @0xe
0x0646…0666 at0013 = ╱e2╱+╱ // 0x659 @0x13
0x0646…0666 at0014 = ╱49╱I╱ // 0x65a @0x14
0x0646…0666 at0015 = ╱e4╱*╱ // 0x65b @0x15
0x0646…0666 at0016 = ╱31╱1╱ // 0x65c @0x16
0x0646…0666 at0017 = ╱30╱0╱ // 0x65d @0x17
0x0646…0666 at0018 = ╱fe0000a004╱ // 0x65e @0x18
0x0646…0666 at001d = ╱e2╱+╱ // 0x663 @0x1d
0x0646…0666 at001e = ╱45╱E╱ // 0x664 @0x1e
0x0646…0666 at001f = EOL // 0x665 @0x1f
0x0646…0666 }
0x0666…0683 93da 0650 IF UTAB3(I+E,E)>NØGLE3 THEN T=B
0x0666…0683 LineComalBin {
0x0666…0683 ptr = 0x93da // 0x666 @0x0
0x0666…0683 lno = 0x028a // 0x668 @0x2
0x0666…0683 at0004 = ╱82╱ IF ╱ // 0x66a @0x4
0x0666…0683 at0005 = ╱55╱U╱ // 0x66b @0x5
0x0666…0683 at0006 = ╱54╱T╱ // 0x66c @0x6
0x0666…0683 at0007 = ╱41╱A╱ // 0x66d @0x7
0x0666…0683 at0008 = ╱42╱B╱ // 0x66e @0x8
0x0666…0683 at0009 = ╱33╱3╱ // 0x66f @0x9
0x0666…0683 at000a = ╱ed╱(╱ // 0x670 @0xa
0x0666…0683 at000b = ╱49╱I╱ // 0x671 @0xb
0x0666…0683 at000c = ╱e2╱+╱ // 0x672 @0xc
0x0666…0683 at000d = ╱45╱E╱ // 0x673 @0xd
0x0666…0683 at000e = ╱ec╱,╱ // 0x674 @0xe
0x0666…0683 at000f = ╱45╱E╱ // 0x675 @0xf
0x0666…0683 at0010 = ╱ee╱)╱ // 0x676 @0x10
0x0666…0683 at0011 = ╱de╱>╱ // 0x677 @0x11
0x0666…0683 at0012 = ╱4e╱N╱ // 0x678 @0x12
0x0666…0683 at0013 = ╱5c╱Ø╱ // 0x679 @0x13
0x0666…0683 at0014 = ╱47╱G╱ // 0x67a @0x14
0x0666…0683 at0015 = ╱4c╱L╱ // 0x67b @0x15
0x0666…0683 at0016 = ╱45╱E╱ // 0x67c @0x16
0x0666…0683 at0017 = ╱33╱3╱ // 0x67d @0x17
0x0666…0683 at0018 = ╱b6╱ THEN ╱ // 0x67e @0x18
0x0666…0683 at0019 = ╱54╱T╱ // 0x67f @0x19
0x0666…0683 at001a = ╱dc╱=╱ // 0x680 @0x1a
0x0666…0683 at001b = ╱42╱B╱ // 0x681 @0x1b
0x0666…0683 at001c = EOL // 0x682 @0x1c
0x0666…0683 }
0x0683…0689 93e0 0660 ELSE
0x0683…0689 LineComalBin {
0x0683…0689 ptr = 0x93e0 // 0x683 @0x0
0x0683…0689 lno = 0x0294 // 0x685 @0x2
0x0683…0689 at0004 = ╱9a╱ ELSE ╱ // 0x687 @0x4
0x0683…0689 at0005 = EOL // 0x688 @0x5
0x0683…0689 }
0x0689…06ad 9404 0670 T=(T-E)*40+(I-E)*10+E
0x0689…06ad LineComalBin {
0x0689…06ad ptr = 0x9404 // 0x689 @0x0
0x0689…06ad lno = 0x029e // 0x68b @0x2
0x0689…06ad at0004 = ╱54╱T╱ // 0x68d @0x4
0x0689…06ad at0005 = ╱dc╱=╱ // 0x68e @0x5
0x0689…06ad at0006 = ╱ed╱(╱ // 0x68f @0x6
0x0689…06ad at0007 = ╱54╱T╱ // 0x690 @0x7
0x0689…06ad at0008 = ╱e3╱-╱ // 0x691 @0x8
0x0689…06ad at0009 = ╱45╱E╱ // 0x692 @0x9
0x0689…06ad at000a = ╱ee╱)╱ // 0x693 @0xa
0x0689…06ad at000b = ╱e4╱*╱ // 0x694 @0xb
0x0689…06ad at000c = ╱34╱4╱ // 0x695 @0xc
0x0689…06ad at000d = ╱30╱0╱ // 0x696 @0xd
0x0689…06ad at000e = ╱fe0000a006╱ // 0x697 @0xe
0x0689…06ad at0013 = ╱e2╱+╱ // 0x69c @0x13
0x0689…06ad at0014 = ╱ed╱(╱ // 0x69d @0x14
0x0689…06ad at0015 = ╱49╱I╱ // 0x69e @0x15
0x0689…06ad at0016 = ╱e3╱-╱ // 0x69f @0x16
0x0689…06ad at0017 = ╱45╱E╱ // 0x6a0 @0x17
0x0689…06ad at0018 = ╱ee╱)╱ // 0x6a1 @0x18
0x0689…06ad at0019 = ╱e4╱*╱ // 0x6a2 @0x19
0x0689…06ad at001a = ╱31╱1╱ // 0x6a3 @0x1a
0x0689…06ad at001b = ╱30╱0╱ // 0x6a4 @0x1b
0x0689…06ad at001c = ╱fe0000a004╱ // 0x6a5 @0x1c
0x0689…06ad at0021 = ╱e2╱+╱ // 0x6aa @0x21
0x0689…06ad at0022 = ╱45╱E╱ // 0x6ab @0x22
0x0689…06ad at0023 = EOL // 0x6ac @0x23
0x0689…06ad }
0x06ad…06b3 940a 0680 ENDIF
0x06ad…06b3 LineComalBin {
0x06ad…06b3 ptr = 0x940a // 0x6ad @0x0
0x06ad…06b3 lno = 0x02a8 // 0x6af @0x2
0x06ad…06b3 at0004 = ╱9b╱ ENDIF ╱ // 0x6b1 @0x4
0x06ad…06b3 at0005 = EOL // 0x6b2 @0x5
0x06ad…06b3 }
0x06b3…06b9 9410 0690 ENDPROC
0x06b3…06b9 LineComalBin {
0x06b3…06b9 ptr = 0x9410 // 0x6b3 @0x0
0x06b3…06b9 lno = 0x02b2 // 0x6b5 @0x2
0x06b3…06b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x6b7 @0x4
0x06b3…06b9 at0005 = EOL // 0x6b8 @0x5
0x06b3…06b9 }
0x06b9…06ea 9441 0700 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3)
0x06b9…06ea LineComalBin {
0x06b9…06ea ptr = 0x9441 // 0x6b9 @0x0
0x06b9…06ea lno = 0x02bc // 0x6bb @0x2
0x06b9…06ea at0004 = ╱9e╱ PROC ╱ // 0x6bd @0x4
0x06b9…06ea at0005 = ╱50╱P╱ // 0x6be @0x5
0x06b9…06ea at0006 = ╱4f╱O╱ // 0x6bf @0x6
0x06b9…06ea at0007 = ╱53╱S╱ // 0x6c0 @0x7
0x06b9…06ea at0008 = ╱54╱T╱ // 0x6c1 @0x8
0x06b9…06ea at0009 = ╱45╱E╱ // 0x6c2 @0x9
0x06b9…06ea at000a = ╱52╱R╱ // 0x6c3 @0xa
0x06b9…06ea at000b = ╱ed╱(╱ // 0x6c4 @0xb
0x06b9…06ea at000c = ╱4b╱K╱ // 0x6c5 @0xc
0x06b9…06ea at000d = ╱33╱3╱ // 0x6c6 @0xd
0x06b9…06ea at000e = ╱35╱5╱ // 0x6c7 @0xe
0x06b9…06ea at000f = ╱ec╱,╱ // 0x6c8 @0xf
0x06b9…06ea at0010 = ╱4e╱N╱ // 0x6c9 @0x10
0x06b9…06ea at0011 = ╱5c╱Ø╱ // 0x6ca @0x11
0x06b9…06ea at0012 = ╱47╱G╱ // 0x6cb @0x12
0x06b9…06ea at0013 = ╱4c╱L╱ // 0x6cc @0x13
0x06b9…06ea at0014 = ╱45╱E╱ // 0x6cd @0x14
0x06b9…06ea at0015 = ╱34╱4╱ // 0x6ce @0x15
0x06b9…06ea at0016 = ╱ec╱,╱ // 0x6cf @0x16
0x06b9…06ea at0017 = ╱54╱T╱ // 0x6d0 @0x17
0x06b9…06ea at0018 = ╱35╱5╱ // 0x6d1 @0x18
0x06b9…06ea at0019 = ╱ec╱,╱ // 0x6d2 @0x19
0x06b9…06ea at001a = ╱4d╱M╱ // 0x6d3 @0x1a
0x06b9…06ea at001b = ╱50╱P╱ // 0x6d4 @0x1b
0x06b9…06ea at001c = ╱4f╱O╱ // 0x6d5 @0x1c
0x06b9…06ea at001d = ╱53╱S╱ // 0x6d6 @0x1d
0x06b9…06ea at001e = ╱54╱T╱ // 0x6d7 @0x1e
0x06b9…06ea at001f = ╱41╱A╱ // 0x6d8 @0x1f
0x06b9…06ea at0020 = ╱4e╱N╱ // 0x6d9 @0x20
0x06b9…06ea at0021 = ╱54╱T╱ // 0x6da @0x21
0x06b9…06ea at0022 = ╱41╱A╱ // 0x6db @0x22
0x06b9…06ea at0023 = ╱4c╱L╱ // 0x6dc @0x23
0x06b9…06ea at0024 = ╱37╱7╱ // 0x6dd @0x24
0x06b9…06ea at0025 = ╱ec╱,╱ // 0x6de @0x25
0x06b9…06ea at0026 = ╱50╱P╱ // 0x6df @0x26
0x06b9…06ea at0027 = ╱4b╱K╱ // 0x6e0 @0x27
0x06b9…06ea at0028 = ╱4f╱O╱ // 0x6e1 @0x28
0x06b9…06ea at0029 = ╱44╱D╱ // 0x6e2 @0x29
0x06b9…06ea at002a = ╱45╱E╱ // 0x6e3 @0x2a
0x06b9…06ea at002b = ╱ec╱,╱ // 0x6e4 @0x2b
0x06b9…06ea at002c = ╱53╱S╱ // 0x6e5 @0x2c
0x06b9…06ea at002d = ╱55╱U╱ // 0x6e6 @0x2d
0x06b9…06ea at002e = ╱33╱3╱ // 0x6e7 @0x2e
0x06b9…06ea at002f = ╱ee╱)╱ // 0x6e8 @0x2f
0x06b9…06ea at0030 = EOL // 0x6e9 @0x30
0x06b9…06ea }
0x06ea…06f6 944d 0710 OPEN K35$,R
0x06ea…06f6 LineComalBin {
0x06ea…06f6 ptr = 0x944d // 0x6ea @0x0
0x06ea…06f6 lno = 0x02c6 // 0x6ec @0x2
0x06ea…06f6 at0004 = ╱a7╱ OPEN ╱ // 0x6ee @0x4
0x06ea…06f6 at0005 = ╱4b╱K╱ // 0x6ef @0x5
0x06ea…06f6 at0006 = ╱33╱3╱ // 0x6f0 @0x6
0x06ea…06f6 at0007 = ╱35╱5╱ // 0x6f1 @0x7
0x06ea…06f6 at0008 = ╱ef╱$╱ // 0x6f2 @0x8
0x06ea…06f6 at0009 = ╱ec╱,╱ // 0x6f3 @0x9
0x06ea…06f6 at000a = ╱52╱R╱ // 0x6f4 @0xa
0x06ea…06f6 at000b = EOL // 0x6f5 @0xb
0x06ea…06f6 }
0x06f6…070a 9461 0720 EXEC FEJL(E,E,K35$)
0x06f6…070a LineComalBin {
0x06f6…070a ptr = 0x9461 // 0x6f6 @0x0
0x06f6…070a lno = 0x02d0 // 0x6f8 @0x2
0x06f6…070a at0004 = ╱9d╱ EXEC ╱ // 0x6fa @0x4
0x06f6…070a at0005 = ╱46╱F╱ // 0x6fb @0x5
0x06f6…070a at0006 = ╱45╱E╱ // 0x6fc @0x6
0x06f6…070a at0007 = ╱4a╱J╱ // 0x6fd @0x7
0x06f6…070a at0008 = ╱4c╱L╱ // 0x6fe @0x8
0x06f6…070a at0009 = ╱ed╱(╱ // 0x6ff @0x9
0x06f6…070a at000a = ╱45╱E╱ // 0x700 @0xa
0x06f6…070a at000b = ╱ec╱,╱ // 0x701 @0xb
0x06f6…070a at000c = ╱45╱E╱ // 0x702 @0xc
0x06f6…070a at000d = ╱ec╱,╱ // 0x703 @0xd
0x06f6…070a at000e = ╱4b╱K╱ // 0x704 @0xe
0x06f6…070a at000f = ╱33╱3╱ // 0x705 @0xf
0x06f6…070a at0010 = ╱35╱5╱ // 0x706 @0x10
0x06f6…070a at0011 = ╱ef╱$╱ // 0x707 @0x11
0x06f6…070a at0012 = ╱ee╱)╱ // 0x708 @0x12
0x06f6…070a at0013 = EOL // 0x709 @0x13
0x06f6…070a }
0x070a…071b 9472 0730 FOR I=E TO 10
0x070a…071b LineComalBin {
0x070a…071b ptr = 0x9472 // 0x70a @0x0
0x070a…071b lno = 0x02da // 0x70c @0x2
0x070a…071b at0004 = ╱83╱ FOR ╱ // 0x70e @0x4
0x070a…071b at0005 = ╱49╱I╱ // 0x70f @0x5
0x070a…071b at0006 = ╱dc╱=╱ // 0x710 @0x6
0x070a…071b at0007 = ╱45╱E╱ // 0x711 @0x7
0x070a…071b at0008 = ╱b7╱ TO ╱ // 0x712 @0x8
0x070a…071b at0009 = ╱31╱1╱ // 0x713 @0x9
0x070a…071b at000a = ╱30╱0╱ // 0x714 @0xa
0x070a…071b at000b = ╱fe0000a004╱ // 0x715 @0xb
0x070a…071b at0010 = EOL // 0x71a @0x10
0x070a…071b }
0x071b…072e 9485 0740 GET K35$,T5:KTNUM
0x071b…072e LineComalBin {
0x071b…072e ptr = 0x9485 // 0x71b @0x0
0x071b…072e lno = 0x02e4 // 0x71d @0x2
0x071b…072e at0004 = ╱a9╱ GET ╱ // 0x71f @0x4
0x071b…072e at0005 = ╱4b╱K╱ // 0x720 @0x5
0x071b…072e at0006 = ╱33╱3╱ // 0x721 @0x6
0x071b…072e at0007 = ╱35╱5╱ // 0x722 @0x7
0x071b…072e at0008 = ╱ef╱$╱ // 0x723 @0x8
0x071b…072e at0009 = ╱ec╱,╱ // 0x724 @0x9
0x071b…072e at000a = ╱54╱T╱ // 0x725 @0xa
0x071b…072e at000b = ╱35╱5╱ // 0x726 @0xb
0x071b…072e at000c = ╱f0╱:╱ // 0x727 @0xc
0x071b…072e at000d = ╱4b╱K╱ // 0x728 @0xd
0x071b…072e at000e = ╱54╱T╱ // 0x729 @0xe
0x071b…072e at000f = ╱4e╱N╱ // 0x72a @0xf
0x071b…072e at0010 = ╱55╱U╱ // 0x72b @0x10
0x071b…072e at0011 = ╱4d╱M╱ // 0x72c @0x11
0x071b…072e at0012 = EOL // 0x72d @0x12
0x071b…072e }
0x072e…0742 9499 0750 EXEC FEJL(E,G,K35$)
0x072e…0742 LineComalBin {
0x072e…0742 ptr = 0x9499 // 0x72e @0x0
0x072e…0742 lno = 0x02ee // 0x730 @0x2
0x072e…0742 at0004 = ╱9d╱ EXEC ╱ // 0x732 @0x4
0x072e…0742 at0005 = ╱46╱F╱ // 0x733 @0x5
0x072e…0742 at0006 = ╱45╱E╱ // 0x734 @0x6
0x072e…0742 at0007 = ╱4a╱J╱ // 0x735 @0x7
0x072e…0742 at0008 = ╱4c╱L╱ // 0x736 @0x8
0x072e…0742 at0009 = ╱ed╱(╱ // 0x737 @0x9
0x072e…0742 at000a = ╱45╱E╱ // 0x738 @0xa
0x072e…0742 at000b = ╱ec╱,╱ // 0x739 @0xb
0x072e…0742 at000c = ╱47╱G╱ // 0x73a @0xc
0x072e…0742 at000d = ╱ec╱,╱ // 0x73b @0xd
0x072e…0742 at000e = ╱4b╱K╱ // 0x73c @0xe
0x072e…0742 at000f = ╱33╱3╱ // 0x73d @0xf
0x072e…0742 at0010 = ╱35╱5╱ // 0x73e @0x10
0x072e…0742 at0011 = ╱ef╱$╱ // 0x73f @0x11
0x072e…0742 at0012 = ╱ee╱)╱ // 0x740 @0x12
0x072e…0742 at0013 = EOL // 0x741 @0x13
0x072e…0742 }
0x0742…0760 94b7 0760 IF KTNUM=NØGLE4 OR MAFSLUT=E THEN EXIT
0x0742…0760 LineComalBin {
0x0742…0760 ptr = 0x94b7 // 0x742 @0x0
0x0742…0760 lno = 0x02f8 // 0x744 @0x2
0x0742…0760 at0004 = ╱82╱ IF ╱ // 0x746 @0x4
0x0742…0760 at0005 = ╱4b╱K╱ // 0x747 @0x5
0x0742…0760 at0006 = ╱54╱T╱ // 0x748 @0x6
0x0742…0760 at0007 = ╱4e╱N╱ // 0x749 @0x7
0x0742…0760 at0008 = ╱55╱U╱ // 0x74a @0x8
0x0742…0760 at0009 = ╱4d╱M╱ // 0x74b @0x9
0x0742…0760 at000a = ╱dc╱=╱ // 0x74c @0xa
0x0742…0760 at000b = ╱4e╱N╱ // 0x74d @0xb
0x0742…0760 at000c = ╱5c╱Ø╱ // 0x74e @0xc
0x0742…0760 at000d = ╱47╱G╱ // 0x74f @0xd
0x0742…0760 at000e = ╱4c╱L╱ // 0x750 @0xe
0x0742…0760 at000f = ╱45╱E╱ // 0x751 @0xf
0x0742…0760 at0010 = ╱34╱4╱ // 0x752 @0x10
0x0742…0760 at0011 = ╱db╱ OR ╱ // 0x753 @0x11
0x0742…0760 at0012 = ╱4d╱M╱ // 0x754 @0x12
0x0742…0760 at0013 = ╱41╱A╱ // 0x755 @0x13
0x0742…0760 at0014 = ╱46╱F╱ // 0x756 @0x14
0x0742…0760 at0015 = ╱53╱S╱ // 0x757 @0x15
0x0742…0760 at0016 = ╱4c╱L╱ // 0x758 @0x16
0x0742…0760 at0017 = ╱55╱U╱ // 0x759 @0x17
0x0742…0760 at0018 = ╱54╱T╱ // 0x75a @0x18
0x0742…0760 at0019 = ╱dc╱=╱ // 0x75b @0x19
0x0742…0760 at001a = ╱45╱E╱ // 0x75c @0x1a
0x0742…0760 at001b = ╱b6╱ THEN ╱ // 0x75d @0x1b
0x0742…0760 at001c = ╱99╱ EXIT ╱ // 0x75e @0x1c
0x0742…0760 at001d = EOL // 0x75f @0x1d
0x0742…0760 }
0x0760…076c 94c3 0770 T5=T5+E
0x0760…076c LineComalBin {
0x0760…076c ptr = 0x94c3 // 0x760 @0x0
0x0760…076c lno = 0x0302 // 0x762 @0x2
0x0760…076c at0004 = ╱54╱T╱ // 0x764 @0x4
0x0760…076c at0005 = ╱35╱5╱ // 0x765 @0x5
0x0760…076c at0006 = ╱dc╱=╱ // 0x766 @0x6
0x0760…076c at0007 = ╱54╱T╱ // 0x767 @0x7
0x0760…076c at0008 = ╱35╱5╱ // 0x768 @0x8
0x0760…076c at0009 = ╱e2╱+╱ // 0x769 @0x9
0x0760…076c at000a = ╱45╱E╱ // 0x76a @0xa
0x0760…076c at000b = EOL // 0x76b @0xb
0x0760…076c }
0x076c…0773 94ca 0780 NEXT I
0x076c…0773 LineComalBin {
0x076c…0773 ptr = 0x94ca // 0x76c @0x0
0x076c…0773 lno = 0x030c // 0x76e @0x2
0x076c…0773 at0004 = ╱84╱ NEXT ╱ // 0x770 @0x4
0x076c…0773 at0005 = ╱49╱I╱ // 0x771 @0x5
0x076c…0773 at0006 = EOL // 0x772 @0x6
0x076c…0773 }
0x0773…0786 94dd 0790 IF KTNUM=NØGLE4 THEN
0x0773…0786 LineComalBin {
0x0773…0786 ptr = 0x94dd // 0x773 @0x0
0x0773…0786 lno = 0x0316 // 0x775 @0x2
0x0773…0786 at0004 = ╱9c╱ IF ╱ // 0x777 @0x4
0x0773…0786 at0005 = ╱4b╱K╱ // 0x778 @0x5
0x0773…0786 at0006 = ╱54╱T╱ // 0x779 @0x6
0x0773…0786 at0007 = ╱4e╱N╱ // 0x77a @0x7
0x0773…0786 at0008 = ╱55╱U╱ // 0x77b @0x8
0x0773…0786 at0009 = ╱4d╱M╱ // 0x77c @0x9
0x0773…0786 at000a = ╱dc╱=╱ // 0x77d @0xa
0x0773…0786 at000b = ╱4e╱N╱ // 0x77e @0xb
0x0773…0786 at000c = ╱5c╱Ø╱ // 0x77f @0xc
0x0773…0786 at000d = ╱47╱G╱ // 0x780 @0xd
0x0773…0786 at000e = ╱4c╱L╱ // 0x781 @0xe
0x0773…0786 at000f = ╱45╱E╱ // 0x782 @0xf
0x0773…0786 at0010 = ╱34╱4╱ // 0x783 @0x10
0x0773…0786 at0011 = ╱b6╱ THEN ╱ // 0x784 @0x11
0x0773…0786 at0012 = EOL // 0x785 @0x12
0x0773…0786 }
0x0786…079c 94f3 0800 FOR K=T5 TO MPOSTANTAL7
0x0786…079c LineComalBin {
0x0786…079c ptr = 0x94f3 // 0x786 @0x0
0x0786…079c lno = 0x0320 // 0x788 @0x2
0x0786…079c at0004 = ╱83╱ FOR ╱ // 0x78a @0x4
0x0786…079c at0005 = ╱4b╱K╱ // 0x78b @0x5
0x0786…079c at0006 = ╱dc╱=╱ // 0x78c @0x6
0x0786…079c at0007 = ╱54╱T╱ // 0x78d @0x7
0x0786…079c at0008 = ╱35╱5╱ // 0x78e @0x8
0x0786…079c at0009 = ╱b7╱ TO ╱ // 0x78f @0x9
0x0786…079c at000a = ╱4d╱M╱ // 0x790 @0xa
0x0786…079c at000b = ╱50╱P╱ // 0x791 @0xb
0x0786…079c at000c = ╱4f╱O╱ // 0x792 @0xc
0x0786…079c at000d = ╱53╱S╱ // 0x793 @0xd
0x0786…079c at000e = ╱54╱T╱ // 0x794 @0xe
0x0786…079c at000f = ╱41╱A╱ // 0x795 @0xf
0x0786…079c at0010 = ╱4e╱N╱ // 0x796 @0x10
0x0786…079c at0011 = ╱54╱T╱ // 0x797 @0x11
0x0786…079c at0012 = ╱41╱A╱ // 0x798 @0x12
0x0786…079c at0013 = ╱4c╱L╱ // 0x799 @0x13
0x0786…079c at0014 = ╱37╱7╱ // 0x79a @0x14
0x0786…079c at0015 = EOL // 0x79b @0x15
0x0786…079c }
0x079c…07ce 9525 0810 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$,ENTKO
0x079c…07ce LineComalBin {
0x079c…07ce ptr = 0x9525 // 0x79c @0x0
0x079c…07ce lno = 0x032a // 0x79e @0x2
0x079c…07ce at0004 = ╱a9╱ GET ╱ // 0x7a0 @0x4
0x079c…07ce at0005 = ╱4b╱K╱ // 0x7a1 @0x5
0x079c…07ce at0006 = ╱33╱3╱ // 0x7a2 @0x6
0x079c…07ce at0007 = ╱35╱5╱ // 0x7a3 @0x7
0x079c…07ce at0008 = ╱ef╱$╱ // 0x7a4 @0x8
0x079c…07ce at0009 = ╱ec╱,╱ // 0x7a5 @0x9
0x079c…07ce at000a = ╱4b╱K╱ // 0x7a6 @0xa
0x079c…07ce at000b = ╱f0╱:╱ // 0x7a7 @0xb
0x079c…07ce at000c = ╱4b╱K╱ // 0x7a8 @0xc
0x079c…07ce at000d = ╱4f╱O╱ // 0x7a9 @0xd
0x079c…07ce at000e = ╱4e╱N╱ // 0x7aa @0xe
0x079c…07ce at000f = ╱54╱T╱ // 0x7ab @0xf
0x079c…07ce at0010 = ╱4f╱O╱ // 0x7ac @0x10
0x079c…07ce at0011 = ╱ec╱,╱ // 0x7ad @0x11
0x079c…07ce at0012 = ╱44╱D╱ // 0x7ae @0x12
0x079c…07ce at0013 = ╱44╱D╱ // 0x7af @0x13
0x079c…07ce at0014 = ╱41╱A╱ // 0x7b0 @0x14
0x079c…07ce at0015 = ╱54╱T╱ // 0x7b1 @0x15
0x079c…07ce at0016 = ╱4f╱O╱ // 0x7b2 @0x16
0x079c…07ce at0017 = ╱ec╱,╱ // 0x7b3 @0x17
0x079c…07ce at0018 = ╱42╱B╱ // 0x7b4 @0x18
0x079c…07ce at0019 = ╱49╱I╱ // 0x7b5 @0x19
0x079c…07ce at001a = ╱4c╱L╱ // 0x7b6 @0x1a
0x079c…07ce at001b = ╱41╱A╱ // 0x7b7 @0x1b
0x079c…07ce at001c = ╱47╱G╱ // 0x7b8 @0x1c
0x079c…07ce at001d = ╱ec╱,╱ // 0x7b9 @0x1d
0x079c…07ce at001e = ╱54╱T╱ // 0x7ba @0x1e
0x079c…07ce at001f = ╱4b╱K╱ // 0x7bb @0x1f
0x079c…07ce at0020 = ╱4f╱O╱ // 0x7bc @0x20
0x079c…07ce at0021 = ╱44╱D╱ // 0x7bd @0x21
0x079c…07ce at0022 = ╱45╱E╱ // 0x7be @0x22
0x079c…07ce at0023 = ╱ef╱$╱ // 0x7bf @0x23
0x079c…07ce at0024 = ╱ec╱,╱ // 0x7c0 @0x24
0x079c…07ce at0025 = ╱42╱B╱ // 0x7c1 @0x25
0x079c…07ce at0026 = ╱45╱E╱ // 0x7c2 @0x26
0x079c…07ce at0027 = ╱4c╱L╱ // 0x7c3 @0x27
0x079c…07ce at0028 = ╱5c╱Ø╱ // 0x7c4 @0x28
0x079c…07ce at0029 = ╱42╱B╱ // 0x7c5 @0x29
0x079c…07ce at002a = ╱ef╱$╱ // 0x7c6 @0x2a
0x079c…07ce at002b = ╱ec╱,╱ // 0x7c7 @0x2b
0x079c…07ce at002c = ╱45╱E╱ // 0x7c8 @0x2c
0x079c…07ce at002d = ╱4e╱N╱ // 0x7c9 @0x2d
0x079c…07ce at002e = ╱54╱T╱ // 0x7ca @0x2e
0x079c…07ce at002f = ╱4b╱K╱ // 0x7cb @0x2f
0x079c…07ce at0030 = ╱4f╱O╱ // 0x7cc @0x30
0x079c…07ce at0031 = EOL // 0x7cd @0x31
0x079c…07ce }
0x07ce…07e2 9539 0820 EXEC FEJL(E,V,K35$)
0x07ce…07e2 LineComalBin {
0x07ce…07e2 ptr = 0x9539 // 0x7ce @0x0
0x07ce…07e2 lno = 0x0334 // 0x7d0 @0x2
0x07ce…07e2 at0004 = ╱9d╱ EXEC ╱ // 0x7d2 @0x4
0x07ce…07e2 at0005 = ╱46╱F╱ // 0x7d3 @0x5
0x07ce…07e2 at0006 = ╱45╱E╱ // 0x7d4 @0x6
0x07ce…07e2 at0007 = ╱4a╱J╱ // 0x7d5 @0x7
0x07ce…07e2 at0008 = ╱4c╱L╱ // 0x7d6 @0x8
0x07ce…07e2 at0009 = ╱ed╱(╱ // 0x7d7 @0x9
0x07ce…07e2 at000a = ╱45╱E╱ // 0x7d8 @0xa
0x07ce…07e2 at000b = ╱ec╱,╱ // 0x7d9 @0xb
0x07ce…07e2 at000c = ╱56╱V╱ // 0x7da @0xc
0x07ce…07e2 at000d = ╱ec╱,╱ // 0x7db @0xd
0x07ce…07e2 at000e = ╱4b╱K╱ // 0x7dc @0xe
0x07ce…07e2 at000f = ╱33╱3╱ // 0x7dd @0xf
0x07ce…07e2 at0010 = ╱35╱5╱ // 0x7de @0x10
0x07ce…07e2 at0011 = ╱ef╱$╱ // 0x7df @0x11
0x07ce…07e2 at0012 = ╱ee╱)╱ // 0x7e0 @0x12
0x07ce…07e2 at0013 = EOL // 0x7e1 @0x13
0x07ce…07e2 }
0x07e2…07f6 954d 0830 IF KONTO<>NØGLE4 THEN EXIT
0x07e2…07f6 LineComalBin {
0x07e2…07f6 ptr = 0x954d // 0x7e2 @0x0
0x07e2…07f6 lno = 0x033e // 0x7e4 @0x2
0x07e2…07f6 at0004 = ╱82╱ IF ╱ // 0x7e6 @0x4
0x07e2…07f6 at0005 = ╱4b╱K╱ // 0x7e7 @0x5
0x07e2…07f6 at0006 = ╱4f╱O╱ // 0x7e8 @0x6
0x07e2…07f6 at0007 = ╱4e╱N╱ // 0x7e9 @0x7
0x07e2…07f6 at0008 = ╱54╱T╱ // 0x7ea @0x8
0x07e2…07f6 at0009 = ╱4f╱O╱ // 0x7eb @0x9
0x07e2…07f6 at000a = ╱e1╱<>╱ // 0x7ec @0xa
0x07e2…07f6 at000b = ╱4e╱N╱ // 0x7ed @0xb
0x07e2…07f6 at000c = ╱5c╱Ø╱ // 0x7ee @0xc
0x07e2…07f6 at000d = ╱47╱G╱ // 0x7ef @0xd
0x07e2…07f6 at000e = ╱4c╱L╱ // 0x7f0 @0xe
0x07e2…07f6 at000f = ╱45╱E╱ // 0x7f1 @0xf
0x07e2…07f6 at0010 = ╱34╱4╱ // 0x7f2 @0x10
0x07e2…07f6 at0011 = ╱b6╱ THEN ╱ // 0x7f3 @0x11
0x07e2…07f6 at0012 = ╱99╱ EXIT ╱ // 0x7f4 @0x12
0x07e2…07f6 at0013 = EOL // 0x7f5 @0x13
0x07e2…07f6 }
0x07f6…082f 9586 0840 TKS=ORD(TKODE$)-48;TKS9=TKS-10*(TKS>20)
0x07f6…082f LineComalBin {
0x07f6…082f ptr = 0x9586 // 0x7f6 @0x0
0x07f6…082f lno = 0x0348 // 0x7f8 @0x2
0x07f6…082f at0004 = ╱54╱T╱ // 0x7fa @0x4
0x07f6…082f at0005 = ╱4b╱K╱ // 0x7fb @0x5
0x07f6…082f at0006 = ╱53╱S╱ // 0x7fc @0x6
0x07f6…082f at0007 = ╱dc╱=╱ // 0x7fd @0x7
0x07f6…082f at0008 = ╱cd╱ORD╱ // 0x7fe @0x8
0x07f6…082f at0009 = ╱ed╱(╱ // 0x7ff @0x9
0x07f6…082f at000a = ╱54╱T╱ // 0x800 @0xa
0x07f6…082f at000b = ╱4b╱K╱ // 0x801 @0xb
0x07f6…082f at000c = ╱4f╱O╱ // 0x802 @0xc
0x07f6…082f at000d = ╱44╱D╱ // 0x803 @0xd
0x07f6…082f at000e = ╱45╱E╱ // 0x804 @0xe
0x07f6…082f at000f = ╱ef╱$╱ // 0x805 @0xf
0x07f6…082f at0010 = ╱ee╱)╱ // 0x806 @0x10
0x07f6…082f at0011 = ╱e3╱-╱ // 0x807 @0x11
0x07f6…082f at0012 = ╱34╱4╱ // 0x808 @0x12
0x07f6…082f at0013 = ╱38╱8╱ // 0x809 @0x13
0x07f6…082f at0014 = ╱fe0000c006╱ // 0x80a @0x14
0x07f6…082f at0019 = ╱eb╱;╱ // 0x80f @0x19
0x07f6…082f at001a = ╱54╱T╱ // 0x810 @0x1a
0x07f6…082f at001b = ╱4b╱K╱ // 0x811 @0x1b
0x07f6…082f at001c = ╱53╱S╱ // 0x812 @0x1c
0x07f6…082f at001d = ╱39╱9╱ // 0x813 @0x1d
0x07f6…082f at001e = ╱dc╱=╱ // 0x814 @0x1e
0x07f6…082f at001f = ╱54╱T╱ // 0x815 @0x1f
0x07f6…082f at0020 = ╱4b╱K╱ // 0x816 @0x20
0x07f6…082f at0021 = ╱53╱S╱ // 0x817 @0x21
0x07f6…082f at0022 = ╱e3╱-╱ // 0x818 @0x22
0x07f6…082f at0023 = ╱31╱1╱ // 0x819 @0x23
0x07f6…082f at0024 = ╱30╱0╱ // 0x81a @0x24
0x07f6…082f at0025 = ╱fe0000a004╱ // 0x81b @0x25
0x07f6…082f at002a = ╱e4╱*╱ // 0x820 @0x2a
0x07f6…082f at002b = ╱ed╱(╱ // 0x821 @0x2b
0x07f6…082f at002c = ╱54╱T╱ // 0x822 @0x2c
0x07f6…082f at002d = ╱4b╱K╱ // 0x823 @0x2d
0x07f6…082f at002e = ╱53╱S╱ // 0x824 @0x2e
0x07f6…082f at002f = ╱de╱>╱ // 0x825 @0x2f
0x07f6…082f at0030 = ╱32╱2╱ // 0x826 @0x30
0x07f6…082f at0031 = ╱30╱0╱ // 0x827 @0x31
0x07f6…082f at0032 = ╱fe0000a005╱ // 0x828 @0x32
0x07f6…082f at0037 = ╱ee╱)╱ // 0x82d @0x37
0x07f6…082f at0038 = EOL // 0x82e @0x38
0x07f6…082f }
0x082f…0847 959e 0850 IF TKS>W AND TKS<20 THEN
0x082f…0847 LineComalBin {
0x082f…0847 ptr = 0x959e // 0x82f @0x0
0x082f…0847 lno = 0x0352 // 0x831 @0x2
0x082f…0847 at0004 = ╱9c╱ IF ╱ // 0x833 @0x4
0x082f…0847 at0005 = ╱54╱T╱ // 0x834 @0x5
0x082f…0847 at0006 = ╱4b╱K╱ // 0x835 @0x6
0x082f…0847 at0007 = ╱53╱S╱ // 0x836 @0x7
0x082f…0847 at0008 = ╱de╱>╱ // 0x837 @0x8
0x082f…0847 at0009 = ╱57╱W╱ // 0x838 @0x9
0x082f…0847 at000a = ╱da╱ AND ╱ // 0x839 @0xa
0x082f…0847 at000b = ╱54╱T╱ // 0x83a @0xb
0x082f…0847 at000c = ╱4b╱K╱ // 0x83b @0xc
0x082f…0847 at000d = ╱53╱S╱ // 0x83c @0xd
0x082f…0847 at000e = ╱dd╱<╱ // 0x83d @0xe
0x082f…0847 at000f = ╱32╱2╱ // 0x83e @0xf
0x082f…0847 at0010 = ╱30╱0╱ // 0x83f @0x10
0x082f…0847 at0011 = ╱fe0000a005╱ // 0x840 @0x11
0x082f…0847 at0016 = ╱b6╱ THEN ╱ // 0x845 @0x16
0x082f…0847 at0017 = EOL // 0x846 @0x17
0x082f…0847 }
0x0847…0851 95a8 0860 K=K+E
0x0847…0851 LineComalBin {
0x0847…0851 ptr = 0x95a8 // 0x847 @0x0
0x0847…0851 lno = 0x035c // 0x849 @0x2
0x0847…0851 at0004 = ╱4b╱K╱ // 0x84b @0x4
0x0847…0851 at0005 = ╱dc╱=╱ // 0x84c @0x5
0x0847…0851 at0006 = ╱4b╱K╱ // 0x84d @0x6
0x0847…0851 at0007 = ╱e2╱+╱ // 0x84e @0x7
0x0847…0851 at0008 = ╱45╱E╱ // 0x84f @0x8
0x0847…0851 at0009 = EOL // 0x850 @0x9
0x0847…0851 }
0x0851…086a 95c1 0870 GET K35$,K:KONTO,TEKST$
0x0851…086a LineComalBin {
0x0851…086a ptr = 0x95c1 // 0x851 @0x0
0x0851…086a lno = 0x0366 // 0x853 @0x2
0x0851…086a at0004 = ╱a9╱ GET ╱ // 0x855 @0x4
0x0851…086a at0005 = ╱4b╱K╱ // 0x856 @0x5
0x0851…086a at0006 = ╱33╱3╱ // 0x857 @0x6
0x0851…086a at0007 = ╱35╱5╱ // 0x858 @0x7
0x0851…086a at0008 = ╱ef╱$╱ // 0x859 @0x8
0x0851…086a at0009 = ╱ec╱,╱ // 0x85a @0x9
0x0851…086a at000a = ╱4b╱K╱ // 0x85b @0xa
0x0851…086a at000b = ╱f0╱:╱ // 0x85c @0xb
0x0851…086a at000c = ╱4b╱K╱ // 0x85d @0xc
0x0851…086a at000d = ╱4f╱O╱ // 0x85e @0xd
0x0851…086a at000e = ╱4e╱N╱ // 0x85f @0xe
0x0851…086a at000f = ╱54╱T╱ // 0x860 @0xf
0x0851…086a at0010 = ╱4f╱O╱ // 0x861 @0x10
0x0851…086a at0011 = ╱ec╱,╱ // 0x862 @0x11
0x0851…086a at0012 = ╱54╱T╱ // 0x863 @0x12
0x0851…086a at0013 = ╱45╱E╱ // 0x864 @0x13
0x0851…086a at0014 = ╱4b╱K╱ // 0x865 @0x14
0x0851…086a at0015 = ╱53╱S╱ // 0x866 @0x15
0x0851…086a at0016 = ╱54╱T╱ // 0x867 @0x16
0x0851…086a at0017 = ╱ef╱$╱ // 0x868 @0x17
0x0851…086a at0018 = EOL // 0x869 @0x18
0x0851…086a }
0x086a…0883 95da 0880 EXEC FEJL(E,4,K35$)
0x086a…0883 LineComalBin {
0x086a…0883 ptr = 0x95da // 0x86a @0x0
0x086a…0883 lno = 0x0370 // 0x86c @0x2
0x086a…0883 at0004 = ╱9d╱ EXEC ╱ // 0x86e @0x4
0x086a…0883 at0005 = ╱46╱F╱ // 0x86f @0x5
0x086a…0883 at0006 = ╱45╱E╱ // 0x870 @0x6
0x086a…0883 at0007 = ╱4a╱J╱ // 0x871 @0x7
0x086a…0883 at0008 = ╱4c╱L╱ // 0x872 @0x8
0x086a…0883 at0009 = ╱ed╱(╱ // 0x873 @0x9
0x086a…0883 at000a = ╱45╱E╱ // 0x874 @0xa
0x086a…0883 at000b = ╱ec╱,╱ // 0x875 @0xb
0x086a…0883 at000c = ╱34╱4╱ // 0x876 @0xc
0x086a…0883 at000d = ╱fe00008003╱ // 0x877 @0xd
0x086a…0883 at0012 = ╱ec╱,╱ // 0x87c @0x12
0x086a…0883 at0013 = ╱4b╱K╱ // 0x87d @0x13
0x086a…0883 at0014 = ╱33╱3╱ // 0x87e @0x14
0x086a…0883 at0015 = ╱35╱5╱ // 0x87f @0x15
0x086a…0883 at0016 = ╱ef╱$╱ // 0x880 @0x16
0x086a…0883 at0017 = ╱ee╱)╱ // 0x881 @0x17
0x086a…0883 at0018 = EOL // 0x882 @0x18
0x086a…0883 }
0x0883…0889 95e0 0890 ELSE
0x0883…0889 LineComalBin {
0x0883…0889 ptr = 0x95e0 // 0x883 @0x0
0x0883…0889 lno = 0x037a // 0x885 @0x2
0x0883…0889 at0004 = ╱9a╱ ELSE ╱ // 0x887 @0x4
0x0883…0889 at0005 = EOL // 0x888 @0x5
0x0883…0889 }
0x0889…08b3 960a 0900 IF TKS>B AND TKS<30 THEN TEKST$=TFIL$(TKS9)
0x0889…08b3 LineComalBin {
0x0889…08b3 ptr = 0x960a // 0x889 @0x0
0x0889…08b3 lno = 0x0384 // 0x88b @0x2
0x0889…08b3 at0004 = ╱82╱ IF ╱ // 0x88d @0x4
0x0889…08b3 at0005 = ╱54╱T╱ // 0x88e @0x5
0x0889…08b3 at0006 = ╱4b╱K╱ // 0x88f @0x6
0x0889…08b3 at0007 = ╱53╱S╱ // 0x890 @0x7
0x0889…08b3 at0008 = ╱de╱>╱ // 0x891 @0x8
0x0889…08b3 at0009 = ╱42╱B╱ // 0x892 @0x9
0x0889…08b3 at000a = ╱da╱ AND ╱ // 0x893 @0xa
0x0889…08b3 at000b = ╱54╱T╱ // 0x894 @0xb
0x0889…08b3 at000c = ╱4b╱K╱ // 0x895 @0xc
0x0889…08b3 at000d = ╱53╱S╱ // 0x896 @0xd
0x0889…08b3 at000e = ╱dd╱<╱ // 0x897 @0xe
0x0889…08b3 at000f = ╱33╱3╱ // 0x898 @0xf
0x0889…08b3 at0010 = ╱30╱0╱ // 0x899 @0x10
0x0889…08b3 at0011 = ╱fe0000f005╱ // 0x89a @0x11
0x0889…08b3 at0016 = ╱b6╱ THEN ╱ // 0x89f @0x16
0x0889…08b3 at0017 = ╱54╱T╱ // 0x8a0 @0x17
0x0889…08b3 at0018 = ╱45╱E╱ // 0x8a1 @0x18
0x0889…08b3 at0019 = ╱4b╱K╱ // 0x8a2 @0x19
0x0889…08b3 at001a = ╱53╱S╱ // 0x8a3 @0x1a
0x0889…08b3 at001b = ╱54╱T╱ // 0x8a4 @0x1b
0x0889…08b3 at001c = ╱ef╱$╱ // 0x8a5 @0x1c
0x0889…08b3 at001d = ╱dc╱=╱ // 0x8a6 @0x1d
0x0889…08b3 at001e = ╱54╱T╱ // 0x8a7 @0x1e
0x0889…08b3 at001f = ╱46╱F╱ // 0x8a8 @0x1f
0x0889…08b3 at0020 = ╱49╱I╱ // 0x8a9 @0x20
0x0889…08b3 at0021 = ╱4c╱L╱ // 0x8aa @0x21
0x0889…08b3 at0022 = ╱ef╱$╱ // 0x8ab @0x22
0x0889…08b3 at0023 = ╱ed╱(╱ // 0x8ac @0x23
0x0889…08b3 at0024 = ╱54╱T╱ // 0x8ad @0x24
0x0889…08b3 at0025 = ╱4b╱K╱ // 0x8ae @0x25
0x0889…08b3 at0026 = ╱53╱S╱ // 0x8af @0x26
0x0889…08b3 at0027 = ╱39╱9╱ // 0x8b0 @0x27
0x0889…08b3 at0028 = ╱ee╱)╱ // 0x8b1 @0x28
0x0889…08b3 at0029 = EOL // 0x8b2 @0x29
0x0889…08b3 }
0x08b3…08b9 9610 0910 ENDIF
0x08b3…08b9 LineComalBin {
0x08b3…08b9 ptr = 0x9610 // 0x8b3 @0x0
0x08b3…08b9 lno = 0x038e // 0x8b5 @0x2
0x08b3…08b9 at0004 = ╱9b╱ ENDIF ╱ // 0x8b7 @0x4
0x08b3…08b9 at0005 = EOL // 0x8b8 @0x5
0x08b3…08b9 }
0x08b9…08d2 (29,) 9629 0920 TEKST$=TEKST$+BLANK$
0x08b9…08d2 LineComalBin {
0x08b9…08d2 ptr = 0x9629 // 0x8b9 @0x0
0x08b9…08d2 lno = 0x0398 // 0x8bb @0x2
0x08b9…08d2 at0004 = ╱54╱T╱ // 0x8bd @0x4
0x08b9…08d2 at0005 = ╱45╱E╱ // 0x8be @0x5
0x08b9…08d2 at0006 = ╱4b╱K╱ // 0x8bf @0x6
0x08b9…08d2 at0007 = ╱53╱S╱ // 0x8c0 @0x7
0x08b9…08d2 at0008 = ╱54╱T╱ // 0x8c1 @0x8
0x08b9…08d2 at0009 = ╱ef╱$╱ // 0x8c2 @0x9
0x08b9…08d2 at000a = ╱dc╱=╱ // 0x8c3 @0xa
0x08b9…08d2 at000b = ╱54╱T╱ // 0x8c4 @0xb
0x08b9…08d2 at000c = ╱45╱E╱ // 0x8c5 @0xc
0x08b9…08d2 at000d = ╱4b╱K╱ // 0x8c6 @0xd
0x08b9…08d2 at000e = ╱53╱S╱ // 0x8c7 @0xe
0x08b9…08d2 at000f = ╱54╱T╱ // 0x8c8 @0xf
0x08b9…08d2 at0010 = ╱ef╱$╱ // 0x8c9 @0x10
0x08b9…08d2 at0011 = ╱f1╱+╱ // 0x8ca @0x11
0x08b9…08d2 at0012 = ╱42╱B╱ // 0x8cb @0x12
0x08b9…08d2 at0013 = ╱4c╱L╱ // 0x8cc @0x13
0x08b9…08d2 at0014 = ╱41╱A╱ // 0x8cd @0x14
0x08b9…08d2 at0015 = ╱4e╱N╱ // 0x8ce @0x15
0x08b9…08d2 at0016 = ╱4b╱K╱ // 0x8cf @0x16
0x08b9…08d2 at0017 = ╱ef╱$╱ // 0x8d0 @0x17
0x08b9…08d2 at0018 = EOL // 0x8d1 @0x18
0x08b9…08d2 }
0x08d2…08fe 9655 0930 IF TKS<30 THEN EXEC UDSKRIV(PKODE,SU3$,LINIE)
0x08d2…08fe LineComalBin {
0x08d2…08fe ptr = 0x9655 // 0x8d2 @0x0
0x08d2…08fe lno = 0x03a2 // 0x8d4 @0x2
0x08d2…08fe at0004 = ╱82╱ IF ╱ // 0x8d6 @0x4
0x08d2…08fe at0005 = ╱54╱T╱ // 0x8d7 @0x5
0x08d2…08fe at0006 = ╱4b╱K╱ // 0x8d8 @0x6
0x08d2…08fe at0007 = ╱53╱S╱ // 0x8d9 @0x7
0x08d2…08fe at0008 = ╱dd╱<╱ // 0x8da @0x8
0x08d2…08fe at0009 = ╱33╱3╱ // 0x8db @0x9
0x08d2…08fe at000a = ╱30╱0╱ // 0x8dc @0xa
0x08d2…08fe at000b = ╱fe0000f005╱ // 0x8dd @0xb
0x08d2…08fe at0010 = ╱b6╱ THEN ╱ // 0x8e2 @0x10
0x08d2…08fe at0011 = ╱9d╱ EXEC ╱ // 0x8e3 @0x11
0x08d2…08fe at0012 = ╱55╱U╱ // 0x8e4 @0x12
0x08d2…08fe at0013 = ╱44╱D╱ // 0x8e5 @0x13
0x08d2…08fe at0014 = ╱53╱S╱ // 0x8e6 @0x14
0x08d2…08fe at0015 = ╱4b╱K╱ // 0x8e7 @0x15
0x08d2…08fe at0016 = ╱52╱R╱ // 0x8e8 @0x16
0x08d2…08fe at0017 = ╱49╱I╱ // 0x8e9 @0x17
0x08d2…08fe at0018 = ╱56╱V╱ // 0x8ea @0x18
0x08d2…08fe at0019 = ╱ed╱(╱ // 0x8eb @0x19
0x08d2…08fe at001a = ╱50╱P╱ // 0x8ec @0x1a
0x08d2…08fe at001b = ╱4b╱K╱ // 0x8ed @0x1b
0x08d2…08fe at001c = ╱4f╱O╱ // 0x8ee @0x1c
0x08d2…08fe at001d = ╱44╱D╱ // 0x8ef @0x1d
0x08d2…08fe at001e = ╱45╱E╱ // 0x8f0 @0x1e
0x08d2…08fe at001f = ╱ec╱,╱ // 0x8f1 @0x1f
0x08d2…08fe at0020 = ╱53╱S╱ // 0x8f2 @0x20
0x08d2…08fe at0021 = ╱55╱U╱ // 0x8f3 @0x21
0x08d2…08fe at0022 = ╱33╱3╱ // 0x8f4 @0x22
0x08d2…08fe at0023 = ╱ef╱$╱ // 0x8f5 @0x23
0x08d2…08fe at0024 = ╱ec╱,╱ // 0x8f6 @0x24
0x08d2…08fe at0025 = ╱4c╱L╱ // 0x8f7 @0x25
0x08d2…08fe at0026 = ╱49╱I╱ // 0x8f8 @0x26
0x08d2…08fe at0027 = ╱4e╱N╱ // 0x8f9 @0x27
0x08d2…08fe at0028 = ╱49╱I╱ // 0x8fa @0x28
0x08d2…08fe at0029 = ╱45╱E╱ // 0x8fb @0x29
0x08d2…08fe at002a = ╱ee╱)╱ // 0x8fc @0x2a
0x08d2…08fe at002b = EOL // 0x8fd @0x2b
0x08d2…08fe }
0x08fe…0905 965c 0940 NEXT K
0x08fe…0905 LineComalBin {
0x08fe…0905 ptr = 0x965c // 0x8fe @0x0
0x08fe…0905 lno = 0x03ac // 0x900 @0x2
0x08fe…0905 at0004 = ╱84╱ NEXT ╱ // 0x902 @0x4
0x08fe…0905 at0005 = ╱4b╱K╱ // 0x903 @0x5
0x08fe…0905 at0006 = EOL // 0x904 @0x6
0x08fe…0905 }
0x0905…0926 967d 0950 IF MAFSLUT=E THEN T6=K;NØGLE4=KONTO
0x0905…0926 LineComalBin {
0x0905…0926 ptr = 0x967d // 0x905 @0x0
0x0905…0926 lno = 0x03b6 // 0x907 @0x2
0x0905…0926 at0004 = ╱82╱ IF ╱ // 0x909 @0x4
0x0905…0926 at0005 = ╱4d╱M╱ // 0x90a @0x5
0x0905…0926 at0006 = ╱41╱A╱ // 0x90b @0x6
0x0905…0926 at0007 = ╱46╱F╱ // 0x90c @0x7
0x0905…0926 at0008 = ╱53╱S╱ // 0x90d @0x8
0x0905…0926 at0009 = ╱4c╱L╱ // 0x90e @0x9
0x0905…0926 at000a = ╱55╱U╱ // 0x90f @0xa
0x0905…0926 at000b = ╱54╱T╱ // 0x910 @0xb
0x0905…0926 at000c = ╱dc╱=╱ // 0x911 @0xc
0x0905…0926 at000d = ╱45╱E╱ // 0x912 @0xd
0x0905…0926 at000e = ╱b6╱ THEN ╱ // 0x913 @0xe
0x0905…0926 at000f = ╱54╱T╱ // 0x914 @0xf
0x0905…0926 at0010 = ╱36╱6╱ // 0x915 @0x10
0x0905…0926 at0011 = ╱dc╱=╱ // 0x916 @0x11
0x0905…0926 at0012 = ╱4b╱K╱ // 0x917 @0x12
0x0905…0926 at0013 = ╱eb╱;╱ // 0x918 @0x13
0x0905…0926 at0014 = ╱4e╱N╱ // 0x919 @0x14
0x0905…0926 at0015 = ╱5c╱Ø╱ // 0x91a @0x15
0x0905…0926 at0016 = ╱47╱G╱ // 0x91b @0x16
0x0905…0926 at0017 = ╱4c╱L╱ // 0x91c @0x17
0x0905…0926 at0018 = ╱45╱E╱ // 0x91d @0x18
0x0905…0926 at0019 = ╱34╱4╱ // 0x91e @0x19
0x0905…0926 at001a = ╱dc╱=╱ // 0x91f @0x1a
0x0905…0926 at001b = ╱4b╱K╱ // 0x920 @0x1b
0x0905…0926 at001c = ╱4f╱O╱ // 0x921 @0x1c
0x0905…0926 at001d = ╱4e╱N╱ // 0x922 @0x1d
0x0905…0926 at001e = ╱54╱T╱ // 0x923 @0x1e
0x0905…0926 at001f = ╱4f╱O╱ // 0x924 @0x1f
0x0905…0926 at0020 = EOL // 0x925 @0x20
0x0905…0926 }
0x0926…092c 9683 0960 ELSE
0x0926…092c LineComalBin {
0x0926…092c ptr = 0x9683 // 0x926 @0x0
0x0926…092c lno = 0x03c0 // 0x928 @0x2
0x0926…092c at0004 = ╱9a╱ ELSE ╱ // 0x92a @0x4
0x0926…092c at0005 = EOL // 0x92b @0x5
0x0926…092c }
0x092c…0948 969f 0970 T6=T5;NØGLE4=KTNUM;T5=B
0x092c…0948 LineComalBin {
0x092c…0948 ptr = 0x969f // 0x92c @0x0
0x092c…0948 lno = 0x03ca // 0x92e @0x2
0x092c…0948 at0004 = ╱54╱T╱ // 0x930 @0x4
0x092c…0948 at0005 = ╱36╱6╱ // 0x931 @0x5
0x092c…0948 at0006 = ╱dc╱=╱ // 0x932 @0x6
0x092c…0948 at0007 = ╱54╱T╱ // 0x933 @0x7
0x092c…0948 at0008 = ╱35╱5╱ // 0x934 @0x8
0x092c…0948 at0009 = ╱eb╱;╱ // 0x935 @0x9
0x092c…0948 at000a = ╱4e╱N╱ // 0x936 @0xa
0x092c…0948 at000b = ╱5c╱Ø╱ // 0x937 @0xb
0x092c…0948 at000c = ╱47╱G╱ // 0x938 @0xc
0x092c…0948 at000d = ╱4c╱L╱ // 0x939 @0xd
0x092c…0948 at000e = ╱45╱E╱ // 0x93a @0xe
0x092c…0948 at000f = ╱34╱4╱ // 0x93b @0xf
0x092c…0948 at0010 = ╱dc╱=╱ // 0x93c @0x10
0x092c…0948 at0011 = ╱4b╱K╱ // 0x93d @0x11
0x092c…0948 at0012 = ╱54╱T╱ // 0x93e @0x12
0x092c…0948 at0013 = ╱4e╱N╱ // 0x93f @0x13
0x092c…0948 at0014 = ╱55╱U╱ // 0x940 @0x14
0x092c…0948 at0015 = ╱4d╱M╱ // 0x941 @0x15
0x092c…0948 at0016 = ╱eb╱;╱ // 0x942 @0x16
0x092c…0948 at0017 = ╱54╱T╱ // 0x943 @0x17
0x092c…0948 at0018 = ╱35╱5╱ // 0x944 @0x18
0x092c…0948 at0019 = ╱dc╱=╱ // 0x945 @0x19
0x092c…0948 at001a = ╱42╱B╱ // 0x946 @0x1a
0x092c…0948 at001b = EOL // 0x947 @0x1b
0x092c…0948 }
0x0948…094e 96a5 0980 ENDIF
0x0948…094e LineComalBin {
0x0948…094e ptr = 0x96a5 // 0x948 @0x0
0x0948…094e lno = 0x03d4 // 0x94a @0x2
0x0948…094e at0004 = ╱9b╱ ENDIF ╱ // 0x94c @0x4
0x0948…094e at0005 = EOL // 0x94d @0x5
0x0948…094e }
0x094e…0958 96af 0990 CLOSE K35$
0x094e…0958 LineComalBin {
0x094e…0958 ptr = 0x96af // 0x94e @0x0
0x094e…0958 lno = 0x03de // 0x950 @0x2
0x094e…0958 at0004 = ╱a8╱ CLOSE ╱ // 0x952 @0x4
0x094e…0958 at0005 = ╱4b╱K╱ // 0x953 @0x5
0x094e…0958 at0006 = ╱33╱3╱ // 0x954 @0x6
0x094e…0958 at0007 = ╱35╱5╱ // 0x955 @0x7
0x094e…0958 at0008 = ╱ef╱$╱ // 0x956 @0x8
0x094e…0958 at0009 = EOL // 0x957 @0x9
0x094e…0958 }
0x0958…0971 96c8 1000 EXEC FEJL(E,5,K35$)
0x0958…0971 LineComalBin {
0x0958…0971 ptr = 0x96c8 // 0x958 @0x0
0x0958…0971 lno = 0x03e8 // 0x95a @0x2
0x0958…0971 at0004 = ╱9d╱ EXEC ╱ // 0x95c @0x4
0x0958…0971 at0005 = ╱46╱F╱ // 0x95d @0x5
0x0958…0971 at0006 = ╱45╱E╱ // 0x95e @0x6
0x0958…0971 at0007 = ╱4a╱J╱ // 0x95f @0x7
0x0958…0971 at0008 = ╱4c╱L╱ // 0x960 @0x8
0x0958…0971 at0009 = ╱ed╱(╱ // 0x961 @0x9
0x0958…0971 at000a = ╱45╱E╱ // 0x962 @0xa
0x0958…0971 at000b = ╱ec╱,╱ // 0x963 @0xb
0x0958…0971 at000c = ╱35╱5╱ // 0x964 @0xc
0x0958…0971 at000d = ╱fe0000a003╱ // 0x965 @0xd
0x0958…0971 at0012 = ╱ec╱,╱ // 0x96a @0x12
0x0958…0971 at0013 = ╱4b╱K╱ // 0x96b @0x13
0x0958…0971 at0014 = ╱33╱3╱ // 0x96c @0x14
0x0958…0971 at0015 = ╱35╱5╱ // 0x96d @0x15
0x0958…0971 at0016 = ╱ef╱$╱ // 0x96e @0x16
0x0958…0971 at0017 = ╱ee╱)╱ // 0x96f @0x17
0x0958…0971 at0018 = EOL // 0x970 @0x18
0x0958…0971 }
0x0971…0977 96ce 1010 ENDPROC
0x0971…0977 LineComalBin {
0x0971…0977 ptr = 0x96ce // 0x971 @0x0
0x0971…0977 lno = 0x03f2 // 0x973 @0x2
0x0971…0977 at0004 = ╱9f╱ ENDPROC ╱ // 0x975 @0x4
0x0971…0977 at0005 = EOL // 0x976 @0x5
0x0971…0977 }
0x0977…0984 96db 1020 PROC GLSALDO
0x0977…0984 LineComalBin {
0x0977…0984 ptr = 0x96db // 0x977 @0x0
0x0977…0984 lno = 0x03fc // 0x979 @0x2
0x0977…0984 at0004 = ╱9e╱ PROC ╱ // 0x97b @0x4
0x0977…0984 at0005 = ╱47╱G╱ // 0x97c @0x5
0x0977…0984 at0006 = ╱4c╱L╱ // 0x97d @0x6
0x0977…0984 at0007 = ╱53╱S╱ // 0x97e @0x7
0x0977…0984 at0008 = ╱41╱A╱ // 0x97f @0x8
0x0977…0984 at0009 = ╱4c╱L╱ // 0x980 @0x9
0x0977…0984 at000a = ╱44╱D╱ // 0x981 @0xa
0x0977…0984 at000b = ╱4f╱O╱ // 0x982 @0xb
0x0977…0984 at000c = EOL // 0x983 @0xc
0x0977…0984 }
0x0984…09a2 96f9 1030 EXEC CALC(E,YBEV$,MBEV$,SUM$)
0x0984…09a2 LineComalBin {
0x0984…09a2 ptr = 0x96f9 // 0x984 @0x0
0x0984…09a2 lno = 0x0406 // 0x986 @0x2
0x0984…09a2 at0004 = ╱9d╱ EXEC ╱ // 0x988 @0x4
0x0984…09a2 at0005 = ╱43╱C╱ // 0x989 @0x5
0x0984…09a2 at0006 = ╱41╱A╱ // 0x98a @0x6
0x0984…09a2 at0007 = ╱4c╱L╱ // 0x98b @0x7
0x0984…09a2 at0008 = ╱43╱C╱ // 0x98c @0x8
0x0984…09a2 at0009 = ╱ed╱(╱ // 0x98d @0x9
0x0984…09a2 at000a = ╱45╱E╱ // 0x98e @0xa
0x0984…09a2 at000b = ╱ec╱,╱ // 0x98f @0xb
0x0984…09a2 at000c = ╱59╱Y╱ // 0x990 @0xc
0x0984…09a2 at000d = ╱42╱B╱ // 0x991 @0xd
0x0984…09a2 at000e = ╱45╱E╱ // 0x992 @0xe
0x0984…09a2 at000f = ╱56╱V╱ // 0x993 @0xf
0x0984…09a2 at0010 = ╱ef╱$╱ // 0x994 @0x10
0x0984…09a2 at0011 = ╱ec╱,╱ // 0x995 @0x11
0x0984…09a2 at0012 = ╱4d╱M╱ // 0x996 @0x12
0x0984…09a2 at0013 = ╱42╱B╱ // 0x997 @0x13
0x0984…09a2 at0014 = ╱45╱E╱ // 0x998 @0x14
0x0984…09a2 at0015 = ╱56╱V╱ // 0x999 @0x15
0x0984…09a2 at0016 = ╱ef╱$╱ // 0x99a @0x16
0x0984…09a2 at0017 = ╱ec╱,╱ // 0x99b @0x17
0x0984…09a2 at0018 = ╱53╱S╱ // 0x99c @0x18
0x0984…09a2 at0019 = ╱55╱U╱ // 0x99d @0x19
0x0984…09a2 at001a = ╱4d╱M╱ // 0x99e @0x1a
0x0984…09a2 at001b = ╱ef╱$╱ // 0x99f @0x1b
0x0984…09a2 at001c = ╱ee╱)╱ // 0x9a0 @0x1c
0x0984…09a2 at001d = EOL // 0x9a1 @0x1d
0x0984…09a2 }
0x09a2…09c3 971a 1040 EXEC CALC(4,SUM$,TAH$,TAH$)
0x09a2…09c3 LineComalBin {
0x09a2…09c3 ptr = 0x971a // 0x9a2 @0x0
0x09a2…09c3 lno = 0x0410 // 0x9a4 @0x2
0x09a2…09c3 at0004 = ╱9d╱ EXEC ╱ // 0x9a6 @0x4
0x09a2…09c3 at0005 = ╱43╱C╱ // 0x9a7 @0x5
0x09a2…09c3 at0006 = ╱41╱A╱ // 0x9a8 @0x6
0x09a2…09c3 at0007 = ╱4c╱L╱ // 0x9a9 @0x7
0x09a2…09c3 at0008 = ╱43╱C╱ // 0x9aa @0x8
0x09a2…09c3 at0009 = ╱ed╱(╱ // 0x9ab @0x9
0x09a2…09c3 at000a = ╱34╱4╱ // 0x9ac @0xa
0x09a2…09c3 at000b = ╱fe00008003╱ // 0x9ad @0xb
0x09a2…09c3 at0010 = ╱ec╱,╱ // 0x9b2 @0x10
0x09a2…09c3 at0011 = ╱53╱S╱ // 0x9b3 @0x11
0x09a2…09c3 at0012 = ╱55╱U╱ // 0x9b4 @0x12
0x09a2…09c3 at0013 = ╱4d╱M╱ // 0x9b5 @0x13
0x09a2…09c3 at0014 = ╱ef╱$╱ // 0x9b6 @0x14
0x09a2…09c3 at0015 = ╱ec╱,╱ // 0x9b7 @0x15
0x09a2…09c3 at0016 = ╱54╱T╱ // 0x9b8 @0x16
0x09a2…09c3 at0017 = ╱41╱A╱ // 0x9b9 @0x17
0x09a2…09c3 at0018 = ╱48╱H╱ // 0x9ba @0x18
0x09a2…09c3 at0019 = ╱ef╱$╱ // 0x9bb @0x19
0x09a2…09c3 at001a = ╱ec╱,╱ // 0x9bc @0x1a
0x09a2…09c3 at001b = ╱54╱T╱ // 0x9bd @0x1b
0x09a2…09c3 at001c = ╱41╱A╱ // 0x9be @0x1c
0x09a2…09c3 at001d = ╱48╱H╱ // 0x9bf @0x1d
0x09a2…09c3 at001e = ╱ef╱$╱ // 0x9c0 @0x1e
0x09a2…09c3 at001f = ╱ee╱)╱ // 0x9c1 @0x1f
0x09a2…09c3 at0020 = EOL // 0x9c2 @0x20
0x09a2…09c3 }
0x09c3…09ce 9725 1050 IF SI<>B THEN
0x09c3…09ce LineComalBin {
0x09c3…09ce ptr = 0x9725 // 0x9c3 @0x0
0x09c3…09ce lno = 0x041a // 0x9c5 @0x2
0x09c3…09ce at0004 = ╱9c╱ IF ╱ // 0x9c7 @0x4
0x09c3…09ce at0005 = ╱53╱S╱ // 0x9c8 @0x5
0x09c3…09ce at0006 = ╱49╱I╱ // 0x9c9 @0x6
0x09c3…09ce at0007 = ╱e1╱<>╱ // 0x9ca @0x7
0x09c3…09ce at0008 = ╱42╱B╱ // 0x9cb @0x8
0x09c3…09ce at0009 = ╱b6╱ THEN ╱ // 0x9cc @0x9
0x09c3…09ce at000a = EOL // 0x9cd @0xa
0x09c3…09ce }
0x09ce…09f6 974d 1060 PRINT TAB(18);"Gl. saldo";TAB(44);
0x09ce…09f6 LineComalBin {
0x09ce…09f6 ptr = 0x974d // 0x9ce @0x0
0x09ce…09f6 lno = 0x0424 // 0x9d0 @0x2
0x09ce…09f6 at0004 = ╱92╱ PRINT ╱ // 0x9d2 @0x4
0x09ce…09f6 at0005 = ╱d2╱TAB╱ // 0x9d3 @0x5
0x09ce…09f6 at0006 = ╱ed╱(╱ // 0x9d4 @0x6
0x09ce…09f6 at0007 = ╱31╱1╱ // 0x9d5 @0x7
0x09ce…09f6 at0008 = ╱38╱8╱ // 0x9d6 @0x8
0x09ce…09f6 at0009 = ╱fe00009005╱ // 0x9d7 @0x9
0x09ce…09f6 at000e = ╱ee╱)╱ // 0x9dc @0xe
0x09ce…09f6 at000f = ╱eb╱;╱ // 0x9dd @0xf
0x09ce…09f6 at0010 = ╱22╱"╱ // 0x9de @0x10
0x09ce…09f6 at0011 = ╱47╱G╱ // 0x9df @0x11
0x09ce…09f6 at0012 = ╱6c╱l╱ // 0x9e0 @0x12
0x09ce…09f6 at0013 = ╱2e╱.╱ // 0x9e1 @0x13
0x09ce…09f6 at0014 = ╱20╱…╱ // 0x9e2 @0x14
0x09ce…09f6 at0015 = ╱73╱s╱ // 0x9e3 @0x15
0x09ce…09f6 at0016 = ╱61╱a╱ // 0x9e4 @0x16
0x09ce…09f6 at0017 = ╱6c╱l╱ // 0x9e5 @0x17
0x09ce…09f6 at0018 = ╱64╱d╱ // 0x9e6 @0x18
0x09ce…09f6 at0019 = ╱6f╱o╱ // 0x9e7 @0x19
0x09ce…09f6 at001a = ╱22╱"╱ // 0x9e8 @0x1a
0x09ce…09f6 at001b = ╱eb╱;╱ // 0x9e9 @0x1b
0x09ce…09f6 at001c = ╱d2╱TAB╱ // 0x9ea @0x1c
0x09ce…09f6 at001d = ╱ed╱(╱ // 0x9eb @0x1d
0x09ce…09f6 at001e = ╱34╱4╱ // 0x9ec @0x1e
0x09ce…09f6 at001f = ╱34╱4╱ // 0x9ed @0x1f
0x09ce…09f6 at0020 = ╱fe0000b006╱ // 0x9ee @0x20
0x09ce…09f6 at0025 = ╱ee╱)╱ // 0x9f3 @0x25
0x09ce…09f6 at0026 = ╱eb╱;╱ // 0x9f4 @0x26
0x09ce…09f6 at0027 = EOL // 0x9f5 @0x27
0x09ce…09f6 }
0x09f6…0a13 976a 1070 PRINT USING "######":1000000;
0x09f6…0a13 LineComalBin {
0x09f6…0a13 ptr = 0x976a // 0x9f6 @0x0
0x09f6…0a13 lno = 0x042e // 0x9f8 @0x2
0x09f6…0a13 at0004 = ╱92╱ PRINT ╱ // 0x9fa @0x4
0x09f6…0a13 at0005 = ╱b9╱ USING ╱ // 0x9fb @0x5
0x09f6…0a13 at0006 = ╱22╱"╱ // 0x9fc @0x6
0x09f6…0a13 at0007 = ╱23╱#╱ // 0x9fd @0x7
0x09f6…0a13 at0008 = ╱23╱#╱ // 0x9fe @0x8
0x09f6…0a13 at0009 = ╱23╱#╱ // 0x9ff @0x9
0x09f6…0a13 at000a = ╱23╱#╱ // 0xa00 @0xa
0x09f6…0a13 at000b = ╱23╱#╱ // 0xa01 @0xb
0x09f6…0a13 at000c = ╱23╱#╱ // 0xa02 @0xc
0x09f6…0a13 at000d = ╱22╱"╱ // 0xa03 @0xd
0x09f6…0a13 at000e = ╱f0╱:╱ // 0xa04 @0xe
0x09f6…0a13 at000f = ╱31╱1╱ // 0xa05 @0xf
0x09f6…0a13 at0010 = ╱30╱0╱ // 0xa06 @0x10
0x09f6…0a13 at0011 = ╱30╱0╱ // 0xa07 @0x11
0x09f6…0a13 at0012 = ╱30╱0╱ // 0xa08 @0x12
0x09f6…0a13 at0013 = ╱30╱0╱ // 0xa09 @0x13
0x09f6…0a13 at0014 = ╱30╱0╱ // 0xa0a @0x14
0x09f6…0a13 at0015 = ╱30╱0╱ // 0xa0b @0x15
0x09f6…0a13 at0016 = ╱fe0024f414╱ // 0xa0c @0x16
0x09f6…0a13 at001b = ╱eb╱;╱ // 0xa11 @0x1b
0x09f6…0a13 at001c = EOL // 0xa12 @0x1c
0x09f6…0a13 }
0x0a13…0a2e 9785 1080 EXEC TUD(SUM$,UBELØB$,B,B)
0x0a13…0a2e LineComalBin {
0x0a13…0a2e ptr = 0x9785 // 0xa13 @0x0
0x0a13…0a2e lno = 0x0438 // 0xa15 @0x2
0x0a13…0a2e at0004 = ╱9d╱ EXEC ╱ // 0xa17 @0x4
0x0a13…0a2e at0005 = ╱54╱T╱ // 0xa18 @0x5
0x0a13…0a2e at0006 = ╱55╱U╱ // 0xa19 @0x6
0x0a13…0a2e at0007 = ╱44╱D╱ // 0xa1a @0x7
0x0a13…0a2e at0008 = ╱ed╱(╱ // 0xa1b @0x8
0x0a13…0a2e at0009 = ╱53╱S╱ // 0xa1c @0x9
0x0a13…0a2e at000a = ╱55╱U╱ // 0xa1d @0xa
0x0a13…0a2e at000b = ╱4d╱M╱ // 0xa1e @0xb
0x0a13…0a2e at000c = ╱ef╱$╱ // 0xa1f @0xc
0x0a13…0a2e at000d = ╱ec╱,╱ // 0xa20 @0xd
0x0a13…0a2e at000e = ╱55╱U╱ // 0xa21 @0xe
0x0a13…0a2e at000f = ╱42╱B╱ // 0xa22 @0xf
0x0a13…0a2e at0010 = ╱45╱E╱ // 0xa23 @0x10
0x0a13…0a2e at0011 = ╱4c╱L╱ // 0xa24 @0x11
0x0a13…0a2e at0012 = ╱5c╱Ø╱ // 0xa25 @0x12
0x0a13…0a2e at0013 = ╱42╱B╱ // 0xa26 @0x13
0x0a13…0a2e at0014 = ╱ef╱$╱ // 0xa27 @0x14
0x0a13…0a2e at0015 = ╱ec╱,╱ // 0xa28 @0x15
0x0a13…0a2e at0016 = ╱42╱B╱ // 0xa29 @0x16
0x0a13…0a2e at0017 = ╱ec╱,╱ // 0xa2a @0x17
0x0a13…0a2e at0018 = ╱42╱B╱ // 0xa2b @0x18
0x0a13…0a2e at0019 = ╱ee╱)╱ // 0xa2c @0x19
0x0a13…0a2e at001a = EOL // 0xa2d @0x1a
0x0a13…0a2e }
0x0a2e…0a62 97b9 1090 PRINT TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$
0x0a2e…0a62 LineComalBin {
0x0a2e…0a62 ptr = 0x97b9 // 0xa2e @0x0
0x0a2e…0a62 lno = 0x0442 // 0xa30 @0x2
0x0a2e…0a62 at0004 = ╱92╱ PRINT ╱ // 0xa32 @0x4
0x0a2e…0a62 at0005 = ╱d2╱TAB╱ // 0xa33 @0x5
0x0a2e…0a62 at0006 = ╱ed╱(╱ // 0xa34 @0x6
0x0a2e…0a62 at0007 = ╱35╱5╱ // 0xa35 @0x7
0x0a2e…0a62 at0008 = ╱31╱1╱ // 0xa36 @0x8
0x0a2e…0a62 at0009 = ╱fe0000cc06╱ // 0xa37 @0x9
0x0a2e…0a62 at000e = ╱e2╱+╱ // 0xa3c @0xe
0x0a2e…0a62 at000f = ╱31╱1╱ // 0xa3d @0xf
0x0a2e…0a62 at0010 = ╱35╱5╱ // 0xa3e @0x10
0x0a2e…0a62 at0011 = ╱fe0000f004╱ // 0xa3f @0x11
0x0a2e…0a62 at0016 = ╱e4╱*╱ // 0xa44 @0x16
0x0a2e…0a62 at0017 = ╱ed╱(╱ // 0xa45 @0x17
0x0a2e…0a62 at0018 = ╱53╱S╱ // 0xa46 @0x18
0x0a2e…0a62 at0019 = ╱55╱U╱ // 0xa47 @0x19
0x0a2e…0a62 at001a = ╱4d╱M╱ // 0xa48 @0x1a
0x0a2e…0a62 at001b = ╱ef╱$╱ // 0xa49 @0x1b
0x0a2e…0a62 at001c = ╱ed╱(╱ // 0xa4a @0x1c
0x0a2e…0a62 at001d = ╱cc╱LEN╱ // 0xa4b @0x1d
0x0a2e…0a62 at001e = ╱ed╱(╱ // 0xa4c @0x1e
0x0a2e…0a62 at001f = ╱53╱S╱ // 0xa4d @0x1f
0x0a2e…0a62 at0020 = ╱55╱U╱ // 0xa4e @0x20
0x0a2e…0a62 at0021 = ╱4d╱M╱ // 0xa4f @0x21
0x0a2e…0a62 at0022 = ╱ef╱$╱ // 0xa50 @0x22
0x0a2e…0a62 at0023 = ╱ee╱)╱ // 0xa51 @0x23
0x0a2e…0a62 at0024 = ╱ee╱)╱ // 0xa52 @0x24
0x0a2e…0a62 at0025 = ╱dc╱=╱ // 0xa53 @0x25
0x0a2e…0a62 at0026 = ╱22╱"╱ // 0xa54 @0x26
0x0a2e…0a62 at0027 = ╱2d╱-╱ // 0xa55 @0x27
0x0a2e…0a62 at0028 = ╱22╱"╱ // 0xa56 @0x28
0x0a2e…0a62 at0029 = ╱ee╱)╱ // 0xa57 @0x29
0x0a2e…0a62 at002a = ╱ee╱)╱ // 0xa58 @0x2a
0x0a2e…0a62 at002b = ╱eb╱;╱ // 0xa59 @0x2b
0x0a2e…0a62 at002c = ╱55╱U╱ // 0xa5a @0x2c
0x0a2e…0a62 at002d = ╱42╱B╱ // 0xa5b @0x2d
0x0a2e…0a62 at002e = ╱45╱E╱ // 0xa5c @0x2e
0x0a2e…0a62 at002f = ╱4c╱L╱ // 0xa5d @0x2f
0x0a2e…0a62 at0030 = ╱5c╱Ø╱ // 0xa5e @0x30
0x0a2e…0a62 at0031 = ╱42╱B╱ // 0xa5f @0x31
0x0a2e…0a62 at0032 = ╱ef╱$╱ // 0xa60 @0x32
0x0a2e…0a62 at0033 = EOL // 0xa61 @0x33
0x0a2e…0a62 }
0x0a62…0a6e 97c5 1100 LINIE=E
0x0a62…0a6e LineComalBin {
0x0a62…0a6e ptr = 0x97c5 // 0xa62 @0x0
0x0a62…0a6e lno = 0x044c // 0xa64 @0x2
0x0a62…0a6e at0004 = ╱4c╱L╱ // 0xa66 @0x4
0x0a62…0a6e at0005 = ╱49╱I╱ // 0xa67 @0x5
0x0a62…0a6e at0006 = ╱4e╱N╱ // 0xa68 @0x6
0x0a62…0a6e at0007 = ╱49╱I╱ // 0xa69 @0x7
0x0a62…0a6e at0008 = ╱45╱E╱ // 0xa6a @0x8
0x0a62…0a6e at0009 = ╱dc╱=╱ // 0xa6b @0x9
0x0a62…0a6e at000a = ╱45╱E╱ // 0xa6c @0xa
0x0a62…0a6e at000b = EOL // 0xa6d @0xb
0x0a62…0a6e }
0x0a6e…0a74 97cb 1110 ENDIF
0x0a6e…0a74 LineComalBin {
0x0a6e…0a74 ptr = 0x97cb // 0xa6e @0x0
0x0a6e…0a74 lno = 0x0456 // 0xa70 @0x2
0x0a6e…0a74 at0004 = ╱9b╱ ENDIF ╱ // 0xa72 @0x4
0x0a6e…0a74 at0005 = EOL // 0xa73 @0x5
0x0a6e…0a74 }
0x0a74…0a7a 97d1 1120 ENDPROC
0x0a74…0a7a LineComalBin {
0x0a74…0a7a ptr = 0x97d1 // 0xa74 @0x0
0x0a74…0a7a lno = 0x0460 // 0xa76 @0x2
0x0a74…0a7a at0004 = ╱9f╱ ENDPROC ╱ // 0xa78 @0x4
0x0a74…0a7a at0005 = EOL // 0xa79 @0x5
0x0a74…0a7a }
0x0a7a…0aa1 97f8 1130 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1,ENT1)
0x0a7a…0aa1 LineComalBin {
0x0a7a…0aa1 ptr = 0x97f8 // 0xa7a @0x0
0x0a7a…0aa1 lno = 0x046a // 0xa7c @0x2
0x0a7a…0aa1 at0004 = ╱9e╱ PROC ╱ // 0xa7e @0x4
0x0a7a…0aa1 at0005 = ╱4c╱L╱ // 0xa7f @0x5
0x0a7a…0aa1 at0006 = ╱49╱I╱ // 0xa80 @0x6
0x0a7a…0aa1 at0007 = ╱4e╱N╱ // 0xa81 @0x7
0x0a7a…0aa1 at0008 = ╱49╱I╱ // 0xa82 @0x8
0x0a7a…0aa1 at0009 = ╱45╱E╱ // 0xa83 @0x9
0x0a7a…0aa1 at000a = ╱55╱U╱ // 0xa84 @0xa
0x0a7a…0aa1 at000b = ╱44╱D╱ // 0xa85 @0xb
0x0a7a…0aa1 at000c = ╱ed╱(╱ // 0xa86 @0xc
0x0a7a…0aa1 at000d = ╱44╱D╱ // 0xa87 @0xd
0x0a7a…0aa1 at000e = ╱41╱A╱ // 0xa88 @0xe
0x0a7a…0aa1 at000f = ╱32╱2╱ // 0xa89 @0xf
0x0a7a…0aa1 at0010 = ╱ec╱,╱ // 0xa8a @0x10
0x0a7a…0aa1 at0011 = ╱42╱B╱ // 0xa8b @0x11
0x0a7a…0aa1 at0012 = ╱49╱I╱ // 0xa8c @0x12
0x0a7a…0aa1 at0013 = ╱32╱2╱ // 0xa8d @0x13
0x0a7a…0aa1 at0014 = ╱ec╱,╱ // 0xa8e @0x14
0x0a7a…0aa1 at0015 = ╱54╱T╱ // 0xa8f @0x15
0x0a7a…0aa1 at0016 = ╱45╱E╱ // 0xa90 @0x16
0x0a7a…0aa1 at0017 = ╱32╱2╱ // 0xa91 @0x17
0x0a7a…0aa1 at0018 = ╱ec╱,╱ // 0xa92 @0x18
0x0a7a…0aa1 at0019 = ╱42╱B╱ // 0xa93 @0x19
0x0a7a…0aa1 at001a = ╱45╱E╱ // 0xa94 @0x1a
0x0a7a…0aa1 at001b = ╱32╱2╱ // 0xa95 @0x1b
0x0a7a…0aa1 at001c = ╱ec╱,╱ // 0xa96 @0x1c
0x0a7a…0aa1 at001d = ╱53╱S╱ // 0xa97 @0x1d
0x0a7a…0aa1 at001e = ╱55╱U╱ // 0xa98 @0x1e
0x0a7a…0aa1 at001f = ╱31╱1╱ // 0xa99 @0x1f
0x0a7a…0aa1 at0020 = ╱ec╱,╱ // 0xa9a @0x20
0x0a7a…0aa1 at0021 = ╱45╱E╱ // 0xa9b @0x21
0x0a7a…0aa1 at0022 = ╱4e╱N╱ // 0xa9c @0x22
0x0a7a…0aa1 at0023 = ╱54╱T╱ // 0xa9d @0x23
0x0a7a…0aa1 at0024 = ╱31╱1╱ // 0xa9e @0x24
0x0a7a…0aa1 at0025 = ╱ee╱)╱ // 0xa9f @0x25
0x0a7a…0aa1 at0026 = EOL // 0xaa0 @0x26
0x0a7a…0aa1 }
0x0aa1…0abd 9814 1140 EXEC CALC(B,SU1$,BE2$,SU1$)
0x0aa1…0abd LineComalBin {
0x0aa1…0abd ptr = 0x9814 // 0xaa1 @0x0
0x0aa1…0abd lno = 0x0474 // 0xaa3 @0x2
0x0aa1…0abd at0004 = ╱9d╱ EXEC ╱ // 0xaa5 @0x4
0x0aa1…0abd at0005 = ╱43╱C╱ // 0xaa6 @0x5
0x0aa1…0abd at0006 = ╱41╱A╱ // 0xaa7 @0x6
0x0aa1…0abd at0007 = ╱4c╱L╱ // 0xaa8 @0x7
0x0aa1…0abd at0008 = ╱43╱C╱ // 0xaa9 @0x8
0x0aa1…0abd at0009 = ╱ed╱(╱ // 0xaaa @0x9
0x0aa1…0abd at000a = ╱42╱B╱ // 0xaab @0xa
0x0aa1…0abd at000b = ╱ec╱,╱ // 0xaac @0xb
0x0aa1…0abd at000c = ╱53╱S╱ // 0xaad @0xc
0x0aa1…0abd at000d = ╱55╱U╱ // 0xaae @0xd
0x0aa1…0abd at000e = ╱31╱1╱ // 0xaaf @0xe
0x0aa1…0abd at000f = ╱ef╱$╱ // 0xab0 @0xf
0x0aa1…0abd at0010 = ╱ec╱,╱ // 0xab1 @0x10
0x0aa1…0abd at0011 = ╱42╱B╱ // 0xab2 @0x11
0x0aa1…0abd at0012 = ╱45╱E╱ // 0xab3 @0x12
0x0aa1…0abd at0013 = ╱32╱2╱ // 0xab4 @0x13
0x0aa1…0abd at0014 = ╱ef╱$╱ // 0xab5 @0x14
0x0aa1…0abd at0015 = ╱ec╱,╱ // 0xab6 @0x15
0x0aa1…0abd at0016 = ╱53╱S╱ // 0xab7 @0x16
0x0aa1…0abd at0017 = ╱55╱U╱ // 0xab8 @0x17
0x0aa1…0abd at0018 = ╱31╱1╱ // 0xab9 @0x18
0x0aa1…0abd at0019 = ╱ef╱$╱ // 0xaba @0x19
0x0aa1…0abd at001a = ╱ee╱)╱ // 0xabb @0x1a
0x0aa1…0abd at001b = EOL // 0xabc @0x1b
0x0aa1…0abd }
0x0abd…0ad3 982a 1150 EXEC DATOUD(DA2,DA5$)
0x0abd…0ad3 LineComalBin {
0x0abd…0ad3 ptr = 0x982a // 0xabd @0x0
0x0abd…0ad3 lno = 0x047e // 0xabf @0x2
0x0abd…0ad3 at0004 = ╱9d╱ EXEC ╱ // 0xac1 @0x4
0x0abd…0ad3 at0005 = ╱44╱D╱ // 0xac2 @0x5
0x0abd…0ad3 at0006 = ╱41╱A╱ // 0xac3 @0x6
0x0abd…0ad3 at0007 = ╱54╱T╱ // 0xac4 @0x7
0x0abd…0ad3 at0008 = ╱4f╱O╱ // 0xac5 @0x8
0x0abd…0ad3 at0009 = ╱55╱U╱ // 0xac6 @0x9
0x0abd…0ad3 at000a = ╱44╱D╱ // 0xac7 @0xa
0x0abd…0ad3 at000b = ╱ed╱(╱ // 0xac8 @0xb
0x0abd…0ad3 at000c = ╱44╱D╱ // 0xac9 @0xc
0x0abd…0ad3 at000d = ╱41╱A╱ // 0xaca @0xd
0x0abd…0ad3 at000e = ╱32╱2╱ // 0xacb @0xe
0x0abd…0ad3 at000f = ╱ec╱,╱ // 0xacc @0xf
0x0abd…0ad3 at0010 = ╱44╱D╱ // 0xacd @0x10
0x0abd…0ad3 at0011 = ╱41╱A╱ // 0xace @0x11
0x0abd…0ad3 at0012 = ╱35╱5╱ // 0xacf @0x12
0x0abd…0ad3 at0013 = ╱ef╱$╱ // 0xad0 @0x13
0x0abd…0ad3 at0014 = ╱ee╱)╱ // 0xad1 @0x14
0x0abd…0ad3 at0015 = EOL // 0xad2 @0x15
0x0abd…0ad3 }
0x0ad3…0ae9 9840 1160 PRINT DA5$;TAB(10);
0x0ad3…0ae9 LineComalBin {
0x0ad3…0ae9 ptr = 0x9840 // 0xad3 @0x0
0x0ad3…0ae9 lno = 0x0488 // 0xad5 @0x2
0x0ad3…0ae9 at0004 = ╱92╱ PRINT ╱ // 0xad7 @0x4
0x0ad3…0ae9 at0005 = ╱44╱D╱ // 0xad8 @0x5
0x0ad3…0ae9 at0006 = ╱41╱A╱ // 0xad9 @0x6
0x0ad3…0ae9 at0007 = ╱35╱5╱ // 0xada @0x7
0x0ad3…0ae9 at0008 = ╱ef╱$╱ // 0xadb @0x8
0x0ad3…0ae9 at0009 = ╱eb╱;╱ // 0xadc @0x9
0x0ad3…0ae9 at000a = ╱d2╱TAB╱ // 0xadd @0xa
0x0ad3…0ae9 at000b = ╱ed╱(╱ // 0xade @0xb
0x0ad3…0ae9 at000c = ╱31╱1╱ // 0xadf @0xc
0x0ad3…0ae9 at000d = ╱30╱0╱ // 0xae0 @0xd
0x0ad3…0ae9 at000e = ╱fe0000a004╱ // 0xae1 @0xe
0x0ad3…0ae9 at0013 = ╱ee╱)╱ // 0xae6 @0x13
0x0ad3…0ae9 at0014 = ╱eb╱;╱ // 0xae7 @0x14
0x0ad3…0ae9 at0015 = EOL // 0xae8 @0x15
0x0ad3…0ae9 }
0x0ae9…0b06 985d 1170 IF BI2<>-E THEN PRINT USING "#######":BI2;
0x0ae9…0b06 LineComalBin {
0x0ae9…0b06 ptr = 0x985d // 0xae9 @0x0
0x0ae9…0b06 lno = 0x0492 // 0xaeb @0x2
0x0ae9…0b06 at0004 = ╱82╱ IF ╱ // 0xaed @0x4
0x0ae9…0b06 at0005 = ╱42╱B╱ // 0xaee @0x5
0x0ae9…0b06 at0006 = ╱49╱I╱ // 0xaef @0x6
0x0ae9…0b06 at0007 = ╱32╱2╱ // 0xaf0 @0x7
0x0ae9…0b06 at0008 = ╱e1╱<>╱ // 0xaf1 @0x8
0x0ae9…0b06 at0009 = ╱e9╱-╱ // 0xaf2 @0x9
0x0ae9…0b06 at000a = ╱45╱E╱ // 0xaf3 @0xa
0x0ae9…0b06 at000b = ╱b6╱ THEN ╱ // 0xaf4 @0xb
0x0ae9…0b06 at000c = ╱92╱ PRINT ╱ // 0xaf5 @0xc
0x0ae9…0b06 at000d = ╱b9╱ USING ╱ // 0xaf6 @0xd
0x0ae9…0b06 at000e = ╱22╱"╱ // 0xaf7 @0xe
0x0ae9…0b06 at000f = ╱23╱#╱ // 0xaf8 @0xf
0x0ae9…0b06 at0010 = ╱23╱#╱ // 0xaf9 @0x10
0x0ae9…0b06 at0011 = ╱23╱#╱ // 0xafa @0x11
0x0ae9…0b06 at0012 = ╱23╱#╱ // 0xafb @0x12
0x0ae9…0b06 at0013 = ╱23╱#╱ // 0xafc @0x13
0x0ae9…0b06 at0014 = ╱23╱#╱ // 0xafd @0x14
0x0ae9…0b06 at0015 = ╱23╱#╱ // 0xafe @0x15
0x0ae9…0b06 at0016 = ╱22╱"╱ // 0xaff @0x16
0x0ae9…0b06 at0017 = ╱f0╱:╱ // 0xb00 @0x17
0x0ae9…0b06 at0018 = ╱42╱B╱ // 0xb01 @0x18
0x0ae9…0b06 at0019 = ╱49╱I╱ // 0xb02 @0x19
0x0ae9…0b06 at001a = ╱32╱2╱ // 0xb03 @0x1a
0x0ae9…0b06 at001b = ╱eb╱;╱ // 0xb04 @0x1b
0x0ae9…0b06 at001c = EOL // 0xb05 @0x1c
0x0ae9…0b06 }
0x0b06…0b27 987e 1180 PRINT TAB(18);TE2$;TAB(44);
0x0b06…0b27 LineComalBin {
0x0b06…0b27 ptr = 0x987e // 0xb06 @0x0
0x0b06…0b27 lno = 0x049c // 0xb08 @0x2
0x0b06…0b27 at0004 = ╱92╱ PRINT ╱ // 0xb0a @0x4
0x0b06…0b27 at0005 = ╱d2╱TAB╱ // 0xb0b @0x5
0x0b06…0b27 at0006 = ╱ed╱(╱ // 0xb0c @0x6
0x0b06…0b27 at0007 = ╱31╱1╱ // 0xb0d @0x7
0x0b06…0b27 at0008 = ╱38╱8╱ // 0xb0e @0x8
0x0b06…0b27 at0009 = ╱fe00009005╱ // 0xb0f @0x9
0x0b06…0b27 at000e = ╱ee╱)╱ // 0xb14 @0xe
0x0b06…0b27 at000f = ╱eb╱;╱ // 0xb15 @0xf
0x0b06…0b27 at0010 = ╱54╱T╱ // 0xb16 @0x10
0x0b06…0b27 at0011 = ╱45╱E╱ // 0xb17 @0x11
0x0b06…0b27 at0012 = ╱32╱2╱ // 0xb18 @0x12
0x0b06…0b27 at0013 = ╱ef╱$╱ // 0xb19 @0x13
0x0b06…0b27 at0014 = ╱eb╱;╱ // 0xb1a @0x14
0x0b06…0b27 at0015 = ╱d2╱TAB╱ // 0xb1b @0x15
0x0b06…0b27 at0016 = ╱ed╱(╱ // 0xb1c @0x16
0x0b06…0b27 at0017 = ╱34╱4╱ // 0xb1d @0x17
0x0b06…0b27 at0018 = ╱34╱4╱ // 0xb1e @0x18
0x0b06…0b27 at0019 = ╱fe0000b006╱ // 0xb1f @0x19
0x0b06…0b27 at001e = ╱ee╱)╱ // 0xb24 @0x1e
0x0b06…0b27 at001f = ╱eb╱;╱ // 0xb25 @0x1f
0x0b06…0b27 at0020 = EOL // 0xb26 @0x20
0x0b06…0b27 }
0x0b27…0b3c 9893 1190 PRINT USING "######":ENT1;
0x0b27…0b3c LineComalBin {
0x0b27…0b3c ptr = 0x9893 // 0xb27 @0x0
0x0b27…0b3c lno = 0x04a6 // 0xb29 @0x2
0x0b27…0b3c at0004 = ╱92╱ PRINT ╱ // 0xb2b @0x4
0x0b27…0b3c at0005 = ╱b9╱ USING ╱ // 0xb2c @0x5
0x0b27…0b3c at0006 = ╱22╱"╱ // 0xb2d @0x6
0x0b27…0b3c at0007 = ╱23╱#╱ // 0xb2e @0x7
0x0b27…0b3c at0008 = ╱23╱#╱ // 0xb2f @0x8
0x0b27…0b3c at0009 = ╱23╱#╱ // 0xb30 @0x9
0x0b27…0b3c at000a = ╱23╱#╱ // 0xb31 @0xa
0x0b27…0b3c at000b = ╱23╱#╱ // 0xb32 @0xb
0x0b27…0b3c at000c = ╱23╱#╱ // 0xb33 @0xc
0x0b27…0b3c at000d = ╱22╱"╱ // 0xb34 @0xd
0x0b27…0b3c at000e = ╱f0╱:╱ // 0xb35 @0xe
0x0b27…0b3c at000f = ╱45╱E╱ // 0xb36 @0xf
0x0b27…0b3c at0010 = ╱4e╱N╱ // 0xb37 @0x10
0x0b27…0b3c at0011 = ╱54╱T╱ // 0xb38 @0x11
0x0b27…0b3c at0012 = ╱31╱1╱ // 0xb39 @0x12
0x0b27…0b3c at0013 = ╱eb╱;╱ // 0xb3a @0x13
0x0b27…0b3c at0014 = EOL // 0xb3b @0x14
0x0b27…0b3c }
0x0b3c…0b57 98ae 1200 EXEC TUD(BE2$,UBELØB$,B,B)
0x0b3c…0b57 LineComalBin {
0x0b3c…0b57 ptr = 0x98ae // 0xb3c @0x0
0x0b3c…0b57 lno = 0x04b0 // 0xb3e @0x2
0x0b3c…0b57 at0004 = ╱9d╱ EXEC ╱ // 0xb40 @0x4
0x0b3c…0b57 at0005 = ╱54╱T╱ // 0xb41 @0x5
0x0b3c…0b57 at0006 = ╱55╱U╱ // 0xb42 @0x6
0x0b3c…0b57 at0007 = ╱44╱D╱ // 0xb43 @0x7
0x0b3c…0b57 at0008 = ╱ed╱(╱ // 0xb44 @0x8
0x0b3c…0b57 at0009 = ╱42╱B╱ // 0xb45 @0x9
0x0b3c…0b57 at000a = ╱45╱E╱ // 0xb46 @0xa
0x0b3c…0b57 at000b = ╱32╱2╱ // 0xb47 @0xb
0x0b3c…0b57 at000c = ╱ef╱$╱ // 0xb48 @0xc
0x0b3c…0b57 at000d = ╱ec╱,╱ // 0xb49 @0xd
0x0b3c…0b57 at000e = ╱55╱U╱ // 0xb4a @0xe
0x0b3c…0b57 at000f = ╱42╱B╱ // 0xb4b @0xf
0x0b3c…0b57 at0010 = ╱45╱E╱ // 0xb4c @0x10
0x0b3c…0b57 at0011 = ╱4c╱L╱ // 0xb4d @0x11
0x0b3c…0b57 at0012 = ╱5c╱Ø╱ // 0xb4e @0x12
0x0b3c…0b57 at0013 = ╱42╱B╱ // 0xb4f @0x13
0x0b3c…0b57 at0014 = ╱ef╱$╱ // 0xb50 @0x14
0x0b3c…0b57 at0015 = ╱ec╱,╱ // 0xb51 @0x15
0x0b3c…0b57 at0016 = ╱42╱B╱ // 0xb52 @0x16
0x0b3c…0b57 at0017 = ╱ec╱,╱ // 0xb53 @0x17
0x0b3c…0b57 at0018 = ╱42╱B╱ // 0xb54 @0x18
0x0b3c…0b57 at0019 = ╱ee╱)╱ // 0xb55 @0x19
0x0b3c…0b57 at001a = EOL // 0xb56 @0x1a
0x0b3c…0b57 }
0x0b57…0b8b 98e2 1210 PRINT TAB(51+15*(BE2$(LEN(BE2$))="-"));UBELØB$
0x0b57…0b8b LineComalBin {
0x0b57…0b8b ptr = 0x98e2 // 0xb57 @0x0
0x0b57…0b8b lno = 0x04ba // 0xb59 @0x2
0x0b57…0b8b at0004 = ╱92╱ PRINT ╱ // 0xb5b @0x4
0x0b57…0b8b at0005 = ╱d2╱TAB╱ // 0xb5c @0x5
0x0b57…0b8b at0006 = ╱ed╱(╱ // 0xb5d @0x6
0x0b57…0b8b at0007 = ╱35╱5╱ // 0xb5e @0x7
0x0b57…0b8b at0008 = ╱31╱1╱ // 0xb5f @0x8
0x0b57…0b8b at0009 = ╱fe0000cc06╱ // 0xb60 @0x9
0x0b57…0b8b at000e = ╱e2╱+╱ // 0xb65 @0xe
0x0b57…0b8b at000f = ╱31╱1╱ // 0xb66 @0xf
0x0b57…0b8b at0010 = ╱35╱5╱ // 0xb67 @0x10
0x0b57…0b8b at0011 = ╱fe0000f004╱ // 0xb68 @0x11
0x0b57…0b8b at0016 = ╱e4╱*╱ // 0xb6d @0x16
0x0b57…0b8b at0017 = ╱ed╱(╱ // 0xb6e @0x17
0x0b57…0b8b at0018 = ╱42╱B╱ // 0xb6f @0x18
0x0b57…0b8b at0019 = ╱45╱E╱ // 0xb70 @0x19
0x0b57…0b8b at001a = ╱32╱2╱ // 0xb71 @0x1a
0x0b57…0b8b at001b = ╱ef╱$╱ // 0xb72 @0x1b
0x0b57…0b8b at001c = ╱ed╱(╱ // 0xb73 @0x1c
0x0b57…0b8b at001d = ╱cc╱LEN╱ // 0xb74 @0x1d
0x0b57…0b8b at001e = ╱ed╱(╱ // 0xb75 @0x1e
0x0b57…0b8b at001f = ╱42╱B╱ // 0xb76 @0x1f
0x0b57…0b8b at0020 = ╱45╱E╱ // 0xb77 @0x20
0x0b57…0b8b at0021 = ╱32╱2╱ // 0xb78 @0x21
0x0b57…0b8b at0022 = ╱ef╱$╱ // 0xb79 @0x22
0x0b57…0b8b at0023 = ╱ee╱)╱ // 0xb7a @0x23
0x0b57…0b8b at0024 = ╱ee╱)╱ // 0xb7b @0x24
0x0b57…0b8b at0025 = ╱dc╱=╱ // 0xb7c @0x25
0x0b57…0b8b at0026 = ╱22╱"╱ // 0xb7d @0x26
0x0b57…0b8b at0027 = ╱2d╱-╱ // 0xb7e @0x27
0x0b57…0b8b at0028 = ╱22╱"╱ // 0xb7f @0x28
0x0b57…0b8b at0029 = ╱ee╱)╱ // 0xb80 @0x29
0x0b57…0b8b at002a = ╱ee╱)╱ // 0xb81 @0x2a
0x0b57…0b8b at002b = ╱eb╱;╱ // 0xb82 @0x2b
0x0b57…0b8b at002c = ╱55╱U╱ // 0xb83 @0x2c
0x0b57…0b8b at002d = ╱42╱B╱ // 0xb84 @0x2d
0x0b57…0b8b at002e = ╱45╱E╱ // 0xb85 @0x2e
0x0b57…0b8b at002f = ╱4c╱L╱ // 0xb86 @0x2f
0x0b57…0b8b at0030 = ╱5c╱Ø╱ // 0xb87 @0x30
0x0b57…0b8b at0031 = ╱42╱B╱ // 0xb88 @0x31
0x0b57…0b8b at0032 = ╱ef╱$╱ // 0xb89 @0x32
0x0b57…0b8b at0033 = EOL // 0xb8a @0x33
0x0b57…0b8b }
0x0b8b…0b91 98e8 1220 ENDPROC
0x0b8b…0b91 LineComalBin {
0x0b8b…0b91 ptr = 0x98e8 // 0xb8b @0x0
0x0b8b…0b91 lno = 0x04c4 // 0xb8d @0x2
0x0b8b…0b91 at0004 = ╱9f╱ ENDPROC ╱ // 0xb8f @0x4
0x0b8b…0b91 at0005 = EOL // 0xb90 @0x5
0x0b8b…0b91 }
0x0b91…0bb7 990e 1230 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK)
0x0b91…0bb7 LineComalBin {
0x0b91…0bb7 ptr = 0x990e // 0xb91 @0x0
0x0b91…0bb7 lno = 0x04ce // 0xb93 @0x2
0x0b91…0bb7 at0004 = ╱9e╱ PROC ╱ // 0xb95 @0x4
0x0b91…0bb7 at0005 = ╱49╱I╱ // 0xb96 @0x5
0x0b91…0bb7 at0006 = ╱4e╱N╱ // 0xb97 @0x6
0x0b91…0bb7 at0007 = ╱44╱D╱ // 0xb98 @0x7
0x0b91…0bb7 at0008 = ╱50╱P╱ // 0xb99 @0x8
0x0b91…0bb7 at0009 = ╱55╱U╱ // 0xb9a @0x9
0x0b91…0bb7 at000a = ╱54╱T╱ // 0xb9b @0xa
0x0b91…0bb7 at000b = ╱31╱1╱ // 0xb9c @0xb
0x0b91…0bb7 at000c = ╱ed╱(╱ // 0xb9d @0xc
0x0b91…0bb7 at000d = ╱58╱X╱ // 0xb9e @0xd
0x0b91…0bb7 at000e = ╱50╱P╱ // 0xb9f @0xe
0x0b91…0bb7 at000f = ╱4f╱O╱ // 0xba0 @0xf
0x0b91…0bb7 at0010 = ╱53╱S╱ // 0xba1 @0x10
0x0b91…0bb7 at0011 = ╱31╱1╱ // 0xba2 @0x11
0x0b91…0bb7 at0012 = ╱ec╱,╱ // 0xba3 @0x12
0x0b91…0bb7 at0013 = ╱59╱Y╱ // 0xba4 @0x13
0x0b91…0bb7 at0014 = ╱50╱P╱ // 0xba5 @0x14
0x0b91…0bb7 at0015 = ╱4f╱O╱ // 0xba6 @0x15
0x0b91…0bb7 at0016 = ╱53╱S╱ // 0xba7 @0x16
0x0b91…0bb7 at0017 = ╱31╱1╱ // 0xba8 @0x17
0x0b91…0bb7 at0018 = ╱ec╱,╱ // 0xba9 @0x18
0x0b91…0bb7 at0019 = ╱4c╱L╱ // 0xbaa @0x19
0x0b91…0bb7 at001a = ╱4e╱N╱ // 0xbab @0x1a
0x0b91…0bb7 at001b = ╱34╱4╱ // 0xbac @0x1b
0x0b91…0bb7 at001c = ╱ec╱,╱ // 0xbad @0x1c
0x0b91…0bb7 at001d = ╱4c╱L╱ // 0xbae @0x1d
0x0b91…0bb7 at001e = ╱4e╱N╱ // 0xbaf @0x1e
0x0b91…0bb7 at001f = ╱35╱5╱ // 0xbb0 @0x1f
0x0b91…0bb7 at0020 = ╱ec╱,╱ // 0xbb1 @0x20
0x0b91…0bb7 at0021 = ╱4c╱L╱ // 0xbb2 @0x21
0x0b91…0bb7 at0022 = ╱54╱T╱ // 0xbb3 @0x22
0x0b91…0bb7 at0023 = ╱4b╱K╱ // 0xbb4 @0x23
0x0b91…0bb7 at0024 = ╱ee╱)╱ // 0xbb5 @0x24
0x0b91…0bb7 at0025 = EOL // 0xbb6 @0x25
0x0b91…0bb7 }
0x0bb7…0bbd 9914 1240 REPEAT
0x0bb7…0bbd LineComalBin {
0x0bb7…0bbd ptr = 0x9914 // 0xbb7 @0x0
0x0bb7…0bbd lno = 0x04d8 // 0xbb9 @0x2
0x0bb7…0bbd at0004 = ╱97╱ REPEAT ╱ // 0xbbb @0x4
0x0bb7…0bbd at0005 = EOL // 0xbbc @0x5
0x0bb7…0bbd }
0x0bbd…0bce 9925 1250 CURSOR XPOS1,YPOS1
0x0bbd…0bce LineComalBin {
0x0bbd…0bce ptr = 0x9925 // 0xbbd @0x0
0x0bbd…0bce lno = 0x04e2 // 0xbbf @0x2
0x0bbd…0bce at0004 = ╱a1╱ CURSOR ╱ // 0xbc1 @0x4
0x0bbd…0bce at0005 = ╱58╱X╱ // 0xbc2 @0x5
0x0bbd…0bce at0006 = ╱50╱P╱ // 0xbc3 @0x6
0x0bbd…0bce at0007 = ╱4f╱O╱ // 0xbc4 @0x7
0x0bbd…0bce at0008 = ╱53╱S╱ // 0xbc5 @0x8
0x0bbd…0bce at0009 = ╱31╱1╱ // 0xbc6 @0x9
0x0bbd…0bce at000a = ╱ec╱,╱ // 0xbc7 @0xa
0x0bbd…0bce at000b = ╱59╱Y╱ // 0xbc8 @0xb
0x0bbd…0bce at000c = ╱50╱P╱ // 0xbc9 @0xc
0x0bbd…0bce at000d = ╱4f╱O╱ // 0xbca @0xd
0x0bbd…0bce at000e = ╱53╱S╱ // 0xbcb @0xe
0x0bbd…0bce at000f = ╱31╱1╱ // 0xbcc @0xf
0x0bbd…0bce at0010 = EOL // 0xbcd @0x10
0x0bbd…0bce }
0x0bce…0bf8 994f 1260 PRINT LTK$;BLANK$(E:77-XPOS1-LEN(LTK$))
0x0bce…0bf8 LineComalBin {
0x0bce…0bf8 ptr = 0x994f // 0xbce @0x0
0x0bce…0bf8 lno = 0x04ec // 0xbd0 @0x2
0x0bce…0bf8 at0004 = ╱92╱ PRINT ╱ // 0xbd2 @0x4
0x0bce…0bf8 at0005 = ╱4c╱L╱ // 0xbd3 @0x5
0x0bce…0bf8 at0006 = ╱54╱T╱ // 0xbd4 @0x6
0x0bce…0bf8 at0007 = ╱4b╱K╱ // 0xbd5 @0x7
0x0bce…0bf8 at0008 = ╱ef╱$╱ // 0xbd6 @0x8
0x0bce…0bf8 at0009 = ╱eb╱;╱ // 0xbd7 @0x9
0x0bce…0bf8 at000a = ╱42╱B╱ // 0xbd8 @0xa
0x0bce…0bf8 at000b = ╱4c╱L╱ // 0xbd9 @0xb
0x0bce…0bf8 at000c = ╱41╱A╱ // 0xbda @0xc
0x0bce…0bf8 at000d = ╱4e╱N╱ // 0xbdb @0xd
0x0bce…0bf8 at000e = ╱4b╱K╱ // 0xbdc @0xe
0x0bce…0bf8 at000f = ╱ef╱$╱ // 0xbdd @0xf
0x0bce…0bf8 at0010 = ╱ed╱(╱ // 0xbde @0x10
0x0bce…0bf8 at0011 = ╱45╱E╱ // 0xbdf @0x11
0x0bce…0bf8 at0012 = ╱f0╱:╱ // 0xbe0 @0x12
0x0bce…0bf8 at0013 = ╱37╱7╱ // 0xbe1 @0x13
0x0bce…0bf8 at0014 = ╱37╱7╱ // 0xbe2 @0x14
0x0bce…0bf8 at0015 = ╱fe00009a07╱ // 0xbe3 @0x15
0x0bce…0bf8 at001a = ╱e3╱-╱ // 0xbe8 @0x1a
0x0bce…0bf8 at001b = ╱58╱X╱ // 0xbe9 @0x1b
0x0bce…0bf8 at001c = ╱50╱P╱ // 0xbea @0x1c
0x0bce…0bf8 at001d = ╱4f╱O╱ // 0xbeb @0x1d
0x0bce…0bf8 at001e = ╱53╱S╱ // 0xbec @0x1e
0x0bce…0bf8 at001f = ╱31╱1╱ // 0xbed @0x1f
0x0bce…0bf8 at0020 = ╱e3╱-╱ // 0xbee @0x20
0x0bce…0bf8 at0021 = ╱cc╱LEN╱ // 0xbef @0x21
0x0bce…0bf8 at0022 = ╱ed╱(╱ // 0xbf0 @0x22
0x0bce…0bf8 at0023 = ╱4c╱L╱ // 0xbf1 @0x23
0x0bce…0bf8 at0024 = ╱54╱T╱ // 0xbf2 @0x24
0x0bce…0bf8 at0025 = ╱4b╱K╱ // 0xbf3 @0x25
0x0bce…0bf8 at0026 = ╱ef╱$╱ // 0xbf4 @0x26
0x0bce…0bf8 at0027 = ╱ee╱)╱ // 0xbf5 @0x27
0x0bce…0bf8 at0028 = ╱ee╱)╱ // 0xbf6 @0x28
0x0bce…0bf8 at0029 = EOL // 0xbf7 @0x29
0x0bce…0bf8 }
0x0bf8…0c11 9968 1270 CURSOR XPOS1+LEN(LTK$),YPOS1
0x0bf8…0c11 LineComalBin {
0x0bf8…0c11 ptr = 0x9968 // 0xbf8 @0x0
0x0bf8…0c11 lno = 0x04f6 // 0xbfa @0x2
0x0bf8…0c11 at0004 = ╱a1╱ CURSOR ╱ // 0xbfc @0x4
0x0bf8…0c11 at0005 = ╱58╱X╱ // 0xbfd @0x5
0x0bf8…0c11 at0006 = ╱50╱P╱ // 0xbfe @0x6
0x0bf8…0c11 at0007 = ╱4f╱O╱ // 0xbff @0x7
0x0bf8…0c11 at0008 = ╱53╱S╱ // 0xc00 @0x8
0x0bf8…0c11 at0009 = ╱31╱1╱ // 0xc01 @0x9
0x0bf8…0c11 at000a = ╱e2╱+╱ // 0xc02 @0xa
0x0bf8…0c11 at000b = ╱cc╱LEN╱ // 0xc03 @0xb
0x0bf8…0c11 at000c = ╱ed╱(╱ // 0xc04 @0xc
0x0bf8…0c11 at000d = ╱4c╱L╱ // 0xc05 @0xd
0x0bf8…0c11 at000e = ╱54╱T╱ // 0xc06 @0xe
0x0bf8…0c11 at000f = ╱4b╱K╱ // 0xc07 @0xf
0x0bf8…0c11 at0010 = ╱ef╱$╱ // 0xc08 @0x10
0x0bf8…0c11 at0011 = ╱ee╱)╱ // 0xc09 @0x11
0x0bf8…0c11 at0012 = ╱ec╱,╱ // 0xc0a @0x12
0x0bf8…0c11 at0013 = ╱59╱Y╱ // 0xc0b @0x13
0x0bf8…0c11 at0014 = ╱50╱P╱ // 0xc0c @0x14
0x0bf8…0c11 at0015 = ╱4f╱O╱ // 0xc0d @0x15
0x0bf8…0c11 at0016 = ╱53╱S╱ // 0xc0e @0x16
0x0bf8…0c11 at0017 = ╱31╱1╱ // 0xc0f @0x17
0x0bf8…0c11 at0018 = EOL // 0xc10 @0x18
0x0bf8…0c11 }
0x0c11…0c1d 9974 1280 INPUT " ",A$
0x0c11…0c1d LineComalBin {
0x0c11…0c1d ptr = 0x9974 // 0xc11 @0x0
0x0c11…0c1d lno = 0x0500 // 0xc13 @0x2
0x0c11…0c1d at0004 = ╱91╱ INPUT ╱ // 0xc15 @0x4
0x0c11…0c1d at0005 = ╱22╱"╱ // 0xc16 @0x5
0x0c11…0c1d at0006 = ╱20╱…╱ // 0xc17 @0x6
0x0c11…0c1d at0007 = ╱22╱"╱ // 0xc18 @0x7
0x0c11…0c1d at0008 = ╱ec╱,╱ // 0xc19 @0x8
0x0c11…0c1d at0009 = ╱41╱A╱ // 0xc1a @0x9
0x0c11…0c1d at000a = ╱ef╱$╱ // 0xc1b @0xa
0x0c11…0c1d at000b = EOL // 0xc1c @0xb
0x0c11…0c1d }
0x0c1d…0c2d 9984 1290 EXEC NRTEST(A$)
0x0c1d…0c2d LineComalBin {
0x0c1d…0c2d ptr = 0x9984 // 0xc1d @0x0
0x0c1d…0c2d lno = 0x050a // 0xc1f @0x2
0x0c1d…0c2d at0004 = ╱9d╱ EXEC ╱ // 0xc21 @0x4
0x0c1d…0c2d at0005 = ╱4e╱N╱ // 0xc22 @0x5
0x0c1d…0c2d at0006 = ╱52╱R╱ // 0xc23 @0x6
0x0c1d…0c2d at0007 = ╱54╱T╱ // 0xc24 @0x7
0x0c1d…0c2d at0008 = ╱45╱E╱ // 0xc25 @0x8
0x0c1d…0c2d at0009 = ╱53╱S╱ // 0xc26 @0x9
0x0c1d…0c2d at000a = ╱54╱T╱ // 0xc27 @0xa
0x0c1d…0c2d at000b = ╱ed╱(╱ // 0xc28 @0xb
0x0c1d…0c2d at000c = ╱41╱A╱ // 0xc29 @0xc
0x0c1d…0c2d at000d = ╱ef╱$╱ // 0xc2a @0xd
0x0c1d…0c2d at000e = ╱ee╱)╱ // 0xc2b @0xe
0x0c1d…0c2d at000f = EOL // 0xc2c @0xf
0x0c1d…0c2d }
0x0c2d…0c3e 9995 1300 UNTIL P>LN4 AND P<LN5
0x0c2d…0c3e LineComalBin {
0x0c2d…0c3e ptr = 0x9995 // 0xc2d @0x0
0x0c2d…0c3e lno = 0x0514 // 0xc2f @0x2
0x0c2d…0c3e at0004 = ╱98╱ UNTIL ╱ // 0xc31 @0x4
0x0c2d…0c3e at0005 = ╱50╱P╱ // 0xc32 @0x5
0x0c2d…0c3e at0006 = ╱de╱>╱ // 0xc33 @0x6
0x0c2d…0c3e at0007 = ╱4c╱L╱ // 0xc34 @0x7
0x0c2d…0c3e at0008 = ╱4e╱N╱ // 0xc35 @0x8
0x0c2d…0c3e at0009 = ╱34╱4╱ // 0xc36 @0x9
0x0c2d…0c3e at000a = ╱da╱ AND ╱ // 0xc37 @0xa
0x0c2d…0c3e at000b = ╱50╱P╱ // 0xc38 @0xb
0x0c2d…0c3e at000c = ╱dd╱<╱ // 0xc39 @0xc
0x0c2d…0c3e at000d = ╱4c╱L╱ // 0xc3a @0xd
0x0c2d…0c3e at000e = ╱4e╱N╱ // 0xc3b @0xe
0x0c2d…0c3e at000f = ╱35╱5╱ // 0xc3c @0xf
0x0c2d…0c3e at0010 = EOL // 0xc3d @0x10
0x0c2d…0c3e }
0x0c3e…0c44 999b 1310 ENDPROC
0x0c3e…0c44 LineComalBin {
0x0c3e…0c44 ptr = 0x999b // 0xc3e @0x0
0x0c3e…0c44 lno = 0x051e // 0xc40 @0x2
0x0c3e…0c44 at0004 = ╱9f╱ ENDPROC ╱ // 0xc42 @0x4
0x0c3e…0c44 at0005 = EOL // 0xc43 @0x5
0x0c3e…0c44 }
0x0c44…0c60 99b7 1320 PROC LINIER(FRA1,TIL1,TÆL1)
0x0c44…0c60 LineComalBin {
0x0c44…0c60 ptr = 0x99b7 // 0xc44 @0x0
0x0c44…0c60 lno = 0x0528 // 0xc46 @0x2
0x0c44…0c60 at0004 = ╱9e╱ PROC ╱ // 0xc48 @0x4
0x0c44…0c60 at0005 = ╱4c╱L╱ // 0xc49 @0x5
0x0c44…0c60 at0006 = ╱49╱I╱ // 0xc4a @0x6
0x0c44…0c60 at0007 = ╱4e╱N╱ // 0xc4b @0x7
0x0c44…0c60 at0008 = ╱49╱I╱ // 0xc4c @0x8
0x0c44…0c60 at0009 = ╱45╱E╱ // 0xc4d @0x9
0x0c44…0c60 at000a = ╱52╱R╱ // 0xc4e @0xa
0x0c44…0c60 at000b = ╱ed╱(╱ // 0xc4f @0xb
0x0c44…0c60 at000c = ╱46╱F╱ // 0xc50 @0xc
0x0c44…0c60 at000d = ╱52╱R╱ // 0xc51 @0xd
0x0c44…0c60 at000e = ╱41╱A╱ // 0xc52 @0xe
0x0c44…0c60 at000f = ╱31╱1╱ // 0xc53 @0xf
0x0c44…0c60 at0010 = ╱ec╱,╱ // 0xc54 @0x10
0x0c44…0c60 at0011 = ╱54╱T╱ // 0xc55 @0x11
0x0c44…0c60 at0012 = ╱49╱I╱ // 0xc56 @0x12
0x0c44…0c60 at0013 = ╱4c╱L╱ // 0xc57 @0x13
0x0c44…0c60 at0014 = ╱31╱1╱ // 0xc58 @0x14
0x0c44…0c60 at0015 = ╱ec╱,╱ // 0xc59 @0x15
0x0c44…0c60 at0016 = ╱54╱T╱ // 0xc5a @0x16
0x0c44…0c60 at0017 = ╱5b╱Æ╱ // 0xc5b @0x17
0x0c44…0c60 at0018 = ╱4c╱L╱ // 0xc5c @0x18
0x0c44…0c60 at0019 = ╱31╱1╱ // 0xc5d @0x19
0x0c44…0c60 at001a = ╱ee╱)╱ // 0xc5e @0x1a
0x0c44…0c60 at001b = EOL // 0xc5f @0x1b
0x0c44…0c60 }
0x0c60…0c74 99cb 1330 FOR TÆL1=FRA1 TO TIL1
0x0c60…0c74 LineComalBin {
0x0c60…0c74 ptr = 0x99cb // 0xc60 @0x0
0x0c60…0c74 lno = 0x0532 // 0xc62 @0x2
0x0c60…0c74 at0004 = ╱83╱ FOR ╱ // 0xc64 @0x4
0x0c60…0c74 at0005 = ╱54╱T╱ // 0xc65 @0x5
0x0c60…0c74 at0006 = ╱5b╱Æ╱ // 0xc66 @0x6
0x0c60…0c74 at0007 = ╱4c╱L╱ // 0xc67 @0x7
0x0c60…0c74 at0008 = ╱31╱1╱ // 0xc68 @0x8
0x0c60…0c74 at0009 = ╱dc╱=╱ // 0xc69 @0x9
0x0c60…0c74 at000a = ╱46╱F╱ // 0xc6a @0xa
0x0c60…0c74 at000b = ╱52╱R╱ // 0xc6b @0xb
0x0c60…0c74 at000c = ╱41╱A╱ // 0xc6c @0xc
0x0c60…0c74 at000d = ╱31╱1╱ // 0xc6d @0xd
0x0c60…0c74 at000e = ╱b7╱ TO ╱ // 0xc6e @0xe
0x0c60…0c74 at000f = ╱54╱T╱ // 0xc6f @0xf
0x0c60…0c74 at0010 = ╱49╱I╱ // 0xc70 @0x10
0x0c60…0c74 at0011 = ╱4c╱L╱ // 0xc71 @0x11
0x0c60…0c74 at0012 = ╱31╱1╱ // 0xc72 @0x12
0x0c60…0c74 at0013 = EOL // 0xc73 @0x13
0x0c60…0c74 }
0x0c74…0c7d 99d4 1340 PRINT " "
0x0c74…0c7d LineComalBin {
0x0c74…0c7d ptr = 0x99d4 // 0xc74 @0x0
0x0c74…0c7d lno = 0x053c // 0xc76 @0x2
0x0c74…0c7d at0004 = ╱92╱ PRINT ╱ // 0xc78 @0x4
0x0c74…0c7d at0005 = ╱22╱"╱ // 0xc79 @0x5
0x0c74…0c7d at0006 = ╱20╱…╱ // 0xc7a @0x6
0x0c74…0c7d at0007 = ╱22╱"╱ // 0xc7b @0x7
0x0c74…0c7d at0008 = EOL // 0xc7c @0x8
0x0c74…0c7d }
0x0c7d…0c87 99de 1350 NEXT TÆL1
0x0c7d…0c87 LineComalBin {
0x0c7d…0c87 ptr = 0x99de // 0xc7d @0x0
0x0c7d…0c87 lno = 0x0546 // 0xc7f @0x2
0x0c7d…0c87 at0004 = ╱84╱ NEXT ╱ // 0xc81 @0x4
0x0c7d…0c87 at0005 = ╱54╱T╱ // 0xc82 @0x5
0x0c7d…0c87 at0006 = ╱5b╱Æ╱ // 0xc83 @0x6
0x0c7d…0c87 at0007 = ╱4c╱L╱ // 0xc84 @0x7
0x0c7d…0c87 at0008 = ╱31╱1╱ // 0xc85 @0x8
0x0c7d…0c87 at0009 = EOL // 0xc86 @0x9
0x0c7d…0c87 }
0x0c87…0c8d 99e4 1360 ENDPROC
0x0c87…0c8d LineComalBin {
0x0c87…0c8d ptr = 0x99e4 // 0xc87 @0x0
0x0c87…0c8d lno = 0x0550 // 0xc89 @0x2
0x0c87…0c8d at0004 = ╱9f╱ ENDPROC ╱ // 0xc8b @0x4
0x0c87…0c8d at0005 = EOL // 0xc8c @0x5
0x0c87…0c8d }
0x0c8d…0c9b 99f2 1370 PROC HENTPOST
0x0c8d…0c9b LineComalBin {
0x0c8d…0c9b ptr = 0x99f2 // 0xc8d @0x0
0x0c8d…0c9b lno = 0x055a // 0xc8f @0x2
0x0c8d…0c9b at0004 = ╱9e╱ PROC ╱ // 0xc91 @0x4
0x0c8d…0c9b at0005 = ╱48╱H╱ // 0xc92 @0x5
0x0c8d…0c9b at0006 = ╱45╱E╱ // 0xc93 @0x6
0x0c8d…0c9b at0007 = ╱4e╱N╱ // 0xc94 @0x7
0x0c8d…0c9b at0008 = ╱54╱T╱ // 0xc95 @0x8
0x0c8d…0c9b at0009 = ╱50╱P╱ // 0xc96 @0x9
0x0c8d…0c9b at000a = ╱4f╱O╱ // 0xc97 @0xa
0x0c8d…0c9b at000b = ╱53╱S╱ // 0xc98 @0xb
0x0c8d…0c9b at000c = ╱54╱T╱ // 0xc99 @0xc
0x0c8d…0c9b at000d = EOL // 0xc9a @0xd
0x0c8d…0c9b }
0x0c9b…0ca7 99fe 1380 EPIL2=E
0x0c9b…0ca7 LineComalBin {
0x0c9b…0ca7 ptr = 0x99fe // 0xc9b @0x0
0x0c9b…0ca7 lno = 0x0564 // 0xc9d @0x2
0x0c9b…0ca7 at0004 = ╱45╱E╱ // 0xc9f @0x4
0x0c9b…0ca7 at0005 = ╱50╱P╱ // 0xca0 @0x5
0x0c9b…0ca7 at0006 = ╱49╱I╱ // 0xca1 @0x6
0x0c9b…0ca7 at0007 = ╱4c╱L╱ // 0xca2 @0x7
0x0c9b…0ca7 at0008 = ╱32╱2╱ // 0xca3 @0x8
0x0c9b…0ca7 at0009 = ╱dc╱=╱ // 0xca4 @0x9
0x0c9b…0ca7 at000a = ╱45╱E╱ // 0xca5 @0xa
0x0c9b…0ca7 at000b = EOL // 0xca6 @0xb
0x0c9b…0ca7 }
0x0ca7…0cc2 9a19 1390 FOR EPIL1=E TO METOT+MUNKANT
0x0ca7…0cc2 LineComalBin {
0x0ca7…0cc2 ptr = 0x9a19 // 0xca7 @0x0
0x0ca7…0cc2 lno = 0x056e // 0xca9 @0x2
0x0ca7…0cc2 at0004 = ╱83╱ FOR ╱ // 0xcab @0x4
0x0ca7…0cc2 at0005 = ╱45╱E╱ // 0xcac @0x5
0x0ca7…0cc2 at0006 = ╱50╱P╱ // 0xcad @0x6
0x0ca7…0cc2 at0007 = ╱49╱I╱ // 0xcae @0x7
0x0ca7…0cc2 at0008 = ╱4c╱L╱ // 0xcaf @0x8
0x0ca7…0cc2 at0009 = ╱31╱1╱ // 0xcb0 @0x9
0x0ca7…0cc2 at000a = ╱dc╱=╱ // 0xcb1 @0xa
0x0ca7…0cc2 at000b = ╱45╱E╱ // 0xcb2 @0xb
0x0ca7…0cc2 at000c = ╱b7╱ TO ╱ // 0xcb3 @0xc
0x0ca7…0cc2 at000d = ╱4d╱M╱ // 0xcb4 @0xd
0x0ca7…0cc2 at000e = ╱45╱E╱ // 0xcb5 @0xe
0x0ca7…0cc2 at000f = ╱54╱T╱ // 0xcb6 @0xf
0x0ca7…0cc2 at0010 = ╱4f╱O╱ // 0xcb7 @0x10
0x0ca7…0cc2 at0011 = ╱54╱T╱ // 0xcb8 @0x11
0x0ca7…0cc2 at0012 = ╱e2╱+╱ // 0xcb9 @0x12
0x0ca7…0cc2 at0013 = ╱4d╱M╱ // 0xcba @0x13
0x0ca7…0cc2 at0014 = ╱55╱U╱ // 0xcbb @0x14
0x0ca7…0cc2 at0015 = ╱4e╱N╱ // 0xcbc @0x15
0x0ca7…0cc2 at0016 = ╱4b╱K╱ // 0xcbd @0x16
0x0ca7…0cc2 at0017 = ╱41╱A╱ // 0xcbe @0x17
0x0ca7…0cc2 at0018 = ╱4e╱N╱ // 0xcbf @0x18
0x0ca7…0cc2 at0019 = ╱54╱T╱ // 0xcc0 @0x19
0x0ca7…0cc2 at001a = EOL // 0xcc1 @0x1a
0x0ca7…0cc2 }
0x0cc2…0ccd 9a24 1400 CEKS=B
0x0cc2…0ccd LineComalBin {
0x0cc2…0ccd ptr = 0x9a24 // 0xcc2 @0x0
0x0cc2…0ccd lno = 0x0578 // 0xcc4 @0x2
0x0cc2…0ccd at0004 = ╱43╱C╱ // 0xcc6 @0x4
0x0cc2…0ccd at0005 = ╱45╱E╱ // 0xcc7 @0x5
0x0cc2…0ccd at0006 = ╱4b╱K╱ // 0xcc8 @0x6
0x0cc2…0ccd at0007 = ╱53╱S╱ // 0xcc9 @0x7
0x0cc2…0ccd at0008 = ╱dc╱=╱ // 0xcca @0x8
0x0cc2…0ccd at0009 = ╱42╱B╱ // 0xccb @0x9
0x0cc2…0ccd at000a = EOL // 0xccc @0xa
0x0cc2…0ccd }
0x0ccd…0cfe 9a55 1410 IF (KONT MOD 100)=ENR(EPIL1) AND EU$(EPIL1)="0" THEN EXIT
0x0ccd…0cfe LineComalBin {
0x0ccd…0cfe ptr = 0x9a55 // 0xccd @0x0
0x0ccd…0cfe lno = 0x0582 // 0xccf @0x2
0x0ccd…0cfe at0004 = ╱82╱ IF ╱ // 0xcd1 @0x4
0x0ccd…0cfe at0005 = ╱ed╱(╱ // 0xcd2 @0x5
0x0ccd…0cfe at0006 = ╱4b╱K╱ // 0xcd3 @0x6
0x0ccd…0cfe at0007 = ╱4f╱O╱ // 0xcd4 @0x7
0x0ccd…0cfe at0008 = ╱4e╱N╱ // 0xcd5 @0x8
0x0ccd…0cfe at0009 = ╱54╱T╱ // 0xcd6 @0x9
0x0ccd…0cfe at000a = ╱e8╱ MOD ╱ // 0xcd7 @0xa
0x0ccd…0cfe at000b = ╱31╱1╱ // 0xcd8 @0xb
0x0ccd…0cfe at000c = ╱30╱0╱ // 0xcd9 @0xc
0x0ccd…0cfe at000d = ╱30╱0╱ // 0xcda @0xd
0x0ccd…0cfe at000e = ╱fe0000c807╱ // 0xcdb @0xe
0x0ccd…0cfe at0013 = ╱ee╱)╱ // 0xce0 @0x13
0x0ccd…0cfe at0014 = ╱dc╱=╱ // 0xce1 @0x14
0x0ccd…0cfe at0015 = ╱45╱E╱ // 0xce2 @0x15
0x0ccd…0cfe at0016 = ╱4e╱N╱ // 0xce3 @0x16
0x0ccd…0cfe at0017 = ╱52╱R╱ // 0xce4 @0x17
0x0ccd…0cfe at0018 = ╱ed╱(╱ // 0xce5 @0x18
0x0ccd…0cfe at0019 = ╱45╱E╱ // 0xce6 @0x19
0x0ccd…0cfe at001a = ╱50╱P╱ // 0xce7 @0x1a
0x0ccd…0cfe at001b = ╱49╱I╱ // 0xce8 @0x1b
0x0ccd…0cfe at001c = ╱4c╱L╱ // 0xce9 @0x1c
0x0ccd…0cfe at001d = ╱31╱1╱ // 0xcea @0x1d
0x0ccd…0cfe at001e = ╱ee╱)╱ // 0xceb @0x1e
0x0ccd…0cfe at001f = ╱da╱ AND ╱ // 0xcec @0x1f
0x0ccd…0cfe at0020 = ╱45╱E╱ // 0xced @0x20
0x0ccd…0cfe at0021 = ╱55╱U╱ // 0xcee @0x21
0x0ccd…0cfe at0022 = ╱ef╱$╱ // 0xcef @0x22
0x0ccd…0cfe at0023 = ╱ed╱(╱ // 0xcf0 @0x23
0x0ccd…0cfe at0024 = ╱45╱E╱ // 0xcf1 @0x24
0x0ccd…0cfe at0025 = ╱50╱P╱ // 0xcf2 @0x25
0x0ccd…0cfe at0026 = ╱49╱I╱ // 0xcf3 @0x26
0x0ccd…0cfe at0027 = ╱4c╱L╱ // 0xcf4 @0x27
0x0ccd…0cfe at0028 = ╱31╱1╱ // 0xcf5 @0x28
0x0ccd…0cfe at0029 = ╱ee╱)╱ // 0xcf6 @0x29
0x0ccd…0cfe at002a = ╱dc╱=╱ // 0xcf7 @0x2a
0x0ccd…0cfe at002b = ╱22╱"╱ // 0xcf8 @0x2b
0x0ccd…0cfe at002c = ╱30╱0╱ // 0xcf9 @0x2c
0x0ccd…0cfe at002d = ╱22╱"╱ // 0xcfa @0x2d
0x0ccd…0cfe at002e = ╱b6╱ THEN ╱ // 0xcfb @0x2e
0x0ccd…0cfe at002f = ╱99╱ EXIT ╱ // 0xcfc @0x2f
0x0ccd…0cfe at0030 = EOL // 0xcfd @0x30
0x0ccd…0cfe }
0x0cfe…0d28 9a7f 1420 CEKS=E;EPIL2=EPIL2+E*(EU$(EPIL1)="0")
0x0cfe…0d28 LineComalBin {
0x0cfe…0d28 ptr = 0x9a7f // 0xcfe @0x0
0x0cfe…0d28 lno = 0x058c // 0xd00 @0x2
0x0cfe…0d28 at0004 = ╱43╱C╱ // 0xd02 @0x4
0x0cfe…0d28 at0005 = ╱45╱E╱ // 0xd03 @0x5
0x0cfe…0d28 at0006 = ╱4b╱K╱ // 0xd04 @0x6
0x0cfe…0d28 at0007 = ╱53╱S╱ // 0xd05 @0x7
0x0cfe…0d28 at0008 = ╱dc╱=╱ // 0xd06 @0x8
0x0cfe…0d28 at0009 = ╱45╱E╱ // 0xd07 @0x9
0x0cfe…0d28 at000a = ╱eb╱;╱ // 0xd08 @0xa
0x0cfe…0d28 at000b = ╱45╱E╱ // 0xd09 @0xb
0x0cfe…0d28 at000c = ╱50╱P╱ // 0xd0a @0xc
0x0cfe…0d28 at000d = ╱49╱I╱ // 0xd0b @0xd
0x0cfe…0d28 at000e = ╱4c╱L╱ // 0xd0c @0xe
0x0cfe…0d28 at000f = ╱32╱2╱ // 0xd0d @0xf
0x0cfe…0d28 at0010 = ╱dc╱=╱ // 0xd0e @0x10
0x0cfe…0d28 at0011 = ╱45╱E╱ // 0xd0f @0x11
0x0cfe…0d28 at0012 = ╱50╱P╱ // 0xd10 @0x12
0x0cfe…0d28 at0013 = ╱49╱I╱ // 0xd11 @0x13
0x0cfe…0d28 at0014 = ╱4c╱L╱ // 0xd12 @0x14
0x0cfe…0d28 at0015 = ╱32╱2╱ // 0xd13 @0x15
0x0cfe…0d28 at0016 = ╱e2╱+╱ // 0xd14 @0x16
0x0cfe…0d28 at0017 = ╱45╱E╱ // 0xd15 @0x17
0x0cfe…0d28 at0018 = ╱e4╱*╱ // 0xd16 @0x18
0x0cfe…0d28 at0019 = ╱ed╱(╱ // 0xd17 @0x19
0x0cfe…0d28 at001a = ╱45╱E╱ // 0xd18 @0x1a
0x0cfe…0d28 at001b = ╱55╱U╱ // 0xd19 @0x1b
0x0cfe…0d28 at001c = ╱ef╱$╱ // 0xd1a @0x1c
0x0cfe…0d28 at001d = ╱ed╱(╱ // 0xd1b @0x1d
0x0cfe…0d28 at001e = ╱45╱E╱ // 0xd1c @0x1e
0x0cfe…0d28 at001f = ╱50╱P╱ // 0xd1d @0x1f
0x0cfe…0d28 at0020 = ╱49╱I╱ // 0xd1e @0x20
0x0cfe…0d28 at0021 = ╱4c╱L╱ // 0xd1f @0x21
0x0cfe…0d28 at0022 = ╱31╱1╱ // 0xd20 @0x22
0x0cfe…0d28 at0023 = ╱ee╱)╱ // 0xd21 @0x23
0x0cfe…0d28 at0024 = ╱dc╱=╱ // 0xd22 @0x24
0x0cfe…0d28 at0025 = ╱22╱"╱ // 0xd23 @0x25
0x0cfe…0d28 at0026 = ╱30╱0╱ // 0xd24 @0x26
0x0cfe…0d28 at0027 = ╱22╱"╱ // 0xd25 @0x27
0x0cfe…0d28 at0028 = ╱ee╱)╱ // 0xd26 @0x28
0x0cfe…0d28 at0029 = EOL // 0xd27 @0x29
0x0cfe…0d28 }
0x0d28…0d33 9a8a 1430 NEXT EPIL1
0x0d28…0d33 LineComalBin {
0x0d28…0d33 ptr = 0x9a8a // 0xd28 @0x0
0x0d28…0d33 lno = 0x0596 // 0xd2a @0x2
0x0d28…0d33 at0004 = ╱84╱ NEXT ╱ // 0xd2c @0x4
0x0d28…0d33 at0005 = ╱45╱E╱ // 0xd2d @0x5
0x0d28…0d33 at0006 = ╱50╱P╱ // 0xd2e @0x6
0x0d28…0d33 at0007 = ╱49╱I╱ // 0xd2f @0x7
0x0d28…0d33 at0008 = ╱4c╱L╱ // 0xd30 @0x8
0x0d28…0d33 at0009 = ╱31╱1╱ // 0xd31 @0x9
0x0d28…0d33 at000a = EOL // 0xd32 @0xa
0x0d28…0d33 }
0x0d33…0d40 9a97 1440 IF CEKS=B THEN
0x0d33…0d40 LineComalBin {
0x0d33…0d40 ptr = 0x9a97 // 0xd33 @0x0
0x0d33…0d40 lno = 0x05a0 // 0xd35 @0x2
0x0d33…0d40 at0004 = ╱9c╱ IF ╱ // 0xd37 @0x4
0x0d33…0d40 at0005 = ╱43╱C╱ // 0xd38 @0x5
0x0d33…0d40 at0006 = ╱45╱E╱ // 0xd39 @0x6
0x0d33…0d40 at0007 = ╱4b╱K╱ // 0xd3a @0x7
0x0d33…0d40 at0008 = ╱53╱S╱ // 0xd3b @0x8
0x0d33…0d40 at0009 = ╱dc╱=╱ // 0xd3c @0x9
0x0d33…0d40 at000a = ╱42╱B╱ // 0xd3d @0xa
0x0d33…0d40 at000b = ╱b6╱ THEN ╱ // 0xd3e @0xb
0x0d33…0d40 at000c = EOL // 0xd3f @0xc
0x0d33…0d40 }
0x0d40…0d61 9ab8 1450 GET K15$,ETAB(EPIL3,G)+E:ENAVN$
0x0d40…0d61 LineComalBin {
0x0d40…0d61 ptr = 0x9ab8 // 0xd40 @0x0
0x0d40…0d61 lno = 0x05aa // 0xd42 @0x2
0x0d40…0d61 at0004 = ╱a9╱ GET ╱ // 0xd44 @0x4
0x0d40…0d61 at0005 = ╱4b╱K╱ // 0xd45 @0x5
0x0d40…0d61 at0006 = ╱31╱1╱ // 0xd46 @0x6
0x0d40…0d61 at0007 = ╱35╱5╱ // 0xd47 @0x7
0x0d40…0d61 at0008 = ╱ef╱$╱ // 0xd48 @0x8
0x0d40…0d61 at0009 = ╱ec╱,╱ // 0xd49 @0x9
0x0d40…0d61 at000a = ╱45╱E╱ // 0xd4a @0xa
0x0d40…0d61 at000b = ╱54╱T╱ // 0xd4b @0xb
0x0d40…0d61 at000c = ╱41╱A╱ // 0xd4c @0xc
0x0d40…0d61 at000d = ╱42╱B╱ // 0xd4d @0xd
0x0d40…0d61 at000e = ╱ed╱(╱ // 0xd4e @0xe
0x0d40…0d61 at000f = ╱45╱E╱ // 0xd4f @0xf
0x0d40…0d61 at0010 = ╱50╱P╱ // 0xd50 @0x10
0x0d40…0d61 at0011 = ╱49╱I╱ // 0xd51 @0x11
0x0d40…0d61 at0012 = ╱4c╱L╱ // 0xd52 @0x12
0x0d40…0d61 at0013 = ╱33╱3╱ // 0xd53 @0x13
0x0d40…0d61 at0014 = ╱ec╱,╱ // 0xd54 @0x14
0x0d40…0d61 at0015 = ╱47╱G╱ // 0xd55 @0x15
0x0d40…0d61 at0016 = ╱ee╱)╱ // 0xd56 @0x16
0x0d40…0d61 at0017 = ╱e2╱+╱ // 0xd57 @0x17
0x0d40…0d61 at0018 = ╱45╱E╱ // 0xd58 @0x18
0x0d40…0d61 at0019 = ╱f0╱:╱ // 0xd59 @0x19
0x0d40…0d61 at001a = ╱45╱E╱ // 0xd5a @0x1a
0x0d40…0d61 at001b = ╱4e╱N╱ // 0xd5b @0x1b
0x0d40…0d61 at001c = ╱41╱A╱ // 0xd5c @0x1c
0x0d40…0d61 at001d = ╱56╱V╱ // 0xd5d @0x1d
0x0d40…0d61 at001e = ╱4e╱N╱ // 0xd5e @0x1e
0x0d40…0d61 at001f = ╱ef╱$╱ // 0xd5f @0x1f
0x0d40…0d61 at0020 = EOL // 0xd60 @0x20
0x0d40…0d61 }
0x0d61…0d7b 9ad2 1460 EXEC FEJL(20,E,K15$)
0x0d61…0d7b LineComalBin {
0x0d61…0d7b ptr = 0x9ad2 // 0xd61 @0x0
0x0d61…0d7b lno = 0x05b4 // 0xd63 @0x2
0x0d61…0d7b at0004 = ╱9d╱ EXEC ╱ // 0xd65 @0x4
0x0d61…0d7b at0005 = ╱46╱F╱ // 0xd66 @0x5
0x0d61…0d7b at0006 = ╱45╱E╱ // 0xd67 @0x6
0x0d61…0d7b at0007 = ╱4a╱J╱ // 0xd68 @0x7
0x0d61…0d7b at0008 = ╱4c╱L╱ // 0xd69 @0x8
0x0d61…0d7b at0009 = ╱ed╱(╱ // 0xd6a @0x9
0x0d61…0d7b at000a = ╱32╱2╱ // 0xd6b @0xa
0x0d61…0d7b at000b = ╱30╱0╱ // 0xd6c @0xb
0x0d61…0d7b at000c = ╱fe0000a005╱ // 0xd6d @0xc
0x0d61…0d7b at0011 = ╱ec╱,╱ // 0xd72 @0x11
0x0d61…0d7b at0012 = ╱45╱E╱ // 0xd73 @0x12
0x0d61…0d7b at0013 = ╱ec╱,╱ // 0xd74 @0x13
0x0d61…0d7b at0014 = ╱4b╱K╱ // 0xd75 @0x14
0x0d61…0d7b at0015 = ╱31╱1╱ // 0xd76 @0x15
0x0d61…0d7b at0016 = ╱35╱5╱ // 0xd77 @0x16
0x0d61…0d7b at0017 = ╱ef╱$╱ // 0xd78 @0x17
0x0d61…0d7b at0018 = ╱ee╱)╱ // 0xd79 @0x18
0x0d61…0d7b at0019 = EOL // 0xd7a @0x19
0x0d61…0d7b }
0x0d7b…0dab 9b02 1470 GET K15$,ETAB(EPIL3,G)+EPIL2+E:NR8,MBEV$,YBEV$
0x0d7b…0dab LineComalBin {
0x0d7b…0dab ptr = 0x9b02 // 0xd7b @0x0
0x0d7b…0dab lno = 0x05be // 0xd7d @0x2
0x0d7b…0dab at0004 = ╱a9╱ GET ╱ // 0xd7f @0x4
0x0d7b…0dab at0005 = ╱4b╱K╱ // 0xd80 @0x5
0x0d7b…0dab at0006 = ╱31╱1╱ // 0xd81 @0x6
0x0d7b…0dab at0007 = ╱35╱5╱ // 0xd82 @0x7
0x0d7b…0dab at0008 = ╱ef╱$╱ // 0xd83 @0x8
0x0d7b…0dab at0009 = ╱ec╱,╱ // 0xd84 @0x9
0x0d7b…0dab at000a = ╱45╱E╱ // 0xd85 @0xa
0x0d7b…0dab at000b = ╱54╱T╱ // 0xd86 @0xb
0x0d7b…0dab at000c = ╱41╱A╱ // 0xd87 @0xc
0x0d7b…0dab at000d = ╱42╱B╱ // 0xd88 @0xd
0x0d7b…0dab at000e = ╱ed╱(╱ // 0xd89 @0xe
0x0d7b…0dab at000f = ╱45╱E╱ // 0xd8a @0xf
0x0d7b…0dab at0010 = ╱50╱P╱ // 0xd8b @0x10
0x0d7b…0dab at0011 = ╱49╱I╱ // 0xd8c @0x11
0x0d7b…0dab at0012 = ╱4c╱L╱ // 0xd8d @0x12
0x0d7b…0dab at0013 = ╱33╱3╱ // 0xd8e @0x13
0x0d7b…0dab at0014 = ╱ec╱,╱ // 0xd8f @0x14
0x0d7b…0dab at0015 = ╱47╱G╱ // 0xd90 @0x15
0x0d7b…0dab at0016 = ╱ee╱)╱ // 0xd91 @0x16
0x0d7b…0dab at0017 = ╱e2╱+╱ // 0xd92 @0x17
0x0d7b…0dab at0018 = ╱45╱E╱ // 0xd93 @0x18
0x0d7b…0dab at0019 = ╱50╱P╱ // 0xd94 @0x19
0x0d7b…0dab at001a = ╱49╱I╱ // 0xd95 @0x1a
0x0d7b…0dab at001b = ╱4c╱L╱ // 0xd96 @0x1b
0x0d7b…0dab at001c = ╱32╱2╱ // 0xd97 @0x1c
0x0d7b…0dab at001d = ╱e2╱+╱ // 0xd98 @0x1d
0x0d7b…0dab at001e = ╱45╱E╱ // 0xd99 @0x1e
0x0d7b…0dab at001f = ╱f0╱:╱ // 0xd9a @0x1f
0x0d7b…0dab at0020 = ╱4e╱N╱ // 0xd9b @0x20
0x0d7b…0dab at0021 = ╱52╱R╱ // 0xd9c @0x21
0x0d7b…0dab at0022 = ╱38╱8╱ // 0xd9d @0x22
0x0d7b…0dab at0023 = ╱ec╱,╱ // 0xd9e @0x23
0x0d7b…0dab at0024 = ╱4d╱M╱ // 0xd9f @0x24
0x0d7b…0dab at0025 = ╱42╱B╱ // 0xda0 @0x25
0x0d7b…0dab at0026 = ╱45╱E╱ // 0xda1 @0x26
0x0d7b…0dab at0027 = ╱56╱V╱ // 0xda2 @0x27
0x0d7b…0dab at0028 = ╱ef╱$╱ // 0xda3 @0x28
0x0d7b…0dab at0029 = ╱ec╱,╱ // 0xda4 @0x29
0x0d7b…0dab at002a = ╱59╱Y╱ // 0xda5 @0x2a
0x0d7b…0dab at002b = ╱42╱B╱ // 0xda6 @0x2b
0x0d7b…0dab at002c = ╱45╱E╱ // 0xda7 @0x2c
0x0d7b…0dab at002d = ╱56╱V╱ // 0xda8 @0x2d
0x0d7b…0dab at002e = ╱ef╱$╱ // 0xda9 @0x2e
0x0d7b…0dab at002f = EOL // 0xdaa @0x2f
0x0d7b…0dab }
0x0dab…0dc5 9b1c 1480 EXEC FEJL(20,G,K15$)
0x0dab…0dc5 LineComalBin {
0x0dab…0dc5 ptr = 0x9b1c // 0xdab @0x0
0x0dab…0dc5 lno = 0x05c8 // 0xdad @0x2
0x0dab…0dc5 at0004 = ╱9d╱ EXEC ╱ // 0xdaf @0x4
0x0dab…0dc5 at0005 = ╱46╱F╱ // 0xdb0 @0x5
0x0dab…0dc5 at0006 = ╱45╱E╱ // 0xdb1 @0x6
0x0dab…0dc5 at0007 = ╱4a╱J╱ // 0xdb2 @0x7
0x0dab…0dc5 at0008 = ╱4c╱L╱ // 0xdb3 @0x8
0x0dab…0dc5 at0009 = ╱ed╱(╱ // 0xdb4 @0x9
0x0dab…0dc5 at000a = ╱32╱2╱ // 0xdb5 @0xa
0x0dab…0dc5 at000b = ╱30╱0╱ // 0xdb6 @0xb
0x0dab…0dc5 at000c = ╱fe0000a005╱ // 0xdb7 @0xc
0x0dab…0dc5 at0011 = ╱ec╱,╱ // 0xdbc @0x11
0x0dab…0dc5 at0012 = ╱47╱G╱ // 0xdbd @0x12
0x0dab…0dc5 at0013 = ╱ec╱,╱ // 0xdbe @0x13
0x0dab…0dc5 at0014 = ╱4b╱K╱ // 0xdbf @0x14
0x0dab…0dc5 at0015 = ╱31╱1╱ // 0xdc0 @0x15
0x0dab…0dc5 at0016 = ╱35╱5╱ // 0xdc1 @0x16
0x0dab…0dc5 at0017 = ╱ef╱$╱ // 0xdc2 @0x17
0x0dab…0dc5 at0018 = ╱ee╱)╱ // 0xdc3 @0x18
0x0dab…0dc5 at0019 = EOL // 0xdc4 @0x19
0x0dab…0dc5 }
0x0dc5…0dcb 9b22 1490 ELSE
0x0dc5…0dcb LineComalBin {
0x0dc5…0dcb ptr = 0x9b22 // 0xdc5 @0x0
0x0dc5…0dcb lno = 0x05d2 // 0xdc7 @0x2
0x0dc5…0dcb at0004 = ╱9a╱ ELSE ╱ // 0xdc9 @0x4
0x0dc5…0dcb at0005 = EOL // 0xdca @0x5
0x0dc5…0dcb }
0x0dcb…0ddd 9b34 1500 EPIL1=EPIL1-E
0x0dcb…0ddd LineComalBin {
0x0dcb…0ddd ptr = 0x9b34 // 0xdcb @0x0
0x0dcb…0ddd lno = 0x05dc // 0xdcd @0x2
0x0dcb…0ddd at0004 = ╱45╱E╱ // 0xdcf @0x4
0x0dcb…0ddd at0005 = ╱50╱P╱ // 0xdd0 @0x5
0x0dcb…0ddd at0006 = ╱49╱I╱ // 0xdd1 @0x6
0x0dcb…0ddd at0007 = ╱4c╱L╱ // 0xdd2 @0x7
0x0dcb…0ddd at0008 = ╱31╱1╱ // 0xdd3 @0x8
0x0dcb…0ddd at0009 = ╱dc╱=╱ // 0xdd4 @0x9
0x0dcb…0ddd at000a = ╱45╱E╱ // 0xdd5 @0xa
0x0dcb…0ddd at000b = ╱50╱P╱ // 0xdd6 @0xb
0x0dcb…0ddd at000c = ╱49╱I╱ // 0xdd7 @0xc
0x0dcb…0ddd at000d = ╱4c╱L╱ // 0xdd8 @0xd
0x0dcb…0ddd at000e = ╱31╱1╱ // 0xdd9 @0xe
0x0dcb…0ddd at000f = ╱e3╱-╱ // 0xdda @0xf
0x0dcb…0ddd at0010 = ╱45╱E╱ // 0xddb @0x10
0x0dcb…0ddd at0011 = EOL // 0xddc @0x11
0x0dcb…0ddd }
0x0ddd…0de3 9b3a 1510 ENDIF
0x0ddd…0de3 LineComalBin {
0x0ddd…0de3 ptr = 0x9b3a // 0xddd @0x0
0x0ddd…0de3 lno = 0x05e6 // 0xddf @0x2
0x0ddd…0de3 at0004 = ╱9b╱ ENDIF ╱ // 0xde1 @0x4
0x0ddd…0de3 at0005 = EOL // 0xde2 @0x5
0x0ddd…0de3 }
0x0de3…0de9 9b40 1520 ENDPROC
0x0de3…0de9 LineComalBin {
0x0de3…0de9 ptr = 0x9b40 // 0xde3 @0x0
0x0de3…0de9 lno = 0x05f0 // 0xde5 @0x2
0x0de3…0de9 at0004 = ╱9f╱ ENDPROC ╱ // 0xde7 @0x4
0x0de3…0de9 at0005 = EOL // 0xde8 @0x5
0x0de3…0de9 }
0x0de9…0e14 9b6b 1530 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
0x0de9…0e14 LineComalBin {
0x0de9…0e14 ptr = 0x9b6b // 0xde9 @0x0
0x0de9…0e14 lno = 0x05fa // 0xdeb @0x2
0x0de9…0e14 at0004 = ╱9e╱ PROC ╱ // 0xded @0x4
0x0de9…0e14 at0005 = ╱46╱F╱ // 0xdee @0x5
0x0de9…0e14 at0006 = ╱49╱I╱ // 0xdef @0x6
0x0de9…0e14 at0007 = ╱4e╱N╱ // 0xdf0 @0x7
0x0de9…0e14 at0008 = ╱44╱D╱ // 0xdf1 @0x8
0x0de9…0e14 at0009 = ╱50╱P╱ // 0xdf2 @0x9
0x0de9…0e14 at000a = ╱4f╱O╱ // 0xdf3 @0xa
0x0de9…0e14 at000b = ╱53╱S╱ // 0xdf4 @0xb
0x0de9…0e14 at000c = ╱54╱T╱ // 0xdf5 @0xc
0x0de9…0e14 at000d = ╱31╱1╱ // 0xdf6 @0xd
0x0de9…0e14 at000e = ╱ed╱(╱ // 0xdf7 @0xe
0x0de9…0e14 at000f = ╱54╱T╱ // 0xdf8 @0xf
0x0de9…0e14 at0010 = ╱41╱A╱ // 0xdf9 @0x10
0x0de9…0e14 at0011 = ╱42╱B╱ // 0xdfa @0x11
0x0de9…0e14 at0012 = ╱34╱4╱ // 0xdfb @0x12
0x0de9…0e14 at0013 = ╱ec╱,╱ // 0xdfc @0x13
0x0de9…0e14 at0014 = ╱51╱Q╱ // 0xdfd @0x14
0x0de9…0e14 at0015 = ╱ec╱,╱ // 0xdfe @0x15
0x0de9…0e14 at0016 = ╱4d╱M╱ // 0xdff @0x16
0x0de9…0e14 at0017 = ╱41╱A╱ // 0xe00 @0x17
0x0de9…0e14 at0018 = ╱4e╱N╱ // 0xe01 @0x18
0x0de9…0e14 at0019 = ╱54╱T╱ // 0xe02 @0x19
0x0de9…0e14 at001a = ╱32╱2╱ // 0xe03 @0x1a
0x0de9…0e14 at001b = ╱ec╱,╱ // 0xe04 @0x1b
0x0de9…0e14 at001c = ╱4e╱N╱ // 0xe05 @0x1c
0x0de9…0e14 at001d = ╱5c╱Ø╱ // 0xe06 @0x1d
0x0de9…0e14 at001e = ╱47╱G╱ // 0xe07 @0x1e
0x0de9…0e14 at001f = ╱4c╱L╱ // 0xe08 @0x1f
0x0de9…0e14 at0020 = ╱35╱5╱ // 0xe09 @0x20
0x0de9…0e14 at0021 = ╱ec╱,╱ // 0xe0a @0x21
0x0de9…0e14 at0022 = ╱50╱P╱ // 0xe0b @0x22
0x0de9…0e14 at0023 = ╱49╱I╱ // 0xe0c @0x23
0x0de9…0e14 at0024 = ╱4c╱L╱ // 0xe0d @0x24
0x0de9…0e14 at0025 = ╱36╱6╱ // 0xe0e @0x25
0x0de9…0e14 at0026 = ╱ec╱,╱ // 0xe0f @0x26
0x0de9…0e14 at0027 = ╱4c╱L╱ // 0xe10 @0x27
0x0de9…0e14 at0028 = ╱38╱8╱ // 0xe11 @0x28
0x0de9…0e14 at0029 = ╱ee╱)╱ // 0xe12 @0x29
0x0de9…0e14 at002a = EOL // 0xe13 @0x2a
0x0de9…0e14 }
0x0e14…0e62 9bb9 1540 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
0x0e14…0e62 LineComalBin {
0x0e14…0e62 ptr = 0x9bb9 // 0xe14 @0x0
0x0e14…0e62 lno = 0x0604 // 0xe16 @0x2
0x0e14…0e62 at0004 = ╱50╱P╱ // 0xe18 @0x4
0x0e14…0e62 at0005 = ╱49╱I╱ // 0xe19 @0x5
0x0e14…0e62 at0006 = ╱4c╱L╱ // 0xe1a @0x6
0x0e14…0e62 at0007 = ╱31╱1╱ // 0xe1b @0x7
0x0e14…0e62 at0008 = ╱dc╱=╱ // 0xe1c @0x8
0x0e14…0e62 at0009 = ╱4d╱M╱ // 0xe1d @0x9
0x0e14…0e62 at000a = ╱41╱A╱ // 0xe1e @0xa
0x0e14…0e62 at000b = ╱4e╱N╱ // 0xe1f @0xb
0x0e14…0e62 at000c = ╱54╱T╱ // 0xe20 @0xc
0x0e14…0e62 at000d = ╱32╱2╱ // 0xe21 @0xd
0x0e14…0e62 at000e = ╱e7╱ DIV ╱ // 0xe22 @0xe
0x0e14…0e62 at000f = ╱38╱8╱ // 0xe23 @0xf
0x0e14…0e62 at0010 = ╱fe00008004╱ // 0xe24 @0x10
0x0e14…0e62 at0015 = ╱eb╱;╱ // 0xe29 @0x15
0x0e14…0e62 at0016 = ╱50╱P╱ // 0xe2a @0x16
0x0e14…0e62 at0017 = ╱49╱I╱ // 0xe2b @0x17
0x0e14…0e62 at0018 = ╱4c╱L╱ // 0xe2c @0x18
0x0e14…0e62 at0019 = ╱36╱6╱ // 0xe2d @0x19
0x0e14…0e62 at001a = ╱dc╱=╱ // 0xe2e @0x1a
0x0e14…0e62 at001b = ╱50╱P╱ // 0xe2f @0x1b
0x0e14…0e62 at001c = ╱49╱I╱ // 0xe30 @0x1c
0x0e14…0e62 at001d = ╱4c╱L╱ // 0xe31 @0x1d
0x0e14…0e62 at001e = ╱31╱1╱ // 0xe32 @0x1e
0x0e14…0e62 at001f = ╱eb╱;╱ // 0xe33 @0x1f
0x0e14…0e62 at0020 = ╱43╱C╱ // 0xe34 @0x20
0x0e14…0e62 at0021 = ╱45╱E╱ // 0xe35 @0x21
0x0e14…0e62 at0022 = ╱4b╱K╱ // 0xe36 @0x22
0x0e14…0e62 at0023 = ╱53╱S╱ // 0xe37 @0x23
0x0e14…0e62 at0024 = ╱dc╱=╱ // 0xe38 @0x24
0x0e14…0e62 at0025 = ╱45╱E╱ // 0xe39 @0x25
0x0e14…0e62 at0026 = ╱eb╱;╱ // 0xe3a @0x26
0x0e14…0e62 at0027 = ╱4d╱M╱ // 0xe3b @0x27
0x0e14…0e62 at0028 = ╱41╱A╱ // 0xe3c @0x28
0x0e14…0e62 at0029 = ╱4e╱N╱ // 0xe3d @0x29
0x0e14…0e62 at002a = ╱54╱T╱ // 0xe3e @0x2a
0x0e14…0e62 at002b = ╱33╱3╱ // 0xe3f @0x2b
0x0e14…0e62 at002c = ╱dc╱=╱ // 0xe40 @0x2c
0x0e14…0e62 at002d = ╱4d╱M╱ // 0xe41 @0x2d
0x0e14…0e62 at002e = ╱41╱A╱ // 0xe42 @0x2e
0x0e14…0e62 at002f = ╱4e╱N╱ // 0xe43 @0x2f
0x0e14…0e62 at0030 = ╱54╱T╱ // 0xe44 @0x30
0x0e14…0e62 at0031 = ╱32╱2╱ // 0xe45 @0x31
0x0e14…0e62 at0032 = ╱e7╱ DIV ╱ // 0xe46 @0x32
0x0e14…0e62 at0033 = ╱34╱4╱ // 0xe47 @0x33
0x0e14…0e62 at0034 = ╱fe00008003╱ // 0xe48 @0x34
0x0e14…0e62 at0039 = ╱eb╱;╱ // 0xe4d @0x39
0x0e14…0e62 at003a = ╱4d╱M╱ // 0xe4e @0x3a
0x0e14…0e62 at003b = ╱41╱A╱ // 0xe4f @0x3b
0x0e14…0e62 at003c = ╱4e╱N╱ // 0xe50 @0x3c
0x0e14…0e62 at003d = ╱54╱T╱ // 0xe51 @0x3d
0x0e14…0e62 at003e = ╱34╱4╱ // 0xe52 @0x3e
0x0e14…0e62 at003f = ╱dc╱=╱ // 0xe53 @0x3f
0x0e14…0e62 at0040 = ╱4d╱M╱ // 0xe54 @0x40
0x0e14…0e62 at0041 = ╱41╱A╱ // 0xe55 @0x41
0x0e14…0e62 at0042 = ╱4e╱N╱ // 0xe56 @0x42
0x0e14…0e62 at0043 = ╱54╱T╱ // 0xe57 @0x43
0x0e14…0e62 at0044 = ╱32╱2╱ // 0xe58 @0x44
0x0e14…0e62 at0045 = ╱e7╱ DIV ╱ // 0xe59 @0x45
0x0e14…0e62 at0046 = ╱33╱3╱ // 0xe5a @0x46
0x0e14…0e62 at0047 = ╱32╱2╱ // 0xe5b @0x47
0x0e14…0e62 at0048 = ╱fe00008006╱ // 0xe5c @0x48
0x0e14…0e62 at004d = EOL // 0xe61 @0x4d
0x0e14…0e62 }
0x0e62…0e68 9bbf 1550 REPEAT
0x0e62…0e68 LineComalBin {
0x0e62…0e68 ptr = 0x9bbf // 0xe62 @0x0
0x0e62…0e68 lno = 0x060e // 0xe64 @0x2
0x0e62…0e68 at0004 = ╱97╱ REPEAT ╱ // 0xe66 @0x4
0x0e62…0e68 at0005 = EOL // 0xe67 @0x5
0x0e62…0e68 }
0x0e68…0e87 9bde 1560 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
0x0e68…0e87 LineComalBin {
0x0e68…0e87 ptr = 0x9bde // 0xe68 @0x0
0x0e68…0e87 lno = 0x0618 // 0xe6a @0x2
0x0e68…0e87 at0004 = ╱82╱ IF ╱ // 0xe6c @0x4
0x0e68…0e87 at0005 = ╱4e╱N╱ // 0xe6d @0x5
0x0e68…0e87 at0006 = ╱5c╱Ø╱ // 0xe6e @0x6
0x0e68…0e87 at0007 = ╱47╱G╱ // 0xe6f @0x7
0x0e68…0e87 at0008 = ╱4c╱L╱ // 0xe70 @0x8
0x0e68…0e87 at0009 = ╱35╱5╱ // 0xe71 @0x9
0x0e68…0e87 at000a = ╱dc╱=╱ // 0xe72 @0xa
0x0e68…0e87 at000b = ╱54╱T╱ // 0xe73 @0xb
0x0e68…0e87 at000c = ╱41╱A╱ // 0xe74 @0xc
0x0e68…0e87 at000d = ╱42╱B╱ // 0xe75 @0xd
0x0e68…0e87 at000e = ╱34╱4╱ // 0xe76 @0xe
0x0e68…0e87 at000f = ╱ed╱(╱ // 0xe77 @0xf
0x0e68…0e87 at0010 = ╱50╱P╱ // 0xe78 @0x10
0x0e68…0e87 at0011 = ╱49╱I╱ // 0xe79 @0x11
0x0e68…0e87 at0012 = ╱4c╱L╱ // 0xe7a @0x12
0x0e68…0e87 at0013 = ╱36╱6╱ // 0xe7b @0x13
0x0e68…0e87 at0014 = ╱ee╱)╱ // 0xe7c @0x14
0x0e68…0e87 at0015 = ╱db╱ OR ╱ // 0xe7d @0x15
0x0e68…0e87 at0016 = ╱50╱P╱ // 0xe7e @0x16
0x0e68…0e87 at0017 = ╱49╱I╱ // 0xe7f @0x17
0x0e68…0e87 at0018 = ╱4c╱L╱ // 0xe80 @0x18
0x0e68…0e87 at0019 = ╱31╱1╱ // 0xe81 @0x19
0x0e68…0e87 at001a = ╱dc╱=╱ // 0xe82 @0x1a
0x0e68…0e87 at001b = ╱45╱E╱ // 0xe83 @0x1b
0x0e68…0e87 at001c = ╱b6╱ THEN ╱ // 0xe84 @0x1c
0x0e68…0e87 at001d = ╱99╱ EXIT ╱ // 0xe85 @0x1d
0x0e68…0e87 at001e = EOL // 0xe86 @0x1e
0x0e68…0e87 }
0x0e87…0ec3 9c1a 1570 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
0x0e87…0ec3 LineComalBin {
0x0e87…0ec3 ptr = 0x9c1a // 0xe87 @0x0
0x0e87…0ec3 lno = 0x0622 // 0xe89 @0x2
0x0e87…0ec3 at0004 = ╱50╱P╱ // 0xe8b @0x4
0x0e87…0ec3 at0005 = ╱49╱I╱ // 0xe8c @0x5
0x0e87…0ec3 at0006 = ╱4c╱L╱ // 0xe8d @0x6
0x0e87…0ec3 at0007 = ╱31╱1╱ // 0xe8e @0x7
0x0e87…0ec3 at0008 = ╱dc╱=╱ // 0xe8f @0x8
0x0e87…0ec3 at0009 = ╱ed╱(╱ // 0xe90 @0x9
0x0e87…0ec3 at000a = ╱50╱P╱ // 0xe91 @0xa
0x0e87…0ec3 at000b = ╱49╱I╱ // 0xe92 @0xb
0x0e87…0ec3 at000c = ╱4c╱L╱ // 0xe93 @0xc
0x0e87…0ec3 at000d = ╱31╱1╱ // 0xe94 @0xd
0x0e87…0ec3 at000e = ╱e2╱+╱ // 0xe95 @0xe
0x0e87…0ec3 at000f = ╱45╱E╱ // 0xe96 @0xf
0x0e87…0ec3 at0010 = ╱ee╱)╱ // 0xe97 @0x10
0x0e87…0ec3 at0011 = ╱e7╱ DIV ╱ // 0xe98 @0x11
0x0e87…0ec3 at0012 = ╱47╱G╱ // 0xe99 @0x12
0x0e87…0ec3 at0013 = ╱eb╱;╱ // 0xe9a @0x13
0x0e87…0ec3 at0014 = ╱50╱P╱ // 0xe9b @0x14
0x0e87…0ec3 at0015 = ╱49╱I╱ // 0xe9c @0x15
0x0e87…0ec3 at0016 = ╱4c╱L╱ // 0xe9d @0x16
0x0e87…0ec3 at0017 = ╱36╱6╱ // 0xe9e @0x17
0x0e87…0ec3 at0018 = ╱dc╱=╱ // 0xe9f @0x18
0x0e87…0ec3 at0019 = ╱50╱P╱ // 0xea0 @0x19
0x0e87…0ec3 at001a = ╱49╱I╱ // 0xea1 @0x1a
0x0e87…0ec3 at001b = ╱4c╱L╱ // 0xea2 @0x1b
0x0e87…0ec3 at001c = ╱36╱6╱ // 0xea3 @0x1c
0x0e87…0ec3 at001d = ╱e2╱+╱ // 0xea4 @0x1d
0x0e87…0ec3 at001e = ╱50╱P╱ // 0xea5 @0x1e
0x0e87…0ec3 at001f = ╱49╱I╱ // 0xea6 @0x1f
0x0e87…0ec3 at0020 = ╱4c╱L╱ // 0xea7 @0x20
0x0e87…0ec3 at0021 = ╱31╱1╱ // 0xea8 @0x21
0x0e87…0ec3 at0022 = ╱e4╱*╱ // 0xea9 @0x22
0x0e87…0ec3 at0023 = ╱ed╱(╱ // 0xeaa @0x23
0x0e87…0ec3 at0024 = ╱45╱E╱ // 0xeab @0x24
0x0e87…0ec3 at0025 = ╱e3╱-╱ // 0xeac @0x25
0x0e87…0ec3 at0026 = ╱47╱G╱ // 0xead @0x26
0x0e87…0ec3 at0027 = ╱e4╱*╱ // 0xeae @0x27
0x0e87…0ec3 at0028 = ╱ed╱(╱ // 0xeaf @0x28
0x0e87…0ec3 at0029 = ╱4e╱N╱ // 0xeb0 @0x29
0x0e87…0ec3 at002a = ╱5c╱Ø╱ // 0xeb1 @0x2a
0x0e87…0ec3 at002b = ╱47╱G╱ // 0xeb2 @0x2b
0x0e87…0ec3 at002c = ╱4c╱L╱ // 0xeb3 @0x2c
0x0e87…0ec3 at002d = ╱35╱5╱ // 0xeb4 @0x2d
0x0e87…0ec3 at002e = ╱dd╱<╱ // 0xeb5 @0x2e
0x0e87…0ec3 at002f = ╱54╱T╱ // 0xeb6 @0x2f
0x0e87…0ec3 at0030 = ╱41╱A╱ // 0xeb7 @0x30
0x0e87…0ec3 at0031 = ╱42╱B╱ // 0xeb8 @0x31
0x0e87…0ec3 at0032 = ╱34╱4╱ // 0xeb9 @0x32
0x0e87…0ec3 at0033 = ╱ed╱(╱ // 0xeba @0x33
0x0e87…0ec3 at0034 = ╱50╱P╱ // 0xebb @0x34
0x0e87…0ec3 at0035 = ╱49╱I╱ // 0xebc @0x35
0x0e87…0ec3 at0036 = ╱4c╱L╱ // 0xebd @0x36
0x0e87…0ec3 at0037 = ╱36╱6╱ // 0xebe @0x37
0x0e87…0ec3 at0038 = ╱ee╱)╱ // 0xebf @0x38
0x0e87…0ec3 at0039 = ╱ee╱)╱ // 0xec0 @0x39
0x0e87…0ec3 at003a = ╱ee╱)╱ // 0xec1 @0x3a
0x0e87…0ec3 at003b = EOL // 0xec2 @0x3b
0x0e87…0ec3 }
0x0ec3…0ed6 9c2d 1580 IF PIL6<E THEN PIL6=E
0x0ec3…0ed6 LineComalBin {
0x0ec3…0ed6 ptr = 0x9c2d // 0xec3 @0x0
0x0ec3…0ed6 lno = 0x062c // 0xec5 @0x2
0x0ec3…0ed6 at0004 = ╱82╱ IF ╱ // 0xec7 @0x4
0x0ec3…0ed6 at0005 = ╱50╱P╱ // 0xec8 @0x5
0x0ec3…0ed6 at0006 = ╱49╱I╱ // 0xec9 @0x6
0x0ec3…0ed6 at0007 = ╱4c╱L╱ // 0xeca @0x7
0x0ec3…0ed6 at0008 = ╱36╱6╱ // 0xecb @0x8
0x0ec3…0ed6 at0009 = ╱dd╱<╱ // 0xecc @0x9
0x0ec3…0ed6 at000a = ╱45╱E╱ // 0xecd @0xa
0x0ec3…0ed6 at000b = ╱b6╱ THEN ╱ // 0xece @0xb
0x0ec3…0ed6 at000c = ╱50╱P╱ // 0xecf @0xc
0x0ec3…0ed6 at000d = ╱49╱I╱ // 0xed0 @0xd
0x0ec3…0ed6 at000e = ╱4c╱L╱ // 0xed1 @0xe
0x0ec3…0ed6 at000f = ╱36╱6╱ // 0xed2 @0xf
0x0ec3…0ed6 at0010 = ╱dc╱=╱ // 0xed3 @0x10
0x0ec3…0ed6 at0011 = ╱45╱E╱ // 0xed4 @0x11
0x0ec3…0ed6 at0012 = EOL // 0xed5 @0x12
0x0ec3…0ed6 }
0x0ed6…0ef1 9c48 1590 IF PIL6>MANT3 THEN PIL6=MANT3
0x0ed6…0ef1 LineComalBin {
0x0ed6…0ef1 ptr = 0x9c48 // 0xed6 @0x0
0x0ed6…0ef1 lno = 0x0636 // 0xed8 @0x2
0x0ed6…0ef1 at0004 = ╱82╱ IF ╱ // 0xeda @0x4
0x0ed6…0ef1 at0005 = ╱50╱P╱ // 0xedb @0x5
0x0ed6…0ef1 at0006 = ╱49╱I╱ // 0xedc @0x6
0x0ed6…0ef1 at0007 = ╱4c╱L╱ // 0xedd @0x7
0x0ed6…0ef1 at0008 = ╱36╱6╱ // 0xede @0x8
0x0ed6…0ef1 at0009 = ╱de╱>╱ // 0xedf @0x9
0x0ed6…0ef1 at000a = ╱4d╱M╱ // 0xee0 @0xa
0x0ed6…0ef1 at000b = ╱41╱A╱ // 0xee1 @0xb
0x0ed6…0ef1 at000c = ╱4e╱N╱ // 0xee2 @0xc
0x0ed6…0ef1 at000d = ╱54╱T╱ // 0xee3 @0xd
0x0ed6…0ef1 at000e = ╱33╱3╱ // 0xee4 @0xe
0x0ed6…0ef1 at000f = ╱b6╱ THEN ╱ // 0xee5 @0xf
0x0ed6…0ef1 at0010 = ╱50╱P╱ // 0xee6 @0x10
0x0ed6…0ef1 at0011 = ╱49╱I╱ // 0xee7 @0x11
0x0ed6…0ef1 at0012 = ╱4c╱L╱ // 0xee8 @0x12
0x0ed6…0ef1 at0013 = ╱36╱6╱ // 0xee9 @0x13
0x0ed6…0ef1 at0014 = ╱dc╱=╱ // 0xeea @0x14
0x0ed6…0ef1 at0015 = ╱4d╱M╱ // 0xeeb @0x15
0x0ed6…0ef1 at0016 = ╱41╱A╱ // 0xeec @0x16
0x0ed6…0ef1 at0017 = ╱4e╱N╱ // 0xeed @0x17
0x0ed6…0ef1 at0018 = ╱54╱T╱ // 0xeee @0x18
0x0ed6…0ef1 at0019 = ╱33╱3╱ // 0xeef @0x19
0x0ed6…0ef1 at001a = EOL // 0xef0 @0x1a
0x0ed6…0ef1 }
0x0ef1…0efd 9c54 1600 UNTIL PIL1=B
0x0ef1…0efd LineComalBin {
0x0ef1…0efd ptr = 0x9c54 // 0xef1 @0x0
0x0ef1…0efd lno = 0x0640 // 0xef3 @0x2
0x0ef1…0efd at0004 = ╱98╱ UNTIL ╱ // 0xef5 @0x4
0x0ef1…0efd at0005 = ╱50╱P╱ // 0xef6 @0x5
0x0ef1…0efd at0006 = ╱49╱I╱ // 0xef7 @0x6
0x0ef1…0efd at0007 = ╱4c╱L╱ // 0xef8 @0x7
0x0ef1…0efd at0008 = ╱31╱1╱ // 0xef9 @0x8
0x0ef1…0efd at0009 = ╱dc╱=╱ // 0xefa @0x9
0x0ef1…0efd at000a = ╱42╱B╱ // 0xefb @0xa
0x0ef1…0efd at000b = EOL // 0xefc @0xb
0x0ef1…0efd }
0x0efd…0f28 9c7f 1610 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
0x0efd…0f28 LineComalBin {
0x0efd…0f28 ptr = 0x9c7f // 0xefd @0x0
0x0efd…0f28 lno = 0x064a // 0xeff @0x2
0x0efd…0f28 at0004 = ╱82╱ IF ╱ // 0xf01 @0x4
0x0efd…0f28 at0005 = ╱54╱T╱ // 0xf02 @0x5
0x0efd…0f28 at0006 = ╱41╱A╱ // 0xf03 @0x6
0x0efd…0f28 at0007 = ╱42╱B╱ // 0xf04 @0x7
0x0efd…0f28 at0008 = ╱34╱4╱ // 0xf05 @0x8
0x0efd…0f28 at0009 = ╱ed╱(╱ // 0xf06 @0x9
0x0efd…0f28 at000a = ╱50╱P╱ // 0xf07 @0xa
0x0efd…0f28 at000b = ╱49╱I╱ // 0xf08 @0xb
0x0efd…0f28 at000c = ╱4c╱L╱ // 0xf09 @0xc
0x0efd…0f28 at000d = ╱36╱6╱ // 0xf0a @0xd
0x0efd…0f28 at000e = ╱ee╱)╱ // 0xf0b @0xe
0x0efd…0f28 at000f = ╱de╱>╱ // 0xf0c @0xf
0x0efd…0f28 at0010 = ╱4e╱N╱ // 0xf0d @0x10
0x0efd…0f28 at0011 = ╱5c╱Ø╱ // 0xf0e @0x11
0x0efd…0f28 at0012 = ╱47╱G╱ // 0xf0f @0x12
0x0efd…0f28 at0013 = ╱4c╱L╱ // 0xf10 @0x13
0x0efd…0f28 at0014 = ╱35╱5╱ // 0xf11 @0x14
0x0efd…0f28 at0015 = ╱b6╱ THEN ╱ // 0xf12 @0x15
0x0efd…0f28 at0016 = ╱50╱P╱ // 0xf13 @0x16
0x0efd…0f28 at0017 = ╱49╱I╱ // 0xf14 @0x17
0x0efd…0f28 at0018 = ╱4c╱L╱ // 0xf15 @0x18
0x0efd…0f28 at0019 = ╱36╱6╱ // 0xf16 @0x19
0x0efd…0f28 at001a = ╱dc╱=╱ // 0xf17 @0x1a
0x0efd…0f28 at001b = ╱50╱P╱ // 0xf18 @0x1b
0x0efd…0f28 at001c = ╱49╱I╱ // 0xf19 @0x1c
0x0efd…0f28 at001d = ╱4c╱L╱ // 0xf1a @0x1d
0x0efd…0f28 at001e = ╱36╱6╱ // 0xf1b @0x1e
0x0efd…0f28 at001f = ╱e3╱-╱ // 0xf1c @0x1f
0x0efd…0f28 at0020 = ╱45╱E╱ // 0xf1d @0x20
0x0efd…0f28 at0021 = ╱e4╱*╱ // 0xf1e @0x21
0x0efd…0f28 at0022 = ╱ed╱(╱ // 0xf1f @0x22
0x0efd…0f28 at0023 = ╱50╱P╱ // 0xf20 @0x23
0x0efd…0f28 at0024 = ╱49╱I╱ // 0xf21 @0x24
0x0efd…0f28 at0025 = ╱4c╱L╱ // 0xf22 @0x25
0x0efd…0f28 at0026 = ╱36╱6╱ // 0xf23 @0x26
0x0efd…0f28 at0027 = ╱de╱>╱ // 0xf24 @0x27
0x0efd…0f28 at0028 = ╱45╱E╱ // 0xf25 @0x28
0x0efd…0f28 at0029 = ╱ee╱)╱ // 0xf26 @0x29
0x0efd…0f28 at002a = EOL // 0xf27 @0x2a
0x0efd…0f28 }
0x0f28…0f3c 9c93 1620 PIL6=MANT4+PIL6
0x0f28…0f3c LineComalBin {
0x0f28…0f3c ptr = 0x9c93 // 0xf28 @0x0
0x0f28…0f3c lno = 0x0654 // 0xf2a @0x2
0x0f28…0f3c at0004 = ╱50╱P╱ // 0xf2c @0x4
0x0f28…0f3c at0005 = ╱49╱I╱ // 0xf2d @0x5
0x0f28…0f3c at0006 = ╱4c╱L╱ // 0xf2e @0x6
0x0f28…0f3c at0007 = ╱36╱6╱ // 0xf2f @0x7
0x0f28…0f3c at0008 = ╱dc╱=╱ // 0xf30 @0x8
0x0f28…0f3c at0009 = ╱4d╱M╱ // 0xf31 @0x9
0x0f28…0f3c at000a = ╱41╱A╱ // 0xf32 @0xa
0x0f28…0f3c at000b = ╱4e╱N╱ // 0xf33 @0xb
0x0f28…0f3c at000c = ╱54╱T╱ // 0xf34 @0xc
0x0f28…0f3c at000d = ╱34╱4╱ // 0xf35 @0xd
0x0f28…0f3c at000e = ╱e2╱+╱ // 0xf36 @0xe
0x0f28…0f3c at000f = ╱50╱P╱ // 0xf37 @0xf
0x0f28…0f3c at0010 = ╱49╱I╱ // 0xf38 @0x10
0x0f28…0f3c at0011 = ╱4c╱L╱ // 0xf39 @0x11
0x0f28…0f3c at0012 = ╱36╱6╱ // 0xf3a @0x12
0x0f28…0f3c at0013 = EOL // 0xf3b @0x13
0x0f28…0f3c }
0x0f3c…0f8c 9ce3 1630 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)
0x0f3c…0f8c LineComalBin {
0x0f3c…0f8c ptr = 0x9ce3 // 0xf3c @0x0
0x0f3c…0f8c lno = 0x065e // 0xf3e @0x2
0x0f3c…0f8c at0004 = ╱a9╱ GET ╱ // 0xf40 @0x4
0x0f3c…0f8c at0005 = ╱4c╱L╱ // 0xf41 @0x5
0x0f3c…0f8c at0006 = ╱38╱8╱ // 0xf42 @0x6
0x0f3c…0f8c at0007 = ╱ef╱$╱ // 0xf43 @0x7
0x0f3c…0f8c at0008 = ╱ec╱,╱ // 0xf44 @0x8
0x0f3c…0f8c at0009 = ╱50╱P╱ // 0xf45 @0x9
0x0f3c…0f8c at000a = ╱49╱I╱ // 0xf46 @0xa
0x0f3c…0f8c at000b = ╱4c╱L╱ // 0xf47 @0xb
0x0f3c…0f8c at000c = ╱36╱6╱ // 0xf48 @0xc
0x0f3c…0f8c at000d = ╱f0╱:╱ // 0xf49 @0xd
0x0f3c…0f8c at000e = ╱51╱Q╱ // 0xf4a @0xe
0x0f3c…0f8c at000f = ╱ed╱(╱ // 0xf4b @0xf
0x0f3c…0f8c at0010 = ╱45╱E╱ // 0xf4c @0x10
0x0f3c…0f8c at0011 = ╱ec╱,╱ // 0xf4d @0x11
0x0f3c…0f8c at0012 = ╱45╱E╱ // 0xf4e @0x12
0x0f3c…0f8c at0013 = ╱ee╱)╱ // 0xf4f @0x13
0x0f3c…0f8c at0014 = ╱ec╱,╱ // 0xf50 @0x14
0x0f3c…0f8c at0015 = ╱51╱Q╱ // 0xf51 @0x15
0x0f3c…0f8c at0016 = ╱ed╱(╱ // 0xf52 @0x16
0x0f3c…0f8c at0017 = ╱45╱E╱ // 0xf53 @0x17
0x0f3c…0f8c at0018 = ╱ec╱,╱ // 0xf54 @0x18
0x0f3c…0f8c at0019 = ╱47╱G╱ // 0xf55 @0x19
0x0f3c…0f8c at001a = ╱ee╱)╱ // 0xf56 @0x1a
0x0f3c…0f8c at001b = ╱ec╱,╱ // 0xf57 @0x1b
0x0f3c…0f8c at001c = ╱51╱Q╱ // 0xf58 @0x1c
0x0f3c…0f8c at001d = ╱ed╱(╱ // 0xf59 @0x1d
0x0f3c…0f8c at001e = ╱47╱G╱ // 0xf5a @0x1e
0x0f3c…0f8c at001f = ╱ec╱,╱ // 0xf5b @0x1f
0x0f3c…0f8c at0020 = ╱45╱E╱ // 0xf5c @0x20
0x0f3c…0f8c at0021 = ╱ee╱)╱ // 0xf5d @0x21
0x0f3c…0f8c at0022 = ╱ec╱,╱ // 0xf5e @0x22
0x0f3c…0f8c at0023 = ╱51╱Q╱ // 0xf5f @0x23
0x0f3c…0f8c at0024 = ╱ed╱(╱ // 0xf60 @0x24
0x0f3c…0f8c at0025 = ╱47╱G╱ // 0xf61 @0x25
0x0f3c…0f8c at0026 = ╱ec╱,╱ // 0xf62 @0x26
0x0f3c…0f8c at0027 = ╱47╱G╱ // 0xf63 @0x27
0x0f3c…0f8c at0028 = ╱ee╱)╱ // 0xf64 @0x28
0x0f3c…0f8c at0029 = ╱ec╱,╱ // 0xf65 @0x29
0x0f3c…0f8c at002a = ╱51╱Q╱ // 0xf66 @0x2a
0x0f3c…0f8c at002b = ╱ed╱(╱ // 0xf67 @0x2b
0x0f3c…0f8c at002c = ╱56╱V╱ // 0xf68 @0x2c
0x0f3c…0f8c at002d = ╱ec╱,╱ // 0xf69 @0x2d
0x0f3c…0f8c at002e = ╱45╱E╱ // 0xf6a @0x2e
0x0f3c…0f8c at002f = ╱ee╱)╱ // 0xf6b @0x2f
0x0f3c…0f8c at0030 = ╱ec╱,╱ // 0xf6c @0x30
0x0f3c…0f8c at0031 = ╱51╱Q╱ // 0xf6d @0x31
0x0f3c…0f8c at0032 = ╱ed╱(╱ // 0xf6e @0x32
0x0f3c…0f8c at0033 = ╱56╱V╱ // 0xf6f @0x33
0x0f3c…0f8c at0034 = ╱ec╱,╱ // 0xf70 @0x34
0x0f3c…0f8c at0035 = ╱47╱G╱ // 0xf71 @0x35
0x0f3c…0f8c at0036 = ╱ee╱)╱ // 0xf72 @0x36
0x0f3c…0f8c at0037 = ╱ec╱,╱ // 0xf73 @0x37
0x0f3c…0f8c at0038 = ╱51╱Q╱ // 0xf74 @0x38
0x0f3c…0f8c at0039 = ╱ed╱(╱ // 0xf75 @0x39
0x0f3c…0f8c at003a = ╱34╱4╱ // 0xf76 @0x3a
0x0f3c…0f8c at003b = ╱fe00008003╱ // 0xf77 @0x3b
0x0f3c…0f8c at0040 = ╱ec╱,╱ // 0xf7c @0x40
0x0f3c…0f8c at0041 = ╱45╱E╱ // 0xf7d @0x41
0x0f3c…0f8c at0042 = ╱ee╱)╱ // 0xf7e @0x42
0x0f3c…0f8c at0043 = ╱ec╱,╱ // 0xf7f @0x43
0x0f3c…0f8c at0044 = ╱51╱Q╱ // 0xf80 @0x44
0x0f3c…0f8c at0045 = ╱ed╱(╱ // 0xf81 @0x45
0x0f3c…0f8c at0046 = ╱34╱4╱ // 0xf82 @0x46
0x0f3c…0f8c at0047 = ╱fe00008003╱ // 0xf83 @0x47
0x0f3c…0f8c at004c = ╱ec╱,╱ // 0xf88 @0x4c
0x0f3c…0f8c at004d = ╱47╱G╱ // 0xf89 @0x4d
0x0f3c…0f8c at004e = ╱ee╱)╱ // 0xf8a @0x4e
0x0f3c…0f8c at004f = EOL // 0xf8b @0x4f
0x0f3c…0f8c }
0x0f8c…0f9f 9cf6 1640 EXEC FEJL(E,E,L8$)
0x0f8c…0f9f LineComalBin {
0x0f8c…0f9f ptr = 0x9cf6 // 0xf8c @0x0
0x0f8c…0f9f lno = 0x0668 // 0xf8e @0x2
0x0f8c…0f9f at0004 = ╱9d╱ EXEC ╱ // 0xf90 @0x4
0x0f8c…0f9f at0005 = ╱46╱F╱ // 0xf91 @0x5
0x0f8c…0f9f at0006 = ╱45╱E╱ // 0xf92 @0x6
0x0f8c…0f9f at0007 = ╱4a╱J╱ // 0xf93 @0x7
0x0f8c…0f9f at0008 = ╱4c╱L╱ // 0xf94 @0x8
0x0f8c…0f9f at0009 = ╱ed╱(╱ // 0xf95 @0x9
0x0f8c…0f9f at000a = ╱45╱E╱ // 0xf96 @0xa
0x0f8c…0f9f at000b = ╱ec╱,╱ // 0xf97 @0xb
0x0f8c…0f9f at000c = ╱45╱E╱ // 0xf98 @0xc
0x0f8c…0f9f at000d = ╱ec╱,╱ // 0xf99 @0xd
0x0f8c…0f9f at000e = ╱4c╱L╱ // 0xf9a @0xe
0x0f8c…0f9f at000f = ╱38╱8╱ // 0xf9b @0xf
0x0f8c…0f9f at0010 = ╱ef╱$╱ // 0xf9c @0x10
0x0f8c…0f9f at0011 = ╱ee╱)╱ // 0xf9d @0x11
0x0f8c…0f9f at0012 = EOL // 0xf9e @0x12
0x0f8c…0f9f }
0x0f9f…0fb2 9d09 1650 FOR PIL6=E TO 4
0x0f9f…0fb2 LineComalBin {
0x0f9f…0fb2 ptr = 0x9d09 // 0xf9f @0x0
0x0f9f…0fb2 lno = 0x0672 // 0xfa1 @0x2
0x0f9f…0fb2 at0004 = ╱83╱ FOR ╱ // 0xfa3 @0x4
0x0f9f…0fb2 at0005 = ╱50╱P╱ // 0xfa4 @0x5
0x0f9f…0fb2 at0006 = ╱49╱I╱ // 0xfa5 @0x6
0x0f9f…0fb2 at0007 = ╱4c╱L╱ // 0xfa6 @0x7
0x0f9f…0fb2 at0008 = ╱36╱6╱ // 0xfa7 @0x8
0x0f9f…0fb2 at0009 = ╱dc╱=╱ // 0xfa8 @0x9
0x0f9f…0fb2 at000a = ╱45╱E╱ // 0xfa9 @0xa
0x0f9f…0fb2 at000b = ╱b7╱ TO ╱ // 0xfaa @0xb
0x0f9f…0fb2 at000c = ╱34╱4╱ // 0xfab @0xc
0x0f9f…0fb2 at000d = ╱fe00008003╱ // 0xfac @0xd
0x0f9f…0fb2 at0012 = EOL // 0xfb1 @0x12
0x0f9f…0fb2 }
0x0fb2…0fc9 9d20 1660 IF NØGL5=Q(PIL6,E) THEN EXIT
0x0fb2…0fc9 LineComalBin {
0x0fb2…0fc9 ptr = 0x9d20 // 0xfb2 @0x0
0x0fb2…0fc9 lno = 0x067c // 0xfb4 @0x2
0x0fb2…0fc9 at0004 = ╱82╱ IF ╱ // 0xfb6 @0x4
0x0fb2…0fc9 at0005 = ╱4e╱N╱ // 0xfb7 @0x5
0x0fb2…0fc9 at0006 = ╱5c╱Ø╱ // 0xfb8 @0x6
0x0fb2…0fc9 at0007 = ╱47╱G╱ // 0xfb9 @0x7
0x0fb2…0fc9 at0008 = ╱4c╱L╱ // 0xfba @0x8
0x0fb2…0fc9 at0009 = ╱35╱5╱ // 0xfbb @0x9
0x0fb2…0fc9 at000a = ╱dc╱=╱ // 0xfbc @0xa
0x0fb2…0fc9 at000b = ╱51╱Q╱ // 0xfbd @0xb
0x0fb2…0fc9 at000c = ╱ed╱(╱ // 0xfbe @0xc
0x0fb2…0fc9 at000d = ╱50╱P╱ // 0xfbf @0xd
0x0fb2…0fc9 at000e = ╱49╱I╱ // 0xfc0 @0xe
0x0fb2…0fc9 at000f = ╱4c╱L╱ // 0xfc1 @0xf
0x0fb2…0fc9 at0010 = ╱36╱6╱ // 0xfc2 @0x10
0x0fb2…0fc9 at0011 = ╱ec╱,╱ // 0xfc3 @0x11
0x0fb2…0fc9 at0012 = ╱45╱E╱ // 0xfc4 @0x12
0x0fb2…0fc9 at0013 = ╱ee╱)╱ // 0xfc5 @0x13
0x0fb2…0fc9 at0014 = ╱b6╱ THEN ╱ // 0xfc6 @0x14
0x0fb2…0fc9 at0015 = ╱99╱ EXIT ╱ // 0xfc7 @0x15
0x0fb2…0fc9 at0016 = EOL // 0xfc8 @0x16
0x0fb2…0fc9 }
0x0fc9…0fd3 9d2a 1670 NEXT PIL6
0x0fc9…0fd3 LineComalBin {
0x0fc9…0fd3 ptr = 0x9d2a // 0xfc9 @0x0
0x0fc9…0fd3 lno = 0x0686 // 0xfcb @0x2
0x0fc9…0fd3 at0004 = ╱84╱ NEXT ╱ // 0xfcd @0x4
0x0fc9…0fd3 at0005 = ╱50╱P╱ // 0xfce @0x5
0x0fc9…0fd3 at0006 = ╱49╱I╱ // 0xfcf @0x6
0x0fc9…0fd3 at0007 = ╱4c╱L╱ // 0xfd0 @0x7
0x0fc9…0fd3 at0008 = ╱36╱6╱ // 0xfd1 @0x8
0x0fc9…0fd3 at0009 = EOL // 0xfd2 @0x9
0x0fc9…0fd3 }
0x0fd3…0feb 9d42 1680 IF PIL6<>5 THEN CEKS=B
0x0fd3…0feb LineComalBin {
0x0fd3…0feb ptr = 0x9d42 // 0xfd3 @0x0
0x0fd3…0feb lno = 0x0690 // 0xfd5 @0x2
0x0fd3…0feb at0004 = ╱82╱ IF ╱ // 0xfd7 @0x4
0x0fd3…0feb at0005 = ╱50╱P╱ // 0xfd8 @0x5
0x0fd3…0feb at0006 = ╱49╱I╱ // 0xfd9 @0x6
0x0fd3…0feb at0007 = ╱4c╱L╱ // 0xfda @0x7
0x0fd3…0feb at0008 = ╱36╱6╱ // 0xfdb @0x8
0x0fd3…0feb at0009 = ╱e1╱<>╱ // 0xfdc @0x9
0x0fd3…0feb at000a = ╱35╱5╱ // 0xfdd @0xa
0x0fd3…0feb at000b = ╱fe0000a003╱ // 0xfde @0xb
0x0fd3…0feb at0010 = ╱b6╱ THEN ╱ // 0xfe3 @0x10
0x0fd3…0feb at0011 = ╱43╱C╱ // 0xfe4 @0x11
0x0fd3…0feb at0012 = ╱45╱E╱ // 0xfe5 @0x12
0x0fd3…0feb at0013 = ╱4b╱K╱ // 0xfe6 @0x13
0x0fd3…0feb at0014 = ╱53╱S╱ // 0xfe7 @0x14
0x0fd3…0feb at0015 = ╱dc╱=╱ // 0xfe8 @0x15
0x0fd3…0feb at0016 = ╱42╱B╱ // 0xfe9 @0x16
0x0fd3…0feb at0017 = EOL // 0xfea @0x17
0x0fd3…0feb }
0x0feb…0ff1 9d48 1690 ENDPROC
0x0feb…0ff1 LineComalBin {
0x0feb…0ff1 ptr = 0x9d48 // 0xfeb @0x0
0x0feb…0ff1 lno = 0x069a // 0xfed @0x2
0x0feb…0ff1 at0004 = ╱9f╱ ENDPROC ╱ // 0xfef @0x4
0x0feb…0ff1 at0005 = EOL // 0xff0 @0x5
0x0feb…0ff1 }
0x0ff1…100a (53,) 9d61 1700 PROC INDTAB1(Z,MANT5,L7)
0x0ff1…100a LineComalBin {
0x0ff1…100a ptr = 0x9d61 // 0xff1 @0x0
0x0ff1…100a lno = 0x06a4 // 0xff3 @0x2
0x0ff1…100a at0004 = ╱9e╱ PROC ╱ // 0xff5 @0x4
0x0ff1…100a at0005 = ╱49╱I╱ // 0xff6 @0x5
0x0ff1…100a at0006 = ╱4e╱N╱ // 0xff7 @0x6
0x0ff1…100a at0007 = ╱44╱D╱ // 0xff8 @0x7
0x0ff1…100a at0008 = ╱54╱T╱ // 0xff9 @0x8
0x0ff1…100a at0009 = ╱41╱A╱ // 0xffa @0x9
0x0ff1…100a at000a = ╱42╱B╱ // 0xffb @0xa
0x0ff1…100a at000b = ╱31╱1╱ // 0xffc @0xb
0x0ff1…100a at000c = ╱ed╱(╱ // 0xffd @0xc
0x0ff1…100a at000d = ╱5a╱Z╱ // 0xffe @0xd
0x0ff1…100a at000e = ╱ec╱,╱ // 0xfff @0xe
0x0ff1…100a at000f = ╱4d╱M╱ // 0x1000 @0xf
0x0ff1…100a at0010 = ╱41╱A╱ // 0x1001 @0x10
0x0ff1…100a at0011 = ╱4e╱N╱ // 0x1002 @0x11
0x0ff1…100a at0012 = ╱54╱T╱ // 0x1003 @0x12
0x0ff1…100a at0013 = ╱35╱5╱ // 0x1004 @0x13
0x0ff1…100a at0014 = ╱ec╱,╱ // 0x1005 @0x14
0x0ff1…100a at0015 = ╱4c╱L╱ // 0x1006 @0x15
0x0ff1…100a at0016 = ╱37╱7╱ // 0x1007 @0x16
0x0ff1…100a at0017 = ╱ee╱)╱ // 0x1008 @0x17
0x0ff1…100a at0018 = EOL // 0x1009 @0x18
0x0ff1…100a }
0x100a…1021 9d78 1710 PIL1=MANT5 DIV 32
0x100a…1021 LineComalBin {
0x100a…1021 ptr = 0x9d78 // 0x100a @0x0
0x100a…1021 lno = 0x06ae // 0x100c @0x2
0x100a…1021 at0004 = ╱50╱P╱ // 0x100e @0x4
0x100a…1021 at0005 = ╱49╱I╱ // 0x100f @0x5
0x100a…1021 at0006 = ╱4c╱L╱ // 0x1010 @0x6
0x100a…1021 at0007 = ╱31╱1╱ // 0x1011 @0x7
0x100a…1021 at0008 = ╱dc╱=╱ // 0x1012 @0x8
0x100a…1021 at0009 = ╱4d╱M╱ // 0x1013 @0x9
0x100a…1021 at000a = ╱41╱A╱ // 0x1014 @0xa
0x100a…1021 at000b = ╱4e╱N╱ // 0x1015 @0xb
0x100a…1021 at000c = ╱54╱T╱ // 0x1016 @0xc
0x100a…1021 at000d = ╱35╱5╱ // 0x1017 @0xd
0x100a…1021 at000e = ╱e7╱ DIV ╱ // 0x1018 @0xe
0x100a…1021 at000f = ╱33╱3╱ // 0x1019 @0xf
0x100a…1021 at0010 = ╱32╱2╱ // 0x101a @0x10
0x100a…1021 at0011 = ╱fe00008006╱ // 0x101b @0x11
0x100a…1021 at0016 = EOL // 0x1020 @0x16
0x100a…1021 }
0x1021…102f 9d86 1720 FOR I=E TO PIL1
0x1021…102f LineComalBin {
0x1021…102f ptr = 0x9d86 // 0x1021 @0x0
0x1021…102f lno = 0x06b8 // 0x1023 @0x2
0x1021…102f at0004 = ╱83╱ FOR ╱ // 0x1025 @0x4
0x1021…102f at0005 = ╱49╱I╱ // 0x1026 @0x5
0x1021…102f at0006 = ╱dc╱=╱ // 0x1027 @0x6
0x1021…102f at0007 = ╱45╱E╱ // 0x1028 @0x7
0x1021…102f at0008 = ╱b7╱ TO ╱ // 0x1029 @0x8
0x1021…102f at0009 = ╱50╱P╱ // 0x102a @0x9
0x1021…102f at000a = ╱49╱I╱ // 0x102b @0xa
0x1021…102f at000b = ╱4c╱L╱ // 0x102c @0xb
0x1021…102f at000c = ╱31╱1╱ // 0x102d @0xc
0x1021…102f at000d = EOL // 0x102e @0xd
0x1021…102f }
0x102f…1044 9d9b 1730 H=(I-E)*8+E
0x102f…1044 LineComalBin {
0x102f…1044 ptr = 0x9d9b // 0x102f @0x0
0x102f…1044 lno = 0x06c2 // 0x1031 @0x2
0x102f…1044 at0004 = ╱48╱H╱ // 0x1033 @0x4
0x102f…1044 at0005 = ╱dc╱=╱ // 0x1034 @0x5
0x102f…1044 at0006 = ╱ed╱(╱ // 0x1035 @0x6
0x102f…1044 at0007 = ╱49╱I╱ // 0x1036 @0x7
0x102f…1044 at0008 = ╱e3╱-╱ // 0x1037 @0x8
0x102f…1044 at0009 = ╱45╱E╱ // 0x1038 @0x9
0x102f…1044 at000a = ╱ee╱)╱ // 0x1039 @0xa
0x102f…1044 at000b = ╱e4╱*╱ // 0x103a @0xb
0x102f…1044 at000c = ╱38╱8╱ // 0x103b @0xc
0x102f…1044 at000d = ╱fe00008004╱ // 0x103c @0xd
0x102f…1044 at0012 = ╱e2╱+╱ // 0x1041 @0x12
0x102f…1044 at0013 = ╱45╱E╱ // 0x1042 @0x13
0x102f…1044 at0014 = EOL // 0x1043 @0x14
0x102f…1044 }
0x1044…1099 9df0 1740 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)
0x1044…1099 LineComalBin {
0x1044…1099 ptr = 0x9df0 // 0x1044 @0x0
0x1044…1099 lno = 0x06cc // 0x1046 @0x2
0x1044…1099 at0004 = ╱a9╱ GET ╱ // 0x1048 @0x4
0x1044…1099 at0005 = ╱4c╱L╱ // 0x1049 @0x5
0x1044…1099 at0006 = ╱37╱7╱ // 0x104a @0x6
0x1044…1099 at0007 = ╱ef╱$╱ // 0x104b @0x7
0x1044…1099 at0008 = ╱ec╱,╱ // 0x104c @0x8
0x1044…1099 at0009 = ╱49╱I╱ // 0x104d @0x9
0x1044…1099 at000a = ╱f0╱:╱ // 0x104e @0xa
0x1044…1099 at000b = ╱5a╱Z╱ // 0x104f @0xb
0x1044…1099 at000c = ╱ed╱(╱ // 0x1050 @0xc
0x1044…1099 at000d = ╱48╱H╱ // 0x1051 @0xd
0x1044…1099 at000e = ╱ee╱)╱ // 0x1052 @0xe
0x1044…1099 at000f = ╱ec╱,╱ // 0x1053 @0xf
0x1044…1099 at0010 = ╱5a╱Z╱ // 0x1054 @0x10
0x1044…1099 at0011 = ╱ed╱(╱ // 0x1055 @0x11
0x1044…1099 at0012 = ╱48╱H╱ // 0x1056 @0x12
0x1044…1099 at0013 = ╱e2╱+╱ // 0x1057 @0x13
0x1044…1099 at0014 = ╱45╱E╱ // 0x1058 @0x14
0x1044…1099 at0015 = ╱ee╱)╱ // 0x1059 @0x15
0x1044…1099 at0016 = ╱ec╱,╱ // 0x105a @0x16
0x1044…1099 at0017 = ╱5a╱Z╱ // 0x105b @0x17
0x1044…1099 at0018 = ╱ed╱(╱ // 0x105c @0x18
0x1044…1099 at0019 = ╱48╱H╱ // 0x105d @0x19
0x1044…1099 at001a = ╱e2╱+╱ // 0x105e @0x1a
0x1044…1099 at001b = ╱47╱G╱ // 0x105f @0x1b
0x1044…1099 at001c = ╱ee╱)╱ // 0x1060 @0x1c
0x1044…1099 at001d = ╱ec╱,╱ // 0x1061 @0x1d
0x1044…1099 at001e = ╱5a╱Z╱ // 0x1062 @0x1e
0x1044…1099 at001f = ╱ed╱(╱ // 0x1063 @0x1f
0x1044…1099 at0020 = ╱48╱H╱ // 0x1064 @0x20
0x1044…1099 at0021 = ╱e2╱+╱ // 0x1065 @0x21
0x1044…1099 at0022 = ╱56╱V╱ // 0x1066 @0x22
0x1044…1099 at0023 = ╱ee╱)╱ // 0x1067 @0x23
0x1044…1099 at0024 = ╱ec╱,╱ // 0x1068 @0x24
0x1044…1099 at0025 = ╱5a╱Z╱ // 0x1069 @0x25
0x1044…1099 at0026 = ╱ed╱(╱ // 0x106a @0x26
0x1044…1099 at0027 = ╱48╱H╱ // 0x106b @0x27
0x1044…1099 at0028 = ╱e2╱+╱ // 0x106c @0x28
0x1044…1099 at0029 = ╱34╱4╱ // 0x106d @0x29
0x1044…1099 at002a = ╱fe00008003╱ // 0x106e @0x2a
0x1044…1099 at002f = ╱ee╱)╱ // 0x1073 @0x2f
0x1044…1099 at0030 = ╱ec╱,╱ // 0x1074 @0x30
0x1044…1099 at0031 = ╱5a╱Z╱ // 0x1075 @0x31
0x1044…1099 at0032 = ╱ed╱(╱ // 0x1076 @0x32
0x1044…1099 at0033 = ╱48╱H╱ // 0x1077 @0x33
0x1044…1099 at0034 = ╱e2╱+╱ // 0x1078 @0x34
0x1044…1099 at0035 = ╱35╱5╱ // 0x1079 @0x35
0x1044…1099 at0036 = ╱fe0000a003╱ // 0x107a @0x36
0x1044…1099 at003b = ╱ee╱)╱ // 0x107f @0x3b
0x1044…1099 at003c = ╱ec╱,╱ // 0x1080 @0x3c
0x1044…1099 at003d = ╱5a╱Z╱ // 0x1081 @0x3d
0x1044…1099 at003e = ╱ed╱(╱ // 0x1082 @0x3e
0x1044…1099 at003f = ╱48╱H╱ // 0x1083 @0x3f
0x1044…1099 at0040 = ╱e2╱+╱ // 0x1084 @0x40
0x1044…1099 at0041 = ╱36╱6╱ // 0x1085 @0x41
0x1044…1099 at0042 = ╱fe0000c003╱ // 0x1086 @0x42
0x1044…1099 at0047 = ╱ee╱)╱ // 0x108b @0x47
0x1044…1099 at0048 = ╱ec╱,╱ // 0x108c @0x48
0x1044…1099 at0049 = ╱5a╱Z╱ // 0x108d @0x49
0x1044…1099 at004a = ╱ed╱(╱ // 0x108e @0x4a
0x1044…1099 at004b = ╱48╱H╱ // 0x108f @0x4b
0x1044…1099 at004c = ╱e2╱+╱ // 0x1090 @0x4c
0x1044…1099 at004d = ╱37╱7╱ // 0x1091 @0x4d
0x1044…1099 at004e = ╱fe0000e003╱ // 0x1092 @0x4e
0x1044…1099 at0053 = ╱ee╱)╱ // 0x1097 @0x53
0x1044…1099 at0054 = EOL // 0x1098 @0x54
0x1044…1099 }
0x1099…10ac 9e03 1750 EXEC FEJL(G,E,L7$)
0x1099…10ac LineComalBin {
0x1099…10ac ptr = 0x9e03 // 0x1099 @0x0
0x1099…10ac lno = 0x06d6 // 0x109b @0x2
0x1099…10ac at0004 = ╱9d╱ EXEC ╱ // 0x109d @0x4
0x1099…10ac at0005 = ╱46╱F╱ // 0x109e @0x5
0x1099…10ac at0006 = ╱45╱E╱ // 0x109f @0x6
0x1099…10ac at0007 = ╱4a╱J╱ // 0x10a0 @0x7
0x1099…10ac at0008 = ╱4c╱L╱ // 0x10a1 @0x8
0x1099…10ac at0009 = ╱ed╱(╱ // 0x10a2 @0x9
0x1099…10ac at000a = ╱47╱G╱ // 0x10a3 @0xa
0x1099…10ac at000b = ╱ec╱,╱ // 0x10a4 @0xb
0x1099…10ac at000c = ╱45╱E╱ // 0x10a5 @0xc
0x1099…10ac at000d = ╱ec╱,╱ // 0x10a6 @0xd
0x1099…10ac at000e = ╱4c╱L╱ // 0x10a7 @0xe
0x1099…10ac at000f = ╱37╱7╱ // 0x10a8 @0xf
0x1099…10ac at0010 = ╱ef╱$╱ // 0x10a9 @0x10
0x1099…10ac at0011 = ╱ee╱)╱ // 0x10aa @0x11
0x1099…10ac at0012 = EOL // 0x10ab @0x12
0x1099…10ac }
0x10ac…10b3 9e0a 1760 NEXT I
0x10ac…10b3 LineComalBin {
0x10ac…10b3 ptr = 0x9e0a // 0x10ac @0x0
0x10ac…10b3 lno = 0x06e0 // 0x10ae @0x2
0x10ac…10b3 at0004 = ╱84╱ NEXT ╱ // 0x10b0 @0x4
0x10ac…10b3 at0005 = ╱49╱I╱ // 0x10b1 @0x5
0x10ac…10b3 at0006 = EOL // 0x10b2 @0x6
0x10ac…10b3 }
0x10b3…10b9 9e10 1770 ENDPROC
0x10b3…10b9 LineComalBin {
0x10b3…10b9 ptr = 0x9e10 // 0x10b3 @0x0
0x10b3…10b9 lno = 0x06ea // 0x10b5 @0x2
0x10b3…10b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x10b7 @0x4
0x10b3…10b9 at0005 = EOL // 0x10b8 @0x5
0x10b3…10b9 }
0x10b9…10d5 9e2c 1780 PROC LUDSKRIV(KT1,DA4,KSNR)
0x10b9…10d5 LineComalBin {
0x10b9…10d5 ptr = 0x9e2c // 0x10b9 @0x0
0x10b9…10d5 lno = 0x06f4 // 0x10bb @0x2
0x10b9…10d5 at0004 = ╱9e╱ PROC ╱ // 0x10bd @0x4
0x10b9…10d5 at0005 = ╱4c╱L╱ // 0x10be @0x5
0x10b9…10d5 at0006 = ╱55╱U╱ // 0x10bf @0x6
0x10b9…10d5 at0007 = ╱44╱D╱ // 0x10c0 @0x7
0x10b9…10d5 at0008 = ╱53╱S╱ // 0x10c1 @0x8
0x10b9…10d5 at0009 = ╱4b╱K╱ // 0x10c2 @0x9
0x10b9…10d5 at000a = ╱52╱R╱ // 0x10c3 @0xa
0x10b9…10d5 at000b = ╱49╱I╱ // 0x10c4 @0xb
0x10b9…10d5 at000c = ╱56╱V╱ // 0x10c5 @0xc
0x10b9…10d5 at000d = ╱ed╱(╱ // 0x10c6 @0xd
0x10b9…10d5 at000e = ╱4b╱K╱ // 0x10c7 @0xe
0x10b9…10d5 at000f = ╱54╱T╱ // 0x10c8 @0xf
0x10b9…10d5 at0010 = ╱31╱1╱ // 0x10c9 @0x10
0x10b9…10d5 at0011 = ╱ec╱,╱ // 0x10ca @0x11
0x10b9…10d5 at0012 = ╱44╱D╱ // 0x10cb @0x12
0x10b9…10d5 at0013 = ╱41╱A╱ // 0x10cc @0x13
0x10b9…10d5 at0014 = ╱34╱4╱ // 0x10cd @0x14
0x10b9…10d5 at0015 = ╱ec╱,╱ // 0x10ce @0x15
0x10b9…10d5 at0016 = ╱4b╱K╱ // 0x10cf @0x16
0x10b9…10d5 at0017 = ╱53╱S╱ // 0x10d0 @0x17
0x10b9…10d5 at0018 = ╱4e╱N╱ // 0x10d1 @0x18
0x10b9…10d5 at0019 = ╱52╱R╱ // 0x10d2 @0x19
0x10b9…10d5 at001a = ╱ee╱)╱ // 0x10d3 @0x1a
0x10b9…10d5 at001b = EOL // 0x10d4 @0x1b
0x10b9…10d5 }
0x10d5…10eb 9e42 1790 EXEC DATOUD(DA4,DA5$)
0x10d5…10eb LineComalBin {
0x10d5…10eb ptr = 0x9e42 // 0x10d5 @0x0
0x10d5…10eb lno = 0x06fe // 0x10d7 @0x2
0x10d5…10eb at0004 = ╱9d╱ EXEC ╱ // 0x10d9 @0x4
0x10d5…10eb at0005 = ╱44╱D╱ // 0x10da @0x5
0x10d5…10eb at0006 = ╱41╱A╱ // 0x10db @0x6
0x10d5…10eb at0007 = ╱54╱T╱ // 0x10dc @0x7
0x10d5…10eb at0008 = ╱4f╱O╱ // 0x10dd @0x8
0x10d5…10eb at0009 = ╱55╱U╱ // 0x10de @0x9
0x10d5…10eb at000a = ╱44╱D╱ // 0x10df @0xa
0x10d5…10eb at000b = ╱ed╱(╱ // 0x10e0 @0xb
0x10d5…10eb at000c = ╱44╱D╱ // 0x10e1 @0xc
0x10d5…10eb at000d = ╱41╱A╱ // 0x10e2 @0xd
0x10d5…10eb at000e = ╱34╱4╱ // 0x10e3 @0xe
0x10d5…10eb at000f = ╱ec╱,╱ // 0x10e4 @0xf
0x10d5…10eb at0010 = ╱44╱D╱ // 0x10e5 @0x10
0x10d5…10eb at0011 = ╱41╱A╱ // 0x10e6 @0x11
0x10d5…10eb at0012 = ╱35╱5╱ // 0x10e7 @0x12
0x10d5…10eb at0013 = ╱ef╱$╱ // 0x10e8 @0x13
0x10d5…10eb at0014 = ╱ee╱)╱ // 0x10e9 @0x14
0x10d5…10eb at0015 = EOL // 0x10ea @0x15
0x10d5…10eb }
0x10eb…10fb 9e52 1800 KSNR=KSNR+E
0x10eb…10fb LineComalBin {
0x10eb…10fb ptr = 0x9e52 // 0x10eb @0x0
0x10eb…10fb lno = 0x0708 // 0x10ed @0x2
0x10eb…10fb at0004 = ╱4b╱K╱ // 0x10ef @0x4
0x10eb…10fb at0005 = ╱53╱S╱ // 0x10f0 @0x5
0x10eb…10fb at0006 = ╱4e╱N╱ // 0x10f1 @0x6
0x10eb…10fb at0007 = ╱52╱R╱ // 0x10f2 @0x7
0x10eb…10fb at0008 = ╱dc╱=╱ // 0x10f3 @0x8
0x10eb…10fb at0009 = ╱4b╱K╱ // 0x10f4 @0x9
0x10eb…10fb at000a = ╱53╱S╱ // 0x10f5 @0xa
0x10eb…10fb at000b = ╱4e╱N╱ // 0x10f6 @0xb
0x10eb…10fb at000c = ╱52╱R╱ // 0x10f7 @0xc
0x10eb…10fb at000d = ╱e2╱+╱ // 0x10f8 @0xd
0x10eb…10fb at000e = ╱45╱E╱ // 0x10f9 @0xe
0x10eb…10fb at000f = EOL // 0x10fa @0xf
0x10eb…10fb }
0x10fb…112b 9e82 1810 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69);
0x10fb…112b LineComalBin {
0x10fb…112b ptr = 0x9e82 // 0x10fb @0x0
0x10fb…112b lno = 0x0712 // 0x10fd @0x2
0x10fb…112b at0004 = ╱92╱ PRINT ╱ // 0x10ff @0x4
0x10fb…112b at0005 = ╱d2╱TAB╱ // 0x1100 @0x5
0x10fb…112b at0006 = ╱ed╱(╱ // 0x1101 @0x6
0x10fb…112b at0007 = ╱34╱4╱ // 0x1102 @0x7
0x10fb…112b at0008 = ╱38╱8╱ // 0x1103 @0x8
0x10fb…112b at0009 = ╱fe0000c006╱ // 0x1104 @0x9
0x10fb…112b at000e = ╱ee╱)╱ // 0x1109 @0xe
0x10fb…112b at000f = ╱eb╱;╱ // 0x110a @0xf
0x10fb…112b at0010 = ╱4b╱K╱ // 0x110b @0x10
0x10fb…112b at0011 = ╱54╱T╱ // 0x110c @0x11
0x10fb…112b at0012 = ╱31╱1╱ // 0x110d @0x12
0x10fb…112b at0013 = ╱eb╱;╱ // 0x110e @0x13
0x10fb…112b at0014 = ╱d2╱TAB╱ // 0x110f @0x14
0x10fb…112b at0015 = ╱ed╱(╱ // 0x1110 @0x15
0x10fb…112b at0016 = ╱35╱5╱ // 0x1111 @0x16
0x10fb…112b at0017 = ╱36╱6╱ // 0x1112 @0x17
0x10fb…112b at0018 = ╱fe0000e006╱ // 0x1113 @0x18
0x10fb…112b at001d = ╱ee╱)╱ // 0x1118 @0x1d
0x10fb…112b at001e = ╱eb╱;╱ // 0x1119 @0x1e
0x10fb…112b at001f = ╱44╱D╱ // 0x111a @0x1f
0x10fb…112b at0020 = ╱41╱A╱ // 0x111b @0x20
0x10fb…112b at0021 = ╱35╱5╱ // 0x111c @0x21
0x10fb…112b at0022 = ╱ef╱$╱ // 0x111d @0x22
0x10fb…112b at0023 = ╱eb╱;╱ // 0x111e @0x23
0x10fb…112b at0024 = ╱d2╱TAB╱ // 0x111f @0x24
0x10fb…112b at0025 = ╱ed╱(╱ // 0x1120 @0x25
0x10fb…112b at0026 = ╱36╱6╱ // 0x1121 @0x26
0x10fb…112b at0027 = ╱39╱9╱ // 0x1122 @0x27
0x10fb…112b at0028 = ╱fe00008a07╱ // 0x1123 @0x28
0x10fb…112b at002d = ╱ee╱)╱ // 0x1128 @0x2d
0x10fb…112b at002e = ╱eb╱;╱ // 0x1129 @0x2e
0x10fb…112b at002f = EOL // 0x112a @0x2f
0x10fb…112b }
0x112b…113b 9e92 1820 PRINT USING "##":KSNR
0x112b…113b LineComalBin {
0x112b…113b ptr = 0x9e92 // 0x112b @0x0
0x112b…113b lno = 0x071c // 0x112d @0x2
0x112b…113b at0004 = ╱92╱ PRINT ╱ // 0x112f @0x4
0x112b…113b at0005 = ╱b9╱ USING ╱ // 0x1130 @0x5
0x112b…113b at0006 = ╱22╱"╱ // 0x1131 @0x6
0x112b…113b at0007 = ╱23╱#╱ // 0x1132 @0x7
0x112b…113b at0008 = ╱23╱#╱ // 0x1133 @0x8
0x112b…113b at0009 = ╱22╱"╱ // 0x1134 @0x9
0x112b…113b at000a = ╱f0╱:╱ // 0x1135 @0xa
0x112b…113b at000b = ╱4b╱K╱ // 0x1136 @0xb
0x112b…113b at000c = ╱53╱S╱ // 0x1137 @0xc
0x112b…113b at000d = ╱4e╱N╱ // 0x1138 @0xd
0x112b…113b at000e = ╱52╱R╱ // 0x1139 @0xe
0x112b…113b at000f = EOL // 0x113a @0xf
0x112b…113b }
0x113b…1141 9e98 1830 ENDPROC
0x113b…1141 LineComalBin {
0x113b…1141 ptr = 0x9e98 // 0x113b @0x0
0x113b…1141 lno = 0x0726 // 0x113d @0x2
0x113b…1141 at0004 = ╱9f╱ ENDPROC ╱ // 0x113f @0x4
0x113b…1141 at0005 = EOL // 0x1140 @0x5
0x113b…1141 }
0x1141…1168 9ebf 1840 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,LNR)
0x1141…1168 LineComalBin {
0x1141…1168 ptr = 0x9ebf // 0x1141 @0x0
0x1141…1168 lno = 0x0730 // 0x1143 @0x2
0x1141…1168 at0004 = ╱9e╱ PROC ╱ // 0x1145 @0x4
0x1141…1168 at0005 = ╱42╱B╱ // 0x1146 @0x5
0x1141…1168 at0006 = ╱55╱U╱ // 0x1147 @0x6
0x1141…1168 at0007 = ╱44╱D╱ // 0x1148 @0x7
0x1141…1168 at0008 = ╱53╱S╱ // 0x1149 @0x8
0x1141…1168 at0009 = ╱4b╱K╱ // 0x114a @0x9
0x1141…1168 at000a = ╱52╱R╱ // 0x114b @0xa
0x1141…1168 at000b = ╱49╱I╱ // 0x114c @0xb
0x1141…1168 at000c = ╱56╱V╱ // 0x114d @0xc
0x1141…1168 at000d = ╱ed╱(╱ // 0x114e @0xd
0x1141…1168 at000e = ╱4d╱M╱ // 0x114f @0xe
0x1141…1168 at000f = ╱4b╱K╱ // 0x1150 @0xf
0x1141…1168 at0010 = ╱5c╱Ø╱ // 0x1151 @0x10
0x1141…1168 at0011 = ╱42╱B╱ // 0x1152 @0x11
0x1141…1168 at0012 = ╱ec╱,╱ // 0x1153 @0x12
0x1141…1168 at0013 = ╱4d╱M╱ // 0x1154 @0x13
0x1141…1168 at0014 = ╱4b╱K╱ // 0x1155 @0x14
0x1141…1168 at0015 = ╱ec╱,╱ // 0x1156 @0x15
0x1141…1168 at0016 = ╱53╱S╱ // 0x1157 @0x16
0x1141…1168 at0017 = ╱55╱U╱ // 0x1158 @0x17
0x1141…1168 at0018 = ╱32╱2╱ // 0x1159 @0x18
0x1141…1168 at0019 = ╱ec╱,╱ // 0x115a @0x19
0x1141…1168 at001a = ╱44╱D╱ // 0x115b @0x1a
0x1141…1168 at001b = ╱53╱S╱ // 0x115c @0x1b
0x1141…1168 at001c = ╱31╱1╱ // 0x115d @0x1c
0x1141…1168 at001d = ╱ec╱,╱ // 0x115e @0x1d
0x1141…1168 at001e = ╱44╱D╱ // 0x115f @0x1e
0x1141…1168 at001f = ╱53╱S╱ // 0x1160 @0x1f
0x1141…1168 at0020 = ╱32╱2╱ // 0x1161 @0x20
0x1141…1168 at0021 = ╱ec╱,╱ // 0x1162 @0x21
0x1141…1168 at0022 = ╱4c╱L╱ // 0x1163 @0x22
0x1141…1168 at0023 = ╱4e╱N╱ // 0x1164 @0x23
0x1141…1168 at0024 = ╱52╱R╱ // 0x1165 @0x24
0x1141…1168 at0025 = ╱ee╱)╱ // 0x1166 @0x25
0x1141…1168 at0026 = EOL // 0x1167 @0x26
0x1141…1168 }
0x1168…118b 9ee2 1850 IF MK<>G THEN EXEC LINIER(LNR,24,LNR)
0x1168…118b LineComalBin {
0x1168…118b ptr = 0x9ee2 // 0x1168 @0x0
0x1168…118b lno = 0x073a // 0x116a @0x2
0x1168…118b at0004 = ╱82╱ IF ╱ // 0x116c @0x4
0x1168…118b at0005 = ╱4d╱M╱ // 0x116d @0x5
0x1168…118b at0006 = ╱4b╱K╱ // 0x116e @0x6
0x1168…118b at0007 = ╱e1╱<>╱ // 0x116f @0x7
0x1168…118b at0008 = ╱47╱G╱ // 0x1170 @0x8
0x1168…118b at0009 = ╱b6╱ THEN ╱ // 0x1171 @0x9
0x1168…118b at000a = ╱9d╱ EXEC ╱ // 0x1172 @0xa
0x1168…118b at000b = ╱4c╱L╱ // 0x1173 @0xb
0x1168…118b at000c = ╱49╱I╱ // 0x1174 @0xc
0x1168…118b at000d = ╱4e╱N╱ // 0x1175 @0xd
0x1168…118b at000e = ╱49╱I╱ // 0x1176 @0xe
0x1168…118b at000f = ╱45╱E╱ // 0x1177 @0xf
0x1168…118b at0010 = ╱52╱R╱ // 0x1178 @0x10
0x1168…118b at0011 = ╱ed╱(╱ // 0x1179 @0x11
0x1168…118b at0012 = ╱4c╱L╱ // 0x117a @0x12
0x1168…118b at0013 = ╱4e╱N╱ // 0x117b @0x13
0x1168…118b at0014 = ╱52╱R╱ // 0x117c @0x14
0x1168…118b at0015 = ╱ec╱,╱ // 0x117d @0x15
0x1168…118b at0016 = ╱32╱2╱ // 0x117e @0x16
0x1168…118b at0017 = ╱34╱4╱ // 0x117f @0x17
0x1168…118b at0018 = ╱fe0000c005╱ // 0x1180 @0x18
0x1168…118b at001d = ╱ec╱,╱ // 0x1185 @0x1d
0x1168…118b at001e = ╱4c╱L╱ // 0x1186 @0x1e
0x1168…118b at001f = ╱4e╱N╱ // 0x1187 @0x1f
0x1168…118b at0020 = ╱52╱R╱ // 0x1188 @0x20
0x1168…118b at0021 = ╱ee╱)╱ // 0x1189 @0x21
0x1168…118b at0022 = EOL // 0x118a @0x22
0x1168…118b }
0x118b…119d 9ef4 1860 IF MK<>G THEN PRINT STREG$
0x118b…119d LineComalBin {
0x118b…119d ptr = 0x9ef4 // 0x118b @0x0
0x118b…119d lno = 0x0744 // 0x118d @0x2
0x118b…119d at0004 = ╱82╱ IF ╱ // 0x118f @0x4
0x118b…119d at0005 = ╱4d╱M╱ // 0x1190 @0x5
0x118b…119d at0006 = ╱4b╱K╱ // 0x1191 @0x6
0x118b…119d at0007 = ╱e1╱<>╱ // 0x1192 @0x7
0x118b…119d at0008 = ╱47╱G╱ // 0x1193 @0x8
0x118b…119d at0009 = ╱b6╱ THEN ╱ // 0x1194 @0x9
0x118b…119d at000a = ╱92╱ PRINT ╱ // 0x1195 @0xa
0x118b…119d at000b = ╱53╱S╱ // 0x1196 @0xb
0x118b…119d at000c = ╱54╱T╱ // 0x1197 @0xc
0x118b…119d at000d = ╱52╱R╱ // 0x1198 @0xd
0x118b…119d at000e = ╱45╱E╱ // 0x1199 @0xe
0x118b…119d at000f = ╱47╱G╱ // 0x119a @0xf
0x118b…119d at0010 = ╱ef╱$╱ // 0x119b @0x10
0x118b…119d at0011 = EOL // 0x119c @0x11
0x118b…119d }
0x119d…11a7 9efe 1870 CASE MK OF
0x119d…11a7 LineComalBin {
0x119d…11a7 ptr = 0x9efe // 0x119d @0x0
0x119d…11a7 lno = 0x074e // 0x119f @0x2
0x119d…11a7 at0004 = ╱a201╱ CASE ╱ // 0x11a1 @0x4
0x119d…11a7 at0006 = ╱4d╱M╱ // 0x11a3 @0x6
0x119d…11a7 at0007 = ╱4b╱K╱ // 0x11a4 @0x7
0x119d…11a7 at0008 = ╱ba╱ OF ╱ // 0x11a5 @0x8
0x119d…11a7 at0009 = EOL // 0x11a6 @0x9
0x119d…11a7 }
0x11a7…11ad 9f04 1880 STOP
0x11a7…11ad LineComalBin {
0x11a7…11ad ptr = 0x9f04 // 0x11a7 @0x0
0x11a7…11ad lno = 0x0758 // 0x11a9 @0x2
0x11a7…11ad at0004 = ╱8d╱ STOP ╱ // 0x11ab @0x4
0x11a7…11ad at0005 = EOL // 0x11ac @0x5
0x11a7…11ad }
0x11ad…11b7 9f0e 1890 WHEN E,G
0x11ad…11b7 LineComalBin {
0x11ad…11b7 ptr = 0x9f0e // 0x11ad @0x0
0x11ad…11b7 lno = 0x0762 // 0x11af @0x2
0x11ad…11b7 at0004 = ╱a301╱ WHEN ╱ // 0x11b1 @0x4
0x11ad…11b7 at0006 = ╱45╱E╱ // 0x11b3 @0x6
0x11ad…11b7 at0007 = ╱ec╱,╱ // 0x11b4 @0x7
0x11ad…11b7 at0008 = ╱47╱G╱ // 0x11b5 @0x8
0x11ad…11b7 at0009 = EOL // 0x11b6 @0x9
0x11ad…11b7 }
0x11b7…11d4 9f2b 1900 PRINT TAB(32);"Transport";
0x11b7…11d4 LineComalBin {
0x11b7…11d4 ptr = 0x9f2b // 0x11b7 @0x0
0x11b7…11d4 lno = 0x076c // 0x11b9 @0x2
0x11b7…11d4 at0004 = ╱92╱ PRINT ╱ // 0x11bb @0x4
0x11b7…11d4 at0005 = ╱d2╱TAB╱ // 0x11bc @0x5
0x11b7…11d4 at0006 = ╱ed╱(╱ // 0x11bd @0x6
0x11b7…11d4 at0007 = ╱33╱3╱ // 0x11be @0x7
0x11b7…11d4 at0008 = ╱32╱2╱ // 0x11bf @0x8
0x11b7…11d4 at0009 = ╱fe00008006╱ // 0x11c0 @0x9
0x11b7…11d4 at000e = ╱ee╱)╱ // 0x11c5 @0xe
0x11b7…11d4 at000f = ╱eb╱;╱ // 0x11c6 @0xf
0x11b7…11d4 at0010 = ╱22╱"╱ // 0x11c7 @0x10
0x11b7…11d4 at0011 = ╱54╱T╱ // 0x11c8 @0x11
0x11b7…11d4 at0012 = ╱72╱r╱ // 0x11c9 @0x12
0x11b7…11d4 at0013 = ╱61╱a╱ // 0x11ca @0x13
0x11b7…11d4 at0014 = ╱6e╱n╱ // 0x11cb @0x14
0x11b7…11d4 at0015 = ╱73╱s╱ // 0x11cc @0x15
0x11b7…11d4 at0016 = ╱70╱p╱ // 0x11cd @0x16
0x11b7…11d4 at0017 = ╱6f╱o╱ // 0x11ce @0x17
0x11b7…11d4 at0018 = ╱72╱r╱ // 0x11cf @0x18
0x11b7…11d4 at0019 = ╱74╱t╱ // 0x11d0 @0x19
0x11b7…11d4 at001a = ╱22╱"╱ // 0x11d1 @0x1a
0x11b7…11d4 at001b = ╱eb╱;╱ // 0x11d2 @0x1b
0x11b7…11d4 at001c = EOL // 0x11d3 @0x1c
0x11b7…11d4 }
0x11d4…11dc 9f33 1910 WHEN B
0x11d4…11dc LineComalBin {
0x11d4…11dc ptr = 0x9f33 // 0x11d4 @0x0
0x11d4…11dc lno = 0x0776 // 0x11d6 @0x2
0x11d4…11dc at0004 = ╱a301╱ WHEN ╱ // 0x11d8 @0x4
0x11d4…11dc at0006 = ╱42╱B╱ // 0x11da @0x6
0x11d4…11dc at0007 = EOL // 0x11db @0x7
0x11d4…11dc }
0x11dc…120d 9f64 1920 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15)
0x11dc…120d LineComalBin {
0x11dc…120d ptr = 0x9f64 // 0x11dc @0x0
0x11dc…120d lno = 0x0780 // 0x11de @0x2
0x11dc…120d at0004 = ╱92╱ PRINT ╱ // 0x11e0 @0x4
0x11dc…120d at0005 = ╱d2╱TAB╱ // 0x11e1 @0x5
0x11dc…120d at0006 = ╱ed╱(╱ // 0x11e2 @0x6
0x11dc…120d at0007 = ╱35╱5╱ // 0x11e3 @0x7
0x11dc…120d at0008 = ╱37╱7╱ // 0x11e4 @0x8
0x11dc…120d at0009 = ╱fe0000e406╱ // 0x11e5 @0x9
0x11dc…120d at000e = ╱ee╱)╱ // 0x11ea @0xe
0x11dc…120d at000f = ╱eb╱;╱ // 0x11eb @0xf
0x11dc…120d at0010 = ╱cf╱CHR╱ // 0x11ec @0x10
0x11dc…120d at0011 = ╱ed╱(╱ // 0x11ed @0x11
0x11dc…120d at0012 = ╱31╱1╱ // 0x11ee @0x12
0x11dc…120d at0013 = ╱34╱4╱ // 0x11ef @0x13
0x11dc…120d at0014 = ╱fe0000e004╱ // 0x11f0 @0x14
0x11dc…120d at0019 = ╱ee╱)╱ // 0x11f5 @0x19
0x11dc…120d at001a = ╱eb╱;╱ // 0x11f6 @0x1a
0x11dc…120d at001b = ╱22╱"╱ // 0x11f7 @0x1b
0x11dc…120d at001c = ╱4e╱N╱ // 0x11f8 @0x1c
0x11dc…120d at001d = ╱79╱y╱ // 0x11f9 @0x1d
0x11dc…120d at001e = ╱20╱…╱ // 0x11fa @0x1e
0x11dc…120d at001f = ╱73╱s╱ // 0x11fb @0x1f
0x11dc…120d at0020 = ╱61╱a╱ // 0x11fc @0x20
0x11dc…120d at0021 = ╱6c╱l╱ // 0x11fd @0x21
0x11dc…120d at0022 = ╱64╱d╱ // 0x11fe @0x22
0x11dc…120d at0023 = ╱6f╱o╱ // 0x11ff @0x23
0x11dc…120d at0024 = ╱22╱"╱ // 0x1200 @0x24
0x11dc…120d at0025 = ╱eb╱;╱ // 0x1201 @0x25
0x11dc…120d at0026 = ╱cf╱CHR╱ // 0x1202 @0x26
0x11dc…120d at0027 = ╱ed╱(╱ // 0x1203 @0x27
0x11dc…120d at0028 = ╱31╱1╱ // 0x1204 @0x28
0x11dc…120d at0029 = ╱35╱5╱ // 0x1205 @0x29
0x11dc…120d at002a = ╱fe0000f004╱ // 0x1206 @0x2a
0x11dc…120d at002f = ╱ee╱)╱ // 0x120b @0x2f
0x11dc…120d at0030 = EOL // 0x120c @0x30
0x11dc…120d }
0x120d…1219 9f70 1930 PRINT STREG$
0x120d…1219 LineComalBin {
0x120d…1219 ptr = 0x9f70 // 0x120d @0x0
0x120d…1219 lno = 0x078a // 0x120f @0x2
0x120d…1219 at0004 = ╱92╱ PRINT ╱ // 0x1211 @0x4
0x120d…1219 at0005 = ╱53╱S╱ // 0x1212 @0x5
0x120d…1219 at0006 = ╱54╱T╱ // 0x1213 @0x6
0x120d…1219 at0007 = ╱52╱R╱ // 0x1214 @0x7
0x120d…1219 at0008 = ╱45╱E╱ // 0x1215 @0x8
0x120d…1219 at0009 = ╱47╱G╱ // 0x1216 @0x9
0x120d…1219 at000a = ╱ef╱$╱ // 0x1217 @0xa
0x120d…1219 at000b = EOL // 0x1218 @0xb
0x120d…1219 }
0x1219…121f 9f76 1940 ENDCASE
0x1219…121f LineComalBin {
0x1219…121f ptr = 0x9f76 // 0x1219 @0x0
0x1219…121f lno = 0x0794 // 0x121b @0x2
0x1219…121f at0004 = ╱a4╱ ENDCASE ╱ // 0x121d @0x4
0x1219…121f at0005 = EOL // 0x121e @0x5
0x1219…121f }
0x121f…123a 9f91 1950 EXEC TUD(SU2$,UBELØB$,B,B)
0x121f…123a LineComalBin {
0x121f…123a ptr = 0x9f91 // 0x121f @0x0
0x121f…123a lno = 0x079e // 0x1221 @0x2
0x121f…123a at0004 = ╱9d╱ EXEC ╱ // 0x1223 @0x4
0x121f…123a at0005 = ╱54╱T╱ // 0x1224 @0x5
0x121f…123a at0006 = ╱55╱U╱ // 0x1225 @0x6
0x121f…123a at0007 = ╱44╱D╱ // 0x1226 @0x7
0x121f…123a at0008 = ╱ed╱(╱ // 0x1227 @0x8
0x121f…123a at0009 = ╱53╱S╱ // 0x1228 @0x9
0x121f…123a at000a = ╱55╱U╱ // 0x1229 @0xa
0x121f…123a at000b = ╱32╱2╱ // 0x122a @0xb
0x121f…123a at000c = ╱ef╱$╱ // 0x122b @0xc
0x121f…123a at000d = ╱ec╱,╱ // 0x122c @0xd
0x121f…123a at000e = ╱55╱U╱ // 0x122d @0xe
0x121f…123a at000f = ╱42╱B╱ // 0x122e @0xf
0x121f…123a at0010 = ╱45╱E╱ // 0x122f @0x10
0x121f…123a at0011 = ╱4c╱L╱ // 0x1230 @0x11
0x121f…123a at0012 = ╱5c╱Ø╱ // 0x1231 @0x12
0x121f…123a at0013 = ╱42╱B╱ // 0x1232 @0x13
0x121f…123a at0014 = ╱ef╱$╱ // 0x1233 @0x14
0x121f…123a at0015 = ╱ec╱,╱ // 0x1234 @0x15
0x121f…123a at0016 = ╱42╱B╱ // 0x1235 @0x16
0x121f…123a at0017 = ╱ec╱,╱ // 0x1236 @0x17
0x121f…123a at0018 = ╱42╱B╱ // 0x1237 @0x18
0x121f…123a at0019 = ╱ee╱)╱ // 0x1238 @0x19
0x121f…123a at001a = EOL // 0x1239 @0x1a
0x121f…123a }
0x123a…126e 9fc5 1960 PRINT TAB(51+15*(SU2$(LEN(SU2$))="-"));UBELØB$
0x123a…126e LineComalBin {
0x123a…126e ptr = 0x9fc5 // 0x123a @0x0
0x123a…126e lno = 0x07a8 // 0x123c @0x2
0x123a…126e at0004 = ╱92╱ PRINT ╱ // 0x123e @0x4
0x123a…126e at0005 = ╱d2╱TAB╱ // 0x123f @0x5
0x123a…126e at0006 = ╱ed╱(╱ // 0x1240 @0x6
0x123a…126e at0007 = ╱35╱5╱ // 0x1241 @0x7
0x123a…126e at0008 = ╱31╱1╱ // 0x1242 @0x8
0x123a…126e at0009 = ╱fe0000cc06╱ // 0x1243 @0x9
0x123a…126e at000e = ╱e2╱+╱ // 0x1248 @0xe
0x123a…126e at000f = ╱31╱1╱ // 0x1249 @0xf
0x123a…126e at0010 = ╱35╱5╱ // 0x124a @0x10
0x123a…126e at0011 = ╱fe0000f004╱ // 0x124b @0x11
0x123a…126e at0016 = ╱e4╱*╱ // 0x1250 @0x16
0x123a…126e at0017 = ╱ed╱(╱ // 0x1251 @0x17
0x123a…126e at0018 = ╱53╱S╱ // 0x1252 @0x18
0x123a…126e at0019 = ╱55╱U╱ // 0x1253 @0x19
0x123a…126e at001a = ╱32╱2╱ // 0x1254 @0x1a
0x123a…126e at001b = ╱ef╱$╱ // 0x1255 @0x1b
0x123a…126e at001c = ╱ed╱(╱ // 0x1256 @0x1c
0x123a…126e at001d = ╱cc╱LEN╱ // 0x1257 @0x1d
0x123a…126e at001e = ╱ed╱(╱ // 0x1258 @0x1e
0x123a…126e at001f = ╱53╱S╱ // 0x1259 @0x1f
0x123a…126e at0020 = ╱55╱U╱ // 0x125a @0x20
0x123a…126e at0021 = ╱32╱2╱ // 0x125b @0x21
0x123a…126e at0022 = ╱ef╱$╱ // 0x125c @0x22
0x123a…126e at0023 = ╱ee╱)╱ // 0x125d @0x23
0x123a…126e at0024 = ╱ee╱)╱ // 0x125e @0x24
0x123a…126e at0025 = ╱dc╱=╱ // 0x125f @0x25
0x123a…126e at0026 = ╱22╱"╱ // 0x1260 @0x26
0x123a…126e at0027 = ╱2d╱-╱ // 0x1261 @0x27
0x123a…126e at0028 = ╱22╱"╱ // 0x1262 @0x28
0x123a…126e at0029 = ╱ee╱)╱ // 0x1263 @0x29
0x123a…126e at002a = ╱ee╱)╱ // 0x1264 @0x2a
0x123a…126e at002b = ╱eb╱;╱ // 0x1265 @0x2b
0x123a…126e at002c = ╱55╱U╱ // 0x1266 @0x2c
0x123a…126e at002d = ╱42╱B╱ // 0x1267 @0x2d
0x123a…126e at002e = ╱45╱E╱ // 0x1268 @0x2e
0x123a…126e at002f = ╱4c╱L╱ // 0x1269 @0x2f
0x123a…126e at0030 = ╱5c╱Ø╱ // 0x126a @0x30
0x123a…126e at0031 = ╱42╱B╱ // 0x126b @0x31
0x123a…126e at0032 = ╱ef╱$╱ // 0x126c @0x32
0x123a…126e at0033 = EOL // 0x126d @0x33
0x123a…126e }
0x126e…1280 9fd7 1970 IF MK<>G THEN PRINT STREG$
0x126e…1280 LineComalBin {
0x126e…1280 ptr = 0x9fd7 // 0x126e @0x0
0x126e…1280 lno = 0x07b2 // 0x1270 @0x2
0x126e…1280 at0004 = ╱82╱ IF ╱ // 0x1272 @0x4
0x126e…1280 at0005 = ╱4d╱M╱ // 0x1273 @0x5
0x126e…1280 at0006 = ╱4b╱K╱ // 0x1274 @0x6
0x126e…1280 at0007 = ╱e1╱<>╱ // 0x1275 @0x7
0x126e…1280 at0008 = ╱47╱G╱ // 0x1276 @0x8
0x126e…1280 at0009 = ╱b6╱ THEN ╱ // 0x1277 @0x9
0x126e…1280 at000a = ╱92╱ PRINT ╱ // 0x1278 @0xa
0x126e…1280 at000b = ╱53╱S╱ // 0x1279 @0xb
0x126e…1280 at000c = ╱54╱T╱ // 0x127a @0xc
0x126e…1280 at000d = ╱52╱R╱ // 0x127b @0xd
0x126e…1280 at000e = ╱45╱E╱ // 0x127c @0xe
0x126e…1280 at000f = ╱47╱G╱ // 0x127d @0xf
0x126e…1280 at0010 = ╱ef╱$╱ // 0x127e @0x10
0x126e…1280 at0011 = EOL // 0x127f @0x11
0x126e…1280 }
0x1280…128b 9fe2 1980 IF MK=B THEN
0x1280…128b LineComalBin {
0x1280…128b ptr = 0x9fe2 // 0x1280 @0x0
0x1280…128b lno = 0x07bc // 0x1282 @0x2
0x1280…128b at0004 = ╱9c╱ IF ╱ // 0x1284 @0x4
0x1280…128b at0005 = ╱4d╱M╱ // 0x1285 @0x5
0x1280…128b at0006 = ╱4b╱K╱ // 0x1286 @0x6
0x1280…128b at0007 = ╱dc╱=╱ // 0x1287 @0x7
0x1280…128b at0008 = ╱42╱B╱ // 0x1288 @0x8
0x1280…128b at0009 = ╱b6╱ THEN ╱ // 0x1289 @0x9
0x1280…128b at000a = EOL // 0x128a @0xa
0x1280…128b }
0x128b…12d9 a030 1990 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15)
0x128b…12d9 LineComalBin {
0x128b…12d9 ptr = 0xa030 // 0x128b @0x0
0x128b…12d9 lno = 0x07c6 // 0x128d @0x2
0x128b…12d9 at0004 = ╱92╱ PRINT ╱ // 0x128f @0x4
0x128b…12d9 at0005 = ╱d2╱TAB╱ // 0x1290 @0x5
0x128b…12d9 at0006 = ╱ed╱(╱ // 0x1291 @0x6
0x128b…12d9 at0007 = ╱31╱1╱ // 0x1292 @0x7
0x128b…12d9 at0008 = ╱35╱5╱ // 0x1293 @0x8
0x128b…12d9 at0009 = ╱fe0000f004╱ // 0x1294 @0x9
0x128b…12d9 at000e = ╱ee╱)╱ // 0x1299 @0xe
0x128b…12d9 at000f = ╱eb╱;╱ // 0x129a @0xf
0x128b…12d9 at0010 = ╱cf╱CHR╱ // 0x129b @0x10
0x128b…12d9 at0011 = ╱ed╱(╱ // 0x129c @0x11
0x128b…12d9 at0012 = ╱31╱1╱ // 0x129d @0x12
0x128b…12d9 at0013 = ╱34╱4╱ // 0x129e @0x13
0x128b…12d9 at0014 = ╱fe0000e004╱ // 0x129f @0x14
0x128b…12d9 at0019 = ╱ee╱)╱ // 0x12a4 @0x19
0x128b…12d9 at001a = ╱eb╱;╱ // 0x12a5 @0x1a
0x128b…12d9 at001b = ╱22╱"╱ // 0x12a6 @0x1b
0x128b…12d9 at001c = ╱4d╱M╱ // 0x12a7 @0x1c
0x128b…12d9 at001d = ╱7d╱å╱ // 0x12a8 @0x1d
0x128b…12d9 at001e = ╱6e╱n╱ // 0x12a9 @0x1e
0x128b…12d9 at001f = ╱65╱e╱ // 0x12aa @0x1f
0x128b…12d9 at0020 = ╱64╱d╱ // 0x12ab @0x20
0x128b…12d9 at0021 = ╱65╱e╱ // 0x12ac @0x21
0x128b…12d9 at0022 = ╱6e╱n╱ // 0x12ad @0x22
0x128b…12d9 at0023 = ╱73╱s╱ // 0x12ae @0x23
0x128b…12d9 at0024 = ╱20╱…╱ // 0x12af @0x24
0x128b…12d9 at0025 = ╱62╱b╱ // 0x12b0 @0x25
0x128b…12d9 at0026 = ╱65╱e╱ // 0x12b1 @0x26
0x128b…12d9 at0027 = ╱76╱v╱ // 0x12b2 @0x27
0x128b…12d9 at0028 = ╱2e╱.╱ // 0x12b3 @0x28
0x128b…12d9 at0029 = ╱22╱"╱ // 0x12b4 @0x29
0x128b…12d9 at002a = ╱eb╱;╱ // 0x12b5 @0x2a
0x128b…12d9 at002b = ╱d2╱TAB╱ // 0x12b6 @0x2b
0x128b…12d9 at002c = ╱ed╱(╱ // 0x12b7 @0x2c
0x128b…12d9 at002d = ╱33╱3╱ // 0x12b8 @0x2d
0x128b…12d9 at002e = ╱34╱4╱ // 0x12b9 @0x2e
0x128b…12d9 at002f = ╱fe00008806╱ // 0x12ba @0x2f
0x128b…12d9 at0034 = ╱ee╱)╱ // 0x12bf @0x34
0x128b…12d9 at0035 = ╱eb╱;╱ // 0x12c0 @0x35
0x128b…12d9 at0036 = ╱22╱"╱ // 0x12c1 @0x36
0x128b…12d9 at0037 = ╱5d╱Å╱ // 0x12c2 @0x37
0x128b…12d9 at0038 = ╱72╱r╱ // 0x12c3 @0x38
0x128b…12d9 at0039 = ╱65╱e╱ // 0x12c4 @0x39
0x128b…12d9 at003a = ╱74╱t╱ // 0x12c5 @0x3a
0x128b…12d9 at003b = ╱73╱s╱ // 0x12c6 @0x3b
0x128b…12d9 at003c = ╱20╱…╱ // 0x12c7 @0x3c
0x128b…12d9 at003d = ╱62╱b╱ // 0x12c8 @0x3d
0x128b…12d9 at003e = ╱65╱e╱ // 0x12c9 @0x3e
0x128b…12d9 at003f = ╱76╱v╱ // 0x12ca @0x3f
0x128b…12d9 at0040 = ╱2e╱.╱ // 0x12cb @0x40
0x128b…12d9 at0041 = ╱22╱"╱ // 0x12cc @0x41
0x128b…12d9 at0042 = ╱eb╱;╱ // 0x12cd @0x42
0x128b…12d9 at0043 = ╱cf╱CHR╱ // 0x12ce @0x43
0x128b…12d9 at0044 = ╱ed╱(╱ // 0x12cf @0x44
0x128b…12d9 at0045 = ╱31╱1╱ // 0x12d0 @0x45
0x128b…12d9 at0046 = ╱35╱5╱ // 0x12d1 @0x46
0x128b…12d9 at0047 = ╱fe0000f004╱ // 0x12d2 @0x47
0x128b…12d9 at004c = ╱ee╱)╱ // 0x12d7 @0x4c
0x128b…12d9 at004d = EOL // 0x12d8 @0x4d
0x128b…12d9 }
0x12d9…12e5 a03c 2000 PRINT STREG$
0x12d9…12e5 LineComalBin {
0x12d9…12e5 ptr = 0xa03c // 0x12d9 @0x0
0x12d9…12e5 lno = 0x07d0 // 0x12db @0x2
0x12d9…12e5 at0004 = ╱92╱ PRINT ╱ // 0x12dd @0x4
0x12d9…12e5 at0005 = ╱53╱S╱ // 0x12de @0x5
0x12d9…12e5 at0006 = ╱54╱T╱ // 0x12df @0x6
0x12d9…12e5 at0007 = ╱52╱R╱ // 0x12e0 @0x7
0x12d9…12e5 at0008 = ╱45╱E╱ // 0x12e1 @0x8
0x12d9…12e5 at0009 = ╱47╱G╱ // 0x12e2 @0x9
0x12d9…12e5 at000a = ╱ef╱$╱ // 0x12e3 @0xa
0x12d9…12e5 at000b = EOL // 0x12e4 @0xb
0x12d9…12e5 }
0x12e5…12ff a056 2010 EXEC TUD(DS1$,UBEL1$,E,B)
0x12e5…12ff LineComalBin {
0x12e5…12ff ptr = 0xa056 // 0x12e5 @0x0
0x12e5…12ff lno = 0x07da // 0x12e7 @0x2
0x12e5…12ff at0004 = ╱9d╱ EXEC ╱ // 0x12e9 @0x4
0x12e5…12ff at0005 = ╱54╱T╱ // 0x12ea @0x5
0x12e5…12ff at0006 = ╱55╱U╱ // 0x12eb @0x6
0x12e5…12ff at0007 = ╱44╱D╱ // 0x12ec @0x7
0x12e5…12ff at0008 = ╱ed╱(╱ // 0x12ed @0x8
0x12e5…12ff at0009 = ╱44╱D╱ // 0x12ee @0x9
0x12e5…12ff at000a = ╱53╱S╱ // 0x12ef @0xa
0x12e5…12ff at000b = ╱31╱1╱ // 0x12f0 @0xb
0x12e5…12ff at000c = ╱ef╱$╱ // 0x12f1 @0xc
0x12e5…12ff at000d = ╱ec╱,╱ // 0x12f2 @0xd
0x12e5…12ff at000e = ╱55╱U╱ // 0x12f3 @0xe
0x12e5…12ff at000f = ╱42╱B╱ // 0x12f4 @0xf
0x12e5…12ff at0010 = ╱45╱E╱ // 0x12f5 @0x10
0x12e5…12ff at0011 = ╱4c╱L╱ // 0x12f6 @0x11
0x12e5…12ff at0012 = ╱31╱1╱ // 0x12f7 @0x12
0x12e5…12ff at0013 = ╱ef╱$╱ // 0x12f8 @0x13
0x12e5…12ff at0014 = ╱ec╱,╱ // 0x12f9 @0x14
0x12e5…12ff at0015 = ╱45╱E╱ // 0x12fa @0x15
0x12e5…12ff at0016 = ╱ec╱,╱ // 0x12fb @0x16
0x12e5…12ff at0017 = ╱42╱B╱ // 0x12fc @0x17
0x12e5…12ff at0018 = ╱ee╱)╱ // 0x12fd @0x18
0x12e5…12ff at0019 = EOL // 0x12fe @0x19
0x12e5…12ff }
0x12ff…1319 a070 2020 EXEC TUD(DS2$,UBEL2$,E,B)
0x12ff…1319 LineComalBin {
0x12ff…1319 ptr = 0xa070 // 0x12ff @0x0
0x12ff…1319 lno = 0x07e4 // 0x1301 @0x2
0x12ff…1319 at0004 = ╱9d╱ EXEC ╱ // 0x1303 @0x4
0x12ff…1319 at0005 = ╱54╱T╱ // 0x1304 @0x5
0x12ff…1319 at0006 = ╱55╱U╱ // 0x1305 @0x6
0x12ff…1319 at0007 = ╱44╱D╱ // 0x1306 @0x7
0x12ff…1319 at0008 = ╱ed╱(╱ // 0x1307 @0x8
0x12ff…1319 at0009 = ╱44╱D╱ // 0x1308 @0x9
0x12ff…1319 at000a = ╱53╱S╱ // 0x1309 @0xa
0x12ff…1319 at000b = ╱32╱2╱ // 0x130a @0xb
0x12ff…1319 at000c = ╱ef╱$╱ // 0x130b @0xc
0x12ff…1319 at000d = ╱ec╱,╱ // 0x130c @0xd
0x12ff…1319 at000e = ╱55╱U╱ // 0x130d @0xe
0x12ff…1319 at000f = ╱42╱B╱ // 0x130e @0xf
0x12ff…1319 at0010 = ╱45╱E╱ // 0x130f @0x10
0x12ff…1319 at0011 = ╱4c╱L╱ // 0x1310 @0x11
0x12ff…1319 at0012 = ╱32╱2╱ // 0x1311 @0x12
0x12ff…1319 at0013 = ╱ef╱$╱ // 0x1312 @0x13
0x12ff…1319 at0014 = ╱ec╱,╱ // 0x1313 @0x14
0x12ff…1319 at0015 = ╱45╱E╱ // 0x1314 @0x15
0x12ff…1319 at0016 = ╱ec╱,╱ // 0x1315 @0x16
0x12ff…1319 at0017 = ╱42╱B╱ // 0x1316 @0x17
0x12ff…1319 at0018 = ╱ee╱)╱ // 0x1317 @0x18
0x12ff…1319 at0019 = EOL // 0x1318 @0x19
0x12ff…1319 }
0x1319…134d a0a4 2030 PRINT TAB(11+16*(DS1$(LEN(DS1$))="-"));UBEL1$;
0x1319…134d LineComalBin {
0x1319…134d ptr = 0xa0a4 // 0x1319 @0x0
0x1319…134d lno = 0x07ee // 0x131b @0x2
0x1319…134d at0004 = ╱92╱ PRINT ╱ // 0x131d @0x4
0x1319…134d at0005 = ╱d2╱TAB╱ // 0x131e @0x5
0x1319…134d at0006 = ╱ed╱(╱ // 0x131f @0x6
0x1319…134d at0007 = ╱31╱1╱ // 0x1320 @0x7
0x1319…134d at0008 = ╱31╱1╱ // 0x1321 @0x8
0x1319…134d at0009 = ╱fe0000b004╱ // 0x1322 @0x9
0x1319…134d at000e = ╱e2╱+╱ // 0x1327 @0xe
0x1319…134d at000f = ╱31╱1╱ // 0x1328 @0xf
0x1319…134d at0010 = ╱36╱6╱ // 0x1329 @0x10
0x1319…134d at0011 = ╱fe00008005╱ // 0x132a @0x11
0x1319…134d at0016 = ╱e4╱*╱ // 0x132f @0x16
0x1319…134d at0017 = ╱ed╱(╱ // 0x1330 @0x17
0x1319…134d at0018 = ╱44╱D╱ // 0x1331 @0x18
0x1319…134d at0019 = ╱53╱S╱ // 0x1332 @0x19
0x1319…134d at001a = ╱31╱1╱ // 0x1333 @0x1a
0x1319…134d at001b = ╱ef╱$╱ // 0x1334 @0x1b
0x1319…134d at001c = ╱ed╱(╱ // 0x1335 @0x1c
0x1319…134d at001d = ╱cc╱LEN╱ // 0x1336 @0x1d
0x1319…134d at001e = ╱ed╱(╱ // 0x1337 @0x1e
0x1319…134d at001f = ╱44╱D╱ // 0x1338 @0x1f
0x1319…134d at0020 = ╱53╱S╱ // 0x1339 @0x20
0x1319…134d at0021 = ╱31╱1╱ // 0x133a @0x21
0x1319…134d at0022 = ╱ef╱$╱ // 0x133b @0x22
0x1319…134d at0023 = ╱ee╱)╱ // 0x133c @0x23
0x1319…134d at0024 = ╱ee╱)╱ // 0x133d @0x24
0x1319…134d at0025 = ╱dc╱=╱ // 0x133e @0x25
0x1319…134d at0026 = ╱22╱"╱ // 0x133f @0x26
0x1319…134d at0027 = ╱2d╱-╱ // 0x1340 @0x27
0x1319…134d at0028 = ╱22╱"╱ // 0x1341 @0x28
0x1319…134d at0029 = ╱ee╱)╱ // 0x1342 @0x29
0x1319…134d at002a = ╱ee╱)╱ // 0x1343 @0x2a
0x1319…134d at002b = ╱eb╱;╱ // 0x1344 @0x2b
0x1319…134d at002c = ╱55╱U╱ // 0x1345 @0x2c
0x1319…134d at002d = ╱42╱B╱ // 0x1346 @0x2d
0x1319…134d at002e = ╱45╱E╱ // 0x1347 @0x2e
0x1319…134d at002f = ╱4c╱L╱ // 0x1348 @0x2f
0x1319…134d at0030 = ╱31╱1╱ // 0x1349 @0x30
0x1319…134d at0031 = ╱ef╱$╱ // 0x134a @0x31
0x1319…134d at0032 = ╱eb╱;╱ // 0x134b @0x32
0x1319…134d at0033 = EOL // 0x134c @0x33
0x1319…134d }
0x134d…1380 a0d7 2040 PRINT TAB(44+16*(DS2$(LEN(DS2$))="-"));UBEL2$
0x134d…1380 LineComalBin {
0x134d…1380 ptr = 0xa0d7 // 0x134d @0x0
0x134d…1380 lno = 0x07f8 // 0x134f @0x2
0x134d…1380 at0004 = ╱92╱ PRINT ╱ // 0x1351 @0x4
0x134d…1380 at0005 = ╱d2╱TAB╱ // 0x1352 @0x5
0x134d…1380 at0006 = ╱ed╱(╱ // 0x1353 @0x6
0x134d…1380 at0007 = ╱34╱4╱ // 0x1354 @0x7
0x134d…1380 at0008 = ╱34╱4╱ // 0x1355 @0x8
0x134d…1380 at0009 = ╱fe0000b006╱ // 0x1356 @0x9
0x134d…1380 at000e = ╱e2╱+╱ // 0x135b @0xe
0x134d…1380 at000f = ╱31╱1╱ // 0x135c @0xf
0x134d…1380 at0010 = ╱36╱6╱ // 0x135d @0x10
0x134d…1380 at0011 = ╱fe00008005╱ // 0x135e @0x11
0x134d…1380 at0016 = ╱e4╱*╱ // 0x1363 @0x16
0x134d…1380 at0017 = ╱ed╱(╱ // 0x1364 @0x17
0x134d…1380 at0018 = ╱44╱D╱ // 0x1365 @0x18
0x134d…1380 at0019 = ╱53╱S╱ // 0x1366 @0x19
0x134d…1380 at001a = ╱32╱2╱ // 0x1367 @0x1a
0x134d…1380 at001b = ╱ef╱$╱ // 0x1368 @0x1b
0x134d…1380 at001c = ╱ed╱(╱ // 0x1369 @0x1c
0x134d…1380 at001d = ╱cc╱LEN╱ // 0x136a @0x1d
0x134d…1380 at001e = ╱ed╱(╱ // 0x136b @0x1e
0x134d…1380 at001f = ╱44╱D╱ // 0x136c @0x1f
0x134d…1380 at0020 = ╱53╱S╱ // 0x136d @0x20
0x134d…1380 at0021 = ╱32╱2╱ // 0x136e @0x21
0x134d…1380 at0022 = ╱ef╱$╱ // 0x136f @0x22
0x134d…1380 at0023 = ╱ee╱)╱ // 0x1370 @0x23
0x134d…1380 at0024 = ╱ee╱)╱ // 0x1371 @0x24
0x134d…1380 at0025 = ╱dc╱=╱ // 0x1372 @0x25
0x134d…1380 at0026 = ╱22╱"╱ // 0x1373 @0x26
0x134d…1380 at0027 = ╱2d╱-╱ // 0x1374 @0x27
0x134d…1380 at0028 = ╱22╱"╱ // 0x1375 @0x28
0x134d…1380 at0029 = ╱ee╱)╱ // 0x1376 @0x29
0x134d…1380 at002a = ╱ee╱)╱ // 0x1377 @0x2a
0x134d…1380 at002b = ╱eb╱;╱ // 0x1378 @0x2b
0x134d…1380 at002c = ╱55╱U╱ // 0x1379 @0x2c
0x134d…1380 at002d = ╱42╱B╱ // 0x137a @0x2d
0x134d…1380 at002e = ╱45╱E╱ // 0x137b @0x2e
0x134d…1380 at002f = ╱4c╱L╱ // 0x137c @0x2f
0x134d…1380 at0030 = ╱32╱2╱ // 0x137d @0x30
0x134d…1380 at0031 = ╱ef╱$╱ // 0x137e @0x31
0x134d…1380 at0032 = EOL // 0x137f @0x32
0x134d…1380 }
0x1380…138c a0e3 2050 PRINT STREG$
0x1380…138c LineComalBin {
0x1380…138c ptr = 0xa0e3 // 0x1380 @0x0
0x1380…138c lno = 0x0802 // 0x1382 @0x2
0x1380…138c at0004 = ╱92╱ PRINT ╱ // 0x1384 @0x4
0x1380…138c at0005 = ╱53╱S╱ // 0x1385 @0x5
0x1380…138c at0006 = ╱54╱T╱ // 0x1386 @0x6
0x1380…138c at0007 = ╱52╱R╱ // 0x1387 @0x7
0x1380…138c at0008 = ╱45╱E╱ // 0x1388 @0x8
0x1380…138c at0009 = ╱47╱G╱ // 0x1389 @0x9
0x1380…138c at000a = ╱ef╱$╱ // 0x138a @0xa
0x1380…138c at000b = EOL // 0x138b @0xb
0x1380…138c }
0x138c…1395 a0ec 2060 PRINT " "
0x138c…1395 LineComalBin {
0x138c…1395 ptr = 0xa0ec // 0x138c @0x0
0x138c…1395 lno = 0x080c // 0x138e @0x2
0x138c…1395 at0004 = ╱92╱ PRINT ╱ // 0x1390 @0x4
0x138c…1395 at0005 = ╱22╱"╱ // 0x1391 @0x5
0x138c…1395 at0006 = ╱20╱…╱ // 0x1392 @0x6
0x138c…1395 at0007 = ╱22╱"╱ // 0x1393 @0x7
0x138c…1395 at0008 = EOL // 0x1394 @0x8
0x138c…1395 }
0x1395…139e a0f5 2070 PRINT " "
0x1395…139e LineComalBin {
0x1395…139e ptr = 0xa0f5 // 0x1395 @0x0
0x1395…139e lno = 0x0816 // 0x1397 @0x2
0x1395…139e at0004 = ╱92╱ PRINT ╱ // 0x1399 @0x4
0x1395…139e at0005 = ╱22╱"╱ // 0x139a @0x5
0x1395…139e at0006 = ╱20╱…╱ // 0x139b @0x6
0x1395…139e at0007 = ╱22╱"╱ // 0x139c @0x7
0x1395…139e at0008 = EOL // 0x139d @0x8
0x1395…139e }
0x139e…13a4 a0fb 2080 ENDIF
0x139e…13a4 LineComalBin {
0x139e…13a4 ptr = 0xa0fb // 0x139e @0x0
0x139e…13a4 lno = 0x0820 // 0x13a0 @0x2
0x139e…13a4 at0004 = ╱9b╱ ENDIF ╱ // 0x13a2 @0x4
0x139e…13a4 at0005 = EOL // 0x13a3 @0x5
0x139e…13a4 }
0x13a4…13c7 a11e 2090 IF MK=E THEN EXEC LINIER(LNR,29,LNR)
0x13a4…13c7 LineComalBin {
0x13a4…13c7 ptr = 0xa11e // 0x13a4 @0x0
0x13a4…13c7 lno = 0x082a // 0x13a6 @0x2
0x13a4…13c7 at0004 = ╱82╱ IF ╱ // 0x13a8 @0x4
0x13a4…13c7 at0005 = ╱4d╱M╱ // 0x13a9 @0x5
0x13a4…13c7 at0006 = ╱4b╱K╱ // 0x13aa @0x6
0x13a4…13c7 at0007 = ╱dc╱=╱ // 0x13ab @0x7
0x13a4…13c7 at0008 = ╱45╱E╱ // 0x13ac @0x8
0x13a4…13c7 at0009 = ╱b6╱ THEN ╱ // 0x13ad @0x9
0x13a4…13c7 at000a = ╱9d╱ EXEC ╱ // 0x13ae @0xa
0x13a4…13c7 at000b = ╱4c╱L╱ // 0x13af @0xb
0x13a4…13c7 at000c = ╱49╱I╱ // 0x13b0 @0xc
0x13a4…13c7 at000d = ╱4e╱N╱ // 0x13b1 @0xd
0x13a4…13c7 at000e = ╱49╱I╱ // 0x13b2 @0xe
0x13a4…13c7 at000f = ╱45╱E╱ // 0x13b3 @0xf
0x13a4…13c7 at0010 = ╱52╱R╱ // 0x13b4 @0x10
0x13a4…13c7 at0011 = ╱ed╱(╱ // 0x13b5 @0x11
0x13a4…13c7 at0012 = ╱4c╱L╱ // 0x13b6 @0x12
0x13a4…13c7 at0013 = ╱4e╱N╱ // 0x13b7 @0x13
0x13a4…13c7 at0014 = ╱52╱R╱ // 0x13b8 @0x14
0x13a4…13c7 at0015 = ╱ec╱,╱ // 0x13b9 @0x15
0x13a4…13c7 at0016 = ╱32╱2╱ // 0x13ba @0x16
0x13a4…13c7 at0017 = ╱39╱9╱ // 0x13bb @0x17
0x13a4…13c7 at0018 = ╱fe0000e805╱ // 0x13bc @0x18
0x13a4…13c7 at001d = ╱ec╱,╱ // 0x13c1 @0x1d
0x13a4…13c7 at001e = ╱4c╱L╱ // 0x13c2 @0x1e
0x13a4…13c7 at001f = ╱4e╱N╱ // 0x13c3 @0x1f
0x13a4…13c7 at0020 = ╱52╱R╱ // 0x13c4 @0x20
0x13a4…13c7 at0021 = ╱ee╱)╱ // 0x13c5 @0x21
0x13a4…13c7 at0022 = EOL // 0x13c6 @0x22
0x13a4…13c7 }
0x13c7…13cd a124 2100 ENDPROC
0x13c7…13cd LineComalBin {
0x13c7…13cd ptr = 0xa124 // 0x13c7 @0x0
0x13c7…13cd lno = 0x0834 // 0x13c9 @0x2
0x13c7…13cd at0004 = ╱9f╱ ENDPROC ╱ // 0x13cb @0x4
0x13c7…13cd at0005 = EOL // 0x13cc @0x5
0x13c7…13cd }
0x13cd…13db a132 2110 PROC STARTBIL
0x13cd…13db LineComalBin {
0x13cd…13db ptr = 0xa132 // 0x13cd @0x0
0x13cd…13db lno = 0x083e // 0x13cf @0x2
0x13cd…13db at0004 = ╱9e╱ PROC ╱ // 0x13d1 @0x4
0x13cd…13db at0005 = ╱53╱S╱ // 0x13d2 @0x5
0x13cd…13db at0006 = ╱54╱T╱ // 0x13d3 @0x6
0x13cd…13db at0007 = ╱41╱A╱ // 0x13d4 @0x7
0x13cd…13db at0008 = ╱52╱R╱ // 0x13d5 @0x8
0x13cd…13db at0009 = ╱54╱T╱ // 0x13d6 @0x9
0x13cd…13db at000a = ╱42╱B╱ // 0x13d7 @0xa
0x13cd…13db at000b = ╱49╱I╱ // 0x13d8 @0xb
0x13cd…13db at000c = ╱4c╱L╱ // 0x13d9 @0xc
0x13cd…13db at000d = EOL // 0x13da @0xd
0x13cd…13db }
0x13db…13e1 a138 2120 REPEAT
0x13db…13e1 LineComalBin {
0x13db…13e1 ptr = 0xa138 // 0x13db @0x0
0x13db…13e1 lno = 0x0848 // 0x13dd @0x2
0x13db…13e1 at0004 = ╱97╱ REPEAT ╱ // 0x13df @0x4
0x13db…13e1 at0005 = EOL // 0x13e0 @0x5
0x13db…13e1 }
0x13e1…13e8 a13f 2130 OUTPUT T
0x13e1…13e8 LineComalBin {
0x13e1…13e8 ptr = 0xa13f // 0x13e1 @0x0
0x13e1…13e8 lno = 0x0852 // 0x13e3 @0x2
0x13e1…13e8 at0004 = ╱a5╱ OUTPUT ╱ // 0x13e5 @0x4
0x13e1…13e8 at0005 = ╱54╱T╱ // 0x13e6 @0x5
0x13e1…13e8 at0006 = EOL // 0x13e7 @0x6
0x13e1…13e8 }
0x13e8…13ee a145 2140 CLEAR
0x13e8…13ee LineComalBin {
0x13e8…13ee ptr = 0xa145 // 0x13e8 @0x0
0x13e8…13ee lno = 0x085c // 0x13ea @0x2
0x13e8…13ee at0004 = ╱a0╱ CLEAR ╱ // 0x13ec @0x4
0x13e8…13ee at0005 = EOL // 0x13ed @0x5
0x13e8…13ee }
0x13ee…1406 a15d 2150 EXEC OVERSKRIFT(0)
0x13ee…1406 LineComalBin {
0x13ee…1406 ptr = 0xa15d // 0x13ee @0x0
0x13ee…1406 lno = 0x0866 // 0x13f0 @0x2
0x13ee…1406 at0004 = ╱9d╱ EXEC ╱ // 0x13f2 @0x4
0x13ee…1406 at0005 = ╱4f╱O╱ // 0x13f3 @0x5
0x13ee…1406 at0006 = ╱56╱V╱ // 0x13f4 @0x6
0x13ee…1406 at0007 = ╱45╱E╱ // 0x13f5 @0x7
0x13ee…1406 at0008 = ╱52╱R╱ // 0x13f6 @0x8
0x13ee…1406 at0009 = ╱53╱S╱ // 0x13f7 @0x9
0x13ee…1406 at000a = ╱4b╱K╱ // 0x13f8 @0xa
0x13ee…1406 at000b = ╱52╱R╱ // 0x13f9 @0xb
0x13ee…1406 at000c = ╱49╱I╱ // 0x13fa @0xc
0x13ee…1406 at000d = ╱46╱F╱ // 0x13fb @0xd
0x13ee…1406 at000e = ╱54╱T╱ // 0x13fc @0xe
0x13ee…1406 at000f = ╱ed╱(╱ // 0x13fd @0xf
0x13ee…1406 at0010 = ╱30╱0╱ // 0x13fe @0x10
0x13ee…1406 at0011 = ╱fe00000000╱ // 0x13ff @0x11
0x13ee…1406 at0016 = ╱ee╱)╱ // 0x1404 @0x16
0x13ee…1406 at0017 = EOL // 0x1405 @0x17
0x13ee…1406 }
0x1406…140c a163 2160 REPEAT
0x1406…140c LineComalBin {
0x1406…140c ptr = 0xa163 // 0x1406 @0x0
0x1406…140c lno = 0x0870 // 0x1408 @0x2
0x1406…140c at0004 = ╱97╱ REPEAT ╱ // 0x140a @0x4
0x1406…140c at0005 = EOL // 0x140b @0x5
0x1406…140c }
0x140c…1449 a1a0 2170 EXEC INDPUT1(4,3,-1,100000,LTX$(1))
0x140c…1449 LineComalBin {
0x140c…1449 ptr = 0xa1a0 // 0x140c @0x0
0x140c…1449 lno = 0x087a // 0x140e @0x2
0x140c…1449 at0004 = ╱9d╱ EXEC ╱ // 0x1410 @0x4
0x140c…1449 at0005 = ╱49╱I╱ // 0x1411 @0x5
0x140c…1449 at0006 = ╱4e╱N╱ // 0x1412 @0x6
0x140c…1449 at0007 = ╱44╱D╱ // 0x1413 @0x7
0x140c…1449 at0008 = ╱50╱P╱ // 0x1414 @0x8
0x140c…1449 at0009 = ╱55╱U╱ // 0x1415 @0x9
0x140c…1449 at000a = ╱54╱T╱ // 0x1416 @0xa
0x140c…1449 at000b = ╱31╱1╱ // 0x1417 @0xb
0x140c…1449 at000c = ╱ed╱(╱ // 0x1418 @0xc
0x140c…1449 at000d = ╱34╱4╱ // 0x1419 @0xd
0x140c…1449 at000e = ╱fe00008003╱ // 0x141a @0xe
0x140c…1449 at0013 = ╱ec╱,╱ // 0x141f @0x13
0x140c…1449 at0014 = ╱33╱3╱ // 0x1420 @0x14
0x140c…1449 at0015 = ╱fe0000c002╱ // 0x1421 @0x15
0x140c…1449 at001a = ╱ec╱,╱ // 0x1426 @0x1a
0x140c…1449 at001b = ╱e9╱-╱ // 0x1427 @0x1b
0x140c…1449 at001c = ╱31╱1╱ // 0x1428 @0x1c
0x140c…1449 at001d = ╱fe00008001╱ // 0x1429 @0x1d
0x140c…1449 at0022 = ╱ec╱,╱ // 0x142e @0x22
0x140c…1449 at0023 = ╱31╱1╱ // 0x142f @0x23
0x140c…1449 at0024 = ╱30╱0╱ // 0x1430 @0x24
0x140c…1449 at0025 = ╱30╱0╱ // 0x1431 @0x25
0x140c…1449 at0026 = ╱30╱0╱ // 0x1432 @0x26
0x140c…1449 at0027 = ╱30╱0╱ // 0x1433 @0x27
0x140c…1449 at0028 = ╱30╱0╱ // 0x1434 @0x28
0x140c…1449 at0029 = ╱fe0050c311╱ // 0x1435 @0x29
0x140c…1449 at002e = ╱ec╱,╱ // 0x143a @0x2e
0x140c…1449 at002f = ╱4c╱L╱ // 0x143b @0x2f
0x140c…1449 at0030 = ╱54╱T╱ // 0x143c @0x30
0x140c…1449 at0031 = ╱58╱X╱ // 0x143d @0x31
0x140c…1449 at0032 = ╱ef╱$╱ // 0x143e @0x32
0x140c…1449 at0033 = ╱ed╱(╱ // 0x143f @0x33
0x140c…1449 at0034 = ╱31╱1╱ // 0x1440 @0x34
0x140c…1449 at0035 = ╱fe00008001╱ // 0x1441 @0x35
0x140c…1449 at003a = ╱ee╱)╱ // 0x1446 @0x3a
0x140c…1449 at003b = ╱ee╱)╱ // 0x1447 @0x3b
0x140c…1449 at003c = EOL // 0x1448 @0x3c
0x140c…1449 }
0x1449…146e a1c5 2180 UNTIL P=B OR (P>9999 AND P<100000)
0x1449…146e LineComalBin {
0x1449…146e ptr = 0xa1c5 // 0x1449 @0x0
0x1449…146e lno = 0x0884 // 0x144b @0x2
0x1449…146e at0004 = ╱98╱ UNTIL ╱ // 0x144d @0x4
0x1449…146e at0005 = ╱50╱P╱ // 0x144e @0x5
0x1449…146e at0006 = ╱dc╱=╱ // 0x144f @0x6
0x1449…146e at0007 = ╱42╱B╱ // 0x1450 @0x7
0x1449…146e at0008 = ╱db╱ OR ╱ // 0x1451 @0x8
0x1449…146e at0009 = ╱ed╱(╱ // 0x1452 @0x9
0x1449…146e at000a = ╱50╱P╱ // 0x1453 @0xa
0x1449…146e at000b = ╱de╱>╱ // 0x1454 @0xb
0x1449…146e at000c = ╱39╱9╱ // 0x1455 @0xc
0x1449…146e at000d = ╱39╱9╱ // 0x1456 @0xd
0x1449…146e at000e = ╱39╱9╱ // 0x1457 @0xe
0x1449…146e at000f = ╱39╱9╱ // 0x1458 @0xf
0x1449…146e at0010 = ╱fe003c9c0e╱ // 0x1459 @0x10
0x1449…146e at0015 = ╱da╱ AND ╱ // 0x145e @0x15
0x1449…146e at0016 = ╱50╱P╱ // 0x145f @0x16
0x1449…146e at0017 = ╱dd╱<╱ // 0x1460 @0x17
0x1449…146e at0018 = ╱31╱1╱ // 0x1461 @0x18
0x1449…146e at0019 = ╱30╱0╱ // 0x1462 @0x19
0x1449…146e at001a = ╱30╱0╱ // 0x1463 @0x1a
0x1449…146e at001b = ╱30╱0╱ // 0x1464 @0x1b
0x1449…146e at001c = ╱30╱0╱ // 0x1465 @0x1c
0x1449…146e at001d = ╱30╱0╱ // 0x1466 @0x1d
0x1449…146e at001e = ╱fe0050c311╱ // 0x1467 @0x1e
0x1449…146e at0023 = ╱ee╱)╱ // 0x146c @0x23
0x1449…146e at0024 = EOL // 0x146d @0x24
0x1449…146e }
0x146e…1483 a1da 2190 SUM$="0+";KONT=P
0x146e…1483 LineComalBin {
0x146e…1483 ptr = 0xa1da // 0x146e @0x0
0x146e…1483 lno = 0x088e // 0x1470 @0x2
0x146e…1483 at0004 = ╱53╱S╱ // 0x1472 @0x4
0x146e…1483 at0005 = ╱55╱U╱ // 0x1473 @0x5
0x146e…1483 at0006 = ╱4d╱M╱ // 0x1474 @0x6
0x146e…1483 at0007 = ╱ef╱$╱ // 0x1475 @0x7
0x146e…1483 at0008 = ╱dc╱=╱ // 0x1476 @0x8
0x146e…1483 at0009 = ╱22╱"╱ // 0x1477 @0x9
0x146e…1483 at000a = ╱30╱0╱ // 0x1478 @0xa
0x146e…1483 at000b = ╱2b╱+╱ // 0x1479 @0xb
0x146e…1483 at000c = ╱22╱"╱ // 0x147a @0xc
0x146e…1483 at000d = ╱eb╱;╱ // 0x147b @0xd
0x146e…1483 at000e = ╱4b╱K╱ // 0x147c @0xe
0x146e…1483 at000f = ╱4f╱O╱ // 0x147d @0xf
0x146e…1483 at0010 = ╱4e╱N╱ // 0x147e @0x10
0x146e…1483 at0011 = ╱54╱T╱ // 0x147f @0x11
0x146e…1483 at0012 = ╱dc╱=╱ // 0x1480 @0x12
0x146e…1483 at0013 = ╱50╱P╱ // 0x1481 @0x13
0x146e…1483 at0014 = EOL // 0x1482 @0x14
0x146e…1483 }
0x1483…1491 a1e8 2200 IF KONT=B THEN EXIT
0x1483…1491 LineComalBin {
0x1483…1491 ptr = 0xa1e8 // 0x1483 @0x0
0x1483…1491 lno = 0x0898 // 0x1485 @0x2
0x1483…1491 at0004 = ╱82╱ IF ╱ // 0x1487 @0x4
0x1483…1491 at0005 = ╱4b╱K╱ // 0x1488 @0x5
0x1483…1491 at0006 = ╱4f╱O╱ // 0x1489 @0x6
0x1483…1491 at0007 = ╱4e╱N╱ // 0x148a @0x7
0x1483…1491 at0008 = ╱54╱T╱ // 0x148b @0x8
0x1483…1491 at0009 = ╱dc╱=╱ // 0x148c @0x9
0x1483…1491 at000a = ╱42╱B╱ // 0x148d @0xa
0x1483…1491 at000b = ╱b6╱ THEN ╱ // 0x148e @0xb
0x1483…1491 at000c = ╱99╱ EXIT ╱ // 0x148f @0xc
0x1483…1491 at000d = EOL // 0x1490 @0xd
0x1483…1491 }
0x1491…149f a1f6 2210 CURSOR W,5
0x1491…149f LineComalBin {
0x1491…149f ptr = 0xa1f6 // 0x1491 @0x0
0x1491…149f lno = 0x08a2 // 0x1493 @0x2
0x1491…149f at0004 = ╱a1╱ CURSOR ╱ // 0x1495 @0x4
0x1491…149f at0005 = ╱57╱W╱ // 0x1496 @0x5
0x1491…149f at0006 = ╱ec╱,╱ // 0x1497 @0x6
0x1491…149f at0007 = ╱35╱5╱ // 0x1498 @0x7
0x1491…149f at0008 = ╱fe0000a003╱ // 0x1499 @0x8
0x1491…149f at000d = EOL // 0x149e @0xd
0x1491…149f }
0x149f…14dd a234 2220 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(KONT DIV 100),EPIL3,K16$)
0x149f…14dd LineComalBin {
0x149f…14dd ptr = 0xa234 // 0x149f @0x0
0x149f…14dd lno = 0x08ac // 0x14a1 @0x2
0x149f…14dd at0004 = ╱9d╱ EXEC ╱ // 0x14a3 @0x4
0x149f…14dd at0005 = ╱46╱F╱ // 0x14a4 @0x5
0x149f…14dd at0006 = ╱49╱I╱ // 0x14a5 @0x6
0x149f…14dd at0007 = ╱4e╱N╱ // 0x14a6 @0x7
0x149f…14dd at0008 = ╱44╱D╱ // 0x14a7 @0x8
0x149f…14dd at0009 = ╱50╱P╱ // 0x14a8 @0x9
0x149f…14dd at000a = ╱4f╱O╱ // 0x14a9 @0xa
0x149f…14dd at000b = ╱53╱S╱ // 0x14aa @0xb
0x149f…14dd at000c = ╱54╱T╱ // 0x14ab @0xc
0x149f…14dd at000d = ╱31╱1╱ // 0x14ac @0xd
0x149f…14dd at000e = ╱ed╱(╱ // 0x14ad @0xe
0x149f…14dd at000f = ╱45╱E╱ // 0x14ae @0xf
0x149f…14dd at0010 = ╱54╱T╱ // 0x14af @0x10
0x149f…14dd at0011 = ╱41╱A╱ // 0x14b0 @0x11
0x149f…14dd at0012 = ╱42╱B╱ // 0x14b1 @0x12
0x149f…14dd at0013 = ╱31╱1╱ // 0x14b2 @0x13
0x149f…14dd at0014 = ╱ec╱,╱ // 0x14b3 @0x14
0x149f…14dd at0015 = ╱45╱E╱ // 0x14b4 @0x15
0x149f…14dd at0016 = ╱54╱T╱ // 0x14b5 @0x16
0x149f…14dd at0017 = ╱41╱A╱ // 0x14b6 @0x17
0x149f…14dd at0018 = ╱42╱B╱ // 0x14b7 @0x18
0x149f…14dd at0019 = ╱ec╱,╱ // 0x14b8 @0x19
0x149f…14dd at001a = ╱4d╱M╱ // 0x14b9 @0x1a
0x149f…14dd at001b = ╱45╱E╱ // 0x14ba @0x1b
0x149f…14dd at001c = ╱41╱A╱ // 0x14bb @0x1c
0x149f…14dd at001d = ╱4e╱N╱ // 0x14bc @0x1d
0x149f…14dd at001e = ╱54╱T╱ // 0x14bd @0x1e
0x149f…14dd at001f = ╱41╱A╱ // 0x14be @0x1f
0x149f…14dd at0020 = ╱4c╱L╱ // 0x14bf @0x20
0x149f…14dd at0021 = ╱ec╱,╱ // 0x14c0 @0x21
0x149f…14dd at0022 = ╱ed╱(╱ // 0x14c1 @0x22
0x149f…14dd at0023 = ╱4b╱K╱ // 0x14c2 @0x23
0x149f…14dd at0024 = ╱4f╱O╱ // 0x14c3 @0x24
0x149f…14dd at0025 = ╱4e╱N╱ // 0x14c4 @0x25
0x149f…14dd at0026 = ╱54╱T╱ // 0x14c5 @0x26
0x149f…14dd at0027 = ╱e7╱ DIV ╱ // 0x14c6 @0x27
0x149f…14dd at0028 = ╱31╱1╱ // 0x14c7 @0x28
0x149f…14dd at0029 = ╱30╱0╱ // 0x14c8 @0x29
0x149f…14dd at002a = ╱30╱0╱ // 0x14c9 @0x2a
0x149f…14dd at002b = ╱fe0000c807╱ // 0x14ca @0x2b
0x149f…14dd at0030 = ╱ee╱)╱ // 0x14cf @0x30
0x149f…14dd at0031 = ╱ec╱,╱ // 0x14d0 @0x31
0x149f…14dd at0032 = ╱45╱E╱ // 0x14d1 @0x32
0x149f…14dd at0033 = ╱50╱P╱ // 0x14d2 @0x33
0x149f…14dd at0034 = ╱49╱I╱ // 0x14d3 @0x34
0x149f…14dd at0035 = ╱4c╱L╱ // 0x14d4 @0x35
0x149f…14dd at0036 = ╱33╱3╱ // 0x14d5 @0x36
0x149f…14dd at0037 = ╱ec╱,╱ // 0x14d6 @0x37
0x149f…14dd at0038 = ╱4b╱K╱ // 0x14d7 @0x38
0x149f…14dd at0039 = ╱31╱1╱ // 0x14d8 @0x39
0x149f…14dd at003a = ╱36╱6╱ // 0x14d9 @0x3a
0x149f…14dd at003b = ╱ef╱$╱ // 0x14da @0x3b
0x149f…14dd at003c = ╱ee╱)╱ // 0x14db @0x3c
0x149f…14dd at003d = EOL // 0x14dc @0x3d
0x149f…14dd }
0x14dd…14ea a241 2230 IF CEKS=B THEN
0x14dd…14ea LineComalBin {
0x14dd…14ea ptr = 0xa241 // 0x14dd @0x0
0x14dd…14ea lno = 0x08b6 // 0x14df @0x2
0x14dd…14ea at0004 = ╱9c╱ IF ╱ // 0x14e1 @0x4
0x14dd…14ea at0005 = ╱43╱C╱ // 0x14e2 @0x5
0x14dd…14ea at0006 = ╱45╱E╱ // 0x14e3 @0x6
0x14dd…14ea at0007 = ╱4b╱K╱ // 0x14e4 @0x7
0x14dd…14ea at0008 = ╱53╱S╱ // 0x14e5 @0x8
0x14dd…14ea at0009 = ╱dc╱=╱ // 0x14e6 @0x9
0x14dd…14ea at000a = ╱42╱B╱ // 0x14e7 @0xa
0x14dd…14ea at000b = ╱b6╱ THEN ╱ // 0x14e8 @0xb
0x14dd…14ea at000c = EOL // 0x14e9 @0xc
0x14dd…14ea }
0x14ea…14f8 a24f 2240 EXEC HENTPOST
0x14ea…14f8 LineComalBin {
0x14ea…14f8 ptr = 0xa24f // 0x14ea @0x0
0x14ea…14f8 lno = 0x08c0 // 0x14ec @0x2
0x14ea…14f8 at0004 = ╱9d╱ EXEC ╱ // 0x14ee @0x4
0x14ea…14f8 at0005 = ╱48╱H╱ // 0x14ef @0x5
0x14ea…14f8 at0006 = ╱45╱E╱ // 0x14f0 @0x6
0x14ea…14f8 at0007 = ╱4e╱N╱ // 0x14f1 @0x7
0x14ea…14f8 at0008 = ╱54╱T╱ // 0x14f2 @0x8
0x14ea…14f8 at0009 = ╱50╱P╱ // 0x14f3 @0x9
0x14ea…14f8 at000a = ╱4f╱O╱ // 0x14f4 @0xa
0x14ea…14f8 at000b = ╱53╱S╱ // 0x14f5 @0xb
0x14ea…14f8 at000c = ╱54╱T╱ // 0x14f6 @0xc
0x14ea…14f8 at000d = EOL // 0x14f7 @0xd
0x14ea…14f8 }
0x14f8…1514 a26b 2250 IF EU$(EPIL1)="0" AND CEKS=B THEN
0x14f8…1514 LineComalBin {
0x14f8…1514 ptr = 0xa26b // 0x14f8 @0x0
0x14f8…1514 lno = 0x08ca // 0x14fa @0x2
0x14f8…1514 at0004 = ╱9c╱ IF ╱ // 0x14fc @0x4
0x14f8…1514 at0005 = ╱45╱E╱ // 0x14fd @0x5
0x14f8…1514 at0006 = ╱55╱U╱ // 0x14fe @0x6
0x14f8…1514 at0007 = ╱ef╱$╱ // 0x14ff @0x7
0x14f8…1514 at0008 = ╱ed╱(╱ // 0x1500 @0x8
0x14f8…1514 at0009 = ╱45╱E╱ // 0x1501 @0x9
0x14f8…1514 at000a = ╱50╱P╱ // 0x1502 @0xa
0x14f8…1514 at000b = ╱49╱I╱ // 0x1503 @0xb
0x14f8…1514 at000c = ╱4c╱L╱ // 0x1504 @0xc
0x14f8…1514 at000d = ╱31╱1╱ // 0x1505 @0xd
0x14f8…1514 at000e = ╱ee╱)╱ // 0x1506 @0xe
0x14f8…1514 at000f = ╱dc╱=╱ // 0x1507 @0xf
0x14f8…1514 at0010 = ╱22╱"╱ // 0x1508 @0x10
0x14f8…1514 at0011 = ╱30╱0╱ // 0x1509 @0x11
0x14f8…1514 at0012 = ╱22╱"╱ // 0x150a @0x12
0x14f8…1514 at0013 = ╱da╱ AND ╱ // 0x150b @0x13
0x14f8…1514 at0014 = ╱43╱C╱ // 0x150c @0x14
0x14f8…1514 at0015 = ╱45╱E╱ // 0x150d @0x15
0x14f8…1514 at0016 = ╱4b╱K╱ // 0x150e @0x16
0x14f8…1514 at0017 = ╱53╱S╱ // 0x150f @0x17
0x14f8…1514 at0018 = ╱dc╱=╱ // 0x1510 @0x18
0x14f8…1514 at0019 = ╱42╱B╱ // 0x1511 @0x19
0x14f8…1514 at001a = ╱b6╱ THEN ╱ // 0x1512 @0x1a
0x14f8…1514 at001b = EOL // 0x1513 @0x1b
0x14f8…1514 }
0x1514…1524 a27b 2260 PRINT ENAVN$;" "
0x1514…1524 LineComalBin {
0x1514…1524 ptr = 0xa27b // 0x1514 @0x0
0x1514…1524 lno = 0x08d4 // 0x1516 @0x2
0x1514…1524 at0004 = ╱92╱ PRINT ╱ // 0x1518 @0x4
0x1514…1524 at0005 = ╱45╱E╱ // 0x1519 @0x5
0x1514…1524 at0006 = ╱4e╱N╱ // 0x151a @0x6
0x1514…1524 at0007 = ╱41╱A╱ // 0x151b @0x7
0x1514…1524 at0008 = ╱56╱V╱ // 0x151c @0x8
0x1514…1524 at0009 = ╱4e╱N╱ // 0x151d @0x9
0x1514…1524 at000a = ╱ef╱$╱ // 0x151e @0xa
0x1514…1524 at000b = ╱eb╱;╱ // 0x151f @0xb
0x1514…1524 at000c = ╱22╱"╱ // 0x1520 @0xc
0x1514…1524 at000d = ╱20╱…╱ // 0x1521 @0xd
0x1514…1524 at000e = ╱22╱"╱ // 0x1522 @0xe
0x1514…1524 at000f = EOL // 0x1523 @0xf
0x1514…1524 }
0x1524…1532 a289 2270 CURSOR W,7
0x1524…1532 LineComalBin {
0x1524…1532 ptr = 0xa289 // 0x1524 @0x0
0x1524…1532 lno = 0x08de // 0x1526 @0x2
0x1524…1532 at0004 = ╱a1╱ CURSOR ╱ // 0x1528 @0x4
0x1524…1532 at0005 = ╱57╱W╱ // 0x1529 @0x5
0x1524…1532 at0006 = ╱ec╱,╱ // 0x152a @0x6
0x1524…1532 at0007 = ╱37╱7╱ // 0x152b @0x7
0x1524…1532 at0008 = ╱fe0000e003╱ // 0x152c @0x8
0x1524…1532 at000d = EOL // 0x1531 @0xd
0x1524…1532 }
0x1532…1549 a2a0 2280 PRINT UNAVN$(EPIL1);" "
0x1532…1549 LineComalBin {
0x1532…1549 ptr = 0xa2a0 // 0x1532 @0x0
0x1532…1549 lno = 0x08e8 // 0x1534 @0x2
0x1532…1549 at0004 = ╱92╱ PRINT ╱ // 0x1536 @0x4
0x1532…1549 at0005 = ╱55╱U╱ // 0x1537 @0x5
0x1532…1549 at0006 = ╱4e╱N╱ // 0x1538 @0x6
0x1532…1549 at0007 = ╱41╱A╱ // 0x1539 @0x7
0x1532…1549 at0008 = ╱56╱V╱ // 0x153a @0x8
0x1532…1549 at0009 = ╱4e╱N╱ // 0x153b @0x9
0x1532…1549 at000a = ╱ef╱$╱ // 0x153c @0xa
0x1532…1549 at000b = ╱ed╱(╱ // 0x153d @0xb
0x1532…1549 at000c = ╱45╱E╱ // 0x153e @0xc
0x1532…1549 at000d = ╱50╱P╱ // 0x153f @0xd
0x1532…1549 at000e = ╱49╱I╱ // 0x1540 @0xe
0x1532…1549 at000f = ╱4c╱L╱ // 0x1541 @0xf
0x1532…1549 at0010 = ╱31╱1╱ // 0x1542 @0x10
0x1532…1549 at0011 = ╱ee╱)╱ // 0x1543 @0x11
0x1532…1549 at0012 = ╱eb╱;╱ // 0x1544 @0x12
0x1532…1549 at0013 = ╱22╱"╱ // 0x1545 @0x13
0x1532…1549 at0014 = ╱20╱…╱ // 0x1546 @0x14
0x1532…1549 at0015 = ╱22╱"╱ // 0x1547 @0x15
0x1532…1549 at0016 = EOL // 0x1548 @0x16
0x1532…1549 }
0x1549…154f a2a6 2290 ENDIF
0x1549…154f LineComalBin {
0x1549…154f ptr = 0xa2a6 // 0x1549 @0x0
0x1549…154f lno = 0x08f2 // 0x154b @0x2
0x1549…154f at0004 = ╱9b╱ ENDIF ╱ // 0x154d @0x4
0x1549…154f at0005 = EOL // 0x154e @0x5
0x1549…154f }
0x154f…1555 a2ac 2300 ENDIF
0x154f…1555 LineComalBin {
0x154f…1555 ptr = 0xa2ac // 0x154f @0x0
0x154f…1555 lno = 0x08fc // 0x1551 @0x2
0x154f…1555 at0004 = ╱9b╱ ENDIF ╱ // 0x1553 @0x4
0x154f…1555 at0005 = EOL // 0x1554 @0x5
0x154f…1555 }
0x1555…1597 a2ee 2310 IF CEKS=B THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2))
0x1555…1597 LineComalBin {
0x1555…1597 ptr = 0xa2ee // 0x1555 @0x0
0x1555…1597 lno = 0x0906 // 0x1557 @0x2
0x1555…1597 at0004 = ╱82╱ IF ╱ // 0x1559 @0x4
0x1555…1597 at0005 = ╱43╱C╱ // 0x155a @0x5
0x1555…1597 at0006 = ╱45╱E╱ // 0x155b @0x6
0x1555…1597 at0007 = ╱4b╱K╱ // 0x155c @0x7
0x1555…1597 at0008 = ╱53╱S╱ // 0x155d @0x8
0x1555…1597 at0009 = ╱dc╱=╱ // 0x155e @0x9
0x1555…1597 at000a = ╱42╱B╱ // 0x155f @0xa
0x1555…1597 at000b = ╱b6╱ THEN ╱ // 0x1560 @0xb
0x1555…1597 at000c = ╱9d╱ EXEC ╱ // 0x1561 @0xc
0x1555…1597 at000d = ╱49╱I╱ // 0x1562 @0xd
0x1555…1597 at000e = ╱4e╱N╱ // 0x1563 @0xe
0x1555…1597 at000f = ╱44╱D╱ // 0x1564 @0xf
0x1555…1597 at0010 = ╱50╱P╱ // 0x1565 @0x10
0x1555…1597 at0011 = ╱55╱U╱ // 0x1566 @0x11
0x1555…1597 at0012 = ╱54╱T╱ // 0x1567 @0x12
0x1555…1597 at0013 = ╱31╱1╱ // 0x1568 @0x13
0x1555…1597 at0014 = ╱ed╱(╱ // 0x1569 @0x14
0x1555…1597 at0015 = ╱34╱4╱ // 0x156a @0x15
0x1555…1597 at0016 = ╱fe00008003╱ // 0x156b @0x16
0x1555…1597 at001b = ╱ec╱,╱ // 0x1570 @0x1b
0x1555…1597 at001c = ╱31╱1╱ // 0x1571 @0x1c
0x1555…1597 at001d = ╱32╱2╱ // 0x1572 @0x1d
0x1555…1597 at001e = ╱fe0000c004╱ // 0x1573 @0x1e
0x1555…1597 at0023 = ╱ec╱,╱ // 0x1578 @0x23
0x1555…1597 at0024 = ╱e9╱-╱ // 0x1579 @0x24
0x1555…1597 at0025 = ╱39╱9╱ // 0x157a @0x25
0x1555…1597 at0026 = ╱fe00009004╱ // 0x157b @0x26
0x1555…1597 at002b = ╱ec╱,╱ // 0x1580 @0x2b
0x1555…1597 at002c = ╱e9╱-╱ // 0x1581 @0x2c
0x1555…1597 at002d = ╱36╱6╱ // 0x1582 @0x2d
0x1555…1597 at002e = ╱fe0000c003╱ // 0x1583 @0x2e
0x1555…1597 at0033 = ╱ec╱,╱ // 0x1588 @0x33
0x1555…1597 at0034 = ╱4c╱L╱ // 0x1589 @0x34
0x1555…1597 at0035 = ╱54╱T╱ // 0x158a @0x35
0x1555…1597 at0036 = ╱58╱X╱ // 0x158b @0x36
0x1555…1597 at0037 = ╱ef╱$╱ // 0x158c @0x37
0x1555…1597 at0038 = ╱ed╱(╱ // 0x158d @0x38
0x1555…1597 at0039 = ╱32╱2╱ // 0x158e @0x39
0x1555…1597 at003a = ╱fe00008002╱ // 0x158f @0x3a
0x1555…1597 at003f = ╱ee╱)╱ // 0x1594 @0x3f
0x1555…1597 at0040 = ╱ee╱)╱ // 0x1595 @0x40
0x1555…1597 at0041 = EOL // 0x1596 @0x41
0x1555…1597 }
0x1597…15d7 a32e 2320 IF CEKS=E THEN EXEC INDPUT1(9,5,-2,0,LTX$(3))
0x1597…15d7 LineComalBin {
0x1597…15d7 ptr = 0xa32e // 0x1597 @0x0
0x1597…15d7 lno = 0x0910 // 0x1599 @0x2
0x1597…15d7 at0004 = ╱82╱ IF ╱ // 0x159b @0x4
0x1597…15d7 at0005 = ╱43╱C╱ // 0x159c @0x5
0x1597…15d7 at0006 = ╱45╱E╱ // 0x159d @0x6
0x1597…15d7 at0007 = ╱4b╱K╱ // 0x159e @0x7
0x1597…15d7 at0008 = ╱53╱S╱ // 0x159f @0x8
0x1597…15d7 at0009 = ╱dc╱=╱ // 0x15a0 @0x9
0x1597…15d7 at000a = ╱45╱E╱ // 0x15a1 @0xa
0x1597…15d7 at000b = ╱b6╱ THEN ╱ // 0x15a2 @0xb
0x1597…15d7 at000c = ╱9d╱ EXEC ╱ // 0x15a3 @0xc
0x1597…15d7 at000d = ╱49╱I╱ // 0x15a4 @0xd
0x1597…15d7 at000e = ╱4e╱N╱ // 0x15a5 @0xe
0x1597…15d7 at000f = ╱44╱D╱ // 0x15a6 @0xf
0x1597…15d7 at0010 = ╱50╱P╱ // 0x15a7 @0x10
0x1597…15d7 at0011 = ╱55╱U╱ // 0x15a8 @0x11
0x1597…15d7 at0012 = ╱54╱T╱ // 0x15a9 @0x12
0x1597…15d7 at0013 = ╱31╱1╱ // 0x15aa @0x13
0x1597…15d7 at0014 = ╱ed╱(╱ // 0x15ab @0x14
0x1597…15d7 at0015 = ╱39╱9╱ // 0x15ac @0x15
0x1597…15d7 at0016 = ╱fe00009004╱ // 0x15ad @0x16
0x1597…15d7 at001b = ╱ec╱,╱ // 0x15b2 @0x1b
0x1597…15d7 at001c = ╱35╱5╱ // 0x15b3 @0x1c
0x1597…15d7 at001d = ╱fe0000a003╱ // 0x15b4 @0x1d
0x1597…15d7 at0022 = ╱ec╱,╱ // 0x15b9 @0x22
0x1597…15d7 at0023 = ╱e9╱-╱ // 0x15ba @0x23
0x1597…15d7 at0024 = ╱32╱2╱ // 0x15bb @0x24
0x1597…15d7 at0025 = ╱fe00008002╱ // 0x15bc @0x25
0x1597…15d7 at002a = ╱ec╱,╱ // 0x15c1 @0x2a
0x1597…15d7 at002b = ╱30╱0╱ // 0x15c2 @0x2b
0x1597…15d7 at002c = ╱fe00000000╱ // 0x15c3 @0x2c
0x1597…15d7 at0031 = ╱ec╱,╱ // 0x15c8 @0x31
0x1597…15d7 at0032 = ╱4c╱L╱ // 0x15c9 @0x32
0x1597…15d7 at0033 = ╱54╱T╱ // 0x15ca @0x33
0x1597…15d7 at0034 = ╱58╱X╱ // 0x15cb @0x34
0x1597…15d7 at0035 = ╱ef╱$╱ // 0x15cc @0x35
0x1597…15d7 at0036 = ╱ed╱(╱ // 0x15cd @0x36
0x1597…15d7 at0037 = ╱33╱3╱ // 0x15ce @0x37
0x1597…15d7 at0038 = ╱fe0000c002╱ // 0x15cf @0x38
0x1597…15d7 at003d = ╱ee╱)╱ // 0x15d4 @0x3d
0x1597…15d7 at003e = ╱ee╱)╱ // 0x15d5 @0x3e
0x1597…15d7 at003f = EOL // 0x15d6 @0x3f
0x1597…15d7 }
0x15d7…15ed a344 2330 UNTIL P=-7 OR KONT=B
0x15d7…15ed LineComalBin {
0x15d7…15ed ptr = 0xa344 // 0x15d7 @0x0
0x15d7…15ed lno = 0x091a // 0x15d9 @0x2
0x15d7…15ed at0004 = ╱98╱ UNTIL ╱ // 0x15db @0x4
0x15d7…15ed at0005 = ╱50╱P╱ // 0x15dc @0x5
0x15d7…15ed at0006 = ╱dc╱=╱ // 0x15dd @0x6
0x15d7…15ed at0007 = ╱e9╱-╱ // 0x15de @0x7
0x15d7…15ed at0008 = ╱37╱7╱ // 0x15df @0x8
0x15d7…15ed at0009 = ╱fe0000e003╱ // 0x15e0 @0x9
0x15d7…15ed at000e = ╱db╱ OR ╱ // 0x15e5 @0xe
0x15d7…15ed at000f = ╱4b╱K╱ // 0x15e6 @0xf
0x15d7…15ed at0010 = ╱4f╱O╱ // 0x15e7 @0x10
0x15d7…15ed at0011 = ╱4e╱N╱ // 0x15e8 @0x11
0x15d7…15ed at0012 = ╱54╱T╱ // 0x15e9 @0x12
0x15d7…15ed at0013 = ╱dc╱=╱ // 0x15ea @0x13
0x15d7…15ed at0014 = ╱42╱B╱ // 0x15eb @0x14
0x15d7…15ed at0015 = EOL // 0x15ec @0x15
0x15d7…15ed }
0x15ed…15f3 a34a 2340 ENDPROC
0x15ed…15f3 LineComalBin {
0x15ed…15f3 ptr = 0xa34a // 0x15ed @0x0
0x15ed…15f3 lno = 0x0924 // 0x15ef @0x2
0x15ed…15f3 at0004 = ╱9f╱ ENDPROC ╱ // 0x15f1 @0x4
0x15ed…15f3 at0005 = EOL // 0x15f2 @0x5
0x15ed…15f3 }
0x15f3…1601 a358 2350 PROC HUDSKRIV
0x15f3…1601 LineComalBin {
0x15f3…1601 ptr = 0xa358 // 0x15f3 @0x0
0x15f3…1601 lno = 0x092e // 0x15f5 @0x2
0x15f3…1601 at0004 = ╱9e╱ PROC ╱ // 0x15f7 @0x4
0x15f3…1601 at0005 = ╱48╱H╱ // 0x15f8 @0x5
0x15f3…1601 at0006 = ╱55╱U╱ // 0x15f9 @0x6
0x15f3…1601 at0007 = ╱44╱D╱ // 0x15fa @0x7
0x15f3…1601 at0008 = ╱53╱S╱ // 0x15fb @0x8
0x15f3…1601 at0009 = ╱4b╱K╱ // 0x15fc @0x9
0x15f3…1601 at000a = ╱52╱R╱ // 0x15fd @0xa
0x15f3…1601 at000b = ╱49╱I╱ // 0x15fe @0xb
0x15f3…1601 at000c = ╱56╱V╱ // 0x15ff @0xc
0x15f3…1601 at000d = EOL // 0x1600 @0xd
0x15f3…1601 }
0x1601…160a a361 2360 PRINT " "
0x1601…160a LineComalBin {
0x1601…160a ptr = 0xa361 // 0x1601 @0x0
0x1601…160a lno = 0x0938 // 0x1603 @0x2
0x1601…160a at0004 = ╱92╱ PRINT ╱ // 0x1605 @0x4
0x1601…160a at0005 = ╱22╱"╱ // 0x1606 @0x5
0x1601…160a at0006 = ╱20╱…╱ // 0x1607 @0x6
0x1601…160a at0007 = ╱22╱"╱ // 0x1608 @0x7
0x1601…160a at0008 = EOL // 0x1609 @0x8
0x1601…160a }
0x160a…1622 a379 2370 PRINT TAB(65);DV$;" "
0x160a…1622 LineComalBin {
0x160a…1622 ptr = 0xa379 // 0x160a @0x0
0x160a…1622 lno = 0x0942 // 0x160c @0x2
0x160a…1622 at0004 = ╱92╱ PRINT ╱ // 0x160e @0x4
0x160a…1622 at0005 = ╱d2╱TAB╱ // 0x160f @0x5
0x160a…1622 at0006 = ╱ed╱(╱ // 0x1610 @0x6
0x160a…1622 at0007 = ╱36╱6╱ // 0x1611 @0x7
0x160a…1622 at0008 = ╱35╱5╱ // 0x1612 @0x8
0x160a…1622 at0009 = ╱fe00008207╱ // 0x1613 @0x9
0x160a…1622 at000e = ╱ee╱)╱ // 0x1618 @0xe
0x160a…1622 at000f = ╱eb╱;╱ // 0x1619 @0xf
0x160a…1622 at0010 = ╱44╱D╱ // 0x161a @0x10
0x160a…1622 at0011 = ╱56╱V╱ // 0x161b @0x11
0x160a…1622 at0012 = ╱ef╱$╱ // 0x161c @0x12
0x160a…1622 at0013 = ╱eb╱;╱ // 0x161d @0x13
0x160a…1622 at0014 = ╱22╱"╱ // 0x161e @0x14
0x160a…1622 at0015 = ╱20╱…╱ // 0x161f @0x15
0x160a…1622 at0016 = ╱22╱"╱ // 0x1620 @0x16
0x160a…1622 at0017 = EOL // 0x1621 @0x17
0x160a…1622 }
0x1622…1653 a3aa 2380 PRINT TAB(12);CHR(14);ENAVN$;" ";CHR(15)
0x1622…1653 LineComalBin {
0x1622…1653 ptr = 0xa3aa // 0x1622 @0x0
0x1622…1653 lno = 0x094c // 0x1624 @0x2
0x1622…1653 at0004 = ╱92╱ PRINT ╱ // 0x1626 @0x4
0x1622…1653 at0005 = ╱d2╱TAB╱ // 0x1627 @0x5
0x1622…1653 at0006 = ╱ed╱(╱ // 0x1628 @0x6
0x1622…1653 at0007 = ╱31╱1╱ // 0x1629 @0x7
0x1622…1653 at0008 = ╱32╱2╱ // 0x162a @0x8
0x1622…1653 at0009 = ╱fe0000c004╱ // 0x162b @0x9
0x1622…1653 at000e = ╱ee╱)╱ // 0x1630 @0xe
0x1622…1653 at000f = ╱eb╱;╱ // 0x1631 @0xf
0x1622…1653 at0010 = ╱cf╱CHR╱ // 0x1632 @0x10
0x1622…1653 at0011 = ╱ed╱(╱ // 0x1633 @0x11
0x1622…1653 at0012 = ╱31╱1╱ // 0x1634 @0x12
0x1622…1653 at0013 = ╱34╱4╱ // 0x1635 @0x13
0x1622…1653 at0014 = ╱fe0000e004╱ // 0x1636 @0x14
0x1622…1653 at0019 = ╱ee╱)╱ // 0x163b @0x19
0x1622…1653 at001a = ╱eb╱;╱ // 0x163c @0x1a
0x1622…1653 at001b = ╱45╱E╱ // 0x163d @0x1b
0x1622…1653 at001c = ╱4e╱N╱ // 0x163e @0x1c
0x1622…1653 at001d = ╱41╱A╱ // 0x163f @0x1d
0x1622…1653 at001e = ╱56╱V╱ // 0x1640 @0x1e
0x1622…1653 at001f = ╱4e╱N╱ // 0x1641 @0x1f
0x1622…1653 at0020 = ╱ef╱$╱ // 0x1642 @0x20
0x1622…1653 at0021 = ╱eb╱;╱ // 0x1643 @0x21
0x1622…1653 at0022 = ╱22╱"╱ // 0x1644 @0x22
0x1622…1653 at0023 = ╱20╱…╱ // 0x1645 @0x23
0x1622…1653 at0024 = ╱22╱"╱ // 0x1646 @0x24
0x1622…1653 at0025 = ╱eb╱;╱ // 0x1647 @0x25
0x1622…1653 at0026 = ╱cf╱CHR╱ // 0x1648 @0x26
0x1622…1653 at0027 = ╱ed╱(╱ // 0x1649 @0x27
0x1622…1653 at0028 = ╱31╱1╱ // 0x164a @0x28
0x1622…1653 at0029 = ╱35╱5╱ // 0x164b @0x29
0x1622…1653 at002a = ╱fe0000f004╱ // 0x164c @0x2a
0x1622…1653 at002f = ╱ee╱)╱ // 0x1651 @0x2f
0x1622…1653 at0030 = EOL // 0x1652 @0x30
0x1622…1653 }
0x1653…165c a3b3 2390 PRINT " "
0x1653…165c LineComalBin {
0x1653…165c ptr = 0xa3b3 // 0x1653 @0x0
0x1653…165c lno = 0x0956 // 0x1655 @0x2
0x1653…165c at0004 = ╱92╱ PRINT ╱ // 0x1657 @0x4
0x1653…165c at0005 = ╱22╱"╱ // 0x1658 @0x5
0x1653…165c at0006 = ╱20╱…╱ // 0x1659 @0x6
0x1653…165c at0007 = ╱22╱"╱ // 0x165a @0x7
0x1653…165c at0008 = EOL // 0x165b @0x8
0x1653…165c }
0x165c…1694 a3eb 2400 PRINT TAB(12);CHR(14);UNAVN$(EPIL1);" ";CHR(15)
0x165c…1694 LineComalBin {
0x165c…1694 ptr = 0xa3eb // 0x165c @0x0
0x165c…1694 lno = 0x0960 // 0x165e @0x2
0x165c…1694 at0004 = ╱92╱ PRINT ╱ // 0x1660 @0x4
0x165c…1694 at0005 = ╱d2╱TAB╱ // 0x1661 @0x5
0x165c…1694 at0006 = ╱ed╱(╱ // 0x1662 @0x6
0x165c…1694 at0007 = ╱31╱1╱ // 0x1663 @0x7
0x165c…1694 at0008 = ╱32╱2╱ // 0x1664 @0x8
0x165c…1694 at0009 = ╱fe0000c004╱ // 0x1665 @0x9
0x165c…1694 at000e = ╱ee╱)╱ // 0x166a @0xe
0x165c…1694 at000f = ╱eb╱;╱ // 0x166b @0xf
0x165c…1694 at0010 = ╱cf╱CHR╱ // 0x166c @0x10
0x165c…1694 at0011 = ╱ed╱(╱ // 0x166d @0x11
0x165c…1694 at0012 = ╱31╱1╱ // 0x166e @0x12
0x165c…1694 at0013 = ╱34╱4╱ // 0x166f @0x13
0x165c…1694 at0014 = ╱fe0000e004╱ // 0x1670 @0x14
0x165c…1694 at0019 = ╱ee╱)╱ // 0x1675 @0x19
0x165c…1694 at001a = ╱eb╱;╱ // 0x1676 @0x1a
0x165c…1694 at001b = ╱55╱U╱ // 0x1677 @0x1b
0x165c…1694 at001c = ╱4e╱N╱ // 0x1678 @0x1c
0x165c…1694 at001d = ╱41╱A╱ // 0x1679 @0x1d
0x165c…1694 at001e = ╱56╱V╱ // 0x167a @0x1e
0x165c…1694 at001f = ╱4e╱N╱ // 0x167b @0x1f
0x165c…1694 at0020 = ╱ef╱$╱ // 0x167c @0x20
0x165c…1694 at0021 = ╱ed╱(╱ // 0x167d @0x21
0x165c…1694 at0022 = ╱45╱E╱ // 0x167e @0x22
0x165c…1694 at0023 = ╱50╱P╱ // 0x167f @0x23
0x165c…1694 at0024 = ╱49╱I╱ // 0x1680 @0x24
0x165c…1694 at0025 = ╱4c╱L╱ // 0x1681 @0x25
0x165c…1694 at0026 = ╱31╱1╱ // 0x1682 @0x26
0x165c…1694 at0027 = ╱ee╱)╱ // 0x1683 @0x27
0x165c…1694 at0028 = ╱eb╱;╱ // 0x1684 @0x28
0x165c…1694 at0029 = ╱22╱"╱ // 0x1685 @0x29
0x165c…1694 at002a = ╱20╱…╱ // 0x1686 @0x2a
0x165c…1694 at002b = ╱22╱"╱ // 0x1687 @0x2b
0x165c…1694 at002c = ╱eb╱;╱ // 0x1688 @0x2c
0x165c…1694 at002d = ╱cf╱CHR╱ // 0x1689 @0x2d
0x165c…1694 at002e = ╱ed╱(╱ // 0x168a @0x2e
0x165c…1694 at002f = ╱31╱1╱ // 0x168b @0x2f
0x165c…1694 at0030 = ╱35╱5╱ // 0x168c @0x30
0x165c…1694 at0031 = ╱fe0000f004╱ // 0x168d @0x31
0x165c…1694 at0036 = ╱ee╱)╱ // 0x1692 @0x36
0x165c…1694 at0037 = EOL // 0x1693 @0x37
0x165c…1694 }
0x1694…169d a3f4 2410 PRINT " "
0x1694…169d LineComalBin {
0x1694…169d ptr = 0xa3f4 // 0x1694 @0x0
0x1694…169d lno = 0x096a // 0x1696 @0x2
0x1694…169d at0004 = ╱92╱ PRINT ╱ // 0x1698 @0x4
0x1694…169d at0005 = ╱22╱"╱ // 0x1699 @0x5
0x1694…169d at0006 = ╱20╱…╱ // 0x169a @0x6
0x1694…169d at0007 = ╱22╱"╱ // 0x169b @0x7
0x1694…169d at0008 = EOL // 0x169c @0x8
0x1694…169d }
0x169d…16a3 a3fa 2420 ENDPROC
0x169d…16a3 LineComalBin {
0x169d…16a3 ptr = 0xa3fa // 0x169d @0x0
0x169d…16a3 lno = 0x0974 // 0x169f @0x2
0x169d…16a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x16a1 @0x4
0x169d…16a3 at0005 = EOL // 0x16a2 @0x5
0x169d…16a3 }
0x16a3…16b2 a409 2430 PROC HSUDSKRIV
0x16a3…16b2 LineComalBin {
0x16a3…16b2 ptr = 0xa409 // 0x16a3 @0x0
0x16a3…16b2 lno = 0x097e // 0x16a5 @0x2
0x16a3…16b2 at0004 = ╱9e╱ PROC ╱ // 0x16a7 @0x4
0x16a3…16b2 at0005 = ╱48╱H╱ // 0x16a8 @0x5
0x16a3…16b2 at0006 = ╱53╱S╱ // 0x16a9 @0x6
0x16a3…16b2 at0007 = ╱55╱U╱ // 0x16aa @0x7
0x16a3…16b2 at0008 = ╱44╱D╱ // 0x16ab @0x8
0x16a3…16b2 at0009 = ╱53╱S╱ // 0x16ac @0x9
0x16a3…16b2 at000a = ╱4b╱K╱ // 0x16ad @0xa
0x16a3…16b2 at000b = ╱52╱R╱ // 0x16ae @0xb
0x16a3…16b2 at000c = ╱49╱I╱ // 0x16af @0xc
0x16a3…16b2 at000d = ╱56╱V╱ // 0x16b0 @0xd
0x16a3…16b2 at000e = EOL // 0x16b1 @0xe
0x16a3…16b2 }
0x16b2…16be a415 2440 IF SKRIV THEN
0x16b2…16be LineComalBin {
0x16b2…16be ptr = 0xa415 // 0x16b2 @0x0
0x16b2…16be lno = 0x0988 // 0x16b4 @0x2
0x16b2…16be at0004 = ╱9c╱ IF ╱ // 0x16b6 @0x4
0x16b2…16be at0005 = ╱53╱S╱ // 0x16b7 @0x5
0x16b2…16be at0006 = ╱4b╱K╱ // 0x16b8 @0x6
0x16b2…16be at0007 = ╱52╱R╱ // 0x16b9 @0x7
0x16b2…16be at0008 = ╱49╱I╱ // 0x16ba @0x8
0x16b2…16be at0009 = ╱56╱V╱ // 0x16bb @0x9
0x16b2…16be at000a = ╱b6╱ THEN ╱ // 0x16bc @0xa
0x16b2…16be at000b = EOL // 0x16bd @0xb
0x16b2…16be }
0x16be…16fa a451 2450 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side"
0x16be…16fa LineComalBin {
0x16be…16fa ptr = 0xa451 // 0x16be @0x0
0x16be…16fa lno = 0x0992 // 0x16c0 @0x2
0x16be…16fa at0004 = ╱92╱ PRINT ╱ // 0x16c2 @0x4
0x16be…16fa at0005 = ╱d2╱TAB╱ // 0x16c3 @0x5
0x16be…16fa at0006 = ╱ed╱(╱ // 0x16c4 @0x6
0x16be…16fa at0007 = ╱34╱4╱ // 0x16c5 @0x7
0x16be…16fa at0008 = ╱39╱9╱ // 0x16c6 @0x8
0x16be…16fa at0009 = ╱fe0000c406╱ // 0x16c7 @0x9
0x16be…16fa at000e = ╱ee╱)╱ // 0x16cc @0xe
0x16be…16fa at000f = ╱eb╱;╱ // 0x16cd @0xf
0x16be…16fa at0010 = ╱22╱"╱ // 0x16ce @0x10
0x16be…16fa at0011 = ╱4b╱K╱ // 0x16cf @0x11
0x16be…16fa at0012 = ╱6f╱o╱ // 0x16d0 @0x12
0x16be…16fa at0013 = ╱6e╱n╱ // 0x16d1 @0x13
0x16be…16fa at0014 = ╱74╱t╱ // 0x16d2 @0x14
0x16be…16fa at0015 = ╱6f╱o╱ // 0x16d3 @0x15
0x16be…16fa at0016 = ╱22╱"╱ // 0x16d4 @0x16
0x16be…16fa at0017 = ╱eb╱;╱ // 0x16d5 @0x17
0x16be…16fa at0018 = ╱d2╱TAB╱ // 0x16d6 @0x18
0x16be…16fa at0019 = ╱ed╱(╱ // 0x16d7 @0x19
0x16be…16fa at001a = ╱35╱5╱ // 0x16d8 @0x1a
0x16be…16fa at001b = ╱36╱6╱ // 0x16d9 @0x1b
0x16be…16fa at001c = ╱fe0000e006╱ // 0x16da @0x1c
0x16be…16fa at0021 = ╱ee╱)╱ // 0x16df @0x21
0x16be…16fa at0022 = ╱eb╱;╱ // 0x16e0 @0x22
0x16be…16fa at0023 = ╱22╱"╱ // 0x16e1 @0x23
0x16be…16fa at0024 = ╱44╱D╱ // 0x16e2 @0x24
0x16be…16fa at0025 = ╱61╱a╱ // 0x16e3 @0x25
0x16be…16fa at0026 = ╱74╱t╱ // 0x16e4 @0x26
0x16be…16fa at0027 = ╱6f╱o╱ // 0x16e5 @0x27
0x16be…16fa at0028 = ╱22╱"╱ // 0x16e6 @0x28
0x16be…16fa at0029 = ╱eb╱;╱ // 0x16e7 @0x29
0x16be…16fa at002a = ╱d2╱TAB╱ // 0x16e8 @0x2a
0x16be…16fa at002b = ╱ed╱(╱ // 0x16e9 @0x2b
0x16be…16fa at002c = ╱36╱6╱ // 0x16ea @0x2c
0x16be…16fa at002d = ╱38╱8╱ // 0x16eb @0x2d
0x16be…16fa at002e = ╱fe00008807╱ // 0x16ec @0x2e
0x16be…16fa at0033 = ╱ee╱)╱ // 0x16f1 @0x33
0x16be…16fa at0034 = ╱eb╱;╱ // 0x16f2 @0x34
0x16be…16fa at0035 = ╱22╱"╱ // 0x16f3 @0x35
0x16be…16fa at0036 = ╱53╱S╱ // 0x16f4 @0x36
0x16be…16fa at0037 = ╱69╱i╱ // 0x16f5 @0x37
0x16be…16fa at0038 = ╱64╱d╱ // 0x16f6 @0x38
0x16be…16fa at0039 = ╱65╱e╱ // 0x16f7 @0x39
0x16be…16fa at003a = ╱22╱"╱ // 0x16f8 @0x3a
0x16be…16fa at003b = EOL // 0x16f9 @0x3b
0x16be…16fa }
0x16fa…171c a473 2460 PRINT TAB(49);STREG$(E:29)
0x16fa…171c LineComalBin {
0x16fa…171c ptr = 0xa473 // 0x16fa @0x0
0x16fa…171c lno = 0x099c // 0x16fc @0x2
0x16fa…171c at0004 = ╱92╱ PRINT ╱ // 0x16fe @0x4
0x16fa…171c at0005 = ╱d2╱TAB╱ // 0x16ff @0x5
0x16fa…171c at0006 = ╱ed╱(╱ // 0x1700 @0x6
0x16fa…171c at0007 = ╱34╱4╱ // 0x1701 @0x7
0x16fa…171c at0008 = ╱39╱9╱ // 0x1702 @0x8
0x16fa…171c at0009 = ╱fe0000c406╱ // 0x1703 @0x9
0x16fa…171c at000e = ╱ee╱)╱ // 0x1708 @0xe
0x16fa…171c at000f = ╱eb╱;╱ // 0x1709 @0xf
0x16fa…171c at0010 = ╱53╱S╱ // 0x170a @0x10
0x16fa…171c at0011 = ╱54╱T╱ // 0x170b @0x11
0x16fa…171c at0012 = ╱52╱R╱ // 0x170c @0x12
0x16fa…171c at0013 = ╱45╱E╱ // 0x170d @0x13
0x16fa…171c at0014 = ╱47╱G╱ // 0x170e @0x14
0x16fa…171c at0015 = ╱ef╱$╱ // 0x170f @0x15
0x16fa…171c at0016 = ╱ed╱(╱ // 0x1710 @0x16
0x16fa…171c at0017 = ╱45╱E╱ // 0x1711 @0x17
0x16fa…171c at0018 = ╱f0╱:╱ // 0x1712 @0x18
0x16fa…171c at0019 = ╱32╱2╱ // 0x1713 @0x19
0x16fa…171c at001a = ╱39╱9╱ // 0x1714 @0x1a
0x16fa…171c at001b = ╱fe0000e805╱ // 0x1715 @0x1b
0x16fa…171c at0020 = ╱ee╱)╱ // 0x171a @0x20
0x16fa…171c at0021 = EOL // 0x171b @0x21
0x16fa…171c }
0x171c…173d a494 2470 EXEC LUDSKRIV(KONT,DATO,KSIDENR)
0x171c…173d LineComalBin {
0x171c…173d ptr = 0xa494 // 0x171c @0x0
0x171c…173d lno = 0x09a6 // 0x171e @0x2
0x171c…173d at0004 = ╱9d╱ EXEC ╱ // 0x1720 @0x4
0x171c…173d at0005 = ╱4c╱L╱ // 0x1721 @0x5
0x171c…173d at0006 = ╱55╱U╱ // 0x1722 @0x6
0x171c…173d at0007 = ╱44╱D╱ // 0x1723 @0x7
0x171c…173d at0008 = ╱53╱S╱ // 0x1724 @0x8
0x171c…173d at0009 = ╱4b╱K╱ // 0x1725 @0x9
0x171c…173d at000a = ╱52╱R╱ // 0x1726 @0xa
0x171c…173d at000b = ╱49╱I╱ // 0x1727 @0xb
0x171c…173d at000c = ╱56╱V╱ // 0x1728 @0xc
0x171c…173d at000d = ╱ed╱(╱ // 0x1729 @0xd
0x171c…173d at000e = ╱4b╱K╱ // 0x172a @0xe
0x171c…173d at000f = ╱4f╱O╱ // 0x172b @0xf
0x171c…173d at0010 = ╱4e╱N╱ // 0x172c @0x10
0x171c…173d at0011 = ╱54╱T╱ // 0x172d @0x11
0x171c…173d at0012 = ╱ec╱,╱ // 0x172e @0x12
0x171c…173d at0013 = ╱44╱D╱ // 0x172f @0x13
0x171c…173d at0014 = ╱41╱A╱ // 0x1730 @0x14
0x171c…173d at0015 = ╱54╱T╱ // 0x1731 @0x15
0x171c…173d at0016 = ╱4f╱O╱ // 0x1732 @0x16
0x171c…173d at0017 = ╱ec╱,╱ // 0x1733 @0x17
0x171c…173d at0018 = ╱4b╱K╱ // 0x1734 @0x18
0x171c…173d at0019 = ╱53╱S╱ // 0x1735 @0x19
0x171c…173d at001a = ╱49╱I╱ // 0x1736 @0x1a
0x171c…173d at001b = ╱44╱D╱ // 0x1737 @0x1b
0x171c…173d at001c = ╱45╱E╱ // 0x1738 @0x1c
0x171c…173d at001d = ╱4e╱N╱ // 0x1739 @0x1d
0x171c…173d at001e = ╱52╱R╱ // 0x173a @0x1e
0x171c…173d at001f = ╱ee╱)╱ // 0x173b @0x1f
0x171c…173d at0020 = EOL // 0x173c @0x20
0x171c…173d }
0x173d…1749 a4a0 2480 PRINT STREG$
0x173d…1749 LineComalBin {
0x173d…1749 ptr = 0xa4a0 // 0x173d @0x0
0x173d…1749 lno = 0x09b0 // 0x173f @0x2
0x173d…1749 at0004 = ╱92╱ PRINT ╱ // 0x1741 @0x4
0x173d…1749 at0005 = ╱53╱S╱ // 0x1742 @0x5
0x173d…1749 at0006 = ╱54╱T╱ // 0x1743 @0x6
0x173d…1749 at0007 = ╱52╱R╱ // 0x1744 @0x7
0x173d…1749 at0008 = ╱45╱E╱ // 0x1745 @0x8
0x173d…1749 at0009 = ╱47╱G╱ // 0x1746 @0x9
0x173d…1749 at000a = ╱ef╱$╱ // 0x1747 @0xa
0x173d…1749 at000b = EOL // 0x1748 @0xb
0x173d…1749 }
0x1749…174f a4a6 2490 ELSE
0x1749…174f LineComalBin {
0x1749…174f ptr = 0xa4a6 // 0x1749 @0x0
0x1749…174f lno = 0x09ba // 0x174b @0x2
0x1749…174f at0004 = ╱9a╱ ELSE ╱ // 0x174d @0x4
0x1749…174f at0005 = EOL // 0x174e @0x5
0x1749…174f }
0x174f…1755 a4ac 2500 CLEAR
0x174f…1755 LineComalBin {
0x174f…1755 ptr = 0xa4ac // 0x174f @0x0
0x174f…1755 lno = 0x09c4 // 0x1751 @0x2
0x174f…1755 at0004 = ╱a0╱ CLEAR ╱ // 0x1753 @0x4
0x174f…1755 at0005 = EOL // 0x1754 @0x5
0x174f…1755 }
0x1755…176d a4c4 2510 EXEC OVERSKRIFT(1)
0x1755…176d LineComalBin {
0x1755…176d ptr = 0xa4c4 // 0x1755 @0x0
0x1755…176d lno = 0x09ce // 0x1757 @0x2
0x1755…176d at0004 = ╱9d╱ EXEC ╱ // 0x1759 @0x4
0x1755…176d at0005 = ╱4f╱O╱ // 0x175a @0x5
0x1755…176d at0006 = ╱56╱V╱ // 0x175b @0x6
0x1755…176d at0007 = ╱45╱E╱ // 0x175c @0x7
0x1755…176d at0008 = ╱52╱R╱ // 0x175d @0x8
0x1755…176d at0009 = ╱53╱S╱ // 0x175e @0x9
0x1755…176d at000a = ╱4b╱K╱ // 0x175f @0xa
0x1755…176d at000b = ╱52╱R╱ // 0x1760 @0xb
0x1755…176d at000c = ╱49╱I╱ // 0x1761 @0xc
0x1755…176d at000d = ╱46╱F╱ // 0x1762 @0xd
0x1755…176d at000e = ╱54╱T╱ // 0x1763 @0xe
0x1755…176d at000f = ╱ed╱(╱ // 0x1764 @0xf
0x1755…176d at0010 = ╱31╱1╱ // 0x1765 @0x10
0x1755…176d at0011 = ╱fe00008001╱ // 0x1766 @0x11
0x1755…176d at0016 = ╱ee╱)╱ // 0x176b @0x16
0x1755…176d at0017 = EOL // 0x176c @0x17
0x1755…176d }
0x176d…1776 a4cd 2520 CURSOR E,V
0x176d…1776 LineComalBin {
0x176d…1776 ptr = 0xa4cd // 0x176d @0x0
0x176d…1776 lno = 0x09d8 // 0x176f @0x2
0x176d…1776 at0004 = ╱a1╱ CURSOR ╱ // 0x1771 @0x4
0x176d…1776 at0005 = ╱45╱E╱ // 0x1772 @0x5
0x176d…1776 at0006 = ╱ec╱,╱ // 0x1773 @0x6
0x176d…1776 at0007 = ╱56╱V╱ // 0x1774 @0x7
0x176d…1776 at0008 = EOL // 0x1775 @0x8
0x176d…1776 }
0x1776…177c (78,) a4d3 2530 ENDIF
0x1776…177c LineComalBin {
0x1776…177c ptr = 0xa4d3 // 0x1776 @0x0
0x1776…177c lno = 0x09e2 // 0x1778 @0x2
0x1776…177c at0004 = ╱9b╱ ENDIF ╱ // 0x177a @0x4
0x1776…177c at0005 = EOL // 0x177b @0x5
0x1776…177c }
0x177c…17c5 a51c 2540 PRINT TAB(V);"Dato";TAB(12);"Bilag Tekst";TAB(45);"Konto";TAB(57);
0x177c…17c5 LineComalBin {
0x177c…17c5 ptr = 0xa51c // 0x177c @0x0
0x177c…17c5 lno = 0x09ec // 0x177e @0x2
0x177c…17c5 at0004 = ╱92╱ PRINT ╱ // 0x1780 @0x4
0x177c…17c5 at0005 = ╱d2╱TAB╱ // 0x1781 @0x5
0x177c…17c5 at0006 = ╱ed╱(╱ // 0x1782 @0x6
0x177c…17c5 at0007 = ╱56╱V╱ // 0x1783 @0x7
0x177c…17c5 at0008 = ╱ee╱)╱ // 0x1784 @0x8
0x177c…17c5 at0009 = ╱eb╱;╱ // 0x1785 @0x9
0x177c…17c5 at000a = ╱22╱"╱ // 0x1786 @0xa
0x177c…17c5 at000b = ╱44╱D╱ // 0x1787 @0xb
0x177c…17c5 at000c = ╱61╱a╱ // 0x1788 @0xc
0x177c…17c5 at000d = ╱74╱t╱ // 0x1789 @0xd
0x177c…17c5 at000e = ╱6f╱o╱ // 0x178a @0xe
0x177c…17c5 at000f = ╱22╱"╱ // 0x178b @0xf
0x177c…17c5 at0010 = ╱eb╱;╱ // 0x178c @0x10
0x177c…17c5 at0011 = ╱d2╱TAB╱ // 0x178d @0x11
0x177c…17c5 at0012 = ╱ed╱(╱ // 0x178e @0x12
0x177c…17c5 at0013 = ╱31╱1╱ // 0x178f @0x13
0x177c…17c5 at0014 = ╱32╱2╱ // 0x1790 @0x14
0x177c…17c5 at0015 = ╱fe0000c004╱ // 0x1791 @0x15
0x177c…17c5 at001a = ╱ee╱)╱ // 0x1796 @0x1a
0x177c…17c5 at001b = ╱eb╱;╱ // 0x1797 @0x1b
0x177c…17c5 at001c = ╱22╱"╱ // 0x1798 @0x1c
0x177c…17c5 at001d = ╱42╱B╱ // 0x1799 @0x1d
0x177c…17c5 at001e = ╱69╱i╱ // 0x179a @0x1e
0x177c…17c5 at001f = ╱6c╱l╱ // 0x179b @0x1f
0x177c…17c5 at0020 = ╱61╱a╱ // 0x179c @0x20
0x177c…17c5 at0021 = ╱67╱g╱ // 0x179d @0x21
0x177c…17c5 at0022 = ╱20╱…╱ // 0x179e @0x22
0x177c…17c5 at0023 = ╱54╱T╱ // 0x179f @0x23
0x177c…17c5 at0024 = ╱65╱e╱ // 0x17a0 @0x24
0x177c…17c5 at0025 = ╱6b╱k╱ // 0x17a1 @0x25
0x177c…17c5 at0026 = ╱73╱s╱ // 0x17a2 @0x26
0x177c…17c5 at0027 = ╱74╱t╱ // 0x17a3 @0x27
0x177c…17c5 at0028 = ╱22╱"╱ // 0x17a4 @0x28
0x177c…17c5 at0029 = ╱eb╱;╱ // 0x17a5 @0x29
0x177c…17c5 at002a = ╱d2╱TAB╱ // 0x17a6 @0x2a
0x177c…17c5 at002b = ╱ed╱(╱ // 0x17a7 @0x2b
0x177c…17c5 at002c = ╱34╱4╱ // 0x17a8 @0x2c
0x177c…17c5 at002d = ╱35╱5╱ // 0x17a9 @0x2d
0x177c…17c5 at002e = ╱fe0000b406╱ // 0x17aa @0x2e
0x177c…17c5 at0033 = ╱ee╱)╱ // 0x17af @0x33
0x177c…17c5 at0034 = ╱eb╱;╱ // 0x17b0 @0x34
0x177c…17c5 at0035 = ╱22╱"╱ // 0x17b1 @0x35
0x177c…17c5 at0036 = ╱4b╱K╱ // 0x17b2 @0x36
0x177c…17c5 at0037 = ╱6f╱o╱ // 0x17b3 @0x37
0x177c…17c5 at0038 = ╱6e╱n╱ // 0x17b4 @0x38
0x177c…17c5 at0039 = ╱74╱t╱ // 0x17b5 @0x39
0x177c…17c5 at003a = ╱6f╱o╱ // 0x17b6 @0x3a
0x177c…17c5 at003b = ╱22╱"╱ // 0x17b7 @0x3b
0x177c…17c5 at003c = ╱eb╱;╱ // 0x17b8 @0x3c
0x177c…17c5 at003d = ╱d2╱TAB╱ // 0x17b9 @0x3d
0x177c…17c5 at003e = ╱ed╱(╱ // 0x17ba @0x3e
0x177c…17c5 at003f = ╱35╱5╱ // 0x17bb @0x3f
0x177c…17c5 at0040 = ╱37╱7╱ // 0x17bc @0x40
0x177c…17c5 at0041 = ╱fe0000e406╱ // 0x17bd @0x41
0x177c…17c5 at0046 = ╱ee╱)╱ // 0x17c2 @0x46
0x177c…17c5 at0047 = ╱eb╱;╱ // 0x17c3 @0x47
0x177c…17c5 at0048 = EOL // 0x17c4 @0x48
0x177c…17c5 }
0x17c5…17e6 a53d 2550 PRINT "Debet";TAB(72);"Kredit"
0x17c5…17e6 LineComalBin {
0x17c5…17e6 ptr = 0xa53d // 0x17c5 @0x0
0x17c5…17e6 lno = 0x09f6 // 0x17c7 @0x2
0x17c5…17e6 at0004 = ╱92╱ PRINT ╱ // 0x17c9 @0x4
0x17c5…17e6 at0005 = ╱22╱"╱ // 0x17ca @0x5
0x17c5…17e6 at0006 = ╱44╱D╱ // 0x17cb @0x6
0x17c5…17e6 at0007 = ╱65╱e╱ // 0x17cc @0x7
0x17c5…17e6 at0008 = ╱62╱b╱ // 0x17cd @0x8
0x17c5…17e6 at0009 = ╱65╱e╱ // 0x17ce @0x9
0x17c5…17e6 at000a = ╱74╱t╱ // 0x17cf @0xa
0x17c5…17e6 at000b = ╱22╱"╱ // 0x17d0 @0xb
0x17c5…17e6 at000c = ╱eb╱;╱ // 0x17d1 @0xc
0x17c5…17e6 at000d = ╱d2╱TAB╱ // 0x17d2 @0xd
0x17c5…17e6 at000e = ╱ed╱(╱ // 0x17d3 @0xe
0x17c5…17e6 at000f = ╱37╱7╱ // 0x17d4 @0xf
0x17c5…17e6 at0010 = ╱32╱2╱ // 0x17d5 @0x10
0x17c5…17e6 at0011 = ╱fe00009007╱ // 0x17d6 @0x11
0x17c5…17e6 at0016 = ╱ee╱)╱ // 0x17db @0x16
0x17c5…17e6 at0017 = ╱eb╱;╱ // 0x17dc @0x17
0x17c5…17e6 at0018 = ╱22╱"╱ // 0x17dd @0x18
0x17c5…17e6 at0019 = ╱4b╱K╱ // 0x17de @0x19
0x17c5…17e6 at001a = ╱72╱r╱ // 0x17df @0x1a
0x17c5…17e6 at001b = ╱65╱e╱ // 0x17e0 @0x1b
0x17c5…17e6 at001c = ╱64╱d╱ // 0x17e1 @0x1c
0x17c5…17e6 at001d = ╱69╱i╱ // 0x17e2 @0x1d
0x17c5…17e6 at001e = ╱74╱t╱ // 0x17e3 @0x1e
0x17c5…17e6 at001f = ╱22╱"╱ // 0x17e4 @0x1f
0x17c5…17e6 at0020 = EOL // 0x17e5 @0x20
0x17c5…17e6 }
0x17e6…17f2 a549 2560 PRINT STREG$
0x17e6…17f2 LineComalBin {
0x17e6…17f2 ptr = 0xa549 // 0x17e6 @0x0
0x17e6…17f2 lno = 0x0a00 // 0x17e8 @0x2
0x17e6…17f2 at0004 = ╱92╱ PRINT ╱ // 0x17ea @0x4
0x17e6…17f2 at0005 = ╱53╱S╱ // 0x17eb @0x5
0x17e6…17f2 at0006 = ╱54╱T╱ // 0x17ec @0x6
0x17e6…17f2 at0007 = ╱52╱R╱ // 0x17ed @0x7
0x17e6…17f2 at0008 = ╱45╱E╱ // 0x17ee @0x8
0x17e6…17f2 at0009 = ╱47╱G╱ // 0x17ef @0x9
0x17e6…17f2 at000a = ╱ef╱$╱ // 0x17f0 @0xa
0x17e6…17f2 at000b = EOL // 0x17f1 @0xb
0x17e6…17f2 }
0x17f2…17f8 a54f 2570 ENDPROC
0x17f2…17f8 LineComalBin {
0x17f2…17f8 ptr = 0xa54f // 0x17f2 @0x0
0x17f2…17f8 lno = 0x0a0a // 0x17f4 @0x2
0x17f2…17f8 at0004 = ╱9f╱ ENDPROC ╱ // 0x17f6 @0x4
0x17f2…17f8 at0005 = EOL // 0x17f7 @0x5
0x17f2…17f8 }
0x17f8…180e a565 2580 PROC OVERSKRIFT(ART1)
0x17f8…180e LineComalBin {
0x17f8…180e ptr = 0xa565 // 0x17f8 @0x0
0x17f8…180e lno = 0x0a14 // 0x17fa @0x2
0x17f8…180e at0004 = ╱9e╱ PROC ╱ // 0x17fc @0x4
0x17f8…180e at0005 = ╱4f╱O╱ // 0x17fd @0x5
0x17f8…180e at0006 = ╱56╱V╱ // 0x17fe @0x6
0x17f8…180e at0007 = ╱45╱E╱ // 0x17ff @0x7
0x17f8…180e at0008 = ╱52╱R╱ // 0x1800 @0x8
0x17f8…180e at0009 = ╱53╱S╱ // 0x1801 @0x9
0x17f8…180e at000a = ╱4b╱K╱ // 0x1802 @0xa
0x17f8…180e at000b = ╱52╱R╱ // 0x1803 @0xb
0x17f8…180e at000c = ╱49╱I╱ // 0x1804 @0xc
0x17f8…180e at000d = ╱46╱F╱ // 0x1805 @0xd
0x17f8…180e at000e = ╱54╱T╱ // 0x1806 @0xe
0x17f8…180e at000f = ╱ed╱(╱ // 0x1807 @0xf
0x17f8…180e at0010 = ╱41╱A╱ // 0x1808 @0x10
0x17f8…180e at0011 = ╱52╱R╱ // 0x1809 @0x11
0x17f8…180e at0012 = ╱54╱T╱ // 0x180a @0x12
0x17f8…180e at0013 = ╱31╱1╱ // 0x180b @0x13
0x17f8…180e at0014 = ╱ee╱)╱ // 0x180c @0x14
0x17f8…180e at0015 = EOL // 0x180d @0x15
0x17f8…180e }
0x180e…181b a572 2590 IF ART1=B THEN
0x180e…181b LineComalBin {
0x180e…181b ptr = 0xa572 // 0x180e @0x0
0x180e…181b lno = 0x0a1e // 0x1810 @0x2
0x180e…181b at0004 = ╱9c╱ IF ╱ // 0x1812 @0x4
0x180e…181b at0005 = ╱41╱A╱ // 0x1813 @0x5
0x180e…181b at0006 = ╱52╱R╱ // 0x1814 @0x6
0x180e…181b at0007 = ╱54╱T╱ // 0x1815 @0x7
0x180e…181b at0008 = ╱31╱1╱ // 0x1816 @0x8
0x180e…181b at0009 = ╱dc╱=╱ // 0x1817 @0x9
0x180e…181b at000a = ╱42╱B╱ // 0x1818 @0xa
0x180e…181b at000b = ╱b6╱ THEN ╱ // 0x1819 @0xb
0x180e…181b at000c = EOL // 0x181a @0xc
0x180e…181b }
0x181b…1858 a5af 2600 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$
0x181b…1858 LineComalBin {
0x181b…1858 ptr = 0xa5af // 0x181b @0x0
0x181b…1858 lno = 0x0a28 // 0x181d @0x2
0x181b…1858 at0004 = ╱92╱ PRINT ╱ // 0x181f @0x4
0x181b…1858 at0005 = ╱d2╱TAB╱ // 0x1820 @0x5
0x181b…1858 at0006 = ╱ed╱(╱ // 0x1821 @0x6
0x181b…1858 at0007 = ╱32╱2╱ // 0x1822 @0x7
0x181b…1858 at0008 = ╱31╱1╱ // 0x1823 @0x8
0x181b…1858 at0009 = ╱fe0000a805╱ // 0x1824 @0x9
0x181b…1858 at000e = ╱ee╱)╱ // 0x1829 @0xe
0x181b…1858 at000f = ╱eb╱;╱ // 0x182a @0xf
0x181b…1858 at0010 = ╱22╱"╱ // 0x182b @0x10
0x181b…1858 at0011 = ╱4b╱K╱ // 0x182c @0x11
0x181b…1858 at0012 = ╱6f╱o╱ // 0x182d @0x12
0x181b…1858 at0013 = ╱6e╱n╱ // 0x182e @0x13
0x181b…1858 at0014 = ╱74╱t╱ // 0x182f @0x14
0x181b…1858 at0015 = ╱6f╱o╱ // 0x1830 @0x15
0x181b…1858 at0016 = ╱73╱s╱ // 0x1831 @0x16
0x181b…1858 at0017 = ╱70╱p╱ // 0x1832 @0x17
0x181b…1858 at0018 = ╱7c╱ø╱ // 0x1833 @0x18
0x181b…1858 at0019 = ╱72╱r╱ // 0x1834 @0x19
0x181b…1858 at001a = ╱67╱g╱ // 0x1835 @0x1a
0x181b…1858 at001b = ╱65╱e╱ // 0x1836 @0x1b
0x181b…1858 at001c = ╱70╱p╱ // 0x1837 @0x1c
0x181b…1858 at001d = ╱72╱r╱ // 0x1838 @0x1d
0x181b…1858 at001e = ╱6f╱o╱ // 0x1839 @0x1e
0x181b…1858 at001f = ╱67╱g╱ // 0x183a @0x1f
0x181b…1858 at0020 = ╱72╱r╱ // 0x183b @0x20
0x181b…1858 at0021 = ╱61╱a╱ // 0x183c @0x21
0x181b…1858 at0022 = ╱6d╱m╱ // 0x183d @0x22
0x181b…1858 at0023 = ╱22╱"╱ // 0x183e @0x23
0x181b…1858 at0024 = ╱eb╱;╱ // 0x183f @0x24
0x181b…1858 at0025 = ╱d2╱TAB╱ // 0x1840 @0x25
0x181b…1858 at0026 = ╱ed╱(╱ // 0x1841 @0x26
0x181b…1858 at0027 = ╱36╱6╱ // 0x1842 @0x27
0x181b…1858 at0028 = ╱31╱1╱ // 0x1843 @0x28
0x181b…1858 at0029 = ╱fe0000f406╱ // 0x1844 @0x29
0x181b…1858 at002e = ╱ee╱)╱ // 0x1849 @0x2e
0x181b…1858 at002f = ╱eb╱;╱ // 0x184a @0x2f
0x181b…1858 at0030 = ╱22╱"╱ // 0x184b @0x30
0x181b…1858 at0031 = ╱44╱D╱ // 0x184c @0x31
0x181b…1858 at0032 = ╱61╱a╱ // 0x184d @0x32
0x181b…1858 at0033 = ╱74╱t╱ // 0x184e @0x33
0x181b…1858 at0034 = ╱6f╱o╱ // 0x184f @0x34
0x181b…1858 at0035 = ╱3a╱:╱ // 0x1850 @0x35
0x181b…1858 at0036 = ╱22╱"╱ // 0x1851 @0x36
0x181b…1858 at0037 = ╱eb╱;╱ // 0x1852 @0x37
0x181b…1858 at0038 = ╱44╱D╱ // 0x1853 @0x38
0x181b…1858 at0039 = ╱41╱A╱ // 0x1854 @0x39
0x181b…1858 at003a = ╱54╱T╱ // 0x1855 @0x3a
0x181b…1858 at003b = ╱ef╱$╱ // 0x1856 @0x3b
0x181b…1858 at003c = EOL // 0x1857 @0x3c
0x181b…1858 }
0x1858…185e a5b5 2610 ELSE
0x1858…185e LineComalBin {
0x1858…185e ptr = 0xa5b5 // 0x1858 @0x0
0x1858…185e lno = 0x0a32 // 0x185a @0x2
0x1858…185e at0004 = ╱9a╱ ELSE ╱ // 0x185c @0x4
0x1858…185e at0005 = EOL // 0x185d @0x5
0x1858…185e }
0x185e…1867 a5be 2620 CURSOR E,E
0x185e…1867 LineComalBin {
0x185e…1867 ptr = 0xa5be // 0x185e @0x0
0x185e…1867 lno = 0x0a3c // 0x1860 @0x2
0x185e…1867 at0004 = ╱a1╱ CURSOR ╱ // 0x1862 @0x4
0x185e…1867 at0005 = ╱45╱E╱ // 0x1863 @0x5
0x185e…1867 at0006 = ╱ec╱,╱ // 0x1864 @0x6
0x185e…1867 at0007 = ╱45╱E╱ // 0x1865 @0x7
0x185e…1867 at0008 = EOL // 0x1866 @0x8
0x185e…1867 }
0x1867…1881 a5d8 2630 PRINT USING " Nr:###### ":KONT;
0x1867…1881 LineComalBin {
0x1867…1881 ptr = 0xa5d8 // 0x1867 @0x0
0x1867…1881 lno = 0x0a46 // 0x1869 @0x2
0x1867…1881 at0004 = ╱92╱ PRINT ╱ // 0x186b @0x4
0x1867…1881 at0005 = ╱b9╱ USING ╱ // 0x186c @0x5
0x1867…1881 at0006 = ╱22╱"╱ // 0x186d @0x6
0x1867…1881 at0007 = ╱20╱…╱ // 0x186e @0x7
0x1867…1881 at0008 = ╱4e╱N╱ // 0x186f @0x8
0x1867…1881 at0009 = ╱72╱r╱ // 0x1870 @0x9
0x1867…1881 at000a = ╱3a╱:╱ // 0x1871 @0xa
0x1867…1881 at000b = ╱23╱#╱ // 0x1872 @0xb
0x1867…1881 at000c = ╱23╱#╱ // 0x1873 @0xc
0x1867…1881 at000d = ╱23╱#╱ // 0x1874 @0xd
0x1867…1881 at000e = ╱23╱#╱ // 0x1875 @0xe
0x1867…1881 at000f = ╱23╱#╱ // 0x1876 @0xf
0x1867…1881 at0010 = ╱23╱#╱ // 0x1877 @0x10
0x1867…1881 at0011 = ╱20╱…╱ // 0x1878 @0x11
0x1867…1881 at0012 = ╱22╱"╱ // 0x1879 @0x12
0x1867…1881 at0013 = ╱f0╱:╱ // 0x187a @0x13
0x1867…1881 at0014 = ╱4b╱K╱ // 0x187b @0x14
0x1867…1881 at0015 = ╱4f╱O╱ // 0x187c @0x15
0x1867…1881 at0016 = ╱4e╱N╱ // 0x187d @0x16
0x1867…1881 at0017 = ╱54╱T╱ // 0x187e @0x17
0x1867…1881 at0018 = ╱eb╱;╱ // 0x187f @0x18
0x1867…1881 at0019 = EOL // 0x1880 @0x19
0x1867…1881 }
0x1881…18a0 a5f7 2640 PRINT ENAVN$;" ";UNAVN$(EPIL1);
0x1881…18a0 LineComalBin {
0x1881…18a0 ptr = 0xa5f7 // 0x1881 @0x0
0x1881…18a0 lno = 0x0a50 // 0x1883 @0x2
0x1881…18a0 at0004 = ╱92╱ PRINT ╱ // 0x1885 @0x4
0x1881…18a0 at0005 = ╱45╱E╱ // 0x1886 @0x5
0x1881…18a0 at0006 = ╱4e╱N╱ // 0x1887 @0x6
0x1881…18a0 at0007 = ╱41╱A╱ // 0x1888 @0x7
0x1881…18a0 at0008 = ╱56╱V╱ // 0x1889 @0x8
0x1881…18a0 at0009 = ╱4e╱N╱ // 0x188a @0x9
0x1881…18a0 at000a = ╱ef╱$╱ // 0x188b @0xa
0x1881…18a0 at000b = ╱eb╱;╱ // 0x188c @0xb
0x1881…18a0 at000c = ╱22╱"╱ // 0x188d @0xc
0x1881…18a0 at000d = ╱20╱…╱ // 0x188e @0xd
0x1881…18a0 at000e = ╱22╱"╱ // 0x188f @0xe
0x1881…18a0 at000f = ╱eb╱;╱ // 0x1890 @0xf
0x1881…18a0 at0010 = ╱55╱U╱ // 0x1891 @0x10
0x1881…18a0 at0011 = ╱4e╱N╱ // 0x1892 @0x11
0x1881…18a0 at0012 = ╱41╱A╱ // 0x1893 @0x12
0x1881…18a0 at0013 = ╱56╱V╱ // 0x1894 @0x13
0x1881…18a0 at0014 = ╱4e╱N╱ // 0x1895 @0x14
0x1881…18a0 at0015 = ╱ef╱$╱ // 0x1896 @0x15
0x1881…18a0 at0016 = ╱ed╱(╱ // 0x1897 @0x16
0x1881…18a0 at0017 = ╱45╱E╱ // 0x1898 @0x17
0x1881…18a0 at0018 = ╱50╱P╱ // 0x1899 @0x18
0x1881…18a0 at0019 = ╱49╱I╱ // 0x189a @0x19
0x1881…18a0 at001a = ╱4c╱L╱ // 0x189b @0x1a
0x1881…18a0 at001b = ╱31╱1╱ // 0x189c @0x1b
0x1881…18a0 at001c = ╱ee╱)╱ // 0x189d @0x1c
0x1881…18a0 at001d = ╱eb╱;╱ // 0x189e @0x1d
0x1881…18a0 at001e = EOL // 0x189f @0x1e
0x1881…18a0 }
0x18a0…18be a615 2650 PRINT TAB(66);" Dato:";DAT$
0x18a0…18be LineComalBin {
0x18a0…18be ptr = 0xa615 // 0x18a0 @0x0
0x18a0…18be lno = 0x0a5a // 0x18a2 @0x2
0x18a0…18be at0004 = ╱92╱ PRINT ╱ // 0x18a4 @0x4
0x18a0…18be at0005 = ╱d2╱TAB╱ // 0x18a5 @0x5
0x18a0…18be at0006 = ╱ed╱(╱ // 0x18a6 @0x6
0x18a0…18be at0007 = ╱36╱6╱ // 0x18a7 @0x7
0x18a0…18be at0008 = ╱36╱6╱ // 0x18a8 @0x8
0x18a0…18be at0009 = ╱fe00008407╱ // 0x18a9 @0x9
0x18a0…18be at000e = ╱ee╱)╱ // 0x18ae @0xe
0x18a0…18be at000f = ╱eb╱;╱ // 0x18af @0xf
0x18a0…18be at0010 = ╱22╱"╱ // 0x18b0 @0x10
0x18a0…18be at0011 = ╱20╱…╱ // 0x18b1 @0x11
0x18a0…18be at0012 = ╱44╱D╱ // 0x18b2 @0x12
0x18a0…18be at0013 = ╱61╱a╱ // 0x18b3 @0x13
0x18a0…18be at0014 = ╱74╱t╱ // 0x18b4 @0x14
0x18a0…18be at0015 = ╱6f╱o╱ // 0x18b5 @0x15
0x18a0…18be at0016 = ╱3a╱:╱ // 0x18b6 @0x16
0x18a0…18be at0017 = ╱22╱"╱ // 0x18b7 @0x17
0x18a0…18be at0018 = ╱eb╱;╱ // 0x18b8 @0x18
0x18a0…18be at0019 = ╱44╱D╱ // 0x18b9 @0x19
0x18a0…18be at001a = ╱41╱A╱ // 0x18ba @0x1a
0x18a0…18be at001b = ╱54╱T╱ // 0x18bb @0x1b
0x18a0…18be at001c = ╱ef╱$╱ // 0x18bc @0x1c
0x18a0…18be at001d = EOL // 0x18bd @0x1d
0x18a0…18be }
0x18be…18c4 a61b 2660 ENDIF
0x18be…18c4 LineComalBin {
0x18be…18c4 ptr = 0xa61b // 0x18be @0x0
0x18be…18c4 lno = 0x0a64 // 0x18c0 @0x2
0x18be…18c4 at0004 = ╱9b╱ ENDIF ╱ // 0x18c2 @0x4
0x18be…18c4 at0005 = EOL // 0x18c3 @0x5
0x18be…18c4 }
0x18c4…18ca a621 2670 ENDPROC
0x18c4…18ca LineComalBin {
0x18c4…18ca ptr = 0xa621 // 0x18c4 @0x0
0x18c4…18ca lno = 0x0a6e // 0x18c6 @0x2
0x18c4…18ca at0004 = ╱9f╱ ENDPROC ╱ // 0x18c8 @0x4
0x18c4…18ca at0005 = EOL // 0x18c9 @0x5
0x18c4…18ca }
0x18ca…18e8 a63f 2680 PROC UDSKRIV(PKODE1,SU4,LNR1)
0x18ca…18e8 LineComalBin {
0x18ca…18e8 ptr = 0xa63f // 0x18ca @0x0
0x18ca…18e8 lno = 0x0a78 // 0x18cc @0x2
0x18ca…18e8 at0004 = ╱9e╱ PROC ╱ // 0x18ce @0x4
0x18ca…18e8 at0005 = ╱55╱U╱ // 0x18cf @0x5
0x18ca…18e8 at0006 = ╱44╱D╱ // 0x18d0 @0x6
0x18ca…18e8 at0007 = ╱53╱S╱ // 0x18d1 @0x7
0x18ca…18e8 at0008 = ╱4b╱K╱ // 0x18d2 @0x8
0x18ca…18e8 at0009 = ╱52╱R╱ // 0x18d3 @0x9
0x18ca…18e8 at000a = ╱49╱I╱ // 0x18d4 @0xa
0x18ca…18e8 at000b = ╱56╱V╱ // 0x18d5 @0xb
0x18ca…18e8 at000c = ╱ed╱(╱ // 0x18d6 @0xc
0x18ca…18e8 at000d = ╱50╱P╱ // 0x18d7 @0xd
0x18ca…18e8 at000e = ╱4b╱K╱ // 0x18d8 @0xe
0x18ca…18e8 at000f = ╱4f╱O╱ // 0x18d9 @0xf
0x18ca…18e8 at0010 = ╱44╱D╱ // 0x18da @0x10
0x18ca…18e8 at0011 = ╱45╱E╱ // 0x18db @0x11
0x18ca…18e8 at0012 = ╱31╱1╱ // 0x18dc @0x12
0x18ca…18e8 at0013 = ╱ec╱,╱ // 0x18dd @0x13
0x18ca…18e8 at0014 = ╱53╱S╱ // 0x18de @0x14
0x18ca…18e8 at0015 = ╱55╱U╱ // 0x18df @0x15
0x18ca…18e8 at0016 = ╱34╱4╱ // 0x18e0 @0x16
0x18ca…18e8 at0017 = ╱ec╱,╱ // 0x18e1 @0x17
0x18ca…18e8 at0018 = ╱4c╱L╱ // 0x18e2 @0x18
0x18ca…18e8 at0019 = ╱4e╱N╱ // 0x18e3 @0x19
0x18ca…18e8 at001a = ╱52╱R╱ // 0x18e4 @0x1a
0x18ca…18e8 at001b = ╱31╱1╱ // 0x18e5 @0x1b
0x18ca…18e8 at001c = ╱ee╱)╱ // 0x18e6 @0x1c
0x18ca…18e8 at001d = EOL // 0x18e7 @0x1d
0x18ca…18e8 }
0x18e8…191b a672 2690 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$,ENTKO)
0x18e8…191b LineComalBin {
0x18e8…191b ptr = 0xa672 // 0x18e8 @0x0
0x18e8…191b lno = 0x0a82 // 0x18ea @0x2
0x18e8…191b at0004 = ╱9d╱ EXEC ╱ // 0x18ec @0x4
0x18e8…191b at0005 = ╱4c╱L╱ // 0x18ed @0x5
0x18e8…191b at0006 = ╱49╱I╱ // 0x18ee @0x6
0x18e8…191b at0007 = ╱4e╱N╱ // 0x18ef @0x7
0x18e8…191b at0008 = ╱49╱I╱ // 0x18f0 @0x8
0x18e8…191b at0009 = ╱45╱E╱ // 0x18f1 @0x9
0x18e8…191b at000a = ╱55╱U╱ // 0x18f2 @0xa
0x18e8…191b at000b = ╱44╱D╱ // 0x18f3 @0xb
0x18e8…191b at000c = ╱ed╱(╱ // 0x18f4 @0xc
0x18e8…191b at000d = ╱44╱D╱ // 0x18f5 @0xd
0x18e8…191b at000e = ╱44╱D╱ // 0x18f6 @0xe
0x18e8…191b at000f = ╱41╱A╱ // 0x18f7 @0xf
0x18e8…191b at0010 = ╱54╱T╱ // 0x18f8 @0x10
0x18e8…191b at0011 = ╱4f╱O╱ // 0x18f9 @0x11
0x18e8…191b at0012 = ╱ec╱,╱ // 0x18fa @0x12
0x18e8…191b at0013 = ╱42╱B╱ // 0x18fb @0x13
0x18e8…191b at0014 = ╱49╱I╱ // 0x18fc @0x14
0x18e8…191b at0015 = ╱4c╱L╱ // 0x18fd @0x15
0x18e8…191b at0016 = ╱41╱A╱ // 0x18fe @0x16
0x18e8…191b at0017 = ╱47╱G╱ // 0x18ff @0x17
0x18e8…191b at0018 = ╱ec╱,╱ // 0x1900 @0x18
0x18e8…191b at0019 = ╱54╱T╱ // 0x1901 @0x19
0x18e8…191b at001a = ╱45╱E╱ // 0x1902 @0x1a
0x18e8…191b at001b = ╱4b╱K╱ // 0x1903 @0x1b
0x18e8…191b at001c = ╱53╱S╱ // 0x1904 @0x1c
0x18e8…191b at001d = ╱54╱T╱ // 0x1905 @0x1d
0x18e8…191b at001e = ╱ef╱$╱ // 0x1906 @0x1e
0x18e8…191b at001f = ╱ec╱,╱ // 0x1907 @0x1f
0x18e8…191b at0020 = ╱42╱B╱ // 0x1908 @0x20
0x18e8…191b at0021 = ╱45╱E╱ // 0x1909 @0x21
0x18e8…191b at0022 = ╱4c╱L╱ // 0x190a @0x22
0x18e8…191b at0023 = ╱5c╱Ø╱ // 0x190b @0x23
0x18e8…191b at0024 = ╱42╱B╱ // 0x190c @0x24
0x18e8…191b at0025 = ╱ef╱$╱ // 0x190d @0x25
0x18e8…191b at0026 = ╱ec╱,╱ // 0x190e @0x26
0x18e8…191b at0027 = ╱53╱S╱ // 0x190f @0x27
0x18e8…191b at0028 = ╱55╱U╱ // 0x1910 @0x28
0x18e8…191b at0029 = ╱34╱4╱ // 0x1911 @0x29
0x18e8…191b at002a = ╱ef╱$╱ // 0x1912 @0x2a
0x18e8…191b at002b = ╱ec╱,╱ // 0x1913 @0x2b
0x18e8…191b at002c = ╱45╱E╱ // 0x1914 @0x2c
0x18e8…191b at002d = ╱4e╱N╱ // 0x1915 @0x2d
0x18e8…191b at002e = ╱54╱T╱ // 0x1916 @0x2e
0x18e8…191b at002f = ╱4b╱K╱ // 0x1917 @0x2f
0x18e8…191b at0030 = ╱4f╱O╱ // 0x1918 @0x30
0x18e8…191b at0031 = ╱ee╱)╱ // 0x1919 @0x31
0x18e8…191b at0032 = EOL // 0x191a @0x32
0x18e8…191b }
0x191b…192b a682 2700 LNR1=LNR1+E
0x191b…192b LineComalBin {
0x191b…192b ptr = 0xa682 // 0x191b @0x0
0x191b…192b lno = 0x0a8c // 0x191d @0x2
0x191b…192b at0004 = ╱4c╱L╱ // 0x191f @0x4
0x191b…192b at0005 = ╱4e╱N╱ // 0x1920 @0x5
0x191b…192b at0006 = ╱52╱R╱ // 0x1921 @0x6
0x191b…192b at0007 = ╱31╱1╱ // 0x1922 @0x7
0x191b…192b at0008 = ╱dc╱=╱ // 0x1923 @0x8
0x191b…192b at0009 = ╱4c╱L╱ // 0x1924 @0x9
0x191b…192b at000a = ╱4e╱N╱ // 0x1925 @0xa
0x191b…192b at000b = ╱52╱R╱ // 0x1926 @0xb
0x191b…192b at000c = ╱31╱1╱ // 0x1927 @0xc
0x191b…192b at000d = ╱e2╱+╱ // 0x1928 @0xd
0x191b…192b at000e = ╱45╱E╱ // 0x1929 @0xe
0x191b…192b at000f = EOL // 0x192a @0xf
0x191b…192b }
0x192b…194d a6a4 2710 IF LNR1=17+6*(SKRIV) THEN
0x192b…194d LineComalBin {
0x192b…194d ptr = 0xa6a4 // 0x192b @0x0
0x192b…194d lno = 0x0a96 // 0x192d @0x2
0x192b…194d at0004 = ╱9c╱ IF ╱ // 0x192f @0x4
0x192b…194d at0005 = ╱4c╱L╱ // 0x1930 @0x5
0x192b…194d at0006 = ╱4e╱N╱ // 0x1931 @0x6
0x192b…194d at0007 = ╱52╱R╱ // 0x1932 @0x7
0x192b…194d at0008 = ╱31╱1╱ // 0x1933 @0x8
0x192b…194d at0009 = ╱dc╱=╱ // 0x1934 @0x9
0x192b…194d at000a = ╱31╱1╱ // 0x1935 @0xa
0x192b…194d at000b = ╱37╱7╱ // 0x1936 @0xb
0x192b…194d at000c = ╱fe00008805╱ // 0x1937 @0xc
0x192b…194d at0011 = ╱e2╱+╱ // 0x193c @0x11
0x192b…194d at0012 = ╱36╱6╱ // 0x193d @0x12
0x192b…194d at0013 = ╱fe0000c003╱ // 0x193e @0x13
0x192b…194d at0018 = ╱e4╱*╱ // 0x1943 @0x18
0x192b…194d at0019 = ╱ed╱(╱ // 0x1944 @0x19
0x192b…194d at001a = ╱53╱S╱ // 0x1945 @0x1a
0x192b…194d at001b = ╱4b╱K╱ // 0x1946 @0x1b
0x192b…194d at001c = ╱52╱R╱ // 0x1947 @0x1c
0x192b…194d at001d = ╱49╱I╱ // 0x1948 @0x1d
0x192b…194d at001e = ╱56╱V╱ // 0x1949 @0x1e
0x192b…194d at001f = ╱ee╱)╱ // 0x194a @0x1f
0x192b…194d at0020 = ╱b6╱ THEN ╱ // 0x194b @0x20
0x192b…194d at0021 = EOL // 0x194c @0x21
0x192b…194d }
0x194d…195c a6b3 2720 IF PKODE1=E THEN
0x194d…195c LineComalBin {
0x194d…195c ptr = 0xa6b3 // 0x194d @0x0
0x194d…195c lno = 0x0aa0 // 0x194f @0x2
0x194d…195c at0004 = ╱9c╱ IF ╱ // 0x1951 @0x4
0x194d…195c at0005 = ╱50╱P╱ // 0x1952 @0x5
0x194d…195c at0006 = ╱4b╱K╱ // 0x1953 @0x6
0x194d…195c at0007 = ╱4f╱O╱ // 0x1954 @0x7
0x194d…195c at0008 = ╱44╱D╱ // 0x1955 @0x8
0x194d…195c at0009 = ╱45╱E╱ // 0x1956 @0x9
0x194d…195c at000a = ╱31╱1╱ // 0x1957 @0xa
0x194d…195c at000b = ╱dc╱=╱ // 0x1958 @0xb
0x194d…195c at000c = ╱45╱E╱ // 0x1959 @0xc
0x194d…195c at000d = ╱b6╱ THEN ╱ // 0x195a @0xd
0x194d…195c at000e = EOL // 0x195b @0xe
0x194d…195c }
0x195c…1977 a6ce 2730 PRINT CHR(10);CHR(10)
0x195c…1977 LineComalBin {
0x195c…1977 ptr = 0xa6ce // 0x195c @0x0
0x195c…1977 lno = 0x0aaa // 0x195e @0x2
0x195c…1977 at0004 = ╱92╱ PRINT ╱ // 0x1960 @0x4
0x195c…1977 at0005 = ╱cf╱CHR╱ // 0x1961 @0x5
0x195c…1977 at0006 = ╱ed╱(╱ // 0x1962 @0x6
0x195c…1977 at0007 = ╱31╱1╱ // 0x1963 @0x7
0x195c…1977 at0008 = ╱30╱0╱ // 0x1964 @0x8
0x195c…1977 at0009 = ╱fe0000a004╱ // 0x1965 @0x9
0x195c…1977 at000e = ╱ee╱)╱ // 0x196a @0xe
0x195c…1977 at000f = ╱eb╱;╱ // 0x196b @0xf
0x195c…1977 at0010 = ╱cf╱CHR╱ // 0x196c @0x10
0x195c…1977 at0011 = ╱ed╱(╱ // 0x196d @0x11
0x195c…1977 at0012 = ╱31╱1╱ // 0x196e @0x12
0x195c…1977 at0013 = ╱30╱0╱ // 0x196f @0x13
0x195c…1977 at0014 = ╱fe0000a004╱ // 0x1970 @0x14
0x195c…1977 at0019 = ╱ee╱)╱ // 0x1975 @0x19
0x195c…1977 at001a = EOL // 0x1976 @0x1a
0x195c…1977 }
0x1977…19a9 a700 2740 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,LNR1)
0x1977…19a9 LineComalBin {
0x1977…19a9 ptr = 0xa700 // 0x1977 @0x0
0x1977…19a9 lno = 0x0ab4 // 0x1979 @0x2
0x1977…19a9 at0004 = ╱9d╱ EXEC ╱ // 0x197b @0x4
0x1977…19a9 at0005 = ╱42╱B╱ // 0x197c @0x5
0x1977…19a9 at0006 = ╱55╱U╱ // 0x197d @0x6
0x1977…19a9 at0007 = ╱44╱D╱ // 0x197e @0x7
0x1977…19a9 at0008 = ╱53╱S╱ // 0x197f @0x8
0x1977…19a9 at0009 = ╱4b╱K╱ // 0x1980 @0x9
0x1977…19a9 at000a = ╱52╱R╱ // 0x1981 @0xa
0x1977…19a9 at000b = ╱49╱I╱ // 0x1982 @0xb
0x1977…19a9 at000c = ╱56╱V╱ // 0x1983 @0xc
0x1977…19a9 at000d = ╱ed╱(╱ // 0x1984 @0xd
0x1977…19a9 at000e = ╱54╱T╱ // 0x1985 @0xe
0x1977…19a9 at000f = ╱41╱A╱ // 0x1986 @0xf
0x1977…19a9 at0010 = ╱4c╱L╱ // 0x1987 @0x10
0x1977…19a9 at0011 = ╱34╱4╱ // 0x1988 @0x11
0x1977…19a9 at0012 = ╱ef╱$╱ // 0x1989 @0x12
0x1977…19a9 at0013 = ╱ec╱,╱ // 0x198a @0x13
0x1977…19a9 at0014 = ╱31╱1╱ // 0x198b @0x14
0x1977…19a9 at0015 = ╱fe00008001╱ // 0x198c @0x15
0x1977…19a9 at001a = ╱ec╱,╱ // 0x1991 @0x1a
0x1977…19a9 at001b = ╱53╱S╱ // 0x1992 @0x1b
0x1977…19a9 at001c = ╱55╱U╱ // 0x1993 @0x1c
0x1977…19a9 at001d = ╱34╱4╱ // 0x1994 @0x1d
0x1977…19a9 at001e = ╱ef╱$╱ // 0x1995 @0x1e
0x1977…19a9 at001f = ╱ec╱,╱ // 0x1996 @0x1f
0x1977…19a9 at0020 = ╱54╱T╱ // 0x1997 @0x20
0x1977…19a9 at0021 = ╱41╱A╱ // 0x1998 @0x21
0x1977…19a9 at0022 = ╱4c╱L╱ // 0x1999 @0x22
0x1977…19a9 at0023 = ╱34╱4╱ // 0x199a @0x23
0x1977…19a9 at0024 = ╱ef╱$╱ // 0x199b @0x24
0x1977…19a9 at0025 = ╱ec╱,╱ // 0x199c @0x25
0x1977…19a9 at0026 = ╱54╱T╱ // 0x199d @0x26
0x1977…19a9 at0027 = ╱41╱A╱ // 0x199e @0x27
0x1977…19a9 at0028 = ╱4c╱L╱ // 0x199f @0x28
0x1977…19a9 at0029 = ╱34╱4╱ // 0x19a0 @0x29
0x1977…19a9 at002a = ╱ef╱$╱ // 0x19a1 @0x2a
0x1977…19a9 at002b = ╱ec╱,╱ // 0x19a2 @0x2b
0x1977…19a9 at002c = ╱4c╱L╱ // 0x19a3 @0x2c
0x1977…19a9 at002d = ╱4e╱N╱ // 0x19a4 @0x2d
0x1977…19a9 at002e = ╱52╱R╱ // 0x19a5 @0x2e
0x1977…19a9 at002f = ╱31╱1╱ // 0x19a6 @0x2f
0x1977…19a9 at0030 = ╱ee╱)╱ // 0x19a7 @0x30
0x1977…19a9 at0031 = EOL // 0x19a8 @0x31
0x1977…19a9 }
0x19a9…19b7 a70e 2750 EXEC HUDSKRIV
0x19a9…19b7 LineComalBin {
0x19a9…19b7 ptr = 0xa70e // 0x19a9 @0x0
0x19a9…19b7 lno = 0x0abe // 0x19ab @0x2
0x19a9…19b7 at0004 = ╱9d╱ EXEC ╱ // 0x19ad @0x4
0x19a9…19b7 at0005 = ╱48╱H╱ // 0x19ae @0x5
0x19a9…19b7 at0006 = ╱55╱U╱ // 0x19af @0x6
0x19a9…19b7 at0007 = ╱44╱D╱ // 0x19b0 @0x7
0x19a9…19b7 at0008 = ╱53╱S╱ // 0x19b1 @0x8
0x19a9…19b7 at0009 = ╱4b╱K╱ // 0x19b2 @0x9
0x19a9…19b7 at000a = ╱52╱R╱ // 0x19b3 @0xa
0x19a9…19b7 at000b = ╱49╱I╱ // 0x19b4 @0xb
0x19a9…19b7 at000c = ╱56╱V╱ // 0x19b5 @0xc
0x19a9…19b7 at000d = EOL // 0x19b6 @0xd
0x19a9…19b7 }
0x19b7…19c6 a71d 2760 EXEC HSUDSKRIV
0x19b7…19c6 LineComalBin {
0x19b7…19c6 ptr = 0xa71d // 0x19b7 @0x0
0x19b7…19c6 lno = 0x0ac8 // 0x19b9 @0x2
0x19b7…19c6 at0004 = ╱9d╱ EXEC ╱ // 0x19bb @0x4
0x19b7…19c6 at0005 = ╱48╱H╱ // 0x19bc @0x5
0x19b7…19c6 at0006 = ╱53╱S╱ // 0x19bd @0x6
0x19b7…19c6 at0007 = ╱55╱U╱ // 0x19be @0x7
0x19b7…19c6 at0008 = ╱44╱D╱ // 0x19bf @0x8
0x19b7…19c6 at0009 = ╱53╱S╱ // 0x19c0 @0x9
0x19b7…19c6 at000a = ╱4b╱K╱ // 0x19c1 @0xa
0x19b7…19c6 at000b = ╱52╱R╱ // 0x19c2 @0xb
0x19b7…19c6 at000c = ╱49╱I╱ // 0x19c3 @0xc
0x19b7…19c6 at000d = ╱56╱V╱ // 0x19c4 @0xd
0x19b7…19c6 at000e = EOL // 0x19c5 @0xe
0x19b7…19c6 }
0x19c6…19f8 a74f 2770 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,LNR1)
0x19c6…19f8 LineComalBin {
0x19c6…19f8 ptr = 0xa74f // 0x19c6 @0x0
0x19c6…19f8 lno = 0x0ad2 // 0x19c8 @0x2
0x19c6…19f8 at0004 = ╱9d╱ EXEC ╱ // 0x19ca @0x4
0x19c6…19f8 at0005 = ╱42╱B╱ // 0x19cb @0x5
0x19c6…19f8 at0006 = ╱55╱U╱ // 0x19cc @0x6
0x19c6…19f8 at0007 = ╱44╱D╱ // 0x19cd @0x7
0x19c6…19f8 at0008 = ╱53╱S╱ // 0x19ce @0x8
0x19c6…19f8 at0009 = ╱4b╱K╱ // 0x19cf @0x9
0x19c6…19f8 at000a = ╱52╱R╱ // 0x19d0 @0xa
0x19c6…19f8 at000b = ╱49╱I╱ // 0x19d1 @0xb
0x19c6…19f8 at000c = ╱56╱V╱ // 0x19d2 @0xc
0x19c6…19f8 at000d = ╱ed╱(╱ // 0x19d3 @0xd
0x19c6…19f8 at000e = ╱54╱T╱ // 0x19d4 @0xe
0x19c6…19f8 at000f = ╱41╱A╱ // 0x19d5 @0xf
0x19c6…19f8 at0010 = ╱4c╱L╱ // 0x19d6 @0x10
0x19c6…19f8 at0011 = ╱34╱4╱ // 0x19d7 @0x11
0x19c6…19f8 at0012 = ╱ef╱$╱ // 0x19d8 @0x12
0x19c6…19f8 at0013 = ╱ec╱,╱ // 0x19d9 @0x13
0x19c6…19f8 at0014 = ╱32╱2╱ // 0x19da @0x14
0x19c6…19f8 at0015 = ╱fe00008002╱ // 0x19db @0x15
0x19c6…19f8 at001a = ╱ec╱,╱ // 0x19e0 @0x1a
0x19c6…19f8 at001b = ╱53╱S╱ // 0x19e1 @0x1b
0x19c6…19f8 at001c = ╱55╱U╱ // 0x19e2 @0x1c
0x19c6…19f8 at001d = ╱34╱4╱ // 0x19e3 @0x1d
0x19c6…19f8 at001e = ╱ef╱$╱ // 0x19e4 @0x1e
0x19c6…19f8 at001f = ╱ec╱,╱ // 0x19e5 @0x1f
0x19c6…19f8 at0020 = ╱54╱T╱ // 0x19e6 @0x20
0x19c6…19f8 at0021 = ╱41╱A╱ // 0x19e7 @0x21
0x19c6…19f8 at0022 = ╱4c╱L╱ // 0x19e8 @0x22
0x19c6…19f8 at0023 = ╱34╱4╱ // 0x19e9 @0x23
0x19c6…19f8 at0024 = ╱ef╱$╱ // 0x19ea @0x24
0x19c6…19f8 at0025 = ╱ec╱,╱ // 0x19eb @0x25
0x19c6…19f8 at0026 = ╱54╱T╱ // 0x19ec @0x26
0x19c6…19f8 at0027 = ╱41╱A╱ // 0x19ed @0x27
0x19c6…19f8 at0028 = ╱4c╱L╱ // 0x19ee @0x28
0x19c6…19f8 at0029 = ╱34╱4╱ // 0x19ef @0x29
0x19c6…19f8 at002a = ╱ef╱$╱ // 0x19f0 @0x2a
0x19c6…19f8 at002b = ╱ec╱,╱ // 0x19f1 @0x2b
0x19c6…19f8 at002c = ╱4c╱L╱ // 0x19f2 @0x2c
0x19c6…19f8 at002d = ╱4e╱N╱ // 0x19f3 @0x2d
0x19c6…19f8 at002e = ╱52╱R╱ // 0x19f4 @0x2e
0x19c6…19f8 at002f = ╱31╱1╱ // 0x19f5 @0x2f
0x19c6…19f8 at0030 = ╱ee╱)╱ // 0x19f6 @0x30
0x19c6…19f8 at0031 = EOL // 0x19f7 @0x31
0x19c6…19f8 }
0x19f8…1a03 a75a 2780 LNR1=E
0x19f8…1a03 LineComalBin {
0x19f8…1a03 ptr = 0xa75a // 0x19f8 @0x0
0x19f8…1a03 lno = 0x0adc // 0x19fa @0x2
0x19f8…1a03 at0004 = ╱4c╱L╱ // 0x19fc @0x4
0x19f8…1a03 at0005 = ╱4e╱N╱ // 0x19fd @0x5
0x19f8…1a03 at0006 = ╱52╱R╱ // 0x19fe @0x6
0x19f8…1a03 at0007 = ╱31╱1╱ // 0x19ff @0x7
0x19f8…1a03 at0008 = ╱dc╱=╱ // 0x1a00 @0x8
0x19f8…1a03 at0009 = ╱45╱E╱ // 0x1a01 @0x9
0x19f8…1a03 at000a = EOL // 0x1a02 @0xa
0x19f8…1a03 }
0x1a03…1a09 a760 2790 ELSE
0x1a03…1a09 LineComalBin {
0x1a03…1a09 ptr = 0xa760 // 0x1a03 @0x0
0x1a03…1a09 lno = 0x0ae6 // 0x1a05 @0x2
0x1a03…1a09 at0004 = ╱9a╱ ELSE ╱ // 0x1a07 @0x4
0x1a03…1a09 at0005 = EOL // 0x1a08 @0x5
0x1a03…1a09 }
0x1a09…1a42 a799 2800 EXEC INDPUT1(4,23,-2,0,LTX$(4))
0x1a09…1a42 LineComalBin {
0x1a09…1a42 ptr = 0xa799 // 0x1a09 @0x0
0x1a09…1a42 lno = 0x0af0 // 0x1a0b @0x2
0x1a09…1a42 at0004 = ╱9d╱ EXEC ╱ // 0x1a0d @0x4
0x1a09…1a42 at0005 = ╱49╱I╱ // 0x1a0e @0x5
0x1a09…1a42 at0006 = ╱4e╱N╱ // 0x1a0f @0x6
0x1a09…1a42 at0007 = ╱44╱D╱ // 0x1a10 @0x7
0x1a09…1a42 at0008 = ╱50╱P╱ // 0x1a11 @0x8
0x1a09…1a42 at0009 = ╱55╱U╱ // 0x1a12 @0x9
0x1a09…1a42 at000a = ╱54╱T╱ // 0x1a13 @0xa
0x1a09…1a42 at000b = ╱31╱1╱ // 0x1a14 @0xb
0x1a09…1a42 at000c = ╱ed╱(╱ // 0x1a15 @0xc
0x1a09…1a42 at000d = ╱34╱4╱ // 0x1a16 @0xd
0x1a09…1a42 at000e = ╱fe00008003╱ // 0x1a17 @0xe
0x1a09…1a42 at0013 = ╱ec╱,╱ // 0x1a1c @0x13
0x1a09…1a42 at0014 = ╱32╱2╱ // 0x1a1d @0x14
0x1a09…1a42 at0015 = ╱33╱3╱ // 0x1a1e @0x15
0x1a09…1a42 at0016 = ╱fe0000b805╱ // 0x1a1f @0x16
0x1a09…1a42 at001b = ╱ec╱,╱ // 0x1a24 @0x1b
0x1a09…1a42 at001c = ╱e9╱-╱ // 0x1a25 @0x1c
0x1a09…1a42 at001d = ╱32╱2╱ // 0x1a26 @0x1d
0x1a09…1a42 at001e = ╱fe00008002╱ // 0x1a27 @0x1e
0x1a09…1a42 at0023 = ╱ec╱,╱ // 0x1a2c @0x23
0x1a09…1a42 at0024 = ╱30╱0╱ // 0x1a2d @0x24
0x1a09…1a42 at0025 = ╱fe00000000╱ // 0x1a2e @0x25
0x1a09…1a42 at002a = ╱ec╱,╱ // 0x1a33 @0x2a
0x1a09…1a42 at002b = ╱4c╱L╱ // 0x1a34 @0x2b
0x1a09…1a42 at002c = ╱54╱T╱ // 0x1a35 @0x2c
0x1a09…1a42 at002d = ╱58╱X╱ // 0x1a36 @0x2d
0x1a09…1a42 at002e = ╱ef╱$╱ // 0x1a37 @0x2e
0x1a09…1a42 at002f = ╱ed╱(╱ // 0x1a38 @0x2f
0x1a09…1a42 at0030 = ╱34╱4╱ // 0x1a39 @0x30
0x1a09…1a42 at0031 = ╱fe00008003╱ // 0x1a3a @0x31
0x1a09…1a42 at0036 = ╱ee╱)╱ // 0x1a3f @0x36
0x1a09…1a42 at0037 = ╱ee╱)╱ // 0x1a40 @0x37
0x1a09…1a42 at0038 = EOL // 0x1a41 @0x38
0x1a09…1a42 }
0x1a42…1a48 a79f 2810 CLEAR
0x1a42…1a48 LineComalBin {
0x1a42…1a48 ptr = 0xa79f // 0x1a42 @0x0
0x1a42…1a48 lno = 0x0afa // 0x1a44 @0x2
0x1a42…1a48 at0004 = ╱a0╱ CLEAR ╱ // 0x1a46 @0x4
0x1a42…1a48 at0005 = EOL // 0x1a47 @0x5
0x1a42…1a48 }
0x1a48…1a57 a7ae 2820 EXEC HSUDSKRIV
0x1a48…1a57 LineComalBin {
0x1a48…1a57 ptr = 0xa7ae // 0x1a48 @0x0
0x1a48…1a57 lno = 0x0b04 // 0x1a4a @0x2
0x1a48…1a57 at0004 = ╱9d╱ EXEC ╱ // 0x1a4c @0x4
0x1a48…1a57 at0005 = ╱48╱H╱ // 0x1a4d @0x5
0x1a48…1a57 at0006 = ╱53╱S╱ // 0x1a4e @0x6
0x1a48…1a57 at0007 = ╱55╱U╱ // 0x1a4f @0x7
0x1a48…1a57 at0008 = ╱44╱D╱ // 0x1a50 @0x8
0x1a48…1a57 at0009 = ╱53╱S╱ // 0x1a51 @0x9
0x1a48…1a57 at000a = ╱4b╱K╱ // 0x1a52 @0xa
0x1a48…1a57 at000b = ╱52╱R╱ // 0x1a53 @0xb
0x1a48…1a57 at000c = ╱49╱I╱ // 0x1a54 @0xc
0x1a48…1a57 at000d = ╱56╱V╱ // 0x1a55 @0xd
0x1a48…1a57 at000e = EOL // 0x1a56 @0xe
0x1a48…1a57 }
0x1a57…1a62 a7b9 2830 LNR1=B
0x1a57…1a62 LineComalBin {
0x1a57…1a62 ptr = 0xa7b9 // 0x1a57 @0x0
0x1a57…1a62 lno = 0x0b0e // 0x1a59 @0x2
0x1a57…1a62 at0004 = ╱4c╱L╱ // 0x1a5b @0x4
0x1a57…1a62 at0005 = ╱4e╱N╱ // 0x1a5c @0x5
0x1a57…1a62 at0006 = ╱52╱R╱ // 0x1a5d @0x6
0x1a57…1a62 at0007 = ╱31╱1╱ // 0x1a5e @0x7
0x1a57…1a62 at0008 = ╱dc╱=╱ // 0x1a5f @0x8
0x1a57…1a62 at0009 = ╱42╱B╱ // 0x1a60 @0x9
0x1a57…1a62 at000a = EOL // 0x1a61 @0xa
0x1a57…1a62 }
0x1a62…1a68 a7bf 2840 ENDIF
0x1a62…1a68 LineComalBin {
0x1a62…1a68 ptr = 0xa7bf // 0x1a62 @0x0
0x1a62…1a68 lno = 0x0b18 // 0x1a64 @0x2
0x1a62…1a68 at0004 = ╱9b╱ ENDIF ╱ // 0x1a66 @0x4
0x1a62…1a68 at0005 = EOL // 0x1a67 @0x5
0x1a62…1a68 }
0x1a68…1a6e a7c5 2850 ENDIF
0x1a68…1a6e LineComalBin {
0x1a68…1a6e ptr = 0xa7c5 // 0x1a68 @0x0
0x1a68…1a6e lno = 0x0b22 // 0x1a6a @0x2
0x1a68…1a6e at0004 = ╱9b╱ ENDIF ╱ // 0x1a6c @0x4
0x1a68…1a6e at0005 = EOL // 0x1a6d @0x5
0x1a68…1a6e }
0x1a6e…1a74 a7cb 2860 ENDPROC
0x1a6e…1a74 LineComalBin {
0x1a6e…1a74 ptr = 0xa7cb // 0x1a6e @0x0
0x1a6e…1a74 lno = 0x0b2c // 0x1a70 @0x2
0x1a6e…1a74 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a72 @0x4
0x1a6e…1a74 at0005 = EOL // 0x1a73 @0x5
0x1a6e…1a74 }
0x1a74…1a86 a7dd 2870 PROC NRTEST(KTN1)
0x1a74…1a86 LineComalBin {
0x1a74…1a86 ptr = 0xa7dd // 0x1a74 @0x0
0x1a74…1a86 lno = 0x0b36 // 0x1a76 @0x2
0x1a74…1a86 at0004 = ╱9e╱ PROC ╱ // 0x1a78 @0x4
0x1a74…1a86 at0005 = ╱4e╱N╱ // 0x1a79 @0x5
0x1a74…1a86 at0006 = ╱52╱R╱ // 0x1a7a @0x6
0x1a74…1a86 at0007 = ╱54╱T╱ // 0x1a7b @0x7
0x1a74…1a86 at0008 = ╱45╱E╱ // 0x1a7c @0x8
0x1a74…1a86 at0009 = ╱53╱S╱ // 0x1a7d @0x9
0x1a74…1a86 at000a = ╱54╱T╱ // 0x1a7e @0xa
0x1a74…1a86 at000b = ╱ed╱(╱ // 0x1a7f @0xb
0x1a74…1a86 at000c = ╱4b╱K╱ // 0x1a80 @0xc
0x1a74…1a86 at000d = ╱54╱T╱ // 0x1a81 @0xd
0x1a74…1a86 at000e = ╱4e╱N╱ // 0x1a82 @0xe
0x1a74…1a86 at000f = ╱31╱1╱ // 0x1a83 @0xf
0x1a74…1a86 at0010 = ╱ee╱)╱ // 0x1a84 @0x10
0x1a74…1a86 at0011 = EOL // 0x1a85 @0x11
0x1a74…1a86 }
0x1a86…1aa8 a7ff 2880 P=B;TEST2=B;KTAL=B;L=LEN(KTN1$)
0x1a86…1aa8 LineComalBin {
0x1a86…1aa8 ptr = 0xa7ff // 0x1a86 @0x0
0x1a86…1aa8 lno = 0x0b40 // 0x1a88 @0x2
0x1a86…1aa8 at0004 = ╱50╱P╱ // 0x1a8a @0x4
0x1a86…1aa8 at0005 = ╱dc╱=╱ // 0x1a8b @0x5
0x1a86…1aa8 at0006 = ╱42╱B╱ // 0x1a8c @0x6
0x1a86…1aa8 at0007 = ╱eb╱;╱ // 0x1a8d @0x7
0x1a86…1aa8 at0008 = ╱54╱T╱ // 0x1a8e @0x8
0x1a86…1aa8 at0009 = ╱45╱E╱ // 0x1a8f @0x9
0x1a86…1aa8 at000a = ╱53╱S╱ // 0x1a90 @0xa
0x1a86…1aa8 at000b = ╱54╱T╱ // 0x1a91 @0xb
0x1a86…1aa8 at000c = ╱32╱2╱ // 0x1a92 @0xc
0x1a86…1aa8 at000d = ╱dc╱=╱ // 0x1a93 @0xd
0x1a86…1aa8 at000e = ╱42╱B╱ // 0x1a94 @0xe
0x1a86…1aa8 at000f = ╱eb╱;╱ // 0x1a95 @0xf
0x1a86…1aa8 at0010 = ╱4b╱K╱ // 0x1a96 @0x10
0x1a86…1aa8 at0011 = ╱54╱T╱ // 0x1a97 @0x11
0x1a86…1aa8 at0012 = ╱41╱A╱ // 0x1a98 @0x12
0x1a86…1aa8 at0013 = ╱4c╱L╱ // 0x1a99 @0x13
0x1a86…1aa8 at0014 = ╱dc╱=╱ // 0x1a9a @0x14
0x1a86…1aa8 at0015 = ╱42╱B╱ // 0x1a9b @0x15
0x1a86…1aa8 at0016 = ╱eb╱;╱ // 0x1a9c @0x16
0x1a86…1aa8 at0017 = ╱4c╱L╱ // 0x1a9d @0x17
0x1a86…1aa8 at0018 = ╱dc╱=╱ // 0x1a9e @0x18
0x1a86…1aa8 at0019 = ╱cc╱LEN╱ // 0x1a9f @0x19
0x1a86…1aa8 at001a = ╱ed╱(╱ // 0x1aa0 @0x1a
0x1a86…1aa8 at001b = ╱4b╱K╱ // 0x1aa1 @0x1b
0x1a86…1aa8 at001c = ╱54╱T╱ // 0x1aa2 @0x1c
0x1a86…1aa8 at001d = ╱4e╱N╱ // 0x1aa3 @0x1d
0x1a86…1aa8 at001e = ╱31╱1╱ // 0x1aa4 @0x1e
0x1a86…1aa8 at001f = ╱ef╱$╱ // 0x1aa5 @0x1f
0x1a86…1aa8 at0020 = ╱ee╱)╱ // 0x1aa6 @0x20
0x1a86…1aa8 at0021 = EOL // 0x1aa7 @0x21
0x1a86…1aa8 }
0x1aa8…1ab1 a808 2890 CASE L OF
0x1aa8…1ab1 LineComalBin {
0x1aa8…1ab1 ptr = 0xa808 // 0x1aa8 @0x0
0x1aa8…1ab1 lno = 0x0b4a // 0x1aaa @0x2
0x1aa8…1ab1 at0004 = ╱a201╱ CASE ╱ // 0x1aac @0x4
0x1aa8…1ab1 at0006 = ╱4c╱L╱ // 0x1aae @0x6
0x1aa8…1ab1 at0007 = ╱ba╱ OF ╱ // 0x1aaf @0x7
0x1aa8…1ab1 at0008 = EOL // 0x1ab0 @0x8
0x1aa8…1ab1 }
0x1ab1…1abc a813 2900 FOR I=E TO L
0x1ab1…1abc LineComalBin {
0x1ab1…1abc ptr = 0xa813 // 0x1ab1 @0x0
0x1ab1…1abc lno = 0x0b54 // 0x1ab3 @0x2
0x1ab1…1abc at0004 = ╱83╱ FOR ╱ // 0x1ab5 @0x4
0x1ab1…1abc at0005 = ╱49╱I╱ // 0x1ab6 @0x5
0x1ab1…1abc at0006 = ╱dc╱=╱ // 0x1ab7 @0x6
0x1ab1…1abc at0007 = ╱45╱E╱ // 0x1ab8 @0x7
0x1ab1…1abc at0008 = ╱b7╱ TO ╱ // 0x1ab9 @0x8
0x1ab1…1abc at0009 = ╱4c╱L╱ // 0x1aba @0x9
0x1ab1…1abc at000a = EOL // 0x1abb @0xa
0x1ab1…1abc }
0x1abc…1ada a831 2910 P1=INT(ORD(KTN1$(I))-48)
0x1abc…1ada LineComalBin {
0x1abc…1ada ptr = 0xa831 // 0x1abc @0x0
0x1abc…1ada lno = 0x0b5e // 0x1abe @0x2
0x1abc…1ada at0004 = ╱50╱P╱ // 0x1ac0 @0x4
0x1abc…1ada at0005 = ╱31╱1╱ // 0x1ac1 @0x5
0x1abc…1ada at0006 = ╱dc╱=╱ // 0x1ac2 @0x6
0x1abc…1ada at0007 = ╱c6╱INT╱ // 0x1ac3 @0x7
0x1abc…1ada at0008 = ╱ed╱(╱ // 0x1ac4 @0x8
0x1abc…1ada at0009 = ╱cd╱ORD╱ // 0x1ac5 @0x9
0x1abc…1ada at000a = ╱ed╱(╱ // 0x1ac6 @0xa
0x1abc…1ada at000b = ╱4b╱K╱ // 0x1ac7 @0xb
0x1abc…1ada at000c = ╱54╱T╱ // 0x1ac8 @0xc
0x1abc…1ada at000d = ╱4e╱N╱ // 0x1ac9 @0xd
0x1abc…1ada at000e = ╱31╱1╱ // 0x1aca @0xe
0x1abc…1ada at000f = ╱ef╱$╱ // 0x1acb @0xf
0x1abc…1ada at0010 = ╱ed╱(╱ // 0x1acc @0x10
0x1abc…1ada at0011 = ╱49╱I╱ // 0x1acd @0x11
0x1abc…1ada at0012 = ╱ee╱)╱ // 0x1ace @0x12
0x1abc…1ada at0013 = ╱ee╱)╱ // 0x1acf @0x13
0x1abc…1ada at0014 = ╱e3╱-╱ // 0x1ad0 @0x14
0x1abc…1ada at0015 = ╱34╱4╱ // 0x1ad1 @0x15
0x1abc…1ada at0016 = ╱38╱8╱ // 0x1ad2 @0x16
0x1abc…1ada at0017 = ╱fe0000c006╱ // 0x1ad3 @0x17
0x1abc…1ada at001c = ╱ee╱)╱ // 0x1ad8 @0x1c
0x1abc…1ada at001d = EOL // 0x1ad9 @0x1d
0x1abc…1ada }
0x1ada…1aea a841 2920 IF P1=>B AND P1<=W THEN
0x1ada…1aea LineComalBin {
0x1ada…1aea ptr = 0xa841 // 0x1ada @0x0
0x1ada…1aea lno = 0x0b68 // 0x1adc @0x2
0x1ada…1aea at0004 = ╱9c╱ IF ╱ // 0x1ade @0x4
0x1ada…1aea at0005 = ╱50╱P╱ // 0x1adf @0x5
0x1ada…1aea at0006 = ╱31╱1╱ // 0x1ae0 @0x6
0x1ada…1aea at0007 = ╱e0╱=>╱ // 0x1ae1 @0x7
0x1ada…1aea at0008 = ╱42╱B╱ // 0x1ae2 @0x8
0x1ada…1aea at0009 = ╱da╱ AND ╱ // 0x1ae3 @0x9
0x1ada…1aea at000a = ╱50╱P╱ // 0x1ae4 @0xa
0x1ada…1aea at000b = ╱31╱1╱ // 0x1ae5 @0xb
0x1ada…1aea at000c = ╱df╱<=╱ // 0x1ae6 @0xc
0x1ada…1aea at000d = ╱57╱W╱ // 0x1ae7 @0xd
0x1ada…1aea at000e = ╱b6╱ THEN ╱ // 0x1ae8 @0xe
0x1ada…1aea at000f = EOL // 0x1ae9 @0xf
0x1ada…1aea }
0x1aea…1afd a854 2930 P=P*10+P1
0x1aea…1afd LineComalBin {
0x1aea…1afd ptr = 0xa854 // 0x1aea @0x0
0x1aea…1afd lno = 0x0b72 // 0x1aec @0x2
0x1aea…1afd at0004 = ╱50╱P╱ // 0x1aee @0x4
0x1aea…1afd at0005 = ╱dc╱=╱ // 0x1aef @0x5
0x1aea…1afd at0006 = ╱50╱P╱ // 0x1af0 @0x6
0x1aea…1afd at0007 = ╱e4╱*╱ // 0x1af1 @0x7
0x1aea…1afd at0008 = ╱31╱1╱ // 0x1af2 @0x8
0x1aea…1afd at0009 = ╱30╱0╱ // 0x1af3 @0x9
0x1aea…1afd at000a = ╱fe0000a004╱ // 0x1af4 @0xa
0x1aea…1afd at000f = ╱e2╱+╱ // 0x1af9 @0xf
0x1aea…1afd at0010 = ╱50╱P╱ // 0x1afa @0x10
0x1aea…1afd at0011 = ╱31╱1╱ // 0x1afb @0x11
0x1aea…1afd at0012 = EOL // 0x1afc @0x12
0x1aea…1afd }
0x1afd…1b03 a85a 2940 ELSE
0x1afd…1b03 LineComalBin {
0x1afd…1b03 ptr = 0xa85a // 0x1afd @0x0
0x1afd…1b03 lno = 0x0b7c // 0x1aff @0x2
0x1afd…1b03 at0004 = ╱9a╱ ELSE ╱ // 0x1b01 @0x4
0x1afd…1b03 at0005 = EOL // 0x1b02 @0x5
0x1afd…1b03 }
0x1b03…1b0f a866 2950 TEST2=E
0x1b03…1b0f LineComalBin {
0x1b03…1b0f ptr = 0xa866 // 0x1b03 @0x0
0x1b03…1b0f lno = 0x0b86 // 0x1b05 @0x2
0x1b03…1b0f at0004 = ╱54╱T╱ // 0x1b07 @0x4
0x1b03…1b0f at0005 = ╱45╱E╱ // 0x1b08 @0x5
0x1b03…1b0f at0006 = ╱53╱S╱ // 0x1b09 @0x6
0x1b03…1b0f at0007 = ╱54╱T╱ // 0x1b0a @0x7
0x1b03…1b0f at0008 = ╱32╱2╱ // 0x1b0b @0x8
0x1b03…1b0f at0009 = ╱dc╱=╱ // 0x1b0c @0x9
0x1b03…1b0f at000a = ╱45╱E╱ // 0x1b0d @0xa
0x1b03…1b0f at000b = EOL // 0x1b0e @0xb
0x1b03…1b0f }
0x1b0f…1b15 a86c 2960 ENDIF
0x1b0f…1b15 LineComalBin {
0x1b0f…1b15 ptr = 0xa86c // 0x1b0f @0x0
0x1b0f…1b15 lno = 0x0b90 // 0x1b11 @0x2
0x1b0f…1b15 at0004 = ╱9b╱ ENDIF ╱ // 0x1b13 @0x4
0x1b0f…1b15 at0005 = EOL // 0x1b14 @0x5
0x1b0f…1b15 }
0x1b15…1b1c a873 2970 NEXT I
0x1b15…1b1c LineComalBin {
0x1b15…1b1c ptr = 0xa873 // 0x1b15 @0x0
0x1b15…1b1c lno = 0x0b9a // 0x1b17 @0x2
0x1b15…1b1c at0004 = ╱84╱ NEXT ╱ // 0x1b19 @0x4
0x1b15…1b1c at0005 = ╱49╱I╱ // 0x1b1a @0x5
0x1b15…1b1c at0006 = EOL // 0x1b1b @0x6
0x1b15…1b1c }
0x1b1c…1b44 a89b 2980 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x1b1c…1b44 LineComalBin {
0x1b1c…1b44 ptr = 0xa89b // 0x1b1c @0x0
0x1b1c…1b44 lno = 0x0ba4 // 0x1b1e @0x2
0x1b1c…1b44 at0004 = ╱4b╱K╱ // 0x1b20 @0x4
0x1b1c…1b44 at0005 = ╱54╱T╱ // 0x1b21 @0x5
0x1b1c…1b44 at0006 = ╱41╱A╱ // 0x1b22 @0x6
0x1b1c…1b44 at0007 = ╱4c╱L╱ // 0x1b23 @0x7
0x1b1c…1b44 at0008 = ╱dc╱=╱ // 0x1b24 @0x8
0x1b1c…1b44 at0009 = ╱50╱P╱ // 0x1b25 @0x9
0x1b1c…1b44 at000a = ╱e7╱ DIV ╱ // 0x1b26 @0xa
0x1b1c…1b44 at000b = ╱31╱1╱ // 0x1b27 @0xb
0x1b1c…1b44 at000c = ╱30╱0╱ // 0x1b28 @0xc
0x1b1c…1b44 at000d = ╱30╱0╱ // 0x1b29 @0xd
0x1b1c…1b44 at000e = ╱30╱0╱ // 0x1b2a @0xe
0x1b1c…1b44 at000f = ╱30╱0╱ // 0x1b2b @0xf
0x1b1c…1b44 at0010 = ╱fe00409c0e╱ // 0x1b2c @0x10
0x1b1c…1b44 at0015 = ╱eb╱;╱ // 0x1b31 @0x15
0x1b1c…1b44 at0016 = ╱4b╱K╱ // 0x1b32 @0x16
0x1b1c…1b44 at0017 = ╱54╱T╱ // 0x1b33 @0x17
0x1b1c…1b44 at0018 = ╱41╱A╱ // 0x1b34 @0x18
0x1b1c…1b44 at0019 = ╱4c╱L╱ // 0x1b35 @0x19
0x1b1c…1b44 at001a = ╱39╱9╱ // 0x1b36 @0x1a
0x1b1c…1b44 at001b = ╱dc╱=╱ // 0x1b37 @0x1b
0x1b1c…1b44 at001c = ╱50╱P╱ // 0x1b38 @0x1c
0x1b1c…1b44 at001d = ╱e7╱ DIV ╱ // 0x1b39 @0x1d
0x1b1c…1b44 at001e = ╱31╱1╱ // 0x1b3a @0x1e
0x1b1c…1b44 at001f = ╱30╱0╱ // 0x1b3b @0x1f
0x1b1c…1b44 at0020 = ╱30╱0╱ // 0x1b3c @0x20
0x1b1c…1b44 at0021 = ╱30╱0╱ // 0x1b3d @0x21
0x1b1c…1b44 at0022 = ╱fe0000fa0a╱ // 0x1b3e @0x22
0x1b1c…1b44 at0027 = EOL // 0x1b43 @0x27
0x1b1c…1b44 }
0x1b44…1b60 a8b7 2990 IF KTAL9=KRTAL THEN KTAL=KTAL9
0x1b44…1b60 LineComalBin {
0x1b44…1b60 ptr = 0xa8b7 // 0x1b44 @0x0
0x1b44…1b60 lno = 0x0bae // 0x1b46 @0x2
0x1b44…1b60 at0004 = ╱82╱ IF ╱ // 0x1b48 @0x4
0x1b44…1b60 at0005 = ╱4b╱K╱ // 0x1b49 @0x5
0x1b44…1b60 at0006 = ╱54╱T╱ // 0x1b4a @0x6
0x1b44…1b60 at0007 = ╱41╱A╱ // 0x1b4b @0x7
0x1b44…1b60 at0008 = ╱4c╱L╱ // 0x1b4c @0x8
0x1b44…1b60 at0009 = ╱39╱9╱ // 0x1b4d @0x9
0x1b44…1b60 at000a = ╱dc╱=╱ // 0x1b4e @0xa
0x1b44…1b60 at000b = ╱4b╱K╱ // 0x1b4f @0xb
0x1b44…1b60 at000c = ╱52╱R╱ // 0x1b50 @0xc
0x1b44…1b60 at000d = ╱54╱T╱ // 0x1b51 @0xd
0x1b44…1b60 at000e = ╱41╱A╱ // 0x1b52 @0xe
0x1b44…1b60 at000f = ╱4c╱L╱ // 0x1b53 @0xf
0x1b44…1b60 at0010 = ╱b6╱ THEN ╱ // 0x1b54 @0x10
0x1b44…1b60 at0011 = ╱4b╱K╱ // 0x1b55 @0x11
0x1b44…1b60 at0012 = ╱54╱T╱ // 0x1b56 @0x12
0x1b44…1b60 at0013 = ╱41╱A╱ // 0x1b57 @0x13
0x1b44…1b60 at0014 = ╱4c╱L╱ // 0x1b58 @0x14
0x1b44…1b60 at0015 = ╱dc╱=╱ // 0x1b59 @0x15
0x1b44…1b60 at0016 = ╱4b╱K╱ // 0x1b5a @0x16
0x1b44…1b60 at0017 = ╱54╱T╱ // 0x1b5b @0x17
0x1b44…1b60 at0018 = ╱41╱A╱ // 0x1b5c @0x18
0x1b44…1b60 at0019 = ╱4c╱L╱ // 0x1b5d @0x19
0x1b44…1b60 at001a = ╱39╱9╱ // 0x1b5e @0x1a
0x1b44…1b60 at001b = EOL // 0x1b5f @0x1b
0x1b44…1b60 }
0x1b60…1b68 a8bf 3000 WHEN B
0x1b60…1b68 LineComalBin {
0x1b60…1b68 ptr = 0xa8bf // 0x1b60 @0x0
0x1b60…1b68 lno = 0x0bb8 // 0x1b62 @0x2
0x1b60…1b68 at0004 = ╱a301╱ WHEN ╱ // 0x1b64 @0x4
0x1b60…1b68 at0006 = ╱42╱B╱ // 0x1b66 @0x6
0x1b60…1b68 at0007 = EOL // 0x1b67 @0x7
0x1b60…1b68 }
0x1b68…1b71 a8c8 3010 P=-E
0x1b68…1b71 LineComalBin {
0x1b68…1b71 ptr = 0xa8c8 // 0x1b68 @0x0
0x1b68…1b71 lno = 0x0bc2 // 0x1b6a @0x2
0x1b68…1b71 at0004 = ╱50╱P╱ // 0x1b6c @0x4
0x1b68…1b71 at0005 = ╱dc╱=╱ // 0x1b6d @0x5
0x1b68…1b71 at0006 = ╱e9╱-╱ // 0x1b6e @0x6
0x1b68…1b71 at0007 = ╱45╱E╱ // 0x1b6f @0x7
0x1b68…1b71 at0008 = EOL // 0x1b70 @0x8
0x1b68…1b71 }
0x1b71…1b79 a8d0 3020 WHEN E
0x1b71…1b79 LineComalBin {
0x1b71…1b79 ptr = 0xa8d0 // 0x1b71 @0x0
0x1b71…1b79 lno = 0x0bcc // 0x1b73 @0x2
0x1b71…1b79 at0004 = ╱a301╱ WHEN ╱ // 0x1b75 @0x4
0x1b71…1b79 at0006 = ╱45╱E╱ // 0x1b77 @0x6
0x1b71…1b79 at0007 = EOL // 0x1b78 @0x7
0x1b71…1b79 }
0x1b79…1b86 a8dd 3030 CASE KTN1$ OF
0x1b79…1b86 LineComalBin {
0x1b79…1b86 ptr = 0xa8dd // 0x1b79 @0x0
0x1b79…1b86 lno = 0x0bd6 // 0x1b7b @0x2
0x1b79…1b86 at0004 = ╱a200╱ CASE ╱ // 0x1b7d @0x4
0x1b79…1b86 at0006 = ╱4b╱K╱ // 0x1b7f @0x6
0x1b79…1b86 at0007 = ╱54╱T╱ // 0x1b80 @0x7
0x1b79…1b86 at0008 = ╱4e╱N╱ // 0x1b81 @0x8
0x1b79…1b86 at0009 = ╱31╱1╱ // 0x1b82 @0x9
0x1b79…1b86 at000a = ╱ef╱$╱ // 0x1b83 @0xa
0x1b79…1b86 at000b = ╱ba╱ OF ╱ // 0x1b84 @0xb
0x1b79…1b86 at000c = EOL // 0x1b85 @0xc
0x1b79…1b86 }
0x1b86…1ba0 a8f7 3040 P=INT(ORD(KTN1$)-48)
0x1b86…1ba0 LineComalBin {
0x1b86…1ba0 ptr = 0xa8f7 // 0x1b86 @0x0
0x1b86…1ba0 lno = 0x0be0 // 0x1b88 @0x2
0x1b86…1ba0 at0004 = ╱50╱P╱ // 0x1b8a @0x4
0x1b86…1ba0 at0005 = ╱dc╱=╱ // 0x1b8b @0x5
0x1b86…1ba0 at0006 = ╱c6╱INT╱ // 0x1b8c @0x6
0x1b86…1ba0 at0007 = ╱ed╱(╱ // 0x1b8d @0x7
0x1b86…1ba0 at0008 = ╱cd╱ORD╱ // 0x1b8e @0x8
0x1b86…1ba0 at0009 = ╱ed╱(╱ // 0x1b8f @0x9
0x1b86…1ba0 at000a = ╱4b╱K╱ // 0x1b90 @0xa
0x1b86…1ba0 at000b = ╱54╱T╱ // 0x1b91 @0xb
0x1b86…1ba0 at000c = ╱4e╱N╱ // 0x1b92 @0xc
0x1b86…1ba0 at000d = ╱31╱1╱ // 0x1b93 @0xd
0x1b86…1ba0 at000e = ╱ef╱$╱ // 0x1b94 @0xe
0x1b86…1ba0 at000f = ╱ee╱)╱ // 0x1b95 @0xf
0x1b86…1ba0 at0010 = ╱e3╱-╱ // 0x1b96 @0x10
0x1b86…1ba0 at0011 = ╱34╱4╱ // 0x1b97 @0x11
0x1b86…1ba0 at0012 = ╱38╱8╱ // 0x1b98 @0x12
0x1b86…1ba0 at0013 = ╱fe0000c006╱ // 0x1b99 @0x13
0x1b86…1ba0 at0018 = ╱ee╱)╱ // 0x1b9e @0x18
0x1b86…1ba0 at0019 = EOL // 0x1b9f @0x19
0x1b86…1ba0 }
0x1ba0…1bae a905 3050 WHEN "j","J"
0x1ba0…1bae LineComalBin {
0x1ba0…1bae ptr = 0xa905 // 0x1ba0 @0x0
0x1ba0…1bae lno = 0x0bea // 0x1ba2 @0x2
0x1ba0…1bae at0004 = ╱a300╱ WHEN ╱ // 0x1ba4 @0x4
0x1ba0…1bae at0006 = ╱22╱"╱ // 0x1ba6 @0x6
0x1ba0…1bae at0007 = ╱6a╱j╱ // 0x1ba7 @0x7
0x1ba0…1bae at0008 = ╱22╱"╱ // 0x1ba8 @0x8
0x1ba0…1bae at0009 = ╱ec╱,╱ // 0x1ba9 @0x9
0x1ba0…1bae at000a = ╱22╱"╱ // 0x1baa @0xa
0x1ba0…1bae at000b = ╱4a╱J╱ // 0x1bab @0xb
0x1ba0…1bae at000c = ╱22╱"╱ // 0x1bac @0xc
0x1ba0…1bae at000d = EOL // 0x1bad @0xd
0x1ba0…1bae }
0x1bae…1bbc a913 3060 P=-7
0x1bae…1bbc LineComalBin {
0x1bae…1bbc ptr = 0xa913 // 0x1bae @0x0
0x1bae…1bbc lno = 0x0bf4 // 0x1bb0 @0x2
0x1bae…1bbc at0004 = ╱50╱P╱ // 0x1bb2 @0x4
0x1bae…1bbc at0005 = ╱dc╱=╱ // 0x1bb3 @0x5
0x1bae…1bbc at0006 = ╱e9╱-╱ // 0x1bb4 @0x6
0x1bae…1bbc at0007 = ╱37╱7╱ // 0x1bb5 @0x7
0x1bae…1bbc at0008 = ╱fe0000e003╱ // 0x1bb6 @0x8
0x1bae…1bbc at000d = EOL // 0x1bbb @0xd
0x1bae…1bbc }
0x1bbc…1bca a921 3070 WHEN "n","N"
0x1bbc…1bca LineComalBin {
0x1bbc…1bca ptr = 0xa921 // 0x1bbc @0x0
0x1bbc…1bca lno = 0x0bfe // 0x1bbe @0x2
0x1bbc…1bca at0004 = ╱a300╱ WHEN ╱ // 0x1bc0 @0x4
0x1bbc…1bca at0006 = ╱22╱"╱ // 0x1bc2 @0x6
0x1bbc…1bca at0007 = ╱6e╱n╱ // 0x1bc3 @0x7
0x1bbc…1bca at0008 = ╱22╱"╱ // 0x1bc4 @0x8
0x1bbc…1bca at0009 = ╱ec╱,╱ // 0x1bc5 @0x9
0x1bbc…1bca at000a = ╱22╱"╱ // 0x1bc6 @0xa
0x1bbc…1bca at000b = ╱4e╱N╱ // 0x1bc7 @0xb
0x1bbc…1bca at000c = ╱22╱"╱ // 0x1bc8 @0xc
0x1bbc…1bca at000d = EOL // 0x1bc9 @0xd
0x1bbc…1bca }
0x1bca…1bd8 a92f 3080 P=-8
0x1bca…1bd8 LineComalBin {
0x1bca…1bd8 ptr = 0xa92f // 0x1bca @0x0
0x1bca…1bd8 lno = 0x0c08 // 0x1bcc @0x2
0x1bca…1bd8 at0004 = ╱50╱P╱ // 0x1bce @0x4
0x1bca…1bd8 at0005 = ╱dc╱=╱ // 0x1bcf @0x5
0x1bca…1bd8 at0006 = ╱e9╱-╱ // 0x1bd0 @0x6
0x1bca…1bd8 at0007 = ╱38╱8╱ // 0x1bd1 @0x7
0x1bca…1bd8 at0008 = ╱fe00008004╱ // 0x1bd2 @0x8
0x1bca…1bd8 at000d = EOL // 0x1bd7 @0xd
0x1bca…1bd8 }
0x1bd8…1bde a935 3090 ENDCASE
0x1bd8…1bde LineComalBin {
0x1bd8…1bde ptr = 0xa935 // 0x1bd8 @0x0
0x1bd8…1bde lno = 0x0c12 // 0x1bda @0x2
0x1bd8…1bde at0004 = ╱a4╱ ENDCASE ╱ // 0x1bdc @0x4
0x1bd8…1bde at0005 = EOL // 0x1bdd @0x5
0x1bd8…1bde }
0x1bde…1be4 a93b 3100 ENDCASE
0x1bde…1be4 LineComalBin {
0x1bde…1be4 ptr = 0xa93b // 0x1bde @0x0
0x1bde…1be4 lno = 0x0c1c // 0x1be0 @0x2
0x1bde…1be4 at0004 = ╱a4╱ ENDCASE ╱ // 0x1be2 @0x4
0x1bde…1be4 at0005 = EOL // 0x1be3 @0x5
0x1bde…1be4 }
0x1be4…1bea a941 3110 ENDPROC
0x1be4…1bea LineComalBin {
0x1be4…1bea ptr = 0xa941 // 0x1be4 @0x0
0x1be4…1bea lno = 0x0c26 // 0x1be6 @0x2
0x1be4…1bea at0004 = ╱9f╱ ENDPROC ╱ // 0x1be8 @0x4
0x1be4…1bea at0005 = EOL // 0x1be9 @0x5
0x1be4…1bea }
0x1bea…1c08 a95f 3120 PROC HOVIND(V1,MPOSTANTAL1,R)
0x1bea…1c08 LineComalBin {
0x1bea…1c08 ptr = 0xa95f // 0x1bea @0x0
0x1bea…1c08 lno = 0x0c30 // 0x1bec @0x2
0x1bea…1c08 at0004 = ╱9e╱ PROC ╱ // 0x1bee @0x4
0x1bea…1c08 at0005 = ╱48╱H╱ // 0x1bef @0x5
0x1bea…1c08 at0006 = ╱4f╱O╱ // 0x1bf0 @0x6
0x1bea…1c08 at0007 = ╱56╱V╱ // 0x1bf1 @0x7
0x1bea…1c08 at0008 = ╱49╱I╱ // 0x1bf2 @0x8
0x1bea…1c08 at0009 = ╱4e╱N╱ // 0x1bf3 @0x9
0x1bea…1c08 at000a = ╱44╱D╱ // 0x1bf4 @0xa
0x1bea…1c08 at000b = ╱ed╱(╱ // 0x1bf5 @0xb
0x1bea…1c08 at000c = ╱56╱V╱ // 0x1bf6 @0xc
0x1bea…1c08 at000d = ╱31╱1╱ // 0x1bf7 @0xd
0x1bea…1c08 at000e = ╱ec╱,╱ // 0x1bf8 @0xe
0x1bea…1c08 at000f = ╱4d╱M╱ // 0x1bf9 @0xf
0x1bea…1c08 at0010 = ╱50╱P╱ // 0x1bfa @0x10
0x1bea…1c08 at0011 = ╱4f╱O╱ // 0x1bfb @0x11
0x1bea…1c08 at0012 = ╱53╱S╱ // 0x1bfc @0x12
0x1bea…1c08 at0013 = ╱54╱T╱ // 0x1bfd @0x13
0x1bea…1c08 at0014 = ╱41╱A╱ // 0x1bfe @0x14
0x1bea…1c08 at0015 = ╱4e╱N╱ // 0x1bff @0x15
0x1bea…1c08 at0016 = ╱54╱T╱ // 0x1c00 @0x16
0x1bea…1c08 at0017 = ╱41╱A╱ // 0x1c01 @0x17
0x1bea…1c08 at0018 = ╱4c╱L╱ // 0x1c02 @0x18
0x1bea…1c08 at0019 = ╱31╱1╱ // 0x1c03 @0x19
0x1bea…1c08 at001a = ╱ec╱,╱ // 0x1c04 @0x1a
0x1bea…1c08 at001b = ╱52╱R╱ // 0x1c05 @0x1b
0x1bea…1c08 at001c = ╱ee╱)╱ // 0x1c06 @0x1c
0x1bea…1c08 at001d = EOL // 0x1c07 @0x1d
0x1bea…1c08 }
0x1c08…1c13 a96a 3130 OPEN V1$,R
0x1c08…1c13 LineComalBin {
0x1c08…1c13 ptr = 0xa96a // 0x1c08 @0x0
0x1c08…1c13 lno = 0x0c3a // 0x1c0a @0x2
0x1c08…1c13 at0004 = ╱a7╱ OPEN ╱ // 0x1c0c @0x4
0x1c08…1c13 at0005 = ╱56╱V╱ // 0x1c0d @0x5
0x1c08…1c13 at0006 = ╱31╱1╱ // 0x1c0e @0x6
0x1c08…1c13 at0007 = ╱ef╱$╱ // 0x1c0f @0x7
0x1c08…1c13 at0008 = ╱ec╱,╱ // 0x1c10 @0x8
0x1c08…1c13 at0009 = ╱52╱R╱ // 0x1c11 @0x9
0x1c08…1c13 at000a = EOL // 0x1c12 @0xa
0x1c08…1c13 }
0x1c13…1c2c a983 3140 EXEC FEJL(13,E,V1$)
0x1c13…1c2c LineComalBin {
0x1c13…1c2c ptr = 0xa983 // 0x1c13 @0x0
0x1c13…1c2c lno = 0x0c44 // 0x1c15 @0x2
0x1c13…1c2c at0004 = ╱9d╱ EXEC ╱ // 0x1c17 @0x4
0x1c13…1c2c at0005 = ╱46╱F╱ // 0x1c18 @0x5
0x1c13…1c2c at0006 = ╱45╱E╱ // 0x1c19 @0x6
0x1c13…1c2c at0007 = ╱4a╱J╱ // 0x1c1a @0x7
0x1c13…1c2c at0008 = ╱4c╱L╱ // 0x1c1b @0x8
0x1c13…1c2c at0009 = ╱ed╱(╱ // 0x1c1c @0x9
0x1c13…1c2c at000a = ╱31╱1╱ // 0x1c1d @0xa
0x1c13…1c2c at000b = ╱33╱3╱ // 0x1c1e @0xb
0x1c13…1c2c at000c = ╱fe0000d004╱ // 0x1c1f @0xc
0x1c13…1c2c at0011 = ╱ec╱,╱ // 0x1c24 @0x11
0x1c13…1c2c at0012 = ╱45╱E╱ // 0x1c25 @0x12
0x1c13…1c2c at0013 = ╱ec╱,╱ // 0x1c26 @0x13
0x1c13…1c2c at0014 = ╱56╱V╱ // 0x1c27 @0x14
0x1c13…1c2c at0015 = ╱31╱1╱ // 0x1c28 @0x15
0x1c13…1c2c at0016 = ╱ef╱$╱ // 0x1c29 @0x16
0x1c13…1c2c at0017 = ╱ee╱)╱ // 0x1c2a @0x17
0x1c13…1c2c at0018 = EOL // 0x1c2b @0x18
0x1c13…1c2c }
0x1c2c…1c4a a9a1 3150 FOR I=E TO MPOSTANTAL1 DIV 160
0x1c2c…1c4a LineComalBin {
0x1c2c…1c4a ptr = 0xa9a1 // 0x1c2c @0x0
0x1c2c…1c4a lno = 0x0c4e // 0x1c2e @0x2
0x1c2c…1c4a at0004 = ╱83╱ FOR ╱ // 0x1c30 @0x4
0x1c2c…1c4a at0005 = ╱49╱I╱ // 0x1c31 @0x5
0x1c2c…1c4a at0006 = ╱dc╱=╱ // 0x1c32 @0x6
0x1c2c…1c4a at0007 = ╱45╱E╱ // 0x1c33 @0x7
0x1c2c…1c4a at0008 = ╱b7╱ TO ╱ // 0x1c34 @0x8
0x1c2c…1c4a at0009 = ╱4d╱M╱ // 0x1c35 @0x9
0x1c2c…1c4a at000a = ╱50╱P╱ // 0x1c36 @0xa
0x1c2c…1c4a at000b = ╱4f╱O╱ // 0x1c37 @0xb
0x1c2c…1c4a at000c = ╱53╱S╱ // 0x1c38 @0xc
0x1c2c…1c4a at000d = ╱54╱T╱ // 0x1c39 @0xd
0x1c2c…1c4a at000e = ╱41╱A╱ // 0x1c3a @0xe
0x1c2c…1c4a at000f = ╱4e╱N╱ // 0x1c3b @0xf
0x1c2c…1c4a at0010 = ╱54╱T╱ // 0x1c3c @0x10
0x1c2c…1c4a at0011 = ╱41╱A╱ // 0x1c3d @0x11
0x1c2c…1c4a at0012 = ╱4c╱L╱ // 0x1c3e @0x12
0x1c2c…1c4a at0013 = ╱31╱1╱ // 0x1c3f @0x13
0x1c2c…1c4a at0014 = ╱e7╱ DIV ╱ // 0x1c40 @0x14
0x1c2c…1c4a at0015 = ╱31╱1╱ // 0x1c41 @0x15
0x1c2c…1c4a at0016 = ╱36╱6╱ // 0x1c42 @0x16
0x1c2c…1c4a at0017 = ╱30╱0╱ // 0x1c43 @0x17
0x1c2c…1c4a at0018 = ╱fe0000a008╱ // 0x1c44 @0x18
0x1c2c…1c4a at001d = EOL // 0x1c49 @0x1d
0x1c2c…1c4a }
0x1c4a…1c74 a9cb 3160 J=(I-E)*4+E;J1=J+E;J2=J+G;J3=J+V
0x1c4a…1c74 LineComalBin {
0x1c4a…1c74 ptr = 0xa9cb // 0x1c4a @0x0
0x1c4a…1c74 lno = 0x0c58 // 0x1c4c @0x2
0x1c4a…1c74 at0004 = ╱4a╱J╱ // 0x1c4e @0x4
0x1c4a…1c74 at0005 = ╱dc╱=╱ // 0x1c4f @0x5
0x1c4a…1c74 at0006 = ╱ed╱(╱ // 0x1c50 @0x6
0x1c4a…1c74 at0007 = ╱49╱I╱ // 0x1c51 @0x7
0x1c4a…1c74 at0008 = ╱e3╱-╱ // 0x1c52 @0x8
0x1c4a…1c74 at0009 = ╱45╱E╱ // 0x1c53 @0x9
0x1c4a…1c74 at000a = ╱ee╱)╱ // 0x1c54 @0xa
0x1c4a…1c74 at000b = ╱e4╱*╱ // 0x1c55 @0xb
0x1c4a…1c74 at000c = ╱34╱4╱ // 0x1c56 @0xc
0x1c4a…1c74 at000d = ╱fe00008003╱ // 0x1c57 @0xd
0x1c4a…1c74 at0012 = ╱e2╱+╱ // 0x1c5c @0x12
0x1c4a…1c74 at0013 = ╱45╱E╱ // 0x1c5d @0x13
0x1c4a…1c74 at0014 = ╱eb╱;╱ // 0x1c5e @0x14
0x1c4a…1c74 at0015 = ╱4a╱J╱ // 0x1c5f @0x15
0x1c4a…1c74 at0016 = ╱31╱1╱ // 0x1c60 @0x16
0x1c4a…1c74 at0017 = ╱dc╱=╱ // 0x1c61 @0x17
0x1c4a…1c74 at0018 = ╱4a╱J╱ // 0x1c62 @0x18
0x1c4a…1c74 at0019 = ╱e2╱+╱ // 0x1c63 @0x19
0x1c4a…1c74 at001a = ╱45╱E╱ // 0x1c64 @0x1a
0x1c4a…1c74 at001b = ╱eb╱;╱ // 0x1c65 @0x1b
0x1c4a…1c74 at001c = ╱4a╱J╱ // 0x1c66 @0x1c
0x1c4a…1c74 at001d = ╱32╱2╱ // 0x1c67 @0x1d
0x1c4a…1c74 at001e = ╱dc╱=╱ // 0x1c68 @0x1e
0x1c4a…1c74 at001f = ╱4a╱J╱ // 0x1c69 @0x1f
0x1c4a…1c74 at0020 = ╱e2╱+╱ // 0x1c6a @0x20
0x1c4a…1c74 at0021 = ╱47╱G╱ // 0x1c6b @0x21
0x1c4a…1c74 at0022 = ╱eb╱;╱ // 0x1c6c @0x22
0x1c4a…1c74 at0023 = ╱4a╱J╱ // 0x1c6d @0x23
0x1c4a…1c74 at0024 = ╱33╱3╱ // 0x1c6e @0x24
0x1c4a…1c74 at0025 = ╱dc╱=╱ // 0x1c6f @0x25
0x1c4a…1c74 at0026 = ╱4a╱J╱ // 0x1c70 @0x26
0x1c4a…1c74 at0027 = ╱e2╱+╱ // 0x1c71 @0x27
0x1c4a…1c74 at0028 = ╱56╱V╱ // 0x1c72 @0x28
0x1c4a…1c74 at0029 = EOL // 0x1c73 @0x29
0x1c4a…1c74 }
0x1c74…1cbd aa14 3170 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)
0x1c74…1cbd LineComalBin {
0x1c74…1cbd ptr = 0xaa14 // 0x1c74 @0x0
0x1c74…1cbd lno = 0x0c62 // 0x1c76 @0x2
0x1c74…1cbd at0004 = ╱a9╱ GET ╱ // 0x1c78 @0x4
0x1c74…1cbd at0005 = ╱56╱V╱ // 0x1c79 @0x5
0x1c74…1cbd at0006 = ╱31╱1╱ // 0x1c7a @0x6
0x1c74…1cbd at0007 = ╱ef╱$╱ // 0x1c7b @0x7
0x1c74…1cbd at0008 = ╱ec╱,╱ // 0x1c7c @0x8
0x1c74…1cbd at0009 = ╱49╱I╱ // 0x1c7d @0x9
0x1c74…1cbd at000a = ╱f0╱:╱ // 0x1c7e @0xa
0x1c74…1cbd at000b = ╱52╱R╱ // 0x1c7f @0xb
0x1c74…1cbd at000c = ╱ed╱(╱ // 0x1c80 @0xc
0x1c74…1cbd at000d = ╱4a╱J╱ // 0x1c81 @0xd
0x1c74…1cbd at000e = ╱ec╱,╱ // 0x1c82 @0xe
0x1c74…1cbd at000f = ╱45╱E╱ // 0x1c83 @0xf
0x1c74…1cbd at0010 = ╱ee╱)╱ // 0x1c84 @0x10
0x1c74…1cbd at0011 = ╱ec╱,╱ // 0x1c85 @0x11
0x1c74…1cbd at0012 = ╱52╱R╱ // 0x1c86 @0x12
0x1c74…1cbd at0013 = ╱ed╱(╱ // 0x1c87 @0x13
0x1c74…1cbd at0014 = ╱4a╱J╱ // 0x1c88 @0x14
0x1c74…1cbd at0015 = ╱ec╱,╱ // 0x1c89 @0x15
0x1c74…1cbd at0016 = ╱47╱G╱ // 0x1c8a @0x16
0x1c74…1cbd at0017 = ╱ee╱)╱ // 0x1c8b @0x17
0x1c74…1cbd at0018 = ╱ec╱,╱ // 0x1c8c @0x18
0x1c74…1cbd at0019 = ╱52╱R╱ // 0x1c8d @0x19
0x1c74…1cbd at001a = ╱ed╱(╱ // 0x1c8e @0x1a
0x1c74…1cbd at001b = ╱4a╱J╱ // 0x1c8f @0x1b
0x1c74…1cbd at001c = ╱31╱1╱ // 0x1c90 @0x1c
0x1c74…1cbd at001d = ╱ec╱,╱ // 0x1c91 @0x1d
0x1c74…1cbd at001e = ╱45╱E╱ // 0x1c92 @0x1e
0x1c74…1cbd at001f = ╱ee╱)╱ // 0x1c93 @0x1f
0x1c74…1cbd at0020 = ╱ec╱,╱ // 0x1c94 @0x20
0x1c74…1cbd at0021 = ╱52╱R╱ // 0x1c95 @0x21
0x1c74…1cbd at0022 = ╱ed╱(╱ // 0x1c96 @0x22
0x1c74…1cbd at0023 = ╱4a╱J╱ // 0x1c97 @0x23
0x1c74…1cbd at0024 = ╱31╱1╱ // 0x1c98 @0x24
0x1c74…1cbd at0025 = ╱ec╱,╱ // 0x1c99 @0x25
0x1c74…1cbd at0026 = ╱47╱G╱ // 0x1c9a @0x26
0x1c74…1cbd at0027 = ╱ee╱)╱ // 0x1c9b @0x27
0x1c74…1cbd at0028 = ╱ec╱,╱ // 0x1c9c @0x28
0x1c74…1cbd at0029 = ╱52╱R╱ // 0x1c9d @0x29
0x1c74…1cbd at002a = ╱ed╱(╱ // 0x1c9e @0x2a
0x1c74…1cbd at002b = ╱4a╱J╱ // 0x1c9f @0x2b
0x1c74…1cbd at002c = ╱32╱2╱ // 0x1ca0 @0x2c
0x1c74…1cbd at002d = ╱ec╱,╱ // 0x1ca1 @0x2d
0x1c74…1cbd at002e = ╱45╱E╱ // 0x1ca2 @0x2e
0x1c74…1cbd at002f = ╱ee╱)╱ // 0x1ca3 @0x2f
0x1c74…1cbd at0030 = ╱ec╱,╱ // 0x1ca4 @0x30
0x1c74…1cbd at0031 = ╱52╱R╱ // 0x1ca5 @0x31
0x1c74…1cbd at0032 = ╱ed╱(╱ // 0x1ca6 @0x32
0x1c74…1cbd at0033 = ╱4a╱J╱ // 0x1ca7 @0x33
0x1c74…1cbd at0034 = ╱32╱2╱ // 0x1ca8 @0x34
0x1c74…1cbd at0035 = ╱ec╱,╱ // 0x1ca9 @0x35
0x1c74…1cbd at0036 = ╱47╱G╱ // 0x1caa @0x36
0x1c74…1cbd at0037 = ╱ee╱)╱ // 0x1cab @0x37
0x1c74…1cbd at0038 = ╱ec╱,╱ // 0x1cac @0x38
0x1c74…1cbd at0039 = ╱52╱R╱ // 0x1cad @0x39
0x1c74…1cbd at003a = ╱ed╱(╱ // 0x1cae @0x3a
0x1c74…1cbd at003b = ╱4a╱J╱ // 0x1caf @0x3b
0x1c74…1cbd at003c = ╱33╱3╱ // 0x1cb0 @0x3c
0x1c74…1cbd at003d = ╱ec╱,╱ // 0x1cb1 @0x3d
0x1c74…1cbd at003e = ╱45╱E╱ // 0x1cb2 @0x3e
0x1c74…1cbd at003f = ╱ee╱)╱ // 0x1cb3 @0x3f
0x1c74…1cbd at0040 = ╱ec╱,╱ // 0x1cb4 @0x40
0x1c74…1cbd at0041 = ╱52╱R╱ // 0x1cb5 @0x41
0x1c74…1cbd at0042 = ╱ed╱(╱ // 0x1cb6 @0x42
0x1c74…1cbd at0043 = ╱4a╱J╱ // 0x1cb7 @0x43
0x1c74…1cbd at0044 = ╱33╱3╱ // 0x1cb8 @0x44
0x1c74…1cbd at0045 = ╱ec╱,╱ // 0x1cb9 @0x45
0x1c74…1cbd at0046 = ╱47╱G╱ // 0x1cba @0x46
0x1c74…1cbd at0047 = ╱ee╱)╱ // 0x1cbb @0x47
0x1c74…1cbd at0048 = EOL // 0x1cbc @0x48
0x1c74…1cbd }
0x1cbd…1cd6 aa2d 3180 EXEC FEJL(13,G,V1$)
0x1cbd…1cd6 LineComalBin {
0x1cbd…1cd6 ptr = 0xaa2d // 0x1cbd @0x0
0x1cbd…1cd6 lno = 0x0c6c // 0x1cbf @0x2
0x1cbd…1cd6 at0004 = ╱9d╱ EXEC ╱ // 0x1cc1 @0x4
0x1cbd…1cd6 at0005 = ╱46╱F╱ // 0x1cc2 @0x5
0x1cbd…1cd6 at0006 = ╱45╱E╱ // 0x1cc3 @0x6
0x1cbd…1cd6 at0007 = ╱4a╱J╱ // 0x1cc4 @0x7
0x1cbd…1cd6 at0008 = ╱4c╱L╱ // 0x1cc5 @0x8
0x1cbd…1cd6 at0009 = ╱ed╱(╱ // 0x1cc6 @0x9
0x1cbd…1cd6 at000a = ╱31╱1╱ // 0x1cc7 @0xa
0x1cbd…1cd6 at000b = ╱33╱3╱ // 0x1cc8 @0xb
0x1cbd…1cd6 at000c = ╱fe0000d004╱ // 0x1cc9 @0xc
0x1cbd…1cd6 at0011 = ╱ec╱,╱ // 0x1cce @0x11
0x1cbd…1cd6 at0012 = ╱47╱G╱ // 0x1ccf @0x12
0x1cbd…1cd6 at0013 = ╱ec╱,╱ // 0x1cd0 @0x13
0x1cbd…1cd6 at0014 = ╱56╱V╱ // 0x1cd1 @0x14
0x1cbd…1cd6 at0015 = ╱31╱1╱ // 0x1cd2 @0x15
0x1cbd…1cd6 at0016 = ╱ef╱$╱ // 0x1cd3 @0x16
0x1cbd…1cd6 at0017 = ╱ee╱)╱ // 0x1cd4 @0x17
0x1cbd…1cd6 at0018 = EOL // 0x1cd5 @0x18
0x1cbd…1cd6 }
0x1cd6…1cdd aa34 3190 NEXT I
0x1cd6…1cdd LineComalBin {
0x1cd6…1cdd ptr = 0xaa34 // 0x1cd6 @0x0
0x1cd6…1cdd lno = 0x0c76 // 0x1cd8 @0x2
0x1cd6…1cdd at0004 = ╱84╱ NEXT ╱ // 0x1cda @0x4
0x1cd6…1cdd at0005 = ╱49╱I╱ // 0x1cdb @0x5
0x1cd6…1cdd at0006 = EOL // 0x1cdc @0x6
0x1cd6…1cdd }
0x1cdd…1ce6 aa3d 3200 CLOSE V1$
0x1cdd…1ce6 LineComalBin {
0x1cdd…1ce6 ptr = 0xaa3d // 0x1cdd @0x0
0x1cdd…1ce6 lno = 0x0c80 // 0x1cdf @0x2
0x1cdd…1ce6 at0004 = ╱a8╱ CLOSE ╱ // 0x1ce1 @0x4
0x1cdd…1ce6 at0005 = ╱56╱V╱ // 0x1ce2 @0x5
0x1cdd…1ce6 at0006 = ╱31╱1╱ // 0x1ce3 @0x6
0x1cdd…1ce6 at0007 = ╱ef╱$╱ // 0x1ce4 @0x7
0x1cdd…1ce6 at0008 = EOL // 0x1ce5 @0x8
0x1cdd…1ce6 }
0x1ce6…1cff aa56 3210 EXEC FEJL(13,V,V1$)
0x1ce6…1cff LineComalBin {
0x1ce6…1cff ptr = 0xaa56 // 0x1ce6 @0x0
0x1ce6…1cff lno = 0x0c8a // 0x1ce8 @0x2
0x1ce6…1cff at0004 = ╱9d╱ EXEC ╱ // 0x1cea @0x4
0x1ce6…1cff at0005 = ╱46╱F╱ // 0x1ceb @0x5
0x1ce6…1cff at0006 = ╱45╱E╱ // 0x1cec @0x6
0x1ce6…1cff at0007 = ╱4a╱J╱ // 0x1ced @0x7
0x1ce6…1cff at0008 = ╱4c╱L╱ // 0x1cee @0x8
0x1ce6…1cff at0009 = ╱ed╱(╱ // 0x1cef @0x9
0x1ce6…1cff at000a = ╱31╱1╱ // 0x1cf0 @0xa
0x1ce6…1cff at000b = ╱33╱3╱ // 0x1cf1 @0xb
0x1ce6…1cff at000c = ╱fe0000d004╱ // 0x1cf2 @0xc
0x1ce6…1cff at0011 = ╱ec╱,╱ // 0x1cf7 @0x11
0x1ce6…1cff at0012 = ╱56╱V╱ // 0x1cf8 @0x12
0x1ce6…1cff at0013 = ╱ec╱,╱ // 0x1cf9 @0x13
0x1ce6…1cff at0014 = ╱56╱V╱ // 0x1cfa @0x14
0x1ce6…1cff at0015 = ╱31╱1╱ // 0x1cfb @0x15
0x1ce6…1cff at0016 = ╱ef╱$╱ // 0x1cfc @0x16
0x1ce6…1cff at0017 = ╱ee╱)╱ // 0x1cfd @0x17
0x1ce6…1cff at0018 = EOL // 0x1cfe @0x18
0x1ce6…1cff }
0x1cff…1d05 aa5c 3220 ENDPROC
0x1cff…1d05 LineComalBin {
0x1cff…1d05 ptr = 0xaa5c // 0x1cff @0x0
0x1cff…1d05 lno = 0x0c94 // 0x1d01 @0x2
0x1cff…1d05 at0004 = ╱9f╱ ENDPROC ╱ // 0x1d03 @0x4
0x1cff…1d05 at0005 = EOL // 0x1d04 @0x5
0x1cff…1d05 }
0x1d05…1d1a aa71 3230 PROC UNDIND(V2,U1,Z)
0x1d05…1d1a LineComalBin {
0x1d05…1d1a ptr = 0xaa71 // 0x1d05 @0x0
0x1d05…1d1a lno = 0x0c9e // 0x1d07 @0x2
0x1d05…1d1a at0004 = ╱9e╱ PROC ╱ // 0x1d09 @0x4
0x1d05…1d1a at0005 = ╱55╱U╱ // 0x1d0a @0x5
0x1d05…1d1a at0006 = ╱4e╱N╱ // 0x1d0b @0x6
0x1d05…1d1a at0007 = ╱44╱D╱ // 0x1d0c @0x7
0x1d05…1d1a at0008 = ╱49╱I╱ // 0x1d0d @0x8
0x1d05…1d1a at0009 = ╱4e╱N╱ // 0x1d0e @0x9
0x1d05…1d1a at000a = ╱44╱D╱ // 0x1d0f @0xa
0x1d05…1d1a at000b = ╱ed╱(╱ // 0x1d10 @0xb
0x1d05…1d1a at000c = ╱56╱V╱ // 0x1d11 @0xc
0x1d05…1d1a at000d = ╱32╱2╱ // 0x1d12 @0xd
0x1d05…1d1a at000e = ╱ec╱,╱ // 0x1d13 @0xe
0x1d05…1d1a at000f = ╱55╱U╱ // 0x1d14 @0xf
0x1d05…1d1a at0010 = ╱31╱1╱ // 0x1d15 @0x10
0x1d05…1d1a at0011 = ╱ec╱,╱ // 0x1d16 @0x11
0x1d05…1d1a at0012 = ╱5a╱Z╱ // 0x1d17 @0x12
0x1d05…1d1a at0013 = ╱ee╱)╱ // 0x1d18 @0x13
0x1d05…1d1a at0014 = EOL // 0x1d19 @0x14
0x1d05…1d1a }
0x1d1a…1d25 aa7c 3240 OPEN V2$,R
0x1d1a…1d25 LineComalBin {
0x1d1a…1d25 ptr = 0xaa7c // 0x1d1a @0x0
0x1d1a…1d25 lno = 0x0ca8 // 0x1d1c @0x2
0x1d1a…1d25 at0004 = ╱a7╱ OPEN ╱ // 0x1d1e @0x4
0x1d1a…1d25 at0005 = ╱56╱V╱ // 0x1d1f @0x5
0x1d1a…1d25 at0006 = ╱32╱2╱ // 0x1d20 @0x6
0x1d1a…1d25 at0007 = ╱ef╱$╱ // 0x1d21 @0x7
0x1d1a…1d25 at0008 = ╱ec╱,╱ // 0x1d22 @0x8
0x1d1a…1d25 at0009 = ╱52╱R╱ // 0x1d23 @0x9
0x1d1a…1d25 at000a = EOL // 0x1d24 @0xa
0x1d1a…1d25 }
0x1d25…1d3e aa95 3250 EXEC FEJL(14,E,V2$)
0x1d25…1d3e LineComalBin {
0x1d25…1d3e ptr = 0xaa95 // 0x1d25 @0x0
0x1d25…1d3e lno = 0x0cb2 // 0x1d27 @0x2
0x1d25…1d3e at0004 = ╱9d╱ EXEC ╱ // 0x1d29 @0x4
0x1d25…1d3e at0005 = ╱46╱F╱ // 0x1d2a @0x5
0x1d25…1d3e at0006 = ╱45╱E╱ // 0x1d2b @0x6
0x1d25…1d3e at0007 = ╱4a╱J╱ // 0x1d2c @0x7
0x1d25…1d3e at0008 = ╱4c╱L╱ // 0x1d2d @0x8
0x1d25…1d3e at0009 = ╱ed╱(╱ // 0x1d2e @0x9
0x1d25…1d3e at000a = ╱31╱1╱ // 0x1d2f @0xa
0x1d25…1d3e at000b = ╱34╱4╱ // 0x1d30 @0xb
0x1d25…1d3e at000c = ╱fe0000e004╱ // 0x1d31 @0xc
0x1d25…1d3e at0011 = ╱ec╱,╱ // 0x1d36 @0x11
0x1d25…1d3e at0012 = ╱45╱E╱ // 0x1d37 @0x12
0x1d25…1d3e at0013 = ╱ec╱,╱ // 0x1d38 @0x13
0x1d25…1d3e at0014 = ╱56╱V╱ // 0x1d39 @0x14
0x1d25…1d3e at0015 = ╱32╱2╱ // 0x1d3a @0x15
0x1d25…1d3e at0016 = ╱ef╱$╱ // 0x1d3b @0x16
0x1d25…1d3e at0017 = ╱ee╱)╱ // 0x1d3c @0x17
0x1d25…1d3e at0018 = EOL // 0x1d3d @0x18
0x1d25…1d3e }
0x1d3e…1d8c aae3 3260 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)
0x1d3e…1d8c LineComalBin {
0x1d3e…1d8c ptr = 0xaae3 // 0x1d3e @0x0
0x1d3e…1d8c lno = 0x0cbc // 0x1d40 @0x2
0x1d3e…1d8c at0004 = ╱a9╱ GET ╱ // 0x1d42 @0x4
0x1d3e…1d8c at0005 = ╱56╱V╱ // 0x1d43 @0x5
0x1d3e…1d8c at0006 = ╱32╱2╱ // 0x1d44 @0x6
0x1d3e…1d8c at0007 = ╱ef╱$╱ // 0x1d45 @0x7
0x1d3e…1d8c at0008 = ╱ec╱,╱ // 0x1d46 @0x8
0x1d3e…1d8c at0009 = ╱55╱U╱ // 0x1d47 @0x9
0x1d3e…1d8c at000a = ╱31╱1╱ // 0x1d48 @0xa
0x1d3e…1d8c at000b = ╱f0╱:╱ // 0x1d49 @0xb
0x1d3e…1d8c at000c = ╱5a╱Z╱ // 0x1d4a @0xc
0x1d3e…1d8c at000d = ╱ed╱(╱ // 0x1d4b @0xd
0x1d3e…1d8c at000e = ╱45╱E╱ // 0x1d4c @0xe
0x1d3e…1d8c at000f = ╱ec╱,╱ // 0x1d4d @0xf
0x1d3e…1d8c at0010 = ╱45╱E╱ // 0x1d4e @0x10
0x1d3e…1d8c at0011 = ╱ee╱)╱ // 0x1d4f @0x11
0x1d3e…1d8c at0012 = ╱ec╱,╱ // 0x1d50 @0x12
0x1d3e…1d8c at0013 = ╱5a╱Z╱ // 0x1d51 @0x13
0x1d3e…1d8c at0014 = ╱ed╱(╱ // 0x1d52 @0x14
0x1d3e…1d8c at0015 = ╱45╱E╱ // 0x1d53 @0x15
0x1d3e…1d8c at0016 = ╱ec╱,╱ // 0x1d54 @0x16
0x1d3e…1d8c at0017 = ╱47╱G╱ // 0x1d55 @0x17
0x1d3e…1d8c at0018 = ╱ee╱)╱ // 0x1d56 @0x18
0x1d3e…1d8c at0019 = ╱ec╱,╱ // 0x1d57 @0x19
0x1d3e…1d8c at001a = ╱5a╱Z╱ // 0x1d58 @0x1a
0x1d3e…1d8c at001b = ╱ed╱(╱ // 0x1d59 @0x1b
0x1d3e…1d8c at001c = ╱47╱G╱ // 0x1d5a @0x1c
0x1d3e…1d8c at001d = ╱ec╱,╱ // 0x1d5b @0x1d
0x1d3e…1d8c at001e = ╱45╱E╱ // 0x1d5c @0x1e
0x1d3e…1d8c at001f = ╱ee╱)╱ // 0x1d5d @0x1f
0x1d3e…1d8c at0020 = ╱ec╱,╱ // 0x1d5e @0x20
0x1d3e…1d8c at0021 = ╱5a╱Z╱ // 0x1d5f @0x21
0x1d3e…1d8c at0022 = ╱ed╱(╱ // 0x1d60 @0x22
0x1d3e…1d8c at0023 = ╱47╱G╱ // 0x1d61 @0x23
0x1d3e…1d8c at0024 = ╱ec╱,╱ // 0x1d62 @0x24
0x1d3e…1d8c at0025 = ╱47╱G╱ // 0x1d63 @0x25
0x1d3e…1d8c at0026 = ╱ee╱)╱ // 0x1d64 @0x26
0x1d3e…1d8c at0027 = ╱ec╱,╱ // 0x1d65 @0x27
0x1d3e…1d8c at0028 = ╱5a╱Z╱ // 0x1d66 @0x28
0x1d3e…1d8c at0029 = ╱ed╱(╱ // 0x1d67 @0x29
0x1d3e…1d8c at002a = ╱56╱V╱ // 0x1d68 @0x2a
0x1d3e…1d8c at002b = ╱ec╱,╱ // 0x1d69 @0x2b
0x1d3e…1d8c at002c = ╱45╱E╱ // 0x1d6a @0x2c
0x1d3e…1d8c at002d = ╱ee╱)╱ // 0x1d6b @0x2d
0x1d3e…1d8c at002e = ╱ec╱,╱ // 0x1d6c @0x2e
0x1d3e…1d8c at002f = ╱5a╱Z╱ // 0x1d6d @0x2f
0x1d3e…1d8c at0030 = ╱ed╱(╱ // 0x1d6e @0x30
0x1d3e…1d8c at0031 = ╱56╱V╱ // 0x1d6f @0x31
0x1d3e…1d8c at0032 = ╱ec╱,╱ // 0x1d70 @0x32
0x1d3e…1d8c at0033 = ╱47╱G╱ // 0x1d71 @0x33
0x1d3e…1d8c at0034 = ╱ee╱)╱ // 0x1d72 @0x34
0x1d3e…1d8c at0035 = ╱ec╱,╱ // 0x1d73 @0x35
0x1d3e…1d8c at0036 = ╱5a╱Z╱ // 0x1d74 @0x36
0x1d3e…1d8c at0037 = ╱ed╱(╱ // 0x1d75 @0x37
0x1d3e…1d8c at0038 = ╱34╱4╱ // 0x1d76 @0x38
0x1d3e…1d8c at0039 = ╱fe00008003╱ // 0x1d77 @0x39
0x1d3e…1d8c at003e = ╱ec╱,╱ // 0x1d7c @0x3e
0x1d3e…1d8c at003f = ╱45╱E╱ // 0x1d7d @0x3f
0x1d3e…1d8c at0040 = ╱ee╱)╱ // 0x1d7e @0x40
0x1d3e…1d8c at0041 = ╱ec╱,╱ // 0x1d7f @0x41
0x1d3e…1d8c at0042 = ╱5a╱Z╱ // 0x1d80 @0x42
0x1d3e…1d8c at0043 = ╱ed╱(╱ // 0x1d81 @0x43
0x1d3e…1d8c at0044 = ╱34╱4╱ // 0x1d82 @0x44
0x1d3e…1d8c at0045 = ╱fe00008003╱ // 0x1d83 @0x45
0x1d3e…1d8c at004a = ╱ec╱,╱ // 0x1d88 @0x4a
0x1d3e…1d8c at004b = ╱47╱G╱ // 0x1d89 @0x4b
0x1d3e…1d8c at004c = ╱ee╱)╱ // 0x1d8a @0x4c
0x1d3e…1d8c at004d = EOL // 0x1d8b @0x4d
0x1d3e…1d8c }
0x1d8c…1da5 aafc 3270 EXEC FEJL(14,G,V2$)
0x1d8c…1da5 LineComalBin {
0x1d8c…1da5 ptr = 0xaafc // 0x1d8c @0x0
0x1d8c…1da5 lno = 0x0cc6 // 0x1d8e @0x2
0x1d8c…1da5 at0004 = ╱9d╱ EXEC ╱ // 0x1d90 @0x4
0x1d8c…1da5 at0005 = ╱46╱F╱ // 0x1d91 @0x5
0x1d8c…1da5 at0006 = ╱45╱E╱ // 0x1d92 @0x6
0x1d8c…1da5 at0007 = ╱4a╱J╱ // 0x1d93 @0x7
0x1d8c…1da5 at0008 = ╱4c╱L╱ // 0x1d94 @0x8
0x1d8c…1da5 at0009 = ╱ed╱(╱ // 0x1d95 @0x9
0x1d8c…1da5 at000a = ╱31╱1╱ // 0x1d96 @0xa
0x1d8c…1da5 at000b = ╱34╱4╱ // 0x1d97 @0xb
0x1d8c…1da5 at000c = ╱fe0000e004╱ // 0x1d98 @0xc
0x1d8c…1da5 at0011 = ╱ec╱,╱ // 0x1d9d @0x11
0x1d8c…1da5 at0012 = ╱47╱G╱ // 0x1d9e @0x12
0x1d8c…1da5 at0013 = ╱ec╱,╱ // 0x1d9f @0x13
0x1d8c…1da5 at0014 = ╱56╱V╱ // 0x1da0 @0x14
0x1d8c…1da5 at0015 = ╱32╱2╱ // 0x1da1 @0x15
0x1d8c…1da5 at0016 = ╱ef╱$╱ // 0x1da2 @0x16
0x1d8c…1da5 at0017 = ╱ee╱)╱ // 0x1da3 @0x17
0x1d8c…1da5 at0018 = EOL // 0x1da4 @0x18
0x1d8c…1da5 }
0x1da5…1dae ab05 3280 CLOSE V2$
0x1da5…1dae LineComalBin {
0x1da5…1dae ptr = 0xab05 // 0x1da5 @0x0
0x1da5…1dae lno = 0x0cd0 // 0x1da7 @0x2
0x1da5…1dae at0004 = ╱a8╱ CLOSE ╱ // 0x1da9 @0x4
0x1da5…1dae at0005 = ╱56╱V╱ // 0x1daa @0x5
0x1da5…1dae at0006 = ╱32╱2╱ // 0x1dab @0x6
0x1da5…1dae at0007 = ╱ef╱$╱ // 0x1dac @0x7
0x1da5…1dae at0008 = EOL // 0x1dad @0x8
0x1da5…1dae }
0x1dae…1dc7 ab1e 3290 EXEC FEJL(14,V,V2$)
0x1dae…1dc7 LineComalBin {
0x1dae…1dc7 ptr = 0xab1e // 0x1dae @0x0
0x1dae…1dc7 lno = 0x0cda // 0x1db0 @0x2
0x1dae…1dc7 at0004 = ╱9d╱ EXEC ╱ // 0x1db2 @0x4
0x1dae…1dc7 at0005 = ╱46╱F╱ // 0x1db3 @0x5
0x1dae…1dc7 at0006 = ╱45╱E╱ // 0x1db4 @0x6
0x1dae…1dc7 at0007 = ╱4a╱J╱ // 0x1db5 @0x7
0x1dae…1dc7 at0008 = ╱4c╱L╱ // 0x1db6 @0x8
0x1dae…1dc7 at0009 = ╱ed╱(╱ // 0x1db7 @0x9
0x1dae…1dc7 at000a = ╱31╱1╱ // 0x1db8 @0xa
0x1dae…1dc7 at000b = ╱34╱4╱ // 0x1db9 @0xb
0x1dae…1dc7 at000c = ╱fe0000e004╱ // 0x1dba @0xc
0x1dae…1dc7 at0011 = ╱ec╱,╱ // 0x1dbf @0x11
0x1dae…1dc7 at0012 = ╱56╱V╱ // 0x1dc0 @0x12
0x1dae…1dc7 at0013 = ╱ec╱,╱ // 0x1dc1 @0x13
0x1dae…1dc7 at0014 = ╱56╱V╱ // 0x1dc2 @0x14
0x1dae…1dc7 at0015 = ╱32╱2╱ // 0x1dc3 @0x15
0x1dae…1dc7 at0016 = ╱ef╱$╱ // 0x1dc4 @0x16
0x1dae…1dc7 at0017 = ╱ee╱)╱ // 0x1dc5 @0x17
0x1dae…1dc7 at0018 = EOL // 0x1dc6 @0x18
0x1dae…1dc7 }
0x1dc7…1dcd (99,) ab24 3300 ENDPROC
0x1dc7…1dcd LineComalBin {
0x1dc7…1dcd ptr = 0xab24 // 0x1dc7 @0x0
0x1dc7…1dcd lno = 0x0ce4 // 0x1dc9 @0x2
0x1dc7…1dcd at0004 = ╱9f╱ ENDPROC ╱ // 0x1dcb @0x4
0x1dc7…1dcd at0005 = EOL // 0x1dcc @0x5
0x1dc7…1dcd }
0x1dcd…1de2 ab39 3310 PROC DATOUD(DA1,DA2)
0x1dcd…1de2 LineComalBin {
0x1dcd…1de2 ptr = 0xab39 // 0x1dcd @0x0
0x1dcd…1de2 lno = 0x0cee // 0x1dcf @0x2
0x1dcd…1de2 at0004 = ╱9e╱ PROC ╱ // 0x1dd1 @0x4
0x1dcd…1de2 at0005 = ╱44╱D╱ // 0x1dd2 @0x5
0x1dcd…1de2 at0006 = ╱41╱A╱ // 0x1dd3 @0x6
0x1dcd…1de2 at0007 = ╱54╱T╱ // 0x1dd4 @0x7
0x1dcd…1de2 at0008 = ╱4f╱O╱ // 0x1dd5 @0x8
0x1dcd…1de2 at0009 = ╱55╱U╱ // 0x1dd6 @0x9
0x1dcd…1de2 at000a = ╱44╱D╱ // 0x1dd7 @0xa
0x1dcd…1de2 at000b = ╱ed╱(╱ // 0x1dd8 @0xb
0x1dcd…1de2 at000c = ╱44╱D╱ // 0x1dd9 @0xc
0x1dcd…1de2 at000d = ╱41╱A╱ // 0x1dda @0xd
0x1dcd…1de2 at000e = ╱31╱1╱ // 0x1ddb @0xe
0x1dcd…1de2 at000f = ╱ec╱,╱ // 0x1ddc @0xf
0x1dcd…1de2 at0010 = ╱44╱D╱ // 0x1ddd @0x10
0x1dcd…1de2 at0011 = ╱41╱A╱ // 0x1dde @0x11
0x1dcd…1de2 at0012 = ╱32╱2╱ // 0x1ddf @0x12
0x1dcd…1de2 at0013 = ╱ee╱)╱ // 0x1de0 @0x13
0x1dcd…1de2 at0014 = EOL // 0x1de1 @0x14
0x1dcd…1de2 }
0x1de2…1dfe ab55 3320 DA3=DA1;DA2$=" "
0x1de2…1dfe LineComalBin {
0x1de2…1dfe ptr = 0xab55 // 0x1de2 @0x0
0x1de2…1dfe lno = 0x0cf8 // 0x1de4 @0x2
0x1de2…1dfe at0004 = ╱44╱D╱ // 0x1de6 @0x4
0x1de2…1dfe at0005 = ╱41╱A╱ // 0x1de7 @0x5
0x1de2…1dfe at0006 = ╱33╱3╱ // 0x1de8 @0x6
0x1de2…1dfe at0007 = ╱dc╱=╱ // 0x1de9 @0x7
0x1de2…1dfe at0008 = ╱44╱D╱ // 0x1dea @0x8
0x1de2…1dfe at0009 = ╱41╱A╱ // 0x1deb @0x9
0x1de2…1dfe at000a = ╱31╱1╱ // 0x1dec @0xa
0x1de2…1dfe at000b = ╱eb╱;╱ // 0x1ded @0xb
0x1de2…1dfe at000c = ╱44╱D╱ // 0x1dee @0xc
0x1de2…1dfe at000d = ╱41╱A╱ // 0x1def @0xd
0x1de2…1dfe at000e = ╱32╱2╱ // 0x1df0 @0xe
0x1de2…1dfe at000f = ╱ef╱$╱ // 0x1df1 @0xf
0x1de2…1dfe at0010 = ╱dc╱=╱ // 0x1df2 @0x10
0x1de2…1dfe at0011 = ╱22╱"╱ // 0x1df3 @0x11
0x1de2…1dfe at0012 = ╱20╱…╱ // 0x1df4 @0x12
0x1de2…1dfe at0013 = ╱20╱…╱ // 0x1df5 @0x13
0x1de2…1dfe at0014 = ╱20╱…╱ // 0x1df6 @0x14
0x1de2…1dfe at0015 = ╱20╱…╱ // 0x1df7 @0x15
0x1de2…1dfe at0016 = ╱20╱…╱ // 0x1df8 @0x16
0x1de2…1dfe at0017 = ╱20╱…╱ // 0x1df9 @0x17
0x1de2…1dfe at0018 = ╱20╱…╱ // 0x1dfa @0x18
0x1de2…1dfe at0019 = ╱20╱…╱ // 0x1dfb @0x19
0x1de2…1dfe at001a = ╱22╱"╱ // 0x1dfc @0x1a
0x1de2…1dfe at001b = EOL // 0x1dfd @0x1b
0x1de2…1dfe }
0x1dfe…1e11 ab68 3330 FOR J=8 TO E STEP -E
0x1dfe…1e11 LineComalBin {
0x1dfe…1e11 ptr = 0xab68 // 0x1dfe @0x0
0x1dfe…1e11 lno = 0x0d02 // 0x1e00 @0x2
0x1dfe…1e11 at0004 = ╱83╱ FOR ╱ // 0x1e02 @0x4
0x1dfe…1e11 at0005 = ╱4a╱J╱ // 0x1e03 @0x5
0x1dfe…1e11 at0006 = ╱dc╱=╱ // 0x1e04 @0x6
0x1dfe…1e11 at0007 = ╱38╱8╱ // 0x1e05 @0x7
0x1dfe…1e11 at0008 = ╱fe00008004╱ // 0x1e06 @0x8
0x1dfe…1e11 at000d = ╱b7╱ TO ╱ // 0x1e0b @0xd
0x1dfe…1e11 at000e = ╱45╱E╱ // 0x1e0c @0xe
0x1dfe…1e11 at000f = ╱b8╱ STEP ╱ // 0x1e0d @0xf
0x1dfe…1e11 at0010 = ╱e9╱-╱ // 0x1e0e @0x10
0x1dfe…1e11 at0011 = ╱45╱E╱ // 0x1e0f @0x11
0x1dfe…1e11 at0012 = EOL // 0x1e10 @0x12
0x1dfe…1e11 }
0x1e11…1e1d ab74 3340 IF J MOD V=B THEN
0x1e11…1e1d LineComalBin {
0x1e11…1e1d ptr = 0xab74 // 0x1e11 @0x0
0x1e11…1e1d lno = 0x0d0c // 0x1e13 @0x2
0x1e11…1e1d at0004 = ╱9c╱ IF ╱ // 0x1e15 @0x4
0x1e11…1e1d at0005 = ╱4a╱J╱ // 0x1e16 @0x5
0x1e11…1e1d at0006 = ╱e8╱ MOD ╱ // 0x1e17 @0x6
0x1e11…1e1d at0007 = ╱56╱V╱ // 0x1e18 @0x7
0x1e11…1e1d at0008 = ╱dc╱=╱ // 0x1e19 @0x8
0x1e11…1e1d at0009 = ╱42╱B╱ // 0x1e1a @0x9
0x1e11…1e1d at000a = ╱b6╱ THEN ╱ // 0x1e1b @0xa
0x1e11…1e1d at000b = EOL // 0x1e1c @0xb
0x1e11…1e1d }
0x1e1d…1e2d ab84 3350 DA2$(J)="."
0x1e1d…1e2d LineComalBin {
0x1e1d…1e2d ptr = 0xab84 // 0x1e1d @0x0
0x1e1d…1e2d lno = 0x0d16 // 0x1e1f @0x2
0x1e1d…1e2d at0004 = ╱44╱D╱ // 0x1e21 @0x4
0x1e1d…1e2d at0005 = ╱41╱A╱ // 0x1e22 @0x5
0x1e1d…1e2d at0006 = ╱32╱2╱ // 0x1e23 @0x6
0x1e1d…1e2d at0007 = ╱ef╱$╱ // 0x1e24 @0x7
0x1e1d…1e2d at0008 = ╱ed╱(╱ // 0x1e25 @0x8
0x1e1d…1e2d at0009 = ╱4a╱J╱ // 0x1e26 @0x9
0x1e1d…1e2d at000a = ╱ee╱)╱ // 0x1e27 @0xa
0x1e1d…1e2d at000b = ╱dc╱=╱ // 0x1e28 @0xb
0x1e1d…1e2d at000c = ╱22╱"╱ // 0x1e29 @0xc
0x1e1d…1e2d at000d = ╱2e╱.╱ // 0x1e2a @0xd
0x1e1d…1e2d at000e = ╱22╱"╱ // 0x1e2b @0xe
0x1e1d…1e2d at000f = EOL // 0x1e2c @0xf
0x1e1d…1e2d }
0x1e2d…1e33 ab8a 3360 ELSE
0x1e2d…1e33 LineComalBin {
0x1e2d…1e33 ptr = 0xab8a // 0x1e2d @0x0
0x1e2d…1e33 lno = 0x0d20 // 0x1e2f @0x2
0x1e2d…1e33 at0004 = ╱9a╱ ELSE ╱ // 0x1e31 @0x4
0x1e2d…1e33 at0005 = EOL // 0x1e32 @0x5
0x1e2d…1e33 }
0x1e33…1e66 abbd 3370 DA2$(J)=CHR(DA3 MOD 10+48);DA3=DA3 DIV 10
0x1e33…1e66 LineComalBin {
0x1e33…1e66 ptr = 0xabbd // 0x1e33 @0x0
0x1e33…1e66 lno = 0x0d2a // 0x1e35 @0x2
0x1e33…1e66 at0004 = ╱44╱D╱ // 0x1e37 @0x4
0x1e33…1e66 at0005 = ╱41╱A╱ // 0x1e38 @0x5
0x1e33…1e66 at0006 = ╱32╱2╱ // 0x1e39 @0x6
0x1e33…1e66 at0007 = ╱ef╱$╱ // 0x1e3a @0x7
0x1e33…1e66 at0008 = ╱ed╱(╱ // 0x1e3b @0x8
0x1e33…1e66 at0009 = ╱4a╱J╱ // 0x1e3c @0x9
0x1e33…1e66 at000a = ╱ee╱)╱ // 0x1e3d @0xa
0x1e33…1e66 at000b = ╱dc╱=╱ // 0x1e3e @0xb
0x1e33…1e66 at000c = ╱cf╱CHR╱ // 0x1e3f @0xc
0x1e33…1e66 at000d = ╱ed╱(╱ // 0x1e40 @0xd
0x1e33…1e66 at000e = ╱44╱D╱ // 0x1e41 @0xe
0x1e33…1e66 at000f = ╱41╱A╱ // 0x1e42 @0xf
0x1e33…1e66 at0010 = ╱33╱3╱ // 0x1e43 @0x10
0x1e33…1e66 at0011 = ╱e8╱ MOD ╱ // 0x1e44 @0x11
0x1e33…1e66 at0012 = ╱31╱1╱ // 0x1e45 @0x12
0x1e33…1e66 at0013 = ╱30╱0╱ // 0x1e46 @0x13
0x1e33…1e66 at0014 = ╱fe0000a004╱ // 0x1e47 @0x14
0x1e33…1e66 at0019 = ╱e2╱+╱ // 0x1e4c @0x19
0x1e33…1e66 at001a = ╱34╱4╱ // 0x1e4d @0x1a
0x1e33…1e66 at001b = ╱38╱8╱ // 0x1e4e @0x1b
0x1e33…1e66 at001c = ╱fe0000c006╱ // 0x1e4f @0x1c
0x1e33…1e66 at0021 = ╱ee╱)╱ // 0x1e54 @0x21
0x1e33…1e66 at0022 = ╱eb╱;╱ // 0x1e55 @0x22
0x1e33…1e66 at0023 = ╱44╱D╱ // 0x1e56 @0x23
0x1e33…1e66 at0024 = ╱41╱A╱ // 0x1e57 @0x24
0x1e33…1e66 at0025 = ╱33╱3╱ // 0x1e58 @0x25
0x1e33…1e66 at0026 = ╱dc╱=╱ // 0x1e59 @0x26
0x1e33…1e66 at0027 = ╱44╱D╱ // 0x1e5a @0x27
0x1e33…1e66 at0028 = ╱41╱A╱ // 0x1e5b @0x28
0x1e33…1e66 at0029 = ╱33╱3╱ // 0x1e5c @0x29
0x1e33…1e66 at002a = ╱e7╱ DIV ╱ // 0x1e5d @0x2a
0x1e33…1e66 at002b = ╱31╱1╱ // 0x1e5e @0x2b
0x1e33…1e66 at002c = ╱30╱0╱ // 0x1e5f @0x2c
0x1e33…1e66 at002d = ╱fe0000a004╱ // 0x1e60 @0x2d
0x1e33…1e66 at0032 = EOL // 0x1e65 @0x32
0x1e33…1e66 }
0x1e66…1e6c abc3 3380 ENDIF
0x1e66…1e6c LineComalBin {
0x1e66…1e6c ptr = 0xabc3 // 0x1e66 @0x0
0x1e66…1e6c lno = 0x0d34 // 0x1e68 @0x2
0x1e66…1e6c at0004 = ╱9b╱ ENDIF ╱ // 0x1e6a @0x4
0x1e66…1e6c at0005 = EOL // 0x1e6b @0x5
0x1e66…1e6c }
0x1e6c…1e73 abca 3390 NEXT J
0x1e6c…1e73 LineComalBin {
0x1e6c…1e73 ptr = 0xabca // 0x1e6c @0x0
0x1e6c…1e73 lno = 0x0d3e // 0x1e6e @0x2
0x1e6c…1e73 at0004 = ╱84╱ NEXT ╱ // 0x1e70 @0x4
0x1e6c…1e73 at0005 = ╱4a╱J╱ // 0x1e71 @0x5
0x1e6c…1e73 at0006 = EOL // 0x1e72 @0x6
0x1e6c…1e73 }
0x1e73…1e79 abd0 3400 ENDPROC
0x1e73…1e79 LineComalBin {
0x1e73…1e79 ptr = 0xabd0 // 0x1e73 @0x0
0x1e73…1e79 lno = 0x0d48 // 0x1e75 @0x2
0x1e73…1e79 at0004 = ╱9f╱ ENDPROC ╱ // 0x1e77 @0x4
0x1e73…1e79 at0005 = EOL // 0x1e78 @0x5
0x1e73…1e79 }
0x1e79…1e97 abee 3410 PROC MKONTUD(K61,MPOSTANTAL8)
0x1e79…1e97 LineComalBin {
0x1e79…1e97 ptr = 0xabee // 0x1e79 @0x0
0x1e79…1e97 lno = 0x0d52 // 0x1e7b @0x2
0x1e79…1e97 at0004 = ╱9e╱ PROC ╱ // 0x1e7d @0x4
0x1e79…1e97 at0005 = ╱4d╱M╱ // 0x1e7e @0x5
0x1e79…1e97 at0006 = ╱4b╱K╱ // 0x1e7f @0x6
0x1e79…1e97 at0007 = ╱4f╱O╱ // 0x1e80 @0x7
0x1e79…1e97 at0008 = ╱4e╱N╱ // 0x1e81 @0x8
0x1e79…1e97 at0009 = ╱54╱T╱ // 0x1e82 @0x9
0x1e79…1e97 at000a = ╱55╱U╱ // 0x1e83 @0xa
0x1e79…1e97 at000b = ╱44╱D╱ // 0x1e84 @0xb
0x1e79…1e97 at000c = ╱ed╱(╱ // 0x1e85 @0xc
0x1e79…1e97 at000d = ╱4b╱K╱ // 0x1e86 @0xd
0x1e79…1e97 at000e = ╱36╱6╱ // 0x1e87 @0xe
0x1e79…1e97 at000f = ╱31╱1╱ // 0x1e88 @0xf
0x1e79…1e97 at0010 = ╱ec╱,╱ // 0x1e89 @0x10
0x1e79…1e97 at0011 = ╱4d╱M╱ // 0x1e8a @0x11
0x1e79…1e97 at0012 = ╱50╱P╱ // 0x1e8b @0x12
0x1e79…1e97 at0013 = ╱4f╱O╱ // 0x1e8c @0x13
0x1e79…1e97 at0014 = ╱53╱S╱ // 0x1e8d @0x14
0x1e79…1e97 at0015 = ╱54╱T╱ // 0x1e8e @0x15
0x1e79…1e97 at0016 = ╱41╱A╱ // 0x1e8f @0x16
0x1e79…1e97 at0017 = ╱4e╱N╱ // 0x1e90 @0x17
0x1e79…1e97 at0018 = ╱54╱T╱ // 0x1e91 @0x18
0x1e79…1e97 at0019 = ╱41╱A╱ // 0x1e92 @0x19
0x1e79…1e97 at001a = ╱4c╱L╱ // 0x1e93 @0x1a
0x1e79…1e97 at001b = ╱38╱8╱ // 0x1e94 @0x1b
0x1e79…1e97 at001c = ╱ee╱)╱ // 0x1e95 @0x1c
0x1e79…1e97 at001d = EOL // 0x1e96 @0x1d
0x1e79…1e97 }
0x1e97…1e9e abf5 3420 OUTPUT P
0x1e97…1e9e LineComalBin {
0x1e97…1e9e ptr = 0xabf5 // 0x1e97 @0x0
0x1e97…1e9e lno = 0x0d5c // 0x1e99 @0x2
0x1e97…1e9e at0004 = ╱a5╱ OUTPUT ╱ // 0x1e9b @0x4
0x1e97…1e9e at0005 = ╱50╱P╱ // 0x1e9c @0x5
0x1e97…1e9e at0006 = EOL // 0x1e9d @0x6
0x1e97…1e9e }
0x1e9e…1eb2 ac09 3430 P=E;T=E;SKRIV=E
0x1e9e…1eb2 LineComalBin {
0x1e9e…1eb2 ptr = 0xac09 // 0x1e9e @0x0
0x1e9e…1eb2 lno = 0x0d66 // 0x1ea0 @0x2
0x1e9e…1eb2 at0004 = ╱50╱P╱ // 0x1ea2 @0x4
0x1e9e…1eb2 at0005 = ╱dc╱=╱ // 0x1ea3 @0x5
0x1e9e…1eb2 at0006 = ╱45╱E╱ // 0x1ea4 @0x6
0x1e9e…1eb2 at0007 = ╱eb╱;╱ // 0x1ea5 @0x7
0x1e9e…1eb2 at0008 = ╱54╱T╱ // 0x1ea6 @0x8
0x1e9e…1eb2 at0009 = ╱dc╱=╱ // 0x1ea7 @0x9
0x1e9e…1eb2 at000a = ╱45╱E╱ // 0x1ea8 @0xa
0x1e9e…1eb2 at000b = ╱eb╱;╱ // 0x1ea9 @0xb
0x1e9e…1eb2 at000c = ╱53╱S╱ // 0x1eaa @0xc
0x1e9e…1eb2 at000d = ╱4b╱K╱ // 0x1eab @0xd
0x1e9e…1eb2 at000e = ╱52╱R╱ // 0x1eac @0xe
0x1e9e…1eb2 at000f = ╱49╱I╱ // 0x1ead @0xf
0x1e9e…1eb2 at0010 = ╱56╱V╱ // 0x1eae @0x10
0x1e9e…1eb2 at0011 = ╱dc╱=╱ // 0x1eaf @0x11
0x1e9e…1eb2 at0012 = ╱45╱E╱ // 0x1eb0 @0x12
0x1e9e…1eb2 at0013 = EOL // 0x1eb1 @0x13
0x1e9e…1eb2 }
0x1eb2…1edf ac36 3440 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
0x1eb2…1edf LineComalBin {
0x1eb2…1edf ptr = 0xac36 // 0x1eb2 @0x0
0x1eb2…1edf lno = 0x0d70 // 0x1eb4 @0x2
0x1eb2…1edf at0004 = ╱9d╱ EXEC ╱ // 0x1eb6 @0x4
0x1eb2…1edf at0005 = ╱50╱P╱ // 0x1eb7 @0x5
0x1eb2…1edf at0006 = ╱4f╱O╱ // 0x1eb8 @0x6
0x1eb2…1edf at0007 = ╱53╱S╱ // 0x1eb9 @0x7
0x1eb2…1edf at0008 = ╱54╱T╱ // 0x1eba @0x8
0x1eb2…1edf at0009 = ╱45╱E╱ // 0x1ebb @0x9
0x1eb2…1edf at000a = ╱52╱R╱ // 0x1ebc @0xa
0x1eb2…1edf at000b = ╱ed╱(╱ // 0x1ebd @0xb
0x1eb2…1edf at000c = ╱4b╱K╱ // 0x1ebe @0xc
0x1eb2…1edf at000d = ╱36╱6╱ // 0x1ebf @0xd
0x1eb2…1edf at000e = ╱31╱1╱ // 0x1ec0 @0xe
0x1eb2…1edf at000f = ╱ef╱$╱ // 0x1ec1 @0xf
0x1eb2…1edf at0010 = ╱ec╱,╱ // 0x1ec2 @0x10
0x1eb2…1edf at0011 = ╱50╱P╱ // 0x1ec3 @0x11
0x1eb2…1edf at0012 = ╱ec╱,╱ // 0x1ec4 @0x12
0x1eb2…1edf at0013 = ╱54╱T╱ // 0x1ec5 @0x13
0x1eb2…1edf at0014 = ╱ec╱,╱ // 0x1ec6 @0x14
0x1eb2…1edf at0015 = ╱4d╱M╱ // 0x1ec7 @0x15
0x1eb2…1edf at0016 = ╱50╱P╱ // 0x1ec8 @0x16
0x1eb2…1edf at0017 = ╱4f╱O╱ // 0x1ec9 @0x17
0x1eb2…1edf at0018 = ╱53╱S╱ // 0x1eca @0x18
0x1eb2…1edf at0019 = ╱54╱T╱ // 0x1ecb @0x19
0x1eb2…1edf at001a = ╱41╱A╱ // 0x1ecc @0x1a
0x1eb2…1edf at001b = ╱4e╱N╱ // 0x1ecd @0x1b
0x1eb2…1edf at001c = ╱54╱T╱ // 0x1ece @0x1c
0x1eb2…1edf at001d = ╱41╱A╱ // 0x1ecf @0x1d
0x1eb2…1edf at001e = ╱4c╱L╱ // 0x1ed0 @0x1e
0x1eb2…1edf at001f = ╱38╱8╱ // 0x1ed1 @0x1f
0x1eb2…1edf at0020 = ╱ec╱,╱ // 0x1ed2 @0x20
0x1eb2…1edf at0021 = ╱53╱S╱ // 0x1ed3 @0x21
0x1eb2…1edf at0022 = ╱4b╱K╱ // 0x1ed4 @0x22
0x1eb2…1edf at0023 = ╱52╱R╱ // 0x1ed5 @0x23
0x1eb2…1edf at0024 = ╱49╱I╱ // 0x1ed6 @0x24
0x1eb2…1edf at0025 = ╱56╱V╱ // 0x1ed7 @0x25
0x1eb2…1edf at0026 = ╱ec╱,╱ // 0x1ed8 @0x26
0x1eb2…1edf at0027 = ╱53╱S╱ // 0x1ed9 @0x27
0x1eb2…1edf at0028 = ╱55╱U╱ // 0x1eda @0x28
0x1eb2…1edf at0029 = ╱4d╱M╱ // 0x1edb @0x29
0x1eb2…1edf at002a = ╱ef╱$╱ // 0x1edc @0x2a
0x1eb2…1edf at002b = ╱ee╱)╱ // 0x1edd @0x2b
0x1eb2…1edf at002c = EOL // 0x1ede @0x2c
0x1eb2…1edf }
0x1edf…1ee7 ac3e 3450 T=E
0x1edf…1ee7 LineComalBin {
0x1edf…1ee7 ptr = 0xac3e // 0x1edf @0x0
0x1edf…1ee7 lno = 0x0d7a // 0x1ee1 @0x2
0x1edf…1ee7 at0004 = ╱54╱T╱ // 0x1ee3 @0x4
0x1edf…1ee7 at0005 = ╱dc╱=╱ // 0x1ee4 @0x5
0x1edf…1ee7 at0006 = ╱45╱E╱ // 0x1ee5 @0x6
0x1edf…1ee7 at0007 = EOL // 0x1ee6 @0x7
0x1edf…1ee7 }
0x1ee7…1efc ac53 3460 IF P<1000000 THEN
0x1ee7…1efc LineComalBin {
0x1ee7…1efc ptr = 0xac53 // 0x1ee7 @0x0
0x1ee7…1efc lno = 0x0d84 // 0x1ee9 @0x2
0x1ee7…1efc at0004 = ╱9c╱ IF ╱ // 0x1eeb @0x4
0x1ee7…1efc at0005 = ╱50╱P╱ // 0x1eec @0x5
0x1ee7…1efc at0006 = ╱dd╱<╱ // 0x1eed @0x6
0x1ee7…1efc at0007 = ╱31╱1╱ // 0x1eee @0x7
0x1ee7…1efc at0008 = ╱30╱0╱ // 0x1eef @0x8
0x1ee7…1efc at0009 = ╱30╱0╱ // 0x1ef0 @0x9
0x1ee7…1efc at000a = ╱30╱0╱ // 0x1ef1 @0xa
0x1ee7…1efc at000b = ╱30╱0╱ // 0x1ef2 @0xb
0x1ee7…1efc at000c = ╱30╱0╱ // 0x1ef3 @0xc
0x1ee7…1efc at000d = ╱30╱0╱ // 0x1ef4 @0xd
0x1ee7…1efc at000e = ╱fe0024f414╱ // 0x1ef5 @0xe
0x1ee7…1efc at0013 = ╱b6╱ THEN ╱ // 0x1efa @0x13
0x1ee7…1efc at0014 = EOL // 0x1efb @0x14
0x1ee7…1efc }
0x1efc…1f02 ac59 3470 REPEAT
0x1efc…1f02 LineComalBin {
0x1efc…1f02 ptr = 0xac59 // 0x1efc @0x0
0x1efc…1f02 lno = 0x0d8e // 0x1efe @0x2
0x1efc…1f02 at0004 = ╱97╱ REPEAT ╱ // 0x1f00 @0x4
0x1efc…1f02 at0005 = EOL // 0x1f01 @0x5
0x1efc…1f02 }
0x1f02…1f22 ac79 3480 KSIDENR=B;SUM$="0+";LINIE=B
0x1f02…1f22 LineComalBin {
0x1f02…1f22 ptr = 0xac79 // 0x1f02 @0x0
0x1f02…1f22 lno = 0x0d98 // 0x1f04 @0x2
0x1f02…1f22 at0004 = ╱4b╱K╱ // 0x1f06 @0x4
0x1f02…1f22 at0005 = ╱53╱S╱ // 0x1f07 @0x5
0x1f02…1f22 at0006 = ╱49╱I╱ // 0x1f08 @0x6
0x1f02…1f22 at0007 = ╱44╱D╱ // 0x1f09 @0x7
0x1f02…1f22 at0008 = ╱45╱E╱ // 0x1f0a @0x8
0x1f02…1f22 at0009 = ╱4e╱N╱ // 0x1f0b @0x9
0x1f02…1f22 at000a = ╱52╱R╱ // 0x1f0c @0xa
0x1f02…1f22 at000b = ╱dc╱=╱ // 0x1f0d @0xb
0x1f02…1f22 at000c = ╱42╱B╱ // 0x1f0e @0xc
0x1f02…1f22 at000d = ╱eb╱;╱ // 0x1f0f @0xd
0x1f02…1f22 at000e = ╱53╱S╱ // 0x1f10 @0xe
0x1f02…1f22 at000f = ╱55╱U╱ // 0x1f11 @0xf
0x1f02…1f22 at0010 = ╱4d╱M╱ // 0x1f12 @0x10
0x1f02…1f22 at0011 = ╱ef╱$╱ // 0x1f13 @0x11
0x1f02…1f22 at0012 = ╱dc╱=╱ // 0x1f14 @0x12
0x1f02…1f22 at0013 = ╱22╱"╱ // 0x1f15 @0x13
0x1f02…1f22 at0014 = ╱30╱0╱ // 0x1f16 @0x14
0x1f02…1f22 at0015 = ╱2b╱+╱ // 0x1f17 @0x15
0x1f02…1f22 at0016 = ╱22╱"╱ // 0x1f18 @0x16
0x1f02…1f22 at0017 = ╱eb╱;╱ // 0x1f19 @0x17
0x1f02…1f22 at0018 = ╱4c╱L╱ // 0x1f1a @0x18
0x1f02…1f22 at0019 = ╱49╱I╱ // 0x1f1b @0x19
0x1f02…1f22 at001a = ╱4e╱N╱ // 0x1f1c @0x1a
0x1f02…1f22 at001b = ╱49╱I╱ // 0x1f1d @0x1b
0x1f02…1f22 at001c = ╱45╱E╱ // 0x1f1e @0x1c
0x1f02…1f22 at001d = ╱dc╱=╱ // 0x1f1f @0x1d
0x1f02…1f22 at001e = ╱42╱B╱ // 0x1f20 @0x1e
0x1f02…1f22 at001f = EOL // 0x1f21 @0x1f
0x1f02…1f22 }
0x1f22…1f5d acb4 3490 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(P DIV 100),EPIL3,K16$)
0x1f22…1f5d LineComalBin {
0x1f22…1f5d ptr = 0xacb4 // 0x1f22 @0x0
0x1f22…1f5d lno = 0x0da2 // 0x1f24 @0x2
0x1f22…1f5d at0004 = ╱9d╱ EXEC ╱ // 0x1f26 @0x4
0x1f22…1f5d at0005 = ╱46╱F╱ // 0x1f27 @0x5
0x1f22…1f5d at0006 = ╱49╱I╱ // 0x1f28 @0x6
0x1f22…1f5d at0007 = ╱4e╱N╱ // 0x1f29 @0x7
0x1f22…1f5d at0008 = ╱44╱D╱ // 0x1f2a @0x8
0x1f22…1f5d at0009 = ╱50╱P╱ // 0x1f2b @0x9
0x1f22…1f5d at000a = ╱4f╱O╱ // 0x1f2c @0xa
0x1f22…1f5d at000b = ╱53╱S╱ // 0x1f2d @0xb
0x1f22…1f5d at000c = ╱54╱T╱ // 0x1f2e @0xc
0x1f22…1f5d at000d = ╱31╱1╱ // 0x1f2f @0xd
0x1f22…1f5d at000e = ╱ed╱(╱ // 0x1f30 @0xe
0x1f22…1f5d at000f = ╱45╱E╱ // 0x1f31 @0xf
0x1f22…1f5d at0010 = ╱54╱T╱ // 0x1f32 @0x10
0x1f22…1f5d at0011 = ╱41╱A╱ // 0x1f33 @0x11
0x1f22…1f5d at0012 = ╱42╱B╱ // 0x1f34 @0x12
0x1f22…1f5d at0013 = ╱31╱1╱ // 0x1f35 @0x13
0x1f22…1f5d at0014 = ╱ec╱,╱ // 0x1f36 @0x14
0x1f22…1f5d at0015 = ╱45╱E╱ // 0x1f37 @0x15
0x1f22…1f5d at0016 = ╱54╱T╱ // 0x1f38 @0x16
0x1f22…1f5d at0017 = ╱41╱A╱ // 0x1f39 @0x17
0x1f22…1f5d at0018 = ╱42╱B╱ // 0x1f3a @0x18
0x1f22…1f5d at0019 = ╱ec╱,╱ // 0x1f3b @0x19
0x1f22…1f5d at001a = ╱4d╱M╱ // 0x1f3c @0x1a
0x1f22…1f5d at001b = ╱45╱E╱ // 0x1f3d @0x1b
0x1f22…1f5d at001c = ╱41╱A╱ // 0x1f3e @0x1c
0x1f22…1f5d at001d = ╱4e╱N╱ // 0x1f3f @0x1d
0x1f22…1f5d at001e = ╱54╱T╱ // 0x1f40 @0x1e
0x1f22…1f5d at001f = ╱41╱A╱ // 0x1f41 @0x1f
0x1f22…1f5d at0020 = ╱4c╱L╱ // 0x1f42 @0x20
0x1f22…1f5d at0021 = ╱ec╱,╱ // 0x1f43 @0x21
0x1f22…1f5d at0022 = ╱ed╱(╱ // 0x1f44 @0x22
0x1f22…1f5d at0023 = ╱50╱P╱ // 0x1f45 @0x23
0x1f22…1f5d at0024 = ╱e7╱ DIV ╱ // 0x1f46 @0x24
0x1f22…1f5d at0025 = ╱31╱1╱ // 0x1f47 @0x25
0x1f22…1f5d at0026 = ╱30╱0╱ // 0x1f48 @0x26
0x1f22…1f5d at0027 = ╱30╱0╱ // 0x1f49 @0x27
0x1f22…1f5d at0028 = ╱fe0000c807╱ // 0x1f4a @0x28
0x1f22…1f5d at002d = ╱ee╱)╱ // 0x1f4f @0x2d
0x1f22…1f5d at002e = ╱ec╱,╱ // 0x1f50 @0x2e
0x1f22…1f5d at002f = ╱45╱E╱ // 0x1f51 @0x2f
0x1f22…1f5d at0030 = ╱50╱P╱ // 0x1f52 @0x30
0x1f22…1f5d at0031 = ╱49╱I╱ // 0x1f53 @0x31
0x1f22…1f5d at0032 = ╱4c╱L╱ // 0x1f54 @0x32
0x1f22…1f5d at0033 = ╱33╱3╱ // 0x1f55 @0x33
0x1f22…1f5d at0034 = ╱ec╱,╱ // 0x1f56 @0x34
0x1f22…1f5d at0035 = ╱4b╱K╱ // 0x1f57 @0x35
0x1f22…1f5d at0036 = ╱31╱1╱ // 0x1f58 @0x36
0x1f22…1f5d at0037 = ╱36╱6╱ // 0x1f59 @0x37
0x1f22…1f5d at0038 = ╱ef╱$╱ // 0x1f5a @0x38
0x1f22…1f5d at0039 = ╱ee╱)╱ // 0x1f5b @0x39
0x1f22…1f5d at003a = EOL // 0x1f5c @0x3a
0x1f22…1f5d }
0x1f5d…1f6b acc2 3500 IF CEKS<>B THEN STOP
0x1f5d…1f6b LineComalBin {
0x1f5d…1f6b ptr = 0xacc2 // 0x1f5d @0x0
0x1f5d…1f6b lno = 0x0dac // 0x1f5f @0x2
0x1f5d…1f6b at0004 = ╱82╱ IF ╱ // 0x1f61 @0x4
0x1f5d…1f6b at0005 = ╱43╱C╱ // 0x1f62 @0x5
0x1f5d…1f6b at0006 = ╱45╱E╱ // 0x1f63 @0x6
0x1f5d…1f6b at0007 = ╱4b╱K╱ // 0x1f64 @0x7
0x1f5d…1f6b at0008 = ╱53╱S╱ // 0x1f65 @0x8
0x1f5d…1f6b at0009 = ╱e1╱<>╱ // 0x1f66 @0x9
0x1f5d…1f6b at000a = ╱42╱B╱ // 0x1f67 @0xa
0x1f5d…1f6b at000b = ╱b6╱ THEN ╱ // 0x1f68 @0xb
0x1f5d…1f6b at000c = ╱8d╱ STOP ╱ // 0x1f69 @0xc
0x1f5d…1f6b at000d = EOL // 0x1f6a @0xd
0x1f5d…1f6b }
0x1f6b…1f76 accd 3510 KONT=P
0x1f6b…1f76 LineComalBin {
0x1f6b…1f76 ptr = 0xaccd // 0x1f6b @0x0
0x1f6b…1f76 lno = 0x0db6 // 0x1f6d @0x2
0x1f6b…1f76 at0004 = ╱4b╱K╱ // 0x1f6f @0x4
0x1f6b…1f76 at0005 = ╱4f╱O╱ // 0x1f70 @0x5
0x1f6b…1f76 at0006 = ╱4e╱N╱ // 0x1f71 @0x6
0x1f6b…1f76 at0007 = ╱54╱T╱ // 0x1f72 @0x7
0x1f6b…1f76 at0008 = ╱dc╱=╱ // 0x1f73 @0x8
0x1f6b…1f76 at0009 = ╱50╱P╱ // 0x1f74 @0x9
0x1f6b…1f76 at000a = EOL // 0x1f75 @0xa
0x1f6b…1f76 }
0x1f76…1f84 acdb 3520 EXEC HENTPOST
0x1f76…1f84 LineComalBin {
0x1f76…1f84 ptr = 0xacdb // 0x1f76 @0x0
0x1f76…1f84 lno = 0x0dc0 // 0x1f78 @0x2
0x1f76…1f84 at0004 = ╱9d╱ EXEC ╱ // 0x1f7a @0x4
0x1f76…1f84 at0005 = ╱48╱H╱ // 0x1f7b @0x5
0x1f76…1f84 at0006 = ╱45╱E╱ // 0x1f7c @0x6
0x1f76…1f84 at0007 = ╱4e╱N╱ // 0x1f7d @0x7
0x1f76…1f84 at0008 = ╱54╱T╱ // 0x1f7e @0x8
0x1f76…1f84 at0009 = ╱50╱P╱ // 0x1f7f @0x9
0x1f76…1f84 at000a = ╱4f╱O╱ // 0x1f80 @0xa
0x1f76…1f84 at000b = ╱53╱S╱ // 0x1f81 @0xb
0x1f76…1f84 at000c = ╱54╱T╱ // 0x1f82 @0xc
0x1f76…1f84 at000d = EOL // 0x1f83 @0xd
0x1f76…1f84 }
0x1f84…1f92 ace9 3530 EXEC HUDSKRIV
0x1f84…1f92 LineComalBin {
0x1f84…1f92 ptr = 0xace9 // 0x1f84 @0x0
0x1f84…1f92 lno = 0x0dca // 0x1f86 @0x2
0x1f84…1f92 at0004 = ╱9d╱ EXEC ╱ // 0x1f88 @0x4
0x1f84…1f92 at0005 = ╱48╱H╱ // 0x1f89 @0x5
0x1f84…1f92 at0006 = ╱55╱U╱ // 0x1f8a @0x6
0x1f84…1f92 at0007 = ╱44╱D╱ // 0x1f8b @0x7
0x1f84…1f92 at0008 = ╱53╱S╱ // 0x1f8c @0x8
0x1f84…1f92 at0009 = ╱4b╱K╱ // 0x1f8d @0x9
0x1f84…1f92 at000a = ╱52╱R╱ // 0x1f8e @0xa
0x1f84…1f92 at000b = ╱49╱I╱ // 0x1f8f @0xb
0x1f84…1f92 at000c = ╱56╱V╱ // 0x1f90 @0xc
0x1f84…1f92 at000d = EOL // 0x1f91 @0xd
0x1f84…1f92 }
0x1f92…1fa1 acf8 3540 EXEC HSUDSKRIV
0x1f92…1fa1 LineComalBin {
0x1f92…1fa1 ptr = 0xacf8 // 0x1f92 @0x0
0x1f92…1fa1 lno = 0x0dd4 // 0x1f94 @0x2
0x1f92…1fa1 at0004 = ╱9d╱ EXEC ╱ // 0x1f96 @0x4
0x1f92…1fa1 at0005 = ╱48╱H╱ // 0x1f97 @0x5
0x1f92…1fa1 at0006 = ╱53╱S╱ // 0x1f98 @0x6
0x1f92…1fa1 at0007 = ╱55╱U╱ // 0x1f99 @0x7
0x1f92…1fa1 at0008 = ╱44╱D╱ // 0x1f9a @0x8
0x1f92…1fa1 at0009 = ╱53╱S╱ // 0x1f9b @0x9
0x1f92…1fa1 at000a = ╱4b╱K╱ // 0x1f9c @0xa
0x1f92…1fa1 at000b = ╱52╱R╱ // 0x1f9d @0xb
0x1f92…1fa1 at000c = ╱49╱I╱ // 0x1f9e @0xc
0x1f92…1fa1 at000d = ╱56╱V╱ // 0x1f9f @0xd
0x1f92…1fa1 at000e = EOL // 0x1fa0 @0xe
0x1f92…1fa1 }
0x1fa1…1fae ad05 3550 EXEC GLSALDO
0x1fa1…1fae LineComalBin {
0x1fa1…1fae ptr = 0xad05 // 0x1fa1 @0x0
0x1fa1…1fae lno = 0x0dde // 0x1fa3 @0x2
0x1fa1…1fae at0004 = ╱9d╱ EXEC ╱ // 0x1fa5 @0x4
0x1fa1…1fae at0005 = ╱47╱G╱ // 0x1fa6 @0x5
0x1fa1…1fae at0006 = ╱4c╱L╱ // 0x1fa7 @0x6
0x1fa1…1fae at0007 = ╱53╱S╱ // 0x1fa8 @0x7
0x1fa1…1fae at0008 = ╱41╱A╱ // 0x1fa9 @0x8
0x1fa1…1fae at0009 = ╱4c╱L╱ // 0x1faa @0x9
0x1fa1…1fae at000a = ╱44╱D╱ // 0x1fab @0xa
0x1fa1…1fae at000b = ╱4f╱O╱ // 0x1fac @0xb
0x1fa1…1fae at000c = EOL // 0x1fad @0xc
0x1fa1…1fae }
0x1fae…1fdb ad32 3560 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
0x1fae…1fdb LineComalBin {
0x1fae…1fdb ptr = 0xad32 // 0x1fae @0x0
0x1fae…1fdb lno = 0x0de8 // 0x1fb0 @0x2
0x1fae…1fdb at0004 = ╱9d╱ EXEC ╱ // 0x1fb2 @0x4
0x1fae…1fdb at0005 = ╱50╱P╱ // 0x1fb3 @0x5
0x1fae…1fdb at0006 = ╱4f╱O╱ // 0x1fb4 @0x6
0x1fae…1fdb at0007 = ╱53╱S╱ // 0x1fb5 @0x7
0x1fae…1fdb at0008 = ╱54╱T╱ // 0x1fb6 @0x8
0x1fae…1fdb at0009 = ╱45╱E╱ // 0x1fb7 @0x9
0x1fae…1fdb at000a = ╱52╱R╱ // 0x1fb8 @0xa
0x1fae…1fdb at000b = ╱ed╱(╱ // 0x1fb9 @0xb
0x1fae…1fdb at000c = ╱4b╱K╱ // 0x1fba @0xc
0x1fae…1fdb at000d = ╱36╱6╱ // 0x1fbb @0xd
0x1fae…1fdb at000e = ╱31╱1╱ // 0x1fbc @0xe
0x1fae…1fdb at000f = ╱ef╱$╱ // 0x1fbd @0xf
0x1fae…1fdb at0010 = ╱ec╱,╱ // 0x1fbe @0x10
0x1fae…1fdb at0011 = ╱50╱P╱ // 0x1fbf @0x11
0x1fae…1fdb at0012 = ╱ec╱,╱ // 0x1fc0 @0x12
0x1fae…1fdb at0013 = ╱54╱T╱ // 0x1fc1 @0x13
0x1fae…1fdb at0014 = ╱ec╱,╱ // 0x1fc2 @0x14
0x1fae…1fdb at0015 = ╱4d╱M╱ // 0x1fc3 @0x15
0x1fae…1fdb at0016 = ╱50╱P╱ // 0x1fc4 @0x16
0x1fae…1fdb at0017 = ╱4f╱O╱ // 0x1fc5 @0x17
0x1fae…1fdb at0018 = ╱53╱S╱ // 0x1fc6 @0x18
0x1fae…1fdb at0019 = ╱54╱T╱ // 0x1fc7 @0x19
0x1fae…1fdb at001a = ╱41╱A╱ // 0x1fc8 @0x1a
0x1fae…1fdb at001b = ╱4e╱N╱ // 0x1fc9 @0x1b
0x1fae…1fdb at001c = ╱54╱T╱ // 0x1fca @0x1c
0x1fae…1fdb at001d = ╱41╱A╱ // 0x1fcb @0x1d
0x1fae…1fdb at001e = ╱4c╱L╱ // 0x1fcc @0x1e
0x1fae…1fdb at001f = ╱38╱8╱ // 0x1fcd @0x1f
0x1fae…1fdb at0020 = ╱ec╱,╱ // 0x1fce @0x20
0x1fae…1fdb at0021 = ╱53╱S╱ // 0x1fcf @0x21
0x1fae…1fdb at0022 = ╱4b╱K╱ // 0x1fd0 @0x22
0x1fae…1fdb at0023 = ╱52╱R╱ // 0x1fd1 @0x23
0x1fae…1fdb at0024 = ╱49╱I╱ // 0x1fd2 @0x24
0x1fae…1fdb at0025 = ╱56╱V╱ // 0x1fd3 @0x25
0x1fae…1fdb at0026 = ╱ec╱,╱ // 0x1fd4 @0x26
0x1fae…1fdb at0027 = ╱53╱S╱ // 0x1fd5 @0x27
0x1fae…1fdb at0028 = ╱55╱U╱ // 0x1fd6 @0x28
0x1fae…1fdb at0029 = ╱4d╱M╱ // 0x1fd7 @0x29
0x1fae…1fdb at002a = ╱ef╱$╱ // 0x1fd8 @0x2a
0x1fae…1fdb at002b = ╱ee╱)╱ // 0x1fd9 @0x2b
0x1fae…1fdb at002c = EOL // 0x1fda @0x2c
0x1fae…1fdb }
0x1fdb…200e ad65 3570 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE)
0x1fdb…200e LineComalBin {
0x1fdb…200e ptr = 0xad65 // 0x1fdb @0x0
0x1fdb…200e lno = 0x0df2 // 0x1fdd @0x2
0x1fdb…200e at0004 = ╱9d╱ EXEC ╱ // 0x1fdf @0x4
0x1fdb…200e at0005 = ╱42╱B╱ // 0x1fe0 @0x5
0x1fdb…200e at0006 = ╱55╱U╱ // 0x1fe1 @0x6
0x1fdb…200e at0007 = ╱44╱D╱ // 0x1fe2 @0x7
0x1fdb…200e at0008 = ╱53╱S╱ // 0x1fe3 @0x8
0x1fdb…200e at0009 = ╱4b╱K╱ // 0x1fe4 @0x9
0x1fdb…200e at000a = ╱52╱R╱ // 0x1fe5 @0xa
0x1fdb…200e at000b = ╱49╱I╱ // 0x1fe6 @0xb
0x1fdb…200e at000c = ╱56╱V╱ // 0x1fe7 @0xc
0x1fdb…200e at000d = ╱ed╱(╱ // 0x1fe8 @0xd
0x1fdb…200e at000e = ╱54╱T╱ // 0x1fe9 @0xe
0x1fdb…200e at000f = ╱41╱A╱ // 0x1fea @0xf
0x1fdb…200e at0010 = ╱4c╱L╱ // 0x1feb @0x10
0x1fdb…200e at0011 = ╱34╱4╱ // 0x1fec @0x11
0x1fdb…200e at0012 = ╱ef╱$╱ // 0x1fed @0x12
0x1fdb…200e at0013 = ╱ec╱,╱ // 0x1fee @0x13
0x1fdb…200e at0014 = ╱30╱0╱ // 0x1fef @0x14
0x1fdb…200e at0015 = ╱fe00000000╱ // 0x1ff0 @0x15
0x1fdb…200e at001a = ╱ec╱,╱ // 0x1ff5 @0x1a
0x1fdb…200e at001b = ╱53╱S╱ // 0x1ff6 @0x1b
0x1fdb…200e at001c = ╱55╱U╱ // 0x1ff7 @0x1c
0x1fdb…200e at001d = ╱4d╱M╱ // 0x1ff8 @0x1d
0x1fdb…200e at001e = ╱ef╱$╱ // 0x1ff9 @0x1e
0x1fdb…200e at001f = ╱ec╱,╱ // 0x1ffa @0x1f
0x1fdb…200e at0020 = ╱4d╱M╱ // 0x1ffb @0x20
0x1fdb…200e at0021 = ╱42╱B╱ // 0x1ffc @0x21
0x1fdb…200e at0022 = ╱45╱E╱ // 0x1ffd @0x22
0x1fdb…200e at0023 = ╱56╱V╱ // 0x1ffe @0x23
0x1fdb…200e at0024 = ╱ef╱$╱ // 0x1fff @0x24
0x1fdb…200e at0025 = ╱ec╱,╱ // 0x2000 @0x25
0x1fdb…200e at0026 = ╱59╱Y╱ // 0x2001 @0x26
0x1fdb…200e at0027 = ╱42╱B╱ // 0x2002 @0x27
0x1fdb…200e at0028 = ╱45╱E╱ // 0x2003 @0x28
0x1fdb…200e at0029 = ╱56╱V╱ // 0x2004 @0x29
0x1fdb…200e at002a = ╱ef╱$╱ // 0x2005 @0x2a
0x1fdb…200e at002b = ╱ec╱,╱ // 0x2006 @0x2b
0x1fdb…200e at002c = ╱4c╱L╱ // 0x2007 @0x2c
0x1fdb…200e at002d = ╱49╱I╱ // 0x2008 @0x2d
0x1fdb…200e at002e = ╱4e╱N╱ // 0x2009 @0x2e
0x1fdb…200e at002f = ╱49╱I╱ // 0x200a @0x2f
0x1fdb…200e at0030 = ╱45╱E╱ // 0x200b @0x30
0x1fdb…200e at0031 = ╱ee╱)╱ // 0x200c @0x31
0x1fdb…200e at0032 = EOL // 0x200d @0x32
0x1fdb…200e }
0x200e…2017 ad6e 3580 T=T6
0x200e…2017 LineComalBin {
0x200e…2017 ptr = 0xad6e // 0x200e @0x0
0x200e…2017 lno = 0x0dfc // 0x2010 @0x2
0x200e…2017 at0004 = ╱54╱T╱ // 0x2012 @0x4
0x200e…2017 at0005 = ╱dc╱=╱ // 0x2013 @0x5
0x200e…2017 at0006 = ╱54╱T╱ // 0x2014 @0x6
0x200e…2017 at0007 = ╱36╱6╱ // 0x2015 @0x7
0x200e…2017 at0008 = EOL // 0x2016 @0x8
0x200e…2017 }
0x2017…2039 ad90 3590 UNTIL P=1000000 OR T=>MPOSTANTAL8
0x2017…2039 LineComalBin {
0x2017…2039 ptr = 0xad90 // 0x2017 @0x0
0x2017…2039 lno = 0x0e06 // 0x2019 @0x2
0x2017…2039 at0004 = ╱98╱ UNTIL ╱ // 0x201b @0x4
0x2017…2039 at0005 = ╱50╱P╱ // 0x201c @0x5
0x2017…2039 at0006 = ╱dc╱=╱ // 0x201d @0x6
0x2017…2039 at0007 = ╱31╱1╱ // 0x201e @0x7
0x2017…2039 at0008 = ╱30╱0╱ // 0x201f @0x8
0x2017…2039 at0009 = ╱30╱0╱ // 0x2020 @0x9
0x2017…2039 at000a = ╱30╱0╱ // 0x2021 @0xa
0x2017…2039 at000b = ╱30╱0╱ // 0x2022 @0xb
0x2017…2039 at000c = ╱30╱0╱ // 0x2023 @0xc
0x2017…2039 at000d = ╱30╱0╱ // 0x2024 @0xd
0x2017…2039 at000e = ╱fe0024f414╱ // 0x2025 @0xe
0x2017…2039 at0013 = ╱db╱ OR ╱ // 0x202a @0x13
0x2017…2039 at0014 = ╱54╱T╱ // 0x202b @0x14
0x2017…2039 at0015 = ╱e0╱=>╱ // 0x202c @0x15
0x2017…2039 at0016 = ╱4d╱M╱ // 0x202d @0x16
0x2017…2039 at0017 = ╱50╱P╱ // 0x202e @0x17
0x2017…2039 at0018 = ╱4f╱O╱ // 0x202f @0x18
0x2017…2039 at0019 = ╱53╱S╱ // 0x2030 @0x19
0x2017…2039 at001a = ╱54╱T╱ // 0x2031 @0x1a
0x2017…2039 at001b = ╱41╱A╱ // 0x2032 @0x1b
0x2017…2039 at001c = ╱4e╱N╱ // 0x2033 @0x1c
0x2017…2039 at001d = ╱54╱T╱ // 0x2034 @0x1d
0x2017…2039 at001e = ╱41╱A╱ // 0x2035 @0x1e
0x2017…2039 at001f = ╱4c╱L╱ // 0x2036 @0x1f
0x2017…2039 at0020 = ╱38╱8╱ // 0x2037 @0x20
0x2017…2039 at0021 = EOL // 0x2038 @0x21
0x2017…2039 }
0x2039…203f ad96 3600 ENDIF
0x2039…203f LineComalBin {
0x2039…203f ptr = 0xad96 // 0x2039 @0x0
0x2039…203f lno = 0x0e10 // 0x203b @0x2
0x2039…203f at0004 = ╱9b╱ ENDIF ╱ // 0x203d @0x4
0x2039…203f at0005 = EOL // 0x203e @0x5
0x2039…203f }
0x203f…2047 ad9e 3610 P=B
0x203f…2047 LineComalBin {
0x203f…2047 ptr = 0xad9e // 0x203f @0x0
0x203f…2047 lno = 0x0e1a // 0x2041 @0x2
0x203f…2047 at0004 = ╱50╱P╱ // 0x2043 @0x4
0x203f…2047 at0005 = ╱dc╱=╱ // 0x2044 @0x5
0x203f…2047 at0006 = ╱42╱B╱ // 0x2045 @0x6
0x203f…2047 at0007 = EOL // 0x2046 @0x7
0x203f…2047 }
0x2047…204d ada4 3620 ENDPROC
0x2047…204d LineComalBin {
0x2047…204d ptr = 0xada4 // 0x2047 @0x0
0x2047…204d lno = 0x0e24 // 0x2049 @0x2
0x2047…204d at0004 = ╱9f╱ ENDPROC ╱ // 0x204b @0x4
0x2047…204d at0005 = EOL // 0x204c @0x5
0x2047…204d }
0x204d…2067 adbe 3630 K1$="P641220:SYSTEM1"
0x204d…2067 LineComalBin {
0x204d…2067 ptr = 0xadbe // 0x204d @0x0
0x204d…2067 lno = 0x0e2e // 0x204f @0x2
0x204d…2067 at0004 = ╱4b╱K╱ // 0x2051 @0x4
0x204d…2067 at0005 = ╱31╱1╱ // 0x2052 @0x5
0x204d…2067 at0006 = ╱ef╱$╱ // 0x2053 @0x6
0x204d…2067 at0007 = ╱dc╱=╱ // 0x2054 @0x7
0x204d…2067 at0008 = ╱22╱"╱ // 0x2055 @0x8
0x204d…2067 at0009 = ╱50╱P╱ // 0x2056 @0x9
0x204d…2067 at000a = ╱36╱6╱ // 0x2057 @0xa
0x204d…2067 at000b = ╱34╱4╱ // 0x2058 @0xb
0x204d…2067 at000c = ╱31╱1╱ // 0x2059 @0xc
0x204d…2067 at000d = ╱32╱2╱ // 0x205a @0xd
0x204d…2067 at000e = ╱32╱2╱ // 0x205b @0xe
0x204d…2067 at000f = ╱30╱0╱ // 0x205c @0xf
0x204d…2067 at0010 = ╱3a╱:╱ // 0x205d @0x10
0x204d…2067 at0011 = ╱53╱S╱ // 0x205e @0x11
0x204d…2067 at0012 = ╱59╱Y╱ // 0x205f @0x12
0x204d…2067 at0013 = ╱53╱S╱ // 0x2060 @0x13
0x204d…2067 at0014 = ╱54╱T╱ // 0x2061 @0x14
0x204d…2067 at0015 = ╱45╱E╱ // 0x2062 @0x15
0x204d…2067 at0016 = ╱4d╱M╱ // 0x2063 @0x16
0x204d…2067 at0017 = ╱31╱1╱ // 0x2064 @0x17
0x204d…2067 at0018 = ╱22╱"╱ // 0x2065 @0x18
0x204d…2067 at0019 = EOL // 0x2066 @0x19
0x204d…2067 }
0x2067…206d adc4 3640 REPEAT
0x2067…206d LineComalBin {
0x2067…206d ptr = 0xadc4 // 0x2067 @0x0
0x2067…206d lno = 0x0e38 // 0x2069 @0x2
0x2067…206d at0004 = ╱97╱ REPEAT ╱ // 0x206b @0x4
0x2067…206d at0005 = EOL // 0x206c @0x5
0x2067…206d }
0x206d…2078 adcf 3650 OPEN K1$,R
0x206d…2078 LineComalBin {
0x206d…2078 ptr = 0xadcf // 0x206d @0x0
0x206d…2078 lno = 0x0e42 // 0x206f @0x2
0x206d…2078 at0004 = ╱a7╱ OPEN ╱ // 0x2071 @0x4
0x206d…2078 at0005 = ╱4b╱K╱ // 0x2072 @0x5
0x206d…2078 at0006 = ╱31╱1╱ // 0x2073 @0x6
0x206d…2078 at0007 = ╱ef╱$╱ // 0x2074 @0x7
0x206d…2078 at0008 = ╱ec╱,╱ // 0x2075 @0x8
0x206d…2078 at0009 = ╱52╱R╱ // 0x2076 @0x9
0x206d…2078 at000a = EOL // 0x2077 @0xa
0x206d…2078 }
0x2078…2088 addf 3660 IF STATUS(K1$)=B THEN EXIT
0x2078…2088 LineComalBin {
0x2078…2088 ptr = 0xaddf // 0x2078 @0x0
0x2078…2088 lno = 0x0e4c // 0x207a @0x2
0x2078…2088 at0004 = ╱82╱ IF ╱ // 0x207c @0x4
0x2078…2088 at0005 = ╱ce╱STATUS╱ // 0x207d @0x5
0x2078…2088 at0006 = ╱ed╱(╱ // 0x207e @0x6
0x2078…2088 at0007 = ╱4b╱K╱ // 0x207f @0x7
0x2078…2088 at0008 = ╱31╱1╱ // 0x2080 @0x8
0x2078…2088 at0009 = ╱ef╱$╱ // 0x2081 @0x9
0x2078…2088 at000a = ╱ee╱)╱ // 0x2082 @0xa
0x2078…2088 at000b = ╱dc╱=╱ // 0x2083 @0xb
0x2078…2088 at000c = ╱42╱B╱ // 0x2084 @0xc
0x2078…2088 at000d = ╱b6╱ THEN ╱ // 0x2085 @0xd
0x2078…2088 at000e = ╱99╱ EXIT ╱ // 0x2086 @0xe
0x2078…2088 at000f = EOL // 0x2087 @0xf
0x2078…2088 }
0x2088…208e ade5 3670 CLEAR
0x2088…208e LineComalBin {
0x2088…208e ptr = 0xade5 // 0x2088 @0x0
0x2088…208e lno = 0x0e56 // 0x208a @0x2
0x2088…208e at0004 = ╱a0╱ CLEAR ╱ // 0x208c @0x4
0x2088…208e at0005 = EOL // 0x208d @0x5
0x2088…208e }
0x208e…20a3 adfa 3680 CURSOR 25,13
0x208e…20a3 LineComalBin {
0x208e…20a3 ptr = 0xadfa // 0x208e @0x0
0x208e…20a3 lno = 0x0e60 // 0x2090 @0x2
0x208e…20a3 at0004 = ╱a1╱ CURSOR ╱ // 0x2092 @0x4
0x208e…20a3 at0005 = ╱32╱2╱ // 0x2093 @0x5
0x208e…20a3 at0006 = ╱35╱5╱ // 0x2094 @0x6
0x208e…20a3 at0007 = ╱fe0000c805╱ // 0x2095 @0x7
0x208e…20a3 at000c = ╱ec╱,╱ // 0x209a @0xc
0x208e…20a3 at000d = ╱31╱1╱ // 0x209b @0xd
0x208e…20a3 at000e = ╱33╱3╱ // 0x209c @0xe
0x208e…20a3 at000f = ╱fe0000d004╱ // 0x209d @0xf
0x208e…20a3 at0014 = EOL // 0x20a2 @0x14
0x208e…20a3 }
0x20a3…20ca ae21 3690 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$
0x20a3…20ca LineComalBin {
0x20a3…20ca ptr = 0xae21 // 0x20a3 @0x0
0x20a3…20ca lno = 0x0e6a // 0x20a5 @0x2
0x20a3…20ca at0004 = ╱91╱ INPUT ╱ // 0x20a7 @0x4
0x20a3…20ca at0005 = ╱22╱"╱ // 0x20a8 @0x5
0x20a3…20ca at0006 = ╱49╱I╱ // 0x20a9 @0x6
0x20a3…20ca at0007 = ╱53╱S╱ // 0x20aa @0x7
0x20a3…20ca at0008 = ╱5b╱Æ╱ // 0x20ab @0x8
0x20a3…20ca at0009 = ╱54╱T╱ // 0x20ac @0x9
0x20a3…20ca at000a = ╱20╱…╱ // 0x20ad @0xa
0x20a3…20ca at000b = ╱50╱P╱ // 0x20ae @0xb
0x20a3…20ca at000c = ╱4c╱L╱ // 0x20af @0xc
0x20a3…20ca at000d = ╱41╱A╱ // 0x20b0 @0xd
0x20a3…20ca at000e = ╱44╱D╱ // 0x20b1 @0xe
0x20a3…20ca at000f = ╱45╱E╱ // 0x20b2 @0xf
0x20a3…20ca at0010 = ╱20╱…╱ // 0x20b3 @0x10
0x20a3…20ca at0011 = ╱4e╱N╱ // 0x20b4 @0x11
0x20a3…20ca at0012 = ╱52╱R╱ // 0x20b5 @0x12
0x20a3…20ca at0013 = ╱2e╱.╱ // 0x20b6 @0x13
0x20a3…20ca at0014 = ╱32╱2╱ // 0x20b7 @0x14
0x20a3…20ca at0015 = ╱30╱0╱ // 0x20b8 @0x15
0x20a3…20ca at0016 = ╱2c╱,╱ // 0x20b9 @0x16
0x20a3…20ca at0017 = ╱54╱T╱ // 0x20ba @0x17
0x20a3…20ca at0018 = ╱41╱A╱ // 0x20bb @0x18
0x20a3…20ca at0019 = ╱53╱S╱ // 0x20bc @0x19
0x20a3…20ca at001a = ╱54╱T╱ // 0x20bd @0x1a
0x20a3…20ca at001b = ╱20╱…╱ // 0x20be @0x1b
0x20a3…20ca at001c = ╱52╱R╱ // 0x20bf @0x1c
0x20a3…20ca at001d = ╱45╱E╱ // 0x20c0 @0x1d
0x20a3…20ca at001e = ╱54╱T╱ // 0x20c1 @0x1e
0x20a3…20ca at001f = ╱55╱U╱ // 0x20c2 @0x1f
0x20a3…20ca at0020 = ╱52╱R╱ // 0x20c3 @0x20
0x20a3…20ca at0021 = ╱4e╱N╱ // 0x20c4 @0x21
0x20a3…20ca at0022 = ╱22╱"╱ // 0x20c5 @0x22
0x20a3…20ca at0023 = ╱ec╱,╱ // 0x20c6 @0x23
0x20a3…20ca at0024 = ╱41╱A╱ // 0x20c7 @0x24
0x20a3…20ca at0025 = ╱ef╱$╱ // 0x20c8 @0x25
0x20a3…20ca at0026 = EOL // 0x20c9 @0x26
0x20a3…20ca }
0x20ca…20d8 ae2f 3700 UNTIL STATUS(K1$)=B
0x20ca…20d8 LineComalBin {
0x20ca…20d8 ptr = 0xae2f // 0x20ca @0x0
0x20ca…20d8 lno = 0x0e74 // 0x20cc @0x2
0x20ca…20d8 at0004 = ╱98╱ UNTIL ╱ // 0x20ce @0x4
0x20ca…20d8 at0005 = ╱ce╱STATUS╱ // 0x20cf @0x5
0x20ca…20d8 at0006 = ╱ed╱(╱ // 0x20d0 @0x6
0x20ca…20d8 at0007 = ╱4b╱K╱ // 0x20d1 @0x7
0x20ca…20d8 at0008 = ╱31╱1╱ // 0x20d2 @0x8
0x20ca…20d8 at0009 = ╱ef╱$╱ // 0x20d3 @0x9
0x20ca…20d8 at000a = ╱ee╱)╱ // 0x20d4 @0xa
0x20ca…20d8 at000b = ╱dc╱=╱ // 0x20d5 @0xb
0x20ca…20d8 at000c = ╱42╱B╱ // 0x20d6 @0xc
0x20ca…20d8 at000d = EOL // 0x20d7 @0xd
0x20ca…20d8 }
0x20d8…20fe ae55 3710 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT
0x20d8…20fe LineComalBin {
0x20d8…20fe ptr = 0xae55 // 0x20d8 @0x0
0x20d8…20fe lno = 0x0e7e // 0x20da @0x2
0x20d8…20fe at0004 = ╱a9╱ GET ╱ // 0x20dc @0x4
0x20d8…20fe at0005 = ╱4b╱K╱ // 0x20dd @0x5
0x20d8…20fe at0006 = ╱31╱1╱ // 0x20de @0x6
0x20d8…20fe at0007 = ╱ef╱$╱ // 0x20df @0x7
0x20d8…20fe at0008 = ╱ec╱,╱ // 0x20e0 @0x8
0x20d8…20fe at0009 = ╱57╱W╱ // 0x20e1 @0x9
0x20d8…20fe at000a = ╱f0╱:╱ // 0x20e2 @0xa
0x20d8…20fe at000b = ╱4b╱K╱ // 0x20e3 @0xb
0x20d8…20fe at000c = ╱52╱R╱ // 0x20e4 @0xc
0x20d8…20fe at000d = ╱54╱T╱ // 0x20e5 @0xd
0x20d8…20fe at000e = ╱41╱A╱ // 0x20e6 @0xe
0x20d8…20fe at000f = ╱4c╱L╱ // 0x20e7 @0xf
0x20d8…20fe at0010 = ╱ec╱,╱ // 0x20e8 @0x10
0x20d8…20fe at0011 = ╱56╱V╱ // 0x20e9 @0x11
0x20d8…20fe at0012 = ╱54╱T╱ // 0x20ea @0x12
0x20d8…20fe at0013 = ╱41╱A╱ // 0x20eb @0x13
0x20d8…20fe at0014 = ╱4c╱L╱ // 0x20ec @0x14
0x20d8…20fe at0015 = ╱ec╱,╱ // 0x20ed @0x15
0x20d8…20fe at0016 = ╱4d╱M╱ // 0x20ee @0x16
0x20d8…20fe at0017 = ╱45╱E╱ // 0x20ef @0x17
0x20d8…20fe at0018 = ╱41╱A╱ // 0x20f0 @0x18
0x20d8…20fe at0019 = ╱4e╱N╱ // 0x20f1 @0x19
0x20d8…20fe at001a = ╱54╱T╱ // 0x20f2 @0x1a
0x20d8…20fe at001b = ╱41╱A╱ // 0x20f3 @0x1b
0x20d8…20fe at001c = ╱4c╱L╱ // 0x20f4 @0x1c
0x20d8…20fe at001d = ╱ec╱,╱ // 0x20f5 @0x1d
0x20d8…20fe at001e = ╱4d╱M╱ // 0x20f6 @0x1e
0x20d8…20fe at001f = ╱55╱U╱ // 0x20f7 @0x1f
0x20d8…20fe at0020 = ╱4e╱N╱ // 0x20f8 @0x20
0x20d8…20fe at0021 = ╱4b╱K╱ // 0x20f9 @0x21
0x20d8…20fe at0022 = ╱41╱A╱ // 0x20fa @0x22
0x20d8…20fe at0023 = ╱4e╱N╱ // 0x20fb @0x23
0x20d8…20fe at0024 = ╱54╱T╱ // 0x20fc @0x24
0x20d8…20fe at0025 = EOL // 0x20fd @0x25
0x20d8…20fe }
0x20fe…2116 ae6d 3720 EXEC FEJL(W,6,K1$)
0x20fe…2116 LineComalBin {
0x20fe…2116 ptr = 0xae6d // 0x20fe @0x0
0x20fe…2116 lno = 0x0e88 // 0x2100 @0x2
0x20fe…2116 at0004 = ╱9d╱ EXEC ╱ // 0x2102 @0x4
0x20fe…2116 at0005 = ╱46╱F╱ // 0x2103 @0x5
0x20fe…2116 at0006 = ╱45╱E╱ // 0x2104 @0x6
0x20fe…2116 at0007 = ╱4a╱J╱ // 0x2105 @0x7
0x20fe…2116 at0008 = ╱4c╱L╱ // 0x2106 @0x8
0x20fe…2116 at0009 = ╱ed╱(╱ // 0x2107 @0x9
0x20fe…2116 at000a = ╱57╱W╱ // 0x2108 @0xa
0x20fe…2116 at000b = ╱ec╱,╱ // 0x2109 @0xb
0x20fe…2116 at000c = ╱36╱6╱ // 0x210a @0xc
0x20fe…2116 at000d = ╱fe0000c003╱ // 0x210b @0xd
0x20fe…2116 at0012 = ╱ec╱,╱ // 0x2110 @0x12
0x20fe…2116 at0013 = ╱4b╱K╱ // 0x2111 @0x13
0x20fe…2116 at0014 = ╱31╱1╱ // 0x2112 @0x14
0x20fe…2116 at0015 = ╱ef╱$╱ // 0x2113 @0x15
0x20fe…2116 at0016 = ╱ee╱)╱ // 0x2114 @0x16
0x20fe…2116 at0017 = EOL // 0x2115 @0x17
0x20fe…2116 }
0x2116…212a (110,) ae81 3730 GET K1$,10:N$
0x2116…212a LineComalBin {
0x2116…212a ptr = 0xae81 // 0x2116 @0x0
0x2116…212a lno = 0x0e92 // 0x2118 @0x2
0x2116…212a at0004 = ╱a9╱ GET ╱ // 0x211a @0x4
0x2116…212a at0005 = ╱4b╱K╱ // 0x211b @0x5
0x2116…212a at0006 = ╱31╱1╱ // 0x211c @0x6
0x2116…212a at0007 = ╱ef╱$╱ // 0x211d @0x7
0x2116…212a at0008 = ╱ec╱,╱ // 0x211e @0x8
0x2116…212a at0009 = ╱31╱1╱ // 0x211f @0x9
0x2116…212a at000a = ╱30╱0╱ // 0x2120 @0xa
0x2116…212a at000b = ╱fe0000a004╱ // 0x2121 @0xb
0x2116…212a at0010 = ╱f0╱:╱ // 0x2126 @0x10
0x2116…212a at0011 = ╱4e╱N╱ // 0x2127 @0x11
0x2116…212a at0012 = ╱ef╱$╱ // 0x2128 @0x12
0x2116…212a at0013 = EOL // 0x2129 @0x13
0x2116…212a }
0x212a…2142 ae99 3740 EXEC FEJL(W,7,K1$)
0x212a…2142 LineComalBin {
0x212a…2142 ptr = 0xae99 // 0x212a @0x0
0x212a…2142 lno = 0x0e9c // 0x212c @0x2
0x212a…2142 at0004 = ╱9d╱ EXEC ╱ // 0x212e @0x4
0x212a…2142 at0005 = ╱46╱F╱ // 0x212f @0x5
0x212a…2142 at0006 = ╱45╱E╱ // 0x2130 @0x6
0x212a…2142 at0007 = ╱4a╱J╱ // 0x2131 @0x7
0x212a…2142 at0008 = ╱4c╱L╱ // 0x2132 @0x8
0x212a…2142 at0009 = ╱ed╱(╱ // 0x2133 @0x9
0x212a…2142 at000a = ╱57╱W╱ // 0x2134 @0xa
0x212a…2142 at000b = ╱ec╱,╱ // 0x2135 @0xb
0x212a…2142 at000c = ╱37╱7╱ // 0x2136 @0xc
0x212a…2142 at000d = ╱fe0000e003╱ // 0x2137 @0xd
0x212a…2142 at0012 = ╱ec╱,╱ // 0x213c @0x12
0x212a…2142 at0013 = ╱4b╱K╱ // 0x213d @0x13
0x212a…2142 at0014 = ╱31╱1╱ // 0x213e @0x14
0x212a…2142 at0015 = ╱ef╱$╱ // 0x213f @0x15
0x212a…2142 at0016 = ╱ee╱)╱ // 0x2140 @0x16
0x212a…2142 at0017 = EOL // 0x2141 @0x17
0x212a…2142 }
0x2142…2158 aeaf 3750 GET K1$,36:K14$
0x2142…2158 LineComalBin {
0x2142…2158 ptr = 0xaeaf // 0x2142 @0x0
0x2142…2158 lno = 0x0ea6 // 0x2144 @0x2
0x2142…2158 at0004 = ╱a9╱ GET ╱ // 0x2146 @0x4
0x2142…2158 at0005 = ╱4b╱K╱ // 0x2147 @0x5
0x2142…2158 at0006 = ╱31╱1╱ // 0x2148 @0x6
0x2142…2158 at0007 = ╱ef╱$╱ // 0x2149 @0x7
0x2142…2158 at0008 = ╱ec╱,╱ // 0x214a @0x8
0x2142…2158 at0009 = ╱33╱3╱ // 0x214b @0x9
0x2142…2158 at000a = ╱36╱6╱ // 0x214c @0xa
0x2142…2158 at000b = ╱fe00009006╱ // 0x214d @0xb
0x2142…2158 at0010 = ╱f0╱:╱ // 0x2152 @0x10
0x2142…2158 at0011 = ╱4b╱K╱ // 0x2153 @0x11
0x2142…2158 at0012 = ╱31╱1╱ // 0x2154 @0x12
0x2142…2158 at0013 = ╱34╱4╱ // 0x2155 @0x13
0x2142…2158 at0014 = ╱ef╱$╱ // 0x2156 @0x14
0x2142…2158 at0015 = EOL // 0x2157 @0x15
0x2142…2158 }
0x2158…2171 aec8 3760 EXEC FEJL(W,20,K1$)
0x2158…2171 LineComalBin {
0x2158…2171 ptr = 0xaec8 // 0x2158 @0x0
0x2158…2171 lno = 0x0eb0 // 0x215a @0x2
0x2158…2171 at0004 = ╱9d╱ EXEC ╱ // 0x215c @0x4
0x2158…2171 at0005 = ╱46╱F╱ // 0x215d @0x5
0x2158…2171 at0006 = ╱45╱E╱ // 0x215e @0x6
0x2158…2171 at0007 = ╱4a╱J╱ // 0x215f @0x7
0x2158…2171 at0008 = ╱4c╱L╱ // 0x2160 @0x8
0x2158…2171 at0009 = ╱ed╱(╱ // 0x2161 @0x9
0x2158…2171 at000a = ╱57╱W╱ // 0x2162 @0xa
0x2158…2171 at000b = ╱ec╱,╱ // 0x2163 @0xb
0x2158…2171 at000c = ╱32╱2╱ // 0x2164 @0xc
0x2158…2171 at000d = ╱30╱0╱ // 0x2165 @0xd
0x2158…2171 at000e = ╱fe0000a005╱ // 0x2166 @0xe
0x2158…2171 at0013 = ╱ec╱,╱ // 0x216b @0x13
0x2158…2171 at0014 = ╱4b╱K╱ // 0x216c @0x14
0x2158…2171 at0015 = ╱31╱1╱ // 0x216d @0x15
0x2158…2171 at0016 = ╱ef╱$╱ // 0x216e @0x16
0x2158…2171 at0017 = ╱ee╱)╱ // 0x216f @0x17
0x2158…2171 at0018 = EOL // 0x2170 @0x18
0x2158…2171 }
0x2171…2187 aede 3770 GET K1$,37:K15$
0x2171…2187 LineComalBin {
0x2171…2187 ptr = 0xaede // 0x2171 @0x0
0x2171…2187 lno = 0x0eba // 0x2173 @0x2
0x2171…2187 at0004 = ╱a9╱ GET ╱ // 0x2175 @0x4
0x2171…2187 at0005 = ╱4b╱K╱ // 0x2176 @0x5
0x2171…2187 at0006 = ╱31╱1╱ // 0x2177 @0x6
0x2171…2187 at0007 = ╱ef╱$╱ // 0x2178 @0x7
0x2171…2187 at0008 = ╱ec╱,╱ // 0x2179 @0x8
0x2171…2187 at0009 = ╱33╱3╱ // 0x217a @0x9
0x2171…2187 at000a = ╱37╱7╱ // 0x217b @0xa
0x2171…2187 at000b = ╱fe00009406╱ // 0x217c @0xb
0x2171…2187 at0010 = ╱f0╱:╱ // 0x2181 @0x10
0x2171…2187 at0011 = ╱4b╱K╱ // 0x2182 @0x11
0x2171…2187 at0012 = ╱31╱1╱ // 0x2183 @0x12
0x2171…2187 at0013 = ╱35╱5╱ // 0x2184 @0x13
0x2171…2187 at0014 = ╱ef╱$╱ // 0x2185 @0x14
0x2171…2187 at0015 = EOL // 0x2186 @0x15
0x2171…2187 }
0x2187…219f aef6 3780 EXEC FEJL(W,8,K1$)
0x2187…219f LineComalBin {
0x2187…219f ptr = 0xaef6 // 0x2187 @0x0
0x2187…219f lno = 0x0ec4 // 0x2189 @0x2
0x2187…219f at0004 = ╱9d╱ EXEC ╱ // 0x218b @0x4
0x2187…219f at0005 = ╱46╱F╱ // 0x218c @0x5
0x2187…219f at0006 = ╱45╱E╱ // 0x218d @0x6
0x2187…219f at0007 = ╱4a╱J╱ // 0x218e @0x7
0x2187…219f at0008 = ╱4c╱L╱ // 0x218f @0x8
0x2187…219f at0009 = ╱ed╱(╱ // 0x2190 @0x9
0x2187…219f at000a = ╱57╱W╱ // 0x2191 @0xa
0x2187…219f at000b = ╱ec╱,╱ // 0x2192 @0xb
0x2187…219f at000c = ╱38╱8╱ // 0x2193 @0xc
0x2187…219f at000d = ╱fe00008004╱ // 0x2194 @0xd
0x2187…219f at0012 = ╱ec╱,╱ // 0x2199 @0x12
0x2187…219f at0013 = ╱4b╱K╱ // 0x219a @0x13
0x2187…219f at0014 = ╱31╱1╱ // 0x219b @0x14
0x2187…219f at0015 = ╱ef╱$╱ // 0x219c @0x15
0x2187…219f at0016 = ╱ee╱)╱ // 0x219d @0x16
0x2187…219f at0017 = EOL // 0x219e @0x17
0x2187…219f }
0x219f…21b5 af0c 3790 GET K1$,38:K16$
0x219f…21b5 LineComalBin {
0x219f…21b5 ptr = 0xaf0c // 0x219f @0x0
0x219f…21b5 lno = 0x0ece // 0x21a1 @0x2
0x219f…21b5 at0004 = ╱a9╱ GET ╱ // 0x21a3 @0x4
0x219f…21b5 at0005 = ╱4b╱K╱ // 0x21a4 @0x5
0x219f…21b5 at0006 = ╱31╱1╱ // 0x21a5 @0x6
0x219f…21b5 at0007 = ╱ef╱$╱ // 0x21a6 @0x7
0x219f…21b5 at0008 = ╱ec╱,╱ // 0x21a7 @0x8
0x219f…21b5 at0009 = ╱33╱3╱ // 0x21a8 @0x9
0x219f…21b5 at000a = ╱38╱8╱ // 0x21a9 @0xa
0x219f…21b5 at000b = ╱fe00009806╱ // 0x21aa @0xb
0x219f…21b5 at0010 = ╱f0╱:╱ // 0x21af @0x10
0x219f…21b5 at0011 = ╱4b╱K╱ // 0x21b0 @0x11
0x219f…21b5 at0012 = ╱31╱1╱ // 0x21b1 @0x12
0x219f…21b5 at0013 = ╱36╱6╱ // 0x21b2 @0x13
0x219f…21b5 at0014 = ╱ef╱$╱ // 0x21b3 @0x14
0x219f…21b5 at0015 = EOL // 0x21b4 @0x15
0x219f…21b5 }
0x21b5…21c8 af1f 3800 EXEC FEJL(W,W,K1$)
0x21b5…21c8 LineComalBin {
0x21b5…21c8 ptr = 0xaf1f // 0x21b5 @0x0
0x21b5…21c8 lno = 0x0ed8 // 0x21b7 @0x2
0x21b5…21c8 at0004 = ╱9d╱ EXEC ╱ // 0x21b9 @0x4
0x21b5…21c8 at0005 = ╱46╱F╱ // 0x21ba @0x5
0x21b5…21c8 at0006 = ╱45╱E╱ // 0x21bb @0x6
0x21b5…21c8 at0007 = ╱4a╱J╱ // 0x21bc @0x7
0x21b5…21c8 at0008 = ╱4c╱L╱ // 0x21bd @0x8
0x21b5…21c8 at0009 = ╱ed╱(╱ // 0x21be @0x9
0x21b5…21c8 at000a = ╱57╱W╱ // 0x21bf @0xa
0x21b5…21c8 at000b = ╱ec╱,╱ // 0x21c0 @0xb
0x21b5…21c8 at000c = ╱57╱W╱ // 0x21c1 @0xc
0x21b5…21c8 at000d = ╱ec╱,╱ // 0x21c2 @0xd
0x21b5…21c8 at000e = ╱4b╱K╱ // 0x21c3 @0xe
0x21b5…21c8 at000f = ╱31╱1╱ // 0x21c4 @0xf
0x21b5…21c8 at0010 = ╱ef╱$╱ // 0x21c5 @0x10
0x21b5…21c8 at0011 = ╱ee╱)╱ // 0x21c6 @0x11
0x21b5…21c8 at0012 = EOL // 0x21c7 @0x12
0x21b5…21c8 }
0x21c8…21de af35 3810 GET K1$,39:K17$
0x21c8…21de LineComalBin {
0x21c8…21de ptr = 0xaf35 // 0x21c8 @0x0
0x21c8…21de lno = 0x0ee2 // 0x21ca @0x2
0x21c8…21de at0004 = ╱a9╱ GET ╱ // 0x21cc @0x4
0x21c8…21de at0005 = ╱4b╱K╱ // 0x21cd @0x5
0x21c8…21de at0006 = ╱31╱1╱ // 0x21ce @0x6
0x21c8…21de at0007 = ╱ef╱$╱ // 0x21cf @0x7
0x21c8…21de at0008 = ╱ec╱,╱ // 0x21d0 @0x8
0x21c8…21de at0009 = ╱33╱3╱ // 0x21d1 @0x9
0x21c8…21de at000a = ╱39╱9╱ // 0x21d2 @0xa
0x21c8…21de at000b = ╱fe00009c06╱ // 0x21d3 @0xb
0x21c8…21de at0010 = ╱f0╱:╱ // 0x21d8 @0x10
0x21c8…21de at0011 = ╱4b╱K╱ // 0x21d9 @0x11
0x21c8…21de at0012 = ╱31╱1╱ // 0x21da @0x12
0x21c8…21de at0013 = ╱37╱7╱ // 0x21db @0x13
0x21c8…21de at0014 = ╱ef╱$╱ // 0x21dc @0x14
0x21c8…21de at0015 = EOL // 0x21dd @0x15
0x21c8…21de }
0x21de…21f7 af4e 3820 EXEC FEJL(W,10,K1$)
0x21de…21f7 LineComalBin {
0x21de…21f7 ptr = 0xaf4e // 0x21de @0x0
0x21de…21f7 lno = 0x0eec // 0x21e0 @0x2
0x21de…21f7 at0004 = ╱9d╱ EXEC ╱ // 0x21e2 @0x4
0x21de…21f7 at0005 = ╱46╱F╱ // 0x21e3 @0x5
0x21de…21f7 at0006 = ╱45╱E╱ // 0x21e4 @0x6
0x21de…21f7 at0007 = ╱4a╱J╱ // 0x21e5 @0x7
0x21de…21f7 at0008 = ╱4c╱L╱ // 0x21e6 @0x8
0x21de…21f7 at0009 = ╱ed╱(╱ // 0x21e7 @0x9
0x21de…21f7 at000a = ╱57╱W╱ // 0x21e8 @0xa
0x21de…21f7 at000b = ╱ec╱,╱ // 0x21e9 @0xb
0x21de…21f7 at000c = ╱31╱1╱ // 0x21ea @0xc
0x21de…21f7 at000d = ╱30╱0╱ // 0x21eb @0xd
0x21de…21f7 at000e = ╱fe0000a004╱ // 0x21ec @0xe
0x21de…21f7 at0013 = ╱ec╱,╱ // 0x21f1 @0x13
0x21de…21f7 at0014 = ╱4b╱K╱ // 0x21f2 @0x14
0x21de…21f7 at0015 = ╱31╱1╱ // 0x21f3 @0x15
0x21de…21f7 at0016 = ╱ef╱$╱ // 0x21f4 @0x16
0x21de…21f7 at0017 = ╱ee╱)╱ // 0x21f5 @0x17
0x21de…21f7 at0018 = EOL // 0x21f6 @0x18
0x21de…21f7 }
0x21f7…220d af64 3830 GET K1$,41:K18$
0x21f7…220d LineComalBin {
0x21f7…220d ptr = 0xaf64 // 0x21f7 @0x0
0x21f7…220d lno = 0x0ef6 // 0x21f9 @0x2
0x21f7…220d at0004 = ╱a9╱ GET ╱ // 0x21fb @0x4
0x21f7…220d at0005 = ╱4b╱K╱ // 0x21fc @0x5
0x21f7…220d at0006 = ╱31╱1╱ // 0x21fd @0x6
0x21f7…220d at0007 = ╱ef╱$╱ // 0x21fe @0x7
0x21f7…220d at0008 = ╱ec╱,╱ // 0x21ff @0x8
0x21f7…220d at0009 = ╱34╱4╱ // 0x2200 @0x9
0x21f7…220d at000a = ╱31╱1╱ // 0x2201 @0xa
0x21f7…220d at000b = ╱fe0000a406╱ // 0x2202 @0xb
0x21f7…220d at0010 = ╱f0╱:╱ // 0x2207 @0x10
0x21f7…220d at0011 = ╱4b╱K╱ // 0x2208 @0x11
0x21f7…220d at0012 = ╱31╱1╱ // 0x2209 @0x12
0x21f7…220d at0013 = ╱38╱8╱ // 0x220a @0x13
0x21f7…220d at0014 = ╱ef╱$╱ // 0x220b @0x14
0x21f7…220d at0015 = EOL // 0x220c @0x15
0x21f7…220d }
0x220d…2226 af7d 3840 EXEC FEJL(W,11,K1$)
0x220d…2226 LineComalBin {
0x220d…2226 ptr = 0xaf7d // 0x220d @0x0
0x220d…2226 lno = 0x0f00 // 0x220f @0x2
0x220d…2226 at0004 = ╱9d╱ EXEC ╱ // 0x2211 @0x4
0x220d…2226 at0005 = ╱46╱F╱ // 0x2212 @0x5
0x220d…2226 at0006 = ╱45╱E╱ // 0x2213 @0x6
0x220d…2226 at0007 = ╱4a╱J╱ // 0x2214 @0x7
0x220d…2226 at0008 = ╱4c╱L╱ // 0x2215 @0x8
0x220d…2226 at0009 = ╱ed╱(╱ // 0x2216 @0x9
0x220d…2226 at000a = ╱57╱W╱ // 0x2217 @0xa
0x220d…2226 at000b = ╱ec╱,╱ // 0x2218 @0xb
0x220d…2226 at000c = ╱31╱1╱ // 0x2219 @0xc
0x220d…2226 at000d = ╱31╱1╱ // 0x221a @0xd
0x220d…2226 at000e = ╱fe0000b004╱ // 0x221b @0xe
0x220d…2226 at0013 = ╱ec╱,╱ // 0x2220 @0x13
0x220d…2226 at0014 = ╱4b╱K╱ // 0x2221 @0x14
0x220d…2226 at0015 = ╱31╱1╱ // 0x2222 @0x15
0x220d…2226 at0016 = ╱ef╱$╱ // 0x2223 @0x16
0x220d…2226 at0017 = ╱ee╱)╱ // 0x2224 @0x17
0x220d…2226 at0018 = EOL // 0x2225 @0x18
0x220d…2226 }
0x2226…223c af93 3850 GET K1$,42:K19$
0x2226…223c LineComalBin {
0x2226…223c ptr = 0xaf93 // 0x2226 @0x0
0x2226…223c lno = 0x0f0a // 0x2228 @0x2
0x2226…223c at0004 = ╱a9╱ GET ╱ // 0x222a @0x4
0x2226…223c at0005 = ╱4b╱K╱ // 0x222b @0x5
0x2226…223c at0006 = ╱31╱1╱ // 0x222c @0x6
0x2226…223c at0007 = ╱ef╱$╱ // 0x222d @0x7
0x2226…223c at0008 = ╱ec╱,╱ // 0x222e @0x8
0x2226…223c at0009 = ╱34╱4╱ // 0x222f @0x9
0x2226…223c at000a = ╱32╱2╱ // 0x2230 @0xa
0x2226…223c at000b = ╱fe0000a806╱ // 0x2231 @0xb
0x2226…223c at0010 = ╱f0╱:╱ // 0x2236 @0x10
0x2226…223c at0011 = ╱4b╱K╱ // 0x2237 @0x11
0x2226…223c at0012 = ╱31╱1╱ // 0x2238 @0x12
0x2226…223c at0013 = ╱39╱9╱ // 0x2239 @0x13
0x2226…223c at0014 = ╱ef╱$╱ // 0x223a @0x14
0x2226…223c at0015 = EOL // 0x223b @0x15
0x2226…223c }
0x223c…2255 afac 3860 EXEC FEJL(W,12,K1$)
0x223c…2255 LineComalBin {
0x223c…2255 ptr = 0xafac // 0x223c @0x0
0x223c…2255 lno = 0x0f14 // 0x223e @0x2
0x223c…2255 at0004 = ╱9d╱ EXEC ╱ // 0x2240 @0x4
0x223c…2255 at0005 = ╱46╱F╱ // 0x2241 @0x5
0x223c…2255 at0006 = ╱45╱E╱ // 0x2242 @0x6
0x223c…2255 at0007 = ╱4a╱J╱ // 0x2243 @0x7
0x223c…2255 at0008 = ╱4c╱L╱ // 0x2244 @0x8
0x223c…2255 at0009 = ╱ed╱(╱ // 0x2245 @0x9
0x223c…2255 at000a = ╱57╱W╱ // 0x2246 @0xa
0x223c…2255 at000b = ╱ec╱,╱ // 0x2247 @0xb
0x223c…2255 at000c = ╱31╱1╱ // 0x2248 @0xc
0x223c…2255 at000d = ╱32╱2╱ // 0x2249 @0xd
0x223c…2255 at000e = ╱fe0000c004╱ // 0x224a @0xe
0x223c…2255 at0013 = ╱ec╱,╱ // 0x224f @0x13
0x223c…2255 at0014 = ╱4b╱K╱ // 0x2250 @0x14
0x223c…2255 at0015 = ╱31╱1╱ // 0x2251 @0x15
0x223c…2255 at0016 = ╱ef╱$╱ // 0x2252 @0x16
0x223c…2255 at0017 = ╱ee╱)╱ // 0x2253 @0x17
0x223c…2255 at0018 = EOL // 0x2254 @0x18
0x223c…2255 }
0x2255…2279 afd0 3870 GET K1$,43:METOT,MEMID,MEPOST
0x2255…2279 LineComalBin {
0x2255…2279 ptr = 0xafd0 // 0x2255 @0x0
0x2255…2279 lno = 0x0f1e // 0x2257 @0x2
0x2255…2279 at0004 = ╱a9╱ GET ╱ // 0x2259 @0x4
0x2255…2279 at0005 = ╱4b╱K╱ // 0x225a @0x5
0x2255…2279 at0006 = ╱31╱1╱ // 0x225b @0x6
0x2255…2279 at0007 = ╱ef╱$╱ // 0x225c @0x7
0x2255…2279 at0008 = ╱ec╱,╱ // 0x225d @0x8
0x2255…2279 at0009 = ╱34╱4╱ // 0x225e @0x9
0x2255…2279 at000a = ╱33╱3╱ // 0x225f @0xa
0x2255…2279 at000b = ╱fe0000ac06╱ // 0x2260 @0xb
0x2255…2279 at0010 = ╱f0╱:╱ // 0x2265 @0x10
0x2255…2279 at0011 = ╱4d╱M╱ // 0x2266 @0x11
0x2255…2279 at0012 = ╱45╱E╱ // 0x2267 @0x12
0x2255…2279 at0013 = ╱54╱T╱ // 0x2268 @0x13
0x2255…2279 at0014 = ╱4f╱O╱ // 0x2269 @0x14
0x2255…2279 at0015 = ╱54╱T╱ // 0x226a @0x15
0x2255…2279 at0016 = ╱ec╱,╱ // 0x226b @0x16
0x2255…2279 at0017 = ╱4d╱M╱ // 0x226c @0x17
0x2255…2279 at0018 = ╱45╱E╱ // 0x226d @0x18
0x2255…2279 at0019 = ╱4d╱M╱ // 0x226e @0x19
0x2255…2279 at001a = ╱49╱I╱ // 0x226f @0x1a
0x2255…2279 at001b = ╱44╱D╱ // 0x2270 @0x1b
0x2255…2279 at001c = ╱ec╱,╱ // 0x2271 @0x1c
0x2255…2279 at001d = ╱4d╱M╱ // 0x2272 @0x1d
0x2255…2279 at001e = ╱45╱E╱ // 0x2273 @0x1e
0x2255…2279 at001f = ╱50╱P╱ // 0x2274 @0x1f
0x2255…2279 at0020 = ╱4f╱O╱ // 0x2275 @0x20
0x2255…2279 at0021 = ╱53╱S╱ // 0x2276 @0x21
0x2255…2279 at0022 = ╱54╱T╱ // 0x2277 @0x22
0x2255…2279 at0023 = EOL // 0x2278 @0x23
0x2255…2279 }
0x2279…2292 afe9 3880 EXEC FEJL(W,13,K1$)
0x2279…2292 LineComalBin {
0x2279…2292 ptr = 0xafe9 // 0x2279 @0x0
0x2279…2292 lno = 0x0f28 // 0x227b @0x2
0x2279…2292 at0004 = ╱9d╱ EXEC ╱ // 0x227d @0x4
0x2279…2292 at0005 = ╱46╱F╱ // 0x227e @0x5
0x2279…2292 at0006 = ╱45╱E╱ // 0x227f @0x6
0x2279…2292 at0007 = ╱4a╱J╱ // 0x2280 @0x7
0x2279…2292 at0008 = ╱4c╱L╱ // 0x2281 @0x8
0x2279…2292 at0009 = ╱ed╱(╱ // 0x2282 @0x9
0x2279…2292 at000a = ╱57╱W╱ // 0x2283 @0xa
0x2279…2292 at000b = ╱ec╱,╱ // 0x2284 @0xb
0x2279…2292 at000c = ╱31╱1╱ // 0x2285 @0xc
0x2279…2292 at000d = ╱33╱3╱ // 0x2286 @0xd
0x2279…2292 at000e = ╱fe0000d004╱ // 0x2287 @0xe
0x2279…2292 at0013 = ╱ec╱,╱ // 0x228c @0x13
0x2279…2292 at0014 = ╱4b╱K╱ // 0x228d @0x14
0x2279…2292 at0015 = ╱31╱1╱ // 0x228e @0x15
0x2279…2292 at0016 = ╱ef╱$╱ // 0x228f @0x16
0x2279…2292 at0017 = ╱ee╱)╱ // 0x2290 @0x17
0x2279…2292 at0018 = EOL // 0x2291 @0x18
0x2279…2292 }
0x2292…229b aff2 3890 CLOSE K1$
0x2292…229b LineComalBin {
0x2292…229b ptr = 0xaff2 // 0x2292 @0x0
0x2292…229b lno = 0x0f32 // 0x2294 @0x2
0x2292…229b at0004 = ╱a8╱ CLOSE ╱ // 0x2296 @0x4
0x2292…229b at0005 = ╱4b╱K╱ // 0x2297 @0x5
0x2292…229b at0006 = ╱31╱1╱ // 0x2298 @0x6
0x2292…229b at0007 = ╱ef╱$╱ // 0x2299 @0x7
0x2292…229b at0008 = EOL // 0x229a @0x8
0x2292…229b }
0x229b…22b4 b00b 3900 EXEC FEJL(W,21,K1$)
0x229b…22b4 LineComalBin {
0x229b…22b4 ptr = 0xb00b // 0x229b @0x0
0x229b…22b4 lno = 0x0f3c // 0x229d @0x2
0x229b…22b4 at0004 = ╱9d╱ EXEC ╱ // 0x229f @0x4
0x229b…22b4 at0005 = ╱46╱F╱ // 0x22a0 @0x5
0x229b…22b4 at0006 = ╱45╱E╱ // 0x22a1 @0x6
0x229b…22b4 at0007 = ╱4a╱J╱ // 0x22a2 @0x7
0x229b…22b4 at0008 = ╱4c╱L╱ // 0x22a3 @0x8
0x229b…22b4 at0009 = ╱ed╱(╱ // 0x22a4 @0x9
0x229b…22b4 at000a = ╱57╱W╱ // 0x22a5 @0xa
0x229b…22b4 at000b = ╱ec╱,╱ // 0x22a6 @0xb
0x229b…22b4 at000c = ╱32╱2╱ // 0x22a7 @0xc
0x229b…22b4 at000d = ╱31╱1╱ // 0x22a8 @0xd
0x229b…22b4 at000e = ╱fe0000a805╱ // 0x22a9 @0xe
0x229b…22b4 at0013 = ╱ec╱,╱ // 0x22ae @0x13
0x229b…22b4 at0014 = ╱4b╱K╱ // 0x22af @0x14
0x229b…22b4 at0015 = ╱31╱1╱ // 0x22b0 @0x15
0x229b…22b4 at0016 = ╱ef╱$╱ // 0x22b1 @0x16
0x229b…22b4 at0017 = ╱ee╱)╱ // 0x22b2 @0x17
0x229b…22b4 at0018 = EOL // 0x22b3 @0x18
0x229b…22b4 }
0x22b4…22f9 b050 3910 K14$=N$+K14$;K15$=N$+K15$;K16$=N$+K16$;K17$=N$+K17$;K18$=N$+K18$
0x22b4…22f9 LineComalBin {
0x22b4…22f9 ptr = 0xb050 // 0x22b4 @0x0
0x22b4…22f9 lno = 0x0f46 // 0x22b6 @0x2
0x22b4…22f9 at0004 = ╱4b╱K╱ // 0x22b8 @0x4
0x22b4…22f9 at0005 = ╱31╱1╱ // 0x22b9 @0x5
0x22b4…22f9 at0006 = ╱34╱4╱ // 0x22ba @0x6
0x22b4…22f9 at0007 = ╱ef╱$╱ // 0x22bb @0x7
0x22b4…22f9 at0008 = ╱dc╱=╱ // 0x22bc @0x8
0x22b4…22f9 at0009 = ╱4e╱N╱ // 0x22bd @0x9
0x22b4…22f9 at000a = ╱ef╱$╱ // 0x22be @0xa
0x22b4…22f9 at000b = ╱f1╱+╱ // 0x22bf @0xb
0x22b4…22f9 at000c = ╱4b╱K╱ // 0x22c0 @0xc
0x22b4…22f9 at000d = ╱31╱1╱ // 0x22c1 @0xd
0x22b4…22f9 at000e = ╱34╱4╱ // 0x22c2 @0xe
0x22b4…22f9 at000f = ╱ef╱$╱ // 0x22c3 @0xf
0x22b4…22f9 at0010 = ╱eb╱;╱ // 0x22c4 @0x10
0x22b4…22f9 at0011 = ╱4b╱K╱ // 0x22c5 @0x11
0x22b4…22f9 at0012 = ╱31╱1╱ // 0x22c6 @0x12
0x22b4…22f9 at0013 = ╱35╱5╱ // 0x22c7 @0x13
0x22b4…22f9 at0014 = ╱ef╱$╱ // 0x22c8 @0x14
0x22b4…22f9 at0015 = ╱dc╱=╱ // 0x22c9 @0x15
0x22b4…22f9 at0016 = ╱4e╱N╱ // 0x22ca @0x16
0x22b4…22f9 at0017 = ╱ef╱$╱ // 0x22cb @0x17
0x22b4…22f9 at0018 = ╱f1╱+╱ // 0x22cc @0x18
0x22b4…22f9 at0019 = ╱4b╱K╱ // 0x22cd @0x19
0x22b4…22f9 at001a = ╱31╱1╱ // 0x22ce @0x1a
0x22b4…22f9 at001b = ╱35╱5╱ // 0x22cf @0x1b
0x22b4…22f9 at001c = ╱ef╱$╱ // 0x22d0 @0x1c
0x22b4…22f9 at001d = ╱eb╱;╱ // 0x22d1 @0x1d
0x22b4…22f9 at001e = ╱4b╱K╱ // 0x22d2 @0x1e
0x22b4…22f9 at001f = ╱31╱1╱ // 0x22d3 @0x1f
0x22b4…22f9 at0020 = ╱36╱6╱ // 0x22d4 @0x20
0x22b4…22f9 at0021 = ╱ef╱$╱ // 0x22d5 @0x21
0x22b4…22f9 at0022 = ╱dc╱=╱ // 0x22d6 @0x22
0x22b4…22f9 at0023 = ╱4e╱N╱ // 0x22d7 @0x23
0x22b4…22f9 at0024 = ╱ef╱$╱ // 0x22d8 @0x24
0x22b4…22f9 at0025 = ╱f1╱+╱ // 0x22d9 @0x25
0x22b4…22f9 at0026 = ╱4b╱K╱ // 0x22da @0x26
0x22b4…22f9 at0027 = ╱31╱1╱ // 0x22db @0x27
0x22b4…22f9 at0028 = ╱36╱6╱ // 0x22dc @0x28
0x22b4…22f9 at0029 = ╱ef╱$╱ // 0x22dd @0x29
0x22b4…22f9 at002a = ╱eb╱;╱ // 0x22de @0x2a
0x22b4…22f9 at002b = ╱4b╱K╱ // 0x22df @0x2b
0x22b4…22f9 at002c = ╱31╱1╱ // 0x22e0 @0x2c
0x22b4…22f9 at002d = ╱37╱7╱ // 0x22e1 @0x2d
0x22b4…22f9 at002e = ╱ef╱$╱ // 0x22e2 @0x2e
0x22b4…22f9 at002f = ╱dc╱=╱ // 0x22e3 @0x2f
0x22b4…22f9 at0030 = ╱4e╱N╱ // 0x22e4 @0x30
0x22b4…22f9 at0031 = ╱ef╱$╱ // 0x22e5 @0x31
0x22b4…22f9 at0032 = ╱f1╱+╱ // 0x22e6 @0x32
0x22b4…22f9 at0033 = ╱4b╱K╱ // 0x22e7 @0x33
0x22b4…22f9 at0034 = ╱31╱1╱ // 0x22e8 @0x34
0x22b4…22f9 at0035 = ╱37╱7╱ // 0x22e9 @0x35
0x22b4…22f9 at0036 = ╱ef╱$╱ // 0x22ea @0x36
0x22b4…22f9 at0037 = ╱eb╱;╱ // 0x22eb @0x37
0x22b4…22f9 at0038 = ╱4b╱K╱ // 0x22ec @0x38
0x22b4…22f9 at0039 = ╱31╱1╱ // 0x22ed @0x39
0x22b4…22f9 at003a = ╱38╱8╱ // 0x22ee @0x3a
0x22b4…22f9 at003b = ╱ef╱$╱ // 0x22ef @0x3b
0x22b4…22f9 at003c = ╱dc╱=╱ // 0x22f0 @0x3c
0x22b4…22f9 at003d = ╱4e╱N╱ // 0x22f1 @0x3d
0x22b4…22f9 at003e = ╱ef╱$╱ // 0x22f2 @0x3e
0x22b4…22f9 at003f = ╱f1╱+╱ // 0x22f3 @0x3f
0x22b4…22f9 at0040 = ╱4b╱K╱ // 0x22f4 @0x40
0x22b4…22f9 at0041 = ╱31╱1╱ // 0x22f5 @0x41
0x22b4…22f9 at0042 = ╱38╱8╱ // 0x22f6 @0x42
0x22b4…22f9 at0043 = ╱ef╱$╱ // 0x22f7 @0x43
0x22b4…22f9 at0044 = EOL // 0x22f8 @0x44
0x22b4…22f9 }
0x22f9…230a b061 3920 K19$=N$+K19$
0x22f9…230a LineComalBin {
0x22f9…230a ptr = 0xb061 // 0x22f9 @0x0
0x22f9…230a lno = 0x0f50 // 0x22fb @0x2
0x22f9…230a at0004 = ╱4b╱K╱ // 0x22fd @0x4
0x22f9…230a at0005 = ╱31╱1╱ // 0x22fe @0x5
0x22f9…230a at0006 = ╱39╱9╱ // 0x22ff @0x6
0x22f9…230a at0007 = ╱ef╱$╱ // 0x2300 @0x7
0x22f9…230a at0008 = ╱dc╱=╱ // 0x2301 @0x8
0x22f9…230a at0009 = ╱4e╱N╱ // 0x2302 @0x9
0x22f9…230a at000a = ╱ef╱$╱ // 0x2303 @0xa
0x22f9…230a at000b = ╱f1╱+╱ // 0x2304 @0xb
0x22f9…230a at000c = ╱4b╱K╱ // 0x2305 @0xc
0x22f9…230a at000d = ╱31╱1╱ // 0x2306 @0xd
0x22f9…230a at000e = ╱39╱9╱ // 0x2307 @0xe
0x22f9…230a at000f = ╱ef╱$╱ // 0x2308 @0xf
0x22f9…230a at0010 = EOL // 0x2309 @0x10
0x22f9…230a }
0x230a…2316 b06d 3930 OPEN K14$,R
0x230a…2316 LineComalBin {
0x230a…2316 ptr = 0xb06d // 0x230a @0x0
0x230a…2316 lno = 0x0f5a // 0x230c @0x2
0x230a…2316 at0004 = ╱a7╱ OPEN ╱ // 0x230e @0x4
0x230a…2316 at0005 = ╱4b╱K╱ // 0x230f @0x5
0x230a…2316 at0006 = ╱31╱1╱ // 0x2310 @0x6
0x230a…2316 at0007 = ╱34╱4╱ // 0x2311 @0x7
0x230a…2316 at0008 = ╱ef╱$╱ // 0x2312 @0x8
0x230a…2316 at0009 = ╱ec╱,╱ // 0x2313 @0x9
0x230a…2316 at000a = ╱52╱R╱ // 0x2314 @0xa
0x230a…2316 at000b = EOL // 0x2315 @0xb
0x230a…2316 }
0x2316…2330 b087 3940 EXEC FEJL(W,22,K14$)
0x2316…2330 LineComalBin {
0x2316…2330 ptr = 0xb087 // 0x2316 @0x0
0x2316…2330 lno = 0x0f64 // 0x2318 @0x2
0x2316…2330 at0004 = ╱9d╱ EXEC ╱ // 0x231a @0x4
0x2316…2330 at0005 = ╱46╱F╱ // 0x231b @0x5
0x2316…2330 at0006 = ╱45╱E╱ // 0x231c @0x6
0x2316…2330 at0007 = ╱4a╱J╱ // 0x231d @0x7
0x2316…2330 at0008 = ╱4c╱L╱ // 0x231e @0x8
0x2316…2330 at0009 = ╱ed╱(╱ // 0x231f @0x9
0x2316…2330 at000a = ╱57╱W╱ // 0x2320 @0xa
0x2316…2330 at000b = ╱ec╱,╱ // 0x2321 @0xb
0x2316…2330 at000c = ╱32╱2╱ // 0x2322 @0xc
0x2316…2330 at000d = ╱32╱2╱ // 0x2323 @0xd
0x2316…2330 at000e = ╱fe0000b005╱ // 0x2324 @0xe
0x2316…2330 at0013 = ╱ec╱,╱ // 0x2329 @0x13
0x2316…2330 at0014 = ╱4b╱K╱ // 0x232a @0x14
0x2316…2330 at0015 = ╱31╱1╱ // 0x232b @0x15
0x2316…2330 at0016 = ╱34╱4╱ // 0x232c @0x16
0x2316…2330 at0017 = ╱ef╱$╱ // 0x232d @0x17
0x2316…2330 at0018 = ╱ee╱)╱ // 0x232e @0x18
0x2316…2330 at0019 = EOL // 0x232f @0x19
0x2316…2330 }
0x2330…238b b0e2 3950 GET K14$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x2330…238b LineComalBin {
0x2330…238b ptr = 0xb0e2 // 0x2330 @0x0
0x2330…238b lno = 0x0f6e // 0x2332 @0x2
0x2330…238b at0004 = ╱a9╱ GET ╱ // 0x2334 @0x4
0x2330…238b at0005 = ╱4b╱K╱ // 0x2335 @0x5
0x2330…238b at0006 = ╱31╱1╱ // 0x2336 @0x6
0x2330…238b at0007 = ╱34╱4╱ // 0x2337 @0x7
0x2330…238b at0008 = ╱ef╱$╱ // 0x2338 @0x8
0x2330…238b at0009 = ╱ec╱,╱ // 0x2339 @0x9
0x2330…238b at000a = ╱47╱G╱ // 0x233a @0xa
0x2330…238b at000b = ╱f0╱:╱ // 0x233b @0xb
0x2330…238b at000c = ╱54╱T╱ // 0x233c @0xc
0x2330…238b at000d = ╱31╱1╱ // 0x233d @0xd
0x2330…238b at000e = ╱ed╱(╱ // 0x233e @0xe
0x2330…238b at000f = ╱45╱E╱ // 0x233f @0xf
0x2330…238b at0010 = ╱ee╱)╱ // 0x2340 @0x10
0x2330…238b at0011 = ╱ec╱,╱ // 0x2341 @0x11
0x2330…238b at0012 = ╱54╱T╱ // 0x2342 @0x12
0x2330…238b at0013 = ╱31╱1╱ // 0x2343 @0x13
0x2330…238b at0014 = ╱ed╱(╱ // 0x2344 @0x14
0x2330…238b at0015 = ╱47╱G╱ // 0x2345 @0x15
0x2330…238b at0016 = ╱ee╱)╱ // 0x2346 @0x16
0x2330…238b at0017 = ╱ec╱,╱ // 0x2347 @0x17
0x2330…238b at0018 = ╱54╱T╱ // 0x2348 @0x18
0x2330…238b at0019 = ╱31╱1╱ // 0x2349 @0x19
0x2330…238b at001a = ╱ed╱(╱ // 0x234a @0x1a
0x2330…238b at001b = ╱56╱V╱ // 0x234b @0x1b
0x2330…238b at001c = ╱ee╱)╱ // 0x234c @0x1c
0x2330…238b at001d = ╱ec╱,╱ // 0x234d @0x1d
0x2330…238b at001e = ╱54╱T╱ // 0x234e @0x1e
0x2330…238b at001f = ╱31╱1╱ // 0x234f @0x1f
0x2330…238b at0020 = ╱ed╱(╱ // 0x2350 @0x20
0x2330…238b at0021 = ╱34╱4╱ // 0x2351 @0x21
0x2330…238b at0022 = ╱fe00008003╱ // 0x2352 @0x22
0x2330…238b at0027 = ╱ee╱)╱ // 0x2357 @0x27
0x2330…238b at0028 = ╱ec╱,╱ // 0x2358 @0x28
0x2330…238b at0029 = ╱54╱T╱ // 0x2359 @0x29
0x2330…238b at002a = ╱31╱1╱ // 0x235a @0x2a
0x2330…238b at002b = ╱ed╱(╱ // 0x235b @0x2b
0x2330…238b at002c = ╱35╱5╱ // 0x235c @0x2c
0x2330…238b at002d = ╱fe0000a003╱ // 0x235d @0x2d
0x2330…238b at0032 = ╱ee╱)╱ // 0x2362 @0x32
0x2330…238b at0033 = ╱ec╱,╱ // 0x2363 @0x33
0x2330…238b at0034 = ╱54╱T╱ // 0x2364 @0x34
0x2330…238b at0035 = ╱31╱1╱ // 0x2365 @0x35
0x2330…238b at0036 = ╱ed╱(╱ // 0x2366 @0x36
0x2330…238b at0037 = ╱36╱6╱ // 0x2367 @0x37
0x2330…238b at0038 = ╱fe0000c003╱ // 0x2368 @0x38
0x2330…238b at003d = ╱ee╱)╱ // 0x236d @0x3d
0x2330…238b at003e = ╱ec╱,╱ // 0x236e @0x3e
0x2330…238b at003f = ╱54╱T╱ // 0x236f @0x3f
0x2330…238b at0040 = ╱31╱1╱ // 0x2370 @0x40
0x2330…238b at0041 = ╱ed╱(╱ // 0x2371 @0x41
0x2330…238b at0042 = ╱37╱7╱ // 0x2372 @0x42
0x2330…238b at0043 = ╱fe0000e003╱ // 0x2373 @0x43
0x2330…238b at0048 = ╱ee╱)╱ // 0x2378 @0x48
0x2330…238b at0049 = ╱ec╱,╱ // 0x2379 @0x49
0x2330…238b at004a = ╱54╱T╱ // 0x237a @0x4a
0x2330…238b at004b = ╱31╱1╱ // 0x237b @0x4b
0x2330…238b at004c = ╱ed╱(╱ // 0x237c @0x4c
0x2330…238b at004d = ╱38╱8╱ // 0x237d @0x4d
0x2330…238b at004e = ╱fe00008004╱ // 0x237e @0x4e
0x2330…238b at0053 = ╱ee╱)╱ // 0x2383 @0x53
0x2330…238b at0054 = ╱ec╱,╱ // 0x2384 @0x54
0x2330…238b at0055 = ╱54╱T╱ // 0x2385 @0x55
0x2330…238b at0056 = ╱31╱1╱ // 0x2386 @0x56
0x2330…238b at0057 = ╱ed╱(╱ // 0x2387 @0x57
0x2330…238b at0058 = ╱57╱W╱ // 0x2388 @0x58
0x2330…238b at0059 = ╱ee╱)╱ // 0x2389 @0x59
0x2330…238b at005a = EOL // 0x238a @0x5a
0x2330…238b }
0x238b…23a5 b0fc 3960 EXEC FEJL(W,23,K14$)
0x238b…23a5 LineComalBin {
0x238b…23a5 ptr = 0xb0fc // 0x238b @0x0
0x238b…23a5 lno = 0x0f78 // 0x238d @0x2
0x238b…23a5 at0004 = ╱9d╱ EXEC ╱ // 0x238f @0x4
0x238b…23a5 at0005 = ╱46╱F╱ // 0x2390 @0x5
0x238b…23a5 at0006 = ╱45╱E╱ // 0x2391 @0x6
0x238b…23a5 at0007 = ╱4a╱J╱ // 0x2392 @0x7
0x238b…23a5 at0008 = ╱4c╱L╱ // 0x2393 @0x8
0x238b…23a5 at0009 = ╱ed╱(╱ // 0x2394 @0x9
0x238b…23a5 at000a = ╱57╱W╱ // 0x2395 @0xa
0x238b…23a5 at000b = ╱ec╱,╱ // 0x2396 @0xb
0x238b…23a5 at000c = ╱32╱2╱ // 0x2397 @0xc
0x238b…23a5 at000d = ╱33╱3╱ // 0x2398 @0xd
0x238b…23a5 at000e = ╱fe0000b805╱ // 0x2399 @0xe
0x238b…23a5 at0013 = ╱ec╱,╱ // 0x239e @0x13
0x238b…23a5 at0014 = ╱4b╱K╱ // 0x239f @0x14
0x238b…23a5 at0015 = ╱31╱1╱ // 0x23a0 @0x15
0x238b…23a5 at0016 = ╱34╱4╱ // 0x23a1 @0x16
0x238b…23a5 at0017 = ╱ef╱$╱ // 0x23a2 @0x17
0x238b…23a5 at0018 = ╱ee╱)╱ // 0x23a3 @0x18
0x238b…23a5 at0019 = EOL // 0x23a4 @0x19
0x238b…23a5 }
0x23a5…23b5 b10c 3970 FOR I=E TO 6
0x23a5…23b5 LineComalBin {
0x23a5…23b5 ptr = 0xb10c // 0x23a5 @0x0
0x23a5…23b5 lno = 0x0f82 // 0x23a7 @0x2
0x23a5…23b5 at0004 = ╱83╱ FOR ╱ // 0x23a9 @0x4
0x23a5…23b5 at0005 = ╱49╱I╱ // 0x23aa @0x5
0x23a5…23b5 at0006 = ╱dc╱=╱ // 0x23ab @0x6
0x23a5…23b5 at0007 = ╱45╱E╱ // 0x23ac @0x7
0x23a5…23b5 at0008 = ╱b7╱ TO ╱ // 0x23ad @0x8
0x23a5…23b5 at0009 = ╱36╱6╱ // 0x23ae @0x9
0x23a5…23b5 at000a = ╱fe0000c003╱ // 0x23af @0xa
0x23a5…23b5 at000f = EOL // 0x23b4 @0xf
0x23a5…23b5 }
0x23b5…23c5 b11c 3980 H=(I-E)*V+E
0x23b5…23c5 LineComalBin {
0x23b5…23c5 ptr = 0xb11c // 0x23b5 @0x0
0x23b5…23c5 lno = 0x0f8c // 0x23b7 @0x2
0x23b5…23c5 at0004 = ╱48╱H╱ // 0x23b9 @0x4
0x23b5…23c5 at0005 = ╱dc╱=╱ // 0x23ba @0x5
0x23b5…23c5 at0006 = ╱ed╱(╱ // 0x23bb @0x6
0x23b5…23c5 at0007 = ╱49╱I╱ // 0x23bc @0x7
0x23b5…23c5 at0008 = ╱e3╱-╱ // 0x23bd @0x8
0x23b5…23c5 at0009 = ╱45╱E╱ // 0x23be @0x9
0x23b5…23c5 at000a = ╱ee╱)╱ // 0x23bf @0xa
0x23b5…23c5 at000b = ╱e4╱*╱ // 0x23c0 @0xb
0x23b5…23c5 at000c = ╱56╱V╱ // 0x23c1 @0xc
0x23b5…23c5 at000d = ╱e2╱+╱ // 0x23c2 @0xd
0x23b5…23c5 at000e = ╱45╱E╱ // 0x23c3 @0xe
0x23b5…23c5 at000f = EOL // 0x23c4 @0xf
0x23b5…23c5 }
0x23c5…23f7 b14e 3990 GET K14$,I+5:TFIL$(H),TFIL$(H+E),TFIL$(H+G)
0x23c5…23f7 LineComalBin {
0x23c5…23f7 ptr = 0xb14e // 0x23c5 @0x0
0x23c5…23f7 lno = 0x0f96 // 0x23c7 @0x2
0x23c5…23f7 at0004 = ╱a9╱ GET ╱ // 0x23c9 @0x4
0x23c5…23f7 at0005 = ╱4b╱K╱ // 0x23ca @0x5
0x23c5…23f7 at0006 = ╱31╱1╱ // 0x23cb @0x6
0x23c5…23f7 at0007 = ╱34╱4╱ // 0x23cc @0x7
0x23c5…23f7 at0008 = ╱ef╱$╱ // 0x23cd @0x8
0x23c5…23f7 at0009 = ╱ec╱,╱ // 0x23ce @0x9
0x23c5…23f7 at000a = ╱49╱I╱ // 0x23cf @0xa
0x23c5…23f7 at000b = ╱e2╱+╱ // 0x23d0 @0xb
0x23c5…23f7 at000c = ╱35╱5╱ // 0x23d1 @0xc
0x23c5…23f7 at000d = ╱fe0000a003╱ // 0x23d2 @0xd
0x23c5…23f7 at0012 = ╱f0╱:╱ // 0x23d7 @0x12
0x23c5…23f7 at0013 = ╱54╱T╱ // 0x23d8 @0x13
0x23c5…23f7 at0014 = ╱46╱F╱ // 0x23d9 @0x14
0x23c5…23f7 at0015 = ╱49╱I╱ // 0x23da @0x15
0x23c5…23f7 at0016 = ╱4c╱L╱ // 0x23db @0x16
0x23c5…23f7 at0017 = ╱ef╱$╱ // 0x23dc @0x17
0x23c5…23f7 at0018 = ╱ed╱(╱ // 0x23dd @0x18
0x23c5…23f7 at0019 = ╱48╱H╱ // 0x23de @0x19
0x23c5…23f7 at001a = ╱ee╱)╱ // 0x23df @0x1a
0x23c5…23f7 at001b = ╱ec╱,╱ // 0x23e0 @0x1b
0x23c5…23f7 at001c = ╱54╱T╱ // 0x23e1 @0x1c
0x23c5…23f7 at001d = ╱46╱F╱ // 0x23e2 @0x1d
0x23c5…23f7 at001e = ╱49╱I╱ // 0x23e3 @0x1e
0x23c5…23f7 at001f = ╱4c╱L╱ // 0x23e4 @0x1f
0x23c5…23f7 at0020 = ╱ef╱$╱ // 0x23e5 @0x20
0x23c5…23f7 at0021 = ╱ed╱(╱ // 0x23e6 @0x21
0x23c5…23f7 at0022 = ╱48╱H╱ // 0x23e7 @0x22
0x23c5…23f7 at0023 = ╱e2╱+╱ // 0x23e8 @0x23
0x23c5…23f7 at0024 = ╱45╱E╱ // 0x23e9 @0x24
0x23c5…23f7 at0025 = ╱ee╱)╱ // 0x23ea @0x25
0x23c5…23f7 at0026 = ╱ec╱,╱ // 0x23eb @0x26
0x23c5…23f7 at0027 = ╱54╱T╱ // 0x23ec @0x27
0x23c5…23f7 at0028 = ╱46╱F╱ // 0x23ed @0x28
0x23c5…23f7 at0029 = ╱49╱I╱ // 0x23ee @0x29
0x23c5…23f7 at002a = ╱4c╱L╱ // 0x23ef @0x2a
0x23c5…23f7 at002b = ╱ef╱$╱ // 0x23f0 @0x2b
0x23c5…23f7 at002c = ╱ed╱(╱ // 0x23f1 @0x2c
0x23c5…23f7 at002d = ╱48╱H╱ // 0x23f2 @0x2d
0x23c5…23f7 at002e = ╱e2╱+╱ // 0x23f3 @0x2e
0x23c5…23f7 at002f = ╱47╱G╱ // 0x23f4 @0x2f
0x23c5…23f7 at0030 = ╱ee╱)╱ // 0x23f5 @0x30
0x23c5…23f7 at0031 = EOL // 0x23f6 @0x31
0x23c5…23f7 }
0x23f7…2411 b168 4000 EXEC FEJL(W,25,K14$)
0x23f7…2411 LineComalBin {
0x23f7…2411 ptr = 0xb168 // 0x23f7 @0x0
0x23f7…2411 lno = 0x0fa0 // 0x23f9 @0x2
0x23f7…2411 at0004 = ╱9d╱ EXEC ╱ // 0x23fb @0x4
0x23f7…2411 at0005 = ╱46╱F╱ // 0x23fc @0x5
0x23f7…2411 at0006 = ╱45╱E╱ // 0x23fd @0x6
0x23f7…2411 at0007 = ╱4a╱J╱ // 0x23fe @0x7
0x23f7…2411 at0008 = ╱4c╱L╱ // 0x23ff @0x8
0x23f7…2411 at0009 = ╱ed╱(╱ // 0x2400 @0x9
0x23f7…2411 at000a = ╱57╱W╱ // 0x2401 @0xa
0x23f7…2411 at000b = ╱ec╱,╱ // 0x2402 @0xb
0x23f7…2411 at000c = ╱32╱2╱ // 0x2403 @0xc
0x23f7…2411 at000d = ╱35╱5╱ // 0x2404 @0xd
0x23f7…2411 at000e = ╱fe0000c805╱ // 0x2405 @0xe
0x23f7…2411 at0013 = ╱ec╱,╱ // 0x240a @0x13
0x23f7…2411 at0014 = ╱4b╱K╱ // 0x240b @0x14
0x23f7…2411 at0015 = ╱31╱1╱ // 0x240c @0x15
0x23f7…2411 at0016 = ╱34╱4╱ // 0x240d @0x16
0x23f7…2411 at0017 = ╱ef╱$╱ // 0x240e @0x17
0x23f7…2411 at0018 = ╱ee╱)╱ // 0x240f @0x18
0x23f7…2411 at0019 = EOL // 0x2410 @0x19
0x23f7…2411 }
0x2411…2418 b16f 4010 NEXT I
0x2411…2418 LineComalBin {
0x2411…2418 ptr = 0xb16f // 0x2411 @0x0
0x2411…2418 lno = 0x0faa // 0x2413 @0x2
0x2411…2418 at0004 = ╱84╱ NEXT ╱ // 0x2415 @0x4
0x2411…2418 at0005 = ╱49╱I╱ // 0x2416 @0x5
0x2411…2418 at0006 = EOL // 0x2417 @0x6
0x2411…2418 }
0x2418…2479 (120,) b1d0 4020 GET K14$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x2418…2479 LineComalBin {
0x2418…2479 ptr = 0xb1d0 // 0x2418 @0x0
0x2418…2479 lno = 0x0fb4 // 0x241a @0x2
0x2418…2479 at0004 = ╱a9╱ GET ╱ // 0x241c @0x4
0x2418…2479 at0005 = ╱4b╱K╱ // 0x241d @0x5
0x2418…2479 at0006 = ╱31╱1╱ // 0x241e @0x6
0x2418…2479 at0007 = ╱34╱4╱ // 0x241f @0x7
0x2418…2479 at0008 = ╱ef╱$╱ // 0x2420 @0x8
0x2418…2479 at0009 = ╱ec╱,╱ // 0x2421 @0x9
0x2418…2479 at000a = ╱31╱1╱ // 0x2422 @0xa
0x2418…2479 at000b = ╱33╱3╱ // 0x2423 @0xb
0x2418…2479 at000c = ╱fe0000d004╱ // 0x2424 @0xc
0x2418…2479 at0011 = ╱f0╱:╱ // 0x2429 @0x11
0x2418…2479 at0012 = ╱54╱T╱ // 0x242a @0x12
0x2418…2479 at0013 = ╱32╱2╱ // 0x242b @0x13
0x2418…2479 at0014 = ╱ed╱(╱ // 0x242c @0x14
0x2418…2479 at0015 = ╱45╱E╱ // 0x242d @0x15
0x2418…2479 at0016 = ╱ee╱)╱ // 0x242e @0x16
0x2418…2479 at0017 = ╱ec╱,╱ // 0x242f @0x17
0x2418…2479 at0018 = ╱54╱T╱ // 0x2430 @0x18
0x2418…2479 at0019 = ╱32╱2╱ // 0x2431 @0x19
0x2418…2479 at001a = ╱ed╱(╱ // 0x2432 @0x1a
0x2418…2479 at001b = ╱47╱G╱ // 0x2433 @0x1b
0x2418…2479 at001c = ╱ee╱)╱ // 0x2434 @0x1c
0x2418…2479 at001d = ╱ec╱,╱ // 0x2435 @0x1d
0x2418…2479 at001e = ╱54╱T╱ // 0x2436 @0x1e
0x2418…2479 at001f = ╱32╱2╱ // 0x2437 @0x1f
0x2418…2479 at0020 = ╱ed╱(╱ // 0x2438 @0x20
0x2418…2479 at0021 = ╱56╱V╱ // 0x2439 @0x21
0x2418…2479 at0022 = ╱ee╱)╱ // 0x243a @0x22
0x2418…2479 at0023 = ╱ec╱,╱ // 0x243b @0x23
0x2418…2479 at0024 = ╱54╱T╱ // 0x243c @0x24
0x2418…2479 at0025 = ╱32╱2╱ // 0x243d @0x25
0x2418…2479 at0026 = ╱ed╱(╱ // 0x243e @0x26
0x2418…2479 at0027 = ╱34╱4╱ // 0x243f @0x27
0x2418…2479 at0028 = ╱fe00008003╱ // 0x2440 @0x28
0x2418…2479 at002d = ╱ee╱)╱ // 0x2445 @0x2d
0x2418…2479 at002e = ╱ec╱,╱ // 0x2446 @0x2e
0x2418…2479 at002f = ╱54╱T╱ // 0x2447 @0x2f
0x2418…2479 at0030 = ╱32╱2╱ // 0x2448 @0x30
0x2418…2479 at0031 = ╱ed╱(╱ // 0x2449 @0x31
0x2418…2479 at0032 = ╱35╱5╱ // 0x244a @0x32
0x2418…2479 at0033 = ╱fe0000a003╱ // 0x244b @0x33
0x2418…2479 at0038 = ╱ee╱)╱ // 0x2450 @0x38
0x2418…2479 at0039 = ╱ec╱,╱ // 0x2451 @0x39
0x2418…2479 at003a = ╱54╱T╱ // 0x2452 @0x3a
0x2418…2479 at003b = ╱32╱2╱ // 0x2453 @0x3b
0x2418…2479 at003c = ╱ed╱(╱ // 0x2454 @0x3c
0x2418…2479 at003d = ╱36╱6╱ // 0x2455 @0x3d
0x2418…2479 at003e = ╱fe0000c003╱ // 0x2456 @0x3e
0x2418…2479 at0043 = ╱ee╱)╱ // 0x245b @0x43
0x2418…2479 at0044 = ╱ec╱,╱ // 0x245c @0x44
0x2418…2479 at0045 = ╱54╱T╱ // 0x245d @0x45
0x2418…2479 at0046 = ╱32╱2╱ // 0x245e @0x46
0x2418…2479 at0047 = ╱ed╱(╱ // 0x245f @0x47
0x2418…2479 at0048 = ╱37╱7╱ // 0x2460 @0x48
0x2418…2479 at0049 = ╱fe0000e003╱ // 0x2461 @0x49
0x2418…2479 at004e = ╱ee╱)╱ // 0x2466 @0x4e
0x2418…2479 at004f = ╱ec╱,╱ // 0x2467 @0x4f
0x2418…2479 at0050 = ╱54╱T╱ // 0x2468 @0x50
0x2418…2479 at0051 = ╱32╱2╱ // 0x2469 @0x51
0x2418…2479 at0052 = ╱ed╱(╱ // 0x246a @0x52
0x2418…2479 at0053 = ╱38╱8╱ // 0x246b @0x53
0x2418…2479 at0054 = ╱fe00008004╱ // 0x246c @0x54
0x2418…2479 at0059 = ╱ee╱)╱ // 0x2471 @0x59
0x2418…2479 at005a = ╱ec╱,╱ // 0x2472 @0x5a
0x2418…2479 at005b = ╱54╱T╱ // 0x2473 @0x5b
0x2418…2479 at005c = ╱32╱2╱ // 0x2474 @0x5c
0x2418…2479 at005d = ╱ed╱(╱ // 0x2475 @0x5d
0x2418…2479 at005e = ╱57╱W╱ // 0x2476 @0x5e
0x2418…2479 at005f = ╱ee╱)╱ // 0x2477 @0x5f
0x2418…2479 at0060 = EOL // 0x2478 @0x60
0x2418…2479 }
0x2479…2493 b1ea 4030 EXEC FEJL(W,26,K14$)
0x2479…2493 LineComalBin {
0x2479…2493 ptr = 0xb1ea // 0x2479 @0x0
0x2479…2493 lno = 0x0fbe // 0x247b @0x2
0x2479…2493 at0004 = ╱9d╱ EXEC ╱ // 0x247d @0x4
0x2479…2493 at0005 = ╱46╱F╱ // 0x247e @0x5
0x2479…2493 at0006 = ╱45╱E╱ // 0x247f @0x6
0x2479…2493 at0007 = ╱4a╱J╱ // 0x2480 @0x7
0x2479…2493 at0008 = ╱4c╱L╱ // 0x2481 @0x8
0x2479…2493 at0009 = ╱ed╱(╱ // 0x2482 @0x9
0x2479…2493 at000a = ╱57╱W╱ // 0x2483 @0xa
0x2479…2493 at000b = ╱ec╱,╱ // 0x2484 @0xb
0x2479…2493 at000c = ╱32╱2╱ // 0x2485 @0xc
0x2479…2493 at000d = ╱36╱6╱ // 0x2486 @0xd
0x2479…2493 at000e = ╱fe0000d005╱ // 0x2487 @0xe
0x2479…2493 at0013 = ╱ec╱,╱ // 0x248c @0x13
0x2479…2493 at0014 = ╱4b╱K╱ // 0x248d @0x14
0x2479…2493 at0015 = ╱31╱1╱ // 0x248e @0x15
0x2479…2493 at0016 = ╱34╱4╱ // 0x248f @0x16
0x2479…2493 at0017 = ╱ef╱$╱ // 0x2490 @0x17
0x2479…2493 at0018 = ╱ee╱)╱ // 0x2491 @0x18
0x2479…2493 at0019 = EOL // 0x2492 @0x19
0x2479…2493 }
0x2493…24f4 b24b 4040 GET K14$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x2493…24f4 LineComalBin {
0x2493…24f4 ptr = 0xb24b // 0x2493 @0x0
0x2493…24f4 lno = 0x0fc8 // 0x2495 @0x2
0x2493…24f4 at0004 = ╱a9╱ GET ╱ // 0x2497 @0x4
0x2493…24f4 at0005 = ╱4b╱K╱ // 0x2498 @0x5
0x2493…24f4 at0006 = ╱31╱1╱ // 0x2499 @0x6
0x2493…24f4 at0007 = ╱34╱4╱ // 0x249a @0x7
0x2493…24f4 at0008 = ╱ef╱$╱ // 0x249b @0x8
0x2493…24f4 at0009 = ╱ec╱,╱ // 0x249c @0x9
0x2493…24f4 at000a = ╱31╱1╱ // 0x249d @0xa
0x2493…24f4 at000b = ╱37╱7╱ // 0x249e @0xb
0x2493…24f4 at000c = ╱fe00008805╱ // 0x249f @0xc
0x2493…24f4 at0011 = ╱f0╱:╱ // 0x24a4 @0x11
0x2493…24f4 at0012 = ╱54╱T╱ // 0x24a5 @0x12
0x2493…24f4 at0013 = ╱33╱3╱ // 0x24a6 @0x13
0x2493…24f4 at0014 = ╱ed╱(╱ // 0x24a7 @0x14
0x2493…24f4 at0015 = ╱45╱E╱ // 0x24a8 @0x15
0x2493…24f4 at0016 = ╱ee╱)╱ // 0x24a9 @0x16
0x2493…24f4 at0017 = ╱ec╱,╱ // 0x24aa @0x17
0x2493…24f4 at0018 = ╱54╱T╱ // 0x24ab @0x18
0x2493…24f4 at0019 = ╱33╱3╱ // 0x24ac @0x19
0x2493…24f4 at001a = ╱ed╱(╱ // 0x24ad @0x1a
0x2493…24f4 at001b = ╱47╱G╱ // 0x24ae @0x1b
0x2493…24f4 at001c = ╱ee╱)╱ // 0x24af @0x1c
0x2493…24f4 at001d = ╱ec╱,╱ // 0x24b0 @0x1d
0x2493…24f4 at001e = ╱54╱T╱ // 0x24b1 @0x1e
0x2493…24f4 at001f = ╱33╱3╱ // 0x24b2 @0x1f
0x2493…24f4 at0020 = ╱ed╱(╱ // 0x24b3 @0x20
0x2493…24f4 at0021 = ╱56╱V╱ // 0x24b4 @0x21
0x2493…24f4 at0022 = ╱ee╱)╱ // 0x24b5 @0x22
0x2493…24f4 at0023 = ╱ec╱,╱ // 0x24b6 @0x23
0x2493…24f4 at0024 = ╱54╱T╱ // 0x24b7 @0x24
0x2493…24f4 at0025 = ╱33╱3╱ // 0x24b8 @0x25
0x2493…24f4 at0026 = ╱ed╱(╱ // 0x24b9 @0x26
0x2493…24f4 at0027 = ╱34╱4╱ // 0x24ba @0x27
0x2493…24f4 at0028 = ╱fe00008003╱ // 0x24bb @0x28
0x2493…24f4 at002d = ╱ee╱)╱ // 0x24c0 @0x2d
0x2493…24f4 at002e = ╱ec╱,╱ // 0x24c1 @0x2e
0x2493…24f4 at002f = ╱54╱T╱ // 0x24c2 @0x2f
0x2493…24f4 at0030 = ╱33╱3╱ // 0x24c3 @0x30
0x2493…24f4 at0031 = ╱ed╱(╱ // 0x24c4 @0x31
0x2493…24f4 at0032 = ╱35╱5╱ // 0x24c5 @0x32
0x2493…24f4 at0033 = ╱fe0000a003╱ // 0x24c6 @0x33
0x2493…24f4 at0038 = ╱ee╱)╱ // 0x24cb @0x38
0x2493…24f4 at0039 = ╱ec╱,╱ // 0x24cc @0x39
0x2493…24f4 at003a = ╱54╱T╱ // 0x24cd @0x3a
0x2493…24f4 at003b = ╱33╱3╱ // 0x24ce @0x3b
0x2493…24f4 at003c = ╱ed╱(╱ // 0x24cf @0x3c
0x2493…24f4 at003d = ╱36╱6╱ // 0x24d0 @0x3d
0x2493…24f4 at003e = ╱fe0000c003╱ // 0x24d1 @0x3e
0x2493…24f4 at0043 = ╱ee╱)╱ // 0x24d6 @0x43
0x2493…24f4 at0044 = ╱ec╱,╱ // 0x24d7 @0x44
0x2493…24f4 at0045 = ╱54╱T╱ // 0x24d8 @0x45
0x2493…24f4 at0046 = ╱33╱3╱ // 0x24d9 @0x46
0x2493…24f4 at0047 = ╱ed╱(╱ // 0x24da @0x47
0x2493…24f4 at0048 = ╱37╱7╱ // 0x24db @0x48
0x2493…24f4 at0049 = ╱fe0000e003╱ // 0x24dc @0x49
0x2493…24f4 at004e = ╱ee╱)╱ // 0x24e1 @0x4e
0x2493…24f4 at004f = ╱ec╱,╱ // 0x24e2 @0x4f
0x2493…24f4 at0050 = ╱54╱T╱ // 0x24e3 @0x50
0x2493…24f4 at0051 = ╱33╱3╱ // 0x24e4 @0x51
0x2493…24f4 at0052 = ╱ed╱(╱ // 0x24e5 @0x52
0x2493…24f4 at0053 = ╱38╱8╱ // 0x24e6 @0x53
0x2493…24f4 at0054 = ╱fe00008004╱ // 0x24e7 @0x54
0x2493…24f4 at0059 = ╱ee╱)╱ // 0x24ec @0x59
0x2493…24f4 at005a = ╱ec╱,╱ // 0x24ed @0x5a
0x2493…24f4 at005b = ╱54╱T╱ // 0x24ee @0x5b
0x2493…24f4 at005c = ╱33╱3╱ // 0x24ef @0x5c
0x2493…24f4 at005d = ╱ed╱(╱ // 0x24f0 @0x5d
0x2493…24f4 at005e = ╱57╱W╱ // 0x24f1 @0x5e
0x2493…24f4 at005f = ╱ee╱)╱ // 0x24f2 @0x5f
0x2493…24f4 at0060 = EOL // 0x24f3 @0x60
0x2493…24f4 }
0x24f4…250e b265 4050 EXEC FEJL(W,27,K14$)
0x24f4…250e LineComalBin {
0x24f4…250e ptr = 0xb265 // 0x24f4 @0x0
0x24f4…250e lno = 0x0fd2 // 0x24f6 @0x2
0x24f4…250e at0004 = ╱9d╱ EXEC ╱ // 0x24f8 @0x4
0x24f4…250e at0005 = ╱46╱F╱ // 0x24f9 @0x5
0x24f4…250e at0006 = ╱45╱E╱ // 0x24fa @0x6
0x24f4…250e at0007 = ╱4a╱J╱ // 0x24fb @0x7
0x24f4…250e at0008 = ╱4c╱L╱ // 0x24fc @0x8
0x24f4…250e at0009 = ╱ed╱(╱ // 0x24fd @0x9
0x24f4…250e at000a = ╱57╱W╱ // 0x24fe @0xa
0x24f4…250e at000b = ╱ec╱,╱ // 0x24ff @0xb
0x24f4…250e at000c = ╱32╱2╱ // 0x2500 @0xc
0x24f4…250e at000d = ╱37╱7╱ // 0x2501 @0xd
0x24f4…250e at000e = ╱fe0000d805╱ // 0x2502 @0xe
0x24f4…250e at0013 = ╱ec╱,╱ // 0x2507 @0x13
0x24f4…250e at0014 = ╱4b╱K╱ // 0x2508 @0x14
0x24f4…250e at0015 = ╱31╱1╱ // 0x2509 @0x15
0x24f4…250e at0016 = ╱34╱4╱ // 0x250a @0x16
0x24f4…250e at0017 = ╱ef╱$╱ // 0x250b @0x17
0x24f4…250e at0018 = ╱ee╱)╱ // 0x250c @0x18
0x24f4…250e at0019 = EOL // 0x250d @0x19
0x24f4…250e }
0x250e…2524 b27b 4051 GET K14$,20:DV$
0x250e…2524 LineComalBin {
0x250e…2524 ptr = 0xb27b // 0x250e @0x0
0x250e…2524 lno = 0x0fd3 // 0x2510 @0x2
0x250e…2524 at0004 = ╱a9╱ GET ╱ // 0x2512 @0x4
0x250e…2524 at0005 = ╱4b╱K╱ // 0x2513 @0x5
0x250e…2524 at0006 = ╱31╱1╱ // 0x2514 @0x6
0x250e…2524 at0007 = ╱34╱4╱ // 0x2515 @0x7
0x250e…2524 at0008 = ╱ef╱$╱ // 0x2516 @0x8
0x250e…2524 at0009 = ╱ec╱,╱ // 0x2517 @0x9
0x250e…2524 at000a = ╱32╱2╱ // 0x2518 @0xa
0x250e…2524 at000b = ╱30╱0╱ // 0x2519 @0xb
0x250e…2524 at000c = ╱fe0000a005╱ // 0x251a @0xc
0x250e…2524 at0011 = ╱f0╱:╱ // 0x251f @0x11
0x250e…2524 at0012 = ╱44╱D╱ // 0x2520 @0x12
0x250e…2524 at0013 = ╱56╱V╱ // 0x2521 @0x13
0x250e…2524 at0014 = ╱ef╱$╱ // 0x2522 @0x14
0x250e…2524 at0015 = EOL // 0x2523 @0x15
0x250e…2524 }
0x2524…2544 b29b 4052 EXEC FEJL(99,99,K14$)
0x2524…2544 LineComalBin {
0x2524…2544 ptr = 0xb29b // 0x2524 @0x0
0x2524…2544 lno = 0x0fd4 // 0x2526 @0x2
0x2524…2544 at0004 = ╱9d╱ EXEC ╱ // 0x2528 @0x4
0x2524…2544 at0005 = ╱46╱F╱ // 0x2529 @0x5
0x2524…2544 at0006 = ╱45╱E╱ // 0x252a @0x6
0x2524…2544 at0007 = ╱4a╱J╱ // 0x252b @0x7
0x2524…2544 at0008 = ╱4c╱L╱ // 0x252c @0x8
0x2524…2544 at0009 = ╱ed╱(╱ // 0x252d @0x9
0x2524…2544 at000a = ╱39╱9╱ // 0x252e @0xa
0x2524…2544 at000b = ╱39╱9╱ // 0x252f @0xb
0x2524…2544 at000c = ╱fe0000c607╱ // 0x2530 @0xc
0x2524…2544 at0011 = ╱ec╱,╱ // 0x2535 @0x11
0x2524…2544 at0012 = ╱39╱9╱ // 0x2536 @0x12
0x2524…2544 at0013 = ╱39╱9╱ // 0x2537 @0x13
0x2524…2544 at0014 = ╱fe0000c607╱ // 0x2538 @0x14
0x2524…2544 at0019 = ╱ec╱,╱ // 0x253d @0x19
0x2524…2544 at001a = ╱4b╱K╱ // 0x253e @0x1a
0x2524…2544 at001b = ╱31╱1╱ // 0x253f @0x1b
0x2524…2544 at001c = ╱34╱4╱ // 0x2540 @0x1c
0x2524…2544 at001d = ╱ef╱$╱ // 0x2541 @0x1d
0x2524…2544 at001e = ╱ee╱)╱ // 0x2542 @0x1e
0x2524…2544 at001f = EOL // 0x2543 @0x1f
0x2524…2544 }
0x2544…254e b2a5 4060 CLOSE K14$
0x2544…254e LineComalBin {
0x2544…254e ptr = 0xb2a5 // 0x2544 @0x0
0x2544…254e lno = 0x0fdc // 0x2546 @0x2
0x2544…254e at0004 = ╱a8╱ CLOSE ╱ // 0x2548 @0x4
0x2544…254e at0005 = ╱4b╱K╱ // 0x2549 @0x5
0x2544…254e at0006 = ╱31╱1╱ // 0x254a @0x6
0x2544…254e at0007 = ╱34╱4╱ // 0x254b @0x7
0x2544…254e at0008 = ╱ef╱$╱ // 0x254c @0x8
0x2544…254e at0009 = EOL // 0x254d @0x9
0x2544…254e }
0x254e…2568 b2bf 4070 EXEC FEJL(W,31,K14$)
0x254e…2568 LineComalBin {
0x254e…2568 ptr = 0xb2bf // 0x254e @0x0
0x254e…2568 lno = 0x0fe6 // 0x2550 @0x2
0x254e…2568 at0004 = ╱9d╱ EXEC ╱ // 0x2552 @0x4
0x254e…2568 at0005 = ╱46╱F╱ // 0x2553 @0x5
0x254e…2568 at0006 = ╱45╱E╱ // 0x2554 @0x6
0x254e…2568 at0007 = ╱4a╱J╱ // 0x2555 @0x7
0x254e…2568 at0008 = ╱4c╱L╱ // 0x2556 @0x8
0x254e…2568 at0009 = ╱ed╱(╱ // 0x2557 @0x9
0x254e…2568 at000a = ╱57╱W╱ // 0x2558 @0xa
0x254e…2568 at000b = ╱ec╱,╱ // 0x2559 @0xb
0x254e…2568 at000c = ╱33╱3╱ // 0x255a @0xc
0x254e…2568 at000d = ╱31╱1╱ // 0x255b @0xd
0x254e…2568 at000e = ╱fe0000f805╱ // 0x255c @0xe
0x254e…2568 at0013 = ╱ec╱,╱ // 0x2561 @0x13
0x254e…2568 at0014 = ╱4b╱K╱ // 0x2562 @0x14
0x254e…2568 at0015 = ╱31╱1╱ // 0x2563 @0x15
0x254e…2568 at0016 = ╱34╱4╱ // 0x2564 @0x16
0x254e…2568 at0017 = ╱ef╱$╱ // 0x2565 @0x17
0x254e…2568 at0018 = ╱ee╱)╱ // 0x2566 @0x18
0x254e…2568 at0019 = EOL // 0x2567 @0x19
0x254e…2568 }
0x2568…2574 b2cb 4080 OPEN K15$,R
0x2568…2574 LineComalBin {
0x2568…2574 ptr = 0xb2cb // 0x2568 @0x0
0x2568…2574 lno = 0x0ff0 // 0x256a @0x2
0x2568…2574 at0004 = ╱a7╱ OPEN ╱ // 0x256c @0x4
0x2568…2574 at0005 = ╱4b╱K╱ // 0x256d @0x5
0x2568…2574 at0006 = ╱31╱1╱ // 0x256e @0x6
0x2568…2574 at0007 = ╱35╱5╱ // 0x256f @0x7
0x2568…2574 at0008 = ╱ef╱$╱ // 0x2570 @0x8
0x2568…2574 at0009 = ╱ec╱,╱ // 0x2571 @0x9
0x2568…2574 at000a = ╱52╱R╱ // 0x2572 @0xa
0x2568…2574 at000b = EOL // 0x2573 @0xb
0x2568…2574 }
0x2574…258e b2e5 4090 EXEC FEJL(W,32,K15$)
0x2574…258e LineComalBin {
0x2574…258e ptr = 0xb2e5 // 0x2574 @0x0
0x2574…258e lno = 0x0ffa // 0x2576 @0x2
0x2574…258e at0004 = ╱9d╱ EXEC ╱ // 0x2578 @0x4
0x2574…258e at0005 = ╱46╱F╱ // 0x2579 @0x5
0x2574…258e at0006 = ╱45╱E╱ // 0x257a @0x6
0x2574…258e at0007 = ╱4a╱J╱ // 0x257b @0x7
0x2574…258e at0008 = ╱4c╱L╱ // 0x257c @0x8
0x2574…258e at0009 = ╱ed╱(╱ // 0x257d @0x9
0x2574…258e at000a = ╱57╱W╱ // 0x257e @0xa
0x2574…258e at000b = ╱ec╱,╱ // 0x257f @0xb
0x2574…258e at000c = ╱33╱3╱ // 0x2580 @0xc
0x2574…258e at000d = ╱32╱2╱ // 0x2581 @0xd
0x2574…258e at000e = ╱fe00008006╱ // 0x2582 @0xe
0x2574…258e at0013 = ╱ec╱,╱ // 0x2587 @0x13
0x2574…258e at0014 = ╱4b╱K╱ // 0x2588 @0x14
0x2574…258e at0015 = ╱31╱1╱ // 0x2589 @0x15
0x2574…258e at0016 = ╱35╱5╱ // 0x258a @0x16
0x2574…258e at0017 = ╱ef╱$╱ // 0x258b @0x17
0x2574…258e at0018 = ╱ee╱)╱ // 0x258c @0x18
0x2574…258e at0019 = EOL // 0x258d @0x19
0x2574…258e }
0x258e…259a b2f1 4100 OPEN K16$,R
0x258e…259a LineComalBin {
0x258e…259a ptr = 0xb2f1 // 0x258e @0x0
0x258e…259a lno = 0x1004 // 0x2590 @0x2
0x258e…259a at0004 = ╱a7╱ OPEN ╱ // 0x2592 @0x4
0x258e…259a at0005 = ╱4b╱K╱ // 0x2593 @0x5
0x258e…259a at0006 = ╱31╱1╱ // 0x2594 @0x6
0x258e…259a at0007 = ╱36╱6╱ // 0x2595 @0x7
0x258e…259a at0008 = ╱ef╱$╱ // 0x2596 @0x8
0x258e…259a at0009 = ╱ec╱,╱ // 0x2597 @0x9
0x258e…259a at000a = ╱52╱R╱ // 0x2598 @0xa
0x258e…259a at000b = EOL // 0x2599 @0xb
0x258e…259a }
0x259a…25b4 b30b 4110 EXEC FEJL(W,35,K16$)
0x259a…25b4 LineComalBin {
0x259a…25b4 ptr = 0xb30b // 0x259a @0x0
0x259a…25b4 lno = 0x100e // 0x259c @0x2
0x259a…25b4 at0004 = ╱9d╱ EXEC ╱ // 0x259e @0x4
0x259a…25b4 at0005 = ╱46╱F╱ // 0x259f @0x5
0x259a…25b4 at0006 = ╱45╱E╱ // 0x25a0 @0x6
0x259a…25b4 at0007 = ╱4a╱J╱ // 0x25a1 @0x7
0x259a…25b4 at0008 = ╱4c╱L╱ // 0x25a2 @0x8
0x259a…25b4 at0009 = ╱ed╱(╱ // 0x25a3 @0x9
0x259a…25b4 at000a = ╱57╱W╱ // 0x25a4 @0xa
0x259a…25b4 at000b = ╱ec╱,╱ // 0x25a5 @0xb
0x259a…25b4 at000c = ╱33╱3╱ // 0x25a6 @0xc
0x259a…25b4 at000d = ╱35╱5╱ // 0x25a7 @0xd
0x259a…25b4 at000e = ╱fe00008c06╱ // 0x25a8 @0xe
0x259a…25b4 at0013 = ╱ec╱,╱ // 0x25ad @0x13
0x259a…25b4 at0014 = ╱4b╱K╱ // 0x25ae @0x14
0x259a…25b4 at0015 = ╱31╱1╱ // 0x25af @0x15
0x259a…25b4 at0016 = ╱36╱6╱ // 0x25b0 @0x16
0x259a…25b4 at0017 = ╱ef╱$╱ // 0x25b1 @0x17
0x259a…25b4 at0018 = ╱ee╱)╱ // 0x25b2 @0x18
0x259a…25b4 at0019 = EOL // 0x25b3 @0x19
0x259a…25b4 }
0x25b4…25c0 b317 4120 OPEN K17$,R
0x25b4…25c0 LineComalBin {
0x25b4…25c0 ptr = 0xb317 // 0x25b4 @0x0
0x25b4…25c0 lno = 0x1018 // 0x25b6 @0x2
0x25b4…25c0 at0004 = ╱a7╱ OPEN ╱ // 0x25b8 @0x4
0x25b4…25c0 at0005 = ╱4b╱K╱ // 0x25b9 @0x5
0x25b4…25c0 at0006 = ╱31╱1╱ // 0x25ba @0x6
0x25b4…25c0 at0007 = ╱37╱7╱ // 0x25bb @0x7
0x25b4…25c0 at0008 = ╱ef╱$╱ // 0x25bc @0x8
0x25b4…25c0 at0009 = ╱ec╱,╱ // 0x25bd @0x9
0x25b4…25c0 at000a = ╱52╱R╱ // 0x25be @0xa
0x25b4…25c0 at000b = EOL // 0x25bf @0xb
0x25b4…25c0 }
0x25c0…25da b331 4130 EXEC FEJL(W,36,K17$)
0x25c0…25da LineComalBin {
0x25c0…25da ptr = 0xb331 // 0x25c0 @0x0
0x25c0…25da lno = 0x1022 // 0x25c2 @0x2
0x25c0…25da at0004 = ╱9d╱ EXEC ╱ // 0x25c4 @0x4
0x25c0…25da at0005 = ╱46╱F╱ // 0x25c5 @0x5
0x25c0…25da at0006 = ╱45╱E╱ // 0x25c6 @0x6
0x25c0…25da at0007 = ╱4a╱J╱ // 0x25c7 @0x7
0x25c0…25da at0008 = ╱4c╱L╱ // 0x25c8 @0x8
0x25c0…25da at0009 = ╱ed╱(╱ // 0x25c9 @0x9
0x25c0…25da at000a = ╱57╱W╱ // 0x25ca @0xa
0x25c0…25da at000b = ╱ec╱,╱ // 0x25cb @0xb
0x25c0…25da at000c = ╱33╱3╱ // 0x25cc @0xc
0x25c0…25da at000d = ╱36╱6╱ // 0x25cd @0xd
0x25c0…25da at000e = ╱fe00009006╱ // 0x25ce @0xe
0x25c0…25da at0013 = ╱ec╱,╱ // 0x25d3 @0x13
0x25c0…25da at0014 = ╱4b╱K╱ // 0x25d4 @0x14
0x25c0…25da at0015 = ╱31╱1╱ // 0x25d5 @0x15
0x25c0…25da at0016 = ╱37╱7╱ // 0x25d6 @0x16
0x25c0…25da at0017 = ╱ef╱$╱ // 0x25d7 @0x17
0x25c0…25da at0018 = ╱ee╱)╱ // 0x25d8 @0x18
0x25c0…25da at0019 = EOL // 0x25d9 @0x19
0x25c0…25da }
0x25da…261b b372 4140 DIM ETAB1(MEANTAL DIV 4),ENR(MUNKANT+METOT),EU$(MUNKANT+METOT)
0x25da…261b LineComalBin {
0x25da…261b ptr = 0xb372 // 0x25da @0x0
0x25da…261b lno = 0x102c // 0x25dc @0x2
0x25da…261b at0004 = ╱87╱ DIM ╱ // 0x25de @0x4
0x25da…261b at0005 = ╱45╱E╱ // 0x25df @0x5
0x25da…261b at0006 = ╱54╱T╱ // 0x25e0 @0x6
0x25da…261b at0007 = ╱41╱A╱ // 0x25e1 @0x7
0x25da…261b at0008 = ╱42╱B╱ // 0x25e2 @0x8
0x25da…261b at0009 = ╱31╱1╱ // 0x25e3 @0x9
0x25da…261b at000a = ╱ed╱(╱ // 0x25e4 @0xa
0x25da…261b at000b = ╱4d╱M╱ // 0x25e5 @0xb
0x25da…261b at000c = ╱45╱E╱ // 0x25e6 @0xc
0x25da…261b at000d = ╱41╱A╱ // 0x25e7 @0xd
0x25da…261b at000e = ╱4e╱N╱ // 0x25e8 @0xe
0x25da…261b at000f = ╱54╱T╱ // 0x25e9 @0xf
0x25da…261b at0010 = ╱41╱A╱ // 0x25ea @0x10
0x25da…261b at0011 = ╱4c╱L╱ // 0x25eb @0x11
0x25da…261b at0012 = ╱e7╱ DIV ╱ // 0x25ec @0x12
0x25da…261b at0013 = ╱34╱4╱ // 0x25ed @0x13
0x25da…261b at0014 = ╱fe00008003╱ // 0x25ee @0x14
0x25da…261b at0019 = ╱ee╱)╱ // 0x25f3 @0x19
0x25da…261b at001a = ╱ec╱,╱ // 0x25f4 @0x1a
0x25da…261b at001b = ╱45╱E╱ // 0x25f5 @0x1b
0x25da…261b at001c = ╱4e╱N╱ // 0x25f6 @0x1c
0x25da…261b at001d = ╱52╱R╱ // 0x25f7 @0x1d
0x25da…261b at001e = ╱ed╱(╱ // 0x25f8 @0x1e
0x25da…261b at001f = ╱4d╱M╱ // 0x25f9 @0x1f
0x25da…261b at0020 = ╱55╱U╱ // 0x25fa @0x20
0x25da…261b at0021 = ╱4e╱N╱ // 0x25fb @0x21
0x25da…261b at0022 = ╱4b╱K╱ // 0x25fc @0x22
0x25da…261b at0023 = ╱41╱A╱ // 0x25fd @0x23
0x25da…261b at0024 = ╱4e╱N╱ // 0x25fe @0x24
0x25da…261b at0025 = ╱54╱T╱ // 0x25ff @0x25
0x25da…261b at0026 = ╱e2╱+╱ // 0x2600 @0x26
0x25da…261b at0027 = ╱4d╱M╱ // 0x2601 @0x27
0x25da…261b at0028 = ╱45╱E╱ // 0x2602 @0x28
0x25da…261b at0029 = ╱54╱T╱ // 0x2603 @0x29
0x25da…261b at002a = ╱4f╱O╱ // 0x2604 @0x2a
0x25da…261b at002b = ╱54╱T╱ // 0x2605 @0x2b
0x25da…261b at002c = ╱ee╱)╱ // 0x2606 @0x2c
0x25da…261b at002d = ╱ec╱,╱ // 0x2607 @0x2d
0x25da…261b at002e = ╱45╱E╱ // 0x2608 @0x2e
0x25da…261b at002f = ╱55╱U╱ // 0x2609 @0x2f
0x25da…261b at0030 = ╱ef╱$╱ // 0x260a @0x30
0x25da…261b at0031 = ╱ed╱(╱ // 0x260b @0x31
0x25da…261b at0032 = ╱4d╱M╱ // 0x260c @0x32
0x25da…261b at0033 = ╱55╱U╱ // 0x260d @0x33
0x25da…261b at0034 = ╱4e╱N╱ // 0x260e @0x34
0x25da…261b at0035 = ╱4b╱K╱ // 0x260f @0x35
0x25da…261b at0036 = ╱41╱A╱ // 0x2610 @0x36
0x25da…261b at0037 = ╱4e╱N╱ // 0x2611 @0x37
0x25da…261b at0038 = ╱54╱T╱ // 0x2612 @0x38
0x25da…261b at0039 = ╱e2╱+╱ // 0x2613 @0x39
0x25da…261b at003a = ╱4d╱M╱ // 0x2614 @0x3a
0x25da…261b at003b = ╱45╱E╱ // 0x2615 @0x3b
0x25da…261b at003c = ╱54╱T╱ // 0x2616 @0x3c
0x25da…261b at003d = ╱4f╱O╱ // 0x2617 @0x3d
0x25da…261b at003e = ╱54╱T╱ // 0x2618 @0x3e
0x25da…261b at003f = ╱ee╱)╱ // 0x2619 @0x3f
0x25da…261b at0040 = EOL // 0x261a @0x40
0x25da…261b }
0x261b…2675 b3cc 4150 DIM HETAB(MEPOST DIV 40,G),ETAB(4,G),UNAVN$(MUNKANT+METOT,25),UETAB(4,G)
0x261b…2675 LineComalBin {
0x261b…2675 ptr = 0xb3cc // 0x261b @0x0
0x261b…2675 lno = 0x1036 // 0x261d @0x2
0x261b…2675 at0004 = ╱87╱ DIM ╱ // 0x261f @0x4
0x261b…2675 at0005 = ╱48╱H╱ // 0x2620 @0x5
0x261b…2675 at0006 = ╱45╱E╱ // 0x2621 @0x6
0x261b…2675 at0007 = ╱54╱T╱ // 0x2622 @0x7
0x261b…2675 at0008 = ╱41╱A╱ // 0x2623 @0x8
0x261b…2675 at0009 = ╱42╱B╱ // 0x2624 @0x9
0x261b…2675 at000a = ╱ed╱(╱ // 0x2625 @0xa
0x261b…2675 at000b = ╱4d╱M╱ // 0x2626 @0xb
0x261b…2675 at000c = ╱45╱E╱ // 0x2627 @0xc
0x261b…2675 at000d = ╱50╱P╱ // 0x2628 @0xd
0x261b…2675 at000e = ╱4f╱O╱ // 0x2629 @0xe
0x261b…2675 at000f = ╱53╱S╱ // 0x262a @0xf
0x261b…2675 at0010 = ╱54╱T╱ // 0x262b @0x10
0x261b…2675 at0011 = ╱e7╱ DIV ╱ // 0x262c @0x11
0x261b…2675 at0012 = ╱34╱4╱ // 0x262d @0x12
0x261b…2675 at0013 = ╱30╱0╱ // 0x262e @0x13
0x261b…2675 at0014 = ╱fe0000a006╱ // 0x262f @0x14
0x261b…2675 at0019 = ╱ec╱,╱ // 0x2634 @0x19
0x261b…2675 at001a = ╱47╱G╱ // 0x2635 @0x1a
0x261b…2675 at001b = ╱ee╱)╱ // 0x2636 @0x1b
0x261b…2675 at001c = ╱ec╱,╱ // 0x2637 @0x1c
0x261b…2675 at001d = ╱45╱E╱ // 0x2638 @0x1d
0x261b…2675 at001e = ╱54╱T╱ // 0x2639 @0x1e
0x261b…2675 at001f = ╱41╱A╱ // 0x263a @0x1f
0x261b…2675 at0020 = ╱42╱B╱ // 0x263b @0x20
0x261b…2675 at0021 = ╱ed╱(╱ // 0x263c @0x21
0x261b…2675 at0022 = ╱34╱4╱ // 0x263d @0x22
0x261b…2675 at0023 = ╱fe00008003╱ // 0x263e @0x23
0x261b…2675 at0028 = ╱ec╱,╱ // 0x2643 @0x28
0x261b…2675 at0029 = ╱47╱G╱ // 0x2644 @0x29
0x261b…2675 at002a = ╱ee╱)╱ // 0x2645 @0x2a
0x261b…2675 at002b = ╱ec╱,╱ // 0x2646 @0x2b
0x261b…2675 at002c = ╱55╱U╱ // 0x2647 @0x2c
0x261b…2675 at002d = ╱4e╱N╱ // 0x2648 @0x2d
0x261b…2675 at002e = ╱41╱A╱ // 0x2649 @0x2e
0x261b…2675 at002f = ╱56╱V╱ // 0x264a @0x2f
0x261b…2675 at0030 = ╱4e╱N╱ // 0x264b @0x30
0x261b…2675 at0031 = ╱ef╱$╱ // 0x264c @0x31
0x261b…2675 at0032 = ╱ed╱(╱ // 0x264d @0x32
0x261b…2675 at0033 = ╱4d╱M╱ // 0x264e @0x33
0x261b…2675 at0034 = ╱55╱U╱ // 0x264f @0x34
0x261b…2675 at0035 = ╱4e╱N╱ // 0x2650 @0x35
0x261b…2675 at0036 = ╱4b╱K╱ // 0x2651 @0x36
0x261b…2675 at0037 = ╱41╱A╱ // 0x2652 @0x37
0x261b…2675 at0038 = ╱4e╱N╱ // 0x2653 @0x38
0x261b…2675 at0039 = ╱54╱T╱ // 0x2654 @0x39
0x261b…2675 at003a = ╱e2╱+╱ // 0x2655 @0x3a
0x261b…2675 at003b = ╱4d╱M╱ // 0x2656 @0x3b
0x261b…2675 at003c = ╱45╱E╱ // 0x2657 @0x3c
0x261b…2675 at003d = ╱54╱T╱ // 0x2658 @0x3d
0x261b…2675 at003e = ╱4f╱O╱ // 0x2659 @0x3e
0x261b…2675 at003f = ╱54╱T╱ // 0x265a @0x3f
0x261b…2675 at0040 = ╱ec╱,╱ // 0x265b @0x40
0x261b…2675 at0041 = ╱32╱2╱ // 0x265c @0x41
0x261b…2675 at0042 = ╱35╱5╱ // 0x265d @0x42
0x261b…2675 at0043 = ╱fe0000c805╱ // 0x265e @0x43
0x261b…2675 at0048 = ╱ee╱)╱ // 0x2663 @0x48
0x261b…2675 at0049 = ╱ec╱,╱ // 0x2664 @0x49
0x261b…2675 at004a = ╱55╱U╱ // 0x2665 @0x4a
0x261b…2675 at004b = ╱45╱E╱ // 0x2666 @0x4b
0x261b…2675 at004c = ╱54╱T╱ // 0x2667 @0x4c
0x261b…2675 at004d = ╱41╱A╱ // 0x2668 @0x4d
0x261b…2675 at004e = ╱42╱B╱ // 0x2669 @0x4e
0x261b…2675 at004f = ╱ed╱(╱ // 0x266a @0x4f
0x261b…2675 at0050 = ╱34╱4╱ // 0x266b @0x50
0x261b…2675 at0051 = ╱fe00008003╱ // 0x266c @0x51
0x261b…2675 at0056 = ╱ec╱,╱ // 0x2671 @0x56
0x261b…2675 at0057 = ╱47╱G╱ // 0x2672 @0x57
0x261b…2675 at0058 = ╱ee╱)╱ // 0x2673 @0x58
0x261b…2675 at0059 = EOL // 0x2674 @0x59
0x261b…2675 }
0x2675…2696 b3ed 4160 EXEC INDTAB1(ETAB1,MEANTAL,K16$)
0x2675…2696 LineComalBin {
0x2675…2696 ptr = 0xb3ed // 0x2675 @0x0
0x2675…2696 lno = 0x1040 // 0x2677 @0x2
0x2675…2696 at0004 = ╱9d╱ EXEC ╱ // 0x2679 @0x4
0x2675…2696 at0005 = ╱49╱I╱ // 0x267a @0x5
0x2675…2696 at0006 = ╱4e╱N╱ // 0x267b @0x6
0x2675…2696 at0007 = ╱44╱D╱ // 0x267c @0x7
0x2675…2696 at0008 = ╱54╱T╱ // 0x267d @0x8
0x2675…2696 at0009 = ╱41╱A╱ // 0x267e @0x9
0x2675…2696 at000a = ╱42╱B╱ // 0x267f @0xa
0x2675…2696 at000b = ╱31╱1╱ // 0x2680 @0xb
0x2675…2696 at000c = ╱ed╱(╱ // 0x2681 @0xc
0x2675…2696 at000d = ╱45╱E╱ // 0x2682 @0xd
0x2675…2696 at000e = ╱54╱T╱ // 0x2683 @0xe
0x2675…2696 at000f = ╱41╱A╱ // 0x2684 @0xf
0x2675…2696 at0010 = ╱42╱B╱ // 0x2685 @0x10
0x2675…2696 at0011 = ╱31╱1╱ // 0x2686 @0x11
0x2675…2696 at0012 = ╱ec╱,╱ // 0x2687 @0x12
0x2675…2696 at0013 = ╱4d╱M╱ // 0x2688 @0x13
0x2675…2696 at0014 = ╱45╱E╱ // 0x2689 @0x14
0x2675…2696 at0015 = ╱41╱A╱ // 0x268a @0x15
0x2675…2696 at0016 = ╱4e╱N╱ // 0x268b @0x16
0x2675…2696 at0017 = ╱54╱T╱ // 0x268c @0x17
0x2675…2696 at0018 = ╱41╱A╱ // 0x268d @0x18
0x2675…2696 at0019 = ╱4c╱L╱ // 0x268e @0x19
0x2675…2696 at001a = ╱ec╱,╱ // 0x268f @0x1a
0x2675…2696 at001b = ╱4b╱K╱ // 0x2690 @0x1b
0x2675…2696 at001c = ╱31╱1╱ // 0x2691 @0x1c
0x2675…2696 at001d = ╱36╱6╱ // 0x2692 @0x1d
0x2675…2696 at001e = ╱ef╱$╱ // 0x2693 @0x1e
0x2675…2696 at001f = ╱ee╱)╱ // 0x2694 @0x1f
0x2675…2696 at0020 = EOL // 0x2695 @0x20
0x2675…2696 }
0x2696…26b5 b40c 4170 EXEC HOVIND(K19$,MEPOST,HETAB)
0x2696…26b5 LineComalBin {
0x2696…26b5 ptr = 0xb40c // 0x2696 @0x0
0x2696…26b5 lno = 0x104a // 0x2698 @0x2
0x2696…26b5 at0004 = ╱9d╱ EXEC ╱ // 0x269a @0x4
0x2696…26b5 at0005 = ╱48╱H╱ // 0x269b @0x5
0x2696…26b5 at0006 = ╱4f╱O╱ // 0x269c @0x6
0x2696…26b5 at0007 = ╱56╱V╱ // 0x269d @0x7
0x2696…26b5 at0008 = ╱49╱I╱ // 0x269e @0x8
0x2696…26b5 at0009 = ╱4e╱N╱ // 0x269f @0x9
0x2696…26b5 at000a = ╱44╱D╱ // 0x26a0 @0xa
0x2696…26b5 at000b = ╱ed╱(╱ // 0x26a1 @0xb
0x2696…26b5 at000c = ╱4b╱K╱ // 0x26a2 @0xc
0x2696…26b5 at000d = ╱31╱1╱ // 0x26a3 @0xd
0x2696…26b5 at000e = ╱39╱9╱ // 0x26a4 @0xe
0x2696…26b5 at000f = ╱ef╱$╱ // 0x26a5 @0xf
0x2696…26b5 at0010 = ╱ec╱,╱ // 0x26a6 @0x10
0x2696…26b5 at0011 = ╱4d╱M╱ // 0x26a7 @0x11
0x2696…26b5 at0012 = ╱45╱E╱ // 0x26a8 @0x12
0x2696…26b5 at0013 = ╱50╱P╱ // 0x26a9 @0x13
0x2696…26b5 at0014 = ╱4f╱O╱ // 0x26aa @0x14
0x2696…26b5 at0015 = ╱53╱S╱ // 0x26ab @0x15
0x2696…26b5 at0016 = ╱54╱T╱ // 0x26ac @0x16
0x2696…26b5 at0017 = ╱ec╱,╱ // 0x26ad @0x17
0x2696…26b5 at0018 = ╱48╱H╱ // 0x26ae @0x18
0x2696…26b5 at0019 = ╱45╱E╱ // 0x26af @0x19
0x2696…26b5 at001a = ╱54╱T╱ // 0x26b0 @0x1a
0x2696…26b5 at001b = ╱41╱A╱ // 0x26b1 @0x1b
0x2696…26b5 at001c = ╱42╱B╱ // 0x26b2 @0x1c
0x2696…26b5 at001d = ╱ee╱)╱ // 0x26b3 @0x1d
0x2696…26b5 at001e = EOL // 0x26b4 @0x1e
0x2696…26b5 }
0x26b5…26cc b423 4180 FOR X=E TO MUNKANT+METOT
0x26b5…26cc LineComalBin {
0x26b5…26cc ptr = 0xb423 // 0x26b5 @0x0
0x26b5…26cc lno = 0x1054 // 0x26b7 @0x2
0x26b5…26cc at0004 = ╱83╱ FOR ╱ // 0x26b9 @0x4
0x26b5…26cc at0005 = ╱58╱X╱ // 0x26ba @0x5
0x26b5…26cc at0006 = ╱dc╱=╱ // 0x26bb @0x6
0x26b5…26cc at0007 = ╱45╱E╱ // 0x26bc @0x7
0x26b5…26cc at0008 = ╱b7╱ TO ╱ // 0x26bd @0x8
0x26b5…26cc at0009 = ╱4d╱M╱ // 0x26be @0x9
0x26b5…26cc at000a = ╱55╱U╱ // 0x26bf @0xa
0x26b5…26cc at000b = ╱4e╱N╱ // 0x26c0 @0xb
0x26b5…26cc at000c = ╱4b╱K╱ // 0x26c1 @0xc
0x26b5…26cc at000d = ╱41╱A╱ // 0x26c2 @0xd
0x26b5…26cc at000e = ╱4e╱N╱ // 0x26c3 @0xe
0x26b5…26cc at000f = ╱54╱T╱ // 0x26c4 @0xf
0x26b5…26cc at0010 = ╱e2╱+╱ // 0x26c5 @0x10
0x26b5…26cc at0011 = ╱4d╱M╱ // 0x26c6 @0x11
0x26b5…26cc at0012 = ╱45╱E╱ // 0x26c7 @0x12
0x26b5…26cc at0013 = ╱54╱T╱ // 0x26c8 @0x13
0x26b5…26cc at0014 = ╱4f╱O╱ // 0x26c9 @0x14
0x26b5…26cc at0015 = ╱54╱T╱ // 0x26ca @0x15
0x26b5…26cc at0016 = EOL // 0x26cb @0x16
0x26b5…26cc }
0x26cc…26f0 b447 4190 GET K17$,X:ENR(X),EU$(X),UNAVN$(X)
0x26cc…26f0 LineComalBin {
0x26cc…26f0 ptr = 0xb447 // 0x26cc @0x0
0x26cc…26f0 lno = 0x105e // 0x26ce @0x2
0x26cc…26f0 at0004 = ╱a9╱ GET ╱ // 0x26d0 @0x4
0x26cc…26f0 at0005 = ╱4b╱K╱ // 0x26d1 @0x5
0x26cc…26f0 at0006 = ╱31╱1╱ // 0x26d2 @0x6
0x26cc…26f0 at0007 = ╱37╱7╱ // 0x26d3 @0x7
0x26cc…26f0 at0008 = ╱ef╱$╱ // 0x26d4 @0x8
0x26cc…26f0 at0009 = ╱ec╱,╱ // 0x26d5 @0x9
0x26cc…26f0 at000a = ╱58╱X╱ // 0x26d6 @0xa
0x26cc…26f0 at000b = ╱f0╱:╱ // 0x26d7 @0xb
0x26cc…26f0 at000c = ╱45╱E╱ // 0x26d8 @0xc
0x26cc…26f0 at000d = ╱4e╱N╱ // 0x26d9 @0xd
0x26cc…26f0 at000e = ╱52╱R╱ // 0x26da @0xe
0x26cc…26f0 at000f = ╱ed╱(╱ // 0x26db @0xf
0x26cc…26f0 at0010 = ╱58╱X╱ // 0x26dc @0x10
0x26cc…26f0 at0011 = ╱ee╱)╱ // 0x26dd @0x11
0x26cc…26f0 at0012 = ╱ec╱,╱ // 0x26de @0x12
0x26cc…26f0 at0013 = ╱45╱E╱ // 0x26df @0x13
0x26cc…26f0 at0014 = ╱55╱U╱ // 0x26e0 @0x14
0x26cc…26f0 at0015 = ╱ef╱$╱ // 0x26e1 @0x15
0x26cc…26f0 at0016 = ╱ed╱(╱ // 0x26e2 @0x16
0x26cc…26f0 at0017 = ╱58╱X╱ // 0x26e3 @0x17
0x26cc…26f0 at0018 = ╱ee╱)╱ // 0x26e4 @0x18
0x26cc…26f0 at0019 = ╱ec╱,╱ // 0x26e5 @0x19
0x26cc…26f0 at001a = ╱55╱U╱ // 0x26e6 @0x1a
0x26cc…26f0 at001b = ╱4e╱N╱ // 0x26e7 @0x1b
0x26cc…26f0 at001c = ╱41╱A╱ // 0x26e8 @0x1c
0x26cc…26f0 at001d = ╱56╱V╱ // 0x26e9 @0x1d
0x26cc…26f0 at001e = ╱4e╱N╱ // 0x26ea @0x1e
0x26cc…26f0 at001f = ╱ef╱$╱ // 0x26eb @0x1f
0x26cc…26f0 at0020 = ╱ed╱(╱ // 0x26ec @0x20
0x26cc…26f0 at0021 = ╱58╱X╱ // 0x26ed @0x21
0x26cc…26f0 at0022 = ╱ee╱)╱ // 0x26ee @0x22
0x26cc…26f0 at0023 = EOL // 0x26ef @0x23
0x26cc…26f0 }
0x26f0…270a b461 4200 EXEC FEJL(W,39,K17$)
0x26f0…270a LineComalBin {
0x26f0…270a ptr = 0xb461 // 0x26f0 @0x0
0x26f0…270a lno = 0x1068 // 0x26f2 @0x2
0x26f0…270a at0004 = ╱9d╱ EXEC ╱ // 0x26f4 @0x4
0x26f0…270a at0005 = ╱46╱F╱ // 0x26f5 @0x5
0x26f0…270a at0006 = ╱45╱E╱ // 0x26f6 @0x6
0x26f0…270a at0007 = ╱4a╱J╱ // 0x26f7 @0x7
0x26f0…270a at0008 = ╱4c╱L╱ // 0x26f8 @0x8
0x26f0…270a at0009 = ╱ed╱(╱ // 0x26f9 @0x9
0x26f0…270a at000a = ╱57╱W╱ // 0x26fa @0xa
0x26f0…270a at000b = ╱ec╱,╱ // 0x26fb @0xb
0x26f0…270a at000c = ╱33╱3╱ // 0x26fc @0xc
0x26f0…270a at000d = ╱39╱9╱ // 0x26fd @0xd
0x26f0…270a at000e = ╱fe00009c06╱ // 0x26fe @0xe
0x26f0…270a at0013 = ╱ec╱,╱ // 0x2703 @0x13
0x26f0…270a at0014 = ╱4b╱K╱ // 0x2704 @0x14
0x26f0…270a at0015 = ╱31╱1╱ // 0x2705 @0x15
0x26f0…270a at0016 = ╱37╱7╱ // 0x2706 @0x16
0x26f0…270a at0017 = ╱ef╱$╱ // 0x2707 @0x17
0x26f0…270a at0018 = ╱ee╱)╱ // 0x2708 @0x18
0x26f0…270a at0019 = EOL // 0x2709 @0x19
0x26f0…270a }
0x270a…2711 b468 4210 NEXT X
0x270a…2711 LineComalBin {
0x270a…2711 ptr = 0xb468 // 0x270a @0x0
0x270a…2711 lno = 0x1072 // 0x270c @0x2
0x270a…2711 at0004 = ╱84╱ NEXT ╱ // 0x270e @0x4
0x270a…2711 at0005 = ╱58╱X╱ // 0x270f @0x5
0x270a…2711 at0006 = EOL // 0x2710 @0x6
0x270a…2711 }
0x2711…273c b493 4220 LTX$(E)="Indtast kontonr. (0:færdig):"
0x2711…273c LineComalBin {
0x2711…273c ptr = 0xb493 // 0x2711 @0x0
0x2711…273c lno = 0x107c // 0x2713 @0x2
0x2711…273c at0004 = ╱4c╱L╱ // 0x2715 @0x4
0x2711…273c at0005 = ╱54╱T╱ // 0x2716 @0x5
0x2711…273c at0006 = ╱58╱X╱ // 0x2717 @0x6
0x2711…273c at0007 = ╱ef╱$╱ // 0x2718 @0x7
0x2711…273c at0008 = ╱ed╱(╱ // 0x2719 @0x8
0x2711…273c at0009 = ╱45╱E╱ // 0x271a @0x9
0x2711…273c at000a = ╱ee╱)╱ // 0x271b @0xa
0x2711…273c at000b = ╱dc╱=╱ // 0x271c @0xb
0x2711…273c at000c = ╱22╱"╱ // 0x271d @0xc
0x2711…273c at000d = ╱49╱I╱ // 0x271e @0xd
0x2711…273c at000e = ╱6e╱n╱ // 0x271f @0xe
0x2711…273c at000f = ╱64╱d╱ // 0x2720 @0xf
0x2711…273c at0010 = ╱74╱t╱ // 0x2721 @0x10
0x2711…273c at0011 = ╱61╱a╱ // 0x2722 @0x11
0x2711…273c at0012 = ╱73╱s╱ // 0x2723 @0x12
0x2711…273c at0013 = ╱74╱t╱ // 0x2724 @0x13
0x2711…273c at0014 = ╱20╱…╱ // 0x2725 @0x14
0x2711…273c at0015 = ╱6b╱k╱ // 0x2726 @0x15
0x2711…273c at0016 = ╱6f╱o╱ // 0x2727 @0x16
0x2711…273c at0017 = ╱6e╱n╱ // 0x2728 @0x17
0x2711…273c at0018 = ╱74╱t╱ // 0x2729 @0x18
0x2711…273c at0019 = ╱6f╱o╱ // 0x272a @0x19
0x2711…273c at001a = ╱6e╱n╱ // 0x272b @0x1a
0x2711…273c at001b = ╱72╱r╱ // 0x272c @0x1b
0x2711…273c at001c = ╱2e╱.╱ // 0x272d @0x1c
0x2711…273c at001d = ╱20╱…╱ // 0x272e @0x1d
0x2711…273c at001e = ╱28╱(╱ // 0x272f @0x1e
0x2711…273c at001f = ╱30╱0╱ // 0x2730 @0x1f
0x2711…273c at0020 = ╱3a╱:╱ // 0x2731 @0x20
0x2711…273c at0021 = ╱66╱f╱ // 0x2732 @0x21
0x2711…273c at0022 = ╱7b╱æ╱ // 0x2733 @0x22
0x2711…273c at0023 = ╱72╱r╱ // 0x2734 @0x23
0x2711…273c at0024 = ╱64╱d╱ // 0x2735 @0x24
0x2711…273c at0025 = ╱69╱i╱ // 0x2736 @0x25
0x2711…273c at0026 = ╱67╱g╱ // 0x2737 @0x26
0x2711…273c at0027 = ╱29╱)╱ // 0x2738 @0x27
0x2711…273c at0028 = ╱3a╱:╱ // 0x2739 @0x28
0x2711…273c at0029 = ╱22╱"╱ // 0x273a @0x29
0x2711…273c at002a = EOL // 0x273b @0x2a
0x2711…273c }
0x273c…275d b4b4 4230 LTX$(G)="Rigtig konto (J/N)"
0x273c…275d LineComalBin {
0x273c…275d ptr = 0xb4b4 // 0x273c @0x0
0x273c…275d lno = 0x1086 // 0x273e @0x2
0x273c…275d at0004 = ╱4c╱L╱ // 0x2740 @0x4
0x273c…275d at0005 = ╱54╱T╱ // 0x2741 @0x5
0x273c…275d at0006 = ╱58╱X╱ // 0x2742 @0x6
0x273c…275d at0007 = ╱ef╱$╱ // 0x2743 @0x7
0x273c…275d at0008 = ╱ed╱(╱ // 0x2744 @0x8
0x273c…275d at0009 = ╱47╱G╱ // 0x2745 @0x9
0x273c…275d at000a = ╱ee╱)╱ // 0x2746 @0xa
0x273c…275d at000b = ╱dc╱=╱ // 0x2747 @0xb
0x273c…275d at000c = ╱22╱"╱ // 0x2748 @0xc
0x273c…275d at000d = ╱52╱R╱ // 0x2749 @0xd
0x273c…275d at000e = ╱69╱i╱ // 0x274a @0xe
0x273c…275d at000f = ╱67╱g╱ // 0x274b @0xf
0x273c…275d at0010 = ╱74╱t╱ // 0x274c @0x10
0x273c…275d at0011 = ╱69╱i╱ // 0x274d @0x11
0x273c…275d at0012 = ╱67╱g╱ // 0x274e @0x12
0x273c…275d at0013 = ╱20╱…╱ // 0x274f @0x13
0x273c…275d at0014 = ╱6b╱k╱ // 0x2750 @0x14
0x273c…275d at0015 = ╱6f╱o╱ // 0x2751 @0x15
0x273c…275d at0016 = ╱6e╱n╱ // 0x2752 @0x16
0x273c…275d at0017 = ╱74╱t╱ // 0x2753 @0x17
0x273c…275d at0018 = ╱6f╱o╱ // 0x2754 @0x18
0x273c…275d at0019 = ╱20╱…╱ // 0x2755 @0x19
0x273c…275d at001a = ╱28╱(╱ // 0x2756 @0x1a
0x273c…275d at001b = ╱4a╱J╱ // 0x2757 @0x1b
0x273c…275d at001c = ╱2f╱/╱ // 0x2758 @0x1c
0x273c…275d at001d = ╱4e╱N╱ // 0x2759 @0x1d
0x273c…275d at001e = ╱29╱)╱ // 0x275a @0x1e
0x273c…275d at001f = ╱22╱"╱ // 0x275b @0x1f
0x273c…275d at0020 = EOL // 0x275c @0x20
0x273c…275d }
0x275d…278e b4e5 4240 LTX$(V)="Konto eksisterer ikke, tast RETURN"
0x275d…278e LineComalBin {
0x275d…278e ptr = 0xb4e5 // 0x275d @0x0
0x275d…278e lno = 0x1090 // 0x275f @0x2
0x275d…278e at0004 = ╱4c╱L╱ // 0x2761 @0x4
0x275d…278e at0005 = ╱54╱T╱ // 0x2762 @0x5
0x275d…278e at0006 = ╱58╱X╱ // 0x2763 @0x6
0x275d…278e at0007 = ╱ef╱$╱ // 0x2764 @0x7
0x275d…278e at0008 = ╱ed╱(╱ // 0x2765 @0x8
0x275d…278e at0009 = ╱56╱V╱ // 0x2766 @0x9
0x275d…278e at000a = ╱ee╱)╱ // 0x2767 @0xa
0x275d…278e at000b = ╱dc╱=╱ // 0x2768 @0xb
0x275d…278e at000c = ╱22╱"╱ // 0x2769 @0xc
0x275d…278e at000d = ╱4b╱K╱ // 0x276a @0xd
0x275d…278e at000e = ╱6f╱o╱ // 0x276b @0xe
0x275d…278e at000f = ╱6e╱n╱ // 0x276c @0xf
0x275d…278e at0010 = ╱74╱t╱ // 0x276d @0x10
0x275d…278e at0011 = ╱6f╱o╱ // 0x276e @0x11
0x275d…278e at0012 = ╱20╱…╱ // 0x276f @0x12
0x275d…278e at0013 = ╱65╱e╱ // 0x2770 @0x13
0x275d…278e at0014 = ╱6b╱k╱ // 0x2771 @0x14
0x275d…278e at0015 = ╱73╱s╱ // 0x2772 @0x15
0x275d…278e at0016 = ╱69╱i╱ // 0x2773 @0x16
0x275d…278e at0017 = ╱73╱s╱ // 0x2774 @0x17
0x275d…278e at0018 = ╱74╱t╱ // 0x2775 @0x18
0x275d…278e at0019 = ╱65╱e╱ // 0x2776 @0x19
0x275d…278e at001a = ╱72╱r╱ // 0x2777 @0x1a
0x275d…278e at001b = ╱65╱e╱ // 0x2778 @0x1b
0x275d…278e at001c = ╱72╱r╱ // 0x2779 @0x1c
0x275d…278e at001d = ╱20╱…╱ // 0x277a @0x1d
0x275d…278e at001e = ╱69╱i╱ // 0x277b @0x1e
0x275d…278e at001f = ╱6b╱k╱ // 0x277c @0x1f
0x275d…278e at0020 = ╱6b╱k╱ // 0x277d @0x20
0x275d…278e at0021 = ╱65╱e╱ // 0x277e @0x21
0x275d…278e at0022 = ╱2c╱,╱ // 0x277f @0x22
0x275d…278e at0023 = ╱20╱…╱ // 0x2780 @0x23
0x275d…278e at0024 = ╱74╱t╱ // 0x2781 @0x24
0x275d…278e at0025 = ╱61╱a╱ // 0x2782 @0x25
0x275d…278e at0026 = ╱73╱s╱ // 0x2783 @0x26
0x275d…278e at0027 = ╱74╱t╱ // 0x2784 @0x27
0x275d…278e at0028 = ╱20╱…╱ // 0x2785 @0x28
0x275d…278e at0029 = ╱52╱R╱ // 0x2786 @0x29
0x275d…278e at002a = ╱45╱E╱ // 0x2787 @0x2a
0x275d…278e at002b = ╱54╱T╱ // 0x2788 @0x2b
0x275d…278e at002c = ╱55╱U╱ // 0x2789 @0x2c
0x275d…278e at002d = ╱52╱R╱ // 0x278a @0x2d
0x275d…278e at002e = ╱4e╱N╱ // 0x278b @0x2e
0x275d…278e at002f = ╱22╱"╱ // 0x278c @0x2f
0x275d…278e at0030 = EOL // 0x278d @0x30
0x275d…278e }
0x278e…27c2 b519 4250 LTX$(4)="Tast RETURN når sideskift ønskes"
0x278e…27c2 LineComalBin {
0x278e…27c2 ptr = 0xb519 // 0x278e @0x0
0x278e…27c2 lno = 0x109a // 0x2790 @0x2
0x278e…27c2 at0004 = ╱4c╱L╱ // 0x2792 @0x4
0x278e…27c2 at0005 = ╱54╱T╱ // 0x2793 @0x5
0x278e…27c2 at0006 = ╱58╱X╱ // 0x2794 @0x6
0x278e…27c2 at0007 = ╱ef╱$╱ // 0x2795 @0x7
0x278e…27c2 at0008 = ╱ed╱(╱ // 0x2796 @0x8
0x278e…27c2 at0009 = ╱34╱4╱ // 0x2797 @0x9
0x278e…27c2 at000a = ╱fe00008003╱ // 0x2798 @0xa
0x278e…27c2 at000f = ╱ee╱)╱ // 0x279d @0xf
0x278e…27c2 at0010 = ╱dc╱=╱ // 0x279e @0x10
0x278e…27c2 at0011 = ╱22╱"╱ // 0x279f @0x11
0x278e…27c2 at0012 = ╱54╱T╱ // 0x27a0 @0x12
0x278e…27c2 at0013 = ╱61╱a╱ // 0x27a1 @0x13
0x278e…27c2 at0014 = ╱73╱s╱ // 0x27a2 @0x14
0x278e…27c2 at0015 = ╱74╱t╱ // 0x27a3 @0x15
0x278e…27c2 at0016 = ╱20╱…╱ // 0x27a4 @0x16
0x278e…27c2 at0017 = ╱52╱R╱ // 0x27a5 @0x17
0x278e…27c2 at0018 = ╱45╱E╱ // 0x27a6 @0x18
0x278e…27c2 at0019 = ╱54╱T╱ // 0x27a7 @0x19
0x278e…27c2 at001a = ╱55╱U╱ // 0x27a8 @0x1a
0x278e…27c2 at001b = ╱52╱R╱ // 0x27a9 @0x1b
0x278e…27c2 at001c = ╱4e╱N╱ // 0x27aa @0x1c
0x278e…27c2 at001d = ╱20╱…╱ // 0x27ab @0x1d
0x278e…27c2 at001e = ╱6e╱n╱ // 0x27ac @0x1e
0x278e…27c2 at001f = ╱7d╱å╱ // 0x27ad @0x1f
0x278e…27c2 at0020 = ╱72╱r╱ // 0x27ae @0x20
0x278e…27c2 at0021 = ╱20╱…╱ // 0x27af @0x21
0x278e…27c2 at0022 = ╱73╱s╱ // 0x27b0 @0x22
0x278e…27c2 at0023 = ╱69╱i╱ // 0x27b1 @0x23
0x278e…27c2 at0024 = ╱64╱d╱ // 0x27b2 @0x24
0x278e…27c2 at0025 = ╱65╱e╱ // 0x27b3 @0x25
0x278e…27c2 at0026 = ╱73╱s╱ // 0x27b4 @0x26
0x278e…27c2 at0027 = ╱6b╱k╱ // 0x27b5 @0x27
0x278e…27c2 at0028 = ╱69╱i╱ // 0x27b6 @0x28
0x278e…27c2 at0029 = ╱66╱f╱ // 0x27b7 @0x29
0x278e…27c2 at002a = ╱74╱t╱ // 0x27b8 @0x2a
0x278e…27c2 at002b = ╱20╱…╱ // 0x27b9 @0x2b
0x278e…27c2 at002c = ╱7c╱ø╱ // 0x27ba @0x2c
0x278e…27c2 at002d = ╱6e╱n╱ // 0x27bb @0x2d
0x278e…27c2 at002e = ╱73╱s╱ // 0x27bc @0x2e
0x278e…27c2 at002f = ╱6b╱k╱ // 0x27bd @0x2f
0x278e…27c2 at0030 = ╱65╱e╱ // 0x27be @0x30
0x278e…27c2 at0031 = ╱73╱s╱ // 0x27bf @0x31
0x278e…27c2 at0032 = ╱22╱"╱ // 0x27c0 @0x32
0x278e…27c2 at0033 = EOL // 0x27c1 @0x33
0x278e…27c2 }
0x27c2…27f7 b54e 4260 LTX$(5)="Ønskes udskrift på printer (J/N):"
0x27c2…27f7 LineComalBin {
0x27c2…27f7 ptr = 0xb54e // 0x27c2 @0x0
0x27c2…27f7 lno = 0x10a4 // 0x27c4 @0x2
0x27c2…27f7 at0004 = ╱4c╱L╱ // 0x27c6 @0x4
0x27c2…27f7 at0005 = ╱54╱T╱ // 0x27c7 @0x5
0x27c2…27f7 at0006 = ╱58╱X╱ // 0x27c8 @0x6
0x27c2…27f7 at0007 = ╱ef╱$╱ // 0x27c9 @0x7
0x27c2…27f7 at0008 = ╱ed╱(╱ // 0x27ca @0x8
0x27c2…27f7 at0009 = ╱35╱5╱ // 0x27cb @0x9
0x27c2…27f7 at000a = ╱fe0000a003╱ // 0x27cc @0xa
0x27c2…27f7 at000f = ╱ee╱)╱ // 0x27d1 @0xf
0x27c2…27f7 at0010 = ╱dc╱=╱ // 0x27d2 @0x10
0x27c2…27f7 at0011 = ╱22╱"╱ // 0x27d3 @0x11
0x27c2…27f7 at0012 = ╱5c╱Ø╱ // 0x27d4 @0x12
0x27c2…27f7 at0013 = ╱6e╱n╱ // 0x27d5 @0x13
0x27c2…27f7 at0014 = ╱73╱s╱ // 0x27d6 @0x14
0x27c2…27f7 at0015 = ╱6b╱k╱ // 0x27d7 @0x15
0x27c2…27f7 at0016 = ╱65╱e╱ // 0x27d8 @0x16
0x27c2…27f7 at0017 = ╱73╱s╱ // 0x27d9 @0x17
0x27c2…27f7 at0018 = ╱20╱…╱ // 0x27da @0x18
0x27c2…27f7 at0019 = ╱75╱u╱ // 0x27db @0x19
0x27c2…27f7 at001a = ╱64╱d╱ // 0x27dc @0x1a
0x27c2…27f7 at001b = ╱73╱s╱ // 0x27dd @0x1b
0x27c2…27f7 at001c = ╱6b╱k╱ // 0x27de @0x1c
0x27c2…27f7 at001d = ╱72╱r╱ // 0x27df @0x1d
0x27c2…27f7 at001e = ╱69╱i╱ // 0x27e0 @0x1e
0x27c2…27f7 at001f = ╱66╱f╱ // 0x27e1 @0x1f
0x27c2…27f7 at0020 = ╱74╱t╱ // 0x27e2 @0x20
0x27c2…27f7 at0021 = ╱20╱…╱ // 0x27e3 @0x21
0x27c2…27f7 at0022 = ╱70╱p╱ // 0x27e4 @0x22
0x27c2…27f7 at0023 = ╱7d╱å╱ // 0x27e5 @0x23
0x27c2…27f7 at0024 = ╱20╱…╱ // 0x27e6 @0x24
0x27c2…27f7 at0025 = ╱70╱p╱ // 0x27e7 @0x25
0x27c2…27f7 at0026 = ╱72╱r╱ // 0x27e8 @0x26
0x27c2…27f7 at0027 = ╱69╱i╱ // 0x27e9 @0x27
0x27c2…27f7 at0028 = ╱6e╱n╱ // 0x27ea @0x28
0x27c2…27f7 at0029 = ╱74╱t╱ // 0x27eb @0x29
0x27c2…27f7 at002a = ╱65╱e╱ // 0x27ec @0x2a
0x27c2…27f7 at002b = ╱72╱r╱ // 0x27ed @0x2b
0x27c2…27f7 at002c = ╱20╱…╱ // 0x27ee @0x2c
0x27c2…27f7 at002d = ╱28╱(╱ // 0x27ef @0x2d
0x27c2…27f7 at002e = ╱4a╱J╱ // 0x27f0 @0x2e
0x27c2…27f7 at002f = ╱2f╱/╱ // 0x27f1 @0x2f
0x27c2…27f7 at0030 = ╱4e╱N╱ // 0x27f2 @0x30
0x27c2…27f7 at0031 = ╱29╱)╱ // 0x27f3 @0x31
0x27c2…27f7 at0032 = ╱3a╱:╱ // 0x27f4 @0x32
0x27c2…27f7 at0033 = ╱22╱"╱ // 0x27f5 @0x33
0x27c2…27f7 at0034 = EOL // 0x27f6 @0x34
0x27c2…27f7 }
0x27f7…2829 b580 4270 LTX$(6)="Ønskes flere udskrifter (J/N):"
0x27f7…2829 LineComalBin {
0x27f7…2829 ptr = 0xb580 // 0x27f7 @0x0
0x27f7…2829 lno = 0x10ae // 0x27f9 @0x2
0x27f7…2829 at0004 = ╱4c╱L╱ // 0x27fb @0x4
0x27f7…2829 at0005 = ╱54╱T╱ // 0x27fc @0x5
0x27f7…2829 at0006 = ╱58╱X╱ // 0x27fd @0x6
0x27f7…2829 at0007 = ╱ef╱$╱ // 0x27fe @0x7
0x27f7…2829 at0008 = ╱ed╱(╱ // 0x27ff @0x8
0x27f7…2829 at0009 = ╱36╱6╱ // 0x2800 @0x9
0x27f7…2829 at000a = ╱fe0000c003╱ // 0x2801 @0xa
0x27f7…2829 at000f = ╱ee╱)╱ // 0x2806 @0xf
0x27f7…2829 at0010 = ╱dc╱=╱ // 0x2807 @0x10
0x27f7…2829 at0011 = ╱22╱"╱ // 0x2808 @0x11
0x27f7…2829 at0012 = ╱5c╱Ø╱ // 0x2809 @0x12
0x27f7…2829 at0013 = ╱6e╱n╱ // 0x280a @0x13
0x27f7…2829 at0014 = ╱73╱s╱ // 0x280b @0x14
0x27f7…2829 at0015 = ╱6b╱k╱ // 0x280c @0x15
0x27f7…2829 at0016 = ╱65╱e╱ // 0x280d @0x16
0x27f7…2829 at0017 = ╱73╱s╱ // 0x280e @0x17
0x27f7…2829 at0018 = ╱20╱…╱ // 0x280f @0x18
0x27f7…2829 at0019 = ╱66╱f╱ // 0x2810 @0x19
0x27f7…2829 at001a = ╱6c╱l╱ // 0x2811 @0x1a
0x27f7…2829 at001b = ╱65╱e╱ // 0x2812 @0x1b
0x27f7…2829 at001c = ╱72╱r╱ // 0x2813 @0x1c
0x27f7…2829 at001d = ╱65╱e╱ // 0x2814 @0x1d
0x27f7…2829 at001e = ╱20╱…╱ // 0x2815 @0x1e
0x27f7…2829 at001f = ╱75╱u╱ // 0x2816 @0x1f
0x27f7…2829 at0020 = ╱64╱d╱ // 0x2817 @0x20
0x27f7…2829 at0021 = ╱73╱s╱ // 0x2818 @0x21
0x27f7…2829 at0022 = ╱6b╱k╱ // 0x2819 @0x22
0x27f7…2829 at0023 = ╱72╱r╱ // 0x281a @0x23
0x27f7…2829 at0024 = ╱69╱i╱ // 0x281b @0x24
0x27f7…2829 at0025 = ╱66╱f╱ // 0x281c @0x25
0x27f7…2829 at0026 = ╱74╱t╱ // 0x281d @0x26
0x27f7…2829 at0027 = ╱65╱e╱ // 0x281e @0x27
0x27f7…2829 at0028 = ╱72╱r╱ // 0x281f @0x28
0x27f7…2829 at0029 = ╱20╱…╱ // 0x2820 @0x29
0x27f7…2829 at002a = ╱28╱(╱ // 0x2821 @0x2a
0x27f7…2829 at002b = ╱4a╱J╱ // 0x2822 @0x2b
0x27f7…2829 at002c = ╱2f╱/╱ // 0x2823 @0x2c
0x27f7…2829 at002d = ╱4e╱N╱ // 0x2824 @0x2d
0x27f7…2829 at002e = ╱29╱)╱ // 0x2825 @0x2e
0x27f7…2829 at002f = ╱3a╱:╱ // 0x2826 @0x2f
0x27f7…2829 at0030 = ╱22╱"╱ // 0x2827 @0x30
0x27f7…2829 at0031 = EOL // 0x2828 @0x31
0x27f7…2829 }
0x2829…284b b5a2 4280 DATO=T1(7);MAFSLUT=T3(G)
0x2829…284b LineComalBin {
0x2829…284b ptr = 0xb5a2 // 0x2829 @0x0
0x2829…284b lno = 0x10b8 // 0x282b @0x2
0x2829…284b at0004 = ╱44╱D╱ // 0x282d @0x4
0x2829…284b at0005 = ╱41╱A╱ // 0x282e @0x5
0x2829…284b at0006 = ╱54╱T╱ // 0x282f @0x6
0x2829…284b at0007 = ╱4f╱O╱ // 0x2830 @0x7
0x2829…284b at0008 = ╱dc╱=╱ // 0x2831 @0x8
0x2829…284b at0009 = ╱54╱T╱ // 0x2832 @0x9
0x2829…284b at000a = ╱31╱1╱ // 0x2833 @0xa
0x2829…284b at000b = ╱ed╱(╱ // 0x2834 @0xb
0x2829…284b at000c = ╱37╱7╱ // 0x2835 @0xc
0x2829…284b at000d = ╱fe0000e003╱ // 0x2836 @0xd
0x2829…284b at0012 = ╱ee╱)╱ // 0x283b @0x12
0x2829…284b at0013 = ╱eb╱;╱ // 0x283c @0x13
0x2829…284b at0014 = ╱4d╱M╱ // 0x283d @0x14
0x2829…284b at0015 = ╱41╱A╱ // 0x283e @0x15
0x2829…284b at0016 = ╱46╱F╱ // 0x283f @0x16
0x2829…284b at0017 = ╱53╱S╱ // 0x2840 @0x17
0x2829…284b at0018 = ╱4c╱L╱ // 0x2841 @0x18
0x2829…284b at0019 = ╱55╱U╱ // 0x2842 @0x19
0x2829…284b at001a = ╱54╱T╱ // 0x2843 @0x1a
0x2829…284b at001b = ╱dc╱=╱ // 0x2844 @0x1b
0x2829…284b at001c = ╱54╱T╱ // 0x2845 @0x1c
0x2829…284b at001d = ╱33╱3╱ // 0x2846 @0x1d
0x2829…284b at001e = ╱ed╱(╱ // 0x2847 @0x1e
0x2829…284b at001f = ╱47╱G╱ // 0x2848 @0x1f
0x2829…284b at0020 = ╱ee╱)╱ // 0x2849 @0x20
0x2829…284b at0021 = EOL // 0x284a @0x21
0x2829…284b }
0x284b…2862 b5b9 4290 EXEC DATOUD(DATO,DAT$)
0x284b…2862 LineComalBin {
0x284b…2862 ptr = 0xb5b9 // 0x284b @0x0
0x284b…2862 lno = 0x10c2 // 0x284d @0x2
0x284b…2862 at0004 = ╱9d╱ EXEC ╱ // 0x284f @0x4
0x284b…2862 at0005 = ╱44╱D╱ // 0x2850 @0x5
0x284b…2862 at0006 = ╱41╱A╱ // 0x2851 @0x6
0x284b…2862 at0007 = ╱54╱T╱ // 0x2852 @0x7
0x284b…2862 at0008 = ╱4f╱O╱ // 0x2853 @0x8
0x284b…2862 at0009 = ╱55╱U╱ // 0x2854 @0x9
0x284b…2862 at000a = ╱44╱D╱ // 0x2855 @0xa
0x284b…2862 at000b = ╱ed╱(╱ // 0x2856 @0xb
0x284b…2862 at000c = ╱44╱D╱ // 0x2857 @0xc
0x284b…2862 at000d = ╱41╱A╱ // 0x2858 @0xd
0x284b…2862 at000e = ╱54╱T╱ // 0x2859 @0xe
0x284b…2862 at000f = ╱4f╱O╱ // 0x285a @0xf
0x284b…2862 at0010 = ╱ec╱,╱ // 0x285b @0x10
0x284b…2862 at0011 = ╱44╱D╱ // 0x285c @0x11
0x284b…2862 at0012 = ╱41╱A╱ // 0x285d @0x12
0x284b…2862 at0013 = ╱54╱T╱ // 0x285e @0x13
0x284b…2862 at0014 = ╱ef╱$╱ // 0x285f @0x14
0x284b…2862 at0015 = ╱ee╱)╱ // 0x2860 @0x15
0x284b…2862 at0016 = EOL // 0x2861 @0x16
0x284b…2862 }
0x2862…28af b606 4300 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-"
0x2862…28af LineComalBin {
0x2862…28af ptr = 0xb606 // 0x2862 @0x0
0x2862…28af lno = 0x10cc // 0x2864 @0x2
0x2862…28af at0004 = ╱53╱S╱ // 0x2866 @0x4
0x2862…28af at0005 = ╱54╱T╱ // 0x2867 @0x5
0x2862…28af at0006 = ╱52╱R╱ // 0x2868 @0x6
0x2862…28af at0007 = ╱45╱E╱ // 0x2869 @0x7
0x2862…28af at0008 = ╱47╱G╱ // 0x286a @0x8
0x2862…28af at0009 = ╱ef╱$╱ // 0x286b @0x9
0x2862…28af at000a = ╱dc╱=╱ // 0x286c @0xa
0x2862…28af at000b = ╱22╱"╱ // 0x286d @0xb
0x2862…28af at000c = ╱2d╱-╱ // 0x286e @0xc
0x2862…28af at000d = ╱2d╱-╱ // 0x286f @0xd
0x2862…28af at000e = ╱2d╱-╱ // 0x2870 @0xe
0x2862…28af at000f = ╱2d╱-╱ // 0x2871 @0xf
0x2862…28af at0010 = ╱2d╱-╱ // 0x2872 @0x10
0x2862…28af at0011 = ╱2d╱-╱ // 0x2873 @0x11
0x2862…28af at0012 = ╱2d╱-╱ // 0x2874 @0x12
0x2862…28af at0013 = ╱2d╱-╱ // 0x2875 @0x13
0x2862…28af at0014 = ╱2d╱-╱ // 0x2876 @0x14
0x2862…28af at0015 = ╱2d╱-╱ // 0x2877 @0x15
0x2862…28af at0016 = ╱2d╱-╱ // 0x2878 @0x16
0x2862…28af at0017 = ╱2d╱-╱ // 0x2879 @0x17
0x2862…28af at0018 = ╱2d╱-╱ // 0x287a @0x18
0x2862…28af at0019 = ╱2d╱-╱ // 0x287b @0x19
0x2862…28af at001a = ╱2d╱-╱ // 0x287c @0x1a
0x2862…28af at001b = ╱2d╱-╱ // 0x287d @0x1b
0x2862…28af at001c = ╱2d╱-╱ // 0x287e @0x1c
0x2862…28af at001d = ╱2d╱-╱ // 0x287f @0x1d
0x2862…28af at001e = ╱2d╱-╱ // 0x2880 @0x1e
0x2862…28af at001f = ╱2d╱-╱ // 0x2881 @0x1f
0x2862…28af at0020 = ╱2d╱-╱ // 0x2882 @0x20
0x2862…28af at0021 = ╱2d╱-╱ // 0x2883 @0x21
0x2862…28af at0022 = ╱2d╱-╱ // 0x2884 @0x22
0x2862…28af at0023 = ╱2d╱-╱ // 0x2885 @0x23
0x2862…28af at0024 = ╱2d╱-╱ // 0x2886 @0x24
0x2862…28af at0025 = ╱2d╱-╱ // 0x2887 @0x25
0x2862…28af at0026 = ╱2d╱-╱ // 0x2888 @0x26
0x2862…28af at0027 = ╱2d╱-╱ // 0x2889 @0x27
0x2862…28af at0028 = ╱2d╱-╱ // 0x288a @0x28
0x2862…28af at0029 = ╱2d╱-╱ // 0x288b @0x29
0x2862…28af at002a = ╱2d╱-╱ // 0x288c @0x2a
0x2862…28af at002b = ╱2d╱-╱ // 0x288d @0x2b
0x2862…28af at002c = ╱2d╱-╱ // 0x288e @0x2c
0x2862…28af at002d = ╱2d╱-╱ // 0x288f @0x2d
0x2862…28af at002e = ╱2d╱-╱ // 0x2890 @0x2e
0x2862…28af at002f = ╱2d╱-╱ // 0x2891 @0x2f
0x2862…28af at0030 = ╱2d╱-╱ // 0x2892 @0x30
0x2862…28af at0031 = ╱2d╱-╱ // 0x2893 @0x31
0x2862…28af at0032 = ╱22╱"╱ // 0x2894 @0x32
0x2862…28af at0033 = ╱eb╱;╱ // 0x2895 @0x33
0x2862…28af at0034 = ╱53╱S╱ // 0x2896 @0x34
0x2862…28af at0035 = ╱54╱T╱ // 0x2897 @0x35
0x2862…28af at0036 = ╱52╱R╱ // 0x2898 @0x36
0x2862…28af at0037 = ╱45╱E╱ // 0x2899 @0x37
0x2862…28af at0038 = ╱47╱G╱ // 0x289a @0x38
0x2862…28af at0039 = ╱ef╱$╱ // 0x289b @0x39
0x2862…28af at003a = ╱dc╱=╱ // 0x289c @0x3a
0x2862…28af at003b = ╱53╱S╱ // 0x289d @0x3b
0x2862…28af at003c = ╱54╱T╱ // 0x289e @0x3c
0x2862…28af at003d = ╱52╱R╱ // 0x289f @0x3d
0x2862…28af at003e = ╱45╱E╱ // 0x28a0 @0x3e
0x2862…28af at003f = ╱47╱G╱ // 0x28a1 @0x3f
0x2862…28af at0040 = ╱ef╱$╱ // 0x28a2 @0x40
0x2862…28af at0041 = ╱f1╱+╱ // 0x28a3 @0x41
0x2862…28af at0042 = ╱53╱S╱ // 0x28a4 @0x42
0x2862…28af at0043 = ╱54╱T╱ // 0x28a5 @0x43
0x2862…28af at0044 = ╱52╱R╱ // 0x28a6 @0x44
0x2862…28af at0045 = ╱45╱E╱ // 0x28a7 @0x45
0x2862…28af at0046 = ╱47╱G╱ // 0x28a8 @0x46
0x2862…28af at0047 = ╱ef╱$╱ // 0x28a9 @0x47
0x2862…28af at0048 = ╱f1╱+╱ // 0x28aa @0x48
0x2862…28af at0049 = ╱22╱"╱ // 0x28ab @0x49
0x2862…28af at004a = ╱2d╱-╱ // 0x28ac @0x4a
0x2862…28af at004b = ╱22╱"╱ // 0x28ad @0x4b
0x2862…28af at004c = EOL // 0x28ae @0x4c
0x2862…28af }
0x28af…28d6 b62d 4310 BLANK$=" "
0x28af…28d6 LineComalBin {
0x28af…28d6 ptr = 0xb62d // 0x28af @0x0
0x28af…28d6 lno = 0x10d6 // 0x28b1 @0x2
0x28af…28d6 at0004 = ╱42╱B╱ // 0x28b3 @0x4
0x28af…28d6 at0005 = ╱4c╱L╱ // 0x28b4 @0x5
0x28af…28d6 at0006 = ╱41╱A╱ // 0x28b5 @0x6
0x28af…28d6 at0007 = ╱4e╱N╱ // 0x28b6 @0x7
0x28af…28d6 at0008 = ╱4b╱K╱ // 0x28b7 @0x8
0x28af…28d6 at0009 = ╱ef╱$╱ // 0x28b8 @0x9
0x28af…28d6 at000a = ╱dc╱=╱ // 0x28b9 @0xa
0x28af…28d6 at000b = ╱22╱"╱ // 0x28ba @0xb
0x28af…28d6 at000c = ╱20╱…╱ // 0x28bb @0xc
0x28af…28d6 at000d = ╱20╱…╱ // 0x28bc @0xd
0x28af…28d6 at000e = ╱20╱…╱ // 0x28bd @0xe
0x28af…28d6 at000f = ╱20╱…╱ // 0x28be @0xf
0x28af…28d6 at0010 = ╱20╱…╱ // 0x28bf @0x10
0x28af…28d6 at0011 = ╱20╱…╱ // 0x28c0 @0x11
0x28af…28d6 at0012 = ╱20╱…╱ // 0x28c1 @0x12
0x28af…28d6 at0013 = ╱20╱…╱ // 0x28c2 @0x13
0x28af…28d6 at0014 = ╱20╱…╱ // 0x28c3 @0x14
0x28af…28d6 at0015 = ╱20╱…╱ // 0x28c4 @0x15
0x28af…28d6 at0016 = ╱20╱…╱ // 0x28c5 @0x16
0x28af…28d6 at0017 = ╱20╱…╱ // 0x28c6 @0x17
0x28af…28d6 at0018 = ╱20╱…╱ // 0x28c7 @0x18
0x28af…28d6 at0019 = ╱20╱…╱ // 0x28c8 @0x19
0x28af…28d6 at001a = ╱20╱…╱ // 0x28c9 @0x1a
0x28af…28d6 at001b = ╱20╱…╱ // 0x28ca @0x1b
0x28af…28d6 at001c = ╱20╱…╱ // 0x28cb @0x1c
0x28af…28d6 at001d = ╱20╱…╱ // 0x28cc @0x1d
0x28af…28d6 at001e = ╱20╱…╱ // 0x28cd @0x1e
0x28af…28d6 at001f = ╱20╱…╱ // 0x28ce @0x1f
0x28af…28d6 at0020 = ╱20╱…╱ // 0x28cf @0x20
0x28af…28d6 at0021 = ╱20╱…╱ // 0x28d0 @0x21
0x28af…28d6 at0022 = ╱20╱…╱ // 0x28d1 @0x22
0x28af…28d6 at0023 = ╱20╱…╱ // 0x28d2 @0x23
0x28af…28d6 at0024 = ╱20╱…╱ // 0x28d3 @0x24
0x28af…28d6 at0025 = ╱22╱"╱ // 0x28d4 @0x25
0x28af…28d6 at0026 = EOL // 0x28d5 @0x26
0x28af…28d6 }
0x28d6…28e6 b63d 4320 IF MAFSLUT=E THEN
0x28d6…28e6 LineComalBin {
0x28d6…28e6 ptr = 0xb63d // 0x28d6 @0x0
0x28d6…28e6 lno = 0x10e0 // 0x28d8 @0x2
0x28d6…28e6 at0004 = ╱9c╱ IF ╱ // 0x28da @0x4
0x28d6…28e6 at0005 = ╱4d╱M╱ // 0x28db @0x5
0x28d6…28e6 at0006 = ╱41╱A╱ // 0x28dc @0x6
0x28d6…28e6 at0007 = ╱46╱F╱ // 0x28dd @0x7
0x28d6…28e6 at0008 = ╱53╱S╱ // 0x28de @0x8
0x28d6…28e6 at0009 = ╱4c╱L╱ // 0x28df @0x9
0x28d6…28e6 at000a = ╱55╱U╱ // 0x28e0 @0xa
0x28d6…28e6 at000b = ╱54╱T╱ // 0x28e1 @0xb
0x28d6…28e6 at000c = ╱dc╱=╱ // 0x28e2 @0xc
0x28d6…28e6 at000d = ╱45╱E╱ // 0x28e3 @0xd
0x28d6…28e6 at000e = ╱b6╱ THEN ╱ // 0x28e4 @0xe
0x28d6…28e6 at000f = EOL // 0x28e5 @0xf
0x28d6…28e6 }
0x28e6…28ec b643 4330 REPEAT
0x28e6…28ec LineComalBin {
0x28e6…28ec ptr = 0xb643 // 0x28e6 @0x0
0x28e6…28ec lno = 0x10ea // 0x28e8 @0x2
0x28e6…28ec at0004 = ╱97╱ REPEAT ╱ // 0x28ea @0x4
0x28e6…28ec at0005 = EOL // 0x28eb @0x5
0x28e6…28ec }
0x28ec…28f2 b649 4340 CLEAR
0x28ec…28f2 LineComalBin {
0x28ec…28f2 ptr = 0xb649 // 0x28ec @0x0
0x28ec…28f2 lno = 0x10f4 // 0x28ee @0x2
0x28ec…28f2 at0004 = ╱a0╱ CLEAR ╱ // 0x28f0 @0x4
0x28ec…28f2 at0005 = EOL // 0x28f1 @0x5
0x28ec…28f2 }
0x28f2…28fb b652 4350 CURSOR E,E
0x28f2…28fb LineComalBin {
0x28f2…28fb ptr = 0xb652 // 0x28f2 @0x0
0x28f2…28fb lno = 0x10fe // 0x28f4 @0x2
0x28f2…28fb at0004 = ╱a1╱ CURSOR ╱ // 0x28f6 @0x4
0x28f2…28fb at0005 = ╱45╱E╱ // 0x28f7 @0x5
0x28f2…28fb at0006 = ╱ec╱,╱ // 0x28f8 @0x6
0x28f2…28fb at0007 = ╱45╱E╱ // 0x28f9 @0x7
0x28f2…28fb at0008 = EOL // 0x28fa @0x8
0x28f2…28fb }
0x28fb…2948 b69f 4360 PRINT TAB(15);"Månedsafslutning Entreprisekontoudtog";TAB(63);" Dato:";
0x28fb…2948 LineComalBin {
0x28fb…2948 ptr = 0xb69f // 0x28fb @0x0
0x28fb…2948 lno = 0x1108 // 0x28fd @0x2
0x28fb…2948 at0004 = ╱92╱ PRINT ╱ // 0x28ff @0x4
0x28fb…2948 at0005 = ╱d2╱TAB╱ // 0x2900 @0x5
0x28fb…2948 at0006 = ╱ed╱(╱ // 0x2901 @0x6
0x28fb…2948 at0007 = ╱31╱1╱ // 0x2902 @0x7
0x28fb…2948 at0008 = ╱35╱5╱ // 0x2903 @0x8
0x28fb…2948 at0009 = ╱fe0000f004╱ // 0x2904 @0x9
0x28fb…2948 at000e = ╱ee╱)╱ // 0x2909 @0xe
0x28fb…2948 at000f = ╱eb╱;╱ // 0x290a @0xf
0x28fb…2948 at0010 = ╱22╱"╱ // 0x290b @0x10
0x28fb…2948 at0011 = ╱4d╱M╱ // 0x290c @0x11
0x28fb…2948 at0012 = ╱7d╱å╱ // 0x290d @0x12
0x28fb…2948 at0013 = ╱6e╱n╱ // 0x290e @0x13
0x28fb…2948 at0014 = ╱65╱e╱ // 0x290f @0x14
0x28fb…2948 at0015 = ╱64╱d╱ // 0x2910 @0x15
0x28fb…2948 at0016 = ╱73╱s╱ // 0x2911 @0x16
0x28fb…2948 at0017 = ╱61╱a╱ // 0x2912 @0x17
0x28fb…2948 at0018 = ╱66╱f╱ // 0x2913 @0x18
0x28fb…2948 at0019 = ╱73╱s╱ // 0x2914 @0x19
0x28fb…2948 at001a = ╱6c╱l╱ // 0x2915 @0x1a
0x28fb…2948 at001b = ╱75╱u╱ // 0x2916 @0x1b
0x28fb…2948 at001c = ╱74╱t╱ // 0x2917 @0x1c
0x28fb…2948 at001d = ╱6e╱n╱ // 0x2918 @0x1d
0x28fb…2948 at001e = ╱69╱i╱ // 0x2919 @0x1e
0x28fb…2948 at001f = ╱6e╱n╱ // 0x291a @0x1f
0x28fb…2948 at0020 = ╱67╱g╱ // 0x291b @0x20
0x28fb…2948 at0021 = ╱20╱…╱ // 0x291c @0x21
0x28fb…2948 at0022 = ╱45╱E╱ // 0x291d @0x22
0x28fb…2948 at0023 = ╱6e╱n╱ // 0x291e @0x23
0x28fb…2948 at0024 = ╱74╱t╱ // 0x291f @0x24
0x28fb…2948 at0025 = ╱72╱r╱ // 0x2920 @0x25
0x28fb…2948 at0026 = ╱65╱e╱ // 0x2921 @0x26
0x28fb…2948 at0027 = ╱70╱p╱ // 0x2922 @0x27
0x28fb…2948 at0028 = ╱72╱r╱ // 0x2923 @0x28
0x28fb…2948 at0029 = ╱69╱i╱ // 0x2924 @0x29
0x28fb…2948 at002a = ╱73╱s╱ // 0x2925 @0x2a
0x28fb…2948 at002b = ╱65╱e╱ // 0x2926 @0x2b
0x28fb…2948 at002c = ╱6b╱k╱ // 0x2927 @0x2c
0x28fb…2948 at002d = ╱6f╱o╱ // 0x2928 @0x2d
0x28fb…2948 at002e = ╱6e╱n╱ // 0x2929 @0x2e
0x28fb…2948 at002f = ╱74╱t╱ // 0x292a @0x2f
0x28fb…2948 at0030 = ╱6f╱o╱ // 0x292b @0x30
0x28fb…2948 at0031 = ╱75╱u╱ // 0x292c @0x31
0x28fb…2948 at0032 = ╱64╱d╱ // 0x292d @0x32
0x28fb…2948 at0033 = ╱74╱t╱ // 0x292e @0x33
0x28fb…2948 at0034 = ╱6f╱o╱ // 0x292f @0x34
0x28fb…2948 at0035 = ╱67╱g╱ // 0x2930 @0x35
0x28fb…2948 at0036 = ╱22╱"╱ // 0x2931 @0x36
0x28fb…2948 at0037 = ╱eb╱;╱ // 0x2932 @0x37
0x28fb…2948 at0038 = ╱d2╱TAB╱ // 0x2933 @0x38
0x28fb…2948 at0039 = ╱ed╱(╱ // 0x2934 @0x39
0x28fb…2948 at003a = ╱36╱6╱ // 0x2935 @0x3a
0x28fb…2948 at003b = ╱33╱3╱ // 0x2936 @0x3b
0x28fb…2948 at003c = ╱fe0000fc06╱ // 0x2937 @0x3c
0x28fb…2948 at0041 = ╱ee╱)╱ // 0x293c @0x41
0x28fb…2948 at0042 = ╱eb╱;╱ // 0x293d @0x42
0x28fb…2948 at0043 = ╱22╱"╱ // 0x293e @0x43
0x28fb…2948 at0044 = ╱20╱…╱ // 0x293f @0x44
0x28fb…2948 at0045 = ╱44╱D╱ // 0x2940 @0x45
0x28fb…2948 at0046 = ╱61╱a╱ // 0x2941 @0x46
0x28fb…2948 at0047 = ╱74╱t╱ // 0x2942 @0x47
0x28fb…2948 at0048 = ╱6f╱o╱ // 0x2943 @0x48
0x28fb…2948 at0049 = ╱3a╱:╱ // 0x2944 @0x49
0x28fb…2948 at004a = ╱22╱"╱ // 0x2945 @0x4a
0x28fb…2948 at004b = ╱eb╱;╱ // 0x2946 @0x4b
0x28fb…2948 at004c = EOL // 0x2947 @0x4c
0x28fb…2948 }
0x2948…2952 b6a9 4370 PRINT DAT$
0x2948…2952 LineComalBin {
0x2948…2952 ptr = 0xb6a9 // 0x2948 @0x0
0x2948…2952 lno = 0x1112 // 0x294a @0x2
0x2948…2952 at0004 = ╱92╱ PRINT ╱ // 0x294c @0x4
0x2948…2952 at0005 = ╱44╱D╱ // 0x294d @0x5
0x2948…2952 at0006 = ╱41╱A╱ // 0x294e @0x6
0x2948…2952 at0007 = ╱54╱T╱ // 0x294f @0x7
0x2948…2952 at0008 = ╱ef╱$╱ // 0x2950 @0x8
0x2948…2952 at0009 = EOL // 0x2951 @0x9
0x2948…2952 }
0x2952…296c b6c3 4390 EXEC MKONTUD(K18$,MEPOST)
0x2952…296c LineComalBin {
0x2952…296c ptr = 0xb6c3 // 0x2952 @0x0
0x2952…296c lno = 0x1126 // 0x2954 @0x2
0x2952…296c at0004 = ╱9d╱ EXEC ╱ // 0x2956 @0x4
0x2952…296c at0005 = ╱4d╱M╱ // 0x2957 @0x5
0x2952…296c at0006 = ╱4b╱K╱ // 0x2958 @0x6
0x2952…296c at0007 = ╱4f╱O╱ // 0x2959 @0x7
0x2952…296c at0008 = ╱4e╱N╱ // 0x295a @0x8
0x2952…296c at0009 = ╱54╱T╱ // 0x295b @0x9
0x2952…296c at000a = ╱55╱U╱ // 0x295c @0xa
0x2952…296c at000b = ╱44╱D╱ // 0x295d @0xb
0x2952…296c at000c = ╱ed╱(╱ // 0x295e @0xc
0x2952…296c at000d = ╱4b╱K╱ // 0x295f @0xd
0x2952…296c at000e = ╱31╱1╱ // 0x2960 @0xe
0x2952…296c at000f = ╱38╱8╱ // 0x2961 @0xf
0x2952…296c at0010 = ╱ef╱$╱ // 0x2962 @0x10
0x2952…296c at0011 = ╱ec╱,╱ // 0x2963 @0x11
0x2952…296c at0012 = ╱4d╱M╱ // 0x2964 @0x12
0x2952…296c at0013 = ╱45╱E╱ // 0x2965 @0x13
0x2952…296c at0014 = ╱50╱P╱ // 0x2966 @0x14
0x2952…296c at0015 = ╱4f╱O╱ // 0x2967 @0x15
0x2952…296c at0016 = ╱53╱S╱ // 0x2968 @0x16
0x2952…296c at0017 = ╱54╱T╱ // 0x2969 @0x17
0x2952…296c at0018 = ╱ee╱)╱ // 0x296a @0x18
0x2952…296c at0019 = EOL // 0x296b @0x19
0x2952…296c }
0x296c…2972 b6c9 4400 CLEAR
0x296c…2972 LineComalBin {
0x296c…2972 ptr = 0xb6c9 // 0x296c @0x0
0x296c…2972 lno = 0x1130 // 0x296e @0x2
0x296c…2972 at0004 = ╱a0╱ CLEAR ╱ // 0x2970 @0x4
0x296c…2972 at0005 = EOL // 0x2971 @0x5
0x296c…2972 }
0x2972…2979 b6d0 4410 OUTPUT T
0x2972…2979 LineComalBin {
0x2972…2979 ptr = 0xb6d0 // 0x2972 @0x0
0x2972…2979 lno = 0x113a // 0x2974 @0x2
0x2972…2979 at0004 = ╱a5╱ OUTPUT ╱ // 0x2976 @0x4
0x2972…2979 at0005 = ╱54╱T╱ // 0x2977 @0x5
0x2972…2979 at0006 = EOL // 0x2978 @0x6
0x2972…2979 }
0x2979…29b4 b70b 4420 EXEC INDPUT1(20,13,-9,-6,LTX$(6))
0x2979…29b4 LineComalBin {
0x2979…29b4 ptr = 0xb70b // 0x2979 @0x0
0x2979…29b4 lno = 0x1144 // 0x297b @0x2
0x2979…29b4 at0004 = ╱9d╱ EXEC ╱ // 0x297d @0x4
0x2979…29b4 at0005 = ╱49╱I╱ // 0x297e @0x5
0x2979…29b4 at0006 = ╱4e╱N╱ // 0x297f @0x6
0x2979…29b4 at0007 = ╱44╱D╱ // 0x2980 @0x7
0x2979…29b4 at0008 = ╱50╱P╱ // 0x2981 @0x8
0x2979…29b4 at0009 = ╱55╱U╱ // 0x2982 @0x9
0x2979…29b4 at000a = ╱54╱T╱ // 0x2983 @0xa
0x2979…29b4 at000b = ╱31╱1╱ // 0x2984 @0xb
0x2979…29b4 at000c = ╱ed╱(╱ // 0x2985 @0xc
0x2979…29b4 at000d = ╱32╱2╱ // 0x2986 @0xd
0x2979…29b4 at000e = ╱30╱0╱ // 0x2987 @0xe
0x2979…29b4 at000f = ╱fe0000a005╱ // 0x2988 @0xf
0x2979…29b4 at0014 = ╱ec╱,╱ // 0x298d @0x14
0x2979…29b4 at0015 = ╱31╱1╱ // 0x298e @0x15
0x2979…29b4 at0016 = ╱33╱3╱ // 0x298f @0x16
0x2979…29b4 at0017 = ╱fe0000d004╱ // 0x2990 @0x17
0x2979…29b4 at001c = ╱ec╱,╱ // 0x2995 @0x1c
0x2979…29b4 at001d = ╱e9╱-╱ // 0x2996 @0x1d
0x2979…29b4 at001e = ╱39╱9╱ // 0x2997 @0x1e
0x2979…29b4 at001f = ╱fe00009004╱ // 0x2998 @0x1f
0x2979…29b4 at0024 = ╱ec╱,╱ // 0x299d @0x24
0x2979…29b4 at0025 = ╱e9╱-╱ // 0x299e @0x25
0x2979…29b4 at0026 = ╱36╱6╱ // 0x299f @0x26
0x2979…29b4 at0027 = ╱fe0000c003╱ // 0x29a0 @0x27
0x2979…29b4 at002c = ╱ec╱,╱ // 0x29a5 @0x2c
0x2979…29b4 at002d = ╱4c╱L╱ // 0x29a6 @0x2d
0x2979…29b4 at002e = ╱54╱T╱ // 0x29a7 @0x2e
0x2979…29b4 at002f = ╱58╱X╱ // 0x29a8 @0x2f
0x2979…29b4 at0030 = ╱ef╱$╱ // 0x29a9 @0x30
0x2979…29b4 at0031 = ╱ed╱(╱ // 0x29aa @0x31
0x2979…29b4 at0032 = ╱36╱6╱ // 0x29ab @0x32
0x2979…29b4 at0033 = ╱fe0000c003╱ // 0x29ac @0x33
0x2979…29b4 at0038 = ╱ee╱)╱ // 0x29b1 @0x38
0x2979…29b4 at0039 = ╱ee╱)╱ // 0x29b2 @0x39
0x2979…29b4 at003a = EOL // 0x29b3 @0x3a
0x2979…29b4 }
0x29b4…29c3 b71a 4430 UNTIL P=-8
0x29b4…29c3 LineComalBin {
0x29b4…29c3 ptr = 0xb71a // 0x29b4 @0x0
0x29b4…29c3 lno = 0x114e // 0x29b6 @0x2
0x29b4…29c3 at0004 = ╱98╱ UNTIL ╱ // 0x29b8 @0x4
0x29b4…29c3 at0005 = ╱50╱P╱ // 0x29b9 @0x5
0x29b4…29c3 at0006 = ╱dc╱=╱ // 0x29ba @0x6
0x29b4…29c3 at0007 = ╱e9╱-╱ // 0x29bb @0x7
0x29b4…29c3 at0008 = ╱38╱8╱ // 0x29bc @0x8
0x29b4…29c3 at0009 = ╱fe00008004╱ // 0x29bd @0x9
0x29b4…29c3 at000e = EOL // 0x29c2 @0xe
0x29b4…29c3 }
0x29c3…29c9 b720 4440 ELSE
0x29c3…29c9 LineComalBin {
0x29c3…29c9 ptr = 0xb720 // 0x29c3 @0x0
0x29c3…29c9 lno = 0x1158 // 0x29c5 @0x2
0x29c3…29c9 at0004 = ╱9a╱ ELSE ╱ // 0x29c7 @0x4
0x29c3…29c9 at0005 = EOL // 0x29c8 @0x5
0x29c3…29c9 }
0x29c9…29d7 b72e 4450 EXEC STARTBIL
0x29c9…29d7 LineComalBin {
0x29c9…29d7 ptr = 0xb72e // 0x29c9 @0x0
0x29c9…29d7 lno = 0x1162 // 0x29cb @0x2
0x29c9…29d7 at0004 = ╱9d╱ EXEC ╱ // 0x29cd @0x4
0x29c9…29d7 at0005 = ╱53╱S╱ // 0x29ce @0x5
0x29c9…29d7 at0006 = ╱54╱T╱ // 0x29cf @0x6
0x29c9…29d7 at0007 = ╱41╱A╱ // 0x29d0 @0x7
0x29c9…29d7 at0008 = ╱52╱R╱ // 0x29d1 @0x8
0x29c9…29d7 at0009 = ╱54╱T╱ // 0x29d2 @0x9
0x29c9…29d7 at000a = ╱42╱B╱ // 0x29d3 @0xa
0x29c9…29d7 at000b = ╱49╱I╱ // 0x29d4 @0xb
0x29c9…29d7 at000c = ╱4c╱L╱ // 0x29d5 @0xc
0x29c9…29d7 at000d = EOL // 0x29d6 @0xd
0x29c9…29d7 }
0x29d7…29dd b734 4460 REPEAT
0x29d7…29dd LineComalBin {
0x29d7…29dd ptr = 0xb734 // 0x29d7 @0x0
0x29d7…29dd lno = 0x116c // 0x29d9 @0x2
0x29d7…29dd at0004 = ╱97╱ REPEAT ╱ // 0x29db @0x4
0x29d7…29dd at0005 = EOL // 0x29dc @0x5
0x29d7…29dd }
0x29dd…29eb b742 4470 IF KONT=B THEN EXIT
0x29dd…29eb LineComalBin {
0x29dd…29eb ptr = 0xb742 // 0x29dd @0x0
0x29dd…29eb lno = 0x1176 // 0x29df @0x2
0x29dd…29eb at0004 = ╱82╱ IF ╱ // 0x29e1 @0x4
0x29dd…29eb at0005 = ╱4b╱K╱ // 0x29e2 @0x5
0x29dd…29eb at0006 = ╱4f╱O╱ // 0x29e3 @0x6
0x29dd…29eb at0007 = ╱4e╱N╱ // 0x29e4 @0x7
0x29dd…29eb at0008 = ╱54╱T╱ // 0x29e5 @0x8
0x29dd…29eb at0009 = ╱dc╱=╱ // 0x29e6 @0x9
0x29dd…29eb at000a = ╱42╱B╱ // 0x29e7 @0xa
0x29dd…29eb at000b = ╱b6╱ THEN ╱ // 0x29e8 @0xb
0x29dd…29eb at000c = ╱99╱ EXIT ╱ // 0x29e9 @0xc
0x29dd…29eb at000d = EOL // 0x29ea @0xd
0x29dd…29eb }
0x29eb…2a25 b77c 4480 EXEC INDPUT1(4,14,-9,-6,LTX$(5))
0x29eb…2a25 LineComalBin {
0x29eb…2a25 ptr = 0xb77c // 0x29eb @0x0
0x29eb…2a25 lno = 0x1180 // 0x29ed @0x2
0x29eb…2a25 at0004 = ╱9d╱ EXEC ╱ // 0x29ef @0x4
0x29eb…2a25 at0005 = ╱49╱I╱ // 0x29f0 @0x5
0x29eb…2a25 at0006 = ╱4e╱N╱ // 0x29f1 @0x6
0x29eb…2a25 at0007 = ╱44╱D╱ // 0x29f2 @0x7
0x29eb…2a25 at0008 = ╱50╱P╱ // 0x29f3 @0x8
0x29eb…2a25 at0009 = ╱55╱U╱ // 0x29f4 @0x9
0x29eb…2a25 at000a = ╱54╱T╱ // 0x29f5 @0xa
0x29eb…2a25 at000b = ╱31╱1╱ // 0x29f6 @0xb
0x29eb…2a25 at000c = ╱ed╱(╱ // 0x29f7 @0xc
0x29eb…2a25 at000d = ╱34╱4╱ // 0x29f8 @0xd
0x29eb…2a25 at000e = ╱fe00008003╱ // 0x29f9 @0xe
0x29eb…2a25 at0013 = ╱ec╱,╱ // 0x29fe @0x13
0x29eb…2a25 at0014 = ╱31╱1╱ // 0x29ff @0x14
0x29eb…2a25 at0015 = ╱34╱4╱ // 0x2a00 @0x15
0x29eb…2a25 at0016 = ╱fe0000e004╱ // 0x2a01 @0x16
0x29eb…2a25 at001b = ╱ec╱,╱ // 0x2a06 @0x1b
0x29eb…2a25 at001c = ╱e9╱-╱ // 0x2a07 @0x1c
0x29eb…2a25 at001d = ╱39╱9╱ // 0x2a08 @0x1d
0x29eb…2a25 at001e = ╱fe00009004╱ // 0x2a09 @0x1e
0x29eb…2a25 at0023 = ╱ec╱,╱ // 0x2a0e @0x23
0x29eb…2a25 at0024 = ╱e9╱-╱ // 0x2a0f @0x24
0x29eb…2a25 at0025 = ╱36╱6╱ // 0x2a10 @0x25
0x29eb…2a25 at0026 = ╱fe0000c003╱ // 0x2a11 @0x26
0x29eb…2a25 at002b = ╱ec╱,╱ // 0x2a16 @0x2b
0x29eb…2a25 at002c = ╱4c╱L╱ // 0x2a17 @0x2c
0x29eb…2a25 at002d = ╱54╱T╱ // 0x2a18 @0x2d
0x29eb…2a25 at002e = ╱58╱X╱ // 0x2a19 @0x2e
0x29eb…2a25 at002f = ╱ef╱$╱ // 0x2a1a @0x2f
0x29eb…2a25 at0030 = ╱ed╱(╱ // 0x2a1b @0x30
0x29eb…2a25 at0031 = ╱35╱5╱ // 0x2a1c @0x31
0x29eb…2a25 at0032 = ╱fe0000a003╱ // 0x2a1d @0x32
0x29eb…2a25 at0037 = ╱ee╱)╱ // 0x2a22 @0x37
0x29eb…2a25 at0038 = ╱ee╱)╱ // 0x2a23 @0x38
0x29eb…2a25 at0039 = EOL // 0x2a24 @0x39
0x29eb…2a25 }
0x2a25…2a4a b7a1 4490 KSIDENR,SKRIV1,LINIE=B;SUM$="0+"
0x2a25…2a4a LineComalBin {
0x2a25…2a4a ptr = 0xb7a1 // 0x2a25 @0x0
0x2a25…2a4a lno = 0x118a // 0x2a27 @0x2
0x2a25…2a4a at0004 = ╱4b╱K╱ // 0x2a29 @0x4
0x2a25…2a4a at0005 = ╱53╱S╱ // 0x2a2a @0x5
0x2a25…2a4a at0006 = ╱49╱I╱ // 0x2a2b @0x6
0x2a25…2a4a at0007 = ╱44╱D╱ // 0x2a2c @0x7
0x2a25…2a4a at0008 = ╱45╱E╱ // 0x2a2d @0x8
0x2a25…2a4a at0009 = ╱4e╱N╱ // 0x2a2e @0x9
0x2a25…2a4a at000a = ╱52╱R╱ // 0x2a2f @0xa
0x2a25…2a4a at000b = ╱ec╱,╱ // 0x2a30 @0xb
0x2a25…2a4a at000c = ╱53╱S╱ // 0x2a31 @0xc
0x2a25…2a4a at000d = ╱4b╱K╱ // 0x2a32 @0xd
0x2a25…2a4a at000e = ╱52╱R╱ // 0x2a33 @0xe
0x2a25…2a4a at000f = ╱49╱I╱ // 0x2a34 @0xf
0x2a25…2a4a at0010 = ╱56╱V╱ // 0x2a35 @0x10
0x2a25…2a4a at0011 = ╱31╱1╱ // 0x2a36 @0x11
0x2a25…2a4a at0012 = ╱ec╱,╱ // 0x2a37 @0x12
0x2a25…2a4a at0013 = ╱4c╱L╱ // 0x2a38 @0x13
0x2a25…2a4a at0014 = ╱49╱I╱ // 0x2a39 @0x14
0x2a25…2a4a at0015 = ╱4e╱N╱ // 0x2a3a @0x15
0x2a25…2a4a at0016 = ╱49╱I╱ // 0x2a3b @0x16
0x2a25…2a4a at0017 = ╱45╱E╱ // 0x2a3c @0x17
0x2a25…2a4a at0018 = ╱dc╱=╱ // 0x2a3d @0x18
0x2a25…2a4a at0019 = ╱42╱B╱ // 0x2a3e @0x19
0x2a25…2a4a at001a = ╱eb╱;╱ // 0x2a3f @0x1a
0x2a25…2a4a at001b = ╱53╱S╱ // 0x2a40 @0x1b
0x2a25…2a4a at001c = ╱55╱U╱ // 0x2a41 @0x1c
0x2a25…2a4a at001d = ╱4d╱M╱ // 0x2a42 @0x1d
0x2a25…2a4a at001e = ╱ef╱$╱ // 0x2a43 @0x1e
0x2a25…2a4a at001f = ╱dc╱=╱ // 0x2a44 @0x1f
0x2a25…2a4a at0020 = ╱22╱"╱ // 0x2a45 @0x20
0x2a25…2a4a at0021 = ╱30╱0╱ // 0x2a46 @0x21
0x2a25…2a4a at0022 = ╱2b╱+╱ // 0x2a47 @0x22
0x2a25…2a4a at0023 = ╱22╱"╱ // 0x2a48 @0x23
0x2a25…2a4a at0024 = EOL // 0x2a49 @0x24
0x2a25…2a4a }
0x2a4a…2a5a b7b1 4500 IF P=-7 THEN
0x2a4a…2a5a LineComalBin {
0x2a4a…2a5a ptr = 0xb7b1 // 0x2a4a @0x0
0x2a4a…2a5a lno = 0x1194 // 0x2a4c @0x2
0x2a4a…2a5a at0004 = ╱9c╱ IF ╱ // 0x2a4e @0x4
0x2a4a…2a5a at0005 = ╱50╱P╱ // 0x2a4f @0x5
0x2a4a…2a5a at0006 = ╱dc╱=╱ // 0x2a50 @0x6
0x2a4a…2a5a at0007 = ╱e9╱-╱ // 0x2a51 @0x7
0x2a4a…2a5a at0008 = ╱37╱7╱ // 0x2a52 @0x8
0x2a4a…2a5a at0009 = ╱fe0000e003╱ // 0x2a53 @0x9
0x2a4a…2a5a at000e = ╱b6╱ THEN ╱ // 0x2a58 @0xe
0x2a4a…2a5a at000f = EOL // 0x2a59 @0xf
0x2a4a…2a5a }
0x2a5a…2a66 b7bd 4510 SKRIV=E
0x2a5a…2a66 LineComalBin {
0x2a5a…2a66 ptr = 0xb7bd // 0x2a5a @0x0
0x2a5a…2a66 lno = 0x119e // 0x2a5c @0x2
0x2a5a…2a66 at0004 = ╱53╱S╱ // 0x2a5e @0x4
0x2a5a…2a66 at0005 = ╱4b╱K╱ // 0x2a5f @0x5
0x2a5a…2a66 at0006 = ╱52╱R╱ // 0x2a60 @0x6
0x2a5a…2a66 at0007 = ╱49╱I╱ // 0x2a61 @0x7
0x2a5a…2a66 at0008 = ╱56╱V╱ // 0x2a62 @0x8
0x2a5a…2a66 at0009 = ╱dc╱=╱ // 0x2a63 @0x9
0x2a5a…2a66 at000a = ╱45╱E╱ // 0x2a64 @0xa
0x2a5a…2a66 at000b = EOL // 0x2a65 @0xb
0x2a5a…2a66 }
0x2a66…2a6d b7c4 4520 OUTPUT P
0x2a66…2a6d LineComalBin {
0x2a66…2a6d ptr = 0xb7c4 // 0x2a66 @0x0
0x2a66…2a6d lno = 0x11a8 // 0x2a68 @0x2
0x2a66…2a6d at0004 = ╱a5╱ OUTPUT ╱ // 0x2a6a @0x4
0x2a66…2a6d at0005 = ╱50╱P╱ // 0x2a6b @0x5
0x2a66…2a6d at0006 = EOL // 0x2a6c @0x6
0x2a66…2a6d }
0x2a6d…2a7b b7d2 4530 EXEC HUDSKRIV
0x2a6d…2a7b LineComalBin {
0x2a6d…2a7b ptr = 0xb7d2 // 0x2a6d @0x0
0x2a6d…2a7b lno = 0x11b2 // 0x2a6f @0x2
0x2a6d…2a7b at0004 = ╱9d╱ EXEC ╱ // 0x2a71 @0x4
0x2a6d…2a7b at0005 = ╱48╱H╱ // 0x2a72 @0x5
0x2a6d…2a7b at0006 = ╱55╱U╱ // 0x2a73 @0x6
0x2a6d…2a7b at0007 = ╱44╱D╱ // 0x2a74 @0x7
0x2a6d…2a7b at0008 = ╱53╱S╱ // 0x2a75 @0x8
0x2a6d…2a7b at0009 = ╱4b╱K╱ // 0x2a76 @0x9
0x2a6d…2a7b at000a = ╱52╱R╱ // 0x2a77 @0xa
0x2a6d…2a7b at000b = ╱49╱I╱ // 0x2a78 @0xb
0x2a6d…2a7b at000c = ╱56╱V╱ // 0x2a79 @0xc
0x2a6d…2a7b at000d = EOL // 0x2a7a @0xd
0x2a6d…2a7b }
0x2a7b…2a81 b7d8 4540 ELSE
0x2a7b…2a81 LineComalBin {
0x2a7b…2a81 ptr = 0xb7d8 // 0x2a7b @0x0
0x2a7b…2a81 lno = 0x11bc // 0x2a7d @0x2
0x2a7b…2a81 at0004 = ╱9a╱ ELSE ╱ // 0x2a7f @0x4
0x2a7b…2a81 at0005 = EOL // 0x2a80 @0x5
0x2a7b…2a81 }
0x2a81…2a8d b7e4 4550 SKRIV=B
0x2a81…2a8d LineComalBin {
0x2a81…2a8d ptr = 0xb7e4 // 0x2a81 @0x0
0x2a81…2a8d lno = 0x11c6 // 0x2a83 @0x2
0x2a81…2a8d at0004 = ╱53╱S╱ // 0x2a85 @0x4
0x2a81…2a8d at0005 = ╱4b╱K╱ // 0x2a86 @0x5
0x2a81…2a8d at0006 = ╱52╱R╱ // 0x2a87 @0x6
0x2a81…2a8d at0007 = ╱49╱I╱ // 0x2a88 @0x7
0x2a81…2a8d at0008 = ╱56╱V╱ // 0x2a89 @0x8
0x2a81…2a8d at0009 = ╱dc╱=╱ // 0x2a8a @0x9
0x2a81…2a8d at000a = ╱42╱B╱ // 0x2a8b @0xa
0x2a81…2a8d at000b = EOL // 0x2a8c @0xb
0x2a81…2a8d }
0x2a8d…2a94 b7eb 4560 OUTPUT T
0x2a8d…2a94 LineComalBin {
0x2a8d…2a94 ptr = 0xb7eb // 0x2a8d @0x0
0x2a8d…2a94 lno = 0x11d0 // 0x2a8f @0x2
0x2a8d…2a94 at0004 = ╱a5╱ OUTPUT ╱ // 0x2a91 @0x4
0x2a8d…2a94 at0005 = ╱54╱T╱ // 0x2a92 @0x5
0x2a8d…2a94 at0006 = EOL // 0x2a93 @0x6
0x2a8d…2a94 }
0x2a94…2a9a b7f1 4570 ENDIF
0x2a94…2a9a LineComalBin {
0x2a94…2a9a ptr = 0xb7f1 // 0x2a94 @0x0
0x2a94…2a9a lno = 0x11da // 0x2a96 @0x2
0x2a94…2a9a at0004 = ╱9b╱ ENDIF ╱ // 0x2a98 @0x4
0x2a94…2a9a at0005 = EOL // 0x2a99 @0x5
0x2a94…2a9a }
0x2a9a…2aa9 b800 4580 EXEC HSUDSKRIV
0x2a9a…2aa9 LineComalBin {
0x2a9a…2aa9 ptr = 0xb800 // 0x2a9a @0x0
0x2a9a…2aa9 lno = 0x11e4 // 0x2a9c @0x2
0x2a9a…2aa9 at0004 = ╱9d╱ EXEC ╱ // 0x2a9e @0x4
0x2a9a…2aa9 at0005 = ╱48╱H╱ // 0x2a9f @0x5
0x2a9a…2aa9 at0006 = ╱53╱S╱ // 0x2aa0 @0x6
0x2a9a…2aa9 at0007 = ╱55╱U╱ // 0x2aa1 @0x7
0x2a9a…2aa9 at0008 = ╱44╱D╱ // 0x2aa2 @0x8
0x2a9a…2aa9 at0009 = ╱53╱S╱ // 0x2aa3 @0x9
0x2a9a…2aa9 at000a = ╱4b╱K╱ // 0x2aa4 @0xa
0x2a9a…2aa9 at000b = ╱52╱R╱ // 0x2aa5 @0xb
0x2a9a…2aa9 at000c = ╱49╱I╱ // 0x2aa6 @0xc
0x2a9a…2aa9 at000d = ╱56╱V╱ // 0x2aa7 @0xd
0x2a9a…2aa9 at000e = EOL // 0x2aa8 @0xe
0x2a9a…2aa9 }
0x2aa9…2ab6 b80d 4590 EXEC GLSALDO
0x2aa9…2ab6 LineComalBin {
0x2aa9…2ab6 ptr = 0xb80d // 0x2aa9 @0x0
0x2aa9…2ab6 lno = 0x11ee // 0x2aab @0x2
0x2aa9…2ab6 at0004 = ╱9d╱ EXEC ╱ // 0x2aad @0x4
0x2aa9…2ab6 at0005 = ╱47╱G╱ // 0x2aae @0x5
0x2aa9…2ab6 at0006 = ╱4c╱L╱ // 0x2aaf @0x6
0x2aa9…2ab6 at0007 = ╱53╱S╱ // 0x2ab0 @0x7
0x2aa9…2ab6 at0008 = ╱41╱A╱ // 0x2ab1 @0x8
0x2aa9…2ab6 at0009 = ╱4c╱L╱ // 0x2ab2 @0x9
0x2aa9…2ab6 at000a = ╱44╱D╱ // 0x2ab3 @0xa
0x2aa9…2ab6 at000b = ╱4f╱O╱ // 0x2ab4 @0xb
0x2aa9…2ab6 at000c = EOL // 0x2ab5 @0xc
0x2aa9…2ab6 }
0x2ab6…2add (142,) b834 4600 EXEC SØG(MEPOST,HETAB,KONT,UETAB,K19$)
0x2ab6…2add LineComalBin {
0x2ab6…2add ptr = 0xb834 // 0x2ab6 @0x0
0x2ab6…2add lno = 0x11f8 // 0x2ab8 @0x2
0x2ab6…2add at0004 = ╱9d╱ EXEC ╱ // 0x2aba @0x4
0x2ab6…2add at0005 = ╱53╱S╱ // 0x2abb @0x5
0x2ab6…2add at0006 = ╱5c╱Ø╱ // 0x2abc @0x6
0x2ab6…2add at0007 = ╱47╱G╱ // 0x2abd @0x7
0x2ab6…2add at0008 = ╱ed╱(╱ // 0x2abe @0x8
0x2ab6…2add at0009 = ╱4d╱M╱ // 0x2abf @0x9
0x2ab6…2add at000a = ╱45╱E╱ // 0x2ac0 @0xa
0x2ab6…2add at000b = ╱50╱P╱ // 0x2ac1 @0xb
0x2ab6…2add at000c = ╱4f╱O╱ // 0x2ac2 @0xc
0x2ab6…2add at000d = ╱53╱S╱ // 0x2ac3 @0xd
0x2ab6…2add at000e = ╱54╱T╱ // 0x2ac4 @0xe
0x2ab6…2add at000f = ╱ec╱,╱ // 0x2ac5 @0xf
0x2ab6…2add at0010 = ╱48╱H╱ // 0x2ac6 @0x10
0x2ab6…2add at0011 = ╱45╱E╱ // 0x2ac7 @0x11
0x2ab6…2add at0012 = ╱54╱T╱ // 0x2ac8 @0x12
0x2ab6…2add at0013 = ╱41╱A╱ // 0x2ac9 @0x13
0x2ab6…2add at0014 = ╱42╱B╱ // 0x2aca @0x14
0x2ab6…2add at0015 = ╱ec╱,╱ // 0x2acb @0x15
0x2ab6…2add at0016 = ╱4b╱K╱ // 0x2acc @0x16
0x2ab6…2add at0017 = ╱4f╱O╱ // 0x2acd @0x17
0x2ab6…2add at0018 = ╱4e╱N╱ // 0x2ace @0x18
0x2ab6…2add at0019 = ╱54╱T╱ // 0x2acf @0x19
0x2ab6…2add at001a = ╱ec╱,╱ // 0x2ad0 @0x1a
0x2ab6…2add at001b = ╱55╱U╱ // 0x2ad1 @0x1b
0x2ab6…2add at001c = ╱45╱E╱ // 0x2ad2 @0x1c
0x2ab6…2add at001d = ╱54╱T╱ // 0x2ad3 @0x1d
0x2ab6…2add at001e = ╱41╱A╱ // 0x2ad4 @0x1e
0x2ab6…2add at001f = ╱42╱B╱ // 0x2ad5 @0x1f
0x2ab6…2add at0020 = ╱ec╱,╱ // 0x2ad6 @0x20
0x2ab6…2add at0021 = ╱4b╱K╱ // 0x2ad7 @0x21
0x2ab6…2add at0022 = ╱31╱1╱ // 0x2ad8 @0x22
0x2ab6…2add at0023 = ╱39╱9╱ // 0x2ad9 @0x23
0x2ab6…2add at0024 = ╱ef╱$╱ // 0x2ada @0x24
0x2ab6…2add at0025 = ╱ee╱)╱ // 0x2adb @0x25
0x2ab6…2add at0026 = EOL // 0x2adc @0x26
0x2ab6…2add }
0x2add…2b0d b864 4610 IF T>B THEN EXEC POSTER(K18$,KONT,T,MEPOST,SKRIV,SUM$)
0x2add…2b0d LineComalBin {
0x2add…2b0d ptr = 0xb864 // 0x2add @0x0
0x2add…2b0d lno = 0x1202 // 0x2adf @0x2
0x2add…2b0d at0004 = ╱82╱ IF ╱ // 0x2ae1 @0x4
0x2add…2b0d at0005 = ╱54╱T╱ // 0x2ae2 @0x5
0x2add…2b0d at0006 = ╱de╱>╱ // 0x2ae3 @0x6
0x2add…2b0d at0007 = ╱42╱B╱ // 0x2ae4 @0x7
0x2add…2b0d at0008 = ╱b6╱ THEN ╱ // 0x2ae5 @0x8
0x2add…2b0d at0009 = ╱9d╱ EXEC ╱ // 0x2ae6 @0x9
0x2add…2b0d at000a = ╱50╱P╱ // 0x2ae7 @0xa
0x2add…2b0d at000b = ╱4f╱O╱ // 0x2ae8 @0xb
0x2add…2b0d at000c = ╱53╱S╱ // 0x2ae9 @0xc
0x2add…2b0d at000d = ╱54╱T╱ // 0x2aea @0xd
0x2add…2b0d at000e = ╱45╱E╱ // 0x2aeb @0xe
0x2add…2b0d at000f = ╱52╱R╱ // 0x2aec @0xf
0x2add…2b0d at0010 = ╱ed╱(╱ // 0x2aed @0x10
0x2add…2b0d at0011 = ╱4b╱K╱ // 0x2aee @0x11
0x2add…2b0d at0012 = ╱31╱1╱ // 0x2aef @0x12
0x2add…2b0d at0013 = ╱38╱8╱ // 0x2af0 @0x13
0x2add…2b0d at0014 = ╱ef╱$╱ // 0x2af1 @0x14
0x2add…2b0d at0015 = ╱ec╱,╱ // 0x2af2 @0x15
0x2add…2b0d at0016 = ╱4b╱K╱ // 0x2af3 @0x16
0x2add…2b0d at0017 = ╱4f╱O╱ // 0x2af4 @0x17
0x2add…2b0d at0018 = ╱4e╱N╱ // 0x2af5 @0x18
0x2add…2b0d at0019 = ╱54╱T╱ // 0x2af6 @0x19
0x2add…2b0d at001a = ╱ec╱,╱ // 0x2af7 @0x1a
0x2add…2b0d at001b = ╱54╱T╱ // 0x2af8 @0x1b
0x2add…2b0d at001c = ╱ec╱,╱ // 0x2af9 @0x1c
0x2add…2b0d at001d = ╱4d╱M╱ // 0x2afa @0x1d
0x2add…2b0d at001e = ╱45╱E╱ // 0x2afb @0x1e
0x2add…2b0d at001f = ╱50╱P╱ // 0x2afc @0x1f
0x2add…2b0d at0020 = ╱4f╱O╱ // 0x2afd @0x20
0x2add…2b0d at0021 = ╱53╱S╱ // 0x2afe @0x21
0x2add…2b0d at0022 = ╱54╱T╱ // 0x2aff @0x22
0x2add…2b0d at0023 = ╱ec╱,╱ // 0x2b00 @0x23
0x2add…2b0d at0024 = ╱53╱S╱ // 0x2b01 @0x24
0x2add…2b0d at0025 = ╱4b╱K╱ // 0x2b02 @0x25
0x2add…2b0d at0026 = ╱52╱R╱ // 0x2b03 @0x26
0x2add…2b0d at0027 = ╱49╱I╱ // 0x2b04 @0x27
0x2add…2b0d at0028 = ╱56╱V╱ // 0x2b05 @0x28
0x2add…2b0d at0029 = ╱ec╱,╱ // 0x2b06 @0x29
0x2add…2b0d at002a = ╱53╱S╱ // 0x2b07 @0x2a
0x2add…2b0d at002b = ╱55╱U╱ // 0x2b08 @0x2b
0x2add…2b0d at002c = ╱4d╱M╱ // 0x2b09 @0x2c
0x2add…2b0d at002d = ╱ef╱$╱ // 0x2b0a @0x2d
0x2add…2b0d at002e = ╱ee╱)╱ // 0x2b0b @0x2e
0x2add…2b0d at002f = EOL // 0x2b0c @0x2f
0x2add…2b0d }
0x2b0d…2b1b b872 4620 IF SKRIV=B THEN
0x2b0d…2b1b LineComalBin {
0x2b0d…2b1b ptr = 0xb872 // 0x2b0d @0x0
0x2b0d…2b1b lno = 0x120c // 0x2b0f @0x2
0x2b0d…2b1b at0004 = ╱9c╱ IF ╱ // 0x2b11 @0x4
0x2b0d…2b1b at0005 = ╱53╱S╱ // 0x2b12 @0x5
0x2b0d…2b1b at0006 = ╱4b╱K╱ // 0x2b13 @0x6
0x2b0d…2b1b at0007 = ╱52╱R╱ // 0x2b14 @0x7
0x2b0d…2b1b at0008 = ╱49╱I╱ // 0x2b15 @0x8
0x2b0d…2b1b at0009 = ╱56╱V╱ // 0x2b16 @0x9
0x2b0d…2b1b at000a = ╱dc╱=╱ // 0x2b17 @0xa
0x2b0d…2b1b at000b = ╱42╱B╱ // 0x2b18 @0xb
0x2b0d…2b1b at000c = ╱b6╱ THEN ╱ // 0x2b19 @0xc
0x2b0d…2b1b at000d = EOL // 0x2b1a @0xd
0x2b0d…2b1b }
0x2b1b…2b36 b88d 4630 EXEC TUD(SUM$,UBELØB$,B,B)
0x2b1b…2b36 LineComalBin {
0x2b1b…2b36 ptr = 0xb88d // 0x2b1b @0x0
0x2b1b…2b36 lno = 0x1216 // 0x2b1d @0x2
0x2b1b…2b36 at0004 = ╱9d╱ EXEC ╱ // 0x2b1f @0x4
0x2b1b…2b36 at0005 = ╱54╱T╱ // 0x2b20 @0x5
0x2b1b…2b36 at0006 = ╱55╱U╱ // 0x2b21 @0x6
0x2b1b…2b36 at0007 = ╱44╱D╱ // 0x2b22 @0x7
0x2b1b…2b36 at0008 = ╱ed╱(╱ // 0x2b23 @0x8
0x2b1b…2b36 at0009 = ╱53╱S╱ // 0x2b24 @0x9
0x2b1b…2b36 at000a = ╱55╱U╱ // 0x2b25 @0xa
0x2b1b…2b36 at000b = ╱4d╱M╱ // 0x2b26 @0xb
0x2b1b…2b36 at000c = ╱ef╱$╱ // 0x2b27 @0xc
0x2b1b…2b36 at000d = ╱ec╱,╱ // 0x2b28 @0xd
0x2b1b…2b36 at000e = ╱55╱U╱ // 0x2b29 @0xe
0x2b1b…2b36 at000f = ╱42╱B╱ // 0x2b2a @0xf
0x2b1b…2b36 at0010 = ╱45╱E╱ // 0x2b2b @0x10
0x2b1b…2b36 at0011 = ╱4c╱L╱ // 0x2b2c @0x11
0x2b1b…2b36 at0012 = ╱5c╱Ø╱ // 0x2b2d @0x12
0x2b1b…2b36 at0013 = ╱42╱B╱ // 0x2b2e @0x13
0x2b1b…2b36 at0014 = ╱ef╱$╱ // 0x2b2f @0x14
0x2b1b…2b36 at0015 = ╱ec╱,╱ // 0x2b30 @0x15
0x2b1b…2b36 at0016 = ╱42╱B╱ // 0x2b31 @0x16
0x2b1b…2b36 at0017 = ╱ec╱,╱ // 0x2b32 @0x17
0x2b1b…2b36 at0018 = ╱42╱B╱ // 0x2b33 @0x18
0x2b1b…2b36 at0019 = ╱ee╱)╱ // 0x2b34 @0x19
0x2b1b…2b36 at001a = EOL // 0x2b35 @0x1a
0x2b1b…2b36 }
0x2b36…2b58 b8af 4640 PRINT TAB(35);STREG$(E:43)
0x2b36…2b58 LineComalBin {
0x2b36…2b58 ptr = 0xb8af // 0x2b36 @0x0
0x2b36…2b58 lno = 0x1220 // 0x2b38 @0x2
0x2b36…2b58 at0004 = ╱92╱ PRINT ╱ // 0x2b3a @0x4
0x2b36…2b58 at0005 = ╱d2╱TAB╱ // 0x2b3b @0x5
0x2b36…2b58 at0006 = ╱ed╱(╱ // 0x2b3c @0x6
0x2b36…2b58 at0007 = ╱33╱3╱ // 0x2b3d @0x7
0x2b36…2b58 at0008 = ╱35╱5╱ // 0x2b3e @0x8
0x2b36…2b58 at0009 = ╱fe00008c06╱ // 0x2b3f @0x9
0x2b36…2b58 at000e = ╱ee╱)╱ // 0x2b44 @0xe
0x2b36…2b58 at000f = ╱eb╱;╱ // 0x2b45 @0xf
0x2b36…2b58 at0010 = ╱53╱S╱ // 0x2b46 @0x10
0x2b36…2b58 at0011 = ╱54╱T╱ // 0x2b47 @0x11
0x2b36…2b58 at0012 = ╱52╱R╱ // 0x2b48 @0x12
0x2b36…2b58 at0013 = ╱45╱E╱ // 0x2b49 @0x13
0x2b36…2b58 at0014 = ╱47╱G╱ // 0x2b4a @0x14
0x2b36…2b58 at0015 = ╱ef╱$╱ // 0x2b4b @0x15
0x2b36…2b58 at0016 = ╱ed╱(╱ // 0x2b4c @0x16
0x2b36…2b58 at0017 = ╱45╱E╱ // 0x2b4d @0x17
0x2b36…2b58 at0018 = ╱f0╱:╱ // 0x2b4e @0x18
0x2b36…2b58 at0019 = ╱34╱4╱ // 0x2b4f @0x19
0x2b36…2b58 at001a = ╱33╱3╱ // 0x2b50 @0x1a
0x2b36…2b58 at001b = ╱fe0000ac06╱ // 0x2b51 @0x1b
0x2b36…2b58 at0020 = ╱ee╱)╱ // 0x2b56 @0x20
0x2b36…2b58 at0021 = EOL // 0x2b57 @0x21
0x2b36…2b58 }
0x2b58…2ba2 b8f9 4650 PRINT TAB(35);"Ny saldo";TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$
0x2b58…2ba2 LineComalBin {
0x2b58…2ba2 ptr = 0xb8f9 // 0x2b58 @0x0
0x2b58…2ba2 lno = 0x122a // 0x2b5a @0x2
0x2b58…2ba2 at0004 = ╱92╱ PRINT ╱ // 0x2b5c @0x4
0x2b58…2ba2 at0005 = ╱d2╱TAB╱ // 0x2b5d @0x5
0x2b58…2ba2 at0006 = ╱ed╱(╱ // 0x2b5e @0x6
0x2b58…2ba2 at0007 = ╱33╱3╱ // 0x2b5f @0x7
0x2b58…2ba2 at0008 = ╱35╱5╱ // 0x2b60 @0x8
0x2b58…2ba2 at0009 = ╱fe00008c06╱ // 0x2b61 @0x9
0x2b58…2ba2 at000e = ╱ee╱)╱ // 0x2b66 @0xe
0x2b58…2ba2 at000f = ╱eb╱;╱ // 0x2b67 @0xf
0x2b58…2ba2 at0010 = ╱22╱"╱ // 0x2b68 @0x10
0x2b58…2ba2 at0011 = ╱4e╱N╱ // 0x2b69 @0x11
0x2b58…2ba2 at0012 = ╱79╱y╱ // 0x2b6a @0x12
0x2b58…2ba2 at0013 = ╱20╱…╱ // 0x2b6b @0x13
0x2b58…2ba2 at0014 = ╱73╱s╱ // 0x2b6c @0x14
0x2b58…2ba2 at0015 = ╱61╱a╱ // 0x2b6d @0x15
0x2b58…2ba2 at0016 = ╱6c╱l╱ // 0x2b6e @0x16
0x2b58…2ba2 at0017 = ╱64╱d╱ // 0x2b6f @0x17
0x2b58…2ba2 at0018 = ╱6f╱o╱ // 0x2b70 @0x18
0x2b58…2ba2 at0019 = ╱22╱"╱ // 0x2b71 @0x19
0x2b58…2ba2 at001a = ╱eb╱;╱ // 0x2b72 @0x1a
0x2b58…2ba2 at001b = ╱d2╱TAB╱ // 0x2b73 @0x1b
0x2b58…2ba2 at001c = ╱ed╱(╱ // 0x2b74 @0x1c
0x2b58…2ba2 at001d = ╱35╱5╱ // 0x2b75 @0x1d
0x2b58…2ba2 at001e = ╱31╱1╱ // 0x2b76 @0x1e
0x2b58…2ba2 at001f = ╱fe0000cc06╱ // 0x2b77 @0x1f
0x2b58…2ba2 at0024 = ╱e2╱+╱ // 0x2b7c @0x24
0x2b58…2ba2 at0025 = ╱31╱1╱ // 0x2b7d @0x25
0x2b58…2ba2 at0026 = ╱35╱5╱ // 0x2b7e @0x26
0x2b58…2ba2 at0027 = ╱fe0000f004╱ // 0x2b7f @0x27
0x2b58…2ba2 at002c = ╱e4╱*╱ // 0x2b84 @0x2c
0x2b58…2ba2 at002d = ╱ed╱(╱ // 0x2b85 @0x2d
0x2b58…2ba2 at002e = ╱53╱S╱ // 0x2b86 @0x2e
0x2b58…2ba2 at002f = ╱55╱U╱ // 0x2b87 @0x2f
0x2b58…2ba2 at0030 = ╱4d╱M╱ // 0x2b88 @0x30
0x2b58…2ba2 at0031 = ╱ef╱$╱ // 0x2b89 @0x31
0x2b58…2ba2 at0032 = ╱ed╱(╱ // 0x2b8a @0x32
0x2b58…2ba2 at0033 = ╱cc╱LEN╱ // 0x2b8b @0x33
0x2b58…2ba2 at0034 = ╱ed╱(╱ // 0x2b8c @0x34
0x2b58…2ba2 at0035 = ╱53╱S╱ // 0x2b8d @0x35
0x2b58…2ba2 at0036 = ╱55╱U╱ // 0x2b8e @0x36
0x2b58…2ba2 at0037 = ╱4d╱M╱ // 0x2b8f @0x37
0x2b58…2ba2 at0038 = ╱ef╱$╱ // 0x2b90 @0x38
0x2b58…2ba2 at0039 = ╱ee╱)╱ // 0x2b91 @0x39
0x2b58…2ba2 at003a = ╱ee╱)╱ // 0x2b92 @0x3a
0x2b58…2ba2 at003b = ╱dc╱=╱ // 0x2b93 @0x3b
0x2b58…2ba2 at003c = ╱22╱"╱ // 0x2b94 @0x3c
0x2b58…2ba2 at003d = ╱2d╱-╱ // 0x2b95 @0x3d
0x2b58…2ba2 at003e = ╱22╱"╱ // 0x2b96 @0x3e
0x2b58…2ba2 at003f = ╱ee╱)╱ // 0x2b97 @0x3f
0x2b58…2ba2 at0040 = ╱ee╱)╱ // 0x2b98 @0x40
0x2b58…2ba2 at0041 = ╱eb╱;╱ // 0x2b99 @0x41
0x2b58…2ba2 at0042 = ╱55╱U╱ // 0x2b9a @0x42
0x2b58…2ba2 at0043 = ╱42╱B╱ // 0x2b9b @0x43
0x2b58…2ba2 at0044 = ╱45╱E╱ // 0x2b9c @0x44
0x2b58…2ba2 at0045 = ╱4c╱L╱ // 0x2b9d @0x45
0x2b58…2ba2 at0046 = ╱5c╱Ø╱ // 0x2b9e @0x46
0x2b58…2ba2 at0047 = ╱42╱B╱ // 0x2b9f @0x47
0x2b58…2ba2 at0048 = ╱ef╱$╱ // 0x2ba0 @0x48
0x2b58…2ba2 at0049 = EOL // 0x2ba1 @0x49
0x2b58…2ba2 }
0x2ba2…2ba8 b8ff 4660 ELSE
0x2ba2…2ba8 LineComalBin {
0x2ba2…2ba8 ptr = 0xb8ff // 0x2ba2 @0x0
0x2ba2…2ba8 lno = 0x1234 // 0x2ba4 @0x2
0x2ba2…2ba8 at0004 = ╱9a╱ ELSE ╱ // 0x2ba6 @0x4
0x2ba2…2ba8 at0005 = EOL // 0x2ba7 @0x5
0x2ba2…2ba8 }
0x2ba8…2bdb b932 4670 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE)
0x2ba8…2bdb LineComalBin {
0x2ba8…2bdb ptr = 0xb932 // 0x2ba8 @0x0
0x2ba8…2bdb lno = 0x123e // 0x2baa @0x2
0x2ba8…2bdb at0004 = ╱9d╱ EXEC ╱ // 0x2bac @0x4
0x2ba8…2bdb at0005 = ╱42╱B╱ // 0x2bad @0x5
0x2ba8…2bdb at0006 = ╱55╱U╱ // 0x2bae @0x6
0x2ba8…2bdb at0007 = ╱44╱D╱ // 0x2baf @0x7
0x2ba8…2bdb at0008 = ╱53╱S╱ // 0x2bb0 @0x8
0x2ba8…2bdb at0009 = ╱4b╱K╱ // 0x2bb1 @0x9
0x2ba8…2bdb at000a = ╱52╱R╱ // 0x2bb2 @0xa
0x2ba8…2bdb at000b = ╱49╱I╱ // 0x2bb3 @0xb
0x2ba8…2bdb at000c = ╱56╱V╱ // 0x2bb4 @0xc
0x2ba8…2bdb at000d = ╱ed╱(╱ // 0x2bb5 @0xd
0x2ba8…2bdb at000e = ╱54╱T╱ // 0x2bb6 @0xe
0x2ba8…2bdb at000f = ╱41╱A╱ // 0x2bb7 @0xf
0x2ba8…2bdb at0010 = ╱4c╱L╱ // 0x2bb8 @0x10
0x2ba8…2bdb at0011 = ╱34╱4╱ // 0x2bb9 @0x11
0x2ba8…2bdb at0012 = ╱ef╱$╱ // 0x2bba @0x12
0x2ba8…2bdb at0013 = ╱ec╱,╱ // 0x2bbb @0x13
0x2ba8…2bdb at0014 = ╱30╱0╱ // 0x2bbc @0x14
0x2ba8…2bdb at0015 = ╱fe00000000╱ // 0x2bbd @0x15
0x2ba8…2bdb at001a = ╱ec╱,╱ // 0x2bc2 @0x1a
0x2ba8…2bdb at001b = ╱53╱S╱ // 0x2bc3 @0x1b
0x2ba8…2bdb at001c = ╱55╱U╱ // 0x2bc4 @0x1c
0x2ba8…2bdb at001d = ╱4d╱M╱ // 0x2bc5 @0x1d
0x2ba8…2bdb at001e = ╱ef╱$╱ // 0x2bc6 @0x1e
0x2ba8…2bdb at001f = ╱ec╱,╱ // 0x2bc7 @0x1f
0x2ba8…2bdb at0020 = ╱4d╱M╱ // 0x2bc8 @0x20
0x2ba8…2bdb at0021 = ╱42╱B╱ // 0x2bc9 @0x21
0x2ba8…2bdb at0022 = ╱45╱E╱ // 0x2bca @0x22
0x2ba8…2bdb at0023 = ╱56╱V╱ // 0x2bcb @0x23
0x2ba8…2bdb at0024 = ╱ef╱$╱ // 0x2bcc @0x24
0x2ba8…2bdb at0025 = ╱ec╱,╱ // 0x2bcd @0x25
0x2ba8…2bdb at0026 = ╱59╱Y╱ // 0x2bce @0x26
0x2ba8…2bdb at0027 = ╱42╱B╱ // 0x2bcf @0x27
0x2ba8…2bdb at0028 = ╱45╱E╱ // 0x2bd0 @0x28
0x2ba8…2bdb at0029 = ╱56╱V╱ // 0x2bd1 @0x29
0x2ba8…2bdb at002a = ╱ef╱$╱ // 0x2bd2 @0x2a
0x2ba8…2bdb at002b = ╱ec╱,╱ // 0x2bd3 @0x2b
0x2ba8…2bdb at002c = ╱4c╱L╱ // 0x2bd4 @0x2c
0x2ba8…2bdb at002d = ╱49╱I╱ // 0x2bd5 @0x2d
0x2ba8…2bdb at002e = ╱4e╱N╱ // 0x2bd6 @0x2e
0x2ba8…2bdb at002f = ╱49╱I╱ // 0x2bd7 @0x2f
0x2ba8…2bdb at0030 = ╱45╱E╱ // 0x2bd8 @0x30
0x2ba8…2bdb at0031 = ╱ee╱)╱ // 0x2bd9 @0x31
0x2ba8…2bdb at0032 = EOL // 0x2bda @0x32
0x2ba8…2bdb }
0x2bdb…2be1 b938 4680 ENDIF
0x2bdb…2be1 LineComalBin {
0x2bdb…2be1 ptr = 0xb938 // 0x2bdb @0x0
0x2bdb…2be1 lno = 0x1248 // 0x2bdd @0x2
0x2bdb…2be1 at0004 = ╱9b╱ ENDIF ╱ // 0x2bdf @0x4
0x2bdb…2be1 at0005 = EOL // 0x2be0 @0x5
0x2bdb…2be1 }
0x2be1…2be8 b93f 4690 OUTPUT T
0x2be1…2be8 LineComalBin {
0x2be1…2be8 ptr = 0xb93f // 0x2be1 @0x0
0x2be1…2be8 lno = 0x1252 // 0x2be3 @0x2
0x2be1…2be8 at0004 = ╱a5╱ OUTPUT ╱ // 0x2be5 @0x4
0x2be1…2be8 at0005 = ╱54╱T╱ // 0x2be6 @0x5
0x2be1…2be8 at0006 = EOL // 0x2be7 @0x6
0x2be1…2be8 }
0x2be8…2c22 b979 4700 EXEC INDPUT1(4,23,-9,-6,LTX$(6))
0x2be8…2c22 LineComalBin {
0x2be8…2c22 ptr = 0xb979 // 0x2be8 @0x0
0x2be8…2c22 lno = 0x125c // 0x2bea @0x2
0x2be8…2c22 at0004 = ╱9d╱ EXEC ╱ // 0x2bec @0x4
0x2be8…2c22 at0005 = ╱49╱I╱ // 0x2bed @0x5
0x2be8…2c22 at0006 = ╱4e╱N╱ // 0x2bee @0x6
0x2be8…2c22 at0007 = ╱44╱D╱ // 0x2bef @0x7
0x2be8…2c22 at0008 = ╱50╱P╱ // 0x2bf0 @0x8
0x2be8…2c22 at0009 = ╱55╱U╱ // 0x2bf1 @0x9
0x2be8…2c22 at000a = ╱54╱T╱ // 0x2bf2 @0xa
0x2be8…2c22 at000b = ╱31╱1╱ // 0x2bf3 @0xb
0x2be8…2c22 at000c = ╱ed╱(╱ // 0x2bf4 @0xc
0x2be8…2c22 at000d = ╱34╱4╱ // 0x2bf5 @0xd
0x2be8…2c22 at000e = ╱fe00008003╱ // 0x2bf6 @0xe
0x2be8…2c22 at0013 = ╱ec╱,╱ // 0x2bfb @0x13
0x2be8…2c22 at0014 = ╱32╱2╱ // 0x2bfc @0x14
0x2be8…2c22 at0015 = ╱33╱3╱ // 0x2bfd @0x15
0x2be8…2c22 at0016 = ╱fe0000b805╱ // 0x2bfe @0x16
0x2be8…2c22 at001b = ╱ec╱,╱ // 0x2c03 @0x1b
0x2be8…2c22 at001c = ╱e9╱-╱ // 0x2c04 @0x1c
0x2be8…2c22 at001d = ╱39╱9╱ // 0x2c05 @0x1d
0x2be8…2c22 at001e = ╱fe00009004╱ // 0x2c06 @0x1e
0x2be8…2c22 at0023 = ╱ec╱,╱ // 0x2c0b @0x23
0x2be8…2c22 at0024 = ╱e9╱-╱ // 0x2c0c @0x24
0x2be8…2c22 at0025 = ╱36╱6╱ // 0x2c0d @0x25
0x2be8…2c22 at0026 = ╱fe0000c003╱ // 0x2c0e @0x26
0x2be8…2c22 at002b = ╱ec╱,╱ // 0x2c13 @0x2b
0x2be8…2c22 at002c = ╱4c╱L╱ // 0x2c14 @0x2c
0x2be8…2c22 at002d = ╱54╱T╱ // 0x2c15 @0x2d
0x2be8…2c22 at002e = ╱58╱X╱ // 0x2c16 @0x2e
0x2be8…2c22 at002f = ╱ef╱$╱ // 0x2c17 @0x2f
0x2be8…2c22 at0030 = ╱ed╱(╱ // 0x2c18 @0x30
0x2be8…2c22 at0031 = ╱36╱6╱ // 0x2c19 @0x31
0x2be8…2c22 at0032 = ╱fe0000c003╱ // 0x2c1a @0x32
0x2be8…2c22 at0037 = ╱ee╱)╱ // 0x2c1f @0x37
0x2be8…2c22 at0038 = ╱ee╱)╱ // 0x2c20 @0x38
0x2be8…2c22 at0039 = EOL // 0x2c21 @0x39
0x2be8…2c22 }
0x2c22…2c32 b989 4710 IF P=-7 THEN
0x2c22…2c32 LineComalBin {
0x2c22…2c32 ptr = 0xb989 // 0x2c22 @0x0
0x2c22…2c32 lno = 0x1266 // 0x2c24 @0x2
0x2c22…2c32 at0004 = ╱9c╱ IF ╱ // 0x2c26 @0x4
0x2c22…2c32 at0005 = ╱50╱P╱ // 0x2c27 @0x5
0x2c22…2c32 at0006 = ╱dc╱=╱ // 0x2c28 @0x6
0x2c22…2c32 at0007 = ╱e9╱-╱ // 0x2c29 @0x7
0x2c22…2c32 at0008 = ╱37╱7╱ // 0x2c2a @0x8
0x2c22…2c32 at0009 = ╱fe0000e003╱ // 0x2c2b @0x9
0x2c22…2c32 at000e = ╱b6╱ THEN ╱ // 0x2c30 @0xe
0x2c22…2c32 at000f = EOL // 0x2c31 @0xf
0x2c22…2c32 }
0x2c32…2c40 b997 4720 EXEC STARTBIL
0x2c32…2c40 LineComalBin {
0x2c32…2c40 ptr = 0xb997 // 0x2c32 @0x0
0x2c32…2c40 lno = 0x1270 // 0x2c34 @0x2
0x2c32…2c40 at0004 = ╱9d╱ EXEC ╱ // 0x2c36 @0x4
0x2c32…2c40 at0005 = ╱53╱S╱ // 0x2c37 @0x5
0x2c32…2c40 at0006 = ╱54╱T╱ // 0x2c38 @0x6
0x2c32…2c40 at0007 = ╱41╱A╱ // 0x2c39 @0x7
0x2c32…2c40 at0008 = ╱52╱R╱ // 0x2c3a @0x8
0x2c32…2c40 at0009 = ╱54╱T╱ // 0x2c3b @0x9
0x2c32…2c40 at000a = ╱42╱B╱ // 0x2c3c @0xa
0x2c32…2c40 at000b = ╱49╱I╱ // 0x2c3d @0xb
0x2c32…2c40 at000c = ╱4c╱L╱ // 0x2c3e @0xc
0x2c32…2c40 at000d = EOL // 0x2c3f @0xd
0x2c32…2c40 }
0x2c40…2c46 b99d 4730 ELSE
0x2c40…2c46 LineComalBin {
0x2c40…2c46 ptr = 0xb99d // 0x2c40 @0x0
0x2c40…2c46 lno = 0x127a // 0x2c42 @0x2
0x2c40…2c46 at0004 = ╱9a╱ ELSE ╱ // 0x2c44 @0x4
0x2c40…2c46 at0005 = EOL // 0x2c45 @0x5
0x2c40…2c46 }
0x2c46…2c51 b9a8 4740 KONT=B
0x2c46…2c51 LineComalBin {
0x2c46…2c51 ptr = 0xb9a8 // 0x2c46 @0x0
0x2c46…2c51 lno = 0x1284 // 0x2c48 @0x2
0x2c46…2c51 at0004 = ╱4b╱K╱ // 0x2c4a @0x4
0x2c46…2c51 at0005 = ╱4f╱O╱ // 0x2c4b @0x5
0x2c46…2c51 at0006 = ╱4e╱N╱ // 0x2c4c @0x6
0x2c46…2c51 at0007 = ╱54╱T╱ // 0x2c4d @0x7
0x2c46…2c51 at0008 = ╱dc╱=╱ // 0x2c4e @0x8
0x2c46…2c51 at0009 = ╱42╱B╱ // 0x2c4f @0x9
0x2c46…2c51 at000a = EOL // 0x2c50 @0xa
0x2c46…2c51 }
0x2c51…2c57 b9ae 4750 ENDIF
0x2c51…2c57 LineComalBin {
0x2c51…2c57 ptr = 0xb9ae // 0x2c51 @0x0
0x2c51…2c57 lno = 0x128e // 0x2c53 @0x2
0x2c51…2c57 at0004 = ╱9b╱ ENDIF ╱ // 0x2c55 @0x4
0x2c51…2c57 at0005 = EOL // 0x2c56 @0x5
0x2c51…2c57 }
0x2c57…2c63 b9ba 4760 UNTIL KONT=B
0x2c57…2c63 LineComalBin {
0x2c57…2c63 ptr = 0xb9ba // 0x2c57 @0x0
0x2c57…2c63 lno = 0x1298 // 0x2c59 @0x2
0x2c57…2c63 at0004 = ╱98╱ UNTIL ╱ // 0x2c5b @0x4
0x2c57…2c63 at0005 = ╱4b╱K╱ // 0x2c5c @0x5
0x2c57…2c63 at0006 = ╱4f╱O╱ // 0x2c5d @0x6
0x2c57…2c63 at0007 = ╱4e╱N╱ // 0x2c5e @0x7
0x2c57…2c63 at0008 = ╱54╱T╱ // 0x2c5f @0x8
0x2c57…2c63 at0009 = ╱dc╱=╱ // 0x2c60 @0x9
0x2c57…2c63 at000a = ╱42╱B╱ // 0x2c61 @0xa
0x2c57…2c63 at000b = EOL // 0x2c62 @0xb
0x2c57…2c63 }
0x2c63…2c69 b9c0 4770 ENDIF
0x2c63…2c69 LineComalBin {
0x2c63…2c69 ptr = 0xb9c0 // 0x2c63 @0x0
0x2c63…2c69 lno = 0x12a2 // 0x2c65 @0x2
0x2c63…2c69 at0004 = ╱9b╱ ENDIF ╱ // 0x2c67 @0x4
0x2c63…2c69 at0005 = EOL // 0x2c68 @0x5
0x2c63…2c69 }
0x2c69…2c6f b9c6 4780 CLOSE
0x2c69…2c6f LineComalBin {
0x2c69…2c6f ptr = 0xb9c6 // 0x2c69 @0x0
0x2c69…2c6f lno = 0x12ac // 0x2c6b @0x2
0x2c69…2c6f at0004 = ╱a8╱ CLOSE ╱ // 0x2c6d @0x4
0x2c69…2c6f at0005 = EOL // 0x2c6e @0x5
0x2c69…2c6f }
0x2c6f…2c76 b9cd 4790 OUTPUT T
0x2c6f…2c76 LineComalBin {
0x2c6f…2c76 ptr = 0xb9cd // 0x2c6f @0x0
0x2c6f…2c76 lno = 0x12b6 // 0x2c71 @0x2
0x2c6f…2c76 at0004 = ╱a5╱ OUTPUT ╱ // 0x2c73 @0x4
0x2c6f…2c76 at0005 = ╱54╱T╱ // 0x2c74 @0x5
0x2c6f…2c76 at0006 = EOL // 0x2c75 @0x6
0x2c6f…2c76 }
0x2c76…2c7c b9d3 4800 CLEAR
0x2c76…2c7c LineComalBin {
0x2c76…2c7c ptr = 0xb9d3 // 0x2c76 @0x0
0x2c76…2c7c lno = 0x12c0 // 0x2c78 @0x2
0x2c76…2c7c at0004 = ╱a0╱ CLEAR ╱ // 0x2c7a @0x4
0x2c76…2c7c at0005 = EOL // 0x2c7b @0x5
0x2c76…2c7c }
0x2c7c…2c9e b9f5 4810 IF MAFSLUT=E THEN CHAIN "P641210:MAFSLUT"
0x2c7c…2c9e LineComalBin {
0x2c7c…2c9e ptr = 0xb9f5 // 0x2c7c @0x0
0x2c7c…2c9e lno = 0x12ca // 0x2c7e @0x2
0x2c7c…2c9e at0004 = ╱82╱ IF ╱ // 0x2c80 @0x4
0x2c7c…2c9e at0005 = ╱4d╱M╱ // 0x2c81 @0x5
0x2c7c…2c9e at0006 = ╱41╱A╱ // 0x2c82 @0x6
0x2c7c…2c9e at0007 = ╱46╱F╱ // 0x2c83 @0x7
0x2c7c…2c9e at0008 = ╱53╱S╱ // 0x2c84 @0x8
0x2c7c…2c9e at0009 = ╱4c╱L╱ // 0x2c85 @0x9
0x2c7c…2c9e at000a = ╱55╱U╱ // 0x2c86 @0xa
0x2c7c…2c9e at000b = ╱54╱T╱ // 0x2c87 @0xb
0x2c7c…2c9e at000c = ╱dc╱=╱ // 0x2c88 @0xc
0x2c7c…2c9e at000d = ╱45╱E╱ // 0x2c89 @0xd
0x2c7c…2c9e at000e = ╱b6╱ THEN ╱ // 0x2c8a @0xe
0x2c7c…2c9e at000f = ╱ac╱ CHAIN ╱ // 0x2c8b @0xf
0x2c7c…2c9e at0010 = ╱22╱"╱ // 0x2c8c @0x10
0x2c7c…2c9e at0011 = ╱50╱P╱ // 0x2c8d @0x11
0x2c7c…2c9e at0012 = ╱36╱6╱ // 0x2c8e @0x12
0x2c7c…2c9e at0013 = ╱34╱4╱ // 0x2c8f @0x13
0x2c7c…2c9e at0014 = ╱31╱1╱ // 0x2c90 @0x14
0x2c7c…2c9e at0015 = ╱32╱2╱ // 0x2c91 @0x15
0x2c7c…2c9e at0016 = ╱31╱1╱ // 0x2c92 @0x16
0x2c7c…2c9e at0017 = ╱30╱0╱ // 0x2c93 @0x17
0x2c7c…2c9e at0018 = ╱3a╱:╱ // 0x2c94 @0x18
0x2c7c…2c9e at0019 = ╱4d╱M╱ // 0x2c95 @0x19
0x2c7c…2c9e at001a = ╱41╱A╱ // 0x2c96 @0x1a
0x2c7c…2c9e at001b = ╱46╱F╱ // 0x2c97 @0x1b
0x2c7c…2c9e at001c = ╱53╱S╱ // 0x2c98 @0x1c
0x2c7c…2c9e at001d = ╱4c╱L╱ // 0x2c99 @0x1d
0x2c7c…2c9e at001e = ╱55╱U╱ // 0x2c9a @0x1e
0x2c7c…2c9e at001f = ╱54╱T╱ // 0x2c9b @0x1f
0x2c7c…2c9e at0020 = ╱22╱"╱ // 0x2c9c @0x20
0x2c7c…2c9e at0021 = EOL // 0x2c9d @0x21
0x2c7c…2c9e }
0x2c9e…2cb5 0000 4820 CHAIN "P641210:OPSTART"
0x2c9e…2cb5 LineComalBin {
0x2c9e…2cb5 ptr = 0x0000 // 0x2c9e @0x0
0x2c9e…2cb5 lno = 0x12d4 // 0x2ca0 @0x2
0x2c9e…2cb5 at0004 = ╱ac╱ CHAIN ╱ // 0x2ca2 @0x4
0x2c9e…2cb5 at0005 = ╱22╱"╱ // 0x2ca3 @0x5
0x2c9e…2cb5 at0006 = ╱50╱P╱ // 0x2ca4 @0x6
0x2c9e…2cb5 at0007 = ╱36╱6╱ // 0x2ca5 @0x7
0x2c9e…2cb5 at0008 = ╱34╱4╱ // 0x2ca6 @0x8
0x2c9e…2cb5 at0009 = ╱31╱1╱ // 0x2ca7 @0x9
0x2c9e…2cb5 at000a = ╱32╱2╱ // 0x2ca8 @0xa
0x2c9e…2cb5 at000b = ╱31╱1╱ // 0x2ca9 @0xb
0x2c9e…2cb5 at000c = ╱30╱0╱ // 0x2caa @0xc
0x2c9e…2cb5 at000d = ╱3a╱:╱ // 0x2cab @0xd
0x2c9e…2cb5 at000e = ╱4f╱O╱ // 0x2cac @0xe
0x2c9e…2cb5 at000f = ╱50╱P╱ // 0x2cad @0xf
0x2c9e…2cb5 at0010 = ╱53╱S╱ // 0x2cae @0x10
0x2c9e…2cb5 at0011 = ╱54╱T╱ // 0x2caf @0x11
0x2c9e…2cb5 at0012 = ╱41╱A╱ // 0x2cb0 @0x12
0x2c9e…2cb5 at0013 = ╱52╱R╱ // 0x2cb1 @0x13
0x2c9e…2cb5 at0014 = ╱54╱T╱ // 0x2cb2 @0x14
0x2c9e…2cb5 at0015 = ╱22╱"╱ // 0x2cb3 @0x15
0x2c9e…2cb5 at0016 = EOL // 0x2cb4 @0x16
0x2c9e…2cb5 }
0x2cb5…2cc0 57 8d 5a 00 42 dc 30 fe 00 00 00 ┆W Z B 0 ┆
0x2cc0…2cd1 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 ┆ E 1 G 2 ┆
0x2cd1…2ce6 (149,) 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ V 3 W 9 ┆
0x2ce6…2cec (150,) 57 8d 0c ba 10 00 ┆W ┆