|
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: 15201 (0x3b61)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »FAKUD.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »FAKUD.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »FAKUD.B«
0100 DIM OP1$(12),OP2$(12),RES$(15) 0110 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E) 0120 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25) 0130 DIM DEBTLF$(W),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8) 0140 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12),T1(W),T2(W) 0150 DIM MOMS$(12),FTOTAL$(12),KOD1$(E),KOD$(E),TAL1$(12),TAL4$(14) 0160 DIM VARTEKST$(50),VARPRIS$(12),BELØB$(12),TOTAL$(12),T3(W),K4$(17) 0170 DIM SVAR1$(E),FAKKRE$(E),LEVTEKST$(52),ANTAL$(12),BLANK$(50),K5$(17) 0180 DIM FORS$(12),PRO$(12),VARTH$(25),K6$(17),KOD3$(E) 0190 DIM TE$(30),TEKO$(E),F$(E),K7$(17),K8$(17) 0200 DIM K9$(17),LAND$(W,12),BLB2$(12),TAH$(12),D1$(25),D2$(25),D3$(20) 0210 BLANK$=" ";TAH$="0+";BLANK$=BLANK$+BLANK$ 0220 TAL1$="0+";TAL4$="0+";TOTAL$="0+" 0230 PROC NRTEST(NUM1) 0240 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 0250 IF L>6 THEN EXIT 0260 CASE L OF 0270 FOR J=E TO L 0280 P1=INT(ORD(NUM1$(J))-48) 0290 IF P1<B OR P1>W THEN 0300 TEST2=E 0310 ELSE 0320 P=P*10+P1 0330 ENDIF 0340 NEXT J 0350 KTAL=P DIV 10000 0360 WHEN B 0370 P=-E 0380 WHEN E 0390 CASE NUM1$ OF 0400 P=INT(ORD(NUM1$)-48) 0410 WHEN "d","D" 0420 P=-G 0430 WHEN "a","A" 0440 P=-V 0450 WHEN "m","M" 0460 P=-4 0470 WHEN "j","J" 0480 P=-7 0490 WHEN "n","N" 0500 P=-8 0510 ENDCASE 0520 ENDCASE 0530 ENDPROC 0540 PROC FEJL(NR1,NR2,NR3) 0550 IF STATUS(NR3$)<>B THEN 0560 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0570 STOP 0580 ENDIF 0590 ENDPROC 0600 PROC HENTVPOST 0610 S=VTAB(VPIL3,G) 0620 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT 0630 EXEC FEJL(G,E,K5$) 0640 ENDPROC 0650 PROC CALC(AR3,B1,B2,ES) 0660 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0670 CALL "P641210:REGN" 0680 ES$=RES$ 0690 IF AR3<6 THEN 0700 IF FLAG THEN STOP 0710 ENDIF 0720 ENDPROC 0730 PROC HENTDPOST 0740 S=DTAB(DPIL3,G) 0750 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0760 EXEC FEJL(V,E,K4$) 0770 GET K4$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0780 EXEC FEJL(V,G,K4$) 0790 GET K4$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0800 EXEC FEJL(V,V,K4$) 0810 GET K4$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 0820 EXEC FEJL(V,4,K4$) 0830 ENDPROC 0840 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0850 BLB2$=BLB1$ 0860 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 0870 IF TEGN=B THEN UBLB1$=UBLB1$(E:13) 0880 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0890 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 0900 PRINT UBLB1$; 0910 ENDPROC 0920 PROC GEMDPOST 0930 S=DTAB(DPIL3,G) 0940 PUT K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0950 EXEC FEJL(4,E,K4$) 0960 PUT K4$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0970 EXEC FEJL(4,E,K4$) 0980 PUT K4$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0990 EXEC FEJL(4,G,K4$) 1000 PUT K4$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1010 EXEC FEJL(4,V,K4$) 1020 ENDPROC 1030 PROC INDTAB1(Z,MANT5,L7) 1040 PIL1=MANT5 DIV 32 1050 FOR I=E TO PIL1 1060 H=(I-E)*8+E 1070 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) 1080 EXEC FEJL(G,E,L7$) 1090 NEXT I 1100 ENDPROC 1110 PROC SYSGEM 1120 T1(E)=FAKTNR;T1(G)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT 1130 T2(7)=AVKONTI;T2(8)=FJPOST 1140 OPEN K9$,W 1150 EXEC FEJL(8,E,K9$) 1160 PUT K9$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 1170 EXEC FEJL(8,G,K9$) 1180 PUT K9$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 1190 EXEC FEJL(8,V,K9$) 1200 CLOSE K9$ 1210 EXEC FEJL(8,4,K9$) 1220 ENDPROC 1230 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1240 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1250 REPEAT 1260 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT 1270 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6))) 1280 IF PIL6<E THEN PIL6=E 1290 IF PIL6>MANT3 THEN PIL6=MANT3 1300 UNTIL PIL1=B 1310 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E) 1320 PIL6=MANT4+PIL6 1330 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) 1340 EXEC FEJL(E,E,L8$) 1350 FOR PIL6=E TO 4 1360 IF NØGL5=Q(PIL6,E) THEN EXIT 1370 NEXT PIL6 1380 IF PIL6<>5 THEN CEKS=B 1390 ENDPROC 1400 PROC TABHENT 1410 OPEN K8$,R 1420 EXEC FEJL(G,E,K8$) 1430 FOR I=E TO AVKONTI 1440 GET K8$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I) 1450 EXEC FEJL(G,G,K8$) 1460 NEXT I 1470 CLOSE K8$ 1480 EXEC FEJL(G,V,K8$) 1490 ENDPROC 1500 PROC TESTPRIN 1510 KR$="XXXXXXXXXXXXXXXXXXXXXXXXX";T$="XX.XXX.XXX,XX";D$="XX.XX.XX" 1520 OUTPUT P 1530 EXEC TOMLINIE(7) 1540 PRINT TAB(67);KR$(E:6) 1550 PRINT TAB(W);KR$ 1560 PRINT TAB(W);KR$;TAB(67);KR$(E:6) 1570 PRINT TAB(W);KR$ 1580 PRINT TAB(W);KR$;TAB(65);D$ 1590 PRINT TAB(W);KR$ 1600 PRINT TAB(W);KR$;TAB(67);KR$(E:6) 1610 PRINT " " 1620 PRINT TAB(65);D$ 1630 PRINT " " 1640 PRINT TAB(19);KR$;KR$;"XX" 1650 PRINT " " 1655 PRINT " " 1660 PRINT TAB(8);KR$(E:6);TAB(16);KR$(E:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$ 1670 EXEC TOMLINIE(19) 1680 PRINT TAB(8);KR$(E:6);TAB(16);KR$(E:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$ 1690 EXEC TOMLINIE(3) 1700 PRINT TAB(16);T$(4:10);TAB(29);T$;TAB(44);T$(W:5);TAB(51);T$;TAB(66);T$ 1710 EXEC TOMLINIE(6) 1720 OUTPUT T 1730 ENDPROC 1740 K1$="P641220:SYSTEM1" 1750 OPEN K1$,R 1760 EXEC FEJL(W,E,K1$) 1770 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL 1780 EXEC FEJL(W,G,K1$) 1790 GET K1$,4:KMID,MFAK,MVGR,MKGR 1800 EXEC FEJL(W,V,K1$) 1810 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR 1820 EXEC FEJL(W,4,K1$) 1830 GET K1$,7:INDMOMSNR,RENTENR,FRAGTNR,RABATNR 1840 EXEC FEJL(W,5,K1$) 1850 GET K1$,8:DIVNR,DIVDNR 1860 EXEC FEJL(W,6,K1$) 1870 GET K1$,10:N$ 1880 EXEC FEJL(W,7,K1$) 1890 GET K1$,12:K2$ 1900 EXEC FEJL(W,8,K1$) 1910 GET K1$,14:K3$ 1920 EXEC FEJL(W,W,K1$) 1930 GET K1$,16:K4$ 1940 EXEC FEJL(W,10,K1$) 1950 GET K1$,18:K5$ 1960 EXEC FEJL(W,11,K1$) 1970 GET K1$,29:K6$ 1980 EXEC FEJL(W,12,K1$) 1990 GET K1$,30:K7$ 2000 EXEC FEJL(W,13,K1$) 2010 GET K1$,31:K8$ 2020 EXEC FEJL(W,14,K1$) 2030 GET K1$,36:K9$ 2040 EXEC FEJL(W,15,K1$) 2050 GET K1$,43:I,I,I,DUNDKONT 2060 EXEC FEJL(W,155,K1$) 2070 CLOSE K1$ 2080 EXEC FEJL(W,16,K1$) 2090 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,G),DTAB(4,G) 2100 DIM VJOURARR(MVGR*5),VUJOURARR(MVGR*5),VBJOUARR$(MVGR*5,12) 2110 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$ 2120 K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$;K8$=N$+K8$;K9$=N$+K9$ 2130 OPEN K9$,R 2140 EXEC FEJL(W,17,K9$) 2150 GET K9$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 2160 EXEC FEJL(W,18,K9$) 2170 FOR I=E TO V 2180 H=(I-E)*V+E 2190 GET K9$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G) 2200 EXEC FEJL(W,19,K9$) 2210 NEXT I 2220 GET K9$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 2230 EXEC FEJL(W,20,K9$) 2240 GET K9$,13:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 2250 EXEC FEJL(W,21,K9$) 2260 CLOSE K9$ 2270 EXEC FEJL(W,22,K9$) 2280 FAKTNR=T1(E);KREDNR=T1(G);DATO=T1(7);APOSTER=T2(4);AKRED=T2(5) 2290 AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8) 2300 OPEN K2$,R 2310 EXEC FEJL(W,23,K2$) 2320 OPEN K3$,R 2330 EXEC FEJL(W,24,K3$) 2340 OPEN K4$,W 2350 EXEC FEJL(W,25,K4$) 2360 OPEN K5$,R 2370 EXEC FEJL(W,26,K5$) 2380 EXEC INDTAB1(DTAB1,MDANTAL,K2$) 2390 EXEC INDTAB1(VTAB1,MVANTAL,K3$) 2400 EXEC TABHENT 2410 CLEAR 2420 CURSOR 20,W 2430 PRINT "Udskrivning af fakturaer." 2440 CURSOR 20,11 2450 PRINT "0: Færdig." 2460 CURSOR 20,13 2470 PRINT "1: Udskrift af sidst indtastede faktura." 2480 CURSOR 20,15 2490 PRINT "2: Udskrift af alle indtastede fakturaer." 2500 REPEAT 2510 CURSOR 20,17 2520 INPUT "Vælg 0-2:",SVAR1$ 2530 UNTIL SVAR1$="1" OR SVAR1$="2" OR SVAR1$="0" 2540 IF SVAR1$<>"0" THEN 2550 IF SVAR1$="2" THEN 2560 LYNFAK=B;STPOST=E 2570 ELSE 2580 LYNFAK=E 2590 OPEN K6$,R 2600 EXEC FEJL(V,E,K6$) 2610 FOR I=APOSTER-V TO E STEP -E 2620 GET K6$,I:ORDRENR,FDATO,ANPOST 2630 EXEC FEJL(V,G,K6$) 2640 IF ANPOST=APOSTER+G-I THEN EXIT 2650 NEXT I 2660 STPOST=I-E 2670 CLOSE K6$ 2680 EXEC FEJL(V,V,K6$) 2690 ENDIF 2700 GEN=B 2710 REPEAT 2720 CLEAR 2730 CURSOR 20,W 2740 PRINT "Udskrivning af fakturaer." 2750 CURSOR 20,11 2760 PRINT "Monter papir til udskrift af testprint." 2770 CURSOR 20,13 2780 INPUT "Tast RETURN.",SVAR1$ 2790 EXEC TESTPRIN 2800 REPEAT 2810 REPEAT 2820 CURSOR 20,13 2830 INPUT "Ønskes flere testprint (J/N):",SVAR1$ 2840 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n" 2850 IF SVAR1$="J" OR SVAR1$="j" THEN EXEC TESTPRIN 2860 UNTIL SVAR1$="N" OR SVAR1$="n" 2870 TE$="Der udskrives fakturaer." 2880 EXEC BIL 2890 OUTPUT P 2900 IF APOSTER=B THEN EXIT 2910 OPEN K6$,R 2920 EXEC FEJL(V,4,K6$) 2930 I=STPOST 2940 REPEAT 2950 TOTAL$="0+" 2960 GET K6$,I:KUNDENR,ORDRED,FAKKRE$,DIVD 2970 EXEC FEJL(V,5,K6$) 2980 I=I+E 2990 GET K6$,I:ORDRENR,FDATO,ANPOST,KOD$ 3000 EXEC FEJL(V,6,K6$) 3010 I=I+E 3020 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$) 3030 IF CEKS=B THEN EXEC HENTDPOST 3040 IF DIVD=E THEN 3050 D1$=DEBNAVN$;D2$=DEBGADE$;D3$=DEBBY$;D4=DPOSTNR 3060 DEBNAVN$=BLANK$;DEBGADE$=BLANK$;DEBBY$=BLANK$ 3070 GET K6$,I:DEBNAVN$(E:13) 3080 EXEC FEJL(V,7,K6$) 3090 GET K6$,I+E:DEBNAVN$(14:12) 3100 EXEC FEJL(V,8,K6$) 3110 GET K6$,I+G:DEBGADE$(E:13) 3120 EXEC FEJL(V,W,K6$) 3130 GET K6$,I+V:DEBGADE$(14:12) 3140 EXEC FEJL(V,10,K6$) 3150 GET K6$,I+4:DPOSTNR,DEBBY$(E:W) 3160 EXEC FEJL(V,11,K6$) 3170 GET K6$,I+5:DEBBY$(10:11) 3180 EXEC FEJL(V,12,K6$) 3190 I=I+6;ANPOST=ANPOST-6 3200 ENDIF 3210 SIDE=E;LINIE=E;POSTER=B 3220 REPEAT 3230 EXEC TOMLINIE(6) 3240 IF FAKKRE$="F" THEN 3250 PRINT " " 3260 ELSE 3270 PRINT TAB(49);"Kreditnota" 3280 ENDIF 3290 PRINT TAB(66); 3300 IF FAKKRE$="F" THEN 3310 PRINT USING "#######":FAKTNR 3320 ELSE 3330 PRINT USING "#######":KREDNR 3340 ENDIF 3350 PRINT TAB(W);DEBNAVN$ 3360 PRINT TAB(W);DEBGADE$;TAB(66); 3370 PRINT USING "#######":KUNDENR 3380 PRINT TAB(6); 3390 PRINT USING "#######":DPOSTNR; 3400 PRINT TAB(14);DEBBY$ 3410 EXEC DATOUD(ORDRED) 3420 PRINT " " 3430 PRINT TAB(66); 3440 PRINT USING "#######":ORDRENR 3450 PRINT " " 3460 EXEC DATOUD(FDATO) 3470 PRINT " " 3480 IF KOD$>"H" AND SIDE=E THEN 3490 KOD$=CHR(ORD(KOD$)-11) 3500 PRINT " " 3510 ELSE 3520 IF SIDE=E THEN 3530 LEVTEKST$=BLANK$+BLANK$+" " 3540 FOR J=I TO I+V 3550 GET K6$,J:LEVTEKST$((J-I)*13+E:13) 3560 EXEC FEJL(V,13,K6$) 3570 NEXT J 3580 ANPOST=ANPOST-4;I=I+4 3590 ENDIF 3600 PRINT TAB(W);LEVTEKST$ 3610 ENDIF 3620 EXEC TOMLINIE(2) 3630 IF SIDE=G THEN 3640 PRINT TAB(24);"Subtotal";TAB(66); 3650 EXEC TUD(TOTAL$,TAL4$,E,B) 3660 LINIE=G 3670 ENDIF 3680 REPEAT 3690 CASE KOD$ OF 3700 STOP 3710 WHEN "A" 3720 EXEC VPOST 3730 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 3740 IF CEKS=E THEN STOP 3750 EXEC HENTVPOST 3760 EXEC VUD 3770 WHEN "B" 3780 EXEC BPOST(1) 3790 PRO$=" 0,"+VARPRIS$(7:G)+VARPRIS$(10:G)+"-" 3800 IF VARPRIS$(7)=" " THEN PRO$(8)="0" 3810 EXEC CALC(G,PRO$,GBELØB$,BELØB$) 3820 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$) 3830 PRINT TAB(24);VARPRIS$(E:11);" %";TAB(66); 3840 EXEC TUD(BELØB$,TAL4$,E,B) 3850 VARKONT=RABATNR;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT 3860 IF GEN=B THEN EXEC VJOURNAL 3870 WHEN "C" 3880 EXEC BPOST(0) 3890 PRINT TAB(24);"Subtotal";TAB(66); 3900 EXEC TUD(BELØB$,TAL4$,E,B) 3910 GBELØB$=BELØB$ 3920 WHEN "D" 3930 EXEC TPOST 3940 PRINT TAB(16);VARTEKST$ 3950 WHEN "E" 3960 EXEC TPOST 3970 EXEC BPOST(0) 3980 PRINT TAB(24);VARTEKST$;TAB(66); 3990 EXEC TUD(BELØB$,TAL4$,E,B) 4000 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$) 4010 GBELØB$=BELØB$;VARKONT=DIVNR;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT 4020 IF GEN=B THEN EXEC VJOURNAL 4030 WHEN "F" 4040 EXEC VPOST 4050 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4060 IF CEKS=E THEN STOP 4070 EXEC HENTVPOST 4080 EXEC BPOST(1) 4090 EXEC VUD 4100 WHEN "G" 4110 EXEC TPOST 4120 VARTH$=VARTEKST$ 4130 EXEC VPOST 4140 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4150 IF CEKS=E THEN STOP 4160 EXEC HENTVPOST 4170 VARTEKST$=VARTH$ 4180 EXEC VUD 4190 WHEN "H" 4200 EXEC TPOST 4210 VARTH$=VARTEKST$ 4220 EXEC VPOST 4230 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4240 IF CEKS=E THEN STOP 4250 EXEC HENTVPOST 4260 VARTEKST$=VARTH$ 4270 EXEC BPOST(1) 4280 EXEC VUD 4290 ENDCASE 4300 LINIE=LINIE+E 4310 UNTIL POSTER=>ANPOST-5 OR LINIE=22 4320 IF LINIE=22 AND POSTER<ANPOST-5 THEN 4330 SIDE=G;ANPOST=ANPOST-POSTER;POSTER=B;LINIE=E 4340 PRINT TAB(24);"Subtotal";TAB(66); 4350 EXEC TUD(TOTAL$,TAL4$,E,B) 4360 EXEC TOMLINIE(9) 4370 ENDIF 4380 UNTIL POSTER=>ANPOST-5 4390 EXEC BPOST(0) 4400 FORS$=BELØB$;VARKONT=FRAGTNR;ENTNR=1000000 4410 EXEC VJOURNAL 4420 EXEC BPOST(0) 4430 MOMSH$=BELØB$ 4440 EXEC BPOST(0) 4450 FTOTAL$=BELØB$ 4460 EXEC TOMLINIE(25-LINIE) 4470 EXEC CALC(B,FORS$,TOTAL$,TOTAL$) 4480 EXEC CALC(5,FORS$,FORS$,TAL4$) 4490 PRINT TAB(16);TAL4$(4:10);TAB(29); 4500 EXEC TUD(TOTAL$,TAL4$,E,B) 4510 PRINT TAB(44);MOMSH$(7:5);TAB(51); 4520 EXEC CALC(E,FTOTAL$,TOTAL$,BELØB$) 4530 EXEC TUD(BELØB$,TAL4$,E,B) 4540 VARKONT=UDMOMSNR;ENTNR=1000000 4550 EXEC VJOURNAL 4560 PRINT TAB(66); 4570 EXEC TUD(FTOTAL$,TAL4$,E,B) 4580 PRINT " " 4590 EXEC TOMLINIE(5) 4600 IF GEN=B THEN 4610 OPEN K7$,W 4620 EXEC FEJL(4,E,K7$) 4630 FJPOST=FJPOST+E 4640 IF FAKKRE$="K" THEN 4650 FTOTAL$(12)="-";VARENR=KREDNR;AKRED=AKRED-E 4660 ELSE 4670 VARENR=FAKTNR;AFAKT=AFAKT-E 4680 ENDIF 4690 PUT K7$,FJPOST:KUNDENR,FTOTAL$,VARENR,FDATO,ORDRENR 4700 EXEC FEJL(4,G,K7$) 4710 BELØB$=ÅRKØB$ 4720 CLOSE K7$ 4730 EXEC FEJL(4,V,K7$) 4740 EXEC CALC(E,TOTAL$,FORS$,TOTAL$) 4750 IF FAKKRE$="K" THEN TOTAL$(12)="-" 4760 EXEC CALC(B,MDNKØB$,TOTAL$,MDNKØB$) 4770 EXEC CALC(B,BELØB$,TOTAL$,BELØB$) 4780 ÅRKØB$=BELØB$ 4790 IF DIVD=E THEN DEBNAVN$=D1$;DEBGADE$=D2$;DEBBY$=D3$;DPOSTNR=D4 4800 EXEC GEMDPOST 4810 ENDIF 4820 IF FAKKRE$="K" THEN 4830 KREDNR=KREDNR+E 4840 ELSE 4850 FAKTNR=FAKTNR+E 4860 ENDIF 4870 UNTIL I=>APOSTER 4880 OUTPUT T 4890 CLOSE K6$ 4900 REPEAT 4910 CLEAR 4920 CURSOR 20,10 4930 INPUT "Ønskes ny udskrift (J/N):",SVAR1$ 4940 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n" 4950 IF SVAR1$="J" OR SVAR1$="j" THEN 4960 OPEN K9$,R 4970 EXEC FEJL(6,E,K9$) 4980 GET K9$,G:FAKTNR,KREDNR 4990 EXEC FEJL(6,G,K9$) 5000 CLOSE K9$ 5010 EXEC FEJL(6,V,K9$) 5020 GEN=E 5030 ENDIF 5040 UNTIL SVAR1$="N" OR SVAR1$="n" 5050 APOSTER=STPOST-E 5060 ENDIF 5070 PROC DATOUD(DA) 5080 PRINT TAB(67); 5090 PRINT USING "###.##":(DA MOD 10000)/100; 5100 PRINT TAB(64); 5110 PRINT USING "###.#":(DA DIV 1000)/10 5120 ENDPROC 5130 PROC VPOST 5140 ANTAL$=" +" 5150 GET K6$,I:VARENR,ANTAL$(5:7),KOD$ 5160 EXEC FEJL(5,E,K6$) 5170 POSTER=POSTER+E;I=I+E 5180 ENDPROC 5190 PROC BPOST(SL) 5200 GET K6$,I:TEK$ 5210 EXEC FEJL(6,E,K6$) 5220 POSTER=POSTER+E;I=I+E 5230 IF SL=B THEN 5240 BELØB$=TEK$ 5250 ELSE 5260 VARPRIS$=TEK$ 5270 ENDIF 5280 KOD$=TEK$(13) 5290 ENDPROC 5300 PROC TPOST 5305 KOD3$=KOD$ 5310 VARTEKST$=BLANK$ 5320 GET K6$,I:VARTEKST$(E:13) 5340 EXEC FEJL(7,E,K6$) 5350 I=I+E 5360 GET K6$,I:TEK$ 5380 EXEC FEJL(7,G,K6$) 5390 LE=LEN(TEK$) 5400 IF LE>E THEN 5410 VARTEKST$(14:LE-E)=TEK$ 5420 ENDIF 5430 KOD$=TEK$(LE);I=I+E;POSTER=POSTER+G 5440 IF KOD3$="D" AND LE=13 THEN 5450 GET K6$,I:VARTEKST$(26:13) 5460 EXEC FEJL(99,V,K6$) 5470 I=I+G;POSTER=POSTER+G 5480 GET K6$,I-E:VARTEKST$(39:12) 5490 EXEC FEJL(99,4,K6$) 5500 ENDIF 5510 ENDPROC 5520 PROC VUD 5530 PRINT TAB(7); 5540 PRINT USING "#######":VARENR; 5550 PRINT TAB(16);ANTAL$(5:4+V*(ANTAL$(10:G)<>"00"));TAB(24); 5560 PRINT VARTEKST$(E:25);TAB(51); 5570 EXEC TUD(VARPRIS$,TAL4$,E,B) 5580 PRINT TAB(66); 5590 EXEC CALC(G,VARPRIS$,ANTAL$,BELØB$) 5600 EXEC TUD(BELØB$,TAL4$,E,B) 5610 GBELØB$=BELØB$;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT 5620 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$) 5630 IF GEN=B THEN EXEC VJOURNAL 5640 ENDPROC 5650 PROC VJOURNAL 5660 IF GEN=B THEN 5670 EJFUNDET=B 5680 FOR M=E TO AVKONTI 5690 IF VJOURARR(M)=VARKONT AND VUJOURARR(M)=ENTNR THEN 5700 IF FAKKRE$="F" THEN 5710 EXEC CALC(E,VBJOUARR$(M),BELØB$,VBJOUARR$(M)) 5720 ELSE 5730 EXEC CALC(B,VBJOUARR$(M),BELØB$,VBJOUARR$(M)) 5740 ENDIF 5750 M=AVKONTI;EJFUNDET=E 5760 ENDIF 5770 NEXT M 5780 IF EJFUNDET=B THEN 5790 IF AVKONTI<MVGR*5 THEN 5800 AVKONTI=AVKONTI+E;VJOURARR(AVKONTI)=VARKONT;VBJOUARR$(AVKONTI)=BELØB$ 5810 VUJOURARR(AVKONTI)=ENTNR 5820 IF FAKKRE$="F" THEN 5830 IF BELØB$(12)="+" THEN 5840 VBJOUARR$(AVKONTI,12)="-" 5850 ELSE 5860 VBJOUARR$(AVKONTI,12)="+" 5870 ENDIF 5880 ENDIF 5890 ELSE 5900 STOP 5910 ENDIF 5920 ENDIF 5930 ENDIF 5940 ENDPROC 5950 PROC TOMLINIE(ANTLIN) 5960 FOR ANLI=E TO ANTLIN 5970 PRINT " " 5980 NEXT ANLI 5990 ENDPROC 6000 OPEN K8$,W 6010 EXEC FEJL(8,E,K8$) 6020 FOR I=E TO AVKONTI 6030 PUT K8$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I) 6040 EXEC FEJL(8,G,K8$) 6050 NEXT I 6060 CLOSE K8$ 6070 EXEC FEJL(8,V,K8$) 6080 OUTPUT T 6090 TE$=" Programvalg " 6100 EXEC BIL 6110 EXEC SYSGEM 6120 CHAIN "P641210:OPSTART" 6130 END 6140 PROC BIL 6150 CLEAR 6160 CURSOR 20,W 6170 PRINT "*****************************************" 6180 CURSOR 20,10 6190 PRINT "*";TAB(41);"*" 6200 PRINT TAB(20);"*";TAB(30);TE$;TAB(60);"*" 6210 PRINT TAB(20);"*";TAB(60);"*" 6220 PRINT TAB(20);"*****************************************" 6230 ENDPROC
0x0000…002f (0,) 8d86 0100 DIM OP1$(12),OP2$(12),RES$(15)
0x0000…002f LineComalBin {
0x0000…002f ptr = 0x8d86 // 0x0 @0x0
0x0000…002f lno = 0x0064 // 0x2 @0x2
0x0000…002f at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…002f at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…002f at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…002f at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…002f at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…002f at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…002f at000a = ╱31╱1╱ // 0xa @0xa
0x0000…002f at000b = ╱32╱2╱ // 0xb @0xb
0x0000…002f at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…002f at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…002f at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…002f at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…002f at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…002f at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…002f at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…002f at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…002f at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…002f at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…002f at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…002f at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…002f at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…002f at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…002f at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…002f at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…002f at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…002f at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…002f at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…002f at0027 = ╱35╱5╱ // 0x27 @0x27
0x0000…002f at0028 = ╱fe0000f004╱ // 0x28 @0x28
0x0000…002f at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…002f at002e = EOL // 0x2e @0x2e
0x0000…002f }
0x002f…0095 8dec 0110 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E)
0x002f…0095 LineComalBin {
0x002f…0095 ptr = 0x8dec // 0x2f @0x0
0x002f…0095 lno = 0x006e // 0x31 @0x2
0x002f…0095 at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…0095 at0005 = ╱4b╱K╱ // 0x34 @0x5
0x002f…0095 at0006 = ╱31╱1╱ // 0x35 @0x6
0x002f…0095 at0007 = ╱ef╱$╱ // 0x36 @0x7
0x002f…0095 at0008 = ╱ed╱(╱ // 0x37 @0x8
0x002f…0095 at0009 = ╱31╱1╱ // 0x38 @0x9
0x002f…0095 at000a = ╱37╱7╱ // 0x39 @0xa
0x002f…0095 at000b = ╱fe00008805╱ // 0x3a @0xb
0x002f…0095 at0010 = ╱ee╱)╱ // 0x3f @0x10
0x002f…0095 at0011 = ╱ec╱,╱ // 0x40 @0x11
0x002f…0095 at0012 = ╱4e╱N╱ // 0x41 @0x12
0x002f…0095 at0013 = ╱ef╱$╱ // 0x42 @0x13
0x002f…0095 at0014 = ╱ed╱(╱ // 0x43 @0x14
0x002f…0095 at0015 = ╱36╱6╱ // 0x44 @0x15
0x002f…0095 at0016 = ╱fe0000c003╱ // 0x45 @0x16
0x002f…0095 at001b = ╱ee╱)╱ // 0x4a @0x1b
0x002f…0095 at001c = ╱ec╱,╱ // 0x4b @0x1c
0x002f…0095 at001d = ╱4b╱K╱ // 0x4c @0x1d
0x002f…0095 at001e = ╱32╱2╱ // 0x4d @0x1e
0x002f…0095 at001f = ╱ef╱$╱ // 0x4e @0x1f
0x002f…0095 at0020 = ╱ed╱(╱ // 0x4f @0x20
0x002f…0095 at0021 = ╱31╱1╱ // 0x50 @0x21
0x002f…0095 at0022 = ╱37╱7╱ // 0x51 @0x22
0x002f…0095 at0023 = ╱fe00008805╱ // 0x52 @0x23
0x002f…0095 at0028 = ╱ee╱)╱ // 0x57 @0x28
0x002f…0095 at0029 = ╱ec╱,╱ // 0x58 @0x29
0x002f…0095 at002a = ╱4b╱K╱ // 0x59 @0x2a
0x002f…0095 at002b = ╱33╱3╱ // 0x5a @0x2b
0x002f…0095 at002c = ╱ef╱$╱ // 0x5b @0x2c
0x002f…0095 at002d = ╱ed╱(╱ // 0x5c @0x2d
0x002f…0095 at002e = ╱31╱1╱ // 0x5d @0x2e
0x002f…0095 at002f = ╱37╱7╱ // 0x5e @0x2f
0x002f…0095 at0030 = ╱fe00008805╱ // 0x5f @0x30
0x002f…0095 at0035 = ╱ee╱)╱ // 0x64 @0x35
0x002f…0095 at0036 = ╱ec╱,╱ // 0x65 @0x36
0x002f…0095 at0037 = ╱44╱D╱ // 0x66 @0x37
0x002f…0095 at0038 = ╱45╱E╱ // 0x67 @0x38
0x002f…0095 at0039 = ╱42╱B╱ // 0x68 @0x39
0x002f…0095 at003a = ╱4e╱N╱ // 0x69 @0x3a
0x002f…0095 at003b = ╱41╱A╱ // 0x6a @0x3b
0x002f…0095 at003c = ╱56╱V╱ // 0x6b @0x3c
0x002f…0095 at003d = ╱4e╱N╱ // 0x6c @0x3d
0x002f…0095 at003e = ╱ef╱$╱ // 0x6d @0x3e
0x002f…0095 at003f = ╱ed╱(╱ // 0x6e @0x3f
0x002f…0095 at0040 = ╱32╱2╱ // 0x6f @0x40
0x002f…0095 at0041 = ╱35╱5╱ // 0x70 @0x41
0x002f…0095 at0042 = ╱fe0000c805╱ // 0x71 @0x42
0x002f…0095 at0047 = ╱ee╱)╱ // 0x76 @0x47
0x002f…0095 at0048 = ╱ec╱,╱ // 0x77 @0x48
0x002f…0095 at0049 = ╱44╱D╱ // 0x78 @0x49
0x002f…0095 at004a = ╱53╱S╱ // 0x79 @0x4a
0x002f…0095 at004b = ╱41╱A╱ // 0x7a @0x4b
0x002f…0095 at004c = ╱4c╱L╱ // 0x7b @0x4c
0x002f…0095 at004d = ╱44╱D╱ // 0x7c @0x4d
0x002f…0095 at004e = ╱4f╱O╱ // 0x7d @0x4e
0x002f…0095 at004f = ╱31╱1╱ // 0x7e @0x4f
0x002f…0095 at0050 = ╱ef╱$╱ // 0x7f @0x50
0x002f…0095 at0051 = ╱ed╱(╱ // 0x80 @0x51
0x002f…0095 at0052 = ╱31╱1╱ // 0x81 @0x52
0x002f…0095 at0053 = ╱32╱2╱ // 0x82 @0x53
0x002f…0095 at0054 = ╱fe0000c004╱ // 0x83 @0x54
0x002f…0095 at0059 = ╱ee╱)╱ // 0x88 @0x59
0x002f…0095 at005a = ╱ec╱,╱ // 0x89 @0x5a
0x002f…0095 at005b = ╱44╱D╱ // 0x8a @0x5b
0x002f…0095 at005c = ╱45╱E╱ // 0x8b @0x5c
0x002f…0095 at005d = ╱42╱B╱ // 0x8c @0x5d
0x002f…0095 at005e = ╱4b╱K╱ // 0x8d @0x5e
0x002f…0095 at005f = ╱47╱G╱ // 0x8e @0x5f
0x002f…0095 at0060 = ╱52╱R╱ // 0x8f @0x60
0x002f…0095 at0061 = ╱ef╱$╱ // 0x90 @0x61
0x002f…0095 at0062 = ╱ed╱(╱ // 0x91 @0x62
0x002f…0095 at0063 = ╱45╱E╱ // 0x92 @0x63
0x002f…0095 at0064 = ╱ee╱)╱ // 0x93 @0x64
0x002f…0095 at0065 = EOL // 0x94 @0x65
0x002f…0095 }
0x0095…00ec 8e43 0120 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25)
0x0095…00ec LineComalBin {
0x0095…00ec ptr = 0x8e43 // 0x95 @0x0
0x0095…00ec lno = 0x0078 // 0x97 @0x2
0x0095…00ec at0004 = ╱87╱ DIM ╱ // 0x99 @0x4
0x0095…00ec at0005 = ╱44╱D╱ // 0x9a @0x5
0x0095…00ec at0006 = ╱53╱S╱ // 0x9b @0x6
0x0095…00ec at0007 = ╱41╱A╱ // 0x9c @0x7
0x0095…00ec at0008 = ╱4c╱L╱ // 0x9d @0x8
0x0095…00ec at0009 = ╱44╱D╱ // 0x9e @0x9
0x0095…00ec at000a = ╱4f╱O╱ // 0x9f @0xa
0x0095…00ec at000b = ╱32╱2╱ // 0xa0 @0xb
0x0095…00ec at000c = ╱ef╱$╱ // 0xa1 @0xc
0x0095…00ec at000d = ╱ed╱(╱ // 0xa2 @0xd
0x0095…00ec at000e = ╱31╱1╱ // 0xa3 @0xe
0x0095…00ec at000f = ╱32╱2╱ // 0xa4 @0xf
0x0095…00ec at0010 = ╱fe0000c004╱ // 0xa5 @0x10
0x0095…00ec at0015 = ╱ee╱)╱ // 0xaa @0x15
0x0095…00ec at0016 = ╱ec╱,╱ // 0xab @0x16
0x0095…00ec at0017 = ╱44╱D╱ // 0xac @0x17
0x0095…00ec at0018 = ╱53╱S╱ // 0xad @0x18
0x0095…00ec at0019 = ╱41╱A╱ // 0xae @0x19
0x0095…00ec at001a = ╱4c╱L╱ // 0xaf @0x1a
0x0095…00ec at001b = ╱44╱D╱ // 0xb0 @0x1b
0x0095…00ec at001c = ╱4f╱O╱ // 0xb1 @0x1c
0x0095…00ec at001d = ╱33╱3╱ // 0xb2 @0x1d
0x0095…00ec at001e = ╱ef╱$╱ // 0xb3 @0x1e
0x0095…00ec at001f = ╱ed╱(╱ // 0xb4 @0x1f
0x0095…00ec at0020 = ╱31╱1╱ // 0xb5 @0x20
0x0095…00ec at0021 = ╱32╱2╱ // 0xb6 @0x21
0x0095…00ec at0022 = ╱fe0000c004╱ // 0xb7 @0x22
0x0095…00ec at0027 = ╱ee╱)╱ // 0xbc @0x27
0x0095…00ec at0028 = ╱ec╱,╱ // 0xbd @0x28
0x0095…00ec at0029 = ╱44╱D╱ // 0xbe @0x29
0x0095…00ec at002a = ╱53╱S╱ // 0xbf @0x2a
0x0095…00ec at002b = ╱41╱A╱ // 0xc0 @0x2b
0x0095…00ec at002c = ╱4c╱L╱ // 0xc1 @0x2c
0x0095…00ec at002d = ╱44╱D╱ // 0xc2 @0x2d
0x0095…00ec at002e = ╱4f╱O╱ // 0xc3 @0x2e
0x0095…00ec at002f = ╱34╱4╱ // 0xc4 @0x2f
0x0095…00ec at0030 = ╱ef╱$╱ // 0xc5 @0x30
0x0095…00ec at0031 = ╱ed╱(╱ // 0xc6 @0x31
0x0095…00ec at0032 = ╱31╱1╱ // 0xc7 @0x32
0x0095…00ec at0033 = ╱32╱2╱ // 0xc8 @0x33
0x0095…00ec at0034 = ╱fe0000c004╱ // 0xc9 @0x34
0x0095…00ec at0039 = ╱ee╱)╱ // 0xce @0x39
0x0095…00ec at003a = ╱ec╱,╱ // 0xcf @0x3a
0x0095…00ec at003b = ╱44╱D╱ // 0xd0 @0x3b
0x0095…00ec at003c = ╱45╱E╱ // 0xd1 @0x3c
0x0095…00ec at003d = ╱42╱B╱ // 0xd2 @0x3d
0x0095…00ec at003e = ╱4c╱L╱ // 0xd3 @0x3e
0x0095…00ec at003f = ╱4b╱K╱ // 0xd4 @0x3f
0x0095…00ec at0040 = ╱ef╱$╱ // 0xd5 @0x40
0x0095…00ec at0041 = ╱ed╱(╱ // 0xd6 @0x41
0x0095…00ec at0042 = ╱45╱E╱ // 0xd7 @0x42
0x0095…00ec at0043 = ╱ee╱)╱ // 0xd8 @0x43
0x0095…00ec at0044 = ╱ec╱,╱ // 0xd9 @0x44
0x0095…00ec at0045 = ╱44╱D╱ // 0xda @0x45
0x0095…00ec at0046 = ╱45╱E╱ // 0xdb @0x46
0x0095…00ec at0047 = ╱42╱B╱ // 0xdc @0x47
0x0095…00ec at0048 = ╱47╱G╱ // 0xdd @0x48
0x0095…00ec at0049 = ╱41╱A╱ // 0xde @0x49
0x0095…00ec at004a = ╱44╱D╱ // 0xdf @0x4a
0x0095…00ec at004b = ╱45╱E╱ // 0xe0 @0x4b
0x0095…00ec at004c = ╱ef╱$╱ // 0xe1 @0x4c
0x0095…00ec at004d = ╱ed╱(╱ // 0xe2 @0x4d
0x0095…00ec at004e = ╱32╱2╱ // 0xe3 @0x4e
0x0095…00ec at004f = ╱35╱5╱ // 0xe4 @0x4f
0x0095…00ec at0050 = ╱fe0000c805╱ // 0xe5 @0x50
0x0095…00ec at0055 = ╱ee╱)╱ // 0xea @0x55
0x0095…00ec at0056 = EOL // 0xeb @0x56
0x0095…00ec }
0x00ec…0140 8e97 0130 DIM DEBTLF$(W),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8)
0x00ec…0140 LineComalBin {
0x00ec…0140 ptr = 0x8e97 // 0xec @0x0
0x00ec…0140 lno = 0x0082 // 0xee @0x2
0x00ec…0140 at0004 = ╱87╱ DIM ╱ // 0xf0 @0x4
0x00ec…0140 at0005 = ╱44╱D╱ // 0xf1 @0x5
0x00ec…0140 at0006 = ╱45╱E╱ // 0xf2 @0x6
0x00ec…0140 at0007 = ╱42╱B╱ // 0xf3 @0x7
0x00ec…0140 at0008 = ╱54╱T╱ // 0xf4 @0x8
0x00ec…0140 at0009 = ╱4c╱L╱ // 0xf5 @0x9
0x00ec…0140 at000a = ╱46╱F╱ // 0xf6 @0xa
0x00ec…0140 at000b = ╱ef╱$╱ // 0xf7 @0xb
0x00ec…0140 at000c = ╱ed╱(╱ // 0xf8 @0xc
0x00ec…0140 at000d = ╱57╱W╱ // 0xf9 @0xd
0x00ec…0140 at000e = ╱ee╱)╱ // 0xfa @0xe
0x00ec…0140 at000f = ╱ec╱,╱ // 0xfb @0xf
0x00ec…0140 at0010 = ╱44╱D╱ // 0xfc @0x10
0x00ec…0140 at0011 = ╱45╱E╱ // 0xfd @0x11
0x00ec…0140 at0012 = ╱42╱B╱ // 0xfe @0x12
0x00ec…0140 at0013 = ╱42╱B╱ // 0xff @0x13
0x00ec…0140 at0014 = ╱59╱Y╱ // 0x100 @0x14
0x00ec…0140 at0015 = ╱ef╱$╱ // 0x101 @0x15
0x00ec…0140 at0016 = ╱ed╱(╱ // 0x102 @0x16
0x00ec…0140 at0017 = ╱32╱2╱ // 0x103 @0x17
0x00ec…0140 at0018 = ╱30╱0╱ // 0x104 @0x18
0x00ec…0140 at0019 = ╱fe0000a005╱ // 0x105 @0x19
0x00ec…0140 at001e = ╱ee╱)╱ // 0x10a @0x1e
0x00ec…0140 at001f = ╱ec╱,╱ // 0x10b @0x1f
0x00ec…0140 at0020 = ╱53╱S╱ // 0x10c @0x20
0x00ec…0140 at0021 = ╱41╱A╱ // 0x10d @0x21
0x00ec…0140 at0022 = ╱4c╱L╱ // 0x10e @0x22
0x00ec…0140 at0023 = ╱44╱D╱ // 0x10f @0x23
0x00ec…0140 at0024 = ╱4f╱O╱ // 0x110 @0x24
0x00ec…0140 at0025 = ╱ef╱$╱ // 0x111 @0x25
0x00ec…0140 at0026 = ╱ed╱(╱ // 0x112 @0x26
0x00ec…0140 at0027 = ╱31╱1╱ // 0x113 @0x27
0x00ec…0140 at0028 = ╱32╱2╱ // 0x114 @0x28
0x00ec…0140 at0029 = ╱fe0000c004╱ // 0x115 @0x29
0x00ec…0140 at002e = ╱ee╱)╱ // 0x11a @0x2e
0x00ec…0140 at002f = ╱ec╱,╱ // 0x11b @0x2f
0x00ec…0140 at0030 = ╱4b╱K╱ // 0x11c @0x30
0x00ec…0140 at0031 = ╱52╱R╱ // 0x11d @0x31
0x00ec…0140 at0032 = ╱ef╱$╱ // 0x11e @0x32
0x00ec…0140 at0033 = ╱ed╱(╱ // 0x11f @0x33
0x00ec…0140 at0034 = ╱32╱2╱ // 0x120 @0x34
0x00ec…0140 at0035 = ╱35╱5╱ // 0x121 @0x35
0x00ec…0140 at0036 = ╱fe0000c805╱ // 0x122 @0x36
0x00ec…0140 at003b = ╱ee╱)╱ // 0x127 @0x3b
0x00ec…0140 at003c = ╱ec╱,╱ // 0x128 @0x3c
0x00ec…0140 at003d = ╱54╱T╱ // 0x129 @0x3d
0x00ec…0140 at003e = ╱ef╱$╱ // 0x12a @0x3e
0x00ec…0140 at003f = ╱ed╱(╱ // 0x12b @0x3f
0x00ec…0140 at0040 = ╱31╱1╱ // 0x12c @0x40
0x00ec…0140 at0041 = ╱33╱3╱ // 0x12d @0x41
0x00ec…0140 at0042 = ╱fe0000d004╱ // 0x12e @0x42
0x00ec…0140 at0047 = ╱ee╱)╱ // 0x133 @0x47
0x00ec…0140 at0048 = ╱ec╱,╱ // 0x134 @0x48
0x00ec…0140 at0049 = ╱44╱D╱ // 0x135 @0x49
0x00ec…0140 at004a = ╱ef╱$╱ // 0x136 @0x4a
0x00ec…0140 at004b = ╱ed╱(╱ // 0x137 @0x4b
0x00ec…0140 at004c = ╱38╱8╱ // 0x138 @0x4c
0x00ec…0140 at004d = ╱fe00008004╱ // 0x139 @0x4d
0x00ec…0140 at0052 = ╱ee╱)╱ // 0x13e @0x52
0x00ec…0140 at0053 = EOL // 0x13f @0x53
0x00ec…0140 }
0x0140…01a1 8ef8 0140 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12),T1(W),T2(W)
0x0140…01a1 LineComalBin {
0x0140…01a1 ptr = 0x8ef8 // 0x140 @0x0
0x0140…01a1 lno = 0x008c // 0x142 @0x2
0x0140…01a1 at0004 = ╱87╱ DIM ╱ // 0x144 @0x4
0x0140…01a1 at0005 = ╱5d╱Å╱ // 0x145 @0x5
0x0140…01a1 at0006 = ╱52╱R╱ // 0x146 @0x6
0x0140…01a1 at0007 = ╱4b╱K╱ // 0x147 @0x7
0x0140…01a1 at0008 = ╱5c╱Ø╱ // 0x148 @0x8
0x0140…01a1 at0009 = ╱42╱B╱ // 0x149 @0x9
0x0140…01a1 at000a = ╱ef╱$╱ // 0x14a @0xa
0x0140…01a1 at000b = ╱ed╱(╱ // 0x14b @0xb
0x0140…01a1 at000c = ╱31╱1╱ // 0x14c @0xc
0x0140…01a1 at000d = ╱32╱2╱ // 0x14d @0xd
0x0140…01a1 at000e = ╱fe0000c004╱ // 0x14e @0xe
0x0140…01a1 at0013 = ╱ee╱)╱ // 0x153 @0x13
0x0140…01a1 at0014 = ╱ec╱,╱ // 0x154 @0x14
0x0140…01a1 at0015 = ╱4d╱M╱ // 0x155 @0x15
0x0140…01a1 at0016 = ╱44╱D╱ // 0x156 @0x16
0x0140…01a1 at0017 = ╱4e╱N╱ // 0x157 @0x17
0x0140…01a1 at0018 = ╱4b╱K╱ // 0x158 @0x18
0x0140…01a1 at0019 = ╱5c╱Ø╱ // 0x159 @0x19
0x0140…01a1 at001a = ╱42╱B╱ // 0x15a @0x1a
0x0140…01a1 at001b = ╱ef╱$╱ // 0x15b @0x1b
0x0140…01a1 at001c = ╱ed╱(╱ // 0x15c @0x1c
0x0140…01a1 at001d = ╱31╱1╱ // 0x15d @0x1d
0x0140…01a1 at001e = ╱32╱2╱ // 0x15e @0x1e
0x0140…01a1 at001f = ╱fe0000c004╱ // 0x15f @0x1f
0x0140…01a1 at0024 = ╱ee╱)╱ // 0x164 @0x24
0x0140…01a1 at0025 = ╱ec╱,╱ // 0x165 @0x25
0x0140…01a1 at0026 = ╱54╱T╱ // 0x166 @0x26
0x0140…01a1 at0027 = ╱45╱E╱ // 0x167 @0x27
0x0140…01a1 at0028 = ╱4b╱K╱ // 0x168 @0x28
0x0140…01a1 at0029 = ╱ef╱$╱ // 0x169 @0x29
0x0140…01a1 at002a = ╱ed╱(╱ // 0x16a @0x2a
0x0140…01a1 at002b = ╱31╱1╱ // 0x16b @0x2b
0x0140…01a1 at002c = ╱33╱3╱ // 0x16c @0x2c
0x0140…01a1 at002d = ╱fe0000d004╱ // 0x16d @0x2d
0x0140…01a1 at0032 = ╱ee╱)╱ // 0x172 @0x32
0x0140…01a1 at0033 = ╱ec╱,╱ // 0x173 @0x33
0x0140…01a1 at0034 = ╱47╱G╱ // 0x174 @0x34
0x0140…01a1 at0035 = ╱42╱B╱ // 0x175 @0x35
0x0140…01a1 at0036 = ╱45╱E╱ // 0x176 @0x36
0x0140…01a1 at0037 = ╱4c╱L╱ // 0x177 @0x37
0x0140…01a1 at0038 = ╱5c╱Ø╱ // 0x178 @0x38
0x0140…01a1 at0039 = ╱42╱B╱ // 0x179 @0x39
0x0140…01a1 at003a = ╱ef╱$╱ // 0x17a @0x3a
0x0140…01a1 at003b = ╱ed╱(╱ // 0x17b @0x3b
0x0140…01a1 at003c = ╱31╱1╱ // 0x17c @0x3c
0x0140…01a1 at003d = ╱32╱2╱ // 0x17d @0x3d
0x0140…01a1 at003e = ╱fe0000c004╱ // 0x17e @0x3e
0x0140…01a1 at0043 = ╱ee╱)╱ // 0x183 @0x43
0x0140…01a1 at0044 = ╱ec╱,╱ // 0x184 @0x44
0x0140…01a1 at0045 = ╱4d╱M╱ // 0x185 @0x45
0x0140…01a1 at0046 = ╱4f╱O╱ // 0x186 @0x46
0x0140…01a1 at0047 = ╱4d╱M╱ // 0x187 @0x47
0x0140…01a1 at0048 = ╱53╱S╱ // 0x188 @0x48
0x0140…01a1 at0049 = ╱48╱H╱ // 0x189 @0x49
0x0140…01a1 at004a = ╱ef╱$╱ // 0x18a @0x4a
0x0140…01a1 at004b = ╱ed╱(╱ // 0x18b @0x4b
0x0140…01a1 at004c = ╱31╱1╱ // 0x18c @0x4c
0x0140…01a1 at004d = ╱32╱2╱ // 0x18d @0x4d
0x0140…01a1 at004e = ╱fe0000c004╱ // 0x18e @0x4e
0x0140…01a1 at0053 = ╱ee╱)╱ // 0x193 @0x53
0x0140…01a1 at0054 = ╱ec╱,╱ // 0x194 @0x54
0x0140…01a1 at0055 = ╱54╱T╱ // 0x195 @0x55
0x0140…01a1 at0056 = ╱31╱1╱ // 0x196 @0x56
0x0140…01a1 at0057 = ╱ed╱(╱ // 0x197 @0x57
0x0140…01a1 at0058 = ╱57╱W╱ // 0x198 @0x58
0x0140…01a1 at0059 = ╱ee╱)╱ // 0x199 @0x59
0x0140…01a1 at005a = ╱ec╱,╱ // 0x19a @0x5a
0x0140…01a1 at005b = ╱54╱T╱ // 0x19b @0x5b
0x0140…01a1 at005c = ╱32╱2╱ // 0x19c @0x5c
0x0140…01a1 at005d = ╱ed╱(╱ // 0x19d @0x5d
0x0140…01a1 at005e = ╱57╱W╱ // 0x19e @0x5e
0x0140…01a1 at005f = ╱ee╱)╱ // 0x19f @0x5f
0x0140…01a1 at0060 = EOL // 0x1a0 @0x60
0x0140…01a1 }
0x01a1…01f5 8f4c 0150 DIM MOMS$(12),FTOTAL$(12),KOD1$(E),KOD$(E),TAL1$(12),TAL4$(14)
0x01a1…01f5 LineComalBin {
0x01a1…01f5 ptr = 0x8f4c // 0x1a1 @0x0
0x01a1…01f5 lno = 0x0096 // 0x1a3 @0x2
0x01a1…01f5 at0004 = ╱87╱ DIM ╱ // 0x1a5 @0x4
0x01a1…01f5 at0005 = ╱4d╱M╱ // 0x1a6 @0x5
0x01a1…01f5 at0006 = ╱4f╱O╱ // 0x1a7 @0x6
0x01a1…01f5 at0007 = ╱4d╱M╱ // 0x1a8 @0x7
0x01a1…01f5 at0008 = ╱53╱S╱ // 0x1a9 @0x8
0x01a1…01f5 at0009 = ╱ef╱$╱ // 0x1aa @0x9
0x01a1…01f5 at000a = ╱ed╱(╱ // 0x1ab @0xa
0x01a1…01f5 at000b = ╱31╱1╱ // 0x1ac @0xb
0x01a1…01f5 at000c = ╱32╱2╱ // 0x1ad @0xc
0x01a1…01f5 at000d = ╱fe0000c004╱ // 0x1ae @0xd
0x01a1…01f5 at0012 = ╱ee╱)╱ // 0x1b3 @0x12
0x01a1…01f5 at0013 = ╱ec╱,╱ // 0x1b4 @0x13
0x01a1…01f5 at0014 = ╱46╱F╱ // 0x1b5 @0x14
0x01a1…01f5 at0015 = ╱54╱T╱ // 0x1b6 @0x15
0x01a1…01f5 at0016 = ╱4f╱O╱ // 0x1b7 @0x16
0x01a1…01f5 at0017 = ╱54╱T╱ // 0x1b8 @0x17
0x01a1…01f5 at0018 = ╱41╱A╱ // 0x1b9 @0x18
0x01a1…01f5 at0019 = ╱4c╱L╱ // 0x1ba @0x19
0x01a1…01f5 at001a = ╱ef╱$╱ // 0x1bb @0x1a
0x01a1…01f5 at001b = ╱ed╱(╱ // 0x1bc @0x1b
0x01a1…01f5 at001c = ╱31╱1╱ // 0x1bd @0x1c
0x01a1…01f5 at001d = ╱32╱2╱ // 0x1be @0x1d
0x01a1…01f5 at001e = ╱fe0000c004╱ // 0x1bf @0x1e
0x01a1…01f5 at0023 = ╱ee╱)╱ // 0x1c4 @0x23
0x01a1…01f5 at0024 = ╱ec╱,╱ // 0x1c5 @0x24
0x01a1…01f5 at0025 = ╱4b╱K╱ // 0x1c6 @0x25
0x01a1…01f5 at0026 = ╱4f╱O╱ // 0x1c7 @0x26
0x01a1…01f5 at0027 = ╱44╱D╱ // 0x1c8 @0x27
0x01a1…01f5 at0028 = ╱31╱1╱ // 0x1c9 @0x28
0x01a1…01f5 at0029 = ╱ef╱$╱ // 0x1ca @0x29
0x01a1…01f5 at002a = ╱ed╱(╱ // 0x1cb @0x2a
0x01a1…01f5 at002b = ╱45╱E╱ // 0x1cc @0x2b
0x01a1…01f5 at002c = ╱ee╱)╱ // 0x1cd @0x2c
0x01a1…01f5 at002d = ╱ec╱,╱ // 0x1ce @0x2d
0x01a1…01f5 at002e = ╱4b╱K╱ // 0x1cf @0x2e
0x01a1…01f5 at002f = ╱4f╱O╱ // 0x1d0 @0x2f
0x01a1…01f5 at0030 = ╱44╱D╱ // 0x1d1 @0x30
0x01a1…01f5 at0031 = ╱ef╱$╱ // 0x1d2 @0x31
0x01a1…01f5 at0032 = ╱ed╱(╱ // 0x1d3 @0x32
0x01a1…01f5 at0033 = ╱45╱E╱ // 0x1d4 @0x33
0x01a1…01f5 at0034 = ╱ee╱)╱ // 0x1d5 @0x34
0x01a1…01f5 at0035 = ╱ec╱,╱ // 0x1d6 @0x35
0x01a1…01f5 at0036 = ╱54╱T╱ // 0x1d7 @0x36
0x01a1…01f5 at0037 = ╱41╱A╱ // 0x1d8 @0x37
0x01a1…01f5 at0038 = ╱4c╱L╱ // 0x1d9 @0x38
0x01a1…01f5 at0039 = ╱31╱1╱ // 0x1da @0x39
0x01a1…01f5 at003a = ╱ef╱$╱ // 0x1db @0x3a
0x01a1…01f5 at003b = ╱ed╱(╱ // 0x1dc @0x3b
0x01a1…01f5 at003c = ╱31╱1╱ // 0x1dd @0x3c
0x01a1…01f5 at003d = ╱32╱2╱ // 0x1de @0x3d
0x01a1…01f5 at003e = ╱fe0000c004╱ // 0x1df @0x3e
0x01a1…01f5 at0043 = ╱ee╱)╱ // 0x1e4 @0x43
0x01a1…01f5 at0044 = ╱ec╱,╱ // 0x1e5 @0x44
0x01a1…01f5 at0045 = ╱54╱T╱ // 0x1e6 @0x45
0x01a1…01f5 at0046 = ╱41╱A╱ // 0x1e7 @0x46
0x01a1…01f5 at0047 = ╱4c╱L╱ // 0x1e8 @0x47
0x01a1…01f5 at0048 = ╱34╱4╱ // 0x1e9 @0x48
0x01a1…01f5 at0049 = ╱ef╱$╱ // 0x1ea @0x49
0x01a1…01f5 at004a = ╱ed╱(╱ // 0x1eb @0x4a
0x01a1…01f5 at004b = ╱31╱1╱ // 0x1ec @0x4b
0x01a1…01f5 at004c = ╱34╱4╱ // 0x1ed @0x4c
0x01a1…01f5 at004d = ╱fe0000e004╱ // 0x1ee @0x4d
0x01a1…01f5 at0052 = ╱ee╱)╱ // 0x1f3 @0x52
0x01a1…01f5 at0053 = EOL // 0x1f4 @0x53
0x01a1…01f5 }
0x01f5…0252 8fa9 0160 DIM VARTEKST$(50),VARPRIS$(12),BELØB$(12),TOTAL$(12),T3(W),K4$(17)
0x01f5…0252 LineComalBin {
0x01f5…0252 ptr = 0x8fa9 // 0x1f5 @0x0
0x01f5…0252 lno = 0x00a0 // 0x1f7 @0x2
0x01f5…0252 at0004 = ╱87╱ DIM ╱ // 0x1f9 @0x4
0x01f5…0252 at0005 = ╱56╱V╱ // 0x1fa @0x5
0x01f5…0252 at0006 = ╱41╱A╱ // 0x1fb @0x6
0x01f5…0252 at0007 = ╱52╱R╱ // 0x1fc @0x7
0x01f5…0252 at0008 = ╱54╱T╱ // 0x1fd @0x8
0x01f5…0252 at0009 = ╱45╱E╱ // 0x1fe @0x9
0x01f5…0252 at000a = ╱4b╱K╱ // 0x1ff @0xa
0x01f5…0252 at000b = ╱53╱S╱ // 0x200 @0xb
0x01f5…0252 at000c = ╱54╱T╱ // 0x201 @0xc
0x01f5…0252 at000d = ╱ef╱$╱ // 0x202 @0xd
0x01f5…0252 at000e = ╱ed╱(╱ // 0x203 @0xe
0x01f5…0252 at000f = ╱35╱5╱ // 0x204 @0xf
0x01f5…0252 at0010 = ╱30╱0╱ // 0x205 @0x10
0x01f5…0252 at0011 = ╱fe0000c806╱ // 0x206 @0x11
0x01f5…0252 at0016 = ╱ee╱)╱ // 0x20b @0x16
0x01f5…0252 at0017 = ╱ec╱,╱ // 0x20c @0x17
0x01f5…0252 at0018 = ╱56╱V╱ // 0x20d @0x18
0x01f5…0252 at0019 = ╱41╱A╱ // 0x20e @0x19
0x01f5…0252 at001a = ╱52╱R╱ // 0x20f @0x1a
0x01f5…0252 at001b = ╱50╱P╱ // 0x210 @0x1b
0x01f5…0252 at001c = ╱52╱R╱ // 0x211 @0x1c
0x01f5…0252 at001d = ╱49╱I╱ // 0x212 @0x1d
0x01f5…0252 at001e = ╱53╱S╱ // 0x213 @0x1e
0x01f5…0252 at001f = ╱ef╱$╱ // 0x214 @0x1f
0x01f5…0252 at0020 = ╱ed╱(╱ // 0x215 @0x20
0x01f5…0252 at0021 = ╱31╱1╱ // 0x216 @0x21
0x01f5…0252 at0022 = ╱32╱2╱ // 0x217 @0x22
0x01f5…0252 at0023 = ╱fe0000c004╱ // 0x218 @0x23
0x01f5…0252 at0028 = ╱ee╱)╱ // 0x21d @0x28
0x01f5…0252 at0029 = ╱ec╱,╱ // 0x21e @0x29
0x01f5…0252 at002a = ╱42╱B╱ // 0x21f @0x2a
0x01f5…0252 at002b = ╱45╱E╱ // 0x220 @0x2b
0x01f5…0252 at002c = ╱4c╱L╱ // 0x221 @0x2c
0x01f5…0252 at002d = ╱5c╱Ø╱ // 0x222 @0x2d
0x01f5…0252 at002e = ╱42╱B╱ // 0x223 @0x2e
0x01f5…0252 at002f = ╱ef╱$╱ // 0x224 @0x2f
0x01f5…0252 at0030 = ╱ed╱(╱ // 0x225 @0x30
0x01f5…0252 at0031 = ╱31╱1╱ // 0x226 @0x31
0x01f5…0252 at0032 = ╱32╱2╱ // 0x227 @0x32
0x01f5…0252 at0033 = ╱fe0000c004╱ // 0x228 @0x33
0x01f5…0252 at0038 = ╱ee╱)╱ // 0x22d @0x38
0x01f5…0252 at0039 = ╱ec╱,╱ // 0x22e @0x39
0x01f5…0252 at003a = ╱54╱T╱ // 0x22f @0x3a
0x01f5…0252 at003b = ╱4f╱O╱ // 0x230 @0x3b
0x01f5…0252 at003c = ╱54╱T╱ // 0x231 @0x3c
0x01f5…0252 at003d = ╱41╱A╱ // 0x232 @0x3d
0x01f5…0252 at003e = ╱4c╱L╱ // 0x233 @0x3e
0x01f5…0252 at003f = ╱ef╱$╱ // 0x234 @0x3f
0x01f5…0252 at0040 = ╱ed╱(╱ // 0x235 @0x40
0x01f5…0252 at0041 = ╱31╱1╱ // 0x236 @0x41
0x01f5…0252 at0042 = ╱32╱2╱ // 0x237 @0x42
0x01f5…0252 at0043 = ╱fe0000c004╱ // 0x238 @0x43
0x01f5…0252 at0048 = ╱ee╱)╱ // 0x23d @0x48
0x01f5…0252 at0049 = ╱ec╱,╱ // 0x23e @0x49
0x01f5…0252 at004a = ╱54╱T╱ // 0x23f @0x4a
0x01f5…0252 at004b = ╱33╱3╱ // 0x240 @0x4b
0x01f5…0252 at004c = ╱ed╱(╱ // 0x241 @0x4c
0x01f5…0252 at004d = ╱57╱W╱ // 0x242 @0x4d
0x01f5…0252 at004e = ╱ee╱)╱ // 0x243 @0x4e
0x01f5…0252 at004f = ╱ec╱,╱ // 0x244 @0x4f
0x01f5…0252 at0050 = ╱4b╱K╱ // 0x245 @0x50
0x01f5…0252 at0051 = ╱34╱4╱ // 0x246 @0x51
0x01f5…0252 at0052 = ╱ef╱$╱ // 0x247 @0x52
0x01f5…0252 at0053 = ╱ed╱(╱ // 0x248 @0x53
0x01f5…0252 at0054 = ╱31╱1╱ // 0x249 @0x54
0x01f5…0252 at0055 = ╱37╱7╱ // 0x24a @0x55
0x01f5…0252 at0056 = ╱fe00008805╱ // 0x24b @0x56
0x01f5…0252 at005b = ╱ee╱)╱ // 0x250 @0x5b
0x01f5…0252 at005c = EOL // 0x251 @0x5c
0x01f5…0252 }
0x0252…02ac 9003 0170 DIM SVAR1$(E),FAKKRE$(E),LEVTEKST$(52),ANTAL$(12),BLANK$(50),K5$(17)
0x0252…02ac LineComalBin {
0x0252…02ac ptr = 0x9003 // 0x252 @0x0
0x0252…02ac lno = 0x00aa // 0x254 @0x2
0x0252…02ac at0004 = ╱87╱ DIM ╱ // 0x256 @0x4
0x0252…02ac at0005 = ╱53╱S╱ // 0x257 @0x5
0x0252…02ac at0006 = ╱56╱V╱ // 0x258 @0x6
0x0252…02ac at0007 = ╱41╱A╱ // 0x259 @0x7
0x0252…02ac at0008 = ╱52╱R╱ // 0x25a @0x8
0x0252…02ac at0009 = ╱31╱1╱ // 0x25b @0x9
0x0252…02ac at000a = ╱ef╱$╱ // 0x25c @0xa
0x0252…02ac at000b = ╱ed╱(╱ // 0x25d @0xb
0x0252…02ac at000c = ╱45╱E╱ // 0x25e @0xc
0x0252…02ac at000d = ╱ee╱)╱ // 0x25f @0xd
0x0252…02ac at000e = ╱ec╱,╱ // 0x260 @0xe
0x0252…02ac at000f = ╱46╱F╱ // 0x261 @0xf
0x0252…02ac at0010 = ╱41╱A╱ // 0x262 @0x10
0x0252…02ac at0011 = ╱4b╱K╱ // 0x263 @0x11
0x0252…02ac at0012 = ╱4b╱K╱ // 0x264 @0x12
0x0252…02ac at0013 = ╱52╱R╱ // 0x265 @0x13
0x0252…02ac at0014 = ╱45╱E╱ // 0x266 @0x14
0x0252…02ac at0015 = ╱ef╱$╱ // 0x267 @0x15
0x0252…02ac at0016 = ╱ed╱(╱ // 0x268 @0x16
0x0252…02ac at0017 = ╱45╱E╱ // 0x269 @0x17
0x0252…02ac at0018 = ╱ee╱)╱ // 0x26a @0x18
0x0252…02ac at0019 = ╱ec╱,╱ // 0x26b @0x19
0x0252…02ac at001a = ╱4c╱L╱ // 0x26c @0x1a
0x0252…02ac at001b = ╱45╱E╱ // 0x26d @0x1b
0x0252…02ac at001c = ╱56╱V╱ // 0x26e @0x1c
0x0252…02ac at001d = ╱54╱T╱ // 0x26f @0x1d
0x0252…02ac at001e = ╱45╱E╱ // 0x270 @0x1e
0x0252…02ac at001f = ╱4b╱K╱ // 0x271 @0x1f
0x0252…02ac at0020 = ╱53╱S╱ // 0x272 @0x20
0x0252…02ac at0021 = ╱54╱T╱ // 0x273 @0x21
0x0252…02ac at0022 = ╱ef╱$╱ // 0x274 @0x22
0x0252…02ac at0023 = ╱ed╱(╱ // 0x275 @0x23
0x0252…02ac at0024 = ╱35╱5╱ // 0x276 @0x24
0x0252…02ac at0025 = ╱32╱2╱ // 0x277 @0x25
0x0252…02ac at0026 = ╱fe0000d006╱ // 0x278 @0x26
0x0252…02ac at002b = ╱ee╱)╱ // 0x27d @0x2b
0x0252…02ac at002c = ╱ec╱,╱ // 0x27e @0x2c
0x0252…02ac at002d = ╱41╱A╱ // 0x27f @0x2d
0x0252…02ac at002e = ╱4e╱N╱ // 0x280 @0x2e
0x0252…02ac at002f = ╱54╱T╱ // 0x281 @0x2f
0x0252…02ac at0030 = ╱41╱A╱ // 0x282 @0x30
0x0252…02ac at0031 = ╱4c╱L╱ // 0x283 @0x31
0x0252…02ac at0032 = ╱ef╱$╱ // 0x284 @0x32
0x0252…02ac at0033 = ╱ed╱(╱ // 0x285 @0x33
0x0252…02ac at0034 = ╱31╱1╱ // 0x286 @0x34
0x0252…02ac at0035 = ╱32╱2╱ // 0x287 @0x35
0x0252…02ac at0036 = ╱fe0000c004╱ // 0x288 @0x36
0x0252…02ac at003b = ╱ee╱)╱ // 0x28d @0x3b
0x0252…02ac at003c = ╱ec╱,╱ // 0x28e @0x3c
0x0252…02ac at003d = ╱42╱B╱ // 0x28f @0x3d
0x0252…02ac at003e = ╱4c╱L╱ // 0x290 @0x3e
0x0252…02ac at003f = ╱41╱A╱ // 0x291 @0x3f
0x0252…02ac at0040 = ╱4e╱N╱ // 0x292 @0x40
0x0252…02ac at0041 = ╱4b╱K╱ // 0x293 @0x41
0x0252…02ac at0042 = ╱ef╱$╱ // 0x294 @0x42
0x0252…02ac at0043 = ╱ed╱(╱ // 0x295 @0x43
0x0252…02ac at0044 = ╱35╱5╱ // 0x296 @0x44
0x0252…02ac at0045 = ╱30╱0╱ // 0x297 @0x45
0x0252…02ac at0046 = ╱fe0000c806╱ // 0x298 @0x46
0x0252…02ac at004b = ╱ee╱)╱ // 0x29d @0x4b
0x0252…02ac at004c = ╱ec╱,╱ // 0x29e @0x4c
0x0252…02ac at004d = ╱4b╱K╱ // 0x29f @0x4d
0x0252…02ac at004e = ╱35╱5╱ // 0x2a0 @0x4e
0x0252…02ac at004f = ╱ef╱$╱ // 0x2a1 @0x4f
0x0252…02ac at0050 = ╱ed╱(╱ // 0x2a2 @0x50
0x0252…02ac at0051 = ╱31╱1╱ // 0x2a3 @0x51
0x0252…02ac at0052 = ╱37╱7╱ // 0x2a4 @0x52
0x0252…02ac at0053 = ╱fe00008805╱ // 0x2a5 @0x53
0x0252…02ac at0058 = ╱ee╱)╱ // 0x2aa @0x58
0x0252…02ac at0059 = EOL // 0x2ab @0x59
0x0252…02ac }
0x02ac…02f4 904b 0180 DIM FORS$(12),PRO$(12),VARTH$(25),K6$(17),KOD3$(E)
0x02ac…02f4 LineComalBin {
0x02ac…02f4 ptr = 0x904b // 0x2ac @0x0
0x02ac…02f4 lno = 0x00b4 // 0x2ae @0x2
0x02ac…02f4 at0004 = ╱87╱ DIM ╱ // 0x2b0 @0x4
0x02ac…02f4 at0005 = ╱46╱F╱ // 0x2b1 @0x5
0x02ac…02f4 at0006 = ╱4f╱O╱ // 0x2b2 @0x6
0x02ac…02f4 at0007 = ╱52╱R╱ // 0x2b3 @0x7
0x02ac…02f4 at0008 = ╱53╱S╱ // 0x2b4 @0x8
0x02ac…02f4 at0009 = ╱ef╱$╱ // 0x2b5 @0x9
0x02ac…02f4 at000a = ╱ed╱(╱ // 0x2b6 @0xa
0x02ac…02f4 at000b = ╱31╱1╱ // 0x2b7 @0xb
0x02ac…02f4 at000c = ╱32╱2╱ // 0x2b8 @0xc
0x02ac…02f4 at000d = ╱fe0000c004╱ // 0x2b9 @0xd
0x02ac…02f4 at0012 = ╱ee╱)╱ // 0x2be @0x12
0x02ac…02f4 at0013 = ╱ec╱,╱ // 0x2bf @0x13
0x02ac…02f4 at0014 = ╱50╱P╱ // 0x2c0 @0x14
0x02ac…02f4 at0015 = ╱52╱R╱ // 0x2c1 @0x15
0x02ac…02f4 at0016 = ╱4f╱O╱ // 0x2c2 @0x16
0x02ac…02f4 at0017 = ╱ef╱$╱ // 0x2c3 @0x17
0x02ac…02f4 at0018 = ╱ed╱(╱ // 0x2c4 @0x18
0x02ac…02f4 at0019 = ╱31╱1╱ // 0x2c5 @0x19
0x02ac…02f4 at001a = ╱32╱2╱ // 0x2c6 @0x1a
0x02ac…02f4 at001b = ╱fe0000c004╱ // 0x2c7 @0x1b
0x02ac…02f4 at0020 = ╱ee╱)╱ // 0x2cc @0x20
0x02ac…02f4 at0021 = ╱ec╱,╱ // 0x2cd @0x21
0x02ac…02f4 at0022 = ╱56╱V╱ // 0x2ce @0x22
0x02ac…02f4 at0023 = ╱41╱A╱ // 0x2cf @0x23
0x02ac…02f4 at0024 = ╱52╱R╱ // 0x2d0 @0x24
0x02ac…02f4 at0025 = ╱54╱T╱ // 0x2d1 @0x25
0x02ac…02f4 at0026 = ╱48╱H╱ // 0x2d2 @0x26
0x02ac…02f4 at0027 = ╱ef╱$╱ // 0x2d3 @0x27
0x02ac…02f4 at0028 = ╱ed╱(╱ // 0x2d4 @0x28
0x02ac…02f4 at0029 = ╱32╱2╱ // 0x2d5 @0x29
0x02ac…02f4 at002a = ╱35╱5╱ // 0x2d6 @0x2a
0x02ac…02f4 at002b = ╱fe0000c805╱ // 0x2d7 @0x2b
0x02ac…02f4 at0030 = ╱ee╱)╱ // 0x2dc @0x30
0x02ac…02f4 at0031 = ╱ec╱,╱ // 0x2dd @0x31
0x02ac…02f4 at0032 = ╱4b╱K╱ // 0x2de @0x32
0x02ac…02f4 at0033 = ╱36╱6╱ // 0x2df @0x33
0x02ac…02f4 at0034 = ╱ef╱$╱ // 0x2e0 @0x34
0x02ac…02f4 at0035 = ╱ed╱(╱ // 0x2e1 @0x35
0x02ac…02f4 at0036 = ╱31╱1╱ // 0x2e2 @0x36
0x02ac…02f4 at0037 = ╱37╱7╱ // 0x2e3 @0x37
0x02ac…02f4 at0038 = ╱fe00008805╱ // 0x2e4 @0x38
0x02ac…02f4 at003d = ╱ee╱)╱ // 0x2e9 @0x3d
0x02ac…02f4 at003e = ╱ec╱,╱ // 0x2ea @0x3e
0x02ac…02f4 at003f = ╱4b╱K╱ // 0x2eb @0x3f
0x02ac…02f4 at0040 = ╱4f╱O╱ // 0x2ec @0x40
0x02ac…02f4 at0041 = ╱44╱D╱ // 0x2ed @0x41
0x02ac…02f4 at0042 = ╱33╱3╱ // 0x2ee @0x42
0x02ac…02f4 at0043 = ╱ef╱$╱ // 0x2ef @0x43
0x02ac…02f4 at0044 = ╱ed╱(╱ // 0x2f0 @0x44
0x02ac…02f4 at0045 = ╱45╱E╱ // 0x2f1 @0x45
0x02ac…02f4 at0046 = ╱ee╱)╱ // 0x2f2 @0x46
0x02ac…02f4 at0047 = EOL // 0x2f3 @0x47
0x02ac…02f4 }
0x02f4…032f 9086 0190 DIM TE$(30),TEKO$(E),F$(E),K7$(17),K8$(17)
0x02f4…032f LineComalBin {
0x02f4…032f ptr = 0x9086 // 0x2f4 @0x0
0x02f4…032f lno = 0x00be // 0x2f6 @0x2
0x02f4…032f at0004 = ╱87╱ DIM ╱ // 0x2f8 @0x4
0x02f4…032f at0005 = ╱54╱T╱ // 0x2f9 @0x5
0x02f4…032f at0006 = ╱45╱E╱ // 0x2fa @0x6
0x02f4…032f at0007 = ╱ef╱$╱ // 0x2fb @0x7
0x02f4…032f at0008 = ╱ed╱(╱ // 0x2fc @0x8
0x02f4…032f at0009 = ╱33╱3╱ // 0x2fd @0x9
0x02f4…032f at000a = ╱30╱0╱ // 0x2fe @0xa
0x02f4…032f at000b = ╱fe0000f005╱ // 0x2ff @0xb
0x02f4…032f at0010 = ╱ee╱)╱ // 0x304 @0x10
0x02f4…032f at0011 = ╱ec╱,╱ // 0x305 @0x11
0x02f4…032f at0012 = ╱54╱T╱ // 0x306 @0x12
0x02f4…032f at0013 = ╱45╱E╱ // 0x307 @0x13
0x02f4…032f at0014 = ╱4b╱K╱ // 0x308 @0x14
0x02f4…032f at0015 = ╱4f╱O╱ // 0x309 @0x15
0x02f4…032f at0016 = ╱ef╱$╱ // 0x30a @0x16
0x02f4…032f at0017 = ╱ed╱(╱ // 0x30b @0x17
0x02f4…032f at0018 = ╱45╱E╱ // 0x30c @0x18
0x02f4…032f at0019 = ╱ee╱)╱ // 0x30d @0x19
0x02f4…032f at001a = ╱ec╱,╱ // 0x30e @0x1a
0x02f4…032f at001b = ╱46╱F╱ // 0x30f @0x1b
0x02f4…032f at001c = ╱ef╱$╱ // 0x310 @0x1c
0x02f4…032f at001d = ╱ed╱(╱ // 0x311 @0x1d
0x02f4…032f at001e = ╱45╱E╱ // 0x312 @0x1e
0x02f4…032f at001f = ╱ee╱)╱ // 0x313 @0x1f
0x02f4…032f at0020 = ╱ec╱,╱ // 0x314 @0x20
0x02f4…032f at0021 = ╱4b╱K╱ // 0x315 @0x21
0x02f4…032f at0022 = ╱37╱7╱ // 0x316 @0x22
0x02f4…032f at0023 = ╱ef╱$╱ // 0x317 @0x23
0x02f4…032f at0024 = ╱ed╱(╱ // 0x318 @0x24
0x02f4…032f at0025 = ╱31╱1╱ // 0x319 @0x25
0x02f4…032f at0026 = ╱37╱7╱ // 0x31a @0x26
0x02f4…032f at0027 = ╱fe00008805╱ // 0x31b @0x27
0x02f4…032f at002c = ╱ee╱)╱ // 0x320 @0x2c
0x02f4…032f at002d = ╱ec╱,╱ // 0x321 @0x2d
0x02f4…032f at002e = ╱4b╱K╱ // 0x322 @0x2e
0x02f4…032f at002f = ╱38╱8╱ // 0x323 @0x2f
0x02f4…032f at0030 = ╱ef╱$╱ // 0x324 @0x30
0x02f4…032f at0031 = ╱ed╱(╱ // 0x325 @0x31
0x02f4…032f at0032 = ╱31╱1╱ // 0x326 @0x32
0x02f4…032f at0033 = ╱37╱7╱ // 0x327 @0x33
0x02f4…032f at0034 = ╱fe00008805╱ // 0x328 @0x34
0x02f4…032f at0039 = ╱ee╱)╱ // 0x32d @0x39
0x02f4…032f at003a = EOL // 0x32e @0x3a
0x02f4…032f }
0x032f…0396 90ed 0200 DIM K9$(17),LAND$(W,12),BLB2$(12),TAH$(12),D1$(25),D2$(25),D3$(20)
0x032f…0396 LineComalBin {
0x032f…0396 ptr = 0x90ed // 0x32f @0x0
0x032f…0396 lno = 0x00c8 // 0x331 @0x2
0x032f…0396 at0004 = ╱87╱ DIM ╱ // 0x333 @0x4
0x032f…0396 at0005 = ╱4b╱K╱ // 0x334 @0x5
0x032f…0396 at0006 = ╱39╱9╱ // 0x335 @0x6
0x032f…0396 at0007 = ╱ef╱$╱ // 0x336 @0x7
0x032f…0396 at0008 = ╱ed╱(╱ // 0x337 @0x8
0x032f…0396 at0009 = ╱31╱1╱ // 0x338 @0x9
0x032f…0396 at000a = ╱37╱7╱ // 0x339 @0xa
0x032f…0396 at000b = ╱fe00008805╱ // 0x33a @0xb
0x032f…0396 at0010 = ╱ee╱)╱ // 0x33f @0x10
0x032f…0396 at0011 = ╱ec╱,╱ // 0x340 @0x11
0x032f…0396 at0012 = ╱4c╱L╱ // 0x341 @0x12
0x032f…0396 at0013 = ╱41╱A╱ // 0x342 @0x13
0x032f…0396 at0014 = ╱4e╱N╱ // 0x343 @0x14
0x032f…0396 at0015 = ╱44╱D╱ // 0x344 @0x15
0x032f…0396 at0016 = ╱ef╱$╱ // 0x345 @0x16
0x032f…0396 at0017 = ╱ed╱(╱ // 0x346 @0x17
0x032f…0396 at0018 = ╱57╱W╱ // 0x347 @0x18
0x032f…0396 at0019 = ╱ec╱,╱ // 0x348 @0x19
0x032f…0396 at001a = ╱31╱1╱ // 0x349 @0x1a
0x032f…0396 at001b = ╱32╱2╱ // 0x34a @0x1b
0x032f…0396 at001c = ╱fe0000c004╱ // 0x34b @0x1c
0x032f…0396 at0021 = ╱ee╱)╱ // 0x350 @0x21
0x032f…0396 at0022 = ╱ec╱,╱ // 0x351 @0x22
0x032f…0396 at0023 = ╱42╱B╱ // 0x352 @0x23
0x032f…0396 at0024 = ╱4c╱L╱ // 0x353 @0x24
0x032f…0396 at0025 = ╱42╱B╱ // 0x354 @0x25
0x032f…0396 at0026 = ╱32╱2╱ // 0x355 @0x26
0x032f…0396 at0027 = ╱ef╱$╱ // 0x356 @0x27
0x032f…0396 at0028 = ╱ed╱(╱ // 0x357 @0x28
0x032f…0396 at0029 = ╱31╱1╱ // 0x358 @0x29
0x032f…0396 at002a = ╱32╱2╱ // 0x359 @0x2a
0x032f…0396 at002b = ╱fe0000c004╱ // 0x35a @0x2b
0x032f…0396 at0030 = ╱ee╱)╱ // 0x35f @0x30
0x032f…0396 at0031 = ╱ec╱,╱ // 0x360 @0x31
0x032f…0396 at0032 = ╱54╱T╱ // 0x361 @0x32
0x032f…0396 at0033 = ╱41╱A╱ // 0x362 @0x33
0x032f…0396 at0034 = ╱48╱H╱ // 0x363 @0x34
0x032f…0396 at0035 = ╱ef╱$╱ // 0x364 @0x35
0x032f…0396 at0036 = ╱ed╱(╱ // 0x365 @0x36
0x032f…0396 at0037 = ╱31╱1╱ // 0x366 @0x37
0x032f…0396 at0038 = ╱32╱2╱ // 0x367 @0x38
0x032f…0396 at0039 = ╱fe0000c004╱ // 0x368 @0x39
0x032f…0396 at003e = ╱ee╱)╱ // 0x36d @0x3e
0x032f…0396 at003f = ╱ec╱,╱ // 0x36e @0x3f
0x032f…0396 at0040 = ╱44╱D╱ // 0x36f @0x40
0x032f…0396 at0041 = ╱31╱1╱ // 0x370 @0x41
0x032f…0396 at0042 = ╱ef╱$╱ // 0x371 @0x42
0x032f…0396 at0043 = ╱ed╱(╱ // 0x372 @0x43
0x032f…0396 at0044 = ╱32╱2╱ // 0x373 @0x44
0x032f…0396 at0045 = ╱35╱5╱ // 0x374 @0x45
0x032f…0396 at0046 = ╱fe0000c805╱ // 0x375 @0x46
0x032f…0396 at004b = ╱ee╱)╱ // 0x37a @0x4b
0x032f…0396 at004c = ╱ec╱,╱ // 0x37b @0x4c
0x032f…0396 at004d = ╱44╱D╱ // 0x37c @0x4d
0x032f…0396 at004e = ╱32╱2╱ // 0x37d @0x4e
0x032f…0396 at004f = ╱ef╱$╱ // 0x37e @0x4f
0x032f…0396 at0050 = ╱ed╱(╱ // 0x37f @0x50
0x032f…0396 at0051 = ╱32╱2╱ // 0x380 @0x51
0x032f…0396 at0052 = ╱35╱5╱ // 0x381 @0x52
0x032f…0396 at0053 = ╱fe0000c805╱ // 0x382 @0x53
0x032f…0396 at0058 = ╱ee╱)╱ // 0x387 @0x58
0x032f…0396 at0059 = ╱ec╱,╱ // 0x388 @0x59
0x032f…0396 at005a = ╱44╱D╱ // 0x389 @0x5a
0x032f…0396 at005b = ╱33╱3╱ // 0x38a @0x5b
0x032f…0396 at005c = ╱ef╱$╱ // 0x38b @0x5c
0x032f…0396 at005d = ╱ed╱(╱ // 0x38c @0x5d
0x032f…0396 at005e = ╱32╱2╱ // 0x38d @0x5e
0x032f…0396 at005f = ╱30╱0╱ // 0x38e @0x5f
0x032f…0396 at0060 = ╱fe0000a005╱ // 0x38f @0x60
0x032f…0396 at0065 = ╱ee╱)╱ // 0x394 @0x65
0x032f…0396 at0066 = EOL // 0x395 @0x66
0x032f…0396 }
0x0396…03dc 9133 0210 BLANK$=" ";TAH$="0+";BLANK$=BLANK$+BLANK$
0x0396…03dc LineComalBin {
0x0396…03dc ptr = 0x9133 // 0x396 @0x0
0x0396…03dc lno = 0x00d2 // 0x398 @0x2
0x0396…03dc at0004 = ╱42╱B╱ // 0x39a @0x4
0x0396…03dc at0005 = ╱4c╱L╱ // 0x39b @0x5
0x0396…03dc at0006 = ╱41╱A╱ // 0x39c @0x6
0x0396…03dc at0007 = ╱4e╱N╱ // 0x39d @0x7
0x0396…03dc at0008 = ╱4b╱K╱ // 0x39e @0x8
0x0396…03dc at0009 = ╱ef╱$╱ // 0x39f @0x9
0x0396…03dc at000a = ╱dc╱=╱ // 0x3a0 @0xa
0x0396…03dc at000b = ╱22╱"╱ // 0x3a1 @0xb
0x0396…03dc at000c = ╱20╱…╱ // 0x3a2 @0xc
0x0396…03dc at000d = ╱20╱…╱ // 0x3a3 @0xd
0x0396…03dc at000e = ╱20╱…╱ // 0x3a4 @0xe
0x0396…03dc at000f = ╱20╱…╱ // 0x3a5 @0xf
0x0396…03dc at0010 = ╱20╱…╱ // 0x3a6 @0x10
0x0396…03dc at0011 = ╱20╱…╱ // 0x3a7 @0x11
0x0396…03dc at0012 = ╱20╱…╱ // 0x3a8 @0x12
0x0396…03dc at0013 = ╱20╱…╱ // 0x3a9 @0x13
0x0396…03dc at0014 = ╱20╱…╱ // 0x3aa @0x14
0x0396…03dc at0015 = ╱20╱…╱ // 0x3ab @0x15
0x0396…03dc at0016 = ╱20╱…╱ // 0x3ac @0x16
0x0396…03dc at0017 = ╱20╱…╱ // 0x3ad @0x17
0x0396…03dc at0018 = ╱20╱…╱ // 0x3ae @0x18
0x0396…03dc at0019 = ╱20╱…╱ // 0x3af @0x19
0x0396…03dc at001a = ╱20╱…╱ // 0x3b0 @0x1a
0x0396…03dc at001b = ╱20╱…╱ // 0x3b1 @0x1b
0x0396…03dc at001c = ╱20╱…╱ // 0x3b2 @0x1c
0x0396…03dc at001d = ╱20╱…╱ // 0x3b3 @0x1d
0x0396…03dc at001e = ╱20╱…╱ // 0x3b4 @0x1e
0x0396…03dc at001f = ╱20╱…╱ // 0x3b5 @0x1f
0x0396…03dc at0020 = ╱20╱…╱ // 0x3b6 @0x20
0x0396…03dc at0021 = ╱20╱…╱ // 0x3b7 @0x21
0x0396…03dc at0022 = ╱20╱…╱ // 0x3b8 @0x22
0x0396…03dc at0023 = ╱20╱…╱ // 0x3b9 @0x23
0x0396…03dc at0024 = ╱20╱…╱ // 0x3ba @0x24
0x0396…03dc at0025 = ╱22╱"╱ // 0x3bb @0x25
0x0396…03dc at0026 = ╱eb╱;╱ // 0x3bc @0x26
0x0396…03dc at0027 = ╱54╱T╱ // 0x3bd @0x27
0x0396…03dc at0028 = ╱41╱A╱ // 0x3be @0x28
0x0396…03dc at0029 = ╱48╱H╱ // 0x3bf @0x29
0x0396…03dc at002a = ╱ef╱$╱ // 0x3c0 @0x2a
0x0396…03dc at002b = ╱dc╱=╱ // 0x3c1 @0x2b
0x0396…03dc at002c = ╱22╱"╱ // 0x3c2 @0x2c
0x0396…03dc at002d = ╱30╱0╱ // 0x3c3 @0x2d
0x0396…03dc at002e = ╱2b╱+╱ // 0x3c4 @0x2e
0x0396…03dc at002f = ╱22╱"╱ // 0x3c5 @0x2f
0x0396…03dc at0030 = ╱eb╱;╱ // 0x3c6 @0x30
0x0396…03dc at0031 = ╱42╱B╱ // 0x3c7 @0x31
0x0396…03dc at0032 = ╱4c╱L╱ // 0x3c8 @0x32
0x0396…03dc at0033 = ╱41╱A╱ // 0x3c9 @0x33
0x0396…03dc at0034 = ╱4e╱N╱ // 0x3ca @0x34
0x0396…03dc at0035 = ╱4b╱K╱ // 0x3cb @0x35
0x0396…03dc at0036 = ╱ef╱$╱ // 0x3cc @0x36
0x0396…03dc at0037 = ╱dc╱=╱ // 0x3cd @0x37
0x0396…03dc at0038 = ╱42╱B╱ // 0x3ce @0x38
0x0396…03dc at0039 = ╱4c╱L╱ // 0x3cf @0x39
0x0396…03dc at003a = ╱41╱A╱ // 0x3d0 @0x3a
0x0396…03dc at003b = ╱4e╱N╱ // 0x3d1 @0x3b
0x0396…03dc at003c = ╱4b╱K╱ // 0x3d2 @0x3c
0x0396…03dc at003d = ╱ef╱$╱ // 0x3d3 @0x3d
0x0396…03dc at003e = ╱f1╱+╱ // 0x3d4 @0x3e
0x0396…03dc at003f = ╱42╱B╱ // 0x3d5 @0x3f
0x0396…03dc at0040 = ╱4c╱L╱ // 0x3d6 @0x40
0x0396…03dc at0041 = ╱41╱A╱ // 0x3d7 @0x41
0x0396…03dc at0042 = ╱4e╱N╱ // 0x3d8 @0x42
0x0396…03dc at0043 = ╱4b╱K╱ // 0x3d9 @0x43
0x0396…03dc at0044 = ╱ef╱$╱ // 0x3da @0x44
0x0396…03dc at0045 = EOL // 0x3db @0x45
0x0396…03dc }
0x03dc…0402 9159 0220 TAL1$="0+";TAL4$="0+";TOTAL$="0+"
0x03dc…0402 LineComalBin {
0x03dc…0402 ptr = 0x9159 // 0x3dc @0x0
0x03dc…0402 lno = 0x00dc // 0x3de @0x2
0x03dc…0402 at0004 = ╱54╱T╱ // 0x3e0 @0x4
0x03dc…0402 at0005 = ╱41╱A╱ // 0x3e1 @0x5
0x03dc…0402 at0006 = ╱4c╱L╱ // 0x3e2 @0x6
0x03dc…0402 at0007 = ╱31╱1╱ // 0x3e3 @0x7
0x03dc…0402 at0008 = ╱ef╱$╱ // 0x3e4 @0x8
0x03dc…0402 at0009 = ╱dc╱=╱ // 0x3e5 @0x9
0x03dc…0402 at000a = ╱22╱"╱ // 0x3e6 @0xa
0x03dc…0402 at000b = ╱30╱0╱ // 0x3e7 @0xb
0x03dc…0402 at000c = ╱2b╱+╱ // 0x3e8 @0xc
0x03dc…0402 at000d = ╱22╱"╱ // 0x3e9 @0xd
0x03dc…0402 at000e = ╱eb╱;╱ // 0x3ea @0xe
0x03dc…0402 at000f = ╱54╱T╱ // 0x3eb @0xf
0x03dc…0402 at0010 = ╱41╱A╱ // 0x3ec @0x10
0x03dc…0402 at0011 = ╱4c╱L╱ // 0x3ed @0x11
0x03dc…0402 at0012 = ╱34╱4╱ // 0x3ee @0x12
0x03dc…0402 at0013 = ╱ef╱$╱ // 0x3ef @0x13
0x03dc…0402 at0014 = ╱dc╱=╱ // 0x3f0 @0x14
0x03dc…0402 at0015 = ╱22╱"╱ // 0x3f1 @0x15
0x03dc…0402 at0016 = ╱30╱0╱ // 0x3f2 @0x16
0x03dc…0402 at0017 = ╱2b╱+╱ // 0x3f3 @0x17
0x03dc…0402 at0018 = ╱22╱"╱ // 0x3f4 @0x18
0x03dc…0402 at0019 = ╱eb╱;╱ // 0x3f5 @0x19
0x03dc…0402 at001a = ╱54╱T╱ // 0x3f6 @0x1a
0x03dc…0402 at001b = ╱4f╱O╱ // 0x3f7 @0x1b
0x03dc…0402 at001c = ╱54╱T╱ // 0x3f8 @0x1c
0x03dc…0402 at001d = ╱41╱A╱ // 0x3f9 @0x1d
0x03dc…0402 at001e = ╱4c╱L╱ // 0x3fa @0x1e
0x03dc…0402 at001f = ╱ef╱$╱ // 0x3fb @0x1f
0x03dc…0402 at0020 = ╱dc╱=╱ // 0x3fc @0x20
0x03dc…0402 at0021 = ╱22╱"╱ // 0x3fd @0x21
0x03dc…0402 at0022 = ╱30╱0╱ // 0x3fe @0x22
0x03dc…0402 at0023 = ╱2b╱+╱ // 0x3ff @0x23
0x03dc…0402 at0024 = ╱22╱"╱ // 0x400 @0x24
0x03dc…0402 at0025 = EOL // 0x401 @0x25
0x03dc…0402 }
0x0402…0414 916b 0230 PROC NRTEST(NUM1)
0x0402…0414 LineComalBin {
0x0402…0414 ptr = 0x916b // 0x402 @0x0
0x0402…0414 lno = 0x00e6 // 0x404 @0x2
0x0402…0414 at0004 = ╱9e╱ PROC ╱ // 0x406 @0x4
0x0402…0414 at0005 = ╱4e╱N╱ // 0x407 @0x5
0x0402…0414 at0006 = ╱52╱R╱ // 0x408 @0x6
0x0402…0414 at0007 = ╱54╱T╱ // 0x409 @0x7
0x0402…0414 at0008 = ╱45╱E╱ // 0x40a @0x8
0x0402…0414 at0009 = ╱53╱S╱ // 0x40b @0x9
0x0402…0414 at000a = ╱54╱T╱ // 0x40c @0xa
0x0402…0414 at000b = ╱ed╱(╱ // 0x40d @0xb
0x0402…0414 at000c = ╱4e╱N╱ // 0x40e @0xc
0x0402…0414 at000d = ╱55╱U╱ // 0x40f @0xd
0x0402…0414 at000e = ╱4d╱M╱ // 0x410 @0xe
0x0402…0414 at000f = ╱31╱1╱ // 0x411 @0xf
0x0402…0414 at0010 = ╱ee╱)╱ // 0x412 @0x10
0x0402…0414 at0011 = EOL // 0x413 @0x11
0x0402…0414 }
0x0414…0436 918d 0240 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x0414…0436 LineComalBin {
0x0414…0436 ptr = 0x918d // 0x414 @0x0
0x0414…0436 lno = 0x00f0 // 0x416 @0x2
0x0414…0436 at0004 = ╱50╱P╱ // 0x418 @0x4
0x0414…0436 at0005 = ╱dc╱=╱ // 0x419 @0x5
0x0414…0436 at0006 = ╱42╱B╱ // 0x41a @0x6
0x0414…0436 at0007 = ╱eb╱;╱ // 0x41b @0x7
0x0414…0436 at0008 = ╱54╱T╱ // 0x41c @0x8
0x0414…0436 at0009 = ╱45╱E╱ // 0x41d @0x9
0x0414…0436 at000a = ╱53╱S╱ // 0x41e @0xa
0x0414…0436 at000b = ╱54╱T╱ // 0x41f @0xb
0x0414…0436 at000c = ╱32╱2╱ // 0x420 @0xc
0x0414…0436 at000d = ╱dc╱=╱ // 0x421 @0xd
0x0414…0436 at000e = ╱42╱B╱ // 0x422 @0xe
0x0414…0436 at000f = ╱eb╱;╱ // 0x423 @0xf
0x0414…0436 at0010 = ╱4b╱K╱ // 0x424 @0x10
0x0414…0436 at0011 = ╱54╱T╱ // 0x425 @0x11
0x0414…0436 at0012 = ╱41╱A╱ // 0x426 @0x12
0x0414…0436 at0013 = ╱4c╱L╱ // 0x427 @0x13
0x0414…0436 at0014 = ╱dc╱=╱ // 0x428 @0x14
0x0414…0436 at0015 = ╱42╱B╱ // 0x429 @0x15
0x0414…0436 at0016 = ╱eb╱;╱ // 0x42a @0x16
0x0414…0436 at0017 = ╱4c╱L╱ // 0x42b @0x17
0x0414…0436 at0018 = ╱dc╱=╱ // 0x42c @0x18
0x0414…0436 at0019 = ╱cc╱LEN╱ // 0x42d @0x19
0x0414…0436 at001a = ╱ed╱(╱ // 0x42e @0x1a
0x0414…0436 at001b = ╱4e╱N╱ // 0x42f @0x1b
0x0414…0436 at001c = ╱55╱U╱ // 0x430 @0x1c
0x0414…0436 at001d = ╱4d╱M╱ // 0x431 @0x1d
0x0414…0436 at001e = ╱31╱1╱ // 0x432 @0x1e
0x0414…0436 at001f = ╱ef╱$╱ // 0x433 @0x1f
0x0414…0436 at0020 = ╱ee╱)╱ // 0x434 @0x20
0x0414…0436 at0021 = EOL // 0x435 @0x21
0x0414…0436 }
0x0436…0446 (14,) 919d 0250 IF L>6 THEN EXIT
0x0436…0446 LineComalBin {
0x0436…0446 ptr = 0x919d // 0x436 @0x0
0x0436…0446 lno = 0x00fa // 0x438 @0x2
0x0436…0446 at0004 = ╱82╱ IF ╱ // 0x43a @0x4
0x0436…0446 at0005 = ╱4c╱L╱ // 0x43b @0x5
0x0436…0446 at0006 = ╱de╱>╱ // 0x43c @0x6
0x0436…0446 at0007 = ╱36╱6╱ // 0x43d @0x7
0x0436…0446 at0008 = ╱fe0000c003╱ // 0x43e @0x8
0x0436…0446 at000d = ╱b6╱ THEN ╱ // 0x443 @0xd
0x0436…0446 at000e = ╱99╱ EXIT ╱ // 0x444 @0xe
0x0436…0446 at000f = EOL // 0x445 @0xf
0x0436…0446 }
0x0446…044f 91a6 0260 CASE L OF
0x0446…044f LineComalBin {
0x0446…044f ptr = 0x91a6 // 0x446 @0x0
0x0446…044f lno = 0x0104 // 0x448 @0x2
0x0446…044f at0004 = ╱a201╱ CASE ╱ // 0x44a @0x4
0x0446…044f at0006 = ╱4c╱L╱ // 0x44c @0x6
0x0446…044f at0007 = ╱ba╱ OF ╱ // 0x44d @0x7
0x0446…044f at0008 = EOL // 0x44e @0x8
0x0446…044f }
0x044f…045a 91b1 0270 FOR J=E TO L
0x044f…045a LineComalBin {
0x044f…045a ptr = 0x91b1 // 0x44f @0x0
0x044f…045a lno = 0x010e // 0x451 @0x2
0x044f…045a at0004 = ╱83╱ FOR ╱ // 0x453 @0x4
0x044f…045a at0005 = ╱4a╱J╱ // 0x454 @0x5
0x044f…045a at0006 = ╱dc╱=╱ // 0x455 @0x6
0x044f…045a at0007 = ╱45╱E╱ // 0x456 @0x7
0x044f…045a at0008 = ╱b7╱ TO ╱ // 0x457 @0x8
0x044f…045a at0009 = ╱4c╱L╱ // 0x458 @0x9
0x044f…045a at000a = EOL // 0x459 @0xa
0x044f…045a }
0x045a…0478 91cf 0280 P1=INT(ORD(NUM1$(J))-48)
0x045a…0478 LineComalBin {
0x045a…0478 ptr = 0x91cf // 0x45a @0x0
0x045a…0478 lno = 0x0118 // 0x45c @0x2
0x045a…0478 at0004 = ╱50╱P╱ // 0x45e @0x4
0x045a…0478 at0005 = ╱31╱1╱ // 0x45f @0x5
0x045a…0478 at0006 = ╱dc╱=╱ // 0x460 @0x6
0x045a…0478 at0007 = ╱c6╱INT╱ // 0x461 @0x7
0x045a…0478 at0008 = ╱ed╱(╱ // 0x462 @0x8
0x045a…0478 at0009 = ╱cd╱ORD╱ // 0x463 @0x9
0x045a…0478 at000a = ╱ed╱(╱ // 0x464 @0xa
0x045a…0478 at000b = ╱4e╱N╱ // 0x465 @0xb
0x045a…0478 at000c = ╱55╱U╱ // 0x466 @0xc
0x045a…0478 at000d = ╱4d╱M╱ // 0x467 @0xd
0x045a…0478 at000e = ╱31╱1╱ // 0x468 @0xe
0x045a…0478 at000f = ╱ef╱$╱ // 0x469 @0xf
0x045a…0478 at0010 = ╱ed╱(╱ // 0x46a @0x10
0x045a…0478 at0011 = ╱4a╱J╱ // 0x46b @0x11
0x045a…0478 at0012 = ╱ee╱)╱ // 0x46c @0x12
0x045a…0478 at0013 = ╱ee╱)╱ // 0x46d @0x13
0x045a…0478 at0014 = ╱e3╱-╱ // 0x46e @0x14
0x045a…0478 at0015 = ╱34╱4╱ // 0x46f @0x15
0x045a…0478 at0016 = ╱38╱8╱ // 0x470 @0x16
0x045a…0478 at0017 = ╱fe0000c006╱ // 0x471 @0x17
0x045a…0478 at001c = ╱ee╱)╱ // 0x476 @0x1c
0x045a…0478 at001d = EOL // 0x477 @0x1d
0x045a…0478 }
0x0478…0488 91df 0290 IF P1<B OR P1>W THEN
0x0478…0488 LineComalBin {
0x0478…0488 ptr = 0x91df // 0x478 @0x0
0x0478…0488 lno = 0x0122 // 0x47a @0x2
0x0478…0488 at0004 = ╱9c╱ IF ╱ // 0x47c @0x4
0x0478…0488 at0005 = ╱50╱P╱ // 0x47d @0x5
0x0478…0488 at0006 = ╱31╱1╱ // 0x47e @0x6
0x0478…0488 at0007 = ╱dd╱<╱ // 0x47f @0x7
0x0478…0488 at0008 = ╱42╱B╱ // 0x480 @0x8
0x0478…0488 at0009 = ╱db╱ OR ╱ // 0x481 @0x9
0x0478…0488 at000a = ╱50╱P╱ // 0x482 @0xa
0x0478…0488 at000b = ╱31╱1╱ // 0x483 @0xb
0x0478…0488 at000c = ╱de╱>╱ // 0x484 @0xc
0x0478…0488 at000d = ╱57╱W╱ // 0x485 @0xd
0x0478…0488 at000e = ╱b6╱ THEN ╱ // 0x486 @0xe
0x0478…0488 at000f = EOL // 0x487 @0xf
0x0478…0488 }
0x0488…0494 91eb 0300 TEST2=E
0x0488…0494 LineComalBin {
0x0488…0494 ptr = 0x91eb // 0x488 @0x0
0x0488…0494 lno = 0x012c // 0x48a @0x2
0x0488…0494 at0004 = ╱54╱T╱ // 0x48c @0x4
0x0488…0494 at0005 = ╱45╱E╱ // 0x48d @0x5
0x0488…0494 at0006 = ╱53╱S╱ // 0x48e @0x6
0x0488…0494 at0007 = ╱54╱T╱ // 0x48f @0x7
0x0488…0494 at0008 = ╱32╱2╱ // 0x490 @0x8
0x0488…0494 at0009 = ╱dc╱=╱ // 0x491 @0x9
0x0488…0494 at000a = ╱45╱E╱ // 0x492 @0xa
0x0488…0494 at000b = EOL // 0x493 @0xb
0x0488…0494 }
0x0494…049a 91f1 0310 ELSE
0x0494…049a LineComalBin {
0x0494…049a ptr = 0x91f1 // 0x494 @0x0
0x0494…049a lno = 0x0136 // 0x496 @0x2
0x0494…049a at0004 = ╱9a╱ ELSE ╱ // 0x498 @0x4
0x0494…049a at0005 = EOL // 0x499 @0x5
0x0494…049a }
0x049a…04ad 9204 0320 P=P*10+P1
0x049a…04ad LineComalBin {
0x049a…04ad ptr = 0x9204 // 0x49a @0x0
0x049a…04ad lno = 0x0140 // 0x49c @0x2
0x049a…04ad at0004 = ╱50╱P╱ // 0x49e @0x4
0x049a…04ad at0005 = ╱dc╱=╱ // 0x49f @0x5
0x049a…04ad at0006 = ╱50╱P╱ // 0x4a0 @0x6
0x049a…04ad at0007 = ╱e4╱*╱ // 0x4a1 @0x7
0x049a…04ad at0008 = ╱31╱1╱ // 0x4a2 @0x8
0x049a…04ad at0009 = ╱30╱0╱ // 0x4a3 @0x9
0x049a…04ad at000a = ╱fe0000a004╱ // 0x4a4 @0xa
0x049a…04ad at000f = ╱e2╱+╱ // 0x4a9 @0xf
0x049a…04ad at0010 = ╱50╱P╱ // 0x4aa @0x10
0x049a…04ad at0011 = ╱31╱1╱ // 0x4ab @0x11
0x049a…04ad at0012 = EOL // 0x4ac @0x12
0x049a…04ad }
0x04ad…04b3 920a 0330 ENDIF
0x04ad…04b3 LineComalBin {
0x04ad…04b3 ptr = 0x920a // 0x4ad @0x0
0x04ad…04b3 lno = 0x014a // 0x4af @0x2
0x04ad…04b3 at0004 = ╱9b╱ ENDIF ╱ // 0x4b1 @0x4
0x04ad…04b3 at0005 = EOL // 0x4b2 @0x5
0x04ad…04b3 }
0x04b3…04ba 9211 0340 NEXT J
0x04b3…04ba LineComalBin {
0x04b3…04ba ptr = 0x9211 // 0x4b3 @0x0
0x04b3…04ba lno = 0x0154 // 0x4b5 @0x2
0x04b3…04ba at0004 = ╱84╱ NEXT ╱ // 0x4b7 @0x4
0x04b3…04ba at0005 = ╱4a╱J╱ // 0x4b8 @0x5
0x04b3…04ba at0006 = EOL // 0x4b9 @0x6
0x04b3…04ba }
0x04ba…04d0 9227 0350 KTAL=P DIV 10000
0x04ba…04d0 LineComalBin {
0x04ba…04d0 ptr = 0x9227 // 0x4ba @0x0
0x04ba…04d0 lno = 0x015e // 0x4bc @0x2
0x04ba…04d0 at0004 = ╱4b╱K╱ // 0x4be @0x4
0x04ba…04d0 at0005 = ╱54╱T╱ // 0x4bf @0x5
0x04ba…04d0 at0006 = ╱41╱A╱ // 0x4c0 @0x6
0x04ba…04d0 at0007 = ╱4c╱L╱ // 0x4c1 @0x7
0x04ba…04d0 at0008 = ╱dc╱=╱ // 0x4c2 @0x8
0x04ba…04d0 at0009 = ╱50╱P╱ // 0x4c3 @0x9
0x04ba…04d0 at000a = ╱e7╱ DIV ╱ // 0x4c4 @0xa
0x04ba…04d0 at000b = ╱31╱1╱ // 0x4c5 @0xb
0x04ba…04d0 at000c = ╱30╱0╱ // 0x4c6 @0xc
0x04ba…04d0 at000d = ╱30╱0╱ // 0x4c7 @0xd
0x04ba…04d0 at000e = ╱30╱0╱ // 0x4c8 @0xe
0x04ba…04d0 at000f = ╱30╱0╱ // 0x4c9 @0xf
0x04ba…04d0 at0010 = ╱fe00409c0e╱ // 0x4ca @0x10
0x04ba…04d0 at0015 = EOL // 0x4cf @0x15
0x04ba…04d0 }
0x04d0…04d8 (16,) 922f 0360 WHEN B
0x04d0…04d8 LineComalBin {
0x04d0…04d8 ptr = 0x922f // 0x4d0 @0x0
0x04d0…04d8 lno = 0x0168 // 0x4d2 @0x2
0x04d0…04d8 at0004 = ╱a301╱ WHEN ╱ // 0x4d4 @0x4
0x04d0…04d8 at0006 = ╱42╱B╱ // 0x4d6 @0x6
0x04d0…04d8 at0007 = EOL // 0x4d7 @0x7
0x04d0…04d8 }
0x04d8…04e1 9238 0370 P=-E
0x04d8…04e1 LineComalBin {
0x04d8…04e1 ptr = 0x9238 // 0x4d8 @0x0
0x04d8…04e1 lno = 0x0172 // 0x4da @0x2
0x04d8…04e1 at0004 = ╱50╱P╱ // 0x4dc @0x4
0x04d8…04e1 at0005 = ╱dc╱=╱ // 0x4dd @0x5
0x04d8…04e1 at0006 = ╱e9╱-╱ // 0x4de @0x6
0x04d8…04e1 at0007 = ╱45╱E╱ // 0x4df @0x7
0x04d8…04e1 at0008 = EOL // 0x4e0 @0x8
0x04d8…04e1 }
0x04e1…04e9 9240 0380 WHEN E
0x04e1…04e9 LineComalBin {
0x04e1…04e9 ptr = 0x9240 // 0x4e1 @0x0
0x04e1…04e9 lno = 0x017c // 0x4e3 @0x2
0x04e1…04e9 at0004 = ╱a301╱ WHEN ╱ // 0x4e5 @0x4
0x04e1…04e9 at0006 = ╱45╱E╱ // 0x4e7 @0x6
0x04e1…04e9 at0007 = EOL // 0x4e8 @0x7
0x04e1…04e9 }
0x04e9…04f6 924d 0390 CASE NUM1$ OF
0x04e9…04f6 LineComalBin {
0x04e9…04f6 ptr = 0x924d // 0x4e9 @0x0
0x04e9…04f6 lno = 0x0186 // 0x4eb @0x2
0x04e9…04f6 at0004 = ╱a200╱ CASE ╱ // 0x4ed @0x4
0x04e9…04f6 at0006 = ╱4e╱N╱ // 0x4ef @0x6
0x04e9…04f6 at0007 = ╱55╱U╱ // 0x4f0 @0x7
0x04e9…04f6 at0008 = ╱4d╱M╱ // 0x4f1 @0x8
0x04e9…04f6 at0009 = ╱31╱1╱ // 0x4f2 @0x9
0x04e9…04f6 at000a = ╱ef╱$╱ // 0x4f3 @0xa
0x04e9…04f6 at000b = ╱ba╱ OF ╱ // 0x4f4 @0xb
0x04e9…04f6 at000c = EOL // 0x4f5 @0xc
0x04e9…04f6 }
0x04f6…0510 9267 0400 P=INT(ORD(NUM1$)-48)
0x04f6…0510 LineComalBin {
0x04f6…0510 ptr = 0x9267 // 0x4f6 @0x0
0x04f6…0510 lno = 0x0190 // 0x4f8 @0x2
0x04f6…0510 at0004 = ╱50╱P╱ // 0x4fa @0x4
0x04f6…0510 at0005 = ╱dc╱=╱ // 0x4fb @0x5
0x04f6…0510 at0006 = ╱c6╱INT╱ // 0x4fc @0x6
0x04f6…0510 at0007 = ╱ed╱(╱ // 0x4fd @0x7
0x04f6…0510 at0008 = ╱cd╱ORD╱ // 0x4fe @0x8
0x04f6…0510 at0009 = ╱ed╱(╱ // 0x4ff @0x9
0x04f6…0510 at000a = ╱4e╱N╱ // 0x500 @0xa
0x04f6…0510 at000b = ╱55╱U╱ // 0x501 @0xb
0x04f6…0510 at000c = ╱4d╱M╱ // 0x502 @0xc
0x04f6…0510 at000d = ╱31╱1╱ // 0x503 @0xd
0x04f6…0510 at000e = ╱ef╱$╱ // 0x504 @0xe
0x04f6…0510 at000f = ╱ee╱)╱ // 0x505 @0xf
0x04f6…0510 at0010 = ╱e3╱-╱ // 0x506 @0x10
0x04f6…0510 at0011 = ╱34╱4╱ // 0x507 @0x11
0x04f6…0510 at0012 = ╱38╱8╱ // 0x508 @0x12
0x04f6…0510 at0013 = ╱fe0000c006╱ // 0x509 @0x13
0x04f6…0510 at0018 = ╱ee╱)╱ // 0x50e @0x18
0x04f6…0510 at0019 = EOL // 0x50f @0x19
0x04f6…0510 }
0x0510…051e 9275 0410 WHEN "d","D"
0x0510…051e LineComalBin {
0x0510…051e ptr = 0x9275 // 0x510 @0x0
0x0510…051e lno = 0x019a // 0x512 @0x2
0x0510…051e at0004 = ╱a300╱ WHEN ╱ // 0x514 @0x4
0x0510…051e at0006 = ╱22╱"╱ // 0x516 @0x6
0x0510…051e at0007 = ╱64╱d╱ // 0x517 @0x7
0x0510…051e at0008 = ╱22╱"╱ // 0x518 @0x8
0x0510…051e at0009 = ╱ec╱,╱ // 0x519 @0x9
0x0510…051e at000a = ╱22╱"╱ // 0x51a @0xa
0x0510…051e at000b = ╱44╱D╱ // 0x51b @0xb
0x0510…051e at000c = ╱22╱"╱ // 0x51c @0xc
0x0510…051e at000d = EOL // 0x51d @0xd
0x0510…051e }
0x051e…0527 927e 0420 P=-G
0x051e…0527 LineComalBin {
0x051e…0527 ptr = 0x927e // 0x51e @0x0
0x051e…0527 lno = 0x01a4 // 0x520 @0x2
0x051e…0527 at0004 = ╱50╱P╱ // 0x522 @0x4
0x051e…0527 at0005 = ╱dc╱=╱ // 0x523 @0x5
0x051e…0527 at0006 = ╱e9╱-╱ // 0x524 @0x6
0x051e…0527 at0007 = ╱47╱G╱ // 0x525 @0x7
0x051e…0527 at0008 = EOL // 0x526 @0x8
0x051e…0527 }
0x0527…0535 928c 0430 WHEN "a","A"
0x0527…0535 LineComalBin {
0x0527…0535 ptr = 0x928c // 0x527 @0x0
0x0527…0535 lno = 0x01ae // 0x529 @0x2
0x0527…0535 at0004 = ╱a300╱ WHEN ╱ // 0x52b @0x4
0x0527…0535 at0006 = ╱22╱"╱ // 0x52d @0x6
0x0527…0535 at0007 = ╱61╱a╱ // 0x52e @0x7
0x0527…0535 at0008 = ╱22╱"╱ // 0x52f @0x8
0x0527…0535 at0009 = ╱ec╱,╱ // 0x530 @0x9
0x0527…0535 at000a = ╱22╱"╱ // 0x531 @0xa
0x0527…0535 at000b = ╱41╱A╱ // 0x532 @0xb
0x0527…0535 at000c = ╱22╱"╱ // 0x533 @0xc
0x0527…0535 at000d = EOL // 0x534 @0xd
0x0527…0535 }
0x0535…053e 9295 0440 P=-V
0x0535…053e LineComalBin {
0x0535…053e ptr = 0x9295 // 0x535 @0x0
0x0535…053e lno = 0x01b8 // 0x537 @0x2
0x0535…053e at0004 = ╱50╱P╱ // 0x539 @0x4
0x0535…053e at0005 = ╱dc╱=╱ // 0x53a @0x5
0x0535…053e at0006 = ╱e9╱-╱ // 0x53b @0x6
0x0535…053e at0007 = ╱56╱V╱ // 0x53c @0x7
0x0535…053e at0008 = EOL // 0x53d @0x8
0x0535…053e }
0x053e…054c 92a3 0450 WHEN "m","M"
0x053e…054c LineComalBin {
0x053e…054c ptr = 0x92a3 // 0x53e @0x0
0x053e…054c lno = 0x01c2 // 0x540 @0x2
0x053e…054c at0004 = ╱a300╱ WHEN ╱ // 0x542 @0x4
0x053e…054c at0006 = ╱22╱"╱ // 0x544 @0x6
0x053e…054c at0007 = ╱6d╱m╱ // 0x545 @0x7
0x053e…054c at0008 = ╱22╱"╱ // 0x546 @0x8
0x053e…054c at0009 = ╱ec╱,╱ // 0x547 @0x9
0x053e…054c at000a = ╱22╱"╱ // 0x548 @0xa
0x053e…054c at000b = ╱4d╱M╱ // 0x549 @0xb
0x053e…054c at000c = ╱22╱"╱ // 0x54a @0xc
0x053e…054c at000d = EOL // 0x54b @0xd
0x053e…054c }
0x054c…055a 92b1 0460 P=-4
0x054c…055a LineComalBin {
0x054c…055a ptr = 0x92b1 // 0x54c @0x0
0x054c…055a lno = 0x01cc // 0x54e @0x2
0x054c…055a at0004 = ╱50╱P╱ // 0x550 @0x4
0x054c…055a at0005 = ╱dc╱=╱ // 0x551 @0x5
0x054c…055a at0006 = ╱e9╱-╱ // 0x552 @0x6
0x054c…055a at0007 = ╱34╱4╱ // 0x553 @0x7
0x054c…055a at0008 = ╱fe00008003╱ // 0x554 @0x8
0x054c…055a at000d = EOL // 0x559 @0xd
0x054c…055a }
0x055a…0568 92bf 0470 WHEN "j","J"
0x055a…0568 LineComalBin {
0x055a…0568 ptr = 0x92bf // 0x55a @0x0
0x055a…0568 lno = 0x01d6 // 0x55c @0x2
0x055a…0568 at0004 = ╱a300╱ WHEN ╱ // 0x55e @0x4
0x055a…0568 at0006 = ╱22╱"╱ // 0x560 @0x6
0x055a…0568 at0007 = ╱6a╱j╱ // 0x561 @0x7
0x055a…0568 at0008 = ╱22╱"╱ // 0x562 @0x8
0x055a…0568 at0009 = ╱ec╱,╱ // 0x563 @0x9
0x055a…0568 at000a = ╱22╱"╱ // 0x564 @0xa
0x055a…0568 at000b = ╱4a╱J╱ // 0x565 @0xb
0x055a…0568 at000c = ╱22╱"╱ // 0x566 @0xc
0x055a…0568 at000d = EOL // 0x567 @0xd
0x055a…0568 }
0x0568…0576 92cd 0480 P=-7
0x0568…0576 LineComalBin {
0x0568…0576 ptr = 0x92cd // 0x568 @0x0
0x0568…0576 lno = 0x01e0 // 0x56a @0x2
0x0568…0576 at0004 = ╱50╱P╱ // 0x56c @0x4
0x0568…0576 at0005 = ╱dc╱=╱ // 0x56d @0x5
0x0568…0576 at0006 = ╱e9╱-╱ // 0x56e @0x6
0x0568…0576 at0007 = ╱37╱7╱ // 0x56f @0x7
0x0568…0576 at0008 = ╱fe0000e003╱ // 0x570 @0x8
0x0568…0576 at000d = EOL // 0x575 @0xd
0x0568…0576 }
0x0576…0584 92db 0490 WHEN "n","N"
0x0576…0584 LineComalBin {
0x0576…0584 ptr = 0x92db // 0x576 @0x0
0x0576…0584 lno = 0x01ea // 0x578 @0x2
0x0576…0584 at0004 = ╱a300╱ WHEN ╱ // 0x57a @0x4
0x0576…0584 at0006 = ╱22╱"╱ // 0x57c @0x6
0x0576…0584 at0007 = ╱6e╱n╱ // 0x57d @0x7
0x0576…0584 at0008 = ╱22╱"╱ // 0x57e @0x8
0x0576…0584 at0009 = ╱ec╱,╱ // 0x57f @0x9
0x0576…0584 at000a = ╱22╱"╱ // 0x580 @0xa
0x0576…0584 at000b = ╱4e╱N╱ // 0x581 @0xb
0x0576…0584 at000c = ╱22╱"╱ // 0x582 @0xc
0x0576…0584 at000d = EOL // 0x583 @0xd
0x0576…0584 }
0x0584…0592 92e9 0500 P=-8
0x0584…0592 LineComalBin {
0x0584…0592 ptr = 0x92e9 // 0x584 @0x0
0x0584…0592 lno = 0x01f4 // 0x586 @0x2
0x0584…0592 at0004 = ╱50╱P╱ // 0x588 @0x4
0x0584…0592 at0005 = ╱dc╱=╱ // 0x589 @0x5
0x0584…0592 at0006 = ╱e9╱-╱ // 0x58a @0x6
0x0584…0592 at0007 = ╱38╱8╱ // 0x58b @0x7
0x0584…0592 at0008 = ╱fe00008004╱ // 0x58c @0x8
0x0584…0592 at000d = EOL // 0x591 @0xd
0x0584…0592 }
0x0592…0598 92ef 0510 ENDCASE
0x0592…0598 LineComalBin {
0x0592…0598 ptr = 0x92ef // 0x592 @0x0
0x0592…0598 lno = 0x01fe // 0x594 @0x2
0x0592…0598 at0004 = ╱a4╱ ENDCASE ╱ // 0x596 @0x4
0x0592…0598 at0005 = EOL // 0x597 @0x5
0x0592…0598 }
0x0598…059e 92f5 0520 ENDCASE
0x0598…059e LineComalBin {
0x0598…059e ptr = 0x92f5 // 0x598 @0x0
0x0598…059e lno = 0x0208 // 0x59a @0x2
0x0598…059e at0004 = ╱a4╱ ENDCASE ╱ // 0x59c @0x4
0x0598…059e at0005 = EOL // 0x59d @0x5
0x0598…059e }
0x059e…05a4 92fb 0530 ENDPROC
0x059e…05a4 LineComalBin {
0x059e…05a4 ptr = 0x92fb // 0x59e @0x0
0x059e…05a4 lno = 0x0212 // 0x5a0 @0x2
0x059e…05a4 at0004 = ╱9f╱ ENDPROC ╱ // 0x5a2 @0x4
0x059e…05a4 at0005 = EOL // 0x5a3 @0x5
0x059e…05a4 }
0x05a4…05bb 9312 0540 PROC FEJL(NR1,NR2,NR3)
0x05a4…05bb LineComalBin {
0x05a4…05bb ptr = 0x9312 // 0x5a4 @0x0
0x05a4…05bb lno = 0x021c // 0x5a6 @0x2
0x05a4…05bb at0004 = ╱9e╱ PROC ╱ // 0x5a8 @0x4
0x05a4…05bb at0005 = ╱46╱F╱ // 0x5a9 @0x5
0x05a4…05bb at0006 = ╱45╱E╱ // 0x5aa @0x6
0x05a4…05bb at0007 = ╱4a╱J╱ // 0x5ab @0x7
0x05a4…05bb at0008 = ╱4c╱L╱ // 0x5ac @0x8
0x05a4…05bb at0009 = ╱ed╱(╱ // 0x5ad @0x9
0x05a4…05bb at000a = ╱4e╱N╱ // 0x5ae @0xa
0x05a4…05bb at000b = ╱52╱R╱ // 0x5af @0xb
0x05a4…05bb at000c = ╱31╱1╱ // 0x5b0 @0xc
0x05a4…05bb at000d = ╱ec╱,╱ // 0x5b1 @0xd
0x05a4…05bb at000e = ╱4e╱N╱ // 0x5b2 @0xe
0x05a4…05bb at000f = ╱52╱R╱ // 0x5b3 @0xf
0x05a4…05bb at0010 = ╱32╱2╱ // 0x5b4 @0x10
0x05a4…05bb at0011 = ╱ec╱,╱ // 0x5b5 @0x11
0x05a4…05bb at0012 = ╱4e╱N╱ // 0x5b6 @0x12
0x05a4…05bb at0013 = ╱52╱R╱ // 0x5b7 @0x13
0x05a4…05bb at0014 = ╱33╱3╱ // 0x5b8 @0x14
0x05a4…05bb at0015 = ╱ee╱)╱ // 0x5b9 @0x15
0x05a4…05bb at0016 = EOL // 0x5ba @0x16
0x05a4…05bb }
0x05bb…05cb 9322 0550 IF STATUS(NR3$)<>B THEN
0x05bb…05cb LineComalBin {
0x05bb…05cb ptr = 0x9322 // 0x5bb @0x0
0x05bb…05cb lno = 0x0226 // 0x5bd @0x2
0x05bb…05cb at0004 = ╱9c╱ IF ╱ // 0x5bf @0x4
0x05bb…05cb at0005 = ╱ce╱STATUS╱ // 0x5c0 @0x5
0x05bb…05cb at0006 = ╱ed╱(╱ // 0x5c1 @0x6
0x05bb…05cb at0007 = ╱4e╱N╱ // 0x5c2 @0x7
0x05bb…05cb at0008 = ╱52╱R╱ // 0x5c3 @0x8
0x05bb…05cb at0009 = ╱33╱3╱ // 0x5c4 @0x9
0x05bb…05cb at000a = ╱ef╱$╱ // 0x5c5 @0xa
0x05bb…05cb at000b = ╱ee╱)╱ // 0x5c6 @0xb
0x05bb…05cb at000c = ╱e1╱<>╱ // 0x5c7 @0xc
0x05bb…05cb at000d = ╱42╱B╱ // 0x5c8 @0xd
0x05bb…05cb at000e = ╱b6╱ THEN ╱ // 0x5c9 @0xe
0x05bb…05cb at000f = EOL // 0x5ca @0xf
0x05bb…05cb }
0x05cb…05e5 933c 0560 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x05cb…05e5 LineComalBin {
0x05cb…05e5 ptr = 0x933c // 0x5cb @0x0
0x05cb…05e5 lno = 0x0230 // 0x5cd @0x2
0x05cb…05e5 at0004 = ╱92╱ PRINT ╱ // 0x5cf @0x4
0x05cb…05e5 at0005 = ╱ce╱STATUS╱ // 0x5d0 @0x5
0x05cb…05e5 at0006 = ╱ed╱(╱ // 0x5d1 @0x6
0x05cb…05e5 at0007 = ╱4e╱N╱ // 0x5d2 @0x7
0x05cb…05e5 at0008 = ╱52╱R╱ // 0x5d3 @0x8
0x05cb…05e5 at0009 = ╱33╱3╱ // 0x5d4 @0x9
0x05cb…05e5 at000a = ╱ef╱$╱ // 0x5d5 @0xa
0x05cb…05e5 at000b = ╱ee╱)╱ // 0x5d6 @0xb
0x05cb…05e5 at000c = ╱ec╱,╱ // 0x5d7 @0xc
0x05cb…05e5 at000d = ╱4e╱N╱ // 0x5d8 @0xd
0x05cb…05e5 at000e = ╱52╱R╱ // 0x5d9 @0xe
0x05cb…05e5 at000f = ╱31╱1╱ // 0x5da @0xf
0x05cb…05e5 at0010 = ╱ec╱,╱ // 0x5db @0x10
0x05cb…05e5 at0011 = ╱4e╱N╱ // 0x5dc @0x11
0x05cb…05e5 at0012 = ╱52╱R╱ // 0x5dd @0x12
0x05cb…05e5 at0013 = ╱32╱2╱ // 0x5de @0x13
0x05cb…05e5 at0014 = ╱ec╱,╱ // 0x5df @0x14
0x05cb…05e5 at0015 = ╱4e╱N╱ // 0x5e0 @0x15
0x05cb…05e5 at0016 = ╱52╱R╱ // 0x5e1 @0x16
0x05cb…05e5 at0017 = ╱33╱3╱ // 0x5e2 @0x17
0x05cb…05e5 at0018 = ╱ef╱$╱ // 0x5e3 @0x18
0x05cb…05e5 at0019 = EOL // 0x5e4 @0x19
0x05cb…05e5 }
0x05e5…05eb 9342 0570 STOP
0x05e5…05eb LineComalBin {
0x05e5…05eb ptr = 0x9342 // 0x5e5 @0x0
0x05e5…05eb lno = 0x023a // 0x5e7 @0x2
0x05e5…05eb at0004 = ╱8d╱ STOP ╱ // 0x5e9 @0x4
0x05e5…05eb at0005 = EOL // 0x5ea @0x5
0x05e5…05eb }
0x05eb…05f1 9348 0580 ENDIF
0x05eb…05f1 LineComalBin {
0x05eb…05f1 ptr = 0x9348 // 0x5eb @0x0
0x05eb…05f1 lno = 0x0244 // 0x5ed @0x2
0x05eb…05f1 at0004 = ╱9b╱ ENDIF ╱ // 0x5ef @0x4
0x05eb…05f1 at0005 = EOL // 0x5f0 @0x5
0x05eb…05f1 }
0x05f1…05f7 934e 0590 ENDPROC
0x05f1…05f7 LineComalBin {
0x05f1…05f7 ptr = 0x934e // 0x5f1 @0x0
0x05f1…05f7 lno = 0x024e // 0x5f3 @0x2
0x05f1…05f7 at0004 = ╱9f╱ ENDPROC ╱ // 0x5f5 @0x4
0x05f1…05f7 at0005 = EOL // 0x5f6 @0x5
0x05f1…05f7 }
0x05f7…0606 935d 0600 PROC HENTVPOST
0x05f7…0606 LineComalBin {
0x05f7…0606 ptr = 0x935d // 0x5f7 @0x0
0x05f7…0606 lno = 0x0258 // 0x5f9 @0x2
0x05f7…0606 at0004 = ╱9e╱ PROC ╱ // 0x5fb @0x4
0x05f7…0606 at0005 = ╱48╱H╱ // 0x5fc @0x5
0x05f7…0606 at0006 = ╱45╱E╱ // 0x5fd @0x6
0x05f7…0606 at0007 = ╱4e╱N╱ // 0x5fe @0x7
0x05f7…0606 at0008 = ╱54╱T╱ // 0x5ff @0x8
0x05f7…0606 at0009 = ╱56╱V╱ // 0x600 @0x9
0x05f7…0606 at000a = ╱50╱P╱ // 0x601 @0xa
0x05f7…0606 at000b = ╱4f╱O╱ // 0x602 @0xb
0x05f7…0606 at000c = ╱53╱S╱ // 0x603 @0xc
0x05f7…0606 at000d = ╱54╱T╱ // 0x604 @0xd
0x05f7…0606 at000e = EOL // 0x605 @0xe
0x05f7…0606 }
0x0606…061a 9371 0610 S=VTAB(VPIL3,G)
0x0606…061a LineComalBin {
0x0606…061a ptr = 0x9371 // 0x606 @0x0
0x0606…061a lno = 0x0262 // 0x608 @0x2
0x0606…061a at0004 = ╱53╱S╱ // 0x60a @0x4
0x0606…061a at0005 = ╱dc╱=╱ // 0x60b @0x5
0x0606…061a at0006 = ╱56╱V╱ // 0x60c @0x6
0x0606…061a at0007 = ╱54╱T╱ // 0x60d @0x7
0x0606…061a at0008 = ╱41╱A╱ // 0x60e @0x8
0x0606…061a at0009 = ╱42╱B╱ // 0x60f @0x9
0x0606…061a at000a = ╱ed╱(╱ // 0x610 @0xa
0x0606…061a at000b = ╱56╱V╱ // 0x611 @0xb
0x0606…061a at000c = ╱50╱P╱ // 0x612 @0xc
0x0606…061a at000d = ╱49╱I╱ // 0x613 @0xd
0x0606…061a at000e = ╱4c╱L╱ // 0x614 @0xe
0x0606…061a at000f = ╱33╱3╱ // 0x615 @0xf
0x0606…061a at0010 = ╱ec╱,╱ // 0x616 @0x10
0x0606…061a at0011 = ╱47╱G╱ // 0x617 @0x11
0x0606…061a at0012 = ╱ee╱)╱ // 0x618 @0x12
0x0606…061a at0013 = EOL // 0x619 @0x13
0x0606…061a }
0x061a…064f 93a6 0620 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT
0x061a…064f LineComalBin {
0x061a…064f ptr = 0x93a6 // 0x61a @0x0
0x061a…064f lno = 0x026c // 0x61c @0x2
0x061a…064f at0004 = ╱a9╱ GET ╱ // 0x61e @0x4
0x061a…064f at0005 = ╱4b╱K╱ // 0x61f @0x5
0x061a…064f at0006 = ╱35╱5╱ // 0x620 @0x6
0x061a…064f at0007 = ╱ef╱$╱ // 0x621 @0x7
0x061a…064f at0008 = ╱ec╱,╱ // 0x622 @0x8
0x061a…064f at0009 = ╱53╱S╱ // 0x623 @0x9
0x061a…064f at000a = ╱f0╱:╱ // 0x624 @0xa
0x061a…064f at000b = ╱56╱V╱ // 0x625 @0xb
0x061a…064f at000c = ╱41╱A╱ // 0x626 @0xc
0x061a…064f at000d = ╱52╱R╱ // 0x627 @0xd
0x061a…064f at000e = ╱45╱E╱ // 0x628 @0xe
0x061a…064f at000f = ╱4e╱N╱ // 0x629 @0xf
0x061a…064f at0010 = ╱52╱R╱ // 0x62a @0x10
0x061a…064f at0011 = ╱ec╱,╱ // 0x62b @0x11
0x061a…064f at0012 = ╱56╱V╱ // 0x62c @0x12
0x061a…064f at0013 = ╱41╱A╱ // 0x62d @0x13
0x061a…064f at0014 = ╱52╱R╱ // 0x62e @0x14
0x061a…064f at0015 = ╱54╱T╱ // 0x62f @0x15
0x061a…064f at0016 = ╱45╱E╱ // 0x630 @0x16
0x061a…064f at0017 = ╱4b╱K╱ // 0x631 @0x17
0x061a…064f at0018 = ╱53╱S╱ // 0x632 @0x18
0x061a…064f at0019 = ╱54╱T╱ // 0x633 @0x19
0x061a…064f at001a = ╱ef╱$╱ // 0x634 @0x1a
0x061a…064f at001b = ╱ec╱,╱ // 0x635 @0x1b
0x061a…064f at001c = ╱56╱V╱ // 0x636 @0x1c
0x061a…064f at001d = ╱41╱A╱ // 0x637 @0x1d
0x061a…064f at001e = ╱52╱R╱ // 0x638 @0x1e
0x061a…064f at001f = ╱50╱P╱ // 0x639 @0x1f
0x061a…064f at0020 = ╱52╱R╱ // 0x63a @0x20
0x061a…064f at0021 = ╱49╱I╱ // 0x63b @0x21
0x061a…064f at0022 = ╱53╱S╱ // 0x63c @0x22
0x061a…064f at0023 = ╱ef╱$╱ // 0x63d @0x23
0x061a…064f at0024 = ╱ec╱,╱ // 0x63e @0x24
0x061a…064f at0025 = ╱56╱V╱ // 0x63f @0x25
0x061a…064f at0026 = ╱41╱A╱ // 0x640 @0x26
0x061a…064f at0027 = ╱52╱R╱ // 0x641 @0x27
0x061a…064f at0028 = ╱4b╱K╱ // 0x642 @0x28
0x061a…064f at0029 = ╱4f╱O╱ // 0x643 @0x29
0x061a…064f at002a = ╱4e╱N╱ // 0x644 @0x2a
0x061a…064f at002b = ╱54╱T╱ // 0x645 @0x2b
0x061a…064f at002c = ╱ec╱,╱ // 0x646 @0x2c
0x061a…064f at002d = ╱55╱U╱ // 0x647 @0x2d
0x061a…064f at002e = ╱4e╱N╱ // 0x648 @0x2e
0x061a…064f at002f = ╱44╱D╱ // 0x649 @0x2f
0x061a…064f at0030 = ╱4b╱K╱ // 0x64a @0x30
0x061a…064f at0031 = ╱4f╱O╱ // 0x64b @0x31
0x061a…064f at0032 = ╱4e╱N╱ // 0x64c @0x32
0x061a…064f at0033 = ╱54╱T╱ // 0x64d @0x33
0x061a…064f at0034 = EOL // 0x64e @0x34
0x061a…064f }
0x064f…0662 93b9 0630 EXEC FEJL(G,E,K5$)
0x064f…0662 LineComalBin {
0x064f…0662 ptr = 0x93b9 // 0x64f @0x0
0x064f…0662 lno = 0x0276 // 0x651 @0x2
0x064f…0662 at0004 = ╱9d╱ EXEC ╱ // 0x653 @0x4
0x064f…0662 at0005 = ╱46╱F╱ // 0x654 @0x5
0x064f…0662 at0006 = ╱45╱E╱ // 0x655 @0x6
0x064f…0662 at0007 = ╱4a╱J╱ // 0x656 @0x7
0x064f…0662 at0008 = ╱4c╱L╱ // 0x657 @0x8
0x064f…0662 at0009 = ╱ed╱(╱ // 0x658 @0x9
0x064f…0662 at000a = ╱47╱G╱ // 0x659 @0xa
0x064f…0662 at000b = ╱ec╱,╱ // 0x65a @0xb
0x064f…0662 at000c = ╱45╱E╱ // 0x65b @0xc
0x064f…0662 at000d = ╱ec╱,╱ // 0x65c @0xd
0x064f…0662 at000e = ╱4b╱K╱ // 0x65d @0xe
0x064f…0662 at000f = ╱35╱5╱ // 0x65e @0xf
0x064f…0662 at0010 = ╱ef╱$╱ // 0x65f @0x10
0x064f…0662 at0011 = ╱ee╱)╱ // 0x660 @0x11
0x064f…0662 at0012 = EOL // 0x661 @0x12
0x064f…0662 }
0x0662…0668 93bf 0640 ENDPROC
0x0662…0668 LineComalBin {
0x0662…0668 ptr = 0x93bf // 0x662 @0x0
0x0662…0668 lno = 0x0280 // 0x664 @0x2
0x0662…0668 at0004 = ╱9f╱ ENDPROC ╱ // 0x666 @0x4
0x0662…0668 at0005 = EOL // 0x667 @0x5
0x0662…0668 }
0x0668…0680 93d7 0650 PROC CALC(AR3,B1,B2,ES)
0x0668…0680 LineComalBin {
0x0668…0680 ptr = 0x93d7 // 0x668 @0x0
0x0668…0680 lno = 0x028a // 0x66a @0x2
0x0668…0680 at0004 = ╱9e╱ PROC ╱ // 0x66c @0x4
0x0668…0680 at0005 = ╱43╱C╱ // 0x66d @0x5
0x0668…0680 at0006 = ╱41╱A╱ // 0x66e @0x6
0x0668…0680 at0007 = ╱4c╱L╱ // 0x66f @0x7
0x0668…0680 at0008 = ╱43╱C╱ // 0x670 @0x8
0x0668…0680 at0009 = ╱ed╱(╱ // 0x671 @0x9
0x0668…0680 at000a = ╱41╱A╱ // 0x672 @0xa
0x0668…0680 at000b = ╱52╱R╱ // 0x673 @0xb
0x0668…0680 at000c = ╱33╱3╱ // 0x674 @0xc
0x0668…0680 at000d = ╱ec╱,╱ // 0x675 @0xd
0x0668…0680 at000e = ╱42╱B╱ // 0x676 @0xe
0x0668…0680 at000f = ╱31╱1╱ // 0x677 @0xf
0x0668…0680 at0010 = ╱ec╱,╱ // 0x678 @0x10
0x0668…0680 at0011 = ╱42╱B╱ // 0x679 @0x11
0x0668…0680 at0012 = ╱32╱2╱ // 0x67a @0x12
0x0668…0680 at0013 = ╱ec╱,╱ // 0x67b @0x13
0x0668…0680 at0014 = ╱45╱E╱ // 0x67c @0x14
0x0668…0680 at0015 = ╱53╱S╱ // 0x67d @0x15
0x0668…0680 at0016 = ╱ee╱)╱ // 0x67e @0x16
0x0668…0680 at0017 = EOL // 0x67f @0x17
0x0668…0680 }
0x0680…06c7 941e 0660 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0680…06c7 LineComalBin {
0x0680…06c7 ptr = 0x941e // 0x680 @0x0
0x0680…06c7 lno = 0x0294 // 0x682 @0x2
0x0680…06c7 at0004 = ╱4f╱O╱ // 0x684 @0x4
0x0680…06c7 at0005 = ╱50╱P╱ // 0x685 @0x5
0x0680…06c7 at0006 = ╱31╱1╱ // 0x686 @0x6
0x0680…06c7 at0007 = ╱ef╱$╱ // 0x687 @0x7
0x0680…06c7 at0008 = ╱dc╱=╱ // 0x688 @0x8
0x0680…06c7 at0009 = ╱42╱B╱ // 0x689 @0x9
0x0680…06c7 at000a = ╱31╱1╱ // 0x68a @0xa
0x0680…06c7 at000b = ╱ef╱$╱ // 0x68b @0xb
0x0680…06c7 at000c = ╱eb╱;╱ // 0x68c @0xc
0x0680…06c7 at000d = ╱4f╱O╱ // 0x68d @0xd
0x0680…06c7 at000e = ╱50╱P╱ // 0x68e @0xe
0x0680…06c7 at000f = ╱32╱2╱ // 0x68f @0xf
0x0680…06c7 at0010 = ╱ef╱$╱ // 0x690 @0x10
0x0680…06c7 at0011 = ╱dc╱=╱ // 0x691 @0x11
0x0680…06c7 at0012 = ╱42╱B╱ // 0x692 @0x12
0x0680…06c7 at0013 = ╱32╱2╱ // 0x693 @0x13
0x0680…06c7 at0014 = ╱ef╱$╱ // 0x694 @0x14
0x0680…06c7 at0015 = ╱eb╱;╱ // 0x695 @0x15
0x0680…06c7 at0016 = ╱52╱R╱ // 0x696 @0x16
0x0680…06c7 at0017 = ╱45╱E╱ // 0x697 @0x17
0x0680…06c7 at0018 = ╱53╱S╱ // 0x698 @0x18
0x0680…06c7 at0019 = ╱ef╱$╱ // 0x699 @0x19
0x0680…06c7 at001a = ╱dc╱=╱ // 0x69a @0x1a
0x0680…06c7 at001b = ╱45╱E╱ // 0x69b @0x1b
0x0680…06c7 at001c = ╱53╱S╱ // 0x69c @0x1c
0x0680…06c7 at001d = ╱ef╱$╱ // 0x69d @0x1d
0x0680…06c7 at001e = ╱eb╱;╱ // 0x69e @0x1e
0x0680…06c7 at001f = ╱53╱S╱ // 0x69f @0x1f
0x0680…06c7 at0020 = ╱49╱I╱ // 0x6a0 @0x20
0x0680…06c7 at0021 = ╱dc╱=╱ // 0x6a1 @0x21
0x0680…06c7 at0022 = ╱42╱B╱ // 0x6a2 @0x22
0x0680…06c7 at0023 = ╱eb╱;╱ // 0x6a3 @0x23
0x0680…06c7 at0024 = ╱46╱F╱ // 0x6a4 @0x24
0x0680…06c7 at0025 = ╱4c╱L╱ // 0x6a5 @0x25
0x0680…06c7 at0026 = ╱41╱A╱ // 0x6a6 @0x26
0x0680…06c7 at0027 = ╱47╱G╱ // 0x6a7 @0x27
0x0680…06c7 at0028 = ╱dc╱=╱ // 0x6a8 @0x28
0x0680…06c7 at0029 = ╱42╱B╱ // 0x6a9 @0x29
0x0680…06c7 at002a = ╱eb╱;╱ // 0x6aa @0x2a
0x0680…06c7 at002b = ╱41╱A╱ // 0x6ab @0x2b
0x0680…06c7 at002c = ╱52╱R╱ // 0x6ac @0x2c
0x0680…06c7 at002d = ╱54╱T╱ // 0x6ad @0x2d
0x0680…06c7 at002e = ╱dc╱=╱ // 0x6ae @0x2e
0x0680…06c7 at002f = ╱41╱A╱ // 0x6af @0x2f
0x0680…06c7 at0030 = ╱52╱R╱ // 0x6b0 @0x30
0x0680…06c7 at0031 = ╱33╱3╱ // 0x6b1 @0x31
0x0680…06c7 at0032 = ╱e3╱-╱ // 0x6b2 @0x32
0x0680…06c7 at0033 = ╱36╱6╱ // 0x6b3 @0x33
0x0680…06c7 at0034 = ╱fe0000c003╱ // 0x6b4 @0x34
0x0680…06c7 at0039 = ╱e4╱*╱ // 0x6b9 @0x39
0x0680…06c7 at003a = ╱ed╱(╱ // 0x6ba @0x3a
0x0680…06c7 at003b = ╱41╱A╱ // 0x6bb @0x3b
0x0680…06c7 at003c = ╱52╱R╱ // 0x6bc @0x3c
0x0680…06c7 at003d = ╱33╱3╱ // 0x6bd @0x3d
0x0680…06c7 at003e = ╱de╱>╱ // 0x6be @0x3e
0x0680…06c7 at003f = ╱35╱5╱ // 0x6bf @0x3f
0x0680…06c7 at0040 = ╱fe0000a003╱ // 0x6c0 @0x40
0x0680…06c7 at0045 = ╱ee╱)╱ // 0x6c5 @0x45
0x0680…06c7 at0046 = EOL // 0x6c6 @0x46
0x0680…06c7 }
0x06c7…06dd 9434 0670 CALL "P641210:REGN"
0x06c7…06dd LineComalBin {
0x06c7…06dd ptr = 0x9434 // 0x6c7 @0x0
0x06c7…06dd lno = 0x029e // 0x6c9 @0x2
0x06c7…06dd at0004 = ╱ad948a╱ CALL ╱ // 0x6cb @0x4
0x06c7…06dd at0007 = ╱22╱"╱ // 0x6ce @0x7
0x06c7…06dd at0008 = ╱50╱P╱ // 0x6cf @0x8
0x06c7…06dd at0009 = ╱36╱6╱ // 0x6d0 @0x9
0x06c7…06dd at000a = ╱34╱4╱ // 0x6d1 @0xa
0x06c7…06dd at000b = ╱31╱1╱ // 0x6d2 @0xb
0x06c7…06dd at000c = ╱32╱2╱ // 0x6d3 @0xc
0x06c7…06dd at000d = ╱31╱1╱ // 0x6d4 @0xd
0x06c7…06dd at000e = ╱30╱0╱ // 0x6d5 @0xe
0x06c7…06dd at000f = ╱3a╱:╱ // 0x6d6 @0xf
0x06c7…06dd at0010 = ╱52╱R╱ // 0x6d7 @0x10
0x06c7…06dd at0011 = ╱45╱E╱ // 0x6d8 @0x11
0x06c7…06dd at0012 = ╱47╱G╱ // 0x6d9 @0x12
0x06c7…06dd at0013 = ╱4e╱N╱ // 0x6da @0x13
0x06c7…06dd at0014 = ╱22╱"╱ // 0x6db @0x14
0x06c7…06dd at0015 = EOL // 0x6dc @0x15
0x06c7…06dd }
0x06dd…06ea 9441 0680 ES$=RES$
0x06dd…06ea LineComalBin {
0x06dd…06ea ptr = 0x9441 // 0x6dd @0x0
0x06dd…06ea lno = 0x02a8 // 0x6df @0x2
0x06dd…06ea at0004 = ╱45╱E╱ // 0x6e1 @0x4
0x06dd…06ea at0005 = ╱53╱S╱ // 0x6e2 @0x5
0x06dd…06ea at0006 = ╱ef╱$╱ // 0x6e3 @0x6
0x06dd…06ea at0007 = ╱dc╱=╱ // 0x6e4 @0x7
0x06dd…06ea at0008 = ╱52╱R╱ // 0x6e5 @0x8
0x06dd…06ea at0009 = ╱45╱E╱ // 0x6e6 @0x9
0x06dd…06ea at000a = ╱53╱S╱ // 0x6e7 @0xa
0x06dd…06ea at000b = ╱ef╱$╱ // 0x6e8 @0xb
0x06dd…06ea at000c = EOL // 0x6e9 @0xc
0x06dd…06ea }
0x06ea…06fb 9452 0690 IF AR3<6 THEN
0x06ea…06fb LineComalBin {
0x06ea…06fb ptr = 0x9452 // 0x6ea @0x0
0x06ea…06fb lno = 0x02b2 // 0x6ec @0x2
0x06ea…06fb at0004 = ╱9c╱ IF ╱ // 0x6ee @0x4
0x06ea…06fb at0005 = ╱41╱A╱ // 0x6ef @0x5
0x06ea…06fb at0006 = ╱52╱R╱ // 0x6f0 @0x6
0x06ea…06fb at0007 = ╱33╱3╱ // 0x6f1 @0x7
0x06ea…06fb at0008 = ╱dd╱<╱ // 0x6f2 @0x8
0x06ea…06fb at0009 = ╱36╱6╱ // 0x6f3 @0x9
0x06ea…06fb at000a = ╱fe0000c003╱ // 0x6f4 @0xa
0x06ea…06fb at000f = ╱b6╱ THEN ╱ // 0x6f9 @0xf
0x06ea…06fb at0010 = EOL // 0x6fa @0x10
0x06ea…06fb }
0x06fb…0707 945e 0700 IF FLAG THEN STOP
0x06fb…0707 LineComalBin {
0x06fb…0707 ptr = 0x945e // 0x6fb @0x0
0x06fb…0707 lno = 0x02bc // 0x6fd @0x2
0x06fb…0707 at0004 = ╱82╱ IF ╱ // 0x6ff @0x4
0x06fb…0707 at0005 = ╱46╱F╱ // 0x700 @0x5
0x06fb…0707 at0006 = ╱4c╱L╱ // 0x701 @0x6
0x06fb…0707 at0007 = ╱41╱A╱ // 0x702 @0x7
0x06fb…0707 at0008 = ╱47╱G╱ // 0x703 @0x8
0x06fb…0707 at0009 = ╱b6╱ THEN ╱ // 0x704 @0x9
0x06fb…0707 at000a = ╱8d╱ STOP ╱ // 0x705 @0xa
0x06fb…0707 at000b = EOL // 0x706 @0xb
0x06fb…0707 }
0x0707…070d 9464 0710 ENDIF
0x0707…070d LineComalBin {
0x0707…070d ptr = 0x9464 // 0x707 @0x0
0x0707…070d lno = 0x02c6 // 0x709 @0x2
0x0707…070d at0004 = ╱9b╱ ENDIF ╱ // 0x70b @0x4
0x0707…070d at0005 = EOL // 0x70c @0x5
0x0707…070d }
0x070d…0713 946a 0720 ENDPROC
0x070d…0713 LineComalBin {
0x070d…0713 ptr = 0x946a // 0x70d @0x0
0x070d…0713 lno = 0x02d0 // 0x70f @0x2
0x070d…0713 at0004 = ╱9f╱ ENDPROC ╱ // 0x711 @0x4
0x070d…0713 at0005 = EOL // 0x712 @0x5
0x070d…0713 }
0x0713…0722 9479 0730 PROC HENTDPOST
0x0713…0722 LineComalBin {
0x0713…0722 ptr = 0x9479 // 0x713 @0x0
0x0713…0722 lno = 0x02da // 0x715 @0x2
0x0713…0722 at0004 = ╱9e╱ PROC ╱ // 0x717 @0x4
0x0713…0722 at0005 = ╱48╱H╱ // 0x718 @0x5
0x0713…0722 at0006 = ╱45╱E╱ // 0x719 @0x6
0x0713…0722 at0007 = ╱4e╱N╱ // 0x71a @0x7
0x0713…0722 at0008 = ╱54╱T╱ // 0x71b @0x8
0x0713…0722 at0009 = ╱44╱D╱ // 0x71c @0x9
0x0713…0722 at000a = ╱50╱P╱ // 0x71d @0xa
0x0713…0722 at000b = ╱4f╱O╱ // 0x71e @0xb
0x0713…0722 at000c = ╱53╱S╱ // 0x71f @0xc
0x0713…0722 at000d = ╱54╱T╱ // 0x720 @0xd
0x0713…0722 at000e = EOL // 0x721 @0xe
0x0713…0722 }
0x0722…0736 948d 0740 S=DTAB(DPIL3,G)
0x0722…0736 LineComalBin {
0x0722…0736 ptr = 0x948d // 0x722 @0x0
0x0722…0736 lno = 0x02e4 // 0x724 @0x2
0x0722…0736 at0004 = ╱53╱S╱ // 0x726 @0x4
0x0722…0736 at0005 = ╱dc╱=╱ // 0x727 @0x5
0x0722…0736 at0006 = ╱44╱D╱ // 0x728 @0x6
0x0722…0736 at0007 = ╱54╱T╱ // 0x729 @0x7
0x0722…0736 at0008 = ╱41╱A╱ // 0x72a @0x8
0x0722…0736 at0009 = ╱42╱B╱ // 0x72b @0x9
0x0722…0736 at000a = ╱ed╱(╱ // 0x72c @0xa
0x0722…0736 at000b = ╱44╱D╱ // 0x72d @0xb
0x0722…0736 at000c = ╱50╱P╱ // 0x72e @0xc
0x0722…0736 at000d = ╱49╱I╱ // 0x72f @0xd
0x0722…0736 at000e = ╱4c╱L╱ // 0x730 @0xe
0x0722…0736 at000f = ╱33╱3╱ // 0x731 @0xf
0x0722…0736 at0010 = ╱ec╱,╱ // 0x732 @0x10
0x0722…0736 at0011 = ╱47╱G╱ // 0x733 @0x11
0x0722…0736 at0012 = ╱ee╱)╱ // 0x734 @0x12
0x0722…0736 at0013 = EOL // 0x735 @0x13
0x0722…0736 }
0x0736…0761 94b8 0750 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0736…0761 LineComalBin {
0x0736…0761 ptr = 0x94b8 // 0x736 @0x0
0x0736…0761 lno = 0x02ee // 0x738 @0x2
0x0736…0761 at0004 = ╱a9╱ GET ╱ // 0x73a @0x4
0x0736…0761 at0005 = ╱4b╱K╱ // 0x73b @0x5
0x0736…0761 at0006 = ╱34╱4╱ // 0x73c @0x6
0x0736…0761 at0007 = ╱ef╱$╱ // 0x73d @0x7
0x0736…0761 at0008 = ╱ec╱,╱ // 0x73e @0x8
0x0736…0761 at0009 = ╱53╱S╱ // 0x73f @0x9
0x0736…0761 at000a = ╱f0╱:╱ // 0x740 @0xa
0x0736…0761 at000b = ╱44╱D╱ // 0x741 @0xb
0x0736…0761 at000c = ╱45╱E╱ // 0x742 @0xc
0x0736…0761 at000d = ╱42╱B╱ // 0x743 @0xd
0x0736…0761 at000e = ╱4e╱N╱ // 0x744 @0xe
0x0736…0761 at000f = ╱52╱R╱ // 0x745 @0xf
0x0736…0761 at0010 = ╱ec╱,╱ // 0x746 @0x10
0x0736…0761 at0011 = ╱44╱D╱ // 0x747 @0x11
0x0736…0761 at0012 = ╱45╱E╱ // 0x748 @0x12
0x0736…0761 at0013 = ╱42╱B╱ // 0x749 @0x13
0x0736…0761 at0014 = ╱4e╱N╱ // 0x74a @0x14
0x0736…0761 at0015 = ╱41╱A╱ // 0x74b @0x15
0x0736…0761 at0016 = ╱56╱V╱ // 0x74c @0x16
0x0736…0761 at0017 = ╱4e╱N╱ // 0x74d @0x17
0x0736…0761 at0018 = ╱ef╱$╱ // 0x74e @0x18
0x0736…0761 at0019 = ╱ec╱,╱ // 0x74f @0x19
0x0736…0761 at001a = ╱44╱D╱ // 0x750 @0x1a
0x0736…0761 at001b = ╱53╱S╱ // 0x751 @0x1b
0x0736…0761 at001c = ╱41╱A╱ // 0x752 @0x1c
0x0736…0761 at001d = ╱4c╱L╱ // 0x753 @0x1d
0x0736…0761 at001e = ╱44╱D╱ // 0x754 @0x1e
0x0736…0761 at001f = ╱4f╱O╱ // 0x755 @0x1f
0x0736…0761 at0020 = ╱31╱1╱ // 0x756 @0x20
0x0736…0761 at0021 = ╱ef╱$╱ // 0x757 @0x21
0x0736…0761 at0022 = ╱ec╱,╱ // 0x758 @0x22
0x0736…0761 at0023 = ╱44╱D╱ // 0x759 @0x23
0x0736…0761 at0024 = ╱45╱E╱ // 0x75a @0x24
0x0736…0761 at0025 = ╱42╱B╱ // 0x75b @0x25
0x0736…0761 at0026 = ╱4b╱K╱ // 0x75c @0x26
0x0736…0761 at0027 = ╱47╱G╱ // 0x75d @0x27
0x0736…0761 at0028 = ╱52╱R╱ // 0x75e @0x28
0x0736…0761 at0029 = ╱ef╱$╱ // 0x75f @0x29
0x0736…0761 at002a = EOL // 0x760 @0x2a
0x0736…0761 }
0x0761…0774 94cb 0760 EXEC FEJL(V,E,K4$)
0x0761…0774 LineComalBin {
0x0761…0774 ptr = 0x94cb // 0x761 @0x0
0x0761…0774 lno = 0x02f8 // 0x763 @0x2
0x0761…0774 at0004 = ╱9d╱ EXEC ╱ // 0x765 @0x4
0x0761…0774 at0005 = ╱46╱F╱ // 0x766 @0x5
0x0761…0774 at0006 = ╱45╱E╱ // 0x767 @0x6
0x0761…0774 at0007 = ╱4a╱J╱ // 0x768 @0x7
0x0761…0774 at0008 = ╱4c╱L╱ // 0x769 @0x8
0x0761…0774 at0009 = ╱ed╱(╱ // 0x76a @0x9
0x0761…0774 at000a = ╱56╱V╱ // 0x76b @0xa
0x0761…0774 at000b = ╱ec╱,╱ // 0x76c @0xb
0x0761…0774 at000c = ╱45╱E╱ // 0x76d @0xc
0x0761…0774 at000d = ╱ec╱,╱ // 0x76e @0xd
0x0761…0774 at000e = ╱4b╱K╱ // 0x76f @0xe
0x0761…0774 at000f = ╱34╱4╱ // 0x770 @0xf
0x0761…0774 at0010 = ╱ef╱$╱ // 0x771 @0x10
0x0761…0774 at0011 = ╱ee╱)╱ // 0x772 @0x11
0x0761…0774 at0012 = EOL // 0x773 @0x12
0x0761…0774 }
0x0774…07ab 9502 0770 GET K4$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$
0x0774…07ab LineComalBin {
0x0774…07ab ptr = 0x9502 // 0x774 @0x0
0x0774…07ab lno = 0x0302 // 0x776 @0x2
0x0774…07ab at0004 = ╱a9╱ GET ╱ // 0x778 @0x4
0x0774…07ab at0005 = ╱4b╱K╱ // 0x779 @0x5
0x0774…07ab at0006 = ╱34╱4╱ // 0x77a @0x6
0x0774…07ab at0007 = ╱ef╱$╱ // 0x77b @0x7
0x0774…07ab at0008 = ╱ec╱,╱ // 0x77c @0x8
0x0774…07ab at0009 = ╱53╱S╱ // 0x77d @0x9
0x0774…07ab at000a = ╱e2╱+╱ // 0x77e @0xa
0x0774…07ab at000b = ╱45╱E╱ // 0x77f @0xb
0x0774…07ab at000c = ╱f0╱:╱ // 0x780 @0xc
0x0774…07ab at000d = ╱44╱D╱ // 0x781 @0xd
0x0774…07ab at000e = ╱53╱S╱ // 0x782 @0xe
0x0774…07ab at000f = ╱41╱A╱ // 0x783 @0xf
0x0774…07ab at0010 = ╱4c╱L╱ // 0x784 @0x10
0x0774…07ab at0011 = ╱44╱D╱ // 0x785 @0x11
0x0774…07ab at0012 = ╱4f╱O╱ // 0x786 @0x12
0x0774…07ab at0013 = ╱32╱2╱ // 0x787 @0x13
0x0774…07ab at0014 = ╱ef╱$╱ // 0x788 @0x14
0x0774…07ab at0015 = ╱ec╱,╱ // 0x789 @0x15
0x0774…07ab at0016 = ╱44╱D╱ // 0x78a @0x16
0x0774…07ab at0017 = ╱53╱S╱ // 0x78b @0x17
0x0774…07ab at0018 = ╱41╱A╱ // 0x78c @0x18
0x0774…07ab at0019 = ╱4c╱L╱ // 0x78d @0x19
0x0774…07ab at001a = ╱44╱D╱ // 0x78e @0x1a
0x0774…07ab at001b = ╱4f╱O╱ // 0x78f @0x1b
0x0774…07ab at001c = ╱33╱3╱ // 0x790 @0x1c
0x0774…07ab at001d = ╱ef╱$╱ // 0x791 @0x1d
0x0774…07ab at001e = ╱ec╱,╱ // 0x792 @0x1e
0x0774…07ab at001f = ╱44╱D╱ // 0x793 @0x1f
0x0774…07ab at0020 = ╱53╱S╱ // 0x794 @0x20
0x0774…07ab at0021 = ╱41╱A╱ // 0x795 @0x21
0x0774…07ab at0022 = ╱4c╱L╱ // 0x796 @0x22
0x0774…07ab at0023 = ╱44╱D╱ // 0x797 @0x23
0x0774…07ab at0024 = ╱4f╱O╱ // 0x798 @0x24
0x0774…07ab at0025 = ╱34╱4╱ // 0x799 @0x25
0x0774…07ab at0026 = ╱ef╱$╱ // 0x79a @0x26
0x0774…07ab at0027 = ╱ec╱,╱ // 0x79b @0x27
0x0774…07ab at0028 = ╱44╱D╱ // 0x79c @0x28
0x0774…07ab at0029 = ╱50╱P╱ // 0x79d @0x29
0x0774…07ab at002a = ╱4f╱O╱ // 0x79e @0x2a
0x0774…07ab at002b = ╱53╱S╱ // 0x79f @0x2b
0x0774…07ab at002c = ╱54╱T╱ // 0x7a0 @0x2c
0x0774…07ab at002d = ╱4e╱N╱ // 0x7a1 @0x2d
0x0774…07ab at002e = ╱52╱R╱ // 0x7a2 @0x2e
0x0774…07ab at002f = ╱ec╱,╱ // 0x7a3 @0x2f
0x0774…07ab at0030 = ╱44╱D╱ // 0x7a4 @0x30
0x0774…07ab at0031 = ╱45╱E╱ // 0x7a5 @0x31
0x0774…07ab at0032 = ╱42╱B╱ // 0x7a6 @0x32
0x0774…07ab at0033 = ╱4c╱L╱ // 0x7a7 @0x33
0x0774…07ab at0034 = ╱4b╱K╱ // 0x7a8 @0x34
0x0774…07ab at0035 = ╱ef╱$╱ // 0x7a9 @0x35
0x0774…07ab at0036 = EOL // 0x7aa @0x36
0x0774…07ab }
0x07ab…07be 9515 0780 EXEC FEJL(V,G,K4$)
0x07ab…07be LineComalBin {
0x07ab…07be ptr = 0x9515 // 0x7ab @0x0
0x07ab…07be lno = 0x030c // 0x7ad @0x2
0x07ab…07be at0004 = ╱9d╱ EXEC ╱ // 0x7af @0x4
0x07ab…07be at0005 = ╱46╱F╱ // 0x7b0 @0x5
0x07ab…07be at0006 = ╱45╱E╱ // 0x7b1 @0x6
0x07ab…07be at0007 = ╱4a╱J╱ // 0x7b2 @0x7
0x07ab…07be at0008 = ╱4c╱L╱ // 0x7b3 @0x8
0x07ab…07be at0009 = ╱ed╱(╱ // 0x7b4 @0x9
0x07ab…07be at000a = ╱56╱V╱ // 0x7b5 @0xa
0x07ab…07be at000b = ╱ec╱,╱ // 0x7b6 @0xb
0x07ab…07be at000c = ╱47╱G╱ // 0x7b7 @0xc
0x07ab…07be at000d = ╱ec╱,╱ // 0x7b8 @0xd
0x07ab…07be at000e = ╱4b╱K╱ // 0x7b9 @0xe
0x07ab…07be at000f = ╱34╱4╱ // 0x7ba @0xf
0x07ab…07be at0010 = ╱ef╱$╱ // 0x7bb @0x10
0x07ab…07be at0011 = ╱ee╱)╱ // 0x7bc @0x11
0x07ab…07be at0012 = EOL // 0x7bd @0x12
0x07ab…07be }
0x07be…07e9 9540 0790 GET K4$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x07be…07e9 LineComalBin {
0x07be…07e9 ptr = 0x9540 // 0x7be @0x0
0x07be…07e9 lno = 0x0316 // 0x7c0 @0x2
0x07be…07e9 at0004 = ╱a9╱ GET ╱ // 0x7c2 @0x4
0x07be…07e9 at0005 = ╱4b╱K╱ // 0x7c3 @0x5
0x07be…07e9 at0006 = ╱34╱4╱ // 0x7c4 @0x6
0x07be…07e9 at0007 = ╱ef╱$╱ // 0x7c5 @0x7
0x07be…07e9 at0008 = ╱ec╱,╱ // 0x7c6 @0x8
0x07be…07e9 at0009 = ╱53╱S╱ // 0x7c7 @0x9
0x07be…07e9 at000a = ╱e2╱+╱ // 0x7c8 @0xa
0x07be…07e9 at000b = ╱47╱G╱ // 0x7c9 @0xb
0x07be…07e9 at000c = ╱f0╱:╱ // 0x7ca @0xc
0x07be…07e9 at000d = ╱44╱D╱ // 0x7cb @0xd
0x07be…07e9 at000e = ╱45╱E╱ // 0x7cc @0xe
0x07be…07e9 at000f = ╱42╱B╱ // 0x7cd @0xf
0x07be…07e9 at0010 = ╱47╱G╱ // 0x7ce @0x10
0x07be…07e9 at0011 = ╱41╱A╱ // 0x7cf @0x11
0x07be…07e9 at0012 = ╱44╱D╱ // 0x7d0 @0x12
0x07be…07e9 at0013 = ╱45╱E╱ // 0x7d1 @0x13
0x07be…07e9 at0014 = ╱ef╱$╱ // 0x7d2 @0x14
0x07be…07e9 at0015 = ╱ec╱,╱ // 0x7d3 @0x15
0x07be…07e9 at0016 = ╱44╱D╱ // 0x7d4 @0x16
0x07be…07e9 at0017 = ╱45╱E╱ // 0x7d5 @0x17
0x07be…07e9 at0018 = ╱42╱B╱ // 0x7d6 @0x18
0x07be…07e9 at0019 = ╱54╱T╱ // 0x7d7 @0x19
0x07be…07e9 at001a = ╱4c╱L╱ // 0x7d8 @0x1a
0x07be…07e9 at001b = ╱46╱F╱ // 0x7d9 @0x1b
0x07be…07e9 at001c = ╱ef╱$╱ // 0x7da @0x1c
0x07be…07e9 at001d = ╱ec╱,╱ // 0x7db @0x1d
0x07be…07e9 at001e = ╱48╱H╱ // 0x7dc @0x1e
0x07be…07e9 at001f = ╱50╱P╱ // 0x7dd @0x1f
0x07be…07e9 at0020 = ╱4f╱O╱ // 0x7de @0x20
0x07be…07e9 at0021 = ╱53╱S╱ // 0x7df @0x21
0x07be…07e9 at0022 = ╱54╱T╱ // 0x7e0 @0x22
0x07be…07e9 at0023 = ╱ec╱,╱ // 0x7e1 @0x23
0x07be…07e9 at0024 = ╱48╱H╱ // 0x7e2 @0x24
0x07be…07e9 at0025 = ╱4b╱K╱ // 0x7e3 @0x25
0x07be…07e9 at0026 = ╱55╱U╱ // 0x7e4 @0x26
0x07be…07e9 at0027 = ╱4e╱N╱ // 0x7e5 @0x27
0x07be…07e9 at0028 = ╱44╱D╱ // 0x7e6 @0x28
0x07be…07e9 at0029 = ╱45╱E╱ // 0x7e7 @0x29
0x07be…07e9 at002a = EOL // 0x7e8 @0x2a
0x07be…07e9 }
0x07e9…07fc 9553 0800 EXEC FEJL(V,V,K4$)
0x07e9…07fc LineComalBin {
0x07e9…07fc ptr = 0x9553 // 0x7e9 @0x0
0x07e9…07fc lno = 0x0320 // 0x7eb @0x2
0x07e9…07fc at0004 = ╱9d╱ EXEC ╱ // 0x7ed @0x4
0x07e9…07fc at0005 = ╱46╱F╱ // 0x7ee @0x5
0x07e9…07fc at0006 = ╱45╱E╱ // 0x7ef @0x6
0x07e9…07fc at0007 = ╱4a╱J╱ // 0x7f0 @0x7
0x07e9…07fc at0008 = ╱4c╱L╱ // 0x7f1 @0x8
0x07e9…07fc at0009 = ╱ed╱(╱ // 0x7f2 @0x9
0x07e9…07fc at000a = ╱56╱V╱ // 0x7f3 @0xa
0x07e9…07fc at000b = ╱ec╱,╱ // 0x7f4 @0xb
0x07e9…07fc at000c = ╱56╱V╱ // 0x7f5 @0xc
0x07e9…07fc at000d = ╱ec╱,╱ // 0x7f6 @0xd
0x07e9…07fc at000e = ╱4b╱K╱ // 0x7f7 @0xe
0x07e9…07fc at000f = ╱34╱4╱ // 0x7f8 @0xf
0x07e9…07fc at0010 = ╱ef╱$╱ // 0x7f9 @0x10
0x07e9…07fc at0011 = ╱ee╱)╱ // 0x7fa @0x11
0x07e9…07fc at0012 = EOL // 0x7fb @0x12
0x07e9…07fc }
0x07fc…081f 9576 0810 GET K4$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x07fc…081f LineComalBin {
0x07fc…081f ptr = 0x9576 // 0x7fc @0x0
0x07fc…081f lno = 0x032a // 0x7fe @0x2
0x07fc…081f at0004 = ╱a9╱ GET ╱ // 0x800 @0x4
0x07fc…081f at0005 = ╱4b╱K╱ // 0x801 @0x5
0x07fc…081f at0006 = ╱34╱4╱ // 0x802 @0x6
0x07fc…081f at0007 = ╱ef╱$╱ // 0x803 @0x7
0x07fc…081f at0008 = ╱ec╱,╱ // 0x804 @0x8
0x07fc…081f at0009 = ╱53╱S╱ // 0x805 @0x9
0x07fc…081f at000a = ╱e2╱+╱ // 0x806 @0xa
0x07fc…081f at000b = ╱56╱V╱ // 0x807 @0xb
0x07fc…081f at000c = ╱f0╱:╱ // 0x808 @0xc
0x07fc…081f at000d = ╱44╱D╱ // 0x809 @0xd
0x07fc…081f at000e = ╱45╱E╱ // 0x80a @0xe
0x07fc…081f at000f = ╱42╱B╱ // 0x80b @0xf
0x07fc…081f at0010 = ╱42╱B╱ // 0x80c @0x10
0x07fc…081f at0011 = ╱59╱Y╱ // 0x80d @0x11
0x07fc…081f at0012 = ╱ef╱$╱ // 0x80e @0x12
0x07fc…081f at0013 = ╱ec╱,╱ // 0x80f @0x13
0x07fc…081f at0014 = ╱5d╱Å╱ // 0x810 @0x14
0x07fc…081f at0015 = ╱52╱R╱ // 0x811 @0x15
0x07fc…081f at0016 = ╱4b╱K╱ // 0x812 @0x16
0x07fc…081f at0017 = ╱5c╱Ø╱ // 0x813 @0x17
0x07fc…081f at0018 = ╱42╱B╱ // 0x814 @0x18
0x07fc…081f at0019 = ╱ef╱$╱ // 0x815 @0x19
0x07fc…081f at001a = ╱ec╱,╱ // 0x816 @0x1a
0x07fc…081f at001b = ╱4d╱M╱ // 0x817 @0x1b
0x07fc…081f at001c = ╱44╱D╱ // 0x818 @0x1c
0x07fc…081f at001d = ╱4e╱N╱ // 0x819 @0x1d
0x07fc…081f at001e = ╱4b╱K╱ // 0x81a @0x1e
0x07fc…081f at001f = ╱5c╱Ø╱ // 0x81b @0x1f
0x07fc…081f at0020 = ╱42╱B╱ // 0x81c @0x20
0x07fc…081f at0021 = ╱ef╱$╱ // 0x81d @0x21
0x07fc…081f at0022 = EOL // 0x81e @0x22
0x07fc…081f }
0x081f…0837 (27,) 958e 0820 EXEC FEJL(V,4,K4$)
0x081f…0837 LineComalBin {
0x081f…0837 ptr = 0x958e // 0x81f @0x0
0x081f…0837 lno = 0x0334 // 0x821 @0x2
0x081f…0837 at0004 = ╱9d╱ EXEC ╱ // 0x823 @0x4
0x081f…0837 at0005 = ╱46╱F╱ // 0x824 @0x5
0x081f…0837 at0006 = ╱45╱E╱ // 0x825 @0x6
0x081f…0837 at0007 = ╱4a╱J╱ // 0x826 @0x7
0x081f…0837 at0008 = ╱4c╱L╱ // 0x827 @0x8
0x081f…0837 at0009 = ╱ed╱(╱ // 0x828 @0x9
0x081f…0837 at000a = ╱56╱V╱ // 0x829 @0xa
0x081f…0837 at000b = ╱ec╱,╱ // 0x82a @0xb
0x081f…0837 at000c = ╱34╱4╱ // 0x82b @0xc
0x081f…0837 at000d = ╱fe00008003╱ // 0x82c @0xd
0x081f…0837 at0012 = ╱ec╱,╱ // 0x831 @0x12
0x081f…0837 at0013 = ╱4b╱K╱ // 0x832 @0x13
0x081f…0837 at0014 = ╱34╱4╱ // 0x833 @0x14
0x081f…0837 at0015 = ╱ef╱$╱ // 0x834 @0x15
0x081f…0837 at0016 = ╱ee╱)╱ // 0x835 @0x16
0x081f…0837 at0017 = EOL // 0x836 @0x17
0x081f…0837 }
0x0837…083d 9594 0830 ENDPROC
0x0837…083d LineComalBin {
0x0837…083d ptr = 0x9594 // 0x837 @0x0
0x0837…083d lno = 0x033e // 0x839 @0x2
0x0837…083d at0004 = ╱9f╱ ENDPROC ╱ // 0x83b @0x4
0x0837…083d at0005 = EOL // 0x83c @0x5
0x0837…083d }
0x083d…085c 95b3 0840 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x083d…085c LineComalBin {
0x083d…085c ptr = 0x95b3 // 0x83d @0x0
0x083d…085c lno = 0x0348 // 0x83f @0x2
0x083d…085c at0004 = ╱9e╱ PROC ╱ // 0x841 @0x4
0x083d…085c at0005 = ╱54╱T╱ // 0x842 @0x5
0x083d…085c at0006 = ╱55╱U╱ // 0x843 @0x6
0x083d…085c at0007 = ╱44╱D╱ // 0x844 @0x7
0x083d…085c at0008 = ╱ed╱(╱ // 0x845 @0x8
0x083d…085c at0009 = ╱42╱B╱ // 0x846 @0x9
0x083d…085c at000a = ╱4c╱L╱ // 0x847 @0xa
0x083d…085c at000b = ╱42╱B╱ // 0x848 @0xb
0x083d…085c at000c = ╱31╱1╱ // 0x849 @0xc
0x083d…085c at000d = ╱ec╱,╱ // 0x84a @0xd
0x083d…085c at000e = ╱55╱U╱ // 0x84b @0xe
0x083d…085c at000f = ╱42╱B╱ // 0x84c @0xf
0x083d…085c at0010 = ╱4c╱L╱ // 0x84d @0x10
0x083d…085c at0011 = ╱42╱B╱ // 0x84e @0x11
0x083d…085c at0012 = ╱31╱1╱ // 0x84f @0x12
0x083d…085c at0013 = ╱ec╱,╱ // 0x850 @0x13
0x083d…085c at0014 = ╱54╱T╱ // 0x851 @0x14
0x083d…085c at0015 = ╱45╱E╱ // 0x852 @0x15
0x083d…085c at0016 = ╱47╱G╱ // 0x853 @0x16
0x083d…085c at0017 = ╱4e╱N╱ // 0x854 @0x17
0x083d…085c at0018 = ╱ec╱,╱ // 0x855 @0x18
0x083d…085c at0019 = ╱53╱S╱ // 0x856 @0x19
0x083d…085c at001a = ╱54╱T╱ // 0x857 @0x1a
0x083d…085c at001b = ╱5c╱Ø╱ // 0x858 @0x1b
0x083d…085c at001c = ╱52╱R╱ // 0x859 @0x1c
0x083d…085c at001d = ╱ee╱)╱ // 0x85a @0x1d
0x083d…085c at001e = EOL // 0x85b @0x1e
0x083d…085c }
0x085c…086c 95c3 0850 BLB2$=BLB1$
0x085c…086c LineComalBin {
0x085c…086c ptr = 0x95c3 // 0x85c @0x0
0x085c…086c lno = 0x0352 // 0x85e @0x2
0x085c…086c at0004 = ╱42╱B╱ // 0x860 @0x4
0x085c…086c at0005 = ╱4c╱L╱ // 0x861 @0x5
0x085c…086c at0006 = ╱42╱B╱ // 0x862 @0x6
0x085c…086c at0007 = ╱32╱2╱ // 0x863 @0x7
0x085c…086c at0008 = ╱ef╱$╱ // 0x864 @0x8
0x085c…086c at0009 = ╱dc╱=╱ // 0x865 @0x9
0x085c…086c at000a = ╱42╱B╱ // 0x866 @0xa
0x085c…086c at000b = ╱4c╱L╱ // 0x867 @0xb
0x085c…086c at000c = ╱42╱B╱ // 0x868 @0xc
0x085c…086c at000d = ╱31╱1╱ // 0x869 @0xd
0x085c…086c at000e = ╱ef╱$╱ // 0x86a @0xe
0x085c…086c at000f = EOL // 0x86b @0xf
0x085c…086c }
0x086c…0890 (28,) 95e7 0860 EXEC CALC(5,BLB2$,TAH$,UBLB1$)
0x086c…0890 LineComalBin {
0x086c…0890 ptr = 0x95e7 // 0x86c @0x0
0x086c…0890 lno = 0x035c // 0x86e @0x2
0x086c…0890 at0004 = ╱9d╱ EXEC ╱ // 0x870 @0x4
0x086c…0890 at0005 = ╱43╱C╱ // 0x871 @0x5
0x086c…0890 at0006 = ╱41╱A╱ // 0x872 @0x6
0x086c…0890 at0007 = ╱4c╱L╱ // 0x873 @0x7
0x086c…0890 at0008 = ╱43╱C╱ // 0x874 @0x8
0x086c…0890 at0009 = ╱ed╱(╱ // 0x875 @0x9
0x086c…0890 at000a = ╱35╱5╱ // 0x876 @0xa
0x086c…0890 at000b = ╱fe0000a003╱ // 0x877 @0xb
0x086c…0890 at0010 = ╱ec╱,╱ // 0x87c @0x10
0x086c…0890 at0011 = ╱42╱B╱ // 0x87d @0x11
0x086c…0890 at0012 = ╱4c╱L╱ // 0x87e @0x12
0x086c…0890 at0013 = ╱42╱B╱ // 0x87f @0x13
0x086c…0890 at0014 = ╱32╱2╱ // 0x880 @0x14
0x086c…0890 at0015 = ╱ef╱$╱ // 0x881 @0x15
0x086c…0890 at0016 = ╱ec╱,╱ // 0x882 @0x16
0x086c…0890 at0017 = ╱54╱T╱ // 0x883 @0x17
0x086c…0890 at0018 = ╱41╱A╱ // 0x884 @0x18
0x086c…0890 at0019 = ╱48╱H╱ // 0x885 @0x19
0x086c…0890 at001a = ╱ef╱$╱ // 0x886 @0x1a
0x086c…0890 at001b = ╱ec╱,╱ // 0x887 @0x1b
0x086c…0890 at001c = ╱55╱U╱ // 0x888 @0x1c
0x086c…0890 at001d = ╱42╱B╱ // 0x889 @0x1d
0x086c…0890 at001e = ╱4c╱L╱ // 0x88a @0x1e
0x086c…0890 at001f = ╱42╱B╱ // 0x88b @0x1f
0x086c…0890 at0020 = ╱31╱1╱ // 0x88c @0x20
0x086c…0890 at0021 = ╱ef╱$╱ // 0x88d @0x21
0x086c…0890 at0022 = ╱ee╱)╱ // 0x88e @0x22
0x086c…0890 at0023 = EOL // 0x88f @0x23
0x086c…0890 }
0x0890…08b5 960c 0870 IF TEGN=B THEN UBLB1$=UBLB1$(E:13)
0x0890…08b5 LineComalBin {
0x0890…08b5 ptr = 0x960c // 0x890 @0x0
0x0890…08b5 lno = 0x0366 // 0x892 @0x2
0x0890…08b5 at0004 = ╱82╱ IF ╱ // 0x894 @0x4
0x0890…08b5 at0005 = ╱54╱T╱ // 0x895 @0x5
0x0890…08b5 at0006 = ╱45╱E╱ // 0x896 @0x6
0x0890…08b5 at0007 = ╱47╱G╱ // 0x897 @0x7
0x0890…08b5 at0008 = ╱4e╱N╱ // 0x898 @0x8
0x0890…08b5 at0009 = ╱dc╱=╱ // 0x899 @0x9
0x0890…08b5 at000a = ╱42╱B╱ // 0x89a @0xa
0x0890…08b5 at000b = ╱b6╱ THEN ╱ // 0x89b @0xb
0x0890…08b5 at000c = ╱55╱U╱ // 0x89c @0xc
0x0890…08b5 at000d = ╱42╱B╱ // 0x89d @0xd
0x0890…08b5 at000e = ╱4c╱L╱ // 0x89e @0xe
0x0890…08b5 at000f = ╱42╱B╱ // 0x89f @0xf
0x0890…08b5 at0010 = ╱31╱1╱ // 0x8a0 @0x10
0x0890…08b5 at0011 = ╱ef╱$╱ // 0x8a1 @0x11
0x0890…08b5 at0012 = ╱dc╱=╱ // 0x8a2 @0x12
0x0890…08b5 at0013 = ╱55╱U╱ // 0x8a3 @0x13
0x0890…08b5 at0014 = ╱42╱B╱ // 0x8a4 @0x14
0x0890…08b5 at0015 = ╱4c╱L╱ // 0x8a5 @0x15
0x0890…08b5 at0016 = ╱42╱B╱ // 0x8a6 @0x16
0x0890…08b5 at0017 = ╱31╱1╱ // 0x8a7 @0x17
0x0890…08b5 at0018 = ╱ef╱$╱ // 0x8a8 @0x18
0x0890…08b5 at0019 = ╱ed╱(╱ // 0x8a9 @0x19
0x0890…08b5 at001a = ╱45╱E╱ // 0x8aa @0x1a
0x0890…08b5 at001b = ╱f0╱:╱ // 0x8ab @0x1b
0x0890…08b5 at001c = ╱31╱1╱ // 0x8ac @0x1c
0x0890…08b5 at001d = ╱33╱3╱ // 0x8ad @0x1d
0x0890…08b5 at001e = ╱fe0000d004╱ // 0x8ae @0x1e
0x0890…08b5 at0023 = ╱ee╱)╱ // 0x8b3 @0x23
0x0890…08b5 at0024 = EOL // 0x8b4 @0x24
0x0890…08b5 }
0x08b5…08ed 9644 0880 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "
0x08b5…08ed LineComalBin {
0x08b5…08ed ptr = 0x9644 // 0x8b5 @0x0
0x08b5…08ed lno = 0x0370 // 0x8b7 @0x2
0x08b5…08ed at0004 = ╱82╱ IF ╱ // 0x8b9 @0x4
0x08b5…08ed at0005 = ╱54╱T╱ // 0x8ba @0x5
0x08b5…08ed at0006 = ╱45╱E╱ // 0x8bb @0x6
0x08b5…08ed at0007 = ╱47╱G╱ // 0x8bc @0x7
0x08b5…08ed at0008 = ╱4e╱N╱ // 0x8bd @0x8
0x08b5…08ed at0009 = ╱dc╱=╱ // 0x8be @0x9
0x08b5…08ed at000a = ╱45╱E╱ // 0x8bf @0xa
0x08b5…08ed at000b = ╱da╱ AND ╱ // 0x8c0 @0xb
0x08b5…08ed at000c = ╱55╱U╱ // 0x8c1 @0xc
0x08b5…08ed at000d = ╱42╱B╱ // 0x8c2 @0xd
0x08b5…08ed at000e = ╱4c╱L╱ // 0x8c3 @0xe
0x08b5…08ed at000f = ╱42╱B╱ // 0x8c4 @0xf
0x08b5…08ed at0010 = ╱31╱1╱ // 0x8c5 @0x10
0x08b5…08ed at0011 = ╱ef╱$╱ // 0x8c6 @0x11
0x08b5…08ed at0012 = ╱ed╱(╱ // 0x8c7 @0x12
0x08b5…08ed at0013 = ╱cc╱LEN╱ // 0x8c8 @0x13
0x08b5…08ed at0014 = ╱ed╱(╱ // 0x8c9 @0x14
0x08b5…08ed at0015 = ╱55╱U╱ // 0x8ca @0x15
0x08b5…08ed at0016 = ╱42╱B╱ // 0x8cb @0x16
0x08b5…08ed at0017 = ╱4c╱L╱ // 0x8cc @0x17
0x08b5…08ed at0018 = ╱42╱B╱ // 0x8cd @0x18
0x08b5…08ed at0019 = ╱31╱1╱ // 0x8ce @0x19
0x08b5…08ed at001a = ╱ef╱$╱ // 0x8cf @0x1a
0x08b5…08ed at001b = ╱ee╱)╱ // 0x8d0 @0x1b
0x08b5…08ed at001c = ╱ee╱)╱ // 0x8d1 @0x1c
0x08b5…08ed at001d = ╱dc╱=╱ // 0x8d2 @0x1d
0x08b5…08ed at001e = ╱22╱"╱ // 0x8d3 @0x1e
0x08b5…08ed at001f = ╱2b╱+╱ // 0x8d4 @0x1f
0x08b5…08ed at0020 = ╱22╱"╱ // 0x8d5 @0x20
0x08b5…08ed at0021 = ╱b6╱ THEN ╱ // 0x8d6 @0x21
0x08b5…08ed at0022 = ╱55╱U╱ // 0x8d7 @0x22
0x08b5…08ed at0023 = ╱42╱B╱ // 0x8d8 @0x23
0x08b5…08ed at0024 = ╱4c╱L╱ // 0x8d9 @0x24
0x08b5…08ed at0025 = ╱42╱B╱ // 0x8da @0x25
0x08b5…08ed at0026 = ╱31╱1╱ // 0x8db @0x26
0x08b5…08ed at0027 = ╱ef╱$╱ // 0x8dc @0x27
0x08b5…08ed at0028 = ╱ed╱(╱ // 0x8dd @0x28
0x08b5…08ed at0029 = ╱cc╱LEN╱ // 0x8de @0x29
0x08b5…08ed at002a = ╱ed╱(╱ // 0x8df @0x2a
0x08b5…08ed at002b = ╱55╱U╱ // 0x8e0 @0x2b
0x08b5…08ed at002c = ╱42╱B╱ // 0x8e1 @0x2c
0x08b5…08ed at002d = ╱4c╱L╱ // 0x8e2 @0x2d
0x08b5…08ed at002e = ╱42╱B╱ // 0x8e3 @0x2e
0x08b5…08ed at002f = ╱31╱1╱ // 0x8e4 @0x2f
0x08b5…08ed at0030 = ╱ef╱$╱ // 0x8e5 @0x30
0x08b5…08ed at0031 = ╱ee╱)╱ // 0x8e6 @0x31
0x08b5…08ed at0032 = ╱ee╱)╱ // 0x8e7 @0x32
0x08b5…08ed at0033 = ╱dc╱=╱ // 0x8e8 @0x33
0x08b5…08ed at0034 = ╱22╱"╱ // 0x8e9 @0x34
0x08b5…08ed at0035 = ╱20╱…╱ // 0x8ea @0x35
0x08b5…08ed at0036 = ╱22╱"╱ // 0x8eb @0x36
0x08b5…08ed at0037 = EOL // 0x8ec @0x37
0x08b5…08ed }
0x08ed…091b 9672 0890 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x08ed…091b LineComalBin {
0x08ed…091b ptr = 0x9672 // 0x8ed @0x0
0x08ed…091b lno = 0x037a // 0x8ef @0x2
0x08ed…091b at0004 = ╱82╱ IF ╱ // 0x8f1 @0x4
0x08ed…091b at0005 = ╱53╱S╱ // 0x8f2 @0x5
0x08ed…091b at0006 = ╱54╱T╱ // 0x8f3 @0x6
0x08ed…091b at0007 = ╱5c╱Ø╱ // 0x8f4 @0x7
0x08ed…091b at0008 = ╱52╱R╱ // 0x8f5 @0x8
0x08ed…091b at0009 = ╱dc╱=╱ // 0x8f6 @0x9
0x08ed…091b at000a = ╱45╱E╱ // 0x8f7 @0xa
0x08ed…091b at000b = ╱b6╱ THEN ╱ // 0x8f8 @0xb
0x08ed…091b at000c = ╱55╱U╱ // 0x8f9 @0xc
0x08ed…091b at000d = ╱42╱B╱ // 0x8fa @0xd
0x08ed…091b at000e = ╱4c╱L╱ // 0x8fb @0xe
0x08ed…091b at000f = ╱42╱B╱ // 0x8fc @0xf
0x08ed…091b at0010 = ╱31╱1╱ // 0x8fd @0x10
0x08ed…091b at0011 = ╱ef╱$╱ // 0x8fe @0x11
0x08ed…091b at0012 = ╱dc╱=╱ // 0x8ff @0x12
0x08ed…091b at0013 = ╱55╱U╱ // 0x900 @0x13
0x08ed…091b at0014 = ╱42╱B╱ // 0x901 @0x14
0x08ed…091b at0015 = ╱4c╱L╱ // 0x902 @0x15
0x08ed…091b at0016 = ╱42╱B╱ // 0x903 @0x16
0x08ed…091b at0017 = ╱31╱1╱ // 0x904 @0x17
0x08ed…091b at0018 = ╱ef╱$╱ // 0x905 @0x18
0x08ed…091b at0019 = ╱ed╱(╱ // 0x906 @0x19
0x08ed…091b at001a = ╱34╱4╱ // 0x907 @0x1a
0x08ed…091b at001b = ╱fe00008003╱ // 0x908 @0x1b
0x08ed…091b at0020 = ╱f0╱:╱ // 0x90d @0x20
0x08ed…091b at0021 = ╱cc╱LEN╱ // 0x90e @0x21
0x08ed…091b at0022 = ╱ed╱(╱ // 0x90f @0x22
0x08ed…091b at0023 = ╱55╱U╱ // 0x910 @0x23
0x08ed…091b at0024 = ╱42╱B╱ // 0x911 @0x24
0x08ed…091b at0025 = ╱4c╱L╱ // 0x912 @0x25
0x08ed…091b at0026 = ╱42╱B╱ // 0x913 @0x26
0x08ed…091b at0027 = ╱31╱1╱ // 0x914 @0x27
0x08ed…091b at0028 = ╱ef╱$╱ // 0x915 @0x28
0x08ed…091b at0029 = ╱ee╱)╱ // 0x916 @0x29
0x08ed…091b at002a = ╱e3╱-╱ // 0x917 @0x2a
0x08ed…091b at002b = ╱56╱V╱ // 0x918 @0x2b
0x08ed…091b at002c = ╱ee╱)╱ // 0x919 @0x2c
0x08ed…091b at002d = EOL // 0x91a @0x2d
0x08ed…091b }
0x091b…0928 967f 0900 PRINT UBLB1$;
0x091b…0928 LineComalBin {
0x091b…0928 ptr = 0x967f // 0x91b @0x0
0x091b…0928 lno = 0x0384 // 0x91d @0x2
0x091b…0928 at0004 = ╱92╱ PRINT ╱ // 0x91f @0x4
0x091b…0928 at0005 = ╱55╱U╱ // 0x920 @0x5
0x091b…0928 at0006 = ╱42╱B╱ // 0x921 @0x6
0x091b…0928 at0007 = ╱4c╱L╱ // 0x922 @0x7
0x091b…0928 at0008 = ╱42╱B╱ // 0x923 @0x8
0x091b…0928 at0009 = ╱31╱1╱ // 0x924 @0x9
0x091b…0928 at000a = ╱ef╱$╱ // 0x925 @0xa
0x091b…0928 at000b = ╱eb╱;╱ // 0x926 @0xb
0x091b…0928 at000c = EOL // 0x927 @0xc
0x091b…0928 }
0x0928…092e 9685 0910 ENDPROC
0x0928…092e LineComalBin {
0x0928…092e ptr = 0x9685 // 0x928 @0x0
0x0928…092e lno = 0x038e // 0x92a @0x2
0x0928…092e at0004 = ╱9f╱ ENDPROC ╱ // 0x92c @0x4
0x0928…092e at0005 = EOL // 0x92d @0x5
0x0928…092e }
0x092e…093c 9693 0920 PROC GEMDPOST
0x092e…093c LineComalBin {
0x092e…093c ptr = 0x9693 // 0x92e @0x0
0x092e…093c lno = 0x0398 // 0x930 @0x2
0x092e…093c at0004 = ╱9e╱ PROC ╱ // 0x932 @0x4
0x092e…093c at0005 = ╱47╱G╱ // 0x933 @0x5
0x092e…093c at0006 = ╱45╱E╱ // 0x934 @0x6
0x092e…093c at0007 = ╱4d╱M╱ // 0x935 @0x7
0x092e…093c at0008 = ╱44╱D╱ // 0x936 @0x8
0x092e…093c at0009 = ╱50╱P╱ // 0x937 @0x9
0x092e…093c at000a = ╱4f╱O╱ // 0x938 @0xa
0x092e…093c at000b = ╱53╱S╱ // 0x939 @0xb
0x092e…093c at000c = ╱54╱T╱ // 0x93a @0xc
0x092e…093c at000d = EOL // 0x93b @0xd
0x092e…093c }
0x093c…0950 96a7 0930 S=DTAB(DPIL3,G)
0x093c…0950 LineComalBin {
0x093c…0950 ptr = 0x96a7 // 0x93c @0x0
0x093c…0950 lno = 0x03a2 // 0x93e @0x2
0x093c…0950 at0004 = ╱53╱S╱ // 0x940 @0x4
0x093c…0950 at0005 = ╱dc╱=╱ // 0x941 @0x5
0x093c…0950 at0006 = ╱44╱D╱ // 0x942 @0x6
0x093c…0950 at0007 = ╱54╱T╱ // 0x943 @0x7
0x093c…0950 at0008 = ╱41╱A╱ // 0x944 @0x8
0x093c…0950 at0009 = ╱42╱B╱ // 0x945 @0x9
0x093c…0950 at000a = ╱ed╱(╱ // 0x946 @0xa
0x093c…0950 at000b = ╱44╱D╱ // 0x947 @0xb
0x093c…0950 at000c = ╱50╱P╱ // 0x948 @0xc
0x093c…0950 at000d = ╱49╱I╱ // 0x949 @0xd
0x093c…0950 at000e = ╱4c╱L╱ // 0x94a @0xe
0x093c…0950 at000f = ╱33╱3╱ // 0x94b @0xf
0x093c…0950 at0010 = ╱ec╱,╱ // 0x94c @0x10
0x093c…0950 at0011 = ╱47╱G╱ // 0x94d @0x11
0x093c…0950 at0012 = ╱ee╱)╱ // 0x94e @0x12
0x093c…0950 at0013 = EOL // 0x94f @0x13
0x093c…0950 }
0x0950…097b 96d2 0940 PUT K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0950…097b LineComalBin {
0x0950…097b ptr = 0x96d2 // 0x950 @0x0
0x0950…097b lno = 0x03ac // 0x952 @0x2
0x0950…097b at0004 = ╱aa╱ PUT ╱ // 0x954 @0x4
0x0950…097b at0005 = ╱4b╱K╱ // 0x955 @0x5
0x0950…097b at0006 = ╱34╱4╱ // 0x956 @0x6
0x0950…097b at0007 = ╱ef╱$╱ // 0x957 @0x7
0x0950…097b at0008 = ╱ec╱,╱ // 0x958 @0x8
0x0950…097b at0009 = ╱53╱S╱ // 0x959 @0x9
0x0950…097b at000a = ╱f0╱:╱ // 0x95a @0xa
0x0950…097b at000b = ╱44╱D╱ // 0x95b @0xb
0x0950…097b at000c = ╱45╱E╱ // 0x95c @0xc
0x0950…097b at000d = ╱42╱B╱ // 0x95d @0xd
0x0950…097b at000e = ╱4e╱N╱ // 0x95e @0xe
0x0950…097b at000f = ╱52╱R╱ // 0x95f @0xf
0x0950…097b at0010 = ╱ec╱,╱ // 0x960 @0x10
0x0950…097b at0011 = ╱44╱D╱ // 0x961 @0x11
0x0950…097b at0012 = ╱45╱E╱ // 0x962 @0x12
0x0950…097b at0013 = ╱42╱B╱ // 0x963 @0x13
0x0950…097b at0014 = ╱4e╱N╱ // 0x964 @0x14
0x0950…097b at0015 = ╱41╱A╱ // 0x965 @0x15
0x0950…097b at0016 = ╱56╱V╱ // 0x966 @0x16
0x0950…097b at0017 = ╱4e╱N╱ // 0x967 @0x17
0x0950…097b at0018 = ╱ef╱$╱ // 0x968 @0x18
0x0950…097b at0019 = ╱ec╱,╱ // 0x969 @0x19
0x0950…097b at001a = ╱44╱D╱ // 0x96a @0x1a
0x0950…097b at001b = ╱53╱S╱ // 0x96b @0x1b
0x0950…097b at001c = ╱41╱A╱ // 0x96c @0x1c
0x0950…097b at001d = ╱4c╱L╱ // 0x96d @0x1d
0x0950…097b at001e = ╱44╱D╱ // 0x96e @0x1e
0x0950…097b at001f = ╱4f╱O╱ // 0x96f @0x1f
0x0950…097b at0020 = ╱31╱1╱ // 0x970 @0x20
0x0950…097b at0021 = ╱ef╱$╱ // 0x971 @0x21
0x0950…097b at0022 = ╱ec╱,╱ // 0x972 @0x22
0x0950…097b at0023 = ╱44╱D╱ // 0x973 @0x23
0x0950…097b at0024 = ╱45╱E╱ // 0x974 @0x24
0x0950…097b at0025 = ╱42╱B╱ // 0x975 @0x25
0x0950…097b at0026 = ╱4b╱K╱ // 0x976 @0x26
0x0950…097b at0027 = ╱47╱G╱ // 0x977 @0x27
0x0950…097b at0028 = ╱52╱R╱ // 0x978 @0x28
0x0950…097b at0029 = ╱ef╱$╱ // 0x979 @0x29
0x0950…097b at002a = EOL // 0x97a @0x2a
0x0950…097b }
0x097b…0993 96ea 0950 EXEC FEJL(4,E,K4$)
0x097b…0993 LineComalBin {
0x097b…0993 ptr = 0x96ea // 0x97b @0x0
0x097b…0993 lno = 0x03b6 // 0x97d @0x2
0x097b…0993 at0004 = ╱9d╱ EXEC ╱ // 0x97f @0x4
0x097b…0993 at0005 = ╱46╱F╱ // 0x980 @0x5
0x097b…0993 at0006 = ╱45╱E╱ // 0x981 @0x6
0x097b…0993 at0007 = ╱4a╱J╱ // 0x982 @0x7
0x097b…0993 at0008 = ╱4c╱L╱ // 0x983 @0x8
0x097b…0993 at0009 = ╱ed╱(╱ // 0x984 @0x9
0x097b…0993 at000a = ╱34╱4╱ // 0x985 @0xa
0x097b…0993 at000b = ╱fe00008003╱ // 0x986 @0xb
0x097b…0993 at0010 = ╱ec╱,╱ // 0x98b @0x10
0x097b…0993 at0011 = ╱45╱E╱ // 0x98c @0x11
0x097b…0993 at0012 = ╱ec╱,╱ // 0x98d @0x12
0x097b…0993 at0013 = ╱4b╱K╱ // 0x98e @0x13
0x097b…0993 at0014 = ╱34╱4╱ // 0x98f @0x14
0x097b…0993 at0015 = ╱ef╱$╱ // 0x990 @0x15
0x097b…0993 at0016 = ╱ee╱)╱ // 0x991 @0x16
0x097b…0993 at0017 = EOL // 0x992 @0x17
0x097b…0993 }
0x0993…09ca 9721 0960 PUT K4$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$
0x0993…09ca LineComalBin {
0x0993…09ca ptr = 0x9721 // 0x993 @0x0
0x0993…09ca lno = 0x03c0 // 0x995 @0x2
0x0993…09ca at0004 = ╱aa╱ PUT ╱ // 0x997 @0x4
0x0993…09ca at0005 = ╱4b╱K╱ // 0x998 @0x5
0x0993…09ca at0006 = ╱34╱4╱ // 0x999 @0x6
0x0993…09ca at0007 = ╱ef╱$╱ // 0x99a @0x7
0x0993…09ca at0008 = ╱ec╱,╱ // 0x99b @0x8
0x0993…09ca at0009 = ╱53╱S╱ // 0x99c @0x9
0x0993…09ca at000a = ╱e2╱+╱ // 0x99d @0xa
0x0993…09ca at000b = ╱45╱E╱ // 0x99e @0xb
0x0993…09ca at000c = ╱f0╱:╱ // 0x99f @0xc
0x0993…09ca at000d = ╱44╱D╱ // 0x9a0 @0xd
0x0993…09ca at000e = ╱53╱S╱ // 0x9a1 @0xe
0x0993…09ca at000f = ╱41╱A╱ // 0x9a2 @0xf
0x0993…09ca at0010 = ╱4c╱L╱ // 0x9a3 @0x10
0x0993…09ca at0011 = ╱44╱D╱ // 0x9a4 @0x11
0x0993…09ca at0012 = ╱4f╱O╱ // 0x9a5 @0x12
0x0993…09ca at0013 = ╱32╱2╱ // 0x9a6 @0x13
0x0993…09ca at0014 = ╱ef╱$╱ // 0x9a7 @0x14
0x0993…09ca at0015 = ╱ec╱,╱ // 0x9a8 @0x15
0x0993…09ca at0016 = ╱44╱D╱ // 0x9a9 @0x16
0x0993…09ca at0017 = ╱53╱S╱ // 0x9aa @0x17
0x0993…09ca at0018 = ╱41╱A╱ // 0x9ab @0x18
0x0993…09ca at0019 = ╱4c╱L╱ // 0x9ac @0x19
0x0993…09ca at001a = ╱44╱D╱ // 0x9ad @0x1a
0x0993…09ca at001b = ╱4f╱O╱ // 0x9ae @0x1b
0x0993…09ca at001c = ╱33╱3╱ // 0x9af @0x1c
0x0993…09ca at001d = ╱ef╱$╱ // 0x9b0 @0x1d
0x0993…09ca at001e = ╱ec╱,╱ // 0x9b1 @0x1e
0x0993…09ca at001f = ╱44╱D╱ // 0x9b2 @0x1f
0x0993…09ca at0020 = ╱53╱S╱ // 0x9b3 @0x20
0x0993…09ca at0021 = ╱41╱A╱ // 0x9b4 @0x21
0x0993…09ca at0022 = ╱4c╱L╱ // 0x9b5 @0x22
0x0993…09ca at0023 = ╱44╱D╱ // 0x9b6 @0x23
0x0993…09ca at0024 = ╱4f╱O╱ // 0x9b7 @0x24
0x0993…09ca at0025 = ╱34╱4╱ // 0x9b8 @0x25
0x0993…09ca at0026 = ╱ef╱$╱ // 0x9b9 @0x26
0x0993…09ca at0027 = ╱ec╱,╱ // 0x9ba @0x27
0x0993…09ca at0028 = ╱44╱D╱ // 0x9bb @0x28
0x0993…09ca at0029 = ╱50╱P╱ // 0x9bc @0x29
0x0993…09ca at002a = ╱4f╱O╱ // 0x9bd @0x2a
0x0993…09ca at002b = ╱53╱S╱ // 0x9be @0x2b
0x0993…09ca at002c = ╱54╱T╱ // 0x9bf @0x2c
0x0993…09ca at002d = ╱4e╱N╱ // 0x9c0 @0x2d
0x0993…09ca at002e = ╱52╱R╱ // 0x9c1 @0x2e
0x0993…09ca at002f = ╱ec╱,╱ // 0x9c2 @0x2f
0x0993…09ca at0030 = ╱44╱D╱ // 0x9c3 @0x30
0x0993…09ca at0031 = ╱45╱E╱ // 0x9c4 @0x31
0x0993…09ca at0032 = ╱42╱B╱ // 0x9c5 @0x32
0x0993…09ca at0033 = ╱4c╱L╱ // 0x9c6 @0x33
0x0993…09ca at0034 = ╱4b╱K╱ // 0x9c7 @0x34
0x0993…09ca at0035 = ╱ef╱$╱ // 0x9c8 @0x35
0x0993…09ca at0036 = EOL // 0x9c9 @0x36
0x0993…09ca }
0x09ca…09e2 9739 0970 EXEC FEJL(4,E,K4$)
0x09ca…09e2 LineComalBin {
0x09ca…09e2 ptr = 0x9739 // 0x9ca @0x0
0x09ca…09e2 lno = 0x03ca // 0x9cc @0x2
0x09ca…09e2 at0004 = ╱9d╱ EXEC ╱ // 0x9ce @0x4
0x09ca…09e2 at0005 = ╱46╱F╱ // 0x9cf @0x5
0x09ca…09e2 at0006 = ╱45╱E╱ // 0x9d0 @0x6
0x09ca…09e2 at0007 = ╱4a╱J╱ // 0x9d1 @0x7
0x09ca…09e2 at0008 = ╱4c╱L╱ // 0x9d2 @0x8
0x09ca…09e2 at0009 = ╱ed╱(╱ // 0x9d3 @0x9
0x09ca…09e2 at000a = ╱34╱4╱ // 0x9d4 @0xa
0x09ca…09e2 at000b = ╱fe00008003╱ // 0x9d5 @0xb
0x09ca…09e2 at0010 = ╱ec╱,╱ // 0x9da @0x10
0x09ca…09e2 at0011 = ╱45╱E╱ // 0x9db @0x11
0x09ca…09e2 at0012 = ╱ec╱,╱ // 0x9dc @0x12
0x09ca…09e2 at0013 = ╱4b╱K╱ // 0x9dd @0x13
0x09ca…09e2 at0014 = ╱34╱4╱ // 0x9de @0x14
0x09ca…09e2 at0015 = ╱ef╱$╱ // 0x9df @0x15
0x09ca…09e2 at0016 = ╱ee╱)╱ // 0x9e0 @0x16
0x09ca…09e2 at0017 = EOL // 0x9e1 @0x17
0x09ca…09e2 }
0x09e2…0a0d 9764 0980 PUT K4$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x09e2…0a0d LineComalBin {
0x09e2…0a0d ptr = 0x9764 // 0x9e2 @0x0
0x09e2…0a0d lno = 0x03d4 // 0x9e4 @0x2
0x09e2…0a0d at0004 = ╱aa╱ PUT ╱ // 0x9e6 @0x4
0x09e2…0a0d at0005 = ╱4b╱K╱ // 0x9e7 @0x5
0x09e2…0a0d at0006 = ╱34╱4╱ // 0x9e8 @0x6
0x09e2…0a0d at0007 = ╱ef╱$╱ // 0x9e9 @0x7
0x09e2…0a0d at0008 = ╱ec╱,╱ // 0x9ea @0x8
0x09e2…0a0d at0009 = ╱53╱S╱ // 0x9eb @0x9
0x09e2…0a0d at000a = ╱e2╱+╱ // 0x9ec @0xa
0x09e2…0a0d at000b = ╱47╱G╱ // 0x9ed @0xb
0x09e2…0a0d at000c = ╱f0╱:╱ // 0x9ee @0xc
0x09e2…0a0d at000d = ╱44╱D╱ // 0x9ef @0xd
0x09e2…0a0d at000e = ╱45╱E╱ // 0x9f0 @0xe
0x09e2…0a0d at000f = ╱42╱B╱ // 0x9f1 @0xf
0x09e2…0a0d at0010 = ╱47╱G╱ // 0x9f2 @0x10
0x09e2…0a0d at0011 = ╱41╱A╱ // 0x9f3 @0x11
0x09e2…0a0d at0012 = ╱44╱D╱ // 0x9f4 @0x12
0x09e2…0a0d at0013 = ╱45╱E╱ // 0x9f5 @0x13
0x09e2…0a0d at0014 = ╱ef╱$╱ // 0x9f6 @0x14
0x09e2…0a0d at0015 = ╱ec╱,╱ // 0x9f7 @0x15
0x09e2…0a0d at0016 = ╱44╱D╱ // 0x9f8 @0x16
0x09e2…0a0d at0017 = ╱45╱E╱ // 0x9f9 @0x17
0x09e2…0a0d at0018 = ╱42╱B╱ // 0x9fa @0x18
0x09e2…0a0d at0019 = ╱54╱T╱ // 0x9fb @0x19
0x09e2…0a0d at001a = ╱4c╱L╱ // 0x9fc @0x1a
0x09e2…0a0d at001b = ╱46╱F╱ // 0x9fd @0x1b
0x09e2…0a0d at001c = ╱ef╱$╱ // 0x9fe @0x1c
0x09e2…0a0d at001d = ╱ec╱,╱ // 0x9ff @0x1d
0x09e2…0a0d at001e = ╱48╱H╱ // 0xa00 @0x1e
0x09e2…0a0d at001f = ╱50╱P╱ // 0xa01 @0x1f
0x09e2…0a0d at0020 = ╱4f╱O╱ // 0xa02 @0x20
0x09e2…0a0d at0021 = ╱53╱S╱ // 0xa03 @0x21
0x09e2…0a0d at0022 = ╱54╱T╱ // 0xa04 @0x22
0x09e2…0a0d at0023 = ╱ec╱,╱ // 0xa05 @0x23
0x09e2…0a0d at0024 = ╱48╱H╱ // 0xa06 @0x24
0x09e2…0a0d at0025 = ╱4b╱K╱ // 0xa07 @0x25
0x09e2…0a0d at0026 = ╱55╱U╱ // 0xa08 @0x26
0x09e2…0a0d at0027 = ╱4e╱N╱ // 0xa09 @0x27
0x09e2…0a0d at0028 = ╱44╱D╱ // 0xa0a @0x28
0x09e2…0a0d at0029 = ╱45╱E╱ // 0xa0b @0x29
0x09e2…0a0d at002a = EOL // 0xa0c @0x2a
0x09e2…0a0d }
0x0a0d…0a25 977c 0990 EXEC FEJL(4,G,K4$)
0x0a0d…0a25 LineComalBin {
0x0a0d…0a25 ptr = 0x977c // 0xa0d @0x0
0x0a0d…0a25 lno = 0x03de // 0xa0f @0x2
0x0a0d…0a25 at0004 = ╱9d╱ EXEC ╱ // 0xa11 @0x4
0x0a0d…0a25 at0005 = ╱46╱F╱ // 0xa12 @0x5
0x0a0d…0a25 at0006 = ╱45╱E╱ // 0xa13 @0x6
0x0a0d…0a25 at0007 = ╱4a╱J╱ // 0xa14 @0x7
0x0a0d…0a25 at0008 = ╱4c╱L╱ // 0xa15 @0x8
0x0a0d…0a25 at0009 = ╱ed╱(╱ // 0xa16 @0x9
0x0a0d…0a25 at000a = ╱34╱4╱ // 0xa17 @0xa
0x0a0d…0a25 at000b = ╱fe00008003╱ // 0xa18 @0xb
0x0a0d…0a25 at0010 = ╱ec╱,╱ // 0xa1d @0x10
0x0a0d…0a25 at0011 = ╱47╱G╱ // 0xa1e @0x11
0x0a0d…0a25 at0012 = ╱ec╱,╱ // 0xa1f @0x12
0x0a0d…0a25 at0013 = ╱4b╱K╱ // 0xa20 @0x13
0x0a0d…0a25 at0014 = ╱34╱4╱ // 0xa21 @0x14
0x0a0d…0a25 at0015 = ╱ef╱$╱ // 0xa22 @0x15
0x0a0d…0a25 at0016 = ╱ee╱)╱ // 0xa23 @0x16
0x0a0d…0a25 at0017 = EOL // 0xa24 @0x17
0x0a0d…0a25 }
0x0a25…0a48 979f 1000 PUT K4$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x0a25…0a48 LineComalBin {
0x0a25…0a48 ptr = 0x979f // 0xa25 @0x0
0x0a25…0a48 lno = 0x03e8 // 0xa27 @0x2
0x0a25…0a48 at0004 = ╱aa╱ PUT ╱ // 0xa29 @0x4
0x0a25…0a48 at0005 = ╱4b╱K╱ // 0xa2a @0x5
0x0a25…0a48 at0006 = ╱34╱4╱ // 0xa2b @0x6
0x0a25…0a48 at0007 = ╱ef╱$╱ // 0xa2c @0x7
0x0a25…0a48 at0008 = ╱ec╱,╱ // 0xa2d @0x8
0x0a25…0a48 at0009 = ╱53╱S╱ // 0xa2e @0x9
0x0a25…0a48 at000a = ╱e2╱+╱ // 0xa2f @0xa
0x0a25…0a48 at000b = ╱56╱V╱ // 0xa30 @0xb
0x0a25…0a48 at000c = ╱f0╱:╱ // 0xa31 @0xc
0x0a25…0a48 at000d = ╱44╱D╱ // 0xa32 @0xd
0x0a25…0a48 at000e = ╱45╱E╱ // 0xa33 @0xe
0x0a25…0a48 at000f = ╱42╱B╱ // 0xa34 @0xf
0x0a25…0a48 at0010 = ╱42╱B╱ // 0xa35 @0x10
0x0a25…0a48 at0011 = ╱59╱Y╱ // 0xa36 @0x11
0x0a25…0a48 at0012 = ╱ef╱$╱ // 0xa37 @0x12
0x0a25…0a48 at0013 = ╱ec╱,╱ // 0xa38 @0x13
0x0a25…0a48 at0014 = ╱5d╱Å╱ // 0xa39 @0x14
0x0a25…0a48 at0015 = ╱52╱R╱ // 0xa3a @0x15
0x0a25…0a48 at0016 = ╱4b╱K╱ // 0xa3b @0x16
0x0a25…0a48 at0017 = ╱5c╱Ø╱ // 0xa3c @0x17
0x0a25…0a48 at0018 = ╱42╱B╱ // 0xa3d @0x18
0x0a25…0a48 at0019 = ╱ef╱$╱ // 0xa3e @0x19
0x0a25…0a48 at001a = ╱ec╱,╱ // 0xa3f @0x1a
0x0a25…0a48 at001b = ╱4d╱M╱ // 0xa40 @0x1b
0x0a25…0a48 at001c = ╱44╱D╱ // 0xa41 @0x1c
0x0a25…0a48 at001d = ╱4e╱N╱ // 0xa42 @0x1d
0x0a25…0a48 at001e = ╱4b╱K╱ // 0xa43 @0x1e
0x0a25…0a48 at001f = ╱5c╱Ø╱ // 0xa44 @0x1f
0x0a25…0a48 at0020 = ╱42╱B╱ // 0xa45 @0x20
0x0a25…0a48 at0021 = ╱ef╱$╱ // 0xa46 @0x21
0x0a25…0a48 at0022 = EOL // 0xa47 @0x22
0x0a25…0a48 }
0x0a48…0a60 97b7 1010 EXEC FEJL(4,V,K4$)
0x0a48…0a60 LineComalBin {
0x0a48…0a60 ptr = 0x97b7 // 0xa48 @0x0
0x0a48…0a60 lno = 0x03f2 // 0xa4a @0x2
0x0a48…0a60 at0004 = ╱9d╱ EXEC ╱ // 0xa4c @0x4
0x0a48…0a60 at0005 = ╱46╱F╱ // 0xa4d @0x5
0x0a48…0a60 at0006 = ╱45╱E╱ // 0xa4e @0x6
0x0a48…0a60 at0007 = ╱4a╱J╱ // 0xa4f @0x7
0x0a48…0a60 at0008 = ╱4c╱L╱ // 0xa50 @0x8
0x0a48…0a60 at0009 = ╱ed╱(╱ // 0xa51 @0x9
0x0a48…0a60 at000a = ╱34╱4╱ // 0xa52 @0xa
0x0a48…0a60 at000b = ╱fe00008003╱ // 0xa53 @0xb
0x0a48…0a60 at0010 = ╱ec╱,╱ // 0xa58 @0x10
0x0a48…0a60 at0011 = ╱56╱V╱ // 0xa59 @0x11
0x0a48…0a60 at0012 = ╱ec╱,╱ // 0xa5a @0x12
0x0a48…0a60 at0013 = ╱4b╱K╱ // 0xa5b @0x13
0x0a48…0a60 at0014 = ╱34╱4╱ // 0xa5c @0x14
0x0a48…0a60 at0015 = ╱ef╱$╱ // 0xa5d @0x15
0x0a48…0a60 at0016 = ╱ee╱)╱ // 0xa5e @0x16
0x0a48…0a60 at0017 = EOL // 0xa5f @0x17
0x0a48…0a60 }
0x0a60…0a66 97bd 1020 ENDPROC
0x0a60…0a66 LineComalBin {
0x0a60…0a66 ptr = 0x97bd // 0xa60 @0x0
0x0a60…0a66 lno = 0x03fc // 0xa62 @0x2
0x0a60…0a66 at0004 = ╱9f╱ ENDPROC ╱ // 0xa64 @0x4
0x0a60…0a66 at0005 = EOL // 0xa65 @0x5
0x0a60…0a66 }
0x0a66…0a7f 97d6 1030 PROC INDTAB1(Z,MANT5,L7)
0x0a66…0a7f LineComalBin {
0x0a66…0a7f ptr = 0x97d6 // 0xa66 @0x0
0x0a66…0a7f lno = 0x0406 // 0xa68 @0x2
0x0a66…0a7f at0004 = ╱9e╱ PROC ╱ // 0xa6a @0x4
0x0a66…0a7f at0005 = ╱49╱I╱ // 0xa6b @0x5
0x0a66…0a7f at0006 = ╱4e╱N╱ // 0xa6c @0x6
0x0a66…0a7f at0007 = ╱44╱D╱ // 0xa6d @0x7
0x0a66…0a7f at0008 = ╱54╱T╱ // 0xa6e @0x8
0x0a66…0a7f at0009 = ╱41╱A╱ // 0xa6f @0x9
0x0a66…0a7f at000a = ╱42╱B╱ // 0xa70 @0xa
0x0a66…0a7f at000b = ╱31╱1╱ // 0xa71 @0xb
0x0a66…0a7f at000c = ╱ed╱(╱ // 0xa72 @0xc
0x0a66…0a7f at000d = ╱5a╱Z╱ // 0xa73 @0xd
0x0a66…0a7f at000e = ╱ec╱,╱ // 0xa74 @0xe
0x0a66…0a7f at000f = ╱4d╱M╱ // 0xa75 @0xf
0x0a66…0a7f at0010 = ╱41╱A╱ // 0xa76 @0x10
0x0a66…0a7f at0011 = ╱4e╱N╱ // 0xa77 @0x11
0x0a66…0a7f at0012 = ╱54╱T╱ // 0xa78 @0x12
0x0a66…0a7f at0013 = ╱35╱5╱ // 0xa79 @0x13
0x0a66…0a7f at0014 = ╱ec╱,╱ // 0xa7a @0x14
0x0a66…0a7f at0015 = ╱4c╱L╱ // 0xa7b @0x15
0x0a66…0a7f at0016 = ╱37╱7╱ // 0xa7c @0x16
0x0a66…0a7f at0017 = ╱ee╱)╱ // 0xa7d @0x17
0x0a66…0a7f at0018 = EOL // 0xa7e @0x18
0x0a66…0a7f }
0x0a7f…0a96 97ed 1040 PIL1=MANT5 DIV 32
0x0a7f…0a96 LineComalBin {
0x0a7f…0a96 ptr = 0x97ed // 0xa7f @0x0
0x0a7f…0a96 lno = 0x0410 // 0xa81 @0x2
0x0a7f…0a96 at0004 = ╱50╱P╱ // 0xa83 @0x4
0x0a7f…0a96 at0005 = ╱49╱I╱ // 0xa84 @0x5
0x0a7f…0a96 at0006 = ╱4c╱L╱ // 0xa85 @0x6
0x0a7f…0a96 at0007 = ╱31╱1╱ // 0xa86 @0x7
0x0a7f…0a96 at0008 = ╱dc╱=╱ // 0xa87 @0x8
0x0a7f…0a96 at0009 = ╱4d╱M╱ // 0xa88 @0x9
0x0a7f…0a96 at000a = ╱41╱A╱ // 0xa89 @0xa
0x0a7f…0a96 at000b = ╱4e╱N╱ // 0xa8a @0xb
0x0a7f…0a96 at000c = ╱54╱T╱ // 0xa8b @0xc
0x0a7f…0a96 at000d = ╱35╱5╱ // 0xa8c @0xd
0x0a7f…0a96 at000e = ╱e7╱ DIV ╱ // 0xa8d @0xe
0x0a7f…0a96 at000f = ╱33╱3╱ // 0xa8e @0xf
0x0a7f…0a96 at0010 = ╱32╱2╱ // 0xa8f @0x10
0x0a7f…0a96 at0011 = ╱fe00008006╱ // 0xa90 @0x11
0x0a7f…0a96 at0016 = EOL // 0xa95 @0x16
0x0a7f…0a96 }
0x0a96…0aa4 97fb 1050 FOR I=E TO PIL1
0x0a96…0aa4 LineComalBin {
0x0a96…0aa4 ptr = 0x97fb // 0xa96 @0x0
0x0a96…0aa4 lno = 0x041a // 0xa98 @0x2
0x0a96…0aa4 at0004 = ╱83╱ FOR ╱ // 0xa9a @0x4
0x0a96…0aa4 at0005 = ╱49╱I╱ // 0xa9b @0x5
0x0a96…0aa4 at0006 = ╱dc╱=╱ // 0xa9c @0x6
0x0a96…0aa4 at0007 = ╱45╱E╱ // 0xa9d @0x7
0x0a96…0aa4 at0008 = ╱b7╱ TO ╱ // 0xa9e @0x8
0x0a96…0aa4 at0009 = ╱50╱P╱ // 0xa9f @0x9
0x0a96…0aa4 at000a = ╱49╱I╱ // 0xaa0 @0xa
0x0a96…0aa4 at000b = ╱4c╱L╱ // 0xaa1 @0xb
0x0a96…0aa4 at000c = ╱31╱1╱ // 0xaa2 @0xc
0x0a96…0aa4 at000d = EOL // 0xaa3 @0xd
0x0a96…0aa4 }
0x0aa4…0ab9 9810 1060 H=(I-E)*8+E
0x0aa4…0ab9 LineComalBin {
0x0aa4…0ab9 ptr = 0x9810 // 0xaa4 @0x0
0x0aa4…0ab9 lno = 0x0424 // 0xaa6 @0x2
0x0aa4…0ab9 at0004 = ╱48╱H╱ // 0xaa8 @0x4
0x0aa4…0ab9 at0005 = ╱dc╱=╱ // 0xaa9 @0x5
0x0aa4…0ab9 at0006 = ╱ed╱(╱ // 0xaaa @0x6
0x0aa4…0ab9 at0007 = ╱49╱I╱ // 0xaab @0x7
0x0aa4…0ab9 at0008 = ╱e3╱-╱ // 0xaac @0x8
0x0aa4…0ab9 at0009 = ╱45╱E╱ // 0xaad @0x9
0x0aa4…0ab9 at000a = ╱ee╱)╱ // 0xaae @0xa
0x0aa4…0ab9 at000b = ╱e4╱*╱ // 0xaaf @0xb
0x0aa4…0ab9 at000c = ╱38╱8╱ // 0xab0 @0xc
0x0aa4…0ab9 at000d = ╱fe00008004╱ // 0xab1 @0xd
0x0aa4…0ab9 at0012 = ╱e2╱+╱ // 0xab6 @0x12
0x0aa4…0ab9 at0013 = ╱45╱E╱ // 0xab7 @0x13
0x0aa4…0ab9 at0014 = EOL // 0xab8 @0x14
0x0aa4…0ab9 }
0x0ab9…0b0e 9865 1070 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)
0x0ab9…0b0e LineComalBin {
0x0ab9…0b0e ptr = 0x9865 // 0xab9 @0x0
0x0ab9…0b0e lno = 0x042e // 0xabb @0x2
0x0ab9…0b0e at0004 = ╱a9╱ GET ╱ // 0xabd @0x4
0x0ab9…0b0e at0005 = ╱4c╱L╱ // 0xabe @0x5
0x0ab9…0b0e at0006 = ╱37╱7╱ // 0xabf @0x6
0x0ab9…0b0e at0007 = ╱ef╱$╱ // 0xac0 @0x7
0x0ab9…0b0e at0008 = ╱ec╱,╱ // 0xac1 @0x8
0x0ab9…0b0e at0009 = ╱49╱I╱ // 0xac2 @0x9
0x0ab9…0b0e at000a = ╱f0╱:╱ // 0xac3 @0xa
0x0ab9…0b0e at000b = ╱5a╱Z╱ // 0xac4 @0xb
0x0ab9…0b0e at000c = ╱ed╱(╱ // 0xac5 @0xc
0x0ab9…0b0e at000d = ╱48╱H╱ // 0xac6 @0xd
0x0ab9…0b0e at000e = ╱ee╱)╱ // 0xac7 @0xe
0x0ab9…0b0e at000f = ╱ec╱,╱ // 0xac8 @0xf
0x0ab9…0b0e at0010 = ╱5a╱Z╱ // 0xac9 @0x10
0x0ab9…0b0e at0011 = ╱ed╱(╱ // 0xaca @0x11
0x0ab9…0b0e at0012 = ╱48╱H╱ // 0xacb @0x12
0x0ab9…0b0e at0013 = ╱e2╱+╱ // 0xacc @0x13
0x0ab9…0b0e at0014 = ╱45╱E╱ // 0xacd @0x14
0x0ab9…0b0e at0015 = ╱ee╱)╱ // 0xace @0x15
0x0ab9…0b0e at0016 = ╱ec╱,╱ // 0xacf @0x16
0x0ab9…0b0e at0017 = ╱5a╱Z╱ // 0xad0 @0x17
0x0ab9…0b0e at0018 = ╱ed╱(╱ // 0xad1 @0x18
0x0ab9…0b0e at0019 = ╱48╱H╱ // 0xad2 @0x19
0x0ab9…0b0e at001a = ╱e2╱+╱ // 0xad3 @0x1a
0x0ab9…0b0e at001b = ╱47╱G╱ // 0xad4 @0x1b
0x0ab9…0b0e at001c = ╱ee╱)╱ // 0xad5 @0x1c
0x0ab9…0b0e at001d = ╱ec╱,╱ // 0xad6 @0x1d
0x0ab9…0b0e at001e = ╱5a╱Z╱ // 0xad7 @0x1e
0x0ab9…0b0e at001f = ╱ed╱(╱ // 0xad8 @0x1f
0x0ab9…0b0e at0020 = ╱48╱H╱ // 0xad9 @0x20
0x0ab9…0b0e at0021 = ╱e2╱+╱ // 0xada @0x21
0x0ab9…0b0e at0022 = ╱56╱V╱ // 0xadb @0x22
0x0ab9…0b0e at0023 = ╱ee╱)╱ // 0xadc @0x23
0x0ab9…0b0e at0024 = ╱ec╱,╱ // 0xadd @0x24
0x0ab9…0b0e at0025 = ╱5a╱Z╱ // 0xade @0x25
0x0ab9…0b0e at0026 = ╱ed╱(╱ // 0xadf @0x26
0x0ab9…0b0e at0027 = ╱48╱H╱ // 0xae0 @0x27
0x0ab9…0b0e at0028 = ╱e2╱+╱ // 0xae1 @0x28
0x0ab9…0b0e at0029 = ╱34╱4╱ // 0xae2 @0x29
0x0ab9…0b0e at002a = ╱fe00008003╱ // 0xae3 @0x2a
0x0ab9…0b0e at002f = ╱ee╱)╱ // 0xae8 @0x2f
0x0ab9…0b0e at0030 = ╱ec╱,╱ // 0xae9 @0x30
0x0ab9…0b0e at0031 = ╱5a╱Z╱ // 0xaea @0x31
0x0ab9…0b0e at0032 = ╱ed╱(╱ // 0xaeb @0x32
0x0ab9…0b0e at0033 = ╱48╱H╱ // 0xaec @0x33
0x0ab9…0b0e at0034 = ╱e2╱+╱ // 0xaed @0x34
0x0ab9…0b0e at0035 = ╱35╱5╱ // 0xaee @0x35
0x0ab9…0b0e at0036 = ╱fe0000a003╱ // 0xaef @0x36
0x0ab9…0b0e at003b = ╱ee╱)╱ // 0xaf4 @0x3b
0x0ab9…0b0e at003c = ╱ec╱,╱ // 0xaf5 @0x3c
0x0ab9…0b0e at003d = ╱5a╱Z╱ // 0xaf6 @0x3d
0x0ab9…0b0e at003e = ╱ed╱(╱ // 0xaf7 @0x3e
0x0ab9…0b0e at003f = ╱48╱H╱ // 0xaf8 @0x3f
0x0ab9…0b0e at0040 = ╱e2╱+╱ // 0xaf9 @0x40
0x0ab9…0b0e at0041 = ╱36╱6╱ // 0xafa @0x41
0x0ab9…0b0e at0042 = ╱fe0000c003╱ // 0xafb @0x42
0x0ab9…0b0e at0047 = ╱ee╱)╱ // 0xb00 @0x47
0x0ab9…0b0e at0048 = ╱ec╱,╱ // 0xb01 @0x48
0x0ab9…0b0e at0049 = ╱5a╱Z╱ // 0xb02 @0x49
0x0ab9…0b0e at004a = ╱ed╱(╱ // 0xb03 @0x4a
0x0ab9…0b0e at004b = ╱48╱H╱ // 0xb04 @0x4b
0x0ab9…0b0e at004c = ╱e2╱+╱ // 0xb05 @0x4c
0x0ab9…0b0e at004d = ╱37╱7╱ // 0xb06 @0x4d
0x0ab9…0b0e at004e = ╱fe0000e003╱ // 0xb07 @0x4e
0x0ab9…0b0e at0053 = ╱ee╱)╱ // 0xb0c @0x53
0x0ab9…0b0e at0054 = EOL // 0xb0d @0x54
0x0ab9…0b0e }
0x0b0e…0b21 9878 1080 EXEC FEJL(G,E,L7$)
0x0b0e…0b21 LineComalBin {
0x0b0e…0b21 ptr = 0x9878 // 0xb0e @0x0
0x0b0e…0b21 lno = 0x0438 // 0xb10 @0x2
0x0b0e…0b21 at0004 = ╱9d╱ EXEC ╱ // 0xb12 @0x4
0x0b0e…0b21 at0005 = ╱46╱F╱ // 0xb13 @0x5
0x0b0e…0b21 at0006 = ╱45╱E╱ // 0xb14 @0x6
0x0b0e…0b21 at0007 = ╱4a╱J╱ // 0xb15 @0x7
0x0b0e…0b21 at0008 = ╱4c╱L╱ // 0xb16 @0x8
0x0b0e…0b21 at0009 = ╱ed╱(╱ // 0xb17 @0x9
0x0b0e…0b21 at000a = ╱47╱G╱ // 0xb18 @0xa
0x0b0e…0b21 at000b = ╱ec╱,╱ // 0xb19 @0xb
0x0b0e…0b21 at000c = ╱45╱E╱ // 0xb1a @0xc
0x0b0e…0b21 at000d = ╱ec╱,╱ // 0xb1b @0xd
0x0b0e…0b21 at000e = ╱4c╱L╱ // 0xb1c @0xe
0x0b0e…0b21 at000f = ╱37╱7╱ // 0xb1d @0xf
0x0b0e…0b21 at0010 = ╱ef╱$╱ // 0xb1e @0x10
0x0b0e…0b21 at0011 = ╱ee╱)╱ // 0xb1f @0x11
0x0b0e…0b21 at0012 = EOL // 0xb20 @0x12
0x0b0e…0b21 }
0x0b21…0b28 (37,) 987f 1090 NEXT I
0x0b21…0b28 LineComalBin {
0x0b21…0b28 ptr = 0x987f // 0xb21 @0x0
0x0b21…0b28 lno = 0x0442 // 0xb23 @0x2
0x0b21…0b28 at0004 = ╱84╱ NEXT ╱ // 0xb25 @0x4
0x0b21…0b28 at0005 = ╱49╱I╱ // 0xb26 @0x5
0x0b21…0b28 at0006 = EOL // 0xb27 @0x6
0x0b21…0b28 }
0x0b28…0b2e 9885 1100 ENDPROC
0x0b28…0b2e LineComalBin {
0x0b28…0b2e ptr = 0x9885 // 0xb28 @0x0
0x0b28…0b2e lno = 0x044c // 0xb2a @0x2
0x0b28…0b2e at0004 = ╱9f╱ ENDPROC ╱ // 0xb2c @0x4
0x0b28…0b2e at0005 = EOL // 0xb2d @0x5
0x0b28…0b2e }
0x0b2e…0b3a 9891 1110 PROC SYSGEM
0x0b2e…0b3a LineComalBin {
0x0b2e…0b3a ptr = 0x9891 // 0xb2e @0x0
0x0b2e…0b3a lno = 0x0456 // 0xb30 @0x2
0x0b2e…0b3a at0004 = ╱9e╱ PROC ╱ // 0xb32 @0x4
0x0b2e…0b3a at0005 = ╱53╱S╱ // 0xb33 @0x5
0x0b2e…0b3a at0006 = ╱59╱Y╱ // 0xb34 @0x6
0x0b2e…0b3a at0007 = ╱53╱S╱ // 0xb35 @0x7
0x0b2e…0b3a at0008 = ╱47╱G╱ // 0xb36 @0x8
0x0b2e…0b3a at0009 = ╱45╱E╱ // 0xb37 @0x9
0x0b2e…0b3a at000a = ╱4d╱M╱ // 0xb38 @0xa
0x0b2e…0b3a at000b = EOL // 0xb39 @0xb
0x0b2e…0b3a }
0x0b3a…0b8d 98e4 1120 T1(E)=FAKTNR;T1(G)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT
0x0b3a…0b8d LineComalBin {
0x0b3a…0b8d ptr = 0x98e4 // 0xb3a @0x0
0x0b3a…0b8d lno = 0x0460 // 0xb3c @0x2
0x0b3a…0b8d at0004 = ╱54╱T╱ // 0xb3e @0x4
0x0b3a…0b8d at0005 = ╱31╱1╱ // 0xb3f @0x5
0x0b3a…0b8d at0006 = ╱ed╱(╱ // 0xb40 @0x6
0x0b3a…0b8d at0007 = ╱45╱E╱ // 0xb41 @0x7
0x0b3a…0b8d at0008 = ╱ee╱)╱ // 0xb42 @0x8
0x0b3a…0b8d at0009 = ╱dc╱=╱ // 0xb43 @0x9
0x0b3a…0b8d at000a = ╱46╱F╱ // 0xb44 @0xa
0x0b3a…0b8d at000b = ╱41╱A╱ // 0xb45 @0xb
0x0b3a…0b8d at000c = ╱4b╱K╱ // 0xb46 @0xc
0x0b3a…0b8d at000d = ╱54╱T╱ // 0xb47 @0xd
0x0b3a…0b8d at000e = ╱4e╱N╱ // 0xb48 @0xe
0x0b3a…0b8d at000f = ╱52╱R╱ // 0xb49 @0xf
0x0b3a…0b8d at0010 = ╱eb╱;╱ // 0xb4a @0x10
0x0b3a…0b8d at0011 = ╱54╱T╱ // 0xb4b @0x11
0x0b3a…0b8d at0012 = ╱31╱1╱ // 0xb4c @0x12
0x0b3a…0b8d at0013 = ╱ed╱(╱ // 0xb4d @0x13
0x0b3a…0b8d at0014 = ╱47╱G╱ // 0xb4e @0x14
0x0b3a…0b8d at0015 = ╱ee╱)╱ // 0xb4f @0x15
0x0b3a…0b8d at0016 = ╱dc╱=╱ // 0xb50 @0x16
0x0b3a…0b8d at0017 = ╱4b╱K╱ // 0xb51 @0x17
0x0b3a…0b8d at0018 = ╱52╱R╱ // 0xb52 @0x18
0x0b3a…0b8d at0019 = ╱45╱E╱ // 0xb53 @0x19
0x0b3a…0b8d at001a = ╱44╱D╱ // 0xb54 @0x1a
0x0b3a…0b8d at001b = ╱4e╱N╱ // 0xb55 @0x1b
0x0b3a…0b8d at001c = ╱52╱R╱ // 0xb56 @0x1c
0x0b3a…0b8d at001d = ╱eb╱;╱ // 0xb57 @0x1d
0x0b3a…0b8d at001e = ╱54╱T╱ // 0xb58 @0x1e
0x0b3a…0b8d at001f = ╱32╱2╱ // 0xb59 @0x1f
0x0b3a…0b8d at0020 = ╱ed╱(╱ // 0xb5a @0x20
0x0b3a…0b8d at0021 = ╱34╱4╱ // 0xb5b @0x21
0x0b3a…0b8d at0022 = ╱fe00008003╱ // 0xb5c @0x22
0x0b3a…0b8d at0027 = ╱ee╱)╱ // 0xb61 @0x27
0x0b3a…0b8d at0028 = ╱dc╱=╱ // 0xb62 @0x28
0x0b3a…0b8d at0029 = ╱41╱A╱ // 0xb63 @0x29
0x0b3a…0b8d at002a = ╱50╱P╱ // 0xb64 @0x2a
0x0b3a…0b8d at002b = ╱4f╱O╱ // 0xb65 @0x2b
0x0b3a…0b8d at002c = ╱53╱S╱ // 0xb66 @0x2c
0x0b3a…0b8d at002d = ╱54╱T╱ // 0xb67 @0x2d
0x0b3a…0b8d at002e = ╱45╱E╱ // 0xb68 @0x2e
0x0b3a…0b8d at002f = ╱52╱R╱ // 0xb69 @0x2f
0x0b3a…0b8d at0030 = ╱eb╱;╱ // 0xb6a @0x30
0x0b3a…0b8d at0031 = ╱54╱T╱ // 0xb6b @0x31
0x0b3a…0b8d at0032 = ╱32╱2╱ // 0xb6c @0x32
0x0b3a…0b8d at0033 = ╱ed╱(╱ // 0xb6d @0x33
0x0b3a…0b8d at0034 = ╱35╱5╱ // 0xb6e @0x34
0x0b3a…0b8d at0035 = ╱fe0000a003╱ // 0xb6f @0x35
0x0b3a…0b8d at003a = ╱ee╱)╱ // 0xb74 @0x3a
0x0b3a…0b8d at003b = ╱dc╱=╱ // 0xb75 @0x3b
0x0b3a…0b8d at003c = ╱41╱A╱ // 0xb76 @0x3c
0x0b3a…0b8d at003d = ╱4b╱K╱ // 0xb77 @0x3d
0x0b3a…0b8d at003e = ╱52╱R╱ // 0xb78 @0x3e
0x0b3a…0b8d at003f = ╱45╱E╱ // 0xb79 @0x3f
0x0b3a…0b8d at0040 = ╱44╱D╱ // 0xb7a @0x40
0x0b3a…0b8d at0041 = ╱eb╱;╱ // 0xb7b @0x41
0x0b3a…0b8d at0042 = ╱54╱T╱ // 0xb7c @0x42
0x0b3a…0b8d at0043 = ╱32╱2╱ // 0xb7d @0x43
0x0b3a…0b8d at0044 = ╱ed╱(╱ // 0xb7e @0x44
0x0b3a…0b8d at0045 = ╱36╱6╱ // 0xb7f @0x45
0x0b3a…0b8d at0046 = ╱fe0000c003╱ // 0xb80 @0x46
0x0b3a…0b8d at004b = ╱ee╱)╱ // 0xb85 @0x4b
0x0b3a…0b8d at004c = ╱dc╱=╱ // 0xb86 @0x4c
0x0b3a…0b8d at004d = ╱41╱A╱ // 0xb87 @0x4d
0x0b3a…0b8d at004e = ╱46╱F╱ // 0xb88 @0x4e
0x0b3a…0b8d at004f = ╱41╱A╱ // 0xb89 @0x4f
0x0b3a…0b8d at0050 = ╱4b╱K╱ // 0xb8a @0x50
0x0b3a…0b8d at0051 = ╱54╱T╱ // 0xb8b @0x51
0x0b3a…0b8d at0052 = EOL // 0xb8c @0x52
0x0b3a…0b8d }
0x0b8d…0bb6 990d 1130 T2(7)=AVKONTI;T2(8)=FJPOST
0x0b8d…0bb6 LineComalBin {
0x0b8d…0bb6 ptr = 0x990d // 0xb8d @0x0
0x0b8d…0bb6 lno = 0x046a // 0xb8f @0x2
0x0b8d…0bb6 at0004 = ╱54╱T╱ // 0xb91 @0x4
0x0b8d…0bb6 at0005 = ╱32╱2╱ // 0xb92 @0x5
0x0b8d…0bb6 at0006 = ╱ed╱(╱ // 0xb93 @0x6
0x0b8d…0bb6 at0007 = ╱37╱7╱ // 0xb94 @0x7
0x0b8d…0bb6 at0008 = ╱fe0000e003╱ // 0xb95 @0x8
0x0b8d…0bb6 at000d = ╱ee╱)╱ // 0xb9a @0xd
0x0b8d…0bb6 at000e = ╱dc╱=╱ // 0xb9b @0xe
0x0b8d…0bb6 at000f = ╱41╱A╱ // 0xb9c @0xf
0x0b8d…0bb6 at0010 = ╱56╱V╱ // 0xb9d @0x10
0x0b8d…0bb6 at0011 = ╱4b╱K╱ // 0xb9e @0x11
0x0b8d…0bb6 at0012 = ╱4f╱O╱ // 0xb9f @0x12
0x0b8d…0bb6 at0013 = ╱4e╱N╱ // 0xba0 @0x13
0x0b8d…0bb6 at0014 = ╱54╱T╱ // 0xba1 @0x14
0x0b8d…0bb6 at0015 = ╱49╱I╱ // 0xba2 @0x15
0x0b8d…0bb6 at0016 = ╱eb╱;╱ // 0xba3 @0x16
0x0b8d…0bb6 at0017 = ╱54╱T╱ // 0xba4 @0x17
0x0b8d…0bb6 at0018 = ╱32╱2╱ // 0xba5 @0x18
0x0b8d…0bb6 at0019 = ╱ed╱(╱ // 0xba6 @0x19
0x0b8d…0bb6 at001a = ╱38╱8╱ // 0xba7 @0x1a
0x0b8d…0bb6 at001b = ╱fe00008004╱ // 0xba8 @0x1b
0x0b8d…0bb6 at0020 = ╱ee╱)╱ // 0xbad @0x20
0x0b8d…0bb6 at0021 = ╱dc╱=╱ // 0xbae @0x21
0x0b8d…0bb6 at0022 = ╱46╱F╱ // 0xbaf @0x22
0x0b8d…0bb6 at0023 = ╱4a╱J╱ // 0xbb0 @0x23
0x0b8d…0bb6 at0024 = ╱50╱P╱ // 0xbb1 @0x24
0x0b8d…0bb6 at0025 = ╱4f╱O╱ // 0xbb2 @0x25
0x0b8d…0bb6 at0026 = ╱53╱S╱ // 0xbb3 @0x26
0x0b8d…0bb6 at0027 = ╱54╱T╱ // 0xbb4 @0x27
0x0b8d…0bb6 at0028 = EOL // 0xbb5 @0x28
0x0b8d…0bb6 }
0x0bb6…0bc1 9918 1140 OPEN K9$,W
0x0bb6…0bc1 LineComalBin {
0x0bb6…0bc1 ptr = 0x9918 // 0xbb6 @0x0
0x0bb6…0bc1 lno = 0x0474 // 0xbb8 @0x2
0x0bb6…0bc1 at0004 = ╱a7╱ OPEN ╱ // 0xbba @0x4
0x0bb6…0bc1 at0005 = ╱4b╱K╱ // 0xbbb @0x5
0x0bb6…0bc1 at0006 = ╱39╱9╱ // 0xbbc @0x6
0x0bb6…0bc1 at0007 = ╱ef╱$╱ // 0xbbd @0x7
0x0bb6…0bc1 at0008 = ╱ec╱,╱ // 0xbbe @0x8
0x0bb6…0bc1 at0009 = ╱57╱W╱ // 0xbbf @0x9
0x0bb6…0bc1 at000a = EOL // 0xbc0 @0xa
0x0bb6…0bc1 }
0x0bc1…0bd9 9930 1150 EXEC FEJL(8,E,K9$)
0x0bc1…0bd9 LineComalBin {
0x0bc1…0bd9 ptr = 0x9930 // 0xbc1 @0x0
0x0bc1…0bd9 lno = 0x047e // 0xbc3 @0x2
0x0bc1…0bd9 at0004 = ╱9d╱ EXEC ╱ // 0xbc5 @0x4
0x0bc1…0bd9 at0005 = ╱46╱F╱ // 0xbc6 @0x5
0x0bc1…0bd9 at0006 = ╱45╱E╱ // 0xbc7 @0x6
0x0bc1…0bd9 at0007 = ╱4a╱J╱ // 0xbc8 @0x7
0x0bc1…0bd9 at0008 = ╱4c╱L╱ // 0xbc9 @0x8
0x0bc1…0bd9 at0009 = ╱ed╱(╱ // 0xbca @0x9
0x0bc1…0bd9 at000a = ╱38╱8╱ // 0xbcb @0xa
0x0bc1…0bd9 at000b = ╱fe00008004╱ // 0xbcc @0xb
0x0bc1…0bd9 at0010 = ╱ec╱,╱ // 0xbd1 @0x10
0x0bc1…0bd9 at0011 = ╱45╱E╱ // 0xbd2 @0x11
0x0bc1…0bd9 at0012 = ╱ec╱,╱ // 0xbd3 @0x12
0x0bc1…0bd9 at0013 = ╱4b╱K╱ // 0xbd4 @0x13
0x0bc1…0bd9 at0014 = ╱39╱9╱ // 0xbd5 @0x14
0x0bc1…0bd9 at0015 = ╱ef╱$╱ // 0xbd6 @0x15
0x0bc1…0bd9 at0016 = ╱ee╱)╱ // 0xbd7 @0x16
0x0bc1…0bd9 at0017 = EOL // 0xbd8 @0x17
0x0bc1…0bd9 }
0x0bd9…0c33 998a 1160 PUT K9$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x0bd9…0c33 LineComalBin {
0x0bd9…0c33 ptr = 0x998a // 0xbd9 @0x0
0x0bd9…0c33 lno = 0x0488 // 0xbdb @0x2
0x0bd9…0c33 at0004 = ╱aa╱ PUT ╱ // 0xbdd @0x4
0x0bd9…0c33 at0005 = ╱4b╱K╱ // 0xbde @0x5
0x0bd9…0c33 at0006 = ╱39╱9╱ // 0xbdf @0x6
0x0bd9…0c33 at0007 = ╱ef╱$╱ // 0xbe0 @0x7
0x0bd9…0c33 at0008 = ╱ec╱,╱ // 0xbe1 @0x8
0x0bd9…0c33 at0009 = ╱47╱G╱ // 0xbe2 @0x9
0x0bd9…0c33 at000a = ╱f0╱:╱ // 0xbe3 @0xa
0x0bd9…0c33 at000b = ╱54╱T╱ // 0xbe4 @0xb
0x0bd9…0c33 at000c = ╱31╱1╱ // 0xbe5 @0xc
0x0bd9…0c33 at000d = ╱ed╱(╱ // 0xbe6 @0xd
0x0bd9…0c33 at000e = ╱45╱E╱ // 0xbe7 @0xe
0x0bd9…0c33 at000f = ╱ee╱)╱ // 0xbe8 @0xf
0x0bd9…0c33 at0010 = ╱ec╱,╱ // 0xbe9 @0x10
0x0bd9…0c33 at0011 = ╱54╱T╱ // 0xbea @0x11
0x0bd9…0c33 at0012 = ╱31╱1╱ // 0xbeb @0x12
0x0bd9…0c33 at0013 = ╱ed╱(╱ // 0xbec @0x13
0x0bd9…0c33 at0014 = ╱47╱G╱ // 0xbed @0x14
0x0bd9…0c33 at0015 = ╱ee╱)╱ // 0xbee @0x15
0x0bd9…0c33 at0016 = ╱ec╱,╱ // 0xbef @0x16
0x0bd9…0c33 at0017 = ╱54╱T╱ // 0xbf0 @0x17
0x0bd9…0c33 at0018 = ╱31╱1╱ // 0xbf1 @0x18
0x0bd9…0c33 at0019 = ╱ed╱(╱ // 0xbf2 @0x19
0x0bd9…0c33 at001a = ╱56╱V╱ // 0xbf3 @0x1a
0x0bd9…0c33 at001b = ╱ee╱)╱ // 0xbf4 @0x1b
0x0bd9…0c33 at001c = ╱ec╱,╱ // 0xbf5 @0x1c
0x0bd9…0c33 at001d = ╱54╱T╱ // 0xbf6 @0x1d
0x0bd9…0c33 at001e = ╱31╱1╱ // 0xbf7 @0x1e
0x0bd9…0c33 at001f = ╱ed╱(╱ // 0xbf8 @0x1f
0x0bd9…0c33 at0020 = ╱34╱4╱ // 0xbf9 @0x20
0x0bd9…0c33 at0021 = ╱fe00008003╱ // 0xbfa @0x21
0x0bd9…0c33 at0026 = ╱ee╱)╱ // 0xbff @0x26
0x0bd9…0c33 at0027 = ╱ec╱,╱ // 0xc00 @0x27
0x0bd9…0c33 at0028 = ╱54╱T╱ // 0xc01 @0x28
0x0bd9…0c33 at0029 = ╱31╱1╱ // 0xc02 @0x29
0x0bd9…0c33 at002a = ╱ed╱(╱ // 0xc03 @0x2a
0x0bd9…0c33 at002b = ╱35╱5╱ // 0xc04 @0x2b
0x0bd9…0c33 at002c = ╱fe0000a003╱ // 0xc05 @0x2c
0x0bd9…0c33 at0031 = ╱ee╱)╱ // 0xc0a @0x31
0x0bd9…0c33 at0032 = ╱ec╱,╱ // 0xc0b @0x32
0x0bd9…0c33 at0033 = ╱54╱T╱ // 0xc0c @0x33
0x0bd9…0c33 at0034 = ╱31╱1╱ // 0xc0d @0x34
0x0bd9…0c33 at0035 = ╱ed╱(╱ // 0xc0e @0x35
0x0bd9…0c33 at0036 = ╱36╱6╱ // 0xc0f @0x36
0x0bd9…0c33 at0037 = ╱fe0000c003╱ // 0xc10 @0x37
0x0bd9…0c33 at003c = ╱ee╱)╱ // 0xc15 @0x3c
0x0bd9…0c33 at003d = ╱ec╱,╱ // 0xc16 @0x3d
0x0bd9…0c33 at003e = ╱54╱T╱ // 0xc17 @0x3e
0x0bd9…0c33 at003f = ╱31╱1╱ // 0xc18 @0x3f
0x0bd9…0c33 at0040 = ╱ed╱(╱ // 0xc19 @0x40
0x0bd9…0c33 at0041 = ╱37╱7╱ // 0xc1a @0x41
0x0bd9…0c33 at0042 = ╱fe0000e003╱ // 0xc1b @0x42
0x0bd9…0c33 at0047 = ╱ee╱)╱ // 0xc20 @0x47
0x0bd9…0c33 at0048 = ╱ec╱,╱ // 0xc21 @0x48
0x0bd9…0c33 at0049 = ╱54╱T╱ // 0xc22 @0x49
0x0bd9…0c33 at004a = ╱31╱1╱ // 0xc23 @0x4a
0x0bd9…0c33 at004b = ╱ed╱(╱ // 0xc24 @0x4b
0x0bd9…0c33 at004c = ╱38╱8╱ // 0xc25 @0x4c
0x0bd9…0c33 at004d = ╱fe00008004╱ // 0xc26 @0x4d
0x0bd9…0c33 at0052 = ╱ee╱)╱ // 0xc2b @0x52
0x0bd9…0c33 at0053 = ╱ec╱,╱ // 0xc2c @0x53
0x0bd9…0c33 at0054 = ╱54╱T╱ // 0xc2d @0x54
0x0bd9…0c33 at0055 = ╱31╱1╱ // 0xc2e @0x55
0x0bd9…0c33 at0056 = ╱ed╱(╱ // 0xc2f @0x56
0x0bd9…0c33 at0057 = ╱57╱W╱ // 0xc30 @0x57
0x0bd9…0c33 at0058 = ╱ee╱)╱ // 0xc31 @0x58
0x0bd9…0c33 at0059 = EOL // 0xc32 @0x59
0x0bd9…0c33 }
0x0c33…0c4b 99a2 1170 EXEC FEJL(8,G,K9$)
0x0c33…0c4b LineComalBin {
0x0c33…0c4b ptr = 0x99a2 // 0xc33 @0x0
0x0c33…0c4b lno = 0x0492 // 0xc35 @0x2
0x0c33…0c4b at0004 = ╱9d╱ EXEC ╱ // 0xc37 @0x4
0x0c33…0c4b at0005 = ╱46╱F╱ // 0xc38 @0x5
0x0c33…0c4b at0006 = ╱45╱E╱ // 0xc39 @0x6
0x0c33…0c4b at0007 = ╱4a╱J╱ // 0xc3a @0x7
0x0c33…0c4b at0008 = ╱4c╱L╱ // 0xc3b @0x8
0x0c33…0c4b at0009 = ╱ed╱(╱ // 0xc3c @0x9
0x0c33…0c4b at000a = ╱38╱8╱ // 0xc3d @0xa
0x0c33…0c4b at000b = ╱fe00008004╱ // 0xc3e @0xb
0x0c33…0c4b at0010 = ╱ec╱,╱ // 0xc43 @0x10
0x0c33…0c4b at0011 = ╱47╱G╱ // 0xc44 @0x11
0x0c33…0c4b at0012 = ╱ec╱,╱ // 0xc45 @0x12
0x0c33…0c4b at0013 = ╱4b╱K╱ // 0xc46 @0x13
0x0c33…0c4b at0014 = ╱39╱9╱ // 0xc47 @0x14
0x0c33…0c4b at0015 = ╱ef╱$╱ // 0xc48 @0x15
0x0c33…0c4b at0016 = ╱ee╱)╱ // 0xc49 @0x16
0x0c33…0c4b at0017 = EOL // 0xc4a @0x17
0x0c33…0c4b }
0x0c4b…0cab 9a02 1180 PUT K9$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x0c4b…0cab LineComalBin {
0x0c4b…0cab ptr = 0x9a02 // 0xc4b @0x0
0x0c4b…0cab lno = 0x049c // 0xc4d @0x2
0x0c4b…0cab at0004 = ╱aa╱ PUT ╱ // 0xc4f @0x4
0x0c4b…0cab at0005 = ╱4b╱K╱ // 0xc50 @0x5
0x0c4b…0cab at0006 = ╱39╱9╱ // 0xc51 @0x6
0x0c4b…0cab at0007 = ╱ef╱$╱ // 0xc52 @0x7
0x0c4b…0cab at0008 = ╱ec╱,╱ // 0xc53 @0x8
0x0c4b…0cab at0009 = ╱31╱1╱ // 0xc54 @0x9
0x0c4b…0cab at000a = ╱32╱2╱ // 0xc55 @0xa
0x0c4b…0cab at000b = ╱fe0000c004╱ // 0xc56 @0xb
0x0c4b…0cab at0010 = ╱f0╱:╱ // 0xc5b @0x10
0x0c4b…0cab at0011 = ╱54╱T╱ // 0xc5c @0x11
0x0c4b…0cab at0012 = ╱32╱2╱ // 0xc5d @0x12
0x0c4b…0cab at0013 = ╱ed╱(╱ // 0xc5e @0x13
0x0c4b…0cab at0014 = ╱45╱E╱ // 0xc5f @0x14
0x0c4b…0cab at0015 = ╱ee╱)╱ // 0xc60 @0x15
0x0c4b…0cab at0016 = ╱ec╱,╱ // 0xc61 @0x16
0x0c4b…0cab at0017 = ╱54╱T╱ // 0xc62 @0x17
0x0c4b…0cab at0018 = ╱32╱2╱ // 0xc63 @0x18
0x0c4b…0cab at0019 = ╱ed╱(╱ // 0xc64 @0x19
0x0c4b…0cab at001a = ╱47╱G╱ // 0xc65 @0x1a
0x0c4b…0cab at001b = ╱ee╱)╱ // 0xc66 @0x1b
0x0c4b…0cab at001c = ╱ec╱,╱ // 0xc67 @0x1c
0x0c4b…0cab at001d = ╱54╱T╱ // 0xc68 @0x1d
0x0c4b…0cab at001e = ╱32╱2╱ // 0xc69 @0x1e
0x0c4b…0cab at001f = ╱ed╱(╱ // 0xc6a @0x1f
0x0c4b…0cab at0020 = ╱56╱V╱ // 0xc6b @0x20
0x0c4b…0cab at0021 = ╱ee╱)╱ // 0xc6c @0x21
0x0c4b…0cab at0022 = ╱ec╱,╱ // 0xc6d @0x22
0x0c4b…0cab at0023 = ╱54╱T╱ // 0xc6e @0x23
0x0c4b…0cab at0024 = ╱32╱2╱ // 0xc6f @0x24
0x0c4b…0cab at0025 = ╱ed╱(╱ // 0xc70 @0x25
0x0c4b…0cab at0026 = ╱34╱4╱ // 0xc71 @0x26
0x0c4b…0cab at0027 = ╱fe00008003╱ // 0xc72 @0x27
0x0c4b…0cab at002c = ╱ee╱)╱ // 0xc77 @0x2c
0x0c4b…0cab at002d = ╱ec╱,╱ // 0xc78 @0x2d
0x0c4b…0cab at002e = ╱54╱T╱ // 0xc79 @0x2e
0x0c4b…0cab at002f = ╱32╱2╱ // 0xc7a @0x2f
0x0c4b…0cab at0030 = ╱ed╱(╱ // 0xc7b @0x30
0x0c4b…0cab at0031 = ╱35╱5╱ // 0xc7c @0x31
0x0c4b…0cab at0032 = ╱fe0000a003╱ // 0xc7d @0x32
0x0c4b…0cab at0037 = ╱ee╱)╱ // 0xc82 @0x37
0x0c4b…0cab at0038 = ╱ec╱,╱ // 0xc83 @0x38
0x0c4b…0cab at0039 = ╱54╱T╱ // 0xc84 @0x39
0x0c4b…0cab at003a = ╱32╱2╱ // 0xc85 @0x3a
0x0c4b…0cab at003b = ╱ed╱(╱ // 0xc86 @0x3b
0x0c4b…0cab at003c = ╱36╱6╱ // 0xc87 @0x3c
0x0c4b…0cab at003d = ╱fe0000c003╱ // 0xc88 @0x3d
0x0c4b…0cab at0042 = ╱ee╱)╱ // 0xc8d @0x42
0x0c4b…0cab at0043 = ╱ec╱,╱ // 0xc8e @0x43
0x0c4b…0cab at0044 = ╱54╱T╱ // 0xc8f @0x44
0x0c4b…0cab at0045 = ╱32╱2╱ // 0xc90 @0x45
0x0c4b…0cab at0046 = ╱ed╱(╱ // 0xc91 @0x46
0x0c4b…0cab at0047 = ╱37╱7╱ // 0xc92 @0x47
0x0c4b…0cab at0048 = ╱fe0000e003╱ // 0xc93 @0x48
0x0c4b…0cab at004d = ╱ee╱)╱ // 0xc98 @0x4d
0x0c4b…0cab at004e = ╱ec╱,╱ // 0xc99 @0x4e
0x0c4b…0cab at004f = ╱54╱T╱ // 0xc9a @0x4f
0x0c4b…0cab at0050 = ╱32╱2╱ // 0xc9b @0x50
0x0c4b…0cab at0051 = ╱ed╱(╱ // 0xc9c @0x51
0x0c4b…0cab at0052 = ╱38╱8╱ // 0xc9d @0x52
0x0c4b…0cab at0053 = ╱fe00008004╱ // 0xc9e @0x53
0x0c4b…0cab at0058 = ╱ee╱)╱ // 0xca3 @0x58
0x0c4b…0cab at0059 = ╱ec╱,╱ // 0xca4 @0x59
0x0c4b…0cab at005a = ╱54╱T╱ // 0xca5 @0x5a
0x0c4b…0cab at005b = ╱32╱2╱ // 0xca6 @0x5b
0x0c4b…0cab at005c = ╱ed╱(╱ // 0xca7 @0x5c
0x0c4b…0cab at005d = ╱57╱W╱ // 0xca8 @0x5d
0x0c4b…0cab at005e = ╱ee╱)╱ // 0xca9 @0x5e
0x0c4b…0cab at005f = EOL // 0xcaa @0x5f
0x0c4b…0cab }
0x0cab…0cc3 9a1a 1190 EXEC FEJL(8,V,K9$)
0x0cab…0cc3 LineComalBin {
0x0cab…0cc3 ptr = 0x9a1a // 0xcab @0x0
0x0cab…0cc3 lno = 0x04a6 // 0xcad @0x2
0x0cab…0cc3 at0004 = ╱9d╱ EXEC ╱ // 0xcaf @0x4
0x0cab…0cc3 at0005 = ╱46╱F╱ // 0xcb0 @0x5
0x0cab…0cc3 at0006 = ╱45╱E╱ // 0xcb1 @0x6
0x0cab…0cc3 at0007 = ╱4a╱J╱ // 0xcb2 @0x7
0x0cab…0cc3 at0008 = ╱4c╱L╱ // 0xcb3 @0x8
0x0cab…0cc3 at0009 = ╱ed╱(╱ // 0xcb4 @0x9
0x0cab…0cc3 at000a = ╱38╱8╱ // 0xcb5 @0xa
0x0cab…0cc3 at000b = ╱fe00008004╱ // 0xcb6 @0xb
0x0cab…0cc3 at0010 = ╱ec╱,╱ // 0xcbb @0x10
0x0cab…0cc3 at0011 = ╱56╱V╱ // 0xcbc @0x11
0x0cab…0cc3 at0012 = ╱ec╱,╱ // 0xcbd @0x12
0x0cab…0cc3 at0013 = ╱4b╱K╱ // 0xcbe @0x13
0x0cab…0cc3 at0014 = ╱39╱9╱ // 0xcbf @0x14
0x0cab…0cc3 at0015 = ╱ef╱$╱ // 0xcc0 @0x15
0x0cab…0cc3 at0016 = ╱ee╱)╱ // 0xcc1 @0x16
0x0cab…0cc3 at0017 = EOL // 0xcc2 @0x17
0x0cab…0cc3 }
0x0cc3…0ccc 9a23 1200 CLOSE K9$
0x0cc3…0ccc LineComalBin {
0x0cc3…0ccc ptr = 0x9a23 // 0xcc3 @0x0
0x0cc3…0ccc lno = 0x04b0 // 0xcc5 @0x2
0x0cc3…0ccc at0004 = ╱a8╱ CLOSE ╱ // 0xcc7 @0x4
0x0cc3…0ccc at0005 = ╱4b╱K╱ // 0xcc8 @0x5
0x0cc3…0ccc at0006 = ╱39╱9╱ // 0xcc9 @0x6
0x0cc3…0ccc at0007 = ╱ef╱$╱ // 0xcca @0x7
0x0cc3…0ccc at0008 = EOL // 0xccb @0x8
0x0cc3…0ccc }
0x0ccc…0ce9 9a40 1210 EXEC FEJL(8,4,K9$)
0x0ccc…0ce9 LineComalBin {
0x0ccc…0ce9 ptr = 0x9a40 // 0xccc @0x0
0x0ccc…0ce9 lno = 0x04ba // 0xcce @0x2
0x0ccc…0ce9 at0004 = ╱9d╱ EXEC ╱ // 0xcd0 @0x4
0x0ccc…0ce9 at0005 = ╱46╱F╱ // 0xcd1 @0x5
0x0ccc…0ce9 at0006 = ╱45╱E╱ // 0xcd2 @0x6
0x0ccc…0ce9 at0007 = ╱4a╱J╱ // 0xcd3 @0x7
0x0ccc…0ce9 at0008 = ╱4c╱L╱ // 0xcd4 @0x8
0x0ccc…0ce9 at0009 = ╱ed╱(╱ // 0xcd5 @0x9
0x0ccc…0ce9 at000a = ╱38╱8╱ // 0xcd6 @0xa
0x0ccc…0ce9 at000b = ╱fe00008004╱ // 0xcd7 @0xb
0x0ccc…0ce9 at0010 = ╱ec╱,╱ // 0xcdc @0x10
0x0ccc…0ce9 at0011 = ╱34╱4╱ // 0xcdd @0x11
0x0ccc…0ce9 at0012 = ╱fe00008003╱ // 0xcde @0x12
0x0ccc…0ce9 at0017 = ╱ec╱,╱ // 0xce3 @0x17
0x0ccc…0ce9 at0018 = ╱4b╱K╱ // 0xce4 @0x18
0x0ccc…0ce9 at0019 = ╱39╱9╱ // 0xce5 @0x19
0x0ccc…0ce9 at001a = ╱ef╱$╱ // 0xce6 @0x1a
0x0ccc…0ce9 at001b = ╱ee╱)╱ // 0xce7 @0x1b
0x0ccc…0ce9 at001c = EOL // 0xce8 @0x1c
0x0ccc…0ce9 }
0x0ce9…0cef 9a46 1220 ENDPROC
0x0ce9…0cef LineComalBin {
0x0ce9…0cef ptr = 0x9a46 // 0xce9 @0x0
0x0ce9…0cef lno = 0x04c4 // 0xceb @0x2
0x0ce9…0cef at0004 = ╱9f╱ ENDPROC ╱ // 0xced @0x4
0x0ce9…0cef at0005 = EOL // 0xcee @0x5
0x0ce9…0cef }
0x0cef…0d1a (43,) 9a71 1230 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
0x0cef…0d1a LineComalBin {
0x0cef…0d1a ptr = 0x9a71 // 0xcef @0x0
0x0cef…0d1a lno = 0x04ce // 0xcf1 @0x2
0x0cef…0d1a at0004 = ╱9e╱ PROC ╱ // 0xcf3 @0x4
0x0cef…0d1a at0005 = ╱46╱F╱ // 0xcf4 @0x5
0x0cef…0d1a at0006 = ╱49╱I╱ // 0xcf5 @0x6
0x0cef…0d1a at0007 = ╱4e╱N╱ // 0xcf6 @0x7
0x0cef…0d1a at0008 = ╱44╱D╱ // 0xcf7 @0x8
0x0cef…0d1a at0009 = ╱50╱P╱ // 0xcf8 @0x9
0x0cef…0d1a at000a = ╱4f╱O╱ // 0xcf9 @0xa
0x0cef…0d1a at000b = ╱53╱S╱ // 0xcfa @0xb
0x0cef…0d1a at000c = ╱54╱T╱ // 0xcfb @0xc
0x0cef…0d1a at000d = ╱31╱1╱ // 0xcfc @0xd
0x0cef…0d1a at000e = ╱ed╱(╱ // 0xcfd @0xe
0x0cef…0d1a at000f = ╱54╱T╱ // 0xcfe @0xf
0x0cef…0d1a at0010 = ╱41╱A╱ // 0xcff @0x10
0x0cef…0d1a at0011 = ╱42╱B╱ // 0xd00 @0x11
0x0cef…0d1a at0012 = ╱34╱4╱ // 0xd01 @0x12
0x0cef…0d1a at0013 = ╱ec╱,╱ // 0xd02 @0x13
0x0cef…0d1a at0014 = ╱51╱Q╱ // 0xd03 @0x14
0x0cef…0d1a at0015 = ╱ec╱,╱ // 0xd04 @0x15
0x0cef…0d1a at0016 = ╱4d╱M╱ // 0xd05 @0x16
0x0cef…0d1a at0017 = ╱41╱A╱ // 0xd06 @0x17
0x0cef…0d1a at0018 = ╱4e╱N╱ // 0xd07 @0x18
0x0cef…0d1a at0019 = ╱54╱T╱ // 0xd08 @0x19
0x0cef…0d1a at001a = ╱32╱2╱ // 0xd09 @0x1a
0x0cef…0d1a at001b = ╱ec╱,╱ // 0xd0a @0x1b
0x0cef…0d1a at001c = ╱4e╱N╱ // 0xd0b @0x1c
0x0cef…0d1a at001d = ╱5c╱Ø╱ // 0xd0c @0x1d
0x0cef…0d1a at001e = ╱47╱G╱ // 0xd0d @0x1e
0x0cef…0d1a at001f = ╱4c╱L╱ // 0xd0e @0x1f
0x0cef…0d1a at0020 = ╱35╱5╱ // 0xd0f @0x20
0x0cef…0d1a at0021 = ╱ec╱,╱ // 0xd10 @0x21
0x0cef…0d1a at0022 = ╱50╱P╱ // 0xd11 @0x22
0x0cef…0d1a at0023 = ╱49╱I╱ // 0xd12 @0x23
0x0cef…0d1a at0024 = ╱4c╱L╱ // 0xd13 @0x24
0x0cef…0d1a at0025 = ╱36╱6╱ // 0xd14 @0x25
0x0cef…0d1a at0026 = ╱ec╱,╱ // 0xd15 @0x26
0x0cef…0d1a at0027 = ╱4c╱L╱ // 0xd16 @0x27
0x0cef…0d1a at0028 = ╱38╱8╱ // 0xd17 @0x28
0x0cef…0d1a at0029 = ╱ee╱)╱ // 0xd18 @0x29
0x0cef…0d1a at002a = EOL // 0xd19 @0x2a
0x0cef…0d1a }
0x0d1a…0d68 9abf 1240 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
0x0d1a…0d68 LineComalBin {
0x0d1a…0d68 ptr = 0x9abf // 0xd1a @0x0
0x0d1a…0d68 lno = 0x04d8 // 0xd1c @0x2
0x0d1a…0d68 at0004 = ╱50╱P╱ // 0xd1e @0x4
0x0d1a…0d68 at0005 = ╱49╱I╱ // 0xd1f @0x5
0x0d1a…0d68 at0006 = ╱4c╱L╱ // 0xd20 @0x6
0x0d1a…0d68 at0007 = ╱31╱1╱ // 0xd21 @0x7
0x0d1a…0d68 at0008 = ╱dc╱=╱ // 0xd22 @0x8
0x0d1a…0d68 at0009 = ╱4d╱M╱ // 0xd23 @0x9
0x0d1a…0d68 at000a = ╱41╱A╱ // 0xd24 @0xa
0x0d1a…0d68 at000b = ╱4e╱N╱ // 0xd25 @0xb
0x0d1a…0d68 at000c = ╱54╱T╱ // 0xd26 @0xc
0x0d1a…0d68 at000d = ╱32╱2╱ // 0xd27 @0xd
0x0d1a…0d68 at000e = ╱e7╱ DIV ╱ // 0xd28 @0xe
0x0d1a…0d68 at000f = ╱38╱8╱ // 0xd29 @0xf
0x0d1a…0d68 at0010 = ╱fe00008004╱ // 0xd2a @0x10
0x0d1a…0d68 at0015 = ╱eb╱;╱ // 0xd2f @0x15
0x0d1a…0d68 at0016 = ╱50╱P╱ // 0xd30 @0x16
0x0d1a…0d68 at0017 = ╱49╱I╱ // 0xd31 @0x17
0x0d1a…0d68 at0018 = ╱4c╱L╱ // 0xd32 @0x18
0x0d1a…0d68 at0019 = ╱36╱6╱ // 0xd33 @0x19
0x0d1a…0d68 at001a = ╱dc╱=╱ // 0xd34 @0x1a
0x0d1a…0d68 at001b = ╱50╱P╱ // 0xd35 @0x1b
0x0d1a…0d68 at001c = ╱49╱I╱ // 0xd36 @0x1c
0x0d1a…0d68 at001d = ╱4c╱L╱ // 0xd37 @0x1d
0x0d1a…0d68 at001e = ╱31╱1╱ // 0xd38 @0x1e
0x0d1a…0d68 at001f = ╱eb╱;╱ // 0xd39 @0x1f
0x0d1a…0d68 at0020 = ╱43╱C╱ // 0xd3a @0x20
0x0d1a…0d68 at0021 = ╱45╱E╱ // 0xd3b @0x21
0x0d1a…0d68 at0022 = ╱4b╱K╱ // 0xd3c @0x22
0x0d1a…0d68 at0023 = ╱53╱S╱ // 0xd3d @0x23
0x0d1a…0d68 at0024 = ╱dc╱=╱ // 0xd3e @0x24
0x0d1a…0d68 at0025 = ╱45╱E╱ // 0xd3f @0x25
0x0d1a…0d68 at0026 = ╱eb╱;╱ // 0xd40 @0x26
0x0d1a…0d68 at0027 = ╱4d╱M╱ // 0xd41 @0x27
0x0d1a…0d68 at0028 = ╱41╱A╱ // 0xd42 @0x28
0x0d1a…0d68 at0029 = ╱4e╱N╱ // 0xd43 @0x29
0x0d1a…0d68 at002a = ╱54╱T╱ // 0xd44 @0x2a
0x0d1a…0d68 at002b = ╱33╱3╱ // 0xd45 @0x2b
0x0d1a…0d68 at002c = ╱dc╱=╱ // 0xd46 @0x2c
0x0d1a…0d68 at002d = ╱4d╱M╱ // 0xd47 @0x2d
0x0d1a…0d68 at002e = ╱41╱A╱ // 0xd48 @0x2e
0x0d1a…0d68 at002f = ╱4e╱N╱ // 0xd49 @0x2f
0x0d1a…0d68 at0030 = ╱54╱T╱ // 0xd4a @0x30
0x0d1a…0d68 at0031 = ╱32╱2╱ // 0xd4b @0x31
0x0d1a…0d68 at0032 = ╱e7╱ DIV ╱ // 0xd4c @0x32
0x0d1a…0d68 at0033 = ╱34╱4╱ // 0xd4d @0x33
0x0d1a…0d68 at0034 = ╱fe00008003╱ // 0xd4e @0x34
0x0d1a…0d68 at0039 = ╱eb╱;╱ // 0xd53 @0x39
0x0d1a…0d68 at003a = ╱4d╱M╱ // 0xd54 @0x3a
0x0d1a…0d68 at003b = ╱41╱A╱ // 0xd55 @0x3b
0x0d1a…0d68 at003c = ╱4e╱N╱ // 0xd56 @0x3c
0x0d1a…0d68 at003d = ╱54╱T╱ // 0xd57 @0x3d
0x0d1a…0d68 at003e = ╱34╱4╱ // 0xd58 @0x3e
0x0d1a…0d68 at003f = ╱dc╱=╱ // 0xd59 @0x3f
0x0d1a…0d68 at0040 = ╱4d╱M╱ // 0xd5a @0x40
0x0d1a…0d68 at0041 = ╱41╱A╱ // 0xd5b @0x41
0x0d1a…0d68 at0042 = ╱4e╱N╱ // 0xd5c @0x42
0x0d1a…0d68 at0043 = ╱54╱T╱ // 0xd5d @0x43
0x0d1a…0d68 at0044 = ╱32╱2╱ // 0xd5e @0x44
0x0d1a…0d68 at0045 = ╱e7╱ DIV ╱ // 0xd5f @0x45
0x0d1a…0d68 at0046 = ╱33╱3╱ // 0xd60 @0x46
0x0d1a…0d68 at0047 = ╱32╱2╱ // 0xd61 @0x47
0x0d1a…0d68 at0048 = ╱fe00008006╱ // 0xd62 @0x48
0x0d1a…0d68 at004d = EOL // 0xd67 @0x4d
0x0d1a…0d68 }
0x0d68…0d6e 9ac5 1250 REPEAT
0x0d68…0d6e LineComalBin {
0x0d68…0d6e ptr = 0x9ac5 // 0xd68 @0x0
0x0d68…0d6e lno = 0x04e2 // 0xd6a @0x2
0x0d68…0d6e at0004 = ╱97╱ REPEAT ╱ // 0xd6c @0x4
0x0d68…0d6e at0005 = EOL // 0xd6d @0x5
0x0d68…0d6e }
0x0d6e…0d8d 9ae4 1260 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
0x0d6e…0d8d LineComalBin {
0x0d6e…0d8d ptr = 0x9ae4 // 0xd6e @0x0
0x0d6e…0d8d lno = 0x04ec // 0xd70 @0x2
0x0d6e…0d8d at0004 = ╱82╱ IF ╱ // 0xd72 @0x4
0x0d6e…0d8d at0005 = ╱4e╱N╱ // 0xd73 @0x5
0x0d6e…0d8d at0006 = ╱5c╱Ø╱ // 0xd74 @0x6
0x0d6e…0d8d at0007 = ╱47╱G╱ // 0xd75 @0x7
0x0d6e…0d8d at0008 = ╱4c╱L╱ // 0xd76 @0x8
0x0d6e…0d8d at0009 = ╱35╱5╱ // 0xd77 @0x9
0x0d6e…0d8d at000a = ╱dc╱=╱ // 0xd78 @0xa
0x0d6e…0d8d at000b = ╱54╱T╱ // 0xd79 @0xb
0x0d6e…0d8d at000c = ╱41╱A╱ // 0xd7a @0xc
0x0d6e…0d8d at000d = ╱42╱B╱ // 0xd7b @0xd
0x0d6e…0d8d at000e = ╱34╱4╱ // 0xd7c @0xe
0x0d6e…0d8d at000f = ╱ed╱(╱ // 0xd7d @0xf
0x0d6e…0d8d at0010 = ╱50╱P╱ // 0xd7e @0x10
0x0d6e…0d8d at0011 = ╱49╱I╱ // 0xd7f @0x11
0x0d6e…0d8d at0012 = ╱4c╱L╱ // 0xd80 @0x12
0x0d6e…0d8d at0013 = ╱36╱6╱ // 0xd81 @0x13
0x0d6e…0d8d at0014 = ╱ee╱)╱ // 0xd82 @0x14
0x0d6e…0d8d at0015 = ╱db╱ OR ╱ // 0xd83 @0x15
0x0d6e…0d8d at0016 = ╱50╱P╱ // 0xd84 @0x16
0x0d6e…0d8d at0017 = ╱49╱I╱ // 0xd85 @0x17
0x0d6e…0d8d at0018 = ╱4c╱L╱ // 0xd86 @0x18
0x0d6e…0d8d at0019 = ╱31╱1╱ // 0xd87 @0x19
0x0d6e…0d8d at001a = ╱dc╱=╱ // 0xd88 @0x1a
0x0d6e…0d8d at001b = ╱45╱E╱ // 0xd89 @0x1b
0x0d6e…0d8d at001c = ╱b6╱ THEN ╱ // 0xd8a @0x1c
0x0d6e…0d8d at001d = ╱99╱ EXIT ╱ // 0xd8b @0x1d
0x0d6e…0d8d at001e = EOL // 0xd8c @0x1e
0x0d6e…0d8d }
0x0d8d…0dc9 9b20 1270 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
0x0d8d…0dc9 LineComalBin {
0x0d8d…0dc9 ptr = 0x9b20 // 0xd8d @0x0
0x0d8d…0dc9 lno = 0x04f6 // 0xd8f @0x2
0x0d8d…0dc9 at0004 = ╱50╱P╱ // 0xd91 @0x4
0x0d8d…0dc9 at0005 = ╱49╱I╱ // 0xd92 @0x5
0x0d8d…0dc9 at0006 = ╱4c╱L╱ // 0xd93 @0x6
0x0d8d…0dc9 at0007 = ╱31╱1╱ // 0xd94 @0x7
0x0d8d…0dc9 at0008 = ╱dc╱=╱ // 0xd95 @0x8
0x0d8d…0dc9 at0009 = ╱ed╱(╱ // 0xd96 @0x9
0x0d8d…0dc9 at000a = ╱50╱P╱ // 0xd97 @0xa
0x0d8d…0dc9 at000b = ╱49╱I╱ // 0xd98 @0xb
0x0d8d…0dc9 at000c = ╱4c╱L╱ // 0xd99 @0xc
0x0d8d…0dc9 at000d = ╱31╱1╱ // 0xd9a @0xd
0x0d8d…0dc9 at000e = ╱e2╱+╱ // 0xd9b @0xe
0x0d8d…0dc9 at000f = ╱45╱E╱ // 0xd9c @0xf
0x0d8d…0dc9 at0010 = ╱ee╱)╱ // 0xd9d @0x10
0x0d8d…0dc9 at0011 = ╱e7╱ DIV ╱ // 0xd9e @0x11
0x0d8d…0dc9 at0012 = ╱47╱G╱ // 0xd9f @0x12
0x0d8d…0dc9 at0013 = ╱eb╱;╱ // 0xda0 @0x13
0x0d8d…0dc9 at0014 = ╱50╱P╱ // 0xda1 @0x14
0x0d8d…0dc9 at0015 = ╱49╱I╱ // 0xda2 @0x15
0x0d8d…0dc9 at0016 = ╱4c╱L╱ // 0xda3 @0x16
0x0d8d…0dc9 at0017 = ╱36╱6╱ // 0xda4 @0x17
0x0d8d…0dc9 at0018 = ╱dc╱=╱ // 0xda5 @0x18
0x0d8d…0dc9 at0019 = ╱50╱P╱ // 0xda6 @0x19
0x0d8d…0dc9 at001a = ╱49╱I╱ // 0xda7 @0x1a
0x0d8d…0dc9 at001b = ╱4c╱L╱ // 0xda8 @0x1b
0x0d8d…0dc9 at001c = ╱36╱6╱ // 0xda9 @0x1c
0x0d8d…0dc9 at001d = ╱e2╱+╱ // 0xdaa @0x1d
0x0d8d…0dc9 at001e = ╱50╱P╱ // 0xdab @0x1e
0x0d8d…0dc9 at001f = ╱49╱I╱ // 0xdac @0x1f
0x0d8d…0dc9 at0020 = ╱4c╱L╱ // 0xdad @0x20
0x0d8d…0dc9 at0021 = ╱31╱1╱ // 0xdae @0x21
0x0d8d…0dc9 at0022 = ╱e4╱*╱ // 0xdaf @0x22
0x0d8d…0dc9 at0023 = ╱ed╱(╱ // 0xdb0 @0x23
0x0d8d…0dc9 at0024 = ╱45╱E╱ // 0xdb1 @0x24
0x0d8d…0dc9 at0025 = ╱e3╱-╱ // 0xdb2 @0x25
0x0d8d…0dc9 at0026 = ╱47╱G╱ // 0xdb3 @0x26
0x0d8d…0dc9 at0027 = ╱e4╱*╱ // 0xdb4 @0x27
0x0d8d…0dc9 at0028 = ╱ed╱(╱ // 0xdb5 @0x28
0x0d8d…0dc9 at0029 = ╱4e╱N╱ // 0xdb6 @0x29
0x0d8d…0dc9 at002a = ╱5c╱Ø╱ // 0xdb7 @0x2a
0x0d8d…0dc9 at002b = ╱47╱G╱ // 0xdb8 @0x2b
0x0d8d…0dc9 at002c = ╱4c╱L╱ // 0xdb9 @0x2c
0x0d8d…0dc9 at002d = ╱35╱5╱ // 0xdba @0x2d
0x0d8d…0dc9 at002e = ╱dd╱<╱ // 0xdbb @0x2e
0x0d8d…0dc9 at002f = ╱54╱T╱ // 0xdbc @0x2f
0x0d8d…0dc9 at0030 = ╱41╱A╱ // 0xdbd @0x30
0x0d8d…0dc9 at0031 = ╱42╱B╱ // 0xdbe @0x31
0x0d8d…0dc9 at0032 = ╱34╱4╱ // 0xdbf @0x32
0x0d8d…0dc9 at0033 = ╱ed╱(╱ // 0xdc0 @0x33
0x0d8d…0dc9 at0034 = ╱50╱P╱ // 0xdc1 @0x34
0x0d8d…0dc9 at0035 = ╱49╱I╱ // 0xdc2 @0x35
0x0d8d…0dc9 at0036 = ╱4c╱L╱ // 0xdc3 @0x36
0x0d8d…0dc9 at0037 = ╱36╱6╱ // 0xdc4 @0x37
0x0d8d…0dc9 at0038 = ╱ee╱)╱ // 0xdc5 @0x38
0x0d8d…0dc9 at0039 = ╱ee╱)╱ // 0xdc6 @0x39
0x0d8d…0dc9 at003a = ╱ee╱)╱ // 0xdc7 @0x3a
0x0d8d…0dc9 at003b = EOL // 0xdc8 @0x3b
0x0d8d…0dc9 }
0x0dc9…0ddc 9b33 1280 IF PIL6<E THEN PIL6=E
0x0dc9…0ddc LineComalBin {
0x0dc9…0ddc ptr = 0x9b33 // 0xdc9 @0x0
0x0dc9…0ddc lno = 0x0500 // 0xdcb @0x2
0x0dc9…0ddc at0004 = ╱82╱ IF ╱ // 0xdcd @0x4
0x0dc9…0ddc at0005 = ╱50╱P╱ // 0xdce @0x5
0x0dc9…0ddc at0006 = ╱49╱I╱ // 0xdcf @0x6
0x0dc9…0ddc at0007 = ╱4c╱L╱ // 0xdd0 @0x7
0x0dc9…0ddc at0008 = ╱36╱6╱ // 0xdd1 @0x8
0x0dc9…0ddc at0009 = ╱dd╱<╱ // 0xdd2 @0x9
0x0dc9…0ddc at000a = ╱45╱E╱ // 0xdd3 @0xa
0x0dc9…0ddc at000b = ╱b6╱ THEN ╱ // 0xdd4 @0xb
0x0dc9…0ddc at000c = ╱50╱P╱ // 0xdd5 @0xc
0x0dc9…0ddc at000d = ╱49╱I╱ // 0xdd6 @0xd
0x0dc9…0ddc at000e = ╱4c╱L╱ // 0xdd7 @0xe
0x0dc9…0ddc at000f = ╱36╱6╱ // 0xdd8 @0xf
0x0dc9…0ddc at0010 = ╱dc╱=╱ // 0xdd9 @0x10
0x0dc9…0ddc at0011 = ╱45╱E╱ // 0xdda @0x11
0x0dc9…0ddc at0012 = EOL // 0xddb @0x12
0x0dc9…0ddc }
0x0ddc…0df7 9b4e 1290 IF PIL6>MANT3 THEN PIL6=MANT3
0x0ddc…0df7 LineComalBin {
0x0ddc…0df7 ptr = 0x9b4e // 0xddc @0x0
0x0ddc…0df7 lno = 0x050a // 0xdde @0x2
0x0ddc…0df7 at0004 = ╱82╱ IF ╱ // 0xde0 @0x4
0x0ddc…0df7 at0005 = ╱50╱P╱ // 0xde1 @0x5
0x0ddc…0df7 at0006 = ╱49╱I╱ // 0xde2 @0x6
0x0ddc…0df7 at0007 = ╱4c╱L╱ // 0xde3 @0x7
0x0ddc…0df7 at0008 = ╱36╱6╱ // 0xde4 @0x8
0x0ddc…0df7 at0009 = ╱de╱>╱ // 0xde5 @0x9
0x0ddc…0df7 at000a = ╱4d╱M╱ // 0xde6 @0xa
0x0ddc…0df7 at000b = ╱41╱A╱ // 0xde7 @0xb
0x0ddc…0df7 at000c = ╱4e╱N╱ // 0xde8 @0xc
0x0ddc…0df7 at000d = ╱54╱T╱ // 0xde9 @0xd
0x0ddc…0df7 at000e = ╱33╱3╱ // 0xdea @0xe
0x0ddc…0df7 at000f = ╱b6╱ THEN ╱ // 0xdeb @0xf
0x0ddc…0df7 at0010 = ╱50╱P╱ // 0xdec @0x10
0x0ddc…0df7 at0011 = ╱49╱I╱ // 0xded @0x11
0x0ddc…0df7 at0012 = ╱4c╱L╱ // 0xdee @0x12
0x0ddc…0df7 at0013 = ╱36╱6╱ // 0xdef @0x13
0x0ddc…0df7 at0014 = ╱dc╱=╱ // 0xdf0 @0x14
0x0ddc…0df7 at0015 = ╱4d╱M╱ // 0xdf1 @0x15
0x0ddc…0df7 at0016 = ╱41╱A╱ // 0xdf2 @0x16
0x0ddc…0df7 at0017 = ╱4e╱N╱ // 0xdf3 @0x17
0x0ddc…0df7 at0018 = ╱54╱T╱ // 0xdf4 @0x18
0x0ddc…0df7 at0019 = ╱33╱3╱ // 0xdf5 @0x19
0x0ddc…0df7 at001a = EOL // 0xdf6 @0x1a
0x0ddc…0df7 }
0x0df7…0e03 9b5a 1300 UNTIL PIL1=B
0x0df7…0e03 LineComalBin {
0x0df7…0e03 ptr = 0x9b5a // 0xdf7 @0x0
0x0df7…0e03 lno = 0x0514 // 0xdf9 @0x2
0x0df7…0e03 at0004 = ╱98╱ UNTIL ╱ // 0xdfb @0x4
0x0df7…0e03 at0005 = ╱50╱P╱ // 0xdfc @0x5
0x0df7…0e03 at0006 = ╱49╱I╱ // 0xdfd @0x6
0x0df7…0e03 at0007 = ╱4c╱L╱ // 0xdfe @0x7
0x0df7…0e03 at0008 = ╱31╱1╱ // 0xdff @0x8
0x0df7…0e03 at0009 = ╱dc╱=╱ // 0xe00 @0x9
0x0df7…0e03 at000a = ╱42╱B╱ // 0xe01 @0xa
0x0df7…0e03 at000b = EOL // 0xe02 @0xb
0x0df7…0e03 }
0x0e03…0e2e 9b85 1310 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
0x0e03…0e2e LineComalBin {
0x0e03…0e2e ptr = 0x9b85 // 0xe03 @0x0
0x0e03…0e2e lno = 0x051e // 0xe05 @0x2
0x0e03…0e2e at0004 = ╱82╱ IF ╱ // 0xe07 @0x4
0x0e03…0e2e at0005 = ╱54╱T╱ // 0xe08 @0x5
0x0e03…0e2e at0006 = ╱41╱A╱ // 0xe09 @0x6
0x0e03…0e2e at0007 = ╱42╱B╱ // 0xe0a @0x7
0x0e03…0e2e at0008 = ╱34╱4╱ // 0xe0b @0x8
0x0e03…0e2e at0009 = ╱ed╱(╱ // 0xe0c @0x9
0x0e03…0e2e at000a = ╱50╱P╱ // 0xe0d @0xa
0x0e03…0e2e at000b = ╱49╱I╱ // 0xe0e @0xb
0x0e03…0e2e at000c = ╱4c╱L╱ // 0xe0f @0xc
0x0e03…0e2e at000d = ╱36╱6╱ // 0xe10 @0xd
0x0e03…0e2e at000e = ╱ee╱)╱ // 0xe11 @0xe
0x0e03…0e2e at000f = ╱de╱>╱ // 0xe12 @0xf
0x0e03…0e2e at0010 = ╱4e╱N╱ // 0xe13 @0x10
0x0e03…0e2e at0011 = ╱5c╱Ø╱ // 0xe14 @0x11
0x0e03…0e2e at0012 = ╱47╱G╱ // 0xe15 @0x12
0x0e03…0e2e at0013 = ╱4c╱L╱ // 0xe16 @0x13
0x0e03…0e2e at0014 = ╱35╱5╱ // 0xe17 @0x14
0x0e03…0e2e at0015 = ╱b6╱ THEN ╱ // 0xe18 @0x15
0x0e03…0e2e at0016 = ╱50╱P╱ // 0xe19 @0x16
0x0e03…0e2e at0017 = ╱49╱I╱ // 0xe1a @0x17
0x0e03…0e2e at0018 = ╱4c╱L╱ // 0xe1b @0x18
0x0e03…0e2e at0019 = ╱36╱6╱ // 0xe1c @0x19
0x0e03…0e2e at001a = ╱dc╱=╱ // 0xe1d @0x1a
0x0e03…0e2e at001b = ╱50╱P╱ // 0xe1e @0x1b
0x0e03…0e2e at001c = ╱49╱I╱ // 0xe1f @0x1c
0x0e03…0e2e at001d = ╱4c╱L╱ // 0xe20 @0x1d
0x0e03…0e2e at001e = ╱36╱6╱ // 0xe21 @0x1e
0x0e03…0e2e at001f = ╱e3╱-╱ // 0xe22 @0x1f
0x0e03…0e2e at0020 = ╱45╱E╱ // 0xe23 @0x20
0x0e03…0e2e at0021 = ╱e4╱*╱ // 0xe24 @0x21
0x0e03…0e2e at0022 = ╱ed╱(╱ // 0xe25 @0x22
0x0e03…0e2e at0023 = ╱50╱P╱ // 0xe26 @0x23
0x0e03…0e2e at0024 = ╱49╱I╱ // 0xe27 @0x24
0x0e03…0e2e at0025 = ╱4c╱L╱ // 0xe28 @0x25
0x0e03…0e2e at0026 = ╱36╱6╱ // 0xe29 @0x26
0x0e03…0e2e at0027 = ╱de╱>╱ // 0xe2a @0x27
0x0e03…0e2e at0028 = ╱45╱E╱ // 0xe2b @0x28
0x0e03…0e2e at0029 = ╱ee╱)╱ // 0xe2c @0x29
0x0e03…0e2e at002a = EOL // 0xe2d @0x2a
0x0e03…0e2e }
0x0e2e…0e42 9b99 1320 PIL6=MANT4+PIL6
0x0e2e…0e42 LineComalBin {
0x0e2e…0e42 ptr = 0x9b99 // 0xe2e @0x0
0x0e2e…0e42 lno = 0x0528 // 0xe30 @0x2
0x0e2e…0e42 at0004 = ╱50╱P╱ // 0xe32 @0x4
0x0e2e…0e42 at0005 = ╱49╱I╱ // 0xe33 @0x5
0x0e2e…0e42 at0006 = ╱4c╱L╱ // 0xe34 @0x6
0x0e2e…0e42 at0007 = ╱36╱6╱ // 0xe35 @0x7
0x0e2e…0e42 at0008 = ╱dc╱=╱ // 0xe36 @0x8
0x0e2e…0e42 at0009 = ╱4d╱M╱ // 0xe37 @0x9
0x0e2e…0e42 at000a = ╱41╱A╱ // 0xe38 @0xa
0x0e2e…0e42 at000b = ╱4e╱N╱ // 0xe39 @0xb
0x0e2e…0e42 at000c = ╱54╱T╱ // 0xe3a @0xc
0x0e2e…0e42 at000d = ╱34╱4╱ // 0xe3b @0xd
0x0e2e…0e42 at000e = ╱e2╱+╱ // 0xe3c @0xe
0x0e2e…0e42 at000f = ╱50╱P╱ // 0xe3d @0xf
0x0e2e…0e42 at0010 = ╱49╱I╱ // 0xe3e @0x10
0x0e2e…0e42 at0011 = ╱4c╱L╱ // 0xe3f @0x11
0x0e2e…0e42 at0012 = ╱36╱6╱ // 0xe40 @0x12
0x0e2e…0e42 at0013 = EOL // 0xe41 @0x13
0x0e2e…0e42 }
0x0e42…0e92 9be9 1330 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)
0x0e42…0e92 LineComalBin {
0x0e42…0e92 ptr = 0x9be9 // 0xe42 @0x0
0x0e42…0e92 lno = 0x0532 // 0xe44 @0x2
0x0e42…0e92 at0004 = ╱a9╱ GET ╱ // 0xe46 @0x4
0x0e42…0e92 at0005 = ╱4c╱L╱ // 0xe47 @0x5
0x0e42…0e92 at0006 = ╱38╱8╱ // 0xe48 @0x6
0x0e42…0e92 at0007 = ╱ef╱$╱ // 0xe49 @0x7
0x0e42…0e92 at0008 = ╱ec╱,╱ // 0xe4a @0x8
0x0e42…0e92 at0009 = ╱50╱P╱ // 0xe4b @0x9
0x0e42…0e92 at000a = ╱49╱I╱ // 0xe4c @0xa
0x0e42…0e92 at000b = ╱4c╱L╱ // 0xe4d @0xb
0x0e42…0e92 at000c = ╱36╱6╱ // 0xe4e @0xc
0x0e42…0e92 at000d = ╱f0╱:╱ // 0xe4f @0xd
0x0e42…0e92 at000e = ╱51╱Q╱ // 0xe50 @0xe
0x0e42…0e92 at000f = ╱ed╱(╱ // 0xe51 @0xf
0x0e42…0e92 at0010 = ╱45╱E╱ // 0xe52 @0x10
0x0e42…0e92 at0011 = ╱ec╱,╱ // 0xe53 @0x11
0x0e42…0e92 at0012 = ╱45╱E╱ // 0xe54 @0x12
0x0e42…0e92 at0013 = ╱ee╱)╱ // 0xe55 @0x13
0x0e42…0e92 at0014 = ╱ec╱,╱ // 0xe56 @0x14
0x0e42…0e92 at0015 = ╱51╱Q╱ // 0xe57 @0x15
0x0e42…0e92 at0016 = ╱ed╱(╱ // 0xe58 @0x16
0x0e42…0e92 at0017 = ╱45╱E╱ // 0xe59 @0x17
0x0e42…0e92 at0018 = ╱ec╱,╱ // 0xe5a @0x18
0x0e42…0e92 at0019 = ╱47╱G╱ // 0xe5b @0x19
0x0e42…0e92 at001a = ╱ee╱)╱ // 0xe5c @0x1a
0x0e42…0e92 at001b = ╱ec╱,╱ // 0xe5d @0x1b
0x0e42…0e92 at001c = ╱51╱Q╱ // 0xe5e @0x1c
0x0e42…0e92 at001d = ╱ed╱(╱ // 0xe5f @0x1d
0x0e42…0e92 at001e = ╱47╱G╱ // 0xe60 @0x1e
0x0e42…0e92 at001f = ╱ec╱,╱ // 0xe61 @0x1f
0x0e42…0e92 at0020 = ╱45╱E╱ // 0xe62 @0x20
0x0e42…0e92 at0021 = ╱ee╱)╱ // 0xe63 @0x21
0x0e42…0e92 at0022 = ╱ec╱,╱ // 0xe64 @0x22
0x0e42…0e92 at0023 = ╱51╱Q╱ // 0xe65 @0x23
0x0e42…0e92 at0024 = ╱ed╱(╱ // 0xe66 @0x24
0x0e42…0e92 at0025 = ╱47╱G╱ // 0xe67 @0x25
0x0e42…0e92 at0026 = ╱ec╱,╱ // 0xe68 @0x26
0x0e42…0e92 at0027 = ╱47╱G╱ // 0xe69 @0x27
0x0e42…0e92 at0028 = ╱ee╱)╱ // 0xe6a @0x28
0x0e42…0e92 at0029 = ╱ec╱,╱ // 0xe6b @0x29
0x0e42…0e92 at002a = ╱51╱Q╱ // 0xe6c @0x2a
0x0e42…0e92 at002b = ╱ed╱(╱ // 0xe6d @0x2b
0x0e42…0e92 at002c = ╱56╱V╱ // 0xe6e @0x2c
0x0e42…0e92 at002d = ╱ec╱,╱ // 0xe6f @0x2d
0x0e42…0e92 at002e = ╱45╱E╱ // 0xe70 @0x2e
0x0e42…0e92 at002f = ╱ee╱)╱ // 0xe71 @0x2f
0x0e42…0e92 at0030 = ╱ec╱,╱ // 0xe72 @0x30
0x0e42…0e92 at0031 = ╱51╱Q╱ // 0xe73 @0x31
0x0e42…0e92 at0032 = ╱ed╱(╱ // 0xe74 @0x32
0x0e42…0e92 at0033 = ╱56╱V╱ // 0xe75 @0x33
0x0e42…0e92 at0034 = ╱ec╱,╱ // 0xe76 @0x34
0x0e42…0e92 at0035 = ╱47╱G╱ // 0xe77 @0x35
0x0e42…0e92 at0036 = ╱ee╱)╱ // 0xe78 @0x36
0x0e42…0e92 at0037 = ╱ec╱,╱ // 0xe79 @0x37
0x0e42…0e92 at0038 = ╱51╱Q╱ // 0xe7a @0x38
0x0e42…0e92 at0039 = ╱ed╱(╱ // 0xe7b @0x39
0x0e42…0e92 at003a = ╱34╱4╱ // 0xe7c @0x3a
0x0e42…0e92 at003b = ╱fe00008003╱ // 0xe7d @0x3b
0x0e42…0e92 at0040 = ╱ec╱,╱ // 0xe82 @0x40
0x0e42…0e92 at0041 = ╱45╱E╱ // 0xe83 @0x41
0x0e42…0e92 at0042 = ╱ee╱)╱ // 0xe84 @0x42
0x0e42…0e92 at0043 = ╱ec╱,╱ // 0xe85 @0x43
0x0e42…0e92 at0044 = ╱51╱Q╱ // 0xe86 @0x44
0x0e42…0e92 at0045 = ╱ed╱(╱ // 0xe87 @0x45
0x0e42…0e92 at0046 = ╱34╱4╱ // 0xe88 @0x46
0x0e42…0e92 at0047 = ╱fe00008003╱ // 0xe89 @0x47
0x0e42…0e92 at004c = ╱ec╱,╱ // 0xe8e @0x4c
0x0e42…0e92 at004d = ╱47╱G╱ // 0xe8f @0x4d
0x0e42…0e92 at004e = ╱ee╱)╱ // 0xe90 @0x4e
0x0e42…0e92 at004f = EOL // 0xe91 @0x4f
0x0e42…0e92 }
0x0e92…0ea5 9bfc 1340 EXEC FEJL(E,E,L8$)
0x0e92…0ea5 LineComalBin {
0x0e92…0ea5 ptr = 0x9bfc // 0xe92 @0x0
0x0e92…0ea5 lno = 0x053c // 0xe94 @0x2
0x0e92…0ea5 at0004 = ╱9d╱ EXEC ╱ // 0xe96 @0x4
0x0e92…0ea5 at0005 = ╱46╱F╱ // 0xe97 @0x5
0x0e92…0ea5 at0006 = ╱45╱E╱ // 0xe98 @0x6
0x0e92…0ea5 at0007 = ╱4a╱J╱ // 0xe99 @0x7
0x0e92…0ea5 at0008 = ╱4c╱L╱ // 0xe9a @0x8
0x0e92…0ea5 at0009 = ╱ed╱(╱ // 0xe9b @0x9
0x0e92…0ea5 at000a = ╱45╱E╱ // 0xe9c @0xa
0x0e92…0ea5 at000b = ╱ec╱,╱ // 0xe9d @0xb
0x0e92…0ea5 at000c = ╱45╱E╱ // 0xe9e @0xc
0x0e92…0ea5 at000d = ╱ec╱,╱ // 0xe9f @0xd
0x0e92…0ea5 at000e = ╱4c╱L╱ // 0xea0 @0xe
0x0e92…0ea5 at000f = ╱38╱8╱ // 0xea1 @0xf
0x0e92…0ea5 at0010 = ╱ef╱$╱ // 0xea2 @0x10
0x0e92…0ea5 at0011 = ╱ee╱)╱ // 0xea3 @0x11
0x0e92…0ea5 at0012 = EOL // 0xea4 @0x12
0x0e92…0ea5 }
0x0ea5…0eb8 9c0f 1350 FOR PIL6=E TO 4
0x0ea5…0eb8 LineComalBin {
0x0ea5…0eb8 ptr = 0x9c0f // 0xea5 @0x0
0x0ea5…0eb8 lno = 0x0546 // 0xea7 @0x2
0x0ea5…0eb8 at0004 = ╱83╱ FOR ╱ // 0xea9 @0x4
0x0ea5…0eb8 at0005 = ╱50╱P╱ // 0xeaa @0x5
0x0ea5…0eb8 at0006 = ╱49╱I╱ // 0xeab @0x6
0x0ea5…0eb8 at0007 = ╱4c╱L╱ // 0xeac @0x7
0x0ea5…0eb8 at0008 = ╱36╱6╱ // 0xead @0x8
0x0ea5…0eb8 at0009 = ╱dc╱=╱ // 0xeae @0x9
0x0ea5…0eb8 at000a = ╱45╱E╱ // 0xeaf @0xa
0x0ea5…0eb8 at000b = ╱b7╱ TO ╱ // 0xeb0 @0xb
0x0ea5…0eb8 at000c = ╱34╱4╱ // 0xeb1 @0xc
0x0ea5…0eb8 at000d = ╱fe00008003╱ // 0xeb2 @0xd
0x0ea5…0eb8 at0012 = EOL // 0xeb7 @0x12
0x0ea5…0eb8 }
0x0eb8…0ecf 9c26 1360 IF NØGL5=Q(PIL6,E) THEN EXIT
0x0eb8…0ecf LineComalBin {
0x0eb8…0ecf ptr = 0x9c26 // 0xeb8 @0x0
0x0eb8…0ecf lno = 0x0550 // 0xeba @0x2
0x0eb8…0ecf at0004 = ╱82╱ IF ╱ // 0xebc @0x4
0x0eb8…0ecf at0005 = ╱4e╱N╱ // 0xebd @0x5
0x0eb8…0ecf at0006 = ╱5c╱Ø╱ // 0xebe @0x6
0x0eb8…0ecf at0007 = ╱47╱G╱ // 0xebf @0x7
0x0eb8…0ecf at0008 = ╱4c╱L╱ // 0xec0 @0x8
0x0eb8…0ecf at0009 = ╱35╱5╱ // 0xec1 @0x9
0x0eb8…0ecf at000a = ╱dc╱=╱ // 0xec2 @0xa
0x0eb8…0ecf at000b = ╱51╱Q╱ // 0xec3 @0xb
0x0eb8…0ecf at000c = ╱ed╱(╱ // 0xec4 @0xc
0x0eb8…0ecf at000d = ╱50╱P╱ // 0xec5 @0xd
0x0eb8…0ecf at000e = ╱49╱I╱ // 0xec6 @0xe
0x0eb8…0ecf at000f = ╱4c╱L╱ // 0xec7 @0xf
0x0eb8…0ecf at0010 = ╱36╱6╱ // 0xec8 @0x10
0x0eb8…0ecf at0011 = ╱ec╱,╱ // 0xec9 @0x11
0x0eb8…0ecf at0012 = ╱45╱E╱ // 0xeca @0x12
0x0eb8…0ecf at0013 = ╱ee╱)╱ // 0xecb @0x13
0x0eb8…0ecf at0014 = ╱b6╱ THEN ╱ // 0xecc @0x14
0x0eb8…0ecf at0015 = ╱99╱ EXIT ╱ // 0xecd @0x15
0x0eb8…0ecf at0016 = EOL // 0xece @0x16
0x0eb8…0ecf }
0x0ecf…0ed9 9c30 1370 NEXT PIL6
0x0ecf…0ed9 LineComalBin {
0x0ecf…0ed9 ptr = 0x9c30 // 0xecf @0x0
0x0ecf…0ed9 lno = 0x055a // 0xed1 @0x2
0x0ecf…0ed9 at0004 = ╱84╱ NEXT ╱ // 0xed3 @0x4
0x0ecf…0ed9 at0005 = ╱50╱P╱ // 0xed4 @0x5
0x0ecf…0ed9 at0006 = ╱49╱I╱ // 0xed5 @0x6
0x0ecf…0ed9 at0007 = ╱4c╱L╱ // 0xed6 @0x7
0x0ecf…0ed9 at0008 = ╱36╱6╱ // 0xed7 @0x8
0x0ecf…0ed9 at0009 = EOL // 0xed8 @0x9
0x0ecf…0ed9 }
0x0ed9…0ef1 9c48 1380 IF PIL6<>5 THEN CEKS=B
0x0ed9…0ef1 LineComalBin {
0x0ed9…0ef1 ptr = 0x9c48 // 0xed9 @0x0
0x0ed9…0ef1 lno = 0x0564 // 0xedb @0x2
0x0ed9…0ef1 at0004 = ╱82╱ IF ╱ // 0xedd @0x4
0x0ed9…0ef1 at0005 = ╱50╱P╱ // 0xede @0x5
0x0ed9…0ef1 at0006 = ╱49╱I╱ // 0xedf @0x6
0x0ed9…0ef1 at0007 = ╱4c╱L╱ // 0xee0 @0x7
0x0ed9…0ef1 at0008 = ╱36╱6╱ // 0xee1 @0x8
0x0ed9…0ef1 at0009 = ╱e1╱<>╱ // 0xee2 @0x9
0x0ed9…0ef1 at000a = ╱35╱5╱ // 0xee3 @0xa
0x0ed9…0ef1 at000b = ╱fe0000a003╱ // 0xee4 @0xb
0x0ed9…0ef1 at0010 = ╱b6╱ THEN ╱ // 0xee9 @0x10
0x0ed9…0ef1 at0011 = ╱43╱C╱ // 0xeea @0x11
0x0ed9…0ef1 at0012 = ╱45╱E╱ // 0xeeb @0x12
0x0ed9…0ef1 at0013 = ╱4b╱K╱ // 0xeec @0x13
0x0ed9…0ef1 at0014 = ╱53╱S╱ // 0xeed @0x14
0x0ed9…0ef1 at0015 = ╱dc╱=╱ // 0xeee @0x15
0x0ed9…0ef1 at0016 = ╱42╱B╱ // 0xeef @0x16
0x0ed9…0ef1 at0017 = EOL // 0xef0 @0x17
0x0ed9…0ef1 }
0x0ef1…0ef7 9c4e 1390 ENDPROC
0x0ef1…0ef7 LineComalBin {
0x0ef1…0ef7 ptr = 0x9c4e // 0xef1 @0x0
0x0ef1…0ef7 lno = 0x056e // 0xef3 @0x2
0x0ef1…0ef7 at0004 = ╱9f╱ ENDPROC ╱ // 0xef5 @0x4
0x0ef1…0ef7 at0005 = EOL // 0xef6 @0x5
0x0ef1…0ef7 }
0x0ef7…0f04 9c5b 1400 PROC TABHENT
0x0ef7…0f04 LineComalBin {
0x0ef7…0f04 ptr = 0x9c5b // 0xef7 @0x0
0x0ef7…0f04 lno = 0x0578 // 0xef9 @0x2
0x0ef7…0f04 at0004 = ╱9e╱ PROC ╱ // 0xefb @0x4
0x0ef7…0f04 at0005 = ╱54╱T╱ // 0xefc @0x5
0x0ef7…0f04 at0006 = ╱41╱A╱ // 0xefd @0x6
0x0ef7…0f04 at0007 = ╱42╱B╱ // 0xefe @0x7
0x0ef7…0f04 at0008 = ╱48╱H╱ // 0xeff @0x8
0x0ef7…0f04 at0009 = ╱45╱E╱ // 0xf00 @0x9
0x0ef7…0f04 at000a = ╱4e╱N╱ // 0xf01 @0xa
0x0ef7…0f04 at000b = ╱54╱T╱ // 0xf02 @0xb
0x0ef7…0f04 at000c = EOL // 0xf03 @0xc
0x0ef7…0f04 }
0x0f04…0f0f 9c66 1410 OPEN K8$,R
0x0f04…0f0f LineComalBin {
0x0f04…0f0f ptr = 0x9c66 // 0xf04 @0x0
0x0f04…0f0f lno = 0x0582 // 0xf06 @0x2
0x0f04…0f0f at0004 = ╱a7╱ OPEN ╱ // 0xf08 @0x4
0x0f04…0f0f at0005 = ╱4b╱K╱ // 0xf09 @0x5
0x0f04…0f0f at0006 = ╱38╱8╱ // 0xf0a @0x6
0x0f04…0f0f at0007 = ╱ef╱$╱ // 0xf0b @0x7
0x0f04…0f0f at0008 = ╱ec╱,╱ // 0xf0c @0x8
0x0f04…0f0f at0009 = ╱52╱R╱ // 0xf0d @0x9
0x0f04…0f0f at000a = EOL // 0xf0e @0xa
0x0f04…0f0f }
0x0f0f…0f22 9c79 1420 EXEC FEJL(G,E,K8$)
0x0f0f…0f22 LineComalBin {
0x0f0f…0f22 ptr = 0x9c79 // 0xf0f @0x0
0x0f0f…0f22 lno = 0x058c // 0xf11 @0x2
0x0f0f…0f22 at0004 = ╱9d╱ EXEC ╱ // 0xf13 @0x4
0x0f0f…0f22 at0005 = ╱46╱F╱ // 0xf14 @0x5
0x0f0f…0f22 at0006 = ╱45╱E╱ // 0xf15 @0x6
0x0f0f…0f22 at0007 = ╱4a╱J╱ // 0xf16 @0x7
0x0f0f…0f22 at0008 = ╱4c╱L╱ // 0xf17 @0x8
0x0f0f…0f22 at0009 = ╱ed╱(╱ // 0xf18 @0x9
0x0f0f…0f22 at000a = ╱47╱G╱ // 0xf19 @0xa
0x0f0f…0f22 at000b = ╱ec╱,╱ // 0xf1a @0xb
0x0f0f…0f22 at000c = ╱45╱E╱ // 0xf1b @0xc
0x0f0f…0f22 at000d = ╱ec╱,╱ // 0xf1c @0xd
0x0f0f…0f22 at000e = ╱4b╱K╱ // 0xf1d @0xe
0x0f0f…0f22 at000f = ╱38╱8╱ // 0xf1e @0xf
0x0f0f…0f22 at0010 = ╱ef╱$╱ // 0xf1f @0x10
0x0f0f…0f22 at0011 = ╱ee╱)╱ // 0xf20 @0x11
0x0f0f…0f22 at0012 = EOL // 0xf21 @0x12
0x0f0f…0f22 }
0x0f22…0f33 9c8a 1430 FOR I=E TO AVKONTI
0x0f22…0f33 LineComalBin {
0x0f22…0f33 ptr = 0x9c8a // 0xf22 @0x0
0x0f22…0f33 lno = 0x0596 // 0xf24 @0x2
0x0f22…0f33 at0004 = ╱83╱ FOR ╱ // 0xf26 @0x4
0x0f22…0f33 at0005 = ╱49╱I╱ // 0xf27 @0x5
0x0f22…0f33 at0006 = ╱dc╱=╱ // 0xf28 @0x6
0x0f22…0f33 at0007 = ╱45╱E╱ // 0xf29 @0x7
0x0f22…0f33 at0008 = ╱b7╱ TO ╱ // 0xf2a @0x8
0x0f22…0f33 at0009 = ╱41╱A╱ // 0xf2b @0x9
0x0f22…0f33 at000a = ╱56╱V╱ // 0xf2c @0xa
0x0f22…0f33 at000b = ╱4b╱K╱ // 0xf2d @0xb
0x0f22…0f33 at000c = ╱4f╱O╱ // 0xf2e @0xc
0x0f22…0f33 at000d = ╱4e╱N╱ // 0xf2f @0xd
0x0f22…0f33 at000e = ╱54╱T╱ // 0xf30 @0xe
0x0f22…0f33 at000f = ╱49╱I╱ // 0xf31 @0xf
0x0f22…0f33 at0010 = EOL // 0xf32 @0x10
0x0f22…0f33 }
0x0f33…0f64 9cbb 1440 GET K8$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I)
0x0f33…0f64 LineComalBin {
0x0f33…0f64 ptr = 0x9cbb // 0xf33 @0x0
0x0f33…0f64 lno = 0x05a0 // 0xf35 @0x2
0x0f33…0f64 at0004 = ╱a9╱ GET ╱ // 0xf37 @0x4
0x0f33…0f64 at0005 = ╱4b╱K╱ // 0xf38 @0x5
0x0f33…0f64 at0006 = ╱38╱8╱ // 0xf39 @0x6
0x0f33…0f64 at0007 = ╱ef╱$╱ // 0xf3a @0x7
0x0f33…0f64 at0008 = ╱ec╱,╱ // 0xf3b @0x8
0x0f33…0f64 at0009 = ╱49╱I╱ // 0xf3c @0x9
0x0f33…0f64 at000a = ╱f0╱:╱ // 0xf3d @0xa
0x0f33…0f64 at000b = ╱56╱V╱ // 0xf3e @0xb
0x0f33…0f64 at000c = ╱4a╱J╱ // 0xf3f @0xc
0x0f33…0f64 at000d = ╱4f╱O╱ // 0xf40 @0xd
0x0f33…0f64 at000e = ╱55╱U╱ // 0xf41 @0xe
0x0f33…0f64 at000f = ╱52╱R╱ // 0xf42 @0xf
0x0f33…0f64 at0010 = ╱41╱A╱ // 0xf43 @0x10
0x0f33…0f64 at0011 = ╱52╱R╱ // 0xf44 @0x11
0x0f33…0f64 at0012 = ╱52╱R╱ // 0xf45 @0x12
0x0f33…0f64 at0013 = ╱ed╱(╱ // 0xf46 @0x13
0x0f33…0f64 at0014 = ╱49╱I╱ // 0xf47 @0x14
0x0f33…0f64 at0015 = ╱ee╱)╱ // 0xf48 @0x15
0x0f33…0f64 at0016 = ╱ec╱,╱ // 0xf49 @0x16
0x0f33…0f64 at0017 = ╱56╱V╱ // 0xf4a @0x17
0x0f33…0f64 at0018 = ╱42╱B╱ // 0xf4b @0x18
0x0f33…0f64 at0019 = ╱4a╱J╱ // 0xf4c @0x19
0x0f33…0f64 at001a = ╱4f╱O╱ // 0xf4d @0x1a
0x0f33…0f64 at001b = ╱55╱U╱ // 0xf4e @0x1b
0x0f33…0f64 at001c = ╱41╱A╱ // 0xf4f @0x1c
0x0f33…0f64 at001d = ╱52╱R╱ // 0xf50 @0x1d
0x0f33…0f64 at001e = ╱52╱R╱ // 0xf51 @0x1e
0x0f33…0f64 at001f = ╱ef╱$╱ // 0xf52 @0x1f
0x0f33…0f64 at0020 = ╱ed╱(╱ // 0xf53 @0x20
0x0f33…0f64 at0021 = ╱49╱I╱ // 0xf54 @0x21
0x0f33…0f64 at0022 = ╱ee╱)╱ // 0xf55 @0x22
0x0f33…0f64 at0023 = ╱ec╱,╱ // 0xf56 @0x23
0x0f33…0f64 at0024 = ╱56╱V╱ // 0xf57 @0x24
0x0f33…0f64 at0025 = ╱55╱U╱ // 0xf58 @0x25
0x0f33…0f64 at0026 = ╱4a╱J╱ // 0xf59 @0x26
0x0f33…0f64 at0027 = ╱4f╱O╱ // 0xf5a @0x27
0x0f33…0f64 at0028 = ╱55╱U╱ // 0xf5b @0x28
0x0f33…0f64 at0029 = ╱52╱R╱ // 0xf5c @0x29
0x0f33…0f64 at002a = ╱41╱A╱ // 0xf5d @0x2a
0x0f33…0f64 at002b = ╱52╱R╱ // 0xf5e @0x2b
0x0f33…0f64 at002c = ╱52╱R╱ // 0xf5f @0x2c
0x0f33…0f64 at002d = ╱ed╱(╱ // 0xf60 @0x2d
0x0f33…0f64 at002e = ╱49╱I╱ // 0xf61 @0x2e
0x0f33…0f64 at002f = ╱ee╱)╱ // 0xf62 @0x2f
0x0f33…0f64 at0030 = EOL // 0xf63 @0x30
0x0f33…0f64 }
0x0f64…0f77 9cce 1450 EXEC FEJL(G,G,K8$)
0x0f64…0f77 LineComalBin {
0x0f64…0f77 ptr = 0x9cce // 0xf64 @0x0
0x0f64…0f77 lno = 0x05aa // 0xf66 @0x2
0x0f64…0f77 at0004 = ╱9d╱ EXEC ╱ // 0xf68 @0x4
0x0f64…0f77 at0005 = ╱46╱F╱ // 0xf69 @0x5
0x0f64…0f77 at0006 = ╱45╱E╱ // 0xf6a @0x6
0x0f64…0f77 at0007 = ╱4a╱J╱ // 0xf6b @0x7
0x0f64…0f77 at0008 = ╱4c╱L╱ // 0xf6c @0x8
0x0f64…0f77 at0009 = ╱ed╱(╱ // 0xf6d @0x9
0x0f64…0f77 at000a = ╱47╱G╱ // 0xf6e @0xa
0x0f64…0f77 at000b = ╱ec╱,╱ // 0xf6f @0xb
0x0f64…0f77 at000c = ╱47╱G╱ // 0xf70 @0xc
0x0f64…0f77 at000d = ╱ec╱,╱ // 0xf71 @0xd
0x0f64…0f77 at000e = ╱4b╱K╱ // 0xf72 @0xe
0x0f64…0f77 at000f = ╱38╱8╱ // 0xf73 @0xf
0x0f64…0f77 at0010 = ╱ef╱$╱ // 0xf74 @0x10
0x0f64…0f77 at0011 = ╱ee╱)╱ // 0xf75 @0x11
0x0f64…0f77 at0012 = EOL // 0xf76 @0x12
0x0f64…0f77 }
0x0f77…0f7e 9cd5 1460 NEXT I
0x0f77…0f7e LineComalBin {
0x0f77…0f7e ptr = 0x9cd5 // 0xf77 @0x0
0x0f77…0f7e lno = 0x05b4 // 0xf79 @0x2
0x0f77…0f7e at0004 = ╱84╱ NEXT ╱ // 0xf7b @0x4
0x0f77…0f7e at0005 = ╱49╱I╱ // 0xf7c @0x5
0x0f77…0f7e at0006 = EOL // 0xf7d @0x6
0x0f77…0f7e }
0x0f7e…0f87 9cde 1470 CLOSE K8$
0x0f7e…0f87 LineComalBin {
0x0f7e…0f87 ptr = 0x9cde // 0xf7e @0x0
0x0f7e…0f87 lno = 0x05be // 0xf80 @0x2
0x0f7e…0f87 at0004 = ╱a8╱ CLOSE ╱ // 0xf82 @0x4
0x0f7e…0f87 at0005 = ╱4b╱K╱ // 0xf83 @0x5
0x0f7e…0f87 at0006 = ╱38╱8╱ // 0xf84 @0x6
0x0f7e…0f87 at0007 = ╱ef╱$╱ // 0xf85 @0x7
0x0f7e…0f87 at0008 = EOL // 0xf86 @0x8
0x0f7e…0f87 }
0x0f87…0f9a 9cf1 1480 EXEC FEJL(G,V,K8$)
0x0f87…0f9a LineComalBin {
0x0f87…0f9a ptr = 0x9cf1 // 0xf87 @0x0
0x0f87…0f9a lno = 0x05c8 // 0xf89 @0x2
0x0f87…0f9a at0004 = ╱9d╱ EXEC ╱ // 0xf8b @0x4
0x0f87…0f9a at0005 = ╱46╱F╱ // 0xf8c @0x5
0x0f87…0f9a at0006 = ╱45╱E╱ // 0xf8d @0x6
0x0f87…0f9a at0007 = ╱4a╱J╱ // 0xf8e @0x7
0x0f87…0f9a at0008 = ╱4c╱L╱ // 0xf8f @0x8
0x0f87…0f9a at0009 = ╱ed╱(╱ // 0xf90 @0x9
0x0f87…0f9a at000a = ╱47╱G╱ // 0xf91 @0xa
0x0f87…0f9a at000b = ╱ec╱,╱ // 0xf92 @0xb
0x0f87…0f9a at000c = ╱56╱V╱ // 0xf93 @0xc
0x0f87…0f9a at000d = ╱ec╱,╱ // 0xf94 @0xd
0x0f87…0f9a at000e = ╱4b╱K╱ // 0xf95 @0xe
0x0f87…0f9a at000f = ╱38╱8╱ // 0xf96 @0xf
0x0f87…0f9a at0010 = ╱ef╱$╱ // 0xf97 @0x10
0x0f87…0f9a at0011 = ╱ee╱)╱ // 0xf98 @0x11
0x0f87…0f9a at0012 = EOL // 0xf99 @0x12
0x0f87…0f9a }
0x0f9a…0fa0 9cf7 1490 ENDPROC
0x0f9a…0fa0 LineComalBin {
0x0f9a…0fa0 ptr = 0x9cf7 // 0xf9a @0x0
0x0f9a…0fa0 lno = 0x05d2 // 0xf9c @0x2
0x0f9a…0fa0 at0004 = ╱9f╱ ENDPROC ╱ // 0xf9e @0x4
0x0f9a…0fa0 at0005 = EOL // 0xf9f @0x5
0x0f9a…0fa0 }
0x0fa0…0fae 9d05 1500 PROC TESTPRIN
0x0fa0…0fae LineComalBin {
0x0fa0…0fae ptr = 0x9d05 // 0xfa0 @0x0
0x0fa0…0fae lno = 0x05dc // 0xfa2 @0x2
0x0fa0…0fae at0004 = ╱9e╱ PROC ╱ // 0xfa4 @0x4
0x0fa0…0fae at0005 = ╱54╱T╱ // 0xfa5 @0x5
0x0fa0…0fae at0006 = ╱45╱E╱ // 0xfa6 @0x6
0x0fa0…0fae at0007 = ╱53╱S╱ // 0xfa7 @0x7
0x0fa0…0fae at0008 = ╱54╱T╱ // 0xfa8 @0x8
0x0fa0…0fae at0009 = ╱50╱P╱ // 0xfa9 @0x9
0x0fa0…0fae at000a = ╱52╱R╱ // 0xfaa @0xa
0x0fa0…0fae at000b = ╱49╱I╱ // 0xfab @0xb
0x0fa0…0fae at000c = ╱4e╱N╱ // 0xfac @0xc
0x0fa0…0fae at000d = EOL // 0xfad @0xd
0x0fa0…0fae }
0x0fae…0ff3 9d4a 1510 KR$="XXXXXXXXXXXXXXXXXXXXXXXXX";T$="XX.XXX.XXX,XX";D$="XX.XX.XX"
0x0fae…0ff3 LineComalBin {
0x0fae…0ff3 ptr = 0x9d4a // 0xfae @0x0
0x0fae…0ff3 lno = 0x05e6 // 0xfb0 @0x2
0x0fae…0ff3 at0004 = ╱4b╱K╱ // 0xfb2 @0x4
0x0fae…0ff3 at0005 = ╱52╱R╱ // 0xfb3 @0x5
0x0fae…0ff3 at0006 = ╱ef╱$╱ // 0xfb4 @0x6
0x0fae…0ff3 at0007 = ╱dc╱=╱ // 0xfb5 @0x7
0x0fae…0ff3 at0008 = ╱22╱"╱ // 0xfb6 @0x8
0x0fae…0ff3 at0009 = ╱58╱X╱ // 0xfb7 @0x9
0x0fae…0ff3 at000a = ╱58╱X╱ // 0xfb8 @0xa
0x0fae…0ff3 at000b = ╱58╱X╱ // 0xfb9 @0xb
0x0fae…0ff3 at000c = ╱58╱X╱ // 0xfba @0xc
0x0fae…0ff3 at000d = ╱58╱X╱ // 0xfbb @0xd
0x0fae…0ff3 at000e = ╱58╱X╱ // 0xfbc @0xe
0x0fae…0ff3 at000f = ╱58╱X╱ // 0xfbd @0xf
0x0fae…0ff3 at0010 = ╱58╱X╱ // 0xfbe @0x10
0x0fae…0ff3 at0011 = ╱58╱X╱ // 0xfbf @0x11
0x0fae…0ff3 at0012 = ╱58╱X╱ // 0xfc0 @0x12
0x0fae…0ff3 at0013 = ╱58╱X╱ // 0xfc1 @0x13
0x0fae…0ff3 at0014 = ╱58╱X╱ // 0xfc2 @0x14
0x0fae…0ff3 at0015 = ╱58╱X╱ // 0xfc3 @0x15
0x0fae…0ff3 at0016 = ╱58╱X╱ // 0xfc4 @0x16
0x0fae…0ff3 at0017 = ╱58╱X╱ // 0xfc5 @0x17
0x0fae…0ff3 at0018 = ╱58╱X╱ // 0xfc6 @0x18
0x0fae…0ff3 at0019 = ╱58╱X╱ // 0xfc7 @0x19
0x0fae…0ff3 at001a = ╱58╱X╱ // 0xfc8 @0x1a
0x0fae…0ff3 at001b = ╱58╱X╱ // 0xfc9 @0x1b
0x0fae…0ff3 at001c = ╱58╱X╱ // 0xfca @0x1c
0x0fae…0ff3 at001d = ╱58╱X╱ // 0xfcb @0x1d
0x0fae…0ff3 at001e = ╱58╱X╱ // 0xfcc @0x1e
0x0fae…0ff3 at001f = ╱58╱X╱ // 0xfcd @0x1f
0x0fae…0ff3 at0020 = ╱58╱X╱ // 0xfce @0x20
0x0fae…0ff3 at0021 = ╱58╱X╱ // 0xfcf @0x21
0x0fae…0ff3 at0022 = ╱22╱"╱ // 0xfd0 @0x22
0x0fae…0ff3 at0023 = ╱eb╱;╱ // 0xfd1 @0x23
0x0fae…0ff3 at0024 = ╱54╱T╱ // 0xfd2 @0x24
0x0fae…0ff3 at0025 = ╱ef╱$╱ // 0xfd3 @0x25
0x0fae…0ff3 at0026 = ╱dc╱=╱ // 0xfd4 @0x26
0x0fae…0ff3 at0027 = ╱22╱"╱ // 0xfd5 @0x27
0x0fae…0ff3 at0028 = ╱58╱X╱ // 0xfd6 @0x28
0x0fae…0ff3 at0029 = ╱58╱X╱ // 0xfd7 @0x29
0x0fae…0ff3 at002a = ╱2e╱.╱ // 0xfd8 @0x2a
0x0fae…0ff3 at002b = ╱58╱X╱ // 0xfd9 @0x2b
0x0fae…0ff3 at002c = ╱58╱X╱ // 0xfda @0x2c
0x0fae…0ff3 at002d = ╱58╱X╱ // 0xfdb @0x2d
0x0fae…0ff3 at002e = ╱2e╱.╱ // 0xfdc @0x2e
0x0fae…0ff3 at002f = ╱58╱X╱ // 0xfdd @0x2f
0x0fae…0ff3 at0030 = ╱58╱X╱ // 0xfde @0x30
0x0fae…0ff3 at0031 = ╱58╱X╱ // 0xfdf @0x31
0x0fae…0ff3 at0032 = ╱2c╱,╱ // 0xfe0 @0x32
0x0fae…0ff3 at0033 = ╱58╱X╱ // 0xfe1 @0x33
0x0fae…0ff3 at0034 = ╱58╱X╱ // 0xfe2 @0x34
0x0fae…0ff3 at0035 = ╱22╱"╱ // 0xfe3 @0x35
0x0fae…0ff3 at0036 = ╱eb╱;╱ // 0xfe4 @0x36
0x0fae…0ff3 at0037 = ╱44╱D╱ // 0xfe5 @0x37
0x0fae…0ff3 at0038 = ╱ef╱$╱ // 0xfe6 @0x38
0x0fae…0ff3 at0039 = ╱dc╱=╱ // 0xfe7 @0x39
0x0fae…0ff3 at003a = ╱22╱"╱ // 0xfe8 @0x3a
0x0fae…0ff3 at003b = ╱58╱X╱ // 0xfe9 @0x3b
0x0fae…0ff3 at003c = ╱58╱X╱ // 0xfea @0x3c
0x0fae…0ff3 at003d = ╱2e╱.╱ // 0xfeb @0x3d
0x0fae…0ff3 at003e = ╱58╱X╱ // 0xfec @0x3e
0x0fae…0ff3 at003f = ╱58╱X╱ // 0xfed @0x3f
0x0fae…0ff3 at0040 = ╱2e╱.╱ // 0xfee @0x40
0x0fae…0ff3 at0041 = ╱58╱X╱ // 0xfef @0x41
0x0fae…0ff3 at0042 = ╱58╱X╱ // 0xff0 @0x42
0x0fae…0ff3 at0043 = ╱22╱"╱ // 0xff1 @0x43
0x0fae…0ff3 at0044 = EOL // 0xff2 @0x44
0x0fae…0ff3 }
0x0ff3…0ffa 9d51 1520 OUTPUT P
0x0ff3…0ffa LineComalBin {
0x0ff3…0ffa ptr = 0x9d51 // 0xff3 @0x0
0x0ff3…0ffa lno = 0x05f0 // 0xff5 @0x2
0x0ff3…0ffa at0004 = ╱a5╱ OUTPUT ╱ // 0xff7 @0x4
0x0ff3…0ffa at0005 = ╱50╱P╱ // 0xff8 @0x5
0x0ff3…0ffa at0006 = EOL // 0xff9 @0x6
0x0ff3…0ffa }
0x0ffa…1010 9d67 1530 EXEC TOMLINIE(7)
0x0ffa…1010 LineComalBin {
0x0ffa…1010 ptr = 0x9d67 // 0xffa @0x0
0x0ffa…1010 lno = 0x05fa // 0xffc @0x2
0x0ffa…1010 at0004 = ╱9d╱ EXEC ╱ // 0xffe @0x4
0x0ffa…1010 at0005 = ╱54╱T╱ // 0xfff @0x5
0x0ffa…1010 at0006 = ╱4f╱O╱ // 0x1000 @0x6
0x0ffa…1010 at0007 = ╱4d╱M╱ // 0x1001 @0x7
0x0ffa…1010 at0008 = ╱4c╱L╱ // 0x1002 @0x8
0x0ffa…1010 at0009 = ╱49╱I╱ // 0x1003 @0x9
0x0ffa…1010 at000a = ╱4e╱N╱ // 0x1004 @0xa
0x0ffa…1010 at000b = ╱49╱I╱ // 0x1005 @0xb
0x0ffa…1010 at000c = ╱45╱E╱ // 0x1006 @0xc
0x0ffa…1010 at000d = ╱ed╱(╱ // 0x1007 @0xd
0x0ffa…1010 at000e = ╱37╱7╱ // 0x1008 @0xe
0x0ffa…1010 at000f = ╱fe0000e003╱ // 0x1009 @0xf
0x0ffa…1010 at0014 = ╱ee╱)╱ // 0x100e @0x14
0x0ffa…1010 at0015 = EOL // 0x100f @0x15
0x0ffa…1010 }
0x1010…102e 9d85 1540 PRINT TAB(67);KR$(E:6)
0x1010…102e LineComalBin {
0x1010…102e ptr = 0x9d85 // 0x1010 @0x0
0x1010…102e lno = 0x0604 // 0x1012 @0x2
0x1010…102e at0004 = ╱92╱ PRINT ╱ // 0x1014 @0x4
0x1010…102e at0005 = ╱d2╱TAB╱ // 0x1015 @0x5
0x1010…102e at0006 = ╱ed╱(╱ // 0x1016 @0x6
0x1010…102e at0007 = ╱36╱6╱ // 0x1017 @0x7
0x1010…102e at0008 = ╱37╱7╱ // 0x1018 @0x8
0x1010…102e at0009 = ╱fe00008607╱ // 0x1019 @0x9
0x1010…102e at000e = ╱ee╱)╱ // 0x101e @0xe
0x1010…102e at000f = ╱eb╱;╱ // 0x101f @0xf
0x1010…102e at0010 = ╱4b╱K╱ // 0x1020 @0x10
0x1010…102e at0011 = ╱52╱R╱ // 0x1021 @0x11
0x1010…102e at0012 = ╱ef╱$╱ // 0x1022 @0x12
0x1010…102e at0013 = ╱ed╱(╱ // 0x1023 @0x13
0x1010…102e at0014 = ╱45╱E╱ // 0x1024 @0x14
0x1010…102e at0015 = ╱f0╱:╱ // 0x1025 @0x15
0x1010…102e at0016 = ╱36╱6╱ // 0x1026 @0x16
0x1010…102e at0017 = ╱fe0000c003╱ // 0x1027 @0x17
0x1010…102e at001c = ╱ee╱)╱ // 0x102c @0x1c
0x1010…102e at001d = EOL // 0x102d @0x1d
0x1010…102e }
0x102e…103c 9d93 1550 PRINT TAB(W);KR$
0x102e…103c LineComalBin {
0x102e…103c ptr = 0x9d93 // 0x102e @0x0
0x102e…103c lno = 0x060e // 0x1030 @0x2
0x102e…103c at0004 = ╱92╱ PRINT ╱ // 0x1032 @0x4
0x102e…103c at0005 = ╱d2╱TAB╱ // 0x1033 @0x5
0x102e…103c at0006 = ╱ed╱(╱ // 0x1034 @0x6
0x102e…103c at0007 = ╱57╱W╱ // 0x1035 @0x7
0x102e…103c at0008 = ╱ee╱)╱ // 0x1036 @0x8
0x102e…103c at0009 = ╱eb╱;╱ // 0x1037 @0x9
0x102e…103c at000a = ╱4b╱K╱ // 0x1038 @0xa
0x102e…103c at000b = ╱52╱R╱ // 0x1039 @0xb
0x102e…103c at000c = ╱ef╱$╱ // 0x103a @0xc
0x102e…103c at000d = EOL // 0x103b @0xd
0x102e…103c }
0x103c…1063 9dba 1560 PRINT TAB(W);KR$;TAB(67);KR$(E:6)
0x103c…1063 LineComalBin {
0x103c…1063 ptr = 0x9dba // 0x103c @0x0
0x103c…1063 lno = 0x0618 // 0x103e @0x2
0x103c…1063 at0004 = ╱92╱ PRINT ╱ // 0x1040 @0x4
0x103c…1063 at0005 = ╱d2╱TAB╱ // 0x1041 @0x5
0x103c…1063 at0006 = ╱ed╱(╱ // 0x1042 @0x6
0x103c…1063 at0007 = ╱57╱W╱ // 0x1043 @0x7
0x103c…1063 at0008 = ╱ee╱)╱ // 0x1044 @0x8
0x103c…1063 at0009 = ╱eb╱;╱ // 0x1045 @0x9
0x103c…1063 at000a = ╱4b╱K╱ // 0x1046 @0xa
0x103c…1063 at000b = ╱52╱R╱ // 0x1047 @0xb
0x103c…1063 at000c = ╱ef╱$╱ // 0x1048 @0xc
0x103c…1063 at000d = ╱eb╱;╱ // 0x1049 @0xd
0x103c…1063 at000e = ╱d2╱TAB╱ // 0x104a @0xe
0x103c…1063 at000f = ╱ed╱(╱ // 0x104b @0xf
0x103c…1063 at0010 = ╱36╱6╱ // 0x104c @0x10
0x103c…1063 at0011 = ╱37╱7╱ // 0x104d @0x11
0x103c…1063 at0012 = ╱fe00008607╱ // 0x104e @0x12
0x103c…1063 at0017 = ╱ee╱)╱ // 0x1053 @0x17
0x103c…1063 at0018 = ╱eb╱;╱ // 0x1054 @0x18
0x103c…1063 at0019 = ╱4b╱K╱ // 0x1055 @0x19
0x103c…1063 at001a = ╱52╱R╱ // 0x1056 @0x1a
0x103c…1063 at001b = ╱ef╱$╱ // 0x1057 @0x1b
0x103c…1063 at001c = ╱ed╱(╱ // 0x1058 @0x1c
0x103c…1063 at001d = ╱45╱E╱ // 0x1059 @0x1d
0x103c…1063 at001e = ╱f0╱:╱ // 0x105a @0x1e
0x103c…1063 at001f = ╱36╱6╱ // 0x105b @0x1f
0x103c…1063 at0020 = ╱fe0000c003╱ // 0x105c @0x20
0x103c…1063 at0025 = ╱ee╱)╱ // 0x1061 @0x25
0x103c…1063 at0026 = EOL // 0x1062 @0x26
0x103c…1063 }
0x1063…1071 9dc8 1570 PRINT TAB(W);KR$
0x1063…1071 LineComalBin {
0x1063…1071 ptr = 0x9dc8 // 0x1063 @0x0
0x1063…1071 lno = 0x0622 // 0x1065 @0x2
0x1063…1071 at0004 = ╱92╱ PRINT ╱ // 0x1067 @0x4
0x1063…1071 at0005 = ╱d2╱TAB╱ // 0x1068 @0x5
0x1063…1071 at0006 = ╱ed╱(╱ // 0x1069 @0x6
0x1063…1071 at0007 = ╱57╱W╱ // 0x106a @0x7
0x1063…1071 at0008 = ╱ee╱)╱ // 0x106b @0x8
0x1063…1071 at0009 = ╱eb╱;╱ // 0x106c @0x9
0x1063…1071 at000a = ╱4b╱K╱ // 0x106d @0xa
0x1063…1071 at000b = ╱52╱R╱ // 0x106e @0xb
0x1063…1071 at000c = ╱ef╱$╱ // 0x106f @0xc
0x1063…1071 at000d = EOL // 0x1070 @0xd
0x1063…1071 }
0x1071…108d 9de4 1580 PRINT TAB(W);KR$;TAB(65);D$
0x1071…108d LineComalBin {
0x1071…108d ptr = 0x9de4 // 0x1071 @0x0
0x1071…108d lno = 0x062c // 0x1073 @0x2
0x1071…108d at0004 = ╱92╱ PRINT ╱ // 0x1075 @0x4
0x1071…108d at0005 = ╱d2╱TAB╱ // 0x1076 @0x5
0x1071…108d at0006 = ╱ed╱(╱ // 0x1077 @0x6
0x1071…108d at0007 = ╱57╱W╱ // 0x1078 @0x7
0x1071…108d at0008 = ╱ee╱)╱ // 0x1079 @0x8
0x1071…108d at0009 = ╱eb╱;╱ // 0x107a @0x9
0x1071…108d at000a = ╱4b╱K╱ // 0x107b @0xa
0x1071…108d at000b = ╱52╱R╱ // 0x107c @0xb
0x1071…108d at000c = ╱ef╱$╱ // 0x107d @0xc
0x1071…108d at000d = ╱eb╱;╱ // 0x107e @0xd
0x1071…108d at000e = ╱d2╱TAB╱ // 0x107f @0xe
0x1071…108d at000f = ╱ed╱(╱ // 0x1080 @0xf
0x1071…108d at0010 = ╱36╱6╱ // 0x1081 @0x10
0x1071…108d at0011 = ╱35╱5╱ // 0x1082 @0x11
0x1071…108d at0012 = ╱fe00008207╱ // 0x1083 @0x12
0x1071…108d at0017 = ╱ee╱)╱ // 0x1088 @0x17
0x1071…108d at0018 = ╱eb╱;╱ // 0x1089 @0x18
0x1071…108d at0019 = ╱44╱D╱ // 0x108a @0x19
0x1071…108d at001a = ╱ef╱$╱ // 0x108b @0x1a
0x1071…108d at001b = EOL // 0x108c @0x1b
0x1071…108d }
0x108d…109b 9df2 1590 PRINT TAB(W);KR$
0x108d…109b LineComalBin {
0x108d…109b ptr = 0x9df2 // 0x108d @0x0
0x108d…109b lno = 0x0636 // 0x108f @0x2
0x108d…109b at0004 = ╱92╱ PRINT ╱ // 0x1091 @0x4
0x108d…109b at0005 = ╱d2╱TAB╱ // 0x1092 @0x5
0x108d…109b at0006 = ╱ed╱(╱ // 0x1093 @0x6
0x108d…109b at0007 = ╱57╱W╱ // 0x1094 @0x7
0x108d…109b at0008 = ╱ee╱)╱ // 0x1095 @0x8
0x108d…109b at0009 = ╱eb╱;╱ // 0x1096 @0x9
0x108d…109b at000a = ╱4b╱K╱ // 0x1097 @0xa
0x108d…109b at000b = ╱52╱R╱ // 0x1098 @0xb
0x108d…109b at000c = ╱ef╱$╱ // 0x1099 @0xc
0x108d…109b at000d = EOL // 0x109a @0xd
0x108d…109b }
0x109b…10c2 9e19 1600 PRINT TAB(W);KR$;TAB(67);KR$(E:6)
0x109b…10c2 LineComalBin {
0x109b…10c2 ptr = 0x9e19 // 0x109b @0x0
0x109b…10c2 lno = 0x0640 // 0x109d @0x2
0x109b…10c2 at0004 = ╱92╱ PRINT ╱ // 0x109f @0x4
0x109b…10c2 at0005 = ╱d2╱TAB╱ // 0x10a0 @0x5
0x109b…10c2 at0006 = ╱ed╱(╱ // 0x10a1 @0x6
0x109b…10c2 at0007 = ╱57╱W╱ // 0x10a2 @0x7
0x109b…10c2 at0008 = ╱ee╱)╱ // 0x10a3 @0x8
0x109b…10c2 at0009 = ╱eb╱;╱ // 0x10a4 @0x9
0x109b…10c2 at000a = ╱4b╱K╱ // 0x10a5 @0xa
0x109b…10c2 at000b = ╱52╱R╱ // 0x10a6 @0xb
0x109b…10c2 at000c = ╱ef╱$╱ // 0x10a7 @0xc
0x109b…10c2 at000d = ╱eb╱;╱ // 0x10a8 @0xd
0x109b…10c2 at000e = ╱d2╱TAB╱ // 0x10a9 @0xe
0x109b…10c2 at000f = ╱ed╱(╱ // 0x10aa @0xf
0x109b…10c2 at0010 = ╱36╱6╱ // 0x10ab @0x10
0x109b…10c2 at0011 = ╱37╱7╱ // 0x10ac @0x11
0x109b…10c2 at0012 = ╱fe00008607╱ // 0x10ad @0x12
0x109b…10c2 at0017 = ╱ee╱)╱ // 0x10b2 @0x17
0x109b…10c2 at0018 = ╱eb╱;╱ // 0x10b3 @0x18
0x109b…10c2 at0019 = ╱4b╱K╱ // 0x10b4 @0x19
0x109b…10c2 at001a = ╱52╱R╱ // 0x10b5 @0x1a
0x109b…10c2 at001b = ╱ef╱$╱ // 0x10b6 @0x1b
0x109b…10c2 at001c = ╱ed╱(╱ // 0x10b7 @0x1c
0x109b…10c2 at001d = ╱45╱E╱ // 0x10b8 @0x1d
0x109b…10c2 at001e = ╱f0╱:╱ // 0x10b9 @0x1e
0x109b…10c2 at001f = ╱36╱6╱ // 0x10ba @0x1f
0x109b…10c2 at0020 = ╱fe0000c003╱ // 0x10bb @0x20
0x109b…10c2 at0025 = ╱ee╱)╱ // 0x10c0 @0x25
0x109b…10c2 at0026 = EOL // 0x10c1 @0x26
0x109b…10c2 }
0x10c2…10cb 9e22 1610 PRINT " "
0x10c2…10cb LineComalBin {
0x10c2…10cb ptr = 0x9e22 // 0x10c2 @0x0
0x10c2…10cb lno = 0x064a // 0x10c4 @0x2
0x10c2…10cb at0004 = ╱92╱ PRINT ╱ // 0x10c6 @0x4
0x10c2…10cb at0005 = ╱22╱"╱ // 0x10c7 @0x5
0x10c2…10cb at0006 = ╱20╱…╱ // 0x10c8 @0x6
0x10c2…10cb at0007 = ╱22╱"╱ // 0x10c9 @0x7
0x10c2…10cb at0008 = EOL // 0x10ca @0x8
0x10c2…10cb }
0x10cb…10de 9e35 1620 PRINT TAB(65);D$
0x10cb…10de LineComalBin {
0x10cb…10de ptr = 0x9e35 // 0x10cb @0x0
0x10cb…10de lno = 0x0654 // 0x10cd @0x2
0x10cb…10de at0004 = ╱92╱ PRINT ╱ // 0x10cf @0x4
0x10cb…10de at0005 = ╱d2╱TAB╱ // 0x10d0 @0x5
0x10cb…10de at0006 = ╱ed╱(╱ // 0x10d1 @0x6
0x10cb…10de at0007 = ╱36╱6╱ // 0x10d2 @0x7
0x10cb…10de at0008 = ╱35╱5╱ // 0x10d3 @0x8
0x10cb…10de at0009 = ╱fe00008207╱ // 0x10d4 @0x9
0x10cb…10de at000e = ╱ee╱)╱ // 0x10d9 @0xe
0x10cb…10de at000f = ╱eb╱;╱ // 0x10da @0xf
0x10cb…10de at0010 = ╱44╱D╱ // 0x10db @0x10
0x10cb…10de at0011 = ╱ef╱$╱ // 0x10dc @0x11
0x10cb…10de at0012 = EOL // 0x10dd @0x12
0x10cb…10de }
0x10de…10e7 9e3e 1630 PRINT " "
0x10de…10e7 LineComalBin {
0x10de…10e7 ptr = 0x9e3e // 0x10de @0x0
0x10de…10e7 lno = 0x065e // 0x10e0 @0x2
0x10de…10e7 at0004 = ╱92╱ PRINT ╱ // 0x10e2 @0x4
0x10de…10e7 at0005 = ╱22╱"╱ // 0x10e3 @0x5
0x10de…10e7 at0006 = ╱20╱…╱ // 0x10e4 @0x6
0x10de…10e7 at0007 = ╱22╱"╱ // 0x10e5 @0x7
0x10de…10e7 at0008 = EOL // 0x10e6 @0x8
0x10de…10e7 }
0x10e7…1104 9e5b 1640 PRINT TAB(19);KR$;KR$;"XX"
0x10e7…1104 LineComalBin {
0x10e7…1104 ptr = 0x9e5b // 0x10e7 @0x0
0x10e7…1104 lno = 0x0668 // 0x10e9 @0x2
0x10e7…1104 at0004 = ╱92╱ PRINT ╱ // 0x10eb @0x4
0x10e7…1104 at0005 = ╱d2╱TAB╱ // 0x10ec @0x5
0x10e7…1104 at0006 = ╱ed╱(╱ // 0x10ed @0x6
0x10e7…1104 at0007 = ╱31╱1╱ // 0x10ee @0x7
0x10e7…1104 at0008 = ╱39╱9╱ // 0x10ef @0x8
0x10e7…1104 at0009 = ╱fe00009805╱ // 0x10f0 @0x9
0x10e7…1104 at000e = ╱ee╱)╱ // 0x10f5 @0xe
0x10e7…1104 at000f = ╱eb╱;╱ // 0x10f6 @0xf
0x10e7…1104 at0010 = ╱4b╱K╱ // 0x10f7 @0x10
0x10e7…1104 at0011 = ╱52╱R╱ // 0x10f8 @0x11
0x10e7…1104 at0012 = ╱ef╱$╱ // 0x10f9 @0x12
0x10e7…1104 at0013 = ╱eb╱;╱ // 0x10fa @0x13
0x10e7…1104 at0014 = ╱4b╱K╱ // 0x10fb @0x14
0x10e7…1104 at0015 = ╱52╱R╱ // 0x10fc @0x15
0x10e7…1104 at0016 = ╱ef╱$╱ // 0x10fd @0x16
0x10e7…1104 at0017 = ╱eb╱;╱ // 0x10fe @0x17
0x10e7…1104 at0018 = ╱22╱"╱ // 0x10ff @0x18
0x10e7…1104 at0019 = ╱58╱X╱ // 0x1100 @0x19
0x10e7…1104 at001a = ╱58╱X╱ // 0x1101 @0x1a
0x10e7…1104 at001b = ╱22╱"╱ // 0x1102 @0x1b
0x10e7…1104 at001c = EOL // 0x1103 @0x1c
0x10e7…1104 }
0x1104…110d 9e64 1650 PRINT " "
0x1104…110d LineComalBin {
0x1104…110d ptr = 0x9e64 // 0x1104 @0x0
0x1104…110d lno = 0x0672 // 0x1106 @0x2
0x1104…110d at0004 = ╱92╱ PRINT ╱ // 0x1108 @0x4
0x1104…110d at0005 = ╱22╱"╱ // 0x1109 @0x5
0x1104…110d at0006 = ╱20╱…╱ // 0x110a @0x6
0x1104…110d at0007 = ╱22╱"╱ // 0x110b @0x7
0x1104…110d at0008 = EOL // 0x110c @0x8
0x1104…110d }
0x110d…1116 9e6d 1655 PRINT " "
0x110d…1116 LineComalBin {
0x110d…1116 ptr = 0x9e6d // 0x110d @0x0
0x110d…1116 lno = 0x0677 // 0x110f @0x2
0x110d…1116 at0004 = ╱92╱ PRINT ╱ // 0x1111 @0x4
0x110d…1116 at0005 = ╱22╱"╱ // 0x1112 @0x5
0x110d…1116 at0006 = ╱20╱…╱ // 0x1113 @0x6
0x110d…1116 at0007 = ╱22╱"╱ // 0x1114 @0x7
0x110d…1116 at0008 = EOL // 0x1115 @0x8
0x110d…1116 }
0x1116…1177 9ece 1660 PRINT TAB(8);KR$(E:6);TAB(16);KR$(E:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$
0x1116…1177 LineComalBin {
0x1116…1177 ptr = 0x9ece // 0x1116 @0x0
0x1116…1177 lno = 0x067c // 0x1118 @0x2
0x1116…1177 at0004 = ╱92╱ PRINT ╱ // 0x111a @0x4
0x1116…1177 at0005 = ╱d2╱TAB╱ // 0x111b @0x5
0x1116…1177 at0006 = ╱ed╱(╱ // 0x111c @0x6
0x1116…1177 at0007 = ╱38╱8╱ // 0x111d @0x7
0x1116…1177 at0008 = ╱fe00008004╱ // 0x111e @0x8
0x1116…1177 at000d = ╱ee╱)╱ // 0x1123 @0xd
0x1116…1177 at000e = ╱eb╱;╱ // 0x1124 @0xe
0x1116…1177 at000f = ╱4b╱K╱ // 0x1125 @0xf
0x1116…1177 at0010 = ╱52╱R╱ // 0x1126 @0x10
0x1116…1177 at0011 = ╱ef╱$╱ // 0x1127 @0x11
0x1116…1177 at0012 = ╱ed╱(╱ // 0x1128 @0x12
0x1116…1177 at0013 = ╱45╱E╱ // 0x1129 @0x13
0x1116…1177 at0014 = ╱f0╱:╱ // 0x112a @0x14
0x1116…1177 at0015 = ╱36╱6╱ // 0x112b @0x15
0x1116…1177 at0016 = ╱fe0000c003╱ // 0x112c @0x16
0x1116…1177 at001b = ╱ee╱)╱ // 0x1131 @0x1b
0x1116…1177 at001c = ╱eb╱;╱ // 0x1132 @0x1c
0x1116…1177 at001d = ╱d2╱TAB╱ // 0x1133 @0x1d
0x1116…1177 at001e = ╱ed╱(╱ // 0x1134 @0x1e
0x1116…1177 at001f = ╱31╱1╱ // 0x1135 @0x1f
0x1116…1177 at0020 = ╱36╱6╱ // 0x1136 @0x20
0x1116…1177 at0021 = ╱fe00008005╱ // 0x1137 @0x21
0x1116…1177 at0026 = ╱ee╱)╱ // 0x113c @0x26
0x1116…1177 at0027 = ╱eb╱;╱ // 0x113d @0x27
0x1116…1177 at0028 = ╱4b╱K╱ // 0x113e @0x28
0x1116…1177 at0029 = ╱52╱R╱ // 0x113f @0x29
0x1116…1177 at002a = ╱ef╱$╱ // 0x1140 @0x2a
0x1116…1177 at002b = ╱ed╱(╱ // 0x1141 @0x2b
0x1116…1177 at002c = ╱45╱E╱ // 0x1142 @0x2c
0x1116…1177 at002d = ╱f0╱:╱ // 0x1143 @0x2d
0x1116…1177 at002e = ╱35╱5╱ // 0x1144 @0x2e
0x1116…1177 at002f = ╱fe0000a003╱ // 0x1145 @0x2f
0x1116…1177 at0034 = ╱ee╱)╱ // 0x114a @0x34
0x1116…1177 at0035 = ╱eb╱;╱ // 0x114b @0x35
0x1116…1177 at0036 = ╱d2╱TAB╱ // 0x114c @0x36
0x1116…1177 at0037 = ╱ed╱(╱ // 0x114d @0x37
0x1116…1177 at0038 = ╱32╱2╱ // 0x114e @0x38
0x1116…1177 at0039 = ╱34╱4╱ // 0x114f @0x39
0x1116…1177 at003a = ╱fe0000c005╱ // 0x1150 @0x3a
0x1116…1177 at003f = ╱ee╱)╱ // 0x1155 @0x3f
0x1116…1177 at0040 = ╱eb╱;╱ // 0x1156 @0x40
0x1116…1177 at0041 = ╱4b╱K╱ // 0x1157 @0x41
0x1116…1177 at0042 = ╱52╱R╱ // 0x1158 @0x42
0x1116…1177 at0043 = ╱ef╱$╱ // 0x1159 @0x43
0x1116…1177 at0044 = ╱eb╱;╱ // 0x115a @0x44
0x1116…1177 at0045 = ╱d2╱TAB╱ // 0x115b @0x45
0x1116…1177 at0046 = ╱ed╱(╱ // 0x115c @0x46
0x1116…1177 at0047 = ╱35╱5╱ // 0x115d @0x47
0x1116…1177 at0048 = ╱31╱1╱ // 0x115e @0x48
0x1116…1177 at0049 = ╱fe0000cc06╱ // 0x115f @0x49
0x1116…1177 at004e = ╱ee╱)╱ // 0x1164 @0x4e
0x1116…1177 at004f = ╱eb╱;╱ // 0x1165 @0x4f
0x1116…1177 at0050 = ╱54╱T╱ // 0x1166 @0x50
0x1116…1177 at0051 = ╱ef╱$╱ // 0x1167 @0x51
0x1116…1177 at0052 = ╱eb╱;╱ // 0x1168 @0x52
0x1116…1177 at0053 = ╱d2╱TAB╱ // 0x1169 @0x53
0x1116…1177 at0054 = ╱ed╱(╱ // 0x116a @0x54
0x1116…1177 at0055 = ╱36╱6╱ // 0x116b @0x55
0x1116…1177 at0056 = ╱36╱6╱ // 0x116c @0x56
0x1116…1177 at0057 = ╱fe00008407╱ // 0x116d @0x57
0x1116…1177 at005c = ╱ee╱)╱ // 0x1172 @0x5c
0x1116…1177 at005d = ╱eb╱;╱ // 0x1173 @0x5d
0x1116…1177 at005e = ╱54╱T╱ // 0x1174 @0x5e
0x1116…1177 at005f = ╱ef╱$╱ // 0x1175 @0x5f
0x1116…1177 at0060 = EOL // 0x1176 @0x60
0x1116…1177 }
0x1177…118e 9ee5 1670 EXEC TOMLINIE(19)
0x1177…118e LineComalBin {
0x1177…118e ptr = 0x9ee5 // 0x1177 @0x0
0x1177…118e lno = 0x0686 // 0x1179 @0x2
0x1177…118e at0004 = ╱9d╱ EXEC ╱ // 0x117b @0x4
0x1177…118e at0005 = ╱54╱T╱ // 0x117c @0x5
0x1177…118e at0006 = ╱4f╱O╱ // 0x117d @0x6
0x1177…118e at0007 = ╱4d╱M╱ // 0x117e @0x7
0x1177…118e at0008 = ╱4c╱L╱ // 0x117f @0x8
0x1177…118e at0009 = ╱49╱I╱ // 0x1180 @0x9
0x1177…118e at000a = ╱4e╱N╱ // 0x1181 @0xa
0x1177…118e at000b = ╱49╱I╱ // 0x1182 @0xb
0x1177…118e at000c = ╱45╱E╱ // 0x1183 @0xc
0x1177…118e at000d = ╱ed╱(╱ // 0x1184 @0xd
0x1177…118e at000e = ╱31╱1╱ // 0x1185 @0xe
0x1177…118e at000f = ╱39╱9╱ // 0x1186 @0xf
0x1177…118e at0010 = ╱fe00009805╱ // 0x1187 @0x10
0x1177…118e at0015 = ╱ee╱)╱ // 0x118c @0x15
0x1177…118e at0016 = EOL // 0x118d @0x16
0x1177…118e }
0x118e…11ef 9f46 1680 PRINT TAB(8);KR$(E:6);TAB(16);KR$(E:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$
0x118e…11ef LineComalBin {
0x118e…11ef ptr = 0x9f46 // 0x118e @0x0
0x118e…11ef lno = 0x0690 // 0x1190 @0x2
0x118e…11ef at0004 = ╱92╱ PRINT ╱ // 0x1192 @0x4
0x118e…11ef at0005 = ╱d2╱TAB╱ // 0x1193 @0x5
0x118e…11ef at0006 = ╱ed╱(╱ // 0x1194 @0x6
0x118e…11ef at0007 = ╱38╱8╱ // 0x1195 @0x7
0x118e…11ef at0008 = ╱fe00008004╱ // 0x1196 @0x8
0x118e…11ef at000d = ╱ee╱)╱ // 0x119b @0xd
0x118e…11ef at000e = ╱eb╱;╱ // 0x119c @0xe
0x118e…11ef at000f = ╱4b╱K╱ // 0x119d @0xf
0x118e…11ef at0010 = ╱52╱R╱ // 0x119e @0x10
0x118e…11ef at0011 = ╱ef╱$╱ // 0x119f @0x11
0x118e…11ef at0012 = ╱ed╱(╱ // 0x11a0 @0x12
0x118e…11ef at0013 = ╱45╱E╱ // 0x11a1 @0x13
0x118e…11ef at0014 = ╱f0╱:╱ // 0x11a2 @0x14
0x118e…11ef at0015 = ╱36╱6╱ // 0x11a3 @0x15
0x118e…11ef at0016 = ╱fe0000c003╱ // 0x11a4 @0x16
0x118e…11ef at001b = ╱ee╱)╱ // 0x11a9 @0x1b
0x118e…11ef at001c = ╱eb╱;╱ // 0x11aa @0x1c
0x118e…11ef at001d = ╱d2╱TAB╱ // 0x11ab @0x1d
0x118e…11ef at001e = ╱ed╱(╱ // 0x11ac @0x1e
0x118e…11ef at001f = ╱31╱1╱ // 0x11ad @0x1f
0x118e…11ef at0020 = ╱36╱6╱ // 0x11ae @0x20
0x118e…11ef at0021 = ╱fe00008005╱ // 0x11af @0x21
0x118e…11ef at0026 = ╱ee╱)╱ // 0x11b4 @0x26
0x118e…11ef at0027 = ╱eb╱;╱ // 0x11b5 @0x27
0x118e…11ef at0028 = ╱4b╱K╱ // 0x11b6 @0x28
0x118e…11ef at0029 = ╱52╱R╱ // 0x11b7 @0x29
0x118e…11ef at002a = ╱ef╱$╱ // 0x11b8 @0x2a
0x118e…11ef at002b = ╱ed╱(╱ // 0x11b9 @0x2b
0x118e…11ef at002c = ╱45╱E╱ // 0x11ba @0x2c
0x118e…11ef at002d = ╱f0╱:╱ // 0x11bb @0x2d
0x118e…11ef at002e = ╱35╱5╱ // 0x11bc @0x2e
0x118e…11ef at002f = ╱fe0000a003╱ // 0x11bd @0x2f
0x118e…11ef at0034 = ╱ee╱)╱ // 0x11c2 @0x34
0x118e…11ef at0035 = ╱eb╱;╱ // 0x11c3 @0x35
0x118e…11ef at0036 = ╱d2╱TAB╱ // 0x11c4 @0x36
0x118e…11ef at0037 = ╱ed╱(╱ // 0x11c5 @0x37
0x118e…11ef at0038 = ╱32╱2╱ // 0x11c6 @0x38
0x118e…11ef at0039 = ╱34╱4╱ // 0x11c7 @0x39
0x118e…11ef at003a = ╱fe0000c005╱ // 0x11c8 @0x3a
0x118e…11ef at003f = ╱ee╱)╱ // 0x11cd @0x3f
0x118e…11ef at0040 = ╱eb╱;╱ // 0x11ce @0x40
0x118e…11ef at0041 = ╱4b╱K╱ // 0x11cf @0x41
0x118e…11ef at0042 = ╱52╱R╱ // 0x11d0 @0x42
0x118e…11ef at0043 = ╱ef╱$╱ // 0x11d1 @0x43
0x118e…11ef at0044 = ╱eb╱;╱ // 0x11d2 @0x44
0x118e…11ef at0045 = ╱d2╱TAB╱ // 0x11d3 @0x45
0x118e…11ef at0046 = ╱ed╱(╱ // 0x11d4 @0x46
0x118e…11ef at0047 = ╱35╱5╱ // 0x11d5 @0x47
0x118e…11ef at0048 = ╱31╱1╱ // 0x11d6 @0x48
0x118e…11ef at0049 = ╱fe0000cc06╱ // 0x11d7 @0x49
0x118e…11ef at004e = ╱ee╱)╱ // 0x11dc @0x4e
0x118e…11ef at004f = ╱eb╱;╱ // 0x11dd @0x4f
0x118e…11ef at0050 = ╱54╱T╱ // 0x11de @0x50
0x118e…11ef at0051 = ╱ef╱$╱ // 0x11df @0x51
0x118e…11ef at0052 = ╱eb╱;╱ // 0x11e0 @0x52
0x118e…11ef at0053 = ╱d2╱TAB╱ // 0x11e1 @0x53
0x118e…11ef at0054 = ╱ed╱(╱ // 0x11e2 @0x54
0x118e…11ef at0055 = ╱36╱6╱ // 0x11e3 @0x55
0x118e…11ef at0056 = ╱36╱6╱ // 0x11e4 @0x56
0x118e…11ef at0057 = ╱fe00008407╱ // 0x11e5 @0x57
0x118e…11ef at005c = ╱ee╱)╱ // 0x11ea @0x5c
0x118e…11ef at005d = ╱eb╱;╱ // 0x11eb @0x5d
0x118e…11ef at005e = ╱54╱T╱ // 0x11ec @0x5e
0x118e…11ef at005f = ╱ef╱$╱ // 0x11ed @0x5f
0x118e…11ef at0060 = EOL // 0x11ee @0x60
0x118e…11ef }
0x11ef…1205 9f5c 1690 EXEC TOMLINIE(3)
0x11ef…1205 LineComalBin {
0x11ef…1205 ptr = 0x9f5c // 0x11ef @0x0
0x11ef…1205 lno = 0x069a // 0x11f1 @0x2
0x11ef…1205 at0004 = ╱9d╱ EXEC ╱ // 0x11f3 @0x4
0x11ef…1205 at0005 = ╱54╱T╱ // 0x11f4 @0x5
0x11ef…1205 at0006 = ╱4f╱O╱ // 0x11f5 @0x6
0x11ef…1205 at0007 = ╱4d╱M╱ // 0x11f6 @0x7
0x11ef…1205 at0008 = ╱4c╱L╱ // 0x11f7 @0x8
0x11ef…1205 at0009 = ╱49╱I╱ // 0x11f8 @0x9
0x11ef…1205 at000a = ╱4e╱N╱ // 0x11f9 @0xa
0x11ef…1205 at000b = ╱49╱I╱ // 0x11fa @0xb
0x11ef…1205 at000c = ╱45╱E╱ // 0x11fb @0xc
0x11ef…1205 at000d = ╱ed╱(╱ // 0x11fc @0xd
0x11ef…1205 at000e = ╱33╱3╱ // 0x11fd @0xe
0x11ef…1205 at000f = ╱fe0000c002╱ // 0x11fe @0xf
0x11ef…1205 at0014 = ╱ee╱)╱ // 0x1203 @0x14
0x11ef…1205 at0015 = EOL // 0x1204 @0x15
0x11ef…1205 }
0x1205…126a 9fc1 1700 PRINT TAB(16);T$(4:10);TAB(29);T$;TAB(44);T$(W:5);TAB(51);T$;TAB(66);T$
0x1205…126a LineComalBin {
0x1205…126a ptr = 0x9fc1 // 0x1205 @0x0
0x1205…126a lno = 0x06a4 // 0x1207 @0x2
0x1205…126a at0004 = ╱92╱ PRINT ╱ // 0x1209 @0x4
0x1205…126a at0005 = ╱d2╱TAB╱ // 0x120a @0x5
0x1205…126a at0006 = ╱ed╱(╱ // 0x120b @0x6
0x1205…126a at0007 = ╱31╱1╱ // 0x120c @0x7
0x1205…126a at0008 = ╱36╱6╱ // 0x120d @0x8
0x1205…126a at0009 = ╱fe00008005╱ // 0x120e @0x9
0x1205…126a at000e = ╱ee╱)╱ // 0x1213 @0xe
0x1205…126a at000f = ╱eb╱;╱ // 0x1214 @0xf
0x1205…126a at0010 = ╱54╱T╱ // 0x1215 @0x10
0x1205…126a at0011 = ╱ef╱$╱ // 0x1216 @0x11
0x1205…126a at0012 = ╱ed╱(╱ // 0x1217 @0x12
0x1205…126a at0013 = ╱34╱4╱ // 0x1218 @0x13
0x1205…126a at0014 = ╱fe00008003╱ // 0x1219 @0x14
0x1205…126a at0019 = ╱f0╱:╱ // 0x121e @0x19
0x1205…126a at001a = ╱31╱1╱ // 0x121f @0x1a
0x1205…126a at001b = ╱30╱0╱ // 0x1220 @0x1b
0x1205…126a at001c = ╱fe0000a004╱ // 0x1221 @0x1c
0x1205…126a at0021 = ╱ee╱)╱ // 0x1226 @0x21
0x1205…126a at0022 = ╱eb╱;╱ // 0x1227 @0x22
0x1205…126a at0023 = ╱d2╱TAB╱ // 0x1228 @0x23
0x1205…126a at0024 = ╱ed╱(╱ // 0x1229 @0x24
0x1205…126a at0025 = ╱32╱2╱ // 0x122a @0x25
0x1205…126a at0026 = ╱39╱9╱ // 0x122b @0x26
0x1205…126a at0027 = ╱fe0000e805╱ // 0x122c @0x27
0x1205…126a at002c = ╱ee╱)╱ // 0x1231 @0x2c
0x1205…126a at002d = ╱eb╱;╱ // 0x1232 @0x2d
0x1205…126a at002e = ╱54╱T╱ // 0x1233 @0x2e
0x1205…126a at002f = ╱ef╱$╱ // 0x1234 @0x2f
0x1205…126a at0030 = ╱eb╱;╱ // 0x1235 @0x30
0x1205…126a at0031 = ╱d2╱TAB╱ // 0x1236 @0x31
0x1205…126a at0032 = ╱ed╱(╱ // 0x1237 @0x32
0x1205…126a at0033 = ╱34╱4╱ // 0x1238 @0x33
0x1205…126a at0034 = ╱34╱4╱ // 0x1239 @0x34
0x1205…126a at0035 = ╱fe0000b006╱ // 0x123a @0x35
0x1205…126a at003a = ╱ee╱)╱ // 0x123f @0x3a
0x1205…126a at003b = ╱eb╱;╱ // 0x1240 @0x3b
0x1205…126a at003c = ╱54╱T╱ // 0x1241 @0x3c
0x1205…126a at003d = ╱ef╱$╱ // 0x1242 @0x3d
0x1205…126a at003e = ╱ed╱(╱ // 0x1243 @0x3e
0x1205…126a at003f = ╱57╱W╱ // 0x1244 @0x3f
0x1205…126a at0040 = ╱f0╱:╱ // 0x1245 @0x40
0x1205…126a at0041 = ╱35╱5╱ // 0x1246 @0x41
0x1205…126a at0042 = ╱fe0000a003╱ // 0x1247 @0x42
0x1205…126a at0047 = ╱ee╱)╱ // 0x124c @0x47
0x1205…126a at0048 = ╱eb╱;╱ // 0x124d @0x48
0x1205…126a at0049 = ╱d2╱TAB╱ // 0x124e @0x49
0x1205…126a at004a = ╱ed╱(╱ // 0x124f @0x4a
0x1205…126a at004b = ╱35╱5╱ // 0x1250 @0x4b
0x1205…126a at004c = ╱31╱1╱ // 0x1251 @0x4c
0x1205…126a at004d = ╱fe0000cc06╱ // 0x1252 @0x4d
0x1205…126a at0052 = ╱ee╱)╱ // 0x1257 @0x52
0x1205…126a at0053 = ╱eb╱;╱ // 0x1258 @0x53
0x1205…126a at0054 = ╱54╱T╱ // 0x1259 @0x54
0x1205…126a at0055 = ╱ef╱$╱ // 0x125a @0x55
0x1205…126a at0056 = ╱eb╱;╱ // 0x125b @0x56
0x1205…126a at0057 = ╱d2╱TAB╱ // 0x125c @0x57
0x1205…126a at0058 = ╱ed╱(╱ // 0x125d @0x58
0x1205…126a at0059 = ╱36╱6╱ // 0x125e @0x59
0x1205…126a at005a = ╱36╱6╱ // 0x125f @0x5a
0x1205…126a at005b = ╱fe00008407╱ // 0x1260 @0x5b
0x1205…126a at0060 = ╱ee╱)╱ // 0x1265 @0x60
0x1205…126a at0061 = ╱eb╱;╱ // 0x1266 @0x61
0x1205…126a at0062 = ╱54╱T╱ // 0x1267 @0x62
0x1205…126a at0063 = ╱ef╱$╱ // 0x1268 @0x63
0x1205…126a at0064 = EOL // 0x1269 @0x64
0x1205…126a }
0x126a…1280 9fd7 1710 EXEC TOMLINIE(6)
0x126a…1280 LineComalBin {
0x126a…1280 ptr = 0x9fd7 // 0x126a @0x0
0x126a…1280 lno = 0x06ae // 0x126c @0x2
0x126a…1280 at0004 = ╱9d╱ EXEC ╱ // 0x126e @0x4
0x126a…1280 at0005 = ╱54╱T╱ // 0x126f @0x5
0x126a…1280 at0006 = ╱4f╱O╱ // 0x1270 @0x6
0x126a…1280 at0007 = ╱4d╱M╱ // 0x1271 @0x7
0x126a…1280 at0008 = ╱4c╱L╱ // 0x1272 @0x8
0x126a…1280 at0009 = ╱49╱I╱ // 0x1273 @0x9
0x126a…1280 at000a = ╱4e╱N╱ // 0x1274 @0xa
0x126a…1280 at000b = ╱49╱I╱ // 0x1275 @0xb
0x126a…1280 at000c = ╱45╱E╱ // 0x1276 @0xc
0x126a…1280 at000d = ╱ed╱(╱ // 0x1277 @0xd
0x126a…1280 at000e = ╱36╱6╱ // 0x1278 @0xe
0x126a…1280 at000f = ╱fe0000c003╱ // 0x1279 @0xf
0x126a…1280 at0014 = ╱ee╱)╱ // 0x127e @0x14
0x126a…1280 at0015 = EOL // 0x127f @0x15
0x126a…1280 }
0x1280…1287 9fde 1720 OUTPUT T
0x1280…1287 LineComalBin {
0x1280…1287 ptr = 0x9fde // 0x1280 @0x0
0x1280…1287 lno = 0x06b8 // 0x1282 @0x2
0x1280…1287 at0004 = ╱a5╱ OUTPUT ╱ // 0x1284 @0x4
0x1280…1287 at0005 = ╱54╱T╱ // 0x1285 @0x5
0x1280…1287 at0006 = EOL // 0x1286 @0x6
0x1280…1287 }
0x1287…128d 9fe4 1730 ENDPROC
0x1287…128d LineComalBin {
0x1287…128d ptr = 0x9fe4 // 0x1287 @0x0
0x1287…128d lno = 0x06c2 // 0x1289 @0x2
0x1287…128d at0004 = ╱9f╱ ENDPROC ╱ // 0x128b @0x4
0x1287…128d at0005 = EOL // 0x128c @0x5
0x1287…128d }
0x128d…12a7 9ffe 1740 K1$="P641220:SYSTEM1"
0x128d…12a7 LineComalBin {
0x128d…12a7 ptr = 0x9ffe // 0x128d @0x0
0x128d…12a7 lno = 0x06cc // 0x128f @0x2
0x128d…12a7 at0004 = ╱4b╱K╱ // 0x1291 @0x4
0x128d…12a7 at0005 = ╱31╱1╱ // 0x1292 @0x5
0x128d…12a7 at0006 = ╱ef╱$╱ // 0x1293 @0x6
0x128d…12a7 at0007 = ╱dc╱=╱ // 0x1294 @0x7
0x128d…12a7 at0008 = ╱22╱"╱ // 0x1295 @0x8
0x128d…12a7 at0009 = ╱50╱P╱ // 0x1296 @0x9
0x128d…12a7 at000a = ╱36╱6╱ // 0x1297 @0xa
0x128d…12a7 at000b = ╱34╱4╱ // 0x1298 @0xb
0x128d…12a7 at000c = ╱31╱1╱ // 0x1299 @0xc
0x128d…12a7 at000d = ╱32╱2╱ // 0x129a @0xd
0x128d…12a7 at000e = ╱32╱2╱ // 0x129b @0xe
0x128d…12a7 at000f = ╱30╱0╱ // 0x129c @0xf
0x128d…12a7 at0010 = ╱3a╱:╱ // 0x129d @0x10
0x128d…12a7 at0011 = ╱53╱S╱ // 0x129e @0x11
0x128d…12a7 at0012 = ╱59╱Y╱ // 0x129f @0x12
0x128d…12a7 at0013 = ╱53╱S╱ // 0x12a0 @0x13
0x128d…12a7 at0014 = ╱54╱T╱ // 0x12a1 @0x14
0x128d…12a7 at0015 = ╱45╱E╱ // 0x12a2 @0x15
0x128d…12a7 at0016 = ╱4d╱M╱ // 0x12a3 @0x16
0x128d…12a7 at0017 = ╱31╱1╱ // 0x12a4 @0x17
0x128d…12a7 at0018 = ╱22╱"╱ // 0x12a5 @0x18
0x128d…12a7 at0019 = EOL // 0x12a6 @0x19
0x128d…12a7 }
0x12a7…12b2 a009 1750 OPEN K1$,R
0x12a7…12b2 LineComalBin {
0x12a7…12b2 ptr = 0xa009 // 0x12a7 @0x0
0x12a7…12b2 lno = 0x06d6 // 0x12a9 @0x2
0x12a7…12b2 at0004 = ╱a7╱ OPEN ╱ // 0x12ab @0x4
0x12a7…12b2 at0005 = ╱4b╱K╱ // 0x12ac @0x5
0x12a7…12b2 at0006 = ╱31╱1╱ // 0x12ad @0x6
0x12a7…12b2 at0007 = ╱ef╱$╱ // 0x12ae @0x7
0x12a7…12b2 at0008 = ╱ec╱,╱ // 0x12af @0x8
0x12a7…12b2 at0009 = ╱52╱R╱ // 0x12b0 @0x9
0x12a7…12b2 at000a = EOL // 0x12b1 @0xa
0x12a7…12b2 }
0x12b2…12c5 a01c 1760 EXEC FEJL(W,E,K1$)
0x12b2…12c5 LineComalBin {
0x12b2…12c5 ptr = 0xa01c // 0x12b2 @0x0
0x12b2…12c5 lno = 0x06e0 // 0x12b4 @0x2
0x12b2…12c5 at0004 = ╱9d╱ EXEC ╱ // 0x12b6 @0x4
0x12b2…12c5 at0005 = ╱46╱F╱ // 0x12b7 @0x5
0x12b2…12c5 at0006 = ╱45╱E╱ // 0x12b8 @0x6
0x12b2…12c5 at0007 = ╱4a╱J╱ // 0x12b9 @0x7
0x12b2…12c5 at0008 = ╱4c╱L╱ // 0x12ba @0x8
0x12b2…12c5 at0009 = ╱ed╱(╱ // 0x12bb @0x9
0x12b2…12c5 at000a = ╱57╱W╱ // 0x12bc @0xa
0x12b2…12c5 at000b = ╱ec╱,╱ // 0x12bd @0xb
0x12b2…12c5 at000c = ╱45╱E╱ // 0x12be @0xc
0x12b2…12c5 at000d = ╱ec╱,╱ // 0x12bf @0xd
0x12b2…12c5 at000e = ╱4b╱K╱ // 0x12c0 @0xe
0x12b2…12c5 at000f = ╱31╱1╱ // 0x12c1 @0xf
0x12b2…12c5 at0010 = ╱ef╱$╱ // 0x12c2 @0x10
0x12b2…12c5 at0011 = ╱ee╱)╱ // 0x12c3 @0x11
0x12b2…12c5 at0012 = EOL // 0x12c4 @0x12
0x12b2…12c5 }
0x12c5…12f0 a047 1770 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL
0x12c5…12f0 LineComalBin {
0x12c5…12f0 ptr = 0xa047 // 0x12c5 @0x0
0x12c5…12f0 lno = 0x06ea // 0x12c7 @0x2
0x12c5…12f0 at0004 = ╱a9╱ GET ╱ // 0x12c9 @0x4
0x12c5…12f0 at0005 = ╱4b╱K╱ // 0x12ca @0x5
0x12c5…12f0 at0006 = ╱31╱1╱ // 0x12cb @0x6
0x12c5…12f0 at0007 = ╱ef╱$╱ // 0x12cc @0x7
0x12c5…12f0 at0008 = ╱ec╱,╱ // 0x12cd @0x8
0x12c5…12f0 at0009 = ╱45╱E╱ // 0x12ce @0x9
0x12c5…12f0 at000a = ╱f0╱:╱ // 0x12cf @0xa
0x12c5…12f0 at000b = ╱4d╱M╱ // 0x12d0 @0xb
0x12c5…12f0 at000c = ╱46╱F╱ // 0x12d1 @0xc
0x12c5…12f0 at000d = ╱41╱A╱ // 0x12d2 @0xd
0x12c5…12f0 at000e = ╱4e╱N╱ // 0x12d3 @0xe
0x12c5…12f0 at000f = ╱54╱T╱ // 0x12d4 @0xf
0x12c5…12f0 at0010 = ╱41╱A╱ // 0x12d5 @0x10
0x12c5…12f0 at0011 = ╱4c╱L╱ // 0x12d6 @0x11
0x12c5…12f0 at0012 = ╱ec╱,╱ // 0x12d7 @0x12
0x12c5…12f0 at0013 = ╱4d╱M╱ // 0x12d8 @0x13
0x12c5…12f0 at0014 = ╱44╱D╱ // 0x12d9 @0x14
0x12c5…12f0 at0015 = ╱41╱A╱ // 0x12da @0x15
0x12c5…12f0 at0016 = ╱4e╱N╱ // 0x12db @0x16
0x12c5…12f0 at0017 = ╱54╱T╱ // 0x12dc @0x17
0x12c5…12f0 at0018 = ╱41╱A╱ // 0x12dd @0x18
0x12c5…12f0 at0019 = ╱4c╱L╱ // 0x12de @0x19
0x12c5…12f0 at001a = ╱ec╱,╱ // 0x12df @0x1a
0x12c5…12f0 at001b = ╱4d╱M╱ // 0x12e0 @0x1b
0x12c5…12f0 at001c = ╱4b╱K╱ // 0x12e1 @0x1c
0x12c5…12f0 at001d = ╱41╱A╱ // 0x12e2 @0x1d
0x12c5…12f0 at001e = ╱4e╱N╱ // 0x12e3 @0x1e
0x12c5…12f0 at001f = ╱54╱T╱ // 0x12e4 @0x1f
0x12c5…12f0 at0020 = ╱41╱A╱ // 0x12e5 @0x20
0x12c5…12f0 at0021 = ╱4c╱L╱ // 0x12e6 @0x21
0x12c5…12f0 at0022 = ╱ec╱,╱ // 0x12e7 @0x22
0x12c5…12f0 at0023 = ╱4d╱M╱ // 0x12e8 @0x23
0x12c5…12f0 at0024 = ╱56╱V╱ // 0x12e9 @0x24
0x12c5…12f0 at0025 = ╱41╱A╱ // 0x12ea @0x25
0x12c5…12f0 at0026 = ╱4e╱N╱ // 0x12eb @0x26
0x12c5…12f0 at0027 = ╱54╱T╱ // 0x12ec @0x27
0x12c5…12f0 at0028 = ╱41╱A╱ // 0x12ed @0x28
0x12c5…12f0 at0029 = ╱4c╱L╱ // 0x12ee @0x29
0x12c5…12f0 at002a = EOL // 0x12ef @0x2a
0x12c5…12f0 }
0x12f0…1303 a05a 1780 EXEC FEJL(W,G,K1$)
0x12f0…1303 LineComalBin {
0x12f0…1303 ptr = 0xa05a // 0x12f0 @0x0
0x12f0…1303 lno = 0x06f4 // 0x12f2 @0x2
0x12f0…1303 at0004 = ╱9d╱ EXEC ╱ // 0x12f4 @0x4
0x12f0…1303 at0005 = ╱46╱F╱ // 0x12f5 @0x5
0x12f0…1303 at0006 = ╱45╱E╱ // 0x12f6 @0x6
0x12f0…1303 at0007 = ╱4a╱J╱ // 0x12f7 @0x7
0x12f0…1303 at0008 = ╱4c╱L╱ // 0x12f8 @0x8
0x12f0…1303 at0009 = ╱ed╱(╱ // 0x12f9 @0x9
0x12f0…1303 at000a = ╱57╱W╱ // 0x12fa @0xa
0x12f0…1303 at000b = ╱ec╱,╱ // 0x12fb @0xb
0x12f0…1303 at000c = ╱47╱G╱ // 0x12fc @0xc
0x12f0…1303 at000d = ╱ec╱,╱ // 0x12fd @0xd
0x12f0…1303 at000e = ╱4b╱K╱ // 0x12fe @0xe
0x12f0…1303 at000f = ╱31╱1╱ // 0x12ff @0xf
0x12f0…1303 at0010 = ╱ef╱$╱ // 0x1300 @0x10
0x12f0…1303 at0011 = ╱ee╱)╱ // 0x1301 @0x11
0x12f0…1303 at0012 = EOL // 0x1302 @0x12
0x12f0…1303 }
0x1303…1327 a07e 1790 GET K1$,4:KMID,MFAK,MVGR,MKGR
0x1303…1327 LineComalBin {
0x1303…1327 ptr = 0xa07e // 0x1303 @0x0
0x1303…1327 lno = 0x06fe // 0x1305 @0x2
0x1303…1327 at0004 = ╱a9╱ GET ╱ // 0x1307 @0x4
0x1303…1327 at0005 = ╱4b╱K╱ // 0x1308 @0x5
0x1303…1327 at0006 = ╱31╱1╱ // 0x1309 @0x6
0x1303…1327 at0007 = ╱ef╱$╱ // 0x130a @0x7
0x1303…1327 at0008 = ╱ec╱,╱ // 0x130b @0x8
0x1303…1327 at0009 = ╱34╱4╱ // 0x130c @0x9
0x1303…1327 at000a = ╱fe00008003╱ // 0x130d @0xa
0x1303…1327 at000f = ╱f0╱:╱ // 0x1312 @0xf
0x1303…1327 at0010 = ╱4b╱K╱ // 0x1313 @0x10
0x1303…1327 at0011 = ╱4d╱M╱ // 0x1314 @0x11
0x1303…1327 at0012 = ╱49╱I╱ // 0x1315 @0x12
0x1303…1327 at0013 = ╱44╱D╱ // 0x1316 @0x13
0x1303…1327 at0014 = ╱ec╱,╱ // 0x1317 @0x14
0x1303…1327 at0015 = ╱4d╱M╱ // 0x1318 @0x15
0x1303…1327 at0016 = ╱46╱F╱ // 0x1319 @0x16
0x1303…1327 at0017 = ╱41╱A╱ // 0x131a @0x17
0x1303…1327 at0018 = ╱4b╱K╱ // 0x131b @0x18
0x1303…1327 at0019 = ╱ec╱,╱ // 0x131c @0x19
0x1303…1327 at001a = ╱4d╱M╱ // 0x131d @0x1a
0x1303…1327 at001b = ╱56╱V╱ // 0x131e @0x1b
0x1303…1327 at001c = ╱47╱G╱ // 0x131f @0x1c
0x1303…1327 at001d = ╱52╱R╱ // 0x1320 @0x1d
0x1303…1327 at001e = ╱ec╱,╱ // 0x1321 @0x1e
0x1303…1327 at001f = ╱4d╱M╱ // 0x1322 @0x1f
0x1303…1327 at0020 = ╱4b╱K╱ // 0x1323 @0x20
0x1303…1327 at0021 = ╱47╱G╱ // 0x1324 @0x21
0x1303…1327 at0022 = ╱52╱R╱ // 0x1325 @0x22
0x1303…1327 at0023 = EOL // 0x1326 @0x23
0x1303…1327 }
0x1327…133a a091 1800 EXEC FEJL(W,V,K1$)
0x1327…133a LineComalBin {
0x1327…133a ptr = 0xa091 // 0x1327 @0x0
0x1327…133a lno = 0x0708 // 0x1329 @0x2
0x1327…133a at0004 = ╱9d╱ EXEC ╱ // 0x132b @0x4
0x1327…133a at0005 = ╱46╱F╱ // 0x132c @0x5
0x1327…133a at0006 = ╱45╱E╱ // 0x132d @0x6
0x1327…133a at0007 = ╱4a╱J╱ // 0x132e @0x7
0x1327…133a at0008 = ╱4c╱L╱ // 0x132f @0x8
0x1327…133a at0009 = ╱ed╱(╱ // 0x1330 @0x9
0x1327…133a at000a = ╱57╱W╱ // 0x1331 @0xa
0x1327…133a at000b = ╱ec╱,╱ // 0x1332 @0xb
0x1327…133a at000c = ╱56╱V╱ // 0x1333 @0xc
0x1327…133a at000d = ╱ec╱,╱ // 0x1334 @0xd
0x1327…133a at000e = ╱4b╱K╱ // 0x1335 @0xe
0x1327…133a at000f = ╱31╱1╱ // 0x1336 @0xf
0x1327…133a at0010 = ╱ef╱$╱ // 0x1337 @0x10
0x1327…133a at0011 = ╱ee╱)╱ // 0x1338 @0x11
0x1327…133a at0012 = EOL // 0x1339 @0x12
0x1327…133a }
0x133a…1369 a0c0 1810 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR
0x133a…1369 LineComalBin {
0x133a…1369 ptr = 0xa0c0 // 0x133a @0x0
0x133a…1369 lno = 0x0712 // 0x133c @0x2
0x133a…1369 at0004 = ╱a9╱ GET ╱ // 0x133e @0x4
0x133a…1369 at0005 = ╱4b╱K╱ // 0x133f @0x5
0x133a…1369 at0006 = ╱31╱1╱ // 0x1340 @0x6
0x133a…1369 at0007 = ╱ef╱$╱ // 0x1341 @0x7
0x133a…1369 at0008 = ╱ec╱,╱ // 0x1342 @0x8
0x133a…1369 at0009 = ╱36╱6╱ // 0x1343 @0x9
0x133a…1369 at000a = ╱fe0000c003╱ // 0x1344 @0xa
0x133a…1369 at000f = ╱f0╱:╱ // 0x1349 @0xf
0x133a…1369 at0010 = ╱4b╱K╱ // 0x134a @0x10
0x133a…1369 at0011 = ╱41╱A╱ // 0x134b @0x11
0x133a…1369 at0012 = ╱53╱S╱ // 0x134c @0x12
0x133a…1369 at0013 = ╱53╱S╱ // 0x134d @0x13
0x133a…1369 at0014 = ╱45╱E╱ // 0x134e @0x14
0x133a…1369 at0015 = ╱4e╱N╱ // 0x134f @0x15
0x133a…1369 at0016 = ╱52╱R╱ // 0x1350 @0x16
0x133a…1369 at0017 = ╱ec╱,╱ // 0x1351 @0x17
0x133a…1369 at0018 = ╱47╱G╱ // 0x1352 @0x18
0x133a…1369 at0019 = ╱49╱I╱ // 0x1353 @0x19
0x133a…1369 at001a = ╱52╱R╱ // 0x1354 @0x1a
0x133a…1369 at001b = ╱4f╱O╱ // 0x1355 @0x1b
0x133a…1369 at001c = ╱4e╱N╱ // 0x1356 @0x1c
0x133a…1369 at001d = ╱52╱R╱ // 0x1357 @0x1d
0x133a…1369 at001e = ╱ec╱,╱ // 0x1358 @0x1e
0x133a…1369 at001f = ╱42╱B╱ // 0x1359 @0x1f
0x133a…1369 at0020 = ╱41╱A╱ // 0x135a @0x20
0x133a…1369 at0021 = ╱4e╱N╱ // 0x135b @0x21
0x133a…1369 at0022 = ╱4b╱K╱ // 0x135c @0x22
0x133a…1369 at0023 = ╱4e╱N╱ // 0x135d @0x23
0x133a…1369 at0024 = ╱52╱R╱ // 0x135e @0x24
0x133a…1369 at0025 = ╱ec╱,╱ // 0x135f @0x25
0x133a…1369 at0026 = ╱55╱U╱ // 0x1360 @0x26
0x133a…1369 at0027 = ╱44╱D╱ // 0x1361 @0x27
0x133a…1369 at0028 = ╱4d╱M╱ // 0x1362 @0x28
0x133a…1369 at0029 = ╱4f╱O╱ // 0x1363 @0x29
0x133a…1369 at002a = ╱4d╱M╱ // 0x1364 @0x2a
0x133a…1369 at002b = ╱53╱S╱ // 0x1365 @0x2b
0x133a…1369 at002c = ╱4e╱N╱ // 0x1366 @0x2c
0x133a…1369 at002d = ╱52╱R╱ // 0x1367 @0x2d
0x133a…1369 at002e = EOL // 0x1368 @0x2e
0x133a…1369 }
0x1369…1381 a0d8 1820 EXEC FEJL(W,4,K1$)
0x1369…1381 LineComalBin {
0x1369…1381 ptr = 0xa0d8 // 0x1369 @0x0
0x1369…1381 lno = 0x071c // 0x136b @0x2
0x1369…1381 at0004 = ╱9d╱ EXEC ╱ // 0x136d @0x4
0x1369…1381 at0005 = ╱46╱F╱ // 0x136e @0x5
0x1369…1381 at0006 = ╱45╱E╱ // 0x136f @0x6
0x1369…1381 at0007 = ╱4a╱J╱ // 0x1370 @0x7
0x1369…1381 at0008 = ╱4c╱L╱ // 0x1371 @0x8
0x1369…1381 at0009 = ╱ed╱(╱ // 0x1372 @0x9
0x1369…1381 at000a = ╱57╱W╱ // 0x1373 @0xa
0x1369…1381 at000b = ╱ec╱,╱ // 0x1374 @0xb
0x1369…1381 at000c = ╱34╱4╱ // 0x1375 @0xc
0x1369…1381 at000d = ╱fe00008003╱ // 0x1376 @0xd
0x1369…1381 at0012 = ╱ec╱,╱ // 0x137b @0x12
0x1369…1381 at0013 = ╱4b╱K╱ // 0x137c @0x13
0x1369…1381 at0014 = ╱31╱1╱ // 0x137d @0x14
0x1369…1381 at0015 = ╱ef╱$╱ // 0x137e @0x15
0x1369…1381 at0016 = ╱ee╱)╱ // 0x137f @0x16
0x1369…1381 at0017 = EOL // 0x1380 @0x17
0x1369…1381 }
0x1381…13b3 a10a 1830 GET K1$,7:INDMOMSNR,RENTENR,FRAGTNR,RABATNR
0x1381…13b3 LineComalBin {
0x1381…13b3 ptr = 0xa10a // 0x1381 @0x0
0x1381…13b3 lno = 0x0726 // 0x1383 @0x2
0x1381…13b3 at0004 = ╱a9╱ GET ╱ // 0x1385 @0x4
0x1381…13b3 at0005 = ╱4b╱K╱ // 0x1386 @0x5
0x1381…13b3 at0006 = ╱31╱1╱ // 0x1387 @0x6
0x1381…13b3 at0007 = ╱ef╱$╱ // 0x1388 @0x7
0x1381…13b3 at0008 = ╱ec╱,╱ // 0x1389 @0x8
0x1381…13b3 at0009 = ╱37╱7╱ // 0x138a @0x9
0x1381…13b3 at000a = ╱fe0000e003╱ // 0x138b @0xa
0x1381…13b3 at000f = ╱f0╱:╱ // 0x1390 @0xf
0x1381…13b3 at0010 = ╱49╱I╱ // 0x1391 @0x10
0x1381…13b3 at0011 = ╱4e╱N╱ // 0x1392 @0x11
0x1381…13b3 at0012 = ╱44╱D╱ // 0x1393 @0x12
0x1381…13b3 at0013 = ╱4d╱M╱ // 0x1394 @0x13
0x1381…13b3 at0014 = ╱4f╱O╱ // 0x1395 @0x14
0x1381…13b3 at0015 = ╱4d╱M╱ // 0x1396 @0x15
0x1381…13b3 at0016 = ╱53╱S╱ // 0x1397 @0x16
0x1381…13b3 at0017 = ╱4e╱N╱ // 0x1398 @0x17
0x1381…13b3 at0018 = ╱52╱R╱ // 0x1399 @0x18
0x1381…13b3 at0019 = ╱ec╱,╱ // 0x139a @0x19
0x1381…13b3 at001a = ╱52╱R╱ // 0x139b @0x1a
0x1381…13b3 at001b = ╱45╱E╱ // 0x139c @0x1b
0x1381…13b3 at001c = ╱4e╱N╱ // 0x139d @0x1c
0x1381…13b3 at001d = ╱54╱T╱ // 0x139e @0x1d
0x1381…13b3 at001e = ╱45╱E╱ // 0x139f @0x1e
0x1381…13b3 at001f = ╱4e╱N╱ // 0x13a0 @0x1f
0x1381…13b3 at0020 = ╱52╱R╱ // 0x13a1 @0x20
0x1381…13b3 at0021 = ╱ec╱,╱ // 0x13a2 @0x21
0x1381…13b3 at0022 = ╱46╱F╱ // 0x13a3 @0x22
0x1381…13b3 at0023 = ╱52╱R╱ // 0x13a4 @0x23
0x1381…13b3 at0024 = ╱41╱A╱ // 0x13a5 @0x24
0x1381…13b3 at0025 = ╱47╱G╱ // 0x13a6 @0x25
0x1381…13b3 at0026 = ╱54╱T╱ // 0x13a7 @0x26
0x1381…13b3 at0027 = ╱4e╱N╱ // 0x13a8 @0x27
0x1381…13b3 at0028 = ╱52╱R╱ // 0x13a9 @0x28
0x1381…13b3 at0029 = ╱ec╱,╱ // 0x13aa @0x29
0x1381…13b3 at002a = ╱52╱R╱ // 0x13ab @0x2a
0x1381…13b3 at002b = ╱41╱A╱ // 0x13ac @0x2b
0x1381…13b3 at002c = ╱42╱B╱ // 0x13ad @0x2c
0x1381…13b3 at002d = ╱41╱A╱ // 0x13ae @0x2d
0x1381…13b3 at002e = ╱54╱T╱ // 0x13af @0x2e
0x1381…13b3 at002f = ╱4e╱N╱ // 0x13b0 @0x2f
0x1381…13b3 at0030 = ╱52╱R╱ // 0x13b1 @0x30
0x1381…13b3 at0031 = EOL // 0x13b2 @0x31
0x1381…13b3 }
0x13b3…13cb a122 1840 EXEC FEJL(W,5,K1$)
0x13b3…13cb LineComalBin {
0x13b3…13cb ptr = 0xa122 // 0x13b3 @0x0
0x13b3…13cb lno = 0x0730 // 0x13b5 @0x2
0x13b3…13cb at0004 = ╱9d╱ EXEC ╱ // 0x13b7 @0x4
0x13b3…13cb at0005 = ╱46╱F╱ // 0x13b8 @0x5
0x13b3…13cb at0006 = ╱45╱E╱ // 0x13b9 @0x6
0x13b3…13cb at0007 = ╱4a╱J╱ // 0x13ba @0x7
0x13b3…13cb at0008 = ╱4c╱L╱ // 0x13bb @0x8
0x13b3…13cb at0009 = ╱ed╱(╱ // 0x13bc @0x9
0x13b3…13cb at000a = ╱57╱W╱ // 0x13bd @0xa
0x13b3…13cb at000b = ╱ec╱,╱ // 0x13be @0xb
0x13b3…13cb at000c = ╱35╱5╱ // 0x13bf @0xc
0x13b3…13cb at000d = ╱fe0000a003╱ // 0x13c0 @0xd
0x13b3…13cb at0012 = ╱ec╱,╱ // 0x13c5 @0x12
0x13b3…13cb at0013 = ╱4b╱K╱ // 0x13c6 @0x13
0x13b3…13cb at0014 = ╱31╱1╱ // 0x13c7 @0x14
0x13b3…13cb at0015 = ╱ef╱$╱ // 0x13c8 @0x15
0x13b3…13cb at0016 = ╱ee╱)╱ // 0x13c9 @0x16
0x13b3…13cb at0017 = EOL // 0x13ca @0x17
0x13b3…13cb }
0x13cb…13e8 a13f 1850 GET K1$,8:DIVNR,DIVDNR
0x13cb…13e8 LineComalBin {
0x13cb…13e8 ptr = 0xa13f // 0x13cb @0x0
0x13cb…13e8 lno = 0x073a // 0x13cd @0x2
0x13cb…13e8 at0004 = ╱a9╱ GET ╱ // 0x13cf @0x4
0x13cb…13e8 at0005 = ╱4b╱K╱ // 0x13d0 @0x5
0x13cb…13e8 at0006 = ╱31╱1╱ // 0x13d1 @0x6
0x13cb…13e8 at0007 = ╱ef╱$╱ // 0x13d2 @0x7
0x13cb…13e8 at0008 = ╱ec╱,╱ // 0x13d3 @0x8
0x13cb…13e8 at0009 = ╱38╱8╱ // 0x13d4 @0x9
0x13cb…13e8 at000a = ╱fe00008004╱ // 0x13d5 @0xa
0x13cb…13e8 at000f = ╱f0╱:╱ // 0x13da @0xf
0x13cb…13e8 at0010 = ╱44╱D╱ // 0x13db @0x10
0x13cb…13e8 at0011 = ╱49╱I╱ // 0x13dc @0x11
0x13cb…13e8 at0012 = ╱56╱V╱ // 0x13dd @0x12
0x13cb…13e8 at0013 = ╱4e╱N╱ // 0x13de @0x13
0x13cb…13e8 at0014 = ╱52╱R╱ // 0x13df @0x14
0x13cb…13e8 at0015 = ╱ec╱,╱ // 0x13e0 @0x15
0x13cb…13e8 at0016 = ╱44╱D╱ // 0x13e1 @0x16
0x13cb…13e8 at0017 = ╱49╱I╱ // 0x13e2 @0x17
0x13cb…13e8 at0018 = ╱56╱V╱ // 0x13e3 @0x18
0x13cb…13e8 at0019 = ╱44╱D╱ // 0x13e4 @0x19
0x13cb…13e8 at001a = ╱4e╱N╱ // 0x13e5 @0x1a
0x13cb…13e8 at001b = ╱52╱R╱ // 0x13e6 @0x1b
0x13cb…13e8 at001c = EOL // 0x13e7 @0x1c
0x13cb…13e8 }
0x13e8…1400 a157 1860 EXEC FEJL(W,6,K1$)
0x13e8…1400 LineComalBin {
0x13e8…1400 ptr = 0xa157 // 0x13e8 @0x0
0x13e8…1400 lno = 0x0744 // 0x13ea @0x2
0x13e8…1400 at0004 = ╱9d╱ EXEC ╱ // 0x13ec @0x4
0x13e8…1400 at0005 = ╱46╱F╱ // 0x13ed @0x5
0x13e8…1400 at0006 = ╱45╱E╱ // 0x13ee @0x6
0x13e8…1400 at0007 = ╱4a╱J╱ // 0x13ef @0x7
0x13e8…1400 at0008 = ╱4c╱L╱ // 0x13f0 @0x8
0x13e8…1400 at0009 = ╱ed╱(╱ // 0x13f1 @0x9
0x13e8…1400 at000a = ╱57╱W╱ // 0x13f2 @0xa
0x13e8…1400 at000b = ╱ec╱,╱ // 0x13f3 @0xb
0x13e8…1400 at000c = ╱36╱6╱ // 0x13f4 @0xc
0x13e8…1400 at000d = ╱fe0000c003╱ // 0x13f5 @0xd
0x13e8…1400 at0012 = ╱ec╱,╱ // 0x13fa @0x12
0x13e8…1400 at0013 = ╱4b╱K╱ // 0x13fb @0x13
0x13e8…1400 at0014 = ╱31╱1╱ // 0x13fc @0x14
0x13e8…1400 at0015 = ╱ef╱$╱ // 0x13fd @0x15
0x13e8…1400 at0016 = ╱ee╱)╱ // 0x13fe @0x16
0x13e8…1400 at0017 = EOL // 0x13ff @0x17
0x13e8…1400 }
0x1400…1414 a16b 1870 GET K1$,10:N$
0x1400…1414 LineComalBin {
0x1400…1414 ptr = 0xa16b // 0x1400 @0x0
0x1400…1414 lno = 0x074e // 0x1402 @0x2
0x1400…1414 at0004 = ╱a9╱ GET ╱ // 0x1404 @0x4
0x1400…1414 at0005 = ╱4b╱K╱ // 0x1405 @0x5
0x1400…1414 at0006 = ╱31╱1╱ // 0x1406 @0x6
0x1400…1414 at0007 = ╱ef╱$╱ // 0x1407 @0x7
0x1400…1414 at0008 = ╱ec╱,╱ // 0x1408 @0x8
0x1400…1414 at0009 = ╱31╱1╱ // 0x1409 @0x9
0x1400…1414 at000a = ╱30╱0╱ // 0x140a @0xa
0x1400…1414 at000b = ╱fe0000a004╱ // 0x140b @0xb
0x1400…1414 at0010 = ╱f0╱:╱ // 0x1410 @0x10
0x1400…1414 at0011 = ╱4e╱N╱ // 0x1411 @0x11
0x1400…1414 at0012 = ╱ef╱$╱ // 0x1412 @0x12
0x1400…1414 at0013 = EOL // 0x1413 @0x13
0x1400…1414 }
0x1414…142c a183 1880 EXEC FEJL(W,7,K1$)
0x1414…142c LineComalBin {
0x1414…142c ptr = 0xa183 // 0x1414 @0x0
0x1414…142c lno = 0x0758 // 0x1416 @0x2
0x1414…142c at0004 = ╱9d╱ EXEC ╱ // 0x1418 @0x4
0x1414…142c at0005 = ╱46╱F╱ // 0x1419 @0x5
0x1414…142c at0006 = ╱45╱E╱ // 0x141a @0x6
0x1414…142c at0007 = ╱4a╱J╱ // 0x141b @0x7
0x1414…142c at0008 = ╱4c╱L╱ // 0x141c @0x8
0x1414…142c at0009 = ╱ed╱(╱ // 0x141d @0x9
0x1414…142c at000a = ╱57╱W╱ // 0x141e @0xa
0x1414…142c at000b = ╱ec╱,╱ // 0x141f @0xb
0x1414…142c at000c = ╱37╱7╱ // 0x1420 @0xc
0x1414…142c at000d = ╱fe0000e003╱ // 0x1421 @0xd
0x1414…142c at0012 = ╱ec╱,╱ // 0x1426 @0x12
0x1414…142c at0013 = ╱4b╱K╱ // 0x1427 @0x13
0x1414…142c at0014 = ╱31╱1╱ // 0x1428 @0x14
0x1414…142c at0015 = ╱ef╱$╱ // 0x1429 @0x15
0x1414…142c at0016 = ╱ee╱)╱ // 0x142a @0x16
0x1414…142c at0017 = EOL // 0x142b @0x17
0x1414…142c }
0x142c…1441 a198 1890 GET K1$,12:K2$
0x142c…1441 LineComalBin {
0x142c…1441 ptr = 0xa198 // 0x142c @0x0
0x142c…1441 lno = 0x0762 // 0x142e @0x2
0x142c…1441 at0004 = ╱a9╱ GET ╱ // 0x1430 @0x4
0x142c…1441 at0005 = ╱4b╱K╱ // 0x1431 @0x5
0x142c…1441 at0006 = ╱31╱1╱ // 0x1432 @0x6
0x142c…1441 at0007 = ╱ef╱$╱ // 0x1433 @0x7
0x142c…1441 at0008 = ╱ec╱,╱ // 0x1434 @0x8
0x142c…1441 at0009 = ╱31╱1╱ // 0x1435 @0x9
0x142c…1441 at000a = ╱32╱2╱ // 0x1436 @0xa
0x142c…1441 at000b = ╱fe0000c004╱ // 0x1437 @0xb
0x142c…1441 at0010 = ╱f0╱:╱ // 0x143c @0x10
0x142c…1441 at0011 = ╱4b╱K╱ // 0x143d @0x11
0x142c…1441 at0012 = ╱32╱2╱ // 0x143e @0x12
0x142c…1441 at0013 = ╱ef╱$╱ // 0x143f @0x13
0x142c…1441 at0014 = EOL // 0x1440 @0x14
0x142c…1441 }
0x1441…1459 a1b0 1900 EXEC FEJL(W,8,K1$)
0x1441…1459 LineComalBin {
0x1441…1459 ptr = 0xa1b0 // 0x1441 @0x0
0x1441…1459 lno = 0x076c // 0x1443 @0x2
0x1441…1459 at0004 = ╱9d╱ EXEC ╱ // 0x1445 @0x4
0x1441…1459 at0005 = ╱46╱F╱ // 0x1446 @0x5
0x1441…1459 at0006 = ╱45╱E╱ // 0x1447 @0x6
0x1441…1459 at0007 = ╱4a╱J╱ // 0x1448 @0x7
0x1441…1459 at0008 = ╱4c╱L╱ // 0x1449 @0x8
0x1441…1459 at0009 = ╱ed╱(╱ // 0x144a @0x9
0x1441…1459 at000a = ╱57╱W╱ // 0x144b @0xa
0x1441…1459 at000b = ╱ec╱,╱ // 0x144c @0xb
0x1441…1459 at000c = ╱38╱8╱ // 0x144d @0xc
0x1441…1459 at000d = ╱fe00008004╱ // 0x144e @0xd
0x1441…1459 at0012 = ╱ec╱,╱ // 0x1453 @0x12
0x1441…1459 at0013 = ╱4b╱K╱ // 0x1454 @0x13
0x1441…1459 at0014 = ╱31╱1╱ // 0x1455 @0x14
0x1441…1459 at0015 = ╱ef╱$╱ // 0x1456 @0x15
0x1441…1459 at0016 = ╱ee╱)╱ // 0x1457 @0x16
0x1441…1459 at0017 = EOL // 0x1458 @0x17
0x1441…1459 }
0x1459…146e a1c5 1910 GET K1$,14:K3$
0x1459…146e LineComalBin {
0x1459…146e ptr = 0xa1c5 // 0x1459 @0x0
0x1459…146e lno = 0x0776 // 0x145b @0x2
0x1459…146e at0004 = ╱a9╱ GET ╱ // 0x145d @0x4
0x1459…146e at0005 = ╱4b╱K╱ // 0x145e @0x5
0x1459…146e at0006 = ╱31╱1╱ // 0x145f @0x6
0x1459…146e at0007 = ╱ef╱$╱ // 0x1460 @0x7
0x1459…146e at0008 = ╱ec╱,╱ // 0x1461 @0x8
0x1459…146e at0009 = ╱31╱1╱ // 0x1462 @0x9
0x1459…146e at000a = ╱34╱4╱ // 0x1463 @0xa
0x1459…146e at000b = ╱fe0000e004╱ // 0x1464 @0xb
0x1459…146e at0010 = ╱f0╱:╱ // 0x1469 @0x10
0x1459…146e at0011 = ╱4b╱K╱ // 0x146a @0x11
0x1459…146e at0012 = ╱33╱3╱ // 0x146b @0x12
0x1459…146e at0013 = ╱ef╱$╱ // 0x146c @0x13
0x1459…146e at0014 = EOL // 0x146d @0x14
0x1459…146e }
0x146e…1481 a1d8 1920 EXEC FEJL(W,W,K1$)
0x146e…1481 LineComalBin {
0x146e…1481 ptr = 0xa1d8 // 0x146e @0x0
0x146e…1481 lno = 0x0780 // 0x1470 @0x2
0x146e…1481 at0004 = ╱9d╱ EXEC ╱ // 0x1472 @0x4
0x146e…1481 at0005 = ╱46╱F╱ // 0x1473 @0x5
0x146e…1481 at0006 = ╱45╱E╱ // 0x1474 @0x6
0x146e…1481 at0007 = ╱4a╱J╱ // 0x1475 @0x7
0x146e…1481 at0008 = ╱4c╱L╱ // 0x1476 @0x8
0x146e…1481 at0009 = ╱ed╱(╱ // 0x1477 @0x9
0x146e…1481 at000a = ╱57╱W╱ // 0x1478 @0xa
0x146e…1481 at000b = ╱ec╱,╱ // 0x1479 @0xb
0x146e…1481 at000c = ╱57╱W╱ // 0x147a @0xc
0x146e…1481 at000d = ╱ec╱,╱ // 0x147b @0xd
0x146e…1481 at000e = ╱4b╱K╱ // 0x147c @0xe
0x146e…1481 at000f = ╱31╱1╱ // 0x147d @0xf
0x146e…1481 at0010 = ╱ef╱$╱ // 0x147e @0x10
0x146e…1481 at0011 = ╱ee╱)╱ // 0x147f @0x11
0x146e…1481 at0012 = EOL // 0x1480 @0x12
0x146e…1481 }
0x1481…1496 a1ed 1930 GET K1$,16:K4$
0x1481…1496 LineComalBin {
0x1481…1496 ptr = 0xa1ed // 0x1481 @0x0
0x1481…1496 lno = 0x078a // 0x1483 @0x2
0x1481…1496 at0004 = ╱a9╱ GET ╱ // 0x1485 @0x4
0x1481…1496 at0005 = ╱4b╱K╱ // 0x1486 @0x5
0x1481…1496 at0006 = ╱31╱1╱ // 0x1487 @0x6
0x1481…1496 at0007 = ╱ef╱$╱ // 0x1488 @0x7
0x1481…1496 at0008 = ╱ec╱,╱ // 0x1489 @0x8
0x1481…1496 at0009 = ╱31╱1╱ // 0x148a @0x9
0x1481…1496 at000a = ╱36╱6╱ // 0x148b @0xa
0x1481…1496 at000b = ╱fe00008005╱ // 0x148c @0xb
0x1481…1496 at0010 = ╱f0╱:╱ // 0x1491 @0x10
0x1481…1496 at0011 = ╱4b╱K╱ // 0x1492 @0x11
0x1481…1496 at0012 = ╱34╱4╱ // 0x1493 @0x12
0x1481…1496 at0013 = ╱ef╱$╱ // 0x1494 @0x13
0x1481…1496 at0014 = EOL // 0x1495 @0x14
0x1481…1496 }
0x1496…14af a206 1940 EXEC FEJL(W,10,K1$)
0x1496…14af LineComalBin {
0x1496…14af ptr = 0xa206 // 0x1496 @0x0
0x1496…14af lno = 0x0794 // 0x1498 @0x2
0x1496…14af at0004 = ╱9d╱ EXEC ╱ // 0x149a @0x4
0x1496…14af at0005 = ╱46╱F╱ // 0x149b @0x5
0x1496…14af at0006 = ╱45╱E╱ // 0x149c @0x6
0x1496…14af at0007 = ╱4a╱J╱ // 0x149d @0x7
0x1496…14af at0008 = ╱4c╱L╱ // 0x149e @0x8
0x1496…14af at0009 = ╱ed╱(╱ // 0x149f @0x9
0x1496…14af at000a = ╱57╱W╱ // 0x14a0 @0xa
0x1496…14af at000b = ╱ec╱,╱ // 0x14a1 @0xb
0x1496…14af at000c = ╱31╱1╱ // 0x14a2 @0xc
0x1496…14af at000d = ╱30╱0╱ // 0x14a3 @0xd
0x1496…14af at000e = ╱fe0000a004╱ // 0x14a4 @0xe
0x1496…14af at0013 = ╱ec╱,╱ // 0x14a9 @0x13
0x1496…14af at0014 = ╱4b╱K╱ // 0x14aa @0x14
0x1496…14af at0015 = ╱31╱1╱ // 0x14ab @0x15
0x1496…14af at0016 = ╱ef╱$╱ // 0x14ac @0x16
0x1496…14af at0017 = ╱ee╱)╱ // 0x14ad @0x17
0x1496…14af at0018 = EOL // 0x14ae @0x18
0x1496…14af }
0x14af…14c4 a21b 1950 GET K1$,18:K5$
0x14af…14c4 LineComalBin {
0x14af…14c4 ptr = 0xa21b // 0x14af @0x0
0x14af…14c4 lno = 0x079e // 0x14b1 @0x2
0x14af…14c4 at0004 = ╱a9╱ GET ╱ // 0x14b3 @0x4
0x14af…14c4 at0005 = ╱4b╱K╱ // 0x14b4 @0x5
0x14af…14c4 at0006 = ╱31╱1╱ // 0x14b5 @0x6
0x14af…14c4 at0007 = ╱ef╱$╱ // 0x14b6 @0x7
0x14af…14c4 at0008 = ╱ec╱,╱ // 0x14b7 @0x8
0x14af…14c4 at0009 = ╱31╱1╱ // 0x14b8 @0x9
0x14af…14c4 at000a = ╱38╱8╱ // 0x14b9 @0xa
0x14af…14c4 at000b = ╱fe00009005╱ // 0x14ba @0xb
0x14af…14c4 at0010 = ╱f0╱:╱ // 0x14bf @0x10
0x14af…14c4 at0011 = ╱4b╱K╱ // 0x14c0 @0x11
0x14af…14c4 at0012 = ╱35╱5╱ // 0x14c1 @0x12
0x14af…14c4 at0013 = ╱ef╱$╱ // 0x14c2 @0x13
0x14af…14c4 at0014 = EOL // 0x14c3 @0x14
0x14af…14c4 }
0x14c4…14dd a234 1960 EXEC FEJL(W,11,K1$)
0x14c4…14dd LineComalBin {
0x14c4…14dd ptr = 0xa234 // 0x14c4 @0x0
0x14c4…14dd lno = 0x07a8 // 0x14c6 @0x2
0x14c4…14dd at0004 = ╱9d╱ EXEC ╱ // 0x14c8 @0x4
0x14c4…14dd at0005 = ╱46╱F╱ // 0x14c9 @0x5
0x14c4…14dd at0006 = ╱45╱E╱ // 0x14ca @0x6
0x14c4…14dd at0007 = ╱4a╱J╱ // 0x14cb @0x7
0x14c4…14dd at0008 = ╱4c╱L╱ // 0x14cc @0x8
0x14c4…14dd at0009 = ╱ed╱(╱ // 0x14cd @0x9
0x14c4…14dd at000a = ╱57╱W╱ // 0x14ce @0xa
0x14c4…14dd at000b = ╱ec╱,╱ // 0x14cf @0xb
0x14c4…14dd at000c = ╱31╱1╱ // 0x14d0 @0xc
0x14c4…14dd at000d = ╱31╱1╱ // 0x14d1 @0xd
0x14c4…14dd at000e = ╱fe0000b004╱ // 0x14d2 @0xe
0x14c4…14dd at0013 = ╱ec╱,╱ // 0x14d7 @0x13
0x14c4…14dd at0014 = ╱4b╱K╱ // 0x14d8 @0x14
0x14c4…14dd at0015 = ╱31╱1╱ // 0x14d9 @0x15
0x14c4…14dd at0016 = ╱ef╱$╱ // 0x14da @0x16
0x14c4…14dd at0017 = ╱ee╱)╱ // 0x14db @0x17
0x14c4…14dd at0018 = EOL // 0x14dc @0x18
0x14c4…14dd }
0x14dd…14f2 a249 1970 GET K1$,29:K6$
0x14dd…14f2 LineComalBin {
0x14dd…14f2 ptr = 0xa249 // 0x14dd @0x0
0x14dd…14f2 lno = 0x07b2 // 0x14df @0x2
0x14dd…14f2 at0004 = ╱a9╱ GET ╱ // 0x14e1 @0x4
0x14dd…14f2 at0005 = ╱4b╱K╱ // 0x14e2 @0x5
0x14dd…14f2 at0006 = ╱31╱1╱ // 0x14e3 @0x6
0x14dd…14f2 at0007 = ╱ef╱$╱ // 0x14e4 @0x7
0x14dd…14f2 at0008 = ╱ec╱,╱ // 0x14e5 @0x8
0x14dd…14f2 at0009 = ╱32╱2╱ // 0x14e6 @0x9
0x14dd…14f2 at000a = ╱39╱9╱ // 0x14e7 @0xa
0x14dd…14f2 at000b = ╱fe0000e805╱ // 0x14e8 @0xb
0x14dd…14f2 at0010 = ╱f0╱:╱ // 0x14ed @0x10
0x14dd…14f2 at0011 = ╱4b╱K╱ // 0x14ee @0x11
0x14dd…14f2 at0012 = ╱36╱6╱ // 0x14ef @0x12
0x14dd…14f2 at0013 = ╱ef╱$╱ // 0x14f0 @0x13
0x14dd…14f2 at0014 = EOL // 0x14f1 @0x14
0x14dd…14f2 }
0x14f2…150b a262 1980 EXEC FEJL(W,12,K1$)
0x14f2…150b LineComalBin {
0x14f2…150b ptr = 0xa262 // 0x14f2 @0x0
0x14f2…150b lno = 0x07bc // 0x14f4 @0x2
0x14f2…150b at0004 = ╱9d╱ EXEC ╱ // 0x14f6 @0x4
0x14f2…150b at0005 = ╱46╱F╱ // 0x14f7 @0x5
0x14f2…150b at0006 = ╱45╱E╱ // 0x14f8 @0x6
0x14f2…150b at0007 = ╱4a╱J╱ // 0x14f9 @0x7
0x14f2…150b at0008 = ╱4c╱L╱ // 0x14fa @0x8
0x14f2…150b at0009 = ╱ed╱(╱ // 0x14fb @0x9
0x14f2…150b at000a = ╱57╱W╱ // 0x14fc @0xa
0x14f2…150b at000b = ╱ec╱,╱ // 0x14fd @0xb
0x14f2…150b at000c = ╱31╱1╱ // 0x14fe @0xc
0x14f2…150b at000d = ╱32╱2╱ // 0x14ff @0xd
0x14f2…150b at000e = ╱fe0000c004╱ // 0x1500 @0xe
0x14f2…150b at0013 = ╱ec╱,╱ // 0x1505 @0x13
0x14f2…150b at0014 = ╱4b╱K╱ // 0x1506 @0x14
0x14f2…150b at0015 = ╱31╱1╱ // 0x1507 @0x15
0x14f2…150b at0016 = ╱ef╱$╱ // 0x1508 @0x16
0x14f2…150b at0017 = ╱ee╱)╱ // 0x1509 @0x17
0x14f2…150b at0018 = EOL // 0x150a @0x18
0x14f2…150b }
0x150b…1520 a277 1990 GET K1$,30:K7$
0x150b…1520 LineComalBin {
0x150b…1520 ptr = 0xa277 // 0x150b @0x0
0x150b…1520 lno = 0x07c6 // 0x150d @0x2
0x150b…1520 at0004 = ╱a9╱ GET ╱ // 0x150f @0x4
0x150b…1520 at0005 = ╱4b╱K╱ // 0x1510 @0x5
0x150b…1520 at0006 = ╱31╱1╱ // 0x1511 @0x6
0x150b…1520 at0007 = ╱ef╱$╱ // 0x1512 @0x7
0x150b…1520 at0008 = ╱ec╱,╱ // 0x1513 @0x8
0x150b…1520 at0009 = ╱33╱3╱ // 0x1514 @0x9
0x150b…1520 at000a = ╱30╱0╱ // 0x1515 @0xa
0x150b…1520 at000b = ╱fe0000f005╱ // 0x1516 @0xb
0x150b…1520 at0010 = ╱f0╱:╱ // 0x151b @0x10
0x150b…1520 at0011 = ╱4b╱K╱ // 0x151c @0x11
0x150b…1520 at0012 = ╱37╱7╱ // 0x151d @0x12
0x150b…1520 at0013 = ╱ef╱$╱ // 0x151e @0x13
0x150b…1520 at0014 = EOL // 0x151f @0x14
0x150b…1520 }
0x1520…1539 a290 2000 EXEC FEJL(W,13,K1$)
0x1520…1539 LineComalBin {
0x1520…1539 ptr = 0xa290 // 0x1520 @0x0
0x1520…1539 lno = 0x07d0 // 0x1522 @0x2
0x1520…1539 at0004 = ╱9d╱ EXEC ╱ // 0x1524 @0x4
0x1520…1539 at0005 = ╱46╱F╱ // 0x1525 @0x5
0x1520…1539 at0006 = ╱45╱E╱ // 0x1526 @0x6
0x1520…1539 at0007 = ╱4a╱J╱ // 0x1527 @0x7
0x1520…1539 at0008 = ╱4c╱L╱ // 0x1528 @0x8
0x1520…1539 at0009 = ╱ed╱(╱ // 0x1529 @0x9
0x1520…1539 at000a = ╱57╱W╱ // 0x152a @0xa
0x1520…1539 at000b = ╱ec╱,╱ // 0x152b @0xb
0x1520…1539 at000c = ╱31╱1╱ // 0x152c @0xc
0x1520…1539 at000d = ╱33╱3╱ // 0x152d @0xd
0x1520…1539 at000e = ╱fe0000d004╱ // 0x152e @0xe
0x1520…1539 at0013 = ╱ec╱,╱ // 0x1533 @0x13
0x1520…1539 at0014 = ╱4b╱K╱ // 0x1534 @0x14
0x1520…1539 at0015 = ╱31╱1╱ // 0x1535 @0x15
0x1520…1539 at0016 = ╱ef╱$╱ // 0x1536 @0x16
0x1520…1539 at0017 = ╱ee╱)╱ // 0x1537 @0x17
0x1520…1539 at0018 = EOL // 0x1538 @0x18
0x1520…1539 }
0x1539…154e a2a5 2010 GET K1$,31:K8$
0x1539…154e LineComalBin {
0x1539…154e ptr = 0xa2a5 // 0x1539 @0x0
0x1539…154e lno = 0x07da // 0x153b @0x2
0x1539…154e at0004 = ╱a9╱ GET ╱ // 0x153d @0x4
0x1539…154e at0005 = ╱4b╱K╱ // 0x153e @0x5
0x1539…154e at0006 = ╱31╱1╱ // 0x153f @0x6
0x1539…154e at0007 = ╱ef╱$╱ // 0x1540 @0x7
0x1539…154e at0008 = ╱ec╱,╱ // 0x1541 @0x8
0x1539…154e at0009 = ╱33╱3╱ // 0x1542 @0x9
0x1539…154e at000a = ╱31╱1╱ // 0x1543 @0xa
0x1539…154e at000b = ╱fe0000f805╱ // 0x1544 @0xb
0x1539…154e at0010 = ╱f0╱:╱ // 0x1549 @0x10
0x1539…154e at0011 = ╱4b╱K╱ // 0x154a @0x11
0x1539…154e at0012 = ╱38╱8╱ // 0x154b @0x12
0x1539…154e at0013 = ╱ef╱$╱ // 0x154c @0x13
0x1539…154e at0014 = EOL // 0x154d @0x14
0x1539…154e }
0x154e…1567 a2be 2020 EXEC FEJL(W,14,K1$)
0x154e…1567 LineComalBin {
0x154e…1567 ptr = 0xa2be // 0x154e @0x0
0x154e…1567 lno = 0x07e4 // 0x1550 @0x2
0x154e…1567 at0004 = ╱9d╱ EXEC ╱ // 0x1552 @0x4
0x154e…1567 at0005 = ╱46╱F╱ // 0x1553 @0x5
0x154e…1567 at0006 = ╱45╱E╱ // 0x1554 @0x6
0x154e…1567 at0007 = ╱4a╱J╱ // 0x1555 @0x7
0x154e…1567 at0008 = ╱4c╱L╱ // 0x1556 @0x8
0x154e…1567 at0009 = ╱ed╱(╱ // 0x1557 @0x9
0x154e…1567 at000a = ╱57╱W╱ // 0x1558 @0xa
0x154e…1567 at000b = ╱ec╱,╱ // 0x1559 @0xb
0x154e…1567 at000c = ╱31╱1╱ // 0x155a @0xc
0x154e…1567 at000d = ╱34╱4╱ // 0x155b @0xd
0x154e…1567 at000e = ╱fe0000e004╱ // 0x155c @0xe
0x154e…1567 at0013 = ╱ec╱,╱ // 0x1561 @0x13
0x154e…1567 at0014 = ╱4b╱K╱ // 0x1562 @0x14
0x154e…1567 at0015 = ╱31╱1╱ // 0x1563 @0x15
0x154e…1567 at0016 = ╱ef╱$╱ // 0x1564 @0x16
0x154e…1567 at0017 = ╱ee╱)╱ // 0x1565 @0x17
0x154e…1567 at0018 = EOL // 0x1566 @0x18
0x154e…1567 }
0x1567…157c a2d3 2030 GET K1$,36:K9$
0x1567…157c LineComalBin {
0x1567…157c ptr = 0xa2d3 // 0x1567 @0x0
0x1567…157c lno = 0x07ee // 0x1569 @0x2
0x1567…157c at0004 = ╱a9╱ GET ╱ // 0x156b @0x4
0x1567…157c at0005 = ╱4b╱K╱ // 0x156c @0x5
0x1567…157c at0006 = ╱31╱1╱ // 0x156d @0x6
0x1567…157c at0007 = ╱ef╱$╱ // 0x156e @0x7
0x1567…157c at0008 = ╱ec╱,╱ // 0x156f @0x8
0x1567…157c at0009 = ╱33╱3╱ // 0x1570 @0x9
0x1567…157c at000a = ╱36╱6╱ // 0x1571 @0xa
0x1567…157c at000b = ╱fe00009006╱ // 0x1572 @0xb
0x1567…157c at0010 = ╱f0╱:╱ // 0x1577 @0x10
0x1567…157c at0011 = ╱4b╱K╱ // 0x1578 @0x11
0x1567…157c at0012 = ╱39╱9╱ // 0x1579 @0x12
0x1567…157c at0013 = ╱ef╱$╱ // 0x157a @0x13
0x1567…157c at0014 = EOL // 0x157b @0x14
0x1567…157c }
0x157c…1595 a2ec 2040 EXEC FEJL(W,15,K1$)
0x157c…1595 LineComalBin {
0x157c…1595 ptr = 0xa2ec // 0x157c @0x0
0x157c…1595 lno = 0x07f8 // 0x157e @0x2
0x157c…1595 at0004 = ╱9d╱ EXEC ╱ // 0x1580 @0x4
0x157c…1595 at0005 = ╱46╱F╱ // 0x1581 @0x5
0x157c…1595 at0006 = ╱45╱E╱ // 0x1582 @0x6
0x157c…1595 at0007 = ╱4a╱J╱ // 0x1583 @0x7
0x157c…1595 at0008 = ╱4c╱L╱ // 0x1584 @0x8
0x157c…1595 at0009 = ╱ed╱(╱ // 0x1585 @0x9
0x157c…1595 at000a = ╱57╱W╱ // 0x1586 @0xa
0x157c…1595 at000b = ╱ec╱,╱ // 0x1587 @0xb
0x157c…1595 at000c = ╱31╱1╱ // 0x1588 @0xc
0x157c…1595 at000d = ╱35╱5╱ // 0x1589 @0xd
0x157c…1595 at000e = ╱fe0000f004╱ // 0x158a @0xe
0x157c…1595 at0013 = ╱ec╱,╱ // 0x158f @0x13
0x157c…1595 at0014 = ╱4b╱K╱ // 0x1590 @0x14
0x157c…1595 at0015 = ╱31╱1╱ // 0x1591 @0x15
0x157c…1595 at0016 = ╱ef╱$╱ // 0x1592 @0x16
0x157c…1595 at0017 = ╱ee╱)╱ // 0x1593 @0x17
0x157c…1595 at0018 = EOL // 0x1594 @0x18
0x157c…1595 }
0x1595…15b5 a30c 2050 GET K1$,43:I,I,I,DUNDKONT
0x1595…15b5 LineComalBin {
0x1595…15b5 ptr = 0xa30c // 0x1595 @0x0
0x1595…15b5 lno = 0x0802 // 0x1597 @0x2
0x1595…15b5 at0004 = ╱a9╱ GET ╱ // 0x1599 @0x4
0x1595…15b5 at0005 = ╱4b╱K╱ // 0x159a @0x5
0x1595…15b5 at0006 = ╱31╱1╱ // 0x159b @0x6
0x1595…15b5 at0007 = ╱ef╱$╱ // 0x159c @0x7
0x1595…15b5 at0008 = ╱ec╱,╱ // 0x159d @0x8
0x1595…15b5 at0009 = ╱34╱4╱ // 0x159e @0x9
0x1595…15b5 at000a = ╱33╱3╱ // 0x159f @0xa
0x1595…15b5 at000b = ╱fe0000ac06╱ // 0x15a0 @0xb
0x1595…15b5 at0010 = ╱f0╱:╱ // 0x15a5 @0x10
0x1595…15b5 at0011 = ╱49╱I╱ // 0x15a6 @0x11
0x1595…15b5 at0012 = ╱ec╱,╱ // 0x15a7 @0x12
0x1595…15b5 at0013 = ╱49╱I╱ // 0x15a8 @0x13
0x1595…15b5 at0014 = ╱ec╱,╱ // 0x15a9 @0x14
0x1595…15b5 at0015 = ╱49╱I╱ // 0x15aa @0x15
0x1595…15b5 at0016 = ╱ec╱,╱ // 0x15ab @0x16
0x1595…15b5 at0017 = ╱44╱D╱ // 0x15ac @0x17
0x1595…15b5 at0018 = ╱55╱U╱ // 0x15ad @0x18
0x1595…15b5 at0019 = ╱4e╱N╱ // 0x15ae @0x19
0x1595…15b5 at001a = ╱44╱D╱ // 0x15af @0x1a
0x1595…15b5 at001b = ╱4b╱K╱ // 0x15b0 @0x1b
0x1595…15b5 at001c = ╱4f╱O╱ // 0x15b1 @0x1c
0x1595…15b5 at001d = ╱4e╱N╱ // 0x15b2 @0x1d
0x1595…15b5 at001e = ╱54╱T╱ // 0x15b3 @0x1e
0x1595…15b5 at001f = EOL // 0x15b4 @0x1f
0x1595…15b5 }
0x15b5…15cf a326 2060 EXEC FEJL(W,155,K1$)
0x15b5…15cf LineComalBin {
0x15b5…15cf ptr = 0xa326 // 0x15b5 @0x0
0x15b5…15cf lno = 0x080c // 0x15b7 @0x2
0x15b5…15cf at0004 = ╱9d╱ EXEC ╱ // 0x15b9 @0x4
0x15b5…15cf at0005 = ╱46╱F╱ // 0x15ba @0x5
0x15b5…15cf at0006 = ╱45╱E╱ // 0x15bb @0x6
0x15b5…15cf at0007 = ╱4a╱J╱ // 0x15bc @0x7
0x15b5…15cf at0008 = ╱4c╱L╱ // 0x15bd @0x8
0x15b5…15cf at0009 = ╱ed╱(╱ // 0x15be @0x9
0x15b5…15cf at000a = ╱57╱W╱ // 0x15bf @0xa
0x15b5…15cf at000b = ╱ec╱,╱ // 0x15c0 @0xb
0x15b5…15cf at000c = ╱31╱1╱ // 0x15c1 @0xc
0x15b5…15cf at000d = ╱35╱5╱ // 0x15c2 @0xd
0x15b5…15cf at000e = ╱35╱5╱ // 0x15c3 @0xe
0x15b5…15cf at000f = ╱fe00009b08╱ // 0x15c4 @0xf
0x15b5…15cf at0014 = ╱ec╱,╱ // 0x15c9 @0x14
0x15b5…15cf at0015 = ╱4b╱K╱ // 0x15ca @0x15
0x15b5…15cf at0016 = ╱31╱1╱ // 0x15cb @0x16
0x15b5…15cf at0017 = ╱ef╱$╱ // 0x15cc @0x17
0x15b5…15cf at0018 = ╱ee╱)╱ // 0x15cd @0x18
0x15b5…15cf at0019 = EOL // 0x15ce @0x19
0x15b5…15cf }
0x15cf…15d8 a32f 2070 CLOSE K1$
0x15cf…15d8 LineComalBin {
0x15cf…15d8 ptr = 0xa32f // 0x15cf @0x0
0x15cf…15d8 lno = 0x0816 // 0x15d1 @0x2
0x15cf…15d8 at0004 = ╱a8╱ CLOSE ╱ // 0x15d3 @0x4
0x15cf…15d8 at0005 = ╱4b╱K╱ // 0x15d4 @0x5
0x15cf…15d8 at0006 = ╱31╱1╱ // 0x15d5 @0x6
0x15cf…15d8 at0007 = ╱ef╱$╱ // 0x15d6 @0x7
0x15cf…15d8 at0008 = EOL // 0x15d7 @0x8
0x15cf…15d8 }
0x15d8…15f1 a348 2080 EXEC FEJL(W,16,K1$)
0x15d8…15f1 LineComalBin {
0x15d8…15f1 ptr = 0xa348 // 0x15d8 @0x0
0x15d8…15f1 lno = 0x0820 // 0x15da @0x2
0x15d8…15f1 at0004 = ╱9d╱ EXEC ╱ // 0x15dc @0x4
0x15d8…15f1 at0005 = ╱46╱F╱ // 0x15dd @0x5
0x15d8…15f1 at0006 = ╱45╱E╱ // 0x15de @0x6
0x15d8…15f1 at0007 = ╱4a╱J╱ // 0x15df @0x7
0x15d8…15f1 at0008 = ╱4c╱L╱ // 0x15e0 @0x8
0x15d8…15f1 at0009 = ╱ed╱(╱ // 0x15e1 @0x9
0x15d8…15f1 at000a = ╱57╱W╱ // 0x15e2 @0xa
0x15d8…15f1 at000b = ╱ec╱,╱ // 0x15e3 @0xb
0x15d8…15f1 at000c = ╱31╱1╱ // 0x15e4 @0xc
0x15d8…15f1 at000d = ╱36╱6╱ // 0x15e5 @0xd
0x15d8…15f1 at000e = ╱fe00008005╱ // 0x15e6 @0xe
0x15d8…15f1 at0013 = ╱ec╱,╱ // 0x15eb @0x13
0x15d8…15f1 at0014 = ╱4b╱K╱ // 0x15ec @0x14
0x15d8…15f1 at0015 = ╱31╱1╱ // 0x15ed @0x15
0x15d8…15f1 at0016 = ╱ef╱$╱ // 0x15ee @0x16
0x15d8…15f1 at0017 = ╱ee╱)╱ // 0x15ef @0x17
0x15d8…15f1 at0018 = EOL // 0x15f0 @0x18
0x15d8…15f1 }
0x15f1…1640 a397 2090 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,G),DTAB(4,G)
0x15f1…1640 LineComalBin {
0x15f1…1640 ptr = 0xa397 // 0x15f1 @0x0
0x15f1…1640 lno = 0x082a // 0x15f3 @0x2
0x15f1…1640 at0004 = ╱87╱ DIM ╱ // 0x15f5 @0x4
0x15f1…1640 at0005 = ╱56╱V╱ // 0x15f6 @0x5
0x15f1…1640 at0006 = ╱54╱T╱ // 0x15f7 @0x6
0x15f1…1640 at0007 = ╱41╱A╱ // 0x15f8 @0x7
0x15f1…1640 at0008 = ╱42╱B╱ // 0x15f9 @0x8
0x15f1…1640 at0009 = ╱31╱1╱ // 0x15fa @0x9
0x15f1…1640 at000a = ╱ed╱(╱ // 0x15fb @0xa
0x15f1…1640 at000b = ╱4d╱M╱ // 0x15fc @0xb
0x15f1…1640 at000c = ╱56╱V╱ // 0x15fd @0xc
0x15f1…1640 at000d = ╱41╱A╱ // 0x15fe @0xd
0x15f1…1640 at000e = ╱4e╱N╱ // 0x15ff @0xe
0x15f1…1640 at000f = ╱54╱T╱ // 0x1600 @0xf
0x15f1…1640 at0010 = ╱41╱A╱ // 0x1601 @0x10
0x15f1…1640 at0011 = ╱4c╱L╱ // 0x1602 @0x11
0x15f1…1640 at0012 = ╱e7╱ DIV ╱ // 0x1603 @0x12
0x15f1…1640 at0013 = ╱34╱4╱ // 0x1604 @0x13
0x15f1…1640 at0014 = ╱fe00008003╱ // 0x1605 @0x14
0x15f1…1640 at0019 = ╱ee╱)╱ // 0x160a @0x19
0x15f1…1640 at001a = ╱ec╱,╱ // 0x160b @0x1a
0x15f1…1640 at001b = ╱44╱D╱ // 0x160c @0x1b
0x15f1…1640 at001c = ╱54╱T╱ // 0x160d @0x1c
0x15f1…1640 at001d = ╱41╱A╱ // 0x160e @0x1d
0x15f1…1640 at001e = ╱42╱B╱ // 0x160f @0x1e
0x15f1…1640 at001f = ╱31╱1╱ // 0x1610 @0x1f
0x15f1…1640 at0020 = ╱ed╱(╱ // 0x1611 @0x20
0x15f1…1640 at0021 = ╱4d╱M╱ // 0x1612 @0x21
0x15f1…1640 at0022 = ╱44╱D╱ // 0x1613 @0x22
0x15f1…1640 at0023 = ╱41╱A╱ // 0x1614 @0x23
0x15f1…1640 at0024 = ╱4e╱N╱ // 0x1615 @0x24
0x15f1…1640 at0025 = ╱54╱T╱ // 0x1616 @0x25
0x15f1…1640 at0026 = ╱41╱A╱ // 0x1617 @0x26
0x15f1…1640 at0027 = ╱4c╱L╱ // 0x1618 @0x27
0x15f1…1640 at0028 = ╱e7╱ DIV ╱ // 0x1619 @0x28
0x15f1…1640 at0029 = ╱34╱4╱ // 0x161a @0x29
0x15f1…1640 at002a = ╱fe00008003╱ // 0x161b @0x2a
0x15f1…1640 at002f = ╱ee╱)╱ // 0x1620 @0x2f
0x15f1…1640 at0030 = ╱ec╱,╱ // 0x1621 @0x30
0x15f1…1640 at0031 = ╱56╱V╱ // 0x1622 @0x31
0x15f1…1640 at0032 = ╱54╱T╱ // 0x1623 @0x32
0x15f1…1640 at0033 = ╱41╱A╱ // 0x1624 @0x33
0x15f1…1640 at0034 = ╱42╱B╱ // 0x1625 @0x34
0x15f1…1640 at0035 = ╱ed╱(╱ // 0x1626 @0x35
0x15f1…1640 at0036 = ╱34╱4╱ // 0x1627 @0x36
0x15f1…1640 at0037 = ╱fe00008003╱ // 0x1628 @0x37
0x15f1…1640 at003c = ╱ec╱,╱ // 0x162d @0x3c
0x15f1…1640 at003d = ╱47╱G╱ // 0x162e @0x3d
0x15f1…1640 at003e = ╱ee╱)╱ // 0x162f @0x3e
0x15f1…1640 at003f = ╱ec╱,╱ // 0x1630 @0x3f
0x15f1…1640 at0040 = ╱44╱D╱ // 0x1631 @0x40
0x15f1…1640 at0041 = ╱54╱T╱ // 0x1632 @0x41
0x15f1…1640 at0042 = ╱41╱A╱ // 0x1633 @0x42
0x15f1…1640 at0043 = ╱42╱B╱ // 0x1634 @0x43
0x15f1…1640 at0044 = ╱ed╱(╱ // 0x1635 @0x44
0x15f1…1640 at0045 = ╱34╱4╱ // 0x1636 @0x45
0x15f1…1640 at0046 = ╱fe00008003╱ // 0x1637 @0x46
0x15f1…1640 at004b = ╱ec╱,╱ // 0x163c @0x4b
0x15f1…1640 at004c = ╱47╱G╱ // 0x163d @0x4c
0x15f1…1640 at004d = ╱ee╱)╱ // 0x163e @0x4d
0x15f1…1640 at004e = EOL // 0x163f @0x4e
0x15f1…1640 }
0x1640…1691 a3e8 2100 DIM VJOURARR(MVGR*5),VUJOURARR(MVGR*5),VBJOUARR$(MVGR*5,12)
0x1640…1691 LineComalBin {
0x1640…1691 ptr = 0xa3e8 // 0x1640 @0x0
0x1640…1691 lno = 0x0834 // 0x1642 @0x2
0x1640…1691 at0004 = ╱87╱ DIM ╱ // 0x1644 @0x4
0x1640…1691 at0005 = ╱56╱V╱ // 0x1645 @0x5
0x1640…1691 at0006 = ╱4a╱J╱ // 0x1646 @0x6
0x1640…1691 at0007 = ╱4f╱O╱ // 0x1647 @0x7
0x1640…1691 at0008 = ╱55╱U╱ // 0x1648 @0x8
0x1640…1691 at0009 = ╱52╱R╱ // 0x1649 @0x9
0x1640…1691 at000a = ╱41╱A╱ // 0x164a @0xa
0x1640…1691 at000b = ╱52╱R╱ // 0x164b @0xb
0x1640…1691 at000c = ╱52╱R╱ // 0x164c @0xc
0x1640…1691 at000d = ╱ed╱(╱ // 0x164d @0xd
0x1640…1691 at000e = ╱4d╱M╱ // 0x164e @0xe
0x1640…1691 at000f = ╱56╱V╱ // 0x164f @0xf
0x1640…1691 at0010 = ╱47╱G╱ // 0x1650 @0x10
0x1640…1691 at0011 = ╱52╱R╱ // 0x1651 @0x11
0x1640…1691 at0012 = ╱e4╱*╱ // 0x1652 @0x12
0x1640…1691 at0013 = ╱35╱5╱ // 0x1653 @0x13
0x1640…1691 at0014 = ╱fe0000a003╱ // 0x1654 @0x14
0x1640…1691 at0019 = ╱ee╱)╱ // 0x1659 @0x19
0x1640…1691 at001a = ╱ec╱,╱ // 0x165a @0x1a
0x1640…1691 at001b = ╱56╱V╱ // 0x165b @0x1b
0x1640…1691 at001c = ╱55╱U╱ // 0x165c @0x1c
0x1640…1691 at001d = ╱4a╱J╱ // 0x165d @0x1d
0x1640…1691 at001e = ╱4f╱O╱ // 0x165e @0x1e
0x1640…1691 at001f = ╱55╱U╱ // 0x165f @0x1f
0x1640…1691 at0020 = ╱52╱R╱ // 0x1660 @0x20
0x1640…1691 at0021 = ╱41╱A╱ // 0x1661 @0x21
0x1640…1691 at0022 = ╱52╱R╱ // 0x1662 @0x22
0x1640…1691 at0023 = ╱52╱R╱ // 0x1663 @0x23
0x1640…1691 at0024 = ╱ed╱(╱ // 0x1664 @0x24
0x1640…1691 at0025 = ╱4d╱M╱ // 0x1665 @0x25
0x1640…1691 at0026 = ╱56╱V╱ // 0x1666 @0x26
0x1640…1691 at0027 = ╱47╱G╱ // 0x1667 @0x27
0x1640…1691 at0028 = ╱52╱R╱ // 0x1668 @0x28
0x1640…1691 at0029 = ╱e4╱*╱ // 0x1669 @0x29
0x1640…1691 at002a = ╱35╱5╱ // 0x166a @0x2a
0x1640…1691 at002b = ╱fe0000a003╱ // 0x166b @0x2b
0x1640…1691 at0030 = ╱ee╱)╱ // 0x1670 @0x30
0x1640…1691 at0031 = ╱ec╱,╱ // 0x1671 @0x31
0x1640…1691 at0032 = ╱56╱V╱ // 0x1672 @0x32
0x1640…1691 at0033 = ╱42╱B╱ // 0x1673 @0x33
0x1640…1691 at0034 = ╱4a╱J╱ // 0x1674 @0x34
0x1640…1691 at0035 = ╱4f╱O╱ // 0x1675 @0x35
0x1640…1691 at0036 = ╱55╱U╱ // 0x1676 @0x36
0x1640…1691 at0037 = ╱41╱A╱ // 0x1677 @0x37
0x1640…1691 at0038 = ╱52╱R╱ // 0x1678 @0x38
0x1640…1691 at0039 = ╱52╱R╱ // 0x1679 @0x39
0x1640…1691 at003a = ╱ef╱$╱ // 0x167a @0x3a
0x1640…1691 at003b = ╱ed╱(╱ // 0x167b @0x3b
0x1640…1691 at003c = ╱4d╱M╱ // 0x167c @0x3c
0x1640…1691 at003d = ╱56╱V╱ // 0x167d @0x3d
0x1640…1691 at003e = ╱47╱G╱ // 0x167e @0x3e
0x1640…1691 at003f = ╱52╱R╱ // 0x167f @0x3f
0x1640…1691 at0040 = ╱e4╱*╱ // 0x1680 @0x40
0x1640…1691 at0041 = ╱35╱5╱ // 0x1681 @0x41
0x1640…1691 at0042 = ╱fe0000a003╱ // 0x1682 @0x42
0x1640…1691 at0047 = ╱ec╱,╱ // 0x1687 @0x47
0x1640…1691 at0048 = ╱31╱1╱ // 0x1688 @0x48
0x1640…1691 at0049 = ╱32╱2╱ // 0x1689 @0x49
0x1640…1691 at004a = ╱fe0000c004╱ // 0x168a @0x4a
0x1640…1691 at004f = ╱ee╱)╱ // 0x168f @0x4f
0x1640…1691 at0050 = EOL // 0x1690 @0x50
0x1640…1691 }
0x1691…16b6 a40d 2110 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$
0x1691…16b6 LineComalBin {
0x1691…16b6 ptr = 0xa40d // 0x1691 @0x0
0x1691…16b6 lno = 0x083e // 0x1693 @0x2
0x1691…16b6 at0004 = ╱4b╱K╱ // 0x1695 @0x4
0x1691…16b6 at0005 = ╱32╱2╱ // 0x1696 @0x5
0x1691…16b6 at0006 = ╱ef╱$╱ // 0x1697 @0x6
0x1691…16b6 at0007 = ╱dc╱=╱ // 0x1698 @0x7
0x1691…16b6 at0008 = ╱4e╱N╱ // 0x1699 @0x8
0x1691…16b6 at0009 = ╱ef╱$╱ // 0x169a @0x9
0x1691…16b6 at000a = ╱f1╱+╱ // 0x169b @0xa
0x1691…16b6 at000b = ╱4b╱K╱ // 0x169c @0xb
0x1691…16b6 at000c = ╱32╱2╱ // 0x169d @0xc
0x1691…16b6 at000d = ╱ef╱$╱ // 0x169e @0xd
0x1691…16b6 at000e = ╱eb╱;╱ // 0x169f @0xe
0x1691…16b6 at000f = ╱4b╱K╱ // 0x16a0 @0xf
0x1691…16b6 at0010 = ╱33╱3╱ // 0x16a1 @0x10
0x1691…16b6 at0011 = ╱ef╱$╱ // 0x16a2 @0x11
0x1691…16b6 at0012 = ╱dc╱=╱ // 0x16a3 @0x12
0x1691…16b6 at0013 = ╱4e╱N╱ // 0x16a4 @0x13
0x1691…16b6 at0014 = ╱ef╱$╱ // 0x16a5 @0x14
0x1691…16b6 at0015 = ╱f1╱+╱ // 0x16a6 @0x15
0x1691…16b6 at0016 = ╱4b╱K╱ // 0x16a7 @0x16
0x1691…16b6 at0017 = ╱33╱3╱ // 0x16a8 @0x17
0x1691…16b6 at0018 = ╱ef╱$╱ // 0x16a9 @0x18
0x1691…16b6 at0019 = ╱eb╱;╱ // 0x16aa @0x19
0x1691…16b6 at001a = ╱4b╱K╱ // 0x16ab @0x1a
0x1691…16b6 at001b = ╱34╱4╱ // 0x16ac @0x1b
0x1691…16b6 at001c = ╱ef╱$╱ // 0x16ad @0x1c
0x1691…16b6 at001d = ╱dc╱=╱ // 0x16ae @0x1d
0x1691…16b6 at001e = ╱4e╱N╱ // 0x16af @0x1e
0x1691…16b6 at001f = ╱ef╱$╱ // 0x16b0 @0x1f
0x1691…16b6 at0020 = ╱f1╱+╱ // 0x16b1 @0x20
0x1691…16b6 at0021 = ╱4b╱K╱ // 0x16b2 @0x21
0x1691…16b6 at0022 = ╱34╱4╱ // 0x16b3 @0x22
0x1691…16b6 at0023 = ╱ef╱$╱ // 0x16b4 @0x23
0x1691…16b6 at0024 = EOL // 0x16b5 @0x24
0x1691…16b6 }
0x16b6…16f1 a448 2120 K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$;K8$=N$+K8$;K9$=N$+K9$
0x16b6…16f1 LineComalBin {
0x16b6…16f1 ptr = 0xa448 // 0x16b6 @0x0
0x16b6…16f1 lno = 0x0848 // 0x16b8 @0x2
0x16b6…16f1 at0004 = ╱4b╱K╱ // 0x16ba @0x4
0x16b6…16f1 at0005 = ╱35╱5╱ // 0x16bb @0x5
0x16b6…16f1 at0006 = ╱ef╱$╱ // 0x16bc @0x6
0x16b6…16f1 at0007 = ╱dc╱=╱ // 0x16bd @0x7
0x16b6…16f1 at0008 = ╱4e╱N╱ // 0x16be @0x8
0x16b6…16f1 at0009 = ╱ef╱$╱ // 0x16bf @0x9
0x16b6…16f1 at000a = ╱f1╱+╱ // 0x16c0 @0xa
0x16b6…16f1 at000b = ╱4b╱K╱ // 0x16c1 @0xb
0x16b6…16f1 at000c = ╱35╱5╱ // 0x16c2 @0xc
0x16b6…16f1 at000d = ╱ef╱$╱ // 0x16c3 @0xd
0x16b6…16f1 at000e = ╱eb╱;╱ // 0x16c4 @0xe
0x16b6…16f1 at000f = ╱4b╱K╱ // 0x16c5 @0xf
0x16b6…16f1 at0010 = ╱36╱6╱ // 0x16c6 @0x10
0x16b6…16f1 at0011 = ╱ef╱$╱ // 0x16c7 @0x11
0x16b6…16f1 at0012 = ╱dc╱=╱ // 0x16c8 @0x12
0x16b6…16f1 at0013 = ╱4e╱N╱ // 0x16c9 @0x13
0x16b6…16f1 at0014 = ╱ef╱$╱ // 0x16ca @0x14
0x16b6…16f1 at0015 = ╱f1╱+╱ // 0x16cb @0x15
0x16b6…16f1 at0016 = ╱4b╱K╱ // 0x16cc @0x16
0x16b6…16f1 at0017 = ╱36╱6╱ // 0x16cd @0x17
0x16b6…16f1 at0018 = ╱ef╱$╱ // 0x16ce @0x18
0x16b6…16f1 at0019 = ╱eb╱;╱ // 0x16cf @0x19
0x16b6…16f1 at001a = ╱4b╱K╱ // 0x16d0 @0x1a
0x16b6…16f1 at001b = ╱37╱7╱ // 0x16d1 @0x1b
0x16b6…16f1 at001c = ╱ef╱$╱ // 0x16d2 @0x1c
0x16b6…16f1 at001d = ╱dc╱=╱ // 0x16d3 @0x1d
0x16b6…16f1 at001e = ╱4e╱N╱ // 0x16d4 @0x1e
0x16b6…16f1 at001f = ╱ef╱$╱ // 0x16d5 @0x1f
0x16b6…16f1 at0020 = ╱f1╱+╱ // 0x16d6 @0x20
0x16b6…16f1 at0021 = ╱4b╱K╱ // 0x16d7 @0x21
0x16b6…16f1 at0022 = ╱37╱7╱ // 0x16d8 @0x22
0x16b6…16f1 at0023 = ╱ef╱$╱ // 0x16d9 @0x23
0x16b6…16f1 at0024 = ╱eb╱;╱ // 0x16da @0x24
0x16b6…16f1 at0025 = ╱4b╱K╱ // 0x16db @0x25
0x16b6…16f1 at0026 = ╱38╱8╱ // 0x16dc @0x26
0x16b6…16f1 at0027 = ╱ef╱$╱ // 0x16dd @0x27
0x16b6…16f1 at0028 = ╱dc╱=╱ // 0x16de @0x28
0x16b6…16f1 at0029 = ╱4e╱N╱ // 0x16df @0x29
0x16b6…16f1 at002a = ╱ef╱$╱ // 0x16e0 @0x2a
0x16b6…16f1 at002b = ╱f1╱+╱ // 0x16e1 @0x2b
0x16b6…16f1 at002c = ╱4b╱K╱ // 0x16e2 @0x2c
0x16b6…16f1 at002d = ╱38╱8╱ // 0x16e3 @0x2d
0x16b6…16f1 at002e = ╱ef╱$╱ // 0x16e4 @0x2e
0x16b6…16f1 at002f = ╱eb╱;╱ // 0x16e5 @0x2f
0x16b6…16f1 at0030 = ╱4b╱K╱ // 0x16e6 @0x30
0x16b6…16f1 at0031 = ╱39╱9╱ // 0x16e7 @0x31
0x16b6…16f1 at0032 = ╱ef╱$╱ // 0x16e8 @0x32
0x16b6…16f1 at0033 = ╱dc╱=╱ // 0x16e9 @0x33
0x16b6…16f1 at0034 = ╱4e╱N╱ // 0x16ea @0x34
0x16b6…16f1 at0035 = ╱ef╱$╱ // 0x16eb @0x35
0x16b6…16f1 at0036 = ╱f1╱+╱ // 0x16ec @0x36
0x16b6…16f1 at0037 = ╱4b╱K╱ // 0x16ed @0x37
0x16b6…16f1 at0038 = ╱39╱9╱ // 0x16ee @0x38
0x16b6…16f1 at0039 = ╱ef╱$╱ // 0x16ef @0x39
0x16b6…16f1 at003a = EOL // 0x16f0 @0x3a
0x16b6…16f1 }
0x16f1…16fc a453 2130 OPEN K9$,R
0x16f1…16fc LineComalBin {
0x16f1…16fc ptr = 0xa453 // 0x16f1 @0x0
0x16f1…16fc lno = 0x0852 // 0x16f3 @0x2
0x16f1…16fc at0004 = ╱a7╱ OPEN ╱ // 0x16f5 @0x4
0x16f1…16fc at0005 = ╱4b╱K╱ // 0x16f6 @0x5
0x16f1…16fc at0006 = ╱39╱9╱ // 0x16f7 @0x6
0x16f1…16fc at0007 = ╱ef╱$╱ // 0x16f8 @0x7
0x16f1…16fc at0008 = ╱ec╱,╱ // 0x16f9 @0x8
0x16f1…16fc at0009 = ╱52╱R╱ // 0x16fa @0x9
0x16f1…16fc at000a = EOL // 0x16fb @0xa
0x16f1…16fc }
0x16fc…1715 a46c 2140 EXEC FEJL(W,17,K9$)
0x16fc…1715 LineComalBin {
0x16fc…1715 ptr = 0xa46c // 0x16fc @0x0
0x16fc…1715 lno = 0x085c // 0x16fe @0x2
0x16fc…1715 at0004 = ╱9d╱ EXEC ╱ // 0x1700 @0x4
0x16fc…1715 at0005 = ╱46╱F╱ // 0x1701 @0x5
0x16fc…1715 at0006 = ╱45╱E╱ // 0x1702 @0x6
0x16fc…1715 at0007 = ╱4a╱J╱ // 0x1703 @0x7
0x16fc…1715 at0008 = ╱4c╱L╱ // 0x1704 @0x8
0x16fc…1715 at0009 = ╱ed╱(╱ // 0x1705 @0x9
0x16fc…1715 at000a = ╱57╱W╱ // 0x1706 @0xa
0x16fc…1715 at000b = ╱ec╱,╱ // 0x1707 @0xb
0x16fc…1715 at000c = ╱31╱1╱ // 0x1708 @0xc
0x16fc…1715 at000d = ╱37╱7╱ // 0x1709 @0xd
0x16fc…1715 at000e = ╱fe00008805╱ // 0x170a @0xe
0x16fc…1715 at0013 = ╱ec╱,╱ // 0x170f @0x13
0x16fc…1715 at0014 = ╱4b╱K╱ // 0x1710 @0x14
0x16fc…1715 at0015 = ╱39╱9╱ // 0x1711 @0x15
0x16fc…1715 at0016 = ╱ef╱$╱ // 0x1712 @0x16
0x16fc…1715 at0017 = ╱ee╱)╱ // 0x1713 @0x17
0x16fc…1715 at0018 = EOL // 0x1714 @0x18
0x16fc…1715 }
0x1715…176f a4c6 2150 GET K9$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x1715…176f LineComalBin {
0x1715…176f ptr = 0xa4c6 // 0x1715 @0x0
0x1715…176f lno = 0x0866 // 0x1717 @0x2
0x1715…176f at0004 = ╱a9╱ GET ╱ // 0x1719 @0x4
0x1715…176f at0005 = ╱4b╱K╱ // 0x171a @0x5
0x1715…176f at0006 = ╱39╱9╱ // 0x171b @0x6
0x1715…176f at0007 = ╱ef╱$╱ // 0x171c @0x7
0x1715…176f at0008 = ╱ec╱,╱ // 0x171d @0x8
0x1715…176f at0009 = ╱47╱G╱ // 0x171e @0x9
0x1715…176f at000a = ╱f0╱:╱ // 0x171f @0xa
0x1715…176f at000b = ╱54╱T╱ // 0x1720 @0xb
0x1715…176f at000c = ╱31╱1╱ // 0x1721 @0xc
0x1715…176f at000d = ╱ed╱(╱ // 0x1722 @0xd
0x1715…176f at000e = ╱45╱E╱ // 0x1723 @0xe
0x1715…176f at000f = ╱ee╱)╱ // 0x1724 @0xf
0x1715…176f at0010 = ╱ec╱,╱ // 0x1725 @0x10
0x1715…176f at0011 = ╱54╱T╱ // 0x1726 @0x11
0x1715…176f at0012 = ╱31╱1╱ // 0x1727 @0x12
0x1715…176f at0013 = ╱ed╱(╱ // 0x1728 @0x13
0x1715…176f at0014 = ╱47╱G╱ // 0x1729 @0x14
0x1715…176f at0015 = ╱ee╱)╱ // 0x172a @0x15
0x1715…176f at0016 = ╱ec╱,╱ // 0x172b @0x16
0x1715…176f at0017 = ╱54╱T╱ // 0x172c @0x17
0x1715…176f at0018 = ╱31╱1╱ // 0x172d @0x18
0x1715…176f at0019 = ╱ed╱(╱ // 0x172e @0x19
0x1715…176f at001a = ╱56╱V╱ // 0x172f @0x1a
0x1715…176f at001b = ╱ee╱)╱ // 0x1730 @0x1b
0x1715…176f at001c = ╱ec╱,╱ // 0x1731 @0x1c
0x1715…176f at001d = ╱54╱T╱ // 0x1732 @0x1d
0x1715…176f at001e = ╱31╱1╱ // 0x1733 @0x1e
0x1715…176f at001f = ╱ed╱(╱ // 0x1734 @0x1f
0x1715…176f at0020 = ╱34╱4╱ // 0x1735 @0x20
0x1715…176f at0021 = ╱fe00008003╱ // 0x1736 @0x21
0x1715…176f at0026 = ╱ee╱)╱ // 0x173b @0x26
0x1715…176f at0027 = ╱ec╱,╱ // 0x173c @0x27
0x1715…176f at0028 = ╱54╱T╱ // 0x173d @0x28
0x1715…176f at0029 = ╱31╱1╱ // 0x173e @0x29
0x1715…176f at002a = ╱ed╱(╱ // 0x173f @0x2a
0x1715…176f at002b = ╱35╱5╱ // 0x1740 @0x2b
0x1715…176f at002c = ╱fe0000a003╱ // 0x1741 @0x2c
0x1715…176f at0031 = ╱ee╱)╱ // 0x1746 @0x31
0x1715…176f at0032 = ╱ec╱,╱ // 0x1747 @0x32
0x1715…176f at0033 = ╱54╱T╱ // 0x1748 @0x33
0x1715…176f at0034 = ╱31╱1╱ // 0x1749 @0x34
0x1715…176f at0035 = ╱ed╱(╱ // 0x174a @0x35
0x1715…176f at0036 = ╱36╱6╱ // 0x174b @0x36
0x1715…176f at0037 = ╱fe0000c003╱ // 0x174c @0x37
0x1715…176f at003c = ╱ee╱)╱ // 0x1751 @0x3c
0x1715…176f at003d = ╱ec╱,╱ // 0x1752 @0x3d
0x1715…176f at003e = ╱54╱T╱ // 0x1753 @0x3e
0x1715…176f at003f = ╱31╱1╱ // 0x1754 @0x3f
0x1715…176f at0040 = ╱ed╱(╱ // 0x1755 @0x40
0x1715…176f at0041 = ╱37╱7╱ // 0x1756 @0x41
0x1715…176f at0042 = ╱fe0000e003╱ // 0x1757 @0x42
0x1715…176f at0047 = ╱ee╱)╱ // 0x175c @0x47
0x1715…176f at0048 = ╱ec╱,╱ // 0x175d @0x48
0x1715…176f at0049 = ╱54╱T╱ // 0x175e @0x49
0x1715…176f at004a = ╱31╱1╱ // 0x175f @0x4a
0x1715…176f at004b = ╱ed╱(╱ // 0x1760 @0x4b
0x1715…176f at004c = ╱38╱8╱ // 0x1761 @0x4c
0x1715…176f at004d = ╱fe00008004╱ // 0x1762 @0x4d
0x1715…176f at0052 = ╱ee╱)╱ // 0x1767 @0x52
0x1715…176f at0053 = ╱ec╱,╱ // 0x1768 @0x53
0x1715…176f at0054 = ╱54╱T╱ // 0x1769 @0x54
0x1715…176f at0055 = ╱31╱1╱ // 0x176a @0x55
0x1715…176f at0056 = ╱ed╱(╱ // 0x176b @0x56
0x1715…176f at0057 = ╱57╱W╱ // 0x176c @0x57
0x1715…176f at0058 = ╱ee╱)╱ // 0x176d @0x58
0x1715…176f at0059 = EOL // 0x176e @0x59
0x1715…176f }
0x176f…1788 a4df 2160 EXEC FEJL(W,18,K9$)
0x176f…1788 LineComalBin {
0x176f…1788 ptr = 0xa4df // 0x176f @0x0
0x176f…1788 lno = 0x0870 // 0x1771 @0x2
0x176f…1788 at0004 = ╱9d╱ EXEC ╱ // 0x1773 @0x4
0x176f…1788 at0005 = ╱46╱F╱ // 0x1774 @0x5
0x176f…1788 at0006 = ╱45╱E╱ // 0x1775 @0x6
0x176f…1788 at0007 = ╱4a╱J╱ // 0x1776 @0x7
0x176f…1788 at0008 = ╱4c╱L╱ // 0x1777 @0x8
0x176f…1788 at0009 = ╱ed╱(╱ // 0x1778 @0x9
0x176f…1788 at000a = ╱57╱W╱ // 0x1779 @0xa
0x176f…1788 at000b = ╱ec╱,╱ // 0x177a @0xb
0x176f…1788 at000c = ╱31╱1╱ // 0x177b @0xc
0x176f…1788 at000d = ╱38╱8╱ // 0x177c @0xd
0x176f…1788 at000e = ╱fe00009005╱ // 0x177d @0xe
0x176f…1788 at0013 = ╱ec╱,╱ // 0x1782 @0x13
0x176f…1788 at0014 = ╱4b╱K╱ // 0x1783 @0x14
0x176f…1788 at0015 = ╱39╱9╱ // 0x1784 @0x15
0x176f…1788 at0016 = ╱ef╱$╱ // 0x1785 @0x16
0x176f…1788 at0017 = ╱ee╱)╱ // 0x1786 @0x17
0x176f…1788 at0018 = EOL // 0x1787 @0x18
0x176f…1788 }
0x1788…1793 a4ea 2170 FOR I=E TO V
0x1788…1793 LineComalBin {
0x1788…1793 ptr = 0xa4ea // 0x1788 @0x0
0x1788…1793 lno = 0x087a // 0x178a @0x2
0x1788…1793 at0004 = ╱83╱ FOR ╱ // 0x178c @0x4
0x1788…1793 at0005 = ╱49╱I╱ // 0x178d @0x5
0x1788…1793 at0006 = ╱dc╱=╱ // 0x178e @0x6
0x1788…1793 at0007 = ╱45╱E╱ // 0x178f @0x7
0x1788…1793 at0008 = ╱b7╱ TO ╱ // 0x1790 @0x8
0x1788…1793 at0009 = ╱56╱V╱ // 0x1791 @0x9
0x1788…1793 at000a = EOL // 0x1792 @0xa
0x1788…1793 }
0x1793…17a3 a4fa 2180 H=(I-E)*V+E
0x1793…17a3 LineComalBin {
0x1793…17a3 ptr = 0xa4fa // 0x1793 @0x0
0x1793…17a3 lno = 0x0884 // 0x1795 @0x2
0x1793…17a3 at0004 = ╱48╱H╱ // 0x1797 @0x4
0x1793…17a3 at0005 = ╱dc╱=╱ // 0x1798 @0x5
0x1793…17a3 at0006 = ╱ed╱(╱ // 0x1799 @0x6
0x1793…17a3 at0007 = ╱49╱I╱ // 0x179a @0x7
0x1793…17a3 at0008 = ╱e3╱-╱ // 0x179b @0x8
0x1793…17a3 at0009 = ╱45╱E╱ // 0x179c @0x9
0x1793…17a3 at000a = ╱ee╱)╱ // 0x179d @0xa
0x1793…17a3 at000b = ╱e4╱*╱ // 0x179e @0xb
0x1793…17a3 at000c = ╱56╱V╱ // 0x179f @0xc
0x1793…17a3 at000d = ╱e2╱+╱ // 0x17a0 @0xd
0x1793…17a3 at000e = ╱45╱E╱ // 0x17a1 @0xe
0x1793…17a3 at000f = EOL // 0x17a2 @0xf
0x1793…17a3 }
0x17a3…17cf a526 2190 GET K9$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G)
0x17a3…17cf LineComalBin {
0x17a3…17cf ptr = 0xa526 // 0x17a3 @0x0
0x17a3…17cf lno = 0x088e // 0x17a5 @0x2
0x17a3…17cf at0004 = ╱a9╱ GET ╱ // 0x17a7 @0x4
0x17a3…17cf at0005 = ╱4b╱K╱ // 0x17a8 @0x5
0x17a3…17cf at0006 = ╱39╱9╱ // 0x17a9 @0x6
0x17a3…17cf at0007 = ╱ef╱$╱ // 0x17aa @0x7
0x17a3…17cf at0008 = ╱ec╱,╱ // 0x17ab @0x8
0x17a3…17cf at0009 = ╱49╱I╱ // 0x17ac @0x9
0x17a3…17cf at000a = ╱e2╱+╱ // 0x17ad @0xa
0x17a3…17cf at000b = ╱47╱G╱ // 0x17ae @0xb
0x17a3…17cf at000c = ╱f0╱:╱ // 0x17af @0xc
0x17a3…17cf at000d = ╱4c╱L╱ // 0x17b0 @0xd
0x17a3…17cf at000e = ╱41╱A╱ // 0x17b1 @0xe
0x17a3…17cf at000f = ╱4e╱N╱ // 0x17b2 @0xf
0x17a3…17cf at0010 = ╱44╱D╱ // 0x17b3 @0x10
0x17a3…17cf at0011 = ╱ef╱$╱ // 0x17b4 @0x11
0x17a3…17cf at0012 = ╱ed╱(╱ // 0x17b5 @0x12
0x17a3…17cf at0013 = ╱48╱H╱ // 0x17b6 @0x13
0x17a3…17cf at0014 = ╱ee╱)╱ // 0x17b7 @0x14
0x17a3…17cf at0015 = ╱ec╱,╱ // 0x17b8 @0x15
0x17a3…17cf at0016 = ╱4c╱L╱ // 0x17b9 @0x16
0x17a3…17cf at0017 = ╱41╱A╱ // 0x17ba @0x17
0x17a3…17cf at0018 = ╱4e╱N╱ // 0x17bb @0x18
0x17a3…17cf at0019 = ╱44╱D╱ // 0x17bc @0x19
0x17a3…17cf at001a = ╱ef╱$╱ // 0x17bd @0x1a
0x17a3…17cf at001b = ╱ed╱(╱ // 0x17be @0x1b
0x17a3…17cf at001c = ╱48╱H╱ // 0x17bf @0x1c
0x17a3…17cf at001d = ╱e2╱+╱ // 0x17c0 @0x1d
0x17a3…17cf at001e = ╱45╱E╱ // 0x17c1 @0x1e
0x17a3…17cf at001f = ╱ee╱)╱ // 0x17c2 @0x1f
0x17a3…17cf at0020 = ╱ec╱,╱ // 0x17c3 @0x20
0x17a3…17cf at0021 = ╱4c╱L╱ // 0x17c4 @0x21
0x17a3…17cf at0022 = ╱41╱A╱ // 0x17c5 @0x22
0x17a3…17cf at0023 = ╱4e╱N╱ // 0x17c6 @0x23
0x17a3…17cf at0024 = ╱44╱D╱ // 0x17c7 @0x24
0x17a3…17cf at0025 = ╱ef╱$╱ // 0x17c8 @0x25
0x17a3…17cf at0026 = ╱ed╱(╱ // 0x17c9 @0x26
0x17a3…17cf at0027 = ╱48╱H╱ // 0x17ca @0x27
0x17a3…17cf at0028 = ╱e2╱+╱ // 0x17cb @0x28
0x17a3…17cf at0029 = ╱47╱G╱ // 0x17cc @0x29
0x17a3…17cf at002a = ╱ee╱)╱ // 0x17cd @0x2a
0x17a3…17cf at002b = EOL // 0x17ce @0x2b
0x17a3…17cf }
0x17cf…17e8 a53f 2200 EXEC FEJL(W,19,K9$)
0x17cf…17e8 LineComalBin {
0x17cf…17e8 ptr = 0xa53f // 0x17cf @0x0
0x17cf…17e8 lno = 0x0898 // 0x17d1 @0x2
0x17cf…17e8 at0004 = ╱9d╱ EXEC ╱ // 0x17d3 @0x4
0x17cf…17e8 at0005 = ╱46╱F╱ // 0x17d4 @0x5
0x17cf…17e8 at0006 = ╱45╱E╱ // 0x17d5 @0x6
0x17cf…17e8 at0007 = ╱4a╱J╱ // 0x17d6 @0x7
0x17cf…17e8 at0008 = ╱4c╱L╱ // 0x17d7 @0x8
0x17cf…17e8 at0009 = ╱ed╱(╱ // 0x17d8 @0x9
0x17cf…17e8 at000a = ╱57╱W╱ // 0x17d9 @0xa
0x17cf…17e8 at000b = ╱ec╱,╱ // 0x17da @0xb
0x17cf…17e8 at000c = ╱31╱1╱ // 0x17db @0xc
0x17cf…17e8 at000d = ╱39╱9╱ // 0x17dc @0xd
0x17cf…17e8 at000e = ╱fe00009805╱ // 0x17dd @0xe
0x17cf…17e8 at0013 = ╱ec╱,╱ // 0x17e2 @0x13
0x17cf…17e8 at0014 = ╱4b╱K╱ // 0x17e3 @0x14
0x17cf…17e8 at0015 = ╱39╱9╱ // 0x17e4 @0x15
0x17cf…17e8 at0016 = ╱ef╱$╱ // 0x17e5 @0x16
0x17cf…17e8 at0017 = ╱ee╱)╱ // 0x17e6 @0x17
0x17cf…17e8 at0018 = EOL // 0x17e7 @0x18
0x17cf…17e8 }
0x17e8…17ef a546 2210 NEXT I
0x17e8…17ef LineComalBin {
0x17e8…17ef ptr = 0xa546 // 0x17e8 @0x0
0x17e8…17ef lno = 0x08a2 // 0x17ea @0x2
0x17e8…17ef at0004 = ╱84╱ NEXT ╱ // 0x17ec @0x4
0x17e8…17ef at0005 = ╱49╱I╱ // 0x17ed @0x5
0x17e8…17ef at0006 = EOL // 0x17ee @0x6
0x17e8…17ef }
0x17ef…184f a5a6 2220 GET K9$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x17ef…184f LineComalBin {
0x17ef…184f ptr = 0xa5a6 // 0x17ef @0x0
0x17ef…184f lno = 0x08ac // 0x17f1 @0x2
0x17ef…184f at0004 = ╱a9╱ GET ╱ // 0x17f3 @0x4
0x17ef…184f at0005 = ╱4b╱K╱ // 0x17f4 @0x5
0x17ef…184f at0006 = ╱39╱9╱ // 0x17f5 @0x6
0x17ef…184f at0007 = ╱ef╱$╱ // 0x17f6 @0x7
0x17ef…184f at0008 = ╱ec╱,╱ // 0x17f7 @0x8
0x17ef…184f at0009 = ╱31╱1╱ // 0x17f8 @0x9
0x17ef…184f at000a = ╱32╱2╱ // 0x17f9 @0xa
0x17ef…184f at000b = ╱fe0000c004╱ // 0x17fa @0xb
0x17ef…184f at0010 = ╱f0╱:╱ // 0x17ff @0x10
0x17ef…184f at0011 = ╱54╱T╱ // 0x1800 @0x11
0x17ef…184f at0012 = ╱32╱2╱ // 0x1801 @0x12
0x17ef…184f at0013 = ╱ed╱(╱ // 0x1802 @0x13
0x17ef…184f at0014 = ╱45╱E╱ // 0x1803 @0x14
0x17ef…184f at0015 = ╱ee╱)╱ // 0x1804 @0x15
0x17ef…184f at0016 = ╱ec╱,╱ // 0x1805 @0x16
0x17ef…184f at0017 = ╱54╱T╱ // 0x1806 @0x17
0x17ef…184f at0018 = ╱32╱2╱ // 0x1807 @0x18
0x17ef…184f at0019 = ╱ed╱(╱ // 0x1808 @0x19
0x17ef…184f at001a = ╱47╱G╱ // 0x1809 @0x1a
0x17ef…184f at001b = ╱ee╱)╱ // 0x180a @0x1b
0x17ef…184f at001c = ╱ec╱,╱ // 0x180b @0x1c
0x17ef…184f at001d = ╱54╱T╱ // 0x180c @0x1d
0x17ef…184f at001e = ╱32╱2╱ // 0x180d @0x1e
0x17ef…184f at001f = ╱ed╱(╱ // 0x180e @0x1f
0x17ef…184f at0020 = ╱56╱V╱ // 0x180f @0x20
0x17ef…184f at0021 = ╱ee╱)╱ // 0x1810 @0x21
0x17ef…184f at0022 = ╱ec╱,╱ // 0x1811 @0x22
0x17ef…184f at0023 = ╱54╱T╱ // 0x1812 @0x23
0x17ef…184f at0024 = ╱32╱2╱ // 0x1813 @0x24
0x17ef…184f at0025 = ╱ed╱(╱ // 0x1814 @0x25
0x17ef…184f at0026 = ╱34╱4╱ // 0x1815 @0x26
0x17ef…184f at0027 = ╱fe00008003╱ // 0x1816 @0x27
0x17ef…184f at002c = ╱ee╱)╱ // 0x181b @0x2c
0x17ef…184f at002d = ╱ec╱,╱ // 0x181c @0x2d
0x17ef…184f at002e = ╱54╱T╱ // 0x181d @0x2e
0x17ef…184f at002f = ╱32╱2╱ // 0x181e @0x2f
0x17ef…184f at0030 = ╱ed╱(╱ // 0x181f @0x30
0x17ef…184f at0031 = ╱35╱5╱ // 0x1820 @0x31
0x17ef…184f at0032 = ╱fe0000a003╱ // 0x1821 @0x32
0x17ef…184f at0037 = ╱ee╱)╱ // 0x1826 @0x37
0x17ef…184f at0038 = ╱ec╱,╱ // 0x1827 @0x38
0x17ef…184f at0039 = ╱54╱T╱ // 0x1828 @0x39
0x17ef…184f at003a = ╱32╱2╱ // 0x1829 @0x3a
0x17ef…184f at003b = ╱ed╱(╱ // 0x182a @0x3b
0x17ef…184f at003c = ╱36╱6╱ // 0x182b @0x3c
0x17ef…184f at003d = ╱fe0000c003╱ // 0x182c @0x3d
0x17ef…184f at0042 = ╱ee╱)╱ // 0x1831 @0x42
0x17ef…184f at0043 = ╱ec╱,╱ // 0x1832 @0x43
0x17ef…184f at0044 = ╱54╱T╱ // 0x1833 @0x44
0x17ef…184f at0045 = ╱32╱2╱ // 0x1834 @0x45
0x17ef…184f at0046 = ╱ed╱(╱ // 0x1835 @0x46
0x17ef…184f at0047 = ╱37╱7╱ // 0x1836 @0x47
0x17ef…184f at0048 = ╱fe0000e003╱ // 0x1837 @0x48
0x17ef…184f at004d = ╱ee╱)╱ // 0x183c @0x4d
0x17ef…184f at004e = ╱ec╱,╱ // 0x183d @0x4e
0x17ef…184f at004f = ╱54╱T╱ // 0x183e @0x4f
0x17ef…184f at0050 = ╱32╱2╱ // 0x183f @0x50
0x17ef…184f at0051 = ╱ed╱(╱ // 0x1840 @0x51
0x17ef…184f at0052 = ╱38╱8╱ // 0x1841 @0x52
0x17ef…184f at0053 = ╱fe00008004╱ // 0x1842 @0x53
0x17ef…184f at0058 = ╱ee╱)╱ // 0x1847 @0x58
0x17ef…184f at0059 = ╱ec╱,╱ // 0x1848 @0x59
0x17ef…184f at005a = ╱54╱T╱ // 0x1849 @0x5a
0x17ef…184f at005b = ╱32╱2╱ // 0x184a @0x5b
0x17ef…184f at005c = ╱ed╱(╱ // 0x184b @0x5c
0x17ef…184f at005d = ╱57╱W╱ // 0x184c @0x5d
0x17ef…184f at005e = ╱ee╱)╱ // 0x184d @0x5e
0x17ef…184f at005f = EOL // 0x184e @0x5f
0x17ef…184f }
0x184f…1868 a5bf 2230 EXEC FEJL(W,20,K9$)
0x184f…1868 LineComalBin {
0x184f…1868 ptr = 0xa5bf // 0x184f @0x0
0x184f…1868 lno = 0x08b6 // 0x1851 @0x2
0x184f…1868 at0004 = ╱9d╱ EXEC ╱ // 0x1853 @0x4
0x184f…1868 at0005 = ╱46╱F╱ // 0x1854 @0x5
0x184f…1868 at0006 = ╱45╱E╱ // 0x1855 @0x6
0x184f…1868 at0007 = ╱4a╱J╱ // 0x1856 @0x7
0x184f…1868 at0008 = ╱4c╱L╱ // 0x1857 @0x8
0x184f…1868 at0009 = ╱ed╱(╱ // 0x1858 @0x9
0x184f…1868 at000a = ╱57╱W╱ // 0x1859 @0xa
0x184f…1868 at000b = ╱ec╱,╱ // 0x185a @0xb
0x184f…1868 at000c = ╱32╱2╱ // 0x185b @0xc
0x184f…1868 at000d = ╱30╱0╱ // 0x185c @0xd
0x184f…1868 at000e = ╱fe0000a005╱ // 0x185d @0xe
0x184f…1868 at0013 = ╱ec╱,╱ // 0x1862 @0x13
0x184f…1868 at0014 = ╱4b╱K╱ // 0x1863 @0x14
0x184f…1868 at0015 = ╱39╱9╱ // 0x1864 @0x15
0x184f…1868 at0016 = ╱ef╱$╱ // 0x1865 @0x16
0x184f…1868 at0017 = ╱ee╱)╱ // 0x1866 @0x17
0x184f…1868 at0018 = EOL // 0x1867 @0x18
0x184f…1868 }
0x1868…18c8 a61f 2240 GET K9$,13:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x1868…18c8 LineComalBin {
0x1868…18c8 ptr = 0xa61f // 0x1868 @0x0
0x1868…18c8 lno = 0x08c0 // 0x186a @0x2
0x1868…18c8 at0004 = ╱a9╱ GET ╱ // 0x186c @0x4
0x1868…18c8 at0005 = ╱4b╱K╱ // 0x186d @0x5
0x1868…18c8 at0006 = ╱39╱9╱ // 0x186e @0x6
0x1868…18c8 at0007 = ╱ef╱$╱ // 0x186f @0x7
0x1868…18c8 at0008 = ╱ec╱,╱ // 0x1870 @0x8
0x1868…18c8 at0009 = ╱31╱1╱ // 0x1871 @0x9
0x1868…18c8 at000a = ╱33╱3╱ // 0x1872 @0xa
0x1868…18c8 at000b = ╱fe0000d004╱ // 0x1873 @0xb
0x1868…18c8 at0010 = ╱f0╱:╱ // 0x1878 @0x10
0x1868…18c8 at0011 = ╱54╱T╱ // 0x1879 @0x11
0x1868…18c8 at0012 = ╱33╱3╱ // 0x187a @0x12
0x1868…18c8 at0013 = ╱ed╱(╱ // 0x187b @0x13
0x1868…18c8 at0014 = ╱45╱E╱ // 0x187c @0x14
0x1868…18c8 at0015 = ╱ee╱)╱ // 0x187d @0x15
0x1868…18c8 at0016 = ╱ec╱,╱ // 0x187e @0x16
0x1868…18c8 at0017 = ╱54╱T╱ // 0x187f @0x17
0x1868…18c8 at0018 = ╱33╱3╱ // 0x1880 @0x18
0x1868…18c8 at0019 = ╱ed╱(╱ // 0x1881 @0x19
0x1868…18c8 at001a = ╱47╱G╱ // 0x1882 @0x1a
0x1868…18c8 at001b = ╱ee╱)╱ // 0x1883 @0x1b
0x1868…18c8 at001c = ╱ec╱,╱ // 0x1884 @0x1c
0x1868…18c8 at001d = ╱54╱T╱ // 0x1885 @0x1d
0x1868…18c8 at001e = ╱33╱3╱ // 0x1886 @0x1e
0x1868…18c8 at001f = ╱ed╱(╱ // 0x1887 @0x1f
0x1868…18c8 at0020 = ╱56╱V╱ // 0x1888 @0x20
0x1868…18c8 at0021 = ╱ee╱)╱ // 0x1889 @0x21
0x1868…18c8 at0022 = ╱ec╱,╱ // 0x188a @0x22
0x1868…18c8 at0023 = ╱54╱T╱ // 0x188b @0x23
0x1868…18c8 at0024 = ╱33╱3╱ // 0x188c @0x24
0x1868…18c8 at0025 = ╱ed╱(╱ // 0x188d @0x25
0x1868…18c8 at0026 = ╱34╱4╱ // 0x188e @0x26
0x1868…18c8 at0027 = ╱fe00008003╱ // 0x188f @0x27
0x1868…18c8 at002c = ╱ee╱)╱ // 0x1894 @0x2c
0x1868…18c8 at002d = ╱ec╱,╱ // 0x1895 @0x2d
0x1868…18c8 at002e = ╱54╱T╱ // 0x1896 @0x2e
0x1868…18c8 at002f = ╱33╱3╱ // 0x1897 @0x2f
0x1868…18c8 at0030 = ╱ed╱(╱ // 0x1898 @0x30
0x1868…18c8 at0031 = ╱35╱5╱ // 0x1899 @0x31
0x1868…18c8 at0032 = ╱fe0000a003╱ // 0x189a @0x32
0x1868…18c8 at0037 = ╱ee╱)╱ // 0x189f @0x37
0x1868…18c8 at0038 = ╱ec╱,╱ // 0x18a0 @0x38
0x1868…18c8 at0039 = ╱54╱T╱ // 0x18a1 @0x39
0x1868…18c8 at003a = ╱33╱3╱ // 0x18a2 @0x3a
0x1868…18c8 at003b = ╱ed╱(╱ // 0x18a3 @0x3b
0x1868…18c8 at003c = ╱36╱6╱ // 0x18a4 @0x3c
0x1868…18c8 at003d = ╱fe0000c003╱ // 0x18a5 @0x3d
0x1868…18c8 at0042 = ╱ee╱)╱ // 0x18aa @0x42
0x1868…18c8 at0043 = ╱ec╱,╱ // 0x18ab @0x43
0x1868…18c8 at0044 = ╱54╱T╱ // 0x18ac @0x44
0x1868…18c8 at0045 = ╱33╱3╱ // 0x18ad @0x45
0x1868…18c8 at0046 = ╱ed╱(╱ // 0x18ae @0x46
0x1868…18c8 at0047 = ╱37╱7╱ // 0x18af @0x47
0x1868…18c8 at0048 = ╱fe0000e003╱ // 0x18b0 @0x48
0x1868…18c8 at004d = ╱ee╱)╱ // 0x18b5 @0x4d
0x1868…18c8 at004e = ╱ec╱,╱ // 0x18b6 @0x4e
0x1868…18c8 at004f = ╱54╱T╱ // 0x18b7 @0x4f
0x1868…18c8 at0050 = ╱33╱3╱ // 0x18b8 @0x50
0x1868…18c8 at0051 = ╱ed╱(╱ // 0x18b9 @0x51
0x1868…18c8 at0052 = ╱38╱8╱ // 0x18ba @0x52
0x1868…18c8 at0053 = ╱fe00008004╱ // 0x18bb @0x53
0x1868…18c8 at0058 = ╱ee╱)╱ // 0x18c0 @0x58
0x1868…18c8 at0059 = ╱ec╱,╱ // 0x18c1 @0x59
0x1868…18c8 at005a = ╱54╱T╱ // 0x18c2 @0x5a
0x1868…18c8 at005b = ╱33╱3╱ // 0x18c3 @0x5b
0x1868…18c8 at005c = ╱ed╱(╱ // 0x18c4 @0x5c
0x1868…18c8 at005d = ╱57╱W╱ // 0x18c5 @0x5d
0x1868…18c8 at005e = ╱ee╱)╱ // 0x18c6 @0x5e
0x1868…18c8 at005f = EOL // 0x18c7 @0x5f
0x1868…18c8 }
0x18c8…18e1 a638 2250 EXEC FEJL(W,21,K9$)
0x18c8…18e1 LineComalBin {
0x18c8…18e1 ptr = 0xa638 // 0x18c8 @0x0
0x18c8…18e1 lno = 0x08ca // 0x18ca @0x2
0x18c8…18e1 at0004 = ╱9d╱ EXEC ╱ // 0x18cc @0x4
0x18c8…18e1 at0005 = ╱46╱F╱ // 0x18cd @0x5
0x18c8…18e1 at0006 = ╱45╱E╱ // 0x18ce @0x6
0x18c8…18e1 at0007 = ╱4a╱J╱ // 0x18cf @0x7
0x18c8…18e1 at0008 = ╱4c╱L╱ // 0x18d0 @0x8
0x18c8…18e1 at0009 = ╱ed╱(╱ // 0x18d1 @0x9
0x18c8…18e1 at000a = ╱57╱W╱ // 0x18d2 @0xa
0x18c8…18e1 at000b = ╱ec╱,╱ // 0x18d3 @0xb
0x18c8…18e1 at000c = ╱32╱2╱ // 0x18d4 @0xc
0x18c8…18e1 at000d = ╱31╱1╱ // 0x18d5 @0xd
0x18c8…18e1 at000e = ╱fe0000a805╱ // 0x18d6 @0xe
0x18c8…18e1 at0013 = ╱ec╱,╱ // 0x18db @0x13
0x18c8…18e1 at0014 = ╱4b╱K╱ // 0x18dc @0x14
0x18c8…18e1 at0015 = ╱39╱9╱ // 0x18dd @0x15
0x18c8…18e1 at0016 = ╱ef╱$╱ // 0x18de @0x16
0x18c8…18e1 at0017 = ╱ee╱)╱ // 0x18df @0x17
0x18c8…18e1 at0018 = EOL // 0x18e0 @0x18
0x18c8…18e1 }
0x18e1…18ea a641 2260 CLOSE K9$
0x18e1…18ea LineComalBin {
0x18e1…18ea ptr = 0xa641 // 0x18e1 @0x0
0x18e1…18ea lno = 0x08d4 // 0x18e3 @0x2
0x18e1…18ea at0004 = ╱a8╱ CLOSE ╱ // 0x18e5 @0x4
0x18e1…18ea at0005 = ╱4b╱K╱ // 0x18e6 @0x5
0x18e1…18ea at0006 = ╱39╱9╱ // 0x18e7 @0x6
0x18e1…18ea at0007 = ╱ef╱$╱ // 0x18e8 @0x7
0x18e1…18ea at0008 = EOL // 0x18e9 @0x8
0x18e1…18ea }
0x18ea…1903 a65a 2270 EXEC FEJL(W,22,K9$)
0x18ea…1903 LineComalBin {
0x18ea…1903 ptr = 0xa65a // 0x18ea @0x0
0x18ea…1903 lno = 0x08de // 0x18ec @0x2
0x18ea…1903 at0004 = ╱9d╱ EXEC ╱ // 0x18ee @0x4
0x18ea…1903 at0005 = ╱46╱F╱ // 0x18ef @0x5
0x18ea…1903 at0006 = ╱45╱E╱ // 0x18f0 @0x6
0x18ea…1903 at0007 = ╱4a╱J╱ // 0x18f1 @0x7
0x18ea…1903 at0008 = ╱4c╱L╱ // 0x18f2 @0x8
0x18ea…1903 at0009 = ╱ed╱(╱ // 0x18f3 @0x9
0x18ea…1903 at000a = ╱57╱W╱ // 0x18f4 @0xa
0x18ea…1903 at000b = ╱ec╱,╱ // 0x18f5 @0xb
0x18ea…1903 at000c = ╱32╱2╱ // 0x18f6 @0xc
0x18ea…1903 at000d = ╱32╱2╱ // 0x18f7 @0xd
0x18ea…1903 at000e = ╱fe0000b005╱ // 0x18f8 @0xe
0x18ea…1903 at0013 = ╱ec╱,╱ // 0x18fd @0x13
0x18ea…1903 at0014 = ╱4b╱K╱ // 0x18fe @0x14
0x18ea…1903 at0015 = ╱39╱9╱ // 0x18ff @0x15
0x18ea…1903 at0016 = ╱ef╱$╱ // 0x1900 @0x16
0x18ea…1903 at0017 = ╱ee╱)╱ // 0x1901 @0x17
0x18ea…1903 at0018 = EOL // 0x1902 @0x18
0x18ea…1903 }
0x1903…1955 a6ac 2280 FAKTNR=T1(E);KREDNR=T1(G);DATO=T1(7);APOSTER=T2(4);AKRED=T2(5)
0x1903…1955 LineComalBin {
0x1903…1955 ptr = 0xa6ac // 0x1903 @0x0
0x1903…1955 lno = 0x08e8 // 0x1905 @0x2
0x1903…1955 at0004 = ╱46╱F╱ // 0x1907 @0x4
0x1903…1955 at0005 = ╱41╱A╱ // 0x1908 @0x5
0x1903…1955 at0006 = ╱4b╱K╱ // 0x1909 @0x6
0x1903…1955 at0007 = ╱54╱T╱ // 0x190a @0x7
0x1903…1955 at0008 = ╱4e╱N╱ // 0x190b @0x8
0x1903…1955 at0009 = ╱52╱R╱ // 0x190c @0x9
0x1903…1955 at000a = ╱dc╱=╱ // 0x190d @0xa
0x1903…1955 at000b = ╱54╱T╱ // 0x190e @0xb
0x1903…1955 at000c = ╱31╱1╱ // 0x190f @0xc
0x1903…1955 at000d = ╱ed╱(╱ // 0x1910 @0xd
0x1903…1955 at000e = ╱45╱E╱ // 0x1911 @0xe
0x1903…1955 at000f = ╱ee╱)╱ // 0x1912 @0xf
0x1903…1955 at0010 = ╱eb╱;╱ // 0x1913 @0x10
0x1903…1955 at0011 = ╱4b╱K╱ // 0x1914 @0x11
0x1903…1955 at0012 = ╱52╱R╱ // 0x1915 @0x12
0x1903…1955 at0013 = ╱45╱E╱ // 0x1916 @0x13
0x1903…1955 at0014 = ╱44╱D╱ // 0x1917 @0x14
0x1903…1955 at0015 = ╱4e╱N╱ // 0x1918 @0x15
0x1903…1955 at0016 = ╱52╱R╱ // 0x1919 @0x16
0x1903…1955 at0017 = ╱dc╱=╱ // 0x191a @0x17
0x1903…1955 at0018 = ╱54╱T╱ // 0x191b @0x18
0x1903…1955 at0019 = ╱31╱1╱ // 0x191c @0x19
0x1903…1955 at001a = ╱ed╱(╱ // 0x191d @0x1a
0x1903…1955 at001b = ╱47╱G╱ // 0x191e @0x1b
0x1903…1955 at001c = ╱ee╱)╱ // 0x191f @0x1c
0x1903…1955 at001d = ╱eb╱;╱ // 0x1920 @0x1d
0x1903…1955 at001e = ╱44╱D╱ // 0x1921 @0x1e
0x1903…1955 at001f = ╱41╱A╱ // 0x1922 @0x1f
0x1903…1955 at0020 = ╱54╱T╱ // 0x1923 @0x20
0x1903…1955 at0021 = ╱4f╱O╱ // 0x1924 @0x21
0x1903…1955 at0022 = ╱dc╱=╱ // 0x1925 @0x22
0x1903…1955 at0023 = ╱54╱T╱ // 0x1926 @0x23
0x1903…1955 at0024 = ╱31╱1╱ // 0x1927 @0x24
0x1903…1955 at0025 = ╱ed╱(╱ // 0x1928 @0x25
0x1903…1955 at0026 = ╱37╱7╱ // 0x1929 @0x26
0x1903…1955 at0027 = ╱fe0000e003╱ // 0x192a @0x27
0x1903…1955 at002c = ╱ee╱)╱ // 0x192f @0x2c
0x1903…1955 at002d = ╱eb╱;╱ // 0x1930 @0x2d
0x1903…1955 at002e = ╱41╱A╱ // 0x1931 @0x2e
0x1903…1955 at002f = ╱50╱P╱ // 0x1932 @0x2f
0x1903…1955 at0030 = ╱4f╱O╱ // 0x1933 @0x30
0x1903…1955 at0031 = ╱53╱S╱ // 0x1934 @0x31
0x1903…1955 at0032 = ╱54╱T╱ // 0x1935 @0x32
0x1903…1955 at0033 = ╱45╱E╱ // 0x1936 @0x33
0x1903…1955 at0034 = ╱52╱R╱ // 0x1937 @0x34
0x1903…1955 at0035 = ╱dc╱=╱ // 0x1938 @0x35
0x1903…1955 at0036 = ╱54╱T╱ // 0x1939 @0x36
0x1903…1955 at0037 = ╱32╱2╱ // 0x193a @0x37
0x1903…1955 at0038 = ╱ed╱(╱ // 0x193b @0x38
0x1903…1955 at0039 = ╱34╱4╱ // 0x193c @0x39
0x1903…1955 at003a = ╱fe00008003╱ // 0x193d @0x3a
0x1903…1955 at003f = ╱ee╱)╱ // 0x1942 @0x3f
0x1903…1955 at0040 = ╱eb╱;╱ // 0x1943 @0x40
0x1903…1955 at0041 = ╱41╱A╱ // 0x1944 @0x41
0x1903…1955 at0042 = ╱4b╱K╱ // 0x1945 @0x42
0x1903…1955 at0043 = ╱52╱R╱ // 0x1946 @0x43
0x1903…1955 at0044 = ╱45╱E╱ // 0x1947 @0x44
0x1903…1955 at0045 = ╱44╱D╱ // 0x1948 @0x45
0x1903…1955 at0046 = ╱dc╱=╱ // 0x1949 @0x46
0x1903…1955 at0047 = ╱54╱T╱ // 0x194a @0x47
0x1903…1955 at0048 = ╱32╱2╱ // 0x194b @0x48
0x1903…1955 at0049 = ╱ed╱(╱ // 0x194c @0x49
0x1903…1955 at004a = ╱35╱5╱ // 0x194d @0x4a
0x1903…1955 at004b = ╱fe0000a003╱ // 0x194e @0x4b
0x1903…1955 at0050 = ╱ee╱)╱ // 0x1953 @0x50
0x1903…1955 at0051 = EOL // 0x1954 @0x51
0x1903…1955 }
0x1955…198f a6e6 2290 AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8)
0x1955…198f LineComalBin {
0x1955…198f ptr = 0xa6e6 // 0x1955 @0x0
0x1955…198f lno = 0x08f2 // 0x1957 @0x2
0x1955…198f at0004 = ╱41╱A╱ // 0x1959 @0x4
0x1955…198f at0005 = ╱46╱F╱ // 0x195a @0x5
0x1955…198f at0006 = ╱41╱A╱ // 0x195b @0x6
0x1955…198f at0007 = ╱4b╱K╱ // 0x195c @0x7
0x1955…198f at0008 = ╱54╱T╱ // 0x195d @0x8
0x1955…198f at0009 = ╱dc╱=╱ // 0x195e @0x9
0x1955…198f at000a = ╱54╱T╱ // 0x195f @0xa
0x1955…198f at000b = ╱32╱2╱ // 0x1960 @0xb
0x1955…198f at000c = ╱ed╱(╱ // 0x1961 @0xc
0x1955…198f at000d = ╱36╱6╱ // 0x1962 @0xd
0x1955…198f at000e = ╱fe0000c003╱ // 0x1963 @0xe
0x1955…198f at0013 = ╱ee╱)╱ // 0x1968 @0x13
0x1955…198f at0014 = ╱eb╱;╱ // 0x1969 @0x14
0x1955…198f at0015 = ╱41╱A╱ // 0x196a @0x15
0x1955…198f at0016 = ╱56╱V╱ // 0x196b @0x16
0x1955…198f at0017 = ╱4b╱K╱ // 0x196c @0x17
0x1955…198f at0018 = ╱4f╱O╱ // 0x196d @0x18
0x1955…198f at0019 = ╱4e╱N╱ // 0x196e @0x19
0x1955…198f at001a = ╱54╱T╱ // 0x196f @0x1a
0x1955…198f at001b = ╱49╱I╱ // 0x1970 @0x1b
0x1955…198f at001c = ╱dc╱=╱ // 0x1971 @0x1c
0x1955…198f at001d = ╱54╱T╱ // 0x1972 @0x1d
0x1955…198f at001e = ╱32╱2╱ // 0x1973 @0x1e
0x1955…198f at001f = ╱ed╱(╱ // 0x1974 @0x1f
0x1955…198f at0020 = ╱37╱7╱ // 0x1975 @0x20
0x1955…198f at0021 = ╱fe0000e003╱ // 0x1976 @0x21
0x1955…198f at0026 = ╱ee╱)╱ // 0x197b @0x26
0x1955…198f at0027 = ╱eb╱;╱ // 0x197c @0x27
0x1955…198f at0028 = ╱46╱F╱ // 0x197d @0x28
0x1955…198f at0029 = ╱4a╱J╱ // 0x197e @0x29
0x1955…198f at002a = ╱50╱P╱ // 0x197f @0x2a
0x1955…198f at002b = ╱4f╱O╱ // 0x1980 @0x2b
0x1955…198f at002c = ╱53╱S╱ // 0x1981 @0x2c
0x1955…198f at002d = ╱54╱T╱ // 0x1982 @0x2d
0x1955…198f at002e = ╱dc╱=╱ // 0x1983 @0x2e
0x1955…198f at002f = ╱54╱T╱ // 0x1984 @0x2f
0x1955…198f at0030 = ╱32╱2╱ // 0x1985 @0x30
0x1955…198f at0031 = ╱ed╱(╱ // 0x1986 @0x31
0x1955…198f at0032 = ╱38╱8╱ // 0x1987 @0x32
0x1955…198f at0033 = ╱fe00008004╱ // 0x1988 @0x33
0x1955…198f at0038 = ╱ee╱)╱ // 0x198d @0x38
0x1955…198f at0039 = EOL // 0x198e @0x39
0x1955…198f }
0x198f…199a a6f1 2300 OPEN K2$,R
0x198f…199a LineComalBin {
0x198f…199a ptr = 0xa6f1 // 0x198f @0x0
0x198f…199a lno = 0x08fc // 0x1991 @0x2
0x198f…199a at0004 = ╱a7╱ OPEN ╱ // 0x1993 @0x4
0x198f…199a at0005 = ╱4b╱K╱ // 0x1994 @0x5
0x198f…199a at0006 = ╱32╱2╱ // 0x1995 @0x6
0x198f…199a at0007 = ╱ef╱$╱ // 0x1996 @0x7
0x198f…199a at0008 = ╱ec╱,╱ // 0x1997 @0x8
0x198f…199a at0009 = ╱52╱R╱ // 0x1998 @0x9
0x198f…199a at000a = EOL // 0x1999 @0xa
0x198f…199a }
0x199a…19b3 a70a 2310 EXEC FEJL(W,23,K2$)
0x199a…19b3 LineComalBin {
0x199a…19b3 ptr = 0xa70a // 0x199a @0x0
0x199a…19b3 lno = 0x0906 // 0x199c @0x2
0x199a…19b3 at0004 = ╱9d╱ EXEC ╱ // 0x199e @0x4
0x199a…19b3 at0005 = ╱46╱F╱ // 0x199f @0x5
0x199a…19b3 at0006 = ╱45╱E╱ // 0x19a0 @0x6
0x199a…19b3 at0007 = ╱4a╱J╱ // 0x19a1 @0x7
0x199a…19b3 at0008 = ╱4c╱L╱ // 0x19a2 @0x8
0x199a…19b3 at0009 = ╱ed╱(╱ // 0x19a3 @0x9
0x199a…19b3 at000a = ╱57╱W╱ // 0x19a4 @0xa
0x199a…19b3 at000b = ╱ec╱,╱ // 0x19a5 @0xb
0x199a…19b3 at000c = ╱32╱2╱ // 0x19a6 @0xc
0x199a…19b3 at000d = ╱33╱3╱ // 0x19a7 @0xd
0x199a…19b3 at000e = ╱fe0000b805╱ // 0x19a8 @0xe
0x199a…19b3 at0013 = ╱ec╱,╱ // 0x19ad @0x13
0x199a…19b3 at0014 = ╱4b╱K╱ // 0x19ae @0x14
0x199a…19b3 at0015 = ╱32╱2╱ // 0x19af @0x15
0x199a…19b3 at0016 = ╱ef╱$╱ // 0x19b0 @0x16
0x199a…19b3 at0017 = ╱ee╱)╱ // 0x19b1 @0x17
0x199a…19b3 at0018 = EOL // 0x19b2 @0x18
0x199a…19b3 }
0x19b3…19be a715 2320 OPEN K3$,R
0x19b3…19be LineComalBin {
0x19b3…19be ptr = 0xa715 // 0x19b3 @0x0
0x19b3…19be lno = 0x0910 // 0x19b5 @0x2
0x19b3…19be at0004 = ╱a7╱ OPEN ╱ // 0x19b7 @0x4
0x19b3…19be at0005 = ╱4b╱K╱ // 0x19b8 @0x5
0x19b3…19be at0006 = ╱33╱3╱ // 0x19b9 @0x6
0x19b3…19be at0007 = ╱ef╱$╱ // 0x19ba @0x7
0x19b3…19be at0008 = ╱ec╱,╱ // 0x19bb @0x8
0x19b3…19be at0009 = ╱52╱R╱ // 0x19bc @0x9
0x19b3…19be at000a = EOL // 0x19bd @0xa
0x19b3…19be }
0x19be…19d7 a72e 2330 EXEC FEJL(W,24,K3$)
0x19be…19d7 LineComalBin {
0x19be…19d7 ptr = 0xa72e // 0x19be @0x0
0x19be…19d7 lno = 0x091a // 0x19c0 @0x2
0x19be…19d7 at0004 = ╱9d╱ EXEC ╱ // 0x19c2 @0x4
0x19be…19d7 at0005 = ╱46╱F╱ // 0x19c3 @0x5
0x19be…19d7 at0006 = ╱45╱E╱ // 0x19c4 @0x6
0x19be…19d7 at0007 = ╱4a╱J╱ // 0x19c5 @0x7
0x19be…19d7 at0008 = ╱4c╱L╱ // 0x19c6 @0x8
0x19be…19d7 at0009 = ╱ed╱(╱ // 0x19c7 @0x9
0x19be…19d7 at000a = ╱57╱W╱ // 0x19c8 @0xa
0x19be…19d7 at000b = ╱ec╱,╱ // 0x19c9 @0xb
0x19be…19d7 at000c = ╱32╱2╱ // 0x19ca @0xc
0x19be…19d7 at000d = ╱34╱4╱ // 0x19cb @0xd
0x19be…19d7 at000e = ╱fe0000c005╱ // 0x19cc @0xe
0x19be…19d7 at0013 = ╱ec╱,╱ // 0x19d1 @0x13
0x19be…19d7 at0014 = ╱4b╱K╱ // 0x19d2 @0x14
0x19be…19d7 at0015 = ╱33╱3╱ // 0x19d3 @0x15
0x19be…19d7 at0016 = ╱ef╱$╱ // 0x19d4 @0x16
0x19be…19d7 at0017 = ╱ee╱)╱ // 0x19d5 @0x17
0x19be…19d7 at0018 = EOL // 0x19d6 @0x18
0x19be…19d7 }
0x19d7…19e2 a739 2340 OPEN K4$,W
0x19d7…19e2 LineComalBin {
0x19d7…19e2 ptr = 0xa739 // 0x19d7 @0x0
0x19d7…19e2 lno = 0x0924 // 0x19d9 @0x2
0x19d7…19e2 at0004 = ╱a7╱ OPEN ╱ // 0x19db @0x4
0x19d7…19e2 at0005 = ╱4b╱K╱ // 0x19dc @0x5
0x19d7…19e2 at0006 = ╱34╱4╱ // 0x19dd @0x6
0x19d7…19e2 at0007 = ╱ef╱$╱ // 0x19de @0x7
0x19d7…19e2 at0008 = ╱ec╱,╱ // 0x19df @0x8
0x19d7…19e2 at0009 = ╱57╱W╱ // 0x19e0 @0x9
0x19d7…19e2 at000a = EOL // 0x19e1 @0xa
0x19d7…19e2 }
0x19e2…19fb a752 2350 EXEC FEJL(W,25,K4$)
0x19e2…19fb LineComalBin {
0x19e2…19fb ptr = 0xa752 // 0x19e2 @0x0
0x19e2…19fb lno = 0x092e // 0x19e4 @0x2
0x19e2…19fb at0004 = ╱9d╱ EXEC ╱ // 0x19e6 @0x4
0x19e2…19fb at0005 = ╱46╱F╱ // 0x19e7 @0x5
0x19e2…19fb at0006 = ╱45╱E╱ // 0x19e8 @0x6
0x19e2…19fb at0007 = ╱4a╱J╱ // 0x19e9 @0x7
0x19e2…19fb at0008 = ╱4c╱L╱ // 0x19ea @0x8
0x19e2…19fb at0009 = ╱ed╱(╱ // 0x19eb @0x9
0x19e2…19fb at000a = ╱57╱W╱ // 0x19ec @0xa
0x19e2…19fb at000b = ╱ec╱,╱ // 0x19ed @0xb
0x19e2…19fb at000c = ╱32╱2╱ // 0x19ee @0xc
0x19e2…19fb at000d = ╱35╱5╱ // 0x19ef @0xd
0x19e2…19fb at000e = ╱fe0000c805╱ // 0x19f0 @0xe
0x19e2…19fb at0013 = ╱ec╱,╱ // 0x19f5 @0x13
0x19e2…19fb at0014 = ╱4b╱K╱ // 0x19f6 @0x14
0x19e2…19fb at0015 = ╱34╱4╱ // 0x19f7 @0x15
0x19e2…19fb at0016 = ╱ef╱$╱ // 0x19f8 @0x16
0x19e2…19fb at0017 = ╱ee╱)╱ // 0x19f9 @0x17
0x19e2…19fb at0018 = EOL // 0x19fa @0x18
0x19e2…19fb }
0x19fb…1a06 a75d 2360 OPEN K5$,R
0x19fb…1a06 LineComalBin {
0x19fb…1a06 ptr = 0xa75d // 0x19fb @0x0
0x19fb…1a06 lno = 0x0938 // 0x19fd @0x2
0x19fb…1a06 at0004 = ╱a7╱ OPEN ╱ // 0x19ff @0x4
0x19fb…1a06 at0005 = ╱4b╱K╱ // 0x1a00 @0x5
0x19fb…1a06 at0006 = ╱35╱5╱ // 0x1a01 @0x6
0x19fb…1a06 at0007 = ╱ef╱$╱ // 0x1a02 @0x7
0x19fb…1a06 at0008 = ╱ec╱,╱ // 0x1a03 @0x8
0x19fb…1a06 at0009 = ╱52╱R╱ // 0x1a04 @0x9
0x19fb…1a06 at000a = EOL // 0x1a05 @0xa
0x19fb…1a06 }
0x1a06…1a1f a776 2370 EXEC FEJL(W,26,K5$)
0x1a06…1a1f LineComalBin {
0x1a06…1a1f ptr = 0xa776 // 0x1a06 @0x0
0x1a06…1a1f lno = 0x0942 // 0x1a08 @0x2
0x1a06…1a1f at0004 = ╱9d╱ EXEC ╱ // 0x1a0a @0x4
0x1a06…1a1f at0005 = ╱46╱F╱ // 0x1a0b @0x5
0x1a06…1a1f at0006 = ╱45╱E╱ // 0x1a0c @0x6
0x1a06…1a1f at0007 = ╱4a╱J╱ // 0x1a0d @0x7
0x1a06…1a1f at0008 = ╱4c╱L╱ // 0x1a0e @0x8
0x1a06…1a1f at0009 = ╱ed╱(╱ // 0x1a0f @0x9
0x1a06…1a1f at000a = ╱57╱W╱ // 0x1a10 @0xa
0x1a06…1a1f at000b = ╱ec╱,╱ // 0x1a11 @0xb
0x1a06…1a1f at000c = ╱32╱2╱ // 0x1a12 @0xc
0x1a06…1a1f at000d = ╱36╱6╱ // 0x1a13 @0xd
0x1a06…1a1f at000e = ╱fe0000d005╱ // 0x1a14 @0xe
0x1a06…1a1f at0013 = ╱ec╱,╱ // 0x1a19 @0x13
0x1a06…1a1f at0014 = ╱4b╱K╱ // 0x1a1a @0x14
0x1a06…1a1f at0015 = ╱35╱5╱ // 0x1a1b @0x15
0x1a06…1a1f at0016 = ╱ef╱$╱ // 0x1a1c @0x16
0x1a06…1a1f at0017 = ╱ee╱)╱ // 0x1a1d @0x17
0x1a06…1a1f at0018 = EOL // 0x1a1e @0x18
0x1a06…1a1f }
0x1a1f…1a3f a796 2380 EXEC INDTAB1(DTAB1,MDANTAL,K2$)
0x1a1f…1a3f LineComalBin {
0x1a1f…1a3f ptr = 0xa796 // 0x1a1f @0x0
0x1a1f…1a3f lno = 0x094c // 0x1a21 @0x2
0x1a1f…1a3f at0004 = ╱9d╱ EXEC ╱ // 0x1a23 @0x4
0x1a1f…1a3f at0005 = ╱49╱I╱ // 0x1a24 @0x5
0x1a1f…1a3f at0006 = ╱4e╱N╱ // 0x1a25 @0x6
0x1a1f…1a3f at0007 = ╱44╱D╱ // 0x1a26 @0x7
0x1a1f…1a3f at0008 = ╱54╱T╱ // 0x1a27 @0x8
0x1a1f…1a3f at0009 = ╱41╱A╱ // 0x1a28 @0x9
0x1a1f…1a3f at000a = ╱42╱B╱ // 0x1a29 @0xa
0x1a1f…1a3f at000b = ╱31╱1╱ // 0x1a2a @0xb
0x1a1f…1a3f at000c = ╱ed╱(╱ // 0x1a2b @0xc
0x1a1f…1a3f at000d = ╱44╱D╱ // 0x1a2c @0xd
0x1a1f…1a3f at000e = ╱54╱T╱ // 0x1a2d @0xe
0x1a1f…1a3f at000f = ╱41╱A╱ // 0x1a2e @0xf
0x1a1f…1a3f at0010 = ╱42╱B╱ // 0x1a2f @0x10
0x1a1f…1a3f at0011 = ╱31╱1╱ // 0x1a30 @0x11
0x1a1f…1a3f at0012 = ╱ec╱,╱ // 0x1a31 @0x12
0x1a1f…1a3f at0013 = ╱4d╱M╱ // 0x1a32 @0x13
0x1a1f…1a3f at0014 = ╱44╱D╱ // 0x1a33 @0x14
0x1a1f…1a3f at0015 = ╱41╱A╱ // 0x1a34 @0x15
0x1a1f…1a3f at0016 = ╱4e╱N╱ // 0x1a35 @0x16
0x1a1f…1a3f at0017 = ╱54╱T╱ // 0x1a36 @0x17
0x1a1f…1a3f at0018 = ╱41╱A╱ // 0x1a37 @0x18
0x1a1f…1a3f at0019 = ╱4c╱L╱ // 0x1a38 @0x19
0x1a1f…1a3f at001a = ╱ec╱,╱ // 0x1a39 @0x1a
0x1a1f…1a3f at001b = ╱4b╱K╱ // 0x1a3a @0x1b
0x1a1f…1a3f at001c = ╱32╱2╱ // 0x1a3b @0x1c
0x1a1f…1a3f at001d = ╱ef╱$╱ // 0x1a3c @0x1d
0x1a1f…1a3f at001e = ╱ee╱)╱ // 0x1a3d @0x1e
0x1a1f…1a3f at001f = EOL // 0x1a3e @0x1f
0x1a1f…1a3f }
0x1a3f…1a5f a7b6 2390 EXEC INDTAB1(VTAB1,MVANTAL,K3$)
0x1a3f…1a5f LineComalBin {
0x1a3f…1a5f ptr = 0xa7b6 // 0x1a3f @0x0
0x1a3f…1a5f lno = 0x0956 // 0x1a41 @0x2
0x1a3f…1a5f at0004 = ╱9d╱ EXEC ╱ // 0x1a43 @0x4
0x1a3f…1a5f at0005 = ╱49╱I╱ // 0x1a44 @0x5
0x1a3f…1a5f at0006 = ╱4e╱N╱ // 0x1a45 @0x6
0x1a3f…1a5f at0007 = ╱44╱D╱ // 0x1a46 @0x7
0x1a3f…1a5f at0008 = ╱54╱T╱ // 0x1a47 @0x8
0x1a3f…1a5f at0009 = ╱41╱A╱ // 0x1a48 @0x9
0x1a3f…1a5f at000a = ╱42╱B╱ // 0x1a49 @0xa
0x1a3f…1a5f at000b = ╱31╱1╱ // 0x1a4a @0xb
0x1a3f…1a5f at000c = ╱ed╱(╱ // 0x1a4b @0xc
0x1a3f…1a5f at000d = ╱56╱V╱ // 0x1a4c @0xd
0x1a3f…1a5f at000e = ╱54╱T╱ // 0x1a4d @0xe
0x1a3f…1a5f at000f = ╱41╱A╱ // 0x1a4e @0xf
0x1a3f…1a5f at0010 = ╱42╱B╱ // 0x1a4f @0x10
0x1a3f…1a5f at0011 = ╱31╱1╱ // 0x1a50 @0x11
0x1a3f…1a5f at0012 = ╱ec╱,╱ // 0x1a51 @0x12
0x1a3f…1a5f at0013 = ╱4d╱M╱ // 0x1a52 @0x13
0x1a3f…1a5f at0014 = ╱56╱V╱ // 0x1a53 @0x14
0x1a3f…1a5f at0015 = ╱41╱A╱ // 0x1a54 @0x15
0x1a3f…1a5f at0016 = ╱4e╱N╱ // 0x1a55 @0x16
0x1a3f…1a5f at0017 = ╱54╱T╱ // 0x1a56 @0x17
0x1a3f…1a5f at0018 = ╱41╱A╱ // 0x1a57 @0x18
0x1a3f…1a5f at0019 = ╱4c╱L╱ // 0x1a58 @0x19
0x1a3f…1a5f at001a = ╱ec╱,╱ // 0x1a59 @0x1a
0x1a3f…1a5f at001b = ╱4b╱K╱ // 0x1a5a @0x1b
0x1a3f…1a5f at001c = ╱33╱3╱ // 0x1a5b @0x1c
0x1a3f…1a5f at001d = ╱ef╱$╱ // 0x1a5c @0x1d
0x1a3f…1a5f at001e = ╱ee╱)╱ // 0x1a5d @0x1e
0x1a3f…1a5f at001f = EOL // 0x1a5e @0x1f
0x1a3f…1a5f }
0x1a5f…1a6c a7c3 2400 EXEC TABHENT
0x1a5f…1a6c LineComalBin {
0x1a5f…1a6c ptr = 0xa7c3 // 0x1a5f @0x0
0x1a5f…1a6c lno = 0x0960 // 0x1a61 @0x2
0x1a5f…1a6c at0004 = ╱9d╱ EXEC ╱ // 0x1a63 @0x4
0x1a5f…1a6c at0005 = ╱54╱T╱ // 0x1a64 @0x5
0x1a5f…1a6c at0006 = ╱41╱A╱ // 0x1a65 @0x6
0x1a5f…1a6c at0007 = ╱42╱B╱ // 0x1a66 @0x7
0x1a5f…1a6c at0008 = ╱48╱H╱ // 0x1a67 @0x8
0x1a5f…1a6c at0009 = ╱45╱E╱ // 0x1a68 @0x9
0x1a5f…1a6c at000a = ╱4e╱N╱ // 0x1a69 @0xa
0x1a5f…1a6c at000b = ╱54╱T╱ // 0x1a6a @0xb
0x1a5f…1a6c at000c = EOL // 0x1a6b @0xc
0x1a5f…1a6c }
0x1a6c…1a72 a7c9 2410 CLEAR
0x1a6c…1a72 LineComalBin {
0x1a6c…1a72 ptr = 0xa7c9 // 0x1a6c @0x0
0x1a6c…1a72 lno = 0x096a // 0x1a6e @0x2
0x1a6c…1a72 at0004 = ╱a0╱ CLEAR ╱ // 0x1a70 @0x4
0x1a6c…1a72 at0005 = EOL // 0x1a71 @0x5
0x1a6c…1a72 }
0x1a72…1a81 a7d8 2420 CURSOR 20,W
0x1a72…1a81 LineComalBin {
0x1a72…1a81 ptr = 0xa7d8 // 0x1a72 @0x0
0x1a72…1a81 lno = 0x0974 // 0x1a74 @0x2
0x1a72…1a81 at0004 = ╱a1╱ CURSOR ╱ // 0x1a76 @0x4
0x1a72…1a81 at0005 = ╱32╱2╱ // 0x1a77 @0x5
0x1a72…1a81 at0006 = ╱30╱0╱ // 0x1a78 @0x6
0x1a72…1a81 at0007 = ╱fe0000a005╱ // 0x1a79 @0x7
0x1a72…1a81 at000c = ╱ec╱,╱ // 0x1a7e @0xc
0x1a72…1a81 at000d = ╱57╱W╱ // 0x1a7f @0xd
0x1a72…1a81 at000e = EOL // 0x1a80 @0xe
0x1a72…1a81 }
0x1a81…1aa2 a7f9 2430 PRINT "Udskrivning af fakturaer."
0x1a81…1aa2 LineComalBin {
0x1a81…1aa2 ptr = 0xa7f9 // 0x1a81 @0x0
0x1a81…1aa2 lno = 0x097e // 0x1a83 @0x2
0x1a81…1aa2 at0004 = ╱92╱ PRINT ╱ // 0x1a85 @0x4
0x1a81…1aa2 at0005 = ╱22╱"╱ // 0x1a86 @0x5
0x1a81…1aa2 at0006 = ╱55╱U╱ // 0x1a87 @0x6
0x1a81…1aa2 at0007 = ╱64╱d╱ // 0x1a88 @0x7
0x1a81…1aa2 at0008 = ╱73╱s╱ // 0x1a89 @0x8
0x1a81…1aa2 at0009 = ╱6b╱k╱ // 0x1a8a @0x9
0x1a81…1aa2 at000a = ╱72╱r╱ // 0x1a8b @0xa
0x1a81…1aa2 at000b = ╱69╱i╱ // 0x1a8c @0xb
0x1a81…1aa2 at000c = ╱76╱v╱ // 0x1a8d @0xc
0x1a81…1aa2 at000d = ╱6e╱n╱ // 0x1a8e @0xd
0x1a81…1aa2 at000e = ╱69╱i╱ // 0x1a8f @0xe
0x1a81…1aa2 at000f = ╱6e╱n╱ // 0x1a90 @0xf
0x1a81…1aa2 at0010 = ╱67╱g╱ // 0x1a91 @0x10
0x1a81…1aa2 at0011 = ╱20╱…╱ // 0x1a92 @0x11
0x1a81…1aa2 at0012 = ╱61╱a╱ // 0x1a93 @0x12
0x1a81…1aa2 at0013 = ╱66╱f╱ // 0x1a94 @0x13
0x1a81…1aa2 at0014 = ╱20╱…╱ // 0x1a95 @0x14
0x1a81…1aa2 at0015 = ╱66╱f╱ // 0x1a96 @0x15
0x1a81…1aa2 at0016 = ╱61╱a╱ // 0x1a97 @0x16
0x1a81…1aa2 at0017 = ╱6b╱k╱ // 0x1a98 @0x17
0x1a81…1aa2 at0018 = ╱74╱t╱ // 0x1a99 @0x18
0x1a81…1aa2 at0019 = ╱75╱u╱ // 0x1a9a @0x19
0x1a81…1aa2 at001a = ╱72╱r╱ // 0x1a9b @0x1a
0x1a81…1aa2 at001b = ╱61╱a╱ // 0x1a9c @0x1b
0x1a81…1aa2 at001c = ╱65╱e╱ // 0x1a9d @0x1c
0x1a81…1aa2 at001d = ╱72╱r╱ // 0x1a9e @0x1d
0x1a81…1aa2 at001e = ╱2e╱.╱ // 0x1a9f @0x1e
0x1a81…1aa2 at001f = ╱22╱"╱ // 0x1aa0 @0x1f
0x1a81…1aa2 at0020 = EOL // 0x1aa1 @0x20
0x1a81…1aa2 }
0x1aa2…1ab7 a80e 2440 CURSOR 20,11
0x1aa2…1ab7 LineComalBin {
0x1aa2…1ab7 ptr = 0xa80e // 0x1aa2 @0x0
0x1aa2…1ab7 lno = 0x0988 // 0x1aa4 @0x2
0x1aa2…1ab7 at0004 = ╱a1╱ CURSOR ╱ // 0x1aa6 @0x4
0x1aa2…1ab7 at0005 = ╱32╱2╱ // 0x1aa7 @0x5
0x1aa2…1ab7 at0006 = ╱30╱0╱ // 0x1aa8 @0x6
0x1aa2…1ab7 at0007 = ╱fe0000a005╱ // 0x1aa9 @0x7
0x1aa2…1ab7 at000c = ╱ec╱,╱ // 0x1aae @0xc
0x1aa2…1ab7 at000d = ╱31╱1╱ // 0x1aaf @0xd
0x1aa2…1ab7 at000e = ╱31╱1╱ // 0x1ab0 @0xe
0x1aa2…1ab7 at000f = ╱fe0000b004╱ // 0x1ab1 @0xf
0x1aa2…1ab7 at0014 = EOL // 0x1ab6 @0x14
0x1aa2…1ab7 }
0x1ab7…1ac9 a820 2450 PRINT "0: Færdig."
0x1ab7…1ac9 LineComalBin {
0x1ab7…1ac9 ptr = 0xa820 // 0x1ab7 @0x0
0x1ab7…1ac9 lno = 0x0992 // 0x1ab9 @0x2
0x1ab7…1ac9 at0004 = ╱92╱ PRINT ╱ // 0x1abb @0x4
0x1ab7…1ac9 at0005 = ╱22╱"╱ // 0x1abc @0x5
0x1ab7…1ac9 at0006 = ╱30╱0╱ // 0x1abd @0x6
0x1ab7…1ac9 at0007 = ╱3a╱:╱ // 0x1abe @0x7
0x1ab7…1ac9 at0008 = ╱20╱…╱ // 0x1abf @0x8
0x1ab7…1ac9 at0009 = ╱46╱F╱ // 0x1ac0 @0x9
0x1ab7…1ac9 at000a = ╱7b╱æ╱ // 0x1ac1 @0xa
0x1ab7…1ac9 at000b = ╱72╱r╱ // 0x1ac2 @0xb
0x1ab7…1ac9 at000c = ╱64╱d╱ // 0x1ac3 @0xc
0x1ab7…1ac9 at000d = ╱69╱i╱ // 0x1ac4 @0xd
0x1ab7…1ac9 at000e = ╱67╱g╱ // 0x1ac5 @0xe
0x1ab7…1ac9 at000f = ╱2e╱.╱ // 0x1ac6 @0xf
0x1ab7…1ac9 at0010 = ╱22╱"╱ // 0x1ac7 @0x10
0x1ab7…1ac9 at0011 = EOL // 0x1ac8 @0x11
0x1ab7…1ac9 }
0x1ac9…1ade a835 2460 CURSOR 20,13
0x1ac9…1ade LineComalBin {
0x1ac9…1ade ptr = 0xa835 // 0x1ac9 @0x0
0x1ac9…1ade lno = 0x099c // 0x1acb @0x2
0x1ac9…1ade at0004 = ╱a1╱ CURSOR ╱ // 0x1acd @0x4
0x1ac9…1ade at0005 = ╱32╱2╱ // 0x1ace @0x5
0x1ac9…1ade at0006 = ╱30╱0╱ // 0x1acf @0x6
0x1ac9…1ade at0007 = ╱fe0000a005╱ // 0x1ad0 @0x7
0x1ac9…1ade at000c = ╱ec╱,╱ // 0x1ad5 @0xc
0x1ac9…1ade at000d = ╱31╱1╱ // 0x1ad6 @0xd
0x1ac9…1ade at000e = ╱33╱3╱ // 0x1ad7 @0xe
0x1ac9…1ade at000f = ╱fe0000d004╱ // 0x1ad8 @0xf
0x1ac9…1ade at0014 = EOL // 0x1add @0x14
0x1ac9…1ade }
0x1ade…1b0e a865 2470 PRINT "1: Udskrift af sidst indtastede faktura."
0x1ade…1b0e LineComalBin {
0x1ade…1b0e ptr = 0xa865 // 0x1ade @0x0
0x1ade…1b0e lno = 0x09a6 // 0x1ae0 @0x2
0x1ade…1b0e at0004 = ╱92╱ PRINT ╱ // 0x1ae2 @0x4
0x1ade…1b0e at0005 = ╱22╱"╱ // 0x1ae3 @0x5
0x1ade…1b0e at0006 = ╱31╱1╱ // 0x1ae4 @0x6
0x1ade…1b0e at0007 = ╱3a╱:╱ // 0x1ae5 @0x7
0x1ade…1b0e at0008 = ╱20╱…╱ // 0x1ae6 @0x8
0x1ade…1b0e at0009 = ╱55╱U╱ // 0x1ae7 @0x9
0x1ade…1b0e at000a = ╱64╱d╱ // 0x1ae8 @0xa
0x1ade…1b0e at000b = ╱73╱s╱ // 0x1ae9 @0xb
0x1ade…1b0e at000c = ╱6b╱k╱ // 0x1aea @0xc
0x1ade…1b0e at000d = ╱72╱r╱ // 0x1aeb @0xd
0x1ade…1b0e at000e = ╱69╱i╱ // 0x1aec @0xe
0x1ade…1b0e at000f = ╱66╱f╱ // 0x1aed @0xf
0x1ade…1b0e at0010 = ╱74╱t╱ // 0x1aee @0x10
0x1ade…1b0e at0011 = ╱20╱…╱ // 0x1aef @0x11
0x1ade…1b0e at0012 = ╱61╱a╱ // 0x1af0 @0x12
0x1ade…1b0e at0013 = ╱66╱f╱ // 0x1af1 @0x13
0x1ade…1b0e at0014 = ╱20╱…╱ // 0x1af2 @0x14
0x1ade…1b0e at0015 = ╱73╱s╱ // 0x1af3 @0x15
0x1ade…1b0e at0016 = ╱69╱i╱ // 0x1af4 @0x16
0x1ade…1b0e at0017 = ╱64╱d╱ // 0x1af5 @0x17
0x1ade…1b0e at0018 = ╱73╱s╱ // 0x1af6 @0x18
0x1ade…1b0e at0019 = ╱74╱t╱ // 0x1af7 @0x19
0x1ade…1b0e at001a = ╱20╱…╱ // 0x1af8 @0x1a
0x1ade…1b0e at001b = ╱69╱i╱ // 0x1af9 @0x1b
0x1ade…1b0e at001c = ╱6e╱n╱ // 0x1afa @0x1c
0x1ade…1b0e at001d = ╱64╱d╱ // 0x1afb @0x1d
0x1ade…1b0e at001e = ╱74╱t╱ // 0x1afc @0x1e
0x1ade…1b0e at001f = ╱61╱a╱ // 0x1afd @0x1f
0x1ade…1b0e at0020 = ╱73╱s╱ // 0x1afe @0x20
0x1ade…1b0e at0021 = ╱74╱t╱ // 0x1aff @0x21
0x1ade…1b0e at0022 = ╱65╱e╱ // 0x1b00 @0x22
0x1ade…1b0e at0023 = ╱64╱d╱ // 0x1b01 @0x23
0x1ade…1b0e at0024 = ╱65╱e╱ // 0x1b02 @0x24
0x1ade…1b0e at0025 = ╱20╱…╱ // 0x1b03 @0x25
0x1ade…1b0e at0026 = ╱66╱f╱ // 0x1b04 @0x26
0x1ade…1b0e at0027 = ╱61╱a╱ // 0x1b05 @0x27
0x1ade…1b0e at0028 = ╱6b╱k╱ // 0x1b06 @0x28
0x1ade…1b0e at0029 = ╱74╱t╱ // 0x1b07 @0x29
0x1ade…1b0e at002a = ╱75╱u╱ // 0x1b08 @0x2a
0x1ade…1b0e at002b = ╱72╱r╱ // 0x1b09 @0x2b
0x1ade…1b0e at002c = ╱61╱a╱ // 0x1b0a @0x2c
0x1ade…1b0e at002d = ╱2e╱.╱ // 0x1b0b @0x2d
0x1ade…1b0e at002e = ╱22╱"╱ // 0x1b0c @0x2e
0x1ade…1b0e at002f = EOL // 0x1b0d @0x2f
0x1ade…1b0e }
0x1b0e…1b23 a87a 2480 CURSOR 20,15
0x1b0e…1b23 LineComalBin {
0x1b0e…1b23 ptr = 0xa87a // 0x1b0e @0x0
0x1b0e…1b23 lno = 0x09b0 // 0x1b10 @0x2
0x1b0e…1b23 at0004 = ╱a1╱ CURSOR ╱ // 0x1b12 @0x4
0x1b0e…1b23 at0005 = ╱32╱2╱ // 0x1b13 @0x5
0x1b0e…1b23 at0006 = ╱30╱0╱ // 0x1b14 @0x6
0x1b0e…1b23 at0007 = ╱fe0000a005╱ // 0x1b15 @0x7
0x1b0e…1b23 at000c = ╱ec╱,╱ // 0x1b1a @0xc
0x1b0e…1b23 at000d = ╱31╱1╱ // 0x1b1b @0xd
0x1b0e…1b23 at000e = ╱35╱5╱ // 0x1b1c @0xe
0x1b0e…1b23 at000f = ╱fe0000f004╱ // 0x1b1d @0xf
0x1b0e…1b23 at0014 = EOL // 0x1b22 @0x14
0x1b0e…1b23 }
0x1b23…1b54 a8ab 2490 PRINT "2: Udskrift af alle indtastede fakturaer."
0x1b23…1b54 LineComalBin {
0x1b23…1b54 ptr = 0xa8ab // 0x1b23 @0x0
0x1b23…1b54 lno = 0x09ba // 0x1b25 @0x2
0x1b23…1b54 at0004 = ╱92╱ PRINT ╱ // 0x1b27 @0x4
0x1b23…1b54 at0005 = ╱22╱"╱ // 0x1b28 @0x5
0x1b23…1b54 at0006 = ╱32╱2╱ // 0x1b29 @0x6
0x1b23…1b54 at0007 = ╱3a╱:╱ // 0x1b2a @0x7
0x1b23…1b54 at0008 = ╱20╱…╱ // 0x1b2b @0x8
0x1b23…1b54 at0009 = ╱55╱U╱ // 0x1b2c @0x9
0x1b23…1b54 at000a = ╱64╱d╱ // 0x1b2d @0xa
0x1b23…1b54 at000b = ╱73╱s╱ // 0x1b2e @0xb
0x1b23…1b54 at000c = ╱6b╱k╱ // 0x1b2f @0xc
0x1b23…1b54 at000d = ╱72╱r╱ // 0x1b30 @0xd
0x1b23…1b54 at000e = ╱69╱i╱ // 0x1b31 @0xe
0x1b23…1b54 at000f = ╱66╱f╱ // 0x1b32 @0xf
0x1b23…1b54 at0010 = ╱74╱t╱ // 0x1b33 @0x10
0x1b23…1b54 at0011 = ╱20╱…╱ // 0x1b34 @0x11
0x1b23…1b54 at0012 = ╱61╱a╱ // 0x1b35 @0x12
0x1b23…1b54 at0013 = ╱66╱f╱ // 0x1b36 @0x13
0x1b23…1b54 at0014 = ╱20╱…╱ // 0x1b37 @0x14
0x1b23…1b54 at0015 = ╱61╱a╱ // 0x1b38 @0x15
0x1b23…1b54 at0016 = ╱6c╱l╱ // 0x1b39 @0x16
0x1b23…1b54 at0017 = ╱6c╱l╱ // 0x1b3a @0x17
0x1b23…1b54 at0018 = ╱65╱e╱ // 0x1b3b @0x18
0x1b23…1b54 at0019 = ╱20╱…╱ // 0x1b3c @0x19
0x1b23…1b54 at001a = ╱69╱i╱ // 0x1b3d @0x1a
0x1b23…1b54 at001b = ╱6e╱n╱ // 0x1b3e @0x1b
0x1b23…1b54 at001c = ╱64╱d╱ // 0x1b3f @0x1c
0x1b23…1b54 at001d = ╱74╱t╱ // 0x1b40 @0x1d
0x1b23…1b54 at001e = ╱61╱a╱ // 0x1b41 @0x1e
0x1b23…1b54 at001f = ╱73╱s╱ // 0x1b42 @0x1f
0x1b23…1b54 at0020 = ╱74╱t╱ // 0x1b43 @0x20
0x1b23…1b54 at0021 = ╱65╱e╱ // 0x1b44 @0x21
0x1b23…1b54 at0022 = ╱64╱d╱ // 0x1b45 @0x22
0x1b23…1b54 at0023 = ╱65╱e╱ // 0x1b46 @0x23
0x1b23…1b54 at0024 = ╱20╱…╱ // 0x1b47 @0x24
0x1b23…1b54 at0025 = ╱66╱f╱ // 0x1b48 @0x25
0x1b23…1b54 at0026 = ╱61╱a╱ // 0x1b49 @0x26
0x1b23…1b54 at0027 = ╱6b╱k╱ // 0x1b4a @0x27
0x1b23…1b54 at0028 = ╱74╱t╱ // 0x1b4b @0x28
0x1b23…1b54 at0029 = ╱75╱u╱ // 0x1b4c @0x29
0x1b23…1b54 at002a = ╱72╱r╱ // 0x1b4d @0x2a
0x1b23…1b54 at002b = ╱61╱a╱ // 0x1b4e @0x2b
0x1b23…1b54 at002c = ╱65╱e╱ // 0x1b4f @0x2c
0x1b23…1b54 at002d = ╱72╱r╱ // 0x1b50 @0x2d
0x1b23…1b54 at002e = ╱2e╱.╱ // 0x1b51 @0x2e
0x1b23…1b54 at002f = ╱22╱"╱ // 0x1b52 @0x2f
0x1b23…1b54 at0030 = EOL // 0x1b53 @0x30
0x1b23…1b54 }
0x1b54…1b5a a8b1 2500 REPEAT
0x1b54…1b5a LineComalBin {
0x1b54…1b5a ptr = 0xa8b1 // 0x1b54 @0x0
0x1b54…1b5a lno = 0x09c4 // 0x1b56 @0x2
0x1b54…1b5a at0004 = ╱97╱ REPEAT ╱ // 0x1b58 @0x4
0x1b54…1b5a at0005 = EOL // 0x1b59 @0x5
0x1b54…1b5a }
0x1b5a…1b6f a8c6 2510 CURSOR 20,17
0x1b5a…1b6f LineComalBin {
0x1b5a…1b6f ptr = 0xa8c6 // 0x1b5a @0x0
0x1b5a…1b6f lno = 0x09ce // 0x1b5c @0x2
0x1b5a…1b6f at0004 = ╱a1╱ CURSOR ╱ // 0x1b5e @0x4
0x1b5a…1b6f at0005 = ╱32╱2╱ // 0x1b5f @0x5
0x1b5a…1b6f at0006 = ╱30╱0╱ // 0x1b60 @0x6
0x1b5a…1b6f at0007 = ╱fe0000a005╱ // 0x1b61 @0x7
0x1b5a…1b6f at000c = ╱ec╱,╱ // 0x1b66 @0xc
0x1b5a…1b6f at000d = ╱31╱1╱ // 0x1b67 @0xd
0x1b5a…1b6f at000e = ╱37╱7╱ // 0x1b68 @0xe
0x1b5a…1b6f at000f = ╱fe00008805╱ // 0x1b69 @0xf
0x1b5a…1b6f at0014 = EOL // 0x1b6e @0x14
0x1b5a…1b6f }
0x1b6f…1b87 a8de 2520 INPUT "Vælg 0-2:",SVAR1$
0x1b6f…1b87 LineComalBin {
0x1b6f…1b87 ptr = 0xa8de // 0x1b6f @0x0
0x1b6f…1b87 lno = 0x09d8 // 0x1b71 @0x2
0x1b6f…1b87 at0004 = ╱91╱ INPUT ╱ // 0x1b73 @0x4
0x1b6f…1b87 at0005 = ╱22╱"╱ // 0x1b74 @0x5
0x1b6f…1b87 at0006 = ╱56╱V╱ // 0x1b75 @0x6
0x1b6f…1b87 at0007 = ╱7b╱æ╱ // 0x1b76 @0x7
0x1b6f…1b87 at0008 = ╱6c╱l╱ // 0x1b77 @0x8
0x1b6f…1b87 at0009 = ╱67╱g╱ // 0x1b78 @0x9
0x1b6f…1b87 at000a = ╱20╱…╱ // 0x1b79 @0xa
0x1b6f…1b87 at000b = ╱30╱0╱ // 0x1b7a @0xb
0x1b6f…1b87 at000c = ╱2d╱-╱ // 0x1b7b @0xc
0x1b6f…1b87 at000d = ╱32╱2╱ // 0x1b7c @0xd
0x1b6f…1b87 at000e = ╱3a╱:╱ // 0x1b7d @0xe
0x1b6f…1b87 at000f = ╱22╱"╱ // 0x1b7e @0xf
0x1b6f…1b87 at0010 = ╱ec╱,╱ // 0x1b7f @0x10
0x1b6f…1b87 at0011 = ╱53╱S╱ // 0x1b80 @0x11
0x1b6f…1b87 at0012 = ╱56╱V╱ // 0x1b81 @0x12
0x1b6f…1b87 at0013 = ╱41╱A╱ // 0x1b82 @0x13
0x1b6f…1b87 at0014 = ╱52╱R╱ // 0x1b83 @0x14
0x1b6f…1b87 at0015 = ╱31╱1╱ // 0x1b84 @0x15
0x1b6f…1b87 at0016 = ╱ef╱$╱ // 0x1b85 @0x16
0x1b6f…1b87 at0017 = EOL // 0x1b86 @0x17
0x1b6f…1b87 }
0x1b87…1bad a904 2530 UNTIL SVAR1$="1" OR SVAR1$="2" OR SVAR1$="0"
0x1b87…1bad LineComalBin {
0x1b87…1bad ptr = 0xa904 // 0x1b87 @0x0
0x1b87…1bad lno = 0x09e2 // 0x1b89 @0x2
0x1b87…1bad at0004 = ╱98╱ UNTIL ╱ // 0x1b8b @0x4
0x1b87…1bad at0005 = ╱53╱S╱ // 0x1b8c @0x5
0x1b87…1bad at0006 = ╱56╱V╱ // 0x1b8d @0x6
0x1b87…1bad at0007 = ╱41╱A╱ // 0x1b8e @0x7
0x1b87…1bad at0008 = ╱52╱R╱ // 0x1b8f @0x8
0x1b87…1bad at0009 = ╱31╱1╱ // 0x1b90 @0x9
0x1b87…1bad at000a = ╱ef╱$╱ // 0x1b91 @0xa
0x1b87…1bad at000b = ╱dc╱=╱ // 0x1b92 @0xb
0x1b87…1bad at000c = ╱22╱"╱ // 0x1b93 @0xc
0x1b87…1bad at000d = ╱31╱1╱ // 0x1b94 @0xd
0x1b87…1bad at000e = ╱22╱"╱ // 0x1b95 @0xe
0x1b87…1bad at000f = ╱db╱ OR ╱ // 0x1b96 @0xf
0x1b87…1bad at0010 = ╱53╱S╱ // 0x1b97 @0x10
0x1b87…1bad at0011 = ╱56╱V╱ // 0x1b98 @0x11
0x1b87…1bad at0012 = ╱41╱A╱ // 0x1b99 @0x12
0x1b87…1bad at0013 = ╱52╱R╱ // 0x1b9a @0x13
0x1b87…1bad at0014 = ╱31╱1╱ // 0x1b9b @0x14
0x1b87…1bad at0015 = ╱ef╱$╱ // 0x1b9c @0x15
0x1b87…1bad at0016 = ╱dc╱=╱ // 0x1b9d @0x16
0x1b87…1bad at0017 = ╱22╱"╱ // 0x1b9e @0x17
0x1b87…1bad at0018 = ╱32╱2╱ // 0x1b9f @0x18
0x1b87…1bad at0019 = ╱22╱"╱ // 0x1ba0 @0x19
0x1b87…1bad at001a = ╱db╱ OR ╱ // 0x1ba1 @0x1a
0x1b87…1bad at001b = ╱53╱S╱ // 0x1ba2 @0x1b
0x1b87…1bad at001c = ╱56╱V╱ // 0x1ba3 @0x1c
0x1b87…1bad at001d = ╱41╱A╱ // 0x1ba4 @0x1d
0x1b87…1bad at001e = ╱52╱R╱ // 0x1ba5 @0x1e
0x1b87…1bad at001f = ╱31╱1╱ // 0x1ba6 @0x1f
0x1b87…1bad at0020 = ╱ef╱$╱ // 0x1ba7 @0x20
0x1b87…1bad at0021 = ╱dc╱=╱ // 0x1ba8 @0x21
0x1b87…1bad at0022 = ╱22╱"╱ // 0x1ba9 @0x22
0x1b87…1bad at0023 = ╱30╱0╱ // 0x1baa @0x23
0x1b87…1bad at0024 = ╱22╱"╱ // 0x1bab @0x24
0x1b87…1bad at0025 = EOL // 0x1bac @0x25
0x1b87…1bad }
0x1bad…1bbe a915 2540 IF SVAR1$<>"0" THEN
0x1bad…1bbe LineComalBin {
0x1bad…1bbe ptr = 0xa915 // 0x1bad @0x0
0x1bad…1bbe lno = 0x09ec // 0x1baf @0x2
0x1bad…1bbe at0004 = ╱9c╱ IF ╱ // 0x1bb1 @0x4
0x1bad…1bbe at0005 = ╱53╱S╱ // 0x1bb2 @0x5
0x1bad…1bbe at0006 = ╱56╱V╱ // 0x1bb3 @0x6
0x1bad…1bbe at0007 = ╱41╱A╱ // 0x1bb4 @0x7
0x1bad…1bbe at0008 = ╱52╱R╱ // 0x1bb5 @0x8
0x1bad…1bbe at0009 = ╱31╱1╱ // 0x1bb6 @0x9
0x1bad…1bbe at000a = ╱ef╱$╱ // 0x1bb7 @0xa
0x1bad…1bbe at000b = ╱e1╱<>╱ // 0x1bb8 @0xb
0x1bad…1bbe at000c = ╱22╱"╱ // 0x1bb9 @0xc
0x1bad…1bbe at000d = ╱30╱0╱ // 0x1bba @0xd
0x1bad…1bbe at000e = ╱22╱"╱ // 0x1bbb @0xe
0x1bad…1bbe at000f = ╱b6╱ THEN ╱ // 0x1bbc @0xf
0x1bad…1bbe at0010 = EOL // 0x1bbd @0x10
0x1bad…1bbe }
0x1bbe…1bcf a926 2550 IF SVAR1$="2" THEN
0x1bbe…1bcf LineComalBin {
0x1bbe…1bcf ptr = 0xa926 // 0x1bbe @0x0
0x1bbe…1bcf lno = 0x09f6 // 0x1bc0 @0x2
0x1bbe…1bcf at0004 = ╱9c╱ IF ╱ // 0x1bc2 @0x4
0x1bbe…1bcf at0005 = ╱53╱S╱ // 0x1bc3 @0x5
0x1bbe…1bcf at0006 = ╱56╱V╱ // 0x1bc4 @0x6
0x1bbe…1bcf at0007 = ╱41╱A╱ // 0x1bc5 @0x7
0x1bbe…1bcf at0008 = ╱52╱R╱ // 0x1bc6 @0x8
0x1bbe…1bcf at0009 = ╱31╱1╱ // 0x1bc7 @0x9
0x1bbe…1bcf at000a = ╱ef╱$╱ // 0x1bc8 @0xa
0x1bbe…1bcf at000b = ╱dc╱=╱ // 0x1bc9 @0xb
0x1bbe…1bcf at000c = ╱22╱"╱ // 0x1bca @0xc
0x1bbe…1bcf at000d = ╱32╱2╱ // 0x1bcb @0xd
0x1bbe…1bcf at000e = ╱22╱"╱ // 0x1bcc @0xe
0x1bbe…1bcf at000f = ╱b6╱ THEN ╱ // 0x1bcd @0xf
0x1bbe…1bcf at0010 = EOL // 0x1bce @0x10
0x1bbe…1bcf }
0x1bcf…1be5 a93c 2560 LYNFAK=B;STPOST=E
0x1bcf…1be5 LineComalBin {
0x1bcf…1be5 ptr = 0xa93c // 0x1bcf @0x0
0x1bcf…1be5 lno = 0x0a00 // 0x1bd1 @0x2
0x1bcf…1be5 at0004 = ╱4c╱L╱ // 0x1bd3 @0x4
0x1bcf…1be5 at0005 = ╱59╱Y╱ // 0x1bd4 @0x5
0x1bcf…1be5 at0006 = ╱4e╱N╱ // 0x1bd5 @0x6
0x1bcf…1be5 at0007 = ╱46╱F╱ // 0x1bd6 @0x7
0x1bcf…1be5 at0008 = ╱41╱A╱ // 0x1bd7 @0x8
0x1bcf…1be5 at0009 = ╱4b╱K╱ // 0x1bd8 @0x9
0x1bcf…1be5 at000a = ╱dc╱=╱ // 0x1bd9 @0xa
0x1bcf…1be5 at000b = ╱42╱B╱ // 0x1bda @0xb
0x1bcf…1be5 at000c = ╱eb╱;╱ // 0x1bdb @0xc
0x1bcf…1be5 at000d = ╱53╱S╱ // 0x1bdc @0xd
0x1bcf…1be5 at000e = ╱54╱T╱ // 0x1bdd @0xe
0x1bcf…1be5 at000f = ╱50╱P╱ // 0x1bde @0xf
0x1bcf…1be5 at0010 = ╱4f╱O╱ // 0x1bdf @0x10
0x1bcf…1be5 at0011 = ╱53╱S╱ // 0x1be0 @0x11
0x1bcf…1be5 at0012 = ╱54╱T╱ // 0x1be1 @0x12
0x1bcf…1be5 at0013 = ╱dc╱=╱ // 0x1be2 @0x13
0x1bcf…1be5 at0014 = ╱45╱E╱ // 0x1be3 @0x14
0x1bcf…1be5 at0015 = EOL // 0x1be4 @0x15
0x1bcf…1be5 }
0x1be5…1beb a942 2570 ELSE
0x1be5…1beb LineComalBin {
0x1be5…1beb ptr = 0xa942 // 0x1be5 @0x0
0x1be5…1beb lno = 0x0a0a // 0x1be7 @0x2
0x1be5…1beb at0004 = ╱9a╱ ELSE ╱ // 0x1be9 @0x4
0x1be5…1beb at0005 = EOL // 0x1bea @0x5
0x1be5…1beb }
0x1beb…1bf8 a94f 2580 LYNFAK=E
0x1beb…1bf8 LineComalBin {
0x1beb…1bf8 ptr = 0xa94f // 0x1beb @0x0
0x1beb…1bf8 lno = 0x0a14 // 0x1bed @0x2
0x1beb…1bf8 at0004 = ╱4c╱L╱ // 0x1bef @0x4
0x1beb…1bf8 at0005 = ╱59╱Y╱ // 0x1bf0 @0x5
0x1beb…1bf8 at0006 = ╱4e╱N╱ // 0x1bf1 @0x6
0x1beb…1bf8 at0007 = ╱46╱F╱ // 0x1bf2 @0x7
0x1beb…1bf8 at0008 = ╱41╱A╱ // 0x1bf3 @0x8
0x1beb…1bf8 at0009 = ╱4b╱K╱ // 0x1bf4 @0x9
0x1beb…1bf8 at000a = ╱dc╱=╱ // 0x1bf5 @0xa
0x1beb…1bf8 at000b = ╱45╱E╱ // 0x1bf6 @0xb
0x1beb…1bf8 at000c = EOL // 0x1bf7 @0xc
0x1beb…1bf8 }
0x1bf8…1c03 a95a 2590 OPEN K6$,R
0x1bf8…1c03 LineComalBin {
0x1bf8…1c03 ptr = 0xa95a // 0x1bf8 @0x0
0x1bf8…1c03 lno = 0x0a1e // 0x1bfa @0x2
0x1bf8…1c03 at0004 = ╱a7╱ OPEN ╱ // 0x1bfc @0x4
0x1bf8…1c03 at0005 = ╱4b╱K╱ // 0x1bfd @0x5
0x1bf8…1c03 at0006 = ╱36╱6╱ // 0x1bfe @0x6
0x1bf8…1c03 at0007 = ╱ef╱$╱ // 0x1bff @0x7
0x1bf8…1c03 at0008 = ╱ec╱,╱ // 0x1c00 @0x8
0x1bf8…1c03 at0009 = ╱52╱R╱ // 0x1c01 @0x9
0x1bf8…1c03 at000a = EOL // 0x1c02 @0xa
0x1bf8…1c03 }
0x1c03…1c16 a96d 2600 EXEC FEJL(V,E,K6$)
0x1c03…1c16 LineComalBin {
0x1c03…1c16 ptr = 0xa96d // 0x1c03 @0x0
0x1c03…1c16 lno = 0x0a28 // 0x1c05 @0x2
0x1c03…1c16 at0004 = ╱9d╱ EXEC ╱ // 0x1c07 @0x4
0x1c03…1c16 at0005 = ╱46╱F╱ // 0x1c08 @0x5
0x1c03…1c16 at0006 = ╱45╱E╱ // 0x1c09 @0x6
0x1c03…1c16 at0007 = ╱4a╱J╱ // 0x1c0a @0x7
0x1c03…1c16 at0008 = ╱4c╱L╱ // 0x1c0b @0x8
0x1c03…1c16 at0009 = ╱ed╱(╱ // 0x1c0c @0x9
0x1c03…1c16 at000a = ╱56╱V╱ // 0x1c0d @0xa
0x1c03…1c16 at000b = ╱ec╱,╱ // 0x1c0e @0xb
0x1c03…1c16 at000c = ╱45╱E╱ // 0x1c0f @0xc
0x1c03…1c16 at000d = ╱ec╱,╱ // 0x1c10 @0xd
0x1c03…1c16 at000e = ╱4b╱K╱ // 0x1c11 @0xe
0x1c03…1c16 at000f = ╱36╱6╱ // 0x1c12 @0xf
0x1c03…1c16 at0010 = ╱ef╱$╱ // 0x1c13 @0x10
0x1c03…1c16 at0011 = ╱ee╱)╱ // 0x1c14 @0x11
0x1c03…1c16 at0012 = EOL // 0x1c15 @0x12
0x1c03…1c16 }
0x1c16…1c2c a983 2610 FOR I=APOSTER-V TO E STEP -E
0x1c16…1c2c LineComalBin {
0x1c16…1c2c ptr = 0xa983 // 0x1c16 @0x0
0x1c16…1c2c lno = 0x0a32 // 0x1c18 @0x2
0x1c16…1c2c at0004 = ╱83╱ FOR ╱ // 0x1c1a @0x4
0x1c16…1c2c at0005 = ╱49╱I╱ // 0x1c1b @0x5
0x1c16…1c2c at0006 = ╱dc╱=╱ // 0x1c1c @0x6
0x1c16…1c2c at0007 = ╱41╱A╱ // 0x1c1d @0x7
0x1c16…1c2c at0008 = ╱50╱P╱ // 0x1c1e @0x8
0x1c16…1c2c at0009 = ╱4f╱O╱ // 0x1c1f @0x9
0x1c16…1c2c at000a = ╱53╱S╱ // 0x1c20 @0xa
0x1c16…1c2c at000b = ╱54╱T╱ // 0x1c21 @0xb
0x1c16…1c2c at000c = ╱45╱E╱ // 0x1c22 @0xc
0x1c16…1c2c at000d = ╱52╱R╱ // 0x1c23 @0xd
0x1c16…1c2c at000e = ╱e3╱-╱ // 0x1c24 @0xe
0x1c16…1c2c at000f = ╱56╱V╱ // 0x1c25 @0xf
0x1c16…1c2c at0010 = ╱b7╱ TO ╱ // 0x1c26 @0x10
0x1c16…1c2c at0011 = ╱45╱E╱ // 0x1c27 @0x11
0x1c16…1c2c at0012 = ╱b8╱ STEP ╱ // 0x1c28 @0x12
0x1c16…1c2c at0013 = ╱e9╱-╱ // 0x1c29 @0x13
0x1c16…1c2c at0014 = ╱45╱E╱ // 0x1c2a @0x14
0x1c16…1c2c at0015 = EOL // 0x1c2b @0x15
0x1c16…1c2c }
0x1c2c…1c4c a9a3 2620 GET K6$,I:ORDRENR,FDATO,ANPOST
0x1c2c…1c4c LineComalBin {
0x1c2c…1c4c ptr = 0xa9a3 // 0x1c2c @0x0
0x1c2c…1c4c lno = 0x0a3c // 0x1c2e @0x2
0x1c2c…1c4c at0004 = ╱a9╱ GET ╱ // 0x1c30 @0x4
0x1c2c…1c4c at0005 = ╱4b╱K╱ // 0x1c31 @0x5
0x1c2c…1c4c at0006 = ╱36╱6╱ // 0x1c32 @0x6
0x1c2c…1c4c at0007 = ╱ef╱$╱ // 0x1c33 @0x7
0x1c2c…1c4c at0008 = ╱ec╱,╱ // 0x1c34 @0x8
0x1c2c…1c4c at0009 = ╱49╱I╱ // 0x1c35 @0x9
0x1c2c…1c4c at000a = ╱f0╱:╱ // 0x1c36 @0xa
0x1c2c…1c4c at000b = ╱4f╱O╱ // 0x1c37 @0xb
0x1c2c…1c4c at000c = ╱52╱R╱ // 0x1c38 @0xc
0x1c2c…1c4c at000d = ╱44╱D╱ // 0x1c39 @0xd
0x1c2c…1c4c at000e = ╱52╱R╱ // 0x1c3a @0xe
0x1c2c…1c4c at000f = ╱45╱E╱ // 0x1c3b @0xf
0x1c2c…1c4c at0010 = ╱4e╱N╱ // 0x1c3c @0x10
0x1c2c…1c4c at0011 = ╱52╱R╱ // 0x1c3d @0x11
0x1c2c…1c4c at0012 = ╱ec╱,╱ // 0x1c3e @0x12
0x1c2c…1c4c at0013 = ╱46╱F╱ // 0x1c3f @0x13
0x1c2c…1c4c at0014 = ╱44╱D╱ // 0x1c40 @0x14
0x1c2c…1c4c at0015 = ╱41╱A╱ // 0x1c41 @0x15
0x1c2c…1c4c at0016 = ╱54╱T╱ // 0x1c42 @0x16
0x1c2c…1c4c at0017 = ╱4f╱O╱ // 0x1c43 @0x17
0x1c2c…1c4c at0018 = ╱ec╱,╱ // 0x1c44 @0x18
0x1c2c…1c4c at0019 = ╱41╱A╱ // 0x1c45 @0x19
0x1c2c…1c4c at001a = ╱4e╱N╱ // 0x1c46 @0x1a
0x1c2c…1c4c at001b = ╱50╱P╱ // 0x1c47 @0x1b
0x1c2c…1c4c at001c = ╱4f╱O╱ // 0x1c48 @0x1c
0x1c2c…1c4c at001d = ╱53╱S╱ // 0x1c49 @0x1d
0x1c2c…1c4c at001e = ╱54╱T╱ // 0x1c4a @0x1e
0x1c2c…1c4c at001f = EOL // 0x1c4b @0x1f
0x1c2c…1c4c }
0x1c4c…1c5f a9b6 2630 EXEC FEJL(V,G,K6$)
0x1c4c…1c5f LineComalBin {
0x1c4c…1c5f ptr = 0xa9b6 // 0x1c4c @0x0
0x1c4c…1c5f lno = 0x0a46 // 0x1c4e @0x2
0x1c4c…1c5f at0004 = ╱9d╱ EXEC ╱ // 0x1c50 @0x4
0x1c4c…1c5f at0005 = ╱46╱F╱ // 0x1c51 @0x5
0x1c4c…1c5f at0006 = ╱45╱E╱ // 0x1c52 @0x6
0x1c4c…1c5f at0007 = ╱4a╱J╱ // 0x1c53 @0x7
0x1c4c…1c5f at0008 = ╱4c╱L╱ // 0x1c54 @0x8
0x1c4c…1c5f at0009 = ╱ed╱(╱ // 0x1c55 @0x9
0x1c4c…1c5f at000a = ╱56╱V╱ // 0x1c56 @0xa
0x1c4c…1c5f at000b = ╱ec╱,╱ // 0x1c57 @0xb
0x1c4c…1c5f at000c = ╱47╱G╱ // 0x1c58 @0xc
0x1c4c…1c5f at000d = ╱ec╱,╱ // 0x1c59 @0xd
0x1c4c…1c5f at000e = ╱4b╱K╱ // 0x1c5a @0xe
0x1c4c…1c5f at000f = ╱36╱6╱ // 0x1c5b @0xf
0x1c4c…1c5f at0010 = ╱ef╱$╱ // 0x1c5c @0x10
0x1c4c…1c5f at0011 = ╱ee╱)╱ // 0x1c5d @0x11
0x1c4c…1c5f at0012 = EOL // 0x1c5e @0x12
0x1c4c…1c5f }
0x1c5f…1c79 a9d0 2640 IF ANPOST=APOSTER+G-I THEN EXIT
0x1c5f…1c79 LineComalBin {
0x1c5f…1c79 ptr = 0xa9d0 // 0x1c5f @0x0
0x1c5f…1c79 lno = 0x0a50 // 0x1c61 @0x2
0x1c5f…1c79 at0004 = ╱82╱ IF ╱ // 0x1c63 @0x4
0x1c5f…1c79 at0005 = ╱41╱A╱ // 0x1c64 @0x5
0x1c5f…1c79 at0006 = ╱4e╱N╱ // 0x1c65 @0x6
0x1c5f…1c79 at0007 = ╱50╱P╱ // 0x1c66 @0x7
0x1c5f…1c79 at0008 = ╱4f╱O╱ // 0x1c67 @0x8
0x1c5f…1c79 at0009 = ╱53╱S╱ // 0x1c68 @0x9
0x1c5f…1c79 at000a = ╱54╱T╱ // 0x1c69 @0xa
0x1c5f…1c79 at000b = ╱dc╱=╱ // 0x1c6a @0xb
0x1c5f…1c79 at000c = ╱41╱A╱ // 0x1c6b @0xc
0x1c5f…1c79 at000d = ╱50╱P╱ // 0x1c6c @0xd
0x1c5f…1c79 at000e = ╱4f╱O╱ // 0x1c6d @0xe
0x1c5f…1c79 at000f = ╱53╱S╱ // 0x1c6e @0xf
0x1c5f…1c79 at0010 = ╱54╱T╱ // 0x1c6f @0x10
0x1c5f…1c79 at0011 = ╱45╱E╱ // 0x1c70 @0x11
0x1c5f…1c79 at0012 = ╱52╱R╱ // 0x1c71 @0x12
0x1c5f…1c79 at0013 = ╱e2╱+╱ // 0x1c72 @0x13
0x1c5f…1c79 at0014 = ╱47╱G╱ // 0x1c73 @0x14
0x1c5f…1c79 at0015 = ╱e3╱-╱ // 0x1c74 @0x15
0x1c5f…1c79 at0016 = ╱49╱I╱ // 0x1c75 @0x16
0x1c5f…1c79 at0017 = ╱b6╱ THEN ╱ // 0x1c76 @0x17
0x1c5f…1c79 at0018 = ╱99╱ EXIT ╱ // 0x1c77 @0x18
0x1c5f…1c79 at0019 = EOL // 0x1c78 @0x19
0x1c5f…1c79 }
0x1c79…1c80 a9d7 2650 NEXT I
0x1c79…1c80 LineComalBin {
0x1c79…1c80 ptr = 0xa9d7 // 0x1c79 @0x0
0x1c79…1c80 lno = 0x0a5a // 0x1c7b @0x2
0x1c79…1c80 at0004 = ╱84╱ NEXT ╱ // 0x1c7d @0x4
0x1c79…1c80 at0005 = ╱49╱I╱ // 0x1c7e @0x5
0x1c79…1c80 at0006 = EOL // 0x1c7f @0x6
0x1c79…1c80 }
0x1c80…1c8f a9e6 2660 STPOST=I-E
0x1c80…1c8f LineComalBin {
0x1c80…1c8f ptr = 0xa9e6 // 0x1c80 @0x0
0x1c80…1c8f lno = 0x0a64 // 0x1c82 @0x2
0x1c80…1c8f at0004 = ╱53╱S╱ // 0x1c84 @0x4
0x1c80…1c8f at0005 = ╱54╱T╱ // 0x1c85 @0x5
0x1c80…1c8f at0006 = ╱50╱P╱ // 0x1c86 @0x6
0x1c80…1c8f at0007 = ╱4f╱O╱ // 0x1c87 @0x7
0x1c80…1c8f at0008 = ╱53╱S╱ // 0x1c88 @0x8
0x1c80…1c8f at0009 = ╱54╱T╱ // 0x1c89 @0x9
0x1c80…1c8f at000a = ╱dc╱=╱ // 0x1c8a @0xa
0x1c80…1c8f at000b = ╱49╱I╱ // 0x1c8b @0xb
0x1c80…1c8f at000c = ╱e3╱-╱ // 0x1c8c @0xc
0x1c80…1c8f at000d = ╱45╱E╱ // 0x1c8d @0xd
0x1c80…1c8f at000e = EOL // 0x1c8e @0xe
0x1c80…1c8f }
0x1c8f…1c98 a9ef 2670 CLOSE K6$
0x1c8f…1c98 LineComalBin {
0x1c8f…1c98 ptr = 0xa9ef // 0x1c8f @0x0
0x1c8f…1c98 lno = 0x0a6e // 0x1c91 @0x2
0x1c8f…1c98 at0004 = ╱a8╱ CLOSE ╱ // 0x1c93 @0x4
0x1c8f…1c98 at0005 = ╱4b╱K╱ // 0x1c94 @0x5
0x1c8f…1c98 at0006 = ╱36╱6╱ // 0x1c95 @0x6
0x1c8f…1c98 at0007 = ╱ef╱$╱ // 0x1c96 @0x7
0x1c8f…1c98 at0008 = EOL // 0x1c97 @0x8
0x1c8f…1c98 }
0x1c98…1cab aa02 2680 EXEC FEJL(V,V,K6$)
0x1c98…1cab LineComalBin {
0x1c98…1cab ptr = 0xaa02 // 0x1c98 @0x0
0x1c98…1cab lno = 0x0a78 // 0x1c9a @0x2
0x1c98…1cab at0004 = ╱9d╱ EXEC ╱ // 0x1c9c @0x4
0x1c98…1cab at0005 = ╱46╱F╱ // 0x1c9d @0x5
0x1c98…1cab at0006 = ╱45╱E╱ // 0x1c9e @0x6
0x1c98…1cab at0007 = ╱4a╱J╱ // 0x1c9f @0x7
0x1c98…1cab at0008 = ╱4c╱L╱ // 0x1ca0 @0x8
0x1c98…1cab at0009 = ╱ed╱(╱ // 0x1ca1 @0x9
0x1c98…1cab at000a = ╱56╱V╱ // 0x1ca2 @0xa
0x1c98…1cab at000b = ╱ec╱,╱ // 0x1ca3 @0xb
0x1c98…1cab at000c = ╱56╱V╱ // 0x1ca4 @0xc
0x1c98…1cab at000d = ╱ec╱,╱ // 0x1ca5 @0xd
0x1c98…1cab at000e = ╱4b╱K╱ // 0x1ca6 @0xe
0x1c98…1cab at000f = ╱36╱6╱ // 0x1ca7 @0xf
0x1c98…1cab at0010 = ╱ef╱$╱ // 0x1ca8 @0x10
0x1c98…1cab at0011 = ╱ee╱)╱ // 0x1ca9 @0x11
0x1c98…1cab at0012 = EOL // 0x1caa @0x12
0x1c98…1cab }
0x1cab…1cb1 aa08 2690 ENDIF
0x1cab…1cb1 LineComalBin {
0x1cab…1cb1 ptr = 0xaa08 // 0x1cab @0x0
0x1cab…1cb1 lno = 0x0a82 // 0x1cad @0x2
0x1cab…1cb1 at0004 = ╱9b╱ ENDIF ╱ // 0x1caf @0x4
0x1cab…1cb1 at0005 = EOL // 0x1cb0 @0x5
0x1cab…1cb1 }
0x1cb1…1cbb aa12 2700 GEN=B
0x1cb1…1cbb LineComalBin {
0x1cb1…1cbb ptr = 0xaa12 // 0x1cb1 @0x0
0x1cb1…1cbb lno = 0x0a8c // 0x1cb3 @0x2
0x1cb1…1cbb at0004 = ╱47╱G╱ // 0x1cb5 @0x4
0x1cb1…1cbb at0005 = ╱45╱E╱ // 0x1cb6 @0x5
0x1cb1…1cbb at0006 = ╱4e╱N╱ // 0x1cb7 @0x6
0x1cb1…1cbb at0007 = ╱dc╱=╱ // 0x1cb8 @0x7
0x1cb1…1cbb at0008 = ╱42╱B╱ // 0x1cb9 @0x8
0x1cb1…1cbb at0009 = EOL // 0x1cba @0x9
0x1cb1…1cbb }
0x1cbb…1cc1 aa18 2710 REPEAT
0x1cbb…1cc1 LineComalBin {
0x1cbb…1cc1 ptr = 0xaa18 // 0x1cbb @0x0
0x1cbb…1cc1 lno = 0x0a96 // 0x1cbd @0x2
0x1cbb…1cc1 at0004 = ╱97╱ REPEAT ╱ // 0x1cbf @0x4
0x1cbb…1cc1 at0005 = EOL // 0x1cc0 @0x5
0x1cbb…1cc1 }
0x1cc1…1cc7 aa1e 2720 CLEAR
0x1cc1…1cc7 LineComalBin {
0x1cc1…1cc7 ptr = 0xaa1e // 0x1cc1 @0x0
0x1cc1…1cc7 lno = 0x0aa0 // 0x1cc3 @0x2
0x1cc1…1cc7 at0004 = ╱a0╱ CLEAR ╱ // 0x1cc5 @0x4
0x1cc1…1cc7 at0005 = EOL // 0x1cc6 @0x5
0x1cc1…1cc7 }
0x1cc7…1cd6 aa2d 2730 CURSOR 20,W
0x1cc7…1cd6 LineComalBin {
0x1cc7…1cd6 ptr = 0xaa2d // 0x1cc7 @0x0
0x1cc7…1cd6 lno = 0x0aaa // 0x1cc9 @0x2
0x1cc7…1cd6 at0004 = ╱a1╱ CURSOR ╱ // 0x1ccb @0x4
0x1cc7…1cd6 at0005 = ╱32╱2╱ // 0x1ccc @0x5
0x1cc7…1cd6 at0006 = ╱30╱0╱ // 0x1ccd @0x6
0x1cc7…1cd6 at0007 = ╱fe0000a005╱ // 0x1cce @0x7
0x1cc7…1cd6 at000c = ╱ec╱,╱ // 0x1cd3 @0xc
0x1cc7…1cd6 at000d = ╱57╱W╱ // 0x1cd4 @0xd
0x1cc7…1cd6 at000e = EOL // 0x1cd5 @0xe
0x1cc7…1cd6 }
0x1cd6…1cf7 aa4e 2740 PRINT "Udskrivning af fakturaer."
0x1cd6…1cf7 LineComalBin {
0x1cd6…1cf7 ptr = 0xaa4e // 0x1cd6 @0x0
0x1cd6…1cf7 lno = 0x0ab4 // 0x1cd8 @0x2
0x1cd6…1cf7 at0004 = ╱92╱ PRINT ╱ // 0x1cda @0x4
0x1cd6…1cf7 at0005 = ╱22╱"╱ // 0x1cdb @0x5
0x1cd6…1cf7 at0006 = ╱55╱U╱ // 0x1cdc @0x6
0x1cd6…1cf7 at0007 = ╱64╱d╱ // 0x1cdd @0x7
0x1cd6…1cf7 at0008 = ╱73╱s╱ // 0x1cde @0x8
0x1cd6…1cf7 at0009 = ╱6b╱k╱ // 0x1cdf @0x9
0x1cd6…1cf7 at000a = ╱72╱r╱ // 0x1ce0 @0xa
0x1cd6…1cf7 at000b = ╱69╱i╱ // 0x1ce1 @0xb
0x1cd6…1cf7 at000c = ╱76╱v╱ // 0x1ce2 @0xc
0x1cd6…1cf7 at000d = ╱6e╱n╱ // 0x1ce3 @0xd
0x1cd6…1cf7 at000e = ╱69╱i╱ // 0x1ce4 @0xe
0x1cd6…1cf7 at000f = ╱6e╱n╱ // 0x1ce5 @0xf
0x1cd6…1cf7 at0010 = ╱67╱g╱ // 0x1ce6 @0x10
0x1cd6…1cf7 at0011 = ╱20╱…╱ // 0x1ce7 @0x11
0x1cd6…1cf7 at0012 = ╱61╱a╱ // 0x1ce8 @0x12
0x1cd6…1cf7 at0013 = ╱66╱f╱ // 0x1ce9 @0x13
0x1cd6…1cf7 at0014 = ╱20╱…╱ // 0x1cea @0x14
0x1cd6…1cf7 at0015 = ╱66╱f╱ // 0x1ceb @0x15
0x1cd6…1cf7 at0016 = ╱61╱a╱ // 0x1cec @0x16
0x1cd6…1cf7 at0017 = ╱6b╱k╱ // 0x1ced @0x17
0x1cd6…1cf7 at0018 = ╱74╱t╱ // 0x1cee @0x18
0x1cd6…1cf7 at0019 = ╱75╱u╱ // 0x1cef @0x19
0x1cd6…1cf7 at001a = ╱72╱r╱ // 0x1cf0 @0x1a
0x1cd6…1cf7 at001b = ╱61╱a╱ // 0x1cf1 @0x1b
0x1cd6…1cf7 at001c = ╱65╱e╱ // 0x1cf2 @0x1c
0x1cd6…1cf7 at001d = ╱72╱r╱ // 0x1cf3 @0x1d
0x1cd6…1cf7 at001e = ╱2e╱.╱ // 0x1cf4 @0x1e
0x1cd6…1cf7 at001f = ╱22╱"╱ // 0x1cf5 @0x1f
0x1cd6…1cf7 at0020 = EOL // 0x1cf6 @0x20
0x1cd6…1cf7 }
0x1cf7…1d0c aa63 2750 CURSOR 20,11
0x1cf7…1d0c LineComalBin {
0x1cf7…1d0c ptr = 0xaa63 // 0x1cf7 @0x0
0x1cf7…1d0c lno = 0x0abe // 0x1cf9 @0x2
0x1cf7…1d0c at0004 = ╱a1╱ CURSOR ╱ // 0x1cfb @0x4
0x1cf7…1d0c at0005 = ╱32╱2╱ // 0x1cfc @0x5
0x1cf7…1d0c at0006 = ╱30╱0╱ // 0x1cfd @0x6
0x1cf7…1d0c at0007 = ╱fe0000a005╱ // 0x1cfe @0x7
0x1cf7…1d0c at000c = ╱ec╱,╱ // 0x1d03 @0xc
0x1cf7…1d0c at000d = ╱31╱1╱ // 0x1d04 @0xd
0x1cf7…1d0c at000e = ╱31╱1╱ // 0x1d05 @0xe
0x1cf7…1d0c at000f = ╱fe0000b004╱ // 0x1d06 @0xf
0x1cf7…1d0c at0014 = EOL // 0x1d0b @0x14
0x1cf7…1d0c }
0x1d0c…1d3b aa92 2760 PRINT "Monter papir til udskrift af testprint."
0x1d0c…1d3b LineComalBin {
0x1d0c…1d3b ptr = 0xaa92 // 0x1d0c @0x0
0x1d0c…1d3b lno = 0x0ac8 // 0x1d0e @0x2
0x1d0c…1d3b at0004 = ╱92╱ PRINT ╱ // 0x1d10 @0x4
0x1d0c…1d3b at0005 = ╱22╱"╱ // 0x1d11 @0x5
0x1d0c…1d3b at0006 = ╱4d╱M╱ // 0x1d12 @0x6
0x1d0c…1d3b at0007 = ╱6f╱o╱ // 0x1d13 @0x7
0x1d0c…1d3b at0008 = ╱6e╱n╱ // 0x1d14 @0x8
0x1d0c…1d3b at0009 = ╱74╱t╱ // 0x1d15 @0x9
0x1d0c…1d3b at000a = ╱65╱e╱ // 0x1d16 @0xa
0x1d0c…1d3b at000b = ╱72╱r╱ // 0x1d17 @0xb
0x1d0c…1d3b at000c = ╱20╱…╱ // 0x1d18 @0xc
0x1d0c…1d3b at000d = ╱70╱p╱ // 0x1d19 @0xd
0x1d0c…1d3b at000e = ╱61╱a╱ // 0x1d1a @0xe
0x1d0c…1d3b at000f = ╱70╱p╱ // 0x1d1b @0xf
0x1d0c…1d3b at0010 = ╱69╱i╱ // 0x1d1c @0x10
0x1d0c…1d3b at0011 = ╱72╱r╱ // 0x1d1d @0x11
0x1d0c…1d3b at0012 = ╱20╱…╱ // 0x1d1e @0x12
0x1d0c…1d3b at0013 = ╱74╱t╱ // 0x1d1f @0x13
0x1d0c…1d3b at0014 = ╱69╱i╱ // 0x1d20 @0x14
0x1d0c…1d3b at0015 = ╱6c╱l╱ // 0x1d21 @0x15
0x1d0c…1d3b at0016 = ╱20╱…╱ // 0x1d22 @0x16
0x1d0c…1d3b at0017 = ╱75╱u╱ // 0x1d23 @0x17
0x1d0c…1d3b at0018 = ╱64╱d╱ // 0x1d24 @0x18
0x1d0c…1d3b at0019 = ╱73╱s╱ // 0x1d25 @0x19
0x1d0c…1d3b at001a = ╱6b╱k╱ // 0x1d26 @0x1a
0x1d0c…1d3b at001b = ╱72╱r╱ // 0x1d27 @0x1b
0x1d0c…1d3b at001c = ╱69╱i╱ // 0x1d28 @0x1c
0x1d0c…1d3b at001d = ╱66╱f╱ // 0x1d29 @0x1d
0x1d0c…1d3b at001e = ╱74╱t╱ // 0x1d2a @0x1e
0x1d0c…1d3b at001f = ╱20╱…╱ // 0x1d2b @0x1f
0x1d0c…1d3b at0020 = ╱61╱a╱ // 0x1d2c @0x20
0x1d0c…1d3b at0021 = ╱66╱f╱ // 0x1d2d @0x21
0x1d0c…1d3b at0022 = ╱20╱…╱ // 0x1d2e @0x22
0x1d0c…1d3b at0023 = ╱74╱t╱ // 0x1d2f @0x23
0x1d0c…1d3b at0024 = ╱65╱e╱ // 0x1d30 @0x24
0x1d0c…1d3b at0025 = ╱73╱s╱ // 0x1d31 @0x25
0x1d0c…1d3b at0026 = ╱74╱t╱ // 0x1d32 @0x26
0x1d0c…1d3b at0027 = ╱70╱p╱ // 0x1d33 @0x27
0x1d0c…1d3b at0028 = ╱72╱r╱ // 0x1d34 @0x28
0x1d0c…1d3b at0029 = ╱69╱i╱ // 0x1d35 @0x29
0x1d0c…1d3b at002a = ╱6e╱n╱ // 0x1d36 @0x2a
0x1d0c…1d3b at002b = ╱74╱t╱ // 0x1d37 @0x2b
0x1d0c…1d3b at002c = ╱2e╱.╱ // 0x1d38 @0x2c
0x1d0c…1d3b at002d = ╱22╱"╱ // 0x1d39 @0x2d
0x1d0c…1d3b at002e = EOL // 0x1d3a @0x2e
0x1d0c…1d3b }
0x1d3b…1d50 aaa7 2770 CURSOR 20,13
0x1d3b…1d50 LineComalBin {
0x1d3b…1d50 ptr = 0xaaa7 // 0x1d3b @0x0
0x1d3b…1d50 lno = 0x0ad2 // 0x1d3d @0x2
0x1d3b…1d50 at0004 = ╱a1╱ CURSOR ╱ // 0x1d3f @0x4
0x1d3b…1d50 at0005 = ╱32╱2╱ // 0x1d40 @0x5
0x1d3b…1d50 at0006 = ╱30╱0╱ // 0x1d41 @0x6
0x1d3b…1d50 at0007 = ╱fe0000a005╱ // 0x1d42 @0x7
0x1d3b…1d50 at000c = ╱ec╱,╱ // 0x1d47 @0xc
0x1d3b…1d50 at000d = ╱31╱1╱ // 0x1d48 @0xd
0x1d3b…1d50 at000e = ╱33╱3╱ // 0x1d49 @0xe
0x1d3b…1d50 at000f = ╱fe0000d004╱ // 0x1d4a @0xf
0x1d3b…1d50 at0014 = EOL // 0x1d4f @0x14
0x1d3b…1d50 }
0x1d50…1d6b aac2 2780 INPUT "Tast RETURN.",SVAR1$
0x1d50…1d6b LineComalBin {
0x1d50…1d6b ptr = 0xaac2 // 0x1d50 @0x0
0x1d50…1d6b lno = 0x0adc // 0x1d52 @0x2
0x1d50…1d6b at0004 = ╱91╱ INPUT ╱ // 0x1d54 @0x4
0x1d50…1d6b at0005 = ╱22╱"╱ // 0x1d55 @0x5
0x1d50…1d6b at0006 = ╱54╱T╱ // 0x1d56 @0x6
0x1d50…1d6b at0007 = ╱61╱a╱ // 0x1d57 @0x7
0x1d50…1d6b at0008 = ╱73╱s╱ // 0x1d58 @0x8
0x1d50…1d6b at0009 = ╱74╱t╱ // 0x1d59 @0x9
0x1d50…1d6b at000a = ╱20╱…╱ // 0x1d5a @0xa
0x1d50…1d6b at000b = ╱52╱R╱ // 0x1d5b @0xb
0x1d50…1d6b at000c = ╱45╱E╱ // 0x1d5c @0xc
0x1d50…1d6b at000d = ╱54╱T╱ // 0x1d5d @0xd
0x1d50…1d6b at000e = ╱55╱U╱ // 0x1d5e @0xe
0x1d50…1d6b at000f = ╱52╱R╱ // 0x1d5f @0xf
0x1d50…1d6b at0010 = ╱4e╱N╱ // 0x1d60 @0x10
0x1d50…1d6b at0011 = ╱2e╱.╱ // 0x1d61 @0x11
0x1d50…1d6b at0012 = ╱22╱"╱ // 0x1d62 @0x12
0x1d50…1d6b at0013 = ╱ec╱,╱ // 0x1d63 @0x13
0x1d50…1d6b at0014 = ╱53╱S╱ // 0x1d64 @0x14
0x1d50…1d6b at0015 = ╱56╱V╱ // 0x1d65 @0x15
0x1d50…1d6b at0016 = ╱41╱A╱ // 0x1d66 @0x16
0x1d50…1d6b at0017 = ╱52╱R╱ // 0x1d67 @0x17
0x1d50…1d6b at0018 = ╱31╱1╱ // 0x1d68 @0x18
0x1d50…1d6b at0019 = ╱ef╱$╱ // 0x1d69 @0x19
0x1d50…1d6b at001a = EOL // 0x1d6a @0x1a
0x1d50…1d6b }
0x1d6b…1d79 aad0 2790 EXEC TESTPRIN
0x1d6b…1d79 LineComalBin {
0x1d6b…1d79 ptr = 0xaad0 // 0x1d6b @0x0
0x1d6b…1d79 lno = 0x0ae6 // 0x1d6d @0x2
0x1d6b…1d79 at0004 = ╱9d╱ EXEC ╱ // 0x1d6f @0x4
0x1d6b…1d79 at0005 = ╱54╱T╱ // 0x1d70 @0x5
0x1d6b…1d79 at0006 = ╱45╱E╱ // 0x1d71 @0x6
0x1d6b…1d79 at0007 = ╱53╱S╱ // 0x1d72 @0x7
0x1d6b…1d79 at0008 = ╱54╱T╱ // 0x1d73 @0x8
0x1d6b…1d79 at0009 = ╱50╱P╱ // 0x1d74 @0x9
0x1d6b…1d79 at000a = ╱52╱R╱ // 0x1d75 @0xa
0x1d6b…1d79 at000b = ╱49╱I╱ // 0x1d76 @0xb
0x1d6b…1d79 at000c = ╱4e╱N╱ // 0x1d77 @0xc
0x1d6b…1d79 at000d = EOL // 0x1d78 @0xd
0x1d6b…1d79 }
0x1d79…1d7f aad6 2800 REPEAT
0x1d79…1d7f LineComalBin {
0x1d79…1d7f ptr = 0xaad6 // 0x1d79 @0x0
0x1d79…1d7f lno = 0x0af0 // 0x1d7b @0x2
0x1d79…1d7f at0004 = ╱97╱ REPEAT ╱ // 0x1d7d @0x4
0x1d79…1d7f at0005 = EOL // 0x1d7e @0x5
0x1d79…1d7f }
0x1d7f…1d85 aadc 2810 REPEAT
0x1d7f…1d85 LineComalBin {
0x1d7f…1d85 ptr = 0xaadc // 0x1d7f @0x0
0x1d7f…1d85 lno = 0x0afa // 0x1d81 @0x2
0x1d7f…1d85 at0004 = ╱97╱ REPEAT ╱ // 0x1d83 @0x4
0x1d7f…1d85 at0005 = EOL // 0x1d84 @0x5
0x1d7f…1d85 }
0x1d85…1d9a aaf1 2820 CURSOR 20,13
0x1d85…1d9a LineComalBin {
0x1d85…1d9a ptr = 0xaaf1 // 0x1d85 @0x0
0x1d85…1d9a lno = 0x0b04 // 0x1d87 @0x2
0x1d85…1d9a at0004 = ╱a1╱ CURSOR ╱ // 0x1d89 @0x4
0x1d85…1d9a at0005 = ╱32╱2╱ // 0x1d8a @0x5
0x1d85…1d9a at0006 = ╱30╱0╱ // 0x1d8b @0x6
0x1d85…1d9a at0007 = ╱fe0000a005╱ // 0x1d8c @0x7
0x1d85…1d9a at000c = ╱ec╱,╱ // 0x1d91 @0xc
0x1d85…1d9a at000d = ╱31╱1╱ // 0x1d92 @0xd
0x1d85…1d9a at000e = ╱33╱3╱ // 0x1d93 @0xe
0x1d85…1d9a at000f = ╱fe0000d004╱ // 0x1d94 @0xf
0x1d85…1d9a at0014 = EOL // 0x1d99 @0x14
0x1d85…1d9a }
0x1d9a…1dc6 ab1d 2830 INPUT "Ønskes flere testprint (J/N):",SVAR1$
0x1d9a…1dc6 LineComalBin {
0x1d9a…1dc6 ptr = 0xab1d // 0x1d9a @0x0
0x1d9a…1dc6 lno = 0x0b0e // 0x1d9c @0x2
0x1d9a…1dc6 at0004 = ╱91╱ INPUT ╱ // 0x1d9e @0x4
0x1d9a…1dc6 at0005 = ╱22╱"╱ // 0x1d9f @0x5
0x1d9a…1dc6 at0006 = ╱5c╱Ø╱ // 0x1da0 @0x6
0x1d9a…1dc6 at0007 = ╱6e╱n╱ // 0x1da1 @0x7
0x1d9a…1dc6 at0008 = ╱73╱s╱ // 0x1da2 @0x8
0x1d9a…1dc6 at0009 = ╱6b╱k╱ // 0x1da3 @0x9
0x1d9a…1dc6 at000a = ╱65╱e╱ // 0x1da4 @0xa
0x1d9a…1dc6 at000b = ╱73╱s╱ // 0x1da5 @0xb
0x1d9a…1dc6 at000c = ╱20╱…╱ // 0x1da6 @0xc
0x1d9a…1dc6 at000d = ╱66╱f╱ // 0x1da7 @0xd
0x1d9a…1dc6 at000e = ╱6c╱l╱ // 0x1da8 @0xe
0x1d9a…1dc6 at000f = ╱65╱e╱ // 0x1da9 @0xf
0x1d9a…1dc6 at0010 = ╱72╱r╱ // 0x1daa @0x10
0x1d9a…1dc6 at0011 = ╱65╱e╱ // 0x1dab @0x11
0x1d9a…1dc6 at0012 = ╱20╱…╱ // 0x1dac @0x12
0x1d9a…1dc6 at0013 = ╱74╱t╱ // 0x1dad @0x13
0x1d9a…1dc6 at0014 = ╱65╱e╱ // 0x1dae @0x14
0x1d9a…1dc6 at0015 = ╱73╱s╱ // 0x1daf @0x15
0x1d9a…1dc6 at0016 = ╱74╱t╱ // 0x1db0 @0x16
0x1d9a…1dc6 at0017 = ╱70╱p╱ // 0x1db1 @0x17
0x1d9a…1dc6 at0018 = ╱72╱r╱ // 0x1db2 @0x18
0x1d9a…1dc6 at0019 = ╱69╱i╱ // 0x1db3 @0x19
0x1d9a…1dc6 at001a = ╱6e╱n╱ // 0x1db4 @0x1a
0x1d9a…1dc6 at001b = ╱74╱t╱ // 0x1db5 @0x1b
0x1d9a…1dc6 at001c = ╱20╱…╱ // 0x1db6 @0x1c
0x1d9a…1dc6 at001d = ╱28╱(╱ // 0x1db7 @0x1d
0x1d9a…1dc6 at001e = ╱4a╱J╱ // 0x1db8 @0x1e
0x1d9a…1dc6 at001f = ╱2f╱/╱ // 0x1db9 @0x1f
0x1d9a…1dc6 at0020 = ╱4e╱N╱ // 0x1dba @0x20
0x1d9a…1dc6 at0021 = ╱29╱)╱ // 0x1dbb @0x21
0x1d9a…1dc6 at0022 = ╱3a╱:╱ // 0x1dbc @0x22
0x1d9a…1dc6 at0023 = ╱22╱"╱ // 0x1dbd @0x23
0x1d9a…1dc6 at0024 = ╱ec╱,╱ // 0x1dbe @0x24
0x1d9a…1dc6 at0025 = ╱53╱S╱ // 0x1dbf @0x25
0x1d9a…1dc6 at0026 = ╱56╱V╱ // 0x1dc0 @0x26
0x1d9a…1dc6 at0027 = ╱41╱A╱ // 0x1dc1 @0x27
0x1d9a…1dc6 at0028 = ╱52╱R╱ // 0x1dc2 @0x28
0x1d9a…1dc6 at0029 = ╱31╱1╱ // 0x1dc3 @0x29
0x1d9a…1dc6 at002a = ╱ef╱$╱ // 0x1dc4 @0x2a
0x1d9a…1dc6 at002b = EOL // 0x1dc5 @0x2b
0x1d9a…1dc6 }
0x1dc6…1df7 ab4e 2840 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n"
0x1dc6…1df7 LineComalBin {
0x1dc6…1df7 ptr = 0xab4e // 0x1dc6 @0x0
0x1dc6…1df7 lno = 0x0b18 // 0x1dc8 @0x2
0x1dc6…1df7 at0004 = ╱98╱ UNTIL ╱ // 0x1dca @0x4
0x1dc6…1df7 at0005 = ╱53╱S╱ // 0x1dcb @0x5
0x1dc6…1df7 at0006 = ╱56╱V╱ // 0x1dcc @0x6
0x1dc6…1df7 at0007 = ╱41╱A╱ // 0x1dcd @0x7
0x1dc6…1df7 at0008 = ╱52╱R╱ // 0x1dce @0x8
0x1dc6…1df7 at0009 = ╱31╱1╱ // 0x1dcf @0x9
0x1dc6…1df7 at000a = ╱ef╱$╱ // 0x1dd0 @0xa
0x1dc6…1df7 at000b = ╱dc╱=╱ // 0x1dd1 @0xb
0x1dc6…1df7 at000c = ╱22╱"╱ // 0x1dd2 @0xc
0x1dc6…1df7 at000d = ╱4a╱J╱ // 0x1dd3 @0xd
0x1dc6…1df7 at000e = ╱22╱"╱ // 0x1dd4 @0xe
0x1dc6…1df7 at000f = ╱db╱ OR ╱ // 0x1dd5 @0xf
0x1dc6…1df7 at0010 = ╱53╱S╱ // 0x1dd6 @0x10
0x1dc6…1df7 at0011 = ╱56╱V╱ // 0x1dd7 @0x11
0x1dc6…1df7 at0012 = ╱41╱A╱ // 0x1dd8 @0x12
0x1dc6…1df7 at0013 = ╱52╱R╱ // 0x1dd9 @0x13
0x1dc6…1df7 at0014 = ╱31╱1╱ // 0x1dda @0x14
0x1dc6…1df7 at0015 = ╱ef╱$╱ // 0x1ddb @0x15
0x1dc6…1df7 at0016 = ╱dc╱=╱ // 0x1ddc @0x16
0x1dc6…1df7 at0017 = ╱22╱"╱ // 0x1ddd @0x17
0x1dc6…1df7 at0018 = ╱4e╱N╱ // 0x1dde @0x18
0x1dc6…1df7 at0019 = ╱22╱"╱ // 0x1ddf @0x19
0x1dc6…1df7 at001a = ╱db╱ OR ╱ // 0x1de0 @0x1a
0x1dc6…1df7 at001b = ╱53╱S╱ // 0x1de1 @0x1b
0x1dc6…1df7 at001c = ╱56╱V╱ // 0x1de2 @0x1c
0x1dc6…1df7 at001d = ╱41╱A╱ // 0x1de3 @0x1d
0x1dc6…1df7 at001e = ╱52╱R╱ // 0x1de4 @0x1e
0x1dc6…1df7 at001f = ╱31╱1╱ // 0x1de5 @0x1f
0x1dc6…1df7 at0020 = ╱ef╱$╱ // 0x1de6 @0x20
0x1dc6…1df7 at0021 = ╱dc╱=╱ // 0x1de7 @0x21
0x1dc6…1df7 at0022 = ╱22╱"╱ // 0x1de8 @0x22
0x1dc6…1df7 at0023 = ╱6a╱j╱ // 0x1de9 @0x23
0x1dc6…1df7 at0024 = ╱22╱"╱ // 0x1dea @0x24
0x1dc6…1df7 at0025 = ╱db╱ OR ╱ // 0x1deb @0x25
0x1dc6…1df7 at0026 = ╱53╱S╱ // 0x1dec @0x26
0x1dc6…1df7 at0027 = ╱56╱V╱ // 0x1ded @0x27
0x1dc6…1df7 at0028 = ╱41╱A╱ // 0x1dee @0x28
0x1dc6…1df7 at0029 = ╱52╱R╱ // 0x1def @0x29
0x1dc6…1df7 at002a = ╱31╱1╱ // 0x1df0 @0x2a
0x1dc6…1df7 at002b = ╱ef╱$╱ // 0x1df1 @0x2b
0x1dc6…1df7 at002c = ╱dc╱=╱ // 0x1df2 @0x2c
0x1dc6…1df7 at002d = ╱22╱"╱ // 0x1df3 @0x2d
0x1dc6…1df7 at002e = ╱6e╱n╱ // 0x1df4 @0x2e
0x1dc6…1df7 at002f = ╱22╱"╱ // 0x1df5 @0x2f
0x1dc6…1df7 at0030 = EOL // 0x1df6 @0x30
0x1dc6…1df7 }
0x1df7…1e1c ab73 2850 IF SVAR1$="J" OR SVAR1$="j" THEN EXEC TESTPRIN
0x1df7…1e1c LineComalBin {
0x1df7…1e1c ptr = 0xab73 // 0x1df7 @0x0
0x1df7…1e1c lno = 0x0b22 // 0x1df9 @0x2
0x1df7…1e1c at0004 = ╱82╱ IF ╱ // 0x1dfb @0x4
0x1df7…1e1c at0005 = ╱53╱S╱ // 0x1dfc @0x5
0x1df7…1e1c at0006 = ╱56╱V╱ // 0x1dfd @0x6
0x1df7…1e1c at0007 = ╱41╱A╱ // 0x1dfe @0x7
0x1df7…1e1c at0008 = ╱52╱R╱ // 0x1dff @0x8
0x1df7…1e1c at0009 = ╱31╱1╱ // 0x1e00 @0x9
0x1df7…1e1c at000a = ╱ef╱$╱ // 0x1e01 @0xa
0x1df7…1e1c at000b = ╱dc╱=╱ // 0x1e02 @0xb
0x1df7…1e1c at000c = ╱22╱"╱ // 0x1e03 @0xc
0x1df7…1e1c at000d = ╱4a╱J╱ // 0x1e04 @0xd
0x1df7…1e1c at000e = ╱22╱"╱ // 0x1e05 @0xe
0x1df7…1e1c at000f = ╱db╱ OR ╱ // 0x1e06 @0xf
0x1df7…1e1c at0010 = ╱53╱S╱ // 0x1e07 @0x10
0x1df7…1e1c at0011 = ╱56╱V╱ // 0x1e08 @0x11
0x1df7…1e1c at0012 = ╱41╱A╱ // 0x1e09 @0x12
0x1df7…1e1c at0013 = ╱52╱R╱ // 0x1e0a @0x13
0x1df7…1e1c at0014 = ╱31╱1╱ // 0x1e0b @0x14
0x1df7…1e1c at0015 = ╱ef╱$╱ // 0x1e0c @0x15
0x1df7…1e1c at0016 = ╱dc╱=╱ // 0x1e0d @0x16
0x1df7…1e1c at0017 = ╱22╱"╱ // 0x1e0e @0x17
0x1df7…1e1c at0018 = ╱6a╱j╱ // 0x1e0f @0x18
0x1df7…1e1c at0019 = ╱22╱"╱ // 0x1e10 @0x19
0x1df7…1e1c at001a = ╱b6╱ THEN ╱ // 0x1e11 @0x1a
0x1df7…1e1c at001b = ╱9d╱ EXEC ╱ // 0x1e12 @0x1b
0x1df7…1e1c at001c = ╱54╱T╱ // 0x1e13 @0x1c
0x1df7…1e1c at001d = ╱45╱E╱ // 0x1e14 @0x1d
0x1df7…1e1c at001e = ╱53╱S╱ // 0x1e15 @0x1e
0x1df7…1e1c at001f = ╱54╱T╱ // 0x1e16 @0x1f
0x1df7…1e1c at0020 = ╱50╱P╱ // 0x1e17 @0x20
0x1df7…1e1c at0021 = ╱52╱R╱ // 0x1e18 @0x21
0x1df7…1e1c at0022 = ╱49╱I╱ // 0x1e19 @0x22
0x1df7…1e1c at0023 = ╱4e╱N╱ // 0x1e1a @0x23
0x1df7…1e1c at0024 = EOL // 0x1e1b @0x24
0x1df7…1e1c }
0x1e1c…1e37 ab8e 2860 UNTIL SVAR1$="N" OR SVAR1$="n"
0x1e1c…1e37 LineComalBin {
0x1e1c…1e37 ptr = 0xab8e // 0x1e1c @0x0
0x1e1c…1e37 lno = 0x0b2c // 0x1e1e @0x2
0x1e1c…1e37 at0004 = ╱98╱ UNTIL ╱ // 0x1e20 @0x4
0x1e1c…1e37 at0005 = ╱53╱S╱ // 0x1e21 @0x5
0x1e1c…1e37 at0006 = ╱56╱V╱ // 0x1e22 @0x6
0x1e1c…1e37 at0007 = ╱41╱A╱ // 0x1e23 @0x7
0x1e1c…1e37 at0008 = ╱52╱R╱ // 0x1e24 @0x8
0x1e1c…1e37 at0009 = ╱31╱1╱ // 0x1e25 @0x9
0x1e1c…1e37 at000a = ╱ef╱$╱ // 0x1e26 @0xa
0x1e1c…1e37 at000b = ╱dc╱=╱ // 0x1e27 @0xb
0x1e1c…1e37 at000c = ╱22╱"╱ // 0x1e28 @0xc
0x1e1c…1e37 at000d = ╱4e╱N╱ // 0x1e29 @0xd
0x1e1c…1e37 at000e = ╱22╱"╱ // 0x1e2a @0xe
0x1e1c…1e37 at000f = ╱db╱ OR ╱ // 0x1e2b @0xf
0x1e1c…1e37 at0010 = ╱53╱S╱ // 0x1e2c @0x10
0x1e1c…1e37 at0011 = ╱56╱V╱ // 0x1e2d @0x11
0x1e1c…1e37 at0012 = ╱41╱A╱ // 0x1e2e @0x12
0x1e1c…1e37 at0013 = ╱52╱R╱ // 0x1e2f @0x13
0x1e1c…1e37 at0014 = ╱31╱1╱ // 0x1e30 @0x14
0x1e1c…1e37 at0015 = ╱ef╱$╱ // 0x1e31 @0x15
0x1e1c…1e37 at0016 = ╱dc╱=╱ // 0x1e32 @0x16
0x1e1c…1e37 at0017 = ╱22╱"╱ // 0x1e33 @0x17
0x1e1c…1e37 at0018 = ╱6e╱n╱ // 0x1e34 @0x18
0x1e1c…1e37 at0019 = ╱22╱"╱ // 0x1e35 @0x19
0x1e1c…1e37 at001a = EOL // 0x1e36 @0x1a
0x1e1c…1e37 }
0x1e37…1e5a abb1 2870 TE$="Der udskrives fakturaer."
0x1e37…1e5a LineComalBin {
0x1e37…1e5a ptr = 0xabb1 // 0x1e37 @0x0
0x1e37…1e5a lno = 0x0b36 // 0x1e39 @0x2
0x1e37…1e5a at0004 = ╱54╱T╱ // 0x1e3b @0x4
0x1e37…1e5a at0005 = ╱45╱E╱ // 0x1e3c @0x5
0x1e37…1e5a at0006 = ╱ef╱$╱ // 0x1e3d @0x6
0x1e37…1e5a at0007 = ╱dc╱=╱ // 0x1e3e @0x7
0x1e37…1e5a at0008 = ╱22╱"╱ // 0x1e3f @0x8
0x1e37…1e5a at0009 = ╱44╱D╱ // 0x1e40 @0x9
0x1e37…1e5a at000a = ╱65╱e╱ // 0x1e41 @0xa
0x1e37…1e5a at000b = ╱72╱r╱ // 0x1e42 @0xb
0x1e37…1e5a at000c = ╱20╱…╱ // 0x1e43 @0xc
0x1e37…1e5a at000d = ╱75╱u╱ // 0x1e44 @0xd
0x1e37…1e5a at000e = ╱64╱d╱ // 0x1e45 @0xe
0x1e37…1e5a at000f = ╱73╱s╱ // 0x1e46 @0xf
0x1e37…1e5a at0010 = ╱6b╱k╱ // 0x1e47 @0x10
0x1e37…1e5a at0011 = ╱72╱r╱ // 0x1e48 @0x11
0x1e37…1e5a at0012 = ╱69╱i╱ // 0x1e49 @0x12
0x1e37…1e5a at0013 = ╱76╱v╱ // 0x1e4a @0x13
0x1e37…1e5a at0014 = ╱65╱e╱ // 0x1e4b @0x14
0x1e37…1e5a at0015 = ╱73╱s╱ // 0x1e4c @0x15
0x1e37…1e5a at0016 = ╱20╱…╱ // 0x1e4d @0x16
0x1e37…1e5a at0017 = ╱66╱f╱ // 0x1e4e @0x17
0x1e37…1e5a at0018 = ╱61╱a╱ // 0x1e4f @0x18
0x1e37…1e5a at0019 = ╱6b╱k╱ // 0x1e50 @0x19
0x1e37…1e5a at001a = ╱74╱t╱ // 0x1e51 @0x1a
0x1e37…1e5a at001b = ╱75╱u╱ // 0x1e52 @0x1b
0x1e37…1e5a at001c = ╱72╱r╱ // 0x1e53 @0x1c
0x1e37…1e5a at001d = ╱61╱a╱ // 0x1e54 @0x1d
0x1e37…1e5a at001e = ╱65╱e╱ // 0x1e55 @0x1e
0x1e37…1e5a at001f = ╱72╱r╱ // 0x1e56 @0x1f
0x1e37…1e5a at0020 = ╱2e╱.╱ // 0x1e57 @0x20
0x1e37…1e5a at0021 = ╱22╱"╱ // 0x1e58 @0x21
0x1e37…1e5a at0022 = EOL // 0x1e59 @0x22
0x1e37…1e5a }
0x1e5a…1e63 abba 2880 EXEC BIL
0x1e5a…1e63 LineComalBin {
0x1e5a…1e63 ptr = 0xabba // 0x1e5a @0x0
0x1e5a…1e63 lno = 0x0b40 // 0x1e5c @0x2
0x1e5a…1e63 at0004 = ╱9d╱ EXEC ╱ // 0x1e5e @0x4
0x1e5a…1e63 at0005 = ╱42╱B╱ // 0x1e5f @0x5
0x1e5a…1e63 at0006 = ╱49╱I╱ // 0x1e60 @0x6
0x1e5a…1e63 at0007 = ╱4c╱L╱ // 0x1e61 @0x7
0x1e5a…1e63 at0008 = EOL // 0x1e62 @0x8
0x1e5a…1e63 }
0x1e63…1e6a abc1 2890 OUTPUT P
0x1e63…1e6a LineComalBin {
0x1e63…1e6a ptr = 0xabc1 // 0x1e63 @0x0
0x1e63…1e6a lno = 0x0b4a // 0x1e65 @0x2
0x1e63…1e6a at0004 = ╱a5╱ OUTPUT ╱ // 0x1e67 @0x4
0x1e63…1e6a at0005 = ╱50╱P╱ // 0x1e68 @0x5
0x1e63…1e6a at0006 = EOL // 0x1e69 @0x6
0x1e63…1e6a }
0x1e6a…1e7b abd2 2900 IF APOSTER=B THEN EXIT
0x1e6a…1e7b LineComalBin {
0x1e6a…1e7b ptr = 0xabd2 // 0x1e6a @0x0
0x1e6a…1e7b lno = 0x0b54 // 0x1e6c @0x2
0x1e6a…1e7b at0004 = ╱82╱ IF ╱ // 0x1e6e @0x4
0x1e6a…1e7b at0005 = ╱41╱A╱ // 0x1e6f @0x5
0x1e6a…1e7b at0006 = ╱50╱P╱ // 0x1e70 @0x6
0x1e6a…1e7b at0007 = ╱4f╱O╱ // 0x1e71 @0x7
0x1e6a…1e7b at0008 = ╱53╱S╱ // 0x1e72 @0x8
0x1e6a…1e7b at0009 = ╱54╱T╱ // 0x1e73 @0x9
0x1e6a…1e7b at000a = ╱45╱E╱ // 0x1e74 @0xa
0x1e6a…1e7b at000b = ╱52╱R╱ // 0x1e75 @0xb
0x1e6a…1e7b at000c = ╱dc╱=╱ // 0x1e76 @0xc
0x1e6a…1e7b at000d = ╱42╱B╱ // 0x1e77 @0xd
0x1e6a…1e7b at000e = ╱b6╱ THEN ╱ // 0x1e78 @0xe
0x1e6a…1e7b at000f = ╱99╱ EXIT ╱ // 0x1e79 @0xf
0x1e6a…1e7b at0010 = EOL // 0x1e7a @0x10
0x1e6a…1e7b }
0x1e7b…1e86 abdd 2910 OPEN K6$,R
0x1e7b…1e86 LineComalBin {
0x1e7b…1e86 ptr = 0xabdd // 0x1e7b @0x0
0x1e7b…1e86 lno = 0x0b5e // 0x1e7d @0x2
0x1e7b…1e86 at0004 = ╱a7╱ OPEN ╱ // 0x1e7f @0x4
0x1e7b…1e86 at0005 = ╱4b╱K╱ // 0x1e80 @0x5
0x1e7b…1e86 at0006 = ╱36╱6╱ // 0x1e81 @0x6
0x1e7b…1e86 at0007 = ╱ef╱$╱ // 0x1e82 @0x7
0x1e7b…1e86 at0008 = ╱ec╱,╱ // 0x1e83 @0x8
0x1e7b…1e86 at0009 = ╱52╱R╱ // 0x1e84 @0x9
0x1e7b…1e86 at000a = EOL // 0x1e85 @0xa
0x1e7b…1e86 }
0x1e86…1e9e abf5 2920 EXEC FEJL(V,4,K6$)
0x1e86…1e9e LineComalBin {
0x1e86…1e9e ptr = 0xabf5 // 0x1e86 @0x0
0x1e86…1e9e lno = 0x0b68 // 0x1e88 @0x2
0x1e86…1e9e at0004 = ╱9d╱ EXEC ╱ // 0x1e8a @0x4
0x1e86…1e9e at0005 = ╱46╱F╱ // 0x1e8b @0x5
0x1e86…1e9e at0006 = ╱45╱E╱ // 0x1e8c @0x6
0x1e86…1e9e at0007 = ╱4a╱J╱ // 0x1e8d @0x7
0x1e86…1e9e at0008 = ╱4c╱L╱ // 0x1e8e @0x8
0x1e86…1e9e at0009 = ╱ed╱(╱ // 0x1e8f @0x9
0x1e86…1e9e at000a = ╱56╱V╱ // 0x1e90 @0xa
0x1e86…1e9e at000b = ╱ec╱,╱ // 0x1e91 @0xb
0x1e86…1e9e at000c = ╱34╱4╱ // 0x1e92 @0xc
0x1e86…1e9e at000d = ╱fe00008003╱ // 0x1e93 @0xd
0x1e86…1e9e at0012 = ╱ec╱,╱ // 0x1e98 @0x12
0x1e86…1e9e at0013 = ╱4b╱K╱ // 0x1e99 @0x13
0x1e86…1e9e at0014 = ╱36╱6╱ // 0x1e9a @0x14
0x1e86…1e9e at0015 = ╱ef╱$╱ // 0x1e9b @0x15
0x1e86…1e9e at0016 = ╱ee╱)╱ // 0x1e9c @0x16
0x1e86…1e9e at0017 = EOL // 0x1e9d @0x17
0x1e86…1e9e }
0x1e9e…1eab ac02 2930 I=STPOST
0x1e9e…1eab LineComalBin {
0x1e9e…1eab ptr = 0xac02 // 0x1e9e @0x0
0x1e9e…1eab lno = 0x0b72 // 0x1ea0 @0x2
0x1e9e…1eab at0004 = ╱49╱I╱ // 0x1ea2 @0x4
0x1e9e…1eab at0005 = ╱dc╱=╱ // 0x1ea3 @0x5
0x1e9e…1eab at0006 = ╱53╱S╱ // 0x1ea4 @0x6
0x1e9e…1eab at0007 = ╱54╱T╱ // 0x1ea5 @0x7
0x1e9e…1eab at0008 = ╱50╱P╱ // 0x1ea6 @0x8
0x1e9e…1eab at0009 = ╱4f╱O╱ // 0x1ea7 @0x9
0x1e9e…1eab at000a = ╱53╱S╱ // 0x1ea8 @0xa
0x1e9e…1eab at000b = ╱54╱T╱ // 0x1ea9 @0xb
0x1e9e…1eab at000c = EOL // 0x1eaa @0xc
0x1e9e…1eab }
0x1eab…1eb1 ac08 2940 REPEAT
0x1eab…1eb1 LineComalBin {
0x1eab…1eb1 ptr = 0xac08 // 0x1eab @0x0
0x1eab…1eb1 lno = 0x0b7c // 0x1ead @0x2
0x1eab…1eb1 at0004 = ╱97╱ REPEAT ╱ // 0x1eaf @0x4
0x1eab…1eb1 at0005 = EOL // 0x1eb0 @0x5
0x1eab…1eb1 }
0x1eb1…1ec1 ac18 2950 TOTAL$="0+"
0x1eb1…1ec1 LineComalBin {
0x1eb1…1ec1 ptr = 0xac18 // 0x1eb1 @0x0
0x1eb1…1ec1 lno = 0x0b86 // 0x1eb3 @0x2
0x1eb1…1ec1 at0004 = ╱54╱T╱ // 0x1eb5 @0x4
0x1eb1…1ec1 at0005 = ╱4f╱O╱ // 0x1eb6 @0x5
0x1eb1…1ec1 at0006 = ╱54╱T╱ // 0x1eb7 @0x6
0x1eb1…1ec1 at0007 = ╱41╱A╱ // 0x1eb8 @0x7
0x1eb1…1ec1 at0008 = ╱4c╱L╱ // 0x1eb9 @0x8
0x1eb1…1ec1 at0009 = ╱ef╱$╱ // 0x1eba @0x9
0x1eb1…1ec1 at000a = ╱dc╱=╱ // 0x1ebb @0xa
0x1eb1…1ec1 at000b = ╱22╱"╱ // 0x1ebc @0xb
0x1eb1…1ec1 at000c = ╱30╱0╱ // 0x1ebd @0xc
0x1eb1…1ec1 at000d = ╱2b╱+╱ // 0x1ebe @0xd
0x1eb1…1ec1 at000e = ╱22╱"╱ // 0x1ebf @0xe
0x1eb1…1ec1 at000f = EOL // 0x1ec0 @0xf
0x1eb1…1ec1 }
0x1ec1…1ee8 ac3f 2960 GET K6$,I:KUNDENR,ORDRED,FAKKRE$,DIVD
0x1ec1…1ee8 LineComalBin {
0x1ec1…1ee8 ptr = 0xac3f // 0x1ec1 @0x0
0x1ec1…1ee8 lno = 0x0b90 // 0x1ec3 @0x2
0x1ec1…1ee8 at0004 = ╱a9╱ GET ╱ // 0x1ec5 @0x4
0x1ec1…1ee8 at0005 = ╱4b╱K╱ // 0x1ec6 @0x5
0x1ec1…1ee8 at0006 = ╱36╱6╱ // 0x1ec7 @0x6
0x1ec1…1ee8 at0007 = ╱ef╱$╱ // 0x1ec8 @0x7
0x1ec1…1ee8 at0008 = ╱ec╱,╱ // 0x1ec9 @0x8
0x1ec1…1ee8 at0009 = ╱49╱I╱ // 0x1eca @0x9
0x1ec1…1ee8 at000a = ╱f0╱:╱ // 0x1ecb @0xa
0x1ec1…1ee8 at000b = ╱4b╱K╱ // 0x1ecc @0xb
0x1ec1…1ee8 at000c = ╱55╱U╱ // 0x1ecd @0xc
0x1ec1…1ee8 at000d = ╱4e╱N╱ // 0x1ece @0xd
0x1ec1…1ee8 at000e = ╱44╱D╱ // 0x1ecf @0xe
0x1ec1…1ee8 at000f = ╱45╱E╱ // 0x1ed0 @0xf
0x1ec1…1ee8 at0010 = ╱4e╱N╱ // 0x1ed1 @0x10
0x1ec1…1ee8 at0011 = ╱52╱R╱ // 0x1ed2 @0x11
0x1ec1…1ee8 at0012 = ╱ec╱,╱ // 0x1ed3 @0x12
0x1ec1…1ee8 at0013 = ╱4f╱O╱ // 0x1ed4 @0x13
0x1ec1…1ee8 at0014 = ╱52╱R╱ // 0x1ed5 @0x14
0x1ec1…1ee8 at0015 = ╱44╱D╱ // 0x1ed6 @0x15
0x1ec1…1ee8 at0016 = ╱52╱R╱ // 0x1ed7 @0x16
0x1ec1…1ee8 at0017 = ╱45╱E╱ // 0x1ed8 @0x17
0x1ec1…1ee8 at0018 = ╱44╱D╱ // 0x1ed9 @0x18
0x1ec1…1ee8 at0019 = ╱ec╱,╱ // 0x1eda @0x19
0x1ec1…1ee8 at001a = ╱46╱F╱ // 0x1edb @0x1a
0x1ec1…1ee8 at001b = ╱41╱A╱ // 0x1edc @0x1b
0x1ec1…1ee8 at001c = ╱4b╱K╱ // 0x1edd @0x1c
0x1ec1…1ee8 at001d = ╱4b╱K╱ // 0x1ede @0x1d
0x1ec1…1ee8 at001e = ╱52╱R╱ // 0x1edf @0x1e
0x1ec1…1ee8 at001f = ╱45╱E╱ // 0x1ee0 @0x1f
0x1ec1…1ee8 at0020 = ╱ef╱$╱ // 0x1ee1 @0x20
0x1ec1…1ee8 at0021 = ╱ec╱,╱ // 0x1ee2 @0x21
0x1ec1…1ee8 at0022 = ╱44╱D╱ // 0x1ee3 @0x22
0x1ec1…1ee8 at0023 = ╱49╱I╱ // 0x1ee4 @0x23
0x1ec1…1ee8 at0024 = ╱56╱V╱ // 0x1ee5 @0x24
0x1ec1…1ee8 at0025 = ╱44╱D╱ // 0x1ee6 @0x25
0x1ec1…1ee8 at0026 = EOL // 0x1ee7 @0x26
0x1ec1…1ee8 }
0x1ee8…1f00 ac57 2970 EXEC FEJL(V,5,K6$)
0x1ee8…1f00 LineComalBin {
0x1ee8…1f00 ptr = 0xac57 // 0x1ee8 @0x0
0x1ee8…1f00 lno = 0x0b9a // 0x1eea @0x2
0x1ee8…1f00 at0004 = ╱9d╱ EXEC ╱ // 0x1eec @0x4
0x1ee8…1f00 at0005 = ╱46╱F╱ // 0x1eed @0x5
0x1ee8…1f00 at0006 = ╱45╱E╱ // 0x1eee @0x6
0x1ee8…1f00 at0007 = ╱4a╱J╱ // 0x1eef @0x7
0x1ee8…1f00 at0008 = ╱4c╱L╱ // 0x1ef0 @0x8
0x1ee8…1f00 at0009 = ╱ed╱(╱ // 0x1ef1 @0x9
0x1ee8…1f00 at000a = ╱56╱V╱ // 0x1ef2 @0xa
0x1ee8…1f00 at000b = ╱ec╱,╱ // 0x1ef3 @0xb
0x1ee8…1f00 at000c = ╱35╱5╱ // 0x1ef4 @0xc
0x1ee8…1f00 at000d = ╱fe0000a003╱ // 0x1ef5 @0xd
0x1ee8…1f00 at0012 = ╱ec╱,╱ // 0x1efa @0x12
0x1ee8…1f00 at0013 = ╱4b╱K╱ // 0x1efb @0x13
0x1ee8…1f00 at0014 = ╱36╱6╱ // 0x1efc @0x14
0x1ee8…1f00 at0015 = ╱ef╱$╱ // 0x1efd @0x15
0x1ee8…1f00 at0016 = ╱ee╱)╱ // 0x1efe @0x16
0x1ee8…1f00 at0017 = EOL // 0x1eff @0x17
0x1ee8…1f00 }
0x1f00…1f0a ac61 2980 I=I+E
0x1f00…1f0a LineComalBin {
0x1f00…1f0a ptr = 0xac61 // 0x1f00 @0x0
0x1f00…1f0a lno = 0x0ba4 // 0x1f02 @0x2
0x1f00…1f0a at0004 = ╱49╱I╱ // 0x1f04 @0x4
0x1f00…1f0a at0005 = ╱dc╱=╱ // 0x1f05 @0x5
0x1f00…1f0a at0006 = ╱49╱I╱ // 0x1f06 @0x6
0x1f00…1f0a at0007 = ╱e2╱+╱ // 0x1f07 @0x7
0x1f00…1f0a at0008 = ╱45╱E╱ // 0x1f08 @0x8
0x1f00…1f0a at0009 = EOL // 0x1f09 @0x9
0x1f00…1f0a }
0x1f0a…1f2f ac86 2990 GET K6$,I:ORDRENR,FDATO,ANPOST,KOD$
0x1f0a…1f2f LineComalBin {
0x1f0a…1f2f ptr = 0xac86 // 0x1f0a @0x0
0x1f0a…1f2f lno = 0x0bae // 0x1f0c @0x2
0x1f0a…1f2f at0004 = ╱a9╱ GET ╱ // 0x1f0e @0x4
0x1f0a…1f2f at0005 = ╱4b╱K╱ // 0x1f0f @0x5
0x1f0a…1f2f at0006 = ╱36╱6╱ // 0x1f10 @0x6
0x1f0a…1f2f at0007 = ╱ef╱$╱ // 0x1f11 @0x7
0x1f0a…1f2f at0008 = ╱ec╱,╱ // 0x1f12 @0x8
0x1f0a…1f2f at0009 = ╱49╱I╱ // 0x1f13 @0x9
0x1f0a…1f2f at000a = ╱f0╱:╱ // 0x1f14 @0xa
0x1f0a…1f2f at000b = ╱4f╱O╱ // 0x1f15 @0xb
0x1f0a…1f2f at000c = ╱52╱R╱ // 0x1f16 @0xc
0x1f0a…1f2f at000d = ╱44╱D╱ // 0x1f17 @0xd
0x1f0a…1f2f at000e = ╱52╱R╱ // 0x1f18 @0xe
0x1f0a…1f2f at000f = ╱45╱E╱ // 0x1f19 @0xf
0x1f0a…1f2f at0010 = ╱4e╱N╱ // 0x1f1a @0x10
0x1f0a…1f2f at0011 = ╱52╱R╱ // 0x1f1b @0x11
0x1f0a…1f2f at0012 = ╱ec╱,╱ // 0x1f1c @0x12
0x1f0a…1f2f at0013 = ╱46╱F╱ // 0x1f1d @0x13
0x1f0a…1f2f at0014 = ╱44╱D╱ // 0x1f1e @0x14
0x1f0a…1f2f at0015 = ╱41╱A╱ // 0x1f1f @0x15
0x1f0a…1f2f at0016 = ╱54╱T╱ // 0x1f20 @0x16
0x1f0a…1f2f at0017 = ╱4f╱O╱ // 0x1f21 @0x17
0x1f0a…1f2f at0018 = ╱ec╱,╱ // 0x1f22 @0x18
0x1f0a…1f2f at0019 = ╱41╱A╱ // 0x1f23 @0x19
0x1f0a…1f2f at001a = ╱4e╱N╱ // 0x1f24 @0x1a
0x1f0a…1f2f at001b = ╱50╱P╱ // 0x1f25 @0x1b
0x1f0a…1f2f at001c = ╱4f╱O╱ // 0x1f26 @0x1c
0x1f0a…1f2f at001d = ╱53╱S╱ // 0x1f27 @0x1d
0x1f0a…1f2f at001e = ╱54╱T╱ // 0x1f28 @0x1e
0x1f0a…1f2f at001f = ╱ec╱,╱ // 0x1f29 @0x1f
0x1f0a…1f2f at0020 = ╱4b╱K╱ // 0x1f2a @0x20
0x1f0a…1f2f at0021 = ╱4f╱O╱ // 0x1f2b @0x21
0x1f0a…1f2f at0022 = ╱44╱D╱ // 0x1f2c @0x22
0x1f0a…1f2f at0023 = ╱ef╱$╱ // 0x1f2d @0x23
0x1f0a…1f2f at0024 = EOL // 0x1f2e @0x24
0x1f0a…1f2f }
0x1f2f…1f47 ac9e 3000 EXEC FEJL(V,6,K6$)
0x1f2f…1f47 LineComalBin {
0x1f2f…1f47 ptr = 0xac9e // 0x1f2f @0x0
0x1f2f…1f47 lno = 0x0bb8 // 0x1f31 @0x2
0x1f2f…1f47 at0004 = ╱9d╱ EXEC ╱ // 0x1f33 @0x4
0x1f2f…1f47 at0005 = ╱46╱F╱ // 0x1f34 @0x5
0x1f2f…1f47 at0006 = ╱45╱E╱ // 0x1f35 @0x6
0x1f2f…1f47 at0007 = ╱4a╱J╱ // 0x1f36 @0x7
0x1f2f…1f47 at0008 = ╱4c╱L╱ // 0x1f37 @0x8
0x1f2f…1f47 at0009 = ╱ed╱(╱ // 0x1f38 @0x9
0x1f2f…1f47 at000a = ╱56╱V╱ // 0x1f39 @0xa
0x1f2f…1f47 at000b = ╱ec╱,╱ // 0x1f3a @0xb
0x1f2f…1f47 at000c = ╱36╱6╱ // 0x1f3b @0xc
0x1f2f…1f47 at000d = ╱fe0000c003╱ // 0x1f3c @0xd
0x1f2f…1f47 at0012 = ╱ec╱,╱ // 0x1f41 @0x12
0x1f2f…1f47 at0013 = ╱4b╱K╱ // 0x1f42 @0x13
0x1f2f…1f47 at0014 = ╱36╱6╱ // 0x1f43 @0x14
0x1f2f…1f47 at0015 = ╱ef╱$╱ // 0x1f44 @0x15
0x1f2f…1f47 at0016 = ╱ee╱)╱ // 0x1f45 @0x16
0x1f2f…1f47 at0017 = EOL // 0x1f46 @0x17
0x1f2f…1f47 }
0x1f47…1f51 aca8 3010 I=I+E
0x1f47…1f51 LineComalBin {
0x1f47…1f51 ptr = 0xaca8 // 0x1f47 @0x0
0x1f47…1f51 lno = 0x0bc2 // 0x1f49 @0x2
0x1f47…1f51 at0004 = ╱49╱I╱ // 0x1f4b @0x4
0x1f47…1f51 at0005 = ╱dc╱=╱ // 0x1f4c @0x5
0x1f47…1f51 at0006 = ╱49╱I╱ // 0x1f4d @0x6
0x1f47…1f51 at0007 = ╱e2╱+╱ // 0x1f4e @0x7
0x1f47…1f51 at0008 = ╱45╱E╱ // 0x1f4f @0x8
0x1f47…1f51 at0009 = EOL // 0x1f50 @0x9
0x1f47…1f51 }
0x1f51…1f86 acdd 3020 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$)
0x1f51…1f86 LineComalBin {
0x1f51…1f86 ptr = 0xacdd // 0x1f51 @0x0
0x1f51…1f86 lno = 0x0bcc // 0x1f53 @0x2
0x1f51…1f86 at0004 = ╱9d╱ EXEC ╱ // 0x1f55 @0x4
0x1f51…1f86 at0005 = ╱46╱F╱ // 0x1f56 @0x5
0x1f51…1f86 at0006 = ╱49╱I╱ // 0x1f57 @0x6
0x1f51…1f86 at0007 = ╱4e╱N╱ // 0x1f58 @0x7
0x1f51…1f86 at0008 = ╱44╱D╱ // 0x1f59 @0x8
0x1f51…1f86 at0009 = ╱50╱P╱ // 0x1f5a @0x9
0x1f51…1f86 at000a = ╱4f╱O╱ // 0x1f5b @0xa
0x1f51…1f86 at000b = ╱53╱S╱ // 0x1f5c @0xb
0x1f51…1f86 at000c = ╱54╱T╱ // 0x1f5d @0xc
0x1f51…1f86 at000d = ╱31╱1╱ // 0x1f5e @0xd
0x1f51…1f86 at000e = ╱ed╱(╱ // 0x1f5f @0xe
0x1f51…1f86 at000f = ╱44╱D╱ // 0x1f60 @0xf
0x1f51…1f86 at0010 = ╱54╱T╱ // 0x1f61 @0x10
0x1f51…1f86 at0011 = ╱41╱A╱ // 0x1f62 @0x11
0x1f51…1f86 at0012 = ╱42╱B╱ // 0x1f63 @0x12
0x1f51…1f86 at0013 = ╱31╱1╱ // 0x1f64 @0x13
0x1f51…1f86 at0014 = ╱ec╱,╱ // 0x1f65 @0x14
0x1f51…1f86 at0015 = ╱44╱D╱ // 0x1f66 @0x15
0x1f51…1f86 at0016 = ╱54╱T╱ // 0x1f67 @0x16
0x1f51…1f86 at0017 = ╱41╱A╱ // 0x1f68 @0x17
0x1f51…1f86 at0018 = ╱42╱B╱ // 0x1f69 @0x18
0x1f51…1f86 at0019 = ╱ec╱,╱ // 0x1f6a @0x19
0x1f51…1f86 at001a = ╱4d╱M╱ // 0x1f6b @0x1a
0x1f51…1f86 at001b = ╱44╱D╱ // 0x1f6c @0x1b
0x1f51…1f86 at001c = ╱41╱A╱ // 0x1f6d @0x1c
0x1f51…1f86 at001d = ╱4e╱N╱ // 0x1f6e @0x1d
0x1f51…1f86 at001e = ╱54╱T╱ // 0x1f6f @0x1e
0x1f51…1f86 at001f = ╱41╱A╱ // 0x1f70 @0x1f
0x1f51…1f86 at0020 = ╱4c╱L╱ // 0x1f71 @0x20
0x1f51…1f86 at0021 = ╱ec╱,╱ // 0x1f72 @0x21
0x1f51…1f86 at0022 = ╱4b╱K╱ // 0x1f73 @0x22
0x1f51…1f86 at0023 = ╱55╱U╱ // 0x1f74 @0x23
0x1f51…1f86 at0024 = ╱4e╱N╱ // 0x1f75 @0x24
0x1f51…1f86 at0025 = ╱44╱D╱ // 0x1f76 @0x25
0x1f51…1f86 at0026 = ╱45╱E╱ // 0x1f77 @0x26
0x1f51…1f86 at0027 = ╱4e╱N╱ // 0x1f78 @0x27
0x1f51…1f86 at0028 = ╱52╱R╱ // 0x1f79 @0x28
0x1f51…1f86 at0029 = ╱ec╱,╱ // 0x1f7a @0x29
0x1f51…1f86 at002a = ╱44╱D╱ // 0x1f7b @0x2a
0x1f51…1f86 at002b = ╱50╱P╱ // 0x1f7c @0x2b
0x1f51…1f86 at002c = ╱49╱I╱ // 0x1f7d @0x2c
0x1f51…1f86 at002d = ╱4c╱L╱ // 0x1f7e @0x2d
0x1f51…1f86 at002e = ╱33╱3╱ // 0x1f7f @0x2e
0x1f51…1f86 at002f = ╱ec╱,╱ // 0x1f80 @0x2f
0x1f51…1f86 at0030 = ╱4b╱K╱ // 0x1f81 @0x30
0x1f51…1f86 at0031 = ╱32╱2╱ // 0x1f82 @0x31
0x1f51…1f86 at0032 = ╱ef╱$╱ // 0x1f83 @0x32
0x1f51…1f86 at0033 = ╱ee╱)╱ // 0x1f84 @0x33
0x1f51…1f86 at0034 = EOL // 0x1f85 @0x34
0x1f51…1f86 }
0x1f86…1f9d acf4 3030 IF CEKS=B THEN EXEC HENTDPOST
0x1f86…1f9d LineComalBin {
0x1f86…1f9d ptr = 0xacf4 // 0x1f86 @0x0
0x1f86…1f9d lno = 0x0bd6 // 0x1f88 @0x2
0x1f86…1f9d at0004 = ╱82╱ IF ╱ // 0x1f8a @0x4
0x1f86…1f9d at0005 = ╱43╱C╱ // 0x1f8b @0x5
0x1f86…1f9d at0006 = ╱45╱E╱ // 0x1f8c @0x6
0x1f86…1f9d at0007 = ╱4b╱K╱ // 0x1f8d @0x7
0x1f86…1f9d at0008 = ╱53╱S╱ // 0x1f8e @0x8
0x1f86…1f9d at0009 = ╱dc╱=╱ // 0x1f8f @0x9
0x1f86…1f9d at000a = ╱42╱B╱ // 0x1f90 @0xa
0x1f86…1f9d at000b = ╱b6╱ THEN ╱ // 0x1f91 @0xb
0x1f86…1f9d at000c = ╱9d╱ EXEC ╱ // 0x1f92 @0xc
0x1f86…1f9d at000d = ╱48╱H╱ // 0x1f93 @0xd
0x1f86…1f9d at000e = ╱45╱E╱ // 0x1f94 @0xe
0x1f86…1f9d at000f = ╱4e╱N╱ // 0x1f95 @0xf
0x1f86…1f9d at0010 = ╱54╱T╱ // 0x1f96 @0x10
0x1f86…1f9d at0011 = ╱44╱D╱ // 0x1f97 @0x11
0x1f86…1f9d at0012 = ╱50╱P╱ // 0x1f98 @0x12
0x1f86…1f9d at0013 = ╱4f╱O╱ // 0x1f99 @0x13
0x1f86…1f9d at0014 = ╱53╱S╱ // 0x1f9a @0x14
0x1f86…1f9d at0015 = ╱54╱T╱ // 0x1f9b @0x15
0x1f86…1f9d at0016 = EOL // 0x1f9c @0x16
0x1f86…1f9d }
0x1f9d…1faa ad01 3040 IF DIVD=E THEN
0x1f9d…1faa LineComalBin {
0x1f9d…1faa ptr = 0xad01 // 0x1f9d @0x0
0x1f9d…1faa lno = 0x0be0 // 0x1f9f @0x2
0x1f9d…1faa at0004 = ╱9c╱ IF ╱ // 0x1fa1 @0x4
0x1f9d…1faa at0005 = ╱44╱D╱ // 0x1fa2 @0x5
0x1f9d…1faa at0006 = ╱49╱I╱ // 0x1fa3 @0x6
0x1f9d…1faa at0007 = ╱56╱V╱ // 0x1fa4 @0x7
0x1f9d…1faa at0008 = ╱44╱D╱ // 0x1fa5 @0x8
0x1f9d…1faa at0009 = ╱dc╱=╱ // 0x1fa6 @0x9
0x1f9d…1faa at000a = ╱45╱E╱ // 0x1fa7 @0xa
0x1f9d…1faa at000b = ╱b6╱ THEN ╱ // 0x1fa8 @0xb
0x1f9d…1faa at000c = EOL // 0x1fa9 @0xc
0x1f9d…1faa }
0x1faa…1fde ad35 3050 D1$=DEBNAVN$;D2$=DEBGADE$;D3$=DEBBY$;D4=DPOSTNR
0x1faa…1fde LineComalBin {
0x1faa…1fde ptr = 0xad35 // 0x1faa @0x0
0x1faa…1fde lno = 0x0bea // 0x1fac @0x2
0x1faa…1fde at0004 = ╱44╱D╱ // 0x1fae @0x4
0x1faa…1fde at0005 = ╱31╱1╱ // 0x1faf @0x5
0x1faa…1fde at0006 = ╱ef╱$╱ // 0x1fb0 @0x6
0x1faa…1fde at0007 = ╱dc╱=╱ // 0x1fb1 @0x7
0x1faa…1fde at0008 = ╱44╱D╱ // 0x1fb2 @0x8
0x1faa…1fde at0009 = ╱45╱E╱ // 0x1fb3 @0x9
0x1faa…1fde at000a = ╱42╱B╱ // 0x1fb4 @0xa
0x1faa…1fde at000b = ╱4e╱N╱ // 0x1fb5 @0xb
0x1faa…1fde at000c = ╱41╱A╱ // 0x1fb6 @0xc
0x1faa…1fde at000d = ╱56╱V╱ // 0x1fb7 @0xd
0x1faa…1fde at000e = ╱4e╱N╱ // 0x1fb8 @0xe
0x1faa…1fde at000f = ╱ef╱$╱ // 0x1fb9 @0xf
0x1faa…1fde at0010 = ╱eb╱;╱ // 0x1fba @0x10
0x1faa…1fde at0011 = ╱44╱D╱ // 0x1fbb @0x11
0x1faa…1fde at0012 = ╱32╱2╱ // 0x1fbc @0x12
0x1faa…1fde at0013 = ╱ef╱$╱ // 0x1fbd @0x13
0x1faa…1fde at0014 = ╱dc╱=╱ // 0x1fbe @0x14
0x1faa…1fde at0015 = ╱44╱D╱ // 0x1fbf @0x15
0x1faa…1fde at0016 = ╱45╱E╱ // 0x1fc0 @0x16
0x1faa…1fde at0017 = ╱42╱B╱ // 0x1fc1 @0x17
0x1faa…1fde at0018 = ╱47╱G╱ // 0x1fc2 @0x18
0x1faa…1fde at0019 = ╱41╱A╱ // 0x1fc3 @0x19
0x1faa…1fde at001a = ╱44╱D╱ // 0x1fc4 @0x1a
0x1faa…1fde at001b = ╱45╱E╱ // 0x1fc5 @0x1b
0x1faa…1fde at001c = ╱ef╱$╱ // 0x1fc6 @0x1c
0x1faa…1fde at001d = ╱eb╱;╱ // 0x1fc7 @0x1d
0x1faa…1fde at001e = ╱44╱D╱ // 0x1fc8 @0x1e
0x1faa…1fde at001f = ╱33╱3╱ // 0x1fc9 @0x1f
0x1faa…1fde at0020 = ╱ef╱$╱ // 0x1fca @0x20
0x1faa…1fde at0021 = ╱dc╱=╱ // 0x1fcb @0x21
0x1faa…1fde at0022 = ╱44╱D╱ // 0x1fcc @0x22
0x1faa…1fde at0023 = ╱45╱E╱ // 0x1fcd @0x23
0x1faa…1fde at0024 = ╱42╱B╱ // 0x1fce @0x24
0x1faa…1fde at0025 = ╱42╱B╱ // 0x1fcf @0x25
0x1faa…1fde at0026 = ╱59╱Y╱ // 0x1fd0 @0x26
0x1faa…1fde at0027 = ╱ef╱$╱ // 0x1fd1 @0x27
0x1faa…1fde at0028 = ╱eb╱;╱ // 0x1fd2 @0x28
0x1faa…1fde at0029 = ╱44╱D╱ // 0x1fd3 @0x29
0x1faa…1fde at002a = ╱34╱4╱ // 0x1fd4 @0x2a
0x1faa…1fde at002b = ╱dc╱=╱ // 0x1fd5 @0x2b
0x1faa…1fde at002c = ╱44╱D╱ // 0x1fd6 @0x2c
0x1faa…1fde at002d = ╱50╱P╱ // 0x1fd7 @0x2d
0x1faa…1fde at002e = ╱4f╱O╱ // 0x1fd8 @0x2e
0x1faa…1fde at002f = ╱53╱S╱ // 0x1fd9 @0x2f
0x1faa…1fde at0030 = ╱54╱T╱ // 0x1fda @0x30
0x1faa…1fde at0031 = ╱4e╱N╱ // 0x1fdb @0x31
0x1faa…1fde at0032 = ╱52╱R╱ // 0x1fdc @0x32
0x1faa…1fde at0033 = EOL // 0x1fdd @0x33
0x1faa…1fde }
0x1fde…2010 ad67 3060 DEBNAVN$=BLANK$;DEBGADE$=BLANK$;DEBBY$=BLANK$
0x1fde…2010 LineComalBin {
0x1fde…2010 ptr = 0xad67 // 0x1fde @0x0
0x1fde…2010 lno = 0x0bf4 // 0x1fe0 @0x2
0x1fde…2010 at0004 = ╱44╱D╱ // 0x1fe2 @0x4
0x1fde…2010 at0005 = ╱45╱E╱ // 0x1fe3 @0x5
0x1fde…2010 at0006 = ╱42╱B╱ // 0x1fe4 @0x6
0x1fde…2010 at0007 = ╱4e╱N╱ // 0x1fe5 @0x7
0x1fde…2010 at0008 = ╱41╱A╱ // 0x1fe6 @0x8
0x1fde…2010 at0009 = ╱56╱V╱ // 0x1fe7 @0x9
0x1fde…2010 at000a = ╱4e╱N╱ // 0x1fe8 @0xa
0x1fde…2010 at000b = ╱ef╱$╱ // 0x1fe9 @0xb
0x1fde…2010 at000c = ╱dc╱=╱ // 0x1fea @0xc
0x1fde…2010 at000d = ╱42╱B╱ // 0x1feb @0xd
0x1fde…2010 at000e = ╱4c╱L╱ // 0x1fec @0xe
0x1fde…2010 at000f = ╱41╱A╱ // 0x1fed @0xf
0x1fde…2010 at0010 = ╱4e╱N╱ // 0x1fee @0x10
0x1fde…2010 at0011 = ╱4b╱K╱ // 0x1fef @0x11
0x1fde…2010 at0012 = ╱ef╱$╱ // 0x1ff0 @0x12
0x1fde…2010 at0013 = ╱eb╱;╱ // 0x1ff1 @0x13
0x1fde…2010 at0014 = ╱44╱D╱ // 0x1ff2 @0x14
0x1fde…2010 at0015 = ╱45╱E╱ // 0x1ff3 @0x15
0x1fde…2010 at0016 = ╱42╱B╱ // 0x1ff4 @0x16
0x1fde…2010 at0017 = ╱47╱G╱ // 0x1ff5 @0x17
0x1fde…2010 at0018 = ╱41╱A╱ // 0x1ff6 @0x18
0x1fde…2010 at0019 = ╱44╱D╱ // 0x1ff7 @0x19
0x1fde…2010 at001a = ╱45╱E╱ // 0x1ff8 @0x1a
0x1fde…2010 at001b = ╱ef╱$╱ // 0x1ff9 @0x1b
0x1fde…2010 at001c = ╱dc╱=╱ // 0x1ffa @0x1c
0x1fde…2010 at001d = ╱42╱B╱ // 0x1ffb @0x1d
0x1fde…2010 at001e = ╱4c╱L╱ // 0x1ffc @0x1e
0x1fde…2010 at001f = ╱41╱A╱ // 0x1ffd @0x1f
0x1fde…2010 at0020 = ╱4e╱N╱ // 0x1ffe @0x20
0x1fde…2010 at0021 = ╱4b╱K╱ // 0x1fff @0x21
0x1fde…2010 at0022 = ╱ef╱$╱ // 0x2000 @0x22
0x1fde…2010 at0023 = ╱eb╱;╱ // 0x2001 @0x23
0x1fde…2010 at0024 = ╱44╱D╱ // 0x2002 @0x24
0x1fde…2010 at0025 = ╱45╱E╱ // 0x2003 @0x25
0x1fde…2010 at0026 = ╱42╱B╱ // 0x2004 @0x26
0x1fde…2010 at0027 = ╱42╱B╱ // 0x2005 @0x27
0x1fde…2010 at0028 = ╱59╱Y╱ // 0x2006 @0x28
0x1fde…2010 at0029 = ╱ef╱$╱ // 0x2007 @0x29
0x1fde…2010 at002a = ╱dc╱=╱ // 0x2008 @0x2a
0x1fde…2010 at002b = ╱42╱B╱ // 0x2009 @0x2b
0x1fde…2010 at002c = ╱4c╱L╱ // 0x200a @0x2c
0x1fde…2010 at002d = ╱41╱A╱ // 0x200b @0x2d
0x1fde…2010 at002e = ╱4e╱N╱ // 0x200c @0x2e
0x1fde…2010 at002f = ╱4b╱K╱ // 0x200d @0x2f
0x1fde…2010 at0030 = ╱ef╱$╱ // 0x200e @0x30
0x1fde…2010 at0031 = EOL // 0x200f @0x31
0x1fde…2010 }
0x2010…202f ad86 3070 GET K6$,I:DEBNAVN$(E:13)
0x2010…202f LineComalBin {
0x2010…202f ptr = 0xad86 // 0x2010 @0x0
0x2010…202f lno = 0x0bfe // 0x2012 @0x2
0x2010…202f at0004 = ╱a9╱ GET ╱ // 0x2014 @0x4
0x2010…202f at0005 = ╱4b╱K╱ // 0x2015 @0x5
0x2010…202f at0006 = ╱36╱6╱ // 0x2016 @0x6
0x2010…202f at0007 = ╱ef╱$╱ // 0x2017 @0x7
0x2010…202f at0008 = ╱ec╱,╱ // 0x2018 @0x8
0x2010…202f at0009 = ╱49╱I╱ // 0x2019 @0x9
0x2010…202f at000a = ╱f0╱:╱ // 0x201a @0xa
0x2010…202f at000b = ╱44╱D╱ // 0x201b @0xb
0x2010…202f at000c = ╱45╱E╱ // 0x201c @0xc
0x2010…202f at000d = ╱42╱B╱ // 0x201d @0xd
0x2010…202f at000e = ╱4e╱N╱ // 0x201e @0xe
0x2010…202f at000f = ╱41╱A╱ // 0x201f @0xf
0x2010…202f at0010 = ╱56╱V╱ // 0x2020 @0x10
0x2010…202f at0011 = ╱4e╱N╱ // 0x2021 @0x11
0x2010…202f at0012 = ╱ef╱$╱ // 0x2022 @0x12
0x2010…202f at0013 = ╱ed╱(╱ // 0x2023 @0x13
0x2010…202f at0014 = ╱45╱E╱ // 0x2024 @0x14
0x2010…202f at0015 = ╱f0╱:╱ // 0x2025 @0x15
0x2010…202f at0016 = ╱31╱1╱ // 0x2026 @0x16
0x2010…202f at0017 = ╱33╱3╱ // 0x2027 @0x17
0x2010…202f at0018 = ╱fe0000d004╱ // 0x2028 @0x18
0x2010…202f at001d = ╱ee╱)╱ // 0x202d @0x1d
0x2010…202f at001e = EOL // 0x202e @0x1e
0x2010…202f }
0x202f…2047 (107,) ad9e 3080 EXEC FEJL(V,7,K6$)
0x202f…2047 LineComalBin {
0x202f…2047 ptr = 0xad9e // 0x202f @0x0
0x202f…2047 lno = 0x0c08 // 0x2031 @0x2
0x202f…2047 at0004 = ╱9d╱ EXEC ╱ // 0x2033 @0x4
0x202f…2047 at0005 = ╱46╱F╱ // 0x2034 @0x5
0x202f…2047 at0006 = ╱45╱E╱ // 0x2035 @0x6
0x202f…2047 at0007 = ╱4a╱J╱ // 0x2036 @0x7
0x202f…2047 at0008 = ╱4c╱L╱ // 0x2037 @0x8
0x202f…2047 at0009 = ╱ed╱(╱ // 0x2038 @0x9
0x202f…2047 at000a = ╱56╱V╱ // 0x2039 @0xa
0x202f…2047 at000b = ╱ec╱,╱ // 0x203a @0xb
0x202f…2047 at000c = ╱37╱7╱ // 0x203b @0xc
0x202f…2047 at000d = ╱fe0000e003╱ // 0x203c @0xd
0x202f…2047 at0012 = ╱ec╱,╱ // 0x2041 @0x12
0x202f…2047 at0013 = ╱4b╱K╱ // 0x2042 @0x13
0x202f…2047 at0014 = ╱36╱6╱ // 0x2043 @0x14
0x202f…2047 at0015 = ╱ef╱$╱ // 0x2044 @0x15
0x202f…2047 at0016 = ╱ee╱)╱ // 0x2045 @0x16
0x202f…2047 at0017 = EOL // 0x2046 @0x17
0x202f…2047 }
0x2047…206e adc5 3090 GET K6$,I+E:DEBNAVN$(14:12)
0x2047…206e LineComalBin {
0x2047…206e ptr = 0xadc5 // 0x2047 @0x0
0x2047…206e lno = 0x0c12 // 0x2049 @0x2
0x2047…206e at0004 = ╱a9╱ GET ╱ // 0x204b @0x4
0x2047…206e at0005 = ╱4b╱K╱ // 0x204c @0x5
0x2047…206e at0006 = ╱36╱6╱ // 0x204d @0x6
0x2047…206e at0007 = ╱ef╱$╱ // 0x204e @0x7
0x2047…206e at0008 = ╱ec╱,╱ // 0x204f @0x8
0x2047…206e at0009 = ╱49╱I╱ // 0x2050 @0x9
0x2047…206e at000a = ╱e2╱+╱ // 0x2051 @0xa
0x2047…206e at000b = ╱45╱E╱ // 0x2052 @0xb
0x2047…206e at000c = ╱f0╱:╱ // 0x2053 @0xc
0x2047…206e at000d = ╱44╱D╱ // 0x2054 @0xd
0x2047…206e at000e = ╱45╱E╱ // 0x2055 @0xe
0x2047…206e at000f = ╱42╱B╱ // 0x2056 @0xf
0x2047…206e at0010 = ╱4e╱N╱ // 0x2057 @0x10
0x2047…206e at0011 = ╱41╱A╱ // 0x2058 @0x11
0x2047…206e at0012 = ╱56╱V╱ // 0x2059 @0x12
0x2047…206e at0013 = ╱4e╱N╱ // 0x205a @0x13
0x2047…206e at0014 = ╱ef╱$╱ // 0x205b @0x14
0x2047…206e at0015 = ╱ed╱(╱ // 0x205c @0x15
0x2047…206e at0016 = ╱31╱1╱ // 0x205d @0x16
0x2047…206e at0017 = ╱34╱4╱ // 0x205e @0x17
0x2047…206e at0018 = ╱fe0000e004╱ // 0x205f @0x18
0x2047…206e at001d = ╱f0╱:╱ // 0x2064 @0x1d
0x2047…206e at001e = ╱31╱1╱ // 0x2065 @0x1e
0x2047…206e at001f = ╱32╱2╱ // 0x2066 @0x1f
0x2047…206e at0020 = ╱fe0000c004╱ // 0x2067 @0x20
0x2047…206e at0025 = ╱ee╱)╱ // 0x206c @0x25
0x2047…206e at0026 = EOL // 0x206d @0x26
0x2047…206e }
0x206e…2086 addd 3100 EXEC FEJL(V,8,K6$)
0x206e…2086 LineComalBin {
0x206e…2086 ptr = 0xaddd // 0x206e @0x0
0x206e…2086 lno = 0x0c1c // 0x2070 @0x2
0x206e…2086 at0004 = ╱9d╱ EXEC ╱ // 0x2072 @0x4
0x206e…2086 at0005 = ╱46╱F╱ // 0x2073 @0x5
0x206e…2086 at0006 = ╱45╱E╱ // 0x2074 @0x6
0x206e…2086 at0007 = ╱4a╱J╱ // 0x2075 @0x7
0x206e…2086 at0008 = ╱4c╱L╱ // 0x2076 @0x8
0x206e…2086 at0009 = ╱ed╱(╱ // 0x2077 @0x9
0x206e…2086 at000a = ╱56╱V╱ // 0x2078 @0xa
0x206e…2086 at000b = ╱ec╱,╱ // 0x2079 @0xb
0x206e…2086 at000c = ╱38╱8╱ // 0x207a @0xc
0x206e…2086 at000d = ╱fe00008004╱ // 0x207b @0xd
0x206e…2086 at0012 = ╱ec╱,╱ // 0x2080 @0x12
0x206e…2086 at0013 = ╱4b╱K╱ // 0x2081 @0x13
0x206e…2086 at0014 = ╱36╱6╱ // 0x2082 @0x14
0x206e…2086 at0015 = ╱ef╱$╱ // 0x2083 @0x15
0x206e…2086 at0016 = ╱ee╱)╱ // 0x2084 @0x16
0x206e…2086 at0017 = EOL // 0x2085 @0x17
0x206e…2086 }
0x2086…20a7 adfe 3110 GET K6$,I+G:DEBGADE$(E:13)
0x2086…20a7 LineComalBin {
0x2086…20a7 ptr = 0xadfe // 0x2086 @0x0
0x2086…20a7 lno = 0x0c26 // 0x2088 @0x2
0x2086…20a7 at0004 = ╱a9╱ GET ╱ // 0x208a @0x4
0x2086…20a7 at0005 = ╱4b╱K╱ // 0x208b @0x5
0x2086…20a7 at0006 = ╱36╱6╱ // 0x208c @0x6
0x2086…20a7 at0007 = ╱ef╱$╱ // 0x208d @0x7
0x2086…20a7 at0008 = ╱ec╱,╱ // 0x208e @0x8
0x2086…20a7 at0009 = ╱49╱I╱ // 0x208f @0x9
0x2086…20a7 at000a = ╱e2╱+╱ // 0x2090 @0xa
0x2086…20a7 at000b = ╱47╱G╱ // 0x2091 @0xb
0x2086…20a7 at000c = ╱f0╱:╱ // 0x2092 @0xc
0x2086…20a7 at000d = ╱44╱D╱ // 0x2093 @0xd
0x2086…20a7 at000e = ╱45╱E╱ // 0x2094 @0xe
0x2086…20a7 at000f = ╱42╱B╱ // 0x2095 @0xf
0x2086…20a7 at0010 = ╱47╱G╱ // 0x2096 @0x10
0x2086…20a7 at0011 = ╱41╱A╱ // 0x2097 @0x11
0x2086…20a7 at0012 = ╱44╱D╱ // 0x2098 @0x12
0x2086…20a7 at0013 = ╱45╱E╱ // 0x2099 @0x13
0x2086…20a7 at0014 = ╱ef╱$╱ // 0x209a @0x14
0x2086…20a7 at0015 = ╱ed╱(╱ // 0x209b @0x15
0x2086…20a7 at0016 = ╱45╱E╱ // 0x209c @0x16
0x2086…20a7 at0017 = ╱f0╱:╱ // 0x209d @0x17
0x2086…20a7 at0018 = ╱31╱1╱ // 0x209e @0x18
0x2086…20a7 at0019 = ╱33╱3╱ // 0x209f @0x19
0x2086…20a7 at001a = ╱fe0000d004╱ // 0x20a0 @0x1a
0x2086…20a7 at001f = ╱ee╱)╱ // 0x20a5 @0x1f
0x2086…20a7 at0020 = EOL // 0x20a6 @0x20
0x2086…20a7 }
0x20a7…20ba ae11 3120 EXEC FEJL(V,W,K6$)
0x20a7…20ba LineComalBin {
0x20a7…20ba ptr = 0xae11 // 0x20a7 @0x0
0x20a7…20ba lno = 0x0c30 // 0x20a9 @0x2
0x20a7…20ba at0004 = ╱9d╱ EXEC ╱ // 0x20ab @0x4
0x20a7…20ba at0005 = ╱46╱F╱ // 0x20ac @0x5
0x20a7…20ba at0006 = ╱45╱E╱ // 0x20ad @0x6
0x20a7…20ba at0007 = ╱4a╱J╱ // 0x20ae @0x7
0x20a7…20ba at0008 = ╱4c╱L╱ // 0x20af @0x8
0x20a7…20ba at0009 = ╱ed╱(╱ // 0x20b0 @0x9
0x20a7…20ba at000a = ╱56╱V╱ // 0x20b1 @0xa
0x20a7…20ba at000b = ╱ec╱,╱ // 0x20b2 @0xb
0x20a7…20ba at000c = ╱57╱W╱ // 0x20b3 @0xc
0x20a7…20ba at000d = ╱ec╱,╱ // 0x20b4 @0xd
0x20a7…20ba at000e = ╱4b╱K╱ // 0x20b5 @0xe
0x20a7…20ba at000f = ╱36╱6╱ // 0x20b6 @0xf
0x20a7…20ba at0010 = ╱ef╱$╱ // 0x20b7 @0x10
0x20a7…20ba at0011 = ╱ee╱)╱ // 0x20b8 @0x11
0x20a7…20ba at0012 = EOL // 0x20b9 @0x12
0x20a7…20ba }
0x20ba…20e1 ae38 3130 GET K6$,I+V:DEBGADE$(14:12)
0x20ba…20e1 LineComalBin {
0x20ba…20e1 ptr = 0xae38 // 0x20ba @0x0
0x20ba…20e1 lno = 0x0c3a // 0x20bc @0x2
0x20ba…20e1 at0004 = ╱a9╱ GET ╱ // 0x20be @0x4
0x20ba…20e1 at0005 = ╱4b╱K╱ // 0x20bf @0x5
0x20ba…20e1 at0006 = ╱36╱6╱ // 0x20c0 @0x6
0x20ba…20e1 at0007 = ╱ef╱$╱ // 0x20c1 @0x7
0x20ba…20e1 at0008 = ╱ec╱,╱ // 0x20c2 @0x8
0x20ba…20e1 at0009 = ╱49╱I╱ // 0x20c3 @0x9
0x20ba…20e1 at000a = ╱e2╱+╱ // 0x20c4 @0xa
0x20ba…20e1 at000b = ╱56╱V╱ // 0x20c5 @0xb
0x20ba…20e1 at000c = ╱f0╱:╱ // 0x20c6 @0xc
0x20ba…20e1 at000d = ╱44╱D╱ // 0x20c7 @0xd
0x20ba…20e1 at000e = ╱45╱E╱ // 0x20c8 @0xe
0x20ba…20e1 at000f = ╱42╱B╱ // 0x20c9 @0xf
0x20ba…20e1 at0010 = ╱47╱G╱ // 0x20ca @0x10
0x20ba…20e1 at0011 = ╱41╱A╱ // 0x20cb @0x11
0x20ba…20e1 at0012 = ╱44╱D╱ // 0x20cc @0x12
0x20ba…20e1 at0013 = ╱45╱E╱ // 0x20cd @0x13
0x20ba…20e1 at0014 = ╱ef╱$╱ // 0x20ce @0x14
0x20ba…20e1 at0015 = ╱ed╱(╱ // 0x20cf @0x15
0x20ba…20e1 at0016 = ╱31╱1╱ // 0x20d0 @0x16
0x20ba…20e1 at0017 = ╱34╱4╱ // 0x20d1 @0x17
0x20ba…20e1 at0018 = ╱fe0000e004╱ // 0x20d2 @0x18
0x20ba…20e1 at001d = ╱f0╱:╱ // 0x20d7 @0x1d
0x20ba…20e1 at001e = ╱31╱1╱ // 0x20d8 @0x1e
0x20ba…20e1 at001f = ╱32╱2╱ // 0x20d9 @0x1f
0x20ba…20e1 at0020 = ╱fe0000c004╱ // 0x20da @0x20
0x20ba…20e1 at0025 = ╱ee╱)╱ // 0x20df @0x25
0x20ba…20e1 at0026 = EOL // 0x20e0 @0x26
0x20ba…20e1 }
0x20e1…20fa ae51 3140 EXEC FEJL(V,10,K6$)
0x20e1…20fa LineComalBin {
0x20e1…20fa ptr = 0xae51 // 0x20e1 @0x0
0x20e1…20fa lno = 0x0c44 // 0x20e3 @0x2
0x20e1…20fa at0004 = ╱9d╱ EXEC ╱ // 0x20e5 @0x4
0x20e1…20fa at0005 = ╱46╱F╱ // 0x20e6 @0x5
0x20e1…20fa at0006 = ╱45╱E╱ // 0x20e7 @0x6
0x20e1…20fa at0007 = ╱4a╱J╱ // 0x20e8 @0x7
0x20e1…20fa at0008 = ╱4c╱L╱ // 0x20e9 @0x8
0x20e1…20fa at0009 = ╱ed╱(╱ // 0x20ea @0x9
0x20e1…20fa at000a = ╱56╱V╱ // 0x20eb @0xa
0x20e1…20fa at000b = ╱ec╱,╱ // 0x20ec @0xb
0x20e1…20fa at000c = ╱31╱1╱ // 0x20ed @0xc
0x20e1…20fa at000d = ╱30╱0╱ // 0x20ee @0xd
0x20e1…20fa at000e = ╱fe0000a004╱ // 0x20ef @0xe
0x20e1…20fa at0013 = ╱ec╱,╱ // 0x20f4 @0x13
0x20e1…20fa at0014 = ╱4b╱K╱ // 0x20f5 @0x14
0x20e1…20fa at0015 = ╱36╱6╱ // 0x20f6 @0x15
0x20e1…20fa at0016 = ╱ef╱$╱ // 0x20f7 @0x16
0x20e1…20fa at0017 = ╱ee╱)╱ // 0x20f8 @0x17
0x20e1…20fa at0018 = EOL // 0x20f9 @0x18
0x20e1…20fa }
0x20fa…2120 ae77 3150 GET K6$,I+4:DPOSTNR,DEBBY$(E:W)
0x20fa…2120 LineComalBin {
0x20fa…2120 ptr = 0xae77 // 0x20fa @0x0
0x20fa…2120 lno = 0x0c4e // 0x20fc @0x2
0x20fa…2120 at0004 = ╱a9╱ GET ╱ // 0x20fe @0x4
0x20fa…2120 at0005 = ╱4b╱K╱ // 0x20ff @0x5
0x20fa…2120 at0006 = ╱36╱6╱ // 0x2100 @0x6
0x20fa…2120 at0007 = ╱ef╱$╱ // 0x2101 @0x7
0x20fa…2120 at0008 = ╱ec╱,╱ // 0x2102 @0x8
0x20fa…2120 at0009 = ╱49╱I╱ // 0x2103 @0x9
0x20fa…2120 at000a = ╱e2╱+╱ // 0x2104 @0xa
0x20fa…2120 at000b = ╱34╱4╱ // 0x2105 @0xb
0x20fa…2120 at000c = ╱fe00008003╱ // 0x2106 @0xc
0x20fa…2120 at0011 = ╱f0╱:╱ // 0x210b @0x11
0x20fa…2120 at0012 = ╱44╱D╱ // 0x210c @0x12
0x20fa…2120 at0013 = ╱50╱P╱ // 0x210d @0x13
0x20fa…2120 at0014 = ╱4f╱O╱ // 0x210e @0x14
0x20fa…2120 at0015 = ╱53╱S╱ // 0x210f @0x15
0x20fa…2120 at0016 = ╱54╱T╱ // 0x2110 @0x16
0x20fa…2120 at0017 = ╱4e╱N╱ // 0x2111 @0x17
0x20fa…2120 at0018 = ╱52╱R╱ // 0x2112 @0x18
0x20fa…2120 at0019 = ╱ec╱,╱ // 0x2113 @0x19
0x20fa…2120 at001a = ╱44╱D╱ // 0x2114 @0x1a
0x20fa…2120 at001b = ╱45╱E╱ // 0x2115 @0x1b
0x20fa…2120 at001c = ╱42╱B╱ // 0x2116 @0x1c
0x20fa…2120 at001d = ╱42╱B╱ // 0x2117 @0x1d
0x20fa…2120 at001e = ╱59╱Y╱ // 0x2118 @0x1e
0x20fa…2120 at001f = ╱ef╱$╱ // 0x2119 @0x1f
0x20fa…2120 at0020 = ╱ed╱(╱ // 0x211a @0x20
0x20fa…2120 at0021 = ╱45╱E╱ // 0x211b @0x21
0x20fa…2120 at0022 = ╱f0╱:╱ // 0x211c @0x22
0x20fa…2120 at0023 = ╱57╱W╱ // 0x211d @0x23
0x20fa…2120 at0024 = ╱ee╱)╱ // 0x211e @0x24
0x20fa…2120 at0025 = EOL // 0x211f @0x25
0x20fa…2120 }
0x2120…2139 ae90 3160 EXEC FEJL(V,11,K6$)
0x2120…2139 LineComalBin {
0x2120…2139 ptr = 0xae90 // 0x2120 @0x0
0x2120…2139 lno = 0x0c58 // 0x2122 @0x2
0x2120…2139 at0004 = ╱9d╱ EXEC ╱ // 0x2124 @0x4
0x2120…2139 at0005 = ╱46╱F╱ // 0x2125 @0x5
0x2120…2139 at0006 = ╱45╱E╱ // 0x2126 @0x6
0x2120…2139 at0007 = ╱4a╱J╱ // 0x2127 @0x7
0x2120…2139 at0008 = ╱4c╱L╱ // 0x2128 @0x8
0x2120…2139 at0009 = ╱ed╱(╱ // 0x2129 @0x9
0x2120…2139 at000a = ╱56╱V╱ // 0x212a @0xa
0x2120…2139 at000b = ╱ec╱,╱ // 0x212b @0xb
0x2120…2139 at000c = ╱31╱1╱ // 0x212c @0xc
0x2120…2139 at000d = ╱31╱1╱ // 0x212d @0xd
0x2120…2139 at000e = ╱fe0000b004╱ // 0x212e @0xe
0x2120…2139 at0013 = ╱ec╱,╱ // 0x2133 @0x13
0x2120…2139 at0014 = ╱4b╱K╱ // 0x2134 @0x14
0x2120…2139 at0015 = ╱36╱6╱ // 0x2135 @0x15
0x2120…2139 at0016 = ╱ef╱$╱ // 0x2136 @0x16
0x2120…2139 at0017 = ╱ee╱)╱ // 0x2137 @0x17
0x2120…2139 at0018 = EOL // 0x2138 @0x18
0x2120…2139 }
0x2139…2163 aeba 3170 GET K6$,I+5:DEBBY$(10:11)
0x2139…2163 LineComalBin {
0x2139…2163 ptr = 0xaeba // 0x2139 @0x0
0x2139…2163 lno = 0x0c62 // 0x213b @0x2
0x2139…2163 at0004 = ╱a9╱ GET ╱ // 0x213d @0x4
0x2139…2163 at0005 = ╱4b╱K╱ // 0x213e @0x5
0x2139…2163 at0006 = ╱36╱6╱ // 0x213f @0x6
0x2139…2163 at0007 = ╱ef╱$╱ // 0x2140 @0x7
0x2139…2163 at0008 = ╱ec╱,╱ // 0x2141 @0x8
0x2139…2163 at0009 = ╱49╱I╱ // 0x2142 @0x9
0x2139…2163 at000a = ╱e2╱+╱ // 0x2143 @0xa
0x2139…2163 at000b = ╱35╱5╱ // 0x2144 @0xb
0x2139…2163 at000c = ╱fe0000a003╱ // 0x2145 @0xc
0x2139…2163 at0011 = ╱f0╱:╱ // 0x214a @0x11
0x2139…2163 at0012 = ╱44╱D╱ // 0x214b @0x12
0x2139…2163 at0013 = ╱45╱E╱ // 0x214c @0x13
0x2139…2163 at0014 = ╱42╱B╱ // 0x214d @0x14
0x2139…2163 at0015 = ╱42╱B╱ // 0x214e @0x15
0x2139…2163 at0016 = ╱59╱Y╱ // 0x214f @0x16
0x2139…2163 at0017 = ╱ef╱$╱ // 0x2150 @0x17
0x2139…2163 at0018 = ╱ed╱(╱ // 0x2151 @0x18
0x2139…2163 at0019 = ╱31╱1╱ // 0x2152 @0x19
0x2139…2163 at001a = ╱30╱0╱ // 0x2153 @0x1a
0x2139…2163 at001b = ╱fe0000a004╱ // 0x2154 @0x1b
0x2139…2163 at0020 = ╱f0╱:╱ // 0x2159 @0x20
0x2139…2163 at0021 = ╱31╱1╱ // 0x215a @0x21
0x2139…2163 at0022 = ╱31╱1╱ // 0x215b @0x22
0x2139…2163 at0023 = ╱fe0000b004╱ // 0x215c @0x23
0x2139…2163 at0028 = ╱ee╱)╱ // 0x2161 @0x28
0x2139…2163 at0029 = EOL // 0x2162 @0x29
0x2139…2163 }
0x2163…217c (111,) aed3 3180 EXEC FEJL(V,12,K6$)
0x2163…217c LineComalBin {
0x2163…217c ptr = 0xaed3 // 0x2163 @0x0
0x2163…217c lno = 0x0c6c // 0x2165 @0x2
0x2163…217c at0004 = ╱9d╱ EXEC ╱ // 0x2167 @0x4
0x2163…217c at0005 = ╱46╱F╱ // 0x2168 @0x5
0x2163…217c at0006 = ╱45╱E╱ // 0x2169 @0x6
0x2163…217c at0007 = ╱4a╱J╱ // 0x216a @0x7
0x2163…217c at0008 = ╱4c╱L╱ // 0x216b @0x8
0x2163…217c at0009 = ╱ed╱(╱ // 0x216c @0x9
0x2163…217c at000a = ╱56╱V╱ // 0x216d @0xa
0x2163…217c at000b = ╱ec╱,╱ // 0x216e @0xb
0x2163…217c at000c = ╱31╱1╱ // 0x216f @0xc
0x2163…217c at000d = ╱32╱2╱ // 0x2170 @0xd
0x2163…217c at000e = ╱fe0000c004╱ // 0x2171 @0xe
0x2163…217c at0013 = ╱ec╱,╱ // 0x2176 @0x13
0x2163…217c at0014 = ╱4b╱K╱ // 0x2177 @0x14
0x2163…217c at0015 = ╱36╱6╱ // 0x2178 @0x15
0x2163…217c at0016 = ╱ef╱$╱ // 0x2179 @0x16
0x2163…217c at0017 = ╱ee╱)╱ // 0x217a @0x17
0x2163…217c at0018 = EOL // 0x217b @0x18
0x2163…217c }
0x217c…21a0 aef7 3190 I=I+6;ANPOST=ANPOST-6
0x217c…21a0 LineComalBin {
0x217c…21a0 ptr = 0xaef7 // 0x217c @0x0
0x217c…21a0 lno = 0x0c76 // 0x217e @0x2
0x217c…21a0 at0004 = ╱49╱I╱ // 0x2180 @0x4
0x217c…21a0 at0005 = ╱dc╱=╱ // 0x2181 @0x5
0x217c…21a0 at0006 = ╱49╱I╱ // 0x2182 @0x6
0x217c…21a0 at0007 = ╱e2╱+╱ // 0x2183 @0x7
0x217c…21a0 at0008 = ╱36╱6╱ // 0x2184 @0x8
0x217c…21a0 at0009 = ╱fe0000c003╱ // 0x2185 @0x9
0x217c…21a0 at000e = ╱eb╱;╱ // 0x218a @0xe
0x217c…21a0 at000f = ╱41╱A╱ // 0x218b @0xf
0x217c…21a0 at0010 = ╱4e╱N╱ // 0x218c @0x10
0x217c…21a0 at0011 = ╱50╱P╱ // 0x218d @0x11
0x217c…21a0 at0012 = ╱4f╱O╱ // 0x218e @0x12
0x217c…21a0 at0013 = ╱53╱S╱ // 0x218f @0x13
0x217c…21a0 at0014 = ╱54╱T╱ // 0x2190 @0x14
0x217c…21a0 at0015 = ╱dc╱=╱ // 0x2191 @0x15
0x217c…21a0 at0016 = ╱41╱A╱ // 0x2192 @0x16
0x217c…21a0 at0017 = ╱4e╱N╱ // 0x2193 @0x17
0x217c…21a0 at0018 = ╱50╱P╱ // 0x2194 @0x18
0x217c…21a0 at0019 = ╱4f╱O╱ // 0x2195 @0x19
0x217c…21a0 at001a = ╱53╱S╱ // 0x2196 @0x1a
0x217c…21a0 at001b = ╱54╱T╱ // 0x2197 @0x1b
0x217c…21a0 at001c = ╱e3╱-╱ // 0x2198 @0x1c
0x217c…21a0 at001d = ╱36╱6╱ // 0x2199 @0x1d
0x217c…21a0 at001e = ╱fe0000c003╱ // 0x219a @0x1e
0x217c…21a0 at0023 = EOL // 0x219f @0x23
0x217c…21a0 }
0x21a0…21a6 aefd 3200 ENDIF
0x21a0…21a6 LineComalBin {
0x21a0…21a6 ptr = 0xaefd // 0x21a0 @0x0
0x21a0…21a6 lno = 0x0c80 // 0x21a2 @0x2
0x21a0…21a6 at0004 = ╱9b╱ ENDIF ╱ // 0x21a4 @0x4
0x21a0…21a6 at0005 = EOL // 0x21a5 @0x5
0x21a0…21a6 }
0x21a6…21c2 af19 3210 SIDE=E;LINIE=E;POSTER=B
0x21a6…21c2 LineComalBin {
0x21a6…21c2 ptr = 0xaf19 // 0x21a6 @0x0
0x21a6…21c2 lno = 0x0c8a // 0x21a8 @0x2
0x21a6…21c2 at0004 = ╱53╱S╱ // 0x21aa @0x4
0x21a6…21c2 at0005 = ╱49╱I╱ // 0x21ab @0x5
0x21a6…21c2 at0006 = ╱44╱D╱ // 0x21ac @0x6
0x21a6…21c2 at0007 = ╱45╱E╱ // 0x21ad @0x7
0x21a6…21c2 at0008 = ╱dc╱=╱ // 0x21ae @0x8
0x21a6…21c2 at0009 = ╱45╱E╱ // 0x21af @0x9
0x21a6…21c2 at000a = ╱eb╱;╱ // 0x21b0 @0xa
0x21a6…21c2 at000b = ╱4c╱L╱ // 0x21b1 @0xb
0x21a6…21c2 at000c = ╱49╱I╱ // 0x21b2 @0xc
0x21a6…21c2 at000d = ╱4e╱N╱ // 0x21b3 @0xd
0x21a6…21c2 at000e = ╱49╱I╱ // 0x21b4 @0xe
0x21a6…21c2 at000f = ╱45╱E╱ // 0x21b5 @0xf
0x21a6…21c2 at0010 = ╱dc╱=╱ // 0x21b6 @0x10
0x21a6…21c2 at0011 = ╱45╱E╱ // 0x21b7 @0x11
0x21a6…21c2 at0012 = ╱eb╱;╱ // 0x21b8 @0x12
0x21a6…21c2 at0013 = ╱50╱P╱ // 0x21b9 @0x13
0x21a6…21c2 at0014 = ╱4f╱O╱ // 0x21ba @0x14
0x21a6…21c2 at0015 = ╱53╱S╱ // 0x21bb @0x15
0x21a6…21c2 at0016 = ╱54╱T╱ // 0x21bc @0x16
0x21a6…21c2 at0017 = ╱45╱E╱ // 0x21bd @0x17
0x21a6…21c2 at0018 = ╱52╱R╱ // 0x21be @0x18
0x21a6…21c2 at0019 = ╱dc╱=╱ // 0x21bf @0x19
0x21a6…21c2 at001a = ╱42╱B╱ // 0x21c0 @0x1a
0x21a6…21c2 at001b = EOL // 0x21c1 @0x1b
0x21a6…21c2 }
0x21c2…21c8 af1f 3220 REPEAT
0x21c2…21c8 LineComalBin {
0x21c2…21c8 ptr = 0xaf1f // 0x21c2 @0x0
0x21c2…21c8 lno = 0x0c94 // 0x21c4 @0x2
0x21c2…21c8 at0004 = ╱97╱ REPEAT ╱ // 0x21c6 @0x4
0x21c2…21c8 at0005 = EOL // 0x21c7 @0x5
0x21c2…21c8 }
0x21c8…21de af35 3230 EXEC TOMLINIE(6)
0x21c8…21de LineComalBin {
0x21c8…21de ptr = 0xaf35 // 0x21c8 @0x0
0x21c8…21de lno = 0x0c9e // 0x21ca @0x2
0x21c8…21de at0004 = ╱9d╱ EXEC ╱ // 0x21cc @0x4
0x21c8…21de at0005 = ╱54╱T╱ // 0x21cd @0x5
0x21c8…21de at0006 = ╱4f╱O╱ // 0x21ce @0x6
0x21c8…21de at0007 = ╱4d╱M╱ // 0x21cf @0x7
0x21c8…21de at0008 = ╱4c╱L╱ // 0x21d0 @0x8
0x21c8…21de at0009 = ╱49╱I╱ // 0x21d1 @0x9
0x21c8…21de at000a = ╱4e╱N╱ // 0x21d2 @0xa
0x21c8…21de at000b = ╱49╱I╱ // 0x21d3 @0xb
0x21c8…21de at000c = ╱45╱E╱ // 0x21d4 @0xc
0x21c8…21de at000d = ╱ed╱(╱ // 0x21d5 @0xd
0x21c8…21de at000e = ╱36╱6╱ // 0x21d6 @0xe
0x21c8…21de at000f = ╱fe0000c003╱ // 0x21d7 @0xf
0x21c8…21de at0014 = ╱ee╱)╱ // 0x21dc @0x14
0x21c8…21de at0015 = EOL // 0x21dd @0x15
0x21c8…21de }
0x21de…21f0 af47 3240 IF FAKKRE$="F" THEN
0x21de…21f0 LineComalBin {
0x21de…21f0 ptr = 0xaf47 // 0x21de @0x0
0x21de…21f0 lno = 0x0ca8 // 0x21e0 @0x2
0x21de…21f0 at0004 = ╱9c╱ IF ╱ // 0x21e2 @0x4
0x21de…21f0 at0005 = ╱46╱F╱ // 0x21e3 @0x5
0x21de…21f0 at0006 = ╱41╱A╱ // 0x21e4 @0x6
0x21de…21f0 at0007 = ╱4b╱K╱ // 0x21e5 @0x7
0x21de…21f0 at0008 = ╱4b╱K╱ // 0x21e6 @0x8
0x21de…21f0 at0009 = ╱52╱R╱ // 0x21e7 @0x9
0x21de…21f0 at000a = ╱45╱E╱ // 0x21e8 @0xa
0x21de…21f0 at000b = ╱ef╱$╱ // 0x21e9 @0xb
0x21de…21f0 at000c = ╱dc╱=╱ // 0x21ea @0xc
0x21de…21f0 at000d = ╱22╱"╱ // 0x21eb @0xd
0x21de…21f0 at000e = ╱46╱F╱ // 0x21ec @0xe
0x21de…21f0 at000f = ╱22╱"╱ // 0x21ed @0xf
0x21de…21f0 at0010 = ╱b6╱ THEN ╱ // 0x21ee @0x10
0x21de…21f0 at0011 = EOL // 0x21ef @0x11
0x21de…21f0 }
0x21f0…21f9 af50 3250 PRINT " "
0x21f0…21f9 LineComalBin {
0x21f0…21f9 ptr = 0xaf50 // 0x21f0 @0x0
0x21f0…21f9 lno = 0x0cb2 // 0x21f2 @0x2
0x21f0…21f9 at0004 = ╱92╱ PRINT ╱ // 0x21f4 @0x4
0x21f0…21f9 at0005 = ╱22╱"╱ // 0x21f5 @0x5
0x21f0…21f9 at0006 = ╱20╱…╱ // 0x21f6 @0x6
0x21f0…21f9 at0007 = ╱22╱"╱ // 0x21f7 @0x7
0x21f0…21f9 at0008 = EOL // 0x21f8 @0x8
0x21f0…21f9 }
0x21f9…21ff af56 3260 ELSE
0x21f9…21ff LineComalBin {
0x21f9…21ff ptr = 0xaf56 // 0x21f9 @0x0
0x21f9…21ff lno = 0x0cbc // 0x21fb @0x2
0x21f9…21ff at0004 = ╱9a╱ ELSE ╱ // 0x21fd @0x4
0x21f9…21ff at0005 = EOL // 0x21fe @0x5
0x21f9…21ff }
0x21ff…221c af73 3270 PRINT TAB(49);"Kreditnota"
0x21ff…221c LineComalBin {
0x21ff…221c ptr = 0xaf73 // 0x21ff @0x0
0x21ff…221c lno = 0x0cc6 // 0x2201 @0x2
0x21ff…221c at0004 = ╱92╱ PRINT ╱ // 0x2203 @0x4
0x21ff…221c at0005 = ╱d2╱TAB╱ // 0x2204 @0x5
0x21ff…221c at0006 = ╱ed╱(╱ // 0x2205 @0x6
0x21ff…221c at0007 = ╱34╱4╱ // 0x2206 @0x7
0x21ff…221c at0008 = ╱39╱9╱ // 0x2207 @0x8
0x21ff…221c at0009 = ╱fe0000c406╱ // 0x2208 @0x9
0x21ff…221c at000e = ╱ee╱)╱ // 0x220d @0xe
0x21ff…221c at000f = ╱eb╱;╱ // 0x220e @0xf
0x21ff…221c at0010 = ╱22╱"╱ // 0x220f @0x10
0x21ff…221c at0011 = ╱4b╱K╱ // 0x2210 @0x11
0x21ff…221c at0012 = ╱72╱r╱ // 0x2211 @0x12
0x21ff…221c at0013 = ╱65╱e╱ // 0x2212 @0x13
0x21ff…221c at0014 = ╱64╱d╱ // 0x2213 @0x14
0x21ff…221c at0015 = ╱69╱i╱ // 0x2214 @0x15
0x21ff…221c at0016 = ╱74╱t╱ // 0x2215 @0x16
0x21ff…221c at0017 = ╱6e╱n╱ // 0x2216 @0x17
0x21ff…221c at0018 = ╱6f╱o╱ // 0x2217 @0x18
0x21ff…221c at0019 = ╱74╱t╱ // 0x2218 @0x19
0x21ff…221c at001a = ╱61╱a╱ // 0x2219 @0x1a
0x21ff…221c at001b = ╱22╱"╱ // 0x221a @0x1b
0x21ff…221c at001c = EOL // 0x221b @0x1c
0x21ff…221c }
0x221c…2222 af79 3280 ENDIF
0x221c…2222 LineComalBin {
0x221c…2222 ptr = 0xaf79 // 0x221c @0x0
0x221c…2222 lno = 0x0cd0 // 0x221e @0x2
0x221c…2222 at0004 = ╱9b╱ ENDIF ╱ // 0x2220 @0x4
0x221c…2222 at0005 = EOL // 0x2221 @0x5
0x221c…2222 }
0x2222…2233 af8a 3290 PRINT TAB(66);
0x2222…2233 LineComalBin {
0x2222…2233 ptr = 0xaf8a // 0x2222 @0x0
0x2222…2233 lno = 0x0cda // 0x2224 @0x2
0x2222…2233 at0004 = ╱92╱ PRINT ╱ // 0x2226 @0x4
0x2222…2233 at0005 = ╱d2╱TAB╱ // 0x2227 @0x5
0x2222…2233 at0006 = ╱ed╱(╱ // 0x2228 @0x6
0x2222…2233 at0007 = ╱36╱6╱ // 0x2229 @0x7
0x2222…2233 at0008 = ╱36╱6╱ // 0x222a @0x8
0x2222…2233 at0009 = ╱fe00008407╱ // 0x222b @0x9
0x2222…2233 at000e = ╱ee╱)╱ // 0x2230 @0xe
0x2222…2233 at000f = ╱eb╱;╱ // 0x2231 @0xf
0x2222…2233 at0010 = EOL // 0x2232 @0x10
0x2222…2233 }
0x2233…2245 af9c 3300 IF FAKKRE$="F" THEN
0x2233…2245 LineComalBin {
0x2233…2245 ptr = 0xaf9c // 0x2233 @0x0
0x2233…2245 lno = 0x0ce4 // 0x2235 @0x2
0x2233…2245 at0004 = ╱9c╱ IF ╱ // 0x2237 @0x4
0x2233…2245 at0005 = ╱46╱F╱ // 0x2238 @0x5
0x2233…2245 at0006 = ╱41╱A╱ // 0x2239 @0x6
0x2233…2245 at0007 = ╱4b╱K╱ // 0x223a @0x7
0x2233…2245 at0008 = ╱4b╱K╱ // 0x223b @0x8
0x2233…2245 at0009 = ╱52╱R╱ // 0x223c @0x9
0x2233…2245 at000a = ╱45╱E╱ // 0x223d @0xa
0x2233…2245 at000b = ╱ef╱$╱ // 0x223e @0xb
0x2233…2245 at000c = ╱dc╱=╱ // 0x223f @0xc
0x2233…2245 at000d = ╱22╱"╱ // 0x2240 @0xd
0x2233…2245 at000e = ╱46╱F╱ // 0x2241 @0xe
0x2233…2245 at000f = ╱22╱"╱ // 0x2242 @0xf
0x2233…2245 at0010 = ╱b6╱ THEN ╱ // 0x2243 @0x10
0x2233…2245 at0011 = EOL // 0x2244 @0x11
0x2233…2245 }
0x2245…225c afb3 3310 PRINT USING "#######":FAKTNR
0x2245…225c LineComalBin {
0x2245…225c ptr = 0xafb3 // 0x2245 @0x0
0x2245…225c lno = 0x0cee // 0x2247 @0x2
0x2245…225c at0004 = ╱92╱ PRINT ╱ // 0x2249 @0x4
0x2245…225c at0005 = ╱b9╱ USING ╱ // 0x224a @0x5
0x2245…225c at0006 = ╱22╱"╱ // 0x224b @0x6
0x2245…225c at0007 = ╱23╱#╱ // 0x224c @0x7
0x2245…225c at0008 = ╱23╱#╱ // 0x224d @0x8
0x2245…225c at0009 = ╱23╱#╱ // 0x224e @0x9
0x2245…225c at000a = ╱23╱#╱ // 0x224f @0xa
0x2245…225c at000b = ╱23╱#╱ // 0x2250 @0xb
0x2245…225c at000c = ╱23╱#╱ // 0x2251 @0xc
0x2245…225c at000d = ╱23╱#╱ // 0x2252 @0xd
0x2245…225c at000e = ╱22╱"╱ // 0x2253 @0xe
0x2245…225c at000f = ╱f0╱:╱ // 0x2254 @0xf
0x2245…225c at0010 = ╱46╱F╱ // 0x2255 @0x10
0x2245…225c at0011 = ╱41╱A╱ // 0x2256 @0x11
0x2245…225c at0012 = ╱4b╱K╱ // 0x2257 @0x12
0x2245…225c at0013 = ╱54╱T╱ // 0x2258 @0x13
0x2245…225c at0014 = ╱4e╱N╱ // 0x2259 @0x14
0x2245…225c at0015 = ╱52╱R╱ // 0x225a @0x15
0x2245…225c at0016 = EOL // 0x225b @0x16
0x2245…225c }
0x225c…2262 afb9 3320 ELSE
0x225c…2262 LineComalBin {
0x225c…2262 ptr = 0xafb9 // 0x225c @0x0
0x225c…2262 lno = 0x0cf8 // 0x225e @0x2
0x225c…2262 at0004 = ╱9a╱ ELSE ╱ // 0x2260 @0x4
0x225c…2262 at0005 = EOL // 0x2261 @0x5
0x225c…2262 }
0x2262…2279 afd0 3330 PRINT USING "#######":KREDNR
0x2262…2279 LineComalBin {
0x2262…2279 ptr = 0xafd0 // 0x2262 @0x0
0x2262…2279 lno = 0x0d02 // 0x2264 @0x2
0x2262…2279 at0004 = ╱92╱ PRINT ╱ // 0x2266 @0x4
0x2262…2279 at0005 = ╱b9╱ USING ╱ // 0x2267 @0x5
0x2262…2279 at0006 = ╱22╱"╱ // 0x2268 @0x6
0x2262…2279 at0007 = ╱23╱#╱ // 0x2269 @0x7
0x2262…2279 at0008 = ╱23╱#╱ // 0x226a @0x8
0x2262…2279 at0009 = ╱23╱#╱ // 0x226b @0x9
0x2262…2279 at000a = ╱23╱#╱ // 0x226c @0xa
0x2262…2279 at000b = ╱23╱#╱ // 0x226d @0xb
0x2262…2279 at000c = ╱23╱#╱ // 0x226e @0xc
0x2262…2279 at000d = ╱23╱#╱ // 0x226f @0xd
0x2262…2279 at000e = ╱22╱"╱ // 0x2270 @0xe
0x2262…2279 at000f = ╱f0╱:╱ // 0x2271 @0xf
0x2262…2279 at0010 = ╱4b╱K╱ // 0x2272 @0x10
0x2262…2279 at0011 = ╱52╱R╱ // 0x2273 @0x11
0x2262…2279 at0012 = ╱45╱E╱ // 0x2274 @0x12
0x2262…2279 at0013 = ╱44╱D╱ // 0x2275 @0x13
0x2262…2279 at0014 = ╱4e╱N╱ // 0x2276 @0x14
0x2262…2279 at0015 = ╱52╱R╱ // 0x2277 @0x15
0x2262…2279 at0016 = EOL // 0x2278 @0x16
0x2262…2279 }
0x2279…227f afd6 3340 ENDIF
0x2279…227f LineComalBin {
0x2279…227f ptr = 0xafd6 // 0x2279 @0x0
0x2279…227f lno = 0x0d0c // 0x227b @0x2
0x2279…227f at0004 = ╱9b╱ ENDIF ╱ // 0x227d @0x4
0x2279…227f at0005 = EOL // 0x227e @0x5
0x2279…227f }
0x227f…2292 afe9 3350 PRINT TAB(W);DEBNAVN$
0x227f…2292 LineComalBin {
0x227f…2292 ptr = 0xafe9 // 0x227f @0x0
0x227f…2292 lno = 0x0d16 // 0x2281 @0x2
0x227f…2292 at0004 = ╱92╱ PRINT ╱ // 0x2283 @0x4
0x227f…2292 at0005 = ╱d2╱TAB╱ // 0x2284 @0x5
0x227f…2292 at0006 = ╱ed╱(╱ // 0x2285 @0x6
0x227f…2292 at0007 = ╱57╱W╱ // 0x2286 @0x7
0x227f…2292 at0008 = ╱ee╱)╱ // 0x2287 @0x8
0x227f…2292 at0009 = ╱eb╱;╱ // 0x2288 @0x9
0x227f…2292 at000a = ╱44╱D╱ // 0x2289 @0xa
0x227f…2292 at000b = ╱45╱E╱ // 0x228a @0xb
0x227f…2292 at000c = ╱42╱B╱ // 0x228b @0xc
0x227f…2292 at000d = ╱4e╱N╱ // 0x228c @0xd
0x227f…2292 at000e = ╱41╱A╱ // 0x228d @0xe
0x227f…2292 at000f = ╱56╱V╱ // 0x228e @0xf
0x227f…2292 at0010 = ╱4e╱N╱ // 0x228f @0x10
0x227f…2292 at0011 = ╱ef╱$╱ // 0x2290 @0x11
0x227f…2292 at0012 = EOL // 0x2291 @0x12
0x227f…2292 }
0x2292…22b1 b008 3360 PRINT TAB(W);DEBGADE$;TAB(66);
0x2292…22b1 LineComalBin {
0x2292…22b1 ptr = 0xb008 // 0x2292 @0x0
0x2292…22b1 lno = 0x0d20 // 0x2294 @0x2
0x2292…22b1 at0004 = ╱92╱ PRINT ╱ // 0x2296 @0x4
0x2292…22b1 at0005 = ╱d2╱TAB╱ // 0x2297 @0x5
0x2292…22b1 at0006 = ╱ed╱(╱ // 0x2298 @0x6
0x2292…22b1 at0007 = ╱57╱W╱ // 0x2299 @0x7
0x2292…22b1 at0008 = ╱ee╱)╱ // 0x229a @0x8
0x2292…22b1 at0009 = ╱eb╱;╱ // 0x229b @0x9
0x2292…22b1 at000a = ╱44╱D╱ // 0x229c @0xa
0x2292…22b1 at000b = ╱45╱E╱ // 0x229d @0xb
0x2292…22b1 at000c = ╱42╱B╱ // 0x229e @0xc
0x2292…22b1 at000d = ╱47╱G╱ // 0x229f @0xd
0x2292…22b1 at000e = ╱41╱A╱ // 0x22a0 @0xe
0x2292…22b1 at000f = ╱44╱D╱ // 0x22a1 @0xf
0x2292…22b1 at0010 = ╱45╱E╱ // 0x22a2 @0x10
0x2292…22b1 at0011 = ╱ef╱$╱ // 0x22a3 @0x11
0x2292…22b1 at0012 = ╱eb╱;╱ // 0x22a4 @0x12
0x2292…22b1 at0013 = ╱d2╱TAB╱ // 0x22a5 @0x13
0x2292…22b1 at0014 = ╱ed╱(╱ // 0x22a6 @0x14
0x2292…22b1 at0015 = ╱36╱6╱ // 0x22a7 @0x15
0x2292…22b1 at0016 = ╱36╱6╱ // 0x22a8 @0x16
0x2292…22b1 at0017 = ╱fe00008407╱ // 0x22a9 @0x17
0x2292…22b1 at001c = ╱ee╱)╱ // 0x22ae @0x1c
0x2292…22b1 at001d = ╱eb╱;╱ // 0x22af @0x1d
0x2292…22b1 at001e = EOL // 0x22b0 @0x1e
0x2292…22b1 }
0x22b1…22c9 b020 3370 PRINT USING "#######":KUNDENR
0x22b1…22c9 LineComalBin {
0x22b1…22c9 ptr = 0xb020 // 0x22b1 @0x0
0x22b1…22c9 lno = 0x0d2a // 0x22b3 @0x2
0x22b1…22c9 at0004 = ╱92╱ PRINT ╱ // 0x22b5 @0x4
0x22b1…22c9 at0005 = ╱b9╱ USING ╱ // 0x22b6 @0x5
0x22b1…22c9 at0006 = ╱22╱"╱ // 0x22b7 @0x6
0x22b1…22c9 at0007 = ╱23╱#╱ // 0x22b8 @0x7
0x22b1…22c9 at0008 = ╱23╱#╱ // 0x22b9 @0x8
0x22b1…22c9 at0009 = ╱23╱#╱ // 0x22ba @0x9
0x22b1…22c9 at000a = ╱23╱#╱ // 0x22bb @0xa
0x22b1…22c9 at000b = ╱23╱#╱ // 0x22bc @0xb
0x22b1…22c9 at000c = ╱23╱#╱ // 0x22bd @0xc
0x22b1…22c9 at000d = ╱23╱#╱ // 0x22be @0xd
0x22b1…22c9 at000e = ╱22╱"╱ // 0x22bf @0xe
0x22b1…22c9 at000f = ╱f0╱:╱ // 0x22c0 @0xf
0x22b1…22c9 at0010 = ╱4b╱K╱ // 0x22c1 @0x10
0x22b1…22c9 at0011 = ╱55╱U╱ // 0x22c2 @0x11
0x22b1…22c9 at0012 = ╱4e╱N╱ // 0x22c3 @0x12
0x22b1…22c9 at0013 = ╱44╱D╱ // 0x22c4 @0x13
0x22b1…22c9 at0014 = ╱45╱E╱ // 0x22c5 @0x14
0x22b1…22c9 at0015 = ╱4e╱N╱ // 0x22c6 @0x15
0x22b1…22c9 at0016 = ╱52╱R╱ // 0x22c7 @0x16
0x22b1…22c9 at0017 = EOL // 0x22c8 @0x17
0x22b1…22c9 }
0x22c9…22d9 b030 3380 PRINT TAB(6);
0x22c9…22d9 LineComalBin {
0x22c9…22d9 ptr = 0xb030 // 0x22c9 @0x0
0x22c9…22d9 lno = 0x0d34 // 0x22cb @0x2
0x22c9…22d9 at0004 = ╱92╱ PRINT ╱ // 0x22cd @0x4
0x22c9…22d9 at0005 = ╱d2╱TAB╱ // 0x22ce @0x5
0x22c9…22d9 at0006 = ╱ed╱(╱ // 0x22cf @0x6
0x22c9…22d9 at0007 = ╱36╱6╱ // 0x22d0 @0x7
0x22c9…22d9 at0008 = ╱fe0000c003╱ // 0x22d1 @0x8
0x22c9…22d9 at000d = ╱ee╱)╱ // 0x22d6 @0xd
0x22c9…22d9 at000e = ╱eb╱;╱ // 0x22d7 @0xe
0x22c9…22d9 at000f = EOL // 0x22d8 @0xf
0x22c9…22d9 }
0x22d9…22f2 b049 3390 PRINT USING "#######":DPOSTNR;
0x22d9…22f2 LineComalBin {
0x22d9…22f2 ptr = 0xb049 // 0x22d9 @0x0
0x22d9…22f2 lno = 0x0d3e // 0x22db @0x2
0x22d9…22f2 at0004 = ╱92╱ PRINT ╱ // 0x22dd @0x4
0x22d9…22f2 at0005 = ╱b9╱ USING ╱ // 0x22de @0x5
0x22d9…22f2 at0006 = ╱22╱"╱ // 0x22df @0x6
0x22d9…22f2 at0007 = ╱23╱#╱ // 0x22e0 @0x7
0x22d9…22f2 at0008 = ╱23╱#╱ // 0x22e1 @0x8
0x22d9…22f2 at0009 = ╱23╱#╱ // 0x22e2 @0x9
0x22d9…22f2 at000a = ╱23╱#╱ // 0x22e3 @0xa
0x22d9…22f2 at000b = ╱23╱#╱ // 0x22e4 @0xb
0x22d9…22f2 at000c = ╱23╱#╱ // 0x22e5 @0xc
0x22d9…22f2 at000d = ╱23╱#╱ // 0x22e6 @0xd
0x22d9…22f2 at000e = ╱22╱"╱ // 0x22e7 @0xe
0x22d9…22f2 at000f = ╱f0╱:╱ // 0x22e8 @0xf
0x22d9…22f2 at0010 = ╱44╱D╱ // 0x22e9 @0x10
0x22d9…22f2 at0011 = ╱50╱P╱ // 0x22ea @0x11
0x22d9…22f2 at0012 = ╱4f╱O╱ // 0x22eb @0x12
0x22d9…22f2 at0013 = ╱53╱S╱ // 0x22ec @0x13
0x22d9…22f2 at0014 = ╱54╱T╱ // 0x22ed @0x14
0x22d9…22f2 at0015 = ╱4e╱N╱ // 0x22ee @0x15
0x22d9…22f2 at0016 = ╱52╱R╱ // 0x22ef @0x16
0x22d9…22f2 at0017 = ╱eb╱;╱ // 0x22f0 @0x17
0x22d9…22f2 at0018 = EOL // 0x22f1 @0x18
0x22d9…22f2 }
0x22f2…2309 b060 3400 PRINT TAB(14);DEBBY$
0x22f2…2309 LineComalBin {
0x22f2…2309 ptr = 0xb060 // 0x22f2 @0x0
0x22f2…2309 lno = 0x0d48 // 0x22f4 @0x2
0x22f2…2309 at0004 = ╱92╱ PRINT ╱ // 0x22f6 @0x4
0x22f2…2309 at0005 = ╱d2╱TAB╱ // 0x22f7 @0x5
0x22f2…2309 at0006 = ╱ed╱(╱ // 0x22f8 @0x6
0x22f2…2309 at0007 = ╱31╱1╱ // 0x22f9 @0x7
0x22f2…2309 at0008 = ╱34╱4╱ // 0x22fa @0x8
0x22f2…2309 at0009 = ╱fe0000e004╱ // 0x22fb @0x9
0x22f2…2309 at000e = ╱ee╱)╱ // 0x2300 @0xe
0x22f2…2309 at000f = ╱eb╱;╱ // 0x2301 @0xf
0x22f2…2309 at0010 = ╱44╱D╱ // 0x2302 @0x10
0x22f2…2309 at0011 = ╱45╱E╱ // 0x2303 @0x11
0x22f2…2309 at0012 = ╱42╱B╱ // 0x2304 @0x12
0x22f2…2309 at0013 = ╱42╱B╱ // 0x2305 @0x13
0x22f2…2309 at0014 = ╱59╱Y╱ // 0x2306 @0x14
0x22f2…2309 at0015 = ╱ef╱$╱ // 0x2307 @0x15
0x22f2…2309 at0016 = EOL // 0x2308 @0x16
0x22f2…2309 }
0x2309…231d b074 3410 EXEC DATOUD(ORDRED)
0x2309…231d LineComalBin {
0x2309…231d ptr = 0xb074 // 0x2309 @0x0
0x2309…231d lno = 0x0d52 // 0x230b @0x2
0x2309…231d at0004 = ╱9d╱ EXEC ╱ // 0x230d @0x4
0x2309…231d at0005 = ╱44╱D╱ // 0x230e @0x5
0x2309…231d at0006 = ╱41╱A╱ // 0x230f @0x6
0x2309…231d at0007 = ╱54╱T╱ // 0x2310 @0x7
0x2309…231d at0008 = ╱4f╱O╱ // 0x2311 @0x8
0x2309…231d at0009 = ╱55╱U╱ // 0x2312 @0x9
0x2309…231d at000a = ╱44╱D╱ // 0x2313 @0xa
0x2309…231d at000b = ╱ed╱(╱ // 0x2314 @0xb
0x2309…231d at000c = ╱4f╱O╱ // 0x2315 @0xc
0x2309…231d at000d = ╱52╱R╱ // 0x2316 @0xd
0x2309…231d at000e = ╱44╱D╱ // 0x2317 @0xe
0x2309…231d at000f = ╱52╱R╱ // 0x2318 @0xf
0x2309…231d at0010 = ╱45╱E╱ // 0x2319 @0x10
0x2309…231d at0011 = ╱44╱D╱ // 0x231a @0x11
0x2309…231d at0012 = ╱ee╱)╱ // 0x231b @0x12
0x2309…231d at0013 = EOL // 0x231c @0x13
0x2309…231d }
0x231d…2326 b07d 3420 PRINT " "
0x231d…2326 LineComalBin {
0x231d…2326 ptr = 0xb07d // 0x231d @0x0
0x231d…2326 lno = 0x0d5c // 0x231f @0x2
0x231d…2326 at0004 = ╱92╱ PRINT ╱ // 0x2321 @0x4
0x231d…2326 at0005 = ╱22╱"╱ // 0x2322 @0x5
0x231d…2326 at0006 = ╱20╱…╱ // 0x2323 @0x6
0x231d…2326 at0007 = ╱22╱"╱ // 0x2324 @0x7
0x231d…2326 at0008 = EOL // 0x2325 @0x8
0x231d…2326 }
0x2326…2337 b08e 3430 PRINT TAB(66);
0x2326…2337 LineComalBin {
0x2326…2337 ptr = 0xb08e // 0x2326 @0x0
0x2326…2337 lno = 0x0d66 // 0x2328 @0x2
0x2326…2337 at0004 = ╱92╱ PRINT ╱ // 0x232a @0x4
0x2326…2337 at0005 = ╱d2╱TAB╱ // 0x232b @0x5
0x2326…2337 at0006 = ╱ed╱(╱ // 0x232c @0x6
0x2326…2337 at0007 = ╱36╱6╱ // 0x232d @0x7
0x2326…2337 at0008 = ╱36╱6╱ // 0x232e @0x8
0x2326…2337 at0009 = ╱fe00008407╱ // 0x232f @0x9
0x2326…2337 at000e = ╱ee╱)╱ // 0x2334 @0xe
0x2326…2337 at000f = ╱eb╱;╱ // 0x2335 @0xf
0x2326…2337 at0010 = EOL // 0x2336 @0x10
0x2326…2337 }
0x2337…234f b0a6 3440 PRINT USING "#######":ORDRENR
0x2337…234f LineComalBin {
0x2337…234f ptr = 0xb0a6 // 0x2337 @0x0
0x2337…234f lno = 0x0d70 // 0x2339 @0x2
0x2337…234f at0004 = ╱92╱ PRINT ╱ // 0x233b @0x4
0x2337…234f at0005 = ╱b9╱ USING ╱ // 0x233c @0x5
0x2337…234f at0006 = ╱22╱"╱ // 0x233d @0x6
0x2337…234f at0007 = ╱23╱#╱ // 0x233e @0x7
0x2337…234f at0008 = ╱23╱#╱ // 0x233f @0x8
0x2337…234f at0009 = ╱23╱#╱ // 0x2340 @0x9
0x2337…234f at000a = ╱23╱#╱ // 0x2341 @0xa
0x2337…234f at000b = ╱23╱#╱ // 0x2342 @0xb
0x2337…234f at000c = ╱23╱#╱ // 0x2343 @0xc
0x2337…234f at000d = ╱23╱#╱ // 0x2344 @0xd
0x2337…234f at000e = ╱22╱"╱ // 0x2345 @0xe
0x2337…234f at000f = ╱f0╱:╱ // 0x2346 @0xf
0x2337…234f at0010 = ╱4f╱O╱ // 0x2347 @0x10
0x2337…234f at0011 = ╱52╱R╱ // 0x2348 @0x11
0x2337…234f at0012 = ╱44╱D╱ // 0x2349 @0x12
0x2337…234f at0013 = ╱52╱R╱ // 0x234a @0x13
0x2337…234f at0014 = ╱45╱E╱ // 0x234b @0x14
0x2337…234f at0015 = ╱4e╱N╱ // 0x234c @0x15
0x2337…234f at0016 = ╱52╱R╱ // 0x234d @0x16
0x2337…234f at0017 = EOL // 0x234e @0x17
0x2337…234f }
0x234f…2358 b0af 3450 PRINT " "
0x234f…2358 LineComalBin {
0x234f…2358 ptr = 0xb0af // 0x234f @0x0
0x234f…2358 lno = 0x0d7a // 0x2351 @0x2
0x234f…2358 at0004 = ╱92╱ PRINT ╱ // 0x2353 @0x4
0x234f…2358 at0005 = ╱22╱"╱ // 0x2354 @0x5
0x234f…2358 at0006 = ╱20╱…╱ // 0x2355 @0x6
0x234f…2358 at0007 = ╱22╱"╱ // 0x2356 @0x7
0x234f…2358 at0008 = EOL // 0x2357 @0x8
0x234f…2358 }
0x2358…236b b0c2 3460 EXEC DATOUD(FDATO)
0x2358…236b LineComalBin {
0x2358…236b ptr = 0xb0c2 // 0x2358 @0x0
0x2358…236b lno = 0x0d84 // 0x235a @0x2
0x2358…236b at0004 = ╱9d╱ EXEC ╱ // 0x235c @0x4
0x2358…236b at0005 = ╱44╱D╱ // 0x235d @0x5
0x2358…236b at0006 = ╱41╱A╱ // 0x235e @0x6
0x2358…236b at0007 = ╱54╱T╱ // 0x235f @0x7
0x2358…236b at0008 = ╱4f╱O╱ // 0x2360 @0x8
0x2358…236b at0009 = ╱55╱U╱ // 0x2361 @0x9
0x2358…236b at000a = ╱44╱D╱ // 0x2362 @0xa
0x2358…236b at000b = ╱ed╱(╱ // 0x2363 @0xb
0x2358…236b at000c = ╱46╱F╱ // 0x2364 @0xc
0x2358…236b at000d = ╱44╱D╱ // 0x2365 @0xd
0x2358…236b at000e = ╱41╱A╱ // 0x2366 @0xe
0x2358…236b at000f = ╱54╱T╱ // 0x2367 @0xf
0x2358…236b at0010 = ╱4f╱O╱ // 0x2368 @0x10
0x2358…236b at0011 = ╱ee╱)╱ // 0x2369 @0x11
0x2358…236b at0012 = EOL // 0x236a @0x12
0x2358…236b }
0x236b…2374 b0cb 3470 PRINT " "
0x236b…2374 LineComalBin {
0x236b…2374 ptr = 0xb0cb // 0x236b @0x0
0x236b…2374 lno = 0x0d8e // 0x236d @0x2
0x236b…2374 at0004 = ╱92╱ PRINT ╱ // 0x236f @0x4
0x236b…2374 at0005 = ╱22╱"╱ // 0x2370 @0x5
0x236b…2374 at0006 = ╱20╱…╱ // 0x2371 @0x6
0x236b…2374 at0007 = ╱22╱"╱ // 0x2372 @0x7
0x236b…2374 at0008 = EOL // 0x2373 @0x8
0x236b…2374 }
0x2374…238a b0e1 3480 IF KOD$>"H" AND SIDE=E THEN
0x2374…238a LineComalBin {
0x2374…238a ptr = 0xb0e1 // 0x2374 @0x0
0x2374…238a lno = 0x0d98 // 0x2376 @0x2
0x2374…238a at0004 = ╱9c╱ IF ╱ // 0x2378 @0x4
0x2374…238a at0005 = ╱4b╱K╱ // 0x2379 @0x5
0x2374…238a at0006 = ╱4f╱O╱ // 0x237a @0x6
0x2374…238a at0007 = ╱44╱D╱ // 0x237b @0x7
0x2374…238a at0008 = ╱ef╱$╱ // 0x237c @0x8
0x2374…238a at0009 = ╱de╱>╱ // 0x237d @0x9
0x2374…238a at000a = ╱22╱"╱ // 0x237e @0xa
0x2374…238a at000b = ╱48╱H╱ // 0x237f @0xb
0x2374…238a at000c = ╱22╱"╱ // 0x2380 @0xc
0x2374…238a at000d = ╱da╱ AND ╱ // 0x2381 @0xd
0x2374…238a at000e = ╱53╱S╱ // 0x2382 @0xe
0x2374…238a at000f = ╱49╱I╱ // 0x2383 @0xf
0x2374…238a at0010 = ╱44╱D╱ // 0x2384 @0x10
0x2374…238a at0011 = ╱45╱E╱ // 0x2385 @0x11
0x2374…238a at0012 = ╱dc╱=╱ // 0x2386 @0x12
0x2374…238a at0013 = ╱45╱E╱ // 0x2387 @0x13
0x2374…238a at0014 = ╱b6╱ THEN ╱ // 0x2388 @0x14
0x2374…238a at0015 = EOL // 0x2389 @0x15
0x2374…238a }
0x238a…23a6 b0fd 3490 KOD$=CHR(ORD(KOD$)-11)
0x238a…23a6 LineComalBin {
0x238a…23a6 ptr = 0xb0fd // 0x238a @0x0
0x238a…23a6 lno = 0x0da2 // 0x238c @0x2
0x238a…23a6 at0004 = ╱4b╱K╱ // 0x238e @0x4
0x238a…23a6 at0005 = ╱4f╱O╱ // 0x238f @0x5
0x238a…23a6 at0006 = ╱44╱D╱ // 0x2390 @0x6
0x238a…23a6 at0007 = ╱ef╱$╱ // 0x2391 @0x7
0x238a…23a6 at0008 = ╱dc╱=╱ // 0x2392 @0x8
0x238a…23a6 at0009 = ╱cf╱CHR╱ // 0x2393 @0x9
0x238a…23a6 at000a = ╱ed╱(╱ // 0x2394 @0xa
0x238a…23a6 at000b = ╱cd╱ORD╱ // 0x2395 @0xb
0x238a…23a6 at000c = ╱ed╱(╱ // 0x2396 @0xc
0x238a…23a6 at000d = ╱4b╱K╱ // 0x2397 @0xd
0x238a…23a6 at000e = ╱4f╱O╱ // 0x2398 @0xe
0x238a…23a6 at000f = ╱44╱D╱ // 0x2399 @0xf
0x238a…23a6 at0010 = ╱ef╱$╱ // 0x239a @0x10
0x238a…23a6 at0011 = ╱ee╱)╱ // 0x239b @0x11
0x238a…23a6 at0012 = ╱e3╱-╱ // 0x239c @0x12
0x238a…23a6 at0013 = ╱31╱1╱ // 0x239d @0x13
0x238a…23a6 at0014 = ╱31╱1╱ // 0x239e @0x14
0x238a…23a6 at0015 = ╱fe0000b004╱ // 0x239f @0x15
0x238a…23a6 at001a = ╱ee╱)╱ // 0x23a4 @0x1a
0x238a…23a6 at001b = EOL // 0x23a5 @0x1b
0x238a…23a6 }
0x23a6…23af b106 3500 PRINT " "
0x23a6…23af LineComalBin {
0x23a6…23af ptr = 0xb106 // 0x23a6 @0x0
0x23a6…23af lno = 0x0dac // 0x23a8 @0x2
0x23a6…23af at0004 = ╱92╱ PRINT ╱ // 0x23aa @0x4
0x23a6…23af at0005 = ╱22╱"╱ // 0x23ab @0x5
0x23a6…23af at0006 = ╱20╱…╱ // 0x23ac @0x6
0x23a6…23af at0007 = ╱22╱"╱ // 0x23ad @0x7
0x23a6…23af at0008 = EOL // 0x23ae @0x8
0x23a6…23af }
0x23af…23b5 b10c 3510 ELSE
0x23af…23b5 LineComalBin {
0x23af…23b5 ptr = 0xb10c // 0x23af @0x0
0x23af…23b5 lno = 0x0db6 // 0x23b1 @0x2
0x23af…23b5 at0004 = ╱9a╱ ELSE ╱ // 0x23b3 @0x4
0x23af…23b5 at0005 = EOL // 0x23b4 @0x5
0x23af…23b5 }
0x23b5…23c2 b119 3520 IF SIDE=E THEN
0x23b5…23c2 LineComalBin {
0x23b5…23c2 ptr = 0xb119 // 0x23b5 @0x0
0x23b5…23c2 lno = 0x0dc0 // 0x23b7 @0x2
0x23b5…23c2 at0004 = ╱9c╱ IF ╱ // 0x23b9 @0x4
0x23b5…23c2 at0005 = ╱53╱S╱ // 0x23ba @0x5
0x23b5…23c2 at0006 = ╱49╱I╱ // 0x23bb @0x6
0x23b5…23c2 at0007 = ╱44╱D╱ // 0x23bc @0x7
0x23b5…23c2 at0008 = ╱45╱E╱ // 0x23bd @0x8
0x23b5…23c2 at0009 = ╱dc╱=╱ // 0x23be @0x9
0x23b5…23c2 at000a = ╱45╱E╱ // 0x23bf @0xa
0x23b5…23c2 at000b = ╱b6╱ THEN ╱ // 0x23c0 @0xb
0x23b5…23c2 at000c = EOL // 0x23c1 @0xc
0x23b5…23c2 }
0x23c2…23e3 b13a 3530 LEVTEKST$=BLANK$+BLANK$+" "
0x23c2…23e3 LineComalBin {
0x23c2…23e3 ptr = 0xb13a // 0x23c2 @0x0
0x23c2…23e3 lno = 0x0dca // 0x23c4 @0x2
0x23c2…23e3 at0004 = ╱4c╱L╱ // 0x23c6 @0x4
0x23c2…23e3 at0005 = ╱45╱E╱ // 0x23c7 @0x5
0x23c2…23e3 at0006 = ╱56╱V╱ // 0x23c8 @0x6
0x23c2…23e3 at0007 = ╱54╱T╱ // 0x23c9 @0x7
0x23c2…23e3 at0008 = ╱45╱E╱ // 0x23ca @0x8
0x23c2…23e3 at0009 = ╱4b╱K╱ // 0x23cb @0x9
0x23c2…23e3 at000a = ╱53╱S╱ // 0x23cc @0xa
0x23c2…23e3 at000b = ╱54╱T╱ // 0x23cd @0xb
0x23c2…23e3 at000c = ╱ef╱$╱ // 0x23ce @0xc
0x23c2…23e3 at000d = ╱dc╱=╱ // 0x23cf @0xd
0x23c2…23e3 at000e = ╱42╱B╱ // 0x23d0 @0xe
0x23c2…23e3 at000f = ╱4c╱L╱ // 0x23d1 @0xf
0x23c2…23e3 at0010 = ╱41╱A╱ // 0x23d2 @0x10
0x23c2…23e3 at0011 = ╱4e╱N╱ // 0x23d3 @0x11
0x23c2…23e3 at0012 = ╱4b╱K╱ // 0x23d4 @0x12
0x23c2…23e3 at0013 = ╱ef╱$╱ // 0x23d5 @0x13
0x23c2…23e3 at0014 = ╱f1╱+╱ // 0x23d6 @0x14
0x23c2…23e3 at0015 = ╱42╱B╱ // 0x23d7 @0x15
0x23c2…23e3 at0016 = ╱4c╱L╱ // 0x23d8 @0x16
0x23c2…23e3 at0017 = ╱41╱A╱ // 0x23d9 @0x17
0x23c2…23e3 at0018 = ╱4e╱N╱ // 0x23da @0x18
0x23c2…23e3 at0019 = ╱4b╱K╱ // 0x23db @0x19
0x23c2…23e3 at001a = ╱ef╱$╱ // 0x23dc @0x1a
0x23c2…23e3 at001b = ╱f1╱+╱ // 0x23dd @0x1b
0x23c2…23e3 at001c = ╱22╱"╱ // 0x23de @0x1c
0x23c2…23e3 at001d = ╱20╱…╱ // 0x23df @0x1d
0x23c2…23e3 at001e = ╱20╱…╱ // 0x23e0 @0x1e
0x23c2…23e3 at001f = ╱22╱"╱ // 0x23e1 @0x1f
0x23c2…23e3 at0020 = EOL // 0x23e2 @0x20
0x23c2…23e3 }
0x23e3…23f0 b147 3540 FOR J=I TO I+V
0x23e3…23f0 LineComalBin {
0x23e3…23f0 ptr = 0xb147 // 0x23e3 @0x0
0x23e3…23f0 lno = 0x0dd4 // 0x23e5 @0x2
0x23e3…23f0 at0004 = ╱83╱ FOR ╱ // 0x23e7 @0x4
0x23e3…23f0 at0005 = ╱4a╱J╱ // 0x23e8 @0x5
0x23e3…23f0 at0006 = ╱dc╱=╱ // 0x23e9 @0x6
0x23e3…23f0 at0007 = ╱49╱I╱ // 0x23ea @0x7
0x23e3…23f0 at0008 = ╱b7╱ TO ╱ // 0x23eb @0x8
0x23e3…23f0 at0009 = ╱49╱I╱ // 0x23ec @0x9
0x23e3…23f0 at000a = ╱e2╱+╱ // 0x23ed @0xa
0x23e3…23f0 at000b = ╱56╱V╱ // 0x23ee @0xb
0x23e3…23f0 at000c = EOL // 0x23ef @0xc
0x23e3…23f0 }
0x23f0…241e b175 3550 GET K6$,J:LEVTEKST$((J-I)*13+E:13)
0x23f0…241e LineComalBin {
0x23f0…241e ptr = 0xb175 // 0x23f0 @0x0
0x23f0…241e lno = 0x0dde // 0x23f2 @0x2
0x23f0…241e at0004 = ╱a9╱ GET ╱ // 0x23f4 @0x4
0x23f0…241e at0005 = ╱4b╱K╱ // 0x23f5 @0x5
0x23f0…241e at0006 = ╱36╱6╱ // 0x23f6 @0x6
0x23f0…241e at0007 = ╱ef╱$╱ // 0x23f7 @0x7
0x23f0…241e at0008 = ╱ec╱,╱ // 0x23f8 @0x8
0x23f0…241e at0009 = ╱4a╱J╱ // 0x23f9 @0x9
0x23f0…241e at000a = ╱f0╱:╱ // 0x23fa @0xa
0x23f0…241e at000b = ╱4c╱L╱ // 0x23fb @0xb
0x23f0…241e at000c = ╱45╱E╱ // 0x23fc @0xc
0x23f0…241e at000d = ╱56╱V╱ // 0x23fd @0xd
0x23f0…241e at000e = ╱54╱T╱ // 0x23fe @0xe
0x23f0…241e at000f = ╱45╱E╱ // 0x23ff @0xf
0x23f0…241e at0010 = ╱4b╱K╱ // 0x2400 @0x10
0x23f0…241e at0011 = ╱53╱S╱ // 0x2401 @0x11
0x23f0…241e at0012 = ╱54╱T╱ // 0x2402 @0x12
0x23f0…241e at0013 = ╱ef╱$╱ // 0x2403 @0x13
0x23f0…241e at0014 = ╱ed╱(╱ // 0x2404 @0x14
0x23f0…241e at0015 = ╱ed╱(╱ // 0x2405 @0x15
0x23f0…241e at0016 = ╱4a╱J╱ // 0x2406 @0x16
0x23f0…241e at0017 = ╱e3╱-╱ // 0x2407 @0x17
0x23f0…241e at0018 = ╱49╱I╱ // 0x2408 @0x18
0x23f0…241e at0019 = ╱ee╱)╱ // 0x2409 @0x19
0x23f0…241e at001a = ╱e4╱*╱ // 0x240a @0x1a
0x23f0…241e at001b = ╱31╱1╱ // 0x240b @0x1b
0x23f0…241e at001c = ╱33╱3╱ // 0x240c @0x1c
0x23f0…241e at001d = ╱fe0000d004╱ // 0x240d @0x1d
0x23f0…241e at0022 = ╱e2╱+╱ // 0x2412 @0x22
0x23f0…241e at0023 = ╱45╱E╱ // 0x2413 @0x23
0x23f0…241e at0024 = ╱f0╱:╱ // 0x2414 @0x24
0x23f0…241e at0025 = ╱31╱1╱ // 0x2415 @0x25
0x23f0…241e at0026 = ╱33╱3╱ // 0x2416 @0x26
0x23f0…241e at0027 = ╱fe0000d004╱ // 0x2417 @0x27
0x23f0…241e at002c = ╱ee╱)╱ // 0x241c @0x2c
0x23f0…241e at002d = EOL // 0x241d @0x2d
0x23f0…241e }
0x241e…2437 b18e 3560 EXEC FEJL(V,13,K6$)
0x241e…2437 LineComalBin {
0x241e…2437 ptr = 0xb18e // 0x241e @0x0
0x241e…2437 lno = 0x0de8 // 0x2420 @0x2
0x241e…2437 at0004 = ╱9d╱ EXEC ╱ // 0x2422 @0x4
0x241e…2437 at0005 = ╱46╱F╱ // 0x2423 @0x5
0x241e…2437 at0006 = ╱45╱E╱ // 0x2424 @0x6
0x241e…2437 at0007 = ╱4a╱J╱ // 0x2425 @0x7
0x241e…2437 at0008 = ╱4c╱L╱ // 0x2426 @0x8
0x241e…2437 at0009 = ╱ed╱(╱ // 0x2427 @0x9
0x241e…2437 at000a = ╱56╱V╱ // 0x2428 @0xa
0x241e…2437 at000b = ╱ec╱,╱ // 0x2429 @0xb
0x241e…2437 at000c = ╱31╱1╱ // 0x242a @0xc
0x241e…2437 at000d = ╱33╱3╱ // 0x242b @0xd
0x241e…2437 at000e = ╱fe0000d004╱ // 0x242c @0xe
0x241e…2437 at0013 = ╱ec╱,╱ // 0x2431 @0x13
0x241e…2437 at0014 = ╱4b╱K╱ // 0x2432 @0x14
0x241e…2437 at0015 = ╱36╱6╱ // 0x2433 @0x15
0x241e…2437 at0016 = ╱ef╱$╱ // 0x2434 @0x16
0x241e…2437 at0017 = ╱ee╱)╱ // 0x2435 @0x17
0x241e…2437 at0018 = EOL // 0x2436 @0x18
0x241e…2437 }
0x2437…243e b195 3570 NEXT J
0x2437…243e LineComalBin {
0x2437…243e ptr = 0xb195 // 0x2437 @0x0
0x2437…243e lno = 0x0df2 // 0x2439 @0x2
0x2437…243e at0004 = ╱84╱ NEXT ╱ // 0x243b @0x4
0x2437…243e at0005 = ╱4a╱J╱ // 0x243c @0x5
0x2437…243e at0006 = EOL // 0x243d @0x6
0x2437…243e }
0x243e…2462 b1b9 3580 ANPOST=ANPOST-4;I=I+4
0x243e…2462 LineComalBin {
0x243e…2462 ptr = 0xb1b9 // 0x243e @0x0
0x243e…2462 lno = 0x0dfc // 0x2440 @0x2
0x243e…2462 at0004 = ╱41╱A╱ // 0x2442 @0x4
0x243e…2462 at0005 = ╱4e╱N╱ // 0x2443 @0x5
0x243e…2462 at0006 = ╱50╱P╱ // 0x2444 @0x6
0x243e…2462 at0007 = ╱4f╱O╱ // 0x2445 @0x7
0x243e…2462 at0008 = ╱53╱S╱ // 0x2446 @0x8
0x243e…2462 at0009 = ╱54╱T╱ // 0x2447 @0x9
0x243e…2462 at000a = ╱dc╱=╱ // 0x2448 @0xa
0x243e…2462 at000b = ╱41╱A╱ // 0x2449 @0xb
0x243e…2462 at000c = ╱4e╱N╱ // 0x244a @0xc
0x243e…2462 at000d = ╱50╱P╱ // 0x244b @0xd
0x243e…2462 at000e = ╱4f╱O╱ // 0x244c @0xe
0x243e…2462 at000f = ╱53╱S╱ // 0x244d @0xf
0x243e…2462 at0010 = ╱54╱T╱ // 0x244e @0x10
0x243e…2462 at0011 = ╱e3╱-╱ // 0x244f @0x11
0x243e…2462 at0012 = ╱34╱4╱ // 0x2450 @0x12
0x243e…2462 at0013 = ╱fe00008003╱ // 0x2451 @0x13
0x243e…2462 at0018 = ╱eb╱;╱ // 0x2456 @0x18
0x243e…2462 at0019 = ╱49╱I╱ // 0x2457 @0x19
0x243e…2462 at001a = ╱dc╱=╱ // 0x2458 @0x1a
0x243e…2462 at001b = ╱49╱I╱ // 0x2459 @0x1b
0x243e…2462 at001c = ╱e2╱+╱ // 0x245a @0x1c
0x243e…2462 at001d = ╱34╱4╱ // 0x245b @0x1d
0x243e…2462 at001e = ╱fe00008003╱ // 0x245c @0x1e
0x243e…2462 at0023 = EOL // 0x2461 @0x23
0x243e…2462 }
0x2462…2468 b1bf 3590 ENDIF
0x2462…2468 LineComalBin {
0x2462…2468 ptr = 0xb1bf // 0x2462 @0x0
0x2462…2468 lno = 0x0e06 // 0x2464 @0x2
0x2462…2468 at0004 = ╱9b╱ ENDIF ╱ // 0x2466 @0x4
0x2462…2468 at0005 = EOL // 0x2467 @0x5
0x2462…2468 }
0x2468…247c b1d3 3600 PRINT TAB(W);LEVTEKST$
0x2468…247c LineComalBin {
0x2468…247c ptr = 0xb1d3 // 0x2468 @0x0
0x2468…247c lno = 0x0e10 // 0x246a @0x2
0x2468…247c at0004 = ╱92╱ PRINT ╱ // 0x246c @0x4
0x2468…247c at0005 = ╱d2╱TAB╱ // 0x246d @0x5
0x2468…247c at0006 = ╱ed╱(╱ // 0x246e @0x6
0x2468…247c at0007 = ╱57╱W╱ // 0x246f @0x7
0x2468…247c at0008 = ╱ee╱)╱ // 0x2470 @0x8
0x2468…247c at0009 = ╱eb╱;╱ // 0x2471 @0x9
0x2468…247c at000a = ╱4c╱L╱ // 0x2472 @0xa
0x2468…247c at000b = ╱45╱E╱ // 0x2473 @0xb
0x2468…247c at000c = ╱56╱V╱ // 0x2474 @0xc
0x2468…247c at000d = ╱54╱T╱ // 0x2475 @0xd
0x2468…247c at000e = ╱45╱E╱ // 0x2476 @0xe
0x2468…247c at000f = ╱4b╱K╱ // 0x2477 @0xf
0x2468…247c at0010 = ╱53╱S╱ // 0x2478 @0x10
0x2468…247c at0011 = ╱54╱T╱ // 0x2479 @0x11
0x2468…247c at0012 = ╱ef╱$╱ // 0x247a @0x12
0x2468…247c at0013 = EOL // 0x247b @0x13
0x2468…247c }
0x247c…2482 b1d9 3610 ENDIF
0x247c…2482 LineComalBin {
0x247c…2482 ptr = 0xb1d9 // 0x247c @0x0
0x247c…2482 lno = 0x0e1a // 0x247e @0x2
0x247c…2482 at0004 = ╱9b╱ ENDIF ╱ // 0x2480 @0x4
0x247c…2482 at0005 = EOL // 0x2481 @0x5
0x247c…2482 }
0x2482…2498 b1ef 3620 EXEC TOMLINIE(2)
0x2482…2498 LineComalBin {
0x2482…2498 ptr = 0xb1ef // 0x2482 @0x0
0x2482…2498 lno = 0x0e24 // 0x2484 @0x2
0x2482…2498 at0004 = ╱9d╱ EXEC ╱ // 0x2486 @0x4
0x2482…2498 at0005 = ╱54╱T╱ // 0x2487 @0x5
0x2482…2498 at0006 = ╱4f╱O╱ // 0x2488 @0x6
0x2482…2498 at0007 = ╱4d╱M╱ // 0x2489 @0x7
0x2482…2498 at0008 = ╱4c╱L╱ // 0x248a @0x8
0x2482…2498 at0009 = ╱49╱I╱ // 0x248b @0x9
0x2482…2498 at000a = ╱4e╱N╱ // 0x248c @0xa
0x2482…2498 at000b = ╱49╱I╱ // 0x248d @0xb
0x2482…2498 at000c = ╱45╱E╱ // 0x248e @0xc
0x2482…2498 at000d = ╱ed╱(╱ // 0x248f @0xd
0x2482…2498 at000e = ╱32╱2╱ // 0x2490 @0xe
0x2482…2498 at000f = ╱fe00008002╱ // 0x2491 @0xf
0x2482…2498 at0014 = ╱ee╱)╱ // 0x2496 @0x14
0x2482…2498 at0015 = EOL // 0x2497 @0x15
0x2482…2498 }
0x2498…24a5 b1fc 3630 IF SIDE=G THEN
0x2498…24a5 LineComalBin {
0x2498…24a5 ptr = 0xb1fc // 0x2498 @0x0
0x2498…24a5 lno = 0x0e2e // 0x249a @0x2
0x2498…24a5 at0004 = ╱9c╱ IF ╱ // 0x249c @0x4
0x2498…24a5 at0005 = ╱53╱S╱ // 0x249d @0x5
0x2498…24a5 at0006 = ╱49╱I╱ // 0x249e @0x6
0x2498…24a5 at0007 = ╱44╱D╱ // 0x249f @0x7
0x2498…24a5 at0008 = ╱45╱E╱ // 0x24a0 @0x8
0x2498…24a5 at0009 = ╱dc╱=╱ // 0x24a1 @0x9
0x2498…24a5 at000a = ╱47╱G╱ // 0x24a2 @0xa
0x2498…24a5 at000b = ╱b6╱ THEN ╱ // 0x24a3 @0xb
0x2498…24a5 at000c = EOL // 0x24a4 @0xc
0x2498…24a5 }
0x24a5…24cc b223 3640 PRINT TAB(24);"Subtotal";TAB(66);
0x24a5…24cc LineComalBin {
0x24a5…24cc ptr = 0xb223 // 0x24a5 @0x0
0x24a5…24cc lno = 0x0e38 // 0x24a7 @0x2
0x24a5…24cc at0004 = ╱92╱ PRINT ╱ // 0x24a9 @0x4
0x24a5…24cc at0005 = ╱d2╱TAB╱ // 0x24aa @0x5
0x24a5…24cc at0006 = ╱ed╱(╱ // 0x24ab @0x6
0x24a5…24cc at0007 = ╱32╱2╱ // 0x24ac @0x7
0x24a5…24cc at0008 = ╱34╱4╱ // 0x24ad @0x8
0x24a5…24cc at0009 = ╱fe0000c005╱ // 0x24ae @0x9
0x24a5…24cc at000e = ╱ee╱)╱ // 0x24b3 @0xe
0x24a5…24cc at000f = ╱eb╱;╱ // 0x24b4 @0xf
0x24a5…24cc at0010 = ╱22╱"╱ // 0x24b5 @0x10
0x24a5…24cc at0011 = ╱53╱S╱ // 0x24b6 @0x11
0x24a5…24cc at0012 = ╱75╱u╱ // 0x24b7 @0x12
0x24a5…24cc at0013 = ╱62╱b╱ // 0x24b8 @0x13
0x24a5…24cc at0014 = ╱74╱t╱ // 0x24b9 @0x14
0x24a5…24cc at0015 = ╱6f╱o╱ // 0x24ba @0x15
0x24a5…24cc at0016 = ╱74╱t╱ // 0x24bb @0x16
0x24a5…24cc at0017 = ╱61╱a╱ // 0x24bc @0x17
0x24a5…24cc at0018 = ╱6c╱l╱ // 0x24bd @0x18
0x24a5…24cc at0019 = ╱22╱"╱ // 0x24be @0x19
0x24a5…24cc at001a = ╱eb╱;╱ // 0x24bf @0x1a
0x24a5…24cc at001b = ╱d2╱TAB╱ // 0x24c0 @0x1b
0x24a5…24cc at001c = ╱ed╱(╱ // 0x24c1 @0x1c
0x24a5…24cc at001d = ╱36╱6╱ // 0x24c2 @0x1d
0x24a5…24cc at001e = ╱36╱6╱ // 0x24c3 @0x1e
0x24a5…24cc at001f = ╱fe00008407╱ // 0x24c4 @0x1f
0x24a5…24cc at0024 = ╱ee╱)╱ // 0x24c9 @0x24
0x24a5…24cc at0025 = ╱eb╱;╱ // 0x24ca @0x25
0x24a5…24cc at0026 = EOL // 0x24cb @0x26
0x24a5…24cc }
0x24cc…24e7 b23e 3650 EXEC TUD(TOTAL$,TAL4$,E,B)
0x24cc…24e7 LineComalBin {
0x24cc…24e7 ptr = 0xb23e // 0x24cc @0x0
0x24cc…24e7 lno = 0x0e42 // 0x24ce @0x2
0x24cc…24e7 at0004 = ╱9d╱ EXEC ╱ // 0x24d0 @0x4
0x24cc…24e7 at0005 = ╱54╱T╱ // 0x24d1 @0x5
0x24cc…24e7 at0006 = ╱55╱U╱ // 0x24d2 @0x6
0x24cc…24e7 at0007 = ╱44╱D╱ // 0x24d3 @0x7
0x24cc…24e7 at0008 = ╱ed╱(╱ // 0x24d4 @0x8
0x24cc…24e7 at0009 = ╱54╱T╱ // 0x24d5 @0x9
0x24cc…24e7 at000a = ╱4f╱O╱ // 0x24d6 @0xa
0x24cc…24e7 at000b = ╱54╱T╱ // 0x24d7 @0xb
0x24cc…24e7 at000c = ╱41╱A╱ // 0x24d8 @0xc
0x24cc…24e7 at000d = ╱4c╱L╱ // 0x24d9 @0xd
0x24cc…24e7 at000e = ╱ef╱$╱ // 0x24da @0xe
0x24cc…24e7 at000f = ╱ec╱,╱ // 0x24db @0xf
0x24cc…24e7 at0010 = ╱54╱T╱ // 0x24dc @0x10
0x24cc…24e7 at0011 = ╱41╱A╱ // 0x24dd @0x11
0x24cc…24e7 at0012 = ╱4c╱L╱ // 0x24de @0x12
0x24cc…24e7 at0013 = ╱34╱4╱ // 0x24df @0x13
0x24cc…24e7 at0014 = ╱ef╱$╱ // 0x24e0 @0x14
0x24cc…24e7 at0015 = ╱ec╱,╱ // 0x24e1 @0x15
0x24cc…24e7 at0016 = ╱45╱E╱ // 0x24e2 @0x16
0x24cc…24e7 at0017 = ╱ec╱,╱ // 0x24e3 @0x17
0x24cc…24e7 at0018 = ╱42╱B╱ // 0x24e4 @0x18
0x24cc…24e7 at0019 = ╱ee╱)╱ // 0x24e5 @0x19
0x24cc…24e7 at001a = EOL // 0x24e6 @0x1a
0x24cc…24e7 }
0x24e7…24f3 b24a 3660 LINIE=G
0x24e7…24f3 LineComalBin {
0x24e7…24f3 ptr = 0xb24a // 0x24e7 @0x0
0x24e7…24f3 lno = 0x0e4c // 0x24e9 @0x2
0x24e7…24f3 at0004 = ╱4c╱L╱ // 0x24eb @0x4
0x24e7…24f3 at0005 = ╱49╱I╱ // 0x24ec @0x5
0x24e7…24f3 at0006 = ╱4e╱N╱ // 0x24ed @0x6
0x24e7…24f3 at0007 = ╱49╱I╱ // 0x24ee @0x7
0x24e7…24f3 at0008 = ╱45╱E╱ // 0x24ef @0x8
0x24e7…24f3 at0009 = ╱dc╱=╱ // 0x24f0 @0x9
0x24e7…24f3 at000a = ╱47╱G╱ // 0x24f1 @0xa
0x24e7…24f3 at000b = EOL // 0x24f2 @0xb
0x24e7…24f3 }
0x24f3…24f9 b250 3670 ENDIF
0x24f3…24f9 LineComalBin {
0x24f3…24f9 ptr = 0xb250 // 0x24f3 @0x0
0x24f3…24f9 lno = 0x0e56 // 0x24f5 @0x2
0x24f3…24f9 at0004 = ╱9b╱ ENDIF ╱ // 0x24f7 @0x4
0x24f3…24f9 at0005 = EOL // 0x24f8 @0x5
0x24f3…24f9 }
0x24f9…24ff b256 3680 REPEAT
0x24f9…24ff LineComalBin {
0x24f9…24ff ptr = 0xb256 // 0x24f9 @0x0
0x24f9…24ff lno = 0x0e60 // 0x24fb @0x2
0x24f9…24ff at0004 = ╱97╱ REPEAT ╱ // 0x24fd @0x4
0x24f9…24ff at0005 = EOL // 0x24fe @0x5
0x24f9…24ff }
0x24ff…250b (123,) b262 3690 CASE KOD$ OF
0x24ff…250b LineComalBin {
0x24ff…250b ptr = 0xb262 // 0x24ff @0x0
0x24ff…250b lno = 0x0e6a // 0x2501 @0x2
0x24ff…250b at0004 = ╱a200╱ CASE ╱ // 0x2503 @0x4
0x24ff…250b at0006 = ╱4b╱K╱ // 0x2505 @0x6
0x24ff…250b at0007 = ╱4f╱O╱ // 0x2506 @0x7
0x24ff…250b at0008 = ╱44╱D╱ // 0x2507 @0x8
0x24ff…250b at0009 = ╱ef╱$╱ // 0x2508 @0x9
0x24ff…250b at000a = ╱ba╱ OF ╱ // 0x2509 @0xa
0x24ff…250b at000b = EOL // 0x250a @0xb
0x24ff…250b }
0x250b…2511 b268 3700 STOP
0x250b…2511 LineComalBin {
0x250b…2511 ptr = 0xb268 // 0x250b @0x0
0x250b…2511 lno = 0x0e74 // 0x250d @0x2
0x250b…2511 at0004 = ╱8d╱ STOP ╱ // 0x250f @0x4
0x250b…2511 at0005 = EOL // 0x2510 @0x5
0x250b…2511 }
0x2511…251b b272 3710 WHEN "A"
0x2511…251b LineComalBin {
0x2511…251b ptr = 0xb272 // 0x2511 @0x0
0x2511…251b lno = 0x0e7e // 0x2513 @0x2
0x2511…251b at0004 = ╱a300╱ WHEN ╱ // 0x2515 @0x4
0x2511…251b at0006 = ╱22╱"╱ // 0x2517 @0x6
0x2511…251b at0007 = ╱41╱A╱ // 0x2518 @0x7
0x2511…251b at0008 = ╱22╱"╱ // 0x2519 @0x8
0x2511…251b at0009 = EOL // 0x251a @0x9
0x2511…251b }
0x251b…2526 b27d 3720 EXEC VPOST
0x251b…2526 LineComalBin {
0x251b…2526 ptr = 0xb27d // 0x251b @0x0
0x251b…2526 lno = 0x0e88 // 0x251d @0x2
0x251b…2526 at0004 = ╱9d╱ EXEC ╱ // 0x251f @0x4
0x251b…2526 at0005 = ╱56╱V╱ // 0x2520 @0x5
0x251b…2526 at0006 = ╱50╱P╱ // 0x2521 @0x6
0x251b…2526 at0007 = ╱4f╱O╱ // 0x2522 @0x7
0x251b…2526 at0008 = ╱53╱S╱ // 0x2523 @0x8
0x251b…2526 at0009 = ╱54╱T╱ // 0x2524 @0x9
0x251b…2526 at000a = EOL // 0x2525 @0xa
0x251b…2526 }
0x2526…255a b2b1 3730 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)
0x2526…255a LineComalBin {
0x2526…255a ptr = 0xb2b1 // 0x2526 @0x0
0x2526…255a lno = 0x0e92 // 0x2528 @0x2
0x2526…255a at0004 = ╱9d╱ EXEC ╱ // 0x252a @0x4
0x2526…255a at0005 = ╱46╱F╱ // 0x252b @0x5
0x2526…255a at0006 = ╱49╱I╱ // 0x252c @0x6
0x2526…255a at0007 = ╱4e╱N╱ // 0x252d @0x7
0x2526…255a at0008 = ╱44╱D╱ // 0x252e @0x8
0x2526…255a at0009 = ╱50╱P╱ // 0x252f @0x9
0x2526…255a at000a = ╱4f╱O╱ // 0x2530 @0xa
0x2526…255a at000b = ╱53╱S╱ // 0x2531 @0xb
0x2526…255a at000c = ╱54╱T╱ // 0x2532 @0xc
0x2526…255a at000d = ╱31╱1╱ // 0x2533 @0xd
0x2526…255a at000e = ╱ed╱(╱ // 0x2534 @0xe
0x2526…255a at000f = ╱56╱V╱ // 0x2535 @0xf
0x2526…255a at0010 = ╱54╱T╱ // 0x2536 @0x10
0x2526…255a at0011 = ╱41╱A╱ // 0x2537 @0x11
0x2526…255a at0012 = ╱42╱B╱ // 0x2538 @0x12
0x2526…255a at0013 = ╱31╱1╱ // 0x2539 @0x13
0x2526…255a at0014 = ╱ec╱,╱ // 0x253a @0x14
0x2526…255a at0015 = ╱56╱V╱ // 0x253b @0x15
0x2526…255a at0016 = ╱54╱T╱ // 0x253c @0x16
0x2526…255a at0017 = ╱41╱A╱ // 0x253d @0x17
0x2526…255a at0018 = ╱42╱B╱ // 0x253e @0x18
0x2526…255a at0019 = ╱ec╱,╱ // 0x253f @0x19
0x2526…255a at001a = ╱4d╱M╱ // 0x2540 @0x1a
0x2526…255a at001b = ╱56╱V╱ // 0x2541 @0x1b
0x2526…255a at001c = ╱41╱A╱ // 0x2542 @0x1c
0x2526…255a at001d = ╱4e╱N╱ // 0x2543 @0x1d
0x2526…255a at001e = ╱54╱T╱ // 0x2544 @0x1e
0x2526…255a at001f = ╱41╱A╱ // 0x2545 @0x1f
0x2526…255a at0020 = ╱4c╱L╱ // 0x2546 @0x20
0x2526…255a at0021 = ╱ec╱,╱ // 0x2547 @0x21
0x2526…255a at0022 = ╱56╱V╱ // 0x2548 @0x22
0x2526…255a at0023 = ╱41╱A╱ // 0x2549 @0x23
0x2526…255a at0024 = ╱52╱R╱ // 0x254a @0x24
0x2526…255a at0025 = ╱45╱E╱ // 0x254b @0x25
0x2526…255a at0026 = ╱4e╱N╱ // 0x254c @0x26
0x2526…255a at0027 = ╱52╱R╱ // 0x254d @0x27
0x2526…255a at0028 = ╱ec╱,╱ // 0x254e @0x28
0x2526…255a at0029 = ╱56╱V╱ // 0x254f @0x29
0x2526…255a at002a = ╱50╱P╱ // 0x2550 @0x2a
0x2526…255a at002b = ╱49╱I╱ // 0x2551 @0x2b
0x2526…255a at002c = ╱4c╱L╱ // 0x2552 @0x2c
0x2526…255a at002d = ╱33╱3╱ // 0x2553 @0x2d
0x2526…255a at002e = ╱ec╱,╱ // 0x2554 @0x2e
0x2526…255a at002f = ╱4b╱K╱ // 0x2555 @0x2f
0x2526…255a at0030 = ╱33╱3╱ // 0x2556 @0x30
0x2526…255a at0031 = ╱ef╱$╱ // 0x2557 @0x31
0x2526…255a at0032 = ╱ee╱)╱ // 0x2558 @0x32
0x2526…255a at0033 = EOL // 0x2559 @0x33
0x2526…255a }
0x255a…2568 b2bf 3740 IF CEKS=E THEN STOP
0x255a…2568 LineComalBin {
0x255a…2568 ptr = 0xb2bf // 0x255a @0x0
0x255a…2568 lno = 0x0e9c // 0x255c @0x2
0x255a…2568 at0004 = ╱82╱ IF ╱ // 0x255e @0x4
0x255a…2568 at0005 = ╱43╱C╱ // 0x255f @0x5
0x255a…2568 at0006 = ╱45╱E╱ // 0x2560 @0x6
0x255a…2568 at0007 = ╱4b╱K╱ // 0x2561 @0x7
0x255a…2568 at0008 = ╱53╱S╱ // 0x2562 @0x8
0x255a…2568 at0009 = ╱dc╱=╱ // 0x2563 @0x9
0x255a…2568 at000a = ╱45╱E╱ // 0x2564 @0xa
0x255a…2568 at000b = ╱b6╱ THEN ╱ // 0x2565 @0xb
0x255a…2568 at000c = ╱8d╱ STOP ╱ // 0x2566 @0xc
0x255a…2568 at000d = EOL // 0x2567 @0xd
0x255a…2568 }
0x2568…2577 b2ce 3750 EXEC HENTVPOST
0x2568…2577 LineComalBin {
0x2568…2577 ptr = 0xb2ce // 0x2568 @0x0
0x2568…2577 lno = 0x0ea6 // 0x256a @0x2
0x2568…2577 at0004 = ╱9d╱ EXEC ╱ // 0x256c @0x4
0x2568…2577 at0005 = ╱48╱H╱ // 0x256d @0x5
0x2568…2577 at0006 = ╱45╱E╱ // 0x256e @0x6
0x2568…2577 at0007 = ╱4e╱N╱ // 0x256f @0x7
0x2568…2577 at0008 = ╱54╱T╱ // 0x2570 @0x8
0x2568…2577 at0009 = ╱56╱V╱ // 0x2571 @0x9
0x2568…2577 at000a = ╱50╱P╱ // 0x2572 @0xa
0x2568…2577 at000b = ╱4f╱O╱ // 0x2573 @0xb
0x2568…2577 at000c = ╱53╱S╱ // 0x2574 @0xc
0x2568…2577 at000d = ╱54╱T╱ // 0x2575 @0xd
0x2568…2577 at000e = EOL // 0x2576 @0xe
0x2568…2577 }
0x2577…2580 b2d7 3760 EXEC VUD
0x2577…2580 LineComalBin {
0x2577…2580 ptr = 0xb2d7 // 0x2577 @0x0
0x2577…2580 lno = 0x0eb0 // 0x2579 @0x2
0x2577…2580 at0004 = ╱9d╱ EXEC ╱ // 0x257b @0x4
0x2577…2580 at0005 = ╱56╱V╱ // 0x257c @0x5
0x2577…2580 at0006 = ╱55╱U╱ // 0x257d @0x6
0x2577…2580 at0007 = ╱44╱D╱ // 0x257e @0x7
0x2577…2580 at0008 = EOL // 0x257f @0x8
0x2577…2580 }
0x2580…258a b2e1 3770 WHEN "B"
0x2580…258a LineComalBin {
0x2580…258a ptr = 0xb2e1 // 0x2580 @0x0
0x2580…258a lno = 0x0eba // 0x2582 @0x2
0x2580…258a at0004 = ╱a300╱ WHEN ╱ // 0x2584 @0x4
0x2580…258a at0006 = ╱22╱"╱ // 0x2586 @0x6
0x2580…258a at0007 = ╱42╱B╱ // 0x2587 @0x7
0x2580…258a at0008 = ╱22╱"╱ // 0x2588 @0x8
0x2580…258a at0009 = EOL // 0x2589 @0x9
0x2580…258a }
0x258a…259d b2f4 3780 EXEC BPOST(1)
0x258a…259d LineComalBin {
0x258a…259d ptr = 0xb2f4 // 0x258a @0x0
0x258a…259d lno = 0x0ec4 // 0x258c @0x2
0x258a…259d at0004 = ╱9d╱ EXEC ╱ // 0x258e @0x4
0x258a…259d at0005 = ╱42╱B╱ // 0x258f @0x5
0x258a…259d at0006 = ╱50╱P╱ // 0x2590 @0x6
0x258a…259d at0007 = ╱4f╱O╱ // 0x2591 @0x7
0x258a…259d at0008 = ╱53╱S╱ // 0x2592 @0x8
0x258a…259d at0009 = ╱54╱T╱ // 0x2593 @0x9
0x258a…259d at000a = ╱ed╱(╱ // 0x2594 @0xa
0x258a…259d at000b = ╱31╱1╱ // 0x2595 @0xb
0x258a…259d at000c = ╱fe00008001╱ // 0x2596 @0xc
0x258a…259d at0011 = ╱ee╱)╱ // 0x259b @0x11
0x258a…259d at0012 = EOL // 0x259c @0x12
0x258a…259d }
0x259d…25db b332 3790 PRO$=" 0,"+VARPRIS$(7:G)+VARPRIS$(10:G)+"-"
0x259d…25db LineComalBin {
0x259d…25db ptr = 0xb332 // 0x259d @0x0
0x259d…25db lno = 0x0ece // 0x259f @0x2
0x259d…25db at0004 = ╱50╱P╱ // 0x25a1 @0x4
0x259d…25db at0005 = ╱52╱R╱ // 0x25a2 @0x5
0x259d…25db at0006 = ╱4f╱O╱ // 0x25a3 @0x6
0x259d…25db at0007 = ╱ef╱$╱ // 0x25a4 @0x7
0x259d…25db at0008 = ╱dc╱=╱ // 0x25a5 @0x8
0x259d…25db at0009 = ╱22╱"╱ // 0x25a6 @0x9
0x259d…25db at000a = ╱20╱…╱ // 0x25a7 @0xa
0x259d…25db at000b = ╱20╱…╱ // 0x25a8 @0xb
0x259d…25db at000c = ╱20╱…╱ // 0x25a9 @0xc
0x259d…25db at000d = ╱20╱…╱ // 0x25aa @0xd
0x259d…25db at000e = ╱20╱…╱ // 0x25ab @0xe
0x259d…25db at000f = ╱30╱0╱ // 0x25ac @0xf
0x259d…25db at0010 = ╱2c╱,╱ // 0x25ad @0x10
0x259d…25db at0011 = ╱22╱"╱ // 0x25ae @0x11
0x259d…25db at0012 = ╱f1╱+╱ // 0x25af @0x12
0x259d…25db at0013 = ╱56╱V╱ // 0x25b0 @0x13
0x259d…25db at0014 = ╱41╱A╱ // 0x25b1 @0x14
0x259d…25db at0015 = ╱52╱R╱ // 0x25b2 @0x15
0x259d…25db at0016 = ╱50╱P╱ // 0x25b3 @0x16
0x259d…25db at0017 = ╱52╱R╱ // 0x25b4 @0x17
0x259d…25db at0018 = ╱49╱I╱ // 0x25b5 @0x18
0x259d…25db at0019 = ╱53╱S╱ // 0x25b6 @0x19
0x259d…25db at001a = ╱ef╱$╱ // 0x25b7 @0x1a
0x259d…25db at001b = ╱ed╱(╱ // 0x25b8 @0x1b
0x259d…25db at001c = ╱37╱7╱ // 0x25b9 @0x1c
0x259d…25db at001d = ╱fe0000e003╱ // 0x25ba @0x1d
0x259d…25db at0022 = ╱f0╱:╱ // 0x25bf @0x22
0x259d…25db at0023 = ╱47╱G╱ // 0x25c0 @0x23
0x259d…25db at0024 = ╱ee╱)╱ // 0x25c1 @0x24
0x259d…25db at0025 = ╱f1╱+╱ // 0x25c2 @0x25
0x259d…25db at0026 = ╱56╱V╱ // 0x25c3 @0x26
0x259d…25db at0027 = ╱41╱A╱ // 0x25c4 @0x27
0x259d…25db at0028 = ╱52╱R╱ // 0x25c5 @0x28
0x259d…25db at0029 = ╱50╱P╱ // 0x25c6 @0x29
0x259d…25db at002a = ╱52╱R╱ // 0x25c7 @0x2a
0x259d…25db at002b = ╱49╱I╱ // 0x25c8 @0x2b
0x259d…25db at002c = ╱53╱S╱ // 0x25c9 @0x2c
0x259d…25db at002d = ╱ef╱$╱ // 0x25ca @0x2d
0x259d…25db at002e = ╱ed╱(╱ // 0x25cb @0x2e
0x259d…25db at002f = ╱31╱1╱ // 0x25cc @0x2f
0x259d…25db at0030 = ╱30╱0╱ // 0x25cd @0x30
0x259d…25db at0031 = ╱fe0000a004╱ // 0x25ce @0x31
0x259d…25db at0036 = ╱f0╱:╱ // 0x25d3 @0x36
0x259d…25db at0037 = ╱47╱G╱ // 0x25d4 @0x37
0x259d…25db at0038 = ╱ee╱)╱ // 0x25d5 @0x38
0x259d…25db at0039 = ╱f1╱+╱ // 0x25d6 @0x39
0x259d…25db at003a = ╱22╱"╱ // 0x25d7 @0x3a
0x259d…25db at003b = ╱2d╱-╱ // 0x25d8 @0x3b
0x259d…25db at003c = ╱22╱"╱ // 0x25d9 @0x3c
0x259d…25db at003d = EOL // 0x25da @0x3d
0x259d…25db }
0x25db…2606 b35d 3800 IF VARPRIS$(7)=" " THEN PRO$(8)="0"
0x25db…2606 LineComalBin {
0x25db…2606 ptr = 0xb35d // 0x25db @0x0
0x25db…2606 lno = 0x0ed8 // 0x25dd @0x2
0x25db…2606 at0004 = ╱82╱ IF ╱ // 0x25df @0x4
0x25db…2606 at0005 = ╱56╱V╱ // 0x25e0 @0x5
0x25db…2606 at0006 = ╱41╱A╱ // 0x25e1 @0x6
0x25db…2606 at0007 = ╱52╱R╱ // 0x25e2 @0x7
0x25db…2606 at0008 = ╱50╱P╱ // 0x25e3 @0x8
0x25db…2606 at0009 = ╱52╱R╱ // 0x25e4 @0x9
0x25db…2606 at000a = ╱49╱I╱ // 0x25e5 @0xa
0x25db…2606 at000b = ╱53╱S╱ // 0x25e6 @0xb
0x25db…2606 at000c = ╱ef╱$╱ // 0x25e7 @0xc
0x25db…2606 at000d = ╱ed╱(╱ // 0x25e8 @0xd
0x25db…2606 at000e = ╱37╱7╱ // 0x25e9 @0xe
0x25db…2606 at000f = ╱fe0000e003╱ // 0x25ea @0xf
0x25db…2606 at0014 = ╱ee╱)╱ // 0x25ef @0x14
0x25db…2606 at0015 = ╱dc╱=╱ // 0x25f0 @0x15
0x25db…2606 at0016 = ╱22╱"╱ // 0x25f1 @0x16
0x25db…2606 at0017 = ╱20╱…╱ // 0x25f2 @0x17
0x25db…2606 at0018 = ╱22╱"╱ // 0x25f3 @0x18
0x25db…2606 at0019 = ╱b6╱ THEN ╱ // 0x25f4 @0x19
0x25db…2606 at001a = ╱50╱P╱ // 0x25f5 @0x1a
0x25db…2606 at001b = ╱52╱R╱ // 0x25f6 @0x1b
0x25db…2606 at001c = ╱4f╱O╱ // 0x25f7 @0x1c
0x25db…2606 at001d = ╱ef╱$╱ // 0x25f8 @0x1d
0x25db…2606 at001e = ╱ed╱(╱ // 0x25f9 @0x1e
0x25db…2606 at001f = ╱38╱8╱ // 0x25fa @0x1f
0x25db…2606 at0020 = ╱fe00008004╱ // 0x25fb @0x20
0x25db…2606 at0025 = ╱ee╱)╱ // 0x2600 @0x25
0x25db…2606 at0026 = ╱dc╱=╱ // 0x2601 @0x26
0x25db…2606 at0027 = ╱22╱"╱ // 0x2602 @0x27
0x25db…2606 at0028 = ╱30╱0╱ // 0x2603 @0x28
0x25db…2606 at0029 = ╱22╱"╱ // 0x2604 @0x29
0x25db…2606 at002a = EOL // 0x2605 @0x2a
0x25db…2606 }
0x2606…2627 b37e 3810 EXEC CALC(G,PRO$,GBELØB$,BELØB$)
0x2606…2627 LineComalBin {
0x2606…2627 ptr = 0xb37e // 0x2606 @0x0
0x2606…2627 lno = 0x0ee2 // 0x2608 @0x2
0x2606…2627 at0004 = ╱9d╱ EXEC ╱ // 0x260a @0x4
0x2606…2627 at0005 = ╱43╱C╱ // 0x260b @0x5
0x2606…2627 at0006 = ╱41╱A╱ // 0x260c @0x6
0x2606…2627 at0007 = ╱4c╱L╱ // 0x260d @0x7
0x2606…2627 at0008 = ╱43╱C╱ // 0x260e @0x8
0x2606…2627 at0009 = ╱ed╱(╱ // 0x260f @0x9
0x2606…2627 at000a = ╱47╱G╱ // 0x2610 @0xa
0x2606…2627 at000b = ╱ec╱,╱ // 0x2611 @0xb
0x2606…2627 at000c = ╱50╱P╱ // 0x2612 @0xc
0x2606…2627 at000d = ╱52╱R╱ // 0x2613 @0xd
0x2606…2627 at000e = ╱4f╱O╱ // 0x2614 @0xe
0x2606…2627 at000f = ╱ef╱$╱ // 0x2615 @0xf
0x2606…2627 at0010 = ╱ec╱,╱ // 0x2616 @0x10
0x2606…2627 at0011 = ╱47╱G╱ // 0x2617 @0x11
0x2606…2627 at0012 = ╱42╱B╱ // 0x2618 @0x12
0x2606…2627 at0013 = ╱45╱E╱ // 0x2619 @0x13
0x2606…2627 at0014 = ╱4c╱L╱ // 0x261a @0x14
0x2606…2627 at0015 = ╱5c╱Ø╱ // 0x261b @0x15
0x2606…2627 at0016 = ╱42╱B╱ // 0x261c @0x16
0x2606…2627 at0017 = ╱ef╱$╱ // 0x261d @0x17
0x2606…2627 at0018 = ╱ec╱,╱ // 0x261e @0x18
0x2606…2627 at0019 = ╱42╱B╱ // 0x261f @0x19
0x2606…2627 at001a = ╱45╱E╱ // 0x2620 @0x1a
0x2606…2627 at001b = ╱4c╱L╱ // 0x2621 @0x1b
0x2606…2627 at001c = ╱5c╱Ø╱ // 0x2622 @0x1c
0x2606…2627 at001d = ╱42╱B╱ // 0x2623 @0x1d
0x2606…2627 at001e = ╱ef╱$╱ // 0x2624 @0x1e
0x2606…2627 at001f = ╱ee╱)╱ // 0x2625 @0x1f
0x2606…2627 at0020 = EOL // 0x2626 @0x20
0x2606…2627 }
0x2627…2649 b3a0 3820 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$)
0x2627…2649 LineComalBin {
0x2627…2649 ptr = 0xb3a0 // 0x2627 @0x0
0x2627…2649 lno = 0x0eec // 0x2629 @0x2
0x2627…2649 at0004 = ╱9d╱ EXEC ╱ // 0x262b @0x4
0x2627…2649 at0005 = ╱43╱C╱ // 0x262c @0x5
0x2627…2649 at0006 = ╱41╱A╱ // 0x262d @0x6
0x2627…2649 at0007 = ╱4c╱L╱ // 0x262e @0x7
0x2627…2649 at0008 = ╱43╱C╱ // 0x262f @0x8
0x2627…2649 at0009 = ╱ed╱(╱ // 0x2630 @0x9
0x2627…2649 at000a = ╱42╱B╱ // 0x2631 @0xa
0x2627…2649 at000b = ╱ec╱,╱ // 0x2632 @0xb
0x2627…2649 at000c = ╱54╱T╱ // 0x2633 @0xc
0x2627…2649 at000d = ╱4f╱O╱ // 0x2634 @0xd
0x2627…2649 at000e = ╱54╱T╱ // 0x2635 @0xe
0x2627…2649 at000f = ╱41╱A╱ // 0x2636 @0xf
0x2627…2649 at0010 = ╱4c╱L╱ // 0x2637 @0x10
0x2627…2649 at0011 = ╱ef╱$╱ // 0x2638 @0x11
0x2627…2649 at0012 = ╱ec╱,╱ // 0x2639 @0x12
0x2627…2649 at0013 = ╱42╱B╱ // 0x263a @0x13
0x2627…2649 at0014 = ╱45╱E╱ // 0x263b @0x14
0x2627…2649 at0015 = ╱4c╱L╱ // 0x263c @0x15
0x2627…2649 at0016 = ╱5c╱Ø╱ // 0x263d @0x16
0x2627…2649 at0017 = ╱42╱B╱ // 0x263e @0x17
0x2627…2649 at0018 = ╱ef╱$╱ // 0x263f @0x18
0x2627…2649 at0019 = ╱ec╱,╱ // 0x2640 @0x19
0x2627…2649 at001a = ╱54╱T╱ // 0x2641 @0x1a
0x2627…2649 at001b = ╱4f╱O╱ // 0x2642 @0x1b
0x2627…2649 at001c = ╱54╱T╱ // 0x2643 @0x1c
0x2627…2649 at001d = ╱41╱A╱ // 0x2644 @0x1d
0x2627…2649 at001e = ╱4c╱L╱ // 0x2645 @0x1e
0x2627…2649 at001f = ╱ef╱$╱ // 0x2646 @0x1f
0x2627…2649 at0020 = ╱ee╱)╱ // 0x2647 @0x20
0x2627…2649 at0021 = EOL // 0x2648 @0x21
0x2627…2649 }
0x2649…267e b3d5 3830 PRINT TAB(24);VARPRIS$(E:11);" %";TAB(66);
0x2649…267e LineComalBin {
0x2649…267e ptr = 0xb3d5 // 0x2649 @0x0
0x2649…267e lno = 0x0ef6 // 0x264b @0x2
0x2649…267e at0004 = ╱92╱ PRINT ╱ // 0x264d @0x4
0x2649…267e at0005 = ╱d2╱TAB╱ // 0x264e @0x5
0x2649…267e at0006 = ╱ed╱(╱ // 0x264f @0x6
0x2649…267e at0007 = ╱32╱2╱ // 0x2650 @0x7
0x2649…267e at0008 = ╱34╱4╱ // 0x2651 @0x8
0x2649…267e at0009 = ╱fe0000c005╱ // 0x2652 @0x9
0x2649…267e at000e = ╱ee╱)╱ // 0x2657 @0xe
0x2649…267e at000f = ╱eb╱;╱ // 0x2658 @0xf
0x2649…267e at0010 = ╱56╱V╱ // 0x2659 @0x10
0x2649…267e at0011 = ╱41╱A╱ // 0x265a @0x11
0x2649…267e at0012 = ╱52╱R╱ // 0x265b @0x12
0x2649…267e at0013 = ╱50╱P╱ // 0x265c @0x13
0x2649…267e at0014 = ╱52╱R╱ // 0x265d @0x14
0x2649…267e at0015 = ╱49╱I╱ // 0x265e @0x15
0x2649…267e at0016 = ╱53╱S╱ // 0x265f @0x16
0x2649…267e at0017 = ╱ef╱$╱ // 0x2660 @0x17
0x2649…267e at0018 = ╱ed╱(╱ // 0x2661 @0x18
0x2649…267e at0019 = ╱45╱E╱ // 0x2662 @0x19
0x2649…267e at001a = ╱f0╱:╱ // 0x2663 @0x1a
0x2649…267e at001b = ╱31╱1╱ // 0x2664 @0x1b
0x2649…267e at001c = ╱31╱1╱ // 0x2665 @0x1c
0x2649…267e at001d = ╱fe0000b004╱ // 0x2666 @0x1d
0x2649…267e at0022 = ╱ee╱)╱ // 0x266b @0x22
0x2649…267e at0023 = ╱eb╱;╱ // 0x266c @0x23
0x2649…267e at0024 = ╱22╱"╱ // 0x266d @0x24
0x2649…267e at0025 = ╱20╱…╱ // 0x266e @0x25
0x2649…267e at0026 = ╱25╱%╱ // 0x266f @0x26
0x2649…267e at0027 = ╱22╱"╱ // 0x2670 @0x27
0x2649…267e at0028 = ╱eb╱;╱ // 0x2671 @0x28
0x2649…267e at0029 = ╱d2╱TAB╱ // 0x2672 @0x29
0x2649…267e at002a = ╱ed╱(╱ // 0x2673 @0x2a
0x2649…267e at002b = ╱36╱6╱ // 0x2674 @0x2b
0x2649…267e at002c = ╱36╱6╱ // 0x2675 @0x2c
0x2649…267e at002d = ╱fe00008407╱ // 0x2676 @0x2d
0x2649…267e at0032 = ╱ee╱)╱ // 0x267b @0x32
0x2649…267e at0033 = ╱eb╱;╱ // 0x267c @0x33
0x2649…267e at0034 = EOL // 0x267d @0x34
0x2649…267e }
0x267e…2699 b3f0 3840 EXEC TUD(BELØB$,TAL4$,E,B)
0x267e…2699 LineComalBin {
0x267e…2699 ptr = 0xb3f0 // 0x267e @0x0
0x267e…2699 lno = 0x0f00 // 0x2680 @0x2
0x267e…2699 at0004 = ╱9d╱ EXEC ╱ // 0x2682 @0x4
0x267e…2699 at0005 = ╱54╱T╱ // 0x2683 @0x5
0x267e…2699 at0006 = ╱55╱U╱ // 0x2684 @0x6
0x267e…2699 at0007 = ╱44╱D╱ // 0x2685 @0x7
0x267e…2699 at0008 = ╱ed╱(╱ // 0x2686 @0x8
0x267e…2699 at0009 = ╱42╱B╱ // 0x2687 @0x9
0x267e…2699 at000a = ╱45╱E╱ // 0x2688 @0xa
0x267e…2699 at000b = ╱4c╱L╱ // 0x2689 @0xb
0x267e…2699 at000c = ╱5c╱Ø╱ // 0x268a @0xc
0x267e…2699 at000d = ╱42╱B╱ // 0x268b @0xd
0x267e…2699 at000e = ╱ef╱$╱ // 0x268c @0xe
0x267e…2699 at000f = ╱ec╱,╱ // 0x268d @0xf
0x267e…2699 at0010 = ╱54╱T╱ // 0x268e @0x10
0x267e…2699 at0011 = ╱41╱A╱ // 0x268f @0x11
0x267e…2699 at0012 = ╱4c╱L╱ // 0x2690 @0x12
0x267e…2699 at0013 = ╱34╱4╱ // 0x2691 @0x13
0x267e…2699 at0014 = ╱ef╱$╱ // 0x2692 @0x14
0x267e…2699 at0015 = ╱ec╱,╱ // 0x2693 @0x15
0x267e…2699 at0016 = ╱45╱E╱ // 0x2694 @0x16
0x267e…2699 at0017 = ╱ec╱,╱ // 0x2695 @0x17
0x267e…2699 at0018 = ╱42╱B╱ // 0x2696 @0x18
0x267e…2699 at0019 = ╱ee╱)╱ // 0x2697 @0x19
0x267e…2699 at001a = EOL // 0x2698 @0x1a
0x267e…2699 }
0x2699…26d8 b42f 3850 VARKONT=RABATNR;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT
0x2699…26d8 LineComalBin {
0x2699…26d8 ptr = 0xb42f // 0x2699 @0x0
0x2699…26d8 lno = 0x0f0a // 0x269b @0x2
0x2699…26d8 at0004 = ╱56╱V╱ // 0x269d @0x4
0x2699…26d8 at0005 = ╱41╱A╱ // 0x269e @0x5
0x2699…26d8 at0006 = ╱52╱R╱ // 0x269f @0x6
0x2699…26d8 at0007 = ╱4b╱K╱ // 0x26a0 @0x7
0x2699…26d8 at0008 = ╱4f╱O╱ // 0x26a1 @0x8
0x2699…26d8 at0009 = ╱4e╱N╱ // 0x26a2 @0x9
0x2699…26d8 at000a = ╱54╱T╱ // 0x26a3 @0xa
0x2699…26d8 at000b = ╱dc╱=╱ // 0x26a4 @0xb
0x2699…26d8 at000c = ╱52╱R╱ // 0x26a5 @0xc
0x2699…26d8 at000d = ╱41╱A╱ // 0x26a6 @0xd
0x2699…26d8 at000e = ╱42╱B╱ // 0x26a7 @0xe
0x2699…26d8 at000f = ╱41╱A╱ // 0x26a8 @0xf
0x2699…26d8 at0010 = ╱54╱T╱ // 0x26a9 @0x10
0x2699…26d8 at0011 = ╱4e╱N╱ // 0x26aa @0x11
0x2699…26d8 at0012 = ╱52╱R╱ // 0x26ab @0x12
0x2699…26d8 at0013 = ╱eb╱;╱ // 0x26ac @0x13
0x2699…26d8 at0014 = ╱45╱E╱ // 0x26ad @0x14
0x2699…26d8 at0015 = ╱4e╱N╱ // 0x26ae @0x15
0x2699…26d8 at0016 = ╱54╱T╱ // 0x26af @0x16
0x2699…26d8 at0017 = ╱4e╱N╱ // 0x26b0 @0x17
0x2699…26d8 at0018 = ╱52╱R╱ // 0x26b1 @0x18
0x2699…26d8 at0019 = ╱dc╱=╱ // 0x26b2 @0x19
0x2699…26d8 at001a = ╱ed╱(╱ // 0x26b3 @0x1a
0x2699…26d8 at001b = ╱4f╱O╱ // 0x26b4 @0x1b
0x2699…26d8 at001c = ╱52╱R╱ // 0x26b5 @0x1c
0x2699…26d8 at001d = ╱44╱D╱ // 0x26b6 @0x1d
0x2699…26d8 at001e = ╱52╱R╱ // 0x26b7 @0x1e
0x2699…26d8 at001f = ╱45╱E╱ // 0x26b8 @0x1f
0x2699…26d8 at0020 = ╱4e╱N╱ // 0x26b9 @0x20
0x2699…26d8 at0021 = ╱52╱R╱ // 0x26ba @0x21
0x2699…26d8 at0022 = ╱e7╱ DIV ╱ // 0x26bb @0x22
0x2699…26d8 at0023 = ╱31╱1╱ // 0x26bc @0x23
0x2699…26d8 at0024 = ╱30╱0╱ // 0x26bd @0x24
0x2699…26d8 at0025 = ╱30╱0╱ // 0x26be @0x25
0x2699…26d8 at0026 = ╱fe0000c807╱ // 0x26bf @0x26
0x2699…26d8 at002b = ╱ee╱)╱ // 0x26c4 @0x2b
0x2699…26d8 at002c = ╱e4╱*╱ // 0x26c5 @0x2c
0x2699…26d8 at002d = ╱31╱1╱ // 0x26c6 @0x2d
0x2699…26d8 at002e = ╱30╱0╱ // 0x26c7 @0x2e
0x2699…26d8 at002f = ╱30╱0╱ // 0x26c8 @0x2f
0x2699…26d8 at0030 = ╱fe0000c807╱ // 0x26c9 @0x30
0x2699…26d8 at0035 = ╱e2╱+╱ // 0x26ce @0x35
0x2699…26d8 at0036 = ╱44╱D╱ // 0x26cf @0x36
0x2699…26d8 at0037 = ╱55╱U╱ // 0x26d0 @0x37
0x2699…26d8 at0038 = ╱4e╱N╱ // 0x26d1 @0x38
0x2699…26d8 at0039 = ╱44╱D╱ // 0x26d2 @0x39
0x2699…26d8 at003a = ╱4b╱K╱ // 0x26d3 @0x3a
0x2699…26d8 at003b = ╱4f╱O╱ // 0x26d4 @0x3b
0x2699…26d8 at003c = ╱4e╱N╱ // 0x26d5 @0x3c
0x2699…26d8 at003d = ╱54╱T╱ // 0x26d6 @0x3d
0x2699…26d8 at003e = EOL // 0x26d7 @0x3e
0x2699…26d8 }
0x26d8…26ed b444 3860 IF GEN=B THEN EXEC VJOURNAL
0x26d8…26ed LineComalBin {
0x26d8…26ed ptr = 0xb444 // 0x26d8 @0x0
0x26d8…26ed lno = 0x0f14 // 0x26da @0x2
0x26d8…26ed at0004 = ╱82╱ IF ╱ // 0x26dc @0x4
0x26d8…26ed at0005 = ╱47╱G╱ // 0x26dd @0x5
0x26d8…26ed at0006 = ╱45╱E╱ // 0x26de @0x6
0x26d8…26ed at0007 = ╱4e╱N╱ // 0x26df @0x7
0x26d8…26ed at0008 = ╱dc╱=╱ // 0x26e0 @0x8
0x26d8…26ed at0009 = ╱42╱B╱ // 0x26e1 @0x9
0x26d8…26ed at000a = ╱b6╱ THEN ╱ // 0x26e2 @0xa
0x26d8…26ed at000b = ╱9d╱ EXEC ╱ // 0x26e3 @0xb
0x26d8…26ed at000c = ╱56╱V╱ // 0x26e4 @0xc
0x26d8…26ed at000d = ╱4a╱J╱ // 0x26e5 @0xd
0x26d8…26ed at000e = ╱4f╱O╱ // 0x26e6 @0xe
0x26d8…26ed at000f = ╱55╱U╱ // 0x26e7 @0xf
0x26d8…26ed at0010 = ╱52╱R╱ // 0x26e8 @0x10
0x26d8…26ed at0011 = ╱4e╱N╱ // 0x26e9 @0x11
0x26d8…26ed at0012 = ╱41╱A╱ // 0x26ea @0x12
0x26d8…26ed at0013 = ╱4c╱L╱ // 0x26eb @0x13
0x26d8…26ed at0014 = EOL // 0x26ec @0x14
0x26d8…26ed }
0x26ed…26f7 b44e 3870 WHEN "C"
0x26ed…26f7 LineComalBin {
0x26ed…26f7 ptr = 0xb44e // 0x26ed @0x0
0x26ed…26f7 lno = 0x0f1e // 0x26ef @0x2
0x26ed…26f7 at0004 = ╱a300╱ WHEN ╱ // 0x26f1 @0x4
0x26ed…26f7 at0006 = ╱22╱"╱ // 0x26f3 @0x6
0x26ed…26f7 at0007 = ╱43╱C╱ // 0x26f4 @0x7
0x26ed…26f7 at0008 = ╱22╱"╱ // 0x26f5 @0x8
0x26ed…26f7 at0009 = EOL // 0x26f6 @0x9
0x26ed…26f7 }
0x26f7…270a b461 3880 EXEC BPOST(0)
0x26f7…270a LineComalBin {
0x26f7…270a ptr = 0xb461 // 0x26f7 @0x0
0x26f7…270a lno = 0x0f28 // 0x26f9 @0x2
0x26f7…270a at0004 = ╱9d╱ EXEC ╱ // 0x26fb @0x4
0x26f7…270a at0005 = ╱42╱B╱ // 0x26fc @0x5
0x26f7…270a at0006 = ╱50╱P╱ // 0x26fd @0x6
0x26f7…270a at0007 = ╱4f╱O╱ // 0x26fe @0x7
0x26f7…270a at0008 = ╱53╱S╱ // 0x26ff @0x8
0x26f7…270a at0009 = ╱54╱T╱ // 0x2700 @0x9
0x26f7…270a at000a = ╱ed╱(╱ // 0x2701 @0xa
0x26f7…270a at000b = ╱30╱0╱ // 0x2702 @0xb
0x26f7…270a at000c = ╱fe00000000╱ // 0x2703 @0xc
0x26f7…270a at0011 = ╱ee╱)╱ // 0x2708 @0x11
0x26f7…270a at0012 = EOL // 0x2709 @0x12
0x26f7…270a }
0x270a…2731 b488 3890 PRINT TAB(24);"Subtotal";TAB(66);
0x270a…2731 LineComalBin {
0x270a…2731 ptr = 0xb488 // 0x270a @0x0
0x270a…2731 lno = 0x0f32 // 0x270c @0x2
0x270a…2731 at0004 = ╱92╱ PRINT ╱ // 0x270e @0x4
0x270a…2731 at0005 = ╱d2╱TAB╱ // 0x270f @0x5
0x270a…2731 at0006 = ╱ed╱(╱ // 0x2710 @0x6
0x270a…2731 at0007 = ╱32╱2╱ // 0x2711 @0x7
0x270a…2731 at0008 = ╱34╱4╱ // 0x2712 @0x8
0x270a…2731 at0009 = ╱fe0000c005╱ // 0x2713 @0x9
0x270a…2731 at000e = ╱ee╱)╱ // 0x2718 @0xe
0x270a…2731 at000f = ╱eb╱;╱ // 0x2719 @0xf
0x270a…2731 at0010 = ╱22╱"╱ // 0x271a @0x10
0x270a…2731 at0011 = ╱53╱S╱ // 0x271b @0x11
0x270a…2731 at0012 = ╱75╱u╱ // 0x271c @0x12
0x270a…2731 at0013 = ╱62╱b╱ // 0x271d @0x13
0x270a…2731 at0014 = ╱74╱t╱ // 0x271e @0x14
0x270a…2731 at0015 = ╱6f╱o╱ // 0x271f @0x15
0x270a…2731 at0016 = ╱74╱t╱ // 0x2720 @0x16
0x270a…2731 at0017 = ╱61╱a╱ // 0x2721 @0x17
0x270a…2731 at0018 = ╱6c╱l╱ // 0x2722 @0x18
0x270a…2731 at0019 = ╱22╱"╱ // 0x2723 @0x19
0x270a…2731 at001a = ╱eb╱;╱ // 0x2724 @0x1a
0x270a…2731 at001b = ╱d2╱TAB╱ // 0x2725 @0x1b
0x270a…2731 at001c = ╱ed╱(╱ // 0x2726 @0x1c
0x270a…2731 at001d = ╱36╱6╱ // 0x2727 @0x1d
0x270a…2731 at001e = ╱36╱6╱ // 0x2728 @0x1e
0x270a…2731 at001f = ╱fe00008407╱ // 0x2729 @0x1f
0x270a…2731 at0024 = ╱ee╱)╱ // 0x272e @0x24
0x270a…2731 at0025 = ╱eb╱;╱ // 0x272f @0x25
0x270a…2731 at0026 = EOL // 0x2730 @0x26
0x270a…2731 }
0x2731…274c b4a3 3900 EXEC TUD(BELØB$,TAL4$,E,B)
0x2731…274c LineComalBin {
0x2731…274c ptr = 0xb4a3 // 0x2731 @0x0
0x2731…274c lno = 0x0f3c // 0x2733 @0x2
0x2731…274c at0004 = ╱9d╱ EXEC ╱ // 0x2735 @0x4
0x2731…274c at0005 = ╱54╱T╱ // 0x2736 @0x5
0x2731…274c at0006 = ╱55╱U╱ // 0x2737 @0x6
0x2731…274c at0007 = ╱44╱D╱ // 0x2738 @0x7
0x2731…274c at0008 = ╱ed╱(╱ // 0x2739 @0x8
0x2731…274c at0009 = ╱42╱B╱ // 0x273a @0x9
0x2731…274c at000a = ╱45╱E╱ // 0x273b @0xa
0x2731…274c at000b = ╱4c╱L╱ // 0x273c @0xb
0x2731…274c at000c = ╱5c╱Ø╱ // 0x273d @0xc
0x2731…274c at000d = ╱42╱B╱ // 0x273e @0xd
0x2731…274c at000e = ╱ef╱$╱ // 0x273f @0xe
0x2731…274c at000f = ╱ec╱,╱ // 0x2740 @0xf
0x2731…274c at0010 = ╱54╱T╱ // 0x2741 @0x10
0x2731…274c at0011 = ╱41╱A╱ // 0x2742 @0x11
0x2731…274c at0012 = ╱4c╱L╱ // 0x2743 @0x12
0x2731…274c at0013 = ╱34╱4╱ // 0x2744 @0x13
0x2731…274c at0014 = ╱ef╱$╱ // 0x2745 @0x14
0x2731…274c at0015 = ╱ec╱,╱ // 0x2746 @0x15
0x2731…274c at0016 = ╱45╱E╱ // 0x2747 @0x16
0x2731…274c at0017 = ╱ec╱,╱ // 0x2748 @0x17
0x2731…274c at0018 = ╱42╱B╱ // 0x2749 @0x18
0x2731…274c at0019 = ╱ee╱)╱ // 0x274a @0x19
0x2731…274c at001a = EOL // 0x274b @0x1a
0x2731…274c }
0x274c…275f b4b6 3910 GBELØB$=BELØB$
0x274c…275f LineComalBin {
0x274c…275f ptr = 0xb4b6 // 0x274c @0x0
0x274c…275f lno = 0x0f46 // 0x274e @0x2
0x274c…275f at0004 = ╱47╱G╱ // 0x2750 @0x4
0x274c…275f at0005 = ╱42╱B╱ // 0x2751 @0x5
0x274c…275f at0006 = ╱45╱E╱ // 0x2752 @0x6
0x274c…275f at0007 = ╱4c╱L╱ // 0x2753 @0x7
0x274c…275f at0008 = ╱5c╱Ø╱ // 0x2754 @0x8
0x274c…275f at0009 = ╱42╱B╱ // 0x2755 @0x9
0x274c…275f at000a = ╱ef╱$╱ // 0x2756 @0xa
0x274c…275f at000b = ╱dc╱=╱ // 0x2757 @0xb
0x274c…275f at000c = ╱42╱B╱ // 0x2758 @0xc
0x274c…275f at000d = ╱45╱E╱ // 0x2759 @0xd
0x274c…275f at000e = ╱4c╱L╱ // 0x275a @0xe
0x274c…275f at000f = ╱5c╱Ø╱ // 0x275b @0xf
0x274c…275f at0010 = ╱42╱B╱ // 0x275c @0x10
0x274c…275f at0011 = ╱ef╱$╱ // 0x275d @0x11
0x274c…275f at0012 = EOL // 0x275e @0x12
0x274c…275f }
0x275f…2769 b4c0 3920 WHEN "D"
0x275f…2769 LineComalBin {
0x275f…2769 ptr = 0xb4c0 // 0x275f @0x0
0x275f…2769 lno = 0x0f50 // 0x2761 @0x2
0x275f…2769 at0004 = ╱a300╱ WHEN ╱ // 0x2763 @0x4
0x275f…2769 at0006 = ╱22╱"╱ // 0x2765 @0x6
0x275f…2769 at0007 = ╱44╱D╱ // 0x2766 @0x7
0x275f…2769 at0008 = ╱22╱"╱ // 0x2767 @0x8
0x275f…2769 at0009 = EOL // 0x2768 @0x9
0x275f…2769 }
0x2769…2774 b4cb 3930 EXEC TPOST
0x2769…2774 LineComalBin {
0x2769…2774 ptr = 0xb4cb // 0x2769 @0x0
0x2769…2774 lno = 0x0f5a // 0x276b @0x2
0x2769…2774 at0004 = ╱9d╱ EXEC ╱ // 0x276d @0x4
0x2769…2774 at0005 = ╱54╱T╱ // 0x276e @0x5
0x2769…2774 at0006 = ╱50╱P╱ // 0x276f @0x6
0x2769…2774 at0007 = ╱4f╱O╱ // 0x2770 @0x7
0x2769…2774 at0008 = ╱53╱S╱ // 0x2771 @0x8
0x2769…2774 at0009 = ╱54╱T╱ // 0x2772 @0x9
0x2769…2774 at000a = EOL // 0x2773 @0xa
0x2769…2774 }
0x2774…278e b4e5 3940 PRINT TAB(16);VARTEKST$
0x2774…278e LineComalBin {
0x2774…278e ptr = 0xb4e5 // 0x2774 @0x0
0x2774…278e lno = 0x0f64 // 0x2776 @0x2
0x2774…278e at0004 = ╱92╱ PRINT ╱ // 0x2778 @0x4
0x2774…278e at0005 = ╱d2╱TAB╱ // 0x2779 @0x5
0x2774…278e at0006 = ╱ed╱(╱ // 0x277a @0x6
0x2774…278e at0007 = ╱31╱1╱ // 0x277b @0x7
0x2774…278e at0008 = ╱36╱6╱ // 0x277c @0x8
0x2774…278e at0009 = ╱fe00008005╱ // 0x277d @0x9
0x2774…278e at000e = ╱ee╱)╱ // 0x2782 @0xe
0x2774…278e at000f = ╱eb╱;╱ // 0x2783 @0xf
0x2774…278e at0010 = ╱56╱V╱ // 0x2784 @0x10
0x2774…278e at0011 = ╱41╱A╱ // 0x2785 @0x11
0x2774…278e at0012 = ╱52╱R╱ // 0x2786 @0x12
0x2774…278e at0013 = ╱54╱T╱ // 0x2787 @0x13
0x2774…278e at0014 = ╱45╱E╱ // 0x2788 @0x14
0x2774…278e at0015 = ╱4b╱K╱ // 0x2789 @0x15
0x2774…278e at0016 = ╱53╱S╱ // 0x278a @0x16
0x2774…278e at0017 = ╱54╱T╱ // 0x278b @0x17
0x2774…278e at0018 = ╱ef╱$╱ // 0x278c @0x18
0x2774…278e at0019 = EOL // 0x278d @0x19
0x2774…278e }
0x278e…2798 b4ef 3950 WHEN "E"
0x278e…2798 LineComalBin {
0x278e…2798 ptr = 0xb4ef // 0x278e @0x0
0x278e…2798 lno = 0x0f6e // 0x2790 @0x2
0x278e…2798 at0004 = ╱a300╱ WHEN ╱ // 0x2792 @0x4
0x278e…2798 at0006 = ╱22╱"╱ // 0x2794 @0x6
0x278e…2798 at0007 = ╱45╱E╱ // 0x2795 @0x7
0x278e…2798 at0008 = ╱22╱"╱ // 0x2796 @0x8
0x278e…2798 at0009 = EOL // 0x2797 @0x9
0x278e…2798 }
0x2798…27a3 b4fa 3960 EXEC TPOST
0x2798…27a3 LineComalBin {
0x2798…27a3 ptr = 0xb4fa // 0x2798 @0x0
0x2798…27a3 lno = 0x0f78 // 0x279a @0x2
0x2798…27a3 at0004 = ╱9d╱ EXEC ╱ // 0x279c @0x4
0x2798…27a3 at0005 = ╱54╱T╱ // 0x279d @0x5
0x2798…27a3 at0006 = ╱50╱P╱ // 0x279e @0x6
0x2798…27a3 at0007 = ╱4f╱O╱ // 0x279f @0x7
0x2798…27a3 at0008 = ╱53╱S╱ // 0x27a0 @0x8
0x2798…27a3 at0009 = ╱54╱T╱ // 0x27a1 @0x9
0x2798…27a3 at000a = EOL // 0x27a2 @0xa
0x2798…27a3 }
0x27a3…27b6 b50d 3970 EXEC BPOST(0)
0x27a3…27b6 LineComalBin {
0x27a3…27b6 ptr = 0xb50d // 0x27a3 @0x0
0x27a3…27b6 lno = 0x0f82 // 0x27a5 @0x2
0x27a3…27b6 at0004 = ╱9d╱ EXEC ╱ // 0x27a7 @0x4
0x27a3…27b6 at0005 = ╱42╱B╱ // 0x27a8 @0x5
0x27a3…27b6 at0006 = ╱50╱P╱ // 0x27a9 @0x6
0x27a3…27b6 at0007 = ╱4f╱O╱ // 0x27aa @0x7
0x27a3…27b6 at0008 = ╱53╱S╱ // 0x27ab @0x8
0x27a3…27b6 at0009 = ╱54╱T╱ // 0x27ac @0x9
0x27a3…27b6 at000a = ╱ed╱(╱ // 0x27ad @0xa
0x27a3…27b6 at000b = ╱30╱0╱ // 0x27ae @0xb
0x27a3…27b6 at000c = ╱fe00000000╱ // 0x27af @0xc
0x27a3…27b6 at0011 = ╱ee╱)╱ // 0x27b4 @0x11
0x27a3…27b6 at0012 = EOL // 0x27b5 @0x12
0x27a3…27b6 }
0x27b6…27dc b533 3980 PRINT TAB(24);VARTEKST$;TAB(66);
0x27b6…27dc LineComalBin {
0x27b6…27dc ptr = 0xb533 // 0x27b6 @0x0
0x27b6…27dc lno = 0x0f8c // 0x27b8 @0x2
0x27b6…27dc at0004 = ╱92╱ PRINT ╱ // 0x27ba @0x4
0x27b6…27dc at0005 = ╱d2╱TAB╱ // 0x27bb @0x5
0x27b6…27dc at0006 = ╱ed╱(╱ // 0x27bc @0x6
0x27b6…27dc at0007 = ╱32╱2╱ // 0x27bd @0x7
0x27b6…27dc at0008 = ╱34╱4╱ // 0x27be @0x8
0x27b6…27dc at0009 = ╱fe0000c005╱ // 0x27bf @0x9
0x27b6…27dc at000e = ╱ee╱)╱ // 0x27c4 @0xe
0x27b6…27dc at000f = ╱eb╱;╱ // 0x27c5 @0xf
0x27b6…27dc at0010 = ╱56╱V╱ // 0x27c6 @0x10
0x27b6…27dc at0011 = ╱41╱A╱ // 0x27c7 @0x11
0x27b6…27dc at0012 = ╱52╱R╱ // 0x27c8 @0x12
0x27b6…27dc at0013 = ╱54╱T╱ // 0x27c9 @0x13
0x27b6…27dc at0014 = ╱45╱E╱ // 0x27ca @0x14
0x27b6…27dc at0015 = ╱4b╱K╱ // 0x27cb @0x15
0x27b6…27dc at0016 = ╱53╱S╱ // 0x27cc @0x16
0x27b6…27dc at0017 = ╱54╱T╱ // 0x27cd @0x17
0x27b6…27dc at0018 = ╱ef╱$╱ // 0x27ce @0x18
0x27b6…27dc at0019 = ╱eb╱;╱ // 0x27cf @0x19
0x27b6…27dc at001a = ╱d2╱TAB╱ // 0x27d0 @0x1a
0x27b6…27dc at001b = ╱ed╱(╱ // 0x27d1 @0x1b
0x27b6…27dc at001c = ╱36╱6╱ // 0x27d2 @0x1c
0x27b6…27dc at001d = ╱36╱6╱ // 0x27d3 @0x1d
0x27b6…27dc at001e = ╱fe00008407╱ // 0x27d4 @0x1e
0x27b6…27dc at0023 = ╱ee╱)╱ // 0x27d9 @0x23
0x27b6…27dc at0024 = ╱eb╱;╱ // 0x27da @0x24
0x27b6…27dc at0025 = EOL // 0x27db @0x25
0x27b6…27dc }
0x27dc…27f7 b54e 3990 EXEC TUD(BELØB$,TAL4$,E,B)
0x27dc…27f7 LineComalBin {
0x27dc…27f7 ptr = 0xb54e // 0x27dc @0x0
0x27dc…27f7 lno = 0x0f96 // 0x27de @0x2
0x27dc…27f7 at0004 = ╱9d╱ EXEC ╱ // 0x27e0 @0x4
0x27dc…27f7 at0005 = ╱54╱T╱ // 0x27e1 @0x5
0x27dc…27f7 at0006 = ╱55╱U╱ // 0x27e2 @0x6
0x27dc…27f7 at0007 = ╱44╱D╱ // 0x27e3 @0x7
0x27dc…27f7 at0008 = ╱ed╱(╱ // 0x27e4 @0x8
0x27dc…27f7 at0009 = ╱42╱B╱ // 0x27e5 @0x9
0x27dc…27f7 at000a = ╱45╱E╱ // 0x27e6 @0xa
0x27dc…27f7 at000b = ╱4c╱L╱ // 0x27e7 @0xb
0x27dc…27f7 at000c = ╱5c╱Ø╱ // 0x27e8 @0xc
0x27dc…27f7 at000d = ╱42╱B╱ // 0x27e9 @0xd
0x27dc…27f7 at000e = ╱ef╱$╱ // 0x27ea @0xe
0x27dc…27f7 at000f = ╱ec╱,╱ // 0x27eb @0xf
0x27dc…27f7 at0010 = ╱54╱T╱ // 0x27ec @0x10
0x27dc…27f7 at0011 = ╱41╱A╱ // 0x27ed @0x11
0x27dc…27f7 at0012 = ╱4c╱L╱ // 0x27ee @0x12
0x27dc…27f7 at0013 = ╱34╱4╱ // 0x27ef @0x13
0x27dc…27f7 at0014 = ╱ef╱$╱ // 0x27f0 @0x14
0x27dc…27f7 at0015 = ╱ec╱,╱ // 0x27f1 @0x15
0x27dc…27f7 at0016 = ╱45╱E╱ // 0x27f2 @0x16
0x27dc…27f7 at0017 = ╱ec╱,╱ // 0x27f3 @0x17
0x27dc…27f7 at0018 = ╱42╱B╱ // 0x27f4 @0x18
0x27dc…27f7 at0019 = ╱ee╱)╱ // 0x27f5 @0x19
0x27dc…27f7 at001a = EOL // 0x27f6 @0x1a
0x27dc…27f7 }
0x27f7…2819 b570 4000 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$)
0x27f7…2819 LineComalBin {
0x27f7…2819 ptr = 0xb570 // 0x27f7 @0x0
0x27f7…2819 lno = 0x0fa0 // 0x27f9 @0x2
0x27f7…2819 at0004 = ╱9d╱ EXEC ╱ // 0x27fb @0x4
0x27f7…2819 at0005 = ╱43╱C╱ // 0x27fc @0x5
0x27f7…2819 at0006 = ╱41╱A╱ // 0x27fd @0x6
0x27f7…2819 at0007 = ╱4c╱L╱ // 0x27fe @0x7
0x27f7…2819 at0008 = ╱43╱C╱ // 0x27ff @0x8
0x27f7…2819 at0009 = ╱ed╱(╱ // 0x2800 @0x9
0x27f7…2819 at000a = ╱42╱B╱ // 0x2801 @0xa
0x27f7…2819 at000b = ╱ec╱,╱ // 0x2802 @0xb
0x27f7…2819 at000c = ╱54╱T╱ // 0x2803 @0xc
0x27f7…2819 at000d = ╱4f╱O╱ // 0x2804 @0xd
0x27f7…2819 at000e = ╱54╱T╱ // 0x2805 @0xe
0x27f7…2819 at000f = ╱41╱A╱ // 0x2806 @0xf
0x27f7…2819 at0010 = ╱4c╱L╱ // 0x2807 @0x10
0x27f7…2819 at0011 = ╱ef╱$╱ // 0x2808 @0x11
0x27f7…2819 at0012 = ╱ec╱,╱ // 0x2809 @0x12
0x27f7…2819 at0013 = ╱42╱B╱ // 0x280a @0x13
0x27f7…2819 at0014 = ╱45╱E╱ // 0x280b @0x14
0x27f7…2819 at0015 = ╱4c╱L╱ // 0x280c @0x15
0x27f7…2819 at0016 = ╱5c╱Ø╱ // 0x280d @0x16
0x27f7…2819 at0017 = ╱42╱B╱ // 0x280e @0x17
0x27f7…2819 at0018 = ╱ef╱$╱ // 0x280f @0x18
0x27f7…2819 at0019 = ╱ec╱,╱ // 0x2810 @0x19
0x27f7…2819 at001a = ╱54╱T╱ // 0x2811 @0x1a
0x27f7…2819 at001b = ╱4f╱O╱ // 0x2812 @0x1b
0x27f7…2819 at001c = ╱54╱T╱ // 0x2813 @0x1c
0x27f7…2819 at001d = ╱41╱A╱ // 0x2814 @0x1d
0x27f7…2819 at001e = ╱4c╱L╱ // 0x2815 @0x1e
0x27f7…2819 at001f = ╱ef╱$╱ // 0x2816 @0x1f
0x27f7…2819 at0020 = ╱ee╱)╱ // 0x2817 @0x20
0x27f7…2819 at0021 = EOL // 0x2818 @0x21
0x27f7…2819 }
0x2819…2865 b5bc 4010 GBELØB$=BELØB$;VARKONT=DIVNR;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT
0x2819…2865 LineComalBin {
0x2819…2865 ptr = 0xb5bc // 0x2819 @0x0
0x2819…2865 lno = 0x0faa // 0x281b @0x2
0x2819…2865 at0004 = ╱47╱G╱ // 0x281d @0x4
0x2819…2865 at0005 = ╱42╱B╱ // 0x281e @0x5
0x2819…2865 at0006 = ╱45╱E╱ // 0x281f @0x6
0x2819…2865 at0007 = ╱4c╱L╱ // 0x2820 @0x7
0x2819…2865 at0008 = ╱5c╱Ø╱ // 0x2821 @0x8
0x2819…2865 at0009 = ╱42╱B╱ // 0x2822 @0x9
0x2819…2865 at000a = ╱ef╱$╱ // 0x2823 @0xa
0x2819…2865 at000b = ╱dc╱=╱ // 0x2824 @0xb
0x2819…2865 at000c = ╱42╱B╱ // 0x2825 @0xc
0x2819…2865 at000d = ╱45╱E╱ // 0x2826 @0xd
0x2819…2865 at000e = ╱4c╱L╱ // 0x2827 @0xe
0x2819…2865 at000f = ╱5c╱Ø╱ // 0x2828 @0xf
0x2819…2865 at0010 = ╱42╱B╱ // 0x2829 @0x10
0x2819…2865 at0011 = ╱ef╱$╱ // 0x282a @0x11
0x2819…2865 at0012 = ╱eb╱;╱ // 0x282b @0x12
0x2819…2865 at0013 = ╱56╱V╱ // 0x282c @0x13
0x2819…2865 at0014 = ╱41╱A╱ // 0x282d @0x14
0x2819…2865 at0015 = ╱52╱R╱ // 0x282e @0x15
0x2819…2865 at0016 = ╱4b╱K╱ // 0x282f @0x16
0x2819…2865 at0017 = ╱4f╱O╱ // 0x2830 @0x17
0x2819…2865 at0018 = ╱4e╱N╱ // 0x2831 @0x18
0x2819…2865 at0019 = ╱54╱T╱ // 0x2832 @0x19
0x2819…2865 at001a = ╱dc╱=╱ // 0x2833 @0x1a
0x2819…2865 at001b = ╱44╱D╱ // 0x2834 @0x1b
0x2819…2865 at001c = ╱49╱I╱ // 0x2835 @0x1c
0x2819…2865 at001d = ╱56╱V╱ // 0x2836 @0x1d
0x2819…2865 at001e = ╱4e╱N╱ // 0x2837 @0x1e
0x2819…2865 at001f = ╱52╱R╱ // 0x2838 @0x1f
0x2819…2865 at0020 = ╱eb╱;╱ // 0x2839 @0x20
0x2819…2865 at0021 = ╱45╱E╱ // 0x283a @0x21
0x2819…2865 at0022 = ╱4e╱N╱ // 0x283b @0x22
0x2819…2865 at0023 = ╱54╱T╱ // 0x283c @0x23
0x2819…2865 at0024 = ╱4e╱N╱ // 0x283d @0x24
0x2819…2865 at0025 = ╱52╱R╱ // 0x283e @0x25
0x2819…2865 at0026 = ╱dc╱=╱ // 0x283f @0x26
0x2819…2865 at0027 = ╱ed╱(╱ // 0x2840 @0x27
0x2819…2865 at0028 = ╱4f╱O╱ // 0x2841 @0x28
0x2819…2865 at0029 = ╱52╱R╱ // 0x2842 @0x29
0x2819…2865 at002a = ╱44╱D╱ // 0x2843 @0x2a
0x2819…2865 at002b = ╱52╱R╱ // 0x2844 @0x2b
0x2819…2865 at002c = ╱45╱E╱ // 0x2845 @0x2c
0x2819…2865 at002d = ╱4e╱N╱ // 0x2846 @0x2d
0x2819…2865 at002e = ╱52╱R╱ // 0x2847 @0x2e
0x2819…2865 at002f = ╱e7╱ DIV ╱ // 0x2848 @0x2f
0x2819…2865 at0030 = ╱31╱1╱ // 0x2849 @0x30
0x2819…2865 at0031 = ╱30╱0╱ // 0x284a @0x31
0x2819…2865 at0032 = ╱30╱0╱ // 0x284b @0x32
0x2819…2865 at0033 = ╱fe0000c807╱ // 0x284c @0x33
0x2819…2865 at0038 = ╱ee╱)╱ // 0x2851 @0x38
0x2819…2865 at0039 = ╱e4╱*╱ // 0x2852 @0x39
0x2819…2865 at003a = ╱31╱1╱ // 0x2853 @0x3a
0x2819…2865 at003b = ╱30╱0╱ // 0x2854 @0x3b
0x2819…2865 at003c = ╱30╱0╱ // 0x2855 @0x3c
0x2819…2865 at003d = ╱fe0000c807╱ // 0x2856 @0x3d
0x2819…2865 at0042 = ╱e2╱+╱ // 0x285b @0x42
0x2819…2865 at0043 = ╱44╱D╱ // 0x285c @0x43
0x2819…2865 at0044 = ╱55╱U╱ // 0x285d @0x44
0x2819…2865 at0045 = ╱4e╱N╱ // 0x285e @0x45
0x2819…2865 at0046 = ╱44╱D╱ // 0x285f @0x46
0x2819…2865 at0047 = ╱4b╱K╱ // 0x2860 @0x47
0x2819…2865 at0048 = ╱4f╱O╱ // 0x2861 @0x48
0x2819…2865 at0049 = ╱4e╱N╱ // 0x2862 @0x49
0x2819…2865 at004a = ╱54╱T╱ // 0x2863 @0x4a
0x2819…2865 at004b = EOL // 0x2864 @0x4b
0x2819…2865 }
0x2865…287a b5d1 4020 IF GEN=B THEN EXEC VJOURNAL
0x2865…287a LineComalBin {
0x2865…287a ptr = 0xb5d1 // 0x2865 @0x0
0x2865…287a lno = 0x0fb4 // 0x2867 @0x2
0x2865…287a at0004 = ╱82╱ IF ╱ // 0x2869 @0x4
0x2865…287a at0005 = ╱47╱G╱ // 0x286a @0x5
0x2865…287a at0006 = ╱45╱E╱ // 0x286b @0x6
0x2865…287a at0007 = ╱4e╱N╱ // 0x286c @0x7
0x2865…287a at0008 = ╱dc╱=╱ // 0x286d @0x8
0x2865…287a at0009 = ╱42╱B╱ // 0x286e @0x9
0x2865…287a at000a = ╱b6╱ THEN ╱ // 0x286f @0xa
0x2865…287a at000b = ╱9d╱ EXEC ╱ // 0x2870 @0xb
0x2865…287a at000c = ╱56╱V╱ // 0x2871 @0xc
0x2865…287a at000d = ╱4a╱J╱ // 0x2872 @0xd
0x2865…287a at000e = ╱4f╱O╱ // 0x2873 @0xe
0x2865…287a at000f = ╱55╱U╱ // 0x2874 @0xf
0x2865…287a at0010 = ╱52╱R╱ // 0x2875 @0x10
0x2865…287a at0011 = ╱4e╱N╱ // 0x2876 @0x11
0x2865…287a at0012 = ╱41╱A╱ // 0x2877 @0x12
0x2865…287a at0013 = ╱4c╱L╱ // 0x2878 @0x13
0x2865…287a at0014 = EOL // 0x2879 @0x14
0x2865…287a }
0x287a…2884 b5db 4030 WHEN "F"
0x287a…2884 LineComalBin {
0x287a…2884 ptr = 0xb5db // 0x287a @0x0
0x287a…2884 lno = 0x0fbe // 0x287c @0x2
0x287a…2884 at0004 = ╱a300╱ WHEN ╱ // 0x287e @0x4
0x287a…2884 at0006 = ╱22╱"╱ // 0x2880 @0x6
0x287a…2884 at0007 = ╱46╱F╱ // 0x2881 @0x7
0x287a…2884 at0008 = ╱22╱"╱ // 0x2882 @0x8
0x287a…2884 at0009 = EOL // 0x2883 @0x9
0x287a…2884 }
0x2884…288f b5e6 4040 EXEC VPOST
0x2884…288f LineComalBin {
0x2884…288f ptr = 0xb5e6 // 0x2884 @0x0
0x2884…288f lno = 0x0fc8 // 0x2886 @0x2
0x2884…288f at0004 = ╱9d╱ EXEC ╱ // 0x2888 @0x4
0x2884…288f at0005 = ╱56╱V╱ // 0x2889 @0x5
0x2884…288f at0006 = ╱50╱P╱ // 0x288a @0x6
0x2884…288f at0007 = ╱4f╱O╱ // 0x288b @0x7
0x2884…288f at0008 = ╱53╱S╱ // 0x288c @0x8
0x2884…288f at0009 = ╱54╱T╱ // 0x288d @0x9
0x2884…288f at000a = EOL // 0x288e @0xa
0x2884…288f }
0x288f…28c3 b61a 4050 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)
0x288f…28c3 LineComalBin {
0x288f…28c3 ptr = 0xb61a // 0x288f @0x0
0x288f…28c3 lno = 0x0fd2 // 0x2891 @0x2
0x288f…28c3 at0004 = ╱9d╱ EXEC ╱ // 0x2893 @0x4
0x288f…28c3 at0005 = ╱46╱F╱ // 0x2894 @0x5
0x288f…28c3 at0006 = ╱49╱I╱ // 0x2895 @0x6
0x288f…28c3 at0007 = ╱4e╱N╱ // 0x2896 @0x7
0x288f…28c3 at0008 = ╱44╱D╱ // 0x2897 @0x8
0x288f…28c3 at0009 = ╱50╱P╱ // 0x2898 @0x9
0x288f…28c3 at000a = ╱4f╱O╱ // 0x2899 @0xa
0x288f…28c3 at000b = ╱53╱S╱ // 0x289a @0xb
0x288f…28c3 at000c = ╱54╱T╱ // 0x289b @0xc
0x288f…28c3 at000d = ╱31╱1╱ // 0x289c @0xd
0x288f…28c3 at000e = ╱ed╱(╱ // 0x289d @0xe
0x288f…28c3 at000f = ╱56╱V╱ // 0x289e @0xf
0x288f…28c3 at0010 = ╱54╱T╱ // 0x289f @0x10
0x288f…28c3 at0011 = ╱41╱A╱ // 0x28a0 @0x11
0x288f…28c3 at0012 = ╱42╱B╱ // 0x28a1 @0x12
0x288f…28c3 at0013 = ╱31╱1╱ // 0x28a2 @0x13
0x288f…28c3 at0014 = ╱ec╱,╱ // 0x28a3 @0x14
0x288f…28c3 at0015 = ╱56╱V╱ // 0x28a4 @0x15
0x288f…28c3 at0016 = ╱54╱T╱ // 0x28a5 @0x16
0x288f…28c3 at0017 = ╱41╱A╱ // 0x28a6 @0x17
0x288f…28c3 at0018 = ╱42╱B╱ // 0x28a7 @0x18
0x288f…28c3 at0019 = ╱ec╱,╱ // 0x28a8 @0x19
0x288f…28c3 at001a = ╱4d╱M╱ // 0x28a9 @0x1a
0x288f…28c3 at001b = ╱56╱V╱ // 0x28aa @0x1b
0x288f…28c3 at001c = ╱41╱A╱ // 0x28ab @0x1c
0x288f…28c3 at001d = ╱4e╱N╱ // 0x28ac @0x1d
0x288f…28c3 at001e = ╱54╱T╱ // 0x28ad @0x1e
0x288f…28c3 at001f = ╱41╱A╱ // 0x28ae @0x1f
0x288f…28c3 at0020 = ╱4c╱L╱ // 0x28af @0x20
0x288f…28c3 at0021 = ╱ec╱,╱ // 0x28b0 @0x21
0x288f…28c3 at0022 = ╱56╱V╱ // 0x28b1 @0x22
0x288f…28c3 at0023 = ╱41╱A╱ // 0x28b2 @0x23
0x288f…28c3 at0024 = ╱52╱R╱ // 0x28b3 @0x24
0x288f…28c3 at0025 = ╱45╱E╱ // 0x28b4 @0x25
0x288f…28c3 at0026 = ╱4e╱N╱ // 0x28b5 @0x26
0x288f…28c3 at0027 = ╱52╱R╱ // 0x28b6 @0x27
0x288f…28c3 at0028 = ╱ec╱,╱ // 0x28b7 @0x28
0x288f…28c3 at0029 = ╱56╱V╱ // 0x28b8 @0x29
0x288f…28c3 at002a = ╱50╱P╱ // 0x28b9 @0x2a
0x288f…28c3 at002b = ╱49╱I╱ // 0x28ba @0x2b
0x288f…28c3 at002c = ╱4c╱L╱ // 0x28bb @0x2c
0x288f…28c3 at002d = ╱33╱3╱ // 0x28bc @0x2d
0x288f…28c3 at002e = ╱ec╱,╱ // 0x28bd @0x2e
0x288f…28c3 at002f = ╱4b╱K╱ // 0x28be @0x2f
0x288f…28c3 at0030 = ╱33╱3╱ // 0x28bf @0x30
0x288f…28c3 at0031 = ╱ef╱$╱ // 0x28c0 @0x31
0x288f…28c3 at0032 = ╱ee╱)╱ // 0x28c1 @0x32
0x288f…28c3 at0033 = EOL // 0x28c2 @0x33
0x288f…28c3 }
0x28c3…28d1 b628 4060 IF CEKS=E THEN STOP
0x28c3…28d1 LineComalBin {
0x28c3…28d1 ptr = 0xb628 // 0x28c3 @0x0
0x28c3…28d1 lno = 0x0fdc // 0x28c5 @0x2
0x28c3…28d1 at0004 = ╱82╱ IF ╱ // 0x28c7 @0x4
0x28c3…28d1 at0005 = ╱43╱C╱ // 0x28c8 @0x5
0x28c3…28d1 at0006 = ╱45╱E╱ // 0x28c9 @0x6
0x28c3…28d1 at0007 = ╱4b╱K╱ // 0x28ca @0x7
0x28c3…28d1 at0008 = ╱53╱S╱ // 0x28cb @0x8
0x28c3…28d1 at0009 = ╱dc╱=╱ // 0x28cc @0x9
0x28c3…28d1 at000a = ╱45╱E╱ // 0x28cd @0xa
0x28c3…28d1 at000b = ╱b6╱ THEN ╱ // 0x28ce @0xb
0x28c3…28d1 at000c = ╱8d╱ STOP ╱ // 0x28cf @0xc
0x28c3…28d1 at000d = EOL // 0x28d0 @0xd
0x28c3…28d1 }
0x28d1…28e0 b637 4070 EXEC HENTVPOST
0x28d1…28e0 LineComalBin {
0x28d1…28e0 ptr = 0xb637 // 0x28d1 @0x0
0x28d1…28e0 lno = 0x0fe6 // 0x28d3 @0x2
0x28d1…28e0 at0004 = ╱9d╱ EXEC ╱ // 0x28d5 @0x4
0x28d1…28e0 at0005 = ╱48╱H╱ // 0x28d6 @0x5
0x28d1…28e0 at0006 = ╱45╱E╱ // 0x28d7 @0x6
0x28d1…28e0 at0007 = ╱4e╱N╱ // 0x28d8 @0x7
0x28d1…28e0 at0008 = ╱54╱T╱ // 0x28d9 @0x8
0x28d1…28e0 at0009 = ╱56╱V╱ // 0x28da @0x9
0x28d1…28e0 at000a = ╱50╱P╱ // 0x28db @0xa
0x28d1…28e0 at000b = ╱4f╱O╱ // 0x28dc @0xb
0x28d1…28e0 at000c = ╱53╱S╱ // 0x28dd @0xc
0x28d1…28e0 at000d = ╱54╱T╱ // 0x28de @0xd
0x28d1…28e0 at000e = EOL // 0x28df @0xe
0x28d1…28e0 }
0x28e0…28f3 b64a 4080 EXEC BPOST(1)
0x28e0…28f3 LineComalBin {
0x28e0…28f3 ptr = 0xb64a // 0x28e0 @0x0
0x28e0…28f3 lno = 0x0ff0 // 0x28e2 @0x2
0x28e0…28f3 at0004 = ╱9d╱ EXEC ╱ // 0x28e4 @0x4
0x28e0…28f3 at0005 = ╱42╱B╱ // 0x28e5 @0x5
0x28e0…28f3 at0006 = ╱50╱P╱ // 0x28e6 @0x6
0x28e0…28f3 at0007 = ╱4f╱O╱ // 0x28e7 @0x7
0x28e0…28f3 at0008 = ╱53╱S╱ // 0x28e8 @0x8
0x28e0…28f3 at0009 = ╱54╱T╱ // 0x28e9 @0x9
0x28e0…28f3 at000a = ╱ed╱(╱ // 0x28ea @0xa
0x28e0…28f3 at000b = ╱31╱1╱ // 0x28eb @0xb
0x28e0…28f3 at000c = ╱fe00008001╱ // 0x28ec @0xc
0x28e0…28f3 at0011 = ╱ee╱)╱ // 0x28f1 @0x11
0x28e0…28f3 at0012 = EOL // 0x28f2 @0x12
0x28e0…28f3 }
0x28f3…28fc b653 4090 EXEC VUD
0x28f3…28fc LineComalBin {
0x28f3…28fc ptr = 0xb653 // 0x28f3 @0x0
0x28f3…28fc lno = 0x0ffa // 0x28f5 @0x2
0x28f3…28fc at0004 = ╱9d╱ EXEC ╱ // 0x28f7 @0x4
0x28f3…28fc at0005 = ╱56╱V╱ // 0x28f8 @0x5
0x28f3…28fc at0006 = ╱55╱U╱ // 0x28f9 @0x6
0x28f3…28fc at0007 = ╱44╱D╱ // 0x28fa @0x7
0x28f3…28fc at0008 = EOL // 0x28fb @0x8
0x28f3…28fc }
0x28fc…2906 b65d 4100 WHEN "G"
0x28fc…2906 LineComalBin {
0x28fc…2906 ptr = 0xb65d // 0x28fc @0x0
0x28fc…2906 lno = 0x1004 // 0x28fe @0x2
0x28fc…2906 at0004 = ╱a300╱ WHEN ╱ // 0x2900 @0x4
0x28fc…2906 at0006 = ╱22╱"╱ // 0x2902 @0x6
0x28fc…2906 at0007 = ╱47╱G╱ // 0x2903 @0x7
0x28fc…2906 at0008 = ╱22╱"╱ // 0x2904 @0x8
0x28fc…2906 at0009 = EOL // 0x2905 @0x9
0x28fc…2906 }
0x2906…2911 b668 4110 EXEC TPOST
0x2906…2911 LineComalBin {
0x2906…2911 ptr = 0xb668 // 0x2906 @0x0
0x2906…2911 lno = 0x100e // 0x2908 @0x2
0x2906…2911 at0004 = ╱9d╱ EXEC ╱ // 0x290a @0x4
0x2906…2911 at0005 = ╱54╱T╱ // 0x290b @0x5
0x2906…2911 at0006 = ╱50╱P╱ // 0x290c @0x6
0x2906…2911 at0007 = ╱4f╱O╱ // 0x290d @0x7
0x2906…2911 at0008 = ╱53╱S╱ // 0x290e @0x8
0x2906…2911 at0009 = ╱54╱T╱ // 0x290f @0x9
0x2906…2911 at000a = EOL // 0x2910 @0xa
0x2906…2911 }
0x2911…2926 b67d 4120 VARTH$=VARTEKST$
0x2911…2926 LineComalBin {
0x2911…2926 ptr = 0xb67d // 0x2911 @0x0
0x2911…2926 lno = 0x1018 // 0x2913 @0x2
0x2911…2926 at0004 = ╱56╱V╱ // 0x2915 @0x4
0x2911…2926 at0005 = ╱41╱A╱ // 0x2916 @0x5
0x2911…2926 at0006 = ╱52╱R╱ // 0x2917 @0x6
0x2911…2926 at0007 = ╱54╱T╱ // 0x2918 @0x7
0x2911…2926 at0008 = ╱48╱H╱ // 0x2919 @0x8
0x2911…2926 at0009 = ╱ef╱$╱ // 0x291a @0x9
0x2911…2926 at000a = ╱dc╱=╱ // 0x291b @0xa
0x2911…2926 at000b = ╱56╱V╱ // 0x291c @0xb
0x2911…2926 at000c = ╱41╱A╱ // 0x291d @0xc
0x2911…2926 at000d = ╱52╱R╱ // 0x291e @0xd
0x2911…2926 at000e = ╱54╱T╱ // 0x291f @0xe
0x2911…2926 at000f = ╱45╱E╱ // 0x2920 @0xf
0x2911…2926 at0010 = ╱4b╱K╱ // 0x2921 @0x10
0x2911…2926 at0011 = ╱53╱S╱ // 0x2922 @0x11
0x2911…2926 at0012 = ╱54╱T╱ // 0x2923 @0x12
0x2911…2926 at0013 = ╱ef╱$╱ // 0x2924 @0x13
0x2911…2926 at0014 = EOL // 0x2925 @0x14
0x2911…2926 }
0x2926…2931 b688 4130 EXEC VPOST
0x2926…2931 LineComalBin {
0x2926…2931 ptr = 0xb688 // 0x2926 @0x0
0x2926…2931 lno = 0x1022 // 0x2928 @0x2
0x2926…2931 at0004 = ╱9d╱ EXEC ╱ // 0x292a @0x4
0x2926…2931 at0005 = ╱56╱V╱ // 0x292b @0x5
0x2926…2931 at0006 = ╱50╱P╱ // 0x292c @0x6
0x2926…2931 at0007 = ╱4f╱O╱ // 0x292d @0x7
0x2926…2931 at0008 = ╱53╱S╱ // 0x292e @0x8
0x2926…2931 at0009 = ╱54╱T╱ // 0x292f @0x9
0x2926…2931 at000a = EOL // 0x2930 @0xa
0x2926…2931 }
0x2931…2965 b6bc 4140 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)
0x2931…2965 LineComalBin {
0x2931…2965 ptr = 0xb6bc // 0x2931 @0x0
0x2931…2965 lno = 0x102c // 0x2933 @0x2
0x2931…2965 at0004 = ╱9d╱ EXEC ╱ // 0x2935 @0x4
0x2931…2965 at0005 = ╱46╱F╱ // 0x2936 @0x5
0x2931…2965 at0006 = ╱49╱I╱ // 0x2937 @0x6
0x2931…2965 at0007 = ╱4e╱N╱ // 0x2938 @0x7
0x2931…2965 at0008 = ╱44╱D╱ // 0x2939 @0x8
0x2931…2965 at0009 = ╱50╱P╱ // 0x293a @0x9
0x2931…2965 at000a = ╱4f╱O╱ // 0x293b @0xa
0x2931…2965 at000b = ╱53╱S╱ // 0x293c @0xb
0x2931…2965 at000c = ╱54╱T╱ // 0x293d @0xc
0x2931…2965 at000d = ╱31╱1╱ // 0x293e @0xd
0x2931…2965 at000e = ╱ed╱(╱ // 0x293f @0xe
0x2931…2965 at000f = ╱56╱V╱ // 0x2940 @0xf
0x2931…2965 at0010 = ╱54╱T╱ // 0x2941 @0x10
0x2931…2965 at0011 = ╱41╱A╱ // 0x2942 @0x11
0x2931…2965 at0012 = ╱42╱B╱ // 0x2943 @0x12
0x2931…2965 at0013 = ╱31╱1╱ // 0x2944 @0x13
0x2931…2965 at0014 = ╱ec╱,╱ // 0x2945 @0x14
0x2931…2965 at0015 = ╱56╱V╱ // 0x2946 @0x15
0x2931…2965 at0016 = ╱54╱T╱ // 0x2947 @0x16
0x2931…2965 at0017 = ╱41╱A╱ // 0x2948 @0x17
0x2931…2965 at0018 = ╱42╱B╱ // 0x2949 @0x18
0x2931…2965 at0019 = ╱ec╱,╱ // 0x294a @0x19
0x2931…2965 at001a = ╱4d╱M╱ // 0x294b @0x1a
0x2931…2965 at001b = ╱56╱V╱ // 0x294c @0x1b
0x2931…2965 at001c = ╱41╱A╱ // 0x294d @0x1c
0x2931…2965 at001d = ╱4e╱N╱ // 0x294e @0x1d
0x2931…2965 at001e = ╱54╱T╱ // 0x294f @0x1e
0x2931…2965 at001f = ╱41╱A╱ // 0x2950 @0x1f
0x2931…2965 at0020 = ╱4c╱L╱ // 0x2951 @0x20
0x2931…2965 at0021 = ╱ec╱,╱ // 0x2952 @0x21
0x2931…2965 at0022 = ╱56╱V╱ // 0x2953 @0x22
0x2931…2965 at0023 = ╱41╱A╱ // 0x2954 @0x23
0x2931…2965 at0024 = ╱52╱R╱ // 0x2955 @0x24
0x2931…2965 at0025 = ╱45╱E╱ // 0x2956 @0x25
0x2931…2965 at0026 = ╱4e╱N╱ // 0x2957 @0x26
0x2931…2965 at0027 = ╱52╱R╱ // 0x2958 @0x27
0x2931…2965 at0028 = ╱ec╱,╱ // 0x2959 @0x28
0x2931…2965 at0029 = ╱56╱V╱ // 0x295a @0x29
0x2931…2965 at002a = ╱50╱P╱ // 0x295b @0x2a
0x2931…2965 at002b = ╱49╱I╱ // 0x295c @0x2b
0x2931…2965 at002c = ╱4c╱L╱ // 0x295d @0x2c
0x2931…2965 at002d = ╱33╱3╱ // 0x295e @0x2d
0x2931…2965 at002e = ╱ec╱,╱ // 0x295f @0x2e
0x2931…2965 at002f = ╱4b╱K╱ // 0x2960 @0x2f
0x2931…2965 at0030 = ╱33╱3╱ // 0x2961 @0x30
0x2931…2965 at0031 = ╱ef╱$╱ // 0x2962 @0x31
0x2931…2965 at0032 = ╱ee╱)╱ // 0x2963 @0x32
0x2931…2965 at0033 = EOL // 0x2964 @0x33
0x2931…2965 }
0x2965…2973 b6ca 4150 IF CEKS=E THEN STOP
0x2965…2973 LineComalBin {
0x2965…2973 ptr = 0xb6ca // 0x2965 @0x0
0x2965…2973 lno = 0x1036 // 0x2967 @0x2
0x2965…2973 at0004 = ╱82╱ IF ╱ // 0x2969 @0x4
0x2965…2973 at0005 = ╱43╱C╱ // 0x296a @0x5
0x2965…2973 at0006 = ╱45╱E╱ // 0x296b @0x6
0x2965…2973 at0007 = ╱4b╱K╱ // 0x296c @0x7
0x2965…2973 at0008 = ╱53╱S╱ // 0x296d @0x8
0x2965…2973 at0009 = ╱dc╱=╱ // 0x296e @0x9
0x2965…2973 at000a = ╱45╱E╱ // 0x296f @0xa
0x2965…2973 at000b = ╱b6╱ THEN ╱ // 0x2970 @0xb
0x2965…2973 at000c = ╱8d╱ STOP ╱ // 0x2971 @0xc
0x2965…2973 at000d = EOL // 0x2972 @0xd
0x2965…2973 }
0x2973…2982 b6d9 4160 EXEC HENTVPOST
0x2973…2982 LineComalBin {
0x2973…2982 ptr = 0xb6d9 // 0x2973 @0x0
0x2973…2982 lno = 0x1040 // 0x2975 @0x2
0x2973…2982 at0004 = ╱9d╱ EXEC ╱ // 0x2977 @0x4
0x2973…2982 at0005 = ╱48╱H╱ // 0x2978 @0x5
0x2973…2982 at0006 = ╱45╱E╱ // 0x2979 @0x6
0x2973…2982 at0007 = ╱4e╱N╱ // 0x297a @0x7
0x2973…2982 at0008 = ╱54╱T╱ // 0x297b @0x8
0x2973…2982 at0009 = ╱56╱V╱ // 0x297c @0x9
0x2973…2982 at000a = ╱50╱P╱ // 0x297d @0xa
0x2973…2982 at000b = ╱4f╱O╱ // 0x297e @0xb
0x2973…2982 at000c = ╱53╱S╱ // 0x297f @0xc
0x2973…2982 at000d = ╱54╱T╱ // 0x2980 @0xd
0x2973…2982 at000e = EOL // 0x2981 @0xe
0x2973…2982 }
0x2982…2997 (138,) b6ee 4170 VARTEKST$=VARTH$
0x2982…2997 LineComalBin {
0x2982…2997 ptr = 0xb6ee // 0x2982 @0x0
0x2982…2997 lno = 0x104a // 0x2984 @0x2
0x2982…2997 at0004 = ╱56╱V╱ // 0x2986 @0x4
0x2982…2997 at0005 = ╱41╱A╱ // 0x2987 @0x5
0x2982…2997 at0006 = ╱52╱R╱ // 0x2988 @0x6
0x2982…2997 at0007 = ╱54╱T╱ // 0x2989 @0x7
0x2982…2997 at0008 = ╱45╱E╱ // 0x298a @0x8
0x2982…2997 at0009 = ╱4b╱K╱ // 0x298b @0x9
0x2982…2997 at000a = ╱53╱S╱ // 0x298c @0xa
0x2982…2997 at000b = ╱54╱T╱ // 0x298d @0xb
0x2982…2997 at000c = ╱ef╱$╱ // 0x298e @0xc
0x2982…2997 at000d = ╱dc╱=╱ // 0x298f @0xd
0x2982…2997 at000e = ╱56╱V╱ // 0x2990 @0xe
0x2982…2997 at000f = ╱41╱A╱ // 0x2991 @0xf
0x2982…2997 at0010 = ╱52╱R╱ // 0x2992 @0x10
0x2982…2997 at0011 = ╱54╱T╱ // 0x2993 @0x11
0x2982…2997 at0012 = ╱48╱H╱ // 0x2994 @0x12
0x2982…2997 at0013 = ╱ef╱$╱ // 0x2995 @0x13
0x2982…2997 at0014 = EOL // 0x2996 @0x14
0x2982…2997 }
0x2997…29a0 b6f7 4180 EXEC VUD
0x2997…29a0 LineComalBin {
0x2997…29a0 ptr = 0xb6f7 // 0x2997 @0x0
0x2997…29a0 lno = 0x1054 // 0x2999 @0x2
0x2997…29a0 at0004 = ╱9d╱ EXEC ╱ // 0x299b @0x4
0x2997…29a0 at0005 = ╱56╱V╱ // 0x299c @0x5
0x2997…29a0 at0006 = ╱55╱U╱ // 0x299d @0x6
0x2997…29a0 at0007 = ╱44╱D╱ // 0x299e @0x7
0x2997…29a0 at0008 = EOL // 0x299f @0x8
0x2997…29a0 }
0x29a0…29aa b701 4190 WHEN "H"
0x29a0…29aa LineComalBin {
0x29a0…29aa ptr = 0xb701 // 0x29a0 @0x0
0x29a0…29aa lno = 0x105e // 0x29a2 @0x2
0x29a0…29aa at0004 = ╱a300╱ WHEN ╱ // 0x29a4 @0x4
0x29a0…29aa at0006 = ╱22╱"╱ // 0x29a6 @0x6
0x29a0…29aa at0007 = ╱48╱H╱ // 0x29a7 @0x7
0x29a0…29aa at0008 = ╱22╱"╱ // 0x29a8 @0x8
0x29a0…29aa at0009 = EOL // 0x29a9 @0x9
0x29a0…29aa }
0x29aa…29b5 b70c 4200 EXEC TPOST
0x29aa…29b5 LineComalBin {
0x29aa…29b5 ptr = 0xb70c // 0x29aa @0x0
0x29aa…29b5 lno = 0x1068 // 0x29ac @0x2
0x29aa…29b5 at0004 = ╱9d╱ EXEC ╱ // 0x29ae @0x4
0x29aa…29b5 at0005 = ╱54╱T╱ // 0x29af @0x5
0x29aa…29b5 at0006 = ╱50╱P╱ // 0x29b0 @0x6
0x29aa…29b5 at0007 = ╱4f╱O╱ // 0x29b1 @0x7
0x29aa…29b5 at0008 = ╱53╱S╱ // 0x29b2 @0x8
0x29aa…29b5 at0009 = ╱54╱T╱ // 0x29b3 @0x9
0x29aa…29b5 at000a = EOL // 0x29b4 @0xa
0x29aa…29b5 }
0x29b5…29ca b721 4210 VARTH$=VARTEKST$
0x29b5…29ca LineComalBin {
0x29b5…29ca ptr = 0xb721 // 0x29b5 @0x0
0x29b5…29ca lno = 0x1072 // 0x29b7 @0x2
0x29b5…29ca at0004 = ╱56╱V╱ // 0x29b9 @0x4
0x29b5…29ca at0005 = ╱41╱A╱ // 0x29ba @0x5
0x29b5…29ca at0006 = ╱52╱R╱ // 0x29bb @0x6
0x29b5…29ca at0007 = ╱54╱T╱ // 0x29bc @0x7
0x29b5…29ca at0008 = ╱48╱H╱ // 0x29bd @0x8
0x29b5…29ca at0009 = ╱ef╱$╱ // 0x29be @0x9
0x29b5…29ca at000a = ╱dc╱=╱ // 0x29bf @0xa
0x29b5…29ca at000b = ╱56╱V╱ // 0x29c0 @0xb
0x29b5…29ca at000c = ╱41╱A╱ // 0x29c1 @0xc
0x29b5…29ca at000d = ╱52╱R╱ // 0x29c2 @0xd
0x29b5…29ca at000e = ╱54╱T╱ // 0x29c3 @0xe
0x29b5…29ca at000f = ╱45╱E╱ // 0x29c4 @0xf
0x29b5…29ca at0010 = ╱4b╱K╱ // 0x29c5 @0x10
0x29b5…29ca at0011 = ╱53╱S╱ // 0x29c6 @0x11
0x29b5…29ca at0012 = ╱54╱T╱ // 0x29c7 @0x12
0x29b5…29ca at0013 = ╱ef╱$╱ // 0x29c8 @0x13
0x29b5…29ca at0014 = EOL // 0x29c9 @0x14
0x29b5…29ca }
0x29ca…29d5 b72c 4220 EXEC VPOST
0x29ca…29d5 LineComalBin {
0x29ca…29d5 ptr = 0xb72c // 0x29ca @0x0
0x29ca…29d5 lno = 0x107c // 0x29cc @0x2
0x29ca…29d5 at0004 = ╱9d╱ EXEC ╱ // 0x29ce @0x4
0x29ca…29d5 at0005 = ╱56╱V╱ // 0x29cf @0x5
0x29ca…29d5 at0006 = ╱50╱P╱ // 0x29d0 @0x6
0x29ca…29d5 at0007 = ╱4f╱O╱ // 0x29d1 @0x7
0x29ca…29d5 at0008 = ╱53╱S╱ // 0x29d2 @0x8
0x29ca…29d5 at0009 = ╱54╱T╱ // 0x29d3 @0x9
0x29ca…29d5 at000a = EOL // 0x29d4 @0xa
0x29ca…29d5 }
0x29d5…2a09 b760 4230 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)
0x29d5…2a09 LineComalBin {
0x29d5…2a09 ptr = 0xb760 // 0x29d5 @0x0
0x29d5…2a09 lno = 0x1086 // 0x29d7 @0x2
0x29d5…2a09 at0004 = ╱9d╱ EXEC ╱ // 0x29d9 @0x4
0x29d5…2a09 at0005 = ╱46╱F╱ // 0x29da @0x5
0x29d5…2a09 at0006 = ╱49╱I╱ // 0x29db @0x6
0x29d5…2a09 at0007 = ╱4e╱N╱ // 0x29dc @0x7
0x29d5…2a09 at0008 = ╱44╱D╱ // 0x29dd @0x8
0x29d5…2a09 at0009 = ╱50╱P╱ // 0x29de @0x9
0x29d5…2a09 at000a = ╱4f╱O╱ // 0x29df @0xa
0x29d5…2a09 at000b = ╱53╱S╱ // 0x29e0 @0xb
0x29d5…2a09 at000c = ╱54╱T╱ // 0x29e1 @0xc
0x29d5…2a09 at000d = ╱31╱1╱ // 0x29e2 @0xd
0x29d5…2a09 at000e = ╱ed╱(╱ // 0x29e3 @0xe
0x29d5…2a09 at000f = ╱56╱V╱ // 0x29e4 @0xf
0x29d5…2a09 at0010 = ╱54╱T╱ // 0x29e5 @0x10
0x29d5…2a09 at0011 = ╱41╱A╱ // 0x29e6 @0x11
0x29d5…2a09 at0012 = ╱42╱B╱ // 0x29e7 @0x12
0x29d5…2a09 at0013 = ╱31╱1╱ // 0x29e8 @0x13
0x29d5…2a09 at0014 = ╱ec╱,╱ // 0x29e9 @0x14
0x29d5…2a09 at0015 = ╱56╱V╱ // 0x29ea @0x15
0x29d5…2a09 at0016 = ╱54╱T╱ // 0x29eb @0x16
0x29d5…2a09 at0017 = ╱41╱A╱ // 0x29ec @0x17
0x29d5…2a09 at0018 = ╱42╱B╱ // 0x29ed @0x18
0x29d5…2a09 at0019 = ╱ec╱,╱ // 0x29ee @0x19
0x29d5…2a09 at001a = ╱4d╱M╱ // 0x29ef @0x1a
0x29d5…2a09 at001b = ╱56╱V╱ // 0x29f0 @0x1b
0x29d5…2a09 at001c = ╱41╱A╱ // 0x29f1 @0x1c
0x29d5…2a09 at001d = ╱4e╱N╱ // 0x29f2 @0x1d
0x29d5…2a09 at001e = ╱54╱T╱ // 0x29f3 @0x1e
0x29d5…2a09 at001f = ╱41╱A╱ // 0x29f4 @0x1f
0x29d5…2a09 at0020 = ╱4c╱L╱ // 0x29f5 @0x20
0x29d5…2a09 at0021 = ╱ec╱,╱ // 0x29f6 @0x21
0x29d5…2a09 at0022 = ╱56╱V╱ // 0x29f7 @0x22
0x29d5…2a09 at0023 = ╱41╱A╱ // 0x29f8 @0x23
0x29d5…2a09 at0024 = ╱52╱R╱ // 0x29f9 @0x24
0x29d5…2a09 at0025 = ╱45╱E╱ // 0x29fa @0x25
0x29d5…2a09 at0026 = ╱4e╱N╱ // 0x29fb @0x26
0x29d5…2a09 at0027 = ╱52╱R╱ // 0x29fc @0x27
0x29d5…2a09 at0028 = ╱ec╱,╱ // 0x29fd @0x28
0x29d5…2a09 at0029 = ╱56╱V╱ // 0x29fe @0x29
0x29d5…2a09 at002a = ╱50╱P╱ // 0x29ff @0x2a
0x29d5…2a09 at002b = ╱49╱I╱ // 0x2a00 @0x2b
0x29d5…2a09 at002c = ╱4c╱L╱ // 0x2a01 @0x2c
0x29d5…2a09 at002d = ╱33╱3╱ // 0x2a02 @0x2d
0x29d5…2a09 at002e = ╱ec╱,╱ // 0x2a03 @0x2e
0x29d5…2a09 at002f = ╱4b╱K╱ // 0x2a04 @0x2f
0x29d5…2a09 at0030 = ╱33╱3╱ // 0x2a05 @0x30
0x29d5…2a09 at0031 = ╱ef╱$╱ // 0x2a06 @0x31
0x29d5…2a09 at0032 = ╱ee╱)╱ // 0x2a07 @0x32
0x29d5…2a09 at0033 = EOL // 0x2a08 @0x33
0x29d5…2a09 }
0x2a09…2a17 b76e 4240 IF CEKS=E THEN STOP
0x2a09…2a17 LineComalBin {
0x2a09…2a17 ptr = 0xb76e // 0x2a09 @0x0
0x2a09…2a17 lno = 0x1090 // 0x2a0b @0x2
0x2a09…2a17 at0004 = ╱82╱ IF ╱ // 0x2a0d @0x4
0x2a09…2a17 at0005 = ╱43╱C╱ // 0x2a0e @0x5
0x2a09…2a17 at0006 = ╱45╱E╱ // 0x2a0f @0x6
0x2a09…2a17 at0007 = ╱4b╱K╱ // 0x2a10 @0x7
0x2a09…2a17 at0008 = ╱53╱S╱ // 0x2a11 @0x8
0x2a09…2a17 at0009 = ╱dc╱=╱ // 0x2a12 @0x9
0x2a09…2a17 at000a = ╱45╱E╱ // 0x2a13 @0xa
0x2a09…2a17 at000b = ╱b6╱ THEN ╱ // 0x2a14 @0xb
0x2a09…2a17 at000c = ╱8d╱ STOP ╱ // 0x2a15 @0xc
0x2a09…2a17 at000d = EOL // 0x2a16 @0xd
0x2a09…2a17 }
0x2a17…2a26 b77d 4250 EXEC HENTVPOST
0x2a17…2a26 LineComalBin {
0x2a17…2a26 ptr = 0xb77d // 0x2a17 @0x0
0x2a17…2a26 lno = 0x109a // 0x2a19 @0x2
0x2a17…2a26 at0004 = ╱9d╱ EXEC ╱ // 0x2a1b @0x4
0x2a17…2a26 at0005 = ╱48╱H╱ // 0x2a1c @0x5
0x2a17…2a26 at0006 = ╱45╱E╱ // 0x2a1d @0x6
0x2a17…2a26 at0007 = ╱4e╱N╱ // 0x2a1e @0x7
0x2a17…2a26 at0008 = ╱54╱T╱ // 0x2a1f @0x8
0x2a17…2a26 at0009 = ╱56╱V╱ // 0x2a20 @0x9
0x2a17…2a26 at000a = ╱50╱P╱ // 0x2a21 @0xa
0x2a17…2a26 at000b = ╱4f╱O╱ // 0x2a22 @0xb
0x2a17…2a26 at000c = ╱53╱S╱ // 0x2a23 @0xc
0x2a17…2a26 at000d = ╱54╱T╱ // 0x2a24 @0xd
0x2a17…2a26 at000e = EOL // 0x2a25 @0xe
0x2a17…2a26 }
0x2a26…2a3b b792 4260 VARTEKST$=VARTH$
0x2a26…2a3b LineComalBin {
0x2a26…2a3b ptr = 0xb792 // 0x2a26 @0x0
0x2a26…2a3b lno = 0x10a4 // 0x2a28 @0x2
0x2a26…2a3b at0004 = ╱56╱V╱ // 0x2a2a @0x4
0x2a26…2a3b at0005 = ╱41╱A╱ // 0x2a2b @0x5
0x2a26…2a3b at0006 = ╱52╱R╱ // 0x2a2c @0x6
0x2a26…2a3b at0007 = ╱54╱T╱ // 0x2a2d @0x7
0x2a26…2a3b at0008 = ╱45╱E╱ // 0x2a2e @0x8
0x2a26…2a3b at0009 = ╱4b╱K╱ // 0x2a2f @0x9
0x2a26…2a3b at000a = ╱53╱S╱ // 0x2a30 @0xa
0x2a26…2a3b at000b = ╱54╱T╱ // 0x2a31 @0xb
0x2a26…2a3b at000c = ╱ef╱$╱ // 0x2a32 @0xc
0x2a26…2a3b at000d = ╱dc╱=╱ // 0x2a33 @0xd
0x2a26…2a3b at000e = ╱56╱V╱ // 0x2a34 @0xe
0x2a26…2a3b at000f = ╱41╱A╱ // 0x2a35 @0xf
0x2a26…2a3b at0010 = ╱52╱R╱ // 0x2a36 @0x10
0x2a26…2a3b at0011 = ╱54╱T╱ // 0x2a37 @0x11
0x2a26…2a3b at0012 = ╱48╱H╱ // 0x2a38 @0x12
0x2a26…2a3b at0013 = ╱ef╱$╱ // 0x2a39 @0x13
0x2a26…2a3b at0014 = EOL // 0x2a3a @0x14
0x2a26…2a3b }
0x2a3b…2a4e b7a5 4270 EXEC BPOST(1)
0x2a3b…2a4e LineComalBin {
0x2a3b…2a4e ptr = 0xb7a5 // 0x2a3b @0x0
0x2a3b…2a4e lno = 0x10ae // 0x2a3d @0x2
0x2a3b…2a4e at0004 = ╱9d╱ EXEC ╱ // 0x2a3f @0x4
0x2a3b…2a4e at0005 = ╱42╱B╱ // 0x2a40 @0x5
0x2a3b…2a4e at0006 = ╱50╱P╱ // 0x2a41 @0x6
0x2a3b…2a4e at0007 = ╱4f╱O╱ // 0x2a42 @0x7
0x2a3b…2a4e at0008 = ╱53╱S╱ // 0x2a43 @0x8
0x2a3b…2a4e at0009 = ╱54╱T╱ // 0x2a44 @0x9
0x2a3b…2a4e at000a = ╱ed╱(╱ // 0x2a45 @0xa
0x2a3b…2a4e at000b = ╱31╱1╱ // 0x2a46 @0xb
0x2a3b…2a4e at000c = ╱fe00008001╱ // 0x2a47 @0xc
0x2a3b…2a4e at0011 = ╱ee╱)╱ // 0x2a4c @0x11
0x2a3b…2a4e at0012 = EOL // 0x2a4d @0x12
0x2a3b…2a4e }
0x2a4e…2a57 b7ae 4280 EXEC VUD
0x2a4e…2a57 LineComalBin {
0x2a4e…2a57 ptr = 0xb7ae // 0x2a4e @0x0
0x2a4e…2a57 lno = 0x10b8 // 0x2a50 @0x2
0x2a4e…2a57 at0004 = ╱9d╱ EXEC ╱ // 0x2a52 @0x4
0x2a4e…2a57 at0005 = ╱56╱V╱ // 0x2a53 @0x5
0x2a4e…2a57 at0006 = ╱55╱U╱ // 0x2a54 @0x6
0x2a4e…2a57 at0007 = ╱44╱D╱ // 0x2a55 @0x7
0x2a4e…2a57 at0008 = EOL // 0x2a56 @0x8
0x2a4e…2a57 }
0x2a57…2a5d b7b4 4290 ENDCASE
0x2a57…2a5d LineComalBin {
0x2a57…2a5d ptr = 0xb7b4 // 0x2a57 @0x0
0x2a57…2a5d lno = 0x10c2 // 0x2a59 @0x2
0x2a57…2a5d at0004 = ╱a4╱ ENDCASE ╱ // 0x2a5b @0x4
0x2a57…2a5d at0005 = EOL // 0x2a5c @0x5
0x2a57…2a5d }
0x2a5d…2a6f b7c6 4300 LINIE=LINIE+E
0x2a5d…2a6f LineComalBin {
0x2a5d…2a6f ptr = 0xb7c6 // 0x2a5d @0x0
0x2a5d…2a6f lno = 0x10cc // 0x2a5f @0x2
0x2a5d…2a6f at0004 = ╱4c╱L╱ // 0x2a61 @0x4
0x2a5d…2a6f at0005 = ╱49╱I╱ // 0x2a62 @0x5
0x2a5d…2a6f at0006 = ╱4e╱N╱ // 0x2a63 @0x6
0x2a5d…2a6f at0007 = ╱49╱I╱ // 0x2a64 @0x7
0x2a5d…2a6f at0008 = ╱45╱E╱ // 0x2a65 @0x8
0x2a5d…2a6f at0009 = ╱dc╱=╱ // 0x2a66 @0x9
0x2a5d…2a6f at000a = ╱4c╱L╱ // 0x2a67 @0xa
0x2a5d…2a6f at000b = ╱49╱I╱ // 0x2a68 @0xb
0x2a5d…2a6f at000c = ╱4e╱N╱ // 0x2a69 @0xc
0x2a5d…2a6f at000d = ╱49╱I╱ // 0x2a6a @0xd
0x2a5d…2a6f at000e = ╱45╱E╱ // 0x2a6b @0xe
0x2a5d…2a6f at000f = ╱e2╱+╱ // 0x2a6c @0xf
0x2a5d…2a6f at0010 = ╱45╱E╱ // 0x2a6d @0x10
0x2a5d…2a6f at0011 = EOL // 0x2a6e @0x11
0x2a5d…2a6f }
0x2a6f…2a97 b7ee 4310 UNTIL POSTER=>ANPOST-5 OR LINIE=22
0x2a6f…2a97 LineComalBin {
0x2a6f…2a97 ptr = 0xb7ee // 0x2a6f @0x0
0x2a6f…2a97 lno = 0x10d6 // 0x2a71 @0x2
0x2a6f…2a97 at0004 = ╱98╱ UNTIL ╱ // 0x2a73 @0x4
0x2a6f…2a97 at0005 = ╱50╱P╱ // 0x2a74 @0x5
0x2a6f…2a97 at0006 = ╱4f╱O╱ // 0x2a75 @0x6
0x2a6f…2a97 at0007 = ╱53╱S╱ // 0x2a76 @0x7
0x2a6f…2a97 at0008 = ╱54╱T╱ // 0x2a77 @0x8
0x2a6f…2a97 at0009 = ╱45╱E╱ // 0x2a78 @0x9
0x2a6f…2a97 at000a = ╱52╱R╱ // 0x2a79 @0xa
0x2a6f…2a97 at000b = ╱e0╱=>╱ // 0x2a7a @0xb
0x2a6f…2a97 at000c = ╱41╱A╱ // 0x2a7b @0xc
0x2a6f…2a97 at000d = ╱4e╱N╱ // 0x2a7c @0xd
0x2a6f…2a97 at000e = ╱50╱P╱ // 0x2a7d @0xe
0x2a6f…2a97 at000f = ╱4f╱O╱ // 0x2a7e @0xf
0x2a6f…2a97 at0010 = ╱53╱S╱ // 0x2a7f @0x10
0x2a6f…2a97 at0011 = ╱54╱T╱ // 0x2a80 @0x11
0x2a6f…2a97 at0012 = ╱e3╱-╱ // 0x2a81 @0x12
0x2a6f…2a97 at0013 = ╱35╱5╱ // 0x2a82 @0x13
0x2a6f…2a97 at0014 = ╱fe0000a003╱ // 0x2a83 @0x14
0x2a6f…2a97 at0019 = ╱db╱ OR ╱ // 0x2a88 @0x19
0x2a6f…2a97 at001a = ╱4c╱L╱ // 0x2a89 @0x1a
0x2a6f…2a97 at001b = ╱49╱I╱ // 0x2a8a @0x1b
0x2a6f…2a97 at001c = ╱4e╱N╱ // 0x2a8b @0x1c
0x2a6f…2a97 at001d = ╱49╱I╱ // 0x2a8c @0x1d
0x2a6f…2a97 at001e = ╱45╱E╱ // 0x2a8d @0x1e
0x2a6f…2a97 at001f = ╱dc╱=╱ // 0x2a8e @0x1f
0x2a6f…2a97 at0020 = ╱32╱2╱ // 0x2a8f @0x20
0x2a6f…2a97 at0021 = ╱32╱2╱ // 0x2a90 @0x21
0x2a6f…2a97 at0022 = ╱fe0000b005╱ // 0x2a91 @0x22
0x2a6f…2a97 at0027 = EOL // 0x2a96 @0x27
0x2a6f…2a97 }
0x2a97…2ac0 b817 4320 IF LINIE=22 AND POSTER<ANPOST-5 THEN
0x2a97…2ac0 LineComalBin {
0x2a97…2ac0 ptr = 0xb817 // 0x2a97 @0x0
0x2a97…2ac0 lno = 0x10e0 // 0x2a99 @0x2
0x2a97…2ac0 at0004 = ╱9c╱ IF ╱ // 0x2a9b @0x4
0x2a97…2ac0 at0005 = ╱4c╱L╱ // 0x2a9c @0x5
0x2a97…2ac0 at0006 = ╱49╱I╱ // 0x2a9d @0x6
0x2a97…2ac0 at0007 = ╱4e╱N╱ // 0x2a9e @0x7
0x2a97…2ac0 at0008 = ╱49╱I╱ // 0x2a9f @0x8
0x2a97…2ac0 at0009 = ╱45╱E╱ // 0x2aa0 @0x9
0x2a97…2ac0 at000a = ╱dc╱=╱ // 0x2aa1 @0xa
0x2a97…2ac0 at000b = ╱32╱2╱ // 0x2aa2 @0xb
0x2a97…2ac0 at000c = ╱32╱2╱ // 0x2aa3 @0xc
0x2a97…2ac0 at000d = ╱fe0000b005╱ // 0x2aa4 @0xd
0x2a97…2ac0 at0012 = ╱da╱ AND ╱ // 0x2aa9 @0x12
0x2a97…2ac0 at0013 = ╱50╱P╱ // 0x2aaa @0x13
0x2a97…2ac0 at0014 = ╱4f╱O╱ // 0x2aab @0x14
0x2a97…2ac0 at0015 = ╱53╱S╱ // 0x2aac @0x15
0x2a97…2ac0 at0016 = ╱54╱T╱ // 0x2aad @0x16
0x2a97…2ac0 at0017 = ╱45╱E╱ // 0x2aae @0x17
0x2a97…2ac0 at0018 = ╱52╱R╱ // 0x2aaf @0x18
0x2a97…2ac0 at0019 = ╱dd╱<╱ // 0x2ab0 @0x19
0x2a97…2ac0 at001a = ╱41╱A╱ // 0x2ab1 @0x1a
0x2a97…2ac0 at001b = ╱4e╱N╱ // 0x2ab2 @0x1b
0x2a97…2ac0 at001c = ╱50╱P╱ // 0x2ab3 @0x1c
0x2a97…2ac0 at001d = ╱4f╱O╱ // 0x2ab4 @0x1d
0x2a97…2ac0 at001e = ╱53╱S╱ // 0x2ab5 @0x1e
0x2a97…2ac0 at001f = ╱54╱T╱ // 0x2ab6 @0x1f
0x2a97…2ac0 at0020 = ╱e3╱-╱ // 0x2ab7 @0x20
0x2a97…2ac0 at0021 = ╱35╱5╱ // 0x2ab8 @0x21
0x2a97…2ac0 at0022 = ╱fe0000a003╱ // 0x2ab9 @0x22
0x2a97…2ac0 at0027 = ╱b6╱ THEN ╱ // 0x2abe @0x27
0x2a97…2ac0 at0028 = EOL // 0x2abf @0x28
0x2a97…2ac0 }
0x2ac0…2af1 b848 4330 SIDE=G;ANPOST=ANPOST-POSTER;POSTER=B;LINIE=E
0x2ac0…2af1 LineComalBin {
0x2ac0…2af1 ptr = 0xb848 // 0x2ac0 @0x0
0x2ac0…2af1 lno = 0x10ea // 0x2ac2 @0x2
0x2ac0…2af1 at0004 = ╱53╱S╱ // 0x2ac4 @0x4
0x2ac0…2af1 at0005 = ╱49╱I╱ // 0x2ac5 @0x5
0x2ac0…2af1 at0006 = ╱44╱D╱ // 0x2ac6 @0x6
0x2ac0…2af1 at0007 = ╱45╱E╱ // 0x2ac7 @0x7
0x2ac0…2af1 at0008 = ╱dc╱=╱ // 0x2ac8 @0x8
0x2ac0…2af1 at0009 = ╱47╱G╱ // 0x2ac9 @0x9
0x2ac0…2af1 at000a = ╱eb╱;╱ // 0x2aca @0xa
0x2ac0…2af1 at000b = ╱41╱A╱ // 0x2acb @0xb
0x2ac0…2af1 at000c = ╱4e╱N╱ // 0x2acc @0xc
0x2ac0…2af1 at000d = ╱50╱P╱ // 0x2acd @0xd
0x2ac0…2af1 at000e = ╱4f╱O╱ // 0x2ace @0xe
0x2ac0…2af1 at000f = ╱53╱S╱ // 0x2acf @0xf
0x2ac0…2af1 at0010 = ╱54╱T╱ // 0x2ad0 @0x10
0x2ac0…2af1 at0011 = ╱dc╱=╱ // 0x2ad1 @0x11
0x2ac0…2af1 at0012 = ╱41╱A╱ // 0x2ad2 @0x12
0x2ac0…2af1 at0013 = ╱4e╱N╱ // 0x2ad3 @0x13
0x2ac0…2af1 at0014 = ╱50╱P╱ // 0x2ad4 @0x14
0x2ac0…2af1 at0015 = ╱4f╱O╱ // 0x2ad5 @0x15
0x2ac0…2af1 at0016 = ╱53╱S╱ // 0x2ad6 @0x16
0x2ac0…2af1 at0017 = ╱54╱T╱ // 0x2ad7 @0x17
0x2ac0…2af1 at0018 = ╱e3╱-╱ // 0x2ad8 @0x18
0x2ac0…2af1 at0019 = ╱50╱P╱ // 0x2ad9 @0x19
0x2ac0…2af1 at001a = ╱4f╱O╱ // 0x2ada @0x1a
0x2ac0…2af1 at001b = ╱53╱S╱ // 0x2adb @0x1b
0x2ac0…2af1 at001c = ╱54╱T╱ // 0x2adc @0x1c
0x2ac0…2af1 at001d = ╱45╱E╱ // 0x2add @0x1d
0x2ac0…2af1 at001e = ╱52╱R╱ // 0x2ade @0x1e
0x2ac0…2af1 at001f = ╱eb╱;╱ // 0x2adf @0x1f
0x2ac0…2af1 at0020 = ╱50╱P╱ // 0x2ae0 @0x20
0x2ac0…2af1 at0021 = ╱4f╱O╱ // 0x2ae1 @0x21
0x2ac0…2af1 at0022 = ╱53╱S╱ // 0x2ae2 @0x22
0x2ac0…2af1 at0023 = ╱54╱T╱ // 0x2ae3 @0x23
0x2ac0…2af1 at0024 = ╱45╱E╱ // 0x2ae4 @0x24
0x2ac0…2af1 at0025 = ╱52╱R╱ // 0x2ae5 @0x25
0x2ac0…2af1 at0026 = ╱dc╱=╱ // 0x2ae6 @0x26
0x2ac0…2af1 at0027 = ╱42╱B╱ // 0x2ae7 @0x27
0x2ac0…2af1 at0028 = ╱eb╱;╱ // 0x2ae8 @0x28
0x2ac0…2af1 at0029 = ╱4c╱L╱ // 0x2ae9 @0x29
0x2ac0…2af1 at002a = ╱49╱I╱ // 0x2aea @0x2a
0x2ac0…2af1 at002b = ╱4e╱N╱ // 0x2aeb @0x2b
0x2ac0…2af1 at002c = ╱49╱I╱ // 0x2aec @0x2c
0x2ac0…2af1 at002d = ╱45╱E╱ // 0x2aed @0x2d
0x2ac0…2af1 at002e = ╱dc╱=╱ // 0x2aee @0x2e
0x2ac0…2af1 at002f = ╱45╱E╱ // 0x2aef @0x2f
0x2ac0…2af1 at0030 = EOL // 0x2af0 @0x30
0x2ac0…2af1 }
0x2af1…2b18 b86f 4340 PRINT TAB(24);"Subtotal";TAB(66);
0x2af1…2b18 LineComalBin {
0x2af1…2b18 ptr = 0xb86f // 0x2af1 @0x0
0x2af1…2b18 lno = 0x10f4 // 0x2af3 @0x2
0x2af1…2b18 at0004 = ╱92╱ PRINT ╱ // 0x2af5 @0x4
0x2af1…2b18 at0005 = ╱d2╱TAB╱ // 0x2af6 @0x5
0x2af1…2b18 at0006 = ╱ed╱(╱ // 0x2af7 @0x6
0x2af1…2b18 at0007 = ╱32╱2╱ // 0x2af8 @0x7
0x2af1…2b18 at0008 = ╱34╱4╱ // 0x2af9 @0x8
0x2af1…2b18 at0009 = ╱fe0000c005╱ // 0x2afa @0x9
0x2af1…2b18 at000e = ╱ee╱)╱ // 0x2aff @0xe
0x2af1…2b18 at000f = ╱eb╱;╱ // 0x2b00 @0xf
0x2af1…2b18 at0010 = ╱22╱"╱ // 0x2b01 @0x10
0x2af1…2b18 at0011 = ╱53╱S╱ // 0x2b02 @0x11
0x2af1…2b18 at0012 = ╱75╱u╱ // 0x2b03 @0x12
0x2af1…2b18 at0013 = ╱62╱b╱ // 0x2b04 @0x13
0x2af1…2b18 at0014 = ╱74╱t╱ // 0x2b05 @0x14
0x2af1…2b18 at0015 = ╱6f╱o╱ // 0x2b06 @0x15
0x2af1…2b18 at0016 = ╱74╱t╱ // 0x2b07 @0x16
0x2af1…2b18 at0017 = ╱61╱a╱ // 0x2b08 @0x17
0x2af1…2b18 at0018 = ╱6c╱l╱ // 0x2b09 @0x18
0x2af1…2b18 at0019 = ╱22╱"╱ // 0x2b0a @0x19
0x2af1…2b18 at001a = ╱eb╱;╱ // 0x2b0b @0x1a
0x2af1…2b18 at001b = ╱d2╱TAB╱ // 0x2b0c @0x1b
0x2af1…2b18 at001c = ╱ed╱(╱ // 0x2b0d @0x1c
0x2af1…2b18 at001d = ╱36╱6╱ // 0x2b0e @0x1d
0x2af1…2b18 at001e = ╱36╱6╱ // 0x2b0f @0x1e
0x2af1…2b18 at001f = ╱fe00008407╱ // 0x2b10 @0x1f
0x2af1…2b18 at0024 = ╱ee╱)╱ // 0x2b15 @0x24
0x2af1…2b18 at0025 = ╱eb╱;╱ // 0x2b16 @0x25
0x2af1…2b18 at0026 = EOL // 0x2b17 @0x26
0x2af1…2b18 }
0x2b18…2b33 b88a 4350 EXEC TUD(TOTAL$,TAL4$,E,B)
0x2b18…2b33 LineComalBin {
0x2b18…2b33 ptr = 0xb88a // 0x2b18 @0x0
0x2b18…2b33 lno = 0x10fe // 0x2b1a @0x2
0x2b18…2b33 at0004 = ╱9d╱ EXEC ╱ // 0x2b1c @0x4
0x2b18…2b33 at0005 = ╱54╱T╱ // 0x2b1d @0x5
0x2b18…2b33 at0006 = ╱55╱U╱ // 0x2b1e @0x6
0x2b18…2b33 at0007 = ╱44╱D╱ // 0x2b1f @0x7
0x2b18…2b33 at0008 = ╱ed╱(╱ // 0x2b20 @0x8
0x2b18…2b33 at0009 = ╱54╱T╱ // 0x2b21 @0x9
0x2b18…2b33 at000a = ╱4f╱O╱ // 0x2b22 @0xa
0x2b18…2b33 at000b = ╱54╱T╱ // 0x2b23 @0xb
0x2b18…2b33 at000c = ╱41╱A╱ // 0x2b24 @0xc
0x2b18…2b33 at000d = ╱4c╱L╱ // 0x2b25 @0xd
0x2b18…2b33 at000e = ╱ef╱$╱ // 0x2b26 @0xe
0x2b18…2b33 at000f = ╱ec╱,╱ // 0x2b27 @0xf
0x2b18…2b33 at0010 = ╱54╱T╱ // 0x2b28 @0x10
0x2b18…2b33 at0011 = ╱41╱A╱ // 0x2b29 @0x11
0x2b18…2b33 at0012 = ╱4c╱L╱ // 0x2b2a @0x12
0x2b18…2b33 at0013 = ╱34╱4╱ // 0x2b2b @0x13
0x2b18…2b33 at0014 = ╱ef╱$╱ // 0x2b2c @0x14
0x2b18…2b33 at0015 = ╱ec╱,╱ // 0x2b2d @0x15
0x2b18…2b33 at0016 = ╱45╱E╱ // 0x2b2e @0x16
0x2b18…2b33 at0017 = ╱ec╱,╱ // 0x2b2f @0x17
0x2b18…2b33 at0018 = ╱42╱B╱ // 0x2b30 @0x18
0x2b18…2b33 at0019 = ╱ee╱)╱ // 0x2b31 @0x19
0x2b18…2b33 at001a = EOL // 0x2b32 @0x1a
0x2b18…2b33 }
0x2b33…2b49 b8a0 4360 EXEC TOMLINIE(9)
0x2b33…2b49 LineComalBin {
0x2b33…2b49 ptr = 0xb8a0 // 0x2b33 @0x0
0x2b33…2b49 lno = 0x1108 // 0x2b35 @0x2
0x2b33…2b49 at0004 = ╱9d╱ EXEC ╱ // 0x2b37 @0x4
0x2b33…2b49 at0005 = ╱54╱T╱ // 0x2b38 @0x5
0x2b33…2b49 at0006 = ╱4f╱O╱ // 0x2b39 @0x6
0x2b33…2b49 at0007 = ╱4d╱M╱ // 0x2b3a @0x7
0x2b33…2b49 at0008 = ╱4c╱L╱ // 0x2b3b @0x8
0x2b33…2b49 at0009 = ╱49╱I╱ // 0x2b3c @0x9
0x2b33…2b49 at000a = ╱4e╱N╱ // 0x2b3d @0xa
0x2b33…2b49 at000b = ╱49╱I╱ // 0x2b3e @0xb
0x2b33…2b49 at000c = ╱45╱E╱ // 0x2b3f @0xc
0x2b33…2b49 at000d = ╱ed╱(╱ // 0x2b40 @0xd
0x2b33…2b49 at000e = ╱39╱9╱ // 0x2b41 @0xe
0x2b33…2b49 at000f = ╱fe00009004╱ // 0x2b42 @0xf
0x2b33…2b49 at0014 = ╱ee╱)╱ // 0x2b47 @0x14
0x2b33…2b49 at0015 = EOL // 0x2b48 @0x15
0x2b33…2b49 }
0x2b49…2b4f b8a6 4370 ENDIF
0x2b49…2b4f LineComalBin {
0x2b49…2b4f ptr = 0xb8a6 // 0x2b49 @0x0
0x2b49…2b4f lno = 0x1112 // 0x2b4b @0x2
0x2b49…2b4f at0004 = ╱9b╱ ENDIF ╱ // 0x2b4d @0x4
0x2b49…2b4f at0005 = EOL // 0x2b4e @0x5
0x2b49…2b4f }
0x2b4f…2b69 b8c0 4380 UNTIL POSTER=>ANPOST-5
0x2b4f…2b69 LineComalBin {
0x2b4f…2b69 ptr = 0xb8c0 // 0x2b4f @0x0
0x2b4f…2b69 lno = 0x111c // 0x2b51 @0x2
0x2b4f…2b69 at0004 = ╱98╱ UNTIL ╱ // 0x2b53 @0x4
0x2b4f…2b69 at0005 = ╱50╱P╱ // 0x2b54 @0x5
0x2b4f…2b69 at0006 = ╱4f╱O╱ // 0x2b55 @0x6
0x2b4f…2b69 at0007 = ╱53╱S╱ // 0x2b56 @0x7
0x2b4f…2b69 at0008 = ╱54╱T╱ // 0x2b57 @0x8
0x2b4f…2b69 at0009 = ╱45╱E╱ // 0x2b58 @0x9
0x2b4f…2b69 at000a = ╱52╱R╱ // 0x2b59 @0xa
0x2b4f…2b69 at000b = ╱e0╱=>╱ // 0x2b5a @0xb
0x2b4f…2b69 at000c = ╱41╱A╱ // 0x2b5b @0xc
0x2b4f…2b69 at000d = ╱4e╱N╱ // 0x2b5c @0xd
0x2b4f…2b69 at000e = ╱50╱P╱ // 0x2b5d @0xe
0x2b4f…2b69 at000f = ╱4f╱O╱ // 0x2b5e @0xf
0x2b4f…2b69 at0010 = ╱53╱S╱ // 0x2b5f @0x10
0x2b4f…2b69 at0011 = ╱54╱T╱ // 0x2b60 @0x11
0x2b4f…2b69 at0012 = ╱e3╱-╱ // 0x2b61 @0x12
0x2b4f…2b69 at0013 = ╱35╱5╱ // 0x2b62 @0x13
0x2b4f…2b69 at0014 = ╱fe0000a003╱ // 0x2b63 @0x14
0x2b4f…2b69 at0019 = EOL // 0x2b68 @0x19
0x2b4f…2b69 }
0x2b69…2b7c b8d3 4390 EXEC BPOST(0)
0x2b69…2b7c LineComalBin {
0x2b69…2b7c ptr = 0xb8d3 // 0x2b69 @0x0
0x2b69…2b7c lno = 0x1126 // 0x2b6b @0x2
0x2b69…2b7c at0004 = ╱9d╱ EXEC ╱ // 0x2b6d @0x4
0x2b69…2b7c at0005 = ╱42╱B╱ // 0x2b6e @0x5
0x2b69…2b7c at0006 = ╱50╱P╱ // 0x2b6f @0x6
0x2b69…2b7c at0007 = ╱4f╱O╱ // 0x2b70 @0x7
0x2b69…2b7c at0008 = ╱53╱S╱ // 0x2b71 @0x8
0x2b69…2b7c at0009 = ╱54╱T╱ // 0x2b72 @0x9
0x2b69…2b7c at000a = ╱ed╱(╱ // 0x2b73 @0xa
0x2b69…2b7c at000b = ╱30╱0╱ // 0x2b74 @0xb
0x2b69…2b7c at000c = ╱fe00000000╱ // 0x2b75 @0xc
0x2b69…2b7c at0011 = ╱ee╱)╱ // 0x2b7a @0x11
0x2b69…2b7c at0012 = EOL // 0x2b7b @0x12
0x2b69…2b7c }
0x2b7c…2bb0 b907 4400 FORS$=BELØB$;VARKONT=FRAGTNR;ENTNR=1000000
0x2b7c…2bb0 LineComalBin {
0x2b7c…2bb0 ptr = 0xb907 // 0x2b7c @0x0
0x2b7c…2bb0 lno = 0x1130 // 0x2b7e @0x2
0x2b7c…2bb0 at0004 = ╱46╱F╱ // 0x2b80 @0x4
0x2b7c…2bb0 at0005 = ╱4f╱O╱ // 0x2b81 @0x5
0x2b7c…2bb0 at0006 = ╱52╱R╱ // 0x2b82 @0x6
0x2b7c…2bb0 at0007 = ╱53╱S╱ // 0x2b83 @0x7
0x2b7c…2bb0 at0008 = ╱ef╱$╱ // 0x2b84 @0x8
0x2b7c…2bb0 at0009 = ╱dc╱=╱ // 0x2b85 @0x9
0x2b7c…2bb0 at000a = ╱42╱B╱ // 0x2b86 @0xa
0x2b7c…2bb0 at000b = ╱45╱E╱ // 0x2b87 @0xb
0x2b7c…2bb0 at000c = ╱4c╱L╱ // 0x2b88 @0xc
0x2b7c…2bb0 at000d = ╱5c╱Ø╱ // 0x2b89 @0xd
0x2b7c…2bb0 at000e = ╱42╱B╱ // 0x2b8a @0xe
0x2b7c…2bb0 at000f = ╱ef╱$╱ // 0x2b8b @0xf
0x2b7c…2bb0 at0010 = ╱eb╱;╱ // 0x2b8c @0x10
0x2b7c…2bb0 at0011 = ╱56╱V╱ // 0x2b8d @0x11
0x2b7c…2bb0 at0012 = ╱41╱A╱ // 0x2b8e @0x12
0x2b7c…2bb0 at0013 = ╱52╱R╱ // 0x2b8f @0x13
0x2b7c…2bb0 at0014 = ╱4b╱K╱ // 0x2b90 @0x14
0x2b7c…2bb0 at0015 = ╱4f╱O╱ // 0x2b91 @0x15
0x2b7c…2bb0 at0016 = ╱4e╱N╱ // 0x2b92 @0x16
0x2b7c…2bb0 at0017 = ╱54╱T╱ // 0x2b93 @0x17
0x2b7c…2bb0 at0018 = ╱dc╱=╱ // 0x2b94 @0x18
0x2b7c…2bb0 at0019 = ╱46╱F╱ // 0x2b95 @0x19
0x2b7c…2bb0 at001a = ╱52╱R╱ // 0x2b96 @0x1a
0x2b7c…2bb0 at001b = ╱41╱A╱ // 0x2b97 @0x1b
0x2b7c…2bb0 at001c = ╱47╱G╱ // 0x2b98 @0x1c
0x2b7c…2bb0 at001d = ╱54╱T╱ // 0x2b99 @0x1d
0x2b7c…2bb0 at001e = ╱4e╱N╱ // 0x2b9a @0x1e
0x2b7c…2bb0 at001f = ╱52╱R╱ // 0x2b9b @0x1f
0x2b7c…2bb0 at0020 = ╱eb╱;╱ // 0x2b9c @0x20
0x2b7c…2bb0 at0021 = ╱45╱E╱ // 0x2b9d @0x21
0x2b7c…2bb0 at0022 = ╱4e╱N╱ // 0x2b9e @0x22
0x2b7c…2bb0 at0023 = ╱54╱T╱ // 0x2b9f @0x23
0x2b7c…2bb0 at0024 = ╱4e╱N╱ // 0x2ba0 @0x24
0x2b7c…2bb0 at0025 = ╱52╱R╱ // 0x2ba1 @0x25
0x2b7c…2bb0 at0026 = ╱dc╱=╱ // 0x2ba2 @0x26
0x2b7c…2bb0 at0027 = ╱31╱1╱ // 0x2ba3 @0x27
0x2b7c…2bb0 at0028 = ╱30╱0╱ // 0x2ba4 @0x28
0x2b7c…2bb0 at0029 = ╱30╱0╱ // 0x2ba5 @0x29
0x2b7c…2bb0 at002a = ╱30╱0╱ // 0x2ba6 @0x2a
0x2b7c…2bb0 at002b = ╱30╱0╱ // 0x2ba7 @0x2b
0x2b7c…2bb0 at002c = ╱30╱0╱ // 0x2ba8 @0x2c
0x2b7c…2bb0 at002d = ╱30╱0╱ // 0x2ba9 @0x2d
0x2b7c…2bb0 at002e = ╱fe0024f414╱ // 0x2baa @0x2e
0x2b7c…2bb0 at0033 = EOL // 0x2baf @0x33
0x2b7c…2bb0 }
0x2bb0…2bbe b915 4410 EXEC VJOURNAL
0x2bb0…2bbe LineComalBin {
0x2bb0…2bbe ptr = 0xb915 // 0x2bb0 @0x0
0x2bb0…2bbe lno = 0x113a // 0x2bb2 @0x2
0x2bb0…2bbe at0004 = ╱9d╱ EXEC ╱ // 0x2bb4 @0x4
0x2bb0…2bbe at0005 = ╱56╱V╱ // 0x2bb5 @0x5
0x2bb0…2bbe at0006 = ╱4a╱J╱ // 0x2bb6 @0x6
0x2bb0…2bbe at0007 = ╱4f╱O╱ // 0x2bb7 @0x7
0x2bb0…2bbe at0008 = ╱55╱U╱ // 0x2bb8 @0x8
0x2bb0…2bbe at0009 = ╱52╱R╱ // 0x2bb9 @0x9
0x2bb0…2bbe at000a = ╱4e╱N╱ // 0x2bba @0xa
0x2bb0…2bbe at000b = ╱41╱A╱ // 0x2bbb @0xb
0x2bb0…2bbe at000c = ╱4c╱L╱ // 0x2bbc @0xc
0x2bb0…2bbe at000d = EOL // 0x2bbd @0xd
0x2bb0…2bbe }
0x2bbe…2bd1 b928 4420 EXEC BPOST(0)
0x2bbe…2bd1 LineComalBin {
0x2bbe…2bd1 ptr = 0xb928 // 0x2bbe @0x0
0x2bbe…2bd1 lno = 0x1144 // 0x2bc0 @0x2
0x2bbe…2bd1 at0004 = ╱9d╱ EXEC ╱ // 0x2bc2 @0x4
0x2bbe…2bd1 at0005 = ╱42╱B╱ // 0x2bc3 @0x5
0x2bbe…2bd1 at0006 = ╱50╱P╱ // 0x2bc4 @0x6
0x2bbe…2bd1 at0007 = ╱4f╱O╱ // 0x2bc5 @0x7
0x2bbe…2bd1 at0008 = ╱53╱S╱ // 0x2bc6 @0x8
0x2bbe…2bd1 at0009 = ╱54╱T╱ // 0x2bc7 @0x9
0x2bbe…2bd1 at000a = ╱ed╱(╱ // 0x2bc8 @0xa
0x2bbe…2bd1 at000b = ╱30╱0╱ // 0x2bc9 @0xb
0x2bbe…2bd1 at000c = ╱fe00000000╱ // 0x2bca @0xc
0x2bbe…2bd1 at0011 = ╱ee╱)╱ // 0x2bcf @0x11
0x2bbe…2bd1 at0012 = EOL // 0x2bd0 @0x12
0x2bbe…2bd1 }
0x2bd1…2be3 b93a 4430 MOMSH$=BELØB$
0x2bd1…2be3 LineComalBin {
0x2bd1…2be3 ptr = 0xb93a // 0x2bd1 @0x0
0x2bd1…2be3 lno = 0x114e // 0x2bd3 @0x2
0x2bd1…2be3 at0004 = ╱4d╱M╱ // 0x2bd5 @0x4
0x2bd1…2be3 at0005 = ╱4f╱O╱ // 0x2bd6 @0x5
0x2bd1…2be3 at0006 = ╱4d╱M╱ // 0x2bd7 @0x6
0x2bd1…2be3 at0007 = ╱53╱S╱ // 0x2bd8 @0x7
0x2bd1…2be3 at0008 = ╱48╱H╱ // 0x2bd9 @0x8
0x2bd1…2be3 at0009 = ╱ef╱$╱ // 0x2bda @0x9
0x2bd1…2be3 at000a = ╱dc╱=╱ // 0x2bdb @0xa
0x2bd1…2be3 at000b = ╱42╱B╱ // 0x2bdc @0xb
0x2bd1…2be3 at000c = ╱45╱E╱ // 0x2bdd @0xc
0x2bd1…2be3 at000d = ╱4c╱L╱ // 0x2bde @0xd
0x2bd1…2be3 at000e = ╱5c╱Ø╱ // 0x2bdf @0xe
0x2bd1…2be3 at000f = ╱42╱B╱ // 0x2be0 @0xf
0x2bd1…2be3 at0010 = ╱ef╱$╱ // 0x2be1 @0x10
0x2bd1…2be3 at0011 = EOL // 0x2be2 @0x11
0x2bd1…2be3 }
0x2be3…2bf6 b94d 4440 EXEC BPOST(0)
0x2be3…2bf6 LineComalBin {
0x2be3…2bf6 ptr = 0xb94d // 0x2be3 @0x0
0x2be3…2bf6 lno = 0x1158 // 0x2be5 @0x2
0x2be3…2bf6 at0004 = ╱9d╱ EXEC ╱ // 0x2be7 @0x4
0x2be3…2bf6 at0005 = ╱42╱B╱ // 0x2be8 @0x5
0x2be3…2bf6 at0006 = ╱50╱P╱ // 0x2be9 @0x6
0x2be3…2bf6 at0007 = ╱4f╱O╱ // 0x2bea @0x7
0x2be3…2bf6 at0008 = ╱53╱S╱ // 0x2beb @0x8
0x2be3…2bf6 at0009 = ╱54╱T╱ // 0x2bec @0x9
0x2be3…2bf6 at000a = ╱ed╱(╱ // 0x2bed @0xa
0x2be3…2bf6 at000b = ╱30╱0╱ // 0x2bee @0xb
0x2be3…2bf6 at000c = ╱fe00000000╱ // 0x2bef @0xc
0x2be3…2bf6 at0011 = ╱ee╱)╱ // 0x2bf4 @0x11
0x2be3…2bf6 at0012 = EOL // 0x2bf5 @0x12
0x2be3…2bf6 }
0x2bf6…2c09 b960 4450 FTOTAL$=BELØB$
0x2bf6…2c09 LineComalBin {
0x2bf6…2c09 ptr = 0xb960 // 0x2bf6 @0x0
0x2bf6…2c09 lno = 0x1162 // 0x2bf8 @0x2
0x2bf6…2c09 at0004 = ╱46╱F╱ // 0x2bfa @0x4
0x2bf6…2c09 at0005 = ╱54╱T╱ // 0x2bfb @0x5
0x2bf6…2c09 at0006 = ╱4f╱O╱ // 0x2bfc @0x6
0x2bf6…2c09 at0007 = ╱54╱T╱ // 0x2bfd @0x7
0x2bf6…2c09 at0008 = ╱41╱A╱ // 0x2bfe @0x8
0x2bf6…2c09 at0009 = ╱4c╱L╱ // 0x2bff @0x9
0x2bf6…2c09 at000a = ╱ef╱$╱ // 0x2c00 @0xa
0x2bf6…2c09 at000b = ╱dc╱=╱ // 0x2c01 @0xb
0x2bf6…2c09 at000c = ╱42╱B╱ // 0x2c02 @0xc
0x2bf6…2c09 at000d = ╱45╱E╱ // 0x2c03 @0xd
0x2bf6…2c09 at000e = ╱4c╱L╱ // 0x2c04 @0xe
0x2bf6…2c09 at000f = ╱5c╱Ø╱ // 0x2c05 @0xf
0x2bf6…2c09 at0010 = ╱42╱B╱ // 0x2c06 @0x10
0x2bf6…2c09 at0011 = ╱ef╱$╱ // 0x2c07 @0x11
0x2bf6…2c09 at0012 = EOL // 0x2c08 @0x12
0x2bf6…2c09 }
0x2c09…2c26 b97d 4460 EXEC TOMLINIE(25-LINIE)
0x2c09…2c26 LineComalBin {
0x2c09…2c26 ptr = 0xb97d // 0x2c09 @0x0
0x2c09…2c26 lno = 0x116c // 0x2c0b @0x2
0x2c09…2c26 at0004 = ╱9d╱ EXEC ╱ // 0x2c0d @0x4
0x2c09…2c26 at0005 = ╱54╱T╱ // 0x2c0e @0x5
0x2c09…2c26 at0006 = ╱4f╱O╱ // 0x2c0f @0x6
0x2c09…2c26 at0007 = ╱4d╱M╱ // 0x2c10 @0x7
0x2c09…2c26 at0008 = ╱4c╱L╱ // 0x2c11 @0x8
0x2c09…2c26 at0009 = ╱49╱I╱ // 0x2c12 @0x9
0x2c09…2c26 at000a = ╱4e╱N╱ // 0x2c13 @0xa
0x2c09…2c26 at000b = ╱49╱I╱ // 0x2c14 @0xb
0x2c09…2c26 at000c = ╱45╱E╱ // 0x2c15 @0xc
0x2c09…2c26 at000d = ╱ed╱(╱ // 0x2c16 @0xd
0x2c09…2c26 at000e = ╱32╱2╱ // 0x2c17 @0xe
0x2c09…2c26 at000f = ╱35╱5╱ // 0x2c18 @0xf
0x2c09…2c26 at0010 = ╱fe0000c805╱ // 0x2c19 @0x10
0x2c09…2c26 at0015 = ╱e3╱-╱ // 0x2c1e @0x15
0x2c09…2c26 at0016 = ╱4c╱L╱ // 0x2c1f @0x16
0x2c09…2c26 at0017 = ╱49╱I╱ // 0x2c20 @0x17
0x2c09…2c26 at0018 = ╱4e╱N╱ // 0x2c21 @0x18
0x2c09…2c26 at0019 = ╱49╱I╱ // 0x2c22 @0x19
0x2c09…2c26 at001a = ╱45╱E╱ // 0x2c23 @0x1a
0x2c09…2c26 at001b = ╱ee╱)╱ // 0x2c24 @0x1b
0x2c09…2c26 at001c = EOL // 0x2c25 @0x1c
0x2c09…2c26 }
0x2c26…2c47 b99e 4470 EXEC CALC(B,FORS$,TOTAL$,TOTAL$)
0x2c26…2c47 LineComalBin {
0x2c26…2c47 ptr = 0xb99e // 0x2c26 @0x0
0x2c26…2c47 lno = 0x1176 // 0x2c28 @0x2
0x2c26…2c47 at0004 = ╱9d╱ EXEC ╱ // 0x2c2a @0x4
0x2c26…2c47 at0005 = ╱43╱C╱ // 0x2c2b @0x5
0x2c26…2c47 at0006 = ╱41╱A╱ // 0x2c2c @0x6
0x2c26…2c47 at0007 = ╱4c╱L╱ // 0x2c2d @0x7
0x2c26…2c47 at0008 = ╱43╱C╱ // 0x2c2e @0x8
0x2c26…2c47 at0009 = ╱ed╱(╱ // 0x2c2f @0x9
0x2c26…2c47 at000a = ╱42╱B╱ // 0x2c30 @0xa
0x2c26…2c47 at000b = ╱ec╱,╱ // 0x2c31 @0xb
0x2c26…2c47 at000c = ╱46╱F╱ // 0x2c32 @0xc
0x2c26…2c47 at000d = ╱4f╱O╱ // 0x2c33 @0xd
0x2c26…2c47 at000e = ╱52╱R╱ // 0x2c34 @0xe
0x2c26…2c47 at000f = ╱53╱S╱ // 0x2c35 @0xf
0x2c26…2c47 at0010 = ╱ef╱$╱ // 0x2c36 @0x10
0x2c26…2c47 at0011 = ╱ec╱,╱ // 0x2c37 @0x11
0x2c26…2c47 at0012 = ╱54╱T╱ // 0x2c38 @0x12
0x2c26…2c47 at0013 = ╱4f╱O╱ // 0x2c39 @0x13
0x2c26…2c47 at0014 = ╱54╱T╱ // 0x2c3a @0x14
0x2c26…2c47 at0015 = ╱41╱A╱ // 0x2c3b @0x15
0x2c26…2c47 at0016 = ╱4c╱L╱ // 0x2c3c @0x16
0x2c26…2c47 at0017 = ╱ef╱$╱ // 0x2c3d @0x17
0x2c26…2c47 at0018 = ╱ec╱,╱ // 0x2c3e @0x18
0x2c26…2c47 at0019 = ╱54╱T╱ // 0x2c3f @0x19
0x2c26…2c47 at001a = ╱4f╱O╱ // 0x2c40 @0x1a
0x2c26…2c47 at001b = ╱54╱T╱ // 0x2c41 @0x1b
0x2c26…2c47 at001c = ╱41╱A╱ // 0x2c42 @0x1c
0x2c26…2c47 at001d = ╱4c╱L╱ // 0x2c43 @0x1d
0x2c26…2c47 at001e = ╱ef╱$╱ // 0x2c44 @0x1e
0x2c26…2c47 at001f = ╱ee╱)╱ // 0x2c45 @0x1f
0x2c26…2c47 at0020 = EOL // 0x2c46 @0x20
0x2c26…2c47 }
0x2c47…2c6b b9c2 4480 EXEC CALC(5,FORS$,FORS$,TAL4$)
0x2c47…2c6b LineComalBin {
0x2c47…2c6b ptr = 0xb9c2 // 0x2c47 @0x0
0x2c47…2c6b lno = 0x1180 // 0x2c49 @0x2
0x2c47…2c6b at0004 = ╱9d╱ EXEC ╱ // 0x2c4b @0x4
0x2c47…2c6b at0005 = ╱43╱C╱ // 0x2c4c @0x5
0x2c47…2c6b at0006 = ╱41╱A╱ // 0x2c4d @0x6
0x2c47…2c6b at0007 = ╱4c╱L╱ // 0x2c4e @0x7
0x2c47…2c6b at0008 = ╱43╱C╱ // 0x2c4f @0x8
0x2c47…2c6b at0009 = ╱ed╱(╱ // 0x2c50 @0x9
0x2c47…2c6b at000a = ╱35╱5╱ // 0x2c51 @0xa
0x2c47…2c6b at000b = ╱fe0000a003╱ // 0x2c52 @0xb
0x2c47…2c6b at0010 = ╱ec╱,╱ // 0x2c57 @0x10
0x2c47…2c6b at0011 = ╱46╱F╱ // 0x2c58 @0x11
0x2c47…2c6b at0012 = ╱4f╱O╱ // 0x2c59 @0x12
0x2c47…2c6b at0013 = ╱52╱R╱ // 0x2c5a @0x13
0x2c47…2c6b at0014 = ╱53╱S╱ // 0x2c5b @0x14
0x2c47…2c6b at0015 = ╱ef╱$╱ // 0x2c5c @0x15
0x2c47…2c6b at0016 = ╱ec╱,╱ // 0x2c5d @0x16
0x2c47…2c6b at0017 = ╱46╱F╱ // 0x2c5e @0x17
0x2c47…2c6b at0018 = ╱4f╱O╱ // 0x2c5f @0x18
0x2c47…2c6b at0019 = ╱52╱R╱ // 0x2c60 @0x19
0x2c47…2c6b at001a = ╱53╱S╱ // 0x2c61 @0x1a
0x2c47…2c6b at001b = ╱ef╱$╱ // 0x2c62 @0x1b
0x2c47…2c6b at001c = ╱ec╱,╱ // 0x2c63 @0x1c
0x2c47…2c6b at001d = ╱54╱T╱ // 0x2c64 @0x1d
0x2c47…2c6b at001e = ╱41╱A╱ // 0x2c65 @0x1e
0x2c47…2c6b at001f = ╱4c╱L╱ // 0x2c66 @0x1f
0x2c47…2c6b at0020 = ╱34╱4╱ // 0x2c67 @0x20
0x2c47…2c6b at0021 = ╱ef╱$╱ // 0x2c68 @0x21
0x2c47…2c6b at0022 = ╱ee╱)╱ // 0x2c69 @0x22
0x2c47…2c6b at0023 = EOL // 0x2c6a @0x23
0x2c47…2c6b }
0x2c6b…2c9d b9f4 4490 PRINT TAB(16);TAL4$(4:10);TAB(29);
0x2c6b…2c9d LineComalBin {
0x2c6b…2c9d ptr = 0xb9f4 // 0x2c6b @0x0
0x2c6b…2c9d lno = 0x118a // 0x2c6d @0x2
0x2c6b…2c9d at0004 = ╱92╱ PRINT ╱ // 0x2c6f @0x4
0x2c6b…2c9d at0005 = ╱d2╱TAB╱ // 0x2c70 @0x5
0x2c6b…2c9d at0006 = ╱ed╱(╱ // 0x2c71 @0x6
0x2c6b…2c9d at0007 = ╱31╱1╱ // 0x2c72 @0x7
0x2c6b…2c9d at0008 = ╱36╱6╱ // 0x2c73 @0x8
0x2c6b…2c9d at0009 = ╱fe00008005╱ // 0x2c74 @0x9
0x2c6b…2c9d at000e = ╱ee╱)╱ // 0x2c79 @0xe
0x2c6b…2c9d at000f = ╱eb╱;╱ // 0x2c7a @0xf
0x2c6b…2c9d at0010 = ╱54╱T╱ // 0x2c7b @0x10
0x2c6b…2c9d at0011 = ╱41╱A╱ // 0x2c7c @0x11
0x2c6b…2c9d at0012 = ╱4c╱L╱ // 0x2c7d @0x12
0x2c6b…2c9d at0013 = ╱34╱4╱ // 0x2c7e @0x13
0x2c6b…2c9d at0014 = ╱ef╱$╱ // 0x2c7f @0x14
0x2c6b…2c9d at0015 = ╱ed╱(╱ // 0x2c80 @0x15
0x2c6b…2c9d at0016 = ╱34╱4╱ // 0x2c81 @0x16
0x2c6b…2c9d at0017 = ╱fe00008003╱ // 0x2c82 @0x17
0x2c6b…2c9d at001c = ╱f0╱:╱ // 0x2c87 @0x1c
0x2c6b…2c9d at001d = ╱31╱1╱ // 0x2c88 @0x1d
0x2c6b…2c9d at001e = ╱30╱0╱ // 0x2c89 @0x1e
0x2c6b…2c9d at001f = ╱fe0000a004╱ // 0x2c8a @0x1f
0x2c6b…2c9d at0024 = ╱ee╱)╱ // 0x2c8f @0x24
0x2c6b…2c9d at0025 = ╱eb╱;╱ // 0x2c90 @0x25
0x2c6b…2c9d at0026 = ╱d2╱TAB╱ // 0x2c91 @0x26
0x2c6b…2c9d at0027 = ╱ed╱(╱ // 0x2c92 @0x27
0x2c6b…2c9d at0028 = ╱32╱2╱ // 0x2c93 @0x28
0x2c6b…2c9d at0029 = ╱39╱9╱ // 0x2c94 @0x29
0x2c6b…2c9d at002a = ╱fe0000e805╱ // 0x2c95 @0x2a
0x2c6b…2c9d at002f = ╱ee╱)╱ // 0x2c9a @0x2f
0x2c6b…2c9d at0030 = ╱eb╱;╱ // 0x2c9b @0x30
0x2c6b…2c9d at0031 = EOL // 0x2c9c @0x31
0x2c6b…2c9d }
0x2c9d…2cb8 ba0f 4500 EXEC TUD(TOTAL$,TAL4$,E,B)
0x2c9d…2cb8 LineComalBin {
0x2c9d…2cb8 ptr = 0xba0f // 0x2c9d @0x0
0x2c9d…2cb8 lno = 0x1194 // 0x2c9f @0x2
0x2c9d…2cb8 at0004 = ╱9d╱ EXEC ╱ // 0x2ca1 @0x4
0x2c9d…2cb8 at0005 = ╱54╱T╱ // 0x2ca2 @0x5
0x2c9d…2cb8 at0006 = ╱55╱U╱ // 0x2ca3 @0x6
0x2c9d…2cb8 at0007 = ╱44╱D╱ // 0x2ca4 @0x7
0x2c9d…2cb8 at0008 = ╱ed╱(╱ // 0x2ca5 @0x8
0x2c9d…2cb8 at0009 = ╱54╱T╱ // 0x2ca6 @0x9
0x2c9d…2cb8 at000a = ╱4f╱O╱ // 0x2ca7 @0xa
0x2c9d…2cb8 at000b = ╱54╱T╱ // 0x2ca8 @0xb
0x2c9d…2cb8 at000c = ╱41╱A╱ // 0x2ca9 @0xc
0x2c9d…2cb8 at000d = ╱4c╱L╱ // 0x2caa @0xd
0x2c9d…2cb8 at000e = ╱ef╱$╱ // 0x2cab @0xe
0x2c9d…2cb8 at000f = ╱ec╱,╱ // 0x2cac @0xf
0x2c9d…2cb8 at0010 = ╱54╱T╱ // 0x2cad @0x10
0x2c9d…2cb8 at0011 = ╱41╱A╱ // 0x2cae @0x11
0x2c9d…2cb8 at0012 = ╱4c╱L╱ // 0x2caf @0x12
0x2c9d…2cb8 at0013 = ╱34╱4╱ // 0x2cb0 @0x13
0x2c9d…2cb8 at0014 = ╱ef╱$╱ // 0x2cb1 @0x14
0x2c9d…2cb8 at0015 = ╱ec╱,╱ // 0x2cb2 @0x15
0x2c9d…2cb8 at0016 = ╱45╱E╱ // 0x2cb3 @0x16
0x2c9d…2cb8 at0017 = ╱ec╱,╱ // 0x2cb4 @0x17
0x2c9d…2cb8 at0018 = ╱42╱B╱ // 0x2cb5 @0x18
0x2c9d…2cb8 at0019 = ╱ee╱)╱ // 0x2cb6 @0x19
0x2c9d…2cb8 at001a = EOL // 0x2cb7 @0x1a
0x2c9d…2cb8 }
0x2cb8…2cea ba41 4510 PRINT TAB(44);MOMSH$(7:5);TAB(51);
0x2cb8…2cea LineComalBin {
0x2cb8…2cea ptr = 0xba41 // 0x2cb8 @0x0
0x2cb8…2cea lno = 0x119e // 0x2cba @0x2
0x2cb8…2cea at0004 = ╱92╱ PRINT ╱ // 0x2cbc @0x4
0x2cb8…2cea at0005 = ╱d2╱TAB╱ // 0x2cbd @0x5
0x2cb8…2cea at0006 = ╱ed╱(╱ // 0x2cbe @0x6
0x2cb8…2cea at0007 = ╱34╱4╱ // 0x2cbf @0x7
0x2cb8…2cea at0008 = ╱34╱4╱ // 0x2cc0 @0x8
0x2cb8…2cea at0009 = ╱fe0000b006╱ // 0x2cc1 @0x9
0x2cb8…2cea at000e = ╱ee╱)╱ // 0x2cc6 @0xe
0x2cb8…2cea at000f = ╱eb╱;╱ // 0x2cc7 @0xf
0x2cb8…2cea at0010 = ╱4d╱M╱ // 0x2cc8 @0x10
0x2cb8…2cea at0011 = ╱4f╱O╱ // 0x2cc9 @0x11
0x2cb8…2cea at0012 = ╱4d╱M╱ // 0x2cca @0x12
0x2cb8…2cea at0013 = ╱53╱S╱ // 0x2ccb @0x13
0x2cb8…2cea at0014 = ╱48╱H╱ // 0x2ccc @0x14
0x2cb8…2cea at0015 = ╱ef╱$╱ // 0x2ccd @0x15
0x2cb8…2cea at0016 = ╱ed╱(╱ // 0x2cce @0x16
0x2cb8…2cea at0017 = ╱37╱7╱ // 0x2ccf @0x17
0x2cb8…2cea at0018 = ╱fe0000e003╱ // 0x2cd0 @0x18
0x2cb8…2cea at001d = ╱f0╱:╱ // 0x2cd5 @0x1d
0x2cb8…2cea at001e = ╱35╱5╱ // 0x2cd6 @0x1e
0x2cb8…2cea at001f = ╱fe0000a003╱ // 0x2cd7 @0x1f
0x2cb8…2cea at0024 = ╱ee╱)╱ // 0x2cdc @0x24
0x2cb8…2cea at0025 = ╱eb╱;╱ // 0x2cdd @0x25
0x2cb8…2cea at0026 = ╱d2╱TAB╱ // 0x2cde @0x26
0x2cb8…2cea at0027 = ╱ed╱(╱ // 0x2cdf @0x27
0x2cb8…2cea at0028 = ╱35╱5╱ // 0x2ce0 @0x28
0x2cb8…2cea at0029 = ╱31╱1╱ // 0x2ce1 @0x29
0x2cb8…2cea at002a = ╱fe0000cc06╱ // 0x2ce2 @0x2a
0x2cb8…2cea at002f = ╱ee╱)╱ // 0x2ce7 @0x2f
0x2cb8…2cea at0030 = ╱eb╱;╱ // 0x2ce8 @0x30
0x2cb8…2cea at0031 = EOL // 0x2ce9 @0x31
0x2cb8…2cea }
0x2cea…2d0d ba64 4520 EXEC CALC(E,FTOTAL$,TOTAL$,BELØB$)
0x2cea…2d0d LineComalBin {
0x2cea…2d0d ptr = 0xba64 // 0x2cea @0x0
0x2cea…2d0d lno = 0x11a8 // 0x2cec @0x2
0x2cea…2d0d at0004 = ╱9d╱ EXEC ╱ // 0x2cee @0x4
0x2cea…2d0d at0005 = ╱43╱C╱ // 0x2cef @0x5
0x2cea…2d0d at0006 = ╱41╱A╱ // 0x2cf0 @0x6
0x2cea…2d0d at0007 = ╱4c╱L╱ // 0x2cf1 @0x7
0x2cea…2d0d at0008 = ╱43╱C╱ // 0x2cf2 @0x8
0x2cea…2d0d at0009 = ╱ed╱(╱ // 0x2cf3 @0x9
0x2cea…2d0d at000a = ╱45╱E╱ // 0x2cf4 @0xa
0x2cea…2d0d at000b = ╱ec╱,╱ // 0x2cf5 @0xb
0x2cea…2d0d at000c = ╱46╱F╱ // 0x2cf6 @0xc
0x2cea…2d0d at000d = ╱54╱T╱ // 0x2cf7 @0xd
0x2cea…2d0d at000e = ╱4f╱O╱ // 0x2cf8 @0xe
0x2cea…2d0d at000f = ╱54╱T╱ // 0x2cf9 @0xf
0x2cea…2d0d at0010 = ╱41╱A╱ // 0x2cfa @0x10
0x2cea…2d0d at0011 = ╱4c╱L╱ // 0x2cfb @0x11
0x2cea…2d0d at0012 = ╱ef╱$╱ // 0x2cfc @0x12
0x2cea…2d0d at0013 = ╱ec╱,╱ // 0x2cfd @0x13
0x2cea…2d0d at0014 = ╱54╱T╱ // 0x2cfe @0x14
0x2cea…2d0d at0015 = ╱4f╱O╱ // 0x2cff @0x15
0x2cea…2d0d at0016 = ╱54╱T╱ // 0x2d00 @0x16
0x2cea…2d0d at0017 = ╱41╱A╱ // 0x2d01 @0x17
0x2cea…2d0d at0018 = ╱4c╱L╱ // 0x2d02 @0x18
0x2cea…2d0d at0019 = ╱ef╱$╱ // 0x2d03 @0x19
0x2cea…2d0d at001a = ╱ec╱,╱ // 0x2d04 @0x1a
0x2cea…2d0d at001b = ╱42╱B╱ // 0x2d05 @0x1b
0x2cea…2d0d at001c = ╱45╱E╱ // 0x2d06 @0x1c
0x2cea…2d0d at001d = ╱4c╱L╱ // 0x2d07 @0x1d
0x2cea…2d0d at001e = ╱5c╱Ø╱ // 0x2d08 @0x1e
0x2cea…2d0d at001f = ╱42╱B╱ // 0x2d09 @0x1f
0x2cea…2d0d at0020 = ╱ef╱$╱ // 0x2d0a @0x20
0x2cea…2d0d at0021 = ╱ee╱)╱ // 0x2d0b @0x21
0x2cea…2d0d at0022 = EOL // 0x2d0c @0x22
0x2cea…2d0d }
0x2d0d…2d28 ba7f 4530 EXEC TUD(BELØB$,TAL4$,E,B)
0x2d0d…2d28 LineComalBin {
0x2d0d…2d28 ptr = 0xba7f // 0x2d0d @0x0
0x2d0d…2d28 lno = 0x11b2 // 0x2d0f @0x2
0x2d0d…2d28 at0004 = ╱9d╱ EXEC ╱ // 0x2d11 @0x4
0x2d0d…2d28 at0005 = ╱54╱T╱ // 0x2d12 @0x5
0x2d0d…2d28 at0006 = ╱55╱U╱ // 0x2d13 @0x6
0x2d0d…2d28 at0007 = ╱44╱D╱ // 0x2d14 @0x7
0x2d0d…2d28 at0008 = ╱ed╱(╱ // 0x2d15 @0x8
0x2d0d…2d28 at0009 = ╱42╱B╱ // 0x2d16 @0x9
0x2d0d…2d28 at000a = ╱45╱E╱ // 0x2d17 @0xa
0x2d0d…2d28 at000b = ╱4c╱L╱ // 0x2d18 @0xb
0x2d0d…2d28 at000c = ╱5c╱Ø╱ // 0x2d19 @0xc
0x2d0d…2d28 at000d = ╱42╱B╱ // 0x2d1a @0xd
0x2d0d…2d28 at000e = ╱ef╱$╱ // 0x2d1b @0xe
0x2d0d…2d28 at000f = ╱ec╱,╱ // 0x2d1c @0xf
0x2d0d…2d28 at0010 = ╱54╱T╱ // 0x2d1d @0x10
0x2d0d…2d28 at0011 = ╱41╱A╱ // 0x2d1e @0x11
0x2d0d…2d28 at0012 = ╱4c╱L╱ // 0x2d1f @0x12
0x2d0d…2d28 at0013 = ╱34╱4╱ // 0x2d20 @0x13
0x2d0d…2d28 at0014 = ╱ef╱$╱ // 0x2d21 @0x14
0x2d0d…2d28 at0015 = ╱ec╱,╱ // 0x2d22 @0x15
0x2d0d…2d28 at0016 = ╱45╱E╱ // 0x2d23 @0x16
0x2d0d…2d28 at0017 = ╱ec╱,╱ // 0x2d24 @0x17
0x2d0d…2d28 at0018 = ╱42╱B╱ // 0x2d25 @0x18
0x2d0d…2d28 at0019 = ╱ee╱)╱ // 0x2d26 @0x19
0x2d0d…2d28 at001a = EOL // 0x2d27 @0x1a
0x2d0d…2d28 }
0x2d28…2d50 baa7 4540 VARKONT=UDMOMSNR;ENTNR=1000000
0x2d28…2d50 LineComalBin {
0x2d28…2d50 ptr = 0xbaa7 // 0x2d28 @0x0
0x2d28…2d50 lno = 0x11bc // 0x2d2a @0x2
0x2d28…2d50 at0004 = ╱56╱V╱ // 0x2d2c @0x4
0x2d28…2d50 at0005 = ╱41╱A╱ // 0x2d2d @0x5
0x2d28…2d50 at0006 = ╱52╱R╱ // 0x2d2e @0x6
0x2d28…2d50 at0007 = ╱4b╱K╱ // 0x2d2f @0x7
0x2d28…2d50 at0008 = ╱4f╱O╱ // 0x2d30 @0x8
0x2d28…2d50 at0009 = ╱4e╱N╱ // 0x2d31 @0x9
0x2d28…2d50 at000a = ╱54╱T╱ // 0x2d32 @0xa
0x2d28…2d50 at000b = ╱dc╱=╱ // 0x2d33 @0xb
0x2d28…2d50 at000c = ╱55╱U╱ // 0x2d34 @0xc
0x2d28…2d50 at000d = ╱44╱D╱ // 0x2d35 @0xd
0x2d28…2d50 at000e = ╱4d╱M╱ // 0x2d36 @0xe
0x2d28…2d50 at000f = ╱4f╱O╱ // 0x2d37 @0xf
0x2d28…2d50 at0010 = ╱4d╱M╱ // 0x2d38 @0x10
0x2d28…2d50 at0011 = ╱53╱S╱ // 0x2d39 @0x11
0x2d28…2d50 at0012 = ╱4e╱N╱ // 0x2d3a @0x12
0x2d28…2d50 at0013 = ╱52╱R╱ // 0x2d3b @0x13
0x2d28…2d50 at0014 = ╱eb╱;╱ // 0x2d3c @0x14
0x2d28…2d50 at0015 = ╱45╱E╱ // 0x2d3d @0x15
0x2d28…2d50 at0016 = ╱4e╱N╱ // 0x2d3e @0x16
0x2d28…2d50 at0017 = ╱54╱T╱ // 0x2d3f @0x17
0x2d28…2d50 at0018 = ╱4e╱N╱ // 0x2d40 @0x18
0x2d28…2d50 at0019 = ╱52╱R╱ // 0x2d41 @0x19
0x2d28…2d50 at001a = ╱dc╱=╱ // 0x2d42 @0x1a
0x2d28…2d50 at001b = ╱31╱1╱ // 0x2d43 @0x1b
0x2d28…2d50 at001c = ╱30╱0╱ // 0x2d44 @0x1c
0x2d28…2d50 at001d = ╱30╱0╱ // 0x2d45 @0x1d
0x2d28…2d50 at001e = ╱30╱0╱ // 0x2d46 @0x1e
0x2d28…2d50 at001f = ╱30╱0╱ // 0x2d47 @0x1f
0x2d28…2d50 at0020 = ╱30╱0╱ // 0x2d48 @0x20
0x2d28…2d50 at0021 = ╱30╱0╱ // 0x2d49 @0x21
0x2d28…2d50 at0022 = ╱fe0024f414╱ // 0x2d4a @0x22
0x2d28…2d50 at0027 = EOL // 0x2d4f @0x27
0x2d28…2d50 }
0x2d50…2d5e bab5 4550 EXEC VJOURNAL
0x2d50…2d5e LineComalBin {
0x2d50…2d5e ptr = 0xbab5 // 0x2d50 @0x0
0x2d50…2d5e lno = 0x11c6 // 0x2d52 @0x2
0x2d50…2d5e at0004 = ╱9d╱ EXEC ╱ // 0x2d54 @0x4
0x2d50…2d5e at0005 = ╱56╱V╱ // 0x2d55 @0x5
0x2d50…2d5e at0006 = ╱4a╱J╱ // 0x2d56 @0x6
0x2d50…2d5e at0007 = ╱4f╱O╱ // 0x2d57 @0x7
0x2d50…2d5e at0008 = ╱55╱U╱ // 0x2d58 @0x8
0x2d50…2d5e at0009 = ╱52╱R╱ // 0x2d59 @0x9
0x2d50…2d5e at000a = ╱4e╱N╱ // 0x2d5a @0xa
0x2d50…2d5e at000b = ╱41╱A╱ // 0x2d5b @0xb
0x2d50…2d5e at000c = ╱4c╱L╱ // 0x2d5c @0xc
0x2d50…2d5e at000d = EOL // 0x2d5d @0xd
0x2d50…2d5e }
0x2d5e…2d6f bac6 4560 PRINT TAB(66);
0x2d5e…2d6f LineComalBin {
0x2d5e…2d6f ptr = 0xbac6 // 0x2d5e @0x0
0x2d5e…2d6f lno = 0x11d0 // 0x2d60 @0x2
0x2d5e…2d6f at0004 = ╱92╱ PRINT ╱ // 0x2d62 @0x4
0x2d5e…2d6f at0005 = ╱d2╱TAB╱ // 0x2d63 @0x5
0x2d5e…2d6f at0006 = ╱ed╱(╱ // 0x2d64 @0x6
0x2d5e…2d6f at0007 = ╱36╱6╱ // 0x2d65 @0x7
0x2d5e…2d6f at0008 = ╱36╱6╱ // 0x2d66 @0x8
0x2d5e…2d6f at0009 = ╱fe00008407╱ // 0x2d67 @0x9
0x2d5e…2d6f at000e = ╱ee╱)╱ // 0x2d6c @0xe
0x2d5e…2d6f at000f = ╱eb╱;╱ // 0x2d6d @0xf
0x2d5e…2d6f at0010 = EOL // 0x2d6e @0x10
0x2d5e…2d6f }
0x2d6f…2d8b bae2 4570 EXEC TUD(FTOTAL$,TAL4$,E,B)
0x2d6f…2d8b LineComalBin {
0x2d6f…2d8b ptr = 0xbae2 // 0x2d6f @0x0
0x2d6f…2d8b lno = 0x11da // 0x2d71 @0x2
0x2d6f…2d8b at0004 = ╱9d╱ EXEC ╱ // 0x2d73 @0x4
0x2d6f…2d8b at0005 = ╱54╱T╱ // 0x2d74 @0x5
0x2d6f…2d8b at0006 = ╱55╱U╱ // 0x2d75 @0x6
0x2d6f…2d8b at0007 = ╱44╱D╱ // 0x2d76 @0x7
0x2d6f…2d8b at0008 = ╱ed╱(╱ // 0x2d77 @0x8
0x2d6f…2d8b at0009 = ╱46╱F╱ // 0x2d78 @0x9
0x2d6f…2d8b at000a = ╱54╱T╱ // 0x2d79 @0xa
0x2d6f…2d8b at000b = ╱4f╱O╱ // 0x2d7a @0xb
0x2d6f…2d8b at000c = ╱54╱T╱ // 0x2d7b @0xc
0x2d6f…2d8b at000d = ╱41╱A╱ // 0x2d7c @0xd
0x2d6f…2d8b at000e = ╱4c╱L╱ // 0x2d7d @0xe
0x2d6f…2d8b at000f = ╱ef╱$╱ // 0x2d7e @0xf
0x2d6f…2d8b at0010 = ╱ec╱,╱ // 0x2d7f @0x10
0x2d6f…2d8b at0011 = ╱54╱T╱ // 0x2d80 @0x11
0x2d6f…2d8b at0012 = ╱41╱A╱ // 0x2d81 @0x12
0x2d6f…2d8b at0013 = ╱4c╱L╱ // 0x2d82 @0x13
0x2d6f…2d8b at0014 = ╱34╱4╱ // 0x2d83 @0x14
0x2d6f…2d8b at0015 = ╱ef╱$╱ // 0x2d84 @0x15
0x2d6f…2d8b at0016 = ╱ec╱,╱ // 0x2d85 @0x16
0x2d6f…2d8b at0017 = ╱45╱E╱ // 0x2d86 @0x17
0x2d6f…2d8b at0018 = ╱ec╱,╱ // 0x2d87 @0x18
0x2d6f…2d8b at0019 = ╱42╱B╱ // 0x2d88 @0x19
0x2d6f…2d8b at001a = ╱ee╱)╱ // 0x2d89 @0x1a
0x2d6f…2d8b at001b = EOL // 0x2d8a @0x1b
0x2d6f…2d8b }
0x2d8b…2d94 baeb 4580 PRINT " "
0x2d8b…2d94 LineComalBin {
0x2d8b…2d94 ptr = 0xbaeb // 0x2d8b @0x0
0x2d8b…2d94 lno = 0x11e4 // 0x2d8d @0x2
0x2d8b…2d94 at0004 = ╱92╱ PRINT ╱ // 0x2d8f @0x4
0x2d8b…2d94 at0005 = ╱22╱"╱ // 0x2d90 @0x5
0x2d8b…2d94 at0006 = ╱20╱…╱ // 0x2d91 @0x6
0x2d8b…2d94 at0007 = ╱22╱"╱ // 0x2d92 @0x7
0x2d8b…2d94 at0008 = EOL // 0x2d93 @0x8
0x2d8b…2d94 }
0x2d94…2daa bb01 4590 EXEC TOMLINIE(5)
0x2d94…2daa LineComalBin {
0x2d94…2daa ptr = 0xbb01 // 0x2d94 @0x0
0x2d94…2daa lno = 0x11ee // 0x2d96 @0x2
0x2d94…2daa at0004 = ╱9d╱ EXEC ╱ // 0x2d98 @0x4
0x2d94…2daa at0005 = ╱54╱T╱ // 0x2d99 @0x5
0x2d94…2daa at0006 = ╱4f╱O╱ // 0x2d9a @0x6
0x2d94…2daa at0007 = ╱4d╱M╱ // 0x2d9b @0x7
0x2d94…2daa at0008 = ╱4c╱L╱ // 0x2d9c @0x8
0x2d94…2daa at0009 = ╱49╱I╱ // 0x2d9d @0x9
0x2d94…2daa at000a = ╱4e╱N╱ // 0x2d9e @0xa
0x2d94…2daa at000b = ╱49╱I╱ // 0x2d9f @0xb
0x2d94…2daa at000c = ╱45╱E╱ // 0x2da0 @0xc
0x2d94…2daa at000d = ╱ed╱(╱ // 0x2da1 @0xd
0x2d94…2daa at000e = ╱35╱5╱ // 0x2da2 @0xe
0x2d94…2daa at000f = ╱fe0000a003╱ // 0x2da3 @0xf
0x2d94…2daa at0014 = ╱ee╱)╱ // 0x2da8 @0x14
0x2d94…2daa at0015 = EOL // 0x2da9 @0x15
0x2d94…2daa }
0x2daa…2db6 bb0d 4600 IF GEN=B THEN
0x2daa…2db6 LineComalBin {
0x2daa…2db6 ptr = 0xbb0d // 0x2daa @0x0
0x2daa…2db6 lno = 0x11f8 // 0x2dac @0x2
0x2daa…2db6 at0004 = ╱9c╱ IF ╱ // 0x2dae @0x4
0x2daa…2db6 at0005 = ╱47╱G╱ // 0x2daf @0x5
0x2daa…2db6 at0006 = ╱45╱E╱ // 0x2db0 @0x6
0x2daa…2db6 at0007 = ╱4e╱N╱ // 0x2db1 @0x7
0x2daa…2db6 at0008 = ╱dc╱=╱ // 0x2db2 @0x8
0x2daa…2db6 at0009 = ╱42╱B╱ // 0x2db3 @0x9
0x2daa…2db6 at000a = ╱b6╱ THEN ╱ // 0x2db4 @0xa
0x2daa…2db6 at000b = EOL // 0x2db5 @0xb
0x2daa…2db6 }
0x2db6…2dc1 bb18 4610 OPEN K7$,W
0x2db6…2dc1 LineComalBin {
0x2db6…2dc1 ptr = 0xbb18 // 0x2db6 @0x0
0x2db6…2dc1 lno = 0x1202 // 0x2db8 @0x2
0x2db6…2dc1 at0004 = ╱a7╱ OPEN ╱ // 0x2dba @0x4
0x2db6…2dc1 at0005 = ╱4b╱K╱ // 0x2dbb @0x5
0x2db6…2dc1 at0006 = ╱37╱7╱ // 0x2dbc @0x6
0x2db6…2dc1 at0007 = ╱ef╱$╱ // 0x2dbd @0x7
0x2db6…2dc1 at0008 = ╱ec╱,╱ // 0x2dbe @0x8
0x2db6…2dc1 at0009 = ╱57╱W╱ // 0x2dbf @0x9
0x2db6…2dc1 at000a = EOL // 0x2dc0 @0xa
0x2db6…2dc1 }
0x2dc1…2dd9 bb30 4620 EXEC FEJL(4,E,K7$)
0x2dc1…2dd9 LineComalBin {
0x2dc1…2dd9 ptr = 0xbb30 // 0x2dc1 @0x0
0x2dc1…2dd9 lno = 0x120c // 0x2dc3 @0x2
0x2dc1…2dd9 at0004 = ╱9d╱ EXEC ╱ // 0x2dc5 @0x4
0x2dc1…2dd9 at0005 = ╱46╱F╱ // 0x2dc6 @0x5
0x2dc1…2dd9 at0006 = ╱45╱E╱ // 0x2dc7 @0x6
0x2dc1…2dd9 at0007 = ╱4a╱J╱ // 0x2dc8 @0x7
0x2dc1…2dd9 at0008 = ╱4c╱L╱ // 0x2dc9 @0x8
0x2dc1…2dd9 at0009 = ╱ed╱(╱ // 0x2dca @0x9
0x2dc1…2dd9 at000a = ╱34╱4╱ // 0x2dcb @0xa
0x2dc1…2dd9 at000b = ╱fe00008003╱ // 0x2dcc @0xb
0x2dc1…2dd9 at0010 = ╱ec╱,╱ // 0x2dd1 @0x10
0x2dc1…2dd9 at0011 = ╱45╱E╱ // 0x2dd2 @0x11
0x2dc1…2dd9 at0012 = ╱ec╱,╱ // 0x2dd3 @0x12
0x2dc1…2dd9 at0013 = ╱4b╱K╱ // 0x2dd4 @0x13
0x2dc1…2dd9 at0014 = ╱37╱7╱ // 0x2dd5 @0x14
0x2dc1…2dd9 at0015 = ╱ef╱$╱ // 0x2dd6 @0x15
0x2dc1…2dd9 at0016 = ╱ee╱)╱ // 0x2dd7 @0x16
0x2dc1…2dd9 at0017 = EOL // 0x2dd8 @0x17
0x2dc1…2dd9 }
0x2dd9…2ded bb44 4630 FJPOST=FJPOST+E
0x2dd9…2ded LineComalBin {
0x2dd9…2ded ptr = 0xbb44 // 0x2dd9 @0x0
0x2dd9…2ded lno = 0x1216 // 0x2ddb @0x2
0x2dd9…2ded at0004 = ╱46╱F╱ // 0x2ddd @0x4
0x2dd9…2ded at0005 = ╱4a╱J╱ // 0x2dde @0x5
0x2dd9…2ded at0006 = ╱50╱P╱ // 0x2ddf @0x6
0x2dd9…2ded at0007 = ╱4f╱O╱ // 0x2de0 @0x7
0x2dd9…2ded at0008 = ╱53╱S╱ // 0x2de1 @0x8
0x2dd9…2ded at0009 = ╱54╱T╱ // 0x2de2 @0x9
0x2dd9…2ded at000a = ╱dc╱=╱ // 0x2de3 @0xa
0x2dd9…2ded at000b = ╱46╱F╱ // 0x2de4 @0xb
0x2dd9…2ded at000c = ╱4a╱J╱ // 0x2de5 @0xc
0x2dd9…2ded at000d = ╱50╱P╱ // 0x2de6 @0xd
0x2dd9…2ded at000e = ╱4f╱O╱ // 0x2de7 @0xe
0x2dd9…2ded at000f = ╱53╱S╱ // 0x2de8 @0xf
0x2dd9…2ded at0010 = ╱54╱T╱ // 0x2de9 @0x10
0x2dd9…2ded at0011 = ╱e2╱+╱ // 0x2dea @0x11
0x2dd9…2ded at0012 = ╱45╱E╱ // 0x2deb @0x12
0x2dd9…2ded at0013 = EOL // 0x2dec @0x13
0x2dd9…2ded }
0x2ded…2dff bb56 4640 IF FAKKRE$="K" THEN
0x2ded…2dff LineComalBin {
0x2ded…2dff ptr = 0xbb56 // 0x2ded @0x0
0x2ded…2dff lno = 0x1220 // 0x2def @0x2
0x2ded…2dff at0004 = ╱9c╱ IF ╱ // 0x2df1 @0x4
0x2ded…2dff at0005 = ╱46╱F╱ // 0x2df2 @0x5
0x2ded…2dff at0006 = ╱41╱A╱ // 0x2df3 @0x6
0x2ded…2dff at0007 = ╱4b╱K╱ // 0x2df4 @0x7
0x2ded…2dff at0008 = ╱4b╱K╱ // 0x2df5 @0x8
0x2ded…2dff at0009 = ╱52╱R╱ // 0x2df6 @0x9
0x2ded…2dff at000a = ╱45╱E╱ // 0x2df7 @0xa
0x2ded…2dff at000b = ╱ef╱$╱ // 0x2df8 @0xb
0x2ded…2dff at000c = ╱dc╱=╱ // 0x2df9 @0xc
0x2ded…2dff at000d = ╱22╱"╱ // 0x2dfa @0xd
0x2ded…2dff at000e = ╱4b╱K╱ // 0x2dfb @0xe
0x2ded…2dff at000f = ╱22╱"╱ // 0x2dfc @0xf
0x2ded…2dff at0010 = ╱b6╱ THEN ╱ // 0x2dfd @0x10
0x2ded…2dff at0011 = EOL // 0x2dfe @0x11
0x2ded…2dff }
0x2dff…2e34 bb8b 4650 FTOTAL$(12)="-";VARENR=KREDNR;AKRED=AKRED-E
0x2dff…2e34 LineComalBin {
0x2dff…2e34 ptr = 0xbb8b // 0x2dff @0x0
0x2dff…2e34 lno = 0x122a // 0x2e01 @0x2
0x2dff…2e34 at0004 = ╱46╱F╱ // 0x2e03 @0x4
0x2dff…2e34 at0005 = ╱54╱T╱ // 0x2e04 @0x5
0x2dff…2e34 at0006 = ╱4f╱O╱ // 0x2e05 @0x6
0x2dff…2e34 at0007 = ╱54╱T╱ // 0x2e06 @0x7
0x2dff…2e34 at0008 = ╱41╱A╱ // 0x2e07 @0x8
0x2dff…2e34 at0009 = ╱4c╱L╱ // 0x2e08 @0x9
0x2dff…2e34 at000a = ╱ef╱$╱ // 0x2e09 @0xa
0x2dff…2e34 at000b = ╱ed╱(╱ // 0x2e0a @0xb
0x2dff…2e34 at000c = ╱31╱1╱ // 0x2e0b @0xc
0x2dff…2e34 at000d = ╱32╱2╱ // 0x2e0c @0xd
0x2dff…2e34 at000e = ╱fe0000c004╱ // 0x2e0d @0xe
0x2dff…2e34 at0013 = ╱ee╱)╱ // 0x2e12 @0x13
0x2dff…2e34 at0014 = ╱dc╱=╱ // 0x2e13 @0x14
0x2dff…2e34 at0015 = ╱22╱"╱ // 0x2e14 @0x15
0x2dff…2e34 at0016 = ╱2d╱-╱ // 0x2e15 @0x16
0x2dff…2e34 at0017 = ╱22╱"╱ // 0x2e16 @0x17
0x2dff…2e34 at0018 = ╱eb╱;╱ // 0x2e17 @0x18
0x2dff…2e34 at0019 = ╱56╱V╱ // 0x2e18 @0x19
0x2dff…2e34 at001a = ╱41╱A╱ // 0x2e19 @0x1a
0x2dff…2e34 at001b = ╱52╱R╱ // 0x2e1a @0x1b
0x2dff…2e34 at001c = ╱45╱E╱ // 0x2e1b @0x1c
0x2dff…2e34 at001d = ╱4e╱N╱ // 0x2e1c @0x1d
0x2dff…2e34 at001e = ╱52╱R╱ // 0x2e1d @0x1e
0x2dff…2e34 at001f = ╱dc╱=╱ // 0x2e1e @0x1f
0x2dff…2e34 at0020 = ╱4b╱K╱ // 0x2e1f @0x20
0x2dff…2e34 at0021 = ╱52╱R╱ // 0x2e20 @0x21
0x2dff…2e34 at0022 = ╱45╱E╱ // 0x2e21 @0x22
0x2dff…2e34 at0023 = ╱44╱D╱ // 0x2e22 @0x23
0x2dff…2e34 at0024 = ╱4e╱N╱ // 0x2e23 @0x24
0x2dff…2e34 at0025 = ╱52╱R╱ // 0x2e24 @0x25
0x2dff…2e34 at0026 = ╱eb╱;╱ // 0x2e25 @0x26
0x2dff…2e34 at0027 = ╱41╱A╱ // 0x2e26 @0x27
0x2dff…2e34 at0028 = ╱4b╱K╱ // 0x2e27 @0x28
0x2dff…2e34 at0029 = ╱52╱R╱ // 0x2e28 @0x29
0x2dff…2e34 at002a = ╱45╱E╱ // 0x2e29 @0x2a
0x2dff…2e34 at002b = ╱44╱D╱ // 0x2e2a @0x2b
0x2dff…2e34 at002c = ╱dc╱=╱ // 0x2e2b @0x2c
0x2dff…2e34 at002d = ╱41╱A╱ // 0x2e2c @0x2d
0x2dff…2e34 at002e = ╱4b╱K╱ // 0x2e2d @0x2e
0x2dff…2e34 at002f = ╱52╱R╱ // 0x2e2e @0x2f
0x2dff…2e34 at0030 = ╱45╱E╱ // 0x2e2f @0x30
0x2dff…2e34 at0031 = ╱44╱D╱ // 0x2e30 @0x31
0x2dff…2e34 at0032 = ╱e3╱-╱ // 0x2e31 @0x32
0x2dff…2e34 at0033 = ╱45╱E╱ // 0x2e32 @0x33
0x2dff…2e34 at0034 = EOL // 0x2e33 @0x34
0x2dff…2e34 }
0x2e34…2e3a bb91 4660 ELSE
0x2e34…2e3a LineComalBin {
0x2e34…2e3a ptr = 0xbb91 // 0x2e34 @0x0
0x2e34…2e3a lno = 0x1234 // 0x2e36 @0x2
0x2e34…2e3a at0004 = ╱9a╱ ELSE ╱ // 0x2e38 @0x4
0x2e34…2e3a at0005 = EOL // 0x2e39 @0x5
0x2e34…2e3a }
0x2e3a…2e5a bbb1 4670 VARENR=FAKTNR;AFAKT=AFAKT-E
0x2e3a…2e5a LineComalBin {
0x2e3a…2e5a ptr = 0xbbb1 // 0x2e3a @0x0
0x2e3a…2e5a lno = 0x123e // 0x2e3c @0x2
0x2e3a…2e5a at0004 = ╱56╱V╱ // 0x2e3e @0x4
0x2e3a…2e5a at0005 = ╱41╱A╱ // 0x2e3f @0x5
0x2e3a…2e5a at0006 = ╱52╱R╱ // 0x2e40 @0x6
0x2e3a…2e5a at0007 = ╱45╱E╱ // 0x2e41 @0x7
0x2e3a…2e5a at0008 = ╱4e╱N╱ // 0x2e42 @0x8
0x2e3a…2e5a at0009 = ╱52╱R╱ // 0x2e43 @0x9
0x2e3a…2e5a at000a = ╱dc╱=╱ // 0x2e44 @0xa
0x2e3a…2e5a at000b = ╱46╱F╱ // 0x2e45 @0xb
0x2e3a…2e5a at000c = ╱41╱A╱ // 0x2e46 @0xc
0x2e3a…2e5a at000d = ╱4b╱K╱ // 0x2e47 @0xd
0x2e3a…2e5a at000e = ╱54╱T╱ // 0x2e48 @0xe
0x2e3a…2e5a at000f = ╱4e╱N╱ // 0x2e49 @0xf
0x2e3a…2e5a at0010 = ╱52╱R╱ // 0x2e4a @0x10
0x2e3a…2e5a at0011 = ╱eb╱;╱ // 0x2e4b @0x11
0x2e3a…2e5a at0012 = ╱41╱A╱ // 0x2e4c @0x12
0x2e3a…2e5a at0013 = ╱46╱F╱ // 0x2e4d @0x13
0x2e3a…2e5a at0014 = ╱41╱A╱ // 0x2e4e @0x14
0x2e3a…2e5a at0015 = ╱4b╱K╱ // 0x2e4f @0x15
0x2e3a…2e5a at0016 = ╱54╱T╱ // 0x2e50 @0x16
0x2e3a…2e5a at0017 = ╱dc╱=╱ // 0x2e51 @0x17
0x2e3a…2e5a at0018 = ╱41╱A╱ // 0x2e52 @0x18
0x2e3a…2e5a at0019 = ╱46╱F╱ // 0x2e53 @0x19
0x2e3a…2e5a at001a = ╱41╱A╱ // 0x2e54 @0x1a
0x2e3a…2e5a at001b = ╱4b╱K╱ // 0x2e55 @0x1b
0x2e3a…2e5a at001c = ╱54╱T╱ // 0x2e56 @0x1c
0x2e3a…2e5a at001d = ╱e3╱-╱ // 0x2e57 @0x1d
0x2e3a…2e5a at001e = ╱45╱E╱ // 0x2e58 @0x1e
0x2e3a…2e5a at001f = EOL // 0x2e59 @0x1f
0x2e3a…2e5a }
0x2e5a…2e60 bbb7 4680 ENDIF
0x2e5a…2e60 LineComalBin {
0x2e5a…2e60 ptr = 0xbbb7 // 0x2e5a @0x0
0x2e5a…2e60 lno = 0x1248 // 0x2e5c @0x2
0x2e5a…2e60 at0004 = ╱9b╱ ENDIF ╱ // 0x2e5e @0x4
0x2e5a…2e60 at0005 = EOL // 0x2e5f @0x5
0x2e5a…2e60 }
0x2e60…2e95 bbec 4690 PUT K7$,FJPOST:KUNDENR,FTOTAL$,VARENR,FDATO,ORDRENR
0x2e60…2e95 LineComalBin {
0x2e60…2e95 ptr = 0xbbec // 0x2e60 @0x0
0x2e60…2e95 lno = 0x1252 // 0x2e62 @0x2
0x2e60…2e95 at0004 = ╱aa╱ PUT ╱ // 0x2e64 @0x4
0x2e60…2e95 at0005 = ╱4b╱K╱ // 0x2e65 @0x5
0x2e60…2e95 at0006 = ╱37╱7╱ // 0x2e66 @0x6
0x2e60…2e95 at0007 = ╱ef╱$╱ // 0x2e67 @0x7
0x2e60…2e95 at0008 = ╱ec╱,╱ // 0x2e68 @0x8
0x2e60…2e95 at0009 = ╱46╱F╱ // 0x2e69 @0x9
0x2e60…2e95 at000a = ╱4a╱J╱ // 0x2e6a @0xa
0x2e60…2e95 at000b = ╱50╱P╱ // 0x2e6b @0xb
0x2e60…2e95 at000c = ╱4f╱O╱ // 0x2e6c @0xc
0x2e60…2e95 at000d = ╱53╱S╱ // 0x2e6d @0xd
0x2e60…2e95 at000e = ╱54╱T╱ // 0x2e6e @0xe
0x2e60…2e95 at000f = ╱f0╱:╱ // 0x2e6f @0xf
0x2e60…2e95 at0010 = ╱4b╱K╱ // 0x2e70 @0x10
0x2e60…2e95 at0011 = ╱55╱U╱ // 0x2e71 @0x11
0x2e60…2e95 at0012 = ╱4e╱N╱ // 0x2e72 @0x12
0x2e60…2e95 at0013 = ╱44╱D╱ // 0x2e73 @0x13
0x2e60…2e95 at0014 = ╱45╱E╱ // 0x2e74 @0x14
0x2e60…2e95 at0015 = ╱4e╱N╱ // 0x2e75 @0x15
0x2e60…2e95 at0016 = ╱52╱R╱ // 0x2e76 @0x16
0x2e60…2e95 at0017 = ╱ec╱,╱ // 0x2e77 @0x17
0x2e60…2e95 at0018 = ╱46╱F╱ // 0x2e78 @0x18
0x2e60…2e95 at0019 = ╱54╱T╱ // 0x2e79 @0x19
0x2e60…2e95 at001a = ╱4f╱O╱ // 0x2e7a @0x1a
0x2e60…2e95 at001b = ╱54╱T╱ // 0x2e7b @0x1b
0x2e60…2e95 at001c = ╱41╱A╱ // 0x2e7c @0x1c
0x2e60…2e95 at001d = ╱4c╱L╱ // 0x2e7d @0x1d
0x2e60…2e95 at001e = ╱ef╱$╱ // 0x2e7e @0x1e
0x2e60…2e95 at001f = ╱ec╱,╱ // 0x2e7f @0x1f
0x2e60…2e95 at0020 = ╱56╱V╱ // 0x2e80 @0x20
0x2e60…2e95 at0021 = ╱41╱A╱ // 0x2e81 @0x21
0x2e60…2e95 at0022 = ╱52╱R╱ // 0x2e82 @0x22
0x2e60…2e95 at0023 = ╱45╱E╱ // 0x2e83 @0x23
0x2e60…2e95 at0024 = ╱4e╱N╱ // 0x2e84 @0x24
0x2e60…2e95 at0025 = ╱52╱R╱ // 0x2e85 @0x25
0x2e60…2e95 at0026 = ╱ec╱,╱ // 0x2e86 @0x26
0x2e60…2e95 at0027 = ╱46╱F╱ // 0x2e87 @0x27
0x2e60…2e95 at0028 = ╱44╱D╱ // 0x2e88 @0x28
0x2e60…2e95 at0029 = ╱41╱A╱ // 0x2e89 @0x29
0x2e60…2e95 at002a = ╱54╱T╱ // 0x2e8a @0x2a
0x2e60…2e95 at002b = ╱4f╱O╱ // 0x2e8b @0x2b
0x2e60…2e95 at002c = ╱ec╱,╱ // 0x2e8c @0x2c
0x2e60…2e95 at002d = ╱4f╱O╱ // 0x2e8d @0x2d
0x2e60…2e95 at002e = ╱52╱R╱ // 0x2e8e @0x2e
0x2e60…2e95 at002f = ╱44╱D╱ // 0x2e8f @0x2f
0x2e60…2e95 at0030 = ╱52╱R╱ // 0x2e90 @0x30
0x2e60…2e95 at0031 = ╱45╱E╱ // 0x2e91 @0x31
0x2e60…2e95 at0032 = ╱4e╱N╱ // 0x2e92 @0x32
0x2e60…2e95 at0033 = ╱52╱R╱ // 0x2e93 @0x33
0x2e60…2e95 at0034 = EOL // 0x2e94 @0x34
0x2e60…2e95 }
0x2e95…2ead bc04 4700 EXEC FEJL(4,G,K7$)
0x2e95…2ead LineComalBin {
0x2e95…2ead ptr = 0xbc04 // 0x2e95 @0x0
0x2e95…2ead lno = 0x125c // 0x2e97 @0x2
0x2e95…2ead at0004 = ╱9d╱ EXEC ╱ // 0x2e99 @0x4
0x2e95…2ead at0005 = ╱46╱F╱ // 0x2e9a @0x5
0x2e95…2ead at0006 = ╱45╱E╱ // 0x2e9b @0x6
0x2e95…2ead at0007 = ╱4a╱J╱ // 0x2e9c @0x7
0x2e95…2ead at0008 = ╱4c╱L╱ // 0x2e9d @0x8
0x2e95…2ead at0009 = ╱ed╱(╱ // 0x2e9e @0x9
0x2e95…2ead at000a = ╱34╱4╱ // 0x2e9f @0xa
0x2e95…2ead at000b = ╱fe00008003╱ // 0x2ea0 @0xb
0x2e95…2ead at0010 = ╱ec╱,╱ // 0x2ea5 @0x10
0x2e95…2ead at0011 = ╱47╱G╱ // 0x2ea6 @0x11
0x2e95…2ead at0012 = ╱ec╱,╱ // 0x2ea7 @0x12
0x2e95…2ead at0013 = ╱4b╱K╱ // 0x2ea8 @0x13
0x2e95…2ead at0014 = ╱37╱7╱ // 0x2ea9 @0x14
0x2e95…2ead at0015 = ╱ef╱$╱ // 0x2eaa @0x15
0x2e95…2ead at0016 = ╱ee╱)╱ // 0x2eab @0x16
0x2e95…2ead at0017 = EOL // 0x2eac @0x17
0x2e95…2ead }
0x2ead…2ebf bc16 4710 BELØB$=ÅRKØB$
0x2ead…2ebf LineComalBin {
0x2ead…2ebf ptr = 0xbc16 // 0x2ead @0x0
0x2ead…2ebf lno = 0x1266 // 0x2eaf @0x2
0x2ead…2ebf at0004 = ╱42╱B╱ // 0x2eb1 @0x4
0x2ead…2ebf at0005 = ╱45╱E╱ // 0x2eb2 @0x5
0x2ead…2ebf at0006 = ╱4c╱L╱ // 0x2eb3 @0x6
0x2ead…2ebf at0007 = ╱5c╱Ø╱ // 0x2eb4 @0x7
0x2ead…2ebf at0008 = ╱42╱B╱ // 0x2eb5 @0x8
0x2ead…2ebf at0009 = ╱ef╱$╱ // 0x2eb6 @0x9
0x2ead…2ebf at000a = ╱dc╱=╱ // 0x2eb7 @0xa
0x2ead…2ebf at000b = ╱5d╱Å╱ // 0x2eb8 @0xb
0x2ead…2ebf at000c = ╱52╱R╱ // 0x2eb9 @0xc
0x2ead…2ebf at000d = ╱4b╱K╱ // 0x2eba @0xd
0x2ead…2ebf at000e = ╱5c╱Ø╱ // 0x2ebb @0xe
0x2ead…2ebf at000f = ╱42╱B╱ // 0x2ebc @0xf
0x2ead…2ebf at0010 = ╱ef╱$╱ // 0x2ebd @0x10
0x2ead…2ebf at0011 = EOL // 0x2ebe @0x11
0x2ead…2ebf }
0x2ebf…2ec8 bc1f 4720 CLOSE K7$
0x2ebf…2ec8 LineComalBin {
0x2ebf…2ec8 ptr = 0xbc1f // 0x2ebf @0x0
0x2ebf…2ec8 lno = 0x1270 // 0x2ec1 @0x2
0x2ebf…2ec8 at0004 = ╱a8╱ CLOSE ╱ // 0x2ec3 @0x4
0x2ebf…2ec8 at0005 = ╱4b╱K╱ // 0x2ec4 @0x5
0x2ebf…2ec8 at0006 = ╱37╱7╱ // 0x2ec5 @0x6
0x2ebf…2ec8 at0007 = ╱ef╱$╱ // 0x2ec6 @0x7
0x2ebf…2ec8 at0008 = EOL // 0x2ec7 @0x8
0x2ebf…2ec8 }
0x2ec8…2ee0 bc37 4730 EXEC FEJL(4,V,K7$)
0x2ec8…2ee0 LineComalBin {
0x2ec8…2ee0 ptr = 0xbc37 // 0x2ec8 @0x0
0x2ec8…2ee0 lno = 0x127a // 0x2eca @0x2
0x2ec8…2ee0 at0004 = ╱9d╱ EXEC ╱ // 0x2ecc @0x4
0x2ec8…2ee0 at0005 = ╱46╱F╱ // 0x2ecd @0x5
0x2ec8…2ee0 at0006 = ╱45╱E╱ // 0x2ece @0x6
0x2ec8…2ee0 at0007 = ╱4a╱J╱ // 0x2ecf @0x7
0x2ec8…2ee0 at0008 = ╱4c╱L╱ // 0x2ed0 @0x8
0x2ec8…2ee0 at0009 = ╱ed╱(╱ // 0x2ed1 @0x9
0x2ec8…2ee0 at000a = ╱34╱4╱ // 0x2ed2 @0xa
0x2ec8…2ee0 at000b = ╱fe00008003╱ // 0x2ed3 @0xb
0x2ec8…2ee0 at0010 = ╱ec╱,╱ // 0x2ed8 @0x10
0x2ec8…2ee0 at0011 = ╱56╱V╱ // 0x2ed9 @0x11
0x2ec8…2ee0 at0012 = ╱ec╱,╱ // 0x2eda @0x12
0x2ec8…2ee0 at0013 = ╱4b╱K╱ // 0x2edb @0x13
0x2ec8…2ee0 at0014 = ╱37╱7╱ // 0x2edc @0x14
0x2ec8…2ee0 at0015 = ╱ef╱$╱ // 0x2edd @0x15
0x2ec8…2ee0 at0016 = ╱ee╱)╱ // 0x2ede @0x16
0x2ec8…2ee0 at0017 = EOL // 0x2edf @0x17
0x2ec8…2ee0 }
0x2ee0…2f01 bc58 4740 EXEC CALC(E,TOTAL$,FORS$,TOTAL$)
0x2ee0…2f01 LineComalBin {
0x2ee0…2f01 ptr = 0xbc58 // 0x2ee0 @0x0
0x2ee0…2f01 lno = 0x1284 // 0x2ee2 @0x2
0x2ee0…2f01 at0004 = ╱9d╱ EXEC ╱ // 0x2ee4 @0x4
0x2ee0…2f01 at0005 = ╱43╱C╱ // 0x2ee5 @0x5
0x2ee0…2f01 at0006 = ╱41╱A╱ // 0x2ee6 @0x6
0x2ee0…2f01 at0007 = ╱4c╱L╱ // 0x2ee7 @0x7
0x2ee0…2f01 at0008 = ╱43╱C╱ // 0x2ee8 @0x8
0x2ee0…2f01 at0009 = ╱ed╱(╱ // 0x2ee9 @0x9
0x2ee0…2f01 at000a = ╱45╱E╱ // 0x2eea @0xa
0x2ee0…2f01 at000b = ╱ec╱,╱ // 0x2eeb @0xb
0x2ee0…2f01 at000c = ╱54╱T╱ // 0x2eec @0xc
0x2ee0…2f01 at000d = ╱4f╱O╱ // 0x2eed @0xd
0x2ee0…2f01 at000e = ╱54╱T╱ // 0x2eee @0xe
0x2ee0…2f01 at000f = ╱41╱A╱ // 0x2eef @0xf
0x2ee0…2f01 at0010 = ╱4c╱L╱ // 0x2ef0 @0x10
0x2ee0…2f01 at0011 = ╱ef╱$╱ // 0x2ef1 @0x11
0x2ee0…2f01 at0012 = ╱ec╱,╱ // 0x2ef2 @0x12
0x2ee0…2f01 at0013 = ╱46╱F╱ // 0x2ef3 @0x13
0x2ee0…2f01 at0014 = ╱4f╱O╱ // 0x2ef4 @0x14
0x2ee0…2f01 at0015 = ╱52╱R╱ // 0x2ef5 @0x15
0x2ee0…2f01 at0016 = ╱53╱S╱ // 0x2ef6 @0x16
0x2ee0…2f01 at0017 = ╱ef╱$╱ // 0x2ef7 @0x17
0x2ee0…2f01 at0018 = ╱ec╱,╱ // 0x2ef8 @0x18
0x2ee0…2f01 at0019 = ╱54╱T╱ // 0x2ef9 @0x19
0x2ee0…2f01 at001a = ╱4f╱O╱ // 0x2efa @0x1a
0x2ee0…2f01 at001b = ╱54╱T╱ // 0x2efb @0x1b
0x2ee0…2f01 at001c = ╱41╱A╱ // 0x2efc @0x1c
0x2ee0…2f01 at001d = ╱4c╱L╱ // 0x2efd @0x1d
0x2ee0…2f01 at001e = ╱ef╱$╱ // 0x2efe @0x1e
0x2ee0…2f01 at001f = ╱ee╱)╱ // 0x2eff @0x1f
0x2ee0…2f01 at0020 = EOL // 0x2f00 @0x20
0x2ee0…2f01 }
0x2f01…2f26 bc7d 4750 IF FAKKRE$="K" THEN TOTAL$(12)="-"
0x2f01…2f26 LineComalBin {
0x2f01…2f26 ptr = 0xbc7d // 0x2f01 @0x0
0x2f01…2f26 lno = 0x128e // 0x2f03 @0x2
0x2f01…2f26 at0004 = ╱82╱ IF ╱ // 0x2f05 @0x4
0x2f01…2f26 at0005 = ╱46╱F╱ // 0x2f06 @0x5
0x2f01…2f26 at0006 = ╱41╱A╱ // 0x2f07 @0x6
0x2f01…2f26 at0007 = ╱4b╱K╱ // 0x2f08 @0x7
0x2f01…2f26 at0008 = ╱4b╱K╱ // 0x2f09 @0x8
0x2f01…2f26 at0009 = ╱52╱R╱ // 0x2f0a @0x9
0x2f01…2f26 at000a = ╱45╱E╱ // 0x2f0b @0xa
0x2f01…2f26 at000b = ╱ef╱$╱ // 0x2f0c @0xb
0x2f01…2f26 at000c = ╱dc╱=╱ // 0x2f0d @0xc
0x2f01…2f26 at000d = ╱22╱"╱ // 0x2f0e @0xd
0x2f01…2f26 at000e = ╱4b╱K╱ // 0x2f0f @0xe
0x2f01…2f26 at000f = ╱22╱"╱ // 0x2f10 @0xf
0x2f01…2f26 at0010 = ╱b6╱ THEN ╱ // 0x2f11 @0x10
0x2f01…2f26 at0011 = ╱54╱T╱ // 0x2f12 @0x11
0x2f01…2f26 at0012 = ╱4f╱O╱ // 0x2f13 @0x12
0x2f01…2f26 at0013 = ╱54╱T╱ // 0x2f14 @0x13
0x2f01…2f26 at0014 = ╱41╱A╱ // 0x2f15 @0x14
0x2f01…2f26 at0015 = ╱4c╱L╱ // 0x2f16 @0x15
0x2f01…2f26 at0016 = ╱ef╱$╱ // 0x2f17 @0x16
0x2f01…2f26 at0017 = ╱ed╱(╱ // 0x2f18 @0x17
0x2f01…2f26 at0018 = ╱31╱1╱ // 0x2f19 @0x18
0x2f01…2f26 at0019 = ╱32╱2╱ // 0x2f1a @0x19
0x2f01…2f26 at001a = ╱fe0000c004╱ // 0x2f1b @0x1a
0x2f01…2f26 at001f = ╱ee╱)╱ // 0x2f20 @0x1f
0x2f01…2f26 at0020 = ╱dc╱=╱ // 0x2f21 @0x20
0x2f01…2f26 at0021 = ╱22╱"╱ // 0x2f22 @0x21
0x2f01…2f26 at0022 = ╱2d╱-╱ // 0x2f23 @0x22
0x2f01…2f26 at0023 = ╱22╱"╱ // 0x2f24 @0x23
0x2f01…2f26 at0024 = EOL // 0x2f25 @0x24
0x2f01…2f26 }
0x2f26…2f4a bca1 4760 EXEC CALC(B,MDNKØB$,TOTAL$,MDNKØB$)
0x2f26…2f4a LineComalBin {
0x2f26…2f4a ptr = 0xbca1 // 0x2f26 @0x0
0x2f26…2f4a lno = 0x1298 // 0x2f28 @0x2
0x2f26…2f4a at0004 = ╱9d╱ EXEC ╱ // 0x2f2a @0x4
0x2f26…2f4a at0005 = ╱43╱C╱ // 0x2f2b @0x5
0x2f26…2f4a at0006 = ╱41╱A╱ // 0x2f2c @0x6
0x2f26…2f4a at0007 = ╱4c╱L╱ // 0x2f2d @0x7
0x2f26…2f4a at0008 = ╱43╱C╱ // 0x2f2e @0x8
0x2f26…2f4a at0009 = ╱ed╱(╱ // 0x2f2f @0x9
0x2f26…2f4a at000a = ╱42╱B╱ // 0x2f30 @0xa
0x2f26…2f4a at000b = ╱ec╱,╱ // 0x2f31 @0xb
0x2f26…2f4a at000c = ╱4d╱M╱ // 0x2f32 @0xc
0x2f26…2f4a at000d = ╱44╱D╱ // 0x2f33 @0xd
0x2f26…2f4a at000e = ╱4e╱N╱ // 0x2f34 @0xe
0x2f26…2f4a at000f = ╱4b╱K╱ // 0x2f35 @0xf
0x2f26…2f4a at0010 = ╱5c╱Ø╱ // 0x2f36 @0x10
0x2f26…2f4a at0011 = ╱42╱B╱ // 0x2f37 @0x11
0x2f26…2f4a at0012 = ╱ef╱$╱ // 0x2f38 @0x12
0x2f26…2f4a at0013 = ╱ec╱,╱ // 0x2f39 @0x13
0x2f26…2f4a at0014 = ╱54╱T╱ // 0x2f3a @0x14
0x2f26…2f4a at0015 = ╱4f╱O╱ // 0x2f3b @0x15
0x2f26…2f4a at0016 = ╱54╱T╱ // 0x2f3c @0x16
0x2f26…2f4a at0017 = ╱41╱A╱ // 0x2f3d @0x17
0x2f26…2f4a at0018 = ╱4c╱L╱ // 0x2f3e @0x18
0x2f26…2f4a at0019 = ╱ef╱$╱ // 0x2f3f @0x19
0x2f26…2f4a at001a = ╱ec╱,╱ // 0x2f40 @0x1a
0x2f26…2f4a at001b = ╱4d╱M╱ // 0x2f41 @0x1b
0x2f26…2f4a at001c = ╱44╱D╱ // 0x2f42 @0x1c
0x2f26…2f4a at001d = ╱4e╱N╱ // 0x2f43 @0x1d
0x2f26…2f4a at001e = ╱4b╱K╱ // 0x2f44 @0x1e
0x2f26…2f4a at001f = ╱5c╱Ø╱ // 0x2f45 @0x1f
0x2f26…2f4a at0020 = ╱42╱B╱ // 0x2f46 @0x20
0x2f26…2f4a at0021 = ╱ef╱$╱ // 0x2f47 @0x21
0x2f26…2f4a at0022 = ╱ee╱)╱ // 0x2f48 @0x22
0x2f26…2f4a at0023 = EOL // 0x2f49 @0x23
0x2f26…2f4a }
0x2f4a…2f6c bcc3 4770 EXEC CALC(B,BELØB$,TOTAL$,BELØB$)
0x2f4a…2f6c LineComalBin {
0x2f4a…2f6c ptr = 0xbcc3 // 0x2f4a @0x0
0x2f4a…2f6c lno = 0x12a2 // 0x2f4c @0x2
0x2f4a…2f6c at0004 = ╱9d╱ EXEC ╱ // 0x2f4e @0x4
0x2f4a…2f6c at0005 = ╱43╱C╱ // 0x2f4f @0x5
0x2f4a…2f6c at0006 = ╱41╱A╱ // 0x2f50 @0x6
0x2f4a…2f6c at0007 = ╱4c╱L╱ // 0x2f51 @0x7
0x2f4a…2f6c at0008 = ╱43╱C╱ // 0x2f52 @0x8
0x2f4a…2f6c at0009 = ╱ed╱(╱ // 0x2f53 @0x9
0x2f4a…2f6c at000a = ╱42╱B╱ // 0x2f54 @0xa
0x2f4a…2f6c at000b = ╱ec╱,╱ // 0x2f55 @0xb
0x2f4a…2f6c at000c = ╱42╱B╱ // 0x2f56 @0xc
0x2f4a…2f6c at000d = ╱45╱E╱ // 0x2f57 @0xd
0x2f4a…2f6c at000e = ╱4c╱L╱ // 0x2f58 @0xe
0x2f4a…2f6c at000f = ╱5c╱Ø╱ // 0x2f59 @0xf
0x2f4a…2f6c at0010 = ╱42╱B╱ // 0x2f5a @0x10
0x2f4a…2f6c at0011 = ╱ef╱$╱ // 0x2f5b @0x11
0x2f4a…2f6c at0012 = ╱ec╱,╱ // 0x2f5c @0x12
0x2f4a…2f6c at0013 = ╱54╱T╱ // 0x2f5d @0x13
0x2f4a…2f6c at0014 = ╱4f╱O╱ // 0x2f5e @0x14
0x2f4a…2f6c at0015 = ╱54╱T╱ // 0x2f5f @0x15
0x2f4a…2f6c at0016 = ╱41╱A╱ // 0x2f60 @0x16
0x2f4a…2f6c at0017 = ╱4c╱L╱ // 0x2f61 @0x17
0x2f4a…2f6c at0018 = ╱ef╱$╱ // 0x2f62 @0x18
0x2f4a…2f6c at0019 = ╱ec╱,╱ // 0x2f63 @0x19
0x2f4a…2f6c at001a = ╱42╱B╱ // 0x2f64 @0x1a
0x2f4a…2f6c at001b = ╱45╱E╱ // 0x2f65 @0x1b
0x2f4a…2f6c at001c = ╱4c╱L╱ // 0x2f66 @0x1c
0x2f4a…2f6c at001d = ╱5c╱Ø╱ // 0x2f67 @0x1d
0x2f4a…2f6c at001e = ╱42╱B╱ // 0x2f68 @0x1e
0x2f4a…2f6c at001f = ╱ef╱$╱ // 0x2f69 @0x1f
0x2f4a…2f6c at0020 = ╱ee╱)╱ // 0x2f6a @0x20
0x2f4a…2f6c at0021 = EOL // 0x2f6b @0x21
0x2f4a…2f6c }
0x2f6c…2f7e bcd5 4780 ÅRKØB$=BELØB$
0x2f6c…2f7e LineComalBin {
0x2f6c…2f7e ptr = 0xbcd5 // 0x2f6c @0x0
0x2f6c…2f7e lno = 0x12ac // 0x2f6e @0x2
0x2f6c…2f7e at0004 = ╱5d╱Å╱ // 0x2f70 @0x4
0x2f6c…2f7e at0005 = ╱52╱R╱ // 0x2f71 @0x5
0x2f6c…2f7e at0006 = ╱4b╱K╱ // 0x2f72 @0x6
0x2f6c…2f7e at0007 = ╱5c╱Ø╱ // 0x2f73 @0x7
0x2f6c…2f7e at0008 = ╱42╱B╱ // 0x2f74 @0x8
0x2f6c…2f7e at0009 = ╱ef╱$╱ // 0x2f75 @0x9
0x2f6c…2f7e at000a = ╱dc╱=╱ // 0x2f76 @0xa
0x2f6c…2f7e at000b = ╱42╱B╱ // 0x2f77 @0xb
0x2f6c…2f7e at000c = ╱45╱E╱ // 0x2f78 @0xc
0x2f6c…2f7e at000d = ╱4c╱L╱ // 0x2f79 @0xd
0x2f6c…2f7e at000e = ╱5c╱Ø╱ // 0x2f7a @0xe
0x2f6c…2f7e at000f = ╱42╱B╱ // 0x2f7b @0xf
0x2f6c…2f7e at0010 = ╱ef╱$╱ // 0x2f7c @0x10
0x2f6c…2f7e at0011 = EOL // 0x2f7d @0x11
0x2f6c…2f7e }
0x2f7e…2fba bd11 4790 IF DIVD=E THEN DEBNAVN$=D1$;DEBGADE$=D2$;DEBBY$=D3$;DPOSTNR=D4
0x2f7e…2fba LineComalBin {
0x2f7e…2fba ptr = 0xbd11 // 0x2f7e @0x0
0x2f7e…2fba lno = 0x12b6 // 0x2f80 @0x2
0x2f7e…2fba at0004 = ╱82╱ IF ╱ // 0x2f82 @0x4
0x2f7e…2fba at0005 = ╱44╱D╱ // 0x2f83 @0x5
0x2f7e…2fba at0006 = ╱49╱I╱ // 0x2f84 @0x6
0x2f7e…2fba at0007 = ╱56╱V╱ // 0x2f85 @0x7
0x2f7e…2fba at0008 = ╱44╱D╱ // 0x2f86 @0x8
0x2f7e…2fba at0009 = ╱dc╱=╱ // 0x2f87 @0x9
0x2f7e…2fba at000a = ╱45╱E╱ // 0x2f88 @0xa
0x2f7e…2fba at000b = ╱b6╱ THEN ╱ // 0x2f89 @0xb
0x2f7e…2fba at000c = ╱44╱D╱ // 0x2f8a @0xc
0x2f7e…2fba at000d = ╱45╱E╱ // 0x2f8b @0xd
0x2f7e…2fba at000e = ╱42╱B╱ // 0x2f8c @0xe
0x2f7e…2fba at000f = ╱4e╱N╱ // 0x2f8d @0xf
0x2f7e…2fba at0010 = ╱41╱A╱ // 0x2f8e @0x10
0x2f7e…2fba at0011 = ╱56╱V╱ // 0x2f8f @0x11
0x2f7e…2fba at0012 = ╱4e╱N╱ // 0x2f90 @0x12
0x2f7e…2fba at0013 = ╱ef╱$╱ // 0x2f91 @0x13
0x2f7e…2fba at0014 = ╱dc╱=╱ // 0x2f92 @0x14
0x2f7e…2fba at0015 = ╱44╱D╱ // 0x2f93 @0x15
0x2f7e…2fba at0016 = ╱31╱1╱ // 0x2f94 @0x16
0x2f7e…2fba at0017 = ╱ef╱$╱ // 0x2f95 @0x17
0x2f7e…2fba at0018 = ╱eb╱;╱ // 0x2f96 @0x18
0x2f7e…2fba at0019 = ╱44╱D╱ // 0x2f97 @0x19
0x2f7e…2fba at001a = ╱45╱E╱ // 0x2f98 @0x1a
0x2f7e…2fba at001b = ╱42╱B╱ // 0x2f99 @0x1b
0x2f7e…2fba at001c = ╱47╱G╱ // 0x2f9a @0x1c
0x2f7e…2fba at001d = ╱41╱A╱ // 0x2f9b @0x1d
0x2f7e…2fba at001e = ╱44╱D╱ // 0x2f9c @0x1e
0x2f7e…2fba at001f = ╱45╱E╱ // 0x2f9d @0x1f
0x2f7e…2fba at0020 = ╱ef╱$╱ // 0x2f9e @0x20
0x2f7e…2fba at0021 = ╱dc╱=╱ // 0x2f9f @0x21
0x2f7e…2fba at0022 = ╱44╱D╱ // 0x2fa0 @0x22
0x2f7e…2fba at0023 = ╱32╱2╱ // 0x2fa1 @0x23
0x2f7e…2fba at0024 = ╱ef╱$╱ // 0x2fa2 @0x24
0x2f7e…2fba at0025 = ╱eb╱;╱ // 0x2fa3 @0x25
0x2f7e…2fba at0026 = ╱44╱D╱ // 0x2fa4 @0x26
0x2f7e…2fba at0027 = ╱45╱E╱ // 0x2fa5 @0x27
0x2f7e…2fba at0028 = ╱42╱B╱ // 0x2fa6 @0x28
0x2f7e…2fba at0029 = ╱42╱B╱ // 0x2fa7 @0x29
0x2f7e…2fba at002a = ╱59╱Y╱ // 0x2fa8 @0x2a
0x2f7e…2fba at002b = ╱ef╱$╱ // 0x2fa9 @0x2b
0x2f7e…2fba at002c = ╱dc╱=╱ // 0x2faa @0x2c
0x2f7e…2fba at002d = ╱44╱D╱ // 0x2fab @0x2d
0x2f7e…2fba at002e = ╱33╱3╱ // 0x2fac @0x2e
0x2f7e…2fba at002f = ╱ef╱$╱ // 0x2fad @0x2f
0x2f7e…2fba at0030 = ╱eb╱;╱ // 0x2fae @0x30
0x2f7e…2fba at0031 = ╱44╱D╱ // 0x2faf @0x31
0x2f7e…2fba at0032 = ╱50╱P╱ // 0x2fb0 @0x32
0x2f7e…2fba at0033 = ╱4f╱O╱ // 0x2fb1 @0x33
0x2f7e…2fba at0034 = ╱53╱S╱ // 0x2fb2 @0x34
0x2f7e…2fba at0035 = ╱54╱T╱ // 0x2fb3 @0x35
0x2f7e…2fba at0036 = ╱4e╱N╱ // 0x2fb4 @0x36
0x2f7e…2fba at0037 = ╱52╱R╱ // 0x2fb5 @0x37
0x2f7e…2fba at0038 = ╱dc╱=╱ // 0x2fb6 @0x38
0x2f7e…2fba at0039 = ╱44╱D╱ // 0x2fb7 @0x39
0x2f7e…2fba at003a = ╱34╱4╱ // 0x2fb8 @0x3a
0x2f7e…2fba at003b = EOL // 0x2fb9 @0x3b
0x2f7e…2fba }
0x2fba…2fc8 bd1f 4800 EXEC GEMDPOST
0x2fba…2fc8 LineComalBin {
0x2fba…2fc8 ptr = 0xbd1f // 0x2fba @0x0
0x2fba…2fc8 lno = 0x12c0 // 0x2fbc @0x2
0x2fba…2fc8 at0004 = ╱9d╱ EXEC ╱ // 0x2fbe @0x4
0x2fba…2fc8 at0005 = ╱47╱G╱ // 0x2fbf @0x5
0x2fba…2fc8 at0006 = ╱45╱E╱ // 0x2fc0 @0x6
0x2fba…2fc8 at0007 = ╱4d╱M╱ // 0x2fc1 @0x7
0x2fba…2fc8 at0008 = ╱44╱D╱ // 0x2fc2 @0x8
0x2fba…2fc8 at0009 = ╱50╱P╱ // 0x2fc3 @0x9
0x2fba…2fc8 at000a = ╱4f╱O╱ // 0x2fc4 @0xa
0x2fba…2fc8 at000b = ╱53╱S╱ // 0x2fc5 @0xb
0x2fba…2fc8 at000c = ╱54╱T╱ // 0x2fc6 @0xc
0x2fba…2fc8 at000d = EOL // 0x2fc7 @0xd
0x2fba…2fc8 }
0x2fc8…2fce bd25 4810 ENDIF
0x2fc8…2fce LineComalBin {
0x2fc8…2fce ptr = 0xbd25 // 0x2fc8 @0x0
0x2fc8…2fce lno = 0x12ca // 0x2fca @0x2
0x2fc8…2fce at0004 = ╱9b╱ ENDIF ╱ // 0x2fcc @0x4
0x2fc8…2fce at0005 = EOL // 0x2fcd @0x5
0x2fc8…2fce }
0x2fce…2fe0 bd37 4820 IF FAKKRE$="K" THEN
0x2fce…2fe0 LineComalBin {
0x2fce…2fe0 ptr = 0xbd37 // 0x2fce @0x0
0x2fce…2fe0 lno = 0x12d4 // 0x2fd0 @0x2
0x2fce…2fe0 at0004 = ╱9c╱ IF ╱ // 0x2fd2 @0x4
0x2fce…2fe0 at0005 = ╱46╱F╱ // 0x2fd3 @0x5
0x2fce…2fe0 at0006 = ╱41╱A╱ // 0x2fd4 @0x6
0x2fce…2fe0 at0007 = ╱4b╱K╱ // 0x2fd5 @0x7
0x2fce…2fe0 at0008 = ╱4b╱K╱ // 0x2fd6 @0x8
0x2fce…2fe0 at0009 = ╱52╱R╱ // 0x2fd7 @0x9
0x2fce…2fe0 at000a = ╱45╱E╱ // 0x2fd8 @0xa
0x2fce…2fe0 at000b = ╱ef╱$╱ // 0x2fd9 @0xb
0x2fce…2fe0 at000c = ╱dc╱=╱ // 0x2fda @0xc
0x2fce…2fe0 at000d = ╱22╱"╱ // 0x2fdb @0xd
0x2fce…2fe0 at000e = ╱4b╱K╱ // 0x2fdc @0xe
0x2fce…2fe0 at000f = ╱22╱"╱ // 0x2fdd @0xf
0x2fce…2fe0 at0010 = ╱b6╱ THEN ╱ // 0x2fde @0x10
0x2fce…2fe0 at0011 = EOL // 0x2fdf @0x11
0x2fce…2fe0 }
0x2fe0…2ff4 bd4b 4830 KREDNR=KREDNR+E
0x2fe0…2ff4 LineComalBin {
0x2fe0…2ff4 ptr = 0xbd4b // 0x2fe0 @0x0
0x2fe0…2ff4 lno = 0x12de // 0x2fe2 @0x2
0x2fe0…2ff4 at0004 = ╱4b╱K╱ // 0x2fe4 @0x4
0x2fe0…2ff4 at0005 = ╱52╱R╱ // 0x2fe5 @0x5
0x2fe0…2ff4 at0006 = ╱45╱E╱ // 0x2fe6 @0x6
0x2fe0…2ff4 at0007 = ╱44╱D╱ // 0x2fe7 @0x7
0x2fe0…2ff4 at0008 = ╱4e╱N╱ // 0x2fe8 @0x8
0x2fe0…2ff4 at0009 = ╱52╱R╱ // 0x2fe9 @0x9
0x2fe0…2ff4 at000a = ╱dc╱=╱ // 0x2fea @0xa
0x2fe0…2ff4 at000b = ╱4b╱K╱ // 0x2feb @0xb
0x2fe0…2ff4 at000c = ╱52╱R╱ // 0x2fec @0xc
0x2fe0…2ff4 at000d = ╱45╱E╱ // 0x2fed @0xd
0x2fe0…2ff4 at000e = ╱44╱D╱ // 0x2fee @0xe
0x2fe0…2ff4 at000f = ╱4e╱N╱ // 0x2fef @0xf
0x2fe0…2ff4 at0010 = ╱52╱R╱ // 0x2ff0 @0x10
0x2fe0…2ff4 at0011 = ╱e2╱+╱ // 0x2ff1 @0x11
0x2fe0…2ff4 at0012 = ╱45╱E╱ // 0x2ff2 @0x12
0x2fe0…2ff4 at0013 = EOL // 0x2ff3 @0x13
0x2fe0…2ff4 }
0x2ff4…2ffa bd51 4840 ELSE
0x2ff4…2ffa LineComalBin {
0x2ff4…2ffa ptr = 0xbd51 // 0x2ff4 @0x0
0x2ff4…2ffa lno = 0x12e8 // 0x2ff6 @0x2
0x2ff4…2ffa at0004 = ╱9a╱ ELSE ╱ // 0x2ff8 @0x4
0x2ff4…2ffa at0005 = EOL // 0x2ff9 @0x5
0x2ff4…2ffa }
0x2ffa…300e bd65 4850 FAKTNR=FAKTNR+E
0x2ffa…300e LineComalBin {
0x2ffa…300e ptr = 0xbd65 // 0x2ffa @0x0
0x2ffa…300e lno = 0x12f2 // 0x2ffc @0x2
0x2ffa…300e at0004 = ╱46╱F╱ // 0x2ffe @0x4
0x2ffa…300e at0005 = ╱41╱A╱ // 0x2fff @0x5
0x2ffa…300e at0006 = ╱4b╱K╱ // 0x3000 @0x6
0x2ffa…300e at0007 = ╱54╱T╱ // 0x3001 @0x7
0x2ffa…300e at0008 = ╱4e╱N╱ // 0x3002 @0x8
0x2ffa…300e at0009 = ╱52╱R╱ // 0x3003 @0x9
0x2ffa…300e at000a = ╱dc╱=╱ // 0x3004 @0xa
0x2ffa…300e at000b = ╱46╱F╱ // 0x3005 @0xb
0x2ffa…300e at000c = ╱41╱A╱ // 0x3006 @0xc
0x2ffa…300e at000d = ╱4b╱K╱ // 0x3007 @0xd
0x2ffa…300e at000e = ╱54╱T╱ // 0x3008 @0xe
0x2ffa…300e at000f = ╱4e╱N╱ // 0x3009 @0xf
0x2ffa…300e at0010 = ╱52╱R╱ // 0x300a @0x10
0x2ffa…300e at0011 = ╱e2╱+╱ // 0x300b @0x11
0x2ffa…300e at0012 = ╱45╱E╱ // 0x300c @0x12
0x2ffa…300e at0013 = EOL // 0x300d @0x13
0x2ffa…300e }
0x300e…3014 bd6b 4860 ENDIF
0x300e…3014 LineComalBin {
0x300e…3014 ptr = 0xbd6b // 0x300e @0x0
0x300e…3014 lno = 0x12fc // 0x3010 @0x2
0x300e…3014 at0004 = ╱9b╱ ENDIF ╱ // 0x3012 @0x4
0x300e…3014 at0005 = EOL // 0x3013 @0x5
0x300e…3014 }
0x3014…3023 bd7a 4870 UNTIL I=>APOSTER
0x3014…3023 LineComalBin {
0x3014…3023 ptr = 0xbd7a // 0x3014 @0x0
0x3014…3023 lno = 0x1306 // 0x3016 @0x2
0x3014…3023 at0004 = ╱98╱ UNTIL ╱ // 0x3018 @0x4
0x3014…3023 at0005 = ╱49╱I╱ // 0x3019 @0x5
0x3014…3023 at0006 = ╱e0╱=>╱ // 0x301a @0x6
0x3014…3023 at0007 = ╱41╱A╱ // 0x301b @0x7
0x3014…3023 at0008 = ╱50╱P╱ // 0x301c @0x8
0x3014…3023 at0009 = ╱4f╱O╱ // 0x301d @0x9
0x3014…3023 at000a = ╱53╱S╱ // 0x301e @0xa
0x3014…3023 at000b = ╱54╱T╱ // 0x301f @0xb
0x3014…3023 at000c = ╱45╱E╱ // 0x3020 @0xc
0x3014…3023 at000d = ╱52╱R╱ // 0x3021 @0xd
0x3014…3023 at000e = EOL // 0x3022 @0xe
0x3014…3023 }
0x3023…302a bd81 4880 OUTPUT T
0x3023…302a LineComalBin {
0x3023…302a ptr = 0xbd81 // 0x3023 @0x0
0x3023…302a lno = 0x1310 // 0x3025 @0x2
0x3023…302a at0004 = ╱a5╱ OUTPUT ╱ // 0x3027 @0x4
0x3023…302a at0005 = ╱54╱T╱ // 0x3028 @0x5
0x3023…302a at0006 = EOL // 0x3029 @0x6
0x3023…302a }
0x302a…3033 bd8a 4890 CLOSE K6$
0x302a…3033 LineComalBin {
0x302a…3033 ptr = 0xbd8a // 0x302a @0x0
0x302a…3033 lno = 0x131a // 0x302c @0x2
0x302a…3033 at0004 = ╱a8╱ CLOSE ╱ // 0x302e @0x4
0x302a…3033 at0005 = ╱4b╱K╱ // 0x302f @0x5
0x302a…3033 at0006 = ╱36╱6╱ // 0x3030 @0x6
0x302a…3033 at0007 = ╱ef╱$╱ // 0x3031 @0x7
0x302a…3033 at0008 = EOL // 0x3032 @0x8
0x302a…3033 }
0x3033…3039 bd90 4900 REPEAT
0x3033…3039 LineComalBin {
0x3033…3039 ptr = 0xbd90 // 0x3033 @0x0
0x3033…3039 lno = 0x1324 // 0x3035 @0x2
0x3033…3039 at0004 = ╱97╱ REPEAT ╱ // 0x3037 @0x4
0x3033…3039 at0005 = EOL // 0x3038 @0x5
0x3033…3039 }
0x3039…303f bd96 4910 CLEAR
0x3039…303f LineComalBin {
0x3039…303f ptr = 0xbd96 // 0x3039 @0x0
0x3039…303f lno = 0x132e // 0x303b @0x2
0x3039…303f at0004 = ╱a0╱ CLEAR ╱ // 0x303d @0x4
0x3039…303f at0005 = EOL // 0x303e @0x5
0x3039…303f }
0x303f…3054 bdab 4920 CURSOR 20,10
0x303f…3054 LineComalBin {
0x303f…3054 ptr = 0xbdab // 0x303f @0x0
0x303f…3054 lno = 0x1338 // 0x3041 @0x2
0x303f…3054 at0004 = ╱a1╱ CURSOR ╱ // 0x3043 @0x4
0x303f…3054 at0005 = ╱32╱2╱ // 0x3044 @0x5
0x303f…3054 at0006 = ╱30╱0╱ // 0x3045 @0x6
0x303f…3054 at0007 = ╱fe0000a005╱ // 0x3046 @0x7
0x303f…3054 at000c = ╱ec╱,╱ // 0x304b @0xc
0x303f…3054 at000d = ╱31╱1╱ // 0x304c @0xd
0x303f…3054 at000e = ╱30╱0╱ // 0x304d @0xe
0x303f…3054 at000f = ╱fe0000a004╱ // 0x304e @0xf
0x303f…3054 at0014 = EOL // 0x3053 @0x14
0x303f…3054 }
0x3054…307c bdd3 4930 INPUT "Ønskes ny udskrift (J/N):",SVAR1$
0x3054…307c LineComalBin {
0x3054…307c ptr = 0xbdd3 // 0x3054 @0x0
0x3054…307c lno = 0x1342 // 0x3056 @0x2
0x3054…307c at0004 = ╱91╱ INPUT ╱ // 0x3058 @0x4
0x3054…307c at0005 = ╱22╱"╱ // 0x3059 @0x5
0x3054…307c at0006 = ╱5c╱Ø╱ // 0x305a @0x6
0x3054…307c at0007 = ╱6e╱n╱ // 0x305b @0x7
0x3054…307c at0008 = ╱73╱s╱ // 0x305c @0x8
0x3054…307c at0009 = ╱6b╱k╱ // 0x305d @0x9
0x3054…307c at000a = ╱65╱e╱ // 0x305e @0xa
0x3054…307c at000b = ╱73╱s╱ // 0x305f @0xb
0x3054…307c at000c = ╱20╱…╱ // 0x3060 @0xc
0x3054…307c at000d = ╱6e╱n╱ // 0x3061 @0xd
0x3054…307c at000e = ╱79╱y╱ // 0x3062 @0xe
0x3054…307c at000f = ╱20╱…╱ // 0x3063 @0xf
0x3054…307c at0010 = ╱75╱u╱ // 0x3064 @0x10
0x3054…307c at0011 = ╱64╱d╱ // 0x3065 @0x11
0x3054…307c at0012 = ╱73╱s╱ // 0x3066 @0x12
0x3054…307c at0013 = ╱6b╱k╱ // 0x3067 @0x13
0x3054…307c at0014 = ╱72╱r╱ // 0x3068 @0x14
0x3054…307c at0015 = ╱69╱i╱ // 0x3069 @0x15
0x3054…307c at0016 = ╱66╱f╱ // 0x306a @0x16
0x3054…307c at0017 = ╱74╱t╱ // 0x306b @0x17
0x3054…307c at0018 = ╱20╱…╱ // 0x306c @0x18
0x3054…307c at0019 = ╱28╱(╱ // 0x306d @0x19
0x3054…307c at001a = ╱4a╱J╱ // 0x306e @0x1a
0x3054…307c at001b = ╱2f╱/╱ // 0x306f @0x1b
0x3054…307c at001c = ╱4e╱N╱ // 0x3070 @0x1c
0x3054…307c at001d = ╱29╱)╱ // 0x3071 @0x1d
0x3054…307c at001e = ╱3a╱:╱ // 0x3072 @0x1e
0x3054…307c at001f = ╱22╱"╱ // 0x3073 @0x1f
0x3054…307c at0020 = ╱ec╱,╱ // 0x3074 @0x20
0x3054…307c at0021 = ╱53╱S╱ // 0x3075 @0x21
0x3054…307c at0022 = ╱56╱V╱ // 0x3076 @0x22
0x3054…307c at0023 = ╱41╱A╱ // 0x3077 @0x23
0x3054…307c at0024 = ╱52╱R╱ // 0x3078 @0x24
0x3054…307c at0025 = ╱31╱1╱ // 0x3079 @0x25
0x3054…307c at0026 = ╱ef╱$╱ // 0x307a @0x26
0x3054…307c at0027 = EOL // 0x307b @0x27
0x3054…307c }
0x307c…30ad be04 4940 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n"
0x307c…30ad LineComalBin {
0x307c…30ad ptr = 0xbe04 // 0x307c @0x0
0x307c…30ad lno = 0x134c // 0x307e @0x2
0x307c…30ad at0004 = ╱98╱ UNTIL ╱ // 0x3080 @0x4
0x307c…30ad at0005 = ╱53╱S╱ // 0x3081 @0x5
0x307c…30ad at0006 = ╱56╱V╱ // 0x3082 @0x6
0x307c…30ad at0007 = ╱41╱A╱ // 0x3083 @0x7
0x307c…30ad at0008 = ╱52╱R╱ // 0x3084 @0x8
0x307c…30ad at0009 = ╱31╱1╱ // 0x3085 @0x9
0x307c…30ad at000a = ╱ef╱$╱ // 0x3086 @0xa
0x307c…30ad at000b = ╱dc╱=╱ // 0x3087 @0xb
0x307c…30ad at000c = ╱22╱"╱ // 0x3088 @0xc
0x307c…30ad at000d = ╱4a╱J╱ // 0x3089 @0xd
0x307c…30ad at000e = ╱22╱"╱ // 0x308a @0xe
0x307c…30ad at000f = ╱db╱ OR ╱ // 0x308b @0xf
0x307c…30ad at0010 = ╱53╱S╱ // 0x308c @0x10
0x307c…30ad at0011 = ╱56╱V╱ // 0x308d @0x11
0x307c…30ad at0012 = ╱41╱A╱ // 0x308e @0x12
0x307c…30ad at0013 = ╱52╱R╱ // 0x308f @0x13
0x307c…30ad at0014 = ╱31╱1╱ // 0x3090 @0x14
0x307c…30ad at0015 = ╱ef╱$╱ // 0x3091 @0x15
0x307c…30ad at0016 = ╱dc╱=╱ // 0x3092 @0x16
0x307c…30ad at0017 = ╱22╱"╱ // 0x3093 @0x17
0x307c…30ad at0018 = ╱4e╱N╱ // 0x3094 @0x18
0x307c…30ad at0019 = ╱22╱"╱ // 0x3095 @0x19
0x307c…30ad at001a = ╱db╱ OR ╱ // 0x3096 @0x1a
0x307c…30ad at001b = ╱53╱S╱ // 0x3097 @0x1b
0x307c…30ad at001c = ╱56╱V╱ // 0x3098 @0x1c
0x307c…30ad at001d = ╱41╱A╱ // 0x3099 @0x1d
0x307c…30ad at001e = ╱52╱R╱ // 0x309a @0x1e
0x307c…30ad at001f = ╱31╱1╱ // 0x309b @0x1f
0x307c…30ad at0020 = ╱ef╱$╱ // 0x309c @0x20
0x307c…30ad at0021 = ╱dc╱=╱ // 0x309d @0x21
0x307c…30ad at0022 = ╱22╱"╱ // 0x309e @0x22
0x307c…30ad at0023 = ╱6a╱j╱ // 0x309f @0x23
0x307c…30ad at0024 = ╱22╱"╱ // 0x30a0 @0x24
0x307c…30ad at0025 = ╱db╱ OR ╱ // 0x30a1 @0x25
0x307c…30ad at0026 = ╱53╱S╱ // 0x30a2 @0x26
0x307c…30ad at0027 = ╱56╱V╱ // 0x30a3 @0x27
0x307c…30ad at0028 = ╱41╱A╱ // 0x30a4 @0x28
0x307c…30ad at0029 = ╱52╱R╱ // 0x30a5 @0x29
0x307c…30ad at002a = ╱31╱1╱ // 0x30a6 @0x2a
0x307c…30ad at002b = ╱ef╱$╱ // 0x30a7 @0x2b
0x307c…30ad at002c = ╱dc╱=╱ // 0x30a8 @0x2c
0x307c…30ad at002d = ╱22╱"╱ // 0x30a9 @0x2d
0x307c…30ad at002e = ╱6e╱n╱ // 0x30aa @0x2e
0x307c…30ad at002f = ╱22╱"╱ // 0x30ab @0x2f
0x307c…30ad at0030 = EOL // 0x30ac @0x30
0x307c…30ad }
0x30ad…30c9 be20 4950 IF SVAR1$="J" OR SVAR1$="j" THEN
0x30ad…30c9 LineComalBin {
0x30ad…30c9 ptr = 0xbe20 // 0x30ad @0x0
0x30ad…30c9 lno = 0x1356 // 0x30af @0x2
0x30ad…30c9 at0004 = ╱9c╱ IF ╱ // 0x30b1 @0x4
0x30ad…30c9 at0005 = ╱53╱S╱ // 0x30b2 @0x5
0x30ad…30c9 at0006 = ╱56╱V╱ // 0x30b3 @0x6
0x30ad…30c9 at0007 = ╱41╱A╱ // 0x30b4 @0x7
0x30ad…30c9 at0008 = ╱52╱R╱ // 0x30b5 @0x8
0x30ad…30c9 at0009 = ╱31╱1╱ // 0x30b6 @0x9
0x30ad…30c9 at000a = ╱ef╱$╱ // 0x30b7 @0xa
0x30ad…30c9 at000b = ╱dc╱=╱ // 0x30b8 @0xb
0x30ad…30c9 at000c = ╱22╱"╱ // 0x30b9 @0xc
0x30ad…30c9 at000d = ╱4a╱J╱ // 0x30ba @0xd
0x30ad…30c9 at000e = ╱22╱"╱ // 0x30bb @0xe
0x30ad…30c9 at000f = ╱db╱ OR ╱ // 0x30bc @0xf
0x30ad…30c9 at0010 = ╱53╱S╱ // 0x30bd @0x10
0x30ad…30c9 at0011 = ╱56╱V╱ // 0x30be @0x11
0x30ad…30c9 at0012 = ╱41╱A╱ // 0x30bf @0x12
0x30ad…30c9 at0013 = ╱52╱R╱ // 0x30c0 @0x13
0x30ad…30c9 at0014 = ╱31╱1╱ // 0x30c1 @0x14
0x30ad…30c9 at0015 = ╱ef╱$╱ // 0x30c2 @0x15
0x30ad…30c9 at0016 = ╱dc╱=╱ // 0x30c3 @0x16
0x30ad…30c9 at0017 = ╱22╱"╱ // 0x30c4 @0x17
0x30ad…30c9 at0018 = ╱6a╱j╱ // 0x30c5 @0x18
0x30ad…30c9 at0019 = ╱22╱"╱ // 0x30c6 @0x19
0x30ad…30c9 at001a = ╱b6╱ THEN ╱ // 0x30c7 @0x1a
0x30ad…30c9 at001b = EOL // 0x30c8 @0x1b
0x30ad…30c9 }
0x30c9…30d4 be2b 4960 OPEN K9$,R
0x30c9…30d4 LineComalBin {
0x30c9…30d4 ptr = 0xbe2b // 0x30c9 @0x0
0x30c9…30d4 lno = 0x1360 // 0x30cb @0x2
0x30c9…30d4 at0004 = ╱a7╱ OPEN ╱ // 0x30cd @0x4
0x30c9…30d4 at0005 = ╱4b╱K╱ // 0x30ce @0x5
0x30c9…30d4 at0006 = ╱39╱9╱ // 0x30cf @0x6
0x30c9…30d4 at0007 = ╱ef╱$╱ // 0x30d0 @0x7
0x30c9…30d4 at0008 = ╱ec╱,╱ // 0x30d1 @0x8
0x30c9…30d4 at0009 = ╱52╱R╱ // 0x30d2 @0x9
0x30c9…30d4 at000a = EOL // 0x30d3 @0xa
0x30c9…30d4 }
0x30d4…30ec be43 4970 EXEC FEJL(6,E,K9$)
0x30d4…30ec LineComalBin {
0x30d4…30ec ptr = 0xbe43 // 0x30d4 @0x0
0x30d4…30ec lno = 0x136a // 0x30d6 @0x2
0x30d4…30ec at0004 = ╱9d╱ EXEC ╱ // 0x30d8 @0x4
0x30d4…30ec at0005 = ╱46╱F╱ // 0x30d9 @0x5
0x30d4…30ec at0006 = ╱45╱E╱ // 0x30da @0x6
0x30d4…30ec at0007 = ╱4a╱J╱ // 0x30db @0x7
0x30d4…30ec at0008 = ╱4c╱L╱ // 0x30dc @0x8
0x30d4…30ec at0009 = ╱ed╱(╱ // 0x30dd @0x9
0x30d4…30ec at000a = ╱36╱6╱ // 0x30de @0xa
0x30d4…30ec at000b = ╱fe0000c003╱ // 0x30df @0xb
0x30d4…30ec at0010 = ╱ec╱,╱ // 0x30e4 @0x10
0x30d4…30ec at0011 = ╱45╱E╱ // 0x30e5 @0x11
0x30d4…30ec at0012 = ╱ec╱,╱ // 0x30e6 @0x12
0x30d4…30ec at0013 = ╱4b╱K╱ // 0x30e7 @0x13
0x30d4…30ec at0014 = ╱39╱9╱ // 0x30e8 @0x14
0x30d4…30ec at0015 = ╱ef╱$╱ // 0x30e9 @0x15
0x30d4…30ec at0016 = ╱ee╱)╱ // 0x30ea @0x16
0x30d4…30ec at0017 = EOL // 0x30eb @0x17
0x30d4…30ec }
0x30ec…3105 be5c 4980 GET K9$,G:FAKTNR,KREDNR
0x30ec…3105 LineComalBin {
0x30ec…3105 ptr = 0xbe5c // 0x30ec @0x0
0x30ec…3105 lno = 0x1374 // 0x30ee @0x2
0x30ec…3105 at0004 = ╱a9╱ GET ╱ // 0x30f0 @0x4
0x30ec…3105 at0005 = ╱4b╱K╱ // 0x30f1 @0x5
0x30ec…3105 at0006 = ╱39╱9╱ // 0x30f2 @0x6
0x30ec…3105 at0007 = ╱ef╱$╱ // 0x30f3 @0x7
0x30ec…3105 at0008 = ╱ec╱,╱ // 0x30f4 @0x8
0x30ec…3105 at0009 = ╱47╱G╱ // 0x30f5 @0x9
0x30ec…3105 at000a = ╱f0╱:╱ // 0x30f6 @0xa
0x30ec…3105 at000b = ╱46╱F╱ // 0x30f7 @0xb
0x30ec…3105 at000c = ╱41╱A╱ // 0x30f8 @0xc
0x30ec…3105 at000d = ╱4b╱K╱ // 0x30f9 @0xd
0x30ec…3105 at000e = ╱54╱T╱ // 0x30fa @0xe
0x30ec…3105 at000f = ╱4e╱N╱ // 0x30fb @0xf
0x30ec…3105 at0010 = ╱52╱R╱ // 0x30fc @0x10
0x30ec…3105 at0011 = ╱ec╱,╱ // 0x30fd @0x11
0x30ec…3105 at0012 = ╱4b╱K╱ // 0x30fe @0x12
0x30ec…3105 at0013 = ╱52╱R╱ // 0x30ff @0x13
0x30ec…3105 at0014 = ╱45╱E╱ // 0x3100 @0x14
0x30ec…3105 at0015 = ╱44╱D╱ // 0x3101 @0x15
0x30ec…3105 at0016 = ╱4e╱N╱ // 0x3102 @0x16
0x30ec…3105 at0017 = ╱52╱R╱ // 0x3103 @0x17
0x30ec…3105 at0018 = EOL // 0x3104 @0x18
0x30ec…3105 }
0x3105…311d be74 4990 EXEC FEJL(6,G,K9$)
0x3105…311d LineComalBin {
0x3105…311d ptr = 0xbe74 // 0x3105 @0x0
0x3105…311d lno = 0x137e // 0x3107 @0x2
0x3105…311d at0004 = ╱9d╱ EXEC ╱ // 0x3109 @0x4
0x3105…311d at0005 = ╱46╱F╱ // 0x310a @0x5
0x3105…311d at0006 = ╱45╱E╱ // 0x310b @0x6
0x3105…311d at0007 = ╱4a╱J╱ // 0x310c @0x7
0x3105…311d at0008 = ╱4c╱L╱ // 0x310d @0x8
0x3105…311d at0009 = ╱ed╱(╱ // 0x310e @0x9
0x3105…311d at000a = ╱36╱6╱ // 0x310f @0xa
0x3105…311d at000b = ╱fe0000c003╱ // 0x3110 @0xb
0x3105…311d at0010 = ╱ec╱,╱ // 0x3115 @0x10
0x3105…311d at0011 = ╱47╱G╱ // 0x3116 @0x11
0x3105…311d at0012 = ╱ec╱,╱ // 0x3117 @0x12
0x3105…311d at0013 = ╱4b╱K╱ // 0x3118 @0x13
0x3105…311d at0014 = ╱39╱9╱ // 0x3119 @0x14
0x3105…311d at0015 = ╱ef╱$╱ // 0x311a @0x15
0x3105…311d at0016 = ╱ee╱)╱ // 0x311b @0x16
0x3105…311d at0017 = EOL // 0x311c @0x17
0x3105…311d }
0x311d…3126 be7d 5000 CLOSE K9$
0x311d…3126 LineComalBin {
0x311d…3126 ptr = 0xbe7d // 0x311d @0x0
0x311d…3126 lno = 0x1388 // 0x311f @0x2
0x311d…3126 at0004 = ╱a8╱ CLOSE ╱ // 0x3121 @0x4
0x311d…3126 at0005 = ╱4b╱K╱ // 0x3122 @0x5
0x311d…3126 at0006 = ╱39╱9╱ // 0x3123 @0x6
0x311d…3126 at0007 = ╱ef╱$╱ // 0x3124 @0x7
0x311d…3126 at0008 = EOL // 0x3125 @0x8
0x311d…3126 }
0x3126…313e be95 5010 EXEC FEJL(6,V,K9$)
0x3126…313e LineComalBin {
0x3126…313e ptr = 0xbe95 // 0x3126 @0x0
0x3126…313e lno = 0x1392 // 0x3128 @0x2
0x3126…313e at0004 = ╱9d╱ EXEC ╱ // 0x312a @0x4
0x3126…313e at0005 = ╱46╱F╱ // 0x312b @0x5
0x3126…313e at0006 = ╱45╱E╱ // 0x312c @0x6
0x3126…313e at0007 = ╱4a╱J╱ // 0x312d @0x7
0x3126…313e at0008 = ╱4c╱L╱ // 0x312e @0x8
0x3126…313e at0009 = ╱ed╱(╱ // 0x312f @0x9
0x3126…313e at000a = ╱36╱6╱ // 0x3130 @0xa
0x3126…313e at000b = ╱fe0000c003╱ // 0x3131 @0xb
0x3126…313e at0010 = ╱ec╱,╱ // 0x3136 @0x10
0x3126…313e at0011 = ╱56╱V╱ // 0x3137 @0x11
0x3126…313e at0012 = ╱ec╱,╱ // 0x3138 @0x12
0x3126…313e at0013 = ╱4b╱K╱ // 0x3139 @0x13
0x3126…313e at0014 = ╱39╱9╱ // 0x313a @0x14
0x3126…313e at0015 = ╱ef╱$╱ // 0x313b @0x15
0x3126…313e at0016 = ╱ee╱)╱ // 0x313c @0x16
0x3126…313e at0017 = EOL // 0x313d @0x17
0x3126…313e }
0x313e…3148 be9f 5020 GEN=E
0x313e…3148 LineComalBin {
0x313e…3148 ptr = 0xbe9f // 0x313e @0x0
0x313e…3148 lno = 0x139c // 0x3140 @0x2
0x313e…3148 at0004 = ╱47╱G╱ // 0x3142 @0x4
0x313e…3148 at0005 = ╱45╱E╱ // 0x3143 @0x5
0x313e…3148 at0006 = ╱4e╱N╱ // 0x3144 @0x6
0x313e…3148 at0007 = ╱dc╱=╱ // 0x3145 @0x7
0x313e…3148 at0008 = ╱45╱E╱ // 0x3146 @0x8
0x313e…3148 at0009 = EOL // 0x3147 @0x9
0x313e…3148 }
0x3148…314e bea5 5030 ENDIF
0x3148…314e LineComalBin {
0x3148…314e ptr = 0xbea5 // 0x3148 @0x0
0x3148…314e lno = 0x13a6 // 0x314a @0x2
0x3148…314e at0004 = ╱9b╱ ENDIF ╱ // 0x314c @0x4
0x3148…314e at0005 = EOL // 0x314d @0x5
0x3148…314e }
0x314e…3169 bec0 5040 UNTIL SVAR1$="N" OR SVAR1$="n"
0x314e…3169 LineComalBin {
0x314e…3169 ptr = 0xbec0 // 0x314e @0x0
0x314e…3169 lno = 0x13b0 // 0x3150 @0x2
0x314e…3169 at0004 = ╱98╱ UNTIL ╱ // 0x3152 @0x4
0x314e…3169 at0005 = ╱53╱S╱ // 0x3153 @0x5
0x314e…3169 at0006 = ╱56╱V╱ // 0x3154 @0x6
0x314e…3169 at0007 = ╱41╱A╱ // 0x3155 @0x7
0x314e…3169 at0008 = ╱52╱R╱ // 0x3156 @0x8
0x314e…3169 at0009 = ╱31╱1╱ // 0x3157 @0x9
0x314e…3169 at000a = ╱ef╱$╱ // 0x3158 @0xa
0x314e…3169 at000b = ╱dc╱=╱ // 0x3159 @0xb
0x314e…3169 at000c = ╱22╱"╱ // 0x315a @0xc
0x314e…3169 at000d = ╱4e╱N╱ // 0x315b @0xd
0x314e…3169 at000e = ╱22╱"╱ // 0x315c @0xe
0x314e…3169 at000f = ╱db╱ OR ╱ // 0x315d @0xf
0x314e…3169 at0010 = ╱53╱S╱ // 0x315e @0x10
0x314e…3169 at0011 = ╱56╱V╱ // 0x315f @0x11
0x314e…3169 at0012 = ╱41╱A╱ // 0x3160 @0x12
0x314e…3169 at0013 = ╱52╱R╱ // 0x3161 @0x13
0x314e…3169 at0014 = ╱31╱1╱ // 0x3162 @0x14
0x314e…3169 at0015 = ╱ef╱$╱ // 0x3163 @0x15
0x314e…3169 at0016 = ╱dc╱=╱ // 0x3164 @0x16
0x314e…3169 at0017 = ╱22╱"╱ // 0x3165 @0x17
0x314e…3169 at0018 = ╱6e╱n╱ // 0x3166 @0x18
0x314e…3169 at0019 = ╱22╱"╱ // 0x3167 @0x19
0x314e…3169 at001a = EOL // 0x3168 @0x1a
0x314e…3169 }
0x3169…317e bed5 5050 APOSTER=STPOST-E
0x3169…317e LineComalBin {
0x3169…317e ptr = 0xbed5 // 0x3169 @0x0
0x3169…317e lno = 0x13ba // 0x316b @0x2
0x3169…317e at0004 = ╱41╱A╱ // 0x316d @0x4
0x3169…317e at0005 = ╱50╱P╱ // 0x316e @0x5
0x3169…317e at0006 = ╱4f╱O╱ // 0x316f @0x6
0x3169…317e at0007 = ╱53╱S╱ // 0x3170 @0x7
0x3169…317e at0008 = ╱54╱T╱ // 0x3171 @0x8
0x3169…317e at0009 = ╱45╱E╱ // 0x3172 @0x9
0x3169…317e at000a = ╱52╱R╱ // 0x3173 @0xa
0x3169…317e at000b = ╱dc╱=╱ // 0x3174 @0xb
0x3169…317e at000c = ╱53╱S╱ // 0x3175 @0xc
0x3169…317e at000d = ╱54╱T╱ // 0x3176 @0xd
0x3169…317e at000e = ╱50╱P╱ // 0x3177 @0xe
0x3169…317e at000f = ╱4f╱O╱ // 0x3178 @0xf
0x3169…317e at0010 = ╱53╱S╱ // 0x3179 @0x10
0x3169…317e at0011 = ╱54╱T╱ // 0x317a @0x11
0x3169…317e at0012 = ╱e3╱-╱ // 0x317b @0x12
0x3169…317e at0013 = ╱45╱E╱ // 0x317c @0x13
0x3169…317e at0014 = EOL // 0x317d @0x14
0x3169…317e }
0x317e…3184 bedb 5060 ENDIF
0x317e…3184 LineComalBin {
0x317e…3184 ptr = 0xbedb // 0x317e @0x0
0x317e…3184 lno = 0x13c4 // 0x3180 @0x2
0x317e…3184 at0004 = ╱9b╱ ENDIF ╱ // 0x3182 @0x4
0x317e…3184 at0005 = EOL // 0x3183 @0x5
0x317e…3184 }
0x3184…3194 beeb 5070 PROC DATOUD(DA)
0x3184…3194 LineComalBin {
0x3184…3194 ptr = 0xbeeb // 0x3184 @0x0
0x3184…3194 lno = 0x13ce // 0x3186 @0x2
0x3184…3194 at0004 = ╱9e╱ PROC ╱ // 0x3188 @0x4
0x3184…3194 at0005 = ╱44╱D╱ // 0x3189 @0x5
0x3184…3194 at0006 = ╱41╱A╱ // 0x318a @0x6
0x3184…3194 at0007 = ╱54╱T╱ // 0x318b @0x7
0x3184…3194 at0008 = ╱4f╱O╱ // 0x318c @0x8
0x3184…3194 at0009 = ╱55╱U╱ // 0x318d @0x9
0x3184…3194 at000a = ╱44╱D╱ // 0x318e @0xa
0x3184…3194 at000b = ╱ed╱(╱ // 0x318f @0xb
0x3184…3194 at000c = ╱44╱D╱ // 0x3190 @0xc
0x3184…3194 at000d = ╱41╱A╱ // 0x3191 @0xd
0x3184…3194 at000e = ╱ee╱)╱ // 0x3192 @0xe
0x3184…3194 at000f = EOL // 0x3193 @0xf
0x3184…3194 }
0x3194…31a5 befc 5080 PRINT TAB(67);
0x3194…31a5 LineComalBin {
0x3194…31a5 ptr = 0xbefc // 0x3194 @0x0
0x3194…31a5 lno = 0x13d8 // 0x3196 @0x2
0x3194…31a5 at0004 = ╱92╱ PRINT ╱ // 0x3198 @0x4
0x3194…31a5 at0005 = ╱d2╱TAB╱ // 0x3199 @0x5
0x3194…31a5 at0006 = ╱ed╱(╱ // 0x319a @0x6
0x3194…31a5 at0007 = ╱36╱6╱ // 0x319b @0x7
0x3194…31a5 at0008 = ╱37╱7╱ // 0x319c @0x8
0x3194…31a5 at0009 = ╱fe00008607╱ // 0x319d @0x9
0x3194…31a5 at000e = ╱ee╱)╱ // 0x31a2 @0xe
0x3194…31a5 at000f = ╱eb╱;╱ // 0x31a3 @0xf
0x3194…31a5 at0010 = EOL // 0x31a4 @0x10
0x3194…31a5 }
0x31a5…31ce bf25 5090 PRINT USING "###.##":(DA MOD 10000)/100;
0x31a5…31ce LineComalBin {
0x31a5…31ce ptr = 0xbf25 // 0x31a5 @0x0
0x31a5…31ce lno = 0x13e2 // 0x31a7 @0x2
0x31a5…31ce at0004 = ╱92╱ PRINT ╱ // 0x31a9 @0x4
0x31a5…31ce at0005 = ╱b9╱ USING ╱ // 0x31aa @0x5
0x31a5…31ce at0006 = ╱22╱"╱ // 0x31ab @0x6
0x31a5…31ce at0007 = ╱23╱#╱ // 0x31ac @0x7
0x31a5…31ce at0008 = ╱23╱#╱ // 0x31ad @0x8
0x31a5…31ce at0009 = ╱23╱#╱ // 0x31ae @0x9
0x31a5…31ce at000a = ╱2e╱.╱ // 0x31af @0xa
0x31a5…31ce at000b = ╱23╱#╱ // 0x31b0 @0xb
0x31a5…31ce at000c = ╱23╱#╱ // 0x31b1 @0xc
0x31a5…31ce at000d = ╱22╱"╱ // 0x31b2 @0xd
0x31a5…31ce at000e = ╱f0╱:╱ // 0x31b3 @0xe
0x31a5…31ce at000f = ╱ed╱(╱ // 0x31b4 @0xf
0x31a5…31ce at0010 = ╱44╱D╱ // 0x31b5 @0x10
0x31a5…31ce at0011 = ╱41╱A╱ // 0x31b6 @0x11
0x31a5…31ce at0012 = ╱e8╱ MOD ╱ // 0x31b7 @0x12
0x31a5…31ce at0013 = ╱31╱1╱ // 0x31b8 @0x13
0x31a5…31ce at0014 = ╱30╱0╱ // 0x31b9 @0x14
0x31a5…31ce at0015 = ╱30╱0╱ // 0x31ba @0x15
0x31a5…31ce at0016 = ╱30╱0╱ // 0x31bb @0x16
0x31a5…31ce at0017 = ╱30╱0╱ // 0x31bc @0x17
0x31a5…31ce at0018 = ╱fe00409c0e╱ // 0x31bd @0x18
0x31a5…31ce at001d = ╱ee╱)╱ // 0x31c2 @0x1d
0x31a5…31ce at001e = ╱e5╱/╱ // 0x31c3 @0x1e
0x31a5…31ce at001f = ╱31╱1╱ // 0x31c4 @0x1f
0x31a5…31ce at0020 = ╱30╱0╱ // 0x31c5 @0x20
0x31a5…31ce at0021 = ╱30╱0╱ // 0x31c6 @0x21
0x31a5…31ce at0022 = ╱fe0000c807╱ // 0x31c7 @0x22
0x31a5…31ce at0027 = ╱eb╱;╱ // 0x31cc @0x27
0x31a5…31ce at0028 = EOL // 0x31cd @0x28
0x31a5…31ce }
0x31ce…31df bf36 5100 PRINT TAB(64);
0x31ce…31df LineComalBin {
0x31ce…31df ptr = 0xbf36 // 0x31ce @0x0
0x31ce…31df lno = 0x13ec // 0x31d0 @0x2
0x31ce…31df at0004 = ╱92╱ PRINT ╱ // 0x31d2 @0x4
0x31ce…31df at0005 = ╱d2╱TAB╱ // 0x31d3 @0x5
0x31ce…31df at0006 = ╱ed╱(╱ // 0x31d4 @0x6
0x31ce…31df at0007 = ╱36╱6╱ // 0x31d5 @0x7
0x31ce…31df at0008 = ╱34╱4╱ // 0x31d6 @0x8
0x31ce…31df at0009 = ╱fe00008007╱ // 0x31d7 @0x9
0x31ce…31df at000e = ╱ee╱)╱ // 0x31dc @0xe
0x31ce…31df at000f = ╱eb╱;╱ // 0x31dd @0xf
0x31ce…31df at0010 = EOL // 0x31de @0x10
0x31ce…31df }
0x31df…3204 bf5b 5110 PRINT USING "###.#":(DA DIV 1000)/10
0x31df…3204 LineComalBin {
0x31df…3204 ptr = 0xbf5b // 0x31df @0x0
0x31df…3204 lno = 0x13f6 // 0x31e1 @0x2
0x31df…3204 at0004 = ╱92╱ PRINT ╱ // 0x31e3 @0x4
0x31df…3204 at0005 = ╱b9╱ USING ╱ // 0x31e4 @0x5
0x31df…3204 at0006 = ╱22╱"╱ // 0x31e5 @0x6
0x31df…3204 at0007 = ╱23╱#╱ // 0x31e6 @0x7
0x31df…3204 at0008 = ╱23╱#╱ // 0x31e7 @0x8
0x31df…3204 at0009 = ╱23╱#╱ // 0x31e8 @0x9
0x31df…3204 at000a = ╱2e╱.╱ // 0x31e9 @0xa
0x31df…3204 at000b = ╱23╱#╱ // 0x31ea @0xb
0x31df…3204 at000c = ╱22╱"╱ // 0x31eb @0xc
0x31df…3204 at000d = ╱f0╱:╱ // 0x31ec @0xd
0x31df…3204 at000e = ╱ed╱(╱ // 0x31ed @0xe
0x31df…3204 at000f = ╱44╱D╱ // 0x31ee @0xf
0x31df…3204 at0010 = ╱41╱A╱ // 0x31ef @0x10
0x31df…3204 at0011 = ╱e7╱ DIV ╱ // 0x31f0 @0x11
0x31df…3204 at0012 = ╱31╱1╱ // 0x31f1 @0x12
0x31df…3204 at0013 = ╱30╱0╱ // 0x31f2 @0x13
0x31df…3204 at0014 = ╱30╱0╱ // 0x31f3 @0x14
0x31df…3204 at0015 = ╱30╱0╱ // 0x31f4 @0x15
0x31df…3204 at0016 = ╱fe0000fa0a╱ // 0x31f5 @0x16
0x31df…3204 at001b = ╱ee╱)╱ // 0x31fa @0x1b
0x31df…3204 at001c = ╱e5╱/╱ // 0x31fb @0x1c
0x31df…3204 at001d = ╱31╱1╱ // 0x31fc @0x1d
0x31df…3204 at001e = ╱30╱0╱ // 0x31fd @0x1e
0x31df…3204 at001f = ╱fe0000a004╱ // 0x31fe @0x1f
0x31df…3204 at0024 = EOL // 0x3203 @0x24
0x31df…3204 }
0x3204…320a bf61 5120 ENDPROC
0x3204…320a LineComalBin {
0x3204…320a ptr = 0xbf61 // 0x3204 @0x0
0x3204…320a lno = 0x1400 // 0x3206 @0x2
0x3204…320a at0004 = ╱9f╱ ENDPROC ╱ // 0x3208 @0x4
0x3204…320a at0005 = EOL // 0x3209 @0x5
0x3204…320a }
0x320a…3215 bf6c 5130 PROC VPOST
0x320a…3215 LineComalBin {
0x320a…3215 ptr = 0xbf6c // 0x320a @0x0
0x320a…3215 lno = 0x140a // 0x320c @0x2
0x320a…3215 at0004 = ╱9e╱ PROC ╱ // 0x320e @0x4
0x320a…3215 at0005 = ╱56╱V╱ // 0x320f @0x5
0x320a…3215 at0006 = ╱50╱P╱ // 0x3210 @0x6
0x320a…3215 at0007 = ╱4f╱O╱ // 0x3211 @0x7
0x320a…3215 at0008 = ╱53╱S╱ // 0x3212 @0x8
0x320a…3215 at0009 = ╱54╱T╱ // 0x3213 @0x9
0x320a…3215 at000a = EOL // 0x3214 @0xa
0x320a…3215 }
0x3215…322f bf86 5140 ANTAL$=" +"
0x3215…322f LineComalBin {
0x3215…322f ptr = 0xbf86 // 0x3215 @0x0
0x3215…322f lno = 0x1414 // 0x3217 @0x2
0x3215…322f at0004 = ╱41╱A╱ // 0x3219 @0x4
0x3215…322f at0005 = ╱4e╱N╱ // 0x321a @0x5
0x3215…322f at0006 = ╱54╱T╱ // 0x321b @0x6
0x3215…322f at0007 = ╱41╱A╱ // 0x321c @0x7
0x3215…322f at0008 = ╱4c╱L╱ // 0x321d @0x8
0x3215…322f at0009 = ╱ef╱$╱ // 0x321e @0x9
0x3215…322f at000a = ╱dc╱=╱ // 0x321f @0xa
0x3215…322f at000b = ╱22╱"╱ // 0x3220 @0xb
0x3215…322f at000c = ╱20╱…╱ // 0x3221 @0xc
0x3215…322f at000d = ╱20╱…╱ // 0x3222 @0xd
0x3215…322f at000e = ╱20╱…╱ // 0x3223 @0xe
0x3215…322f at000f = ╱20╱…╱ // 0x3224 @0xf
0x3215…322f at0010 = ╱20╱…╱ // 0x3225 @0x10
0x3215…322f at0011 = ╱20╱…╱ // 0x3226 @0x11
0x3215…322f at0012 = ╱20╱…╱ // 0x3227 @0x12
0x3215…322f at0013 = ╱20╱…╱ // 0x3228 @0x13
0x3215…322f at0014 = ╱20╱…╱ // 0x3229 @0x14
0x3215…322f at0015 = ╱20╱…╱ // 0x322a @0x15
0x3215…322f at0016 = ╱20╱…╱ // 0x322b @0x16
0x3215…322f at0017 = ╱2b╱+╱ // 0x322c @0x17
0x3215…322f at0018 = ╱22╱"╱ // 0x322d @0x18
0x3215…322f at0019 = EOL // 0x322e @0x19
0x3215…322f }
0x322f…325c bfb3 5150 GET K6$,I:VARENR,ANTAL$(5:7),KOD$
0x322f…325c LineComalBin {
0x322f…325c ptr = 0xbfb3 // 0x322f @0x0
0x322f…325c lno = 0x141e // 0x3231 @0x2
0x322f…325c at0004 = ╱a9╱ GET ╱ // 0x3233 @0x4
0x322f…325c at0005 = ╱4b╱K╱ // 0x3234 @0x5
0x322f…325c at0006 = ╱36╱6╱ // 0x3235 @0x6
0x322f…325c at0007 = ╱ef╱$╱ // 0x3236 @0x7
0x322f…325c at0008 = ╱ec╱,╱ // 0x3237 @0x8
0x322f…325c at0009 = ╱49╱I╱ // 0x3238 @0x9
0x322f…325c at000a = ╱f0╱:╱ // 0x3239 @0xa
0x322f…325c at000b = ╱56╱V╱ // 0x323a @0xb
0x322f…325c at000c = ╱41╱A╱ // 0x323b @0xc
0x322f…325c at000d = ╱52╱R╱ // 0x323c @0xd
0x322f…325c at000e = ╱45╱E╱ // 0x323d @0xe
0x322f…325c at000f = ╱4e╱N╱ // 0x323e @0xf
0x322f…325c at0010 = ╱52╱R╱ // 0x323f @0x10
0x322f…325c at0011 = ╱ec╱,╱ // 0x3240 @0x11
0x322f…325c at0012 = ╱41╱A╱ // 0x3241 @0x12
0x322f…325c at0013 = ╱4e╱N╱ // 0x3242 @0x13
0x322f…325c at0014 = ╱54╱T╱ // 0x3243 @0x14
0x322f…325c at0015 = ╱41╱A╱ // 0x3244 @0x15
0x322f…325c at0016 = ╱4c╱L╱ // 0x3245 @0x16
0x322f…325c at0017 = ╱ef╱$╱ // 0x3246 @0x17
0x322f…325c at0018 = ╱ed╱(╱ // 0x3247 @0x18
0x322f…325c at0019 = ╱35╱5╱ // 0x3248 @0x19
0x322f…325c at001a = ╱fe0000a003╱ // 0x3249 @0x1a
0x322f…325c at001f = ╱f0╱:╱ // 0x324e @0x1f
0x322f…325c at0020 = ╱37╱7╱ // 0x324f @0x20
0x322f…325c at0021 = ╱fe0000e003╱ // 0x3250 @0x21
0x322f…325c at0026 = ╱ee╱)╱ // 0x3255 @0x26
0x322f…325c at0027 = ╱ec╱,╱ // 0x3256 @0x27
0x322f…325c at0028 = ╱4b╱K╱ // 0x3257 @0x28
0x322f…325c at0029 = ╱4f╱O╱ // 0x3258 @0x29
0x322f…325c at002a = ╱44╱D╱ // 0x3259 @0x2a
0x322f…325c at002b = ╱ef╱$╱ // 0x325a @0x2b
0x322f…325c at002c = EOL // 0x325b @0x2c
0x322f…325c }
0x325c…3274 bfcb 5160 EXEC FEJL(5,E,K6$)
0x325c…3274 LineComalBin {
0x325c…3274 ptr = 0xbfcb // 0x325c @0x0
0x325c…3274 lno = 0x1428 // 0x325e @0x2
0x325c…3274 at0004 = ╱9d╱ EXEC ╱ // 0x3260 @0x4
0x325c…3274 at0005 = ╱46╱F╱ // 0x3261 @0x5
0x325c…3274 at0006 = ╱45╱E╱ // 0x3262 @0x6
0x325c…3274 at0007 = ╱4a╱J╱ // 0x3263 @0x7
0x325c…3274 at0008 = ╱4c╱L╱ // 0x3264 @0x8
0x325c…3274 at0009 = ╱ed╱(╱ // 0x3265 @0x9
0x325c…3274 at000a = ╱35╱5╱ // 0x3266 @0xa
0x325c…3274 at000b = ╱fe0000a003╱ // 0x3267 @0xb
0x325c…3274 at0010 = ╱ec╱,╱ // 0x326c @0x10
0x325c…3274 at0011 = ╱45╱E╱ // 0x326d @0x11
0x325c…3274 at0012 = ╱ec╱,╱ // 0x326e @0x12
0x325c…3274 at0013 = ╱4b╱K╱ // 0x326f @0x13
0x325c…3274 at0014 = ╱36╱6╱ // 0x3270 @0x14
0x325c…3274 at0015 = ╱ef╱$╱ // 0x3271 @0x15
0x325c…3274 at0016 = ╱ee╱)╱ // 0x3272 @0x16
0x325c…3274 at0017 = EOL // 0x3273 @0x17
0x325c…3274 }
0x3274…328e bfe5 5170 POSTER=POSTER+E;I=I+E
0x3274…328e LineComalBin {
0x3274…328e ptr = 0xbfe5 // 0x3274 @0x0
0x3274…328e lno = 0x1432 // 0x3276 @0x2
0x3274…328e at0004 = ╱50╱P╱ // 0x3278 @0x4
0x3274…328e at0005 = ╱4f╱O╱ // 0x3279 @0x5
0x3274…328e at0006 = ╱53╱S╱ // 0x327a @0x6
0x3274…328e at0007 = ╱54╱T╱ // 0x327b @0x7
0x3274…328e at0008 = ╱45╱E╱ // 0x327c @0x8
0x3274…328e at0009 = ╱52╱R╱ // 0x327d @0x9
0x3274…328e at000a = ╱dc╱=╱ // 0x327e @0xa
0x3274…328e at000b = ╱50╱P╱ // 0x327f @0xb
0x3274…328e at000c = ╱4f╱O╱ // 0x3280 @0xc
0x3274…328e at000d = ╱53╱S╱ // 0x3281 @0xd
0x3274…328e at000e = ╱54╱T╱ // 0x3282 @0xe
0x3274…328e at000f = ╱45╱E╱ // 0x3283 @0xf
0x3274…328e at0010 = ╱52╱R╱ // 0x3284 @0x10
0x3274…328e at0011 = ╱e2╱+╱ // 0x3285 @0x11
0x3274…328e at0012 = ╱45╱E╱ // 0x3286 @0x12
0x3274…328e at0013 = ╱eb╱;╱ // 0x3287 @0x13
0x3274…328e at0014 = ╱49╱I╱ // 0x3288 @0x14
0x3274…328e at0015 = ╱dc╱=╱ // 0x3289 @0x15
0x3274…328e at0016 = ╱49╱I╱ // 0x328a @0x16
0x3274…328e at0017 = ╱e2╱+╱ // 0x328b @0x17
0x3274…328e at0018 = ╱45╱E╱ // 0x328c @0x18
0x3274…328e at0019 = EOL // 0x328d @0x19
0x3274…328e }
0x328e…3294 bfeb 5180 ENDPROC
0x328e…3294 LineComalBin {
0x328e…3294 ptr = 0xbfeb // 0x328e @0x0
0x328e…3294 lno = 0x143c // 0x3290 @0x2
0x328e…3294 at0004 = ╱9f╱ ENDPROC ╱ // 0x3292 @0x4
0x328e…3294 at0005 = EOL // 0x3293 @0x5
0x328e…3294 }
0x3294…32a3 bffa 5190 PROC BPOST(SL)
0x3294…32a3 LineComalBin {
0x3294…32a3 ptr = 0xbffa // 0x3294 @0x0
0x3294…32a3 lno = 0x1446 // 0x3296 @0x2
0x3294…32a3 at0004 = ╱9e╱ PROC ╱ // 0x3298 @0x4
0x3294…32a3 at0005 = ╱42╱B╱ // 0x3299 @0x5
0x3294…32a3 at0006 = ╱50╱P╱ // 0x329a @0x6
0x3294…32a3 at0007 = ╱4f╱O╱ // 0x329b @0x7
0x3294…32a3 at0008 = ╱53╱S╱ // 0x329c @0x8
0x3294…32a3 at0009 = ╱54╱T╱ // 0x329d @0x9
0x3294…32a3 at000a = ╱ed╱(╱ // 0x329e @0xa
0x3294…32a3 at000b = ╱53╱S╱ // 0x329f @0xb
0x3294…32a3 at000c = ╱4c╱L╱ // 0x32a0 @0xc
0x3294…32a3 at000d = ╱ee╱)╱ // 0x32a1 @0xd
0x3294…32a3 at000e = EOL // 0x32a2 @0xe
0x3294…32a3 }
0x32a3…32b3 c00a 5200 GET K6$,I:TEK$
0x32a3…32b3 LineComalBin {
0x32a3…32b3 ptr = 0xc00a // 0x32a3 @0x0
0x32a3…32b3 lno = 0x1450 // 0x32a5 @0x2
0x32a3…32b3 at0004 = ╱a9╱ GET ╱ // 0x32a7 @0x4
0x32a3…32b3 at0005 = ╱4b╱K╱ // 0x32a8 @0x5
0x32a3…32b3 at0006 = ╱36╱6╱ // 0x32a9 @0x6
0x32a3…32b3 at0007 = ╱ef╱$╱ // 0x32aa @0x7
0x32a3…32b3 at0008 = ╱ec╱,╱ // 0x32ab @0x8
0x32a3…32b3 at0009 = ╱49╱I╱ // 0x32ac @0x9
0x32a3…32b3 at000a = ╱f0╱:╱ // 0x32ad @0xa
0x32a3…32b3 at000b = ╱54╱T╱ // 0x32ae @0xb
0x32a3…32b3 at000c = ╱45╱E╱ // 0x32af @0xc
0x32a3…32b3 at000d = ╱4b╱K╱ // 0x32b0 @0xd
0x32a3…32b3 at000e = ╱ef╱$╱ // 0x32b1 @0xe
0x32a3…32b3 at000f = EOL // 0x32b2 @0xf
0x32a3…32b3 }
0x32b3…32cb c022 5210 EXEC FEJL(6,E,K6$)
0x32b3…32cb LineComalBin {
0x32b3…32cb ptr = 0xc022 // 0x32b3 @0x0
0x32b3…32cb lno = 0x145a // 0x32b5 @0x2
0x32b3…32cb at0004 = ╱9d╱ EXEC ╱ // 0x32b7 @0x4
0x32b3…32cb at0005 = ╱46╱F╱ // 0x32b8 @0x5
0x32b3…32cb at0006 = ╱45╱E╱ // 0x32b9 @0x6
0x32b3…32cb at0007 = ╱4a╱J╱ // 0x32ba @0x7
0x32b3…32cb at0008 = ╱4c╱L╱ // 0x32bb @0x8
0x32b3…32cb at0009 = ╱ed╱(╱ // 0x32bc @0x9
0x32b3…32cb at000a = ╱36╱6╱ // 0x32bd @0xa
0x32b3…32cb at000b = ╱fe0000c003╱ // 0x32be @0xb
0x32b3…32cb at0010 = ╱ec╱,╱ // 0x32c3 @0x10
0x32b3…32cb at0011 = ╱45╱E╱ // 0x32c4 @0x11
0x32b3…32cb at0012 = ╱ec╱,╱ // 0x32c5 @0x12
0x32b3…32cb at0013 = ╱4b╱K╱ // 0x32c6 @0x13
0x32b3…32cb at0014 = ╱36╱6╱ // 0x32c7 @0x14
0x32b3…32cb at0015 = ╱ef╱$╱ // 0x32c8 @0x15
0x32b3…32cb at0016 = ╱ee╱)╱ // 0x32c9 @0x16
0x32b3…32cb at0017 = EOL // 0x32ca @0x17
0x32b3…32cb }
0x32cb…32e5 c03c 5220 POSTER=POSTER+E;I=I+E
0x32cb…32e5 LineComalBin {
0x32cb…32e5 ptr = 0xc03c // 0x32cb @0x0
0x32cb…32e5 lno = 0x1464 // 0x32cd @0x2
0x32cb…32e5 at0004 = ╱50╱P╱ // 0x32cf @0x4
0x32cb…32e5 at0005 = ╱4f╱O╱ // 0x32d0 @0x5
0x32cb…32e5 at0006 = ╱53╱S╱ // 0x32d1 @0x6
0x32cb…32e5 at0007 = ╱54╱T╱ // 0x32d2 @0x7
0x32cb…32e5 at0008 = ╱45╱E╱ // 0x32d3 @0x8
0x32cb…32e5 at0009 = ╱52╱R╱ // 0x32d4 @0x9
0x32cb…32e5 at000a = ╱dc╱=╱ // 0x32d5 @0xa
0x32cb…32e5 at000b = ╱50╱P╱ // 0x32d6 @0xb
0x32cb…32e5 at000c = ╱4f╱O╱ // 0x32d7 @0xc
0x32cb…32e5 at000d = ╱53╱S╱ // 0x32d8 @0xd
0x32cb…32e5 at000e = ╱54╱T╱ // 0x32d9 @0xe
0x32cb…32e5 at000f = ╱45╱E╱ // 0x32da @0xf
0x32cb…32e5 at0010 = ╱52╱R╱ // 0x32db @0x10
0x32cb…32e5 at0011 = ╱e2╱+╱ // 0x32dc @0x11
0x32cb…32e5 at0012 = ╱45╱E╱ // 0x32dd @0x12
0x32cb…32e5 at0013 = ╱eb╱;╱ // 0x32de @0x13
0x32cb…32e5 at0014 = ╱49╱I╱ // 0x32df @0x14
0x32cb…32e5 at0015 = ╱dc╱=╱ // 0x32e0 @0x15
0x32cb…32e5 at0016 = ╱49╱I╱ // 0x32e1 @0x16
0x32cb…32e5 at0017 = ╱e2╱+╱ // 0x32e2 @0x17
0x32cb…32e5 at0018 = ╱45╱E╱ // 0x32e3 @0x18
0x32cb…32e5 at0019 = EOL // 0x32e4 @0x19
0x32cb…32e5 }
0x32e5…32f0 c047 5230 IF SL=B THEN
0x32e5…32f0 LineComalBin {
0x32e5…32f0 ptr = 0xc047 // 0x32e5 @0x0
0x32e5…32f0 lno = 0x146e // 0x32e7 @0x2
0x32e5…32f0 at0004 = ╱9c╱ IF ╱ // 0x32e9 @0x4
0x32e5…32f0 at0005 = ╱53╱S╱ // 0x32ea @0x5
0x32e5…32f0 at0006 = ╱4c╱L╱ // 0x32eb @0x6
0x32e5…32f0 at0007 = ╱dc╱=╱ // 0x32ec @0x7
0x32e5…32f0 at0008 = ╱42╱B╱ // 0x32ed @0x8
0x32e5…32f0 at0009 = ╱b6╱ THEN ╱ // 0x32ee @0x9
0x32e5…32f0 at000a = EOL // 0x32ef @0xa
0x32e5…32f0 }
0x32f0…3300 c057 5240 BELØB$=TEK$
0x32f0…3300 LineComalBin {
0x32f0…3300 ptr = 0xc057 // 0x32f0 @0x0
0x32f0…3300 lno = 0x1478 // 0x32f2 @0x2
0x32f0…3300 at0004 = ╱42╱B╱ // 0x32f4 @0x4
0x32f0…3300 at0005 = ╱45╱E╱ // 0x32f5 @0x5
0x32f0…3300 at0006 = ╱4c╱L╱ // 0x32f6 @0x6
0x32f0…3300 at0007 = ╱5c╱Ø╱ // 0x32f7 @0x7
0x32f0…3300 at0008 = ╱42╱B╱ // 0x32f8 @0x8
0x32f0…3300 at0009 = ╱ef╱$╱ // 0x32f9 @0x9
0x32f0…3300 at000a = ╱dc╱=╱ // 0x32fa @0xa
0x32f0…3300 at000b = ╱54╱T╱ // 0x32fb @0xb
0x32f0…3300 at000c = ╱45╱E╱ // 0x32fc @0xc
0x32f0…3300 at000d = ╱4b╱K╱ // 0x32fd @0xd
0x32f0…3300 at000e = ╱ef╱$╱ // 0x32fe @0xe
0x32f0…3300 at000f = EOL // 0x32ff @0xf
0x32f0…3300 }
0x3300…3306 c05d 5250 ELSE
0x3300…3306 LineComalBin {
0x3300…3306 ptr = 0xc05d // 0x3300 @0x0
0x3300…3306 lno = 0x1482 // 0x3302 @0x2
0x3300…3306 at0004 = ╱9a╱ ELSE ╱ // 0x3304 @0x4
0x3300…3306 at0005 = EOL // 0x3305 @0x5
0x3300…3306 }
0x3306…3318 c06f 5260 VARPRIS$=TEK$
0x3306…3318 LineComalBin {
0x3306…3318 ptr = 0xc06f // 0x3306 @0x0
0x3306…3318 lno = 0x148c // 0x3308 @0x2
0x3306…3318 at0004 = ╱56╱V╱ // 0x330a @0x4
0x3306…3318 at0005 = ╱41╱A╱ // 0x330b @0x5
0x3306…3318 at0006 = ╱52╱R╱ // 0x330c @0x6
0x3306…3318 at0007 = ╱50╱P╱ // 0x330d @0x7
0x3306…3318 at0008 = ╱52╱R╱ // 0x330e @0x8
0x3306…3318 at0009 = ╱49╱I╱ // 0x330f @0x9
0x3306…3318 at000a = ╱53╱S╱ // 0x3310 @0xa
0x3306…3318 at000b = ╱ef╱$╱ // 0x3311 @0xb
0x3306…3318 at000c = ╱dc╱=╱ // 0x3312 @0xc
0x3306…3318 at000d = ╱54╱T╱ // 0x3313 @0xd
0x3306…3318 at000e = ╱45╱E╱ // 0x3314 @0xe
0x3306…3318 at000f = ╱4b╱K╱ // 0x3315 @0xf
0x3306…3318 at0010 = ╱ef╱$╱ // 0x3316 @0x10
0x3306…3318 at0011 = EOL // 0x3317 @0x11
0x3306…3318 }
0x3318…331e c075 5270 ENDIF
0x3318…331e LineComalBin {
0x3318…331e ptr = 0xc075 // 0x3318 @0x0
0x3318…331e lno = 0x1496 // 0x331a @0x2
0x3318…331e at0004 = ╱9b╱ ENDIF ╱ // 0x331c @0x4
0x3318…331e at0005 = EOL // 0x331d @0x5
0x3318…331e }
0x331e…3335 c08c 5280 KOD$=TEK$(13)
0x331e…3335 LineComalBin {
0x331e…3335 ptr = 0xc08c // 0x331e @0x0
0x331e…3335 lno = 0x14a0 // 0x3320 @0x2
0x331e…3335 at0004 = ╱4b╱K╱ // 0x3322 @0x4
0x331e…3335 at0005 = ╱4f╱O╱ // 0x3323 @0x5
0x331e…3335 at0006 = ╱44╱D╱ // 0x3324 @0x6
0x331e…3335 at0007 = ╱ef╱$╱ // 0x3325 @0x7
0x331e…3335 at0008 = ╱dc╱=╱ // 0x3326 @0x8
0x331e…3335 at0009 = ╱54╱T╱ // 0x3327 @0x9
0x331e…3335 at000a = ╱45╱E╱ // 0x3328 @0xa
0x331e…3335 at000b = ╱4b╱K╱ // 0x3329 @0xb
0x331e…3335 at000c = ╱ef╱$╱ // 0x332a @0xc
0x331e…3335 at000d = ╱ed╱(╱ // 0x332b @0xd
0x331e…3335 at000e = ╱31╱1╱ // 0x332c @0xe
0x331e…3335 at000f = ╱33╱3╱ // 0x332d @0xf
0x331e…3335 at0010 = ╱fe0000d004╱ // 0x332e @0x10
0x331e…3335 at0015 = ╱ee╱)╱ // 0x3333 @0x15
0x331e…3335 at0016 = EOL // 0x3334 @0x16
0x331e…3335 }
0x3335…333b c092 5290 ENDPROC
0x3335…333b LineComalBin {
0x3335…333b ptr = 0xc092 // 0x3335 @0x0
0x3335…333b lno = 0x14aa // 0x3337 @0x2
0x3335…333b at0004 = ╱9f╱ ENDPROC ╱ // 0x3339 @0x4
0x3335…333b at0005 = EOL // 0x333a @0x5
0x3335…333b }
0x333b…3346 c09d 5300 PROC TPOST
0x333b…3346 LineComalBin {
0x333b…3346 ptr = 0xc09d // 0x333b @0x0
0x333b…3346 lno = 0x14b4 // 0x333d @0x2
0x333b…3346 at0004 = ╱9e╱ PROC ╱ // 0x333f @0x4
0x333b…3346 at0005 = ╱54╱T╱ // 0x3340 @0x5
0x333b…3346 at0006 = ╱50╱P╱ // 0x3341 @0x6
0x333b…3346 at0007 = ╱4f╱O╱ // 0x3342 @0x7
0x333b…3346 at0008 = ╱53╱S╱ // 0x3343 @0x8
0x333b…3346 at0009 = ╱54╱T╱ // 0x3344 @0x9
0x333b…3346 at000a = EOL // 0x3345 @0xa
0x333b…3346 }
0x3346…3355 c0ac 5305 KOD3$=KOD$
0x3346…3355 LineComalBin {
0x3346…3355 ptr = 0xc0ac // 0x3346 @0x0
0x3346…3355 lno = 0x14b9 // 0x3348 @0x2
0x3346…3355 at0004 = ╱4b╱K╱ // 0x334a @0x4
0x3346…3355 at0005 = ╱4f╱O╱ // 0x334b @0x5
0x3346…3355 at0006 = ╱44╱D╱ // 0x334c @0x6
0x3346…3355 at0007 = ╱33╱3╱ // 0x334d @0x7
0x3346…3355 at0008 = ╱ef╱$╱ // 0x334e @0x8
0x3346…3355 at0009 = ╱dc╱=╱ // 0x334f @0x9
0x3346…3355 at000a = ╱4b╱K╱ // 0x3350 @0xa
0x3346…3355 at000b = ╱4f╱O╱ // 0x3351 @0xb
0x3346…3355 at000c = ╱44╱D╱ // 0x3352 @0xc
0x3346…3355 at000d = ╱ef╱$╱ // 0x3353 @0xd
0x3346…3355 at000e = EOL // 0x3354 @0xe
0x3346…3355 }
0x3355…336a c0c1 5310 VARTEKST$=BLANK$
0x3355…336a LineComalBin {
0x3355…336a ptr = 0xc0c1 // 0x3355 @0x0
0x3355…336a lno = 0x14be // 0x3357 @0x2
0x3355…336a at0004 = ╱56╱V╱ // 0x3359 @0x4
0x3355…336a at0005 = ╱41╱A╱ // 0x335a @0x5
0x3355…336a at0006 = ╱52╱R╱ // 0x335b @0x6
0x3355…336a at0007 = ╱54╱T╱ // 0x335c @0x7
0x3355…336a at0008 = ╱45╱E╱ // 0x335d @0x8
0x3355…336a at0009 = ╱4b╱K╱ // 0x335e @0x9
0x3355…336a at000a = ╱53╱S╱ // 0x335f @0xa
0x3355…336a at000b = ╱54╱T╱ // 0x3360 @0xb
0x3355…336a at000c = ╱ef╱$╱ // 0x3361 @0xc
0x3355…336a at000d = ╱dc╱=╱ // 0x3362 @0xd
0x3355…336a at000e = ╱42╱B╱ // 0x3363 @0xe
0x3355…336a at000f = ╱4c╱L╱ // 0x3364 @0xf
0x3355…336a at0010 = ╱41╱A╱ // 0x3365 @0x10
0x3355…336a at0011 = ╱4e╱N╱ // 0x3366 @0x11
0x3355…336a at0012 = ╱4b╱K╱ // 0x3367 @0x12
0x3355…336a at0013 = ╱ef╱$╱ // 0x3368 @0x13
0x3355…336a at0014 = EOL // 0x3369 @0x14
0x3355…336a }
0x336a…338a c0e1 5320 GET K6$,I:VARTEKST$(E:13)
0x336a…338a LineComalBin {
0x336a…338a ptr = 0xc0e1 // 0x336a @0x0
0x336a…338a lno = 0x14c8 // 0x336c @0x2
0x336a…338a at0004 = ╱a9╱ GET ╱ // 0x336e @0x4
0x336a…338a at0005 = ╱4b╱K╱ // 0x336f @0x5
0x336a…338a at0006 = ╱36╱6╱ // 0x3370 @0x6
0x336a…338a at0007 = ╱ef╱$╱ // 0x3371 @0x7
0x336a…338a at0008 = ╱ec╱,╱ // 0x3372 @0x8
0x336a…338a at0009 = ╱49╱I╱ // 0x3373 @0x9
0x336a…338a at000a = ╱f0╱:╱ // 0x3374 @0xa
0x336a…338a at000b = ╱56╱V╱ // 0x3375 @0xb
0x336a…338a at000c = ╱41╱A╱ // 0x3376 @0xc
0x336a…338a at000d = ╱52╱R╱ // 0x3377 @0xd
0x336a…338a at000e = ╱54╱T╱ // 0x3378 @0xe
0x336a…338a at000f = ╱45╱E╱ // 0x3379 @0xf
0x336a…338a at0010 = ╱4b╱K╱ // 0x337a @0x10
0x336a…338a at0011 = ╱53╱S╱ // 0x337b @0x11
0x336a…338a at0012 = ╱54╱T╱ // 0x337c @0x12
0x336a…338a at0013 = ╱ef╱$╱ // 0x337d @0x13
0x336a…338a at0014 = ╱ed╱(╱ // 0x337e @0x14
0x336a…338a at0015 = ╱45╱E╱ // 0x337f @0x15
0x336a…338a at0016 = ╱f0╱:╱ // 0x3380 @0x16
0x336a…338a at0017 = ╱31╱1╱ // 0x3381 @0x17
0x336a…338a at0018 = ╱33╱3╱ // 0x3382 @0x18
0x336a…338a at0019 = ╱fe0000d004╱ // 0x3383 @0x19
0x336a…338a at001e = ╱ee╱)╱ // 0x3388 @0x1e
0x336a…338a at001f = EOL // 0x3389 @0x1f
0x336a…338a }
0x338a…33a2 c0f9 5340 EXEC FEJL(7,E,K6$)
0x338a…33a2 LineComalBin {
0x338a…33a2 ptr = 0xc0f9 // 0x338a @0x0
0x338a…33a2 lno = 0x14dc // 0x338c @0x2
0x338a…33a2 at0004 = ╱9d╱ EXEC ╱ // 0x338e @0x4
0x338a…33a2 at0005 = ╱46╱F╱ // 0x338f @0x5
0x338a…33a2 at0006 = ╱45╱E╱ // 0x3390 @0x6
0x338a…33a2 at0007 = ╱4a╱J╱ // 0x3391 @0x7
0x338a…33a2 at0008 = ╱4c╱L╱ // 0x3392 @0x8
0x338a…33a2 at0009 = ╱ed╱(╱ // 0x3393 @0x9
0x338a…33a2 at000a = ╱37╱7╱ // 0x3394 @0xa
0x338a…33a2 at000b = ╱fe0000e003╱ // 0x3395 @0xb
0x338a…33a2 at0010 = ╱ec╱,╱ // 0x339a @0x10
0x338a…33a2 at0011 = ╱45╱E╱ // 0x339b @0x11
0x338a…33a2 at0012 = ╱ec╱,╱ // 0x339c @0x12
0x338a…33a2 at0013 = ╱4b╱K╱ // 0x339d @0x13
0x338a…33a2 at0014 = ╱36╱6╱ // 0x339e @0x14
0x338a…33a2 at0015 = ╱ef╱$╱ // 0x339f @0x15
0x338a…33a2 at0016 = ╱ee╱)╱ // 0x33a0 @0x16
0x338a…33a2 at0017 = EOL // 0x33a1 @0x17
0x338a…33a2 }
0x33a2…33ac c103 5350 I=I+E
0x33a2…33ac LineComalBin {
0x33a2…33ac ptr = 0xc103 // 0x33a2 @0x0
0x33a2…33ac lno = 0x14e6 // 0x33a4 @0x2
0x33a2…33ac at0004 = ╱49╱I╱ // 0x33a6 @0x4
0x33a2…33ac at0005 = ╱dc╱=╱ // 0x33a7 @0x5
0x33a2…33ac at0006 = ╱49╱I╱ // 0x33a8 @0x6
0x33a2…33ac at0007 = ╱e2╱+╱ // 0x33a9 @0x7
0x33a2…33ac at0008 = ╱45╱E╱ // 0x33aa @0x8
0x33a2…33ac at0009 = EOL // 0x33ab @0x9
0x33a2…33ac }
0x33ac…33bc c113 5360 GET K6$,I:TEK$
0x33ac…33bc LineComalBin {
0x33ac…33bc ptr = 0xc113 // 0x33ac @0x0
0x33ac…33bc lno = 0x14f0 // 0x33ae @0x2
0x33ac…33bc at0004 = ╱a9╱ GET ╱ // 0x33b0 @0x4
0x33ac…33bc at0005 = ╱4b╱K╱ // 0x33b1 @0x5
0x33ac…33bc at0006 = ╱36╱6╱ // 0x33b2 @0x6
0x33ac…33bc at0007 = ╱ef╱$╱ // 0x33b3 @0x7
0x33ac…33bc at0008 = ╱ec╱,╱ // 0x33b4 @0x8
0x33ac…33bc at0009 = ╱49╱I╱ // 0x33b5 @0x9
0x33ac…33bc at000a = ╱f0╱:╱ // 0x33b6 @0xa
0x33ac…33bc at000b = ╱54╱T╱ // 0x33b7 @0xb
0x33ac…33bc at000c = ╱45╱E╱ // 0x33b8 @0xc
0x33ac…33bc at000d = ╱4b╱K╱ // 0x33b9 @0xd
0x33ac…33bc at000e = ╱ef╱$╱ // 0x33ba @0xe
0x33ac…33bc at000f = EOL // 0x33bb @0xf
0x33ac…33bc }
0x33bc…33d4 (172,) c12b 5380 EXEC FEJL(7,G,K6$)
0x33bc…33d4 LineComalBin {
0x33bc…33d4 ptr = 0xc12b // 0x33bc @0x0
0x33bc…33d4 lno = 0x1504 // 0x33be @0x2
0x33bc…33d4 at0004 = ╱9d╱ EXEC ╱ // 0x33c0 @0x4
0x33bc…33d4 at0005 = ╱46╱F╱ // 0x33c1 @0x5
0x33bc…33d4 at0006 = ╱45╱E╱ // 0x33c2 @0x6
0x33bc…33d4 at0007 = ╱4a╱J╱ // 0x33c3 @0x7
0x33bc…33d4 at0008 = ╱4c╱L╱ // 0x33c4 @0x8
0x33bc…33d4 at0009 = ╱ed╱(╱ // 0x33c5 @0x9
0x33bc…33d4 at000a = ╱37╱7╱ // 0x33c6 @0xa
0x33bc…33d4 at000b = ╱fe0000e003╱ // 0x33c7 @0xb
0x33bc…33d4 at0010 = ╱ec╱,╱ // 0x33cc @0x10
0x33bc…33d4 at0011 = ╱47╱G╱ // 0x33cd @0x11
0x33bc…33d4 at0012 = ╱ec╱,╱ // 0x33ce @0x12
0x33bc…33d4 at0013 = ╱4b╱K╱ // 0x33cf @0x13
0x33bc…33d4 at0014 = ╱36╱6╱ // 0x33d0 @0x14
0x33bc…33d4 at0015 = ╱ef╱$╱ // 0x33d1 @0x15
0x33bc…33d4 at0016 = ╱ee╱)╱ // 0x33d2 @0x16
0x33bc…33d4 at0017 = EOL // 0x33d3 @0x17
0x33bc…33d4 }
0x33d4…33e3 c13a 5390 LE=LEN(TEK$)
0x33d4…33e3 LineComalBin {
0x33d4…33e3 ptr = 0xc13a // 0x33d4 @0x0
0x33d4…33e3 lno = 0x150e // 0x33d6 @0x2
0x33d4…33e3 at0004 = ╱4c╱L╱ // 0x33d8 @0x4
0x33d4…33e3 at0005 = ╱45╱E╱ // 0x33d9 @0x5
0x33d4…33e3 at0006 = ╱dc╱=╱ // 0x33da @0x6
0x33d4…33e3 at0007 = ╱cc╱LEN╱ // 0x33db @0x7
0x33d4…33e3 at0008 = ╱ed╱(╱ // 0x33dc @0x8
0x33d4…33e3 at0009 = ╱54╱T╱ // 0x33dd @0x9
0x33d4…33e3 at000a = ╱45╱E╱ // 0x33de @0xa
0x33d4…33e3 at000b = ╱4b╱K╱ // 0x33df @0xb
0x33d4…33e3 at000c = ╱ef╱$╱ // 0x33e0 @0xc
0x33d4…33e3 at000d = ╱ee╱)╱ // 0x33e1 @0xd
0x33d4…33e3 at000e = EOL // 0x33e2 @0xe
0x33d4…33e3 }
0x33e3…33ee c145 5400 IF LE>E THEN
0x33e3…33ee LineComalBin {
0x33e3…33ee ptr = 0xc145 // 0x33e3 @0x0
0x33e3…33ee lno = 0x1518 // 0x33e5 @0x2
0x33e3…33ee at0004 = ╱9c╱ IF ╱ // 0x33e7 @0x4
0x33e3…33ee at0005 = ╱4c╱L╱ // 0x33e8 @0x5
0x33e3…33ee at0006 = ╱45╱E╱ // 0x33e9 @0x6
0x33e3…33ee at0007 = ╱de╱>╱ // 0x33ea @0x7
0x33e3…33ee at0008 = ╱45╱E╱ // 0x33eb @0x8
0x33e3…33ee at0009 = ╱b6╱ THEN ╱ // 0x33ec @0x9
0x33e3…33ee at000a = EOL // 0x33ed @0xa
0x33e3…33ee }
0x33ee…340f c166 5410 VARTEKST$(14:LE-E)=TEK$
0x33ee…340f LineComalBin {
0x33ee…340f ptr = 0xc166 // 0x33ee @0x0
0x33ee…340f lno = 0x1522 // 0x33f0 @0x2
0x33ee…340f at0004 = ╱56╱V╱ // 0x33f2 @0x4
0x33ee…340f at0005 = ╱41╱A╱ // 0x33f3 @0x5
0x33ee…340f at0006 = ╱52╱R╱ // 0x33f4 @0x6
0x33ee…340f at0007 = ╱54╱T╱ // 0x33f5 @0x7
0x33ee…340f at0008 = ╱45╱E╱ // 0x33f6 @0x8
0x33ee…340f at0009 = ╱4b╱K╱ // 0x33f7 @0x9
0x33ee…340f at000a = ╱53╱S╱ // 0x33f8 @0xa
0x33ee…340f at000b = ╱54╱T╱ // 0x33f9 @0xb
0x33ee…340f at000c = ╱ef╱$╱ // 0x33fa @0xc
0x33ee…340f at000d = ╱ed╱(╱ // 0x33fb @0xd
0x33ee…340f at000e = ╱31╱1╱ // 0x33fc @0xe
0x33ee…340f at000f = ╱34╱4╱ // 0x33fd @0xf
0x33ee…340f at0010 = ╱fe0000e004╱ // 0x33fe @0x10
0x33ee…340f at0015 = ╱f0╱:╱ // 0x3403 @0x15
0x33ee…340f at0016 = ╱4c╱L╱ // 0x3404 @0x16
0x33ee…340f at0017 = ╱45╱E╱ // 0x3405 @0x17
0x33ee…340f at0018 = ╱e3╱-╱ // 0x3406 @0x18
0x33ee…340f at0019 = ╱45╱E╱ // 0x3407 @0x19
0x33ee…340f at001a = ╱ee╱)╱ // 0x3408 @0x1a
0x33ee…340f at001b = ╱dc╱=╱ // 0x3409 @0x1b
0x33ee…340f at001c = ╱54╱T╱ // 0x340a @0x1c
0x33ee…340f at001d = ╱45╱E╱ // 0x340b @0x1d
0x33ee…340f at001e = ╱4b╱K╱ // 0x340c @0x1e
0x33ee…340f at001f = ╱ef╱$╱ // 0x340d @0x1f
0x33ee…340f at0020 = EOL // 0x340e @0x20
0x33ee…340f }
0x340f…3415 c16c 5420 ENDIF
0x340f…3415 LineComalBin {
0x340f…3415 ptr = 0xc16c // 0x340f @0x0
0x340f…3415 lno = 0x152c // 0x3411 @0x2
0x340f…3415 at0004 = ╱9b╱ ENDIF ╱ // 0x3413 @0x4
0x340f…3415 at0005 = EOL // 0x3414 @0x5
0x340f…3415 }
0x3415…343d c194 5430 KOD$=TEK$(LE);I=I+E;POSTER=POSTER+G
0x3415…343d LineComalBin {
0x3415…343d ptr = 0xc194 // 0x3415 @0x0
0x3415…343d lno = 0x1536 // 0x3417 @0x2
0x3415…343d at0004 = ╱4b╱K╱ // 0x3419 @0x4
0x3415…343d at0005 = ╱4f╱O╱ // 0x341a @0x5
0x3415…343d at0006 = ╱44╱D╱ // 0x341b @0x6
0x3415…343d at0007 = ╱ef╱$╱ // 0x341c @0x7
0x3415…343d at0008 = ╱dc╱=╱ // 0x341d @0x8
0x3415…343d at0009 = ╱54╱T╱ // 0x341e @0x9
0x3415…343d at000a = ╱45╱E╱ // 0x341f @0xa
0x3415…343d at000b = ╱4b╱K╱ // 0x3420 @0xb
0x3415…343d at000c = ╱ef╱$╱ // 0x3421 @0xc
0x3415…343d at000d = ╱ed╱(╱ // 0x3422 @0xd
0x3415…343d at000e = ╱4c╱L╱ // 0x3423 @0xe
0x3415…343d at000f = ╱45╱E╱ // 0x3424 @0xf
0x3415…343d at0010 = ╱ee╱)╱ // 0x3425 @0x10
0x3415…343d at0011 = ╱eb╱;╱ // 0x3426 @0x11
0x3415…343d at0012 = ╱49╱I╱ // 0x3427 @0x12
0x3415…343d at0013 = ╱dc╱=╱ // 0x3428 @0x13
0x3415…343d at0014 = ╱49╱I╱ // 0x3429 @0x14
0x3415…343d at0015 = ╱e2╱+╱ // 0x342a @0x15
0x3415…343d at0016 = ╱45╱E╱ // 0x342b @0x16
0x3415…343d at0017 = ╱eb╱;╱ // 0x342c @0x17
0x3415…343d at0018 = ╱50╱P╱ // 0x342d @0x18
0x3415…343d at0019 = ╱4f╱O╱ // 0x342e @0x19
0x3415…343d at001a = ╱53╱S╱ // 0x342f @0x1a
0x3415…343d at001b = ╱54╱T╱ // 0x3430 @0x1b
0x3415…343d at001c = ╱45╱E╱ // 0x3431 @0x1c
0x3415…343d at001d = ╱52╱R╱ // 0x3432 @0x1d
0x3415…343d at001e = ╱dc╱=╱ // 0x3433 @0x1e
0x3415…343d at001f = ╱50╱P╱ // 0x3434 @0x1f
0x3415…343d at0020 = ╱4f╱O╱ // 0x3435 @0x20
0x3415…343d at0021 = ╱53╱S╱ // 0x3436 @0x21
0x3415…343d at0022 = ╱54╱T╱ // 0x3437 @0x22
0x3415…343d at0023 = ╱45╱E╱ // 0x3438 @0x23
0x3415…343d at0024 = ╱52╱R╱ // 0x3439 @0x24
0x3415…343d at0025 = ╱e2╱+╱ // 0x343a @0x25
0x3415…343d at0026 = ╱47╱G╱ // 0x343b @0x26
0x3415…343d at0027 = EOL // 0x343c @0x27
0x3415…343d }
0x343d…3458 c1af 5440 IF KOD3$="D" AND LE=13 THEN
0x343d…3458 LineComalBin {
0x343d…3458 ptr = 0xc1af // 0x343d @0x0
0x343d…3458 lno = 0x1540 // 0x343f @0x2
0x343d…3458 at0004 = ╱9c╱ IF ╱ // 0x3441 @0x4
0x343d…3458 at0005 = ╱4b╱K╱ // 0x3442 @0x5
0x343d…3458 at0006 = ╱4f╱O╱ // 0x3443 @0x6
0x343d…3458 at0007 = ╱44╱D╱ // 0x3444 @0x7
0x343d…3458 at0008 = ╱33╱3╱ // 0x3445 @0x8
0x343d…3458 at0009 = ╱ef╱$╱ // 0x3446 @0x9
0x343d…3458 at000a = ╱dc╱=╱ // 0x3447 @0xa
0x343d…3458 at000b = ╱22╱"╱ // 0x3448 @0xb
0x343d…3458 at000c = ╱44╱D╱ // 0x3449 @0xc
0x343d…3458 at000d = ╱22╱"╱ // 0x344a @0xd
0x343d…3458 at000e = ╱da╱ AND ╱ // 0x344b @0xe
0x343d…3458 at000f = ╱4c╱L╱ // 0x344c @0xf
0x343d…3458 at0010 = ╱45╱E╱ // 0x344d @0x10
0x343d…3458 at0011 = ╱dc╱=╱ // 0x344e @0x11
0x343d…3458 at0012 = ╱31╱1╱ // 0x344f @0x12
0x343d…3458 at0013 = ╱33╱3╱ // 0x3450 @0x13
0x343d…3458 at0014 = ╱fe0000d004╱ // 0x3451 @0x14
0x343d…3458 at0019 = ╱b6╱ THEN ╱ // 0x3456 @0x19
0x343d…3458 at001a = EOL // 0x3457 @0x1a
0x343d…3458 }
0x3458…347e c1d5 5450 GET K6$,I:VARTEKST$(26:13)
0x3458…347e LineComalBin {
0x3458…347e ptr = 0xc1d5 // 0x3458 @0x0
0x3458…347e lno = 0x154a // 0x345a @0x2
0x3458…347e at0004 = ╱a9╱ GET ╱ // 0x345c @0x4
0x3458…347e at0005 = ╱4b╱K╱ // 0x345d @0x5
0x3458…347e at0006 = ╱36╱6╱ // 0x345e @0x6
0x3458…347e at0007 = ╱ef╱$╱ // 0x345f @0x7
0x3458…347e at0008 = ╱ec╱,╱ // 0x3460 @0x8
0x3458…347e at0009 = ╱49╱I╱ // 0x3461 @0x9
0x3458…347e at000a = ╱f0╱:╱ // 0x3462 @0xa
0x3458…347e at000b = ╱56╱V╱ // 0x3463 @0xb
0x3458…347e at000c = ╱41╱A╱ // 0x3464 @0xc
0x3458…347e at000d = ╱52╱R╱ // 0x3465 @0xd
0x3458…347e at000e = ╱54╱T╱ // 0x3466 @0xe
0x3458…347e at000f = ╱45╱E╱ // 0x3467 @0xf
0x3458…347e at0010 = ╱4b╱K╱ // 0x3468 @0x10
0x3458…347e at0011 = ╱53╱S╱ // 0x3469 @0x11
0x3458…347e at0012 = ╱54╱T╱ // 0x346a @0x12
0x3458…347e at0013 = ╱ef╱$╱ // 0x346b @0x13
0x3458…347e at0014 = ╱ed╱(╱ // 0x346c @0x14
0x3458…347e at0015 = ╱32╱2╱ // 0x346d @0x15
0x3458…347e at0016 = ╱36╱6╱ // 0x346e @0x16
0x3458…347e at0017 = ╱fe0000d005╱ // 0x346f @0x17
0x3458…347e at001c = ╱f0╱:╱ // 0x3474 @0x1c
0x3458…347e at001d = ╱31╱1╱ // 0x3475 @0x1d
0x3458…347e at001e = ╱33╱3╱ // 0x3476 @0x1e
0x3458…347e at001f = ╱fe0000d004╱ // 0x3477 @0x1f
0x3458…347e at0024 = ╱ee╱)╱ // 0x347c @0x24
0x3458…347e at0025 = EOL // 0x347d @0x25
0x3458…347e }
0x347e…3497 c1ee 5460 EXEC FEJL(99,V,K6$)
0x347e…3497 LineComalBin {
0x347e…3497 ptr = 0xc1ee // 0x347e @0x0
0x347e…3497 lno = 0x1554 // 0x3480 @0x2
0x347e…3497 at0004 = ╱9d╱ EXEC ╱ // 0x3482 @0x4
0x347e…3497 at0005 = ╱46╱F╱ // 0x3483 @0x5
0x347e…3497 at0006 = ╱45╱E╱ // 0x3484 @0x6
0x347e…3497 at0007 = ╱4a╱J╱ // 0x3485 @0x7
0x347e…3497 at0008 = ╱4c╱L╱ // 0x3486 @0x8
0x347e…3497 at0009 = ╱ed╱(╱ // 0x3487 @0x9
0x347e…3497 at000a = ╱39╱9╱ // 0x3488 @0xa
0x347e…3497 at000b = ╱39╱9╱ // 0x3489 @0xb
0x347e…3497 at000c = ╱fe0000c607╱ // 0x348a @0xc
0x347e…3497 at0011 = ╱ec╱,╱ // 0x348f @0x11
0x347e…3497 at0012 = ╱56╱V╱ // 0x3490 @0x12
0x347e…3497 at0013 = ╱ec╱,╱ // 0x3491 @0x13
0x347e…3497 at0014 = ╱4b╱K╱ // 0x3492 @0x14
0x347e…3497 at0015 = ╱36╱6╱ // 0x3493 @0x15
0x347e…3497 at0016 = ╱ef╱$╱ // 0x3494 @0x16
0x347e…3497 at0017 = ╱ee╱)╱ // 0x3495 @0x17
0x347e…3497 at0018 = EOL // 0x3496 @0x18
0x347e…3497 }
0x3497…34b1 c208 5470 I=I+G;POSTER=POSTER+G
0x3497…34b1 LineComalBin {
0x3497…34b1 ptr = 0xc208 // 0x3497 @0x0
0x3497…34b1 lno = 0x155e // 0x3499 @0x2
0x3497…34b1 at0004 = ╱49╱I╱ // 0x349b @0x4
0x3497…34b1 at0005 = ╱dc╱=╱ // 0x349c @0x5
0x3497…34b1 at0006 = ╱49╱I╱ // 0x349d @0x6
0x3497…34b1 at0007 = ╱e2╱+╱ // 0x349e @0x7
0x3497…34b1 at0008 = ╱47╱G╱ // 0x349f @0x8
0x3497…34b1 at0009 = ╱eb╱;╱ // 0x34a0 @0x9
0x3497…34b1 at000a = ╱50╱P╱ // 0x34a1 @0xa
0x3497…34b1 at000b = ╱4f╱O╱ // 0x34a2 @0xb
0x3497…34b1 at000c = ╱53╱S╱ // 0x34a3 @0xc
0x3497…34b1 at000d = ╱54╱T╱ // 0x34a4 @0xd
0x3497…34b1 at000e = ╱45╱E╱ // 0x34a5 @0xe
0x3497…34b1 at000f = ╱52╱R╱ // 0x34a6 @0xf
0x3497…34b1 at0010 = ╱dc╱=╱ // 0x34a7 @0x10
0x3497…34b1 at0011 = ╱50╱P╱ // 0x34a8 @0x11
0x3497…34b1 at0012 = ╱4f╱O╱ // 0x34a9 @0x12
0x3497…34b1 at0013 = ╱53╱S╱ // 0x34aa @0x13
0x3497…34b1 at0014 = ╱54╱T╱ // 0x34ab @0x14
0x3497…34b1 at0015 = ╱45╱E╱ // 0x34ac @0x15
0x3497…34b1 at0016 = ╱52╱R╱ // 0x34ad @0x16
0x3497…34b1 at0017 = ╱e2╱+╱ // 0x34ae @0x17
0x3497…34b1 at0018 = ╱47╱G╱ // 0x34af @0x18
0x3497…34b1 at0019 = EOL // 0x34b0 @0x19
0x3497…34b1 }
0x34b1…34d9 c230 5480 GET K6$,I-E:VARTEKST$(39:12)
0x34b1…34d9 LineComalBin {
0x34b1…34d9 ptr = 0xc230 // 0x34b1 @0x0
0x34b1…34d9 lno = 0x1568 // 0x34b3 @0x2
0x34b1…34d9 at0004 = ╱a9╱ GET ╱ // 0x34b5 @0x4
0x34b1…34d9 at0005 = ╱4b╱K╱ // 0x34b6 @0x5
0x34b1…34d9 at0006 = ╱36╱6╱ // 0x34b7 @0x6
0x34b1…34d9 at0007 = ╱ef╱$╱ // 0x34b8 @0x7
0x34b1…34d9 at0008 = ╱ec╱,╱ // 0x34b9 @0x8
0x34b1…34d9 at0009 = ╱49╱I╱ // 0x34ba @0x9
0x34b1…34d9 at000a = ╱e3╱-╱ // 0x34bb @0xa
0x34b1…34d9 at000b = ╱45╱E╱ // 0x34bc @0xb
0x34b1…34d9 at000c = ╱f0╱:╱ // 0x34bd @0xc
0x34b1…34d9 at000d = ╱56╱V╱ // 0x34be @0xd
0x34b1…34d9 at000e = ╱41╱A╱ // 0x34bf @0xe
0x34b1…34d9 at000f = ╱52╱R╱ // 0x34c0 @0xf
0x34b1…34d9 at0010 = ╱54╱T╱ // 0x34c1 @0x10
0x34b1…34d9 at0011 = ╱45╱E╱ // 0x34c2 @0x11
0x34b1…34d9 at0012 = ╱4b╱K╱ // 0x34c3 @0x12
0x34b1…34d9 at0013 = ╱53╱S╱ // 0x34c4 @0x13
0x34b1…34d9 at0014 = ╱54╱T╱ // 0x34c5 @0x14
0x34b1…34d9 at0015 = ╱ef╱$╱ // 0x34c6 @0x15
0x34b1…34d9 at0016 = ╱ed╱(╱ // 0x34c7 @0x16
0x34b1…34d9 at0017 = ╱33╱3╱ // 0x34c8 @0x17
0x34b1…34d9 at0018 = ╱39╱9╱ // 0x34c9 @0x18
0x34b1…34d9 at0019 = ╱fe00009c06╱ // 0x34ca @0x19
0x34b1…34d9 at001e = ╱f0╱:╱ // 0x34cf @0x1e
0x34b1…34d9 at001f = ╱31╱1╱ // 0x34d0 @0x1f
0x34b1…34d9 at0020 = ╱32╱2╱ // 0x34d1 @0x20
0x34b1…34d9 at0021 = ╱fe0000c004╱ // 0x34d2 @0x21
0x34b1…34d9 at0026 = ╱ee╱)╱ // 0x34d7 @0x26
0x34b1…34d9 at0027 = EOL // 0x34d8 @0x27
0x34b1…34d9 }
0x34d9…34f7 c24e 5490 EXEC FEJL(99,4,K6$)
0x34d9…34f7 LineComalBin {
0x34d9…34f7 ptr = 0xc24e // 0x34d9 @0x0
0x34d9…34f7 lno = 0x1572 // 0x34db @0x2
0x34d9…34f7 at0004 = ╱9d╱ EXEC ╱ // 0x34dd @0x4
0x34d9…34f7 at0005 = ╱46╱F╱ // 0x34de @0x5
0x34d9…34f7 at0006 = ╱45╱E╱ // 0x34df @0x6
0x34d9…34f7 at0007 = ╱4a╱J╱ // 0x34e0 @0x7
0x34d9…34f7 at0008 = ╱4c╱L╱ // 0x34e1 @0x8
0x34d9…34f7 at0009 = ╱ed╱(╱ // 0x34e2 @0x9
0x34d9…34f7 at000a = ╱39╱9╱ // 0x34e3 @0xa
0x34d9…34f7 at000b = ╱39╱9╱ // 0x34e4 @0xb
0x34d9…34f7 at000c = ╱fe0000c607╱ // 0x34e5 @0xc
0x34d9…34f7 at0011 = ╱ec╱,╱ // 0x34ea @0x11
0x34d9…34f7 at0012 = ╱34╱4╱ // 0x34eb @0x12
0x34d9…34f7 at0013 = ╱fe00008003╱ // 0x34ec @0x13
0x34d9…34f7 at0018 = ╱ec╱,╱ // 0x34f1 @0x18
0x34d9…34f7 at0019 = ╱4b╱K╱ // 0x34f2 @0x19
0x34d9…34f7 at001a = ╱36╱6╱ // 0x34f3 @0x1a
0x34d9…34f7 at001b = ╱ef╱$╱ // 0x34f4 @0x1b
0x34d9…34f7 at001c = ╱ee╱)╱ // 0x34f5 @0x1c
0x34d9…34f7 at001d = EOL // 0x34f6 @0x1d
0x34d9…34f7 }
0x34f7…34fd c254 5500 ENDIF
0x34f7…34fd LineComalBin {
0x34f7…34fd ptr = 0xc254 // 0x34f7 @0x0
0x34f7…34fd lno = 0x157c // 0x34f9 @0x2
0x34f7…34fd at0004 = ╱9b╱ ENDIF ╱ // 0x34fb @0x4
0x34f7…34fd at0005 = EOL // 0x34fc @0x5
0x34f7…34fd }
0x34fd…3503 c25a 5510 ENDPROC
0x34fd…3503 LineComalBin {
0x34fd…3503 ptr = 0xc25a // 0x34fd @0x0
0x34fd…3503 lno = 0x1586 // 0x34ff @0x2
0x34fd…3503 at0004 = ╱9f╱ ENDPROC ╱ // 0x3501 @0x4
0x34fd…3503 at0005 = EOL // 0x3502 @0x5
0x34fd…3503 }
0x3503…350c c263 5520 PROC VUD
0x3503…350c LineComalBin {
0x3503…350c ptr = 0xc263 // 0x3503 @0x0
0x3503…350c lno = 0x1590 // 0x3505 @0x2
0x3503…350c at0004 = ╱9e╱ PROC ╱ // 0x3507 @0x4
0x3503…350c at0005 = ╱56╱V╱ // 0x3508 @0x5
0x3503…350c at0006 = ╱55╱U╱ // 0x3509 @0x6
0x3503…350c at0007 = ╱44╱D╱ // 0x350a @0x7
0x3503…350c at0008 = EOL // 0x350b @0x8
0x3503…350c }
0x350c…351c c273 5530 PRINT TAB(7);
0x350c…351c LineComalBin {
0x350c…351c ptr = 0xc273 // 0x350c @0x0
0x350c…351c lno = 0x159a // 0x350e @0x2
0x350c…351c at0004 = ╱92╱ PRINT ╱ // 0x3510 @0x4
0x350c…351c at0005 = ╱d2╱TAB╱ // 0x3511 @0x5
0x350c…351c at0006 = ╱ed╱(╱ // 0x3512 @0x6
0x350c…351c at0007 = ╱37╱7╱ // 0x3513 @0x7
0x350c…351c at0008 = ╱fe0000e003╱ // 0x3514 @0x8
0x350c…351c at000d = ╱ee╱)╱ // 0x3519 @0xd
0x350c…351c at000e = ╱eb╱;╱ // 0x351a @0xe
0x350c…351c at000f = EOL // 0x351b @0xf
0x350c…351c }
0x351c…3534 c28b 5540 PRINT USING "#######":VARENR;
0x351c…3534 LineComalBin {
0x351c…3534 ptr = 0xc28b // 0x351c @0x0
0x351c…3534 lno = 0x15a4 // 0x351e @0x2
0x351c…3534 at0004 = ╱92╱ PRINT ╱ // 0x3520 @0x4
0x351c…3534 at0005 = ╱b9╱ USING ╱ // 0x3521 @0x5
0x351c…3534 at0006 = ╱22╱"╱ // 0x3522 @0x6
0x351c…3534 at0007 = ╱23╱#╱ // 0x3523 @0x7
0x351c…3534 at0008 = ╱23╱#╱ // 0x3524 @0x8
0x351c…3534 at0009 = ╱23╱#╱ // 0x3525 @0x9
0x351c…3534 at000a = ╱23╱#╱ // 0x3526 @0xa
0x351c…3534 at000b = ╱23╱#╱ // 0x3527 @0xb
0x351c…3534 at000c = ╱23╱#╱ // 0x3528 @0xc
0x351c…3534 at000d = ╱23╱#╱ // 0x3529 @0xd
0x351c…3534 at000e = ╱22╱"╱ // 0x352a @0xe
0x351c…3534 at000f = ╱f0╱:╱ // 0x352b @0xf
0x351c…3534 at0010 = ╱56╱V╱ // 0x352c @0x10
0x351c…3534 at0011 = ╱41╱A╱ // 0x352d @0x11
0x351c…3534 at0012 = ╱52╱R╱ // 0x352e @0x12
0x351c…3534 at0013 = ╱45╱E╱ // 0x352f @0x13
0x351c…3534 at0014 = ╱4e╱N╱ // 0x3530 @0x14
0x351c…3534 at0015 = ╱52╱R╱ // 0x3531 @0x15
0x351c…3534 at0016 = ╱eb╱;╱ // 0x3532 @0x16
0x351c…3534 at0017 = EOL // 0x3533 @0x17
0x351c…3534 }
0x3534…3581 c2d8 5550 PRINT TAB(16);ANTAL$(5:4+V*(ANTAL$(10:G)<>"00"));TAB(24);
0x3534…3581 LineComalBin {
0x3534…3581 ptr = 0xc2d8 // 0x3534 @0x0
0x3534…3581 lno = 0x15ae // 0x3536 @0x2
0x3534…3581 at0004 = ╱92╱ PRINT ╱ // 0x3538 @0x4
0x3534…3581 at0005 = ╱d2╱TAB╱ // 0x3539 @0x5
0x3534…3581 at0006 = ╱ed╱(╱ // 0x353a @0x6
0x3534…3581 at0007 = ╱31╱1╱ // 0x353b @0x7
0x3534…3581 at0008 = ╱36╱6╱ // 0x353c @0x8
0x3534…3581 at0009 = ╱fe00008005╱ // 0x353d @0x9
0x3534…3581 at000e = ╱ee╱)╱ // 0x3542 @0xe
0x3534…3581 at000f = ╱eb╱;╱ // 0x3543 @0xf
0x3534…3581 at0010 = ╱41╱A╱ // 0x3544 @0x10
0x3534…3581 at0011 = ╱4e╱N╱ // 0x3545 @0x11
0x3534…3581 at0012 = ╱54╱T╱ // 0x3546 @0x12
0x3534…3581 at0013 = ╱41╱A╱ // 0x3547 @0x13
0x3534…3581 at0014 = ╱4c╱L╱ // 0x3548 @0x14
0x3534…3581 at0015 = ╱ef╱$╱ // 0x3549 @0x15
0x3534…3581 at0016 = ╱ed╱(╱ // 0x354a @0x16
0x3534…3581 at0017 = ╱35╱5╱ // 0x354b @0x17
0x3534…3581 at0018 = ╱fe0000a003╱ // 0x354c @0x18
0x3534…3581 at001d = ╱f0╱:╱ // 0x3551 @0x1d
0x3534…3581 at001e = ╱34╱4╱ // 0x3552 @0x1e
0x3534…3581 at001f = ╱fe00008003╱ // 0x3553 @0x1f
0x3534…3581 at0024 = ╱e2╱+╱ // 0x3558 @0x24
0x3534…3581 at0025 = ╱56╱V╱ // 0x3559 @0x25
0x3534…3581 at0026 = ╱e4╱*╱ // 0x355a @0x26
0x3534…3581 at0027 = ╱ed╱(╱ // 0x355b @0x27
0x3534…3581 at0028 = ╱41╱A╱ // 0x355c @0x28
0x3534…3581 at0029 = ╱4e╱N╱ // 0x355d @0x29
0x3534…3581 at002a = ╱54╱T╱ // 0x355e @0x2a
0x3534…3581 at002b = ╱41╱A╱ // 0x355f @0x2b
0x3534…3581 at002c = ╱4c╱L╱ // 0x3560 @0x2c
0x3534…3581 at002d = ╱ef╱$╱ // 0x3561 @0x2d
0x3534…3581 at002e = ╱ed╱(╱ // 0x3562 @0x2e
0x3534…3581 at002f = ╱31╱1╱ // 0x3563 @0x2f
0x3534…3581 at0030 = ╱30╱0╱ // 0x3564 @0x30
0x3534…3581 at0031 = ╱fe0000a004╱ // 0x3565 @0x31
0x3534…3581 at0036 = ╱f0╱:╱ // 0x356a @0x36
0x3534…3581 at0037 = ╱47╱G╱ // 0x356b @0x37
0x3534…3581 at0038 = ╱ee╱)╱ // 0x356c @0x38
0x3534…3581 at0039 = ╱e1╱<>╱ // 0x356d @0x39
0x3534…3581 at003a = ╱22╱"╱ // 0x356e @0x3a
0x3534…3581 at003b = ╱30╱0╱ // 0x356f @0x3b
0x3534…3581 at003c = ╱30╱0╱ // 0x3570 @0x3c
0x3534…3581 at003d = ╱22╱"╱ // 0x3571 @0x3d
0x3534…3581 at003e = ╱ee╱)╱ // 0x3572 @0x3e
0x3534…3581 at003f = ╱ee╱)╱ // 0x3573 @0x3f
0x3534…3581 at0040 = ╱eb╱;╱ // 0x3574 @0x40
0x3534…3581 at0041 = ╱d2╱TAB╱ // 0x3575 @0x41
0x3534…3581 at0042 = ╱ed╱(╱ // 0x3576 @0x42
0x3534…3581 at0043 = ╱32╱2╱ // 0x3577 @0x43
0x3534…3581 at0044 = ╱34╱4╱ // 0x3578 @0x44
0x3534…3581 at0045 = ╱fe0000c005╱ // 0x3579 @0x45
0x3534…3581 at004a = ╱ee╱)╱ // 0x357e @0x4a
0x3534…3581 at004b = ╱eb╱;╱ // 0x357f @0x4b
0x3534…3581 at004c = EOL // 0x3580 @0x4c
0x3534…3581 }
0x3581…35a7 c2fe 5560 PRINT VARTEKST$(E:25);TAB(51);
0x3581…35a7 LineComalBin {
0x3581…35a7 ptr = 0xc2fe // 0x3581 @0x0
0x3581…35a7 lno = 0x15b8 // 0x3583 @0x2
0x3581…35a7 at0004 = ╱92╱ PRINT ╱ // 0x3585 @0x4
0x3581…35a7 at0005 = ╱56╱V╱ // 0x3586 @0x5
0x3581…35a7 at0006 = ╱41╱A╱ // 0x3587 @0x6
0x3581…35a7 at0007 = ╱52╱R╱ // 0x3588 @0x7
0x3581…35a7 at0008 = ╱54╱T╱ // 0x3589 @0x8
0x3581…35a7 at0009 = ╱45╱E╱ // 0x358a @0x9
0x3581…35a7 at000a = ╱4b╱K╱ // 0x358b @0xa
0x3581…35a7 at000b = ╱53╱S╱ // 0x358c @0xb
0x3581…35a7 at000c = ╱54╱T╱ // 0x358d @0xc
0x3581…35a7 at000d = ╱ef╱$╱ // 0x358e @0xd
0x3581…35a7 at000e = ╱ed╱(╱ // 0x358f @0xe
0x3581…35a7 at000f = ╱45╱E╱ // 0x3590 @0xf
0x3581…35a7 at0010 = ╱f0╱:╱ // 0x3591 @0x10
0x3581…35a7 at0011 = ╱32╱2╱ // 0x3592 @0x11
0x3581…35a7 at0012 = ╱35╱5╱ // 0x3593 @0x12
0x3581…35a7 at0013 = ╱fe0000c805╱ // 0x3594 @0x13
0x3581…35a7 at0018 = ╱ee╱)╱ // 0x3599 @0x18
0x3581…35a7 at0019 = ╱eb╱;╱ // 0x359a @0x19
0x3581…35a7 at001a = ╱d2╱TAB╱ // 0x359b @0x1a
0x3581…35a7 at001b = ╱ed╱(╱ // 0x359c @0x1b
0x3581…35a7 at001c = ╱35╱5╱ // 0x359d @0x1c
0x3581…35a7 at001d = ╱31╱1╱ // 0x359e @0x1d
0x3581…35a7 at001e = ╱fe0000cc06╱ // 0x359f @0x1e
0x3581…35a7 at0023 = ╱ee╱)╱ // 0x35a4 @0x23
0x3581…35a7 at0024 = ╱eb╱;╱ // 0x35a5 @0x24
0x3581…35a7 at0025 = EOL // 0x35a6 @0x25
0x3581…35a7 }
0x35a7…35c4 c31b 5570 EXEC TUD(VARPRIS$,TAL4$,E,B)
0x35a7…35c4 LineComalBin {
0x35a7…35c4 ptr = 0xc31b // 0x35a7 @0x0
0x35a7…35c4 lno = 0x15c2 // 0x35a9 @0x2
0x35a7…35c4 at0004 = ╱9d╱ EXEC ╱ // 0x35ab @0x4
0x35a7…35c4 at0005 = ╱54╱T╱ // 0x35ac @0x5
0x35a7…35c4 at0006 = ╱55╱U╱ // 0x35ad @0x6
0x35a7…35c4 at0007 = ╱44╱D╱ // 0x35ae @0x7
0x35a7…35c4 at0008 = ╱ed╱(╱ // 0x35af @0x8
0x35a7…35c4 at0009 = ╱56╱V╱ // 0x35b0 @0x9
0x35a7…35c4 at000a = ╱41╱A╱ // 0x35b1 @0xa
0x35a7…35c4 at000b = ╱52╱R╱ // 0x35b2 @0xb
0x35a7…35c4 at000c = ╱50╱P╱ // 0x35b3 @0xc
0x35a7…35c4 at000d = ╱52╱R╱ // 0x35b4 @0xd
0x35a7…35c4 at000e = ╱49╱I╱ // 0x35b5 @0xe
0x35a7…35c4 at000f = ╱53╱S╱ // 0x35b6 @0xf
0x35a7…35c4 at0010 = ╱ef╱$╱ // 0x35b7 @0x10
0x35a7…35c4 at0011 = ╱ec╱,╱ // 0x35b8 @0x11
0x35a7…35c4 at0012 = ╱54╱T╱ // 0x35b9 @0x12
0x35a7…35c4 at0013 = ╱41╱A╱ // 0x35ba @0x13
0x35a7…35c4 at0014 = ╱4c╱L╱ // 0x35bb @0x14
0x35a7…35c4 at0015 = ╱34╱4╱ // 0x35bc @0x15
0x35a7…35c4 at0016 = ╱ef╱$╱ // 0x35bd @0x16
0x35a7…35c4 at0017 = ╱ec╱,╱ // 0x35be @0x17
0x35a7…35c4 at0018 = ╱45╱E╱ // 0x35bf @0x18
0x35a7…35c4 at0019 = ╱ec╱,╱ // 0x35c0 @0x19
0x35a7…35c4 at001a = ╱42╱B╱ // 0x35c1 @0x1a
0x35a7…35c4 at001b = ╱ee╱)╱ // 0x35c2 @0x1b
0x35a7…35c4 at001c = EOL // 0x35c3 @0x1c
0x35a7…35c4 }
0x35c4…35d5 c32c 5580 PRINT TAB(66);
0x35c4…35d5 LineComalBin {
0x35c4…35d5 ptr = 0xc32c // 0x35c4 @0x0
0x35c4…35d5 lno = 0x15cc // 0x35c6 @0x2
0x35c4…35d5 at0004 = ╱92╱ PRINT ╱ // 0x35c8 @0x4
0x35c4…35d5 at0005 = ╱d2╱TAB╱ // 0x35c9 @0x5
0x35c4…35d5 at0006 = ╱ed╱(╱ // 0x35ca @0x6
0x35c4…35d5 at0007 = ╱36╱6╱ // 0x35cb @0x7
0x35c4…35d5 at0008 = ╱36╱6╱ // 0x35cc @0x8
0x35c4…35d5 at0009 = ╱fe00008407╱ // 0x35cd @0x9
0x35c4…35d5 at000e = ╱ee╱)╱ // 0x35d2 @0xe
0x35c4…35d5 at000f = ╱eb╱;╱ // 0x35d3 @0xf
0x35c4…35d5 at0010 = EOL // 0x35d4 @0x10
0x35c4…35d5 }
0x35d5…35f9 c350 5590 EXEC CALC(G,VARPRIS$,ANTAL$,BELØB$)
0x35d5…35f9 LineComalBin {
0x35d5…35f9 ptr = 0xc350 // 0x35d5 @0x0
0x35d5…35f9 lno = 0x15d6 // 0x35d7 @0x2
0x35d5…35f9 at0004 = ╱9d╱ EXEC ╱ // 0x35d9 @0x4
0x35d5…35f9 at0005 = ╱43╱C╱ // 0x35da @0x5
0x35d5…35f9 at0006 = ╱41╱A╱ // 0x35db @0x6
0x35d5…35f9 at0007 = ╱4c╱L╱ // 0x35dc @0x7
0x35d5…35f9 at0008 = ╱43╱C╱ // 0x35dd @0x8
0x35d5…35f9 at0009 = ╱ed╱(╱ // 0x35de @0x9
0x35d5…35f9 at000a = ╱47╱G╱ // 0x35df @0xa
0x35d5…35f9 at000b = ╱ec╱,╱ // 0x35e0 @0xb
0x35d5…35f9 at000c = ╱56╱V╱ // 0x35e1 @0xc
0x35d5…35f9 at000d = ╱41╱A╱ // 0x35e2 @0xd
0x35d5…35f9 at000e = ╱52╱R╱ // 0x35e3 @0xe
0x35d5…35f9 at000f = ╱50╱P╱ // 0x35e4 @0xf
0x35d5…35f9 at0010 = ╱52╱R╱ // 0x35e5 @0x10
0x35d5…35f9 at0011 = ╱49╱I╱ // 0x35e6 @0x11
0x35d5…35f9 at0012 = ╱53╱S╱ // 0x35e7 @0x12
0x35d5…35f9 at0013 = ╱ef╱$╱ // 0x35e8 @0x13
0x35d5…35f9 at0014 = ╱ec╱,╱ // 0x35e9 @0x14
0x35d5…35f9 at0015 = ╱41╱A╱ // 0x35ea @0x15
0x35d5…35f9 at0016 = ╱4e╱N╱ // 0x35eb @0x16
0x35d5…35f9 at0017 = ╱54╱T╱ // 0x35ec @0x17
0x35d5…35f9 at0018 = ╱41╱A╱ // 0x35ed @0x18
0x35d5…35f9 at0019 = ╱4c╱L╱ // 0x35ee @0x19
0x35d5…35f9 at001a = ╱ef╱$╱ // 0x35ef @0x1a
0x35d5…35f9 at001b = ╱ec╱,╱ // 0x35f0 @0x1b
0x35d5…35f9 at001c = ╱42╱B╱ // 0x35f1 @0x1c
0x35d5…35f9 at001d = ╱45╱E╱ // 0x35f2 @0x1d
0x35d5…35f9 at001e = ╱4c╱L╱ // 0x35f3 @0x1e
0x35d5…35f9 at001f = ╱5c╱Ø╱ // 0x35f4 @0x1f
0x35d5…35f9 at0020 = ╱42╱B╱ // 0x35f5 @0x20
0x35d5…35f9 at0021 = ╱ef╱$╱ // 0x35f6 @0x21
0x35d5…35f9 at0022 = ╱ee╱)╱ // 0x35f7 @0x22
0x35d5…35f9 at0023 = EOL // 0x35f8 @0x23
0x35d5…35f9 }
0x35f9…3614 c36b 5600 EXEC TUD(BELØB$,TAL4$,E,B)
0x35f9…3614 LineComalBin {
0x35f9…3614 ptr = 0xc36b // 0x35f9 @0x0
0x35f9…3614 lno = 0x15e0 // 0x35fb @0x2
0x35f9…3614 at0004 = ╱9d╱ EXEC ╱ // 0x35fd @0x4
0x35f9…3614 at0005 = ╱54╱T╱ // 0x35fe @0x5
0x35f9…3614 at0006 = ╱55╱U╱ // 0x35ff @0x6
0x35f9…3614 at0007 = ╱44╱D╱ // 0x3600 @0x7
0x35f9…3614 at0008 = ╱ed╱(╱ // 0x3601 @0x8
0x35f9…3614 at0009 = ╱42╱B╱ // 0x3602 @0x9
0x35f9…3614 at000a = ╱45╱E╱ // 0x3603 @0xa
0x35f9…3614 at000b = ╱4c╱L╱ // 0x3604 @0xb
0x35f9…3614 at000c = ╱5c╱Ø╱ // 0x3605 @0xc
0x35f9…3614 at000d = ╱42╱B╱ // 0x3606 @0xd
0x35f9…3614 at000e = ╱ef╱$╱ // 0x3607 @0xe
0x35f9…3614 at000f = ╱ec╱,╱ // 0x3608 @0xf
0x35f9…3614 at0010 = ╱54╱T╱ // 0x3609 @0x10
0x35f9…3614 at0011 = ╱41╱A╱ // 0x360a @0x11
0x35f9…3614 at0012 = ╱4c╱L╱ // 0x360b @0x12
0x35f9…3614 at0013 = ╱34╱4╱ // 0x360c @0x13
0x35f9…3614 at0014 = ╱ef╱$╱ // 0x360d @0x14
0x35f9…3614 at0015 = ╱ec╱,╱ // 0x360e @0x15
0x35f9…3614 at0016 = ╱45╱E╱ // 0x360f @0x16
0x35f9…3614 at0017 = ╱ec╱,╱ // 0x3610 @0x17
0x35f9…3614 at0018 = ╱42╱B╱ // 0x3611 @0x18
0x35f9…3614 at0019 = ╱ee╱)╱ // 0x3612 @0x19
0x35f9…3614 at001a = EOL // 0x3613 @0x1a
0x35f9…3614 }
0x3614…3652 c3a9 5610 GBELØB$=BELØB$;ENTNR=(ORDRENR DIV 100)*100+DUNDKONT
0x3614…3652 LineComalBin {
0x3614…3652 ptr = 0xc3a9 // 0x3614 @0x0
0x3614…3652 lno = 0x15ea // 0x3616 @0x2
0x3614…3652 at0004 = ╱47╱G╱ // 0x3618 @0x4
0x3614…3652 at0005 = ╱42╱B╱ // 0x3619 @0x5
0x3614…3652 at0006 = ╱45╱E╱ // 0x361a @0x6
0x3614…3652 at0007 = ╱4c╱L╱ // 0x361b @0x7
0x3614…3652 at0008 = ╱5c╱Ø╱ // 0x361c @0x8
0x3614…3652 at0009 = ╱42╱B╱ // 0x361d @0x9
0x3614…3652 at000a = ╱ef╱$╱ // 0x361e @0xa
0x3614…3652 at000b = ╱dc╱=╱ // 0x361f @0xb
0x3614…3652 at000c = ╱42╱B╱ // 0x3620 @0xc
0x3614…3652 at000d = ╱45╱E╱ // 0x3621 @0xd
0x3614…3652 at000e = ╱4c╱L╱ // 0x3622 @0xe
0x3614…3652 at000f = ╱5c╱Ø╱ // 0x3623 @0xf
0x3614…3652 at0010 = ╱42╱B╱ // 0x3624 @0x10
0x3614…3652 at0011 = ╱ef╱$╱ // 0x3625 @0x11
0x3614…3652 at0012 = ╱eb╱;╱ // 0x3626 @0x12
0x3614…3652 at0013 = ╱45╱E╱ // 0x3627 @0x13
0x3614…3652 at0014 = ╱4e╱N╱ // 0x3628 @0x14
0x3614…3652 at0015 = ╱54╱T╱ // 0x3629 @0x15
0x3614…3652 at0016 = ╱4e╱N╱ // 0x362a @0x16
0x3614…3652 at0017 = ╱52╱R╱ // 0x362b @0x17
0x3614…3652 at0018 = ╱dc╱=╱ // 0x362c @0x18
0x3614…3652 at0019 = ╱ed╱(╱ // 0x362d @0x19
0x3614…3652 at001a = ╱4f╱O╱ // 0x362e @0x1a
0x3614…3652 at001b = ╱52╱R╱ // 0x362f @0x1b
0x3614…3652 at001c = ╱44╱D╱ // 0x3630 @0x1c
0x3614…3652 at001d = ╱52╱R╱ // 0x3631 @0x1d
0x3614…3652 at001e = ╱45╱E╱ // 0x3632 @0x1e
0x3614…3652 at001f = ╱4e╱N╱ // 0x3633 @0x1f
0x3614…3652 at0020 = ╱52╱R╱ // 0x3634 @0x20
0x3614…3652 at0021 = ╱e7╱ DIV ╱ // 0x3635 @0x21
0x3614…3652 at0022 = ╱31╱1╱ // 0x3636 @0x22
0x3614…3652 at0023 = ╱30╱0╱ // 0x3637 @0x23
0x3614…3652 at0024 = ╱30╱0╱ // 0x3638 @0x24
0x3614…3652 at0025 = ╱fe0000c807╱ // 0x3639 @0x25
0x3614…3652 at002a = ╱ee╱)╱ // 0x363e @0x2a
0x3614…3652 at002b = ╱e4╱*╱ // 0x363f @0x2b
0x3614…3652 at002c = ╱31╱1╱ // 0x3640 @0x2c
0x3614…3652 at002d = ╱30╱0╱ // 0x3641 @0x2d
0x3614…3652 at002e = ╱30╱0╱ // 0x3642 @0x2e
0x3614…3652 at002f = ╱fe0000c807╱ // 0x3643 @0x2f
0x3614…3652 at0034 = ╱e2╱+╱ // 0x3648 @0x34
0x3614…3652 at0035 = ╱44╱D╱ // 0x3649 @0x35
0x3614…3652 at0036 = ╱55╱U╱ // 0x364a @0x36
0x3614…3652 at0037 = ╱4e╱N╱ // 0x364b @0x37
0x3614…3652 at0038 = ╱44╱D╱ // 0x364c @0x38
0x3614…3652 at0039 = ╱4b╱K╱ // 0x364d @0x39
0x3614…3652 at003a = ╱4f╱O╱ // 0x364e @0x3a
0x3614…3652 at003b = ╱4e╱N╱ // 0x364f @0x3b
0x3614…3652 at003c = ╱54╱T╱ // 0x3650 @0x3c
0x3614…3652 at003d = EOL // 0x3651 @0x3d
0x3614…3652 }
0x3652…3674 c3cb 5620 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$)
0x3652…3674 LineComalBin {
0x3652…3674 ptr = 0xc3cb // 0x3652 @0x0
0x3652…3674 lno = 0x15f4 // 0x3654 @0x2
0x3652…3674 at0004 = ╱9d╱ EXEC ╱ // 0x3656 @0x4
0x3652…3674 at0005 = ╱43╱C╱ // 0x3657 @0x5
0x3652…3674 at0006 = ╱41╱A╱ // 0x3658 @0x6
0x3652…3674 at0007 = ╱4c╱L╱ // 0x3659 @0x7
0x3652…3674 at0008 = ╱43╱C╱ // 0x365a @0x8
0x3652…3674 at0009 = ╱ed╱(╱ // 0x365b @0x9
0x3652…3674 at000a = ╱42╱B╱ // 0x365c @0xa
0x3652…3674 at000b = ╱ec╱,╱ // 0x365d @0xb
0x3652…3674 at000c = ╱54╱T╱ // 0x365e @0xc
0x3652…3674 at000d = ╱4f╱O╱ // 0x365f @0xd
0x3652…3674 at000e = ╱54╱T╱ // 0x3660 @0xe
0x3652…3674 at000f = ╱41╱A╱ // 0x3661 @0xf
0x3652…3674 at0010 = ╱4c╱L╱ // 0x3662 @0x10
0x3652…3674 at0011 = ╱ef╱$╱ // 0x3663 @0x11
0x3652…3674 at0012 = ╱ec╱,╱ // 0x3664 @0x12
0x3652…3674 at0013 = ╱42╱B╱ // 0x3665 @0x13
0x3652…3674 at0014 = ╱45╱E╱ // 0x3666 @0x14
0x3652…3674 at0015 = ╱4c╱L╱ // 0x3667 @0x15
0x3652…3674 at0016 = ╱5c╱Ø╱ // 0x3668 @0x16
0x3652…3674 at0017 = ╱42╱B╱ // 0x3669 @0x17
0x3652…3674 at0018 = ╱ef╱$╱ // 0x366a @0x18
0x3652…3674 at0019 = ╱ec╱,╱ // 0x366b @0x19
0x3652…3674 at001a = ╱54╱T╱ // 0x366c @0x1a
0x3652…3674 at001b = ╱4f╱O╱ // 0x366d @0x1b
0x3652…3674 at001c = ╱54╱T╱ // 0x366e @0x1c
0x3652…3674 at001d = ╱41╱A╱ // 0x366f @0x1d
0x3652…3674 at001e = ╱4c╱L╱ // 0x3670 @0x1e
0x3652…3674 at001f = ╱ef╱$╱ // 0x3671 @0x1f
0x3652…3674 at0020 = ╱ee╱)╱ // 0x3672 @0x20
0x3652…3674 at0021 = EOL // 0x3673 @0x21
0x3652…3674 }
0x3674…3689 c3e0 5630 IF GEN=B THEN EXEC VJOURNAL
0x3674…3689 LineComalBin {
0x3674…3689 ptr = 0xc3e0 // 0x3674 @0x0
0x3674…3689 lno = 0x15fe // 0x3676 @0x2
0x3674…3689 at0004 = ╱82╱ IF ╱ // 0x3678 @0x4
0x3674…3689 at0005 = ╱47╱G╱ // 0x3679 @0x5
0x3674…3689 at0006 = ╱45╱E╱ // 0x367a @0x6
0x3674…3689 at0007 = ╱4e╱N╱ // 0x367b @0x7
0x3674…3689 at0008 = ╱dc╱=╱ // 0x367c @0x8
0x3674…3689 at0009 = ╱42╱B╱ // 0x367d @0x9
0x3674…3689 at000a = ╱b6╱ THEN ╱ // 0x367e @0xa
0x3674…3689 at000b = ╱9d╱ EXEC ╱ // 0x367f @0xb
0x3674…3689 at000c = ╱56╱V╱ // 0x3680 @0xc
0x3674…3689 at000d = ╱4a╱J╱ // 0x3681 @0xd
0x3674…3689 at000e = ╱4f╱O╱ // 0x3682 @0xe
0x3674…3689 at000f = ╱55╱U╱ // 0x3683 @0xf
0x3674…3689 at0010 = ╱52╱R╱ // 0x3684 @0x10
0x3674…3689 at0011 = ╱4e╱N╱ // 0x3685 @0x11
0x3674…3689 at0012 = ╱41╱A╱ // 0x3686 @0x12
0x3674…3689 at0013 = ╱4c╱L╱ // 0x3687 @0x13
0x3674…3689 at0014 = EOL // 0x3688 @0x14
0x3674…3689 }
0x3689…368f c3e6 5640 ENDPROC
0x3689…368f LineComalBin {
0x3689…368f ptr = 0xc3e6 // 0x3689 @0x0
0x3689…368f lno = 0x1608 // 0x368b @0x2
0x3689…368f at0004 = ╱9f╱ ENDPROC ╱ // 0x368d @0x4
0x3689…368f at0005 = EOL // 0x368e @0x5
0x3689…368f }
0x368f…369d c3f4 5650 PROC VJOURNAL
0x368f…369d LineComalBin {
0x368f…369d ptr = 0xc3f4 // 0x368f @0x0
0x368f…369d lno = 0x1612 // 0x3691 @0x2
0x368f…369d at0004 = ╱9e╱ PROC ╱ // 0x3693 @0x4
0x368f…369d at0005 = ╱56╱V╱ // 0x3694 @0x5
0x368f…369d at0006 = ╱4a╱J╱ // 0x3695 @0x6
0x368f…369d at0007 = ╱4f╱O╱ // 0x3696 @0x7
0x368f…369d at0008 = ╱55╱U╱ // 0x3697 @0x8
0x368f…369d at0009 = ╱52╱R╱ // 0x3698 @0x9
0x368f…369d at000a = ╱4e╱N╱ // 0x3699 @0xa
0x368f…369d at000b = ╱41╱A╱ // 0x369a @0xb
0x368f…369d at000c = ╱4c╱L╱ // 0x369b @0xc
0x368f…369d at000d = EOL // 0x369c @0xd
0x368f…369d }
0x369d…36a9 c400 5660 IF GEN=B THEN
0x369d…36a9 LineComalBin {
0x369d…36a9 ptr = 0xc400 // 0x369d @0x0
0x369d…36a9 lno = 0x161c // 0x369f @0x2
0x369d…36a9 at0004 = ╱9c╱ IF ╱ // 0x36a1 @0x4
0x369d…36a9 at0005 = ╱47╱G╱ // 0x36a2 @0x5
0x369d…36a9 at0006 = ╱45╱E╱ // 0x36a3 @0x6
0x369d…36a9 at0007 = ╱4e╱N╱ // 0x36a4 @0x7
0x369d…36a9 at0008 = ╱dc╱=╱ // 0x36a5 @0x8
0x369d…36a9 at0009 = ╱42╱B╱ // 0x36a6 @0x9
0x369d…36a9 at000a = ╱b6╱ THEN ╱ // 0x36a7 @0xa
0x369d…36a9 at000b = EOL // 0x36a8 @0xb
0x369d…36a9 }
0x36a9…36b8 c40f 5670 EJFUNDET=B
0x36a9…36b8 LineComalBin {
0x36a9…36b8 ptr = 0xc40f // 0x36a9 @0x0
0x36a9…36b8 lno = 0x1626 // 0x36ab @0x2
0x36a9…36b8 at0004 = ╱45╱E╱ // 0x36ad @0x4
0x36a9…36b8 at0005 = ╱4a╱J╱ // 0x36ae @0x5
0x36a9…36b8 at0006 = ╱46╱F╱ // 0x36af @0x6
0x36a9…36b8 at0007 = ╱55╱U╱ // 0x36b0 @0x7
0x36a9…36b8 at0008 = ╱4e╱N╱ // 0x36b1 @0x8
0x36a9…36b8 at0009 = ╱44╱D╱ // 0x36b2 @0x9
0x36a9…36b8 at000a = ╱45╱E╱ // 0x36b3 @0xa
0x36a9…36b8 at000b = ╱54╱T╱ // 0x36b4 @0xb
0x36a9…36b8 at000c = ╱dc╱=╱ // 0x36b5 @0xc
0x36a9…36b8 at000d = ╱42╱B╱ // 0x36b6 @0xd
0x36a9…36b8 at000e = EOL // 0x36b7 @0xe
0x36a9…36b8 }
0x36b8…36c9 c420 5680 FOR M=E TO AVKONTI
0x36b8…36c9 LineComalBin {
0x36b8…36c9 ptr = 0xc420 // 0x36b8 @0x0
0x36b8…36c9 lno = 0x1630 // 0x36ba @0x2
0x36b8…36c9 at0004 = ╱83╱ FOR ╱ // 0x36bc @0x4
0x36b8…36c9 at0005 = ╱4d╱M╱ // 0x36bd @0x5
0x36b8…36c9 at0006 = ╱dc╱=╱ // 0x36be @0x6
0x36b8…36c9 at0007 = ╱45╱E╱ // 0x36bf @0x7
0x36b8…36c9 at0008 = ╱b7╱ TO ╱ // 0x36c0 @0x8
0x36b8…36c9 at0009 = ╱41╱A╱ // 0x36c1 @0x9
0x36b8…36c9 at000a = ╱56╱V╱ // 0x36c2 @0xa
0x36b8…36c9 at000b = ╱4b╱K╱ // 0x36c3 @0xb
0x36b8…36c9 at000c = ╱4f╱O╱ // 0x36c4 @0xc
0x36b8…36c9 at000d = ╱4e╱N╱ // 0x36c5 @0xd
0x36b8…36c9 at000e = ╱54╱T╱ // 0x36c6 @0xe
0x36b8…36c9 at000f = ╱49╱I╱ // 0x36c7 @0xf
0x36b8…36c9 at0010 = EOL // 0x36c8 @0x10
0x36b8…36c9 }
0x36c9…36f6 c44d 5690 IF VJOURARR(M)=VARKONT AND VUJOURARR(M)=ENTNR THEN
0x36c9…36f6 LineComalBin {
0x36c9…36f6 ptr = 0xc44d // 0x36c9 @0x0
0x36c9…36f6 lno = 0x163a // 0x36cb @0x2
0x36c9…36f6 at0004 = ╱9c╱ IF ╱ // 0x36cd @0x4
0x36c9…36f6 at0005 = ╱56╱V╱ // 0x36ce @0x5
0x36c9…36f6 at0006 = ╱4a╱J╱ // 0x36cf @0x6
0x36c9…36f6 at0007 = ╱4f╱O╱ // 0x36d0 @0x7
0x36c9…36f6 at0008 = ╱55╱U╱ // 0x36d1 @0x8
0x36c9…36f6 at0009 = ╱52╱R╱ // 0x36d2 @0x9
0x36c9…36f6 at000a = ╱41╱A╱ // 0x36d3 @0xa
0x36c9…36f6 at000b = ╱52╱R╱ // 0x36d4 @0xb
0x36c9…36f6 at000c = ╱52╱R╱ // 0x36d5 @0xc
0x36c9…36f6 at000d = ╱ed╱(╱ // 0x36d6 @0xd
0x36c9…36f6 at000e = ╱4d╱M╱ // 0x36d7 @0xe
0x36c9…36f6 at000f = ╱ee╱)╱ // 0x36d8 @0xf
0x36c9…36f6 at0010 = ╱dc╱=╱ // 0x36d9 @0x10
0x36c9…36f6 at0011 = ╱56╱V╱ // 0x36da @0x11
0x36c9…36f6 at0012 = ╱41╱A╱ // 0x36db @0x12
0x36c9…36f6 at0013 = ╱52╱R╱ // 0x36dc @0x13
0x36c9…36f6 at0014 = ╱4b╱K╱ // 0x36dd @0x14
0x36c9…36f6 at0015 = ╱4f╱O╱ // 0x36de @0x15
0x36c9…36f6 at0016 = ╱4e╱N╱ // 0x36df @0x16
0x36c9…36f6 at0017 = ╱54╱T╱ // 0x36e0 @0x17
0x36c9…36f6 at0018 = ╱da╱ AND ╱ // 0x36e1 @0x18
0x36c9…36f6 at0019 = ╱56╱V╱ // 0x36e2 @0x19
0x36c9…36f6 at001a = ╱55╱U╱ // 0x36e3 @0x1a
0x36c9…36f6 at001b = ╱4a╱J╱ // 0x36e4 @0x1b
0x36c9…36f6 at001c = ╱4f╱O╱ // 0x36e5 @0x1c
0x36c9…36f6 at001d = ╱55╱U╱ // 0x36e6 @0x1d
0x36c9…36f6 at001e = ╱52╱R╱ // 0x36e7 @0x1e
0x36c9…36f6 at001f = ╱41╱A╱ // 0x36e8 @0x1f
0x36c9…36f6 at0020 = ╱52╱R╱ // 0x36e9 @0x20
0x36c9…36f6 at0021 = ╱52╱R╱ // 0x36ea @0x21
0x36c9…36f6 at0022 = ╱ed╱(╱ // 0x36eb @0x22
0x36c9…36f6 at0023 = ╱4d╱M╱ // 0x36ec @0x23
0x36c9…36f6 at0024 = ╱ee╱)╱ // 0x36ed @0x24
0x36c9…36f6 at0025 = ╱dc╱=╱ // 0x36ee @0x25
0x36c9…36f6 at0026 = ╱45╱E╱ // 0x36ef @0x26
0x36c9…36f6 at0027 = ╱4e╱N╱ // 0x36f0 @0x27
0x36c9…36f6 at0028 = ╱54╱T╱ // 0x36f1 @0x28
0x36c9…36f6 at0029 = ╱4e╱N╱ // 0x36f2 @0x29
0x36c9…36f6 at002a = ╱52╱R╱ // 0x36f3 @0x2a
0x36c9…36f6 at002b = ╱b6╱ THEN ╱ // 0x36f4 @0x2b
0x36c9…36f6 at002c = EOL // 0x36f5 @0x2c
0x36c9…36f6 }
0x36f6…3708 c45f 5700 IF FAKKRE$="F" THEN
0x36f6…3708 LineComalBin {
0x36f6…3708 ptr = 0xc45f // 0x36f6 @0x0
0x36f6…3708 lno = 0x1644 // 0x36f8 @0x2
0x36f6…3708 at0004 = ╱9c╱ IF ╱ // 0x36fa @0x4
0x36f6…3708 at0005 = ╱46╱F╱ // 0x36fb @0x5
0x36f6…3708 at0006 = ╱41╱A╱ // 0x36fc @0x6
0x36f6…3708 at0007 = ╱4b╱K╱ // 0x36fd @0x7
0x36f6…3708 at0008 = ╱4b╱K╱ // 0x36fe @0x8
0x36f6…3708 at0009 = ╱52╱R╱ // 0x36ff @0x9
0x36f6…3708 at000a = ╱45╱E╱ // 0x3700 @0xa
0x36f6…3708 at000b = ╱ef╱$╱ // 0x3701 @0xb
0x36f6…3708 at000c = ╱dc╱=╱ // 0x3702 @0xc
0x36f6…3708 at000d = ╱22╱"╱ // 0x3703 @0xd
0x36f6…3708 at000e = ╱46╱F╱ // 0x3704 @0xe
0x36f6…3708 at000f = ╱22╱"╱ // 0x3705 @0xf
0x36f6…3708 at0010 = ╱b6╱ THEN ╱ // 0x3706 @0x10
0x36f6…3708 at0011 = EOL // 0x3707 @0x11
0x36f6…3708 }
0x3708…3736 c48d 5710 EXEC CALC(E,VBJOUARR$(M),BELØB$,VBJOUARR$(M))
0x3708…3736 LineComalBin {
0x3708…3736 ptr = 0xc48d // 0x3708 @0x0
0x3708…3736 lno = 0x164e // 0x370a @0x2
0x3708…3736 at0004 = ╱9d╱ EXEC ╱ // 0x370c @0x4
0x3708…3736 at0005 = ╱43╱C╱ // 0x370d @0x5
0x3708…3736 at0006 = ╱41╱A╱ // 0x370e @0x6
0x3708…3736 at0007 = ╱4c╱L╱ // 0x370f @0x7
0x3708…3736 at0008 = ╱43╱C╱ // 0x3710 @0x8
0x3708…3736 at0009 = ╱ed╱(╱ // 0x3711 @0x9
0x3708…3736 at000a = ╱45╱E╱ // 0x3712 @0xa
0x3708…3736 at000b = ╱ec╱,╱ // 0x3713 @0xb
0x3708…3736 at000c = ╱56╱V╱ // 0x3714 @0xc
0x3708…3736 at000d = ╱42╱B╱ // 0x3715 @0xd
0x3708…3736 at000e = ╱4a╱J╱ // 0x3716 @0xe
0x3708…3736 at000f = ╱4f╱O╱ // 0x3717 @0xf
0x3708…3736 at0010 = ╱55╱U╱ // 0x3718 @0x10
0x3708…3736 at0011 = ╱41╱A╱ // 0x3719 @0x11
0x3708…3736 at0012 = ╱52╱R╱ // 0x371a @0x12
0x3708…3736 at0013 = ╱52╱R╱ // 0x371b @0x13
0x3708…3736 at0014 = ╱ef╱$╱ // 0x371c @0x14
0x3708…3736 at0015 = ╱ed╱(╱ // 0x371d @0x15
0x3708…3736 at0016 = ╱4d╱M╱ // 0x371e @0x16
0x3708…3736 at0017 = ╱ee╱)╱ // 0x371f @0x17
0x3708…3736 at0018 = ╱ec╱,╱ // 0x3720 @0x18
0x3708…3736 at0019 = ╱42╱B╱ // 0x3721 @0x19
0x3708…3736 at001a = ╱45╱E╱ // 0x3722 @0x1a
0x3708…3736 at001b = ╱4c╱L╱ // 0x3723 @0x1b
0x3708…3736 at001c = ╱5c╱Ø╱ // 0x3724 @0x1c
0x3708…3736 at001d = ╱42╱B╱ // 0x3725 @0x1d
0x3708…3736 at001e = ╱ef╱$╱ // 0x3726 @0x1e
0x3708…3736 at001f = ╱ec╱,╱ // 0x3727 @0x1f
0x3708…3736 at0020 = ╱56╱V╱ // 0x3728 @0x20
0x3708…3736 at0021 = ╱42╱B╱ // 0x3729 @0x21
0x3708…3736 at0022 = ╱4a╱J╱ // 0x372a @0x22
0x3708…3736 at0023 = ╱4f╱O╱ // 0x372b @0x23
0x3708…3736 at0024 = ╱55╱U╱ // 0x372c @0x24
0x3708…3736 at0025 = ╱41╱A╱ // 0x372d @0x25
0x3708…3736 at0026 = ╱52╱R╱ // 0x372e @0x26
0x3708…3736 at0027 = ╱52╱R╱ // 0x372f @0x27
0x3708…3736 at0028 = ╱ef╱$╱ // 0x3730 @0x28
0x3708…3736 at0029 = ╱ed╱(╱ // 0x3731 @0x29
0x3708…3736 at002a = ╱4d╱M╱ // 0x3732 @0x2a
0x3708…3736 at002b = ╱ee╱)╱ // 0x3733 @0x2b
0x3708…3736 at002c = ╱ee╱)╱ // 0x3734 @0x2c
0x3708…3736 at002d = EOL // 0x3735 @0x2d
0x3708…3736 }
0x3736…373c c493 5720 ELSE
0x3736…373c LineComalBin {
0x3736…373c ptr = 0xc493 // 0x3736 @0x0
0x3736…373c lno = 0x1658 // 0x3738 @0x2
0x3736…373c at0004 = ╱9a╱ ELSE ╱ // 0x373a @0x4
0x3736…373c at0005 = EOL // 0x373b @0x5
0x3736…373c }
0x373c…376a c4c1 5730 EXEC CALC(B,VBJOUARR$(M),BELØB$,VBJOUARR$(M))
0x373c…376a LineComalBin {
0x373c…376a ptr = 0xc4c1 // 0x373c @0x0
0x373c…376a lno = 0x1662 // 0x373e @0x2
0x373c…376a at0004 = ╱9d╱ EXEC ╱ // 0x3740 @0x4
0x373c…376a at0005 = ╱43╱C╱ // 0x3741 @0x5
0x373c…376a at0006 = ╱41╱A╱ // 0x3742 @0x6
0x373c…376a at0007 = ╱4c╱L╱ // 0x3743 @0x7
0x373c…376a at0008 = ╱43╱C╱ // 0x3744 @0x8
0x373c…376a at0009 = ╱ed╱(╱ // 0x3745 @0x9
0x373c…376a at000a = ╱42╱B╱ // 0x3746 @0xa
0x373c…376a at000b = ╱ec╱,╱ // 0x3747 @0xb
0x373c…376a at000c = ╱56╱V╱ // 0x3748 @0xc
0x373c…376a at000d = ╱42╱B╱ // 0x3749 @0xd
0x373c…376a at000e = ╱4a╱J╱ // 0x374a @0xe
0x373c…376a at000f = ╱4f╱O╱ // 0x374b @0xf
0x373c…376a at0010 = ╱55╱U╱ // 0x374c @0x10
0x373c…376a at0011 = ╱41╱A╱ // 0x374d @0x11
0x373c…376a at0012 = ╱52╱R╱ // 0x374e @0x12
0x373c…376a at0013 = ╱52╱R╱ // 0x374f @0x13
0x373c…376a at0014 = ╱ef╱$╱ // 0x3750 @0x14
0x373c…376a at0015 = ╱ed╱(╱ // 0x3751 @0x15
0x373c…376a at0016 = ╱4d╱M╱ // 0x3752 @0x16
0x373c…376a at0017 = ╱ee╱)╱ // 0x3753 @0x17
0x373c…376a at0018 = ╱ec╱,╱ // 0x3754 @0x18
0x373c…376a at0019 = ╱42╱B╱ // 0x3755 @0x19
0x373c…376a at001a = ╱45╱E╱ // 0x3756 @0x1a
0x373c…376a at001b = ╱4c╱L╱ // 0x3757 @0x1b
0x373c…376a at001c = ╱5c╱Ø╱ // 0x3758 @0x1c
0x373c…376a at001d = ╱42╱B╱ // 0x3759 @0x1d
0x373c…376a at001e = ╱ef╱$╱ // 0x375a @0x1e
0x373c…376a at001f = ╱ec╱,╱ // 0x375b @0x1f
0x373c…376a at0020 = ╱56╱V╱ // 0x375c @0x20
0x373c…376a at0021 = ╱42╱B╱ // 0x375d @0x21
0x373c…376a at0022 = ╱4a╱J╱ // 0x375e @0x22
0x373c…376a at0023 = ╱4f╱O╱ // 0x375f @0x23
0x373c…376a at0024 = ╱55╱U╱ // 0x3760 @0x24
0x373c…376a at0025 = ╱41╱A╱ // 0x3761 @0x25
0x373c…376a at0026 = ╱52╱R╱ // 0x3762 @0x26
0x373c…376a at0027 = ╱52╱R╱ // 0x3763 @0x27
0x373c…376a at0028 = ╱ef╱$╱ // 0x3764 @0x28
0x373c…376a at0029 = ╱ed╱(╱ // 0x3765 @0x29
0x373c…376a at002a = ╱4d╱M╱ // 0x3766 @0x2a
0x373c…376a at002b = ╱ee╱)╱ // 0x3767 @0x2b
0x373c…376a at002c = ╱ee╱)╱ // 0x3768 @0x2c
0x373c…376a at002d = EOL // 0x3769 @0x2d
0x373c…376a }
0x376a…3770 c4c7 5740 ENDIF
0x376a…3770 LineComalBin {
0x376a…3770 ptr = 0xc4c7 // 0x376a @0x0
0x376a…3770 lno = 0x166c // 0x376c @0x2
0x376a…3770 at0004 = ╱9b╱ ENDIF ╱ // 0x376e @0x4
0x376a…3770 at0005 = EOL // 0x376f @0x5
0x376a…3770 }
0x3770…3789 c4e0 5750 M=AVKONTI;EJFUNDET=E
0x3770…3789 LineComalBin {
0x3770…3789 ptr = 0xc4e0 // 0x3770 @0x0
0x3770…3789 lno = 0x1676 // 0x3772 @0x2
0x3770…3789 at0004 = ╱4d╱M╱ // 0x3774 @0x4
0x3770…3789 at0005 = ╱dc╱=╱ // 0x3775 @0x5
0x3770…3789 at0006 = ╱41╱A╱ // 0x3776 @0x6
0x3770…3789 at0007 = ╱56╱V╱ // 0x3777 @0x7
0x3770…3789 at0008 = ╱4b╱K╱ // 0x3778 @0x8
0x3770…3789 at0009 = ╱4f╱O╱ // 0x3779 @0x9
0x3770…3789 at000a = ╱4e╱N╱ // 0x377a @0xa
0x3770…3789 at000b = ╱54╱T╱ // 0x377b @0xb
0x3770…3789 at000c = ╱49╱I╱ // 0x377c @0xc
0x3770…3789 at000d = ╱eb╱;╱ // 0x377d @0xd
0x3770…3789 at000e = ╱45╱E╱ // 0x377e @0xe
0x3770…3789 at000f = ╱4a╱J╱ // 0x377f @0xf
0x3770…3789 at0010 = ╱46╱F╱ // 0x3780 @0x10
0x3770…3789 at0011 = ╱55╱U╱ // 0x3781 @0x11
0x3770…3789 at0012 = ╱4e╱N╱ // 0x3782 @0x12
0x3770…3789 at0013 = ╱44╱D╱ // 0x3783 @0x13
0x3770…3789 at0014 = ╱45╱E╱ // 0x3784 @0x14
0x3770…3789 at0015 = ╱54╱T╱ // 0x3785 @0x15
0x3770…3789 at0016 = ╱dc╱=╱ // 0x3786 @0x16
0x3770…3789 at0017 = ╱45╱E╱ // 0x3787 @0x17
0x3770…3789 at0018 = EOL // 0x3788 @0x18
0x3770…3789 }
0x3789…378f c4e6 5760 ENDIF
0x3789…378f LineComalBin {
0x3789…378f ptr = 0xc4e6 // 0x3789 @0x0
0x3789…378f lno = 0x1680 // 0x378b @0x2
0x3789…378f at0004 = ╱9b╱ ENDIF ╱ // 0x378d @0x4
0x3789…378f at0005 = EOL // 0x378e @0x5
0x3789…378f }
0x378f…3796 c4ed 5770 NEXT M
0x378f…3796 LineComalBin {
0x378f…3796 ptr = 0xc4ed // 0x378f @0x0
0x378f…3796 lno = 0x168a // 0x3791 @0x2
0x378f…3796 at0004 = ╱84╱ NEXT ╱ // 0x3793 @0x4
0x378f…3796 at0005 = ╱4d╱M╱ // 0x3794 @0x5
0x378f…3796 at0006 = EOL // 0x3795 @0x6
0x378f…3796 }
0x3796…37a7 c4fe 5780 IF EJFUNDET=B THEN
0x3796…37a7 LineComalBin {
0x3796…37a7 ptr = 0xc4fe // 0x3796 @0x0
0x3796…37a7 lno = 0x1694 // 0x3798 @0x2
0x3796…37a7 at0004 = ╱9c╱ IF ╱ // 0x379a @0x4
0x3796…37a7 at0005 = ╱45╱E╱ // 0x379b @0x5
0x3796…37a7 at0006 = ╱4a╱J╱ // 0x379c @0x6
0x3796…37a7 at0007 = ╱46╱F╱ // 0x379d @0x7
0x3796…37a7 at0008 = ╱55╱U╱ // 0x379e @0x8
0x3796…37a7 at0009 = ╱4e╱N╱ // 0x379f @0x9
0x3796…37a7 at000a = ╱44╱D╱ // 0x37a0 @0xa
0x3796…37a7 at000b = ╱45╱E╱ // 0x37a1 @0xb
0x3796…37a7 at000c = ╱54╱T╱ // 0x37a2 @0xc
0x3796…37a7 at000d = ╱dc╱=╱ // 0x37a3 @0xd
0x3796…37a7 at000e = ╱42╱B╱ // 0x37a4 @0xe
0x3796…37a7 at000f = ╱b6╱ THEN ╱ // 0x37a5 @0xf
0x3796…37a7 at0010 = EOL // 0x37a6 @0x10
0x3796…37a7 }
0x37a7…37c1 c518 5790 IF AVKONTI<MVGR*5 THEN
0x37a7…37c1 LineComalBin {
0x37a7…37c1 ptr = 0xc518 // 0x37a7 @0x0
0x37a7…37c1 lno = 0x169e // 0x37a9 @0x2
0x37a7…37c1 at0004 = ╱9c╱ IF ╱ // 0x37ab @0x4
0x37a7…37c1 at0005 = ╱41╱A╱ // 0x37ac @0x5
0x37a7…37c1 at0006 = ╱56╱V╱ // 0x37ad @0x6
0x37a7…37c1 at0007 = ╱4b╱K╱ // 0x37ae @0x7
0x37a7…37c1 at0008 = ╱4f╱O╱ // 0x37af @0x8
0x37a7…37c1 at0009 = ╱4e╱N╱ // 0x37b0 @0x9
0x37a7…37c1 at000a = ╱54╱T╱ // 0x37b1 @0xa
0x37a7…37c1 at000b = ╱49╱I╱ // 0x37b2 @0xb
0x37a7…37c1 at000c = ╱dd╱<╱ // 0x37b3 @0xc
0x37a7…37c1 at000d = ╱4d╱M╱ // 0x37b4 @0xd
0x37a7…37c1 at000e = ╱56╱V╱ // 0x37b5 @0xe
0x37a7…37c1 at000f = ╱47╱G╱ // 0x37b6 @0xf
0x37a7…37c1 at0010 = ╱52╱R╱ // 0x37b7 @0x10
0x37a7…37c1 at0011 = ╱e4╱*╱ // 0x37b8 @0x11
0x37a7…37c1 at0012 = ╱35╱5╱ // 0x37b9 @0x12
0x37a7…37c1 at0013 = ╱fe0000a003╱ // 0x37ba @0x13
0x37a7…37c1 at0018 = ╱b6╱ THEN ╱ // 0x37bf @0x18
0x37a7…37c1 at0019 = EOL // 0x37c0 @0x19
0x37a7…37c1 }
0x37c1…380b c562 5800 AVKONTI=AVKONTI+E;VJOURARR(AVKONTI)=VARKONT;VBJOUARR$(AVKONTI)=BELØB$
0x37c1…380b LineComalBin {
0x37c1…380b ptr = 0xc562 // 0x37c1 @0x0
0x37c1…380b lno = 0x16a8 // 0x37c3 @0x2
0x37c1…380b at0004 = ╱41╱A╱ // 0x37c5 @0x4
0x37c1…380b at0005 = ╱56╱V╱ // 0x37c6 @0x5
0x37c1…380b at0006 = ╱4b╱K╱ // 0x37c7 @0x6
0x37c1…380b at0007 = ╱4f╱O╱ // 0x37c8 @0x7
0x37c1…380b at0008 = ╱4e╱N╱ // 0x37c9 @0x8
0x37c1…380b at0009 = ╱54╱T╱ // 0x37ca @0x9
0x37c1…380b at000a = ╱49╱I╱ // 0x37cb @0xa
0x37c1…380b at000b = ╱dc╱=╱ // 0x37cc @0xb
0x37c1…380b at000c = ╱41╱A╱ // 0x37cd @0xc
0x37c1…380b at000d = ╱56╱V╱ // 0x37ce @0xd
0x37c1…380b at000e = ╱4b╱K╱ // 0x37cf @0xe
0x37c1…380b at000f = ╱4f╱O╱ // 0x37d0 @0xf
0x37c1…380b at0010 = ╱4e╱N╱ // 0x37d1 @0x10
0x37c1…380b at0011 = ╱54╱T╱ // 0x37d2 @0x11
0x37c1…380b at0012 = ╱49╱I╱ // 0x37d3 @0x12
0x37c1…380b at0013 = ╱e2╱+╱ // 0x37d4 @0x13
0x37c1…380b at0014 = ╱45╱E╱ // 0x37d5 @0x14
0x37c1…380b at0015 = ╱eb╱;╱ // 0x37d6 @0x15
0x37c1…380b at0016 = ╱56╱V╱ // 0x37d7 @0x16
0x37c1…380b at0017 = ╱4a╱J╱ // 0x37d8 @0x17
0x37c1…380b at0018 = ╱4f╱O╱ // 0x37d9 @0x18
0x37c1…380b at0019 = ╱55╱U╱ // 0x37da @0x19
0x37c1…380b at001a = ╱52╱R╱ // 0x37db @0x1a
0x37c1…380b at001b = ╱41╱A╱ // 0x37dc @0x1b
0x37c1…380b at001c = ╱52╱R╱ // 0x37dd @0x1c
0x37c1…380b at001d = ╱52╱R╱ // 0x37de @0x1d
0x37c1…380b at001e = ╱ed╱(╱ // 0x37df @0x1e
0x37c1…380b at001f = ╱41╱A╱ // 0x37e0 @0x1f
0x37c1…380b at0020 = ╱56╱V╱ // 0x37e1 @0x20
0x37c1…380b at0021 = ╱4b╱K╱ // 0x37e2 @0x21
0x37c1…380b at0022 = ╱4f╱O╱ // 0x37e3 @0x22
0x37c1…380b at0023 = ╱4e╱N╱ // 0x37e4 @0x23
0x37c1…380b at0024 = ╱54╱T╱ // 0x37e5 @0x24
0x37c1…380b at0025 = ╱49╱I╱ // 0x37e6 @0x25
0x37c1…380b at0026 = ╱ee╱)╱ // 0x37e7 @0x26
0x37c1…380b at0027 = ╱dc╱=╱ // 0x37e8 @0x27
0x37c1…380b at0028 = ╱56╱V╱ // 0x37e9 @0x28
0x37c1…380b at0029 = ╱41╱A╱ // 0x37ea @0x29
0x37c1…380b at002a = ╱52╱R╱ // 0x37eb @0x2a
0x37c1…380b at002b = ╱4b╱K╱ // 0x37ec @0x2b
0x37c1…380b at002c = ╱4f╱O╱ // 0x37ed @0x2c
0x37c1…380b at002d = ╱4e╱N╱ // 0x37ee @0x2d
0x37c1…380b at002e = ╱54╱T╱ // 0x37ef @0x2e
0x37c1…380b at002f = ╱eb╱;╱ // 0x37f0 @0x2f
0x37c1…380b at0030 = ╱56╱V╱ // 0x37f1 @0x30
0x37c1…380b at0031 = ╱42╱B╱ // 0x37f2 @0x31
0x37c1…380b at0032 = ╱4a╱J╱ // 0x37f3 @0x32
0x37c1…380b at0033 = ╱4f╱O╱ // 0x37f4 @0x33
0x37c1…380b at0034 = ╱55╱U╱ // 0x37f5 @0x34
0x37c1…380b at0035 = ╱41╱A╱ // 0x37f6 @0x35
0x37c1…380b at0036 = ╱52╱R╱ // 0x37f7 @0x36
0x37c1…380b at0037 = ╱52╱R╱ // 0x37f8 @0x37
0x37c1…380b at0038 = ╱ef╱$╱ // 0x37f9 @0x38
0x37c1…380b at0039 = ╱ed╱(╱ // 0x37fa @0x39
0x37c1…380b at003a = ╱41╱A╱ // 0x37fb @0x3a
0x37c1…380b at003b = ╱56╱V╱ // 0x37fc @0x3b
0x37c1…380b at003c = ╱4b╱K╱ // 0x37fd @0x3c
0x37c1…380b at003d = ╱4f╱O╱ // 0x37fe @0x3d
0x37c1…380b at003e = ╱4e╱N╱ // 0x37ff @0x3e
0x37c1…380b at003f = ╱54╱T╱ // 0x3800 @0x3f
0x37c1…380b at0040 = ╱49╱I╱ // 0x3801 @0x40
0x37c1…380b at0041 = ╱ee╱)╱ // 0x3802 @0x41
0x37c1…380b at0042 = ╱dc╱=╱ // 0x3803 @0x42
0x37c1…380b at0043 = ╱42╱B╱ // 0x3804 @0x43
0x37c1…380b at0044 = ╱45╱E╱ // 0x3805 @0x44
0x37c1…380b at0045 = ╱4c╱L╱ // 0x3806 @0x45
0x37c1…380b at0046 = ╱5c╱Ø╱ // 0x3807 @0x46
0x37c1…380b at0047 = ╱42╱B╱ // 0x3808 @0x47
0x37c1…380b at0048 = ╱ef╱$╱ // 0x3809 @0x48
0x37c1…380b at0049 = EOL // 0x380a @0x49
0x37c1…380b }
0x380b…3828 c57f 5810 VUJOURARR(AVKONTI)=ENTNR
0x380b…3828 LineComalBin {
0x380b…3828 ptr = 0xc57f // 0x380b @0x0
0x380b…3828 lno = 0x16b2 // 0x380d @0x2
0x380b…3828 at0004 = ╱56╱V╱ // 0x380f @0x4
0x380b…3828 at0005 = ╱55╱U╱ // 0x3810 @0x5
0x380b…3828 at0006 = ╱4a╱J╱ // 0x3811 @0x6
0x380b…3828 at0007 = ╱4f╱O╱ // 0x3812 @0x7
0x380b…3828 at0008 = ╱55╱U╱ // 0x3813 @0x8
0x380b…3828 at0009 = ╱52╱R╱ // 0x3814 @0x9
0x380b…3828 at000a = ╱41╱A╱ // 0x3815 @0xa
0x380b…3828 at000b = ╱52╱R╱ // 0x3816 @0xb
0x380b…3828 at000c = ╱52╱R╱ // 0x3817 @0xc
0x380b…3828 at000d = ╱ed╱(╱ // 0x3818 @0xd
0x380b…3828 at000e = ╱41╱A╱ // 0x3819 @0xe
0x380b…3828 at000f = ╱56╱V╱ // 0x381a @0xf
0x380b…3828 at0010 = ╱4b╱K╱ // 0x381b @0x10
0x380b…3828 at0011 = ╱4f╱O╱ // 0x381c @0x11
0x380b…3828 at0012 = ╱4e╱N╱ // 0x381d @0x12
0x380b…3828 at0013 = ╱54╱T╱ // 0x381e @0x13
0x380b…3828 at0014 = ╱49╱I╱ // 0x381f @0x14
0x380b…3828 at0015 = ╱ee╱)╱ // 0x3820 @0x15
0x380b…3828 at0016 = ╱dc╱=╱ // 0x3821 @0x16
0x380b…3828 at0017 = ╱45╱E╱ // 0x3822 @0x17
0x380b…3828 at0018 = ╱4e╱N╱ // 0x3823 @0x18
0x380b…3828 at0019 = ╱54╱T╱ // 0x3824 @0x19
0x380b…3828 at001a = ╱4e╱N╱ // 0x3825 @0x1a
0x380b…3828 at001b = ╱52╱R╱ // 0x3826 @0x1b
0x380b…3828 at001c = EOL // 0x3827 @0x1c
0x380b…3828 }
0x3828…383a c591 5820 IF FAKKRE$="F" THEN
0x3828…383a LineComalBin {
0x3828…383a ptr = 0xc591 // 0x3828 @0x0
0x3828…383a lno = 0x16bc // 0x382a @0x2
0x3828…383a at0004 = ╱9c╱ IF ╱ // 0x382c @0x4
0x3828…383a at0005 = ╱46╱F╱ // 0x382d @0x5
0x3828…383a at0006 = ╱41╱A╱ // 0x382e @0x6
0x3828…383a at0007 = ╱4b╱K╱ // 0x382f @0x7
0x3828…383a at0008 = ╱4b╱K╱ // 0x3830 @0x8
0x3828…383a at0009 = ╱52╱R╱ // 0x3831 @0x9
0x3828…383a at000a = ╱45╱E╱ // 0x3832 @0xa
0x3828…383a at000b = ╱ef╱$╱ // 0x3833 @0xb
0x3828…383a at000c = ╱dc╱=╱ // 0x3834 @0xc
0x3828…383a at000d = ╱22╱"╱ // 0x3835 @0xd
0x3828…383a at000e = ╱46╱F╱ // 0x3836 @0xe
0x3828…383a at000f = ╱22╱"╱ // 0x3837 @0xf
0x3828…383a at0010 = ╱b6╱ THEN ╱ // 0x3838 @0x10
0x3828…383a at0011 = EOL // 0x3839 @0x11
0x3828…383a }
0x383a…3854 c5ab 5830 IF BELØB$(12)="+" THEN
0x383a…3854 LineComalBin {
0x383a…3854 ptr = 0xc5ab // 0x383a @0x0
0x383a…3854 lno = 0x16c6 // 0x383c @0x2
0x383a…3854 at0004 = ╱9c╱ IF ╱ // 0x383e @0x4
0x383a…3854 at0005 = ╱42╱B╱ // 0x383f @0x5
0x383a…3854 at0006 = ╱45╱E╱ // 0x3840 @0x6
0x383a…3854 at0007 = ╱4c╱L╱ // 0x3841 @0x7
0x383a…3854 at0008 = ╱5c╱Ø╱ // 0x3842 @0x8
0x383a…3854 at0009 = ╱42╱B╱ // 0x3843 @0x9
0x383a…3854 at000a = ╱ef╱$╱ // 0x3844 @0xa
0x383a…3854 at000b = ╱ed╱(╱ // 0x3845 @0xb
0x383a…3854 at000c = ╱31╱1╱ // 0x3846 @0xc
0x383a…3854 at000d = ╱32╱2╱ // 0x3847 @0xd
0x383a…3854 at000e = ╱fe0000c004╱ // 0x3848 @0xe
0x383a…3854 at0013 = ╱ee╱)╱ // 0x384d @0x13
0x383a…3854 at0014 = ╱dc╱=╱ // 0x384e @0x14
0x383a…3854 at0015 = ╱22╱"╱ // 0x384f @0x15
0x383a…3854 at0016 = ╱2b╱+╱ // 0x3850 @0x16
0x383a…3854 at0017 = ╱22╱"╱ // 0x3851 @0x17
0x383a…3854 at0018 = ╱b6╱ THEN ╱ // 0x3852 @0x18
0x383a…3854 at0019 = EOL // 0x3853 @0x19
0x383a…3854 }
0x3854…3877 c5ce 5840 VBJOUARR$(AVKONTI,12)="-"
0x3854…3877 LineComalBin {
0x3854…3877 ptr = 0xc5ce // 0x3854 @0x0
0x3854…3877 lno = 0x16d0 // 0x3856 @0x2
0x3854…3877 at0004 = ╱56╱V╱ // 0x3858 @0x4
0x3854…3877 at0005 = ╱42╱B╱ // 0x3859 @0x5
0x3854…3877 at0006 = ╱4a╱J╱ // 0x385a @0x6
0x3854…3877 at0007 = ╱4f╱O╱ // 0x385b @0x7
0x3854…3877 at0008 = ╱55╱U╱ // 0x385c @0x8
0x3854…3877 at0009 = ╱41╱A╱ // 0x385d @0x9
0x3854…3877 at000a = ╱52╱R╱ // 0x385e @0xa
0x3854…3877 at000b = ╱52╱R╱ // 0x385f @0xb
0x3854…3877 at000c = ╱ef╱$╱ // 0x3860 @0xc
0x3854…3877 at000d = ╱ed╱(╱ // 0x3861 @0xd
0x3854…3877 at000e = ╱41╱A╱ // 0x3862 @0xe
0x3854…3877 at000f = ╱56╱V╱ // 0x3863 @0xf
0x3854…3877 at0010 = ╱4b╱K╱ // 0x3864 @0x10
0x3854…3877 at0011 = ╱4f╱O╱ // 0x3865 @0x11
0x3854…3877 at0012 = ╱4e╱N╱ // 0x3866 @0x12
0x3854…3877 at0013 = ╱54╱T╱ // 0x3867 @0x13
0x3854…3877 at0014 = ╱49╱I╱ // 0x3868 @0x14
0x3854…3877 at0015 = ╱ec╱,╱ // 0x3869 @0x15
0x3854…3877 at0016 = ╱31╱1╱ // 0x386a @0x16
0x3854…3877 at0017 = ╱32╱2╱ // 0x386b @0x17
0x3854…3877 at0018 = ╱fe0000c004╱ // 0x386c @0x18
0x3854…3877 at001d = ╱ee╱)╱ // 0x3871 @0x1d
0x3854…3877 at001e = ╱dc╱=╱ // 0x3872 @0x1e
0x3854…3877 at001f = ╱22╱"╱ // 0x3873 @0x1f
0x3854…3877 at0020 = ╱2d╱-╱ // 0x3874 @0x20
0x3854…3877 at0021 = ╱22╱"╱ // 0x3875 @0x21
0x3854…3877 at0022 = EOL // 0x3876 @0x22
0x3854…3877 }
0x3877…387d c5d4 5850 ELSE
0x3877…387d LineComalBin {
0x3877…387d ptr = 0xc5d4 // 0x3877 @0x0
0x3877…387d lno = 0x16da // 0x3879 @0x2
0x3877…387d at0004 = ╱9a╱ ELSE ╱ // 0x387b @0x4
0x3877…387d at0005 = EOL // 0x387c @0x5
0x3877…387d }
0x387d…38a0 c5f7 5860 VBJOUARR$(AVKONTI,12)="+"
0x387d…38a0 LineComalBin {
0x387d…38a0 ptr = 0xc5f7 // 0x387d @0x0
0x387d…38a0 lno = 0x16e4 // 0x387f @0x2
0x387d…38a0 at0004 = ╱56╱V╱ // 0x3881 @0x4
0x387d…38a0 at0005 = ╱42╱B╱ // 0x3882 @0x5
0x387d…38a0 at0006 = ╱4a╱J╱ // 0x3883 @0x6
0x387d…38a0 at0007 = ╱4f╱O╱ // 0x3884 @0x7
0x387d…38a0 at0008 = ╱55╱U╱ // 0x3885 @0x8
0x387d…38a0 at0009 = ╱41╱A╱ // 0x3886 @0x9
0x387d…38a0 at000a = ╱52╱R╱ // 0x3887 @0xa
0x387d…38a0 at000b = ╱52╱R╱ // 0x3888 @0xb
0x387d…38a0 at000c = ╱ef╱$╱ // 0x3889 @0xc
0x387d…38a0 at000d = ╱ed╱(╱ // 0x388a @0xd
0x387d…38a0 at000e = ╱41╱A╱ // 0x388b @0xe
0x387d…38a0 at000f = ╱56╱V╱ // 0x388c @0xf
0x387d…38a0 at0010 = ╱4b╱K╱ // 0x388d @0x10
0x387d…38a0 at0011 = ╱4f╱O╱ // 0x388e @0x11
0x387d…38a0 at0012 = ╱4e╱N╱ // 0x388f @0x12
0x387d…38a0 at0013 = ╱54╱T╱ // 0x3890 @0x13
0x387d…38a0 at0014 = ╱49╱I╱ // 0x3891 @0x14
0x387d…38a0 at0015 = ╱ec╱,╱ // 0x3892 @0x15
0x387d…38a0 at0016 = ╱31╱1╱ // 0x3893 @0x16
0x387d…38a0 at0017 = ╱32╱2╱ // 0x3894 @0x17
0x387d…38a0 at0018 = ╱fe0000c004╱ // 0x3895 @0x18
0x387d…38a0 at001d = ╱ee╱)╱ // 0x389a @0x1d
0x387d…38a0 at001e = ╱dc╱=╱ // 0x389b @0x1e
0x387d…38a0 at001f = ╱22╱"╱ // 0x389c @0x1f
0x387d…38a0 at0020 = ╱2b╱+╱ // 0x389d @0x20
0x387d…38a0 at0021 = ╱22╱"╱ // 0x389e @0x21
0x387d…38a0 at0022 = EOL // 0x389f @0x22
0x387d…38a0 }
0x38a0…38a6 c5fd 5870 ENDIF
0x38a0…38a6 LineComalBin {
0x38a0…38a6 ptr = 0xc5fd // 0x38a0 @0x0
0x38a0…38a6 lno = 0x16ee // 0x38a2 @0x2
0x38a0…38a6 at0004 = ╱9b╱ ENDIF ╱ // 0x38a4 @0x4
0x38a0…38a6 at0005 = EOL // 0x38a5 @0x5
0x38a0…38a6 }
0x38a6…38ac c603 5880 ENDIF
0x38a6…38ac LineComalBin {
0x38a6…38ac ptr = 0xc603 // 0x38a6 @0x0
0x38a6…38ac lno = 0x16f8 // 0x38a8 @0x2
0x38a6…38ac at0004 = ╱9b╱ ENDIF ╱ // 0x38aa @0x4
0x38a6…38ac at0005 = EOL // 0x38ab @0x5
0x38a6…38ac }
0x38ac…38b2 c609 5890 ELSE
0x38ac…38b2 LineComalBin {
0x38ac…38b2 ptr = 0xc609 // 0x38ac @0x0
0x38ac…38b2 lno = 0x1702 // 0x38ae @0x2
0x38ac…38b2 at0004 = ╱9a╱ ELSE ╱ // 0x38b0 @0x4
0x38ac…38b2 at0005 = EOL // 0x38b1 @0x5
0x38ac…38b2 }
0x38b2…38b8 c60f 5900 STOP
0x38b2…38b8 LineComalBin {
0x38b2…38b8 ptr = 0xc60f // 0x38b2 @0x0
0x38b2…38b8 lno = 0x170c // 0x38b4 @0x2
0x38b2…38b8 at0004 = ╱8d╱ STOP ╱ // 0x38b6 @0x4
0x38b2…38b8 at0005 = EOL // 0x38b7 @0x5
0x38b2…38b8 }
0x38b8…38be c615 5910 ENDIF
0x38b8…38be LineComalBin {
0x38b8…38be ptr = 0xc615 // 0x38b8 @0x0
0x38b8…38be lno = 0x1716 // 0x38ba @0x2
0x38b8…38be at0004 = ╱9b╱ ENDIF ╱ // 0x38bc @0x4
0x38b8…38be at0005 = EOL // 0x38bd @0x5
0x38b8…38be }
0x38be…38c4 c61b 5920 ENDIF
0x38be…38c4 LineComalBin {
0x38be…38c4 ptr = 0xc61b // 0x38be @0x0
0x38be…38c4 lno = 0x1720 // 0x38c0 @0x2
0x38be…38c4 at0004 = ╱9b╱ ENDIF ╱ // 0x38c2 @0x4
0x38be…38c4 at0005 = EOL // 0x38c3 @0x5
0x38be…38c4 }
0x38c4…38ca c621 5930 ENDIF
0x38c4…38ca LineComalBin {
0x38c4…38ca ptr = 0xc621 // 0x38c4 @0x0
0x38c4…38ca lno = 0x172a // 0x38c6 @0x2
0x38c4…38ca at0004 = ╱9b╱ ENDIF ╱ // 0x38c8 @0x4
0x38c4…38ca at0005 = EOL // 0x38c9 @0x5
0x38c4…38ca }
0x38ca…38d0 c627 5940 ENDPROC
0x38ca…38d0 LineComalBin {
0x38ca…38d0 ptr = 0xc627 // 0x38ca @0x0
0x38ca…38d0 lno = 0x1734 // 0x38cc @0x2
0x38ca…38d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x38ce @0x4
0x38ca…38d0 at0005 = EOL // 0x38cf @0x5
0x38ca…38d0 }
0x38d0…38e6 c63d 5950 PROC TOMLINIE(ANTLIN)
0x38d0…38e6 LineComalBin {
0x38d0…38e6 ptr = 0xc63d // 0x38d0 @0x0
0x38d0…38e6 lno = 0x173e // 0x38d2 @0x2
0x38d0…38e6 at0004 = ╱9e╱ PROC ╱ // 0x38d4 @0x4
0x38d0…38e6 at0005 = ╱54╱T╱ // 0x38d5 @0x5
0x38d0…38e6 at0006 = ╱4f╱O╱ // 0x38d6 @0x6
0x38d0…38e6 at0007 = ╱4d╱M╱ // 0x38d7 @0x7
0x38d0…38e6 at0008 = ╱4c╱L╱ // 0x38d8 @0x8
0x38d0…38e6 at0009 = ╱49╱I╱ // 0x38d9 @0x9
0x38d0…38e6 at000a = ╱4e╱N╱ // 0x38da @0xa
0x38d0…38e6 at000b = ╱49╱I╱ // 0x38db @0xb
0x38d0…38e6 at000c = ╱45╱E╱ // 0x38dc @0xc
0x38d0…38e6 at000d = ╱ed╱(╱ // 0x38dd @0xd
0x38d0…38e6 at000e = ╱41╱A╱ // 0x38de @0xe
0x38d0…38e6 at000f = ╱4e╱N╱ // 0x38df @0xf
0x38d0…38e6 at0010 = ╱54╱T╱ // 0x38e0 @0x10
0x38d0…38e6 at0011 = ╱4c╱L╱ // 0x38e1 @0x11
0x38d0…38e6 at0012 = ╱49╱I╱ // 0x38e2 @0x12
0x38d0…38e6 at0013 = ╱4e╱N╱ // 0x38e3 @0x13
0x38d0…38e6 at0014 = ╱ee╱)╱ // 0x38e4 @0x14
0x38d0…38e6 at0015 = EOL // 0x38e5 @0x15
0x38d0…38e6 }
0x38e6…38f9 c650 5960 FOR ANLI=E TO ANTLIN
0x38e6…38f9 LineComalBin {
0x38e6…38f9 ptr = 0xc650 // 0x38e6 @0x0
0x38e6…38f9 lno = 0x1748 // 0x38e8 @0x2
0x38e6…38f9 at0004 = ╱83╱ FOR ╱ // 0x38ea @0x4
0x38e6…38f9 at0005 = ╱41╱A╱ // 0x38eb @0x5
0x38e6…38f9 at0006 = ╱4e╱N╱ // 0x38ec @0x6
0x38e6…38f9 at0007 = ╱4c╱L╱ // 0x38ed @0x7
0x38e6…38f9 at0008 = ╱49╱I╱ // 0x38ee @0x8
0x38e6…38f9 at0009 = ╱dc╱=╱ // 0x38ef @0x9
0x38e6…38f9 at000a = ╱45╱E╱ // 0x38f0 @0xa
0x38e6…38f9 at000b = ╱b7╱ TO ╱ // 0x38f1 @0xb
0x38e6…38f9 at000c = ╱41╱A╱ // 0x38f2 @0xc
0x38e6…38f9 at000d = ╱4e╱N╱ // 0x38f3 @0xd
0x38e6…38f9 at000e = ╱54╱T╱ // 0x38f4 @0xe
0x38e6…38f9 at000f = ╱4c╱L╱ // 0x38f5 @0xf
0x38e6…38f9 at0010 = ╱49╱I╱ // 0x38f6 @0x10
0x38e6…38f9 at0011 = ╱4e╱N╱ // 0x38f7 @0x11
0x38e6…38f9 at0012 = EOL // 0x38f8 @0x12
0x38e6…38f9 }
0x38f9…3902 c659 5970 PRINT " "
0x38f9…3902 LineComalBin {
0x38f9…3902 ptr = 0xc659 // 0x38f9 @0x0
0x38f9…3902 lno = 0x1752 // 0x38fb @0x2
0x38f9…3902 at0004 = ╱92╱ PRINT ╱ // 0x38fd @0x4
0x38f9…3902 at0005 = ╱22╱"╱ // 0x38fe @0x5
0x38f9…3902 at0006 = ╱20╱…╱ // 0x38ff @0x6
0x38f9…3902 at0007 = ╱22╱"╱ // 0x3900 @0x7
0x38f9…3902 at0008 = EOL // 0x3901 @0x8
0x38f9…3902 }
0x3902…390c c663 5980 NEXT ANLI
0x3902…390c LineComalBin {
0x3902…390c ptr = 0xc663 // 0x3902 @0x0
0x3902…390c lno = 0x175c // 0x3904 @0x2
0x3902…390c at0004 = ╱84╱ NEXT ╱ // 0x3906 @0x4
0x3902…390c at0005 = ╱41╱A╱ // 0x3907 @0x5
0x3902…390c at0006 = ╱4e╱N╱ // 0x3908 @0x6
0x3902…390c at0007 = ╱4c╱L╱ // 0x3909 @0x7
0x3902…390c at0008 = ╱49╱I╱ // 0x390a @0x8
0x3902…390c at0009 = EOL // 0x390b @0x9
0x3902…390c }
0x390c…3912 c669 5990 ENDPROC
0x390c…3912 LineComalBin {
0x390c…3912 ptr = 0xc669 // 0x390c @0x0
0x390c…3912 lno = 0x1766 // 0x390e @0x2
0x390c…3912 at0004 = ╱9f╱ ENDPROC ╱ // 0x3910 @0x4
0x390c…3912 at0005 = EOL // 0x3911 @0x5
0x390c…3912 }
0x3912…391d c674 6000 OPEN K8$,W
0x3912…391d LineComalBin {
0x3912…391d ptr = 0xc674 // 0x3912 @0x0
0x3912…391d lno = 0x1770 // 0x3914 @0x2
0x3912…391d at0004 = ╱a7╱ OPEN ╱ // 0x3916 @0x4
0x3912…391d at0005 = ╱4b╱K╱ // 0x3917 @0x5
0x3912…391d at0006 = ╱38╱8╱ // 0x3918 @0x6
0x3912…391d at0007 = ╱ef╱$╱ // 0x3919 @0x7
0x3912…391d at0008 = ╱ec╱,╱ // 0x391a @0x8
0x3912…391d at0009 = ╱57╱W╱ // 0x391b @0x9
0x3912…391d at000a = EOL // 0x391c @0xa
0x3912…391d }
0x391d…3935 c68c 6010 EXEC FEJL(8,E,K8$)
0x391d…3935 LineComalBin {
0x391d…3935 ptr = 0xc68c // 0x391d @0x0
0x391d…3935 lno = 0x177a // 0x391f @0x2
0x391d…3935 at0004 = ╱9d╱ EXEC ╱ // 0x3921 @0x4
0x391d…3935 at0005 = ╱46╱F╱ // 0x3922 @0x5
0x391d…3935 at0006 = ╱45╱E╱ // 0x3923 @0x6
0x391d…3935 at0007 = ╱4a╱J╱ // 0x3924 @0x7
0x391d…3935 at0008 = ╱4c╱L╱ // 0x3925 @0x8
0x391d…3935 at0009 = ╱ed╱(╱ // 0x3926 @0x9
0x391d…3935 at000a = ╱38╱8╱ // 0x3927 @0xa
0x391d…3935 at000b = ╱fe00008004╱ // 0x3928 @0xb
0x391d…3935 at0010 = ╱ec╱,╱ // 0x392d @0x10
0x391d…3935 at0011 = ╱45╱E╱ // 0x392e @0x11
0x391d…3935 at0012 = ╱ec╱,╱ // 0x392f @0x12
0x391d…3935 at0013 = ╱4b╱K╱ // 0x3930 @0x13
0x391d…3935 at0014 = ╱38╱8╱ // 0x3931 @0x14
0x391d…3935 at0015 = ╱ef╱$╱ // 0x3932 @0x15
0x391d…3935 at0016 = ╱ee╱)╱ // 0x3933 @0x16
0x391d…3935 at0017 = EOL // 0x3934 @0x17
0x391d…3935 }
0x3935…3946 c69d 6020 FOR I=E TO AVKONTI
0x3935…3946 LineComalBin {
0x3935…3946 ptr = 0xc69d // 0x3935 @0x0
0x3935…3946 lno = 0x1784 // 0x3937 @0x2
0x3935…3946 at0004 = ╱83╱ FOR ╱ // 0x3939 @0x4
0x3935…3946 at0005 = ╱49╱I╱ // 0x393a @0x5
0x3935…3946 at0006 = ╱dc╱=╱ // 0x393b @0x6
0x3935…3946 at0007 = ╱45╱E╱ // 0x393c @0x7
0x3935…3946 at0008 = ╱b7╱ TO ╱ // 0x393d @0x8
0x3935…3946 at0009 = ╱41╱A╱ // 0x393e @0x9
0x3935…3946 at000a = ╱56╱V╱ // 0x393f @0xa
0x3935…3946 at000b = ╱4b╱K╱ // 0x3940 @0xb
0x3935…3946 at000c = ╱4f╱O╱ // 0x3941 @0xc
0x3935…3946 at000d = ╱4e╱N╱ // 0x3942 @0xd
0x3935…3946 at000e = ╱54╱T╱ // 0x3943 @0xe
0x3935…3946 at000f = ╱49╱I╱ // 0x3944 @0xf
0x3935…3946 at0010 = EOL // 0x3945 @0x10
0x3935…3946 }
0x3946…3977 c6ce 6030 PUT K8$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I)
0x3946…3977 LineComalBin {
0x3946…3977 ptr = 0xc6ce // 0x3946 @0x0
0x3946…3977 lno = 0x178e // 0x3948 @0x2
0x3946…3977 at0004 = ╱aa╱ PUT ╱ // 0x394a @0x4
0x3946…3977 at0005 = ╱4b╱K╱ // 0x394b @0x5
0x3946…3977 at0006 = ╱38╱8╱ // 0x394c @0x6
0x3946…3977 at0007 = ╱ef╱$╱ // 0x394d @0x7
0x3946…3977 at0008 = ╱ec╱,╱ // 0x394e @0x8
0x3946…3977 at0009 = ╱49╱I╱ // 0x394f @0x9
0x3946…3977 at000a = ╱f0╱:╱ // 0x3950 @0xa
0x3946…3977 at000b = ╱56╱V╱ // 0x3951 @0xb
0x3946…3977 at000c = ╱4a╱J╱ // 0x3952 @0xc
0x3946…3977 at000d = ╱4f╱O╱ // 0x3953 @0xd
0x3946…3977 at000e = ╱55╱U╱ // 0x3954 @0xe
0x3946…3977 at000f = ╱52╱R╱ // 0x3955 @0xf
0x3946…3977 at0010 = ╱41╱A╱ // 0x3956 @0x10
0x3946…3977 at0011 = ╱52╱R╱ // 0x3957 @0x11
0x3946…3977 at0012 = ╱52╱R╱ // 0x3958 @0x12
0x3946…3977 at0013 = ╱ed╱(╱ // 0x3959 @0x13
0x3946…3977 at0014 = ╱49╱I╱ // 0x395a @0x14
0x3946…3977 at0015 = ╱ee╱)╱ // 0x395b @0x15
0x3946…3977 at0016 = ╱ec╱,╱ // 0x395c @0x16
0x3946…3977 at0017 = ╱56╱V╱ // 0x395d @0x17
0x3946…3977 at0018 = ╱42╱B╱ // 0x395e @0x18
0x3946…3977 at0019 = ╱4a╱J╱ // 0x395f @0x19
0x3946…3977 at001a = ╱4f╱O╱ // 0x3960 @0x1a
0x3946…3977 at001b = ╱55╱U╱ // 0x3961 @0x1b
0x3946…3977 at001c = ╱41╱A╱ // 0x3962 @0x1c
0x3946…3977 at001d = ╱52╱R╱ // 0x3963 @0x1d
0x3946…3977 at001e = ╱52╱R╱ // 0x3964 @0x1e
0x3946…3977 at001f = ╱ef╱$╱ // 0x3965 @0x1f
0x3946…3977 at0020 = ╱ed╱(╱ // 0x3966 @0x20
0x3946…3977 at0021 = ╱49╱I╱ // 0x3967 @0x21
0x3946…3977 at0022 = ╱ee╱)╱ // 0x3968 @0x22
0x3946…3977 at0023 = ╱ec╱,╱ // 0x3969 @0x23
0x3946…3977 at0024 = ╱56╱V╱ // 0x396a @0x24
0x3946…3977 at0025 = ╱55╱U╱ // 0x396b @0x25
0x3946…3977 at0026 = ╱4a╱J╱ // 0x396c @0x26
0x3946…3977 at0027 = ╱4f╱O╱ // 0x396d @0x27
0x3946…3977 at0028 = ╱55╱U╱ // 0x396e @0x28
0x3946…3977 at0029 = ╱52╱R╱ // 0x396f @0x29
0x3946…3977 at002a = ╱41╱A╱ // 0x3970 @0x2a
0x3946…3977 at002b = ╱52╱R╱ // 0x3971 @0x2b
0x3946…3977 at002c = ╱52╱R╱ // 0x3972 @0x2c
0x3946…3977 at002d = ╱ed╱(╱ // 0x3973 @0x2d
0x3946…3977 at002e = ╱49╱I╱ // 0x3974 @0x2e
0x3946…3977 at002f = ╱ee╱)╱ // 0x3975 @0x2f
0x3946…3977 at0030 = EOL // 0x3976 @0x30
0x3946…3977 }
0x3977…398f c6e6 6040 EXEC FEJL(8,G,K8$)
0x3977…398f LineComalBin {
0x3977…398f ptr = 0xc6e6 // 0x3977 @0x0
0x3977…398f lno = 0x1798 // 0x3979 @0x2
0x3977…398f at0004 = ╱9d╱ EXEC ╱ // 0x397b @0x4
0x3977…398f at0005 = ╱46╱F╱ // 0x397c @0x5
0x3977…398f at0006 = ╱45╱E╱ // 0x397d @0x6
0x3977…398f at0007 = ╱4a╱J╱ // 0x397e @0x7
0x3977…398f at0008 = ╱4c╱L╱ // 0x397f @0x8
0x3977…398f at0009 = ╱ed╱(╱ // 0x3980 @0x9
0x3977…398f at000a = ╱38╱8╱ // 0x3981 @0xa
0x3977…398f at000b = ╱fe00008004╱ // 0x3982 @0xb
0x3977…398f at0010 = ╱ec╱,╱ // 0x3987 @0x10
0x3977…398f at0011 = ╱47╱G╱ // 0x3988 @0x11
0x3977…398f at0012 = ╱ec╱,╱ // 0x3989 @0x12
0x3977…398f at0013 = ╱4b╱K╱ // 0x398a @0x13
0x3977…398f at0014 = ╱38╱8╱ // 0x398b @0x14
0x3977…398f at0015 = ╱ef╱$╱ // 0x398c @0x15
0x3977…398f at0016 = ╱ee╱)╱ // 0x398d @0x16
0x3977…398f at0017 = EOL // 0x398e @0x17
0x3977…398f }
0x398f…3996 c6ed 6050 NEXT I
0x398f…3996 LineComalBin {
0x398f…3996 ptr = 0xc6ed // 0x398f @0x0
0x398f…3996 lno = 0x17a2 // 0x3991 @0x2
0x398f…3996 at0004 = ╱84╱ NEXT ╱ // 0x3993 @0x4
0x398f…3996 at0005 = ╱49╱I╱ // 0x3994 @0x5
0x398f…3996 at0006 = EOL // 0x3995 @0x6
0x398f…3996 }
0x3996…399f c6f6 6060 CLOSE K8$
0x3996…399f LineComalBin {
0x3996…399f ptr = 0xc6f6 // 0x3996 @0x0
0x3996…399f lno = 0x17ac // 0x3998 @0x2
0x3996…399f at0004 = ╱a8╱ CLOSE ╱ // 0x399a @0x4
0x3996…399f at0005 = ╱4b╱K╱ // 0x399b @0x5
0x3996…399f at0006 = ╱38╱8╱ // 0x399c @0x6
0x3996…399f at0007 = ╱ef╱$╱ // 0x399d @0x7
0x3996…399f at0008 = EOL // 0x399e @0x8
0x3996…399f }
0x399f…39b7 c70e 6070 EXEC FEJL(8,V,K8$)
0x399f…39b7 LineComalBin {
0x399f…39b7 ptr = 0xc70e // 0x399f @0x0
0x399f…39b7 lno = 0x17b6 // 0x39a1 @0x2
0x399f…39b7 at0004 = ╱9d╱ EXEC ╱ // 0x39a3 @0x4
0x399f…39b7 at0005 = ╱46╱F╱ // 0x39a4 @0x5
0x399f…39b7 at0006 = ╱45╱E╱ // 0x39a5 @0x6
0x399f…39b7 at0007 = ╱4a╱J╱ // 0x39a6 @0x7
0x399f…39b7 at0008 = ╱4c╱L╱ // 0x39a7 @0x8
0x399f…39b7 at0009 = ╱ed╱(╱ // 0x39a8 @0x9
0x399f…39b7 at000a = ╱38╱8╱ // 0x39a9 @0xa
0x399f…39b7 at000b = ╱fe00008004╱ // 0x39aa @0xb
0x399f…39b7 at0010 = ╱ec╱,╱ // 0x39af @0x10
0x399f…39b7 at0011 = ╱56╱V╱ // 0x39b0 @0x11
0x399f…39b7 at0012 = ╱ec╱,╱ // 0x39b1 @0x12
0x399f…39b7 at0013 = ╱4b╱K╱ // 0x39b2 @0x13
0x399f…39b7 at0014 = ╱38╱8╱ // 0x39b3 @0x14
0x399f…39b7 at0015 = ╱ef╱$╱ // 0x39b4 @0x15
0x399f…39b7 at0016 = ╱ee╱)╱ // 0x39b5 @0x16
0x399f…39b7 at0017 = EOL // 0x39b6 @0x17
0x399f…39b7 }
0x39b7…39be c715 6080 OUTPUT T
0x39b7…39be LineComalBin {
0x39b7…39be ptr = 0xc715 // 0x39b7 @0x0
0x39b7…39be lno = 0x17c0 // 0x39b9 @0x2
0x39b7…39be at0004 = ╱a5╱ OUTPUT ╱ // 0x39bb @0x4
0x39b7…39be at0005 = ╱54╱T╱ // 0x39bc @0x5
0x39b7…39be at0006 = EOL // 0x39bd @0x6
0x39b7…39be }
0x39be…39e5 c73c 6090 TE$=" Programvalg "
0x39be…39e5 LineComalBin {
0x39be…39e5 ptr = 0xc73c // 0x39be @0x0
0x39be…39e5 lno = 0x17ca // 0x39c0 @0x2
0x39be…39e5 at0004 = ╱54╱T╱ // 0x39c2 @0x4
0x39be…39e5 at0005 = ╱45╱E╱ // 0x39c3 @0x5
0x39be…39e5 at0006 = ╱ef╱$╱ // 0x39c4 @0x6
0x39be…39e5 at0007 = ╱dc╱=╱ // 0x39c5 @0x7
0x39be…39e5 at0008 = ╱22╱"╱ // 0x39c6 @0x8
0x39be…39e5 at0009 = ╱20╱…╱ // 0x39c7 @0x9
0x39be…39e5 at000a = ╱20╱…╱ // 0x39c8 @0xa
0x39be…39e5 at000b = ╱20╱…╱ // 0x39c9 @0xb
0x39be…39e5 at000c = ╱20╱…╱ // 0x39ca @0xc
0x39be…39e5 at000d = ╱20╱…╱ // 0x39cb @0xd
0x39be…39e5 at000e = ╱20╱…╱ // 0x39cc @0xe
0x39be…39e5 at000f = ╱50╱P╱ // 0x39cd @0xf
0x39be…39e5 at0010 = ╱72╱r╱ // 0x39ce @0x10
0x39be…39e5 at0011 = ╱6f╱o╱ // 0x39cf @0x11
0x39be…39e5 at0012 = ╱67╱g╱ // 0x39d0 @0x12
0x39be…39e5 at0013 = ╱72╱r╱ // 0x39d1 @0x13
0x39be…39e5 at0014 = ╱61╱a╱ // 0x39d2 @0x14
0x39be…39e5 at0015 = ╱6d╱m╱ // 0x39d3 @0x15
0x39be…39e5 at0016 = ╱76╱v╱ // 0x39d4 @0x16
0x39be…39e5 at0017 = ╱61╱a╱ // 0x39d5 @0x17
0x39be…39e5 at0018 = ╱6c╱l╱ // 0x39d6 @0x18
0x39be…39e5 at0019 = ╱67╱g╱ // 0x39d7 @0x19
0x39be…39e5 at001a = ╱20╱…╱ // 0x39d8 @0x1a
0x39be…39e5 at001b = ╱20╱…╱ // 0x39d9 @0x1b
0x39be…39e5 at001c = ╱20╱…╱ // 0x39da @0x1c
0x39be…39e5 at001d = ╱20╱…╱ // 0x39db @0x1d
0x39be…39e5 at001e = ╱20╱…╱ // 0x39dc @0x1e
0x39be…39e5 at001f = ╱20╱…╱ // 0x39dd @0x1f
0x39be…39e5 at0020 = ╱20╱…╱ // 0x39de @0x20
0x39be…39e5 at0021 = ╱20╱…╱ // 0x39df @0x21
0x39be…39e5 at0022 = ╱20╱…╱ // 0x39e0 @0x22
0x39be…39e5 at0023 = ╱20╱…╱ // 0x39e1 @0x23
0x39be…39e5 at0024 = ╱20╱…╱ // 0x39e2 @0x24
0x39be…39e5 at0025 = ╱22╱"╱ // 0x39e3 @0x25
0x39be…39e5 at0026 = EOL // 0x39e4 @0x26
0x39be…39e5 }
0x39e5…39ee c745 6100 EXEC BIL
0x39e5…39ee LineComalBin {
0x39e5…39ee ptr = 0xc745 // 0x39e5 @0x0
0x39e5…39ee lno = 0x17d4 // 0x39e7 @0x2
0x39e5…39ee at0004 = ╱9d╱ EXEC ╱ // 0x39e9 @0x4
0x39e5…39ee at0005 = ╱42╱B╱ // 0x39ea @0x5
0x39e5…39ee at0006 = ╱49╱I╱ // 0x39eb @0x6
0x39e5…39ee at0007 = ╱4c╱L╱ // 0x39ec @0x7
0x39e5…39ee at0008 = EOL // 0x39ed @0x8
0x39e5…39ee }
0x39ee…39fa c751 6110 EXEC SYSGEM
0x39ee…39fa LineComalBin {
0x39ee…39fa ptr = 0xc751 // 0x39ee @0x0
0x39ee…39fa lno = 0x17de // 0x39f0 @0x2
0x39ee…39fa at0004 = ╱9d╱ EXEC ╱ // 0x39f2 @0x4
0x39ee…39fa at0005 = ╱53╱S╱ // 0x39f3 @0x5
0x39ee…39fa at0006 = ╱59╱Y╱ // 0x39f4 @0x6
0x39ee…39fa at0007 = ╱53╱S╱ // 0x39f5 @0x7
0x39ee…39fa at0008 = ╱47╱G╱ // 0x39f6 @0x8
0x39ee…39fa at0009 = ╱45╱E╱ // 0x39f7 @0x9
0x39ee…39fa at000a = ╱4d╱M╱ // 0x39f8 @0xa
0x39ee…39fa at000b = EOL // 0x39f9 @0xb
0x39ee…39fa }
0x39fa…3a11 c768 6120 CHAIN "P641210:OPSTART"
0x39fa…3a11 LineComalBin {
0x39fa…3a11 ptr = 0xc768 // 0x39fa @0x0
0x39fa…3a11 lno = 0x17e8 // 0x39fc @0x2
0x39fa…3a11 at0004 = ╱ac╱ CHAIN ╱ // 0x39fe @0x4
0x39fa…3a11 at0005 = ╱22╱"╱ // 0x39ff @0x5
0x39fa…3a11 at0006 = ╱50╱P╱ // 0x3a00 @0x6
0x39fa…3a11 at0007 = ╱36╱6╱ // 0x3a01 @0x7
0x39fa…3a11 at0008 = ╱34╱4╱ // 0x3a02 @0x8
0x39fa…3a11 at0009 = ╱31╱1╱ // 0x3a03 @0x9
0x39fa…3a11 at000a = ╱32╱2╱ // 0x3a04 @0xa
0x39fa…3a11 at000b = ╱31╱1╱ // 0x3a05 @0xb
0x39fa…3a11 at000c = ╱30╱0╱ // 0x3a06 @0xc
0x39fa…3a11 at000d = ╱3a╱:╱ // 0x3a07 @0xd
0x39fa…3a11 at000e = ╱4f╱O╱ // 0x3a08 @0xe
0x39fa…3a11 at000f = ╱50╱P╱ // 0x3a09 @0xf
0x39fa…3a11 at0010 = ╱53╱S╱ // 0x3a0a @0x10
0x39fa…3a11 at0011 = ╱54╱T╱ // 0x3a0b @0x11
0x39fa…3a11 at0012 = ╱41╱A╱ // 0x3a0c @0x12
0x39fa…3a11 at0013 = ╱52╱R╱ // 0x3a0d @0x13
0x39fa…3a11 at0014 = ╱54╱T╱ // 0x3a0e @0x14
0x39fa…3a11 at0015 = ╱22╱"╱ // 0x3a0f @0x15
0x39fa…3a11 at0016 = EOL // 0x3a10 @0x16
0x39fa…3a11 }
0x3a11…3a17 c76e 6130 END
0x3a11…3a17 LineComalBin {
0x3a11…3a17 ptr = 0xc76e // 0x3a11 @0x0
0x3a11…3a17 lno = 0x17f2 // 0x3a13 @0x2
0x3a11…3a17 at0004 = ╱8c╱ END ╱ // 0x3a15 @0x4
0x3a11…3a17 at0005 = EOL // 0x3a16 @0x5
0x3a11…3a17 }
0x3a17…3a20 c777 6140 PROC BIL
0x3a17…3a20 LineComalBin {
0x3a17…3a20 ptr = 0xc777 // 0x3a17 @0x0
0x3a17…3a20 lno = 0x17fc // 0x3a19 @0x2
0x3a17…3a20 at0004 = ╱9e╱ PROC ╱ // 0x3a1b @0x4
0x3a17…3a20 at0005 = ╱42╱B╱ // 0x3a1c @0x5
0x3a17…3a20 at0006 = ╱49╱I╱ // 0x3a1d @0x6
0x3a17…3a20 at0007 = ╱4c╱L╱ // 0x3a1e @0x7
0x3a17…3a20 at0008 = EOL // 0x3a1f @0x8
0x3a17…3a20 }
0x3a20…3a26 c77d 6150 CLEAR
0x3a20…3a26 LineComalBin {
0x3a20…3a26 ptr = 0xc77d // 0x3a20 @0x0
0x3a20…3a26 lno = 0x1806 // 0x3a22 @0x2
0x3a20…3a26 at0004 = ╱a0╱ CLEAR ╱ // 0x3a24 @0x4
0x3a20…3a26 at0005 = EOL // 0x3a25 @0x5
0x3a20…3a26 }
0x3a26…3a35 c78c 6160 CURSOR 20,W
0x3a26…3a35 LineComalBin {
0x3a26…3a35 ptr = 0xc78c // 0x3a26 @0x0
0x3a26…3a35 lno = 0x1810 // 0x3a28 @0x2
0x3a26…3a35 at0004 = ╱a1╱ CURSOR ╱ // 0x3a2a @0x4
0x3a26…3a35 at0005 = ╱32╱2╱ // 0x3a2b @0x5
0x3a26…3a35 at0006 = ╱30╱0╱ // 0x3a2c @0x6
0x3a26…3a35 at0007 = ╱fe0000a005╱ // 0x3a2d @0x7
0x3a26…3a35 at000c = ╱ec╱,╱ // 0x3a32 @0xc
0x3a26…3a35 at000d = ╱57╱W╱ // 0x3a33 @0xd
0x3a26…3a35 at000e = EOL // 0x3a34 @0xe
0x3a26…3a35 }
0x3a35…3a66 c7bd 6170 PRINT "*****************************************"
0x3a35…3a66 LineComalBin {
0x3a35…3a66 ptr = 0xc7bd // 0x3a35 @0x0
0x3a35…3a66 lno = 0x181a // 0x3a37 @0x2
0x3a35…3a66 at0004 = ╱92╱ PRINT ╱ // 0x3a39 @0x4
0x3a35…3a66 at0005 = ╱22╱"╱ // 0x3a3a @0x5
0x3a35…3a66 at0006 = ╱2a╱*╱ // 0x3a3b @0x6
0x3a35…3a66 at0007 = ╱2a╱*╱ // 0x3a3c @0x7
0x3a35…3a66 at0008 = ╱2a╱*╱ // 0x3a3d @0x8
0x3a35…3a66 at0009 = ╱2a╱*╱ // 0x3a3e @0x9
0x3a35…3a66 at000a = ╱2a╱*╱ // 0x3a3f @0xa
0x3a35…3a66 at000b = ╱2a╱*╱ // 0x3a40 @0xb
0x3a35…3a66 at000c = ╱2a╱*╱ // 0x3a41 @0xc
0x3a35…3a66 at000d = ╱2a╱*╱ // 0x3a42 @0xd
0x3a35…3a66 at000e = ╱2a╱*╱ // 0x3a43 @0xe
0x3a35…3a66 at000f = ╱2a╱*╱ // 0x3a44 @0xf
0x3a35…3a66 at0010 = ╱2a╱*╱ // 0x3a45 @0x10
0x3a35…3a66 at0011 = ╱2a╱*╱ // 0x3a46 @0x11
0x3a35…3a66 at0012 = ╱2a╱*╱ // 0x3a47 @0x12
0x3a35…3a66 at0013 = ╱2a╱*╱ // 0x3a48 @0x13
0x3a35…3a66 at0014 = ╱2a╱*╱ // 0x3a49 @0x14
0x3a35…3a66 at0015 = ╱2a╱*╱ // 0x3a4a @0x15
0x3a35…3a66 at0016 = ╱2a╱*╱ // 0x3a4b @0x16
0x3a35…3a66 at0017 = ╱2a╱*╱ // 0x3a4c @0x17
0x3a35…3a66 at0018 = ╱2a╱*╱ // 0x3a4d @0x18
0x3a35…3a66 at0019 = ╱2a╱*╱ // 0x3a4e @0x19
0x3a35…3a66 at001a = ╱2a╱*╱ // 0x3a4f @0x1a
0x3a35…3a66 at001b = ╱2a╱*╱ // 0x3a50 @0x1b
0x3a35…3a66 at001c = ╱2a╱*╱ // 0x3a51 @0x1c
0x3a35…3a66 at001d = ╱2a╱*╱ // 0x3a52 @0x1d
0x3a35…3a66 at001e = ╱2a╱*╱ // 0x3a53 @0x1e
0x3a35…3a66 at001f = ╱2a╱*╱ // 0x3a54 @0x1f
0x3a35…3a66 at0020 = ╱2a╱*╱ // 0x3a55 @0x20
0x3a35…3a66 at0021 = ╱2a╱*╱ // 0x3a56 @0x21
0x3a35…3a66 at0022 = ╱2a╱*╱ // 0x3a57 @0x22
0x3a35…3a66 at0023 = ╱2a╱*╱ // 0x3a58 @0x23
0x3a35…3a66 at0024 = ╱2a╱*╱ // 0x3a59 @0x24
0x3a35…3a66 at0025 = ╱2a╱*╱ // 0x3a5a @0x25
0x3a35…3a66 at0026 = ╱2a╱*╱ // 0x3a5b @0x26
0x3a35…3a66 at0027 = ╱2a╱*╱ // 0x3a5c @0x27
0x3a35…3a66 at0028 = ╱2a╱*╱ // 0x3a5d @0x28
0x3a35…3a66 at0029 = ╱2a╱*╱ // 0x3a5e @0x29
0x3a35…3a66 at002a = ╱2a╱*╱ // 0x3a5f @0x2a
0x3a35…3a66 at002b = ╱2a╱*╱ // 0x3a60 @0x2b
0x3a35…3a66 at002c = ╱2a╱*╱ // 0x3a61 @0x2c
0x3a35…3a66 at002d = ╱2a╱*╱ // 0x3a62 @0x2d
0x3a35…3a66 at002e = ╱2a╱*╱ // 0x3a63 @0x2e
0x3a35…3a66 at002f = ╱22╱"╱ // 0x3a64 @0x2f
0x3a35…3a66 at0030 = EOL // 0x3a65 @0x30
0x3a35…3a66 }
0x3a66…3a7b c7d2 6180 CURSOR 20,10
0x3a66…3a7b LineComalBin {
0x3a66…3a7b ptr = 0xc7d2 // 0x3a66 @0x0
0x3a66…3a7b lno = 0x1824 // 0x3a68 @0x2
0x3a66…3a7b at0004 = ╱a1╱ CURSOR ╱ // 0x3a6a @0x4
0x3a66…3a7b at0005 = ╱32╱2╱ // 0x3a6b @0x5
0x3a66…3a7b at0006 = ╱30╱0╱ // 0x3a6c @0x6
0x3a66…3a7b at0007 = ╱fe0000a005╱ // 0x3a6d @0x7
0x3a66…3a7b at000c = ╱ec╱,╱ // 0x3a72 @0xc
0x3a66…3a7b at000d = ╱31╱1╱ // 0x3a73 @0xd
0x3a66…3a7b at000e = ╱30╱0╱ // 0x3a74 @0xe
0x3a66…3a7b at000f = ╱fe0000a004╱ // 0x3a75 @0xf
0x3a66…3a7b at0014 = EOL // 0x3a7a @0x14
0x3a66…3a7b }
0x3a7b…3a93 c7ea 6190 PRINT "*";TAB(41);"*"
0x3a7b…3a93 LineComalBin {
0x3a7b…3a93 ptr = 0xc7ea // 0x3a7b @0x0
0x3a7b…3a93 lno = 0x182e // 0x3a7d @0x2
0x3a7b…3a93 at0004 = ╱92╱ PRINT ╱ // 0x3a7f @0x4
0x3a7b…3a93 at0005 = ╱22╱"╱ // 0x3a80 @0x5
0x3a7b…3a93 at0006 = ╱2a╱*╱ // 0x3a81 @0x6
0x3a7b…3a93 at0007 = ╱22╱"╱ // 0x3a82 @0x7
0x3a7b…3a93 at0008 = ╱eb╱;╱ // 0x3a83 @0x8
0x3a7b…3a93 at0009 = ╱d2╱TAB╱ // 0x3a84 @0x9
0x3a7b…3a93 at000a = ╱ed╱(╱ // 0x3a85 @0xa
0x3a7b…3a93 at000b = ╱34╱4╱ // 0x3a86 @0xb
0x3a7b…3a93 at000c = ╱31╱1╱ // 0x3a87 @0xc
0x3a7b…3a93 at000d = ╱fe0000a406╱ // 0x3a88 @0xd
0x3a7b…3a93 at0012 = ╱ee╱)╱ // 0x3a8d @0x12
0x3a7b…3a93 at0013 = ╱eb╱;╱ // 0x3a8e @0x13
0x3a7b…3a93 at0014 = ╱22╱"╱ // 0x3a8f @0x14
0x3a7b…3a93 at0015 = ╱2a╱*╱ // 0x3a90 @0x15
0x3a7b…3a93 at0016 = ╱22╱"╱ // 0x3a91 @0x16
0x3a7b…3a93 at0017 = EOL // 0x3a92 @0x17
0x3a7b…3a93 }
0x3a93…3ac5 c81c 6200 PRINT TAB(20);"*";TAB(30);TE$;TAB(60);"*"
0x3a93…3ac5 LineComalBin {
0x3a93…3ac5 ptr = 0xc81c // 0x3a93 @0x0
0x3a93…3ac5 lno = 0x1838 // 0x3a95 @0x2
0x3a93…3ac5 at0004 = ╱92╱ PRINT ╱ // 0x3a97 @0x4
0x3a93…3ac5 at0005 = ╱d2╱TAB╱ // 0x3a98 @0x5
0x3a93…3ac5 at0006 = ╱ed╱(╱ // 0x3a99 @0x6
0x3a93…3ac5 at0007 = ╱32╱2╱ // 0x3a9a @0x7
0x3a93…3ac5 at0008 = ╱30╱0╱ // 0x3a9b @0x8
0x3a93…3ac5 at0009 = ╱fe0000a005╱ // 0x3a9c @0x9
0x3a93…3ac5 at000e = ╱ee╱)╱ // 0x3aa1 @0xe
0x3a93…3ac5 at000f = ╱eb╱;╱ // 0x3aa2 @0xf
0x3a93…3ac5 at0010 = ╱22╱"╱ // 0x3aa3 @0x10
0x3a93…3ac5 at0011 = ╱2a╱*╱ // 0x3aa4 @0x11
0x3a93…3ac5 at0012 = ╱22╱"╱ // 0x3aa5 @0x12
0x3a93…3ac5 at0013 = ╱eb╱;╱ // 0x3aa6 @0x13
0x3a93…3ac5 at0014 = ╱d2╱TAB╱ // 0x3aa7 @0x14
0x3a93…3ac5 at0015 = ╱ed╱(╱ // 0x3aa8 @0x15
0x3a93…3ac5 at0016 = ╱33╱3╱ // 0x3aa9 @0x16
0x3a93…3ac5 at0017 = ╱30╱0╱ // 0x3aaa @0x17
0x3a93…3ac5 at0018 = ╱fe0000f005╱ // 0x3aab @0x18
0x3a93…3ac5 at001d = ╱ee╱)╱ // 0x3ab0 @0x1d
0x3a93…3ac5 at001e = ╱eb╱;╱ // 0x3ab1 @0x1e
0x3a93…3ac5 at001f = ╱54╱T╱ // 0x3ab2 @0x1f
0x3a93…3ac5 at0020 = ╱45╱E╱ // 0x3ab3 @0x20
0x3a93…3ac5 at0021 = ╱ef╱$╱ // 0x3ab4 @0x21
0x3a93…3ac5 at0022 = ╱eb╱;╱ // 0x3ab5 @0x22
0x3a93…3ac5 at0023 = ╱d2╱TAB╱ // 0x3ab6 @0x23
0x3a93…3ac5 at0024 = ╱ed╱(╱ // 0x3ab7 @0x24
0x3a93…3ac5 at0025 = ╱36╱6╱ // 0x3ab8 @0x25
0x3a93…3ac5 at0026 = ╱30╱0╱ // 0x3ab9 @0x26
0x3a93…3ac5 at0027 = ╱fe0000f006╱ // 0x3aba @0x27
0x3a93…3ac5 at002c = ╱ee╱)╱ // 0x3abf @0x2c
0x3a93…3ac5 at002d = ╱eb╱;╱ // 0x3ac0 @0x2d
0x3a93…3ac5 at002e = ╱22╱"╱ // 0x3ac1 @0x2e
0x3a93…3ac5 at002f = ╱2a╱*╱ // 0x3ac2 @0x2f
0x3a93…3ac5 at0030 = ╱22╱"╱ // 0x3ac3 @0x30
0x3a93…3ac5 at0031 = EOL // 0x3ac4 @0x31
0x3a93…3ac5 }
0x3ac5…3ae8 c83f 6210 PRINT TAB(20);"*";TAB(60);"*"
0x3ac5…3ae8 LineComalBin {
0x3ac5…3ae8 ptr = 0xc83f // 0x3ac5 @0x0
0x3ac5…3ae8 lno = 0x1842 // 0x3ac7 @0x2
0x3ac5…3ae8 at0004 = ╱92╱ PRINT ╱ // 0x3ac9 @0x4
0x3ac5…3ae8 at0005 = ╱d2╱TAB╱ // 0x3aca @0x5
0x3ac5…3ae8 at0006 = ╱ed╱(╱ // 0x3acb @0x6
0x3ac5…3ae8 at0007 = ╱32╱2╱ // 0x3acc @0x7
0x3ac5…3ae8 at0008 = ╱30╱0╱ // 0x3acd @0x8
0x3ac5…3ae8 at0009 = ╱fe0000a005╱ // 0x3ace @0x9
0x3ac5…3ae8 at000e = ╱ee╱)╱ // 0x3ad3 @0xe
0x3ac5…3ae8 at000f = ╱eb╱;╱ // 0x3ad4 @0xf
0x3ac5…3ae8 at0010 = ╱22╱"╱ // 0x3ad5 @0x10
0x3ac5…3ae8 at0011 = ╱2a╱*╱ // 0x3ad6 @0x11
0x3ac5…3ae8 at0012 = ╱22╱"╱ // 0x3ad7 @0x12
0x3ac5…3ae8 at0013 = ╱eb╱;╱ // 0x3ad8 @0x13
0x3ac5…3ae8 at0014 = ╱d2╱TAB╱ // 0x3ad9 @0x14
0x3ac5…3ae8 at0015 = ╱ed╱(╱ // 0x3ada @0x15
0x3ac5…3ae8 at0016 = ╱36╱6╱ // 0x3adb @0x16
0x3ac5…3ae8 at0017 = ╱30╱0╱ // 0x3adc @0x17
0x3ac5…3ae8 at0018 = ╱fe0000f006╱ // 0x3add @0x18
0x3ac5…3ae8 at001d = ╱ee╱)╱ // 0x3ae2 @0x1d
0x3ac5…3ae8 at001e = ╱eb╱;╱ // 0x3ae3 @0x1e
0x3ac5…3ae8 at001f = ╱22╱"╱ // 0x3ae4 @0x1f
0x3ac5…3ae8 at0020 = ╱2a╱*╱ // 0x3ae5 @0x20
0x3ac5…3ae8 at0021 = ╱22╱"╱ // 0x3ae6 @0x21
0x3ac5…3ae8 at0022 = EOL // 0x3ae7 @0x22
0x3ac5…3ae8 }
0x3ae8…3b24 c87b 6220 PRINT TAB(20);"*****************************************"
0x3ae8…3b24 LineComalBin {
0x3ae8…3b24 ptr = 0xc87b // 0x3ae8 @0x0
0x3ae8…3b24 lno = 0x184c // 0x3aea @0x2
0x3ae8…3b24 at0004 = ╱92╱ PRINT ╱ // 0x3aec @0x4
0x3ae8…3b24 at0005 = ╱d2╱TAB╱ // 0x3aed @0x5
0x3ae8…3b24 at0006 = ╱ed╱(╱ // 0x3aee @0x6
0x3ae8…3b24 at0007 = ╱32╱2╱ // 0x3aef @0x7
0x3ae8…3b24 at0008 = ╱30╱0╱ // 0x3af0 @0x8
0x3ae8…3b24 at0009 = ╱fe0000a005╱ // 0x3af1 @0x9
0x3ae8…3b24 at000e = ╱ee╱)╱ // 0x3af6 @0xe
0x3ae8…3b24 at000f = ╱eb╱;╱ // 0x3af7 @0xf
0x3ae8…3b24 at0010 = ╱22╱"╱ // 0x3af8 @0x10
0x3ae8…3b24 at0011 = ╱2a╱*╱ // 0x3af9 @0x11
0x3ae8…3b24 at0012 = ╱2a╱*╱ // 0x3afa @0x12
0x3ae8…3b24 at0013 = ╱2a╱*╱ // 0x3afb @0x13
0x3ae8…3b24 at0014 = ╱2a╱*╱ // 0x3afc @0x14
0x3ae8…3b24 at0015 = ╱2a╱*╱ // 0x3afd @0x15
0x3ae8…3b24 at0016 = ╱2a╱*╱ // 0x3afe @0x16
0x3ae8…3b24 at0017 = ╱2a╱*╱ // 0x3aff @0x17
0x3ae8…3b24 at0018 = ╱2a╱*╱ // 0x3b00 @0x18
0x3ae8…3b24 at0019 = ╱2a╱*╱ // 0x3b01 @0x19
0x3ae8…3b24 at001a = ╱2a╱*╱ // 0x3b02 @0x1a
0x3ae8…3b24 at001b = ╱2a╱*╱ // 0x3b03 @0x1b
0x3ae8…3b24 at001c = ╱2a╱*╱ // 0x3b04 @0x1c
0x3ae8…3b24 at001d = ╱2a╱*╱ // 0x3b05 @0x1d
0x3ae8…3b24 at001e = ╱2a╱*╱ // 0x3b06 @0x1e
0x3ae8…3b24 at001f = ╱2a╱*╱ // 0x3b07 @0x1f
0x3ae8…3b24 at0020 = ╱2a╱*╱ // 0x3b08 @0x20
0x3ae8…3b24 at0021 = ╱2a╱*╱ // 0x3b09 @0x21
0x3ae8…3b24 at0022 = ╱2a╱*╱ // 0x3b0a @0x22
0x3ae8…3b24 at0023 = ╱2a╱*╱ // 0x3b0b @0x23
0x3ae8…3b24 at0024 = ╱2a╱*╱ // 0x3b0c @0x24
0x3ae8…3b24 at0025 = ╱2a╱*╱ // 0x3b0d @0x25
0x3ae8…3b24 at0026 = ╱2a╱*╱ // 0x3b0e @0x26
0x3ae8…3b24 at0027 = ╱2a╱*╱ // 0x3b0f @0x27
0x3ae8…3b24 at0028 = ╱2a╱*╱ // 0x3b10 @0x28
0x3ae8…3b24 at0029 = ╱2a╱*╱ // 0x3b11 @0x29
0x3ae8…3b24 at002a = ╱2a╱*╱ // 0x3b12 @0x2a
0x3ae8…3b24 at002b = ╱2a╱*╱ // 0x3b13 @0x2b
0x3ae8…3b24 at002c = ╱2a╱*╱ // 0x3b14 @0x2c
0x3ae8…3b24 at002d = ╱2a╱*╱ // 0x3b15 @0x2d
0x3ae8…3b24 at002e = ╱2a╱*╱ // 0x3b16 @0x2e
0x3ae8…3b24 at002f = ╱2a╱*╱ // 0x3b17 @0x2f
0x3ae8…3b24 at0030 = ╱2a╱*╱ // 0x3b18 @0x30
0x3ae8…3b24 at0031 = ╱2a╱*╱ // 0x3b19 @0x31
0x3ae8…3b24 at0032 = ╱2a╱*╱ // 0x3b1a @0x32
0x3ae8…3b24 at0033 = ╱2a╱*╱ // 0x3b1b @0x33
0x3ae8…3b24 at0034 = ╱2a╱*╱ // 0x3b1c @0x34
0x3ae8…3b24 at0035 = ╱2a╱*╱ // 0x3b1d @0x35
0x3ae8…3b24 at0036 = ╱2a╱*╱ // 0x3b1e @0x36
0x3ae8…3b24 at0037 = ╱2a╱*╱ // 0x3b1f @0x37
0x3ae8…3b24 at0038 = ╱2a╱*╱ // 0x3b20 @0x38
0x3ae8…3b24 at0039 = ╱2a╱*╱ // 0x3b21 @0x39
0x3ae8…3b24 at003a = ╱22╱"╱ // 0x3b22 @0x3a
0x3ae8…3b24 at003b = EOL // 0x3b23 @0x3b
0x3ae8…3b24 }
0x3b24…3b2a 0000 6230 ENDPROC
0x3b24…3b2a LineComalBin {
0x3b24…3b2a ptr = 0x0000 // 0x3b24 @0x0
0x3b24…3b2a lno = 0x1856 // 0x3b26 @0x2
0x3b24…3b2a at0004 = ╱9f╱ ENDPROC ╱ // 0x3b28 @0x4
0x3b24…3b2a at0005 = EOL // 0x3b29 @0x5
0x3b24…3b2a }
0x3b2a…3b40 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb ┆W Z B 0 E 1 ┆
0x3b40…3b41 47 ┆G┆
0x3b41…3b5b (197,) dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ 2 V 3 W 9 ┆
0x3b5b…3b61 (198,) 57 8d 81 c8 10 00 ┆W ┆