|
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: 12171 (0x2f8b)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »VAREVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »VAREVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »VAREVEDL.B«
0090 DIM OP1$(12),OP2$(12),RES$(15),TAL2$(12),BLANK$(25),BLB2$(12) 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),K4$(17),K5$(17),STREG$(77) 0110 DIM SVAR$(E),VARTEKST$(25),VARPRIS$(12),TAH$(12),T2(W),T3(W) 0120 DIM TAL1$(12),TAL4$(14),SVAR1$(E),VARPRI$(12),VARTEK$(25),DV$(10) 0140 BLANK$=" ";TAH$="0+" 0150 STREG$="--------------------------------------";STREG$=STREG$+STREG$ 0160 PROC VALINUD 0170 CURSOR G,LINIE 0180 PRINT USING "#######":VARENR 0190 CURSOR 13,LINIE 0200 PRINT VARTEKST$ 0210 CURSOR 45,LINIE 0220 EXEC TUD(VARPRIS$,TAL4$,B,B) 0225 PRINT TAL4$ 0230 CURSOR 61,LINIE 0240 PRINT USING "####### #######":VARKONT,UNDKONT 0250 ENDPROC 0260 PROC LINTEST 0270 CLEAR 0280 CURSOR 21,E 0290 PRINT "Varevedligeholdelse. "; 0300 EXEC VARHOVED 0310 EXEC VALINUD 0315 LINIE=LINIE+E 0320 ENDPROC 0330 PROC VARHOVED 0340 PRINT "Ny vare." 0350 CURSOR 21,G 0360 PRINT "Hvis færdig, tast varenummer 0." 0370 EXEC VARELTEK 0380 ENDPROC 0390 PROC SLETVPOST 0400 EXEC NULVPOST 0410 VNR2=VARENR;VARENR=B 0420 EXEC GEMVPOST 0430 VARENR=VNR2 0440 EXEC SLETPOST(VTAB,AVARE,VPIL3) 0450 ENDPROC 0460 PROC GEMVPOST 0470 S=VTAB(VPIL3,G) 0480 PUT K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT 0490 EXEC FEJL(G,E,K4$) 0500 ENDPROC 0510 PROC HENTVPOST 0520 S=VTAB(VPIL3,G) 0530 GET K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT 0540 EXEC FEJL(V,E,K4$) 0550 ENDPROC 0560 PROC NULVPOST 0570 VARTEKST$=BLANK$;VARPRIS$="0+";VARKONT=B;UNDKONT=B 0580 ENDPROC 0590 PROC NRTEST(NUM1) 0600 P,TEST2,KTAL=B;L=LEN(NUM1$) 0610 IF L>6 THEN EXIT 0620 CASE L OF 0630 FOR I=E TO L 0640 P1=INT(ORD(NUM1$(I))-48) 0650 IF P1<B OR P1>W THEN TEST2=E 0660 P=P*10+P1 0670 NEXT I 0680 KTAL=P DIV 10000 0690 WHEN B 0700 P=-E 0710 WHEN E 0720 CASE NUM1$ OF 0730 P=INT(ORD(NUM1$)-48) 0740 WHEN "d","D" 0750 P=-G 0760 WHEN "a","A" 0770 P=-V 0780 WHEN "m","M" 0790 P=-4 0800 WHEN "j","J" 0810 P=-7 0820 WHEN "n","N" 0830 P=-8 0840 ENDCASE 0850 ENDCASE 0860 ENDPROC 0870 PROC FEJL(NR1,NR2,NR3) 0880 IF STATUS(NR3$)<>B THEN 0890 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0900 STOP 0910 ENDIF 0920 ENDPROC 0930 PROC CALC(AR3,B1,B2,ES) 0940 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0950 CALL "P641210:REGN" 0960 ES$=RES$ 0970 IF AR3<6 THEN IF FLAG THEN STOP 1000 ENDPROC 1010 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1020 BLB2$=BLB1$ 1030 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 1040 IF TEGN=B THEN UBLB1$=UBLB1$(E:13) 1050 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 1060 IF STØR=E THEN UBLB1$=UBLB$(4:LEN(UBLB1$)-V) 1070 ENDPROC 1080 PROC SLETPOST(TAB3,ANTAL3,PIL5) 1090 POSTNR=TAB3(PIL5,G) 1100 FOR I=PIL5 TO ANTAL3-E 1110 TAB3(I,E)=TAB3(I+E,E);TAB3(I,G)=TAB3(I+E,G) 1120 NEXT I 1130 TAB3(ANTAL3,E)=1000000;TAB3(ANTAL3,G)=POSTNR;ANTAL3=ANTAL3-E 1140 ENDPROC 1150 PROC INDSÆT1(TAB2,ANTAL2,NØGL2,PIL4) 1160 POSTNR=TAB2(ANTAL2+E,G) 1170 IF NØGL2>TAB2(PIL4,E) THEN PIL4=PIL4+E 1180 FOR I=ANTAL2+E TO PIL4+E STEP -E 1190 TAB2(I,E)=TAB2(I-E,E);TAB2(I,G)=TAB2(I-E,G) 1200 NEXT I 1210 TAB2(PIL4,E)=NØGL2;TAB2(PIL4,G)=POSTNR;ANTAL2=ANTAL2+E 1220 ENDPROC 1230 PROC INDTAB1(Z,MANT5,L7) 1240 PIL1=MANT5 DIV 32 1250 FOR I=E TO PIL1 1260 H=(I-E)*8+E 1270 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) 1280 EXEC FEJL(G,E,L7$) 1290 NEXT I 1300 ENDPROC 1310 PROC UDTAB(U,MANTAL1,L9) 1320 MANTAL2=MANTAL1 DIV 32+E;MANTAL3=MANTAL1 DIV 4+MANTAL2-E 1330 FOR I=E TO MANTAL2-E 1340 H=(I-E)*32+E;H1=H+4;H2=H+8;H3=H+12;H4=H+16;H5=H+20;H6=H+24;H7=H+28 1350 PUT L9$,I:U(H,E),U(H1,E),U(H2,E),U(H3,E),U(H4,E),U(H5,E),U(H6,E),U(H7,E) 1360 EXEC FEJL(V,E,L9$) 1370 NEXT I 1380 FOR I=MANTAL2 TO MANTAL3 1390 H=(I-MANTAL2)*4+E;H1=H+E;H2=H+G;H3=H+V 1400 PUT L9$,I:U(H,E),U(H,G),U(H1,E),U(H1,G),U(H2,E),U(H2,G),U(H3,E),U(H3,G) 1410 EXEC FEJL(V,G,L9$) 1420 NEXT I 1430 ENDPROC 1440 PROC INDTAB(T,MANTAL,L10) 1450 MANTAL2=MANTAL DIV 32+E;MANTAL3=MANTAL DIV 4+MANTAL2-E 1460 FOR I=MANTAL2 TO MANTAL3 1470 H=(I-MANTAL2)*4+E;H1=H+E;H2=H+G;H3=H+V 1480 GET L10$,I:T(H,E),T(H,G),T(H1,E),T(H1,G),T(H2,E),T(H2,G),T(H3,E),T(H3,G) 1490 EXEC FEJL(4,E,L10$) 1500 NEXT I 1510 ENDPROC 1520 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1530 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1540 REPEAT 1550 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT 1560 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6))) 1570 IF PIL6<E THEN PIL6=E 1580 IF PIL6>MANT3 THEN PIL6=MANT3 1590 UNTIL PIL1=B 1600 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E) 1610 PIL6=MANT4+PIL6 1620 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) 1630 EXEC FEJL(E,E,L8$) 1640 FOR PIL6=E TO 4 1650 IF NØGL5=Q(PIL6,E) THEN EXIT 1660 NEXT PIL6 1670 IF PIL6<>5 THEN CEKS=B 1680 ENDPROC 1690 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 1700 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 1710 REPEAT 1720 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT 1730 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E))) 1740 IF PIL3<E THEN PIL3=E 1750 IF PIL3>MANT1 THEN PIL3=MANT1 1760 UNTIL PIL1=B 1765 IF NØGL1>TAB1(PIL3,E) THEN PIL3=PIL3+E*(PIL3<MANT1) 1770 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B 1780 ENDPROC 1790 PROC VAREÆND 1800 VARTEK$=BLANK$ 1810 CURSOR 12,LINIE 1820 INPUT " ",VARTEK$ 1830 IF LEN(VARTEK$)>B THEN VARTEKST$=VARTEK$ 1840 CURSOR 13,LINIE 1850 PRINT VARTEKST$;BLANK$;BLANK$ 1860 REPEAT 1870 CURSOR 44,LINIE 1880 INPUT " ",VARPRI$ 1885 IF LEN(VARPRI$)=B THEN EXIT 1890 IF VARPRI$(LEN(VARPRI$))<>"+" THEN VARPRI$=VARPRI$+"+" 1900 EXEC CALC(6,VARPRI$,TAH$,VARPRI$) 1910 UNTIL FLAG=B 1915 IF LEN(VARPRI$)>B THEN VARPRIS$=VARPRI$ 1920 CURSOR 45,LINIE 1930 EXEC TUD(VARPRIS$,TAL4$,B,B) 1935 PRINT TAL4$ 1936 VARKONTO=VARKONT 1940 REPEAT 1950 REPEAT 1960 CURSOR 61,LINIE 1970 PRINT BLANK$ 1980 CURSOR 61,LINIE 1990 INPUT " ",TAL1$ 2000 EXEC NRTEST(TAL1$) 2010 UNTIL (P<E OR KTAL=VTAL) AND TEST2=B 2020 VARKONT=P;CEKS=E 2030 IF P>B THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 2040 UNTIL P<E OR CEKS=B 2050 IF P=B THEN VARKONT=DIVNR 2055 IF P=-E THEN VARKONT=VARKONTO 2060 CURSOR 61,LINIE 2070 PRINT USING "####### ":VARKONT 2071 UNDK=UNDKONT 2072 REPEAT 2073 CURSOR 69,LINIE 2074 PRINT BLANK$(E:18) 2075 CURSOR 69,LINIE 2076 INPUT " ",TAL1$ 2077 EXEC NRTEST(TAL1$) 2078 UNTIL (P<E OR (P>W AND P<99)) AND TEST2=B 2079 UNDKONT=P 2080 IF P=B THEN UNDKONT=DUNDKONT 2081 IF P=-E THEN UNDKONT=UNDK 2082 CURSOR 69,LINIE 2083 PRINT USING "#######":UNDKONT 2084 ENDPROC 2090 PROC VARELTEK 2100 CURSOR V,4 2110 PRINT "Varenr Varetekst" 2120 CURSOR 49,4 2130 PRINT "Varepris Varekonto Underkonto" 2140 LINIE=6 2150 ENDPROC 2160 PROC OVERSKRI 2162 SIDENR=SIDENR+E 2164 IF SIDENR>E THEN PRINT " " 2165 PRINT TAB(67);DV$;" " 2170 PRINT TAB(10);CHR(14);"Varefortegnelse";CHR(15); 2180 PRINT TAB(39);"Dato:";TAB(47); 2190 PRINT USING "###.##":(DATO MOD 10000)/100; 2200 PRINT TAB(44); 2210 PRINT USING "###.#":(DATO DIV 1000)/10; 2211 PRINT TAB(54);"Side:";SIDENR 2230 PRINT " Varenr Varetekst";TAB(47);"Varepris Varekonto Underkonto" 2250 PRINT STREG$ 2260 ENDPROC 2270 K1$="P641220:SYSTEM1" 2280 OPEN K1$,R 2290 EXEC FEJL(W,E,K1$) 2300 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL 2310 EXEC FEJL(W,G,K1$) 2320 GET K1$,4:MKPOST,MFAK,MVGR 2330 EXEC FEJL(W,V,K1$) 2340 GET K1$,8:DIVNR 2350 EXEC FEJL(W,21,K1$) 2360 GET K1$,W:KRTAL,VTAL 2370 EXEC FEJL(W,4,K1$) 2380 GET K1$,10:N$ 2390 EXEC FEJL(W,5,K1$) 2400 GET K1$,11:K2$ 2410 EXEC FEJL(W,6,K1$) 2420 GET K1$,14:K3$ 2430 EXEC FEJL(W,7,K1$) 2440 GET K1$,18:K4$ 2450 EXEC FEJL(W,8,K1$) 2460 GET K1$,36:K5$ 2470 EXEC FEJL(W,W,K1$) 2471 GET K1$,43:I,I,I,DUNDKONT 2472 EXEC FEJL(W,95,K1$) 2480 CLOSE K1$ 2490 EXEC FEJL(W,10,K1$) 2500 DIM VTAB(MVANTAL,G),FTAB1(MFANTAL DIV 4),FTAB(4,G) 2510 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$ 2520 OPEN K5$,W 2530 EXEC FEJL(W,11,K5$) 2540 GET K5$,G:T1,T1,T1,T1,T1,T1,DATO 2550 EXEC FEJL(W,12,K5$) 2560 GET K5$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE 2570 EXEC FEJL(W,13,K5$) 2580 GET K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 2590 EXEC FEJL(W,14,K5$) 2600 T3(6)=E 2610 PUT K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 2620 EXEC FEJL(W,15,K5$) 2622 GET K5$,20:DV$ 2624 EXEC FEJL(W,25,K5$) 2630 CLOSE K5$ 2640 EXEC FEJL(W,16,K5$) 2650 OPEN K2$,R 2660 EXEC FEJL(W,17,K2$) 2670 OPEN K3$,W 2680 EXEC FEJL(W,18,K3$) 2690 OPEN K4$,W 2700 EXEC FEJL(W,19,K4$) 2710 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 2720 EXEC INDTAB(VTAB,MVANTAL,K3$) 2725 SIDENR=B 2730 REPEAT 2740 CLEAR 2750 CURSOR 21,E 2760 PRINT "Varevedligeholdelse." 2770 CURSOR 11,4 2780 PRINT "0: Færdig." 2790 CURSOR 11,6 2800 PRINT "1: Ny vare." 2810 CURSOR 11,8 2820 PRINT "2: Ændring af vare." 2830 CURSOR 11,10 2840 PRINT "3: Sletning af vare." 2850 CURSOR 11,12 2860 PRINT "4: Udskrift af vare." 2870 CURSOR 11,14 2880 PRINT "5: Printerudskrift af vare." 2890 REPEAT 2900 CURSOR 11,17 2910 INPUT "Vælg 0-5:",SVAR$ 2920 UNTIL SVAR$<"6" AND SVAR$=>"0" 2930 CLEAR 2940 CURSOR 21,E 2950 PRINT "Varevedligeholdelse. "; 2960 CASE SVAR$ OF 2970 CLEAR 2980 WHEN "1" 3000 EXEC VARHOVED 3010 REPEAT 3015 IF AVARE<MVANTAL THEN 3020 VARTEKST$=BLANK$ 3030 REPEAT 3040 REPEAT 3050 CURSOR E,LINIE 3060 PRINT BLANK$ 3070 CURSOR E,LINIE 3080 INPUT " ",TAL1$ 3090 EXEC NRTEST(TAL1$) 3100 UNTIL (P>4 AND P<=999999 OR P=B) AND TEST2=B 3110 VARENR=P 3120 IF VARENR=B THEN EXIT 3130 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3) 3140 IF CEKS=B THEN 3150 EXEC HENTVPOST 3160 EXEC VALINUD 3170 LINIE=LINIE+E 3180 IF LINIE>23 THEN EXEC LINIETEST 3190 ENDIF 3200 UNTIL CEKS=E 3205 IF VARENR=B THEN EXIT 3210 CURSOR G,LINIE 3220 PRINT USING "####### ":VARENR 3230 CURSOR 12,LINIE 3240 INPUT " ",VARTEKST$ 3250 CURSOR 13,LINIE 3260 PRINT VARTEKST$;BLANK$;BLANK$ 3270 REPEAT 3275 REPEAT 3280 CURSOR 44,LINIE 3290 INPUT " ",VARPRIS$ 3295 UNTIL LEN(VARPRIS$)>B 3300 IF VARPRIS$(LEN(VARPRIS$))<>"+" THEN VARPRIS$=VARPRIS$+"+" 3310 EXEC CALC(6,VARPRIS$,TAH$,VARPRIS$) 3320 UNTIL FLAG=B 3330 CURSOR 45,LINIE 3340 EXEC TUD(VARPRIS$,TAL4$,B,B) 3345 PRINT TAL4$ 3350 REPEAT 3360 REPEAT 3370 CURSOR 61,LINIE 3380 PRINT BLANK$ 3390 CURSOR 61,LINIE 3400 INPUT " ",TAL1$ 3410 EXEC NRTEST(TAL1$) 3420 UNTIL (KTAL=VTAL OR P=B) AND TEST2=B 3430 VARKONT=P;CEKS=E 3440 IF P>B THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 3450 UNTIL P=B OR CEKS=B 3460 IF P=B THEN VARKONT=DIVNR 3470 CURSOR 60,LINIE 3480 PRINT USING "####### ":VARKONT 3481 REPEAT 3482 CURSOR 69,LINIE 3483 PRINT BLANK$(E:18) 3484 CURSOR 69,LINIE 3485 INPUT " ",TAL1$ 3486 EXEC NRTEST(TAL1$) 3487 UNTIL (P=B OR (P>W AND P<99)) AND TEST2=B 3488 UNDKONT=P 3489 IF P=B THEN UNDKONT=DUNDKONT 3490 CURSOR 68,LINIE 3491 PRINT USING "#######":UNDKONT 3492 CURSOR E,24 3495 EXEC INDSÆT1(VTAB,AVARE,VARENR,VPIL3) 3500 EXEC GEMVPOST 3510 LINIE=LINIE+E 3520 IF LINIE>23 THEN EXEC LINTEST 3540 ELSE 3550 CURSOR 5,21 3560 INPUT "Der er ikke plads til flere varer. Tast RETURN.",SVAR1$ 3565 VARENR=B 3570 ENDIF 3575 UNTIL VARENR=B 3580 WHEN "2","3","4" 3590 REPEAT 3600 CLEAR 3610 CURSOR 21,E 3620 PRINT "Varevedligeholdelse. "; 3630 CASE SVAR$ OF 3640 WHEN "2" 3650 PRINT "Ændring af vare." 3660 WHEN "3" 3670 PRINT "Sletning af vare." 3680 WHEN "4" 3690 PRINT "Udskrift af vare." 3700 ENDCASE 3710 REPEAT 3720 CURSOR 11,4 3730 PRINT BLANK$ 3740 CURSOR 11,4 3750 INPUT "Varenummer, 0 for færdig:",TAL1$ 3760 EXEC NRTEST(TAL1$) 3770 UNTIL (P>4 AND P<=999999 OR P=B) AND TEST2=B 3780 VARENR=P 3790 CURSOR 11,4 3800 PRINT BLANK$;BLANK$ 3810 IF VARENR=B THEN EXIT 3820 CURSOR E,24 3830 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3) 3840 IF CEKS=B THEN 3850 EXEC VARELTEK 3855 EXEC HENTVPOST 3860 EXEC VALINUD 3870 CASE SVAR$ OF 3880 WHEN "2" 3890 LINIE=7 3900 EXEC VAREÆND 3910 CURSOR E,24 3920 EXEC GEMVPOST 3930 WHEN "3" 3940 IF T2(4)>B THEN 3950 CURSOR 16,11 3960 PRINT "Der er fakturaer til udskrift" 3970 CURSOR 16,13 3980 INPUT "og ingen varer kan slettes. Tast RETURN.",SVAR1$ 3990 SVAR1$="N" 4000 ELSE 4010 REPEAT 4020 CURSOR 16,11 4030 INPUT "Ønskes varen slettet (J/N):",SVAR1$ 4040 UNTIL SVAR1$="J" OR SVAR1$="N" 4050 ENDIF 4060 IF SVAR1$="J" THEN 4070 EXEC SLETVPOST 4080 CURSOR 16,11 4090 PRINT USING "Varenummer ####### er slettet. Tast RETURN.":VARENR 4100 INPUT " ",SVAR1$ 4110 ENDIF 4120 WHEN "4" 4130 CURSOR 16,11 4140 INPUT "Tast RETURN",SVAR1$ 4150 ENDCASE 4160 ELSE 4170 CURSOR V,4 4180 PRINT USING "Varenummer ####### eksistere ikke.Tast RETURN.":VARENR 4190 INPUT " ",SVAR1$ 4200 ENDIF 4210 UNTIL VARENR=B 4220 WHEN "5" 4230 REPEAT 4240 REPEAT 4250 SIDENR=B 4260 CURSOR V,23 4270 PRINT "Fra varenummer (0:Alle)" 4280 CURSOR 17,23 4290 INPUT TAL1$ 4300 EXEC NRTEST(TAL1$) 4310 UNTIL P>4 AND TEST2=B OR P=B 4320 IF P=B THEN 4330 FRA=E;TIL=AVARE 4340 ELSE 4350 KONT=P 4360 EXEC FINDPOST(VTAB,MVANTAL,P,VPIL3) 4370 IF VTAB(VPIL3,E)<KONT THEN VPIL3=VPIL3+E 4380 FRA=VPIL3 4381 ENDIF 4382 UNTIL FRA<=AVARE 4383 IF P>B THEN 4384 REPEAT 4385 CURSOR V,23 4386 PRINT "Til varenummer " 4387 CURSOR 17,23 4388 INPUT TAL1$ 4389 EXEC NRTEST(TAL1$) 4390 UNTIL P=>KONT AND TEST2=B 4391 EXEC FINDPOST(VTAB,MVANTAL,P,VPIL3) 4392 IF VTAB(VPIL3,E)>P THEN VPIL3=VPIL3-E 4393 TIL=VPIL3 4394 ENDIF 4395 REPEAT 4396 CLEAR 4399 CURSOR 15,13 4400 INPUT "Monter papir til udskrift og tast RETURN",SVAR1$ 4405 UNTIL ORD(SVAR1$)=255 4410 OUTPUT P 4450 FOR I=FRA TO TIL STEP 40 4460 EXEC OVERSKRI 4470 FOR VPIL3=I TO I+39 4472 IF VTAB(VPIL3,E)>B THEN 4473 EXEC HENTVPOST 4480 PRINT USING " #######":VARENR; 4490 PRINT TAB(13);VARTEKST$;TAB(45);VARPRIS$(E:11);TAB(61); 4500 PRINT USING "####### #######":VARKONT,UNDKONT 4510 ENDIF 4520 IF VPIL3=TIL THEN EXIT 4530 NEXT VPIL3 4532 PRINT CHR(10);CHR(10) 4550 IF VPIL3=TIL AND VPIL3<I+40 THEN EXIT 4555 NEXT I 4570 FOR J=VPIL3+E TO I+39 4580 PRINT " " 4600 NEXT J 4620 OUTPUT T 4630 ENDCASE 4640 UNTIL SVAR$="0" 4650 EXEC UDTAB(VTAB,MVANTAL,K3$) 4660 CLOSE K3$ 4670 EXEC FEJL(W,30,K3$) 4680 CLOSE K4$ 4690 EXEC FEJL(W,31,K4$) 4700 CLOSE K2$ 4710 T3(6)=B 4720 OPEN K5$,W 4730 EXEC FEJL(W,32,K5$) 4740 PUT K5$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE 4750 EXEC FEJL(W,33,K5$) 4760 PUT K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W) 4770 EXEC FEJL(W,34,K5$) 4780 CLOSE K5$ 4790 EXEC FEJL(W,35,K5$) 4800 CHAIN "P641210:OPSTART"
0x0000…005d (0,) 8db4 0090 DIM OP1$(12),OP2$(12),RES$(15),TAL2$(12),BLANK$(25),BLB2$(12)
0x0000…005d LineComalBin {
0x0000…005d ptr = 0x8db4 // 0x0 @0x0
0x0000…005d lno = 0x005a // 0x2 @0x2
0x0000…005d at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…005d at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…005d at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…005d at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…005d at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…005d at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…005d at000a = ╱31╱1╱ // 0xa @0xa
0x0000…005d at000b = ╱32╱2╱ // 0xb @0xb
0x0000…005d at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…005d at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…005d at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…005d at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…005d at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…005d at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…005d at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…005d at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…005d at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…005d at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…005d at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…005d at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…005d at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…005d at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…005d at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…005d at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…005d at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…005d at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…005d at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…005d at0027 = ╱35╱5╱ // 0x27 @0x27
0x0000…005d at0028 = ╱fe0000f004╱ // 0x28 @0x28
0x0000…005d at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…005d at002e = ╱ec╱,╱ // 0x2e @0x2e
0x0000…005d at002f = ╱54╱T╱ // 0x2f @0x2f
0x0000…005d at0030 = ╱41╱A╱ // 0x30 @0x30
0x0000…005d at0031 = ╱4c╱L╱ // 0x31 @0x31
0x0000…005d at0032 = ╱32╱2╱ // 0x32 @0x32
0x0000…005d at0033 = ╱ef╱$╱ // 0x33 @0x33
0x0000…005d at0034 = ╱ed╱(╱ // 0x34 @0x34
0x0000…005d at0035 = ╱31╱1╱ // 0x35 @0x35
0x0000…005d at0036 = ╱32╱2╱ // 0x36 @0x36
0x0000…005d at0037 = ╱fe0000c004╱ // 0x37 @0x37
0x0000…005d at003c = ╱ee╱)╱ // 0x3c @0x3c
0x0000…005d at003d = ╱ec╱,╱ // 0x3d @0x3d
0x0000…005d at003e = ╱42╱B╱ // 0x3e @0x3e
0x0000…005d at003f = ╱4c╱L╱ // 0x3f @0x3f
0x0000…005d at0040 = ╱41╱A╱ // 0x40 @0x40
0x0000…005d at0041 = ╱4e╱N╱ // 0x41 @0x41
0x0000…005d at0042 = ╱4b╱K╱ // 0x42 @0x42
0x0000…005d at0043 = ╱ef╱$╱ // 0x43 @0x43
0x0000…005d at0044 = ╱ed╱(╱ // 0x44 @0x44
0x0000…005d at0045 = ╱32╱2╱ // 0x45 @0x45
0x0000…005d at0046 = ╱35╱5╱ // 0x46 @0x46
0x0000…005d at0047 = ╱fe0000c805╱ // 0x47 @0x47
0x0000…005d at004c = ╱ee╱)╱ // 0x4c @0x4c
0x0000…005d at004d = ╱ec╱,╱ // 0x4d @0x4d
0x0000…005d at004e = ╱42╱B╱ // 0x4e @0x4e
0x0000…005d at004f = ╱4c╱L╱ // 0x4f @0x4f
0x0000…005d at0050 = ╱42╱B╱ // 0x50 @0x50
0x0000…005d at0051 = ╱32╱2╱ // 0x51 @0x51
0x0000…005d at0052 = ╱ef╱$╱ // 0x52 @0x52
0x0000…005d at0053 = ╱ed╱(╱ // 0x53 @0x53
0x0000…005d at0054 = ╱31╱1╱ // 0x54 @0x54
0x0000…005d at0055 = ╱32╱2╱ // 0x55 @0x55
0x0000…005d at0056 = ╱fe0000c004╱ // 0x56 @0x56
0x0000…005d at005b = ╱ee╱)╱ // 0x5b @0x5b
0x0000…005d at005c = EOL // 0x5c @0x5c
0x0000…005d }
0x005d…00be 8e15 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),K4$(17),K5$(17),STREG$(77)
0x005d…00be LineComalBin {
0x005d…00be ptr = 0x8e15 // 0x5d @0x0
0x005d…00be lno = 0x0064 // 0x5f @0x2
0x005d…00be at0004 = ╱87╱ DIM ╱ // 0x61 @0x4
0x005d…00be at0005 = ╱4b╱K╱ // 0x62 @0x5
0x005d…00be at0006 = ╱31╱1╱ // 0x63 @0x6
0x005d…00be at0007 = ╱ef╱$╱ // 0x64 @0x7
0x005d…00be at0008 = ╱ed╱(╱ // 0x65 @0x8
0x005d…00be at0009 = ╱31╱1╱ // 0x66 @0x9
0x005d…00be at000a = ╱37╱7╱ // 0x67 @0xa
0x005d…00be at000b = ╱fe00008805╱ // 0x68 @0xb
0x005d…00be at0010 = ╱ee╱)╱ // 0x6d @0x10
0x005d…00be at0011 = ╱ec╱,╱ // 0x6e @0x11
0x005d…00be at0012 = ╱4e╱N╱ // 0x6f @0x12
0x005d…00be at0013 = ╱ef╱$╱ // 0x70 @0x13
0x005d…00be at0014 = ╱ed╱(╱ // 0x71 @0x14
0x005d…00be at0015 = ╱36╱6╱ // 0x72 @0x15
0x005d…00be at0016 = ╱fe0000c003╱ // 0x73 @0x16
0x005d…00be at001b = ╱ee╱)╱ // 0x78 @0x1b
0x005d…00be at001c = ╱ec╱,╱ // 0x79 @0x1c
0x005d…00be at001d = ╱4b╱K╱ // 0x7a @0x1d
0x005d…00be at001e = ╱32╱2╱ // 0x7b @0x1e
0x005d…00be at001f = ╱ef╱$╱ // 0x7c @0x1f
0x005d…00be at0020 = ╱ed╱(╱ // 0x7d @0x20
0x005d…00be at0021 = ╱31╱1╱ // 0x7e @0x21
0x005d…00be at0022 = ╱37╱7╱ // 0x7f @0x22
0x005d…00be at0023 = ╱fe00008805╱ // 0x80 @0x23
0x005d…00be at0028 = ╱ee╱)╱ // 0x85 @0x28
0x005d…00be at0029 = ╱ec╱,╱ // 0x86 @0x29
0x005d…00be at002a = ╱4b╱K╱ // 0x87 @0x2a
0x005d…00be at002b = ╱33╱3╱ // 0x88 @0x2b
0x005d…00be at002c = ╱ef╱$╱ // 0x89 @0x2c
0x005d…00be at002d = ╱ed╱(╱ // 0x8a @0x2d
0x005d…00be at002e = ╱31╱1╱ // 0x8b @0x2e
0x005d…00be at002f = ╱37╱7╱ // 0x8c @0x2f
0x005d…00be at0030 = ╱fe00008805╱ // 0x8d @0x30
0x005d…00be at0035 = ╱ee╱)╱ // 0x92 @0x35
0x005d…00be at0036 = ╱ec╱,╱ // 0x93 @0x36
0x005d…00be at0037 = ╱4b╱K╱ // 0x94 @0x37
0x005d…00be at0038 = ╱34╱4╱ // 0x95 @0x38
0x005d…00be at0039 = ╱ef╱$╱ // 0x96 @0x39
0x005d…00be at003a = ╱ed╱(╱ // 0x97 @0x3a
0x005d…00be at003b = ╱31╱1╱ // 0x98 @0x3b
0x005d…00be at003c = ╱37╱7╱ // 0x99 @0x3c
0x005d…00be at003d = ╱fe00008805╱ // 0x9a @0x3d
0x005d…00be at0042 = ╱ee╱)╱ // 0x9f @0x42
0x005d…00be at0043 = ╱ec╱,╱ // 0xa0 @0x43
0x005d…00be at0044 = ╱4b╱K╱ // 0xa1 @0x44
0x005d…00be at0045 = ╱35╱5╱ // 0xa2 @0x45
0x005d…00be at0046 = ╱ef╱$╱ // 0xa3 @0x46
0x005d…00be at0047 = ╱ed╱(╱ // 0xa4 @0x47
0x005d…00be at0048 = ╱31╱1╱ // 0xa5 @0x48
0x005d…00be at0049 = ╱37╱7╱ // 0xa6 @0x49
0x005d…00be at004a = ╱fe00008805╱ // 0xa7 @0x4a
0x005d…00be at004f = ╱ee╱)╱ // 0xac @0x4f
0x005d…00be at0050 = ╱ec╱,╱ // 0xad @0x50
0x005d…00be at0051 = ╱53╱S╱ // 0xae @0x51
0x005d…00be at0052 = ╱54╱T╱ // 0xaf @0x52
0x005d…00be at0053 = ╱52╱R╱ // 0xb0 @0x53
0x005d…00be at0054 = ╱45╱E╱ // 0xb1 @0x54
0x005d…00be at0055 = ╱47╱G╱ // 0xb2 @0x55
0x005d…00be at0056 = ╱ef╱$╱ // 0xb3 @0x56
0x005d…00be at0057 = ╱ed╱(╱ // 0xb4 @0x57
0x005d…00be at0058 = ╱37╱7╱ // 0xb5 @0x58
0x005d…00be at0059 = ╱37╱7╱ // 0xb6 @0x59
0x005d…00be at005a = ╱fe00009a07╱ // 0xb7 @0x5a
0x005d…00be at005f = ╱ee╱)╱ // 0xbc @0x5f
0x005d…00be at0060 = EOL // 0xbd @0x60
0x005d…00be }
0x00be…010b 8e62 0110 DIM SVAR$(E),VARTEKST$(25),VARPRIS$(12),TAH$(12),T2(W),T3(W)
0x00be…010b LineComalBin {
0x00be…010b ptr = 0x8e62 // 0xbe @0x0
0x00be…010b lno = 0x006e // 0xc0 @0x2
0x00be…010b at0004 = ╱87╱ DIM ╱ // 0xc2 @0x4
0x00be…010b at0005 = ╱53╱S╱ // 0xc3 @0x5
0x00be…010b at0006 = ╱56╱V╱ // 0xc4 @0x6
0x00be…010b at0007 = ╱41╱A╱ // 0xc5 @0x7
0x00be…010b at0008 = ╱52╱R╱ // 0xc6 @0x8
0x00be…010b at0009 = ╱ef╱$╱ // 0xc7 @0x9
0x00be…010b at000a = ╱ed╱(╱ // 0xc8 @0xa
0x00be…010b at000b = ╱45╱E╱ // 0xc9 @0xb
0x00be…010b at000c = ╱ee╱)╱ // 0xca @0xc
0x00be…010b at000d = ╱ec╱,╱ // 0xcb @0xd
0x00be…010b at000e = ╱56╱V╱ // 0xcc @0xe
0x00be…010b at000f = ╱41╱A╱ // 0xcd @0xf
0x00be…010b at0010 = ╱52╱R╱ // 0xce @0x10
0x00be…010b at0011 = ╱54╱T╱ // 0xcf @0x11
0x00be…010b at0012 = ╱45╱E╱ // 0xd0 @0x12
0x00be…010b at0013 = ╱4b╱K╱ // 0xd1 @0x13
0x00be…010b at0014 = ╱53╱S╱ // 0xd2 @0x14
0x00be…010b at0015 = ╱54╱T╱ // 0xd3 @0x15
0x00be…010b at0016 = ╱ef╱$╱ // 0xd4 @0x16
0x00be…010b at0017 = ╱ed╱(╱ // 0xd5 @0x17
0x00be…010b at0018 = ╱32╱2╱ // 0xd6 @0x18
0x00be…010b at0019 = ╱35╱5╱ // 0xd7 @0x19
0x00be…010b at001a = ╱fe0000c805╱ // 0xd8 @0x1a
0x00be…010b at001f = ╱ee╱)╱ // 0xdd @0x1f
0x00be…010b at0020 = ╱ec╱,╱ // 0xde @0x20
0x00be…010b at0021 = ╱56╱V╱ // 0xdf @0x21
0x00be…010b at0022 = ╱41╱A╱ // 0xe0 @0x22
0x00be…010b at0023 = ╱52╱R╱ // 0xe1 @0x23
0x00be…010b at0024 = ╱50╱P╱ // 0xe2 @0x24
0x00be…010b at0025 = ╱52╱R╱ // 0xe3 @0x25
0x00be…010b at0026 = ╱49╱I╱ // 0xe4 @0x26
0x00be…010b at0027 = ╱53╱S╱ // 0xe5 @0x27
0x00be…010b at0028 = ╱ef╱$╱ // 0xe6 @0x28
0x00be…010b at0029 = ╱ed╱(╱ // 0xe7 @0x29
0x00be…010b at002a = ╱31╱1╱ // 0xe8 @0x2a
0x00be…010b at002b = ╱32╱2╱ // 0xe9 @0x2b
0x00be…010b at002c = ╱fe0000c004╱ // 0xea @0x2c
0x00be…010b at0031 = ╱ee╱)╱ // 0xef @0x31
0x00be…010b at0032 = ╱ec╱,╱ // 0xf0 @0x32
0x00be…010b at0033 = ╱54╱T╱ // 0xf1 @0x33
0x00be…010b at0034 = ╱41╱A╱ // 0xf2 @0x34
0x00be…010b at0035 = ╱48╱H╱ // 0xf3 @0x35
0x00be…010b at0036 = ╱ef╱$╱ // 0xf4 @0x36
0x00be…010b at0037 = ╱ed╱(╱ // 0xf5 @0x37
0x00be…010b at0038 = ╱31╱1╱ // 0xf6 @0x38
0x00be…010b at0039 = ╱32╱2╱ // 0xf7 @0x39
0x00be…010b at003a = ╱fe0000c004╱ // 0xf8 @0x3a
0x00be…010b at003f = ╱ee╱)╱ // 0xfd @0x3f
0x00be…010b at0040 = ╱ec╱,╱ // 0xfe @0x40
0x00be…010b at0041 = ╱54╱T╱ // 0xff @0x41
0x00be…010b at0042 = ╱32╱2╱ // 0x100 @0x42
0x00be…010b at0043 = ╱ed╱(╱ // 0x101 @0x43
0x00be…010b at0044 = ╱57╱W╱ // 0x102 @0x44
0x00be…010b at0045 = ╱ee╱)╱ // 0x103 @0x45
0x00be…010b at0046 = ╱ec╱,╱ // 0x104 @0x46
0x00be…010b at0047 = ╱54╱T╱ // 0x105 @0x47
0x00be…010b at0048 = ╱33╱3╱ // 0x106 @0x48
0x00be…010b at0049 = ╱ed╱(╱ // 0x107 @0x49
0x00be…010b at004a = ╱57╱W╱ // 0x108 @0x4a
0x00be…010b at004b = ╱ee╱)╱ // 0x109 @0x4b
0x00be…010b at004c = EOL // 0x10a @0x4c
0x00be…010b }
0x010b…0167 8ebe 0120 DIM TAL1$(12),TAL4$(14),SVAR1$(E),VARPRI$(12),VARTEK$(25),DV$(10)
0x010b…0167 LineComalBin {
0x010b…0167 ptr = 0x8ebe // 0x10b @0x0
0x010b…0167 lno = 0x0078 // 0x10d @0x2
0x010b…0167 at0004 = ╱87╱ DIM ╱ // 0x10f @0x4
0x010b…0167 at0005 = ╱54╱T╱ // 0x110 @0x5
0x010b…0167 at0006 = ╱41╱A╱ // 0x111 @0x6
0x010b…0167 at0007 = ╱4c╱L╱ // 0x112 @0x7
0x010b…0167 at0008 = ╱31╱1╱ // 0x113 @0x8
0x010b…0167 at0009 = ╱ef╱$╱ // 0x114 @0x9
0x010b…0167 at000a = ╱ed╱(╱ // 0x115 @0xa
0x010b…0167 at000b = ╱31╱1╱ // 0x116 @0xb
0x010b…0167 at000c = ╱32╱2╱ // 0x117 @0xc
0x010b…0167 at000d = ╱fe0000c004╱ // 0x118 @0xd
0x010b…0167 at0012 = ╱ee╱)╱ // 0x11d @0x12
0x010b…0167 at0013 = ╱ec╱,╱ // 0x11e @0x13
0x010b…0167 at0014 = ╱54╱T╱ // 0x11f @0x14
0x010b…0167 at0015 = ╱41╱A╱ // 0x120 @0x15
0x010b…0167 at0016 = ╱4c╱L╱ // 0x121 @0x16
0x010b…0167 at0017 = ╱34╱4╱ // 0x122 @0x17
0x010b…0167 at0018 = ╱ef╱$╱ // 0x123 @0x18
0x010b…0167 at0019 = ╱ed╱(╱ // 0x124 @0x19
0x010b…0167 at001a = ╱31╱1╱ // 0x125 @0x1a
0x010b…0167 at001b = ╱34╱4╱ // 0x126 @0x1b
0x010b…0167 at001c = ╱fe0000e004╱ // 0x127 @0x1c
0x010b…0167 at0021 = ╱ee╱)╱ // 0x12c @0x21
0x010b…0167 at0022 = ╱ec╱,╱ // 0x12d @0x22
0x010b…0167 at0023 = ╱53╱S╱ // 0x12e @0x23
0x010b…0167 at0024 = ╱56╱V╱ // 0x12f @0x24
0x010b…0167 at0025 = ╱41╱A╱ // 0x130 @0x25
0x010b…0167 at0026 = ╱52╱R╱ // 0x131 @0x26
0x010b…0167 at0027 = ╱31╱1╱ // 0x132 @0x27
0x010b…0167 at0028 = ╱ef╱$╱ // 0x133 @0x28
0x010b…0167 at0029 = ╱ed╱(╱ // 0x134 @0x29
0x010b…0167 at002a = ╱45╱E╱ // 0x135 @0x2a
0x010b…0167 at002b = ╱ee╱)╱ // 0x136 @0x2b
0x010b…0167 at002c = ╱ec╱,╱ // 0x137 @0x2c
0x010b…0167 at002d = ╱56╱V╱ // 0x138 @0x2d
0x010b…0167 at002e = ╱41╱A╱ // 0x139 @0x2e
0x010b…0167 at002f = ╱52╱R╱ // 0x13a @0x2f
0x010b…0167 at0030 = ╱50╱P╱ // 0x13b @0x30
0x010b…0167 at0031 = ╱52╱R╱ // 0x13c @0x31
0x010b…0167 at0032 = ╱49╱I╱ // 0x13d @0x32
0x010b…0167 at0033 = ╱ef╱$╱ // 0x13e @0x33
0x010b…0167 at0034 = ╱ed╱(╱ // 0x13f @0x34
0x010b…0167 at0035 = ╱31╱1╱ // 0x140 @0x35
0x010b…0167 at0036 = ╱32╱2╱ // 0x141 @0x36
0x010b…0167 at0037 = ╱fe0000c004╱ // 0x142 @0x37
0x010b…0167 at003c = ╱ee╱)╱ // 0x147 @0x3c
0x010b…0167 at003d = ╱ec╱,╱ // 0x148 @0x3d
0x010b…0167 at003e = ╱56╱V╱ // 0x149 @0x3e
0x010b…0167 at003f = ╱41╱A╱ // 0x14a @0x3f
0x010b…0167 at0040 = ╱52╱R╱ // 0x14b @0x40
0x010b…0167 at0041 = ╱54╱T╱ // 0x14c @0x41
0x010b…0167 at0042 = ╱45╱E╱ // 0x14d @0x42
0x010b…0167 at0043 = ╱4b╱K╱ // 0x14e @0x43
0x010b…0167 at0044 = ╱ef╱$╱ // 0x14f @0x44
0x010b…0167 at0045 = ╱ed╱(╱ // 0x150 @0x45
0x010b…0167 at0046 = ╱32╱2╱ // 0x151 @0x46
0x010b…0167 at0047 = ╱35╱5╱ // 0x152 @0x47
0x010b…0167 at0048 = ╱fe0000c805╱ // 0x153 @0x48
0x010b…0167 at004d = ╱ee╱)╱ // 0x158 @0x4d
0x010b…0167 at004e = ╱ec╱,╱ // 0x159 @0x4e
0x010b…0167 at004f = ╱44╱D╱ // 0x15a @0x4f
0x010b…0167 at0050 = ╱56╱V╱ // 0x15b @0x50
0x010b…0167 at0051 = ╱ef╱$╱ // 0x15c @0x51
0x010b…0167 at0052 = ╱ed╱(╱ // 0x15d @0x52
0x010b…0167 at0053 = ╱31╱1╱ // 0x15e @0x53
0x010b…0167 at0054 = ╱30╱0╱ // 0x15f @0x54
0x010b…0167 at0055 = ╱fe0000a004╱ // 0x160 @0x55
0x010b…0167 at005a = ╱ee╱)╱ // 0x165 @0x5a
0x010b…0167 at005b = EOL // 0x166 @0x5b
0x010b…0167 }
0x0167…0198 8eef 0140 BLANK$=" ";TAH$="0+"
0x0167…0198 LineComalBin {
0x0167…0198 ptr = 0x8eef // 0x167 @0x0
0x0167…0198 lno = 0x008c // 0x169 @0x2
0x0167…0198 at0004 = ╱42╱B╱ // 0x16b @0x4
0x0167…0198 at0005 = ╱4c╱L╱ // 0x16c @0x5
0x0167…0198 at0006 = ╱41╱A╱ // 0x16d @0x6
0x0167…0198 at0007 = ╱4e╱N╱ // 0x16e @0x7
0x0167…0198 at0008 = ╱4b╱K╱ // 0x16f @0x8
0x0167…0198 at0009 = ╱ef╱$╱ // 0x170 @0x9
0x0167…0198 at000a = ╱dc╱=╱ // 0x171 @0xa
0x0167…0198 at000b = ╱22╱"╱ // 0x172 @0xb
0x0167…0198 at000c = ╱20╱…╱ // 0x173 @0xc
0x0167…0198 at000d = ╱20╱…╱ // 0x174 @0xd
0x0167…0198 at000e = ╱20╱…╱ // 0x175 @0xe
0x0167…0198 at000f = ╱20╱…╱ // 0x176 @0xf
0x0167…0198 at0010 = ╱20╱…╱ // 0x177 @0x10
0x0167…0198 at0011 = ╱20╱…╱ // 0x178 @0x11
0x0167…0198 at0012 = ╱20╱…╱ // 0x179 @0x12
0x0167…0198 at0013 = ╱20╱…╱ // 0x17a @0x13
0x0167…0198 at0014 = ╱20╱…╱ // 0x17b @0x14
0x0167…0198 at0015 = ╱20╱…╱ // 0x17c @0x15
0x0167…0198 at0016 = ╱20╱…╱ // 0x17d @0x16
0x0167…0198 at0017 = ╱20╱…╱ // 0x17e @0x17
0x0167…0198 at0018 = ╱20╱…╱ // 0x17f @0x18
0x0167…0198 at0019 = ╱20╱…╱ // 0x180 @0x19
0x0167…0198 at001a = ╱20╱…╱ // 0x181 @0x1a
0x0167…0198 at001b = ╱20╱…╱ // 0x182 @0x1b
0x0167…0198 at001c = ╱20╱…╱ // 0x183 @0x1c
0x0167…0198 at001d = ╱20╱…╱ // 0x184 @0x1d
0x0167…0198 at001e = ╱20╱…╱ // 0x185 @0x1e
0x0167…0198 at001f = ╱20╱…╱ // 0x186 @0x1f
0x0167…0198 at0020 = ╱20╱…╱ // 0x187 @0x20
0x0167…0198 at0021 = ╱20╱…╱ // 0x188 @0x21
0x0167…0198 at0022 = ╱20╱…╱ // 0x189 @0x22
0x0167…0198 at0023 = ╱20╱…╱ // 0x18a @0x23
0x0167…0198 at0024 = ╱20╱…╱ // 0x18b @0x24
0x0167…0198 at0025 = ╱22╱"╱ // 0x18c @0x25
0x0167…0198 at0026 = ╱eb╱;╱ // 0x18d @0x26
0x0167…0198 at0027 = ╱54╱T╱ // 0x18e @0x27
0x0167…0198 at0028 = ╱41╱A╱ // 0x18f @0x28
0x0167…0198 at0029 = ╱48╱H╱ // 0x190 @0x29
0x0167…0198 at002a = ╱ef╱$╱ // 0x191 @0x2a
0x0167…0198 at002b = ╱dc╱=╱ // 0x192 @0x2b
0x0167…0198 at002c = ╱22╱"╱ // 0x193 @0x2c
0x0167…0198 at002d = ╱30╱0╱ // 0x194 @0x2d
0x0167…0198 at002e = ╱2b╱+╱ // 0x195 @0x2e
0x0167…0198 at002f = ╱22╱"╱ // 0x196 @0x2f
0x0167…0198 at0030 = EOL // 0x197 @0x30
0x0167…0198 }
0x0198…01e1 8f38 0150 STREG$="--------------------------------------";STREG$=STREG$+STREG$
0x0198…01e1 LineComalBin {
0x0198…01e1 ptr = 0x8f38 // 0x198 @0x0
0x0198…01e1 lno = 0x0096 // 0x19a @0x2
0x0198…01e1 at0004 = ╱53╱S╱ // 0x19c @0x4
0x0198…01e1 at0005 = ╱54╱T╱ // 0x19d @0x5
0x0198…01e1 at0006 = ╱52╱R╱ // 0x19e @0x6
0x0198…01e1 at0007 = ╱45╱E╱ // 0x19f @0x7
0x0198…01e1 at0008 = ╱47╱G╱ // 0x1a0 @0x8
0x0198…01e1 at0009 = ╱ef╱$╱ // 0x1a1 @0x9
0x0198…01e1 at000a = ╱dc╱=╱ // 0x1a2 @0xa
0x0198…01e1 at000b = ╱22╱"╱ // 0x1a3 @0xb
0x0198…01e1 at000c = ╱2d╱-╱ // 0x1a4 @0xc
0x0198…01e1 at000d = ╱2d╱-╱ // 0x1a5 @0xd
0x0198…01e1 at000e = ╱2d╱-╱ // 0x1a6 @0xe
0x0198…01e1 at000f = ╱2d╱-╱ // 0x1a7 @0xf
0x0198…01e1 at0010 = ╱2d╱-╱ // 0x1a8 @0x10
0x0198…01e1 at0011 = ╱2d╱-╱ // 0x1a9 @0x11
0x0198…01e1 at0012 = ╱2d╱-╱ // 0x1aa @0x12
0x0198…01e1 at0013 = ╱2d╱-╱ // 0x1ab @0x13
0x0198…01e1 at0014 = ╱2d╱-╱ // 0x1ac @0x14
0x0198…01e1 at0015 = ╱2d╱-╱ // 0x1ad @0x15
0x0198…01e1 at0016 = ╱2d╱-╱ // 0x1ae @0x16
0x0198…01e1 at0017 = ╱2d╱-╱ // 0x1af @0x17
0x0198…01e1 at0018 = ╱2d╱-╱ // 0x1b0 @0x18
0x0198…01e1 at0019 = ╱2d╱-╱ // 0x1b1 @0x19
0x0198…01e1 at001a = ╱2d╱-╱ // 0x1b2 @0x1a
0x0198…01e1 at001b = ╱2d╱-╱ // 0x1b3 @0x1b
0x0198…01e1 at001c = ╱2d╱-╱ // 0x1b4 @0x1c
0x0198…01e1 at001d = ╱2d╱-╱ // 0x1b5 @0x1d
0x0198…01e1 at001e = ╱2d╱-╱ // 0x1b6 @0x1e
0x0198…01e1 at001f = ╱2d╱-╱ // 0x1b7 @0x1f
0x0198…01e1 at0020 = ╱2d╱-╱ // 0x1b8 @0x20
0x0198…01e1 at0021 = ╱2d╱-╱ // 0x1b9 @0x21
0x0198…01e1 at0022 = ╱2d╱-╱ // 0x1ba @0x22
0x0198…01e1 at0023 = ╱2d╱-╱ // 0x1bb @0x23
0x0198…01e1 at0024 = ╱2d╱-╱ // 0x1bc @0x24
0x0198…01e1 at0025 = ╱2d╱-╱ // 0x1bd @0x25
0x0198…01e1 at0026 = ╱2d╱-╱ // 0x1be @0x26
0x0198…01e1 at0027 = ╱2d╱-╱ // 0x1bf @0x27
0x0198…01e1 at0028 = ╱2d╱-╱ // 0x1c0 @0x28
0x0198…01e1 at0029 = ╱2d╱-╱ // 0x1c1 @0x29
0x0198…01e1 at002a = ╱2d╱-╱ // 0x1c2 @0x2a
0x0198…01e1 at002b = ╱2d╱-╱ // 0x1c3 @0x2b
0x0198…01e1 at002c = ╱2d╱-╱ // 0x1c4 @0x2c
0x0198…01e1 at002d = ╱2d╱-╱ // 0x1c5 @0x2d
0x0198…01e1 at002e = ╱2d╱-╱ // 0x1c6 @0x2e
0x0198…01e1 at002f = ╱2d╱-╱ // 0x1c7 @0x2f
0x0198…01e1 at0030 = ╱2d╱-╱ // 0x1c8 @0x30
0x0198…01e1 at0031 = ╱2d╱-╱ // 0x1c9 @0x31
0x0198…01e1 at0032 = ╱22╱"╱ // 0x1ca @0x32
0x0198…01e1 at0033 = ╱eb╱;╱ // 0x1cb @0x33
0x0198…01e1 at0034 = ╱53╱S╱ // 0x1cc @0x34
0x0198…01e1 at0035 = ╱54╱T╱ // 0x1cd @0x35
0x0198…01e1 at0036 = ╱52╱R╱ // 0x1ce @0x36
0x0198…01e1 at0037 = ╱45╱E╱ // 0x1cf @0x37
0x0198…01e1 at0038 = ╱47╱G╱ // 0x1d0 @0x38
0x0198…01e1 at0039 = ╱ef╱$╱ // 0x1d1 @0x39
0x0198…01e1 at003a = ╱dc╱=╱ // 0x1d2 @0x3a
0x0198…01e1 at003b = ╱53╱S╱ // 0x1d3 @0x3b
0x0198…01e1 at003c = ╱54╱T╱ // 0x1d4 @0x3c
0x0198…01e1 at003d = ╱52╱R╱ // 0x1d5 @0x3d
0x0198…01e1 at003e = ╱45╱E╱ // 0x1d6 @0x3e
0x0198…01e1 at003f = ╱47╱G╱ // 0x1d7 @0x3f
0x0198…01e1 at0040 = ╱ef╱$╱ // 0x1d8 @0x40
0x0198…01e1 at0041 = ╱f1╱+╱ // 0x1d9 @0x41
0x0198…01e1 at0042 = ╱53╱S╱ // 0x1da @0x42
0x0198…01e1 at0043 = ╱54╱T╱ // 0x1db @0x43
0x0198…01e1 at0044 = ╱52╱R╱ // 0x1dc @0x44
0x0198…01e1 at0045 = ╱45╱E╱ // 0x1dd @0x45
0x0198…01e1 at0046 = ╱47╱G╱ // 0x1de @0x46
0x0198…01e1 at0047 = ╱ef╱$╱ // 0x1df @0x47
0x0198…01e1 at0048 = EOL // 0x1e0 @0x48
0x0198…01e1 }
0x01e1…01ee 8f45 0160 PROC VALINUD
0x01e1…01ee LineComalBin {
0x01e1…01ee ptr = 0x8f45 // 0x1e1 @0x0
0x01e1…01ee lno = 0x00a0 // 0x1e3 @0x2
0x01e1…01ee at0004 = ╱9e╱ PROC ╱ // 0x1e5 @0x4
0x01e1…01ee at0005 = ╱56╱V╱ // 0x1e6 @0x5
0x01e1…01ee at0006 = ╱41╱A╱ // 0x1e7 @0x6
0x01e1…01ee at0007 = ╱4c╱L╱ // 0x1e8 @0x7
0x01e1…01ee at0008 = ╱49╱I╱ // 0x1e9 @0x8
0x01e1…01ee at0009 = ╱4e╱N╱ // 0x1ea @0x9
0x01e1…01ee at000a = ╱55╱U╱ // 0x1eb @0xa
0x01e1…01ee at000b = ╱44╱D╱ // 0x1ec @0xb
0x01e1…01ee at000c = EOL // 0x1ed @0xc
0x01e1…01ee }
0x01ee…01fb 8f52 0170 CURSOR G,LINIE
0x01ee…01fb LineComalBin {
0x01ee…01fb ptr = 0x8f52 // 0x1ee @0x0
0x01ee…01fb lno = 0x00aa // 0x1f0 @0x2
0x01ee…01fb at0004 = ╱a1╱ CURSOR ╱ // 0x1f2 @0x4
0x01ee…01fb at0005 = ╱47╱G╱ // 0x1f3 @0x5
0x01ee…01fb at0006 = ╱ec╱,╱ // 0x1f4 @0x6
0x01ee…01fb at0007 = ╱4c╱L╱ // 0x1f5 @0x7
0x01ee…01fb at0008 = ╱49╱I╱ // 0x1f6 @0x8
0x01ee…01fb at0009 = ╱4e╱N╱ // 0x1f7 @0x9
0x01ee…01fb at000a = ╱49╱I╱ // 0x1f8 @0xa
0x01ee…01fb at000b = ╱45╱E╱ // 0x1f9 @0xb
0x01ee…01fb at000c = EOL // 0x1fa @0xc
0x01ee…01fb }
0x01fb…0212 8f69 0180 PRINT USING "#######":VARENR
0x01fb…0212 LineComalBin {
0x01fb…0212 ptr = 0x8f69 // 0x1fb @0x0
0x01fb…0212 lno = 0x00b4 // 0x1fd @0x2
0x01fb…0212 at0004 = ╱92╱ PRINT ╱ // 0x1ff @0x4
0x01fb…0212 at0005 = ╱b9╱ USING ╱ // 0x200 @0x5
0x01fb…0212 at0006 = ╱22╱"╱ // 0x201 @0x6
0x01fb…0212 at0007 = ╱23╱#╱ // 0x202 @0x7
0x01fb…0212 at0008 = ╱23╱#╱ // 0x203 @0x8
0x01fb…0212 at0009 = ╱23╱#╱ // 0x204 @0x9
0x01fb…0212 at000a = ╱23╱#╱ // 0x205 @0xa
0x01fb…0212 at000b = ╱23╱#╱ // 0x206 @0xb
0x01fb…0212 at000c = ╱23╱#╱ // 0x207 @0xc
0x01fb…0212 at000d = ╱23╱#╱ // 0x208 @0xd
0x01fb…0212 at000e = ╱22╱"╱ // 0x209 @0xe
0x01fb…0212 at000f = ╱f0╱:╱ // 0x20a @0xf
0x01fb…0212 at0010 = ╱56╱V╱ // 0x20b @0x10
0x01fb…0212 at0011 = ╱41╱A╱ // 0x20c @0x11
0x01fb…0212 at0012 = ╱52╱R╱ // 0x20d @0x12
0x01fb…0212 at0013 = ╱45╱E╱ // 0x20e @0x13
0x01fb…0212 at0014 = ╱4e╱N╱ // 0x20f @0x14
0x01fb…0212 at0015 = ╱52╱R╱ // 0x210 @0x15
0x01fb…0212 at0016 = EOL // 0x211 @0x16
0x01fb…0212 }
0x0212…0225 8f7c 0190 CURSOR 13,LINIE
0x0212…0225 LineComalBin {
0x0212…0225 ptr = 0x8f7c // 0x212 @0x0
0x0212…0225 lno = 0x00be // 0x214 @0x2
0x0212…0225 at0004 = ╱a1╱ CURSOR ╱ // 0x216 @0x4
0x0212…0225 at0005 = ╱31╱1╱ // 0x217 @0x5
0x0212…0225 at0006 = ╱33╱3╱ // 0x218 @0x6
0x0212…0225 at0007 = ╱fe0000d004╱ // 0x219 @0x7
0x0212…0225 at000c = ╱ec╱,╱ // 0x21e @0xc
0x0212…0225 at000d = ╱4c╱L╱ // 0x21f @0xd
0x0212…0225 at000e = ╱49╱I╱ // 0x220 @0xe
0x0212…0225 at000f = ╱4e╱N╱ // 0x221 @0xf
0x0212…0225 at0010 = ╱49╱I╱ // 0x222 @0x10
0x0212…0225 at0011 = ╱45╱E╱ // 0x223 @0x11
0x0212…0225 at0012 = EOL // 0x224 @0x12
0x0212…0225 }
0x0225…0234 8f8b 0200 PRINT VARTEKST$
0x0225…0234 LineComalBin {
0x0225…0234 ptr = 0x8f8b // 0x225 @0x0
0x0225…0234 lno = 0x00c8 // 0x227 @0x2
0x0225…0234 at0004 = ╱92╱ PRINT ╱ // 0x229 @0x4
0x0225…0234 at0005 = ╱56╱V╱ // 0x22a @0x5
0x0225…0234 at0006 = ╱41╱A╱ // 0x22b @0x6
0x0225…0234 at0007 = ╱52╱R╱ // 0x22c @0x7
0x0225…0234 at0008 = ╱54╱T╱ // 0x22d @0x8
0x0225…0234 at0009 = ╱45╱E╱ // 0x22e @0x9
0x0225…0234 at000a = ╱4b╱K╱ // 0x22f @0xa
0x0225…0234 at000b = ╱53╱S╱ // 0x230 @0xb
0x0225…0234 at000c = ╱54╱T╱ // 0x231 @0xc
0x0225…0234 at000d = ╱ef╱$╱ // 0x232 @0xd
0x0225…0234 at000e = EOL // 0x233 @0xe
0x0225…0234 }
0x0234…0247 8f9e 0210 CURSOR 45,LINIE
0x0234…0247 LineComalBin {
0x0234…0247 ptr = 0x8f9e // 0x234 @0x0
0x0234…0247 lno = 0x00d2 // 0x236 @0x2
0x0234…0247 at0004 = ╱a1╱ CURSOR ╱ // 0x238 @0x4
0x0234…0247 at0005 = ╱34╱4╱ // 0x239 @0x5
0x0234…0247 at0006 = ╱35╱5╱ // 0x23a @0x6
0x0234…0247 at0007 = ╱fe0000b406╱ // 0x23b @0x7
0x0234…0247 at000c = ╱ec╱,╱ // 0x240 @0xc
0x0234…0247 at000d = ╱4c╱L╱ // 0x241 @0xd
0x0234…0247 at000e = ╱49╱I╱ // 0x242 @0xe
0x0234…0247 at000f = ╱4e╱N╱ // 0x243 @0xf
0x0234…0247 at0010 = ╱49╱I╱ // 0x244 @0x10
0x0234…0247 at0011 = ╱45╱E╱ // 0x245 @0x11
0x0234…0247 at0012 = EOL // 0x246 @0x12
0x0234…0247 }
0x0247…0264 8fbb 0220 EXEC TUD(VARPRIS$,TAL4$,B,B)
0x0247…0264 LineComalBin {
0x0247…0264 ptr = 0x8fbb // 0x247 @0x0
0x0247…0264 lno = 0x00dc // 0x249 @0x2
0x0247…0264 at0004 = ╱9d╱ EXEC ╱ // 0x24b @0x4
0x0247…0264 at0005 = ╱54╱T╱ // 0x24c @0x5
0x0247…0264 at0006 = ╱55╱U╱ // 0x24d @0x6
0x0247…0264 at0007 = ╱44╱D╱ // 0x24e @0x7
0x0247…0264 at0008 = ╱ed╱(╱ // 0x24f @0x8
0x0247…0264 at0009 = ╱56╱V╱ // 0x250 @0x9
0x0247…0264 at000a = ╱41╱A╱ // 0x251 @0xa
0x0247…0264 at000b = ╱52╱R╱ // 0x252 @0xb
0x0247…0264 at000c = ╱50╱P╱ // 0x253 @0xc
0x0247…0264 at000d = ╱52╱R╱ // 0x254 @0xd
0x0247…0264 at000e = ╱49╱I╱ // 0x255 @0xe
0x0247…0264 at000f = ╱53╱S╱ // 0x256 @0xf
0x0247…0264 at0010 = ╱ef╱$╱ // 0x257 @0x10
0x0247…0264 at0011 = ╱ec╱,╱ // 0x258 @0x11
0x0247…0264 at0012 = ╱54╱T╱ // 0x259 @0x12
0x0247…0264 at0013 = ╱41╱A╱ // 0x25a @0x13
0x0247…0264 at0014 = ╱4c╱L╱ // 0x25b @0x14
0x0247…0264 at0015 = ╱34╱4╱ // 0x25c @0x15
0x0247…0264 at0016 = ╱ef╱$╱ // 0x25d @0x16
0x0247…0264 at0017 = ╱ec╱,╱ // 0x25e @0x17
0x0247…0264 at0018 = ╱42╱B╱ // 0x25f @0x18
0x0247…0264 at0019 = ╱ec╱,╱ // 0x260 @0x19
0x0247…0264 at001a = ╱42╱B╱ // 0x261 @0x1a
0x0247…0264 at001b = ╱ee╱)╱ // 0x262 @0x1b
0x0247…0264 at001c = EOL // 0x263 @0x1c
0x0247…0264 }
0x0264…026f 8fc6 0225 PRINT TAL4$
0x0264…026f LineComalBin {
0x0264…026f ptr = 0x8fc6 // 0x264 @0x0
0x0264…026f lno = 0x00e1 // 0x266 @0x2
0x0264…026f at0004 = ╱92╱ PRINT ╱ // 0x268 @0x4
0x0264…026f at0005 = ╱54╱T╱ // 0x269 @0x5
0x0264…026f at0006 = ╱41╱A╱ // 0x26a @0x6
0x0264…026f at0007 = ╱4c╱L╱ // 0x26b @0x7
0x0264…026f at0008 = ╱34╱4╱ // 0x26c @0x8
0x0264…026f at0009 = ╱ef╱$╱ // 0x26d @0x9
0x0264…026f at000a = EOL // 0x26e @0xa
0x0264…026f }
0x026f…0282 8fd9 0230 CURSOR 61,LINIE
0x026f…0282 LineComalBin {
0x026f…0282 ptr = 0x8fd9 // 0x26f @0x0
0x026f…0282 lno = 0x00e6 // 0x271 @0x2
0x026f…0282 at0004 = ╱a1╱ CURSOR ╱ // 0x273 @0x4
0x026f…0282 at0005 = ╱36╱6╱ // 0x274 @0x5
0x026f…0282 at0006 = ╱31╱1╱ // 0x275 @0x6
0x026f…0282 at0007 = ╱fe0000f406╱ // 0x276 @0x7
0x026f…0282 at000c = ╱ec╱,╱ // 0x27b @0xc
0x026f…0282 at000d = ╱4c╱L╱ // 0x27c @0xd
0x026f…0282 at000e = ╱49╱I╱ // 0x27d @0xe
0x026f…0282 at000f = ╱4e╱N╱ // 0x27e @0xf
0x026f…0282 at0010 = ╱49╱I╱ // 0x27f @0x10
0x026f…0282 at0011 = ╱45╱E╱ // 0x280 @0x11
0x026f…0282 at0012 = EOL // 0x281 @0x12
0x026f…0282 }
0x0282…02aa 9001 0240 PRINT USING "####### #######":VARKONT,UNDKONT
0x0282…02aa LineComalBin {
0x0282…02aa ptr = 0x9001 // 0x282 @0x0
0x0282…02aa lno = 0x00f0 // 0x284 @0x2
0x0282…02aa at0004 = ╱92╱ PRINT ╱ // 0x286 @0x4
0x0282…02aa at0005 = ╱b9╱ USING ╱ // 0x287 @0x5
0x0282…02aa at0006 = ╱22╱"╱ // 0x288 @0x6
0x0282…02aa at0007 = ╱23╱#╱ // 0x289 @0x7
0x0282…02aa at0008 = ╱23╱#╱ // 0x28a @0x8
0x0282…02aa at0009 = ╱23╱#╱ // 0x28b @0x9
0x0282…02aa at000a = ╱23╱#╱ // 0x28c @0xa
0x0282…02aa at000b = ╱23╱#╱ // 0x28d @0xb
0x0282…02aa at000c = ╱23╱#╱ // 0x28e @0xc
0x0282…02aa at000d = ╱23╱#╱ // 0x28f @0xd
0x0282…02aa at000e = ╱20╱…╱ // 0x290 @0xe
0x0282…02aa at000f = ╱23╱#╱ // 0x291 @0xf
0x0282…02aa at0010 = ╱23╱#╱ // 0x292 @0x10
0x0282…02aa at0011 = ╱23╱#╱ // 0x293 @0x11
0x0282…02aa at0012 = ╱23╱#╱ // 0x294 @0x12
0x0282…02aa at0013 = ╱23╱#╱ // 0x295 @0x13
0x0282…02aa at0014 = ╱23╱#╱ // 0x296 @0x14
0x0282…02aa at0015 = ╱23╱#╱ // 0x297 @0x15
0x0282…02aa at0016 = ╱22╱"╱ // 0x298 @0x16
0x0282…02aa at0017 = ╱f0╱:╱ // 0x299 @0x17
0x0282…02aa at0018 = ╱56╱V╱ // 0x29a @0x18
0x0282…02aa at0019 = ╱41╱A╱ // 0x29b @0x19
0x0282…02aa at001a = ╱52╱R╱ // 0x29c @0x1a
0x0282…02aa at001b = ╱4b╱K╱ // 0x29d @0x1b
0x0282…02aa at001c = ╱4f╱O╱ // 0x29e @0x1c
0x0282…02aa at001d = ╱4e╱N╱ // 0x29f @0x1d
0x0282…02aa at001e = ╱54╱T╱ // 0x2a0 @0x1e
0x0282…02aa at001f = ╱ec╱,╱ // 0x2a1 @0x1f
0x0282…02aa at0020 = ╱55╱U╱ // 0x2a2 @0x20
0x0282…02aa at0021 = ╱4e╱N╱ // 0x2a3 @0x21
0x0282…02aa at0022 = ╱44╱D╱ // 0x2a4 @0x22
0x0282…02aa at0023 = ╱4b╱K╱ // 0x2a5 @0x23
0x0282…02aa at0024 = ╱4f╱O╱ // 0x2a6 @0x24
0x0282…02aa at0025 = ╱4e╱N╱ // 0x2a7 @0x25
0x0282…02aa at0026 = ╱54╱T╱ // 0x2a8 @0x26
0x0282…02aa at0027 = EOL // 0x2a9 @0x27
0x0282…02aa }
0x02aa…02b0 9007 0250 ENDPROC
0x02aa…02b0 LineComalBin {
0x02aa…02b0 ptr = 0x9007 // 0x2aa @0x0
0x02aa…02b0 lno = 0x00fa // 0x2ac @0x2
0x02aa…02b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x2ae @0x4
0x02aa…02b0 at0005 = EOL // 0x2af @0x5
0x02aa…02b0 }
0x02b0…02bd 9014 0260 PROC LINTEST
0x02b0…02bd LineComalBin {
0x02b0…02bd ptr = 0x9014 // 0x2b0 @0x0
0x02b0…02bd lno = 0x0104 // 0x2b2 @0x2
0x02b0…02bd at0004 = ╱9e╱ PROC ╱ // 0x2b4 @0x4
0x02b0…02bd at0005 = ╱4c╱L╱ // 0x2b5 @0x5
0x02b0…02bd at0006 = ╱49╱I╱ // 0x2b6 @0x6
0x02b0…02bd at0007 = ╱4e╱N╱ // 0x2b7 @0x7
0x02b0…02bd at0008 = ╱54╱T╱ // 0x2b8 @0x8
0x02b0…02bd at0009 = ╱45╱E╱ // 0x2b9 @0x9
0x02b0…02bd at000a = ╱53╱S╱ // 0x2ba @0xa
0x02b0…02bd at000b = ╱54╱T╱ // 0x2bb @0xb
0x02b0…02bd at000c = EOL // 0x2bc @0xc
0x02b0…02bd }
0x02bd…02c3 901a 0270 CLEAR
0x02bd…02c3 LineComalBin {
0x02bd…02c3 ptr = 0x901a // 0x2bd @0x0
0x02bd…02c3 lno = 0x010e // 0x2bf @0x2
0x02bd…02c3 at0004 = ╱a0╱ CLEAR ╱ // 0x2c1 @0x4
0x02bd…02c3 at0005 = EOL // 0x2c2 @0x5
0x02bd…02c3 }
0x02c3…02d2 9029 0280 CURSOR 21,E
0x02c3…02d2 LineComalBin {
0x02c3…02d2 ptr = 0x9029 // 0x2c3 @0x0
0x02c3…02d2 lno = 0x0118 // 0x2c5 @0x2
0x02c3…02d2 at0004 = ╱a1╱ CURSOR ╱ // 0x2c7 @0x4
0x02c3…02d2 at0005 = ╱32╱2╱ // 0x2c8 @0x5
0x02c3…02d2 at0006 = ╱31╱1╱ // 0x2c9 @0x6
0x02c3…02d2 at0007 = ╱fe0000a805╱ // 0x2ca @0x7
0x02c3…02d2 at000c = ╱ec╱,╱ // 0x2cf @0xc
0x02c3…02d2 at000d = ╱45╱E╱ // 0x2d0 @0xd
0x02c3…02d2 at000e = EOL // 0x2d1 @0xe
0x02c3…02d2 }
0x02d2…02f0 9047 0290 PRINT "Varevedligeholdelse. ";
0x02d2…02f0 LineComalBin {
0x02d2…02f0 ptr = 0x9047 // 0x2d2 @0x0
0x02d2…02f0 lno = 0x0122 // 0x2d4 @0x2
0x02d2…02f0 at0004 = ╱92╱ PRINT ╱ // 0x2d6 @0x4
0x02d2…02f0 at0005 = ╱22╱"╱ // 0x2d7 @0x5
0x02d2…02f0 at0006 = ╱56╱V╱ // 0x2d8 @0x6
0x02d2…02f0 at0007 = ╱61╱a╱ // 0x2d9 @0x7
0x02d2…02f0 at0008 = ╱72╱r╱ // 0x2da @0x8
0x02d2…02f0 at0009 = ╱65╱e╱ // 0x2db @0x9
0x02d2…02f0 at000a = ╱76╱v╱ // 0x2dc @0xa
0x02d2…02f0 at000b = ╱65╱e╱ // 0x2dd @0xb
0x02d2…02f0 at000c = ╱64╱d╱ // 0x2de @0xc
0x02d2…02f0 at000d = ╱6c╱l╱ // 0x2df @0xd
0x02d2…02f0 at000e = ╱69╱i╱ // 0x2e0 @0xe
0x02d2…02f0 at000f = ╱67╱g╱ // 0x2e1 @0xf
0x02d2…02f0 at0010 = ╱65╱e╱ // 0x2e2 @0x10
0x02d2…02f0 at0011 = ╱68╱h╱ // 0x2e3 @0x11
0x02d2…02f0 at0012 = ╱6f╱o╱ // 0x2e4 @0x12
0x02d2…02f0 at0013 = ╱6c╱l╱ // 0x2e5 @0x13
0x02d2…02f0 at0014 = ╱64╱d╱ // 0x2e6 @0x14
0x02d2…02f0 at0015 = ╱65╱e╱ // 0x2e7 @0x15
0x02d2…02f0 at0016 = ╱6c╱l╱ // 0x2e8 @0x16
0x02d2…02f0 at0017 = ╱73╱s╱ // 0x2e9 @0x17
0x02d2…02f0 at0018 = ╱65╱e╱ // 0x2ea @0x18
0x02d2…02f0 at0019 = ╱2e╱.╱ // 0x2eb @0x19
0x02d2…02f0 at001a = ╱20╱…╱ // 0x2ec @0x1a
0x02d2…02f0 at001b = ╱22╱"╱ // 0x2ed @0x1b
0x02d2…02f0 at001c = ╱eb╱;╱ // 0x2ee @0x1c
0x02d2…02f0 at001d = EOL // 0x2ef @0x1d
0x02d2…02f0 }
0x02f0…02fe 9055 0300 EXEC VARHOVED
0x02f0…02fe LineComalBin {
0x02f0…02fe ptr = 0x9055 // 0x2f0 @0x0
0x02f0…02fe lno = 0x012c // 0x2f2 @0x2
0x02f0…02fe at0004 = ╱9d╱ EXEC ╱ // 0x2f4 @0x4
0x02f0…02fe at0005 = ╱56╱V╱ // 0x2f5 @0x5
0x02f0…02fe at0006 = ╱41╱A╱ // 0x2f6 @0x6
0x02f0…02fe at0007 = ╱52╱R╱ // 0x2f7 @0x7
0x02f0…02fe at0008 = ╱48╱H╱ // 0x2f8 @0x8
0x02f0…02fe at0009 = ╱4f╱O╱ // 0x2f9 @0x9
0x02f0…02fe at000a = ╱56╱V╱ // 0x2fa @0xa
0x02f0…02fe at000b = ╱45╱E╱ // 0x2fb @0xb
0x02f0…02fe at000c = ╱44╱D╱ // 0x2fc @0xc
0x02f0…02fe at000d = EOL // 0x2fd @0xd
0x02f0…02fe }
0x02fe…030b 9062 0310 EXEC VALINUD
0x02fe…030b LineComalBin {
0x02fe…030b ptr = 0x9062 // 0x2fe @0x0
0x02fe…030b lno = 0x0136 // 0x300 @0x2
0x02fe…030b at0004 = ╱9d╱ EXEC ╱ // 0x302 @0x4
0x02fe…030b at0005 = ╱56╱V╱ // 0x303 @0x5
0x02fe…030b at0006 = ╱41╱A╱ // 0x304 @0x6
0x02fe…030b at0007 = ╱4c╱L╱ // 0x305 @0x7
0x02fe…030b at0008 = ╱49╱I╱ // 0x306 @0x8
0x02fe…030b at0009 = ╱4e╱N╱ // 0x307 @0x9
0x02fe…030b at000a = ╱55╱U╱ // 0x308 @0xa
0x02fe…030b at000b = ╱44╱D╱ // 0x309 @0xb
0x02fe…030b at000c = EOL // 0x30a @0xc
0x02fe…030b }
0x030b…031d 9074 0315 LINIE=LINIE+E
0x030b…031d LineComalBin {
0x030b…031d ptr = 0x9074 // 0x30b @0x0
0x030b…031d lno = 0x013b // 0x30d @0x2
0x030b…031d at0004 = ╱4c╱L╱ // 0x30f @0x4
0x030b…031d at0005 = ╱49╱I╱ // 0x310 @0x5
0x030b…031d at0006 = ╱4e╱N╱ // 0x311 @0x6
0x030b…031d at0007 = ╱49╱I╱ // 0x312 @0x7
0x030b…031d at0008 = ╱45╱E╱ // 0x313 @0x8
0x030b…031d at0009 = ╱dc╱=╱ // 0x314 @0x9
0x030b…031d at000a = ╱4c╱L╱ // 0x315 @0xa
0x030b…031d at000b = ╱49╱I╱ // 0x316 @0xb
0x030b…031d at000c = ╱4e╱N╱ // 0x317 @0xc
0x030b…031d at000d = ╱49╱I╱ // 0x318 @0xd
0x030b…031d at000e = ╱45╱E╱ // 0x319 @0xe
0x030b…031d at000f = ╱e2╱+╱ // 0x31a @0xf
0x030b…031d at0010 = ╱45╱E╱ // 0x31b @0x10
0x030b…031d at0011 = EOL // 0x31c @0x11
0x030b…031d }
0x031d…0323 907a 0320 ENDPROC
0x031d…0323 LineComalBin {
0x031d…0323 ptr = 0x907a // 0x31d @0x0
0x031d…0323 lno = 0x0140 // 0x31f @0x2
0x031d…0323 at0004 = ╱9f╱ ENDPROC ╱ // 0x321 @0x4
0x031d…0323 at0005 = EOL // 0x322 @0x5
0x031d…0323 }
0x0323…0331 9088 0330 PROC VARHOVED
0x0323…0331 LineComalBin {
0x0323…0331 ptr = 0x9088 // 0x323 @0x0
0x0323…0331 lno = 0x014a // 0x325 @0x2
0x0323…0331 at0004 = ╱9e╱ PROC ╱ // 0x327 @0x4
0x0323…0331 at0005 = ╱56╱V╱ // 0x328 @0x5
0x0323…0331 at0006 = ╱41╱A╱ // 0x329 @0x6
0x0323…0331 at0007 = ╱52╱R╱ // 0x32a @0x7
0x0323…0331 at0008 = ╱48╱H╱ // 0x32b @0x8
0x0323…0331 at0009 = ╱4f╱O╱ // 0x32c @0x9
0x0323…0331 at000a = ╱56╱V╱ // 0x32d @0xa
0x0323…0331 at000b = ╱45╱E╱ // 0x32e @0xb
0x0323…0331 at000c = ╱44╱D╱ // 0x32f @0xc
0x0323…0331 at000d = EOL // 0x330 @0xd
0x0323…0331 }
0x0331…0341 9098 0340 PRINT "Ny vare."
0x0331…0341 LineComalBin {
0x0331…0341 ptr = 0x9098 // 0x331 @0x0
0x0331…0341 lno = 0x0154 // 0x333 @0x2
0x0331…0341 at0004 = ╱92╱ PRINT ╱ // 0x335 @0x4
0x0331…0341 at0005 = ╱22╱"╱ // 0x336 @0x5
0x0331…0341 at0006 = ╱4e╱N╱ // 0x337 @0x6
0x0331…0341 at0007 = ╱79╱y╱ // 0x338 @0x7
0x0331…0341 at0008 = ╱20╱…╱ // 0x339 @0x8
0x0331…0341 at0009 = ╱76╱v╱ // 0x33a @0x9
0x0331…0341 at000a = ╱61╱a╱ // 0x33b @0xa
0x0331…0341 at000b = ╱72╱r╱ // 0x33c @0xb
0x0331…0341 at000c = ╱65╱e╱ // 0x33d @0xc
0x0331…0341 at000d = ╱2e╱.╱ // 0x33e @0xd
0x0331…0341 at000e = ╱22╱"╱ // 0x33f @0xe
0x0331…0341 at000f = EOL // 0x340 @0xf
0x0331…0341 }
0x0341…0350 90a7 0350 CURSOR 21,G
0x0341…0350 LineComalBin {
0x0341…0350 ptr = 0x90a7 // 0x341 @0x0
0x0341…0350 lno = 0x015e // 0x343 @0x2
0x0341…0350 at0004 = ╱a1╱ CURSOR ╱ // 0x345 @0x4
0x0341…0350 at0005 = ╱32╱2╱ // 0x346 @0x5
0x0341…0350 at0006 = ╱31╱1╱ // 0x347 @0x6
0x0341…0350 at0007 = ╱fe0000a805╱ // 0x348 @0x7
0x0341…0350 at000c = ╱ec╱,╱ // 0x34d @0xc
0x0341…0350 at000d = ╱47╱G╱ // 0x34e @0xd
0x0341…0350 at000e = EOL // 0x34f @0xe
0x0341…0350 }
0x0350…0377 90ce 0360 PRINT "Hvis færdig, tast varenummer 0."
0x0350…0377 LineComalBin {
0x0350…0377 ptr = 0x90ce // 0x350 @0x0
0x0350…0377 lno = 0x0168 // 0x352 @0x2
0x0350…0377 at0004 = ╱92╱ PRINT ╱ // 0x354 @0x4
0x0350…0377 at0005 = ╱22╱"╱ // 0x355 @0x5
0x0350…0377 at0006 = ╱48╱H╱ // 0x356 @0x6
0x0350…0377 at0007 = ╱76╱v╱ // 0x357 @0x7
0x0350…0377 at0008 = ╱69╱i╱ // 0x358 @0x8
0x0350…0377 at0009 = ╱73╱s╱ // 0x359 @0x9
0x0350…0377 at000a = ╱20╱…╱ // 0x35a @0xa
0x0350…0377 at000b = ╱66╱f╱ // 0x35b @0xb
0x0350…0377 at000c = ╱7b╱æ╱ // 0x35c @0xc
0x0350…0377 at000d = ╱72╱r╱ // 0x35d @0xd
0x0350…0377 at000e = ╱64╱d╱ // 0x35e @0xe
0x0350…0377 at000f = ╱69╱i╱ // 0x35f @0xf
0x0350…0377 at0010 = ╱67╱g╱ // 0x360 @0x10
0x0350…0377 at0011 = ╱2c╱,╱ // 0x361 @0x11
0x0350…0377 at0012 = ╱20╱…╱ // 0x362 @0x12
0x0350…0377 at0013 = ╱74╱t╱ // 0x363 @0x13
0x0350…0377 at0014 = ╱61╱a╱ // 0x364 @0x14
0x0350…0377 at0015 = ╱73╱s╱ // 0x365 @0x15
0x0350…0377 at0016 = ╱74╱t╱ // 0x366 @0x16
0x0350…0377 at0017 = ╱20╱…╱ // 0x367 @0x17
0x0350…0377 at0018 = ╱76╱v╱ // 0x368 @0x18
0x0350…0377 at0019 = ╱61╱a╱ // 0x369 @0x19
0x0350…0377 at001a = ╱72╱r╱ // 0x36a @0x1a
0x0350…0377 at001b = ╱65╱e╱ // 0x36b @0x1b
0x0350…0377 at001c = ╱6e╱n╱ // 0x36c @0x1c
0x0350…0377 at001d = ╱75╱u╱ // 0x36d @0x1d
0x0350…0377 at001e = ╱6d╱m╱ // 0x36e @0x1e
0x0350…0377 at001f = ╱6d╱m╱ // 0x36f @0x1f
0x0350…0377 at0020 = ╱65╱e╱ // 0x370 @0x20
0x0350…0377 at0021 = ╱72╱r╱ // 0x371 @0x21
0x0350…0377 at0022 = ╱20╱…╱ // 0x372 @0x22
0x0350…0377 at0023 = ╱30╱0╱ // 0x373 @0x23
0x0350…0377 at0024 = ╱2e╱.╱ // 0x374 @0x24
0x0350…0377 at0025 = ╱22╱"╱ // 0x375 @0x25
0x0350…0377 at0026 = EOL // 0x376 @0x26
0x0350…0377 }
0x0377…0385 90dc 0370 EXEC VARELTEK
0x0377…0385 LineComalBin {
0x0377…0385 ptr = 0x90dc // 0x377 @0x0
0x0377…0385 lno = 0x0172 // 0x379 @0x2
0x0377…0385 at0004 = ╱9d╱ EXEC ╱ // 0x37b @0x4
0x0377…0385 at0005 = ╱56╱V╱ // 0x37c @0x5
0x0377…0385 at0006 = ╱41╱A╱ // 0x37d @0x6
0x0377…0385 at0007 = ╱52╱R╱ // 0x37e @0x7
0x0377…0385 at0008 = ╱45╱E╱ // 0x37f @0x8
0x0377…0385 at0009 = ╱4c╱L╱ // 0x380 @0x9
0x0377…0385 at000a = ╱54╱T╱ // 0x381 @0xa
0x0377…0385 at000b = ╱45╱E╱ // 0x382 @0xb
0x0377…0385 at000c = ╱4b╱K╱ // 0x383 @0xc
0x0377…0385 at000d = EOL // 0x384 @0xd
0x0377…0385 }
0x0385…038b 90e2 0380 ENDPROC
0x0385…038b LineComalBin {
0x0385…038b ptr = 0x90e2 // 0x385 @0x0
0x0385…038b lno = 0x017c // 0x387 @0x2
0x0385…038b at0004 = ╱9f╱ ENDPROC ╱ // 0x389 @0x4
0x0385…038b at0005 = EOL // 0x38a @0x5
0x0385…038b }
0x038b…039a 90f1 0390 PROC SLETVPOST
0x038b…039a LineComalBin {
0x038b…039a ptr = 0x90f1 // 0x38b @0x0
0x038b…039a lno = 0x0186 // 0x38d @0x2
0x038b…039a at0004 = ╱9e╱ PROC ╱ // 0x38f @0x4
0x038b…039a at0005 = ╱53╱S╱ // 0x390 @0x5
0x038b…039a at0006 = ╱4c╱L╱ // 0x391 @0x6
0x038b…039a at0007 = ╱45╱E╱ // 0x392 @0x7
0x038b…039a at0008 = ╱54╱T╱ // 0x393 @0x8
0x038b…039a at0009 = ╱56╱V╱ // 0x394 @0x9
0x038b…039a at000a = ╱50╱P╱ // 0x395 @0xa
0x038b…039a at000b = ╱4f╱O╱ // 0x396 @0xb
0x038b…039a at000c = ╱53╱S╱ // 0x397 @0xc
0x038b…039a at000d = ╱54╱T╱ // 0x398 @0xd
0x038b…039a at000e = EOL // 0x399 @0xe
0x038b…039a }
0x039a…03a8 90ff 0400 EXEC NULVPOST
0x039a…03a8 LineComalBin {
0x039a…03a8 ptr = 0x90ff // 0x39a @0x0
0x039a…03a8 lno = 0x0190 // 0x39c @0x2
0x039a…03a8 at0004 = ╱9d╱ EXEC ╱ // 0x39e @0x4
0x039a…03a8 at0005 = ╱4e╱N╱ // 0x39f @0x5
0x039a…03a8 at0006 = ╱55╱U╱ // 0x3a0 @0x6
0x039a…03a8 at0007 = ╱4c╱L╱ // 0x3a1 @0x7
0x039a…03a8 at0008 = ╱56╱V╱ // 0x3a2 @0x8
0x039a…03a8 at0009 = ╱50╱P╱ // 0x3a3 @0x9
0x039a…03a8 at000a = ╱4f╱O╱ // 0x3a4 @0xa
0x039a…03a8 at000b = ╱53╱S╱ // 0x3a5 @0xb
0x039a…03a8 at000c = ╱54╱T╱ // 0x3a6 @0xc
0x039a…03a8 at000d = EOL // 0x3a7 @0xd
0x039a…03a8 }
0x03a8…03c1 9118 0410 VNR2=VARENR;VARENR=B
0x03a8…03c1 LineComalBin {
0x03a8…03c1 ptr = 0x9118 // 0x3a8 @0x0
0x03a8…03c1 lno = 0x019a // 0x3aa @0x2
0x03a8…03c1 at0004 = ╱56╱V╱ // 0x3ac @0x4
0x03a8…03c1 at0005 = ╱4e╱N╱ // 0x3ad @0x5
0x03a8…03c1 at0006 = ╱52╱R╱ // 0x3ae @0x6
0x03a8…03c1 at0007 = ╱32╱2╱ // 0x3af @0x7
0x03a8…03c1 at0008 = ╱dc╱=╱ // 0x3b0 @0x8
0x03a8…03c1 at0009 = ╱56╱V╱ // 0x3b1 @0x9
0x03a8…03c1 at000a = ╱41╱A╱ // 0x3b2 @0xa
0x03a8…03c1 at000b = ╱52╱R╱ // 0x3b3 @0xb
0x03a8…03c1 at000c = ╱45╱E╱ // 0x3b4 @0xc
0x03a8…03c1 at000d = ╱4e╱N╱ // 0x3b5 @0xd
0x03a8…03c1 at000e = ╱52╱R╱ // 0x3b6 @0xe
0x03a8…03c1 at000f = ╱eb╱;╱ // 0x3b7 @0xf
0x03a8…03c1 at0010 = ╱56╱V╱ // 0x3b8 @0x10
0x03a8…03c1 at0011 = ╱41╱A╱ // 0x3b9 @0x11
0x03a8…03c1 at0012 = ╱52╱R╱ // 0x3ba @0x12
0x03a8…03c1 at0013 = ╱45╱E╱ // 0x3bb @0x13
0x03a8…03c1 at0014 = ╱4e╱N╱ // 0x3bc @0x14
0x03a8…03c1 at0015 = ╱52╱R╱ // 0x3bd @0x15
0x03a8…03c1 at0016 = ╱dc╱=╱ // 0x3be @0x16
0x03a8…03c1 at0017 = ╱42╱B╱ // 0x3bf @0x17
0x03a8…03c1 at0018 = EOL // 0x3c0 @0x18
0x03a8…03c1 }
0x03c1…03cf 9126 0420 EXEC GEMVPOST
0x03c1…03cf LineComalBin {
0x03c1…03cf ptr = 0x9126 // 0x3c1 @0x0
0x03c1…03cf lno = 0x01a4 // 0x3c3 @0x2
0x03c1…03cf at0004 = ╱9d╱ EXEC ╱ // 0x3c5 @0x4
0x03c1…03cf at0005 = ╱47╱G╱ // 0x3c6 @0x5
0x03c1…03cf at0006 = ╱45╱E╱ // 0x3c7 @0x6
0x03c1…03cf at0007 = ╱4d╱M╱ // 0x3c8 @0x7
0x03c1…03cf at0008 = ╱56╱V╱ // 0x3c9 @0x8
0x03c1…03cf at0009 = ╱50╱P╱ // 0x3ca @0x9
0x03c1…03cf at000a = ╱4f╱O╱ // 0x3cb @0xa
0x03c1…03cf at000b = ╱53╱S╱ // 0x3cc @0xb
0x03c1…03cf at000c = ╱54╱T╱ // 0x3cd @0xc
0x03c1…03cf at000d = EOL // 0x3ce @0xd
0x03c1…03cf }
0x03cf…03df 9136 0430 VARENR=VNR2
0x03cf…03df LineComalBin {
0x03cf…03df ptr = 0x9136 // 0x3cf @0x0
0x03cf…03df lno = 0x01ae // 0x3d1 @0x2
0x03cf…03df at0004 = ╱56╱V╱ // 0x3d3 @0x4
0x03cf…03df at0005 = ╱41╱A╱ // 0x3d4 @0x5
0x03cf…03df at0006 = ╱52╱R╱ // 0x3d5 @0x6
0x03cf…03df at0007 = ╱45╱E╱ // 0x3d6 @0x7
0x03cf…03df at0008 = ╱4e╱N╱ // 0x3d7 @0x8
0x03cf…03df at0009 = ╱52╱R╱ // 0x3d8 @0x9
0x03cf…03df at000a = ╱dc╱=╱ // 0x3d9 @0xa
0x03cf…03df at000b = ╱56╱V╱ // 0x3da @0xb
0x03cf…03df at000c = ╱4e╱N╱ // 0x3db @0xc
0x03cf…03df at000d = ╱52╱R╱ // 0x3dc @0xd
0x03cf…03df at000e = ╱32╱2╱ // 0x3dd @0xe
0x03cf…03df at000f = EOL // 0x3de @0xf
0x03cf…03df }
0x03df…03ff 9156 0440 EXEC SLETPOST(VTAB,AVARE,VPIL3)
0x03df…03ff LineComalBin {
0x03df…03ff ptr = 0x9156 // 0x3df @0x0
0x03df…03ff lno = 0x01b8 // 0x3e1 @0x2
0x03df…03ff at0004 = ╱9d╱ EXEC ╱ // 0x3e3 @0x4
0x03df…03ff at0005 = ╱53╱S╱ // 0x3e4 @0x5
0x03df…03ff at0006 = ╱4c╱L╱ // 0x3e5 @0x6
0x03df…03ff at0007 = ╱45╱E╱ // 0x3e6 @0x7
0x03df…03ff at0008 = ╱54╱T╱ // 0x3e7 @0x8
0x03df…03ff at0009 = ╱50╱P╱ // 0x3e8 @0x9
0x03df…03ff at000a = ╱4f╱O╱ // 0x3e9 @0xa
0x03df…03ff at000b = ╱53╱S╱ // 0x3ea @0xb
0x03df…03ff at000c = ╱54╱T╱ // 0x3eb @0xc
0x03df…03ff at000d = ╱ed╱(╱ // 0x3ec @0xd
0x03df…03ff at000e = ╱56╱V╱ // 0x3ed @0xe
0x03df…03ff at000f = ╱54╱T╱ // 0x3ee @0xf
0x03df…03ff at0010 = ╱41╱A╱ // 0x3ef @0x10
0x03df…03ff at0011 = ╱42╱B╱ // 0x3f0 @0x11
0x03df…03ff at0012 = ╱ec╱,╱ // 0x3f1 @0x12
0x03df…03ff at0013 = ╱41╱A╱ // 0x3f2 @0x13
0x03df…03ff at0014 = ╱56╱V╱ // 0x3f3 @0x14
0x03df…03ff at0015 = ╱41╱A╱ // 0x3f4 @0x15
0x03df…03ff at0016 = ╱52╱R╱ // 0x3f5 @0x16
0x03df…03ff at0017 = ╱45╱E╱ // 0x3f6 @0x17
0x03df…03ff at0018 = ╱ec╱,╱ // 0x3f7 @0x18
0x03df…03ff at0019 = ╱56╱V╱ // 0x3f8 @0x19
0x03df…03ff at001a = ╱50╱P╱ // 0x3f9 @0x1a
0x03df…03ff at001b = ╱49╱I╱ // 0x3fa @0x1b
0x03df…03ff at001c = ╱4c╱L╱ // 0x3fb @0x1c
0x03df…03ff at001d = ╱33╱3╱ // 0x3fc @0x1d
0x03df…03ff at001e = ╱ee╱)╱ // 0x3fd @0x1e
0x03df…03ff at001f = EOL // 0x3fe @0x1f
0x03df…03ff }
0x03ff…0405 915c 0450 ENDPROC
0x03ff…0405 LineComalBin {
0x03ff…0405 ptr = 0x915c // 0x3ff @0x0
0x03ff…0405 lno = 0x01c2 // 0x401 @0x2
0x03ff…0405 at0004 = ╱9f╱ ENDPROC ╱ // 0x403 @0x4
0x03ff…0405 at0005 = EOL // 0x404 @0x5
0x03ff…0405 }
0x0405…0413 916a 0460 PROC GEMVPOST
0x0405…0413 LineComalBin {
0x0405…0413 ptr = 0x916a // 0x405 @0x0
0x0405…0413 lno = 0x01cc // 0x407 @0x2
0x0405…0413 at0004 = ╱9e╱ PROC ╱ // 0x409 @0x4
0x0405…0413 at0005 = ╱47╱G╱ // 0x40a @0x5
0x0405…0413 at0006 = ╱45╱E╱ // 0x40b @0x6
0x0405…0413 at0007 = ╱4d╱M╱ // 0x40c @0x7
0x0405…0413 at0008 = ╱56╱V╱ // 0x40d @0x8
0x0405…0413 at0009 = ╱50╱P╱ // 0x40e @0x9
0x0405…0413 at000a = ╱4f╱O╱ // 0x40f @0xa
0x0405…0413 at000b = ╱53╱S╱ // 0x410 @0xb
0x0405…0413 at000c = ╱54╱T╱ // 0x411 @0xc
0x0405…0413 at000d = EOL // 0x412 @0xd
0x0405…0413 }
0x0413…0427 917e 0470 S=VTAB(VPIL3,G)
0x0413…0427 LineComalBin {
0x0413…0427 ptr = 0x917e // 0x413 @0x0
0x0413…0427 lno = 0x01d6 // 0x415 @0x2
0x0413…0427 at0004 = ╱53╱S╱ // 0x417 @0x4
0x0413…0427 at0005 = ╱dc╱=╱ // 0x418 @0x5
0x0413…0427 at0006 = ╱56╱V╱ // 0x419 @0x6
0x0413…0427 at0007 = ╱54╱T╱ // 0x41a @0x7
0x0413…0427 at0008 = ╱41╱A╱ // 0x41b @0x8
0x0413…0427 at0009 = ╱42╱B╱ // 0x41c @0x9
0x0413…0427 at000a = ╱ed╱(╱ // 0x41d @0xa
0x0413…0427 at000b = ╱56╱V╱ // 0x41e @0xb
0x0413…0427 at000c = ╱50╱P╱ // 0x41f @0xc
0x0413…0427 at000d = ╱49╱I╱ // 0x420 @0xd
0x0413…0427 at000e = ╱4c╱L╱ // 0x421 @0xe
0x0413…0427 at000f = ╱33╱3╱ // 0x422 @0xf
0x0413…0427 at0010 = ╱ec╱,╱ // 0x423 @0x10
0x0413…0427 at0011 = ╱47╱G╱ // 0x424 @0x11
0x0413…0427 at0012 = ╱ee╱)╱ // 0x425 @0x12
0x0413…0427 at0013 = EOL // 0x426 @0x13
0x0413…0427 }
0x0427…045c 91b3 0480 PUT K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT
0x0427…045c LineComalBin {
0x0427…045c ptr = 0x91b3 // 0x427 @0x0
0x0427…045c lno = 0x01e0 // 0x429 @0x2
0x0427…045c at0004 = ╱aa╱ PUT ╱ // 0x42b @0x4
0x0427…045c at0005 = ╱4b╱K╱ // 0x42c @0x5
0x0427…045c at0006 = ╱34╱4╱ // 0x42d @0x6
0x0427…045c at0007 = ╱ef╱$╱ // 0x42e @0x7
0x0427…045c at0008 = ╱ec╱,╱ // 0x42f @0x8
0x0427…045c at0009 = ╱53╱S╱ // 0x430 @0x9
0x0427…045c at000a = ╱f0╱:╱ // 0x431 @0xa
0x0427…045c at000b = ╱56╱V╱ // 0x432 @0xb
0x0427…045c at000c = ╱41╱A╱ // 0x433 @0xc
0x0427…045c at000d = ╱52╱R╱ // 0x434 @0xd
0x0427…045c at000e = ╱45╱E╱ // 0x435 @0xe
0x0427…045c at000f = ╱4e╱N╱ // 0x436 @0xf
0x0427…045c at0010 = ╱52╱R╱ // 0x437 @0x10
0x0427…045c at0011 = ╱ec╱,╱ // 0x438 @0x11
0x0427…045c at0012 = ╱56╱V╱ // 0x439 @0x12
0x0427…045c at0013 = ╱41╱A╱ // 0x43a @0x13
0x0427…045c at0014 = ╱52╱R╱ // 0x43b @0x14
0x0427…045c at0015 = ╱54╱T╱ // 0x43c @0x15
0x0427…045c at0016 = ╱45╱E╱ // 0x43d @0x16
0x0427…045c at0017 = ╱4b╱K╱ // 0x43e @0x17
0x0427…045c at0018 = ╱53╱S╱ // 0x43f @0x18
0x0427…045c at0019 = ╱54╱T╱ // 0x440 @0x19
0x0427…045c at001a = ╱ef╱$╱ // 0x441 @0x1a
0x0427…045c at001b = ╱ec╱,╱ // 0x442 @0x1b
0x0427…045c at001c = ╱56╱V╱ // 0x443 @0x1c
0x0427…045c at001d = ╱41╱A╱ // 0x444 @0x1d
0x0427…045c at001e = ╱52╱R╱ // 0x445 @0x1e
0x0427…045c at001f = ╱50╱P╱ // 0x446 @0x1f
0x0427…045c at0020 = ╱52╱R╱ // 0x447 @0x20
0x0427…045c at0021 = ╱49╱I╱ // 0x448 @0x21
0x0427…045c at0022 = ╱53╱S╱ // 0x449 @0x22
0x0427…045c at0023 = ╱ef╱$╱ // 0x44a @0x23
0x0427…045c at0024 = ╱ec╱,╱ // 0x44b @0x24
0x0427…045c at0025 = ╱56╱V╱ // 0x44c @0x25
0x0427…045c at0026 = ╱41╱A╱ // 0x44d @0x26
0x0427…045c at0027 = ╱52╱R╱ // 0x44e @0x27
0x0427…045c at0028 = ╱4b╱K╱ // 0x44f @0x28
0x0427…045c at0029 = ╱4f╱O╱ // 0x450 @0x29
0x0427…045c at002a = ╱4e╱N╱ // 0x451 @0x2a
0x0427…045c at002b = ╱54╱T╱ // 0x452 @0x2b
0x0427…045c at002c = ╱ec╱,╱ // 0x453 @0x2c
0x0427…045c at002d = ╱55╱U╱ // 0x454 @0x2d
0x0427…045c at002e = ╱4e╱N╱ // 0x455 @0x2e
0x0427…045c at002f = ╱44╱D╱ // 0x456 @0x2f
0x0427…045c at0030 = ╱4b╱K╱ // 0x457 @0x30
0x0427…045c at0031 = ╱4f╱O╱ // 0x458 @0x31
0x0427…045c at0032 = ╱4e╱N╱ // 0x459 @0x32
0x0427…045c at0033 = ╱54╱T╱ // 0x45a @0x33
0x0427…045c at0034 = EOL // 0x45b @0x34
0x0427…045c }
0x045c…046f 91c6 0490 EXEC FEJL(G,E,K4$)
0x045c…046f LineComalBin {
0x045c…046f ptr = 0x91c6 // 0x45c @0x0
0x045c…046f lno = 0x01ea // 0x45e @0x2
0x045c…046f at0004 = ╱9d╱ EXEC ╱ // 0x460 @0x4
0x045c…046f at0005 = ╱46╱F╱ // 0x461 @0x5
0x045c…046f at0006 = ╱45╱E╱ // 0x462 @0x6
0x045c…046f at0007 = ╱4a╱J╱ // 0x463 @0x7
0x045c…046f at0008 = ╱4c╱L╱ // 0x464 @0x8
0x045c…046f at0009 = ╱ed╱(╱ // 0x465 @0x9
0x045c…046f at000a = ╱47╱G╱ // 0x466 @0xa
0x045c…046f at000b = ╱ec╱,╱ // 0x467 @0xb
0x045c…046f at000c = ╱45╱E╱ // 0x468 @0xc
0x045c…046f at000d = ╱ec╱,╱ // 0x469 @0xd
0x045c…046f at000e = ╱4b╱K╱ // 0x46a @0xe
0x045c…046f at000f = ╱34╱4╱ // 0x46b @0xf
0x045c…046f at0010 = ╱ef╱$╱ // 0x46c @0x10
0x045c…046f at0011 = ╱ee╱)╱ // 0x46d @0x11
0x045c…046f at0012 = EOL // 0x46e @0x12
0x045c…046f }
0x046f…0475 91cc 0500 ENDPROC
0x046f…0475 LineComalBin {
0x046f…0475 ptr = 0x91cc // 0x46f @0x0
0x046f…0475 lno = 0x01f4 // 0x471 @0x2
0x046f…0475 at0004 = ╱9f╱ ENDPROC ╱ // 0x473 @0x4
0x046f…0475 at0005 = EOL // 0x474 @0x5
0x046f…0475 }
0x0475…0484 91db 0510 PROC HENTVPOST
0x0475…0484 LineComalBin {
0x0475…0484 ptr = 0x91db // 0x475 @0x0
0x0475…0484 lno = 0x01fe // 0x477 @0x2
0x0475…0484 at0004 = ╱9e╱ PROC ╱ // 0x479 @0x4
0x0475…0484 at0005 = ╱48╱H╱ // 0x47a @0x5
0x0475…0484 at0006 = ╱45╱E╱ // 0x47b @0x6
0x0475…0484 at0007 = ╱4e╱N╱ // 0x47c @0x7
0x0475…0484 at0008 = ╱54╱T╱ // 0x47d @0x8
0x0475…0484 at0009 = ╱56╱V╱ // 0x47e @0x9
0x0475…0484 at000a = ╱50╱P╱ // 0x47f @0xa
0x0475…0484 at000b = ╱4f╱O╱ // 0x480 @0xb
0x0475…0484 at000c = ╱53╱S╱ // 0x481 @0xc
0x0475…0484 at000d = ╱54╱T╱ // 0x482 @0xd
0x0475…0484 at000e = EOL // 0x483 @0xe
0x0475…0484 }
0x0484…0498 91ef 0520 S=VTAB(VPIL3,G)
0x0484…0498 LineComalBin {
0x0484…0498 ptr = 0x91ef // 0x484 @0x0
0x0484…0498 lno = 0x0208 // 0x486 @0x2
0x0484…0498 at0004 = ╱53╱S╱ // 0x488 @0x4
0x0484…0498 at0005 = ╱dc╱=╱ // 0x489 @0x5
0x0484…0498 at0006 = ╱56╱V╱ // 0x48a @0x6
0x0484…0498 at0007 = ╱54╱T╱ // 0x48b @0x7
0x0484…0498 at0008 = ╱41╱A╱ // 0x48c @0x8
0x0484…0498 at0009 = ╱42╱B╱ // 0x48d @0x9
0x0484…0498 at000a = ╱ed╱(╱ // 0x48e @0xa
0x0484…0498 at000b = ╱56╱V╱ // 0x48f @0xb
0x0484…0498 at000c = ╱50╱P╱ // 0x490 @0xc
0x0484…0498 at000d = ╱49╱I╱ // 0x491 @0xd
0x0484…0498 at000e = ╱4c╱L╱ // 0x492 @0xe
0x0484…0498 at000f = ╱33╱3╱ // 0x493 @0xf
0x0484…0498 at0010 = ╱ec╱,╱ // 0x494 @0x10
0x0484…0498 at0011 = ╱47╱G╱ // 0x495 @0x11
0x0484…0498 at0012 = ╱ee╱)╱ // 0x496 @0x12
0x0484…0498 at0013 = EOL // 0x497 @0x13
0x0484…0498 }
0x0498…04cd 9224 0530 GET K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT,UNDKONT
0x0498…04cd LineComalBin {
0x0498…04cd ptr = 0x9224 // 0x498 @0x0
0x0498…04cd lno = 0x0212 // 0x49a @0x2
0x0498…04cd at0004 = ╱a9╱ GET ╱ // 0x49c @0x4
0x0498…04cd at0005 = ╱4b╱K╱ // 0x49d @0x5
0x0498…04cd at0006 = ╱34╱4╱ // 0x49e @0x6
0x0498…04cd at0007 = ╱ef╱$╱ // 0x49f @0x7
0x0498…04cd at0008 = ╱ec╱,╱ // 0x4a0 @0x8
0x0498…04cd at0009 = ╱53╱S╱ // 0x4a1 @0x9
0x0498…04cd at000a = ╱f0╱:╱ // 0x4a2 @0xa
0x0498…04cd at000b = ╱56╱V╱ // 0x4a3 @0xb
0x0498…04cd at000c = ╱41╱A╱ // 0x4a4 @0xc
0x0498…04cd at000d = ╱52╱R╱ // 0x4a5 @0xd
0x0498…04cd at000e = ╱45╱E╱ // 0x4a6 @0xe
0x0498…04cd at000f = ╱4e╱N╱ // 0x4a7 @0xf
0x0498…04cd at0010 = ╱52╱R╱ // 0x4a8 @0x10
0x0498…04cd at0011 = ╱ec╱,╱ // 0x4a9 @0x11
0x0498…04cd at0012 = ╱56╱V╱ // 0x4aa @0x12
0x0498…04cd at0013 = ╱41╱A╱ // 0x4ab @0x13
0x0498…04cd at0014 = ╱52╱R╱ // 0x4ac @0x14
0x0498…04cd at0015 = ╱54╱T╱ // 0x4ad @0x15
0x0498…04cd at0016 = ╱45╱E╱ // 0x4ae @0x16
0x0498…04cd at0017 = ╱4b╱K╱ // 0x4af @0x17
0x0498…04cd at0018 = ╱53╱S╱ // 0x4b0 @0x18
0x0498…04cd at0019 = ╱54╱T╱ // 0x4b1 @0x19
0x0498…04cd at001a = ╱ef╱$╱ // 0x4b2 @0x1a
0x0498…04cd at001b = ╱ec╱,╱ // 0x4b3 @0x1b
0x0498…04cd at001c = ╱56╱V╱ // 0x4b4 @0x1c
0x0498…04cd at001d = ╱41╱A╱ // 0x4b5 @0x1d
0x0498…04cd at001e = ╱52╱R╱ // 0x4b6 @0x1e
0x0498…04cd at001f = ╱50╱P╱ // 0x4b7 @0x1f
0x0498…04cd at0020 = ╱52╱R╱ // 0x4b8 @0x20
0x0498…04cd at0021 = ╱49╱I╱ // 0x4b9 @0x21
0x0498…04cd at0022 = ╱53╱S╱ // 0x4ba @0x22
0x0498…04cd at0023 = ╱ef╱$╱ // 0x4bb @0x23
0x0498…04cd at0024 = ╱ec╱,╱ // 0x4bc @0x24
0x0498…04cd at0025 = ╱56╱V╱ // 0x4bd @0x25
0x0498…04cd at0026 = ╱41╱A╱ // 0x4be @0x26
0x0498…04cd at0027 = ╱52╱R╱ // 0x4bf @0x27
0x0498…04cd at0028 = ╱4b╱K╱ // 0x4c0 @0x28
0x0498…04cd at0029 = ╱4f╱O╱ // 0x4c1 @0x29
0x0498…04cd at002a = ╱4e╱N╱ // 0x4c2 @0x2a
0x0498…04cd at002b = ╱54╱T╱ // 0x4c3 @0x2b
0x0498…04cd at002c = ╱ec╱,╱ // 0x4c4 @0x2c
0x0498…04cd at002d = ╱55╱U╱ // 0x4c5 @0x2d
0x0498…04cd at002e = ╱4e╱N╱ // 0x4c6 @0x2e
0x0498…04cd at002f = ╱44╱D╱ // 0x4c7 @0x2f
0x0498…04cd at0030 = ╱4b╱K╱ // 0x4c8 @0x30
0x0498…04cd at0031 = ╱4f╱O╱ // 0x4c9 @0x31
0x0498…04cd at0032 = ╱4e╱N╱ // 0x4ca @0x32
0x0498…04cd at0033 = ╱54╱T╱ // 0x4cb @0x33
0x0498…04cd at0034 = EOL // 0x4cc @0x34
0x0498…04cd }
0x04cd…04e0 9237 0540 EXEC FEJL(V,E,K4$)
0x04cd…04e0 LineComalBin {
0x04cd…04e0 ptr = 0x9237 // 0x4cd @0x0
0x04cd…04e0 lno = 0x021c // 0x4cf @0x2
0x04cd…04e0 at0004 = ╱9d╱ EXEC ╱ // 0x4d1 @0x4
0x04cd…04e0 at0005 = ╱46╱F╱ // 0x4d2 @0x5
0x04cd…04e0 at0006 = ╱45╱E╱ // 0x4d3 @0x6
0x04cd…04e0 at0007 = ╱4a╱J╱ // 0x4d4 @0x7
0x04cd…04e0 at0008 = ╱4c╱L╱ // 0x4d5 @0x8
0x04cd…04e0 at0009 = ╱ed╱(╱ // 0x4d6 @0x9
0x04cd…04e0 at000a = ╱56╱V╱ // 0x4d7 @0xa
0x04cd…04e0 at000b = ╱ec╱,╱ // 0x4d8 @0xb
0x04cd…04e0 at000c = ╱45╱E╱ // 0x4d9 @0xc
0x04cd…04e0 at000d = ╱ec╱,╱ // 0x4da @0xd
0x04cd…04e0 at000e = ╱4b╱K╱ // 0x4db @0xe
0x04cd…04e0 at000f = ╱34╱4╱ // 0x4dc @0xf
0x04cd…04e0 at0010 = ╱ef╱$╱ // 0x4dd @0x10
0x04cd…04e0 at0011 = ╱ee╱)╱ // 0x4de @0x11
0x04cd…04e0 at0012 = EOL // 0x4df @0x12
0x04cd…04e0 }
0x04e0…04e6 923d 0550 ENDPROC
0x04e0…04e6 LineComalBin {
0x04e0…04e6 ptr = 0x923d // 0x4e0 @0x0
0x04e0…04e6 lno = 0x0226 // 0x4e2 @0x2
0x04e0…04e6 at0004 = ╱9f╱ ENDPROC ╱ // 0x4e4 @0x4
0x04e0…04e6 at0005 = EOL // 0x4e5 @0x5
0x04e0…04e6 }
0x04e6…04f4 924b 0560 PROC NULVPOST
0x04e6…04f4 LineComalBin {
0x04e6…04f4 ptr = 0x924b // 0x4e6 @0x0
0x04e6…04f4 lno = 0x0230 // 0x4e8 @0x2
0x04e6…04f4 at0004 = ╱9e╱ PROC ╱ // 0x4ea @0x4
0x04e6…04f4 at0005 = ╱4e╱N╱ // 0x4eb @0x5
0x04e6…04f4 at0006 = ╱55╱U╱ // 0x4ec @0x6
0x04e6…04f4 at0007 = ╱4c╱L╱ // 0x4ed @0x7
0x04e6…04f4 at0008 = ╱56╱V╱ // 0x4ee @0x8
0x04e6…04f4 at0009 = ╱50╱P╱ // 0x4ef @0x9
0x04e6…04f4 at000a = ╱4f╱O╱ // 0x4f0 @0xa
0x04e6…04f4 at000b = ╱53╱S╱ // 0x4f1 @0xb
0x04e6…04f4 at000c = ╱54╱T╱ // 0x4f2 @0xc
0x04e6…04f4 at000d = EOL // 0x4f3 @0xd
0x04e6…04f4 }
0x04f4…052b 9282 0570 VARTEKST$=BLANK$;VARPRIS$="0+";VARKONT=B;UNDKONT=B
0x04f4…052b LineComalBin {
0x04f4…052b ptr = 0x9282 // 0x4f4 @0x0
0x04f4…052b lno = 0x023a // 0x4f6 @0x2
0x04f4…052b at0004 = ╱56╱V╱ // 0x4f8 @0x4
0x04f4…052b at0005 = ╱41╱A╱ // 0x4f9 @0x5
0x04f4…052b at0006 = ╱52╱R╱ // 0x4fa @0x6
0x04f4…052b at0007 = ╱54╱T╱ // 0x4fb @0x7
0x04f4…052b at0008 = ╱45╱E╱ // 0x4fc @0x8
0x04f4…052b at0009 = ╱4b╱K╱ // 0x4fd @0x9
0x04f4…052b at000a = ╱53╱S╱ // 0x4fe @0xa
0x04f4…052b at000b = ╱54╱T╱ // 0x4ff @0xb
0x04f4…052b at000c = ╱ef╱$╱ // 0x500 @0xc
0x04f4…052b at000d = ╱dc╱=╱ // 0x501 @0xd
0x04f4…052b at000e = ╱42╱B╱ // 0x502 @0xe
0x04f4…052b at000f = ╱4c╱L╱ // 0x503 @0xf
0x04f4…052b at0010 = ╱41╱A╱ // 0x504 @0x10
0x04f4…052b at0011 = ╱4e╱N╱ // 0x505 @0x11
0x04f4…052b at0012 = ╱4b╱K╱ // 0x506 @0x12
0x04f4…052b at0013 = ╱ef╱$╱ // 0x507 @0x13
0x04f4…052b at0014 = ╱eb╱;╱ // 0x508 @0x14
0x04f4…052b at0015 = ╱56╱V╱ // 0x509 @0x15
0x04f4…052b at0016 = ╱41╱A╱ // 0x50a @0x16
0x04f4…052b at0017 = ╱52╱R╱ // 0x50b @0x17
0x04f4…052b at0018 = ╱50╱P╱ // 0x50c @0x18
0x04f4…052b at0019 = ╱52╱R╱ // 0x50d @0x19
0x04f4…052b at001a = ╱49╱I╱ // 0x50e @0x1a
0x04f4…052b at001b = ╱53╱S╱ // 0x50f @0x1b
0x04f4…052b at001c = ╱ef╱$╱ // 0x510 @0x1c
0x04f4…052b at001d = ╱dc╱=╱ // 0x511 @0x1d
0x04f4…052b at001e = ╱22╱"╱ // 0x512 @0x1e
0x04f4…052b at001f = ╱30╱0╱ // 0x513 @0x1f
0x04f4…052b at0020 = ╱2b╱+╱ // 0x514 @0x20
0x04f4…052b at0021 = ╱22╱"╱ // 0x515 @0x21
0x04f4…052b at0022 = ╱eb╱;╱ // 0x516 @0x22
0x04f4…052b at0023 = ╱56╱V╱ // 0x517 @0x23
0x04f4…052b at0024 = ╱41╱A╱ // 0x518 @0x24
0x04f4…052b at0025 = ╱52╱R╱ // 0x519 @0x25
0x04f4…052b at0026 = ╱4b╱K╱ // 0x51a @0x26
0x04f4…052b at0027 = ╱4f╱O╱ // 0x51b @0x27
0x04f4…052b at0028 = ╱4e╱N╱ // 0x51c @0x28
0x04f4…052b at0029 = ╱54╱T╱ // 0x51d @0x29
0x04f4…052b at002a = ╱dc╱=╱ // 0x51e @0x2a
0x04f4…052b at002b = ╱42╱B╱ // 0x51f @0x2b
0x04f4…052b at002c = ╱eb╱;╱ // 0x520 @0x2c
0x04f4…052b at002d = ╱55╱U╱ // 0x521 @0x2d
0x04f4…052b at002e = ╱4e╱N╱ // 0x522 @0x2e
0x04f4…052b at002f = ╱44╱D╱ // 0x523 @0x2f
0x04f4…052b at0030 = ╱4b╱K╱ // 0x524 @0x30
0x04f4…052b at0031 = ╱4f╱O╱ // 0x525 @0x31
0x04f4…052b at0032 = ╱4e╱N╱ // 0x526 @0x32
0x04f4…052b at0033 = ╱54╱T╱ // 0x527 @0x33
0x04f4…052b at0034 = ╱dc╱=╱ // 0x528 @0x34
0x04f4…052b at0035 = ╱42╱B╱ // 0x529 @0x35
0x04f4…052b at0036 = EOL // 0x52a @0x36
0x04f4…052b }
0x052b…0531 9288 0580 ENDPROC
0x052b…0531 LineComalBin {
0x052b…0531 ptr = 0x9288 // 0x52b @0x0
0x052b…0531 lno = 0x0244 // 0x52d @0x2
0x052b…0531 at0004 = ╱9f╱ ENDPROC ╱ // 0x52f @0x4
0x052b…0531 at0005 = EOL // 0x530 @0x5
0x052b…0531 }
0x0531…0543 929a 0590 PROC NRTEST(NUM1)
0x0531…0543 LineComalBin {
0x0531…0543 ptr = 0x929a // 0x531 @0x0
0x0531…0543 lno = 0x024e // 0x533 @0x2
0x0531…0543 at0004 = ╱9e╱ PROC ╱ // 0x535 @0x4
0x0531…0543 at0005 = ╱4e╱N╱ // 0x536 @0x5
0x0531…0543 at0006 = ╱52╱R╱ // 0x537 @0x6
0x0531…0543 at0007 = ╱54╱T╱ // 0x538 @0x7
0x0531…0543 at0008 = ╱45╱E╱ // 0x539 @0x8
0x0531…0543 at0009 = ╱53╱S╱ // 0x53a @0x9
0x0531…0543 at000a = ╱54╱T╱ // 0x53b @0xa
0x0531…0543 at000b = ╱ed╱(╱ // 0x53c @0xb
0x0531…0543 at000c = ╱4e╱N╱ // 0x53d @0xc
0x0531…0543 at000d = ╱55╱U╱ // 0x53e @0xd
0x0531…0543 at000e = ╱4d╱M╱ // 0x53f @0xe
0x0531…0543 at000f = ╱31╱1╱ // 0x540 @0xf
0x0531…0543 at0010 = ╱ee╱)╱ // 0x541 @0x10
0x0531…0543 at0011 = EOL // 0x542 @0x11
0x0531…0543 }
0x0543…0561 92b8 0600 P,TEST2,KTAL=B;L=LEN(NUM1$)
0x0543…0561 LineComalBin {
0x0543…0561 ptr = 0x92b8 // 0x543 @0x0
0x0543…0561 lno = 0x0258 // 0x545 @0x2
0x0543…0561 at0004 = ╱50╱P╱ // 0x547 @0x4
0x0543…0561 at0005 = ╱ec╱,╱ // 0x548 @0x5
0x0543…0561 at0006 = ╱54╱T╱ // 0x549 @0x6
0x0543…0561 at0007 = ╱45╱E╱ // 0x54a @0x7
0x0543…0561 at0008 = ╱53╱S╱ // 0x54b @0x8
0x0543…0561 at0009 = ╱54╱T╱ // 0x54c @0x9
0x0543…0561 at000a = ╱32╱2╱ // 0x54d @0xa
0x0543…0561 at000b = ╱ec╱,╱ // 0x54e @0xb
0x0543…0561 at000c = ╱4b╱K╱ // 0x54f @0xc
0x0543…0561 at000d = ╱54╱T╱ // 0x550 @0xd
0x0543…0561 at000e = ╱41╱A╱ // 0x551 @0xe
0x0543…0561 at000f = ╱4c╱L╱ // 0x552 @0xf
0x0543…0561 at0010 = ╱dc╱=╱ // 0x553 @0x10
0x0543…0561 at0011 = ╱42╱B╱ // 0x554 @0x11
0x0543…0561 at0012 = ╱eb╱;╱ // 0x555 @0x12
0x0543…0561 at0013 = ╱4c╱L╱ // 0x556 @0x13
0x0543…0561 at0014 = ╱dc╱=╱ // 0x557 @0x14
0x0543…0561 at0015 = ╱cc╱LEN╱ // 0x558 @0x15
0x0543…0561 at0016 = ╱ed╱(╱ // 0x559 @0x16
0x0543…0561 at0017 = ╱4e╱N╱ // 0x55a @0x17
0x0543…0561 at0018 = ╱55╱U╱ // 0x55b @0x18
0x0543…0561 at0019 = ╱4d╱M╱ // 0x55c @0x19
0x0543…0561 at001a = ╱31╱1╱ // 0x55d @0x1a
0x0543…0561 at001b = ╱ef╱$╱ // 0x55e @0x1b
0x0543…0561 at001c = ╱ee╱)╱ // 0x55f @0x1c
0x0543…0561 at001d = EOL // 0x560 @0x1d
0x0543…0561 }
0x0561…0571 92c8 0610 IF L>6 THEN EXIT
0x0561…0571 LineComalBin {
0x0561…0571 ptr = 0x92c8 // 0x561 @0x0
0x0561…0571 lno = 0x0262 // 0x563 @0x2
0x0561…0571 at0004 = ╱82╱ IF ╱ // 0x565 @0x4
0x0561…0571 at0005 = ╱4c╱L╱ // 0x566 @0x5
0x0561…0571 at0006 = ╱de╱>╱ // 0x567 @0x6
0x0561…0571 at0007 = ╱36╱6╱ // 0x568 @0x7
0x0561…0571 at0008 = ╱fe0000c003╱ // 0x569 @0x8
0x0561…0571 at000d = ╱b6╱ THEN ╱ // 0x56e @0xd
0x0561…0571 at000e = ╱99╱ EXIT ╱ // 0x56f @0xe
0x0561…0571 at000f = EOL // 0x570 @0xf
0x0561…0571 }
0x0571…057a 92d1 0620 CASE L OF
0x0571…057a LineComalBin {
0x0571…057a ptr = 0x92d1 // 0x571 @0x0
0x0571…057a lno = 0x026c // 0x573 @0x2
0x0571…057a at0004 = ╱a201╱ CASE ╱ // 0x575 @0x4
0x0571…057a at0006 = ╱4c╱L╱ // 0x577 @0x6
0x0571…057a at0007 = ╱ba╱ OF ╱ // 0x578 @0x7
0x0571…057a at0008 = EOL // 0x579 @0x8
0x0571…057a }
0x057a…0585 92dc 0630 FOR I=E TO L
0x057a…0585 LineComalBin {
0x057a…0585 ptr = 0x92dc // 0x57a @0x0
0x057a…0585 lno = 0x0276 // 0x57c @0x2
0x057a…0585 at0004 = ╱83╱ FOR ╱ // 0x57e @0x4
0x057a…0585 at0005 = ╱49╱I╱ // 0x57f @0x5
0x057a…0585 at0006 = ╱dc╱=╱ // 0x580 @0x6
0x057a…0585 at0007 = ╱45╱E╱ // 0x581 @0x7
0x057a…0585 at0008 = ╱b7╱ TO ╱ // 0x582 @0x8
0x057a…0585 at0009 = ╱4c╱L╱ // 0x583 @0x9
0x057a…0585 at000a = EOL // 0x584 @0xa
0x057a…0585 }
0x0585…05a3 92fa 0640 P1=INT(ORD(NUM1$(I))-48)
0x0585…05a3 LineComalBin {
0x0585…05a3 ptr = 0x92fa // 0x585 @0x0
0x0585…05a3 lno = 0x0280 // 0x587 @0x2
0x0585…05a3 at0004 = ╱50╱P╱ // 0x589 @0x4
0x0585…05a3 at0005 = ╱31╱1╱ // 0x58a @0x5
0x0585…05a3 at0006 = ╱dc╱=╱ // 0x58b @0x6
0x0585…05a3 at0007 = ╱c6╱INT╱ // 0x58c @0x7
0x0585…05a3 at0008 = ╱ed╱(╱ // 0x58d @0x8
0x0585…05a3 at0009 = ╱cd╱ORD╱ // 0x58e @0x9
0x0585…05a3 at000a = ╱ed╱(╱ // 0x58f @0xa
0x0585…05a3 at000b = ╱4e╱N╱ // 0x590 @0xb
0x0585…05a3 at000c = ╱55╱U╱ // 0x591 @0xc
0x0585…05a3 at000d = ╱4d╱M╱ // 0x592 @0xd
0x0585…05a3 at000e = ╱31╱1╱ // 0x593 @0xe
0x0585…05a3 at000f = ╱ef╱$╱ // 0x594 @0xf
0x0585…05a3 at0010 = ╱ed╱(╱ // 0x595 @0x10
0x0585…05a3 at0011 = ╱49╱I╱ // 0x596 @0x11
0x0585…05a3 at0012 = ╱ee╱)╱ // 0x597 @0x12
0x0585…05a3 at0013 = ╱ee╱)╱ // 0x598 @0x13
0x0585…05a3 at0014 = ╱e3╱-╱ // 0x599 @0x14
0x0585…05a3 at0015 = ╱34╱4╱ // 0x59a @0x15
0x0585…05a3 at0016 = ╱38╱8╱ // 0x59b @0x16
0x0585…05a3 at0017 = ╱fe0000c006╱ // 0x59c @0x17
0x0585…05a3 at001c = ╱ee╱)╱ // 0x5a1 @0x1c
0x0585…05a3 at001d = EOL // 0x5a2 @0x1d
0x0585…05a3 }
0x05a3…05ba 9311 0650 IF P1<B OR P1>W THEN TEST2=E
0x05a3…05ba LineComalBin {
0x05a3…05ba ptr = 0x9311 // 0x5a3 @0x0
0x05a3…05ba lno = 0x028a // 0x5a5 @0x2
0x05a3…05ba at0004 = ╱82╱ IF ╱ // 0x5a7 @0x4
0x05a3…05ba at0005 = ╱50╱P╱ // 0x5a8 @0x5
0x05a3…05ba at0006 = ╱31╱1╱ // 0x5a9 @0x6
0x05a3…05ba at0007 = ╱dd╱<╱ // 0x5aa @0x7
0x05a3…05ba at0008 = ╱42╱B╱ // 0x5ab @0x8
0x05a3…05ba at0009 = ╱db╱ OR ╱ // 0x5ac @0x9
0x05a3…05ba at000a = ╱50╱P╱ // 0x5ad @0xa
0x05a3…05ba at000b = ╱31╱1╱ // 0x5ae @0xb
0x05a3…05ba at000c = ╱de╱>╱ // 0x5af @0xc
0x05a3…05ba at000d = ╱57╱W╱ // 0x5b0 @0xd
0x05a3…05ba at000e = ╱b6╱ THEN ╱ // 0x5b1 @0xe
0x05a3…05ba at000f = ╱54╱T╱ // 0x5b2 @0xf
0x05a3…05ba at0010 = ╱45╱E╱ // 0x5b3 @0x10
0x05a3…05ba at0011 = ╱53╱S╱ // 0x5b4 @0x11
0x05a3…05ba at0012 = ╱54╱T╱ // 0x5b5 @0x12
0x05a3…05ba at0013 = ╱32╱2╱ // 0x5b6 @0x13
0x05a3…05ba at0014 = ╱dc╱=╱ // 0x5b7 @0x14
0x05a3…05ba at0015 = ╱45╱E╱ // 0x5b8 @0x15
0x05a3…05ba at0016 = EOL // 0x5b9 @0x16
0x05a3…05ba }
0x05ba…05cd 9324 0660 P=P*10+P1
0x05ba…05cd LineComalBin {
0x05ba…05cd ptr = 0x9324 // 0x5ba @0x0
0x05ba…05cd lno = 0x0294 // 0x5bc @0x2
0x05ba…05cd at0004 = ╱50╱P╱ // 0x5be @0x4
0x05ba…05cd at0005 = ╱dc╱=╱ // 0x5bf @0x5
0x05ba…05cd at0006 = ╱50╱P╱ // 0x5c0 @0x6
0x05ba…05cd at0007 = ╱e4╱*╱ // 0x5c1 @0x7
0x05ba…05cd at0008 = ╱31╱1╱ // 0x5c2 @0x8
0x05ba…05cd at0009 = ╱30╱0╱ // 0x5c3 @0x9
0x05ba…05cd at000a = ╱fe0000a004╱ // 0x5c4 @0xa
0x05ba…05cd at000f = ╱e2╱+╱ // 0x5c9 @0xf
0x05ba…05cd at0010 = ╱50╱P╱ // 0x5ca @0x10
0x05ba…05cd at0011 = ╱31╱1╱ // 0x5cb @0x11
0x05ba…05cd at0012 = EOL // 0x5cc @0x12
0x05ba…05cd }
0x05cd…05d4 932b 0670 NEXT I
0x05cd…05d4 LineComalBin {
0x05cd…05d4 ptr = 0x932b // 0x5cd @0x0
0x05cd…05d4 lno = 0x029e // 0x5cf @0x2
0x05cd…05d4 at0004 = ╱84╱ NEXT ╱ // 0x5d1 @0x4
0x05cd…05d4 at0005 = ╱49╱I╱ // 0x5d2 @0x5
0x05cd…05d4 at0006 = EOL // 0x5d3 @0x6
0x05cd…05d4 }
0x05d4…05ea 9341 0680 KTAL=P DIV 10000
0x05d4…05ea LineComalBin {
0x05d4…05ea ptr = 0x9341 // 0x5d4 @0x0
0x05d4…05ea lno = 0x02a8 // 0x5d6 @0x2
0x05d4…05ea at0004 = ╱4b╱K╱ // 0x5d8 @0x4
0x05d4…05ea at0005 = ╱54╱T╱ // 0x5d9 @0x5
0x05d4…05ea at0006 = ╱41╱A╱ // 0x5da @0x6
0x05d4…05ea at0007 = ╱4c╱L╱ // 0x5db @0x7
0x05d4…05ea at0008 = ╱dc╱=╱ // 0x5dc @0x8
0x05d4…05ea at0009 = ╱50╱P╱ // 0x5dd @0x9
0x05d4…05ea at000a = ╱e7╱ DIV ╱ // 0x5de @0xa
0x05d4…05ea at000b = ╱31╱1╱ // 0x5df @0xb
0x05d4…05ea at000c = ╱30╱0╱ // 0x5e0 @0xc
0x05d4…05ea at000d = ╱30╱0╱ // 0x5e1 @0xd
0x05d4…05ea at000e = ╱30╱0╱ // 0x5e2 @0xe
0x05d4…05ea at000f = ╱30╱0╱ // 0x5e3 @0xf
0x05d4…05ea at0010 = ╱fe00409c0e╱ // 0x5e4 @0x10
0x05d4…05ea at0015 = EOL // 0x5e9 @0x15
0x05d4…05ea }
0x05ea…05f2 9349 0690 WHEN B
0x05ea…05f2 LineComalBin {
0x05ea…05f2 ptr = 0x9349 // 0x5ea @0x0
0x05ea…05f2 lno = 0x02b2 // 0x5ec @0x2
0x05ea…05f2 at0004 = ╱a301╱ WHEN ╱ // 0x5ee @0x4
0x05ea…05f2 at0006 = ╱42╱B╱ // 0x5f0 @0x6
0x05ea…05f2 at0007 = EOL // 0x5f1 @0x7
0x05ea…05f2 }
0x05f2…05fb 9352 0700 P=-E
0x05f2…05fb LineComalBin {
0x05f2…05fb ptr = 0x9352 // 0x5f2 @0x0
0x05f2…05fb lno = 0x02bc // 0x5f4 @0x2
0x05f2…05fb at0004 = ╱50╱P╱ // 0x5f6 @0x4
0x05f2…05fb at0005 = ╱dc╱=╱ // 0x5f7 @0x5
0x05f2…05fb at0006 = ╱e9╱-╱ // 0x5f8 @0x6
0x05f2…05fb at0007 = ╱45╱E╱ // 0x5f9 @0x7
0x05f2…05fb at0008 = EOL // 0x5fa @0x8
0x05f2…05fb }
0x05fb…0603 935a 0710 WHEN E
0x05fb…0603 LineComalBin {
0x05fb…0603 ptr = 0x935a // 0x5fb @0x0
0x05fb…0603 lno = 0x02c6 // 0x5fd @0x2
0x05fb…0603 at0004 = ╱a301╱ WHEN ╱ // 0x5ff @0x4
0x05fb…0603 at0006 = ╱45╱E╱ // 0x601 @0x6
0x05fb…0603 at0007 = EOL // 0x602 @0x7
0x05fb…0603 }
0x0603…0610 9367 0720 CASE NUM1$ OF
0x0603…0610 LineComalBin {
0x0603…0610 ptr = 0x9367 // 0x603 @0x0
0x0603…0610 lno = 0x02d0 // 0x605 @0x2
0x0603…0610 at0004 = ╱a200╱ CASE ╱ // 0x607 @0x4
0x0603…0610 at0006 = ╱4e╱N╱ // 0x609 @0x6
0x0603…0610 at0007 = ╱55╱U╱ // 0x60a @0x7
0x0603…0610 at0008 = ╱4d╱M╱ // 0x60b @0x8
0x0603…0610 at0009 = ╱31╱1╱ // 0x60c @0x9
0x0603…0610 at000a = ╱ef╱$╱ // 0x60d @0xa
0x0603…0610 at000b = ╱ba╱ OF ╱ // 0x60e @0xb
0x0603…0610 at000c = EOL // 0x60f @0xc
0x0603…0610 }
0x0610…062a 9381 0730 P=INT(ORD(NUM1$)-48)
0x0610…062a LineComalBin {
0x0610…062a ptr = 0x9381 // 0x610 @0x0
0x0610…062a lno = 0x02da // 0x612 @0x2
0x0610…062a at0004 = ╱50╱P╱ // 0x614 @0x4
0x0610…062a at0005 = ╱dc╱=╱ // 0x615 @0x5
0x0610…062a at0006 = ╱c6╱INT╱ // 0x616 @0x6
0x0610…062a at0007 = ╱ed╱(╱ // 0x617 @0x7
0x0610…062a at0008 = ╱cd╱ORD╱ // 0x618 @0x8
0x0610…062a at0009 = ╱ed╱(╱ // 0x619 @0x9
0x0610…062a at000a = ╱4e╱N╱ // 0x61a @0xa
0x0610…062a at000b = ╱55╱U╱ // 0x61b @0xb
0x0610…062a at000c = ╱4d╱M╱ // 0x61c @0xc
0x0610…062a at000d = ╱31╱1╱ // 0x61d @0xd
0x0610…062a at000e = ╱ef╱$╱ // 0x61e @0xe
0x0610…062a at000f = ╱ee╱)╱ // 0x61f @0xf
0x0610…062a at0010 = ╱e3╱-╱ // 0x620 @0x10
0x0610…062a at0011 = ╱34╱4╱ // 0x621 @0x11
0x0610…062a at0012 = ╱38╱8╱ // 0x622 @0x12
0x0610…062a at0013 = ╱fe0000c006╱ // 0x623 @0x13
0x0610…062a at0018 = ╱ee╱)╱ // 0x628 @0x18
0x0610…062a at0019 = EOL // 0x629 @0x19
0x0610…062a }
0x062a…0638 938f 0740 WHEN "d","D"
0x062a…0638 LineComalBin {
0x062a…0638 ptr = 0x938f // 0x62a @0x0
0x062a…0638 lno = 0x02e4 // 0x62c @0x2
0x062a…0638 at0004 = ╱a300╱ WHEN ╱ // 0x62e @0x4
0x062a…0638 at0006 = ╱22╱"╱ // 0x630 @0x6
0x062a…0638 at0007 = ╱64╱d╱ // 0x631 @0x7
0x062a…0638 at0008 = ╱22╱"╱ // 0x632 @0x8
0x062a…0638 at0009 = ╱ec╱,╱ // 0x633 @0x9
0x062a…0638 at000a = ╱22╱"╱ // 0x634 @0xa
0x062a…0638 at000b = ╱44╱D╱ // 0x635 @0xb
0x062a…0638 at000c = ╱22╱"╱ // 0x636 @0xc
0x062a…0638 at000d = EOL // 0x637 @0xd
0x062a…0638 }
0x0638…0641 9398 0750 P=-G
0x0638…0641 LineComalBin {
0x0638…0641 ptr = 0x9398 // 0x638 @0x0
0x0638…0641 lno = 0x02ee // 0x63a @0x2
0x0638…0641 at0004 = ╱50╱P╱ // 0x63c @0x4
0x0638…0641 at0005 = ╱dc╱=╱ // 0x63d @0x5
0x0638…0641 at0006 = ╱e9╱-╱ // 0x63e @0x6
0x0638…0641 at0007 = ╱47╱G╱ // 0x63f @0x7
0x0638…0641 at0008 = EOL // 0x640 @0x8
0x0638…0641 }
0x0641…064f 93a6 0760 WHEN "a","A"
0x0641…064f LineComalBin {
0x0641…064f ptr = 0x93a6 // 0x641 @0x0
0x0641…064f lno = 0x02f8 // 0x643 @0x2
0x0641…064f at0004 = ╱a300╱ WHEN ╱ // 0x645 @0x4
0x0641…064f at0006 = ╱22╱"╱ // 0x647 @0x6
0x0641…064f at0007 = ╱61╱a╱ // 0x648 @0x7
0x0641…064f at0008 = ╱22╱"╱ // 0x649 @0x8
0x0641…064f at0009 = ╱ec╱,╱ // 0x64a @0x9
0x0641…064f at000a = ╱22╱"╱ // 0x64b @0xa
0x0641…064f at000b = ╱41╱A╱ // 0x64c @0xb
0x0641…064f at000c = ╱22╱"╱ // 0x64d @0xc
0x0641…064f at000d = EOL // 0x64e @0xd
0x0641…064f }
0x064f…0658 93af 0770 P=-V
0x064f…0658 LineComalBin {
0x064f…0658 ptr = 0x93af // 0x64f @0x0
0x064f…0658 lno = 0x0302 // 0x651 @0x2
0x064f…0658 at0004 = ╱50╱P╱ // 0x653 @0x4
0x064f…0658 at0005 = ╱dc╱=╱ // 0x654 @0x5
0x064f…0658 at0006 = ╱e9╱-╱ // 0x655 @0x6
0x064f…0658 at0007 = ╱56╱V╱ // 0x656 @0x7
0x064f…0658 at0008 = EOL // 0x657 @0x8
0x064f…0658 }
0x0658…0666 93bd 0780 WHEN "m","M"
0x0658…0666 LineComalBin {
0x0658…0666 ptr = 0x93bd // 0x658 @0x0
0x0658…0666 lno = 0x030c // 0x65a @0x2
0x0658…0666 at0004 = ╱a300╱ WHEN ╱ // 0x65c @0x4
0x0658…0666 at0006 = ╱22╱"╱ // 0x65e @0x6
0x0658…0666 at0007 = ╱6d╱m╱ // 0x65f @0x7
0x0658…0666 at0008 = ╱22╱"╱ // 0x660 @0x8
0x0658…0666 at0009 = ╱ec╱,╱ // 0x661 @0x9
0x0658…0666 at000a = ╱22╱"╱ // 0x662 @0xa
0x0658…0666 at000b = ╱4d╱M╱ // 0x663 @0xb
0x0658…0666 at000c = ╱22╱"╱ // 0x664 @0xc
0x0658…0666 at000d = EOL // 0x665 @0xd
0x0658…0666 }
0x0666…0674 93cb 0790 P=-4
0x0666…0674 LineComalBin {
0x0666…0674 ptr = 0x93cb // 0x666 @0x0
0x0666…0674 lno = 0x0316 // 0x668 @0x2
0x0666…0674 at0004 = ╱50╱P╱ // 0x66a @0x4
0x0666…0674 at0005 = ╱dc╱=╱ // 0x66b @0x5
0x0666…0674 at0006 = ╱e9╱-╱ // 0x66c @0x6
0x0666…0674 at0007 = ╱34╱4╱ // 0x66d @0x7
0x0666…0674 at0008 = ╱fe00008003╱ // 0x66e @0x8
0x0666…0674 at000d = EOL // 0x673 @0xd
0x0666…0674 }
0x0674…0682 93d9 0800 WHEN "j","J"
0x0674…0682 LineComalBin {
0x0674…0682 ptr = 0x93d9 // 0x674 @0x0
0x0674…0682 lno = 0x0320 // 0x676 @0x2
0x0674…0682 at0004 = ╱a300╱ WHEN ╱ // 0x678 @0x4
0x0674…0682 at0006 = ╱22╱"╱ // 0x67a @0x6
0x0674…0682 at0007 = ╱6a╱j╱ // 0x67b @0x7
0x0674…0682 at0008 = ╱22╱"╱ // 0x67c @0x8
0x0674…0682 at0009 = ╱ec╱,╱ // 0x67d @0x9
0x0674…0682 at000a = ╱22╱"╱ // 0x67e @0xa
0x0674…0682 at000b = ╱4a╱J╱ // 0x67f @0xb
0x0674…0682 at000c = ╱22╱"╱ // 0x680 @0xc
0x0674…0682 at000d = EOL // 0x681 @0xd
0x0674…0682 }
0x0682…0690 93e7 0810 P=-7
0x0682…0690 LineComalBin {
0x0682…0690 ptr = 0x93e7 // 0x682 @0x0
0x0682…0690 lno = 0x032a // 0x684 @0x2
0x0682…0690 at0004 = ╱50╱P╱ // 0x686 @0x4
0x0682…0690 at0005 = ╱dc╱=╱ // 0x687 @0x5
0x0682…0690 at0006 = ╱e9╱-╱ // 0x688 @0x6
0x0682…0690 at0007 = ╱37╱7╱ // 0x689 @0x7
0x0682…0690 at0008 = ╱fe0000e003╱ // 0x68a @0x8
0x0682…0690 at000d = EOL // 0x68f @0xd
0x0682…0690 }
0x0690…069e 93f5 0820 WHEN "n","N"
0x0690…069e LineComalBin {
0x0690…069e ptr = 0x93f5 // 0x690 @0x0
0x0690…069e lno = 0x0334 // 0x692 @0x2
0x0690…069e at0004 = ╱a300╱ WHEN ╱ // 0x694 @0x4
0x0690…069e at0006 = ╱22╱"╱ // 0x696 @0x6
0x0690…069e at0007 = ╱6e╱n╱ // 0x697 @0x7
0x0690…069e at0008 = ╱22╱"╱ // 0x698 @0x8
0x0690…069e at0009 = ╱ec╱,╱ // 0x699 @0x9
0x0690…069e at000a = ╱22╱"╱ // 0x69a @0xa
0x0690…069e at000b = ╱4e╱N╱ // 0x69b @0xb
0x0690…069e at000c = ╱22╱"╱ // 0x69c @0xc
0x0690…069e at000d = EOL // 0x69d @0xd
0x0690…069e }
0x069e…06ac (22,) 9403 0830 P=-8
0x069e…06ac LineComalBin {
0x069e…06ac ptr = 0x9403 // 0x69e @0x0
0x069e…06ac lno = 0x033e // 0x6a0 @0x2
0x069e…06ac at0004 = ╱50╱P╱ // 0x6a2 @0x4
0x069e…06ac at0005 = ╱dc╱=╱ // 0x6a3 @0x5
0x069e…06ac at0006 = ╱e9╱-╱ // 0x6a4 @0x6
0x069e…06ac at0007 = ╱38╱8╱ // 0x6a5 @0x7
0x069e…06ac at0008 = ╱fe00008004╱ // 0x6a6 @0x8
0x069e…06ac at000d = EOL // 0x6ab @0xd
0x069e…06ac }
0x06ac…06b2 9409 0840 ENDCASE
0x06ac…06b2 LineComalBin {
0x06ac…06b2 ptr = 0x9409 // 0x6ac @0x0
0x06ac…06b2 lno = 0x0348 // 0x6ae @0x2
0x06ac…06b2 at0004 = ╱a4╱ ENDCASE ╱ // 0x6b0 @0x4
0x06ac…06b2 at0005 = EOL // 0x6b1 @0x5
0x06ac…06b2 }
0x06b2…06b8 940f 0850 ENDCASE
0x06b2…06b8 LineComalBin {
0x06b2…06b8 ptr = 0x940f // 0x6b2 @0x0
0x06b2…06b8 lno = 0x0352 // 0x6b4 @0x2
0x06b2…06b8 at0004 = ╱a4╱ ENDCASE ╱ // 0x6b6 @0x4
0x06b2…06b8 at0005 = EOL // 0x6b7 @0x5
0x06b2…06b8 }
0x06b8…06be 9415 0860 ENDPROC
0x06b8…06be LineComalBin {
0x06b8…06be ptr = 0x9415 // 0x6b8 @0x0
0x06b8…06be lno = 0x035c // 0x6ba @0x2
0x06b8…06be at0004 = ╱9f╱ ENDPROC ╱ // 0x6bc @0x4
0x06b8…06be at0005 = EOL // 0x6bd @0x5
0x06b8…06be }
0x06be…06d5 942c 0870 PROC FEJL(NR1,NR2,NR3)
0x06be…06d5 LineComalBin {
0x06be…06d5 ptr = 0x942c // 0x6be @0x0
0x06be…06d5 lno = 0x0366 // 0x6c0 @0x2
0x06be…06d5 at0004 = ╱9e╱ PROC ╱ // 0x6c2 @0x4
0x06be…06d5 at0005 = ╱46╱F╱ // 0x6c3 @0x5
0x06be…06d5 at0006 = ╱45╱E╱ // 0x6c4 @0x6
0x06be…06d5 at0007 = ╱4a╱J╱ // 0x6c5 @0x7
0x06be…06d5 at0008 = ╱4c╱L╱ // 0x6c6 @0x8
0x06be…06d5 at0009 = ╱ed╱(╱ // 0x6c7 @0x9
0x06be…06d5 at000a = ╱4e╱N╱ // 0x6c8 @0xa
0x06be…06d5 at000b = ╱52╱R╱ // 0x6c9 @0xb
0x06be…06d5 at000c = ╱31╱1╱ // 0x6ca @0xc
0x06be…06d5 at000d = ╱ec╱,╱ // 0x6cb @0xd
0x06be…06d5 at000e = ╱4e╱N╱ // 0x6cc @0xe
0x06be…06d5 at000f = ╱52╱R╱ // 0x6cd @0xf
0x06be…06d5 at0010 = ╱32╱2╱ // 0x6ce @0x10
0x06be…06d5 at0011 = ╱ec╱,╱ // 0x6cf @0x11
0x06be…06d5 at0012 = ╱4e╱N╱ // 0x6d0 @0x12
0x06be…06d5 at0013 = ╱52╱R╱ // 0x6d1 @0x13
0x06be…06d5 at0014 = ╱33╱3╱ // 0x6d2 @0x14
0x06be…06d5 at0015 = ╱ee╱)╱ // 0x6d3 @0x15
0x06be…06d5 at0016 = EOL // 0x6d4 @0x16
0x06be…06d5 }
0x06d5…06e5 943c 0880 IF STATUS(NR3$)<>B THEN
0x06d5…06e5 LineComalBin {
0x06d5…06e5 ptr = 0x943c // 0x6d5 @0x0
0x06d5…06e5 lno = 0x0370 // 0x6d7 @0x2
0x06d5…06e5 at0004 = ╱9c╱ IF ╱ // 0x6d9 @0x4
0x06d5…06e5 at0005 = ╱ce╱STATUS╱ // 0x6da @0x5
0x06d5…06e5 at0006 = ╱ed╱(╱ // 0x6db @0x6
0x06d5…06e5 at0007 = ╱4e╱N╱ // 0x6dc @0x7
0x06d5…06e5 at0008 = ╱52╱R╱ // 0x6dd @0x8
0x06d5…06e5 at0009 = ╱33╱3╱ // 0x6de @0x9
0x06d5…06e5 at000a = ╱ef╱$╱ // 0x6df @0xa
0x06d5…06e5 at000b = ╱ee╱)╱ // 0x6e0 @0xb
0x06d5…06e5 at000c = ╱e1╱<>╱ // 0x6e1 @0xc
0x06d5…06e5 at000d = ╱42╱B╱ // 0x6e2 @0xd
0x06d5…06e5 at000e = ╱b6╱ THEN ╱ // 0x6e3 @0xe
0x06d5…06e5 at000f = EOL // 0x6e4 @0xf
0x06d5…06e5 }
0x06e5…06ff 9456 0890 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x06e5…06ff LineComalBin {
0x06e5…06ff ptr = 0x9456 // 0x6e5 @0x0
0x06e5…06ff lno = 0x037a // 0x6e7 @0x2
0x06e5…06ff at0004 = ╱92╱ PRINT ╱ // 0x6e9 @0x4
0x06e5…06ff at0005 = ╱ce╱STATUS╱ // 0x6ea @0x5
0x06e5…06ff at0006 = ╱ed╱(╱ // 0x6eb @0x6
0x06e5…06ff at0007 = ╱4e╱N╱ // 0x6ec @0x7
0x06e5…06ff at0008 = ╱52╱R╱ // 0x6ed @0x8
0x06e5…06ff at0009 = ╱33╱3╱ // 0x6ee @0x9
0x06e5…06ff at000a = ╱ef╱$╱ // 0x6ef @0xa
0x06e5…06ff at000b = ╱ee╱)╱ // 0x6f0 @0xb
0x06e5…06ff at000c = ╱ec╱,╱ // 0x6f1 @0xc
0x06e5…06ff at000d = ╱4e╱N╱ // 0x6f2 @0xd
0x06e5…06ff at000e = ╱52╱R╱ // 0x6f3 @0xe
0x06e5…06ff at000f = ╱31╱1╱ // 0x6f4 @0xf
0x06e5…06ff at0010 = ╱ec╱,╱ // 0x6f5 @0x10
0x06e5…06ff at0011 = ╱4e╱N╱ // 0x6f6 @0x11
0x06e5…06ff at0012 = ╱52╱R╱ // 0x6f7 @0x12
0x06e5…06ff at0013 = ╱32╱2╱ // 0x6f8 @0x13
0x06e5…06ff at0014 = ╱ec╱,╱ // 0x6f9 @0x14
0x06e5…06ff at0015 = ╱4e╱N╱ // 0x6fa @0x15
0x06e5…06ff at0016 = ╱52╱R╱ // 0x6fb @0x16
0x06e5…06ff at0017 = ╱33╱3╱ // 0x6fc @0x17
0x06e5…06ff at0018 = ╱ef╱$╱ // 0x6fd @0x18
0x06e5…06ff at0019 = EOL // 0x6fe @0x19
0x06e5…06ff }
0x06ff…0705 945c 0900 STOP
0x06ff…0705 LineComalBin {
0x06ff…0705 ptr = 0x945c // 0x6ff @0x0
0x06ff…0705 lno = 0x0384 // 0x701 @0x2
0x06ff…0705 at0004 = ╱8d╱ STOP ╱ // 0x703 @0x4
0x06ff…0705 at0005 = EOL // 0x704 @0x5
0x06ff…0705 }
0x0705…070b 9462 0910 ENDIF
0x0705…070b LineComalBin {
0x0705…070b ptr = 0x9462 // 0x705 @0x0
0x0705…070b lno = 0x038e // 0x707 @0x2
0x0705…070b at0004 = ╱9b╱ ENDIF ╱ // 0x709 @0x4
0x0705…070b at0005 = EOL // 0x70a @0x5
0x0705…070b }
0x070b…0711 9468 0920 ENDPROC
0x070b…0711 LineComalBin {
0x070b…0711 ptr = 0x9468 // 0x70b @0x0
0x070b…0711 lno = 0x0398 // 0x70d @0x2
0x070b…0711 at0004 = ╱9f╱ ENDPROC ╱ // 0x70f @0x4
0x070b…0711 at0005 = EOL // 0x710 @0x5
0x070b…0711 }
0x0711…0729 9480 0930 PROC CALC(AR3,B1,B2,ES)
0x0711…0729 LineComalBin {
0x0711…0729 ptr = 0x9480 // 0x711 @0x0
0x0711…0729 lno = 0x03a2 // 0x713 @0x2
0x0711…0729 at0004 = ╱9e╱ PROC ╱ // 0x715 @0x4
0x0711…0729 at0005 = ╱43╱C╱ // 0x716 @0x5
0x0711…0729 at0006 = ╱41╱A╱ // 0x717 @0x6
0x0711…0729 at0007 = ╱4c╱L╱ // 0x718 @0x7
0x0711…0729 at0008 = ╱43╱C╱ // 0x719 @0x8
0x0711…0729 at0009 = ╱ed╱(╱ // 0x71a @0x9
0x0711…0729 at000a = ╱41╱A╱ // 0x71b @0xa
0x0711…0729 at000b = ╱52╱R╱ // 0x71c @0xb
0x0711…0729 at000c = ╱33╱3╱ // 0x71d @0xc
0x0711…0729 at000d = ╱ec╱,╱ // 0x71e @0xd
0x0711…0729 at000e = ╱42╱B╱ // 0x71f @0xe
0x0711…0729 at000f = ╱31╱1╱ // 0x720 @0xf
0x0711…0729 at0010 = ╱ec╱,╱ // 0x721 @0x10
0x0711…0729 at0011 = ╱42╱B╱ // 0x722 @0x11
0x0711…0729 at0012 = ╱32╱2╱ // 0x723 @0x12
0x0711…0729 at0013 = ╱ec╱,╱ // 0x724 @0x13
0x0711…0729 at0014 = ╱45╱E╱ // 0x725 @0x14
0x0711…0729 at0015 = ╱53╱S╱ // 0x726 @0x15
0x0711…0729 at0016 = ╱ee╱)╱ // 0x727 @0x16
0x0711…0729 at0017 = EOL // 0x728 @0x17
0x0711…0729 }
0x0729…0770 94c7 0940 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0729…0770 LineComalBin {
0x0729…0770 ptr = 0x94c7 // 0x729 @0x0
0x0729…0770 lno = 0x03ac // 0x72b @0x2
0x0729…0770 at0004 = ╱4f╱O╱ // 0x72d @0x4
0x0729…0770 at0005 = ╱50╱P╱ // 0x72e @0x5
0x0729…0770 at0006 = ╱31╱1╱ // 0x72f @0x6
0x0729…0770 at0007 = ╱ef╱$╱ // 0x730 @0x7
0x0729…0770 at0008 = ╱dc╱=╱ // 0x731 @0x8
0x0729…0770 at0009 = ╱42╱B╱ // 0x732 @0x9
0x0729…0770 at000a = ╱31╱1╱ // 0x733 @0xa
0x0729…0770 at000b = ╱ef╱$╱ // 0x734 @0xb
0x0729…0770 at000c = ╱eb╱;╱ // 0x735 @0xc
0x0729…0770 at000d = ╱4f╱O╱ // 0x736 @0xd
0x0729…0770 at000e = ╱50╱P╱ // 0x737 @0xe
0x0729…0770 at000f = ╱32╱2╱ // 0x738 @0xf
0x0729…0770 at0010 = ╱ef╱$╱ // 0x739 @0x10
0x0729…0770 at0011 = ╱dc╱=╱ // 0x73a @0x11
0x0729…0770 at0012 = ╱42╱B╱ // 0x73b @0x12
0x0729…0770 at0013 = ╱32╱2╱ // 0x73c @0x13
0x0729…0770 at0014 = ╱ef╱$╱ // 0x73d @0x14
0x0729…0770 at0015 = ╱eb╱;╱ // 0x73e @0x15
0x0729…0770 at0016 = ╱52╱R╱ // 0x73f @0x16
0x0729…0770 at0017 = ╱45╱E╱ // 0x740 @0x17
0x0729…0770 at0018 = ╱53╱S╱ // 0x741 @0x18
0x0729…0770 at0019 = ╱ef╱$╱ // 0x742 @0x19
0x0729…0770 at001a = ╱dc╱=╱ // 0x743 @0x1a
0x0729…0770 at001b = ╱45╱E╱ // 0x744 @0x1b
0x0729…0770 at001c = ╱53╱S╱ // 0x745 @0x1c
0x0729…0770 at001d = ╱ef╱$╱ // 0x746 @0x1d
0x0729…0770 at001e = ╱eb╱;╱ // 0x747 @0x1e
0x0729…0770 at001f = ╱53╱S╱ // 0x748 @0x1f
0x0729…0770 at0020 = ╱49╱I╱ // 0x749 @0x20
0x0729…0770 at0021 = ╱dc╱=╱ // 0x74a @0x21
0x0729…0770 at0022 = ╱42╱B╱ // 0x74b @0x22
0x0729…0770 at0023 = ╱eb╱;╱ // 0x74c @0x23
0x0729…0770 at0024 = ╱46╱F╱ // 0x74d @0x24
0x0729…0770 at0025 = ╱4c╱L╱ // 0x74e @0x25
0x0729…0770 at0026 = ╱41╱A╱ // 0x74f @0x26
0x0729…0770 at0027 = ╱47╱G╱ // 0x750 @0x27
0x0729…0770 at0028 = ╱dc╱=╱ // 0x751 @0x28
0x0729…0770 at0029 = ╱42╱B╱ // 0x752 @0x29
0x0729…0770 at002a = ╱eb╱;╱ // 0x753 @0x2a
0x0729…0770 at002b = ╱41╱A╱ // 0x754 @0x2b
0x0729…0770 at002c = ╱52╱R╱ // 0x755 @0x2c
0x0729…0770 at002d = ╱54╱T╱ // 0x756 @0x2d
0x0729…0770 at002e = ╱dc╱=╱ // 0x757 @0x2e
0x0729…0770 at002f = ╱41╱A╱ // 0x758 @0x2f
0x0729…0770 at0030 = ╱52╱R╱ // 0x759 @0x30
0x0729…0770 at0031 = ╱33╱3╱ // 0x75a @0x31
0x0729…0770 at0032 = ╱e3╱-╱ // 0x75b @0x32
0x0729…0770 at0033 = ╱36╱6╱ // 0x75c @0x33
0x0729…0770 at0034 = ╱fe0000c003╱ // 0x75d @0x34
0x0729…0770 at0039 = ╱e4╱*╱ // 0x762 @0x39
0x0729…0770 at003a = ╱ed╱(╱ // 0x763 @0x3a
0x0729…0770 at003b = ╱41╱A╱ // 0x764 @0x3b
0x0729…0770 at003c = ╱52╱R╱ // 0x765 @0x3c
0x0729…0770 at003d = ╱33╱3╱ // 0x766 @0x3d
0x0729…0770 at003e = ╱de╱>╱ // 0x767 @0x3e
0x0729…0770 at003f = ╱35╱5╱ // 0x768 @0x3f
0x0729…0770 at0040 = ╱fe0000a003╱ // 0x769 @0x40
0x0729…0770 at0045 = ╱ee╱)╱ // 0x76e @0x45
0x0729…0770 at0046 = EOL // 0x76f @0x46
0x0729…0770 }
0x0770…0786 94dd 0950 CALL "P641210:REGN"
0x0770…0786 LineComalBin {
0x0770…0786 ptr = 0x94dd // 0x770 @0x0
0x0770…0786 lno = 0x03b6 // 0x772 @0x2
0x0770…0786 at0004 = ╱ad465d╱ CALL ╱ // 0x774 @0x4
0x0770…0786 at0007 = ╱22╱"╱ // 0x777 @0x7
0x0770…0786 at0008 = ╱50╱P╱ // 0x778 @0x8
0x0770…0786 at0009 = ╱36╱6╱ // 0x779 @0x9
0x0770…0786 at000a = ╱34╱4╱ // 0x77a @0xa
0x0770…0786 at000b = ╱31╱1╱ // 0x77b @0xb
0x0770…0786 at000c = ╱32╱2╱ // 0x77c @0xc
0x0770…0786 at000d = ╱31╱1╱ // 0x77d @0xd
0x0770…0786 at000e = ╱30╱0╱ // 0x77e @0xe
0x0770…0786 at000f = ╱3a╱:╱ // 0x77f @0xf
0x0770…0786 at0010 = ╱52╱R╱ // 0x780 @0x10
0x0770…0786 at0011 = ╱45╱E╱ // 0x781 @0x11
0x0770…0786 at0012 = ╱47╱G╱ // 0x782 @0x12
0x0770…0786 at0013 = ╱4e╱N╱ // 0x783 @0x13
0x0770…0786 at0014 = ╱22╱"╱ // 0x784 @0x14
0x0770…0786 at0015 = EOL // 0x785 @0x15
0x0770…0786 }
0x0786…0793 94ea 0960 ES$=RES$
0x0786…0793 LineComalBin {
0x0786…0793 ptr = 0x94ea // 0x786 @0x0
0x0786…0793 lno = 0x03c0 // 0x788 @0x2
0x0786…0793 at0004 = ╱45╱E╱ // 0x78a @0x4
0x0786…0793 at0005 = ╱53╱S╱ // 0x78b @0x5
0x0786…0793 at0006 = ╱ef╱$╱ // 0x78c @0x6
0x0786…0793 at0007 = ╱dc╱=╱ // 0x78d @0x7
0x0786…0793 at0008 = ╱52╱R╱ // 0x78e @0x8
0x0786…0793 at0009 = ╱45╱E╱ // 0x78f @0x9
0x0786…0793 at000a = ╱53╱S╱ // 0x790 @0xa
0x0786…0793 at000b = ╱ef╱$╱ // 0x791 @0xb
0x0786…0793 at000c = EOL // 0x792 @0xc
0x0786…0793 }
0x0793…07ab 9502 0970 IF AR3<6 THEN IF FLAG THEN STOP
0x0793…07ab LineComalBin {
0x0793…07ab ptr = 0x9502 // 0x793 @0x0
0x0793…07ab lno = 0x03ca // 0x795 @0x2
0x0793…07ab at0004 = ╱82╱ IF ╱ // 0x797 @0x4
0x0793…07ab at0005 = ╱41╱A╱ // 0x798 @0x5
0x0793…07ab at0006 = ╱52╱R╱ // 0x799 @0x6
0x0793…07ab at0007 = ╱33╱3╱ // 0x79a @0x7
0x0793…07ab at0008 = ╱dd╱<╱ // 0x79b @0x8
0x0793…07ab at0009 = ╱36╱6╱ // 0x79c @0x9
0x0793…07ab at000a = ╱fe0000c003╱ // 0x79d @0xa
0x0793…07ab at000f = ╱b6╱ THEN ╱ // 0x7a2 @0xf
0x0793…07ab at0010 = ╱82╱ IF ╱ // 0x7a3 @0x10
0x0793…07ab at0011 = ╱46╱F╱ // 0x7a4 @0x11
0x0793…07ab at0012 = ╱4c╱L╱ // 0x7a5 @0x12
0x0793…07ab at0013 = ╱41╱A╱ // 0x7a6 @0x13
0x0793…07ab at0014 = ╱47╱G╱ // 0x7a7 @0x14
0x0793…07ab at0015 = ╱b6╱ THEN ╱ // 0x7a8 @0x15
0x0793…07ab at0016 = ╱8d╱ STOP ╱ // 0x7a9 @0x16
0x0793…07ab at0017 = EOL // 0x7aa @0x17
0x0793…07ab }
0x07ab…07b1 9508 1000 ENDPROC
0x07ab…07b1 LineComalBin {
0x07ab…07b1 ptr = 0x9508 // 0x7ab @0x0
0x07ab…07b1 lno = 0x03e8 // 0x7ad @0x2
0x07ab…07b1 at0004 = ╱9f╱ ENDPROC ╱ // 0x7af @0x4
0x07ab…07b1 at0005 = EOL // 0x7b0 @0x5
0x07ab…07b1 }
0x07b1…07d0 9527 1010 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x07b1…07d0 LineComalBin {
0x07b1…07d0 ptr = 0x9527 // 0x7b1 @0x0
0x07b1…07d0 lno = 0x03f2 // 0x7b3 @0x2
0x07b1…07d0 at0004 = ╱9e╱ PROC ╱ // 0x7b5 @0x4
0x07b1…07d0 at0005 = ╱54╱T╱ // 0x7b6 @0x5
0x07b1…07d0 at0006 = ╱55╱U╱ // 0x7b7 @0x6
0x07b1…07d0 at0007 = ╱44╱D╱ // 0x7b8 @0x7
0x07b1…07d0 at0008 = ╱ed╱(╱ // 0x7b9 @0x8
0x07b1…07d0 at0009 = ╱42╱B╱ // 0x7ba @0x9
0x07b1…07d0 at000a = ╱4c╱L╱ // 0x7bb @0xa
0x07b1…07d0 at000b = ╱42╱B╱ // 0x7bc @0xb
0x07b1…07d0 at000c = ╱31╱1╱ // 0x7bd @0xc
0x07b1…07d0 at000d = ╱ec╱,╱ // 0x7be @0xd
0x07b1…07d0 at000e = ╱55╱U╱ // 0x7bf @0xe
0x07b1…07d0 at000f = ╱42╱B╱ // 0x7c0 @0xf
0x07b1…07d0 at0010 = ╱4c╱L╱ // 0x7c1 @0x10
0x07b1…07d0 at0011 = ╱42╱B╱ // 0x7c2 @0x11
0x07b1…07d0 at0012 = ╱31╱1╱ // 0x7c3 @0x12
0x07b1…07d0 at0013 = ╱ec╱,╱ // 0x7c4 @0x13
0x07b1…07d0 at0014 = ╱54╱T╱ // 0x7c5 @0x14
0x07b1…07d0 at0015 = ╱45╱E╱ // 0x7c6 @0x15
0x07b1…07d0 at0016 = ╱47╱G╱ // 0x7c7 @0x16
0x07b1…07d0 at0017 = ╱4e╱N╱ // 0x7c8 @0x17
0x07b1…07d0 at0018 = ╱ec╱,╱ // 0x7c9 @0x18
0x07b1…07d0 at0019 = ╱53╱S╱ // 0x7ca @0x19
0x07b1…07d0 at001a = ╱54╱T╱ // 0x7cb @0x1a
0x07b1…07d0 at001b = ╱5c╱Ø╱ // 0x7cc @0x1b
0x07b1…07d0 at001c = ╱52╱R╱ // 0x7cd @0x1c
0x07b1…07d0 at001d = ╱ee╱)╱ // 0x7ce @0x1d
0x07b1…07d0 at001e = EOL // 0x7cf @0x1e
0x07b1…07d0 }
0x07d0…07e0 9537 1020 BLB2$=BLB1$
0x07d0…07e0 LineComalBin {
0x07d0…07e0 ptr = 0x9537 // 0x7d0 @0x0
0x07d0…07e0 lno = 0x03fc // 0x7d2 @0x2
0x07d0…07e0 at0004 = ╱42╱B╱ // 0x7d4 @0x4
0x07d0…07e0 at0005 = ╱4c╱L╱ // 0x7d5 @0x5
0x07d0…07e0 at0006 = ╱42╱B╱ // 0x7d6 @0x6
0x07d0…07e0 at0007 = ╱32╱2╱ // 0x7d7 @0x7
0x07d0…07e0 at0008 = ╱ef╱$╱ // 0x7d8 @0x8
0x07d0…07e0 at0009 = ╱dc╱=╱ // 0x7d9 @0x9
0x07d0…07e0 at000a = ╱42╱B╱ // 0x7da @0xa
0x07d0…07e0 at000b = ╱4c╱L╱ // 0x7db @0xb
0x07d0…07e0 at000c = ╱42╱B╱ // 0x7dc @0xc
0x07d0…07e0 at000d = ╱31╱1╱ // 0x7dd @0xd
0x07d0…07e0 at000e = ╱ef╱$╱ // 0x7de @0xe
0x07d0…07e0 at000f = EOL // 0x7df @0xf
0x07d0…07e0 }
0x07e0…0804 955b 1030 EXEC CALC(5,BLB2$,TAH$,UBLB1$)
0x07e0…0804 LineComalBin {
0x07e0…0804 ptr = 0x955b // 0x7e0 @0x0
0x07e0…0804 lno = 0x0406 // 0x7e2 @0x2
0x07e0…0804 at0004 = ╱9d╱ EXEC ╱ // 0x7e4 @0x4
0x07e0…0804 at0005 = ╱43╱C╱ // 0x7e5 @0x5
0x07e0…0804 at0006 = ╱41╱A╱ // 0x7e6 @0x6
0x07e0…0804 at0007 = ╱4c╱L╱ // 0x7e7 @0x7
0x07e0…0804 at0008 = ╱43╱C╱ // 0x7e8 @0x8
0x07e0…0804 at0009 = ╱ed╱(╱ // 0x7e9 @0x9
0x07e0…0804 at000a = ╱35╱5╱ // 0x7ea @0xa
0x07e0…0804 at000b = ╱fe0000a003╱ // 0x7eb @0xb
0x07e0…0804 at0010 = ╱ec╱,╱ // 0x7f0 @0x10
0x07e0…0804 at0011 = ╱42╱B╱ // 0x7f1 @0x11
0x07e0…0804 at0012 = ╱4c╱L╱ // 0x7f2 @0x12
0x07e0…0804 at0013 = ╱42╱B╱ // 0x7f3 @0x13
0x07e0…0804 at0014 = ╱32╱2╱ // 0x7f4 @0x14
0x07e0…0804 at0015 = ╱ef╱$╱ // 0x7f5 @0x15
0x07e0…0804 at0016 = ╱ec╱,╱ // 0x7f6 @0x16
0x07e0…0804 at0017 = ╱54╱T╱ // 0x7f7 @0x17
0x07e0…0804 at0018 = ╱41╱A╱ // 0x7f8 @0x18
0x07e0…0804 at0019 = ╱48╱H╱ // 0x7f9 @0x19
0x07e0…0804 at001a = ╱ef╱$╱ // 0x7fa @0x1a
0x07e0…0804 at001b = ╱ec╱,╱ // 0x7fb @0x1b
0x07e0…0804 at001c = ╱55╱U╱ // 0x7fc @0x1c
0x07e0…0804 at001d = ╱42╱B╱ // 0x7fd @0x1d
0x07e0…0804 at001e = ╱4c╱L╱ // 0x7fe @0x1e
0x07e0…0804 at001f = ╱42╱B╱ // 0x7ff @0x1f
0x07e0…0804 at0020 = ╱31╱1╱ // 0x800 @0x20
0x07e0…0804 at0021 = ╱ef╱$╱ // 0x801 @0x21
0x07e0…0804 at0022 = ╱ee╱)╱ // 0x802 @0x22
0x07e0…0804 at0023 = EOL // 0x803 @0x23
0x07e0…0804 }
0x0804…0829 9580 1040 IF TEGN=B THEN UBLB1$=UBLB1$(E:13)
0x0804…0829 LineComalBin {
0x0804…0829 ptr = 0x9580 // 0x804 @0x0
0x0804…0829 lno = 0x0410 // 0x806 @0x2
0x0804…0829 at0004 = ╱82╱ IF ╱ // 0x808 @0x4
0x0804…0829 at0005 = ╱54╱T╱ // 0x809 @0x5
0x0804…0829 at0006 = ╱45╱E╱ // 0x80a @0x6
0x0804…0829 at0007 = ╱47╱G╱ // 0x80b @0x7
0x0804…0829 at0008 = ╱4e╱N╱ // 0x80c @0x8
0x0804…0829 at0009 = ╱dc╱=╱ // 0x80d @0x9
0x0804…0829 at000a = ╱42╱B╱ // 0x80e @0xa
0x0804…0829 at000b = ╱b6╱ THEN ╱ // 0x80f @0xb
0x0804…0829 at000c = ╱55╱U╱ // 0x810 @0xc
0x0804…0829 at000d = ╱42╱B╱ // 0x811 @0xd
0x0804…0829 at000e = ╱4c╱L╱ // 0x812 @0xe
0x0804…0829 at000f = ╱42╱B╱ // 0x813 @0xf
0x0804…0829 at0010 = ╱31╱1╱ // 0x814 @0x10
0x0804…0829 at0011 = ╱ef╱$╱ // 0x815 @0x11
0x0804…0829 at0012 = ╱dc╱=╱ // 0x816 @0x12
0x0804…0829 at0013 = ╱55╱U╱ // 0x817 @0x13
0x0804…0829 at0014 = ╱42╱B╱ // 0x818 @0x14
0x0804…0829 at0015 = ╱4c╱L╱ // 0x819 @0x15
0x0804…0829 at0016 = ╱42╱B╱ // 0x81a @0x16
0x0804…0829 at0017 = ╱31╱1╱ // 0x81b @0x17
0x0804…0829 at0018 = ╱ef╱$╱ // 0x81c @0x18
0x0804…0829 at0019 = ╱ed╱(╱ // 0x81d @0x19
0x0804…0829 at001a = ╱45╱E╱ // 0x81e @0x1a
0x0804…0829 at001b = ╱f0╱:╱ // 0x81f @0x1b
0x0804…0829 at001c = ╱31╱1╱ // 0x820 @0x1c
0x0804…0829 at001d = ╱33╱3╱ // 0x821 @0x1d
0x0804…0829 at001e = ╱fe0000d004╱ // 0x822 @0x1e
0x0804…0829 at0023 = ╱ee╱)╱ // 0x827 @0x23
0x0804…0829 at0024 = EOL // 0x828 @0x24
0x0804…0829 }
0x0829…0862 95b9 1050 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "
0x0829…0862 LineComalBin {
0x0829…0862 ptr = 0x95b9 // 0x829 @0x0
0x0829…0862 lno = 0x041a // 0x82b @0x2
0x0829…0862 at0004 = ╱82╱ IF ╱ // 0x82d @0x4
0x0829…0862 at0005 = ╱54╱T╱ // 0x82e @0x5
0x0829…0862 at0006 = ╱45╱E╱ // 0x82f @0x6
0x0829…0862 at0007 = ╱47╱G╱ // 0x830 @0x7
0x0829…0862 at0008 = ╱4e╱N╱ // 0x831 @0x8
0x0829…0862 at0009 = ╱dc╱=╱ // 0x832 @0x9
0x0829…0862 at000a = ╱45╱E╱ // 0x833 @0xa
0x0829…0862 at000b = ╱da╱ AND ╱ // 0x834 @0xb
0x0829…0862 at000c = ╱55╱U╱ // 0x835 @0xc
0x0829…0862 at000d = ╱42╱B╱ // 0x836 @0xd
0x0829…0862 at000e = ╱4c╱L╱ // 0x837 @0xe
0x0829…0862 at000f = ╱42╱B╱ // 0x838 @0xf
0x0829…0862 at0010 = ╱31╱1╱ // 0x839 @0x10
0x0829…0862 at0011 = ╱ef╱$╱ // 0x83a @0x11
0x0829…0862 at0012 = ╱ed╱(╱ // 0x83b @0x12
0x0829…0862 at0013 = ╱cc╱LEN╱ // 0x83c @0x13
0x0829…0862 at0014 = ╱ed╱(╱ // 0x83d @0x14
0x0829…0862 at0015 = ╱55╱U╱ // 0x83e @0x15
0x0829…0862 at0016 = ╱42╱B╱ // 0x83f @0x16
0x0829…0862 at0017 = ╱4c╱L╱ // 0x840 @0x17
0x0829…0862 at0018 = ╱42╱B╱ // 0x841 @0x18
0x0829…0862 at0019 = ╱31╱1╱ // 0x842 @0x19
0x0829…0862 at001a = ╱ef╱$╱ // 0x843 @0x1a
0x0829…0862 at001b = ╱ee╱)╱ // 0x844 @0x1b
0x0829…0862 at001c = ╱ee╱)╱ // 0x845 @0x1c
0x0829…0862 at001d = ╱dc╱=╱ // 0x846 @0x1d
0x0829…0862 at001e = ╱22╱"╱ // 0x847 @0x1e
0x0829…0862 at001f = ╱2b╱+╱ // 0x848 @0x1f
0x0829…0862 at0020 = ╱22╱"╱ // 0x849 @0x20
0x0829…0862 at0021 = ╱b6╱ THEN ╱ // 0x84a @0x21
0x0829…0862 at0022 = ╱55╱U╱ // 0x84b @0x22
0x0829…0862 at0023 = ╱42╱B╱ // 0x84c @0x23
0x0829…0862 at0024 = ╱4c╱L╱ // 0x84d @0x24
0x0829…0862 at0025 = ╱42╱B╱ // 0x84e @0x25
0x0829…0862 at0026 = ╱31╱1╱ // 0x84f @0x26
0x0829…0862 at0027 = ╱ef╱$╱ // 0x850 @0x27
0x0829…0862 at0028 = ╱ed╱(╱ // 0x851 @0x28
0x0829…0862 at0029 = ╱cc╱LEN╱ // 0x852 @0x29
0x0829…0862 at002a = ╱ed╱(╱ // 0x853 @0x2a
0x0829…0862 at002b = ╱55╱U╱ // 0x854 @0x2b
0x0829…0862 at002c = ╱42╱B╱ // 0x855 @0x2c
0x0829…0862 at002d = ╱4c╱L╱ // 0x856 @0x2d
0x0829…0862 at002e = ╱42╱B╱ // 0x857 @0x2e
0x0829…0862 at002f = ╱31╱1╱ // 0x858 @0x2f
0x0829…0862 at0030 = ╱ef╱$╱ // 0x859 @0x30
0x0829…0862 at0031 = ╱ee╱)╱ // 0x85a @0x31
0x0829…0862 at0032 = ╱ee╱)╱ // 0x85b @0x32
0x0829…0862 at0033 = ╱dc╱=╱ // 0x85c @0x33
0x0829…0862 at0034 = ╱22╱"╱ // 0x85d @0x34
0x0829…0862 at0035 = ╱20╱…╱ // 0x85e @0x35
0x0829…0862 at0036 = ╱20╱…╱ // 0x85f @0x36
0x0829…0862 at0037 = ╱22╱"╱ // 0x860 @0x37
0x0829…0862 at0038 = EOL // 0x861 @0x38
0x0829…0862 }
0x0862…088f 95e6 1060 IF STØR=E THEN UBLB1$=UBLB$(4:LEN(UBLB1$)-V)
0x0862…088f LineComalBin {
0x0862…088f ptr = 0x95e6 // 0x862 @0x0
0x0862…088f lno = 0x0424 // 0x864 @0x2
0x0862…088f at0004 = ╱82╱ IF ╱ // 0x866 @0x4
0x0862…088f at0005 = ╱53╱S╱ // 0x867 @0x5
0x0862…088f at0006 = ╱54╱T╱ // 0x868 @0x6
0x0862…088f at0007 = ╱5c╱Ø╱ // 0x869 @0x7
0x0862…088f at0008 = ╱52╱R╱ // 0x86a @0x8
0x0862…088f at0009 = ╱dc╱=╱ // 0x86b @0x9
0x0862…088f at000a = ╱45╱E╱ // 0x86c @0xa
0x0862…088f at000b = ╱b6╱ THEN ╱ // 0x86d @0xb
0x0862…088f at000c = ╱55╱U╱ // 0x86e @0xc
0x0862…088f at000d = ╱42╱B╱ // 0x86f @0xd
0x0862…088f at000e = ╱4c╱L╱ // 0x870 @0xe
0x0862…088f at000f = ╱42╱B╱ // 0x871 @0xf
0x0862…088f at0010 = ╱31╱1╱ // 0x872 @0x10
0x0862…088f at0011 = ╱ef╱$╱ // 0x873 @0x11
0x0862…088f at0012 = ╱dc╱=╱ // 0x874 @0x12
0x0862…088f at0013 = ╱55╱U╱ // 0x875 @0x13
0x0862…088f at0014 = ╱42╱B╱ // 0x876 @0x14
0x0862…088f at0015 = ╱4c╱L╱ // 0x877 @0x15
0x0862…088f at0016 = ╱42╱B╱ // 0x878 @0x16
0x0862…088f at0017 = ╱ef╱$╱ // 0x879 @0x17
0x0862…088f at0018 = ╱ed╱(╱ // 0x87a @0x18
0x0862…088f at0019 = ╱34╱4╱ // 0x87b @0x19
0x0862…088f at001a = ╱fe00008003╱ // 0x87c @0x1a
0x0862…088f at001f = ╱f0╱:╱ // 0x881 @0x1f
0x0862…088f at0020 = ╱cc╱LEN╱ // 0x882 @0x20
0x0862…088f at0021 = ╱ed╱(╱ // 0x883 @0x21
0x0862…088f at0022 = ╱55╱U╱ // 0x884 @0x22
0x0862…088f at0023 = ╱42╱B╱ // 0x885 @0x23
0x0862…088f at0024 = ╱4c╱L╱ // 0x886 @0x24
0x0862…088f at0025 = ╱42╱B╱ // 0x887 @0x25
0x0862…088f at0026 = ╱31╱1╱ // 0x888 @0x26
0x0862…088f at0027 = ╱ef╱$╱ // 0x889 @0x27
0x0862…088f at0028 = ╱ee╱)╱ // 0x88a @0x28
0x0862…088f at0029 = ╱e3╱-╱ // 0x88b @0x29
0x0862…088f at002a = ╱56╱V╱ // 0x88c @0x2a
0x0862…088f at002b = ╱ee╱)╱ // 0x88d @0x2b
0x0862…088f at002c = EOL // 0x88e @0x2c
0x0862…088f }
0x088f…0895 95ec 1070 ENDPROC
0x088f…0895 LineComalBin {
0x088f…0895 ptr = 0x95ec // 0x88f @0x0
0x088f…0895 lno = 0x042e // 0x891 @0x2
0x088f…0895 at0004 = ╱9f╱ ENDPROC ╱ // 0x893 @0x4
0x088f…0895 at0005 = EOL // 0x894 @0x5
0x088f…0895 }
0x0895…08b5 960c 1080 PROC SLETPOST(TAB3,ANTAL3,PIL5)
0x0895…08b5 LineComalBin {
0x0895…08b5 ptr = 0x960c // 0x895 @0x0
0x0895…08b5 lno = 0x0438 // 0x897 @0x2
0x0895…08b5 at0004 = ╱9e╱ PROC ╱ // 0x899 @0x4
0x0895…08b5 at0005 = ╱53╱S╱ // 0x89a @0x5
0x0895…08b5 at0006 = ╱4c╱L╱ // 0x89b @0x6
0x0895…08b5 at0007 = ╱45╱E╱ // 0x89c @0x7
0x0895…08b5 at0008 = ╱54╱T╱ // 0x89d @0x8
0x0895…08b5 at0009 = ╱50╱P╱ // 0x89e @0x9
0x0895…08b5 at000a = ╱4f╱O╱ // 0x89f @0xa
0x0895…08b5 at000b = ╱53╱S╱ // 0x8a0 @0xb
0x0895…08b5 at000c = ╱54╱T╱ // 0x8a1 @0xc
0x0895…08b5 at000d = ╱ed╱(╱ // 0x8a2 @0xd
0x0895…08b5 at000e = ╱54╱T╱ // 0x8a3 @0xe
0x0895…08b5 at000f = ╱41╱A╱ // 0x8a4 @0xf
0x0895…08b5 at0010 = ╱42╱B╱ // 0x8a5 @0x10
0x0895…08b5 at0011 = ╱33╱3╱ // 0x8a6 @0x11
0x0895…08b5 at0012 = ╱ec╱,╱ // 0x8a7 @0x12
0x0895…08b5 at0013 = ╱41╱A╱ // 0x8a8 @0x13
0x0895…08b5 at0014 = ╱4e╱N╱ // 0x8a9 @0x14
0x0895…08b5 at0015 = ╱54╱T╱ // 0x8aa @0x15
0x0895…08b5 at0016 = ╱41╱A╱ // 0x8ab @0x16
0x0895…08b5 at0017 = ╱4c╱L╱ // 0x8ac @0x17
0x0895…08b5 at0018 = ╱33╱3╱ // 0x8ad @0x18
0x0895…08b5 at0019 = ╱ec╱,╱ // 0x8ae @0x19
0x0895…08b5 at001a = ╱50╱P╱ // 0x8af @0x1a
0x0895…08b5 at001b = ╱49╱I╱ // 0x8b0 @0x1b
0x0895…08b5 at001c = ╱4c╱L╱ // 0x8b1 @0x1c
0x0895…08b5 at001d = ╱35╱5╱ // 0x8b2 @0x1d
0x0895…08b5 at001e = ╱ee╱)╱ // 0x8b3 @0x1e
0x0895…08b5 at001f = EOL // 0x8b4 @0x1f
0x0895…08b5 }
0x08b5…08cd 9624 1090 POSTNR=TAB3(PIL5,G)
0x08b5…08cd LineComalBin {
0x08b5…08cd ptr = 0x9624 // 0x8b5 @0x0
0x08b5…08cd lno = 0x0442 // 0x8b7 @0x2
0x08b5…08cd at0004 = ╱50╱P╱ // 0x8b9 @0x4
0x08b5…08cd at0005 = ╱4f╱O╱ // 0x8ba @0x5
0x08b5…08cd at0006 = ╱53╱S╱ // 0x8bb @0x6
0x08b5…08cd at0007 = ╱54╱T╱ // 0x8bc @0x7
0x08b5…08cd at0008 = ╱4e╱N╱ // 0x8bd @0x8
0x08b5…08cd at0009 = ╱52╱R╱ // 0x8be @0x9
0x08b5…08cd at000a = ╱dc╱=╱ // 0x8bf @0xa
0x08b5…08cd at000b = ╱54╱T╱ // 0x8c0 @0xb
0x08b5…08cd at000c = ╱41╱A╱ // 0x8c1 @0xc
0x08b5…08cd at000d = ╱42╱B╱ // 0x8c2 @0xd
0x08b5…08cd at000e = ╱33╱3╱ // 0x8c3 @0xe
0x08b5…08cd at000f = ╱ed╱(╱ // 0x8c4 @0xf
0x08b5…08cd at0010 = ╱50╱P╱ // 0x8c5 @0x10
0x08b5…08cd at0011 = ╱49╱I╱ // 0x8c6 @0x11
0x08b5…08cd at0012 = ╱4c╱L╱ // 0x8c7 @0x12
0x08b5…08cd at0013 = ╱35╱5╱ // 0x8c8 @0x13
0x08b5…08cd at0014 = ╱ec╱,╱ // 0x8c9 @0x14
0x08b5…08cd at0015 = ╱47╱G╱ // 0x8ca @0x15
0x08b5…08cd at0016 = ╱ee╱)╱ // 0x8cb @0x16
0x08b5…08cd at0017 = EOL // 0x8cc @0x17
0x08b5…08cd }
0x08cd…08e2 9639 1100 FOR I=PIL5 TO ANTAL3-E
0x08cd…08e2 LineComalBin {
0x08cd…08e2 ptr = 0x9639 // 0x8cd @0x0
0x08cd…08e2 lno = 0x044c // 0x8cf @0x2
0x08cd…08e2 at0004 = ╱83╱ FOR ╱ // 0x8d1 @0x4
0x08cd…08e2 at0005 = ╱49╱I╱ // 0x8d2 @0x5
0x08cd…08e2 at0006 = ╱dc╱=╱ // 0x8d3 @0x6
0x08cd…08e2 at0007 = ╱50╱P╱ // 0x8d4 @0x7
0x08cd…08e2 at0008 = ╱49╱I╱ // 0x8d5 @0x8
0x08cd…08e2 at0009 = ╱4c╱L╱ // 0x8d6 @0x9
0x08cd…08e2 at000a = ╱35╱5╱ // 0x8d7 @0xa
0x08cd…08e2 at000b = ╱b7╱ TO ╱ // 0x8d8 @0xb
0x08cd…08e2 at000c = ╱41╱A╱ // 0x8d9 @0xc
0x08cd…08e2 at000d = ╱4e╱N╱ // 0x8da @0xd
0x08cd…08e2 at000e = ╱54╱T╱ // 0x8db @0xe
0x08cd…08e2 at000f = ╱41╱A╱ // 0x8dc @0xf
0x08cd…08e2 at0010 = ╱4c╱L╱ // 0x8dd @0x10
0x08cd…08e2 at0011 = ╱33╱3╱ // 0x8de @0x11
0x08cd…08e2 at0012 = ╱e3╱-╱ // 0x8df @0x12
0x08cd…08e2 at0013 = ╱45╱E╱ // 0x8e0 @0x13
0x08cd…08e2 at0014 = EOL // 0x8e1 @0x14
0x08cd…08e2 }
0x08e2…0912 9669 1110 TAB3(I,E)=TAB3(I+E,E);TAB3(I,G)=TAB3(I+E,G)
0x08e2…0912 LineComalBin {
0x08e2…0912 ptr = 0x9669 // 0x8e2 @0x0
0x08e2…0912 lno = 0x0456 // 0x8e4 @0x2
0x08e2…0912 at0004 = ╱54╱T╱ // 0x8e6 @0x4
0x08e2…0912 at0005 = ╱41╱A╱ // 0x8e7 @0x5
0x08e2…0912 at0006 = ╱42╱B╱ // 0x8e8 @0x6
0x08e2…0912 at0007 = ╱33╱3╱ // 0x8e9 @0x7
0x08e2…0912 at0008 = ╱ed╱(╱ // 0x8ea @0x8
0x08e2…0912 at0009 = ╱49╱I╱ // 0x8eb @0x9
0x08e2…0912 at000a = ╱ec╱,╱ // 0x8ec @0xa
0x08e2…0912 at000b = ╱45╱E╱ // 0x8ed @0xb
0x08e2…0912 at000c = ╱ee╱)╱ // 0x8ee @0xc
0x08e2…0912 at000d = ╱dc╱=╱ // 0x8ef @0xd
0x08e2…0912 at000e = ╱54╱T╱ // 0x8f0 @0xe
0x08e2…0912 at000f = ╱41╱A╱ // 0x8f1 @0xf
0x08e2…0912 at0010 = ╱42╱B╱ // 0x8f2 @0x10
0x08e2…0912 at0011 = ╱33╱3╱ // 0x8f3 @0x11
0x08e2…0912 at0012 = ╱ed╱(╱ // 0x8f4 @0x12
0x08e2…0912 at0013 = ╱49╱I╱ // 0x8f5 @0x13
0x08e2…0912 at0014 = ╱e2╱+╱ // 0x8f6 @0x14
0x08e2…0912 at0015 = ╱45╱E╱ // 0x8f7 @0x15
0x08e2…0912 at0016 = ╱ec╱,╱ // 0x8f8 @0x16
0x08e2…0912 at0017 = ╱45╱E╱ // 0x8f9 @0x17
0x08e2…0912 at0018 = ╱ee╱)╱ // 0x8fa @0x18
0x08e2…0912 at0019 = ╱eb╱;╱ // 0x8fb @0x19
0x08e2…0912 at001a = ╱54╱T╱ // 0x8fc @0x1a
0x08e2…0912 at001b = ╱41╱A╱ // 0x8fd @0x1b
0x08e2…0912 at001c = ╱42╱B╱ // 0x8fe @0x1c
0x08e2…0912 at001d = ╱33╱3╱ // 0x8ff @0x1d
0x08e2…0912 at001e = ╱ed╱(╱ // 0x900 @0x1e
0x08e2…0912 at001f = ╱49╱I╱ // 0x901 @0x1f
0x08e2…0912 at0020 = ╱ec╱,╱ // 0x902 @0x20
0x08e2…0912 at0021 = ╱47╱G╱ // 0x903 @0x21
0x08e2…0912 at0022 = ╱ee╱)╱ // 0x904 @0x22
0x08e2…0912 at0023 = ╱dc╱=╱ // 0x905 @0x23
0x08e2…0912 at0024 = ╱54╱T╱ // 0x906 @0x24
0x08e2…0912 at0025 = ╱41╱A╱ // 0x907 @0x25
0x08e2…0912 at0026 = ╱42╱B╱ // 0x908 @0x26
0x08e2…0912 at0027 = ╱33╱3╱ // 0x909 @0x27
0x08e2…0912 at0028 = ╱ed╱(╱ // 0x90a @0x28
0x08e2…0912 at0029 = ╱49╱I╱ // 0x90b @0x29
0x08e2…0912 at002a = ╱e2╱+╱ // 0x90c @0x2a
0x08e2…0912 at002b = ╱45╱E╱ // 0x90d @0x2b
0x08e2…0912 at002c = ╱ec╱,╱ // 0x90e @0x2c
0x08e2…0912 at002d = ╱47╱G╱ // 0x90f @0x2d
0x08e2…0912 at002e = ╱ee╱)╱ // 0x910 @0x2e
0x08e2…0912 at002f = EOL // 0x911 @0x2f
0x08e2…0912 }
0x0912…0919 9670 1120 NEXT I
0x0912…0919 LineComalBin {
0x0912…0919 ptr = 0x9670 // 0x912 @0x0
0x0912…0919 lno = 0x0460 // 0x914 @0x2
0x0912…0919 at0004 = ╱84╱ NEXT ╱ // 0x916 @0x4
0x0912…0919 at0005 = ╱49╱I╱ // 0x917 @0x5
0x0912…0919 at0006 = EOL // 0x918 @0x6
0x0912…0919 }
0x0919…095f 96b6 1130 TAB3(ANTAL3,E)=1000000;TAB3(ANTAL3,G)=POSTNR;ANTAL3=ANTAL3-E
0x0919…095f LineComalBin {
0x0919…095f ptr = 0x96b6 // 0x919 @0x0
0x0919…095f lno = 0x046a // 0x91b @0x2
0x0919…095f at0004 = ╱54╱T╱ // 0x91d @0x4
0x0919…095f at0005 = ╱41╱A╱ // 0x91e @0x5
0x0919…095f at0006 = ╱42╱B╱ // 0x91f @0x6
0x0919…095f at0007 = ╱33╱3╱ // 0x920 @0x7
0x0919…095f at0008 = ╱ed╱(╱ // 0x921 @0x8
0x0919…095f at0009 = ╱41╱A╱ // 0x922 @0x9
0x0919…095f at000a = ╱4e╱N╱ // 0x923 @0xa
0x0919…095f at000b = ╱54╱T╱ // 0x924 @0xb
0x0919…095f at000c = ╱41╱A╱ // 0x925 @0xc
0x0919…095f at000d = ╱4c╱L╱ // 0x926 @0xd
0x0919…095f at000e = ╱33╱3╱ // 0x927 @0xe
0x0919…095f at000f = ╱ec╱,╱ // 0x928 @0xf
0x0919…095f at0010 = ╱45╱E╱ // 0x929 @0x10
0x0919…095f at0011 = ╱ee╱)╱ // 0x92a @0x11
0x0919…095f at0012 = ╱dc╱=╱ // 0x92b @0x12
0x0919…095f at0013 = ╱31╱1╱ // 0x92c @0x13
0x0919…095f at0014 = ╱30╱0╱ // 0x92d @0x14
0x0919…095f at0015 = ╱30╱0╱ // 0x92e @0x15
0x0919…095f at0016 = ╱30╱0╱ // 0x92f @0x16
0x0919…095f at0017 = ╱30╱0╱ // 0x930 @0x17
0x0919…095f at0018 = ╱30╱0╱ // 0x931 @0x18
0x0919…095f at0019 = ╱30╱0╱ // 0x932 @0x19
0x0919…095f at001a = ╱fe0024f414╱ // 0x933 @0x1a
0x0919…095f at001f = ╱eb╱;╱ // 0x938 @0x1f
0x0919…095f at0020 = ╱54╱T╱ // 0x939 @0x20
0x0919…095f at0021 = ╱41╱A╱ // 0x93a @0x21
0x0919…095f at0022 = ╱42╱B╱ // 0x93b @0x22
0x0919…095f at0023 = ╱33╱3╱ // 0x93c @0x23
0x0919…095f at0024 = ╱ed╱(╱ // 0x93d @0x24
0x0919…095f at0025 = ╱41╱A╱ // 0x93e @0x25
0x0919…095f at0026 = ╱4e╱N╱ // 0x93f @0x26
0x0919…095f at0027 = ╱54╱T╱ // 0x940 @0x27
0x0919…095f at0028 = ╱41╱A╱ // 0x941 @0x28
0x0919…095f at0029 = ╱4c╱L╱ // 0x942 @0x29
0x0919…095f at002a = ╱33╱3╱ // 0x943 @0x2a
0x0919…095f at002b = ╱ec╱,╱ // 0x944 @0x2b
0x0919…095f at002c = ╱47╱G╱ // 0x945 @0x2c
0x0919…095f at002d = ╱ee╱)╱ // 0x946 @0x2d
0x0919…095f at002e = ╱dc╱=╱ // 0x947 @0x2e
0x0919…095f at002f = ╱50╱P╱ // 0x948 @0x2f
0x0919…095f at0030 = ╱4f╱O╱ // 0x949 @0x30
0x0919…095f at0031 = ╱53╱S╱ // 0x94a @0x31
0x0919…095f at0032 = ╱54╱T╱ // 0x94b @0x32
0x0919…095f at0033 = ╱4e╱N╱ // 0x94c @0x33
0x0919…095f at0034 = ╱52╱R╱ // 0x94d @0x34
0x0919…095f at0035 = ╱eb╱;╱ // 0x94e @0x35
0x0919…095f at0036 = ╱41╱A╱ // 0x94f @0x36
0x0919…095f at0037 = ╱4e╱N╱ // 0x950 @0x37
0x0919…095f at0038 = ╱54╱T╱ // 0x951 @0x38
0x0919…095f at0039 = ╱41╱A╱ // 0x952 @0x39
0x0919…095f at003a = ╱4c╱L╱ // 0x953 @0x3a
0x0919…095f at003b = ╱33╱3╱ // 0x954 @0x3b
0x0919…095f at003c = ╱dc╱=╱ // 0x955 @0x3c
0x0919…095f at003d = ╱41╱A╱ // 0x956 @0x3d
0x0919…095f at003e = ╱4e╱N╱ // 0x957 @0x3e
0x0919…095f at003f = ╱54╱T╱ // 0x958 @0x3f
0x0919…095f at0040 = ╱41╱A╱ // 0x959 @0x40
0x0919…095f at0041 = ╱4c╱L╱ // 0x95a @0x41
0x0919…095f at0042 = ╱33╱3╱ // 0x95b @0x42
0x0919…095f at0043 = ╱e3╱-╱ // 0x95c @0x43
0x0919…095f at0044 = ╱45╱E╱ // 0x95d @0x44
0x0919…095f at0045 = EOL // 0x95e @0x45
0x0919…095f }
0x095f…0965 96bc 1140 ENDPROC
0x095f…0965 LineComalBin {
0x095f…0965 ptr = 0x96bc // 0x95f @0x0
0x095f…0965 lno = 0x0474 // 0x961 @0x2
0x095f…0965 at0004 = ╱9f╱ ENDPROC ╱ // 0x963 @0x4
0x095f…0965 at0005 = EOL // 0x964 @0x5
0x095f…0965 }
0x0965…098a 96e1 1150 PROC INDSÆT1(TAB2,ANTAL2,NØGL2,PIL4)
0x0965…098a LineComalBin {
0x0965…098a ptr = 0x96e1 // 0x965 @0x0
0x0965…098a lno = 0x047e // 0x967 @0x2
0x0965…098a at0004 = ╱9e╱ PROC ╱ // 0x969 @0x4
0x0965…098a at0005 = ╱49╱I╱ // 0x96a @0x5
0x0965…098a at0006 = ╱4e╱N╱ // 0x96b @0x6
0x0965…098a at0007 = ╱44╱D╱ // 0x96c @0x7
0x0965…098a at0008 = ╱53╱S╱ // 0x96d @0x8
0x0965…098a at0009 = ╱5b╱Æ╱ // 0x96e @0x9
0x0965…098a at000a = ╱54╱T╱ // 0x96f @0xa
0x0965…098a at000b = ╱31╱1╱ // 0x970 @0xb
0x0965…098a at000c = ╱ed╱(╱ // 0x971 @0xc
0x0965…098a at000d = ╱54╱T╱ // 0x972 @0xd
0x0965…098a at000e = ╱41╱A╱ // 0x973 @0xe
0x0965…098a at000f = ╱42╱B╱ // 0x974 @0xf
0x0965…098a at0010 = ╱32╱2╱ // 0x975 @0x10
0x0965…098a at0011 = ╱ec╱,╱ // 0x976 @0x11
0x0965…098a at0012 = ╱41╱A╱ // 0x977 @0x12
0x0965…098a at0013 = ╱4e╱N╱ // 0x978 @0x13
0x0965…098a at0014 = ╱54╱T╱ // 0x979 @0x14
0x0965…098a at0015 = ╱41╱A╱ // 0x97a @0x15
0x0965…098a at0016 = ╱4c╱L╱ // 0x97b @0x16
0x0965…098a at0017 = ╱32╱2╱ // 0x97c @0x17
0x0965…098a at0018 = ╱ec╱,╱ // 0x97d @0x18
0x0965…098a at0019 = ╱4e╱N╱ // 0x97e @0x19
0x0965…098a at001a = ╱5c╱Ø╱ // 0x97f @0x1a
0x0965…098a at001b = ╱47╱G╱ // 0x980 @0x1b
0x0965…098a at001c = ╱4c╱L╱ // 0x981 @0x1c
0x0965…098a at001d = ╱32╱2╱ // 0x982 @0x1d
0x0965…098a at001e = ╱ec╱,╱ // 0x983 @0x1e
0x0965…098a at001f = ╱50╱P╱ // 0x984 @0x1f
0x0965…098a at0020 = ╱49╱I╱ // 0x985 @0x20
0x0965…098a at0021 = ╱4c╱L╱ // 0x986 @0x21
0x0965…098a at0022 = ╱34╱4╱ // 0x987 @0x22
0x0965…098a at0023 = ╱ee╱)╱ // 0x988 @0x23
0x0965…098a at0024 = EOL // 0x989 @0x24
0x0965…098a }
0x098a…09a6 96fd 1160 POSTNR=TAB2(ANTAL2+E,G)
0x098a…09a6 LineComalBin {
0x098a…09a6 ptr = 0x96fd // 0x98a @0x0
0x098a…09a6 lno = 0x0488 // 0x98c @0x2
0x098a…09a6 at0004 = ╱50╱P╱ // 0x98e @0x4
0x098a…09a6 at0005 = ╱4f╱O╱ // 0x98f @0x5
0x098a…09a6 at0006 = ╱53╱S╱ // 0x990 @0x6
0x098a…09a6 at0007 = ╱54╱T╱ // 0x991 @0x7
0x098a…09a6 at0008 = ╱4e╱N╱ // 0x992 @0x8
0x098a…09a6 at0009 = ╱52╱R╱ // 0x993 @0x9
0x098a…09a6 at000a = ╱dc╱=╱ // 0x994 @0xa
0x098a…09a6 at000b = ╱54╱T╱ // 0x995 @0xb
0x098a…09a6 at000c = ╱41╱A╱ // 0x996 @0xc
0x098a…09a6 at000d = ╱42╱B╱ // 0x997 @0xd
0x098a…09a6 at000e = ╱32╱2╱ // 0x998 @0xe
0x098a…09a6 at000f = ╱ed╱(╱ // 0x999 @0xf
0x098a…09a6 at0010 = ╱41╱A╱ // 0x99a @0x10
0x098a…09a6 at0011 = ╱4e╱N╱ // 0x99b @0x11
0x098a…09a6 at0012 = ╱54╱T╱ // 0x99c @0x12
0x098a…09a6 at0013 = ╱41╱A╱ // 0x99d @0x13
0x098a…09a6 at0014 = ╱4c╱L╱ // 0x99e @0x14
0x098a…09a6 at0015 = ╱32╱2╱ // 0x99f @0x15
0x098a…09a6 at0016 = ╱e2╱+╱ // 0x9a0 @0x16
0x098a…09a6 at0017 = ╱45╱E╱ // 0x9a1 @0x17
0x098a…09a6 at0018 = ╱ec╱,╱ // 0x9a2 @0x18
0x098a…09a6 at0019 = ╱47╱G╱ // 0x9a3 @0x19
0x098a…09a6 at001a = ╱ee╱)╱ // 0x9a4 @0x1a
0x098a…09a6 at001b = EOL // 0x9a5 @0x1b
0x098a…09a6 }
0x09a6…09ca 9721 1170 IF NØGL2>TAB2(PIL4,E) THEN PIL4=PIL4+E
0x09a6…09ca LineComalBin {
0x09a6…09ca ptr = 0x9721 // 0x9a6 @0x0
0x09a6…09ca lno = 0x0492 // 0x9a8 @0x2
0x09a6…09ca at0004 = ╱82╱ IF ╱ // 0x9aa @0x4
0x09a6…09ca at0005 = ╱4e╱N╱ // 0x9ab @0x5
0x09a6…09ca at0006 = ╱5c╱Ø╱ // 0x9ac @0x6
0x09a6…09ca at0007 = ╱47╱G╱ // 0x9ad @0x7
0x09a6…09ca at0008 = ╱4c╱L╱ // 0x9ae @0x8
0x09a6…09ca at0009 = ╱32╱2╱ // 0x9af @0x9
0x09a6…09ca at000a = ╱de╱>╱ // 0x9b0 @0xa
0x09a6…09ca at000b = ╱54╱T╱ // 0x9b1 @0xb
0x09a6…09ca at000c = ╱41╱A╱ // 0x9b2 @0xc
0x09a6…09ca at000d = ╱42╱B╱ // 0x9b3 @0xd
0x09a6…09ca at000e = ╱32╱2╱ // 0x9b4 @0xe
0x09a6…09ca at000f = ╱ed╱(╱ // 0x9b5 @0xf
0x09a6…09ca at0010 = ╱50╱P╱ // 0x9b6 @0x10
0x09a6…09ca at0011 = ╱49╱I╱ // 0x9b7 @0x11
0x09a6…09ca at0012 = ╱4c╱L╱ // 0x9b8 @0x12
0x09a6…09ca at0013 = ╱34╱4╱ // 0x9b9 @0x13
0x09a6…09ca at0014 = ╱ec╱,╱ // 0x9ba @0x14
0x09a6…09ca at0015 = ╱45╱E╱ // 0x9bb @0x15
0x09a6…09ca at0016 = ╱ee╱)╱ // 0x9bc @0x16
0x09a6…09ca at0017 = ╱b6╱ THEN ╱ // 0x9bd @0x17
0x09a6…09ca at0018 = ╱50╱P╱ // 0x9be @0x18
0x09a6…09ca at0019 = ╱49╱I╱ // 0x9bf @0x19
0x09a6…09ca at001a = ╱4c╱L╱ // 0x9c0 @0x1a
0x09a6…09ca at001b = ╱34╱4╱ // 0x9c1 @0x1b
0x09a6…09ca at001c = ╱dc╱=╱ // 0x9c2 @0x1c
0x09a6…09ca at001d = ╱50╱P╱ // 0x9c3 @0x1d
0x09a6…09ca at001e = ╱49╱I╱ // 0x9c4 @0x1e
0x09a6…09ca at001f = ╱4c╱L╱ // 0x9c5 @0x1f
0x09a6…09ca at0020 = ╱34╱4╱ // 0x9c6 @0x20
0x09a6…09ca at0021 = ╱e2╱+╱ // 0x9c7 @0x21
0x09a6…09ca at0022 = ╱45╱E╱ // 0x9c8 @0x22
0x09a6…09ca at0023 = EOL // 0x9c9 @0x23
0x09a6…09ca }
0x09ca…09e4 973b 1180 FOR I=ANTAL2+E TO PIL4+E STEP -E
0x09ca…09e4 LineComalBin {
0x09ca…09e4 ptr = 0x973b // 0x9ca @0x0
0x09ca…09e4 lno = 0x049c // 0x9cc @0x2
0x09ca…09e4 at0004 = ╱83╱ FOR ╱ // 0x9ce @0x4
0x09ca…09e4 at0005 = ╱49╱I╱ // 0x9cf @0x5
0x09ca…09e4 at0006 = ╱dc╱=╱ // 0x9d0 @0x6
0x09ca…09e4 at0007 = ╱41╱A╱ // 0x9d1 @0x7
0x09ca…09e4 at0008 = ╱4e╱N╱ // 0x9d2 @0x8
0x09ca…09e4 at0009 = ╱54╱T╱ // 0x9d3 @0x9
0x09ca…09e4 at000a = ╱41╱A╱ // 0x9d4 @0xa
0x09ca…09e4 at000b = ╱4c╱L╱ // 0x9d5 @0xb
0x09ca…09e4 at000c = ╱32╱2╱ // 0x9d6 @0xc
0x09ca…09e4 at000d = ╱e2╱+╱ // 0x9d7 @0xd
0x09ca…09e4 at000e = ╱45╱E╱ // 0x9d8 @0xe
0x09ca…09e4 at000f = ╱b7╱ TO ╱ // 0x9d9 @0xf
0x09ca…09e4 at0010 = ╱50╱P╱ // 0x9da @0x10
0x09ca…09e4 at0011 = ╱49╱I╱ // 0x9db @0x11
0x09ca…09e4 at0012 = ╱4c╱L╱ // 0x9dc @0x12
0x09ca…09e4 at0013 = ╱34╱4╱ // 0x9dd @0x13
0x09ca…09e4 at0014 = ╱e2╱+╱ // 0x9de @0x14
0x09ca…09e4 at0015 = ╱45╱E╱ // 0x9df @0x15
0x09ca…09e4 at0016 = ╱b8╱ STEP ╱ // 0x9e0 @0x16
0x09ca…09e4 at0017 = ╱e9╱-╱ // 0x9e1 @0x17
0x09ca…09e4 at0018 = ╱45╱E╱ // 0x9e2 @0x18
0x09ca…09e4 at0019 = EOL // 0x9e3 @0x19
0x09ca…09e4 }
0x09e4…0a14 976b 1190 TAB2(I,E)=TAB2(I-E,E);TAB2(I,G)=TAB2(I-E,G)
0x09e4…0a14 LineComalBin {
0x09e4…0a14 ptr = 0x976b // 0x9e4 @0x0
0x09e4…0a14 lno = 0x04a6 // 0x9e6 @0x2
0x09e4…0a14 at0004 = ╱54╱T╱ // 0x9e8 @0x4
0x09e4…0a14 at0005 = ╱41╱A╱ // 0x9e9 @0x5
0x09e4…0a14 at0006 = ╱42╱B╱ // 0x9ea @0x6
0x09e4…0a14 at0007 = ╱32╱2╱ // 0x9eb @0x7
0x09e4…0a14 at0008 = ╱ed╱(╱ // 0x9ec @0x8
0x09e4…0a14 at0009 = ╱49╱I╱ // 0x9ed @0x9
0x09e4…0a14 at000a = ╱ec╱,╱ // 0x9ee @0xa
0x09e4…0a14 at000b = ╱45╱E╱ // 0x9ef @0xb
0x09e4…0a14 at000c = ╱ee╱)╱ // 0x9f0 @0xc
0x09e4…0a14 at000d = ╱dc╱=╱ // 0x9f1 @0xd
0x09e4…0a14 at000e = ╱54╱T╱ // 0x9f2 @0xe
0x09e4…0a14 at000f = ╱41╱A╱ // 0x9f3 @0xf
0x09e4…0a14 at0010 = ╱42╱B╱ // 0x9f4 @0x10
0x09e4…0a14 at0011 = ╱32╱2╱ // 0x9f5 @0x11
0x09e4…0a14 at0012 = ╱ed╱(╱ // 0x9f6 @0x12
0x09e4…0a14 at0013 = ╱49╱I╱ // 0x9f7 @0x13
0x09e4…0a14 at0014 = ╱e3╱-╱ // 0x9f8 @0x14
0x09e4…0a14 at0015 = ╱45╱E╱ // 0x9f9 @0x15
0x09e4…0a14 at0016 = ╱ec╱,╱ // 0x9fa @0x16
0x09e4…0a14 at0017 = ╱45╱E╱ // 0x9fb @0x17
0x09e4…0a14 at0018 = ╱ee╱)╱ // 0x9fc @0x18
0x09e4…0a14 at0019 = ╱eb╱;╱ // 0x9fd @0x19
0x09e4…0a14 at001a = ╱54╱T╱ // 0x9fe @0x1a
0x09e4…0a14 at001b = ╱41╱A╱ // 0x9ff @0x1b
0x09e4…0a14 at001c = ╱42╱B╱ // 0xa00 @0x1c
0x09e4…0a14 at001d = ╱32╱2╱ // 0xa01 @0x1d
0x09e4…0a14 at001e = ╱ed╱(╱ // 0xa02 @0x1e
0x09e4…0a14 at001f = ╱49╱I╱ // 0xa03 @0x1f
0x09e4…0a14 at0020 = ╱ec╱,╱ // 0xa04 @0x20
0x09e4…0a14 at0021 = ╱47╱G╱ // 0xa05 @0x21
0x09e4…0a14 at0022 = ╱ee╱)╱ // 0xa06 @0x22
0x09e4…0a14 at0023 = ╱dc╱=╱ // 0xa07 @0x23
0x09e4…0a14 at0024 = ╱54╱T╱ // 0xa08 @0x24
0x09e4…0a14 at0025 = ╱41╱A╱ // 0xa09 @0x25
0x09e4…0a14 at0026 = ╱42╱B╱ // 0xa0a @0x26
0x09e4…0a14 at0027 = ╱32╱2╱ // 0xa0b @0x27
0x09e4…0a14 at0028 = ╱ed╱(╱ // 0xa0c @0x28
0x09e4…0a14 at0029 = ╱49╱I╱ // 0xa0d @0x29
0x09e4…0a14 at002a = ╱e3╱-╱ // 0xa0e @0x2a
0x09e4…0a14 at002b = ╱45╱E╱ // 0xa0f @0x2b
0x09e4…0a14 at002c = ╱ec╱,╱ // 0xa10 @0x2c
0x09e4…0a14 at002d = ╱47╱G╱ // 0xa11 @0x2d
0x09e4…0a14 at002e = ╱ee╱)╱ // 0xa12 @0x2e
0x09e4…0a14 at002f = EOL // 0xa13 @0x2f
0x09e4…0a14 }
0x0a14…0a1b 9772 1200 NEXT I
0x0a14…0a1b LineComalBin {
0x0a14…0a1b ptr = 0x9772 // 0xa14 @0x0
0x0a14…0a1b lno = 0x04b0 // 0xa16 @0x2
0x0a14…0a1b at0004 = ╱84╱ NEXT ╱ // 0xa18 @0x4
0x0a14…0a1b at0005 = ╱49╱I╱ // 0xa19 @0x5
0x0a14…0a1b at0006 = EOL // 0xa1a @0x6
0x0a14…0a1b }
0x0a1b…0a56 97ad 1210 TAB2(PIL4,E)=NØGL2;TAB2(PIL4,G)=POSTNR;ANTAL2=ANTAL2+E
0x0a1b…0a56 LineComalBin {
0x0a1b…0a56 ptr = 0x97ad // 0xa1b @0x0
0x0a1b…0a56 lno = 0x04ba // 0xa1d @0x2
0x0a1b…0a56 at0004 = ╱54╱T╱ // 0xa1f @0x4
0x0a1b…0a56 at0005 = ╱41╱A╱ // 0xa20 @0x5
0x0a1b…0a56 at0006 = ╱42╱B╱ // 0xa21 @0x6
0x0a1b…0a56 at0007 = ╱32╱2╱ // 0xa22 @0x7
0x0a1b…0a56 at0008 = ╱ed╱(╱ // 0xa23 @0x8
0x0a1b…0a56 at0009 = ╱50╱P╱ // 0xa24 @0x9
0x0a1b…0a56 at000a = ╱49╱I╱ // 0xa25 @0xa
0x0a1b…0a56 at000b = ╱4c╱L╱ // 0xa26 @0xb
0x0a1b…0a56 at000c = ╱34╱4╱ // 0xa27 @0xc
0x0a1b…0a56 at000d = ╱ec╱,╱ // 0xa28 @0xd
0x0a1b…0a56 at000e = ╱45╱E╱ // 0xa29 @0xe
0x0a1b…0a56 at000f = ╱ee╱)╱ // 0xa2a @0xf
0x0a1b…0a56 at0010 = ╱dc╱=╱ // 0xa2b @0x10
0x0a1b…0a56 at0011 = ╱4e╱N╱ // 0xa2c @0x11
0x0a1b…0a56 at0012 = ╱5c╱Ø╱ // 0xa2d @0x12
0x0a1b…0a56 at0013 = ╱47╱G╱ // 0xa2e @0x13
0x0a1b…0a56 at0014 = ╱4c╱L╱ // 0xa2f @0x14
0x0a1b…0a56 at0015 = ╱32╱2╱ // 0xa30 @0x15
0x0a1b…0a56 at0016 = ╱eb╱;╱ // 0xa31 @0x16
0x0a1b…0a56 at0017 = ╱54╱T╱ // 0xa32 @0x17
0x0a1b…0a56 at0018 = ╱41╱A╱ // 0xa33 @0x18
0x0a1b…0a56 at0019 = ╱42╱B╱ // 0xa34 @0x19
0x0a1b…0a56 at001a = ╱32╱2╱ // 0xa35 @0x1a
0x0a1b…0a56 at001b = ╱ed╱(╱ // 0xa36 @0x1b
0x0a1b…0a56 at001c = ╱50╱P╱ // 0xa37 @0x1c
0x0a1b…0a56 at001d = ╱49╱I╱ // 0xa38 @0x1d
0x0a1b…0a56 at001e = ╱4c╱L╱ // 0xa39 @0x1e
0x0a1b…0a56 at001f = ╱34╱4╱ // 0xa3a @0x1f
0x0a1b…0a56 at0020 = ╱ec╱,╱ // 0xa3b @0x20
0x0a1b…0a56 at0021 = ╱47╱G╱ // 0xa3c @0x21
0x0a1b…0a56 at0022 = ╱ee╱)╱ // 0xa3d @0x22
0x0a1b…0a56 at0023 = ╱dc╱=╱ // 0xa3e @0x23
0x0a1b…0a56 at0024 = ╱50╱P╱ // 0xa3f @0x24
0x0a1b…0a56 at0025 = ╱4f╱O╱ // 0xa40 @0x25
0x0a1b…0a56 at0026 = ╱53╱S╱ // 0xa41 @0x26
0x0a1b…0a56 at0027 = ╱54╱T╱ // 0xa42 @0x27
0x0a1b…0a56 at0028 = ╱4e╱N╱ // 0xa43 @0x28
0x0a1b…0a56 at0029 = ╱52╱R╱ // 0xa44 @0x29
0x0a1b…0a56 at002a = ╱eb╱;╱ // 0xa45 @0x2a
0x0a1b…0a56 at002b = ╱41╱A╱ // 0xa46 @0x2b
0x0a1b…0a56 at002c = ╱4e╱N╱ // 0xa47 @0x2c
0x0a1b…0a56 at002d = ╱54╱T╱ // 0xa48 @0x2d
0x0a1b…0a56 at002e = ╱41╱A╱ // 0xa49 @0x2e
0x0a1b…0a56 at002f = ╱4c╱L╱ // 0xa4a @0x2f
0x0a1b…0a56 at0030 = ╱32╱2╱ // 0xa4b @0x30
0x0a1b…0a56 at0031 = ╱dc╱=╱ // 0xa4c @0x31
0x0a1b…0a56 at0032 = ╱41╱A╱ // 0xa4d @0x32
0x0a1b…0a56 at0033 = ╱4e╱N╱ // 0xa4e @0x33
0x0a1b…0a56 at0034 = ╱54╱T╱ // 0xa4f @0x34
0x0a1b…0a56 at0035 = ╱41╱A╱ // 0xa50 @0x35
0x0a1b…0a56 at0036 = ╱4c╱L╱ // 0xa51 @0x36
0x0a1b…0a56 at0037 = ╱32╱2╱ // 0xa52 @0x37
0x0a1b…0a56 at0038 = ╱e2╱+╱ // 0xa53 @0x38
0x0a1b…0a56 at0039 = ╱45╱E╱ // 0xa54 @0x39
0x0a1b…0a56 at003a = EOL // 0xa55 @0x3a
0x0a1b…0a56 }
0x0a56…0a5c 97b3 1220 ENDPROC
0x0a56…0a5c LineComalBin {
0x0a56…0a5c ptr = 0x97b3 // 0xa56 @0x0
0x0a56…0a5c lno = 0x04c4 // 0xa58 @0x2
0x0a56…0a5c at0004 = ╱9f╱ ENDPROC ╱ // 0xa5a @0x4
0x0a56…0a5c at0005 = EOL // 0xa5b @0x5
0x0a56…0a5c }
0x0a5c…0a75 97cc 1230 PROC INDTAB1(Z,MANT5,L7)
0x0a5c…0a75 LineComalBin {
0x0a5c…0a75 ptr = 0x97cc // 0xa5c @0x0
0x0a5c…0a75 lno = 0x04ce // 0xa5e @0x2
0x0a5c…0a75 at0004 = ╱9e╱ PROC ╱ // 0xa60 @0x4
0x0a5c…0a75 at0005 = ╱49╱I╱ // 0xa61 @0x5
0x0a5c…0a75 at0006 = ╱4e╱N╱ // 0xa62 @0x6
0x0a5c…0a75 at0007 = ╱44╱D╱ // 0xa63 @0x7
0x0a5c…0a75 at0008 = ╱54╱T╱ // 0xa64 @0x8
0x0a5c…0a75 at0009 = ╱41╱A╱ // 0xa65 @0x9
0x0a5c…0a75 at000a = ╱42╱B╱ // 0xa66 @0xa
0x0a5c…0a75 at000b = ╱31╱1╱ // 0xa67 @0xb
0x0a5c…0a75 at000c = ╱ed╱(╱ // 0xa68 @0xc
0x0a5c…0a75 at000d = ╱5a╱Z╱ // 0xa69 @0xd
0x0a5c…0a75 at000e = ╱ec╱,╱ // 0xa6a @0xe
0x0a5c…0a75 at000f = ╱4d╱M╱ // 0xa6b @0xf
0x0a5c…0a75 at0010 = ╱41╱A╱ // 0xa6c @0x10
0x0a5c…0a75 at0011 = ╱4e╱N╱ // 0xa6d @0x11
0x0a5c…0a75 at0012 = ╱54╱T╱ // 0xa6e @0x12
0x0a5c…0a75 at0013 = ╱35╱5╱ // 0xa6f @0x13
0x0a5c…0a75 at0014 = ╱ec╱,╱ // 0xa70 @0x14
0x0a5c…0a75 at0015 = ╱4c╱L╱ // 0xa71 @0x15
0x0a5c…0a75 at0016 = ╱37╱7╱ // 0xa72 @0x16
0x0a5c…0a75 at0017 = ╱ee╱)╱ // 0xa73 @0x17
0x0a5c…0a75 at0018 = EOL // 0xa74 @0x18
0x0a5c…0a75 }
0x0a75…0a8c 97e3 1240 PIL1=MANT5 DIV 32
0x0a75…0a8c LineComalBin {
0x0a75…0a8c ptr = 0x97e3 // 0xa75 @0x0
0x0a75…0a8c lno = 0x04d8 // 0xa77 @0x2
0x0a75…0a8c at0004 = ╱50╱P╱ // 0xa79 @0x4
0x0a75…0a8c at0005 = ╱49╱I╱ // 0xa7a @0x5
0x0a75…0a8c at0006 = ╱4c╱L╱ // 0xa7b @0x6
0x0a75…0a8c at0007 = ╱31╱1╱ // 0xa7c @0x7
0x0a75…0a8c at0008 = ╱dc╱=╱ // 0xa7d @0x8
0x0a75…0a8c at0009 = ╱4d╱M╱ // 0xa7e @0x9
0x0a75…0a8c at000a = ╱41╱A╱ // 0xa7f @0xa
0x0a75…0a8c at000b = ╱4e╱N╱ // 0xa80 @0xb
0x0a75…0a8c at000c = ╱54╱T╱ // 0xa81 @0xc
0x0a75…0a8c at000d = ╱35╱5╱ // 0xa82 @0xd
0x0a75…0a8c at000e = ╱e7╱ DIV ╱ // 0xa83 @0xe
0x0a75…0a8c at000f = ╱33╱3╱ // 0xa84 @0xf
0x0a75…0a8c at0010 = ╱32╱2╱ // 0xa85 @0x10
0x0a75…0a8c at0011 = ╱fe00008006╱ // 0xa86 @0x11
0x0a75…0a8c at0016 = EOL // 0xa8b @0x16
0x0a75…0a8c }
0x0a8c…0a9a 97f1 1250 FOR I=E TO PIL1
0x0a8c…0a9a LineComalBin {
0x0a8c…0a9a ptr = 0x97f1 // 0xa8c @0x0
0x0a8c…0a9a lno = 0x04e2 // 0xa8e @0x2
0x0a8c…0a9a at0004 = ╱83╱ FOR ╱ // 0xa90 @0x4
0x0a8c…0a9a at0005 = ╱49╱I╱ // 0xa91 @0x5
0x0a8c…0a9a at0006 = ╱dc╱=╱ // 0xa92 @0x6
0x0a8c…0a9a at0007 = ╱45╱E╱ // 0xa93 @0x7
0x0a8c…0a9a at0008 = ╱b7╱ TO ╱ // 0xa94 @0x8
0x0a8c…0a9a at0009 = ╱50╱P╱ // 0xa95 @0x9
0x0a8c…0a9a at000a = ╱49╱I╱ // 0xa96 @0xa
0x0a8c…0a9a at000b = ╱4c╱L╱ // 0xa97 @0xb
0x0a8c…0a9a at000c = ╱31╱1╱ // 0xa98 @0xc
0x0a8c…0a9a at000d = EOL // 0xa99 @0xd
0x0a8c…0a9a }
0x0a9a…0aaf 9806 1260 H=(I-E)*8+E
0x0a9a…0aaf LineComalBin {
0x0a9a…0aaf ptr = 0x9806 // 0xa9a @0x0
0x0a9a…0aaf lno = 0x04ec // 0xa9c @0x2
0x0a9a…0aaf at0004 = ╱48╱H╱ // 0xa9e @0x4
0x0a9a…0aaf at0005 = ╱dc╱=╱ // 0xa9f @0x5
0x0a9a…0aaf at0006 = ╱ed╱(╱ // 0xaa0 @0x6
0x0a9a…0aaf at0007 = ╱49╱I╱ // 0xaa1 @0x7
0x0a9a…0aaf at0008 = ╱e3╱-╱ // 0xaa2 @0x8
0x0a9a…0aaf at0009 = ╱45╱E╱ // 0xaa3 @0x9
0x0a9a…0aaf at000a = ╱ee╱)╱ // 0xaa4 @0xa
0x0a9a…0aaf at000b = ╱e4╱*╱ // 0xaa5 @0xb
0x0a9a…0aaf at000c = ╱38╱8╱ // 0xaa6 @0xc
0x0a9a…0aaf at000d = ╱fe00008004╱ // 0xaa7 @0xd
0x0a9a…0aaf at0012 = ╱e2╱+╱ // 0xaac @0x12
0x0a9a…0aaf at0013 = ╱45╱E╱ // 0xaad @0x13
0x0a9a…0aaf at0014 = EOL // 0xaae @0x14
0x0a9a…0aaf }
0x0aaf…0b04 985b 1270 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)
0x0aaf…0b04 LineComalBin {
0x0aaf…0b04 ptr = 0x985b // 0xaaf @0x0
0x0aaf…0b04 lno = 0x04f6 // 0xab1 @0x2
0x0aaf…0b04 at0004 = ╱a9╱ GET ╱ // 0xab3 @0x4
0x0aaf…0b04 at0005 = ╱4c╱L╱ // 0xab4 @0x5
0x0aaf…0b04 at0006 = ╱37╱7╱ // 0xab5 @0x6
0x0aaf…0b04 at0007 = ╱ef╱$╱ // 0xab6 @0x7
0x0aaf…0b04 at0008 = ╱ec╱,╱ // 0xab7 @0x8
0x0aaf…0b04 at0009 = ╱49╱I╱ // 0xab8 @0x9
0x0aaf…0b04 at000a = ╱f0╱:╱ // 0xab9 @0xa
0x0aaf…0b04 at000b = ╱5a╱Z╱ // 0xaba @0xb
0x0aaf…0b04 at000c = ╱ed╱(╱ // 0xabb @0xc
0x0aaf…0b04 at000d = ╱48╱H╱ // 0xabc @0xd
0x0aaf…0b04 at000e = ╱ee╱)╱ // 0xabd @0xe
0x0aaf…0b04 at000f = ╱ec╱,╱ // 0xabe @0xf
0x0aaf…0b04 at0010 = ╱5a╱Z╱ // 0xabf @0x10
0x0aaf…0b04 at0011 = ╱ed╱(╱ // 0xac0 @0x11
0x0aaf…0b04 at0012 = ╱48╱H╱ // 0xac1 @0x12
0x0aaf…0b04 at0013 = ╱e2╱+╱ // 0xac2 @0x13
0x0aaf…0b04 at0014 = ╱45╱E╱ // 0xac3 @0x14
0x0aaf…0b04 at0015 = ╱ee╱)╱ // 0xac4 @0x15
0x0aaf…0b04 at0016 = ╱ec╱,╱ // 0xac5 @0x16
0x0aaf…0b04 at0017 = ╱5a╱Z╱ // 0xac6 @0x17
0x0aaf…0b04 at0018 = ╱ed╱(╱ // 0xac7 @0x18
0x0aaf…0b04 at0019 = ╱48╱H╱ // 0xac8 @0x19
0x0aaf…0b04 at001a = ╱e2╱+╱ // 0xac9 @0x1a
0x0aaf…0b04 at001b = ╱47╱G╱ // 0xaca @0x1b
0x0aaf…0b04 at001c = ╱ee╱)╱ // 0xacb @0x1c
0x0aaf…0b04 at001d = ╱ec╱,╱ // 0xacc @0x1d
0x0aaf…0b04 at001e = ╱5a╱Z╱ // 0xacd @0x1e
0x0aaf…0b04 at001f = ╱ed╱(╱ // 0xace @0x1f
0x0aaf…0b04 at0020 = ╱48╱H╱ // 0xacf @0x20
0x0aaf…0b04 at0021 = ╱e2╱+╱ // 0xad0 @0x21
0x0aaf…0b04 at0022 = ╱56╱V╱ // 0xad1 @0x22
0x0aaf…0b04 at0023 = ╱ee╱)╱ // 0xad2 @0x23
0x0aaf…0b04 at0024 = ╱ec╱,╱ // 0xad3 @0x24
0x0aaf…0b04 at0025 = ╱5a╱Z╱ // 0xad4 @0x25
0x0aaf…0b04 at0026 = ╱ed╱(╱ // 0xad5 @0x26
0x0aaf…0b04 at0027 = ╱48╱H╱ // 0xad6 @0x27
0x0aaf…0b04 at0028 = ╱e2╱+╱ // 0xad7 @0x28
0x0aaf…0b04 at0029 = ╱34╱4╱ // 0xad8 @0x29
0x0aaf…0b04 at002a = ╱fe00008003╱ // 0xad9 @0x2a
0x0aaf…0b04 at002f = ╱ee╱)╱ // 0xade @0x2f
0x0aaf…0b04 at0030 = ╱ec╱,╱ // 0xadf @0x30
0x0aaf…0b04 at0031 = ╱5a╱Z╱ // 0xae0 @0x31
0x0aaf…0b04 at0032 = ╱ed╱(╱ // 0xae1 @0x32
0x0aaf…0b04 at0033 = ╱48╱H╱ // 0xae2 @0x33
0x0aaf…0b04 at0034 = ╱e2╱+╱ // 0xae3 @0x34
0x0aaf…0b04 at0035 = ╱35╱5╱ // 0xae4 @0x35
0x0aaf…0b04 at0036 = ╱fe0000a003╱ // 0xae5 @0x36
0x0aaf…0b04 at003b = ╱ee╱)╱ // 0xaea @0x3b
0x0aaf…0b04 at003c = ╱ec╱,╱ // 0xaeb @0x3c
0x0aaf…0b04 at003d = ╱5a╱Z╱ // 0xaec @0x3d
0x0aaf…0b04 at003e = ╱ed╱(╱ // 0xaed @0x3e
0x0aaf…0b04 at003f = ╱48╱H╱ // 0xaee @0x3f
0x0aaf…0b04 at0040 = ╱e2╱+╱ // 0xaef @0x40
0x0aaf…0b04 at0041 = ╱36╱6╱ // 0xaf0 @0x41
0x0aaf…0b04 at0042 = ╱fe0000c003╱ // 0xaf1 @0x42
0x0aaf…0b04 at0047 = ╱ee╱)╱ // 0xaf6 @0x47
0x0aaf…0b04 at0048 = ╱ec╱,╱ // 0xaf7 @0x48
0x0aaf…0b04 at0049 = ╱5a╱Z╱ // 0xaf8 @0x49
0x0aaf…0b04 at004a = ╱ed╱(╱ // 0xaf9 @0x4a
0x0aaf…0b04 at004b = ╱48╱H╱ // 0xafa @0x4b
0x0aaf…0b04 at004c = ╱e2╱+╱ // 0xafb @0x4c
0x0aaf…0b04 at004d = ╱37╱7╱ // 0xafc @0x4d
0x0aaf…0b04 at004e = ╱fe0000e003╱ // 0xafd @0x4e
0x0aaf…0b04 at0053 = ╱ee╱)╱ // 0xb02 @0x53
0x0aaf…0b04 at0054 = EOL // 0xb03 @0x54
0x0aaf…0b04 }
0x0b04…0b17 986e 1280 EXEC FEJL(G,E,L7$)
0x0b04…0b17 LineComalBin {
0x0b04…0b17 ptr = 0x986e // 0xb04 @0x0
0x0b04…0b17 lno = 0x0500 // 0xb06 @0x2
0x0b04…0b17 at0004 = ╱9d╱ EXEC ╱ // 0xb08 @0x4
0x0b04…0b17 at0005 = ╱46╱F╱ // 0xb09 @0x5
0x0b04…0b17 at0006 = ╱45╱E╱ // 0xb0a @0x6
0x0b04…0b17 at0007 = ╱4a╱J╱ // 0xb0b @0x7
0x0b04…0b17 at0008 = ╱4c╱L╱ // 0xb0c @0x8
0x0b04…0b17 at0009 = ╱ed╱(╱ // 0xb0d @0x9
0x0b04…0b17 at000a = ╱47╱G╱ // 0xb0e @0xa
0x0b04…0b17 at000b = ╱ec╱,╱ // 0xb0f @0xb
0x0b04…0b17 at000c = ╱45╱E╱ // 0xb10 @0xc
0x0b04…0b17 at000d = ╱ec╱,╱ // 0xb11 @0xd
0x0b04…0b17 at000e = ╱4c╱L╱ // 0xb12 @0xe
0x0b04…0b17 at000f = ╱37╱7╱ // 0xb13 @0xf
0x0b04…0b17 at0010 = ╱ef╱$╱ // 0xb14 @0x10
0x0b04…0b17 at0011 = ╱ee╱)╱ // 0xb15 @0x11
0x0b04…0b17 at0012 = EOL // 0xb16 @0x12
0x0b04…0b17 }
0x0b17…0b1e 9875 1290 NEXT I
0x0b17…0b1e LineComalBin {
0x0b17…0b1e ptr = 0x9875 // 0xb17 @0x0
0x0b17…0b1e lno = 0x050a // 0xb19 @0x2
0x0b17…0b1e at0004 = ╱84╱ NEXT ╱ // 0xb1b @0x4
0x0b17…0b1e at0005 = ╱49╱I╱ // 0xb1c @0x5
0x0b17…0b1e at0006 = EOL // 0xb1d @0x6
0x0b17…0b1e }
0x0b1e…0b24 987b 1300 ENDPROC
0x0b1e…0b24 LineComalBin {
0x0b1e…0b24 ptr = 0x987b // 0xb1e @0x0
0x0b1e…0b24 lno = 0x0514 // 0xb20 @0x2
0x0b1e…0b24 at0004 = ╱9f╱ ENDPROC ╱ // 0xb22 @0x4
0x0b1e…0b24 at0005 = EOL // 0xb23 @0x5
0x0b1e…0b24 }
0x0b24…0b3d 9894 1310 PROC UDTAB(U,MANTAL1,L9)
0x0b24…0b3d LineComalBin {
0x0b24…0b3d ptr = 0x9894 // 0xb24 @0x0
0x0b24…0b3d lno = 0x051e // 0xb26 @0x2
0x0b24…0b3d at0004 = ╱9e╱ PROC ╱ // 0xb28 @0x4
0x0b24…0b3d at0005 = ╱55╱U╱ // 0xb29 @0x5
0x0b24…0b3d at0006 = ╱44╱D╱ // 0xb2a @0x6
0x0b24…0b3d at0007 = ╱54╱T╱ // 0xb2b @0x7
0x0b24…0b3d at0008 = ╱41╱A╱ // 0xb2c @0x8
0x0b24…0b3d at0009 = ╱42╱B╱ // 0xb2d @0x9
0x0b24…0b3d at000a = ╱ed╱(╱ // 0xb2e @0xa
0x0b24…0b3d at000b = ╱55╱U╱ // 0xb2f @0xb
0x0b24…0b3d at000c = ╱ec╱,╱ // 0xb30 @0xc
0x0b24…0b3d at000d = ╱4d╱M╱ // 0xb31 @0xd
0x0b24…0b3d at000e = ╱41╱A╱ // 0xb32 @0xe
0x0b24…0b3d at000f = ╱4e╱N╱ // 0xb33 @0xf
0x0b24…0b3d at0010 = ╱54╱T╱ // 0xb34 @0x10
0x0b24…0b3d at0011 = ╱41╱A╱ // 0xb35 @0x11
0x0b24…0b3d at0012 = ╱4c╱L╱ // 0xb36 @0x12
0x0b24…0b3d at0013 = ╱31╱1╱ // 0xb37 @0x13
0x0b24…0b3d at0014 = ╱ec╱,╱ // 0xb38 @0x14
0x0b24…0b3d at0015 = ╱4c╱L╱ // 0xb39 @0x15
0x0b24…0b3d at0016 = ╱39╱9╱ // 0xb3a @0x16
0x0b24…0b3d at0017 = ╱ee╱)╱ // 0xb3b @0x17
0x0b24…0b3d at0018 = EOL // 0xb3c @0x18
0x0b24…0b3d }
0x0b3d…0b7c 98d3 1320 MANTAL2=MANTAL1 DIV 32+E;MANTAL3=MANTAL1 DIV 4+MANTAL2-E
0x0b3d…0b7c LineComalBin {
0x0b3d…0b7c ptr = 0x98d3 // 0xb3d @0x0
0x0b3d…0b7c lno = 0x0528 // 0xb3f @0x2
0x0b3d…0b7c at0004 = ╱4d╱M╱ // 0xb41 @0x4
0x0b3d…0b7c at0005 = ╱41╱A╱ // 0xb42 @0x5
0x0b3d…0b7c at0006 = ╱4e╱N╱ // 0xb43 @0x6
0x0b3d…0b7c at0007 = ╱54╱T╱ // 0xb44 @0x7
0x0b3d…0b7c at0008 = ╱41╱A╱ // 0xb45 @0x8
0x0b3d…0b7c at0009 = ╱4c╱L╱ // 0xb46 @0x9
0x0b3d…0b7c at000a = ╱32╱2╱ // 0xb47 @0xa
0x0b3d…0b7c at000b = ╱dc╱=╱ // 0xb48 @0xb
0x0b3d…0b7c at000c = ╱4d╱M╱ // 0xb49 @0xc
0x0b3d…0b7c at000d = ╱41╱A╱ // 0xb4a @0xd
0x0b3d…0b7c at000e = ╱4e╱N╱ // 0xb4b @0xe
0x0b3d…0b7c at000f = ╱54╱T╱ // 0xb4c @0xf
0x0b3d…0b7c at0010 = ╱41╱A╱ // 0xb4d @0x10
0x0b3d…0b7c at0011 = ╱4c╱L╱ // 0xb4e @0x11
0x0b3d…0b7c at0012 = ╱31╱1╱ // 0xb4f @0x12
0x0b3d…0b7c at0013 = ╱e7╱ DIV ╱ // 0xb50 @0x13
0x0b3d…0b7c at0014 = ╱33╱3╱ // 0xb51 @0x14
0x0b3d…0b7c at0015 = ╱32╱2╱ // 0xb52 @0x15
0x0b3d…0b7c at0016 = ╱fe00008006╱ // 0xb53 @0x16
0x0b3d…0b7c at001b = ╱e2╱+╱ // 0xb58 @0x1b
0x0b3d…0b7c at001c = ╱45╱E╱ // 0xb59 @0x1c
0x0b3d…0b7c at001d = ╱eb╱;╱ // 0xb5a @0x1d
0x0b3d…0b7c at001e = ╱4d╱M╱ // 0xb5b @0x1e
0x0b3d…0b7c at001f = ╱41╱A╱ // 0xb5c @0x1f
0x0b3d…0b7c at0020 = ╱4e╱N╱ // 0xb5d @0x20
0x0b3d…0b7c at0021 = ╱54╱T╱ // 0xb5e @0x21
0x0b3d…0b7c at0022 = ╱41╱A╱ // 0xb5f @0x22
0x0b3d…0b7c at0023 = ╱4c╱L╱ // 0xb60 @0x23
0x0b3d…0b7c at0024 = ╱33╱3╱ // 0xb61 @0x24
0x0b3d…0b7c at0025 = ╱dc╱=╱ // 0xb62 @0x25
0x0b3d…0b7c at0026 = ╱4d╱M╱ // 0xb63 @0x26
0x0b3d…0b7c at0027 = ╱41╱A╱ // 0xb64 @0x27
0x0b3d…0b7c at0028 = ╱4e╱N╱ // 0xb65 @0x28
0x0b3d…0b7c at0029 = ╱54╱T╱ // 0xb66 @0x29
0x0b3d…0b7c at002a = ╱41╱A╱ // 0xb67 @0x2a
0x0b3d…0b7c at002b = ╱4c╱L╱ // 0xb68 @0x2b
0x0b3d…0b7c at002c = ╱31╱1╱ // 0xb69 @0x2c
0x0b3d…0b7c at002d = ╱e7╱ DIV ╱ // 0xb6a @0x2d
0x0b3d…0b7c at002e = ╱34╱4╱ // 0xb6b @0x2e
0x0b3d…0b7c at002f = ╱fe00008003╱ // 0xb6c @0x2f
0x0b3d…0b7c at0034 = ╱e2╱+╱ // 0xb71 @0x34
0x0b3d…0b7c at0035 = ╱4d╱M╱ // 0xb72 @0x35
0x0b3d…0b7c at0036 = ╱41╱A╱ // 0xb73 @0x36
0x0b3d…0b7c at0037 = ╱4e╱N╱ // 0xb74 @0x37
0x0b3d…0b7c at0038 = ╱54╱T╱ // 0xb75 @0x38
0x0b3d…0b7c at0039 = ╱41╱A╱ // 0xb76 @0x39
0x0b3d…0b7c at003a = ╱4c╱L╱ // 0xb77 @0x3a
0x0b3d…0b7c at003b = ╱32╱2╱ // 0xb78 @0x3b
0x0b3d…0b7c at003c = ╱e3╱-╱ // 0xb79 @0x3c
0x0b3d…0b7c at003d = ╱45╱E╱ // 0xb7a @0x3d
0x0b3d…0b7c at003e = EOL // 0xb7b @0x3e
0x0b3d…0b7c }
0x0b7c…0b8f 98e6 1330 FOR I=E TO MANTAL2-E
0x0b7c…0b8f LineComalBin {
0x0b7c…0b8f ptr = 0x98e6 // 0xb7c @0x0
0x0b7c…0b8f lno = 0x0532 // 0xb7e @0x2
0x0b7c…0b8f at0004 = ╱83╱ FOR ╱ // 0xb80 @0x4
0x0b7c…0b8f at0005 = ╱49╱I╱ // 0xb81 @0x5
0x0b7c…0b8f at0006 = ╱dc╱=╱ // 0xb82 @0x6
0x0b7c…0b8f at0007 = ╱45╱E╱ // 0xb83 @0x7
0x0b7c…0b8f at0008 = ╱b7╱ TO ╱ // 0xb84 @0x8
0x0b7c…0b8f at0009 = ╱4d╱M╱ // 0xb85 @0x9
0x0b7c…0b8f at000a = ╱41╱A╱ // 0xb86 @0xa
0x0b7c…0b8f at000b = ╱4e╱N╱ // 0xb87 @0xb
0x0b7c…0b8f at000c = ╱54╱T╱ // 0xb88 @0xc
0x0b7c…0b8f at000d = ╱41╱A╱ // 0xb89 @0xd
0x0b7c…0b8f at000e = ╱4c╱L╱ // 0xb8a @0xe
0x0b7c…0b8f at000f = ╱32╱2╱ // 0xb8b @0xf
0x0b7c…0b8f at0010 = ╱e3╱-╱ // 0xb8c @0x10
0x0b7c…0b8f at0011 = ╱45╱E╱ // 0xb8d @0x11
0x0b7c…0b8f at0012 = EOL // 0xb8e @0x12
0x0b7c…0b8f }
0x0b8f…0bfe 9955 1340 H=(I-E)*32+E;H1=H+4;H2=H+8;H3=H+12;H4=H+16;H5=H+20;H6=H+24;H7=H+28
0x0b8f…0bfe LineComalBin {
0x0b8f…0bfe ptr = 0x9955 // 0xb8f @0x0
0x0b8f…0bfe lno = 0x053c // 0xb91 @0x2
0x0b8f…0bfe at0004 = ╱48╱H╱ // 0xb93 @0x4
0x0b8f…0bfe at0005 = ╱dc╱=╱ // 0xb94 @0x5
0x0b8f…0bfe at0006 = ╱ed╱(╱ // 0xb95 @0x6
0x0b8f…0bfe at0007 = ╱49╱I╱ // 0xb96 @0x7
0x0b8f…0bfe at0008 = ╱e3╱-╱ // 0xb97 @0x8
0x0b8f…0bfe at0009 = ╱45╱E╱ // 0xb98 @0x9
0x0b8f…0bfe at000a = ╱ee╱)╱ // 0xb99 @0xa
0x0b8f…0bfe at000b = ╱e4╱*╱ // 0xb9a @0xb
0x0b8f…0bfe at000c = ╱33╱3╱ // 0xb9b @0xc
0x0b8f…0bfe at000d = ╱32╱2╱ // 0xb9c @0xd
0x0b8f…0bfe at000e = ╱fe00008006╱ // 0xb9d @0xe
0x0b8f…0bfe at0013 = ╱e2╱+╱ // 0xba2 @0x13
0x0b8f…0bfe at0014 = ╱45╱E╱ // 0xba3 @0x14
0x0b8f…0bfe at0015 = ╱eb╱;╱ // 0xba4 @0x15
0x0b8f…0bfe at0016 = ╱48╱H╱ // 0xba5 @0x16
0x0b8f…0bfe at0017 = ╱31╱1╱ // 0xba6 @0x17
0x0b8f…0bfe at0018 = ╱dc╱=╱ // 0xba7 @0x18
0x0b8f…0bfe at0019 = ╱48╱H╱ // 0xba8 @0x19
0x0b8f…0bfe at001a = ╱e2╱+╱ // 0xba9 @0x1a
0x0b8f…0bfe at001b = ╱34╱4╱ // 0xbaa @0x1b
0x0b8f…0bfe at001c = ╱fe00008003╱ // 0xbab @0x1c
0x0b8f…0bfe at0021 = ╱eb╱;╱ // 0xbb0 @0x21
0x0b8f…0bfe at0022 = ╱48╱H╱ // 0xbb1 @0x22
0x0b8f…0bfe at0023 = ╱32╱2╱ // 0xbb2 @0x23
0x0b8f…0bfe at0024 = ╱dc╱=╱ // 0xbb3 @0x24
0x0b8f…0bfe at0025 = ╱48╱H╱ // 0xbb4 @0x25
0x0b8f…0bfe at0026 = ╱e2╱+╱ // 0xbb5 @0x26
0x0b8f…0bfe at0027 = ╱38╱8╱ // 0xbb6 @0x27
0x0b8f…0bfe at0028 = ╱fe00008004╱ // 0xbb7 @0x28
0x0b8f…0bfe at002d = ╱eb╱;╱ // 0xbbc @0x2d
0x0b8f…0bfe at002e = ╱48╱H╱ // 0xbbd @0x2e
0x0b8f…0bfe at002f = ╱33╱3╱ // 0xbbe @0x2f
0x0b8f…0bfe at0030 = ╱dc╱=╱ // 0xbbf @0x30
0x0b8f…0bfe at0031 = ╱48╱H╱ // 0xbc0 @0x31
0x0b8f…0bfe at0032 = ╱e2╱+╱ // 0xbc1 @0x32
0x0b8f…0bfe at0033 = ╱31╱1╱ // 0xbc2 @0x33
0x0b8f…0bfe at0034 = ╱32╱2╱ // 0xbc3 @0x34
0x0b8f…0bfe at0035 = ╱fe0000c004╱ // 0xbc4 @0x35
0x0b8f…0bfe at003a = ╱eb╱;╱ // 0xbc9 @0x3a
0x0b8f…0bfe at003b = ╱48╱H╱ // 0xbca @0x3b
0x0b8f…0bfe at003c = ╱34╱4╱ // 0xbcb @0x3c
0x0b8f…0bfe at003d = ╱dc╱=╱ // 0xbcc @0x3d
0x0b8f…0bfe at003e = ╱48╱H╱ // 0xbcd @0x3e
0x0b8f…0bfe at003f = ╱e2╱+╱ // 0xbce @0x3f
0x0b8f…0bfe at0040 = ╱31╱1╱ // 0xbcf @0x40
0x0b8f…0bfe at0041 = ╱36╱6╱ // 0xbd0 @0x41
0x0b8f…0bfe at0042 = ╱fe00008005╱ // 0xbd1 @0x42
0x0b8f…0bfe at0047 = ╱eb╱;╱ // 0xbd6 @0x47
0x0b8f…0bfe at0048 = ╱48╱H╱ // 0xbd7 @0x48
0x0b8f…0bfe at0049 = ╱35╱5╱ // 0xbd8 @0x49
0x0b8f…0bfe at004a = ╱dc╱=╱ // 0xbd9 @0x4a
0x0b8f…0bfe at004b = ╱48╱H╱ // 0xbda @0x4b
0x0b8f…0bfe at004c = ╱e2╱+╱ // 0xbdb @0x4c
0x0b8f…0bfe at004d = ╱32╱2╱ // 0xbdc @0x4d
0x0b8f…0bfe at004e = ╱30╱0╱ // 0xbdd @0x4e
0x0b8f…0bfe at004f = ╱fe0000a005╱ // 0xbde @0x4f
0x0b8f…0bfe at0054 = ╱eb╱;╱ // 0xbe3 @0x54
0x0b8f…0bfe at0055 = ╱48╱H╱ // 0xbe4 @0x55
0x0b8f…0bfe at0056 = ╱36╱6╱ // 0xbe5 @0x56
0x0b8f…0bfe at0057 = ╱dc╱=╱ // 0xbe6 @0x57
0x0b8f…0bfe at0058 = ╱48╱H╱ // 0xbe7 @0x58
0x0b8f…0bfe at0059 = ╱e2╱+╱ // 0xbe8 @0x59
0x0b8f…0bfe at005a = ╱32╱2╱ // 0xbe9 @0x5a
0x0b8f…0bfe at005b = ╱34╱4╱ // 0xbea @0x5b
0x0b8f…0bfe at005c = ╱fe0000c005╱ // 0xbeb @0x5c
0x0b8f…0bfe at0061 = ╱eb╱;╱ // 0xbf0 @0x61
0x0b8f…0bfe at0062 = ╱48╱H╱ // 0xbf1 @0x62
0x0b8f…0bfe at0063 = ╱37╱7╱ // 0xbf2 @0x63
0x0b8f…0bfe at0064 = ╱dc╱=╱ // 0xbf3 @0x64
0x0b8f…0bfe at0065 = ╱48╱H╱ // 0xbf4 @0x65
0x0b8f…0bfe at0066 = ╱e2╱+╱ // 0xbf5 @0x66
0x0b8f…0bfe at0067 = ╱32╱2╱ // 0xbf6 @0x67
0x0b8f…0bfe at0068 = ╱38╱8╱ // 0xbf7 @0x68
0x0b8f…0bfe at0069 = ╱fe0000e005╱ // 0xbf8 @0x69
0x0b8f…0bfe at006e = EOL // 0xbfd @0x6e
0x0b8f…0bfe }
0x0bfe…0c48 999f 1350 PUT L9$,I:U(H,E),U(H1,E),U(H2,E),U(H3,E),U(H4,E),U(H5,E),U(H6,E),U(H7,E)
0x0bfe…0c48 LineComalBin {
0x0bfe…0c48 ptr = 0x999f // 0xbfe @0x0
0x0bfe…0c48 lno = 0x0546 // 0xc00 @0x2
0x0bfe…0c48 at0004 = ╱aa╱ PUT ╱ // 0xc02 @0x4
0x0bfe…0c48 at0005 = ╱4c╱L╱ // 0xc03 @0x5
0x0bfe…0c48 at0006 = ╱39╱9╱ // 0xc04 @0x6
0x0bfe…0c48 at0007 = ╱ef╱$╱ // 0xc05 @0x7
0x0bfe…0c48 at0008 = ╱ec╱,╱ // 0xc06 @0x8
0x0bfe…0c48 at0009 = ╱49╱I╱ // 0xc07 @0x9
0x0bfe…0c48 at000a = ╱f0╱:╱ // 0xc08 @0xa
0x0bfe…0c48 at000b = ╱55╱U╱ // 0xc09 @0xb
0x0bfe…0c48 at000c = ╱ed╱(╱ // 0xc0a @0xc
0x0bfe…0c48 at000d = ╱48╱H╱ // 0xc0b @0xd
0x0bfe…0c48 at000e = ╱ec╱,╱ // 0xc0c @0xe
0x0bfe…0c48 at000f = ╱45╱E╱ // 0xc0d @0xf
0x0bfe…0c48 at0010 = ╱ee╱)╱ // 0xc0e @0x10
0x0bfe…0c48 at0011 = ╱ec╱,╱ // 0xc0f @0x11
0x0bfe…0c48 at0012 = ╱55╱U╱ // 0xc10 @0x12
0x0bfe…0c48 at0013 = ╱ed╱(╱ // 0xc11 @0x13
0x0bfe…0c48 at0014 = ╱48╱H╱ // 0xc12 @0x14
0x0bfe…0c48 at0015 = ╱31╱1╱ // 0xc13 @0x15
0x0bfe…0c48 at0016 = ╱ec╱,╱ // 0xc14 @0x16
0x0bfe…0c48 at0017 = ╱45╱E╱ // 0xc15 @0x17
0x0bfe…0c48 at0018 = ╱ee╱)╱ // 0xc16 @0x18
0x0bfe…0c48 at0019 = ╱ec╱,╱ // 0xc17 @0x19
0x0bfe…0c48 at001a = ╱55╱U╱ // 0xc18 @0x1a
0x0bfe…0c48 at001b = ╱ed╱(╱ // 0xc19 @0x1b
0x0bfe…0c48 at001c = ╱48╱H╱ // 0xc1a @0x1c
0x0bfe…0c48 at001d = ╱32╱2╱ // 0xc1b @0x1d
0x0bfe…0c48 at001e = ╱ec╱,╱ // 0xc1c @0x1e
0x0bfe…0c48 at001f = ╱45╱E╱ // 0xc1d @0x1f
0x0bfe…0c48 at0020 = ╱ee╱)╱ // 0xc1e @0x20
0x0bfe…0c48 at0021 = ╱ec╱,╱ // 0xc1f @0x21
0x0bfe…0c48 at0022 = ╱55╱U╱ // 0xc20 @0x22
0x0bfe…0c48 at0023 = ╱ed╱(╱ // 0xc21 @0x23
0x0bfe…0c48 at0024 = ╱48╱H╱ // 0xc22 @0x24
0x0bfe…0c48 at0025 = ╱33╱3╱ // 0xc23 @0x25
0x0bfe…0c48 at0026 = ╱ec╱,╱ // 0xc24 @0x26
0x0bfe…0c48 at0027 = ╱45╱E╱ // 0xc25 @0x27
0x0bfe…0c48 at0028 = ╱ee╱)╱ // 0xc26 @0x28
0x0bfe…0c48 at0029 = ╱ec╱,╱ // 0xc27 @0x29
0x0bfe…0c48 at002a = ╱55╱U╱ // 0xc28 @0x2a
0x0bfe…0c48 at002b = ╱ed╱(╱ // 0xc29 @0x2b
0x0bfe…0c48 at002c = ╱48╱H╱ // 0xc2a @0x2c
0x0bfe…0c48 at002d = ╱34╱4╱ // 0xc2b @0x2d
0x0bfe…0c48 at002e = ╱ec╱,╱ // 0xc2c @0x2e
0x0bfe…0c48 at002f = ╱45╱E╱ // 0xc2d @0x2f
0x0bfe…0c48 at0030 = ╱ee╱)╱ // 0xc2e @0x30
0x0bfe…0c48 at0031 = ╱ec╱,╱ // 0xc2f @0x31
0x0bfe…0c48 at0032 = ╱55╱U╱ // 0xc30 @0x32
0x0bfe…0c48 at0033 = ╱ed╱(╱ // 0xc31 @0x33
0x0bfe…0c48 at0034 = ╱48╱H╱ // 0xc32 @0x34
0x0bfe…0c48 at0035 = ╱35╱5╱ // 0xc33 @0x35
0x0bfe…0c48 at0036 = ╱ec╱,╱ // 0xc34 @0x36
0x0bfe…0c48 at0037 = ╱45╱E╱ // 0xc35 @0x37
0x0bfe…0c48 at0038 = ╱ee╱)╱ // 0xc36 @0x38
0x0bfe…0c48 at0039 = ╱ec╱,╱ // 0xc37 @0x39
0x0bfe…0c48 at003a = ╱55╱U╱ // 0xc38 @0x3a
0x0bfe…0c48 at003b = ╱ed╱(╱ // 0xc39 @0x3b
0x0bfe…0c48 at003c = ╱48╱H╱ // 0xc3a @0x3c
0x0bfe…0c48 at003d = ╱36╱6╱ // 0xc3b @0x3d
0x0bfe…0c48 at003e = ╱ec╱,╱ // 0xc3c @0x3e
0x0bfe…0c48 at003f = ╱45╱E╱ // 0xc3d @0x3f
0x0bfe…0c48 at0040 = ╱ee╱)╱ // 0xc3e @0x40
0x0bfe…0c48 at0041 = ╱ec╱,╱ // 0xc3f @0x41
0x0bfe…0c48 at0042 = ╱55╱U╱ // 0xc40 @0x42
0x0bfe…0c48 at0043 = ╱ed╱(╱ // 0xc41 @0x43
0x0bfe…0c48 at0044 = ╱48╱H╱ // 0xc42 @0x44
0x0bfe…0c48 at0045 = ╱37╱7╱ // 0xc43 @0x45
0x0bfe…0c48 at0046 = ╱ec╱,╱ // 0xc44 @0x46
0x0bfe…0c48 at0047 = ╱45╱E╱ // 0xc45 @0x47
0x0bfe…0c48 at0048 = ╱ee╱)╱ // 0xc46 @0x48
0x0bfe…0c48 at0049 = EOL // 0xc47 @0x49
0x0bfe…0c48 }
0x0c48…0c5b 99b2 1360 EXEC FEJL(V,E,L9$)
0x0c48…0c5b LineComalBin {
0x0c48…0c5b ptr = 0x99b2 // 0xc48 @0x0
0x0c48…0c5b lno = 0x0550 // 0xc4a @0x2
0x0c48…0c5b at0004 = ╱9d╱ EXEC ╱ // 0xc4c @0x4
0x0c48…0c5b at0005 = ╱46╱F╱ // 0xc4d @0x5
0x0c48…0c5b at0006 = ╱45╱E╱ // 0xc4e @0x6
0x0c48…0c5b at0007 = ╱4a╱J╱ // 0xc4f @0x7
0x0c48…0c5b at0008 = ╱4c╱L╱ // 0xc50 @0x8
0x0c48…0c5b at0009 = ╱ed╱(╱ // 0xc51 @0x9
0x0c48…0c5b at000a = ╱56╱V╱ // 0xc52 @0xa
0x0c48…0c5b at000b = ╱ec╱,╱ // 0xc53 @0xb
0x0c48…0c5b at000c = ╱45╱E╱ // 0xc54 @0xc
0x0c48…0c5b at000d = ╱ec╱,╱ // 0xc55 @0xd
0x0c48…0c5b at000e = ╱4c╱L╱ // 0xc56 @0xe
0x0c48…0c5b at000f = ╱39╱9╱ // 0xc57 @0xf
0x0c48…0c5b at0010 = ╱ef╱$╱ // 0xc58 @0x10
0x0c48…0c5b at0011 = ╱ee╱)╱ // 0xc59 @0x11
0x0c48…0c5b at0012 = EOL // 0xc5a @0x12
0x0c48…0c5b }
0x0c5b…0c62 99b9 1370 NEXT I
0x0c5b…0c62 LineComalBin {
0x0c5b…0c62 ptr = 0x99b9 // 0xc5b @0x0
0x0c5b…0c62 lno = 0x055a // 0xc5d @0x2
0x0c5b…0c62 at0004 = ╱84╱ NEXT ╱ // 0xc5f @0x4
0x0c5b…0c62 at0005 = ╱49╱I╱ // 0xc60 @0x5
0x0c5b…0c62 at0006 = EOL // 0xc61 @0x6
0x0c5b…0c62 }
0x0c62…0c79 99d0 1380 FOR I=MANTAL2 TO MANTAL3
0x0c62…0c79 LineComalBin {
0x0c62…0c79 ptr = 0x99d0 // 0xc62 @0x0
0x0c62…0c79 lno = 0x0564 // 0xc64 @0x2
0x0c62…0c79 at0004 = ╱83╱ FOR ╱ // 0xc66 @0x4
0x0c62…0c79 at0005 = ╱49╱I╱ // 0xc67 @0x5
0x0c62…0c79 at0006 = ╱dc╱=╱ // 0xc68 @0x6
0x0c62…0c79 at0007 = ╱4d╱M╱ // 0xc69 @0x7
0x0c62…0c79 at0008 = ╱41╱A╱ // 0xc6a @0x8
0x0c62…0c79 at0009 = ╱4e╱N╱ // 0xc6b @0x9
0x0c62…0c79 at000a = ╱54╱T╱ // 0xc6c @0xa
0x0c62…0c79 at000b = ╱41╱A╱ // 0xc6d @0xb
0x0c62…0c79 at000c = ╱4c╱L╱ // 0xc6e @0xc
0x0c62…0c79 at000d = ╱32╱2╱ // 0xc6f @0xd
0x0c62…0c79 at000e = ╱b7╱ TO ╱ // 0xc70 @0xe
0x0c62…0c79 at000f = ╱4d╱M╱ // 0xc71 @0xf
0x0c62…0c79 at0010 = ╱41╱A╱ // 0xc72 @0x10
0x0c62…0c79 at0011 = ╱4e╱N╱ // 0xc73 @0x11
0x0c62…0c79 at0012 = ╱54╱T╱ // 0xc74 @0x12
0x0c62…0c79 at0013 = ╱41╱A╱ // 0xc75 @0x13
0x0c62…0c79 at0014 = ╱4c╱L╱ // 0xc76 @0x14
0x0c62…0c79 at0015 = ╱33╱3╱ // 0xc77 @0x15
0x0c62…0c79 at0016 = EOL // 0xc78 @0x16
0x0c62…0c79 }
0x0c79…0ca9 9a00 1390 H=(I-MANTAL2)*4+E;H1=H+E;H2=H+G;H3=H+V
0x0c79…0ca9 LineComalBin {
0x0c79…0ca9 ptr = 0x9a00 // 0xc79 @0x0
0x0c79…0ca9 lno = 0x056e // 0xc7b @0x2
0x0c79…0ca9 at0004 = ╱48╱H╱ // 0xc7d @0x4
0x0c79…0ca9 at0005 = ╱dc╱=╱ // 0xc7e @0x5
0x0c79…0ca9 at0006 = ╱ed╱(╱ // 0xc7f @0x6
0x0c79…0ca9 at0007 = ╱49╱I╱ // 0xc80 @0x7
0x0c79…0ca9 at0008 = ╱e3╱-╱ // 0xc81 @0x8
0x0c79…0ca9 at0009 = ╱4d╱M╱ // 0xc82 @0x9
0x0c79…0ca9 at000a = ╱41╱A╱ // 0xc83 @0xa
0x0c79…0ca9 at000b = ╱4e╱N╱ // 0xc84 @0xb
0x0c79…0ca9 at000c = ╱54╱T╱ // 0xc85 @0xc
0x0c79…0ca9 at000d = ╱41╱A╱ // 0xc86 @0xd
0x0c79…0ca9 at000e = ╱4c╱L╱ // 0xc87 @0xe
0x0c79…0ca9 at000f = ╱32╱2╱ // 0xc88 @0xf
0x0c79…0ca9 at0010 = ╱ee╱)╱ // 0xc89 @0x10
0x0c79…0ca9 at0011 = ╱e4╱*╱ // 0xc8a @0x11
0x0c79…0ca9 at0012 = ╱34╱4╱ // 0xc8b @0x12
0x0c79…0ca9 at0013 = ╱fe00008003╱ // 0xc8c @0x13
0x0c79…0ca9 at0018 = ╱e2╱+╱ // 0xc91 @0x18
0x0c79…0ca9 at0019 = ╱45╱E╱ // 0xc92 @0x19
0x0c79…0ca9 at001a = ╱eb╱;╱ // 0xc93 @0x1a
0x0c79…0ca9 at001b = ╱48╱H╱ // 0xc94 @0x1b
0x0c79…0ca9 at001c = ╱31╱1╱ // 0xc95 @0x1c
0x0c79…0ca9 at001d = ╱dc╱=╱ // 0xc96 @0x1d
0x0c79…0ca9 at001e = ╱48╱H╱ // 0xc97 @0x1e
0x0c79…0ca9 at001f = ╱e2╱+╱ // 0xc98 @0x1f
0x0c79…0ca9 at0020 = ╱45╱E╱ // 0xc99 @0x20
0x0c79…0ca9 at0021 = ╱eb╱;╱ // 0xc9a @0x21
0x0c79…0ca9 at0022 = ╱48╱H╱ // 0xc9b @0x22
0x0c79…0ca9 at0023 = ╱32╱2╱ // 0xc9c @0x23
0x0c79…0ca9 at0024 = ╱dc╱=╱ // 0xc9d @0x24
0x0c79…0ca9 at0025 = ╱48╱H╱ // 0xc9e @0x25
0x0c79…0ca9 at0026 = ╱e2╱+╱ // 0xc9f @0x26
0x0c79…0ca9 at0027 = ╱47╱G╱ // 0xca0 @0x27
0x0c79…0ca9 at0028 = ╱eb╱;╱ // 0xca1 @0x28
0x0c79…0ca9 at0029 = ╱48╱H╱ // 0xca2 @0x29
0x0c79…0ca9 at002a = ╱33╱3╱ // 0xca3 @0x2a
0x0c79…0ca9 at002b = ╱dc╱=╱ // 0xca4 @0x2b
0x0c79…0ca9 at002c = ╱48╱H╱ // 0xca5 @0x2c
0x0c79…0ca9 at002d = ╱e2╱+╱ // 0xca6 @0x2d
0x0c79…0ca9 at002e = ╱56╱V╱ // 0xca7 @0x2e
0x0c79…0ca9 at002f = EOL // 0xca8 @0x2f
0x0c79…0ca9 }
0x0ca9…0cf2 9a49 1400 PUT L9$,I:U(H,E),U(H,G),U(H1,E),U(H1,G),U(H2,E),U(H2,G),U(H3,E),U(H3,G)
0x0ca9…0cf2 LineComalBin {
0x0ca9…0cf2 ptr = 0x9a49 // 0xca9 @0x0
0x0ca9…0cf2 lno = 0x0578 // 0xcab @0x2
0x0ca9…0cf2 at0004 = ╱aa╱ PUT ╱ // 0xcad @0x4
0x0ca9…0cf2 at0005 = ╱4c╱L╱ // 0xcae @0x5
0x0ca9…0cf2 at0006 = ╱39╱9╱ // 0xcaf @0x6
0x0ca9…0cf2 at0007 = ╱ef╱$╱ // 0xcb0 @0x7
0x0ca9…0cf2 at0008 = ╱ec╱,╱ // 0xcb1 @0x8
0x0ca9…0cf2 at0009 = ╱49╱I╱ // 0xcb2 @0x9
0x0ca9…0cf2 at000a = ╱f0╱:╱ // 0xcb3 @0xa
0x0ca9…0cf2 at000b = ╱55╱U╱ // 0xcb4 @0xb
0x0ca9…0cf2 at000c = ╱ed╱(╱ // 0xcb5 @0xc
0x0ca9…0cf2 at000d = ╱48╱H╱ // 0xcb6 @0xd
0x0ca9…0cf2 at000e = ╱ec╱,╱ // 0xcb7 @0xe
0x0ca9…0cf2 at000f = ╱45╱E╱ // 0xcb8 @0xf
0x0ca9…0cf2 at0010 = ╱ee╱)╱ // 0xcb9 @0x10
0x0ca9…0cf2 at0011 = ╱ec╱,╱ // 0xcba @0x11
0x0ca9…0cf2 at0012 = ╱55╱U╱ // 0xcbb @0x12
0x0ca9…0cf2 at0013 = ╱ed╱(╱ // 0xcbc @0x13
0x0ca9…0cf2 at0014 = ╱48╱H╱ // 0xcbd @0x14
0x0ca9…0cf2 at0015 = ╱ec╱,╱ // 0xcbe @0x15
0x0ca9…0cf2 at0016 = ╱47╱G╱ // 0xcbf @0x16
0x0ca9…0cf2 at0017 = ╱ee╱)╱ // 0xcc0 @0x17
0x0ca9…0cf2 at0018 = ╱ec╱,╱ // 0xcc1 @0x18
0x0ca9…0cf2 at0019 = ╱55╱U╱ // 0xcc2 @0x19
0x0ca9…0cf2 at001a = ╱ed╱(╱ // 0xcc3 @0x1a
0x0ca9…0cf2 at001b = ╱48╱H╱ // 0xcc4 @0x1b
0x0ca9…0cf2 at001c = ╱31╱1╱ // 0xcc5 @0x1c
0x0ca9…0cf2 at001d = ╱ec╱,╱ // 0xcc6 @0x1d
0x0ca9…0cf2 at001e = ╱45╱E╱ // 0xcc7 @0x1e
0x0ca9…0cf2 at001f = ╱ee╱)╱ // 0xcc8 @0x1f
0x0ca9…0cf2 at0020 = ╱ec╱,╱ // 0xcc9 @0x20
0x0ca9…0cf2 at0021 = ╱55╱U╱ // 0xcca @0x21
0x0ca9…0cf2 at0022 = ╱ed╱(╱ // 0xccb @0x22
0x0ca9…0cf2 at0023 = ╱48╱H╱ // 0xccc @0x23
0x0ca9…0cf2 at0024 = ╱31╱1╱ // 0xccd @0x24
0x0ca9…0cf2 at0025 = ╱ec╱,╱ // 0xcce @0x25
0x0ca9…0cf2 at0026 = ╱47╱G╱ // 0xccf @0x26
0x0ca9…0cf2 at0027 = ╱ee╱)╱ // 0xcd0 @0x27
0x0ca9…0cf2 at0028 = ╱ec╱,╱ // 0xcd1 @0x28
0x0ca9…0cf2 at0029 = ╱55╱U╱ // 0xcd2 @0x29
0x0ca9…0cf2 at002a = ╱ed╱(╱ // 0xcd3 @0x2a
0x0ca9…0cf2 at002b = ╱48╱H╱ // 0xcd4 @0x2b
0x0ca9…0cf2 at002c = ╱32╱2╱ // 0xcd5 @0x2c
0x0ca9…0cf2 at002d = ╱ec╱,╱ // 0xcd6 @0x2d
0x0ca9…0cf2 at002e = ╱45╱E╱ // 0xcd7 @0x2e
0x0ca9…0cf2 at002f = ╱ee╱)╱ // 0xcd8 @0x2f
0x0ca9…0cf2 at0030 = ╱ec╱,╱ // 0xcd9 @0x30
0x0ca9…0cf2 at0031 = ╱55╱U╱ // 0xcda @0x31
0x0ca9…0cf2 at0032 = ╱ed╱(╱ // 0xcdb @0x32
0x0ca9…0cf2 at0033 = ╱48╱H╱ // 0xcdc @0x33
0x0ca9…0cf2 at0034 = ╱32╱2╱ // 0xcdd @0x34
0x0ca9…0cf2 at0035 = ╱ec╱,╱ // 0xcde @0x35
0x0ca9…0cf2 at0036 = ╱47╱G╱ // 0xcdf @0x36
0x0ca9…0cf2 at0037 = ╱ee╱)╱ // 0xce0 @0x37
0x0ca9…0cf2 at0038 = ╱ec╱,╱ // 0xce1 @0x38
0x0ca9…0cf2 at0039 = ╱55╱U╱ // 0xce2 @0x39
0x0ca9…0cf2 at003a = ╱ed╱(╱ // 0xce3 @0x3a
0x0ca9…0cf2 at003b = ╱48╱H╱ // 0xce4 @0x3b
0x0ca9…0cf2 at003c = ╱33╱3╱ // 0xce5 @0x3c
0x0ca9…0cf2 at003d = ╱ec╱,╱ // 0xce6 @0x3d
0x0ca9…0cf2 at003e = ╱45╱E╱ // 0xce7 @0x3e
0x0ca9…0cf2 at003f = ╱ee╱)╱ // 0xce8 @0x3f
0x0ca9…0cf2 at0040 = ╱ec╱,╱ // 0xce9 @0x40
0x0ca9…0cf2 at0041 = ╱55╱U╱ // 0xcea @0x41
0x0ca9…0cf2 at0042 = ╱ed╱(╱ // 0xceb @0x42
0x0ca9…0cf2 at0043 = ╱48╱H╱ // 0xcec @0x43
0x0ca9…0cf2 at0044 = ╱33╱3╱ // 0xced @0x44
0x0ca9…0cf2 at0045 = ╱ec╱,╱ // 0xcee @0x45
0x0ca9…0cf2 at0046 = ╱47╱G╱ // 0xcef @0x46
0x0ca9…0cf2 at0047 = ╱ee╱)╱ // 0xcf0 @0x47
0x0ca9…0cf2 at0048 = EOL // 0xcf1 @0x48
0x0ca9…0cf2 }
0x0cf2…0d05 9a5c 1410 EXEC FEJL(V,G,L9$)
0x0cf2…0d05 LineComalBin {
0x0cf2…0d05 ptr = 0x9a5c // 0xcf2 @0x0
0x0cf2…0d05 lno = 0x0582 // 0xcf4 @0x2
0x0cf2…0d05 at0004 = ╱9d╱ EXEC ╱ // 0xcf6 @0x4
0x0cf2…0d05 at0005 = ╱46╱F╱ // 0xcf7 @0x5
0x0cf2…0d05 at0006 = ╱45╱E╱ // 0xcf8 @0x6
0x0cf2…0d05 at0007 = ╱4a╱J╱ // 0xcf9 @0x7
0x0cf2…0d05 at0008 = ╱4c╱L╱ // 0xcfa @0x8
0x0cf2…0d05 at0009 = ╱ed╱(╱ // 0xcfb @0x9
0x0cf2…0d05 at000a = ╱56╱V╱ // 0xcfc @0xa
0x0cf2…0d05 at000b = ╱ec╱,╱ // 0xcfd @0xb
0x0cf2…0d05 at000c = ╱47╱G╱ // 0xcfe @0xc
0x0cf2…0d05 at000d = ╱ec╱,╱ // 0xcff @0xd
0x0cf2…0d05 at000e = ╱4c╱L╱ // 0xd00 @0xe
0x0cf2…0d05 at000f = ╱39╱9╱ // 0xd01 @0xf
0x0cf2…0d05 at0010 = ╱ef╱$╱ // 0xd02 @0x10
0x0cf2…0d05 at0011 = ╱ee╱)╱ // 0xd03 @0x11
0x0cf2…0d05 at0012 = EOL // 0xd04 @0x12
0x0cf2…0d05 }
0x0d05…0d0c 9a63 1420 NEXT I
0x0d05…0d0c LineComalBin {
0x0d05…0d0c ptr = 0x9a63 // 0xd05 @0x0
0x0d05…0d0c lno = 0x058c // 0xd07 @0x2
0x0d05…0d0c at0004 = ╱84╱ NEXT ╱ // 0xd09 @0x4
0x0d05…0d0c at0005 = ╱49╱I╱ // 0xd0a @0x5
0x0d05…0d0c at0006 = EOL // 0xd0b @0x6
0x0d05…0d0c }
0x0d0c…0d12 9a69 1430 ENDPROC
0x0d0c…0d12 LineComalBin {
0x0d0c…0d12 ptr = 0x9a69 // 0xd0c @0x0
0x0d0c…0d12 lno = 0x0596 // 0xd0e @0x2
0x0d0c…0d12 at0004 = ╱9f╱ ENDPROC ╱ // 0xd10 @0x4
0x0d0c…0d12 at0005 = EOL // 0xd11 @0x5
0x0d0c…0d12 }
0x0d12…0d2c 9a83 1440 PROC INDTAB(T,MANTAL,L10)
0x0d12…0d2c LineComalBin {
0x0d12…0d2c ptr = 0x9a83 // 0xd12 @0x0
0x0d12…0d2c lno = 0x05a0 // 0xd14 @0x2
0x0d12…0d2c at0004 = ╱9e╱ PROC ╱ // 0xd16 @0x4
0x0d12…0d2c at0005 = ╱49╱I╱ // 0xd17 @0x5
0x0d12…0d2c at0006 = ╱4e╱N╱ // 0xd18 @0x6
0x0d12…0d2c at0007 = ╱44╱D╱ // 0xd19 @0x7
0x0d12…0d2c at0008 = ╱54╱T╱ // 0xd1a @0x8
0x0d12…0d2c at0009 = ╱41╱A╱ // 0xd1b @0x9
0x0d12…0d2c at000a = ╱42╱B╱ // 0xd1c @0xa
0x0d12…0d2c at000b = ╱ed╱(╱ // 0xd1d @0xb
0x0d12…0d2c at000c = ╱54╱T╱ // 0xd1e @0xc
0x0d12…0d2c at000d = ╱ec╱,╱ // 0xd1f @0xd
0x0d12…0d2c at000e = ╱4d╱M╱ // 0xd20 @0xe
0x0d12…0d2c at000f = ╱41╱A╱ // 0xd21 @0xf
0x0d12…0d2c at0010 = ╱4e╱N╱ // 0xd22 @0x10
0x0d12…0d2c at0011 = ╱54╱T╱ // 0xd23 @0x11
0x0d12…0d2c at0012 = ╱41╱A╱ // 0xd24 @0x12
0x0d12…0d2c at0013 = ╱4c╱L╱ // 0xd25 @0x13
0x0d12…0d2c at0014 = ╱ec╱,╱ // 0xd26 @0x14
0x0d12…0d2c at0015 = ╱4c╱L╱ // 0xd27 @0x15
0x0d12…0d2c at0016 = ╱31╱1╱ // 0xd28 @0x16
0x0d12…0d2c at0017 = ╱30╱0╱ // 0xd29 @0x17
0x0d12…0d2c at0018 = ╱ee╱)╱ // 0xd2a @0x18
0x0d12…0d2c at0019 = EOL // 0xd2b @0x19
0x0d12…0d2c }
0x0d2c…0d69 9ac0 1450 MANTAL2=MANTAL DIV 32+E;MANTAL3=MANTAL DIV 4+MANTAL2-E
0x0d2c…0d69 LineComalBin {
0x0d2c…0d69 ptr = 0x9ac0 // 0xd2c @0x0
0x0d2c…0d69 lno = 0x05aa // 0xd2e @0x2
0x0d2c…0d69 at0004 = ╱4d╱M╱ // 0xd30 @0x4
0x0d2c…0d69 at0005 = ╱41╱A╱ // 0xd31 @0x5
0x0d2c…0d69 at0006 = ╱4e╱N╱ // 0xd32 @0x6
0x0d2c…0d69 at0007 = ╱54╱T╱ // 0xd33 @0x7
0x0d2c…0d69 at0008 = ╱41╱A╱ // 0xd34 @0x8
0x0d2c…0d69 at0009 = ╱4c╱L╱ // 0xd35 @0x9
0x0d2c…0d69 at000a = ╱32╱2╱ // 0xd36 @0xa
0x0d2c…0d69 at000b = ╱dc╱=╱ // 0xd37 @0xb
0x0d2c…0d69 at000c = ╱4d╱M╱ // 0xd38 @0xc
0x0d2c…0d69 at000d = ╱41╱A╱ // 0xd39 @0xd
0x0d2c…0d69 at000e = ╱4e╱N╱ // 0xd3a @0xe
0x0d2c…0d69 at000f = ╱54╱T╱ // 0xd3b @0xf
0x0d2c…0d69 at0010 = ╱41╱A╱ // 0xd3c @0x10
0x0d2c…0d69 at0011 = ╱4c╱L╱ // 0xd3d @0x11
0x0d2c…0d69 at0012 = ╱e7╱ DIV ╱ // 0xd3e @0x12
0x0d2c…0d69 at0013 = ╱33╱3╱ // 0xd3f @0x13
0x0d2c…0d69 at0014 = ╱32╱2╱ // 0xd40 @0x14
0x0d2c…0d69 at0015 = ╱fe00008006╱ // 0xd41 @0x15
0x0d2c…0d69 at001a = ╱e2╱+╱ // 0xd46 @0x1a
0x0d2c…0d69 at001b = ╱45╱E╱ // 0xd47 @0x1b
0x0d2c…0d69 at001c = ╱eb╱;╱ // 0xd48 @0x1c
0x0d2c…0d69 at001d = ╱4d╱M╱ // 0xd49 @0x1d
0x0d2c…0d69 at001e = ╱41╱A╱ // 0xd4a @0x1e
0x0d2c…0d69 at001f = ╱4e╱N╱ // 0xd4b @0x1f
0x0d2c…0d69 at0020 = ╱54╱T╱ // 0xd4c @0x20
0x0d2c…0d69 at0021 = ╱41╱A╱ // 0xd4d @0x21
0x0d2c…0d69 at0022 = ╱4c╱L╱ // 0xd4e @0x22
0x0d2c…0d69 at0023 = ╱33╱3╱ // 0xd4f @0x23
0x0d2c…0d69 at0024 = ╱dc╱=╱ // 0xd50 @0x24
0x0d2c…0d69 at0025 = ╱4d╱M╱ // 0xd51 @0x25
0x0d2c…0d69 at0026 = ╱41╱A╱ // 0xd52 @0x26
0x0d2c…0d69 at0027 = ╱4e╱N╱ // 0xd53 @0x27
0x0d2c…0d69 at0028 = ╱54╱T╱ // 0xd54 @0x28
0x0d2c…0d69 at0029 = ╱41╱A╱ // 0xd55 @0x29
0x0d2c…0d69 at002a = ╱4c╱L╱ // 0xd56 @0x2a
0x0d2c…0d69 at002b = ╱e7╱ DIV ╱ // 0xd57 @0x2b
0x0d2c…0d69 at002c = ╱34╱4╱ // 0xd58 @0x2c
0x0d2c…0d69 at002d = ╱fe00008003╱ // 0xd59 @0x2d
0x0d2c…0d69 at0032 = ╱e2╱+╱ // 0xd5e @0x32
0x0d2c…0d69 at0033 = ╱4d╱M╱ // 0xd5f @0x33
0x0d2c…0d69 at0034 = ╱41╱A╱ // 0xd60 @0x34
0x0d2c…0d69 at0035 = ╱4e╱N╱ // 0xd61 @0x35
0x0d2c…0d69 at0036 = ╱54╱T╱ // 0xd62 @0x36
0x0d2c…0d69 at0037 = ╱41╱A╱ // 0xd63 @0x37
0x0d2c…0d69 at0038 = ╱4c╱L╱ // 0xd64 @0x38
0x0d2c…0d69 at0039 = ╱32╱2╱ // 0xd65 @0x39
0x0d2c…0d69 at003a = ╱e3╱-╱ // 0xd66 @0x3a
0x0d2c…0d69 at003b = ╱45╱E╱ // 0xd67 @0x3b
0x0d2c…0d69 at003c = EOL // 0xd68 @0x3c
0x0d2c…0d69 }
0x0d69…0d80 9ad7 1460 FOR I=MANTAL2 TO MANTAL3
0x0d69…0d80 LineComalBin {
0x0d69…0d80 ptr = 0x9ad7 // 0xd69 @0x0
0x0d69…0d80 lno = 0x05b4 // 0xd6b @0x2
0x0d69…0d80 at0004 = ╱83╱ FOR ╱ // 0xd6d @0x4
0x0d69…0d80 at0005 = ╱49╱I╱ // 0xd6e @0x5
0x0d69…0d80 at0006 = ╱dc╱=╱ // 0xd6f @0x6
0x0d69…0d80 at0007 = ╱4d╱M╱ // 0xd70 @0x7
0x0d69…0d80 at0008 = ╱41╱A╱ // 0xd71 @0x8
0x0d69…0d80 at0009 = ╱4e╱N╱ // 0xd72 @0x9
0x0d69…0d80 at000a = ╱54╱T╱ // 0xd73 @0xa
0x0d69…0d80 at000b = ╱41╱A╱ // 0xd74 @0xb
0x0d69…0d80 at000c = ╱4c╱L╱ // 0xd75 @0xc
0x0d69…0d80 at000d = ╱32╱2╱ // 0xd76 @0xd
0x0d69…0d80 at000e = ╱b7╱ TO ╱ // 0xd77 @0xe
0x0d69…0d80 at000f = ╱4d╱M╱ // 0xd78 @0xf
0x0d69…0d80 at0010 = ╱41╱A╱ // 0xd79 @0x10
0x0d69…0d80 at0011 = ╱4e╱N╱ // 0xd7a @0x11
0x0d69…0d80 at0012 = ╱54╱T╱ // 0xd7b @0x12
0x0d69…0d80 at0013 = ╱41╱A╱ // 0xd7c @0x13
0x0d69…0d80 at0014 = ╱4c╱L╱ // 0xd7d @0x14
0x0d69…0d80 at0015 = ╱33╱3╱ // 0xd7e @0x15
0x0d69…0d80 at0016 = EOL // 0xd7f @0x16
0x0d69…0d80 }
0x0d80…0db0 9b07 1470 H=(I-MANTAL2)*4+E;H1=H+E;H2=H+G;H3=H+V
0x0d80…0db0 LineComalBin {
0x0d80…0db0 ptr = 0x9b07 // 0xd80 @0x0
0x0d80…0db0 lno = 0x05be // 0xd82 @0x2
0x0d80…0db0 at0004 = ╱48╱H╱ // 0xd84 @0x4
0x0d80…0db0 at0005 = ╱dc╱=╱ // 0xd85 @0x5
0x0d80…0db0 at0006 = ╱ed╱(╱ // 0xd86 @0x6
0x0d80…0db0 at0007 = ╱49╱I╱ // 0xd87 @0x7
0x0d80…0db0 at0008 = ╱e3╱-╱ // 0xd88 @0x8
0x0d80…0db0 at0009 = ╱4d╱M╱ // 0xd89 @0x9
0x0d80…0db0 at000a = ╱41╱A╱ // 0xd8a @0xa
0x0d80…0db0 at000b = ╱4e╱N╱ // 0xd8b @0xb
0x0d80…0db0 at000c = ╱54╱T╱ // 0xd8c @0xc
0x0d80…0db0 at000d = ╱41╱A╱ // 0xd8d @0xd
0x0d80…0db0 at000e = ╱4c╱L╱ // 0xd8e @0xe
0x0d80…0db0 at000f = ╱32╱2╱ // 0xd8f @0xf
0x0d80…0db0 at0010 = ╱ee╱)╱ // 0xd90 @0x10
0x0d80…0db0 at0011 = ╱e4╱*╱ // 0xd91 @0x11
0x0d80…0db0 at0012 = ╱34╱4╱ // 0xd92 @0x12
0x0d80…0db0 at0013 = ╱fe00008003╱ // 0xd93 @0x13
0x0d80…0db0 at0018 = ╱e2╱+╱ // 0xd98 @0x18
0x0d80…0db0 at0019 = ╱45╱E╱ // 0xd99 @0x19
0x0d80…0db0 at001a = ╱eb╱;╱ // 0xd9a @0x1a
0x0d80…0db0 at001b = ╱48╱H╱ // 0xd9b @0x1b
0x0d80…0db0 at001c = ╱31╱1╱ // 0xd9c @0x1c
0x0d80…0db0 at001d = ╱dc╱=╱ // 0xd9d @0x1d
0x0d80…0db0 at001e = ╱48╱H╱ // 0xd9e @0x1e
0x0d80…0db0 at001f = ╱e2╱+╱ // 0xd9f @0x1f
0x0d80…0db0 at0020 = ╱45╱E╱ // 0xda0 @0x20
0x0d80…0db0 at0021 = ╱eb╱;╱ // 0xda1 @0x21
0x0d80…0db0 at0022 = ╱48╱H╱ // 0xda2 @0x22
0x0d80…0db0 at0023 = ╱32╱2╱ // 0xda3 @0x23
0x0d80…0db0 at0024 = ╱dc╱=╱ // 0xda4 @0x24
0x0d80…0db0 at0025 = ╱48╱H╱ // 0xda5 @0x25
0x0d80…0db0 at0026 = ╱e2╱+╱ // 0xda6 @0x26
0x0d80…0db0 at0027 = ╱47╱G╱ // 0xda7 @0x27
0x0d80…0db0 at0028 = ╱eb╱;╱ // 0xda8 @0x28
0x0d80…0db0 at0029 = ╱48╱H╱ // 0xda9 @0x29
0x0d80…0db0 at002a = ╱33╱3╱ // 0xdaa @0x2a
0x0d80…0db0 at002b = ╱dc╱=╱ // 0xdab @0x2b
0x0d80…0db0 at002c = ╱48╱H╱ // 0xdac @0x2c
0x0d80…0db0 at002d = ╱e2╱+╱ // 0xdad @0x2d
0x0d80…0db0 at002e = ╱56╱V╱ // 0xdae @0x2e
0x0d80…0db0 at002f = EOL // 0xdaf @0x2f
0x0d80…0db0 }
0x0db0…0dfa 9b51 1480 GET L10$,I:T(H,E),T(H,G),T(H1,E),T(H1,G),T(H2,E),T(H2,G),T(H3,E),T(H3,G)
0x0db0…0dfa LineComalBin {
0x0db0…0dfa ptr = 0x9b51 // 0xdb0 @0x0
0x0db0…0dfa lno = 0x05c8 // 0xdb2 @0x2
0x0db0…0dfa at0004 = ╱a9╱ GET ╱ // 0xdb4 @0x4
0x0db0…0dfa at0005 = ╱4c╱L╱ // 0xdb5 @0x5
0x0db0…0dfa at0006 = ╱31╱1╱ // 0xdb6 @0x6
0x0db0…0dfa at0007 = ╱30╱0╱ // 0xdb7 @0x7
0x0db0…0dfa at0008 = ╱ef╱$╱ // 0xdb8 @0x8
0x0db0…0dfa at0009 = ╱ec╱,╱ // 0xdb9 @0x9
0x0db0…0dfa at000a = ╱49╱I╱ // 0xdba @0xa
0x0db0…0dfa at000b = ╱f0╱:╱ // 0xdbb @0xb
0x0db0…0dfa at000c = ╱54╱T╱ // 0xdbc @0xc
0x0db0…0dfa at000d = ╱ed╱(╱ // 0xdbd @0xd
0x0db0…0dfa at000e = ╱48╱H╱ // 0xdbe @0xe
0x0db0…0dfa at000f = ╱ec╱,╱ // 0xdbf @0xf
0x0db0…0dfa at0010 = ╱45╱E╱ // 0xdc0 @0x10
0x0db0…0dfa at0011 = ╱ee╱)╱ // 0xdc1 @0x11
0x0db0…0dfa at0012 = ╱ec╱,╱ // 0xdc2 @0x12
0x0db0…0dfa at0013 = ╱54╱T╱ // 0xdc3 @0x13
0x0db0…0dfa at0014 = ╱ed╱(╱ // 0xdc4 @0x14
0x0db0…0dfa at0015 = ╱48╱H╱ // 0xdc5 @0x15
0x0db0…0dfa at0016 = ╱ec╱,╱ // 0xdc6 @0x16
0x0db0…0dfa at0017 = ╱47╱G╱ // 0xdc7 @0x17
0x0db0…0dfa at0018 = ╱ee╱)╱ // 0xdc8 @0x18
0x0db0…0dfa at0019 = ╱ec╱,╱ // 0xdc9 @0x19
0x0db0…0dfa at001a = ╱54╱T╱ // 0xdca @0x1a
0x0db0…0dfa at001b = ╱ed╱(╱ // 0xdcb @0x1b
0x0db0…0dfa at001c = ╱48╱H╱ // 0xdcc @0x1c
0x0db0…0dfa at001d = ╱31╱1╱ // 0xdcd @0x1d
0x0db0…0dfa at001e = ╱ec╱,╱ // 0xdce @0x1e
0x0db0…0dfa at001f = ╱45╱E╱ // 0xdcf @0x1f
0x0db0…0dfa at0020 = ╱ee╱)╱ // 0xdd0 @0x20
0x0db0…0dfa at0021 = ╱ec╱,╱ // 0xdd1 @0x21
0x0db0…0dfa at0022 = ╱54╱T╱ // 0xdd2 @0x22
0x0db0…0dfa at0023 = ╱ed╱(╱ // 0xdd3 @0x23
0x0db0…0dfa at0024 = ╱48╱H╱ // 0xdd4 @0x24
0x0db0…0dfa at0025 = ╱31╱1╱ // 0xdd5 @0x25
0x0db0…0dfa at0026 = ╱ec╱,╱ // 0xdd6 @0x26
0x0db0…0dfa at0027 = ╱47╱G╱ // 0xdd7 @0x27
0x0db0…0dfa at0028 = ╱ee╱)╱ // 0xdd8 @0x28
0x0db0…0dfa at0029 = ╱ec╱,╱ // 0xdd9 @0x29
0x0db0…0dfa at002a = ╱54╱T╱ // 0xdda @0x2a
0x0db0…0dfa at002b = ╱ed╱(╱ // 0xddb @0x2b
0x0db0…0dfa at002c = ╱48╱H╱ // 0xddc @0x2c
0x0db0…0dfa at002d = ╱32╱2╱ // 0xddd @0x2d
0x0db0…0dfa at002e = ╱ec╱,╱ // 0xdde @0x2e
0x0db0…0dfa at002f = ╱45╱E╱ // 0xddf @0x2f
0x0db0…0dfa at0030 = ╱ee╱)╱ // 0xde0 @0x30
0x0db0…0dfa at0031 = ╱ec╱,╱ // 0xde1 @0x31
0x0db0…0dfa at0032 = ╱54╱T╱ // 0xde2 @0x32
0x0db0…0dfa at0033 = ╱ed╱(╱ // 0xde3 @0x33
0x0db0…0dfa at0034 = ╱48╱H╱ // 0xde4 @0x34
0x0db0…0dfa at0035 = ╱32╱2╱ // 0xde5 @0x35
0x0db0…0dfa at0036 = ╱ec╱,╱ // 0xde6 @0x36
0x0db0…0dfa at0037 = ╱47╱G╱ // 0xde7 @0x37
0x0db0…0dfa at0038 = ╱ee╱)╱ // 0xde8 @0x38
0x0db0…0dfa at0039 = ╱ec╱,╱ // 0xde9 @0x39
0x0db0…0dfa at003a = ╱54╱T╱ // 0xdea @0x3a
0x0db0…0dfa at003b = ╱ed╱(╱ // 0xdeb @0x3b
0x0db0…0dfa at003c = ╱48╱H╱ // 0xdec @0x3c
0x0db0…0dfa at003d = ╱33╱3╱ // 0xded @0x3d
0x0db0…0dfa at003e = ╱ec╱,╱ // 0xdee @0x3e
0x0db0…0dfa at003f = ╱45╱E╱ // 0xdef @0x3f
0x0db0…0dfa at0040 = ╱ee╱)╱ // 0xdf0 @0x40
0x0db0…0dfa at0041 = ╱ec╱,╱ // 0xdf1 @0x41
0x0db0…0dfa at0042 = ╱54╱T╱ // 0xdf2 @0x42
0x0db0…0dfa at0043 = ╱ed╱(╱ // 0xdf3 @0x43
0x0db0…0dfa at0044 = ╱48╱H╱ // 0xdf4 @0x44
0x0db0…0dfa at0045 = ╱33╱3╱ // 0xdf5 @0x45
0x0db0…0dfa at0046 = ╱ec╱,╱ // 0xdf6 @0x46
0x0db0…0dfa at0047 = ╱47╱G╱ // 0xdf7 @0x47
0x0db0…0dfa at0048 = ╱ee╱)╱ // 0xdf8 @0x48
0x0db0…0dfa at0049 = EOL // 0xdf9 @0x49
0x0db0…0dfa }
0x0dfa…0e13 9b6a 1490 EXEC FEJL(4,E,L10$)
0x0dfa…0e13 LineComalBin {
0x0dfa…0e13 ptr = 0x9b6a // 0xdfa @0x0
0x0dfa…0e13 lno = 0x05d2 // 0xdfc @0x2
0x0dfa…0e13 at0004 = ╱9d╱ EXEC ╱ // 0xdfe @0x4
0x0dfa…0e13 at0005 = ╱46╱F╱ // 0xdff @0x5
0x0dfa…0e13 at0006 = ╱45╱E╱ // 0xe00 @0x6
0x0dfa…0e13 at0007 = ╱4a╱J╱ // 0xe01 @0x7
0x0dfa…0e13 at0008 = ╱4c╱L╱ // 0xe02 @0x8
0x0dfa…0e13 at0009 = ╱ed╱(╱ // 0xe03 @0x9
0x0dfa…0e13 at000a = ╱34╱4╱ // 0xe04 @0xa
0x0dfa…0e13 at000b = ╱fe00008003╱ // 0xe05 @0xb
0x0dfa…0e13 at0010 = ╱ec╱,╱ // 0xe0a @0x10
0x0dfa…0e13 at0011 = ╱45╱E╱ // 0xe0b @0x11
0x0dfa…0e13 at0012 = ╱ec╱,╱ // 0xe0c @0x12
0x0dfa…0e13 at0013 = ╱4c╱L╱ // 0xe0d @0x13
0x0dfa…0e13 at0014 = ╱31╱1╱ // 0xe0e @0x14
0x0dfa…0e13 at0015 = ╱30╱0╱ // 0xe0f @0x15
0x0dfa…0e13 at0016 = ╱ef╱$╱ // 0xe10 @0x16
0x0dfa…0e13 at0017 = ╱ee╱)╱ // 0xe11 @0x17
0x0dfa…0e13 at0018 = EOL // 0xe12 @0x18
0x0dfa…0e13 }
0x0e13…0e1a 9b71 1500 NEXT I
0x0e13…0e1a LineComalBin {
0x0e13…0e1a ptr = 0x9b71 // 0xe13 @0x0
0x0e13…0e1a lno = 0x05dc // 0xe15 @0x2
0x0e13…0e1a at0004 = ╱84╱ NEXT ╱ // 0xe17 @0x4
0x0e13…0e1a at0005 = ╱49╱I╱ // 0xe18 @0x5
0x0e13…0e1a at0006 = EOL // 0xe19 @0x6
0x0e13…0e1a }
0x0e1a…0e20 9b77 1510 ENDPROC
0x0e1a…0e20 LineComalBin {
0x0e1a…0e20 ptr = 0x9b77 // 0xe1a @0x0
0x0e1a…0e20 lno = 0x05e6 // 0xe1c @0x2
0x0e1a…0e20 at0004 = ╱9f╱ ENDPROC ╱ // 0xe1e @0x4
0x0e1a…0e20 at0005 = EOL // 0xe1f @0x5
0x0e1a…0e20 }
0x0e20…0e4b 9ba2 1520 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
0x0e20…0e4b LineComalBin {
0x0e20…0e4b ptr = 0x9ba2 // 0xe20 @0x0
0x0e20…0e4b lno = 0x05f0 // 0xe22 @0x2
0x0e20…0e4b at0004 = ╱9e╱ PROC ╱ // 0xe24 @0x4
0x0e20…0e4b at0005 = ╱46╱F╱ // 0xe25 @0x5
0x0e20…0e4b at0006 = ╱49╱I╱ // 0xe26 @0x6
0x0e20…0e4b at0007 = ╱4e╱N╱ // 0xe27 @0x7
0x0e20…0e4b at0008 = ╱44╱D╱ // 0xe28 @0x8
0x0e20…0e4b at0009 = ╱50╱P╱ // 0xe29 @0x9
0x0e20…0e4b at000a = ╱4f╱O╱ // 0xe2a @0xa
0x0e20…0e4b at000b = ╱53╱S╱ // 0xe2b @0xb
0x0e20…0e4b at000c = ╱54╱T╱ // 0xe2c @0xc
0x0e20…0e4b at000d = ╱31╱1╱ // 0xe2d @0xd
0x0e20…0e4b at000e = ╱ed╱(╱ // 0xe2e @0xe
0x0e20…0e4b at000f = ╱54╱T╱ // 0xe2f @0xf
0x0e20…0e4b at0010 = ╱41╱A╱ // 0xe30 @0x10
0x0e20…0e4b at0011 = ╱42╱B╱ // 0xe31 @0x11
0x0e20…0e4b at0012 = ╱34╱4╱ // 0xe32 @0x12
0x0e20…0e4b at0013 = ╱ec╱,╱ // 0xe33 @0x13
0x0e20…0e4b at0014 = ╱51╱Q╱ // 0xe34 @0x14
0x0e20…0e4b at0015 = ╱ec╱,╱ // 0xe35 @0x15
0x0e20…0e4b at0016 = ╱4d╱M╱ // 0xe36 @0x16
0x0e20…0e4b at0017 = ╱41╱A╱ // 0xe37 @0x17
0x0e20…0e4b at0018 = ╱4e╱N╱ // 0xe38 @0x18
0x0e20…0e4b at0019 = ╱54╱T╱ // 0xe39 @0x19
0x0e20…0e4b at001a = ╱32╱2╱ // 0xe3a @0x1a
0x0e20…0e4b at001b = ╱ec╱,╱ // 0xe3b @0x1b
0x0e20…0e4b at001c = ╱4e╱N╱ // 0xe3c @0x1c
0x0e20…0e4b at001d = ╱5c╱Ø╱ // 0xe3d @0x1d
0x0e20…0e4b at001e = ╱47╱G╱ // 0xe3e @0x1e
0x0e20…0e4b at001f = ╱4c╱L╱ // 0xe3f @0x1f
0x0e20…0e4b at0020 = ╱35╱5╱ // 0xe40 @0x20
0x0e20…0e4b at0021 = ╱ec╱,╱ // 0xe41 @0x21
0x0e20…0e4b at0022 = ╱50╱P╱ // 0xe42 @0x22
0x0e20…0e4b at0023 = ╱49╱I╱ // 0xe43 @0x23
0x0e20…0e4b at0024 = ╱4c╱L╱ // 0xe44 @0x24
0x0e20…0e4b at0025 = ╱36╱6╱ // 0xe45 @0x25
0x0e20…0e4b at0026 = ╱ec╱,╱ // 0xe46 @0x26
0x0e20…0e4b at0027 = ╱4c╱L╱ // 0xe47 @0x27
0x0e20…0e4b at0028 = ╱38╱8╱ // 0xe48 @0x28
0x0e20…0e4b at0029 = ╱ee╱)╱ // 0xe49 @0x29
0x0e20…0e4b at002a = EOL // 0xe4a @0x2a
0x0e20…0e4b }
0x0e4b…0e99 9bf0 1530 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
0x0e4b…0e99 LineComalBin {
0x0e4b…0e99 ptr = 0x9bf0 // 0xe4b @0x0
0x0e4b…0e99 lno = 0x05fa // 0xe4d @0x2
0x0e4b…0e99 at0004 = ╱50╱P╱ // 0xe4f @0x4
0x0e4b…0e99 at0005 = ╱49╱I╱ // 0xe50 @0x5
0x0e4b…0e99 at0006 = ╱4c╱L╱ // 0xe51 @0x6
0x0e4b…0e99 at0007 = ╱31╱1╱ // 0xe52 @0x7
0x0e4b…0e99 at0008 = ╱dc╱=╱ // 0xe53 @0x8
0x0e4b…0e99 at0009 = ╱4d╱M╱ // 0xe54 @0x9
0x0e4b…0e99 at000a = ╱41╱A╱ // 0xe55 @0xa
0x0e4b…0e99 at000b = ╱4e╱N╱ // 0xe56 @0xb
0x0e4b…0e99 at000c = ╱54╱T╱ // 0xe57 @0xc
0x0e4b…0e99 at000d = ╱32╱2╱ // 0xe58 @0xd
0x0e4b…0e99 at000e = ╱e7╱ DIV ╱ // 0xe59 @0xe
0x0e4b…0e99 at000f = ╱38╱8╱ // 0xe5a @0xf
0x0e4b…0e99 at0010 = ╱fe00008004╱ // 0xe5b @0x10
0x0e4b…0e99 at0015 = ╱eb╱;╱ // 0xe60 @0x15
0x0e4b…0e99 at0016 = ╱50╱P╱ // 0xe61 @0x16
0x0e4b…0e99 at0017 = ╱49╱I╱ // 0xe62 @0x17
0x0e4b…0e99 at0018 = ╱4c╱L╱ // 0xe63 @0x18
0x0e4b…0e99 at0019 = ╱36╱6╱ // 0xe64 @0x19
0x0e4b…0e99 at001a = ╱dc╱=╱ // 0xe65 @0x1a
0x0e4b…0e99 at001b = ╱50╱P╱ // 0xe66 @0x1b
0x0e4b…0e99 at001c = ╱49╱I╱ // 0xe67 @0x1c
0x0e4b…0e99 at001d = ╱4c╱L╱ // 0xe68 @0x1d
0x0e4b…0e99 at001e = ╱31╱1╱ // 0xe69 @0x1e
0x0e4b…0e99 at001f = ╱eb╱;╱ // 0xe6a @0x1f
0x0e4b…0e99 at0020 = ╱43╱C╱ // 0xe6b @0x20
0x0e4b…0e99 at0021 = ╱45╱E╱ // 0xe6c @0x21
0x0e4b…0e99 at0022 = ╱4b╱K╱ // 0xe6d @0x22
0x0e4b…0e99 at0023 = ╱53╱S╱ // 0xe6e @0x23
0x0e4b…0e99 at0024 = ╱dc╱=╱ // 0xe6f @0x24
0x0e4b…0e99 at0025 = ╱45╱E╱ // 0xe70 @0x25
0x0e4b…0e99 at0026 = ╱eb╱;╱ // 0xe71 @0x26
0x0e4b…0e99 at0027 = ╱4d╱M╱ // 0xe72 @0x27
0x0e4b…0e99 at0028 = ╱41╱A╱ // 0xe73 @0x28
0x0e4b…0e99 at0029 = ╱4e╱N╱ // 0xe74 @0x29
0x0e4b…0e99 at002a = ╱54╱T╱ // 0xe75 @0x2a
0x0e4b…0e99 at002b = ╱33╱3╱ // 0xe76 @0x2b
0x0e4b…0e99 at002c = ╱dc╱=╱ // 0xe77 @0x2c
0x0e4b…0e99 at002d = ╱4d╱M╱ // 0xe78 @0x2d
0x0e4b…0e99 at002e = ╱41╱A╱ // 0xe79 @0x2e
0x0e4b…0e99 at002f = ╱4e╱N╱ // 0xe7a @0x2f
0x0e4b…0e99 at0030 = ╱54╱T╱ // 0xe7b @0x30
0x0e4b…0e99 at0031 = ╱32╱2╱ // 0xe7c @0x31
0x0e4b…0e99 at0032 = ╱e7╱ DIV ╱ // 0xe7d @0x32
0x0e4b…0e99 at0033 = ╱34╱4╱ // 0xe7e @0x33
0x0e4b…0e99 at0034 = ╱fe00008003╱ // 0xe7f @0x34
0x0e4b…0e99 at0039 = ╱eb╱;╱ // 0xe84 @0x39
0x0e4b…0e99 at003a = ╱4d╱M╱ // 0xe85 @0x3a
0x0e4b…0e99 at003b = ╱41╱A╱ // 0xe86 @0x3b
0x0e4b…0e99 at003c = ╱4e╱N╱ // 0xe87 @0x3c
0x0e4b…0e99 at003d = ╱54╱T╱ // 0xe88 @0x3d
0x0e4b…0e99 at003e = ╱34╱4╱ // 0xe89 @0x3e
0x0e4b…0e99 at003f = ╱dc╱=╱ // 0xe8a @0x3f
0x0e4b…0e99 at0040 = ╱4d╱M╱ // 0xe8b @0x40
0x0e4b…0e99 at0041 = ╱41╱A╱ // 0xe8c @0x41
0x0e4b…0e99 at0042 = ╱4e╱N╱ // 0xe8d @0x42
0x0e4b…0e99 at0043 = ╱54╱T╱ // 0xe8e @0x43
0x0e4b…0e99 at0044 = ╱32╱2╱ // 0xe8f @0x44
0x0e4b…0e99 at0045 = ╱e7╱ DIV ╱ // 0xe90 @0x45
0x0e4b…0e99 at0046 = ╱33╱3╱ // 0xe91 @0x46
0x0e4b…0e99 at0047 = ╱32╱2╱ // 0xe92 @0x47
0x0e4b…0e99 at0048 = ╱fe00008006╱ // 0xe93 @0x48
0x0e4b…0e99 at004d = EOL // 0xe98 @0x4d
0x0e4b…0e99 }
0x0e99…0e9f 9bf6 1540 REPEAT
0x0e99…0e9f LineComalBin {
0x0e99…0e9f ptr = 0x9bf6 // 0xe99 @0x0
0x0e99…0e9f lno = 0x0604 // 0xe9b @0x2
0x0e99…0e9f at0004 = ╱97╱ REPEAT ╱ // 0xe9d @0x4
0x0e99…0e9f at0005 = EOL // 0xe9e @0x5
0x0e99…0e9f }
0x0e9f…0ebe 9c15 1550 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
0x0e9f…0ebe LineComalBin {
0x0e9f…0ebe ptr = 0x9c15 // 0xe9f @0x0
0x0e9f…0ebe lno = 0x060e // 0xea1 @0x2
0x0e9f…0ebe at0004 = ╱82╱ IF ╱ // 0xea3 @0x4
0x0e9f…0ebe at0005 = ╱4e╱N╱ // 0xea4 @0x5
0x0e9f…0ebe at0006 = ╱5c╱Ø╱ // 0xea5 @0x6
0x0e9f…0ebe at0007 = ╱47╱G╱ // 0xea6 @0x7
0x0e9f…0ebe at0008 = ╱4c╱L╱ // 0xea7 @0x8
0x0e9f…0ebe at0009 = ╱35╱5╱ // 0xea8 @0x9
0x0e9f…0ebe at000a = ╱dc╱=╱ // 0xea9 @0xa
0x0e9f…0ebe at000b = ╱54╱T╱ // 0xeaa @0xb
0x0e9f…0ebe at000c = ╱41╱A╱ // 0xeab @0xc
0x0e9f…0ebe at000d = ╱42╱B╱ // 0xeac @0xd
0x0e9f…0ebe at000e = ╱34╱4╱ // 0xead @0xe
0x0e9f…0ebe at000f = ╱ed╱(╱ // 0xeae @0xf
0x0e9f…0ebe at0010 = ╱50╱P╱ // 0xeaf @0x10
0x0e9f…0ebe at0011 = ╱49╱I╱ // 0xeb0 @0x11
0x0e9f…0ebe at0012 = ╱4c╱L╱ // 0xeb1 @0x12
0x0e9f…0ebe at0013 = ╱36╱6╱ // 0xeb2 @0x13
0x0e9f…0ebe at0014 = ╱ee╱)╱ // 0xeb3 @0x14
0x0e9f…0ebe at0015 = ╱db╱ OR ╱ // 0xeb4 @0x15
0x0e9f…0ebe at0016 = ╱50╱P╱ // 0xeb5 @0x16
0x0e9f…0ebe at0017 = ╱49╱I╱ // 0xeb6 @0x17
0x0e9f…0ebe at0018 = ╱4c╱L╱ // 0xeb7 @0x18
0x0e9f…0ebe at0019 = ╱31╱1╱ // 0xeb8 @0x19
0x0e9f…0ebe at001a = ╱dc╱=╱ // 0xeb9 @0x1a
0x0e9f…0ebe at001b = ╱45╱E╱ // 0xeba @0x1b
0x0e9f…0ebe at001c = ╱b6╱ THEN ╱ // 0xebb @0x1c
0x0e9f…0ebe at001d = ╱99╱ EXIT ╱ // 0xebc @0x1d
0x0e9f…0ebe at001e = EOL // 0xebd @0x1e
0x0e9f…0ebe }
0x0ebe…0efa 9c51 1560 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
0x0ebe…0efa LineComalBin {
0x0ebe…0efa ptr = 0x9c51 // 0xebe @0x0
0x0ebe…0efa lno = 0x0618 // 0xec0 @0x2
0x0ebe…0efa at0004 = ╱50╱P╱ // 0xec2 @0x4
0x0ebe…0efa at0005 = ╱49╱I╱ // 0xec3 @0x5
0x0ebe…0efa at0006 = ╱4c╱L╱ // 0xec4 @0x6
0x0ebe…0efa at0007 = ╱31╱1╱ // 0xec5 @0x7
0x0ebe…0efa at0008 = ╱dc╱=╱ // 0xec6 @0x8
0x0ebe…0efa at0009 = ╱ed╱(╱ // 0xec7 @0x9
0x0ebe…0efa at000a = ╱50╱P╱ // 0xec8 @0xa
0x0ebe…0efa at000b = ╱49╱I╱ // 0xec9 @0xb
0x0ebe…0efa at000c = ╱4c╱L╱ // 0xeca @0xc
0x0ebe…0efa at000d = ╱31╱1╱ // 0xecb @0xd
0x0ebe…0efa at000e = ╱e2╱+╱ // 0xecc @0xe
0x0ebe…0efa at000f = ╱45╱E╱ // 0xecd @0xf
0x0ebe…0efa at0010 = ╱ee╱)╱ // 0xece @0x10
0x0ebe…0efa at0011 = ╱e7╱ DIV ╱ // 0xecf @0x11
0x0ebe…0efa at0012 = ╱47╱G╱ // 0xed0 @0x12
0x0ebe…0efa at0013 = ╱eb╱;╱ // 0xed1 @0x13
0x0ebe…0efa at0014 = ╱50╱P╱ // 0xed2 @0x14
0x0ebe…0efa at0015 = ╱49╱I╱ // 0xed3 @0x15
0x0ebe…0efa at0016 = ╱4c╱L╱ // 0xed4 @0x16
0x0ebe…0efa at0017 = ╱36╱6╱ // 0xed5 @0x17
0x0ebe…0efa at0018 = ╱dc╱=╱ // 0xed6 @0x18
0x0ebe…0efa at0019 = ╱50╱P╱ // 0xed7 @0x19
0x0ebe…0efa at001a = ╱49╱I╱ // 0xed8 @0x1a
0x0ebe…0efa at001b = ╱4c╱L╱ // 0xed9 @0x1b
0x0ebe…0efa at001c = ╱36╱6╱ // 0xeda @0x1c
0x0ebe…0efa at001d = ╱e2╱+╱ // 0xedb @0x1d
0x0ebe…0efa at001e = ╱50╱P╱ // 0xedc @0x1e
0x0ebe…0efa at001f = ╱49╱I╱ // 0xedd @0x1f
0x0ebe…0efa at0020 = ╱4c╱L╱ // 0xede @0x20
0x0ebe…0efa at0021 = ╱31╱1╱ // 0xedf @0x21
0x0ebe…0efa at0022 = ╱e4╱*╱ // 0xee0 @0x22
0x0ebe…0efa at0023 = ╱ed╱(╱ // 0xee1 @0x23
0x0ebe…0efa at0024 = ╱45╱E╱ // 0xee2 @0x24
0x0ebe…0efa at0025 = ╱e3╱-╱ // 0xee3 @0x25
0x0ebe…0efa at0026 = ╱47╱G╱ // 0xee4 @0x26
0x0ebe…0efa at0027 = ╱e4╱*╱ // 0xee5 @0x27
0x0ebe…0efa at0028 = ╱ed╱(╱ // 0xee6 @0x28
0x0ebe…0efa at0029 = ╱4e╱N╱ // 0xee7 @0x29
0x0ebe…0efa at002a = ╱5c╱Ø╱ // 0xee8 @0x2a
0x0ebe…0efa at002b = ╱47╱G╱ // 0xee9 @0x2b
0x0ebe…0efa at002c = ╱4c╱L╱ // 0xeea @0x2c
0x0ebe…0efa at002d = ╱35╱5╱ // 0xeeb @0x2d
0x0ebe…0efa at002e = ╱dd╱<╱ // 0xeec @0x2e
0x0ebe…0efa at002f = ╱54╱T╱ // 0xeed @0x2f
0x0ebe…0efa at0030 = ╱41╱A╱ // 0xeee @0x30
0x0ebe…0efa at0031 = ╱42╱B╱ // 0xeef @0x31
0x0ebe…0efa at0032 = ╱34╱4╱ // 0xef0 @0x32
0x0ebe…0efa at0033 = ╱ed╱(╱ // 0xef1 @0x33
0x0ebe…0efa at0034 = ╱50╱P╱ // 0xef2 @0x34
0x0ebe…0efa at0035 = ╱49╱I╱ // 0xef3 @0x35
0x0ebe…0efa at0036 = ╱4c╱L╱ // 0xef4 @0x36
0x0ebe…0efa at0037 = ╱36╱6╱ // 0xef5 @0x37
0x0ebe…0efa at0038 = ╱ee╱)╱ // 0xef6 @0x38
0x0ebe…0efa at0039 = ╱ee╱)╱ // 0xef7 @0x39
0x0ebe…0efa at003a = ╱ee╱)╱ // 0xef8 @0x3a
0x0ebe…0efa at003b = EOL // 0xef9 @0x3b
0x0ebe…0efa }
0x0efa…0f0d 9c64 1570 IF PIL6<E THEN PIL6=E
0x0efa…0f0d LineComalBin {
0x0efa…0f0d ptr = 0x9c64 // 0xefa @0x0
0x0efa…0f0d lno = 0x0622 // 0xefc @0x2
0x0efa…0f0d at0004 = ╱82╱ IF ╱ // 0xefe @0x4
0x0efa…0f0d at0005 = ╱50╱P╱ // 0xeff @0x5
0x0efa…0f0d at0006 = ╱49╱I╱ // 0xf00 @0x6
0x0efa…0f0d at0007 = ╱4c╱L╱ // 0xf01 @0x7
0x0efa…0f0d at0008 = ╱36╱6╱ // 0xf02 @0x8
0x0efa…0f0d at0009 = ╱dd╱<╱ // 0xf03 @0x9
0x0efa…0f0d at000a = ╱45╱E╱ // 0xf04 @0xa
0x0efa…0f0d at000b = ╱b6╱ THEN ╱ // 0xf05 @0xb
0x0efa…0f0d at000c = ╱50╱P╱ // 0xf06 @0xc
0x0efa…0f0d at000d = ╱49╱I╱ // 0xf07 @0xd
0x0efa…0f0d at000e = ╱4c╱L╱ // 0xf08 @0xe
0x0efa…0f0d at000f = ╱36╱6╱ // 0xf09 @0xf
0x0efa…0f0d at0010 = ╱dc╱=╱ // 0xf0a @0x10
0x0efa…0f0d at0011 = ╱45╱E╱ // 0xf0b @0x11
0x0efa…0f0d at0012 = EOL // 0xf0c @0x12
0x0efa…0f0d }
0x0f0d…0f28 9c7f 1580 IF PIL6>MANT3 THEN PIL6=MANT3
0x0f0d…0f28 LineComalBin {
0x0f0d…0f28 ptr = 0x9c7f // 0xf0d @0x0
0x0f0d…0f28 lno = 0x062c // 0xf0f @0x2
0x0f0d…0f28 at0004 = ╱82╱ IF ╱ // 0xf11 @0x4
0x0f0d…0f28 at0005 = ╱50╱P╱ // 0xf12 @0x5
0x0f0d…0f28 at0006 = ╱49╱I╱ // 0xf13 @0x6
0x0f0d…0f28 at0007 = ╱4c╱L╱ // 0xf14 @0x7
0x0f0d…0f28 at0008 = ╱36╱6╱ // 0xf15 @0x8
0x0f0d…0f28 at0009 = ╱de╱>╱ // 0xf16 @0x9
0x0f0d…0f28 at000a = ╱4d╱M╱ // 0xf17 @0xa
0x0f0d…0f28 at000b = ╱41╱A╱ // 0xf18 @0xb
0x0f0d…0f28 at000c = ╱4e╱N╱ // 0xf19 @0xc
0x0f0d…0f28 at000d = ╱54╱T╱ // 0xf1a @0xd
0x0f0d…0f28 at000e = ╱33╱3╱ // 0xf1b @0xe
0x0f0d…0f28 at000f = ╱b6╱ THEN ╱ // 0xf1c @0xf
0x0f0d…0f28 at0010 = ╱50╱P╱ // 0xf1d @0x10
0x0f0d…0f28 at0011 = ╱49╱I╱ // 0xf1e @0x11
0x0f0d…0f28 at0012 = ╱4c╱L╱ // 0xf1f @0x12
0x0f0d…0f28 at0013 = ╱36╱6╱ // 0xf20 @0x13
0x0f0d…0f28 at0014 = ╱dc╱=╱ // 0xf21 @0x14
0x0f0d…0f28 at0015 = ╱4d╱M╱ // 0xf22 @0x15
0x0f0d…0f28 at0016 = ╱41╱A╱ // 0xf23 @0x16
0x0f0d…0f28 at0017 = ╱4e╱N╱ // 0xf24 @0x17
0x0f0d…0f28 at0018 = ╱54╱T╱ // 0xf25 @0x18
0x0f0d…0f28 at0019 = ╱33╱3╱ // 0xf26 @0x19
0x0f0d…0f28 at001a = EOL // 0xf27 @0x1a
0x0f0d…0f28 }
0x0f28…0f34 9c8b 1590 UNTIL PIL1=B
0x0f28…0f34 LineComalBin {
0x0f28…0f34 ptr = 0x9c8b // 0xf28 @0x0
0x0f28…0f34 lno = 0x0636 // 0xf2a @0x2
0x0f28…0f34 at0004 = ╱98╱ UNTIL ╱ // 0xf2c @0x4
0x0f28…0f34 at0005 = ╱50╱P╱ // 0xf2d @0x5
0x0f28…0f34 at0006 = ╱49╱I╱ // 0xf2e @0x6
0x0f28…0f34 at0007 = ╱4c╱L╱ // 0xf2f @0x7
0x0f28…0f34 at0008 = ╱31╱1╱ // 0xf30 @0x8
0x0f28…0f34 at0009 = ╱dc╱=╱ // 0xf31 @0x9
0x0f28…0f34 at000a = ╱42╱B╱ // 0xf32 @0xa
0x0f28…0f34 at000b = EOL // 0xf33 @0xb
0x0f28…0f34 }
0x0f34…0f5f 9cb6 1600 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
0x0f34…0f5f LineComalBin {
0x0f34…0f5f ptr = 0x9cb6 // 0xf34 @0x0
0x0f34…0f5f lno = 0x0640 // 0xf36 @0x2
0x0f34…0f5f at0004 = ╱82╱ IF ╱ // 0xf38 @0x4
0x0f34…0f5f at0005 = ╱54╱T╱ // 0xf39 @0x5
0x0f34…0f5f at0006 = ╱41╱A╱ // 0xf3a @0x6
0x0f34…0f5f at0007 = ╱42╱B╱ // 0xf3b @0x7
0x0f34…0f5f at0008 = ╱34╱4╱ // 0xf3c @0x8
0x0f34…0f5f at0009 = ╱ed╱(╱ // 0xf3d @0x9
0x0f34…0f5f at000a = ╱50╱P╱ // 0xf3e @0xa
0x0f34…0f5f at000b = ╱49╱I╱ // 0xf3f @0xb
0x0f34…0f5f at000c = ╱4c╱L╱ // 0xf40 @0xc
0x0f34…0f5f at000d = ╱36╱6╱ // 0xf41 @0xd
0x0f34…0f5f at000e = ╱ee╱)╱ // 0xf42 @0xe
0x0f34…0f5f at000f = ╱de╱>╱ // 0xf43 @0xf
0x0f34…0f5f at0010 = ╱4e╱N╱ // 0xf44 @0x10
0x0f34…0f5f at0011 = ╱5c╱Ø╱ // 0xf45 @0x11
0x0f34…0f5f at0012 = ╱47╱G╱ // 0xf46 @0x12
0x0f34…0f5f at0013 = ╱4c╱L╱ // 0xf47 @0x13
0x0f34…0f5f at0014 = ╱35╱5╱ // 0xf48 @0x14
0x0f34…0f5f at0015 = ╱b6╱ THEN ╱ // 0xf49 @0x15
0x0f34…0f5f at0016 = ╱50╱P╱ // 0xf4a @0x16
0x0f34…0f5f at0017 = ╱49╱I╱ // 0xf4b @0x17
0x0f34…0f5f at0018 = ╱4c╱L╱ // 0xf4c @0x18
0x0f34…0f5f at0019 = ╱36╱6╱ // 0xf4d @0x19
0x0f34…0f5f at001a = ╱dc╱=╱ // 0xf4e @0x1a
0x0f34…0f5f at001b = ╱50╱P╱ // 0xf4f @0x1b
0x0f34…0f5f at001c = ╱49╱I╱ // 0xf50 @0x1c
0x0f34…0f5f at001d = ╱4c╱L╱ // 0xf51 @0x1d
0x0f34…0f5f at001e = ╱36╱6╱ // 0xf52 @0x1e
0x0f34…0f5f at001f = ╱e3╱-╱ // 0xf53 @0x1f
0x0f34…0f5f at0020 = ╱45╱E╱ // 0xf54 @0x20
0x0f34…0f5f at0021 = ╱e4╱*╱ // 0xf55 @0x21
0x0f34…0f5f at0022 = ╱ed╱(╱ // 0xf56 @0x22
0x0f34…0f5f at0023 = ╱50╱P╱ // 0xf57 @0x23
0x0f34…0f5f at0024 = ╱49╱I╱ // 0xf58 @0x24
0x0f34…0f5f at0025 = ╱4c╱L╱ // 0xf59 @0x25
0x0f34…0f5f at0026 = ╱36╱6╱ // 0xf5a @0x26
0x0f34…0f5f at0027 = ╱de╱>╱ // 0xf5b @0x27
0x0f34…0f5f at0028 = ╱45╱E╱ // 0xf5c @0x28
0x0f34…0f5f at0029 = ╱ee╱)╱ // 0xf5d @0x29
0x0f34…0f5f at002a = EOL // 0xf5e @0x2a
0x0f34…0f5f }
0x0f5f…0f73 9cca 1610 PIL6=MANT4+PIL6
0x0f5f…0f73 LineComalBin {
0x0f5f…0f73 ptr = 0x9cca // 0xf5f @0x0
0x0f5f…0f73 lno = 0x064a // 0xf61 @0x2
0x0f5f…0f73 at0004 = ╱50╱P╱ // 0xf63 @0x4
0x0f5f…0f73 at0005 = ╱49╱I╱ // 0xf64 @0x5
0x0f5f…0f73 at0006 = ╱4c╱L╱ // 0xf65 @0x6
0x0f5f…0f73 at0007 = ╱36╱6╱ // 0xf66 @0x7
0x0f5f…0f73 at0008 = ╱dc╱=╱ // 0xf67 @0x8
0x0f5f…0f73 at0009 = ╱4d╱M╱ // 0xf68 @0x9
0x0f5f…0f73 at000a = ╱41╱A╱ // 0xf69 @0xa
0x0f5f…0f73 at000b = ╱4e╱N╱ // 0xf6a @0xb
0x0f5f…0f73 at000c = ╱54╱T╱ // 0xf6b @0xc
0x0f5f…0f73 at000d = ╱34╱4╱ // 0xf6c @0xd
0x0f5f…0f73 at000e = ╱e2╱+╱ // 0xf6d @0xe
0x0f5f…0f73 at000f = ╱50╱P╱ // 0xf6e @0xf
0x0f5f…0f73 at0010 = ╱49╱I╱ // 0xf6f @0x10
0x0f5f…0f73 at0011 = ╱4c╱L╱ // 0xf70 @0x11
0x0f5f…0f73 at0012 = ╱36╱6╱ // 0xf71 @0x12
0x0f5f…0f73 at0013 = EOL // 0xf72 @0x13
0x0f5f…0f73 }
0x0f73…0fc3 9d1a 1620 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)
0x0f73…0fc3 LineComalBin {
0x0f73…0fc3 ptr = 0x9d1a // 0xf73 @0x0
0x0f73…0fc3 lno = 0x0654 // 0xf75 @0x2
0x0f73…0fc3 at0004 = ╱a9╱ GET ╱ // 0xf77 @0x4
0x0f73…0fc3 at0005 = ╱4c╱L╱ // 0xf78 @0x5
0x0f73…0fc3 at0006 = ╱38╱8╱ // 0xf79 @0x6
0x0f73…0fc3 at0007 = ╱ef╱$╱ // 0xf7a @0x7
0x0f73…0fc3 at0008 = ╱ec╱,╱ // 0xf7b @0x8
0x0f73…0fc3 at0009 = ╱50╱P╱ // 0xf7c @0x9
0x0f73…0fc3 at000a = ╱49╱I╱ // 0xf7d @0xa
0x0f73…0fc3 at000b = ╱4c╱L╱ // 0xf7e @0xb
0x0f73…0fc3 at000c = ╱36╱6╱ // 0xf7f @0xc
0x0f73…0fc3 at000d = ╱f0╱:╱ // 0xf80 @0xd
0x0f73…0fc3 at000e = ╱51╱Q╱ // 0xf81 @0xe
0x0f73…0fc3 at000f = ╱ed╱(╱ // 0xf82 @0xf
0x0f73…0fc3 at0010 = ╱45╱E╱ // 0xf83 @0x10
0x0f73…0fc3 at0011 = ╱ec╱,╱ // 0xf84 @0x11
0x0f73…0fc3 at0012 = ╱45╱E╱ // 0xf85 @0x12
0x0f73…0fc3 at0013 = ╱ee╱)╱ // 0xf86 @0x13
0x0f73…0fc3 at0014 = ╱ec╱,╱ // 0xf87 @0x14
0x0f73…0fc3 at0015 = ╱51╱Q╱ // 0xf88 @0x15
0x0f73…0fc3 at0016 = ╱ed╱(╱ // 0xf89 @0x16
0x0f73…0fc3 at0017 = ╱45╱E╱ // 0xf8a @0x17
0x0f73…0fc3 at0018 = ╱ec╱,╱ // 0xf8b @0x18
0x0f73…0fc3 at0019 = ╱47╱G╱ // 0xf8c @0x19
0x0f73…0fc3 at001a = ╱ee╱)╱ // 0xf8d @0x1a
0x0f73…0fc3 at001b = ╱ec╱,╱ // 0xf8e @0x1b
0x0f73…0fc3 at001c = ╱51╱Q╱ // 0xf8f @0x1c
0x0f73…0fc3 at001d = ╱ed╱(╱ // 0xf90 @0x1d
0x0f73…0fc3 at001e = ╱47╱G╱ // 0xf91 @0x1e
0x0f73…0fc3 at001f = ╱ec╱,╱ // 0xf92 @0x1f
0x0f73…0fc3 at0020 = ╱45╱E╱ // 0xf93 @0x20
0x0f73…0fc3 at0021 = ╱ee╱)╱ // 0xf94 @0x21
0x0f73…0fc3 at0022 = ╱ec╱,╱ // 0xf95 @0x22
0x0f73…0fc3 at0023 = ╱51╱Q╱ // 0xf96 @0x23
0x0f73…0fc3 at0024 = ╱ed╱(╱ // 0xf97 @0x24
0x0f73…0fc3 at0025 = ╱47╱G╱ // 0xf98 @0x25
0x0f73…0fc3 at0026 = ╱ec╱,╱ // 0xf99 @0x26
0x0f73…0fc3 at0027 = ╱47╱G╱ // 0xf9a @0x27
0x0f73…0fc3 at0028 = ╱ee╱)╱ // 0xf9b @0x28
0x0f73…0fc3 at0029 = ╱ec╱,╱ // 0xf9c @0x29
0x0f73…0fc3 at002a = ╱51╱Q╱ // 0xf9d @0x2a
0x0f73…0fc3 at002b = ╱ed╱(╱ // 0xf9e @0x2b
0x0f73…0fc3 at002c = ╱56╱V╱ // 0xf9f @0x2c
0x0f73…0fc3 at002d = ╱ec╱,╱ // 0xfa0 @0x2d
0x0f73…0fc3 at002e = ╱45╱E╱ // 0xfa1 @0x2e
0x0f73…0fc3 at002f = ╱ee╱)╱ // 0xfa2 @0x2f
0x0f73…0fc3 at0030 = ╱ec╱,╱ // 0xfa3 @0x30
0x0f73…0fc3 at0031 = ╱51╱Q╱ // 0xfa4 @0x31
0x0f73…0fc3 at0032 = ╱ed╱(╱ // 0xfa5 @0x32
0x0f73…0fc3 at0033 = ╱56╱V╱ // 0xfa6 @0x33
0x0f73…0fc3 at0034 = ╱ec╱,╱ // 0xfa7 @0x34
0x0f73…0fc3 at0035 = ╱47╱G╱ // 0xfa8 @0x35
0x0f73…0fc3 at0036 = ╱ee╱)╱ // 0xfa9 @0x36
0x0f73…0fc3 at0037 = ╱ec╱,╱ // 0xfaa @0x37
0x0f73…0fc3 at0038 = ╱51╱Q╱ // 0xfab @0x38
0x0f73…0fc3 at0039 = ╱ed╱(╱ // 0xfac @0x39
0x0f73…0fc3 at003a = ╱34╱4╱ // 0xfad @0x3a
0x0f73…0fc3 at003b = ╱fe00008003╱ // 0xfae @0x3b
0x0f73…0fc3 at0040 = ╱ec╱,╱ // 0xfb3 @0x40
0x0f73…0fc3 at0041 = ╱45╱E╱ // 0xfb4 @0x41
0x0f73…0fc3 at0042 = ╱ee╱)╱ // 0xfb5 @0x42
0x0f73…0fc3 at0043 = ╱ec╱,╱ // 0xfb6 @0x43
0x0f73…0fc3 at0044 = ╱51╱Q╱ // 0xfb7 @0x44
0x0f73…0fc3 at0045 = ╱ed╱(╱ // 0xfb8 @0x45
0x0f73…0fc3 at0046 = ╱34╱4╱ // 0xfb9 @0x46
0x0f73…0fc3 at0047 = ╱fe00008003╱ // 0xfba @0x47
0x0f73…0fc3 at004c = ╱ec╱,╱ // 0xfbf @0x4c
0x0f73…0fc3 at004d = ╱47╱G╱ // 0xfc0 @0x4d
0x0f73…0fc3 at004e = ╱ee╱)╱ // 0xfc1 @0x4e
0x0f73…0fc3 at004f = EOL // 0xfc2 @0x4f
0x0f73…0fc3 }
0x0fc3…0fd6 9d2d 1630 EXEC FEJL(E,E,L8$)
0x0fc3…0fd6 LineComalBin {
0x0fc3…0fd6 ptr = 0x9d2d // 0xfc3 @0x0
0x0fc3…0fd6 lno = 0x065e // 0xfc5 @0x2
0x0fc3…0fd6 at0004 = ╱9d╱ EXEC ╱ // 0xfc7 @0x4
0x0fc3…0fd6 at0005 = ╱46╱F╱ // 0xfc8 @0x5
0x0fc3…0fd6 at0006 = ╱45╱E╱ // 0xfc9 @0x6
0x0fc3…0fd6 at0007 = ╱4a╱J╱ // 0xfca @0x7
0x0fc3…0fd6 at0008 = ╱4c╱L╱ // 0xfcb @0x8
0x0fc3…0fd6 at0009 = ╱ed╱(╱ // 0xfcc @0x9
0x0fc3…0fd6 at000a = ╱45╱E╱ // 0xfcd @0xa
0x0fc3…0fd6 at000b = ╱ec╱,╱ // 0xfce @0xb
0x0fc3…0fd6 at000c = ╱45╱E╱ // 0xfcf @0xc
0x0fc3…0fd6 at000d = ╱ec╱,╱ // 0xfd0 @0xd
0x0fc3…0fd6 at000e = ╱4c╱L╱ // 0xfd1 @0xe
0x0fc3…0fd6 at000f = ╱38╱8╱ // 0xfd2 @0xf
0x0fc3…0fd6 at0010 = ╱ef╱$╱ // 0xfd3 @0x10
0x0fc3…0fd6 at0011 = ╱ee╱)╱ // 0xfd4 @0x11
0x0fc3…0fd6 at0012 = EOL // 0xfd5 @0x12
0x0fc3…0fd6 }
0x0fd6…0fe9 9d40 1640 FOR PIL6=E TO 4
0x0fd6…0fe9 LineComalBin {
0x0fd6…0fe9 ptr = 0x9d40 // 0xfd6 @0x0
0x0fd6…0fe9 lno = 0x0668 // 0xfd8 @0x2
0x0fd6…0fe9 at0004 = ╱83╱ FOR ╱ // 0xfda @0x4
0x0fd6…0fe9 at0005 = ╱50╱P╱ // 0xfdb @0x5
0x0fd6…0fe9 at0006 = ╱49╱I╱ // 0xfdc @0x6
0x0fd6…0fe9 at0007 = ╱4c╱L╱ // 0xfdd @0x7
0x0fd6…0fe9 at0008 = ╱36╱6╱ // 0xfde @0x8
0x0fd6…0fe9 at0009 = ╱dc╱=╱ // 0xfdf @0x9
0x0fd6…0fe9 at000a = ╱45╱E╱ // 0xfe0 @0xa
0x0fd6…0fe9 at000b = ╱b7╱ TO ╱ // 0xfe1 @0xb
0x0fd6…0fe9 at000c = ╱34╱4╱ // 0xfe2 @0xc
0x0fd6…0fe9 at000d = ╱fe00008003╱ // 0xfe3 @0xd
0x0fd6…0fe9 at0012 = EOL // 0xfe8 @0x12
0x0fd6…0fe9 }
0x0fe9…1000 9d57 1650 IF NØGL5=Q(PIL6,E) THEN EXIT
0x0fe9…1000 LineComalBin {
0x0fe9…1000 ptr = 0x9d57 // 0xfe9 @0x0
0x0fe9…1000 lno = 0x0672 // 0xfeb @0x2
0x0fe9…1000 at0004 = ╱82╱ IF ╱ // 0xfed @0x4
0x0fe9…1000 at0005 = ╱4e╱N╱ // 0xfee @0x5
0x0fe9…1000 at0006 = ╱5c╱Ø╱ // 0xfef @0x6
0x0fe9…1000 at0007 = ╱47╱G╱ // 0xff0 @0x7
0x0fe9…1000 at0008 = ╱4c╱L╱ // 0xff1 @0x8
0x0fe9…1000 at0009 = ╱35╱5╱ // 0xff2 @0x9
0x0fe9…1000 at000a = ╱dc╱=╱ // 0xff3 @0xa
0x0fe9…1000 at000b = ╱51╱Q╱ // 0xff4 @0xb
0x0fe9…1000 at000c = ╱ed╱(╱ // 0xff5 @0xc
0x0fe9…1000 at000d = ╱50╱P╱ // 0xff6 @0xd
0x0fe9…1000 at000e = ╱49╱I╱ // 0xff7 @0xe
0x0fe9…1000 at000f = ╱4c╱L╱ // 0xff8 @0xf
0x0fe9…1000 at0010 = ╱36╱6╱ // 0xff9 @0x10
0x0fe9…1000 at0011 = ╱ec╱,╱ // 0xffa @0x11
0x0fe9…1000 at0012 = ╱45╱E╱ // 0xffb @0x12
0x0fe9…1000 at0013 = ╱ee╱)╱ // 0xffc @0x13
0x0fe9…1000 at0014 = ╱b6╱ THEN ╱ // 0xffd @0x14
0x0fe9…1000 at0015 = ╱99╱ EXIT ╱ // 0xffe @0x15
0x0fe9…1000 at0016 = EOL // 0xfff @0x16
0x0fe9…1000 }
0x1000…100a 9d61 1660 NEXT PIL6
0x1000…100a LineComalBin {
0x1000…100a ptr = 0x9d61 // 0x1000 @0x0
0x1000…100a lno = 0x067c // 0x1002 @0x2
0x1000…100a at0004 = ╱84╱ NEXT ╱ // 0x1004 @0x4
0x1000…100a at0005 = ╱50╱P╱ // 0x1005 @0x5
0x1000…100a at0006 = ╱49╱I╱ // 0x1006 @0x6
0x1000…100a at0007 = ╱4c╱L╱ // 0x1007 @0x7
0x1000…100a at0008 = ╱36╱6╱ // 0x1008 @0x8
0x1000…100a at0009 = EOL // 0x1009 @0x9
0x1000…100a }
0x100a…1022 9d79 1670 IF PIL6<>5 THEN CEKS=B
0x100a…1022 LineComalBin {
0x100a…1022 ptr = 0x9d79 // 0x100a @0x0
0x100a…1022 lno = 0x0686 // 0x100c @0x2
0x100a…1022 at0004 = ╱82╱ IF ╱ // 0x100e @0x4
0x100a…1022 at0005 = ╱50╱P╱ // 0x100f @0x5
0x100a…1022 at0006 = ╱49╱I╱ // 0x1010 @0x6
0x100a…1022 at0007 = ╱4c╱L╱ // 0x1011 @0x7
0x100a…1022 at0008 = ╱36╱6╱ // 0x1012 @0x8
0x100a…1022 at0009 = ╱e1╱<>╱ // 0x1013 @0x9
0x100a…1022 at000a = ╱35╱5╱ // 0x1014 @0xa
0x100a…1022 at000b = ╱fe0000a003╱ // 0x1015 @0xb
0x100a…1022 at0010 = ╱b6╱ THEN ╱ // 0x101a @0x10
0x100a…1022 at0011 = ╱43╱C╱ // 0x101b @0x11
0x100a…1022 at0012 = ╱45╱E╱ // 0x101c @0x12
0x100a…1022 at0013 = ╱4b╱K╱ // 0x101d @0x13
0x100a…1022 at0014 = ╱53╱S╱ // 0x101e @0x14
0x100a…1022 at0015 = ╱dc╱=╱ // 0x101f @0x15
0x100a…1022 at0016 = ╱42╱B╱ // 0x1020 @0x16
0x100a…1022 at0017 = EOL // 0x1021 @0x17
0x100a…1022 }
0x1022…1028 9d7f 1680 ENDPROC
0x1022…1028 LineComalBin {
0x1022…1028 ptr = 0x9d7f // 0x1022 @0x0
0x1022…1028 lno = 0x0690 // 0x1024 @0x2
0x1022…1028 at0004 = ╱9f╱ ENDPROC ╱ // 0x1026 @0x4
0x1022…1028 at0005 = EOL // 0x1027 @0x5
0x1022…1028 }
0x1028…104d 9da4 1690 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x1028…104d LineComalBin {
0x1028…104d ptr = 0x9da4 // 0x1028 @0x0
0x1028…104d lno = 0x069a // 0x102a @0x2
0x1028…104d at0004 = ╱9e╱ PROC ╱ // 0x102c @0x4
0x1028…104d at0005 = ╱46╱F╱ // 0x102d @0x5
0x1028…104d at0006 = ╱49╱I╱ // 0x102e @0x6
0x1028…104d at0007 = ╱4e╱N╱ // 0x102f @0x7
0x1028…104d at0008 = ╱44╱D╱ // 0x1030 @0x8
0x1028…104d at0009 = ╱50╱P╱ // 0x1031 @0x9
0x1028…104d at000a = ╱4f╱O╱ // 0x1032 @0xa
0x1028…104d at000b = ╱53╱S╱ // 0x1033 @0xb
0x1028…104d at000c = ╱54╱T╱ // 0x1034 @0xc
0x1028…104d at000d = ╱ed╱(╱ // 0x1035 @0xd
0x1028…104d at000e = ╱54╱T╱ // 0x1036 @0xe
0x1028…104d at000f = ╱41╱A╱ // 0x1037 @0xf
0x1028…104d at0010 = ╱42╱B╱ // 0x1038 @0x10
0x1028…104d at0011 = ╱31╱1╱ // 0x1039 @0x11
0x1028…104d at0012 = ╱ec╱,╱ // 0x103a @0x12
0x1028…104d at0013 = ╱4d╱M╱ // 0x103b @0x13
0x1028…104d at0014 = ╱41╱A╱ // 0x103c @0x14
0x1028…104d at0015 = ╱4e╱N╱ // 0x103d @0x15
0x1028…104d at0016 = ╱54╱T╱ // 0x103e @0x16
0x1028…104d at0017 = ╱31╱1╱ // 0x103f @0x17
0x1028…104d at0018 = ╱ec╱,╱ // 0x1040 @0x18
0x1028…104d at0019 = ╱4e╱N╱ // 0x1041 @0x19
0x1028…104d at001a = ╱5c╱Ø╱ // 0x1042 @0x1a
0x1028…104d at001b = ╱47╱G╱ // 0x1043 @0x1b
0x1028…104d at001c = ╱4c╱L╱ // 0x1044 @0x1c
0x1028…104d at001d = ╱31╱1╱ // 0x1045 @0x1d
0x1028…104d at001e = ╱ec╱,╱ // 0x1046 @0x1e
0x1028…104d at001f = ╱50╱P╱ // 0x1047 @0x1f
0x1028…104d at0020 = ╱49╱I╱ // 0x1048 @0x20
0x1028…104d at0021 = ╱4c╱L╱ // 0x1049 @0x21
0x1028…104d at0022 = ╱33╱3╱ // 0x104a @0x22
0x1028…104d at0023 = ╱ee╱)╱ // 0x104b @0x23
0x1028…104d at0024 = EOL // 0x104c @0x24
0x1028…104d }
0x104d…106f 9dc6 1700 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x104d…106f LineComalBin {
0x104d…106f ptr = 0x9dc6 // 0x104d @0x0
0x104d…106f lno = 0x06a4 // 0x104f @0x2
0x104d…106f at0004 = ╱50╱P╱ // 0x1051 @0x4
0x104d…106f at0005 = ╱49╱I╱ // 0x1052 @0x5
0x104d…106f at0006 = ╱4c╱L╱ // 0x1053 @0x6
0x104d…106f at0007 = ╱31╱1╱ // 0x1054 @0x7
0x104d…106f at0008 = ╱dc╱=╱ // 0x1055 @0x8
0x104d…106f at0009 = ╱4d╱M╱ // 0x1056 @0x9
0x104d…106f at000a = ╱41╱A╱ // 0x1057 @0xa
0x104d…106f at000b = ╱4e╱N╱ // 0x1058 @0xb
0x104d…106f at000c = ╱54╱T╱ // 0x1059 @0xc
0x104d…106f at000d = ╱31╱1╱ // 0x105a @0xd
0x104d…106f at000e = ╱e7╱ DIV ╱ // 0x105b @0xe
0x104d…106f at000f = ╱47╱G╱ // 0x105c @0xf
0x104d…106f at0010 = ╱eb╱;╱ // 0x105d @0x10
0x104d…106f at0011 = ╱50╱P╱ // 0x105e @0x11
0x104d…106f at0012 = ╱49╱I╱ // 0x105f @0x12
0x104d…106f at0013 = ╱4c╱L╱ // 0x1060 @0x13
0x104d…106f at0014 = ╱33╱3╱ // 0x1061 @0x14
0x104d…106f at0015 = ╱dc╱=╱ // 0x1062 @0x15
0x104d…106f at0016 = ╱50╱P╱ // 0x1063 @0x16
0x104d…106f at0017 = ╱49╱I╱ // 0x1064 @0x17
0x104d…106f at0018 = ╱4c╱L╱ // 0x1065 @0x18
0x104d…106f at0019 = ╱31╱1╱ // 0x1066 @0x19
0x104d…106f at001a = ╱eb╱;╱ // 0x1067 @0x1a
0x104d…106f at001b = ╱43╱C╱ // 0x1068 @0x1b
0x104d…106f at001c = ╱45╱E╱ // 0x1069 @0x1c
0x104d…106f at001d = ╱4b╱K╱ // 0x106a @0x1d
0x104d…106f at001e = ╱53╱S╱ // 0x106b @0x1e
0x104d…106f at001f = ╱dc╱=╱ // 0x106c @0x1f
0x104d…106f at0020 = ╱45╱E╱ // 0x106d @0x20
0x104d…106f at0021 = EOL // 0x106e @0x21
0x104d…106f }
0x106f…1075 9dcc 1710 REPEAT
0x106f…1075 LineComalBin {
0x106f…1075 ptr = 0x9dcc // 0x106f @0x0
0x106f…1075 lno = 0x06ae // 0x1071 @0x2
0x106f…1075 at0004 = ╱97╱ REPEAT ╱ // 0x1073 @0x4
0x106f…1075 at0005 = EOL // 0x1074 @0x5
0x106f…1075 }
0x1075…1096 9ded 1720 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT
0x1075…1096 LineComalBin {
0x1075…1096 ptr = 0x9ded // 0x1075 @0x0
0x1075…1096 lno = 0x06b8 // 0x1077 @0x2
0x1075…1096 at0004 = ╱82╱ IF ╱ // 0x1079 @0x4
0x1075…1096 at0005 = ╱4e╱N╱ // 0x107a @0x5
0x1075…1096 at0006 = ╱5c╱Ø╱ // 0x107b @0x6
0x1075…1096 at0007 = ╱47╱G╱ // 0x107c @0x7
0x1075…1096 at0008 = ╱4c╱L╱ // 0x107d @0x8
0x1075…1096 at0009 = ╱31╱1╱ // 0x107e @0x9
0x1075…1096 at000a = ╱dc╱=╱ // 0x107f @0xa
0x1075…1096 at000b = ╱54╱T╱ // 0x1080 @0xb
0x1075…1096 at000c = ╱41╱A╱ // 0x1081 @0xc
0x1075…1096 at000d = ╱42╱B╱ // 0x1082 @0xd
0x1075…1096 at000e = ╱31╱1╱ // 0x1083 @0xe
0x1075…1096 at000f = ╱ed╱(╱ // 0x1084 @0xf
0x1075…1096 at0010 = ╱50╱P╱ // 0x1085 @0x10
0x1075…1096 at0011 = ╱49╱I╱ // 0x1086 @0x11
0x1075…1096 at0012 = ╱4c╱L╱ // 0x1087 @0x12
0x1075…1096 at0013 = ╱33╱3╱ // 0x1088 @0x13
0x1075…1096 at0014 = ╱ec╱,╱ // 0x1089 @0x14
0x1075…1096 at0015 = ╱45╱E╱ // 0x108a @0x15
0x1075…1096 at0016 = ╱ee╱)╱ // 0x108b @0x16
0x1075…1096 at0017 = ╱db╱ OR ╱ // 0x108c @0x17
0x1075…1096 at0018 = ╱50╱P╱ // 0x108d @0x18
0x1075…1096 at0019 = ╱49╱I╱ // 0x108e @0x19
0x1075…1096 at001a = ╱4c╱L╱ // 0x108f @0x1a
0x1075…1096 at001b = ╱31╱1╱ // 0x1090 @0x1b
0x1075…1096 at001c = ╱dc╱=╱ // 0x1091 @0x1c
0x1075…1096 at001d = ╱45╱E╱ // 0x1092 @0x1d
0x1075…1096 at001e = ╱b6╱ THEN ╱ // 0x1093 @0x1e
0x1075…1096 at001f = ╱99╱ EXIT ╱ // 0x1094 @0x1f
0x1075…1096 at0020 = EOL // 0x1095 @0x20
0x1075…1096 }
0x1096…10d4 9e2b 1730 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E)))
0x1096…10d4 LineComalBin {
0x1096…10d4 ptr = 0x9e2b // 0x1096 @0x0
0x1096…10d4 lno = 0x06c2 // 0x1098 @0x2
0x1096…10d4 at0004 = ╱50╱P╱ // 0x109a @0x4
0x1096…10d4 at0005 = ╱49╱I╱ // 0x109b @0x5
0x1096…10d4 at0006 = ╱4c╱L╱ // 0x109c @0x6
0x1096…10d4 at0007 = ╱31╱1╱ // 0x109d @0x7
0x1096…10d4 at0008 = ╱dc╱=╱ // 0x109e @0x8
0x1096…10d4 at0009 = ╱ed╱(╱ // 0x109f @0x9
0x1096…10d4 at000a = ╱50╱P╱ // 0x10a0 @0xa
0x1096…10d4 at000b = ╱49╱I╱ // 0x10a1 @0xb
0x1096…10d4 at000c = ╱4c╱L╱ // 0x10a2 @0xc
0x1096…10d4 at000d = ╱31╱1╱ // 0x10a3 @0xd
0x1096…10d4 at000e = ╱e2╱+╱ // 0x10a4 @0xe
0x1096…10d4 at000f = ╱45╱E╱ // 0x10a5 @0xf
0x1096…10d4 at0010 = ╱ee╱)╱ // 0x10a6 @0x10
0x1096…10d4 at0011 = ╱e7╱ DIV ╱ // 0x10a7 @0x11
0x1096…10d4 at0012 = ╱47╱G╱ // 0x10a8 @0x12
0x1096…10d4 at0013 = ╱eb╱;╱ // 0x10a9 @0x13
0x1096…10d4 at0014 = ╱50╱P╱ // 0x10aa @0x14
0x1096…10d4 at0015 = ╱49╱I╱ // 0x10ab @0x15
0x1096…10d4 at0016 = ╱4c╱L╱ // 0x10ac @0x16
0x1096…10d4 at0017 = ╱33╱3╱ // 0x10ad @0x17
0x1096…10d4 at0018 = ╱dc╱=╱ // 0x10ae @0x18
0x1096…10d4 at0019 = ╱50╱P╱ // 0x10af @0x19
0x1096…10d4 at001a = ╱49╱I╱ // 0x10b0 @0x1a
0x1096…10d4 at001b = ╱4c╱L╱ // 0x10b1 @0x1b
0x1096…10d4 at001c = ╱33╱3╱ // 0x10b2 @0x1c
0x1096…10d4 at001d = ╱e2╱+╱ // 0x10b3 @0x1d
0x1096…10d4 at001e = ╱50╱P╱ // 0x10b4 @0x1e
0x1096…10d4 at001f = ╱49╱I╱ // 0x10b5 @0x1f
0x1096…10d4 at0020 = ╱4c╱L╱ // 0x10b6 @0x20
0x1096…10d4 at0021 = ╱31╱1╱ // 0x10b7 @0x21
0x1096…10d4 at0022 = ╱e4╱*╱ // 0x10b8 @0x22
0x1096…10d4 at0023 = ╱ed╱(╱ // 0x10b9 @0x23
0x1096…10d4 at0024 = ╱45╱E╱ // 0x10ba @0x24
0x1096…10d4 at0025 = ╱e3╱-╱ // 0x10bb @0x25
0x1096…10d4 at0026 = ╱47╱G╱ // 0x10bc @0x26
0x1096…10d4 at0027 = ╱e4╱*╱ // 0x10bd @0x27
0x1096…10d4 at0028 = ╱ed╱(╱ // 0x10be @0x28
0x1096…10d4 at0029 = ╱4e╱N╱ // 0x10bf @0x29
0x1096…10d4 at002a = ╱5c╱Ø╱ // 0x10c0 @0x2a
0x1096…10d4 at002b = ╱47╱G╱ // 0x10c1 @0x2b
0x1096…10d4 at002c = ╱4c╱L╱ // 0x10c2 @0x2c
0x1096…10d4 at002d = ╱31╱1╱ // 0x10c3 @0x2d
0x1096…10d4 at002e = ╱dd╱<╱ // 0x10c4 @0x2e
0x1096…10d4 at002f = ╱54╱T╱ // 0x10c5 @0x2f
0x1096…10d4 at0030 = ╱41╱A╱ // 0x10c6 @0x30
0x1096…10d4 at0031 = ╱42╱B╱ // 0x10c7 @0x31
0x1096…10d4 at0032 = ╱31╱1╱ // 0x10c8 @0x32
0x1096…10d4 at0033 = ╱ed╱(╱ // 0x10c9 @0x33
0x1096…10d4 at0034 = ╱50╱P╱ // 0x10ca @0x34
0x1096…10d4 at0035 = ╱49╱I╱ // 0x10cb @0x35
0x1096…10d4 at0036 = ╱4c╱L╱ // 0x10cc @0x36
0x1096…10d4 at0037 = ╱33╱3╱ // 0x10cd @0x37
0x1096…10d4 at0038 = ╱ec╱,╱ // 0x10ce @0x38
0x1096…10d4 at0039 = ╱45╱E╱ // 0x10cf @0x39
0x1096…10d4 at003a = ╱ee╱)╱ // 0x10d0 @0x3a
0x1096…10d4 at003b = ╱ee╱)╱ // 0x10d1 @0x3b
0x1096…10d4 at003c = ╱ee╱)╱ // 0x10d2 @0x3c
0x1096…10d4 at003d = EOL // 0x10d3 @0x3d
0x1096…10d4 }
0x10d4…10e7 9e3e 1740 IF PIL3<E THEN PIL3=E
0x10d4…10e7 LineComalBin {
0x10d4…10e7 ptr = 0x9e3e // 0x10d4 @0x0
0x10d4…10e7 lno = 0x06cc // 0x10d6 @0x2
0x10d4…10e7 at0004 = ╱82╱ IF ╱ // 0x10d8 @0x4
0x10d4…10e7 at0005 = ╱50╱P╱ // 0x10d9 @0x5
0x10d4…10e7 at0006 = ╱49╱I╱ // 0x10da @0x6
0x10d4…10e7 at0007 = ╱4c╱L╱ // 0x10db @0x7
0x10d4…10e7 at0008 = ╱33╱3╱ // 0x10dc @0x8
0x10d4…10e7 at0009 = ╱dd╱<╱ // 0x10dd @0x9
0x10d4…10e7 at000a = ╱45╱E╱ // 0x10de @0xa
0x10d4…10e7 at000b = ╱b6╱ THEN ╱ // 0x10df @0xb
0x10d4…10e7 at000c = ╱50╱P╱ // 0x10e0 @0xc
0x10d4…10e7 at000d = ╱49╱I╱ // 0x10e1 @0xd
0x10d4…10e7 at000e = ╱4c╱L╱ // 0x10e2 @0xe
0x10d4…10e7 at000f = ╱33╱3╱ // 0x10e3 @0xf
0x10d4…10e7 at0010 = ╱dc╱=╱ // 0x10e4 @0x10
0x10d4…10e7 at0011 = ╱45╱E╱ // 0x10e5 @0x11
0x10d4…10e7 at0012 = EOL // 0x10e6 @0x12
0x10d4…10e7 }
0x10e7…1102 9e59 1750 IF PIL3>MANT1 THEN PIL3=MANT1
0x10e7…1102 LineComalBin {
0x10e7…1102 ptr = 0x9e59 // 0x10e7 @0x0
0x10e7…1102 lno = 0x06d6 // 0x10e9 @0x2
0x10e7…1102 at0004 = ╱82╱ IF ╱ // 0x10eb @0x4
0x10e7…1102 at0005 = ╱50╱P╱ // 0x10ec @0x5
0x10e7…1102 at0006 = ╱49╱I╱ // 0x10ed @0x6
0x10e7…1102 at0007 = ╱4c╱L╱ // 0x10ee @0x7
0x10e7…1102 at0008 = ╱33╱3╱ // 0x10ef @0x8
0x10e7…1102 at0009 = ╱de╱>╱ // 0x10f0 @0x9
0x10e7…1102 at000a = ╱4d╱M╱ // 0x10f1 @0xa
0x10e7…1102 at000b = ╱41╱A╱ // 0x10f2 @0xb
0x10e7…1102 at000c = ╱4e╱N╱ // 0x10f3 @0xc
0x10e7…1102 at000d = ╱54╱T╱ // 0x10f4 @0xd
0x10e7…1102 at000e = ╱31╱1╱ // 0x10f5 @0xe
0x10e7…1102 at000f = ╱b6╱ THEN ╱ // 0x10f6 @0xf
0x10e7…1102 at0010 = ╱50╱P╱ // 0x10f7 @0x10
0x10e7…1102 at0011 = ╱49╱I╱ // 0x10f8 @0x11
0x10e7…1102 at0012 = ╱4c╱L╱ // 0x10f9 @0x12
0x10e7…1102 at0013 = ╱33╱3╱ // 0x10fa @0x13
0x10e7…1102 at0014 = ╱dc╱=╱ // 0x10fb @0x14
0x10e7…1102 at0015 = ╱4d╱M╱ // 0x10fc @0x15
0x10e7…1102 at0016 = ╱41╱A╱ // 0x10fd @0x16
0x10e7…1102 at0017 = ╱4e╱N╱ // 0x10fe @0x17
0x10e7…1102 at0018 = ╱54╱T╱ // 0x10ff @0x18
0x10e7…1102 at0019 = ╱31╱1╱ // 0x1100 @0x19
0x10e7…1102 at001a = EOL // 0x1101 @0x1a
0x10e7…1102 }
0x1102…110e 9e65 1760 UNTIL PIL1=B
0x1102…110e LineComalBin {
0x1102…110e ptr = 0x9e65 // 0x1102 @0x0
0x1102…110e lno = 0x06e0 // 0x1104 @0x2
0x1102…110e at0004 = ╱98╱ UNTIL ╱ // 0x1106 @0x4
0x1102…110e at0005 = ╱50╱P╱ // 0x1107 @0x5
0x1102…110e at0006 = ╱49╱I╱ // 0x1108 @0x6
0x1102…110e at0007 = ╱4c╱L╱ // 0x1109 @0x7
0x1102…110e at0008 = ╱31╱1╱ // 0x110a @0x8
0x1102…110e at0009 = ╱dc╱=╱ // 0x110b @0x9
0x1102…110e at000a = ╱42╱B╱ // 0x110c @0xa
0x1102…110e at000b = EOL // 0x110d @0xb
0x1102…110e }
0x110e…113f 9e96 1765 IF NØGL1>TAB1(PIL3,E) THEN PIL3=PIL3+E*(PIL3<MANT1)
0x110e…113f LineComalBin {
0x110e…113f ptr = 0x9e96 // 0x110e @0x0
0x110e…113f lno = 0x06e5 // 0x1110 @0x2
0x110e…113f at0004 = ╱82╱ IF ╱ // 0x1112 @0x4
0x110e…113f at0005 = ╱4e╱N╱ // 0x1113 @0x5
0x110e…113f at0006 = ╱5c╱Ø╱ // 0x1114 @0x6
0x110e…113f at0007 = ╱47╱G╱ // 0x1115 @0x7
0x110e…113f at0008 = ╱4c╱L╱ // 0x1116 @0x8
0x110e…113f at0009 = ╱31╱1╱ // 0x1117 @0x9
0x110e…113f at000a = ╱de╱>╱ // 0x1118 @0xa
0x110e…113f at000b = ╱54╱T╱ // 0x1119 @0xb
0x110e…113f at000c = ╱41╱A╱ // 0x111a @0xc
0x110e…113f at000d = ╱42╱B╱ // 0x111b @0xd
0x110e…113f at000e = ╱31╱1╱ // 0x111c @0xe
0x110e…113f at000f = ╱ed╱(╱ // 0x111d @0xf
0x110e…113f at0010 = ╱50╱P╱ // 0x111e @0x10
0x110e…113f at0011 = ╱49╱I╱ // 0x111f @0x11
0x110e…113f at0012 = ╱4c╱L╱ // 0x1120 @0x12
0x110e…113f at0013 = ╱33╱3╱ // 0x1121 @0x13
0x110e…113f at0014 = ╱ec╱,╱ // 0x1122 @0x14
0x110e…113f at0015 = ╱45╱E╱ // 0x1123 @0x15
0x110e…113f at0016 = ╱ee╱)╱ // 0x1124 @0x16
0x110e…113f at0017 = ╱b6╱ THEN ╱ // 0x1125 @0x17
0x110e…113f at0018 = ╱50╱P╱ // 0x1126 @0x18
0x110e…113f at0019 = ╱49╱I╱ // 0x1127 @0x19
0x110e…113f at001a = ╱4c╱L╱ // 0x1128 @0x1a
0x110e…113f at001b = ╱33╱3╱ // 0x1129 @0x1b
0x110e…113f at001c = ╱dc╱=╱ // 0x112a @0x1c
0x110e…113f at001d = ╱50╱P╱ // 0x112b @0x1d
0x110e…113f at001e = ╱49╱I╱ // 0x112c @0x1e
0x110e…113f at001f = ╱4c╱L╱ // 0x112d @0x1f
0x110e…113f at0020 = ╱33╱3╱ // 0x112e @0x20
0x110e…113f at0021 = ╱e2╱+╱ // 0x112f @0x21
0x110e…113f at0022 = ╱45╱E╱ // 0x1130 @0x22
0x110e…113f at0023 = ╱e4╱*╱ // 0x1131 @0x23
0x110e…113f at0024 = ╱ed╱(╱ // 0x1132 @0x24
0x110e…113f at0025 = ╱50╱P╱ // 0x1133 @0x25
0x110e…113f at0026 = ╱49╱I╱ // 0x1134 @0x26
0x110e…113f at0027 = ╱4c╱L╱ // 0x1135 @0x27
0x110e…113f at0028 = ╱33╱3╱ // 0x1136 @0x28
0x110e…113f at0029 = ╱dd╱<╱ // 0x1137 @0x29
0x110e…113f at002a = ╱4d╱M╱ // 0x1138 @0x2a
0x110e…113f at002b = ╱41╱A╱ // 0x1139 @0x2b
0x110e…113f at002c = ╱4e╱N╱ // 0x113a @0x2c
0x110e…113f at002d = ╱54╱T╱ // 0x113b @0x2d
0x110e…113f at002e = ╱31╱1╱ // 0x113c @0x2e
0x110e…113f at002f = ╱ee╱)╱ // 0x113d @0x2f
0x110e…113f at0030 = EOL // 0x113e @0x30
0x110e…113f }
0x113f…115e 9eb5 1770 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B
0x113f…115e LineComalBin {
0x113f…115e ptr = 0x9eb5 // 0x113f @0x0
0x113f…115e lno = 0x06ea // 0x1141 @0x2
0x113f…115e at0004 = ╱82╱ IF ╱ // 0x1143 @0x4
0x113f…115e at0005 = ╱4e╱N╱ // 0x1144 @0x5
0x113f…115e at0006 = ╱5c╱Ø╱ // 0x1145 @0x6
0x113f…115e at0007 = ╱47╱G╱ // 0x1146 @0x7
0x113f…115e at0008 = ╱4c╱L╱ // 0x1147 @0x8
0x113f…115e at0009 = ╱31╱1╱ // 0x1148 @0x9
0x113f…115e at000a = ╱dc╱=╱ // 0x1149 @0xa
0x113f…115e at000b = ╱54╱T╱ // 0x114a @0xb
0x113f…115e at000c = ╱41╱A╱ // 0x114b @0xc
0x113f…115e at000d = ╱42╱B╱ // 0x114c @0xd
0x113f…115e at000e = ╱31╱1╱ // 0x114d @0xe
0x113f…115e at000f = ╱ed╱(╱ // 0x114e @0xf
0x113f…115e at0010 = ╱50╱P╱ // 0x114f @0x10
0x113f…115e at0011 = ╱49╱I╱ // 0x1150 @0x11
0x113f…115e at0012 = ╱4c╱L╱ // 0x1151 @0x12
0x113f…115e at0013 = ╱33╱3╱ // 0x1152 @0x13
0x113f…115e at0014 = ╱ec╱,╱ // 0x1153 @0x14
0x113f…115e at0015 = ╱45╱E╱ // 0x1154 @0x15
0x113f…115e at0016 = ╱ee╱)╱ // 0x1155 @0x16
0x113f…115e at0017 = ╱b6╱ THEN ╱ // 0x1156 @0x17
0x113f…115e at0018 = ╱43╱C╱ // 0x1157 @0x18
0x113f…115e at0019 = ╱45╱E╱ // 0x1158 @0x19
0x113f…115e at001a = ╱4b╱K╱ // 0x1159 @0x1a
0x113f…115e at001b = ╱53╱S╱ // 0x115a @0x1b
0x113f…115e at001c = ╱dc╱=╱ // 0x115b @0x1c
0x113f…115e at001d = ╱42╱B╱ // 0x115c @0x1d
0x113f…115e at001e = EOL // 0x115d @0x1e
0x113f…115e }
0x115e…1164 9ebb 1780 ENDPROC
0x115e…1164 LineComalBin {
0x115e…1164 ptr = 0x9ebb // 0x115e @0x0
0x115e…1164 lno = 0x06f4 // 0x1160 @0x2
0x115e…1164 at0004 = ╱9f╱ ENDPROC ╱ // 0x1162 @0x4
0x115e…1164 at0005 = EOL // 0x1163 @0x5
0x115e…1164 }
0x1164…1171 9ec8 1790 PROC VAREÆND
0x1164…1171 LineComalBin {
0x1164…1171 ptr = 0x9ec8 // 0x1164 @0x0
0x1164…1171 lno = 0x06fe // 0x1166 @0x2
0x1164…1171 at0004 = ╱9e╱ PROC ╱ // 0x1168 @0x4
0x1164…1171 at0005 = ╱56╱V╱ // 0x1169 @0x5
0x1164…1171 at0006 = ╱41╱A╱ // 0x116a @0x6
0x1164…1171 at0007 = ╱52╱R╱ // 0x116b @0x7
0x1164…1171 at0008 = ╱45╱E╱ // 0x116c @0x8
0x1164…1171 at0009 = ╱5b╱Æ╱ // 0x116d @0x9
0x1164…1171 at000a = ╱4e╱N╱ // 0x116e @0xa
0x1164…1171 at000b = ╱44╱D╱ // 0x116f @0xb
0x1164…1171 at000c = EOL // 0x1170 @0xc
0x1164…1171 }
0x1171…1184 9edb 1800 VARTEK$=BLANK$
0x1171…1184 LineComalBin {
0x1171…1184 ptr = 0x9edb // 0x1171 @0x0
0x1171…1184 lno = 0x0708 // 0x1173 @0x2
0x1171…1184 at0004 = ╱56╱V╱ // 0x1175 @0x4
0x1171…1184 at0005 = ╱41╱A╱ // 0x1176 @0x5
0x1171…1184 at0006 = ╱52╱R╱ // 0x1177 @0x6
0x1171…1184 at0007 = ╱54╱T╱ // 0x1178 @0x7
0x1171…1184 at0008 = ╱45╱E╱ // 0x1179 @0x8
0x1171…1184 at0009 = ╱4b╱K╱ // 0x117a @0x9
0x1171…1184 at000a = ╱ef╱$╱ // 0x117b @0xa
0x1171…1184 at000b = ╱dc╱=╱ // 0x117c @0xb
0x1171…1184 at000c = ╱42╱B╱ // 0x117d @0xc
0x1171…1184 at000d = ╱4c╱L╱ // 0x117e @0xd
0x1171…1184 at000e = ╱41╱A╱ // 0x117f @0xe
0x1171…1184 at000f = ╱4e╱N╱ // 0x1180 @0xf
0x1171…1184 at0010 = ╱4b╱K╱ // 0x1181 @0x10
0x1171…1184 at0011 = ╱ef╱$╱ // 0x1182 @0x11
0x1171…1184 at0012 = EOL // 0x1183 @0x12
0x1171…1184 }
0x1184…1197 9eee 1810 CURSOR 12,LINIE
0x1184…1197 LineComalBin {
0x1184…1197 ptr = 0x9eee // 0x1184 @0x0
0x1184…1197 lno = 0x0712 // 0x1186 @0x2
0x1184…1197 at0004 = ╱a1╱ CURSOR ╱ // 0x1188 @0x4
0x1184…1197 at0005 = ╱31╱1╱ // 0x1189 @0x5
0x1184…1197 at0006 = ╱32╱2╱ // 0x118a @0x6
0x1184…1197 at0007 = ╱fe0000c004╱ // 0x118b @0x7
0x1184…1197 at000c = ╱ec╱,╱ // 0x1190 @0xc
0x1184…1197 at000d = ╱4c╱L╱ // 0x1191 @0xd
0x1184…1197 at000e = ╱49╱I╱ // 0x1192 @0xe
0x1184…1197 at000f = ╱4e╱N╱ // 0x1193 @0xf
0x1184…1197 at0010 = ╱49╱I╱ // 0x1194 @0x10
0x1184…1197 at0011 = ╱45╱E╱ // 0x1195 @0x11
0x1184…1197 at0012 = EOL // 0x1196 @0x12
0x1184…1197 }
0x1197…11a8 9eff 1820 INPUT " ",VARTEK$
0x1197…11a8 LineComalBin {
0x1197…11a8 ptr = 0x9eff // 0x1197 @0x0
0x1197…11a8 lno = 0x071c // 0x1199 @0x2
0x1197…11a8 at0004 = ╱91╱ INPUT ╱ // 0x119b @0x4
0x1197…11a8 at0005 = ╱22╱"╱ // 0x119c @0x5
0x1197…11a8 at0006 = ╱20╱…╱ // 0x119d @0x6
0x1197…11a8 at0007 = ╱22╱"╱ // 0x119e @0x7
0x1197…11a8 at0008 = ╱ec╱,╱ // 0x119f @0x8
0x1197…11a8 at0009 = ╱56╱V╱ // 0x11a0 @0x9
0x1197…11a8 at000a = ╱41╱A╱ // 0x11a1 @0xa
0x1197…11a8 at000b = ╱52╱R╱ // 0x11a2 @0xb
0x1197…11a8 at000c = ╱54╱T╱ // 0x11a3 @0xc
0x1197…11a8 at000d = ╱45╱E╱ // 0x11a4 @0xd
0x1197…11a8 at000e = ╱4b╱K╱ // 0x11a5 @0xe
0x1197…11a8 at000f = ╱ef╱$╱ // 0x11a6 @0xf
0x1197…11a8 at0010 = EOL // 0x11a7 @0x10
0x1197…11a8 }
0x11a8…11cc 9f23 1830 IF LEN(VARTEK$)>B THEN VARTEKST$=VARTEK$
0x11a8…11cc LineComalBin {
0x11a8…11cc ptr = 0x9f23 // 0x11a8 @0x0
0x11a8…11cc lno = 0x0726 // 0x11aa @0x2
0x11a8…11cc at0004 = ╱82╱ IF ╱ // 0x11ac @0x4
0x11a8…11cc at0005 = ╱cc╱LEN╱ // 0x11ad @0x5
0x11a8…11cc at0006 = ╱ed╱(╱ // 0x11ae @0x6
0x11a8…11cc at0007 = ╱56╱V╱ // 0x11af @0x7
0x11a8…11cc at0008 = ╱41╱A╱ // 0x11b0 @0x8
0x11a8…11cc at0009 = ╱52╱R╱ // 0x11b1 @0x9
0x11a8…11cc at000a = ╱54╱T╱ // 0x11b2 @0xa
0x11a8…11cc at000b = ╱45╱E╱ // 0x11b3 @0xb
0x11a8…11cc at000c = ╱4b╱K╱ // 0x11b4 @0xc
0x11a8…11cc at000d = ╱ef╱$╱ // 0x11b5 @0xd
0x11a8…11cc at000e = ╱ee╱)╱ // 0x11b6 @0xe
0x11a8…11cc at000f = ╱de╱>╱ // 0x11b7 @0xf
0x11a8…11cc at0010 = ╱42╱B╱ // 0x11b8 @0x10
0x11a8…11cc at0011 = ╱b6╱ THEN ╱ // 0x11b9 @0x11
0x11a8…11cc at0012 = ╱56╱V╱ // 0x11ba @0x12
0x11a8…11cc at0013 = ╱41╱A╱ // 0x11bb @0x13
0x11a8…11cc at0014 = ╱52╱R╱ // 0x11bc @0x14
0x11a8…11cc at0015 = ╱54╱T╱ // 0x11bd @0x15
0x11a8…11cc at0016 = ╱45╱E╱ // 0x11be @0x16
0x11a8…11cc at0017 = ╱4b╱K╱ // 0x11bf @0x17
0x11a8…11cc at0018 = ╱53╱S╱ // 0x11c0 @0x18
0x11a8…11cc at0019 = ╱54╱T╱ // 0x11c1 @0x19
0x11a8…11cc at001a = ╱ef╱$╱ // 0x11c2 @0x1a
0x11a8…11cc at001b = ╱dc╱=╱ // 0x11c3 @0x1b
0x11a8…11cc at001c = ╱56╱V╱ // 0x11c4 @0x1c
0x11a8…11cc at001d = ╱41╱A╱ // 0x11c5 @0x1d
0x11a8…11cc at001e = ╱52╱R╱ // 0x11c6 @0x1e
0x11a8…11cc at001f = ╱54╱T╱ // 0x11c7 @0x1f
0x11a8…11cc at0020 = ╱45╱E╱ // 0x11c8 @0x20
0x11a8…11cc at0021 = ╱4b╱K╱ // 0x11c9 @0x21
0x11a8…11cc at0022 = ╱ef╱$╱ // 0x11ca @0x22
0x11a8…11cc at0023 = EOL // 0x11cb @0x23
0x11a8…11cc }
0x11cc…11df 9f36 1840 CURSOR 13,LINIE
0x11cc…11df LineComalBin {
0x11cc…11df ptr = 0x9f36 // 0x11cc @0x0
0x11cc…11df lno = 0x0730 // 0x11ce @0x2
0x11cc…11df at0004 = ╱a1╱ CURSOR ╱ // 0x11d0 @0x4
0x11cc…11df at0005 = ╱31╱1╱ // 0x11d1 @0x5
0x11cc…11df at0006 = ╱33╱3╱ // 0x11d2 @0x6
0x11cc…11df at0007 = ╱fe0000d004╱ // 0x11d3 @0x7
0x11cc…11df at000c = ╱ec╱,╱ // 0x11d8 @0xc
0x11cc…11df at000d = ╱4c╱L╱ // 0x11d9 @0xd
0x11cc…11df at000e = ╱49╱I╱ // 0x11da @0xe
0x11cc…11df at000f = ╱4e╱N╱ // 0x11db @0xf
0x11cc…11df at0010 = ╱49╱I╱ // 0x11dc @0x10
0x11cc…11df at0011 = ╱45╱E╱ // 0x11dd @0x11
0x11cc…11df at0012 = EOL // 0x11de @0x12
0x11cc…11df }
0x11df…11fc 9f53 1850 PRINT VARTEKST$;BLANK$;BLANK$
0x11df…11fc LineComalBin {
0x11df…11fc ptr = 0x9f53 // 0x11df @0x0
0x11df…11fc lno = 0x073a // 0x11e1 @0x2
0x11df…11fc at0004 = ╱92╱ PRINT ╱ // 0x11e3 @0x4
0x11df…11fc at0005 = ╱56╱V╱ // 0x11e4 @0x5
0x11df…11fc at0006 = ╱41╱A╱ // 0x11e5 @0x6
0x11df…11fc at0007 = ╱52╱R╱ // 0x11e6 @0x7
0x11df…11fc at0008 = ╱54╱T╱ // 0x11e7 @0x8
0x11df…11fc at0009 = ╱45╱E╱ // 0x11e8 @0x9
0x11df…11fc at000a = ╱4b╱K╱ // 0x11e9 @0xa
0x11df…11fc at000b = ╱53╱S╱ // 0x11ea @0xb
0x11df…11fc at000c = ╱54╱T╱ // 0x11eb @0xc
0x11df…11fc at000d = ╱ef╱$╱ // 0x11ec @0xd
0x11df…11fc at000e = ╱eb╱;╱ // 0x11ed @0xe
0x11df…11fc at000f = ╱42╱B╱ // 0x11ee @0xf
0x11df…11fc at0010 = ╱4c╱L╱ // 0x11ef @0x10
0x11df…11fc at0011 = ╱41╱A╱ // 0x11f0 @0x11
0x11df…11fc at0012 = ╱4e╱N╱ // 0x11f1 @0x12
0x11df…11fc at0013 = ╱4b╱K╱ // 0x11f2 @0x13
0x11df…11fc at0014 = ╱ef╱$╱ // 0x11f3 @0x14
0x11df…11fc at0015 = ╱eb╱;╱ // 0x11f4 @0x15
0x11df…11fc at0016 = ╱42╱B╱ // 0x11f5 @0x16
0x11df…11fc at0017 = ╱4c╱L╱ // 0x11f6 @0x17
0x11df…11fc at0018 = ╱41╱A╱ // 0x11f7 @0x18
0x11df…11fc at0019 = ╱4e╱N╱ // 0x11f8 @0x19
0x11df…11fc at001a = ╱4b╱K╱ // 0x11f9 @0x1a
0x11df…11fc at001b = ╱ef╱$╱ // 0x11fa @0x1b
0x11df…11fc at001c = EOL // 0x11fb @0x1c
0x11df…11fc }
0x11fc…1202 9f59 1860 REPEAT
0x11fc…1202 LineComalBin {
0x11fc…1202 ptr = 0x9f59 // 0x11fc @0x0
0x11fc…1202 lno = 0x0744 // 0x11fe @0x2
0x11fc…1202 at0004 = ╱97╱ REPEAT ╱ // 0x1200 @0x4
0x11fc…1202 at0005 = EOL // 0x1201 @0x5
0x11fc…1202 }
0x1202…1215 9f6c 1870 CURSOR 44,LINIE
0x1202…1215 LineComalBin {
0x1202…1215 ptr = 0x9f6c // 0x1202 @0x0
0x1202…1215 lno = 0x074e // 0x1204 @0x2
0x1202…1215 at0004 = ╱a1╱ CURSOR ╱ // 0x1206 @0x4
0x1202…1215 at0005 = ╱34╱4╱ // 0x1207 @0x5
0x1202…1215 at0006 = ╱34╱4╱ // 0x1208 @0x6
0x1202…1215 at0007 = ╱fe0000b006╱ // 0x1209 @0x7
0x1202…1215 at000c = ╱ec╱,╱ // 0x120e @0xc
0x1202…1215 at000d = ╱4c╱L╱ // 0x120f @0xd
0x1202…1215 at000e = ╱49╱I╱ // 0x1210 @0xe
0x1202…1215 at000f = ╱4e╱N╱ // 0x1211 @0xf
0x1202…1215 at0010 = ╱49╱I╱ // 0x1212 @0x10
0x1202…1215 at0011 = ╱45╱E╱ // 0x1213 @0x11
0x1202…1215 at0012 = EOL // 0x1214 @0x12
0x1202…1215 }
0x1215…1226 9f7d 1880 INPUT " ",VARPRI$
0x1215…1226 LineComalBin {
0x1215…1226 ptr = 0x9f7d // 0x1215 @0x0
0x1215…1226 lno = 0x0758 // 0x1217 @0x2
0x1215…1226 at0004 = ╱91╱ INPUT ╱ // 0x1219 @0x4
0x1215…1226 at0005 = ╱22╱"╱ // 0x121a @0x5
0x1215…1226 at0006 = ╱20╱…╱ // 0x121b @0x6
0x1215…1226 at0007 = ╱22╱"╱ // 0x121c @0x7
0x1215…1226 at0008 = ╱ec╱,╱ // 0x121d @0x8
0x1215…1226 at0009 = ╱56╱V╱ // 0x121e @0x9
0x1215…1226 at000a = ╱41╱A╱ // 0x121f @0xa
0x1215…1226 at000b = ╱52╱R╱ // 0x1220 @0xb
0x1215…1226 at000c = ╱50╱P╱ // 0x1221 @0xc
0x1215…1226 at000d = ╱52╱R╱ // 0x1222 @0xd
0x1215…1226 at000e = ╱49╱I╱ // 0x1223 @0xe
0x1215…1226 at000f = ╱ef╱$╱ // 0x1224 @0xf
0x1215…1226 at0010 = EOL // 0x1225 @0x10
0x1215…1226 }
0x1226…123a 9f91 1885 IF LEN(VARPRI$)=B THEN EXIT
0x1226…123a LineComalBin {
0x1226…123a ptr = 0x9f91 // 0x1226 @0x0
0x1226…123a lno = 0x075d // 0x1228 @0x2
0x1226…123a at0004 = ╱82╱ IF ╱ // 0x122a @0x4
0x1226…123a at0005 = ╱cc╱LEN╱ // 0x122b @0x5
0x1226…123a at0006 = ╱ed╱(╱ // 0x122c @0x6
0x1226…123a at0007 = ╱56╱V╱ // 0x122d @0x7
0x1226…123a at0008 = ╱41╱A╱ // 0x122e @0x8
0x1226…123a at0009 = ╱52╱R╱ // 0x122f @0x9
0x1226…123a at000a = ╱50╱P╱ // 0x1230 @0xa
0x1226…123a at000b = ╱52╱R╱ // 0x1231 @0xb
0x1226…123a at000c = ╱49╱I╱ // 0x1232 @0xc
0x1226…123a at000d = ╱ef╱$╱ // 0x1233 @0xd
0x1226…123a at000e = ╱ee╱)╱ // 0x1234 @0xe
0x1226…123a at000f = ╱dc╱=╱ // 0x1235 @0xf
0x1226…123a at0010 = ╱42╱B╱ // 0x1236 @0x10
0x1226…123a at0011 = ╱b6╱ THEN ╱ // 0x1237 @0x11
0x1226…123a at0012 = ╱99╱ EXIT ╱ // 0x1238 @0x12
0x1226…123a at0013 = EOL // 0x1239 @0x13
0x1226…123a }
0x123a…126b 9fc2 1890 IF VARPRI$(LEN(VARPRI$))<>"+" THEN VARPRI$=VARPRI$+"+"
0x123a…126b LineComalBin {
0x123a…126b ptr = 0x9fc2 // 0x123a @0x0
0x123a…126b lno = 0x0762 // 0x123c @0x2
0x123a…126b at0004 = ╱82╱ IF ╱ // 0x123e @0x4
0x123a…126b at0005 = ╱56╱V╱ // 0x123f @0x5
0x123a…126b at0006 = ╱41╱A╱ // 0x1240 @0x6
0x123a…126b at0007 = ╱52╱R╱ // 0x1241 @0x7
0x123a…126b at0008 = ╱50╱P╱ // 0x1242 @0x8
0x123a…126b at0009 = ╱52╱R╱ // 0x1243 @0x9
0x123a…126b at000a = ╱49╱I╱ // 0x1244 @0xa
0x123a…126b at000b = ╱ef╱$╱ // 0x1245 @0xb
0x123a…126b at000c = ╱ed╱(╱ // 0x1246 @0xc
0x123a…126b at000d = ╱cc╱LEN╱ // 0x1247 @0xd
0x123a…126b at000e = ╱ed╱(╱ // 0x1248 @0xe
0x123a…126b at000f = ╱56╱V╱ // 0x1249 @0xf
0x123a…126b at0010 = ╱41╱A╱ // 0x124a @0x10
0x123a…126b at0011 = ╱52╱R╱ // 0x124b @0x11
0x123a…126b at0012 = ╱50╱P╱ // 0x124c @0x12
0x123a…126b at0013 = ╱52╱R╱ // 0x124d @0x13
0x123a…126b at0014 = ╱49╱I╱ // 0x124e @0x14
0x123a…126b at0015 = ╱ef╱$╱ // 0x124f @0x15
0x123a…126b at0016 = ╱ee╱)╱ // 0x1250 @0x16
0x123a…126b at0017 = ╱ee╱)╱ // 0x1251 @0x17
0x123a…126b at0018 = ╱e1╱<>╱ // 0x1252 @0x18
0x123a…126b at0019 = ╱22╱"╱ // 0x1253 @0x19
0x123a…126b at001a = ╱2b╱+╱ // 0x1254 @0x1a
0x123a…126b at001b = ╱22╱"╱ // 0x1255 @0x1b
0x123a…126b at001c = ╱b6╱ THEN ╱ // 0x1256 @0x1c
0x123a…126b at001d = ╱56╱V╱ // 0x1257 @0x1d
0x123a…126b at001e = ╱41╱A╱ // 0x1258 @0x1e
0x123a…126b at001f = ╱52╱R╱ // 0x1259 @0x1f
0x123a…126b at0020 = ╱50╱P╱ // 0x125a @0x20
0x123a…126b at0021 = ╱52╱R╱ // 0x125b @0x21
0x123a…126b at0022 = ╱49╱I╱ // 0x125c @0x22
0x123a…126b at0023 = ╱ef╱$╱ // 0x125d @0x23
0x123a…126b at0024 = ╱dc╱=╱ // 0x125e @0x24
0x123a…126b at0025 = ╱56╱V╱ // 0x125f @0x25
0x123a…126b at0026 = ╱41╱A╱ // 0x1260 @0x26
0x123a…126b at0027 = ╱52╱R╱ // 0x1261 @0x27
0x123a…126b at0028 = ╱50╱P╱ // 0x1262 @0x28
0x123a…126b at0029 = ╱52╱R╱ // 0x1263 @0x29
0x123a…126b at002a = ╱49╱I╱ // 0x1264 @0x2a
0x123a…126b at002b = ╱ef╱$╱ // 0x1265 @0x2b
0x123a…126b at002c = ╱f1╱+╱ // 0x1266 @0x2c
0x123a…126b at002d = ╱22╱"╱ // 0x1267 @0x2d
0x123a…126b at002e = ╱2b╱+╱ // 0x1268 @0x2e
0x123a…126b at002f = ╱22╱"╱ // 0x1269 @0x2f
0x123a…126b at0030 = EOL // 0x126a @0x30
0x123a…126b }
0x126b…1292 9fe9 1900 EXEC CALC(6,VARPRI$,TAH$,VARPRI$)
0x126b…1292 LineComalBin {
0x126b…1292 ptr = 0x9fe9 // 0x126b @0x0
0x126b…1292 lno = 0x076c // 0x126d @0x2
0x126b…1292 at0004 = ╱9d╱ EXEC ╱ // 0x126f @0x4
0x126b…1292 at0005 = ╱43╱C╱ // 0x1270 @0x5
0x126b…1292 at0006 = ╱41╱A╱ // 0x1271 @0x6
0x126b…1292 at0007 = ╱4c╱L╱ // 0x1272 @0x7
0x126b…1292 at0008 = ╱43╱C╱ // 0x1273 @0x8
0x126b…1292 at0009 = ╱ed╱(╱ // 0x1274 @0x9
0x126b…1292 at000a = ╱36╱6╱ // 0x1275 @0xa
0x126b…1292 at000b = ╱fe0000c003╱ // 0x1276 @0xb
0x126b…1292 at0010 = ╱ec╱,╱ // 0x127b @0x10
0x126b…1292 at0011 = ╱56╱V╱ // 0x127c @0x11
0x126b…1292 at0012 = ╱41╱A╱ // 0x127d @0x12
0x126b…1292 at0013 = ╱52╱R╱ // 0x127e @0x13
0x126b…1292 at0014 = ╱50╱P╱ // 0x127f @0x14
0x126b…1292 at0015 = ╱52╱R╱ // 0x1280 @0x15
0x126b…1292 at0016 = ╱49╱I╱ // 0x1281 @0x16
0x126b…1292 at0017 = ╱ef╱$╱ // 0x1282 @0x17
0x126b…1292 at0018 = ╱ec╱,╱ // 0x1283 @0x18
0x126b…1292 at0019 = ╱54╱T╱ // 0x1284 @0x19
0x126b…1292 at001a = ╱41╱A╱ // 0x1285 @0x1a
0x126b…1292 at001b = ╱48╱H╱ // 0x1286 @0x1b
0x126b…1292 at001c = ╱ef╱$╱ // 0x1287 @0x1c
0x126b…1292 at001d = ╱ec╱,╱ // 0x1288 @0x1d
0x126b…1292 at001e = ╱56╱V╱ // 0x1289 @0x1e
0x126b…1292 at001f = ╱41╱A╱ // 0x128a @0x1f
0x126b…1292 at0020 = ╱52╱R╱ // 0x128b @0x20
0x126b…1292 at0021 = ╱50╱P╱ // 0x128c @0x21
0x126b…1292 at0022 = ╱52╱R╱ // 0x128d @0x22
0x126b…1292 at0023 = ╱49╱I╱ // 0x128e @0x23
0x126b…1292 at0024 = ╱ef╱$╱ // 0x128f @0x24
0x126b…1292 at0025 = ╱ee╱)╱ // 0x1290 @0x25
0x126b…1292 at0026 = EOL // 0x1291 @0x26
0x126b…1292 }
0x1292…129e 9ff5 1910 UNTIL FLAG=B
0x1292…129e LineComalBin {
0x1292…129e ptr = 0x9ff5 // 0x1292 @0x0
0x1292…129e lno = 0x0776 // 0x1294 @0x2
0x1292…129e at0004 = ╱98╱ UNTIL ╱ // 0x1296 @0x4
0x1292…129e at0005 = ╱46╱F╱ // 0x1297 @0x5
0x1292…129e at0006 = ╱4c╱L╱ // 0x1298 @0x6
0x1292…129e at0007 = ╱41╱A╱ // 0x1299 @0x7
0x1292…129e at0008 = ╱47╱G╱ // 0x129a @0x8
0x1292…129e at0009 = ╱dc╱=╱ // 0x129b @0x9
0x1292…129e at000a = ╱42╱B╱ // 0x129c @0xa
0x1292…129e at000b = EOL // 0x129d @0xb
0x1292…129e }
0x129e…12c1 a018 1915 IF LEN(VARPRI$)>B THEN VARPRIS$=VARPRI$
0x129e…12c1 LineComalBin {
0x129e…12c1 ptr = 0xa018 // 0x129e @0x0
0x129e…12c1 lno = 0x077b // 0x12a0 @0x2
0x129e…12c1 at0004 = ╱82╱ IF ╱ // 0x12a2 @0x4
0x129e…12c1 at0005 = ╱cc╱LEN╱ // 0x12a3 @0x5
0x129e…12c1 at0006 = ╱ed╱(╱ // 0x12a4 @0x6
0x129e…12c1 at0007 = ╱56╱V╱ // 0x12a5 @0x7
0x129e…12c1 at0008 = ╱41╱A╱ // 0x12a6 @0x8
0x129e…12c1 at0009 = ╱52╱R╱ // 0x12a7 @0x9
0x129e…12c1 at000a = ╱50╱P╱ // 0x12a8 @0xa
0x129e…12c1 at000b = ╱52╱R╱ // 0x12a9 @0xb
0x129e…12c1 at000c = ╱49╱I╱ // 0x12aa @0xc
0x129e…12c1 at000d = ╱ef╱$╱ // 0x12ab @0xd
0x129e…12c1 at000e = ╱ee╱)╱ // 0x12ac @0xe
0x129e…12c1 at000f = ╱de╱>╱ // 0x12ad @0xf
0x129e…12c1 at0010 = ╱42╱B╱ // 0x12ae @0x10
0x129e…12c1 at0011 = ╱b6╱ THEN ╱ // 0x12af @0x11
0x129e…12c1 at0012 = ╱56╱V╱ // 0x12b0 @0x12
0x129e…12c1 at0013 = ╱41╱A╱ // 0x12b1 @0x13
0x129e…12c1 at0014 = ╱52╱R╱ // 0x12b2 @0x14
0x129e…12c1 at0015 = ╱50╱P╱ // 0x12b3 @0x15
0x129e…12c1 at0016 = ╱52╱R╱ // 0x12b4 @0x16
0x129e…12c1 at0017 = ╱49╱I╱ // 0x12b5 @0x17
0x129e…12c1 at0018 = ╱53╱S╱ // 0x12b6 @0x18
0x129e…12c1 at0019 = ╱ef╱$╱ // 0x12b7 @0x19
0x129e…12c1 at001a = ╱dc╱=╱ // 0x12b8 @0x1a
0x129e…12c1 at001b = ╱56╱V╱ // 0x12b9 @0x1b
0x129e…12c1 at001c = ╱41╱A╱ // 0x12ba @0x1c
0x129e…12c1 at001d = ╱52╱R╱ // 0x12bb @0x1d
0x129e…12c1 at001e = ╱50╱P╱ // 0x12bc @0x1e
0x129e…12c1 at001f = ╱52╱R╱ // 0x12bd @0x1f
0x129e…12c1 at0020 = ╱49╱I╱ // 0x12be @0x20
0x129e…12c1 at0021 = ╱ef╱$╱ // 0x12bf @0x21
0x129e…12c1 at0022 = EOL // 0x12c0 @0x22
0x129e…12c1 }
0x12c1…12d4 a02b 1920 CURSOR 45,LINIE
0x12c1…12d4 LineComalBin {
0x12c1…12d4 ptr = 0xa02b // 0x12c1 @0x0
0x12c1…12d4 lno = 0x0780 // 0x12c3 @0x2
0x12c1…12d4 at0004 = ╱a1╱ CURSOR ╱ // 0x12c5 @0x4
0x12c1…12d4 at0005 = ╱34╱4╱ // 0x12c6 @0x5
0x12c1…12d4 at0006 = ╱35╱5╱ // 0x12c7 @0x6
0x12c1…12d4 at0007 = ╱fe0000b406╱ // 0x12c8 @0x7
0x12c1…12d4 at000c = ╱ec╱,╱ // 0x12cd @0xc
0x12c1…12d4 at000d = ╱4c╱L╱ // 0x12ce @0xd
0x12c1…12d4 at000e = ╱49╱I╱ // 0x12cf @0xe
0x12c1…12d4 at000f = ╱4e╱N╱ // 0x12d0 @0xf
0x12c1…12d4 at0010 = ╱49╱I╱ // 0x12d1 @0x10
0x12c1…12d4 at0011 = ╱45╱E╱ // 0x12d2 @0x11
0x12c1…12d4 at0012 = EOL // 0x12d3 @0x12
0x12c1…12d4 }
0x12d4…12f1 a048 1930 EXEC TUD(VARPRIS$,TAL4$,B,B)
0x12d4…12f1 LineComalBin {
0x12d4…12f1 ptr = 0xa048 // 0x12d4 @0x0
0x12d4…12f1 lno = 0x078a // 0x12d6 @0x2
0x12d4…12f1 at0004 = ╱9d╱ EXEC ╱ // 0x12d8 @0x4
0x12d4…12f1 at0005 = ╱54╱T╱ // 0x12d9 @0x5
0x12d4…12f1 at0006 = ╱55╱U╱ // 0x12da @0x6
0x12d4…12f1 at0007 = ╱44╱D╱ // 0x12db @0x7
0x12d4…12f1 at0008 = ╱ed╱(╱ // 0x12dc @0x8
0x12d4…12f1 at0009 = ╱56╱V╱ // 0x12dd @0x9
0x12d4…12f1 at000a = ╱41╱A╱ // 0x12de @0xa
0x12d4…12f1 at000b = ╱52╱R╱ // 0x12df @0xb
0x12d4…12f1 at000c = ╱50╱P╱ // 0x12e0 @0xc
0x12d4…12f1 at000d = ╱52╱R╱ // 0x12e1 @0xd
0x12d4…12f1 at000e = ╱49╱I╱ // 0x12e2 @0xe
0x12d4…12f1 at000f = ╱53╱S╱ // 0x12e3 @0xf
0x12d4…12f1 at0010 = ╱ef╱$╱ // 0x12e4 @0x10
0x12d4…12f1 at0011 = ╱ec╱,╱ // 0x12e5 @0x11
0x12d4…12f1 at0012 = ╱54╱T╱ // 0x12e6 @0x12
0x12d4…12f1 at0013 = ╱41╱A╱ // 0x12e7 @0x13
0x12d4…12f1 at0014 = ╱4c╱L╱ // 0x12e8 @0x14
0x12d4…12f1 at0015 = ╱34╱4╱ // 0x12e9 @0x15
0x12d4…12f1 at0016 = ╱ef╱$╱ // 0x12ea @0x16
0x12d4…12f1 at0017 = ╱ec╱,╱ // 0x12eb @0x17
0x12d4…12f1 at0018 = ╱42╱B╱ // 0x12ec @0x18
0x12d4…12f1 at0019 = ╱ec╱,╱ // 0x12ed @0x19
0x12d4…12f1 at001a = ╱42╱B╱ // 0x12ee @0x1a
0x12d4…12f1 at001b = ╱ee╱)╱ // 0x12ef @0x1b
0x12d4…12f1 at001c = EOL // 0x12f0 @0x1c
0x12d4…12f1 }
0x12f1…12fc a053 1935 PRINT TAL4$
0x12f1…12fc LineComalBin {
0x12f1…12fc ptr = 0xa053 // 0x12f1 @0x0
0x12f1…12fc lno = 0x078f // 0x12f3 @0x2
0x12f1…12fc at0004 = ╱92╱ PRINT ╱ // 0x12f5 @0x4
0x12f1…12fc at0005 = ╱54╱T╱ // 0x12f6 @0x5
0x12f1…12fc at0006 = ╱41╱A╱ // 0x12f7 @0x6
0x12f1…12fc at0007 = ╱4c╱L╱ // 0x12f8 @0x7
0x12f1…12fc at0008 = ╱34╱4╱ // 0x12f9 @0x8
0x12f1…12fc at0009 = ╱ef╱$╱ // 0x12fa @0x9
0x12f1…12fc at000a = EOL // 0x12fb @0xa
0x12f1…12fc }
0x12fc…1311 a068 1936 VARKONTO=VARKONT
0x12fc…1311 LineComalBin {
0x12fc…1311 ptr = 0xa068 // 0x12fc @0x0
0x12fc…1311 lno = 0x0790 // 0x12fe @0x2
0x12fc…1311 at0004 = ╱56╱V╱ // 0x1300 @0x4
0x12fc…1311 at0005 = ╱41╱A╱ // 0x1301 @0x5
0x12fc…1311 at0006 = ╱52╱R╱ // 0x1302 @0x6
0x12fc…1311 at0007 = ╱4b╱K╱ // 0x1303 @0x7
0x12fc…1311 at0008 = ╱4f╱O╱ // 0x1304 @0x8
0x12fc…1311 at0009 = ╱4e╱N╱ // 0x1305 @0x9
0x12fc…1311 at000a = ╱54╱T╱ // 0x1306 @0xa
0x12fc…1311 at000b = ╱4f╱O╱ // 0x1307 @0xb
0x12fc…1311 at000c = ╱dc╱=╱ // 0x1308 @0xc
0x12fc…1311 at000d = ╱56╱V╱ // 0x1309 @0xd
0x12fc…1311 at000e = ╱41╱A╱ // 0x130a @0xe
0x12fc…1311 at000f = ╱52╱R╱ // 0x130b @0xf
0x12fc…1311 at0010 = ╱4b╱K╱ // 0x130c @0x10
0x12fc…1311 at0011 = ╱4f╱O╱ // 0x130d @0x11
0x12fc…1311 at0012 = ╱4e╱N╱ // 0x130e @0x12
0x12fc…1311 at0013 = ╱54╱T╱ // 0x130f @0x13
0x12fc…1311 at0014 = EOL // 0x1310 @0x14
0x12fc…1311 }
0x1311…1317 a06e 1940 REPEAT
0x1311…1317 LineComalBin {
0x1311…1317 ptr = 0xa06e // 0x1311 @0x0
0x1311…1317 lno = 0x0794 // 0x1313 @0x2
0x1311…1317 at0004 = ╱97╱ REPEAT ╱ // 0x1315 @0x4
0x1311…1317 at0005 = EOL // 0x1316 @0x5
0x1311…1317 }
0x1317…131d a074 1950 REPEAT
0x1317…131d LineComalBin {
0x1317…131d ptr = 0xa074 // 0x1317 @0x0
0x1317…131d lno = 0x079e // 0x1319 @0x2
0x1317…131d at0004 = ╱97╱ REPEAT ╱ // 0x131b @0x4
0x1317…131d at0005 = EOL // 0x131c @0x5
0x1317…131d }
0x131d…1330 a087 1960 CURSOR 61,LINIE
0x131d…1330 LineComalBin {
0x131d…1330 ptr = 0xa087 // 0x131d @0x0
0x131d…1330 lno = 0x07a8 // 0x131f @0x2
0x131d…1330 at0004 = ╱a1╱ CURSOR ╱ // 0x1321 @0x4
0x131d…1330 at0005 = ╱36╱6╱ // 0x1322 @0x5
0x131d…1330 at0006 = ╱31╱1╱ // 0x1323 @0x6
0x131d…1330 at0007 = ╱fe0000f406╱ // 0x1324 @0x7
0x131d…1330 at000c = ╱ec╱,╱ // 0x1329 @0xc
0x131d…1330 at000d = ╱4c╱L╱ // 0x132a @0xd
0x131d…1330 at000e = ╱49╱I╱ // 0x132b @0xe
0x131d…1330 at000f = ╱4e╱N╱ // 0x132c @0xf
0x131d…1330 at0010 = ╱49╱I╱ // 0x132d @0x10
0x131d…1330 at0011 = ╱45╱E╱ // 0x132e @0x11
0x131d…1330 at0012 = EOL // 0x132f @0x12
0x131d…1330 }
0x1330…133c a093 1970 PRINT BLANK$
0x1330…133c LineComalBin {
0x1330…133c ptr = 0xa093 // 0x1330 @0x0
0x1330…133c lno = 0x07b2 // 0x1332 @0x2
0x1330…133c at0004 = ╱92╱ PRINT ╱ // 0x1334 @0x4
0x1330…133c at0005 = ╱42╱B╱ // 0x1335 @0x5
0x1330…133c at0006 = ╱4c╱L╱ // 0x1336 @0x6
0x1330…133c at0007 = ╱41╱A╱ // 0x1337 @0x7
0x1330…133c at0008 = ╱4e╱N╱ // 0x1338 @0x8
0x1330…133c at0009 = ╱4b╱K╱ // 0x1339 @0x9
0x1330…133c at000a = ╱ef╱$╱ // 0x133a @0xa
0x1330…133c at000b = EOL // 0x133b @0xb
0x1330…133c }
0x133c…134f a0a6 1980 CURSOR 61,LINIE
0x133c…134f LineComalBin {
0x133c…134f ptr = 0xa0a6 // 0x133c @0x0
0x133c…134f lno = 0x07bc // 0x133e @0x2
0x133c…134f at0004 = ╱a1╱ CURSOR ╱ // 0x1340 @0x4
0x133c…134f at0005 = ╱36╱6╱ // 0x1341 @0x5
0x133c…134f at0006 = ╱31╱1╱ // 0x1342 @0x6
0x133c…134f at0007 = ╱fe0000f406╱ // 0x1343 @0x7
0x133c…134f at000c = ╱ec╱,╱ // 0x1348 @0xc
0x133c…134f at000d = ╱4c╱L╱ // 0x1349 @0xd
0x133c…134f at000e = ╱49╱I╱ // 0x134a @0xe
0x133c…134f at000f = ╱4e╱N╱ // 0x134b @0xf
0x133c…134f at0010 = ╱49╱I╱ // 0x134c @0x10
0x133c…134f at0011 = ╱45╱E╱ // 0x134d @0x11
0x133c…134f at0012 = EOL // 0x134e @0x12
0x133c…134f }
0x134f…135e a0b5 1990 INPUT " ",TAL1$
0x134f…135e LineComalBin {
0x134f…135e ptr = 0xa0b5 // 0x134f @0x0
0x134f…135e lno = 0x07c6 // 0x1351 @0x2
0x134f…135e at0004 = ╱91╱ INPUT ╱ // 0x1353 @0x4
0x134f…135e at0005 = ╱22╱"╱ // 0x1354 @0x5
0x134f…135e at0006 = ╱20╱…╱ // 0x1355 @0x6
0x134f…135e at0007 = ╱22╱"╱ // 0x1356 @0x7
0x134f…135e at0008 = ╱ec╱,╱ // 0x1357 @0x8
0x134f…135e at0009 = ╱54╱T╱ // 0x1358 @0x9
0x134f…135e at000a = ╱41╱A╱ // 0x1359 @0xa
0x134f…135e at000b = ╱4c╱L╱ // 0x135a @0xb
0x134f…135e at000c = ╱31╱1╱ // 0x135b @0xc
0x134f…135e at000d = ╱ef╱$╱ // 0x135c @0xd
0x134f…135e at000e = EOL // 0x135d @0xe
0x134f…135e }
0x135e…1371 a0c8 2000 EXEC NRTEST(TAL1$)
0x135e…1371 LineComalBin {
0x135e…1371 ptr = 0xa0c8 // 0x135e @0x0
0x135e…1371 lno = 0x07d0 // 0x1360 @0x2
0x135e…1371 at0004 = ╱9d╱ EXEC ╱ // 0x1362 @0x4
0x135e…1371 at0005 = ╱4e╱N╱ // 0x1363 @0x5
0x135e…1371 at0006 = ╱52╱R╱ // 0x1364 @0x6
0x135e…1371 at0007 = ╱54╱T╱ // 0x1365 @0x7
0x135e…1371 at0008 = ╱45╱E╱ // 0x1366 @0x8
0x135e…1371 at0009 = ╱53╱S╱ // 0x1367 @0x9
0x135e…1371 at000a = ╱54╱T╱ // 0x1368 @0xa
0x135e…1371 at000b = ╱ed╱(╱ // 0x1369 @0xb
0x135e…1371 at000c = ╱54╱T╱ // 0x136a @0xc
0x135e…1371 at000d = ╱41╱A╱ // 0x136b @0xd
0x135e…1371 at000e = ╱4c╱L╱ // 0x136c @0xe
0x135e…1371 at000f = ╱31╱1╱ // 0x136d @0xf
0x135e…1371 at0010 = ╱ef╱$╱ // 0x136e @0x10
0x135e…1371 at0011 = ╱ee╱)╱ // 0x136f @0x11
0x135e…1371 at0012 = EOL // 0x1370 @0x12
0x135e…1371 }
0x1371…138e a0e5 2010 UNTIL (P<E OR KTAL=VTAL) AND TEST2=B
0x1371…138e LineComalBin {
0x1371…138e ptr = 0xa0e5 // 0x1371 @0x0
0x1371…138e lno = 0x07da // 0x1373 @0x2
0x1371…138e at0004 = ╱98╱ UNTIL ╱ // 0x1375 @0x4
0x1371…138e at0005 = ╱ed╱(╱ // 0x1376 @0x5
0x1371…138e at0006 = ╱50╱P╱ // 0x1377 @0x6
0x1371…138e at0007 = ╱dd╱<╱ // 0x1378 @0x7
0x1371…138e at0008 = ╱45╱E╱ // 0x1379 @0x8
0x1371…138e at0009 = ╱db╱ OR ╱ // 0x137a @0x9
0x1371…138e at000a = ╱4b╱K╱ // 0x137b @0xa
0x1371…138e at000b = ╱54╱T╱ // 0x137c @0xb
0x1371…138e at000c = ╱41╱A╱ // 0x137d @0xc
0x1371…138e at000d = ╱4c╱L╱ // 0x137e @0xd
0x1371…138e at000e = ╱dc╱=╱ // 0x137f @0xe
0x1371…138e at000f = ╱56╱V╱ // 0x1380 @0xf
0x1371…138e at0010 = ╱54╱T╱ // 0x1381 @0x10
0x1371…138e at0011 = ╱41╱A╱ // 0x1382 @0x11
0x1371…138e at0012 = ╱4c╱L╱ // 0x1383 @0x12
0x1371…138e at0013 = ╱ee╱)╱ // 0x1384 @0x13
0x1371…138e at0014 = ╱da╱ AND ╱ // 0x1385 @0x14
0x1371…138e at0015 = ╱54╱T╱ // 0x1386 @0x15
0x1371…138e at0016 = ╱45╱E╱ // 0x1387 @0x16
0x1371…138e at0017 = ╱53╱S╱ // 0x1388 @0x17
0x1371…138e at0018 = ╱54╱T╱ // 0x1389 @0x18
0x1371…138e at0019 = ╱32╱2╱ // 0x138a @0x19
0x1371…138e at001a = ╱dc╱=╱ // 0x138b @0x1a
0x1371…138e at001b = ╱42╱B╱ // 0x138c @0x1b
0x1371…138e at001c = EOL // 0x138d @0x1c
0x1371…138e }
0x138e…13a3 a0fa 2020 VARKONT=P;CEKS=E
0x138e…13a3 LineComalBin {
0x138e…13a3 ptr = 0xa0fa // 0x138e @0x0
0x138e…13a3 lno = 0x07e4 // 0x1390 @0x2
0x138e…13a3 at0004 = ╱56╱V╱ // 0x1392 @0x4
0x138e…13a3 at0005 = ╱41╱A╱ // 0x1393 @0x5
0x138e…13a3 at0006 = ╱52╱R╱ // 0x1394 @0x6
0x138e…13a3 at0007 = ╱4b╱K╱ // 0x1395 @0x7
0x138e…13a3 at0008 = ╱4f╱O╱ // 0x1396 @0x8
0x138e…13a3 at0009 = ╱4e╱N╱ // 0x1397 @0x9
0x138e…13a3 at000a = ╱54╱T╱ // 0x1398 @0xa
0x138e…13a3 at000b = ╱dc╱=╱ // 0x1399 @0xb
0x138e…13a3 at000c = ╱50╱P╱ // 0x139a @0xc
0x138e…13a3 at000d = ╱eb╱;╱ // 0x139b @0xd
0x138e…13a3 at000e = ╱43╱C╱ // 0x139c @0xe
0x138e…13a3 at000f = ╱45╱E╱ // 0x139d @0xf
0x138e…13a3 at0010 = ╱4b╱K╱ // 0x139e @0x10
0x138e…13a3 at0011 = ╱53╱S╱ // 0x139f @0x11
0x138e…13a3 at0012 = ╱dc╱=╱ // 0x13a0 @0x12
0x138e…13a3 at0013 = ╱45╱E╱ // 0x13a1 @0x13
0x138e…13a3 at0014 = EOL // 0x13a2 @0x14
0x138e…13a3 }
0x13a3…13d7 a12e 2030 IF P>B THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)
0x13a3…13d7 LineComalBin {
0x13a3…13d7 ptr = 0xa12e // 0x13a3 @0x0
0x13a3…13d7 lno = 0x07ee // 0x13a5 @0x2
0x13a3…13d7 at0004 = ╱82╱ IF ╱ // 0x13a7 @0x4
0x13a3…13d7 at0005 = ╱50╱P╱ // 0x13a8 @0x5
0x13a3…13d7 at0006 = ╱de╱>╱ // 0x13a9 @0x6
0x13a3…13d7 at0007 = ╱42╱B╱ // 0x13aa @0x7
0x13a3…13d7 at0008 = ╱b6╱ THEN ╱ // 0x13ab @0x8
0x13a3…13d7 at0009 = ╱9d╱ EXEC ╱ // 0x13ac @0x9
0x13a3…13d7 at000a = ╱46╱F╱ // 0x13ad @0xa
0x13a3…13d7 at000b = ╱49╱I╱ // 0x13ae @0xb
0x13a3…13d7 at000c = ╱4e╱N╱ // 0x13af @0xc
0x13a3…13d7 at000d = ╱44╱D╱ // 0x13b0 @0xd
0x13a3…13d7 at000e = ╱50╱P╱ // 0x13b1 @0xe
0x13a3…13d7 at000f = ╱4f╱O╱ // 0x13b2 @0xf
0x13a3…13d7 at0010 = ╱53╱S╱ // 0x13b3 @0x10
0x13a3…13d7 at0011 = ╱54╱T╱ // 0x13b4 @0x11
0x13a3…13d7 at0012 = ╱31╱1╱ // 0x13b5 @0x12
0x13a3…13d7 at0013 = ╱ed╱(╱ // 0x13b6 @0x13
0x13a3…13d7 at0014 = ╱46╱F╱ // 0x13b7 @0x14
0x13a3…13d7 at0015 = ╱54╱T╱ // 0x13b8 @0x15
0x13a3…13d7 at0016 = ╱41╱A╱ // 0x13b9 @0x16
0x13a3…13d7 at0017 = ╱42╱B╱ // 0x13ba @0x17
0x13a3…13d7 at0018 = ╱31╱1╱ // 0x13bb @0x18
0x13a3…13d7 at0019 = ╱ec╱,╱ // 0x13bc @0x19
0x13a3…13d7 at001a = ╱46╱F╱ // 0x13bd @0x1a
0x13a3…13d7 at001b = ╱54╱T╱ // 0x13be @0x1b
0x13a3…13d7 at001c = ╱41╱A╱ // 0x13bf @0x1c
0x13a3…13d7 at001d = ╱42╱B╱ // 0x13c0 @0x1d
0x13a3…13d7 at001e = ╱ec╱,╱ // 0x13c1 @0x1e
0x13a3…13d7 at001f = ╱4d╱M╱ // 0x13c2 @0x1f
0x13a3…13d7 at0020 = ╱46╱F╱ // 0x13c3 @0x20
0x13a3…13d7 at0021 = ╱41╱A╱ // 0x13c4 @0x21
0x13a3…13d7 at0022 = ╱4e╱N╱ // 0x13c5 @0x22
0x13a3…13d7 at0023 = ╱54╱T╱ // 0x13c6 @0x23
0x13a3…13d7 at0024 = ╱41╱A╱ // 0x13c7 @0x24
0x13a3…13d7 at0025 = ╱4c╱L╱ // 0x13c8 @0x25
0x13a3…13d7 at0026 = ╱ec╱,╱ // 0x13c9 @0x26
0x13a3…13d7 at0027 = ╱50╱P╱ // 0x13ca @0x27
0x13a3…13d7 at0028 = ╱ec╱,╱ // 0x13cb @0x28
0x13a3…13d7 at0029 = ╱46╱F╱ // 0x13cc @0x29
0x13a3…13d7 at002a = ╱50╱P╱ // 0x13cd @0x2a
0x13a3…13d7 at002b = ╱49╱I╱ // 0x13ce @0x2b
0x13a3…13d7 at002c = ╱4c╱L╱ // 0x13cf @0x2c
0x13a3…13d7 at002d = ╱33╱3╱ // 0x13d0 @0x2d
0x13a3…13d7 at002e = ╱ec╱,╱ // 0x13d1 @0x2e
0x13a3…13d7 at002f = ╱4b╱K╱ // 0x13d2 @0x2f
0x13a3…13d7 at0030 = ╱32╱2╱ // 0x13d3 @0x30
0x13a3…13d7 at0031 = ╱ef╱$╱ // 0x13d4 @0x31
0x13a3…13d7 at0032 = ╱ee╱)╱ // 0x13d5 @0x32
0x13a3…13d7 at0033 = EOL // 0x13d6 @0x33
0x13a3…13d7 }
0x13d7…13e7 a13e 2040 UNTIL P<E OR CEKS=B
0x13d7…13e7 LineComalBin {
0x13d7…13e7 ptr = 0xa13e // 0x13d7 @0x0
0x13d7…13e7 lno = 0x07f8 // 0x13d9 @0x2
0x13d7…13e7 at0004 = ╱98╱ UNTIL ╱ // 0x13db @0x4
0x13d7…13e7 at0005 = ╱50╱P╱ // 0x13dc @0x5
0x13d7…13e7 at0006 = ╱dd╱<╱ // 0x13dd @0x6
0x13d7…13e7 at0007 = ╱45╱E╱ // 0x13de @0x7
0x13d7…13e7 at0008 = ╱db╱ OR ╱ // 0x13df @0x8
0x13d7…13e7 at0009 = ╱43╱C╱ // 0x13e0 @0x9
0x13d7…13e7 at000a = ╱45╱E╱ // 0x13e1 @0xa
0x13d7…13e7 at000b = ╱4b╱K╱ // 0x13e2 @0xb
0x13d7…13e7 at000c = ╱53╱S╱ // 0x13e3 @0xc
0x13d7…13e7 at000d = ╱dc╱=╱ // 0x13e4 @0xd
0x13d7…13e7 at000e = ╱42╱B╱ // 0x13e5 @0xe
0x13d7…13e7 at000f = EOL // 0x13e6 @0xf
0x13d7…13e7 }
0x13e7…13fe a155 2050 IF P=B THEN VARKONT=DIVNR
0x13e7…13fe LineComalBin {
0x13e7…13fe ptr = 0xa155 // 0x13e7 @0x0
0x13e7…13fe lno = 0x0802 // 0x13e9 @0x2
0x13e7…13fe at0004 = ╱82╱ IF ╱ // 0x13eb @0x4
0x13e7…13fe at0005 = ╱50╱P╱ // 0x13ec @0x5
0x13e7…13fe at0006 = ╱dc╱=╱ // 0x13ed @0x6
0x13e7…13fe at0007 = ╱42╱B╱ // 0x13ee @0x7
0x13e7…13fe at0008 = ╱b6╱ THEN ╱ // 0x13ef @0x8
0x13e7…13fe at0009 = ╱56╱V╱ // 0x13f0 @0x9
0x13e7…13fe at000a = ╱41╱A╱ // 0x13f1 @0xa
0x13e7…13fe at000b = ╱52╱R╱ // 0x13f2 @0xb
0x13e7…13fe at000c = ╱4b╱K╱ // 0x13f3 @0xc
0x13e7…13fe at000d = ╱4f╱O╱ // 0x13f4 @0xd
0x13e7…13fe at000e = ╱4e╱N╱ // 0x13f5 @0xe
0x13e7…13fe at000f = ╱54╱T╱ // 0x13f6 @0xf
0x13e7…13fe at0010 = ╱dc╱=╱ // 0x13f7 @0x10
0x13e7…13fe at0011 = ╱44╱D╱ // 0x13f8 @0x11
0x13e7…13fe at0012 = ╱49╱I╱ // 0x13f9 @0x12
0x13e7…13fe at0013 = ╱56╱V╱ // 0x13fa @0x13
0x13e7…13fe at0014 = ╱4e╱N╱ // 0x13fb @0x14
0x13e7…13fe at0015 = ╱52╱R╱ // 0x13fc @0x15
0x13e7…13fe at0016 = EOL // 0x13fd @0x16
0x13e7…13fe }
0x13fe…1419 a170 2055 IF P=-E THEN VARKONT=VARKONTO
0x13fe…1419 LineComalBin {
0x13fe…1419 ptr = 0xa170 // 0x13fe @0x0
0x13fe…1419 lno = 0x0807 // 0x1400 @0x2
0x13fe…1419 at0004 = ╱82╱ IF ╱ // 0x1402 @0x4
0x13fe…1419 at0005 = ╱50╱P╱ // 0x1403 @0x5
0x13fe…1419 at0006 = ╱dc╱=╱ // 0x1404 @0x6
0x13fe…1419 at0007 = ╱e9╱-╱ // 0x1405 @0x7
0x13fe…1419 at0008 = ╱45╱E╱ // 0x1406 @0x8
0x13fe…1419 at0009 = ╱b6╱ THEN ╱ // 0x1407 @0x9
0x13fe…1419 at000a = ╱56╱V╱ // 0x1408 @0xa
0x13fe…1419 at000b = ╱41╱A╱ // 0x1409 @0xb
0x13fe…1419 at000c = ╱52╱R╱ // 0x140a @0xc
0x13fe…1419 at000d = ╱4b╱K╱ // 0x140b @0xd
0x13fe…1419 at000e = ╱4f╱O╱ // 0x140c @0xe
0x13fe…1419 at000f = ╱4e╱N╱ // 0x140d @0xf
0x13fe…1419 at0010 = ╱54╱T╱ // 0x140e @0x10
0x13fe…1419 at0011 = ╱dc╱=╱ // 0x140f @0x11
0x13fe…1419 at0012 = ╱56╱V╱ // 0x1410 @0x12
0x13fe…1419 at0013 = ╱41╱A╱ // 0x1411 @0x13
0x13fe…1419 at0014 = ╱52╱R╱ // 0x1412 @0x14
0x13fe…1419 at0015 = ╱4b╱K╱ // 0x1413 @0x15
0x13fe…1419 at0016 = ╱4f╱O╱ // 0x1414 @0x16
0x13fe…1419 at0017 = ╱4e╱N╱ // 0x1415 @0x17
0x13fe…1419 at0018 = ╱54╱T╱ // 0x1416 @0x18
0x13fe…1419 at0019 = ╱4f╱O╱ // 0x1417 @0x19
0x13fe…1419 at001a = EOL // 0x1418 @0x1a
0x13fe…1419 }
0x1419…142c a183 2060 CURSOR 61,LINIE
0x1419…142c LineComalBin {
0x1419…142c ptr = 0xa183 // 0x1419 @0x0
0x1419…142c lno = 0x080c // 0x141b @0x2
0x1419…142c at0004 = ╱a1╱ CURSOR ╱ // 0x141d @0x4
0x1419…142c at0005 = ╱36╱6╱ // 0x141e @0x5
0x1419…142c at0006 = ╱31╱1╱ // 0x141f @0x6
0x1419…142c at0007 = ╱fe0000f406╱ // 0x1420 @0x7
0x1419…142c at000c = ╱ec╱,╱ // 0x1425 @0xc
0x1419…142c at000d = ╱4c╱L╱ // 0x1426 @0xd
0x1419…142c at000e = ╱49╱I╱ // 0x1427 @0xe
0x1419…142c at000f = ╱4e╱N╱ // 0x1428 @0xf
0x1419…142c at0010 = ╱49╱I╱ // 0x1429 @0x10
0x1419…142c at0011 = ╱45╱E╱ // 0x142a @0x11
0x1419…142c at0012 = EOL // 0x142b @0x12
0x1419…142c }
0x142c…1448 a19f 2070 PRINT USING "####### ":VARKONT
0x142c…1448 LineComalBin {
0x142c…1448 ptr = 0xa19f // 0x142c @0x0
0x142c…1448 lno = 0x0816 // 0x142e @0x2
0x142c…1448 at0004 = ╱92╱ PRINT ╱ // 0x1430 @0x4
0x142c…1448 at0005 = ╱b9╱ USING ╱ // 0x1431 @0x5
0x142c…1448 at0006 = ╱22╱"╱ // 0x1432 @0x6
0x142c…1448 at0007 = ╱23╱#╱ // 0x1433 @0x7
0x142c…1448 at0008 = ╱23╱#╱ // 0x1434 @0x8
0x142c…1448 at0009 = ╱23╱#╱ // 0x1435 @0x9
0x142c…1448 at000a = ╱23╱#╱ // 0x1436 @0xa
0x142c…1448 at000b = ╱23╱#╱ // 0x1437 @0xb
0x142c…1448 at000c = ╱23╱#╱ // 0x1438 @0xc
0x142c…1448 at000d = ╱23╱#╱ // 0x1439 @0xd
0x142c…1448 at000e = ╱20╱…╱ // 0x143a @0xe
0x142c…1448 at000f = ╱20╱…╱ // 0x143b @0xf
0x142c…1448 at0010 = ╱20╱…╱ // 0x143c @0x10
0x142c…1448 at0011 = ╱20╱…╱ // 0x143d @0x11
0x142c…1448 at0012 = ╱22╱"╱ // 0x143e @0x12
0x142c…1448 at0013 = ╱f0╱:╱ // 0x143f @0x13
0x142c…1448 at0014 = ╱56╱V╱ // 0x1440 @0x14
0x142c…1448 at0015 = ╱41╱A╱ // 0x1441 @0x15
0x142c…1448 at0016 = ╱52╱R╱ // 0x1442 @0x16
0x142c…1448 at0017 = ╱4b╱K╱ // 0x1443 @0x17
0x142c…1448 at0018 = ╱4f╱O╱ // 0x1444 @0x18
0x142c…1448 at0019 = ╱4e╱N╱ // 0x1445 @0x19
0x142c…1448 at001a = ╱54╱T╱ // 0x1446 @0x1a
0x142c…1448 at001b = EOL // 0x1447 @0x1b
0x142c…1448 }
0x1448…1459 a1b0 2071 UNDK=UNDKONT
0x1448…1459 LineComalBin {
0x1448…1459 ptr = 0xa1b0 // 0x1448 @0x0
0x1448…1459 lno = 0x0817 // 0x144a @0x2
0x1448…1459 at0004 = ╱55╱U╱ // 0x144c @0x4
0x1448…1459 at0005 = ╱4e╱N╱ // 0x144d @0x5
0x1448…1459 at0006 = ╱44╱D╱ // 0x144e @0x6
0x1448…1459 at0007 = ╱4b╱K╱ // 0x144f @0x7
0x1448…1459 at0008 = ╱dc╱=╱ // 0x1450 @0x8
0x1448…1459 at0009 = ╱55╱U╱ // 0x1451 @0x9
0x1448…1459 at000a = ╱4e╱N╱ // 0x1452 @0xa
0x1448…1459 at000b = ╱44╱D╱ // 0x1453 @0xb
0x1448…1459 at000c = ╱4b╱K╱ // 0x1454 @0xc
0x1448…1459 at000d = ╱4f╱O╱ // 0x1455 @0xd
0x1448…1459 at000e = ╱4e╱N╱ // 0x1456 @0xe
0x1448…1459 at000f = ╱54╱T╱ // 0x1457 @0xf
0x1448…1459 at0010 = EOL // 0x1458 @0x10
0x1448…1459 }
0x1459…145f a1b6 2072 REPEAT
0x1459…145f LineComalBin {
0x1459…145f ptr = 0xa1b6 // 0x1459 @0x0
0x1459…145f lno = 0x0818 // 0x145b @0x2
0x1459…145f at0004 = ╱97╱ REPEAT ╱ // 0x145d @0x4
0x1459…145f at0005 = EOL // 0x145e @0x5
0x1459…145f }
0x145f…1472 a1c9 2073 CURSOR 69,LINIE
0x145f…1472 LineComalBin {
0x145f…1472 ptr = 0xa1c9 // 0x145f @0x0
0x145f…1472 lno = 0x0819 // 0x1461 @0x2
0x145f…1472 at0004 = ╱a1╱ CURSOR ╱ // 0x1463 @0x4
0x145f…1472 at0005 = ╱36╱6╱ // 0x1464 @0x5
0x145f…1472 at0006 = ╱39╱9╱ // 0x1465 @0x6
0x145f…1472 at0007 = ╱fe00008a07╱ // 0x1466 @0x7
0x145f…1472 at000c = ╱ec╱,╱ // 0x146b @0xc
0x145f…1472 at000d = ╱4c╱L╱ // 0x146c @0xd
0x145f…1472 at000e = ╱49╱I╱ // 0x146d @0xe
0x145f…1472 at000f = ╱4e╱N╱ // 0x146e @0xf
0x145f…1472 at0010 = ╱49╱I╱ // 0x146f @0x10
0x145f…1472 at0011 = ╱45╱E╱ // 0x1470 @0x11
0x145f…1472 at0012 = EOL // 0x1471 @0x12
0x145f…1472 }
0x1472…1489 a1e0 2074 PRINT BLANK$(E:18)
0x1472…1489 LineComalBin {
0x1472…1489 ptr = 0xa1e0 // 0x1472 @0x0
0x1472…1489 lno = 0x081a // 0x1474 @0x2
0x1472…1489 at0004 = ╱92╱ PRINT ╱ // 0x1476 @0x4
0x1472…1489 at0005 = ╱42╱B╱ // 0x1477 @0x5
0x1472…1489 at0006 = ╱4c╱L╱ // 0x1478 @0x6
0x1472…1489 at0007 = ╱41╱A╱ // 0x1479 @0x7
0x1472…1489 at0008 = ╱4e╱N╱ // 0x147a @0x8
0x1472…1489 at0009 = ╱4b╱K╱ // 0x147b @0x9
0x1472…1489 at000a = ╱ef╱$╱ // 0x147c @0xa
0x1472…1489 at000b = ╱ed╱(╱ // 0x147d @0xb
0x1472…1489 at000c = ╱45╱E╱ // 0x147e @0xc
0x1472…1489 at000d = ╱f0╱:╱ // 0x147f @0xd
0x1472…1489 at000e = ╱31╱1╱ // 0x1480 @0xe
0x1472…1489 at000f = ╱38╱8╱ // 0x1481 @0xf
0x1472…1489 at0010 = ╱fe00009005╱ // 0x1482 @0x10
0x1472…1489 at0015 = ╱ee╱)╱ // 0x1487 @0x15
0x1472…1489 at0016 = EOL // 0x1488 @0x16
0x1472…1489 }
0x1489…149c a1f3 2075 CURSOR 69,LINIE
0x1489…149c LineComalBin {
0x1489…149c ptr = 0xa1f3 // 0x1489 @0x0
0x1489…149c lno = 0x081b // 0x148b @0x2
0x1489…149c at0004 = ╱a1╱ CURSOR ╱ // 0x148d @0x4
0x1489…149c at0005 = ╱36╱6╱ // 0x148e @0x5
0x1489…149c at0006 = ╱39╱9╱ // 0x148f @0x6
0x1489…149c at0007 = ╱fe00008a07╱ // 0x1490 @0x7
0x1489…149c at000c = ╱ec╱,╱ // 0x1495 @0xc
0x1489…149c at000d = ╱4c╱L╱ // 0x1496 @0xd
0x1489…149c at000e = ╱49╱I╱ // 0x1497 @0xe
0x1489…149c at000f = ╱4e╱N╱ // 0x1498 @0xf
0x1489…149c at0010 = ╱49╱I╱ // 0x1499 @0x10
0x1489…149c at0011 = ╱45╱E╱ // 0x149a @0x11
0x1489…149c at0012 = EOL // 0x149b @0x12
0x1489…149c }
0x149c…14ab a202 2076 INPUT " ",TAL1$
0x149c…14ab LineComalBin {
0x149c…14ab ptr = 0xa202 // 0x149c @0x0
0x149c…14ab lno = 0x081c // 0x149e @0x2
0x149c…14ab at0004 = ╱91╱ INPUT ╱ // 0x14a0 @0x4
0x149c…14ab at0005 = ╱22╱"╱ // 0x14a1 @0x5
0x149c…14ab at0006 = ╱20╱…╱ // 0x14a2 @0x6
0x149c…14ab at0007 = ╱22╱"╱ // 0x14a3 @0x7
0x149c…14ab at0008 = ╱ec╱,╱ // 0x14a4 @0x8
0x149c…14ab at0009 = ╱54╱T╱ // 0x14a5 @0x9
0x149c…14ab at000a = ╱41╱A╱ // 0x14a6 @0xa
0x149c…14ab at000b = ╱4c╱L╱ // 0x14a7 @0xb
0x149c…14ab at000c = ╱31╱1╱ // 0x14a8 @0xc
0x149c…14ab at000d = ╱ef╱$╱ // 0x14a9 @0xd
0x149c…14ab at000e = EOL // 0x14aa @0xe
0x149c…14ab }
0x14ab…14be a215 2077 EXEC NRTEST(TAL1$)
0x14ab…14be LineComalBin {
0x14ab…14be ptr = 0xa215 // 0x14ab @0x0
0x14ab…14be lno = 0x081d // 0x14ad @0x2
0x14ab…14be at0004 = ╱9d╱ EXEC ╱ // 0x14af @0x4
0x14ab…14be at0005 = ╱4e╱N╱ // 0x14b0 @0x5
0x14ab…14be at0006 = ╱52╱R╱ // 0x14b1 @0x6
0x14ab…14be at0007 = ╱54╱T╱ // 0x14b2 @0x7
0x14ab…14be at0008 = ╱45╱E╱ // 0x14b3 @0x8
0x14ab…14be at0009 = ╱53╱S╱ // 0x14b4 @0x9
0x14ab…14be at000a = ╱54╱T╱ // 0x14b5 @0xa
0x14ab…14be at000b = ╱ed╱(╱ // 0x14b6 @0xb
0x14ab…14be at000c = ╱54╱T╱ // 0x14b7 @0xc
0x14ab…14be at000d = ╱41╱A╱ // 0x14b8 @0xd
0x14ab…14be at000e = ╱4c╱L╱ // 0x14b9 @0xe
0x14ab…14be at000f = ╱31╱1╱ // 0x14ba @0xf
0x14ab…14be at0010 = ╱ef╱$╱ // 0x14bb @0x10
0x14ab…14be at0011 = ╱ee╱)╱ // 0x14bc @0x11
0x14ab…14be at0012 = EOL // 0x14bd @0x12
0x14ab…14be }
0x14be…14e1 a238 2078 UNTIL (P<E OR (P>W AND P<99)) AND TEST2=B
0x14be…14e1 LineComalBin {
0x14be…14e1 ptr = 0xa238 // 0x14be @0x0
0x14be…14e1 lno = 0x081e // 0x14c0 @0x2
0x14be…14e1 at0004 = ╱98╱ UNTIL ╱ // 0x14c2 @0x4
0x14be…14e1 at0005 = ╱ed╱(╱ // 0x14c3 @0x5
0x14be…14e1 at0006 = ╱50╱P╱ // 0x14c4 @0x6
0x14be…14e1 at0007 = ╱dd╱<╱ // 0x14c5 @0x7
0x14be…14e1 at0008 = ╱45╱E╱ // 0x14c6 @0x8
0x14be…14e1 at0009 = ╱db╱ OR ╱ // 0x14c7 @0x9
0x14be…14e1 at000a = ╱ed╱(╱ // 0x14c8 @0xa
0x14be…14e1 at000b = ╱50╱P╱ // 0x14c9 @0xb
0x14be…14e1 at000c = ╱de╱>╱ // 0x14ca @0xc
0x14be…14e1 at000d = ╱57╱W╱ // 0x14cb @0xd
0x14be…14e1 at000e = ╱da╱ AND ╱ // 0x14cc @0xe
0x14be…14e1 at000f = ╱50╱P╱ // 0x14cd @0xf
0x14be…14e1 at0010 = ╱dd╱<╱ // 0x14ce @0x10
0x14be…14e1 at0011 = ╱39╱9╱ // 0x14cf @0x11
0x14be…14e1 at0012 = ╱39╱9╱ // 0x14d0 @0x12
0x14be…14e1 at0013 = ╱fe0000c607╱ // 0x14d1 @0x13
0x14be…14e1 at0018 = ╱ee╱)╱ // 0x14d6 @0x18
0x14be…14e1 at0019 = ╱ee╱)╱ // 0x14d7 @0x19
0x14be…14e1 at001a = ╱da╱ AND ╱ // 0x14d8 @0x1a
0x14be…14e1 at001b = ╱54╱T╱ // 0x14d9 @0x1b
0x14be…14e1 at001c = ╱45╱E╱ // 0x14da @0x1c
0x14be…14e1 at001d = ╱53╱S╱ // 0x14db @0x1d
0x14be…14e1 at001e = ╱54╱T╱ // 0x14dc @0x1e
0x14be…14e1 at001f = ╱32╱2╱ // 0x14dd @0x1f
0x14be…14e1 at0020 = ╱dc╱=╱ // 0x14de @0x20
0x14be…14e1 at0021 = ╱42╱B╱ // 0x14df @0x21
0x14be…14e1 at0022 = EOL // 0x14e0 @0x22
0x14be…14e1 }
0x14e1…14ef a246 2079 UNDKONT=P
0x14e1…14ef LineComalBin {
0x14e1…14ef ptr = 0xa246 // 0x14e1 @0x0
0x14e1…14ef lno = 0x081f // 0x14e3 @0x2
0x14e1…14ef at0004 = ╱55╱U╱ // 0x14e5 @0x4
0x14e1…14ef at0005 = ╱4e╱N╱ // 0x14e6 @0x5
0x14e1…14ef at0006 = ╱44╱D╱ // 0x14e7 @0x6
0x14e1…14ef at0007 = ╱4b╱K╱ // 0x14e8 @0x7
0x14e1…14ef at0008 = ╱4f╱O╱ // 0x14e9 @0x8
0x14e1…14ef at0009 = ╱4e╱N╱ // 0x14ea @0x9
0x14e1…14ef at000a = ╱54╱T╱ // 0x14eb @0xa
0x14e1…14ef at000b = ╱dc╱=╱ // 0x14ec @0xb
0x14e1…14ef at000c = ╱50╱P╱ // 0x14ed @0xc
0x14e1…14ef at000d = EOL // 0x14ee @0xd
0x14e1…14ef }
0x14ef…1509 a260 2080 IF P=B THEN UNDKONT=DUNDKONT
0x14ef…1509 LineComalBin {
0x14ef…1509 ptr = 0xa260 // 0x14ef @0x0
0x14ef…1509 lno = 0x0820 // 0x14f1 @0x2
0x14ef…1509 at0004 = ╱82╱ IF ╱ // 0x14f3 @0x4
0x14ef…1509 at0005 = ╱50╱P╱ // 0x14f4 @0x5
0x14ef…1509 at0006 = ╱dc╱=╱ // 0x14f5 @0x6
0x14ef…1509 at0007 = ╱42╱B╱ // 0x14f6 @0x7
0x14ef…1509 at0008 = ╱b6╱ THEN ╱ // 0x14f7 @0x8
0x14ef…1509 at0009 = ╱55╱U╱ // 0x14f8 @0x9
0x14ef…1509 at000a = ╱4e╱N╱ // 0x14f9 @0xa
0x14ef…1509 at000b = ╱44╱D╱ // 0x14fa @0xb
0x14ef…1509 at000c = ╱4b╱K╱ // 0x14fb @0xc
0x14ef…1509 at000d = ╱4f╱O╱ // 0x14fc @0xd
0x14ef…1509 at000e = ╱4e╱N╱ // 0x14fd @0xe
0x14ef…1509 at000f = ╱54╱T╱ // 0x14fe @0xf
0x14ef…1509 at0010 = ╱dc╱=╱ // 0x14ff @0x10
0x14ef…1509 at0011 = ╱44╱D╱ // 0x1500 @0x11
0x14ef…1509 at0012 = ╱55╱U╱ // 0x1501 @0x12
0x14ef…1509 at0013 = ╱4e╱N╱ // 0x1502 @0x13
0x14ef…1509 at0014 = ╱44╱D╱ // 0x1503 @0x14
0x14ef…1509 at0015 = ╱4b╱K╱ // 0x1504 @0x15
0x14ef…1509 at0016 = ╱4f╱O╱ // 0x1505 @0x16
0x14ef…1509 at0017 = ╱4e╱N╱ // 0x1506 @0x17
0x14ef…1509 at0018 = ╱54╱T╱ // 0x1507 @0x18
0x14ef…1509 at0019 = EOL // 0x1508 @0x19
0x14ef…1509 }
0x1509…1520 a277 2081 IF P=-E THEN UNDKONT=UNDK
0x1509…1520 LineComalBin {
0x1509…1520 ptr = 0xa277 // 0x1509 @0x0
0x1509…1520 lno = 0x0821 // 0x150b @0x2
0x1509…1520 at0004 = ╱82╱ IF ╱ // 0x150d @0x4
0x1509…1520 at0005 = ╱50╱P╱ // 0x150e @0x5
0x1509…1520 at0006 = ╱dc╱=╱ // 0x150f @0x6
0x1509…1520 at0007 = ╱e9╱-╱ // 0x1510 @0x7
0x1509…1520 at0008 = ╱45╱E╱ // 0x1511 @0x8
0x1509…1520 at0009 = ╱b6╱ THEN ╱ // 0x1512 @0x9
0x1509…1520 at000a = ╱55╱U╱ // 0x1513 @0xa
0x1509…1520 at000b = ╱4e╱N╱ // 0x1514 @0xb
0x1509…1520 at000c = ╱44╱D╱ // 0x1515 @0xc
0x1509…1520 at000d = ╱4b╱K╱ // 0x1516 @0xd
0x1509…1520 at000e = ╱4f╱O╱ // 0x1517 @0xe
0x1509…1520 at000f = ╱4e╱N╱ // 0x1518 @0xf
0x1509…1520 at0010 = ╱54╱T╱ // 0x1519 @0x10
0x1509…1520 at0011 = ╱dc╱=╱ // 0x151a @0x11
0x1509…1520 at0012 = ╱55╱U╱ // 0x151b @0x12
0x1509…1520 at0013 = ╱4e╱N╱ // 0x151c @0x13
0x1509…1520 at0014 = ╱44╱D╱ // 0x151d @0x14
0x1509…1520 at0015 = ╱4b╱K╱ // 0x151e @0x15
0x1509…1520 at0016 = EOL // 0x151f @0x16
0x1509…1520 }
0x1520…1533 a28a 2082 CURSOR 69,LINIE
0x1520…1533 LineComalBin {
0x1520…1533 ptr = 0xa28a // 0x1520 @0x0
0x1520…1533 lno = 0x0822 // 0x1522 @0x2
0x1520…1533 at0004 = ╱a1╱ CURSOR ╱ // 0x1524 @0x4
0x1520…1533 at0005 = ╱36╱6╱ // 0x1525 @0x5
0x1520…1533 at0006 = ╱39╱9╱ // 0x1526 @0x6
0x1520…1533 at0007 = ╱fe00008a07╱ // 0x1527 @0x7
0x1520…1533 at000c = ╱ec╱,╱ // 0x152c @0xc
0x1520…1533 at000d = ╱4c╱L╱ // 0x152d @0xd
0x1520…1533 at000e = ╱49╱I╱ // 0x152e @0xe
0x1520…1533 at000f = ╱4e╱N╱ // 0x152f @0xf
0x1520…1533 at0010 = ╱49╱I╱ // 0x1530 @0x10
0x1520…1533 at0011 = ╱45╱E╱ // 0x1531 @0x11
0x1520…1533 at0012 = EOL // 0x1532 @0x12
0x1520…1533 }
0x1533…154b a2a2 2083 PRINT USING "#######":UNDKONT
0x1533…154b LineComalBin {
0x1533…154b ptr = 0xa2a2 // 0x1533 @0x0
0x1533…154b lno = 0x0823 // 0x1535 @0x2
0x1533…154b at0004 = ╱92╱ PRINT ╱ // 0x1537 @0x4
0x1533…154b at0005 = ╱b9╱ USING ╱ // 0x1538 @0x5
0x1533…154b at0006 = ╱22╱"╱ // 0x1539 @0x6
0x1533…154b at0007 = ╱23╱#╱ // 0x153a @0x7
0x1533…154b at0008 = ╱23╱#╱ // 0x153b @0x8
0x1533…154b at0009 = ╱23╱#╱ // 0x153c @0x9
0x1533…154b at000a = ╱23╱#╱ // 0x153d @0xa
0x1533…154b at000b = ╱23╱#╱ // 0x153e @0xb
0x1533…154b at000c = ╱23╱#╱ // 0x153f @0xc
0x1533…154b at000d = ╱23╱#╱ // 0x1540 @0xd
0x1533…154b at000e = ╱22╱"╱ // 0x1541 @0xe
0x1533…154b at000f = ╱f0╱:╱ // 0x1542 @0xf
0x1533…154b at0010 = ╱55╱U╱ // 0x1543 @0x10
0x1533…154b at0011 = ╱4e╱N╱ // 0x1544 @0x11
0x1533…154b at0012 = ╱44╱D╱ // 0x1545 @0x12
0x1533…154b at0013 = ╱4b╱K╱ // 0x1546 @0x13
0x1533…154b at0014 = ╱4f╱O╱ // 0x1547 @0x14
0x1533…154b at0015 = ╱4e╱N╱ // 0x1548 @0x15
0x1533…154b at0016 = ╱54╱T╱ // 0x1549 @0x16
0x1533…154b at0017 = EOL // 0x154a @0x17
0x1533…154b }
0x154b…1551 a2a8 2084 ENDPROC
0x154b…1551 LineComalBin {
0x154b…1551 ptr = 0xa2a8 // 0x154b @0x0
0x154b…1551 lno = 0x0824 // 0x154d @0x2
0x154b…1551 at0004 = ╱9f╱ ENDPROC ╱ // 0x154f @0x4
0x154b…1551 at0005 = EOL // 0x1550 @0x5
0x154b…1551 }
0x1551…155f a2b6 2090 PROC VARELTEK
0x1551…155f LineComalBin {
0x1551…155f ptr = 0xa2b6 // 0x1551 @0x0
0x1551…155f lno = 0x082a // 0x1553 @0x2
0x1551…155f at0004 = ╱9e╱ PROC ╱ // 0x1555 @0x4
0x1551…155f at0005 = ╱56╱V╱ // 0x1556 @0x5
0x1551…155f at0006 = ╱41╱A╱ // 0x1557 @0x6
0x1551…155f at0007 = ╱52╱R╱ // 0x1558 @0x7
0x1551…155f at0008 = ╱45╱E╱ // 0x1559 @0x8
0x1551…155f at0009 = ╱4c╱L╱ // 0x155a @0x9
0x1551…155f at000a = ╱54╱T╱ // 0x155b @0xa
0x1551…155f at000b = ╱45╱E╱ // 0x155c @0xb
0x1551…155f at000c = ╱4b╱K╱ // 0x155d @0xc
0x1551…155f at000d = EOL // 0x155e @0xd
0x1551…155f }
0x155f…156d a2c4 2100 CURSOR V,4
0x155f…156d LineComalBin {
0x155f…156d ptr = 0xa2c4 // 0x155f @0x0
0x155f…156d lno = 0x0834 // 0x1561 @0x2
0x155f…156d at0004 = ╱a1╱ CURSOR ╱ // 0x1563 @0x4
0x155f…156d at0005 = ╱56╱V╱ // 0x1564 @0x5
0x155f…156d at0006 = ╱ec╱,╱ // 0x1565 @0x6
0x155f…156d at0007 = ╱34╱4╱ // 0x1566 @0x7
0x155f…156d at0008 = ╱fe00008003╱ // 0x1567 @0x8
0x155f…156d at000d = EOL // 0x156c @0xd
0x155f…156d }
0x156d…1588 a2df 2110 PRINT "Varenr Varetekst"
0x156d…1588 LineComalBin {
0x156d…1588 ptr = 0xa2df // 0x156d @0x0
0x156d…1588 lno = 0x083e // 0x156f @0x2
0x156d…1588 at0004 = ╱92╱ PRINT ╱ // 0x1571 @0x4
0x156d…1588 at0005 = ╱22╱"╱ // 0x1572 @0x5
0x156d…1588 at0006 = ╱56╱V╱ // 0x1573 @0x6
0x156d…1588 at0007 = ╱61╱a╱ // 0x1574 @0x7
0x156d…1588 at0008 = ╱72╱r╱ // 0x1575 @0x8
0x156d…1588 at0009 = ╱65╱e╱ // 0x1576 @0x9
0x156d…1588 at000a = ╱6e╱n╱ // 0x1577 @0xa
0x156d…1588 at000b = ╱72╱r╱ // 0x1578 @0xb
0x156d…1588 at000c = ╱20╱…╱ // 0x1579 @0xc
0x156d…1588 at000d = ╱20╱…╱ // 0x157a @0xd
0x156d…1588 at000e = ╱20╱…╱ // 0x157b @0xe
0x156d…1588 at000f = ╱20╱…╱ // 0x157c @0xf
0x156d…1588 at0010 = ╱56╱V╱ // 0x157d @0x10
0x156d…1588 at0011 = ╱61╱a╱ // 0x157e @0x11
0x156d…1588 at0012 = ╱72╱r╱ // 0x157f @0x12
0x156d…1588 at0013 = ╱65╱e╱ // 0x1580 @0x13
0x156d…1588 at0014 = ╱74╱t╱ // 0x1581 @0x14
0x156d…1588 at0015 = ╱65╱e╱ // 0x1582 @0x15
0x156d…1588 at0016 = ╱6b╱k╱ // 0x1583 @0x16
0x156d…1588 at0017 = ╱73╱s╱ // 0x1584 @0x17
0x156d…1588 at0018 = ╱74╱t╱ // 0x1585 @0x18
0x156d…1588 at0019 = ╱22╱"╱ // 0x1586 @0x19
0x156d…1588 at001a = EOL // 0x1587 @0x1a
0x156d…1588 }
0x1588…159c a2f3 2120 CURSOR 49,4
0x1588…159c LineComalBin {
0x1588…159c ptr = 0xa2f3 // 0x1588 @0x0
0x1588…159c lno = 0x0848 // 0x158a @0x2
0x1588…159c at0004 = ╱a1╱ CURSOR ╱ // 0x158c @0x4
0x1588…159c at0005 = ╱34╱4╱ // 0x158d @0x5
0x1588…159c at0006 = ╱39╱9╱ // 0x158e @0x6
0x1588…159c at0007 = ╱fe0000c406╱ // 0x158f @0x7
0x1588…159c at000c = ╱ec╱,╱ // 0x1594 @0xc
0x1588…159c at000d = ╱34╱4╱ // 0x1595 @0xd
0x1588…159c at000e = ╱fe00008003╱ // 0x1596 @0xe
0x1588…159c at0013 = EOL // 0x159b @0x13
0x1588…159c }
0x159c…15c4 a31b 2130 PRINT "Varepris Varekonto Underkonto"
0x159c…15c4 LineComalBin {
0x159c…15c4 ptr = 0xa31b // 0x159c @0x0
0x159c…15c4 lno = 0x0852 // 0x159e @0x2
0x159c…15c4 at0004 = ╱92╱ PRINT ╱ // 0x15a0 @0x4
0x159c…15c4 at0005 = ╱22╱"╱ // 0x15a1 @0x5
0x159c…15c4 at0006 = ╱56╱V╱ // 0x15a2 @0x6
0x159c…15c4 at0007 = ╱61╱a╱ // 0x15a3 @0x7
0x159c…15c4 at0008 = ╱72╱r╱ // 0x15a4 @0x8
0x159c…15c4 at0009 = ╱65╱e╱ // 0x15a5 @0x9
0x159c…15c4 at000a = ╱70╱p╱ // 0x15a6 @0xa
0x159c…15c4 at000b = ╱72╱r╱ // 0x15a7 @0xb
0x159c…15c4 at000c = ╱69╱i╱ // 0x15a8 @0xc
0x159c…15c4 at000d = ╱73╱s╱ // 0x15a9 @0xd
0x159c…15c4 at000e = ╱20╱…╱ // 0x15aa @0xe
0x159c…15c4 at000f = ╱20╱…╱ // 0x15ab @0xf
0x159c…15c4 at0010 = ╱20╱…╱ // 0x15ac @0x10
0x159c…15c4 at0011 = ╱20╱…╱ // 0x15ad @0x11
0x159c…15c4 at0012 = ╱56╱V╱ // 0x15ae @0x12
0x159c…15c4 at0013 = ╱61╱a╱ // 0x15af @0x13
0x159c…15c4 at0014 = ╱72╱r╱ // 0x15b0 @0x14
0x159c…15c4 at0015 = ╱65╱e╱ // 0x15b1 @0x15
0x159c…15c4 at0016 = ╱6b╱k╱ // 0x15b2 @0x16
0x159c…15c4 at0017 = ╱6f╱o╱ // 0x15b3 @0x17
0x159c…15c4 at0018 = ╱6e╱n╱ // 0x15b4 @0x18
0x159c…15c4 at0019 = ╱74╱t╱ // 0x15b5 @0x19
0x159c…15c4 at001a = ╱6f╱o╱ // 0x15b6 @0x1a
0x159c…15c4 at001b = ╱20╱…╱ // 0x15b7 @0x1b
0x159c…15c4 at001c = ╱55╱U╱ // 0x15b8 @0x1c
0x159c…15c4 at001d = ╱6e╱n╱ // 0x15b9 @0x1d
0x159c…15c4 at001e = ╱64╱d╱ // 0x15ba @0x1e
0x159c…15c4 at001f = ╱65╱e╱ // 0x15bb @0x1f
0x159c…15c4 at0020 = ╱72╱r╱ // 0x15bc @0x20
0x159c…15c4 at0021 = ╱6b╱k╱ // 0x15bd @0x21
0x159c…15c4 at0022 = ╱6f╱o╱ // 0x15be @0x22
0x159c…15c4 at0023 = ╱6e╱n╱ // 0x15bf @0x23
0x159c…15c4 at0024 = ╱74╱t╱ // 0x15c0 @0x24
0x159c…15c4 at0025 = ╱6f╱o╱ // 0x15c1 @0x25
0x159c…15c4 at0026 = ╱22╱"╱ // 0x15c2 @0x26
0x159c…15c4 at0027 = EOL // 0x15c3 @0x27
0x159c…15c4 }
0x15c4…15d5 a32c 2140 LINIE=6
0x15c4…15d5 LineComalBin {
0x15c4…15d5 ptr = 0xa32c // 0x15c4 @0x0
0x15c4…15d5 lno = 0x085c // 0x15c6 @0x2
0x15c4…15d5 at0004 = ╱4c╱L╱ // 0x15c8 @0x4
0x15c4…15d5 at0005 = ╱49╱I╱ // 0x15c9 @0x5
0x15c4…15d5 at0006 = ╱4e╱N╱ // 0x15ca @0x6
0x15c4…15d5 at0007 = ╱49╱I╱ // 0x15cb @0x7
0x15c4…15d5 at0008 = ╱45╱E╱ // 0x15cc @0x8
0x15c4…15d5 at0009 = ╱dc╱=╱ // 0x15cd @0x9
0x15c4…15d5 at000a = ╱36╱6╱ // 0x15ce @0xa
0x15c4…15d5 at000b = ╱fe0000c003╱ // 0x15cf @0xb
0x15c4…15d5 at0010 = EOL // 0x15d4 @0x10
0x15c4…15d5 }
0x15d5…15db a332 2150 ENDPROC
0x15d5…15db LineComalBin {
0x15d5…15db ptr = 0xa332 // 0x15d5 @0x0
0x15d5…15db lno = 0x0866 // 0x15d7 @0x2
0x15d5…15db at0004 = ╱9f╱ ENDPROC ╱ // 0x15d9 @0x4
0x15d5…15db at0005 = EOL // 0x15da @0x5
0x15d5…15db }
0x15db…15e9 a340 2160 PROC OVERSKRI
0x15db…15e9 LineComalBin {
0x15db…15e9 ptr = 0xa340 // 0x15db @0x0
0x15db…15e9 lno = 0x0870 // 0x15dd @0x2
0x15db…15e9 at0004 = ╱9e╱ PROC ╱ // 0x15df @0x4
0x15db…15e9 at0005 = ╱4f╱O╱ // 0x15e0 @0x5
0x15db…15e9 at0006 = ╱56╱V╱ // 0x15e1 @0x6
0x15db…15e9 at0007 = ╱45╱E╱ // 0x15e2 @0x7
0x15db…15e9 at0008 = ╱52╱R╱ // 0x15e3 @0x8
0x15db…15e9 at0009 = ╱53╱S╱ // 0x15e4 @0x9
0x15db…15e9 at000a = ╱4b╱K╱ // 0x15e5 @0xa
0x15db…15e9 at000b = ╱52╱R╱ // 0x15e6 @0xb
0x15db…15e9 at000c = ╱49╱I╱ // 0x15e7 @0xc
0x15db…15e9 at000d = EOL // 0x15e8 @0xd
0x15db…15e9 }
0x15e9…15fd a354 2162 SIDENR=SIDENR+E
0x15e9…15fd LineComalBin {
0x15e9…15fd ptr = 0xa354 // 0x15e9 @0x0
0x15e9…15fd lno = 0x0872 // 0x15eb @0x2
0x15e9…15fd at0004 = ╱53╱S╱ // 0x15ed @0x4
0x15e9…15fd at0005 = ╱49╱I╱ // 0x15ee @0x5
0x15e9…15fd at0006 = ╱44╱D╱ // 0x15ef @0x6
0x15e9…15fd at0007 = ╱45╱E╱ // 0x15f0 @0x7
0x15e9…15fd at0008 = ╱4e╱N╱ // 0x15f1 @0x8
0x15e9…15fd at0009 = ╱52╱R╱ // 0x15f2 @0x9
0x15e9…15fd at000a = ╱dc╱=╱ // 0x15f3 @0xa
0x15e9…15fd at000b = ╱53╱S╱ // 0x15f4 @0xb
0x15e9…15fd at000c = ╱49╱I╱ // 0x15f5 @0xc
0x15e9…15fd at000d = ╱44╱D╱ // 0x15f6 @0xd
0x15e9…15fd at000e = ╱45╱E╱ // 0x15f7 @0xe
0x15e9…15fd at000f = ╱4e╱N╱ // 0x15f8 @0xf
0x15e9…15fd at0010 = ╱52╱R╱ // 0x15f9 @0x10
0x15e9…15fd at0011 = ╱e2╱+╱ // 0x15fa @0x11
0x15e9…15fd at0012 = ╱45╱E╱ // 0x15fb @0x12
0x15e9…15fd at0013 = EOL // 0x15fc @0x13
0x15e9…15fd }
0x15fd…1610 a367 2164 IF SIDENR>E THEN PRINT " "
0x15fd…1610 LineComalBin {
0x15fd…1610 ptr = 0xa367 // 0x15fd @0x0
0x15fd…1610 lno = 0x0874 // 0x15ff @0x2
0x15fd…1610 at0004 = ╱82╱ IF ╱ // 0x1601 @0x4
0x15fd…1610 at0005 = ╱53╱S╱ // 0x1602 @0x5
0x15fd…1610 at0006 = ╱49╱I╱ // 0x1603 @0x6
0x15fd…1610 at0007 = ╱44╱D╱ // 0x1604 @0x7
0x15fd…1610 at0008 = ╱45╱E╱ // 0x1605 @0x8
0x15fd…1610 at0009 = ╱4e╱N╱ // 0x1606 @0x9
0x15fd…1610 at000a = ╱52╱R╱ // 0x1607 @0xa
0x15fd…1610 at000b = ╱de╱>╱ // 0x1608 @0xb
0x15fd…1610 at000c = ╱45╱E╱ // 0x1609 @0xc
0x15fd…1610 at000d = ╱b6╱ THEN ╱ // 0x160a @0xd
0x15fd…1610 at000e = ╱92╱ PRINT ╱ // 0x160b @0xe
0x15fd…1610 at000f = ╱22╱"╱ // 0x160c @0xf
0x15fd…1610 at0010 = ╱20╱…╱ // 0x160d @0x10
0x15fd…1610 at0011 = ╱22╱"╱ // 0x160e @0x11
0x15fd…1610 at0012 = EOL // 0x160f @0x12
0x15fd…1610 }
0x1610…1628 a37f 2165 PRINT TAB(67);DV$;" "
0x1610…1628 LineComalBin {
0x1610…1628 ptr = 0xa37f // 0x1610 @0x0
0x1610…1628 lno = 0x0875 // 0x1612 @0x2
0x1610…1628 at0004 = ╱92╱ PRINT ╱ // 0x1614 @0x4
0x1610…1628 at0005 = ╱d2╱TAB╱ // 0x1615 @0x5
0x1610…1628 at0006 = ╱ed╱(╱ // 0x1616 @0x6
0x1610…1628 at0007 = ╱36╱6╱ // 0x1617 @0x7
0x1610…1628 at0008 = ╱37╱7╱ // 0x1618 @0x8
0x1610…1628 at0009 = ╱fe00008607╱ // 0x1619 @0x9
0x1610…1628 at000e = ╱ee╱)╱ // 0x161e @0xe
0x1610…1628 at000f = ╱eb╱;╱ // 0x161f @0xf
0x1610…1628 at0010 = ╱44╱D╱ // 0x1620 @0x10
0x1610…1628 at0011 = ╱56╱V╱ // 0x1621 @0x11
0x1610…1628 at0012 = ╱ef╱$╱ // 0x1622 @0x12
0x1610…1628 at0013 = ╱eb╱;╱ // 0x1623 @0x13
0x1610…1628 at0014 = ╱22╱"╱ // 0x1624 @0x14
0x1610…1628 at0015 = ╱20╱…╱ // 0x1625 @0x15
0x1610…1628 at0016 = ╱22╱"╱ // 0x1626 @0x16
0x1610…1628 at0017 = EOL // 0x1627 @0x17
0x1610…1628 }
0x1628…1661 a3b8 2170 PRINT TAB(10);CHR(14);"Varefortegnelse";CHR(15);
0x1628…1661 LineComalBin {
0x1628…1661 ptr = 0xa3b8 // 0x1628 @0x0
0x1628…1661 lno = 0x087a // 0x162a @0x2
0x1628…1661 at0004 = ╱92╱ PRINT ╱ // 0x162c @0x4
0x1628…1661 at0005 = ╱d2╱TAB╱ // 0x162d @0x5
0x1628…1661 at0006 = ╱ed╱(╱ // 0x162e @0x6
0x1628…1661 at0007 = ╱31╱1╱ // 0x162f @0x7
0x1628…1661 at0008 = ╱30╱0╱ // 0x1630 @0x8
0x1628…1661 at0009 = ╱fe0000a004╱ // 0x1631 @0x9
0x1628…1661 at000e = ╱ee╱)╱ // 0x1636 @0xe
0x1628…1661 at000f = ╱eb╱;╱ // 0x1637 @0xf
0x1628…1661 at0010 = ╱cf╱CHR╱ // 0x1638 @0x10
0x1628…1661 at0011 = ╱ed╱(╱ // 0x1639 @0x11
0x1628…1661 at0012 = ╱31╱1╱ // 0x163a @0x12
0x1628…1661 at0013 = ╱34╱4╱ // 0x163b @0x13
0x1628…1661 at0014 = ╱fe0000e004╱ // 0x163c @0x14
0x1628…1661 at0019 = ╱ee╱)╱ // 0x1641 @0x19
0x1628…1661 at001a = ╱eb╱;╱ // 0x1642 @0x1a
0x1628…1661 at001b = ╱22╱"╱ // 0x1643 @0x1b
0x1628…1661 at001c = ╱56╱V╱ // 0x1644 @0x1c
0x1628…1661 at001d = ╱61╱a╱ // 0x1645 @0x1d
0x1628…1661 at001e = ╱72╱r╱ // 0x1646 @0x1e
0x1628…1661 at001f = ╱65╱e╱ // 0x1647 @0x1f
0x1628…1661 at0020 = ╱66╱f╱ // 0x1648 @0x20
0x1628…1661 at0021 = ╱6f╱o╱ // 0x1649 @0x21
0x1628…1661 at0022 = ╱72╱r╱ // 0x164a @0x22
0x1628…1661 at0023 = ╱74╱t╱ // 0x164b @0x23
0x1628…1661 at0024 = ╱65╱e╱ // 0x164c @0x24
0x1628…1661 at0025 = ╱67╱g╱ // 0x164d @0x25
0x1628…1661 at0026 = ╱6e╱n╱ // 0x164e @0x26
0x1628…1661 at0027 = ╱65╱e╱ // 0x164f @0x27
0x1628…1661 at0028 = ╱6c╱l╱ // 0x1650 @0x28
0x1628…1661 at0029 = ╱73╱s╱ // 0x1651 @0x29
0x1628…1661 at002a = ╱65╱e╱ // 0x1652 @0x2a
0x1628…1661 at002b = ╱22╱"╱ // 0x1653 @0x2b
0x1628…1661 at002c = ╱eb╱;╱ // 0x1654 @0x2c
0x1628…1661 at002d = ╱cf╱CHR╱ // 0x1655 @0x2d
0x1628…1661 at002e = ╱ed╱(╱ // 0x1656 @0x2e
0x1628…1661 at002f = ╱31╱1╱ // 0x1657 @0x2f
0x1628…1661 at0030 = ╱35╱5╱ // 0x1658 @0x30
0x1628…1661 at0031 = ╱fe0000f004╱ // 0x1659 @0x31
0x1628…1661 at0036 = ╱ee╱)╱ // 0x165e @0x36
0x1628…1661 at0037 = ╱eb╱;╱ // 0x165f @0x37
0x1628…1661 at0038 = EOL // 0x1660 @0x38
0x1628…1661 }
0x1661…1685 a3dc 2180 PRINT TAB(39);"Dato:";TAB(47);
0x1661…1685 LineComalBin {
0x1661…1685 ptr = 0xa3dc // 0x1661 @0x0
0x1661…1685 lno = 0x0884 // 0x1663 @0x2
0x1661…1685 at0004 = ╱92╱ PRINT ╱ // 0x1665 @0x4
0x1661…1685 at0005 = ╱d2╱TAB╱ // 0x1666 @0x5
0x1661…1685 at0006 = ╱ed╱(╱ // 0x1667 @0x6
0x1661…1685 at0007 = ╱33╱3╱ // 0x1668 @0x7
0x1661…1685 at0008 = ╱39╱9╱ // 0x1669 @0x8
0x1661…1685 at0009 = ╱fe00009c06╱ // 0x166a @0x9
0x1661…1685 at000e = ╱ee╱)╱ // 0x166f @0xe
0x1661…1685 at000f = ╱eb╱;╱ // 0x1670 @0xf
0x1661…1685 at0010 = ╱22╱"╱ // 0x1671 @0x10
0x1661…1685 at0011 = ╱44╱D╱ // 0x1672 @0x11
0x1661…1685 at0012 = ╱61╱a╱ // 0x1673 @0x12
0x1661…1685 at0013 = ╱74╱t╱ // 0x1674 @0x13
0x1661…1685 at0014 = ╱6f╱o╱ // 0x1675 @0x14
0x1661…1685 at0015 = ╱3a╱:╱ // 0x1676 @0x15
0x1661…1685 at0016 = ╱22╱"╱ // 0x1677 @0x16
0x1661…1685 at0017 = ╱eb╱;╱ // 0x1678 @0x17
0x1661…1685 at0018 = ╱d2╱TAB╱ // 0x1679 @0x18
0x1661…1685 at0019 = ╱ed╱(╱ // 0x167a @0x19
0x1661…1685 at001a = ╱34╱4╱ // 0x167b @0x1a
0x1661…1685 at001b = ╱37╱7╱ // 0x167c @0x1b
0x1661…1685 at001c = ╱fe0000bc06╱ // 0x167d @0x1c
0x1661…1685 at0021 = ╱ee╱)╱ // 0x1682 @0x21
0x1661…1685 at0022 = ╱eb╱;╱ // 0x1683 @0x22
0x1661…1685 at0023 = EOL // 0x1684 @0x23
0x1661…1685 }
0x1685…16b0 a407 2190 PRINT USING "###.##":(DATO MOD 10000)/100;
0x1685…16b0 LineComalBin {
0x1685…16b0 ptr = 0xa407 // 0x1685 @0x0
0x1685…16b0 lno = 0x088e // 0x1687 @0x2
0x1685…16b0 at0004 = ╱92╱ PRINT ╱ // 0x1689 @0x4
0x1685…16b0 at0005 = ╱b9╱ USING ╱ // 0x168a @0x5
0x1685…16b0 at0006 = ╱22╱"╱ // 0x168b @0x6
0x1685…16b0 at0007 = ╱23╱#╱ // 0x168c @0x7
0x1685…16b0 at0008 = ╱23╱#╱ // 0x168d @0x8
0x1685…16b0 at0009 = ╱23╱#╱ // 0x168e @0x9
0x1685…16b0 at000a = ╱2e╱.╱ // 0x168f @0xa
0x1685…16b0 at000b = ╱23╱#╱ // 0x1690 @0xb
0x1685…16b0 at000c = ╱23╱#╱ // 0x1691 @0xc
0x1685…16b0 at000d = ╱22╱"╱ // 0x1692 @0xd
0x1685…16b0 at000e = ╱f0╱:╱ // 0x1693 @0xe
0x1685…16b0 at000f = ╱ed╱(╱ // 0x1694 @0xf
0x1685…16b0 at0010 = ╱44╱D╱ // 0x1695 @0x10
0x1685…16b0 at0011 = ╱41╱A╱ // 0x1696 @0x11
0x1685…16b0 at0012 = ╱54╱T╱ // 0x1697 @0x12
0x1685…16b0 at0013 = ╱4f╱O╱ // 0x1698 @0x13
0x1685…16b0 at0014 = ╱e8╱ MOD ╱ // 0x1699 @0x14
0x1685…16b0 at0015 = ╱31╱1╱ // 0x169a @0x15
0x1685…16b0 at0016 = ╱30╱0╱ // 0x169b @0x16
0x1685…16b0 at0017 = ╱30╱0╱ // 0x169c @0x17
0x1685…16b0 at0018 = ╱30╱0╱ // 0x169d @0x18
0x1685…16b0 at0019 = ╱30╱0╱ // 0x169e @0x19
0x1685…16b0 at001a = ╱fe00409c0e╱ // 0x169f @0x1a
0x1685…16b0 at001f = ╱ee╱)╱ // 0x16a4 @0x1f
0x1685…16b0 at0020 = ╱e5╱/╱ // 0x16a5 @0x20
0x1685…16b0 at0021 = ╱31╱1╱ // 0x16a6 @0x21
0x1685…16b0 at0022 = ╱30╱0╱ // 0x16a7 @0x22
0x1685…16b0 at0023 = ╱30╱0╱ // 0x16a8 @0x23
0x1685…16b0 at0024 = ╱fe0000c807╱ // 0x16a9 @0x24
0x1685…16b0 at0029 = ╱eb╱;╱ // 0x16ae @0x29
0x1685…16b0 at002a = EOL // 0x16af @0x2a
0x1685…16b0 }
0x16b0…16c1 a418 2200 PRINT TAB(44);
0x16b0…16c1 LineComalBin {
0x16b0…16c1 ptr = 0xa418 // 0x16b0 @0x0
0x16b0…16c1 lno = 0x0898 // 0x16b2 @0x2
0x16b0…16c1 at0004 = ╱92╱ PRINT ╱ // 0x16b4 @0x4
0x16b0…16c1 at0005 = ╱d2╱TAB╱ // 0x16b5 @0x5
0x16b0…16c1 at0006 = ╱ed╱(╱ // 0x16b6 @0x6
0x16b0…16c1 at0007 = ╱34╱4╱ // 0x16b7 @0x7
0x16b0…16c1 at0008 = ╱34╱4╱ // 0x16b8 @0x8
0x16b0…16c1 at0009 = ╱fe0000b006╱ // 0x16b9 @0x9
0x16b0…16c1 at000e = ╱ee╱)╱ // 0x16be @0xe
0x16b0…16c1 at000f = ╱eb╱;╱ // 0x16bf @0xf
0x16b0…16c1 at0010 = EOL // 0x16c0 @0x10
0x16b0…16c1 }
0x16c1…16e9 a440 2210 PRINT USING "###.#":(DATO DIV 1000)/10;
0x16c1…16e9 LineComalBin {
0x16c1…16e9 ptr = 0xa440 // 0x16c1 @0x0
0x16c1…16e9 lno = 0x08a2 // 0x16c3 @0x2
0x16c1…16e9 at0004 = ╱92╱ PRINT ╱ // 0x16c5 @0x4
0x16c1…16e9 at0005 = ╱b9╱ USING ╱ // 0x16c6 @0x5
0x16c1…16e9 at0006 = ╱22╱"╱ // 0x16c7 @0x6
0x16c1…16e9 at0007 = ╱23╱#╱ // 0x16c8 @0x7
0x16c1…16e9 at0008 = ╱23╱#╱ // 0x16c9 @0x8
0x16c1…16e9 at0009 = ╱23╱#╱ // 0x16ca @0x9
0x16c1…16e9 at000a = ╱2e╱.╱ // 0x16cb @0xa
0x16c1…16e9 at000b = ╱23╱#╱ // 0x16cc @0xb
0x16c1…16e9 at000c = ╱22╱"╱ // 0x16cd @0xc
0x16c1…16e9 at000d = ╱f0╱:╱ // 0x16ce @0xd
0x16c1…16e9 at000e = ╱ed╱(╱ // 0x16cf @0xe
0x16c1…16e9 at000f = ╱44╱D╱ // 0x16d0 @0xf
0x16c1…16e9 at0010 = ╱41╱A╱ // 0x16d1 @0x10
0x16c1…16e9 at0011 = ╱54╱T╱ // 0x16d2 @0x11
0x16c1…16e9 at0012 = ╱4f╱O╱ // 0x16d3 @0x12
0x16c1…16e9 at0013 = ╱e7╱ DIV ╱ // 0x16d4 @0x13
0x16c1…16e9 at0014 = ╱31╱1╱ // 0x16d5 @0x14
0x16c1…16e9 at0015 = ╱30╱0╱ // 0x16d6 @0x15
0x16c1…16e9 at0016 = ╱30╱0╱ // 0x16d7 @0x16
0x16c1…16e9 at0017 = ╱30╱0╱ // 0x16d8 @0x17
0x16c1…16e9 at0018 = ╱fe0000fa0a╱ // 0x16d9 @0x18
0x16c1…16e9 at001d = ╱ee╱)╱ // 0x16de @0x1d
0x16c1…16e9 at001e = ╱e5╱/╱ // 0x16df @0x1e
0x16c1…16e9 at001f = ╱31╱1╱ // 0x16e0 @0x1f
0x16c1…16e9 at0020 = ╱30╱0╱ // 0x16e1 @0x20
0x16c1…16e9 at0021 = ╱fe0000a004╱ // 0x16e2 @0x21
0x16c1…16e9 at0026 = ╱eb╱;╱ // 0x16e7 @0x26
0x16c1…16e9 at0027 = EOL // 0x16e8 @0x27
0x16c1…16e9 }
0x16e9…1708 a45f 2211 PRINT TAB(54);"Side:";SIDENR
0x16e9…1708 LineComalBin {
0x16e9…1708 ptr = 0xa45f // 0x16e9 @0x0
0x16e9…1708 lno = 0x08a3 // 0x16eb @0x2
0x16e9…1708 at0004 = ╱92╱ PRINT ╱ // 0x16ed @0x4
0x16e9…1708 at0005 = ╱d2╱TAB╱ // 0x16ee @0x5
0x16e9…1708 at0006 = ╱ed╱(╱ // 0x16ef @0x6
0x16e9…1708 at0007 = ╱35╱5╱ // 0x16f0 @0x7
0x16e9…1708 at0008 = ╱34╱4╱ // 0x16f1 @0x8
0x16e9…1708 at0009 = ╱fe0000d806╱ // 0x16f2 @0x9
0x16e9…1708 at000e = ╱ee╱)╱ // 0x16f7 @0xe
0x16e9…1708 at000f = ╱eb╱;╱ // 0x16f8 @0xf
0x16e9…1708 at0010 = ╱22╱"╱ // 0x16f9 @0x10
0x16e9…1708 at0011 = ╱53╱S╱ // 0x16fa @0x11
0x16e9…1708 at0012 = ╱69╱i╱ // 0x16fb @0x12
0x16e9…1708 at0013 = ╱64╱d╱ // 0x16fc @0x13
0x16e9…1708 at0014 = ╱65╱e╱ // 0x16fd @0x14
0x16e9…1708 at0015 = ╱3a╱:╱ // 0x16fe @0x15
0x16e9…1708 at0016 = ╱22╱"╱ // 0x16ff @0x16
0x16e9…1708 at0017 = ╱eb╱;╱ // 0x1700 @0x17
0x16e9…1708 at0018 = ╱53╱S╱ // 0x1701 @0x18
0x16e9…1708 at0019 = ╱49╱I╱ // 0x1702 @0x19
0x16e9…1708 at001a = ╱44╱D╱ // 0x1703 @0x1a
0x16e9…1708 at001b = ╱45╱E╱ // 0x1704 @0x1b
0x16e9…1708 at001c = ╱4e╱N╱ // 0x1705 @0x1c
0x16e9…1708 at001d = ╱52╱R╱ // 0x1706 @0x1d
0x16e9…1708 at001e = EOL // 0x1707 @0x1e
0x16e9…1708 }
0x1708…1753 a4aa 2230 PRINT " Varenr Varetekst";TAB(47);"Varepris Varekonto Underkonto"
0x1708…1753 LineComalBin {
0x1708…1753 ptr = 0xa4aa // 0x1708 @0x0
0x1708…1753 lno = 0x08b6 // 0x170a @0x2
0x1708…1753 at0004 = ╱92╱ PRINT ╱ // 0x170c @0x4
0x1708…1753 at0005 = ╱22╱"╱ // 0x170d @0x5
0x1708…1753 at0006 = ╱20╱…╱ // 0x170e @0x6
0x1708…1753 at0007 = ╱20╱…╱ // 0x170f @0x7
0x1708…1753 at0008 = ╱56╱V╱ // 0x1710 @0x8
0x1708…1753 at0009 = ╱61╱a╱ // 0x1711 @0x9
0x1708…1753 at000a = ╱72╱r╱ // 0x1712 @0xa
0x1708…1753 at000b = ╱65╱e╱ // 0x1713 @0xb
0x1708…1753 at000c = ╱6e╱n╱ // 0x1714 @0xc
0x1708…1753 at000d = ╱72╱r╱ // 0x1715 @0xd
0x1708…1753 at000e = ╱20╱…╱ // 0x1716 @0xe
0x1708…1753 at000f = ╱20╱…╱ // 0x1717 @0xf
0x1708…1753 at0010 = ╱20╱…╱ // 0x1718 @0x10
0x1708…1753 at0011 = ╱20╱…╱ // 0x1719 @0x11
0x1708…1753 at0012 = ╱56╱V╱ // 0x171a @0x12
0x1708…1753 at0013 = ╱61╱a╱ // 0x171b @0x13
0x1708…1753 at0014 = ╱72╱r╱ // 0x171c @0x14
0x1708…1753 at0015 = ╱65╱e╱ // 0x171d @0x15
0x1708…1753 at0016 = ╱74╱t╱ // 0x171e @0x16
0x1708…1753 at0017 = ╱65╱e╱ // 0x171f @0x17
0x1708…1753 at0018 = ╱6b╱k╱ // 0x1720 @0x18
0x1708…1753 at0019 = ╱73╱s╱ // 0x1721 @0x19
0x1708…1753 at001a = ╱74╱t╱ // 0x1722 @0x1a
0x1708…1753 at001b = ╱22╱"╱ // 0x1723 @0x1b
0x1708…1753 at001c = ╱eb╱;╱ // 0x1724 @0x1c
0x1708…1753 at001d = ╱d2╱TAB╱ // 0x1725 @0x1d
0x1708…1753 at001e = ╱ed╱(╱ // 0x1726 @0x1e
0x1708…1753 at001f = ╱34╱4╱ // 0x1727 @0x1f
0x1708…1753 at0020 = ╱37╱7╱ // 0x1728 @0x20
0x1708…1753 at0021 = ╱fe0000bc06╱ // 0x1729 @0x21
0x1708…1753 at0026 = ╱ee╱)╱ // 0x172e @0x26
0x1708…1753 at0027 = ╱eb╱;╱ // 0x172f @0x27
0x1708…1753 at0028 = ╱22╱"╱ // 0x1730 @0x28
0x1708…1753 at0029 = ╱56╱V╱ // 0x1731 @0x29
0x1708…1753 at002a = ╱61╱a╱ // 0x1732 @0x2a
0x1708…1753 at002b = ╱72╱r╱ // 0x1733 @0x2b
0x1708…1753 at002c = ╱65╱e╱ // 0x1734 @0x2c
0x1708…1753 at002d = ╱70╱p╱ // 0x1735 @0x2d
0x1708…1753 at002e = ╱72╱r╱ // 0x1736 @0x2e
0x1708…1753 at002f = ╱69╱i╱ // 0x1737 @0x2f
0x1708…1753 at0030 = ╱73╱s╱ // 0x1738 @0x30
0x1708…1753 at0031 = ╱20╱…╱ // 0x1739 @0x31
0x1708…1753 at0032 = ╱20╱…╱ // 0x173a @0x32
0x1708…1753 at0033 = ╱20╱…╱ // 0x173b @0x33
0x1708…1753 at0034 = ╱20╱…╱ // 0x173c @0x34
0x1708…1753 at0035 = ╱56╱V╱ // 0x173d @0x35
0x1708…1753 at0036 = ╱61╱a╱ // 0x173e @0x36
0x1708…1753 at0037 = ╱72╱r╱ // 0x173f @0x37
0x1708…1753 at0038 = ╱65╱e╱ // 0x1740 @0x38
0x1708…1753 at0039 = ╱6b╱k╱ // 0x1741 @0x39
0x1708…1753 at003a = ╱6f╱o╱ // 0x1742 @0x3a
0x1708…1753 at003b = ╱6e╱n╱ // 0x1743 @0x3b
0x1708…1753 at003c = ╱74╱t╱ // 0x1744 @0x3c
0x1708…1753 at003d = ╱6f╱o╱ // 0x1745 @0x3d
0x1708…1753 at003e = ╱20╱…╱ // 0x1746 @0x3e
0x1708…1753 at003f = ╱55╱U╱ // 0x1747 @0x3f
0x1708…1753 at0040 = ╱6e╱n╱ // 0x1748 @0x40
0x1708…1753 at0041 = ╱64╱d╱ // 0x1749 @0x41
0x1708…1753 at0042 = ╱65╱e╱ // 0x174a @0x42
0x1708…1753 at0043 = ╱72╱r╱ // 0x174b @0x43
0x1708…1753 at0044 = ╱6b╱k╱ // 0x174c @0x44
0x1708…1753 at0045 = ╱6f╱o╱ // 0x174d @0x45
0x1708…1753 at0046 = ╱6e╱n╱ // 0x174e @0x46
0x1708…1753 at0047 = ╱74╱t╱ // 0x174f @0x47
0x1708…1753 at0048 = ╱6f╱o╱ // 0x1750 @0x48
0x1708…1753 at0049 = ╱22╱"╱ // 0x1751 @0x49
0x1708…1753 at004a = EOL // 0x1752 @0x4a
0x1708…1753 }
0x1753…175f a4b6 2250 PRINT STREG$
0x1753…175f LineComalBin {
0x1753…175f ptr = 0xa4b6 // 0x1753 @0x0
0x1753…175f lno = 0x08ca // 0x1755 @0x2
0x1753…175f at0004 = ╱92╱ PRINT ╱ // 0x1757 @0x4
0x1753…175f at0005 = ╱53╱S╱ // 0x1758 @0x5
0x1753…175f at0006 = ╱54╱T╱ // 0x1759 @0x6
0x1753…175f at0007 = ╱52╱R╱ // 0x175a @0x7
0x1753…175f at0008 = ╱45╱E╱ // 0x175b @0x8
0x1753…175f at0009 = ╱47╱G╱ // 0x175c @0x9
0x1753…175f at000a = ╱ef╱$╱ // 0x175d @0xa
0x1753…175f at000b = EOL // 0x175e @0xb
0x1753…175f }
0x175f…1765 a4bc 2260 ENDPROC
0x175f…1765 LineComalBin {
0x175f…1765 ptr = 0xa4bc // 0x175f @0x0
0x175f…1765 lno = 0x08d4 // 0x1761 @0x2
0x175f…1765 at0004 = ╱9f╱ ENDPROC ╱ // 0x1763 @0x4
0x175f…1765 at0005 = EOL // 0x1764 @0x5
0x175f…1765 }
0x1765…177f a4d6 2270 K1$="P641220:SYSTEM1"
0x1765…177f LineComalBin {
0x1765…177f ptr = 0xa4d6 // 0x1765 @0x0
0x1765…177f lno = 0x08de // 0x1767 @0x2
0x1765…177f at0004 = ╱4b╱K╱ // 0x1769 @0x4
0x1765…177f at0005 = ╱31╱1╱ // 0x176a @0x5
0x1765…177f at0006 = ╱ef╱$╱ // 0x176b @0x6
0x1765…177f at0007 = ╱dc╱=╱ // 0x176c @0x7
0x1765…177f at0008 = ╱22╱"╱ // 0x176d @0x8
0x1765…177f at0009 = ╱50╱P╱ // 0x176e @0x9
0x1765…177f at000a = ╱36╱6╱ // 0x176f @0xa
0x1765…177f at000b = ╱34╱4╱ // 0x1770 @0xb
0x1765…177f at000c = ╱31╱1╱ // 0x1771 @0xc
0x1765…177f at000d = ╱32╱2╱ // 0x1772 @0xd
0x1765…177f at000e = ╱32╱2╱ // 0x1773 @0xe
0x1765…177f at000f = ╱30╱0╱ // 0x1774 @0xf
0x1765…177f at0010 = ╱3a╱:╱ // 0x1775 @0x10
0x1765…177f at0011 = ╱53╱S╱ // 0x1776 @0x11
0x1765…177f at0012 = ╱59╱Y╱ // 0x1777 @0x12
0x1765…177f at0013 = ╱53╱S╱ // 0x1778 @0x13
0x1765…177f at0014 = ╱54╱T╱ // 0x1779 @0x14
0x1765…177f at0015 = ╱45╱E╱ // 0x177a @0x15
0x1765…177f at0016 = ╱4d╱M╱ // 0x177b @0x16
0x1765…177f at0017 = ╱31╱1╱ // 0x177c @0x17
0x1765…177f at0018 = ╱22╱"╱ // 0x177d @0x18
0x1765…177f at0019 = EOL // 0x177e @0x19
0x1765…177f }
0x177f…178a a4e1 2280 OPEN K1$,R
0x177f…178a LineComalBin {
0x177f…178a ptr = 0xa4e1 // 0x177f @0x0
0x177f…178a lno = 0x08e8 // 0x1781 @0x2
0x177f…178a at0004 = ╱a7╱ OPEN ╱ // 0x1783 @0x4
0x177f…178a at0005 = ╱4b╱K╱ // 0x1784 @0x5
0x177f…178a at0006 = ╱31╱1╱ // 0x1785 @0x6
0x177f…178a at0007 = ╱ef╱$╱ // 0x1786 @0x7
0x177f…178a at0008 = ╱ec╱,╱ // 0x1787 @0x8
0x177f…178a at0009 = ╱52╱R╱ // 0x1788 @0x9
0x177f…178a at000a = EOL // 0x1789 @0xa
0x177f…178a }
0x178a…179d a4f4 2290 EXEC FEJL(W,E,K1$)
0x178a…179d LineComalBin {
0x178a…179d ptr = 0xa4f4 // 0x178a @0x0
0x178a…179d lno = 0x08f2 // 0x178c @0x2
0x178a…179d at0004 = ╱9d╱ EXEC ╱ // 0x178e @0x4
0x178a…179d at0005 = ╱46╱F╱ // 0x178f @0x5
0x178a…179d at0006 = ╱45╱E╱ // 0x1790 @0x6
0x178a…179d at0007 = ╱4a╱J╱ // 0x1791 @0x7
0x178a…179d at0008 = ╱4c╱L╱ // 0x1792 @0x8
0x178a…179d at0009 = ╱ed╱(╱ // 0x1793 @0x9
0x178a…179d at000a = ╱57╱W╱ // 0x1794 @0xa
0x178a…179d at000b = ╱ec╱,╱ // 0x1795 @0xb
0x178a…179d at000c = ╱45╱E╱ // 0x1796 @0xc
0x178a…179d at000d = ╱ec╱,╱ // 0x1797 @0xd
0x178a…179d at000e = ╱4b╱K╱ // 0x1798 @0xe
0x178a…179d at000f = ╱31╱1╱ // 0x1799 @0xf
0x178a…179d at0010 = ╱ef╱$╱ // 0x179a @0x10
0x178a…179d at0011 = ╱ee╱)╱ // 0x179b @0x11
0x178a…179d at0012 = EOL // 0x179c @0x12
0x178a…179d }
0x179d…17c8 a51f 2300 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL
0x179d…17c8 LineComalBin {
0x179d…17c8 ptr = 0xa51f // 0x179d @0x0
0x179d…17c8 lno = 0x08fc // 0x179f @0x2
0x179d…17c8 at0004 = ╱a9╱ GET ╱ // 0x17a1 @0x4
0x179d…17c8 at0005 = ╱4b╱K╱ // 0x17a2 @0x5
0x179d…17c8 at0006 = ╱31╱1╱ // 0x17a3 @0x6
0x179d…17c8 at0007 = ╱ef╱$╱ // 0x17a4 @0x7
0x179d…17c8 at0008 = ╱ec╱,╱ // 0x17a5 @0x8
0x179d…17c8 at0009 = ╱45╱E╱ // 0x17a6 @0x9
0x179d…17c8 at000a = ╱f0╱:╱ // 0x17a7 @0xa
0x179d…17c8 at000b = ╱4d╱M╱ // 0x17a8 @0xb
0x179d…17c8 at000c = ╱46╱F╱ // 0x17a9 @0xc
0x179d…17c8 at000d = ╱41╱A╱ // 0x17aa @0xd
0x179d…17c8 at000e = ╱4e╱N╱ // 0x17ab @0xe
0x179d…17c8 at000f = ╱54╱T╱ // 0x17ac @0xf
0x179d…17c8 at0010 = ╱41╱A╱ // 0x17ad @0x10
0x179d…17c8 at0011 = ╱4c╱L╱ // 0x17ae @0x11
0x179d…17c8 at0012 = ╱ec╱,╱ // 0x17af @0x12
0x179d…17c8 at0013 = ╱4d╱M╱ // 0x17b0 @0x13
0x179d…17c8 at0014 = ╱44╱D╱ // 0x17b1 @0x14
0x179d…17c8 at0015 = ╱41╱A╱ // 0x17b2 @0x15
0x179d…17c8 at0016 = ╱4e╱N╱ // 0x17b3 @0x16
0x179d…17c8 at0017 = ╱54╱T╱ // 0x17b4 @0x17
0x179d…17c8 at0018 = ╱41╱A╱ // 0x17b5 @0x18
0x179d…17c8 at0019 = ╱4c╱L╱ // 0x17b6 @0x19
0x179d…17c8 at001a = ╱ec╱,╱ // 0x17b7 @0x1a
0x179d…17c8 at001b = ╱4d╱M╱ // 0x17b8 @0x1b
0x179d…17c8 at001c = ╱4b╱K╱ // 0x17b9 @0x1c
0x179d…17c8 at001d = ╱41╱A╱ // 0x17ba @0x1d
0x179d…17c8 at001e = ╱4e╱N╱ // 0x17bb @0x1e
0x179d…17c8 at001f = ╱54╱T╱ // 0x17bc @0x1f
0x179d…17c8 at0020 = ╱41╱A╱ // 0x17bd @0x20
0x179d…17c8 at0021 = ╱4c╱L╱ // 0x17be @0x21
0x179d…17c8 at0022 = ╱ec╱,╱ // 0x17bf @0x22
0x179d…17c8 at0023 = ╱4d╱M╱ // 0x17c0 @0x23
0x179d…17c8 at0024 = ╱56╱V╱ // 0x17c1 @0x24
0x179d…17c8 at0025 = ╱41╱A╱ // 0x17c2 @0x25
0x179d…17c8 at0026 = ╱4e╱N╱ // 0x17c3 @0x26
0x179d…17c8 at0027 = ╱54╱T╱ // 0x17c4 @0x27
0x179d…17c8 at0028 = ╱41╱A╱ // 0x17c5 @0x28
0x179d…17c8 at0029 = ╱4c╱L╱ // 0x17c6 @0x29
0x179d…17c8 at002a = EOL // 0x17c7 @0x2a
0x179d…17c8 }
0x17c8…17db a532 2310 EXEC FEJL(W,G,K1$)
0x17c8…17db LineComalBin {
0x17c8…17db ptr = 0xa532 // 0x17c8 @0x0
0x17c8…17db lno = 0x0906 // 0x17ca @0x2
0x17c8…17db at0004 = ╱9d╱ EXEC ╱ // 0x17cc @0x4
0x17c8…17db at0005 = ╱46╱F╱ // 0x17cd @0x5
0x17c8…17db at0006 = ╱45╱E╱ // 0x17ce @0x6
0x17c8…17db at0007 = ╱4a╱J╱ // 0x17cf @0x7
0x17c8…17db at0008 = ╱4c╱L╱ // 0x17d0 @0x8
0x17c8…17db at0009 = ╱ed╱(╱ // 0x17d1 @0x9
0x17c8…17db at000a = ╱57╱W╱ // 0x17d2 @0xa
0x17c8…17db at000b = ╱ec╱,╱ // 0x17d3 @0xb
0x17c8…17db at000c = ╱47╱G╱ // 0x17d4 @0xc
0x17c8…17db at000d = ╱ec╱,╱ // 0x17d5 @0xd
0x17c8…17db at000e = ╱4b╱K╱ // 0x17d6 @0xe
0x17c8…17db at000f = ╱31╱1╱ // 0x17d7 @0xf
0x17c8…17db at0010 = ╱ef╱$╱ // 0x17d8 @0x10
0x17c8…17db at0011 = ╱ee╱)╱ // 0x17d9 @0x11
0x17c8…17db at0012 = EOL // 0x17da @0x12
0x17c8…17db }
0x17db…17fc a553 2320 GET K1$,4:MKPOST,MFAK,MVGR
0x17db…17fc LineComalBin {
0x17db…17fc ptr = 0xa553 // 0x17db @0x0
0x17db…17fc lno = 0x0910 // 0x17dd @0x2
0x17db…17fc at0004 = ╱a9╱ GET ╱ // 0x17df @0x4
0x17db…17fc at0005 = ╱4b╱K╱ // 0x17e0 @0x5
0x17db…17fc at0006 = ╱31╱1╱ // 0x17e1 @0x6
0x17db…17fc at0007 = ╱ef╱$╱ // 0x17e2 @0x7
0x17db…17fc at0008 = ╱ec╱,╱ // 0x17e3 @0x8
0x17db…17fc at0009 = ╱34╱4╱ // 0x17e4 @0x9
0x17db…17fc at000a = ╱fe00008003╱ // 0x17e5 @0xa
0x17db…17fc at000f = ╱f0╱:╱ // 0x17ea @0xf
0x17db…17fc at0010 = ╱4d╱M╱ // 0x17eb @0x10
0x17db…17fc at0011 = ╱4b╱K╱ // 0x17ec @0x11
0x17db…17fc at0012 = ╱50╱P╱ // 0x17ed @0x12
0x17db…17fc at0013 = ╱4f╱O╱ // 0x17ee @0x13
0x17db…17fc at0014 = ╱53╱S╱ // 0x17ef @0x14
0x17db…17fc at0015 = ╱54╱T╱ // 0x17f0 @0x15
0x17db…17fc at0016 = ╱ec╱,╱ // 0x17f1 @0x16
0x17db…17fc at0017 = ╱4d╱M╱ // 0x17f2 @0x17
0x17db…17fc at0018 = ╱46╱F╱ // 0x17f3 @0x18
0x17db…17fc at0019 = ╱41╱A╱ // 0x17f4 @0x19
0x17db…17fc at001a = ╱4b╱K╱ // 0x17f5 @0x1a
0x17db…17fc at001b = ╱ec╱,╱ // 0x17f6 @0x1b
0x17db…17fc at001c = ╱4d╱M╱ // 0x17f7 @0x1c
0x17db…17fc at001d = ╱56╱V╱ // 0x17f8 @0x1d
0x17db…17fc at001e = ╱47╱G╱ // 0x17f9 @0x1e
0x17db…17fc at001f = ╱52╱R╱ // 0x17fa @0x1f
0x17db…17fc at0020 = EOL // 0x17fb @0x20
0x17db…17fc }
0x17fc…180f a566 2330 EXEC FEJL(W,V,K1$)
0x17fc…180f LineComalBin {
0x17fc…180f ptr = 0xa566 // 0x17fc @0x0
0x17fc…180f lno = 0x091a // 0x17fe @0x2
0x17fc…180f at0004 = ╱9d╱ EXEC ╱ // 0x1800 @0x4
0x17fc…180f at0005 = ╱46╱F╱ // 0x1801 @0x5
0x17fc…180f at0006 = ╱45╱E╱ // 0x1802 @0x6
0x17fc…180f at0007 = ╱4a╱J╱ // 0x1803 @0x7
0x17fc…180f at0008 = ╱4c╱L╱ // 0x1804 @0x8
0x17fc…180f at0009 = ╱ed╱(╱ // 0x1805 @0x9
0x17fc…180f at000a = ╱57╱W╱ // 0x1806 @0xa
0x17fc…180f at000b = ╱ec╱,╱ // 0x1807 @0xb
0x17fc…180f at000c = ╱56╱V╱ // 0x1808 @0xc
0x17fc…180f at000d = ╱ec╱,╱ // 0x1809 @0xd
0x17fc…180f at000e = ╱4b╱K╱ // 0x180a @0xe
0x17fc…180f at000f = ╱31╱1╱ // 0x180b @0xf
0x17fc…180f at0010 = ╱ef╱$╱ // 0x180c @0x10
0x17fc…180f at0011 = ╱ee╱)╱ // 0x180d @0x11
0x17fc…180f at0012 = EOL // 0x180e @0x12
0x17fc…180f }
0x180f…1825 a57c 2340 GET K1$,8:DIVNR
0x180f…1825 LineComalBin {
0x180f…1825 ptr = 0xa57c // 0x180f @0x0
0x180f…1825 lno = 0x0924 // 0x1811 @0x2
0x180f…1825 at0004 = ╱a9╱ GET ╱ // 0x1813 @0x4
0x180f…1825 at0005 = ╱4b╱K╱ // 0x1814 @0x5
0x180f…1825 at0006 = ╱31╱1╱ // 0x1815 @0x6
0x180f…1825 at0007 = ╱ef╱$╱ // 0x1816 @0x7
0x180f…1825 at0008 = ╱ec╱,╱ // 0x1817 @0x8
0x180f…1825 at0009 = ╱38╱8╱ // 0x1818 @0x9
0x180f…1825 at000a = ╱fe00008004╱ // 0x1819 @0xa
0x180f…1825 at000f = ╱f0╱:╱ // 0x181e @0xf
0x180f…1825 at0010 = ╱44╱D╱ // 0x181f @0x10
0x180f…1825 at0011 = ╱49╱I╱ // 0x1820 @0x11
0x180f…1825 at0012 = ╱56╱V╱ // 0x1821 @0x12
0x180f…1825 at0013 = ╱4e╱N╱ // 0x1822 @0x13
0x180f…1825 at0014 = ╱52╱R╱ // 0x1823 @0x14
0x180f…1825 at0015 = EOL // 0x1824 @0x15
0x180f…1825 }
0x1825…183e a595 2350 EXEC FEJL(W,21,K1$)
0x1825…183e LineComalBin {
0x1825…183e ptr = 0xa595 // 0x1825 @0x0
0x1825…183e lno = 0x092e // 0x1827 @0x2
0x1825…183e at0004 = ╱9d╱ EXEC ╱ // 0x1829 @0x4
0x1825…183e at0005 = ╱46╱F╱ // 0x182a @0x5
0x1825…183e at0006 = ╱45╱E╱ // 0x182b @0x6
0x1825…183e at0007 = ╱4a╱J╱ // 0x182c @0x7
0x1825…183e at0008 = ╱4c╱L╱ // 0x182d @0x8
0x1825…183e at0009 = ╱ed╱(╱ // 0x182e @0x9
0x1825…183e at000a = ╱57╱W╱ // 0x182f @0xa
0x1825…183e at000b = ╱ec╱,╱ // 0x1830 @0xb
0x1825…183e at000c = ╱32╱2╱ // 0x1831 @0xc
0x1825…183e at000d = ╱31╱1╱ // 0x1832 @0xd
0x1825…183e at000e = ╱fe0000a805╱ // 0x1833 @0xe
0x1825…183e at0013 = ╱ec╱,╱ // 0x1838 @0x13
0x1825…183e at0014 = ╱4b╱K╱ // 0x1839 @0x14
0x1825…183e at0015 = ╱31╱1╱ // 0x183a @0x15
0x1825…183e at0016 = ╱ef╱$╱ // 0x183b @0x16
0x1825…183e at0017 = ╱ee╱)╱ // 0x183c @0x17
0x1825…183e at0018 = EOL // 0x183d @0x18
0x1825…183e }
0x183e…1854 a5ab 2360 GET K1$,W:KRTAL,VTAL
0x183e…1854 LineComalBin {
0x183e…1854 ptr = 0xa5ab // 0x183e @0x0
0x183e…1854 lno = 0x0938 // 0x1840 @0x2
0x183e…1854 at0004 = ╱a9╱ GET ╱ // 0x1842 @0x4
0x183e…1854 at0005 = ╱4b╱K╱ // 0x1843 @0x5
0x183e…1854 at0006 = ╱31╱1╱ // 0x1844 @0x6
0x183e…1854 at0007 = ╱ef╱$╱ // 0x1845 @0x7
0x183e…1854 at0008 = ╱ec╱,╱ // 0x1846 @0x8
0x183e…1854 at0009 = ╱57╱W╱ // 0x1847 @0x9
0x183e…1854 at000a = ╱f0╱:╱ // 0x1848 @0xa
0x183e…1854 at000b = ╱4b╱K╱ // 0x1849 @0xb
0x183e…1854 at000c = ╱52╱R╱ // 0x184a @0xc
0x183e…1854 at000d = ╱54╱T╱ // 0x184b @0xd
0x183e…1854 at000e = ╱41╱A╱ // 0x184c @0xe
0x183e…1854 at000f = ╱4c╱L╱ // 0x184d @0xf
0x183e…1854 at0010 = ╱ec╱,╱ // 0x184e @0x10
0x183e…1854 at0011 = ╱56╱V╱ // 0x184f @0x11
0x183e…1854 at0012 = ╱54╱T╱ // 0x1850 @0x12
0x183e…1854 at0013 = ╱41╱A╱ // 0x1851 @0x13
0x183e…1854 at0014 = ╱4c╱L╱ // 0x1852 @0x14
0x183e…1854 at0015 = EOL // 0x1853 @0x15
0x183e…1854 }
0x1854…186c a5c3 2370 EXEC FEJL(W,4,K1$)
0x1854…186c LineComalBin {
0x1854…186c ptr = 0xa5c3 // 0x1854 @0x0
0x1854…186c lno = 0x0942 // 0x1856 @0x2
0x1854…186c at0004 = ╱9d╱ EXEC ╱ // 0x1858 @0x4
0x1854…186c at0005 = ╱46╱F╱ // 0x1859 @0x5
0x1854…186c at0006 = ╱45╱E╱ // 0x185a @0x6
0x1854…186c at0007 = ╱4a╱J╱ // 0x185b @0x7
0x1854…186c at0008 = ╱4c╱L╱ // 0x185c @0x8
0x1854…186c at0009 = ╱ed╱(╱ // 0x185d @0x9
0x1854…186c at000a = ╱57╱W╱ // 0x185e @0xa
0x1854…186c at000b = ╱ec╱,╱ // 0x185f @0xb
0x1854…186c at000c = ╱34╱4╱ // 0x1860 @0xc
0x1854…186c at000d = ╱fe00008003╱ // 0x1861 @0xd
0x1854…186c at0012 = ╱ec╱,╱ // 0x1866 @0x12
0x1854…186c at0013 = ╱4b╱K╱ // 0x1867 @0x13
0x1854…186c at0014 = ╱31╱1╱ // 0x1868 @0x14
0x1854…186c at0015 = ╱ef╱$╱ // 0x1869 @0x15
0x1854…186c at0016 = ╱ee╱)╱ // 0x186a @0x16
0x1854…186c at0017 = EOL // 0x186b @0x17
0x1854…186c }
0x186c…1880 a5d7 2380 GET K1$,10:N$
0x186c…1880 LineComalBin {
0x186c…1880 ptr = 0xa5d7 // 0x186c @0x0
0x186c…1880 lno = 0x094c // 0x186e @0x2
0x186c…1880 at0004 = ╱a9╱ GET ╱ // 0x1870 @0x4
0x186c…1880 at0005 = ╱4b╱K╱ // 0x1871 @0x5
0x186c…1880 at0006 = ╱31╱1╱ // 0x1872 @0x6
0x186c…1880 at0007 = ╱ef╱$╱ // 0x1873 @0x7
0x186c…1880 at0008 = ╱ec╱,╱ // 0x1874 @0x8
0x186c…1880 at0009 = ╱31╱1╱ // 0x1875 @0x9
0x186c…1880 at000a = ╱30╱0╱ // 0x1876 @0xa
0x186c…1880 at000b = ╱fe0000a004╱ // 0x1877 @0xb
0x186c…1880 at0010 = ╱f0╱:╱ // 0x187c @0x10
0x186c…1880 at0011 = ╱4e╱N╱ // 0x187d @0x11
0x186c…1880 at0012 = ╱ef╱$╱ // 0x187e @0x12
0x186c…1880 at0013 = EOL // 0x187f @0x13
0x186c…1880 }
0x1880…1898 a5ef 2390 EXEC FEJL(W,5,K1$)
0x1880…1898 LineComalBin {
0x1880…1898 ptr = 0xa5ef // 0x1880 @0x0
0x1880…1898 lno = 0x0956 // 0x1882 @0x2
0x1880…1898 at0004 = ╱9d╱ EXEC ╱ // 0x1884 @0x4
0x1880…1898 at0005 = ╱46╱F╱ // 0x1885 @0x5
0x1880…1898 at0006 = ╱45╱E╱ // 0x1886 @0x6
0x1880…1898 at0007 = ╱4a╱J╱ // 0x1887 @0x7
0x1880…1898 at0008 = ╱4c╱L╱ // 0x1888 @0x8
0x1880…1898 at0009 = ╱ed╱(╱ // 0x1889 @0x9
0x1880…1898 at000a = ╱57╱W╱ // 0x188a @0xa
0x1880…1898 at000b = ╱ec╱,╱ // 0x188b @0xb
0x1880…1898 at000c = ╱35╱5╱ // 0x188c @0xc
0x1880…1898 at000d = ╱fe0000a003╱ // 0x188d @0xd
0x1880…1898 at0012 = ╱ec╱,╱ // 0x1892 @0x12
0x1880…1898 at0013 = ╱4b╱K╱ // 0x1893 @0x13
0x1880…1898 at0014 = ╱31╱1╱ // 0x1894 @0x14
0x1880…1898 at0015 = ╱ef╱$╱ // 0x1895 @0x15
0x1880…1898 at0016 = ╱ee╱)╱ // 0x1896 @0x16
0x1880…1898 at0017 = EOL // 0x1897 @0x17
0x1880…1898 }
0x1898…18ad a604 2400 GET K1$,11:K2$
0x1898…18ad LineComalBin {
0x1898…18ad ptr = 0xa604 // 0x1898 @0x0
0x1898…18ad lno = 0x0960 // 0x189a @0x2
0x1898…18ad at0004 = ╱a9╱ GET ╱ // 0x189c @0x4
0x1898…18ad at0005 = ╱4b╱K╱ // 0x189d @0x5
0x1898…18ad at0006 = ╱31╱1╱ // 0x189e @0x6
0x1898…18ad at0007 = ╱ef╱$╱ // 0x189f @0x7
0x1898…18ad at0008 = ╱ec╱,╱ // 0x18a0 @0x8
0x1898…18ad at0009 = ╱31╱1╱ // 0x18a1 @0x9
0x1898…18ad at000a = ╱31╱1╱ // 0x18a2 @0xa
0x1898…18ad at000b = ╱fe0000b004╱ // 0x18a3 @0xb
0x1898…18ad at0010 = ╱f0╱:╱ // 0x18a8 @0x10
0x1898…18ad at0011 = ╱4b╱K╱ // 0x18a9 @0x11
0x1898…18ad at0012 = ╱32╱2╱ // 0x18aa @0x12
0x1898…18ad at0013 = ╱ef╱$╱ // 0x18ab @0x13
0x1898…18ad at0014 = EOL // 0x18ac @0x14
0x1898…18ad }
0x18ad…18c5 a61c 2410 EXEC FEJL(W,6,K1$)
0x18ad…18c5 LineComalBin {
0x18ad…18c5 ptr = 0xa61c // 0x18ad @0x0
0x18ad…18c5 lno = 0x096a // 0x18af @0x2
0x18ad…18c5 at0004 = ╱9d╱ EXEC ╱ // 0x18b1 @0x4
0x18ad…18c5 at0005 = ╱46╱F╱ // 0x18b2 @0x5
0x18ad…18c5 at0006 = ╱45╱E╱ // 0x18b3 @0x6
0x18ad…18c5 at0007 = ╱4a╱J╱ // 0x18b4 @0x7
0x18ad…18c5 at0008 = ╱4c╱L╱ // 0x18b5 @0x8
0x18ad…18c5 at0009 = ╱ed╱(╱ // 0x18b6 @0x9
0x18ad…18c5 at000a = ╱57╱W╱ // 0x18b7 @0xa
0x18ad…18c5 at000b = ╱ec╱,╱ // 0x18b8 @0xb
0x18ad…18c5 at000c = ╱36╱6╱ // 0x18b9 @0xc
0x18ad…18c5 at000d = ╱fe0000c003╱ // 0x18ba @0xd
0x18ad…18c5 at0012 = ╱ec╱,╱ // 0x18bf @0x12
0x18ad…18c5 at0013 = ╱4b╱K╱ // 0x18c0 @0x13
0x18ad…18c5 at0014 = ╱31╱1╱ // 0x18c1 @0x14
0x18ad…18c5 at0015 = ╱ef╱$╱ // 0x18c2 @0x15
0x18ad…18c5 at0016 = ╱ee╱)╱ // 0x18c3 @0x16
0x18ad…18c5 at0017 = EOL // 0x18c4 @0x17
0x18ad…18c5 }
0x18c5…18da a631 2420 GET K1$,14:K3$
0x18c5…18da LineComalBin {
0x18c5…18da ptr = 0xa631 // 0x18c5 @0x0
0x18c5…18da lno = 0x0974 // 0x18c7 @0x2
0x18c5…18da at0004 = ╱a9╱ GET ╱ // 0x18c9 @0x4
0x18c5…18da at0005 = ╱4b╱K╱ // 0x18ca @0x5
0x18c5…18da at0006 = ╱31╱1╱ // 0x18cb @0x6
0x18c5…18da at0007 = ╱ef╱$╱ // 0x18cc @0x7
0x18c5…18da at0008 = ╱ec╱,╱ // 0x18cd @0x8
0x18c5…18da at0009 = ╱31╱1╱ // 0x18ce @0x9
0x18c5…18da at000a = ╱34╱4╱ // 0x18cf @0xa
0x18c5…18da at000b = ╱fe0000e004╱ // 0x18d0 @0xb
0x18c5…18da at0010 = ╱f0╱:╱ // 0x18d5 @0x10
0x18c5…18da at0011 = ╱4b╱K╱ // 0x18d6 @0x11
0x18c5…18da at0012 = ╱33╱3╱ // 0x18d7 @0x12
0x18c5…18da at0013 = ╱ef╱$╱ // 0x18d8 @0x13
0x18c5…18da at0014 = EOL // 0x18d9 @0x14
0x18c5…18da }
0x18da…18f2 a649 2430 EXEC FEJL(W,7,K1$)
0x18da…18f2 LineComalBin {
0x18da…18f2 ptr = 0xa649 // 0x18da @0x0
0x18da…18f2 lno = 0x097e // 0x18dc @0x2
0x18da…18f2 at0004 = ╱9d╱ EXEC ╱ // 0x18de @0x4
0x18da…18f2 at0005 = ╱46╱F╱ // 0x18df @0x5
0x18da…18f2 at0006 = ╱45╱E╱ // 0x18e0 @0x6
0x18da…18f2 at0007 = ╱4a╱J╱ // 0x18e1 @0x7
0x18da…18f2 at0008 = ╱4c╱L╱ // 0x18e2 @0x8
0x18da…18f2 at0009 = ╱ed╱(╱ // 0x18e3 @0x9
0x18da…18f2 at000a = ╱57╱W╱ // 0x18e4 @0xa
0x18da…18f2 at000b = ╱ec╱,╱ // 0x18e5 @0xb
0x18da…18f2 at000c = ╱37╱7╱ // 0x18e6 @0xc
0x18da…18f2 at000d = ╱fe0000e003╱ // 0x18e7 @0xd
0x18da…18f2 at0012 = ╱ec╱,╱ // 0x18ec @0x12
0x18da…18f2 at0013 = ╱4b╱K╱ // 0x18ed @0x13
0x18da…18f2 at0014 = ╱31╱1╱ // 0x18ee @0x14
0x18da…18f2 at0015 = ╱ef╱$╱ // 0x18ef @0x15
0x18da…18f2 at0016 = ╱ee╱)╱ // 0x18f0 @0x16
0x18da…18f2 at0017 = EOL // 0x18f1 @0x17
0x18da…18f2 }
0x18f2…1907 a65e 2440 GET K1$,18:K4$
0x18f2…1907 LineComalBin {
0x18f2…1907 ptr = 0xa65e // 0x18f2 @0x0
0x18f2…1907 lno = 0x0988 // 0x18f4 @0x2
0x18f2…1907 at0004 = ╱a9╱ GET ╱ // 0x18f6 @0x4
0x18f2…1907 at0005 = ╱4b╱K╱ // 0x18f7 @0x5
0x18f2…1907 at0006 = ╱31╱1╱ // 0x18f8 @0x6
0x18f2…1907 at0007 = ╱ef╱$╱ // 0x18f9 @0x7
0x18f2…1907 at0008 = ╱ec╱,╱ // 0x18fa @0x8
0x18f2…1907 at0009 = ╱31╱1╱ // 0x18fb @0x9
0x18f2…1907 at000a = ╱38╱8╱ // 0x18fc @0xa
0x18f2…1907 at000b = ╱fe00009005╱ // 0x18fd @0xb
0x18f2…1907 at0010 = ╱f0╱:╱ // 0x1902 @0x10
0x18f2…1907 at0011 = ╱4b╱K╱ // 0x1903 @0x11
0x18f2…1907 at0012 = ╱34╱4╱ // 0x1904 @0x12
0x18f2…1907 at0013 = ╱ef╱$╱ // 0x1905 @0x13
0x18f2…1907 at0014 = EOL // 0x1906 @0x14
0x18f2…1907 }
0x1907…191f a676 2450 EXEC FEJL(W,8,K1$)
0x1907…191f LineComalBin {
0x1907…191f ptr = 0xa676 // 0x1907 @0x0
0x1907…191f lno = 0x0992 // 0x1909 @0x2
0x1907…191f at0004 = ╱9d╱ EXEC ╱ // 0x190b @0x4
0x1907…191f at0005 = ╱46╱F╱ // 0x190c @0x5
0x1907…191f at0006 = ╱45╱E╱ // 0x190d @0x6
0x1907…191f at0007 = ╱4a╱J╱ // 0x190e @0x7
0x1907…191f at0008 = ╱4c╱L╱ // 0x190f @0x8
0x1907…191f at0009 = ╱ed╱(╱ // 0x1910 @0x9
0x1907…191f at000a = ╱57╱W╱ // 0x1911 @0xa
0x1907…191f at000b = ╱ec╱,╱ // 0x1912 @0xb
0x1907…191f at000c = ╱38╱8╱ // 0x1913 @0xc
0x1907…191f at000d = ╱fe00008004╱ // 0x1914 @0xd
0x1907…191f at0012 = ╱ec╱,╱ // 0x1919 @0x12
0x1907…191f at0013 = ╱4b╱K╱ // 0x191a @0x13
0x1907…191f at0014 = ╱31╱1╱ // 0x191b @0x14
0x1907…191f at0015 = ╱ef╱$╱ // 0x191c @0x15
0x1907…191f at0016 = ╱ee╱)╱ // 0x191d @0x16
0x1907…191f at0017 = EOL // 0x191e @0x17
0x1907…191f }
0x191f…1934 a68b 2460 GET K1$,36:K5$
0x191f…1934 LineComalBin {
0x191f…1934 ptr = 0xa68b // 0x191f @0x0
0x191f…1934 lno = 0x099c // 0x1921 @0x2
0x191f…1934 at0004 = ╱a9╱ GET ╱ // 0x1923 @0x4
0x191f…1934 at0005 = ╱4b╱K╱ // 0x1924 @0x5
0x191f…1934 at0006 = ╱31╱1╱ // 0x1925 @0x6
0x191f…1934 at0007 = ╱ef╱$╱ // 0x1926 @0x7
0x191f…1934 at0008 = ╱ec╱,╱ // 0x1927 @0x8
0x191f…1934 at0009 = ╱33╱3╱ // 0x1928 @0x9
0x191f…1934 at000a = ╱36╱6╱ // 0x1929 @0xa
0x191f…1934 at000b = ╱fe00009006╱ // 0x192a @0xb
0x191f…1934 at0010 = ╱f0╱:╱ // 0x192f @0x10
0x191f…1934 at0011 = ╱4b╱K╱ // 0x1930 @0x11
0x191f…1934 at0012 = ╱35╱5╱ // 0x1931 @0x12
0x191f…1934 at0013 = ╱ef╱$╱ // 0x1932 @0x13
0x191f…1934 at0014 = EOL // 0x1933 @0x14
0x191f…1934 }
0x1934…1947 a69e 2470 EXEC FEJL(W,W,K1$)
0x1934…1947 LineComalBin {
0x1934…1947 ptr = 0xa69e // 0x1934 @0x0
0x1934…1947 lno = 0x09a6 // 0x1936 @0x2
0x1934…1947 at0004 = ╱9d╱ EXEC ╱ // 0x1938 @0x4
0x1934…1947 at0005 = ╱46╱F╱ // 0x1939 @0x5
0x1934…1947 at0006 = ╱45╱E╱ // 0x193a @0x6
0x1934…1947 at0007 = ╱4a╱J╱ // 0x193b @0x7
0x1934…1947 at0008 = ╱4c╱L╱ // 0x193c @0x8
0x1934…1947 at0009 = ╱ed╱(╱ // 0x193d @0x9
0x1934…1947 at000a = ╱57╱W╱ // 0x193e @0xa
0x1934…1947 at000b = ╱ec╱,╱ // 0x193f @0xb
0x1934…1947 at000c = ╱57╱W╱ // 0x1940 @0xc
0x1934…1947 at000d = ╱ec╱,╱ // 0x1941 @0xd
0x1934…1947 at000e = ╱4b╱K╱ // 0x1942 @0xe
0x1934…1947 at000f = ╱31╱1╱ // 0x1943 @0xf
0x1934…1947 at0010 = ╱ef╱$╱ // 0x1944 @0x10
0x1934…1947 at0011 = ╱ee╱)╱ // 0x1945 @0x11
0x1934…1947 at0012 = EOL // 0x1946 @0x12
0x1934…1947 }
0x1947…1967 a6be 2471 GET K1$,43:I,I,I,DUNDKONT
0x1947…1967 LineComalBin {
0x1947…1967 ptr = 0xa6be // 0x1947 @0x0
0x1947…1967 lno = 0x09a7 // 0x1949 @0x2
0x1947…1967 at0004 = ╱a9╱ GET ╱ // 0x194b @0x4
0x1947…1967 at0005 = ╱4b╱K╱ // 0x194c @0x5
0x1947…1967 at0006 = ╱31╱1╱ // 0x194d @0x6
0x1947…1967 at0007 = ╱ef╱$╱ // 0x194e @0x7
0x1947…1967 at0008 = ╱ec╱,╱ // 0x194f @0x8
0x1947…1967 at0009 = ╱34╱4╱ // 0x1950 @0x9
0x1947…1967 at000a = ╱33╱3╱ // 0x1951 @0xa
0x1947…1967 at000b = ╱fe0000ac06╱ // 0x1952 @0xb
0x1947…1967 at0010 = ╱f0╱:╱ // 0x1957 @0x10
0x1947…1967 at0011 = ╱49╱I╱ // 0x1958 @0x11
0x1947…1967 at0012 = ╱ec╱,╱ // 0x1959 @0x12
0x1947…1967 at0013 = ╱49╱I╱ // 0x195a @0x13
0x1947…1967 at0014 = ╱ec╱,╱ // 0x195b @0x14
0x1947…1967 at0015 = ╱49╱I╱ // 0x195c @0x15
0x1947…1967 at0016 = ╱ec╱,╱ // 0x195d @0x16
0x1947…1967 at0017 = ╱44╱D╱ // 0x195e @0x17
0x1947…1967 at0018 = ╱55╱U╱ // 0x195f @0x18
0x1947…1967 at0019 = ╱4e╱N╱ // 0x1960 @0x19
0x1947…1967 at001a = ╱44╱D╱ // 0x1961 @0x1a
0x1947…1967 at001b = ╱4b╱K╱ // 0x1962 @0x1b
0x1947…1967 at001c = ╱4f╱O╱ // 0x1963 @0x1c
0x1947…1967 at001d = ╱4e╱N╱ // 0x1964 @0x1d
0x1947…1967 at001e = ╱54╱T╱ // 0x1965 @0x1e
0x1947…1967 at001f = EOL // 0x1966 @0x1f
0x1947…1967 }
0x1967…1980 a6d7 2472 EXEC FEJL(W,95,K1$)
0x1967…1980 LineComalBin {
0x1967…1980 ptr = 0xa6d7 // 0x1967 @0x0
0x1967…1980 lno = 0x09a8 // 0x1969 @0x2
0x1967…1980 at0004 = ╱9d╱ EXEC ╱ // 0x196b @0x4
0x1967…1980 at0005 = ╱46╱F╱ // 0x196c @0x5
0x1967…1980 at0006 = ╱45╱E╱ // 0x196d @0x6
0x1967…1980 at0007 = ╱4a╱J╱ // 0x196e @0x7
0x1967…1980 at0008 = ╱4c╱L╱ // 0x196f @0x8
0x1967…1980 at0009 = ╱ed╱(╱ // 0x1970 @0x9
0x1967…1980 at000a = ╱57╱W╱ // 0x1971 @0xa
0x1967…1980 at000b = ╱ec╱,╱ // 0x1972 @0xb
0x1967…1980 at000c = ╱39╱9╱ // 0x1973 @0xc
0x1967…1980 at000d = ╱35╱5╱ // 0x1974 @0xd
0x1967…1980 at000e = ╱fe0000be07╱ // 0x1975 @0xe
0x1967…1980 at0013 = ╱ec╱,╱ // 0x197a @0x13
0x1967…1980 at0014 = ╱4b╱K╱ // 0x197b @0x14
0x1967…1980 at0015 = ╱31╱1╱ // 0x197c @0x15
0x1967…1980 at0016 = ╱ef╱$╱ // 0x197d @0x16
0x1967…1980 at0017 = ╱ee╱)╱ // 0x197e @0x17
0x1967…1980 at0018 = EOL // 0x197f @0x18
0x1967…1980 }
0x1980…1989 a6e0 2480 CLOSE K1$
0x1980…1989 LineComalBin {
0x1980…1989 ptr = 0xa6e0 // 0x1980 @0x0
0x1980…1989 lno = 0x09b0 // 0x1982 @0x2
0x1980…1989 at0004 = ╱a8╱ CLOSE ╱ // 0x1984 @0x4
0x1980…1989 at0005 = ╱4b╱K╱ // 0x1985 @0x5
0x1980…1989 at0006 = ╱31╱1╱ // 0x1986 @0x6
0x1980…1989 at0007 = ╱ef╱$╱ // 0x1987 @0x7
0x1980…1989 at0008 = EOL // 0x1988 @0x8
0x1980…1989 }
0x1989…19a2 a6f9 2490 EXEC FEJL(W,10,K1$)
0x1989…19a2 LineComalBin {
0x1989…19a2 ptr = 0xa6f9 // 0x1989 @0x0
0x1989…19a2 lno = 0x09ba // 0x198b @0x2
0x1989…19a2 at0004 = ╱9d╱ EXEC ╱ // 0x198d @0x4
0x1989…19a2 at0005 = ╱46╱F╱ // 0x198e @0x5
0x1989…19a2 at0006 = ╱45╱E╱ // 0x198f @0x6
0x1989…19a2 at0007 = ╱4a╱J╱ // 0x1990 @0x7
0x1989…19a2 at0008 = ╱4c╱L╱ // 0x1991 @0x8
0x1989…19a2 at0009 = ╱ed╱(╱ // 0x1992 @0x9
0x1989…19a2 at000a = ╱57╱W╱ // 0x1993 @0xa
0x1989…19a2 at000b = ╱ec╱,╱ // 0x1994 @0xb
0x1989…19a2 at000c = ╱31╱1╱ // 0x1995 @0xc
0x1989…19a2 at000d = ╱30╱0╱ // 0x1996 @0xd
0x1989…19a2 at000e = ╱fe0000a004╱ // 0x1997 @0xe
0x1989…19a2 at0013 = ╱ec╱,╱ // 0x199c @0x13
0x1989…19a2 at0014 = ╱4b╱K╱ // 0x199d @0x14
0x1989…19a2 at0015 = ╱31╱1╱ // 0x199e @0x15
0x1989…19a2 at0016 = ╱ef╱$╱ // 0x199f @0x16
0x1989…19a2 at0017 = ╱ee╱)╱ // 0x19a0 @0x17
0x1989…19a2 at0018 = EOL // 0x19a1 @0x18
0x1989…19a2 }
0x19a2…19dc a733 2500 DIM VTAB(MVANTAL,G),FTAB1(MFANTAL DIV 4),FTAB(4,G)
0x19a2…19dc LineComalBin {
0x19a2…19dc ptr = 0xa733 // 0x19a2 @0x0
0x19a2…19dc lno = 0x09c4 // 0x19a4 @0x2
0x19a2…19dc at0004 = ╱87╱ DIM ╱ // 0x19a6 @0x4
0x19a2…19dc at0005 = ╱56╱V╱ // 0x19a7 @0x5
0x19a2…19dc at0006 = ╱54╱T╱ // 0x19a8 @0x6
0x19a2…19dc at0007 = ╱41╱A╱ // 0x19a9 @0x7
0x19a2…19dc at0008 = ╱42╱B╱ // 0x19aa @0x8
0x19a2…19dc at0009 = ╱ed╱(╱ // 0x19ab @0x9
0x19a2…19dc at000a = ╱4d╱M╱ // 0x19ac @0xa
0x19a2…19dc at000b = ╱56╱V╱ // 0x19ad @0xb
0x19a2…19dc at000c = ╱41╱A╱ // 0x19ae @0xc
0x19a2…19dc at000d = ╱4e╱N╱ // 0x19af @0xd
0x19a2…19dc at000e = ╱54╱T╱ // 0x19b0 @0xe
0x19a2…19dc at000f = ╱41╱A╱ // 0x19b1 @0xf
0x19a2…19dc at0010 = ╱4c╱L╱ // 0x19b2 @0x10
0x19a2…19dc at0011 = ╱ec╱,╱ // 0x19b3 @0x11
0x19a2…19dc at0012 = ╱47╱G╱ // 0x19b4 @0x12
0x19a2…19dc at0013 = ╱ee╱)╱ // 0x19b5 @0x13
0x19a2…19dc at0014 = ╱ec╱,╱ // 0x19b6 @0x14
0x19a2…19dc at0015 = ╱46╱F╱ // 0x19b7 @0x15
0x19a2…19dc at0016 = ╱54╱T╱ // 0x19b8 @0x16
0x19a2…19dc at0017 = ╱41╱A╱ // 0x19b9 @0x17
0x19a2…19dc at0018 = ╱42╱B╱ // 0x19ba @0x18
0x19a2…19dc at0019 = ╱31╱1╱ // 0x19bb @0x19
0x19a2…19dc at001a = ╱ed╱(╱ // 0x19bc @0x1a
0x19a2…19dc at001b = ╱4d╱M╱ // 0x19bd @0x1b
0x19a2…19dc at001c = ╱46╱F╱ // 0x19be @0x1c
0x19a2…19dc at001d = ╱41╱A╱ // 0x19bf @0x1d
0x19a2…19dc at001e = ╱4e╱N╱ // 0x19c0 @0x1e
0x19a2…19dc at001f = ╱54╱T╱ // 0x19c1 @0x1f
0x19a2…19dc at0020 = ╱41╱A╱ // 0x19c2 @0x20
0x19a2…19dc at0021 = ╱4c╱L╱ // 0x19c3 @0x21
0x19a2…19dc at0022 = ╱e7╱ DIV ╱ // 0x19c4 @0x22
0x19a2…19dc at0023 = ╱34╱4╱ // 0x19c5 @0x23
0x19a2…19dc at0024 = ╱fe00008003╱ // 0x19c6 @0x24
0x19a2…19dc at0029 = ╱ee╱)╱ // 0x19cb @0x29
0x19a2…19dc at002a = ╱ec╱,╱ // 0x19cc @0x2a
0x19a2…19dc at002b = ╱46╱F╱ // 0x19cd @0x2b
0x19a2…19dc at002c = ╱54╱T╱ // 0x19ce @0x2c
0x19a2…19dc at002d = ╱41╱A╱ // 0x19cf @0x2d
0x19a2…19dc at002e = ╱42╱B╱ // 0x19d0 @0x2e
0x19a2…19dc at002f = ╱ed╱(╱ // 0x19d1 @0x2f
0x19a2…19dc at0030 = ╱34╱4╱ // 0x19d2 @0x30
0x19a2…19dc at0031 = ╱fe00008003╱ // 0x19d3 @0x31
0x19a2…19dc at0036 = ╱ec╱,╱ // 0x19d8 @0x36
0x19a2…19dc at0037 = ╱47╱G╱ // 0x19d9 @0x37
0x19a2…19dc at0038 = ╱ee╱)╱ // 0x19da @0x38
0x19a2…19dc at0039 = EOL // 0x19db @0x39
0x19a2…19dc }
0x19dc…1a0c a763 2510 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$
0x19dc…1a0c LineComalBin {
0x19dc…1a0c ptr = 0xa763 // 0x19dc @0x0
0x19dc…1a0c lno = 0x09ce // 0x19de @0x2
0x19dc…1a0c at0004 = ╱4b╱K╱ // 0x19e0 @0x4
0x19dc…1a0c at0005 = ╱32╱2╱ // 0x19e1 @0x5
0x19dc…1a0c at0006 = ╱ef╱$╱ // 0x19e2 @0x6
0x19dc…1a0c at0007 = ╱dc╱=╱ // 0x19e3 @0x7
0x19dc…1a0c at0008 = ╱4e╱N╱ // 0x19e4 @0x8
0x19dc…1a0c at0009 = ╱ef╱$╱ // 0x19e5 @0x9
0x19dc…1a0c at000a = ╱f1╱+╱ // 0x19e6 @0xa
0x19dc…1a0c at000b = ╱4b╱K╱ // 0x19e7 @0xb
0x19dc…1a0c at000c = ╱32╱2╱ // 0x19e8 @0xc
0x19dc…1a0c at000d = ╱ef╱$╱ // 0x19e9 @0xd
0x19dc…1a0c at000e = ╱eb╱;╱ // 0x19ea @0xe
0x19dc…1a0c at000f = ╱4b╱K╱ // 0x19eb @0xf
0x19dc…1a0c at0010 = ╱33╱3╱ // 0x19ec @0x10
0x19dc…1a0c at0011 = ╱ef╱$╱ // 0x19ed @0x11
0x19dc…1a0c at0012 = ╱dc╱=╱ // 0x19ee @0x12
0x19dc…1a0c at0013 = ╱4e╱N╱ // 0x19ef @0x13
0x19dc…1a0c at0014 = ╱ef╱$╱ // 0x19f0 @0x14
0x19dc…1a0c at0015 = ╱f1╱+╱ // 0x19f1 @0x15
0x19dc…1a0c at0016 = ╱4b╱K╱ // 0x19f2 @0x16
0x19dc…1a0c at0017 = ╱33╱3╱ // 0x19f3 @0x17
0x19dc…1a0c at0018 = ╱ef╱$╱ // 0x19f4 @0x18
0x19dc…1a0c at0019 = ╱eb╱;╱ // 0x19f5 @0x19
0x19dc…1a0c at001a = ╱4b╱K╱ // 0x19f6 @0x1a
0x19dc…1a0c at001b = ╱34╱4╱ // 0x19f7 @0x1b
0x19dc…1a0c at001c = ╱ef╱$╱ // 0x19f8 @0x1c
0x19dc…1a0c at001d = ╱dc╱=╱ // 0x19f9 @0x1d
0x19dc…1a0c at001e = ╱4e╱N╱ // 0x19fa @0x1e
0x19dc…1a0c at001f = ╱ef╱$╱ // 0x19fb @0x1f
0x19dc…1a0c at0020 = ╱f1╱+╱ // 0x19fc @0x20
0x19dc…1a0c at0021 = ╱4b╱K╱ // 0x19fd @0x21
0x19dc…1a0c at0022 = ╱34╱4╱ // 0x19fe @0x22
0x19dc…1a0c at0023 = ╱ef╱$╱ // 0x19ff @0x23
0x19dc…1a0c at0024 = ╱eb╱;╱ // 0x1a00 @0x24
0x19dc…1a0c at0025 = ╱4b╱K╱ // 0x1a01 @0x25
0x19dc…1a0c at0026 = ╱35╱5╱ // 0x1a02 @0x26
0x19dc…1a0c at0027 = ╱ef╱$╱ // 0x1a03 @0x27
0x19dc…1a0c at0028 = ╱dc╱=╱ // 0x1a04 @0x28
0x19dc…1a0c at0029 = ╱4e╱N╱ // 0x1a05 @0x29
0x19dc…1a0c at002a = ╱ef╱$╱ // 0x1a06 @0x2a
0x19dc…1a0c at002b = ╱f1╱+╱ // 0x1a07 @0x2b
0x19dc…1a0c at002c = ╱4b╱K╱ // 0x1a08 @0x2c
0x19dc…1a0c at002d = ╱35╱5╱ // 0x1a09 @0x2d
0x19dc…1a0c at002e = ╱ef╱$╱ // 0x1a0a @0x2e
0x19dc…1a0c at002f = EOL // 0x1a0b @0x2f
0x19dc…1a0c }
0x1a0c…1a17 a76e 2520 OPEN K5$,W
0x1a0c…1a17 LineComalBin {
0x1a0c…1a17 ptr = 0xa76e // 0x1a0c @0x0
0x1a0c…1a17 lno = 0x09d8 // 0x1a0e @0x2
0x1a0c…1a17 at0004 = ╱a7╱ OPEN ╱ // 0x1a10 @0x4
0x1a0c…1a17 at0005 = ╱4b╱K╱ // 0x1a11 @0x5
0x1a0c…1a17 at0006 = ╱35╱5╱ // 0x1a12 @0x6
0x1a0c…1a17 at0007 = ╱ef╱$╱ // 0x1a13 @0x7
0x1a0c…1a17 at0008 = ╱ec╱,╱ // 0x1a14 @0x8
0x1a0c…1a17 at0009 = ╱57╱W╱ // 0x1a15 @0x9
0x1a0c…1a17 at000a = EOL // 0x1a16 @0xa
0x1a0c…1a17 }
0x1a17…1a30 a787 2530 EXEC FEJL(W,11,K5$)
0x1a17…1a30 LineComalBin {
0x1a17…1a30 ptr = 0xa787 // 0x1a17 @0x0
0x1a17…1a30 lno = 0x09e2 // 0x1a19 @0x2
0x1a17…1a30 at0004 = ╱9d╱ EXEC ╱ // 0x1a1b @0x4
0x1a17…1a30 at0005 = ╱46╱F╱ // 0x1a1c @0x5
0x1a17…1a30 at0006 = ╱45╱E╱ // 0x1a1d @0x6
0x1a17…1a30 at0007 = ╱4a╱J╱ // 0x1a1e @0x7
0x1a17…1a30 at0008 = ╱4c╱L╱ // 0x1a1f @0x8
0x1a17…1a30 at0009 = ╱ed╱(╱ // 0x1a20 @0x9
0x1a17…1a30 at000a = ╱57╱W╱ // 0x1a21 @0xa
0x1a17…1a30 at000b = ╱ec╱,╱ // 0x1a22 @0xb
0x1a17…1a30 at000c = ╱31╱1╱ // 0x1a23 @0xc
0x1a17…1a30 at000d = ╱31╱1╱ // 0x1a24 @0xd
0x1a17…1a30 at000e = ╱fe0000b004╱ // 0x1a25 @0xe
0x1a17…1a30 at0013 = ╱ec╱,╱ // 0x1a2a @0x13
0x1a17…1a30 at0014 = ╱4b╱K╱ // 0x1a2b @0x14
0x1a17…1a30 at0015 = ╱35╱5╱ // 0x1a2c @0x15
0x1a17…1a30 at0016 = ╱ef╱$╱ // 0x1a2d @0x16
0x1a17…1a30 at0017 = ╱ee╱)╱ // 0x1a2e @0x17
0x1a17…1a30 at0018 = EOL // 0x1a2f @0x18
0x1a17…1a30 }
0x1a30…1a52 a7a9 2540 GET K5$,G:T1,T1,T1,T1,T1,T1,DATO
0x1a30…1a52 LineComalBin {
0x1a30…1a52 ptr = 0xa7a9 // 0x1a30 @0x0
0x1a30…1a52 lno = 0x09ec // 0x1a32 @0x2
0x1a30…1a52 at0004 = ╱a9╱ GET ╱ // 0x1a34 @0x4
0x1a30…1a52 at0005 = ╱4b╱K╱ // 0x1a35 @0x5
0x1a30…1a52 at0006 = ╱35╱5╱ // 0x1a36 @0x6
0x1a30…1a52 at0007 = ╱ef╱$╱ // 0x1a37 @0x7
0x1a30…1a52 at0008 = ╱ec╱,╱ // 0x1a38 @0x8
0x1a30…1a52 at0009 = ╱47╱G╱ // 0x1a39 @0x9
0x1a30…1a52 at000a = ╱f0╱:╱ // 0x1a3a @0xa
0x1a30…1a52 at000b = ╱54╱T╱ // 0x1a3b @0xb
0x1a30…1a52 at000c = ╱31╱1╱ // 0x1a3c @0xc
0x1a30…1a52 at000d = ╱ec╱,╱ // 0x1a3d @0xd
0x1a30…1a52 at000e = ╱54╱T╱ // 0x1a3e @0xe
0x1a30…1a52 at000f = ╱31╱1╱ // 0x1a3f @0xf
0x1a30…1a52 at0010 = ╱ec╱,╱ // 0x1a40 @0x10
0x1a30…1a52 at0011 = ╱54╱T╱ // 0x1a41 @0x11
0x1a30…1a52 at0012 = ╱31╱1╱ // 0x1a42 @0x12
0x1a30…1a52 at0013 = ╱ec╱,╱ // 0x1a43 @0x13
0x1a30…1a52 at0014 = ╱54╱T╱ // 0x1a44 @0x14
0x1a30…1a52 at0015 = ╱31╱1╱ // 0x1a45 @0x15
0x1a30…1a52 at0016 = ╱ec╱,╱ // 0x1a46 @0x16
0x1a30…1a52 at0017 = ╱54╱T╱ // 0x1a47 @0x17
0x1a30…1a52 at0018 = ╱31╱1╱ // 0x1a48 @0x18
0x1a30…1a52 at0019 = ╱ec╱,╱ // 0x1a49 @0x19
0x1a30…1a52 at001a = ╱54╱T╱ // 0x1a4a @0x1a
0x1a30…1a52 at001b = ╱31╱1╱ // 0x1a4b @0x1b
0x1a30…1a52 at001c = ╱ec╱,╱ // 0x1a4c @0x1c
0x1a30…1a52 at001d = ╱44╱D╱ // 0x1a4d @0x1d
0x1a30…1a52 at001e = ╱41╱A╱ // 0x1a4e @0x1e
0x1a30…1a52 at001f = ╱54╱T╱ // 0x1a4f @0x1f
0x1a30…1a52 at0020 = ╱4f╱O╱ // 0x1a50 @0x20
0x1a30…1a52 at0021 = EOL // 0x1a51 @0x21
0x1a30…1a52 }
0x1a52…1a6b a7c2 2550 EXEC FEJL(W,12,K5$)
0x1a52…1a6b LineComalBin {
0x1a52…1a6b ptr = 0xa7c2 // 0x1a52 @0x0
0x1a52…1a6b lno = 0x09f6 // 0x1a54 @0x2
0x1a52…1a6b at0004 = ╱9d╱ EXEC ╱ // 0x1a56 @0x4
0x1a52…1a6b at0005 = ╱46╱F╱ // 0x1a57 @0x5
0x1a52…1a6b at0006 = ╱45╱E╱ // 0x1a58 @0x6
0x1a52…1a6b at0007 = ╱4a╱J╱ // 0x1a59 @0x7
0x1a52…1a6b at0008 = ╱4c╱L╱ // 0x1a5a @0x8
0x1a52…1a6b at0009 = ╱ed╱(╱ // 0x1a5b @0x9
0x1a52…1a6b at000a = ╱57╱W╱ // 0x1a5c @0xa
0x1a52…1a6b at000b = ╱ec╱,╱ // 0x1a5d @0xb
0x1a52…1a6b at000c = ╱31╱1╱ // 0x1a5e @0xc
0x1a52…1a6b at000d = ╱32╱2╱ // 0x1a5f @0xd
0x1a52…1a6b at000e = ╱fe0000c004╱ // 0x1a60 @0xe
0x1a52…1a6b at0013 = ╱ec╱,╱ // 0x1a65 @0x13
0x1a52…1a6b at0014 = ╱4b╱K╱ // 0x1a66 @0x14
0x1a52…1a6b at0015 = ╱35╱5╱ // 0x1a67 @0x15
0x1a52…1a6b at0016 = ╱ef╱$╱ // 0x1a68 @0x16
0x1a52…1a6b at0017 = ╱ee╱)╱ // 0x1a69 @0x17
0x1a52…1a6b at0018 = EOL // 0x1a6a @0x18
0x1a52…1a6b }
0x1a6b…1acb a822 2560 GET K5$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE
0x1a6b…1acb LineComalBin {
0x1a6b…1acb ptr = 0xa822 // 0x1a6b @0x0
0x1a6b…1acb lno = 0x0a00 // 0x1a6d @0x2
0x1a6b…1acb at0004 = ╱a9╱ GET ╱ // 0x1a6f @0x4
0x1a6b…1acb at0005 = ╱4b╱K╱ // 0x1a70 @0x5
0x1a6b…1acb at0006 = ╱35╱5╱ // 0x1a71 @0x6
0x1a6b…1acb at0007 = ╱ef╱$╱ // 0x1a72 @0x7
0x1a6b…1acb at0008 = ╱ec╱,╱ // 0x1a73 @0x8
0x1a6b…1acb at0009 = ╱31╱1╱ // 0x1a74 @0x9
0x1a6b…1acb at000a = ╱32╱2╱ // 0x1a75 @0xa
0x1a6b…1acb at000b = ╱fe0000c004╱ // 0x1a76 @0xb
0x1a6b…1acb at0010 = ╱f0╱:╱ // 0x1a7b @0x10
0x1a6b…1acb at0011 = ╱54╱T╱ // 0x1a7c @0x11
0x1a6b…1acb at0012 = ╱32╱2╱ // 0x1a7d @0x12
0x1a6b…1acb at0013 = ╱ed╱(╱ // 0x1a7e @0x13
0x1a6b…1acb at0014 = ╱45╱E╱ // 0x1a7f @0x14
0x1a6b…1acb at0015 = ╱ee╱)╱ // 0x1a80 @0x15
0x1a6b…1acb at0016 = ╱ec╱,╱ // 0x1a81 @0x16
0x1a6b…1acb at0017 = ╱54╱T╱ // 0x1a82 @0x17
0x1a6b…1acb at0018 = ╱32╱2╱ // 0x1a83 @0x18
0x1a6b…1acb at0019 = ╱ed╱(╱ // 0x1a84 @0x19
0x1a6b…1acb at001a = ╱47╱G╱ // 0x1a85 @0x1a
0x1a6b…1acb at001b = ╱ee╱)╱ // 0x1a86 @0x1b
0x1a6b…1acb at001c = ╱ec╱,╱ // 0x1a87 @0x1c
0x1a6b…1acb at001d = ╱54╱T╱ // 0x1a88 @0x1d
0x1a6b…1acb at001e = ╱32╱2╱ // 0x1a89 @0x1e
0x1a6b…1acb at001f = ╱ed╱(╱ // 0x1a8a @0x1f
0x1a6b…1acb at0020 = ╱56╱V╱ // 0x1a8b @0x20
0x1a6b…1acb at0021 = ╱ee╱)╱ // 0x1a8c @0x21
0x1a6b…1acb at0022 = ╱ec╱,╱ // 0x1a8d @0x22
0x1a6b…1acb at0023 = ╱54╱T╱ // 0x1a8e @0x23
0x1a6b…1acb at0024 = ╱32╱2╱ // 0x1a8f @0x24
0x1a6b…1acb at0025 = ╱ed╱(╱ // 0x1a90 @0x25
0x1a6b…1acb at0026 = ╱34╱4╱ // 0x1a91 @0x26
0x1a6b…1acb at0027 = ╱fe00008003╱ // 0x1a92 @0x27
0x1a6b…1acb at002c = ╱ee╱)╱ // 0x1a97 @0x2c
0x1a6b…1acb at002d = ╱ec╱,╱ // 0x1a98 @0x2d
0x1a6b…1acb at002e = ╱54╱T╱ // 0x1a99 @0x2e
0x1a6b…1acb at002f = ╱32╱2╱ // 0x1a9a @0x2f
0x1a6b…1acb at0030 = ╱ed╱(╱ // 0x1a9b @0x30
0x1a6b…1acb at0031 = ╱35╱5╱ // 0x1a9c @0x31
0x1a6b…1acb at0032 = ╱fe0000a003╱ // 0x1a9d @0x32
0x1a6b…1acb at0037 = ╱ee╱)╱ // 0x1aa2 @0x37
0x1a6b…1acb at0038 = ╱ec╱,╱ // 0x1aa3 @0x38
0x1a6b…1acb at0039 = ╱54╱T╱ // 0x1aa4 @0x39
0x1a6b…1acb at003a = ╱32╱2╱ // 0x1aa5 @0x3a
0x1a6b…1acb at003b = ╱ed╱(╱ // 0x1aa6 @0x3b
0x1a6b…1acb at003c = ╱36╱6╱ // 0x1aa7 @0x3c
0x1a6b…1acb at003d = ╱fe0000c003╱ // 0x1aa8 @0x3d
0x1a6b…1acb at0042 = ╱ee╱)╱ // 0x1aad @0x42
0x1a6b…1acb at0043 = ╱ec╱,╱ // 0x1aae @0x43
0x1a6b…1acb at0044 = ╱54╱T╱ // 0x1aaf @0x44
0x1a6b…1acb at0045 = ╱32╱2╱ // 0x1ab0 @0x45
0x1a6b…1acb at0046 = ╱ed╱(╱ // 0x1ab1 @0x46
0x1a6b…1acb at0047 = ╱37╱7╱ // 0x1ab2 @0x47
0x1a6b…1acb at0048 = ╱fe0000e003╱ // 0x1ab3 @0x48
0x1a6b…1acb at004d = ╱ee╱)╱ // 0x1ab8 @0x4d
0x1a6b…1acb at004e = ╱ec╱,╱ // 0x1ab9 @0x4e
0x1a6b…1acb at004f = ╱54╱T╱ // 0x1aba @0x4f
0x1a6b…1acb at0050 = ╱32╱2╱ // 0x1abb @0x50
0x1a6b…1acb at0051 = ╱ed╱(╱ // 0x1abc @0x51
0x1a6b…1acb at0052 = ╱38╱8╱ // 0x1abd @0x52
0x1a6b…1acb at0053 = ╱fe00008004╱ // 0x1abe @0x53
0x1a6b…1acb at0058 = ╱ee╱)╱ // 0x1ac3 @0x58
0x1a6b…1acb at0059 = ╱ec╱,╱ // 0x1ac4 @0x59
0x1a6b…1acb at005a = ╱41╱A╱ // 0x1ac5 @0x5a
0x1a6b…1acb at005b = ╱56╱V╱ // 0x1ac6 @0x5b
0x1a6b…1acb at005c = ╱41╱A╱ // 0x1ac7 @0x5c
0x1a6b…1acb at005d = ╱52╱R╱ // 0x1ac8 @0x5d
0x1a6b…1acb at005e = ╱45╱E╱ // 0x1ac9 @0x5e
0x1a6b…1acb at005f = EOL // 0x1aca @0x5f
0x1a6b…1acb }
0x1acb…1ae4 a83b 2570 EXEC FEJL(W,13,K5$)
0x1acb…1ae4 LineComalBin {
0x1acb…1ae4 ptr = 0xa83b // 0x1acb @0x0
0x1acb…1ae4 lno = 0x0a0a // 0x1acd @0x2
0x1acb…1ae4 at0004 = ╱9d╱ EXEC ╱ // 0x1acf @0x4
0x1acb…1ae4 at0005 = ╱46╱F╱ // 0x1ad0 @0x5
0x1acb…1ae4 at0006 = ╱45╱E╱ // 0x1ad1 @0x6
0x1acb…1ae4 at0007 = ╱4a╱J╱ // 0x1ad2 @0x7
0x1acb…1ae4 at0008 = ╱4c╱L╱ // 0x1ad3 @0x8
0x1acb…1ae4 at0009 = ╱ed╱(╱ // 0x1ad4 @0x9
0x1acb…1ae4 at000a = ╱57╱W╱ // 0x1ad5 @0xa
0x1acb…1ae4 at000b = ╱ec╱,╱ // 0x1ad6 @0xb
0x1acb…1ae4 at000c = ╱31╱1╱ // 0x1ad7 @0xc
0x1acb…1ae4 at000d = ╱33╱3╱ // 0x1ad8 @0xd
0x1acb…1ae4 at000e = ╱fe0000d004╱ // 0x1ad9 @0xe
0x1acb…1ae4 at0013 = ╱ec╱,╱ // 0x1ade @0x13
0x1acb…1ae4 at0014 = ╱4b╱K╱ // 0x1adf @0x14
0x1acb…1ae4 at0015 = ╱35╱5╱ // 0x1ae0 @0x15
0x1acb…1ae4 at0016 = ╱ef╱$╱ // 0x1ae1 @0x16
0x1acb…1ae4 at0017 = ╱ee╱)╱ // 0x1ae2 @0x17
0x1acb…1ae4 at0018 = EOL // 0x1ae3 @0x18
0x1acb…1ae4 }
0x1ae4…1b44 a89b 2580 GET K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x1ae4…1b44 LineComalBin {
0x1ae4…1b44 ptr = 0xa89b // 0x1ae4 @0x0
0x1ae4…1b44 lno = 0x0a14 // 0x1ae6 @0x2
0x1ae4…1b44 at0004 = ╱a9╱ GET ╱ // 0x1ae8 @0x4
0x1ae4…1b44 at0005 = ╱4b╱K╱ // 0x1ae9 @0x5
0x1ae4…1b44 at0006 = ╱35╱5╱ // 0x1aea @0x6
0x1ae4…1b44 at0007 = ╱ef╱$╱ // 0x1aeb @0x7
0x1ae4…1b44 at0008 = ╱ec╱,╱ // 0x1aec @0x8
0x1ae4…1b44 at0009 = ╱31╱1╱ // 0x1aed @0x9
0x1ae4…1b44 at000a = ╱37╱7╱ // 0x1aee @0xa
0x1ae4…1b44 at000b = ╱fe00008805╱ // 0x1aef @0xb
0x1ae4…1b44 at0010 = ╱f0╱:╱ // 0x1af4 @0x10
0x1ae4…1b44 at0011 = ╱54╱T╱ // 0x1af5 @0x11
0x1ae4…1b44 at0012 = ╱33╱3╱ // 0x1af6 @0x12
0x1ae4…1b44 at0013 = ╱ed╱(╱ // 0x1af7 @0x13
0x1ae4…1b44 at0014 = ╱45╱E╱ // 0x1af8 @0x14
0x1ae4…1b44 at0015 = ╱ee╱)╱ // 0x1af9 @0x15
0x1ae4…1b44 at0016 = ╱ec╱,╱ // 0x1afa @0x16
0x1ae4…1b44 at0017 = ╱54╱T╱ // 0x1afb @0x17
0x1ae4…1b44 at0018 = ╱33╱3╱ // 0x1afc @0x18
0x1ae4…1b44 at0019 = ╱ed╱(╱ // 0x1afd @0x19
0x1ae4…1b44 at001a = ╱47╱G╱ // 0x1afe @0x1a
0x1ae4…1b44 at001b = ╱ee╱)╱ // 0x1aff @0x1b
0x1ae4…1b44 at001c = ╱ec╱,╱ // 0x1b00 @0x1c
0x1ae4…1b44 at001d = ╱54╱T╱ // 0x1b01 @0x1d
0x1ae4…1b44 at001e = ╱33╱3╱ // 0x1b02 @0x1e
0x1ae4…1b44 at001f = ╱ed╱(╱ // 0x1b03 @0x1f
0x1ae4…1b44 at0020 = ╱56╱V╱ // 0x1b04 @0x20
0x1ae4…1b44 at0021 = ╱ee╱)╱ // 0x1b05 @0x21
0x1ae4…1b44 at0022 = ╱ec╱,╱ // 0x1b06 @0x22
0x1ae4…1b44 at0023 = ╱54╱T╱ // 0x1b07 @0x23
0x1ae4…1b44 at0024 = ╱33╱3╱ // 0x1b08 @0x24
0x1ae4…1b44 at0025 = ╱ed╱(╱ // 0x1b09 @0x25
0x1ae4…1b44 at0026 = ╱34╱4╱ // 0x1b0a @0x26
0x1ae4…1b44 at0027 = ╱fe00008003╱ // 0x1b0b @0x27
0x1ae4…1b44 at002c = ╱ee╱)╱ // 0x1b10 @0x2c
0x1ae4…1b44 at002d = ╱ec╱,╱ // 0x1b11 @0x2d
0x1ae4…1b44 at002e = ╱54╱T╱ // 0x1b12 @0x2e
0x1ae4…1b44 at002f = ╱33╱3╱ // 0x1b13 @0x2f
0x1ae4…1b44 at0030 = ╱ed╱(╱ // 0x1b14 @0x30
0x1ae4…1b44 at0031 = ╱35╱5╱ // 0x1b15 @0x31
0x1ae4…1b44 at0032 = ╱fe0000a003╱ // 0x1b16 @0x32
0x1ae4…1b44 at0037 = ╱ee╱)╱ // 0x1b1b @0x37
0x1ae4…1b44 at0038 = ╱ec╱,╱ // 0x1b1c @0x38
0x1ae4…1b44 at0039 = ╱54╱T╱ // 0x1b1d @0x39
0x1ae4…1b44 at003a = ╱33╱3╱ // 0x1b1e @0x3a
0x1ae4…1b44 at003b = ╱ed╱(╱ // 0x1b1f @0x3b
0x1ae4…1b44 at003c = ╱36╱6╱ // 0x1b20 @0x3c
0x1ae4…1b44 at003d = ╱fe0000c003╱ // 0x1b21 @0x3d
0x1ae4…1b44 at0042 = ╱ee╱)╱ // 0x1b26 @0x42
0x1ae4…1b44 at0043 = ╱ec╱,╱ // 0x1b27 @0x43
0x1ae4…1b44 at0044 = ╱54╱T╱ // 0x1b28 @0x44
0x1ae4…1b44 at0045 = ╱33╱3╱ // 0x1b29 @0x45
0x1ae4…1b44 at0046 = ╱ed╱(╱ // 0x1b2a @0x46
0x1ae4…1b44 at0047 = ╱37╱7╱ // 0x1b2b @0x47
0x1ae4…1b44 at0048 = ╱fe0000e003╱ // 0x1b2c @0x48
0x1ae4…1b44 at004d = ╱ee╱)╱ // 0x1b31 @0x4d
0x1ae4…1b44 at004e = ╱ec╱,╱ // 0x1b32 @0x4e
0x1ae4…1b44 at004f = ╱54╱T╱ // 0x1b33 @0x4f
0x1ae4…1b44 at0050 = ╱33╱3╱ // 0x1b34 @0x50
0x1ae4…1b44 at0051 = ╱ed╱(╱ // 0x1b35 @0x51
0x1ae4…1b44 at0052 = ╱38╱8╱ // 0x1b36 @0x52
0x1ae4…1b44 at0053 = ╱fe00008004╱ // 0x1b37 @0x53
0x1ae4…1b44 at0058 = ╱ee╱)╱ // 0x1b3c @0x58
0x1ae4…1b44 at0059 = ╱ec╱,╱ // 0x1b3d @0x59
0x1ae4…1b44 at005a = ╱54╱T╱ // 0x1b3e @0x5a
0x1ae4…1b44 at005b = ╱33╱3╱ // 0x1b3f @0x5b
0x1ae4…1b44 at005c = ╱ed╱(╱ // 0x1b40 @0x5c
0x1ae4…1b44 at005d = ╱57╱W╱ // 0x1b41 @0x5d
0x1ae4…1b44 at005e = ╱ee╱)╱ // 0x1b42 @0x5e
0x1ae4…1b44 at005f = EOL // 0x1b43 @0x5f
0x1ae4…1b44 }
0x1b44…1b5d a8b4 2590 EXEC FEJL(W,14,K5$)
0x1b44…1b5d LineComalBin {
0x1b44…1b5d ptr = 0xa8b4 // 0x1b44 @0x0
0x1b44…1b5d lno = 0x0a1e // 0x1b46 @0x2
0x1b44…1b5d at0004 = ╱9d╱ EXEC ╱ // 0x1b48 @0x4
0x1b44…1b5d at0005 = ╱46╱F╱ // 0x1b49 @0x5
0x1b44…1b5d at0006 = ╱45╱E╱ // 0x1b4a @0x6
0x1b44…1b5d at0007 = ╱4a╱J╱ // 0x1b4b @0x7
0x1b44…1b5d at0008 = ╱4c╱L╱ // 0x1b4c @0x8
0x1b44…1b5d at0009 = ╱ed╱(╱ // 0x1b4d @0x9
0x1b44…1b5d at000a = ╱57╱W╱ // 0x1b4e @0xa
0x1b44…1b5d at000b = ╱ec╱,╱ // 0x1b4f @0xb
0x1b44…1b5d at000c = ╱31╱1╱ // 0x1b50 @0xc
0x1b44…1b5d at000d = ╱34╱4╱ // 0x1b51 @0xd
0x1b44…1b5d at000e = ╱fe0000e004╱ // 0x1b52 @0xe
0x1b44…1b5d at0013 = ╱ec╱,╱ // 0x1b57 @0x13
0x1b44…1b5d at0014 = ╱4b╱K╱ // 0x1b58 @0x14
0x1b44…1b5d at0015 = ╱35╱5╱ // 0x1b59 @0x15
0x1b44…1b5d at0016 = ╱ef╱$╱ // 0x1b5a @0x16
0x1b44…1b5d at0017 = ╱ee╱)╱ // 0x1b5b @0x17
0x1b44…1b5d at0018 = EOL // 0x1b5c @0x18
0x1b44…1b5d }
0x1b5d…1b6e a8c5 2600 T3(6)=E
0x1b5d…1b6e LineComalBin {
0x1b5d…1b6e ptr = 0xa8c5 // 0x1b5d @0x0
0x1b5d…1b6e lno = 0x0a28 // 0x1b5f @0x2
0x1b5d…1b6e at0004 = ╱54╱T╱ // 0x1b61 @0x4
0x1b5d…1b6e at0005 = ╱33╱3╱ // 0x1b62 @0x5
0x1b5d…1b6e at0006 = ╱ed╱(╱ // 0x1b63 @0x6
0x1b5d…1b6e at0007 = ╱36╱6╱ // 0x1b64 @0x7
0x1b5d…1b6e at0008 = ╱fe0000c003╱ // 0x1b65 @0x8
0x1b5d…1b6e at000d = ╱ee╱)╱ // 0x1b6a @0xd
0x1b5d…1b6e at000e = ╱dc╱=╱ // 0x1b6b @0xe
0x1b5d…1b6e at000f = ╱45╱E╱ // 0x1b6c @0xf
0x1b5d…1b6e at0010 = EOL // 0x1b6d @0x10
0x1b5d…1b6e }
0x1b6e…1bce a925 2610 PUT K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x1b6e…1bce LineComalBin {
0x1b6e…1bce ptr = 0xa925 // 0x1b6e @0x0
0x1b6e…1bce lno = 0x0a32 // 0x1b70 @0x2
0x1b6e…1bce at0004 = ╱aa╱ PUT ╱ // 0x1b72 @0x4
0x1b6e…1bce at0005 = ╱4b╱K╱ // 0x1b73 @0x5
0x1b6e…1bce at0006 = ╱35╱5╱ // 0x1b74 @0x6
0x1b6e…1bce at0007 = ╱ef╱$╱ // 0x1b75 @0x7
0x1b6e…1bce at0008 = ╱ec╱,╱ // 0x1b76 @0x8
0x1b6e…1bce at0009 = ╱31╱1╱ // 0x1b77 @0x9
0x1b6e…1bce at000a = ╱37╱7╱ // 0x1b78 @0xa
0x1b6e…1bce at000b = ╱fe00008805╱ // 0x1b79 @0xb
0x1b6e…1bce at0010 = ╱f0╱:╱ // 0x1b7e @0x10
0x1b6e…1bce at0011 = ╱54╱T╱ // 0x1b7f @0x11
0x1b6e…1bce at0012 = ╱33╱3╱ // 0x1b80 @0x12
0x1b6e…1bce at0013 = ╱ed╱(╱ // 0x1b81 @0x13
0x1b6e…1bce at0014 = ╱45╱E╱ // 0x1b82 @0x14
0x1b6e…1bce at0015 = ╱ee╱)╱ // 0x1b83 @0x15
0x1b6e…1bce at0016 = ╱ec╱,╱ // 0x1b84 @0x16
0x1b6e…1bce at0017 = ╱54╱T╱ // 0x1b85 @0x17
0x1b6e…1bce at0018 = ╱33╱3╱ // 0x1b86 @0x18
0x1b6e…1bce at0019 = ╱ed╱(╱ // 0x1b87 @0x19
0x1b6e…1bce at001a = ╱47╱G╱ // 0x1b88 @0x1a
0x1b6e…1bce at001b = ╱ee╱)╱ // 0x1b89 @0x1b
0x1b6e…1bce at001c = ╱ec╱,╱ // 0x1b8a @0x1c
0x1b6e…1bce at001d = ╱54╱T╱ // 0x1b8b @0x1d
0x1b6e…1bce at001e = ╱33╱3╱ // 0x1b8c @0x1e
0x1b6e…1bce at001f = ╱ed╱(╱ // 0x1b8d @0x1f
0x1b6e…1bce at0020 = ╱56╱V╱ // 0x1b8e @0x20
0x1b6e…1bce at0021 = ╱ee╱)╱ // 0x1b8f @0x21
0x1b6e…1bce at0022 = ╱ec╱,╱ // 0x1b90 @0x22
0x1b6e…1bce at0023 = ╱54╱T╱ // 0x1b91 @0x23
0x1b6e…1bce at0024 = ╱33╱3╱ // 0x1b92 @0x24
0x1b6e…1bce at0025 = ╱ed╱(╱ // 0x1b93 @0x25
0x1b6e…1bce at0026 = ╱34╱4╱ // 0x1b94 @0x26
0x1b6e…1bce at0027 = ╱fe00008003╱ // 0x1b95 @0x27
0x1b6e…1bce at002c = ╱ee╱)╱ // 0x1b9a @0x2c
0x1b6e…1bce at002d = ╱ec╱,╱ // 0x1b9b @0x2d
0x1b6e…1bce at002e = ╱54╱T╱ // 0x1b9c @0x2e
0x1b6e…1bce at002f = ╱33╱3╱ // 0x1b9d @0x2f
0x1b6e…1bce at0030 = ╱ed╱(╱ // 0x1b9e @0x30
0x1b6e…1bce at0031 = ╱35╱5╱ // 0x1b9f @0x31
0x1b6e…1bce at0032 = ╱fe0000a003╱ // 0x1ba0 @0x32
0x1b6e…1bce at0037 = ╱ee╱)╱ // 0x1ba5 @0x37
0x1b6e…1bce at0038 = ╱ec╱,╱ // 0x1ba6 @0x38
0x1b6e…1bce at0039 = ╱54╱T╱ // 0x1ba7 @0x39
0x1b6e…1bce at003a = ╱33╱3╱ // 0x1ba8 @0x3a
0x1b6e…1bce at003b = ╱ed╱(╱ // 0x1ba9 @0x3b
0x1b6e…1bce at003c = ╱36╱6╱ // 0x1baa @0x3c
0x1b6e…1bce at003d = ╱fe0000c003╱ // 0x1bab @0x3d
0x1b6e…1bce at0042 = ╱ee╱)╱ // 0x1bb0 @0x42
0x1b6e…1bce at0043 = ╱ec╱,╱ // 0x1bb1 @0x43
0x1b6e…1bce at0044 = ╱54╱T╱ // 0x1bb2 @0x44
0x1b6e…1bce at0045 = ╱33╱3╱ // 0x1bb3 @0x45
0x1b6e…1bce at0046 = ╱ed╱(╱ // 0x1bb4 @0x46
0x1b6e…1bce at0047 = ╱37╱7╱ // 0x1bb5 @0x47
0x1b6e…1bce at0048 = ╱fe0000e003╱ // 0x1bb6 @0x48
0x1b6e…1bce at004d = ╱ee╱)╱ // 0x1bbb @0x4d
0x1b6e…1bce at004e = ╱ec╱,╱ // 0x1bbc @0x4e
0x1b6e…1bce at004f = ╱54╱T╱ // 0x1bbd @0x4f
0x1b6e…1bce at0050 = ╱33╱3╱ // 0x1bbe @0x50
0x1b6e…1bce at0051 = ╱ed╱(╱ // 0x1bbf @0x51
0x1b6e…1bce at0052 = ╱38╱8╱ // 0x1bc0 @0x52
0x1b6e…1bce at0053 = ╱fe00008004╱ // 0x1bc1 @0x53
0x1b6e…1bce at0058 = ╱ee╱)╱ // 0x1bc6 @0x58
0x1b6e…1bce at0059 = ╱ec╱,╱ // 0x1bc7 @0x59
0x1b6e…1bce at005a = ╱54╱T╱ // 0x1bc8 @0x5a
0x1b6e…1bce at005b = ╱33╱3╱ // 0x1bc9 @0x5b
0x1b6e…1bce at005c = ╱ed╱(╱ // 0x1bca @0x5c
0x1b6e…1bce at005d = ╱57╱W╱ // 0x1bcb @0x5d
0x1b6e…1bce at005e = ╱ee╱)╱ // 0x1bcc @0x5e
0x1b6e…1bce at005f = EOL // 0x1bcd @0x5f
0x1b6e…1bce }
0x1bce…1be7 a93e 2620 EXEC FEJL(W,15,K5$)
0x1bce…1be7 LineComalBin {
0x1bce…1be7 ptr = 0xa93e // 0x1bce @0x0
0x1bce…1be7 lno = 0x0a3c // 0x1bd0 @0x2
0x1bce…1be7 at0004 = ╱9d╱ EXEC ╱ // 0x1bd2 @0x4
0x1bce…1be7 at0005 = ╱46╱F╱ // 0x1bd3 @0x5
0x1bce…1be7 at0006 = ╱45╱E╱ // 0x1bd4 @0x6
0x1bce…1be7 at0007 = ╱4a╱J╱ // 0x1bd5 @0x7
0x1bce…1be7 at0008 = ╱4c╱L╱ // 0x1bd6 @0x8
0x1bce…1be7 at0009 = ╱ed╱(╱ // 0x1bd7 @0x9
0x1bce…1be7 at000a = ╱57╱W╱ // 0x1bd8 @0xa
0x1bce…1be7 at000b = ╱ec╱,╱ // 0x1bd9 @0xb
0x1bce…1be7 at000c = ╱31╱1╱ // 0x1bda @0xc
0x1bce…1be7 at000d = ╱35╱5╱ // 0x1bdb @0xd
0x1bce…1be7 at000e = ╱fe0000f004╱ // 0x1bdc @0xe
0x1bce…1be7 at0013 = ╱ec╱,╱ // 0x1be1 @0x13
0x1bce…1be7 at0014 = ╱4b╱K╱ // 0x1be2 @0x14
0x1bce…1be7 at0015 = ╱35╱5╱ // 0x1be3 @0x15
0x1bce…1be7 at0016 = ╱ef╱$╱ // 0x1be4 @0x16
0x1bce…1be7 at0017 = ╱ee╱)╱ // 0x1be5 @0x17
0x1bce…1be7 at0018 = EOL // 0x1be6 @0x18
0x1bce…1be7 }
0x1be7…1bfc a953 2622 GET K5$,20:DV$
0x1be7…1bfc LineComalBin {
0x1be7…1bfc ptr = 0xa953 // 0x1be7 @0x0
0x1be7…1bfc lno = 0x0a3e // 0x1be9 @0x2
0x1be7…1bfc at0004 = ╱a9╱ GET ╱ // 0x1beb @0x4
0x1be7…1bfc at0005 = ╱4b╱K╱ // 0x1bec @0x5
0x1be7…1bfc at0006 = ╱35╱5╱ // 0x1bed @0x6
0x1be7…1bfc at0007 = ╱ef╱$╱ // 0x1bee @0x7
0x1be7…1bfc at0008 = ╱ec╱,╱ // 0x1bef @0x8
0x1be7…1bfc at0009 = ╱32╱2╱ // 0x1bf0 @0x9
0x1be7…1bfc at000a = ╱30╱0╱ // 0x1bf1 @0xa
0x1be7…1bfc at000b = ╱fe0000a005╱ // 0x1bf2 @0xb
0x1be7…1bfc at0010 = ╱f0╱:╱ // 0x1bf7 @0x10
0x1be7…1bfc at0011 = ╱44╱D╱ // 0x1bf8 @0x11
0x1be7…1bfc at0012 = ╱56╱V╱ // 0x1bf9 @0x12
0x1be7…1bfc at0013 = ╱ef╱$╱ // 0x1bfa @0x13
0x1be7…1bfc at0014 = EOL // 0x1bfb @0x14
0x1be7…1bfc }
0x1bfc…1c15 a96c 2624 EXEC FEJL(W,25,K5$)
0x1bfc…1c15 LineComalBin {
0x1bfc…1c15 ptr = 0xa96c // 0x1bfc @0x0
0x1bfc…1c15 lno = 0x0a40 // 0x1bfe @0x2
0x1bfc…1c15 at0004 = ╱9d╱ EXEC ╱ // 0x1c00 @0x4
0x1bfc…1c15 at0005 = ╱46╱F╱ // 0x1c01 @0x5
0x1bfc…1c15 at0006 = ╱45╱E╱ // 0x1c02 @0x6
0x1bfc…1c15 at0007 = ╱4a╱J╱ // 0x1c03 @0x7
0x1bfc…1c15 at0008 = ╱4c╱L╱ // 0x1c04 @0x8
0x1bfc…1c15 at0009 = ╱ed╱(╱ // 0x1c05 @0x9
0x1bfc…1c15 at000a = ╱57╱W╱ // 0x1c06 @0xa
0x1bfc…1c15 at000b = ╱ec╱,╱ // 0x1c07 @0xb
0x1bfc…1c15 at000c = ╱32╱2╱ // 0x1c08 @0xc
0x1bfc…1c15 at000d = ╱35╱5╱ // 0x1c09 @0xd
0x1bfc…1c15 at000e = ╱fe0000c805╱ // 0x1c0a @0xe
0x1bfc…1c15 at0013 = ╱ec╱,╱ // 0x1c0f @0x13
0x1bfc…1c15 at0014 = ╱4b╱K╱ // 0x1c10 @0x14
0x1bfc…1c15 at0015 = ╱35╱5╱ // 0x1c11 @0x15
0x1bfc…1c15 at0016 = ╱ef╱$╱ // 0x1c12 @0x16
0x1bfc…1c15 at0017 = ╱ee╱)╱ // 0x1c13 @0x17
0x1bfc…1c15 at0018 = EOL // 0x1c14 @0x18
0x1bfc…1c15 }
0x1c15…1c1e a975 2630 CLOSE K5$
0x1c15…1c1e LineComalBin {
0x1c15…1c1e ptr = 0xa975 // 0x1c15 @0x0
0x1c15…1c1e lno = 0x0a46 // 0x1c17 @0x2
0x1c15…1c1e at0004 = ╱a8╱ CLOSE ╱ // 0x1c19 @0x4
0x1c15…1c1e at0005 = ╱4b╱K╱ // 0x1c1a @0x5
0x1c15…1c1e at0006 = ╱35╱5╱ // 0x1c1b @0x6
0x1c15…1c1e at0007 = ╱ef╱$╱ // 0x1c1c @0x7
0x1c15…1c1e at0008 = EOL // 0x1c1d @0x8
0x1c15…1c1e }
0x1c1e…1c37 a98e 2640 EXEC FEJL(W,16,K5$)
0x1c1e…1c37 LineComalBin {
0x1c1e…1c37 ptr = 0xa98e // 0x1c1e @0x0
0x1c1e…1c37 lno = 0x0a50 // 0x1c20 @0x2
0x1c1e…1c37 at0004 = ╱9d╱ EXEC ╱ // 0x1c22 @0x4
0x1c1e…1c37 at0005 = ╱46╱F╱ // 0x1c23 @0x5
0x1c1e…1c37 at0006 = ╱45╱E╱ // 0x1c24 @0x6
0x1c1e…1c37 at0007 = ╱4a╱J╱ // 0x1c25 @0x7
0x1c1e…1c37 at0008 = ╱4c╱L╱ // 0x1c26 @0x8
0x1c1e…1c37 at0009 = ╱ed╱(╱ // 0x1c27 @0x9
0x1c1e…1c37 at000a = ╱57╱W╱ // 0x1c28 @0xa
0x1c1e…1c37 at000b = ╱ec╱,╱ // 0x1c29 @0xb
0x1c1e…1c37 at000c = ╱31╱1╱ // 0x1c2a @0xc
0x1c1e…1c37 at000d = ╱36╱6╱ // 0x1c2b @0xd
0x1c1e…1c37 at000e = ╱fe00008005╱ // 0x1c2c @0xe
0x1c1e…1c37 at0013 = ╱ec╱,╱ // 0x1c31 @0x13
0x1c1e…1c37 at0014 = ╱4b╱K╱ // 0x1c32 @0x14
0x1c1e…1c37 at0015 = ╱35╱5╱ // 0x1c33 @0x15
0x1c1e…1c37 at0016 = ╱ef╱$╱ // 0x1c34 @0x16
0x1c1e…1c37 at0017 = ╱ee╱)╱ // 0x1c35 @0x17
0x1c1e…1c37 at0018 = EOL // 0x1c36 @0x18
0x1c1e…1c37 }
0x1c37…1c42 a999 2650 OPEN K2$,R
0x1c37…1c42 LineComalBin {
0x1c37…1c42 ptr = 0xa999 // 0x1c37 @0x0
0x1c37…1c42 lno = 0x0a5a // 0x1c39 @0x2
0x1c37…1c42 at0004 = ╱a7╱ OPEN ╱ // 0x1c3b @0x4
0x1c37…1c42 at0005 = ╱4b╱K╱ // 0x1c3c @0x5
0x1c37…1c42 at0006 = ╱32╱2╱ // 0x1c3d @0x6
0x1c37…1c42 at0007 = ╱ef╱$╱ // 0x1c3e @0x7
0x1c37…1c42 at0008 = ╱ec╱,╱ // 0x1c3f @0x8
0x1c37…1c42 at0009 = ╱52╱R╱ // 0x1c40 @0x9
0x1c37…1c42 at000a = EOL // 0x1c41 @0xa
0x1c37…1c42 }
0x1c42…1c5b a9b2 2660 EXEC FEJL(W,17,K2$)
0x1c42…1c5b LineComalBin {
0x1c42…1c5b ptr = 0xa9b2 // 0x1c42 @0x0
0x1c42…1c5b lno = 0x0a64 // 0x1c44 @0x2
0x1c42…1c5b at0004 = ╱9d╱ EXEC ╱ // 0x1c46 @0x4
0x1c42…1c5b at0005 = ╱46╱F╱ // 0x1c47 @0x5
0x1c42…1c5b at0006 = ╱45╱E╱ // 0x1c48 @0x6
0x1c42…1c5b at0007 = ╱4a╱J╱ // 0x1c49 @0x7
0x1c42…1c5b at0008 = ╱4c╱L╱ // 0x1c4a @0x8
0x1c42…1c5b at0009 = ╱ed╱(╱ // 0x1c4b @0x9
0x1c42…1c5b at000a = ╱57╱W╱ // 0x1c4c @0xa
0x1c42…1c5b at000b = ╱ec╱,╱ // 0x1c4d @0xb
0x1c42…1c5b at000c = ╱31╱1╱ // 0x1c4e @0xc
0x1c42…1c5b at000d = ╱37╱7╱ // 0x1c4f @0xd
0x1c42…1c5b at000e = ╱fe00008805╱ // 0x1c50 @0xe
0x1c42…1c5b at0013 = ╱ec╱,╱ // 0x1c55 @0x13
0x1c42…1c5b at0014 = ╱4b╱K╱ // 0x1c56 @0x14
0x1c42…1c5b at0015 = ╱32╱2╱ // 0x1c57 @0x15
0x1c42…1c5b at0016 = ╱ef╱$╱ // 0x1c58 @0x16
0x1c42…1c5b at0017 = ╱ee╱)╱ // 0x1c59 @0x17
0x1c42…1c5b at0018 = EOL // 0x1c5a @0x18
0x1c42…1c5b }
0x1c5b…1c66 a9bd 2670 OPEN K3$,W
0x1c5b…1c66 LineComalBin {
0x1c5b…1c66 ptr = 0xa9bd // 0x1c5b @0x0
0x1c5b…1c66 lno = 0x0a6e // 0x1c5d @0x2
0x1c5b…1c66 at0004 = ╱a7╱ OPEN ╱ // 0x1c5f @0x4
0x1c5b…1c66 at0005 = ╱4b╱K╱ // 0x1c60 @0x5
0x1c5b…1c66 at0006 = ╱33╱3╱ // 0x1c61 @0x6
0x1c5b…1c66 at0007 = ╱ef╱$╱ // 0x1c62 @0x7
0x1c5b…1c66 at0008 = ╱ec╱,╱ // 0x1c63 @0x8
0x1c5b…1c66 at0009 = ╱57╱W╱ // 0x1c64 @0x9
0x1c5b…1c66 at000a = EOL // 0x1c65 @0xa
0x1c5b…1c66 }
0x1c66…1c7f a9d6 2680 EXEC FEJL(W,18,K3$)
0x1c66…1c7f LineComalBin {
0x1c66…1c7f ptr = 0xa9d6 // 0x1c66 @0x0
0x1c66…1c7f lno = 0x0a78 // 0x1c68 @0x2
0x1c66…1c7f at0004 = ╱9d╱ EXEC ╱ // 0x1c6a @0x4
0x1c66…1c7f at0005 = ╱46╱F╱ // 0x1c6b @0x5
0x1c66…1c7f at0006 = ╱45╱E╱ // 0x1c6c @0x6
0x1c66…1c7f at0007 = ╱4a╱J╱ // 0x1c6d @0x7
0x1c66…1c7f at0008 = ╱4c╱L╱ // 0x1c6e @0x8
0x1c66…1c7f at0009 = ╱ed╱(╱ // 0x1c6f @0x9
0x1c66…1c7f at000a = ╱57╱W╱ // 0x1c70 @0xa
0x1c66…1c7f at000b = ╱ec╱,╱ // 0x1c71 @0xb
0x1c66…1c7f at000c = ╱31╱1╱ // 0x1c72 @0xc
0x1c66…1c7f at000d = ╱38╱8╱ // 0x1c73 @0xd
0x1c66…1c7f at000e = ╱fe00009005╱ // 0x1c74 @0xe
0x1c66…1c7f at0013 = ╱ec╱,╱ // 0x1c79 @0x13
0x1c66…1c7f at0014 = ╱4b╱K╱ // 0x1c7a @0x14
0x1c66…1c7f at0015 = ╱33╱3╱ // 0x1c7b @0x15
0x1c66…1c7f at0016 = ╱ef╱$╱ // 0x1c7c @0x16
0x1c66…1c7f at0017 = ╱ee╱)╱ // 0x1c7d @0x17
0x1c66…1c7f at0018 = EOL // 0x1c7e @0x18
0x1c66…1c7f }
0x1c7f…1c8a a9e1 2690 OPEN K4$,W
0x1c7f…1c8a LineComalBin {
0x1c7f…1c8a ptr = 0xa9e1 // 0x1c7f @0x0
0x1c7f…1c8a lno = 0x0a82 // 0x1c81 @0x2
0x1c7f…1c8a at0004 = ╱a7╱ OPEN ╱ // 0x1c83 @0x4
0x1c7f…1c8a at0005 = ╱4b╱K╱ // 0x1c84 @0x5
0x1c7f…1c8a at0006 = ╱34╱4╱ // 0x1c85 @0x6
0x1c7f…1c8a at0007 = ╱ef╱$╱ // 0x1c86 @0x7
0x1c7f…1c8a at0008 = ╱ec╱,╱ // 0x1c87 @0x8
0x1c7f…1c8a at0009 = ╱57╱W╱ // 0x1c88 @0x9
0x1c7f…1c8a at000a = EOL // 0x1c89 @0xa
0x1c7f…1c8a }
0x1c8a…1ca3 a9fa 2700 EXEC FEJL(W,19,K4$)
0x1c8a…1ca3 LineComalBin {
0x1c8a…1ca3 ptr = 0xa9fa // 0x1c8a @0x0
0x1c8a…1ca3 lno = 0x0a8c // 0x1c8c @0x2
0x1c8a…1ca3 at0004 = ╱9d╱ EXEC ╱ // 0x1c8e @0x4
0x1c8a…1ca3 at0005 = ╱46╱F╱ // 0x1c8f @0x5
0x1c8a…1ca3 at0006 = ╱45╱E╱ // 0x1c90 @0x6
0x1c8a…1ca3 at0007 = ╱4a╱J╱ // 0x1c91 @0x7
0x1c8a…1ca3 at0008 = ╱4c╱L╱ // 0x1c92 @0x8
0x1c8a…1ca3 at0009 = ╱ed╱(╱ // 0x1c93 @0x9
0x1c8a…1ca3 at000a = ╱57╱W╱ // 0x1c94 @0xa
0x1c8a…1ca3 at000b = ╱ec╱,╱ // 0x1c95 @0xb
0x1c8a…1ca3 at000c = ╱31╱1╱ // 0x1c96 @0xc
0x1c8a…1ca3 at000d = ╱39╱9╱ // 0x1c97 @0xd
0x1c8a…1ca3 at000e = ╱fe00009805╱ // 0x1c98 @0xe
0x1c8a…1ca3 at0013 = ╱ec╱,╱ // 0x1c9d @0x13
0x1c8a…1ca3 at0014 = ╱4b╱K╱ // 0x1c9e @0x14
0x1c8a…1ca3 at0015 = ╱34╱4╱ // 0x1c9f @0x15
0x1c8a…1ca3 at0016 = ╱ef╱$╱ // 0x1ca0 @0x16
0x1c8a…1ca3 at0017 = ╱ee╱)╱ // 0x1ca1 @0x17
0x1c8a…1ca3 at0018 = EOL // 0x1ca2 @0x18
0x1c8a…1ca3 }
0x1ca3…1cc3 aa1a 2710 EXEC INDTAB1(FTAB1,MFANTAL,K2$)
0x1ca3…1cc3 LineComalBin {
0x1ca3…1cc3 ptr = 0xaa1a // 0x1ca3 @0x0
0x1ca3…1cc3 lno = 0x0a96 // 0x1ca5 @0x2
0x1ca3…1cc3 at0004 = ╱9d╱ EXEC ╱ // 0x1ca7 @0x4
0x1ca3…1cc3 at0005 = ╱49╱I╱ // 0x1ca8 @0x5
0x1ca3…1cc3 at0006 = ╱4e╱N╱ // 0x1ca9 @0x6
0x1ca3…1cc3 at0007 = ╱44╱D╱ // 0x1caa @0x7
0x1ca3…1cc3 at0008 = ╱54╱T╱ // 0x1cab @0x8
0x1ca3…1cc3 at0009 = ╱41╱A╱ // 0x1cac @0x9
0x1ca3…1cc3 at000a = ╱42╱B╱ // 0x1cad @0xa
0x1ca3…1cc3 at000b = ╱31╱1╱ // 0x1cae @0xb
0x1ca3…1cc3 at000c = ╱ed╱(╱ // 0x1caf @0xc
0x1ca3…1cc3 at000d = ╱46╱F╱ // 0x1cb0 @0xd
0x1ca3…1cc3 at000e = ╱54╱T╱ // 0x1cb1 @0xe
0x1ca3…1cc3 at000f = ╱41╱A╱ // 0x1cb2 @0xf
0x1ca3…1cc3 at0010 = ╱42╱B╱ // 0x1cb3 @0x10
0x1ca3…1cc3 at0011 = ╱31╱1╱ // 0x1cb4 @0x11
0x1ca3…1cc3 at0012 = ╱ec╱,╱ // 0x1cb5 @0x12
0x1ca3…1cc3 at0013 = ╱4d╱M╱ // 0x1cb6 @0x13
0x1ca3…1cc3 at0014 = ╱46╱F╱ // 0x1cb7 @0x14
0x1ca3…1cc3 at0015 = ╱41╱A╱ // 0x1cb8 @0x15
0x1ca3…1cc3 at0016 = ╱4e╱N╱ // 0x1cb9 @0x16
0x1ca3…1cc3 at0017 = ╱54╱T╱ // 0x1cba @0x17
0x1ca3…1cc3 at0018 = ╱41╱A╱ // 0x1cbb @0x18
0x1ca3…1cc3 at0019 = ╱4c╱L╱ // 0x1cbc @0x19
0x1ca3…1cc3 at001a = ╱ec╱,╱ // 0x1cbd @0x1a
0x1ca3…1cc3 at001b = ╱4b╱K╱ // 0x1cbe @0x1b
0x1ca3…1cc3 at001c = ╱32╱2╱ // 0x1cbf @0x1c
0x1ca3…1cc3 at001d = ╱ef╱$╱ // 0x1cc0 @0x1d
0x1ca3…1cc3 at001e = ╱ee╱)╱ // 0x1cc1 @0x1e
0x1ca3…1cc3 at001f = EOL // 0x1cc2 @0x1f
0x1ca3…1cc3 }
0x1cc3…1ce1 aa38 2720 EXEC INDTAB(VTAB,MVANTAL,K3$)
0x1cc3…1ce1 LineComalBin {
0x1cc3…1ce1 ptr = 0xaa38 // 0x1cc3 @0x0
0x1cc3…1ce1 lno = 0x0aa0 // 0x1cc5 @0x2
0x1cc3…1ce1 at0004 = ╱9d╱ EXEC ╱ // 0x1cc7 @0x4
0x1cc3…1ce1 at0005 = ╱49╱I╱ // 0x1cc8 @0x5
0x1cc3…1ce1 at0006 = ╱4e╱N╱ // 0x1cc9 @0x6
0x1cc3…1ce1 at0007 = ╱44╱D╱ // 0x1cca @0x7
0x1cc3…1ce1 at0008 = ╱54╱T╱ // 0x1ccb @0x8
0x1cc3…1ce1 at0009 = ╱41╱A╱ // 0x1ccc @0x9
0x1cc3…1ce1 at000a = ╱42╱B╱ // 0x1ccd @0xa
0x1cc3…1ce1 at000b = ╱ed╱(╱ // 0x1cce @0xb
0x1cc3…1ce1 at000c = ╱56╱V╱ // 0x1ccf @0xc
0x1cc3…1ce1 at000d = ╱54╱T╱ // 0x1cd0 @0xd
0x1cc3…1ce1 at000e = ╱41╱A╱ // 0x1cd1 @0xe
0x1cc3…1ce1 at000f = ╱42╱B╱ // 0x1cd2 @0xf
0x1cc3…1ce1 at0010 = ╱ec╱,╱ // 0x1cd3 @0x10
0x1cc3…1ce1 at0011 = ╱4d╱M╱ // 0x1cd4 @0x11
0x1cc3…1ce1 at0012 = ╱56╱V╱ // 0x1cd5 @0x12
0x1cc3…1ce1 at0013 = ╱41╱A╱ // 0x1cd6 @0x13
0x1cc3…1ce1 at0014 = ╱4e╱N╱ // 0x1cd7 @0x14
0x1cc3…1ce1 at0015 = ╱54╱T╱ // 0x1cd8 @0x15
0x1cc3…1ce1 at0016 = ╱41╱A╱ // 0x1cd9 @0x16
0x1cc3…1ce1 at0017 = ╱4c╱L╱ // 0x1cda @0x17
0x1cc3…1ce1 at0018 = ╱ec╱,╱ // 0x1cdb @0x18
0x1cc3…1ce1 at0019 = ╱4b╱K╱ // 0x1cdc @0x19
0x1cc3…1ce1 at001a = ╱33╱3╱ // 0x1cdd @0x1a
0x1cc3…1ce1 at001b = ╱ef╱$╱ // 0x1cde @0x1b
0x1cc3…1ce1 at001c = ╱ee╱)╱ // 0x1cdf @0x1c
0x1cc3…1ce1 at001d = EOL // 0x1ce0 @0x1d
0x1cc3…1ce1 }
0x1ce1…1cee aa45 2725 SIDENR=B
0x1ce1…1cee LineComalBin {
0x1ce1…1cee ptr = 0xaa45 // 0x1ce1 @0x0
0x1ce1…1cee lno = 0x0aa5 // 0x1ce3 @0x2
0x1ce1…1cee at0004 = ╱53╱S╱ // 0x1ce5 @0x4
0x1ce1…1cee at0005 = ╱49╱I╱ // 0x1ce6 @0x5
0x1ce1…1cee at0006 = ╱44╱D╱ // 0x1ce7 @0x6
0x1ce1…1cee at0007 = ╱45╱E╱ // 0x1ce8 @0x7
0x1ce1…1cee at0008 = ╱4e╱N╱ // 0x1ce9 @0x8
0x1ce1…1cee at0009 = ╱52╱R╱ // 0x1cea @0x9
0x1ce1…1cee at000a = ╱dc╱=╱ // 0x1ceb @0xa
0x1ce1…1cee at000b = ╱42╱B╱ // 0x1cec @0xb
0x1ce1…1cee at000c = EOL // 0x1ced @0xc
0x1ce1…1cee }
0x1cee…1cf4 aa4b 2730 REPEAT
0x1cee…1cf4 LineComalBin {
0x1cee…1cf4 ptr = 0xaa4b // 0x1cee @0x0
0x1cee…1cf4 lno = 0x0aaa // 0x1cf0 @0x2
0x1cee…1cf4 at0004 = ╱97╱ REPEAT ╱ // 0x1cf2 @0x4
0x1cee…1cf4 at0005 = EOL // 0x1cf3 @0x5
0x1cee…1cf4 }
0x1cf4…1cfa aa51 2740 CLEAR
0x1cf4…1cfa LineComalBin {
0x1cf4…1cfa ptr = 0xaa51 // 0x1cf4 @0x0
0x1cf4…1cfa lno = 0x0ab4 // 0x1cf6 @0x2
0x1cf4…1cfa at0004 = ╱a0╱ CLEAR ╱ // 0x1cf8 @0x4
0x1cf4…1cfa at0005 = EOL // 0x1cf9 @0x5
0x1cf4…1cfa }
0x1cfa…1d09 aa60 2750 CURSOR 21,E
0x1cfa…1d09 LineComalBin {
0x1cfa…1d09 ptr = 0xaa60 // 0x1cfa @0x0
0x1cfa…1d09 lno = 0x0abe // 0x1cfc @0x2
0x1cfa…1d09 at0004 = ╱a1╱ CURSOR ╱ // 0x1cfe @0x4
0x1cfa…1d09 at0005 = ╱32╱2╱ // 0x1cff @0x5
0x1cfa…1d09 at0006 = ╱31╱1╱ // 0x1d00 @0x6
0x1cfa…1d09 at0007 = ╱fe0000a805╱ // 0x1d01 @0x7
0x1cfa…1d09 at000c = ╱ec╱,╱ // 0x1d06 @0xc
0x1cfa…1d09 at000d = ╱45╱E╱ // 0x1d07 @0xd
0x1cfa…1d09 at000e = EOL // 0x1d08 @0xe
0x1cfa…1d09 }
0x1d09…1d25 aa7c 2760 PRINT "Varevedligeholdelse."
0x1d09…1d25 LineComalBin {
0x1d09…1d25 ptr = 0xaa7c // 0x1d09 @0x0
0x1d09…1d25 lno = 0x0ac8 // 0x1d0b @0x2
0x1d09…1d25 at0004 = ╱92╱ PRINT ╱ // 0x1d0d @0x4
0x1d09…1d25 at0005 = ╱22╱"╱ // 0x1d0e @0x5
0x1d09…1d25 at0006 = ╱56╱V╱ // 0x1d0f @0x6
0x1d09…1d25 at0007 = ╱61╱a╱ // 0x1d10 @0x7
0x1d09…1d25 at0008 = ╱72╱r╱ // 0x1d11 @0x8
0x1d09…1d25 at0009 = ╱65╱e╱ // 0x1d12 @0x9
0x1d09…1d25 at000a = ╱76╱v╱ // 0x1d13 @0xa
0x1d09…1d25 at000b = ╱65╱e╱ // 0x1d14 @0xb
0x1d09…1d25 at000c = ╱64╱d╱ // 0x1d15 @0xc
0x1d09…1d25 at000d = ╱6c╱l╱ // 0x1d16 @0xd
0x1d09…1d25 at000e = ╱69╱i╱ // 0x1d17 @0xe
0x1d09…1d25 at000f = ╱67╱g╱ // 0x1d18 @0xf
0x1d09…1d25 at0010 = ╱65╱e╱ // 0x1d19 @0x10
0x1d09…1d25 at0011 = ╱68╱h╱ // 0x1d1a @0x11
0x1d09…1d25 at0012 = ╱6f╱o╱ // 0x1d1b @0x12
0x1d09…1d25 at0013 = ╱6c╱l╱ // 0x1d1c @0x13
0x1d09…1d25 at0014 = ╱64╱d╱ // 0x1d1d @0x14
0x1d09…1d25 at0015 = ╱65╱e╱ // 0x1d1e @0x15
0x1d09…1d25 at0016 = ╱6c╱l╱ // 0x1d1f @0x16
0x1d09…1d25 at0017 = ╱73╱s╱ // 0x1d20 @0x17
0x1d09…1d25 at0018 = ╱65╱e╱ // 0x1d21 @0x18
0x1d09…1d25 at0019 = ╱2e╱.╱ // 0x1d22 @0x19
0x1d09…1d25 at001a = ╱22╱"╱ // 0x1d23 @0x1a
0x1d09…1d25 at001b = EOL // 0x1d24 @0x1b
0x1d09…1d25 }
0x1d25…1d39 aa90 2770 CURSOR 11,4
0x1d25…1d39 LineComalBin {
0x1d25…1d39 ptr = 0xaa90 // 0x1d25 @0x0
0x1d25…1d39 lno = 0x0ad2 // 0x1d27 @0x2
0x1d25…1d39 at0004 = ╱a1╱ CURSOR ╱ // 0x1d29 @0x4
0x1d25…1d39 at0005 = ╱31╱1╱ // 0x1d2a @0x5
0x1d25…1d39 at0006 = ╱31╱1╱ // 0x1d2b @0x6
0x1d25…1d39 at0007 = ╱fe0000b004╱ // 0x1d2c @0x7
0x1d25…1d39 at000c = ╱ec╱,╱ // 0x1d31 @0xc
0x1d25…1d39 at000d = ╱34╱4╱ // 0x1d32 @0xd
0x1d25…1d39 at000e = ╱fe00008003╱ // 0x1d33 @0xe
0x1d25…1d39 at0013 = EOL // 0x1d38 @0x13
0x1d25…1d39 }
0x1d39…1d4b aaa2 2780 PRINT "0: Færdig."
0x1d39…1d4b LineComalBin {
0x1d39…1d4b ptr = 0xaaa2 // 0x1d39 @0x0
0x1d39…1d4b lno = 0x0adc // 0x1d3b @0x2
0x1d39…1d4b at0004 = ╱92╱ PRINT ╱ // 0x1d3d @0x4
0x1d39…1d4b at0005 = ╱22╱"╱ // 0x1d3e @0x5
0x1d39…1d4b at0006 = ╱30╱0╱ // 0x1d3f @0x6
0x1d39…1d4b at0007 = ╱3a╱:╱ // 0x1d40 @0x7
0x1d39…1d4b at0008 = ╱20╱…╱ // 0x1d41 @0x8
0x1d39…1d4b at0009 = ╱46╱F╱ // 0x1d42 @0x9
0x1d39…1d4b at000a = ╱7b╱æ╱ // 0x1d43 @0xa
0x1d39…1d4b at000b = ╱72╱r╱ // 0x1d44 @0xb
0x1d39…1d4b at000c = ╱64╱d╱ // 0x1d45 @0xc
0x1d39…1d4b at000d = ╱69╱i╱ // 0x1d46 @0xd
0x1d39…1d4b at000e = ╱67╱g╱ // 0x1d47 @0xe
0x1d39…1d4b at000f = ╱2e╱.╱ // 0x1d48 @0xf
0x1d39…1d4b at0010 = ╱22╱"╱ // 0x1d49 @0x10
0x1d39…1d4b at0011 = EOL // 0x1d4a @0x11
0x1d39…1d4b }
0x1d4b…1d5f aab6 2790 CURSOR 11,6
0x1d4b…1d5f LineComalBin {
0x1d4b…1d5f ptr = 0xaab6 // 0x1d4b @0x0
0x1d4b…1d5f lno = 0x0ae6 // 0x1d4d @0x2
0x1d4b…1d5f at0004 = ╱a1╱ CURSOR ╱ // 0x1d4f @0x4
0x1d4b…1d5f at0005 = ╱31╱1╱ // 0x1d50 @0x5
0x1d4b…1d5f at0006 = ╱31╱1╱ // 0x1d51 @0x6
0x1d4b…1d5f at0007 = ╱fe0000b004╱ // 0x1d52 @0x7
0x1d4b…1d5f at000c = ╱ec╱,╱ // 0x1d57 @0xc
0x1d4b…1d5f at000d = ╱36╱6╱ // 0x1d58 @0xd
0x1d4b…1d5f at000e = ╱fe0000c003╱ // 0x1d59 @0xe
0x1d4b…1d5f at0013 = EOL // 0x1d5e @0x13
0x1d4b…1d5f }
0x1d5f…1d72 aac9 2800 PRINT "1: Ny vare."
0x1d5f…1d72 LineComalBin {
0x1d5f…1d72 ptr = 0xaac9 // 0x1d5f @0x0
0x1d5f…1d72 lno = 0x0af0 // 0x1d61 @0x2
0x1d5f…1d72 at0004 = ╱92╱ PRINT ╱ // 0x1d63 @0x4
0x1d5f…1d72 at0005 = ╱22╱"╱ // 0x1d64 @0x5
0x1d5f…1d72 at0006 = ╱31╱1╱ // 0x1d65 @0x6
0x1d5f…1d72 at0007 = ╱3a╱:╱ // 0x1d66 @0x7
0x1d5f…1d72 at0008 = ╱20╱…╱ // 0x1d67 @0x8
0x1d5f…1d72 at0009 = ╱4e╱N╱ // 0x1d68 @0x9
0x1d5f…1d72 at000a = ╱79╱y╱ // 0x1d69 @0xa
0x1d5f…1d72 at000b = ╱20╱…╱ // 0x1d6a @0xb
0x1d5f…1d72 at000c = ╱76╱v╱ // 0x1d6b @0xc
0x1d5f…1d72 at000d = ╱61╱a╱ // 0x1d6c @0xd
0x1d5f…1d72 at000e = ╱72╱r╱ // 0x1d6d @0xe
0x1d5f…1d72 at000f = ╱65╱e╱ // 0x1d6e @0xf
0x1d5f…1d72 at0010 = ╱2e╱.╱ // 0x1d6f @0x10
0x1d5f…1d72 at0011 = ╱22╱"╱ // 0x1d70 @0x11
0x1d5f…1d72 at0012 = EOL // 0x1d71 @0x12
0x1d5f…1d72 }
0x1d72…1d86 aadd 2810 CURSOR 11,8
0x1d72…1d86 LineComalBin {
0x1d72…1d86 ptr = 0xaadd // 0x1d72 @0x0
0x1d72…1d86 lno = 0x0afa // 0x1d74 @0x2
0x1d72…1d86 at0004 = ╱a1╱ CURSOR ╱ // 0x1d76 @0x4
0x1d72…1d86 at0005 = ╱31╱1╱ // 0x1d77 @0x5
0x1d72…1d86 at0006 = ╱31╱1╱ // 0x1d78 @0x6
0x1d72…1d86 at0007 = ╱fe0000b004╱ // 0x1d79 @0x7
0x1d72…1d86 at000c = ╱ec╱,╱ // 0x1d7e @0xc
0x1d72…1d86 at000d = ╱38╱8╱ // 0x1d7f @0xd
0x1d72…1d86 at000e = ╱fe00008004╱ // 0x1d80 @0xe
0x1d72…1d86 at0013 = EOL // 0x1d85 @0x13
0x1d72…1d86 }
0x1d86…1da1 aaf8 2820 PRINT "2: Ændring af vare."
0x1d86…1da1 LineComalBin {
0x1d86…1da1 ptr = 0xaaf8 // 0x1d86 @0x0
0x1d86…1da1 lno = 0x0b04 // 0x1d88 @0x2
0x1d86…1da1 at0004 = ╱92╱ PRINT ╱ // 0x1d8a @0x4
0x1d86…1da1 at0005 = ╱22╱"╱ // 0x1d8b @0x5
0x1d86…1da1 at0006 = ╱32╱2╱ // 0x1d8c @0x6
0x1d86…1da1 at0007 = ╱3a╱:╱ // 0x1d8d @0x7
0x1d86…1da1 at0008 = ╱20╱…╱ // 0x1d8e @0x8
0x1d86…1da1 at0009 = ╱5b╱Æ╱ // 0x1d8f @0x9
0x1d86…1da1 at000a = ╱6e╱n╱ // 0x1d90 @0xa
0x1d86…1da1 at000b = ╱64╱d╱ // 0x1d91 @0xb
0x1d86…1da1 at000c = ╱72╱r╱ // 0x1d92 @0xc
0x1d86…1da1 at000d = ╱69╱i╱ // 0x1d93 @0xd
0x1d86…1da1 at000e = ╱6e╱n╱ // 0x1d94 @0xe
0x1d86…1da1 at000f = ╱67╱g╱ // 0x1d95 @0xf
0x1d86…1da1 at0010 = ╱20╱…╱ // 0x1d96 @0x10
0x1d86…1da1 at0011 = ╱61╱a╱ // 0x1d97 @0x11
0x1d86…1da1 at0012 = ╱66╱f╱ // 0x1d98 @0x12
0x1d86…1da1 at0013 = ╱20╱…╱ // 0x1d99 @0x13
0x1d86…1da1 at0014 = ╱76╱v╱ // 0x1d9a @0x14
0x1d86…1da1 at0015 = ╱61╱a╱ // 0x1d9b @0x15
0x1d86…1da1 at0016 = ╱72╱r╱ // 0x1d9c @0x16
0x1d86…1da1 at0017 = ╱65╱e╱ // 0x1d9d @0x17
0x1d86…1da1 at0018 = ╱2e╱.╱ // 0x1d9e @0x18
0x1d86…1da1 at0019 = ╱22╱"╱ // 0x1d9f @0x19
0x1d86…1da1 at001a = EOL // 0x1da0 @0x1a
0x1d86…1da1 }
0x1da1…1db6 ab0d 2830 CURSOR 11,10
0x1da1…1db6 LineComalBin {
0x1da1…1db6 ptr = 0xab0d // 0x1da1 @0x0
0x1da1…1db6 lno = 0x0b0e // 0x1da3 @0x2
0x1da1…1db6 at0004 = ╱a1╱ CURSOR ╱ // 0x1da5 @0x4
0x1da1…1db6 at0005 = ╱31╱1╱ // 0x1da6 @0x5
0x1da1…1db6 at0006 = ╱31╱1╱ // 0x1da7 @0x6
0x1da1…1db6 at0007 = ╱fe0000b004╱ // 0x1da8 @0x7
0x1da1…1db6 at000c = ╱ec╱,╱ // 0x1dad @0xc
0x1da1…1db6 at000d = ╱31╱1╱ // 0x1dae @0xd
0x1da1…1db6 at000e = ╱30╱0╱ // 0x1daf @0xe
0x1da1…1db6 at000f = ╱fe0000a004╱ // 0x1db0 @0xf
0x1da1…1db6 at0014 = EOL // 0x1db5 @0x14
0x1da1…1db6 }
0x1db6…1dd2 ab29 2840 PRINT "3: Sletning af vare."
0x1db6…1dd2 LineComalBin {
0x1db6…1dd2 ptr = 0xab29 // 0x1db6 @0x0
0x1db6…1dd2 lno = 0x0b18 // 0x1db8 @0x2
0x1db6…1dd2 at0004 = ╱92╱ PRINT ╱ // 0x1dba @0x4
0x1db6…1dd2 at0005 = ╱22╱"╱ // 0x1dbb @0x5
0x1db6…1dd2 at0006 = ╱33╱3╱ // 0x1dbc @0x6
0x1db6…1dd2 at0007 = ╱3a╱:╱ // 0x1dbd @0x7
0x1db6…1dd2 at0008 = ╱20╱…╱ // 0x1dbe @0x8
0x1db6…1dd2 at0009 = ╱53╱S╱ // 0x1dbf @0x9
0x1db6…1dd2 at000a = ╱6c╱l╱ // 0x1dc0 @0xa
0x1db6…1dd2 at000b = ╱65╱e╱ // 0x1dc1 @0xb
0x1db6…1dd2 at000c = ╱74╱t╱ // 0x1dc2 @0xc
0x1db6…1dd2 at000d = ╱6e╱n╱ // 0x1dc3 @0xd
0x1db6…1dd2 at000e = ╱69╱i╱ // 0x1dc4 @0xe
0x1db6…1dd2 at000f = ╱6e╱n╱ // 0x1dc5 @0xf
0x1db6…1dd2 at0010 = ╱67╱g╱ // 0x1dc6 @0x10
0x1db6…1dd2 at0011 = ╱20╱…╱ // 0x1dc7 @0x11
0x1db6…1dd2 at0012 = ╱61╱a╱ // 0x1dc8 @0x12
0x1db6…1dd2 at0013 = ╱66╱f╱ // 0x1dc9 @0x13
0x1db6…1dd2 at0014 = ╱20╱…╱ // 0x1dca @0x14
0x1db6…1dd2 at0015 = ╱76╱v╱ // 0x1dcb @0x15
0x1db6…1dd2 at0016 = ╱61╱a╱ // 0x1dcc @0x16
0x1db6…1dd2 at0017 = ╱72╱r╱ // 0x1dcd @0x17
0x1db6…1dd2 at0018 = ╱65╱e╱ // 0x1dce @0x18
0x1db6…1dd2 at0019 = ╱2e╱.╱ // 0x1dcf @0x19
0x1db6…1dd2 at001a = ╱22╱"╱ // 0x1dd0 @0x1a
0x1db6…1dd2 at001b = EOL // 0x1dd1 @0x1b
0x1db6…1dd2 }
0x1dd2…1de7 ab3e 2850 CURSOR 11,12
0x1dd2…1de7 LineComalBin {
0x1dd2…1de7 ptr = 0xab3e // 0x1dd2 @0x0
0x1dd2…1de7 lno = 0x0b22 // 0x1dd4 @0x2
0x1dd2…1de7 at0004 = ╱a1╱ CURSOR ╱ // 0x1dd6 @0x4
0x1dd2…1de7 at0005 = ╱31╱1╱ // 0x1dd7 @0x5
0x1dd2…1de7 at0006 = ╱31╱1╱ // 0x1dd8 @0x6
0x1dd2…1de7 at0007 = ╱fe0000b004╱ // 0x1dd9 @0x7
0x1dd2…1de7 at000c = ╱ec╱,╱ // 0x1dde @0xc
0x1dd2…1de7 at000d = ╱31╱1╱ // 0x1ddf @0xd
0x1dd2…1de7 at000e = ╱32╱2╱ // 0x1de0 @0xe
0x1dd2…1de7 at000f = ╱fe0000c004╱ // 0x1de1 @0xf
0x1dd2…1de7 at0014 = EOL // 0x1de6 @0x14
0x1dd2…1de7 }
0x1de7…1e03 ab5a 2860 PRINT "4: Udskrift af vare."
0x1de7…1e03 LineComalBin {
0x1de7…1e03 ptr = 0xab5a // 0x1de7 @0x0
0x1de7…1e03 lno = 0x0b2c // 0x1de9 @0x2
0x1de7…1e03 at0004 = ╱92╱ PRINT ╱ // 0x1deb @0x4
0x1de7…1e03 at0005 = ╱22╱"╱ // 0x1dec @0x5
0x1de7…1e03 at0006 = ╱34╱4╱ // 0x1ded @0x6
0x1de7…1e03 at0007 = ╱3a╱:╱ // 0x1dee @0x7
0x1de7…1e03 at0008 = ╱20╱…╱ // 0x1def @0x8
0x1de7…1e03 at0009 = ╱55╱U╱ // 0x1df0 @0x9
0x1de7…1e03 at000a = ╱64╱d╱ // 0x1df1 @0xa
0x1de7…1e03 at000b = ╱73╱s╱ // 0x1df2 @0xb
0x1de7…1e03 at000c = ╱6b╱k╱ // 0x1df3 @0xc
0x1de7…1e03 at000d = ╱72╱r╱ // 0x1df4 @0xd
0x1de7…1e03 at000e = ╱69╱i╱ // 0x1df5 @0xe
0x1de7…1e03 at000f = ╱66╱f╱ // 0x1df6 @0xf
0x1de7…1e03 at0010 = ╱74╱t╱ // 0x1df7 @0x10
0x1de7…1e03 at0011 = ╱20╱…╱ // 0x1df8 @0x11
0x1de7…1e03 at0012 = ╱61╱a╱ // 0x1df9 @0x12
0x1de7…1e03 at0013 = ╱66╱f╱ // 0x1dfa @0x13
0x1de7…1e03 at0014 = ╱20╱…╱ // 0x1dfb @0x14
0x1de7…1e03 at0015 = ╱76╱v╱ // 0x1dfc @0x15
0x1de7…1e03 at0016 = ╱61╱a╱ // 0x1dfd @0x16
0x1de7…1e03 at0017 = ╱72╱r╱ // 0x1dfe @0x17
0x1de7…1e03 at0018 = ╱65╱e╱ // 0x1dff @0x18
0x1de7…1e03 at0019 = ╱2e╱.╱ // 0x1e00 @0x19
0x1de7…1e03 at001a = ╱22╱"╱ // 0x1e01 @0x1a
0x1de7…1e03 at001b = EOL // 0x1e02 @0x1b
0x1de7…1e03 }
0x1e03…1e18 ab6f 2870 CURSOR 11,14
0x1e03…1e18 LineComalBin {
0x1e03…1e18 ptr = 0xab6f // 0x1e03 @0x0
0x1e03…1e18 lno = 0x0b36 // 0x1e05 @0x2
0x1e03…1e18 at0004 = ╱a1╱ CURSOR ╱ // 0x1e07 @0x4
0x1e03…1e18 at0005 = ╱31╱1╱ // 0x1e08 @0x5
0x1e03…1e18 at0006 = ╱31╱1╱ // 0x1e09 @0x6
0x1e03…1e18 at0007 = ╱fe0000b004╱ // 0x1e0a @0x7
0x1e03…1e18 at000c = ╱ec╱,╱ // 0x1e0f @0xc
0x1e03…1e18 at000d = ╱31╱1╱ // 0x1e10 @0xd
0x1e03…1e18 at000e = ╱34╱4╱ // 0x1e11 @0xe
0x1e03…1e18 at000f = ╱fe0000e004╱ // 0x1e12 @0xf
0x1e03…1e18 at0014 = EOL // 0x1e17 @0x14
0x1e03…1e18 }
0x1e18…1e3b ab92 2880 PRINT "5: Printerudskrift af vare."
0x1e18…1e3b LineComalBin {
0x1e18…1e3b ptr = 0xab92 // 0x1e18 @0x0
0x1e18…1e3b lno = 0x0b40 // 0x1e1a @0x2
0x1e18…1e3b at0004 = ╱92╱ PRINT ╱ // 0x1e1c @0x4
0x1e18…1e3b at0005 = ╱22╱"╱ // 0x1e1d @0x5
0x1e18…1e3b at0006 = ╱35╱5╱ // 0x1e1e @0x6
0x1e18…1e3b at0007 = ╱3a╱:╱ // 0x1e1f @0x7
0x1e18…1e3b at0008 = ╱20╱…╱ // 0x1e20 @0x8
0x1e18…1e3b at0009 = ╱50╱P╱ // 0x1e21 @0x9
0x1e18…1e3b at000a = ╱72╱r╱ // 0x1e22 @0xa
0x1e18…1e3b at000b = ╱69╱i╱ // 0x1e23 @0xb
0x1e18…1e3b at000c = ╱6e╱n╱ // 0x1e24 @0xc
0x1e18…1e3b at000d = ╱74╱t╱ // 0x1e25 @0xd
0x1e18…1e3b at000e = ╱65╱e╱ // 0x1e26 @0xe
0x1e18…1e3b at000f = ╱72╱r╱ // 0x1e27 @0xf
0x1e18…1e3b at0010 = ╱75╱u╱ // 0x1e28 @0x10
0x1e18…1e3b at0011 = ╱64╱d╱ // 0x1e29 @0x11
0x1e18…1e3b at0012 = ╱73╱s╱ // 0x1e2a @0x12
0x1e18…1e3b at0013 = ╱6b╱k╱ // 0x1e2b @0x13
0x1e18…1e3b at0014 = ╱72╱r╱ // 0x1e2c @0x14
0x1e18…1e3b at0015 = ╱69╱i╱ // 0x1e2d @0x15
0x1e18…1e3b at0016 = ╱66╱f╱ // 0x1e2e @0x16
0x1e18…1e3b at0017 = ╱74╱t╱ // 0x1e2f @0x17
0x1e18…1e3b at0018 = ╱20╱…╱ // 0x1e30 @0x18
0x1e18…1e3b at0019 = ╱61╱a╱ // 0x1e31 @0x19
0x1e18…1e3b at001a = ╱66╱f╱ // 0x1e32 @0x1a
0x1e18…1e3b at001b = ╱20╱…╱ // 0x1e33 @0x1b
0x1e18…1e3b at001c = ╱76╱v╱ // 0x1e34 @0x1c
0x1e18…1e3b at001d = ╱61╱a╱ // 0x1e35 @0x1d
0x1e18…1e3b at001e = ╱72╱r╱ // 0x1e36 @0x1e
0x1e18…1e3b at001f = ╱65╱e╱ // 0x1e37 @0x1f
0x1e18…1e3b at0020 = ╱2e╱.╱ // 0x1e38 @0x20
0x1e18…1e3b at0021 = ╱22╱"╱ // 0x1e39 @0x21
0x1e18…1e3b at0022 = EOL // 0x1e3a @0x22
0x1e18…1e3b }
0x1e3b…1e41 ab98 2890 REPEAT
0x1e3b…1e41 LineComalBin {
0x1e3b…1e41 ptr = 0xab98 // 0x1e3b @0x0
0x1e3b…1e41 lno = 0x0b4a // 0x1e3d @0x2
0x1e3b…1e41 at0004 = ╱97╱ REPEAT ╱ // 0x1e3f @0x4
0x1e3b…1e41 at0005 = EOL // 0x1e40 @0x5
0x1e3b…1e41 }
0x1e41…1e56 abad 2900 CURSOR 11,17
0x1e41…1e56 LineComalBin {
0x1e41…1e56 ptr = 0xabad // 0x1e41 @0x0
0x1e41…1e56 lno = 0x0b54 // 0x1e43 @0x2
0x1e41…1e56 at0004 = ╱a1╱ CURSOR ╱ // 0x1e45 @0x4
0x1e41…1e56 at0005 = ╱31╱1╱ // 0x1e46 @0x5
0x1e41…1e56 at0006 = ╱31╱1╱ // 0x1e47 @0x6
0x1e41…1e56 at0007 = ╱fe0000b004╱ // 0x1e48 @0x7
0x1e41…1e56 at000c = ╱ec╱,╱ // 0x1e4d @0xc
0x1e41…1e56 at000d = ╱31╱1╱ // 0x1e4e @0xd
0x1e41…1e56 at000e = ╱37╱7╱ // 0x1e4f @0xe
0x1e41…1e56 at000f = ╱fe00008805╱ // 0x1e50 @0xf
0x1e41…1e56 at0014 = EOL // 0x1e55 @0x14
0x1e41…1e56 }
0x1e56…1e6d abc4 2910 INPUT "Vælg 0-5:",SVAR$
0x1e56…1e6d LineComalBin {
0x1e56…1e6d ptr = 0xabc4 // 0x1e56 @0x0
0x1e56…1e6d lno = 0x0b5e // 0x1e58 @0x2
0x1e56…1e6d at0004 = ╱91╱ INPUT ╱ // 0x1e5a @0x4
0x1e56…1e6d at0005 = ╱22╱"╱ // 0x1e5b @0x5
0x1e56…1e6d at0006 = ╱56╱V╱ // 0x1e5c @0x6
0x1e56…1e6d at0007 = ╱7b╱æ╱ // 0x1e5d @0x7
0x1e56…1e6d at0008 = ╱6c╱l╱ // 0x1e5e @0x8
0x1e56…1e6d at0009 = ╱67╱g╱ // 0x1e5f @0x9
0x1e56…1e6d at000a = ╱20╱…╱ // 0x1e60 @0xa
0x1e56…1e6d at000b = ╱30╱0╱ // 0x1e61 @0xb
0x1e56…1e6d at000c = ╱2d╱-╱ // 0x1e62 @0xc
0x1e56…1e6d at000d = ╱35╱5╱ // 0x1e63 @0xd
0x1e56…1e6d at000e = ╱3a╱:╱ // 0x1e64 @0xe
0x1e56…1e6d at000f = ╱22╱"╱ // 0x1e65 @0xf
0x1e56…1e6d at0010 = ╱ec╱,╱ // 0x1e66 @0x10
0x1e56…1e6d at0011 = ╱53╱S╱ // 0x1e67 @0x11
0x1e56…1e6d at0012 = ╱56╱V╱ // 0x1e68 @0x12
0x1e56…1e6d at0013 = ╱41╱A╱ // 0x1e69 @0x13
0x1e56…1e6d at0014 = ╱52╱R╱ // 0x1e6a @0x14
0x1e56…1e6d at0015 = ╱ef╱$╱ // 0x1e6b @0x15
0x1e56…1e6d at0016 = EOL // 0x1e6c @0x16
0x1e56…1e6d }
0x1e6d…1e86 abdd 2920 UNTIL SVAR$<"6" AND SVAR$=>"0"
0x1e6d…1e86 LineComalBin {
0x1e6d…1e86 ptr = 0xabdd // 0x1e6d @0x0
0x1e6d…1e86 lno = 0x0b68 // 0x1e6f @0x2
0x1e6d…1e86 at0004 = ╱98╱ UNTIL ╱ // 0x1e71 @0x4
0x1e6d…1e86 at0005 = ╱53╱S╱ // 0x1e72 @0x5
0x1e6d…1e86 at0006 = ╱56╱V╱ // 0x1e73 @0x6
0x1e6d…1e86 at0007 = ╱41╱A╱ // 0x1e74 @0x7
0x1e6d…1e86 at0008 = ╱52╱R╱ // 0x1e75 @0x8
0x1e6d…1e86 at0009 = ╱ef╱$╱ // 0x1e76 @0x9
0x1e6d…1e86 at000a = ╱dd╱<╱ // 0x1e77 @0xa
0x1e6d…1e86 at000b = ╱22╱"╱ // 0x1e78 @0xb
0x1e6d…1e86 at000c = ╱36╱6╱ // 0x1e79 @0xc
0x1e6d…1e86 at000d = ╱22╱"╱ // 0x1e7a @0xd
0x1e6d…1e86 at000e = ╱da╱ AND ╱ // 0x1e7b @0xe
0x1e6d…1e86 at000f = ╱53╱S╱ // 0x1e7c @0xf
0x1e6d…1e86 at0010 = ╱56╱V╱ // 0x1e7d @0x10
0x1e6d…1e86 at0011 = ╱41╱A╱ // 0x1e7e @0x11
0x1e6d…1e86 at0012 = ╱52╱R╱ // 0x1e7f @0x12
0x1e6d…1e86 at0013 = ╱ef╱$╱ // 0x1e80 @0x13
0x1e6d…1e86 at0014 = ╱e0╱=>╱ // 0x1e81 @0x14
0x1e6d…1e86 at0015 = ╱22╱"╱ // 0x1e82 @0x15
0x1e6d…1e86 at0016 = ╱30╱0╱ // 0x1e83 @0x16
0x1e6d…1e86 at0017 = ╱22╱"╱ // 0x1e84 @0x17
0x1e6d…1e86 at0018 = EOL // 0x1e85 @0x18
0x1e6d…1e86 }
0x1e86…1e8c abe3 2930 CLEAR
0x1e86…1e8c LineComalBin {
0x1e86…1e8c ptr = 0xabe3 // 0x1e86 @0x0
0x1e86…1e8c lno = 0x0b72 // 0x1e88 @0x2
0x1e86…1e8c at0004 = ╱a0╱ CLEAR ╱ // 0x1e8a @0x4
0x1e86…1e8c at0005 = EOL // 0x1e8b @0x5
0x1e86…1e8c }
0x1e8c…1e9b abf2 2940 CURSOR 21,E
0x1e8c…1e9b LineComalBin {
0x1e8c…1e9b ptr = 0xabf2 // 0x1e8c @0x0
0x1e8c…1e9b lno = 0x0b7c // 0x1e8e @0x2
0x1e8c…1e9b at0004 = ╱a1╱ CURSOR ╱ // 0x1e90 @0x4
0x1e8c…1e9b at0005 = ╱32╱2╱ // 0x1e91 @0x5
0x1e8c…1e9b at0006 = ╱31╱1╱ // 0x1e92 @0x6
0x1e8c…1e9b at0007 = ╱fe0000a805╱ // 0x1e93 @0x7
0x1e8c…1e9b at000c = ╱ec╱,╱ // 0x1e98 @0xc
0x1e8c…1e9b at000d = ╱45╱E╱ // 0x1e99 @0xd
0x1e8c…1e9b at000e = EOL // 0x1e9a @0xe
0x1e8c…1e9b }
0x1e9b…1eb9 ac10 2950 PRINT "Varevedligeholdelse. ";
0x1e9b…1eb9 LineComalBin {
0x1e9b…1eb9 ptr = 0xac10 // 0x1e9b @0x0
0x1e9b…1eb9 lno = 0x0b86 // 0x1e9d @0x2
0x1e9b…1eb9 at0004 = ╱92╱ PRINT ╱ // 0x1e9f @0x4
0x1e9b…1eb9 at0005 = ╱22╱"╱ // 0x1ea0 @0x5
0x1e9b…1eb9 at0006 = ╱56╱V╱ // 0x1ea1 @0x6
0x1e9b…1eb9 at0007 = ╱61╱a╱ // 0x1ea2 @0x7
0x1e9b…1eb9 at0008 = ╱72╱r╱ // 0x1ea3 @0x8
0x1e9b…1eb9 at0009 = ╱65╱e╱ // 0x1ea4 @0x9
0x1e9b…1eb9 at000a = ╱76╱v╱ // 0x1ea5 @0xa
0x1e9b…1eb9 at000b = ╱65╱e╱ // 0x1ea6 @0xb
0x1e9b…1eb9 at000c = ╱64╱d╱ // 0x1ea7 @0xc
0x1e9b…1eb9 at000d = ╱6c╱l╱ // 0x1ea8 @0xd
0x1e9b…1eb9 at000e = ╱69╱i╱ // 0x1ea9 @0xe
0x1e9b…1eb9 at000f = ╱67╱g╱ // 0x1eaa @0xf
0x1e9b…1eb9 at0010 = ╱65╱e╱ // 0x1eab @0x10
0x1e9b…1eb9 at0011 = ╱68╱h╱ // 0x1eac @0x11
0x1e9b…1eb9 at0012 = ╱6f╱o╱ // 0x1ead @0x12
0x1e9b…1eb9 at0013 = ╱6c╱l╱ // 0x1eae @0x13
0x1e9b…1eb9 at0014 = ╱64╱d╱ // 0x1eaf @0x14
0x1e9b…1eb9 at0015 = ╱65╱e╱ // 0x1eb0 @0x15
0x1e9b…1eb9 at0016 = ╱6c╱l╱ // 0x1eb1 @0x16
0x1e9b…1eb9 at0017 = ╱73╱s╱ // 0x1eb2 @0x17
0x1e9b…1eb9 at0018 = ╱65╱e╱ // 0x1eb3 @0x18
0x1e9b…1eb9 at0019 = ╱2e╱.╱ // 0x1eb4 @0x19
0x1e9b…1eb9 at001a = ╱20╱…╱ // 0x1eb5 @0x1a
0x1e9b…1eb9 at001b = ╱22╱"╱ // 0x1eb6 @0x1b
0x1e9b…1eb9 at001c = ╱eb╱;╱ // 0x1eb7 @0x1c
0x1e9b…1eb9 at001d = EOL // 0x1eb8 @0x1d
0x1e9b…1eb9 }
0x1eb9…1ec6 ac1d 2960 CASE SVAR$ OF
0x1eb9…1ec6 LineComalBin {
0x1eb9…1ec6 ptr = 0xac1d // 0x1eb9 @0x0
0x1eb9…1ec6 lno = 0x0b90 // 0x1ebb @0x2
0x1eb9…1ec6 at0004 = ╱a200╱ CASE ╱ // 0x1ebd @0x4
0x1eb9…1ec6 at0006 = ╱53╱S╱ // 0x1ebf @0x6
0x1eb9…1ec6 at0007 = ╱56╱V╱ // 0x1ec0 @0x7
0x1eb9…1ec6 at0008 = ╱41╱A╱ // 0x1ec1 @0x8
0x1eb9…1ec6 at0009 = ╱52╱R╱ // 0x1ec2 @0x9
0x1eb9…1ec6 at000a = ╱ef╱$╱ // 0x1ec3 @0xa
0x1eb9…1ec6 at000b = ╱ba╱ OF ╱ // 0x1ec4 @0xb
0x1eb9…1ec6 at000c = EOL // 0x1ec5 @0xc
0x1eb9…1ec6 }
0x1ec6…1ecc ac23 2970 CLEAR
0x1ec6…1ecc LineComalBin {
0x1ec6…1ecc ptr = 0xac23 // 0x1ec6 @0x0
0x1ec6…1ecc lno = 0x0b9a // 0x1ec8 @0x2
0x1ec6…1ecc at0004 = ╱a0╱ CLEAR ╱ // 0x1eca @0x4
0x1ec6…1ecc at0005 = EOL // 0x1ecb @0x5
0x1ec6…1ecc }
0x1ecc…1ed6 ac2d 2980 WHEN "1"
0x1ecc…1ed6 LineComalBin {
0x1ecc…1ed6 ptr = 0xac2d // 0x1ecc @0x0
0x1ecc…1ed6 lno = 0x0ba4 // 0x1ece @0x2
0x1ecc…1ed6 at0004 = ╱a300╱ WHEN ╱ // 0x1ed0 @0x4
0x1ecc…1ed6 at0006 = ╱22╱"╱ // 0x1ed2 @0x6
0x1ecc…1ed6 at0007 = ╱31╱1╱ // 0x1ed3 @0x7
0x1ecc…1ed6 at0008 = ╱22╱"╱ // 0x1ed4 @0x8
0x1ecc…1ed6 at0009 = EOL // 0x1ed5 @0x9
0x1ecc…1ed6 }
0x1ed6…1ee4 ac3b 3000 EXEC VARHOVED
0x1ed6…1ee4 LineComalBin {
0x1ed6…1ee4 ptr = 0xac3b // 0x1ed6 @0x0
0x1ed6…1ee4 lno = 0x0bb8 // 0x1ed8 @0x2
0x1ed6…1ee4 at0004 = ╱9d╱ EXEC ╱ // 0x1eda @0x4
0x1ed6…1ee4 at0005 = ╱56╱V╱ // 0x1edb @0x5
0x1ed6…1ee4 at0006 = ╱41╱A╱ // 0x1edc @0x6
0x1ed6…1ee4 at0007 = ╱52╱R╱ // 0x1edd @0x7
0x1ed6…1ee4 at0008 = ╱48╱H╱ // 0x1ede @0x8
0x1ed6…1ee4 at0009 = ╱4f╱O╱ // 0x1edf @0x9
0x1ed6…1ee4 at000a = ╱56╱V╱ // 0x1ee0 @0xa
0x1ed6…1ee4 at000b = ╱45╱E╱ // 0x1ee1 @0xb
0x1ed6…1ee4 at000c = ╱44╱D╱ // 0x1ee2 @0xc
0x1ed6…1ee4 at000d = EOL // 0x1ee3 @0xd
0x1ed6…1ee4 }
0x1ee4…1eea ac41 3010 REPEAT
0x1ee4…1eea LineComalBin {
0x1ee4…1eea ptr = 0xac41 // 0x1ee4 @0x0
0x1ee4…1eea lno = 0x0bc2 // 0x1ee6 @0x2
0x1ee4…1eea at0004 = ╱97╱ REPEAT ╱ // 0x1ee8 @0x4
0x1ee4…1eea at0005 = EOL // 0x1ee9 @0x5
0x1ee4…1eea }
0x1eea…1efe ac55 3015 IF AVARE<MVANTAL THEN
0x1eea…1efe LineComalBin {
0x1eea…1efe ptr = 0xac55 // 0x1eea @0x0
0x1eea…1efe lno = 0x0bc7 // 0x1eec @0x2
0x1eea…1efe at0004 = ╱9c╱ IF ╱ // 0x1eee @0x4
0x1eea…1efe at0005 = ╱41╱A╱ // 0x1eef @0x5
0x1eea…1efe at0006 = ╱56╱V╱ // 0x1ef0 @0x6
0x1eea…1efe at0007 = ╱41╱A╱ // 0x1ef1 @0x7
0x1eea…1efe at0008 = ╱52╱R╱ // 0x1ef2 @0x8
0x1eea…1efe at0009 = ╱45╱E╱ // 0x1ef3 @0x9
0x1eea…1efe at000a = ╱dd╱<╱ // 0x1ef4 @0xa
0x1eea…1efe at000b = ╱4d╱M╱ // 0x1ef5 @0xb
0x1eea…1efe at000c = ╱56╱V╱ // 0x1ef6 @0xc
0x1eea…1efe at000d = ╱41╱A╱ // 0x1ef7 @0xd
0x1eea…1efe at000e = ╱4e╱N╱ // 0x1ef8 @0xe
0x1eea…1efe at000f = ╱54╱T╱ // 0x1ef9 @0xf
0x1eea…1efe at0010 = ╱41╱A╱ // 0x1efa @0x10
0x1eea…1efe at0011 = ╱4c╱L╱ // 0x1efb @0x11
0x1eea…1efe at0012 = ╱b6╱ THEN ╱ // 0x1efc @0x12
0x1eea…1efe at0013 = EOL // 0x1efd @0x13
0x1eea…1efe }
0x1efe…1f13 ac6a 3020 VARTEKST$=BLANK$
0x1efe…1f13 LineComalBin {
0x1efe…1f13 ptr = 0xac6a // 0x1efe @0x0
0x1efe…1f13 lno = 0x0bcc // 0x1f00 @0x2
0x1efe…1f13 at0004 = ╱56╱V╱ // 0x1f02 @0x4
0x1efe…1f13 at0005 = ╱41╱A╱ // 0x1f03 @0x5
0x1efe…1f13 at0006 = ╱52╱R╱ // 0x1f04 @0x6
0x1efe…1f13 at0007 = ╱54╱T╱ // 0x1f05 @0x7
0x1efe…1f13 at0008 = ╱45╱E╱ // 0x1f06 @0x8
0x1efe…1f13 at0009 = ╱4b╱K╱ // 0x1f07 @0x9
0x1efe…1f13 at000a = ╱53╱S╱ // 0x1f08 @0xa
0x1efe…1f13 at000b = ╱54╱T╱ // 0x1f09 @0xb
0x1efe…1f13 at000c = ╱ef╱$╱ // 0x1f0a @0xc
0x1efe…1f13 at000d = ╱dc╱=╱ // 0x1f0b @0xd
0x1efe…1f13 at000e = ╱42╱B╱ // 0x1f0c @0xe
0x1efe…1f13 at000f = ╱4c╱L╱ // 0x1f0d @0xf
0x1efe…1f13 at0010 = ╱41╱A╱ // 0x1f0e @0x10
0x1efe…1f13 at0011 = ╱4e╱N╱ // 0x1f0f @0x11
0x1efe…1f13 at0012 = ╱4b╱K╱ // 0x1f10 @0x12
0x1efe…1f13 at0013 = ╱ef╱$╱ // 0x1f11 @0x13
0x1efe…1f13 at0014 = EOL // 0x1f12 @0x14
0x1efe…1f13 }
0x1f13…1f19 ac70 3030 REPEAT
0x1f13…1f19 LineComalBin {
0x1f13…1f19 ptr = 0xac70 // 0x1f13 @0x0
0x1f13…1f19 lno = 0x0bd6 // 0x1f15 @0x2
0x1f13…1f19 at0004 = ╱97╱ REPEAT ╱ // 0x1f17 @0x4
0x1f13…1f19 at0005 = EOL // 0x1f18 @0x5
0x1f13…1f19 }
0x1f19…1f1f ac76 3040 REPEAT
0x1f19…1f1f LineComalBin {
0x1f19…1f1f ptr = 0xac76 // 0x1f19 @0x0
0x1f19…1f1f lno = 0x0be0 // 0x1f1b @0x2
0x1f19…1f1f at0004 = ╱97╱ REPEAT ╱ // 0x1f1d @0x4
0x1f19…1f1f at0005 = EOL // 0x1f1e @0x5
0x1f19…1f1f }
0x1f1f…1f2c ac83 3050 CURSOR E,LINIE
0x1f1f…1f2c LineComalBin {
0x1f1f…1f2c ptr = 0xac83 // 0x1f1f @0x0
0x1f1f…1f2c lno = 0x0bea // 0x1f21 @0x2
0x1f1f…1f2c at0004 = ╱a1╱ CURSOR ╱ // 0x1f23 @0x4
0x1f1f…1f2c at0005 = ╱45╱E╱ // 0x1f24 @0x5
0x1f1f…1f2c at0006 = ╱ec╱,╱ // 0x1f25 @0x6
0x1f1f…1f2c at0007 = ╱4c╱L╱ // 0x1f26 @0x7
0x1f1f…1f2c at0008 = ╱49╱I╱ // 0x1f27 @0x8
0x1f1f…1f2c at0009 = ╱4e╱N╱ // 0x1f28 @0x9
0x1f1f…1f2c at000a = ╱49╱I╱ // 0x1f29 @0xa
0x1f1f…1f2c at000b = ╱45╱E╱ // 0x1f2a @0xb
0x1f1f…1f2c at000c = EOL // 0x1f2b @0xc
0x1f1f…1f2c }
0x1f2c…1f38 ac8f 3060 PRINT BLANK$
0x1f2c…1f38 LineComalBin {
0x1f2c…1f38 ptr = 0xac8f // 0x1f2c @0x0
0x1f2c…1f38 lno = 0x0bf4 // 0x1f2e @0x2
0x1f2c…1f38 at0004 = ╱92╱ PRINT ╱ // 0x1f30 @0x4
0x1f2c…1f38 at0005 = ╱42╱B╱ // 0x1f31 @0x5
0x1f2c…1f38 at0006 = ╱4c╱L╱ // 0x1f32 @0x6
0x1f2c…1f38 at0007 = ╱41╱A╱ // 0x1f33 @0x7
0x1f2c…1f38 at0008 = ╱4e╱N╱ // 0x1f34 @0x8
0x1f2c…1f38 at0009 = ╱4b╱K╱ // 0x1f35 @0x9
0x1f2c…1f38 at000a = ╱ef╱$╱ // 0x1f36 @0xa
0x1f2c…1f38 at000b = EOL // 0x1f37 @0xb
0x1f2c…1f38 }
0x1f38…1f45 ac9c 3070 CURSOR E,LINIE
0x1f38…1f45 LineComalBin {
0x1f38…1f45 ptr = 0xac9c // 0x1f38 @0x0
0x1f38…1f45 lno = 0x0bfe // 0x1f3a @0x2
0x1f38…1f45 at0004 = ╱a1╱ CURSOR ╱ // 0x1f3c @0x4
0x1f38…1f45 at0005 = ╱45╱E╱ // 0x1f3d @0x5
0x1f38…1f45 at0006 = ╱ec╱,╱ // 0x1f3e @0x6
0x1f38…1f45 at0007 = ╱4c╱L╱ // 0x1f3f @0x7
0x1f38…1f45 at0008 = ╱49╱I╱ // 0x1f40 @0x8
0x1f38…1f45 at0009 = ╱4e╱N╱ // 0x1f41 @0x9
0x1f38…1f45 at000a = ╱49╱I╱ // 0x1f42 @0xa
0x1f38…1f45 at000b = ╱45╱E╱ // 0x1f43 @0xb
0x1f38…1f45 at000c = EOL // 0x1f44 @0xc
0x1f38…1f45 }
0x1f45…1f57 acae 3080 INPUT " ",TAL1$
0x1f45…1f57 LineComalBin {
0x1f45…1f57 ptr = 0xacae // 0x1f45 @0x0
0x1f45…1f57 lno = 0x0c08 // 0x1f47 @0x2
0x1f45…1f57 at0004 = ╱91╱ INPUT ╱ // 0x1f49 @0x4
0x1f45…1f57 at0005 = ╱22╱"╱ // 0x1f4a @0x5
0x1f45…1f57 at0006 = ╱20╱…╱ // 0x1f4b @0x6
0x1f45…1f57 at0007 = ╱20╱…╱ // 0x1f4c @0x7
0x1f45…1f57 at0008 = ╱20╱…╱ // 0x1f4d @0x8
0x1f45…1f57 at0009 = ╱20╱…╱ // 0x1f4e @0x9
0x1f45…1f57 at000a = ╱22╱"╱ // 0x1f4f @0xa
0x1f45…1f57 at000b = ╱ec╱,╱ // 0x1f50 @0xb
0x1f45…1f57 at000c = ╱54╱T╱ // 0x1f51 @0xc
0x1f45…1f57 at000d = ╱41╱A╱ // 0x1f52 @0xd
0x1f45…1f57 at000e = ╱4c╱L╱ // 0x1f53 @0xe
0x1f45…1f57 at000f = ╱31╱1╱ // 0x1f54 @0xf
0x1f45…1f57 at0010 = ╱ef╱$╱ // 0x1f55 @0x10
0x1f45…1f57 at0011 = EOL // 0x1f56 @0x11
0x1f45…1f57 }
0x1f57…1f6a acc1 3090 EXEC NRTEST(TAL1$)
0x1f57…1f6a LineComalBin {
0x1f57…1f6a ptr = 0xacc1 // 0x1f57 @0x0
0x1f57…1f6a lno = 0x0c12 // 0x1f59 @0x2
0x1f57…1f6a at0004 = ╱9d╱ EXEC ╱ // 0x1f5b @0x4
0x1f57…1f6a at0005 = ╱4e╱N╱ // 0x1f5c @0x5
0x1f57…1f6a at0006 = ╱52╱R╱ // 0x1f5d @0x6
0x1f57…1f6a at0007 = ╱54╱T╱ // 0x1f5e @0x7
0x1f57…1f6a at0008 = ╱45╱E╱ // 0x1f5f @0x8
0x1f57…1f6a at0009 = ╱53╱S╱ // 0x1f60 @0x9
0x1f57…1f6a at000a = ╱54╱T╱ // 0x1f61 @0xa
0x1f57…1f6a at000b = ╱ed╱(╱ // 0x1f62 @0xb
0x1f57…1f6a at000c = ╱54╱T╱ // 0x1f63 @0xc
0x1f57…1f6a at000d = ╱41╱A╱ // 0x1f64 @0xd
0x1f57…1f6a at000e = ╱4c╱L╱ // 0x1f65 @0xe
0x1f57…1f6a at000f = ╱31╱1╱ // 0x1f66 @0xf
0x1f57…1f6a at0010 = ╱ef╱$╱ // 0x1f67 @0x10
0x1f57…1f6a at0011 = ╱ee╱)╱ // 0x1f68 @0x11
0x1f57…1f6a at0012 = EOL // 0x1f69 @0x12
0x1f57…1f6a }
0x1f6a…1f94 aceb 3100 UNTIL (P>4 AND P<=999999 OR P=B) AND TEST2=B
0x1f6a…1f94 LineComalBin {
0x1f6a…1f94 ptr = 0xaceb // 0x1f6a @0x0
0x1f6a…1f94 lno = 0x0c1c // 0x1f6c @0x2
0x1f6a…1f94 at0004 = ╱98╱ UNTIL ╱ // 0x1f6e @0x4
0x1f6a…1f94 at0005 = ╱ed╱(╱ // 0x1f6f @0x5
0x1f6a…1f94 at0006 = ╱50╱P╱ // 0x1f70 @0x6
0x1f6a…1f94 at0007 = ╱de╱>╱ // 0x1f71 @0x7
0x1f6a…1f94 at0008 = ╱34╱4╱ // 0x1f72 @0x8
0x1f6a…1f94 at0009 = ╱fe00008003╱ // 0x1f73 @0x9
0x1f6a…1f94 at000e = ╱da╱ AND ╱ // 0x1f78 @0xe
0x1f6a…1f94 at000f = ╱50╱P╱ // 0x1f79 @0xf
0x1f6a…1f94 at0010 = ╱df╱<=╱ // 0x1f7a @0x10
0x1f6a…1f94 at0011 = ╱39╱9╱ // 0x1f7b @0x11
0x1f6a…1f94 at0012 = ╱39╱9╱ // 0x1f7c @0x12
0x1f6a…1f94 at0013 = ╱39╱9╱ // 0x1f7d @0x13
0x1f6a…1f94 at0014 = ╱39╱9╱ // 0x1f7e @0x14
0x1f6a…1f94 at0015 = ╱39╱9╱ // 0x1f7f @0x15
0x1f6a…1f94 at0016 = ╱39╱9╱ // 0x1f80 @0x16
0x1f6a…1f94 at0017 = ╱fef023f414╱ // 0x1f81 @0x17
0x1f6a…1f94 at001c = ╱db╱ OR ╱ // 0x1f86 @0x1c
0x1f6a…1f94 at001d = ╱50╱P╱ // 0x1f87 @0x1d
0x1f6a…1f94 at001e = ╱dc╱=╱ // 0x1f88 @0x1e
0x1f6a…1f94 at001f = ╱42╱B╱ // 0x1f89 @0x1f
0x1f6a…1f94 at0020 = ╱ee╱)╱ // 0x1f8a @0x20
0x1f6a…1f94 at0021 = ╱da╱ AND ╱ // 0x1f8b @0x21
0x1f6a…1f94 at0022 = ╱54╱T╱ // 0x1f8c @0x22
0x1f6a…1f94 at0023 = ╱45╱E╱ // 0x1f8d @0x23
0x1f6a…1f94 at0024 = ╱53╱S╱ // 0x1f8e @0x24
0x1f6a…1f94 at0025 = ╱54╱T╱ // 0x1f8f @0x25
0x1f6a…1f94 at0026 = ╱32╱2╱ // 0x1f90 @0x26
0x1f6a…1f94 at0027 = ╱dc╱=╱ // 0x1f91 @0x27
0x1f6a…1f94 at0028 = ╱42╱B╱ // 0x1f92 @0x28
0x1f6a…1f94 at0029 = EOL // 0x1f93 @0x29
0x1f6a…1f94 }
0x1f94…1fa1 acf8 3110 VARENR=P
0x1f94…1fa1 LineComalBin {
0x1f94…1fa1 ptr = 0xacf8 // 0x1f94 @0x0
0x1f94…1fa1 lno = 0x0c26 // 0x1f96 @0x2
0x1f94…1fa1 at0004 = ╱56╱V╱ // 0x1f98 @0x4
0x1f94…1fa1 at0005 = ╱41╱A╱ // 0x1f99 @0x5
0x1f94…1fa1 at0006 = ╱52╱R╱ // 0x1f9a @0x6
0x1f94…1fa1 at0007 = ╱45╱E╱ // 0x1f9b @0x7
0x1f94…1fa1 at0008 = ╱4e╱N╱ // 0x1f9c @0x8
0x1f94…1fa1 at0009 = ╱52╱R╱ // 0x1f9d @0x9
0x1f94…1fa1 at000a = ╱dc╱=╱ // 0x1f9e @0xa
0x1f94…1fa1 at000b = ╱50╱P╱ // 0x1f9f @0xb
0x1f94…1fa1 at000c = EOL // 0x1fa0 @0xc
0x1f94…1fa1 }
0x1fa1…1fb1 ad08 3120 IF VARENR=B THEN EXIT
0x1fa1…1fb1 LineComalBin {
0x1fa1…1fb1 ptr = 0xad08 // 0x1fa1 @0x0
0x1fa1…1fb1 lno = 0x0c30 // 0x1fa3 @0x2
0x1fa1…1fb1 at0004 = ╱82╱ IF ╱ // 0x1fa5 @0x4
0x1fa1…1fb1 at0005 = ╱56╱V╱ // 0x1fa6 @0x5
0x1fa1…1fb1 at0006 = ╱41╱A╱ // 0x1fa7 @0x6
0x1fa1…1fb1 at0007 = ╱52╱R╱ // 0x1fa8 @0x7
0x1fa1…1fb1 at0008 = ╱45╱E╱ // 0x1fa9 @0x8
0x1fa1…1fb1 at0009 = ╱4e╱N╱ // 0x1faa @0x9
0x1fa1…1fb1 at000a = ╱52╱R╱ // 0x1fab @0xa
0x1fa1…1fb1 at000b = ╱dc╱=╱ // 0x1fac @0xb
0x1fa1…1fb1 at000c = ╱42╱B╱ // 0x1fad @0xc
0x1fa1…1fb1 at000d = ╱b6╱ THEN ╱ // 0x1fae @0xd
0x1fa1…1fb1 at000e = ╱99╱ EXIT ╱ // 0x1faf @0xe
0x1fa1…1fb1 at000f = EOL // 0x1fb0 @0xf
0x1fa1…1fb1 }
0x1fb1…1fda ad31 3130 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3)
0x1fb1…1fda LineComalBin {
0x1fb1…1fda ptr = 0xad31 // 0x1fb1 @0x0
0x1fb1…1fda lno = 0x0c3a // 0x1fb3 @0x2
0x1fb1…1fda at0004 = ╱9d╱ EXEC ╱ // 0x1fb5 @0x4
0x1fb1…1fda at0005 = ╱46╱F╱ // 0x1fb6 @0x5
0x1fb1…1fda at0006 = ╱49╱I╱ // 0x1fb7 @0x6
0x1fb1…1fda at0007 = ╱4e╱N╱ // 0x1fb8 @0x7
0x1fb1…1fda at0008 = ╱44╱D╱ // 0x1fb9 @0x8
0x1fb1…1fda at0009 = ╱50╱P╱ // 0x1fba @0x9
0x1fb1…1fda at000a = ╱4f╱O╱ // 0x1fbb @0xa
0x1fb1…1fda at000b = ╱53╱S╱ // 0x1fbc @0xb
0x1fb1…1fda at000c = ╱54╱T╱ // 0x1fbd @0xc
0x1fb1…1fda at000d = ╱ed╱(╱ // 0x1fbe @0xd
0x1fb1…1fda at000e = ╱56╱V╱ // 0x1fbf @0xe
0x1fb1…1fda at000f = ╱54╱T╱ // 0x1fc0 @0xf
0x1fb1…1fda at0010 = ╱41╱A╱ // 0x1fc1 @0x10
0x1fb1…1fda at0011 = ╱42╱B╱ // 0x1fc2 @0x11
0x1fb1…1fda at0012 = ╱ec╱,╱ // 0x1fc3 @0x12
0x1fb1…1fda at0013 = ╱4d╱M╱ // 0x1fc4 @0x13
0x1fb1…1fda at0014 = ╱56╱V╱ // 0x1fc5 @0x14
0x1fb1…1fda at0015 = ╱41╱A╱ // 0x1fc6 @0x15
0x1fb1…1fda at0016 = ╱4e╱N╱ // 0x1fc7 @0x16
0x1fb1…1fda at0017 = ╱54╱T╱ // 0x1fc8 @0x17
0x1fb1…1fda at0018 = ╱41╱A╱ // 0x1fc9 @0x18
0x1fb1…1fda at0019 = ╱4c╱L╱ // 0x1fca @0x19
0x1fb1…1fda at001a = ╱ec╱,╱ // 0x1fcb @0x1a
0x1fb1…1fda at001b = ╱56╱V╱ // 0x1fcc @0x1b
0x1fb1…1fda at001c = ╱41╱A╱ // 0x1fcd @0x1c
0x1fb1…1fda at001d = ╱52╱R╱ // 0x1fce @0x1d
0x1fb1…1fda at001e = ╱45╱E╱ // 0x1fcf @0x1e
0x1fb1…1fda at001f = ╱4e╱N╱ // 0x1fd0 @0x1f
0x1fb1…1fda at0020 = ╱52╱R╱ // 0x1fd1 @0x20
0x1fb1…1fda at0021 = ╱ec╱,╱ // 0x1fd2 @0x21
0x1fb1…1fda at0022 = ╱56╱V╱ // 0x1fd3 @0x22
0x1fb1…1fda at0023 = ╱50╱P╱ // 0x1fd4 @0x23
0x1fb1…1fda at0024 = ╱49╱I╱ // 0x1fd5 @0x24
0x1fb1…1fda at0025 = ╱4c╱L╱ // 0x1fd6 @0x25
0x1fb1…1fda at0026 = ╱33╱3╱ // 0x1fd7 @0x26
0x1fb1…1fda at0027 = ╱ee╱)╱ // 0x1fd8 @0x27
0x1fb1…1fda at0028 = EOL // 0x1fd9 @0x28
0x1fb1…1fda }
0x1fda…1fe7 ad3e 3140 IF CEKS=B THEN
0x1fda…1fe7 LineComalBin {
0x1fda…1fe7 ptr = 0xad3e // 0x1fda @0x0
0x1fda…1fe7 lno = 0x0c44 // 0x1fdc @0x2
0x1fda…1fe7 at0004 = ╱9c╱ IF ╱ // 0x1fde @0x4
0x1fda…1fe7 at0005 = ╱43╱C╱ // 0x1fdf @0x5
0x1fda…1fe7 at0006 = ╱45╱E╱ // 0x1fe0 @0x6
0x1fda…1fe7 at0007 = ╱4b╱K╱ // 0x1fe1 @0x7
0x1fda…1fe7 at0008 = ╱53╱S╱ // 0x1fe2 @0x8
0x1fda…1fe7 at0009 = ╱dc╱=╱ // 0x1fe3 @0x9
0x1fda…1fe7 at000a = ╱42╱B╱ // 0x1fe4 @0xa
0x1fda…1fe7 at000b = ╱b6╱ THEN ╱ // 0x1fe5 @0xb
0x1fda…1fe7 at000c = EOL // 0x1fe6 @0xc
0x1fda…1fe7 }
0x1fe7…1ff6 ad4d 3150 EXEC HENTVPOST
0x1fe7…1ff6 LineComalBin {
0x1fe7…1ff6 ptr = 0xad4d // 0x1fe7 @0x0
0x1fe7…1ff6 lno = 0x0c4e // 0x1fe9 @0x2
0x1fe7…1ff6 at0004 = ╱9d╱ EXEC ╱ // 0x1feb @0x4
0x1fe7…1ff6 at0005 = ╱48╱H╱ // 0x1fec @0x5
0x1fe7…1ff6 at0006 = ╱45╱E╱ // 0x1fed @0x6
0x1fe7…1ff6 at0007 = ╱4e╱N╱ // 0x1fee @0x7
0x1fe7…1ff6 at0008 = ╱54╱T╱ // 0x1fef @0x8
0x1fe7…1ff6 at0009 = ╱56╱V╱ // 0x1ff0 @0x9
0x1fe7…1ff6 at000a = ╱50╱P╱ // 0x1ff1 @0xa
0x1fe7…1ff6 at000b = ╱4f╱O╱ // 0x1ff2 @0xb
0x1fe7…1ff6 at000c = ╱53╱S╱ // 0x1ff3 @0xc
0x1fe7…1ff6 at000d = ╱54╱T╱ // 0x1ff4 @0xd
0x1fe7…1ff6 at000e = EOL // 0x1ff5 @0xe
0x1fe7…1ff6 }
0x1ff6…2003 ad5a 3160 EXEC VALINUD
0x1ff6…2003 LineComalBin {
0x1ff6…2003 ptr = 0xad5a // 0x1ff6 @0x0
0x1ff6…2003 lno = 0x0c58 // 0x1ff8 @0x2
0x1ff6…2003 at0004 = ╱9d╱ EXEC ╱ // 0x1ffa @0x4
0x1ff6…2003 at0005 = ╱56╱V╱ // 0x1ffb @0x5
0x1ff6…2003 at0006 = ╱41╱A╱ // 0x1ffc @0x6
0x1ff6…2003 at0007 = ╱4c╱L╱ // 0x1ffd @0x7
0x1ff6…2003 at0008 = ╱49╱I╱ // 0x1ffe @0x8
0x1ff6…2003 at0009 = ╱4e╱N╱ // 0x1fff @0x9
0x1ff6…2003 at000a = ╱55╱U╱ // 0x2000 @0xa
0x1ff6…2003 at000b = ╱44╱D╱ // 0x2001 @0xb
0x1ff6…2003 at000c = EOL // 0x2002 @0xc
0x1ff6…2003 }
0x2003…2015 ad6c 3170 LINIE=LINIE+E
0x2003…2015 LineComalBin {
0x2003…2015 ptr = 0xad6c // 0x2003 @0x0
0x2003…2015 lno = 0x0c62 // 0x2005 @0x2
0x2003…2015 at0004 = ╱4c╱L╱ // 0x2007 @0x4
0x2003…2015 at0005 = ╱49╱I╱ // 0x2008 @0x5
0x2003…2015 at0006 = ╱4e╱N╱ // 0x2009 @0x6
0x2003…2015 at0007 = ╱49╱I╱ // 0x200a @0x7
0x2003…2015 at0008 = ╱45╱E╱ // 0x200b @0x8
0x2003…2015 at0009 = ╱dc╱=╱ // 0x200c @0x9
0x2003…2015 at000a = ╱4c╱L╱ // 0x200d @0xa
0x2003…2015 at000b = ╱49╱I╱ // 0x200e @0xb
0x2003…2015 at000c = ╱4e╱N╱ // 0x200f @0xc
0x2003…2015 at000d = ╱49╱I╱ // 0x2010 @0xd
0x2003…2015 at000e = ╱45╱E╱ // 0x2011 @0xe
0x2003…2015 at000f = ╱e2╱+╱ // 0x2012 @0xf
0x2003…2015 at0010 = ╱45╱E╱ // 0x2013 @0x10
0x2003…2015 at0011 = EOL // 0x2014 @0x11
0x2003…2015 }
0x2015…2033 ad8a 3180 IF LINIE>23 THEN EXEC LINIETEST
0x2015…2033 LineComalBin {
0x2015…2033 ptr = 0xad8a // 0x2015 @0x0
0x2015…2033 lno = 0x0c6c // 0x2017 @0x2
0x2015…2033 at0004 = ╱82╱ IF ╱ // 0x2019 @0x4
0x2015…2033 at0005 = ╱4c╱L╱ // 0x201a @0x5
0x2015…2033 at0006 = ╱49╱I╱ // 0x201b @0x6
0x2015…2033 at0007 = ╱4e╱N╱ // 0x201c @0x7
0x2015…2033 at0008 = ╱49╱I╱ // 0x201d @0x8
0x2015…2033 at0009 = ╱45╱E╱ // 0x201e @0x9
0x2015…2033 at000a = ╱de╱>╱ // 0x201f @0xa
0x2015…2033 at000b = ╱32╱2╱ // 0x2020 @0xb
0x2015…2033 at000c = ╱33╱3╱ // 0x2021 @0xc
0x2015…2033 at000d = ╱fe0000b805╱ // 0x2022 @0xd
0x2015…2033 at0012 = ╱b6╱ THEN ╱ // 0x2027 @0x12
0x2015…2033 at0013 = ╱9d╱ EXEC ╱ // 0x2028 @0x13
0x2015…2033 at0014 = ╱4c╱L╱ // 0x2029 @0x14
0x2015…2033 at0015 = ╱49╱I╱ // 0x202a @0x15
0x2015…2033 at0016 = ╱4e╱N╱ // 0x202b @0x16
0x2015…2033 at0017 = ╱49╱I╱ // 0x202c @0x17
0x2015…2033 at0018 = ╱45╱E╱ // 0x202d @0x18
0x2015…2033 at0019 = ╱54╱T╱ // 0x202e @0x19
0x2015…2033 at001a = ╱45╱E╱ // 0x202f @0x1a
0x2015…2033 at001b = ╱53╱S╱ // 0x2030 @0x1b
0x2015…2033 at001c = ╱54╱T╱ // 0x2031 @0x1c
0x2015…2033 at001d = EOL // 0x2032 @0x1d
0x2015…2033 }
0x2033…2039 ad90 3190 ENDIF
0x2033…2039 LineComalBin {
0x2033…2039 ptr = 0xad90 // 0x2033 @0x0
0x2033…2039 lno = 0x0c76 // 0x2035 @0x2
0x2033…2039 at0004 = ╱9b╱ ENDIF ╱ // 0x2037 @0x4
0x2033…2039 at0005 = EOL // 0x2038 @0x5
0x2033…2039 }
0x2039…2045 ad9c 3200 UNTIL CEKS=E
0x2039…2045 LineComalBin {
0x2039…2045 ptr = 0xad9c // 0x2039 @0x0
0x2039…2045 lno = 0x0c80 // 0x203b @0x2
0x2039…2045 at0004 = ╱98╱ UNTIL ╱ // 0x203d @0x4
0x2039…2045 at0005 = ╱43╱C╱ // 0x203e @0x5
0x2039…2045 at0006 = ╱45╱E╱ // 0x203f @0x6
0x2039…2045 at0007 = ╱4b╱K╱ // 0x2040 @0x7
0x2039…2045 at0008 = ╱53╱S╱ // 0x2041 @0x8
0x2039…2045 at0009 = ╱dc╱=╱ // 0x2042 @0x9
0x2039…2045 at000a = ╱45╱E╱ // 0x2043 @0xa
0x2039…2045 at000b = EOL // 0x2044 @0xb
0x2039…2045 }
0x2045…2055 adac 3205 IF VARENR=B THEN EXIT
0x2045…2055 LineComalBin {
0x2045…2055 ptr = 0xadac // 0x2045 @0x0
0x2045…2055 lno = 0x0c85 // 0x2047 @0x2
0x2045…2055 at0004 = ╱82╱ IF ╱ // 0x2049 @0x4
0x2045…2055 at0005 = ╱56╱V╱ // 0x204a @0x5
0x2045…2055 at0006 = ╱41╱A╱ // 0x204b @0x6
0x2045…2055 at0007 = ╱52╱R╱ // 0x204c @0x7
0x2045…2055 at0008 = ╱45╱E╱ // 0x204d @0x8
0x2045…2055 at0009 = ╱4e╱N╱ // 0x204e @0x9
0x2045…2055 at000a = ╱52╱R╱ // 0x204f @0xa
0x2045…2055 at000b = ╱dc╱=╱ // 0x2050 @0xb
0x2045…2055 at000c = ╱42╱B╱ // 0x2051 @0xc
0x2045…2055 at000d = ╱b6╱ THEN ╱ // 0x2052 @0xd
0x2045…2055 at000e = ╱99╱ EXIT ╱ // 0x2053 @0xe
0x2045…2055 at000f = EOL // 0x2054 @0xf
0x2045…2055 }
0x2055…2062 adb9 3210 CURSOR G,LINIE
0x2055…2062 LineComalBin {
0x2055…2062 ptr = 0xadb9 // 0x2055 @0x0
0x2055…2062 lno = 0x0c8a // 0x2057 @0x2
0x2055…2062 at0004 = ╱a1╱ CURSOR ╱ // 0x2059 @0x4
0x2055…2062 at0005 = ╱47╱G╱ // 0x205a @0x5
0x2055…2062 at0006 = ╱ec╱,╱ // 0x205b @0x6
0x2055…2062 at0007 = ╱4c╱L╱ // 0x205c @0x7
0x2055…2062 at0008 = ╱49╱I╱ // 0x205d @0x8
0x2055…2062 at0009 = ╱4e╱N╱ // 0x205e @0x9
0x2055…2062 at000a = ╱49╱I╱ // 0x205f @0xa
0x2055…2062 at000b = ╱45╱E╱ // 0x2060 @0xb
0x2055…2062 at000c = EOL // 0x2061 @0xc
0x2055…2062 }
0x2062…207c add3 3220 PRINT USING "####### ":VARENR
0x2062…207c LineComalBin {
0x2062…207c ptr = 0xadd3 // 0x2062 @0x0
0x2062…207c lno = 0x0c94 // 0x2064 @0x2
0x2062…207c at0004 = ╱92╱ PRINT ╱ // 0x2066 @0x4
0x2062…207c at0005 = ╱b9╱ USING ╱ // 0x2067 @0x5
0x2062…207c at0006 = ╱22╱"╱ // 0x2068 @0x6
0x2062…207c at0007 = ╱23╱#╱ // 0x2069 @0x7
0x2062…207c at0008 = ╱23╱#╱ // 0x206a @0x8
0x2062…207c at0009 = ╱23╱#╱ // 0x206b @0x9
0x2062…207c at000a = ╱23╱#╱ // 0x206c @0xa
0x2062…207c at000b = ╱23╱#╱ // 0x206d @0xb
0x2062…207c at000c = ╱23╱#╱ // 0x206e @0xc
0x2062…207c at000d = ╱23╱#╱ // 0x206f @0xd
0x2062…207c at000e = ╱20╱…╱ // 0x2070 @0xe
0x2062…207c at000f = ╱20╱…╱ // 0x2071 @0xf
0x2062…207c at0010 = ╱20╱…╱ // 0x2072 @0x10
0x2062…207c at0011 = ╱22╱"╱ // 0x2073 @0x11
0x2062…207c at0012 = ╱f0╱:╱ // 0x2074 @0x12
0x2062…207c at0013 = ╱56╱V╱ // 0x2075 @0x13
0x2062…207c at0014 = ╱41╱A╱ // 0x2076 @0x14
0x2062…207c at0015 = ╱52╱R╱ // 0x2077 @0x15
0x2062…207c at0016 = ╱45╱E╱ // 0x2078 @0x16
0x2062…207c at0017 = ╱4e╱N╱ // 0x2079 @0x17
0x2062…207c at0018 = ╱52╱R╱ // 0x207a @0x18
0x2062…207c at0019 = EOL // 0x207b @0x19
0x2062…207c }
0x207c…208f (108,) ade6 3230 CURSOR 12,LINIE
0x207c…208f LineComalBin {
0x207c…208f ptr = 0xade6 // 0x207c @0x0
0x207c…208f lno = 0x0c9e // 0x207e @0x2
0x207c…208f at0004 = ╱a1╱ CURSOR ╱ // 0x2080 @0x4
0x207c…208f at0005 = ╱31╱1╱ // 0x2081 @0x5
0x207c…208f at0006 = ╱32╱2╱ // 0x2082 @0x6
0x207c…208f at0007 = ╱fe0000c004╱ // 0x2083 @0x7
0x207c…208f at000c = ╱ec╱,╱ // 0x2088 @0xc
0x207c…208f at000d = ╱4c╱L╱ // 0x2089 @0xd
0x207c…208f at000e = ╱49╱I╱ // 0x208a @0xe
0x207c…208f at000f = ╱4e╱N╱ // 0x208b @0xf
0x207c…208f at0010 = ╱49╱I╱ // 0x208c @0x10
0x207c…208f at0011 = ╱45╱E╱ // 0x208d @0x11
0x207c…208f at0012 = EOL // 0x208e @0x12
0x207c…208f }
0x208f…20a2 adf9 3240 INPUT " ",VARTEKST$
0x208f…20a2 LineComalBin {
0x208f…20a2 ptr = 0xadf9 // 0x208f @0x0
0x208f…20a2 lno = 0x0ca8 // 0x2091 @0x2
0x208f…20a2 at0004 = ╱91╱ INPUT ╱ // 0x2093 @0x4
0x208f…20a2 at0005 = ╱22╱"╱ // 0x2094 @0x5
0x208f…20a2 at0006 = ╱20╱…╱ // 0x2095 @0x6
0x208f…20a2 at0007 = ╱22╱"╱ // 0x2096 @0x7
0x208f…20a2 at0008 = ╱ec╱,╱ // 0x2097 @0x8
0x208f…20a2 at0009 = ╱56╱V╱ // 0x2098 @0x9
0x208f…20a2 at000a = ╱41╱A╱ // 0x2099 @0xa
0x208f…20a2 at000b = ╱52╱R╱ // 0x209a @0xb
0x208f…20a2 at000c = ╱54╱T╱ // 0x209b @0xc
0x208f…20a2 at000d = ╱45╱E╱ // 0x209c @0xd
0x208f…20a2 at000e = ╱4b╱K╱ // 0x209d @0xe
0x208f…20a2 at000f = ╱53╱S╱ // 0x209e @0xf
0x208f…20a2 at0010 = ╱54╱T╱ // 0x209f @0x10
0x208f…20a2 at0011 = ╱ef╱$╱ // 0x20a0 @0x11
0x208f…20a2 at0012 = EOL // 0x20a1 @0x12
0x208f…20a2 }
0x20a2…20b5 ae0c 3250 CURSOR 13,LINIE
0x20a2…20b5 LineComalBin {
0x20a2…20b5 ptr = 0xae0c // 0x20a2 @0x0
0x20a2…20b5 lno = 0x0cb2 // 0x20a4 @0x2
0x20a2…20b5 at0004 = ╱a1╱ CURSOR ╱ // 0x20a6 @0x4
0x20a2…20b5 at0005 = ╱31╱1╱ // 0x20a7 @0x5
0x20a2…20b5 at0006 = ╱33╱3╱ // 0x20a8 @0x6
0x20a2…20b5 at0007 = ╱fe0000d004╱ // 0x20a9 @0x7
0x20a2…20b5 at000c = ╱ec╱,╱ // 0x20ae @0xc
0x20a2…20b5 at000d = ╱4c╱L╱ // 0x20af @0xd
0x20a2…20b5 at000e = ╱49╱I╱ // 0x20b0 @0xe
0x20a2…20b5 at000f = ╱4e╱N╱ // 0x20b1 @0xf
0x20a2…20b5 at0010 = ╱49╱I╱ // 0x20b2 @0x10
0x20a2…20b5 at0011 = ╱45╱E╱ // 0x20b3 @0x11
0x20a2…20b5 at0012 = EOL // 0x20b4 @0x12
0x20a2…20b5 }
0x20b5…20d2 ae29 3260 PRINT VARTEKST$;BLANK$;BLANK$
0x20b5…20d2 LineComalBin {
0x20b5…20d2 ptr = 0xae29 // 0x20b5 @0x0
0x20b5…20d2 lno = 0x0cbc // 0x20b7 @0x2
0x20b5…20d2 at0004 = ╱92╱ PRINT ╱ // 0x20b9 @0x4
0x20b5…20d2 at0005 = ╱56╱V╱ // 0x20ba @0x5
0x20b5…20d2 at0006 = ╱41╱A╱ // 0x20bb @0x6
0x20b5…20d2 at0007 = ╱52╱R╱ // 0x20bc @0x7
0x20b5…20d2 at0008 = ╱54╱T╱ // 0x20bd @0x8
0x20b5…20d2 at0009 = ╱45╱E╱ // 0x20be @0x9
0x20b5…20d2 at000a = ╱4b╱K╱ // 0x20bf @0xa
0x20b5…20d2 at000b = ╱53╱S╱ // 0x20c0 @0xb
0x20b5…20d2 at000c = ╱54╱T╱ // 0x20c1 @0xc
0x20b5…20d2 at000d = ╱ef╱$╱ // 0x20c2 @0xd
0x20b5…20d2 at000e = ╱eb╱;╱ // 0x20c3 @0xe
0x20b5…20d2 at000f = ╱42╱B╱ // 0x20c4 @0xf
0x20b5…20d2 at0010 = ╱4c╱L╱ // 0x20c5 @0x10
0x20b5…20d2 at0011 = ╱41╱A╱ // 0x20c6 @0x11
0x20b5…20d2 at0012 = ╱4e╱N╱ // 0x20c7 @0x12
0x20b5…20d2 at0013 = ╱4b╱K╱ // 0x20c8 @0x13
0x20b5…20d2 at0014 = ╱ef╱$╱ // 0x20c9 @0x14
0x20b5…20d2 at0015 = ╱eb╱;╱ // 0x20ca @0x15
0x20b5…20d2 at0016 = ╱42╱B╱ // 0x20cb @0x16
0x20b5…20d2 at0017 = ╱4c╱L╱ // 0x20cc @0x17
0x20b5…20d2 at0018 = ╱41╱A╱ // 0x20cd @0x18
0x20b5…20d2 at0019 = ╱4e╱N╱ // 0x20ce @0x19
0x20b5…20d2 at001a = ╱4b╱K╱ // 0x20cf @0x1a
0x20b5…20d2 at001b = ╱ef╱$╱ // 0x20d0 @0x1b
0x20b5…20d2 at001c = EOL // 0x20d1 @0x1c
0x20b5…20d2 }
0x20d2…20d8 ae2f 3270 REPEAT
0x20d2…20d8 LineComalBin {
0x20d2…20d8 ptr = 0xae2f // 0x20d2 @0x0
0x20d2…20d8 lno = 0x0cc6 // 0x20d4 @0x2
0x20d2…20d8 at0004 = ╱97╱ REPEAT ╱ // 0x20d6 @0x4
0x20d2…20d8 at0005 = EOL // 0x20d7 @0x5
0x20d2…20d8 }
0x20d8…20de ae35 3275 REPEAT
0x20d8…20de LineComalBin {
0x20d8…20de ptr = 0xae35 // 0x20d8 @0x0
0x20d8…20de lno = 0x0ccb // 0x20da @0x2
0x20d8…20de at0004 = ╱97╱ REPEAT ╱ // 0x20dc @0x4
0x20d8…20de at0005 = EOL // 0x20dd @0x5
0x20d8…20de }
0x20de…20f1 ae48 3280 CURSOR 44,LINIE
0x20de…20f1 LineComalBin {
0x20de…20f1 ptr = 0xae48 // 0x20de @0x0
0x20de…20f1 lno = 0x0cd0 // 0x20e0 @0x2
0x20de…20f1 at0004 = ╱a1╱ CURSOR ╱ // 0x20e2 @0x4
0x20de…20f1 at0005 = ╱34╱4╱ // 0x20e3 @0x5
0x20de…20f1 at0006 = ╱34╱4╱ // 0x20e4 @0x6
0x20de…20f1 at0007 = ╱fe0000b006╱ // 0x20e5 @0x7
0x20de…20f1 at000c = ╱ec╱,╱ // 0x20ea @0xc
0x20de…20f1 at000d = ╱4c╱L╱ // 0x20eb @0xd
0x20de…20f1 at000e = ╱49╱I╱ // 0x20ec @0xe
0x20de…20f1 at000f = ╱4e╱N╱ // 0x20ed @0xf
0x20de…20f1 at0010 = ╱49╱I╱ // 0x20ee @0x10
0x20de…20f1 at0011 = ╱45╱E╱ // 0x20ef @0x11
0x20de…20f1 at0012 = EOL // 0x20f0 @0x12
0x20de…20f1 }
0x20f1…2103 ae5a 3290 INPUT " ",VARPRIS$
0x20f1…2103 LineComalBin {
0x20f1…2103 ptr = 0xae5a // 0x20f1 @0x0
0x20f1…2103 lno = 0x0cda // 0x20f3 @0x2
0x20f1…2103 at0004 = ╱91╱ INPUT ╱ // 0x20f5 @0x4
0x20f1…2103 at0005 = ╱22╱"╱ // 0x20f6 @0x5
0x20f1…2103 at0006 = ╱20╱…╱ // 0x20f7 @0x6
0x20f1…2103 at0007 = ╱22╱"╱ // 0x20f8 @0x7
0x20f1…2103 at0008 = ╱ec╱,╱ // 0x20f9 @0x8
0x20f1…2103 at0009 = ╱56╱V╱ // 0x20fa @0x9
0x20f1…2103 at000a = ╱41╱A╱ // 0x20fb @0xa
0x20f1…2103 at000b = ╱52╱R╱ // 0x20fc @0xb
0x20f1…2103 at000c = ╱50╱P╱ // 0x20fd @0xc
0x20f1…2103 at000d = ╱52╱R╱ // 0x20fe @0xd
0x20f1…2103 at000e = ╱49╱I╱ // 0x20ff @0xe
0x20f1…2103 at000f = ╱53╱S╱ // 0x2100 @0xf
0x20f1…2103 at0010 = ╱ef╱$╱ // 0x2101 @0x10
0x20f1…2103 at0011 = EOL // 0x2102 @0x11
0x20f1…2103 }
0x2103…2116 ae6d 3295 UNTIL LEN(VARPRIS$)>B
0x2103…2116 LineComalBin {
0x2103…2116 ptr = 0xae6d // 0x2103 @0x0
0x2103…2116 lno = 0x0cdf // 0x2105 @0x2
0x2103…2116 at0004 = ╱98╱ UNTIL ╱ // 0x2107 @0x4
0x2103…2116 at0005 = ╱cc╱LEN╱ // 0x2108 @0x5
0x2103…2116 at0006 = ╱ed╱(╱ // 0x2109 @0x6
0x2103…2116 at0007 = ╱56╱V╱ // 0x210a @0x7
0x2103…2116 at0008 = ╱41╱A╱ // 0x210b @0x8
0x2103…2116 at0009 = ╱52╱R╱ // 0x210c @0x9
0x2103…2116 at000a = ╱50╱P╱ // 0x210d @0xa
0x2103…2116 at000b = ╱52╱R╱ // 0x210e @0xb
0x2103…2116 at000c = ╱49╱I╱ // 0x210f @0xc
0x2103…2116 at000d = ╱53╱S╱ // 0x2110 @0xd
0x2103…2116 at000e = ╱ef╱$╱ // 0x2111 @0xe
0x2103…2116 at000f = ╱ee╱)╱ // 0x2112 @0xf
0x2103…2116 at0010 = ╱de╱>╱ // 0x2113 @0x10
0x2103…2116 at0011 = ╱42╱B╱ // 0x2114 @0x11
0x2103…2116 at0012 = EOL // 0x2115 @0x12
0x2103…2116 }
0x2116…214b (110,) aea2 3300 IF VARPRIS$(LEN(VARPRIS$))<>"+" THEN VARPRIS$=VARPRIS$+"+"
0x2116…214b LineComalBin {
0x2116…214b ptr = 0xaea2 // 0x2116 @0x0
0x2116…214b lno = 0x0ce4 // 0x2118 @0x2
0x2116…214b at0004 = ╱82╱ IF ╱ // 0x211a @0x4
0x2116…214b at0005 = ╱56╱V╱ // 0x211b @0x5
0x2116…214b at0006 = ╱41╱A╱ // 0x211c @0x6
0x2116…214b at0007 = ╱52╱R╱ // 0x211d @0x7
0x2116…214b at0008 = ╱50╱P╱ // 0x211e @0x8
0x2116…214b at0009 = ╱52╱R╱ // 0x211f @0x9
0x2116…214b at000a = ╱49╱I╱ // 0x2120 @0xa
0x2116…214b at000b = ╱53╱S╱ // 0x2121 @0xb
0x2116…214b at000c = ╱ef╱$╱ // 0x2122 @0xc
0x2116…214b at000d = ╱ed╱(╱ // 0x2123 @0xd
0x2116…214b at000e = ╱cc╱LEN╱ // 0x2124 @0xe
0x2116…214b at000f = ╱ed╱(╱ // 0x2125 @0xf
0x2116…214b at0010 = ╱56╱V╱ // 0x2126 @0x10
0x2116…214b at0011 = ╱41╱A╱ // 0x2127 @0x11
0x2116…214b at0012 = ╱52╱R╱ // 0x2128 @0x12
0x2116…214b at0013 = ╱50╱P╱ // 0x2129 @0x13
0x2116…214b at0014 = ╱52╱R╱ // 0x212a @0x14
0x2116…214b at0015 = ╱49╱I╱ // 0x212b @0x15
0x2116…214b at0016 = ╱53╱S╱ // 0x212c @0x16
0x2116…214b at0017 = ╱ef╱$╱ // 0x212d @0x17
0x2116…214b at0018 = ╱ee╱)╱ // 0x212e @0x18
0x2116…214b at0019 = ╱ee╱)╱ // 0x212f @0x19
0x2116…214b at001a = ╱e1╱<>╱ // 0x2130 @0x1a
0x2116…214b at001b = ╱22╱"╱ // 0x2131 @0x1b
0x2116…214b at001c = ╱2b╱+╱ // 0x2132 @0x1c
0x2116…214b at001d = ╱22╱"╱ // 0x2133 @0x1d
0x2116…214b at001e = ╱b6╱ THEN ╱ // 0x2134 @0x1e
0x2116…214b at001f = ╱56╱V╱ // 0x2135 @0x1f
0x2116…214b at0020 = ╱41╱A╱ // 0x2136 @0x20
0x2116…214b at0021 = ╱52╱R╱ // 0x2137 @0x21
0x2116…214b at0022 = ╱50╱P╱ // 0x2138 @0x22
0x2116…214b at0023 = ╱52╱R╱ // 0x2139 @0x23
0x2116…214b at0024 = ╱49╱I╱ // 0x213a @0x24
0x2116…214b at0025 = ╱53╱S╱ // 0x213b @0x25
0x2116…214b at0026 = ╱ef╱$╱ // 0x213c @0x26
0x2116…214b at0027 = ╱dc╱=╱ // 0x213d @0x27
0x2116…214b at0028 = ╱56╱V╱ // 0x213e @0x28
0x2116…214b at0029 = ╱41╱A╱ // 0x213f @0x29
0x2116…214b at002a = ╱52╱R╱ // 0x2140 @0x2a
0x2116…214b at002b = ╱50╱P╱ // 0x2141 @0x2b
0x2116…214b at002c = ╱52╱R╱ // 0x2142 @0x2c
0x2116…214b at002d = ╱49╱I╱ // 0x2143 @0x2d
0x2116…214b at002e = ╱53╱S╱ // 0x2144 @0x2e
0x2116…214b at002f = ╱ef╱$╱ // 0x2145 @0x2f
0x2116…214b at0030 = ╱f1╱+╱ // 0x2146 @0x30
0x2116…214b at0031 = ╱22╱"╱ // 0x2147 @0x31
0x2116…214b at0032 = ╱2b╱+╱ // 0x2148 @0x32
0x2116…214b at0033 = ╱22╱"╱ // 0x2149 @0x33
0x2116…214b at0034 = EOL // 0x214a @0x34
0x2116…214b }
0x214b…2174 aecb 3310 EXEC CALC(6,VARPRIS$,TAH$,VARPRIS$)
0x214b…2174 LineComalBin {
0x214b…2174 ptr = 0xaecb // 0x214b @0x0
0x214b…2174 lno = 0x0cee // 0x214d @0x2
0x214b…2174 at0004 = ╱9d╱ EXEC ╱ // 0x214f @0x4
0x214b…2174 at0005 = ╱43╱C╱ // 0x2150 @0x5
0x214b…2174 at0006 = ╱41╱A╱ // 0x2151 @0x6
0x214b…2174 at0007 = ╱4c╱L╱ // 0x2152 @0x7
0x214b…2174 at0008 = ╱43╱C╱ // 0x2153 @0x8
0x214b…2174 at0009 = ╱ed╱(╱ // 0x2154 @0x9
0x214b…2174 at000a = ╱36╱6╱ // 0x2155 @0xa
0x214b…2174 at000b = ╱fe0000c003╱ // 0x2156 @0xb
0x214b…2174 at0010 = ╱ec╱,╱ // 0x215b @0x10
0x214b…2174 at0011 = ╱56╱V╱ // 0x215c @0x11
0x214b…2174 at0012 = ╱41╱A╱ // 0x215d @0x12
0x214b…2174 at0013 = ╱52╱R╱ // 0x215e @0x13
0x214b…2174 at0014 = ╱50╱P╱ // 0x215f @0x14
0x214b…2174 at0015 = ╱52╱R╱ // 0x2160 @0x15
0x214b…2174 at0016 = ╱49╱I╱ // 0x2161 @0x16
0x214b…2174 at0017 = ╱53╱S╱ // 0x2162 @0x17
0x214b…2174 at0018 = ╱ef╱$╱ // 0x2163 @0x18
0x214b…2174 at0019 = ╱ec╱,╱ // 0x2164 @0x19
0x214b…2174 at001a = ╱54╱T╱ // 0x2165 @0x1a
0x214b…2174 at001b = ╱41╱A╱ // 0x2166 @0x1b
0x214b…2174 at001c = ╱48╱H╱ // 0x2167 @0x1c
0x214b…2174 at001d = ╱ef╱$╱ // 0x2168 @0x1d
0x214b…2174 at001e = ╱ec╱,╱ // 0x2169 @0x1e
0x214b…2174 at001f = ╱56╱V╱ // 0x216a @0x1f
0x214b…2174 at0020 = ╱41╱A╱ // 0x216b @0x20
0x214b…2174 at0021 = ╱52╱R╱ // 0x216c @0x21
0x214b…2174 at0022 = ╱50╱P╱ // 0x216d @0x22
0x214b…2174 at0023 = ╱52╱R╱ // 0x216e @0x23
0x214b…2174 at0024 = ╱49╱I╱ // 0x216f @0x24
0x214b…2174 at0025 = ╱53╱S╱ // 0x2170 @0x25
0x214b…2174 at0026 = ╱ef╱$╱ // 0x2171 @0x26
0x214b…2174 at0027 = ╱ee╱)╱ // 0x2172 @0x27
0x214b…2174 at0028 = EOL // 0x2173 @0x28
0x214b…2174 }
0x2174…2180 aed7 3320 UNTIL FLAG=B
0x2174…2180 LineComalBin {
0x2174…2180 ptr = 0xaed7 // 0x2174 @0x0
0x2174…2180 lno = 0x0cf8 // 0x2176 @0x2
0x2174…2180 at0004 = ╱98╱ UNTIL ╱ // 0x2178 @0x4
0x2174…2180 at0005 = ╱46╱F╱ // 0x2179 @0x5
0x2174…2180 at0006 = ╱4c╱L╱ // 0x217a @0x6
0x2174…2180 at0007 = ╱41╱A╱ // 0x217b @0x7
0x2174…2180 at0008 = ╱47╱G╱ // 0x217c @0x8
0x2174…2180 at0009 = ╱dc╱=╱ // 0x217d @0x9
0x2174…2180 at000a = ╱42╱B╱ // 0x217e @0xa
0x2174…2180 at000b = EOL // 0x217f @0xb
0x2174…2180 }
0x2180…2193 aeea 3330 CURSOR 45,LINIE
0x2180…2193 LineComalBin {
0x2180…2193 ptr = 0xaeea // 0x2180 @0x0
0x2180…2193 lno = 0x0d02 // 0x2182 @0x2
0x2180…2193 at0004 = ╱a1╱ CURSOR ╱ // 0x2184 @0x4
0x2180…2193 at0005 = ╱34╱4╱ // 0x2185 @0x5
0x2180…2193 at0006 = ╱35╱5╱ // 0x2186 @0x6
0x2180…2193 at0007 = ╱fe0000b406╱ // 0x2187 @0x7
0x2180…2193 at000c = ╱ec╱,╱ // 0x218c @0xc
0x2180…2193 at000d = ╱4c╱L╱ // 0x218d @0xd
0x2180…2193 at000e = ╱49╱I╱ // 0x218e @0xe
0x2180…2193 at000f = ╱4e╱N╱ // 0x218f @0xf
0x2180…2193 at0010 = ╱49╱I╱ // 0x2190 @0x10
0x2180…2193 at0011 = ╱45╱E╱ // 0x2191 @0x11
0x2180…2193 at0012 = EOL // 0x2192 @0x12
0x2180…2193 }
0x2193…21b0 af07 3340 EXEC TUD(VARPRIS$,TAL4$,B,B)
0x2193…21b0 LineComalBin {
0x2193…21b0 ptr = 0xaf07 // 0x2193 @0x0
0x2193…21b0 lno = 0x0d0c // 0x2195 @0x2
0x2193…21b0 at0004 = ╱9d╱ EXEC ╱ // 0x2197 @0x4
0x2193…21b0 at0005 = ╱54╱T╱ // 0x2198 @0x5
0x2193…21b0 at0006 = ╱55╱U╱ // 0x2199 @0x6
0x2193…21b0 at0007 = ╱44╱D╱ // 0x219a @0x7
0x2193…21b0 at0008 = ╱ed╱(╱ // 0x219b @0x8
0x2193…21b0 at0009 = ╱56╱V╱ // 0x219c @0x9
0x2193…21b0 at000a = ╱41╱A╱ // 0x219d @0xa
0x2193…21b0 at000b = ╱52╱R╱ // 0x219e @0xb
0x2193…21b0 at000c = ╱50╱P╱ // 0x219f @0xc
0x2193…21b0 at000d = ╱52╱R╱ // 0x21a0 @0xd
0x2193…21b0 at000e = ╱49╱I╱ // 0x21a1 @0xe
0x2193…21b0 at000f = ╱53╱S╱ // 0x21a2 @0xf
0x2193…21b0 at0010 = ╱ef╱$╱ // 0x21a3 @0x10
0x2193…21b0 at0011 = ╱ec╱,╱ // 0x21a4 @0x11
0x2193…21b0 at0012 = ╱54╱T╱ // 0x21a5 @0x12
0x2193…21b0 at0013 = ╱41╱A╱ // 0x21a6 @0x13
0x2193…21b0 at0014 = ╱4c╱L╱ // 0x21a7 @0x14
0x2193…21b0 at0015 = ╱34╱4╱ // 0x21a8 @0x15
0x2193…21b0 at0016 = ╱ef╱$╱ // 0x21a9 @0x16
0x2193…21b0 at0017 = ╱ec╱,╱ // 0x21aa @0x17
0x2193…21b0 at0018 = ╱42╱B╱ // 0x21ab @0x18
0x2193…21b0 at0019 = ╱ec╱,╱ // 0x21ac @0x19
0x2193…21b0 at001a = ╱42╱B╱ // 0x21ad @0x1a
0x2193…21b0 at001b = ╱ee╱)╱ // 0x21ae @0x1b
0x2193…21b0 at001c = EOL // 0x21af @0x1c
0x2193…21b0 }
0x21b0…21bb (112,) af12 3345 PRINT TAL4$
0x21b0…21bb LineComalBin {
0x21b0…21bb ptr = 0xaf12 // 0x21b0 @0x0
0x21b0…21bb lno = 0x0d11 // 0x21b2 @0x2
0x21b0…21bb at0004 = ╱92╱ PRINT ╱ // 0x21b4 @0x4
0x21b0…21bb at0005 = ╱54╱T╱ // 0x21b5 @0x5
0x21b0…21bb at0006 = ╱41╱A╱ // 0x21b6 @0x6
0x21b0…21bb at0007 = ╱4c╱L╱ // 0x21b7 @0x7
0x21b0…21bb at0008 = ╱34╱4╱ // 0x21b8 @0x8
0x21b0…21bb at0009 = ╱ef╱$╱ // 0x21b9 @0x9
0x21b0…21bb at000a = EOL // 0x21ba @0xa
0x21b0…21bb }
0x21bb…21c1 af18 3350 REPEAT
0x21bb…21c1 LineComalBin {
0x21bb…21c1 ptr = 0xaf18 // 0x21bb @0x0
0x21bb…21c1 lno = 0x0d16 // 0x21bd @0x2
0x21bb…21c1 at0004 = ╱97╱ REPEAT ╱ // 0x21bf @0x4
0x21bb…21c1 at0005 = EOL // 0x21c0 @0x5
0x21bb…21c1 }
0x21c1…21c7 af1e 3360 REPEAT
0x21c1…21c7 LineComalBin {
0x21c1…21c7 ptr = 0xaf1e // 0x21c1 @0x0
0x21c1…21c7 lno = 0x0d20 // 0x21c3 @0x2
0x21c1…21c7 at0004 = ╱97╱ REPEAT ╱ // 0x21c5 @0x4
0x21c1…21c7 at0005 = EOL // 0x21c6 @0x5
0x21c1…21c7 }
0x21c7…21da af31 3370 CURSOR 61,LINIE
0x21c7…21da LineComalBin {
0x21c7…21da ptr = 0xaf31 // 0x21c7 @0x0
0x21c7…21da lno = 0x0d2a // 0x21c9 @0x2
0x21c7…21da at0004 = ╱a1╱ CURSOR ╱ // 0x21cb @0x4
0x21c7…21da at0005 = ╱36╱6╱ // 0x21cc @0x5
0x21c7…21da at0006 = ╱31╱1╱ // 0x21cd @0x6
0x21c7…21da at0007 = ╱fe0000f406╱ // 0x21ce @0x7
0x21c7…21da at000c = ╱ec╱,╱ // 0x21d3 @0xc
0x21c7…21da at000d = ╱4c╱L╱ // 0x21d4 @0xd
0x21c7…21da at000e = ╱49╱I╱ // 0x21d5 @0xe
0x21c7…21da at000f = ╱4e╱N╱ // 0x21d6 @0xf
0x21c7…21da at0010 = ╱49╱I╱ // 0x21d7 @0x10
0x21c7…21da at0011 = ╱45╱E╱ // 0x21d8 @0x11
0x21c7…21da at0012 = EOL // 0x21d9 @0x12
0x21c7…21da }
0x21da…21e6 af3d 3380 PRINT BLANK$
0x21da…21e6 LineComalBin {
0x21da…21e6 ptr = 0xaf3d // 0x21da @0x0
0x21da…21e6 lno = 0x0d34 // 0x21dc @0x2
0x21da…21e6 at0004 = ╱92╱ PRINT ╱ // 0x21de @0x4
0x21da…21e6 at0005 = ╱42╱B╱ // 0x21df @0x5
0x21da…21e6 at0006 = ╱4c╱L╱ // 0x21e0 @0x6
0x21da…21e6 at0007 = ╱41╱A╱ // 0x21e1 @0x7
0x21da…21e6 at0008 = ╱4e╱N╱ // 0x21e2 @0x8
0x21da…21e6 at0009 = ╱4b╱K╱ // 0x21e3 @0x9
0x21da…21e6 at000a = ╱ef╱$╱ // 0x21e4 @0xa
0x21da…21e6 at000b = EOL // 0x21e5 @0xb
0x21da…21e6 }
0x21e6…21f9 af50 3390 CURSOR 61,LINIE
0x21e6…21f9 LineComalBin {
0x21e6…21f9 ptr = 0xaf50 // 0x21e6 @0x0
0x21e6…21f9 lno = 0x0d3e // 0x21e8 @0x2
0x21e6…21f9 at0004 = ╱a1╱ CURSOR ╱ // 0x21ea @0x4
0x21e6…21f9 at0005 = ╱36╱6╱ // 0x21eb @0x5
0x21e6…21f9 at0006 = ╱31╱1╱ // 0x21ec @0x6
0x21e6…21f9 at0007 = ╱fe0000f406╱ // 0x21ed @0x7
0x21e6…21f9 at000c = ╱ec╱,╱ // 0x21f2 @0xc
0x21e6…21f9 at000d = ╱4c╱L╱ // 0x21f3 @0xd
0x21e6…21f9 at000e = ╱49╱I╱ // 0x21f4 @0xe
0x21e6…21f9 at000f = ╱4e╱N╱ // 0x21f5 @0xf
0x21e6…21f9 at0010 = ╱49╱I╱ // 0x21f6 @0x10
0x21e6…21f9 at0011 = ╱45╱E╱ // 0x21f7 @0x11
0x21e6…21f9 at0012 = EOL // 0x21f8 @0x12
0x21e6…21f9 }
0x21f9…2208 af5f 3400 INPUT " ",TAL1$
0x21f9…2208 LineComalBin {
0x21f9…2208 ptr = 0xaf5f // 0x21f9 @0x0
0x21f9…2208 lno = 0x0d48 // 0x21fb @0x2
0x21f9…2208 at0004 = ╱91╱ INPUT ╱ // 0x21fd @0x4
0x21f9…2208 at0005 = ╱22╱"╱ // 0x21fe @0x5
0x21f9…2208 at0006 = ╱20╱…╱ // 0x21ff @0x6
0x21f9…2208 at0007 = ╱22╱"╱ // 0x2200 @0x7
0x21f9…2208 at0008 = ╱ec╱,╱ // 0x2201 @0x8
0x21f9…2208 at0009 = ╱54╱T╱ // 0x2202 @0x9
0x21f9…2208 at000a = ╱41╱A╱ // 0x2203 @0xa
0x21f9…2208 at000b = ╱4c╱L╱ // 0x2204 @0xb
0x21f9…2208 at000c = ╱31╱1╱ // 0x2205 @0xc
0x21f9…2208 at000d = ╱ef╱$╱ // 0x2206 @0xd
0x21f9…2208 at000e = EOL // 0x2207 @0xe
0x21f9…2208 }
0x2208…221b af72 3410 EXEC NRTEST(TAL1$)
0x2208…221b LineComalBin {
0x2208…221b ptr = 0xaf72 // 0x2208 @0x0
0x2208…221b lno = 0x0d52 // 0x220a @0x2
0x2208…221b at0004 = ╱9d╱ EXEC ╱ // 0x220c @0x4
0x2208…221b at0005 = ╱4e╱N╱ // 0x220d @0x5
0x2208…221b at0006 = ╱52╱R╱ // 0x220e @0x6
0x2208…221b at0007 = ╱54╱T╱ // 0x220f @0x7
0x2208…221b at0008 = ╱45╱E╱ // 0x2210 @0x8
0x2208…221b at0009 = ╱53╱S╱ // 0x2211 @0x9
0x2208…221b at000a = ╱54╱T╱ // 0x2212 @0xa
0x2208…221b at000b = ╱ed╱(╱ // 0x2213 @0xb
0x2208…221b at000c = ╱54╱T╱ // 0x2214 @0xc
0x2208…221b at000d = ╱41╱A╱ // 0x2215 @0xd
0x2208…221b at000e = ╱4c╱L╱ // 0x2216 @0xe
0x2208…221b at000f = ╱31╱1╱ // 0x2217 @0xf
0x2208…221b at0010 = ╱ef╱$╱ // 0x2218 @0x10
0x2208…221b at0011 = ╱ee╱)╱ // 0x2219 @0x11
0x2208…221b at0012 = EOL // 0x221a @0x12
0x2208…221b }
0x221b…2238 af8f 3420 UNTIL (KTAL=VTAL OR P=B) AND TEST2=B
0x221b…2238 LineComalBin {
0x221b…2238 ptr = 0xaf8f // 0x221b @0x0
0x221b…2238 lno = 0x0d5c // 0x221d @0x2
0x221b…2238 at0004 = ╱98╱ UNTIL ╱ // 0x221f @0x4
0x221b…2238 at0005 = ╱ed╱(╱ // 0x2220 @0x5
0x221b…2238 at0006 = ╱4b╱K╱ // 0x2221 @0x6
0x221b…2238 at0007 = ╱54╱T╱ // 0x2222 @0x7
0x221b…2238 at0008 = ╱41╱A╱ // 0x2223 @0x8
0x221b…2238 at0009 = ╱4c╱L╱ // 0x2224 @0x9
0x221b…2238 at000a = ╱dc╱=╱ // 0x2225 @0xa
0x221b…2238 at000b = ╱56╱V╱ // 0x2226 @0xb
0x221b…2238 at000c = ╱54╱T╱ // 0x2227 @0xc
0x221b…2238 at000d = ╱41╱A╱ // 0x2228 @0xd
0x221b…2238 at000e = ╱4c╱L╱ // 0x2229 @0xe
0x221b…2238 at000f = ╱db╱ OR ╱ // 0x222a @0xf
0x221b…2238 at0010 = ╱50╱P╱ // 0x222b @0x10
0x221b…2238 at0011 = ╱dc╱=╱ // 0x222c @0x11
0x221b…2238 at0012 = ╱42╱B╱ // 0x222d @0x12
0x221b…2238 at0013 = ╱ee╱)╱ // 0x222e @0x13
0x221b…2238 at0014 = ╱da╱ AND ╱ // 0x222f @0x14
0x221b…2238 at0015 = ╱54╱T╱ // 0x2230 @0x15
0x221b…2238 at0016 = ╱45╱E╱ // 0x2231 @0x16
0x221b…2238 at0017 = ╱53╱S╱ // 0x2232 @0x17
0x221b…2238 at0018 = ╱54╱T╱ // 0x2233 @0x18
0x221b…2238 at0019 = ╱32╱2╱ // 0x2234 @0x19
0x221b…2238 at001a = ╱dc╱=╱ // 0x2235 @0x1a
0x221b…2238 at001b = ╱42╱B╱ // 0x2236 @0x1b
0x221b…2238 at001c = EOL // 0x2237 @0x1c
0x221b…2238 }
0x2238…224d afa4 3430 VARKONT=P;CEKS=E
0x2238…224d LineComalBin {
0x2238…224d ptr = 0xafa4 // 0x2238 @0x0
0x2238…224d lno = 0x0d66 // 0x223a @0x2
0x2238…224d at0004 = ╱56╱V╱ // 0x223c @0x4
0x2238…224d at0005 = ╱41╱A╱ // 0x223d @0x5
0x2238…224d at0006 = ╱52╱R╱ // 0x223e @0x6
0x2238…224d at0007 = ╱4b╱K╱ // 0x223f @0x7
0x2238…224d at0008 = ╱4f╱O╱ // 0x2240 @0x8
0x2238…224d at0009 = ╱4e╱N╱ // 0x2241 @0x9
0x2238…224d at000a = ╱54╱T╱ // 0x2242 @0xa
0x2238…224d at000b = ╱dc╱=╱ // 0x2243 @0xb
0x2238…224d at000c = ╱50╱P╱ // 0x2244 @0xc
0x2238…224d at000d = ╱eb╱;╱ // 0x2245 @0xd
0x2238…224d at000e = ╱43╱C╱ // 0x2246 @0xe
0x2238…224d at000f = ╱45╱E╱ // 0x2247 @0xf
0x2238…224d at0010 = ╱4b╱K╱ // 0x2248 @0x10
0x2238…224d at0011 = ╱53╱S╱ // 0x2249 @0x11
0x2238…224d at0012 = ╱dc╱=╱ // 0x224a @0x12
0x2238…224d at0013 = ╱45╱E╱ // 0x224b @0x13
0x2238…224d at0014 = EOL // 0x224c @0x14
0x2238…224d }
0x224d…2281 afd8 3440 IF P>B THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)
0x224d…2281 LineComalBin {
0x224d…2281 ptr = 0xafd8 // 0x224d @0x0
0x224d…2281 lno = 0x0d70 // 0x224f @0x2
0x224d…2281 at0004 = ╱82╱ IF ╱ // 0x2251 @0x4
0x224d…2281 at0005 = ╱50╱P╱ // 0x2252 @0x5
0x224d…2281 at0006 = ╱de╱>╱ // 0x2253 @0x6
0x224d…2281 at0007 = ╱42╱B╱ // 0x2254 @0x7
0x224d…2281 at0008 = ╱b6╱ THEN ╱ // 0x2255 @0x8
0x224d…2281 at0009 = ╱9d╱ EXEC ╱ // 0x2256 @0x9
0x224d…2281 at000a = ╱46╱F╱ // 0x2257 @0xa
0x224d…2281 at000b = ╱49╱I╱ // 0x2258 @0xb
0x224d…2281 at000c = ╱4e╱N╱ // 0x2259 @0xc
0x224d…2281 at000d = ╱44╱D╱ // 0x225a @0xd
0x224d…2281 at000e = ╱50╱P╱ // 0x225b @0xe
0x224d…2281 at000f = ╱4f╱O╱ // 0x225c @0xf
0x224d…2281 at0010 = ╱53╱S╱ // 0x225d @0x10
0x224d…2281 at0011 = ╱54╱T╱ // 0x225e @0x11
0x224d…2281 at0012 = ╱31╱1╱ // 0x225f @0x12
0x224d…2281 at0013 = ╱ed╱(╱ // 0x2260 @0x13
0x224d…2281 at0014 = ╱46╱F╱ // 0x2261 @0x14
0x224d…2281 at0015 = ╱54╱T╱ // 0x2262 @0x15
0x224d…2281 at0016 = ╱41╱A╱ // 0x2263 @0x16
0x224d…2281 at0017 = ╱42╱B╱ // 0x2264 @0x17
0x224d…2281 at0018 = ╱31╱1╱ // 0x2265 @0x18
0x224d…2281 at0019 = ╱ec╱,╱ // 0x2266 @0x19
0x224d…2281 at001a = ╱46╱F╱ // 0x2267 @0x1a
0x224d…2281 at001b = ╱54╱T╱ // 0x2268 @0x1b
0x224d…2281 at001c = ╱41╱A╱ // 0x2269 @0x1c
0x224d…2281 at001d = ╱42╱B╱ // 0x226a @0x1d
0x224d…2281 at001e = ╱ec╱,╱ // 0x226b @0x1e
0x224d…2281 at001f = ╱4d╱M╱ // 0x226c @0x1f
0x224d…2281 at0020 = ╱46╱F╱ // 0x226d @0x20
0x224d…2281 at0021 = ╱41╱A╱ // 0x226e @0x21
0x224d…2281 at0022 = ╱4e╱N╱ // 0x226f @0x22
0x224d…2281 at0023 = ╱54╱T╱ // 0x2270 @0x23
0x224d…2281 at0024 = ╱41╱A╱ // 0x2271 @0x24
0x224d…2281 at0025 = ╱4c╱L╱ // 0x2272 @0x25
0x224d…2281 at0026 = ╱ec╱,╱ // 0x2273 @0x26
0x224d…2281 at0027 = ╱50╱P╱ // 0x2274 @0x27
0x224d…2281 at0028 = ╱ec╱,╱ // 0x2275 @0x28
0x224d…2281 at0029 = ╱46╱F╱ // 0x2276 @0x29
0x224d…2281 at002a = ╱50╱P╱ // 0x2277 @0x2a
0x224d…2281 at002b = ╱49╱I╱ // 0x2278 @0x2b
0x224d…2281 at002c = ╱4c╱L╱ // 0x2279 @0x2c
0x224d…2281 at002d = ╱33╱3╱ // 0x227a @0x2d
0x224d…2281 at002e = ╱ec╱,╱ // 0x227b @0x2e
0x224d…2281 at002f = ╱4b╱K╱ // 0x227c @0x2f
0x224d…2281 at0030 = ╱32╱2╱ // 0x227d @0x30
0x224d…2281 at0031 = ╱ef╱$╱ // 0x227e @0x31
0x224d…2281 at0032 = ╱ee╱)╱ // 0x227f @0x32
0x224d…2281 at0033 = EOL // 0x2280 @0x33
0x224d…2281 }
0x2281…2291 afe8 3450 UNTIL P=B OR CEKS=B
0x2281…2291 LineComalBin {
0x2281…2291 ptr = 0xafe8 // 0x2281 @0x0
0x2281…2291 lno = 0x0d7a // 0x2283 @0x2
0x2281…2291 at0004 = ╱98╱ UNTIL ╱ // 0x2285 @0x4
0x2281…2291 at0005 = ╱50╱P╱ // 0x2286 @0x5
0x2281…2291 at0006 = ╱dc╱=╱ // 0x2287 @0x6
0x2281…2291 at0007 = ╱42╱B╱ // 0x2288 @0x7
0x2281…2291 at0008 = ╱db╱ OR ╱ // 0x2289 @0x8
0x2281…2291 at0009 = ╱43╱C╱ // 0x228a @0x9
0x2281…2291 at000a = ╱45╱E╱ // 0x228b @0xa
0x2281…2291 at000b = ╱4b╱K╱ // 0x228c @0xb
0x2281…2291 at000c = ╱53╱S╱ // 0x228d @0xc
0x2281…2291 at000d = ╱dc╱=╱ // 0x228e @0xd
0x2281…2291 at000e = ╱42╱B╱ // 0x228f @0xe
0x2281…2291 at000f = EOL // 0x2290 @0xf
0x2281…2291 }
0x2291…22a8 afff 3460 IF P=B THEN VARKONT=DIVNR
0x2291…22a8 LineComalBin {
0x2291…22a8 ptr = 0xafff // 0x2291 @0x0
0x2291…22a8 lno = 0x0d84 // 0x2293 @0x2
0x2291…22a8 at0004 = ╱82╱ IF ╱ // 0x2295 @0x4
0x2291…22a8 at0005 = ╱50╱P╱ // 0x2296 @0x5
0x2291…22a8 at0006 = ╱dc╱=╱ // 0x2297 @0x6
0x2291…22a8 at0007 = ╱42╱B╱ // 0x2298 @0x7
0x2291…22a8 at0008 = ╱b6╱ THEN ╱ // 0x2299 @0x8
0x2291…22a8 at0009 = ╱56╱V╱ // 0x229a @0x9
0x2291…22a8 at000a = ╱41╱A╱ // 0x229b @0xa
0x2291…22a8 at000b = ╱52╱R╱ // 0x229c @0xb
0x2291…22a8 at000c = ╱4b╱K╱ // 0x229d @0xc
0x2291…22a8 at000d = ╱4f╱O╱ // 0x229e @0xd
0x2291…22a8 at000e = ╱4e╱N╱ // 0x229f @0xe
0x2291…22a8 at000f = ╱54╱T╱ // 0x22a0 @0xf
0x2291…22a8 at0010 = ╱dc╱=╱ // 0x22a1 @0x10
0x2291…22a8 at0011 = ╱44╱D╱ // 0x22a2 @0x11
0x2291…22a8 at0012 = ╱49╱I╱ // 0x22a3 @0x12
0x2291…22a8 at0013 = ╱56╱V╱ // 0x22a4 @0x13
0x2291…22a8 at0014 = ╱4e╱N╱ // 0x22a5 @0x14
0x2291…22a8 at0015 = ╱52╱R╱ // 0x22a6 @0x15
0x2291…22a8 at0016 = EOL // 0x22a7 @0x16
0x2291…22a8 }
0x22a8…22bb b012 3470 CURSOR 60,LINIE
0x22a8…22bb LineComalBin {
0x22a8…22bb ptr = 0xb012 // 0x22a8 @0x0
0x22a8…22bb lno = 0x0d8e // 0x22aa @0x2
0x22a8…22bb at0004 = ╱a1╱ CURSOR ╱ // 0x22ac @0x4
0x22a8…22bb at0005 = ╱36╱6╱ // 0x22ad @0x5
0x22a8…22bb at0006 = ╱30╱0╱ // 0x22ae @0x6
0x22a8…22bb at0007 = ╱fe0000f006╱ // 0x22af @0x7
0x22a8…22bb at000c = ╱ec╱,╱ // 0x22b4 @0xc
0x22a8…22bb at000d = ╱4c╱L╱ // 0x22b5 @0xd
0x22a8…22bb at000e = ╱49╱I╱ // 0x22b6 @0xe
0x22a8…22bb at000f = ╱4e╱N╱ // 0x22b7 @0xf
0x22a8…22bb at0010 = ╱49╱I╱ // 0x22b8 @0x10
0x22a8…22bb at0011 = ╱45╱E╱ // 0x22b9 @0x11
0x22a8…22bb at0012 = EOL // 0x22ba @0x12
0x22a8…22bb }
0x22bb…22d7 b02e 3480 PRINT USING "####### ":VARKONT
0x22bb…22d7 LineComalBin {
0x22bb…22d7 ptr = 0xb02e // 0x22bb @0x0
0x22bb…22d7 lno = 0x0d98 // 0x22bd @0x2
0x22bb…22d7 at0004 = ╱92╱ PRINT ╱ // 0x22bf @0x4
0x22bb…22d7 at0005 = ╱b9╱ USING ╱ // 0x22c0 @0x5
0x22bb…22d7 at0006 = ╱22╱"╱ // 0x22c1 @0x6
0x22bb…22d7 at0007 = ╱23╱#╱ // 0x22c2 @0x7
0x22bb…22d7 at0008 = ╱23╱#╱ // 0x22c3 @0x8
0x22bb…22d7 at0009 = ╱23╱#╱ // 0x22c4 @0x9
0x22bb…22d7 at000a = ╱23╱#╱ // 0x22c5 @0xa
0x22bb…22d7 at000b = ╱23╱#╱ // 0x22c6 @0xb
0x22bb…22d7 at000c = ╱23╱#╱ // 0x22c7 @0xc
0x22bb…22d7 at000d = ╱23╱#╱ // 0x22c8 @0xd
0x22bb…22d7 at000e = ╱20╱…╱ // 0x22c9 @0xe
0x22bb…22d7 at000f = ╱20╱…╱ // 0x22ca @0xf
0x22bb…22d7 at0010 = ╱20╱…╱ // 0x22cb @0x10
0x22bb…22d7 at0011 = ╱20╱…╱ // 0x22cc @0x11
0x22bb…22d7 at0012 = ╱22╱"╱ // 0x22cd @0x12
0x22bb…22d7 at0013 = ╱f0╱:╱ // 0x22ce @0x13
0x22bb…22d7 at0014 = ╱56╱V╱ // 0x22cf @0x14
0x22bb…22d7 at0015 = ╱41╱A╱ // 0x22d0 @0x15
0x22bb…22d7 at0016 = ╱52╱R╱ // 0x22d1 @0x16
0x22bb…22d7 at0017 = ╱4b╱K╱ // 0x22d2 @0x17
0x22bb…22d7 at0018 = ╱4f╱O╱ // 0x22d3 @0x18
0x22bb…22d7 at0019 = ╱4e╱N╱ // 0x22d4 @0x19
0x22bb…22d7 at001a = ╱54╱T╱ // 0x22d5 @0x1a
0x22bb…22d7 at001b = EOL // 0x22d6 @0x1b
0x22bb…22d7 }
0x22d7…22dd b034 3481 REPEAT
0x22d7…22dd LineComalBin {
0x22d7…22dd ptr = 0xb034 // 0x22d7 @0x0
0x22d7…22dd lno = 0x0d99 // 0x22d9 @0x2
0x22d7…22dd at0004 = ╱97╱ REPEAT ╱ // 0x22db @0x4
0x22d7…22dd at0005 = EOL // 0x22dc @0x5
0x22d7…22dd }
0x22dd…22f0 b047 3482 CURSOR 69,LINIE
0x22dd…22f0 LineComalBin {
0x22dd…22f0 ptr = 0xb047 // 0x22dd @0x0
0x22dd…22f0 lno = 0x0d9a // 0x22df @0x2
0x22dd…22f0 at0004 = ╱a1╱ CURSOR ╱ // 0x22e1 @0x4
0x22dd…22f0 at0005 = ╱36╱6╱ // 0x22e2 @0x5
0x22dd…22f0 at0006 = ╱39╱9╱ // 0x22e3 @0x6
0x22dd…22f0 at0007 = ╱fe00008a07╱ // 0x22e4 @0x7
0x22dd…22f0 at000c = ╱ec╱,╱ // 0x22e9 @0xc
0x22dd…22f0 at000d = ╱4c╱L╱ // 0x22ea @0xd
0x22dd…22f0 at000e = ╱49╱I╱ // 0x22eb @0xe
0x22dd…22f0 at000f = ╱4e╱N╱ // 0x22ec @0xf
0x22dd…22f0 at0010 = ╱49╱I╱ // 0x22ed @0x10
0x22dd…22f0 at0011 = ╱45╱E╱ // 0x22ee @0x11
0x22dd…22f0 at0012 = EOL // 0x22ef @0x12
0x22dd…22f0 }
0x22f0…2307 b05e 3483 PRINT BLANK$(E:18)
0x22f0…2307 LineComalBin {
0x22f0…2307 ptr = 0xb05e // 0x22f0 @0x0
0x22f0…2307 lno = 0x0d9b // 0x22f2 @0x2
0x22f0…2307 at0004 = ╱92╱ PRINT ╱ // 0x22f4 @0x4
0x22f0…2307 at0005 = ╱42╱B╱ // 0x22f5 @0x5
0x22f0…2307 at0006 = ╱4c╱L╱ // 0x22f6 @0x6
0x22f0…2307 at0007 = ╱41╱A╱ // 0x22f7 @0x7
0x22f0…2307 at0008 = ╱4e╱N╱ // 0x22f8 @0x8
0x22f0…2307 at0009 = ╱4b╱K╱ // 0x22f9 @0x9
0x22f0…2307 at000a = ╱ef╱$╱ // 0x22fa @0xa
0x22f0…2307 at000b = ╱ed╱(╱ // 0x22fb @0xb
0x22f0…2307 at000c = ╱45╱E╱ // 0x22fc @0xc
0x22f0…2307 at000d = ╱f0╱:╱ // 0x22fd @0xd
0x22f0…2307 at000e = ╱31╱1╱ // 0x22fe @0xe
0x22f0…2307 at000f = ╱38╱8╱ // 0x22ff @0xf
0x22f0…2307 at0010 = ╱fe00009005╱ // 0x2300 @0x10
0x22f0…2307 at0015 = ╱ee╱)╱ // 0x2305 @0x15
0x22f0…2307 at0016 = EOL // 0x2306 @0x16
0x22f0…2307 }
0x2307…231a b071 3484 CURSOR 69,LINIE
0x2307…231a LineComalBin {
0x2307…231a ptr = 0xb071 // 0x2307 @0x0
0x2307…231a lno = 0x0d9c // 0x2309 @0x2
0x2307…231a at0004 = ╱a1╱ CURSOR ╱ // 0x230b @0x4
0x2307…231a at0005 = ╱36╱6╱ // 0x230c @0x5
0x2307…231a at0006 = ╱39╱9╱ // 0x230d @0x6
0x2307…231a at0007 = ╱fe00008a07╱ // 0x230e @0x7
0x2307…231a at000c = ╱ec╱,╱ // 0x2313 @0xc
0x2307…231a at000d = ╱4c╱L╱ // 0x2314 @0xd
0x2307…231a at000e = ╱49╱I╱ // 0x2315 @0xe
0x2307…231a at000f = ╱4e╱N╱ // 0x2316 @0xf
0x2307…231a at0010 = ╱49╱I╱ // 0x2317 @0x10
0x2307…231a at0011 = ╱45╱E╱ // 0x2318 @0x11
0x2307…231a at0012 = EOL // 0x2319 @0x12
0x2307…231a }
0x231a…2329 b080 3485 INPUT " ",TAL1$
0x231a…2329 LineComalBin {
0x231a…2329 ptr = 0xb080 // 0x231a @0x0
0x231a…2329 lno = 0x0d9d // 0x231c @0x2
0x231a…2329 at0004 = ╱91╱ INPUT ╱ // 0x231e @0x4
0x231a…2329 at0005 = ╱22╱"╱ // 0x231f @0x5
0x231a…2329 at0006 = ╱20╱…╱ // 0x2320 @0x6
0x231a…2329 at0007 = ╱22╱"╱ // 0x2321 @0x7
0x231a…2329 at0008 = ╱ec╱,╱ // 0x2322 @0x8
0x231a…2329 at0009 = ╱54╱T╱ // 0x2323 @0x9
0x231a…2329 at000a = ╱41╱A╱ // 0x2324 @0xa
0x231a…2329 at000b = ╱4c╱L╱ // 0x2325 @0xb
0x231a…2329 at000c = ╱31╱1╱ // 0x2326 @0xc
0x231a…2329 at000d = ╱ef╱$╱ // 0x2327 @0xd
0x231a…2329 at000e = EOL // 0x2328 @0xe
0x231a…2329 }
0x2329…233c b093 3486 EXEC NRTEST(TAL1$)
0x2329…233c LineComalBin {
0x2329…233c ptr = 0xb093 // 0x2329 @0x0
0x2329…233c lno = 0x0d9e // 0x232b @0x2
0x2329…233c at0004 = ╱9d╱ EXEC ╱ // 0x232d @0x4
0x2329…233c at0005 = ╱4e╱N╱ // 0x232e @0x5
0x2329…233c at0006 = ╱52╱R╱ // 0x232f @0x6
0x2329…233c at0007 = ╱54╱T╱ // 0x2330 @0x7
0x2329…233c at0008 = ╱45╱E╱ // 0x2331 @0x8
0x2329…233c at0009 = ╱53╱S╱ // 0x2332 @0x9
0x2329…233c at000a = ╱54╱T╱ // 0x2333 @0xa
0x2329…233c at000b = ╱ed╱(╱ // 0x2334 @0xb
0x2329…233c at000c = ╱54╱T╱ // 0x2335 @0xc
0x2329…233c at000d = ╱41╱A╱ // 0x2336 @0xd
0x2329…233c at000e = ╱4c╱L╱ // 0x2337 @0xe
0x2329…233c at000f = ╱31╱1╱ // 0x2338 @0xf
0x2329…233c at0010 = ╱ef╱$╱ // 0x2339 @0x10
0x2329…233c at0011 = ╱ee╱)╱ // 0x233a @0x11
0x2329…233c at0012 = EOL // 0x233b @0x12
0x2329…233c }
0x233c…235f b0b6 3487 UNTIL (P=B OR (P>W AND P<99)) AND TEST2=B
0x233c…235f LineComalBin {
0x233c…235f ptr = 0xb0b6 // 0x233c @0x0
0x233c…235f lno = 0x0d9f // 0x233e @0x2
0x233c…235f at0004 = ╱98╱ UNTIL ╱ // 0x2340 @0x4
0x233c…235f at0005 = ╱ed╱(╱ // 0x2341 @0x5
0x233c…235f at0006 = ╱50╱P╱ // 0x2342 @0x6
0x233c…235f at0007 = ╱dc╱=╱ // 0x2343 @0x7
0x233c…235f at0008 = ╱42╱B╱ // 0x2344 @0x8
0x233c…235f at0009 = ╱db╱ OR ╱ // 0x2345 @0x9
0x233c…235f at000a = ╱ed╱(╱ // 0x2346 @0xa
0x233c…235f at000b = ╱50╱P╱ // 0x2347 @0xb
0x233c…235f at000c = ╱de╱>╱ // 0x2348 @0xc
0x233c…235f at000d = ╱57╱W╱ // 0x2349 @0xd
0x233c…235f at000e = ╱da╱ AND ╱ // 0x234a @0xe
0x233c…235f at000f = ╱50╱P╱ // 0x234b @0xf
0x233c…235f at0010 = ╱dd╱<╱ // 0x234c @0x10
0x233c…235f at0011 = ╱39╱9╱ // 0x234d @0x11
0x233c…235f at0012 = ╱39╱9╱ // 0x234e @0x12
0x233c…235f at0013 = ╱fe0000c607╱ // 0x234f @0x13
0x233c…235f at0018 = ╱ee╱)╱ // 0x2354 @0x18
0x233c…235f at0019 = ╱ee╱)╱ // 0x2355 @0x19
0x233c…235f at001a = ╱da╱ AND ╱ // 0x2356 @0x1a
0x233c…235f at001b = ╱54╱T╱ // 0x2357 @0x1b
0x233c…235f at001c = ╱45╱E╱ // 0x2358 @0x1c
0x233c…235f at001d = ╱53╱S╱ // 0x2359 @0x1d
0x233c…235f at001e = ╱54╱T╱ // 0x235a @0x1e
0x233c…235f at001f = ╱32╱2╱ // 0x235b @0x1f
0x233c…235f at0020 = ╱dc╱=╱ // 0x235c @0x20
0x233c…235f at0021 = ╱42╱B╱ // 0x235d @0x21
0x233c…235f at0022 = EOL // 0x235e @0x22
0x233c…235f }
0x235f…236d b0c4 3488 UNDKONT=P
0x235f…236d LineComalBin {
0x235f…236d ptr = 0xb0c4 // 0x235f @0x0
0x235f…236d lno = 0x0da0 // 0x2361 @0x2
0x235f…236d at0004 = ╱55╱U╱ // 0x2363 @0x4
0x235f…236d at0005 = ╱4e╱N╱ // 0x2364 @0x5
0x235f…236d at0006 = ╱44╱D╱ // 0x2365 @0x6
0x235f…236d at0007 = ╱4b╱K╱ // 0x2366 @0x7
0x235f…236d at0008 = ╱4f╱O╱ // 0x2367 @0x8
0x235f…236d at0009 = ╱4e╱N╱ // 0x2368 @0x9
0x235f…236d at000a = ╱54╱T╱ // 0x2369 @0xa
0x235f…236d at000b = ╱dc╱=╱ // 0x236a @0xb
0x235f…236d at000c = ╱50╱P╱ // 0x236b @0xc
0x235f…236d at000d = EOL // 0x236c @0xd
0x235f…236d }
0x236d…2387 b0de 3489 IF P=B THEN UNDKONT=DUNDKONT
0x236d…2387 LineComalBin {
0x236d…2387 ptr = 0xb0de // 0x236d @0x0
0x236d…2387 lno = 0x0da1 // 0x236f @0x2
0x236d…2387 at0004 = ╱82╱ IF ╱ // 0x2371 @0x4
0x236d…2387 at0005 = ╱50╱P╱ // 0x2372 @0x5
0x236d…2387 at0006 = ╱dc╱=╱ // 0x2373 @0x6
0x236d…2387 at0007 = ╱42╱B╱ // 0x2374 @0x7
0x236d…2387 at0008 = ╱b6╱ THEN ╱ // 0x2375 @0x8
0x236d…2387 at0009 = ╱55╱U╱ // 0x2376 @0x9
0x236d…2387 at000a = ╱4e╱N╱ // 0x2377 @0xa
0x236d…2387 at000b = ╱44╱D╱ // 0x2378 @0xb
0x236d…2387 at000c = ╱4b╱K╱ // 0x2379 @0xc
0x236d…2387 at000d = ╱4f╱O╱ // 0x237a @0xd
0x236d…2387 at000e = ╱4e╱N╱ // 0x237b @0xe
0x236d…2387 at000f = ╱54╱T╱ // 0x237c @0xf
0x236d…2387 at0010 = ╱dc╱=╱ // 0x237d @0x10
0x236d…2387 at0011 = ╱44╱D╱ // 0x237e @0x11
0x236d…2387 at0012 = ╱55╱U╱ // 0x237f @0x12
0x236d…2387 at0013 = ╱4e╱N╱ // 0x2380 @0x13
0x236d…2387 at0014 = ╱44╱D╱ // 0x2381 @0x14
0x236d…2387 at0015 = ╱4b╱K╱ // 0x2382 @0x15
0x236d…2387 at0016 = ╱4f╱O╱ // 0x2383 @0x16
0x236d…2387 at0017 = ╱4e╱N╱ // 0x2384 @0x17
0x236d…2387 at0018 = ╱54╱T╱ // 0x2385 @0x18
0x236d…2387 at0019 = EOL // 0x2386 @0x19
0x236d…2387 }
0x2387…239a b0f1 3490 CURSOR 68,LINIE
0x2387…239a LineComalBin {
0x2387…239a ptr = 0xb0f1 // 0x2387 @0x0
0x2387…239a lno = 0x0da2 // 0x2389 @0x2
0x2387…239a at0004 = ╱a1╱ CURSOR ╱ // 0x238b @0x4
0x2387…239a at0005 = ╱36╱6╱ // 0x238c @0x5
0x2387…239a at0006 = ╱38╱8╱ // 0x238d @0x6
0x2387…239a at0007 = ╱fe00008807╱ // 0x238e @0x7
0x2387…239a at000c = ╱ec╱,╱ // 0x2393 @0xc
0x2387…239a at000d = ╱4c╱L╱ // 0x2394 @0xd
0x2387…239a at000e = ╱49╱I╱ // 0x2395 @0xe
0x2387…239a at000f = ╱4e╱N╱ // 0x2396 @0xf
0x2387…239a at0010 = ╱49╱I╱ // 0x2397 @0x10
0x2387…239a at0011 = ╱45╱E╱ // 0x2398 @0x11
0x2387…239a at0012 = EOL // 0x2399 @0x12
0x2387…239a }
0x239a…23b2 b109 3491 PRINT USING "#######":UNDKONT
0x239a…23b2 LineComalBin {
0x239a…23b2 ptr = 0xb109 // 0x239a @0x0
0x239a…23b2 lno = 0x0da3 // 0x239c @0x2
0x239a…23b2 at0004 = ╱92╱ PRINT ╱ // 0x239e @0x4
0x239a…23b2 at0005 = ╱b9╱ USING ╱ // 0x239f @0x5
0x239a…23b2 at0006 = ╱22╱"╱ // 0x23a0 @0x6
0x239a…23b2 at0007 = ╱23╱#╱ // 0x23a1 @0x7
0x239a…23b2 at0008 = ╱23╱#╱ // 0x23a2 @0x8
0x239a…23b2 at0009 = ╱23╱#╱ // 0x23a3 @0x9
0x239a…23b2 at000a = ╱23╱#╱ // 0x23a4 @0xa
0x239a…23b2 at000b = ╱23╱#╱ // 0x23a5 @0xb
0x239a…23b2 at000c = ╱23╱#╱ // 0x23a6 @0xc
0x239a…23b2 at000d = ╱23╱#╱ // 0x23a7 @0xd
0x239a…23b2 at000e = ╱22╱"╱ // 0x23a8 @0xe
0x239a…23b2 at000f = ╱f0╱:╱ // 0x23a9 @0xf
0x239a…23b2 at0010 = ╱55╱U╱ // 0x23aa @0x10
0x239a…23b2 at0011 = ╱4e╱N╱ // 0x23ab @0x11
0x239a…23b2 at0012 = ╱44╱D╱ // 0x23ac @0x12
0x239a…23b2 at0013 = ╱4b╱K╱ // 0x23ad @0x13
0x239a…23b2 at0014 = ╱4f╱O╱ // 0x23ae @0x14
0x239a…23b2 at0015 = ╱4e╱N╱ // 0x23af @0x15
0x239a…23b2 at0016 = ╱54╱T╱ // 0x23b0 @0x16
0x239a…23b2 at0017 = EOL // 0x23b1 @0x17
0x239a…23b2 }
0x23b2…23c1 b118 3492 CURSOR E,24
0x23b2…23c1 LineComalBin {
0x23b2…23c1 ptr = 0xb118 // 0x23b2 @0x0
0x23b2…23c1 lno = 0x0da4 // 0x23b4 @0x2
0x23b2…23c1 at0004 = ╱a1╱ CURSOR ╱ // 0x23b6 @0x4
0x23b2…23c1 at0005 = ╱45╱E╱ // 0x23b7 @0x5
0x23b2…23c1 at0006 = ╱ec╱,╱ // 0x23b8 @0x6
0x23b2…23c1 at0007 = ╱32╱2╱ // 0x23b9 @0x7
0x23b2…23c1 at0008 = ╱34╱4╱ // 0x23ba @0x8
0x23b2…23c1 at0009 = ╱fe0000c005╱ // 0x23bb @0x9
0x23b2…23c1 at000e = EOL // 0x23c0 @0xe
0x23b2…23c1 }
0x23c1…23e7 b13e 3495 EXEC INDSÆT1(VTAB,AVARE,VARENR,VPIL3)
0x23c1…23e7 LineComalBin {
0x23c1…23e7 ptr = 0xb13e // 0x23c1 @0x0
0x23c1…23e7 lno = 0x0da7 // 0x23c3 @0x2
0x23c1…23e7 at0004 = ╱9d╱ EXEC ╱ // 0x23c5 @0x4
0x23c1…23e7 at0005 = ╱49╱I╱ // 0x23c6 @0x5
0x23c1…23e7 at0006 = ╱4e╱N╱ // 0x23c7 @0x6
0x23c1…23e7 at0007 = ╱44╱D╱ // 0x23c8 @0x7
0x23c1…23e7 at0008 = ╱53╱S╱ // 0x23c9 @0x8
0x23c1…23e7 at0009 = ╱5b╱Æ╱ // 0x23ca @0x9
0x23c1…23e7 at000a = ╱54╱T╱ // 0x23cb @0xa
0x23c1…23e7 at000b = ╱31╱1╱ // 0x23cc @0xb
0x23c1…23e7 at000c = ╱ed╱(╱ // 0x23cd @0xc
0x23c1…23e7 at000d = ╱56╱V╱ // 0x23ce @0xd
0x23c1…23e7 at000e = ╱54╱T╱ // 0x23cf @0xe
0x23c1…23e7 at000f = ╱41╱A╱ // 0x23d0 @0xf
0x23c1…23e7 at0010 = ╱42╱B╱ // 0x23d1 @0x10
0x23c1…23e7 at0011 = ╱ec╱,╱ // 0x23d2 @0x11
0x23c1…23e7 at0012 = ╱41╱A╱ // 0x23d3 @0x12
0x23c1…23e7 at0013 = ╱56╱V╱ // 0x23d4 @0x13
0x23c1…23e7 at0014 = ╱41╱A╱ // 0x23d5 @0x14
0x23c1…23e7 at0015 = ╱52╱R╱ // 0x23d6 @0x15
0x23c1…23e7 at0016 = ╱45╱E╱ // 0x23d7 @0x16
0x23c1…23e7 at0017 = ╱ec╱,╱ // 0x23d8 @0x17
0x23c1…23e7 at0018 = ╱56╱V╱ // 0x23d9 @0x18
0x23c1…23e7 at0019 = ╱41╱A╱ // 0x23da @0x19
0x23c1…23e7 at001a = ╱52╱R╱ // 0x23db @0x1a
0x23c1…23e7 at001b = ╱45╱E╱ // 0x23dc @0x1b
0x23c1…23e7 at001c = ╱4e╱N╱ // 0x23dd @0x1c
0x23c1…23e7 at001d = ╱52╱R╱ // 0x23de @0x1d
0x23c1…23e7 at001e = ╱ec╱,╱ // 0x23df @0x1e
0x23c1…23e7 at001f = ╱56╱V╱ // 0x23e0 @0x1f
0x23c1…23e7 at0020 = ╱50╱P╱ // 0x23e1 @0x20
0x23c1…23e7 at0021 = ╱49╱I╱ // 0x23e2 @0x21
0x23c1…23e7 at0022 = ╱4c╱L╱ // 0x23e3 @0x22
0x23c1…23e7 at0023 = ╱33╱3╱ // 0x23e4 @0x23
0x23c1…23e7 at0024 = ╱ee╱)╱ // 0x23e5 @0x24
0x23c1…23e7 at0025 = EOL // 0x23e6 @0x25
0x23c1…23e7 }
0x23e7…23f5 b14c 3500 EXEC GEMVPOST
0x23e7…23f5 LineComalBin {
0x23e7…23f5 ptr = 0xb14c // 0x23e7 @0x0
0x23e7…23f5 lno = 0x0dac // 0x23e9 @0x2
0x23e7…23f5 at0004 = ╱9d╱ EXEC ╱ // 0x23eb @0x4
0x23e7…23f5 at0005 = ╱47╱G╱ // 0x23ec @0x5
0x23e7…23f5 at0006 = ╱45╱E╱ // 0x23ed @0x6
0x23e7…23f5 at0007 = ╱4d╱M╱ // 0x23ee @0x7
0x23e7…23f5 at0008 = ╱56╱V╱ // 0x23ef @0x8
0x23e7…23f5 at0009 = ╱50╱P╱ // 0x23f0 @0x9
0x23e7…23f5 at000a = ╱4f╱O╱ // 0x23f1 @0xa
0x23e7…23f5 at000b = ╱53╱S╱ // 0x23f2 @0xb
0x23e7…23f5 at000c = ╱54╱T╱ // 0x23f3 @0xc
0x23e7…23f5 at000d = EOL // 0x23f4 @0xd
0x23e7…23f5 }
0x23f5…2407 b15e 3510 LINIE=LINIE+E
0x23f5…2407 LineComalBin {
0x23f5…2407 ptr = 0xb15e // 0x23f5 @0x0
0x23f5…2407 lno = 0x0db6 // 0x23f7 @0x2
0x23f5…2407 at0004 = ╱4c╱L╱ // 0x23f9 @0x4
0x23f5…2407 at0005 = ╱49╱I╱ // 0x23fa @0x5
0x23f5…2407 at0006 = ╱4e╱N╱ // 0x23fb @0x6
0x23f5…2407 at0007 = ╱49╱I╱ // 0x23fc @0x7
0x23f5…2407 at0008 = ╱45╱E╱ // 0x23fd @0x8
0x23f5…2407 at0009 = ╱dc╱=╱ // 0x23fe @0x9
0x23f5…2407 at000a = ╱4c╱L╱ // 0x23ff @0xa
0x23f5…2407 at000b = ╱49╱I╱ // 0x2400 @0xb
0x23f5…2407 at000c = ╱4e╱N╱ // 0x2401 @0xc
0x23f5…2407 at000d = ╱49╱I╱ // 0x2402 @0xd
0x23f5…2407 at000e = ╱45╱E╱ // 0x2403 @0xe
0x23f5…2407 at000f = ╱e2╱+╱ // 0x2404 @0xf
0x23f5…2407 at0010 = ╱45╱E╱ // 0x2405 @0x10
0x23f5…2407 at0011 = EOL // 0x2406 @0x11
0x23f5…2407 }
0x2407…2423 b17a 3520 IF LINIE>23 THEN EXEC LINTEST
0x2407…2423 LineComalBin {
0x2407…2423 ptr = 0xb17a // 0x2407 @0x0
0x2407…2423 lno = 0x0dc0 // 0x2409 @0x2
0x2407…2423 at0004 = ╱82╱ IF ╱ // 0x240b @0x4
0x2407…2423 at0005 = ╱4c╱L╱ // 0x240c @0x5
0x2407…2423 at0006 = ╱49╱I╱ // 0x240d @0x6
0x2407…2423 at0007 = ╱4e╱N╱ // 0x240e @0x7
0x2407…2423 at0008 = ╱49╱I╱ // 0x240f @0x8
0x2407…2423 at0009 = ╱45╱E╱ // 0x2410 @0x9
0x2407…2423 at000a = ╱de╱>╱ // 0x2411 @0xa
0x2407…2423 at000b = ╱32╱2╱ // 0x2412 @0xb
0x2407…2423 at000c = ╱33╱3╱ // 0x2413 @0xc
0x2407…2423 at000d = ╱fe0000b805╱ // 0x2414 @0xd
0x2407…2423 at0012 = ╱b6╱ THEN ╱ // 0x2419 @0x12
0x2407…2423 at0013 = ╱9d╱ EXEC ╱ // 0x241a @0x13
0x2407…2423 at0014 = ╱4c╱L╱ // 0x241b @0x14
0x2407…2423 at0015 = ╱49╱I╱ // 0x241c @0x15
0x2407…2423 at0016 = ╱4e╱N╱ // 0x241d @0x16
0x2407…2423 at0017 = ╱54╱T╱ // 0x241e @0x17
0x2407…2423 at0018 = ╱45╱E╱ // 0x241f @0x18
0x2407…2423 at0019 = ╱53╱S╱ // 0x2420 @0x19
0x2407…2423 at001a = ╱54╱T╱ // 0x2421 @0x1a
0x2407…2423 at001b = EOL // 0x2422 @0x1b
0x2407…2423 }
0x2423…2429 b180 3540 ELSE
0x2423…2429 LineComalBin {
0x2423…2429 ptr = 0xb180 // 0x2423 @0x0
0x2423…2429 lno = 0x0dd4 // 0x2425 @0x2
0x2423…2429 at0004 = ╱9a╱ ELSE ╱ // 0x2427 @0x4
0x2423…2429 at0005 = EOL // 0x2428 @0x5
0x2423…2429 }
0x2429…243d b194 3550 CURSOR 5,21
0x2429…243d LineComalBin {
0x2429…243d ptr = 0xb194 // 0x2429 @0x0
0x2429…243d lno = 0x0dde // 0x242b @0x2
0x2429…243d at0004 = ╱a1╱ CURSOR ╱ // 0x242d @0x4
0x2429…243d at0005 = ╱35╱5╱ // 0x242e @0x5
0x2429…243d at0006 = ╱fe0000a003╱ // 0x242f @0x6
0x2429…243d at000b = ╱ec╱,╱ // 0x2434 @0xb
0x2429…243d at000c = ╱32╱2╱ // 0x2435 @0xc
0x2429…243d at000d = ╱31╱1╱ // 0x2436 @0xd
0x2429…243d at000e = ╱fe0000a805╱ // 0x2437 @0xe
0x2429…243d at0013 = EOL // 0x243c @0x13
0x2429…243d }
0x243d…247b b1d2 3560 INPUT "Der er ikke plads til flere varer. Tast RETURN.",SVAR1$
0x243d…247b LineComalBin {
0x243d…247b ptr = 0xb1d2 // 0x243d @0x0
0x243d…247b lno = 0x0de8 // 0x243f @0x2
0x243d…247b at0004 = ╱91╱ INPUT ╱ // 0x2441 @0x4
0x243d…247b at0005 = ╱22╱"╱ // 0x2442 @0x5
0x243d…247b at0006 = ╱44╱D╱ // 0x2443 @0x6
0x243d…247b at0007 = ╱65╱e╱ // 0x2444 @0x7
0x243d…247b at0008 = ╱72╱r╱ // 0x2445 @0x8
0x243d…247b at0009 = ╱20╱…╱ // 0x2446 @0x9
0x243d…247b at000a = ╱65╱e╱ // 0x2447 @0xa
0x243d…247b at000b = ╱72╱r╱ // 0x2448 @0xb
0x243d…247b at000c = ╱20╱…╱ // 0x2449 @0xc
0x243d…247b at000d = ╱69╱i╱ // 0x244a @0xd
0x243d…247b at000e = ╱6b╱k╱ // 0x244b @0xe
0x243d…247b at000f = ╱6b╱k╱ // 0x244c @0xf
0x243d…247b at0010 = ╱65╱e╱ // 0x244d @0x10
0x243d…247b at0011 = ╱20╱…╱ // 0x244e @0x11
0x243d…247b at0012 = ╱70╱p╱ // 0x244f @0x12
0x243d…247b at0013 = ╱6c╱l╱ // 0x2450 @0x13
0x243d…247b at0014 = ╱61╱a╱ // 0x2451 @0x14
0x243d…247b at0015 = ╱64╱d╱ // 0x2452 @0x15
0x243d…247b at0016 = ╱73╱s╱ // 0x2453 @0x16
0x243d…247b at0017 = ╱20╱…╱ // 0x2454 @0x17
0x243d…247b at0018 = ╱74╱t╱ // 0x2455 @0x18
0x243d…247b at0019 = ╱69╱i╱ // 0x2456 @0x19
0x243d…247b at001a = ╱6c╱l╱ // 0x2457 @0x1a
0x243d…247b at001b = ╱20╱…╱ // 0x2458 @0x1b
0x243d…247b at001c = ╱66╱f╱ // 0x2459 @0x1c
0x243d…247b at001d = ╱6c╱l╱ // 0x245a @0x1d
0x243d…247b at001e = ╱65╱e╱ // 0x245b @0x1e
0x243d…247b at001f = ╱72╱r╱ // 0x245c @0x1f
0x243d…247b at0020 = ╱65╱e╱ // 0x245d @0x20
0x243d…247b at0021 = ╱20╱…╱ // 0x245e @0x21
0x243d…247b at0022 = ╱76╱v╱ // 0x245f @0x22
0x243d…247b at0023 = ╱61╱a╱ // 0x2460 @0x23
0x243d…247b at0024 = ╱72╱r╱ // 0x2461 @0x24
0x243d…247b at0025 = ╱65╱e╱ // 0x2462 @0x25
0x243d…247b at0026 = ╱72╱r╱ // 0x2463 @0x26
0x243d…247b at0027 = ╱2e╱.╱ // 0x2464 @0x27
0x243d…247b at0028 = ╱20╱…╱ // 0x2465 @0x28
0x243d…247b at0029 = ╱54╱T╱ // 0x2466 @0x29
0x243d…247b at002a = ╱61╱a╱ // 0x2467 @0x2a
0x243d…247b at002b = ╱73╱s╱ // 0x2468 @0x2b
0x243d…247b at002c = ╱74╱t╱ // 0x2469 @0x2c
0x243d…247b at002d = ╱20╱…╱ // 0x246a @0x2d
0x243d…247b at002e = ╱52╱R╱ // 0x246b @0x2e
0x243d…247b at002f = ╱45╱E╱ // 0x246c @0x2f
0x243d…247b at0030 = ╱54╱T╱ // 0x246d @0x30
0x243d…247b at0031 = ╱55╱U╱ // 0x246e @0x31
0x243d…247b at0032 = ╱52╱R╱ // 0x246f @0x32
0x243d…247b at0033 = ╱4e╱N╱ // 0x2470 @0x33
0x243d…247b at0034 = ╱2e╱.╱ // 0x2471 @0x34
0x243d…247b at0035 = ╱22╱"╱ // 0x2472 @0x35
0x243d…247b at0036 = ╱ec╱,╱ // 0x2473 @0x36
0x243d…247b at0037 = ╱53╱S╱ // 0x2474 @0x37
0x243d…247b at0038 = ╱56╱V╱ // 0x2475 @0x38
0x243d…247b at0039 = ╱41╱A╱ // 0x2476 @0x39
0x243d…247b at003a = ╱52╱R╱ // 0x2477 @0x3a
0x243d…247b at003b = ╱31╱1╱ // 0x2478 @0x3b
0x243d…247b at003c = ╱ef╱$╱ // 0x2479 @0x3c
0x243d…247b at003d = EOL // 0x247a @0x3d
0x243d…247b }
0x247b…2488 b1df 3565 VARENR=B
0x247b…2488 LineComalBin {
0x247b…2488 ptr = 0xb1df // 0x247b @0x0
0x247b…2488 lno = 0x0ded // 0x247d @0x2
0x247b…2488 at0004 = ╱56╱V╱ // 0x247f @0x4
0x247b…2488 at0005 = ╱41╱A╱ // 0x2480 @0x5
0x247b…2488 at0006 = ╱52╱R╱ // 0x2481 @0x6
0x247b…2488 at0007 = ╱45╱E╱ // 0x2482 @0x7
0x247b…2488 at0008 = ╱4e╱N╱ // 0x2483 @0x8
0x247b…2488 at0009 = ╱52╱R╱ // 0x2484 @0x9
0x247b…2488 at000a = ╱dc╱=╱ // 0x2485 @0xa
0x247b…2488 at000b = ╱42╱B╱ // 0x2486 @0xb
0x247b…2488 at000c = EOL // 0x2487 @0xc
0x247b…2488 }
0x2488…248e b1e5 3570 ENDIF
0x2488…248e LineComalBin {
0x2488…248e ptr = 0xb1e5 // 0x2488 @0x0
0x2488…248e lno = 0x0df2 // 0x248a @0x2
0x2488…248e at0004 = ╱9b╱ ENDIF ╱ // 0x248c @0x4
0x2488…248e at0005 = EOL // 0x248d @0x5
0x2488…248e }
0x248e…249c b1f3 3575 UNTIL VARENR=B
0x248e…249c LineComalBin {
0x248e…249c ptr = 0xb1f3 // 0x248e @0x0
0x248e…249c lno = 0x0df7 // 0x2490 @0x2
0x248e…249c at0004 = ╱98╱ UNTIL ╱ // 0x2492 @0x4
0x248e…249c at0005 = ╱56╱V╱ // 0x2493 @0x5
0x248e…249c at0006 = ╱41╱A╱ // 0x2494 @0x6
0x248e…249c at0007 = ╱52╱R╱ // 0x2495 @0x7
0x248e…249c at0008 = ╱45╱E╱ // 0x2496 @0x8
0x248e…249c at0009 = ╱4e╱N╱ // 0x2497 @0x9
0x248e…249c at000a = ╱52╱R╱ // 0x2498 @0xa
0x248e…249c at000b = ╱dc╱=╱ // 0x2499 @0xb
0x248e…249c at000c = ╱42╱B╱ // 0x249a @0xc
0x248e…249c at000d = EOL // 0x249b @0xd
0x248e…249c }
0x249c…24ae b205 3580 WHEN "2","3","4"
0x249c…24ae LineComalBin {
0x249c…24ae ptr = 0xb205 // 0x249c @0x0
0x249c…24ae lno = 0x0dfc // 0x249e @0x2
0x249c…24ae at0004 = ╱a300╱ WHEN ╱ // 0x24a0 @0x4
0x249c…24ae at0006 = ╱22╱"╱ // 0x24a2 @0x6
0x249c…24ae at0007 = ╱32╱2╱ // 0x24a3 @0x7
0x249c…24ae at0008 = ╱22╱"╱ // 0x24a4 @0x8
0x249c…24ae at0009 = ╱ec╱,╱ // 0x24a5 @0x9
0x249c…24ae at000a = ╱22╱"╱ // 0x24a6 @0xa
0x249c…24ae at000b = ╱33╱3╱ // 0x24a7 @0xb
0x249c…24ae at000c = ╱22╱"╱ // 0x24a8 @0xc
0x249c…24ae at000d = ╱ec╱,╱ // 0x24a9 @0xd
0x249c…24ae at000e = ╱22╱"╱ // 0x24aa @0xe
0x249c…24ae at000f = ╱34╱4╱ // 0x24ab @0xf
0x249c…24ae at0010 = ╱22╱"╱ // 0x24ac @0x10
0x249c…24ae at0011 = EOL // 0x24ad @0x11
0x249c…24ae }
0x24ae…24b4 b20b 3590 REPEAT
0x24ae…24b4 LineComalBin {
0x24ae…24b4 ptr = 0xb20b // 0x24ae @0x0
0x24ae…24b4 lno = 0x0e06 // 0x24b0 @0x2
0x24ae…24b4 at0004 = ╱97╱ REPEAT ╱ // 0x24b2 @0x4
0x24ae…24b4 at0005 = EOL // 0x24b3 @0x5
0x24ae…24b4 }
0x24b4…24ba b211 3600 CLEAR
0x24b4…24ba LineComalBin {
0x24b4…24ba ptr = 0xb211 // 0x24b4 @0x0
0x24b4…24ba lno = 0x0e10 // 0x24b6 @0x2
0x24b4…24ba at0004 = ╱a0╱ CLEAR ╱ // 0x24b8 @0x4
0x24b4…24ba at0005 = EOL // 0x24b9 @0x5
0x24b4…24ba }
0x24ba…24c9 b220 3610 CURSOR 21,E
0x24ba…24c9 LineComalBin {
0x24ba…24c9 ptr = 0xb220 // 0x24ba @0x0
0x24ba…24c9 lno = 0x0e1a // 0x24bc @0x2
0x24ba…24c9 at0004 = ╱a1╱ CURSOR ╱ // 0x24be @0x4
0x24ba…24c9 at0005 = ╱32╱2╱ // 0x24bf @0x5
0x24ba…24c9 at0006 = ╱31╱1╱ // 0x24c0 @0x6
0x24ba…24c9 at0007 = ╱fe0000a805╱ // 0x24c1 @0x7
0x24ba…24c9 at000c = ╱ec╱,╱ // 0x24c6 @0xc
0x24ba…24c9 at000d = ╱45╱E╱ // 0x24c7 @0xd
0x24ba…24c9 at000e = EOL // 0x24c8 @0xe
0x24ba…24c9 }
0x24c9…24e7 b23e 3620 PRINT "Varevedligeholdelse. ";
0x24c9…24e7 LineComalBin {
0x24c9…24e7 ptr = 0xb23e // 0x24c9 @0x0
0x24c9…24e7 lno = 0x0e24 // 0x24cb @0x2
0x24c9…24e7 at0004 = ╱92╱ PRINT ╱ // 0x24cd @0x4
0x24c9…24e7 at0005 = ╱22╱"╱ // 0x24ce @0x5
0x24c9…24e7 at0006 = ╱56╱V╱ // 0x24cf @0x6
0x24c9…24e7 at0007 = ╱61╱a╱ // 0x24d0 @0x7
0x24c9…24e7 at0008 = ╱72╱r╱ // 0x24d1 @0x8
0x24c9…24e7 at0009 = ╱65╱e╱ // 0x24d2 @0x9
0x24c9…24e7 at000a = ╱76╱v╱ // 0x24d3 @0xa
0x24c9…24e7 at000b = ╱65╱e╱ // 0x24d4 @0xb
0x24c9…24e7 at000c = ╱64╱d╱ // 0x24d5 @0xc
0x24c9…24e7 at000d = ╱6c╱l╱ // 0x24d6 @0xd
0x24c9…24e7 at000e = ╱69╱i╱ // 0x24d7 @0xe
0x24c9…24e7 at000f = ╱67╱g╱ // 0x24d8 @0xf
0x24c9…24e7 at0010 = ╱65╱e╱ // 0x24d9 @0x10
0x24c9…24e7 at0011 = ╱68╱h╱ // 0x24da @0x11
0x24c9…24e7 at0012 = ╱6f╱o╱ // 0x24db @0x12
0x24c9…24e7 at0013 = ╱6c╱l╱ // 0x24dc @0x13
0x24c9…24e7 at0014 = ╱64╱d╱ // 0x24dd @0x14
0x24c9…24e7 at0015 = ╱65╱e╱ // 0x24de @0x15
0x24c9…24e7 at0016 = ╱6c╱l╱ // 0x24df @0x16
0x24c9…24e7 at0017 = ╱73╱s╱ // 0x24e0 @0x17
0x24c9…24e7 at0018 = ╱65╱e╱ // 0x24e1 @0x18
0x24c9…24e7 at0019 = ╱2e╱.╱ // 0x24e2 @0x19
0x24c9…24e7 at001a = ╱20╱…╱ // 0x24e3 @0x1a
0x24c9…24e7 at001b = ╱22╱"╱ // 0x24e4 @0x1b
0x24c9…24e7 at001c = ╱eb╱;╱ // 0x24e5 @0x1c
0x24c9…24e7 at001d = EOL // 0x24e6 @0x1d
0x24c9…24e7 }
0x24e7…24f4 b24b 3630 CASE SVAR$ OF
0x24e7…24f4 LineComalBin {
0x24e7…24f4 ptr = 0xb24b // 0x24e7 @0x0
0x24e7…24f4 lno = 0x0e2e // 0x24e9 @0x2
0x24e7…24f4 at0004 = ╱a200╱ CASE ╱ // 0x24eb @0x4
0x24e7…24f4 at0006 = ╱53╱S╱ // 0x24ed @0x6
0x24e7…24f4 at0007 = ╱56╱V╱ // 0x24ee @0x7
0x24e7…24f4 at0008 = ╱41╱A╱ // 0x24ef @0x8
0x24e7…24f4 at0009 = ╱52╱R╱ // 0x24f0 @0x9
0x24e7…24f4 at000a = ╱ef╱$╱ // 0x24f1 @0xa
0x24e7…24f4 at000b = ╱ba╱ OF ╱ // 0x24f2 @0xb
0x24e7…24f4 at000c = EOL // 0x24f3 @0xc
0x24e7…24f4 }
0x24f4…24fe b255 3640 WHEN "2"
0x24f4…24fe LineComalBin {
0x24f4…24fe ptr = 0xb255 // 0x24f4 @0x0
0x24f4…24fe lno = 0x0e38 // 0x24f6 @0x2
0x24f4…24fe at0004 = ╱a300╱ WHEN ╱ // 0x24f8 @0x4
0x24f4…24fe at0006 = ╱22╱"╱ // 0x24fa @0x6
0x24f4…24fe at0007 = ╱32╱2╱ // 0x24fb @0x7
0x24f4…24fe at0008 = ╱22╱"╱ // 0x24fc @0x8
0x24f4…24fe at0009 = EOL // 0x24fd @0x9
0x24f4…24fe }
0x24fe…2516 b26d 3650 PRINT "Ændring af vare."
0x24fe…2516 LineComalBin {
0x24fe…2516 ptr = 0xb26d // 0x24fe @0x0
0x24fe…2516 lno = 0x0e42 // 0x2500 @0x2
0x24fe…2516 at0004 = ╱92╱ PRINT ╱ // 0x2502 @0x4
0x24fe…2516 at0005 = ╱22╱"╱ // 0x2503 @0x5
0x24fe…2516 at0006 = ╱5b╱Æ╱ // 0x2504 @0x6
0x24fe…2516 at0007 = ╱6e╱n╱ // 0x2505 @0x7
0x24fe…2516 at0008 = ╱64╱d╱ // 0x2506 @0x8
0x24fe…2516 at0009 = ╱72╱r╱ // 0x2507 @0x9
0x24fe…2516 at000a = ╱69╱i╱ // 0x2508 @0xa
0x24fe…2516 at000b = ╱6e╱n╱ // 0x2509 @0xb
0x24fe…2516 at000c = ╱67╱g╱ // 0x250a @0xc
0x24fe…2516 at000d = ╱20╱…╱ // 0x250b @0xd
0x24fe…2516 at000e = ╱61╱a╱ // 0x250c @0xe
0x24fe…2516 at000f = ╱66╱f╱ // 0x250d @0xf
0x24fe…2516 at0010 = ╱20╱…╱ // 0x250e @0x10
0x24fe…2516 at0011 = ╱76╱v╱ // 0x250f @0x11
0x24fe…2516 at0012 = ╱61╱a╱ // 0x2510 @0x12
0x24fe…2516 at0013 = ╱72╱r╱ // 0x2511 @0x13
0x24fe…2516 at0014 = ╱65╱e╱ // 0x2512 @0x14
0x24fe…2516 at0015 = ╱2e╱.╱ // 0x2513 @0x15
0x24fe…2516 at0016 = ╱22╱"╱ // 0x2514 @0x16
0x24fe…2516 at0017 = EOL // 0x2515 @0x17
0x24fe…2516 }
0x2516…2520 b277 3660 WHEN "3"
0x2516…2520 LineComalBin {
0x2516…2520 ptr = 0xb277 // 0x2516 @0x0
0x2516…2520 lno = 0x0e4c // 0x2518 @0x2
0x2516…2520 at0004 = ╱a300╱ WHEN ╱ // 0x251a @0x4
0x2516…2520 at0006 = ╱22╱"╱ // 0x251c @0x6
0x2516…2520 at0007 = ╱33╱3╱ // 0x251d @0x7
0x2516…2520 at0008 = ╱22╱"╱ // 0x251e @0x8
0x2516…2520 at0009 = EOL // 0x251f @0x9
0x2516…2520 }
0x2520…2539 b290 3670 PRINT "Sletning af vare."
0x2520…2539 LineComalBin {
0x2520…2539 ptr = 0xb290 // 0x2520 @0x0
0x2520…2539 lno = 0x0e56 // 0x2522 @0x2
0x2520…2539 at0004 = ╱92╱ PRINT ╱ // 0x2524 @0x4
0x2520…2539 at0005 = ╱22╱"╱ // 0x2525 @0x5
0x2520…2539 at0006 = ╱53╱S╱ // 0x2526 @0x6
0x2520…2539 at0007 = ╱6c╱l╱ // 0x2527 @0x7
0x2520…2539 at0008 = ╱65╱e╱ // 0x2528 @0x8
0x2520…2539 at0009 = ╱74╱t╱ // 0x2529 @0x9
0x2520…2539 at000a = ╱6e╱n╱ // 0x252a @0xa
0x2520…2539 at000b = ╱69╱i╱ // 0x252b @0xb
0x2520…2539 at000c = ╱6e╱n╱ // 0x252c @0xc
0x2520…2539 at000d = ╱67╱g╱ // 0x252d @0xd
0x2520…2539 at000e = ╱20╱…╱ // 0x252e @0xe
0x2520…2539 at000f = ╱61╱a╱ // 0x252f @0xf
0x2520…2539 at0010 = ╱66╱f╱ // 0x2530 @0x10
0x2520…2539 at0011 = ╱20╱…╱ // 0x2531 @0x11
0x2520…2539 at0012 = ╱76╱v╱ // 0x2532 @0x12
0x2520…2539 at0013 = ╱61╱a╱ // 0x2533 @0x13
0x2520…2539 at0014 = ╱72╱r╱ // 0x2534 @0x14
0x2520…2539 at0015 = ╱65╱e╱ // 0x2535 @0x15
0x2520…2539 at0016 = ╱2e╱.╱ // 0x2536 @0x16
0x2520…2539 at0017 = ╱22╱"╱ // 0x2537 @0x17
0x2520…2539 at0018 = EOL // 0x2538 @0x18
0x2520…2539 }
0x2539…2543 b29a 3680 WHEN "4"
0x2539…2543 LineComalBin {
0x2539…2543 ptr = 0xb29a // 0x2539 @0x0
0x2539…2543 lno = 0x0e60 // 0x253b @0x2
0x2539…2543 at0004 = ╱a300╱ WHEN ╱ // 0x253d @0x4
0x2539…2543 at0006 = ╱22╱"╱ // 0x253f @0x6
0x2539…2543 at0007 = ╱34╱4╱ // 0x2540 @0x7
0x2539…2543 at0008 = ╱22╱"╱ // 0x2541 @0x8
0x2539…2543 at0009 = EOL // 0x2542 @0x9
0x2539…2543 }
0x2543…255c b2b3 3690 PRINT "Udskrift af vare."
0x2543…255c LineComalBin {
0x2543…255c ptr = 0xb2b3 // 0x2543 @0x0
0x2543…255c lno = 0x0e6a // 0x2545 @0x2
0x2543…255c at0004 = ╱92╱ PRINT ╱ // 0x2547 @0x4
0x2543…255c at0005 = ╱22╱"╱ // 0x2548 @0x5
0x2543…255c at0006 = ╱55╱U╱ // 0x2549 @0x6
0x2543…255c at0007 = ╱64╱d╱ // 0x254a @0x7
0x2543…255c at0008 = ╱73╱s╱ // 0x254b @0x8
0x2543…255c at0009 = ╱6b╱k╱ // 0x254c @0x9
0x2543…255c at000a = ╱72╱r╱ // 0x254d @0xa
0x2543…255c at000b = ╱69╱i╱ // 0x254e @0xb
0x2543…255c at000c = ╱66╱f╱ // 0x254f @0xc
0x2543…255c at000d = ╱74╱t╱ // 0x2550 @0xd
0x2543…255c at000e = ╱20╱…╱ // 0x2551 @0xe
0x2543…255c at000f = ╱61╱a╱ // 0x2552 @0xf
0x2543…255c at0010 = ╱66╱f╱ // 0x2553 @0x10
0x2543…255c at0011 = ╱20╱…╱ // 0x2554 @0x11
0x2543…255c at0012 = ╱76╱v╱ // 0x2555 @0x12
0x2543…255c at0013 = ╱61╱a╱ // 0x2556 @0x13
0x2543…255c at0014 = ╱72╱r╱ // 0x2557 @0x14
0x2543…255c at0015 = ╱65╱e╱ // 0x2558 @0x15
0x2543…255c at0016 = ╱2e╱.╱ // 0x2559 @0x16
0x2543…255c at0017 = ╱22╱"╱ // 0x255a @0x17
0x2543…255c at0018 = EOL // 0x255b @0x18
0x2543…255c }
0x255c…2562 b2b9 3700 ENDCASE
0x255c…2562 LineComalBin {
0x255c…2562 ptr = 0xb2b9 // 0x255c @0x0
0x255c…2562 lno = 0x0e74 // 0x255e @0x2
0x255c…2562 at0004 = ╱a4╱ ENDCASE ╱ // 0x2560 @0x4
0x255c…2562 at0005 = EOL // 0x2561 @0x5
0x255c…2562 }
0x2562…2568 b2bf 3710 REPEAT
0x2562…2568 LineComalBin {
0x2562…2568 ptr = 0xb2bf // 0x2562 @0x0
0x2562…2568 lno = 0x0e7e // 0x2564 @0x2
0x2562…2568 at0004 = ╱97╱ REPEAT ╱ // 0x2566 @0x4
0x2562…2568 at0005 = EOL // 0x2567 @0x5
0x2562…2568 }
0x2568…257c b2d3 3720 CURSOR 11,4
0x2568…257c LineComalBin {
0x2568…257c ptr = 0xb2d3 // 0x2568 @0x0
0x2568…257c lno = 0x0e88 // 0x256a @0x2
0x2568…257c at0004 = ╱a1╱ CURSOR ╱ // 0x256c @0x4
0x2568…257c at0005 = ╱31╱1╱ // 0x256d @0x5
0x2568…257c at0006 = ╱31╱1╱ // 0x256e @0x6
0x2568…257c at0007 = ╱fe0000b004╱ // 0x256f @0x7
0x2568…257c at000c = ╱ec╱,╱ // 0x2574 @0xc
0x2568…257c at000d = ╱34╱4╱ // 0x2575 @0xd
0x2568…257c at000e = ╱fe00008003╱ // 0x2576 @0xe
0x2568…257c at0013 = EOL // 0x257b @0x13
0x2568…257c }
0x257c…2588 b2df 3730 PRINT BLANK$
0x257c…2588 LineComalBin {
0x257c…2588 ptr = 0xb2df // 0x257c @0x0
0x257c…2588 lno = 0x0e92 // 0x257e @0x2
0x257c…2588 at0004 = ╱92╱ PRINT ╱ // 0x2580 @0x4
0x257c…2588 at0005 = ╱42╱B╱ // 0x2581 @0x5
0x257c…2588 at0006 = ╱4c╱L╱ // 0x2582 @0x6
0x257c…2588 at0007 = ╱41╱A╱ // 0x2583 @0x7
0x257c…2588 at0008 = ╱4e╱N╱ // 0x2584 @0x8
0x257c…2588 at0009 = ╱4b╱K╱ // 0x2585 @0x9
0x257c…2588 at000a = ╱ef╱$╱ // 0x2586 @0xa
0x257c…2588 at000b = EOL // 0x2587 @0xb
0x257c…2588 }
0x2588…259c b2f3 3740 CURSOR 11,4
0x2588…259c LineComalBin {
0x2588…259c ptr = 0xb2f3 // 0x2588 @0x0
0x2588…259c lno = 0x0e9c // 0x258a @0x2
0x2588…259c at0004 = ╱a1╱ CURSOR ╱ // 0x258c @0x4
0x2588…259c at0005 = ╱31╱1╱ // 0x258d @0x5
0x2588…259c at0006 = ╱31╱1╱ // 0x258e @0x6
0x2588…259c at0007 = ╱fe0000b004╱ // 0x258f @0x7
0x2588…259c at000c = ╱ec╱,╱ // 0x2594 @0xc
0x2588…259c at000d = ╱34╱4╱ // 0x2595 @0xd
0x2588…259c at000e = ╱fe00008003╱ // 0x2596 @0xe
0x2588…259c at0013 = EOL // 0x259b @0x13
0x2588…259c }
0x259c…25c3 b31a 3750 INPUT "Varenummer, 0 for færdig:",TAL1$
0x259c…25c3 LineComalBin {
0x259c…25c3 ptr = 0xb31a // 0x259c @0x0
0x259c…25c3 lno = 0x0ea6 // 0x259e @0x2
0x259c…25c3 at0004 = ╱91╱ INPUT ╱ // 0x25a0 @0x4
0x259c…25c3 at0005 = ╱22╱"╱ // 0x25a1 @0x5
0x259c…25c3 at0006 = ╱56╱V╱ // 0x25a2 @0x6
0x259c…25c3 at0007 = ╱61╱a╱ // 0x25a3 @0x7
0x259c…25c3 at0008 = ╱72╱r╱ // 0x25a4 @0x8
0x259c…25c3 at0009 = ╱65╱e╱ // 0x25a5 @0x9
0x259c…25c3 at000a = ╱6e╱n╱ // 0x25a6 @0xa
0x259c…25c3 at000b = ╱75╱u╱ // 0x25a7 @0xb
0x259c…25c3 at000c = ╱6d╱m╱ // 0x25a8 @0xc
0x259c…25c3 at000d = ╱6d╱m╱ // 0x25a9 @0xd
0x259c…25c3 at000e = ╱65╱e╱ // 0x25aa @0xe
0x259c…25c3 at000f = ╱72╱r╱ // 0x25ab @0xf
0x259c…25c3 at0010 = ╱2c╱,╱ // 0x25ac @0x10
0x259c…25c3 at0011 = ╱20╱…╱ // 0x25ad @0x11
0x259c…25c3 at0012 = ╱30╱0╱ // 0x25ae @0x12
0x259c…25c3 at0013 = ╱20╱…╱ // 0x25af @0x13
0x259c…25c3 at0014 = ╱66╱f╱ // 0x25b0 @0x14
0x259c…25c3 at0015 = ╱6f╱o╱ // 0x25b1 @0x15
0x259c…25c3 at0016 = ╱72╱r╱ // 0x25b2 @0x16
0x259c…25c3 at0017 = ╱20╱…╱ // 0x25b3 @0x17
0x259c…25c3 at0018 = ╱66╱f╱ // 0x25b4 @0x18
0x259c…25c3 at0019 = ╱7b╱æ╱ // 0x25b5 @0x19
0x259c…25c3 at001a = ╱72╱r╱ // 0x25b6 @0x1a
0x259c…25c3 at001b = ╱64╱d╱ // 0x25b7 @0x1b
0x259c…25c3 at001c = ╱69╱i╱ // 0x25b8 @0x1c
0x259c…25c3 at001d = ╱67╱g╱ // 0x25b9 @0x1d
0x259c…25c3 at001e = ╱3a╱:╱ // 0x25ba @0x1e
0x259c…25c3 at001f = ╱22╱"╱ // 0x25bb @0x1f
0x259c…25c3 at0020 = ╱ec╱,╱ // 0x25bc @0x20
0x259c…25c3 at0021 = ╱54╱T╱ // 0x25bd @0x21
0x259c…25c3 at0022 = ╱41╱A╱ // 0x25be @0x22
0x259c…25c3 at0023 = ╱4c╱L╱ // 0x25bf @0x23
0x259c…25c3 at0024 = ╱31╱1╱ // 0x25c0 @0x24
0x259c…25c3 at0025 = ╱ef╱$╱ // 0x25c1 @0x25
0x259c…25c3 at0026 = EOL // 0x25c2 @0x26
0x259c…25c3 }
0x25c3…25d6 b32d 3760 EXEC NRTEST(TAL1$)
0x25c3…25d6 LineComalBin {
0x25c3…25d6 ptr = 0xb32d // 0x25c3 @0x0
0x25c3…25d6 lno = 0x0eb0 // 0x25c5 @0x2
0x25c3…25d6 at0004 = ╱9d╱ EXEC ╱ // 0x25c7 @0x4
0x25c3…25d6 at0005 = ╱4e╱N╱ // 0x25c8 @0x5
0x25c3…25d6 at0006 = ╱52╱R╱ // 0x25c9 @0x6
0x25c3…25d6 at0007 = ╱54╱T╱ // 0x25ca @0x7
0x25c3…25d6 at0008 = ╱45╱E╱ // 0x25cb @0x8
0x25c3…25d6 at0009 = ╱53╱S╱ // 0x25cc @0x9
0x25c3…25d6 at000a = ╱54╱T╱ // 0x25cd @0xa
0x25c3…25d6 at000b = ╱ed╱(╱ // 0x25ce @0xb
0x25c3…25d6 at000c = ╱54╱T╱ // 0x25cf @0xc
0x25c3…25d6 at000d = ╱41╱A╱ // 0x25d0 @0xd
0x25c3…25d6 at000e = ╱4c╱L╱ // 0x25d1 @0xe
0x25c3…25d6 at000f = ╱31╱1╱ // 0x25d2 @0xf
0x25c3…25d6 at0010 = ╱ef╱$╱ // 0x25d3 @0x10
0x25c3…25d6 at0011 = ╱ee╱)╱ // 0x25d4 @0x11
0x25c3…25d6 at0012 = EOL // 0x25d5 @0x12
0x25c3…25d6 }
0x25d6…2600 b357 3770 UNTIL (P>4 AND P<=999999 OR P=B) AND TEST2=B
0x25d6…2600 LineComalBin {
0x25d6…2600 ptr = 0xb357 // 0x25d6 @0x0
0x25d6…2600 lno = 0x0eba // 0x25d8 @0x2
0x25d6…2600 at0004 = ╱98╱ UNTIL ╱ // 0x25da @0x4
0x25d6…2600 at0005 = ╱ed╱(╱ // 0x25db @0x5
0x25d6…2600 at0006 = ╱50╱P╱ // 0x25dc @0x6
0x25d6…2600 at0007 = ╱de╱>╱ // 0x25dd @0x7
0x25d6…2600 at0008 = ╱34╱4╱ // 0x25de @0x8
0x25d6…2600 at0009 = ╱fe00008003╱ // 0x25df @0x9
0x25d6…2600 at000e = ╱da╱ AND ╱ // 0x25e4 @0xe
0x25d6…2600 at000f = ╱50╱P╱ // 0x25e5 @0xf
0x25d6…2600 at0010 = ╱df╱<=╱ // 0x25e6 @0x10
0x25d6…2600 at0011 = ╱39╱9╱ // 0x25e7 @0x11
0x25d6…2600 at0012 = ╱39╱9╱ // 0x25e8 @0x12
0x25d6…2600 at0013 = ╱39╱9╱ // 0x25e9 @0x13
0x25d6…2600 at0014 = ╱39╱9╱ // 0x25ea @0x14
0x25d6…2600 at0015 = ╱39╱9╱ // 0x25eb @0x15
0x25d6…2600 at0016 = ╱39╱9╱ // 0x25ec @0x16
0x25d6…2600 at0017 = ╱fef023f414╱ // 0x25ed @0x17
0x25d6…2600 at001c = ╱db╱ OR ╱ // 0x25f2 @0x1c
0x25d6…2600 at001d = ╱50╱P╱ // 0x25f3 @0x1d
0x25d6…2600 at001e = ╱dc╱=╱ // 0x25f4 @0x1e
0x25d6…2600 at001f = ╱42╱B╱ // 0x25f5 @0x1f
0x25d6…2600 at0020 = ╱ee╱)╱ // 0x25f6 @0x20
0x25d6…2600 at0021 = ╱da╱ AND ╱ // 0x25f7 @0x21
0x25d6…2600 at0022 = ╱54╱T╱ // 0x25f8 @0x22
0x25d6…2600 at0023 = ╱45╱E╱ // 0x25f9 @0x23
0x25d6…2600 at0024 = ╱53╱S╱ // 0x25fa @0x24
0x25d6…2600 at0025 = ╱54╱T╱ // 0x25fb @0x25
0x25d6…2600 at0026 = ╱32╱2╱ // 0x25fc @0x26
0x25d6…2600 at0027 = ╱dc╱=╱ // 0x25fd @0x27
0x25d6…2600 at0028 = ╱42╱B╱ // 0x25fe @0x28
0x25d6…2600 at0029 = EOL // 0x25ff @0x29
0x25d6…2600 }
0x2600…260d b364 3780 VARENR=P
0x2600…260d LineComalBin {
0x2600…260d ptr = 0xb364 // 0x2600 @0x0
0x2600…260d lno = 0x0ec4 // 0x2602 @0x2
0x2600…260d at0004 = ╱56╱V╱ // 0x2604 @0x4
0x2600…260d at0005 = ╱41╱A╱ // 0x2605 @0x5
0x2600…260d at0006 = ╱52╱R╱ // 0x2606 @0x6
0x2600…260d at0007 = ╱45╱E╱ // 0x2607 @0x7
0x2600…260d at0008 = ╱4e╱N╱ // 0x2608 @0x8
0x2600…260d at0009 = ╱52╱R╱ // 0x2609 @0x9
0x2600…260d at000a = ╱dc╱=╱ // 0x260a @0xa
0x2600…260d at000b = ╱50╱P╱ // 0x260b @0xb
0x2600…260d at000c = EOL // 0x260c @0xc
0x2600…260d }
0x260d…2621 b378 3790 CURSOR 11,4
0x260d…2621 LineComalBin {
0x260d…2621 ptr = 0xb378 // 0x260d @0x0
0x260d…2621 lno = 0x0ece // 0x260f @0x2
0x260d…2621 at0004 = ╱a1╱ CURSOR ╱ // 0x2611 @0x4
0x260d…2621 at0005 = ╱31╱1╱ // 0x2612 @0x5
0x260d…2621 at0006 = ╱31╱1╱ // 0x2613 @0x6
0x260d…2621 at0007 = ╱fe0000b004╱ // 0x2614 @0x7
0x260d…2621 at000c = ╱ec╱,╱ // 0x2619 @0xc
0x260d…2621 at000d = ╱34╱4╱ // 0x261a @0xd
0x260d…2621 at000e = ╱fe00008003╱ // 0x261b @0xe
0x260d…2621 at0013 = EOL // 0x2620 @0x13
0x260d…2621 }
0x2621…2634 b38b 3800 PRINT BLANK$;BLANK$
0x2621…2634 LineComalBin {
0x2621…2634 ptr = 0xb38b // 0x2621 @0x0
0x2621…2634 lno = 0x0ed8 // 0x2623 @0x2
0x2621…2634 at0004 = ╱92╱ PRINT ╱ // 0x2625 @0x4
0x2621…2634 at0005 = ╱42╱B╱ // 0x2626 @0x5
0x2621…2634 at0006 = ╱4c╱L╱ // 0x2627 @0x6
0x2621…2634 at0007 = ╱41╱A╱ // 0x2628 @0x7
0x2621…2634 at0008 = ╱4e╱N╱ // 0x2629 @0x8
0x2621…2634 at0009 = ╱4b╱K╱ // 0x262a @0x9
0x2621…2634 at000a = ╱ef╱$╱ // 0x262b @0xa
0x2621…2634 at000b = ╱eb╱;╱ // 0x262c @0xb
0x2621…2634 at000c = ╱42╱B╱ // 0x262d @0xc
0x2621…2634 at000d = ╱4c╱L╱ // 0x262e @0xd
0x2621…2634 at000e = ╱41╱A╱ // 0x262f @0xe
0x2621…2634 at000f = ╱4e╱N╱ // 0x2630 @0xf
0x2621…2634 at0010 = ╱4b╱K╱ // 0x2631 @0x10
0x2621…2634 at0011 = ╱ef╱$╱ // 0x2632 @0x11
0x2621…2634 at0012 = EOL // 0x2633 @0x12
0x2621…2634 }
0x2634…2644 b39b 3810 IF VARENR=B THEN EXIT
0x2634…2644 LineComalBin {
0x2634…2644 ptr = 0xb39b // 0x2634 @0x0
0x2634…2644 lno = 0x0ee2 // 0x2636 @0x2
0x2634…2644 at0004 = ╱82╱ IF ╱ // 0x2638 @0x4
0x2634…2644 at0005 = ╱56╱V╱ // 0x2639 @0x5
0x2634…2644 at0006 = ╱41╱A╱ // 0x263a @0x6
0x2634…2644 at0007 = ╱52╱R╱ // 0x263b @0x7
0x2634…2644 at0008 = ╱45╱E╱ // 0x263c @0x8
0x2634…2644 at0009 = ╱4e╱N╱ // 0x263d @0x9
0x2634…2644 at000a = ╱52╱R╱ // 0x263e @0xa
0x2634…2644 at000b = ╱dc╱=╱ // 0x263f @0xb
0x2634…2644 at000c = ╱42╱B╱ // 0x2640 @0xc
0x2634…2644 at000d = ╱b6╱ THEN ╱ // 0x2641 @0xd
0x2634…2644 at000e = ╱99╱ EXIT ╱ // 0x2642 @0xe
0x2634…2644 at000f = EOL // 0x2643 @0xf
0x2634…2644 }
0x2644…2653 b3aa 3820 CURSOR E,24
0x2644…2653 LineComalBin {
0x2644…2653 ptr = 0xb3aa // 0x2644 @0x0
0x2644…2653 lno = 0x0eec // 0x2646 @0x2
0x2644…2653 at0004 = ╱a1╱ CURSOR ╱ // 0x2648 @0x4
0x2644…2653 at0005 = ╱45╱E╱ // 0x2649 @0x5
0x2644…2653 at0006 = ╱ec╱,╱ // 0x264a @0x6
0x2644…2653 at0007 = ╱32╱2╱ // 0x264b @0x7
0x2644…2653 at0008 = ╱34╱4╱ // 0x264c @0x8
0x2644…2653 at0009 = ╱fe0000c005╱ // 0x264d @0x9
0x2644…2653 at000e = EOL // 0x2652 @0xe
0x2644…2653 }
0x2653…267c b3d3 3830 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3)
0x2653…267c LineComalBin {
0x2653…267c ptr = 0xb3d3 // 0x2653 @0x0
0x2653…267c lno = 0x0ef6 // 0x2655 @0x2
0x2653…267c at0004 = ╱9d╱ EXEC ╱ // 0x2657 @0x4
0x2653…267c at0005 = ╱46╱F╱ // 0x2658 @0x5
0x2653…267c at0006 = ╱49╱I╱ // 0x2659 @0x6
0x2653…267c at0007 = ╱4e╱N╱ // 0x265a @0x7
0x2653…267c at0008 = ╱44╱D╱ // 0x265b @0x8
0x2653…267c at0009 = ╱50╱P╱ // 0x265c @0x9
0x2653…267c at000a = ╱4f╱O╱ // 0x265d @0xa
0x2653…267c at000b = ╱53╱S╱ // 0x265e @0xb
0x2653…267c at000c = ╱54╱T╱ // 0x265f @0xc
0x2653…267c at000d = ╱ed╱(╱ // 0x2660 @0xd
0x2653…267c at000e = ╱56╱V╱ // 0x2661 @0xe
0x2653…267c at000f = ╱54╱T╱ // 0x2662 @0xf
0x2653…267c at0010 = ╱41╱A╱ // 0x2663 @0x10
0x2653…267c at0011 = ╱42╱B╱ // 0x2664 @0x11
0x2653…267c at0012 = ╱ec╱,╱ // 0x2665 @0x12
0x2653…267c at0013 = ╱4d╱M╱ // 0x2666 @0x13
0x2653…267c at0014 = ╱56╱V╱ // 0x2667 @0x14
0x2653…267c at0015 = ╱41╱A╱ // 0x2668 @0x15
0x2653…267c at0016 = ╱4e╱N╱ // 0x2669 @0x16
0x2653…267c at0017 = ╱54╱T╱ // 0x266a @0x17
0x2653…267c at0018 = ╱41╱A╱ // 0x266b @0x18
0x2653…267c at0019 = ╱4c╱L╱ // 0x266c @0x19
0x2653…267c at001a = ╱ec╱,╱ // 0x266d @0x1a
0x2653…267c at001b = ╱56╱V╱ // 0x266e @0x1b
0x2653…267c at001c = ╱41╱A╱ // 0x266f @0x1c
0x2653…267c at001d = ╱52╱R╱ // 0x2670 @0x1d
0x2653…267c at001e = ╱45╱E╱ // 0x2671 @0x1e
0x2653…267c at001f = ╱4e╱N╱ // 0x2672 @0x1f
0x2653…267c at0020 = ╱52╱R╱ // 0x2673 @0x20
0x2653…267c at0021 = ╱ec╱,╱ // 0x2674 @0x21
0x2653…267c at0022 = ╱56╱V╱ // 0x2675 @0x22
0x2653…267c at0023 = ╱50╱P╱ // 0x2676 @0x23
0x2653…267c at0024 = ╱49╱I╱ // 0x2677 @0x24
0x2653…267c at0025 = ╱4c╱L╱ // 0x2678 @0x25
0x2653…267c at0026 = ╱33╱3╱ // 0x2679 @0x26
0x2653…267c at0027 = ╱ee╱)╱ // 0x267a @0x27
0x2653…267c at0028 = EOL // 0x267b @0x28
0x2653…267c }
0x267c…2689 b3e0 3840 IF CEKS=B THEN
0x267c…2689 LineComalBin {
0x267c…2689 ptr = 0xb3e0 // 0x267c @0x0
0x267c…2689 lno = 0x0f00 // 0x267e @0x2
0x267c…2689 at0004 = ╱9c╱ IF ╱ // 0x2680 @0x4
0x267c…2689 at0005 = ╱43╱C╱ // 0x2681 @0x5
0x267c…2689 at0006 = ╱45╱E╱ // 0x2682 @0x6
0x267c…2689 at0007 = ╱4b╱K╱ // 0x2683 @0x7
0x267c…2689 at0008 = ╱53╱S╱ // 0x2684 @0x8
0x267c…2689 at0009 = ╱dc╱=╱ // 0x2685 @0x9
0x267c…2689 at000a = ╱42╱B╱ // 0x2686 @0xa
0x267c…2689 at000b = ╱b6╱ THEN ╱ // 0x2687 @0xb
0x267c…2689 at000c = EOL // 0x2688 @0xc
0x267c…2689 }
0x2689…2697 b3ee 3850 EXEC VARELTEK
0x2689…2697 LineComalBin {
0x2689…2697 ptr = 0xb3ee // 0x2689 @0x0
0x2689…2697 lno = 0x0f0a // 0x268b @0x2
0x2689…2697 at0004 = ╱9d╱ EXEC ╱ // 0x268d @0x4
0x2689…2697 at0005 = ╱56╱V╱ // 0x268e @0x5
0x2689…2697 at0006 = ╱41╱A╱ // 0x268f @0x6
0x2689…2697 at0007 = ╱52╱R╱ // 0x2690 @0x7
0x2689…2697 at0008 = ╱45╱E╱ // 0x2691 @0x8
0x2689…2697 at0009 = ╱4c╱L╱ // 0x2692 @0x9
0x2689…2697 at000a = ╱54╱T╱ // 0x2693 @0xa
0x2689…2697 at000b = ╱45╱E╱ // 0x2694 @0xb
0x2689…2697 at000c = ╱4b╱K╱ // 0x2695 @0xc
0x2689…2697 at000d = EOL // 0x2696 @0xd
0x2689…2697 }
0x2697…26a6 b3fd 3855 EXEC HENTVPOST
0x2697…26a6 LineComalBin {
0x2697…26a6 ptr = 0xb3fd // 0x2697 @0x0
0x2697…26a6 lno = 0x0f0f // 0x2699 @0x2
0x2697…26a6 at0004 = ╱9d╱ EXEC ╱ // 0x269b @0x4
0x2697…26a6 at0005 = ╱48╱H╱ // 0x269c @0x5
0x2697…26a6 at0006 = ╱45╱E╱ // 0x269d @0x6
0x2697…26a6 at0007 = ╱4e╱N╱ // 0x269e @0x7
0x2697…26a6 at0008 = ╱54╱T╱ // 0x269f @0x8
0x2697…26a6 at0009 = ╱56╱V╱ // 0x26a0 @0x9
0x2697…26a6 at000a = ╱50╱P╱ // 0x26a1 @0xa
0x2697…26a6 at000b = ╱4f╱O╱ // 0x26a2 @0xb
0x2697…26a6 at000c = ╱53╱S╱ // 0x26a3 @0xc
0x2697…26a6 at000d = ╱54╱T╱ // 0x26a4 @0xd
0x2697…26a6 at000e = EOL // 0x26a5 @0xe
0x2697…26a6 }
0x26a6…26b3 b40a 3860 EXEC VALINUD
0x26a6…26b3 LineComalBin {
0x26a6…26b3 ptr = 0xb40a // 0x26a6 @0x0
0x26a6…26b3 lno = 0x0f14 // 0x26a8 @0x2
0x26a6…26b3 at0004 = ╱9d╱ EXEC ╱ // 0x26aa @0x4
0x26a6…26b3 at0005 = ╱56╱V╱ // 0x26ab @0x5
0x26a6…26b3 at0006 = ╱41╱A╱ // 0x26ac @0x6
0x26a6…26b3 at0007 = ╱4c╱L╱ // 0x26ad @0x7
0x26a6…26b3 at0008 = ╱49╱I╱ // 0x26ae @0x8
0x26a6…26b3 at0009 = ╱4e╱N╱ // 0x26af @0x9
0x26a6…26b3 at000a = ╱55╱U╱ // 0x26b0 @0xa
0x26a6…26b3 at000b = ╱44╱D╱ // 0x26b1 @0xb
0x26a6…26b3 at000c = EOL // 0x26b2 @0xc
0x26a6…26b3 }
0x26b3…26c0 b417 3870 CASE SVAR$ OF
0x26b3…26c0 LineComalBin {
0x26b3…26c0 ptr = 0xb417 // 0x26b3 @0x0
0x26b3…26c0 lno = 0x0f1e // 0x26b5 @0x2
0x26b3…26c0 at0004 = ╱a200╱ CASE ╱ // 0x26b7 @0x4
0x26b3…26c0 at0006 = ╱53╱S╱ // 0x26b9 @0x6
0x26b3…26c0 at0007 = ╱56╱V╱ // 0x26ba @0x7
0x26b3…26c0 at0008 = ╱41╱A╱ // 0x26bb @0x8
0x26b3…26c0 at0009 = ╱52╱R╱ // 0x26bc @0x9
0x26b3…26c0 at000a = ╱ef╱$╱ // 0x26bd @0xa
0x26b3…26c0 at000b = ╱ba╱ OF ╱ // 0x26be @0xb
0x26b3…26c0 at000c = EOL // 0x26bf @0xc
0x26b3…26c0 }
0x26c0…26ca b421 3880 WHEN "2"
0x26c0…26ca LineComalBin {
0x26c0…26ca ptr = 0xb421 // 0x26c0 @0x0
0x26c0…26ca lno = 0x0f28 // 0x26c2 @0x2
0x26c0…26ca at0004 = ╱a300╱ WHEN ╱ // 0x26c4 @0x4
0x26c0…26ca at0006 = ╱22╱"╱ // 0x26c6 @0x6
0x26c0…26ca at0007 = ╱32╱2╱ // 0x26c7 @0x7
0x26c0…26ca at0008 = ╱22╱"╱ // 0x26c8 @0x8
0x26c0…26ca at0009 = EOL // 0x26c9 @0x9
0x26c0…26ca }
0x26ca…26db b432 3890 LINIE=7
0x26ca…26db LineComalBin {
0x26ca…26db ptr = 0xb432 // 0x26ca @0x0
0x26ca…26db lno = 0x0f32 // 0x26cc @0x2
0x26ca…26db at0004 = ╱4c╱L╱ // 0x26ce @0x4
0x26ca…26db at0005 = ╱49╱I╱ // 0x26cf @0x5
0x26ca…26db at0006 = ╱4e╱N╱ // 0x26d0 @0x6
0x26ca…26db at0007 = ╱49╱I╱ // 0x26d1 @0x7
0x26ca…26db at0008 = ╱45╱E╱ // 0x26d2 @0x8
0x26ca…26db at0009 = ╱dc╱=╱ // 0x26d3 @0x9
0x26ca…26db at000a = ╱37╱7╱ // 0x26d4 @0xa
0x26ca…26db at000b = ╱fe0000e003╱ // 0x26d5 @0xb
0x26ca…26db at0010 = EOL // 0x26da @0x10
0x26ca…26db }
0x26db…26e8 b43f 3900 EXEC VAREÆND
0x26db…26e8 LineComalBin {
0x26db…26e8 ptr = 0xb43f // 0x26db @0x0
0x26db…26e8 lno = 0x0f3c // 0x26dd @0x2
0x26db…26e8 at0004 = ╱9d╱ EXEC ╱ // 0x26df @0x4
0x26db…26e8 at0005 = ╱56╱V╱ // 0x26e0 @0x5
0x26db…26e8 at0006 = ╱41╱A╱ // 0x26e1 @0x6
0x26db…26e8 at0007 = ╱52╱R╱ // 0x26e2 @0x7
0x26db…26e8 at0008 = ╱45╱E╱ // 0x26e3 @0x8
0x26db…26e8 at0009 = ╱5b╱Æ╱ // 0x26e4 @0x9
0x26db…26e8 at000a = ╱4e╱N╱ // 0x26e5 @0xa
0x26db…26e8 at000b = ╱44╱D╱ // 0x26e6 @0xb
0x26db…26e8 at000c = EOL // 0x26e7 @0xc
0x26db…26e8 }
0x26e8…26f7 b44e 3910 CURSOR E,24
0x26e8…26f7 LineComalBin {
0x26e8…26f7 ptr = 0xb44e // 0x26e8 @0x0
0x26e8…26f7 lno = 0x0f46 // 0x26ea @0x2
0x26e8…26f7 at0004 = ╱a1╱ CURSOR ╱ // 0x26ec @0x4
0x26e8…26f7 at0005 = ╱45╱E╱ // 0x26ed @0x5
0x26e8…26f7 at0006 = ╱ec╱,╱ // 0x26ee @0x6
0x26e8…26f7 at0007 = ╱32╱2╱ // 0x26ef @0x7
0x26e8…26f7 at0008 = ╱34╱4╱ // 0x26f0 @0x8
0x26e8…26f7 at0009 = ╱fe0000c005╱ // 0x26f1 @0x9
0x26e8…26f7 at000e = EOL // 0x26f6 @0xe
0x26e8…26f7 }
0x26f7…2705 b45c 3920 EXEC GEMVPOST
0x26f7…2705 LineComalBin {
0x26f7…2705 ptr = 0xb45c // 0x26f7 @0x0
0x26f7…2705 lno = 0x0f50 // 0x26f9 @0x2
0x26f7…2705 at0004 = ╱9d╱ EXEC ╱ // 0x26fb @0x4
0x26f7…2705 at0005 = ╱47╱G╱ // 0x26fc @0x5
0x26f7…2705 at0006 = ╱45╱E╱ // 0x26fd @0x6
0x26f7…2705 at0007 = ╱4d╱M╱ // 0x26fe @0x7
0x26f7…2705 at0008 = ╱56╱V╱ // 0x26ff @0x8
0x26f7…2705 at0009 = ╱50╱P╱ // 0x2700 @0x9
0x26f7…2705 at000a = ╱4f╱O╱ // 0x2701 @0xa
0x26f7…2705 at000b = ╱53╱S╱ // 0x2702 @0xb
0x26f7…2705 at000c = ╱54╱T╱ // 0x2703 @0xc
0x26f7…2705 at000d = EOL // 0x2704 @0xd
0x26f7…2705 }
0x2705…270f b466 3930 WHEN "3"
0x2705…270f LineComalBin {
0x2705…270f ptr = 0xb466 // 0x2705 @0x0
0x2705…270f lno = 0x0f5a // 0x2707 @0x2
0x2705…270f at0004 = ╱a300╱ WHEN ╱ // 0x2709 @0x4
0x2705…270f at0006 = ╱22╱"╱ // 0x270b @0x6
0x2705…270f at0007 = ╱33╱3╱ // 0x270c @0x7
0x2705…270f at0008 = ╱22╱"╱ // 0x270d @0x8
0x2705…270f at0009 = EOL // 0x270e @0x9
0x2705…270f }
0x270f…2722 b479 3940 IF T2(4)>B THEN
0x270f…2722 LineComalBin {
0x270f…2722 ptr = 0xb479 // 0x270f @0x0
0x270f…2722 lno = 0x0f64 // 0x2711 @0x2
0x270f…2722 at0004 = ╱9c╱ IF ╱ // 0x2713 @0x4
0x270f…2722 at0005 = ╱54╱T╱ // 0x2714 @0x5
0x270f…2722 at0006 = ╱32╱2╱ // 0x2715 @0x6
0x270f…2722 at0007 = ╱ed╱(╱ // 0x2716 @0x7
0x270f…2722 at0008 = ╱34╱4╱ // 0x2717 @0x8
0x270f…2722 at0009 = ╱fe00008003╱ // 0x2718 @0x9
0x270f…2722 at000e = ╱ee╱)╱ // 0x271d @0xe
0x270f…2722 at000f = ╱de╱>╱ // 0x271e @0xf
0x270f…2722 at0010 = ╱42╱B╱ // 0x271f @0x10
0x270f…2722 at0011 = ╱b6╱ THEN ╱ // 0x2720 @0x11
0x270f…2722 at0012 = EOL // 0x2721 @0x12
0x270f…2722 }
0x2722…2737 b48e 3950 CURSOR 16,11
0x2722…2737 LineComalBin {
0x2722…2737 ptr = 0xb48e // 0x2722 @0x0
0x2722…2737 lno = 0x0f6e // 0x2724 @0x2
0x2722…2737 at0004 = ╱a1╱ CURSOR ╱ // 0x2726 @0x4
0x2722…2737 at0005 = ╱31╱1╱ // 0x2727 @0x5
0x2722…2737 at0006 = ╱36╱6╱ // 0x2728 @0x6
0x2722…2737 at0007 = ╱fe00008005╱ // 0x2729 @0x7
0x2722…2737 at000c = ╱ec╱,╱ // 0x272e @0xc
0x2722…2737 at000d = ╱31╱1╱ // 0x272f @0xd
0x2722…2737 at000e = ╱31╱1╱ // 0x2730 @0xe
0x2722…2737 at000f = ╱fe0000b004╱ // 0x2731 @0xf
0x2722…2737 at0014 = EOL // 0x2736 @0x14
0x2722…2737 }
0x2737…275c b4b3 3960 PRINT "Der er fakturaer til udskrift"
0x2737…275c LineComalBin {
0x2737…275c ptr = 0xb4b3 // 0x2737 @0x0
0x2737…275c lno = 0x0f78 // 0x2739 @0x2
0x2737…275c at0004 = ╱92╱ PRINT ╱ // 0x273b @0x4
0x2737…275c at0005 = ╱22╱"╱ // 0x273c @0x5
0x2737…275c at0006 = ╱44╱D╱ // 0x273d @0x6
0x2737…275c at0007 = ╱65╱e╱ // 0x273e @0x7
0x2737…275c at0008 = ╱72╱r╱ // 0x273f @0x8
0x2737…275c at0009 = ╱20╱…╱ // 0x2740 @0x9
0x2737…275c at000a = ╱65╱e╱ // 0x2741 @0xa
0x2737…275c at000b = ╱72╱r╱ // 0x2742 @0xb
0x2737…275c at000c = ╱20╱…╱ // 0x2743 @0xc
0x2737…275c at000d = ╱66╱f╱ // 0x2744 @0xd
0x2737…275c at000e = ╱61╱a╱ // 0x2745 @0xe
0x2737…275c at000f = ╱6b╱k╱ // 0x2746 @0xf
0x2737…275c at0010 = ╱74╱t╱ // 0x2747 @0x10
0x2737…275c at0011 = ╱75╱u╱ // 0x2748 @0x11
0x2737…275c at0012 = ╱72╱r╱ // 0x2749 @0x12
0x2737…275c at0013 = ╱61╱a╱ // 0x274a @0x13
0x2737…275c at0014 = ╱65╱e╱ // 0x274b @0x14
0x2737…275c at0015 = ╱72╱r╱ // 0x274c @0x15
0x2737…275c at0016 = ╱20╱…╱ // 0x274d @0x16
0x2737…275c at0017 = ╱74╱t╱ // 0x274e @0x17
0x2737…275c at0018 = ╱69╱i╱ // 0x274f @0x18
0x2737…275c at0019 = ╱6c╱l╱ // 0x2750 @0x19
0x2737…275c at001a = ╱20╱…╱ // 0x2751 @0x1a
0x2737…275c at001b = ╱75╱u╱ // 0x2752 @0x1b
0x2737…275c at001c = ╱64╱d╱ // 0x2753 @0x1c
0x2737…275c at001d = ╱73╱s╱ // 0x2754 @0x1d
0x2737…275c at001e = ╱6b╱k╱ // 0x2755 @0x1e
0x2737…275c at001f = ╱72╱r╱ // 0x2756 @0x1f
0x2737…275c at0020 = ╱69╱i╱ // 0x2757 @0x20
0x2737…275c at0021 = ╱66╱f╱ // 0x2758 @0x21
0x2737…275c at0022 = ╱74╱t╱ // 0x2759 @0x22
0x2737…275c at0023 = ╱22╱"╱ // 0x275a @0x23
0x2737…275c at0024 = EOL // 0x275b @0x24
0x2737…275c }
0x275c…2771 b4c8 3970 CURSOR 16,13
0x275c…2771 LineComalBin {
0x275c…2771 ptr = 0xb4c8 // 0x275c @0x0
0x275c…2771 lno = 0x0f82 // 0x275e @0x2
0x275c…2771 at0004 = ╱a1╱ CURSOR ╱ // 0x2760 @0x4
0x275c…2771 at0005 = ╱31╱1╱ // 0x2761 @0x5
0x275c…2771 at0006 = ╱36╱6╱ // 0x2762 @0x6
0x275c…2771 at0007 = ╱fe00008005╱ // 0x2763 @0x7
0x275c…2771 at000c = ╱ec╱,╱ // 0x2768 @0xc
0x275c…2771 at000d = ╱31╱1╱ // 0x2769 @0xd
0x275c…2771 at000e = ╱33╱3╱ // 0x276a @0xe
0x275c…2771 at000f = ╱fe0000d004╱ // 0x276b @0xf
0x275c…2771 at0014 = EOL // 0x2770 @0x14
0x275c…2771 }
0x2771…27a8 b4ff 3980 INPUT "og ingen varer kan slettes. Tast RETURN.",SVAR1$
0x2771…27a8 LineComalBin {
0x2771…27a8 ptr = 0xb4ff // 0x2771 @0x0
0x2771…27a8 lno = 0x0f8c // 0x2773 @0x2
0x2771…27a8 at0004 = ╱91╱ INPUT ╱ // 0x2775 @0x4
0x2771…27a8 at0005 = ╱22╱"╱ // 0x2776 @0x5
0x2771…27a8 at0006 = ╱6f╱o╱ // 0x2777 @0x6
0x2771…27a8 at0007 = ╱67╱g╱ // 0x2778 @0x7
0x2771…27a8 at0008 = ╱20╱…╱ // 0x2779 @0x8
0x2771…27a8 at0009 = ╱69╱i╱ // 0x277a @0x9
0x2771…27a8 at000a = ╱6e╱n╱ // 0x277b @0xa
0x2771…27a8 at000b = ╱67╱g╱ // 0x277c @0xb
0x2771…27a8 at000c = ╱65╱e╱ // 0x277d @0xc
0x2771…27a8 at000d = ╱6e╱n╱ // 0x277e @0xd
0x2771…27a8 at000e = ╱20╱…╱ // 0x277f @0xe
0x2771…27a8 at000f = ╱76╱v╱ // 0x2780 @0xf
0x2771…27a8 at0010 = ╱61╱a╱ // 0x2781 @0x10
0x2771…27a8 at0011 = ╱72╱r╱ // 0x2782 @0x11
0x2771…27a8 at0012 = ╱65╱e╱ // 0x2783 @0x12
0x2771…27a8 at0013 = ╱72╱r╱ // 0x2784 @0x13
0x2771…27a8 at0014 = ╱20╱…╱ // 0x2785 @0x14
0x2771…27a8 at0015 = ╱6b╱k╱ // 0x2786 @0x15
0x2771…27a8 at0016 = ╱61╱a╱ // 0x2787 @0x16
0x2771…27a8 at0017 = ╱6e╱n╱ // 0x2788 @0x17
0x2771…27a8 at0018 = ╱20╱…╱ // 0x2789 @0x18
0x2771…27a8 at0019 = ╱73╱s╱ // 0x278a @0x19
0x2771…27a8 at001a = ╱6c╱l╱ // 0x278b @0x1a
0x2771…27a8 at001b = ╱65╱e╱ // 0x278c @0x1b
0x2771…27a8 at001c = ╱74╱t╱ // 0x278d @0x1c
0x2771…27a8 at001d = ╱74╱t╱ // 0x278e @0x1d
0x2771…27a8 at001e = ╱65╱e╱ // 0x278f @0x1e
0x2771…27a8 at001f = ╱73╱s╱ // 0x2790 @0x1f
0x2771…27a8 at0020 = ╱2e╱.╱ // 0x2791 @0x20
0x2771…27a8 at0021 = ╱20╱…╱ // 0x2792 @0x21
0x2771…27a8 at0022 = ╱54╱T╱ // 0x2793 @0x22
0x2771…27a8 at0023 = ╱61╱a╱ // 0x2794 @0x23
0x2771…27a8 at0024 = ╱73╱s╱ // 0x2795 @0x24
0x2771…27a8 at0025 = ╱74╱t╱ // 0x2796 @0x25
0x2771…27a8 at0026 = ╱20╱…╱ // 0x2797 @0x26
0x2771…27a8 at0027 = ╱52╱R╱ // 0x2798 @0x27
0x2771…27a8 at0028 = ╱45╱E╱ // 0x2799 @0x28
0x2771…27a8 at0029 = ╱54╱T╱ // 0x279a @0x29
0x2771…27a8 at002a = ╱55╱U╱ // 0x279b @0x2a
0x2771…27a8 at002b = ╱52╱R╱ // 0x279c @0x2b
0x2771…27a8 at002c = ╱4e╱N╱ // 0x279d @0x2c
0x2771…27a8 at002d = ╱2e╱.╱ // 0x279e @0x2d
0x2771…27a8 at002e = ╱22╱"╱ // 0x279f @0x2e
0x2771…27a8 at002f = ╱ec╱,╱ // 0x27a0 @0x2f
0x2771…27a8 at0030 = ╱53╱S╱ // 0x27a1 @0x30
0x2771…27a8 at0031 = ╱56╱V╱ // 0x27a2 @0x31
0x2771…27a8 at0032 = ╱41╱A╱ // 0x27a3 @0x32
0x2771…27a8 at0033 = ╱52╱R╱ // 0x27a4 @0x33
0x2771…27a8 at0034 = ╱31╱1╱ // 0x27a5 @0x34
0x2771…27a8 at0035 = ╱ef╱$╱ // 0x27a6 @0x35
0x2771…27a8 at0036 = EOL // 0x27a7 @0x36
0x2771…27a8 }
0x27a8…27b7 b50e 3990 SVAR1$="N"
0x27a8…27b7 LineComalBin {
0x27a8…27b7 ptr = 0xb50e // 0x27a8 @0x0
0x27a8…27b7 lno = 0x0f96 // 0x27aa @0x2
0x27a8…27b7 at0004 = ╱53╱S╱ // 0x27ac @0x4
0x27a8…27b7 at0005 = ╱56╱V╱ // 0x27ad @0x5
0x27a8…27b7 at0006 = ╱41╱A╱ // 0x27ae @0x6
0x27a8…27b7 at0007 = ╱52╱R╱ // 0x27af @0x7
0x27a8…27b7 at0008 = ╱31╱1╱ // 0x27b0 @0x8
0x27a8…27b7 at0009 = ╱ef╱$╱ // 0x27b1 @0x9
0x27a8…27b7 at000a = ╱dc╱=╱ // 0x27b2 @0xa
0x27a8…27b7 at000b = ╱22╱"╱ // 0x27b3 @0xb
0x27a8…27b7 at000c = ╱4e╱N╱ // 0x27b4 @0xc
0x27a8…27b7 at000d = ╱22╱"╱ // 0x27b5 @0xd
0x27a8…27b7 at000e = EOL // 0x27b6 @0xe
0x27a8…27b7 }
0x27b7…27bd b514 4000 ELSE
0x27b7…27bd LineComalBin {
0x27b7…27bd ptr = 0xb514 // 0x27b7 @0x0
0x27b7…27bd lno = 0x0fa0 // 0x27b9 @0x2
0x27b7…27bd at0004 = ╱9a╱ ELSE ╱ // 0x27bb @0x4
0x27b7…27bd at0005 = EOL // 0x27bc @0x5
0x27b7…27bd }
0x27bd…27c3 b51a 4010 REPEAT
0x27bd…27c3 LineComalBin {
0x27bd…27c3 ptr = 0xb51a // 0x27bd @0x0
0x27bd…27c3 lno = 0x0faa // 0x27bf @0x2
0x27bd…27c3 at0004 = ╱97╱ REPEAT ╱ // 0x27c1 @0x4
0x27bd…27c3 at0005 = EOL // 0x27c2 @0x5
0x27bd…27c3 }
0x27c3…27d8 b52f 4020 CURSOR 16,11
0x27c3…27d8 LineComalBin {
0x27c3…27d8 ptr = 0xb52f // 0x27c3 @0x0
0x27c3…27d8 lno = 0x0fb4 // 0x27c5 @0x2
0x27c3…27d8 at0004 = ╱a1╱ CURSOR ╱ // 0x27c7 @0x4
0x27c3…27d8 at0005 = ╱31╱1╱ // 0x27c8 @0x5
0x27c3…27d8 at0006 = ╱36╱6╱ // 0x27c9 @0x6
0x27c3…27d8 at0007 = ╱fe00008005╱ // 0x27ca @0x7
0x27c3…27d8 at000c = ╱ec╱,╱ // 0x27cf @0xc
0x27c3…27d8 at000d = ╱31╱1╱ // 0x27d0 @0xd
0x27c3…27d8 at000e = ╱31╱1╱ // 0x27d1 @0xe
0x27c3…27d8 at000f = ╱fe0000b004╱ // 0x27d2 @0xf
0x27c3…27d8 at0014 = EOL // 0x27d7 @0x14
0x27c3…27d8 }
0x27d8…2802 b559 4030 INPUT "Ønskes varen slettet (J/N):",SVAR1$
0x27d8…2802 LineComalBin {
0x27d8…2802 ptr = 0xb559 // 0x27d8 @0x0
0x27d8…2802 lno = 0x0fbe // 0x27da @0x2
0x27d8…2802 at0004 = ╱91╱ INPUT ╱ // 0x27dc @0x4
0x27d8…2802 at0005 = ╱22╱"╱ // 0x27dd @0x5
0x27d8…2802 at0006 = ╱5c╱Ø╱ // 0x27de @0x6
0x27d8…2802 at0007 = ╱6e╱n╱ // 0x27df @0x7
0x27d8…2802 at0008 = ╱73╱s╱ // 0x27e0 @0x8
0x27d8…2802 at0009 = ╱6b╱k╱ // 0x27e1 @0x9
0x27d8…2802 at000a = ╱65╱e╱ // 0x27e2 @0xa
0x27d8…2802 at000b = ╱73╱s╱ // 0x27e3 @0xb
0x27d8…2802 at000c = ╱20╱…╱ // 0x27e4 @0xc
0x27d8…2802 at000d = ╱76╱v╱ // 0x27e5 @0xd
0x27d8…2802 at000e = ╱61╱a╱ // 0x27e6 @0xe
0x27d8…2802 at000f = ╱72╱r╱ // 0x27e7 @0xf
0x27d8…2802 at0010 = ╱65╱e╱ // 0x27e8 @0x10
0x27d8…2802 at0011 = ╱6e╱n╱ // 0x27e9 @0x11
0x27d8…2802 at0012 = ╱20╱…╱ // 0x27ea @0x12
0x27d8…2802 at0013 = ╱73╱s╱ // 0x27eb @0x13
0x27d8…2802 at0014 = ╱6c╱l╱ // 0x27ec @0x14
0x27d8…2802 at0015 = ╱65╱e╱ // 0x27ed @0x15
0x27d8…2802 at0016 = ╱74╱t╱ // 0x27ee @0x16
0x27d8…2802 at0017 = ╱74╱t╱ // 0x27ef @0x17
0x27d8…2802 at0018 = ╱65╱e╱ // 0x27f0 @0x18
0x27d8…2802 at0019 = ╱74╱t╱ // 0x27f1 @0x19
0x27d8…2802 at001a = ╱20╱…╱ // 0x27f2 @0x1a
0x27d8…2802 at001b = ╱28╱(╱ // 0x27f3 @0x1b
0x27d8…2802 at001c = ╱4a╱J╱ // 0x27f4 @0x1c
0x27d8…2802 at001d = ╱2f╱/╱ // 0x27f5 @0x1d
0x27d8…2802 at001e = ╱4e╱N╱ // 0x27f6 @0x1e
0x27d8…2802 at001f = ╱29╱)╱ // 0x27f7 @0x1f
0x27d8…2802 at0020 = ╱3a╱:╱ // 0x27f8 @0x20
0x27d8…2802 at0021 = ╱22╱"╱ // 0x27f9 @0x21
0x27d8…2802 at0022 = ╱ec╱,╱ // 0x27fa @0x22
0x27d8…2802 at0023 = ╱53╱S╱ // 0x27fb @0x23
0x27d8…2802 at0024 = ╱56╱V╱ // 0x27fc @0x24
0x27d8…2802 at0025 = ╱41╱A╱ // 0x27fd @0x25
0x27d8…2802 at0026 = ╱52╱R╱ // 0x27fe @0x26
0x27d8…2802 at0027 = ╱31╱1╱ // 0x27ff @0x27
0x27d8…2802 at0028 = ╱ef╱$╱ // 0x2800 @0x28
0x27d8…2802 at0029 = EOL // 0x2801 @0x29
0x27d8…2802 }
0x2802…281d b574 4040 UNTIL SVAR1$="J" OR SVAR1$="N"
0x2802…281d LineComalBin {
0x2802…281d ptr = 0xb574 // 0x2802 @0x0
0x2802…281d lno = 0x0fc8 // 0x2804 @0x2
0x2802…281d at0004 = ╱98╱ UNTIL ╱ // 0x2806 @0x4
0x2802…281d at0005 = ╱53╱S╱ // 0x2807 @0x5
0x2802…281d at0006 = ╱56╱V╱ // 0x2808 @0x6
0x2802…281d at0007 = ╱41╱A╱ // 0x2809 @0x7
0x2802…281d at0008 = ╱52╱R╱ // 0x280a @0x8
0x2802…281d at0009 = ╱31╱1╱ // 0x280b @0x9
0x2802…281d at000a = ╱ef╱$╱ // 0x280c @0xa
0x2802…281d at000b = ╱dc╱=╱ // 0x280d @0xb
0x2802…281d at000c = ╱22╱"╱ // 0x280e @0xc
0x2802…281d at000d = ╱4a╱J╱ // 0x280f @0xd
0x2802…281d at000e = ╱22╱"╱ // 0x2810 @0xe
0x2802…281d at000f = ╱db╱ OR ╱ // 0x2811 @0xf
0x2802…281d at0010 = ╱53╱S╱ // 0x2812 @0x10
0x2802…281d at0011 = ╱56╱V╱ // 0x2813 @0x11
0x2802…281d at0012 = ╱41╱A╱ // 0x2814 @0x12
0x2802…281d at0013 = ╱52╱R╱ // 0x2815 @0x13
0x2802…281d at0014 = ╱31╱1╱ // 0x2816 @0x14
0x2802…281d at0015 = ╱ef╱$╱ // 0x2817 @0x15
0x2802…281d at0016 = ╱dc╱=╱ // 0x2818 @0x16
0x2802…281d at0017 = ╱22╱"╱ // 0x2819 @0x17
0x2802…281d at0018 = ╱4e╱N╱ // 0x281a @0x18
0x2802…281d at0019 = ╱22╱"╱ // 0x281b @0x19
0x2802…281d at001a = EOL // 0x281c @0x1a
0x2802…281d }
0x281d…2823 b57a 4050 ENDIF
0x281d…2823 LineComalBin {
0x281d…2823 ptr = 0xb57a // 0x281d @0x0
0x281d…2823 lno = 0x0fd2 // 0x281f @0x2
0x281d…2823 at0004 = ╱9b╱ ENDIF ╱ // 0x2821 @0x4
0x281d…2823 at0005 = EOL // 0x2822 @0x5
0x281d…2823 }
0x2823…2834 b58b 4060 IF SVAR1$="J" THEN
0x2823…2834 LineComalBin {
0x2823…2834 ptr = 0xb58b // 0x2823 @0x0
0x2823…2834 lno = 0x0fdc // 0x2825 @0x2
0x2823…2834 at0004 = ╱9c╱ IF ╱ // 0x2827 @0x4
0x2823…2834 at0005 = ╱53╱S╱ // 0x2828 @0x5
0x2823…2834 at0006 = ╱56╱V╱ // 0x2829 @0x6
0x2823…2834 at0007 = ╱41╱A╱ // 0x282a @0x7
0x2823…2834 at0008 = ╱52╱R╱ // 0x282b @0x8
0x2823…2834 at0009 = ╱31╱1╱ // 0x282c @0x9
0x2823…2834 at000a = ╱ef╱$╱ // 0x282d @0xa
0x2823…2834 at000b = ╱dc╱=╱ // 0x282e @0xb
0x2823…2834 at000c = ╱22╱"╱ // 0x282f @0xc
0x2823…2834 at000d = ╱4a╱J╱ // 0x2830 @0xd
0x2823…2834 at000e = ╱22╱"╱ // 0x2831 @0xe
0x2823…2834 at000f = ╱b6╱ THEN ╱ // 0x2832 @0xf
0x2823…2834 at0010 = EOL // 0x2833 @0x10
0x2823…2834 }
0x2834…2843 b59a 4070 EXEC SLETVPOST
0x2834…2843 LineComalBin {
0x2834…2843 ptr = 0xb59a // 0x2834 @0x0
0x2834…2843 lno = 0x0fe6 // 0x2836 @0x2
0x2834…2843 at0004 = ╱9d╱ EXEC ╱ // 0x2838 @0x4
0x2834…2843 at0005 = ╱53╱S╱ // 0x2839 @0x5
0x2834…2843 at0006 = ╱4c╱L╱ // 0x283a @0x6
0x2834…2843 at0007 = ╱45╱E╱ // 0x283b @0x7
0x2834…2843 at0008 = ╱54╱T╱ // 0x283c @0x8
0x2834…2843 at0009 = ╱56╱V╱ // 0x283d @0x9
0x2834…2843 at000a = ╱50╱P╱ // 0x283e @0xa
0x2834…2843 at000b = ╱4f╱O╱ // 0x283f @0xb
0x2834…2843 at000c = ╱53╱S╱ // 0x2840 @0xc
0x2834…2843 at000d = ╱54╱T╱ // 0x2841 @0xd
0x2834…2843 at000e = EOL // 0x2842 @0xe
0x2834…2843 }
0x2843…2858 b5af 4080 CURSOR 16,11
0x2843…2858 LineComalBin {
0x2843…2858 ptr = 0xb5af // 0x2843 @0x0
0x2843…2858 lno = 0x0ff0 // 0x2845 @0x2
0x2843…2858 at0004 = ╱a1╱ CURSOR ╱ // 0x2847 @0x4
0x2843…2858 at0005 = ╱31╱1╱ // 0x2848 @0x5
0x2843…2858 at0006 = ╱36╱6╱ // 0x2849 @0x6
0x2843…2858 at0007 = ╱fe00008005╱ // 0x284a @0x7
0x2843…2858 at000c = ╱ec╱,╱ // 0x284f @0xc
0x2843…2858 at000d = ╱31╱1╱ // 0x2850 @0xd
0x2843…2858 at000e = ╱31╱1╱ // 0x2851 @0xe
0x2843…2858 at000f = ╱fe0000b004╱ // 0x2852 @0xf
0x2843…2858 at0014 = EOL // 0x2857 @0x14
0x2843…2858 }
0x2858…2893 b5ea 4090 PRINT USING "Varenummer ####### er slettet. Tast RETURN.":VARENR
0x2858…2893 LineComalBin {
0x2858…2893 ptr = 0xb5ea // 0x2858 @0x0
0x2858…2893 lno = 0x0ffa // 0x285a @0x2
0x2858…2893 at0004 = ╱92╱ PRINT ╱ // 0x285c @0x4
0x2858…2893 at0005 = ╱b9╱ USING ╱ // 0x285d @0x5
0x2858…2893 at0006 = ╱22╱"╱ // 0x285e @0x6
0x2858…2893 at0007 = ╱56╱V╱ // 0x285f @0x7
0x2858…2893 at0008 = ╱61╱a╱ // 0x2860 @0x8
0x2858…2893 at0009 = ╱72╱r╱ // 0x2861 @0x9
0x2858…2893 at000a = ╱65╱e╱ // 0x2862 @0xa
0x2858…2893 at000b = ╱6e╱n╱ // 0x2863 @0xb
0x2858…2893 at000c = ╱75╱u╱ // 0x2864 @0xc
0x2858…2893 at000d = ╱6d╱m╱ // 0x2865 @0xd
0x2858…2893 at000e = ╱6d╱m╱ // 0x2866 @0xe
0x2858…2893 at000f = ╱65╱e╱ // 0x2867 @0xf
0x2858…2893 at0010 = ╱72╱r╱ // 0x2868 @0x10
0x2858…2893 at0011 = ╱20╱…╱ // 0x2869 @0x11
0x2858…2893 at0012 = ╱23╱#╱ // 0x286a @0x12
0x2858…2893 at0013 = ╱23╱#╱ // 0x286b @0x13
0x2858…2893 at0014 = ╱23╱#╱ // 0x286c @0x14
0x2858…2893 at0015 = ╱23╱#╱ // 0x286d @0x15
0x2858…2893 at0016 = ╱23╱#╱ // 0x286e @0x16
0x2858…2893 at0017 = ╱23╱#╱ // 0x286f @0x17
0x2858…2893 at0018 = ╱23╱#╱ // 0x2870 @0x18
0x2858…2893 at0019 = ╱20╱…╱ // 0x2871 @0x19
0x2858…2893 at001a = ╱65╱e╱ // 0x2872 @0x1a
0x2858…2893 at001b = ╱72╱r╱ // 0x2873 @0x1b
0x2858…2893 at001c = ╱20╱…╱ // 0x2874 @0x1c
0x2858…2893 at001d = ╱73╱s╱ // 0x2875 @0x1d
0x2858…2893 at001e = ╱6c╱l╱ // 0x2876 @0x1e
0x2858…2893 at001f = ╱65╱e╱ // 0x2877 @0x1f
0x2858…2893 at0020 = ╱74╱t╱ // 0x2878 @0x20
0x2858…2893 at0021 = ╱74╱t╱ // 0x2879 @0x21
0x2858…2893 at0022 = ╱65╱e╱ // 0x287a @0x22
0x2858…2893 at0023 = ╱74╱t╱ // 0x287b @0x23
0x2858…2893 at0024 = ╱2e╱.╱ // 0x287c @0x24
0x2858…2893 at0025 = ╱20╱…╱ // 0x287d @0x25
0x2858…2893 at0026 = ╱54╱T╱ // 0x287e @0x26
0x2858…2893 at0027 = ╱61╱a╱ // 0x287f @0x27
0x2858…2893 at0028 = ╱73╱s╱ // 0x2880 @0x28
0x2858…2893 at0029 = ╱74╱t╱ // 0x2881 @0x29
0x2858…2893 at002a = ╱20╱…╱ // 0x2882 @0x2a
0x2858…2893 at002b = ╱52╱R╱ // 0x2883 @0x2b
0x2858…2893 at002c = ╱45╱E╱ // 0x2884 @0x2c
0x2858…2893 at002d = ╱54╱T╱ // 0x2885 @0x2d
0x2858…2893 at002e = ╱55╱U╱ // 0x2886 @0x2e
0x2858…2893 at002f = ╱52╱R╱ // 0x2887 @0x2f
0x2858…2893 at0030 = ╱4e╱N╱ // 0x2888 @0x30
0x2858…2893 at0031 = ╱2e╱.╱ // 0x2889 @0x31
0x2858…2893 at0032 = ╱22╱"╱ // 0x288a @0x32
0x2858…2893 at0033 = ╱f0╱:╱ // 0x288b @0x33
0x2858…2893 at0034 = ╱56╱V╱ // 0x288c @0x34
0x2858…2893 at0035 = ╱41╱A╱ // 0x288d @0x35
0x2858…2893 at0036 = ╱52╱R╱ // 0x288e @0x36
0x2858…2893 at0037 = ╱45╱E╱ // 0x288f @0x37
0x2858…2893 at0038 = ╱4e╱N╱ // 0x2890 @0x38
0x2858…2893 at0039 = ╱52╱R╱ // 0x2891 @0x39
0x2858…2893 at003a = EOL // 0x2892 @0x3a
0x2858…2893 }
0x2893…28a3 b5fa 4100 INPUT " ",SVAR1$
0x2893…28a3 LineComalBin {
0x2893…28a3 ptr = 0xb5fa // 0x2893 @0x0
0x2893…28a3 lno = 0x1004 // 0x2895 @0x2
0x2893…28a3 at0004 = ╱91╱ INPUT ╱ // 0x2897 @0x4
0x2893…28a3 at0005 = ╱22╱"╱ // 0x2898 @0x5
0x2893…28a3 at0006 = ╱20╱…╱ // 0x2899 @0x6
0x2893…28a3 at0007 = ╱22╱"╱ // 0x289a @0x7
0x2893…28a3 at0008 = ╱ec╱,╱ // 0x289b @0x8
0x2893…28a3 at0009 = ╱53╱S╱ // 0x289c @0x9
0x2893…28a3 at000a = ╱56╱V╱ // 0x289d @0xa
0x2893…28a3 at000b = ╱41╱A╱ // 0x289e @0xb
0x2893…28a3 at000c = ╱52╱R╱ // 0x289f @0xc
0x2893…28a3 at000d = ╱31╱1╱ // 0x28a0 @0xd
0x2893…28a3 at000e = ╱ef╱$╱ // 0x28a1 @0xe
0x2893…28a3 at000f = EOL // 0x28a2 @0xf
0x2893…28a3 }
0x28a3…28a9 b600 4110 ENDIF
0x28a3…28a9 LineComalBin {
0x28a3…28a9 ptr = 0xb600 // 0x28a3 @0x0
0x28a3…28a9 lno = 0x100e // 0x28a5 @0x2
0x28a3…28a9 at0004 = ╱9b╱ ENDIF ╱ // 0x28a7 @0x4
0x28a3…28a9 at0005 = EOL // 0x28a8 @0x5
0x28a3…28a9 }
0x28a9…28b3 b60a 4120 WHEN "4"
0x28a9…28b3 LineComalBin {
0x28a9…28b3 ptr = 0xb60a // 0x28a9 @0x0
0x28a9…28b3 lno = 0x1018 // 0x28ab @0x2
0x28a9…28b3 at0004 = ╱a300╱ WHEN ╱ // 0x28ad @0x4
0x28a9…28b3 at0006 = ╱22╱"╱ // 0x28af @0x6
0x28a9…28b3 at0007 = ╱34╱4╱ // 0x28b0 @0x7
0x28a9…28b3 at0008 = ╱22╱"╱ // 0x28b1 @0x8
0x28a9…28b3 at0009 = EOL // 0x28b2 @0x9
0x28a9…28b3 }
0x28b3…28c8 b61f 4130 CURSOR 16,11
0x28b3…28c8 LineComalBin {
0x28b3…28c8 ptr = 0xb61f // 0x28b3 @0x0
0x28b3…28c8 lno = 0x1022 // 0x28b5 @0x2
0x28b3…28c8 at0004 = ╱a1╱ CURSOR ╱ // 0x28b7 @0x4
0x28b3…28c8 at0005 = ╱31╱1╱ // 0x28b8 @0x5
0x28b3…28c8 at0006 = ╱36╱6╱ // 0x28b9 @0x6
0x28b3…28c8 at0007 = ╱fe00008005╱ // 0x28ba @0x7
0x28b3…28c8 at000c = ╱ec╱,╱ // 0x28bf @0xc
0x28b3…28c8 at000d = ╱31╱1╱ // 0x28c0 @0xd
0x28b3…28c8 at000e = ╱31╱1╱ // 0x28c1 @0xe
0x28b3…28c8 at000f = ╱fe0000b004╱ // 0x28c2 @0xf
0x28b3…28c8 at0014 = EOL // 0x28c7 @0x14
0x28b3…28c8 }
0x28c8…28e2 b639 4140 INPUT "Tast RETURN",SVAR1$
0x28c8…28e2 LineComalBin {
0x28c8…28e2 ptr = 0xb639 // 0x28c8 @0x0
0x28c8…28e2 lno = 0x102c // 0x28ca @0x2
0x28c8…28e2 at0004 = ╱91╱ INPUT ╱ // 0x28cc @0x4
0x28c8…28e2 at0005 = ╱22╱"╱ // 0x28cd @0x5
0x28c8…28e2 at0006 = ╱54╱T╱ // 0x28ce @0x6
0x28c8…28e2 at0007 = ╱61╱a╱ // 0x28cf @0x7
0x28c8…28e2 at0008 = ╱73╱s╱ // 0x28d0 @0x8
0x28c8…28e2 at0009 = ╱74╱t╱ // 0x28d1 @0x9
0x28c8…28e2 at000a = ╱20╱…╱ // 0x28d2 @0xa
0x28c8…28e2 at000b = ╱52╱R╱ // 0x28d3 @0xb
0x28c8…28e2 at000c = ╱45╱E╱ // 0x28d4 @0xc
0x28c8…28e2 at000d = ╱54╱T╱ // 0x28d5 @0xd
0x28c8…28e2 at000e = ╱55╱U╱ // 0x28d6 @0xe
0x28c8…28e2 at000f = ╱52╱R╱ // 0x28d7 @0xf
0x28c8…28e2 at0010 = ╱4e╱N╱ // 0x28d8 @0x10
0x28c8…28e2 at0011 = ╱22╱"╱ // 0x28d9 @0x11
0x28c8…28e2 at0012 = ╱ec╱,╱ // 0x28da @0x12
0x28c8…28e2 at0013 = ╱53╱S╱ // 0x28db @0x13
0x28c8…28e2 at0014 = ╱56╱V╱ // 0x28dc @0x14
0x28c8…28e2 at0015 = ╱41╱A╱ // 0x28dd @0x15
0x28c8…28e2 at0016 = ╱52╱R╱ // 0x28de @0x16
0x28c8…28e2 at0017 = ╱31╱1╱ // 0x28df @0x17
0x28c8…28e2 at0018 = ╱ef╱$╱ // 0x28e0 @0x18
0x28c8…28e2 at0019 = EOL // 0x28e1 @0x19
0x28c8…28e2 }
0x28e2…28e8 b63f 4150 ENDCASE
0x28e2…28e8 LineComalBin {
0x28e2…28e8 ptr = 0xb63f // 0x28e2 @0x0
0x28e2…28e8 lno = 0x1036 // 0x28e4 @0x2
0x28e2…28e8 at0004 = ╱a4╱ ENDCASE ╱ // 0x28e6 @0x4
0x28e2…28e8 at0005 = EOL // 0x28e7 @0x5
0x28e2…28e8 }
0x28e8…28ee (136,) b645 4160 ELSE
0x28e8…28ee LineComalBin {
0x28e8…28ee ptr = 0xb645 // 0x28e8 @0x0
0x28e8…28ee lno = 0x1040 // 0x28ea @0x2
0x28e8…28ee at0004 = ╱9a╱ ELSE ╱ // 0x28ec @0x4
0x28e8…28ee at0005 = EOL // 0x28ed @0x5
0x28e8…28ee }
0x28ee…28fc b653 4170 CURSOR V,4
0x28ee…28fc LineComalBin {
0x28ee…28fc ptr = 0xb653 // 0x28ee @0x0
0x28ee…28fc lno = 0x104a // 0x28f0 @0x2
0x28ee…28fc at0004 = ╱a1╱ CURSOR ╱ // 0x28f2 @0x4
0x28ee…28fc at0005 = ╱56╱V╱ // 0x28f3 @0x5
0x28ee…28fc at0006 = ╱ec╱,╱ // 0x28f4 @0x6
0x28ee…28fc at0007 = ╱34╱4╱ // 0x28f5 @0x7
0x28ee…28fc at0008 = ╱fe00008003╱ // 0x28f6 @0x8
0x28ee…28fc at000d = EOL // 0x28fb @0xd
0x28ee…28fc }
0x28fc…293a b691 4180 PRINT USING "Varenummer ####### eksistere ikke.Tast RETURN.":VARENR
0x28fc…293a LineComalBin {
0x28fc…293a ptr = 0xb691 // 0x28fc @0x0
0x28fc…293a lno = 0x1054 // 0x28fe @0x2
0x28fc…293a at0004 = ╱92╱ PRINT ╱ // 0x2900 @0x4
0x28fc…293a at0005 = ╱b9╱ USING ╱ // 0x2901 @0x5
0x28fc…293a at0006 = ╱22╱"╱ // 0x2902 @0x6
0x28fc…293a at0007 = ╱56╱V╱ // 0x2903 @0x7
0x28fc…293a at0008 = ╱61╱a╱ // 0x2904 @0x8
0x28fc…293a at0009 = ╱72╱r╱ // 0x2905 @0x9
0x28fc…293a at000a = ╱65╱e╱ // 0x2906 @0xa
0x28fc…293a at000b = ╱6e╱n╱ // 0x2907 @0xb
0x28fc…293a at000c = ╱75╱u╱ // 0x2908 @0xc
0x28fc…293a at000d = ╱6d╱m╱ // 0x2909 @0xd
0x28fc…293a at000e = ╱6d╱m╱ // 0x290a @0xe
0x28fc…293a at000f = ╱65╱e╱ // 0x290b @0xf
0x28fc…293a at0010 = ╱72╱r╱ // 0x290c @0x10
0x28fc…293a at0011 = ╱20╱…╱ // 0x290d @0x11
0x28fc…293a at0012 = ╱23╱#╱ // 0x290e @0x12
0x28fc…293a at0013 = ╱23╱#╱ // 0x290f @0x13
0x28fc…293a at0014 = ╱23╱#╱ // 0x2910 @0x14
0x28fc…293a at0015 = ╱23╱#╱ // 0x2911 @0x15
0x28fc…293a at0016 = ╱23╱#╱ // 0x2912 @0x16
0x28fc…293a at0017 = ╱23╱#╱ // 0x2913 @0x17
0x28fc…293a at0018 = ╱23╱#╱ // 0x2914 @0x18
0x28fc…293a at0019 = ╱20╱…╱ // 0x2915 @0x19
0x28fc…293a at001a = ╱65╱e╱ // 0x2916 @0x1a
0x28fc…293a at001b = ╱6b╱k╱ // 0x2917 @0x1b
0x28fc…293a at001c = ╱73╱s╱ // 0x2918 @0x1c
0x28fc…293a at001d = ╱69╱i╱ // 0x2919 @0x1d
0x28fc…293a at001e = ╱73╱s╱ // 0x291a @0x1e
0x28fc…293a at001f = ╱74╱t╱ // 0x291b @0x1f
0x28fc…293a at0020 = ╱65╱e╱ // 0x291c @0x20
0x28fc…293a at0021 = ╱72╱r╱ // 0x291d @0x21
0x28fc…293a at0022 = ╱65╱e╱ // 0x291e @0x22
0x28fc…293a at0023 = ╱20╱…╱ // 0x291f @0x23
0x28fc…293a at0024 = ╱69╱i╱ // 0x2920 @0x24
0x28fc…293a at0025 = ╱6b╱k╱ // 0x2921 @0x25
0x28fc…293a at0026 = ╱6b╱k╱ // 0x2922 @0x26
0x28fc…293a at0027 = ╱65╱e╱ // 0x2923 @0x27
0x28fc…293a at0028 = ╱2e╱.╱ // 0x2924 @0x28
0x28fc…293a at0029 = ╱54╱T╱ // 0x2925 @0x29
0x28fc…293a at002a = ╱61╱a╱ // 0x2926 @0x2a
0x28fc…293a at002b = ╱73╱s╱ // 0x2927 @0x2b
0x28fc…293a at002c = ╱74╱t╱ // 0x2928 @0x2c
0x28fc…293a at002d = ╱20╱…╱ // 0x2929 @0x2d
0x28fc…293a at002e = ╱52╱R╱ // 0x292a @0x2e
0x28fc…293a at002f = ╱45╱E╱ // 0x292b @0x2f
0x28fc…293a at0030 = ╱54╱T╱ // 0x292c @0x30
0x28fc…293a at0031 = ╱55╱U╱ // 0x292d @0x31
0x28fc…293a at0032 = ╱52╱R╱ // 0x292e @0x32
0x28fc…293a at0033 = ╱4e╱N╱ // 0x292f @0x33
0x28fc…293a at0034 = ╱2e╱.╱ // 0x2930 @0x34
0x28fc…293a at0035 = ╱22╱"╱ // 0x2931 @0x35
0x28fc…293a at0036 = ╱f0╱:╱ // 0x2932 @0x36
0x28fc…293a at0037 = ╱56╱V╱ // 0x2933 @0x37
0x28fc…293a at0038 = ╱41╱A╱ // 0x2934 @0x38
0x28fc…293a at0039 = ╱52╱R╱ // 0x2935 @0x39
0x28fc…293a at003a = ╱45╱E╱ // 0x2936 @0x3a
0x28fc…293a at003b = ╱4e╱N╱ // 0x2937 @0x3b
0x28fc…293a at003c = ╱52╱R╱ // 0x2938 @0x3c
0x28fc…293a at003d = EOL // 0x2939 @0x3d
0x28fc…293a }
0x293a…294a b6a1 4190 INPUT " ",SVAR1$
0x293a…294a LineComalBin {
0x293a…294a ptr = 0xb6a1 // 0x293a @0x0
0x293a…294a lno = 0x105e // 0x293c @0x2
0x293a…294a at0004 = ╱91╱ INPUT ╱ // 0x293e @0x4
0x293a…294a at0005 = ╱22╱"╱ // 0x293f @0x5
0x293a…294a at0006 = ╱20╱…╱ // 0x2940 @0x6
0x293a…294a at0007 = ╱22╱"╱ // 0x2941 @0x7
0x293a…294a at0008 = ╱ec╱,╱ // 0x2942 @0x8
0x293a…294a at0009 = ╱53╱S╱ // 0x2943 @0x9
0x293a…294a at000a = ╱56╱V╱ // 0x2944 @0xa
0x293a…294a at000b = ╱41╱A╱ // 0x2945 @0xb
0x293a…294a at000c = ╱52╱R╱ // 0x2946 @0xc
0x293a…294a at000d = ╱31╱1╱ // 0x2947 @0xd
0x293a…294a at000e = ╱ef╱$╱ // 0x2948 @0xe
0x293a…294a at000f = EOL // 0x2949 @0xf
0x293a…294a }
0x294a…2950 b6a7 4200 ENDIF
0x294a…2950 LineComalBin {
0x294a…2950 ptr = 0xb6a7 // 0x294a @0x0
0x294a…2950 lno = 0x1068 // 0x294c @0x2
0x294a…2950 at0004 = ╱9b╱ ENDIF ╱ // 0x294e @0x4
0x294a…2950 at0005 = EOL // 0x294f @0x5
0x294a…2950 }
0x2950…295e b6b5 4210 UNTIL VARENR=B
0x2950…295e LineComalBin {
0x2950…295e ptr = 0xb6b5 // 0x2950 @0x0
0x2950…295e lno = 0x1072 // 0x2952 @0x2
0x2950…295e at0004 = ╱98╱ UNTIL ╱ // 0x2954 @0x4
0x2950…295e at0005 = ╱56╱V╱ // 0x2955 @0x5
0x2950…295e at0006 = ╱41╱A╱ // 0x2956 @0x6
0x2950…295e at0007 = ╱52╱R╱ // 0x2957 @0x7
0x2950…295e at0008 = ╱45╱E╱ // 0x2958 @0x8
0x2950…295e at0009 = ╱4e╱N╱ // 0x2959 @0x9
0x2950…295e at000a = ╱52╱R╱ // 0x295a @0xa
0x2950…295e at000b = ╱dc╱=╱ // 0x295b @0xb
0x2950…295e at000c = ╱42╱B╱ // 0x295c @0xc
0x2950…295e at000d = EOL // 0x295d @0xd
0x2950…295e }
0x295e…2968 b6bf 4220 WHEN "5"
0x295e…2968 LineComalBin {
0x295e…2968 ptr = 0xb6bf // 0x295e @0x0
0x295e…2968 lno = 0x107c // 0x2960 @0x2
0x295e…2968 at0004 = ╱a300╱ WHEN ╱ // 0x2962 @0x4
0x295e…2968 at0006 = ╱22╱"╱ // 0x2964 @0x6
0x295e…2968 at0007 = ╱35╱5╱ // 0x2965 @0x7
0x295e…2968 at0008 = ╱22╱"╱ // 0x2966 @0x8
0x295e…2968 at0009 = EOL // 0x2967 @0x9
0x295e…2968 }
0x2968…296e b6c5 4230 REPEAT
0x2968…296e LineComalBin {
0x2968…296e ptr = 0xb6c5 // 0x2968 @0x0
0x2968…296e lno = 0x1086 // 0x296a @0x2
0x2968…296e at0004 = ╱97╱ REPEAT ╱ // 0x296c @0x4
0x2968…296e at0005 = EOL // 0x296d @0x5
0x2968…296e }
0x296e…2974 b6cb 4240 REPEAT
0x296e…2974 LineComalBin {
0x296e…2974 ptr = 0xb6cb // 0x296e @0x0
0x296e…2974 lno = 0x1090 // 0x2970 @0x2
0x296e…2974 at0004 = ╱97╱ REPEAT ╱ // 0x2972 @0x4
0x296e…2974 at0005 = EOL // 0x2973 @0x5
0x296e…2974 }
0x2974…2981 b6d8 4250 SIDENR=B
0x2974…2981 LineComalBin {
0x2974…2981 ptr = 0xb6d8 // 0x2974 @0x0
0x2974…2981 lno = 0x109a // 0x2976 @0x2
0x2974…2981 at0004 = ╱53╱S╱ // 0x2978 @0x4
0x2974…2981 at0005 = ╱49╱I╱ // 0x2979 @0x5
0x2974…2981 at0006 = ╱44╱D╱ // 0x297a @0x6
0x2974…2981 at0007 = ╱45╱E╱ // 0x297b @0x7
0x2974…2981 at0008 = ╱4e╱N╱ // 0x297c @0x8
0x2974…2981 at0009 = ╱52╱R╱ // 0x297d @0x9
0x2974…2981 at000a = ╱dc╱=╱ // 0x297e @0xa
0x2974…2981 at000b = ╱42╱B╱ // 0x297f @0xb
0x2974…2981 at000c = EOL // 0x2980 @0xc
0x2974…2981 }
0x2981…2990 b6e7 4260 CURSOR V,23
0x2981…2990 LineComalBin {
0x2981…2990 ptr = 0xb6e7 // 0x2981 @0x0
0x2981…2990 lno = 0x10a4 // 0x2983 @0x2
0x2981…2990 at0004 = ╱a1╱ CURSOR ╱ // 0x2985 @0x4
0x2981…2990 at0005 = ╱56╱V╱ // 0x2986 @0x5
0x2981…2990 at0006 = ╱ec╱,╱ // 0x2987 @0x6
0x2981…2990 at0007 = ╱32╱2╱ // 0x2988 @0x7
0x2981…2990 at0008 = ╱33╱3╱ // 0x2989 @0x8
0x2981…2990 at0009 = ╱fe0000b805╱ // 0x298a @0x9
0x2981…2990 at000e = EOL // 0x298f @0xe
0x2981…2990 }
0x2990…29b8 b70f 4270 PRINT "Fra varenummer (0:Alle)"
0x2990…29b8 LineComalBin {
0x2990…29b8 ptr = 0xb70f // 0x2990 @0x0
0x2990…29b8 lno = 0x10ae // 0x2992 @0x2
0x2990…29b8 at0004 = ╱92╱ PRINT ╱ // 0x2994 @0x4
0x2990…29b8 at0005 = ╱22╱"╱ // 0x2995 @0x5
0x2990…29b8 at0006 = ╱46╱F╱ // 0x2996 @0x6
0x2990…29b8 at0007 = ╱72╱r╱ // 0x2997 @0x7
0x2990…29b8 at0008 = ╱61╱a╱ // 0x2998 @0x8
0x2990…29b8 at0009 = ╱20╱…╱ // 0x2999 @0x9
0x2990…29b8 at000a = ╱76╱v╱ // 0x299a @0xa
0x2990…29b8 at000b = ╱61╱a╱ // 0x299b @0xb
0x2990…29b8 at000c = ╱72╱r╱ // 0x299c @0xc
0x2990…29b8 at000d = ╱65╱e╱ // 0x299d @0xd
0x2990…29b8 at000e = ╱6e╱n╱ // 0x299e @0xe
0x2990…29b8 at000f = ╱75╱u╱ // 0x299f @0xf
0x2990…29b8 at0010 = ╱6d╱m╱ // 0x29a0 @0x10
0x2990…29b8 at0011 = ╱6d╱m╱ // 0x29a1 @0x11
0x2990…29b8 at0012 = ╱65╱e╱ // 0x29a2 @0x12
0x2990…29b8 at0013 = ╱72╱r╱ // 0x29a3 @0x13
0x2990…29b8 at0014 = ╱20╱…╱ // 0x29a4 @0x14
0x2990…29b8 at0015 = ╱20╱…╱ // 0x29a5 @0x15
0x2990…29b8 at0016 = ╱20╱…╱ // 0x29a6 @0x16
0x2990…29b8 at0017 = ╱20╱…╱ // 0x29a7 @0x17
0x2990…29b8 at0018 = ╱20╱…╱ // 0x29a8 @0x18
0x2990…29b8 at0019 = ╱20╱…╱ // 0x29a9 @0x19
0x2990…29b8 at001a = ╱20╱…╱ // 0x29aa @0x1a
0x2990…29b8 at001b = ╱20╱…╱ // 0x29ab @0x1b
0x2990…29b8 at001c = ╱20╱…╱ // 0x29ac @0x1c
0x2990…29b8 at001d = ╱20╱…╱ // 0x29ad @0x1d
0x2990…29b8 at001e = ╱28╱(╱ // 0x29ae @0x1e
0x2990…29b8 at001f = ╱30╱0╱ // 0x29af @0x1f
0x2990…29b8 at0020 = ╱3a╱:╱ // 0x29b0 @0x20
0x2990…29b8 at0021 = ╱41╱A╱ // 0x29b1 @0x21
0x2990…29b8 at0022 = ╱6c╱l╱ // 0x29b2 @0x22
0x2990…29b8 at0023 = ╱6c╱l╱ // 0x29b3 @0x23
0x2990…29b8 at0024 = ╱65╱e╱ // 0x29b4 @0x24
0x2990…29b8 at0025 = ╱29╱)╱ // 0x29b5 @0x25
0x2990…29b8 at0026 = ╱22╱"╱ // 0x29b6 @0x26
0x2990…29b8 at0027 = EOL // 0x29b7 @0x27
0x2990…29b8 }
0x29b8…29cd b724 4280 CURSOR 17,23
0x29b8…29cd LineComalBin {
0x29b8…29cd ptr = 0xb724 // 0x29b8 @0x0
0x29b8…29cd lno = 0x10b8 // 0x29ba @0x2
0x29b8…29cd at0004 = ╱a1╱ CURSOR ╱ // 0x29bc @0x4
0x29b8…29cd at0005 = ╱31╱1╱ // 0x29bd @0x5
0x29b8…29cd at0006 = ╱37╱7╱ // 0x29be @0x6
0x29b8…29cd at0007 = ╱fe00008805╱ // 0x29bf @0x7
0x29b8…29cd at000c = ╱ec╱,╱ // 0x29c4 @0xc
0x29b8…29cd at000d = ╱32╱2╱ // 0x29c5 @0xd
0x29b8…29cd at000e = ╱33╱3╱ // 0x29c6 @0xe
0x29b8…29cd at000f = ╱fe0000b805╱ // 0x29c7 @0xf
0x29b8…29cd at0014 = EOL // 0x29cc @0x14
0x29b8…29cd }
0x29cd…29d8 b72f 4290 INPUT TAL1$
0x29cd…29d8 LineComalBin {
0x29cd…29d8 ptr = 0xb72f // 0x29cd @0x0
0x29cd…29d8 lno = 0x10c2 // 0x29cf @0x2
0x29cd…29d8 at0004 = ╱91╱ INPUT ╱ // 0x29d1 @0x4
0x29cd…29d8 at0005 = ╱54╱T╱ // 0x29d2 @0x5
0x29cd…29d8 at0006 = ╱41╱A╱ // 0x29d3 @0x6
0x29cd…29d8 at0007 = ╱4c╱L╱ // 0x29d4 @0x7
0x29cd…29d8 at0008 = ╱31╱1╱ // 0x29d5 @0x8
0x29cd…29d8 at0009 = ╱ef╱$╱ // 0x29d6 @0x9
0x29cd…29d8 at000a = EOL // 0x29d7 @0xa
0x29cd…29d8 }
0x29d8…29eb b742 4300 EXEC NRTEST(TAL1$)
0x29d8…29eb LineComalBin {
0x29d8…29eb ptr = 0xb742 // 0x29d8 @0x0
0x29d8…29eb lno = 0x10cc // 0x29da @0x2
0x29d8…29eb at0004 = ╱9d╱ EXEC ╱ // 0x29dc @0x4
0x29d8…29eb at0005 = ╱4e╱N╱ // 0x29dd @0x5
0x29d8…29eb at0006 = ╱52╱R╱ // 0x29de @0x6
0x29d8…29eb at0007 = ╱54╱T╱ // 0x29df @0x7
0x29d8…29eb at0008 = ╱45╱E╱ // 0x29e0 @0x8
0x29d8…29eb at0009 = ╱53╱S╱ // 0x29e1 @0x9
0x29d8…29eb at000a = ╱54╱T╱ // 0x29e2 @0xa
0x29d8…29eb at000b = ╱ed╱(╱ // 0x29e3 @0xb
0x29d8…29eb at000c = ╱54╱T╱ // 0x29e4 @0xc
0x29d8…29eb at000d = ╱41╱A╱ // 0x29e5 @0xd
0x29d8…29eb at000e = ╱4c╱L╱ // 0x29e6 @0xe
0x29d8…29eb at000f = ╱31╱1╱ // 0x29e7 @0xf
0x29d8…29eb at0010 = ╱ef╱$╱ // 0x29e8 @0x10
0x29d8…29eb at0011 = ╱ee╱)╱ // 0x29e9 @0x11
0x29d8…29eb at0012 = EOL // 0x29ea @0x12
0x29d8…29eb }
0x29eb…2a05 b75c 4310 UNTIL P>4 AND TEST2=B OR P=B
0x29eb…2a05 LineComalBin {
0x29eb…2a05 ptr = 0xb75c // 0x29eb @0x0
0x29eb…2a05 lno = 0x10d6 // 0x29ed @0x2
0x29eb…2a05 at0004 = ╱98╱ UNTIL ╱ // 0x29ef @0x4
0x29eb…2a05 at0005 = ╱50╱P╱ // 0x29f0 @0x5
0x29eb…2a05 at0006 = ╱de╱>╱ // 0x29f1 @0x6
0x29eb…2a05 at0007 = ╱34╱4╱ // 0x29f2 @0x7
0x29eb…2a05 at0008 = ╱fe00008003╱ // 0x29f3 @0x8
0x29eb…2a05 at000d = ╱da╱ AND ╱ // 0x29f8 @0xd
0x29eb…2a05 at000e = ╱54╱T╱ // 0x29f9 @0xe
0x29eb…2a05 at000f = ╱45╱E╱ // 0x29fa @0xf
0x29eb…2a05 at0010 = ╱53╱S╱ // 0x29fb @0x10
0x29eb…2a05 at0011 = ╱54╱T╱ // 0x29fc @0x11
0x29eb…2a05 at0012 = ╱32╱2╱ // 0x29fd @0x12
0x29eb…2a05 at0013 = ╱dc╱=╱ // 0x29fe @0x13
0x29eb…2a05 at0014 = ╱42╱B╱ // 0x29ff @0x14
0x29eb…2a05 at0015 = ╱db╱ OR ╱ // 0x2a00 @0x15
0x29eb…2a05 at0016 = ╱50╱P╱ // 0x2a01 @0x16
0x29eb…2a05 at0017 = ╱dc╱=╱ // 0x2a02 @0x17
0x29eb…2a05 at0018 = ╱42╱B╱ // 0x2a03 @0x18
0x29eb…2a05 at0019 = EOL // 0x2a04 @0x19
0x29eb…2a05 }
0x2a05…2a0f b766 4320 IF P=B THEN
0x2a05…2a0f LineComalBin {
0x2a05…2a0f ptr = 0xb766 // 0x2a05 @0x0
0x2a05…2a0f lno = 0x10e0 // 0x2a07 @0x2
0x2a05…2a0f at0004 = ╱9c╱ IF ╱ // 0x2a09 @0x4
0x2a05…2a0f at0005 = ╱50╱P╱ // 0x2a0a @0x5
0x2a05…2a0f at0006 = ╱dc╱=╱ // 0x2a0b @0x6
0x2a05…2a0f at0007 = ╱42╱B╱ // 0x2a0c @0x7
0x2a05…2a0f at0008 = ╱b6╱ THEN ╱ // 0x2a0d @0x8
0x2a05…2a0f at0009 = EOL // 0x2a0e @0x9
0x2a05…2a0f }
0x2a0f…2a23 b77a 4330 FRA=E;TIL=AVARE
0x2a0f…2a23 LineComalBin {
0x2a0f…2a23 ptr = 0xb77a // 0x2a0f @0x0
0x2a0f…2a23 lno = 0x10ea // 0x2a11 @0x2
0x2a0f…2a23 at0004 = ╱46╱F╱ // 0x2a13 @0x4
0x2a0f…2a23 at0005 = ╱52╱R╱ // 0x2a14 @0x5
0x2a0f…2a23 at0006 = ╱41╱A╱ // 0x2a15 @0x6
0x2a0f…2a23 at0007 = ╱dc╱=╱ // 0x2a16 @0x7
0x2a0f…2a23 at0008 = ╱45╱E╱ // 0x2a17 @0x8
0x2a0f…2a23 at0009 = ╱eb╱;╱ // 0x2a18 @0x9
0x2a0f…2a23 at000a = ╱54╱T╱ // 0x2a19 @0xa
0x2a0f…2a23 at000b = ╱49╱I╱ // 0x2a1a @0xb
0x2a0f…2a23 at000c = ╱4c╱L╱ // 0x2a1b @0xc
0x2a0f…2a23 at000d = ╱dc╱=╱ // 0x2a1c @0xd
0x2a0f…2a23 at000e = ╱41╱A╱ // 0x2a1d @0xe
0x2a0f…2a23 at000f = ╱56╱V╱ // 0x2a1e @0xf
0x2a0f…2a23 at0010 = ╱41╱A╱ // 0x2a1f @0x10
0x2a0f…2a23 at0011 = ╱52╱R╱ // 0x2a20 @0x11
0x2a0f…2a23 at0012 = ╱45╱E╱ // 0x2a21 @0x12
0x2a0f…2a23 at0013 = EOL // 0x2a22 @0x13
0x2a0f…2a23 }
0x2a23…2a29 b780 4340 ELSE
0x2a23…2a29 LineComalBin {
0x2a23…2a29 ptr = 0xb780 // 0x2a23 @0x0
0x2a23…2a29 lno = 0x10f4 // 0x2a25 @0x2
0x2a23…2a29 at0004 = ╱9a╱ ELSE ╱ // 0x2a27 @0x4
0x2a23…2a29 at0005 = EOL // 0x2a28 @0x5
0x2a23…2a29 }
0x2a29…2a34 b78b 4350 KONT=P
0x2a29…2a34 LineComalBin {
0x2a29…2a34 ptr = 0xb78b // 0x2a29 @0x0
0x2a29…2a34 lno = 0x10fe // 0x2a2b @0x2
0x2a29…2a34 at0004 = ╱4b╱K╱ // 0x2a2d @0x4
0x2a29…2a34 at0005 = ╱4f╱O╱ // 0x2a2e @0x5
0x2a29…2a34 at0006 = ╱4e╱N╱ // 0x2a2f @0x6
0x2a29…2a34 at0007 = ╱54╱T╱ // 0x2a30 @0x7
0x2a29…2a34 at0008 = ╱dc╱=╱ // 0x2a31 @0x8
0x2a29…2a34 at0009 = ╱50╱P╱ // 0x2a32 @0x9
0x2a29…2a34 at000a = EOL // 0x2a33 @0xa
0x2a29…2a34 }
0x2a34…2a58 b7af 4360 EXEC FINDPOST(VTAB,MVANTAL,P,VPIL3)
0x2a34…2a58 LineComalBin {
0x2a34…2a58 ptr = 0xb7af // 0x2a34 @0x0
0x2a34…2a58 lno = 0x1108 // 0x2a36 @0x2
0x2a34…2a58 at0004 = ╱9d╱ EXEC ╱ // 0x2a38 @0x4
0x2a34…2a58 at0005 = ╱46╱F╱ // 0x2a39 @0x5
0x2a34…2a58 at0006 = ╱49╱I╱ // 0x2a3a @0x6
0x2a34…2a58 at0007 = ╱4e╱N╱ // 0x2a3b @0x7
0x2a34…2a58 at0008 = ╱44╱D╱ // 0x2a3c @0x8
0x2a34…2a58 at0009 = ╱50╱P╱ // 0x2a3d @0x9
0x2a34…2a58 at000a = ╱4f╱O╱ // 0x2a3e @0xa
0x2a34…2a58 at000b = ╱53╱S╱ // 0x2a3f @0xb
0x2a34…2a58 at000c = ╱54╱T╱ // 0x2a40 @0xc
0x2a34…2a58 at000d = ╱ed╱(╱ // 0x2a41 @0xd
0x2a34…2a58 at000e = ╱56╱V╱ // 0x2a42 @0xe
0x2a34…2a58 at000f = ╱54╱T╱ // 0x2a43 @0xf
0x2a34…2a58 at0010 = ╱41╱A╱ // 0x2a44 @0x10
0x2a34…2a58 at0011 = ╱42╱B╱ // 0x2a45 @0x11
0x2a34…2a58 at0012 = ╱ec╱,╱ // 0x2a46 @0x12
0x2a34…2a58 at0013 = ╱4d╱M╱ // 0x2a47 @0x13
0x2a34…2a58 at0014 = ╱56╱V╱ // 0x2a48 @0x14
0x2a34…2a58 at0015 = ╱41╱A╱ // 0x2a49 @0x15
0x2a34…2a58 at0016 = ╱4e╱N╱ // 0x2a4a @0x16
0x2a34…2a58 at0017 = ╱54╱T╱ // 0x2a4b @0x17
0x2a34…2a58 at0018 = ╱41╱A╱ // 0x2a4c @0x18
0x2a34…2a58 at0019 = ╱4c╱L╱ // 0x2a4d @0x19
0x2a34…2a58 at001a = ╱ec╱,╱ // 0x2a4e @0x1a
0x2a34…2a58 at001b = ╱50╱P╱ // 0x2a4f @0x1b
0x2a34…2a58 at001c = ╱ec╱,╱ // 0x2a50 @0x1c
0x2a34…2a58 at001d = ╱56╱V╱ // 0x2a51 @0x1d
0x2a34…2a58 at001e = ╱50╱P╱ // 0x2a52 @0x1e
0x2a34…2a58 at001f = ╱49╱I╱ // 0x2a53 @0x1f
0x2a34…2a58 at0020 = ╱4c╱L╱ // 0x2a54 @0x20
0x2a34…2a58 at0021 = ╱33╱3╱ // 0x2a55 @0x21
0x2a34…2a58 at0022 = ╱ee╱)╱ // 0x2a56 @0x22
0x2a34…2a58 at0023 = EOL // 0x2a57 @0x23
0x2a34…2a58 }
0x2a58…2a7e b7d5 4370 IF VTAB(VPIL3,E)<KONT THEN VPIL3=VPIL3+E
0x2a58…2a7e LineComalBin {
0x2a58…2a7e ptr = 0xb7d5 // 0x2a58 @0x0
0x2a58…2a7e lno = 0x1112 // 0x2a5a @0x2
0x2a58…2a7e at0004 = ╱82╱ IF ╱ // 0x2a5c @0x4
0x2a58…2a7e at0005 = ╱56╱V╱ // 0x2a5d @0x5
0x2a58…2a7e at0006 = ╱54╱T╱ // 0x2a5e @0x6
0x2a58…2a7e at0007 = ╱41╱A╱ // 0x2a5f @0x7
0x2a58…2a7e at0008 = ╱42╱B╱ // 0x2a60 @0x8
0x2a58…2a7e at0009 = ╱ed╱(╱ // 0x2a61 @0x9
0x2a58…2a7e at000a = ╱56╱V╱ // 0x2a62 @0xa
0x2a58…2a7e at000b = ╱50╱P╱ // 0x2a63 @0xb
0x2a58…2a7e at000c = ╱49╱I╱ // 0x2a64 @0xc
0x2a58…2a7e at000d = ╱4c╱L╱ // 0x2a65 @0xd
0x2a58…2a7e at000e = ╱33╱3╱ // 0x2a66 @0xe
0x2a58…2a7e at000f = ╱ec╱,╱ // 0x2a67 @0xf
0x2a58…2a7e at0010 = ╱45╱E╱ // 0x2a68 @0x10
0x2a58…2a7e at0011 = ╱ee╱)╱ // 0x2a69 @0x11
0x2a58…2a7e at0012 = ╱dd╱<╱ // 0x2a6a @0x12
0x2a58…2a7e at0013 = ╱4b╱K╱ // 0x2a6b @0x13
0x2a58…2a7e at0014 = ╱4f╱O╱ // 0x2a6c @0x14
0x2a58…2a7e at0015 = ╱4e╱N╱ // 0x2a6d @0x15
0x2a58…2a7e at0016 = ╱54╱T╱ // 0x2a6e @0x16
0x2a58…2a7e at0017 = ╱b6╱ THEN ╱ // 0x2a6f @0x17
0x2a58…2a7e at0018 = ╱56╱V╱ // 0x2a70 @0x18
0x2a58…2a7e at0019 = ╱50╱P╱ // 0x2a71 @0x19
0x2a58…2a7e at001a = ╱49╱I╱ // 0x2a72 @0x1a
0x2a58…2a7e at001b = ╱4c╱L╱ // 0x2a73 @0x1b
0x2a58…2a7e at001c = ╱33╱3╱ // 0x2a74 @0x1c
0x2a58…2a7e at001d = ╱dc╱=╱ // 0x2a75 @0x1d
0x2a58…2a7e at001e = ╱56╱V╱ // 0x2a76 @0x1e
0x2a58…2a7e at001f = ╱50╱P╱ // 0x2a77 @0x1f
0x2a58…2a7e at0020 = ╱49╱I╱ // 0x2a78 @0x20
0x2a58…2a7e at0021 = ╱4c╱L╱ // 0x2a79 @0x21
0x2a58…2a7e at0022 = ╱33╱3╱ // 0x2a7a @0x22
0x2a58…2a7e at0023 = ╱e2╱+╱ // 0x2a7b @0x23
0x2a58…2a7e at0024 = ╱45╱E╱ // 0x2a7c @0x24
0x2a58…2a7e at0025 = EOL // 0x2a7d @0x25
0x2a58…2a7e }
0x2a7e…2a8c b7e3 4380 FRA=VPIL3
0x2a7e…2a8c LineComalBin {
0x2a7e…2a8c ptr = 0xb7e3 // 0x2a7e @0x0
0x2a7e…2a8c lno = 0x111c // 0x2a80 @0x2
0x2a7e…2a8c at0004 = ╱46╱F╱ // 0x2a82 @0x4
0x2a7e…2a8c at0005 = ╱52╱R╱ // 0x2a83 @0x5
0x2a7e…2a8c at0006 = ╱41╱A╱ // 0x2a84 @0x6
0x2a7e…2a8c at0007 = ╱dc╱=╱ // 0x2a85 @0x7
0x2a7e…2a8c at0008 = ╱56╱V╱ // 0x2a86 @0x8
0x2a7e…2a8c at0009 = ╱50╱P╱ // 0x2a87 @0x9
0x2a7e…2a8c at000a = ╱49╱I╱ // 0x2a88 @0xa
0x2a7e…2a8c at000b = ╱4c╱L╱ // 0x2a89 @0xb
0x2a7e…2a8c at000c = ╱33╱3╱ // 0x2a8a @0xc
0x2a7e…2a8c at000d = EOL // 0x2a8b @0xd
0x2a7e…2a8c }
0x2a8c…2a92 b7e9 4381 ENDIF
0x2a8c…2a92 LineComalBin {
0x2a8c…2a92 ptr = 0xb7e9 // 0x2a8c @0x0
0x2a8c…2a92 lno = 0x111d // 0x2a8e @0x2
0x2a8c…2a92 at0004 = ╱9b╱ ENDIF ╱ // 0x2a90 @0x4
0x2a8c…2a92 at0005 = EOL // 0x2a91 @0x5
0x2a8c…2a92 }
0x2a92…2aa1 b7f8 4382 UNTIL FRA<=AVARE
0x2a92…2aa1 LineComalBin {
0x2a92…2aa1 ptr = 0xb7f8 // 0x2a92 @0x0
0x2a92…2aa1 lno = 0x111e // 0x2a94 @0x2
0x2a92…2aa1 at0004 = ╱98╱ UNTIL ╱ // 0x2a96 @0x4
0x2a92…2aa1 at0005 = ╱46╱F╱ // 0x2a97 @0x5
0x2a92…2aa1 at0006 = ╱52╱R╱ // 0x2a98 @0x6
0x2a92…2aa1 at0007 = ╱41╱A╱ // 0x2a99 @0x7
0x2a92…2aa1 at0008 = ╱df╱<=╱ // 0x2a9a @0x8
0x2a92…2aa1 at0009 = ╱41╱A╱ // 0x2a9b @0x9
0x2a92…2aa1 at000a = ╱56╱V╱ // 0x2a9c @0xa
0x2a92…2aa1 at000b = ╱41╱A╱ // 0x2a9d @0xb
0x2a92…2aa1 at000c = ╱52╱R╱ // 0x2a9e @0xc
0x2a92…2aa1 at000d = ╱45╱E╱ // 0x2a9f @0xd
0x2a92…2aa1 at000e = EOL // 0x2aa0 @0xe
0x2a92…2aa1 }
0x2aa1…2aab b802 4383 IF P>B THEN
0x2aa1…2aab LineComalBin {
0x2aa1…2aab ptr = 0xb802 // 0x2aa1 @0x0
0x2aa1…2aab lno = 0x111f // 0x2aa3 @0x2
0x2aa1…2aab at0004 = ╱9c╱ IF ╱ // 0x2aa5 @0x4
0x2aa1…2aab at0005 = ╱50╱P╱ // 0x2aa6 @0x5
0x2aa1…2aab at0006 = ╱de╱>╱ // 0x2aa7 @0x6
0x2aa1…2aab at0007 = ╱42╱B╱ // 0x2aa8 @0x7
0x2aa1…2aab at0008 = ╱b6╱ THEN ╱ // 0x2aa9 @0x8
0x2aa1…2aab at0009 = EOL // 0x2aaa @0x9
0x2aa1…2aab }
0x2aab…2ab1 b808 4384 REPEAT
0x2aab…2ab1 LineComalBin {
0x2aab…2ab1 ptr = 0xb808 // 0x2aab @0x0
0x2aab…2ab1 lno = 0x1120 // 0x2aad @0x2
0x2aab…2ab1 at0004 = ╱97╱ REPEAT ╱ // 0x2aaf @0x4
0x2aab…2ab1 at0005 = EOL // 0x2ab0 @0x5
0x2aab…2ab1 }
0x2ab1…2ac0 b817 4385 CURSOR V,23
0x2ab1…2ac0 LineComalBin {
0x2ab1…2ac0 ptr = 0xb817 // 0x2ab1 @0x0
0x2ab1…2ac0 lno = 0x1121 // 0x2ab3 @0x2
0x2ab1…2ac0 at0004 = ╱a1╱ CURSOR ╱ // 0x2ab5 @0x4
0x2ab1…2ac0 at0005 = ╱56╱V╱ // 0x2ab6 @0x5
0x2ab1…2ac0 at0006 = ╱ec╱,╱ // 0x2ab7 @0x6
0x2ab1…2ac0 at0007 = ╱32╱2╱ // 0x2ab8 @0x7
0x2ab1…2ac0 at0008 = ╱33╱3╱ // 0x2ab9 @0x8
0x2ab1…2ac0 at0009 = ╱fe0000b805╱ // 0x2aba @0x9
0x2ab1…2ac0 at000e = EOL // 0x2abf @0xe
0x2ab1…2ac0 }
0x2ac0…2ae0 b837 4386 PRINT "Til varenummer "
0x2ac0…2ae0 LineComalBin {
0x2ac0…2ae0 ptr = 0xb837 // 0x2ac0 @0x0
0x2ac0…2ae0 lno = 0x1122 // 0x2ac2 @0x2
0x2ac0…2ae0 at0004 = ╱92╱ PRINT ╱ // 0x2ac4 @0x4
0x2ac0…2ae0 at0005 = ╱22╱"╱ // 0x2ac5 @0x5
0x2ac0…2ae0 at0006 = ╱54╱T╱ // 0x2ac6 @0x6
0x2ac0…2ae0 at0007 = ╱69╱i╱ // 0x2ac7 @0x7
0x2ac0…2ae0 at0008 = ╱6c╱l╱ // 0x2ac8 @0x8
0x2ac0…2ae0 at0009 = ╱20╱…╱ // 0x2ac9 @0x9
0x2ac0…2ae0 at000a = ╱76╱v╱ // 0x2aca @0xa
0x2ac0…2ae0 at000b = ╱61╱a╱ // 0x2acb @0xb
0x2ac0…2ae0 at000c = ╱72╱r╱ // 0x2acc @0xc
0x2ac0…2ae0 at000d = ╱65╱e╱ // 0x2acd @0xd
0x2ac0…2ae0 at000e = ╱6e╱n╱ // 0x2ace @0xe
0x2ac0…2ae0 at000f = ╱75╱u╱ // 0x2acf @0xf
0x2ac0…2ae0 at0010 = ╱6d╱m╱ // 0x2ad0 @0x10
0x2ac0…2ae0 at0011 = ╱6d╱m╱ // 0x2ad1 @0x11
0x2ac0…2ae0 at0012 = ╱65╱e╱ // 0x2ad2 @0x12
0x2ac0…2ae0 at0013 = ╱72╱r╱ // 0x2ad3 @0x13
0x2ac0…2ae0 at0014 = ╱20╱…╱ // 0x2ad4 @0x14
0x2ac0…2ae0 at0015 = ╱20╱…╱ // 0x2ad5 @0x15
0x2ac0…2ae0 at0016 = ╱20╱…╱ // 0x2ad6 @0x16
0x2ac0…2ae0 at0017 = ╱20╱…╱ // 0x2ad7 @0x17
0x2ac0…2ae0 at0018 = ╱20╱…╱ // 0x2ad8 @0x18
0x2ac0…2ae0 at0019 = ╱20╱…╱ // 0x2ad9 @0x19
0x2ac0…2ae0 at001a = ╱20╱…╱ // 0x2ada @0x1a
0x2ac0…2ae0 at001b = ╱20╱…╱ // 0x2adb @0x1b
0x2ac0…2ae0 at001c = ╱20╱…╱ // 0x2adc @0x1c
0x2ac0…2ae0 at001d = ╱20╱…╱ // 0x2add @0x1d
0x2ac0…2ae0 at001e = ╱22╱"╱ // 0x2ade @0x1e
0x2ac0…2ae0 at001f = EOL // 0x2adf @0x1f
0x2ac0…2ae0 }
0x2ae0…2af5 b84c 4387 CURSOR 17,23
0x2ae0…2af5 LineComalBin {
0x2ae0…2af5 ptr = 0xb84c // 0x2ae0 @0x0
0x2ae0…2af5 lno = 0x1123 // 0x2ae2 @0x2
0x2ae0…2af5 at0004 = ╱a1╱ CURSOR ╱ // 0x2ae4 @0x4
0x2ae0…2af5 at0005 = ╱31╱1╱ // 0x2ae5 @0x5
0x2ae0…2af5 at0006 = ╱37╱7╱ // 0x2ae6 @0x6
0x2ae0…2af5 at0007 = ╱fe00008805╱ // 0x2ae7 @0x7
0x2ae0…2af5 at000c = ╱ec╱,╱ // 0x2aec @0xc
0x2ae0…2af5 at000d = ╱32╱2╱ // 0x2aed @0xd
0x2ae0…2af5 at000e = ╱33╱3╱ // 0x2aee @0xe
0x2ae0…2af5 at000f = ╱fe0000b805╱ // 0x2aef @0xf
0x2ae0…2af5 at0014 = EOL // 0x2af4 @0x14
0x2ae0…2af5 }
0x2af5…2b00 b857 4388 INPUT TAL1$
0x2af5…2b00 LineComalBin {
0x2af5…2b00 ptr = 0xb857 // 0x2af5 @0x0
0x2af5…2b00 lno = 0x1124 // 0x2af7 @0x2
0x2af5…2b00 at0004 = ╱91╱ INPUT ╱ // 0x2af9 @0x4
0x2af5…2b00 at0005 = ╱54╱T╱ // 0x2afa @0x5
0x2af5…2b00 at0006 = ╱41╱A╱ // 0x2afb @0x6
0x2af5…2b00 at0007 = ╱4c╱L╱ // 0x2afc @0x7
0x2af5…2b00 at0008 = ╱31╱1╱ // 0x2afd @0x8
0x2af5…2b00 at0009 = ╱ef╱$╱ // 0x2afe @0x9
0x2af5…2b00 at000a = EOL // 0x2aff @0xa
0x2af5…2b00 }
0x2b00…2b13 b86a 4389 EXEC NRTEST(TAL1$)
0x2b00…2b13 LineComalBin {
0x2b00…2b13 ptr = 0xb86a // 0x2b00 @0x0
0x2b00…2b13 lno = 0x1125 // 0x2b02 @0x2
0x2b00…2b13 at0004 = ╱9d╱ EXEC ╱ // 0x2b04 @0x4
0x2b00…2b13 at0005 = ╱4e╱N╱ // 0x2b05 @0x5
0x2b00…2b13 at0006 = ╱52╱R╱ // 0x2b06 @0x6
0x2b00…2b13 at0007 = ╱54╱T╱ // 0x2b07 @0x7
0x2b00…2b13 at0008 = ╱45╱E╱ // 0x2b08 @0x8
0x2b00…2b13 at0009 = ╱53╱S╱ // 0x2b09 @0x9
0x2b00…2b13 at000a = ╱54╱T╱ // 0x2b0a @0xa
0x2b00…2b13 at000b = ╱ed╱(╱ // 0x2b0b @0xb
0x2b00…2b13 at000c = ╱54╱T╱ // 0x2b0c @0xc
0x2b00…2b13 at000d = ╱41╱A╱ // 0x2b0d @0xd
0x2b00…2b13 at000e = ╱4c╱L╱ // 0x2b0e @0xe
0x2b00…2b13 at000f = ╱31╱1╱ // 0x2b0f @0xf
0x2b00…2b13 at0010 = ╱ef╱$╱ // 0x2b10 @0x10
0x2b00…2b13 at0011 = ╱ee╱)╱ // 0x2b11 @0x11
0x2b00…2b13 at0012 = EOL // 0x2b12 @0x12
0x2b00…2b13 }
0x2b13…2b27 b87e 4390 UNTIL P=>KONT AND TEST2=B
0x2b13…2b27 LineComalBin {
0x2b13…2b27 ptr = 0xb87e // 0x2b13 @0x0
0x2b13…2b27 lno = 0x1126 // 0x2b15 @0x2
0x2b13…2b27 at0004 = ╱98╱ UNTIL ╱ // 0x2b17 @0x4
0x2b13…2b27 at0005 = ╱50╱P╱ // 0x2b18 @0x5
0x2b13…2b27 at0006 = ╱e0╱=>╱ // 0x2b19 @0x6
0x2b13…2b27 at0007 = ╱4b╱K╱ // 0x2b1a @0x7
0x2b13…2b27 at0008 = ╱4f╱O╱ // 0x2b1b @0x8
0x2b13…2b27 at0009 = ╱4e╱N╱ // 0x2b1c @0x9
0x2b13…2b27 at000a = ╱54╱T╱ // 0x2b1d @0xa
0x2b13…2b27 at000b = ╱da╱ AND ╱ // 0x2b1e @0xb
0x2b13…2b27 at000c = ╱54╱T╱ // 0x2b1f @0xc
0x2b13…2b27 at000d = ╱45╱E╱ // 0x2b20 @0xd
0x2b13…2b27 at000e = ╱53╱S╱ // 0x2b21 @0xe
0x2b13…2b27 at000f = ╱54╱T╱ // 0x2b22 @0xf
0x2b13…2b27 at0010 = ╱32╱2╱ // 0x2b23 @0x10
0x2b13…2b27 at0011 = ╱dc╱=╱ // 0x2b24 @0x11
0x2b13…2b27 at0012 = ╱42╱B╱ // 0x2b25 @0x12
0x2b13…2b27 at0013 = EOL // 0x2b26 @0x13
0x2b13…2b27 }
0x2b27…2b4b b8a2 4391 EXEC FINDPOST(VTAB,MVANTAL,P,VPIL3)
0x2b27…2b4b LineComalBin {
0x2b27…2b4b ptr = 0xb8a2 // 0x2b27 @0x0
0x2b27…2b4b lno = 0x1127 // 0x2b29 @0x2
0x2b27…2b4b at0004 = ╱9d╱ EXEC ╱ // 0x2b2b @0x4
0x2b27…2b4b at0005 = ╱46╱F╱ // 0x2b2c @0x5
0x2b27…2b4b at0006 = ╱49╱I╱ // 0x2b2d @0x6
0x2b27…2b4b at0007 = ╱4e╱N╱ // 0x2b2e @0x7
0x2b27…2b4b at0008 = ╱44╱D╱ // 0x2b2f @0x8
0x2b27…2b4b at0009 = ╱50╱P╱ // 0x2b30 @0x9
0x2b27…2b4b at000a = ╱4f╱O╱ // 0x2b31 @0xa
0x2b27…2b4b at000b = ╱53╱S╱ // 0x2b32 @0xb
0x2b27…2b4b at000c = ╱54╱T╱ // 0x2b33 @0xc
0x2b27…2b4b at000d = ╱ed╱(╱ // 0x2b34 @0xd
0x2b27…2b4b at000e = ╱56╱V╱ // 0x2b35 @0xe
0x2b27…2b4b at000f = ╱54╱T╱ // 0x2b36 @0xf
0x2b27…2b4b at0010 = ╱41╱A╱ // 0x2b37 @0x10
0x2b27…2b4b at0011 = ╱42╱B╱ // 0x2b38 @0x11
0x2b27…2b4b at0012 = ╱ec╱,╱ // 0x2b39 @0x12
0x2b27…2b4b at0013 = ╱4d╱M╱ // 0x2b3a @0x13
0x2b27…2b4b at0014 = ╱56╱V╱ // 0x2b3b @0x14
0x2b27…2b4b at0015 = ╱41╱A╱ // 0x2b3c @0x15
0x2b27…2b4b at0016 = ╱4e╱N╱ // 0x2b3d @0x16
0x2b27…2b4b at0017 = ╱54╱T╱ // 0x2b3e @0x17
0x2b27…2b4b at0018 = ╱41╱A╱ // 0x2b3f @0x18
0x2b27…2b4b at0019 = ╱4c╱L╱ // 0x2b40 @0x19
0x2b27…2b4b at001a = ╱ec╱,╱ // 0x2b41 @0x1a
0x2b27…2b4b at001b = ╱50╱P╱ // 0x2b42 @0x1b
0x2b27…2b4b at001c = ╱ec╱,╱ // 0x2b43 @0x1c
0x2b27…2b4b at001d = ╱56╱V╱ // 0x2b44 @0x1d
0x2b27…2b4b at001e = ╱50╱P╱ // 0x2b45 @0x1e
0x2b27…2b4b at001f = ╱49╱I╱ // 0x2b46 @0x1f
0x2b27…2b4b at0020 = ╱4c╱L╱ // 0x2b47 @0x20
0x2b27…2b4b at0021 = ╱33╱3╱ // 0x2b48 @0x21
0x2b27…2b4b at0022 = ╱ee╱)╱ // 0x2b49 @0x22
0x2b27…2b4b at0023 = EOL // 0x2b4a @0x23
0x2b27…2b4b }
0x2b4b…2b6e b8c5 4392 IF VTAB(VPIL3,E)>P THEN VPIL3=VPIL3-E
0x2b4b…2b6e LineComalBin {
0x2b4b…2b6e ptr = 0xb8c5 // 0x2b4b @0x0
0x2b4b…2b6e lno = 0x1128 // 0x2b4d @0x2
0x2b4b…2b6e at0004 = ╱82╱ IF ╱ // 0x2b4f @0x4
0x2b4b…2b6e at0005 = ╱56╱V╱ // 0x2b50 @0x5
0x2b4b…2b6e at0006 = ╱54╱T╱ // 0x2b51 @0x6
0x2b4b…2b6e at0007 = ╱41╱A╱ // 0x2b52 @0x7
0x2b4b…2b6e at0008 = ╱42╱B╱ // 0x2b53 @0x8
0x2b4b…2b6e at0009 = ╱ed╱(╱ // 0x2b54 @0x9
0x2b4b…2b6e at000a = ╱56╱V╱ // 0x2b55 @0xa
0x2b4b…2b6e at000b = ╱50╱P╱ // 0x2b56 @0xb
0x2b4b…2b6e at000c = ╱49╱I╱ // 0x2b57 @0xc
0x2b4b…2b6e at000d = ╱4c╱L╱ // 0x2b58 @0xd
0x2b4b…2b6e at000e = ╱33╱3╱ // 0x2b59 @0xe
0x2b4b…2b6e at000f = ╱ec╱,╱ // 0x2b5a @0xf
0x2b4b…2b6e at0010 = ╱45╱E╱ // 0x2b5b @0x10
0x2b4b…2b6e at0011 = ╱ee╱)╱ // 0x2b5c @0x11
0x2b4b…2b6e at0012 = ╱de╱>╱ // 0x2b5d @0x12
0x2b4b…2b6e at0013 = ╱50╱P╱ // 0x2b5e @0x13
0x2b4b…2b6e at0014 = ╱b6╱ THEN ╱ // 0x2b5f @0x14
0x2b4b…2b6e at0015 = ╱56╱V╱ // 0x2b60 @0x15
0x2b4b…2b6e at0016 = ╱50╱P╱ // 0x2b61 @0x16
0x2b4b…2b6e at0017 = ╱49╱I╱ // 0x2b62 @0x17
0x2b4b…2b6e at0018 = ╱4c╱L╱ // 0x2b63 @0x18
0x2b4b…2b6e at0019 = ╱33╱3╱ // 0x2b64 @0x19
0x2b4b…2b6e at001a = ╱dc╱=╱ // 0x2b65 @0x1a
0x2b4b…2b6e at001b = ╱56╱V╱ // 0x2b66 @0x1b
0x2b4b…2b6e at001c = ╱50╱P╱ // 0x2b67 @0x1c
0x2b4b…2b6e at001d = ╱49╱I╱ // 0x2b68 @0x1d
0x2b4b…2b6e at001e = ╱4c╱L╱ // 0x2b69 @0x1e
0x2b4b…2b6e at001f = ╱33╱3╱ // 0x2b6a @0x1f
0x2b4b…2b6e at0020 = ╱e3╱-╱ // 0x2b6b @0x20
0x2b4b…2b6e at0021 = ╱45╱E╱ // 0x2b6c @0x21
0x2b4b…2b6e at0022 = EOL // 0x2b6d @0x22
0x2b4b…2b6e }
0x2b6e…2b7c b8d3 4393 TIL=VPIL3
0x2b6e…2b7c LineComalBin {
0x2b6e…2b7c ptr = 0xb8d3 // 0x2b6e @0x0
0x2b6e…2b7c lno = 0x1129 // 0x2b70 @0x2
0x2b6e…2b7c at0004 = ╱54╱T╱ // 0x2b72 @0x4
0x2b6e…2b7c at0005 = ╱49╱I╱ // 0x2b73 @0x5
0x2b6e…2b7c at0006 = ╱4c╱L╱ // 0x2b74 @0x6
0x2b6e…2b7c at0007 = ╱dc╱=╱ // 0x2b75 @0x7
0x2b6e…2b7c at0008 = ╱56╱V╱ // 0x2b76 @0x8
0x2b6e…2b7c at0009 = ╱50╱P╱ // 0x2b77 @0x9
0x2b6e…2b7c at000a = ╱49╱I╱ // 0x2b78 @0xa
0x2b6e…2b7c at000b = ╱4c╱L╱ // 0x2b79 @0xb
0x2b6e…2b7c at000c = ╱33╱3╱ // 0x2b7a @0xc
0x2b6e…2b7c at000d = EOL // 0x2b7b @0xd
0x2b6e…2b7c }
0x2b7c…2b82 b8d9 4394 ENDIF
0x2b7c…2b82 LineComalBin {
0x2b7c…2b82 ptr = 0xb8d9 // 0x2b7c @0x0
0x2b7c…2b82 lno = 0x112a // 0x2b7e @0x2
0x2b7c…2b82 at0004 = ╱9b╱ ENDIF ╱ // 0x2b80 @0x4
0x2b7c…2b82 at0005 = EOL // 0x2b81 @0x5
0x2b7c…2b82 }
0x2b82…2b88 b8df 4395 REPEAT
0x2b82…2b88 LineComalBin {
0x2b82…2b88 ptr = 0xb8df // 0x2b82 @0x0
0x2b82…2b88 lno = 0x112b // 0x2b84 @0x2
0x2b82…2b88 at0004 = ╱97╱ REPEAT ╱ // 0x2b86 @0x4
0x2b82…2b88 at0005 = EOL // 0x2b87 @0x5
0x2b82…2b88 }
0x2b88…2b8e b8e5 4396 CLEAR
0x2b88…2b8e LineComalBin {
0x2b88…2b8e ptr = 0xb8e5 // 0x2b88 @0x0
0x2b88…2b8e lno = 0x112c // 0x2b8a @0x2
0x2b88…2b8e at0004 = ╱a0╱ CLEAR ╱ // 0x2b8c @0x4
0x2b88…2b8e at0005 = EOL // 0x2b8d @0x5
0x2b88…2b8e }
0x2b8e…2ba3 b8fa 4399 CURSOR 15,13
0x2b8e…2ba3 LineComalBin {
0x2b8e…2ba3 ptr = 0xb8fa // 0x2b8e @0x0
0x2b8e…2ba3 lno = 0x112f // 0x2b90 @0x2
0x2b8e…2ba3 at0004 = ╱a1╱ CURSOR ╱ // 0x2b92 @0x4
0x2b8e…2ba3 at0005 = ╱31╱1╱ // 0x2b93 @0x5
0x2b8e…2ba3 at0006 = ╱35╱5╱ // 0x2b94 @0x6
0x2b8e…2ba3 at0007 = ╱fe0000f004╱ // 0x2b95 @0x7
0x2b8e…2ba3 at000c = ╱ec╱,╱ // 0x2b9a @0xc
0x2b8e…2ba3 at000d = ╱31╱1╱ // 0x2b9b @0xd
0x2b8e…2ba3 at000e = ╱33╱3╱ // 0x2b9c @0xe
0x2b8e…2ba3 at000f = ╱fe0000d004╱ // 0x2b9d @0xf
0x2b8e…2ba3 at0014 = EOL // 0x2ba2 @0x14
0x2b8e…2ba3 }
0x2ba3…2bda b931 4400 INPUT "Monter papir til udskrift og tast RETURN",SVAR1$
0x2ba3…2bda LineComalBin {
0x2ba3…2bda ptr = 0xb931 // 0x2ba3 @0x0
0x2ba3…2bda lno = 0x1130 // 0x2ba5 @0x2
0x2ba3…2bda at0004 = ╱91╱ INPUT ╱ // 0x2ba7 @0x4
0x2ba3…2bda at0005 = ╱22╱"╱ // 0x2ba8 @0x5
0x2ba3…2bda at0006 = ╱4d╱M╱ // 0x2ba9 @0x6
0x2ba3…2bda at0007 = ╱6f╱o╱ // 0x2baa @0x7
0x2ba3…2bda at0008 = ╱6e╱n╱ // 0x2bab @0x8
0x2ba3…2bda at0009 = ╱74╱t╱ // 0x2bac @0x9
0x2ba3…2bda at000a = ╱65╱e╱ // 0x2bad @0xa
0x2ba3…2bda at000b = ╱72╱r╱ // 0x2bae @0xb
0x2ba3…2bda at000c = ╱20╱…╱ // 0x2baf @0xc
0x2ba3…2bda at000d = ╱70╱p╱ // 0x2bb0 @0xd
0x2ba3…2bda at000e = ╱61╱a╱ // 0x2bb1 @0xe
0x2ba3…2bda at000f = ╱70╱p╱ // 0x2bb2 @0xf
0x2ba3…2bda at0010 = ╱69╱i╱ // 0x2bb3 @0x10
0x2ba3…2bda at0011 = ╱72╱r╱ // 0x2bb4 @0x11
0x2ba3…2bda at0012 = ╱20╱…╱ // 0x2bb5 @0x12
0x2ba3…2bda at0013 = ╱74╱t╱ // 0x2bb6 @0x13
0x2ba3…2bda at0014 = ╱69╱i╱ // 0x2bb7 @0x14
0x2ba3…2bda at0015 = ╱6c╱l╱ // 0x2bb8 @0x15
0x2ba3…2bda at0016 = ╱20╱…╱ // 0x2bb9 @0x16
0x2ba3…2bda at0017 = ╱75╱u╱ // 0x2bba @0x17
0x2ba3…2bda at0018 = ╱64╱d╱ // 0x2bbb @0x18
0x2ba3…2bda at0019 = ╱73╱s╱ // 0x2bbc @0x19
0x2ba3…2bda at001a = ╱6b╱k╱ // 0x2bbd @0x1a
0x2ba3…2bda at001b = ╱72╱r╱ // 0x2bbe @0x1b
0x2ba3…2bda at001c = ╱69╱i╱ // 0x2bbf @0x1c
0x2ba3…2bda at001d = ╱66╱f╱ // 0x2bc0 @0x1d
0x2ba3…2bda at001e = ╱74╱t╱ // 0x2bc1 @0x1e
0x2ba3…2bda at001f = ╱20╱…╱ // 0x2bc2 @0x1f
0x2ba3…2bda at0020 = ╱6f╱o╱ // 0x2bc3 @0x20
0x2ba3…2bda at0021 = ╱67╱g╱ // 0x2bc4 @0x21
0x2ba3…2bda at0022 = ╱20╱…╱ // 0x2bc5 @0x22
0x2ba3…2bda at0023 = ╱74╱t╱ // 0x2bc6 @0x23
0x2ba3…2bda at0024 = ╱61╱a╱ // 0x2bc7 @0x24
0x2ba3…2bda at0025 = ╱73╱s╱ // 0x2bc8 @0x25
0x2ba3…2bda at0026 = ╱74╱t╱ // 0x2bc9 @0x26
0x2ba3…2bda at0027 = ╱20╱…╱ // 0x2bca @0x27
0x2ba3…2bda at0028 = ╱52╱R╱ // 0x2bcb @0x28
0x2ba3…2bda at0029 = ╱45╱E╱ // 0x2bcc @0x29
0x2ba3…2bda at002a = ╱54╱T╱ // 0x2bcd @0x2a
0x2ba3…2bda at002b = ╱55╱U╱ // 0x2bce @0x2b
0x2ba3…2bda at002c = ╱52╱R╱ // 0x2bcf @0x2c
0x2ba3…2bda at002d = ╱4e╱N╱ // 0x2bd0 @0x2d
0x2ba3…2bda at002e = ╱22╱"╱ // 0x2bd1 @0x2e
0x2ba3…2bda at002f = ╱ec╱,╱ // 0x2bd2 @0x2f
0x2ba3…2bda at0030 = ╱53╱S╱ // 0x2bd3 @0x30
0x2ba3…2bda at0031 = ╱56╱V╱ // 0x2bd4 @0x31
0x2ba3…2bda at0032 = ╱41╱A╱ // 0x2bd5 @0x32
0x2ba3…2bda at0033 = ╱52╱R╱ // 0x2bd6 @0x33
0x2ba3…2bda at0034 = ╱31╱1╱ // 0x2bd7 @0x34
0x2ba3…2bda at0035 = ╱ef╱$╱ // 0x2bd8 @0x35
0x2ba3…2bda at0036 = EOL // 0x2bd9 @0x36
0x2ba3…2bda }
0x2bda…2bf2 b949 4405 UNTIL ORD(SVAR1$)=255
0x2bda…2bf2 LineComalBin {
0x2bda…2bf2 ptr = 0xb949 // 0x2bda @0x0
0x2bda…2bf2 lno = 0x1135 // 0x2bdc @0x2
0x2bda…2bf2 at0004 = ╱98╱ UNTIL ╱ // 0x2bde @0x4
0x2bda…2bf2 at0005 = ╱cd╱ORD╱ // 0x2bdf @0x5
0x2bda…2bf2 at0006 = ╱ed╱(╱ // 0x2be0 @0x6
0x2bda…2bf2 at0007 = ╱53╱S╱ // 0x2be1 @0x7
0x2bda…2bf2 at0008 = ╱56╱V╱ // 0x2be2 @0x8
0x2bda…2bf2 at0009 = ╱41╱A╱ // 0x2be3 @0x9
0x2bda…2bf2 at000a = ╱52╱R╱ // 0x2be4 @0xa
0x2bda…2bf2 at000b = ╱31╱1╱ // 0x2be5 @0xb
0x2bda…2bf2 at000c = ╱ef╱$╱ // 0x2be6 @0xc
0x2bda…2bf2 at000d = ╱ee╱)╱ // 0x2be7 @0xd
0x2bda…2bf2 at000e = ╱dc╱=╱ // 0x2be8 @0xe
0x2bda…2bf2 at000f = ╱32╱2╱ // 0x2be9 @0xf
0x2bda…2bf2 at0010 = ╱35╱5╱ // 0x2bea @0x10
0x2bda…2bf2 at0011 = ╱35╱5╱ // 0x2beb @0x11
0x2bda…2bf2 at0012 = ╱fe0000ff08╱ // 0x2bec @0x12
0x2bda…2bf2 at0017 = EOL // 0x2bf1 @0x17
0x2bda…2bf2 }
0x2bf2…2bf9 b950 4410 OUTPUT P
0x2bf2…2bf9 LineComalBin {
0x2bf2…2bf9 ptr = 0xb950 // 0x2bf2 @0x0
0x2bf2…2bf9 lno = 0x113a // 0x2bf4 @0x2
0x2bf2…2bf9 at0004 = ╱a5╱ OUTPUT ╱ // 0x2bf6 @0x4
0x2bf2…2bf9 at0005 = ╱50╱P╱ // 0x2bf7 @0x5
0x2bf2…2bf9 at0006 = EOL // 0x2bf8 @0x6
0x2bf2…2bf9 }
0x2bf9…2c10 b967 4450 FOR I=FRA TO TIL STEP 40
0x2bf9…2c10 LineComalBin {
0x2bf9…2c10 ptr = 0xb967 // 0x2bf9 @0x0
0x2bf9…2c10 lno = 0x1162 // 0x2bfb @0x2
0x2bf9…2c10 at0004 = ╱83╱ FOR ╱ // 0x2bfd @0x4
0x2bf9…2c10 at0005 = ╱49╱I╱ // 0x2bfe @0x5
0x2bf9…2c10 at0006 = ╱dc╱=╱ // 0x2bff @0x6
0x2bf9…2c10 at0007 = ╱46╱F╱ // 0x2c00 @0x7
0x2bf9…2c10 at0008 = ╱52╱R╱ // 0x2c01 @0x8
0x2bf9…2c10 at0009 = ╱41╱A╱ // 0x2c02 @0x9
0x2bf9…2c10 at000a = ╱b7╱ TO ╱ // 0x2c03 @0xa
0x2bf9…2c10 at000b = ╱54╱T╱ // 0x2c04 @0xb
0x2bf9…2c10 at000c = ╱49╱I╱ // 0x2c05 @0xc
0x2bf9…2c10 at000d = ╱4c╱L╱ // 0x2c06 @0xd
0x2bf9…2c10 at000e = ╱b8╱ STEP ╱ // 0x2c07 @0xe
0x2bf9…2c10 at000f = ╱34╱4╱ // 0x2c08 @0xf
0x2bf9…2c10 at0010 = ╱30╱0╱ // 0x2c09 @0x10
0x2bf9…2c10 at0011 = ╱fe0000a006╱ // 0x2c0a @0x11
0x2bf9…2c10 at0016 = EOL // 0x2c0f @0x16
0x2bf9…2c10 }
0x2c10…2c1e b975 4460 EXEC OVERSKRI
0x2c10…2c1e LineComalBin {
0x2c10…2c1e ptr = 0xb975 // 0x2c10 @0x0
0x2c10…2c1e lno = 0x116c // 0x2c12 @0x2
0x2c10…2c1e at0004 = ╱9d╱ EXEC ╱ // 0x2c14 @0x4
0x2c10…2c1e at0005 = ╱4f╱O╱ // 0x2c15 @0x5
0x2c10…2c1e at0006 = ╱56╱V╱ // 0x2c16 @0x6
0x2c10…2c1e at0007 = ╱45╱E╱ // 0x2c17 @0x7
0x2c10…2c1e at0008 = ╱52╱R╱ // 0x2c18 @0x8
0x2c10…2c1e at0009 = ╱53╱S╱ // 0x2c19 @0x9
0x2c10…2c1e at000a = ╱4b╱K╱ // 0x2c1a @0xa
0x2c10…2c1e at000b = ╱52╱R╱ // 0x2c1b @0xb
0x2c10…2c1e at000c = ╱49╱I╱ // 0x2c1c @0xc
0x2c10…2c1e at000d = EOL // 0x2c1d @0xd
0x2c10…2c1e }
0x2c1e…2c35 b98c 4470 FOR VPIL3=I TO I+39
0x2c1e…2c35 LineComalBin {
0x2c1e…2c35 ptr = 0xb98c // 0x2c1e @0x0
0x2c1e…2c35 lno = 0x1176 // 0x2c20 @0x2
0x2c1e…2c35 at0004 = ╱83╱ FOR ╱ // 0x2c22 @0x4
0x2c1e…2c35 at0005 = ╱56╱V╱ // 0x2c23 @0x5
0x2c1e…2c35 at0006 = ╱50╱P╱ // 0x2c24 @0x6
0x2c1e…2c35 at0007 = ╱49╱I╱ // 0x2c25 @0x7
0x2c1e…2c35 at0008 = ╱4c╱L╱ // 0x2c26 @0x8
0x2c1e…2c35 at0009 = ╱33╱3╱ // 0x2c27 @0x9
0x2c1e…2c35 at000a = ╱dc╱=╱ // 0x2c28 @0xa
0x2c1e…2c35 at000b = ╱49╱I╱ // 0x2c29 @0xb
0x2c1e…2c35 at000c = ╱b7╱ TO ╱ // 0x2c2a @0xc
0x2c1e…2c35 at000d = ╱49╱I╱ // 0x2c2b @0xd
0x2c1e…2c35 at000e = ╱e2╱+╱ // 0x2c2c @0xe
0x2c1e…2c35 at000f = ╱33╱3╱ // 0x2c2d @0xf
0x2c1e…2c35 at0010 = ╱39╱9╱ // 0x2c2e @0x10
0x2c1e…2c35 at0011 = ╱fe00009c06╱ // 0x2c2f @0x11
0x2c1e…2c35 at0016 = EOL // 0x2c34 @0x16
0x2c1e…2c35 }
0x2c35…2c4b b9a2 4472 IF VTAB(VPIL3,E)>B THEN
0x2c35…2c4b LineComalBin {
0x2c35…2c4b ptr = 0xb9a2 // 0x2c35 @0x0
0x2c35…2c4b lno = 0x1178 // 0x2c37 @0x2
0x2c35…2c4b at0004 = ╱9c╱ IF ╱ // 0x2c39 @0x4
0x2c35…2c4b at0005 = ╱56╱V╱ // 0x2c3a @0x5
0x2c35…2c4b at0006 = ╱54╱T╱ // 0x2c3b @0x6
0x2c35…2c4b at0007 = ╱41╱A╱ // 0x2c3c @0x7
0x2c35…2c4b at0008 = ╱42╱B╱ // 0x2c3d @0x8
0x2c35…2c4b at0009 = ╱ed╱(╱ // 0x2c3e @0x9
0x2c35…2c4b at000a = ╱56╱V╱ // 0x2c3f @0xa
0x2c35…2c4b at000b = ╱50╱P╱ // 0x2c40 @0xb
0x2c35…2c4b at000c = ╱49╱I╱ // 0x2c41 @0xc
0x2c35…2c4b at000d = ╱4c╱L╱ // 0x2c42 @0xd
0x2c35…2c4b at000e = ╱33╱3╱ // 0x2c43 @0xe
0x2c35…2c4b at000f = ╱ec╱,╱ // 0x2c44 @0xf
0x2c35…2c4b at0010 = ╱45╱E╱ // 0x2c45 @0x10
0x2c35…2c4b at0011 = ╱ee╱)╱ // 0x2c46 @0x11
0x2c35…2c4b at0012 = ╱de╱>╱ // 0x2c47 @0x12
0x2c35…2c4b at0013 = ╱42╱B╱ // 0x2c48 @0x13
0x2c35…2c4b at0014 = ╱b6╱ THEN ╱ // 0x2c49 @0x14
0x2c35…2c4b at0015 = EOL // 0x2c4a @0x15
0x2c35…2c4b }
0x2c4b…2c5a b9b1 4473 EXEC HENTVPOST
0x2c4b…2c5a LineComalBin {
0x2c4b…2c5a ptr = 0xb9b1 // 0x2c4b @0x0
0x2c4b…2c5a lno = 0x1179 // 0x2c4d @0x2
0x2c4b…2c5a at0004 = ╱9d╱ EXEC ╱ // 0x2c4f @0x4
0x2c4b…2c5a at0005 = ╱48╱H╱ // 0x2c50 @0x5
0x2c4b…2c5a at0006 = ╱45╱E╱ // 0x2c51 @0x6
0x2c4b…2c5a at0007 = ╱4e╱N╱ // 0x2c52 @0x7
0x2c4b…2c5a at0008 = ╱54╱T╱ // 0x2c53 @0x8
0x2c4b…2c5a at0009 = ╱56╱V╱ // 0x2c54 @0x9
0x2c4b…2c5a at000a = ╱50╱P╱ // 0x2c55 @0xa
0x2c4b…2c5a at000b = ╱4f╱O╱ // 0x2c56 @0xb
0x2c4b…2c5a at000c = ╱53╱S╱ // 0x2c57 @0xc
0x2c4b…2c5a at000d = ╱54╱T╱ // 0x2c58 @0xd
0x2c4b…2c5a at000e = EOL // 0x2c59 @0xe
0x2c4b…2c5a }
0x2c5a…2c73 b9ca 4480 PRINT USING " #######":VARENR;
0x2c5a…2c73 LineComalBin {
0x2c5a…2c73 ptr = 0xb9ca // 0x2c5a @0x0
0x2c5a…2c73 lno = 0x1180 // 0x2c5c @0x2
0x2c5a…2c73 at0004 = ╱92╱ PRINT ╱ // 0x2c5e @0x4
0x2c5a…2c73 at0005 = ╱b9╱ USING ╱ // 0x2c5f @0x5
0x2c5a…2c73 at0006 = ╱22╱"╱ // 0x2c60 @0x6
0x2c5a…2c73 at0007 = ╱20╱…╱ // 0x2c61 @0x7
0x2c5a…2c73 at0008 = ╱23╱#╱ // 0x2c62 @0x8
0x2c5a…2c73 at0009 = ╱23╱#╱ // 0x2c63 @0x9
0x2c5a…2c73 at000a = ╱23╱#╱ // 0x2c64 @0xa
0x2c5a…2c73 at000b = ╱23╱#╱ // 0x2c65 @0xb
0x2c5a…2c73 at000c = ╱23╱#╱ // 0x2c66 @0xc
0x2c5a…2c73 at000d = ╱23╱#╱ // 0x2c67 @0xd
0x2c5a…2c73 at000e = ╱23╱#╱ // 0x2c68 @0xe
0x2c5a…2c73 at000f = ╱22╱"╱ // 0x2c69 @0xf
0x2c5a…2c73 at0010 = ╱f0╱:╱ // 0x2c6a @0x10
0x2c5a…2c73 at0011 = ╱56╱V╱ // 0x2c6b @0x11
0x2c5a…2c73 at0012 = ╱41╱A╱ // 0x2c6c @0x12
0x2c5a…2c73 at0013 = ╱52╱R╱ // 0x2c6d @0x13
0x2c5a…2c73 at0014 = ╱45╱E╱ // 0x2c6e @0x14
0x2c5a…2c73 at0015 = ╱4e╱N╱ // 0x2c6f @0x15
0x2c5a…2c73 at0016 = ╱52╱R╱ // 0x2c70 @0x16
0x2c5a…2c73 at0017 = ╱eb╱;╱ // 0x2c71 @0x17
0x2c5a…2c73 at0018 = EOL // 0x2c72 @0x18
0x2c5a…2c73 }
0x2c73…2cb8 ba0f 4490 PRINT TAB(13);VARTEKST$;TAB(45);VARPRIS$(E:11);TAB(61);
0x2c73…2cb8 LineComalBin {
0x2c73…2cb8 ptr = 0xba0f // 0x2c73 @0x0
0x2c73…2cb8 lno = 0x118a // 0x2c75 @0x2
0x2c73…2cb8 at0004 = ╱92╱ PRINT ╱ // 0x2c77 @0x4
0x2c73…2cb8 at0005 = ╱d2╱TAB╱ // 0x2c78 @0x5
0x2c73…2cb8 at0006 = ╱ed╱(╱ // 0x2c79 @0x6
0x2c73…2cb8 at0007 = ╱31╱1╱ // 0x2c7a @0x7
0x2c73…2cb8 at0008 = ╱33╱3╱ // 0x2c7b @0x8
0x2c73…2cb8 at0009 = ╱fe0000d004╱ // 0x2c7c @0x9
0x2c73…2cb8 at000e = ╱ee╱)╱ // 0x2c81 @0xe
0x2c73…2cb8 at000f = ╱eb╱;╱ // 0x2c82 @0xf
0x2c73…2cb8 at0010 = ╱56╱V╱ // 0x2c83 @0x10
0x2c73…2cb8 at0011 = ╱41╱A╱ // 0x2c84 @0x11
0x2c73…2cb8 at0012 = ╱52╱R╱ // 0x2c85 @0x12
0x2c73…2cb8 at0013 = ╱54╱T╱ // 0x2c86 @0x13
0x2c73…2cb8 at0014 = ╱45╱E╱ // 0x2c87 @0x14
0x2c73…2cb8 at0015 = ╱4b╱K╱ // 0x2c88 @0x15
0x2c73…2cb8 at0016 = ╱53╱S╱ // 0x2c89 @0x16
0x2c73…2cb8 at0017 = ╱54╱T╱ // 0x2c8a @0x17
0x2c73…2cb8 at0018 = ╱ef╱$╱ // 0x2c8b @0x18
0x2c73…2cb8 at0019 = ╱eb╱;╱ // 0x2c8c @0x19
0x2c73…2cb8 at001a = ╱d2╱TAB╱ // 0x2c8d @0x1a
0x2c73…2cb8 at001b = ╱ed╱(╱ // 0x2c8e @0x1b
0x2c73…2cb8 at001c = ╱34╱4╱ // 0x2c8f @0x1c
0x2c73…2cb8 at001d = ╱35╱5╱ // 0x2c90 @0x1d
0x2c73…2cb8 at001e = ╱fe0000b406╱ // 0x2c91 @0x1e
0x2c73…2cb8 at0023 = ╱ee╱)╱ // 0x2c96 @0x23
0x2c73…2cb8 at0024 = ╱eb╱;╱ // 0x2c97 @0x24
0x2c73…2cb8 at0025 = ╱56╱V╱ // 0x2c98 @0x25
0x2c73…2cb8 at0026 = ╱41╱A╱ // 0x2c99 @0x26
0x2c73…2cb8 at0027 = ╱52╱R╱ // 0x2c9a @0x27
0x2c73…2cb8 at0028 = ╱50╱P╱ // 0x2c9b @0x28
0x2c73…2cb8 at0029 = ╱52╱R╱ // 0x2c9c @0x29
0x2c73…2cb8 at002a = ╱49╱I╱ // 0x2c9d @0x2a
0x2c73…2cb8 at002b = ╱53╱S╱ // 0x2c9e @0x2b
0x2c73…2cb8 at002c = ╱ef╱$╱ // 0x2c9f @0x2c
0x2c73…2cb8 at002d = ╱ed╱(╱ // 0x2ca0 @0x2d
0x2c73…2cb8 at002e = ╱45╱E╱ // 0x2ca1 @0x2e
0x2c73…2cb8 at002f = ╱f0╱:╱ // 0x2ca2 @0x2f
0x2c73…2cb8 at0030 = ╱31╱1╱ // 0x2ca3 @0x30
0x2c73…2cb8 at0031 = ╱31╱1╱ // 0x2ca4 @0x31
0x2c73…2cb8 at0032 = ╱fe0000b004╱ // 0x2ca5 @0x32
0x2c73…2cb8 at0037 = ╱ee╱)╱ // 0x2caa @0x37
0x2c73…2cb8 at0038 = ╱eb╱;╱ // 0x2cab @0x38
0x2c73…2cb8 at0039 = ╱d2╱TAB╱ // 0x2cac @0x39
0x2c73…2cb8 at003a = ╱ed╱(╱ // 0x2cad @0x3a
0x2c73…2cb8 at003b = ╱36╱6╱ // 0x2cae @0x3b
0x2c73…2cb8 at003c = ╱31╱1╱ // 0x2caf @0x3c
0x2c73…2cb8 at003d = ╱fe0000f406╱ // 0x2cb0 @0x3d
0x2c73…2cb8 at0042 = ╱ee╱)╱ // 0x2cb5 @0x42
0x2c73…2cb8 at0043 = ╱eb╱;╱ // 0x2cb6 @0x43
0x2c73…2cb8 at0044 = EOL // 0x2cb7 @0x44
0x2c73…2cb8 }
0x2cb8…2ce0 ba37 4500 PRINT USING "####### #######":VARKONT,UNDKONT
0x2cb8…2ce0 LineComalBin {
0x2cb8…2ce0 ptr = 0xba37 // 0x2cb8 @0x0
0x2cb8…2ce0 lno = 0x1194 // 0x2cba @0x2
0x2cb8…2ce0 at0004 = ╱92╱ PRINT ╱ // 0x2cbc @0x4
0x2cb8…2ce0 at0005 = ╱b9╱ USING ╱ // 0x2cbd @0x5
0x2cb8…2ce0 at0006 = ╱22╱"╱ // 0x2cbe @0x6
0x2cb8…2ce0 at0007 = ╱23╱#╱ // 0x2cbf @0x7
0x2cb8…2ce0 at0008 = ╱23╱#╱ // 0x2cc0 @0x8
0x2cb8…2ce0 at0009 = ╱23╱#╱ // 0x2cc1 @0x9
0x2cb8…2ce0 at000a = ╱23╱#╱ // 0x2cc2 @0xa
0x2cb8…2ce0 at000b = ╱23╱#╱ // 0x2cc3 @0xb
0x2cb8…2ce0 at000c = ╱23╱#╱ // 0x2cc4 @0xc
0x2cb8…2ce0 at000d = ╱23╱#╱ // 0x2cc5 @0xd
0x2cb8…2ce0 at000e = ╱20╱…╱ // 0x2cc6 @0xe
0x2cb8…2ce0 at000f = ╱23╱#╱ // 0x2cc7 @0xf
0x2cb8…2ce0 at0010 = ╱23╱#╱ // 0x2cc8 @0x10
0x2cb8…2ce0 at0011 = ╱23╱#╱ // 0x2cc9 @0x11
0x2cb8…2ce0 at0012 = ╱23╱#╱ // 0x2cca @0x12
0x2cb8…2ce0 at0013 = ╱23╱#╱ // 0x2ccb @0x13
0x2cb8…2ce0 at0014 = ╱23╱#╱ // 0x2ccc @0x14
0x2cb8…2ce0 at0015 = ╱23╱#╱ // 0x2ccd @0x15
0x2cb8…2ce0 at0016 = ╱22╱"╱ // 0x2cce @0x16
0x2cb8…2ce0 at0017 = ╱f0╱:╱ // 0x2ccf @0x17
0x2cb8…2ce0 at0018 = ╱56╱V╱ // 0x2cd0 @0x18
0x2cb8…2ce0 at0019 = ╱41╱A╱ // 0x2cd1 @0x19
0x2cb8…2ce0 at001a = ╱52╱R╱ // 0x2cd2 @0x1a
0x2cb8…2ce0 at001b = ╱4b╱K╱ // 0x2cd3 @0x1b
0x2cb8…2ce0 at001c = ╱4f╱O╱ // 0x2cd4 @0x1c
0x2cb8…2ce0 at001d = ╱4e╱N╱ // 0x2cd5 @0x1d
0x2cb8…2ce0 at001e = ╱54╱T╱ // 0x2cd6 @0x1e
0x2cb8…2ce0 at001f = ╱ec╱,╱ // 0x2cd7 @0x1f
0x2cb8…2ce0 at0020 = ╱55╱U╱ // 0x2cd8 @0x20
0x2cb8…2ce0 at0021 = ╱4e╱N╱ // 0x2cd9 @0x21
0x2cb8…2ce0 at0022 = ╱44╱D╱ // 0x2cda @0x22
0x2cb8…2ce0 at0023 = ╱4b╱K╱ // 0x2cdb @0x23
0x2cb8…2ce0 at0024 = ╱4f╱O╱ // 0x2cdc @0x24
0x2cb8…2ce0 at0025 = ╱4e╱N╱ // 0x2cdd @0x25
0x2cb8…2ce0 at0026 = ╱54╱T╱ // 0x2cde @0x26
0x2cb8…2ce0 at0027 = EOL // 0x2cdf @0x27
0x2cb8…2ce0 }
0x2ce0…2ce6 ba3d 4510 ENDIF
0x2ce0…2ce6 LineComalBin {
0x2ce0…2ce6 ptr = 0xba3d // 0x2ce0 @0x0
0x2ce0…2ce6 lno = 0x119e // 0x2ce2 @0x2
0x2ce0…2ce6 at0004 = ╱9b╱ ENDIF ╱ // 0x2ce4 @0x4
0x2ce0…2ce6 at0005 = EOL // 0x2ce5 @0x5
0x2ce0…2ce6 }
0x2ce6…2cf7 ba4e 4520 IF VPIL3=TIL THEN EXIT
0x2ce6…2cf7 LineComalBin {
0x2ce6…2cf7 ptr = 0xba4e // 0x2ce6 @0x0
0x2ce6…2cf7 lno = 0x11a8 // 0x2ce8 @0x2
0x2ce6…2cf7 at0004 = ╱82╱ IF ╱ // 0x2cea @0x4
0x2ce6…2cf7 at0005 = ╱56╱V╱ // 0x2ceb @0x5
0x2ce6…2cf7 at0006 = ╱50╱P╱ // 0x2cec @0x6
0x2ce6…2cf7 at0007 = ╱49╱I╱ // 0x2ced @0x7
0x2ce6…2cf7 at0008 = ╱4c╱L╱ // 0x2cee @0x8
0x2ce6…2cf7 at0009 = ╱33╱3╱ // 0x2cef @0x9
0x2ce6…2cf7 at000a = ╱dc╱=╱ // 0x2cf0 @0xa
0x2ce6…2cf7 at000b = ╱54╱T╱ // 0x2cf1 @0xb
0x2ce6…2cf7 at000c = ╱49╱I╱ // 0x2cf2 @0xc
0x2ce6…2cf7 at000d = ╱4c╱L╱ // 0x2cf3 @0xd
0x2ce6…2cf7 at000e = ╱b6╱ THEN ╱ // 0x2cf4 @0xe
0x2ce6…2cf7 at000f = ╱99╱ EXIT ╱ // 0x2cf5 @0xf
0x2ce6…2cf7 at0010 = EOL // 0x2cf6 @0x10
0x2ce6…2cf7 }
0x2cf7…2d02 ba59 4530 NEXT VPIL3
0x2cf7…2d02 LineComalBin {
0x2cf7…2d02 ptr = 0xba59 // 0x2cf7 @0x0
0x2cf7…2d02 lno = 0x11b2 // 0x2cf9 @0x2
0x2cf7…2d02 at0004 = ╱84╱ NEXT ╱ // 0x2cfb @0x4
0x2cf7…2d02 at0005 = ╱56╱V╱ // 0x2cfc @0x5
0x2cf7…2d02 at0006 = ╱50╱P╱ // 0x2cfd @0x6
0x2cf7…2d02 at0007 = ╱49╱I╱ // 0x2cfe @0x7
0x2cf7…2d02 at0008 = ╱4c╱L╱ // 0x2cff @0x8
0x2cf7…2d02 at0009 = ╱33╱3╱ // 0x2d00 @0x9
0x2cf7…2d02 at000a = EOL // 0x2d01 @0xa
0x2cf7…2d02 }
0x2d02…2d1d ba74 4532 PRINT CHR(10);CHR(10)
0x2d02…2d1d LineComalBin {
0x2d02…2d1d ptr = 0xba74 // 0x2d02 @0x0
0x2d02…2d1d lno = 0x11b4 // 0x2d04 @0x2
0x2d02…2d1d at0004 = ╱92╱ PRINT ╱ // 0x2d06 @0x4
0x2d02…2d1d at0005 = ╱cf╱CHR╱ // 0x2d07 @0x5
0x2d02…2d1d at0006 = ╱ed╱(╱ // 0x2d08 @0x6
0x2d02…2d1d at0007 = ╱31╱1╱ // 0x2d09 @0x7
0x2d02…2d1d at0008 = ╱30╱0╱ // 0x2d0a @0x8
0x2d02…2d1d at0009 = ╱fe0000a004╱ // 0x2d0b @0x9
0x2d02…2d1d at000e = ╱ee╱)╱ // 0x2d10 @0xe
0x2d02…2d1d at000f = ╱eb╱;╱ // 0x2d11 @0xf
0x2d02…2d1d at0010 = ╱cf╱CHR╱ // 0x2d12 @0x10
0x2d02…2d1d at0011 = ╱ed╱(╱ // 0x2d13 @0x11
0x2d02…2d1d at0012 = ╱31╱1╱ // 0x2d14 @0x12
0x2d02…2d1d at0013 = ╱30╱0╱ // 0x2d15 @0x13
0x2d02…2d1d at0014 = ╱fe0000a004╱ // 0x2d16 @0x14
0x2d02…2d1d at0019 = ╱ee╱)╱ // 0x2d1b @0x19
0x2d02…2d1d at001a = EOL // 0x2d1c @0x1a
0x2d02…2d1d }
0x2d1d…2d3e ba95 4550 IF VPIL3=TIL AND VPIL3<I+40 THEN EXIT
0x2d1d…2d3e LineComalBin {
0x2d1d…2d3e ptr = 0xba95 // 0x2d1d @0x0
0x2d1d…2d3e lno = 0x11c6 // 0x2d1f @0x2
0x2d1d…2d3e at0004 = ╱82╱ IF ╱ // 0x2d21 @0x4
0x2d1d…2d3e at0005 = ╱56╱V╱ // 0x2d22 @0x5
0x2d1d…2d3e at0006 = ╱50╱P╱ // 0x2d23 @0x6
0x2d1d…2d3e at0007 = ╱49╱I╱ // 0x2d24 @0x7
0x2d1d…2d3e at0008 = ╱4c╱L╱ // 0x2d25 @0x8
0x2d1d…2d3e at0009 = ╱33╱3╱ // 0x2d26 @0x9
0x2d1d…2d3e at000a = ╱dc╱=╱ // 0x2d27 @0xa
0x2d1d…2d3e at000b = ╱54╱T╱ // 0x2d28 @0xb
0x2d1d…2d3e at000c = ╱49╱I╱ // 0x2d29 @0xc
0x2d1d…2d3e at000d = ╱4c╱L╱ // 0x2d2a @0xd
0x2d1d…2d3e at000e = ╱da╱ AND ╱ // 0x2d2b @0xe
0x2d1d…2d3e at000f = ╱56╱V╱ // 0x2d2c @0xf
0x2d1d…2d3e at0010 = ╱50╱P╱ // 0x2d2d @0x10
0x2d1d…2d3e at0011 = ╱49╱I╱ // 0x2d2e @0x11
0x2d1d…2d3e at0012 = ╱4c╱L╱ // 0x2d2f @0x12
0x2d1d…2d3e at0013 = ╱33╱3╱ // 0x2d30 @0x13
0x2d1d…2d3e at0014 = ╱dd╱<╱ // 0x2d31 @0x14
0x2d1d…2d3e at0015 = ╱49╱I╱ // 0x2d32 @0x15
0x2d1d…2d3e at0016 = ╱e2╱+╱ // 0x2d33 @0x16
0x2d1d…2d3e at0017 = ╱34╱4╱ // 0x2d34 @0x17
0x2d1d…2d3e at0018 = ╱30╱0╱ // 0x2d35 @0x18
0x2d1d…2d3e at0019 = ╱fe0000a006╱ // 0x2d36 @0x19
0x2d1d…2d3e at001e = ╱b6╱ THEN ╱ // 0x2d3b @0x1e
0x2d1d…2d3e at001f = ╱99╱ EXIT ╱ // 0x2d3c @0x1f
0x2d1d…2d3e at0020 = EOL // 0x2d3d @0x20
0x2d1d…2d3e }
0x2d3e…2d45 ba9c 4555 NEXT I
0x2d3e…2d45 LineComalBin {
0x2d3e…2d45 ptr = 0xba9c // 0x2d3e @0x0
0x2d3e…2d45 lno = 0x11cb // 0x2d40 @0x2
0x2d3e…2d45 at0004 = ╱84╱ NEXT ╱ // 0x2d42 @0x4
0x2d3e…2d45 at0005 = ╱49╱I╱ // 0x2d43 @0x5
0x2d3e…2d45 at0006 = EOL // 0x2d44 @0x6
0x2d3e…2d45 }
0x2d45…2d5e bab5 4570 FOR J=VPIL3+E TO I+39
0x2d45…2d5e LineComalBin {
0x2d45…2d5e ptr = 0xbab5 // 0x2d45 @0x0
0x2d45…2d5e lno = 0x11da // 0x2d47 @0x2
0x2d45…2d5e at0004 = ╱83╱ FOR ╱ // 0x2d49 @0x4
0x2d45…2d5e at0005 = ╱4a╱J╱ // 0x2d4a @0x5
0x2d45…2d5e at0006 = ╱dc╱=╱ // 0x2d4b @0x6
0x2d45…2d5e at0007 = ╱56╱V╱ // 0x2d4c @0x7
0x2d45…2d5e at0008 = ╱50╱P╱ // 0x2d4d @0x8
0x2d45…2d5e at0009 = ╱49╱I╱ // 0x2d4e @0x9
0x2d45…2d5e at000a = ╱4c╱L╱ // 0x2d4f @0xa
0x2d45…2d5e at000b = ╱33╱3╱ // 0x2d50 @0xb
0x2d45…2d5e at000c = ╱e2╱+╱ // 0x2d51 @0xc
0x2d45…2d5e at000d = ╱45╱E╱ // 0x2d52 @0xd
0x2d45…2d5e at000e = ╱b7╱ TO ╱ // 0x2d53 @0xe
0x2d45…2d5e at000f = ╱49╱I╱ // 0x2d54 @0xf
0x2d45…2d5e at0010 = ╱e2╱+╱ // 0x2d55 @0x10
0x2d45…2d5e at0011 = ╱33╱3╱ // 0x2d56 @0x11
0x2d45…2d5e at0012 = ╱39╱9╱ // 0x2d57 @0x12
0x2d45…2d5e at0013 = ╱fe00009c06╱ // 0x2d58 @0x13
0x2d45…2d5e at0018 = EOL // 0x2d5d @0x18
0x2d45…2d5e }
0x2d5e…2d67 babe 4580 PRINT " "
0x2d5e…2d67 LineComalBin {
0x2d5e…2d67 ptr = 0xbabe // 0x2d5e @0x0
0x2d5e…2d67 lno = 0x11e4 // 0x2d60 @0x2
0x2d5e…2d67 at0004 = ╱92╱ PRINT ╱ // 0x2d62 @0x4
0x2d5e…2d67 at0005 = ╱22╱"╱ // 0x2d63 @0x5
0x2d5e…2d67 at0006 = ╱20╱…╱ // 0x2d64 @0x6
0x2d5e…2d67 at0007 = ╱22╱"╱ // 0x2d65 @0x7
0x2d5e…2d67 at0008 = EOL // 0x2d66 @0x8
0x2d5e…2d67 }
0x2d67…2d6e bac5 4600 NEXT J
0x2d67…2d6e LineComalBin {
0x2d67…2d6e ptr = 0xbac5 // 0x2d67 @0x0
0x2d67…2d6e lno = 0x11f8 // 0x2d69 @0x2
0x2d67…2d6e at0004 = ╱84╱ NEXT ╱ // 0x2d6b @0x4
0x2d67…2d6e at0005 = ╱4a╱J╱ // 0x2d6c @0x5
0x2d67…2d6e at0006 = EOL // 0x2d6d @0x6
0x2d67…2d6e }
0x2d6e…2d75 bacc 4620 OUTPUT T
0x2d6e…2d75 LineComalBin {
0x2d6e…2d75 ptr = 0xbacc // 0x2d6e @0x0
0x2d6e…2d75 lno = 0x120c // 0x2d70 @0x2
0x2d6e…2d75 at0004 = ╱a5╱ OUTPUT ╱ // 0x2d72 @0x4
0x2d6e…2d75 at0005 = ╱54╱T╱ // 0x2d73 @0x5
0x2d6e…2d75 at0006 = EOL // 0x2d74 @0x6
0x2d6e…2d75 }
0x2d75…2d7b bad2 4630 ENDCASE
0x2d75…2d7b LineComalBin {
0x2d75…2d7b ptr = 0xbad2 // 0x2d75 @0x0
0x2d75…2d7b lno = 0x1216 // 0x2d77 @0x2
0x2d75…2d7b at0004 = ╱a4╱ ENDCASE ╱ // 0x2d79 @0x4
0x2d75…2d7b at0005 = EOL // 0x2d7a @0x5
0x2d75…2d7b }
0x2d7b…2d8a bae1 4640 UNTIL SVAR$="0"
0x2d7b…2d8a LineComalBin {
0x2d7b…2d8a ptr = 0xbae1 // 0x2d7b @0x0
0x2d7b…2d8a lno = 0x1220 // 0x2d7d @0x2
0x2d7b…2d8a at0004 = ╱98╱ UNTIL ╱ // 0x2d7f @0x4
0x2d7b…2d8a at0005 = ╱53╱S╱ // 0x2d80 @0x5
0x2d7b…2d8a at0006 = ╱56╱V╱ // 0x2d81 @0x6
0x2d7b…2d8a at0007 = ╱41╱A╱ // 0x2d82 @0x7
0x2d7b…2d8a at0008 = ╱52╱R╱ // 0x2d83 @0x8
0x2d7b…2d8a at0009 = ╱ef╱$╱ // 0x2d84 @0x9
0x2d7b…2d8a at000a = ╱dc╱=╱ // 0x2d85 @0xa
0x2d7b…2d8a at000b = ╱22╱"╱ // 0x2d86 @0xb
0x2d7b…2d8a at000c = ╱30╱0╱ // 0x2d87 @0xc
0x2d7b…2d8a at000d = ╱22╱"╱ // 0x2d88 @0xd
0x2d7b…2d8a at000e = EOL // 0x2d89 @0xe
0x2d7b…2d8a }
0x2d8a…2da7 bafe 4650 EXEC UDTAB(VTAB,MVANTAL,K3$)
0x2d8a…2da7 LineComalBin {
0x2d8a…2da7 ptr = 0xbafe // 0x2d8a @0x0
0x2d8a…2da7 lno = 0x122a // 0x2d8c @0x2
0x2d8a…2da7 at0004 = ╱9d╱ EXEC ╱ // 0x2d8e @0x4
0x2d8a…2da7 at0005 = ╱55╱U╱ // 0x2d8f @0x5
0x2d8a…2da7 at0006 = ╱44╱D╱ // 0x2d90 @0x6
0x2d8a…2da7 at0007 = ╱54╱T╱ // 0x2d91 @0x7
0x2d8a…2da7 at0008 = ╱41╱A╱ // 0x2d92 @0x8
0x2d8a…2da7 at0009 = ╱42╱B╱ // 0x2d93 @0x9
0x2d8a…2da7 at000a = ╱ed╱(╱ // 0x2d94 @0xa
0x2d8a…2da7 at000b = ╱56╱V╱ // 0x2d95 @0xb
0x2d8a…2da7 at000c = ╱54╱T╱ // 0x2d96 @0xc
0x2d8a…2da7 at000d = ╱41╱A╱ // 0x2d97 @0xd
0x2d8a…2da7 at000e = ╱42╱B╱ // 0x2d98 @0xe
0x2d8a…2da7 at000f = ╱ec╱,╱ // 0x2d99 @0xf
0x2d8a…2da7 at0010 = ╱4d╱M╱ // 0x2d9a @0x10
0x2d8a…2da7 at0011 = ╱56╱V╱ // 0x2d9b @0x11
0x2d8a…2da7 at0012 = ╱41╱A╱ // 0x2d9c @0x12
0x2d8a…2da7 at0013 = ╱4e╱N╱ // 0x2d9d @0x13
0x2d8a…2da7 at0014 = ╱54╱T╱ // 0x2d9e @0x14
0x2d8a…2da7 at0015 = ╱41╱A╱ // 0x2d9f @0x15
0x2d8a…2da7 at0016 = ╱4c╱L╱ // 0x2da0 @0x16
0x2d8a…2da7 at0017 = ╱ec╱,╱ // 0x2da1 @0x17
0x2d8a…2da7 at0018 = ╱4b╱K╱ // 0x2da2 @0x18
0x2d8a…2da7 at0019 = ╱33╱3╱ // 0x2da3 @0x19
0x2d8a…2da7 at001a = ╱ef╱$╱ // 0x2da4 @0x1a
0x2d8a…2da7 at001b = ╱ee╱)╱ // 0x2da5 @0x1b
0x2d8a…2da7 at001c = EOL // 0x2da6 @0x1c
0x2d8a…2da7 }
0x2da7…2db0 bb07 4660 CLOSE K3$
0x2da7…2db0 LineComalBin {
0x2da7…2db0 ptr = 0xbb07 // 0x2da7 @0x0
0x2da7…2db0 lno = 0x1234 // 0x2da9 @0x2
0x2da7…2db0 at0004 = ╱a8╱ CLOSE ╱ // 0x2dab @0x4
0x2da7…2db0 at0005 = ╱4b╱K╱ // 0x2dac @0x5
0x2da7…2db0 at0006 = ╱33╱3╱ // 0x2dad @0x6
0x2da7…2db0 at0007 = ╱ef╱$╱ // 0x2dae @0x7
0x2da7…2db0 at0008 = EOL // 0x2daf @0x8
0x2da7…2db0 }
0x2db0…2dc9 bb20 4670 EXEC FEJL(W,30,K3$)
0x2db0…2dc9 LineComalBin {
0x2db0…2dc9 ptr = 0xbb20 // 0x2db0 @0x0
0x2db0…2dc9 lno = 0x123e // 0x2db2 @0x2
0x2db0…2dc9 at0004 = ╱9d╱ EXEC ╱ // 0x2db4 @0x4
0x2db0…2dc9 at0005 = ╱46╱F╱ // 0x2db5 @0x5
0x2db0…2dc9 at0006 = ╱45╱E╱ // 0x2db6 @0x6
0x2db0…2dc9 at0007 = ╱4a╱J╱ // 0x2db7 @0x7
0x2db0…2dc9 at0008 = ╱4c╱L╱ // 0x2db8 @0x8
0x2db0…2dc9 at0009 = ╱ed╱(╱ // 0x2db9 @0x9
0x2db0…2dc9 at000a = ╱57╱W╱ // 0x2dba @0xa
0x2db0…2dc9 at000b = ╱ec╱,╱ // 0x2dbb @0xb
0x2db0…2dc9 at000c = ╱33╱3╱ // 0x2dbc @0xc
0x2db0…2dc9 at000d = ╱30╱0╱ // 0x2dbd @0xd
0x2db0…2dc9 at000e = ╱fe0000f005╱ // 0x2dbe @0xe
0x2db0…2dc9 at0013 = ╱ec╱,╱ // 0x2dc3 @0x13
0x2db0…2dc9 at0014 = ╱4b╱K╱ // 0x2dc4 @0x14
0x2db0…2dc9 at0015 = ╱33╱3╱ // 0x2dc5 @0x15
0x2db0…2dc9 at0016 = ╱ef╱$╱ // 0x2dc6 @0x16
0x2db0…2dc9 at0017 = ╱ee╱)╱ // 0x2dc7 @0x17
0x2db0…2dc9 at0018 = EOL // 0x2dc8 @0x18
0x2db0…2dc9 }
0x2dc9…2dd2 bb29 4680 CLOSE K4$
0x2dc9…2dd2 LineComalBin {
0x2dc9…2dd2 ptr = 0xbb29 // 0x2dc9 @0x0
0x2dc9…2dd2 lno = 0x1248 // 0x2dcb @0x2
0x2dc9…2dd2 at0004 = ╱a8╱ CLOSE ╱ // 0x2dcd @0x4
0x2dc9…2dd2 at0005 = ╱4b╱K╱ // 0x2dce @0x5
0x2dc9…2dd2 at0006 = ╱34╱4╱ // 0x2dcf @0x6
0x2dc9…2dd2 at0007 = ╱ef╱$╱ // 0x2dd0 @0x7
0x2dc9…2dd2 at0008 = EOL // 0x2dd1 @0x8
0x2dc9…2dd2 }
0x2dd2…2deb bb42 4690 EXEC FEJL(W,31,K4$)
0x2dd2…2deb LineComalBin {
0x2dd2…2deb ptr = 0xbb42 // 0x2dd2 @0x0
0x2dd2…2deb lno = 0x1252 // 0x2dd4 @0x2
0x2dd2…2deb at0004 = ╱9d╱ EXEC ╱ // 0x2dd6 @0x4
0x2dd2…2deb at0005 = ╱46╱F╱ // 0x2dd7 @0x5
0x2dd2…2deb at0006 = ╱45╱E╱ // 0x2dd8 @0x6
0x2dd2…2deb at0007 = ╱4a╱J╱ // 0x2dd9 @0x7
0x2dd2…2deb at0008 = ╱4c╱L╱ // 0x2dda @0x8
0x2dd2…2deb at0009 = ╱ed╱(╱ // 0x2ddb @0x9
0x2dd2…2deb at000a = ╱57╱W╱ // 0x2ddc @0xa
0x2dd2…2deb at000b = ╱ec╱,╱ // 0x2ddd @0xb
0x2dd2…2deb at000c = ╱33╱3╱ // 0x2dde @0xc
0x2dd2…2deb at000d = ╱31╱1╱ // 0x2ddf @0xd
0x2dd2…2deb at000e = ╱fe0000f805╱ // 0x2de0 @0xe
0x2dd2…2deb at0013 = ╱ec╱,╱ // 0x2de5 @0x13
0x2dd2…2deb at0014 = ╱4b╱K╱ // 0x2de6 @0x14
0x2dd2…2deb at0015 = ╱34╱4╱ // 0x2de7 @0x15
0x2dd2…2deb at0016 = ╱ef╱$╱ // 0x2de8 @0x16
0x2dd2…2deb at0017 = ╱ee╱)╱ // 0x2de9 @0x17
0x2dd2…2deb at0018 = EOL // 0x2dea @0x18
0x2dd2…2deb }
0x2deb…2df4 bb4b 4700 CLOSE K2$
0x2deb…2df4 LineComalBin {
0x2deb…2df4 ptr = 0xbb4b // 0x2deb @0x0
0x2deb…2df4 lno = 0x125c // 0x2ded @0x2
0x2deb…2df4 at0004 = ╱a8╱ CLOSE ╱ // 0x2def @0x4
0x2deb…2df4 at0005 = ╱4b╱K╱ // 0x2df0 @0x5
0x2deb…2df4 at0006 = ╱32╱2╱ // 0x2df1 @0x6
0x2deb…2df4 at0007 = ╱ef╱$╱ // 0x2df2 @0x7
0x2deb…2df4 at0008 = EOL // 0x2df3 @0x8
0x2deb…2df4 }
0x2df4…2e05 bb5c 4710 T3(6)=B
0x2df4…2e05 LineComalBin {
0x2df4…2e05 ptr = 0xbb5c // 0x2df4 @0x0
0x2df4…2e05 lno = 0x1266 // 0x2df6 @0x2
0x2df4…2e05 at0004 = ╱54╱T╱ // 0x2df8 @0x4
0x2df4…2e05 at0005 = ╱33╱3╱ // 0x2df9 @0x5
0x2df4…2e05 at0006 = ╱ed╱(╱ // 0x2dfa @0x6
0x2df4…2e05 at0007 = ╱36╱6╱ // 0x2dfb @0x7
0x2df4…2e05 at0008 = ╱fe0000c003╱ // 0x2dfc @0x8
0x2df4…2e05 at000d = ╱ee╱)╱ // 0x2e01 @0xd
0x2df4…2e05 at000e = ╱dc╱=╱ // 0x2e02 @0xe
0x2df4…2e05 at000f = ╱42╱B╱ // 0x2e03 @0xf
0x2df4…2e05 at0010 = EOL // 0x2e04 @0x10
0x2df4…2e05 }
0x2e05…2e10 (153,) bb67 4720 OPEN K5$,W
0x2e05…2e10 LineComalBin {
0x2e05…2e10 ptr = 0xbb67 // 0x2e05 @0x0
0x2e05…2e10 lno = 0x1270 // 0x2e07 @0x2
0x2e05…2e10 at0004 = ╱a7╱ OPEN ╱ // 0x2e09 @0x4
0x2e05…2e10 at0005 = ╱4b╱K╱ // 0x2e0a @0x5
0x2e05…2e10 at0006 = ╱35╱5╱ // 0x2e0b @0x6
0x2e05…2e10 at0007 = ╱ef╱$╱ // 0x2e0c @0x7
0x2e05…2e10 at0008 = ╱ec╱,╱ // 0x2e0d @0x8
0x2e05…2e10 at0009 = ╱57╱W╱ // 0x2e0e @0x9
0x2e05…2e10 at000a = EOL // 0x2e0f @0xa
0x2e05…2e10 }
0x2e10…2e29 bb80 4730 EXEC FEJL(W,32,K5$)
0x2e10…2e29 LineComalBin {
0x2e10…2e29 ptr = 0xbb80 // 0x2e10 @0x0
0x2e10…2e29 lno = 0x127a // 0x2e12 @0x2
0x2e10…2e29 at0004 = ╱9d╱ EXEC ╱ // 0x2e14 @0x4
0x2e10…2e29 at0005 = ╱46╱F╱ // 0x2e15 @0x5
0x2e10…2e29 at0006 = ╱45╱E╱ // 0x2e16 @0x6
0x2e10…2e29 at0007 = ╱4a╱J╱ // 0x2e17 @0x7
0x2e10…2e29 at0008 = ╱4c╱L╱ // 0x2e18 @0x8
0x2e10…2e29 at0009 = ╱ed╱(╱ // 0x2e19 @0x9
0x2e10…2e29 at000a = ╱57╱W╱ // 0x2e1a @0xa
0x2e10…2e29 at000b = ╱ec╱,╱ // 0x2e1b @0xb
0x2e10…2e29 at000c = ╱33╱3╱ // 0x2e1c @0xc
0x2e10…2e29 at000d = ╱32╱2╱ // 0x2e1d @0xd
0x2e10…2e29 at000e = ╱fe00008006╱ // 0x2e1e @0xe
0x2e10…2e29 at0013 = ╱ec╱,╱ // 0x2e23 @0x13
0x2e10…2e29 at0014 = ╱4b╱K╱ // 0x2e24 @0x14
0x2e10…2e29 at0015 = ╱35╱5╱ // 0x2e25 @0x15
0x2e10…2e29 at0016 = ╱ef╱$╱ // 0x2e26 @0x16
0x2e10…2e29 at0017 = ╱ee╱)╱ // 0x2e27 @0x17
0x2e10…2e29 at0018 = EOL // 0x2e28 @0x18
0x2e10…2e29 }
0x2e29…2e89 bbe0 4740 PUT K5$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE
0x2e29…2e89 LineComalBin {
0x2e29…2e89 ptr = 0xbbe0 // 0x2e29 @0x0
0x2e29…2e89 lno = 0x1284 // 0x2e2b @0x2
0x2e29…2e89 at0004 = ╱aa╱ PUT ╱ // 0x2e2d @0x4
0x2e29…2e89 at0005 = ╱4b╱K╱ // 0x2e2e @0x5
0x2e29…2e89 at0006 = ╱35╱5╱ // 0x2e2f @0x6
0x2e29…2e89 at0007 = ╱ef╱$╱ // 0x2e30 @0x7
0x2e29…2e89 at0008 = ╱ec╱,╱ // 0x2e31 @0x8
0x2e29…2e89 at0009 = ╱31╱1╱ // 0x2e32 @0x9
0x2e29…2e89 at000a = ╱32╱2╱ // 0x2e33 @0xa
0x2e29…2e89 at000b = ╱fe0000c004╱ // 0x2e34 @0xb
0x2e29…2e89 at0010 = ╱f0╱:╱ // 0x2e39 @0x10
0x2e29…2e89 at0011 = ╱54╱T╱ // 0x2e3a @0x11
0x2e29…2e89 at0012 = ╱32╱2╱ // 0x2e3b @0x12
0x2e29…2e89 at0013 = ╱ed╱(╱ // 0x2e3c @0x13
0x2e29…2e89 at0014 = ╱45╱E╱ // 0x2e3d @0x14
0x2e29…2e89 at0015 = ╱ee╱)╱ // 0x2e3e @0x15
0x2e29…2e89 at0016 = ╱ec╱,╱ // 0x2e3f @0x16
0x2e29…2e89 at0017 = ╱54╱T╱ // 0x2e40 @0x17
0x2e29…2e89 at0018 = ╱32╱2╱ // 0x2e41 @0x18
0x2e29…2e89 at0019 = ╱ed╱(╱ // 0x2e42 @0x19
0x2e29…2e89 at001a = ╱47╱G╱ // 0x2e43 @0x1a
0x2e29…2e89 at001b = ╱ee╱)╱ // 0x2e44 @0x1b
0x2e29…2e89 at001c = ╱ec╱,╱ // 0x2e45 @0x1c
0x2e29…2e89 at001d = ╱54╱T╱ // 0x2e46 @0x1d
0x2e29…2e89 at001e = ╱32╱2╱ // 0x2e47 @0x1e
0x2e29…2e89 at001f = ╱ed╱(╱ // 0x2e48 @0x1f
0x2e29…2e89 at0020 = ╱56╱V╱ // 0x2e49 @0x20
0x2e29…2e89 at0021 = ╱ee╱)╱ // 0x2e4a @0x21
0x2e29…2e89 at0022 = ╱ec╱,╱ // 0x2e4b @0x22
0x2e29…2e89 at0023 = ╱54╱T╱ // 0x2e4c @0x23
0x2e29…2e89 at0024 = ╱32╱2╱ // 0x2e4d @0x24
0x2e29…2e89 at0025 = ╱ed╱(╱ // 0x2e4e @0x25
0x2e29…2e89 at0026 = ╱34╱4╱ // 0x2e4f @0x26
0x2e29…2e89 at0027 = ╱fe00008003╱ // 0x2e50 @0x27
0x2e29…2e89 at002c = ╱ee╱)╱ // 0x2e55 @0x2c
0x2e29…2e89 at002d = ╱ec╱,╱ // 0x2e56 @0x2d
0x2e29…2e89 at002e = ╱54╱T╱ // 0x2e57 @0x2e
0x2e29…2e89 at002f = ╱32╱2╱ // 0x2e58 @0x2f
0x2e29…2e89 at0030 = ╱ed╱(╱ // 0x2e59 @0x30
0x2e29…2e89 at0031 = ╱35╱5╱ // 0x2e5a @0x31
0x2e29…2e89 at0032 = ╱fe0000a003╱ // 0x2e5b @0x32
0x2e29…2e89 at0037 = ╱ee╱)╱ // 0x2e60 @0x37
0x2e29…2e89 at0038 = ╱ec╱,╱ // 0x2e61 @0x38
0x2e29…2e89 at0039 = ╱54╱T╱ // 0x2e62 @0x39
0x2e29…2e89 at003a = ╱32╱2╱ // 0x2e63 @0x3a
0x2e29…2e89 at003b = ╱ed╱(╱ // 0x2e64 @0x3b
0x2e29…2e89 at003c = ╱36╱6╱ // 0x2e65 @0x3c
0x2e29…2e89 at003d = ╱fe0000c003╱ // 0x2e66 @0x3d
0x2e29…2e89 at0042 = ╱ee╱)╱ // 0x2e6b @0x42
0x2e29…2e89 at0043 = ╱ec╱,╱ // 0x2e6c @0x43
0x2e29…2e89 at0044 = ╱54╱T╱ // 0x2e6d @0x44
0x2e29…2e89 at0045 = ╱32╱2╱ // 0x2e6e @0x45
0x2e29…2e89 at0046 = ╱ed╱(╱ // 0x2e6f @0x46
0x2e29…2e89 at0047 = ╱37╱7╱ // 0x2e70 @0x47
0x2e29…2e89 at0048 = ╱fe0000e003╱ // 0x2e71 @0x48
0x2e29…2e89 at004d = ╱ee╱)╱ // 0x2e76 @0x4d
0x2e29…2e89 at004e = ╱ec╱,╱ // 0x2e77 @0x4e
0x2e29…2e89 at004f = ╱54╱T╱ // 0x2e78 @0x4f
0x2e29…2e89 at0050 = ╱32╱2╱ // 0x2e79 @0x50
0x2e29…2e89 at0051 = ╱ed╱(╱ // 0x2e7a @0x51
0x2e29…2e89 at0052 = ╱38╱8╱ // 0x2e7b @0x52
0x2e29…2e89 at0053 = ╱fe00008004╱ // 0x2e7c @0x53
0x2e29…2e89 at0058 = ╱ee╱)╱ // 0x2e81 @0x58
0x2e29…2e89 at0059 = ╱ec╱,╱ // 0x2e82 @0x59
0x2e29…2e89 at005a = ╱41╱A╱ // 0x2e83 @0x5a
0x2e29…2e89 at005b = ╱56╱V╱ // 0x2e84 @0x5b
0x2e29…2e89 at005c = ╱41╱A╱ // 0x2e85 @0x5c
0x2e29…2e89 at005d = ╱52╱R╱ // 0x2e86 @0x5d
0x2e29…2e89 at005e = ╱45╱E╱ // 0x2e87 @0x5e
0x2e29…2e89 at005f = EOL // 0x2e88 @0x5f
0x2e29…2e89 }
0x2e89…2ea2 bbf9 4750 EXEC FEJL(W,33,K5$)
0x2e89…2ea2 LineComalBin {
0x2e89…2ea2 ptr = 0xbbf9 // 0x2e89 @0x0
0x2e89…2ea2 lno = 0x128e // 0x2e8b @0x2
0x2e89…2ea2 at0004 = ╱9d╱ EXEC ╱ // 0x2e8d @0x4
0x2e89…2ea2 at0005 = ╱46╱F╱ // 0x2e8e @0x5
0x2e89…2ea2 at0006 = ╱45╱E╱ // 0x2e8f @0x6
0x2e89…2ea2 at0007 = ╱4a╱J╱ // 0x2e90 @0x7
0x2e89…2ea2 at0008 = ╱4c╱L╱ // 0x2e91 @0x8
0x2e89…2ea2 at0009 = ╱ed╱(╱ // 0x2e92 @0x9
0x2e89…2ea2 at000a = ╱57╱W╱ // 0x2e93 @0xa
0x2e89…2ea2 at000b = ╱ec╱,╱ // 0x2e94 @0xb
0x2e89…2ea2 at000c = ╱33╱3╱ // 0x2e95 @0xc
0x2e89…2ea2 at000d = ╱33╱3╱ // 0x2e96 @0xd
0x2e89…2ea2 at000e = ╱fe00008406╱ // 0x2e97 @0xe
0x2e89…2ea2 at0013 = ╱ec╱,╱ // 0x2e9c @0x13
0x2e89…2ea2 at0014 = ╱4b╱K╱ // 0x2e9d @0x14
0x2e89…2ea2 at0015 = ╱35╱5╱ // 0x2e9e @0x15
0x2e89…2ea2 at0016 = ╱ef╱$╱ // 0x2e9f @0x16
0x2e89…2ea2 at0017 = ╱ee╱)╱ // 0x2ea0 @0x17
0x2e89…2ea2 at0018 = EOL // 0x2ea1 @0x18
0x2e89…2ea2 }
0x2ea2…2f02 bc59 4760 PUT K5$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
0x2ea2…2f02 LineComalBin {
0x2ea2…2f02 ptr = 0xbc59 // 0x2ea2 @0x0
0x2ea2…2f02 lno = 0x1298 // 0x2ea4 @0x2
0x2ea2…2f02 at0004 = ╱aa╱ PUT ╱ // 0x2ea6 @0x4
0x2ea2…2f02 at0005 = ╱4b╱K╱ // 0x2ea7 @0x5
0x2ea2…2f02 at0006 = ╱35╱5╱ // 0x2ea8 @0x6
0x2ea2…2f02 at0007 = ╱ef╱$╱ // 0x2ea9 @0x7
0x2ea2…2f02 at0008 = ╱ec╱,╱ // 0x2eaa @0x8
0x2ea2…2f02 at0009 = ╱31╱1╱ // 0x2eab @0x9
0x2ea2…2f02 at000a = ╱37╱7╱ // 0x2eac @0xa
0x2ea2…2f02 at000b = ╱fe00008805╱ // 0x2ead @0xb
0x2ea2…2f02 at0010 = ╱f0╱:╱ // 0x2eb2 @0x10
0x2ea2…2f02 at0011 = ╱54╱T╱ // 0x2eb3 @0x11
0x2ea2…2f02 at0012 = ╱33╱3╱ // 0x2eb4 @0x12
0x2ea2…2f02 at0013 = ╱ed╱(╱ // 0x2eb5 @0x13
0x2ea2…2f02 at0014 = ╱45╱E╱ // 0x2eb6 @0x14
0x2ea2…2f02 at0015 = ╱ee╱)╱ // 0x2eb7 @0x15
0x2ea2…2f02 at0016 = ╱ec╱,╱ // 0x2eb8 @0x16
0x2ea2…2f02 at0017 = ╱54╱T╱ // 0x2eb9 @0x17
0x2ea2…2f02 at0018 = ╱33╱3╱ // 0x2eba @0x18
0x2ea2…2f02 at0019 = ╱ed╱(╱ // 0x2ebb @0x19
0x2ea2…2f02 at001a = ╱47╱G╱ // 0x2ebc @0x1a
0x2ea2…2f02 at001b = ╱ee╱)╱ // 0x2ebd @0x1b
0x2ea2…2f02 at001c = ╱ec╱,╱ // 0x2ebe @0x1c
0x2ea2…2f02 at001d = ╱54╱T╱ // 0x2ebf @0x1d
0x2ea2…2f02 at001e = ╱33╱3╱ // 0x2ec0 @0x1e
0x2ea2…2f02 at001f = ╱ed╱(╱ // 0x2ec1 @0x1f
0x2ea2…2f02 at0020 = ╱56╱V╱ // 0x2ec2 @0x20
0x2ea2…2f02 at0021 = ╱ee╱)╱ // 0x2ec3 @0x21
0x2ea2…2f02 at0022 = ╱ec╱,╱ // 0x2ec4 @0x22
0x2ea2…2f02 at0023 = ╱54╱T╱ // 0x2ec5 @0x23
0x2ea2…2f02 at0024 = ╱33╱3╱ // 0x2ec6 @0x24
0x2ea2…2f02 at0025 = ╱ed╱(╱ // 0x2ec7 @0x25
0x2ea2…2f02 at0026 = ╱34╱4╱ // 0x2ec8 @0x26
0x2ea2…2f02 at0027 = ╱fe00008003╱ // 0x2ec9 @0x27
0x2ea2…2f02 at002c = ╱ee╱)╱ // 0x2ece @0x2c
0x2ea2…2f02 at002d = ╱ec╱,╱ // 0x2ecf @0x2d
0x2ea2…2f02 at002e = ╱54╱T╱ // 0x2ed0 @0x2e
0x2ea2…2f02 at002f = ╱33╱3╱ // 0x2ed1 @0x2f
0x2ea2…2f02 at0030 = ╱ed╱(╱ // 0x2ed2 @0x30
0x2ea2…2f02 at0031 = ╱35╱5╱ // 0x2ed3 @0x31
0x2ea2…2f02 at0032 = ╱fe0000a003╱ // 0x2ed4 @0x32
0x2ea2…2f02 at0037 = ╱ee╱)╱ // 0x2ed9 @0x37
0x2ea2…2f02 at0038 = ╱ec╱,╱ // 0x2eda @0x38
0x2ea2…2f02 at0039 = ╱54╱T╱ // 0x2edb @0x39
0x2ea2…2f02 at003a = ╱33╱3╱ // 0x2edc @0x3a
0x2ea2…2f02 at003b = ╱ed╱(╱ // 0x2edd @0x3b
0x2ea2…2f02 at003c = ╱36╱6╱ // 0x2ede @0x3c
0x2ea2…2f02 at003d = ╱fe0000c003╱ // 0x2edf @0x3d
0x2ea2…2f02 at0042 = ╱ee╱)╱ // 0x2ee4 @0x42
0x2ea2…2f02 at0043 = ╱ec╱,╱ // 0x2ee5 @0x43
0x2ea2…2f02 at0044 = ╱54╱T╱ // 0x2ee6 @0x44
0x2ea2…2f02 at0045 = ╱33╱3╱ // 0x2ee7 @0x45
0x2ea2…2f02 at0046 = ╱ed╱(╱ // 0x2ee8 @0x46
0x2ea2…2f02 at0047 = ╱37╱7╱ // 0x2ee9 @0x47
0x2ea2…2f02 at0048 = ╱fe0000e003╱ // 0x2eea @0x48
0x2ea2…2f02 at004d = ╱ee╱)╱ // 0x2eef @0x4d
0x2ea2…2f02 at004e = ╱ec╱,╱ // 0x2ef0 @0x4e
0x2ea2…2f02 at004f = ╱54╱T╱ // 0x2ef1 @0x4f
0x2ea2…2f02 at0050 = ╱33╱3╱ // 0x2ef2 @0x50
0x2ea2…2f02 at0051 = ╱ed╱(╱ // 0x2ef3 @0x51
0x2ea2…2f02 at0052 = ╱38╱8╱ // 0x2ef4 @0x52
0x2ea2…2f02 at0053 = ╱fe00008004╱ // 0x2ef5 @0x53
0x2ea2…2f02 at0058 = ╱ee╱)╱ // 0x2efa @0x58
0x2ea2…2f02 at0059 = ╱ec╱,╱ // 0x2efb @0x59
0x2ea2…2f02 at005a = ╱54╱T╱ // 0x2efc @0x5a
0x2ea2…2f02 at005b = ╱33╱3╱ // 0x2efd @0x5b
0x2ea2…2f02 at005c = ╱ed╱(╱ // 0x2efe @0x5c
0x2ea2…2f02 at005d = ╱57╱W╱ // 0x2eff @0x5d
0x2ea2…2f02 at005e = ╱ee╱)╱ // 0x2f00 @0x5e
0x2ea2…2f02 at005f = EOL // 0x2f01 @0x5f
0x2ea2…2f02 }
0x2f02…2f1b bc72 4770 EXEC FEJL(W,34,K5$)
0x2f02…2f1b LineComalBin {
0x2f02…2f1b ptr = 0xbc72 // 0x2f02 @0x0
0x2f02…2f1b lno = 0x12a2 // 0x2f04 @0x2
0x2f02…2f1b at0004 = ╱9d╱ EXEC ╱ // 0x2f06 @0x4
0x2f02…2f1b at0005 = ╱46╱F╱ // 0x2f07 @0x5
0x2f02…2f1b at0006 = ╱45╱E╱ // 0x2f08 @0x6
0x2f02…2f1b at0007 = ╱4a╱J╱ // 0x2f09 @0x7
0x2f02…2f1b at0008 = ╱4c╱L╱ // 0x2f0a @0x8
0x2f02…2f1b at0009 = ╱ed╱(╱ // 0x2f0b @0x9
0x2f02…2f1b at000a = ╱57╱W╱ // 0x2f0c @0xa
0x2f02…2f1b at000b = ╱ec╱,╱ // 0x2f0d @0xb
0x2f02…2f1b at000c = ╱33╱3╱ // 0x2f0e @0xc
0x2f02…2f1b at000d = ╱34╱4╱ // 0x2f0f @0xd
0x2f02…2f1b at000e = ╱fe00008806╱ // 0x2f10 @0xe
0x2f02…2f1b at0013 = ╱ec╱,╱ // 0x2f15 @0x13
0x2f02…2f1b at0014 = ╱4b╱K╱ // 0x2f16 @0x14
0x2f02…2f1b at0015 = ╱35╱5╱ // 0x2f17 @0x15
0x2f02…2f1b at0016 = ╱ef╱$╱ // 0x2f18 @0x16
0x2f02…2f1b at0017 = ╱ee╱)╱ // 0x2f19 @0x17
0x2f02…2f1b at0018 = EOL // 0x2f1a @0x18
0x2f02…2f1b }
0x2f1b…2f24 bc7b 4780 CLOSE K5$
0x2f1b…2f24 LineComalBin {
0x2f1b…2f24 ptr = 0xbc7b // 0x2f1b @0x0
0x2f1b…2f24 lno = 0x12ac // 0x2f1d @0x2
0x2f1b…2f24 at0004 = ╱a8╱ CLOSE ╱ // 0x2f1f @0x4
0x2f1b…2f24 at0005 = ╱4b╱K╱ // 0x2f20 @0x5
0x2f1b…2f24 at0006 = ╱35╱5╱ // 0x2f21 @0x6
0x2f1b…2f24 at0007 = ╱ef╱$╱ // 0x2f22 @0x7
0x2f1b…2f24 at0008 = EOL // 0x2f23 @0x8
0x2f1b…2f24 }
0x2f24…2f3d bc94 4790 EXEC FEJL(W,35,K5$)
0x2f24…2f3d LineComalBin {
0x2f24…2f3d ptr = 0xbc94 // 0x2f24 @0x0
0x2f24…2f3d lno = 0x12b6 // 0x2f26 @0x2
0x2f24…2f3d at0004 = ╱9d╱ EXEC ╱ // 0x2f28 @0x4
0x2f24…2f3d at0005 = ╱46╱F╱ // 0x2f29 @0x5
0x2f24…2f3d at0006 = ╱45╱E╱ // 0x2f2a @0x6
0x2f24…2f3d at0007 = ╱4a╱J╱ // 0x2f2b @0x7
0x2f24…2f3d at0008 = ╱4c╱L╱ // 0x2f2c @0x8
0x2f24…2f3d at0009 = ╱ed╱(╱ // 0x2f2d @0x9
0x2f24…2f3d at000a = ╱57╱W╱ // 0x2f2e @0xa
0x2f24…2f3d at000b = ╱ec╱,╱ // 0x2f2f @0xb
0x2f24…2f3d at000c = ╱33╱3╱ // 0x2f30 @0xc
0x2f24…2f3d at000d = ╱35╱5╱ // 0x2f31 @0xd
0x2f24…2f3d at000e = ╱fe00008c06╱ // 0x2f32 @0xe
0x2f24…2f3d at0013 = ╱ec╱,╱ // 0x2f37 @0x13
0x2f24…2f3d at0014 = ╱4b╱K╱ // 0x2f38 @0x14
0x2f24…2f3d at0015 = ╱35╱5╱ // 0x2f39 @0x15
0x2f24…2f3d at0016 = ╱ef╱$╱ // 0x2f3a @0x16
0x2f24…2f3d at0017 = ╱ee╱)╱ // 0x2f3b @0x17
0x2f24…2f3d at0018 = EOL // 0x2f3c @0x18
0x2f24…2f3d }
0x2f3d…2f54 0000 4800 CHAIN "P641210:OPSTART"
0x2f3d…2f54 LineComalBin {
0x2f3d…2f54 ptr = 0x0000 // 0x2f3d @0x0
0x2f3d…2f54 lno = 0x12c0 // 0x2f3f @0x2
0x2f3d…2f54 at0004 = ╱ac╱ CHAIN ╱ // 0x2f41 @0x4
0x2f3d…2f54 at0005 = ╱22╱"╱ // 0x2f42 @0x5
0x2f3d…2f54 at0006 = ╱50╱P╱ // 0x2f43 @0x6
0x2f3d…2f54 at0007 = ╱36╱6╱ // 0x2f44 @0x7
0x2f3d…2f54 at0008 = ╱34╱4╱ // 0x2f45 @0x8
0x2f3d…2f54 at0009 = ╱31╱1╱ // 0x2f46 @0x9
0x2f3d…2f54 at000a = ╱32╱2╱ // 0x2f47 @0xa
0x2f3d…2f54 at000b = ╱31╱1╱ // 0x2f48 @0xb
0x2f3d…2f54 at000c = ╱30╱0╱ // 0x2f49 @0xc
0x2f3d…2f54 at000d = ╱3a╱:╱ // 0x2f4a @0xd
0x2f3d…2f54 at000e = ╱4f╱O╱ // 0x2f4b @0xe
0x2f3d…2f54 at000f = ╱50╱P╱ // 0x2f4c @0xf
0x2f3d…2f54 at0010 = ╱53╱S╱ // 0x2f4d @0x10
0x2f3d…2f54 at0011 = ╱54╱T╱ // 0x2f4e @0x11
0x2f3d…2f54 at0012 = ╱41╱A╱ // 0x2f4f @0x12
0x2f3d…2f54 at0013 = ╱52╱R╱ // 0x2f50 @0x13
0x2f3d…2f54 at0014 = ╱54╱T╱ // 0x2f51 @0x14
0x2f3d…2f54 at0015 = ╱22╱"╱ // 0x2f52 @0x15
0x2f3d…2f54 at0016 = EOL // 0x2f53 @0x16
0x2f3d…2f54 }
0x2f54…2f60 57 8d 50 00 42 dc 30 fe 00 00 00 00 ┆W P B 0 ┆
0x2f60…2f80 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe ┆ E 1 G 2 V 3 W 9 ┆
0x2f80…2f85 00 00 90 04 ff ┆ ┆
0x2f85…2f8b (158,) 57 8d ab bc 10 00 ┆W ┆