|
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: 12194 (0x2fa2)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »FINVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »FINVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »FINVEDL.B«
0090 DIM RES$(14),OP1$(12),OP2$(12) 0100 DIM FNAVN$(25),FMKODE$(E),FUKODE$(E),DAT$(8),STREG$(71),VTAB2(5) 0110 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12) 0120 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10) 0130 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14) 0140 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17) 0150 PROC CALC(AT,B1,B2,ES) 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT 0170 CALL "P641210:REGN" 0180 ES$=RES$ 0190 IF FLAG THEN STOP 0200 ENDPROC 0210 PROC FEJL(NR1,NR2,NR3) 0220 IF STATUS(NR3$)<>B THEN 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0240 STOP 0250 ENDIF 0260 ENDPROC 0270 PROC DKRTEST 0280 EXEC CALC(4,FÅDEBET$,FÅKREDIT$,TAL4$) 0290 IF SI<>B THEN TEST=E 0300 IF FLAG<>B THEN STOP 0310 ENDPROC 0320 PROC INDTAB(T,MANTAL,K10) 0330 J=MANTAL DIV 32+E 0340 FOR I=J TO MANTAL DIV 4+J-E 0350 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0360 GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G) 0370 EXEC FEJL(E,E,K10$) 0380 NEXT I 0390 ENDPROC 0400 PROC UDTAB(U,MANTAL1,K9) 0410 J=MANTAL1 DIV 32+E 0420 FOR I=E TO J-E 0430 H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0440 PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E) 0450 EXEC FEJL(G,E,K9$) 0460 NEXT I 0470 FOR I=J TO MANTAL1 DIV 4+J-E 0480 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0490 PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G) 0500 EXEC FEJL(G,G,K9$) 0510 NEXT I 0520 ENDPROC 0530 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0540 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0550 REPEAT 0560 IF NØGL1=TAB1(PIL3,E) THEN 0570 CEKS=B 0580 ELSE 0590 IF PIL1=E THEN PIL1=B 0600 PIL1=INT((PIL1+E)/G) 0610 IF NØGL1>TAB1(PIL3,E) THEN 0620 PIL3=PIL3+PIL1 0630 ELSE 0640 PIL3=PIL3-PIL1 0650 ENDIF 0660 IF PIL3<E THEN PIL3=E 0670 IF PIL3>MANT1 THEN PIL3=MANT1 0680 ENDIF 0690 UNTIL CEKS=B OR PIL1=B 0700 ENDPROC 0710 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0720 IF CEKS=E THEN 0730 POSTNR=TAB2(ANTAL2+E,G) 0740 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0750 FOR I=ANTAL2+E TO PIL4+E STEP -E 0760 TAB2(I,E)=TAB2(I-E,E) 0770 TAB2(I,G)=TAB2(I-E,G) 0780 NEXT I 0790 TAB2(PIL4,E)=NØGL2 0800 TAB2(PIL4,G)=POSTNR 0810 ANTAL2=ANTAL2+E 0820 ENDIF 0830 ENDPROC 0840 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0850 IF CEKS=B THEN 0860 POSTNR=TAB3(PIL5,G) 0870 FOR I=PIL5 TO ANTAL3-E 0880 TAB3(I,E)=TAB3(I+E,E) 0890 TAB3(I,G)=TAB3(I+E,G) 0900 NEXT I 0910 TAB3(ANTAL3,E)=1000000 0920 TAB3(ANTAL3,G)=POSTNR 0930 ANTAL3=ANTAL3-E 0940 ENDIF 0950 ENDPROC 0960 PROC SLETFPOST(NØGLE3) 0970 EXEC FINDPOST(FTAB,MFANTAL,NØGLE3,FPIL3) 0980 IF CEKS=E THEN STOP 0990 FNR=B;FNAVN$=BLANK$(E:25);FMKODE$=" ";FUKODE$=" ";FMDEBET$="0+" 1000 FMKREDIT$="0+";FÅDEBET$="0+";FÅKREDIT$="0+" 1010 EXEC GEMFPOST 1020 EXEC SLETPOST(FTAB,AFIN,NØGLE3,FPIL3) 1030 ENDPROC 1040 PROC HENTPOST 1050 S=FTAB(FPIL3,G) 1060 GET K3$,S:FNR,FNAVN$ 1070 EXEC FEJL(V,G,K3$) 1080 IF FNR<>FTAB(FPIL3,E) THEN STOP 1090 GET K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$ 1100 EXEC FEJL(V,V,K3$) 1110 GET K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$ 1120 EXEC FEJL(V,4,K3$) 1130 ENDPROC 1140 PROC GEMFPOST 1150 S=FTAB(FPIL3,G) 1160 PUT K3$,S:FNR,FNAVN$ 1170 EXEC FEJL(4,V,K3$) 1180 PUT K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$ 1190 EXEC FEJL(4,4,K3$) 1200 PUT K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$ 1210 EXEC FEJL(4,4,K3$) 1220 ENDPROC 1230 PROC FINDTAST(FSTYR,FÆND,FNR2) 1240 IF FÆND<>E THEN 1250 CLEAR 1260 CURSOR 21,E 1270 PRINT "Kontooplysninger" 1280 EXEC VERSKRIFT 1290 CURSOR G,V 1300 PRINT USING "1:Kontonr : ######":FNR2 1310 ENDIF 1320 REPEAT 1330 CASE FSTYR OF 1340 STOP 1350 WHEN G 1360 IF FÆND<>E THEN 1370 CURSOR G,5 1380 PRINT "2:Kontonavn :" 1390 FSTYR=V 1400 ENDIF 1410 IF FÆND<>G THEN 1420 CURSOR V,23 1430 PRINT "Kontonavn";BLANK$(E:29);"(max 25 tegn)";BLANK$(E:25) 1440 CURSOR 13,23 1450 INPUT FNAVN$ 1460 ENDIF 1470 CURSOR 19,5 1480 PRINT BLANK$(E:25) 1490 CURSOR 19,5 1500 PRINT FNAVN$ 1510 WHEN 4 1520 IF ORD(FUKODE$)=48 THEN 1530 IF FÆND<>E THEN 1540 CURSOR G,W 1550 PRINT "4:Momskode :" 1560 ENDIF 1570 IF FÆND<>G THEN 1580 REPEAT 1590 CURSOR V,23 1600 PRINT "Momskode (0:ingen moms,1:indgående afgift,"; 1610 PRINT "2:udgående afgift) " 1620 CURSOR 13,23 1630 INPUT A$ 1640 UNTIL (ORD(A$)>47 AND ORD(A$)<51) 1650 FMKODE$=A$ 1660 ENDIF 1670 CURSOR 19,W 1680 PRINT " " 1690 CURSOR 19,W 1700 PRINT FMKODE$ 1710 ENDIF 1720 FSTYR=5 1730 WHEN V 1740 IF FÆND<>E THEN 1750 CURSOR G,7 1760 PRINT "3:Udskriftskode:" 1770 ENDIF 1780 IF FÆND<>G THEN 1790 IF FT=FNR2 OR FT1=FNR2 THEN 1800 FUKODE$="2" 1810 ELSE 1820 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN 1830 FUKODE$="1" 1840 ELSE 1850 REPEAT 1860 CURSOR V,23 1870 PRINT "Udskriftskode (0:normal,1:undergr,.2:hovedgr.,3:subto"; 1880 PRINT "tal,4:Overgr.) " 1890 CURSOR 17,23 1900 INPUT A$ 1910 UNTIL ORD(A$)>47 AND ORD(A$)<53 1920 FUKODE$=A$ 1930 ENDIF 1940 ENDIF 1950 ENDIF 1960 CURSOR 19,7 1970 PRINT " " 1980 CURSOR 19,7 1990 PRINT FUKODE$ 2000 IF ORD(FUKODE$)>48 THEN 2010 FSTYR=5 2020 ELSE 2030 FSTYR=4 2040 ENDIF 2050 ENDCASE 2060 IF FÆND=E THEN FSTYR=5 2070 UNTIL FSTYR=5 2080 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN 2090 FT2=E 2100 ELSE 2110 FT2=B 2120 ENDIF 2130 IF FÆND<>E AND (ORD(FUKODE$)=48 OR FT2=E) THEN 2140 CURSOR 20,11 2150 PRINT "Debet" 2160 CURSOR 35,11 2170 PRINT "Kredit" 2180 CURSOR 53,11 2190 PRINT "Saldi" 2200 CURSOR 4,13 2210 PRINT "Månedens :" 2220 CURSOR 15,13 2230 EXEC TUD(FMDEBET$,TAL4$,B,B) 2240 CURSOR 31,13 2250 EXEC TUD(FMKREDIT$,TAL4$,B,B) 2260 CURSOR 48,13 2270 EXEC CALC(B,FMDEBET$,FMKREDIT$,FSALDO$) 2280 EXEC TUD(FSALDO$,TAL4$,E,B) 2290 CURSOR 4,15 2300 PRINT "Årets :" 2310 CURSOR 15,15 2320 EXEC TUD(FÅDEBET$,TAL4$,B,B) 2330 CURSOR 31,15 2340 EXEC TUD(FÅKREDIT$,TAL4$,B,B) 2350 CURSOR 48,15 2360 EXEC CALC(B,FÅDEBET$,FÅKREDIT$,FSALDO$) 2370 EXEC TUD(FSALDO$,TAL4$,E,B) 2380 ENDIF 2390 ENDPROC 2400 PROC TUD(BLB1,UBLB1,TEGN,STØR) 2410 BLB2$=BLB1$;UBLB2$=UBLB1$ 2420 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 2430 UBLB1$=UBLB2$ 2440 IF TEGN=B THEN 2450 UBLB1$=UBLB1$(E:13) 2460 ELSE 2470 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 2480 UBLB1$(LEN(UBLB1$))=" " 2490 ENDIF 2500 IF STØR=E THEN 2510 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 2520 ENDIF 2530 ENDIF 2540 PRINT UBLB1$ 2550 ENDPROC 2560 PROC NRTEST(NUM1) 2570 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 2580 CASE L OF 2590 FOR I=E TO L 2600 P1=INT(ORD(NUM1$(I))-48) 2610 IF P1=>B AND P1<=W THEN 2620 P=P*10+P1 2630 ELSE 2640 TEST2=E 2650 ENDIF 2660 NEXT I 2670 KTAL=P DIV 10000;KTAL9=P DIV 1000 2680 IF KTAL9=KRTAL THEN KTAL=KRTAL 2690 WHEN B 2700 P=-E 2710 WHEN E 2720 CASE NUM1$ OF 2730 P=INT(ORD(NUM1$)-48) 2740 WHEN "j","J" 2750 P=-7 2760 WHEN "n","N" 2770 P=-8 2780 ENDCASE 2790 ENDCASE 2800 ENDPROC 2810 PROC VERSKRIFT 2820 CURSOR 45,E 2830 CASE TYPE OF 2840 WHEN E 2850 PRINT "Oprettelse" 2860 WHEN G 2870 PRINT "Ændring" 2880 WHEN V 2890 PRINT "Sletning" 2900 WHEN 4 2910 PRINT "Udskrift" 2920 WHEN 5 2930 PRINT "Finanskontoliste" 2940 ENDCASE 2950 ENDPROC 2960 K1$="P641220:SYSTEM1" 2970 OPEN K1$,R 2980 EXEC FEJL(W,E,K1$) 2990 GET K1$,E:MFANTAL 3000 EXEC FEJL(W,G,K1$) 3010 GET K1$,4:MKRMID,MFAK,MVGR,MKGR 3020 EXEC FEJL(W,V,K1$) 3030 GET K1$,5:MKRGR 3040 EXEC FEJL(W,4,K1$) 3050 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 3060 EXEC FEJL(W,5,K1$) 3070 GET K1$,W:KRTAL 3080 EXEC FEJL(W,6,K1$) 3090 GET K1$,10:N$ 3100 EXEC FEJL(W,7,K1$) 3110 GET K1$,11:K2$ 3120 EXEC FEJL(W,8,K1$) 3130 GET K1$,15:K3$ 3140 EXEC FEJL(W,W,K1$) 3150 GET K1$,36:K4$ 3160 EXEC FEJL(W,10,K1$) 3170 CLOSE K1$ 3180 EXEC FEJL(W,11,K1$) 3190 DIM FTAB(MFANTAL,G) 3200 K4$=N$+K4$ 3210 OPEN K4$,W 3220 EXEC FEJL(W,12,K4$) 3230 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 3240 EXEC FEJL(W,13,K4$) 3250 GET K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 3260 EXEC FEJL(W,14,K4$) 3270 GET K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3280 EXEC FEJL(W,15,K4$) 3290 T2(4)=E 3300 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3310 EXEC FEJL(W,16,K4$) 3312 GET K4$,20:DV$ 3314 EXEC FEJL(W,22,K4$) 3320 CLOSE K4$ 3330 EXEC FEJL(W,17,K4$) 3340 K2$=N$+K2$ 3350 OPEN K2$,W 3360 EXEC FEJL(W,18,K2$) 3370 K3$=N$+K3$ 3380 OPEN K3$,W 3390 EXEC FEJL(W,19,K3$) 3400 EXEC INDTAB(FTAB,MFANTAL,K2$) 3410 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 3420 TAH$="0+";TAL4$="0+";FT=DTAL*10000;FT1=KRTAL*1000 3430 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 3440 REPEAT 3450 CLEAR 3460 CURSOR 21,E 3470 PRINT "Kontovedligeholdelse" 3480 CURSOR G,V 3490 PRINT "0:Færdig" 3500 CURSOR G,5 3510 PRINT "1:Oprettelse" 3520 CURSOR G,7 3530 PRINT "2:Ændring" 3540 CURSOR G,W 3550 PRINT "3:Sletning" 3560 CURSOR G,11 3570 PRINT "4:Udskrift" 3580 CURSOR G,13 3590 PRINT "5:Finanskontoliste" 3600 REPEAT 3610 CURSOR 4,15 3620 PRINT "Vælg type (0-5)" 3630 CURSOR 14,15 3640 INPUT A$ 3650 EXEC NRTEST(A$) 3660 UNTIL P>-E AND P<6 3670 TYPE=P 3680 IF TYPE=B THEN EXIT 3690 REPEAT 3700 EXEC VERSKRIFT 3710 TEST=B;KONT=E 3720 IF TYPE<5 THEN 3730 REPEAT 3740 REPEAT 3750 CURSOR V,23 3760 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35) 3770 CURSOR 22,23 3780 INPUT KTN$ 3790 EXEC NRTEST(KTN$) 3800 FT2=B 3810 IF (FT+MKGR=>P AND FT<=P) OR (FT1+MKRGR=>P AND FT1<=P) THEN FT2=E 3820 UNTIL (((KTAL<>DTAL AND KTAL<>KRTAL) OR FT2=E) AND L=5) OR P=B 3830 KONT=P 3840 IF KONT=B THEN EXIT 3850 EXEC FINDPOST(FTAB,MFANTAL,KONT,FPIL3) 3860 REPEAT 3870 CURSOR 44,23 3880 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL) THEN 3890 PRINT BLANK$(E:35) 3900 P=-E 3910 ELSE 3920 IF CEKS=E AND TYPE=E AND AFIN=>MFANTAL THEN 3930 CURSOR V,23 3940 INPUT "Ikke plads til flere konti , tast RETURN ",A$ 3950 ELSE 3960 IF CEKS=B THEN 3970 INPUT "Konto eksisterer ,tast RETURN ",A$ 3980 ELSE 3990 INPUT "Konto eksisterer ikke , tast RETURN",A$ 4000 ENDIF 4010 ENDIF 4020 EXEC NRTEST(A$) 4030 ENDIF 4040 UNTIL P=-E 4050 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL) 4060 IF KONT=B THEN EXIT 4070 IF TYPE<>E THEN 4080 FNR=KONT;TEST=B 4090 EXEC HENTPOST 4100 IF TYPE=V THEN EXEC DKRTEST 4110 EXEC FINDTAST(2,2,FNR) 4120 ELSE 4130 FNR=KONT;FNAVN$=BLANK$(E:25);FMKODE$=" ";FMDEBET$="0+";FMKREDIT$="0+" 4140 FUKODE$=" ";FÅDEBET$="0+";FÅKREDIT$="0+" 4150 EXEC FINDTAST(2,0,FNR) 4160 ENDIF 4170 ENDIF 4180 IF KONT=B THEN EXIT 4190 IF TEST=B THEN 4200 CASE TYPE OF 4210 STOP 4220 WHEN E,G 4230 REPEAT 4240 REPEAT 4250 CURSOR V,23 4260 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-4, "; 4270 PRINT "0:for færdig) " 4280 CURSOR 32,23 4290 INPUT A$ 4300 EXEC NRTEST(A$) 4310 UNTIL P=B OR (P>E AND P<5) 4320 STYR1=P 4330 IF STYR1=B THEN EXIT 4340 EXEC FINDTAST(STYR1,1,FNR) 4350 UNTIL STYR1=B 4360 IF TYPE=E THEN 4370 EXEC FINDPOST(FTAB,MFANTAL,FNR,FPIL3) 4380 EXEC INDSÆT(FTAB,AFIN,FNR,FPIL3) 4390 ENDIF 4400 EXEC GEMFPOST 4410 WHEN V 4420 REPEAT 4430 CURSOR V,23 4440 PRINT "Er det rigtigt at denne konto skal slettes"; 4450 PRINT " (J/N)";BLANK$(E:23) 4460 CURSOR 48,23 4470 INPUT A$ 4480 EXEC NRTEST(A$) 4490 UNTIL P=-7 OR P=-8 4500 IF P=-7 THEN 4510 EXEC SLETFPOST(KONT) 4520 ENDIF 4530 WHEN 4 4540 WHEN 5 4550 REPEAT 4560 REPEAT 4570 CURSOR V,23 4580 PRINT "Fra kontonr (0: Alle)" 4590 CURSOR 15,23 4600 INPUT KTN$ 4610 EXEC NRTEST(KTN$) 4620 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B 4630 IF P=B THEN 4640 FRA=E;TIL=AFIN 4650 ELSE 4660 KONT=P 4670 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4680 FRA=FPIL3 4690 ENDIF 4700 UNTIL FRA<=AFIN 4710 IF P>B THEN 4720 REPEAT 4730 CURSOR V,23 4740 PRINT "Til kontonr " 4750 CURSOR 15,23 4760 INPUT KTN$ 4770 EXEC NRTEST(KTN$) 4780 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT 4790 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4800 IF CEKS=E THEN FPIL3=FPIL3-E 4810 TIL=FPIL3 4820 ENDIF 4830 CLEAR 4840 REPEAT 4850 CURSOR 8,13 4860 INPUT "Monter papir til udskrift af finanskontoliste og tast RETURN",A$ 4870 UNTIL ORD(A$)=255 4880 OUTPUT P 4890 SIDE=E 4900 DA1=DATO 4910 DAT$=" " 4920 FOR J=8 TO E STEP -E 4930 IF J MOD V=B THEN 4940 DAT$(J)="." 4950 ELSE 4960 DAT$(J)=CHR(DA1 MOD 10+48) 4970 DA1=DA1 DIV 10 4980 ENDIF 4990 NEXT J 5000 FOR I=FRA TO TIL STEP 5 5005 PRINT TAB(67);DV$;" " 5010 PRINT TAB(10);CHR(14);"Finanskontoliste";CHR(15);TAB(36);"Dato : ";DAT$; 5020 PRINT USING " Side :####":SIDE 5030 PRINT " " 5040 SIDE=SIDE+E 5050 FOR FPIL3=I TO I+4 5060 IF FTAB(FPIL3,E)<>B THEN 5070 EXEC HENTPOST 5080 EXEC CALC(5,FMDEBET$,TAH$,UD1$) 5090 EXEC CALC(5,FMKREDIT$,TAH$,UD2$) 5100 EXEC CALC(5,FÅDEBET$,TAH$,UD3$) 5110 EXEC CALC(5,FÅKREDIT$,TAH$,UD4$) 5120 PRINT TAB(W);STREG$ 5130 PRINT TAB(W);"NAVN";TAB(39);"UDSKRIFTSKODE";TAB(66);"MOMSKODE" 5140 PRINT " " 5150 PRINT USING "###### ":FNR; 5160 PRINT FNAVN$;TAB(45);FUKODE$;TAB(70);FMKODE$ 5170 PRINT " " 5180 PRINT TAB(16);"MÅNEDENS BEVÆGELSER";TAB(59);"ÅRETS BEVÆGELSER" 5190 PRINT " " 5200 PRINT TAB(W);UD1$(E:13);" ";UD2$(E:13);TAB(49);UD3$(E:13);" "; 5210 PRINT UD4$(E:13) 5220 PRINT " " 5230 ENDIF 5240 IF FPIL3=TIL THEN EXIT 5250 NEXT FPIL3 5260 IF FPIL3=TIL AND FPIL3<I+5 THEN EXIT 5280 NEXT I 5290 FOR J=FPIL3+E TO I+4 5300 PRINT CHR(10);CHR(10) 5310 PRINT CHR(10);CHR(10) 5320 PRINT CHR(10);CHR(10) 5350 NEXT J 5370 OUTPUT T 5380 KONT=B 5390 ENDCASE 5400 ELSE 5410 REPEAT 5420 CURSOR V,23 5430 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 5440 PRINT " tryk RETURN " 5450 INPUT A$ 5460 EXEC NRTEST(A$) 5470 UNTIL P=-E 5480 ENDIF 5490 UNTIL KONT=B 5500 UNTIL TYPE=B 5510 EXEC UDTAB(FTAB,MFANTAL,K2$) 5520 CLOSE K2$ 5530 EXEC FEJL(W,30,K2$) 5540 CLOSE K3$ 5550 EXEC FEJL(W,31,K3$) 5560 OPEN K4$,W 5570 EXEC FEJL(W,32,K4$) 5580 PUT K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 5590 EXEC FEJL(W,33,K4$) 5600 T2(4)=B 5610 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 5620 EXEC FEJL(W,34,K4$) 5630 CLOSE K4$ 5640 EXEC FEJL(W,35,K4$) 5650 CHAIN "P641210:OPSTART"
0x0000…002f (0,) 8d86 0090 DIM RES$(14),OP1$(12),OP2$(12)
0x0000…002f LineComalBin {
0x0000…002f ptr = 0x8d86 // 0x0 @0x0
0x0000…002f lno = 0x005a // 0x2 @0x2
0x0000…002f at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…002f at0005 = ╱52╱R╱ // 0x5 @0x5
0x0000…002f at0006 = ╱45╱E╱ // 0x6 @0x6
0x0000…002f at0007 = ╱53╱S╱ // 0x7 @0x7
0x0000…002f at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…002f at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…002f at000a = ╱31╱1╱ // 0xa @0xa
0x0000…002f at000b = ╱34╱4╱ // 0xb @0xb
0x0000…002f at000c = ╱fe0000e004╱ // 0xc @0xc
0x0000…002f at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…002f at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…002f at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…002f at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…002f at0015 = ╱31╱1╱ // 0x15 @0x15
0x0000…002f at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…002f at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…002f at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…002f at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…002f at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…002f at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…002f at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…002f at0021 = ╱4f╱O╱ // 0x21 @0x21
0x0000…002f at0022 = ╱50╱P╱ // 0x22 @0x22
0x0000…002f at0023 = ╱32╱2╱ // 0x23 @0x23
0x0000…002f at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…002f at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…002f at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…002f at0027 = ╱32╱2╱ // 0x27 @0x27
0x0000…002f at0028 = ╱fe0000c004╱ // 0x28 @0x28
0x0000…002f at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…002f at002e = EOL // 0x2e @0x2e
0x0000…002f }
0x002f…0085 8ddc 0100 DIM FNAVN$(25),FMKODE$(E),FUKODE$(E),DAT$(8),STREG$(71),VTAB2(5)
0x002f…0085 LineComalBin {
0x002f…0085 ptr = 0x8ddc // 0x2f @0x0
0x002f…0085 lno = 0x0064 // 0x31 @0x2
0x002f…0085 at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…0085 at0005 = ╱46╱F╱ // 0x34 @0x5
0x002f…0085 at0006 = ╱4e╱N╱ // 0x35 @0x6
0x002f…0085 at0007 = ╱41╱A╱ // 0x36 @0x7
0x002f…0085 at0008 = ╱56╱V╱ // 0x37 @0x8
0x002f…0085 at0009 = ╱4e╱N╱ // 0x38 @0x9
0x002f…0085 at000a = ╱ef╱$╱ // 0x39 @0xa
0x002f…0085 at000b = ╱ed╱(╱ // 0x3a @0xb
0x002f…0085 at000c = ╱32╱2╱ // 0x3b @0xc
0x002f…0085 at000d = ╱35╱5╱ // 0x3c @0xd
0x002f…0085 at000e = ╱fe0000c805╱ // 0x3d @0xe
0x002f…0085 at0013 = ╱ee╱)╱ // 0x42 @0x13
0x002f…0085 at0014 = ╱ec╱,╱ // 0x43 @0x14
0x002f…0085 at0015 = ╱46╱F╱ // 0x44 @0x15
0x002f…0085 at0016 = ╱4d╱M╱ // 0x45 @0x16
0x002f…0085 at0017 = ╱4b╱K╱ // 0x46 @0x17
0x002f…0085 at0018 = ╱4f╱O╱ // 0x47 @0x18
0x002f…0085 at0019 = ╱44╱D╱ // 0x48 @0x19
0x002f…0085 at001a = ╱45╱E╱ // 0x49 @0x1a
0x002f…0085 at001b = ╱ef╱$╱ // 0x4a @0x1b
0x002f…0085 at001c = ╱ed╱(╱ // 0x4b @0x1c
0x002f…0085 at001d = ╱45╱E╱ // 0x4c @0x1d
0x002f…0085 at001e = ╱ee╱)╱ // 0x4d @0x1e
0x002f…0085 at001f = ╱ec╱,╱ // 0x4e @0x1f
0x002f…0085 at0020 = ╱46╱F╱ // 0x4f @0x20
0x002f…0085 at0021 = ╱55╱U╱ // 0x50 @0x21
0x002f…0085 at0022 = ╱4b╱K╱ // 0x51 @0x22
0x002f…0085 at0023 = ╱4f╱O╱ // 0x52 @0x23
0x002f…0085 at0024 = ╱44╱D╱ // 0x53 @0x24
0x002f…0085 at0025 = ╱45╱E╱ // 0x54 @0x25
0x002f…0085 at0026 = ╱ef╱$╱ // 0x55 @0x26
0x002f…0085 at0027 = ╱ed╱(╱ // 0x56 @0x27
0x002f…0085 at0028 = ╱45╱E╱ // 0x57 @0x28
0x002f…0085 at0029 = ╱ee╱)╱ // 0x58 @0x29
0x002f…0085 at002a = ╱ec╱,╱ // 0x59 @0x2a
0x002f…0085 at002b = ╱44╱D╱ // 0x5a @0x2b
0x002f…0085 at002c = ╱41╱A╱ // 0x5b @0x2c
0x002f…0085 at002d = ╱54╱T╱ // 0x5c @0x2d
0x002f…0085 at002e = ╱ef╱$╱ // 0x5d @0x2e
0x002f…0085 at002f = ╱ed╱(╱ // 0x5e @0x2f
0x002f…0085 at0030 = ╱38╱8╱ // 0x5f @0x30
0x002f…0085 at0031 = ╱fe00008004╱ // 0x60 @0x31
0x002f…0085 at0036 = ╱ee╱)╱ // 0x65 @0x36
0x002f…0085 at0037 = ╱ec╱,╱ // 0x66 @0x37
0x002f…0085 at0038 = ╱53╱S╱ // 0x67 @0x38
0x002f…0085 at0039 = ╱54╱T╱ // 0x68 @0x39
0x002f…0085 at003a = ╱52╱R╱ // 0x69 @0x3a
0x002f…0085 at003b = ╱45╱E╱ // 0x6a @0x3b
0x002f…0085 at003c = ╱47╱G╱ // 0x6b @0x3c
0x002f…0085 at003d = ╱ef╱$╱ // 0x6c @0x3d
0x002f…0085 at003e = ╱ed╱(╱ // 0x6d @0x3e
0x002f…0085 at003f = ╱37╱7╱ // 0x6e @0x3f
0x002f…0085 at0040 = ╱31╱1╱ // 0x6f @0x40
0x002f…0085 at0041 = ╱fe00008e07╱ // 0x70 @0x41
0x002f…0085 at0046 = ╱ee╱)╱ // 0x75 @0x46
0x002f…0085 at0047 = ╱ec╱,╱ // 0x76 @0x47
0x002f…0085 at0048 = ╱56╱V╱ // 0x77 @0x48
0x002f…0085 at0049 = ╱54╱T╱ // 0x78 @0x49
0x002f…0085 at004a = ╱41╱A╱ // 0x79 @0x4a
0x002f…0085 at004b = ╱42╱B╱ // 0x7a @0x4b
0x002f…0085 at004c = ╱32╱2╱ // 0x7b @0x4c
0x002f…0085 at004d = ╱ed╱(╱ // 0x7c @0x4d
0x002f…0085 at004e = ╱35╱5╱ // 0x7d @0x4e
0x002f…0085 at004f = ╱fe0000a003╱ // 0x7e @0x4f
0x002f…0085 at0054 = ╱ee╱)╱ // 0x83 @0x54
0x002f…0085 at0055 = EOL // 0x84 @0x55
0x002f…0085 }
0x0085…00e5 8e3c 0110 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12)
0x0085…00e5 LineComalBin {
0x0085…00e5 ptr = 0x8e3c // 0x85 @0x0
0x0085…00e5 lno = 0x006e // 0x87 @0x2
0x0085…00e5 at0004 = ╱87╱ DIM ╱ // 0x89 @0x4
0x0085…00e5 at0005 = ╱46╱F╱ // 0x8a @0x5
0x0085…00e5 at0006 = ╱4d╱M╱ // 0x8b @0x6
0x0085…00e5 at0007 = ╱44╱D╱ // 0x8c @0x7
0x0085…00e5 at0008 = ╱45╱E╱ // 0x8d @0x8
0x0085…00e5 at0009 = ╱42╱B╱ // 0x8e @0x9
0x0085…00e5 at000a = ╱45╱E╱ // 0x8f @0xa
0x0085…00e5 at000b = ╱54╱T╱ // 0x90 @0xb
0x0085…00e5 at000c = ╱ef╱$╱ // 0x91 @0xc
0x0085…00e5 at000d = ╱ed╱(╱ // 0x92 @0xd
0x0085…00e5 at000e = ╱31╱1╱ // 0x93 @0xe
0x0085…00e5 at000f = ╱32╱2╱ // 0x94 @0xf
0x0085…00e5 at0010 = ╱fe0000c004╱ // 0x95 @0x10
0x0085…00e5 at0015 = ╱ee╱)╱ // 0x9a @0x15
0x0085…00e5 at0016 = ╱ec╱,╱ // 0x9b @0x16
0x0085…00e5 at0017 = ╱46╱F╱ // 0x9c @0x17
0x0085…00e5 at0018 = ╱4d╱M╱ // 0x9d @0x18
0x0085…00e5 at0019 = ╱4b╱K╱ // 0x9e @0x19
0x0085…00e5 at001a = ╱52╱R╱ // 0x9f @0x1a
0x0085…00e5 at001b = ╱45╱E╱ // 0xa0 @0x1b
0x0085…00e5 at001c = ╱44╱D╱ // 0xa1 @0x1c
0x0085…00e5 at001d = ╱49╱I╱ // 0xa2 @0x1d
0x0085…00e5 at001e = ╱54╱T╱ // 0xa3 @0x1e
0x0085…00e5 at001f = ╱ef╱$╱ // 0xa4 @0x1f
0x0085…00e5 at0020 = ╱ed╱(╱ // 0xa5 @0x20
0x0085…00e5 at0021 = ╱31╱1╱ // 0xa6 @0x21
0x0085…00e5 at0022 = ╱32╱2╱ // 0xa7 @0x22
0x0085…00e5 at0023 = ╱fe0000c004╱ // 0xa8 @0x23
0x0085…00e5 at0028 = ╱ee╱)╱ // 0xad @0x28
0x0085…00e5 at0029 = ╱ec╱,╱ // 0xae @0x29
0x0085…00e5 at002a = ╱46╱F╱ // 0xaf @0x2a
0x0085…00e5 at002b = ╱5d╱Å╱ // 0xb0 @0x2b
0x0085…00e5 at002c = ╱44╱D╱ // 0xb1 @0x2c
0x0085…00e5 at002d = ╱45╱E╱ // 0xb2 @0x2d
0x0085…00e5 at002e = ╱42╱B╱ // 0xb3 @0x2e
0x0085…00e5 at002f = ╱45╱E╱ // 0xb4 @0x2f
0x0085…00e5 at0030 = ╱54╱T╱ // 0xb5 @0x30
0x0085…00e5 at0031 = ╱ef╱$╱ // 0xb6 @0x31
0x0085…00e5 at0032 = ╱ed╱(╱ // 0xb7 @0x32
0x0085…00e5 at0033 = ╱31╱1╱ // 0xb8 @0x33
0x0085…00e5 at0034 = ╱32╱2╱ // 0xb9 @0x34
0x0085…00e5 at0035 = ╱fe0000c004╱ // 0xba @0x35
0x0085…00e5 at003a = ╱ee╱)╱ // 0xbf @0x3a
0x0085…00e5 at003b = ╱ec╱,╱ // 0xc0 @0x3b
0x0085…00e5 at003c = ╱46╱F╱ // 0xc1 @0x3c
0x0085…00e5 at003d = ╱5d╱Å╱ // 0xc2 @0x3d
0x0085…00e5 at003e = ╱4b╱K╱ // 0xc3 @0x3e
0x0085…00e5 at003f = ╱52╱R╱ // 0xc4 @0x3f
0x0085…00e5 at0040 = ╱45╱E╱ // 0xc5 @0x40
0x0085…00e5 at0041 = ╱44╱D╱ // 0xc6 @0x41
0x0085…00e5 at0042 = ╱49╱I╱ // 0xc7 @0x42
0x0085…00e5 at0043 = ╱54╱T╱ // 0xc8 @0x43
0x0085…00e5 at0044 = ╱ef╱$╱ // 0xc9 @0x44
0x0085…00e5 at0045 = ╱ed╱(╱ // 0xca @0x45
0x0085…00e5 at0046 = ╱31╱1╱ // 0xcb @0x46
0x0085…00e5 at0047 = ╱32╱2╱ // 0xcc @0x47
0x0085…00e5 at0048 = ╱fe0000c004╱ // 0xcd @0x48
0x0085…00e5 at004d = ╱ee╱)╱ // 0xd2 @0x4d
0x0085…00e5 at004e = ╱ec╱,╱ // 0xd3 @0x4e
0x0085…00e5 at004f = ╱46╱F╱ // 0xd4 @0x4f
0x0085…00e5 at0050 = ╱53╱S╱ // 0xd5 @0x50
0x0085…00e5 at0051 = ╱41╱A╱ // 0xd6 @0x51
0x0085…00e5 at0052 = ╱4c╱L╱ // 0xd7 @0x52
0x0085…00e5 at0053 = ╱44╱D╱ // 0xd8 @0x53
0x0085…00e5 at0054 = ╱4f╱O╱ // 0xd9 @0x54
0x0085…00e5 at0055 = ╱ef╱$╱ // 0xda @0x55
0x0085…00e5 at0056 = ╱ed╱(╱ // 0xdb @0x56
0x0085…00e5 at0057 = ╱31╱1╱ // 0xdc @0x57
0x0085…00e5 at0058 = ╱32╱2╱ // 0xdd @0x58
0x0085…00e5 at0059 = ╱fe0000c004╱ // 0xde @0x59
0x0085…00e5 at005e = ╱ee╱)╱ // 0xe3 @0x5e
0x0085…00e5 at005f = EOL // 0xe4 @0x5f
0x0085…00e5 }
0x00e5…0135 8e8c 0120 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10)
0x00e5…0135 LineComalBin {
0x00e5…0135 ptr = 0x8e8c // 0xe5 @0x0
0x00e5…0135 lno = 0x0078 // 0xe7 @0x2
0x00e5…0135 at0004 = ╱87╱ DIM ╱ // 0xe9 @0x4
0x00e5…0135 at0005 = ╱4e╱N╱ // 0xea @0x5
0x00e5…0135 at0006 = ╱ef╱$╱ // 0xeb @0x6
0x00e5…0135 at0007 = ╱ed╱(╱ // 0xec @0x7
0x00e5…0135 at0008 = ╱36╱6╱ // 0xed @0x8
0x00e5…0135 at0009 = ╱fe0000c003╱ // 0xee @0x9
0x00e5…0135 at000e = ╱ee╱)╱ // 0xf3 @0xe
0x00e5…0135 at000f = ╱ec╱,╱ // 0xf4 @0xf
0x00e5…0135 at0010 = ╱42╱B╱ // 0xf5 @0x10
0x00e5…0135 at0011 = ╱4c╱L╱ // 0xf6 @0x11
0x00e5…0135 at0012 = ╱41╱A╱ // 0xf7 @0x12
0x00e5…0135 at0013 = ╱4e╱N╱ // 0xf8 @0x13
0x00e5…0135 at0014 = ╱4b╱K╱ // 0xf9 @0x14
0x00e5…0135 at0015 = ╱ef╱$╱ // 0xfa @0x15
0x00e5…0135 at0016 = ╱ed╱(╱ // 0xfb @0x16
0x00e5…0135 at0017 = ╱37╱7╱ // 0xfc @0x17
0x00e5…0135 at0018 = ╱37╱7╱ // 0xfd @0x18
0x00e5…0135 at0019 = ╱fe00009a07╱ // 0xfe @0x19
0x00e5…0135 at001e = ╱ee╱)╱ // 0x103 @0x1e
0x00e5…0135 at001f = ╱ec╱,╱ // 0x104 @0x1f
0x00e5…0135 at0020 = ╱41╱A╱ // 0x105 @0x20
0x00e5…0135 at0021 = ╱ef╱$╱ // 0x106 @0x21
0x00e5…0135 at0022 = ╱ed╱(╱ // 0x107 @0x22
0x00e5…0135 at0023 = ╱45╱E╱ // 0x108 @0x23
0x00e5…0135 at0024 = ╱ee╱)╱ // 0x109 @0x24
0x00e5…0135 at0025 = ╱ec╱,╱ // 0x10a @0x25
0x00e5…0135 at0026 = ╱54╱T╱ // 0x10b @0x26
0x00e5…0135 at0027 = ╱41╱A╱ // 0x10c @0x27
0x00e5…0135 at0028 = ╱4c╱L╱ // 0x10d @0x28
0x00e5…0135 at0029 = ╱34╱4╱ // 0x10e @0x29
0x00e5…0135 at002a = ╱ef╱$╱ // 0x10f @0x2a
0x00e5…0135 at002b = ╱ed╱(╱ // 0x110 @0x2b
0x00e5…0135 at002c = ╱31╱1╱ // 0x111 @0x2c
0x00e5…0135 at002d = ╱34╱4╱ // 0x112 @0x2d
0x00e5…0135 at002e = ╱fe0000e004╱ // 0x113 @0x2e
0x00e5…0135 at0033 = ╱ee╱)╱ // 0x118 @0x33
0x00e5…0135 at0034 = ╱ec╱,╱ // 0x119 @0x34
0x00e5…0135 at0035 = ╱54╱T╱ // 0x11a @0x35
0x00e5…0135 at0036 = ╱41╱A╱ // 0x11b @0x36
0x00e5…0135 at0037 = ╱48╱H╱ // 0x11c @0x37
0x00e5…0135 at0038 = ╱ef╱$╱ // 0x11d @0x38
0x00e5…0135 at0039 = ╱ed╱(╱ // 0x11e @0x39
0x00e5…0135 at003a = ╱31╱1╱ // 0x11f @0x3a
0x00e5…0135 at003b = ╱32╱2╱ // 0x120 @0x3b
0x00e5…0135 at003c = ╱fe0000c004╱ // 0x121 @0x3c
0x00e5…0135 at0041 = ╱ee╱)╱ // 0x126 @0x41
0x00e5…0135 at0042 = ╱ec╱,╱ // 0x127 @0x42
0x00e5…0135 at0043 = ╱44╱D╱ // 0x128 @0x43
0x00e5…0135 at0044 = ╱56╱V╱ // 0x129 @0x44
0x00e5…0135 at0045 = ╱ef╱$╱ // 0x12a @0x45
0x00e5…0135 at0046 = ╱ed╱(╱ // 0x12b @0x46
0x00e5…0135 at0047 = ╱31╱1╱ // 0x12c @0x47
0x00e5…0135 at0048 = ╱30╱0╱ // 0x12d @0x48
0x00e5…0135 at0049 = ╱fe0000a004╱ // 0x12e @0x49
0x00e5…0135 at004e = ╱ee╱)╱ // 0x133 @0x4e
0x00e5…0135 at004f = EOL // 0x134 @0x4f
0x00e5…0135 }
0x0135…0190 8ee7 0130 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14)
0x0135…0190 LineComalBin {
0x0135…0190 ptr = 0x8ee7 // 0x135 @0x0
0x0135…0190 lno = 0x0082 // 0x137 @0x2
0x0135…0190 at0004 = ╱87╱ DIM ╱ // 0x139 @0x4
0x0135…0190 at0005 = ╱4b╱K╱ // 0x13a @0x5
0x0135…0190 at0006 = ╱54╱T╱ // 0x13b @0x6
0x0135…0190 at0007 = ╱4e╱N╱ // 0x13c @0x7
0x0135…0190 at0008 = ╱ef╱$╱ // 0x13d @0x8
0x0135…0190 at0009 = ╱ed╱(╱ // 0x13e @0x9
0x0135…0190 at000a = ╱37╱7╱ // 0x13f @0xa
0x0135…0190 at000b = ╱fe0000e003╱ // 0x140 @0xb
0x0135…0190 at0010 = ╱ee╱)╱ // 0x145 @0x10
0x0135…0190 at0011 = ╱ec╱,╱ // 0x146 @0x11
0x0135…0190 at0012 = ╱42╱B╱ // 0x147 @0x12
0x0135…0190 at0013 = ╱4c╱L╱ // 0x148 @0x13
0x0135…0190 at0014 = ╱42╱B╱ // 0x149 @0x14
0x0135…0190 at0015 = ╱32╱2╱ // 0x14a @0x15
0x0135…0190 at0016 = ╱ef╱$╱ // 0x14b @0x16
0x0135…0190 at0017 = ╱ed╱(╱ // 0x14c @0x17
0x0135…0190 at0018 = ╱31╱1╱ // 0x14d @0x18
0x0135…0190 at0019 = ╱32╱2╱ // 0x14e @0x19
0x0135…0190 at001a = ╱fe0000c004╱ // 0x14f @0x1a
0x0135…0190 at001f = ╱ee╱)╱ // 0x154 @0x1f
0x0135…0190 at0020 = ╱ec╱,╱ // 0x155 @0x20
0x0135…0190 at0021 = ╱55╱U╱ // 0x156 @0x21
0x0135…0190 at0022 = ╱42╱B╱ // 0x157 @0x22
0x0135…0190 at0023 = ╱4c╱L╱ // 0x158 @0x23
0x0135…0190 at0024 = ╱42╱B╱ // 0x159 @0x24
0x0135…0190 at0025 = ╱32╱2╱ // 0x15a @0x25
0x0135…0190 at0026 = ╱ef╱$╱ // 0x15b @0x26
0x0135…0190 at0027 = ╱ed╱(╱ // 0x15c @0x27
0x0135…0190 at0028 = ╱31╱1╱ // 0x15d @0x28
0x0135…0190 at0029 = ╱34╱4╱ // 0x15e @0x29
0x0135…0190 at002a = ╱fe0000e004╱ // 0x15f @0x2a
0x0135…0190 at002f = ╱ee╱)╱ // 0x164 @0x2f
0x0135…0190 at0030 = ╱ec╱,╱ // 0x165 @0x30
0x0135…0190 at0031 = ╱55╱U╱ // 0x166 @0x31
0x0135…0190 at0032 = ╱44╱D╱ // 0x167 @0x32
0x0135…0190 at0033 = ╱31╱1╱ // 0x168 @0x33
0x0135…0190 at0034 = ╱ef╱$╱ // 0x169 @0x34
0x0135…0190 at0035 = ╱ed╱(╱ // 0x16a @0x35
0x0135…0190 at0036 = ╱31╱1╱ // 0x16b @0x36
0x0135…0190 at0037 = ╱34╱4╱ // 0x16c @0x37
0x0135…0190 at0038 = ╱fe0000e004╱ // 0x16d @0x38
0x0135…0190 at003d = ╱ee╱)╱ // 0x172 @0x3d
0x0135…0190 at003e = ╱ec╱,╱ // 0x173 @0x3e
0x0135…0190 at003f = ╱55╱U╱ // 0x174 @0x3f
0x0135…0190 at0040 = ╱44╱D╱ // 0x175 @0x40
0x0135…0190 at0041 = ╱32╱2╱ // 0x176 @0x41
0x0135…0190 at0042 = ╱ef╱$╱ // 0x177 @0x42
0x0135…0190 at0043 = ╱ed╱(╱ // 0x178 @0x43
0x0135…0190 at0044 = ╱31╱1╱ // 0x179 @0x44
0x0135…0190 at0045 = ╱34╱4╱ // 0x17a @0x45
0x0135…0190 at0046 = ╱fe0000e004╱ // 0x17b @0x46
0x0135…0190 at004b = ╱ee╱)╱ // 0x180 @0x4b
0x0135…0190 at004c = ╱ec╱,╱ // 0x181 @0x4c
0x0135…0190 at004d = ╱55╱U╱ // 0x182 @0x4d
0x0135…0190 at004e = ╱44╱D╱ // 0x183 @0x4e
0x0135…0190 at004f = ╱33╱3╱ // 0x184 @0x4f
0x0135…0190 at0050 = ╱ef╱$╱ // 0x185 @0x50
0x0135…0190 at0051 = ╱ed╱(╱ // 0x186 @0x51
0x0135…0190 at0052 = ╱31╱1╱ // 0x187 @0x52
0x0135…0190 at0053 = ╱34╱4╱ // 0x188 @0x53
0x0135…0190 at0054 = ╱fe0000e004╱ // 0x189 @0x54
0x0135…0190 at0059 = ╱ee╱)╱ // 0x18e @0x59
0x0135…0190 at005a = EOL // 0x18f @0x5a
0x0135…0190 }
0x0190…01f0 8f47 0140 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17)
0x0190…01f0 LineComalBin {
0x0190…01f0 ptr = 0x8f47 // 0x190 @0x0
0x0190…01f0 lno = 0x008c // 0x192 @0x2
0x0190…01f0 at0004 = ╱87╱ DIM ╱ // 0x194 @0x4
0x0190…01f0 at0005 = ╱55╱U╱ // 0x195 @0x5
0x0190…01f0 at0006 = ╱44╱D╱ // 0x196 @0x6
0x0190…01f0 at0007 = ╱34╱4╱ // 0x197 @0x7
0x0190…01f0 at0008 = ╱ef╱$╱ // 0x198 @0x8
0x0190…01f0 at0009 = ╱ed╱(╱ // 0x199 @0x9
0x0190…01f0 at000a = ╱31╱1╱ // 0x19a @0xa
0x0190…01f0 at000b = ╱34╱4╱ // 0x19b @0xb
0x0190…01f0 at000c = ╱fe0000e004╱ // 0x19c @0xc
0x0190…01f0 at0011 = ╱ee╱)╱ // 0x1a1 @0x11
0x0190…01f0 at0012 = ╱ec╱,╱ // 0x1a2 @0x12
0x0190…01f0 at0013 = ╱4b╱K╱ // 0x1a3 @0x13
0x0190…01f0 at0014 = ╱34╱4╱ // 0x1a4 @0x14
0x0190…01f0 at0015 = ╱ef╱$╱ // 0x1a5 @0x15
0x0190…01f0 at0016 = ╱ed╱(╱ // 0x1a6 @0x16
0x0190…01f0 at0017 = ╱31╱1╱ // 0x1a7 @0x17
0x0190…01f0 at0018 = ╱37╱7╱ // 0x1a8 @0x18
0x0190…01f0 at0019 = ╱fe00008805╱ // 0x1a9 @0x19
0x0190…01f0 at001e = ╱ee╱)╱ // 0x1ae @0x1e
0x0190…01f0 at001f = ╱ec╱,╱ // 0x1af @0x1f
0x0190…01f0 at0020 = ╱4b╱K╱ // 0x1b0 @0x20
0x0190…01f0 at0021 = ╱35╱5╱ // 0x1b1 @0x21
0x0190…01f0 at0022 = ╱ef╱$╱ // 0x1b2 @0x22
0x0190…01f0 at0023 = ╱ed╱(╱ // 0x1b3 @0x23
0x0190…01f0 at0024 = ╱31╱1╱ // 0x1b4 @0x24
0x0190…01f0 at0025 = ╱37╱7╱ // 0x1b5 @0x25
0x0190…01f0 at0026 = ╱fe00008805╱ // 0x1b6 @0x26
0x0190…01f0 at002b = ╱ee╱)╱ // 0x1bb @0x2b
0x0190…01f0 at002c = ╱ec╱,╱ // 0x1bc @0x2c
0x0190…01f0 at002d = ╱54╱T╱ // 0x1bd @0x2d
0x0190…01f0 at002e = ╱31╱1╱ // 0x1be @0x2e
0x0190…01f0 at002f = ╱ed╱(╱ // 0x1bf @0x2f
0x0190…01f0 at0030 = ╱57╱W╱ // 0x1c0 @0x30
0x0190…01f0 at0031 = ╱ee╱)╱ // 0x1c1 @0x31
0x0190…01f0 at0032 = ╱ec╱,╱ // 0x1c2 @0x32
0x0190…01f0 at0033 = ╱54╱T╱ // 0x1c3 @0x33
0x0190…01f0 at0034 = ╱32╱2╱ // 0x1c4 @0x34
0x0190…01f0 at0035 = ╱ed╱(╱ // 0x1c5 @0x35
0x0190…01f0 at0036 = ╱57╱W╱ // 0x1c6 @0x36
0x0190…01f0 at0037 = ╱ee╱)╱ // 0x1c7 @0x37
0x0190…01f0 at0038 = ╱ec╱,╱ // 0x1c8 @0x38
0x0190…01f0 at0039 = ╱4b╱K╱ // 0x1c9 @0x39
0x0190…01f0 at003a = ╱33╱3╱ // 0x1ca @0x3a
0x0190…01f0 at003b = ╱ef╱$╱ // 0x1cb @0x3b
0x0190…01f0 at003c = ╱ed╱(╱ // 0x1cc @0x3c
0x0190…01f0 at003d = ╱31╱1╱ // 0x1cd @0x3d
0x0190…01f0 at003e = ╱37╱7╱ // 0x1ce @0x3e
0x0190…01f0 at003f = ╱fe00008805╱ // 0x1cf @0x3f
0x0190…01f0 at0044 = ╱ee╱)╱ // 0x1d4 @0x44
0x0190…01f0 at0045 = ╱ec╱,╱ // 0x1d5 @0x45
0x0190…01f0 at0046 = ╱4b╱K╱ // 0x1d6 @0x46
0x0190…01f0 at0047 = ╱31╱1╱ // 0x1d7 @0x47
0x0190…01f0 at0048 = ╱ef╱$╱ // 0x1d8 @0x48
0x0190…01f0 at0049 = ╱ed╱(╱ // 0x1d9 @0x49
0x0190…01f0 at004a = ╱31╱1╱ // 0x1da @0x4a
0x0190…01f0 at004b = ╱37╱7╱ // 0x1db @0x4b
0x0190…01f0 at004c = ╱fe00008805╱ // 0x1dc @0x4c
0x0190…01f0 at0051 = ╱ee╱)╱ // 0x1e1 @0x51
0x0190…01f0 at0052 = ╱ec╱,╱ // 0x1e2 @0x52
0x0190…01f0 at0053 = ╱4b╱K╱ // 0x1e3 @0x53
0x0190…01f0 at0054 = ╱32╱2╱ // 0x1e4 @0x54
0x0190…01f0 at0055 = ╱ef╱$╱ // 0x1e5 @0x55
0x0190…01f0 at0056 = ╱ed╱(╱ // 0x1e6 @0x56
0x0190…01f0 at0057 = ╱31╱1╱ // 0x1e7 @0x57
0x0190…01f0 at0058 = ╱37╱7╱ // 0x1e8 @0x58
0x0190…01f0 at0059 = ╱fe00008805╱ // 0x1e9 @0x59
0x0190…01f0 at005e = ╱ee╱)╱ // 0x1ee @0x5e
0x0190…01f0 at005f = EOL // 0x1ef @0x5f
0x0190…01f0 }
0x01f0…0207 8f5e 0150 PROC CALC(AT,B1,B2,ES)
0x01f0…0207 LineComalBin {
0x01f0…0207 ptr = 0x8f5e // 0x1f0 @0x0
0x01f0…0207 lno = 0x0096 // 0x1f2 @0x2
0x01f0…0207 at0004 = ╱9e╱ PROC ╱ // 0x1f4 @0x4
0x01f0…0207 at0005 = ╱43╱C╱ // 0x1f5 @0x5
0x01f0…0207 at0006 = ╱41╱A╱ // 0x1f6 @0x6
0x01f0…0207 at0007 = ╱4c╱L╱ // 0x1f7 @0x7
0x01f0…0207 at0008 = ╱43╱C╱ // 0x1f8 @0x8
0x01f0…0207 at0009 = ╱ed╱(╱ // 0x1f9 @0x9
0x01f0…0207 at000a = ╱41╱A╱ // 0x1fa @0xa
0x01f0…0207 at000b = ╱54╱T╱ // 0x1fb @0xb
0x01f0…0207 at000c = ╱ec╱,╱ // 0x1fc @0xc
0x01f0…0207 at000d = ╱42╱B╱ // 0x1fd @0xd
0x01f0…0207 at000e = ╱31╱1╱ // 0x1fe @0xe
0x01f0…0207 at000f = ╱ec╱,╱ // 0x1ff @0xf
0x01f0…0207 at0010 = ╱42╱B╱ // 0x200 @0x10
0x01f0…0207 at0011 = ╱32╱2╱ // 0x201 @0x11
0x01f0…0207 at0012 = ╱ec╱,╱ // 0x202 @0x12
0x01f0…0207 at0013 = ╱45╱E╱ // 0x203 @0x13
0x01f0…0207 at0014 = ╱53╱S╱ // 0x204 @0x14
0x01f0…0207 at0015 = ╱ee╱)╱ // 0x205 @0x15
0x01f0…0207 at0016 = EOL // 0x206 @0x16
0x01f0…0207 }
0x0207…0239 8f90 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT
0x0207…0239 LineComalBin {
0x0207…0239 ptr = 0x8f90 // 0x207 @0x0
0x0207…0239 lno = 0x00a0 // 0x209 @0x2
0x0207…0239 at0004 = ╱52╱R╱ // 0x20b @0x4
0x0207…0239 at0005 = ╱45╱E╱ // 0x20c @0x5
0x0207…0239 at0006 = ╱53╱S╱ // 0x20d @0x6
0x0207…0239 at0007 = ╱ef╱$╱ // 0x20e @0x7
0x0207…0239 at0008 = ╱dc╱=╱ // 0x20f @0x8
0x0207…0239 at0009 = ╱45╱E╱ // 0x210 @0x9
0x0207…0239 at000a = ╱53╱S╱ // 0x211 @0xa
0x0207…0239 at000b = ╱ef╱$╱ // 0x212 @0xb
0x0207…0239 at000c = ╱eb╱;╱ // 0x213 @0xc
0x0207…0239 at000d = ╱4f╱O╱ // 0x214 @0xd
0x0207…0239 at000e = ╱50╱P╱ // 0x215 @0xe
0x0207…0239 at000f = ╱31╱1╱ // 0x216 @0xf
0x0207…0239 at0010 = ╱ef╱$╱ // 0x217 @0x10
0x0207…0239 at0011 = ╱dc╱=╱ // 0x218 @0x11
0x0207…0239 at0012 = ╱42╱B╱ // 0x219 @0x12
0x0207…0239 at0013 = ╱31╱1╱ // 0x21a @0x13
0x0207…0239 at0014 = ╱ef╱$╱ // 0x21b @0x14
0x0207…0239 at0015 = ╱eb╱;╱ // 0x21c @0x15
0x0207…0239 at0016 = ╱4f╱O╱ // 0x21d @0x16
0x0207…0239 at0017 = ╱50╱P╱ // 0x21e @0x17
0x0207…0239 at0018 = ╱32╱2╱ // 0x21f @0x18
0x0207…0239 at0019 = ╱ef╱$╱ // 0x220 @0x19
0x0207…0239 at001a = ╱dc╱=╱ // 0x221 @0x1a
0x0207…0239 at001b = ╱42╱B╱ // 0x222 @0x1b
0x0207…0239 at001c = ╱32╱2╱ // 0x223 @0x1c
0x0207…0239 at001d = ╱ef╱$╱ // 0x224 @0x1d
0x0207…0239 at001e = ╱eb╱;╱ // 0x225 @0x1e
0x0207…0239 at001f = ╱53╱S╱ // 0x226 @0x1f
0x0207…0239 at0020 = ╱49╱I╱ // 0x227 @0x20
0x0207…0239 at0021 = ╱dc╱=╱ // 0x228 @0x21
0x0207…0239 at0022 = ╱42╱B╱ // 0x229 @0x22
0x0207…0239 at0023 = ╱eb╱;╱ // 0x22a @0x23
0x0207…0239 at0024 = ╱46╱F╱ // 0x22b @0x24
0x0207…0239 at0025 = ╱4c╱L╱ // 0x22c @0x25
0x0207…0239 at0026 = ╱41╱A╱ // 0x22d @0x26
0x0207…0239 at0027 = ╱47╱G╱ // 0x22e @0x27
0x0207…0239 at0028 = ╱dc╱=╱ // 0x22f @0x28
0x0207…0239 at0029 = ╱42╱B╱ // 0x230 @0x29
0x0207…0239 at002a = ╱eb╱;╱ // 0x231 @0x2a
0x0207…0239 at002b = ╱41╱A╱ // 0x232 @0x2b
0x0207…0239 at002c = ╱52╱R╱ // 0x233 @0x2c
0x0207…0239 at002d = ╱54╱T╱ // 0x234 @0x2d
0x0207…0239 at002e = ╱dc╱=╱ // 0x235 @0x2e
0x0207…0239 at002f = ╱41╱A╱ // 0x236 @0x2f
0x0207…0239 at0030 = ╱54╱T╱ // 0x237 @0x30
0x0207…0239 at0031 = EOL // 0x238 @0x31
0x0207…0239 }
0x0239…024f 8fa6 0170 CALL "P641210:REGN"
0x0239…024f LineComalBin {
0x0239…024f ptr = 0x8fa6 // 0x239 @0x0
0x0239…024f lno = 0x00aa // 0x23b @0x2
0x0239…024f at0004 = ╱adfa00╱ CALL ╱ // 0x23d @0x4
0x0239…024f at0007 = ╱22╱"╱ // 0x240 @0x7
0x0239…024f at0008 = ╱50╱P╱ // 0x241 @0x8
0x0239…024f at0009 = ╱36╱6╱ // 0x242 @0x9
0x0239…024f at000a = ╱34╱4╱ // 0x243 @0xa
0x0239…024f at000b = ╱31╱1╱ // 0x244 @0xb
0x0239…024f at000c = ╱32╱2╱ // 0x245 @0xc
0x0239…024f at000d = ╱31╱1╱ // 0x246 @0xd
0x0239…024f at000e = ╱30╱0╱ // 0x247 @0xe
0x0239…024f at000f = ╱3a╱:╱ // 0x248 @0xf
0x0239…024f at0010 = ╱52╱R╱ // 0x249 @0x10
0x0239…024f at0011 = ╱45╱E╱ // 0x24a @0x11
0x0239…024f at0012 = ╱47╱G╱ // 0x24b @0x12
0x0239…024f at0013 = ╱4e╱N╱ // 0x24c @0x13
0x0239…024f at0014 = ╱22╱"╱ // 0x24d @0x14
0x0239…024f at0015 = EOL // 0x24e @0x15
0x0239…024f }
0x024f…025c 8fb3 0180 ES$=RES$
0x024f…025c LineComalBin {
0x024f…025c ptr = 0x8fb3 // 0x24f @0x0
0x024f…025c lno = 0x00b4 // 0x251 @0x2
0x024f…025c at0004 = ╱45╱E╱ // 0x253 @0x4
0x024f…025c at0005 = ╱53╱S╱ // 0x254 @0x5
0x024f…025c at0006 = ╱ef╱$╱ // 0x255 @0x6
0x024f…025c at0007 = ╱dc╱=╱ // 0x256 @0x7
0x024f…025c at0008 = ╱52╱R╱ // 0x257 @0x8
0x024f…025c at0009 = ╱45╱E╱ // 0x258 @0x9
0x024f…025c at000a = ╱53╱S╱ // 0x259 @0xa
0x024f…025c at000b = ╱ef╱$╱ // 0x25a @0xb
0x024f…025c at000c = EOL // 0x25b @0xc
0x024f…025c }
0x025c…0268 8fbf 0190 IF FLAG THEN STOP
0x025c…0268 LineComalBin {
0x025c…0268 ptr = 0x8fbf // 0x25c @0x0
0x025c…0268 lno = 0x00be // 0x25e @0x2
0x025c…0268 at0004 = ╱82╱ IF ╱ // 0x260 @0x4
0x025c…0268 at0005 = ╱46╱F╱ // 0x261 @0x5
0x025c…0268 at0006 = ╱4c╱L╱ // 0x262 @0x6
0x025c…0268 at0007 = ╱41╱A╱ // 0x263 @0x7
0x025c…0268 at0008 = ╱47╱G╱ // 0x264 @0x8
0x025c…0268 at0009 = ╱b6╱ THEN ╱ // 0x265 @0x9
0x025c…0268 at000a = ╱8d╱ STOP ╱ // 0x266 @0xa
0x025c…0268 at000b = EOL // 0x267 @0xb
0x025c…0268 }
0x0268…026e (8,) 8fc5 0200 ENDPROC
0x0268…026e LineComalBin {
0x0268…026e ptr = 0x8fc5 // 0x268 @0x0
0x0268…026e lno = 0x00c8 // 0x26a @0x2
0x0268…026e at0004 = ╱9f╱ ENDPROC ╱ // 0x26c @0x4
0x0268…026e at0005 = EOL // 0x26d @0x5
0x0268…026e }
0x026e…0285 8fdc 0210 PROC FEJL(NR1,NR2,NR3)
0x026e…0285 LineComalBin {
0x026e…0285 ptr = 0x8fdc // 0x26e @0x0
0x026e…0285 lno = 0x00d2 // 0x270 @0x2
0x026e…0285 at0004 = ╱9e╱ PROC ╱ // 0x272 @0x4
0x026e…0285 at0005 = ╱46╱F╱ // 0x273 @0x5
0x026e…0285 at0006 = ╱45╱E╱ // 0x274 @0x6
0x026e…0285 at0007 = ╱4a╱J╱ // 0x275 @0x7
0x026e…0285 at0008 = ╱4c╱L╱ // 0x276 @0x8
0x026e…0285 at0009 = ╱ed╱(╱ // 0x277 @0x9
0x026e…0285 at000a = ╱4e╱N╱ // 0x278 @0xa
0x026e…0285 at000b = ╱52╱R╱ // 0x279 @0xb
0x026e…0285 at000c = ╱31╱1╱ // 0x27a @0xc
0x026e…0285 at000d = ╱ec╱,╱ // 0x27b @0xd
0x026e…0285 at000e = ╱4e╱N╱ // 0x27c @0xe
0x026e…0285 at000f = ╱52╱R╱ // 0x27d @0xf
0x026e…0285 at0010 = ╱32╱2╱ // 0x27e @0x10
0x026e…0285 at0011 = ╱ec╱,╱ // 0x27f @0x11
0x026e…0285 at0012 = ╱4e╱N╱ // 0x280 @0x12
0x026e…0285 at0013 = ╱52╱R╱ // 0x281 @0x13
0x026e…0285 at0014 = ╱33╱3╱ // 0x282 @0x14
0x026e…0285 at0015 = ╱ee╱)╱ // 0x283 @0x15
0x026e…0285 at0016 = EOL // 0x284 @0x16
0x026e…0285 }
0x0285…0295 8fec 0220 IF STATUS(NR3$)<>B THEN
0x0285…0295 LineComalBin {
0x0285…0295 ptr = 0x8fec // 0x285 @0x0
0x0285…0295 lno = 0x00dc // 0x287 @0x2
0x0285…0295 at0004 = ╱9c╱ IF ╱ // 0x289 @0x4
0x0285…0295 at0005 = ╱ce╱STATUS╱ // 0x28a @0x5
0x0285…0295 at0006 = ╱ed╱(╱ // 0x28b @0x6
0x0285…0295 at0007 = ╱4e╱N╱ // 0x28c @0x7
0x0285…0295 at0008 = ╱52╱R╱ // 0x28d @0x8
0x0285…0295 at0009 = ╱33╱3╱ // 0x28e @0x9
0x0285…0295 at000a = ╱ef╱$╱ // 0x28f @0xa
0x0285…0295 at000b = ╱ee╱)╱ // 0x290 @0xb
0x0285…0295 at000c = ╱e1╱<>╱ // 0x291 @0xc
0x0285…0295 at000d = ╱42╱B╱ // 0x292 @0xd
0x0285…0295 at000e = ╱b6╱ THEN ╱ // 0x293 @0xe
0x0285…0295 at000f = EOL // 0x294 @0xf
0x0285…0295 }
0x0295…02af 9006 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x0295…02af LineComalBin {
0x0295…02af ptr = 0x9006 // 0x295 @0x0
0x0295…02af lno = 0x00e6 // 0x297 @0x2
0x0295…02af at0004 = ╱92╱ PRINT ╱ // 0x299 @0x4
0x0295…02af at0005 = ╱ce╱STATUS╱ // 0x29a @0x5
0x0295…02af at0006 = ╱ed╱(╱ // 0x29b @0x6
0x0295…02af at0007 = ╱4e╱N╱ // 0x29c @0x7
0x0295…02af at0008 = ╱52╱R╱ // 0x29d @0x8
0x0295…02af at0009 = ╱33╱3╱ // 0x29e @0x9
0x0295…02af at000a = ╱ef╱$╱ // 0x29f @0xa
0x0295…02af at000b = ╱ee╱)╱ // 0x2a0 @0xb
0x0295…02af at000c = ╱ec╱,╱ // 0x2a1 @0xc
0x0295…02af at000d = ╱4e╱N╱ // 0x2a2 @0xd
0x0295…02af at000e = ╱52╱R╱ // 0x2a3 @0xe
0x0295…02af at000f = ╱31╱1╱ // 0x2a4 @0xf
0x0295…02af at0010 = ╱ec╱,╱ // 0x2a5 @0x10
0x0295…02af at0011 = ╱4e╱N╱ // 0x2a6 @0x11
0x0295…02af at0012 = ╱52╱R╱ // 0x2a7 @0x12
0x0295…02af at0013 = ╱32╱2╱ // 0x2a8 @0x13
0x0295…02af at0014 = ╱ec╱,╱ // 0x2a9 @0x14
0x0295…02af at0015 = ╱4e╱N╱ // 0x2aa @0x15
0x0295…02af at0016 = ╱52╱R╱ // 0x2ab @0x16
0x0295…02af at0017 = ╱33╱3╱ // 0x2ac @0x17
0x0295…02af at0018 = ╱ef╱$╱ // 0x2ad @0x18
0x0295…02af at0019 = EOL // 0x2ae @0x19
0x0295…02af }
0x02af…02b5 900c 0240 STOP
0x02af…02b5 LineComalBin {
0x02af…02b5 ptr = 0x900c // 0x2af @0x0
0x02af…02b5 lno = 0x00f0 // 0x2b1 @0x2
0x02af…02b5 at0004 = ╱8d╱ STOP ╱ // 0x2b3 @0x4
0x02af…02b5 at0005 = EOL // 0x2b4 @0x5
0x02af…02b5 }
0x02b5…02bb (9,) 9012 0250 ENDIF
0x02b5…02bb LineComalBin {
0x02b5…02bb ptr = 0x9012 // 0x2b5 @0x0
0x02b5…02bb lno = 0x00fa // 0x2b7 @0x2
0x02b5…02bb at0004 = ╱9b╱ ENDIF ╱ // 0x2b9 @0x4
0x02b5…02bb at0005 = EOL // 0x2ba @0x5
0x02b5…02bb }
0x02bb…02c1 9018 0260 ENDPROC
0x02bb…02c1 LineComalBin {
0x02bb…02c1 ptr = 0x9018 // 0x2bb @0x0
0x02bb…02c1 lno = 0x0104 // 0x2bd @0x2
0x02bb…02c1 at0004 = ╱9f╱ ENDPROC ╱ // 0x2bf @0x4
0x02bb…02c1 at0005 = EOL // 0x2c0 @0x5
0x02bb…02c1 }
0x02c1…02ce 9025 0270 PROC DKRTEST
0x02c1…02ce LineComalBin {
0x02c1…02ce ptr = 0x9025 // 0x2c1 @0x0
0x02c1…02ce lno = 0x010e // 0x2c3 @0x2
0x02c1…02ce at0004 = ╱9e╱ PROC ╱ // 0x2c5 @0x4
0x02c1…02ce at0005 = ╱44╱D╱ // 0x2c6 @0x5
0x02c1…02ce at0006 = ╱4b╱K╱ // 0x2c7 @0x6
0x02c1…02ce at0007 = ╱52╱R╱ // 0x2c8 @0x7
0x02c1…02ce at0008 = ╱54╱T╱ // 0x2c9 @0x8
0x02c1…02ce at0009 = ╱45╱E╱ // 0x2ca @0x9
0x02c1…02ce at000a = ╱53╱S╱ // 0x2cb @0xa
0x02c1…02ce at000b = ╱54╱T╱ // 0x2cc @0xb
0x02c1…02ce at000c = EOL // 0x2cd @0xc
0x02c1…02ce }
0x02ce…02f9 9050 0280 EXEC CALC(4,FÅDEBET$,FÅKREDIT$,TAL4$)
0x02ce…02f9 LineComalBin {
0x02ce…02f9 ptr = 0x9050 // 0x2ce @0x0
0x02ce…02f9 lno = 0x0118 // 0x2d0 @0x2
0x02ce…02f9 at0004 = ╱9d╱ EXEC ╱ // 0x2d2 @0x4
0x02ce…02f9 at0005 = ╱43╱C╱ // 0x2d3 @0x5
0x02ce…02f9 at0006 = ╱41╱A╱ // 0x2d4 @0x6
0x02ce…02f9 at0007 = ╱4c╱L╱ // 0x2d5 @0x7
0x02ce…02f9 at0008 = ╱43╱C╱ // 0x2d6 @0x8
0x02ce…02f9 at0009 = ╱ed╱(╱ // 0x2d7 @0x9
0x02ce…02f9 at000a = ╱34╱4╱ // 0x2d8 @0xa
0x02ce…02f9 at000b = ╱fe00008003╱ // 0x2d9 @0xb
0x02ce…02f9 at0010 = ╱ec╱,╱ // 0x2de @0x10
0x02ce…02f9 at0011 = ╱46╱F╱ // 0x2df @0x11
0x02ce…02f9 at0012 = ╱5d╱Å╱ // 0x2e0 @0x12
0x02ce…02f9 at0013 = ╱44╱D╱ // 0x2e1 @0x13
0x02ce…02f9 at0014 = ╱45╱E╱ // 0x2e2 @0x14
0x02ce…02f9 at0015 = ╱42╱B╱ // 0x2e3 @0x15
0x02ce…02f9 at0016 = ╱45╱E╱ // 0x2e4 @0x16
0x02ce…02f9 at0017 = ╱54╱T╱ // 0x2e5 @0x17
0x02ce…02f9 at0018 = ╱ef╱$╱ // 0x2e6 @0x18
0x02ce…02f9 at0019 = ╱ec╱,╱ // 0x2e7 @0x19
0x02ce…02f9 at001a = ╱46╱F╱ // 0x2e8 @0x1a
0x02ce…02f9 at001b = ╱5d╱Å╱ // 0x2e9 @0x1b
0x02ce…02f9 at001c = ╱4b╱K╱ // 0x2ea @0x1c
0x02ce…02f9 at001d = ╱52╱R╱ // 0x2eb @0x1d
0x02ce…02f9 at001e = ╱45╱E╱ // 0x2ec @0x1e
0x02ce…02f9 at001f = ╱44╱D╱ // 0x2ed @0x1f
0x02ce…02f9 at0020 = ╱49╱I╱ // 0x2ee @0x20
0x02ce…02f9 at0021 = ╱54╱T╱ // 0x2ef @0x21
0x02ce…02f9 at0022 = ╱ef╱$╱ // 0x2f0 @0x22
0x02ce…02f9 at0023 = ╱ec╱,╱ // 0x2f1 @0x23
0x02ce…02f9 at0024 = ╱54╱T╱ // 0x2f2 @0x24
0x02ce…02f9 at0025 = ╱41╱A╱ // 0x2f3 @0x25
0x02ce…02f9 at0026 = ╱4c╱L╱ // 0x2f4 @0x26
0x02ce…02f9 at0027 = ╱34╱4╱ // 0x2f5 @0x27
0x02ce…02f9 at0028 = ╱ef╱$╱ // 0x2f6 @0x28
0x02ce…02f9 at0029 = ╱ee╱)╱ // 0x2f7 @0x29
0x02ce…02f9 at002a = EOL // 0x2f8 @0x2a
0x02ce…02f9 }
0x02f9…030a 9061 0290 IF SI<>B THEN TEST=E
0x02f9…030a LineComalBin {
0x02f9…030a ptr = 0x9061 // 0x2f9 @0x0
0x02f9…030a lno = 0x0122 // 0x2fb @0x2
0x02f9…030a at0004 = ╱82╱ IF ╱ // 0x2fd @0x4
0x02f9…030a at0005 = ╱53╱S╱ // 0x2fe @0x5
0x02f9…030a at0006 = ╱49╱I╱ // 0x2ff @0x6
0x02f9…030a at0007 = ╱e1╱<>╱ // 0x300 @0x7
0x02f9…030a at0008 = ╱42╱B╱ // 0x301 @0x8
0x02f9…030a at0009 = ╱b6╱ THEN ╱ // 0x302 @0x9
0x02f9…030a at000a = ╱54╱T╱ // 0x303 @0xa
0x02f9…030a at000b = ╱45╱E╱ // 0x304 @0xb
0x02f9…030a at000c = ╱53╱S╱ // 0x305 @0xc
0x02f9…030a at000d = ╱54╱T╱ // 0x306 @0xd
0x02f9…030a at000e = ╱dc╱=╱ // 0x307 @0xe
0x02f9…030a at000f = ╱45╱E╱ // 0x308 @0xf
0x02f9…030a at0010 = EOL // 0x309 @0x10
0x02f9…030a }
0x030a…0318 906f 0300 IF FLAG<>B THEN STOP
0x030a…0318 LineComalBin {
0x030a…0318 ptr = 0x906f // 0x30a @0x0
0x030a…0318 lno = 0x012c // 0x30c @0x2
0x030a…0318 at0004 = ╱82╱ IF ╱ // 0x30e @0x4
0x030a…0318 at0005 = ╱46╱F╱ // 0x30f @0x5
0x030a…0318 at0006 = ╱4c╱L╱ // 0x310 @0x6
0x030a…0318 at0007 = ╱41╱A╱ // 0x311 @0x7
0x030a…0318 at0008 = ╱47╱G╱ // 0x312 @0x8
0x030a…0318 at0009 = ╱e1╱<>╱ // 0x313 @0x9
0x030a…0318 at000a = ╱42╱B╱ // 0x314 @0xa
0x030a…0318 at000b = ╱b6╱ THEN ╱ // 0x315 @0xb
0x030a…0318 at000c = ╱8d╱ STOP ╱ // 0x316 @0xc
0x030a…0318 at000d = EOL // 0x317 @0xd
0x030a…0318 }
0x0318…031e 9075 0310 ENDPROC
0x0318…031e LineComalBin {
0x0318…031e ptr = 0x9075 // 0x318 @0x0
0x0318…031e lno = 0x0136 // 0x31a @0x2
0x0318…031e at0004 = ╱9f╱ ENDPROC ╱ // 0x31c @0x4
0x0318…031e at0005 = EOL // 0x31d @0x5
0x0318…031e }
0x031e…0338 908f 0320 PROC INDTAB(T,MANTAL,K10)
0x031e…0338 LineComalBin {
0x031e…0338 ptr = 0x908f // 0x31e @0x0
0x031e…0338 lno = 0x0140 // 0x320 @0x2
0x031e…0338 at0004 = ╱9e╱ PROC ╱ // 0x322 @0x4
0x031e…0338 at0005 = ╱49╱I╱ // 0x323 @0x5
0x031e…0338 at0006 = ╱4e╱N╱ // 0x324 @0x6
0x031e…0338 at0007 = ╱44╱D╱ // 0x325 @0x7
0x031e…0338 at0008 = ╱54╱T╱ // 0x326 @0x8
0x031e…0338 at0009 = ╱41╱A╱ // 0x327 @0x9
0x031e…0338 at000a = ╱42╱B╱ // 0x328 @0xa
0x031e…0338 at000b = ╱ed╱(╱ // 0x329 @0xb
0x031e…0338 at000c = ╱54╱T╱ // 0x32a @0xc
0x031e…0338 at000d = ╱ec╱,╱ // 0x32b @0xd
0x031e…0338 at000e = ╱4d╱M╱ // 0x32c @0xe
0x031e…0338 at000f = ╱41╱A╱ // 0x32d @0xf
0x031e…0338 at0010 = ╱4e╱N╱ // 0x32e @0x10
0x031e…0338 at0011 = ╱54╱T╱ // 0x32f @0x11
0x031e…0338 at0012 = ╱41╱A╱ // 0x330 @0x12
0x031e…0338 at0013 = ╱4c╱L╱ // 0x331 @0x13
0x031e…0338 at0014 = ╱ec╱,╱ // 0x332 @0x14
0x031e…0338 at0015 = ╱4b╱K╱ // 0x333 @0x15
0x031e…0338 at0016 = ╱31╱1╱ // 0x334 @0x16
0x031e…0338 at0017 = ╱30╱0╱ // 0x335 @0x17
0x031e…0338 at0018 = ╱ee╱)╱ // 0x336 @0x18
0x031e…0338 at0019 = EOL // 0x337 @0x19
0x031e…0338 }
0x0338…034f 90a6 0330 J=MANTAL DIV 32+E
0x0338…034f LineComalBin {
0x0338…034f ptr = 0x90a6 // 0x338 @0x0
0x0338…034f lno = 0x014a // 0x33a @0x2
0x0338…034f at0004 = ╱4a╱J╱ // 0x33c @0x4
0x0338…034f at0005 = ╱dc╱=╱ // 0x33d @0x5
0x0338…034f at0006 = ╱4d╱M╱ // 0x33e @0x6
0x0338…034f at0007 = ╱41╱A╱ // 0x33f @0x7
0x0338…034f at0008 = ╱4e╱N╱ // 0x340 @0x8
0x0338…034f at0009 = ╱54╱T╱ // 0x341 @0x9
0x0338…034f at000a = ╱41╱A╱ // 0x342 @0xa
0x0338…034f at000b = ╱4c╱L╱ // 0x343 @0xb
0x0338…034f at000c = ╱e7╱ DIV ╱ // 0x344 @0xc
0x0338…034f at000d = ╱33╱3╱ // 0x345 @0xd
0x0338…034f at000e = ╱32╱2╱ // 0x346 @0xe
0x0338…034f at000f = ╱fe00008006╱ // 0x347 @0xf
0x0338…034f at0014 = ╱e2╱+╱ // 0x34c @0x14
0x0338…034f at0015 = ╱45╱E╱ // 0x34d @0x15
0x0338…034f at0016 = EOL // 0x34e @0x16
0x0338…034f }
0x034f…036a (11,) 90c1 0340 FOR I=J TO MANTAL DIV 4+J-E
0x034f…036a LineComalBin {
0x034f…036a ptr = 0x90c1 // 0x34f @0x0
0x034f…036a lno = 0x0154 // 0x351 @0x2
0x034f…036a at0004 = ╱83╱ FOR ╱ // 0x353 @0x4
0x034f…036a at0005 = ╱49╱I╱ // 0x354 @0x5
0x034f…036a at0006 = ╱dc╱=╱ // 0x355 @0x6
0x034f…036a at0007 = ╱4a╱J╱ // 0x356 @0x7
0x034f…036a at0008 = ╱b7╱ TO ╱ // 0x357 @0x8
0x034f…036a at0009 = ╱4d╱M╱ // 0x358 @0x9
0x034f…036a at000a = ╱41╱A╱ // 0x359 @0xa
0x034f…036a at000b = ╱4e╱N╱ // 0x35a @0xb
0x034f…036a at000c = ╱54╱T╱ // 0x35b @0xc
0x034f…036a at000d = ╱41╱A╱ // 0x35c @0xd
0x034f…036a at000e = ╱4c╱L╱ // 0x35d @0xe
0x034f…036a at000f = ╱e7╱ DIV ╱ // 0x35e @0xf
0x034f…036a at0010 = ╱34╱4╱ // 0x35f @0x10
0x034f…036a at0011 = ╱fe00008003╱ // 0x360 @0x11
0x034f…036a at0016 = ╱e2╱+╱ // 0x365 @0x16
0x034f…036a at0017 = ╱4a╱J╱ // 0x366 @0x17
0x034f…036a at0018 = ╱e3╱-╱ // 0x367 @0x18
0x034f…036a at0019 = ╱45╱E╱ // 0x368 @0x19
0x034f…036a at001a = EOL // 0x369 @0x1a
0x034f…036a }
0x036a…0394 90eb 0350 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V
0x036a…0394 LineComalBin {
0x036a…0394 ptr = 0x90eb // 0x36a @0x0
0x036a…0394 lno = 0x015e // 0x36c @0x2
0x036a…0394 at0004 = ╱48╱H╱ // 0x36e @0x4
0x036a…0394 at0005 = ╱dc╱=╱ // 0x36f @0x5
0x036a…0394 at0006 = ╱ed╱(╱ // 0x370 @0x6
0x036a…0394 at0007 = ╱49╱I╱ // 0x371 @0x7
0x036a…0394 at0008 = ╱e3╱-╱ // 0x372 @0x8
0x036a…0394 at0009 = ╱4a╱J╱ // 0x373 @0x9
0x036a…0394 at000a = ╱ee╱)╱ // 0x374 @0xa
0x036a…0394 at000b = ╱e4╱*╱ // 0x375 @0xb
0x036a…0394 at000c = ╱34╱4╱ // 0x376 @0xc
0x036a…0394 at000d = ╱fe00008003╱ // 0x377 @0xd
0x036a…0394 at0012 = ╱e2╱+╱ // 0x37c @0x12
0x036a…0394 at0013 = ╱45╱E╱ // 0x37d @0x13
0x036a…0394 at0014 = ╱eb╱;╱ // 0x37e @0x14
0x036a…0394 at0015 = ╱4a╱J╱ // 0x37f @0x15
0x036a…0394 at0016 = ╱32╱2╱ // 0x380 @0x16
0x036a…0394 at0017 = ╱dc╱=╱ // 0x381 @0x17
0x036a…0394 at0018 = ╱48╱H╱ // 0x382 @0x18
0x036a…0394 at0019 = ╱e2╱+╱ // 0x383 @0x19
0x036a…0394 at001a = ╱45╱E╱ // 0x384 @0x1a
0x036a…0394 at001b = ╱eb╱;╱ // 0x385 @0x1b
0x036a…0394 at001c = ╱4a╱J╱ // 0x386 @0x1c
0x036a…0394 at001d = ╱33╱3╱ // 0x387 @0x1d
0x036a…0394 at001e = ╱dc╱=╱ // 0x388 @0x1e
0x036a…0394 at001f = ╱48╱H╱ // 0x389 @0x1f
0x036a…0394 at0020 = ╱e2╱+╱ // 0x38a @0x20
0x036a…0394 at0021 = ╱47╱G╱ // 0x38b @0x21
0x036a…0394 at0022 = ╱eb╱;╱ // 0x38c @0x22
0x036a…0394 at0023 = ╱4a╱J╱ // 0x38d @0x23
0x036a…0394 at0024 = ╱34╱4╱ // 0x38e @0x24
0x036a…0394 at0025 = ╱dc╱=╱ // 0x38f @0x25
0x036a…0394 at0026 = ╱48╱H╱ // 0x390 @0x26
0x036a…0394 at0027 = ╱e2╱+╱ // 0x391 @0x27
0x036a…0394 at0028 = ╱56╱V╱ // 0x392 @0x28
0x036a…0394 at0029 = EOL // 0x393 @0x29
0x036a…0394 }
0x0394…03de 9135 0360 GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G)
0x0394…03de LineComalBin {
0x0394…03de ptr = 0x9135 // 0x394 @0x0
0x0394…03de lno = 0x0168 // 0x396 @0x2
0x0394…03de at0004 = ╱a9╱ GET ╱ // 0x398 @0x4
0x0394…03de at0005 = ╱4b╱K╱ // 0x399 @0x5
0x0394…03de at0006 = ╱31╱1╱ // 0x39a @0x6
0x0394…03de at0007 = ╱30╱0╱ // 0x39b @0x7
0x0394…03de at0008 = ╱ef╱$╱ // 0x39c @0x8
0x0394…03de at0009 = ╱ec╱,╱ // 0x39d @0x9
0x0394…03de at000a = ╱49╱I╱ // 0x39e @0xa
0x0394…03de at000b = ╱f0╱:╱ // 0x39f @0xb
0x0394…03de at000c = ╱54╱T╱ // 0x3a0 @0xc
0x0394…03de at000d = ╱ed╱(╱ // 0x3a1 @0xd
0x0394…03de at000e = ╱48╱H╱ // 0x3a2 @0xe
0x0394…03de at000f = ╱ec╱,╱ // 0x3a3 @0xf
0x0394…03de at0010 = ╱45╱E╱ // 0x3a4 @0x10
0x0394…03de at0011 = ╱ee╱)╱ // 0x3a5 @0x11
0x0394…03de at0012 = ╱ec╱,╱ // 0x3a6 @0x12
0x0394…03de at0013 = ╱54╱T╱ // 0x3a7 @0x13
0x0394…03de at0014 = ╱ed╱(╱ // 0x3a8 @0x14
0x0394…03de at0015 = ╱48╱H╱ // 0x3a9 @0x15
0x0394…03de at0016 = ╱ec╱,╱ // 0x3aa @0x16
0x0394…03de at0017 = ╱47╱G╱ // 0x3ab @0x17
0x0394…03de at0018 = ╱ee╱)╱ // 0x3ac @0x18
0x0394…03de at0019 = ╱ec╱,╱ // 0x3ad @0x19
0x0394…03de at001a = ╱54╱T╱ // 0x3ae @0x1a
0x0394…03de at001b = ╱ed╱(╱ // 0x3af @0x1b
0x0394…03de at001c = ╱4a╱J╱ // 0x3b0 @0x1c
0x0394…03de at001d = ╱32╱2╱ // 0x3b1 @0x1d
0x0394…03de at001e = ╱ec╱,╱ // 0x3b2 @0x1e
0x0394…03de at001f = ╱45╱E╱ // 0x3b3 @0x1f
0x0394…03de at0020 = ╱ee╱)╱ // 0x3b4 @0x20
0x0394…03de at0021 = ╱ec╱,╱ // 0x3b5 @0x21
0x0394…03de at0022 = ╱54╱T╱ // 0x3b6 @0x22
0x0394…03de at0023 = ╱ed╱(╱ // 0x3b7 @0x23
0x0394…03de at0024 = ╱4a╱J╱ // 0x3b8 @0x24
0x0394…03de at0025 = ╱32╱2╱ // 0x3b9 @0x25
0x0394…03de at0026 = ╱ec╱,╱ // 0x3ba @0x26
0x0394…03de at0027 = ╱47╱G╱ // 0x3bb @0x27
0x0394…03de at0028 = ╱ee╱)╱ // 0x3bc @0x28
0x0394…03de at0029 = ╱ec╱,╱ // 0x3bd @0x29
0x0394…03de at002a = ╱54╱T╱ // 0x3be @0x2a
0x0394…03de at002b = ╱ed╱(╱ // 0x3bf @0x2b
0x0394…03de at002c = ╱4a╱J╱ // 0x3c0 @0x2c
0x0394…03de at002d = ╱33╱3╱ // 0x3c1 @0x2d
0x0394…03de at002e = ╱ec╱,╱ // 0x3c2 @0x2e
0x0394…03de at002f = ╱45╱E╱ // 0x3c3 @0x2f
0x0394…03de at0030 = ╱ee╱)╱ // 0x3c4 @0x30
0x0394…03de at0031 = ╱ec╱,╱ // 0x3c5 @0x31
0x0394…03de at0032 = ╱54╱T╱ // 0x3c6 @0x32
0x0394…03de at0033 = ╱ed╱(╱ // 0x3c7 @0x33
0x0394…03de at0034 = ╱4a╱J╱ // 0x3c8 @0x34
0x0394…03de at0035 = ╱33╱3╱ // 0x3c9 @0x35
0x0394…03de at0036 = ╱ec╱,╱ // 0x3ca @0x36
0x0394…03de at0037 = ╱47╱G╱ // 0x3cb @0x37
0x0394…03de at0038 = ╱ee╱)╱ // 0x3cc @0x38
0x0394…03de at0039 = ╱ec╱,╱ // 0x3cd @0x39
0x0394…03de at003a = ╱54╱T╱ // 0x3ce @0x3a
0x0394…03de at003b = ╱ed╱(╱ // 0x3cf @0x3b
0x0394…03de at003c = ╱4a╱J╱ // 0x3d0 @0x3c
0x0394…03de at003d = ╱34╱4╱ // 0x3d1 @0x3d
0x0394…03de at003e = ╱ec╱,╱ // 0x3d2 @0x3e
0x0394…03de at003f = ╱45╱E╱ // 0x3d3 @0x3f
0x0394…03de at0040 = ╱ee╱)╱ // 0x3d4 @0x40
0x0394…03de at0041 = ╱ec╱,╱ // 0x3d5 @0x41
0x0394…03de at0042 = ╱54╱T╱ // 0x3d6 @0x42
0x0394…03de at0043 = ╱ed╱(╱ // 0x3d7 @0x43
0x0394…03de at0044 = ╱4a╱J╱ // 0x3d8 @0x44
0x0394…03de at0045 = ╱34╱4╱ // 0x3d9 @0x45
0x0394…03de at0046 = ╱ec╱,╱ // 0x3da @0x46
0x0394…03de at0047 = ╱47╱G╱ // 0x3db @0x47
0x0394…03de at0048 = ╱ee╱)╱ // 0x3dc @0x48
0x0394…03de at0049 = EOL // 0x3dd @0x49
0x0394…03de }
0x03de…03f2 9149 0370 EXEC FEJL(E,E,K10$)
0x03de…03f2 LineComalBin {
0x03de…03f2 ptr = 0x9149 // 0x3de @0x0
0x03de…03f2 lno = 0x0172 // 0x3e0 @0x2
0x03de…03f2 at0004 = ╱9d╱ EXEC ╱ // 0x3e2 @0x4
0x03de…03f2 at0005 = ╱46╱F╱ // 0x3e3 @0x5
0x03de…03f2 at0006 = ╱45╱E╱ // 0x3e4 @0x6
0x03de…03f2 at0007 = ╱4a╱J╱ // 0x3e5 @0x7
0x03de…03f2 at0008 = ╱4c╱L╱ // 0x3e6 @0x8
0x03de…03f2 at0009 = ╱ed╱(╱ // 0x3e7 @0x9
0x03de…03f2 at000a = ╱45╱E╱ // 0x3e8 @0xa
0x03de…03f2 at000b = ╱ec╱,╱ // 0x3e9 @0xb
0x03de…03f2 at000c = ╱45╱E╱ // 0x3ea @0xc
0x03de…03f2 at000d = ╱ec╱,╱ // 0x3eb @0xd
0x03de…03f2 at000e = ╱4b╱K╱ // 0x3ec @0xe
0x03de…03f2 at000f = ╱31╱1╱ // 0x3ed @0xf
0x03de…03f2 at0010 = ╱30╱0╱ // 0x3ee @0x10
0x03de…03f2 at0011 = ╱ef╱$╱ // 0x3ef @0x11
0x03de…03f2 at0012 = ╱ee╱)╱ // 0x3f0 @0x12
0x03de…03f2 at0013 = EOL // 0x3f1 @0x13
0x03de…03f2 }
0x03f2…03f9 9150 0380 NEXT I
0x03f2…03f9 LineComalBin {
0x03f2…03f9 ptr = 0x9150 // 0x3f2 @0x0
0x03f2…03f9 lno = 0x017c // 0x3f4 @0x2
0x03f2…03f9 at0004 = ╱84╱ NEXT ╱ // 0x3f6 @0x4
0x03f2…03f9 at0005 = ╱49╱I╱ // 0x3f7 @0x5
0x03f2…03f9 at0006 = EOL // 0x3f8 @0x6
0x03f2…03f9 }
0x03f9…03ff 9156 0390 ENDPROC
0x03f9…03ff LineComalBin {
0x03f9…03ff ptr = 0x9156 // 0x3f9 @0x0
0x03f9…03ff lno = 0x0186 // 0x3fb @0x2
0x03f9…03ff at0004 = ╱9f╱ ENDPROC ╱ // 0x3fd @0x4
0x03f9…03ff at0005 = EOL // 0x3fe @0x5
0x03f9…03ff }
0x03ff…0418 916f 0400 PROC UDTAB(U,MANTAL1,K9)
0x03ff…0418 LineComalBin {
0x03ff…0418 ptr = 0x916f // 0x3ff @0x0
0x03ff…0418 lno = 0x0190 // 0x401 @0x2
0x03ff…0418 at0004 = ╱9e╱ PROC ╱ // 0x403 @0x4
0x03ff…0418 at0005 = ╱55╱U╱ // 0x404 @0x5
0x03ff…0418 at0006 = ╱44╱D╱ // 0x405 @0x6
0x03ff…0418 at0007 = ╱54╱T╱ // 0x406 @0x7
0x03ff…0418 at0008 = ╱41╱A╱ // 0x407 @0x8
0x03ff…0418 at0009 = ╱42╱B╱ // 0x408 @0x9
0x03ff…0418 at000a = ╱ed╱(╱ // 0x409 @0xa
0x03ff…0418 at000b = ╱55╱U╱ // 0x40a @0xb
0x03ff…0418 at000c = ╱ec╱,╱ // 0x40b @0xc
0x03ff…0418 at000d = ╱4d╱M╱ // 0x40c @0xd
0x03ff…0418 at000e = ╱41╱A╱ // 0x40d @0xe
0x03ff…0418 at000f = ╱4e╱N╱ // 0x40e @0xf
0x03ff…0418 at0010 = ╱54╱T╱ // 0x40f @0x10
0x03ff…0418 at0011 = ╱41╱A╱ // 0x410 @0x11
0x03ff…0418 at0012 = ╱4c╱L╱ // 0x411 @0x12
0x03ff…0418 at0013 = ╱31╱1╱ // 0x412 @0x13
0x03ff…0418 at0014 = ╱ec╱,╱ // 0x413 @0x14
0x03ff…0418 at0015 = ╱4b╱K╱ // 0x414 @0x15
0x03ff…0418 at0016 = ╱39╱9╱ // 0x415 @0x16
0x03ff…0418 at0017 = ╱ee╱)╱ // 0x416 @0x17
0x03ff…0418 at0018 = EOL // 0x417 @0x18
0x03ff…0418 }
0x0418…0430 9187 0410 J=MANTAL1 DIV 32+E
0x0418…0430 LineComalBin {
0x0418…0430 ptr = 0x9187 // 0x418 @0x0
0x0418…0430 lno = 0x019a // 0x41a @0x2
0x0418…0430 at0004 = ╱4a╱J╱ // 0x41c @0x4
0x0418…0430 at0005 = ╱dc╱=╱ // 0x41d @0x5
0x0418…0430 at0006 = ╱4d╱M╱ // 0x41e @0x6
0x0418…0430 at0007 = ╱41╱A╱ // 0x41f @0x7
0x0418…0430 at0008 = ╱4e╱N╱ // 0x420 @0x8
0x0418…0430 at0009 = ╱54╱T╱ // 0x421 @0x9
0x0418…0430 at000a = ╱41╱A╱ // 0x422 @0xa
0x0418…0430 at000b = ╱4c╱L╱ // 0x423 @0xb
0x0418…0430 at000c = ╱31╱1╱ // 0x424 @0xc
0x0418…0430 at000d = ╱e7╱ DIV ╱ // 0x425 @0xd
0x0418…0430 at000e = ╱33╱3╱ // 0x426 @0xe
0x0418…0430 at000f = ╱32╱2╱ // 0x427 @0xf
0x0418…0430 at0010 = ╱fe00008006╱ // 0x428 @0x10
0x0418…0430 at0015 = ╱e2╱+╱ // 0x42d @0x15
0x0418…0430 at0016 = ╱45╱E╱ // 0x42e @0x16
0x0418…0430 at0017 = EOL // 0x42f @0x17
0x0418…0430 }
0x0430…043d 9194 0420 FOR I=E TO J-E
0x0430…043d LineComalBin {
0x0430…043d ptr = 0x9194 // 0x430 @0x0
0x0430…043d lno = 0x01a4 // 0x432 @0x2
0x0430…043d at0004 = ╱83╱ FOR ╱ // 0x434 @0x4
0x0430…043d at0005 = ╱49╱I╱ // 0x435 @0x5
0x0430…043d at0006 = ╱dc╱=╱ // 0x436 @0x6
0x0430…043d at0007 = ╱45╱E╱ // 0x437 @0x7
0x0430…043d at0008 = ╱b7╱ TO ╱ // 0x438 @0x8
0x0430…043d at0009 = ╱4a╱J╱ // 0x439 @0x9
0x0430…043d at000a = ╱e3╱-╱ // 0x43a @0xa
0x0430…043d at000b = ╱45╱E╱ // 0x43b @0xb
0x0430…043d at000c = EOL // 0x43c @0xc
0x0430…043d }
0x043d…04ac 9203 0430 H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28
0x043d…04ac LineComalBin {
0x043d…04ac ptr = 0x9203 // 0x43d @0x0
0x043d…04ac lno = 0x01ae // 0x43f @0x2
0x043d…04ac at0004 = ╱48╱H╱ // 0x441 @0x4
0x043d…04ac at0005 = ╱dc╱=╱ // 0x442 @0x5
0x043d…04ac at0006 = ╱ed╱(╱ // 0x443 @0x6
0x043d…04ac at0007 = ╱49╱I╱ // 0x444 @0x7
0x043d…04ac at0008 = ╱e3╱-╱ // 0x445 @0x8
0x043d…04ac at0009 = ╱45╱E╱ // 0x446 @0x9
0x043d…04ac at000a = ╱ee╱)╱ // 0x447 @0xa
0x043d…04ac at000b = ╱e4╱*╱ // 0x448 @0xb
0x043d…04ac at000c = ╱33╱3╱ // 0x449 @0xc
0x043d…04ac at000d = ╱32╱2╱ // 0x44a @0xd
0x043d…04ac at000e = ╱fe00008006╱ // 0x44b @0xe
0x043d…04ac at0013 = ╱e2╱+╱ // 0x450 @0x13
0x043d…04ac at0014 = ╱45╱E╱ // 0x451 @0x14
0x043d…04ac at0015 = ╱eb╱;╱ // 0x452 @0x15
0x043d…04ac at0016 = ╱4a╱J╱ // 0x453 @0x16
0x043d…04ac at0017 = ╱31╱1╱ // 0x454 @0x17
0x043d…04ac at0018 = ╱dc╱=╱ // 0x455 @0x18
0x043d…04ac at0019 = ╱48╱H╱ // 0x456 @0x19
0x043d…04ac at001a = ╱e2╱+╱ // 0x457 @0x1a
0x043d…04ac at001b = ╱34╱4╱ // 0x458 @0x1b
0x043d…04ac at001c = ╱fe00008003╱ // 0x459 @0x1c
0x043d…04ac at0021 = ╱eb╱;╱ // 0x45e @0x21
0x043d…04ac at0022 = ╱4a╱J╱ // 0x45f @0x22
0x043d…04ac at0023 = ╱32╱2╱ // 0x460 @0x23
0x043d…04ac at0024 = ╱dc╱=╱ // 0x461 @0x24
0x043d…04ac at0025 = ╱48╱H╱ // 0x462 @0x25
0x043d…04ac at0026 = ╱e2╱+╱ // 0x463 @0x26
0x043d…04ac at0027 = ╱38╱8╱ // 0x464 @0x27
0x043d…04ac at0028 = ╱fe00008004╱ // 0x465 @0x28
0x043d…04ac at002d = ╱eb╱;╱ // 0x46a @0x2d
0x043d…04ac at002e = ╱4a╱J╱ // 0x46b @0x2e
0x043d…04ac at002f = ╱33╱3╱ // 0x46c @0x2f
0x043d…04ac at0030 = ╱dc╱=╱ // 0x46d @0x30
0x043d…04ac at0031 = ╱48╱H╱ // 0x46e @0x31
0x043d…04ac at0032 = ╱e2╱+╱ // 0x46f @0x32
0x043d…04ac at0033 = ╱31╱1╱ // 0x470 @0x33
0x043d…04ac at0034 = ╱32╱2╱ // 0x471 @0x34
0x043d…04ac at0035 = ╱fe0000c004╱ // 0x472 @0x35
0x043d…04ac at003a = ╱eb╱;╱ // 0x477 @0x3a
0x043d…04ac at003b = ╱4a╱J╱ // 0x478 @0x3b
0x043d…04ac at003c = ╱34╱4╱ // 0x479 @0x3c
0x043d…04ac at003d = ╱dc╱=╱ // 0x47a @0x3d
0x043d…04ac at003e = ╱48╱H╱ // 0x47b @0x3e
0x043d…04ac at003f = ╱e2╱+╱ // 0x47c @0x3f
0x043d…04ac at0040 = ╱31╱1╱ // 0x47d @0x40
0x043d…04ac at0041 = ╱36╱6╱ // 0x47e @0x41
0x043d…04ac at0042 = ╱fe00008005╱ // 0x47f @0x42
0x043d…04ac at0047 = ╱eb╱;╱ // 0x484 @0x47
0x043d…04ac at0048 = ╱4a╱J╱ // 0x485 @0x48
0x043d…04ac at0049 = ╱35╱5╱ // 0x486 @0x49
0x043d…04ac at004a = ╱dc╱=╱ // 0x487 @0x4a
0x043d…04ac at004b = ╱48╱H╱ // 0x488 @0x4b
0x043d…04ac at004c = ╱e2╱+╱ // 0x489 @0x4c
0x043d…04ac at004d = ╱32╱2╱ // 0x48a @0x4d
0x043d…04ac at004e = ╱30╱0╱ // 0x48b @0x4e
0x043d…04ac at004f = ╱fe0000a005╱ // 0x48c @0x4f
0x043d…04ac at0054 = ╱eb╱;╱ // 0x491 @0x54
0x043d…04ac at0055 = ╱4a╱J╱ // 0x492 @0x55
0x043d…04ac at0056 = ╱36╱6╱ // 0x493 @0x56
0x043d…04ac at0057 = ╱dc╱=╱ // 0x494 @0x57
0x043d…04ac at0058 = ╱48╱H╱ // 0x495 @0x58
0x043d…04ac at0059 = ╱e2╱+╱ // 0x496 @0x59
0x043d…04ac at005a = ╱32╱2╱ // 0x497 @0x5a
0x043d…04ac at005b = ╱34╱4╱ // 0x498 @0x5b
0x043d…04ac at005c = ╱fe0000c005╱ // 0x499 @0x5c
0x043d…04ac at0061 = ╱eb╱;╱ // 0x49e @0x61
0x043d…04ac at0062 = ╱4a╱J╱ // 0x49f @0x62
0x043d…04ac at0063 = ╱37╱7╱ // 0x4a0 @0x63
0x043d…04ac at0064 = ╱dc╱=╱ // 0x4a1 @0x64
0x043d…04ac at0065 = ╱48╱H╱ // 0x4a2 @0x65
0x043d…04ac at0066 = ╱e2╱+╱ // 0x4a3 @0x66
0x043d…04ac at0067 = ╱32╱2╱ // 0x4a4 @0x67
0x043d…04ac at0068 = ╱38╱8╱ // 0x4a5 @0x68
0x043d…04ac at0069 = ╱fe0000e005╱ // 0x4a6 @0x69
0x043d…04ac at006e = EOL // 0x4ab @0x6e
0x043d…04ac }
0x04ac…04f6 924d 0440 PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E)
0x04ac…04f6 LineComalBin {
0x04ac…04f6 ptr = 0x924d // 0x4ac @0x0
0x04ac…04f6 lno = 0x01b8 // 0x4ae @0x2
0x04ac…04f6 at0004 = ╱aa╱ PUT ╱ // 0x4b0 @0x4
0x04ac…04f6 at0005 = ╱4b╱K╱ // 0x4b1 @0x5
0x04ac…04f6 at0006 = ╱39╱9╱ // 0x4b2 @0x6
0x04ac…04f6 at0007 = ╱ef╱$╱ // 0x4b3 @0x7
0x04ac…04f6 at0008 = ╱ec╱,╱ // 0x4b4 @0x8
0x04ac…04f6 at0009 = ╱49╱I╱ // 0x4b5 @0x9
0x04ac…04f6 at000a = ╱f0╱:╱ // 0x4b6 @0xa
0x04ac…04f6 at000b = ╱55╱U╱ // 0x4b7 @0xb
0x04ac…04f6 at000c = ╱ed╱(╱ // 0x4b8 @0xc
0x04ac…04f6 at000d = ╱48╱H╱ // 0x4b9 @0xd
0x04ac…04f6 at000e = ╱ec╱,╱ // 0x4ba @0xe
0x04ac…04f6 at000f = ╱45╱E╱ // 0x4bb @0xf
0x04ac…04f6 at0010 = ╱ee╱)╱ // 0x4bc @0x10
0x04ac…04f6 at0011 = ╱ec╱,╱ // 0x4bd @0x11
0x04ac…04f6 at0012 = ╱55╱U╱ // 0x4be @0x12
0x04ac…04f6 at0013 = ╱ed╱(╱ // 0x4bf @0x13
0x04ac…04f6 at0014 = ╱4a╱J╱ // 0x4c0 @0x14
0x04ac…04f6 at0015 = ╱31╱1╱ // 0x4c1 @0x15
0x04ac…04f6 at0016 = ╱ec╱,╱ // 0x4c2 @0x16
0x04ac…04f6 at0017 = ╱45╱E╱ // 0x4c3 @0x17
0x04ac…04f6 at0018 = ╱ee╱)╱ // 0x4c4 @0x18
0x04ac…04f6 at0019 = ╱ec╱,╱ // 0x4c5 @0x19
0x04ac…04f6 at001a = ╱55╱U╱ // 0x4c6 @0x1a
0x04ac…04f6 at001b = ╱ed╱(╱ // 0x4c7 @0x1b
0x04ac…04f6 at001c = ╱4a╱J╱ // 0x4c8 @0x1c
0x04ac…04f6 at001d = ╱32╱2╱ // 0x4c9 @0x1d
0x04ac…04f6 at001e = ╱ec╱,╱ // 0x4ca @0x1e
0x04ac…04f6 at001f = ╱45╱E╱ // 0x4cb @0x1f
0x04ac…04f6 at0020 = ╱ee╱)╱ // 0x4cc @0x20
0x04ac…04f6 at0021 = ╱ec╱,╱ // 0x4cd @0x21
0x04ac…04f6 at0022 = ╱55╱U╱ // 0x4ce @0x22
0x04ac…04f6 at0023 = ╱ed╱(╱ // 0x4cf @0x23
0x04ac…04f6 at0024 = ╱4a╱J╱ // 0x4d0 @0x24
0x04ac…04f6 at0025 = ╱33╱3╱ // 0x4d1 @0x25
0x04ac…04f6 at0026 = ╱ec╱,╱ // 0x4d2 @0x26
0x04ac…04f6 at0027 = ╱45╱E╱ // 0x4d3 @0x27
0x04ac…04f6 at0028 = ╱ee╱)╱ // 0x4d4 @0x28
0x04ac…04f6 at0029 = ╱ec╱,╱ // 0x4d5 @0x29
0x04ac…04f6 at002a = ╱55╱U╱ // 0x4d6 @0x2a
0x04ac…04f6 at002b = ╱ed╱(╱ // 0x4d7 @0x2b
0x04ac…04f6 at002c = ╱4a╱J╱ // 0x4d8 @0x2c
0x04ac…04f6 at002d = ╱34╱4╱ // 0x4d9 @0x2d
0x04ac…04f6 at002e = ╱ec╱,╱ // 0x4da @0x2e
0x04ac…04f6 at002f = ╱45╱E╱ // 0x4db @0x2f
0x04ac…04f6 at0030 = ╱ee╱)╱ // 0x4dc @0x30
0x04ac…04f6 at0031 = ╱ec╱,╱ // 0x4dd @0x31
0x04ac…04f6 at0032 = ╱55╱U╱ // 0x4de @0x32
0x04ac…04f6 at0033 = ╱ed╱(╱ // 0x4df @0x33
0x04ac…04f6 at0034 = ╱4a╱J╱ // 0x4e0 @0x34
0x04ac…04f6 at0035 = ╱35╱5╱ // 0x4e1 @0x35
0x04ac…04f6 at0036 = ╱ec╱,╱ // 0x4e2 @0x36
0x04ac…04f6 at0037 = ╱45╱E╱ // 0x4e3 @0x37
0x04ac…04f6 at0038 = ╱ee╱)╱ // 0x4e4 @0x38
0x04ac…04f6 at0039 = ╱ec╱,╱ // 0x4e5 @0x39
0x04ac…04f6 at003a = ╱55╱U╱ // 0x4e6 @0x3a
0x04ac…04f6 at003b = ╱ed╱(╱ // 0x4e7 @0x3b
0x04ac…04f6 at003c = ╱4a╱J╱ // 0x4e8 @0x3c
0x04ac…04f6 at003d = ╱36╱6╱ // 0x4e9 @0x3d
0x04ac…04f6 at003e = ╱ec╱,╱ // 0x4ea @0x3e
0x04ac…04f6 at003f = ╱45╱E╱ // 0x4eb @0x3f
0x04ac…04f6 at0040 = ╱ee╱)╱ // 0x4ec @0x40
0x04ac…04f6 at0041 = ╱ec╱,╱ // 0x4ed @0x41
0x04ac…04f6 at0042 = ╱55╱U╱ // 0x4ee @0x42
0x04ac…04f6 at0043 = ╱ed╱(╱ // 0x4ef @0x43
0x04ac…04f6 at0044 = ╱4a╱J╱ // 0x4f0 @0x44
0x04ac…04f6 at0045 = ╱37╱7╱ // 0x4f1 @0x45
0x04ac…04f6 at0046 = ╱ec╱,╱ // 0x4f2 @0x46
0x04ac…04f6 at0047 = ╱45╱E╱ // 0x4f3 @0x47
0x04ac…04f6 at0048 = ╱ee╱)╱ // 0x4f4 @0x48
0x04ac…04f6 at0049 = EOL // 0x4f5 @0x49
0x04ac…04f6 }
0x04f6…0509 9260 0450 EXEC FEJL(G,E,K9$)
0x04f6…0509 LineComalBin {
0x04f6…0509 ptr = 0x9260 // 0x4f6 @0x0
0x04f6…0509 lno = 0x01c2 // 0x4f8 @0x2
0x04f6…0509 at0004 = ╱9d╱ EXEC ╱ // 0x4fa @0x4
0x04f6…0509 at0005 = ╱46╱F╱ // 0x4fb @0x5
0x04f6…0509 at0006 = ╱45╱E╱ // 0x4fc @0x6
0x04f6…0509 at0007 = ╱4a╱J╱ // 0x4fd @0x7
0x04f6…0509 at0008 = ╱4c╱L╱ // 0x4fe @0x8
0x04f6…0509 at0009 = ╱ed╱(╱ // 0x4ff @0x9
0x04f6…0509 at000a = ╱47╱G╱ // 0x500 @0xa
0x04f6…0509 at000b = ╱ec╱,╱ // 0x501 @0xb
0x04f6…0509 at000c = ╱45╱E╱ // 0x502 @0xc
0x04f6…0509 at000d = ╱ec╱,╱ // 0x503 @0xd
0x04f6…0509 at000e = ╱4b╱K╱ // 0x504 @0xe
0x04f6…0509 at000f = ╱39╱9╱ // 0x505 @0xf
0x04f6…0509 at0010 = ╱ef╱$╱ // 0x506 @0x10
0x04f6…0509 at0011 = ╱ee╱)╱ // 0x507 @0x11
0x04f6…0509 at0012 = EOL // 0x508 @0x12
0x04f6…0509 }
0x0509…0510 9267 0460 NEXT I
0x0509…0510 LineComalBin {
0x0509…0510 ptr = 0x9267 // 0x509 @0x0
0x0509…0510 lno = 0x01cc // 0x50b @0x2
0x0509…0510 at0004 = ╱84╱ NEXT ╱ // 0x50d @0x4
0x0509…0510 at0005 = ╱49╱I╱ // 0x50e @0x5
0x0509…0510 at0006 = EOL // 0x50f @0x6
0x0509…0510 }
0x0510…052c 9283 0470 FOR I=J TO MANTAL1 DIV 4+J-E
0x0510…052c LineComalBin {
0x0510…052c ptr = 0x9283 // 0x510 @0x0
0x0510…052c lno = 0x01d6 // 0x512 @0x2
0x0510…052c at0004 = ╱83╱ FOR ╱ // 0x514 @0x4
0x0510…052c at0005 = ╱49╱I╱ // 0x515 @0x5
0x0510…052c at0006 = ╱dc╱=╱ // 0x516 @0x6
0x0510…052c at0007 = ╱4a╱J╱ // 0x517 @0x7
0x0510…052c at0008 = ╱b7╱ TO ╱ // 0x518 @0x8
0x0510…052c at0009 = ╱4d╱M╱ // 0x519 @0x9
0x0510…052c at000a = ╱41╱A╱ // 0x51a @0xa
0x0510…052c at000b = ╱4e╱N╱ // 0x51b @0xb
0x0510…052c at000c = ╱54╱T╱ // 0x51c @0xc
0x0510…052c at000d = ╱41╱A╱ // 0x51d @0xd
0x0510…052c at000e = ╱4c╱L╱ // 0x51e @0xe
0x0510…052c at000f = ╱31╱1╱ // 0x51f @0xf
0x0510…052c at0010 = ╱e7╱ DIV ╱ // 0x520 @0x10
0x0510…052c at0011 = ╱34╱4╱ // 0x521 @0x11
0x0510…052c at0012 = ╱fe00008003╱ // 0x522 @0x12
0x0510…052c at0017 = ╱e2╱+╱ // 0x527 @0x17
0x0510…052c at0018 = ╱4a╱J╱ // 0x528 @0x18
0x0510…052c at0019 = ╱e3╱-╱ // 0x529 @0x19
0x0510…052c at001a = ╱45╱E╱ // 0x52a @0x1a
0x0510…052c at001b = EOL // 0x52b @0x1b
0x0510…052c }
0x052c…0556 92ad 0480 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V
0x052c…0556 LineComalBin {
0x052c…0556 ptr = 0x92ad // 0x52c @0x0
0x052c…0556 lno = 0x01e0 // 0x52e @0x2
0x052c…0556 at0004 = ╱48╱H╱ // 0x530 @0x4
0x052c…0556 at0005 = ╱dc╱=╱ // 0x531 @0x5
0x052c…0556 at0006 = ╱ed╱(╱ // 0x532 @0x6
0x052c…0556 at0007 = ╱49╱I╱ // 0x533 @0x7
0x052c…0556 at0008 = ╱e3╱-╱ // 0x534 @0x8
0x052c…0556 at0009 = ╱4a╱J╱ // 0x535 @0x9
0x052c…0556 at000a = ╱ee╱)╱ // 0x536 @0xa
0x052c…0556 at000b = ╱e4╱*╱ // 0x537 @0xb
0x052c…0556 at000c = ╱34╱4╱ // 0x538 @0xc
0x052c…0556 at000d = ╱fe00008003╱ // 0x539 @0xd
0x052c…0556 at0012 = ╱e2╱+╱ // 0x53e @0x12
0x052c…0556 at0013 = ╱45╱E╱ // 0x53f @0x13
0x052c…0556 at0014 = ╱eb╱;╱ // 0x540 @0x14
0x052c…0556 at0015 = ╱4a╱J╱ // 0x541 @0x15
0x052c…0556 at0016 = ╱31╱1╱ // 0x542 @0x16
0x052c…0556 at0017 = ╱dc╱=╱ // 0x543 @0x17
0x052c…0556 at0018 = ╱48╱H╱ // 0x544 @0x18
0x052c…0556 at0019 = ╱e2╱+╱ // 0x545 @0x19
0x052c…0556 at001a = ╱45╱E╱ // 0x546 @0x1a
0x052c…0556 at001b = ╱eb╱;╱ // 0x547 @0x1b
0x052c…0556 at001c = ╱4a╱J╱ // 0x548 @0x1c
0x052c…0556 at001d = ╱32╱2╱ // 0x549 @0x1d
0x052c…0556 at001e = ╱dc╱=╱ // 0x54a @0x1e
0x052c…0556 at001f = ╱48╱H╱ // 0x54b @0x1f
0x052c…0556 at0020 = ╱e2╱+╱ // 0x54c @0x20
0x052c…0556 at0021 = ╱47╱G╱ // 0x54d @0x21
0x052c…0556 at0022 = ╱eb╱;╱ // 0x54e @0x22
0x052c…0556 at0023 = ╱4a╱J╱ // 0x54f @0x23
0x052c…0556 at0024 = ╱33╱3╱ // 0x550 @0x24
0x052c…0556 at0025 = ╱dc╱=╱ // 0x551 @0x25
0x052c…0556 at0026 = ╱48╱H╱ // 0x552 @0x26
0x052c…0556 at0027 = ╱e2╱+╱ // 0x553 @0x27
0x052c…0556 at0028 = ╱56╱V╱ // 0x554 @0x28
0x052c…0556 at0029 = EOL // 0x555 @0x29
0x052c…0556 }
0x0556…059f 92f6 0490 PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G)
0x0556…059f LineComalBin {
0x0556…059f ptr = 0x92f6 // 0x556 @0x0
0x0556…059f lno = 0x01ea // 0x558 @0x2
0x0556…059f at0004 = ╱aa╱ PUT ╱ // 0x55a @0x4
0x0556…059f at0005 = ╱4b╱K╱ // 0x55b @0x5
0x0556…059f at0006 = ╱39╱9╱ // 0x55c @0x6
0x0556…059f at0007 = ╱ef╱$╱ // 0x55d @0x7
0x0556…059f at0008 = ╱ec╱,╱ // 0x55e @0x8
0x0556…059f at0009 = ╱49╱I╱ // 0x55f @0x9
0x0556…059f at000a = ╱f0╱:╱ // 0x560 @0xa
0x0556…059f at000b = ╱55╱U╱ // 0x561 @0xb
0x0556…059f at000c = ╱ed╱(╱ // 0x562 @0xc
0x0556…059f at000d = ╱48╱H╱ // 0x563 @0xd
0x0556…059f at000e = ╱ec╱,╱ // 0x564 @0xe
0x0556…059f at000f = ╱45╱E╱ // 0x565 @0xf
0x0556…059f at0010 = ╱ee╱)╱ // 0x566 @0x10
0x0556…059f at0011 = ╱ec╱,╱ // 0x567 @0x11
0x0556…059f at0012 = ╱55╱U╱ // 0x568 @0x12
0x0556…059f at0013 = ╱ed╱(╱ // 0x569 @0x13
0x0556…059f at0014 = ╱48╱H╱ // 0x56a @0x14
0x0556…059f at0015 = ╱ec╱,╱ // 0x56b @0x15
0x0556…059f at0016 = ╱47╱G╱ // 0x56c @0x16
0x0556…059f at0017 = ╱ee╱)╱ // 0x56d @0x17
0x0556…059f at0018 = ╱ec╱,╱ // 0x56e @0x18
0x0556…059f at0019 = ╱55╱U╱ // 0x56f @0x19
0x0556…059f at001a = ╱ed╱(╱ // 0x570 @0x1a
0x0556…059f at001b = ╱4a╱J╱ // 0x571 @0x1b
0x0556…059f at001c = ╱31╱1╱ // 0x572 @0x1c
0x0556…059f at001d = ╱ec╱,╱ // 0x573 @0x1d
0x0556…059f at001e = ╱45╱E╱ // 0x574 @0x1e
0x0556…059f at001f = ╱ee╱)╱ // 0x575 @0x1f
0x0556…059f at0020 = ╱ec╱,╱ // 0x576 @0x20
0x0556…059f at0021 = ╱55╱U╱ // 0x577 @0x21
0x0556…059f at0022 = ╱ed╱(╱ // 0x578 @0x22
0x0556…059f at0023 = ╱4a╱J╱ // 0x579 @0x23
0x0556…059f at0024 = ╱31╱1╱ // 0x57a @0x24
0x0556…059f at0025 = ╱ec╱,╱ // 0x57b @0x25
0x0556…059f at0026 = ╱47╱G╱ // 0x57c @0x26
0x0556…059f at0027 = ╱ee╱)╱ // 0x57d @0x27
0x0556…059f at0028 = ╱ec╱,╱ // 0x57e @0x28
0x0556…059f at0029 = ╱55╱U╱ // 0x57f @0x29
0x0556…059f at002a = ╱ed╱(╱ // 0x580 @0x2a
0x0556…059f at002b = ╱4a╱J╱ // 0x581 @0x2b
0x0556…059f at002c = ╱32╱2╱ // 0x582 @0x2c
0x0556…059f at002d = ╱ec╱,╱ // 0x583 @0x2d
0x0556…059f at002e = ╱45╱E╱ // 0x584 @0x2e
0x0556…059f at002f = ╱ee╱)╱ // 0x585 @0x2f
0x0556…059f at0030 = ╱ec╱,╱ // 0x586 @0x30
0x0556…059f at0031 = ╱55╱U╱ // 0x587 @0x31
0x0556…059f at0032 = ╱ed╱(╱ // 0x588 @0x32
0x0556…059f at0033 = ╱4a╱J╱ // 0x589 @0x33
0x0556…059f at0034 = ╱32╱2╱ // 0x58a @0x34
0x0556…059f at0035 = ╱ec╱,╱ // 0x58b @0x35
0x0556…059f at0036 = ╱47╱G╱ // 0x58c @0x36
0x0556…059f at0037 = ╱ee╱)╱ // 0x58d @0x37
0x0556…059f at0038 = ╱ec╱,╱ // 0x58e @0x38
0x0556…059f at0039 = ╱55╱U╱ // 0x58f @0x39
0x0556…059f at003a = ╱ed╱(╱ // 0x590 @0x3a
0x0556…059f at003b = ╱4a╱J╱ // 0x591 @0x3b
0x0556…059f at003c = ╱33╱3╱ // 0x592 @0x3c
0x0556…059f at003d = ╱ec╱,╱ // 0x593 @0x3d
0x0556…059f at003e = ╱45╱E╱ // 0x594 @0x3e
0x0556…059f at003f = ╱ee╱)╱ // 0x595 @0x3f
0x0556…059f at0040 = ╱ec╱,╱ // 0x596 @0x40
0x0556…059f at0041 = ╱55╱U╱ // 0x597 @0x41
0x0556…059f at0042 = ╱ed╱(╱ // 0x598 @0x42
0x0556…059f at0043 = ╱4a╱J╱ // 0x599 @0x43
0x0556…059f at0044 = ╱33╱3╱ // 0x59a @0x44
0x0556…059f at0045 = ╱ec╱,╱ // 0x59b @0x45
0x0556…059f at0046 = ╱47╱G╱ // 0x59c @0x46
0x0556…059f at0047 = ╱ee╱)╱ // 0x59d @0x47
0x0556…059f at0048 = EOL // 0x59e @0x48
0x0556…059f }
0x059f…05b2 9309 0500 EXEC FEJL(G,G,K9$)
0x059f…05b2 LineComalBin {
0x059f…05b2 ptr = 0x9309 // 0x59f @0x0
0x059f…05b2 lno = 0x01f4 // 0x5a1 @0x2
0x059f…05b2 at0004 = ╱9d╱ EXEC ╱ // 0x5a3 @0x4
0x059f…05b2 at0005 = ╱46╱F╱ // 0x5a4 @0x5
0x059f…05b2 at0006 = ╱45╱E╱ // 0x5a5 @0x6
0x059f…05b2 at0007 = ╱4a╱J╱ // 0x5a6 @0x7
0x059f…05b2 at0008 = ╱4c╱L╱ // 0x5a7 @0x8
0x059f…05b2 at0009 = ╱ed╱(╱ // 0x5a8 @0x9
0x059f…05b2 at000a = ╱47╱G╱ // 0x5a9 @0xa
0x059f…05b2 at000b = ╱ec╱,╱ // 0x5aa @0xb
0x059f…05b2 at000c = ╱47╱G╱ // 0x5ab @0xc
0x059f…05b2 at000d = ╱ec╱,╱ // 0x5ac @0xd
0x059f…05b2 at000e = ╱4b╱K╱ // 0x5ad @0xe
0x059f…05b2 at000f = ╱39╱9╱ // 0x5ae @0xf
0x059f…05b2 at0010 = ╱ef╱$╱ // 0x5af @0x10
0x059f…05b2 at0011 = ╱ee╱)╱ // 0x5b0 @0x11
0x059f…05b2 at0012 = EOL // 0x5b1 @0x12
0x059f…05b2 }
0x05b2…05b9 9310 0510 NEXT I
0x05b2…05b9 LineComalBin {
0x05b2…05b9 ptr = 0x9310 // 0x5b2 @0x0
0x05b2…05b9 lno = 0x01fe // 0x5b4 @0x2
0x05b2…05b9 at0004 = ╱84╱ NEXT ╱ // 0x5b6 @0x4
0x05b2…05b9 at0005 = ╱49╱I╱ // 0x5b7 @0x5
0x05b2…05b9 at0006 = EOL // 0x5b8 @0x6
0x05b2…05b9 }
0x05b9…05bf 9316 0520 ENDPROC
0x05b9…05bf LineComalBin {
0x05b9…05bf ptr = 0x9316 // 0x5b9 @0x0
0x05b9…05bf lno = 0x0208 // 0x5bb @0x2
0x05b9…05bf at0004 = ╱9f╱ ENDPROC ╱ // 0x5bd @0x4
0x05b9…05bf at0005 = EOL // 0x5be @0x5
0x05b9…05bf }
0x05bf…05e4 933b 0530 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x05bf…05e4 LineComalBin {
0x05bf…05e4 ptr = 0x933b // 0x5bf @0x0
0x05bf…05e4 lno = 0x0212 // 0x5c1 @0x2
0x05bf…05e4 at0004 = ╱9e╱ PROC ╱ // 0x5c3 @0x4
0x05bf…05e4 at0005 = ╱46╱F╱ // 0x5c4 @0x5
0x05bf…05e4 at0006 = ╱49╱I╱ // 0x5c5 @0x6
0x05bf…05e4 at0007 = ╱4e╱N╱ // 0x5c6 @0x7
0x05bf…05e4 at0008 = ╱44╱D╱ // 0x5c7 @0x8
0x05bf…05e4 at0009 = ╱50╱P╱ // 0x5c8 @0x9
0x05bf…05e4 at000a = ╱4f╱O╱ // 0x5c9 @0xa
0x05bf…05e4 at000b = ╱53╱S╱ // 0x5ca @0xb
0x05bf…05e4 at000c = ╱54╱T╱ // 0x5cb @0xc
0x05bf…05e4 at000d = ╱ed╱(╱ // 0x5cc @0xd
0x05bf…05e4 at000e = ╱54╱T╱ // 0x5cd @0xe
0x05bf…05e4 at000f = ╱41╱A╱ // 0x5ce @0xf
0x05bf…05e4 at0010 = ╱42╱B╱ // 0x5cf @0x10
0x05bf…05e4 at0011 = ╱31╱1╱ // 0x5d0 @0x11
0x05bf…05e4 at0012 = ╱ec╱,╱ // 0x5d1 @0x12
0x05bf…05e4 at0013 = ╱4d╱M╱ // 0x5d2 @0x13
0x05bf…05e4 at0014 = ╱41╱A╱ // 0x5d3 @0x14
0x05bf…05e4 at0015 = ╱4e╱N╱ // 0x5d4 @0x15
0x05bf…05e4 at0016 = ╱54╱T╱ // 0x5d5 @0x16
0x05bf…05e4 at0017 = ╱31╱1╱ // 0x5d6 @0x17
0x05bf…05e4 at0018 = ╱ec╱,╱ // 0x5d7 @0x18
0x05bf…05e4 at0019 = ╱4e╱N╱ // 0x5d8 @0x19
0x05bf…05e4 at001a = ╱5c╱Ø╱ // 0x5d9 @0x1a
0x05bf…05e4 at001b = ╱47╱G╱ // 0x5da @0x1b
0x05bf…05e4 at001c = ╱4c╱L╱ // 0x5db @0x1c
0x05bf…05e4 at001d = ╱31╱1╱ // 0x5dc @0x1d
0x05bf…05e4 at001e = ╱ec╱,╱ // 0x5dd @0x1e
0x05bf…05e4 at001f = ╱50╱P╱ // 0x5de @0x1f
0x05bf…05e4 at0020 = ╱49╱I╱ // 0x5df @0x20
0x05bf…05e4 at0021 = ╱4c╱L╱ // 0x5e0 @0x21
0x05bf…05e4 at0022 = ╱33╱3╱ // 0x5e1 @0x22
0x05bf…05e4 at0023 = ╱ee╱)╱ // 0x5e2 @0x23
0x05bf…05e4 at0024 = EOL // 0x5e3 @0x24
0x05bf…05e4 }
0x05e4…0606 935d 0540 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x05e4…0606 LineComalBin {
0x05e4…0606 ptr = 0x935d // 0x5e4 @0x0
0x05e4…0606 lno = 0x021c // 0x5e6 @0x2
0x05e4…0606 at0004 = ╱50╱P╱ // 0x5e8 @0x4
0x05e4…0606 at0005 = ╱49╱I╱ // 0x5e9 @0x5
0x05e4…0606 at0006 = ╱4c╱L╱ // 0x5ea @0x6
0x05e4…0606 at0007 = ╱31╱1╱ // 0x5eb @0x7
0x05e4…0606 at0008 = ╱dc╱=╱ // 0x5ec @0x8
0x05e4…0606 at0009 = ╱4d╱M╱ // 0x5ed @0x9
0x05e4…0606 at000a = ╱41╱A╱ // 0x5ee @0xa
0x05e4…0606 at000b = ╱4e╱N╱ // 0x5ef @0xb
0x05e4…0606 at000c = ╱54╱T╱ // 0x5f0 @0xc
0x05e4…0606 at000d = ╱31╱1╱ // 0x5f1 @0xd
0x05e4…0606 at000e = ╱e7╱ DIV ╱ // 0x5f2 @0xe
0x05e4…0606 at000f = ╱47╱G╱ // 0x5f3 @0xf
0x05e4…0606 at0010 = ╱eb╱;╱ // 0x5f4 @0x10
0x05e4…0606 at0011 = ╱50╱P╱ // 0x5f5 @0x11
0x05e4…0606 at0012 = ╱49╱I╱ // 0x5f6 @0x12
0x05e4…0606 at0013 = ╱4c╱L╱ // 0x5f7 @0x13
0x05e4…0606 at0014 = ╱33╱3╱ // 0x5f8 @0x14
0x05e4…0606 at0015 = ╱dc╱=╱ // 0x5f9 @0x15
0x05e4…0606 at0016 = ╱50╱P╱ // 0x5fa @0x16
0x05e4…0606 at0017 = ╱49╱I╱ // 0x5fb @0x17
0x05e4…0606 at0018 = ╱4c╱L╱ // 0x5fc @0x18
0x05e4…0606 at0019 = ╱31╱1╱ // 0x5fd @0x19
0x05e4…0606 at001a = ╱eb╱;╱ // 0x5fe @0x1a
0x05e4…0606 at001b = ╱43╱C╱ // 0x5ff @0x1b
0x05e4…0606 at001c = ╱45╱E╱ // 0x600 @0x1c
0x05e4…0606 at001d = ╱4b╱K╱ // 0x601 @0x1d
0x05e4…0606 at001e = ╱53╱S╱ // 0x602 @0x1e
0x05e4…0606 at001f = ╱dc╱=╱ // 0x603 @0x1f
0x05e4…0606 at0020 = ╱45╱E╱ // 0x604 @0x20
0x05e4…0606 at0021 = EOL // 0x605 @0x21
0x05e4…0606 }
0x0606…060c 9363 0550 REPEAT
0x0606…060c LineComalBin {
0x0606…060c ptr = 0x9363 // 0x606 @0x0
0x0606…060c lno = 0x0226 // 0x608 @0x2
0x0606…060c at0004 = ╱97╱ REPEAT ╱ // 0x60a @0x4
0x0606…060c at0005 = EOL // 0x60b @0x5
0x0606…060c }
0x060c…0625 937c 0560 IF NØGL1=TAB1(PIL3,E) THEN
0x060c…0625 LineComalBin {
0x060c…0625 ptr = 0x937c // 0x60c @0x0
0x060c…0625 lno = 0x0230 // 0x60e @0x2
0x060c…0625 at0004 = ╱9c╱ IF ╱ // 0x610 @0x4
0x060c…0625 at0005 = ╱4e╱N╱ // 0x611 @0x5
0x060c…0625 at0006 = ╱5c╱Ø╱ // 0x612 @0x6
0x060c…0625 at0007 = ╱47╱G╱ // 0x613 @0x7
0x060c…0625 at0008 = ╱4c╱L╱ // 0x614 @0x8
0x060c…0625 at0009 = ╱31╱1╱ // 0x615 @0x9
0x060c…0625 at000a = ╱dc╱=╱ // 0x616 @0xa
0x060c…0625 at000b = ╱54╱T╱ // 0x617 @0xb
0x060c…0625 at000c = ╱41╱A╱ // 0x618 @0xc
0x060c…0625 at000d = ╱42╱B╱ // 0x619 @0xd
0x060c…0625 at000e = ╱31╱1╱ // 0x61a @0xe
0x060c…0625 at000f = ╱ed╱(╱ // 0x61b @0xf
0x060c…0625 at0010 = ╱50╱P╱ // 0x61c @0x10
0x060c…0625 at0011 = ╱49╱I╱ // 0x61d @0x11
0x060c…0625 at0012 = ╱4c╱L╱ // 0x61e @0x12
0x060c…0625 at0013 = ╱33╱3╱ // 0x61f @0x13
0x060c…0625 at0014 = ╱ec╱,╱ // 0x620 @0x14
0x060c…0625 at0015 = ╱45╱E╱ // 0x621 @0x15
0x060c…0625 at0016 = ╱ee╱)╱ // 0x622 @0x16
0x060c…0625 at0017 = ╱b6╱ THEN ╱ // 0x623 @0x17
0x060c…0625 at0018 = EOL // 0x624 @0x18
0x060c…0625 }
0x0625…0630 9387 0570 CEKS=B
0x0625…0630 LineComalBin {
0x0625…0630 ptr = 0x9387 // 0x625 @0x0
0x0625…0630 lno = 0x023a // 0x627 @0x2
0x0625…0630 at0004 = ╱43╱C╱ // 0x629 @0x4
0x0625…0630 at0005 = ╱45╱E╱ // 0x62a @0x5
0x0625…0630 at0006 = ╱4b╱K╱ // 0x62b @0x6
0x0625…0630 at0007 = ╱53╱S╱ // 0x62c @0x7
0x0625…0630 at0008 = ╱dc╱=╱ // 0x62d @0x8
0x0625…0630 at0009 = ╱42╱B╱ // 0x62e @0x9
0x0625…0630 at000a = EOL // 0x62f @0xa
0x0625…0630 }
0x0630…0636 938d 0580 ELSE
0x0630…0636 LineComalBin {
0x0630…0636 ptr = 0x938d // 0x630 @0x0
0x0630…0636 lno = 0x0244 // 0x632 @0x2
0x0630…0636 at0004 = ╱9a╱ ELSE ╱ // 0x634 @0x4
0x0630…0636 at0005 = EOL // 0x635 @0x5
0x0630…0636 }
0x0636…0649 93a0 0590 IF PIL1=E THEN PIL1=B
0x0636…0649 LineComalBin {
0x0636…0649 ptr = 0x93a0 // 0x636 @0x0
0x0636…0649 lno = 0x024e // 0x638 @0x2
0x0636…0649 at0004 = ╱82╱ IF ╱ // 0x63a @0x4
0x0636…0649 at0005 = ╱50╱P╱ // 0x63b @0x5
0x0636…0649 at0006 = ╱49╱I╱ // 0x63c @0x6
0x0636…0649 at0007 = ╱4c╱L╱ // 0x63d @0x7
0x0636…0649 at0008 = ╱31╱1╱ // 0x63e @0x8
0x0636…0649 at0009 = ╱dc╱=╱ // 0x63f @0x9
0x0636…0649 at000a = ╱45╱E╱ // 0x640 @0xa
0x0636…0649 at000b = ╱b6╱ THEN ╱ // 0x641 @0xb
0x0636…0649 at000c = ╱50╱P╱ // 0x642 @0xc
0x0636…0649 at000d = ╱49╱I╱ // 0x643 @0xd
0x0636…0649 at000e = ╱4c╱L╱ // 0x644 @0xe
0x0636…0649 at000f = ╱31╱1╱ // 0x645 @0xf
0x0636…0649 at0010 = ╱dc╱=╱ // 0x646 @0x10
0x0636…0649 at0011 = ╱42╱B╱ // 0x647 @0x11
0x0636…0649 at0012 = EOL // 0x648 @0x12
0x0636…0649 }
0x0649…0660 93b7 0600 PIL1=INT((PIL1+E)/G)
0x0649…0660 LineComalBin {
0x0649…0660 ptr = 0x93b7 // 0x649 @0x0
0x0649…0660 lno = 0x0258 // 0x64b @0x2
0x0649…0660 at0004 = ╱50╱P╱ // 0x64d @0x4
0x0649…0660 at0005 = ╱49╱I╱ // 0x64e @0x5
0x0649…0660 at0006 = ╱4c╱L╱ // 0x64f @0x6
0x0649…0660 at0007 = ╱31╱1╱ // 0x650 @0x7
0x0649…0660 at0008 = ╱dc╱=╱ // 0x651 @0x8
0x0649…0660 at0009 = ╱c6╱INT╱ // 0x652 @0x9
0x0649…0660 at000a = ╱ed╱(╱ // 0x653 @0xa
0x0649…0660 at000b = ╱ed╱(╱ // 0x654 @0xb
0x0649…0660 at000c = ╱50╱P╱ // 0x655 @0xc
0x0649…0660 at000d = ╱49╱I╱ // 0x656 @0xd
0x0649…0660 at000e = ╱4c╱L╱ // 0x657 @0xe
0x0649…0660 at000f = ╱31╱1╱ // 0x658 @0xf
0x0649…0660 at0010 = ╱e2╱+╱ // 0x659 @0x10
0x0649…0660 at0011 = ╱45╱E╱ // 0x65a @0x11
0x0649…0660 at0012 = ╱ee╱)╱ // 0x65b @0x12
0x0649…0660 at0013 = ╱e5╱/╱ // 0x65c @0x13
0x0649…0660 at0014 = ╱47╱G╱ // 0x65d @0x14
0x0649…0660 at0015 = ╱ee╱)╱ // 0x65e @0x15
0x0649…0660 at0016 = EOL // 0x65f @0x16
0x0649…0660 }
0x0660…0679 93d0 0610 IF NØGL1>TAB1(PIL3,E) THEN
0x0660…0679 LineComalBin {
0x0660…0679 ptr = 0x93d0 // 0x660 @0x0
0x0660…0679 lno = 0x0262 // 0x662 @0x2
0x0660…0679 at0004 = ╱9c╱ IF ╱ // 0x664 @0x4
0x0660…0679 at0005 = ╱4e╱N╱ // 0x665 @0x5
0x0660…0679 at0006 = ╱5c╱Ø╱ // 0x666 @0x6
0x0660…0679 at0007 = ╱47╱G╱ // 0x667 @0x7
0x0660…0679 at0008 = ╱4c╱L╱ // 0x668 @0x8
0x0660…0679 at0009 = ╱31╱1╱ // 0x669 @0x9
0x0660…0679 at000a = ╱de╱>╱ // 0x66a @0xa
0x0660…0679 at000b = ╱54╱T╱ // 0x66b @0xb
0x0660…0679 at000c = ╱41╱A╱ // 0x66c @0xc
0x0660…0679 at000d = ╱42╱B╱ // 0x66d @0xd
0x0660…0679 at000e = ╱31╱1╱ // 0x66e @0xe
0x0660…0679 at000f = ╱ed╱(╱ // 0x66f @0xf
0x0660…0679 at0010 = ╱50╱P╱ // 0x670 @0x10
0x0660…0679 at0011 = ╱49╱I╱ // 0x671 @0x11
0x0660…0679 at0012 = ╱4c╱L╱ // 0x672 @0x12
0x0660…0679 at0013 = ╱33╱3╱ // 0x673 @0x13
0x0660…0679 at0014 = ╱ec╱,╱ // 0x674 @0x14
0x0660…0679 at0015 = ╱45╱E╱ // 0x675 @0x15
0x0660…0679 at0016 = ╱ee╱)╱ // 0x676 @0x16
0x0660…0679 at0017 = ╱b6╱ THEN ╱ // 0x677 @0x17
0x0660…0679 at0018 = EOL // 0x678 @0x18
0x0660…0679 }
0x0679…068c 93e3 0620 PIL3=PIL3+PIL1
0x0679…068c LineComalBin {
0x0679…068c ptr = 0x93e3 // 0x679 @0x0
0x0679…068c lno = 0x026c // 0x67b @0x2
0x0679…068c at0004 = ╱50╱P╱ // 0x67d @0x4
0x0679…068c at0005 = ╱49╱I╱ // 0x67e @0x5
0x0679…068c at0006 = ╱4c╱L╱ // 0x67f @0x6
0x0679…068c at0007 = ╱33╱3╱ // 0x680 @0x7
0x0679…068c at0008 = ╱dc╱=╱ // 0x681 @0x8
0x0679…068c at0009 = ╱50╱P╱ // 0x682 @0x9
0x0679…068c at000a = ╱49╱I╱ // 0x683 @0xa
0x0679…068c at000b = ╱4c╱L╱ // 0x684 @0xb
0x0679…068c at000c = ╱33╱3╱ // 0x685 @0xc
0x0679…068c at000d = ╱e2╱+╱ // 0x686 @0xd
0x0679…068c at000e = ╱50╱P╱ // 0x687 @0xe
0x0679…068c at000f = ╱49╱I╱ // 0x688 @0xf
0x0679…068c at0010 = ╱4c╱L╱ // 0x689 @0x10
0x0679…068c at0011 = ╱31╱1╱ // 0x68a @0x11
0x0679…068c at0012 = EOL // 0x68b @0x12
0x0679…068c }
0x068c…0692 93e9 0630 ELSE
0x068c…0692 LineComalBin {
0x068c…0692 ptr = 0x93e9 // 0x68c @0x0
0x068c…0692 lno = 0x0276 // 0x68e @0x2
0x068c…0692 at0004 = ╱9a╱ ELSE ╱ // 0x690 @0x4
0x068c…0692 at0005 = EOL // 0x691 @0x5
0x068c…0692 }
0x0692…06a5 93fc 0640 PIL3=PIL3-PIL1
0x0692…06a5 LineComalBin {
0x0692…06a5 ptr = 0x93fc // 0x692 @0x0
0x0692…06a5 lno = 0x0280 // 0x694 @0x2
0x0692…06a5 at0004 = ╱50╱P╱ // 0x696 @0x4
0x0692…06a5 at0005 = ╱49╱I╱ // 0x697 @0x5
0x0692…06a5 at0006 = ╱4c╱L╱ // 0x698 @0x6
0x0692…06a5 at0007 = ╱33╱3╱ // 0x699 @0x7
0x0692…06a5 at0008 = ╱dc╱=╱ // 0x69a @0x8
0x0692…06a5 at0009 = ╱50╱P╱ // 0x69b @0x9
0x0692…06a5 at000a = ╱49╱I╱ // 0x69c @0xa
0x0692…06a5 at000b = ╱4c╱L╱ // 0x69d @0xb
0x0692…06a5 at000c = ╱33╱3╱ // 0x69e @0xc
0x0692…06a5 at000d = ╱e3╱-╱ // 0x69f @0xd
0x0692…06a5 at000e = ╱50╱P╱ // 0x6a0 @0xe
0x0692…06a5 at000f = ╱49╱I╱ // 0x6a1 @0xf
0x0692…06a5 at0010 = ╱4c╱L╱ // 0x6a2 @0x10
0x0692…06a5 at0011 = ╱31╱1╱ // 0x6a3 @0x11
0x0692…06a5 at0012 = EOL // 0x6a4 @0x12
0x0692…06a5 }
0x06a5…06ab 9402 0650 ENDIF
0x06a5…06ab LineComalBin {
0x06a5…06ab ptr = 0x9402 // 0x6a5 @0x0
0x06a5…06ab lno = 0x028a // 0x6a7 @0x2
0x06a5…06ab at0004 = ╱9b╱ ENDIF ╱ // 0x6a9 @0x4
0x06a5…06ab at0005 = EOL // 0x6aa @0x5
0x06a5…06ab }
0x06ab…06be 9415 0660 IF PIL3<E THEN PIL3=E
0x06ab…06be LineComalBin {
0x06ab…06be ptr = 0x9415 // 0x6ab @0x0
0x06ab…06be lno = 0x0294 // 0x6ad @0x2
0x06ab…06be at0004 = ╱82╱ IF ╱ // 0x6af @0x4
0x06ab…06be at0005 = ╱50╱P╱ // 0x6b0 @0x5
0x06ab…06be at0006 = ╱49╱I╱ // 0x6b1 @0x6
0x06ab…06be at0007 = ╱4c╱L╱ // 0x6b2 @0x7
0x06ab…06be at0008 = ╱33╱3╱ // 0x6b3 @0x8
0x06ab…06be at0009 = ╱dd╱<╱ // 0x6b4 @0x9
0x06ab…06be at000a = ╱45╱E╱ // 0x6b5 @0xa
0x06ab…06be at000b = ╱b6╱ THEN ╱ // 0x6b6 @0xb
0x06ab…06be at000c = ╱50╱P╱ // 0x6b7 @0xc
0x06ab…06be at000d = ╱49╱I╱ // 0x6b8 @0xd
0x06ab…06be at000e = ╱4c╱L╱ // 0x6b9 @0xe
0x06ab…06be at000f = ╱33╱3╱ // 0x6ba @0xf
0x06ab…06be at0010 = ╱dc╱=╱ // 0x6bb @0x10
0x06ab…06be at0011 = ╱45╱E╱ // 0x6bc @0x11
0x06ab…06be at0012 = EOL // 0x6bd @0x12
0x06ab…06be }
0x06be…06d9 9430 0670 IF PIL3>MANT1 THEN PIL3=MANT1
0x06be…06d9 LineComalBin {
0x06be…06d9 ptr = 0x9430 // 0x6be @0x0
0x06be…06d9 lno = 0x029e // 0x6c0 @0x2
0x06be…06d9 at0004 = ╱82╱ IF ╱ // 0x6c2 @0x4
0x06be…06d9 at0005 = ╱50╱P╱ // 0x6c3 @0x5
0x06be…06d9 at0006 = ╱49╱I╱ // 0x6c4 @0x6
0x06be…06d9 at0007 = ╱4c╱L╱ // 0x6c5 @0x7
0x06be…06d9 at0008 = ╱33╱3╱ // 0x6c6 @0x8
0x06be…06d9 at0009 = ╱de╱>╱ // 0x6c7 @0x9
0x06be…06d9 at000a = ╱4d╱M╱ // 0x6c8 @0xa
0x06be…06d9 at000b = ╱41╱A╱ // 0x6c9 @0xb
0x06be…06d9 at000c = ╱4e╱N╱ // 0x6ca @0xc
0x06be…06d9 at000d = ╱54╱T╱ // 0x6cb @0xd
0x06be…06d9 at000e = ╱31╱1╱ // 0x6cc @0xe
0x06be…06d9 at000f = ╱b6╱ THEN ╱ // 0x6cd @0xf
0x06be…06d9 at0010 = ╱50╱P╱ // 0x6ce @0x10
0x06be…06d9 at0011 = ╱49╱I╱ // 0x6cf @0x11
0x06be…06d9 at0012 = ╱4c╱L╱ // 0x6d0 @0x12
0x06be…06d9 at0013 = ╱33╱3╱ // 0x6d1 @0x13
0x06be…06d9 at0014 = ╱dc╱=╱ // 0x6d2 @0x14
0x06be…06d9 at0015 = ╱4d╱M╱ // 0x6d3 @0x15
0x06be…06d9 at0016 = ╱41╱A╱ // 0x6d4 @0x16
0x06be…06d9 at0017 = ╱4e╱N╱ // 0x6d5 @0x17
0x06be…06d9 at0018 = ╱54╱T╱ // 0x6d6 @0x18
0x06be…06d9 at0019 = ╱31╱1╱ // 0x6d7 @0x19
0x06be…06d9 at001a = EOL // 0x6d8 @0x1a
0x06be…06d9 }
0x06d9…06df 9436 0680 ENDIF
0x06d9…06df LineComalBin {
0x06d9…06df ptr = 0x9436 // 0x6d9 @0x0
0x06d9…06df lno = 0x02a8 // 0x6db @0x2
0x06d9…06df at0004 = ╱9b╱ ENDIF ╱ // 0x6dd @0x4
0x06d9…06df at0005 = EOL // 0x6de @0x5
0x06d9…06df }
0x06df…06f2 9449 0690 UNTIL CEKS=B OR PIL1=B
0x06df…06f2 LineComalBin {
0x06df…06f2 ptr = 0x9449 // 0x6df @0x0
0x06df…06f2 lno = 0x02b2 // 0x6e1 @0x2
0x06df…06f2 at0004 = ╱98╱ UNTIL ╱ // 0x6e3 @0x4
0x06df…06f2 at0005 = ╱43╱C╱ // 0x6e4 @0x5
0x06df…06f2 at0006 = ╱45╱E╱ // 0x6e5 @0x6
0x06df…06f2 at0007 = ╱4b╱K╱ // 0x6e6 @0x7
0x06df…06f2 at0008 = ╱53╱S╱ // 0x6e7 @0x8
0x06df…06f2 at0009 = ╱dc╱=╱ // 0x6e8 @0x9
0x06df…06f2 at000a = ╱42╱B╱ // 0x6e9 @0xa
0x06df…06f2 at000b = ╱db╱ OR ╱ // 0x6ea @0xb
0x06df…06f2 at000c = ╱50╱P╱ // 0x6eb @0xc
0x06df…06f2 at000d = ╱49╱I╱ // 0x6ec @0xd
0x06df…06f2 at000e = ╱4c╱L╱ // 0x6ed @0xe
0x06df…06f2 at000f = ╱31╱1╱ // 0x6ee @0xf
0x06df…06f2 at0010 = ╱dc╱=╱ // 0x6ef @0x10
0x06df…06f2 at0011 = ╱42╱B╱ // 0x6f0 @0x11
0x06df…06f2 at0012 = EOL // 0x6f1 @0x12
0x06df…06f2 }
0x06f2…06f8 944f 0700 ENDPROC
0x06f2…06f8 LineComalBin {
0x06f2…06f8 ptr = 0x944f // 0x6f2 @0x0
0x06f2…06f8 lno = 0x02bc // 0x6f4 @0x2
0x06f2…06f8 at0004 = ╱9f╱ ENDPROC ╱ // 0x6f6 @0x4
0x06f2…06f8 at0005 = EOL // 0x6f7 @0x5
0x06f2…06f8 }
0x06f8…071c 9473 0710 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)
0x06f8…071c LineComalBin {
0x06f8…071c ptr = 0x9473 // 0x6f8 @0x0
0x06f8…071c lno = 0x02c6 // 0x6fa @0x2
0x06f8…071c at0004 = ╱9e╱ PROC ╱ // 0x6fc @0x4
0x06f8…071c at0005 = ╱49╱I╱ // 0x6fd @0x5
0x06f8…071c at0006 = ╱4e╱N╱ // 0x6fe @0x6
0x06f8…071c at0007 = ╱44╱D╱ // 0x6ff @0x7
0x06f8…071c at0008 = ╱53╱S╱ // 0x700 @0x8
0x06f8…071c at0009 = ╱5b╱Æ╱ // 0x701 @0x9
0x06f8…071c at000a = ╱54╱T╱ // 0x702 @0xa
0x06f8…071c at000b = ╱ed╱(╱ // 0x703 @0xb
0x06f8…071c at000c = ╱54╱T╱ // 0x704 @0xc
0x06f8…071c at000d = ╱41╱A╱ // 0x705 @0xd
0x06f8…071c at000e = ╱42╱B╱ // 0x706 @0xe
0x06f8…071c at000f = ╱32╱2╱ // 0x707 @0xf
0x06f8…071c at0010 = ╱ec╱,╱ // 0x708 @0x10
0x06f8…071c at0011 = ╱41╱A╱ // 0x709 @0x11
0x06f8…071c at0012 = ╱4e╱N╱ // 0x70a @0x12
0x06f8…071c at0013 = ╱54╱T╱ // 0x70b @0x13
0x06f8…071c at0014 = ╱41╱A╱ // 0x70c @0x14
0x06f8…071c at0015 = ╱4c╱L╱ // 0x70d @0x15
0x06f8…071c at0016 = ╱32╱2╱ // 0x70e @0x16
0x06f8…071c at0017 = ╱ec╱,╱ // 0x70f @0x17
0x06f8…071c at0018 = ╱4e╱N╱ // 0x710 @0x18
0x06f8…071c at0019 = ╱5c╱Ø╱ // 0x711 @0x19
0x06f8…071c at001a = ╱47╱G╱ // 0x712 @0x1a
0x06f8…071c at001b = ╱4c╱L╱ // 0x713 @0x1b
0x06f8…071c at001c = ╱32╱2╱ // 0x714 @0x1c
0x06f8…071c at001d = ╱ec╱,╱ // 0x715 @0x1d
0x06f8…071c at001e = ╱50╱P╱ // 0x716 @0x1e
0x06f8…071c at001f = ╱49╱I╱ // 0x717 @0x1f
0x06f8…071c at0020 = ╱4c╱L╱ // 0x718 @0x20
0x06f8…071c at0021 = ╱34╱4╱ // 0x719 @0x21
0x06f8…071c at0022 = ╱ee╱)╱ // 0x71a @0x22
0x06f8…071c at0023 = EOL // 0x71b @0x23
0x06f8…071c }
0x071c…0729 9480 0720 IF CEKS=E THEN
0x071c…0729 LineComalBin {
0x071c…0729 ptr = 0x9480 // 0x71c @0x0
0x071c…0729 lno = 0x02d0 // 0x71e @0x2
0x071c…0729 at0004 = ╱9c╱ IF ╱ // 0x720 @0x4
0x071c…0729 at0005 = ╱43╱C╱ // 0x721 @0x5
0x071c…0729 at0006 = ╱45╱E╱ // 0x722 @0x6
0x071c…0729 at0007 = ╱4b╱K╱ // 0x723 @0x7
0x071c…0729 at0008 = ╱53╱S╱ // 0x724 @0x8
0x071c…0729 at0009 = ╱dc╱=╱ // 0x725 @0x9
0x071c…0729 at000a = ╱45╱E╱ // 0x726 @0xa
0x071c…0729 at000b = ╱b6╱ THEN ╱ // 0x727 @0xb
0x071c…0729 at000c = EOL // 0x728 @0xc
0x071c…0729 }
0x0729…0745 949c 0730 POSTNR=TAB2(ANTAL2+E,G)
0x0729…0745 LineComalBin {
0x0729…0745 ptr = 0x949c // 0x729 @0x0
0x0729…0745 lno = 0x02da // 0x72b @0x2
0x0729…0745 at0004 = ╱50╱P╱ // 0x72d @0x4
0x0729…0745 at0005 = ╱4f╱O╱ // 0x72e @0x5
0x0729…0745 at0006 = ╱53╱S╱ // 0x72f @0x6
0x0729…0745 at0007 = ╱54╱T╱ // 0x730 @0x7
0x0729…0745 at0008 = ╱4e╱N╱ // 0x731 @0x8
0x0729…0745 at0009 = ╱52╱R╱ // 0x732 @0x9
0x0729…0745 at000a = ╱dc╱=╱ // 0x733 @0xa
0x0729…0745 at000b = ╱54╱T╱ // 0x734 @0xb
0x0729…0745 at000c = ╱41╱A╱ // 0x735 @0xc
0x0729…0745 at000d = ╱42╱B╱ // 0x736 @0xd
0x0729…0745 at000e = ╱32╱2╱ // 0x737 @0xe
0x0729…0745 at000f = ╱ed╱(╱ // 0x738 @0xf
0x0729…0745 at0010 = ╱41╱A╱ // 0x739 @0x10
0x0729…0745 at0011 = ╱4e╱N╱ // 0x73a @0x11
0x0729…0745 at0012 = ╱54╱T╱ // 0x73b @0x12
0x0729…0745 at0013 = ╱41╱A╱ // 0x73c @0x13
0x0729…0745 at0014 = ╱4c╱L╱ // 0x73d @0x14
0x0729…0745 at0015 = ╱32╱2╱ // 0x73e @0x15
0x0729…0745 at0016 = ╱e2╱+╱ // 0x73f @0x16
0x0729…0745 at0017 = ╱45╱E╱ // 0x740 @0x17
0x0729…0745 at0018 = ╱ec╱,╱ // 0x741 @0x18
0x0729…0745 at0019 = ╱47╱G╱ // 0x742 @0x19
0x0729…0745 at001a = ╱ee╱)╱ // 0x743 @0x1a
0x0729…0745 at001b = EOL // 0x744 @0x1b
0x0729…0745 }
0x0745…0783 94da 0740 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E
0x0745…0783 LineComalBin {
0x0745…0783 ptr = 0x94da // 0x745 @0x0
0x0745…0783 lno = 0x02e4 // 0x747 @0x2
0x0745…0783 at0004 = ╱82╱ IF ╱ // 0x749 @0x4
0x0745…0783 at0005 = ╱4e╱N╱ // 0x74a @0x5
0x0745…0783 at0006 = ╱5c╱Ø╱ // 0x74b @0x6
0x0745…0783 at0007 = ╱47╱G╱ // 0x74c @0x7
0x0745…0783 at0008 = ╱4c╱L╱ // 0x74d @0x8
0x0745…0783 at0009 = ╱32╱2╱ // 0x74e @0x9
0x0745…0783 at000a = ╱de╱>╱ // 0x74f @0xa
0x0745…0783 at000b = ╱54╱T╱ // 0x750 @0xb
0x0745…0783 at000c = ╱41╱A╱ // 0x751 @0xc
0x0745…0783 at000d = ╱42╱B╱ // 0x752 @0xd
0x0745…0783 at000e = ╱32╱2╱ // 0x753 @0xe
0x0745…0783 at000f = ╱ed╱(╱ // 0x754 @0xf
0x0745…0783 at0010 = ╱50╱P╱ // 0x755 @0x10
0x0745…0783 at0011 = ╱49╱I╱ // 0x756 @0x11
0x0745…0783 at0012 = ╱4c╱L╱ // 0x757 @0x12
0x0745…0783 at0013 = ╱34╱4╱ // 0x758 @0x13
0x0745…0783 at0014 = ╱ec╱,╱ // 0x759 @0x14
0x0745…0783 at0015 = ╱45╱E╱ // 0x75a @0x15
0x0745…0783 at0016 = ╱ee╱)╱ // 0x75b @0x16
0x0745…0783 at0017 = ╱da╱ AND ╱ // 0x75c @0x17
0x0745…0783 at0018 = ╱54╱T╱ // 0x75d @0x18
0x0745…0783 at0019 = ╱41╱A╱ // 0x75e @0x19
0x0745…0783 at001a = ╱42╱B╱ // 0x75f @0x1a
0x0745…0783 at001b = ╱32╱2╱ // 0x760 @0x1b
0x0745…0783 at001c = ╱ed╱(╱ // 0x761 @0x1c
0x0745…0783 at001d = ╱50╱P╱ // 0x762 @0x1d
0x0745…0783 at001e = ╱49╱I╱ // 0x763 @0x1e
0x0745…0783 at001f = ╱4c╱L╱ // 0x764 @0x1f
0x0745…0783 at0020 = ╱34╱4╱ // 0x765 @0x20
0x0745…0783 at0021 = ╱ec╱,╱ // 0x766 @0x21
0x0745…0783 at0022 = ╱45╱E╱ // 0x767 @0x22
0x0745…0783 at0023 = ╱ee╱)╱ // 0x768 @0x23
0x0745…0783 at0024 = ╱e1╱<>╱ // 0x769 @0x24
0x0745…0783 at0025 = ╱31╱1╱ // 0x76a @0x25
0x0745…0783 at0026 = ╱30╱0╱ // 0x76b @0x26
0x0745…0783 at0027 = ╱30╱0╱ // 0x76c @0x27
0x0745…0783 at0028 = ╱30╱0╱ // 0x76d @0x28
0x0745…0783 at0029 = ╱30╱0╱ // 0x76e @0x29
0x0745…0783 at002a = ╱30╱0╱ // 0x76f @0x2a
0x0745…0783 at002b = ╱30╱0╱ // 0x770 @0x2b
0x0745…0783 at002c = ╱fe0024f414╱ // 0x771 @0x2c
0x0745…0783 at0031 = ╱b6╱ THEN ╱ // 0x776 @0x31
0x0745…0783 at0032 = ╱50╱P╱ // 0x777 @0x32
0x0745…0783 at0033 = ╱49╱I╱ // 0x778 @0x33
0x0745…0783 at0034 = ╱4c╱L╱ // 0x779 @0x34
0x0745…0783 at0035 = ╱34╱4╱ // 0x77a @0x35
0x0745…0783 at0036 = ╱dc╱=╱ // 0x77b @0x36
0x0745…0783 at0037 = ╱50╱P╱ // 0x77c @0x37
0x0745…0783 at0038 = ╱49╱I╱ // 0x77d @0x38
0x0745…0783 at0039 = ╱4c╱L╱ // 0x77e @0x39
0x0745…0783 at003a = ╱34╱4╱ // 0x77f @0x3a
0x0745…0783 at003b = ╱e2╱+╱ // 0x780 @0x3b
0x0745…0783 at003c = ╱45╱E╱ // 0x781 @0x3c
0x0745…0783 at003d = EOL // 0x782 @0x3d
0x0745…0783 }
0x0783…079d 94f4 0750 FOR I=ANTAL2+E TO PIL4+E STEP -E
0x0783…079d LineComalBin {
0x0783…079d ptr = 0x94f4 // 0x783 @0x0
0x0783…079d lno = 0x02ee // 0x785 @0x2
0x0783…079d at0004 = ╱83╱ FOR ╱ // 0x787 @0x4
0x0783…079d at0005 = ╱49╱I╱ // 0x788 @0x5
0x0783…079d at0006 = ╱dc╱=╱ // 0x789 @0x6
0x0783…079d at0007 = ╱41╱A╱ // 0x78a @0x7
0x0783…079d at0008 = ╱4e╱N╱ // 0x78b @0x8
0x0783…079d at0009 = ╱54╱T╱ // 0x78c @0x9
0x0783…079d at000a = ╱41╱A╱ // 0x78d @0xa
0x0783…079d at000b = ╱4c╱L╱ // 0x78e @0xb
0x0783…079d at000c = ╱32╱2╱ // 0x78f @0xc
0x0783…079d at000d = ╱e2╱+╱ // 0x790 @0xd
0x0783…079d at000e = ╱45╱E╱ // 0x791 @0xe
0x0783…079d at000f = ╱b7╱ TO ╱ // 0x792 @0xf
0x0783…079d at0010 = ╱50╱P╱ // 0x793 @0x10
0x0783…079d at0011 = ╱49╱I╱ // 0x794 @0x11
0x0783…079d at0012 = ╱4c╱L╱ // 0x795 @0x12
0x0783…079d at0013 = ╱34╱4╱ // 0x796 @0x13
0x0783…079d at0014 = ╱e2╱+╱ // 0x797 @0x14
0x0783…079d at0015 = ╱45╱E╱ // 0x798 @0x15
0x0783…079d at0016 = ╱b8╱ STEP ╱ // 0x799 @0x16
0x0783…079d at0017 = ╱e9╱-╱ // 0x79a @0x17
0x0783…079d at0018 = ╱45╱E╱ // 0x79b @0x18
0x0783…079d at0019 = EOL // 0x79c @0x19
0x0783…079d }
0x079d…07b7 950e 0760 TAB2(I,E)=TAB2(I-E,E)
0x079d…07b7 LineComalBin {
0x079d…07b7 ptr = 0x950e // 0x79d @0x0
0x079d…07b7 lno = 0x02f8 // 0x79f @0x2
0x079d…07b7 at0004 = ╱54╱T╱ // 0x7a1 @0x4
0x079d…07b7 at0005 = ╱41╱A╱ // 0x7a2 @0x5
0x079d…07b7 at0006 = ╱42╱B╱ // 0x7a3 @0x6
0x079d…07b7 at0007 = ╱32╱2╱ // 0x7a4 @0x7
0x079d…07b7 at0008 = ╱ed╱(╱ // 0x7a5 @0x8
0x079d…07b7 at0009 = ╱49╱I╱ // 0x7a6 @0x9
0x079d…07b7 at000a = ╱ec╱,╱ // 0x7a7 @0xa
0x079d…07b7 at000b = ╱45╱E╱ // 0x7a8 @0xb
0x079d…07b7 at000c = ╱ee╱)╱ // 0x7a9 @0xc
0x079d…07b7 at000d = ╱dc╱=╱ // 0x7aa @0xd
0x079d…07b7 at000e = ╱54╱T╱ // 0x7ab @0xe
0x079d…07b7 at000f = ╱41╱A╱ // 0x7ac @0xf
0x079d…07b7 at0010 = ╱42╱B╱ // 0x7ad @0x10
0x079d…07b7 at0011 = ╱32╱2╱ // 0x7ae @0x11
0x079d…07b7 at0012 = ╱ed╱(╱ // 0x7af @0x12
0x079d…07b7 at0013 = ╱49╱I╱ // 0x7b0 @0x13
0x079d…07b7 at0014 = ╱e3╱-╱ // 0x7b1 @0x14
0x079d…07b7 at0015 = ╱45╱E╱ // 0x7b2 @0x15
0x079d…07b7 at0016 = ╱ec╱,╱ // 0x7b3 @0x16
0x079d…07b7 at0017 = ╱45╱E╱ // 0x7b4 @0x17
0x079d…07b7 at0018 = ╱ee╱)╱ // 0x7b5 @0x18
0x079d…07b7 at0019 = EOL // 0x7b6 @0x19
0x079d…07b7 }
0x07b7…07d1 9528 0770 TAB2(I,G)=TAB2(I-E,G)
0x07b7…07d1 LineComalBin {
0x07b7…07d1 ptr = 0x9528 // 0x7b7 @0x0
0x07b7…07d1 lno = 0x0302 // 0x7b9 @0x2
0x07b7…07d1 at0004 = ╱54╱T╱ // 0x7bb @0x4
0x07b7…07d1 at0005 = ╱41╱A╱ // 0x7bc @0x5
0x07b7…07d1 at0006 = ╱42╱B╱ // 0x7bd @0x6
0x07b7…07d1 at0007 = ╱32╱2╱ // 0x7be @0x7
0x07b7…07d1 at0008 = ╱ed╱(╱ // 0x7bf @0x8
0x07b7…07d1 at0009 = ╱49╱I╱ // 0x7c0 @0x9
0x07b7…07d1 at000a = ╱ec╱,╱ // 0x7c1 @0xa
0x07b7…07d1 at000b = ╱47╱G╱ // 0x7c2 @0xb
0x07b7…07d1 at000c = ╱ee╱)╱ // 0x7c3 @0xc
0x07b7…07d1 at000d = ╱dc╱=╱ // 0x7c4 @0xd
0x07b7…07d1 at000e = ╱54╱T╱ // 0x7c5 @0xe
0x07b7…07d1 at000f = ╱41╱A╱ // 0x7c6 @0xf
0x07b7…07d1 at0010 = ╱42╱B╱ // 0x7c7 @0x10
0x07b7…07d1 at0011 = ╱32╱2╱ // 0x7c8 @0x11
0x07b7…07d1 at0012 = ╱ed╱(╱ // 0x7c9 @0x12
0x07b7…07d1 at0013 = ╱49╱I╱ // 0x7ca @0x13
0x07b7…07d1 at0014 = ╱e3╱-╱ // 0x7cb @0x14
0x07b7…07d1 at0015 = ╱45╱E╱ // 0x7cc @0x15
0x07b7…07d1 at0016 = ╱ec╱,╱ // 0x7cd @0x16
0x07b7…07d1 at0017 = ╱47╱G╱ // 0x7ce @0x17
0x07b7…07d1 at0018 = ╱ee╱)╱ // 0x7cf @0x18
0x07b7…07d1 at0019 = EOL // 0x7d0 @0x19
0x07b7…07d1 }
0x07d1…07d8 952f 0780 NEXT I
0x07d1…07d8 LineComalBin {
0x07d1…07d8 ptr = 0x952f // 0x7d1 @0x0
0x07d1…07d8 lno = 0x030c // 0x7d3 @0x2
0x07d1…07d8 at0004 = ╱84╱ NEXT ╱ // 0x7d5 @0x4
0x07d1…07d8 at0005 = ╱49╱I╱ // 0x7d6 @0x5
0x07d1…07d8 at0006 = EOL // 0x7d7 @0x6
0x07d1…07d8 }
0x07d8…07ef 9546 0790 TAB2(PIL4,E)=NØGL2
0x07d8…07ef LineComalBin {
0x07d8…07ef ptr = 0x9546 // 0x7d8 @0x0
0x07d8…07ef lno = 0x0316 // 0x7da @0x2
0x07d8…07ef at0004 = ╱54╱T╱ // 0x7dc @0x4
0x07d8…07ef at0005 = ╱41╱A╱ // 0x7dd @0x5
0x07d8…07ef at0006 = ╱42╱B╱ // 0x7de @0x6
0x07d8…07ef at0007 = ╱32╱2╱ // 0x7df @0x7
0x07d8…07ef at0008 = ╱ed╱(╱ // 0x7e0 @0x8
0x07d8…07ef at0009 = ╱50╱P╱ // 0x7e1 @0x9
0x07d8…07ef at000a = ╱49╱I╱ // 0x7e2 @0xa
0x07d8…07ef at000b = ╱4c╱L╱ // 0x7e3 @0xb
0x07d8…07ef at000c = ╱34╱4╱ // 0x7e4 @0xc
0x07d8…07ef at000d = ╱ec╱,╱ // 0x7e5 @0xd
0x07d8…07ef at000e = ╱45╱E╱ // 0x7e6 @0xe
0x07d8…07ef at000f = ╱ee╱)╱ // 0x7e7 @0xf
0x07d8…07ef at0010 = ╱dc╱=╱ // 0x7e8 @0x10
0x07d8…07ef at0011 = ╱4e╱N╱ // 0x7e9 @0x11
0x07d8…07ef at0012 = ╱5c╱Ø╱ // 0x7ea @0x12
0x07d8…07ef at0013 = ╱47╱G╱ // 0x7eb @0x13
0x07d8…07ef at0014 = ╱4c╱L╱ // 0x7ec @0x14
0x07d8…07ef at0015 = ╱32╱2╱ // 0x7ed @0x15
0x07d8…07ef at0016 = EOL // 0x7ee @0x16
0x07d8…07ef }
0x07ef…0807 955e 0800 TAB2(PIL4,G)=POSTNR
0x07ef…0807 LineComalBin {
0x07ef…0807 ptr = 0x955e // 0x7ef @0x0
0x07ef…0807 lno = 0x0320 // 0x7f1 @0x2
0x07ef…0807 at0004 = ╱54╱T╱ // 0x7f3 @0x4
0x07ef…0807 at0005 = ╱41╱A╱ // 0x7f4 @0x5
0x07ef…0807 at0006 = ╱42╱B╱ // 0x7f5 @0x6
0x07ef…0807 at0007 = ╱32╱2╱ // 0x7f6 @0x7
0x07ef…0807 at0008 = ╱ed╱(╱ // 0x7f7 @0x8
0x07ef…0807 at0009 = ╱50╱P╱ // 0x7f8 @0x9
0x07ef…0807 at000a = ╱49╱I╱ // 0x7f9 @0xa
0x07ef…0807 at000b = ╱4c╱L╱ // 0x7fa @0xb
0x07ef…0807 at000c = ╱34╱4╱ // 0x7fb @0xc
0x07ef…0807 at000d = ╱ec╱,╱ // 0x7fc @0xd
0x07ef…0807 at000e = ╱47╱G╱ // 0x7fd @0xe
0x07ef…0807 at000f = ╱ee╱)╱ // 0x7fe @0xf
0x07ef…0807 at0010 = ╱dc╱=╱ // 0x7ff @0x10
0x07ef…0807 at0011 = ╱50╱P╱ // 0x800 @0x11
0x07ef…0807 at0012 = ╱4f╱O╱ // 0x801 @0x12
0x07ef…0807 at0013 = ╱53╱S╱ // 0x802 @0x13
0x07ef…0807 at0014 = ╱54╱T╱ // 0x803 @0x14
0x07ef…0807 at0015 = ╱4e╱N╱ // 0x804 @0x15
0x07ef…0807 at0016 = ╱52╱R╱ // 0x805 @0x16
0x07ef…0807 at0017 = EOL // 0x806 @0x17
0x07ef…0807 }
0x0807…081b 9572 0810 ANTAL2=ANTAL2+E
0x0807…081b LineComalBin {
0x0807…081b ptr = 0x9572 // 0x807 @0x0
0x0807…081b lno = 0x032a // 0x809 @0x2
0x0807…081b at0004 = ╱41╱A╱ // 0x80b @0x4
0x0807…081b at0005 = ╱4e╱N╱ // 0x80c @0x5
0x0807…081b at0006 = ╱54╱T╱ // 0x80d @0x6
0x0807…081b at0007 = ╱41╱A╱ // 0x80e @0x7
0x0807…081b at0008 = ╱4c╱L╱ // 0x80f @0x8
0x0807…081b at0009 = ╱32╱2╱ // 0x810 @0x9
0x0807…081b at000a = ╱dc╱=╱ // 0x811 @0xa
0x0807…081b at000b = ╱41╱A╱ // 0x812 @0xb
0x0807…081b at000c = ╱4e╱N╱ // 0x813 @0xc
0x0807…081b at000d = ╱54╱T╱ // 0x814 @0xd
0x0807…081b at000e = ╱41╱A╱ // 0x815 @0xe
0x0807…081b at000f = ╱4c╱L╱ // 0x816 @0xf
0x0807…081b at0010 = ╱32╱2╱ // 0x817 @0x10
0x0807…081b at0011 = ╱e2╱+╱ // 0x818 @0x11
0x0807…081b at0012 = ╱45╱E╱ // 0x819 @0x12
0x0807…081b at0013 = EOL // 0x81a @0x13
0x0807…081b }
0x081b…0821 9578 0820 ENDIF
0x081b…0821 LineComalBin {
0x081b…0821 ptr = 0x9578 // 0x81b @0x0
0x081b…0821 lno = 0x0334 // 0x81d @0x2
0x081b…0821 at0004 = ╱9b╱ ENDIF ╱ // 0x81f @0x4
0x081b…0821 at0005 = EOL // 0x820 @0x5
0x081b…0821 }
0x0821…0827 957e 0830 ENDPROC
0x0821…0827 LineComalBin {
0x0821…0827 ptr = 0x957e // 0x821 @0x0
0x0821…0827 lno = 0x033e // 0x823 @0x2
0x0821…0827 at0004 = ╱9f╱ ENDPROC ╱ // 0x825 @0x4
0x0821…0827 at0005 = EOL // 0x826 @0x5
0x0821…0827 }
0x0827…084d 95a4 0840 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)
0x0827…084d LineComalBin {
0x0827…084d ptr = 0x95a4 // 0x827 @0x0
0x0827…084d lno = 0x0348 // 0x829 @0x2
0x0827…084d at0004 = ╱9e╱ PROC ╱ // 0x82b @0x4
0x0827…084d at0005 = ╱53╱S╱ // 0x82c @0x5
0x0827…084d at0006 = ╱4c╱L╱ // 0x82d @0x6
0x0827…084d at0007 = ╱45╱E╱ // 0x82e @0x7
0x0827…084d at0008 = ╱54╱T╱ // 0x82f @0x8
0x0827…084d at0009 = ╱50╱P╱ // 0x830 @0x9
0x0827…084d at000a = ╱4f╱O╱ // 0x831 @0xa
0x0827…084d at000b = ╱53╱S╱ // 0x832 @0xb
0x0827…084d at000c = ╱54╱T╱ // 0x833 @0xc
0x0827…084d at000d = ╱ed╱(╱ // 0x834 @0xd
0x0827…084d at000e = ╱54╱T╱ // 0x835 @0xe
0x0827…084d at000f = ╱41╱A╱ // 0x836 @0xf
0x0827…084d at0010 = ╱42╱B╱ // 0x837 @0x10
0x0827…084d at0011 = ╱33╱3╱ // 0x838 @0x11
0x0827…084d at0012 = ╱ec╱,╱ // 0x839 @0x12
0x0827…084d at0013 = ╱41╱A╱ // 0x83a @0x13
0x0827…084d at0014 = ╱4e╱N╱ // 0x83b @0x14
0x0827…084d at0015 = ╱54╱T╱ // 0x83c @0x15
0x0827…084d at0016 = ╱41╱A╱ // 0x83d @0x16
0x0827…084d at0017 = ╱4c╱L╱ // 0x83e @0x17
0x0827…084d at0018 = ╱33╱3╱ // 0x83f @0x18
0x0827…084d at0019 = ╱ec╱,╱ // 0x840 @0x19
0x0827…084d at001a = ╱4e╱N╱ // 0x841 @0x1a
0x0827…084d at001b = ╱5c╱Ø╱ // 0x842 @0x1b
0x0827…084d at001c = ╱47╱G╱ // 0x843 @0x1c
0x0827…084d at001d = ╱4c╱L╱ // 0x844 @0x1d
0x0827…084d at001e = ╱33╱3╱ // 0x845 @0x1e
0x0827…084d at001f = ╱ec╱,╱ // 0x846 @0x1f
0x0827…084d at0020 = ╱50╱P╱ // 0x847 @0x20
0x0827…084d at0021 = ╱49╱I╱ // 0x848 @0x21
0x0827…084d at0022 = ╱4c╱L╱ // 0x849 @0x22
0x0827…084d at0023 = ╱35╱5╱ // 0x84a @0x23
0x0827…084d at0024 = ╱ee╱)╱ // 0x84b @0x24
0x0827…084d at0025 = EOL // 0x84c @0x25
0x0827…084d }
0x084d…085a 95b1 0850 IF CEKS=B THEN
0x084d…085a LineComalBin {
0x084d…085a ptr = 0x95b1 // 0x84d @0x0
0x084d…085a lno = 0x0352 // 0x84f @0x2
0x084d…085a at0004 = ╱9c╱ IF ╱ // 0x851 @0x4
0x084d…085a at0005 = ╱43╱C╱ // 0x852 @0x5
0x084d…085a at0006 = ╱45╱E╱ // 0x853 @0x6
0x084d…085a at0007 = ╱4b╱K╱ // 0x854 @0x7
0x084d…085a at0008 = ╱53╱S╱ // 0x855 @0x8
0x084d…085a at0009 = ╱dc╱=╱ // 0x856 @0x9
0x084d…085a at000a = ╱42╱B╱ // 0x857 @0xa
0x084d…085a at000b = ╱b6╱ THEN ╱ // 0x858 @0xb
0x084d…085a at000c = EOL // 0x859 @0xc
0x084d…085a }
0x085a…0872 95c9 0860 POSTNR=TAB3(PIL5,G)
0x085a…0872 LineComalBin {
0x085a…0872 ptr = 0x95c9 // 0x85a @0x0
0x085a…0872 lno = 0x035c // 0x85c @0x2
0x085a…0872 at0004 = ╱50╱P╱ // 0x85e @0x4
0x085a…0872 at0005 = ╱4f╱O╱ // 0x85f @0x5
0x085a…0872 at0006 = ╱53╱S╱ // 0x860 @0x6
0x085a…0872 at0007 = ╱54╱T╱ // 0x861 @0x7
0x085a…0872 at0008 = ╱4e╱N╱ // 0x862 @0x8
0x085a…0872 at0009 = ╱52╱R╱ // 0x863 @0x9
0x085a…0872 at000a = ╱dc╱=╱ // 0x864 @0xa
0x085a…0872 at000b = ╱54╱T╱ // 0x865 @0xb
0x085a…0872 at000c = ╱41╱A╱ // 0x866 @0xc
0x085a…0872 at000d = ╱42╱B╱ // 0x867 @0xd
0x085a…0872 at000e = ╱33╱3╱ // 0x868 @0xe
0x085a…0872 at000f = ╱ed╱(╱ // 0x869 @0xf
0x085a…0872 at0010 = ╱50╱P╱ // 0x86a @0x10
0x085a…0872 at0011 = ╱49╱I╱ // 0x86b @0x11
0x085a…0872 at0012 = ╱4c╱L╱ // 0x86c @0x12
0x085a…0872 at0013 = ╱35╱5╱ // 0x86d @0x13
0x085a…0872 at0014 = ╱ec╱,╱ // 0x86e @0x14
0x085a…0872 at0015 = ╱47╱G╱ // 0x86f @0x15
0x085a…0872 at0016 = ╱ee╱)╱ // 0x870 @0x16
0x085a…0872 at0017 = EOL // 0x871 @0x17
0x085a…0872 }
0x0872…0887 95de 0870 FOR I=PIL5 TO ANTAL3-E
0x0872…0887 LineComalBin {
0x0872…0887 ptr = 0x95de // 0x872 @0x0
0x0872…0887 lno = 0x0366 // 0x874 @0x2
0x0872…0887 at0004 = ╱83╱ FOR ╱ // 0x876 @0x4
0x0872…0887 at0005 = ╱49╱I╱ // 0x877 @0x5
0x0872…0887 at0006 = ╱dc╱=╱ // 0x878 @0x6
0x0872…0887 at0007 = ╱50╱P╱ // 0x879 @0x7
0x0872…0887 at0008 = ╱49╱I╱ // 0x87a @0x8
0x0872…0887 at0009 = ╱4c╱L╱ // 0x87b @0x9
0x0872…0887 at000a = ╱35╱5╱ // 0x87c @0xa
0x0872…0887 at000b = ╱b7╱ TO ╱ // 0x87d @0xb
0x0872…0887 at000c = ╱41╱A╱ // 0x87e @0xc
0x0872…0887 at000d = ╱4e╱N╱ // 0x87f @0xd
0x0872…0887 at000e = ╱54╱T╱ // 0x880 @0xe
0x0872…0887 at000f = ╱41╱A╱ // 0x881 @0xf
0x0872…0887 at0010 = ╱4c╱L╱ // 0x882 @0x10
0x0872…0887 at0011 = ╱33╱3╱ // 0x883 @0x11
0x0872…0887 at0012 = ╱e3╱-╱ // 0x884 @0x12
0x0872…0887 at0013 = ╱45╱E╱ // 0x885 @0x13
0x0872…0887 at0014 = EOL // 0x886 @0x14
0x0872…0887 }
0x0887…08a1 95f8 0880 TAB3(I,E)=TAB3(I+E,E)
0x0887…08a1 LineComalBin {
0x0887…08a1 ptr = 0x95f8 // 0x887 @0x0
0x0887…08a1 lno = 0x0370 // 0x889 @0x2
0x0887…08a1 at0004 = ╱54╱T╱ // 0x88b @0x4
0x0887…08a1 at0005 = ╱41╱A╱ // 0x88c @0x5
0x0887…08a1 at0006 = ╱42╱B╱ // 0x88d @0x6
0x0887…08a1 at0007 = ╱33╱3╱ // 0x88e @0x7
0x0887…08a1 at0008 = ╱ed╱(╱ // 0x88f @0x8
0x0887…08a1 at0009 = ╱49╱I╱ // 0x890 @0x9
0x0887…08a1 at000a = ╱ec╱,╱ // 0x891 @0xa
0x0887…08a1 at000b = ╱45╱E╱ // 0x892 @0xb
0x0887…08a1 at000c = ╱ee╱)╱ // 0x893 @0xc
0x0887…08a1 at000d = ╱dc╱=╱ // 0x894 @0xd
0x0887…08a1 at000e = ╱54╱T╱ // 0x895 @0xe
0x0887…08a1 at000f = ╱41╱A╱ // 0x896 @0xf
0x0887…08a1 at0010 = ╱42╱B╱ // 0x897 @0x10
0x0887…08a1 at0011 = ╱33╱3╱ // 0x898 @0x11
0x0887…08a1 at0012 = ╱ed╱(╱ // 0x899 @0x12
0x0887…08a1 at0013 = ╱49╱I╱ // 0x89a @0x13
0x0887…08a1 at0014 = ╱e2╱+╱ // 0x89b @0x14
0x0887…08a1 at0015 = ╱45╱E╱ // 0x89c @0x15
0x0887…08a1 at0016 = ╱ec╱,╱ // 0x89d @0x16
0x0887…08a1 at0017 = ╱45╱E╱ // 0x89e @0x17
0x0887…08a1 at0018 = ╱ee╱)╱ // 0x89f @0x18
0x0887…08a1 at0019 = EOL // 0x8a0 @0x19
0x0887…08a1 }
0x08a1…08bb 9612 0890 TAB3(I,G)=TAB3(I+E,G)
0x08a1…08bb LineComalBin {
0x08a1…08bb ptr = 0x9612 // 0x8a1 @0x0
0x08a1…08bb lno = 0x037a // 0x8a3 @0x2
0x08a1…08bb at0004 = ╱54╱T╱ // 0x8a5 @0x4
0x08a1…08bb at0005 = ╱41╱A╱ // 0x8a6 @0x5
0x08a1…08bb at0006 = ╱42╱B╱ // 0x8a7 @0x6
0x08a1…08bb at0007 = ╱33╱3╱ // 0x8a8 @0x7
0x08a1…08bb at0008 = ╱ed╱(╱ // 0x8a9 @0x8
0x08a1…08bb at0009 = ╱49╱I╱ // 0x8aa @0x9
0x08a1…08bb at000a = ╱ec╱,╱ // 0x8ab @0xa
0x08a1…08bb at000b = ╱47╱G╱ // 0x8ac @0xb
0x08a1…08bb at000c = ╱ee╱)╱ // 0x8ad @0xc
0x08a1…08bb at000d = ╱dc╱=╱ // 0x8ae @0xd
0x08a1…08bb at000e = ╱54╱T╱ // 0x8af @0xe
0x08a1…08bb at000f = ╱41╱A╱ // 0x8b0 @0xf
0x08a1…08bb at0010 = ╱42╱B╱ // 0x8b1 @0x10
0x08a1…08bb at0011 = ╱33╱3╱ // 0x8b2 @0x11
0x08a1…08bb at0012 = ╱ed╱(╱ // 0x8b3 @0x12
0x08a1…08bb at0013 = ╱49╱I╱ // 0x8b4 @0x13
0x08a1…08bb at0014 = ╱e2╱+╱ // 0x8b5 @0x14
0x08a1…08bb at0015 = ╱45╱E╱ // 0x8b6 @0x15
0x08a1…08bb at0016 = ╱ec╱,╱ // 0x8b7 @0x16
0x08a1…08bb at0017 = ╱47╱G╱ // 0x8b8 @0x17
0x08a1…08bb at0018 = ╱ee╱)╱ // 0x8b9 @0x18
0x08a1…08bb at0019 = EOL // 0x8ba @0x19
0x08a1…08bb }
0x08bb…08c2 9619 0900 NEXT I
0x08bb…08c2 LineComalBin {
0x08bb…08c2 ptr = 0x9619 // 0x8bb @0x0
0x08bb…08c2 lno = 0x0384 // 0x8bd @0x2
0x08bb…08c2 at0004 = ╱84╱ NEXT ╱ // 0x8bf @0x4
0x08bb…08c2 at0005 = ╱49╱I╱ // 0x8c0 @0x5
0x08bb…08c2 at0006 = EOL // 0x8c1 @0x6
0x08bb…08c2 }
0x08c2…08e2 9639 0910 TAB3(ANTAL3,E)=1000000
0x08c2…08e2 LineComalBin {
0x08c2…08e2 ptr = 0x9639 // 0x8c2 @0x0
0x08c2…08e2 lno = 0x038e // 0x8c4 @0x2
0x08c2…08e2 at0004 = ╱54╱T╱ // 0x8c6 @0x4
0x08c2…08e2 at0005 = ╱41╱A╱ // 0x8c7 @0x5
0x08c2…08e2 at0006 = ╱42╱B╱ // 0x8c8 @0x6
0x08c2…08e2 at0007 = ╱33╱3╱ // 0x8c9 @0x7
0x08c2…08e2 at0008 = ╱ed╱(╱ // 0x8ca @0x8
0x08c2…08e2 at0009 = ╱41╱A╱ // 0x8cb @0x9
0x08c2…08e2 at000a = ╱4e╱N╱ // 0x8cc @0xa
0x08c2…08e2 at000b = ╱54╱T╱ // 0x8cd @0xb
0x08c2…08e2 at000c = ╱41╱A╱ // 0x8ce @0xc
0x08c2…08e2 at000d = ╱4c╱L╱ // 0x8cf @0xd
0x08c2…08e2 at000e = ╱33╱3╱ // 0x8d0 @0xe
0x08c2…08e2 at000f = ╱ec╱,╱ // 0x8d1 @0xf
0x08c2…08e2 at0010 = ╱45╱E╱ // 0x8d2 @0x10
0x08c2…08e2 at0011 = ╱ee╱)╱ // 0x8d3 @0x11
0x08c2…08e2 at0012 = ╱dc╱=╱ // 0x8d4 @0x12
0x08c2…08e2 at0013 = ╱31╱1╱ // 0x8d5 @0x13
0x08c2…08e2 at0014 = ╱30╱0╱ // 0x8d6 @0x14
0x08c2…08e2 at0015 = ╱30╱0╱ // 0x8d7 @0x15
0x08c2…08e2 at0016 = ╱30╱0╱ // 0x8d8 @0x16
0x08c2…08e2 at0017 = ╱30╱0╱ // 0x8d9 @0x17
0x08c2…08e2 at0018 = ╱30╱0╱ // 0x8da @0x18
0x08c2…08e2 at0019 = ╱30╱0╱ // 0x8db @0x19
0x08c2…08e2 at001a = ╱fe0024f414╱ // 0x8dc @0x1a
0x08c2…08e2 at001f = EOL // 0x8e1 @0x1f
0x08c2…08e2 }
0x08e2…08fc 9653 0920 TAB3(ANTAL3,G)=POSTNR
0x08e2…08fc LineComalBin {
0x08e2…08fc ptr = 0x9653 // 0x8e2 @0x0
0x08e2…08fc lno = 0x0398 // 0x8e4 @0x2
0x08e2…08fc at0004 = ╱54╱T╱ // 0x8e6 @0x4
0x08e2…08fc at0005 = ╱41╱A╱ // 0x8e7 @0x5
0x08e2…08fc at0006 = ╱42╱B╱ // 0x8e8 @0x6
0x08e2…08fc at0007 = ╱33╱3╱ // 0x8e9 @0x7
0x08e2…08fc at0008 = ╱ed╱(╱ // 0x8ea @0x8
0x08e2…08fc at0009 = ╱41╱A╱ // 0x8eb @0x9
0x08e2…08fc at000a = ╱4e╱N╱ // 0x8ec @0xa
0x08e2…08fc at000b = ╱54╱T╱ // 0x8ed @0xb
0x08e2…08fc at000c = ╱41╱A╱ // 0x8ee @0xc
0x08e2…08fc at000d = ╱4c╱L╱ // 0x8ef @0xd
0x08e2…08fc at000e = ╱33╱3╱ // 0x8f0 @0xe
0x08e2…08fc at000f = ╱ec╱,╱ // 0x8f1 @0xf
0x08e2…08fc at0010 = ╱47╱G╱ // 0x8f2 @0x10
0x08e2…08fc at0011 = ╱ee╱)╱ // 0x8f3 @0x11
0x08e2…08fc at0012 = ╱dc╱=╱ // 0x8f4 @0x12
0x08e2…08fc at0013 = ╱50╱P╱ // 0x8f5 @0x13
0x08e2…08fc at0014 = ╱4f╱O╱ // 0x8f6 @0x14
0x08e2…08fc at0015 = ╱53╱S╱ // 0x8f7 @0x15
0x08e2…08fc at0016 = ╱54╱T╱ // 0x8f8 @0x16
0x08e2…08fc at0017 = ╱4e╱N╱ // 0x8f9 @0x17
0x08e2…08fc at0018 = ╱52╱R╱ // 0x8fa @0x18
0x08e2…08fc at0019 = EOL // 0x8fb @0x19
0x08e2…08fc }
0x08fc…0910 9667 0930 ANTAL3=ANTAL3-E
0x08fc…0910 LineComalBin {
0x08fc…0910 ptr = 0x9667 // 0x8fc @0x0
0x08fc…0910 lno = 0x03a2 // 0x8fe @0x2
0x08fc…0910 at0004 = ╱41╱A╱ // 0x900 @0x4
0x08fc…0910 at0005 = ╱4e╱N╱ // 0x901 @0x5
0x08fc…0910 at0006 = ╱54╱T╱ // 0x902 @0x6
0x08fc…0910 at0007 = ╱41╱A╱ // 0x903 @0x7
0x08fc…0910 at0008 = ╱4c╱L╱ // 0x904 @0x8
0x08fc…0910 at0009 = ╱33╱3╱ // 0x905 @0x9
0x08fc…0910 at000a = ╱dc╱=╱ // 0x906 @0xa
0x08fc…0910 at000b = ╱41╱A╱ // 0x907 @0xb
0x08fc…0910 at000c = ╱4e╱N╱ // 0x908 @0xc
0x08fc…0910 at000d = ╱54╱T╱ // 0x909 @0xd
0x08fc…0910 at000e = ╱41╱A╱ // 0x90a @0xe
0x08fc…0910 at000f = ╱4c╱L╱ // 0x90b @0xf
0x08fc…0910 at0010 = ╱33╱3╱ // 0x90c @0x10
0x08fc…0910 at0011 = ╱e3╱-╱ // 0x90d @0x11
0x08fc…0910 at0012 = ╱45╱E╱ // 0x90e @0x12
0x08fc…0910 at0013 = EOL // 0x90f @0x13
0x08fc…0910 }
0x0910…0916 966d 0940 ENDIF
0x0910…0916 LineComalBin {
0x0910…0916 ptr = 0x966d // 0x910 @0x0
0x0910…0916 lno = 0x03ac // 0x912 @0x2
0x0910…0916 at0004 = ╱9b╱ ENDIF ╱ // 0x914 @0x4
0x0910…0916 at0005 = EOL // 0x915 @0x5
0x0910…0916 }
0x0916…091c 9673 0950 ENDPROC
0x0916…091c LineComalBin {
0x0916…091c ptr = 0x9673 // 0x916 @0x0
0x0916…091c lno = 0x03b6 // 0x918 @0x2
0x0916…091c at0004 = ╱9f╱ ENDPROC ╱ // 0x91a @0x4
0x0916…091c at0005 = EOL // 0x91b @0x5
0x0916…091c }
0x091c…0933 968a 0960 PROC SLETFPOST(NØGLE3)
0x091c…0933 LineComalBin {
0x091c…0933 ptr = 0x968a // 0x91c @0x0
0x091c…0933 lno = 0x03c0 // 0x91e @0x2
0x091c…0933 at0004 = ╱9e╱ PROC ╱ // 0x920 @0x4
0x091c…0933 at0005 = ╱53╱S╱ // 0x921 @0x5
0x091c…0933 at0006 = ╱4c╱L╱ // 0x922 @0x6
0x091c…0933 at0007 = ╱45╱E╱ // 0x923 @0x7
0x091c…0933 at0008 = ╱54╱T╱ // 0x924 @0x8
0x091c…0933 at0009 = ╱46╱F╱ // 0x925 @0x9
0x091c…0933 at000a = ╱50╱P╱ // 0x926 @0xa
0x091c…0933 at000b = ╱4f╱O╱ // 0x927 @0xb
0x091c…0933 at000c = ╱53╱S╱ // 0x928 @0xc
0x091c…0933 at000d = ╱54╱T╱ // 0x929 @0xd
0x091c…0933 at000e = ╱ed╱(╱ // 0x92a @0xe
0x091c…0933 at000f = ╱4e╱N╱ // 0x92b @0xf
0x091c…0933 at0010 = ╱5c╱Ø╱ // 0x92c @0x10
0x091c…0933 at0011 = ╱47╱G╱ // 0x92d @0x11
0x091c…0933 at0012 = ╱4c╱L╱ // 0x92e @0x12
0x091c…0933 at0013 = ╱45╱E╱ // 0x92f @0x13
0x091c…0933 at0014 = ╱33╱3╱ // 0x930 @0x14
0x091c…0933 at0015 = ╱ee╱)╱ // 0x931 @0x15
0x091c…0933 at0016 = EOL // 0x932 @0x16
0x091c…0933 }
0x0933…095c 96b3 0970 EXEC FINDPOST(FTAB,MFANTAL,NØGLE3,FPIL3)
0x0933…095c LineComalBin {
0x0933…095c ptr = 0x96b3 // 0x933 @0x0
0x0933…095c lno = 0x03ca // 0x935 @0x2
0x0933…095c at0004 = ╱9d╱ EXEC ╱ // 0x937 @0x4
0x0933…095c at0005 = ╱46╱F╱ // 0x938 @0x5
0x0933…095c at0006 = ╱49╱I╱ // 0x939 @0x6
0x0933…095c at0007 = ╱4e╱N╱ // 0x93a @0x7
0x0933…095c at0008 = ╱44╱D╱ // 0x93b @0x8
0x0933…095c at0009 = ╱50╱P╱ // 0x93c @0x9
0x0933…095c at000a = ╱4f╱O╱ // 0x93d @0xa
0x0933…095c at000b = ╱53╱S╱ // 0x93e @0xb
0x0933…095c at000c = ╱54╱T╱ // 0x93f @0xc
0x0933…095c at000d = ╱ed╱(╱ // 0x940 @0xd
0x0933…095c at000e = ╱46╱F╱ // 0x941 @0xe
0x0933…095c at000f = ╱54╱T╱ // 0x942 @0xf
0x0933…095c at0010 = ╱41╱A╱ // 0x943 @0x10
0x0933…095c at0011 = ╱42╱B╱ // 0x944 @0x11
0x0933…095c at0012 = ╱ec╱,╱ // 0x945 @0x12
0x0933…095c at0013 = ╱4d╱M╱ // 0x946 @0x13
0x0933…095c at0014 = ╱46╱F╱ // 0x947 @0x14
0x0933…095c at0015 = ╱41╱A╱ // 0x948 @0x15
0x0933…095c at0016 = ╱4e╱N╱ // 0x949 @0x16
0x0933…095c at0017 = ╱54╱T╱ // 0x94a @0x17
0x0933…095c at0018 = ╱41╱A╱ // 0x94b @0x18
0x0933…095c at0019 = ╱4c╱L╱ // 0x94c @0x19
0x0933…095c at001a = ╱ec╱,╱ // 0x94d @0x1a
0x0933…095c at001b = ╱4e╱N╱ // 0x94e @0x1b
0x0933…095c at001c = ╱5c╱Ø╱ // 0x94f @0x1c
0x0933…095c at001d = ╱47╱G╱ // 0x950 @0x1d
0x0933…095c at001e = ╱4c╱L╱ // 0x951 @0x1e
0x0933…095c at001f = ╱45╱E╱ // 0x952 @0x1f
0x0933…095c at0020 = ╱33╱3╱ // 0x953 @0x20
0x0933…095c at0021 = ╱ec╱,╱ // 0x954 @0x21
0x0933…095c at0022 = ╱46╱F╱ // 0x955 @0x22
0x0933…095c at0023 = ╱50╱P╱ // 0x956 @0x23
0x0933…095c at0024 = ╱49╱I╱ // 0x957 @0x24
0x0933…095c at0025 = ╱4c╱L╱ // 0x958 @0x25
0x0933…095c at0026 = ╱33╱3╱ // 0x959 @0x26
0x0933…095c at0027 = ╱ee╱)╱ // 0x95a @0x27
0x0933…095c at0028 = EOL // 0x95b @0x28
0x0933…095c }
0x095c…096a 96c1 0980 IF CEKS=E THEN STOP
0x095c…096a LineComalBin {
0x095c…096a ptr = 0x96c1 // 0x95c @0x0
0x095c…096a lno = 0x03d4 // 0x95e @0x2
0x095c…096a at0004 = ╱82╱ IF ╱ // 0x960 @0x4
0x095c…096a at0005 = ╱43╱C╱ // 0x961 @0x5
0x095c…096a at0006 = ╱45╱E╱ // 0x962 @0x6
0x095c…096a at0007 = ╱4b╱K╱ // 0x963 @0x7
0x095c…096a at0008 = ╱53╱S╱ // 0x964 @0x8
0x095c…096a at0009 = ╱dc╱=╱ // 0x965 @0x9
0x095c…096a at000a = ╱45╱E╱ // 0x966 @0xa
0x095c…096a at000b = ╱b6╱ THEN ╱ // 0x967 @0xb
0x095c…096a at000c = ╱8d╱ STOP ╱ // 0x968 @0xc
0x095c…096a at000d = EOL // 0x969 @0xd
0x095c…096a }
0x096a…09b3 970a 0990 FNR=B;FNAVN$=BLANK$(E:25);FMKODE$=" ";FUKODE$=" ";FMDEBET$="0+"
0x096a…09b3 LineComalBin {
0x096a…09b3 ptr = 0x970a // 0x96a @0x0
0x096a…09b3 lno = 0x03de // 0x96c @0x2
0x096a…09b3 at0004 = ╱46╱F╱ // 0x96e @0x4
0x096a…09b3 at0005 = ╱4e╱N╱ // 0x96f @0x5
0x096a…09b3 at0006 = ╱52╱R╱ // 0x970 @0x6
0x096a…09b3 at0007 = ╱dc╱=╱ // 0x971 @0x7
0x096a…09b3 at0008 = ╱42╱B╱ // 0x972 @0x8
0x096a…09b3 at0009 = ╱eb╱;╱ // 0x973 @0x9
0x096a…09b3 at000a = ╱46╱F╱ // 0x974 @0xa
0x096a…09b3 at000b = ╱4e╱N╱ // 0x975 @0xb
0x096a…09b3 at000c = ╱41╱A╱ // 0x976 @0xc
0x096a…09b3 at000d = ╱56╱V╱ // 0x977 @0xd
0x096a…09b3 at000e = ╱4e╱N╱ // 0x978 @0xe
0x096a…09b3 at000f = ╱ef╱$╱ // 0x979 @0xf
0x096a…09b3 at0010 = ╱dc╱=╱ // 0x97a @0x10
0x096a…09b3 at0011 = ╱42╱B╱ // 0x97b @0x11
0x096a…09b3 at0012 = ╱4c╱L╱ // 0x97c @0x12
0x096a…09b3 at0013 = ╱41╱A╱ // 0x97d @0x13
0x096a…09b3 at0014 = ╱4e╱N╱ // 0x97e @0x14
0x096a…09b3 at0015 = ╱4b╱K╱ // 0x97f @0x15
0x096a…09b3 at0016 = ╱ef╱$╱ // 0x980 @0x16
0x096a…09b3 at0017 = ╱ed╱(╱ // 0x981 @0x17
0x096a…09b3 at0018 = ╱45╱E╱ // 0x982 @0x18
0x096a…09b3 at0019 = ╱f0╱:╱ // 0x983 @0x19
0x096a…09b3 at001a = ╱32╱2╱ // 0x984 @0x1a
0x096a…09b3 at001b = ╱35╱5╱ // 0x985 @0x1b
0x096a…09b3 at001c = ╱fe0000c805╱ // 0x986 @0x1c
0x096a…09b3 at0021 = ╱ee╱)╱ // 0x98b @0x21
0x096a…09b3 at0022 = ╱eb╱;╱ // 0x98c @0x22
0x096a…09b3 at0023 = ╱46╱F╱ // 0x98d @0x23
0x096a…09b3 at0024 = ╱4d╱M╱ // 0x98e @0x24
0x096a…09b3 at0025 = ╱4b╱K╱ // 0x98f @0x25
0x096a…09b3 at0026 = ╱4f╱O╱ // 0x990 @0x26
0x096a…09b3 at0027 = ╱44╱D╱ // 0x991 @0x27
0x096a…09b3 at0028 = ╱45╱E╱ // 0x992 @0x28
0x096a…09b3 at0029 = ╱ef╱$╱ // 0x993 @0x29
0x096a…09b3 at002a = ╱dc╱=╱ // 0x994 @0x2a
0x096a…09b3 at002b = ╱22╱"╱ // 0x995 @0x2b
0x096a…09b3 at002c = ╱20╱…╱ // 0x996 @0x2c
0x096a…09b3 at002d = ╱22╱"╱ // 0x997 @0x2d
0x096a…09b3 at002e = ╱eb╱;╱ // 0x998 @0x2e
0x096a…09b3 at002f = ╱46╱F╱ // 0x999 @0x2f
0x096a…09b3 at0030 = ╱55╱U╱ // 0x99a @0x30
0x096a…09b3 at0031 = ╱4b╱K╱ // 0x99b @0x31
0x096a…09b3 at0032 = ╱4f╱O╱ // 0x99c @0x32
0x096a…09b3 at0033 = ╱44╱D╱ // 0x99d @0x33
0x096a…09b3 at0034 = ╱45╱E╱ // 0x99e @0x34
0x096a…09b3 at0035 = ╱ef╱$╱ // 0x99f @0x35
0x096a…09b3 at0036 = ╱dc╱=╱ // 0x9a0 @0x36
0x096a…09b3 at0037 = ╱22╱"╱ // 0x9a1 @0x37
0x096a…09b3 at0038 = ╱20╱…╱ // 0x9a2 @0x38
0x096a…09b3 at0039 = ╱22╱"╱ // 0x9a3 @0x39
0x096a…09b3 at003a = ╱eb╱;╱ // 0x9a4 @0x3a
0x096a…09b3 at003b = ╱46╱F╱ // 0x9a5 @0x3b
0x096a…09b3 at003c = ╱4d╱M╱ // 0x9a6 @0x3c
0x096a…09b3 at003d = ╱44╱D╱ // 0x9a7 @0x3d
0x096a…09b3 at003e = ╱45╱E╱ // 0x9a8 @0x3e
0x096a…09b3 at003f = ╱42╱B╱ // 0x9a9 @0x3f
0x096a…09b3 at0040 = ╱45╱E╱ // 0x9aa @0x40
0x096a…09b3 at0041 = ╱54╱T╱ // 0x9ab @0x41
0x096a…09b3 at0042 = ╱ef╱$╱ // 0x9ac @0x42
0x096a…09b3 at0043 = ╱dc╱=╱ // 0x9ad @0x43
0x096a…09b3 at0044 = ╱22╱"╱ // 0x9ae @0x44
0x096a…09b3 at0045 = ╱30╱0╱ // 0x9af @0x45
0x096a…09b3 at0046 = ╱2b╱+╱ // 0x9b0 @0x46
0x096a…09b3 at0047 = ╱22╱"╱ // 0x9b1 @0x47
0x096a…09b3 at0048 = EOL // 0x9b2 @0x48
0x096a…09b3 }
0x09b3…09e3 973a 1000 FMKREDIT$="0+";FÅDEBET$="0+";FÅKREDIT$="0+"
0x09b3…09e3 LineComalBin {
0x09b3…09e3 ptr = 0x973a // 0x9b3 @0x0
0x09b3…09e3 lno = 0x03e8 // 0x9b5 @0x2
0x09b3…09e3 at0004 = ╱46╱F╱ // 0x9b7 @0x4
0x09b3…09e3 at0005 = ╱4d╱M╱ // 0x9b8 @0x5
0x09b3…09e3 at0006 = ╱4b╱K╱ // 0x9b9 @0x6
0x09b3…09e3 at0007 = ╱52╱R╱ // 0x9ba @0x7
0x09b3…09e3 at0008 = ╱45╱E╱ // 0x9bb @0x8
0x09b3…09e3 at0009 = ╱44╱D╱ // 0x9bc @0x9
0x09b3…09e3 at000a = ╱49╱I╱ // 0x9bd @0xa
0x09b3…09e3 at000b = ╱54╱T╱ // 0x9be @0xb
0x09b3…09e3 at000c = ╱ef╱$╱ // 0x9bf @0xc
0x09b3…09e3 at000d = ╱dc╱=╱ // 0x9c0 @0xd
0x09b3…09e3 at000e = ╱22╱"╱ // 0x9c1 @0xe
0x09b3…09e3 at000f = ╱30╱0╱ // 0x9c2 @0xf
0x09b3…09e3 at0010 = ╱2b╱+╱ // 0x9c3 @0x10
0x09b3…09e3 at0011 = ╱22╱"╱ // 0x9c4 @0x11
0x09b3…09e3 at0012 = ╱eb╱;╱ // 0x9c5 @0x12
0x09b3…09e3 at0013 = ╱46╱F╱ // 0x9c6 @0x13
0x09b3…09e3 at0014 = ╱5d╱Å╱ // 0x9c7 @0x14
0x09b3…09e3 at0015 = ╱44╱D╱ // 0x9c8 @0x15
0x09b3…09e3 at0016 = ╱45╱E╱ // 0x9c9 @0x16
0x09b3…09e3 at0017 = ╱42╱B╱ // 0x9ca @0x17
0x09b3…09e3 at0018 = ╱45╱E╱ // 0x9cb @0x18
0x09b3…09e3 at0019 = ╱54╱T╱ // 0x9cc @0x19
0x09b3…09e3 at001a = ╱ef╱$╱ // 0x9cd @0x1a
0x09b3…09e3 at001b = ╱dc╱=╱ // 0x9ce @0x1b
0x09b3…09e3 at001c = ╱22╱"╱ // 0x9cf @0x1c
0x09b3…09e3 at001d = ╱30╱0╱ // 0x9d0 @0x1d
0x09b3…09e3 at001e = ╱2b╱+╱ // 0x9d1 @0x1e
0x09b3…09e3 at001f = ╱22╱"╱ // 0x9d2 @0x1f
0x09b3…09e3 at0020 = ╱eb╱;╱ // 0x9d3 @0x20
0x09b3…09e3 at0021 = ╱46╱F╱ // 0x9d4 @0x21
0x09b3…09e3 at0022 = ╱5d╱Å╱ // 0x9d5 @0x22
0x09b3…09e3 at0023 = ╱4b╱K╱ // 0x9d6 @0x23
0x09b3…09e3 at0024 = ╱52╱R╱ // 0x9d7 @0x24
0x09b3…09e3 at0025 = ╱45╱E╱ // 0x9d8 @0x25
0x09b3…09e3 at0026 = ╱44╱D╱ // 0x9d9 @0x26
0x09b3…09e3 at0027 = ╱49╱I╱ // 0x9da @0x27
0x09b3…09e3 at0028 = ╱54╱T╱ // 0x9db @0x28
0x09b3…09e3 at0029 = ╱ef╱$╱ // 0x9dc @0x29
0x09b3…09e3 at002a = ╱dc╱=╱ // 0x9dd @0x2a
0x09b3…09e3 at002b = ╱22╱"╱ // 0x9de @0x2b
0x09b3…09e3 at002c = ╱30╱0╱ // 0x9df @0x2c
0x09b3…09e3 at002d = ╱2b╱+╱ // 0x9e0 @0x2d
0x09b3…09e3 at002e = ╱22╱"╱ // 0x9e1 @0x2e
0x09b3…09e3 at002f = EOL // 0x9e2 @0x2f
0x09b3…09e3 }
0x09e3…09f1 9748 1010 EXEC GEMFPOST
0x09e3…09f1 LineComalBin {
0x09e3…09f1 ptr = 0x9748 // 0x9e3 @0x0
0x09e3…09f1 lno = 0x03f2 // 0x9e5 @0x2
0x09e3…09f1 at0004 = ╱9d╱ EXEC ╱ // 0x9e7 @0x4
0x09e3…09f1 at0005 = ╱47╱G╱ // 0x9e8 @0x5
0x09e3…09f1 at0006 = ╱45╱E╱ // 0x9e9 @0x6
0x09e3…09f1 at0007 = ╱4d╱M╱ // 0x9ea @0x7
0x09e3…09f1 at0008 = ╱46╱F╱ // 0x9eb @0x8
0x09e3…09f1 at0009 = ╱50╱P╱ // 0x9ec @0x9
0x09e3…09f1 at000a = ╱4f╱O╱ // 0x9ed @0xa
0x09e3…09f1 at000b = ╱53╱S╱ // 0x9ee @0xb
0x09e3…09f1 at000c = ╱54╱T╱ // 0x9ef @0xc
0x09e3…09f1 at000d = EOL // 0x9f0 @0xd
0x09e3…09f1 }
0x09f1…0a17 976e 1020 EXEC SLETPOST(FTAB,AFIN,NØGLE3,FPIL3)
0x09f1…0a17 LineComalBin {
0x09f1…0a17 ptr = 0x976e // 0x9f1 @0x0
0x09f1…0a17 lno = 0x03fc // 0x9f3 @0x2
0x09f1…0a17 at0004 = ╱9d╱ EXEC ╱ // 0x9f5 @0x4
0x09f1…0a17 at0005 = ╱53╱S╱ // 0x9f6 @0x5
0x09f1…0a17 at0006 = ╱4c╱L╱ // 0x9f7 @0x6
0x09f1…0a17 at0007 = ╱45╱E╱ // 0x9f8 @0x7
0x09f1…0a17 at0008 = ╱54╱T╱ // 0x9f9 @0x8
0x09f1…0a17 at0009 = ╱50╱P╱ // 0x9fa @0x9
0x09f1…0a17 at000a = ╱4f╱O╱ // 0x9fb @0xa
0x09f1…0a17 at000b = ╱53╱S╱ // 0x9fc @0xb
0x09f1…0a17 at000c = ╱54╱T╱ // 0x9fd @0xc
0x09f1…0a17 at000d = ╱ed╱(╱ // 0x9fe @0xd
0x09f1…0a17 at000e = ╱46╱F╱ // 0x9ff @0xe
0x09f1…0a17 at000f = ╱54╱T╱ // 0xa00 @0xf
0x09f1…0a17 at0010 = ╱41╱A╱ // 0xa01 @0x10
0x09f1…0a17 at0011 = ╱42╱B╱ // 0xa02 @0x11
0x09f1…0a17 at0012 = ╱ec╱,╱ // 0xa03 @0x12
0x09f1…0a17 at0013 = ╱41╱A╱ // 0xa04 @0x13
0x09f1…0a17 at0014 = ╱46╱F╱ // 0xa05 @0x14
0x09f1…0a17 at0015 = ╱49╱I╱ // 0xa06 @0x15
0x09f1…0a17 at0016 = ╱4e╱N╱ // 0xa07 @0x16
0x09f1…0a17 at0017 = ╱ec╱,╱ // 0xa08 @0x17
0x09f1…0a17 at0018 = ╱4e╱N╱ // 0xa09 @0x18
0x09f1…0a17 at0019 = ╱5c╱Ø╱ // 0xa0a @0x19
0x09f1…0a17 at001a = ╱47╱G╱ // 0xa0b @0x1a
0x09f1…0a17 at001b = ╱4c╱L╱ // 0xa0c @0x1b
0x09f1…0a17 at001c = ╱45╱E╱ // 0xa0d @0x1c
0x09f1…0a17 at001d = ╱33╱3╱ // 0xa0e @0x1d
0x09f1…0a17 at001e = ╱ec╱,╱ // 0xa0f @0x1e
0x09f1…0a17 at001f = ╱46╱F╱ // 0xa10 @0x1f
0x09f1…0a17 at0020 = ╱50╱P╱ // 0xa11 @0x20
0x09f1…0a17 at0021 = ╱49╱I╱ // 0xa12 @0x21
0x09f1…0a17 at0022 = ╱4c╱L╱ // 0xa13 @0x22
0x09f1…0a17 at0023 = ╱33╱3╱ // 0xa14 @0x23
0x09f1…0a17 at0024 = ╱ee╱)╱ // 0xa15 @0x24
0x09f1…0a17 at0025 = EOL // 0xa16 @0x25
0x09f1…0a17 }
0x0a17…0a1d 9774 1030 ENDPROC
0x0a17…0a1d LineComalBin {
0x0a17…0a1d ptr = 0x9774 // 0xa17 @0x0
0x0a17…0a1d lno = 0x0406 // 0xa19 @0x2
0x0a17…0a1d at0004 = ╱9f╱ ENDPROC ╱ // 0xa1b @0x4
0x0a17…0a1d at0005 = EOL // 0xa1c @0x5
0x0a17…0a1d }
0x0a1d…0a2b 9782 1040 PROC HENTPOST
0x0a1d…0a2b LineComalBin {
0x0a1d…0a2b ptr = 0x9782 // 0xa1d @0x0
0x0a1d…0a2b lno = 0x0410 // 0xa1f @0x2
0x0a1d…0a2b at0004 = ╱9e╱ PROC ╱ // 0xa21 @0x4
0x0a1d…0a2b at0005 = ╱48╱H╱ // 0xa22 @0x5
0x0a1d…0a2b at0006 = ╱45╱E╱ // 0xa23 @0x6
0x0a1d…0a2b at0007 = ╱4e╱N╱ // 0xa24 @0x7
0x0a1d…0a2b at0008 = ╱54╱T╱ // 0xa25 @0x8
0x0a1d…0a2b at0009 = ╱50╱P╱ // 0xa26 @0x9
0x0a1d…0a2b at000a = ╱4f╱O╱ // 0xa27 @0xa
0x0a1d…0a2b at000b = ╱53╱S╱ // 0xa28 @0xb
0x0a1d…0a2b at000c = ╱54╱T╱ // 0xa29 @0xc
0x0a1d…0a2b at000d = EOL // 0xa2a @0xd
0x0a1d…0a2b }
0x0a2b…0a3f 9796 1050 S=FTAB(FPIL3,G)
0x0a2b…0a3f LineComalBin {
0x0a2b…0a3f ptr = 0x9796 // 0xa2b @0x0
0x0a2b…0a3f lno = 0x041a // 0xa2d @0x2
0x0a2b…0a3f at0004 = ╱53╱S╱ // 0xa2f @0x4
0x0a2b…0a3f at0005 = ╱dc╱=╱ // 0xa30 @0x5
0x0a2b…0a3f at0006 = ╱46╱F╱ // 0xa31 @0x6
0x0a2b…0a3f at0007 = ╱54╱T╱ // 0xa32 @0x7
0x0a2b…0a3f at0008 = ╱41╱A╱ // 0xa33 @0x8
0x0a2b…0a3f at0009 = ╱42╱B╱ // 0xa34 @0x9
0x0a2b…0a3f at000a = ╱ed╱(╱ // 0xa35 @0xa
0x0a2b…0a3f at000b = ╱46╱F╱ // 0xa36 @0xb
0x0a2b…0a3f at000c = ╱50╱P╱ // 0xa37 @0xc
0x0a2b…0a3f at000d = ╱49╱I╱ // 0xa38 @0xd
0x0a2b…0a3f at000e = ╱4c╱L╱ // 0xa39 @0xe
0x0a2b…0a3f at000f = ╱33╱3╱ // 0xa3a @0xf
0x0a2b…0a3f at0010 = ╱ec╱,╱ // 0xa3b @0x10
0x0a2b…0a3f at0011 = ╱47╱G╱ // 0xa3c @0x11
0x0a2b…0a3f at0012 = ╱ee╱)╱ // 0xa3d @0x12
0x0a2b…0a3f at0013 = EOL // 0xa3e @0x13
0x0a2b…0a3f }
0x0a3f…0a55 97ac 1060 GET K3$,S:FNR,FNAVN$
0x0a3f…0a55 LineComalBin {
0x0a3f…0a55 ptr = 0x97ac // 0xa3f @0x0
0x0a3f…0a55 lno = 0x0424 // 0xa41 @0x2
0x0a3f…0a55 at0004 = ╱a9╱ GET ╱ // 0xa43 @0x4
0x0a3f…0a55 at0005 = ╱4b╱K╱ // 0xa44 @0x5
0x0a3f…0a55 at0006 = ╱33╱3╱ // 0xa45 @0x6
0x0a3f…0a55 at0007 = ╱ef╱$╱ // 0xa46 @0x7
0x0a3f…0a55 at0008 = ╱ec╱,╱ // 0xa47 @0x8
0x0a3f…0a55 at0009 = ╱53╱S╱ // 0xa48 @0x9
0x0a3f…0a55 at000a = ╱f0╱:╱ // 0xa49 @0xa
0x0a3f…0a55 at000b = ╱46╱F╱ // 0xa4a @0xb
0x0a3f…0a55 at000c = ╱4e╱N╱ // 0xa4b @0xc
0x0a3f…0a55 at000d = ╱52╱R╱ // 0xa4c @0xd
0x0a3f…0a55 at000e = ╱ec╱,╱ // 0xa4d @0xe
0x0a3f…0a55 at000f = ╱46╱F╱ // 0xa4e @0xf
0x0a3f…0a55 at0010 = ╱4e╱N╱ // 0xa4f @0x10
0x0a3f…0a55 at0011 = ╱41╱A╱ // 0xa50 @0x11
0x0a3f…0a55 at0012 = ╱56╱V╱ // 0xa51 @0x12
0x0a3f…0a55 at0013 = ╱4e╱N╱ // 0xa52 @0x13
0x0a3f…0a55 at0014 = ╱ef╱$╱ // 0xa53 @0x14
0x0a3f…0a55 at0015 = EOL // 0xa54 @0x15
0x0a3f…0a55 }
0x0a55…0a68 97bf 1070 EXEC FEJL(V,G,K3$)
0x0a55…0a68 LineComalBin {
0x0a55…0a68 ptr = 0x97bf // 0xa55 @0x0
0x0a55…0a68 lno = 0x042e // 0xa57 @0x2
0x0a55…0a68 at0004 = ╱9d╱ EXEC ╱ // 0xa59 @0x4
0x0a55…0a68 at0005 = ╱46╱F╱ // 0xa5a @0x5
0x0a55…0a68 at0006 = ╱45╱E╱ // 0xa5b @0x6
0x0a55…0a68 at0007 = ╱4a╱J╱ // 0xa5c @0x7
0x0a55…0a68 at0008 = ╱4c╱L╱ // 0xa5d @0x8
0x0a55…0a68 at0009 = ╱ed╱(╱ // 0xa5e @0x9
0x0a55…0a68 at000a = ╱56╱V╱ // 0xa5f @0xa
0x0a55…0a68 at000b = ╱ec╱,╱ // 0xa60 @0xb
0x0a55…0a68 at000c = ╱47╱G╱ // 0xa61 @0xc
0x0a55…0a68 at000d = ╱ec╱,╱ // 0xa62 @0xd
0x0a55…0a68 at000e = ╱4b╱K╱ // 0xa63 @0xe
0x0a55…0a68 at000f = ╱33╱3╱ // 0xa64 @0xf
0x0a55…0a68 at0010 = ╱ef╱$╱ // 0xa65 @0x10
0x0a55…0a68 at0011 = ╱ee╱)╱ // 0xa66 @0x11
0x0a55…0a68 at0012 = EOL // 0xa67 @0x12
0x0a55…0a68 }
0x0a68…0a81 97d8 1080 IF FNR<>FTAB(FPIL3,E) THEN STOP
0x0a68…0a81 LineComalBin {
0x0a68…0a81 ptr = 0x97d8 // 0xa68 @0x0
0x0a68…0a81 lno = 0x0438 // 0xa6a @0x2
0x0a68…0a81 at0004 = ╱82╱ IF ╱ // 0xa6c @0x4
0x0a68…0a81 at0005 = ╱46╱F╱ // 0xa6d @0x5
0x0a68…0a81 at0006 = ╱4e╱N╱ // 0xa6e @0x6
0x0a68…0a81 at0007 = ╱52╱R╱ // 0xa6f @0x7
0x0a68…0a81 at0008 = ╱e1╱<>╱ // 0xa70 @0x8
0x0a68…0a81 at0009 = ╱46╱F╱ // 0xa71 @0x9
0x0a68…0a81 at000a = ╱54╱T╱ // 0xa72 @0xa
0x0a68…0a81 at000b = ╱41╱A╱ // 0xa73 @0xb
0x0a68…0a81 at000c = ╱42╱B╱ // 0xa74 @0xc
0x0a68…0a81 at000d = ╱ed╱(╱ // 0xa75 @0xd
0x0a68…0a81 at000e = ╱46╱F╱ // 0xa76 @0xe
0x0a68…0a81 at000f = ╱50╱P╱ // 0xa77 @0xf
0x0a68…0a81 at0010 = ╱49╱I╱ // 0xa78 @0x10
0x0a68…0a81 at0011 = ╱4c╱L╱ // 0xa79 @0x11
0x0a68…0a81 at0012 = ╱33╱3╱ // 0xa7a @0x12
0x0a68…0a81 at0013 = ╱ec╱,╱ // 0xa7b @0x13
0x0a68…0a81 at0014 = ╱45╱E╱ // 0xa7c @0x14
0x0a68…0a81 at0015 = ╱ee╱)╱ // 0xa7d @0x15
0x0a68…0a81 at0016 = ╱b6╱ THEN ╱ // 0xa7e @0x16
0x0a68…0a81 at0017 = ╱8d╱ STOP ╱ // 0xa7f @0x17
0x0a68…0a81 at0018 = EOL // 0xa80 @0x18
0x0a68…0a81 }
0x0a81…0aa9 9800 1090 GET K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$
0x0a81…0aa9 LineComalBin {
0x0a81…0aa9 ptr = 0x9800 // 0xa81 @0x0
0x0a81…0aa9 lno = 0x0442 // 0xa83 @0x2
0x0a81…0aa9 at0004 = ╱a9╱ GET ╱ // 0xa85 @0x4
0x0a81…0aa9 at0005 = ╱4b╱K╱ // 0xa86 @0x5
0x0a81…0aa9 at0006 = ╱33╱3╱ // 0xa87 @0x6
0x0a81…0aa9 at0007 = ╱ef╱$╱ // 0xa88 @0x7
0x0a81…0aa9 at0008 = ╱ec╱,╱ // 0xa89 @0x8
0x0a81…0aa9 at0009 = ╱53╱S╱ // 0xa8a @0x9
0x0a81…0aa9 at000a = ╱e2╱+╱ // 0xa8b @0xa
0x0a81…0aa9 at000b = ╱45╱E╱ // 0xa8c @0xb
0x0a81…0aa9 at000c = ╱f0╱:╱ // 0xa8d @0xc
0x0a81…0aa9 at000d = ╱46╱F╱ // 0xa8e @0xd
0x0a81…0aa9 at000e = ╱4d╱M╱ // 0xa8f @0xe
0x0a81…0aa9 at000f = ╱4b╱K╱ // 0xa90 @0xf
0x0a81…0aa9 at0010 = ╱4f╱O╱ // 0xa91 @0x10
0x0a81…0aa9 at0011 = ╱44╱D╱ // 0xa92 @0x11
0x0a81…0aa9 at0012 = ╱45╱E╱ // 0xa93 @0x12
0x0a81…0aa9 at0013 = ╱ef╱$╱ // 0xa94 @0x13
0x0a81…0aa9 at0014 = ╱ec╱,╱ // 0xa95 @0x14
0x0a81…0aa9 at0015 = ╱46╱F╱ // 0xa96 @0x15
0x0a81…0aa9 at0016 = ╱4d╱M╱ // 0xa97 @0x16
0x0a81…0aa9 at0017 = ╱44╱D╱ // 0xa98 @0x17
0x0a81…0aa9 at0018 = ╱45╱E╱ // 0xa99 @0x18
0x0a81…0aa9 at0019 = ╱42╱B╱ // 0xa9a @0x19
0x0a81…0aa9 at001a = ╱45╱E╱ // 0xa9b @0x1a
0x0a81…0aa9 at001b = ╱54╱T╱ // 0xa9c @0x1b
0x0a81…0aa9 at001c = ╱ef╱$╱ // 0xa9d @0x1c
0x0a81…0aa9 at001d = ╱ec╱,╱ // 0xa9e @0x1d
0x0a81…0aa9 at001e = ╱46╱F╱ // 0xa9f @0x1e
0x0a81…0aa9 at001f = ╱4d╱M╱ // 0xaa0 @0x1f
0x0a81…0aa9 at0020 = ╱4b╱K╱ // 0xaa1 @0x20
0x0a81…0aa9 at0021 = ╱52╱R╱ // 0xaa2 @0x21
0x0a81…0aa9 at0022 = ╱45╱E╱ // 0xaa3 @0x22
0x0a81…0aa9 at0023 = ╱44╱D╱ // 0xaa4 @0x23
0x0a81…0aa9 at0024 = ╱49╱I╱ // 0xaa5 @0x24
0x0a81…0aa9 at0025 = ╱54╱T╱ // 0xaa6 @0x25
0x0a81…0aa9 at0026 = ╱ef╱$╱ // 0xaa7 @0x26
0x0a81…0aa9 at0027 = EOL // 0xaa8 @0x27
0x0a81…0aa9 }
0x0aa9…0abc 9813 1100 EXEC FEJL(V,V,K3$)
0x0aa9…0abc LineComalBin {
0x0aa9…0abc ptr = 0x9813 // 0xaa9 @0x0
0x0aa9…0abc lno = 0x044c // 0xaab @0x2
0x0aa9…0abc at0004 = ╱9d╱ EXEC ╱ // 0xaad @0x4
0x0aa9…0abc at0005 = ╱46╱F╱ // 0xaae @0x5
0x0aa9…0abc at0006 = ╱45╱E╱ // 0xaaf @0x6
0x0aa9…0abc at0007 = ╱4a╱J╱ // 0xab0 @0x7
0x0aa9…0abc at0008 = ╱4c╱L╱ // 0xab1 @0x8
0x0aa9…0abc at0009 = ╱ed╱(╱ // 0xab2 @0x9
0x0aa9…0abc at000a = ╱56╱V╱ // 0xab3 @0xa
0x0aa9…0abc at000b = ╱ec╱,╱ // 0xab4 @0xb
0x0aa9…0abc at000c = ╱56╱V╱ // 0xab5 @0xc
0x0aa9…0abc at000d = ╱ec╱,╱ // 0xab6 @0xd
0x0aa9…0abc at000e = ╱4b╱K╱ // 0xab7 @0xe
0x0aa9…0abc at000f = ╱33╱3╱ // 0xab8 @0xf
0x0aa9…0abc at0010 = ╱ef╱$╱ // 0xab9 @0x10
0x0aa9…0abc at0011 = ╱ee╱)╱ // 0xaba @0x11
0x0aa9…0abc at0012 = EOL // 0xabb @0x12
0x0aa9…0abc }
0x0abc…0ae4 983b 1110 GET K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$
0x0abc…0ae4 LineComalBin {
0x0abc…0ae4 ptr = 0x983b // 0xabc @0x0
0x0abc…0ae4 lno = 0x0456 // 0xabe @0x2
0x0abc…0ae4 at0004 = ╱a9╱ GET ╱ // 0xac0 @0x4
0x0abc…0ae4 at0005 = ╱4b╱K╱ // 0xac1 @0x5
0x0abc…0ae4 at0006 = ╱33╱3╱ // 0xac2 @0x6
0x0abc…0ae4 at0007 = ╱ef╱$╱ // 0xac3 @0x7
0x0abc…0ae4 at0008 = ╱ec╱,╱ // 0xac4 @0x8
0x0abc…0ae4 at0009 = ╱53╱S╱ // 0xac5 @0x9
0x0abc…0ae4 at000a = ╱e2╱+╱ // 0xac6 @0xa
0x0abc…0ae4 at000b = ╱47╱G╱ // 0xac7 @0xb
0x0abc…0ae4 at000c = ╱f0╱:╱ // 0xac8 @0xc
0x0abc…0ae4 at000d = ╱46╱F╱ // 0xac9 @0xd
0x0abc…0ae4 at000e = ╱55╱U╱ // 0xaca @0xe
0x0abc…0ae4 at000f = ╱4b╱K╱ // 0xacb @0xf
0x0abc…0ae4 at0010 = ╱4f╱O╱ // 0xacc @0x10
0x0abc…0ae4 at0011 = ╱44╱D╱ // 0xacd @0x11
0x0abc…0ae4 at0012 = ╱45╱E╱ // 0xace @0x12
0x0abc…0ae4 at0013 = ╱ef╱$╱ // 0xacf @0x13
0x0abc…0ae4 at0014 = ╱ec╱,╱ // 0xad0 @0x14
0x0abc…0ae4 at0015 = ╱46╱F╱ // 0xad1 @0x15
0x0abc…0ae4 at0016 = ╱5d╱Å╱ // 0xad2 @0x16
0x0abc…0ae4 at0017 = ╱44╱D╱ // 0xad3 @0x17
0x0abc…0ae4 at0018 = ╱45╱E╱ // 0xad4 @0x18
0x0abc…0ae4 at0019 = ╱42╱B╱ // 0xad5 @0x19
0x0abc…0ae4 at001a = ╱45╱E╱ // 0xad6 @0x1a
0x0abc…0ae4 at001b = ╱54╱T╱ // 0xad7 @0x1b
0x0abc…0ae4 at001c = ╱ef╱$╱ // 0xad8 @0x1c
0x0abc…0ae4 at001d = ╱ec╱,╱ // 0xad9 @0x1d
0x0abc…0ae4 at001e = ╱46╱F╱ // 0xada @0x1e
0x0abc…0ae4 at001f = ╱5d╱Å╱ // 0xadb @0x1f
0x0abc…0ae4 at0020 = ╱4b╱K╱ // 0xadc @0x20
0x0abc…0ae4 at0021 = ╱52╱R╱ // 0xadd @0x21
0x0abc…0ae4 at0022 = ╱45╱E╱ // 0xade @0x22
0x0abc…0ae4 at0023 = ╱44╱D╱ // 0xadf @0x23
0x0abc…0ae4 at0024 = ╱49╱I╱ // 0xae0 @0x24
0x0abc…0ae4 at0025 = ╱54╱T╱ // 0xae1 @0x25
0x0abc…0ae4 at0026 = ╱ef╱$╱ // 0xae2 @0x26
0x0abc…0ae4 at0027 = EOL // 0xae3 @0x27
0x0abc…0ae4 }
0x0ae4…0afc 9853 1120 EXEC FEJL(V,4,K3$)
0x0ae4…0afc LineComalBin {
0x0ae4…0afc ptr = 0x9853 // 0xae4 @0x0
0x0ae4…0afc lno = 0x0460 // 0xae6 @0x2
0x0ae4…0afc at0004 = ╱9d╱ EXEC ╱ // 0xae8 @0x4
0x0ae4…0afc at0005 = ╱46╱F╱ // 0xae9 @0x5
0x0ae4…0afc at0006 = ╱45╱E╱ // 0xaea @0x6
0x0ae4…0afc at0007 = ╱4a╱J╱ // 0xaeb @0x7
0x0ae4…0afc at0008 = ╱4c╱L╱ // 0xaec @0x8
0x0ae4…0afc at0009 = ╱ed╱(╱ // 0xaed @0x9
0x0ae4…0afc at000a = ╱56╱V╱ // 0xaee @0xa
0x0ae4…0afc at000b = ╱ec╱,╱ // 0xaef @0xb
0x0ae4…0afc at000c = ╱34╱4╱ // 0xaf0 @0xc
0x0ae4…0afc at000d = ╱fe00008003╱ // 0xaf1 @0xd
0x0ae4…0afc at0012 = ╱ec╱,╱ // 0xaf6 @0x12
0x0ae4…0afc at0013 = ╱4b╱K╱ // 0xaf7 @0x13
0x0ae4…0afc at0014 = ╱33╱3╱ // 0xaf8 @0x14
0x0ae4…0afc at0015 = ╱ef╱$╱ // 0xaf9 @0x15
0x0ae4…0afc at0016 = ╱ee╱)╱ // 0xafa @0x16
0x0ae4…0afc at0017 = EOL // 0xafb @0x17
0x0ae4…0afc }
0x0afc…0b02 9859 1130 ENDPROC
0x0afc…0b02 LineComalBin {
0x0afc…0b02 ptr = 0x9859 // 0xafc @0x0
0x0afc…0b02 lno = 0x046a // 0xafe @0x2
0x0afc…0b02 at0004 = ╱9f╱ ENDPROC ╱ // 0xb00 @0x4
0x0afc…0b02 at0005 = EOL // 0xb01 @0x5
0x0afc…0b02 }
0x0b02…0b10 9867 1140 PROC GEMFPOST
0x0b02…0b10 LineComalBin {
0x0b02…0b10 ptr = 0x9867 // 0xb02 @0x0
0x0b02…0b10 lno = 0x0474 // 0xb04 @0x2
0x0b02…0b10 at0004 = ╱9e╱ PROC ╱ // 0xb06 @0x4
0x0b02…0b10 at0005 = ╱47╱G╱ // 0xb07 @0x5
0x0b02…0b10 at0006 = ╱45╱E╱ // 0xb08 @0x6
0x0b02…0b10 at0007 = ╱4d╱M╱ // 0xb09 @0x7
0x0b02…0b10 at0008 = ╱46╱F╱ // 0xb0a @0x8
0x0b02…0b10 at0009 = ╱50╱P╱ // 0xb0b @0x9
0x0b02…0b10 at000a = ╱4f╱O╱ // 0xb0c @0xa
0x0b02…0b10 at000b = ╱53╱S╱ // 0xb0d @0xb
0x0b02…0b10 at000c = ╱54╱T╱ // 0xb0e @0xc
0x0b02…0b10 at000d = EOL // 0xb0f @0xd
0x0b02…0b10 }
0x0b10…0b24 987b 1150 S=FTAB(FPIL3,G)
0x0b10…0b24 LineComalBin {
0x0b10…0b24 ptr = 0x987b // 0xb10 @0x0
0x0b10…0b24 lno = 0x047e // 0xb12 @0x2
0x0b10…0b24 at0004 = ╱53╱S╱ // 0xb14 @0x4
0x0b10…0b24 at0005 = ╱dc╱=╱ // 0xb15 @0x5
0x0b10…0b24 at0006 = ╱46╱F╱ // 0xb16 @0x6
0x0b10…0b24 at0007 = ╱54╱T╱ // 0xb17 @0x7
0x0b10…0b24 at0008 = ╱41╱A╱ // 0xb18 @0x8
0x0b10…0b24 at0009 = ╱42╱B╱ // 0xb19 @0x9
0x0b10…0b24 at000a = ╱ed╱(╱ // 0xb1a @0xa
0x0b10…0b24 at000b = ╱46╱F╱ // 0xb1b @0xb
0x0b10…0b24 at000c = ╱50╱P╱ // 0xb1c @0xc
0x0b10…0b24 at000d = ╱49╱I╱ // 0xb1d @0xd
0x0b10…0b24 at000e = ╱4c╱L╱ // 0xb1e @0xe
0x0b10…0b24 at000f = ╱33╱3╱ // 0xb1f @0xf
0x0b10…0b24 at0010 = ╱ec╱,╱ // 0xb20 @0x10
0x0b10…0b24 at0011 = ╱47╱G╱ // 0xb21 @0x11
0x0b10…0b24 at0012 = ╱ee╱)╱ // 0xb22 @0x12
0x0b10…0b24 at0013 = EOL // 0xb23 @0x13
0x0b10…0b24 }
0x0b24…0b3a 9891 1160 PUT K3$,S:FNR,FNAVN$
0x0b24…0b3a LineComalBin {
0x0b24…0b3a ptr = 0x9891 // 0xb24 @0x0
0x0b24…0b3a lno = 0x0488 // 0xb26 @0x2
0x0b24…0b3a at0004 = ╱aa╱ PUT ╱ // 0xb28 @0x4
0x0b24…0b3a at0005 = ╱4b╱K╱ // 0xb29 @0x5
0x0b24…0b3a at0006 = ╱33╱3╱ // 0xb2a @0x6
0x0b24…0b3a at0007 = ╱ef╱$╱ // 0xb2b @0x7
0x0b24…0b3a at0008 = ╱ec╱,╱ // 0xb2c @0x8
0x0b24…0b3a at0009 = ╱53╱S╱ // 0xb2d @0x9
0x0b24…0b3a at000a = ╱f0╱:╱ // 0xb2e @0xa
0x0b24…0b3a at000b = ╱46╱F╱ // 0xb2f @0xb
0x0b24…0b3a at000c = ╱4e╱N╱ // 0xb30 @0xc
0x0b24…0b3a at000d = ╱52╱R╱ // 0xb31 @0xd
0x0b24…0b3a at000e = ╱ec╱,╱ // 0xb32 @0xe
0x0b24…0b3a at000f = ╱46╱F╱ // 0xb33 @0xf
0x0b24…0b3a at0010 = ╱4e╱N╱ // 0xb34 @0x10
0x0b24…0b3a at0011 = ╱41╱A╱ // 0xb35 @0x11
0x0b24…0b3a at0012 = ╱56╱V╱ // 0xb36 @0x12
0x0b24…0b3a at0013 = ╱4e╱N╱ // 0xb37 @0x13
0x0b24…0b3a at0014 = ╱ef╱$╱ // 0xb38 @0x14
0x0b24…0b3a at0015 = EOL // 0xb39 @0x15
0x0b24…0b3a }
0x0b3a…0b52 98a9 1170 EXEC FEJL(4,V,K3$)
0x0b3a…0b52 LineComalBin {
0x0b3a…0b52 ptr = 0x98a9 // 0xb3a @0x0
0x0b3a…0b52 lno = 0x0492 // 0xb3c @0x2
0x0b3a…0b52 at0004 = ╱9d╱ EXEC ╱ // 0xb3e @0x4
0x0b3a…0b52 at0005 = ╱46╱F╱ // 0xb3f @0x5
0x0b3a…0b52 at0006 = ╱45╱E╱ // 0xb40 @0x6
0x0b3a…0b52 at0007 = ╱4a╱J╱ // 0xb41 @0x7
0x0b3a…0b52 at0008 = ╱4c╱L╱ // 0xb42 @0x8
0x0b3a…0b52 at0009 = ╱ed╱(╱ // 0xb43 @0x9
0x0b3a…0b52 at000a = ╱34╱4╱ // 0xb44 @0xa
0x0b3a…0b52 at000b = ╱fe00008003╱ // 0xb45 @0xb
0x0b3a…0b52 at0010 = ╱ec╱,╱ // 0xb4a @0x10
0x0b3a…0b52 at0011 = ╱56╱V╱ // 0xb4b @0x11
0x0b3a…0b52 at0012 = ╱ec╱,╱ // 0xb4c @0x12
0x0b3a…0b52 at0013 = ╱4b╱K╱ // 0xb4d @0x13
0x0b3a…0b52 at0014 = ╱33╱3╱ // 0xb4e @0x14
0x0b3a…0b52 at0015 = ╱ef╱$╱ // 0xb4f @0x15
0x0b3a…0b52 at0016 = ╱ee╱)╱ // 0xb50 @0x16
0x0b3a…0b52 at0017 = EOL // 0xb51 @0x17
0x0b3a…0b52 }
0x0b52…0b7a 98d1 1180 PUT K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$
0x0b52…0b7a LineComalBin {
0x0b52…0b7a ptr = 0x98d1 // 0xb52 @0x0
0x0b52…0b7a lno = 0x049c // 0xb54 @0x2
0x0b52…0b7a at0004 = ╱aa╱ PUT ╱ // 0xb56 @0x4
0x0b52…0b7a at0005 = ╱4b╱K╱ // 0xb57 @0x5
0x0b52…0b7a at0006 = ╱33╱3╱ // 0xb58 @0x6
0x0b52…0b7a at0007 = ╱ef╱$╱ // 0xb59 @0x7
0x0b52…0b7a at0008 = ╱ec╱,╱ // 0xb5a @0x8
0x0b52…0b7a at0009 = ╱53╱S╱ // 0xb5b @0x9
0x0b52…0b7a at000a = ╱e2╱+╱ // 0xb5c @0xa
0x0b52…0b7a at000b = ╱45╱E╱ // 0xb5d @0xb
0x0b52…0b7a at000c = ╱f0╱:╱ // 0xb5e @0xc
0x0b52…0b7a at000d = ╱46╱F╱ // 0xb5f @0xd
0x0b52…0b7a at000e = ╱4d╱M╱ // 0xb60 @0xe
0x0b52…0b7a at000f = ╱4b╱K╱ // 0xb61 @0xf
0x0b52…0b7a at0010 = ╱4f╱O╱ // 0xb62 @0x10
0x0b52…0b7a at0011 = ╱44╱D╱ // 0xb63 @0x11
0x0b52…0b7a at0012 = ╱45╱E╱ // 0xb64 @0x12
0x0b52…0b7a at0013 = ╱ef╱$╱ // 0xb65 @0x13
0x0b52…0b7a at0014 = ╱ec╱,╱ // 0xb66 @0x14
0x0b52…0b7a at0015 = ╱46╱F╱ // 0xb67 @0x15
0x0b52…0b7a at0016 = ╱4d╱M╱ // 0xb68 @0x16
0x0b52…0b7a at0017 = ╱44╱D╱ // 0xb69 @0x17
0x0b52…0b7a at0018 = ╱45╱E╱ // 0xb6a @0x18
0x0b52…0b7a at0019 = ╱42╱B╱ // 0xb6b @0x19
0x0b52…0b7a at001a = ╱45╱E╱ // 0xb6c @0x1a
0x0b52…0b7a at001b = ╱54╱T╱ // 0xb6d @0x1b
0x0b52…0b7a at001c = ╱ef╱$╱ // 0xb6e @0x1c
0x0b52…0b7a at001d = ╱ec╱,╱ // 0xb6f @0x1d
0x0b52…0b7a at001e = ╱46╱F╱ // 0xb70 @0x1e
0x0b52…0b7a at001f = ╱4d╱M╱ // 0xb71 @0x1f
0x0b52…0b7a at0020 = ╱4b╱K╱ // 0xb72 @0x20
0x0b52…0b7a at0021 = ╱52╱R╱ // 0xb73 @0x21
0x0b52…0b7a at0022 = ╱45╱E╱ // 0xb74 @0x22
0x0b52…0b7a at0023 = ╱44╱D╱ // 0xb75 @0x23
0x0b52…0b7a at0024 = ╱49╱I╱ // 0xb76 @0x24
0x0b52…0b7a at0025 = ╱54╱T╱ // 0xb77 @0x25
0x0b52…0b7a at0026 = ╱ef╱$╱ // 0xb78 @0x26
0x0b52…0b7a at0027 = EOL // 0xb79 @0x27
0x0b52…0b7a }
0x0b7a…0b97 98ee 1190 EXEC FEJL(4,4,K3$)
0x0b7a…0b97 LineComalBin {
0x0b7a…0b97 ptr = 0x98ee // 0xb7a @0x0
0x0b7a…0b97 lno = 0x04a6 // 0xb7c @0x2
0x0b7a…0b97 at0004 = ╱9d╱ EXEC ╱ // 0xb7e @0x4
0x0b7a…0b97 at0005 = ╱46╱F╱ // 0xb7f @0x5
0x0b7a…0b97 at0006 = ╱45╱E╱ // 0xb80 @0x6
0x0b7a…0b97 at0007 = ╱4a╱J╱ // 0xb81 @0x7
0x0b7a…0b97 at0008 = ╱4c╱L╱ // 0xb82 @0x8
0x0b7a…0b97 at0009 = ╱ed╱(╱ // 0xb83 @0x9
0x0b7a…0b97 at000a = ╱34╱4╱ // 0xb84 @0xa
0x0b7a…0b97 at000b = ╱fe00008003╱ // 0xb85 @0xb
0x0b7a…0b97 at0010 = ╱ec╱,╱ // 0xb8a @0x10
0x0b7a…0b97 at0011 = ╱34╱4╱ // 0xb8b @0x11
0x0b7a…0b97 at0012 = ╱fe00008003╱ // 0xb8c @0x12
0x0b7a…0b97 at0017 = ╱ec╱,╱ // 0xb91 @0x17
0x0b7a…0b97 at0018 = ╱4b╱K╱ // 0xb92 @0x18
0x0b7a…0b97 at0019 = ╱33╱3╱ // 0xb93 @0x19
0x0b7a…0b97 at001a = ╱ef╱$╱ // 0xb94 @0x1a
0x0b7a…0b97 at001b = ╱ee╱)╱ // 0xb95 @0x1b
0x0b7a…0b97 at001c = EOL // 0xb96 @0x1c
0x0b7a…0b97 }
0x0b97…0bbf 9916 1200 PUT K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$
0x0b97…0bbf LineComalBin {
0x0b97…0bbf ptr = 0x9916 // 0xb97 @0x0
0x0b97…0bbf lno = 0x04b0 // 0xb99 @0x2
0x0b97…0bbf at0004 = ╱aa╱ PUT ╱ // 0xb9b @0x4
0x0b97…0bbf at0005 = ╱4b╱K╱ // 0xb9c @0x5
0x0b97…0bbf at0006 = ╱33╱3╱ // 0xb9d @0x6
0x0b97…0bbf at0007 = ╱ef╱$╱ // 0xb9e @0x7
0x0b97…0bbf at0008 = ╱ec╱,╱ // 0xb9f @0x8
0x0b97…0bbf at0009 = ╱53╱S╱ // 0xba0 @0x9
0x0b97…0bbf at000a = ╱e2╱+╱ // 0xba1 @0xa
0x0b97…0bbf at000b = ╱47╱G╱ // 0xba2 @0xb
0x0b97…0bbf at000c = ╱f0╱:╱ // 0xba3 @0xc
0x0b97…0bbf at000d = ╱46╱F╱ // 0xba4 @0xd
0x0b97…0bbf at000e = ╱55╱U╱ // 0xba5 @0xe
0x0b97…0bbf at000f = ╱4b╱K╱ // 0xba6 @0xf
0x0b97…0bbf at0010 = ╱4f╱O╱ // 0xba7 @0x10
0x0b97…0bbf at0011 = ╱44╱D╱ // 0xba8 @0x11
0x0b97…0bbf at0012 = ╱45╱E╱ // 0xba9 @0x12
0x0b97…0bbf at0013 = ╱ef╱$╱ // 0xbaa @0x13
0x0b97…0bbf at0014 = ╱ec╱,╱ // 0xbab @0x14
0x0b97…0bbf at0015 = ╱46╱F╱ // 0xbac @0x15
0x0b97…0bbf at0016 = ╱5d╱Å╱ // 0xbad @0x16
0x0b97…0bbf at0017 = ╱44╱D╱ // 0xbae @0x17
0x0b97…0bbf at0018 = ╱45╱E╱ // 0xbaf @0x18
0x0b97…0bbf at0019 = ╱42╱B╱ // 0xbb0 @0x19
0x0b97…0bbf at001a = ╱45╱E╱ // 0xbb1 @0x1a
0x0b97…0bbf at001b = ╱54╱T╱ // 0xbb2 @0x1b
0x0b97…0bbf at001c = ╱ef╱$╱ // 0xbb3 @0x1c
0x0b97…0bbf at001d = ╱ec╱,╱ // 0xbb4 @0x1d
0x0b97…0bbf at001e = ╱46╱F╱ // 0xbb5 @0x1e
0x0b97…0bbf at001f = ╱5d╱Å╱ // 0xbb6 @0x1f
0x0b97…0bbf at0020 = ╱4b╱K╱ // 0xbb7 @0x20
0x0b97…0bbf at0021 = ╱52╱R╱ // 0xbb8 @0x21
0x0b97…0bbf at0022 = ╱45╱E╱ // 0xbb9 @0x22
0x0b97…0bbf at0023 = ╱44╱D╱ // 0xbba @0x23
0x0b97…0bbf at0024 = ╱49╱I╱ // 0xbbb @0x24
0x0b97…0bbf at0025 = ╱54╱T╱ // 0xbbc @0x25
0x0b97…0bbf at0026 = ╱ef╱$╱ // 0xbbd @0x26
0x0b97…0bbf at0027 = EOL // 0xbbe @0x27
0x0b97…0bbf }
0x0bbf…0bdc 9933 1210 EXEC FEJL(4,4,K3$)
0x0bbf…0bdc LineComalBin {
0x0bbf…0bdc ptr = 0x9933 // 0xbbf @0x0
0x0bbf…0bdc lno = 0x04ba // 0xbc1 @0x2
0x0bbf…0bdc at0004 = ╱9d╱ EXEC ╱ // 0xbc3 @0x4
0x0bbf…0bdc at0005 = ╱46╱F╱ // 0xbc4 @0x5
0x0bbf…0bdc at0006 = ╱45╱E╱ // 0xbc5 @0x6
0x0bbf…0bdc at0007 = ╱4a╱J╱ // 0xbc6 @0x7
0x0bbf…0bdc at0008 = ╱4c╱L╱ // 0xbc7 @0x8
0x0bbf…0bdc at0009 = ╱ed╱(╱ // 0xbc8 @0x9
0x0bbf…0bdc at000a = ╱34╱4╱ // 0xbc9 @0xa
0x0bbf…0bdc at000b = ╱fe00008003╱ // 0xbca @0xb
0x0bbf…0bdc at0010 = ╱ec╱,╱ // 0xbcf @0x10
0x0bbf…0bdc at0011 = ╱34╱4╱ // 0xbd0 @0x11
0x0bbf…0bdc at0012 = ╱fe00008003╱ // 0xbd1 @0x12
0x0bbf…0bdc at0017 = ╱ec╱,╱ // 0xbd6 @0x17
0x0bbf…0bdc at0018 = ╱4b╱K╱ // 0xbd7 @0x18
0x0bbf…0bdc at0019 = ╱33╱3╱ // 0xbd8 @0x19
0x0bbf…0bdc at001a = ╱ef╱$╱ // 0xbd9 @0x1a
0x0bbf…0bdc at001b = ╱ee╱)╱ // 0xbda @0x1b
0x0bbf…0bdc at001c = EOL // 0xbdb @0x1c
0x0bbf…0bdc }
0x0bdc…0be2 9939 1220 ENDPROC
0x0bdc…0be2 LineComalBin {
0x0bdc…0be2 ptr = 0x9939 // 0xbdc @0x0
0x0bdc…0be2 lno = 0x04c4 // 0xbde @0x2
0x0bdc…0be2 at0004 = ╱9f╱ ENDPROC ╱ // 0xbe0 @0x4
0x0bdc…0be2 at0005 = EOL // 0xbe1 @0x5
0x0bdc…0be2 }
0x0be2…0c01 9958 1230 PROC FINDTAST(FSTYR,FÆND,FNR2)
0x0be2…0c01 LineComalBin {
0x0be2…0c01 ptr = 0x9958 // 0xbe2 @0x0
0x0be2…0c01 lno = 0x04ce // 0xbe4 @0x2
0x0be2…0c01 at0004 = ╱9e╱ PROC ╱ // 0xbe6 @0x4
0x0be2…0c01 at0005 = ╱46╱F╱ // 0xbe7 @0x5
0x0be2…0c01 at0006 = ╱49╱I╱ // 0xbe8 @0x6
0x0be2…0c01 at0007 = ╱4e╱N╱ // 0xbe9 @0x7
0x0be2…0c01 at0008 = ╱44╱D╱ // 0xbea @0x8
0x0be2…0c01 at0009 = ╱54╱T╱ // 0xbeb @0x9
0x0be2…0c01 at000a = ╱41╱A╱ // 0xbec @0xa
0x0be2…0c01 at000b = ╱53╱S╱ // 0xbed @0xb
0x0be2…0c01 at000c = ╱54╱T╱ // 0xbee @0xc
0x0be2…0c01 at000d = ╱ed╱(╱ // 0xbef @0xd
0x0be2…0c01 at000e = ╱46╱F╱ // 0xbf0 @0xe
0x0be2…0c01 at000f = ╱53╱S╱ // 0xbf1 @0xf
0x0be2…0c01 at0010 = ╱54╱T╱ // 0xbf2 @0x10
0x0be2…0c01 at0011 = ╱59╱Y╱ // 0xbf3 @0x11
0x0be2…0c01 at0012 = ╱52╱R╱ // 0xbf4 @0x12
0x0be2…0c01 at0013 = ╱ec╱,╱ // 0xbf5 @0x13
0x0be2…0c01 at0014 = ╱46╱F╱ // 0xbf6 @0x14
0x0be2…0c01 at0015 = ╱5b╱Æ╱ // 0xbf7 @0x15
0x0be2…0c01 at0016 = ╱4e╱N╱ // 0xbf8 @0x16
0x0be2…0c01 at0017 = ╱44╱D╱ // 0xbf9 @0x17
0x0be2…0c01 at0018 = ╱ec╱,╱ // 0xbfa @0x18
0x0be2…0c01 at0019 = ╱46╱F╱ // 0xbfb @0x19
0x0be2…0c01 at001a = ╱4e╱N╱ // 0xbfc @0x1a
0x0be2…0c01 at001b = ╱52╱R╱ // 0xbfd @0x1b
0x0be2…0c01 at001c = ╱32╱2╱ // 0xbfe @0x1c
0x0be2…0c01 at001d = ╱ee╱)╱ // 0xbff @0x1d
0x0be2…0c01 at001e = EOL // 0xc00 @0x1e
0x0be2…0c01 }
0x0c01…0c0e 9965 1240 IF FÆND<>E THEN
0x0c01…0c0e LineComalBin {
0x0c01…0c0e ptr = 0x9965 // 0xc01 @0x0
0x0c01…0c0e lno = 0x04d8 // 0xc03 @0x2
0x0c01…0c0e at0004 = ╱9c╱ IF ╱ // 0xc05 @0x4
0x0c01…0c0e at0005 = ╱46╱F╱ // 0xc06 @0x5
0x0c01…0c0e at0006 = ╱5b╱Æ╱ // 0xc07 @0x6
0x0c01…0c0e at0007 = ╱4e╱N╱ // 0xc08 @0x7
0x0c01…0c0e at0008 = ╱44╱D╱ // 0xc09 @0x8
0x0c01…0c0e at0009 = ╱e1╱<>╱ // 0xc0a @0x9
0x0c01…0c0e at000a = ╱45╱E╱ // 0xc0b @0xa
0x0c01…0c0e at000b = ╱b6╱ THEN ╱ // 0xc0c @0xb
0x0c01…0c0e at000c = EOL // 0xc0d @0xc
0x0c01…0c0e }
0x0c0e…0c14 996b 1250 CLEAR
0x0c0e…0c14 LineComalBin {
0x0c0e…0c14 ptr = 0x996b // 0xc0e @0x0
0x0c0e…0c14 lno = 0x04e2 // 0xc10 @0x2
0x0c0e…0c14 at0004 = ╱a0╱ CLEAR ╱ // 0xc12 @0x4
0x0c0e…0c14 at0005 = EOL // 0xc13 @0x5
0x0c0e…0c14 }
0x0c14…0c23 997a 1260 CURSOR 21,E
0x0c14…0c23 LineComalBin {
0x0c14…0c23 ptr = 0x997a // 0xc14 @0x0
0x0c14…0c23 lno = 0x04ec // 0xc16 @0x2
0x0c14…0c23 at0004 = ╱a1╱ CURSOR ╱ // 0xc18 @0x4
0x0c14…0c23 at0005 = ╱32╱2╱ // 0xc19 @0x5
0x0c14…0c23 at0006 = ╱31╱1╱ // 0xc1a @0x6
0x0c14…0c23 at0007 = ╱fe0000a805╱ // 0xc1b @0x7
0x0c14…0c23 at000c = ╱ec╱,╱ // 0xc20 @0xc
0x0c14…0c23 at000d = ╱45╱E╱ // 0xc21 @0xd
0x0c14…0c23 at000e = EOL // 0xc22 @0xe
0x0c14…0c23 }
0x0c23…0c3b 9992 1270 PRINT "Kontooplysninger"
0x0c23…0c3b LineComalBin {
0x0c23…0c3b ptr = 0x9992 // 0xc23 @0x0
0x0c23…0c3b lno = 0x04f6 // 0xc25 @0x2
0x0c23…0c3b at0004 = ╱92╱ PRINT ╱ // 0xc27 @0x4
0x0c23…0c3b at0005 = ╱22╱"╱ // 0xc28 @0x5
0x0c23…0c3b at0006 = ╱4b╱K╱ // 0xc29 @0x6
0x0c23…0c3b at0007 = ╱6f╱o╱ // 0xc2a @0x7
0x0c23…0c3b at0008 = ╱6e╱n╱ // 0xc2b @0x8
0x0c23…0c3b at0009 = ╱74╱t╱ // 0xc2c @0x9
0x0c23…0c3b at000a = ╱6f╱o╱ // 0xc2d @0xa
0x0c23…0c3b at000b = ╱6f╱o╱ // 0xc2e @0xb
0x0c23…0c3b at000c = ╱70╱p╱ // 0xc2f @0xc
0x0c23…0c3b at000d = ╱6c╱l╱ // 0xc30 @0xd
0x0c23…0c3b at000e = ╱79╱y╱ // 0xc31 @0xe
0x0c23…0c3b at000f = ╱73╱s╱ // 0xc32 @0xf
0x0c23…0c3b at0010 = ╱6e╱n╱ // 0xc33 @0x10
0x0c23…0c3b at0011 = ╱69╱i╱ // 0xc34 @0x11
0x0c23…0c3b at0012 = ╱6e╱n╱ // 0xc35 @0x12
0x0c23…0c3b at0013 = ╱67╱g╱ // 0xc36 @0x13
0x0c23…0c3b at0014 = ╱65╱e╱ // 0xc37 @0x14
0x0c23…0c3b at0015 = ╱72╱r╱ // 0xc38 @0x15
0x0c23…0c3b at0016 = ╱22╱"╱ // 0xc39 @0x16
0x0c23…0c3b at0017 = EOL // 0xc3a @0x17
0x0c23…0c3b }
0x0c3b…0c4a 99a1 1280 EXEC VERSKRIFT
0x0c3b…0c4a LineComalBin {
0x0c3b…0c4a ptr = 0x99a1 // 0xc3b @0x0
0x0c3b…0c4a lno = 0x0500 // 0xc3d @0x2
0x0c3b…0c4a at0004 = ╱9d╱ EXEC ╱ // 0xc3f @0x4
0x0c3b…0c4a at0005 = ╱56╱V╱ // 0xc40 @0x5
0x0c3b…0c4a at0006 = ╱45╱E╱ // 0xc41 @0x6
0x0c3b…0c4a at0007 = ╱52╱R╱ // 0xc42 @0x7
0x0c3b…0c4a at0008 = ╱53╱S╱ // 0xc43 @0x8
0x0c3b…0c4a at0009 = ╱4b╱K╱ // 0xc44 @0x9
0x0c3b…0c4a at000a = ╱52╱R╱ // 0xc45 @0xa
0x0c3b…0c4a at000b = ╱49╱I╱ // 0xc46 @0xb
0x0c3b…0c4a at000c = ╱46╱F╱ // 0xc47 @0xc
0x0c3b…0c4a at000d = ╱54╱T╱ // 0xc48 @0xd
0x0c3b…0c4a at000e = EOL // 0xc49 @0xe
0x0c3b…0c4a }
0x0c4a…0c53 99aa 1290 CURSOR G,V
0x0c4a…0c53 LineComalBin {
0x0c4a…0c53 ptr = 0x99aa // 0xc4a @0x0
0x0c4a…0c53 lno = 0x050a // 0xc4c @0x2
0x0c4a…0c53 at0004 = ╱a1╱ CURSOR ╱ // 0xc4e @0x4
0x0c4a…0c53 at0005 = ╱47╱G╱ // 0xc4f @0x5
0x0c4a…0c53 at0006 = ╱ec╱,╱ // 0xc50 @0x6
0x0c4a…0c53 at0007 = ╱56╱V╱ // 0xc51 @0x7
0x0c4a…0c53 at0008 = EOL // 0xc52 @0x8
0x0c4a…0c53 }
0x0c53…0c78 99cf 1300 PRINT USING "1:Kontonr : ######":FNR2
0x0c53…0c78 LineComalBin {
0x0c53…0c78 ptr = 0x99cf // 0xc53 @0x0
0x0c53…0c78 lno = 0x0514 // 0xc55 @0x2
0x0c53…0c78 at0004 = ╱92╱ PRINT ╱ // 0xc57 @0x4
0x0c53…0c78 at0005 = ╱b9╱ USING ╱ // 0xc58 @0x5
0x0c53…0c78 at0006 = ╱22╱"╱ // 0xc59 @0x6
0x0c53…0c78 at0007 = ╱31╱1╱ // 0xc5a @0x7
0x0c53…0c78 at0008 = ╱3a╱:╱ // 0xc5b @0x8
0x0c53…0c78 at0009 = ╱4b╱K╱ // 0xc5c @0x9
0x0c53…0c78 at000a = ╱6f╱o╱ // 0xc5d @0xa
0x0c53…0c78 at000b = ╱6e╱n╱ // 0xc5e @0xb
0x0c53…0c78 at000c = ╱74╱t╱ // 0xc5f @0xc
0x0c53…0c78 at000d = ╱6f╱o╱ // 0xc60 @0xd
0x0c53…0c78 at000e = ╱6e╱n╱ // 0xc61 @0xe
0x0c53…0c78 at000f = ╱72╱r╱ // 0xc62 @0xf
0x0c53…0c78 at0010 = ╱20╱…╱ // 0xc63 @0x10
0x0c53…0c78 at0011 = ╱20╱…╱ // 0xc64 @0x11
0x0c53…0c78 at0012 = ╱20╱…╱ // 0xc65 @0x12
0x0c53…0c78 at0013 = ╱20╱…╱ // 0xc66 @0x13
0x0c53…0c78 at0014 = ╱20╱…╱ // 0xc67 @0x14
0x0c53…0c78 at0015 = ╱20╱…╱ // 0xc68 @0x15
0x0c53…0c78 at0016 = ╱3a╱:╱ // 0xc69 @0x16
0x0c53…0c78 at0017 = ╱20╱…╱ // 0xc6a @0x17
0x0c53…0c78 at0018 = ╱23╱#╱ // 0xc6b @0x18
0x0c53…0c78 at0019 = ╱23╱#╱ // 0xc6c @0x19
0x0c53…0c78 at001a = ╱23╱#╱ // 0xc6d @0x1a
0x0c53…0c78 at001b = ╱23╱#╱ // 0xc6e @0x1b
0x0c53…0c78 at001c = ╱23╱#╱ // 0xc6f @0x1c
0x0c53…0c78 at001d = ╱23╱#╱ // 0xc70 @0x1d
0x0c53…0c78 at001e = ╱22╱"╱ // 0xc71 @0x1e
0x0c53…0c78 at001f = ╱f0╱:╱ // 0xc72 @0x1f
0x0c53…0c78 at0020 = ╱46╱F╱ // 0xc73 @0x20
0x0c53…0c78 at0021 = ╱4e╱N╱ // 0xc74 @0x21
0x0c53…0c78 at0022 = ╱52╱R╱ // 0xc75 @0x22
0x0c53…0c78 at0023 = ╱32╱2╱ // 0xc76 @0x23
0x0c53…0c78 at0024 = EOL // 0xc77 @0x24
0x0c53…0c78 }
0x0c78…0c7e 99d5 1310 ENDIF
0x0c78…0c7e LineComalBin {
0x0c78…0c7e ptr = 0x99d5 // 0xc78 @0x0
0x0c78…0c7e lno = 0x051e // 0xc7a @0x2
0x0c78…0c7e at0004 = ╱9b╱ ENDIF ╱ // 0xc7c @0x4
0x0c78…0c7e at0005 = EOL // 0xc7d @0x5
0x0c78…0c7e }
0x0c7e…0c84 99db 1320 REPEAT
0x0c7e…0c84 LineComalBin {
0x0c7e…0c84 ptr = 0x99db // 0xc7e @0x0
0x0c7e…0c84 lno = 0x0528 // 0xc80 @0x2
0x0c7e…0c84 at0004 = ╱97╱ REPEAT ╱ // 0xc82 @0x4
0x0c7e…0c84 at0005 = EOL // 0xc83 @0x5
0x0c7e…0c84 }
0x0c84…0c91 99e8 1330 CASE FSTYR OF
0x0c84…0c91 LineComalBin {
0x0c84…0c91 ptr = 0x99e8 // 0xc84 @0x0
0x0c84…0c91 lno = 0x0532 // 0xc86 @0x2
0x0c84…0c91 at0004 = ╱a201╱ CASE ╱ // 0xc88 @0x4
0x0c84…0c91 at0006 = ╱46╱F╱ // 0xc8a @0x6
0x0c84…0c91 at0007 = ╱53╱S╱ // 0xc8b @0x7
0x0c84…0c91 at0008 = ╱54╱T╱ // 0xc8c @0x8
0x0c84…0c91 at0009 = ╱59╱Y╱ // 0xc8d @0x9
0x0c84…0c91 at000a = ╱52╱R╱ // 0xc8e @0xa
0x0c84…0c91 at000b = ╱ba╱ OF ╱ // 0xc8f @0xb
0x0c84…0c91 at000c = EOL // 0xc90 @0xc
0x0c84…0c91 }
0x0c91…0c97 99ee 1340 STOP
0x0c91…0c97 LineComalBin {
0x0c91…0c97 ptr = 0x99ee // 0xc91 @0x0
0x0c91…0c97 lno = 0x053c // 0xc93 @0x2
0x0c91…0c97 at0004 = ╱8d╱ STOP ╱ // 0xc95 @0x4
0x0c91…0c97 at0005 = EOL // 0xc96 @0x5
0x0c91…0c97 }
0x0c97…0c9f 99f6 1350 WHEN G
0x0c97…0c9f LineComalBin {
0x0c97…0c9f ptr = 0x99f6 // 0xc97 @0x0
0x0c97…0c9f lno = 0x0546 // 0xc99 @0x2
0x0c97…0c9f at0004 = ╱a301╱ WHEN ╱ // 0xc9b @0x4
0x0c97…0c9f at0006 = ╱47╱G╱ // 0xc9d @0x6
0x0c97…0c9f at0007 = EOL // 0xc9e @0x7
0x0c97…0c9f }
0x0c9f…0cac 9a03 1360 IF FÆND<>E THEN
0x0c9f…0cac LineComalBin {
0x0c9f…0cac ptr = 0x9a03 // 0xc9f @0x0
0x0c9f…0cac lno = 0x0550 // 0xca1 @0x2
0x0c9f…0cac at0004 = ╱9c╱ IF ╱ // 0xca3 @0x4
0x0c9f…0cac at0005 = ╱46╱F╱ // 0xca4 @0x5
0x0c9f…0cac at0006 = ╱5b╱Æ╱ // 0xca5 @0x6
0x0c9f…0cac at0007 = ╱4e╱N╱ // 0xca6 @0x7
0x0c9f…0cac at0008 = ╱44╱D╱ // 0xca7 @0x8
0x0c9f…0cac at0009 = ╱e1╱<>╱ // 0xca8 @0x9
0x0c9f…0cac at000a = ╱45╱E╱ // 0xca9 @0xa
0x0c9f…0cac at000b = ╱b6╱ THEN ╱ // 0xcaa @0xb
0x0c9f…0cac at000c = EOL // 0xcab @0xc
0x0c9f…0cac }
0x0cac…0cba 9a11 1370 CURSOR G,5
0x0cac…0cba LineComalBin {
0x0cac…0cba ptr = 0x9a11 // 0xcac @0x0
0x0cac…0cba lno = 0x055a // 0xcae @0x2
0x0cac…0cba at0004 = ╱a1╱ CURSOR ╱ // 0xcb0 @0x4
0x0cac…0cba at0005 = ╱47╱G╱ // 0xcb1 @0x5
0x0cac…0cba at0006 = ╱ec╱,╱ // 0xcb2 @0x6
0x0cac…0cba at0007 = ╱35╱5╱ // 0xcb3 @0x7
0x0cac…0cba at0008 = ╱fe0000a003╱ // 0xcb4 @0x8
0x0cac…0cba at000d = EOL // 0xcb9 @0xd
0x0cac…0cba }
0x0cba…0cd2 9a29 1380 PRINT "2:Kontonavn :"
0x0cba…0cd2 LineComalBin {
0x0cba…0cd2 ptr = 0x9a29 // 0xcba @0x0
0x0cba…0cd2 lno = 0x0564 // 0xcbc @0x2
0x0cba…0cd2 at0004 = ╱92╱ PRINT ╱ // 0xcbe @0x4
0x0cba…0cd2 at0005 = ╱22╱"╱ // 0xcbf @0x5
0x0cba…0cd2 at0006 = ╱32╱2╱ // 0xcc0 @0x6
0x0cba…0cd2 at0007 = ╱3a╱:╱ // 0xcc1 @0x7
0x0cba…0cd2 at0008 = ╱4b╱K╱ // 0xcc2 @0x8
0x0cba…0cd2 at0009 = ╱6f╱o╱ // 0xcc3 @0x9
0x0cba…0cd2 at000a = ╱6e╱n╱ // 0xcc4 @0xa
0x0cba…0cd2 at000b = ╱74╱t╱ // 0xcc5 @0xb
0x0cba…0cd2 at000c = ╱6f╱o╱ // 0xcc6 @0xc
0x0cba…0cd2 at000d = ╱6e╱n╱ // 0xcc7 @0xd
0x0cba…0cd2 at000e = ╱61╱a╱ // 0xcc8 @0xe
0x0cba…0cd2 at000f = ╱76╱v╱ // 0xcc9 @0xf
0x0cba…0cd2 at0010 = ╱6e╱n╱ // 0xcca @0x10
0x0cba…0cd2 at0011 = ╱20╱…╱ // 0xccb @0x11
0x0cba…0cd2 at0012 = ╱20╱…╱ // 0xccc @0x12
0x0cba…0cd2 at0013 = ╱20╱…╱ // 0xccd @0x13
0x0cba…0cd2 at0014 = ╱20╱…╱ // 0xcce @0x14
0x0cba…0cd2 at0015 = ╱3a╱:╱ // 0xccf @0x15
0x0cba…0cd2 at0016 = ╱22╱"╱ // 0xcd0 @0x16
0x0cba…0cd2 at0017 = EOL // 0xcd1 @0x17
0x0cba…0cd2 }
0x0cd2…0cde 9a35 1390 FSTYR=V
0x0cd2…0cde LineComalBin {
0x0cd2…0cde ptr = 0x9a35 // 0xcd2 @0x0
0x0cd2…0cde lno = 0x056e // 0xcd4 @0x2
0x0cd2…0cde at0004 = ╱46╱F╱ // 0xcd6 @0x4
0x0cd2…0cde at0005 = ╱53╱S╱ // 0xcd7 @0x5
0x0cd2…0cde at0006 = ╱54╱T╱ // 0xcd8 @0x6
0x0cd2…0cde at0007 = ╱59╱Y╱ // 0xcd9 @0x7
0x0cd2…0cde at0008 = ╱52╱R╱ // 0xcda @0x8
0x0cd2…0cde at0009 = ╱dc╱=╱ // 0xcdb @0x9
0x0cd2…0cde at000a = ╱56╱V╱ // 0xcdc @0xa
0x0cd2…0cde at000b = EOL // 0xcdd @0xb
0x0cd2…0cde }
0x0cde…0ce4 9a3b 1400 ENDIF
0x0cde…0ce4 LineComalBin {
0x0cde…0ce4 ptr = 0x9a3b // 0xcde @0x0
0x0cde…0ce4 lno = 0x0578 // 0xce0 @0x2
0x0cde…0ce4 at0004 = ╱9b╱ ENDIF ╱ // 0xce2 @0x4
0x0cde…0ce4 at0005 = EOL // 0xce3 @0x5
0x0cde…0ce4 }
0x0ce4…0cf1 9a48 1410 IF FÆND<>G THEN
0x0ce4…0cf1 LineComalBin {
0x0ce4…0cf1 ptr = 0x9a48 // 0xce4 @0x0
0x0ce4…0cf1 lno = 0x0582 // 0xce6 @0x2
0x0ce4…0cf1 at0004 = ╱9c╱ IF ╱ // 0xce8 @0x4
0x0ce4…0cf1 at0005 = ╱46╱F╱ // 0xce9 @0x5
0x0ce4…0cf1 at0006 = ╱5b╱Æ╱ // 0xcea @0x6
0x0ce4…0cf1 at0007 = ╱4e╱N╱ // 0xceb @0x7
0x0ce4…0cf1 at0008 = ╱44╱D╱ // 0xcec @0x8
0x0ce4…0cf1 at0009 = ╱e1╱<>╱ // 0xced @0x9
0x0ce4…0cf1 at000a = ╱47╱G╱ // 0xcee @0xa
0x0ce4…0cf1 at000b = ╱b6╱ THEN ╱ // 0xcef @0xb
0x0ce4…0cf1 at000c = EOL // 0xcf0 @0xc
0x0ce4…0cf1 }
0x0cf1…0d00 9a57 1420 CURSOR V,23
0x0cf1…0d00 LineComalBin {
0x0cf1…0d00 ptr = 0x9a57 // 0xcf1 @0x0
0x0cf1…0d00 lno = 0x058c // 0xcf3 @0x2
0x0cf1…0d00 at0004 = ╱a1╱ CURSOR ╱ // 0xcf5 @0x4
0x0cf1…0d00 at0005 = ╱56╱V╱ // 0xcf6 @0x5
0x0cf1…0d00 at0006 = ╱ec╱,╱ // 0xcf7 @0x6
0x0cf1…0d00 at0007 = ╱32╱2╱ // 0xcf8 @0x7
0x0cf1…0d00 at0008 = ╱33╱3╱ // 0xcf9 @0x8
0x0cf1…0d00 at0009 = ╱fe0000b805╱ // 0xcfa @0x9
0x0cf1…0d00 at000e = EOL // 0xcff @0xe
0x0cf1…0d00 }
0x0d00…0d45 9a9c 1430 PRINT "Kontonavn";BLANK$(E:29);"(max 25 tegn)";BLANK$(E:25)
0x0d00…0d45 LineComalBin {
0x0d00…0d45 ptr = 0x9a9c // 0xd00 @0x0
0x0d00…0d45 lno = 0x0596 // 0xd02 @0x2
0x0d00…0d45 at0004 = ╱92╱ PRINT ╱ // 0xd04 @0x4
0x0d00…0d45 at0005 = ╱22╱"╱ // 0xd05 @0x5
0x0d00…0d45 at0006 = ╱4b╱K╱ // 0xd06 @0x6
0x0d00…0d45 at0007 = ╱6f╱o╱ // 0xd07 @0x7
0x0d00…0d45 at0008 = ╱6e╱n╱ // 0xd08 @0x8
0x0d00…0d45 at0009 = ╱74╱t╱ // 0xd09 @0x9
0x0d00…0d45 at000a = ╱6f╱o╱ // 0xd0a @0xa
0x0d00…0d45 at000b = ╱6e╱n╱ // 0xd0b @0xb
0x0d00…0d45 at000c = ╱61╱a╱ // 0xd0c @0xc
0x0d00…0d45 at000d = ╱76╱v╱ // 0xd0d @0xd
0x0d00…0d45 at000e = ╱6e╱n╱ // 0xd0e @0xe
0x0d00…0d45 at000f = ╱22╱"╱ // 0xd0f @0xf
0x0d00…0d45 at0010 = ╱eb╱;╱ // 0xd10 @0x10
0x0d00…0d45 at0011 = ╱42╱B╱ // 0xd11 @0x11
0x0d00…0d45 at0012 = ╱4c╱L╱ // 0xd12 @0x12
0x0d00…0d45 at0013 = ╱41╱A╱ // 0xd13 @0x13
0x0d00…0d45 at0014 = ╱4e╱N╱ // 0xd14 @0x14
0x0d00…0d45 at0015 = ╱4b╱K╱ // 0xd15 @0x15
0x0d00…0d45 at0016 = ╱ef╱$╱ // 0xd16 @0x16
0x0d00…0d45 at0017 = ╱ed╱(╱ // 0xd17 @0x17
0x0d00…0d45 at0018 = ╱45╱E╱ // 0xd18 @0x18
0x0d00…0d45 at0019 = ╱f0╱:╱ // 0xd19 @0x19
0x0d00…0d45 at001a = ╱32╱2╱ // 0xd1a @0x1a
0x0d00…0d45 at001b = ╱39╱9╱ // 0xd1b @0x1b
0x0d00…0d45 at001c = ╱fe0000e805╱ // 0xd1c @0x1c
0x0d00…0d45 at0021 = ╱ee╱)╱ // 0xd21 @0x21
0x0d00…0d45 at0022 = ╱eb╱;╱ // 0xd22 @0x22
0x0d00…0d45 at0023 = ╱22╱"╱ // 0xd23 @0x23
0x0d00…0d45 at0024 = ╱28╱(╱ // 0xd24 @0x24
0x0d00…0d45 at0025 = ╱6d╱m╱ // 0xd25 @0x25
0x0d00…0d45 at0026 = ╱61╱a╱ // 0xd26 @0x26
0x0d00…0d45 at0027 = ╱78╱x╱ // 0xd27 @0x27
0x0d00…0d45 at0028 = ╱20╱…╱ // 0xd28 @0x28
0x0d00…0d45 at0029 = ╱32╱2╱ // 0xd29 @0x29
0x0d00…0d45 at002a = ╱35╱5╱ // 0xd2a @0x2a
0x0d00…0d45 at002b = ╱20╱…╱ // 0xd2b @0x2b
0x0d00…0d45 at002c = ╱74╱t╱ // 0xd2c @0x2c
0x0d00…0d45 at002d = ╱65╱e╱ // 0xd2d @0x2d
0x0d00…0d45 at002e = ╱67╱g╱ // 0xd2e @0x2e
0x0d00…0d45 at002f = ╱6e╱n╱ // 0xd2f @0x2f
0x0d00…0d45 at0030 = ╱29╱)╱ // 0xd30 @0x30
0x0d00…0d45 at0031 = ╱22╱"╱ // 0xd31 @0x31
0x0d00…0d45 at0032 = ╱eb╱;╱ // 0xd32 @0x32
0x0d00…0d45 at0033 = ╱42╱B╱ // 0xd33 @0x33
0x0d00…0d45 at0034 = ╱4c╱L╱ // 0xd34 @0x34
0x0d00…0d45 at0035 = ╱41╱A╱ // 0xd35 @0x35
0x0d00…0d45 at0036 = ╱4e╱N╱ // 0xd36 @0x36
0x0d00…0d45 at0037 = ╱4b╱K╱ // 0xd37 @0x37
0x0d00…0d45 at0038 = ╱ef╱$╱ // 0xd38 @0x38
0x0d00…0d45 at0039 = ╱ed╱(╱ // 0xd39 @0x39
0x0d00…0d45 at003a = ╱45╱E╱ // 0xd3a @0x3a
0x0d00…0d45 at003b = ╱f0╱:╱ // 0xd3b @0x3b
0x0d00…0d45 at003c = ╱32╱2╱ // 0xd3c @0x3c
0x0d00…0d45 at003d = ╱35╱5╱ // 0xd3d @0x3d
0x0d00…0d45 at003e = ╱fe0000c805╱ // 0xd3e @0x3e
0x0d00…0d45 at0043 = ╱ee╱)╱ // 0xd43 @0x43
0x0d00…0d45 at0044 = EOL // 0xd44 @0x44
0x0d00…0d45 }
0x0d45…0d5a 9ab1 1440 CURSOR 13,23
0x0d45…0d5a LineComalBin {
0x0d45…0d5a ptr = 0x9ab1 // 0xd45 @0x0
0x0d45…0d5a lno = 0x05a0 // 0xd47 @0x2
0x0d45…0d5a at0004 = ╱a1╱ CURSOR ╱ // 0xd49 @0x4
0x0d45…0d5a at0005 = ╱31╱1╱ // 0xd4a @0x5
0x0d45…0d5a at0006 = ╱33╱3╱ // 0xd4b @0x6
0x0d45…0d5a at0007 = ╱fe0000d004╱ // 0xd4c @0x7
0x0d45…0d5a at000c = ╱ec╱,╱ // 0xd51 @0xc
0x0d45…0d5a at000d = ╱32╱2╱ // 0xd52 @0xd
0x0d45…0d5a at000e = ╱33╱3╱ // 0xd53 @0xe
0x0d45…0d5a at000f = ╱fe0000b805╱ // 0xd54 @0xf
0x0d45…0d5a at0014 = EOL // 0xd59 @0x14
0x0d45…0d5a }
0x0d5a…0d66 9abd 1450 INPUT FNAVN$
0x0d5a…0d66 LineComalBin {
0x0d5a…0d66 ptr = 0x9abd // 0xd5a @0x0
0x0d5a…0d66 lno = 0x05aa // 0xd5c @0x2
0x0d5a…0d66 at0004 = ╱91╱ INPUT ╱ // 0xd5e @0x4
0x0d5a…0d66 at0005 = ╱46╱F╱ // 0xd5f @0x5
0x0d5a…0d66 at0006 = ╱4e╱N╱ // 0xd60 @0x6
0x0d5a…0d66 at0007 = ╱41╱A╱ // 0xd61 @0x7
0x0d5a…0d66 at0008 = ╱56╱V╱ // 0xd62 @0x8
0x0d5a…0d66 at0009 = ╱4e╱N╱ // 0xd63 @0x9
0x0d5a…0d66 at000a = ╱ef╱$╱ // 0xd64 @0xa
0x0d5a…0d66 at000b = EOL // 0xd65 @0xb
0x0d5a…0d66 }
0x0d66…0d6c 9ac3 1460 ENDIF
0x0d66…0d6c LineComalBin {
0x0d66…0d6c ptr = 0x9ac3 // 0xd66 @0x0
0x0d66…0d6c lno = 0x05b4 // 0xd68 @0x2
0x0d66…0d6c at0004 = ╱9b╱ ENDIF ╱ // 0xd6a @0x4
0x0d66…0d6c at0005 = EOL // 0xd6b @0x5
0x0d66…0d6c }
0x0d6c…0d80 9ad7 1470 CURSOR 19,5
0x0d6c…0d80 LineComalBin {
0x0d6c…0d80 ptr = 0x9ad7 // 0xd6c @0x0
0x0d6c…0d80 lno = 0x05be // 0xd6e @0x2
0x0d6c…0d80 at0004 = ╱a1╱ CURSOR ╱ // 0xd70 @0x4
0x0d6c…0d80 at0005 = ╱31╱1╱ // 0xd71 @0x5
0x0d6c…0d80 at0006 = ╱39╱9╱ // 0xd72 @0x6
0x0d6c…0d80 at0007 = ╱fe00009805╱ // 0xd73 @0x7
0x0d6c…0d80 at000c = ╱ec╱,╱ // 0xd78 @0xc
0x0d6c…0d80 at000d = ╱35╱5╱ // 0xd79 @0xd
0x0d6c…0d80 at000e = ╱fe0000a003╱ // 0xd7a @0xe
0x0d6c…0d80 at0013 = EOL // 0xd7f @0x13
0x0d6c…0d80 }
0x0d80…0d97 9aee 1480 PRINT BLANK$(E:25)
0x0d80…0d97 LineComalBin {
0x0d80…0d97 ptr = 0x9aee // 0xd80 @0x0
0x0d80…0d97 lno = 0x05c8 // 0xd82 @0x2
0x0d80…0d97 at0004 = ╱92╱ PRINT ╱ // 0xd84 @0x4
0x0d80…0d97 at0005 = ╱42╱B╱ // 0xd85 @0x5
0x0d80…0d97 at0006 = ╱4c╱L╱ // 0xd86 @0x6
0x0d80…0d97 at0007 = ╱41╱A╱ // 0xd87 @0x7
0x0d80…0d97 at0008 = ╱4e╱N╱ // 0xd88 @0x8
0x0d80…0d97 at0009 = ╱4b╱K╱ // 0xd89 @0x9
0x0d80…0d97 at000a = ╱ef╱$╱ // 0xd8a @0xa
0x0d80…0d97 at000b = ╱ed╱(╱ // 0xd8b @0xb
0x0d80…0d97 at000c = ╱45╱E╱ // 0xd8c @0xc
0x0d80…0d97 at000d = ╱f0╱:╱ // 0xd8d @0xd
0x0d80…0d97 at000e = ╱32╱2╱ // 0xd8e @0xe
0x0d80…0d97 at000f = ╱35╱5╱ // 0xd8f @0xf
0x0d80…0d97 at0010 = ╱fe0000c805╱ // 0xd90 @0x10
0x0d80…0d97 at0015 = ╱ee╱)╱ // 0xd95 @0x15
0x0d80…0d97 at0016 = EOL // 0xd96 @0x16
0x0d80…0d97 }
0x0d97…0dab 9b02 1490 CURSOR 19,5
0x0d97…0dab LineComalBin {
0x0d97…0dab ptr = 0x9b02 // 0xd97 @0x0
0x0d97…0dab lno = 0x05d2 // 0xd99 @0x2
0x0d97…0dab at0004 = ╱a1╱ CURSOR ╱ // 0xd9b @0x4
0x0d97…0dab at0005 = ╱31╱1╱ // 0xd9c @0x5
0x0d97…0dab at0006 = ╱39╱9╱ // 0xd9d @0x6
0x0d97…0dab at0007 = ╱fe00009805╱ // 0xd9e @0x7
0x0d97…0dab at000c = ╱ec╱,╱ // 0xda3 @0xc
0x0d97…0dab at000d = ╱35╱5╱ // 0xda4 @0xd
0x0d97…0dab at000e = ╱fe0000a003╱ // 0xda5 @0xe
0x0d97…0dab at0013 = EOL // 0xdaa @0x13
0x0d97…0dab }
0x0dab…0db7 9b0e 1500 PRINT FNAVN$
0x0dab…0db7 LineComalBin {
0x0dab…0db7 ptr = 0x9b0e // 0xdab @0x0
0x0dab…0db7 lno = 0x05dc // 0xdad @0x2
0x0dab…0db7 at0004 = ╱92╱ PRINT ╱ // 0xdaf @0x4
0x0dab…0db7 at0005 = ╱46╱F╱ // 0xdb0 @0x5
0x0dab…0db7 at0006 = ╱4e╱N╱ // 0xdb1 @0x6
0x0dab…0db7 at0007 = ╱41╱A╱ // 0xdb2 @0x7
0x0dab…0db7 at0008 = ╱56╱V╱ // 0xdb3 @0x8
0x0dab…0db7 at0009 = ╱4e╱N╱ // 0xdb4 @0x9
0x0dab…0db7 at000a = ╱ef╱$╱ // 0xdb5 @0xa
0x0dab…0db7 at000b = EOL // 0xdb6 @0xb
0x0dab…0db7 }
0x0db7…0dc4 9b1b 1510 WHEN 4
0x0db7…0dc4 LineComalBin {
0x0db7…0dc4 ptr = 0x9b1b // 0xdb7 @0x0
0x0db7…0dc4 lno = 0x05e6 // 0xdb9 @0x2
0x0db7…0dc4 at0004 = ╱a301╱ WHEN ╱ // 0xdbb @0x4
0x0db7…0dc4 at0006 = ╱34╱4╱ // 0xdbd @0x6
0x0db7…0dc4 at0007 = ╱fe00008003╱ // 0xdbe @0x7
0x0db7…0dc4 at000c = EOL // 0xdc3 @0xc
0x0db7…0dc4 }
0x0dc4…0ddd 9b34 1520 IF ORD(FUKODE$)=48 THEN
0x0dc4…0ddd LineComalBin {
0x0dc4…0ddd ptr = 0x9b34 // 0xdc4 @0x0
0x0dc4…0ddd lno = 0x05f0 // 0xdc6 @0x2
0x0dc4…0ddd at0004 = ╱9c╱ IF ╱ // 0xdc8 @0x4
0x0dc4…0ddd at0005 = ╱cd╱ORD╱ // 0xdc9 @0x5
0x0dc4…0ddd at0006 = ╱ed╱(╱ // 0xdca @0x6
0x0dc4…0ddd at0007 = ╱46╱F╱ // 0xdcb @0x7
0x0dc4…0ddd at0008 = ╱55╱U╱ // 0xdcc @0x8
0x0dc4…0ddd at0009 = ╱4b╱K╱ // 0xdcd @0x9
0x0dc4…0ddd at000a = ╱4f╱O╱ // 0xdce @0xa
0x0dc4…0ddd at000b = ╱44╱D╱ // 0xdcf @0xb
0x0dc4…0ddd at000c = ╱45╱E╱ // 0xdd0 @0xc
0x0dc4…0ddd at000d = ╱ef╱$╱ // 0xdd1 @0xd
0x0dc4…0ddd at000e = ╱ee╱)╱ // 0xdd2 @0xe
0x0dc4…0ddd at000f = ╱dc╱=╱ // 0xdd3 @0xf
0x0dc4…0ddd at0010 = ╱34╱4╱ // 0xdd4 @0x10
0x0dc4…0ddd at0011 = ╱38╱8╱ // 0xdd5 @0x11
0x0dc4…0ddd at0012 = ╱fe0000c006╱ // 0xdd6 @0x12
0x0dc4…0ddd at0017 = ╱b6╱ THEN ╱ // 0xddb @0x17
0x0dc4…0ddd at0018 = EOL // 0xddc @0x18
0x0dc4…0ddd }
0x0ddd…0dea 9b41 1530 IF FÆND<>E THEN
0x0ddd…0dea LineComalBin {
0x0ddd…0dea ptr = 0x9b41 // 0xddd @0x0
0x0ddd…0dea lno = 0x05fa // 0xddf @0x2
0x0ddd…0dea at0004 = ╱9c╱ IF ╱ // 0xde1 @0x4
0x0ddd…0dea at0005 = ╱46╱F╱ // 0xde2 @0x5
0x0ddd…0dea at0006 = ╱5b╱Æ╱ // 0xde3 @0x6
0x0ddd…0dea at0007 = ╱4e╱N╱ // 0xde4 @0x7
0x0ddd…0dea at0008 = ╱44╱D╱ // 0xde5 @0x8
0x0ddd…0dea at0009 = ╱e1╱<>╱ // 0xde6 @0x9
0x0ddd…0dea at000a = ╱45╱E╱ // 0xde7 @0xa
0x0ddd…0dea at000b = ╱b6╱ THEN ╱ // 0xde8 @0xb
0x0ddd…0dea at000c = EOL // 0xde9 @0xc
0x0ddd…0dea }
0x0dea…0df3 9b4a 1540 CURSOR G,W
0x0dea…0df3 LineComalBin {
0x0dea…0df3 ptr = 0x9b4a // 0xdea @0x0
0x0dea…0df3 lno = 0x0604 // 0xdec @0x2
0x0dea…0df3 at0004 = ╱a1╱ CURSOR ╱ // 0xdee @0x4
0x0dea…0df3 at0005 = ╱47╱G╱ // 0xdef @0x5
0x0dea…0df3 at0006 = ╱ec╱,╱ // 0xdf0 @0x6
0x0dea…0df3 at0007 = ╱57╱W╱ // 0xdf1 @0x7
0x0dea…0df3 at0008 = EOL // 0xdf2 @0x8
0x0dea…0df3 }
0x0df3…0e0b 9b62 1550 PRINT "4:Momskode :"
0x0df3…0e0b LineComalBin {
0x0df3…0e0b ptr = 0x9b62 // 0xdf3 @0x0
0x0df3…0e0b lno = 0x060e // 0xdf5 @0x2
0x0df3…0e0b at0004 = ╱92╱ PRINT ╱ // 0xdf7 @0x4
0x0df3…0e0b at0005 = ╱22╱"╱ // 0xdf8 @0x5
0x0df3…0e0b at0006 = ╱34╱4╱ // 0xdf9 @0x6
0x0df3…0e0b at0007 = ╱3a╱:╱ // 0xdfa @0x7
0x0df3…0e0b at0008 = ╱4d╱M╱ // 0xdfb @0x8
0x0df3…0e0b at0009 = ╱6f╱o╱ // 0xdfc @0x9
0x0df3…0e0b at000a = ╱6d╱m╱ // 0xdfd @0xa
0x0df3…0e0b at000b = ╱73╱s╱ // 0xdfe @0xb
0x0df3…0e0b at000c = ╱6b╱k╱ // 0xdff @0xc
0x0df3…0e0b at000d = ╱6f╱o╱ // 0xe00 @0xd
0x0df3…0e0b at000e = ╱64╱d╱ // 0xe01 @0xe
0x0df3…0e0b at000f = ╱65╱e╱ // 0xe02 @0xf
0x0df3…0e0b at0010 = ╱20╱…╱ // 0xe03 @0x10
0x0df3…0e0b at0011 = ╱20╱…╱ // 0xe04 @0x11
0x0df3…0e0b at0012 = ╱20╱…╱ // 0xe05 @0x12
0x0df3…0e0b at0013 = ╱20╱…╱ // 0xe06 @0x13
0x0df3…0e0b at0014 = ╱20╱…╱ // 0xe07 @0x14
0x0df3…0e0b at0015 = ╱3a╱:╱ // 0xe08 @0x15
0x0df3…0e0b at0016 = ╱22╱"╱ // 0xe09 @0x16
0x0df3…0e0b at0017 = EOL // 0xe0a @0x17
0x0df3…0e0b }
0x0e0b…0e11 9b68 1560 ENDIF
0x0e0b…0e11 LineComalBin {
0x0e0b…0e11 ptr = 0x9b68 // 0xe0b @0x0
0x0e0b…0e11 lno = 0x0618 // 0xe0d @0x2
0x0e0b…0e11 at0004 = ╱9b╱ ENDIF ╱ // 0xe0f @0x4
0x0e0b…0e11 at0005 = EOL // 0xe10 @0x5
0x0e0b…0e11 }
0x0e11…0e1e 9b75 1570 IF FÆND<>G THEN
0x0e11…0e1e LineComalBin {
0x0e11…0e1e ptr = 0x9b75 // 0xe11 @0x0
0x0e11…0e1e lno = 0x0622 // 0xe13 @0x2
0x0e11…0e1e at0004 = ╱9c╱ IF ╱ // 0xe15 @0x4
0x0e11…0e1e at0005 = ╱46╱F╱ // 0xe16 @0x5
0x0e11…0e1e at0006 = ╱5b╱Æ╱ // 0xe17 @0x6
0x0e11…0e1e at0007 = ╱4e╱N╱ // 0xe18 @0x7
0x0e11…0e1e at0008 = ╱44╱D╱ // 0xe19 @0x8
0x0e11…0e1e at0009 = ╱e1╱<>╱ // 0xe1a @0x9
0x0e11…0e1e at000a = ╱47╱G╱ // 0xe1b @0xa
0x0e11…0e1e at000b = ╱b6╱ THEN ╱ // 0xe1c @0xb
0x0e11…0e1e at000c = EOL // 0xe1d @0xc
0x0e11…0e1e }
0x0e1e…0e24 9b7b 1580 REPEAT
0x0e1e…0e24 LineComalBin {
0x0e1e…0e24 ptr = 0x9b7b // 0xe1e @0x0
0x0e1e…0e24 lno = 0x062c // 0xe20 @0x2
0x0e1e…0e24 at0004 = ╱97╱ REPEAT ╱ // 0xe22 @0x4
0x0e1e…0e24 at0005 = EOL // 0xe23 @0x5
0x0e1e…0e24 }
0x0e24…0e33 9b8a 1590 CURSOR V,23
0x0e24…0e33 LineComalBin {
0x0e24…0e33 ptr = 0x9b8a // 0xe24 @0x0
0x0e24…0e33 lno = 0x0636 // 0xe26 @0x2
0x0e24…0e33 at0004 = ╱a1╱ CURSOR ╱ // 0xe28 @0x4
0x0e24…0e33 at0005 = ╱56╱V╱ // 0xe29 @0x5
0x0e24…0e33 at0006 = ╱ec╱,╱ // 0xe2a @0x6
0x0e24…0e33 at0007 = ╱32╱2╱ // 0xe2b @0x7
0x0e24…0e33 at0008 = ╱33╱3╱ // 0xe2c @0x8
0x0e24…0e33 at0009 = ╱fe0000b805╱ // 0xe2d @0x9
0x0e24…0e33 at000e = EOL // 0xe32 @0xe
0x0e24…0e33 }
0x0e33…0e6c 9bc3 1600 PRINT "Momskode (0:ingen moms,1:indgående afgift,";
0x0e33…0e6c LineComalBin {
0x0e33…0e6c ptr = 0x9bc3 // 0xe33 @0x0
0x0e33…0e6c lno = 0x0640 // 0xe35 @0x2
0x0e33…0e6c at0004 = ╱92╱ PRINT ╱ // 0xe37 @0x4
0x0e33…0e6c at0005 = ╱22╱"╱ // 0xe38 @0x5
0x0e33…0e6c at0006 = ╱4d╱M╱ // 0xe39 @0x6
0x0e33…0e6c at0007 = ╱6f╱o╱ // 0xe3a @0x7
0x0e33…0e6c at0008 = ╱6d╱m╱ // 0xe3b @0x8
0x0e33…0e6c at0009 = ╱73╱s╱ // 0xe3c @0x9
0x0e33…0e6c at000a = ╱6b╱k╱ // 0xe3d @0xa
0x0e33…0e6c at000b = ╱6f╱o╱ // 0xe3e @0xb
0x0e33…0e6c at000c = ╱64╱d╱ // 0xe3f @0xc
0x0e33…0e6c at000d = ╱65╱e╱ // 0xe40 @0xd
0x0e33…0e6c at000e = ╱20╱…╱ // 0xe41 @0xe
0x0e33…0e6c at000f = ╱20╱…╱ // 0xe42 @0xf
0x0e33…0e6c at0010 = ╱20╱…╱ // 0xe43 @0x10
0x0e33…0e6c at0011 = ╱20╱…╱ // 0xe44 @0x11
0x0e33…0e6c at0012 = ╱20╱…╱ // 0xe45 @0x12
0x0e33…0e6c at0013 = ╱20╱…╱ // 0xe46 @0x13
0x0e33…0e6c at0014 = ╱20╱…╱ // 0xe47 @0x14
0x0e33…0e6c at0015 = ╱28╱(╱ // 0xe48 @0x15
0x0e33…0e6c at0016 = ╱30╱0╱ // 0xe49 @0x16
0x0e33…0e6c at0017 = ╱3a╱:╱ // 0xe4a @0x17
0x0e33…0e6c at0018 = ╱69╱i╱ // 0xe4b @0x18
0x0e33…0e6c at0019 = ╱6e╱n╱ // 0xe4c @0x19
0x0e33…0e6c at001a = ╱67╱g╱ // 0xe4d @0x1a
0x0e33…0e6c at001b = ╱65╱e╱ // 0xe4e @0x1b
0x0e33…0e6c at001c = ╱6e╱n╱ // 0xe4f @0x1c
0x0e33…0e6c at001d = ╱20╱…╱ // 0xe50 @0x1d
0x0e33…0e6c at001e = ╱6d╱m╱ // 0xe51 @0x1e
0x0e33…0e6c at001f = ╱6f╱o╱ // 0xe52 @0x1f
0x0e33…0e6c at0020 = ╱6d╱m╱ // 0xe53 @0x20
0x0e33…0e6c at0021 = ╱73╱s╱ // 0xe54 @0x21
0x0e33…0e6c at0022 = ╱2c╱,╱ // 0xe55 @0x22
0x0e33…0e6c at0023 = ╱31╱1╱ // 0xe56 @0x23
0x0e33…0e6c at0024 = ╱3a╱:╱ // 0xe57 @0x24
0x0e33…0e6c at0025 = ╱69╱i╱ // 0xe58 @0x25
0x0e33…0e6c at0026 = ╱6e╱n╱ // 0xe59 @0x26
0x0e33…0e6c at0027 = ╱64╱d╱ // 0xe5a @0x27
0x0e33…0e6c at0028 = ╱67╱g╱ // 0xe5b @0x28
0x0e33…0e6c at0029 = ╱7d╱å╱ // 0xe5c @0x29
0x0e33…0e6c at002a = ╱65╱e╱ // 0xe5d @0x2a
0x0e33…0e6c at002b = ╱6e╱n╱ // 0xe5e @0x2b
0x0e33…0e6c at002c = ╱64╱d╱ // 0xe5f @0x2c
0x0e33…0e6c at002d = ╱65╱e╱ // 0xe60 @0x2d
0x0e33…0e6c at002e = ╱20╱…╱ // 0xe61 @0x2e
0x0e33…0e6c at002f = ╱61╱a╱ // 0xe62 @0x2f
0x0e33…0e6c at0030 = ╱66╱f╱ // 0xe63 @0x30
0x0e33…0e6c at0031 = ╱67╱g╱ // 0xe64 @0x31
0x0e33…0e6c at0032 = ╱69╱i╱ // 0xe65 @0x32
0x0e33…0e6c at0033 = ╱66╱f╱ // 0xe66 @0x33
0x0e33…0e6c at0034 = ╱74╱t╱ // 0xe67 @0x34
0x0e33…0e6c at0035 = ╱2c╱,╱ // 0xe68 @0x35
0x0e33…0e6c at0036 = ╱22╱"╱ // 0xe69 @0x36
0x0e33…0e6c at0037 = ╱eb╱;╱ // 0xe6a @0x37
0x0e33…0e6c at0038 = EOL // 0xe6b @0x38
0x0e33…0e6c }
0x0e6c…0e8f 9be6 1610 PRINT "2:udgående afgift) "
0x0e6c…0e8f LineComalBin {
0x0e6c…0e8f ptr = 0x9be6 // 0xe6c @0x0
0x0e6c…0e8f lno = 0x064a // 0xe6e @0x2
0x0e6c…0e8f at0004 = ╱92╱ PRINT ╱ // 0xe70 @0x4
0x0e6c…0e8f at0005 = ╱22╱"╱ // 0xe71 @0x5
0x0e6c…0e8f at0006 = ╱32╱2╱ // 0xe72 @0x6
0x0e6c…0e8f at0007 = ╱3a╱:╱ // 0xe73 @0x7
0x0e6c…0e8f at0008 = ╱75╱u╱ // 0xe74 @0x8
0x0e6c…0e8f at0009 = ╱64╱d╱ // 0xe75 @0x9
0x0e6c…0e8f at000a = ╱67╱g╱ // 0xe76 @0xa
0x0e6c…0e8f at000b = ╱7d╱å╱ // 0xe77 @0xb
0x0e6c…0e8f at000c = ╱65╱e╱ // 0xe78 @0xc
0x0e6c…0e8f at000d = ╱6e╱n╱ // 0xe79 @0xd
0x0e6c…0e8f at000e = ╱64╱d╱ // 0xe7a @0xe
0x0e6c…0e8f at000f = ╱65╱e╱ // 0xe7b @0xf
0x0e6c…0e8f at0010 = ╱20╱…╱ // 0xe7c @0x10
0x0e6c…0e8f at0011 = ╱61╱a╱ // 0xe7d @0x11
0x0e6c…0e8f at0012 = ╱66╱f╱ // 0xe7e @0x12
0x0e6c…0e8f at0013 = ╱67╱g╱ // 0xe7f @0x13
0x0e6c…0e8f at0014 = ╱69╱i╱ // 0xe80 @0x14
0x0e6c…0e8f at0015 = ╱66╱f╱ // 0xe81 @0x15
0x0e6c…0e8f at0016 = ╱74╱t╱ // 0xe82 @0x16
0x0e6c…0e8f at0017 = ╱29╱)╱ // 0xe83 @0x17
0x0e6c…0e8f at0018 = ╱20╱…╱ // 0xe84 @0x18
0x0e6c…0e8f at0019 = ╱20╱…╱ // 0xe85 @0x19
0x0e6c…0e8f at001a = ╱20╱…╱ // 0xe86 @0x1a
0x0e6c…0e8f at001b = ╱20╱…╱ // 0xe87 @0x1b
0x0e6c…0e8f at001c = ╱20╱…╱ // 0xe88 @0x1c
0x0e6c…0e8f at001d = ╱20╱…╱ // 0xe89 @0x1d
0x0e6c…0e8f at001e = ╱20╱…╱ // 0xe8a @0x1e
0x0e6c…0e8f at001f = ╱20╱…╱ // 0xe8b @0x1f
0x0e6c…0e8f at0020 = ╱20╱…╱ // 0xe8c @0x20
0x0e6c…0e8f at0021 = ╱22╱"╱ // 0xe8d @0x21
0x0e6c…0e8f at0022 = EOL // 0xe8e @0x22
0x0e6c…0e8f }
0x0e8f…0ea4 9bfb 1620 CURSOR 13,23
0x0e8f…0ea4 LineComalBin {
0x0e8f…0ea4 ptr = 0x9bfb // 0xe8f @0x0
0x0e8f…0ea4 lno = 0x0654 // 0xe91 @0x2
0x0e8f…0ea4 at0004 = ╱a1╱ CURSOR ╱ // 0xe93 @0x4
0x0e8f…0ea4 at0005 = ╱31╱1╱ // 0xe94 @0x5
0x0e8f…0ea4 at0006 = ╱33╱3╱ // 0xe95 @0x6
0x0e8f…0ea4 at0007 = ╱fe0000d004╱ // 0xe96 @0x7
0x0e8f…0ea4 at000c = ╱ec╱,╱ // 0xe9b @0xc
0x0e8f…0ea4 at000d = ╱32╱2╱ // 0xe9c @0xd
0x0e8f…0ea4 at000e = ╱33╱3╱ // 0xe9d @0xe
0x0e8f…0ea4 at000f = ╱fe0000b805╱ // 0xe9e @0xf
0x0e8f…0ea4 at0014 = EOL // 0xea3 @0x14
0x0e8f…0ea4 }
0x0ea4…0eac 9c03 1630 INPUT A$
0x0ea4…0eac LineComalBin {
0x0ea4…0eac ptr = 0x9c03 // 0xea4 @0x0
0x0ea4…0eac lno = 0x065e // 0xea6 @0x2
0x0ea4…0eac at0004 = ╱91╱ INPUT ╱ // 0xea8 @0x4
0x0ea4…0eac at0005 = ╱41╱A╱ // 0xea9 @0x5
0x0ea4…0eac at0006 = ╱ef╱$╱ // 0xeaa @0x6
0x0ea4…0eac at0007 = EOL // 0xeab @0x7
0x0ea4…0eac }
0x0eac…0ecf 9c26 1640 UNTIL (ORD(A$)>47 AND ORD(A$)<51)
0x0eac…0ecf LineComalBin {
0x0eac…0ecf ptr = 0x9c26 // 0xeac @0x0
0x0eac…0ecf lno = 0x0668 // 0xeae @0x2
0x0eac…0ecf at0004 = ╱98╱ UNTIL ╱ // 0xeb0 @0x4
0x0eac…0ecf at0005 = ╱ed╱(╱ // 0xeb1 @0x5
0x0eac…0ecf at0006 = ╱cd╱ORD╱ // 0xeb2 @0x6
0x0eac…0ecf at0007 = ╱ed╱(╱ // 0xeb3 @0x7
0x0eac…0ecf at0008 = ╱41╱A╱ // 0xeb4 @0x8
0x0eac…0ecf at0009 = ╱ef╱$╱ // 0xeb5 @0x9
0x0eac…0ecf at000a = ╱ee╱)╱ // 0xeb6 @0xa
0x0eac…0ecf at000b = ╱de╱>╱ // 0xeb7 @0xb
0x0eac…0ecf at000c = ╱34╱4╱ // 0xeb8 @0xc
0x0eac…0ecf at000d = ╱37╱7╱ // 0xeb9 @0xd
0x0eac…0ecf at000e = ╱fe0000bc06╱ // 0xeba @0xe
0x0eac…0ecf at0013 = ╱da╱ AND ╱ // 0xebf @0x13
0x0eac…0ecf at0014 = ╱cd╱ORD╱ // 0xec0 @0x14
0x0eac…0ecf at0015 = ╱ed╱(╱ // 0xec1 @0x15
0x0eac…0ecf at0016 = ╱41╱A╱ // 0xec2 @0x16
0x0eac…0ecf at0017 = ╱ef╱$╱ // 0xec3 @0x17
0x0eac…0ecf at0018 = ╱ee╱)╱ // 0xec4 @0x18
0x0eac…0ecf at0019 = ╱dd╱<╱ // 0xec5 @0x19
0x0eac…0ecf at001a = ╱35╱5╱ // 0xec6 @0x1a
0x0eac…0ecf at001b = ╱31╱1╱ // 0xec7 @0x1b
0x0eac…0ecf at001c = ╱fe0000cc06╱ // 0xec8 @0x1c
0x0eac…0ecf at0021 = ╱ee╱)╱ // 0xecd @0x21
0x0eac…0ecf at0022 = EOL // 0xece @0x22
0x0eac…0ecf }
0x0ecf…0ede 9c35 1650 FMKODE$=A$
0x0ecf…0ede LineComalBin {
0x0ecf…0ede ptr = 0x9c35 // 0xecf @0x0
0x0ecf…0ede lno = 0x0672 // 0xed1 @0x2
0x0ecf…0ede at0004 = ╱46╱F╱ // 0xed3 @0x4
0x0ecf…0ede at0005 = ╱4d╱M╱ // 0xed4 @0x5
0x0ecf…0ede at0006 = ╱4b╱K╱ // 0xed5 @0x6
0x0ecf…0ede at0007 = ╱4f╱O╱ // 0xed6 @0x7
0x0ecf…0ede at0008 = ╱44╱D╱ // 0xed7 @0x8
0x0ecf…0ede at0009 = ╱45╱E╱ // 0xed8 @0x9
0x0ecf…0ede at000a = ╱ef╱$╱ // 0xed9 @0xa
0x0ecf…0ede at000b = ╱dc╱=╱ // 0xeda @0xb
0x0ecf…0ede at000c = ╱41╱A╱ // 0xedb @0xc
0x0ecf…0ede at000d = ╱ef╱$╱ // 0xedc @0xd
0x0ecf…0ede at000e = EOL // 0xedd @0xe
0x0ecf…0ede }
0x0ede…0ee4 9c3b 1660 ENDIF
0x0ede…0ee4 LineComalBin {
0x0ede…0ee4 ptr = 0x9c3b // 0xede @0x0
0x0ede…0ee4 lno = 0x067c // 0xee0 @0x2
0x0ede…0ee4 at0004 = ╱9b╱ ENDIF ╱ // 0xee2 @0x4
0x0ede…0ee4 at0005 = EOL // 0xee3 @0x5
0x0ede…0ee4 }
0x0ee4…0ef3 9c4a 1670 CURSOR 19,W
0x0ee4…0ef3 LineComalBin {
0x0ee4…0ef3 ptr = 0x9c4a // 0xee4 @0x0
0x0ee4…0ef3 lno = 0x0686 // 0xee6 @0x2
0x0ee4…0ef3 at0004 = ╱a1╱ CURSOR ╱ // 0xee8 @0x4
0x0ee4…0ef3 at0005 = ╱31╱1╱ // 0xee9 @0x5
0x0ee4…0ef3 at0006 = ╱39╱9╱ // 0xeea @0x6
0x0ee4…0ef3 at0007 = ╱fe00009805╱ // 0xeeb @0x7
0x0ee4…0ef3 at000c = ╱ec╱,╱ // 0xef0 @0xc
0x0ee4…0ef3 at000d = ╱57╱W╱ // 0xef1 @0xd
0x0ee4…0ef3 at000e = EOL // 0xef2 @0xe
0x0ee4…0ef3 }
0x0ef3…0efc 9c53 1680 PRINT " "
0x0ef3…0efc LineComalBin {
0x0ef3…0efc ptr = 0x9c53 // 0xef3 @0x0
0x0ef3…0efc lno = 0x0690 // 0xef5 @0x2
0x0ef3…0efc at0004 = ╱92╱ PRINT ╱ // 0xef7 @0x4
0x0ef3…0efc at0005 = ╱22╱"╱ // 0xef8 @0x5
0x0ef3…0efc at0006 = ╱20╱…╱ // 0xef9 @0x6
0x0ef3…0efc at0007 = ╱22╱"╱ // 0xefa @0x7
0x0ef3…0efc at0008 = EOL // 0xefb @0x8
0x0ef3…0efc }
0x0efc…0f0b 9c62 1690 CURSOR 19,W
0x0efc…0f0b LineComalBin {
0x0efc…0f0b ptr = 0x9c62 // 0xefc @0x0
0x0efc…0f0b lno = 0x069a // 0xefe @0x2
0x0efc…0f0b at0004 = ╱a1╱ CURSOR ╱ // 0xf00 @0x4
0x0efc…0f0b at0005 = ╱31╱1╱ // 0xf01 @0x5
0x0efc…0f0b at0006 = ╱39╱9╱ // 0xf02 @0x6
0x0efc…0f0b at0007 = ╱fe00009805╱ // 0xf03 @0x7
0x0efc…0f0b at000c = ╱ec╱,╱ // 0xf08 @0xc
0x0efc…0f0b at000d = ╱57╱W╱ // 0xf09 @0xd
0x0efc…0f0b at000e = EOL // 0xf0a @0xe
0x0efc…0f0b }
0x0f0b…0f18 9c6f 1700 PRINT FMKODE$
0x0f0b…0f18 LineComalBin {
0x0f0b…0f18 ptr = 0x9c6f // 0xf0b @0x0
0x0f0b…0f18 lno = 0x06a4 // 0xf0d @0x2
0x0f0b…0f18 at0004 = ╱92╱ PRINT ╱ // 0xf0f @0x4
0x0f0b…0f18 at0005 = ╱46╱F╱ // 0xf10 @0x5
0x0f0b…0f18 at0006 = ╱4d╱M╱ // 0xf11 @0x6
0x0f0b…0f18 at0007 = ╱4b╱K╱ // 0xf12 @0x7
0x0f0b…0f18 at0008 = ╱4f╱O╱ // 0xf13 @0x8
0x0f0b…0f18 at0009 = ╱44╱D╱ // 0xf14 @0x9
0x0f0b…0f18 at000a = ╱45╱E╱ // 0xf15 @0xa
0x0f0b…0f18 at000b = ╱ef╱$╱ // 0xf16 @0xb
0x0f0b…0f18 at000c = EOL // 0xf17 @0xc
0x0f0b…0f18 }
0x0f18…0f1e 9c75 1710 ENDIF
0x0f18…0f1e LineComalBin {
0x0f18…0f1e ptr = 0x9c75 // 0xf18 @0x0
0x0f18…0f1e lno = 0x06ae // 0xf1a @0x2
0x0f18…0f1e at0004 = ╱9b╱ ENDIF ╱ // 0xf1c @0x4
0x0f18…0f1e at0005 = EOL // 0xf1d @0x5
0x0f18…0f1e }
0x0f1e…0f2f 9c86 1720 FSTYR=5
0x0f1e…0f2f LineComalBin {
0x0f1e…0f2f ptr = 0x9c86 // 0xf1e @0x0
0x0f1e…0f2f lno = 0x06b8 // 0xf20 @0x2
0x0f1e…0f2f at0004 = ╱46╱F╱ // 0xf22 @0x4
0x0f1e…0f2f at0005 = ╱53╱S╱ // 0xf23 @0x5
0x0f1e…0f2f at0006 = ╱54╱T╱ // 0xf24 @0x6
0x0f1e…0f2f at0007 = ╱59╱Y╱ // 0xf25 @0x7
0x0f1e…0f2f at0008 = ╱52╱R╱ // 0xf26 @0x8
0x0f1e…0f2f at0009 = ╱dc╱=╱ // 0xf27 @0x9
0x0f1e…0f2f at000a = ╱35╱5╱ // 0xf28 @0xa
0x0f1e…0f2f at000b = ╱fe0000a003╱ // 0xf29 @0xb
0x0f1e…0f2f at0010 = EOL // 0xf2e @0x10
0x0f1e…0f2f }
0x0f2f…0f37 9c8e 1730 WHEN V
0x0f2f…0f37 LineComalBin {
0x0f2f…0f37 ptr = 0x9c8e // 0xf2f @0x0
0x0f2f…0f37 lno = 0x06c2 // 0xf31 @0x2
0x0f2f…0f37 at0004 = ╱a301╱ WHEN ╱ // 0xf33 @0x4
0x0f2f…0f37 at0006 = ╱56╱V╱ // 0xf35 @0x6
0x0f2f…0f37 at0007 = EOL // 0xf36 @0x7
0x0f2f…0f37 }
0x0f37…0f44 9c9b 1740 IF FÆND<>E THEN
0x0f37…0f44 LineComalBin {
0x0f37…0f44 ptr = 0x9c9b // 0xf37 @0x0
0x0f37…0f44 lno = 0x06cc // 0xf39 @0x2
0x0f37…0f44 at0004 = ╱9c╱ IF ╱ // 0xf3b @0x4
0x0f37…0f44 at0005 = ╱46╱F╱ // 0xf3c @0x5
0x0f37…0f44 at0006 = ╱5b╱Æ╱ // 0xf3d @0x6
0x0f37…0f44 at0007 = ╱4e╱N╱ // 0xf3e @0x7
0x0f37…0f44 at0008 = ╱44╱D╱ // 0xf3f @0x8
0x0f37…0f44 at0009 = ╱e1╱<>╱ // 0xf40 @0x9
0x0f37…0f44 at000a = ╱45╱E╱ // 0xf41 @0xa
0x0f37…0f44 at000b = ╱b6╱ THEN ╱ // 0xf42 @0xb
0x0f37…0f44 at000c = EOL // 0xf43 @0xc
0x0f37…0f44 }
0x0f44…0f52 9ca9 1750 CURSOR G,7
0x0f44…0f52 LineComalBin {
0x0f44…0f52 ptr = 0x9ca9 // 0xf44 @0x0
0x0f44…0f52 lno = 0x06d6 // 0xf46 @0x2
0x0f44…0f52 at0004 = ╱a1╱ CURSOR ╱ // 0xf48 @0x4
0x0f44…0f52 at0005 = ╱47╱G╱ // 0xf49 @0x5
0x0f44…0f52 at0006 = ╱ec╱,╱ // 0xf4a @0x6
0x0f44…0f52 at0007 = ╱37╱7╱ // 0xf4b @0x7
0x0f44…0f52 at0008 = ╱fe0000e003╱ // 0xf4c @0x8
0x0f44…0f52 at000d = EOL // 0xf51 @0xd
0x0f44…0f52 }
0x0f52…0f6a 9cc1 1760 PRINT "3:Udskriftskode:"
0x0f52…0f6a LineComalBin {
0x0f52…0f6a ptr = 0x9cc1 // 0xf52 @0x0
0x0f52…0f6a lno = 0x06e0 // 0xf54 @0x2
0x0f52…0f6a at0004 = ╱92╱ PRINT ╱ // 0xf56 @0x4
0x0f52…0f6a at0005 = ╱22╱"╱ // 0xf57 @0x5
0x0f52…0f6a at0006 = ╱33╱3╱ // 0xf58 @0x6
0x0f52…0f6a at0007 = ╱3a╱:╱ // 0xf59 @0x7
0x0f52…0f6a at0008 = ╱55╱U╱ // 0xf5a @0x8
0x0f52…0f6a at0009 = ╱64╱d╱ // 0xf5b @0x9
0x0f52…0f6a at000a = ╱73╱s╱ // 0xf5c @0xa
0x0f52…0f6a at000b = ╱6b╱k╱ // 0xf5d @0xb
0x0f52…0f6a at000c = ╱72╱r╱ // 0xf5e @0xc
0x0f52…0f6a at000d = ╱69╱i╱ // 0xf5f @0xd
0x0f52…0f6a at000e = ╱66╱f╱ // 0xf60 @0xe
0x0f52…0f6a at000f = ╱74╱t╱ // 0xf61 @0xf
0x0f52…0f6a at0010 = ╱73╱s╱ // 0xf62 @0x10
0x0f52…0f6a at0011 = ╱6b╱k╱ // 0xf63 @0x11
0x0f52…0f6a at0012 = ╱6f╱o╱ // 0xf64 @0x12
0x0f52…0f6a at0013 = ╱64╱d╱ // 0xf65 @0x13
0x0f52…0f6a at0014 = ╱65╱e╱ // 0xf66 @0x14
0x0f52…0f6a at0015 = ╱3a╱:╱ // 0xf67 @0x15
0x0f52…0f6a at0016 = ╱22╱"╱ // 0xf68 @0x16
0x0f52…0f6a at0017 = EOL // 0xf69 @0x17
0x0f52…0f6a }
0x0f6a…0f70 9cc7 1770 ENDIF
0x0f6a…0f70 LineComalBin {
0x0f6a…0f70 ptr = 0x9cc7 // 0xf6a @0x0
0x0f6a…0f70 lno = 0x06ea // 0xf6c @0x2
0x0f6a…0f70 at0004 = ╱9b╱ ENDIF ╱ // 0xf6e @0x4
0x0f6a…0f70 at0005 = EOL // 0xf6f @0x5
0x0f6a…0f70 }
0x0f70…0f7d 9cd4 1780 IF FÆND<>G THEN
0x0f70…0f7d LineComalBin {
0x0f70…0f7d ptr = 0x9cd4 // 0xf70 @0x0
0x0f70…0f7d lno = 0x06f4 // 0xf72 @0x2
0x0f70…0f7d at0004 = ╱9c╱ IF ╱ // 0xf74 @0x4
0x0f70…0f7d at0005 = ╱46╱F╱ // 0xf75 @0x5
0x0f70…0f7d at0006 = ╱5b╱Æ╱ // 0xf76 @0x6
0x0f70…0f7d at0007 = ╱4e╱N╱ // 0xf77 @0x7
0x0f70…0f7d at0008 = ╱44╱D╱ // 0xf78 @0x8
0x0f70…0f7d at0009 = ╱e1╱<>╱ // 0xf79 @0x9
0x0f70…0f7d at000a = ╱47╱G╱ // 0xf7a @0xa
0x0f70…0f7d at000b = ╱b6╱ THEN ╱ // 0xf7b @0xb
0x0f70…0f7d at000c = EOL // 0xf7c @0xc
0x0f70…0f7d }
0x0f7d…0f94 9ceb 1790 IF FT=FNR2 OR FT1=FNR2 THEN
0x0f7d…0f94 LineComalBin {
0x0f7d…0f94 ptr = 0x9ceb // 0xf7d @0x0
0x0f7d…0f94 lno = 0x06fe // 0xf7f @0x2
0x0f7d…0f94 at0004 = ╱9c╱ IF ╱ // 0xf81 @0x4
0x0f7d…0f94 at0005 = ╱46╱F╱ // 0xf82 @0x5
0x0f7d…0f94 at0006 = ╱54╱T╱ // 0xf83 @0x6
0x0f7d…0f94 at0007 = ╱dc╱=╱ // 0xf84 @0x7
0x0f7d…0f94 at0008 = ╱46╱F╱ // 0xf85 @0x8
0x0f7d…0f94 at0009 = ╱4e╱N╱ // 0xf86 @0x9
0x0f7d…0f94 at000a = ╱52╱R╱ // 0xf87 @0xa
0x0f7d…0f94 at000b = ╱32╱2╱ // 0xf88 @0xb
0x0f7d…0f94 at000c = ╱db╱ OR ╱ // 0xf89 @0xc
0x0f7d…0f94 at000d = ╱46╱F╱ // 0xf8a @0xd
0x0f7d…0f94 at000e = ╱54╱T╱ // 0xf8b @0xe
0x0f7d…0f94 at000f = ╱31╱1╱ // 0xf8c @0xf
0x0f7d…0f94 at0010 = ╱dc╱=╱ // 0xf8d @0x10
0x0f7d…0f94 at0011 = ╱46╱F╱ // 0xf8e @0x11
0x0f7d…0f94 at0012 = ╱4e╱N╱ // 0xf8f @0x12
0x0f7d…0f94 at0013 = ╱52╱R╱ // 0xf90 @0x13
0x0f7d…0f94 at0014 = ╱32╱2╱ // 0xf91 @0x14
0x0f7d…0f94 at0015 = ╱b6╱ THEN ╱ // 0xf92 @0x15
0x0f7d…0f94 at0016 = EOL // 0xf93 @0x16
0x0f7d…0f94 }
0x0f94…0fa4 9cfb 1800 FUKODE$="2"
0x0f94…0fa4 LineComalBin {
0x0f94…0fa4 ptr = 0x9cfb // 0xf94 @0x0
0x0f94…0fa4 lno = 0x0708 // 0xf96 @0x2
0x0f94…0fa4 at0004 = ╱46╱F╱ // 0xf98 @0x4
0x0f94…0fa4 at0005 = ╱55╱U╱ // 0xf99 @0x5
0x0f94…0fa4 at0006 = ╱4b╱K╱ // 0xf9a @0x6
0x0f94…0fa4 at0007 = ╱4f╱O╱ // 0xf9b @0x7
0x0f94…0fa4 at0008 = ╱44╱D╱ // 0xf9c @0x8
0x0f94…0fa4 at0009 = ╱45╱E╱ // 0xf9d @0x9
0x0f94…0fa4 at000a = ╱ef╱$╱ // 0xf9e @0xa
0x0f94…0fa4 at000b = ╱dc╱=╱ // 0xf9f @0xb
0x0f94…0fa4 at000c = ╱22╱"╱ // 0xfa0 @0xc
0x0f94…0fa4 at000d = ╱32╱2╱ // 0xfa1 @0xd
0x0f94…0fa4 at000e = ╱22╱"╱ // 0xfa2 @0xe
0x0f94…0fa4 at000f = EOL // 0xfa3 @0xf
0x0f94…0fa4 }
0x0fa4…0faa (52,) 9d01 1810 ELSE
0x0fa4…0faa LineComalBin {
0x0fa4…0faa ptr = 0x9d01 // 0xfa4 @0x0
0x0fa4…0faa lno = 0x0712 // 0xfa6 @0x2
0x0fa4…0faa at0004 = ╱9a╱ ELSE ╱ // 0xfa8 @0x4
0x0fa4…0faa at0005 = EOL // 0xfa9 @0x5
0x0fa4…0faa }
0x0faa…0fe1 9d38 1820 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN
0x0faa…0fe1 LineComalBin {
0x0faa…0fe1 ptr = 0x9d38 // 0xfaa @0x0
0x0faa…0fe1 lno = 0x071c // 0xfac @0x2
0x0faa…0fe1 at0004 = ╱9c╱ IF ╱ // 0xfae @0x4
0x0faa…0fe1 at0005 = ╱ed╱(╱ // 0xfaf @0x5
0x0faa…0fe1 at0006 = ╱46╱F╱ // 0xfb0 @0x6
0x0faa…0fe1 at0007 = ╱54╱T╱ // 0xfb1 @0x7
0x0faa…0fe1 at0008 = ╱dd╱<╱ // 0xfb2 @0x8
0x0faa…0fe1 at0009 = ╱46╱F╱ // 0xfb3 @0x9
0x0faa…0fe1 at000a = ╱4e╱N╱ // 0xfb4 @0xa
0x0faa…0fe1 at000b = ╱52╱R╱ // 0xfb5 @0xb
0x0faa…0fe1 at000c = ╱32╱2╱ // 0xfb6 @0xc
0x0faa…0fe1 at000d = ╱da╱ AND ╱ // 0xfb7 @0xd
0x0faa…0fe1 at000e = ╱46╱F╱ // 0xfb8 @0xe
0x0faa…0fe1 at000f = ╱4e╱N╱ // 0xfb9 @0xf
0x0faa…0fe1 at0010 = ╱52╱R╱ // 0xfba @0x10
0x0faa…0fe1 at0011 = ╱32╱2╱ // 0xfbb @0x11
0x0faa…0fe1 at0012 = ╱df╱<=╱ // 0xfbc @0x12
0x0faa…0fe1 at0013 = ╱46╱F╱ // 0xfbd @0x13
0x0faa…0fe1 at0014 = ╱54╱T╱ // 0xfbe @0x14
0x0faa…0fe1 at0015 = ╱e2╱+╱ // 0xfbf @0x15
0x0faa…0fe1 at0016 = ╱4d╱M╱ // 0xfc0 @0x16
0x0faa…0fe1 at0017 = ╱4b╱K╱ // 0xfc1 @0x17
0x0faa…0fe1 at0018 = ╱47╱G╱ // 0xfc2 @0x18
0x0faa…0fe1 at0019 = ╱52╱R╱ // 0xfc3 @0x19
0x0faa…0fe1 at001a = ╱ee╱)╱ // 0xfc4 @0x1a
0x0faa…0fe1 at001b = ╱db╱ OR ╱ // 0xfc5 @0x1b
0x0faa…0fe1 at001c = ╱ed╱(╱ // 0xfc6 @0x1c
0x0faa…0fe1 at001d = ╱46╱F╱ // 0xfc7 @0x1d
0x0faa…0fe1 at001e = ╱54╱T╱ // 0xfc8 @0x1e
0x0faa…0fe1 at001f = ╱31╱1╱ // 0xfc9 @0x1f
0x0faa…0fe1 at0020 = ╱dd╱<╱ // 0xfca @0x20
0x0faa…0fe1 at0021 = ╱46╱F╱ // 0xfcb @0x21
0x0faa…0fe1 at0022 = ╱4e╱N╱ // 0xfcc @0x22
0x0faa…0fe1 at0023 = ╱52╱R╱ // 0xfcd @0x23
0x0faa…0fe1 at0024 = ╱32╱2╱ // 0xfce @0x24
0x0faa…0fe1 at0025 = ╱da╱ AND ╱ // 0xfcf @0x25
0x0faa…0fe1 at0026 = ╱46╱F╱ // 0xfd0 @0x26
0x0faa…0fe1 at0027 = ╱4e╱N╱ // 0xfd1 @0x27
0x0faa…0fe1 at0028 = ╱52╱R╱ // 0xfd2 @0x28
0x0faa…0fe1 at0029 = ╱32╱2╱ // 0xfd3 @0x29
0x0faa…0fe1 at002a = ╱df╱<=╱ // 0xfd4 @0x2a
0x0faa…0fe1 at002b = ╱46╱F╱ // 0xfd5 @0x2b
0x0faa…0fe1 at002c = ╱54╱T╱ // 0xfd6 @0x2c
0x0faa…0fe1 at002d = ╱31╱1╱ // 0xfd7 @0x2d
0x0faa…0fe1 at002e = ╱e2╱+╱ // 0xfd8 @0x2e
0x0faa…0fe1 at002f = ╱4d╱M╱ // 0xfd9 @0x2f
0x0faa…0fe1 at0030 = ╱4b╱K╱ // 0xfda @0x30
0x0faa…0fe1 at0031 = ╱52╱R╱ // 0xfdb @0x31
0x0faa…0fe1 at0032 = ╱47╱G╱ // 0xfdc @0x32
0x0faa…0fe1 at0033 = ╱52╱R╱ // 0xfdd @0x33
0x0faa…0fe1 at0034 = ╱ee╱)╱ // 0xfde @0x34
0x0faa…0fe1 at0035 = ╱b6╱ THEN ╱ // 0xfdf @0x35
0x0faa…0fe1 at0036 = EOL // 0xfe0 @0x36
0x0faa…0fe1 }
0x0fe1…0ff1 9d48 1830 FUKODE$="1"
0x0fe1…0ff1 LineComalBin {
0x0fe1…0ff1 ptr = 0x9d48 // 0xfe1 @0x0
0x0fe1…0ff1 lno = 0x0726 // 0xfe3 @0x2
0x0fe1…0ff1 at0004 = ╱46╱F╱ // 0xfe5 @0x4
0x0fe1…0ff1 at0005 = ╱55╱U╱ // 0xfe6 @0x5
0x0fe1…0ff1 at0006 = ╱4b╱K╱ // 0xfe7 @0x6
0x0fe1…0ff1 at0007 = ╱4f╱O╱ // 0xfe8 @0x7
0x0fe1…0ff1 at0008 = ╱44╱D╱ // 0xfe9 @0x8
0x0fe1…0ff1 at0009 = ╱45╱E╱ // 0xfea @0x9
0x0fe1…0ff1 at000a = ╱ef╱$╱ // 0xfeb @0xa
0x0fe1…0ff1 at000b = ╱dc╱=╱ // 0xfec @0xb
0x0fe1…0ff1 at000c = ╱22╱"╱ // 0xfed @0xc
0x0fe1…0ff1 at000d = ╱31╱1╱ // 0xfee @0xd
0x0fe1…0ff1 at000e = ╱22╱"╱ // 0xfef @0xe
0x0fe1…0ff1 at000f = EOL // 0xff0 @0xf
0x0fe1…0ff1 }
0x0ff1…0ff7 (53,) 9d4e 1840 ELSE
0x0ff1…0ff7 LineComalBin {
0x0ff1…0ff7 ptr = 0x9d4e // 0xff1 @0x0
0x0ff1…0ff7 lno = 0x0730 // 0xff3 @0x2
0x0ff1…0ff7 at0004 = ╱9a╱ ELSE ╱ // 0xff5 @0x4
0x0ff1…0ff7 at0005 = EOL // 0xff6 @0x5
0x0ff1…0ff7 }
0x0ff7…0ffd 9d54 1850 REPEAT
0x0ff7…0ffd LineComalBin {
0x0ff7…0ffd ptr = 0x9d54 // 0xff7 @0x0
0x0ff7…0ffd lno = 0x073a // 0xff9 @0x2
0x0ff7…0ffd at0004 = ╱97╱ REPEAT ╱ // 0xffb @0x4
0x0ff7…0ffd at0005 = EOL // 0xffc @0x5
0x0ff7…0ffd }
0x0ffd…100c 9d63 1860 CURSOR V,23
0x0ffd…100c LineComalBin {
0x0ffd…100c ptr = 0x9d63 // 0xffd @0x0
0x0ffd…100c lno = 0x0744 // 0xfff @0x2
0x0ffd…100c at0004 = ╱a1╱ CURSOR ╱ // 0x1001 @0x4
0x0ffd…100c at0005 = ╱56╱V╱ // 0x1002 @0x5
0x0ffd…100c at0006 = ╱ec╱,╱ // 0x1003 @0x6
0x0ffd…100c at0007 = ╱32╱2╱ // 0x1004 @0x7
0x0ffd…100c at0008 = ╱33╱3╱ // 0x1005 @0x8
0x0ffd…100c at0009 = ╱fe0000b805╱ // 0x1006 @0x9
0x0ffd…100c at000e = EOL // 0x100b @0xe
0x0ffd…100c }
0x100c…104e 9da5 1870 PRINT "Udskriftskode (0:normal,1:undergr,.2:hovedgr.,3:subto";
0x100c…104e LineComalBin {
0x100c…104e ptr = 0x9da5 // 0x100c @0x0
0x100c…104e lno = 0x074e // 0x100e @0x2
0x100c…104e at0004 = ╱92╱ PRINT ╱ // 0x1010 @0x4
0x100c…104e at0005 = ╱22╱"╱ // 0x1011 @0x5
0x100c…104e at0006 = ╱55╱U╱ // 0x1012 @0x6
0x100c…104e at0007 = ╱64╱d╱ // 0x1013 @0x7
0x100c…104e at0008 = ╱73╱s╱ // 0x1014 @0x8
0x100c…104e at0009 = ╱6b╱k╱ // 0x1015 @0x9
0x100c…104e at000a = ╱72╱r╱ // 0x1016 @0xa
0x100c…104e at000b = ╱69╱i╱ // 0x1017 @0xb
0x100c…104e at000c = ╱66╱f╱ // 0x1018 @0xc
0x100c…104e at000d = ╱74╱t╱ // 0x1019 @0xd
0x100c…104e at000e = ╱73╱s╱ // 0x101a @0xe
0x100c…104e at000f = ╱6b╱k╱ // 0x101b @0xf
0x100c…104e at0010 = ╱6f╱o╱ // 0x101c @0x10
0x100c…104e at0011 = ╱64╱d╱ // 0x101d @0x11
0x100c…104e at0012 = ╱65╱e╱ // 0x101e @0x12
0x100c…104e at0013 = ╱20╱…╱ // 0x101f @0x13
0x100c…104e at0014 = ╱20╱…╱ // 0x1020 @0x14
0x100c…104e at0015 = ╱20╱…╱ // 0x1021 @0x15
0x100c…104e at0016 = ╱20╱…╱ // 0x1022 @0x16
0x100c…104e at0017 = ╱20╱…╱ // 0x1023 @0x17
0x100c…104e at0018 = ╱28╱(╱ // 0x1024 @0x18
0x100c…104e at0019 = ╱30╱0╱ // 0x1025 @0x19
0x100c…104e at001a = ╱3a╱:╱ // 0x1026 @0x1a
0x100c…104e at001b = ╱6e╱n╱ // 0x1027 @0x1b
0x100c…104e at001c = ╱6f╱o╱ // 0x1028 @0x1c
0x100c…104e at001d = ╱72╱r╱ // 0x1029 @0x1d
0x100c…104e at001e = ╱6d╱m╱ // 0x102a @0x1e
0x100c…104e at001f = ╱61╱a╱ // 0x102b @0x1f
0x100c…104e at0020 = ╱6c╱l╱ // 0x102c @0x20
0x100c…104e at0021 = ╱2c╱,╱ // 0x102d @0x21
0x100c…104e at0022 = ╱31╱1╱ // 0x102e @0x22
0x100c…104e at0023 = ╱3a╱:╱ // 0x102f @0x23
0x100c…104e at0024 = ╱75╱u╱ // 0x1030 @0x24
0x100c…104e at0025 = ╱6e╱n╱ // 0x1031 @0x25
0x100c…104e at0026 = ╱64╱d╱ // 0x1032 @0x26
0x100c…104e at0027 = ╱65╱e╱ // 0x1033 @0x27
0x100c…104e at0028 = ╱72╱r╱ // 0x1034 @0x28
0x100c…104e at0029 = ╱67╱g╱ // 0x1035 @0x29
0x100c…104e at002a = ╱72╱r╱ // 0x1036 @0x2a
0x100c…104e at002b = ╱2c╱,╱ // 0x1037 @0x2b
0x100c…104e at002c = ╱2e╱.╱ // 0x1038 @0x2c
0x100c…104e at002d = ╱32╱2╱ // 0x1039 @0x2d
0x100c…104e at002e = ╱3a╱:╱ // 0x103a @0x2e
0x100c…104e at002f = ╱68╱h╱ // 0x103b @0x2f
0x100c…104e at0030 = ╱6f╱o╱ // 0x103c @0x30
0x100c…104e at0031 = ╱76╱v╱ // 0x103d @0x31
0x100c…104e at0032 = ╱65╱e╱ // 0x103e @0x32
0x100c…104e at0033 = ╱64╱d╱ // 0x103f @0x33
0x100c…104e at0034 = ╱67╱g╱ // 0x1040 @0x34
0x100c…104e at0035 = ╱72╱r╱ // 0x1041 @0x35
0x100c…104e at0036 = ╱2e╱.╱ // 0x1042 @0x36
0x100c…104e at0037 = ╱2c╱,╱ // 0x1043 @0x37
0x100c…104e at0038 = ╱33╱3╱ // 0x1044 @0x38
0x100c…104e at0039 = ╱3a╱:╱ // 0x1045 @0x39
0x100c…104e at003a = ╱73╱s╱ // 0x1046 @0x3a
0x100c…104e at003b = ╱75╱u╱ // 0x1047 @0x3b
0x100c…104e at003c = ╱62╱b╱ // 0x1048 @0x3c
0x100c…104e at003d = ╱74╱t╱ // 0x1049 @0x3d
0x100c…104e at003e = ╱6f╱o╱ // 0x104a @0x3e
0x100c…104e at003f = ╱22╱"╱ // 0x104b @0x3f
0x100c…104e at0040 = ╱eb╱;╱ // 0x104c @0x40
0x100c…104e at0041 = EOL // 0x104d @0x41
0x100c…104e }
0x104e…106a 9dc1 1880 PRINT "tal,4:Overgr.) "
0x104e…106a LineComalBin {
0x104e…106a ptr = 0x9dc1 // 0x104e @0x0
0x104e…106a lno = 0x0758 // 0x1050 @0x2
0x104e…106a at0004 = ╱92╱ PRINT ╱ // 0x1052 @0x4
0x104e…106a at0005 = ╱22╱"╱ // 0x1053 @0x5
0x104e…106a at0006 = ╱74╱t╱ // 0x1054 @0x6
0x104e…106a at0007 = ╱61╱a╱ // 0x1055 @0x7
0x104e…106a at0008 = ╱6c╱l╱ // 0x1056 @0x8
0x104e…106a at0009 = ╱2c╱,╱ // 0x1057 @0x9
0x104e…106a at000a = ╱34╱4╱ // 0x1058 @0xa
0x104e…106a at000b = ╱3a╱:╱ // 0x1059 @0xb
0x104e…106a at000c = ╱4f╱O╱ // 0x105a @0xc
0x104e…106a at000d = ╱76╱v╱ // 0x105b @0xd
0x104e…106a at000e = ╱65╱e╱ // 0x105c @0xe
0x104e…106a at000f = ╱72╱r╱ // 0x105d @0xf
0x104e…106a at0010 = ╱67╱g╱ // 0x105e @0x10
0x104e…106a at0011 = ╱72╱r╱ // 0x105f @0x11
0x104e…106a at0012 = ╱2e╱.╱ // 0x1060 @0x12
0x104e…106a at0013 = ╱29╱)╱ // 0x1061 @0x13
0x104e…106a at0014 = ╱20╱…╱ // 0x1062 @0x14
0x104e…106a at0015 = ╱20╱…╱ // 0x1063 @0x15
0x104e…106a at0016 = ╱20╱…╱ // 0x1064 @0x16
0x104e…106a at0017 = ╱20╱…╱ // 0x1065 @0x17
0x104e…106a at0018 = ╱20╱…╱ // 0x1066 @0x18
0x104e…106a at0019 = ╱20╱…╱ // 0x1067 @0x19
0x104e…106a at001a = ╱22╱"╱ // 0x1068 @0x1a
0x104e…106a at001b = EOL // 0x1069 @0x1b
0x104e…106a }
0x106a…107f 9dd6 1890 CURSOR 17,23
0x106a…107f LineComalBin {
0x106a…107f ptr = 0x9dd6 // 0x106a @0x0
0x106a…107f lno = 0x0762 // 0x106c @0x2
0x106a…107f at0004 = ╱a1╱ CURSOR ╱ // 0x106e @0x4
0x106a…107f at0005 = ╱31╱1╱ // 0x106f @0x5
0x106a…107f at0006 = ╱37╱7╱ // 0x1070 @0x6
0x106a…107f at0007 = ╱fe00008805╱ // 0x1071 @0x7
0x106a…107f at000c = ╱ec╱,╱ // 0x1076 @0xc
0x106a…107f at000d = ╱32╱2╱ // 0x1077 @0xd
0x106a…107f at000e = ╱33╱3╱ // 0x1078 @0xe
0x106a…107f at000f = ╱fe0000b805╱ // 0x1079 @0xf
0x106a…107f at0014 = EOL // 0x107e @0x14
0x106a…107f }
0x107f…1087 9dde 1900 INPUT A$
0x107f…1087 LineComalBin {
0x107f…1087 ptr = 0x9dde // 0x107f @0x0
0x107f…1087 lno = 0x076c // 0x1081 @0x2
0x107f…1087 at0004 = ╱91╱ INPUT ╱ // 0x1083 @0x4
0x107f…1087 at0005 = ╱41╱A╱ // 0x1084 @0x5
0x107f…1087 at0006 = ╱ef╱$╱ // 0x1085 @0x6
0x107f…1087 at0007 = EOL // 0x1086 @0x7
0x107f…1087 }
0x1087…10a8 9dff 1910 UNTIL ORD(A$)>47 AND ORD(A$)<53
0x1087…10a8 LineComalBin {
0x1087…10a8 ptr = 0x9dff // 0x1087 @0x0
0x1087…10a8 lno = 0x0776 // 0x1089 @0x2
0x1087…10a8 at0004 = ╱98╱ UNTIL ╱ // 0x108b @0x4
0x1087…10a8 at0005 = ╱cd╱ORD╱ // 0x108c @0x5
0x1087…10a8 at0006 = ╱ed╱(╱ // 0x108d @0x6
0x1087…10a8 at0007 = ╱41╱A╱ // 0x108e @0x7
0x1087…10a8 at0008 = ╱ef╱$╱ // 0x108f @0x8
0x1087…10a8 at0009 = ╱ee╱)╱ // 0x1090 @0x9
0x1087…10a8 at000a = ╱de╱>╱ // 0x1091 @0xa
0x1087…10a8 at000b = ╱34╱4╱ // 0x1092 @0xb
0x1087…10a8 at000c = ╱37╱7╱ // 0x1093 @0xc
0x1087…10a8 at000d = ╱fe0000bc06╱ // 0x1094 @0xd
0x1087…10a8 at0012 = ╱da╱ AND ╱ // 0x1099 @0x12
0x1087…10a8 at0013 = ╱cd╱ORD╱ // 0x109a @0x13
0x1087…10a8 at0014 = ╱ed╱(╱ // 0x109b @0x14
0x1087…10a8 at0015 = ╱41╱A╱ // 0x109c @0x15
0x1087…10a8 at0016 = ╱ef╱$╱ // 0x109d @0x16
0x1087…10a8 at0017 = ╱ee╱)╱ // 0x109e @0x17
0x1087…10a8 at0018 = ╱dd╱<╱ // 0x109f @0x18
0x1087…10a8 at0019 = ╱35╱5╱ // 0x10a0 @0x19
0x1087…10a8 at001a = ╱33╱3╱ // 0x10a1 @0x1a
0x1087…10a8 at001b = ╱fe0000d406╱ // 0x10a2 @0x1b
0x1087…10a8 at0020 = EOL // 0x10a7 @0x20
0x1087…10a8 }
0x10a8…10b7 9e0e 1920 FUKODE$=A$
0x10a8…10b7 LineComalBin {
0x10a8…10b7 ptr = 0x9e0e // 0x10a8 @0x0
0x10a8…10b7 lno = 0x0780 // 0x10aa @0x2
0x10a8…10b7 at0004 = ╱46╱F╱ // 0x10ac @0x4
0x10a8…10b7 at0005 = ╱55╱U╱ // 0x10ad @0x5
0x10a8…10b7 at0006 = ╱4b╱K╱ // 0x10ae @0x6
0x10a8…10b7 at0007 = ╱4f╱O╱ // 0x10af @0x7
0x10a8…10b7 at0008 = ╱44╱D╱ // 0x10b0 @0x8
0x10a8…10b7 at0009 = ╱45╱E╱ // 0x10b1 @0x9
0x10a8…10b7 at000a = ╱ef╱$╱ // 0x10b2 @0xa
0x10a8…10b7 at000b = ╱dc╱=╱ // 0x10b3 @0xb
0x10a8…10b7 at000c = ╱41╱A╱ // 0x10b4 @0xc
0x10a8…10b7 at000d = ╱ef╱$╱ // 0x10b5 @0xd
0x10a8…10b7 at000e = EOL // 0x10b6 @0xe
0x10a8…10b7 }
0x10b7…10bd 9e14 1930 ENDIF
0x10b7…10bd LineComalBin {
0x10b7…10bd ptr = 0x9e14 // 0x10b7 @0x0
0x10b7…10bd lno = 0x078a // 0x10b9 @0x2
0x10b7…10bd at0004 = ╱9b╱ ENDIF ╱ // 0x10bb @0x4
0x10b7…10bd at0005 = EOL // 0x10bc @0x5
0x10b7…10bd }
0x10bd…10c3 9e1a 1940 ENDIF
0x10bd…10c3 LineComalBin {
0x10bd…10c3 ptr = 0x9e1a // 0x10bd @0x0
0x10bd…10c3 lno = 0x0794 // 0x10bf @0x2
0x10bd…10c3 at0004 = ╱9b╱ ENDIF ╱ // 0x10c1 @0x4
0x10bd…10c3 at0005 = EOL // 0x10c2 @0x5
0x10bd…10c3 }
0x10c3…10c9 9e20 1950 ENDIF
0x10c3…10c9 LineComalBin {
0x10c3…10c9 ptr = 0x9e20 // 0x10c3 @0x0
0x10c3…10c9 lno = 0x079e // 0x10c5 @0x2
0x10c3…10c9 at0004 = ╱9b╱ ENDIF ╱ // 0x10c7 @0x4
0x10c3…10c9 at0005 = EOL // 0x10c8 @0x5
0x10c3…10c9 }
0x10c9…10dd 9e34 1960 CURSOR 19,7
0x10c9…10dd LineComalBin {
0x10c9…10dd ptr = 0x9e34 // 0x10c9 @0x0
0x10c9…10dd lno = 0x07a8 // 0x10cb @0x2
0x10c9…10dd at0004 = ╱a1╱ CURSOR ╱ // 0x10cd @0x4
0x10c9…10dd at0005 = ╱31╱1╱ // 0x10ce @0x5
0x10c9…10dd at0006 = ╱39╱9╱ // 0x10cf @0x6
0x10c9…10dd at0007 = ╱fe00009805╱ // 0x10d0 @0x7
0x10c9…10dd at000c = ╱ec╱,╱ // 0x10d5 @0xc
0x10c9…10dd at000d = ╱37╱7╱ // 0x10d6 @0xd
0x10c9…10dd at000e = ╱fe0000e003╱ // 0x10d7 @0xe
0x10c9…10dd at0013 = EOL // 0x10dc @0x13
0x10c9…10dd }
0x10dd…10e6 9e3d 1970 PRINT " "
0x10dd…10e6 LineComalBin {
0x10dd…10e6 ptr = 0x9e3d // 0x10dd @0x0
0x10dd…10e6 lno = 0x07b2 // 0x10df @0x2
0x10dd…10e6 at0004 = ╱92╱ PRINT ╱ // 0x10e1 @0x4
0x10dd…10e6 at0005 = ╱22╱"╱ // 0x10e2 @0x5
0x10dd…10e6 at0006 = ╱20╱…╱ // 0x10e3 @0x6
0x10dd…10e6 at0007 = ╱22╱"╱ // 0x10e4 @0x7
0x10dd…10e6 at0008 = EOL // 0x10e5 @0x8
0x10dd…10e6 }
0x10e6…10fa 9e51 1980 CURSOR 19,7
0x10e6…10fa LineComalBin {
0x10e6…10fa ptr = 0x9e51 // 0x10e6 @0x0
0x10e6…10fa lno = 0x07bc // 0x10e8 @0x2
0x10e6…10fa at0004 = ╱a1╱ CURSOR ╱ // 0x10ea @0x4
0x10e6…10fa at0005 = ╱31╱1╱ // 0x10eb @0x5
0x10e6…10fa at0006 = ╱39╱9╱ // 0x10ec @0x6
0x10e6…10fa at0007 = ╱fe00009805╱ // 0x10ed @0x7
0x10e6…10fa at000c = ╱ec╱,╱ // 0x10f2 @0xc
0x10e6…10fa at000d = ╱37╱7╱ // 0x10f3 @0xd
0x10e6…10fa at000e = ╱fe0000e003╱ // 0x10f4 @0xe
0x10e6…10fa at0013 = EOL // 0x10f9 @0x13
0x10e6…10fa }
0x10fa…1107 9e5e 1990 PRINT FUKODE$
0x10fa…1107 LineComalBin {
0x10fa…1107 ptr = 0x9e5e // 0x10fa @0x0
0x10fa…1107 lno = 0x07c6 // 0x10fc @0x2
0x10fa…1107 at0004 = ╱92╱ PRINT ╱ // 0x10fe @0x4
0x10fa…1107 at0005 = ╱46╱F╱ // 0x10ff @0x5
0x10fa…1107 at0006 = ╱55╱U╱ // 0x1100 @0x6
0x10fa…1107 at0007 = ╱4b╱K╱ // 0x1101 @0x7
0x10fa…1107 at0008 = ╱4f╱O╱ // 0x1102 @0x8
0x10fa…1107 at0009 = ╱44╱D╱ // 0x1103 @0x9
0x10fa…1107 at000a = ╱45╱E╱ // 0x1104 @0xa
0x10fa…1107 at000b = ╱ef╱$╱ // 0x1105 @0xb
0x10fa…1107 at000c = EOL // 0x1106 @0xc
0x10fa…1107 }
0x1107…1120 9e77 2000 IF ORD(FUKODE$)>48 THEN
0x1107…1120 LineComalBin {
0x1107…1120 ptr = 0x9e77 // 0x1107 @0x0
0x1107…1120 lno = 0x07d0 // 0x1109 @0x2
0x1107…1120 at0004 = ╱9c╱ IF ╱ // 0x110b @0x4
0x1107…1120 at0005 = ╱cd╱ORD╱ // 0x110c @0x5
0x1107…1120 at0006 = ╱ed╱(╱ // 0x110d @0x6
0x1107…1120 at0007 = ╱46╱F╱ // 0x110e @0x7
0x1107…1120 at0008 = ╱55╱U╱ // 0x110f @0x8
0x1107…1120 at0009 = ╱4b╱K╱ // 0x1110 @0x9
0x1107…1120 at000a = ╱4f╱O╱ // 0x1111 @0xa
0x1107…1120 at000b = ╱44╱D╱ // 0x1112 @0xb
0x1107…1120 at000c = ╱45╱E╱ // 0x1113 @0xc
0x1107…1120 at000d = ╱ef╱$╱ // 0x1114 @0xd
0x1107…1120 at000e = ╱ee╱)╱ // 0x1115 @0xe
0x1107…1120 at000f = ╱de╱>╱ // 0x1116 @0xf
0x1107…1120 at0010 = ╱34╱4╱ // 0x1117 @0x10
0x1107…1120 at0011 = ╱38╱8╱ // 0x1118 @0x11
0x1107…1120 at0012 = ╱fe0000c006╱ // 0x1119 @0x12
0x1107…1120 at0017 = ╱b6╱ THEN ╱ // 0x111e @0x17
0x1107…1120 at0018 = EOL // 0x111f @0x18
0x1107…1120 }
0x1120…1131 9e88 2010 FSTYR=5
0x1120…1131 LineComalBin {
0x1120…1131 ptr = 0x9e88 // 0x1120 @0x0
0x1120…1131 lno = 0x07da // 0x1122 @0x2
0x1120…1131 at0004 = ╱46╱F╱ // 0x1124 @0x4
0x1120…1131 at0005 = ╱53╱S╱ // 0x1125 @0x5
0x1120…1131 at0006 = ╱54╱T╱ // 0x1126 @0x6
0x1120…1131 at0007 = ╱59╱Y╱ // 0x1127 @0x7
0x1120…1131 at0008 = ╱52╱R╱ // 0x1128 @0x8
0x1120…1131 at0009 = ╱dc╱=╱ // 0x1129 @0x9
0x1120…1131 at000a = ╱35╱5╱ // 0x112a @0xa
0x1120…1131 at000b = ╱fe0000a003╱ // 0x112b @0xb
0x1120…1131 at0010 = EOL // 0x1130 @0x10
0x1120…1131 }
0x1131…1137 9e8e 2020 ELSE
0x1131…1137 LineComalBin {
0x1131…1137 ptr = 0x9e8e // 0x1131 @0x0
0x1131…1137 lno = 0x07e4 // 0x1133 @0x2
0x1131…1137 at0004 = ╱9a╱ ELSE ╱ // 0x1135 @0x4
0x1131…1137 at0005 = EOL // 0x1136 @0x5
0x1131…1137 }
0x1137…1148 9e9f 2030 FSTYR=4
0x1137…1148 LineComalBin {
0x1137…1148 ptr = 0x9e9f // 0x1137 @0x0
0x1137…1148 lno = 0x07ee // 0x1139 @0x2
0x1137…1148 at0004 = ╱46╱F╱ // 0x113b @0x4
0x1137…1148 at0005 = ╱53╱S╱ // 0x113c @0x5
0x1137…1148 at0006 = ╱54╱T╱ // 0x113d @0x6
0x1137…1148 at0007 = ╱59╱Y╱ // 0x113e @0x7
0x1137…1148 at0008 = ╱52╱R╱ // 0x113f @0x8
0x1137…1148 at0009 = ╱dc╱=╱ // 0x1140 @0x9
0x1137…1148 at000a = ╱34╱4╱ // 0x1141 @0xa
0x1137…1148 at000b = ╱fe00008003╱ // 0x1142 @0xb
0x1137…1148 at0010 = EOL // 0x1147 @0x10
0x1137…1148 }
0x1148…114e 9ea5 2040 ENDIF
0x1148…114e LineComalBin {
0x1148…114e ptr = 0x9ea5 // 0x1148 @0x0
0x1148…114e lno = 0x07f8 // 0x114a @0x2
0x1148…114e at0004 = ╱9b╱ ENDIF ╱ // 0x114c @0x4
0x1148…114e at0005 = EOL // 0x114d @0x5
0x1148…114e }
0x114e…1154 9eab 2050 ENDCASE
0x114e…1154 LineComalBin {
0x114e…1154 ptr = 0x9eab // 0x114e @0x0
0x114e…1154 lno = 0x0802 // 0x1150 @0x2
0x114e…1154 at0004 = ╱a4╱ ENDCASE ╱ // 0x1152 @0x4
0x114e…1154 at0005 = EOL // 0x1153 @0x5
0x114e…1154 }
0x1154…116d 9ec4 2060 IF FÆND=E THEN FSTYR=5
0x1154…116d LineComalBin {
0x1154…116d ptr = 0x9ec4 // 0x1154 @0x0
0x1154…116d lno = 0x080c // 0x1156 @0x2
0x1154…116d at0004 = ╱82╱ IF ╱ // 0x1158 @0x4
0x1154…116d at0005 = ╱46╱F╱ // 0x1159 @0x5
0x1154…116d at0006 = ╱5b╱Æ╱ // 0x115a @0x6
0x1154…116d at0007 = ╱4e╱N╱ // 0x115b @0x7
0x1154…116d at0008 = ╱44╱D╱ // 0x115c @0x8
0x1154…116d at0009 = ╱dc╱=╱ // 0x115d @0x9
0x1154…116d at000a = ╱45╱E╱ // 0x115e @0xa
0x1154…116d at000b = ╱b6╱ THEN ╱ // 0x115f @0xb
0x1154…116d at000c = ╱46╱F╱ // 0x1160 @0xc
0x1154…116d at000d = ╱53╱S╱ // 0x1161 @0xd
0x1154…116d at000e = ╱54╱T╱ // 0x1162 @0xe
0x1154…116d at000f = ╱59╱Y╱ // 0x1163 @0xf
0x1154…116d at0010 = ╱52╱R╱ // 0x1164 @0x10
0x1154…116d at0011 = ╱dc╱=╱ // 0x1165 @0x11
0x1154…116d at0012 = ╱35╱5╱ // 0x1166 @0x12
0x1154…116d at0013 = ╱fe0000a003╱ // 0x1167 @0x13
0x1154…116d at0018 = EOL // 0x116c @0x18
0x1154…116d }
0x116d…117f 9ed6 2070 UNTIL FSTYR=5
0x116d…117f LineComalBin {
0x116d…117f ptr = 0x9ed6 // 0x116d @0x0
0x116d…117f lno = 0x0816 // 0x116f @0x2
0x116d…117f at0004 = ╱98╱ UNTIL ╱ // 0x1171 @0x4
0x116d…117f at0005 = ╱46╱F╱ // 0x1172 @0x5
0x116d…117f at0006 = ╱53╱S╱ // 0x1173 @0x6
0x116d…117f at0007 = ╱54╱T╱ // 0x1174 @0x7
0x116d…117f at0008 = ╱59╱Y╱ // 0x1175 @0x8
0x116d…117f at0009 = ╱52╱R╱ // 0x1176 @0x9
0x116d…117f at000a = ╱dc╱=╱ // 0x1177 @0xa
0x116d…117f at000b = ╱35╱5╱ // 0x1178 @0xb
0x116d…117f at000c = ╱fe0000a003╱ // 0x1179 @0xc
0x116d…117f at0011 = EOL // 0x117e @0x11
0x116d…117f }
0x117f…11b6 9f0d 2080 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN
0x117f…11b6 LineComalBin {
0x117f…11b6 ptr = 0x9f0d // 0x117f @0x0
0x117f…11b6 lno = 0x0820 // 0x1181 @0x2
0x117f…11b6 at0004 = ╱9c╱ IF ╱ // 0x1183 @0x4
0x117f…11b6 at0005 = ╱ed╱(╱ // 0x1184 @0x5
0x117f…11b6 at0006 = ╱46╱F╱ // 0x1185 @0x6
0x117f…11b6 at0007 = ╱54╱T╱ // 0x1186 @0x7
0x117f…11b6 at0008 = ╱dd╱<╱ // 0x1187 @0x8
0x117f…11b6 at0009 = ╱46╱F╱ // 0x1188 @0x9
0x117f…11b6 at000a = ╱4e╱N╱ // 0x1189 @0xa
0x117f…11b6 at000b = ╱52╱R╱ // 0x118a @0xb
0x117f…11b6 at000c = ╱32╱2╱ // 0x118b @0xc
0x117f…11b6 at000d = ╱da╱ AND ╱ // 0x118c @0xd
0x117f…11b6 at000e = ╱46╱F╱ // 0x118d @0xe
0x117f…11b6 at000f = ╱4e╱N╱ // 0x118e @0xf
0x117f…11b6 at0010 = ╱52╱R╱ // 0x118f @0x10
0x117f…11b6 at0011 = ╱32╱2╱ // 0x1190 @0x11
0x117f…11b6 at0012 = ╱df╱<=╱ // 0x1191 @0x12
0x117f…11b6 at0013 = ╱46╱F╱ // 0x1192 @0x13
0x117f…11b6 at0014 = ╱54╱T╱ // 0x1193 @0x14
0x117f…11b6 at0015 = ╱e2╱+╱ // 0x1194 @0x15
0x117f…11b6 at0016 = ╱4d╱M╱ // 0x1195 @0x16
0x117f…11b6 at0017 = ╱4b╱K╱ // 0x1196 @0x17
0x117f…11b6 at0018 = ╱47╱G╱ // 0x1197 @0x18
0x117f…11b6 at0019 = ╱52╱R╱ // 0x1198 @0x19
0x117f…11b6 at001a = ╱ee╱)╱ // 0x1199 @0x1a
0x117f…11b6 at001b = ╱db╱ OR ╱ // 0x119a @0x1b
0x117f…11b6 at001c = ╱ed╱(╱ // 0x119b @0x1c
0x117f…11b6 at001d = ╱46╱F╱ // 0x119c @0x1d
0x117f…11b6 at001e = ╱54╱T╱ // 0x119d @0x1e
0x117f…11b6 at001f = ╱31╱1╱ // 0x119e @0x1f
0x117f…11b6 at0020 = ╱dd╱<╱ // 0x119f @0x20
0x117f…11b6 at0021 = ╱46╱F╱ // 0x11a0 @0x21
0x117f…11b6 at0022 = ╱4e╱N╱ // 0x11a1 @0x22
0x117f…11b6 at0023 = ╱52╱R╱ // 0x11a2 @0x23
0x117f…11b6 at0024 = ╱32╱2╱ // 0x11a3 @0x24
0x117f…11b6 at0025 = ╱da╱ AND ╱ // 0x11a4 @0x25
0x117f…11b6 at0026 = ╱46╱F╱ // 0x11a5 @0x26
0x117f…11b6 at0027 = ╱4e╱N╱ // 0x11a6 @0x27
0x117f…11b6 at0028 = ╱52╱R╱ // 0x11a7 @0x28
0x117f…11b6 at0029 = ╱32╱2╱ // 0x11a8 @0x29
0x117f…11b6 at002a = ╱df╱<=╱ // 0x11a9 @0x2a
0x117f…11b6 at002b = ╱46╱F╱ // 0x11aa @0x2b
0x117f…11b6 at002c = ╱54╱T╱ // 0x11ab @0x2c
0x117f…11b6 at002d = ╱31╱1╱ // 0x11ac @0x2d
0x117f…11b6 at002e = ╱e2╱+╱ // 0x11ad @0x2e
0x117f…11b6 at002f = ╱4d╱M╱ // 0x11ae @0x2f
0x117f…11b6 at0030 = ╱4b╱K╱ // 0x11af @0x30
0x117f…11b6 at0031 = ╱52╱R╱ // 0x11b0 @0x31
0x117f…11b6 at0032 = ╱47╱G╱ // 0x11b1 @0x32
0x117f…11b6 at0033 = ╱52╱R╱ // 0x11b2 @0x33
0x117f…11b6 at0034 = ╱ee╱)╱ // 0x11b3 @0x34
0x117f…11b6 at0035 = ╱b6╱ THEN ╱ // 0x11b4 @0x35
0x117f…11b6 at0036 = EOL // 0x11b5 @0x36
0x117f…11b6 }
0x11b6…11c0 9f17 2090 FT2=E
0x11b6…11c0 LineComalBin {
0x11b6…11c0 ptr = 0x9f17 // 0x11b6 @0x0
0x11b6…11c0 lno = 0x082a // 0x11b8 @0x2
0x11b6…11c0 at0004 = ╱46╱F╱ // 0x11ba @0x4
0x11b6…11c0 at0005 = ╱54╱T╱ // 0x11bb @0x5
0x11b6…11c0 at0006 = ╱32╱2╱ // 0x11bc @0x6
0x11b6…11c0 at0007 = ╱dc╱=╱ // 0x11bd @0x7
0x11b6…11c0 at0008 = ╱45╱E╱ // 0x11be @0x8
0x11b6…11c0 at0009 = EOL // 0x11bf @0x9
0x11b6…11c0 }
0x11c0…11c6 9f1d 2100 ELSE
0x11c0…11c6 LineComalBin {
0x11c0…11c6 ptr = 0x9f1d // 0x11c0 @0x0
0x11c0…11c6 lno = 0x0834 // 0x11c2 @0x2
0x11c0…11c6 at0004 = ╱9a╱ ELSE ╱ // 0x11c4 @0x4
0x11c0…11c6 at0005 = EOL // 0x11c5 @0x5
0x11c0…11c6 }
0x11c6…11d0 9f27 2110 FT2=B
0x11c6…11d0 LineComalBin {
0x11c6…11d0 ptr = 0x9f27 // 0x11c6 @0x0
0x11c6…11d0 lno = 0x083e // 0x11c8 @0x2
0x11c6…11d0 at0004 = ╱46╱F╱ // 0x11ca @0x4
0x11c6…11d0 at0005 = ╱54╱T╱ // 0x11cb @0x5
0x11c6…11d0 at0006 = ╱32╱2╱ // 0x11cc @0x6
0x11c6…11d0 at0007 = ╱dc╱=╱ // 0x11cd @0x7
0x11c6…11d0 at0008 = ╱42╱B╱ // 0x11ce @0x8
0x11c6…11d0 at0009 = EOL // 0x11cf @0x9
0x11c6…11d0 }
0x11d0…11d6 9f2d 2120 ENDIF
0x11d0…11d6 LineComalBin {
0x11d0…11d6 ptr = 0x9f2d // 0x11d0 @0x0
0x11d0…11d6 lno = 0x0848 // 0x11d2 @0x2
0x11d0…11d6 at0004 = ╱9b╱ ENDIF ╱ // 0x11d4 @0x4
0x11d0…11d6 at0005 = EOL // 0x11d5 @0x5
0x11d0…11d6 }
0x11d6…11fe 9f55 2130 IF FÆND<>E AND (ORD(FUKODE$)=48 OR FT2=E) THEN
0x11d6…11fe LineComalBin {
0x11d6…11fe ptr = 0x9f55 // 0x11d6 @0x0
0x11d6…11fe lno = 0x0852 // 0x11d8 @0x2
0x11d6…11fe at0004 = ╱9c╱ IF ╱ // 0x11da @0x4
0x11d6…11fe at0005 = ╱46╱F╱ // 0x11db @0x5
0x11d6…11fe at0006 = ╱5b╱Æ╱ // 0x11dc @0x6
0x11d6…11fe at0007 = ╱4e╱N╱ // 0x11dd @0x7
0x11d6…11fe at0008 = ╱44╱D╱ // 0x11de @0x8
0x11d6…11fe at0009 = ╱e1╱<>╱ // 0x11df @0x9
0x11d6…11fe at000a = ╱45╱E╱ // 0x11e0 @0xa
0x11d6…11fe at000b = ╱da╱ AND ╱ // 0x11e1 @0xb
0x11d6…11fe at000c = ╱ed╱(╱ // 0x11e2 @0xc
0x11d6…11fe at000d = ╱cd╱ORD╱ // 0x11e3 @0xd
0x11d6…11fe at000e = ╱ed╱(╱ // 0x11e4 @0xe
0x11d6…11fe at000f = ╱46╱F╱ // 0x11e5 @0xf
0x11d6…11fe at0010 = ╱55╱U╱ // 0x11e6 @0x10
0x11d6…11fe at0011 = ╱4b╱K╱ // 0x11e7 @0x11
0x11d6…11fe at0012 = ╱4f╱O╱ // 0x11e8 @0x12
0x11d6…11fe at0013 = ╱44╱D╱ // 0x11e9 @0x13
0x11d6…11fe at0014 = ╱45╱E╱ // 0x11ea @0x14
0x11d6…11fe at0015 = ╱ef╱$╱ // 0x11eb @0x15
0x11d6…11fe at0016 = ╱ee╱)╱ // 0x11ec @0x16
0x11d6…11fe at0017 = ╱dc╱=╱ // 0x11ed @0x17
0x11d6…11fe at0018 = ╱34╱4╱ // 0x11ee @0x18
0x11d6…11fe at0019 = ╱38╱8╱ // 0x11ef @0x19
0x11d6…11fe at001a = ╱fe0000c006╱ // 0x11f0 @0x1a
0x11d6…11fe at001f = ╱db╱ OR ╱ // 0x11f5 @0x1f
0x11d6…11fe at0020 = ╱46╱F╱ // 0x11f6 @0x20
0x11d6…11fe at0021 = ╱54╱T╱ // 0x11f7 @0x21
0x11d6…11fe at0022 = ╱32╱2╱ // 0x11f8 @0x22
0x11d6…11fe at0023 = ╱dc╱=╱ // 0x11f9 @0x23
0x11d6…11fe at0024 = ╱45╱E╱ // 0x11fa @0x24
0x11d6…11fe at0025 = ╱ee╱)╱ // 0x11fb @0x25
0x11d6…11fe at0026 = ╱b6╱ THEN ╱ // 0x11fc @0x26
0x11d6…11fe at0027 = EOL // 0x11fd @0x27
0x11d6…11fe }
0x11fe…1213 9f6a 2140 CURSOR 20,11
0x11fe…1213 LineComalBin {
0x11fe…1213 ptr = 0x9f6a // 0x11fe @0x0
0x11fe…1213 lno = 0x085c // 0x1200 @0x2
0x11fe…1213 at0004 = ╱a1╱ CURSOR ╱ // 0x1202 @0x4
0x11fe…1213 at0005 = ╱32╱2╱ // 0x1203 @0x5
0x11fe…1213 at0006 = ╱30╱0╱ // 0x1204 @0x6
0x11fe…1213 at0007 = ╱fe0000a005╱ // 0x1205 @0x7
0x11fe…1213 at000c = ╱ec╱,╱ // 0x120a @0xc
0x11fe…1213 at000d = ╱31╱1╱ // 0x120b @0xd
0x11fe…1213 at000e = ╱31╱1╱ // 0x120c @0xe
0x11fe…1213 at000f = ╱fe0000b004╱ // 0x120d @0xf
0x11fe…1213 at0014 = EOL // 0x1212 @0x14
0x11fe…1213 }
0x1213…1220 9f77 2150 PRINT "Debet"
0x1213…1220 LineComalBin {
0x1213…1220 ptr = 0x9f77 // 0x1213 @0x0
0x1213…1220 lno = 0x0866 // 0x1215 @0x2
0x1213…1220 at0004 = ╱92╱ PRINT ╱ // 0x1217 @0x4
0x1213…1220 at0005 = ╱22╱"╱ // 0x1218 @0x5
0x1213…1220 at0006 = ╱44╱D╱ // 0x1219 @0x6
0x1213…1220 at0007 = ╱65╱e╱ // 0x121a @0x7
0x1213…1220 at0008 = ╱62╱b╱ // 0x121b @0x8
0x1213…1220 at0009 = ╱65╱e╱ // 0x121c @0x9
0x1213…1220 at000a = ╱74╱t╱ // 0x121d @0xa
0x1213…1220 at000b = ╱22╱"╱ // 0x121e @0xb
0x1213…1220 at000c = EOL // 0x121f @0xc
0x1213…1220 }
0x1220…1235 9f8c 2160 CURSOR 35,11
0x1220…1235 LineComalBin {
0x1220…1235 ptr = 0x9f8c // 0x1220 @0x0
0x1220…1235 lno = 0x0870 // 0x1222 @0x2
0x1220…1235 at0004 = ╱a1╱ CURSOR ╱ // 0x1224 @0x4
0x1220…1235 at0005 = ╱33╱3╱ // 0x1225 @0x5
0x1220…1235 at0006 = ╱35╱5╱ // 0x1226 @0x6
0x1220…1235 at0007 = ╱fe00008c06╱ // 0x1227 @0x7
0x1220…1235 at000c = ╱ec╱,╱ // 0x122c @0xc
0x1220…1235 at000d = ╱31╱1╱ // 0x122d @0xd
0x1220…1235 at000e = ╱31╱1╱ // 0x122e @0xe
0x1220…1235 at000f = ╱fe0000b004╱ // 0x122f @0xf
0x1220…1235 at0014 = EOL // 0x1234 @0x14
0x1220…1235 }
0x1235…1243 9f9a 2170 PRINT "Kredit"
0x1235…1243 LineComalBin {
0x1235…1243 ptr = 0x9f9a // 0x1235 @0x0
0x1235…1243 lno = 0x087a // 0x1237 @0x2
0x1235…1243 at0004 = ╱92╱ PRINT ╱ // 0x1239 @0x4
0x1235…1243 at0005 = ╱22╱"╱ // 0x123a @0x5
0x1235…1243 at0006 = ╱4b╱K╱ // 0x123b @0x6
0x1235…1243 at0007 = ╱72╱r╱ // 0x123c @0x7
0x1235…1243 at0008 = ╱65╱e╱ // 0x123d @0x8
0x1235…1243 at0009 = ╱64╱d╱ // 0x123e @0x9
0x1235…1243 at000a = ╱69╱i╱ // 0x123f @0xa
0x1235…1243 at000b = ╱74╱t╱ // 0x1240 @0xb
0x1235…1243 at000c = ╱22╱"╱ // 0x1241 @0xc
0x1235…1243 at000d = EOL // 0x1242 @0xd
0x1235…1243 }
0x1243…1258 9faf 2180 CURSOR 53,11
0x1243…1258 LineComalBin {
0x1243…1258 ptr = 0x9faf // 0x1243 @0x0
0x1243…1258 lno = 0x0884 // 0x1245 @0x2
0x1243…1258 at0004 = ╱a1╱ CURSOR ╱ // 0x1247 @0x4
0x1243…1258 at0005 = ╱35╱5╱ // 0x1248 @0x5
0x1243…1258 at0006 = ╱33╱3╱ // 0x1249 @0x6
0x1243…1258 at0007 = ╱fe0000d406╱ // 0x124a @0x7
0x1243…1258 at000c = ╱ec╱,╱ // 0x124f @0xc
0x1243…1258 at000d = ╱31╱1╱ // 0x1250 @0xd
0x1243…1258 at000e = ╱31╱1╱ // 0x1251 @0xe
0x1243…1258 at000f = ╱fe0000b004╱ // 0x1252 @0xf
0x1243…1258 at0014 = EOL // 0x1257 @0x14
0x1243…1258 }
0x1258…1265 9fbc 2190 PRINT "Saldi"
0x1258…1265 LineComalBin {
0x1258…1265 ptr = 0x9fbc // 0x1258 @0x0
0x1258…1265 lno = 0x088e // 0x125a @0x2
0x1258…1265 at0004 = ╱92╱ PRINT ╱ // 0x125c @0x4
0x1258…1265 at0005 = ╱22╱"╱ // 0x125d @0x5
0x1258…1265 at0006 = ╱53╱S╱ // 0x125e @0x6
0x1258…1265 at0007 = ╱61╱a╱ // 0x125f @0x7
0x1258…1265 at0008 = ╱6c╱l╱ // 0x1260 @0x8
0x1258…1265 at0009 = ╱64╱d╱ // 0x1261 @0x9
0x1258…1265 at000a = ╱69╱i╱ // 0x1262 @0xa
0x1258…1265 at000b = ╱22╱"╱ // 0x1263 @0xb
0x1258…1265 at000c = EOL // 0x1264 @0xc
0x1258…1265 }
0x1265…1279 9fd0 2200 CURSOR 4,13
0x1265…1279 LineComalBin {
0x1265…1279 ptr = 0x9fd0 // 0x1265 @0x0
0x1265…1279 lno = 0x0898 // 0x1267 @0x2
0x1265…1279 at0004 = ╱a1╱ CURSOR ╱ // 0x1269 @0x4
0x1265…1279 at0005 = ╱34╱4╱ // 0x126a @0x5
0x1265…1279 at0006 = ╱fe00008003╱ // 0x126b @0x6
0x1265…1279 at000b = ╱ec╱,╱ // 0x1270 @0xb
0x1265…1279 at000c = ╱31╱1╱ // 0x1271 @0xc
0x1265…1279 at000d = ╱33╱3╱ // 0x1272 @0xd
0x1265…1279 at000e = ╱fe0000d004╱ // 0x1273 @0xe
0x1265…1279 at0013 = EOL // 0x1278 @0x13
0x1265…1279 }
0x1279…128b 9fe2 2210 PRINT "Månedens :"
0x1279…128b LineComalBin {
0x1279…128b ptr = 0x9fe2 // 0x1279 @0x0
0x1279…128b lno = 0x08a2 // 0x127b @0x2
0x1279…128b at0004 = ╱92╱ PRINT ╱ // 0x127d @0x4
0x1279…128b at0005 = ╱22╱"╱ // 0x127e @0x5
0x1279…128b at0006 = ╱4d╱M╱ // 0x127f @0x6
0x1279…128b at0007 = ╱7d╱å╱ // 0x1280 @0x7
0x1279…128b at0008 = ╱6e╱n╱ // 0x1281 @0x8
0x1279…128b at0009 = ╱65╱e╱ // 0x1282 @0x9
0x1279…128b at000a = ╱64╱d╱ // 0x1283 @0xa
0x1279…128b at000b = ╱65╱e╱ // 0x1284 @0xb
0x1279…128b at000c = ╱6e╱n╱ // 0x1285 @0xc
0x1279…128b at000d = ╱73╱s╱ // 0x1286 @0xd
0x1279…128b at000e = ╱20╱…╱ // 0x1287 @0xe
0x1279…128b at000f = ╱3a╱:╱ // 0x1288 @0xf
0x1279…128b at0010 = ╱22╱"╱ // 0x1289 @0x10
0x1279…128b at0011 = EOL // 0x128a @0x11
0x1279…128b }
0x128b…12a0 9ff7 2220 CURSOR 15,13
0x128b…12a0 LineComalBin {
0x128b…12a0 ptr = 0x9ff7 // 0x128b @0x0
0x128b…12a0 lno = 0x08ac // 0x128d @0x2
0x128b…12a0 at0004 = ╱a1╱ CURSOR ╱ // 0x128f @0x4
0x128b…12a0 at0005 = ╱31╱1╱ // 0x1290 @0x5
0x128b…12a0 at0006 = ╱35╱5╱ // 0x1291 @0x6
0x128b…12a0 at0007 = ╱fe0000f004╱ // 0x1292 @0x7
0x128b…12a0 at000c = ╱ec╱,╱ // 0x1297 @0xc
0x128b…12a0 at000d = ╱31╱1╱ // 0x1298 @0xd
0x128b…12a0 at000e = ╱33╱3╱ // 0x1299 @0xe
0x128b…12a0 at000f = ╱fe0000d004╱ // 0x129a @0xf
0x128b…12a0 at0014 = EOL // 0x129f @0x14
0x128b…12a0 }
0x12a0…12bd a014 2230 EXEC TUD(FMDEBET$,TAL4$,B,B)
0x12a0…12bd LineComalBin {
0x12a0…12bd ptr = 0xa014 // 0x12a0 @0x0
0x12a0…12bd lno = 0x08b6 // 0x12a2 @0x2
0x12a0…12bd at0004 = ╱9d╱ EXEC ╱ // 0x12a4 @0x4
0x12a0…12bd at0005 = ╱54╱T╱ // 0x12a5 @0x5
0x12a0…12bd at0006 = ╱55╱U╱ // 0x12a6 @0x6
0x12a0…12bd at0007 = ╱44╱D╱ // 0x12a7 @0x7
0x12a0…12bd at0008 = ╱ed╱(╱ // 0x12a8 @0x8
0x12a0…12bd at0009 = ╱46╱F╱ // 0x12a9 @0x9
0x12a0…12bd at000a = ╱4d╱M╱ // 0x12aa @0xa
0x12a0…12bd at000b = ╱44╱D╱ // 0x12ab @0xb
0x12a0…12bd at000c = ╱45╱E╱ // 0x12ac @0xc
0x12a0…12bd at000d = ╱42╱B╱ // 0x12ad @0xd
0x12a0…12bd at000e = ╱45╱E╱ // 0x12ae @0xe
0x12a0…12bd at000f = ╱54╱T╱ // 0x12af @0xf
0x12a0…12bd at0010 = ╱ef╱$╱ // 0x12b0 @0x10
0x12a0…12bd at0011 = ╱ec╱,╱ // 0x12b1 @0x11
0x12a0…12bd at0012 = ╱54╱T╱ // 0x12b2 @0x12
0x12a0…12bd at0013 = ╱41╱A╱ // 0x12b3 @0x13
0x12a0…12bd at0014 = ╱4c╱L╱ // 0x12b4 @0x14
0x12a0…12bd at0015 = ╱34╱4╱ // 0x12b5 @0x15
0x12a0…12bd at0016 = ╱ef╱$╱ // 0x12b6 @0x16
0x12a0…12bd at0017 = ╱ec╱,╱ // 0x12b7 @0x17
0x12a0…12bd at0018 = ╱42╱B╱ // 0x12b8 @0x18
0x12a0…12bd at0019 = ╱ec╱,╱ // 0x12b9 @0x19
0x12a0…12bd at001a = ╱42╱B╱ // 0x12ba @0x1a
0x12a0…12bd at001b = ╱ee╱)╱ // 0x12bb @0x1b
0x12a0…12bd at001c = EOL // 0x12bc @0x1c
0x12a0…12bd }
0x12bd…12d2 a029 2240 CURSOR 31,13
0x12bd…12d2 LineComalBin {
0x12bd…12d2 ptr = 0xa029 // 0x12bd @0x0
0x12bd…12d2 lno = 0x08c0 // 0x12bf @0x2
0x12bd…12d2 at0004 = ╱a1╱ CURSOR ╱ // 0x12c1 @0x4
0x12bd…12d2 at0005 = ╱33╱3╱ // 0x12c2 @0x5
0x12bd…12d2 at0006 = ╱31╱1╱ // 0x12c3 @0x6
0x12bd…12d2 at0007 = ╱fe0000f805╱ // 0x12c4 @0x7
0x12bd…12d2 at000c = ╱ec╱,╱ // 0x12c9 @0xc
0x12bd…12d2 at000d = ╱31╱1╱ // 0x12ca @0xd
0x12bd…12d2 at000e = ╱33╱3╱ // 0x12cb @0xe
0x12bd…12d2 at000f = ╱fe0000d004╱ // 0x12cc @0xf
0x12bd…12d2 at0014 = EOL // 0x12d1 @0x14
0x12bd…12d2 }
0x12d2…12f0 a047 2250 EXEC TUD(FMKREDIT$,TAL4$,B,B)
0x12d2…12f0 LineComalBin {
0x12d2…12f0 ptr = 0xa047 // 0x12d2 @0x0
0x12d2…12f0 lno = 0x08ca // 0x12d4 @0x2
0x12d2…12f0 at0004 = ╱9d╱ EXEC ╱ // 0x12d6 @0x4
0x12d2…12f0 at0005 = ╱54╱T╱ // 0x12d7 @0x5
0x12d2…12f0 at0006 = ╱55╱U╱ // 0x12d8 @0x6
0x12d2…12f0 at0007 = ╱44╱D╱ // 0x12d9 @0x7
0x12d2…12f0 at0008 = ╱ed╱(╱ // 0x12da @0x8
0x12d2…12f0 at0009 = ╱46╱F╱ // 0x12db @0x9
0x12d2…12f0 at000a = ╱4d╱M╱ // 0x12dc @0xa
0x12d2…12f0 at000b = ╱4b╱K╱ // 0x12dd @0xb
0x12d2…12f0 at000c = ╱52╱R╱ // 0x12de @0xc
0x12d2…12f0 at000d = ╱45╱E╱ // 0x12df @0xd
0x12d2…12f0 at000e = ╱44╱D╱ // 0x12e0 @0xe
0x12d2…12f0 at000f = ╱49╱I╱ // 0x12e1 @0xf
0x12d2…12f0 at0010 = ╱54╱T╱ // 0x12e2 @0x10
0x12d2…12f0 at0011 = ╱ef╱$╱ // 0x12e3 @0x11
0x12d2…12f0 at0012 = ╱ec╱,╱ // 0x12e4 @0x12
0x12d2…12f0 at0013 = ╱54╱T╱ // 0x12e5 @0x13
0x12d2…12f0 at0014 = ╱41╱A╱ // 0x12e6 @0x14
0x12d2…12f0 at0015 = ╱4c╱L╱ // 0x12e7 @0x15
0x12d2…12f0 at0016 = ╱34╱4╱ // 0x12e8 @0x16
0x12d2…12f0 at0017 = ╱ef╱$╱ // 0x12e9 @0x17
0x12d2…12f0 at0018 = ╱ec╱,╱ // 0x12ea @0x18
0x12d2…12f0 at0019 = ╱42╱B╱ // 0x12eb @0x19
0x12d2…12f0 at001a = ╱ec╱,╱ // 0x12ec @0x1a
0x12d2…12f0 at001b = ╱42╱B╱ // 0x12ed @0x1b
0x12d2…12f0 at001c = ╱ee╱)╱ // 0x12ee @0x1c
0x12d2…12f0 at001d = EOL // 0x12ef @0x1d
0x12d2…12f0 }
0x12f0…1305 a05c 2260 CURSOR 48,13
0x12f0…1305 LineComalBin {
0x12f0…1305 ptr = 0xa05c // 0x12f0 @0x0
0x12f0…1305 lno = 0x08d4 // 0x12f2 @0x2
0x12f0…1305 at0004 = ╱a1╱ CURSOR ╱ // 0x12f4 @0x4
0x12f0…1305 at0005 = ╱34╱4╱ // 0x12f5 @0x5
0x12f0…1305 at0006 = ╱38╱8╱ // 0x12f6 @0x6
0x12f0…1305 at0007 = ╱fe0000c006╱ // 0x12f7 @0x7
0x12f0…1305 at000c = ╱ec╱,╱ // 0x12fc @0xc
0x12f0…1305 at000d = ╱31╱1╱ // 0x12fd @0xd
0x12f0…1305 at000e = ╱33╱3╱ // 0x12fe @0xe
0x12f0…1305 at000f = ╱fe0000d004╱ // 0x12ff @0xf
0x12f0…1305 at0014 = EOL // 0x1304 @0x14
0x12f0…1305 }
0x1305…132d a084 2270 EXEC CALC(B,FMDEBET$,FMKREDIT$,FSALDO$)
0x1305…132d LineComalBin {
0x1305…132d ptr = 0xa084 // 0x1305 @0x0
0x1305…132d lno = 0x08de // 0x1307 @0x2
0x1305…132d at0004 = ╱9d╱ EXEC ╱ // 0x1309 @0x4
0x1305…132d at0005 = ╱43╱C╱ // 0x130a @0x5
0x1305…132d at0006 = ╱41╱A╱ // 0x130b @0x6
0x1305…132d at0007 = ╱4c╱L╱ // 0x130c @0x7
0x1305…132d at0008 = ╱43╱C╱ // 0x130d @0x8
0x1305…132d at0009 = ╱ed╱(╱ // 0x130e @0x9
0x1305…132d at000a = ╱42╱B╱ // 0x130f @0xa
0x1305…132d at000b = ╱ec╱,╱ // 0x1310 @0xb
0x1305…132d at000c = ╱46╱F╱ // 0x1311 @0xc
0x1305…132d at000d = ╱4d╱M╱ // 0x1312 @0xd
0x1305…132d at000e = ╱44╱D╱ // 0x1313 @0xe
0x1305…132d at000f = ╱45╱E╱ // 0x1314 @0xf
0x1305…132d at0010 = ╱42╱B╱ // 0x1315 @0x10
0x1305…132d at0011 = ╱45╱E╱ // 0x1316 @0x11
0x1305…132d at0012 = ╱54╱T╱ // 0x1317 @0x12
0x1305…132d at0013 = ╱ef╱$╱ // 0x1318 @0x13
0x1305…132d at0014 = ╱ec╱,╱ // 0x1319 @0x14
0x1305…132d at0015 = ╱46╱F╱ // 0x131a @0x15
0x1305…132d at0016 = ╱4d╱M╱ // 0x131b @0x16
0x1305…132d at0017 = ╱4b╱K╱ // 0x131c @0x17
0x1305…132d at0018 = ╱52╱R╱ // 0x131d @0x18
0x1305…132d at0019 = ╱45╱E╱ // 0x131e @0x19
0x1305…132d at001a = ╱44╱D╱ // 0x131f @0x1a
0x1305…132d at001b = ╱49╱I╱ // 0x1320 @0x1b
0x1305…132d at001c = ╱54╱T╱ // 0x1321 @0x1c
0x1305…132d at001d = ╱ef╱$╱ // 0x1322 @0x1d
0x1305…132d at001e = ╱ec╱,╱ // 0x1323 @0x1e
0x1305…132d at001f = ╱46╱F╱ // 0x1324 @0x1f
0x1305…132d at0020 = ╱53╱S╱ // 0x1325 @0x20
0x1305…132d at0021 = ╱41╱A╱ // 0x1326 @0x21
0x1305…132d at0022 = ╱4c╱L╱ // 0x1327 @0x22
0x1305…132d at0023 = ╱44╱D╱ // 0x1328 @0x23
0x1305…132d at0024 = ╱4f╱O╱ // 0x1329 @0x24
0x1305…132d at0025 = ╱ef╱$╱ // 0x132a @0x25
0x1305…132d at0026 = ╱ee╱)╱ // 0x132b @0x26
0x1305…132d at0027 = EOL // 0x132c @0x27
0x1305…132d }
0x132d…1349 a0a0 2280 EXEC TUD(FSALDO$,TAL4$,E,B)
0x132d…1349 LineComalBin {
0x132d…1349 ptr = 0xa0a0 // 0x132d @0x0
0x132d…1349 lno = 0x08e8 // 0x132f @0x2
0x132d…1349 at0004 = ╱9d╱ EXEC ╱ // 0x1331 @0x4
0x132d…1349 at0005 = ╱54╱T╱ // 0x1332 @0x5
0x132d…1349 at0006 = ╱55╱U╱ // 0x1333 @0x6
0x132d…1349 at0007 = ╱44╱D╱ // 0x1334 @0x7
0x132d…1349 at0008 = ╱ed╱(╱ // 0x1335 @0x8
0x132d…1349 at0009 = ╱46╱F╱ // 0x1336 @0x9
0x132d…1349 at000a = ╱53╱S╱ // 0x1337 @0xa
0x132d…1349 at000b = ╱41╱A╱ // 0x1338 @0xb
0x132d…1349 at000c = ╱4c╱L╱ // 0x1339 @0xc
0x132d…1349 at000d = ╱44╱D╱ // 0x133a @0xd
0x132d…1349 at000e = ╱4f╱O╱ // 0x133b @0xe
0x132d…1349 at000f = ╱ef╱$╱ // 0x133c @0xf
0x132d…1349 at0010 = ╱ec╱,╱ // 0x133d @0x10
0x132d…1349 at0011 = ╱54╱T╱ // 0x133e @0x11
0x132d…1349 at0012 = ╱41╱A╱ // 0x133f @0x12
0x132d…1349 at0013 = ╱4c╱L╱ // 0x1340 @0x13
0x132d…1349 at0014 = ╱34╱4╱ // 0x1341 @0x14
0x132d…1349 at0015 = ╱ef╱$╱ // 0x1342 @0x15
0x132d…1349 at0016 = ╱ec╱,╱ // 0x1343 @0x16
0x132d…1349 at0017 = ╱45╱E╱ // 0x1344 @0x17
0x132d…1349 at0018 = ╱ec╱,╱ // 0x1345 @0x18
0x132d…1349 at0019 = ╱42╱B╱ // 0x1346 @0x19
0x132d…1349 at001a = ╱ee╱)╱ // 0x1347 @0x1a
0x132d…1349 at001b = EOL // 0x1348 @0x1b
0x132d…1349 }
0x1349…135d a0b4 2290 CURSOR 4,15
0x1349…135d LineComalBin {
0x1349…135d ptr = 0xa0b4 // 0x1349 @0x0
0x1349…135d lno = 0x08f2 // 0x134b @0x2
0x1349…135d at0004 = ╱a1╱ CURSOR ╱ // 0x134d @0x4
0x1349…135d at0005 = ╱34╱4╱ // 0x134e @0x5
0x1349…135d at0006 = ╱fe00008003╱ // 0x134f @0x6
0x1349…135d at000b = ╱ec╱,╱ // 0x1354 @0xb
0x1349…135d at000c = ╱31╱1╱ // 0x1355 @0xc
0x1349…135d at000d = ╱35╱5╱ // 0x1356 @0xd
0x1349…135d at000e = ╱fe0000f004╱ // 0x1357 @0xe
0x1349…135d at0013 = EOL // 0x135c @0x13
0x1349…135d }
0x135d…136f a0c6 2300 PRINT "Årets :"
0x135d…136f LineComalBin {
0x135d…136f ptr = 0xa0c6 // 0x135d @0x0
0x135d…136f lno = 0x08fc // 0x135f @0x2
0x135d…136f at0004 = ╱92╱ PRINT ╱ // 0x1361 @0x4
0x135d…136f at0005 = ╱22╱"╱ // 0x1362 @0x5
0x135d…136f at0006 = ╱5d╱Å╱ // 0x1363 @0x6
0x135d…136f at0007 = ╱72╱r╱ // 0x1364 @0x7
0x135d…136f at0008 = ╱65╱e╱ // 0x1365 @0x8
0x135d…136f at0009 = ╱74╱t╱ // 0x1366 @0x9
0x135d…136f at000a = ╱73╱s╱ // 0x1367 @0xa
0x135d…136f at000b = ╱20╱…╱ // 0x1368 @0xb
0x135d…136f at000c = ╱20╱…╱ // 0x1369 @0xc
0x135d…136f at000d = ╱20╱…╱ // 0x136a @0xd
0x135d…136f at000e = ╱20╱…╱ // 0x136b @0xe
0x135d…136f at000f = ╱3a╱:╱ // 0x136c @0xf
0x135d…136f at0010 = ╱22╱"╱ // 0x136d @0x10
0x135d…136f at0011 = EOL // 0x136e @0x11
0x135d…136f }
0x136f…1384 a0db 2310 CURSOR 15,15
0x136f…1384 LineComalBin {
0x136f…1384 ptr = 0xa0db // 0x136f @0x0
0x136f…1384 lno = 0x0906 // 0x1371 @0x2
0x136f…1384 at0004 = ╱a1╱ CURSOR ╱ // 0x1373 @0x4
0x136f…1384 at0005 = ╱31╱1╱ // 0x1374 @0x5
0x136f…1384 at0006 = ╱35╱5╱ // 0x1375 @0x6
0x136f…1384 at0007 = ╱fe0000f004╱ // 0x1376 @0x7
0x136f…1384 at000c = ╱ec╱,╱ // 0x137b @0xc
0x136f…1384 at000d = ╱31╱1╱ // 0x137c @0xd
0x136f…1384 at000e = ╱35╱5╱ // 0x137d @0xe
0x136f…1384 at000f = ╱fe0000f004╱ // 0x137e @0xf
0x136f…1384 at0014 = EOL // 0x1383 @0x14
0x136f…1384 }
0x1384…13a1 a0f8 2320 EXEC TUD(FÅDEBET$,TAL4$,B,B)
0x1384…13a1 LineComalBin {
0x1384…13a1 ptr = 0xa0f8 // 0x1384 @0x0
0x1384…13a1 lno = 0x0910 // 0x1386 @0x2
0x1384…13a1 at0004 = ╱9d╱ EXEC ╱ // 0x1388 @0x4
0x1384…13a1 at0005 = ╱54╱T╱ // 0x1389 @0x5
0x1384…13a1 at0006 = ╱55╱U╱ // 0x138a @0x6
0x1384…13a1 at0007 = ╱44╱D╱ // 0x138b @0x7
0x1384…13a1 at0008 = ╱ed╱(╱ // 0x138c @0x8
0x1384…13a1 at0009 = ╱46╱F╱ // 0x138d @0x9
0x1384…13a1 at000a = ╱5d╱Å╱ // 0x138e @0xa
0x1384…13a1 at000b = ╱44╱D╱ // 0x138f @0xb
0x1384…13a1 at000c = ╱45╱E╱ // 0x1390 @0xc
0x1384…13a1 at000d = ╱42╱B╱ // 0x1391 @0xd
0x1384…13a1 at000e = ╱45╱E╱ // 0x1392 @0xe
0x1384…13a1 at000f = ╱54╱T╱ // 0x1393 @0xf
0x1384…13a1 at0010 = ╱ef╱$╱ // 0x1394 @0x10
0x1384…13a1 at0011 = ╱ec╱,╱ // 0x1395 @0x11
0x1384…13a1 at0012 = ╱54╱T╱ // 0x1396 @0x12
0x1384…13a1 at0013 = ╱41╱A╱ // 0x1397 @0x13
0x1384…13a1 at0014 = ╱4c╱L╱ // 0x1398 @0x14
0x1384…13a1 at0015 = ╱34╱4╱ // 0x1399 @0x15
0x1384…13a1 at0016 = ╱ef╱$╱ // 0x139a @0x16
0x1384…13a1 at0017 = ╱ec╱,╱ // 0x139b @0x17
0x1384…13a1 at0018 = ╱42╱B╱ // 0x139c @0x18
0x1384…13a1 at0019 = ╱ec╱,╱ // 0x139d @0x19
0x1384…13a1 at001a = ╱42╱B╱ // 0x139e @0x1a
0x1384…13a1 at001b = ╱ee╱)╱ // 0x139f @0x1b
0x1384…13a1 at001c = EOL // 0x13a0 @0x1c
0x1384…13a1 }
0x13a1…13b6 a10d 2330 CURSOR 31,15
0x13a1…13b6 LineComalBin {
0x13a1…13b6 ptr = 0xa10d // 0x13a1 @0x0
0x13a1…13b6 lno = 0x091a // 0x13a3 @0x2
0x13a1…13b6 at0004 = ╱a1╱ CURSOR ╱ // 0x13a5 @0x4
0x13a1…13b6 at0005 = ╱33╱3╱ // 0x13a6 @0x5
0x13a1…13b6 at0006 = ╱31╱1╱ // 0x13a7 @0x6
0x13a1…13b6 at0007 = ╱fe0000f805╱ // 0x13a8 @0x7
0x13a1…13b6 at000c = ╱ec╱,╱ // 0x13ad @0xc
0x13a1…13b6 at000d = ╱31╱1╱ // 0x13ae @0xd
0x13a1…13b6 at000e = ╱35╱5╱ // 0x13af @0xe
0x13a1…13b6 at000f = ╱fe0000f004╱ // 0x13b0 @0xf
0x13a1…13b6 at0014 = EOL // 0x13b5 @0x14
0x13a1…13b6 }
0x13b6…13d4 a12b 2340 EXEC TUD(FÅKREDIT$,TAL4$,B,B)
0x13b6…13d4 LineComalBin {
0x13b6…13d4 ptr = 0xa12b // 0x13b6 @0x0
0x13b6…13d4 lno = 0x0924 // 0x13b8 @0x2
0x13b6…13d4 at0004 = ╱9d╱ EXEC ╱ // 0x13ba @0x4
0x13b6…13d4 at0005 = ╱54╱T╱ // 0x13bb @0x5
0x13b6…13d4 at0006 = ╱55╱U╱ // 0x13bc @0x6
0x13b6…13d4 at0007 = ╱44╱D╱ // 0x13bd @0x7
0x13b6…13d4 at0008 = ╱ed╱(╱ // 0x13be @0x8
0x13b6…13d4 at0009 = ╱46╱F╱ // 0x13bf @0x9
0x13b6…13d4 at000a = ╱5d╱Å╱ // 0x13c0 @0xa
0x13b6…13d4 at000b = ╱4b╱K╱ // 0x13c1 @0xb
0x13b6…13d4 at000c = ╱52╱R╱ // 0x13c2 @0xc
0x13b6…13d4 at000d = ╱45╱E╱ // 0x13c3 @0xd
0x13b6…13d4 at000e = ╱44╱D╱ // 0x13c4 @0xe
0x13b6…13d4 at000f = ╱49╱I╱ // 0x13c5 @0xf
0x13b6…13d4 at0010 = ╱54╱T╱ // 0x13c6 @0x10
0x13b6…13d4 at0011 = ╱ef╱$╱ // 0x13c7 @0x11
0x13b6…13d4 at0012 = ╱ec╱,╱ // 0x13c8 @0x12
0x13b6…13d4 at0013 = ╱54╱T╱ // 0x13c9 @0x13
0x13b6…13d4 at0014 = ╱41╱A╱ // 0x13ca @0x14
0x13b6…13d4 at0015 = ╱4c╱L╱ // 0x13cb @0x15
0x13b6…13d4 at0016 = ╱34╱4╱ // 0x13cc @0x16
0x13b6…13d4 at0017 = ╱ef╱$╱ // 0x13cd @0x17
0x13b6…13d4 at0018 = ╱ec╱,╱ // 0x13ce @0x18
0x13b6…13d4 at0019 = ╱42╱B╱ // 0x13cf @0x19
0x13b6…13d4 at001a = ╱ec╱,╱ // 0x13d0 @0x1a
0x13b6…13d4 at001b = ╱42╱B╱ // 0x13d1 @0x1b
0x13b6…13d4 at001c = ╱ee╱)╱ // 0x13d2 @0x1c
0x13b6…13d4 at001d = EOL // 0x13d3 @0x1d
0x13b6…13d4 }
0x13d4…13e9 a140 2350 CURSOR 48,15
0x13d4…13e9 LineComalBin {
0x13d4…13e9 ptr = 0xa140 // 0x13d4 @0x0
0x13d4…13e9 lno = 0x092e // 0x13d6 @0x2
0x13d4…13e9 at0004 = ╱a1╱ CURSOR ╱ // 0x13d8 @0x4
0x13d4…13e9 at0005 = ╱34╱4╱ // 0x13d9 @0x5
0x13d4…13e9 at0006 = ╱38╱8╱ // 0x13da @0x6
0x13d4…13e9 at0007 = ╱fe0000c006╱ // 0x13db @0x7
0x13d4…13e9 at000c = ╱ec╱,╱ // 0x13e0 @0xc
0x13d4…13e9 at000d = ╱31╱1╱ // 0x13e1 @0xd
0x13d4…13e9 at000e = ╱35╱5╱ // 0x13e2 @0xe
0x13d4…13e9 at000f = ╱fe0000f004╱ // 0x13e3 @0xf
0x13d4…13e9 at0014 = EOL // 0x13e8 @0x14
0x13d4…13e9 }
0x13e9…1411 a168 2360 EXEC CALC(B,FÅDEBET$,FÅKREDIT$,FSALDO$)
0x13e9…1411 LineComalBin {
0x13e9…1411 ptr = 0xa168 // 0x13e9 @0x0
0x13e9…1411 lno = 0x0938 // 0x13eb @0x2
0x13e9…1411 at0004 = ╱9d╱ EXEC ╱ // 0x13ed @0x4
0x13e9…1411 at0005 = ╱43╱C╱ // 0x13ee @0x5
0x13e9…1411 at0006 = ╱41╱A╱ // 0x13ef @0x6
0x13e9…1411 at0007 = ╱4c╱L╱ // 0x13f0 @0x7
0x13e9…1411 at0008 = ╱43╱C╱ // 0x13f1 @0x8
0x13e9…1411 at0009 = ╱ed╱(╱ // 0x13f2 @0x9
0x13e9…1411 at000a = ╱42╱B╱ // 0x13f3 @0xa
0x13e9…1411 at000b = ╱ec╱,╱ // 0x13f4 @0xb
0x13e9…1411 at000c = ╱46╱F╱ // 0x13f5 @0xc
0x13e9…1411 at000d = ╱5d╱Å╱ // 0x13f6 @0xd
0x13e9…1411 at000e = ╱44╱D╱ // 0x13f7 @0xe
0x13e9…1411 at000f = ╱45╱E╱ // 0x13f8 @0xf
0x13e9…1411 at0010 = ╱42╱B╱ // 0x13f9 @0x10
0x13e9…1411 at0011 = ╱45╱E╱ // 0x13fa @0x11
0x13e9…1411 at0012 = ╱54╱T╱ // 0x13fb @0x12
0x13e9…1411 at0013 = ╱ef╱$╱ // 0x13fc @0x13
0x13e9…1411 at0014 = ╱ec╱,╱ // 0x13fd @0x14
0x13e9…1411 at0015 = ╱46╱F╱ // 0x13fe @0x15
0x13e9…1411 at0016 = ╱5d╱Å╱ // 0x13ff @0x16
0x13e9…1411 at0017 = ╱4b╱K╱ // 0x1400 @0x17
0x13e9…1411 at0018 = ╱52╱R╱ // 0x1401 @0x18
0x13e9…1411 at0019 = ╱45╱E╱ // 0x1402 @0x19
0x13e9…1411 at001a = ╱44╱D╱ // 0x1403 @0x1a
0x13e9…1411 at001b = ╱49╱I╱ // 0x1404 @0x1b
0x13e9…1411 at001c = ╱54╱T╱ // 0x1405 @0x1c
0x13e9…1411 at001d = ╱ef╱$╱ // 0x1406 @0x1d
0x13e9…1411 at001e = ╱ec╱,╱ // 0x1407 @0x1e
0x13e9…1411 at001f = ╱46╱F╱ // 0x1408 @0x1f
0x13e9…1411 at0020 = ╱53╱S╱ // 0x1409 @0x20
0x13e9…1411 at0021 = ╱41╱A╱ // 0x140a @0x21
0x13e9…1411 at0022 = ╱4c╱L╱ // 0x140b @0x22
0x13e9…1411 at0023 = ╱44╱D╱ // 0x140c @0x23
0x13e9…1411 at0024 = ╱4f╱O╱ // 0x140d @0x24
0x13e9…1411 at0025 = ╱ef╱$╱ // 0x140e @0x25
0x13e9…1411 at0026 = ╱ee╱)╱ // 0x140f @0x26
0x13e9…1411 at0027 = EOL // 0x1410 @0x27
0x13e9…1411 }
0x1411…142d a184 2370 EXEC TUD(FSALDO$,TAL4$,E,B)
0x1411…142d LineComalBin {
0x1411…142d ptr = 0xa184 // 0x1411 @0x0
0x1411…142d lno = 0x0942 // 0x1413 @0x2
0x1411…142d at0004 = ╱9d╱ EXEC ╱ // 0x1415 @0x4
0x1411…142d at0005 = ╱54╱T╱ // 0x1416 @0x5
0x1411…142d at0006 = ╱55╱U╱ // 0x1417 @0x6
0x1411…142d at0007 = ╱44╱D╱ // 0x1418 @0x7
0x1411…142d at0008 = ╱ed╱(╱ // 0x1419 @0x8
0x1411…142d at0009 = ╱46╱F╱ // 0x141a @0x9
0x1411…142d at000a = ╱53╱S╱ // 0x141b @0xa
0x1411…142d at000b = ╱41╱A╱ // 0x141c @0xb
0x1411…142d at000c = ╱4c╱L╱ // 0x141d @0xc
0x1411…142d at000d = ╱44╱D╱ // 0x141e @0xd
0x1411…142d at000e = ╱4f╱O╱ // 0x141f @0xe
0x1411…142d at000f = ╱ef╱$╱ // 0x1420 @0xf
0x1411…142d at0010 = ╱ec╱,╱ // 0x1421 @0x10
0x1411…142d at0011 = ╱54╱T╱ // 0x1422 @0x11
0x1411…142d at0012 = ╱41╱A╱ // 0x1423 @0x12
0x1411…142d at0013 = ╱4c╱L╱ // 0x1424 @0x13
0x1411…142d at0014 = ╱34╱4╱ // 0x1425 @0x14
0x1411…142d at0015 = ╱ef╱$╱ // 0x1426 @0x15
0x1411…142d at0016 = ╱ec╱,╱ // 0x1427 @0x16
0x1411…142d at0017 = ╱45╱E╱ // 0x1428 @0x17
0x1411…142d at0018 = ╱ec╱,╱ // 0x1429 @0x18
0x1411…142d at0019 = ╱42╱B╱ // 0x142a @0x19
0x1411…142d at001a = ╱ee╱)╱ // 0x142b @0x1a
0x1411…142d at001b = EOL // 0x142c @0x1b
0x1411…142d }
0x142d…1433 a18a 2380 ENDIF
0x142d…1433 LineComalBin {
0x142d…1433 ptr = 0xa18a // 0x142d @0x0
0x142d…1433 lno = 0x094c // 0x142f @0x2
0x142d…1433 at0004 = ╱9b╱ ENDIF ╱ // 0x1431 @0x4
0x142d…1433 at0005 = EOL // 0x1432 @0x5
0x142d…1433 }
0x1433…1439 a190 2390 ENDPROC
0x1433…1439 LineComalBin {
0x1433…1439 ptr = 0xa190 // 0x1433 @0x0
0x1433…1439 lno = 0x0956 // 0x1435 @0x2
0x1433…1439 at0004 = ╱9f╱ ENDPROC ╱ // 0x1437 @0x4
0x1433…1439 at0005 = EOL // 0x1438 @0x5
0x1433…1439 }
0x1439…1458 a1af 2400 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x1439…1458 LineComalBin {
0x1439…1458 ptr = 0xa1af // 0x1439 @0x0
0x1439…1458 lno = 0x0960 // 0x143b @0x2
0x1439…1458 at0004 = ╱9e╱ PROC ╱ // 0x143d @0x4
0x1439…1458 at0005 = ╱54╱T╱ // 0x143e @0x5
0x1439…1458 at0006 = ╱55╱U╱ // 0x143f @0x6
0x1439…1458 at0007 = ╱44╱D╱ // 0x1440 @0x7
0x1439…1458 at0008 = ╱ed╱(╱ // 0x1441 @0x8
0x1439…1458 at0009 = ╱42╱B╱ // 0x1442 @0x9
0x1439…1458 at000a = ╱4c╱L╱ // 0x1443 @0xa
0x1439…1458 at000b = ╱42╱B╱ // 0x1444 @0xb
0x1439…1458 at000c = ╱31╱1╱ // 0x1445 @0xc
0x1439…1458 at000d = ╱ec╱,╱ // 0x1446 @0xd
0x1439…1458 at000e = ╱55╱U╱ // 0x1447 @0xe
0x1439…1458 at000f = ╱42╱B╱ // 0x1448 @0xf
0x1439…1458 at0010 = ╱4c╱L╱ // 0x1449 @0x10
0x1439…1458 at0011 = ╱42╱B╱ // 0x144a @0x11
0x1439…1458 at0012 = ╱31╱1╱ // 0x144b @0x12
0x1439…1458 at0013 = ╱ec╱,╱ // 0x144c @0x13
0x1439…1458 at0014 = ╱54╱T╱ // 0x144d @0x14
0x1439…1458 at0015 = ╱45╱E╱ // 0x144e @0x15
0x1439…1458 at0016 = ╱47╱G╱ // 0x144f @0x16
0x1439…1458 at0017 = ╱4e╱N╱ // 0x1450 @0x17
0x1439…1458 at0018 = ╱ec╱,╱ // 0x1451 @0x18
0x1439…1458 at0019 = ╱53╱S╱ // 0x1452 @0x19
0x1439…1458 at001a = ╱54╱T╱ // 0x1453 @0x1a
0x1439…1458 at001b = ╱5c╱Ø╱ // 0x1454 @0x1b
0x1439…1458 at001c = ╱52╱R╱ // 0x1455 @0x1c
0x1439…1458 at001d = ╱ee╱)╱ // 0x1456 @0x1d
0x1439…1458 at001e = EOL // 0x1457 @0x1e
0x1439…1458 }
0x1458…1476 a1cd 2410 BLB2$=BLB1$;UBLB2$=UBLB1$
0x1458…1476 LineComalBin {
0x1458…1476 ptr = 0xa1cd // 0x1458 @0x0
0x1458…1476 lno = 0x096a // 0x145a @0x2
0x1458…1476 at0004 = ╱42╱B╱ // 0x145c @0x4
0x1458…1476 at0005 = ╱4c╱L╱ // 0x145d @0x5
0x1458…1476 at0006 = ╱42╱B╱ // 0x145e @0x6
0x1458…1476 at0007 = ╱32╱2╱ // 0x145f @0x7
0x1458…1476 at0008 = ╱ef╱$╱ // 0x1460 @0x8
0x1458…1476 at0009 = ╱dc╱=╱ // 0x1461 @0x9
0x1458…1476 at000a = ╱42╱B╱ // 0x1462 @0xa
0x1458…1476 at000b = ╱4c╱L╱ // 0x1463 @0xb
0x1458…1476 at000c = ╱42╱B╱ // 0x1464 @0xc
0x1458…1476 at000d = ╱31╱1╱ // 0x1465 @0xd
0x1458…1476 at000e = ╱ef╱$╱ // 0x1466 @0xe
0x1458…1476 at000f = ╱eb╱;╱ // 0x1467 @0xf
0x1458…1476 at0010 = ╱55╱U╱ // 0x1468 @0x10
0x1458…1476 at0011 = ╱42╱B╱ // 0x1469 @0x11
0x1458…1476 at0012 = ╱4c╱L╱ // 0x146a @0x12
0x1458…1476 at0013 = ╱42╱B╱ // 0x146b @0x13
0x1458…1476 at0014 = ╱32╱2╱ // 0x146c @0x14
0x1458…1476 at0015 = ╱ef╱$╱ // 0x146d @0x15
0x1458…1476 at0016 = ╱dc╱=╱ // 0x146e @0x16
0x1458…1476 at0017 = ╱55╱U╱ // 0x146f @0x17
0x1458…1476 at0018 = ╱42╱B╱ // 0x1470 @0x18
0x1458…1476 at0019 = ╱4c╱L╱ // 0x1471 @0x19
0x1458…1476 at001a = ╱42╱B╱ // 0x1472 @0x1a
0x1458…1476 at001b = ╱31╱1╱ // 0x1473 @0x1b
0x1458…1476 at001c = ╱ef╱$╱ // 0x1474 @0x1c
0x1458…1476 at001d = EOL // 0x1475 @0x1d
0x1458…1476 }
0x1476…149a a1f1 2420 EXEC CALC(5,BLB2$,TAH$,UBLB2$)
0x1476…149a LineComalBin {
0x1476…149a ptr = 0xa1f1 // 0x1476 @0x0
0x1476…149a lno = 0x0974 // 0x1478 @0x2
0x1476…149a at0004 = ╱9d╱ EXEC ╱ // 0x147a @0x4
0x1476…149a at0005 = ╱43╱C╱ // 0x147b @0x5
0x1476…149a at0006 = ╱41╱A╱ // 0x147c @0x6
0x1476…149a at0007 = ╱4c╱L╱ // 0x147d @0x7
0x1476…149a at0008 = ╱43╱C╱ // 0x147e @0x8
0x1476…149a at0009 = ╱ed╱(╱ // 0x147f @0x9
0x1476…149a at000a = ╱35╱5╱ // 0x1480 @0xa
0x1476…149a at000b = ╱fe0000a003╱ // 0x1481 @0xb
0x1476…149a at0010 = ╱ec╱,╱ // 0x1486 @0x10
0x1476…149a at0011 = ╱42╱B╱ // 0x1487 @0x11
0x1476…149a at0012 = ╱4c╱L╱ // 0x1488 @0x12
0x1476…149a at0013 = ╱42╱B╱ // 0x1489 @0x13
0x1476…149a at0014 = ╱32╱2╱ // 0x148a @0x14
0x1476…149a at0015 = ╱ef╱$╱ // 0x148b @0x15
0x1476…149a at0016 = ╱ec╱,╱ // 0x148c @0x16
0x1476…149a at0017 = ╱54╱T╱ // 0x148d @0x17
0x1476…149a at0018 = ╱41╱A╱ // 0x148e @0x18
0x1476…149a at0019 = ╱48╱H╱ // 0x148f @0x19
0x1476…149a at001a = ╱ef╱$╱ // 0x1490 @0x1a
0x1476…149a at001b = ╱ec╱,╱ // 0x1491 @0x1b
0x1476…149a at001c = ╱55╱U╱ // 0x1492 @0x1c
0x1476…149a at001d = ╱42╱B╱ // 0x1493 @0x1d
0x1476…149a at001e = ╱4c╱L╱ // 0x1494 @0x1e
0x1476…149a at001f = ╱42╱B╱ // 0x1495 @0x1f
0x1476…149a at0020 = ╱32╱2╱ // 0x1496 @0x20
0x1476…149a at0021 = ╱ef╱$╱ // 0x1497 @0x21
0x1476…149a at0022 = ╱ee╱)╱ // 0x1498 @0x22
0x1476…149a at0023 = EOL // 0x1499 @0x23
0x1476…149a }
0x149a…14ac a203 2430 UBLB1$=UBLB2$
0x149a…14ac LineComalBin {
0x149a…14ac ptr = 0xa203 // 0x149a @0x0
0x149a…14ac lno = 0x097e // 0x149c @0x2
0x149a…14ac at0004 = ╱55╱U╱ // 0x149e @0x4
0x149a…14ac at0005 = ╱42╱B╱ // 0x149f @0x5
0x149a…14ac at0006 = ╱4c╱L╱ // 0x14a0 @0x6
0x149a…14ac at0007 = ╱42╱B╱ // 0x14a1 @0x7
0x149a…14ac at0008 = ╱31╱1╱ // 0x14a2 @0x8
0x149a…14ac at0009 = ╱ef╱$╱ // 0x14a3 @0x9
0x149a…14ac at000a = ╱dc╱=╱ // 0x14a4 @0xa
0x149a…14ac at000b = ╱55╱U╱ // 0x14a5 @0xb
0x149a…14ac at000c = ╱42╱B╱ // 0x14a6 @0xc
0x149a…14ac at000d = ╱4c╱L╱ // 0x14a7 @0xd
0x149a…14ac at000e = ╱42╱B╱ // 0x14a8 @0xe
0x149a…14ac at000f = ╱32╱2╱ // 0x14a9 @0xf
0x149a…14ac at0010 = ╱ef╱$╱ // 0x14aa @0x10
0x149a…14ac at0011 = EOL // 0x14ab @0x11
0x149a…14ac }
0x14ac…14b9 a210 2440 IF TEGN=B THEN
0x14ac…14b9 LineComalBin {
0x14ac…14b9 ptr = 0xa210 // 0x14ac @0x0
0x14ac…14b9 lno = 0x0988 // 0x14ae @0x2
0x14ac…14b9 at0004 = ╱9c╱ IF ╱ // 0x14b0 @0x4
0x14ac…14b9 at0005 = ╱54╱T╱ // 0x14b1 @0x5
0x14ac…14b9 at0006 = ╱45╱E╱ // 0x14b2 @0x6
0x14ac…14b9 at0007 = ╱47╱G╱ // 0x14b3 @0x7
0x14ac…14b9 at0008 = ╱4e╱N╱ // 0x14b4 @0x8
0x14ac…14b9 at0009 = ╱dc╱=╱ // 0x14b5 @0x9
0x14ac…14b9 at000a = ╱42╱B╱ // 0x14b6 @0xa
0x14ac…14b9 at000b = ╱b6╱ THEN ╱ // 0x14b7 @0xb
0x14ac…14b9 at000c = EOL // 0x14b8 @0xc
0x14ac…14b9 }
0x14b9…14d6 a22d 2450 UBLB1$=UBLB1$(E:13)
0x14b9…14d6 LineComalBin {
0x14b9…14d6 ptr = 0xa22d // 0x14b9 @0x0
0x14b9…14d6 lno = 0x0992 // 0x14bb @0x2
0x14b9…14d6 at0004 = ╱55╱U╱ // 0x14bd @0x4
0x14b9…14d6 at0005 = ╱42╱B╱ // 0x14be @0x5
0x14b9…14d6 at0006 = ╱4c╱L╱ // 0x14bf @0x6
0x14b9…14d6 at0007 = ╱42╱B╱ // 0x14c0 @0x7
0x14b9…14d6 at0008 = ╱31╱1╱ // 0x14c1 @0x8
0x14b9…14d6 at0009 = ╱ef╱$╱ // 0x14c2 @0x9
0x14b9…14d6 at000a = ╱dc╱=╱ // 0x14c3 @0xa
0x14b9…14d6 at000b = ╱55╱U╱ // 0x14c4 @0xb
0x14b9…14d6 at000c = ╱42╱B╱ // 0x14c5 @0xc
0x14b9…14d6 at000d = ╱4c╱L╱ // 0x14c6 @0xd
0x14b9…14d6 at000e = ╱42╱B╱ // 0x14c7 @0xe
0x14b9…14d6 at000f = ╱31╱1╱ // 0x14c8 @0xf
0x14b9…14d6 at0010 = ╱ef╱$╱ // 0x14c9 @0x10
0x14b9…14d6 at0011 = ╱ed╱(╱ // 0x14ca @0x11
0x14b9…14d6 at0012 = ╱45╱E╱ // 0x14cb @0x12
0x14b9…14d6 at0013 = ╱f0╱:╱ // 0x14cc @0x13
0x14b9…14d6 at0014 = ╱31╱1╱ // 0x14cd @0x14
0x14b9…14d6 at0015 = ╱33╱3╱ // 0x14ce @0x15
0x14b9…14d6 at0016 = ╱fe0000d004╱ // 0x14cf @0x16
0x14b9…14d6 at001b = ╱ee╱)╱ // 0x14d4 @0x1b
0x14b9…14d6 at001c = EOL // 0x14d5 @0x1c
0x14b9…14d6 }
0x14d6…14dc a233 2460 ELSE
0x14d6…14dc LineComalBin {
0x14d6…14dc ptr = 0xa233 // 0x14d6 @0x0
0x14d6…14dc lno = 0x099c // 0x14d8 @0x2
0x14d6…14dc at0004 = ╱9a╱ ELSE ╱ // 0x14da @0x4
0x14d6…14dc at0005 = EOL // 0x14db @0x5
0x14d6…14dc }
0x14dc…14ff a256 2470 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN
0x14dc…14ff LineComalBin {
0x14dc…14ff ptr = 0xa256 // 0x14dc @0x0
0x14dc…14ff lno = 0x09a6 // 0x14de @0x2
0x14dc…14ff at0004 = ╱9c╱ IF ╱ // 0x14e0 @0x4
0x14dc…14ff at0005 = ╱54╱T╱ // 0x14e1 @0x5
0x14dc…14ff at0006 = ╱45╱E╱ // 0x14e2 @0x6
0x14dc…14ff at0007 = ╱47╱G╱ // 0x14e3 @0x7
0x14dc…14ff at0008 = ╱4e╱N╱ // 0x14e4 @0x8
0x14dc…14ff at0009 = ╱dc╱=╱ // 0x14e5 @0x9
0x14dc…14ff at000a = ╱45╱E╱ // 0x14e6 @0xa
0x14dc…14ff at000b = ╱da╱ AND ╱ // 0x14e7 @0xb
0x14dc…14ff at000c = ╱55╱U╱ // 0x14e8 @0xc
0x14dc…14ff at000d = ╱42╱B╱ // 0x14e9 @0xd
0x14dc…14ff at000e = ╱4c╱L╱ // 0x14ea @0xe
0x14dc…14ff at000f = ╱42╱B╱ // 0x14eb @0xf
0x14dc…14ff at0010 = ╱31╱1╱ // 0x14ec @0x10
0x14dc…14ff at0011 = ╱ef╱$╱ // 0x14ed @0x11
0x14dc…14ff at0012 = ╱ed╱(╱ // 0x14ee @0x12
0x14dc…14ff at0013 = ╱cc╱LEN╱ // 0x14ef @0x13
0x14dc…14ff at0014 = ╱ed╱(╱ // 0x14f0 @0x14
0x14dc…14ff at0015 = ╱55╱U╱ // 0x14f1 @0x15
0x14dc…14ff at0016 = ╱42╱B╱ // 0x14f2 @0x16
0x14dc…14ff at0017 = ╱4c╱L╱ // 0x14f3 @0x17
0x14dc…14ff at0018 = ╱42╱B╱ // 0x14f4 @0x18
0x14dc…14ff at0019 = ╱31╱1╱ // 0x14f5 @0x19
0x14dc…14ff at001a = ╱ef╱$╱ // 0x14f6 @0x1a
0x14dc…14ff at001b = ╱ee╱)╱ // 0x14f7 @0x1b
0x14dc…14ff at001c = ╱ee╱)╱ // 0x14f8 @0x1c
0x14dc…14ff at001d = ╱dc╱=╱ // 0x14f9 @0x1d
0x14dc…14ff at001e = ╱22╱"╱ // 0x14fa @0x1e
0x14dc…14ff at001f = ╱2b╱+╱ // 0x14fb @0x1f
0x14dc…14ff at0020 = ╱22╱"╱ // 0x14fc @0x20
0x14dc…14ff at0021 = ╱b6╱ THEN ╱ // 0x14fd @0x21
0x14dc…14ff at0022 = EOL // 0x14fe @0x22
0x14dc…14ff }
0x14ff…1519 a270 2480 UBLB1$(LEN(UBLB1$))=" "
0x14ff…1519 LineComalBin {
0x14ff…1519 ptr = 0xa270 // 0x14ff @0x0
0x14ff…1519 lno = 0x09b0 // 0x1501 @0x2
0x14ff…1519 at0004 = ╱55╱U╱ // 0x1503 @0x4
0x14ff…1519 at0005 = ╱42╱B╱ // 0x1504 @0x5
0x14ff…1519 at0006 = ╱4c╱L╱ // 0x1505 @0x6
0x14ff…1519 at0007 = ╱42╱B╱ // 0x1506 @0x7
0x14ff…1519 at0008 = ╱31╱1╱ // 0x1507 @0x8
0x14ff…1519 at0009 = ╱ef╱$╱ // 0x1508 @0x9
0x14ff…1519 at000a = ╱ed╱(╱ // 0x1509 @0xa
0x14ff…1519 at000b = ╱cc╱LEN╱ // 0x150a @0xb
0x14ff…1519 at000c = ╱ed╱(╱ // 0x150b @0xc
0x14ff…1519 at000d = ╱55╱U╱ // 0x150c @0xd
0x14ff…1519 at000e = ╱42╱B╱ // 0x150d @0xe
0x14ff…1519 at000f = ╱4c╱L╱ // 0x150e @0xf
0x14ff…1519 at0010 = ╱42╱B╱ // 0x150f @0x10
0x14ff…1519 at0011 = ╱31╱1╱ // 0x1510 @0x11
0x14ff…1519 at0012 = ╱ef╱$╱ // 0x1511 @0x12
0x14ff…1519 at0013 = ╱ee╱)╱ // 0x1512 @0x13
0x14ff…1519 at0014 = ╱ee╱)╱ // 0x1513 @0x14
0x14ff…1519 at0015 = ╱dc╱=╱ // 0x1514 @0x15
0x14ff…1519 at0016 = ╱22╱"╱ // 0x1515 @0x16
0x14ff…1519 at0017 = ╱20╱…╱ // 0x1516 @0x17
0x14ff…1519 at0018 = ╱22╱"╱ // 0x1517 @0x18
0x14ff…1519 at0019 = EOL // 0x1518 @0x19
0x14ff…1519 }
0x1519…151f a276 2490 ENDIF
0x1519…151f LineComalBin {
0x1519…151f ptr = 0xa276 // 0x1519 @0x0
0x1519…151f lno = 0x09ba // 0x151b @0x2
0x1519…151f at0004 = ╱9b╱ ENDIF ╱ // 0x151d @0x4
0x1519…151f at0005 = EOL // 0x151e @0x5
0x1519…151f }
0x151f…152c a283 2500 IF STØR=E THEN
0x151f…152c LineComalBin {
0x151f…152c ptr = 0xa283 // 0x151f @0x0
0x151f…152c lno = 0x09c4 // 0x1521 @0x2
0x151f…152c at0004 = ╱9c╱ IF ╱ // 0x1523 @0x4
0x151f…152c at0005 = ╱53╱S╱ // 0x1524 @0x5
0x151f…152c at0006 = ╱54╱T╱ // 0x1525 @0x6
0x151f…152c at0007 = ╱5c╱Ø╱ // 0x1526 @0x7
0x151f…152c at0008 = ╱52╱R╱ // 0x1527 @0x8
0x151f…152c at0009 = ╱dc╱=╱ // 0x1528 @0x9
0x151f…152c at000a = ╱45╱E╱ // 0x1529 @0xa
0x151f…152c at000b = ╱b6╱ THEN ╱ // 0x152a @0xb
0x151f…152c at000c = EOL // 0x152b @0xc
0x151f…152c }
0x152c…1552 a2a9 2510 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x152c…1552 LineComalBin {
0x152c…1552 ptr = 0xa2a9 // 0x152c @0x0
0x152c…1552 lno = 0x09ce // 0x152e @0x2
0x152c…1552 at0004 = ╱55╱U╱ // 0x1530 @0x4
0x152c…1552 at0005 = ╱42╱B╱ // 0x1531 @0x5
0x152c…1552 at0006 = ╱4c╱L╱ // 0x1532 @0x6
0x152c…1552 at0007 = ╱42╱B╱ // 0x1533 @0x7
0x152c…1552 at0008 = ╱31╱1╱ // 0x1534 @0x8
0x152c…1552 at0009 = ╱ef╱$╱ // 0x1535 @0x9
0x152c…1552 at000a = ╱dc╱=╱ // 0x1536 @0xa
0x152c…1552 at000b = ╱55╱U╱ // 0x1537 @0xb
0x152c…1552 at000c = ╱42╱B╱ // 0x1538 @0xc
0x152c…1552 at000d = ╱4c╱L╱ // 0x1539 @0xd
0x152c…1552 at000e = ╱42╱B╱ // 0x153a @0xe
0x152c…1552 at000f = ╱31╱1╱ // 0x153b @0xf
0x152c…1552 at0010 = ╱ef╱$╱ // 0x153c @0x10
0x152c…1552 at0011 = ╱ed╱(╱ // 0x153d @0x11
0x152c…1552 at0012 = ╱34╱4╱ // 0x153e @0x12
0x152c…1552 at0013 = ╱fe00008003╱ // 0x153f @0x13
0x152c…1552 at0018 = ╱f0╱:╱ // 0x1544 @0x18
0x152c…1552 at0019 = ╱cc╱LEN╱ // 0x1545 @0x19
0x152c…1552 at001a = ╱ed╱(╱ // 0x1546 @0x1a
0x152c…1552 at001b = ╱55╱U╱ // 0x1547 @0x1b
0x152c…1552 at001c = ╱42╱B╱ // 0x1548 @0x1c
0x152c…1552 at001d = ╱4c╱L╱ // 0x1549 @0x1d
0x152c…1552 at001e = ╱42╱B╱ // 0x154a @0x1e
0x152c…1552 at001f = ╱31╱1╱ // 0x154b @0x1f
0x152c…1552 at0020 = ╱ef╱$╱ // 0x154c @0x20
0x152c…1552 at0021 = ╱ee╱)╱ // 0x154d @0x21
0x152c…1552 at0022 = ╱e3╱-╱ // 0x154e @0x22
0x152c…1552 at0023 = ╱56╱V╱ // 0x154f @0x23
0x152c…1552 at0024 = ╱ee╱)╱ // 0x1550 @0x24
0x152c…1552 at0025 = EOL // 0x1551 @0x25
0x152c…1552 }
0x1552…1558 a2af 2520 ENDIF
0x1552…1558 LineComalBin {
0x1552…1558 ptr = 0xa2af // 0x1552 @0x0
0x1552…1558 lno = 0x09d8 // 0x1554 @0x2
0x1552…1558 at0004 = ╱9b╱ ENDIF ╱ // 0x1556 @0x4
0x1552…1558 at0005 = EOL // 0x1557 @0x5
0x1552…1558 }
0x1558…155e a2b5 2530 ENDIF
0x1558…155e LineComalBin {
0x1558…155e ptr = 0xa2b5 // 0x1558 @0x0
0x1558…155e lno = 0x09e2 // 0x155a @0x2
0x1558…155e at0004 = ╱9b╱ ENDIF ╱ // 0x155c @0x4
0x1558…155e at0005 = EOL // 0x155d @0x5
0x1558…155e }
0x155e…156a a2c1 2540 PRINT UBLB1$
0x155e…156a LineComalBin {
0x155e…156a ptr = 0xa2c1 // 0x155e @0x0
0x155e…156a lno = 0x09ec // 0x1560 @0x2
0x155e…156a at0004 = ╱92╱ PRINT ╱ // 0x1562 @0x4
0x155e…156a at0005 = ╱55╱U╱ // 0x1563 @0x5
0x155e…156a at0006 = ╱42╱B╱ // 0x1564 @0x6
0x155e…156a at0007 = ╱4c╱L╱ // 0x1565 @0x7
0x155e…156a at0008 = ╱42╱B╱ // 0x1566 @0x8
0x155e…156a at0009 = ╱31╱1╱ // 0x1567 @0x9
0x155e…156a at000a = ╱ef╱$╱ // 0x1568 @0xa
0x155e…156a at000b = EOL // 0x1569 @0xb
0x155e…156a }
0x156a…1570 a2c7 2550 ENDPROC
0x156a…1570 LineComalBin {
0x156a…1570 ptr = 0xa2c7 // 0x156a @0x0
0x156a…1570 lno = 0x09f6 // 0x156c @0x2
0x156a…1570 at0004 = ╱9f╱ ENDPROC ╱ // 0x156e @0x4
0x156a…1570 at0005 = EOL // 0x156f @0x5
0x156a…1570 }
0x1570…1582 a2d9 2560 PROC NRTEST(NUM1)
0x1570…1582 LineComalBin {
0x1570…1582 ptr = 0xa2d9 // 0x1570 @0x0
0x1570…1582 lno = 0x0a00 // 0x1572 @0x2
0x1570…1582 at0004 = ╱9e╱ PROC ╱ // 0x1574 @0x4
0x1570…1582 at0005 = ╱4e╱N╱ // 0x1575 @0x5
0x1570…1582 at0006 = ╱52╱R╱ // 0x1576 @0x6
0x1570…1582 at0007 = ╱54╱T╱ // 0x1577 @0x7
0x1570…1582 at0008 = ╱45╱E╱ // 0x1578 @0x8
0x1570…1582 at0009 = ╱53╱S╱ // 0x1579 @0x9
0x1570…1582 at000a = ╱54╱T╱ // 0x157a @0xa
0x1570…1582 at000b = ╱ed╱(╱ // 0x157b @0xb
0x1570…1582 at000c = ╱4e╱N╱ // 0x157c @0xc
0x1570…1582 at000d = ╱55╱U╱ // 0x157d @0xd
0x1570…1582 at000e = ╱4d╱M╱ // 0x157e @0xe
0x1570…1582 at000f = ╱31╱1╱ // 0x157f @0xf
0x1570…1582 at0010 = ╱ee╱)╱ // 0x1580 @0x10
0x1570…1582 at0011 = EOL // 0x1581 @0x11
0x1570…1582 }
0x1582…15a4 a2fb 2570 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x1582…15a4 LineComalBin {
0x1582…15a4 ptr = 0xa2fb // 0x1582 @0x0
0x1582…15a4 lno = 0x0a0a // 0x1584 @0x2
0x1582…15a4 at0004 = ╱50╱P╱ // 0x1586 @0x4
0x1582…15a4 at0005 = ╱dc╱=╱ // 0x1587 @0x5
0x1582…15a4 at0006 = ╱42╱B╱ // 0x1588 @0x6
0x1582…15a4 at0007 = ╱eb╱;╱ // 0x1589 @0x7
0x1582…15a4 at0008 = ╱54╱T╱ // 0x158a @0x8
0x1582…15a4 at0009 = ╱45╱E╱ // 0x158b @0x9
0x1582…15a4 at000a = ╱53╱S╱ // 0x158c @0xa
0x1582…15a4 at000b = ╱54╱T╱ // 0x158d @0xb
0x1582…15a4 at000c = ╱32╱2╱ // 0x158e @0xc
0x1582…15a4 at000d = ╱dc╱=╱ // 0x158f @0xd
0x1582…15a4 at000e = ╱42╱B╱ // 0x1590 @0xe
0x1582…15a4 at000f = ╱eb╱;╱ // 0x1591 @0xf
0x1582…15a4 at0010 = ╱4b╱K╱ // 0x1592 @0x10
0x1582…15a4 at0011 = ╱54╱T╱ // 0x1593 @0x11
0x1582…15a4 at0012 = ╱41╱A╱ // 0x1594 @0x12
0x1582…15a4 at0013 = ╱4c╱L╱ // 0x1595 @0x13
0x1582…15a4 at0014 = ╱dc╱=╱ // 0x1596 @0x14
0x1582…15a4 at0015 = ╱42╱B╱ // 0x1597 @0x15
0x1582…15a4 at0016 = ╱eb╱;╱ // 0x1598 @0x16
0x1582…15a4 at0017 = ╱4c╱L╱ // 0x1599 @0x17
0x1582…15a4 at0018 = ╱dc╱=╱ // 0x159a @0x18
0x1582…15a4 at0019 = ╱cc╱LEN╱ // 0x159b @0x19
0x1582…15a4 at001a = ╱ed╱(╱ // 0x159c @0x1a
0x1582…15a4 at001b = ╱4e╱N╱ // 0x159d @0x1b
0x1582…15a4 at001c = ╱55╱U╱ // 0x159e @0x1c
0x1582…15a4 at001d = ╱4d╱M╱ // 0x159f @0x1d
0x1582…15a4 at001e = ╱31╱1╱ // 0x15a0 @0x1e
0x1582…15a4 at001f = ╱ef╱$╱ // 0x15a1 @0x1f
0x1582…15a4 at0020 = ╱ee╱)╱ // 0x15a2 @0x20
0x1582…15a4 at0021 = EOL // 0x15a3 @0x21
0x1582…15a4 }
0x15a4…15ad a304 2580 CASE L OF
0x15a4…15ad LineComalBin {
0x15a4…15ad ptr = 0xa304 // 0x15a4 @0x0
0x15a4…15ad lno = 0x0a14 // 0x15a6 @0x2
0x15a4…15ad at0004 = ╱a201╱ CASE ╱ // 0x15a8 @0x4
0x15a4…15ad at0006 = ╱4c╱L╱ // 0x15aa @0x6
0x15a4…15ad at0007 = ╱ba╱ OF ╱ // 0x15ab @0x7
0x15a4…15ad at0008 = EOL // 0x15ac @0x8
0x15a4…15ad }
0x15ad…15b8 a30f 2590 FOR I=E TO L
0x15ad…15b8 LineComalBin {
0x15ad…15b8 ptr = 0xa30f // 0x15ad @0x0
0x15ad…15b8 lno = 0x0a1e // 0x15af @0x2
0x15ad…15b8 at0004 = ╱83╱ FOR ╱ // 0x15b1 @0x4
0x15ad…15b8 at0005 = ╱49╱I╱ // 0x15b2 @0x5
0x15ad…15b8 at0006 = ╱dc╱=╱ // 0x15b3 @0x6
0x15ad…15b8 at0007 = ╱45╱E╱ // 0x15b4 @0x7
0x15ad…15b8 at0008 = ╱b7╱ TO ╱ // 0x15b5 @0x8
0x15ad…15b8 at0009 = ╱4c╱L╱ // 0x15b6 @0x9
0x15ad…15b8 at000a = EOL // 0x15b7 @0xa
0x15ad…15b8 }
0x15b8…15d6 a32d 2600 P1=INT(ORD(NUM1$(I))-48)
0x15b8…15d6 LineComalBin {
0x15b8…15d6 ptr = 0xa32d // 0x15b8 @0x0
0x15b8…15d6 lno = 0x0a28 // 0x15ba @0x2
0x15b8…15d6 at0004 = ╱50╱P╱ // 0x15bc @0x4
0x15b8…15d6 at0005 = ╱31╱1╱ // 0x15bd @0x5
0x15b8…15d6 at0006 = ╱dc╱=╱ // 0x15be @0x6
0x15b8…15d6 at0007 = ╱c6╱INT╱ // 0x15bf @0x7
0x15b8…15d6 at0008 = ╱ed╱(╱ // 0x15c0 @0x8
0x15b8…15d6 at0009 = ╱cd╱ORD╱ // 0x15c1 @0x9
0x15b8…15d6 at000a = ╱ed╱(╱ // 0x15c2 @0xa
0x15b8…15d6 at000b = ╱4e╱N╱ // 0x15c3 @0xb
0x15b8…15d6 at000c = ╱55╱U╱ // 0x15c4 @0xc
0x15b8…15d6 at000d = ╱4d╱M╱ // 0x15c5 @0xd
0x15b8…15d6 at000e = ╱31╱1╱ // 0x15c6 @0xe
0x15b8…15d6 at000f = ╱ef╱$╱ // 0x15c7 @0xf
0x15b8…15d6 at0010 = ╱ed╱(╱ // 0x15c8 @0x10
0x15b8…15d6 at0011 = ╱49╱I╱ // 0x15c9 @0x11
0x15b8…15d6 at0012 = ╱ee╱)╱ // 0x15ca @0x12
0x15b8…15d6 at0013 = ╱ee╱)╱ // 0x15cb @0x13
0x15b8…15d6 at0014 = ╱e3╱-╱ // 0x15cc @0x14
0x15b8…15d6 at0015 = ╱34╱4╱ // 0x15cd @0x15
0x15b8…15d6 at0016 = ╱38╱8╱ // 0x15ce @0x16
0x15b8…15d6 at0017 = ╱fe0000c006╱ // 0x15cf @0x17
0x15b8…15d6 at001c = ╱ee╱)╱ // 0x15d4 @0x1c
0x15b8…15d6 at001d = EOL // 0x15d5 @0x1d
0x15b8…15d6 }
0x15d6…15e6 a33d 2610 IF P1=>B AND P1<=W THEN
0x15d6…15e6 LineComalBin {
0x15d6…15e6 ptr = 0xa33d // 0x15d6 @0x0
0x15d6…15e6 lno = 0x0a32 // 0x15d8 @0x2
0x15d6…15e6 at0004 = ╱9c╱ IF ╱ // 0x15da @0x4
0x15d6…15e6 at0005 = ╱50╱P╱ // 0x15db @0x5
0x15d6…15e6 at0006 = ╱31╱1╱ // 0x15dc @0x6
0x15d6…15e6 at0007 = ╱e0╱=>╱ // 0x15dd @0x7
0x15d6…15e6 at0008 = ╱42╱B╱ // 0x15de @0x8
0x15d6…15e6 at0009 = ╱da╱ AND ╱ // 0x15df @0x9
0x15d6…15e6 at000a = ╱50╱P╱ // 0x15e0 @0xa
0x15d6…15e6 at000b = ╱31╱1╱ // 0x15e1 @0xb
0x15d6…15e6 at000c = ╱df╱<=╱ // 0x15e2 @0xc
0x15d6…15e6 at000d = ╱57╱W╱ // 0x15e3 @0xd
0x15d6…15e6 at000e = ╱b6╱ THEN ╱ // 0x15e4 @0xe
0x15d6…15e6 at000f = EOL // 0x15e5 @0xf
0x15d6…15e6 }
0x15e6…15f9 a350 2620 P=P*10+P1
0x15e6…15f9 LineComalBin {
0x15e6…15f9 ptr = 0xa350 // 0x15e6 @0x0
0x15e6…15f9 lno = 0x0a3c // 0x15e8 @0x2
0x15e6…15f9 at0004 = ╱50╱P╱ // 0x15ea @0x4
0x15e6…15f9 at0005 = ╱dc╱=╱ // 0x15eb @0x5
0x15e6…15f9 at0006 = ╱50╱P╱ // 0x15ec @0x6
0x15e6…15f9 at0007 = ╱e4╱*╱ // 0x15ed @0x7
0x15e6…15f9 at0008 = ╱31╱1╱ // 0x15ee @0x8
0x15e6…15f9 at0009 = ╱30╱0╱ // 0x15ef @0x9
0x15e6…15f9 at000a = ╱fe0000a004╱ // 0x15f0 @0xa
0x15e6…15f9 at000f = ╱e2╱+╱ // 0x15f5 @0xf
0x15e6…15f9 at0010 = ╱50╱P╱ // 0x15f6 @0x10
0x15e6…15f9 at0011 = ╱31╱1╱ // 0x15f7 @0x11
0x15e6…15f9 at0012 = EOL // 0x15f8 @0x12
0x15e6…15f9 }
0x15f9…15ff a356 2630 ELSE
0x15f9…15ff LineComalBin {
0x15f9…15ff ptr = 0xa356 // 0x15f9 @0x0
0x15f9…15ff lno = 0x0a46 // 0x15fb @0x2
0x15f9…15ff at0004 = ╱9a╱ ELSE ╱ // 0x15fd @0x4
0x15f9…15ff at0005 = EOL // 0x15fe @0x5
0x15f9…15ff }
0x15ff…160b a362 2640 TEST2=E
0x15ff…160b LineComalBin {
0x15ff…160b ptr = 0xa362 // 0x15ff @0x0
0x15ff…160b lno = 0x0a50 // 0x1601 @0x2
0x15ff…160b at0004 = ╱54╱T╱ // 0x1603 @0x4
0x15ff…160b at0005 = ╱45╱E╱ // 0x1604 @0x5
0x15ff…160b at0006 = ╱53╱S╱ // 0x1605 @0x6
0x15ff…160b at0007 = ╱54╱T╱ // 0x1606 @0x7
0x15ff…160b at0008 = ╱32╱2╱ // 0x1607 @0x8
0x15ff…160b at0009 = ╱dc╱=╱ // 0x1608 @0x9
0x15ff…160b at000a = ╱45╱E╱ // 0x1609 @0xa
0x15ff…160b at000b = EOL // 0x160a @0xb
0x15ff…160b }
0x160b…1611 a368 2650 ENDIF
0x160b…1611 LineComalBin {
0x160b…1611 ptr = 0xa368 // 0x160b @0x0
0x160b…1611 lno = 0x0a5a // 0x160d @0x2
0x160b…1611 at0004 = ╱9b╱ ENDIF ╱ // 0x160f @0x4
0x160b…1611 at0005 = EOL // 0x1610 @0x5
0x160b…1611 }
0x1611…1618 a36f 2660 NEXT I
0x1611…1618 LineComalBin {
0x1611…1618 ptr = 0xa36f // 0x1611 @0x0
0x1611…1618 lno = 0x0a64 // 0x1613 @0x2
0x1611…1618 at0004 = ╱84╱ NEXT ╱ // 0x1615 @0x4
0x1611…1618 at0005 = ╱49╱I╱ // 0x1616 @0x5
0x1611…1618 at0006 = EOL // 0x1617 @0x6
0x1611…1618 }
0x1618…1640 a397 2670 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x1618…1640 LineComalBin {
0x1618…1640 ptr = 0xa397 // 0x1618 @0x0
0x1618…1640 lno = 0x0a6e // 0x161a @0x2
0x1618…1640 at0004 = ╱4b╱K╱ // 0x161c @0x4
0x1618…1640 at0005 = ╱54╱T╱ // 0x161d @0x5
0x1618…1640 at0006 = ╱41╱A╱ // 0x161e @0x6
0x1618…1640 at0007 = ╱4c╱L╱ // 0x161f @0x7
0x1618…1640 at0008 = ╱dc╱=╱ // 0x1620 @0x8
0x1618…1640 at0009 = ╱50╱P╱ // 0x1621 @0x9
0x1618…1640 at000a = ╱e7╱ DIV ╱ // 0x1622 @0xa
0x1618…1640 at000b = ╱31╱1╱ // 0x1623 @0xb
0x1618…1640 at000c = ╱30╱0╱ // 0x1624 @0xc
0x1618…1640 at000d = ╱30╱0╱ // 0x1625 @0xd
0x1618…1640 at000e = ╱30╱0╱ // 0x1626 @0xe
0x1618…1640 at000f = ╱30╱0╱ // 0x1627 @0xf
0x1618…1640 at0010 = ╱fe00409c0e╱ // 0x1628 @0x10
0x1618…1640 at0015 = ╱eb╱;╱ // 0x162d @0x15
0x1618…1640 at0016 = ╱4b╱K╱ // 0x162e @0x16
0x1618…1640 at0017 = ╱54╱T╱ // 0x162f @0x17
0x1618…1640 at0018 = ╱41╱A╱ // 0x1630 @0x18
0x1618…1640 at0019 = ╱4c╱L╱ // 0x1631 @0x19
0x1618…1640 at001a = ╱39╱9╱ // 0x1632 @0x1a
0x1618…1640 at001b = ╱dc╱=╱ // 0x1633 @0x1b
0x1618…1640 at001c = ╱50╱P╱ // 0x1634 @0x1c
0x1618…1640 at001d = ╱e7╱ DIV ╱ // 0x1635 @0x1d
0x1618…1640 at001e = ╱31╱1╱ // 0x1636 @0x1e
0x1618…1640 at001f = ╱30╱0╱ // 0x1637 @0x1f
0x1618…1640 at0020 = ╱30╱0╱ // 0x1638 @0x20
0x1618…1640 at0021 = ╱30╱0╱ // 0x1639 @0x21
0x1618…1640 at0022 = ╱fe0000fa0a╱ // 0x163a @0x22
0x1618…1640 at0027 = EOL // 0x163f @0x27
0x1618…1640 }
0x1640…165c a3b3 2680 IF KTAL9=KRTAL THEN KTAL=KRTAL
0x1640…165c LineComalBin {
0x1640…165c ptr = 0xa3b3 // 0x1640 @0x0
0x1640…165c lno = 0x0a78 // 0x1642 @0x2
0x1640…165c at0004 = ╱82╱ IF ╱ // 0x1644 @0x4
0x1640…165c at0005 = ╱4b╱K╱ // 0x1645 @0x5
0x1640…165c at0006 = ╱54╱T╱ // 0x1646 @0x6
0x1640…165c at0007 = ╱41╱A╱ // 0x1647 @0x7
0x1640…165c at0008 = ╱4c╱L╱ // 0x1648 @0x8
0x1640…165c at0009 = ╱39╱9╱ // 0x1649 @0x9
0x1640…165c at000a = ╱dc╱=╱ // 0x164a @0xa
0x1640…165c at000b = ╱4b╱K╱ // 0x164b @0xb
0x1640…165c at000c = ╱52╱R╱ // 0x164c @0xc
0x1640…165c at000d = ╱54╱T╱ // 0x164d @0xd
0x1640…165c at000e = ╱41╱A╱ // 0x164e @0xe
0x1640…165c at000f = ╱4c╱L╱ // 0x164f @0xf
0x1640…165c at0010 = ╱b6╱ THEN ╱ // 0x1650 @0x10
0x1640…165c at0011 = ╱4b╱K╱ // 0x1651 @0x11
0x1640…165c at0012 = ╱54╱T╱ // 0x1652 @0x12
0x1640…165c at0013 = ╱41╱A╱ // 0x1653 @0x13
0x1640…165c at0014 = ╱4c╱L╱ // 0x1654 @0x14
0x1640…165c at0015 = ╱dc╱=╱ // 0x1655 @0x15
0x1640…165c at0016 = ╱4b╱K╱ // 0x1656 @0x16
0x1640…165c at0017 = ╱52╱R╱ // 0x1657 @0x17
0x1640…165c at0018 = ╱54╱T╱ // 0x1658 @0x18
0x1640…165c at0019 = ╱41╱A╱ // 0x1659 @0x19
0x1640…165c at001a = ╱4c╱L╱ // 0x165a @0x1a
0x1640…165c at001b = EOL // 0x165b @0x1b
0x1640…165c }
0x165c…1664 a3bb 2690 WHEN B
0x165c…1664 LineComalBin {
0x165c…1664 ptr = 0xa3bb // 0x165c @0x0
0x165c…1664 lno = 0x0a82 // 0x165e @0x2
0x165c…1664 at0004 = ╱a301╱ WHEN ╱ // 0x1660 @0x4
0x165c…1664 at0006 = ╱42╱B╱ // 0x1662 @0x6
0x165c…1664 at0007 = EOL // 0x1663 @0x7
0x165c…1664 }
0x1664…166d a3c4 2700 P=-E
0x1664…166d LineComalBin {
0x1664…166d ptr = 0xa3c4 // 0x1664 @0x0
0x1664…166d lno = 0x0a8c // 0x1666 @0x2
0x1664…166d at0004 = ╱50╱P╱ // 0x1668 @0x4
0x1664…166d at0005 = ╱dc╱=╱ // 0x1669 @0x5
0x1664…166d at0006 = ╱e9╱-╱ // 0x166a @0x6
0x1664…166d at0007 = ╱45╱E╱ // 0x166b @0x7
0x1664…166d at0008 = EOL // 0x166c @0x8
0x1664…166d }
0x166d…1675 a3cc 2710 WHEN E
0x166d…1675 LineComalBin {
0x166d…1675 ptr = 0xa3cc // 0x166d @0x0
0x166d…1675 lno = 0x0a96 // 0x166f @0x2
0x166d…1675 at0004 = ╱a301╱ WHEN ╱ // 0x1671 @0x4
0x166d…1675 at0006 = ╱45╱E╱ // 0x1673 @0x6
0x166d…1675 at0007 = EOL // 0x1674 @0x7
0x166d…1675 }
0x1675…1682 a3d9 2720 CASE NUM1$ OF
0x1675…1682 LineComalBin {
0x1675…1682 ptr = 0xa3d9 // 0x1675 @0x0
0x1675…1682 lno = 0x0aa0 // 0x1677 @0x2
0x1675…1682 at0004 = ╱a200╱ CASE ╱ // 0x1679 @0x4
0x1675…1682 at0006 = ╱4e╱N╱ // 0x167b @0x6
0x1675…1682 at0007 = ╱55╱U╱ // 0x167c @0x7
0x1675…1682 at0008 = ╱4d╱M╱ // 0x167d @0x8
0x1675…1682 at0009 = ╱31╱1╱ // 0x167e @0x9
0x1675…1682 at000a = ╱ef╱$╱ // 0x167f @0xa
0x1675…1682 at000b = ╱ba╱ OF ╱ // 0x1680 @0xb
0x1675…1682 at000c = EOL // 0x1681 @0xc
0x1675…1682 }
0x1682…169c a3f3 2730 P=INT(ORD(NUM1$)-48)
0x1682…169c LineComalBin {
0x1682…169c ptr = 0xa3f3 // 0x1682 @0x0
0x1682…169c lno = 0x0aaa // 0x1684 @0x2
0x1682…169c at0004 = ╱50╱P╱ // 0x1686 @0x4
0x1682…169c at0005 = ╱dc╱=╱ // 0x1687 @0x5
0x1682…169c at0006 = ╱c6╱INT╱ // 0x1688 @0x6
0x1682…169c at0007 = ╱ed╱(╱ // 0x1689 @0x7
0x1682…169c at0008 = ╱cd╱ORD╱ // 0x168a @0x8
0x1682…169c at0009 = ╱ed╱(╱ // 0x168b @0x9
0x1682…169c at000a = ╱4e╱N╱ // 0x168c @0xa
0x1682…169c at000b = ╱55╱U╱ // 0x168d @0xb
0x1682…169c at000c = ╱4d╱M╱ // 0x168e @0xc
0x1682…169c at000d = ╱31╱1╱ // 0x168f @0xd
0x1682…169c at000e = ╱ef╱$╱ // 0x1690 @0xe
0x1682…169c at000f = ╱ee╱)╱ // 0x1691 @0xf
0x1682…169c at0010 = ╱e3╱-╱ // 0x1692 @0x10
0x1682…169c at0011 = ╱34╱4╱ // 0x1693 @0x11
0x1682…169c at0012 = ╱38╱8╱ // 0x1694 @0x12
0x1682…169c at0013 = ╱fe0000c006╱ // 0x1695 @0x13
0x1682…169c at0018 = ╱ee╱)╱ // 0x169a @0x18
0x1682…169c at0019 = EOL // 0x169b @0x19
0x1682…169c }
0x169c…16aa a401 2740 WHEN "j","J"
0x169c…16aa LineComalBin {
0x169c…16aa ptr = 0xa401 // 0x169c @0x0
0x169c…16aa lno = 0x0ab4 // 0x169e @0x2
0x169c…16aa at0004 = ╱a300╱ WHEN ╱ // 0x16a0 @0x4
0x169c…16aa at0006 = ╱22╱"╱ // 0x16a2 @0x6
0x169c…16aa at0007 = ╱6a╱j╱ // 0x16a3 @0x7
0x169c…16aa at0008 = ╱22╱"╱ // 0x16a4 @0x8
0x169c…16aa at0009 = ╱ec╱,╱ // 0x16a5 @0x9
0x169c…16aa at000a = ╱22╱"╱ // 0x16a6 @0xa
0x169c…16aa at000b = ╱4a╱J╱ // 0x16a7 @0xb
0x169c…16aa at000c = ╱22╱"╱ // 0x16a8 @0xc
0x169c…16aa at000d = EOL // 0x16a9 @0xd
0x169c…16aa }
0x16aa…16b8 a40f 2750 P=-7
0x16aa…16b8 LineComalBin {
0x16aa…16b8 ptr = 0xa40f // 0x16aa @0x0
0x16aa…16b8 lno = 0x0abe // 0x16ac @0x2
0x16aa…16b8 at0004 = ╱50╱P╱ // 0x16ae @0x4
0x16aa…16b8 at0005 = ╱dc╱=╱ // 0x16af @0x5
0x16aa…16b8 at0006 = ╱e9╱-╱ // 0x16b0 @0x6
0x16aa…16b8 at0007 = ╱37╱7╱ // 0x16b1 @0x7
0x16aa…16b8 at0008 = ╱fe0000e003╱ // 0x16b2 @0x8
0x16aa…16b8 at000d = EOL // 0x16b7 @0xd
0x16aa…16b8 }
0x16b8…16c6 a41d 2760 WHEN "n","N"
0x16b8…16c6 LineComalBin {
0x16b8…16c6 ptr = 0xa41d // 0x16b8 @0x0
0x16b8…16c6 lno = 0x0ac8 // 0x16ba @0x2
0x16b8…16c6 at0004 = ╱a300╱ WHEN ╱ // 0x16bc @0x4
0x16b8…16c6 at0006 = ╱22╱"╱ // 0x16be @0x6
0x16b8…16c6 at0007 = ╱6e╱n╱ // 0x16bf @0x7
0x16b8…16c6 at0008 = ╱22╱"╱ // 0x16c0 @0x8
0x16b8…16c6 at0009 = ╱ec╱,╱ // 0x16c1 @0x9
0x16b8…16c6 at000a = ╱22╱"╱ // 0x16c2 @0xa
0x16b8…16c6 at000b = ╱4e╱N╱ // 0x16c3 @0xb
0x16b8…16c6 at000c = ╱22╱"╱ // 0x16c4 @0xc
0x16b8…16c6 at000d = EOL // 0x16c5 @0xd
0x16b8…16c6 }
0x16c6…16d4 a42b 2770 P=-8
0x16c6…16d4 LineComalBin {
0x16c6…16d4 ptr = 0xa42b // 0x16c6 @0x0
0x16c6…16d4 lno = 0x0ad2 // 0x16c8 @0x2
0x16c6…16d4 at0004 = ╱50╱P╱ // 0x16ca @0x4
0x16c6…16d4 at0005 = ╱dc╱=╱ // 0x16cb @0x5
0x16c6…16d4 at0006 = ╱e9╱-╱ // 0x16cc @0x6
0x16c6…16d4 at0007 = ╱38╱8╱ // 0x16cd @0x7
0x16c6…16d4 at0008 = ╱fe00008004╱ // 0x16ce @0x8
0x16c6…16d4 at000d = EOL // 0x16d3 @0xd
0x16c6…16d4 }
0x16d4…16da a431 2780 ENDCASE
0x16d4…16da LineComalBin {
0x16d4…16da ptr = 0xa431 // 0x16d4 @0x0
0x16d4…16da lno = 0x0adc // 0x16d6 @0x2
0x16d4…16da at0004 = ╱a4╱ ENDCASE ╱ // 0x16d8 @0x4
0x16d4…16da at0005 = EOL // 0x16d9 @0x5
0x16d4…16da }
0x16da…16e0 a437 2790 ENDCASE
0x16da…16e0 LineComalBin {
0x16da…16e0 ptr = 0xa437 // 0x16da @0x0
0x16da…16e0 lno = 0x0ae6 // 0x16dc @0x2
0x16da…16e0 at0004 = ╱a4╱ ENDCASE ╱ // 0x16de @0x4
0x16da…16e0 at0005 = EOL // 0x16df @0x5
0x16da…16e0 }
0x16e0…16e6 a43d 2800 ENDPROC
0x16e0…16e6 LineComalBin {
0x16e0…16e6 ptr = 0xa43d // 0x16e0 @0x0
0x16e0…16e6 lno = 0x0af0 // 0x16e2 @0x2
0x16e0…16e6 at0004 = ╱9f╱ ENDPROC ╱ // 0x16e4 @0x4
0x16e0…16e6 at0005 = EOL // 0x16e5 @0x5
0x16e0…16e6 }
0x16e6…16f5 a44c 2810 PROC VERSKRIFT
0x16e6…16f5 LineComalBin {
0x16e6…16f5 ptr = 0xa44c // 0x16e6 @0x0
0x16e6…16f5 lno = 0x0afa // 0x16e8 @0x2
0x16e6…16f5 at0004 = ╱9e╱ PROC ╱ // 0x16ea @0x4
0x16e6…16f5 at0005 = ╱56╱V╱ // 0x16eb @0x5
0x16e6…16f5 at0006 = ╱45╱E╱ // 0x16ec @0x6
0x16e6…16f5 at0007 = ╱52╱R╱ // 0x16ed @0x7
0x16e6…16f5 at0008 = ╱53╱S╱ // 0x16ee @0x8
0x16e6…16f5 at0009 = ╱4b╱K╱ // 0x16ef @0x9
0x16e6…16f5 at000a = ╱52╱R╱ // 0x16f0 @0xa
0x16e6…16f5 at000b = ╱49╱I╱ // 0x16f1 @0xb
0x16e6…16f5 at000c = ╱46╱F╱ // 0x16f2 @0xc
0x16e6…16f5 at000d = ╱54╱T╱ // 0x16f3 @0xd
0x16e6…16f5 at000e = EOL // 0x16f4 @0xe
0x16e6…16f5 }
0x16f5…1704 a45b 2820 CURSOR 45,E
0x16f5…1704 LineComalBin {
0x16f5…1704 ptr = 0xa45b // 0x16f5 @0x0
0x16f5…1704 lno = 0x0b04 // 0x16f7 @0x2
0x16f5…1704 at0004 = ╱a1╱ CURSOR ╱ // 0x16f9 @0x4
0x16f5…1704 at0005 = ╱34╱4╱ // 0x16fa @0x5
0x16f5…1704 at0006 = ╱35╱5╱ // 0x16fb @0x6
0x16f5…1704 at0007 = ╱fe0000b406╱ // 0x16fc @0x7
0x16f5…1704 at000c = ╱ec╱,╱ // 0x1701 @0xc
0x16f5…1704 at000d = ╱45╱E╱ // 0x1702 @0xd
0x16f5…1704 at000e = EOL // 0x1703 @0xe
0x16f5…1704 }
0x1704…1710 a467 2830 CASE TYPE OF
0x1704…1710 LineComalBin {
0x1704…1710 ptr = 0xa467 // 0x1704 @0x0
0x1704…1710 lno = 0x0b0e // 0x1706 @0x2
0x1704…1710 at0004 = ╱a201╱ CASE ╱ // 0x1708 @0x4
0x1704…1710 at0006 = ╱54╱T╱ // 0x170a @0x6
0x1704…1710 at0007 = ╱59╱Y╱ // 0x170b @0x7
0x1704…1710 at0008 = ╱50╱P╱ // 0x170c @0x8
0x1704…1710 at0009 = ╱45╱E╱ // 0x170d @0x9
0x1704…1710 at000a = ╱ba╱ OF ╱ // 0x170e @0xa
0x1704…1710 at000b = EOL // 0x170f @0xb
0x1704…1710 }
0x1710…1718 a46f 2840 WHEN E
0x1710…1718 LineComalBin {
0x1710…1718 ptr = 0xa46f // 0x1710 @0x0
0x1710…1718 lno = 0x0b18 // 0x1712 @0x2
0x1710…1718 at0004 = ╱a301╱ WHEN ╱ // 0x1714 @0x4
0x1710…1718 at0006 = ╱45╱E╱ // 0x1716 @0x6
0x1710…1718 at0007 = EOL // 0x1717 @0x7
0x1710…1718 }
0x1718…172a a481 2850 PRINT "Oprettelse"
0x1718…172a LineComalBin {
0x1718…172a ptr = 0xa481 // 0x1718 @0x0
0x1718…172a lno = 0x0b22 // 0x171a @0x2
0x1718…172a at0004 = ╱92╱ PRINT ╱ // 0x171c @0x4
0x1718…172a at0005 = ╱22╱"╱ // 0x171d @0x5
0x1718…172a at0006 = ╱4f╱O╱ // 0x171e @0x6
0x1718…172a at0007 = ╱70╱p╱ // 0x171f @0x7
0x1718…172a at0008 = ╱72╱r╱ // 0x1720 @0x8
0x1718…172a at0009 = ╱65╱e╱ // 0x1721 @0x9
0x1718…172a at000a = ╱74╱t╱ // 0x1722 @0xa
0x1718…172a at000b = ╱74╱t╱ // 0x1723 @0xb
0x1718…172a at000c = ╱65╱e╱ // 0x1724 @0xc
0x1718…172a at000d = ╱6c╱l╱ // 0x1725 @0xd
0x1718…172a at000e = ╱73╱s╱ // 0x1726 @0xe
0x1718…172a at000f = ╱65╱e╱ // 0x1727 @0xf
0x1718…172a at0010 = ╱22╱"╱ // 0x1728 @0x10
0x1718…172a at0011 = EOL // 0x1729 @0x11
0x1718…172a }
0x172a…1732 a489 2860 WHEN G
0x172a…1732 LineComalBin {
0x172a…1732 ptr = 0xa489 // 0x172a @0x0
0x172a…1732 lno = 0x0b2c // 0x172c @0x2
0x172a…1732 at0004 = ╱a301╱ WHEN ╱ // 0x172e @0x4
0x172a…1732 at0006 = ╱47╱G╱ // 0x1730 @0x6
0x172a…1732 at0007 = EOL // 0x1731 @0x7
0x172a…1732 }
0x1732…1741 a498 2870 PRINT "Ændring"
0x1732…1741 LineComalBin {
0x1732…1741 ptr = 0xa498 // 0x1732 @0x0
0x1732…1741 lno = 0x0b36 // 0x1734 @0x2
0x1732…1741 at0004 = ╱92╱ PRINT ╱ // 0x1736 @0x4
0x1732…1741 at0005 = ╱22╱"╱ // 0x1737 @0x5
0x1732…1741 at0006 = ╱5b╱Æ╱ // 0x1738 @0x6
0x1732…1741 at0007 = ╱6e╱n╱ // 0x1739 @0x7
0x1732…1741 at0008 = ╱64╱d╱ // 0x173a @0x8
0x1732…1741 at0009 = ╱72╱r╱ // 0x173b @0x9
0x1732…1741 at000a = ╱69╱i╱ // 0x173c @0xa
0x1732…1741 at000b = ╱6e╱n╱ // 0x173d @0xb
0x1732…1741 at000c = ╱67╱g╱ // 0x173e @0xc
0x1732…1741 at000d = ╱22╱"╱ // 0x173f @0xd
0x1732…1741 at000e = EOL // 0x1740 @0xe
0x1732…1741 }
0x1741…1749 a4a0 2880 WHEN V
0x1741…1749 LineComalBin {
0x1741…1749 ptr = 0xa4a0 // 0x1741 @0x0
0x1741…1749 lno = 0x0b40 // 0x1743 @0x2
0x1741…1749 at0004 = ╱a301╱ WHEN ╱ // 0x1745 @0x4
0x1741…1749 at0006 = ╱56╱V╱ // 0x1747 @0x6
0x1741…1749 at0007 = EOL // 0x1748 @0x7
0x1741…1749 }
0x1749…1759 a4b0 2890 PRINT "Sletning"
0x1749…1759 LineComalBin {
0x1749…1759 ptr = 0xa4b0 // 0x1749 @0x0
0x1749…1759 lno = 0x0b4a // 0x174b @0x2
0x1749…1759 at0004 = ╱92╱ PRINT ╱ // 0x174d @0x4
0x1749…1759 at0005 = ╱22╱"╱ // 0x174e @0x5
0x1749…1759 at0006 = ╱53╱S╱ // 0x174f @0x6
0x1749…1759 at0007 = ╱6c╱l╱ // 0x1750 @0x7
0x1749…1759 at0008 = ╱65╱e╱ // 0x1751 @0x8
0x1749…1759 at0009 = ╱74╱t╱ // 0x1752 @0x9
0x1749…1759 at000a = ╱6e╱n╱ // 0x1753 @0xa
0x1749…1759 at000b = ╱69╱i╱ // 0x1754 @0xb
0x1749…1759 at000c = ╱6e╱n╱ // 0x1755 @0xc
0x1749…1759 at000d = ╱67╱g╱ // 0x1756 @0xd
0x1749…1759 at000e = ╱22╱"╱ // 0x1757 @0xe
0x1749…1759 at000f = EOL // 0x1758 @0xf
0x1749…1759 }
0x1759…1766 a4bd 2900 WHEN 4
0x1759…1766 LineComalBin {
0x1759…1766 ptr = 0xa4bd // 0x1759 @0x0
0x1759…1766 lno = 0x0b54 // 0x175b @0x2
0x1759…1766 at0004 = ╱a301╱ WHEN ╱ // 0x175d @0x4
0x1759…1766 at0006 = ╱34╱4╱ // 0x175f @0x6
0x1759…1766 at0007 = ╱fe00008003╱ // 0x1760 @0x7
0x1759…1766 at000c = EOL // 0x1765 @0xc
0x1759…1766 }
0x1766…1776 a4cd 2910 PRINT "Udskrift"
0x1766…1776 LineComalBin {
0x1766…1776 ptr = 0xa4cd // 0x1766 @0x0
0x1766…1776 lno = 0x0b5e // 0x1768 @0x2
0x1766…1776 at0004 = ╱92╱ PRINT ╱ // 0x176a @0x4
0x1766…1776 at0005 = ╱22╱"╱ // 0x176b @0x5
0x1766…1776 at0006 = ╱55╱U╱ // 0x176c @0x6
0x1766…1776 at0007 = ╱64╱d╱ // 0x176d @0x7
0x1766…1776 at0008 = ╱73╱s╱ // 0x176e @0x8
0x1766…1776 at0009 = ╱6b╱k╱ // 0x176f @0x9
0x1766…1776 at000a = ╱72╱r╱ // 0x1770 @0xa
0x1766…1776 at000b = ╱69╱i╱ // 0x1771 @0xb
0x1766…1776 at000c = ╱66╱f╱ // 0x1772 @0xc
0x1766…1776 at000d = ╱74╱t╱ // 0x1773 @0xd
0x1766…1776 at000e = ╱22╱"╱ // 0x1774 @0xe
0x1766…1776 at000f = EOL // 0x1775 @0xf
0x1766…1776 }
0x1776…1783 (78,) a4da 2920 WHEN 5
0x1776…1783 LineComalBin {
0x1776…1783 ptr = 0xa4da // 0x1776 @0x0
0x1776…1783 lno = 0x0b68 // 0x1778 @0x2
0x1776…1783 at0004 = ╱a301╱ WHEN ╱ // 0x177a @0x4
0x1776…1783 at0006 = ╱35╱5╱ // 0x177c @0x6
0x1776…1783 at0007 = ╱fe0000a003╱ // 0x177d @0x7
0x1776…1783 at000c = EOL // 0x1782 @0xc
0x1776…1783 }
0x1783…179b a4f2 2930 PRINT "Finanskontoliste"
0x1783…179b LineComalBin {
0x1783…179b ptr = 0xa4f2 // 0x1783 @0x0
0x1783…179b lno = 0x0b72 // 0x1785 @0x2
0x1783…179b at0004 = ╱92╱ PRINT ╱ // 0x1787 @0x4
0x1783…179b at0005 = ╱22╱"╱ // 0x1788 @0x5
0x1783…179b at0006 = ╱46╱F╱ // 0x1789 @0x6
0x1783…179b at0007 = ╱69╱i╱ // 0x178a @0x7
0x1783…179b at0008 = ╱6e╱n╱ // 0x178b @0x8
0x1783…179b at0009 = ╱61╱a╱ // 0x178c @0x9
0x1783…179b at000a = ╱6e╱n╱ // 0x178d @0xa
0x1783…179b at000b = ╱73╱s╱ // 0x178e @0xb
0x1783…179b at000c = ╱6b╱k╱ // 0x178f @0xc
0x1783…179b at000d = ╱6f╱o╱ // 0x1790 @0xd
0x1783…179b at000e = ╱6e╱n╱ // 0x1791 @0xe
0x1783…179b at000f = ╱74╱t╱ // 0x1792 @0xf
0x1783…179b at0010 = ╱6f╱o╱ // 0x1793 @0x10
0x1783…179b at0011 = ╱6c╱l╱ // 0x1794 @0x11
0x1783…179b at0012 = ╱69╱i╱ // 0x1795 @0x12
0x1783…179b at0013 = ╱73╱s╱ // 0x1796 @0x13
0x1783…179b at0014 = ╱74╱t╱ // 0x1797 @0x14
0x1783…179b at0015 = ╱65╱e╱ // 0x1798 @0x15
0x1783…179b at0016 = ╱22╱"╱ // 0x1799 @0x16
0x1783…179b at0017 = EOL // 0x179a @0x17
0x1783…179b }
0x179b…17a1 a4f8 2940 ENDCASE
0x179b…17a1 LineComalBin {
0x179b…17a1 ptr = 0xa4f8 // 0x179b @0x0
0x179b…17a1 lno = 0x0b7c // 0x179d @0x2
0x179b…17a1 at0004 = ╱a4╱ ENDCASE ╱ // 0x179f @0x4
0x179b…17a1 at0005 = EOL // 0x17a0 @0x5
0x179b…17a1 }
0x17a1…17a7 a4fe 2950 ENDPROC
0x17a1…17a7 LineComalBin {
0x17a1…17a7 ptr = 0xa4fe // 0x17a1 @0x0
0x17a1…17a7 lno = 0x0b86 // 0x17a3 @0x2
0x17a1…17a7 at0004 = ╱9f╱ ENDPROC ╱ // 0x17a5 @0x4
0x17a1…17a7 at0005 = EOL // 0x17a6 @0x5
0x17a1…17a7 }
0x17a7…17c1 a518 2960 K1$="P641220:SYSTEM1"
0x17a7…17c1 LineComalBin {
0x17a7…17c1 ptr = 0xa518 // 0x17a7 @0x0
0x17a7…17c1 lno = 0x0b90 // 0x17a9 @0x2
0x17a7…17c1 at0004 = ╱4b╱K╱ // 0x17ab @0x4
0x17a7…17c1 at0005 = ╱31╱1╱ // 0x17ac @0x5
0x17a7…17c1 at0006 = ╱ef╱$╱ // 0x17ad @0x6
0x17a7…17c1 at0007 = ╱dc╱=╱ // 0x17ae @0x7
0x17a7…17c1 at0008 = ╱22╱"╱ // 0x17af @0x8
0x17a7…17c1 at0009 = ╱50╱P╱ // 0x17b0 @0x9
0x17a7…17c1 at000a = ╱36╱6╱ // 0x17b1 @0xa
0x17a7…17c1 at000b = ╱34╱4╱ // 0x17b2 @0xb
0x17a7…17c1 at000c = ╱31╱1╱ // 0x17b3 @0xc
0x17a7…17c1 at000d = ╱32╱2╱ // 0x17b4 @0xd
0x17a7…17c1 at000e = ╱32╱2╱ // 0x17b5 @0xe
0x17a7…17c1 at000f = ╱30╱0╱ // 0x17b6 @0xf
0x17a7…17c1 at0010 = ╱3a╱:╱ // 0x17b7 @0x10
0x17a7…17c1 at0011 = ╱53╱S╱ // 0x17b8 @0x11
0x17a7…17c1 at0012 = ╱59╱Y╱ // 0x17b9 @0x12
0x17a7…17c1 at0013 = ╱53╱S╱ // 0x17ba @0x13
0x17a7…17c1 at0014 = ╱54╱T╱ // 0x17bb @0x14
0x17a7…17c1 at0015 = ╱45╱E╱ // 0x17bc @0x15
0x17a7…17c1 at0016 = ╱4d╱M╱ // 0x17bd @0x16
0x17a7…17c1 at0017 = ╱31╱1╱ // 0x17be @0x17
0x17a7…17c1 at0018 = ╱22╱"╱ // 0x17bf @0x18
0x17a7…17c1 at0019 = EOL // 0x17c0 @0x19
0x17a7…17c1 }
0x17c1…17cc a523 2970 OPEN K1$,R
0x17c1…17cc LineComalBin {
0x17c1…17cc ptr = 0xa523 // 0x17c1 @0x0
0x17c1…17cc lno = 0x0b9a // 0x17c3 @0x2
0x17c1…17cc at0004 = ╱a7╱ OPEN ╱ // 0x17c5 @0x4
0x17c1…17cc at0005 = ╱4b╱K╱ // 0x17c6 @0x5
0x17c1…17cc at0006 = ╱31╱1╱ // 0x17c7 @0x6
0x17c1…17cc at0007 = ╱ef╱$╱ // 0x17c8 @0x7
0x17c1…17cc at0008 = ╱ec╱,╱ // 0x17c9 @0x8
0x17c1…17cc at0009 = ╱52╱R╱ // 0x17ca @0x9
0x17c1…17cc at000a = EOL // 0x17cb @0xa
0x17c1…17cc }
0x17cc…17df a536 2980 EXEC FEJL(W,E,K1$)
0x17cc…17df LineComalBin {
0x17cc…17df ptr = 0xa536 // 0x17cc @0x0
0x17cc…17df lno = 0x0ba4 // 0x17ce @0x2
0x17cc…17df at0004 = ╱9d╱ EXEC ╱ // 0x17d0 @0x4
0x17cc…17df at0005 = ╱46╱F╱ // 0x17d1 @0x5
0x17cc…17df at0006 = ╱45╱E╱ // 0x17d2 @0x6
0x17cc…17df at0007 = ╱4a╱J╱ // 0x17d3 @0x7
0x17cc…17df at0008 = ╱4c╱L╱ // 0x17d4 @0x8
0x17cc…17df at0009 = ╱ed╱(╱ // 0x17d5 @0x9
0x17cc…17df at000a = ╱57╱W╱ // 0x17d6 @0xa
0x17cc…17df at000b = ╱ec╱,╱ // 0x17d7 @0xb
0x17cc…17df at000c = ╱45╱E╱ // 0x17d8 @0xc
0x17cc…17df at000d = ╱ec╱,╱ // 0x17d9 @0xd
0x17cc…17df at000e = ╱4b╱K╱ // 0x17da @0xe
0x17cc…17df at000f = ╱31╱1╱ // 0x17db @0xf
0x17cc…17df at0010 = ╱ef╱$╱ // 0x17dc @0x10
0x17cc…17df at0011 = ╱ee╱)╱ // 0x17dd @0x11
0x17cc…17df at0012 = EOL // 0x17de @0x12
0x17cc…17df }
0x17df…17f2 a549 2990 GET K1$,E:MFANTAL
0x17df…17f2 LineComalBin {
0x17df…17f2 ptr = 0xa549 // 0x17df @0x0
0x17df…17f2 lno = 0x0bae // 0x17e1 @0x2
0x17df…17f2 at0004 = ╱a9╱ GET ╱ // 0x17e3 @0x4
0x17df…17f2 at0005 = ╱4b╱K╱ // 0x17e4 @0x5
0x17df…17f2 at0006 = ╱31╱1╱ // 0x17e5 @0x6
0x17df…17f2 at0007 = ╱ef╱$╱ // 0x17e6 @0x7
0x17df…17f2 at0008 = ╱ec╱,╱ // 0x17e7 @0x8
0x17df…17f2 at0009 = ╱45╱E╱ // 0x17e8 @0x9
0x17df…17f2 at000a = ╱f0╱:╱ // 0x17e9 @0xa
0x17df…17f2 at000b = ╱4d╱M╱ // 0x17ea @0xb
0x17df…17f2 at000c = ╱46╱F╱ // 0x17eb @0xc
0x17df…17f2 at000d = ╱41╱A╱ // 0x17ec @0xd
0x17df…17f2 at000e = ╱4e╱N╱ // 0x17ed @0xe
0x17df…17f2 at000f = ╱54╱T╱ // 0x17ee @0xf
0x17df…17f2 at0010 = ╱41╱A╱ // 0x17ef @0x10
0x17df…17f2 at0011 = ╱4c╱L╱ // 0x17f0 @0x11
0x17df…17f2 at0012 = EOL // 0x17f1 @0x12
0x17df…17f2 }
0x17f2…1805 a55c 3000 EXEC FEJL(W,G,K1$)
0x17f2…1805 LineComalBin {
0x17f2…1805 ptr = 0xa55c // 0x17f2 @0x0
0x17f2…1805 lno = 0x0bb8 // 0x17f4 @0x2
0x17f2…1805 at0004 = ╱9d╱ EXEC ╱ // 0x17f6 @0x4
0x17f2…1805 at0005 = ╱46╱F╱ // 0x17f7 @0x5
0x17f2…1805 at0006 = ╱45╱E╱ // 0x17f8 @0x6
0x17f2…1805 at0007 = ╱4a╱J╱ // 0x17f9 @0x7
0x17f2…1805 at0008 = ╱4c╱L╱ // 0x17fa @0x8
0x17f2…1805 at0009 = ╱ed╱(╱ // 0x17fb @0x9
0x17f2…1805 at000a = ╱57╱W╱ // 0x17fc @0xa
0x17f2…1805 at000b = ╱ec╱,╱ // 0x17fd @0xb
0x17f2…1805 at000c = ╱47╱G╱ // 0x17fe @0xc
0x17f2…1805 at000d = ╱ec╱,╱ // 0x17ff @0xd
0x17f2…1805 at000e = ╱4b╱K╱ // 0x1800 @0xe
0x17f2…1805 at000f = ╱31╱1╱ // 0x1801 @0xf
0x17f2…1805 at0010 = ╱ef╱$╱ // 0x1802 @0x10
0x17f2…1805 at0011 = ╱ee╱)╱ // 0x1803 @0x11
0x17f2…1805 at0012 = EOL // 0x1804 @0x12
0x17f2…1805 }
0x1805…182b a582 3010 GET K1$,4:MKRMID,MFAK,MVGR,MKGR
0x1805…182b LineComalBin {
0x1805…182b ptr = 0xa582 // 0x1805 @0x0
0x1805…182b lno = 0x0bc2 // 0x1807 @0x2
0x1805…182b at0004 = ╱a9╱ GET ╱ // 0x1809 @0x4
0x1805…182b at0005 = ╱4b╱K╱ // 0x180a @0x5
0x1805…182b at0006 = ╱31╱1╱ // 0x180b @0x6
0x1805…182b at0007 = ╱ef╱$╱ // 0x180c @0x7
0x1805…182b at0008 = ╱ec╱,╱ // 0x180d @0x8
0x1805…182b at0009 = ╱34╱4╱ // 0x180e @0x9
0x1805…182b at000a = ╱fe00008003╱ // 0x180f @0xa
0x1805…182b at000f = ╱f0╱:╱ // 0x1814 @0xf
0x1805…182b at0010 = ╱4d╱M╱ // 0x1815 @0x10
0x1805…182b at0011 = ╱4b╱K╱ // 0x1816 @0x11
0x1805…182b at0012 = ╱52╱R╱ // 0x1817 @0x12
0x1805…182b at0013 = ╱4d╱M╱ // 0x1818 @0x13
0x1805…182b at0014 = ╱49╱I╱ // 0x1819 @0x14
0x1805…182b at0015 = ╱44╱D╱ // 0x181a @0x15
0x1805…182b at0016 = ╱ec╱,╱ // 0x181b @0x16
0x1805…182b at0017 = ╱4d╱M╱ // 0x181c @0x17
0x1805…182b at0018 = ╱46╱F╱ // 0x181d @0x18
0x1805…182b at0019 = ╱41╱A╱ // 0x181e @0x19
0x1805…182b at001a = ╱4b╱K╱ // 0x181f @0x1a
0x1805…182b at001b = ╱ec╱,╱ // 0x1820 @0x1b
0x1805…182b at001c = ╱4d╱M╱ // 0x1821 @0x1c
0x1805…182b at001d = ╱56╱V╱ // 0x1822 @0x1d
0x1805…182b at001e = ╱47╱G╱ // 0x1823 @0x1e
0x1805…182b at001f = ╱52╱R╱ // 0x1824 @0x1f
0x1805…182b at0020 = ╱ec╱,╱ // 0x1825 @0x20
0x1805…182b at0021 = ╱4d╱M╱ // 0x1826 @0x21
0x1805…182b at0022 = ╱4b╱K╱ // 0x1827 @0x22
0x1805…182b at0023 = ╱47╱G╱ // 0x1828 @0x23
0x1805…182b at0024 = ╱52╱R╱ // 0x1829 @0x24
0x1805…182b at0025 = EOL // 0x182a @0x25
0x1805…182b }
0x182b…183e a595 3020 EXEC FEJL(W,V,K1$)
0x182b…183e LineComalBin {
0x182b…183e ptr = 0xa595 // 0x182b @0x0
0x182b…183e lno = 0x0bcc // 0x182d @0x2
0x182b…183e at0004 = ╱9d╱ EXEC ╱ // 0x182f @0x4
0x182b…183e at0005 = ╱46╱F╱ // 0x1830 @0x5
0x182b…183e at0006 = ╱45╱E╱ // 0x1831 @0x6
0x182b…183e at0007 = ╱4a╱J╱ // 0x1832 @0x7
0x182b…183e at0008 = ╱4c╱L╱ // 0x1833 @0x8
0x182b…183e at0009 = ╱ed╱(╱ // 0x1834 @0x9
0x182b…183e at000a = ╱57╱W╱ // 0x1835 @0xa
0x182b…183e at000b = ╱ec╱,╱ // 0x1836 @0xb
0x182b…183e at000c = ╱56╱V╱ // 0x1837 @0xc
0x182b…183e at000d = ╱ec╱,╱ // 0x1838 @0xd
0x182b…183e at000e = ╱4b╱K╱ // 0x1839 @0xe
0x182b…183e at000f = ╱31╱1╱ // 0x183a @0xf
0x182b…183e at0010 = ╱ef╱$╱ // 0x183b @0x10
0x182b…183e at0011 = ╱ee╱)╱ // 0x183c @0x11
0x182b…183e at0012 = EOL // 0x183d @0x12
0x182b…183e }
0x183e…1854 a5ab 3030 GET K1$,5:MKRGR
0x183e…1854 LineComalBin {
0x183e…1854 ptr = 0xa5ab // 0x183e @0x0
0x183e…1854 lno = 0x0bd6 // 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 = ╱35╱5╱ // 0x1847 @0x9
0x183e…1854 at000a = ╱fe0000a003╱ // 0x1848 @0xa
0x183e…1854 at000f = ╱f0╱:╱ // 0x184d @0xf
0x183e…1854 at0010 = ╱4d╱M╱ // 0x184e @0x10
0x183e…1854 at0011 = ╱4b╱K╱ // 0x184f @0x11
0x183e…1854 at0012 = ╱52╱R╱ // 0x1850 @0x12
0x183e…1854 at0013 = ╱47╱G╱ // 0x1851 @0x13
0x183e…1854 at0014 = ╱52╱R╱ // 0x1852 @0x14
0x183e…1854 at0015 = EOL // 0x1853 @0x15
0x183e…1854 }
0x1854…186c a5c3 3040 EXEC FEJL(W,4,K1$)
0x1854…186c LineComalBin {
0x1854…186c ptr = 0xa5c3 // 0x1854 @0x0
0x1854…186c lno = 0x0be0 // 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…1894 a5eb 3050 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL
0x186c…1894 LineComalBin {
0x186c…1894 ptr = 0xa5eb // 0x186c @0x0
0x186c…1894 lno = 0x0bea // 0x186e @0x2
0x186c…1894 at0004 = ╱a9╱ GET ╱ // 0x1870 @0x4
0x186c…1894 at0005 = ╱4b╱K╱ // 0x1871 @0x5
0x186c…1894 at0006 = ╱31╱1╱ // 0x1872 @0x6
0x186c…1894 at0007 = ╱ef╱$╱ // 0x1873 @0x7
0x186c…1894 at0008 = ╱ec╱,╱ // 0x1874 @0x8
0x186c…1894 at0009 = ╱38╱8╱ // 0x1875 @0x9
0x186c…1894 at000a = ╱fe00008004╱ // 0x1876 @0xa
0x186c…1894 at000f = ╱f0╱:╱ // 0x187b @0xf
0x186c…1894 at0010 = ╱44╱D╱ // 0x187c @0x10
0x186c…1894 at0011 = ╱49╱I╱ // 0x187d @0x11
0x186c…1894 at0012 = ╱56╱V╱ // 0x187e @0x12
0x186c…1894 at0013 = ╱4e╱N╱ // 0x187f @0x13
0x186c…1894 at0014 = ╱52╱R╱ // 0x1880 @0x14
0x186c…1894 at0015 = ╱ec╱,╱ // 0x1881 @0x15
0x186c…1894 at0016 = ╱44╱D╱ // 0x1882 @0x16
0x186c…1894 at0017 = ╱49╱I╱ // 0x1883 @0x17
0x186c…1894 at0018 = ╱56╱V╱ // 0x1884 @0x18
0x186c…1894 at0019 = ╱44╱D╱ // 0x1885 @0x19
0x186c…1894 at001a = ╱4e╱N╱ // 0x1886 @0x1a
0x186c…1894 at001b = ╱52╱R╱ // 0x1887 @0x1b
0x186c…1894 at001c = ╱ec╱,╱ // 0x1888 @0x1c
0x186c…1894 at001d = ╱44╱D╱ // 0x1889 @0x1d
0x186c…1894 at001e = ╱49╱I╱ // 0x188a @0x1e
0x186c…1894 at001f = ╱46╱F╱ // 0x188b @0x1f
0x186c…1894 at0020 = ╱4e╱N╱ // 0x188c @0x20
0x186c…1894 at0021 = ╱52╱R╱ // 0x188d @0x21
0x186c…1894 at0022 = ╱ec╱,╱ // 0x188e @0x22
0x186c…1894 at0023 = ╱44╱D╱ // 0x188f @0x23
0x186c…1894 at0024 = ╱54╱T╱ // 0x1890 @0x24
0x186c…1894 at0025 = ╱41╱A╱ // 0x1891 @0x25
0x186c…1894 at0026 = ╱4c╱L╱ // 0x1892 @0x26
0x186c…1894 at0027 = EOL // 0x1893 @0x27
0x186c…1894 }
0x1894…18ac a603 3060 EXEC FEJL(W,5,K1$)
0x1894…18ac LineComalBin {
0x1894…18ac ptr = 0xa603 // 0x1894 @0x0
0x1894…18ac lno = 0x0bf4 // 0x1896 @0x2
0x1894…18ac at0004 = ╱9d╱ EXEC ╱ // 0x1898 @0x4
0x1894…18ac at0005 = ╱46╱F╱ // 0x1899 @0x5
0x1894…18ac at0006 = ╱45╱E╱ // 0x189a @0x6
0x1894…18ac at0007 = ╱4a╱J╱ // 0x189b @0x7
0x1894…18ac at0008 = ╱4c╱L╱ // 0x189c @0x8
0x1894…18ac at0009 = ╱ed╱(╱ // 0x189d @0x9
0x1894…18ac at000a = ╱57╱W╱ // 0x189e @0xa
0x1894…18ac at000b = ╱ec╱,╱ // 0x189f @0xb
0x1894…18ac at000c = ╱35╱5╱ // 0x18a0 @0xc
0x1894…18ac at000d = ╱fe0000a003╱ // 0x18a1 @0xd
0x1894…18ac at0012 = ╱ec╱,╱ // 0x18a6 @0x12
0x1894…18ac at0013 = ╱4b╱K╱ // 0x18a7 @0x13
0x1894…18ac at0014 = ╱31╱1╱ // 0x18a8 @0x14
0x1894…18ac at0015 = ╱ef╱$╱ // 0x18a9 @0x15
0x1894…18ac at0016 = ╱ee╱)╱ // 0x18aa @0x16
0x1894…18ac at0017 = EOL // 0x18ab @0x17
0x1894…18ac }
0x18ac…18bd a614 3070 GET K1$,W:KRTAL
0x18ac…18bd LineComalBin {
0x18ac…18bd ptr = 0xa614 // 0x18ac @0x0
0x18ac…18bd lno = 0x0bfe // 0x18ae @0x2
0x18ac…18bd at0004 = ╱a9╱ GET ╱ // 0x18b0 @0x4
0x18ac…18bd at0005 = ╱4b╱K╱ // 0x18b1 @0x5
0x18ac…18bd at0006 = ╱31╱1╱ // 0x18b2 @0x6
0x18ac…18bd at0007 = ╱ef╱$╱ // 0x18b3 @0x7
0x18ac…18bd at0008 = ╱ec╱,╱ // 0x18b4 @0x8
0x18ac…18bd at0009 = ╱57╱W╱ // 0x18b5 @0x9
0x18ac…18bd at000a = ╱f0╱:╱ // 0x18b6 @0xa
0x18ac…18bd at000b = ╱4b╱K╱ // 0x18b7 @0xb
0x18ac…18bd at000c = ╱52╱R╱ // 0x18b8 @0xc
0x18ac…18bd at000d = ╱54╱T╱ // 0x18b9 @0xd
0x18ac…18bd at000e = ╱41╱A╱ // 0x18ba @0xe
0x18ac…18bd at000f = ╱4c╱L╱ // 0x18bb @0xf
0x18ac…18bd at0010 = EOL // 0x18bc @0x10
0x18ac…18bd }
0x18bd…18d5 a62c 3080 EXEC FEJL(W,6,K1$)
0x18bd…18d5 LineComalBin {
0x18bd…18d5 ptr = 0xa62c // 0x18bd @0x0
0x18bd…18d5 lno = 0x0c08 // 0x18bf @0x2
0x18bd…18d5 at0004 = ╱9d╱ EXEC ╱ // 0x18c1 @0x4
0x18bd…18d5 at0005 = ╱46╱F╱ // 0x18c2 @0x5
0x18bd…18d5 at0006 = ╱45╱E╱ // 0x18c3 @0x6
0x18bd…18d5 at0007 = ╱4a╱J╱ // 0x18c4 @0x7
0x18bd…18d5 at0008 = ╱4c╱L╱ // 0x18c5 @0x8
0x18bd…18d5 at0009 = ╱ed╱(╱ // 0x18c6 @0x9
0x18bd…18d5 at000a = ╱57╱W╱ // 0x18c7 @0xa
0x18bd…18d5 at000b = ╱ec╱,╱ // 0x18c8 @0xb
0x18bd…18d5 at000c = ╱36╱6╱ // 0x18c9 @0xc
0x18bd…18d5 at000d = ╱fe0000c003╱ // 0x18ca @0xd
0x18bd…18d5 at0012 = ╱ec╱,╱ // 0x18cf @0x12
0x18bd…18d5 at0013 = ╱4b╱K╱ // 0x18d0 @0x13
0x18bd…18d5 at0014 = ╱31╱1╱ // 0x18d1 @0x14
0x18bd…18d5 at0015 = ╱ef╱$╱ // 0x18d2 @0x15
0x18bd…18d5 at0016 = ╱ee╱)╱ // 0x18d3 @0x16
0x18bd…18d5 at0017 = EOL // 0x18d4 @0x17
0x18bd…18d5 }
0x18d5…18e9 a640 3090 GET K1$,10:N$
0x18d5…18e9 LineComalBin {
0x18d5…18e9 ptr = 0xa640 // 0x18d5 @0x0
0x18d5…18e9 lno = 0x0c12 // 0x18d7 @0x2
0x18d5…18e9 at0004 = ╱a9╱ GET ╱ // 0x18d9 @0x4
0x18d5…18e9 at0005 = ╱4b╱K╱ // 0x18da @0x5
0x18d5…18e9 at0006 = ╱31╱1╱ // 0x18db @0x6
0x18d5…18e9 at0007 = ╱ef╱$╱ // 0x18dc @0x7
0x18d5…18e9 at0008 = ╱ec╱,╱ // 0x18dd @0x8
0x18d5…18e9 at0009 = ╱31╱1╱ // 0x18de @0x9
0x18d5…18e9 at000a = ╱30╱0╱ // 0x18df @0xa
0x18d5…18e9 at000b = ╱fe0000a004╱ // 0x18e0 @0xb
0x18d5…18e9 at0010 = ╱f0╱:╱ // 0x18e5 @0x10
0x18d5…18e9 at0011 = ╱4e╱N╱ // 0x18e6 @0x11
0x18d5…18e9 at0012 = ╱ef╱$╱ // 0x18e7 @0x12
0x18d5…18e9 at0013 = EOL // 0x18e8 @0x13
0x18d5…18e9 }
0x18e9…1901 a658 3100 EXEC FEJL(W,7,K1$)
0x18e9…1901 LineComalBin {
0x18e9…1901 ptr = 0xa658 // 0x18e9 @0x0
0x18e9…1901 lno = 0x0c1c // 0x18eb @0x2
0x18e9…1901 at0004 = ╱9d╱ EXEC ╱ // 0x18ed @0x4
0x18e9…1901 at0005 = ╱46╱F╱ // 0x18ee @0x5
0x18e9…1901 at0006 = ╱45╱E╱ // 0x18ef @0x6
0x18e9…1901 at0007 = ╱4a╱J╱ // 0x18f0 @0x7
0x18e9…1901 at0008 = ╱4c╱L╱ // 0x18f1 @0x8
0x18e9…1901 at0009 = ╱ed╱(╱ // 0x18f2 @0x9
0x18e9…1901 at000a = ╱57╱W╱ // 0x18f3 @0xa
0x18e9…1901 at000b = ╱ec╱,╱ // 0x18f4 @0xb
0x18e9…1901 at000c = ╱37╱7╱ // 0x18f5 @0xc
0x18e9…1901 at000d = ╱fe0000e003╱ // 0x18f6 @0xd
0x18e9…1901 at0012 = ╱ec╱,╱ // 0x18fb @0x12
0x18e9…1901 at0013 = ╱4b╱K╱ // 0x18fc @0x13
0x18e9…1901 at0014 = ╱31╱1╱ // 0x18fd @0x14
0x18e9…1901 at0015 = ╱ef╱$╱ // 0x18fe @0x15
0x18e9…1901 at0016 = ╱ee╱)╱ // 0x18ff @0x16
0x18e9…1901 at0017 = EOL // 0x1900 @0x17
0x18e9…1901 }
0x1901…1916 a66d 3110 GET K1$,11:K2$
0x1901…1916 LineComalBin {
0x1901…1916 ptr = 0xa66d // 0x1901 @0x0
0x1901…1916 lno = 0x0c26 // 0x1903 @0x2
0x1901…1916 at0004 = ╱a9╱ GET ╱ // 0x1905 @0x4
0x1901…1916 at0005 = ╱4b╱K╱ // 0x1906 @0x5
0x1901…1916 at0006 = ╱31╱1╱ // 0x1907 @0x6
0x1901…1916 at0007 = ╱ef╱$╱ // 0x1908 @0x7
0x1901…1916 at0008 = ╱ec╱,╱ // 0x1909 @0x8
0x1901…1916 at0009 = ╱31╱1╱ // 0x190a @0x9
0x1901…1916 at000a = ╱31╱1╱ // 0x190b @0xa
0x1901…1916 at000b = ╱fe0000b004╱ // 0x190c @0xb
0x1901…1916 at0010 = ╱f0╱:╱ // 0x1911 @0x10
0x1901…1916 at0011 = ╱4b╱K╱ // 0x1912 @0x11
0x1901…1916 at0012 = ╱32╱2╱ // 0x1913 @0x12
0x1901…1916 at0013 = ╱ef╱$╱ // 0x1914 @0x13
0x1901…1916 at0014 = EOL // 0x1915 @0x14
0x1901…1916 }
0x1916…192e a685 3120 EXEC FEJL(W,8,K1$)
0x1916…192e LineComalBin {
0x1916…192e ptr = 0xa685 // 0x1916 @0x0
0x1916…192e lno = 0x0c30 // 0x1918 @0x2
0x1916…192e at0004 = ╱9d╱ EXEC ╱ // 0x191a @0x4
0x1916…192e at0005 = ╱46╱F╱ // 0x191b @0x5
0x1916…192e at0006 = ╱45╱E╱ // 0x191c @0x6
0x1916…192e at0007 = ╱4a╱J╱ // 0x191d @0x7
0x1916…192e at0008 = ╱4c╱L╱ // 0x191e @0x8
0x1916…192e at0009 = ╱ed╱(╱ // 0x191f @0x9
0x1916…192e at000a = ╱57╱W╱ // 0x1920 @0xa
0x1916…192e at000b = ╱ec╱,╱ // 0x1921 @0xb
0x1916…192e at000c = ╱38╱8╱ // 0x1922 @0xc
0x1916…192e at000d = ╱fe00008004╱ // 0x1923 @0xd
0x1916…192e at0012 = ╱ec╱,╱ // 0x1928 @0x12
0x1916…192e at0013 = ╱4b╱K╱ // 0x1929 @0x13
0x1916…192e at0014 = ╱31╱1╱ // 0x192a @0x14
0x1916…192e at0015 = ╱ef╱$╱ // 0x192b @0x15
0x1916…192e at0016 = ╱ee╱)╱ // 0x192c @0x16
0x1916…192e at0017 = EOL // 0x192d @0x17
0x1916…192e }
0x192e…1943 a69a 3130 GET K1$,15:K3$
0x192e…1943 LineComalBin {
0x192e…1943 ptr = 0xa69a // 0x192e @0x0
0x192e…1943 lno = 0x0c3a // 0x1930 @0x2
0x192e…1943 at0004 = ╱a9╱ GET ╱ // 0x1932 @0x4
0x192e…1943 at0005 = ╱4b╱K╱ // 0x1933 @0x5
0x192e…1943 at0006 = ╱31╱1╱ // 0x1934 @0x6
0x192e…1943 at0007 = ╱ef╱$╱ // 0x1935 @0x7
0x192e…1943 at0008 = ╱ec╱,╱ // 0x1936 @0x8
0x192e…1943 at0009 = ╱31╱1╱ // 0x1937 @0x9
0x192e…1943 at000a = ╱35╱5╱ // 0x1938 @0xa
0x192e…1943 at000b = ╱fe0000f004╱ // 0x1939 @0xb
0x192e…1943 at0010 = ╱f0╱:╱ // 0x193e @0x10
0x192e…1943 at0011 = ╱4b╱K╱ // 0x193f @0x11
0x192e…1943 at0012 = ╱33╱3╱ // 0x1940 @0x12
0x192e…1943 at0013 = ╱ef╱$╱ // 0x1941 @0x13
0x192e…1943 at0014 = EOL // 0x1942 @0x14
0x192e…1943 }
0x1943…1956 a6ad 3140 EXEC FEJL(W,W,K1$)
0x1943…1956 LineComalBin {
0x1943…1956 ptr = 0xa6ad // 0x1943 @0x0
0x1943…1956 lno = 0x0c44 // 0x1945 @0x2
0x1943…1956 at0004 = ╱9d╱ EXEC ╱ // 0x1947 @0x4
0x1943…1956 at0005 = ╱46╱F╱ // 0x1948 @0x5
0x1943…1956 at0006 = ╱45╱E╱ // 0x1949 @0x6
0x1943…1956 at0007 = ╱4a╱J╱ // 0x194a @0x7
0x1943…1956 at0008 = ╱4c╱L╱ // 0x194b @0x8
0x1943…1956 at0009 = ╱ed╱(╱ // 0x194c @0x9
0x1943…1956 at000a = ╱57╱W╱ // 0x194d @0xa
0x1943…1956 at000b = ╱ec╱,╱ // 0x194e @0xb
0x1943…1956 at000c = ╱57╱W╱ // 0x194f @0xc
0x1943…1956 at000d = ╱ec╱,╱ // 0x1950 @0xd
0x1943…1956 at000e = ╱4b╱K╱ // 0x1951 @0xe
0x1943…1956 at000f = ╱31╱1╱ // 0x1952 @0xf
0x1943…1956 at0010 = ╱ef╱$╱ // 0x1953 @0x10
0x1943…1956 at0011 = ╱ee╱)╱ // 0x1954 @0x11
0x1943…1956 at0012 = EOL // 0x1955 @0x12
0x1943…1956 }
0x1956…196b a6c2 3150 GET K1$,36:K4$
0x1956…196b LineComalBin {
0x1956…196b ptr = 0xa6c2 // 0x1956 @0x0
0x1956…196b lno = 0x0c4e // 0x1958 @0x2
0x1956…196b at0004 = ╱a9╱ GET ╱ // 0x195a @0x4
0x1956…196b at0005 = ╱4b╱K╱ // 0x195b @0x5
0x1956…196b at0006 = ╱31╱1╱ // 0x195c @0x6
0x1956…196b at0007 = ╱ef╱$╱ // 0x195d @0x7
0x1956…196b at0008 = ╱ec╱,╱ // 0x195e @0x8
0x1956…196b at0009 = ╱33╱3╱ // 0x195f @0x9
0x1956…196b at000a = ╱36╱6╱ // 0x1960 @0xa
0x1956…196b at000b = ╱fe00009006╱ // 0x1961 @0xb
0x1956…196b at0010 = ╱f0╱:╱ // 0x1966 @0x10
0x1956…196b at0011 = ╱4b╱K╱ // 0x1967 @0x11
0x1956…196b at0012 = ╱34╱4╱ // 0x1968 @0x12
0x1956…196b at0013 = ╱ef╱$╱ // 0x1969 @0x13
0x1956…196b at0014 = EOL // 0x196a @0x14
0x1956…196b }
0x196b…1984 a6db 3160 EXEC FEJL(W,10,K1$)
0x196b…1984 LineComalBin {
0x196b…1984 ptr = 0xa6db // 0x196b @0x0
0x196b…1984 lno = 0x0c58 // 0x196d @0x2
0x196b…1984 at0004 = ╱9d╱ EXEC ╱ // 0x196f @0x4
0x196b…1984 at0005 = ╱46╱F╱ // 0x1970 @0x5
0x196b…1984 at0006 = ╱45╱E╱ // 0x1971 @0x6
0x196b…1984 at0007 = ╱4a╱J╱ // 0x1972 @0x7
0x196b…1984 at0008 = ╱4c╱L╱ // 0x1973 @0x8
0x196b…1984 at0009 = ╱ed╱(╱ // 0x1974 @0x9
0x196b…1984 at000a = ╱57╱W╱ // 0x1975 @0xa
0x196b…1984 at000b = ╱ec╱,╱ // 0x1976 @0xb
0x196b…1984 at000c = ╱31╱1╱ // 0x1977 @0xc
0x196b…1984 at000d = ╱30╱0╱ // 0x1978 @0xd
0x196b…1984 at000e = ╱fe0000a004╱ // 0x1979 @0xe
0x196b…1984 at0013 = ╱ec╱,╱ // 0x197e @0x13
0x196b…1984 at0014 = ╱4b╱K╱ // 0x197f @0x14
0x196b…1984 at0015 = ╱31╱1╱ // 0x1980 @0x15
0x196b…1984 at0016 = ╱ef╱$╱ // 0x1981 @0x16
0x196b…1984 at0017 = ╱ee╱)╱ // 0x1982 @0x17
0x196b…1984 at0018 = EOL // 0x1983 @0x18
0x196b…1984 }
0x1984…198d a6e4 3170 CLOSE K1$
0x1984…198d LineComalBin {
0x1984…198d ptr = 0xa6e4 // 0x1984 @0x0
0x1984…198d lno = 0x0c62 // 0x1986 @0x2
0x1984…198d at0004 = ╱a8╱ CLOSE ╱ // 0x1988 @0x4
0x1984…198d at0005 = ╱4b╱K╱ // 0x1989 @0x5
0x1984…198d at0006 = ╱31╱1╱ // 0x198a @0x6
0x1984…198d at0007 = ╱ef╱$╱ // 0x198b @0x7
0x1984…198d at0008 = EOL // 0x198c @0x8
0x1984…198d }
0x198d…19a6 a6fd 3180 EXEC FEJL(W,11,K1$)
0x198d…19a6 LineComalBin {
0x198d…19a6 ptr = 0xa6fd // 0x198d @0x0
0x198d…19a6 lno = 0x0c6c // 0x198f @0x2
0x198d…19a6 at0004 = ╱9d╱ EXEC ╱ // 0x1991 @0x4
0x198d…19a6 at0005 = ╱46╱F╱ // 0x1992 @0x5
0x198d…19a6 at0006 = ╱45╱E╱ // 0x1993 @0x6
0x198d…19a6 at0007 = ╱4a╱J╱ // 0x1994 @0x7
0x198d…19a6 at0008 = ╱4c╱L╱ // 0x1995 @0x8
0x198d…19a6 at0009 = ╱ed╱(╱ // 0x1996 @0x9
0x198d…19a6 at000a = ╱57╱W╱ // 0x1997 @0xa
0x198d…19a6 at000b = ╱ec╱,╱ // 0x1998 @0xb
0x198d…19a6 at000c = ╱31╱1╱ // 0x1999 @0xc
0x198d…19a6 at000d = ╱31╱1╱ // 0x199a @0xd
0x198d…19a6 at000e = ╱fe0000b004╱ // 0x199b @0xe
0x198d…19a6 at0013 = ╱ec╱,╱ // 0x19a0 @0x13
0x198d…19a6 at0014 = ╱4b╱K╱ // 0x19a1 @0x14
0x198d…19a6 at0015 = ╱31╱1╱ // 0x19a2 @0x15
0x198d…19a6 at0016 = ╱ef╱$╱ // 0x19a3 @0x16
0x198d…19a6 at0017 = ╱ee╱)╱ // 0x19a4 @0x17
0x198d…19a6 at0018 = EOL // 0x19a5 @0x18
0x198d…19a6 }
0x19a6…19bb a712 3190 DIM FTAB(MFANTAL,G)
0x19a6…19bb LineComalBin {
0x19a6…19bb ptr = 0xa712 // 0x19a6 @0x0
0x19a6…19bb lno = 0x0c76 // 0x19a8 @0x2
0x19a6…19bb at0004 = ╱87╱ DIM ╱ // 0x19aa @0x4
0x19a6…19bb at0005 = ╱46╱F╱ // 0x19ab @0x5
0x19a6…19bb at0006 = ╱54╱T╱ // 0x19ac @0x6
0x19a6…19bb at0007 = ╱41╱A╱ // 0x19ad @0x7
0x19a6…19bb at0008 = ╱42╱B╱ // 0x19ae @0x8
0x19a6…19bb at0009 = ╱ed╱(╱ // 0x19af @0x9
0x19a6…19bb at000a = ╱4d╱M╱ // 0x19b0 @0xa
0x19a6…19bb at000b = ╱46╱F╱ // 0x19b1 @0xb
0x19a6…19bb at000c = ╱41╱A╱ // 0x19b2 @0xc
0x19a6…19bb at000d = ╱4e╱N╱ // 0x19b3 @0xd
0x19a6…19bb at000e = ╱54╱T╱ // 0x19b4 @0xe
0x19a6…19bb at000f = ╱41╱A╱ // 0x19b5 @0xf
0x19a6…19bb at0010 = ╱4c╱L╱ // 0x19b6 @0x10
0x19a6…19bb at0011 = ╱ec╱,╱ // 0x19b7 @0x11
0x19a6…19bb at0012 = ╱47╱G╱ // 0x19b8 @0x12
0x19a6…19bb at0013 = ╱ee╱)╱ // 0x19b9 @0x13
0x19a6…19bb at0014 = EOL // 0x19ba @0x14
0x19a6…19bb }
0x19bb…19ca a721 3200 K4$=N$+K4$
0x19bb…19ca LineComalBin {
0x19bb…19ca ptr = 0xa721 // 0x19bb @0x0
0x19bb…19ca lno = 0x0c80 // 0x19bd @0x2
0x19bb…19ca at0004 = ╱4b╱K╱ // 0x19bf @0x4
0x19bb…19ca at0005 = ╱34╱4╱ // 0x19c0 @0x5
0x19bb…19ca at0006 = ╱ef╱$╱ // 0x19c1 @0x6
0x19bb…19ca at0007 = ╱dc╱=╱ // 0x19c2 @0x7
0x19bb…19ca at0008 = ╱4e╱N╱ // 0x19c3 @0x8
0x19bb…19ca at0009 = ╱ef╱$╱ // 0x19c4 @0x9
0x19bb…19ca at000a = ╱f1╱+╱ // 0x19c5 @0xa
0x19bb…19ca at000b = ╱4b╱K╱ // 0x19c6 @0xb
0x19bb…19ca at000c = ╱34╱4╱ // 0x19c7 @0xc
0x19bb…19ca at000d = ╱ef╱$╱ // 0x19c8 @0xd
0x19bb…19ca at000e = EOL // 0x19c9 @0xe
0x19bb…19ca }
0x19ca…19d5 a72c 3210 OPEN K4$,W
0x19ca…19d5 LineComalBin {
0x19ca…19d5 ptr = 0xa72c // 0x19ca @0x0
0x19ca…19d5 lno = 0x0c8a // 0x19cc @0x2
0x19ca…19d5 at0004 = ╱a7╱ OPEN ╱ // 0x19ce @0x4
0x19ca…19d5 at0005 = ╱4b╱K╱ // 0x19cf @0x5
0x19ca…19d5 at0006 = ╱34╱4╱ // 0x19d0 @0x6
0x19ca…19d5 at0007 = ╱ef╱$╱ // 0x19d1 @0x7
0x19ca…19d5 at0008 = ╱ec╱,╱ // 0x19d2 @0x8
0x19ca…19d5 at0009 = ╱57╱W╱ // 0x19d3 @0x9
0x19ca…19d5 at000a = EOL // 0x19d4 @0xa
0x19ca…19d5 }
0x19d5…19ee a745 3220 EXEC FEJL(W,12,K4$)
0x19d5…19ee LineComalBin {
0x19d5…19ee ptr = 0xa745 // 0x19d5 @0x0
0x19d5…19ee lno = 0x0c94 // 0x19d7 @0x2
0x19d5…19ee at0004 = ╱9d╱ EXEC ╱ // 0x19d9 @0x4
0x19d5…19ee at0005 = ╱46╱F╱ // 0x19da @0x5
0x19d5…19ee at0006 = ╱45╱E╱ // 0x19db @0x6
0x19d5…19ee at0007 = ╱4a╱J╱ // 0x19dc @0x7
0x19d5…19ee at0008 = ╱4c╱L╱ // 0x19dd @0x8
0x19d5…19ee at0009 = ╱ed╱(╱ // 0x19de @0x9
0x19d5…19ee at000a = ╱57╱W╱ // 0x19df @0xa
0x19d5…19ee at000b = ╱ec╱,╱ // 0x19e0 @0xb
0x19d5…19ee at000c = ╱31╱1╱ // 0x19e1 @0xc
0x19d5…19ee at000d = ╱32╱2╱ // 0x19e2 @0xd
0x19d5…19ee at000e = ╱fe0000c004╱ // 0x19e3 @0xe
0x19d5…19ee at0013 = ╱ec╱,╱ // 0x19e8 @0x13
0x19d5…19ee at0014 = ╱4b╱K╱ // 0x19e9 @0x14
0x19d5…19ee at0015 = ╱34╱4╱ // 0x19ea @0x15
0x19d5…19ee at0016 = ╱ef╱$╱ // 0x19eb @0x16
0x19d5…19ee at0017 = ╱ee╱)╱ // 0x19ec @0x17
0x19d5…19ee at0018 = EOL // 0x19ed @0x18
0x19d5…19ee }
0x19ee…1a31 a788 3230 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO
0x19ee…1a31 LineComalBin {
0x19ee…1a31 ptr = 0xa788 // 0x19ee @0x0
0x19ee…1a31 lno = 0x0c9e // 0x19f0 @0x2
0x19ee…1a31 at0004 = ╱a9╱ GET ╱ // 0x19f2 @0x4
0x19ee…1a31 at0005 = ╱4b╱K╱ // 0x19f3 @0x5
0x19ee…1a31 at0006 = ╱34╱4╱ // 0x19f4 @0x6
0x19ee…1a31 at0007 = ╱ef╱$╱ // 0x19f5 @0x7
0x19ee…1a31 at0008 = ╱ec╱,╱ // 0x19f6 @0x8
0x19ee…1a31 at0009 = ╱47╱G╱ // 0x19f7 @0x9
0x19ee…1a31 at000a = ╱f0╱:╱ // 0x19f8 @0xa
0x19ee…1a31 at000b = ╱54╱T╱ // 0x19f9 @0xb
0x19ee…1a31 at000c = ╱31╱1╱ // 0x19fa @0xc
0x19ee…1a31 at000d = ╱ed╱(╱ // 0x19fb @0xd
0x19ee…1a31 at000e = ╱45╱E╱ // 0x19fc @0xe
0x19ee…1a31 at000f = ╱ee╱)╱ // 0x19fd @0xf
0x19ee…1a31 at0010 = ╱ec╱,╱ // 0x19fe @0x10
0x19ee…1a31 at0011 = ╱54╱T╱ // 0x19ff @0x11
0x19ee…1a31 at0012 = ╱31╱1╱ // 0x1a00 @0x12
0x19ee…1a31 at0013 = ╱ed╱(╱ // 0x1a01 @0x13
0x19ee…1a31 at0014 = ╱47╱G╱ // 0x1a02 @0x14
0x19ee…1a31 at0015 = ╱ee╱)╱ // 0x1a03 @0x15
0x19ee…1a31 at0016 = ╱ec╱,╱ // 0x1a04 @0x16
0x19ee…1a31 at0017 = ╱54╱T╱ // 0x1a05 @0x17
0x19ee…1a31 at0018 = ╱31╱1╱ // 0x1a06 @0x18
0x19ee…1a31 at0019 = ╱ed╱(╱ // 0x1a07 @0x19
0x19ee…1a31 at001a = ╱56╱V╱ // 0x1a08 @0x1a
0x19ee…1a31 at001b = ╱ee╱)╱ // 0x1a09 @0x1b
0x19ee…1a31 at001c = ╱ec╱,╱ // 0x1a0a @0x1c
0x19ee…1a31 at001d = ╱54╱T╱ // 0x1a0b @0x1d
0x19ee…1a31 at001e = ╱31╱1╱ // 0x1a0c @0x1e
0x19ee…1a31 at001f = ╱ed╱(╱ // 0x1a0d @0x1f
0x19ee…1a31 at0020 = ╱34╱4╱ // 0x1a0e @0x20
0x19ee…1a31 at0021 = ╱fe00008003╱ // 0x1a0f @0x21
0x19ee…1a31 at0026 = ╱ee╱)╱ // 0x1a14 @0x26
0x19ee…1a31 at0027 = ╱ec╱,╱ // 0x1a15 @0x27
0x19ee…1a31 at0028 = ╱54╱T╱ // 0x1a16 @0x28
0x19ee…1a31 at0029 = ╱31╱1╱ // 0x1a17 @0x29
0x19ee…1a31 at002a = ╱ed╱(╱ // 0x1a18 @0x2a
0x19ee…1a31 at002b = ╱35╱5╱ // 0x1a19 @0x2b
0x19ee…1a31 at002c = ╱fe0000a003╱ // 0x1a1a @0x2c
0x19ee…1a31 at0031 = ╱ee╱)╱ // 0x1a1f @0x31
0x19ee…1a31 at0032 = ╱ec╱,╱ // 0x1a20 @0x32
0x19ee…1a31 at0033 = ╱54╱T╱ // 0x1a21 @0x33
0x19ee…1a31 at0034 = ╱31╱1╱ // 0x1a22 @0x34
0x19ee…1a31 at0035 = ╱ed╱(╱ // 0x1a23 @0x35
0x19ee…1a31 at0036 = ╱36╱6╱ // 0x1a24 @0x36
0x19ee…1a31 at0037 = ╱fe0000c003╱ // 0x1a25 @0x37
0x19ee…1a31 at003c = ╱ee╱)╱ // 0x1a2a @0x3c
0x19ee…1a31 at003d = ╱ec╱,╱ // 0x1a2b @0x3d
0x19ee…1a31 at003e = ╱44╱D╱ // 0x1a2c @0x3e
0x19ee…1a31 at003f = ╱41╱A╱ // 0x1a2d @0x3f
0x19ee…1a31 at0040 = ╱54╱T╱ // 0x1a2e @0x40
0x19ee…1a31 at0041 = ╱4f╱O╱ // 0x1a2f @0x41
0x19ee…1a31 at0042 = EOL // 0x1a30 @0x42
0x19ee…1a31 }
0x1a31…1a4a a7a1 3240 EXEC FEJL(W,13,K4$)
0x1a31…1a4a LineComalBin {
0x1a31…1a4a ptr = 0xa7a1 // 0x1a31 @0x0
0x1a31…1a4a lno = 0x0ca8 // 0x1a33 @0x2
0x1a31…1a4a at0004 = ╱9d╱ EXEC ╱ // 0x1a35 @0x4
0x1a31…1a4a at0005 = ╱46╱F╱ // 0x1a36 @0x5
0x1a31…1a4a at0006 = ╱45╱E╱ // 0x1a37 @0x6
0x1a31…1a4a at0007 = ╱4a╱J╱ // 0x1a38 @0x7
0x1a31…1a4a at0008 = ╱4c╱L╱ // 0x1a39 @0x8
0x1a31…1a4a at0009 = ╱ed╱(╱ // 0x1a3a @0x9
0x1a31…1a4a at000a = ╱57╱W╱ // 0x1a3b @0xa
0x1a31…1a4a at000b = ╱ec╱,╱ // 0x1a3c @0xb
0x1a31…1a4a at000c = ╱31╱1╱ // 0x1a3d @0xc
0x1a31…1a4a at000d = ╱33╱3╱ // 0x1a3e @0xd
0x1a31…1a4a at000e = ╱fe0000d004╱ // 0x1a3f @0xe
0x1a31…1a4a at0013 = ╱ec╱,╱ // 0x1a44 @0x13
0x1a31…1a4a at0014 = ╱4b╱K╱ // 0x1a45 @0x14
0x1a31…1a4a at0015 = ╱34╱4╱ // 0x1a46 @0x15
0x1a31…1a4a at0016 = ╱ef╱$╱ // 0x1a47 @0x16
0x1a31…1a4a at0017 = ╱ee╱)╱ // 0x1a48 @0x17
0x1a31…1a4a at0018 = EOL // 0x1a49 @0x18
0x1a31…1a4a }
0x1a4a…1aa1 a7f8 3250 GET K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x1a4a…1aa1 LineComalBin {
0x1a4a…1aa1 ptr = 0xa7f8 // 0x1a4a @0x0
0x1a4a…1aa1 lno = 0x0cb2 // 0x1a4c @0x2
0x1a4a…1aa1 at0004 = ╱a9╱ GET ╱ // 0x1a4e @0x4
0x1a4a…1aa1 at0005 = ╱4b╱K╱ // 0x1a4f @0x5
0x1a4a…1aa1 at0006 = ╱34╱4╱ // 0x1a50 @0x6
0x1a4a…1aa1 at0007 = ╱ef╱$╱ // 0x1a51 @0x7
0x1a4a…1aa1 at0008 = ╱ec╱,╱ // 0x1a52 @0x8
0x1a4a…1aa1 at0009 = ╱31╱1╱ // 0x1a53 @0x9
0x1a4a…1aa1 at000a = ╱34╱4╱ // 0x1a54 @0xa
0x1a4a…1aa1 at000b = ╱fe0000e004╱ // 0x1a55 @0xb
0x1a4a…1aa1 at0010 = ╱f0╱:╱ // 0x1a5a @0x10
0x1a4a…1aa1 at0011 = ╱41╱A╱ // 0x1a5b @0x11
0x1a4a…1aa1 at0012 = ╱46╱F╱ // 0x1a5c @0x12
0x1a4a…1aa1 at0013 = ╱49╱I╱ // 0x1a5d @0x13
0x1a4a…1aa1 at0014 = ╱4e╱N╱ // 0x1a5e @0x14
0x1a4a…1aa1 at0015 = ╱ec╱,╱ // 0x1a5f @0x15
0x1a4a…1aa1 at0016 = ╱41╱A╱ // 0x1a60 @0x16
0x1a4a…1aa1 at0017 = ╱44╱D╱ // 0x1a61 @0x17
0x1a4a…1aa1 at0018 = ╱45╱E╱ // 0x1a62 @0x18
0x1a4a…1aa1 at0019 = ╱42╱B╱ // 0x1a63 @0x19
0x1a4a…1aa1 at001a = ╱ec╱,╱ // 0x1a64 @0x1a
0x1a4a…1aa1 at001b = ╱41╱A╱ // 0x1a65 @0x1b
0x1a4a…1aa1 at001c = ╱4b╱K╱ // 0x1a66 @0x1c
0x1a4a…1aa1 at001d = ╱52╱R╱ // 0x1a67 @0x1d
0x1a4a…1aa1 at001e = ╱45╱E╱ // 0x1a68 @0x1e
0x1a4a…1aa1 at001f = ╱ec╱,╱ // 0x1a69 @0x1f
0x1a4a…1aa1 at0020 = ╱56╱V╱ // 0x1a6a @0x20
0x1a4a…1aa1 at0021 = ╱54╱T╱ // 0x1a6b @0x21
0x1a4a…1aa1 at0022 = ╱41╱A╱ // 0x1a6c @0x22
0x1a4a…1aa1 at0023 = ╱42╱B╱ // 0x1a6d @0x23
0x1a4a…1aa1 at0024 = ╱32╱2╱ // 0x1a6e @0x24
0x1a4a…1aa1 at0025 = ╱ed╱(╱ // 0x1a6f @0x25
0x1a4a…1aa1 at0026 = ╱45╱E╱ // 0x1a70 @0x26
0x1a4a…1aa1 at0027 = ╱ee╱)╱ // 0x1a71 @0x27
0x1a4a…1aa1 at0028 = ╱ec╱,╱ // 0x1a72 @0x28
0x1a4a…1aa1 at0029 = ╱56╱V╱ // 0x1a73 @0x29
0x1a4a…1aa1 at002a = ╱54╱T╱ // 0x1a74 @0x2a
0x1a4a…1aa1 at002b = ╱41╱A╱ // 0x1a75 @0x2b
0x1a4a…1aa1 at002c = ╱42╱B╱ // 0x1a76 @0x2c
0x1a4a…1aa1 at002d = ╱32╱2╱ // 0x1a77 @0x2d
0x1a4a…1aa1 at002e = ╱ed╱(╱ // 0x1a78 @0x2e
0x1a4a…1aa1 at002f = ╱47╱G╱ // 0x1a79 @0x2f
0x1a4a…1aa1 at0030 = ╱ee╱)╱ // 0x1a7a @0x30
0x1a4a…1aa1 at0031 = ╱ec╱,╱ // 0x1a7b @0x31
0x1a4a…1aa1 at0032 = ╱56╱V╱ // 0x1a7c @0x32
0x1a4a…1aa1 at0033 = ╱54╱T╱ // 0x1a7d @0x33
0x1a4a…1aa1 at0034 = ╱41╱A╱ // 0x1a7e @0x34
0x1a4a…1aa1 at0035 = ╱42╱B╱ // 0x1a7f @0x35
0x1a4a…1aa1 at0036 = ╱32╱2╱ // 0x1a80 @0x36
0x1a4a…1aa1 at0037 = ╱ed╱(╱ // 0x1a81 @0x37
0x1a4a…1aa1 at0038 = ╱56╱V╱ // 0x1a82 @0x38
0x1a4a…1aa1 at0039 = ╱ee╱)╱ // 0x1a83 @0x39
0x1a4a…1aa1 at003a = ╱ec╱,╱ // 0x1a84 @0x3a
0x1a4a…1aa1 at003b = ╱56╱V╱ // 0x1a85 @0x3b
0x1a4a…1aa1 at003c = ╱54╱T╱ // 0x1a86 @0x3c
0x1a4a…1aa1 at003d = ╱41╱A╱ // 0x1a87 @0x3d
0x1a4a…1aa1 at003e = ╱42╱B╱ // 0x1a88 @0x3e
0x1a4a…1aa1 at003f = ╱32╱2╱ // 0x1a89 @0x3f
0x1a4a…1aa1 at0040 = ╱ed╱(╱ // 0x1a8a @0x40
0x1a4a…1aa1 at0041 = ╱34╱4╱ // 0x1a8b @0x41
0x1a4a…1aa1 at0042 = ╱fe00008003╱ // 0x1a8c @0x42
0x1a4a…1aa1 at0047 = ╱ee╱)╱ // 0x1a91 @0x47
0x1a4a…1aa1 at0048 = ╱ec╱,╱ // 0x1a92 @0x48
0x1a4a…1aa1 at0049 = ╱56╱V╱ // 0x1a93 @0x49
0x1a4a…1aa1 at004a = ╱54╱T╱ // 0x1a94 @0x4a
0x1a4a…1aa1 at004b = ╱41╱A╱ // 0x1a95 @0x4b
0x1a4a…1aa1 at004c = ╱42╱B╱ // 0x1a96 @0x4c
0x1a4a…1aa1 at004d = ╱32╱2╱ // 0x1a97 @0x4d
0x1a4a…1aa1 at004e = ╱ed╱(╱ // 0x1a98 @0x4e
0x1a4a…1aa1 at004f = ╱35╱5╱ // 0x1a99 @0x4f
0x1a4a…1aa1 at0050 = ╱fe0000a003╱ // 0x1a9a @0x50
0x1a4a…1aa1 at0055 = ╱ee╱)╱ // 0x1a9f @0x55
0x1a4a…1aa1 at0056 = EOL // 0x1aa0 @0x56
0x1a4a…1aa1 }
0x1aa1…1aba a811 3260 EXEC FEJL(W,14,K4$)
0x1aa1…1aba LineComalBin {
0x1aa1…1aba ptr = 0xa811 // 0x1aa1 @0x0
0x1aa1…1aba lno = 0x0cbc // 0x1aa3 @0x2
0x1aa1…1aba at0004 = ╱9d╱ EXEC ╱ // 0x1aa5 @0x4
0x1aa1…1aba at0005 = ╱46╱F╱ // 0x1aa6 @0x5
0x1aa1…1aba at0006 = ╱45╱E╱ // 0x1aa7 @0x6
0x1aa1…1aba at0007 = ╱4a╱J╱ // 0x1aa8 @0x7
0x1aa1…1aba at0008 = ╱4c╱L╱ // 0x1aa9 @0x8
0x1aa1…1aba at0009 = ╱ed╱(╱ // 0x1aaa @0x9
0x1aa1…1aba at000a = ╱57╱W╱ // 0x1aab @0xa
0x1aa1…1aba at000b = ╱ec╱,╱ // 0x1aac @0xb
0x1aa1…1aba at000c = ╱31╱1╱ // 0x1aad @0xc
0x1aa1…1aba at000d = ╱34╱4╱ // 0x1aae @0xd
0x1aa1…1aba at000e = ╱fe0000e004╱ // 0x1aaf @0xe
0x1aa1…1aba at0013 = ╱ec╱,╱ // 0x1ab4 @0x13
0x1aa1…1aba at0014 = ╱4b╱K╱ // 0x1ab5 @0x14
0x1aa1…1aba at0015 = ╱34╱4╱ // 0x1ab6 @0x15
0x1aa1…1aba at0016 = ╱ef╱$╱ // 0x1ab7 @0x16
0x1aa1…1aba at0017 = ╱ee╱)╱ // 0x1ab8 @0x17
0x1aa1…1aba at0018 = EOL // 0x1ab9 @0x18
0x1aa1…1aba }
0x1aba…1b1a a871 3270 GET K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x1aba…1b1a LineComalBin {
0x1aba…1b1a ptr = 0xa871 // 0x1aba @0x0
0x1aba…1b1a lno = 0x0cc6 // 0x1abc @0x2
0x1aba…1b1a at0004 = ╱a9╱ GET ╱ // 0x1abe @0x4
0x1aba…1b1a at0005 = ╱4b╱K╱ // 0x1abf @0x5
0x1aba…1b1a at0006 = ╱34╱4╱ // 0x1ac0 @0x6
0x1aba…1b1a at0007 = ╱ef╱$╱ // 0x1ac1 @0x7
0x1aba…1b1a at0008 = ╱ec╱,╱ // 0x1ac2 @0x8
0x1aba…1b1a at0009 = ╱31╱1╱ // 0x1ac3 @0x9
0x1aba…1b1a at000a = ╱37╱7╱ // 0x1ac4 @0xa
0x1aba…1b1a at000b = ╱fe00008805╱ // 0x1ac5 @0xb
0x1aba…1b1a at0010 = ╱f0╱:╱ // 0x1aca @0x10
0x1aba…1b1a at0011 = ╱54╱T╱ // 0x1acb @0x11
0x1aba…1b1a at0012 = ╱32╱2╱ // 0x1acc @0x12
0x1aba…1b1a at0013 = ╱ed╱(╱ // 0x1acd @0x13
0x1aba…1b1a at0014 = ╱45╱E╱ // 0x1ace @0x14
0x1aba…1b1a at0015 = ╱ee╱)╱ // 0x1acf @0x15
0x1aba…1b1a at0016 = ╱ec╱,╱ // 0x1ad0 @0x16
0x1aba…1b1a at0017 = ╱54╱T╱ // 0x1ad1 @0x17
0x1aba…1b1a at0018 = ╱32╱2╱ // 0x1ad2 @0x18
0x1aba…1b1a at0019 = ╱ed╱(╱ // 0x1ad3 @0x19
0x1aba…1b1a at001a = ╱47╱G╱ // 0x1ad4 @0x1a
0x1aba…1b1a at001b = ╱ee╱)╱ // 0x1ad5 @0x1b
0x1aba…1b1a at001c = ╱ec╱,╱ // 0x1ad6 @0x1c
0x1aba…1b1a at001d = ╱54╱T╱ // 0x1ad7 @0x1d
0x1aba…1b1a at001e = ╱32╱2╱ // 0x1ad8 @0x1e
0x1aba…1b1a at001f = ╱ed╱(╱ // 0x1ad9 @0x1f
0x1aba…1b1a at0020 = ╱56╱V╱ // 0x1ada @0x20
0x1aba…1b1a at0021 = ╱ee╱)╱ // 0x1adb @0x21
0x1aba…1b1a at0022 = ╱ec╱,╱ // 0x1adc @0x22
0x1aba…1b1a at0023 = ╱54╱T╱ // 0x1add @0x23
0x1aba…1b1a at0024 = ╱32╱2╱ // 0x1ade @0x24
0x1aba…1b1a at0025 = ╱ed╱(╱ // 0x1adf @0x25
0x1aba…1b1a at0026 = ╱34╱4╱ // 0x1ae0 @0x26
0x1aba…1b1a at0027 = ╱fe00008003╱ // 0x1ae1 @0x27
0x1aba…1b1a at002c = ╱ee╱)╱ // 0x1ae6 @0x2c
0x1aba…1b1a at002d = ╱ec╱,╱ // 0x1ae7 @0x2d
0x1aba…1b1a at002e = ╱54╱T╱ // 0x1ae8 @0x2e
0x1aba…1b1a at002f = ╱32╱2╱ // 0x1ae9 @0x2f
0x1aba…1b1a at0030 = ╱ed╱(╱ // 0x1aea @0x30
0x1aba…1b1a at0031 = ╱35╱5╱ // 0x1aeb @0x31
0x1aba…1b1a at0032 = ╱fe0000a003╱ // 0x1aec @0x32
0x1aba…1b1a at0037 = ╱ee╱)╱ // 0x1af1 @0x37
0x1aba…1b1a at0038 = ╱ec╱,╱ // 0x1af2 @0x38
0x1aba…1b1a at0039 = ╱54╱T╱ // 0x1af3 @0x39
0x1aba…1b1a at003a = ╱32╱2╱ // 0x1af4 @0x3a
0x1aba…1b1a at003b = ╱ed╱(╱ // 0x1af5 @0x3b
0x1aba…1b1a at003c = ╱36╱6╱ // 0x1af6 @0x3c
0x1aba…1b1a at003d = ╱fe0000c003╱ // 0x1af7 @0x3d
0x1aba…1b1a at0042 = ╱ee╱)╱ // 0x1afc @0x42
0x1aba…1b1a at0043 = ╱ec╱,╱ // 0x1afd @0x43
0x1aba…1b1a at0044 = ╱54╱T╱ // 0x1afe @0x44
0x1aba…1b1a at0045 = ╱32╱2╱ // 0x1aff @0x45
0x1aba…1b1a at0046 = ╱ed╱(╱ // 0x1b00 @0x46
0x1aba…1b1a at0047 = ╱37╱7╱ // 0x1b01 @0x47
0x1aba…1b1a at0048 = ╱fe0000e003╱ // 0x1b02 @0x48
0x1aba…1b1a at004d = ╱ee╱)╱ // 0x1b07 @0x4d
0x1aba…1b1a at004e = ╱ec╱,╱ // 0x1b08 @0x4e
0x1aba…1b1a at004f = ╱54╱T╱ // 0x1b09 @0x4f
0x1aba…1b1a at0050 = ╱32╱2╱ // 0x1b0a @0x50
0x1aba…1b1a at0051 = ╱ed╱(╱ // 0x1b0b @0x51
0x1aba…1b1a at0052 = ╱38╱8╱ // 0x1b0c @0x52
0x1aba…1b1a at0053 = ╱fe00008004╱ // 0x1b0d @0x53
0x1aba…1b1a at0058 = ╱ee╱)╱ // 0x1b12 @0x58
0x1aba…1b1a at0059 = ╱ec╱,╱ // 0x1b13 @0x59
0x1aba…1b1a at005a = ╱54╱T╱ // 0x1b14 @0x5a
0x1aba…1b1a at005b = ╱32╱2╱ // 0x1b15 @0x5b
0x1aba…1b1a at005c = ╱ed╱(╱ // 0x1b16 @0x5c
0x1aba…1b1a at005d = ╱57╱W╱ // 0x1b17 @0x5d
0x1aba…1b1a at005e = ╱ee╱)╱ // 0x1b18 @0x5e
0x1aba…1b1a at005f = EOL // 0x1b19 @0x5f
0x1aba…1b1a }
0x1b1a…1b33 a88a 3280 EXEC FEJL(W,15,K4$)
0x1b1a…1b33 LineComalBin {
0x1b1a…1b33 ptr = 0xa88a // 0x1b1a @0x0
0x1b1a…1b33 lno = 0x0cd0 // 0x1b1c @0x2
0x1b1a…1b33 at0004 = ╱9d╱ EXEC ╱ // 0x1b1e @0x4
0x1b1a…1b33 at0005 = ╱46╱F╱ // 0x1b1f @0x5
0x1b1a…1b33 at0006 = ╱45╱E╱ // 0x1b20 @0x6
0x1b1a…1b33 at0007 = ╱4a╱J╱ // 0x1b21 @0x7
0x1b1a…1b33 at0008 = ╱4c╱L╱ // 0x1b22 @0x8
0x1b1a…1b33 at0009 = ╱ed╱(╱ // 0x1b23 @0x9
0x1b1a…1b33 at000a = ╱57╱W╱ // 0x1b24 @0xa
0x1b1a…1b33 at000b = ╱ec╱,╱ // 0x1b25 @0xb
0x1b1a…1b33 at000c = ╱31╱1╱ // 0x1b26 @0xc
0x1b1a…1b33 at000d = ╱35╱5╱ // 0x1b27 @0xd
0x1b1a…1b33 at000e = ╱fe0000f004╱ // 0x1b28 @0xe
0x1b1a…1b33 at0013 = ╱ec╱,╱ // 0x1b2d @0x13
0x1b1a…1b33 at0014 = ╱4b╱K╱ // 0x1b2e @0x14
0x1b1a…1b33 at0015 = ╱34╱4╱ // 0x1b2f @0x15
0x1b1a…1b33 at0016 = ╱ef╱$╱ // 0x1b30 @0x16
0x1b1a…1b33 at0017 = ╱ee╱)╱ // 0x1b31 @0x17
0x1b1a…1b33 at0018 = EOL // 0x1b32 @0x18
0x1b1a…1b33 }
0x1b33…1b44 a89b 3290 T2(4)=E
0x1b33…1b44 LineComalBin {
0x1b33…1b44 ptr = 0xa89b // 0x1b33 @0x0
0x1b33…1b44 lno = 0x0cda // 0x1b35 @0x2
0x1b33…1b44 at0004 = ╱54╱T╱ // 0x1b37 @0x4
0x1b33…1b44 at0005 = ╱32╱2╱ // 0x1b38 @0x5
0x1b33…1b44 at0006 = ╱ed╱(╱ // 0x1b39 @0x6
0x1b33…1b44 at0007 = ╱34╱4╱ // 0x1b3a @0x7
0x1b33…1b44 at0008 = ╱fe00008003╱ // 0x1b3b @0x8
0x1b33…1b44 at000d = ╱ee╱)╱ // 0x1b40 @0xd
0x1b33…1b44 at000e = ╱dc╱=╱ // 0x1b41 @0xe
0x1b33…1b44 at000f = ╱45╱E╱ // 0x1b42 @0xf
0x1b33…1b44 at0010 = EOL // 0x1b43 @0x10
0x1b33…1b44 }
0x1b44…1ba4 a8fb 3300 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x1b44…1ba4 LineComalBin {
0x1b44…1ba4 ptr = 0xa8fb // 0x1b44 @0x0
0x1b44…1ba4 lno = 0x0ce4 // 0x1b46 @0x2
0x1b44…1ba4 at0004 = ╱aa╱ PUT ╱ // 0x1b48 @0x4
0x1b44…1ba4 at0005 = ╱4b╱K╱ // 0x1b49 @0x5
0x1b44…1ba4 at0006 = ╱34╱4╱ // 0x1b4a @0x6
0x1b44…1ba4 at0007 = ╱ef╱$╱ // 0x1b4b @0x7
0x1b44…1ba4 at0008 = ╱ec╱,╱ // 0x1b4c @0x8
0x1b44…1ba4 at0009 = ╱31╱1╱ // 0x1b4d @0x9
0x1b44…1ba4 at000a = ╱37╱7╱ // 0x1b4e @0xa
0x1b44…1ba4 at000b = ╱fe00008805╱ // 0x1b4f @0xb
0x1b44…1ba4 at0010 = ╱f0╱:╱ // 0x1b54 @0x10
0x1b44…1ba4 at0011 = ╱54╱T╱ // 0x1b55 @0x11
0x1b44…1ba4 at0012 = ╱32╱2╱ // 0x1b56 @0x12
0x1b44…1ba4 at0013 = ╱ed╱(╱ // 0x1b57 @0x13
0x1b44…1ba4 at0014 = ╱45╱E╱ // 0x1b58 @0x14
0x1b44…1ba4 at0015 = ╱ee╱)╱ // 0x1b59 @0x15
0x1b44…1ba4 at0016 = ╱ec╱,╱ // 0x1b5a @0x16
0x1b44…1ba4 at0017 = ╱54╱T╱ // 0x1b5b @0x17
0x1b44…1ba4 at0018 = ╱32╱2╱ // 0x1b5c @0x18
0x1b44…1ba4 at0019 = ╱ed╱(╱ // 0x1b5d @0x19
0x1b44…1ba4 at001a = ╱47╱G╱ // 0x1b5e @0x1a
0x1b44…1ba4 at001b = ╱ee╱)╱ // 0x1b5f @0x1b
0x1b44…1ba4 at001c = ╱ec╱,╱ // 0x1b60 @0x1c
0x1b44…1ba4 at001d = ╱54╱T╱ // 0x1b61 @0x1d
0x1b44…1ba4 at001e = ╱32╱2╱ // 0x1b62 @0x1e
0x1b44…1ba4 at001f = ╱ed╱(╱ // 0x1b63 @0x1f
0x1b44…1ba4 at0020 = ╱56╱V╱ // 0x1b64 @0x20
0x1b44…1ba4 at0021 = ╱ee╱)╱ // 0x1b65 @0x21
0x1b44…1ba4 at0022 = ╱ec╱,╱ // 0x1b66 @0x22
0x1b44…1ba4 at0023 = ╱54╱T╱ // 0x1b67 @0x23
0x1b44…1ba4 at0024 = ╱32╱2╱ // 0x1b68 @0x24
0x1b44…1ba4 at0025 = ╱ed╱(╱ // 0x1b69 @0x25
0x1b44…1ba4 at0026 = ╱34╱4╱ // 0x1b6a @0x26
0x1b44…1ba4 at0027 = ╱fe00008003╱ // 0x1b6b @0x27
0x1b44…1ba4 at002c = ╱ee╱)╱ // 0x1b70 @0x2c
0x1b44…1ba4 at002d = ╱ec╱,╱ // 0x1b71 @0x2d
0x1b44…1ba4 at002e = ╱54╱T╱ // 0x1b72 @0x2e
0x1b44…1ba4 at002f = ╱32╱2╱ // 0x1b73 @0x2f
0x1b44…1ba4 at0030 = ╱ed╱(╱ // 0x1b74 @0x30
0x1b44…1ba4 at0031 = ╱35╱5╱ // 0x1b75 @0x31
0x1b44…1ba4 at0032 = ╱fe0000a003╱ // 0x1b76 @0x32
0x1b44…1ba4 at0037 = ╱ee╱)╱ // 0x1b7b @0x37
0x1b44…1ba4 at0038 = ╱ec╱,╱ // 0x1b7c @0x38
0x1b44…1ba4 at0039 = ╱54╱T╱ // 0x1b7d @0x39
0x1b44…1ba4 at003a = ╱32╱2╱ // 0x1b7e @0x3a
0x1b44…1ba4 at003b = ╱ed╱(╱ // 0x1b7f @0x3b
0x1b44…1ba4 at003c = ╱36╱6╱ // 0x1b80 @0x3c
0x1b44…1ba4 at003d = ╱fe0000c003╱ // 0x1b81 @0x3d
0x1b44…1ba4 at0042 = ╱ee╱)╱ // 0x1b86 @0x42
0x1b44…1ba4 at0043 = ╱ec╱,╱ // 0x1b87 @0x43
0x1b44…1ba4 at0044 = ╱54╱T╱ // 0x1b88 @0x44
0x1b44…1ba4 at0045 = ╱32╱2╱ // 0x1b89 @0x45
0x1b44…1ba4 at0046 = ╱ed╱(╱ // 0x1b8a @0x46
0x1b44…1ba4 at0047 = ╱37╱7╱ // 0x1b8b @0x47
0x1b44…1ba4 at0048 = ╱fe0000e003╱ // 0x1b8c @0x48
0x1b44…1ba4 at004d = ╱ee╱)╱ // 0x1b91 @0x4d
0x1b44…1ba4 at004e = ╱ec╱,╱ // 0x1b92 @0x4e
0x1b44…1ba4 at004f = ╱54╱T╱ // 0x1b93 @0x4f
0x1b44…1ba4 at0050 = ╱32╱2╱ // 0x1b94 @0x50
0x1b44…1ba4 at0051 = ╱ed╱(╱ // 0x1b95 @0x51
0x1b44…1ba4 at0052 = ╱38╱8╱ // 0x1b96 @0x52
0x1b44…1ba4 at0053 = ╱fe00008004╱ // 0x1b97 @0x53
0x1b44…1ba4 at0058 = ╱ee╱)╱ // 0x1b9c @0x58
0x1b44…1ba4 at0059 = ╱ec╱,╱ // 0x1b9d @0x59
0x1b44…1ba4 at005a = ╱54╱T╱ // 0x1b9e @0x5a
0x1b44…1ba4 at005b = ╱32╱2╱ // 0x1b9f @0x5b
0x1b44…1ba4 at005c = ╱ed╱(╱ // 0x1ba0 @0x5c
0x1b44…1ba4 at005d = ╱57╱W╱ // 0x1ba1 @0x5d
0x1b44…1ba4 at005e = ╱ee╱)╱ // 0x1ba2 @0x5e
0x1b44…1ba4 at005f = EOL // 0x1ba3 @0x5f
0x1b44…1ba4 }
0x1ba4…1bbd a914 3310 EXEC FEJL(W,16,K4$)
0x1ba4…1bbd LineComalBin {
0x1ba4…1bbd ptr = 0xa914 // 0x1ba4 @0x0
0x1ba4…1bbd lno = 0x0cee // 0x1ba6 @0x2
0x1ba4…1bbd at0004 = ╱9d╱ EXEC ╱ // 0x1ba8 @0x4
0x1ba4…1bbd at0005 = ╱46╱F╱ // 0x1ba9 @0x5
0x1ba4…1bbd at0006 = ╱45╱E╱ // 0x1baa @0x6
0x1ba4…1bbd at0007 = ╱4a╱J╱ // 0x1bab @0x7
0x1ba4…1bbd at0008 = ╱4c╱L╱ // 0x1bac @0x8
0x1ba4…1bbd at0009 = ╱ed╱(╱ // 0x1bad @0x9
0x1ba4…1bbd at000a = ╱57╱W╱ // 0x1bae @0xa
0x1ba4…1bbd at000b = ╱ec╱,╱ // 0x1baf @0xb
0x1ba4…1bbd at000c = ╱31╱1╱ // 0x1bb0 @0xc
0x1ba4…1bbd at000d = ╱36╱6╱ // 0x1bb1 @0xd
0x1ba4…1bbd at000e = ╱fe00008005╱ // 0x1bb2 @0xe
0x1ba4…1bbd at0013 = ╱ec╱,╱ // 0x1bb7 @0x13
0x1ba4…1bbd at0014 = ╱4b╱K╱ // 0x1bb8 @0x14
0x1ba4…1bbd at0015 = ╱34╱4╱ // 0x1bb9 @0x15
0x1ba4…1bbd at0016 = ╱ef╱$╱ // 0x1bba @0x16
0x1ba4…1bbd at0017 = ╱ee╱)╱ // 0x1bbb @0x17
0x1ba4…1bbd at0018 = EOL // 0x1bbc @0x18
0x1ba4…1bbd }
0x1bbd…1bd2 a929 3312 GET K4$,20:DV$
0x1bbd…1bd2 LineComalBin {
0x1bbd…1bd2 ptr = 0xa929 // 0x1bbd @0x0
0x1bbd…1bd2 lno = 0x0cf0 // 0x1bbf @0x2
0x1bbd…1bd2 at0004 = ╱a9╱ GET ╱ // 0x1bc1 @0x4
0x1bbd…1bd2 at0005 = ╱4b╱K╱ // 0x1bc2 @0x5
0x1bbd…1bd2 at0006 = ╱34╱4╱ // 0x1bc3 @0x6
0x1bbd…1bd2 at0007 = ╱ef╱$╱ // 0x1bc4 @0x7
0x1bbd…1bd2 at0008 = ╱ec╱,╱ // 0x1bc5 @0x8
0x1bbd…1bd2 at0009 = ╱32╱2╱ // 0x1bc6 @0x9
0x1bbd…1bd2 at000a = ╱30╱0╱ // 0x1bc7 @0xa
0x1bbd…1bd2 at000b = ╱fe0000a005╱ // 0x1bc8 @0xb
0x1bbd…1bd2 at0010 = ╱f0╱:╱ // 0x1bcd @0x10
0x1bbd…1bd2 at0011 = ╱44╱D╱ // 0x1bce @0x11
0x1bbd…1bd2 at0012 = ╱56╱V╱ // 0x1bcf @0x12
0x1bbd…1bd2 at0013 = ╱ef╱$╱ // 0x1bd0 @0x13
0x1bbd…1bd2 at0014 = EOL // 0x1bd1 @0x14
0x1bbd…1bd2 }
0x1bd2…1beb a942 3314 EXEC FEJL(W,22,K4$)
0x1bd2…1beb LineComalBin {
0x1bd2…1beb ptr = 0xa942 // 0x1bd2 @0x0
0x1bd2…1beb lno = 0x0cf2 // 0x1bd4 @0x2
0x1bd2…1beb at0004 = ╱9d╱ EXEC ╱ // 0x1bd6 @0x4
0x1bd2…1beb at0005 = ╱46╱F╱ // 0x1bd7 @0x5
0x1bd2…1beb at0006 = ╱45╱E╱ // 0x1bd8 @0x6
0x1bd2…1beb at0007 = ╱4a╱J╱ // 0x1bd9 @0x7
0x1bd2…1beb at0008 = ╱4c╱L╱ // 0x1bda @0x8
0x1bd2…1beb at0009 = ╱ed╱(╱ // 0x1bdb @0x9
0x1bd2…1beb at000a = ╱57╱W╱ // 0x1bdc @0xa
0x1bd2…1beb at000b = ╱ec╱,╱ // 0x1bdd @0xb
0x1bd2…1beb at000c = ╱32╱2╱ // 0x1bde @0xc
0x1bd2…1beb at000d = ╱32╱2╱ // 0x1bdf @0xd
0x1bd2…1beb at000e = ╱fe0000b005╱ // 0x1be0 @0xe
0x1bd2…1beb at0013 = ╱ec╱,╱ // 0x1be5 @0x13
0x1bd2…1beb at0014 = ╱4b╱K╱ // 0x1be6 @0x14
0x1bd2…1beb at0015 = ╱34╱4╱ // 0x1be7 @0x15
0x1bd2…1beb at0016 = ╱ef╱$╱ // 0x1be8 @0x16
0x1bd2…1beb at0017 = ╱ee╱)╱ // 0x1be9 @0x17
0x1bd2…1beb at0018 = EOL // 0x1bea @0x18
0x1bd2…1beb }
0x1beb…1bf4 a94b 3320 CLOSE K4$
0x1beb…1bf4 LineComalBin {
0x1beb…1bf4 ptr = 0xa94b // 0x1beb @0x0
0x1beb…1bf4 lno = 0x0cf8 // 0x1bed @0x2
0x1beb…1bf4 at0004 = ╱a8╱ CLOSE ╱ // 0x1bef @0x4
0x1beb…1bf4 at0005 = ╱4b╱K╱ // 0x1bf0 @0x5
0x1beb…1bf4 at0006 = ╱34╱4╱ // 0x1bf1 @0x6
0x1beb…1bf4 at0007 = ╱ef╱$╱ // 0x1bf2 @0x7
0x1beb…1bf4 at0008 = EOL // 0x1bf3 @0x8
0x1beb…1bf4 }
0x1bf4…1c0d a964 3330 EXEC FEJL(W,17,K4$)
0x1bf4…1c0d LineComalBin {
0x1bf4…1c0d ptr = 0xa964 // 0x1bf4 @0x0
0x1bf4…1c0d lno = 0x0d02 // 0x1bf6 @0x2
0x1bf4…1c0d at0004 = ╱9d╱ EXEC ╱ // 0x1bf8 @0x4
0x1bf4…1c0d at0005 = ╱46╱F╱ // 0x1bf9 @0x5
0x1bf4…1c0d at0006 = ╱45╱E╱ // 0x1bfa @0x6
0x1bf4…1c0d at0007 = ╱4a╱J╱ // 0x1bfb @0x7
0x1bf4…1c0d at0008 = ╱4c╱L╱ // 0x1bfc @0x8
0x1bf4…1c0d at0009 = ╱ed╱(╱ // 0x1bfd @0x9
0x1bf4…1c0d at000a = ╱57╱W╱ // 0x1bfe @0xa
0x1bf4…1c0d at000b = ╱ec╱,╱ // 0x1bff @0xb
0x1bf4…1c0d at000c = ╱31╱1╱ // 0x1c00 @0xc
0x1bf4…1c0d at000d = ╱37╱7╱ // 0x1c01 @0xd
0x1bf4…1c0d at000e = ╱fe00008805╱ // 0x1c02 @0xe
0x1bf4…1c0d at0013 = ╱ec╱,╱ // 0x1c07 @0x13
0x1bf4…1c0d at0014 = ╱4b╱K╱ // 0x1c08 @0x14
0x1bf4…1c0d at0015 = ╱34╱4╱ // 0x1c09 @0x15
0x1bf4…1c0d at0016 = ╱ef╱$╱ // 0x1c0a @0x16
0x1bf4…1c0d at0017 = ╱ee╱)╱ // 0x1c0b @0x17
0x1bf4…1c0d at0018 = EOL // 0x1c0c @0x18
0x1bf4…1c0d }
0x1c0d…1c1c a973 3340 K2$=N$+K2$
0x1c0d…1c1c LineComalBin {
0x1c0d…1c1c ptr = 0xa973 // 0x1c0d @0x0
0x1c0d…1c1c lno = 0x0d0c // 0x1c0f @0x2
0x1c0d…1c1c at0004 = ╱4b╱K╱ // 0x1c11 @0x4
0x1c0d…1c1c at0005 = ╱32╱2╱ // 0x1c12 @0x5
0x1c0d…1c1c at0006 = ╱ef╱$╱ // 0x1c13 @0x6
0x1c0d…1c1c at0007 = ╱dc╱=╱ // 0x1c14 @0x7
0x1c0d…1c1c at0008 = ╱4e╱N╱ // 0x1c15 @0x8
0x1c0d…1c1c at0009 = ╱ef╱$╱ // 0x1c16 @0x9
0x1c0d…1c1c at000a = ╱f1╱+╱ // 0x1c17 @0xa
0x1c0d…1c1c at000b = ╱4b╱K╱ // 0x1c18 @0xb
0x1c0d…1c1c at000c = ╱32╱2╱ // 0x1c19 @0xc
0x1c0d…1c1c at000d = ╱ef╱$╱ // 0x1c1a @0xd
0x1c0d…1c1c at000e = EOL // 0x1c1b @0xe
0x1c0d…1c1c }
0x1c1c…1c27 a97e 3350 OPEN K2$,W
0x1c1c…1c27 LineComalBin {
0x1c1c…1c27 ptr = 0xa97e // 0x1c1c @0x0
0x1c1c…1c27 lno = 0x0d16 // 0x1c1e @0x2
0x1c1c…1c27 at0004 = ╱a7╱ OPEN ╱ // 0x1c20 @0x4
0x1c1c…1c27 at0005 = ╱4b╱K╱ // 0x1c21 @0x5
0x1c1c…1c27 at0006 = ╱32╱2╱ // 0x1c22 @0x6
0x1c1c…1c27 at0007 = ╱ef╱$╱ // 0x1c23 @0x7
0x1c1c…1c27 at0008 = ╱ec╱,╱ // 0x1c24 @0x8
0x1c1c…1c27 at0009 = ╱57╱W╱ // 0x1c25 @0x9
0x1c1c…1c27 at000a = EOL // 0x1c26 @0xa
0x1c1c…1c27 }
0x1c27…1c40 a997 3360 EXEC FEJL(W,18,K2$)
0x1c27…1c40 LineComalBin {
0x1c27…1c40 ptr = 0xa997 // 0x1c27 @0x0
0x1c27…1c40 lno = 0x0d20 // 0x1c29 @0x2
0x1c27…1c40 at0004 = ╱9d╱ EXEC ╱ // 0x1c2b @0x4
0x1c27…1c40 at0005 = ╱46╱F╱ // 0x1c2c @0x5
0x1c27…1c40 at0006 = ╱45╱E╱ // 0x1c2d @0x6
0x1c27…1c40 at0007 = ╱4a╱J╱ // 0x1c2e @0x7
0x1c27…1c40 at0008 = ╱4c╱L╱ // 0x1c2f @0x8
0x1c27…1c40 at0009 = ╱ed╱(╱ // 0x1c30 @0x9
0x1c27…1c40 at000a = ╱57╱W╱ // 0x1c31 @0xa
0x1c27…1c40 at000b = ╱ec╱,╱ // 0x1c32 @0xb
0x1c27…1c40 at000c = ╱31╱1╱ // 0x1c33 @0xc
0x1c27…1c40 at000d = ╱38╱8╱ // 0x1c34 @0xd
0x1c27…1c40 at000e = ╱fe00009005╱ // 0x1c35 @0xe
0x1c27…1c40 at0013 = ╱ec╱,╱ // 0x1c3a @0x13
0x1c27…1c40 at0014 = ╱4b╱K╱ // 0x1c3b @0x14
0x1c27…1c40 at0015 = ╱32╱2╱ // 0x1c3c @0x15
0x1c27…1c40 at0016 = ╱ef╱$╱ // 0x1c3d @0x16
0x1c27…1c40 at0017 = ╱ee╱)╱ // 0x1c3e @0x17
0x1c27…1c40 at0018 = EOL // 0x1c3f @0x18
0x1c27…1c40 }
0x1c40…1c4f a9a6 3370 K3$=N$+K3$
0x1c40…1c4f LineComalBin {
0x1c40…1c4f ptr = 0xa9a6 // 0x1c40 @0x0
0x1c40…1c4f lno = 0x0d2a // 0x1c42 @0x2
0x1c40…1c4f at0004 = ╱4b╱K╱ // 0x1c44 @0x4
0x1c40…1c4f at0005 = ╱33╱3╱ // 0x1c45 @0x5
0x1c40…1c4f at0006 = ╱ef╱$╱ // 0x1c46 @0x6
0x1c40…1c4f at0007 = ╱dc╱=╱ // 0x1c47 @0x7
0x1c40…1c4f at0008 = ╱4e╱N╱ // 0x1c48 @0x8
0x1c40…1c4f at0009 = ╱ef╱$╱ // 0x1c49 @0x9
0x1c40…1c4f at000a = ╱f1╱+╱ // 0x1c4a @0xa
0x1c40…1c4f at000b = ╱4b╱K╱ // 0x1c4b @0xb
0x1c40…1c4f at000c = ╱33╱3╱ // 0x1c4c @0xc
0x1c40…1c4f at000d = ╱ef╱$╱ // 0x1c4d @0xd
0x1c40…1c4f at000e = EOL // 0x1c4e @0xe
0x1c40…1c4f }
0x1c4f…1c5a a9b1 3380 OPEN K3$,W
0x1c4f…1c5a LineComalBin {
0x1c4f…1c5a ptr = 0xa9b1 // 0x1c4f @0x0
0x1c4f…1c5a lno = 0x0d34 // 0x1c51 @0x2
0x1c4f…1c5a at0004 = ╱a7╱ OPEN ╱ // 0x1c53 @0x4
0x1c4f…1c5a at0005 = ╱4b╱K╱ // 0x1c54 @0x5
0x1c4f…1c5a at0006 = ╱33╱3╱ // 0x1c55 @0x6
0x1c4f…1c5a at0007 = ╱ef╱$╱ // 0x1c56 @0x7
0x1c4f…1c5a at0008 = ╱ec╱,╱ // 0x1c57 @0x8
0x1c4f…1c5a at0009 = ╱57╱W╱ // 0x1c58 @0x9
0x1c4f…1c5a at000a = EOL // 0x1c59 @0xa
0x1c4f…1c5a }
0x1c5a…1c73 a9ca 3390 EXEC FEJL(W,19,K3$)
0x1c5a…1c73 LineComalBin {
0x1c5a…1c73 ptr = 0xa9ca // 0x1c5a @0x0
0x1c5a…1c73 lno = 0x0d3e // 0x1c5c @0x2
0x1c5a…1c73 at0004 = ╱9d╱ EXEC ╱ // 0x1c5e @0x4
0x1c5a…1c73 at0005 = ╱46╱F╱ // 0x1c5f @0x5
0x1c5a…1c73 at0006 = ╱45╱E╱ // 0x1c60 @0x6
0x1c5a…1c73 at0007 = ╱4a╱J╱ // 0x1c61 @0x7
0x1c5a…1c73 at0008 = ╱4c╱L╱ // 0x1c62 @0x8
0x1c5a…1c73 at0009 = ╱ed╱(╱ // 0x1c63 @0x9
0x1c5a…1c73 at000a = ╱57╱W╱ // 0x1c64 @0xa
0x1c5a…1c73 at000b = ╱ec╱,╱ // 0x1c65 @0xb
0x1c5a…1c73 at000c = ╱31╱1╱ // 0x1c66 @0xc
0x1c5a…1c73 at000d = ╱39╱9╱ // 0x1c67 @0xd
0x1c5a…1c73 at000e = ╱fe00009805╱ // 0x1c68 @0xe
0x1c5a…1c73 at0013 = ╱ec╱,╱ // 0x1c6d @0x13
0x1c5a…1c73 at0014 = ╱4b╱K╱ // 0x1c6e @0x14
0x1c5a…1c73 at0015 = ╱33╱3╱ // 0x1c6f @0x15
0x1c5a…1c73 at0016 = ╱ef╱$╱ // 0x1c70 @0x16
0x1c5a…1c73 at0017 = ╱ee╱)╱ // 0x1c71 @0x17
0x1c5a…1c73 at0018 = EOL // 0x1c72 @0x18
0x1c5a…1c73 }
0x1c73…1c91 a9e8 3400 EXEC INDTAB(FTAB,MFANTAL,K2$)
0x1c73…1c91 LineComalBin {
0x1c73…1c91 ptr = 0xa9e8 // 0x1c73 @0x0
0x1c73…1c91 lno = 0x0d48 // 0x1c75 @0x2
0x1c73…1c91 at0004 = ╱9d╱ EXEC ╱ // 0x1c77 @0x4
0x1c73…1c91 at0005 = ╱49╱I╱ // 0x1c78 @0x5
0x1c73…1c91 at0006 = ╱4e╱N╱ // 0x1c79 @0x6
0x1c73…1c91 at0007 = ╱44╱D╱ // 0x1c7a @0x7
0x1c73…1c91 at0008 = ╱54╱T╱ // 0x1c7b @0x8
0x1c73…1c91 at0009 = ╱41╱A╱ // 0x1c7c @0x9
0x1c73…1c91 at000a = ╱42╱B╱ // 0x1c7d @0xa
0x1c73…1c91 at000b = ╱ed╱(╱ // 0x1c7e @0xb
0x1c73…1c91 at000c = ╱46╱F╱ // 0x1c7f @0xc
0x1c73…1c91 at000d = ╱54╱T╱ // 0x1c80 @0xd
0x1c73…1c91 at000e = ╱41╱A╱ // 0x1c81 @0xe
0x1c73…1c91 at000f = ╱42╱B╱ // 0x1c82 @0xf
0x1c73…1c91 at0010 = ╱ec╱,╱ // 0x1c83 @0x10
0x1c73…1c91 at0011 = ╱4d╱M╱ // 0x1c84 @0x11
0x1c73…1c91 at0012 = ╱46╱F╱ // 0x1c85 @0x12
0x1c73…1c91 at0013 = ╱41╱A╱ // 0x1c86 @0x13
0x1c73…1c91 at0014 = ╱4e╱N╱ // 0x1c87 @0x14
0x1c73…1c91 at0015 = ╱54╱T╱ // 0x1c88 @0x15
0x1c73…1c91 at0016 = ╱41╱A╱ // 0x1c89 @0x16
0x1c73…1c91 at0017 = ╱4c╱L╱ // 0x1c8a @0x17
0x1c73…1c91 at0018 = ╱ec╱,╱ // 0x1c8b @0x18
0x1c73…1c91 at0019 = ╱4b╱K╱ // 0x1c8c @0x19
0x1c73…1c91 at001a = ╱32╱2╱ // 0x1c8d @0x1a
0x1c73…1c91 at001b = ╱ef╱$╱ // 0x1c8e @0x1b
0x1c73…1c91 at001c = ╱ee╱)╱ // 0x1c8f @0x1c
0x1c73…1c91 at001d = EOL // 0x1c90 @0x1d
0x1c73…1c91 }
0x1c91…1cde aa35 3410 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "
0x1c91…1cde LineComalBin {
0x1c91…1cde ptr = 0xaa35 // 0x1c91 @0x0
0x1c91…1cde lno = 0x0d52 // 0x1c93 @0x2
0x1c91…1cde at0004 = ╱42╱B╱ // 0x1c95 @0x4
0x1c91…1cde at0005 = ╱4c╱L╱ // 0x1c96 @0x5
0x1c91…1cde at0006 = ╱41╱A╱ // 0x1c97 @0x6
0x1c91…1cde at0007 = ╱4e╱N╱ // 0x1c98 @0x7
0x1c91…1cde at0008 = ╱4b╱K╱ // 0x1c99 @0x8
0x1c91…1cde at0009 = ╱ef╱$╱ // 0x1c9a @0x9
0x1c91…1cde at000a = ╱dc╱=╱ // 0x1c9b @0xa
0x1c91…1cde at000b = ╱22╱"╱ // 0x1c9c @0xb
0x1c91…1cde at000c = ╱20╱…╱ // 0x1c9d @0xc
0x1c91…1cde at000d = ╱20╱…╱ // 0x1c9e @0xd
0x1c91…1cde at000e = ╱20╱…╱ // 0x1c9f @0xe
0x1c91…1cde at000f = ╱20╱…╱ // 0x1ca0 @0xf
0x1c91…1cde at0010 = ╱20╱…╱ // 0x1ca1 @0x10
0x1c91…1cde at0011 = ╱20╱…╱ // 0x1ca2 @0x11
0x1c91…1cde at0012 = ╱20╱…╱ // 0x1ca3 @0x12
0x1c91…1cde at0013 = ╱20╱…╱ // 0x1ca4 @0x13
0x1c91…1cde at0014 = ╱20╱…╱ // 0x1ca5 @0x14
0x1c91…1cde at0015 = ╱20╱…╱ // 0x1ca6 @0x15
0x1c91…1cde at0016 = ╱20╱…╱ // 0x1ca7 @0x16
0x1c91…1cde at0017 = ╱20╱…╱ // 0x1ca8 @0x17
0x1c91…1cde at0018 = ╱20╱…╱ // 0x1ca9 @0x18
0x1c91…1cde at0019 = ╱20╱…╱ // 0x1caa @0x19
0x1c91…1cde at001a = ╱20╱…╱ // 0x1cab @0x1a
0x1c91…1cde at001b = ╱20╱…╱ // 0x1cac @0x1b
0x1c91…1cde at001c = ╱20╱…╱ // 0x1cad @0x1c
0x1c91…1cde at001d = ╱20╱…╱ // 0x1cae @0x1d
0x1c91…1cde at001e = ╱20╱…╱ // 0x1caf @0x1e
0x1c91…1cde at001f = ╱20╱…╱ // 0x1cb0 @0x1f
0x1c91…1cde at0020 = ╱20╱…╱ // 0x1cb1 @0x20
0x1c91…1cde at0021 = ╱20╱…╱ // 0x1cb2 @0x21
0x1c91…1cde at0022 = ╱20╱…╱ // 0x1cb3 @0x22
0x1c91…1cde at0023 = ╱20╱…╱ // 0x1cb4 @0x23
0x1c91…1cde at0024 = ╱20╱…╱ // 0x1cb5 @0x24
0x1c91…1cde at0025 = ╱20╱…╱ // 0x1cb6 @0x25
0x1c91…1cde at0026 = ╱20╱…╱ // 0x1cb7 @0x26
0x1c91…1cde at0027 = ╱20╱…╱ // 0x1cb8 @0x27
0x1c91…1cde at0028 = ╱20╱…╱ // 0x1cb9 @0x28
0x1c91…1cde at0029 = ╱20╱…╱ // 0x1cba @0x29
0x1c91…1cde at002a = ╱20╱…╱ // 0x1cbb @0x2a
0x1c91…1cde at002b = ╱20╱…╱ // 0x1cbc @0x2b
0x1c91…1cde at002c = ╱20╱…╱ // 0x1cbd @0x2c
0x1c91…1cde at002d = ╱20╱…╱ // 0x1cbe @0x2d
0x1c91…1cde at002e = ╱20╱…╱ // 0x1cbf @0x2e
0x1c91…1cde at002f = ╱20╱…╱ // 0x1cc0 @0x2f
0x1c91…1cde at0030 = ╱20╱…╱ // 0x1cc1 @0x30
0x1c91…1cde at0031 = ╱20╱…╱ // 0x1cc2 @0x31
0x1c91…1cde at0032 = ╱22╱"╱ // 0x1cc3 @0x32
0x1c91…1cde at0033 = ╱eb╱;╱ // 0x1cc4 @0x33
0x1c91…1cde at0034 = ╱42╱B╱ // 0x1cc5 @0x34
0x1c91…1cde at0035 = ╱4c╱L╱ // 0x1cc6 @0x35
0x1c91…1cde at0036 = ╱41╱A╱ // 0x1cc7 @0x36
0x1c91…1cde at0037 = ╱4e╱N╱ // 0x1cc8 @0x37
0x1c91…1cde at0038 = ╱4b╱K╱ // 0x1cc9 @0x38
0x1c91…1cde at0039 = ╱ef╱$╱ // 0x1cca @0x39
0x1c91…1cde at003a = ╱dc╱=╱ // 0x1ccb @0x3a
0x1c91…1cde at003b = ╱42╱B╱ // 0x1ccc @0x3b
0x1c91…1cde at003c = ╱4c╱L╱ // 0x1ccd @0x3c
0x1c91…1cde at003d = ╱41╱A╱ // 0x1cce @0x3d
0x1c91…1cde at003e = ╱4e╱N╱ // 0x1ccf @0x3e
0x1c91…1cde at003f = ╱4b╱K╱ // 0x1cd0 @0x3f
0x1c91…1cde at0040 = ╱ef╱$╱ // 0x1cd1 @0x40
0x1c91…1cde at0041 = ╱f1╱+╱ // 0x1cd2 @0x41
0x1c91…1cde at0042 = ╱42╱B╱ // 0x1cd3 @0x42
0x1c91…1cde at0043 = ╱4c╱L╱ // 0x1cd4 @0x43
0x1c91…1cde at0044 = ╱41╱A╱ // 0x1cd5 @0x44
0x1c91…1cde at0045 = ╱4e╱N╱ // 0x1cd6 @0x45
0x1c91…1cde at0046 = ╱4b╱K╱ // 0x1cd7 @0x46
0x1c91…1cde at0047 = ╱ef╱$╱ // 0x1cd8 @0x47
0x1c91…1cde at0048 = ╱f1╱+╱ // 0x1cd9 @0x48
0x1c91…1cde at0049 = ╱22╱"╱ // 0x1cda @0x49
0x1c91…1cde at004a = ╱20╱…╱ // 0x1cdb @0x4a
0x1c91…1cde at004b = ╱22╱"╱ // 0x1cdc @0x4b
0x1c91…1cde at004c = EOL // 0x1cdd @0x4c
0x1c91…1cde }
0x1cde…1d1e aa75 3420 TAH$="0+";TAL4$="0+";FT=DTAL*10000;FT1=KRTAL*1000
0x1cde…1d1e LineComalBin {
0x1cde…1d1e ptr = 0xaa75 // 0x1cde @0x0
0x1cde…1d1e lno = 0x0d5c // 0x1ce0 @0x2
0x1cde…1d1e at0004 = ╱54╱T╱ // 0x1ce2 @0x4
0x1cde…1d1e at0005 = ╱41╱A╱ // 0x1ce3 @0x5
0x1cde…1d1e at0006 = ╱48╱H╱ // 0x1ce4 @0x6
0x1cde…1d1e at0007 = ╱ef╱$╱ // 0x1ce5 @0x7
0x1cde…1d1e at0008 = ╱dc╱=╱ // 0x1ce6 @0x8
0x1cde…1d1e at0009 = ╱22╱"╱ // 0x1ce7 @0x9
0x1cde…1d1e at000a = ╱30╱0╱ // 0x1ce8 @0xa
0x1cde…1d1e at000b = ╱2b╱+╱ // 0x1ce9 @0xb
0x1cde…1d1e at000c = ╱22╱"╱ // 0x1cea @0xc
0x1cde…1d1e at000d = ╱eb╱;╱ // 0x1ceb @0xd
0x1cde…1d1e at000e = ╱54╱T╱ // 0x1cec @0xe
0x1cde…1d1e at000f = ╱41╱A╱ // 0x1ced @0xf
0x1cde…1d1e at0010 = ╱4c╱L╱ // 0x1cee @0x10
0x1cde…1d1e at0011 = ╱34╱4╱ // 0x1cef @0x11
0x1cde…1d1e at0012 = ╱ef╱$╱ // 0x1cf0 @0x12
0x1cde…1d1e at0013 = ╱dc╱=╱ // 0x1cf1 @0x13
0x1cde…1d1e at0014 = ╱22╱"╱ // 0x1cf2 @0x14
0x1cde…1d1e at0015 = ╱30╱0╱ // 0x1cf3 @0x15
0x1cde…1d1e at0016 = ╱2b╱+╱ // 0x1cf4 @0x16
0x1cde…1d1e at0017 = ╱22╱"╱ // 0x1cf5 @0x17
0x1cde…1d1e at0018 = ╱eb╱;╱ // 0x1cf6 @0x18
0x1cde…1d1e at0019 = ╱46╱F╱ // 0x1cf7 @0x19
0x1cde…1d1e at001a = ╱54╱T╱ // 0x1cf8 @0x1a
0x1cde…1d1e at001b = ╱dc╱=╱ // 0x1cf9 @0x1b
0x1cde…1d1e at001c = ╱44╱D╱ // 0x1cfa @0x1c
0x1cde…1d1e at001d = ╱54╱T╱ // 0x1cfb @0x1d
0x1cde…1d1e at001e = ╱41╱A╱ // 0x1cfc @0x1e
0x1cde…1d1e at001f = ╱4c╱L╱ // 0x1cfd @0x1f
0x1cde…1d1e at0020 = ╱e4╱*╱ // 0x1cfe @0x20
0x1cde…1d1e at0021 = ╱31╱1╱ // 0x1cff @0x21
0x1cde…1d1e at0022 = ╱30╱0╱ // 0x1d00 @0x22
0x1cde…1d1e at0023 = ╱30╱0╱ // 0x1d01 @0x23
0x1cde…1d1e at0024 = ╱30╱0╱ // 0x1d02 @0x24
0x1cde…1d1e at0025 = ╱30╱0╱ // 0x1d03 @0x25
0x1cde…1d1e at0026 = ╱fe00409c0e╱ // 0x1d04 @0x26
0x1cde…1d1e at002b = ╱eb╱;╱ // 0x1d09 @0x2b
0x1cde…1d1e at002c = ╱46╱F╱ // 0x1d0a @0x2c
0x1cde…1d1e at002d = ╱54╱T╱ // 0x1d0b @0x2d
0x1cde…1d1e at002e = ╱31╱1╱ // 0x1d0c @0x2e
0x1cde…1d1e at002f = ╱dc╱=╱ // 0x1d0d @0x2f
0x1cde…1d1e at0030 = ╱4b╱K╱ // 0x1d0e @0x30
0x1cde…1d1e at0031 = ╱52╱R╱ // 0x1d0f @0x31
0x1cde…1d1e at0032 = ╱54╱T╱ // 0x1d10 @0x32
0x1cde…1d1e at0033 = ╱41╱A╱ // 0x1d11 @0x33
0x1cde…1d1e at0034 = ╱4c╱L╱ // 0x1d12 @0x34
0x1cde…1d1e at0035 = ╱e4╱*╱ // 0x1d13 @0x35
0x1cde…1d1e at0036 = ╱31╱1╱ // 0x1d14 @0x36
0x1cde…1d1e at0037 = ╱30╱0╱ // 0x1d15 @0x37
0x1cde…1d1e at0038 = ╱30╱0╱ // 0x1d16 @0x38
0x1cde…1d1e at0039 = ╱30╱0╱ // 0x1d17 @0x39
0x1cde…1d1e at003a = ╱fe0000fa0a╱ // 0x1d18 @0x3a
0x1cde…1d1e at003f = EOL // 0x1d1d @0x3f
0x1cde…1d1e }
0x1d1e…1d64 aabb 3430 STREG$="-----------------------------------";STREG$=STREG$+STREG$
0x1d1e…1d64 LineComalBin {
0x1d1e…1d64 ptr = 0xaabb // 0x1d1e @0x0
0x1d1e…1d64 lno = 0x0d66 // 0x1d20 @0x2
0x1d1e…1d64 at0004 = ╱53╱S╱ // 0x1d22 @0x4
0x1d1e…1d64 at0005 = ╱54╱T╱ // 0x1d23 @0x5
0x1d1e…1d64 at0006 = ╱52╱R╱ // 0x1d24 @0x6
0x1d1e…1d64 at0007 = ╱45╱E╱ // 0x1d25 @0x7
0x1d1e…1d64 at0008 = ╱47╱G╱ // 0x1d26 @0x8
0x1d1e…1d64 at0009 = ╱ef╱$╱ // 0x1d27 @0x9
0x1d1e…1d64 at000a = ╱dc╱=╱ // 0x1d28 @0xa
0x1d1e…1d64 at000b = ╱22╱"╱ // 0x1d29 @0xb
0x1d1e…1d64 at000c = ╱2d╱-╱ // 0x1d2a @0xc
0x1d1e…1d64 at000d = ╱2d╱-╱ // 0x1d2b @0xd
0x1d1e…1d64 at000e = ╱2d╱-╱ // 0x1d2c @0xe
0x1d1e…1d64 at000f = ╱2d╱-╱ // 0x1d2d @0xf
0x1d1e…1d64 at0010 = ╱2d╱-╱ // 0x1d2e @0x10
0x1d1e…1d64 at0011 = ╱2d╱-╱ // 0x1d2f @0x11
0x1d1e…1d64 at0012 = ╱2d╱-╱ // 0x1d30 @0x12
0x1d1e…1d64 at0013 = ╱2d╱-╱ // 0x1d31 @0x13
0x1d1e…1d64 at0014 = ╱2d╱-╱ // 0x1d32 @0x14
0x1d1e…1d64 at0015 = ╱2d╱-╱ // 0x1d33 @0x15
0x1d1e…1d64 at0016 = ╱2d╱-╱ // 0x1d34 @0x16
0x1d1e…1d64 at0017 = ╱2d╱-╱ // 0x1d35 @0x17
0x1d1e…1d64 at0018 = ╱2d╱-╱ // 0x1d36 @0x18
0x1d1e…1d64 at0019 = ╱2d╱-╱ // 0x1d37 @0x19
0x1d1e…1d64 at001a = ╱2d╱-╱ // 0x1d38 @0x1a
0x1d1e…1d64 at001b = ╱2d╱-╱ // 0x1d39 @0x1b
0x1d1e…1d64 at001c = ╱2d╱-╱ // 0x1d3a @0x1c
0x1d1e…1d64 at001d = ╱2d╱-╱ // 0x1d3b @0x1d
0x1d1e…1d64 at001e = ╱2d╱-╱ // 0x1d3c @0x1e
0x1d1e…1d64 at001f = ╱2d╱-╱ // 0x1d3d @0x1f
0x1d1e…1d64 at0020 = ╱2d╱-╱ // 0x1d3e @0x20
0x1d1e…1d64 at0021 = ╱2d╱-╱ // 0x1d3f @0x21
0x1d1e…1d64 at0022 = ╱2d╱-╱ // 0x1d40 @0x22
0x1d1e…1d64 at0023 = ╱2d╱-╱ // 0x1d41 @0x23
0x1d1e…1d64 at0024 = ╱2d╱-╱ // 0x1d42 @0x24
0x1d1e…1d64 at0025 = ╱2d╱-╱ // 0x1d43 @0x25
0x1d1e…1d64 at0026 = ╱2d╱-╱ // 0x1d44 @0x26
0x1d1e…1d64 at0027 = ╱2d╱-╱ // 0x1d45 @0x27
0x1d1e…1d64 at0028 = ╱2d╱-╱ // 0x1d46 @0x28
0x1d1e…1d64 at0029 = ╱2d╱-╱ // 0x1d47 @0x29
0x1d1e…1d64 at002a = ╱2d╱-╱ // 0x1d48 @0x2a
0x1d1e…1d64 at002b = ╱2d╱-╱ // 0x1d49 @0x2b
0x1d1e…1d64 at002c = ╱2d╱-╱ // 0x1d4a @0x2c
0x1d1e…1d64 at002d = ╱2d╱-╱ // 0x1d4b @0x2d
0x1d1e…1d64 at002e = ╱2d╱-╱ // 0x1d4c @0x2e
0x1d1e…1d64 at002f = ╱22╱"╱ // 0x1d4d @0x2f
0x1d1e…1d64 at0030 = ╱eb╱;╱ // 0x1d4e @0x30
0x1d1e…1d64 at0031 = ╱53╱S╱ // 0x1d4f @0x31
0x1d1e…1d64 at0032 = ╱54╱T╱ // 0x1d50 @0x32
0x1d1e…1d64 at0033 = ╱52╱R╱ // 0x1d51 @0x33
0x1d1e…1d64 at0034 = ╱45╱E╱ // 0x1d52 @0x34
0x1d1e…1d64 at0035 = ╱47╱G╱ // 0x1d53 @0x35
0x1d1e…1d64 at0036 = ╱ef╱$╱ // 0x1d54 @0x36
0x1d1e…1d64 at0037 = ╱dc╱=╱ // 0x1d55 @0x37
0x1d1e…1d64 at0038 = ╱53╱S╱ // 0x1d56 @0x38
0x1d1e…1d64 at0039 = ╱54╱T╱ // 0x1d57 @0x39
0x1d1e…1d64 at003a = ╱52╱R╱ // 0x1d58 @0x3a
0x1d1e…1d64 at003b = ╱45╱E╱ // 0x1d59 @0x3b
0x1d1e…1d64 at003c = ╱47╱G╱ // 0x1d5a @0x3c
0x1d1e…1d64 at003d = ╱ef╱$╱ // 0x1d5b @0x3d
0x1d1e…1d64 at003e = ╱f1╱+╱ // 0x1d5c @0x3e
0x1d1e…1d64 at003f = ╱53╱S╱ // 0x1d5d @0x3f
0x1d1e…1d64 at0040 = ╱54╱T╱ // 0x1d5e @0x40
0x1d1e…1d64 at0041 = ╱52╱R╱ // 0x1d5f @0x41
0x1d1e…1d64 at0042 = ╱45╱E╱ // 0x1d60 @0x42
0x1d1e…1d64 at0043 = ╱47╱G╱ // 0x1d61 @0x43
0x1d1e…1d64 at0044 = ╱ef╱$╱ // 0x1d62 @0x44
0x1d1e…1d64 at0045 = EOL // 0x1d63 @0x45
0x1d1e…1d64 }
0x1d64…1d6a aac1 3440 REPEAT
0x1d64…1d6a LineComalBin {
0x1d64…1d6a ptr = 0xaac1 // 0x1d64 @0x0
0x1d64…1d6a lno = 0x0d70 // 0x1d66 @0x2
0x1d64…1d6a at0004 = ╱97╱ REPEAT ╱ // 0x1d68 @0x4
0x1d64…1d6a at0005 = EOL // 0x1d69 @0x5
0x1d64…1d6a }
0x1d6a…1d70 aac7 3450 CLEAR
0x1d6a…1d70 LineComalBin {
0x1d6a…1d70 ptr = 0xaac7 // 0x1d6a @0x0
0x1d6a…1d70 lno = 0x0d7a // 0x1d6c @0x2
0x1d6a…1d70 at0004 = ╱a0╱ CLEAR ╱ // 0x1d6e @0x4
0x1d6a…1d70 at0005 = EOL // 0x1d6f @0x5
0x1d6a…1d70 }
0x1d70…1d7f aad6 3460 CURSOR 21,E
0x1d70…1d7f LineComalBin {
0x1d70…1d7f ptr = 0xaad6 // 0x1d70 @0x0
0x1d70…1d7f lno = 0x0d84 // 0x1d72 @0x2
0x1d70…1d7f at0004 = ╱a1╱ CURSOR ╱ // 0x1d74 @0x4
0x1d70…1d7f at0005 = ╱32╱2╱ // 0x1d75 @0x5
0x1d70…1d7f at0006 = ╱31╱1╱ // 0x1d76 @0x6
0x1d70…1d7f at0007 = ╱fe0000a805╱ // 0x1d77 @0x7
0x1d70…1d7f at000c = ╱ec╱,╱ // 0x1d7c @0xc
0x1d70…1d7f at000d = ╱45╱E╱ // 0x1d7d @0xd
0x1d70…1d7f at000e = EOL // 0x1d7e @0xe
0x1d70…1d7f }
0x1d7f…1d9b aaf2 3470 PRINT "Kontovedligeholdelse"
0x1d7f…1d9b LineComalBin {
0x1d7f…1d9b ptr = 0xaaf2 // 0x1d7f @0x0
0x1d7f…1d9b lno = 0x0d8e // 0x1d81 @0x2
0x1d7f…1d9b at0004 = ╱92╱ PRINT ╱ // 0x1d83 @0x4
0x1d7f…1d9b at0005 = ╱22╱"╱ // 0x1d84 @0x5
0x1d7f…1d9b at0006 = ╱4b╱K╱ // 0x1d85 @0x6
0x1d7f…1d9b at0007 = ╱6f╱o╱ // 0x1d86 @0x7
0x1d7f…1d9b at0008 = ╱6e╱n╱ // 0x1d87 @0x8
0x1d7f…1d9b at0009 = ╱74╱t╱ // 0x1d88 @0x9
0x1d7f…1d9b at000a = ╱6f╱o╱ // 0x1d89 @0xa
0x1d7f…1d9b at000b = ╱76╱v╱ // 0x1d8a @0xb
0x1d7f…1d9b at000c = ╱65╱e╱ // 0x1d8b @0xc
0x1d7f…1d9b at000d = ╱64╱d╱ // 0x1d8c @0xd
0x1d7f…1d9b at000e = ╱6c╱l╱ // 0x1d8d @0xe
0x1d7f…1d9b at000f = ╱69╱i╱ // 0x1d8e @0xf
0x1d7f…1d9b at0010 = ╱67╱g╱ // 0x1d8f @0x10
0x1d7f…1d9b at0011 = ╱65╱e╱ // 0x1d90 @0x11
0x1d7f…1d9b at0012 = ╱68╱h╱ // 0x1d91 @0x12
0x1d7f…1d9b at0013 = ╱6f╱o╱ // 0x1d92 @0x13
0x1d7f…1d9b at0014 = ╱6c╱l╱ // 0x1d93 @0x14
0x1d7f…1d9b at0015 = ╱64╱d╱ // 0x1d94 @0x15
0x1d7f…1d9b at0016 = ╱65╱e╱ // 0x1d95 @0x16
0x1d7f…1d9b at0017 = ╱6c╱l╱ // 0x1d96 @0x17
0x1d7f…1d9b at0018 = ╱73╱s╱ // 0x1d97 @0x18
0x1d7f…1d9b at0019 = ╱65╱e╱ // 0x1d98 @0x19
0x1d7f…1d9b at001a = ╱22╱"╱ // 0x1d99 @0x1a
0x1d7f…1d9b at001b = EOL // 0x1d9a @0x1b
0x1d7f…1d9b }
0x1d9b…1da4 aafb 3480 CURSOR G,V
0x1d9b…1da4 LineComalBin {
0x1d9b…1da4 ptr = 0xaafb // 0x1d9b @0x0
0x1d9b…1da4 lno = 0x0d98 // 0x1d9d @0x2
0x1d9b…1da4 at0004 = ╱a1╱ CURSOR ╱ // 0x1d9f @0x4
0x1d9b…1da4 at0005 = ╱47╱G╱ // 0x1da0 @0x5
0x1d9b…1da4 at0006 = ╱ec╱,╱ // 0x1da1 @0x6
0x1d9b…1da4 at0007 = ╱56╱V╱ // 0x1da2 @0x7
0x1d9b…1da4 at0008 = EOL // 0x1da3 @0x8
0x1d9b…1da4 }
0x1da4…1db4 ab0b 3490 PRINT "0:Færdig"
0x1da4…1db4 LineComalBin {
0x1da4…1db4 ptr = 0xab0b // 0x1da4 @0x0
0x1da4…1db4 lno = 0x0da2 // 0x1da6 @0x2
0x1da4…1db4 at0004 = ╱92╱ PRINT ╱ // 0x1da8 @0x4
0x1da4…1db4 at0005 = ╱22╱"╱ // 0x1da9 @0x5
0x1da4…1db4 at0006 = ╱30╱0╱ // 0x1daa @0x6
0x1da4…1db4 at0007 = ╱3a╱:╱ // 0x1dab @0x7
0x1da4…1db4 at0008 = ╱46╱F╱ // 0x1dac @0x8
0x1da4…1db4 at0009 = ╱7b╱æ╱ // 0x1dad @0x9
0x1da4…1db4 at000a = ╱72╱r╱ // 0x1dae @0xa
0x1da4…1db4 at000b = ╱64╱d╱ // 0x1daf @0xb
0x1da4…1db4 at000c = ╱69╱i╱ // 0x1db0 @0xc
0x1da4…1db4 at000d = ╱67╱g╱ // 0x1db1 @0xd
0x1da4…1db4 at000e = ╱22╱"╱ // 0x1db2 @0xe
0x1da4…1db4 at000f = EOL // 0x1db3 @0xf
0x1da4…1db4 }
0x1db4…1dc2 ab19 3500 CURSOR G,5
0x1db4…1dc2 LineComalBin {
0x1db4…1dc2 ptr = 0xab19 // 0x1db4 @0x0
0x1db4…1dc2 lno = 0x0dac // 0x1db6 @0x2
0x1db4…1dc2 at0004 = ╱a1╱ CURSOR ╱ // 0x1db8 @0x4
0x1db4…1dc2 at0005 = ╱47╱G╱ // 0x1db9 @0x5
0x1db4…1dc2 at0006 = ╱ec╱,╱ // 0x1dba @0x6
0x1db4…1dc2 at0007 = ╱35╱5╱ // 0x1dbb @0x7
0x1db4…1dc2 at0008 = ╱fe0000a003╱ // 0x1dbc @0x8
0x1db4…1dc2 at000d = EOL // 0x1dc1 @0xd
0x1db4…1dc2 }
0x1dc2…1dd6 ab2d 3510 PRINT "1:Oprettelse"
0x1dc2…1dd6 LineComalBin {
0x1dc2…1dd6 ptr = 0xab2d // 0x1dc2 @0x0
0x1dc2…1dd6 lno = 0x0db6 // 0x1dc4 @0x2
0x1dc2…1dd6 at0004 = ╱92╱ PRINT ╱ // 0x1dc6 @0x4
0x1dc2…1dd6 at0005 = ╱22╱"╱ // 0x1dc7 @0x5
0x1dc2…1dd6 at0006 = ╱31╱1╱ // 0x1dc8 @0x6
0x1dc2…1dd6 at0007 = ╱3a╱:╱ // 0x1dc9 @0x7
0x1dc2…1dd6 at0008 = ╱4f╱O╱ // 0x1dca @0x8
0x1dc2…1dd6 at0009 = ╱70╱p╱ // 0x1dcb @0x9
0x1dc2…1dd6 at000a = ╱72╱r╱ // 0x1dcc @0xa
0x1dc2…1dd6 at000b = ╱65╱e╱ // 0x1dcd @0xb
0x1dc2…1dd6 at000c = ╱74╱t╱ // 0x1dce @0xc
0x1dc2…1dd6 at000d = ╱74╱t╱ // 0x1dcf @0xd
0x1dc2…1dd6 at000e = ╱65╱e╱ // 0x1dd0 @0xe
0x1dc2…1dd6 at000f = ╱6c╱l╱ // 0x1dd1 @0xf
0x1dc2…1dd6 at0010 = ╱73╱s╱ // 0x1dd2 @0x10
0x1dc2…1dd6 at0011 = ╱65╱e╱ // 0x1dd3 @0x11
0x1dc2…1dd6 at0012 = ╱22╱"╱ // 0x1dd4 @0x12
0x1dc2…1dd6 at0013 = EOL // 0x1dd5 @0x13
0x1dc2…1dd6 }
0x1dd6…1de4 ab3b 3520 CURSOR G,7
0x1dd6…1de4 LineComalBin {
0x1dd6…1de4 ptr = 0xab3b // 0x1dd6 @0x0
0x1dd6…1de4 lno = 0x0dc0 // 0x1dd8 @0x2
0x1dd6…1de4 at0004 = ╱a1╱ CURSOR ╱ // 0x1dda @0x4
0x1dd6…1de4 at0005 = ╱47╱G╱ // 0x1ddb @0x5
0x1dd6…1de4 at0006 = ╱ec╱,╱ // 0x1ddc @0x6
0x1dd6…1de4 at0007 = ╱37╱7╱ // 0x1ddd @0x7
0x1dd6…1de4 at0008 = ╱fe0000e003╱ // 0x1dde @0x8
0x1dd6…1de4 at000d = EOL // 0x1de3 @0xd
0x1dd6…1de4 }
0x1de4…1df5 ab4c 3530 PRINT "2:Ændring"
0x1de4…1df5 LineComalBin {
0x1de4…1df5 ptr = 0xab4c // 0x1de4 @0x0
0x1de4…1df5 lno = 0x0dca // 0x1de6 @0x2
0x1de4…1df5 at0004 = ╱92╱ PRINT ╱ // 0x1de8 @0x4
0x1de4…1df5 at0005 = ╱22╱"╱ // 0x1de9 @0x5
0x1de4…1df5 at0006 = ╱32╱2╱ // 0x1dea @0x6
0x1de4…1df5 at0007 = ╱3a╱:╱ // 0x1deb @0x7
0x1de4…1df5 at0008 = ╱5b╱Æ╱ // 0x1dec @0x8
0x1de4…1df5 at0009 = ╱6e╱n╱ // 0x1ded @0x9
0x1de4…1df5 at000a = ╱64╱d╱ // 0x1dee @0xa
0x1de4…1df5 at000b = ╱72╱r╱ // 0x1def @0xb
0x1de4…1df5 at000c = ╱69╱i╱ // 0x1df0 @0xc
0x1de4…1df5 at000d = ╱6e╱n╱ // 0x1df1 @0xd
0x1de4…1df5 at000e = ╱67╱g╱ // 0x1df2 @0xe
0x1de4…1df5 at000f = ╱22╱"╱ // 0x1df3 @0xf
0x1de4…1df5 at0010 = EOL // 0x1df4 @0x10
0x1de4…1df5 }
0x1df5…1dfe ab55 3540 CURSOR G,W
0x1df5…1dfe LineComalBin {
0x1df5…1dfe ptr = 0xab55 // 0x1df5 @0x0
0x1df5…1dfe lno = 0x0dd4 // 0x1df7 @0x2
0x1df5…1dfe at0004 = ╱a1╱ CURSOR ╱ // 0x1df9 @0x4
0x1df5…1dfe at0005 = ╱47╱G╱ // 0x1dfa @0x5
0x1df5…1dfe at0006 = ╱ec╱,╱ // 0x1dfb @0x6
0x1df5…1dfe at0007 = ╱57╱W╱ // 0x1dfc @0x7
0x1df5…1dfe at0008 = EOL // 0x1dfd @0x8
0x1df5…1dfe }
0x1dfe…1e10 ab67 3550 PRINT "3:Sletning"
0x1dfe…1e10 LineComalBin {
0x1dfe…1e10 ptr = 0xab67 // 0x1dfe @0x0
0x1dfe…1e10 lno = 0x0dde // 0x1e00 @0x2
0x1dfe…1e10 at0004 = ╱92╱ PRINT ╱ // 0x1e02 @0x4
0x1dfe…1e10 at0005 = ╱22╱"╱ // 0x1e03 @0x5
0x1dfe…1e10 at0006 = ╱33╱3╱ // 0x1e04 @0x6
0x1dfe…1e10 at0007 = ╱3a╱:╱ // 0x1e05 @0x7
0x1dfe…1e10 at0008 = ╱53╱S╱ // 0x1e06 @0x8
0x1dfe…1e10 at0009 = ╱6c╱l╱ // 0x1e07 @0x9
0x1dfe…1e10 at000a = ╱65╱e╱ // 0x1e08 @0xa
0x1dfe…1e10 at000b = ╱74╱t╱ // 0x1e09 @0xb
0x1dfe…1e10 at000c = ╱6e╱n╱ // 0x1e0a @0xc
0x1dfe…1e10 at000d = ╱69╱i╱ // 0x1e0b @0xd
0x1dfe…1e10 at000e = ╱6e╱n╱ // 0x1e0c @0xe
0x1dfe…1e10 at000f = ╱67╱g╱ // 0x1e0d @0xf
0x1dfe…1e10 at0010 = ╱22╱"╱ // 0x1e0e @0x10
0x1dfe…1e10 at0011 = EOL // 0x1e0f @0x11
0x1dfe…1e10 }
0x1e10…1e1f ab76 3560 CURSOR G,11
0x1e10…1e1f LineComalBin {
0x1e10…1e1f ptr = 0xab76 // 0x1e10 @0x0
0x1e10…1e1f lno = 0x0de8 // 0x1e12 @0x2
0x1e10…1e1f at0004 = ╱a1╱ CURSOR ╱ // 0x1e14 @0x4
0x1e10…1e1f at0005 = ╱47╱G╱ // 0x1e15 @0x5
0x1e10…1e1f at0006 = ╱ec╱,╱ // 0x1e16 @0x6
0x1e10…1e1f at0007 = ╱31╱1╱ // 0x1e17 @0x7
0x1e10…1e1f at0008 = ╱31╱1╱ // 0x1e18 @0x8
0x1e10…1e1f at0009 = ╱fe0000b004╱ // 0x1e19 @0x9
0x1e10…1e1f at000e = EOL // 0x1e1e @0xe
0x1e10…1e1f }
0x1e1f…1e31 ab88 3570 PRINT "4:Udskrift"
0x1e1f…1e31 LineComalBin {
0x1e1f…1e31 ptr = 0xab88 // 0x1e1f @0x0
0x1e1f…1e31 lno = 0x0df2 // 0x1e21 @0x2
0x1e1f…1e31 at0004 = ╱92╱ PRINT ╱ // 0x1e23 @0x4
0x1e1f…1e31 at0005 = ╱22╱"╱ // 0x1e24 @0x5
0x1e1f…1e31 at0006 = ╱34╱4╱ // 0x1e25 @0x6
0x1e1f…1e31 at0007 = ╱3a╱:╱ // 0x1e26 @0x7
0x1e1f…1e31 at0008 = ╱55╱U╱ // 0x1e27 @0x8
0x1e1f…1e31 at0009 = ╱64╱d╱ // 0x1e28 @0x9
0x1e1f…1e31 at000a = ╱73╱s╱ // 0x1e29 @0xa
0x1e1f…1e31 at000b = ╱6b╱k╱ // 0x1e2a @0xb
0x1e1f…1e31 at000c = ╱72╱r╱ // 0x1e2b @0xc
0x1e1f…1e31 at000d = ╱69╱i╱ // 0x1e2c @0xd
0x1e1f…1e31 at000e = ╱66╱f╱ // 0x1e2d @0xe
0x1e1f…1e31 at000f = ╱74╱t╱ // 0x1e2e @0xf
0x1e1f…1e31 at0010 = ╱22╱"╱ // 0x1e2f @0x10
0x1e1f…1e31 at0011 = EOL // 0x1e30 @0x11
0x1e1f…1e31 }
0x1e31…1e40 ab97 3580 CURSOR G,13
0x1e31…1e40 LineComalBin {
0x1e31…1e40 ptr = 0xab97 // 0x1e31 @0x0
0x1e31…1e40 lno = 0x0dfc // 0x1e33 @0x2
0x1e31…1e40 at0004 = ╱a1╱ CURSOR ╱ // 0x1e35 @0x4
0x1e31…1e40 at0005 = ╱47╱G╱ // 0x1e36 @0x5
0x1e31…1e40 at0006 = ╱ec╱,╱ // 0x1e37 @0x6
0x1e31…1e40 at0007 = ╱31╱1╱ // 0x1e38 @0x7
0x1e31…1e40 at0008 = ╱33╱3╱ // 0x1e39 @0x8
0x1e31…1e40 at0009 = ╱fe0000d004╱ // 0x1e3a @0x9
0x1e31…1e40 at000e = EOL // 0x1e3f @0xe
0x1e31…1e40 }
0x1e40…1e5a abb1 3590 PRINT "5:Finanskontoliste"
0x1e40…1e5a LineComalBin {
0x1e40…1e5a ptr = 0xabb1 // 0x1e40 @0x0
0x1e40…1e5a lno = 0x0e06 // 0x1e42 @0x2
0x1e40…1e5a at0004 = ╱92╱ PRINT ╱ // 0x1e44 @0x4
0x1e40…1e5a at0005 = ╱22╱"╱ // 0x1e45 @0x5
0x1e40…1e5a at0006 = ╱35╱5╱ // 0x1e46 @0x6
0x1e40…1e5a at0007 = ╱3a╱:╱ // 0x1e47 @0x7
0x1e40…1e5a at0008 = ╱46╱F╱ // 0x1e48 @0x8
0x1e40…1e5a at0009 = ╱69╱i╱ // 0x1e49 @0x9
0x1e40…1e5a at000a = ╱6e╱n╱ // 0x1e4a @0xa
0x1e40…1e5a at000b = ╱61╱a╱ // 0x1e4b @0xb
0x1e40…1e5a at000c = ╱6e╱n╱ // 0x1e4c @0xc
0x1e40…1e5a at000d = ╱73╱s╱ // 0x1e4d @0xd
0x1e40…1e5a at000e = ╱6b╱k╱ // 0x1e4e @0xe
0x1e40…1e5a at000f = ╱6f╱o╱ // 0x1e4f @0xf
0x1e40…1e5a at0010 = ╱6e╱n╱ // 0x1e50 @0x10
0x1e40…1e5a at0011 = ╱74╱t╱ // 0x1e51 @0x11
0x1e40…1e5a at0012 = ╱6f╱o╱ // 0x1e52 @0x12
0x1e40…1e5a at0013 = ╱6c╱l╱ // 0x1e53 @0x13
0x1e40…1e5a at0014 = ╱69╱i╱ // 0x1e54 @0x14
0x1e40…1e5a at0015 = ╱73╱s╱ // 0x1e55 @0x15
0x1e40…1e5a at0016 = ╱74╱t╱ // 0x1e56 @0x16
0x1e40…1e5a at0017 = ╱65╱e╱ // 0x1e57 @0x17
0x1e40…1e5a at0018 = ╱22╱"╱ // 0x1e58 @0x18
0x1e40…1e5a at0019 = EOL // 0x1e59 @0x19
0x1e40…1e5a }
0x1e5a…1e60 abb7 3600 REPEAT
0x1e5a…1e60 LineComalBin {
0x1e5a…1e60 ptr = 0xabb7 // 0x1e5a @0x0
0x1e5a…1e60 lno = 0x0e10 // 0x1e5c @0x2
0x1e5a…1e60 at0004 = ╱97╱ REPEAT ╱ // 0x1e5e @0x4
0x1e5a…1e60 at0005 = EOL // 0x1e5f @0x5
0x1e5a…1e60 }
0x1e60…1e74 abcb 3610 CURSOR 4,15
0x1e60…1e74 LineComalBin {
0x1e60…1e74 ptr = 0xabcb // 0x1e60 @0x0
0x1e60…1e74 lno = 0x0e1a // 0x1e62 @0x2
0x1e60…1e74 at0004 = ╱a1╱ CURSOR ╱ // 0x1e64 @0x4
0x1e60…1e74 at0005 = ╱34╱4╱ // 0x1e65 @0x5
0x1e60…1e74 at0006 = ╱fe00008003╱ // 0x1e66 @0x6
0x1e60…1e74 at000b = ╱ec╱,╱ // 0x1e6b @0xb
0x1e60…1e74 at000c = ╱31╱1╱ // 0x1e6c @0xc
0x1e60…1e74 at000d = ╱35╱5╱ // 0x1e6d @0xd
0x1e60…1e74 at000e = ╱fe0000f004╱ // 0x1e6e @0xe
0x1e60…1e74 at0013 = EOL // 0x1e73 @0x13
0x1e60…1e74 }
0x1e74…1e8f abe6 3620 PRINT "Vælg type (0-5)"
0x1e74…1e8f LineComalBin {
0x1e74…1e8f ptr = 0xabe6 // 0x1e74 @0x0
0x1e74…1e8f lno = 0x0e24 // 0x1e76 @0x2
0x1e74…1e8f at0004 = ╱92╱ PRINT ╱ // 0x1e78 @0x4
0x1e74…1e8f at0005 = ╱22╱"╱ // 0x1e79 @0x5
0x1e74…1e8f at0006 = ╱56╱V╱ // 0x1e7a @0x6
0x1e74…1e8f at0007 = ╱7b╱æ╱ // 0x1e7b @0x7
0x1e74…1e8f at0008 = ╱6c╱l╱ // 0x1e7c @0x8
0x1e74…1e8f at0009 = ╱67╱g╱ // 0x1e7d @0x9
0x1e74…1e8f at000a = ╱20╱…╱ // 0x1e7e @0xa
0x1e74…1e8f at000b = ╱74╱t╱ // 0x1e7f @0xb
0x1e74…1e8f at000c = ╱79╱y╱ // 0x1e80 @0xc
0x1e74…1e8f at000d = ╱70╱p╱ // 0x1e81 @0xd
0x1e74…1e8f at000e = ╱65╱e╱ // 0x1e82 @0xe
0x1e74…1e8f at000f = ╱20╱…╱ // 0x1e83 @0xf
0x1e74…1e8f at0010 = ╱20╱…╱ // 0x1e84 @0x10
0x1e74…1e8f at0011 = ╱20╱…╱ // 0x1e85 @0x11
0x1e74…1e8f at0012 = ╱20╱…╱ // 0x1e86 @0x12
0x1e74…1e8f at0013 = ╱20╱…╱ // 0x1e87 @0x13
0x1e74…1e8f at0014 = ╱28╱(╱ // 0x1e88 @0x14
0x1e74…1e8f at0015 = ╱30╱0╱ // 0x1e89 @0x15
0x1e74…1e8f at0016 = ╱2d╱-╱ // 0x1e8a @0x16
0x1e74…1e8f at0017 = ╱35╱5╱ // 0x1e8b @0x17
0x1e74…1e8f at0018 = ╱29╱)╱ // 0x1e8c @0x18
0x1e74…1e8f at0019 = ╱22╱"╱ // 0x1e8d @0x19
0x1e74…1e8f at001a = EOL // 0x1e8e @0x1a
0x1e74…1e8f }
0x1e8f…1ea4 abfb 3630 CURSOR 14,15
0x1e8f…1ea4 LineComalBin {
0x1e8f…1ea4 ptr = 0xabfb // 0x1e8f @0x0
0x1e8f…1ea4 lno = 0x0e2e // 0x1e91 @0x2
0x1e8f…1ea4 at0004 = ╱a1╱ CURSOR ╱ // 0x1e93 @0x4
0x1e8f…1ea4 at0005 = ╱31╱1╱ // 0x1e94 @0x5
0x1e8f…1ea4 at0006 = ╱34╱4╱ // 0x1e95 @0x6
0x1e8f…1ea4 at0007 = ╱fe0000e004╱ // 0x1e96 @0x7
0x1e8f…1ea4 at000c = ╱ec╱,╱ // 0x1e9b @0xc
0x1e8f…1ea4 at000d = ╱31╱1╱ // 0x1e9c @0xd
0x1e8f…1ea4 at000e = ╱35╱5╱ // 0x1e9d @0xe
0x1e8f…1ea4 at000f = ╱fe0000f004╱ // 0x1e9e @0xf
0x1e8f…1ea4 at0014 = EOL // 0x1ea3 @0x14
0x1e8f…1ea4 }
0x1ea4…1eac ac03 3640 INPUT A$
0x1ea4…1eac LineComalBin {
0x1ea4…1eac ptr = 0xac03 // 0x1ea4 @0x0
0x1ea4…1eac lno = 0x0e38 // 0x1ea6 @0x2
0x1ea4…1eac at0004 = ╱91╱ INPUT ╱ // 0x1ea8 @0x4
0x1ea4…1eac at0005 = ╱41╱A╱ // 0x1ea9 @0x5
0x1ea4…1eac at0006 = ╱ef╱$╱ // 0x1eaa @0x6
0x1ea4…1eac at0007 = EOL // 0x1eab @0x7
0x1ea4…1eac }
0x1eac…1ebc ac13 3650 EXEC NRTEST(A$)
0x1eac…1ebc LineComalBin {
0x1eac…1ebc ptr = 0xac13 // 0x1eac @0x0
0x1eac…1ebc lno = 0x0e42 // 0x1eae @0x2
0x1eac…1ebc at0004 = ╱9d╱ EXEC ╱ // 0x1eb0 @0x4
0x1eac…1ebc at0005 = ╱4e╱N╱ // 0x1eb1 @0x5
0x1eac…1ebc at0006 = ╱52╱R╱ // 0x1eb2 @0x6
0x1eac…1ebc at0007 = ╱54╱T╱ // 0x1eb3 @0x7
0x1eac…1ebc at0008 = ╱45╱E╱ // 0x1eb4 @0x8
0x1eac…1ebc at0009 = ╱53╱S╱ // 0x1eb5 @0x9
0x1eac…1ebc at000a = ╱54╱T╱ // 0x1eb6 @0xa
0x1eac…1ebc at000b = ╱ed╱(╱ // 0x1eb7 @0xb
0x1eac…1ebc at000c = ╱41╱A╱ // 0x1eb8 @0xc
0x1eac…1ebc at000d = ╱ef╱$╱ // 0x1eb9 @0xd
0x1eac…1ebc at000e = ╱ee╱)╱ // 0x1eba @0xe
0x1eac…1ebc at000f = EOL // 0x1ebb @0xf
0x1eac…1ebc }
0x1ebc…1ecf ac26 3660 UNTIL P>-E AND P<6
0x1ebc…1ecf LineComalBin {
0x1ebc…1ecf ptr = 0xac26 // 0x1ebc @0x0
0x1ebc…1ecf lno = 0x0e4c // 0x1ebe @0x2
0x1ebc…1ecf at0004 = ╱98╱ UNTIL ╱ // 0x1ec0 @0x4
0x1ebc…1ecf at0005 = ╱50╱P╱ // 0x1ec1 @0x5
0x1ebc…1ecf at0006 = ╱de╱>╱ // 0x1ec2 @0x6
0x1ebc…1ecf at0007 = ╱e9╱-╱ // 0x1ec3 @0x7
0x1ebc…1ecf at0008 = ╱45╱E╱ // 0x1ec4 @0x8
0x1ebc…1ecf at0009 = ╱da╱ AND ╱ // 0x1ec5 @0x9
0x1ebc…1ecf at000a = ╱50╱P╱ // 0x1ec6 @0xa
0x1ebc…1ecf at000b = ╱dd╱<╱ // 0x1ec7 @0xb
0x1ebc…1ecf at000c = ╱36╱6╱ // 0x1ec8 @0xc
0x1ebc…1ecf at000d = ╱fe0000c003╱ // 0x1ec9 @0xd
0x1ebc…1ecf at0012 = EOL // 0x1ece @0x12
0x1ebc…1ecf }
0x1ecf…1eda ac31 3670 TYPE=P
0x1ecf…1eda LineComalBin {
0x1ecf…1eda ptr = 0xac31 // 0x1ecf @0x0
0x1ecf…1eda lno = 0x0e56 // 0x1ed1 @0x2
0x1ecf…1eda at0004 = ╱54╱T╱ // 0x1ed3 @0x4
0x1ecf…1eda at0005 = ╱59╱Y╱ // 0x1ed4 @0x5
0x1ecf…1eda at0006 = ╱50╱P╱ // 0x1ed5 @0x6
0x1ecf…1eda at0007 = ╱45╱E╱ // 0x1ed6 @0x7
0x1ecf…1eda at0008 = ╱dc╱=╱ // 0x1ed7 @0x8
0x1ecf…1eda at0009 = ╱50╱P╱ // 0x1ed8 @0x9
0x1ecf…1eda at000a = EOL // 0x1ed9 @0xa
0x1ecf…1eda }
0x1eda…1ee8 ac3f 3680 IF TYPE=B THEN EXIT
0x1eda…1ee8 LineComalBin {
0x1eda…1ee8 ptr = 0xac3f // 0x1eda @0x0
0x1eda…1ee8 lno = 0x0e60 // 0x1edc @0x2
0x1eda…1ee8 at0004 = ╱82╱ IF ╱ // 0x1ede @0x4
0x1eda…1ee8 at0005 = ╱54╱T╱ // 0x1edf @0x5
0x1eda…1ee8 at0006 = ╱59╱Y╱ // 0x1ee0 @0x6
0x1eda…1ee8 at0007 = ╱50╱P╱ // 0x1ee1 @0x7
0x1eda…1ee8 at0008 = ╱45╱E╱ // 0x1ee2 @0x8
0x1eda…1ee8 at0009 = ╱dc╱=╱ // 0x1ee3 @0x9
0x1eda…1ee8 at000a = ╱42╱B╱ // 0x1ee4 @0xa
0x1eda…1ee8 at000b = ╱b6╱ THEN ╱ // 0x1ee5 @0xb
0x1eda…1ee8 at000c = ╱99╱ EXIT ╱ // 0x1ee6 @0xc
0x1eda…1ee8 at000d = EOL // 0x1ee7 @0xd
0x1eda…1ee8 }
0x1ee8…1eee ac45 3690 REPEAT
0x1ee8…1eee LineComalBin {
0x1ee8…1eee ptr = 0xac45 // 0x1ee8 @0x0
0x1ee8…1eee lno = 0x0e6a // 0x1eea @0x2
0x1ee8…1eee at0004 = ╱97╱ REPEAT ╱ // 0x1eec @0x4
0x1ee8…1eee at0005 = EOL // 0x1eed @0x5
0x1ee8…1eee }
0x1eee…1efd ac54 3700 EXEC VERSKRIFT
0x1eee…1efd LineComalBin {
0x1eee…1efd ptr = 0xac54 // 0x1eee @0x0
0x1eee…1efd lno = 0x0e74 // 0x1ef0 @0x2
0x1eee…1efd at0004 = ╱9d╱ EXEC ╱ // 0x1ef2 @0x4
0x1eee…1efd at0005 = ╱56╱V╱ // 0x1ef3 @0x5
0x1eee…1efd at0006 = ╱45╱E╱ // 0x1ef4 @0x6
0x1eee…1efd at0007 = ╱52╱R╱ // 0x1ef5 @0x7
0x1eee…1efd at0008 = ╱53╱S╱ // 0x1ef6 @0x8
0x1eee…1efd at0009 = ╱4b╱K╱ // 0x1ef7 @0x9
0x1eee…1efd at000a = ╱52╱R╱ // 0x1ef8 @0xa
0x1eee…1efd at000b = ╱49╱I╱ // 0x1ef9 @0xb
0x1eee…1efd at000c = ╱46╱F╱ // 0x1efa @0xc
0x1eee…1efd at000d = ╱54╱T╱ // 0x1efb @0xd
0x1eee…1efd at000e = EOL // 0x1efc @0xe
0x1eee…1efd }
0x1efd…1f0f ac66 3710 TEST=B;KONT=E
0x1efd…1f0f LineComalBin {
0x1efd…1f0f ptr = 0xac66 // 0x1efd @0x0
0x1efd…1f0f lno = 0x0e7e // 0x1eff @0x2
0x1efd…1f0f at0004 = ╱54╱T╱ // 0x1f01 @0x4
0x1efd…1f0f at0005 = ╱45╱E╱ // 0x1f02 @0x5
0x1efd…1f0f at0006 = ╱53╱S╱ // 0x1f03 @0x6
0x1efd…1f0f at0007 = ╱54╱T╱ // 0x1f04 @0x7
0x1efd…1f0f at0008 = ╱dc╱=╱ // 0x1f05 @0x8
0x1efd…1f0f at0009 = ╱42╱B╱ // 0x1f06 @0x9
0x1efd…1f0f at000a = ╱eb╱;╱ // 0x1f07 @0xa
0x1efd…1f0f at000b = ╱4b╱K╱ // 0x1f08 @0xb
0x1efd…1f0f at000c = ╱4f╱O╱ // 0x1f09 @0xc
0x1efd…1f0f at000d = ╱4e╱N╱ // 0x1f0a @0xd
0x1efd…1f0f at000e = ╱54╱T╱ // 0x1f0b @0xe
0x1efd…1f0f at000f = ╱dc╱=╱ // 0x1f0c @0xf
0x1efd…1f0f at0010 = ╱45╱E╱ // 0x1f0d @0x10
0x1efd…1f0f at0011 = EOL // 0x1f0e @0x11
0x1efd…1f0f }
0x1f0f…1f21 ac78 3720 IF TYPE<5 THEN
0x1f0f…1f21 LineComalBin {
0x1f0f…1f21 ptr = 0xac78 // 0x1f0f @0x0
0x1f0f…1f21 lno = 0x0e88 // 0x1f11 @0x2
0x1f0f…1f21 at0004 = ╱9c╱ IF ╱ // 0x1f13 @0x4
0x1f0f…1f21 at0005 = ╱54╱T╱ // 0x1f14 @0x5
0x1f0f…1f21 at0006 = ╱59╱Y╱ // 0x1f15 @0x6
0x1f0f…1f21 at0007 = ╱50╱P╱ // 0x1f16 @0x7
0x1f0f…1f21 at0008 = ╱45╱E╱ // 0x1f17 @0x8
0x1f0f…1f21 at0009 = ╱dd╱<╱ // 0x1f18 @0x9
0x1f0f…1f21 at000a = ╱35╱5╱ // 0x1f19 @0xa
0x1f0f…1f21 at000b = ╱fe0000a003╱ // 0x1f1a @0xb
0x1f0f…1f21 at0010 = ╱b6╱ THEN ╱ // 0x1f1f @0x10
0x1f0f…1f21 at0011 = EOL // 0x1f20 @0x11
0x1f0f…1f21 }
0x1f21…1f27 ac7e 3730 REPEAT
0x1f21…1f27 LineComalBin {
0x1f21…1f27 ptr = 0xac7e // 0x1f21 @0x0
0x1f21…1f27 lno = 0x0e92 // 0x1f23 @0x2
0x1f21…1f27 at0004 = ╱97╱ REPEAT ╱ // 0x1f25 @0x4
0x1f21…1f27 at0005 = EOL // 0x1f26 @0x5
0x1f21…1f27 }
0x1f27…1f2d ac84 3740 REPEAT
0x1f27…1f2d LineComalBin {
0x1f27…1f2d ptr = 0xac84 // 0x1f27 @0x0
0x1f27…1f2d lno = 0x0e9c // 0x1f29 @0x2
0x1f27…1f2d at0004 = ╱97╱ REPEAT ╱ // 0x1f2b @0x4
0x1f27…1f2d at0005 = EOL // 0x1f2c @0x5
0x1f27…1f2d }
0x1f2d…1f3c ac93 3750 CURSOR V,23
0x1f2d…1f3c LineComalBin {
0x1f2d…1f3c ptr = 0xac93 // 0x1f2d @0x0
0x1f2d…1f3c lno = 0x0ea6 // 0x1f2f @0x2
0x1f2d…1f3c at0004 = ╱a1╱ CURSOR ╱ // 0x1f31 @0x4
0x1f2d…1f3c at0005 = ╱56╱V╱ // 0x1f32 @0x5
0x1f2d…1f3c at0006 = ╱ec╱,╱ // 0x1f33 @0x6
0x1f2d…1f3c at0007 = ╱32╱2╱ // 0x1f34 @0x7
0x1f2d…1f3c at0008 = ╱33╱3╱ // 0x1f35 @0x8
0x1f2d…1f3c at0009 = ╱fe0000b805╱ // 0x1f36 @0x9
0x1f2d…1f3c at000e = EOL // 0x1f3b @0xe
0x1f2d…1f3c }
0x1f3c…1f7f acd6 3760 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35)
0x1f3c…1f7f LineComalBin {
0x1f3c…1f7f ptr = 0xacd6 // 0x1f3c @0x0
0x1f3c…1f7f lno = 0x0eb0 // 0x1f3e @0x2
0x1f3c…1f7f at0004 = ╱92╱ PRINT ╱ // 0x1f40 @0x4
0x1f3c…1f7f at0005 = ╱22╱"╱ // 0x1f41 @0x5
0x1f3c…1f7f at0006 = ╱49╱I╱ // 0x1f42 @0x6
0x1f3c…1f7f at0007 = ╱6e╱n╱ // 0x1f43 @0x7
0x1f3c…1f7f at0008 = ╱64╱d╱ // 0x1f44 @0x8
0x1f3c…1f7f at0009 = ╱74╱t╱ // 0x1f45 @0x9
0x1f3c…1f7f at000a = ╱61╱a╱ // 0x1f46 @0xa
0x1f3c…1f7f at000b = ╱73╱s╱ // 0x1f47 @0xb
0x1f3c…1f7f at000c = ╱74╱t╱ // 0x1f48 @0xc
0x1f3c…1f7f at000d = ╱20╱…╱ // 0x1f49 @0xd
0x1f3c…1f7f at000e = ╱6e╱n╱ // 0x1f4a @0xe
0x1f3c…1f7f at000f = ╱79╱y╱ // 0x1f4b @0xf
0x1f3c…1f7f at0010 = ╱74╱t╱ // 0x1f4c @0x10
0x1f3c…1f7f at0011 = ╱20╱…╱ // 0x1f4d @0x11
0x1f3c…1f7f at0012 = ╱6b╱k╱ // 0x1f4e @0x12
0x1f3c…1f7f at0013 = ╱6f╱o╱ // 0x1f4f @0x13
0x1f3c…1f7f at0014 = ╱6e╱n╱ // 0x1f50 @0x14
0x1f3c…1f7f at0015 = ╱74╱t╱ // 0x1f51 @0x15
0x1f3c…1f7f at0016 = ╱6f╱o╱ // 0x1f52 @0x16
0x1f3c…1f7f at0017 = ╱6e╱n╱ // 0x1f53 @0x17
0x1f3c…1f7f at0018 = ╱72╱r╱ // 0x1f54 @0x18
0x1f3c…1f7f at0019 = ╱20╱…╱ // 0x1f55 @0x19
0x1f3c…1f7f at001a = ╱20╱…╱ // 0x1f56 @0x1a
0x1f3c…1f7f at001b = ╱20╱…╱ // 0x1f57 @0x1b
0x1f3c…1f7f at001c = ╱20╱…╱ // 0x1f58 @0x1c
0x1f3c…1f7f at001d = ╱20╱…╱ // 0x1f59 @0x1d
0x1f3c…1f7f at001e = ╱20╱…╱ // 0x1f5a @0x1e
0x1f3c…1f7f at001f = ╱20╱…╱ // 0x1f5b @0x1f
0x1f3c…1f7f at0020 = ╱20╱…╱ // 0x1f5c @0x20
0x1f3c…1f7f at0021 = ╱28╱(╱ // 0x1f5d @0x21
0x1f3c…1f7f at0022 = ╱30╱0╱ // 0x1f5e @0x22
0x1f3c…1f7f at0023 = ╱3a╱:╱ // 0x1f5f @0x23
0x1f3c…1f7f at0024 = ╱66╱f╱ // 0x1f60 @0x24
0x1f3c…1f7f at0025 = ╱6f╱o╱ // 0x1f61 @0x25
0x1f3c…1f7f at0026 = ╱72╱r╱ // 0x1f62 @0x26
0x1f3c…1f7f at0027 = ╱20╱…╱ // 0x1f63 @0x27
0x1f3c…1f7f at0028 = ╱66╱f╱ // 0x1f64 @0x28
0x1f3c…1f7f at0029 = ╱7b╱æ╱ // 0x1f65 @0x29
0x1f3c…1f7f at002a = ╱72╱r╱ // 0x1f66 @0x2a
0x1f3c…1f7f at002b = ╱64╱d╱ // 0x1f67 @0x2b
0x1f3c…1f7f at002c = ╱69╱i╱ // 0x1f68 @0x2c
0x1f3c…1f7f at002d = ╱67╱g╱ // 0x1f69 @0x2d
0x1f3c…1f7f at002e = ╱29╱)╱ // 0x1f6a @0x2e
0x1f3c…1f7f at002f = ╱22╱"╱ // 0x1f6b @0x2f
0x1f3c…1f7f at0030 = ╱eb╱;╱ // 0x1f6c @0x30
0x1f3c…1f7f at0031 = ╱42╱B╱ // 0x1f6d @0x31
0x1f3c…1f7f at0032 = ╱4c╱L╱ // 0x1f6e @0x32
0x1f3c…1f7f at0033 = ╱41╱A╱ // 0x1f6f @0x33
0x1f3c…1f7f at0034 = ╱4e╱N╱ // 0x1f70 @0x34
0x1f3c…1f7f at0035 = ╱4b╱K╱ // 0x1f71 @0x35
0x1f3c…1f7f at0036 = ╱ef╱$╱ // 0x1f72 @0x36
0x1f3c…1f7f at0037 = ╱ed╱(╱ // 0x1f73 @0x37
0x1f3c…1f7f at0038 = ╱45╱E╱ // 0x1f74 @0x38
0x1f3c…1f7f at0039 = ╱f0╱:╱ // 0x1f75 @0x39
0x1f3c…1f7f at003a = ╱33╱3╱ // 0x1f76 @0x3a
0x1f3c…1f7f at003b = ╱35╱5╱ // 0x1f77 @0x3b
0x1f3c…1f7f at003c = ╱fe00008c06╱ // 0x1f78 @0x3c
0x1f3c…1f7f at0041 = ╱ee╱)╱ // 0x1f7d @0x41
0x1f3c…1f7f at0042 = EOL // 0x1f7e @0x42
0x1f3c…1f7f }
0x1f7f…1f94 aceb 3770 CURSOR 22,23
0x1f7f…1f94 LineComalBin {
0x1f7f…1f94 ptr = 0xaceb // 0x1f7f @0x0
0x1f7f…1f94 lno = 0x0eba // 0x1f81 @0x2
0x1f7f…1f94 at0004 = ╱a1╱ CURSOR ╱ // 0x1f83 @0x4
0x1f7f…1f94 at0005 = ╱32╱2╱ // 0x1f84 @0x5
0x1f7f…1f94 at0006 = ╱32╱2╱ // 0x1f85 @0x6
0x1f7f…1f94 at0007 = ╱fe0000b005╱ // 0x1f86 @0x7
0x1f7f…1f94 at000c = ╱ec╱,╱ // 0x1f8b @0xc
0x1f7f…1f94 at000d = ╱32╱2╱ // 0x1f8c @0xd
0x1f7f…1f94 at000e = ╱33╱3╱ // 0x1f8d @0xe
0x1f7f…1f94 at000f = ╱fe0000b805╱ // 0x1f8e @0xf
0x1f7f…1f94 at0014 = EOL // 0x1f93 @0x14
0x1f7f…1f94 }
0x1f94…1f9e acf5 3780 INPUT KTN$
0x1f94…1f9e LineComalBin {
0x1f94…1f9e ptr = 0xacf5 // 0x1f94 @0x0
0x1f94…1f9e lno = 0x0ec4 // 0x1f96 @0x2
0x1f94…1f9e at0004 = ╱91╱ INPUT ╱ // 0x1f98 @0x4
0x1f94…1f9e at0005 = ╱4b╱K╱ // 0x1f99 @0x5
0x1f94…1f9e at0006 = ╱54╱T╱ // 0x1f9a @0x6
0x1f94…1f9e at0007 = ╱4e╱N╱ // 0x1f9b @0x7
0x1f94…1f9e at0008 = ╱ef╱$╱ // 0x1f9c @0x8
0x1f94…1f9e at0009 = EOL // 0x1f9d @0x9
0x1f94…1f9e }
0x1f9e…1fb0 ad07 3790 EXEC NRTEST(KTN$)
0x1f9e…1fb0 LineComalBin {
0x1f9e…1fb0 ptr = 0xad07 // 0x1f9e @0x0
0x1f9e…1fb0 lno = 0x0ece // 0x1fa0 @0x2
0x1f9e…1fb0 at0004 = ╱9d╱ EXEC ╱ // 0x1fa2 @0x4
0x1f9e…1fb0 at0005 = ╱4e╱N╱ // 0x1fa3 @0x5
0x1f9e…1fb0 at0006 = ╱52╱R╱ // 0x1fa4 @0x6
0x1f9e…1fb0 at0007 = ╱54╱T╱ // 0x1fa5 @0x7
0x1f9e…1fb0 at0008 = ╱45╱E╱ // 0x1fa6 @0x8
0x1f9e…1fb0 at0009 = ╱53╱S╱ // 0x1fa7 @0x9
0x1f9e…1fb0 at000a = ╱54╱T╱ // 0x1fa8 @0xa
0x1f9e…1fb0 at000b = ╱ed╱(╱ // 0x1fa9 @0xb
0x1f9e…1fb0 at000c = ╱4b╱K╱ // 0x1faa @0xc
0x1f9e…1fb0 at000d = ╱54╱T╱ // 0x1fab @0xd
0x1f9e…1fb0 at000e = ╱4e╱N╱ // 0x1fac @0xe
0x1f9e…1fb0 at000f = ╱ef╱$╱ // 0x1fad @0xf
0x1f9e…1fb0 at0010 = ╱ee╱)╱ // 0x1fae @0x10
0x1f9e…1fb0 at0011 = EOL // 0x1faf @0x11
0x1f9e…1fb0 }
0x1fb0…1fba ad11 3800 FT2=B
0x1fb0…1fba LineComalBin {
0x1fb0…1fba ptr = 0xad11 // 0x1fb0 @0x0
0x1fb0…1fba lno = 0x0ed8 // 0x1fb2 @0x2
0x1fb0…1fba at0004 = ╱46╱F╱ // 0x1fb4 @0x4
0x1fb0…1fba at0005 = ╱54╱T╱ // 0x1fb5 @0x5
0x1fb0…1fba at0006 = ╱32╱2╱ // 0x1fb6 @0x6
0x1fb0…1fba at0007 = ╱dc╱=╱ // 0x1fb7 @0x7
0x1fb0…1fba at0008 = ╱42╱B╱ // 0x1fb8 @0x8
0x1fb0…1fba at0009 = EOL // 0x1fb9 @0x9
0x1fb0…1fba }
0x1fba…1fea ad41 3810 IF (FT+MKGR=>P AND FT<=P) OR (FT1+MKRGR=>P AND FT1<=P) THEN FT2=E
0x1fba…1fea LineComalBin {
0x1fba…1fea ptr = 0xad41 // 0x1fba @0x0
0x1fba…1fea lno = 0x0ee2 // 0x1fbc @0x2
0x1fba…1fea at0004 = ╱82╱ IF ╱ // 0x1fbe @0x4
0x1fba…1fea at0005 = ╱ed╱(╱ // 0x1fbf @0x5
0x1fba…1fea at0006 = ╱46╱F╱ // 0x1fc0 @0x6
0x1fba…1fea at0007 = ╱54╱T╱ // 0x1fc1 @0x7
0x1fba…1fea at0008 = ╱e2╱+╱ // 0x1fc2 @0x8
0x1fba…1fea at0009 = ╱4d╱M╱ // 0x1fc3 @0x9
0x1fba…1fea at000a = ╱4b╱K╱ // 0x1fc4 @0xa
0x1fba…1fea at000b = ╱47╱G╱ // 0x1fc5 @0xb
0x1fba…1fea at000c = ╱52╱R╱ // 0x1fc6 @0xc
0x1fba…1fea at000d = ╱e0╱=>╱ // 0x1fc7 @0xd
0x1fba…1fea at000e = ╱50╱P╱ // 0x1fc8 @0xe
0x1fba…1fea at000f = ╱da╱ AND ╱ // 0x1fc9 @0xf
0x1fba…1fea at0010 = ╱46╱F╱ // 0x1fca @0x10
0x1fba…1fea at0011 = ╱54╱T╱ // 0x1fcb @0x11
0x1fba…1fea at0012 = ╱df╱<=╱ // 0x1fcc @0x12
0x1fba…1fea at0013 = ╱50╱P╱ // 0x1fcd @0x13
0x1fba…1fea at0014 = ╱ee╱)╱ // 0x1fce @0x14
0x1fba…1fea at0015 = ╱db╱ OR ╱ // 0x1fcf @0x15
0x1fba…1fea at0016 = ╱ed╱(╱ // 0x1fd0 @0x16
0x1fba…1fea at0017 = ╱46╱F╱ // 0x1fd1 @0x17
0x1fba…1fea at0018 = ╱54╱T╱ // 0x1fd2 @0x18
0x1fba…1fea at0019 = ╱31╱1╱ // 0x1fd3 @0x19
0x1fba…1fea at001a = ╱e2╱+╱ // 0x1fd4 @0x1a
0x1fba…1fea at001b = ╱4d╱M╱ // 0x1fd5 @0x1b
0x1fba…1fea at001c = ╱4b╱K╱ // 0x1fd6 @0x1c
0x1fba…1fea at001d = ╱52╱R╱ // 0x1fd7 @0x1d
0x1fba…1fea at001e = ╱47╱G╱ // 0x1fd8 @0x1e
0x1fba…1fea at001f = ╱52╱R╱ // 0x1fd9 @0x1f
0x1fba…1fea at0020 = ╱e0╱=>╱ // 0x1fda @0x20
0x1fba…1fea at0021 = ╱50╱P╱ // 0x1fdb @0x21
0x1fba…1fea at0022 = ╱da╱ AND ╱ // 0x1fdc @0x22
0x1fba…1fea at0023 = ╱46╱F╱ // 0x1fdd @0x23
0x1fba…1fea at0024 = ╱54╱T╱ // 0x1fde @0x24
0x1fba…1fea at0025 = ╱31╱1╱ // 0x1fdf @0x25
0x1fba…1fea at0026 = ╱df╱<=╱ // 0x1fe0 @0x26
0x1fba…1fea at0027 = ╱50╱P╱ // 0x1fe1 @0x27
0x1fba…1fea at0028 = ╱ee╱)╱ // 0x1fe2 @0x28
0x1fba…1fea at0029 = ╱b6╱ THEN ╱ // 0x1fe3 @0x29
0x1fba…1fea at002a = ╱46╱F╱ // 0x1fe4 @0x2a
0x1fba…1fea at002b = ╱54╱T╱ // 0x1fe5 @0x2b
0x1fba…1fea at002c = ╱32╱2╱ // 0x1fe6 @0x2c
0x1fba…1fea at002d = ╱dc╱=╱ // 0x1fe7 @0x2d
0x1fba…1fea at002e = ╱45╱E╱ // 0x1fe8 @0x2e
0x1fba…1fea at002f = EOL // 0x1fe9 @0x2f
0x1fba…1fea }
0x1fea…201d ad74 3820 UNTIL (((KTAL<>DTAL AND KTAL<>KRTAL) OR FT2=E) AND L=5) OR P=B
0x1fea…201d LineComalBin {
0x1fea…201d ptr = 0xad74 // 0x1fea @0x0
0x1fea…201d lno = 0x0eec // 0x1fec @0x2
0x1fea…201d at0004 = ╱98╱ UNTIL ╱ // 0x1fee @0x4
0x1fea…201d at0005 = ╱ed╱(╱ // 0x1fef @0x5
0x1fea…201d at0006 = ╱ed╱(╱ // 0x1ff0 @0x6
0x1fea…201d at0007 = ╱ed╱(╱ // 0x1ff1 @0x7
0x1fea…201d at0008 = ╱4b╱K╱ // 0x1ff2 @0x8
0x1fea…201d at0009 = ╱54╱T╱ // 0x1ff3 @0x9
0x1fea…201d at000a = ╱41╱A╱ // 0x1ff4 @0xa
0x1fea…201d at000b = ╱4c╱L╱ // 0x1ff5 @0xb
0x1fea…201d at000c = ╱e1╱<>╱ // 0x1ff6 @0xc
0x1fea…201d at000d = ╱44╱D╱ // 0x1ff7 @0xd
0x1fea…201d at000e = ╱54╱T╱ // 0x1ff8 @0xe
0x1fea…201d at000f = ╱41╱A╱ // 0x1ff9 @0xf
0x1fea…201d at0010 = ╱4c╱L╱ // 0x1ffa @0x10
0x1fea…201d at0011 = ╱da╱ AND ╱ // 0x1ffb @0x11
0x1fea…201d at0012 = ╱4b╱K╱ // 0x1ffc @0x12
0x1fea…201d at0013 = ╱54╱T╱ // 0x1ffd @0x13
0x1fea…201d at0014 = ╱41╱A╱ // 0x1ffe @0x14
0x1fea…201d at0015 = ╱4c╱L╱ // 0x1fff @0x15
0x1fea…201d at0016 = ╱e1╱<>╱ // 0x2000 @0x16
0x1fea…201d at0017 = ╱4b╱K╱ // 0x2001 @0x17
0x1fea…201d at0018 = ╱52╱R╱ // 0x2002 @0x18
0x1fea…201d at0019 = ╱54╱T╱ // 0x2003 @0x19
0x1fea…201d at001a = ╱41╱A╱ // 0x2004 @0x1a
0x1fea…201d at001b = ╱4c╱L╱ // 0x2005 @0x1b
0x1fea…201d at001c = ╱ee╱)╱ // 0x2006 @0x1c
0x1fea…201d at001d = ╱db╱ OR ╱ // 0x2007 @0x1d
0x1fea…201d at001e = ╱46╱F╱ // 0x2008 @0x1e
0x1fea…201d at001f = ╱54╱T╱ // 0x2009 @0x1f
0x1fea…201d at0020 = ╱32╱2╱ // 0x200a @0x20
0x1fea…201d at0021 = ╱dc╱=╱ // 0x200b @0x21
0x1fea…201d at0022 = ╱45╱E╱ // 0x200c @0x22
0x1fea…201d at0023 = ╱ee╱)╱ // 0x200d @0x23
0x1fea…201d at0024 = ╱da╱ AND ╱ // 0x200e @0x24
0x1fea…201d at0025 = ╱4c╱L╱ // 0x200f @0x25
0x1fea…201d at0026 = ╱dc╱=╱ // 0x2010 @0x26
0x1fea…201d at0027 = ╱35╱5╱ // 0x2011 @0x27
0x1fea…201d at0028 = ╱fe0000a003╱ // 0x2012 @0x28
0x1fea…201d at002d = ╱ee╱)╱ // 0x2017 @0x2d
0x1fea…201d at002e = ╱db╱ OR ╱ // 0x2018 @0x2e
0x1fea…201d at002f = ╱50╱P╱ // 0x2019 @0x2f
0x1fea…201d at0030 = ╱dc╱=╱ // 0x201a @0x30
0x1fea…201d at0031 = ╱42╱B╱ // 0x201b @0x31
0x1fea…201d at0032 = EOL // 0x201c @0x32
0x1fea…201d }
0x201d…2028 ad7f 3830 KONT=P
0x201d…2028 LineComalBin {
0x201d…2028 ptr = 0xad7f // 0x201d @0x0
0x201d…2028 lno = 0x0ef6 // 0x201f @0x2
0x201d…2028 at0004 = ╱4b╱K╱ // 0x2021 @0x4
0x201d…2028 at0005 = ╱4f╱O╱ // 0x2022 @0x5
0x201d…2028 at0006 = ╱4e╱N╱ // 0x2023 @0x6
0x201d…2028 at0007 = ╱54╱T╱ // 0x2024 @0x7
0x201d…2028 at0008 = ╱dc╱=╱ // 0x2025 @0x8
0x201d…2028 at0009 = ╱50╱P╱ // 0x2026 @0x9
0x201d…2028 at000a = EOL // 0x2027 @0xa
0x201d…2028 }
0x2028…2036 ad8d 3840 IF KONT=B THEN EXIT
0x2028…2036 LineComalBin {
0x2028…2036 ptr = 0xad8d // 0x2028 @0x0
0x2028…2036 lno = 0x0f00 // 0x202a @0x2
0x2028…2036 at0004 = ╱82╱ IF ╱ // 0x202c @0x4
0x2028…2036 at0005 = ╱4b╱K╱ // 0x202d @0x5
0x2028…2036 at0006 = ╱4f╱O╱ // 0x202e @0x6
0x2028…2036 at0007 = ╱4e╱N╱ // 0x202f @0x7
0x2028…2036 at0008 = ╱54╱T╱ // 0x2030 @0x8
0x2028…2036 at0009 = ╱dc╱=╱ // 0x2031 @0x9
0x2028…2036 at000a = ╱42╱B╱ // 0x2032 @0xa
0x2028…2036 at000b = ╱b6╱ THEN ╱ // 0x2033 @0xb
0x2028…2036 at000c = ╱99╱ EXIT ╱ // 0x2034 @0xc
0x2028…2036 at000d = EOL // 0x2035 @0xd
0x2028…2036 }
0x2036…205d adb4 3850 EXEC FINDPOST(FTAB,MFANTAL,KONT,FPIL3)
0x2036…205d LineComalBin {
0x2036…205d ptr = 0xadb4 // 0x2036 @0x0
0x2036…205d lno = 0x0f0a // 0x2038 @0x2
0x2036…205d at0004 = ╱9d╱ EXEC ╱ // 0x203a @0x4
0x2036…205d at0005 = ╱46╱F╱ // 0x203b @0x5
0x2036…205d at0006 = ╱49╱I╱ // 0x203c @0x6
0x2036…205d at0007 = ╱4e╱N╱ // 0x203d @0x7
0x2036…205d at0008 = ╱44╱D╱ // 0x203e @0x8
0x2036…205d at0009 = ╱50╱P╱ // 0x203f @0x9
0x2036…205d at000a = ╱4f╱O╱ // 0x2040 @0xa
0x2036…205d at000b = ╱53╱S╱ // 0x2041 @0xb
0x2036…205d at000c = ╱54╱T╱ // 0x2042 @0xc
0x2036…205d at000d = ╱ed╱(╱ // 0x2043 @0xd
0x2036…205d at000e = ╱46╱F╱ // 0x2044 @0xe
0x2036…205d at000f = ╱54╱T╱ // 0x2045 @0xf
0x2036…205d at0010 = ╱41╱A╱ // 0x2046 @0x10
0x2036…205d at0011 = ╱42╱B╱ // 0x2047 @0x11
0x2036…205d at0012 = ╱ec╱,╱ // 0x2048 @0x12
0x2036…205d at0013 = ╱4d╱M╱ // 0x2049 @0x13
0x2036…205d at0014 = ╱46╱F╱ // 0x204a @0x14
0x2036…205d at0015 = ╱41╱A╱ // 0x204b @0x15
0x2036…205d at0016 = ╱4e╱N╱ // 0x204c @0x16
0x2036…205d at0017 = ╱54╱T╱ // 0x204d @0x17
0x2036…205d at0018 = ╱41╱A╱ // 0x204e @0x18
0x2036…205d at0019 = ╱4c╱L╱ // 0x204f @0x19
0x2036…205d at001a = ╱ec╱,╱ // 0x2050 @0x1a
0x2036…205d at001b = ╱4b╱K╱ // 0x2051 @0x1b
0x2036…205d at001c = ╱4f╱O╱ // 0x2052 @0x1c
0x2036…205d at001d = ╱4e╱N╱ // 0x2053 @0x1d
0x2036…205d at001e = ╱54╱T╱ // 0x2054 @0x1e
0x2036…205d at001f = ╱ec╱,╱ // 0x2055 @0x1f
0x2036…205d at0020 = ╱46╱F╱ // 0x2056 @0x20
0x2036…205d at0021 = ╱50╱P╱ // 0x2057 @0x21
0x2036…205d at0022 = ╱49╱I╱ // 0x2058 @0x22
0x2036…205d at0023 = ╱4c╱L╱ // 0x2059 @0x23
0x2036…205d at0024 = ╱33╱3╱ // 0x205a @0x24
0x2036…205d at0025 = ╱ee╱)╱ // 0x205b @0x25
0x2036…205d at0026 = EOL // 0x205c @0x26
0x2036…205d }
0x205d…2063 adba 3860 REPEAT
0x205d…2063 LineComalBin {
0x205d…2063 ptr = 0xadba // 0x205d @0x0
0x205d…2063 lno = 0x0f14 // 0x205f @0x2
0x205d…2063 at0004 = ╱97╱ REPEAT ╱ // 0x2061 @0x4
0x205d…2063 at0005 = EOL // 0x2062 @0x5
0x205d…2063 }
0x2063…2078 adcf 3870 CURSOR 44,23
0x2063…2078 LineComalBin {
0x2063…2078 ptr = 0xadcf // 0x2063 @0x0
0x2063…2078 lno = 0x0f1e // 0x2065 @0x2
0x2063…2078 at0004 = ╱a1╱ CURSOR ╱ // 0x2067 @0x4
0x2063…2078 at0005 = ╱34╱4╱ // 0x2068 @0x5
0x2063…2078 at0006 = ╱34╱4╱ // 0x2069 @0x6
0x2063…2078 at0007 = ╱fe0000b006╱ // 0x206a @0x7
0x2063…2078 at000c = ╱ec╱,╱ // 0x206f @0xc
0x2063…2078 at000d = ╱32╱2╱ // 0x2070 @0xd
0x2063…2078 at000e = ╱33╱3╱ // 0x2071 @0xe
0x2063…2078 at000f = ╱fe0000b805╱ // 0x2072 @0xf
0x2063…2078 at0014 = EOL // 0x2077 @0x14
0x2063…2078 }
0x2078…20ab ae02 3880 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL) THEN
0x2078…20ab LineComalBin {
0x2078…20ab ptr = 0xae02 // 0x2078 @0x0
0x2078…20ab lno = 0x0f28 // 0x207a @0x2
0x2078…20ab at0004 = ╱9c╱ IF ╱ // 0x207c @0x4
0x2078…20ab at0005 = ╱ed╱(╱ // 0x207d @0x5
0x2078…20ab at0006 = ╱43╱C╱ // 0x207e @0x6
0x2078…20ab at0007 = ╱45╱E╱ // 0x207f @0x7
0x2078…20ab at0008 = ╱4b╱K╱ // 0x2080 @0x8
0x2078…20ab at0009 = ╱53╱S╱ // 0x2081 @0x9
0x2078…20ab at000a = ╱dc╱=╱ // 0x2082 @0xa
0x2078…20ab at000b = ╱42╱B╱ // 0x2083 @0xb
0x2078…20ab at000c = ╱da╱ AND ╱ // 0x2084 @0xc
0x2078…20ab at000d = ╱54╱T╱ // 0x2085 @0xd
0x2078…20ab at000e = ╱59╱Y╱ // 0x2086 @0xe
0x2078…20ab at000f = ╱50╱P╱ // 0x2087 @0xf
0x2078…20ab at0010 = ╱45╱E╱ // 0x2088 @0x10
0x2078…20ab at0011 = ╱e1╱<>╱ // 0x2089 @0x11
0x2078…20ab at0012 = ╱45╱E╱ // 0x208a @0x12
0x2078…20ab at0013 = ╱ee╱)╱ // 0x208b @0x13
0x2078…20ab at0014 = ╱db╱ OR ╱ // 0x208c @0x14
0x2078…20ab at0015 = ╱ed╱(╱ // 0x208d @0x15
0x2078…20ab at0016 = ╱43╱C╱ // 0x208e @0x16
0x2078…20ab at0017 = ╱45╱E╱ // 0x208f @0x17
0x2078…20ab at0018 = ╱4b╱K╱ // 0x2090 @0x18
0x2078…20ab at0019 = ╱53╱S╱ // 0x2091 @0x19
0x2078…20ab at001a = ╱dc╱=╱ // 0x2092 @0x1a
0x2078…20ab at001b = ╱45╱E╱ // 0x2093 @0x1b
0x2078…20ab at001c = ╱da╱ AND ╱ // 0x2094 @0x1c
0x2078…20ab at001d = ╱54╱T╱ // 0x2095 @0x1d
0x2078…20ab at001e = ╱59╱Y╱ // 0x2096 @0x1e
0x2078…20ab at001f = ╱50╱P╱ // 0x2097 @0x1f
0x2078…20ab at0020 = ╱45╱E╱ // 0x2098 @0x20
0x2078…20ab at0021 = ╱dc╱=╱ // 0x2099 @0x21
0x2078…20ab at0022 = ╱45╱E╱ // 0x209a @0x22
0x2078…20ab at0023 = ╱da╱ AND ╱ // 0x209b @0x23
0x2078…20ab at0024 = ╱41╱A╱ // 0x209c @0x24
0x2078…20ab at0025 = ╱46╱F╱ // 0x209d @0x25
0x2078…20ab at0026 = ╱49╱I╱ // 0x209e @0x26
0x2078…20ab at0027 = ╱4e╱N╱ // 0x209f @0x27
0x2078…20ab at0028 = ╱dd╱<╱ // 0x20a0 @0x28
0x2078…20ab at0029 = ╱4d╱M╱ // 0x20a1 @0x29
0x2078…20ab at002a = ╱46╱F╱ // 0x20a2 @0x2a
0x2078…20ab at002b = ╱41╱A╱ // 0x20a3 @0x2b
0x2078…20ab at002c = ╱4e╱N╱ // 0x20a4 @0x2c
0x2078…20ab at002d = ╱54╱T╱ // 0x20a5 @0x2d
0x2078…20ab at002e = ╱41╱A╱ // 0x20a6 @0x2e
0x2078…20ab at002f = ╱4c╱L╱ // 0x20a7 @0x2f
0x2078…20ab at0030 = ╱ee╱)╱ // 0x20a8 @0x30
0x2078…20ab at0031 = ╱b6╱ THEN ╱ // 0x20a9 @0x31
0x2078…20ab at0032 = EOL // 0x20aa @0x32
0x2078…20ab }
0x20ab…20c2 ae19 3890 PRINT BLANK$(E:35)
0x20ab…20c2 LineComalBin {
0x20ab…20c2 ptr = 0xae19 // 0x20ab @0x0
0x20ab…20c2 lno = 0x0f32 // 0x20ad @0x2
0x20ab…20c2 at0004 = ╱92╱ PRINT ╱ // 0x20af @0x4
0x20ab…20c2 at0005 = ╱42╱B╱ // 0x20b0 @0x5
0x20ab…20c2 at0006 = ╱4c╱L╱ // 0x20b1 @0x6
0x20ab…20c2 at0007 = ╱41╱A╱ // 0x20b2 @0x7
0x20ab…20c2 at0008 = ╱4e╱N╱ // 0x20b3 @0x8
0x20ab…20c2 at0009 = ╱4b╱K╱ // 0x20b4 @0x9
0x20ab…20c2 at000a = ╱ef╱$╱ // 0x20b5 @0xa
0x20ab…20c2 at000b = ╱ed╱(╱ // 0x20b6 @0xb
0x20ab…20c2 at000c = ╱45╱E╱ // 0x20b7 @0xc
0x20ab…20c2 at000d = ╱f0╱:╱ // 0x20b8 @0xd
0x20ab…20c2 at000e = ╱33╱3╱ // 0x20b9 @0xe
0x20ab…20c2 at000f = ╱35╱5╱ // 0x20ba @0xf
0x20ab…20c2 at0010 = ╱fe00008c06╱ // 0x20bb @0x10
0x20ab…20c2 at0015 = ╱ee╱)╱ // 0x20c0 @0x15
0x20ab…20c2 at0016 = EOL // 0x20c1 @0x16
0x20ab…20c2 }
0x20c2…20cb ae22 3900 P=-E
0x20c2…20cb LineComalBin {
0x20c2…20cb ptr = 0xae22 // 0x20c2 @0x0
0x20c2…20cb lno = 0x0f3c // 0x20c4 @0x2
0x20c2…20cb at0004 = ╱50╱P╱ // 0x20c6 @0x4
0x20c2…20cb at0005 = ╱dc╱=╱ // 0x20c7 @0x5
0x20c2…20cb at0006 = ╱e9╱-╱ // 0x20c8 @0x6
0x20c2…20cb at0007 = ╱45╱E╱ // 0x20c9 @0x7
0x20c2…20cb at0008 = EOL // 0x20ca @0x8
0x20c2…20cb }
0x20cb…20d1 ae28 3910 ELSE
0x20cb…20d1 LineComalBin {
0x20cb…20d1 ptr = 0xae28 // 0x20cb @0x0
0x20cb…20d1 lno = 0x0f46 // 0x20cd @0x2
0x20cb…20d1 at0004 = ╱9a╱ ELSE ╱ // 0x20cf @0x4
0x20cb…20d1 at0005 = EOL // 0x20d0 @0x5
0x20cb…20d1 }
0x20d1…20f2 ae49 3920 IF CEKS=E AND TYPE=E AND AFIN=>MFANTAL THEN
0x20d1…20f2 LineComalBin {
0x20d1…20f2 ptr = 0xae49 // 0x20d1 @0x0
0x20d1…20f2 lno = 0x0f50 // 0x20d3 @0x2
0x20d1…20f2 at0004 = ╱9c╱ IF ╱ // 0x20d5 @0x4
0x20d1…20f2 at0005 = ╱43╱C╱ // 0x20d6 @0x5
0x20d1…20f2 at0006 = ╱45╱E╱ // 0x20d7 @0x6
0x20d1…20f2 at0007 = ╱4b╱K╱ // 0x20d8 @0x7
0x20d1…20f2 at0008 = ╱53╱S╱ // 0x20d9 @0x8
0x20d1…20f2 at0009 = ╱dc╱=╱ // 0x20da @0x9
0x20d1…20f2 at000a = ╱45╱E╱ // 0x20db @0xa
0x20d1…20f2 at000b = ╱da╱ AND ╱ // 0x20dc @0xb
0x20d1…20f2 at000c = ╱54╱T╱ // 0x20dd @0xc
0x20d1…20f2 at000d = ╱59╱Y╱ // 0x20de @0xd
0x20d1…20f2 at000e = ╱50╱P╱ // 0x20df @0xe
0x20d1…20f2 at000f = ╱45╱E╱ // 0x20e0 @0xf
0x20d1…20f2 at0010 = ╱dc╱=╱ // 0x20e1 @0x10
0x20d1…20f2 at0011 = ╱45╱E╱ // 0x20e2 @0x11
0x20d1…20f2 at0012 = ╱da╱ AND ╱ // 0x20e3 @0x12
0x20d1…20f2 at0013 = ╱41╱A╱ // 0x20e4 @0x13
0x20d1…20f2 at0014 = ╱46╱F╱ // 0x20e5 @0x14
0x20d1…20f2 at0015 = ╱49╱I╱ // 0x20e6 @0x15
0x20d1…20f2 at0016 = ╱4e╱N╱ // 0x20e7 @0x16
0x20d1…20f2 at0017 = ╱e0╱=>╱ // 0x20e8 @0x17
0x20d1…20f2 at0018 = ╱4d╱M╱ // 0x20e9 @0x18
0x20d1…20f2 at0019 = ╱46╱F╱ // 0x20ea @0x19
0x20d1…20f2 at001a = ╱41╱A╱ // 0x20eb @0x1a
0x20d1…20f2 at001b = ╱4e╱N╱ // 0x20ec @0x1b
0x20d1…20f2 at001c = ╱54╱T╱ // 0x20ed @0x1c
0x20d1…20f2 at001d = ╱41╱A╱ // 0x20ee @0x1d
0x20d1…20f2 at001e = ╱4c╱L╱ // 0x20ef @0x1e
0x20d1…20f2 at001f = ╱b6╱ THEN ╱ // 0x20f0 @0x1f
0x20d1…20f2 at0020 = EOL // 0x20f1 @0x20
0x20d1…20f2 }
0x20f2…2101 ae58 3930 CURSOR V,23
0x20f2…2101 LineComalBin {
0x20f2…2101 ptr = 0xae58 // 0x20f2 @0x0
0x20f2…2101 lno = 0x0f5a // 0x20f4 @0x2
0x20f2…2101 at0004 = ╱a1╱ CURSOR ╱ // 0x20f6 @0x4
0x20f2…2101 at0005 = ╱56╱V╱ // 0x20f7 @0x5
0x20f2…2101 at0006 = ╱ec╱,╱ // 0x20f8 @0x6
0x20f2…2101 at0007 = ╱32╱2╱ // 0x20f9 @0x7
0x20f2…2101 at0008 = ╱33╱3╱ // 0x20fa @0x8
0x20f2…2101 at0009 = ╱fe0000b805╱ // 0x20fb @0x9
0x20f2…2101 at000e = EOL // 0x2100 @0xe
0x20f2…2101 }
0x2101…2145 ae9c 3940 INPUT "Ikke plads til flere konti , tast RETURN ",A$
0x2101…2145 LineComalBin {
0x2101…2145 ptr = 0xae9c // 0x2101 @0x0
0x2101…2145 lno = 0x0f64 // 0x2103 @0x2
0x2101…2145 at0004 = ╱91╱ INPUT ╱ // 0x2105 @0x4
0x2101…2145 at0005 = ╱22╱"╱ // 0x2106 @0x5
0x2101…2145 at0006 = ╱49╱I╱ // 0x2107 @0x6
0x2101…2145 at0007 = ╱6b╱k╱ // 0x2108 @0x7
0x2101…2145 at0008 = ╱6b╱k╱ // 0x2109 @0x8
0x2101…2145 at0009 = ╱65╱e╱ // 0x210a @0x9
0x2101…2145 at000a = ╱20╱…╱ // 0x210b @0xa
0x2101…2145 at000b = ╱70╱p╱ // 0x210c @0xb
0x2101…2145 at000c = ╱6c╱l╱ // 0x210d @0xc
0x2101…2145 at000d = ╱61╱a╱ // 0x210e @0xd
0x2101…2145 at000e = ╱64╱d╱ // 0x210f @0xe
0x2101…2145 at000f = ╱73╱s╱ // 0x2110 @0xf
0x2101…2145 at0010 = ╱20╱…╱ // 0x2111 @0x10
0x2101…2145 at0011 = ╱74╱t╱ // 0x2112 @0x11
0x2101…2145 at0012 = ╱69╱i╱ // 0x2113 @0x12
0x2101…2145 at0013 = ╱6c╱l╱ // 0x2114 @0x13
0x2101…2145 at0014 = ╱20╱…╱ // 0x2115 @0x14
0x2101…2145 at0015 = ╱66╱f╱ // 0x2116 @0x15
0x2101…2145 at0016 = ╱6c╱l╱ // 0x2117 @0x16
0x2101…2145 at0017 = ╱65╱e╱ // 0x2118 @0x17
0x2101…2145 at0018 = ╱72╱r╱ // 0x2119 @0x18
0x2101…2145 at0019 = ╱65╱e╱ // 0x211a @0x19
0x2101…2145 at001a = ╱20╱…╱ // 0x211b @0x1a
0x2101…2145 at001b = ╱6b╱k╱ // 0x211c @0x1b
0x2101…2145 at001c = ╱6f╱o╱ // 0x211d @0x1c
0x2101…2145 at001d = ╱6e╱n╱ // 0x211e @0x1d
0x2101…2145 at001e = ╱74╱t╱ // 0x211f @0x1e
0x2101…2145 at001f = ╱69╱i╱ // 0x2120 @0x1f
0x2101…2145 at0020 = ╱20╱…╱ // 0x2121 @0x20
0x2101…2145 at0021 = ╱2c╱,╱ // 0x2122 @0x21
0x2101…2145 at0022 = ╱20╱…╱ // 0x2123 @0x22
0x2101…2145 at0023 = ╱74╱t╱ // 0x2124 @0x23
0x2101…2145 at0024 = ╱61╱a╱ // 0x2125 @0x24
0x2101…2145 at0025 = ╱73╱s╱ // 0x2126 @0x25
0x2101…2145 at0026 = ╱74╱t╱ // 0x2127 @0x26
0x2101…2145 at0027 = ╱20╱…╱ // 0x2128 @0x27
0x2101…2145 at0028 = ╱52╱R╱ // 0x2129 @0x28
0x2101…2145 at0029 = ╱45╱E╱ // 0x212a @0x29
0x2101…2145 at002a = ╱54╱T╱ // 0x212b @0x2a
0x2101…2145 at002b = ╱55╱U╱ // 0x212c @0x2b
0x2101…2145 at002c = ╱52╱R╱ // 0x212d @0x2c
0x2101…2145 at002d = ╱4e╱N╱ // 0x212e @0x2d
0x2101…2145 at002e = ╱20╱…╱ // 0x212f @0x2e
0x2101…2145 at002f = ╱20╱…╱ // 0x2130 @0x2f
0x2101…2145 at0030 = ╱20╱…╱ // 0x2131 @0x30
0x2101…2145 at0031 = ╱20╱…╱ // 0x2132 @0x31
0x2101…2145 at0032 = ╱20╱…╱ // 0x2133 @0x32
0x2101…2145 at0033 = ╱20╱…╱ // 0x2134 @0x33
0x2101…2145 at0034 = ╱20╱…╱ // 0x2135 @0x34
0x2101…2145 at0035 = ╱20╱…╱ // 0x2136 @0x35
0x2101…2145 at0036 = ╱20╱…╱ // 0x2137 @0x36
0x2101…2145 at0037 = ╱20╱…╱ // 0x2138 @0x37
0x2101…2145 at0038 = ╱20╱…╱ // 0x2139 @0x38
0x2101…2145 at0039 = ╱20╱…╱ // 0x213a @0x39
0x2101…2145 at003a = ╱20╱…╱ // 0x213b @0x3a
0x2101…2145 at003b = ╱20╱…╱ // 0x213c @0x3b
0x2101…2145 at003c = ╱20╱…╱ // 0x213d @0x3c
0x2101…2145 at003d = ╱20╱…╱ // 0x213e @0x3d
0x2101…2145 at003e = ╱20╱…╱ // 0x213f @0x3e
0x2101…2145 at003f = ╱22╱"╱ // 0x2140 @0x3f
0x2101…2145 at0040 = ╱ec╱,╱ // 0x2141 @0x40
0x2101…2145 at0041 = ╱41╱A╱ // 0x2142 @0x41
0x2101…2145 at0042 = ╱ef╱$╱ // 0x2143 @0x42
0x2101…2145 at0043 = EOL // 0x2144 @0x43
0x2101…2145 }
0x2145…214b aea2 3950 ELSE
0x2145…214b LineComalBin {
0x2145…214b ptr = 0xaea2 // 0x2145 @0x0
0x2145…214b lno = 0x0f6e // 0x2147 @0x2
0x2145…214b at0004 = ╱9a╱ ELSE ╱ // 0x2149 @0x4
0x2145…214b at0005 = EOL // 0x214a @0x5
0x2145…214b }
0x214b…2158 aeaf 3960 IF CEKS=B THEN
0x214b…2158 LineComalBin {
0x214b…2158 ptr = 0xaeaf // 0x214b @0x0
0x214b…2158 lno = 0x0f78 // 0x214d @0x2
0x214b…2158 at0004 = ╱9c╱ IF ╱ // 0x214f @0x4
0x214b…2158 at0005 = ╱43╱C╱ // 0x2150 @0x5
0x214b…2158 at0006 = ╱45╱E╱ // 0x2151 @0x6
0x214b…2158 at0007 = ╱4b╱K╱ // 0x2152 @0x7
0x214b…2158 at0008 = ╱53╱S╱ // 0x2153 @0x8
0x214b…2158 at0009 = ╱dc╱=╱ // 0x2154 @0x9
0x214b…2158 at000a = ╱42╱B╱ // 0x2155 @0xa
0x214b…2158 at000b = ╱b6╱ THEN ╱ // 0x2156 @0xb
0x214b…2158 at000c = EOL // 0x2157 @0xc
0x214b…2158 }
0x2158…2186 aedd 3970 INPUT "Konto eksisterer ,tast RETURN ",A$
0x2158…2186 LineComalBin {
0x2158…2186 ptr = 0xaedd // 0x2158 @0x0
0x2158…2186 lno = 0x0f82 // 0x215a @0x2
0x2158…2186 at0004 = ╱91╱ INPUT ╱ // 0x215c @0x4
0x2158…2186 at0005 = ╱22╱"╱ // 0x215d @0x5
0x2158…2186 at0006 = ╱4b╱K╱ // 0x215e @0x6
0x2158…2186 at0007 = ╱6f╱o╱ // 0x215f @0x7
0x2158…2186 at0008 = ╱6e╱n╱ // 0x2160 @0x8
0x2158…2186 at0009 = ╱74╱t╱ // 0x2161 @0x9
0x2158…2186 at000a = ╱6f╱o╱ // 0x2162 @0xa
0x2158…2186 at000b = ╱20╱…╱ // 0x2163 @0xb
0x2158…2186 at000c = ╱65╱e╱ // 0x2164 @0xc
0x2158…2186 at000d = ╱6b╱k╱ // 0x2165 @0xd
0x2158…2186 at000e = ╱73╱s╱ // 0x2166 @0xe
0x2158…2186 at000f = ╱69╱i╱ // 0x2167 @0xf
0x2158…2186 at0010 = ╱73╱s╱ // 0x2168 @0x10
0x2158…2186 at0011 = ╱74╱t╱ // 0x2169 @0x11
0x2158…2186 at0012 = ╱65╱e╱ // 0x216a @0x12
0x2158…2186 at0013 = ╱72╱r╱ // 0x216b @0x13
0x2158…2186 at0014 = ╱65╱e╱ // 0x216c @0x14
0x2158…2186 at0015 = ╱72╱r╱ // 0x216d @0x15
0x2158…2186 at0016 = ╱20╱…╱ // 0x216e @0x16
0x2158…2186 at0017 = ╱2c╱,╱ // 0x216f @0x17
0x2158…2186 at0018 = ╱74╱t╱ // 0x2170 @0x18
0x2158…2186 at0019 = ╱61╱a╱ // 0x2171 @0x19
0x2158…2186 at001a = ╱73╱s╱ // 0x2172 @0x1a
0x2158…2186 at001b = ╱74╱t╱ // 0x2173 @0x1b
0x2158…2186 at001c = ╱20╱…╱ // 0x2174 @0x1c
0x2158…2186 at001d = ╱52╱R╱ // 0x2175 @0x1d
0x2158…2186 at001e = ╱45╱E╱ // 0x2176 @0x1e
0x2158…2186 at001f = ╱54╱T╱ // 0x2177 @0x1f
0x2158…2186 at0020 = ╱55╱U╱ // 0x2178 @0x20
0x2158…2186 at0021 = ╱52╱R╱ // 0x2179 @0x21
0x2158…2186 at0022 = ╱4e╱N╱ // 0x217a @0x22
0x2158…2186 at0023 = ╱20╱…╱ // 0x217b @0x23
0x2158…2186 at0024 = ╱20╱…╱ // 0x217c @0x24
0x2158…2186 at0025 = ╱20╱…╱ // 0x217d @0x25
0x2158…2186 at0026 = ╱20╱…╱ // 0x217e @0x26
0x2158…2186 at0027 = ╱20╱…╱ // 0x217f @0x27
0x2158…2186 at0028 = ╱20╱…╱ // 0x2180 @0x28
0x2158…2186 at0029 = ╱22╱"╱ // 0x2181 @0x29
0x2158…2186 at002a = ╱ec╱,╱ // 0x2182 @0x2a
0x2158…2186 at002b = ╱41╱A╱ // 0x2183 @0x2b
0x2158…2186 at002c = ╱ef╱$╱ // 0x2184 @0x2c
0x2158…2186 at002d = EOL // 0x2185 @0x2d
0x2158…2186 }
0x2186…218c aee3 3980 ELSE
0x2186…218c LineComalBin {
0x2186…218c ptr = 0xaee3 // 0x2186 @0x0
0x2186…218c lno = 0x0f8c // 0x2188 @0x2
0x2186…218c at0004 = ╱9a╱ ELSE ╱ // 0x218a @0x4
0x2186…218c at0005 = EOL // 0x218b @0x5
0x2186…218c }
0x218c…21ba af11 3990 INPUT "Konto eksisterer ikke , tast RETURN",A$
0x218c…21ba LineComalBin {
0x218c…21ba ptr = 0xaf11 // 0x218c @0x0
0x218c…21ba lno = 0x0f96 // 0x218e @0x2
0x218c…21ba at0004 = ╱91╱ INPUT ╱ // 0x2190 @0x4
0x218c…21ba at0005 = ╱22╱"╱ // 0x2191 @0x5
0x218c…21ba at0006 = ╱4b╱K╱ // 0x2192 @0x6
0x218c…21ba at0007 = ╱6f╱o╱ // 0x2193 @0x7
0x218c…21ba at0008 = ╱6e╱n╱ // 0x2194 @0x8
0x218c…21ba at0009 = ╱74╱t╱ // 0x2195 @0x9
0x218c…21ba at000a = ╱6f╱o╱ // 0x2196 @0xa
0x218c…21ba at000b = ╱20╱…╱ // 0x2197 @0xb
0x218c…21ba at000c = ╱65╱e╱ // 0x2198 @0xc
0x218c…21ba at000d = ╱6b╱k╱ // 0x2199 @0xd
0x218c…21ba at000e = ╱73╱s╱ // 0x219a @0xe
0x218c…21ba at000f = ╱69╱i╱ // 0x219b @0xf
0x218c…21ba at0010 = ╱73╱s╱ // 0x219c @0x10
0x218c…21ba at0011 = ╱74╱t╱ // 0x219d @0x11
0x218c…21ba at0012 = ╱65╱e╱ // 0x219e @0x12
0x218c…21ba at0013 = ╱72╱r╱ // 0x219f @0x13
0x218c…21ba at0014 = ╱65╱e╱ // 0x21a0 @0x14
0x218c…21ba at0015 = ╱72╱r╱ // 0x21a1 @0x15
0x218c…21ba at0016 = ╱20╱…╱ // 0x21a2 @0x16
0x218c…21ba at0017 = ╱69╱i╱ // 0x21a3 @0x17
0x218c…21ba at0018 = ╱6b╱k╱ // 0x21a4 @0x18
0x218c…21ba at0019 = ╱6b╱k╱ // 0x21a5 @0x19
0x218c…21ba at001a = ╱65╱e╱ // 0x21a6 @0x1a
0x218c…21ba at001b = ╱20╱…╱ // 0x21a7 @0x1b
0x218c…21ba at001c = ╱2c╱,╱ // 0x21a8 @0x1c
0x218c…21ba at001d = ╱20╱…╱ // 0x21a9 @0x1d
0x218c…21ba at001e = ╱74╱t╱ // 0x21aa @0x1e
0x218c…21ba at001f = ╱61╱a╱ // 0x21ab @0x1f
0x218c…21ba at0020 = ╱73╱s╱ // 0x21ac @0x20
0x218c…21ba at0021 = ╱74╱t╱ // 0x21ad @0x21
0x218c…21ba at0022 = ╱20╱…╱ // 0x21ae @0x22
0x218c…21ba at0023 = ╱52╱R╱ // 0x21af @0x23
0x218c…21ba at0024 = ╱45╱E╱ // 0x21b0 @0x24
0x218c…21ba at0025 = ╱54╱T╱ // 0x21b1 @0x25
0x218c…21ba at0026 = ╱55╱U╱ // 0x21b2 @0x26
0x218c…21ba at0027 = ╱52╱R╱ // 0x21b3 @0x27
0x218c…21ba at0028 = ╱4e╱N╱ // 0x21b4 @0x28
0x218c…21ba at0029 = ╱22╱"╱ // 0x21b5 @0x29
0x218c…21ba at002a = ╱ec╱,╱ // 0x21b6 @0x2a
0x218c…21ba at002b = ╱41╱A╱ // 0x21b7 @0x2b
0x218c…21ba at002c = ╱ef╱$╱ // 0x21b8 @0x2c
0x218c…21ba at002d = EOL // 0x21b9 @0x2d
0x218c…21ba }
0x21ba…21c0 af17 4000 ENDIF
0x21ba…21c0 LineComalBin {
0x21ba…21c0 ptr = 0xaf17 // 0x21ba @0x0
0x21ba…21c0 lno = 0x0fa0 // 0x21bc @0x2
0x21ba…21c0 at0004 = ╱9b╱ ENDIF ╱ // 0x21be @0x4
0x21ba…21c0 at0005 = EOL // 0x21bf @0x5
0x21ba…21c0 }
0x21c0…21c6 af1d 4010 ENDIF
0x21c0…21c6 LineComalBin {
0x21c0…21c6 ptr = 0xaf1d // 0x21c0 @0x0
0x21c0…21c6 lno = 0x0faa // 0x21c2 @0x2
0x21c0…21c6 at0004 = ╱9b╱ ENDIF ╱ // 0x21c4 @0x4
0x21c0…21c6 at0005 = EOL // 0x21c5 @0x5
0x21c0…21c6 }
0x21c6…21d6 af2d 4020 EXEC NRTEST(A$)
0x21c6…21d6 LineComalBin {
0x21c6…21d6 ptr = 0xaf2d // 0x21c6 @0x0
0x21c6…21d6 lno = 0x0fb4 // 0x21c8 @0x2
0x21c6…21d6 at0004 = ╱9d╱ EXEC ╱ // 0x21ca @0x4
0x21c6…21d6 at0005 = ╱4e╱N╱ // 0x21cb @0x5
0x21c6…21d6 at0006 = ╱52╱R╱ // 0x21cc @0x6
0x21c6…21d6 at0007 = ╱54╱T╱ // 0x21cd @0x7
0x21c6…21d6 at0008 = ╱45╱E╱ // 0x21ce @0x8
0x21c6…21d6 at0009 = ╱53╱S╱ // 0x21cf @0x9
0x21c6…21d6 at000a = ╱54╱T╱ // 0x21d0 @0xa
0x21c6…21d6 at000b = ╱ed╱(╱ // 0x21d1 @0xb
0x21c6…21d6 at000c = ╱41╱A╱ // 0x21d2 @0xc
0x21c6…21d6 at000d = ╱ef╱$╱ // 0x21d3 @0xd
0x21c6…21d6 at000e = ╱ee╱)╱ // 0x21d4 @0xe
0x21c6…21d6 at000f = EOL // 0x21d5 @0xf
0x21c6…21d6 }
0x21d6…21dc af33 4030 ENDIF
0x21d6…21dc LineComalBin {
0x21d6…21dc ptr = 0xaf33 // 0x21d6 @0x0
0x21d6…21dc lno = 0x0fbe // 0x21d8 @0x2
0x21d6…21dc at0004 = ╱9b╱ ENDIF ╱ // 0x21da @0x4
0x21d6…21dc at0005 = EOL // 0x21db @0x5
0x21d6…21dc }
0x21dc…21e6 af3d 4040 UNTIL P=-E
0x21dc…21e6 LineComalBin {
0x21dc…21e6 ptr = 0xaf3d // 0x21dc @0x0
0x21dc…21e6 lno = 0x0fc8 // 0x21de @0x2
0x21dc…21e6 at0004 = ╱98╱ UNTIL ╱ // 0x21e0 @0x4
0x21dc…21e6 at0005 = ╱50╱P╱ // 0x21e1 @0x5
0x21dc…21e6 at0006 = ╱dc╱=╱ // 0x21e2 @0x6
0x21dc…21e6 at0007 = ╱e9╱-╱ // 0x21e3 @0x7
0x21dc…21e6 at0008 = ╱45╱E╱ // 0x21e4 @0x8
0x21dc…21e6 at0009 = EOL // 0x21e5 @0x9
0x21dc…21e6 }
0x21e6…2218 af6f 4050 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL)
0x21e6…2218 LineComalBin {
0x21e6…2218 ptr = 0xaf6f // 0x21e6 @0x0
0x21e6…2218 lno = 0x0fd2 // 0x21e8 @0x2
0x21e6…2218 at0004 = ╱98╱ UNTIL ╱ // 0x21ea @0x4
0x21e6…2218 at0005 = ╱ed╱(╱ // 0x21eb @0x5
0x21e6…2218 at0006 = ╱43╱C╱ // 0x21ec @0x6
0x21e6…2218 at0007 = ╱45╱E╱ // 0x21ed @0x7
0x21e6…2218 at0008 = ╱4b╱K╱ // 0x21ee @0x8
0x21e6…2218 at0009 = ╱53╱S╱ // 0x21ef @0x9
0x21e6…2218 at000a = ╱dc╱=╱ // 0x21f0 @0xa
0x21e6…2218 at000b = ╱42╱B╱ // 0x21f1 @0xb
0x21e6…2218 at000c = ╱da╱ AND ╱ // 0x21f2 @0xc
0x21e6…2218 at000d = ╱54╱T╱ // 0x21f3 @0xd
0x21e6…2218 at000e = ╱59╱Y╱ // 0x21f4 @0xe
0x21e6…2218 at000f = ╱50╱P╱ // 0x21f5 @0xf
0x21e6…2218 at0010 = ╱45╱E╱ // 0x21f6 @0x10
0x21e6…2218 at0011 = ╱e1╱<>╱ // 0x21f7 @0x11
0x21e6…2218 at0012 = ╱45╱E╱ // 0x21f8 @0x12
0x21e6…2218 at0013 = ╱ee╱)╱ // 0x21f9 @0x13
0x21e6…2218 at0014 = ╱db╱ OR ╱ // 0x21fa @0x14
0x21e6…2218 at0015 = ╱ed╱(╱ // 0x21fb @0x15
0x21e6…2218 at0016 = ╱43╱C╱ // 0x21fc @0x16
0x21e6…2218 at0017 = ╱45╱E╱ // 0x21fd @0x17
0x21e6…2218 at0018 = ╱4b╱K╱ // 0x21fe @0x18
0x21e6…2218 at0019 = ╱53╱S╱ // 0x21ff @0x19
0x21e6…2218 at001a = ╱dc╱=╱ // 0x2200 @0x1a
0x21e6…2218 at001b = ╱45╱E╱ // 0x2201 @0x1b
0x21e6…2218 at001c = ╱da╱ AND ╱ // 0x2202 @0x1c
0x21e6…2218 at001d = ╱54╱T╱ // 0x2203 @0x1d
0x21e6…2218 at001e = ╱59╱Y╱ // 0x2204 @0x1e
0x21e6…2218 at001f = ╱50╱P╱ // 0x2205 @0x1f
0x21e6…2218 at0020 = ╱45╱E╱ // 0x2206 @0x20
0x21e6…2218 at0021 = ╱dc╱=╱ // 0x2207 @0x21
0x21e6…2218 at0022 = ╱45╱E╱ // 0x2208 @0x22
0x21e6…2218 at0023 = ╱da╱ AND ╱ // 0x2209 @0x23
0x21e6…2218 at0024 = ╱41╱A╱ // 0x220a @0x24
0x21e6…2218 at0025 = ╱46╱F╱ // 0x220b @0x25
0x21e6…2218 at0026 = ╱49╱I╱ // 0x220c @0x26
0x21e6…2218 at0027 = ╱4e╱N╱ // 0x220d @0x27
0x21e6…2218 at0028 = ╱dd╱<╱ // 0x220e @0x28
0x21e6…2218 at0029 = ╱4d╱M╱ // 0x220f @0x29
0x21e6…2218 at002a = ╱46╱F╱ // 0x2210 @0x2a
0x21e6…2218 at002b = ╱41╱A╱ // 0x2211 @0x2b
0x21e6…2218 at002c = ╱4e╱N╱ // 0x2212 @0x2c
0x21e6…2218 at002d = ╱54╱T╱ // 0x2213 @0x2d
0x21e6…2218 at002e = ╱41╱A╱ // 0x2214 @0x2e
0x21e6…2218 at002f = ╱4c╱L╱ // 0x2215 @0x2f
0x21e6…2218 at0030 = ╱ee╱)╱ // 0x2216 @0x30
0x21e6…2218 at0031 = EOL // 0x2217 @0x31
0x21e6…2218 }
0x2218…2226 af7d 4060 IF KONT=B THEN EXIT
0x2218…2226 LineComalBin {
0x2218…2226 ptr = 0xaf7d // 0x2218 @0x0
0x2218…2226 lno = 0x0fdc // 0x221a @0x2
0x2218…2226 at0004 = ╱82╱ IF ╱ // 0x221c @0x4
0x2218…2226 at0005 = ╱4b╱K╱ // 0x221d @0x5
0x2218…2226 at0006 = ╱4f╱O╱ // 0x221e @0x6
0x2218…2226 at0007 = ╱4e╱N╱ // 0x221f @0x7
0x2218…2226 at0008 = ╱54╱T╱ // 0x2220 @0x8
0x2218…2226 at0009 = ╱dc╱=╱ // 0x2221 @0x9
0x2218…2226 at000a = ╱42╱B╱ // 0x2222 @0xa
0x2218…2226 at000b = ╱b6╱ THEN ╱ // 0x2223 @0xb
0x2218…2226 at000c = ╱99╱ EXIT ╱ // 0x2224 @0xc
0x2218…2226 at000d = EOL // 0x2225 @0xd
0x2218…2226 }
0x2226…2233 af8a 4070 IF TYPE<>E THEN
0x2226…2233 LineComalBin {
0x2226…2233 ptr = 0xaf8a // 0x2226 @0x0
0x2226…2233 lno = 0x0fe6 // 0x2228 @0x2
0x2226…2233 at0004 = ╱9c╱ IF ╱ // 0x222a @0x4
0x2226…2233 at0005 = ╱54╱T╱ // 0x222b @0x5
0x2226…2233 at0006 = ╱59╱Y╱ // 0x222c @0x6
0x2226…2233 at0007 = ╱50╱P╱ // 0x222d @0x7
0x2226…2233 at0008 = ╱45╱E╱ // 0x222e @0x8
0x2226…2233 at0009 = ╱e1╱<>╱ // 0x222f @0x9
0x2226…2233 at000a = ╱45╱E╱ // 0x2230 @0xa
0x2226…2233 at000b = ╱b6╱ THEN ╱ // 0x2231 @0xb
0x2226…2233 at000c = EOL // 0x2232 @0xc
0x2226…2233 }
0x2233…2247 af9e 4080 FNR=KONT;TEST=B
0x2233…2247 LineComalBin {
0x2233…2247 ptr = 0xaf9e // 0x2233 @0x0
0x2233…2247 lno = 0x0ff0 // 0x2235 @0x2
0x2233…2247 at0004 = ╱46╱F╱ // 0x2237 @0x4
0x2233…2247 at0005 = ╱4e╱N╱ // 0x2238 @0x5
0x2233…2247 at0006 = ╱52╱R╱ // 0x2239 @0x6
0x2233…2247 at0007 = ╱dc╱=╱ // 0x223a @0x7
0x2233…2247 at0008 = ╱4b╱K╱ // 0x223b @0x8
0x2233…2247 at0009 = ╱4f╱O╱ // 0x223c @0x9
0x2233…2247 at000a = ╱4e╱N╱ // 0x223d @0xa
0x2233…2247 at000b = ╱54╱T╱ // 0x223e @0xb
0x2233…2247 at000c = ╱eb╱;╱ // 0x223f @0xc
0x2233…2247 at000d = ╱54╱T╱ // 0x2240 @0xd
0x2233…2247 at000e = ╱45╱E╱ // 0x2241 @0xe
0x2233…2247 at000f = ╱53╱S╱ // 0x2242 @0xf
0x2233…2247 at0010 = ╱54╱T╱ // 0x2243 @0x10
0x2233…2247 at0011 = ╱dc╱=╱ // 0x2244 @0x11
0x2233…2247 at0012 = ╱42╱B╱ // 0x2245 @0x12
0x2233…2247 at0013 = EOL // 0x2246 @0x13
0x2233…2247 }
0x2247…2255 afac 4090 EXEC HENTPOST
0x2247…2255 LineComalBin {
0x2247…2255 ptr = 0xafac // 0x2247 @0x0
0x2247…2255 lno = 0x0ffa // 0x2249 @0x2
0x2247…2255 at0004 = ╱9d╱ EXEC ╱ // 0x224b @0x4
0x2247…2255 at0005 = ╱48╱H╱ // 0x224c @0x5
0x2247…2255 at0006 = ╱45╱E╱ // 0x224d @0x6
0x2247…2255 at0007 = ╱4e╱N╱ // 0x224e @0x7
0x2247…2255 at0008 = ╱54╱T╱ // 0x224f @0x8
0x2247…2255 at0009 = ╱50╱P╱ // 0x2250 @0x9
0x2247…2255 at000a = ╱4f╱O╱ // 0x2251 @0xa
0x2247…2255 at000b = ╱53╱S╱ // 0x2252 @0xb
0x2247…2255 at000c = ╱54╱T╱ // 0x2253 @0xc
0x2247…2255 at000d = EOL // 0x2254 @0xd
0x2247…2255 }
0x2255…226a afc1 4100 IF TYPE=V THEN EXEC DKRTEST
0x2255…226a LineComalBin {
0x2255…226a ptr = 0xafc1 // 0x2255 @0x0
0x2255…226a lno = 0x1004 // 0x2257 @0x2
0x2255…226a at0004 = ╱82╱ IF ╱ // 0x2259 @0x4
0x2255…226a at0005 = ╱54╱T╱ // 0x225a @0x5
0x2255…226a at0006 = ╱59╱Y╱ // 0x225b @0x6
0x2255…226a at0007 = ╱50╱P╱ // 0x225c @0x7
0x2255…226a at0008 = ╱45╱E╱ // 0x225d @0x8
0x2255…226a at0009 = ╱dc╱=╱ // 0x225e @0x9
0x2255…226a at000a = ╱56╱V╱ // 0x225f @0xa
0x2255…226a at000b = ╱b6╱ THEN ╱ // 0x2260 @0xb
0x2255…226a at000c = ╱9d╱ EXEC ╱ // 0x2261 @0xc
0x2255…226a at000d = ╱44╱D╱ // 0x2262 @0xd
0x2255…226a at000e = ╱4b╱K╱ // 0x2263 @0xe
0x2255…226a at000f = ╱52╱R╱ // 0x2264 @0xf
0x2255…226a at0010 = ╱54╱T╱ // 0x2265 @0x10
0x2255…226a at0011 = ╱45╱E╱ // 0x2266 @0x11
0x2255…226a at0012 = ╱53╱S╱ // 0x2267 @0x12
0x2255…226a at0013 = ╱54╱T╱ // 0x2268 @0x13
0x2255…226a at0014 = EOL // 0x2269 @0x14
0x2255…226a }
0x226a…228b afe2 4110 EXEC FINDTAST(2,2,FNR)
0x226a…228b LineComalBin {
0x226a…228b ptr = 0xafe2 // 0x226a @0x0
0x226a…228b lno = 0x100e // 0x226c @0x2
0x226a…228b at0004 = ╱9d╱ EXEC ╱ // 0x226e @0x4
0x226a…228b at0005 = ╱46╱F╱ // 0x226f @0x5
0x226a…228b at0006 = ╱49╱I╱ // 0x2270 @0x6
0x226a…228b at0007 = ╱4e╱N╱ // 0x2271 @0x7
0x226a…228b at0008 = ╱44╱D╱ // 0x2272 @0x8
0x226a…228b at0009 = ╱54╱T╱ // 0x2273 @0x9
0x226a…228b at000a = ╱41╱A╱ // 0x2274 @0xa
0x226a…228b at000b = ╱53╱S╱ // 0x2275 @0xb
0x226a…228b at000c = ╱54╱T╱ // 0x2276 @0xc
0x226a…228b at000d = ╱ed╱(╱ // 0x2277 @0xd
0x226a…228b at000e = ╱32╱2╱ // 0x2278 @0xe
0x226a…228b at000f = ╱fe00008002╱ // 0x2279 @0xf
0x226a…228b at0014 = ╱ec╱,╱ // 0x227e @0x14
0x226a…228b at0015 = ╱32╱2╱ // 0x227f @0x15
0x226a…228b at0016 = ╱fe00008002╱ // 0x2280 @0x16
0x226a…228b at001b = ╱ec╱,╱ // 0x2285 @0x1b
0x226a…228b at001c = ╱46╱F╱ // 0x2286 @0x1c
0x226a…228b at001d = ╱4e╱N╱ // 0x2287 @0x1d
0x226a…228b at001e = ╱52╱R╱ // 0x2288 @0x1e
0x226a…228b at001f = ╱ee╱)╱ // 0x2289 @0x1f
0x226a…228b at0020 = EOL // 0x228a @0x20
0x226a…228b }
0x228b…2291 afe8 4120 ELSE
0x228b…2291 LineComalBin {
0x228b…2291 ptr = 0xafe8 // 0x228b @0x0
0x228b…2291 lno = 0x1018 // 0x228d @0x2
0x228b…2291 at0004 = ╱9a╱ ELSE ╱ // 0x228f @0x4
0x228b…2291 at0005 = EOL // 0x2290 @0x5
0x228b…2291 }
0x2291…22e0 b037 4130 FNR=KONT;FNAVN$=BLANK$(E:25);FMKODE$=" ";FMDEBET$="0+";FMKREDIT$="0+"
0x2291…22e0 LineComalBin {
0x2291…22e0 ptr = 0xb037 // 0x2291 @0x0
0x2291…22e0 lno = 0x1022 // 0x2293 @0x2
0x2291…22e0 at0004 = ╱46╱F╱ // 0x2295 @0x4
0x2291…22e0 at0005 = ╱4e╱N╱ // 0x2296 @0x5
0x2291…22e0 at0006 = ╱52╱R╱ // 0x2297 @0x6
0x2291…22e0 at0007 = ╱dc╱=╱ // 0x2298 @0x7
0x2291…22e0 at0008 = ╱4b╱K╱ // 0x2299 @0x8
0x2291…22e0 at0009 = ╱4f╱O╱ // 0x229a @0x9
0x2291…22e0 at000a = ╱4e╱N╱ // 0x229b @0xa
0x2291…22e0 at000b = ╱54╱T╱ // 0x229c @0xb
0x2291…22e0 at000c = ╱eb╱;╱ // 0x229d @0xc
0x2291…22e0 at000d = ╱46╱F╱ // 0x229e @0xd
0x2291…22e0 at000e = ╱4e╱N╱ // 0x229f @0xe
0x2291…22e0 at000f = ╱41╱A╱ // 0x22a0 @0xf
0x2291…22e0 at0010 = ╱56╱V╱ // 0x22a1 @0x10
0x2291…22e0 at0011 = ╱4e╱N╱ // 0x22a2 @0x11
0x2291…22e0 at0012 = ╱ef╱$╱ // 0x22a3 @0x12
0x2291…22e0 at0013 = ╱dc╱=╱ // 0x22a4 @0x13
0x2291…22e0 at0014 = ╱42╱B╱ // 0x22a5 @0x14
0x2291…22e0 at0015 = ╱4c╱L╱ // 0x22a6 @0x15
0x2291…22e0 at0016 = ╱41╱A╱ // 0x22a7 @0x16
0x2291…22e0 at0017 = ╱4e╱N╱ // 0x22a8 @0x17
0x2291…22e0 at0018 = ╱4b╱K╱ // 0x22a9 @0x18
0x2291…22e0 at0019 = ╱ef╱$╱ // 0x22aa @0x19
0x2291…22e0 at001a = ╱ed╱(╱ // 0x22ab @0x1a
0x2291…22e0 at001b = ╱45╱E╱ // 0x22ac @0x1b
0x2291…22e0 at001c = ╱f0╱:╱ // 0x22ad @0x1c
0x2291…22e0 at001d = ╱32╱2╱ // 0x22ae @0x1d
0x2291…22e0 at001e = ╱35╱5╱ // 0x22af @0x1e
0x2291…22e0 at001f = ╱fe0000c805╱ // 0x22b0 @0x1f
0x2291…22e0 at0024 = ╱ee╱)╱ // 0x22b5 @0x24
0x2291…22e0 at0025 = ╱eb╱;╱ // 0x22b6 @0x25
0x2291…22e0 at0026 = ╱46╱F╱ // 0x22b7 @0x26
0x2291…22e0 at0027 = ╱4d╱M╱ // 0x22b8 @0x27
0x2291…22e0 at0028 = ╱4b╱K╱ // 0x22b9 @0x28
0x2291…22e0 at0029 = ╱4f╱O╱ // 0x22ba @0x29
0x2291…22e0 at002a = ╱44╱D╱ // 0x22bb @0x2a
0x2291…22e0 at002b = ╱45╱E╱ // 0x22bc @0x2b
0x2291…22e0 at002c = ╱ef╱$╱ // 0x22bd @0x2c
0x2291…22e0 at002d = ╱dc╱=╱ // 0x22be @0x2d
0x2291…22e0 at002e = ╱22╱"╱ // 0x22bf @0x2e
0x2291…22e0 at002f = ╱20╱…╱ // 0x22c0 @0x2f
0x2291…22e0 at0030 = ╱22╱"╱ // 0x22c1 @0x30
0x2291…22e0 at0031 = ╱eb╱;╱ // 0x22c2 @0x31
0x2291…22e0 at0032 = ╱46╱F╱ // 0x22c3 @0x32
0x2291…22e0 at0033 = ╱4d╱M╱ // 0x22c4 @0x33
0x2291…22e0 at0034 = ╱44╱D╱ // 0x22c5 @0x34
0x2291…22e0 at0035 = ╱45╱E╱ // 0x22c6 @0x35
0x2291…22e0 at0036 = ╱42╱B╱ // 0x22c7 @0x36
0x2291…22e0 at0037 = ╱45╱E╱ // 0x22c8 @0x37
0x2291…22e0 at0038 = ╱54╱T╱ // 0x22c9 @0x38
0x2291…22e0 at0039 = ╱ef╱$╱ // 0x22ca @0x39
0x2291…22e0 at003a = ╱dc╱=╱ // 0x22cb @0x3a
0x2291…22e0 at003b = ╱22╱"╱ // 0x22cc @0x3b
0x2291…22e0 at003c = ╱30╱0╱ // 0x22cd @0x3c
0x2291…22e0 at003d = ╱2b╱+╱ // 0x22ce @0x3d
0x2291…22e0 at003e = ╱22╱"╱ // 0x22cf @0x3e
0x2291…22e0 at003f = ╱eb╱;╱ // 0x22d0 @0x3f
0x2291…22e0 at0040 = ╱46╱F╱ // 0x22d1 @0x40
0x2291…22e0 at0041 = ╱4d╱M╱ // 0x22d2 @0x41
0x2291…22e0 at0042 = ╱4b╱K╱ // 0x22d3 @0x42
0x2291…22e0 at0043 = ╱52╱R╱ // 0x22d4 @0x43
0x2291…22e0 at0044 = ╱45╱E╱ // 0x22d5 @0x44
0x2291…22e0 at0045 = ╱44╱D╱ // 0x22d6 @0x45
0x2291…22e0 at0046 = ╱49╱I╱ // 0x22d7 @0x46
0x2291…22e0 at0047 = ╱54╱T╱ // 0x22d8 @0x47
0x2291…22e0 at0048 = ╱ef╱$╱ // 0x22d9 @0x48
0x2291…22e0 at0049 = ╱dc╱=╱ // 0x22da @0x49
0x2291…22e0 at004a = ╱22╱"╱ // 0x22db @0x4a
0x2291…22e0 at004b = ╱30╱0╱ // 0x22dc @0x4b
0x2291…22e0 at004c = ╱2b╱+╱ // 0x22dd @0x4c
0x2291…22e0 at004d = ╱22╱"╱ // 0x22de @0x4d
0x2291…22e0 at004e = EOL // 0x22df @0x4e
0x2291…22e0 }
0x22e0…230d b064 4140 FUKODE$=" ";FÅDEBET$="0+";FÅKREDIT$="0+"
0x22e0…230d LineComalBin {
0x22e0…230d ptr = 0xb064 // 0x22e0 @0x0
0x22e0…230d lno = 0x102c // 0x22e2 @0x2
0x22e0…230d at0004 = ╱46╱F╱ // 0x22e4 @0x4
0x22e0…230d at0005 = ╱55╱U╱ // 0x22e5 @0x5
0x22e0…230d at0006 = ╱4b╱K╱ // 0x22e6 @0x6
0x22e0…230d at0007 = ╱4f╱O╱ // 0x22e7 @0x7
0x22e0…230d at0008 = ╱44╱D╱ // 0x22e8 @0x8
0x22e0…230d at0009 = ╱45╱E╱ // 0x22e9 @0x9
0x22e0…230d at000a = ╱ef╱$╱ // 0x22ea @0xa
0x22e0…230d at000b = ╱dc╱=╱ // 0x22eb @0xb
0x22e0…230d at000c = ╱22╱"╱ // 0x22ec @0xc
0x22e0…230d at000d = ╱20╱…╱ // 0x22ed @0xd
0x22e0…230d at000e = ╱22╱"╱ // 0x22ee @0xe
0x22e0…230d at000f = ╱eb╱;╱ // 0x22ef @0xf
0x22e0…230d at0010 = ╱46╱F╱ // 0x22f0 @0x10
0x22e0…230d at0011 = ╱5d╱Å╱ // 0x22f1 @0x11
0x22e0…230d at0012 = ╱44╱D╱ // 0x22f2 @0x12
0x22e0…230d at0013 = ╱45╱E╱ // 0x22f3 @0x13
0x22e0…230d at0014 = ╱42╱B╱ // 0x22f4 @0x14
0x22e0…230d at0015 = ╱45╱E╱ // 0x22f5 @0x15
0x22e0…230d at0016 = ╱54╱T╱ // 0x22f6 @0x16
0x22e0…230d at0017 = ╱ef╱$╱ // 0x22f7 @0x17
0x22e0…230d at0018 = ╱dc╱=╱ // 0x22f8 @0x18
0x22e0…230d at0019 = ╱22╱"╱ // 0x22f9 @0x19
0x22e0…230d at001a = ╱30╱0╱ // 0x22fa @0x1a
0x22e0…230d at001b = ╱2b╱+╱ // 0x22fb @0x1b
0x22e0…230d at001c = ╱22╱"╱ // 0x22fc @0x1c
0x22e0…230d at001d = ╱eb╱;╱ // 0x22fd @0x1d
0x22e0…230d at001e = ╱46╱F╱ // 0x22fe @0x1e
0x22e0…230d at001f = ╱5d╱Å╱ // 0x22ff @0x1f
0x22e0…230d at0020 = ╱4b╱K╱ // 0x2300 @0x20
0x22e0…230d at0021 = ╱52╱R╱ // 0x2301 @0x21
0x22e0…230d at0022 = ╱45╱E╱ // 0x2302 @0x22
0x22e0…230d at0023 = ╱44╱D╱ // 0x2303 @0x23
0x22e0…230d at0024 = ╱49╱I╱ // 0x2304 @0x24
0x22e0…230d at0025 = ╱54╱T╱ // 0x2305 @0x25
0x22e0…230d at0026 = ╱ef╱$╱ // 0x2306 @0x26
0x22e0…230d at0027 = ╱dc╱=╱ // 0x2307 @0x27
0x22e0…230d at0028 = ╱22╱"╱ // 0x2308 @0x28
0x22e0…230d at0029 = ╱30╱0╱ // 0x2309 @0x29
0x22e0…230d at002a = ╱2b╱+╱ // 0x230a @0x2a
0x22e0…230d at002b = ╱22╱"╱ // 0x230b @0x2b
0x22e0…230d at002c = EOL // 0x230c @0x2c
0x22e0…230d }
0x230d…232e b085 4150 EXEC FINDTAST(2,0,FNR)
0x230d…232e LineComalBin {
0x230d…232e ptr = 0xb085 // 0x230d @0x0
0x230d…232e lno = 0x1036 // 0x230f @0x2
0x230d…232e at0004 = ╱9d╱ EXEC ╱ // 0x2311 @0x4
0x230d…232e at0005 = ╱46╱F╱ // 0x2312 @0x5
0x230d…232e at0006 = ╱49╱I╱ // 0x2313 @0x6
0x230d…232e at0007 = ╱4e╱N╱ // 0x2314 @0x7
0x230d…232e at0008 = ╱44╱D╱ // 0x2315 @0x8
0x230d…232e at0009 = ╱54╱T╱ // 0x2316 @0x9
0x230d…232e at000a = ╱41╱A╱ // 0x2317 @0xa
0x230d…232e at000b = ╱53╱S╱ // 0x2318 @0xb
0x230d…232e at000c = ╱54╱T╱ // 0x2319 @0xc
0x230d…232e at000d = ╱ed╱(╱ // 0x231a @0xd
0x230d…232e at000e = ╱32╱2╱ // 0x231b @0xe
0x230d…232e at000f = ╱fe00008002╱ // 0x231c @0xf
0x230d…232e at0014 = ╱ec╱,╱ // 0x2321 @0x14
0x230d…232e at0015 = ╱30╱0╱ // 0x2322 @0x15
0x230d…232e at0016 = ╱fe00000000╱ // 0x2323 @0x16
0x230d…232e at001b = ╱ec╱,╱ // 0x2328 @0x1b
0x230d…232e at001c = ╱46╱F╱ // 0x2329 @0x1c
0x230d…232e at001d = ╱4e╱N╱ // 0x232a @0x1d
0x230d…232e at001e = ╱52╱R╱ // 0x232b @0x1e
0x230d…232e at001f = ╱ee╱)╱ // 0x232c @0x1f
0x230d…232e at0020 = EOL // 0x232d @0x20
0x230d…232e }
0x232e…2334 b08b 4160 ENDIF
0x232e…2334 LineComalBin {
0x232e…2334 ptr = 0xb08b // 0x232e @0x0
0x232e…2334 lno = 0x1040 // 0x2330 @0x2
0x232e…2334 at0004 = ╱9b╱ ENDIF ╱ // 0x2332 @0x4
0x232e…2334 at0005 = EOL // 0x2333 @0x5
0x232e…2334 }
0x2334…233a b091 4170 ENDIF
0x2334…233a LineComalBin {
0x2334…233a ptr = 0xb091 // 0x2334 @0x0
0x2334…233a lno = 0x104a // 0x2336 @0x2
0x2334…233a at0004 = ╱9b╱ ENDIF ╱ // 0x2338 @0x4
0x2334…233a at0005 = EOL // 0x2339 @0x5
0x2334…233a }
0x233a…2348 b09f 4180 IF KONT=B THEN EXIT
0x233a…2348 LineComalBin {
0x233a…2348 ptr = 0xb09f // 0x233a @0x0
0x233a…2348 lno = 0x1054 // 0x233c @0x2
0x233a…2348 at0004 = ╱82╱ IF ╱ // 0x233e @0x4
0x233a…2348 at0005 = ╱4b╱K╱ // 0x233f @0x5
0x233a…2348 at0006 = ╱4f╱O╱ // 0x2340 @0x6
0x233a…2348 at0007 = ╱4e╱N╱ // 0x2341 @0x7
0x233a…2348 at0008 = ╱54╱T╱ // 0x2342 @0x8
0x233a…2348 at0009 = ╱dc╱=╱ // 0x2343 @0x9
0x233a…2348 at000a = ╱42╱B╱ // 0x2344 @0xa
0x233a…2348 at000b = ╱b6╱ THEN ╱ // 0x2345 @0xb
0x233a…2348 at000c = ╱99╱ EXIT ╱ // 0x2346 @0xc
0x233a…2348 at000d = EOL // 0x2347 @0xd
0x233a…2348 }
0x2348…2355 b0ac 4190 IF TEST=B THEN
0x2348…2355 LineComalBin {
0x2348…2355 ptr = 0xb0ac // 0x2348 @0x0
0x2348…2355 lno = 0x105e // 0x234a @0x2
0x2348…2355 at0004 = ╱9c╱ IF ╱ // 0x234c @0x4
0x2348…2355 at0005 = ╱54╱T╱ // 0x234d @0x5
0x2348…2355 at0006 = ╱45╱E╱ // 0x234e @0x6
0x2348…2355 at0007 = ╱53╱S╱ // 0x234f @0x7
0x2348…2355 at0008 = ╱54╱T╱ // 0x2350 @0x8
0x2348…2355 at0009 = ╱dc╱=╱ // 0x2351 @0x9
0x2348…2355 at000a = ╱42╱B╱ // 0x2352 @0xa
0x2348…2355 at000b = ╱b6╱ THEN ╱ // 0x2353 @0xb
0x2348…2355 at000c = EOL // 0x2354 @0xc
0x2348…2355 }
0x2355…2361 b0b8 4200 CASE TYPE OF
0x2355…2361 LineComalBin {
0x2355…2361 ptr = 0xb0b8 // 0x2355 @0x0
0x2355…2361 lno = 0x1068 // 0x2357 @0x2
0x2355…2361 at0004 = ╱a201╱ CASE ╱ // 0x2359 @0x4
0x2355…2361 at0006 = ╱54╱T╱ // 0x235b @0x6
0x2355…2361 at0007 = ╱59╱Y╱ // 0x235c @0x7
0x2355…2361 at0008 = ╱50╱P╱ // 0x235d @0x8
0x2355…2361 at0009 = ╱45╱E╱ // 0x235e @0x9
0x2355…2361 at000a = ╱ba╱ OF ╱ // 0x235f @0xa
0x2355…2361 at000b = EOL // 0x2360 @0xb
0x2355…2361 }
0x2361…2367 b0be 4210 STOP
0x2361…2367 LineComalBin {
0x2361…2367 ptr = 0xb0be // 0x2361 @0x0
0x2361…2367 lno = 0x1072 // 0x2363 @0x2
0x2361…2367 at0004 = ╱8d╱ STOP ╱ // 0x2365 @0x4
0x2361…2367 at0005 = EOL // 0x2366 @0x5
0x2361…2367 }
0x2367…2371 b0c8 4220 WHEN E,G
0x2367…2371 LineComalBin {
0x2367…2371 ptr = 0xb0c8 // 0x2367 @0x0
0x2367…2371 lno = 0x107c // 0x2369 @0x2
0x2367…2371 at0004 = ╱a301╱ WHEN ╱ // 0x236b @0x4
0x2367…2371 at0006 = ╱45╱E╱ // 0x236d @0x6
0x2367…2371 at0007 = ╱ec╱,╱ // 0x236e @0x7
0x2367…2371 at0008 = ╱47╱G╱ // 0x236f @0x8
0x2367…2371 at0009 = EOL // 0x2370 @0x9
0x2367…2371 }
0x2371…2377 b0ce 4230 REPEAT
0x2371…2377 LineComalBin {
0x2371…2377 ptr = 0xb0ce // 0x2371 @0x0
0x2371…2377 lno = 0x1086 // 0x2373 @0x2
0x2371…2377 at0004 = ╱97╱ REPEAT ╱ // 0x2375 @0x4
0x2371…2377 at0005 = EOL // 0x2376 @0x5
0x2371…2377 }
0x2377…237d b0d4 4240 REPEAT
0x2377…237d LineComalBin {
0x2377…237d ptr = 0xb0d4 // 0x2377 @0x0
0x2377…237d lno = 0x1090 // 0x2379 @0x2
0x2377…237d at0004 = ╱97╱ REPEAT ╱ // 0x237b @0x4
0x2377…237d at0005 = EOL // 0x237c @0x5
0x2377…237d }
0x237d…238c b0e3 4250 CURSOR V,23
0x237d…238c LineComalBin {
0x237d…238c ptr = 0xb0e3 // 0x237d @0x0
0x237d…238c lno = 0x109a // 0x237f @0x2
0x237d…238c at0004 = ╱a1╱ CURSOR ╱ // 0x2381 @0x4
0x237d…238c at0005 = ╱56╱V╱ // 0x2382 @0x5
0x237d…238c at0006 = ╱ec╱,╱ // 0x2383 @0x6
0x237d…238c at0007 = ╱32╱2╱ // 0x2384 @0x7
0x237d…238c at0008 = ╱33╱3╱ // 0x2385 @0x8
0x237d…238c at0009 = ╱fe0000b805╱ // 0x2386 @0x9
0x237d…238c at000e = EOL // 0x238b @0xe
0x237d…238c }
0x238c…23ca b121 4260 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-4, ";
0x238c…23ca LineComalBin {
0x238c…23ca ptr = 0xb121 // 0x238c @0x0
0x238c…23ca lno = 0x10a4 // 0x238e @0x2
0x238c…23ca at0004 = ╱92╱ PRINT ╱ // 0x2390 @0x4
0x238c…23ca at0005 = ╱22╱"╱ // 0x2391 @0x5
0x238c…23ca at0006 = ╱48╱H╱ // 0x2392 @0x6
0x238c…23ca at0007 = ╱76╱v╱ // 0x2393 @0x7
0x238c…23ca at0008 = ╱69╱i╱ // 0x2394 @0x8
0x238c…23ca at0009 = ╱6c╱l╱ // 0x2395 @0x9
0x238c…23ca at000a = ╱6b╱k╱ // 0x2396 @0xa
0x238c…23ca at000b = ╱65╱e╱ // 0x2397 @0xb
0x238c…23ca at000c = ╱74╱t╱ // 0x2398 @0xc
0x238c…23ca at000d = ╱20╱…╱ // 0x2399 @0xd
0x238c…23ca at000e = ╱66╱f╱ // 0x239a @0xe
0x238c…23ca at000f = ╱65╱e╱ // 0x239b @0xf
0x238c…23ca at0010 = ╱6c╱l╱ // 0x239c @0x10
0x238c…23ca at0011 = ╱74╱t╱ // 0x239d @0x11
0x238c…23ca at0012 = ╱20╱…╱ // 0x239e @0x12
0x238c…23ca at0013 = ╱7c╱ø╱ // 0x239f @0x13
0x238c…23ca at0014 = ╱6e╱n╱ // 0x23a0 @0x14
0x238c…23ca at0015 = ╱73╱s╱ // 0x23a1 @0x15
0x238c…23ca at0016 = ╱6b╱k╱ // 0x23a2 @0x16
0x238c…23ca at0017 = ╱65╱e╱ // 0x23a3 @0x17
0x238c…23ca at0018 = ╱73╱s╱ // 0x23a4 @0x18
0x238c…23ca at0019 = ╱20╱…╱ // 0x23a5 @0x19
0x238c…23ca at001a = ╱7b╱æ╱ // 0x23a6 @0x1a
0x238c…23ca at001b = ╱6e╱n╱ // 0x23a7 @0x1b
0x238c…23ca at001c = ╱64╱d╱ // 0x23a8 @0x1c
0x238c…23ca at001d = ╱72╱r╱ // 0x23a9 @0x1d
0x238c…23ca at001e = ╱65╱e╱ // 0x23aa @0x1e
0x238c…23ca at001f = ╱74╱t╱ // 0x23ab @0x1f
0x238c…23ca at0020 = ╱20╱…╱ // 0x23ac @0x20
0x238c…23ca at0021 = ╱20╱…╱ // 0x23ad @0x21
0x238c…23ca at0022 = ╱20╱…╱ // 0x23ae @0x22
0x238c…23ca at0023 = ╱20╱…╱ // 0x23af @0x23
0x238c…23ca at0024 = ╱20╱…╱ // 0x23b0 @0x24
0x238c…23ca at0025 = ╱20╱…╱ // 0x23b1 @0x25
0x238c…23ca at0026 = ╱28╱(╱ // 0x23b2 @0x26
0x238c…23ca at0027 = ╱49╱I╱ // 0x23b3 @0x27
0x238c…23ca at0028 = ╱6e╱n╱ // 0x23b4 @0x28
0x238c…23ca at0029 = ╱64╱d╱ // 0x23b5 @0x29
0x238c…23ca at002a = ╱74╱t╱ // 0x23b6 @0x2a
0x238c…23ca at002b = ╱61╱a╱ // 0x23b7 @0x2b
0x238c…23ca at002c = ╱73╱s╱ // 0x23b8 @0x2c
0x238c…23ca at002d = ╱74╱t╱ // 0x23b9 @0x2d
0x238c…23ca at002e = ╱20╱…╱ // 0x23ba @0x2e
0x238c…23ca at002f = ╱66╱f╱ // 0x23bb @0x2f
0x238c…23ca at0030 = ╱65╱e╱ // 0x23bc @0x30
0x238c…23ca at0031 = ╱6c╱l╱ // 0x23bd @0x31
0x238c…23ca at0032 = ╱74╱t╱ // 0x23be @0x32
0x238c…23ca at0033 = ╱6e╱n╱ // 0x23bf @0x33
0x238c…23ca at0034 = ╱72╱r╱ // 0x23c0 @0x34
0x238c…23ca at0035 = ╱20╱…╱ // 0x23c1 @0x35
0x238c…23ca at0036 = ╱32╱2╱ // 0x23c2 @0x36
0x238c…23ca at0037 = ╱2d╱-╱ // 0x23c3 @0x37
0x238c…23ca at0038 = ╱34╱4╱ // 0x23c4 @0x38
0x238c…23ca at0039 = ╱2c╱,╱ // 0x23c5 @0x39
0x238c…23ca at003a = ╱20╱…╱ // 0x23c6 @0x3a
0x238c…23ca at003b = ╱22╱"╱ // 0x23c7 @0x3b
0x238c…23ca at003c = ╱eb╱;╱ // 0x23c8 @0x3c
0x238c…23ca at003d = EOL // 0x23c9 @0x3d
0x238c…23ca }
0x23ca…23e9 b140 4270 PRINT "0:for færdig) "
0x23ca…23e9 LineComalBin {
0x23ca…23e9 ptr = 0xb140 // 0x23ca @0x0
0x23ca…23e9 lno = 0x10ae // 0x23cc @0x2
0x23ca…23e9 at0004 = ╱92╱ PRINT ╱ // 0x23ce @0x4
0x23ca…23e9 at0005 = ╱22╱"╱ // 0x23cf @0x5
0x23ca…23e9 at0006 = ╱30╱0╱ // 0x23d0 @0x6
0x23ca…23e9 at0007 = ╱3a╱:╱ // 0x23d1 @0x7
0x23ca…23e9 at0008 = ╱66╱f╱ // 0x23d2 @0x8
0x23ca…23e9 at0009 = ╱6f╱o╱ // 0x23d3 @0x9
0x23ca…23e9 at000a = ╱72╱r╱ // 0x23d4 @0xa
0x23ca…23e9 at000b = ╱20╱…╱ // 0x23d5 @0xb
0x23ca…23e9 at000c = ╱66╱f╱ // 0x23d6 @0xc
0x23ca…23e9 at000d = ╱7b╱æ╱ // 0x23d7 @0xd
0x23ca…23e9 at000e = ╱72╱r╱ // 0x23d8 @0xe
0x23ca…23e9 at000f = ╱64╱d╱ // 0x23d9 @0xf
0x23ca…23e9 at0010 = ╱69╱i╱ // 0x23da @0x10
0x23ca…23e9 at0011 = ╱67╱g╱ // 0x23db @0x11
0x23ca…23e9 at0012 = ╱29╱)╱ // 0x23dc @0x12
0x23ca…23e9 at0013 = ╱20╱…╱ // 0x23dd @0x13
0x23ca…23e9 at0014 = ╱20╱…╱ // 0x23de @0x14
0x23ca…23e9 at0015 = ╱20╱…╱ // 0x23df @0x15
0x23ca…23e9 at0016 = ╱20╱…╱ // 0x23e0 @0x16
0x23ca…23e9 at0017 = ╱20╱…╱ // 0x23e1 @0x17
0x23ca…23e9 at0018 = ╱20╱…╱ // 0x23e2 @0x18
0x23ca…23e9 at0019 = ╱20╱…╱ // 0x23e3 @0x19
0x23ca…23e9 at001a = ╱20╱…╱ // 0x23e4 @0x1a
0x23ca…23e9 at001b = ╱20╱…╱ // 0x23e5 @0x1b
0x23ca…23e9 at001c = ╱20╱…╱ // 0x23e6 @0x1c
0x23ca…23e9 at001d = ╱22╱"╱ // 0x23e7 @0x1d
0x23ca…23e9 at001e = EOL // 0x23e8 @0x1e
0x23ca…23e9 }
0x23e9…23fe b155 4280 CURSOR 32,23
0x23e9…23fe LineComalBin {
0x23e9…23fe ptr = 0xb155 // 0x23e9 @0x0
0x23e9…23fe lno = 0x10b8 // 0x23eb @0x2
0x23e9…23fe at0004 = ╱a1╱ CURSOR ╱ // 0x23ed @0x4
0x23e9…23fe at0005 = ╱33╱3╱ // 0x23ee @0x5
0x23e9…23fe at0006 = ╱32╱2╱ // 0x23ef @0x6
0x23e9…23fe at0007 = ╱fe00008006╱ // 0x23f0 @0x7
0x23e9…23fe at000c = ╱ec╱,╱ // 0x23f5 @0xc
0x23e9…23fe at000d = ╱32╱2╱ // 0x23f6 @0xd
0x23e9…23fe at000e = ╱33╱3╱ // 0x23f7 @0xe
0x23e9…23fe at000f = ╱fe0000b805╱ // 0x23f8 @0xf
0x23e9…23fe at0014 = EOL // 0x23fd @0x14
0x23e9…23fe }
0x23fe…2406 b15d 4290 INPUT A$
0x23fe…2406 LineComalBin {
0x23fe…2406 ptr = 0xb15d // 0x23fe @0x0
0x23fe…2406 lno = 0x10c2 // 0x2400 @0x2
0x23fe…2406 at0004 = ╱91╱ INPUT ╱ // 0x2402 @0x4
0x23fe…2406 at0005 = ╱41╱A╱ // 0x2403 @0x5
0x23fe…2406 at0006 = ╱ef╱$╱ // 0x2404 @0x6
0x23fe…2406 at0007 = EOL // 0x2405 @0x7
0x23fe…2406 }
0x2406…2416 b16d 4300 EXEC NRTEST(A$)
0x2406…2416 LineComalBin {
0x2406…2416 ptr = 0xb16d // 0x2406 @0x0
0x2406…2416 lno = 0x10cc // 0x2408 @0x2
0x2406…2416 at0004 = ╱9d╱ EXEC ╱ // 0x240a @0x4
0x2406…2416 at0005 = ╱4e╱N╱ // 0x240b @0x5
0x2406…2416 at0006 = ╱52╱R╱ // 0x240c @0x6
0x2406…2416 at0007 = ╱54╱T╱ // 0x240d @0x7
0x2406…2416 at0008 = ╱45╱E╱ // 0x240e @0x8
0x2406…2416 at0009 = ╱53╱S╱ // 0x240f @0x9
0x2406…2416 at000a = ╱54╱T╱ // 0x2410 @0xa
0x2406…2416 at000b = ╱ed╱(╱ // 0x2411 @0xb
0x2406…2416 at000c = ╱41╱A╱ // 0x2412 @0xc
0x2406…2416 at000d = ╱ef╱$╱ // 0x2413 @0xd
0x2406…2416 at000e = ╱ee╱)╱ // 0x2414 @0xe
0x2406…2416 at000f = EOL // 0x2415 @0xf
0x2406…2416 }
0x2416…242e b185 4310 UNTIL P=B OR (P>E AND P<5)
0x2416…242e LineComalBin {
0x2416…242e ptr = 0xb185 // 0x2416 @0x0
0x2416…242e lno = 0x10d6 // 0x2418 @0x2
0x2416…242e at0004 = ╱98╱ UNTIL ╱ // 0x241a @0x4
0x2416…242e at0005 = ╱50╱P╱ // 0x241b @0x5
0x2416…242e at0006 = ╱dc╱=╱ // 0x241c @0x6
0x2416…242e at0007 = ╱42╱B╱ // 0x241d @0x7
0x2416…242e at0008 = ╱db╱ OR ╱ // 0x241e @0x8
0x2416…242e at0009 = ╱ed╱(╱ // 0x241f @0x9
0x2416…242e at000a = ╱50╱P╱ // 0x2420 @0xa
0x2416…242e at000b = ╱de╱>╱ // 0x2421 @0xb
0x2416…242e at000c = ╱45╱E╱ // 0x2422 @0xc
0x2416…242e at000d = ╱da╱ AND ╱ // 0x2423 @0xd
0x2416…242e at000e = ╱50╱P╱ // 0x2424 @0xe
0x2416…242e at000f = ╱dd╱<╱ // 0x2425 @0xf
0x2416…242e at0010 = ╱35╱5╱ // 0x2426 @0x10
0x2416…242e at0011 = ╱fe0000a003╱ // 0x2427 @0x11
0x2416…242e at0016 = ╱ee╱)╱ // 0x242c @0x16
0x2416…242e at0017 = EOL // 0x242d @0x17
0x2416…242e }
0x242e…243a b191 4320 STYR1=P
0x242e…243a LineComalBin {
0x242e…243a ptr = 0xb191 // 0x242e @0x0
0x242e…243a lno = 0x10e0 // 0x2430 @0x2
0x242e…243a at0004 = ╱53╱S╱ // 0x2432 @0x4
0x242e…243a at0005 = ╱54╱T╱ // 0x2433 @0x5
0x242e…243a at0006 = ╱59╱Y╱ // 0x2434 @0x6
0x242e…243a at0007 = ╱52╱R╱ // 0x2435 @0x7
0x242e…243a at0008 = ╱31╱1╱ // 0x2436 @0x8
0x242e…243a at0009 = ╱dc╱=╱ // 0x2437 @0x9
0x242e…243a at000a = ╱50╱P╱ // 0x2438 @0xa
0x242e…243a at000b = EOL // 0x2439 @0xb
0x242e…243a }
0x243a…2449 b1a0 4330 IF STYR1=B THEN EXIT
0x243a…2449 LineComalBin {
0x243a…2449 ptr = 0xb1a0 // 0x243a @0x0
0x243a…2449 lno = 0x10ea // 0x243c @0x2
0x243a…2449 at0004 = ╱82╱ IF ╱ // 0x243e @0x4
0x243a…2449 at0005 = ╱53╱S╱ // 0x243f @0x5
0x243a…2449 at0006 = ╱54╱T╱ // 0x2440 @0x6
0x243a…2449 at0007 = ╱59╱Y╱ // 0x2441 @0x7
0x243a…2449 at0008 = ╱52╱R╱ // 0x2442 @0x8
0x243a…2449 at0009 = ╱31╱1╱ // 0x2443 @0x9
0x243a…2449 at000a = ╱dc╱=╱ // 0x2444 @0xa
0x243a…2449 at000b = ╱42╱B╱ // 0x2445 @0xb
0x243a…2449 at000c = ╱b6╱ THEN ╱ // 0x2446 @0xc
0x243a…2449 at000d = ╱99╱ EXIT ╱ // 0x2447 @0xd
0x243a…2449 at000e = EOL // 0x2448 @0xe
0x243a…2449 }
0x2449…2469 b1c0 4340 EXEC FINDTAST(STYR1,1,FNR)
0x2449…2469 LineComalBin {
0x2449…2469 ptr = 0xb1c0 // 0x2449 @0x0
0x2449…2469 lno = 0x10f4 // 0x244b @0x2
0x2449…2469 at0004 = ╱9d╱ EXEC ╱ // 0x244d @0x4
0x2449…2469 at0005 = ╱46╱F╱ // 0x244e @0x5
0x2449…2469 at0006 = ╱49╱I╱ // 0x244f @0x6
0x2449…2469 at0007 = ╱4e╱N╱ // 0x2450 @0x7
0x2449…2469 at0008 = ╱44╱D╱ // 0x2451 @0x8
0x2449…2469 at0009 = ╱54╱T╱ // 0x2452 @0x9
0x2449…2469 at000a = ╱41╱A╱ // 0x2453 @0xa
0x2449…2469 at000b = ╱53╱S╱ // 0x2454 @0xb
0x2449…2469 at000c = ╱54╱T╱ // 0x2455 @0xc
0x2449…2469 at000d = ╱ed╱(╱ // 0x2456 @0xd
0x2449…2469 at000e = ╱53╱S╱ // 0x2457 @0xe
0x2449…2469 at000f = ╱54╱T╱ // 0x2458 @0xf
0x2449…2469 at0010 = ╱59╱Y╱ // 0x2459 @0x10
0x2449…2469 at0011 = ╱52╱R╱ // 0x245a @0x11
0x2449…2469 at0012 = ╱31╱1╱ // 0x245b @0x12
0x2449…2469 at0013 = ╱ec╱,╱ // 0x245c @0x13
0x2449…2469 at0014 = ╱31╱1╱ // 0x245d @0x14
0x2449…2469 at0015 = ╱fe00008001╱ // 0x245e @0x15
0x2449…2469 at001a = ╱ec╱,╱ // 0x2463 @0x1a
0x2449…2469 at001b = ╱46╱F╱ // 0x2464 @0x1b
0x2449…2469 at001c = ╱4e╱N╱ // 0x2465 @0x1c
0x2449…2469 at001d = ╱52╱R╱ // 0x2466 @0x1d
0x2449…2469 at001e = ╱ee╱)╱ // 0x2467 @0x1e
0x2449…2469 at001f = EOL // 0x2468 @0x1f
0x2449…2469 }
0x2469…2476 b1cd 4350 UNTIL STYR1=B
0x2469…2476 LineComalBin {
0x2469…2476 ptr = 0xb1cd // 0x2469 @0x0
0x2469…2476 lno = 0x10fe // 0x246b @0x2
0x2469…2476 at0004 = ╱98╱ UNTIL ╱ // 0x246d @0x4
0x2469…2476 at0005 = ╱53╱S╱ // 0x246e @0x5
0x2469…2476 at0006 = ╱54╱T╱ // 0x246f @0x6
0x2469…2476 at0007 = ╱59╱Y╱ // 0x2470 @0x7
0x2469…2476 at0008 = ╱52╱R╱ // 0x2471 @0x8
0x2469…2476 at0009 = ╱31╱1╱ // 0x2472 @0x9
0x2469…2476 at000a = ╱dc╱=╱ // 0x2473 @0xa
0x2469…2476 at000b = ╱42╱B╱ // 0x2474 @0xb
0x2469…2476 at000c = EOL // 0x2475 @0xc
0x2469…2476 }
0x2476…2483 b1da 4360 IF TYPE=E THEN
0x2476…2483 LineComalBin {
0x2476…2483 ptr = 0xb1da // 0x2476 @0x0
0x2476…2483 lno = 0x1108 // 0x2478 @0x2
0x2476…2483 at0004 = ╱9c╱ IF ╱ // 0x247a @0x4
0x2476…2483 at0005 = ╱54╱T╱ // 0x247b @0x5
0x2476…2483 at0006 = ╱59╱Y╱ // 0x247c @0x6
0x2476…2483 at0007 = ╱50╱P╱ // 0x247d @0x7
0x2476…2483 at0008 = ╱45╱E╱ // 0x247e @0x8
0x2476…2483 at0009 = ╱dc╱=╱ // 0x247f @0x9
0x2476…2483 at000a = ╱45╱E╱ // 0x2480 @0xa
0x2476…2483 at000b = ╱b6╱ THEN ╱ // 0x2481 @0xb
0x2476…2483 at000c = EOL // 0x2482 @0xc
0x2476…2483 }
0x2483…24a9 b200 4370 EXEC FINDPOST(FTAB,MFANTAL,FNR,FPIL3)
0x2483…24a9 LineComalBin {
0x2483…24a9 ptr = 0xb200 // 0x2483 @0x0
0x2483…24a9 lno = 0x1112 // 0x2485 @0x2
0x2483…24a9 at0004 = ╱9d╱ EXEC ╱ // 0x2487 @0x4
0x2483…24a9 at0005 = ╱46╱F╱ // 0x2488 @0x5
0x2483…24a9 at0006 = ╱49╱I╱ // 0x2489 @0x6
0x2483…24a9 at0007 = ╱4e╱N╱ // 0x248a @0x7
0x2483…24a9 at0008 = ╱44╱D╱ // 0x248b @0x8
0x2483…24a9 at0009 = ╱50╱P╱ // 0x248c @0x9
0x2483…24a9 at000a = ╱4f╱O╱ // 0x248d @0xa
0x2483…24a9 at000b = ╱53╱S╱ // 0x248e @0xb
0x2483…24a9 at000c = ╱54╱T╱ // 0x248f @0xc
0x2483…24a9 at000d = ╱ed╱(╱ // 0x2490 @0xd
0x2483…24a9 at000e = ╱46╱F╱ // 0x2491 @0xe
0x2483…24a9 at000f = ╱54╱T╱ // 0x2492 @0xf
0x2483…24a9 at0010 = ╱41╱A╱ // 0x2493 @0x10
0x2483…24a9 at0011 = ╱42╱B╱ // 0x2494 @0x11
0x2483…24a9 at0012 = ╱ec╱,╱ // 0x2495 @0x12
0x2483…24a9 at0013 = ╱4d╱M╱ // 0x2496 @0x13
0x2483…24a9 at0014 = ╱46╱F╱ // 0x2497 @0x14
0x2483…24a9 at0015 = ╱41╱A╱ // 0x2498 @0x15
0x2483…24a9 at0016 = ╱4e╱N╱ // 0x2499 @0x16
0x2483…24a9 at0017 = ╱54╱T╱ // 0x249a @0x17
0x2483…24a9 at0018 = ╱41╱A╱ // 0x249b @0x18
0x2483…24a9 at0019 = ╱4c╱L╱ // 0x249c @0x19
0x2483…24a9 at001a = ╱ec╱,╱ // 0x249d @0x1a
0x2483…24a9 at001b = ╱46╱F╱ // 0x249e @0x1b
0x2483…24a9 at001c = ╱4e╱N╱ // 0x249f @0x1c
0x2483…24a9 at001d = ╱52╱R╱ // 0x24a0 @0x1d
0x2483…24a9 at001e = ╱ec╱,╱ // 0x24a1 @0x1e
0x2483…24a9 at001f = ╱46╱F╱ // 0x24a2 @0x1f
0x2483…24a9 at0020 = ╱50╱P╱ // 0x24a3 @0x20
0x2483…24a9 at0021 = ╱49╱I╱ // 0x24a4 @0x21
0x2483…24a9 at0022 = ╱4c╱L╱ // 0x24a5 @0x22
0x2483…24a9 at0023 = ╱33╱3╱ // 0x24a6 @0x23
0x2483…24a9 at0024 = ╱ee╱)╱ // 0x24a7 @0x24
0x2483…24a9 at0025 = EOL // 0x24a8 @0x25
0x2483…24a9 }
0x24a9…24ca b221 4380 EXEC INDSÆT(FTAB,AFIN,FNR,FPIL3)
0x24a9…24ca LineComalBin {
0x24a9…24ca ptr = 0xb221 // 0x24a9 @0x0
0x24a9…24ca lno = 0x111c // 0x24ab @0x2
0x24a9…24ca at0004 = ╱9d╱ EXEC ╱ // 0x24ad @0x4
0x24a9…24ca at0005 = ╱49╱I╱ // 0x24ae @0x5
0x24a9…24ca at0006 = ╱4e╱N╱ // 0x24af @0x6
0x24a9…24ca at0007 = ╱44╱D╱ // 0x24b0 @0x7
0x24a9…24ca at0008 = ╱53╱S╱ // 0x24b1 @0x8
0x24a9…24ca at0009 = ╱5b╱Æ╱ // 0x24b2 @0x9
0x24a9…24ca at000a = ╱54╱T╱ // 0x24b3 @0xa
0x24a9…24ca at000b = ╱ed╱(╱ // 0x24b4 @0xb
0x24a9…24ca at000c = ╱46╱F╱ // 0x24b5 @0xc
0x24a9…24ca at000d = ╱54╱T╱ // 0x24b6 @0xd
0x24a9…24ca at000e = ╱41╱A╱ // 0x24b7 @0xe
0x24a9…24ca at000f = ╱42╱B╱ // 0x24b8 @0xf
0x24a9…24ca at0010 = ╱ec╱,╱ // 0x24b9 @0x10
0x24a9…24ca at0011 = ╱41╱A╱ // 0x24ba @0x11
0x24a9…24ca at0012 = ╱46╱F╱ // 0x24bb @0x12
0x24a9…24ca at0013 = ╱49╱I╱ // 0x24bc @0x13
0x24a9…24ca at0014 = ╱4e╱N╱ // 0x24bd @0x14
0x24a9…24ca at0015 = ╱ec╱,╱ // 0x24be @0x15
0x24a9…24ca at0016 = ╱46╱F╱ // 0x24bf @0x16
0x24a9…24ca at0017 = ╱4e╱N╱ // 0x24c0 @0x17
0x24a9…24ca at0018 = ╱52╱R╱ // 0x24c1 @0x18
0x24a9…24ca at0019 = ╱ec╱,╱ // 0x24c2 @0x19
0x24a9…24ca at001a = ╱46╱F╱ // 0x24c3 @0x1a
0x24a9…24ca at001b = ╱50╱P╱ // 0x24c4 @0x1b
0x24a9…24ca at001c = ╱49╱I╱ // 0x24c5 @0x1c
0x24a9…24ca at001d = ╱4c╱L╱ // 0x24c6 @0x1d
0x24a9…24ca at001e = ╱33╱3╱ // 0x24c7 @0x1e
0x24a9…24ca at001f = ╱ee╱)╱ // 0x24c8 @0x1f
0x24a9…24ca at0020 = EOL // 0x24c9 @0x20
0x24a9…24ca }
0x24ca…24d0 b227 4390 ENDIF
0x24ca…24d0 LineComalBin {
0x24ca…24d0 ptr = 0xb227 // 0x24ca @0x0
0x24ca…24d0 lno = 0x1126 // 0x24cc @0x2
0x24ca…24d0 at0004 = ╱9b╱ ENDIF ╱ // 0x24ce @0x4
0x24ca…24d0 at0005 = EOL // 0x24cf @0x5
0x24ca…24d0 }
0x24d0…24de b235 4400 EXEC GEMFPOST
0x24d0…24de LineComalBin {
0x24d0…24de ptr = 0xb235 // 0x24d0 @0x0
0x24d0…24de lno = 0x1130 // 0x24d2 @0x2
0x24d0…24de at0004 = ╱9d╱ EXEC ╱ // 0x24d4 @0x4
0x24d0…24de at0005 = ╱47╱G╱ // 0x24d5 @0x5
0x24d0…24de at0006 = ╱45╱E╱ // 0x24d6 @0x6
0x24d0…24de at0007 = ╱4d╱M╱ // 0x24d7 @0x7
0x24d0…24de at0008 = ╱46╱F╱ // 0x24d8 @0x8
0x24d0…24de at0009 = ╱50╱P╱ // 0x24d9 @0x9
0x24d0…24de at000a = ╱4f╱O╱ // 0x24da @0xa
0x24d0…24de at000b = ╱53╱S╱ // 0x24db @0xb
0x24d0…24de at000c = ╱54╱T╱ // 0x24dc @0xc
0x24d0…24de at000d = EOL // 0x24dd @0xd
0x24d0…24de }
0x24de…24e6 b23d 4410 WHEN V
0x24de…24e6 LineComalBin {
0x24de…24e6 ptr = 0xb23d // 0x24de @0x0
0x24de…24e6 lno = 0x113a // 0x24e0 @0x2
0x24de…24e6 at0004 = ╱a301╱ WHEN ╱ // 0x24e2 @0x4
0x24de…24e6 at0006 = ╱56╱V╱ // 0x24e4 @0x6
0x24de…24e6 at0007 = EOL // 0x24e5 @0x7
0x24de…24e6 }
0x24e6…24ec b243 4420 REPEAT
0x24e6…24ec LineComalBin {
0x24e6…24ec ptr = 0xb243 // 0x24e6 @0x0
0x24e6…24ec lno = 0x1144 // 0x24e8 @0x2
0x24e6…24ec at0004 = ╱97╱ REPEAT ╱ // 0x24ea @0x4
0x24e6…24ec at0005 = EOL // 0x24eb @0x5
0x24e6…24ec }
0x24ec…24fb b252 4430 CURSOR V,23
0x24ec…24fb LineComalBin {
0x24ec…24fb ptr = 0xb252 // 0x24ec @0x0
0x24ec…24fb lno = 0x114e // 0x24ee @0x2
0x24ec…24fb at0004 = ╱a1╱ CURSOR ╱ // 0x24f0 @0x4
0x24ec…24fb at0005 = ╱56╱V╱ // 0x24f1 @0x5
0x24ec…24fb at0006 = ╱ec╱,╱ // 0x24f2 @0x6
0x24ec…24fb at0007 = ╱32╱2╱ // 0x24f3 @0x7
0x24ec…24fb at0008 = ╱33╱3╱ // 0x24f4 @0x8
0x24ec…24fb at0009 = ╱fe0000b805╱ // 0x24f5 @0x9
0x24ec…24fb at000e = EOL // 0x24fa @0xe
0x24ec…24fb }
0x24fb…252e b285 4440 PRINT "Er det rigtigt at denne konto skal slettes";
0x24fb…252e LineComalBin {
0x24fb…252e ptr = 0xb285 // 0x24fb @0x0
0x24fb…252e lno = 0x1158 // 0x24fd @0x2
0x24fb…252e at0004 = ╱92╱ PRINT ╱ // 0x24ff @0x4
0x24fb…252e at0005 = ╱22╱"╱ // 0x2500 @0x5
0x24fb…252e at0006 = ╱45╱E╱ // 0x2501 @0x6
0x24fb…252e at0007 = ╱72╱r╱ // 0x2502 @0x7
0x24fb…252e at0008 = ╱20╱…╱ // 0x2503 @0x8
0x24fb…252e at0009 = ╱64╱d╱ // 0x2504 @0x9
0x24fb…252e at000a = ╱65╱e╱ // 0x2505 @0xa
0x24fb…252e at000b = ╱74╱t╱ // 0x2506 @0xb
0x24fb…252e at000c = ╱20╱…╱ // 0x2507 @0xc
0x24fb…252e at000d = ╱72╱r╱ // 0x2508 @0xd
0x24fb…252e at000e = ╱69╱i╱ // 0x2509 @0xe
0x24fb…252e at000f = ╱67╱g╱ // 0x250a @0xf
0x24fb…252e at0010 = ╱74╱t╱ // 0x250b @0x10
0x24fb…252e at0011 = ╱69╱i╱ // 0x250c @0x11
0x24fb…252e at0012 = ╱67╱g╱ // 0x250d @0x12
0x24fb…252e at0013 = ╱74╱t╱ // 0x250e @0x13
0x24fb…252e at0014 = ╱20╱…╱ // 0x250f @0x14
0x24fb…252e at0015 = ╱61╱a╱ // 0x2510 @0x15
0x24fb…252e at0016 = ╱74╱t╱ // 0x2511 @0x16
0x24fb…252e at0017 = ╱20╱…╱ // 0x2512 @0x17
0x24fb…252e at0018 = ╱64╱d╱ // 0x2513 @0x18
0x24fb…252e at0019 = ╱65╱e╱ // 0x2514 @0x19
0x24fb…252e at001a = ╱6e╱n╱ // 0x2515 @0x1a
0x24fb…252e at001b = ╱6e╱n╱ // 0x2516 @0x1b
0x24fb…252e at001c = ╱65╱e╱ // 0x2517 @0x1c
0x24fb…252e at001d = ╱20╱…╱ // 0x2518 @0x1d
0x24fb…252e at001e = ╱6b╱k╱ // 0x2519 @0x1e
0x24fb…252e at001f = ╱6f╱o╱ // 0x251a @0x1f
0x24fb…252e at0020 = ╱6e╱n╱ // 0x251b @0x20
0x24fb…252e at0021 = ╱74╱t╱ // 0x251c @0x21
0x24fb…252e at0022 = ╱6f╱o╱ // 0x251d @0x22
0x24fb…252e at0023 = ╱20╱…╱ // 0x251e @0x23
0x24fb…252e at0024 = ╱73╱s╱ // 0x251f @0x24
0x24fb…252e at0025 = ╱6b╱k╱ // 0x2520 @0x25
0x24fb…252e at0026 = ╱61╱a╱ // 0x2521 @0x26
0x24fb…252e at0027 = ╱6c╱l╱ // 0x2522 @0x27
0x24fb…252e at0028 = ╱20╱…╱ // 0x2523 @0x28
0x24fb…252e at0029 = ╱73╱s╱ // 0x2524 @0x29
0x24fb…252e at002a = ╱6c╱l╱ // 0x2525 @0x2a
0x24fb…252e at002b = ╱65╱e╱ // 0x2526 @0x2b
0x24fb…252e at002c = ╱74╱t╱ // 0x2527 @0x2c
0x24fb…252e at002d = ╱74╱t╱ // 0x2528 @0x2d
0x24fb…252e at002e = ╱65╱e╱ // 0x2529 @0x2e
0x24fb…252e at002f = ╱73╱s╱ // 0x252a @0x2f
0x24fb…252e at0030 = ╱22╱"╱ // 0x252b @0x30
0x24fb…252e at0031 = ╱eb╱;╱ // 0x252c @0x31
0x24fb…252e at0032 = EOL // 0x252d @0x32
0x24fb…252e }
0x252e…2553 b2aa 4450 PRINT " (J/N)";BLANK$(E:23)
0x252e…2553 LineComalBin {
0x252e…2553 ptr = 0xb2aa // 0x252e @0x0
0x252e…2553 lno = 0x1162 // 0x2530 @0x2
0x252e…2553 at0004 = ╱92╱ PRINT ╱ // 0x2532 @0x4
0x252e…2553 at0005 = ╱22╱"╱ // 0x2533 @0x5
0x252e…2553 at0006 = ╱20╱…╱ // 0x2534 @0x6
0x252e…2553 at0007 = ╱20╱…╱ // 0x2535 @0x7
0x252e…2553 at0008 = ╱20╱…╱ // 0x2536 @0x8
0x252e…2553 at0009 = ╱20╱…╱ // 0x2537 @0x9
0x252e…2553 at000a = ╱20╱…╱ // 0x2538 @0xa
0x252e…2553 at000b = ╱20╱…╱ // 0x2539 @0xb
0x252e…2553 at000c = ╱28╱(╱ // 0x253a @0xc
0x252e…2553 at000d = ╱4a╱J╱ // 0x253b @0xd
0x252e…2553 at000e = ╱2f╱/╱ // 0x253c @0xe
0x252e…2553 at000f = ╱4e╱N╱ // 0x253d @0xf
0x252e…2553 at0010 = ╱29╱)╱ // 0x253e @0x10
0x252e…2553 at0011 = ╱22╱"╱ // 0x253f @0x11
0x252e…2553 at0012 = ╱eb╱;╱ // 0x2540 @0x12
0x252e…2553 at0013 = ╱42╱B╱ // 0x2541 @0x13
0x252e…2553 at0014 = ╱4c╱L╱ // 0x2542 @0x14
0x252e…2553 at0015 = ╱41╱A╱ // 0x2543 @0x15
0x252e…2553 at0016 = ╱4e╱N╱ // 0x2544 @0x16
0x252e…2553 at0017 = ╱4b╱K╱ // 0x2545 @0x17
0x252e…2553 at0018 = ╱ef╱$╱ // 0x2546 @0x18
0x252e…2553 at0019 = ╱ed╱(╱ // 0x2547 @0x19
0x252e…2553 at001a = ╱45╱E╱ // 0x2548 @0x1a
0x252e…2553 at001b = ╱f0╱:╱ // 0x2549 @0x1b
0x252e…2553 at001c = ╱32╱2╱ // 0x254a @0x1c
0x252e…2553 at001d = ╱33╱3╱ // 0x254b @0x1d
0x252e…2553 at001e = ╱fe0000b805╱ // 0x254c @0x1e
0x252e…2553 at0023 = ╱ee╱)╱ // 0x2551 @0x23
0x252e…2553 at0024 = EOL // 0x2552 @0x24
0x252e…2553 }
0x2553…2568 b2bf 4460 CURSOR 48,23
0x2553…2568 LineComalBin {
0x2553…2568 ptr = 0xb2bf // 0x2553 @0x0
0x2553…2568 lno = 0x116c // 0x2555 @0x2
0x2553…2568 at0004 = ╱a1╱ CURSOR ╱ // 0x2557 @0x4
0x2553…2568 at0005 = ╱34╱4╱ // 0x2558 @0x5
0x2553…2568 at0006 = ╱38╱8╱ // 0x2559 @0x6
0x2553…2568 at0007 = ╱fe0000c006╱ // 0x255a @0x7
0x2553…2568 at000c = ╱ec╱,╱ // 0x255f @0xc
0x2553…2568 at000d = ╱32╱2╱ // 0x2560 @0xd
0x2553…2568 at000e = ╱33╱3╱ // 0x2561 @0xe
0x2553…2568 at000f = ╱fe0000b805╱ // 0x2562 @0xf
0x2553…2568 at0014 = EOL // 0x2567 @0x14
0x2553…2568 }
0x2568…2570 b2c7 4470 INPUT A$
0x2568…2570 LineComalBin {
0x2568…2570 ptr = 0xb2c7 // 0x2568 @0x0
0x2568…2570 lno = 0x1176 // 0x256a @0x2
0x2568…2570 at0004 = ╱91╱ INPUT ╱ // 0x256c @0x4
0x2568…2570 at0005 = ╱41╱A╱ // 0x256d @0x5
0x2568…2570 at0006 = ╱ef╱$╱ // 0x256e @0x6
0x2568…2570 at0007 = EOL // 0x256f @0x7
0x2568…2570 }
0x2570…2580 b2d7 4480 EXEC NRTEST(A$)
0x2570…2580 LineComalBin {
0x2570…2580 ptr = 0xb2d7 // 0x2570 @0x0
0x2570…2580 lno = 0x1180 // 0x2572 @0x2
0x2570…2580 at0004 = ╱9d╱ EXEC ╱ // 0x2574 @0x4
0x2570…2580 at0005 = ╱4e╱N╱ // 0x2575 @0x5
0x2570…2580 at0006 = ╱52╱R╱ // 0x2576 @0x6
0x2570…2580 at0007 = ╱54╱T╱ // 0x2577 @0x7
0x2570…2580 at0008 = ╱45╱E╱ // 0x2578 @0x8
0x2570…2580 at0009 = ╱53╱S╱ // 0x2579 @0x9
0x2570…2580 at000a = ╱54╱T╱ // 0x257a @0xa
0x2570…2580 at000b = ╱ed╱(╱ // 0x257b @0xb
0x2570…2580 at000c = ╱41╱A╱ // 0x257c @0xc
0x2570…2580 at000d = ╱ef╱$╱ // 0x257d @0xd
0x2570…2580 at000e = ╱ee╱)╱ // 0x257e @0xe
0x2570…2580 at000f = EOL // 0x257f @0xf
0x2570…2580 }
0x2580…2599 b2f0 4490 UNTIL P=-7 OR P=-8
0x2580…2599 LineComalBin {
0x2580…2599 ptr = 0xb2f0 // 0x2580 @0x0
0x2580…2599 lno = 0x118a // 0x2582 @0x2
0x2580…2599 at0004 = ╱98╱ UNTIL ╱ // 0x2584 @0x4
0x2580…2599 at0005 = ╱50╱P╱ // 0x2585 @0x5
0x2580…2599 at0006 = ╱dc╱=╱ // 0x2586 @0x6
0x2580…2599 at0007 = ╱e9╱-╱ // 0x2587 @0x7
0x2580…2599 at0008 = ╱37╱7╱ // 0x2588 @0x8
0x2580…2599 at0009 = ╱fe0000e003╱ // 0x2589 @0x9
0x2580…2599 at000e = ╱db╱ OR ╱ // 0x258e @0xe
0x2580…2599 at000f = ╱50╱P╱ // 0x258f @0xf
0x2580…2599 at0010 = ╱dc╱=╱ // 0x2590 @0x10
0x2580…2599 at0011 = ╱e9╱-╱ // 0x2591 @0x11
0x2580…2599 at0012 = ╱38╱8╱ // 0x2592 @0x12
0x2580…2599 at0013 = ╱fe00008004╱ // 0x2593 @0x13
0x2580…2599 at0018 = EOL // 0x2598 @0x18
0x2580…2599 }
0x2599…25a9 (125,) b300 4500 IF P=-7 THEN
0x2599…25a9 LineComalBin {
0x2599…25a9 ptr = 0xb300 // 0x2599 @0x0
0x2599…25a9 lno = 0x1194 // 0x259b @0x2
0x2599…25a9 at0004 = ╱9c╱ IF ╱ // 0x259d @0x4
0x2599…25a9 at0005 = ╱50╱P╱ // 0x259e @0x5
0x2599…25a9 at0006 = ╱dc╱=╱ // 0x259f @0x6
0x2599…25a9 at0007 = ╱e9╱-╱ // 0x25a0 @0x7
0x2599…25a9 at0008 = ╱37╱7╱ // 0x25a1 @0x8
0x2599…25a9 at0009 = ╱fe0000e003╱ // 0x25a2 @0x9
0x2599…25a9 at000e = ╱b6╱ THEN ╱ // 0x25a7 @0xe
0x2599…25a9 at000f = EOL // 0x25a8 @0xf
0x2599…25a9 }
0x25a9…25be b315 4510 EXEC SLETFPOST(KONT)
0x25a9…25be LineComalBin {
0x25a9…25be ptr = 0xb315 // 0x25a9 @0x0
0x25a9…25be lno = 0x119e // 0x25ab @0x2
0x25a9…25be at0004 = ╱9d╱ EXEC ╱ // 0x25ad @0x4
0x25a9…25be at0005 = ╱53╱S╱ // 0x25ae @0x5
0x25a9…25be at0006 = ╱4c╱L╱ // 0x25af @0x6
0x25a9…25be at0007 = ╱45╱E╱ // 0x25b0 @0x7
0x25a9…25be at0008 = ╱54╱T╱ // 0x25b1 @0x8
0x25a9…25be at0009 = ╱46╱F╱ // 0x25b2 @0x9
0x25a9…25be at000a = ╱50╱P╱ // 0x25b3 @0xa
0x25a9…25be at000b = ╱4f╱O╱ // 0x25b4 @0xb
0x25a9…25be at000c = ╱53╱S╱ // 0x25b5 @0xc
0x25a9…25be at000d = ╱54╱T╱ // 0x25b6 @0xd
0x25a9…25be at000e = ╱ed╱(╱ // 0x25b7 @0xe
0x25a9…25be at000f = ╱4b╱K╱ // 0x25b8 @0xf
0x25a9…25be at0010 = ╱4f╱O╱ // 0x25b9 @0x10
0x25a9…25be at0011 = ╱4e╱N╱ // 0x25ba @0x11
0x25a9…25be at0012 = ╱54╱T╱ // 0x25bb @0x12
0x25a9…25be at0013 = ╱ee╱)╱ // 0x25bc @0x13
0x25a9…25be at0014 = EOL // 0x25bd @0x14
0x25a9…25be }
0x25be…25c4 b31b 4520 ENDIF
0x25be…25c4 LineComalBin {
0x25be…25c4 ptr = 0xb31b // 0x25be @0x0
0x25be…25c4 lno = 0x11a8 // 0x25c0 @0x2
0x25be…25c4 at0004 = ╱9b╱ ENDIF ╱ // 0x25c2 @0x4
0x25be…25c4 at0005 = EOL // 0x25c3 @0x5
0x25be…25c4 }
0x25c4…25d1 b328 4530 WHEN 4
0x25c4…25d1 LineComalBin {
0x25c4…25d1 ptr = 0xb328 // 0x25c4 @0x0
0x25c4…25d1 lno = 0x11b2 // 0x25c6 @0x2
0x25c4…25d1 at0004 = ╱a301╱ WHEN ╱ // 0x25c8 @0x4
0x25c4…25d1 at0006 = ╱34╱4╱ // 0x25ca @0x6
0x25c4…25d1 at0007 = ╱fe00008003╱ // 0x25cb @0x7
0x25c4…25d1 at000c = EOL // 0x25d0 @0xc
0x25c4…25d1 }
0x25d1…25de b335 4540 WHEN 5
0x25d1…25de LineComalBin {
0x25d1…25de ptr = 0xb335 // 0x25d1 @0x0
0x25d1…25de lno = 0x11bc // 0x25d3 @0x2
0x25d1…25de at0004 = ╱a301╱ WHEN ╱ // 0x25d5 @0x4
0x25d1…25de at0006 = ╱35╱5╱ // 0x25d7 @0x6
0x25d1…25de at0007 = ╱fe0000a003╱ // 0x25d8 @0x7
0x25d1…25de at000c = EOL // 0x25dd @0xc
0x25d1…25de }
0x25de…25e4 b33b 4550 REPEAT
0x25de…25e4 LineComalBin {
0x25de…25e4 ptr = 0xb33b // 0x25de @0x0
0x25de…25e4 lno = 0x11c6 // 0x25e0 @0x2
0x25de…25e4 at0004 = ╱97╱ REPEAT ╱ // 0x25e2 @0x4
0x25de…25e4 at0005 = EOL // 0x25e3 @0x5
0x25de…25e4 }
0x25e4…25ea b341 4560 REPEAT
0x25e4…25ea LineComalBin {
0x25e4…25ea ptr = 0xb341 // 0x25e4 @0x0
0x25e4…25ea lno = 0x11d0 // 0x25e6 @0x2
0x25e4…25ea at0004 = ╱97╱ REPEAT ╱ // 0x25e8 @0x4
0x25e4…25ea at0005 = EOL // 0x25e9 @0x5
0x25e4…25ea }
0x25ea…25f9 b350 4570 CURSOR V,23
0x25ea…25f9 LineComalBin {
0x25ea…25f9 ptr = 0xb350 // 0x25ea @0x0
0x25ea…25f9 lno = 0x11da // 0x25ec @0x2
0x25ea…25f9 at0004 = ╱a1╱ CURSOR ╱ // 0x25ee @0x4
0x25ea…25f9 at0005 = ╱56╱V╱ // 0x25ef @0x5
0x25ea…25f9 at0006 = ╱ec╱,╱ // 0x25f0 @0x6
0x25ea…25f9 at0007 = ╱32╱2╱ // 0x25f1 @0x7
0x25ea…25f9 at0008 = ╱33╱3╱ // 0x25f2 @0x8
0x25ea…25f9 at0009 = ╱fe0000b805╱ // 0x25f3 @0x9
0x25ea…25f9 at000e = EOL // 0x25f8 @0xe
0x25ea…25f9 }
0x25f9…261d b374 4580 PRINT "Fra kontonr (0: Alle)"
0x25f9…261d LineComalBin {
0x25f9…261d ptr = 0xb374 // 0x25f9 @0x0
0x25f9…261d lno = 0x11e4 // 0x25fb @0x2
0x25f9…261d at0004 = ╱92╱ PRINT ╱ // 0x25fd @0x4
0x25f9…261d at0005 = ╱22╱"╱ // 0x25fe @0x5
0x25f9…261d at0006 = ╱46╱F╱ // 0x25ff @0x6
0x25f9…261d at0007 = ╱72╱r╱ // 0x2600 @0x7
0x25f9…261d at0008 = ╱61╱a╱ // 0x2601 @0x8
0x25f9…261d at0009 = ╱20╱…╱ // 0x2602 @0x9
0x25f9…261d at000a = ╱6b╱k╱ // 0x2603 @0xa
0x25f9…261d at000b = ╱6f╱o╱ // 0x2604 @0xb
0x25f9…261d at000c = ╱6e╱n╱ // 0x2605 @0xc
0x25f9…261d at000d = ╱74╱t╱ // 0x2606 @0xd
0x25f9…261d at000e = ╱6f╱o╱ // 0x2607 @0xe
0x25f9…261d at000f = ╱6e╱n╱ // 0x2608 @0xf
0x25f9…261d at0010 = ╱72╱r╱ // 0x2609 @0x10
0x25f9…261d at0011 = ╱20╱…╱ // 0x260a @0x11
0x25f9…261d at0012 = ╱20╱…╱ // 0x260b @0x12
0x25f9…261d at0013 = ╱20╱…╱ // 0x260c @0x13
0x25f9…261d at0014 = ╱20╱…╱ // 0x260d @0x14
0x25f9…261d at0015 = ╱20╱…╱ // 0x260e @0x15
0x25f9…261d at0016 = ╱20╱…╱ // 0x260f @0x16
0x25f9…261d at0017 = ╱20╱…╱ // 0x2610 @0x17
0x25f9…261d at0018 = ╱20╱…╱ // 0x2611 @0x18
0x25f9…261d at0019 = ╱28╱(╱ // 0x2612 @0x19
0x25f9…261d at001a = ╱30╱0╱ // 0x2613 @0x1a
0x25f9…261d at001b = ╱3a╱:╱ // 0x2614 @0x1b
0x25f9…261d at001c = ╱20╱…╱ // 0x2615 @0x1c
0x25f9…261d at001d = ╱41╱A╱ // 0x2616 @0x1d
0x25f9…261d at001e = ╱6c╱l╱ // 0x2617 @0x1e
0x25f9…261d at001f = ╱6c╱l╱ // 0x2618 @0x1f
0x25f9…261d at0020 = ╱65╱e╱ // 0x2619 @0x20
0x25f9…261d at0021 = ╱29╱)╱ // 0x261a @0x21
0x25f9…261d at0022 = ╱22╱"╱ // 0x261b @0x22
0x25f9…261d at0023 = EOL // 0x261c @0x23
0x25f9…261d }
0x261d…2632 b389 4590 CURSOR 15,23
0x261d…2632 LineComalBin {
0x261d…2632 ptr = 0xb389 // 0x261d @0x0
0x261d…2632 lno = 0x11ee // 0x261f @0x2
0x261d…2632 at0004 = ╱a1╱ CURSOR ╱ // 0x2621 @0x4
0x261d…2632 at0005 = ╱31╱1╱ // 0x2622 @0x5
0x261d…2632 at0006 = ╱35╱5╱ // 0x2623 @0x6
0x261d…2632 at0007 = ╱fe0000f004╱ // 0x2624 @0x7
0x261d…2632 at000c = ╱ec╱,╱ // 0x2629 @0xc
0x261d…2632 at000d = ╱32╱2╱ // 0x262a @0xd
0x261d…2632 at000e = ╱33╱3╱ // 0x262b @0xe
0x261d…2632 at000f = ╱fe0000b805╱ // 0x262c @0xf
0x261d…2632 at0014 = EOL // 0x2631 @0x14
0x261d…2632 }
0x2632…263c b393 4600 INPUT KTN$
0x2632…263c LineComalBin {
0x2632…263c ptr = 0xb393 // 0x2632 @0x0
0x2632…263c lno = 0x11f8 // 0x2634 @0x2
0x2632…263c at0004 = ╱91╱ INPUT ╱ // 0x2636 @0x4
0x2632…263c at0005 = ╱4b╱K╱ // 0x2637 @0x5
0x2632…263c at0006 = ╱54╱T╱ // 0x2638 @0x6
0x2632…263c at0007 = ╱4e╱N╱ // 0x2639 @0x7
0x2632…263c at0008 = ╱ef╱$╱ // 0x263a @0x8
0x2632…263c at0009 = EOL // 0x263b @0x9
0x2632…263c }
0x263c…264e b3a5 4610 EXEC NRTEST(KTN$)
0x263c…264e LineComalBin {
0x263c…264e ptr = 0xb3a5 // 0x263c @0x0
0x263c…264e lno = 0x1202 // 0x263e @0x2
0x263c…264e at0004 = ╱9d╱ EXEC ╱ // 0x2640 @0x4
0x263c…264e at0005 = ╱4e╱N╱ // 0x2641 @0x5
0x263c…264e at0006 = ╱52╱R╱ // 0x2642 @0x6
0x263c…264e at0007 = ╱54╱T╱ // 0x2643 @0x7
0x263c…264e at0008 = ╱45╱E╱ // 0x2644 @0x8
0x263c…264e at0009 = ╱53╱S╱ // 0x2645 @0x9
0x263c…264e at000a = ╱54╱T╱ // 0x2646 @0xa
0x263c…264e at000b = ╱ed╱(╱ // 0x2647 @0xb
0x263c…264e at000c = ╱4b╱K╱ // 0x2648 @0xc
0x263c…264e at000d = ╱54╱T╱ // 0x2649 @0xd
0x263c…264e at000e = ╱4e╱N╱ // 0x264a @0xe
0x263c…264e at000f = ╱ef╱$╱ // 0x264b @0xf
0x263c…264e at0010 = ╱ee╱)╱ // 0x264c @0x10
0x263c…264e at0011 = EOL // 0x264d @0x11
0x263c…264e }
0x264e…2674 b3cb 4620 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B
0x264e…2674 LineComalBin {
0x264e…2674 ptr = 0xb3cb // 0x264e @0x0
0x264e…2674 lno = 0x120c // 0x2650 @0x2
0x264e…2674 at0004 = ╱98╱ UNTIL ╱ // 0x2652 @0x4
0x264e…2674 at0005 = ╱4c╱L╱ // 0x2653 @0x5
0x264e…2674 at0006 = ╱dc╱=╱ // 0x2654 @0x6
0x264e…2674 at0007 = ╱35╱5╱ // 0x2655 @0x7
0x264e…2674 at0008 = ╱fe0000a003╱ // 0x2656 @0x8
0x264e…2674 at000d = ╱da╱ AND ╱ // 0x265b @0xd
0x264e…2674 at000e = ╱50╱P╱ // 0x265c @0xe
0x264e…2674 at000f = ╱de╱>╱ // 0x265d @0xf
0x264e…2674 at0010 = ╱39╱9╱ // 0x265e @0x10
0x264e…2674 at0011 = ╱39╱9╱ // 0x265f @0x11
0x264e…2674 at0012 = ╱39╱9╱ // 0x2660 @0x12
0x264e…2674 at0013 = ╱39╱9╱ // 0x2661 @0x13
0x264e…2674 at0014 = ╱fe003c9c0e╱ // 0x2662 @0x14
0x264e…2674 at0019 = ╱da╱ AND ╱ // 0x2667 @0x19
0x264e…2674 at001a = ╱54╱T╱ // 0x2668 @0x1a
0x264e…2674 at001b = ╱45╱E╱ // 0x2669 @0x1b
0x264e…2674 at001c = ╱53╱S╱ // 0x266a @0x1c
0x264e…2674 at001d = ╱54╱T╱ // 0x266b @0x1d
0x264e…2674 at001e = ╱32╱2╱ // 0x266c @0x1e
0x264e…2674 at001f = ╱dc╱=╱ // 0x266d @0x1f
0x264e…2674 at0020 = ╱42╱B╱ // 0x266e @0x20
0x264e…2674 at0021 = ╱db╱ OR ╱ // 0x266f @0x21
0x264e…2674 at0022 = ╱50╱P╱ // 0x2670 @0x22
0x264e…2674 at0023 = ╱dc╱=╱ // 0x2671 @0x23
0x264e…2674 at0024 = ╱42╱B╱ // 0x2672 @0x24
0x264e…2674 at0025 = EOL // 0x2673 @0x25
0x264e…2674 }
0x2674…267e b3d5 4630 IF P=B THEN
0x2674…267e LineComalBin {
0x2674…267e ptr = 0xb3d5 // 0x2674 @0x0
0x2674…267e lno = 0x1216 // 0x2676 @0x2
0x2674…267e at0004 = ╱9c╱ IF ╱ // 0x2678 @0x4
0x2674…267e at0005 = ╱50╱P╱ // 0x2679 @0x5
0x2674…267e at0006 = ╱dc╱=╱ // 0x267a @0x6
0x2674…267e at0007 = ╱42╱B╱ // 0x267b @0x7
0x2674…267e at0008 = ╱b6╱ THEN ╱ // 0x267c @0x8
0x2674…267e at0009 = EOL // 0x267d @0x9
0x2674…267e }
0x267e…2691 b3e8 4640 FRA=E;TIL=AFIN
0x267e…2691 LineComalBin {
0x267e…2691 ptr = 0xb3e8 // 0x267e @0x0
0x267e…2691 lno = 0x1220 // 0x2680 @0x2
0x267e…2691 at0004 = ╱46╱F╱ // 0x2682 @0x4
0x267e…2691 at0005 = ╱52╱R╱ // 0x2683 @0x5
0x267e…2691 at0006 = ╱41╱A╱ // 0x2684 @0x6
0x267e…2691 at0007 = ╱dc╱=╱ // 0x2685 @0x7
0x267e…2691 at0008 = ╱45╱E╱ // 0x2686 @0x8
0x267e…2691 at0009 = ╱eb╱;╱ // 0x2687 @0x9
0x267e…2691 at000a = ╱54╱T╱ // 0x2688 @0xa
0x267e…2691 at000b = ╱49╱I╱ // 0x2689 @0xb
0x267e…2691 at000c = ╱4c╱L╱ // 0x268a @0xc
0x267e…2691 at000d = ╱dc╱=╱ // 0x268b @0xd
0x267e…2691 at000e = ╱41╱A╱ // 0x268c @0xe
0x267e…2691 at000f = ╱46╱F╱ // 0x268d @0xf
0x267e…2691 at0010 = ╱49╱I╱ // 0x268e @0x10
0x267e…2691 at0011 = ╱4e╱N╱ // 0x268f @0x11
0x267e…2691 at0012 = EOL // 0x2690 @0x12
0x267e…2691 }
0x2691…2697 b3ee 4650 ELSE
0x2691…2697 LineComalBin {
0x2691…2697 ptr = 0xb3ee // 0x2691 @0x0
0x2691…2697 lno = 0x122a // 0x2693 @0x2
0x2691…2697 at0004 = ╱9a╱ ELSE ╱ // 0x2695 @0x4
0x2691…2697 at0005 = EOL // 0x2696 @0x5
0x2691…2697 }
0x2697…26a2 b3f9 4660 KONT=P
0x2697…26a2 LineComalBin {
0x2697…26a2 ptr = 0xb3f9 // 0x2697 @0x0
0x2697…26a2 lno = 0x1234 // 0x2699 @0x2
0x2697…26a2 at0004 = ╱4b╱K╱ // 0x269b @0x4
0x2697…26a2 at0005 = ╱4f╱O╱ // 0x269c @0x5
0x2697…26a2 at0006 = ╱4e╱N╱ // 0x269d @0x6
0x2697…26a2 at0007 = ╱54╱T╱ // 0x269e @0x7
0x2697…26a2 at0008 = ╱dc╱=╱ // 0x269f @0x8
0x2697…26a2 at0009 = ╱50╱P╱ // 0x26a0 @0x9
0x2697…26a2 at000a = EOL // 0x26a1 @0xa
0x2697…26a2 }
0x26a2…26c6 b41d 4670 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3)
0x26a2…26c6 LineComalBin {
0x26a2…26c6 ptr = 0xb41d // 0x26a2 @0x0
0x26a2…26c6 lno = 0x123e // 0x26a4 @0x2
0x26a2…26c6 at0004 = ╱9d╱ EXEC ╱ // 0x26a6 @0x4
0x26a2…26c6 at0005 = ╱46╱F╱ // 0x26a7 @0x5
0x26a2…26c6 at0006 = ╱49╱I╱ // 0x26a8 @0x6
0x26a2…26c6 at0007 = ╱4e╱N╱ // 0x26a9 @0x7
0x26a2…26c6 at0008 = ╱44╱D╱ // 0x26aa @0x8
0x26a2…26c6 at0009 = ╱50╱P╱ // 0x26ab @0x9
0x26a2…26c6 at000a = ╱4f╱O╱ // 0x26ac @0xa
0x26a2…26c6 at000b = ╱53╱S╱ // 0x26ad @0xb
0x26a2…26c6 at000c = ╱54╱T╱ // 0x26ae @0xc
0x26a2…26c6 at000d = ╱ed╱(╱ // 0x26af @0xd
0x26a2…26c6 at000e = ╱46╱F╱ // 0x26b0 @0xe
0x26a2…26c6 at000f = ╱54╱T╱ // 0x26b1 @0xf
0x26a2…26c6 at0010 = ╱41╱A╱ // 0x26b2 @0x10
0x26a2…26c6 at0011 = ╱42╱B╱ // 0x26b3 @0x11
0x26a2…26c6 at0012 = ╱ec╱,╱ // 0x26b4 @0x12
0x26a2…26c6 at0013 = ╱4d╱M╱ // 0x26b5 @0x13
0x26a2…26c6 at0014 = ╱46╱F╱ // 0x26b6 @0x14
0x26a2…26c6 at0015 = ╱41╱A╱ // 0x26b7 @0x15
0x26a2…26c6 at0016 = ╱4e╱N╱ // 0x26b8 @0x16
0x26a2…26c6 at0017 = ╱54╱T╱ // 0x26b9 @0x17
0x26a2…26c6 at0018 = ╱41╱A╱ // 0x26ba @0x18
0x26a2…26c6 at0019 = ╱4c╱L╱ // 0x26bb @0x19
0x26a2…26c6 at001a = ╱ec╱,╱ // 0x26bc @0x1a
0x26a2…26c6 at001b = ╱50╱P╱ // 0x26bd @0x1b
0x26a2…26c6 at001c = ╱ec╱,╱ // 0x26be @0x1c
0x26a2…26c6 at001d = ╱46╱F╱ // 0x26bf @0x1d
0x26a2…26c6 at001e = ╱50╱P╱ // 0x26c0 @0x1e
0x26a2…26c6 at001f = ╱49╱I╱ // 0x26c1 @0x1f
0x26a2…26c6 at0020 = ╱4c╱L╱ // 0x26c2 @0x20
0x26a2…26c6 at0021 = ╱33╱3╱ // 0x26c3 @0x21
0x26a2…26c6 at0022 = ╱ee╱)╱ // 0x26c4 @0x22
0x26a2…26c6 at0023 = EOL // 0x26c5 @0x23
0x26a2…26c6 }
0x26c6…26d4 b42b 4680 FRA=FPIL3
0x26c6…26d4 LineComalBin {
0x26c6…26d4 ptr = 0xb42b // 0x26c6 @0x0
0x26c6…26d4 lno = 0x1248 // 0x26c8 @0x2
0x26c6…26d4 at0004 = ╱46╱F╱ // 0x26ca @0x4
0x26c6…26d4 at0005 = ╱52╱R╱ // 0x26cb @0x5
0x26c6…26d4 at0006 = ╱41╱A╱ // 0x26cc @0x6
0x26c6…26d4 at0007 = ╱dc╱=╱ // 0x26cd @0x7
0x26c6…26d4 at0008 = ╱46╱F╱ // 0x26ce @0x8
0x26c6…26d4 at0009 = ╱50╱P╱ // 0x26cf @0x9
0x26c6…26d4 at000a = ╱49╱I╱ // 0x26d0 @0xa
0x26c6…26d4 at000b = ╱4c╱L╱ // 0x26d1 @0xb
0x26c6…26d4 at000c = ╱33╱3╱ // 0x26d2 @0xc
0x26c6…26d4 at000d = EOL // 0x26d3 @0xd
0x26c6…26d4 }
0x26d4…26da b431 4690 ENDIF
0x26d4…26da LineComalBin {
0x26d4…26da ptr = 0xb431 // 0x26d4 @0x0
0x26d4…26da lno = 0x1252 // 0x26d6 @0x2
0x26d4…26da at0004 = ╱9b╱ ENDIF ╱ // 0x26d8 @0x4
0x26d4…26da at0005 = EOL // 0x26d9 @0x5
0x26d4…26da }
0x26da…26e8 b43f 4700 UNTIL FRA<=AFIN
0x26da…26e8 LineComalBin {
0x26da…26e8 ptr = 0xb43f // 0x26da @0x0
0x26da…26e8 lno = 0x125c // 0x26dc @0x2
0x26da…26e8 at0004 = ╱98╱ UNTIL ╱ // 0x26de @0x4
0x26da…26e8 at0005 = ╱46╱F╱ // 0x26df @0x5
0x26da…26e8 at0006 = ╱52╱R╱ // 0x26e0 @0x6
0x26da…26e8 at0007 = ╱41╱A╱ // 0x26e1 @0x7
0x26da…26e8 at0008 = ╱df╱<=╱ // 0x26e2 @0x8
0x26da…26e8 at0009 = ╱41╱A╱ // 0x26e3 @0x9
0x26da…26e8 at000a = ╱46╱F╱ // 0x26e4 @0xa
0x26da…26e8 at000b = ╱49╱I╱ // 0x26e5 @0xb
0x26da…26e8 at000c = ╱4e╱N╱ // 0x26e6 @0xc
0x26da…26e8 at000d = EOL // 0x26e7 @0xd
0x26da…26e8 }
0x26e8…26f2 b449 4710 IF P>B THEN
0x26e8…26f2 LineComalBin {
0x26e8…26f2 ptr = 0xb449 // 0x26e8 @0x0
0x26e8…26f2 lno = 0x1266 // 0x26ea @0x2
0x26e8…26f2 at0004 = ╱9c╱ IF ╱ // 0x26ec @0x4
0x26e8…26f2 at0005 = ╱50╱P╱ // 0x26ed @0x5
0x26e8…26f2 at0006 = ╱de╱>╱ // 0x26ee @0x6
0x26e8…26f2 at0007 = ╱42╱B╱ // 0x26ef @0x7
0x26e8…26f2 at0008 = ╱b6╱ THEN ╱ // 0x26f0 @0x8
0x26e8…26f2 at0009 = EOL // 0x26f1 @0x9
0x26e8…26f2 }
0x26f2…26f8 b44f 4720 REPEAT
0x26f2…26f8 LineComalBin {
0x26f2…26f8 ptr = 0xb44f // 0x26f2 @0x0
0x26f2…26f8 lno = 0x1270 // 0x26f4 @0x2
0x26f2…26f8 at0004 = ╱97╱ REPEAT ╱ // 0x26f6 @0x4
0x26f2…26f8 at0005 = EOL // 0x26f7 @0x5
0x26f2…26f8 }
0x26f8…2707 b45e 4730 CURSOR V,23
0x26f8…2707 LineComalBin {
0x26f8…2707 ptr = 0xb45e // 0x26f8 @0x0
0x26f8…2707 lno = 0x127a // 0x26fa @0x2
0x26f8…2707 at0004 = ╱a1╱ CURSOR ╱ // 0x26fc @0x4
0x26f8…2707 at0005 = ╱56╱V╱ // 0x26fd @0x5
0x26f8…2707 at0006 = ╱ec╱,╱ // 0x26fe @0x6
0x26f8…2707 at0007 = ╱32╱2╱ // 0x26ff @0x7
0x26f8…2707 at0008 = ╱33╱3╱ // 0x2700 @0x8
0x26f8…2707 at0009 = ╱fe0000b805╱ // 0x2701 @0x9
0x26f8…2707 at000e = EOL // 0x2706 @0xe
0x26f8…2707 }
0x2707…2736 b48d 4740 PRINT "Til kontonr "
0x2707…2736 LineComalBin {
0x2707…2736 ptr = 0xb48d // 0x2707 @0x0
0x2707…2736 lno = 0x1284 // 0x2709 @0x2
0x2707…2736 at0004 = ╱92╱ PRINT ╱ // 0x270b @0x4
0x2707…2736 at0005 = ╱22╱"╱ // 0x270c @0x5
0x2707…2736 at0006 = ╱54╱T╱ // 0x270d @0x6
0x2707…2736 at0007 = ╱69╱i╱ // 0x270e @0x7
0x2707…2736 at0008 = ╱6c╱l╱ // 0x270f @0x8
0x2707…2736 at0009 = ╱20╱…╱ // 0x2710 @0x9
0x2707…2736 at000a = ╱6b╱k╱ // 0x2711 @0xa
0x2707…2736 at000b = ╱6f╱o╱ // 0x2712 @0xb
0x2707…2736 at000c = ╱6e╱n╱ // 0x2713 @0xc
0x2707…2736 at000d = ╱74╱t╱ // 0x2714 @0xd
0x2707…2736 at000e = ╱6f╱o╱ // 0x2715 @0xe
0x2707…2736 at000f = ╱6e╱n╱ // 0x2716 @0xf
0x2707…2736 at0010 = ╱72╱r╱ // 0x2717 @0x10
0x2707…2736 at0011 = ╱20╱…╱ // 0x2718 @0x11
0x2707…2736 at0012 = ╱20╱…╱ // 0x2719 @0x12
0x2707…2736 at0013 = ╱20╱…╱ // 0x271a @0x13
0x2707…2736 at0014 = ╱20╱…╱ // 0x271b @0x14
0x2707…2736 at0015 = ╱20╱…╱ // 0x271c @0x15
0x2707…2736 at0016 = ╱20╱…╱ // 0x271d @0x16
0x2707…2736 at0017 = ╱20╱…╱ // 0x271e @0x17
0x2707…2736 at0018 = ╱20╱…╱ // 0x271f @0x18
0x2707…2736 at0019 = ╱20╱…╱ // 0x2720 @0x19
0x2707…2736 at001a = ╱20╱…╱ // 0x2721 @0x1a
0x2707…2736 at001b = ╱20╱…╱ // 0x2722 @0x1b
0x2707…2736 at001c = ╱20╱…╱ // 0x2723 @0x1c
0x2707…2736 at001d = ╱20╱…╱ // 0x2724 @0x1d
0x2707…2736 at001e = ╱20╱…╱ // 0x2725 @0x1e
0x2707…2736 at001f = ╱20╱…╱ // 0x2726 @0x1f
0x2707…2736 at0020 = ╱20╱…╱ // 0x2727 @0x20
0x2707…2736 at0021 = ╱20╱…╱ // 0x2728 @0x21
0x2707…2736 at0022 = ╱20╱…╱ // 0x2729 @0x22
0x2707…2736 at0023 = ╱20╱…╱ // 0x272a @0x23
0x2707…2736 at0024 = ╱20╱…╱ // 0x272b @0x24
0x2707…2736 at0025 = ╱20╱…╱ // 0x272c @0x25
0x2707…2736 at0026 = ╱20╱…╱ // 0x272d @0x26
0x2707…2736 at0027 = ╱20╱…╱ // 0x272e @0x27
0x2707…2736 at0028 = ╱20╱…╱ // 0x272f @0x28
0x2707…2736 at0029 = ╱20╱…╱ // 0x2730 @0x29
0x2707…2736 at002a = ╱20╱…╱ // 0x2731 @0x2a
0x2707…2736 at002b = ╱20╱…╱ // 0x2732 @0x2b
0x2707…2736 at002c = ╱20╱…╱ // 0x2733 @0x2c
0x2707…2736 at002d = ╱22╱"╱ // 0x2734 @0x2d
0x2707…2736 at002e = EOL // 0x2735 @0x2e
0x2707…2736 }
0x2736…274b b4a2 4750 CURSOR 15,23
0x2736…274b LineComalBin {
0x2736…274b ptr = 0xb4a2 // 0x2736 @0x0
0x2736…274b lno = 0x128e // 0x2738 @0x2
0x2736…274b at0004 = ╱a1╱ CURSOR ╱ // 0x273a @0x4
0x2736…274b at0005 = ╱31╱1╱ // 0x273b @0x5
0x2736…274b at0006 = ╱35╱5╱ // 0x273c @0x6
0x2736…274b at0007 = ╱fe0000f004╱ // 0x273d @0x7
0x2736…274b at000c = ╱ec╱,╱ // 0x2742 @0xc
0x2736…274b at000d = ╱32╱2╱ // 0x2743 @0xd
0x2736…274b at000e = ╱33╱3╱ // 0x2744 @0xe
0x2736…274b at000f = ╱fe0000b805╱ // 0x2745 @0xf
0x2736…274b at0014 = EOL // 0x274a @0x14
0x2736…274b }
0x274b…2755 b4ac 4760 INPUT KTN$
0x274b…2755 LineComalBin {
0x274b…2755 ptr = 0xb4ac // 0x274b @0x0
0x274b…2755 lno = 0x1298 // 0x274d @0x2
0x274b…2755 at0004 = ╱91╱ INPUT ╱ // 0x274f @0x4
0x274b…2755 at0005 = ╱4b╱K╱ // 0x2750 @0x5
0x274b…2755 at0006 = ╱54╱T╱ // 0x2751 @0x6
0x274b…2755 at0007 = ╱4e╱N╱ // 0x2752 @0x7
0x274b…2755 at0008 = ╱ef╱$╱ // 0x2753 @0x8
0x274b…2755 at0009 = EOL // 0x2754 @0x9
0x274b…2755 }
0x2755…2767 b4be 4770 EXEC NRTEST(KTN$)
0x2755…2767 LineComalBin {
0x2755…2767 ptr = 0xb4be // 0x2755 @0x0
0x2755…2767 lno = 0x12a2 // 0x2757 @0x2
0x2755…2767 at0004 = ╱9d╱ EXEC ╱ // 0x2759 @0x4
0x2755…2767 at0005 = ╱4e╱N╱ // 0x275a @0x5
0x2755…2767 at0006 = ╱52╱R╱ // 0x275b @0x6
0x2755…2767 at0007 = ╱54╱T╱ // 0x275c @0x7
0x2755…2767 at0008 = ╱45╱E╱ // 0x275d @0x8
0x2755…2767 at0009 = ╱53╱S╱ // 0x275e @0x9
0x2755…2767 at000a = ╱54╱T╱ // 0x275f @0xa
0x2755…2767 at000b = ╱ed╱(╱ // 0x2760 @0xb
0x2755…2767 at000c = ╱4b╱K╱ // 0x2761 @0xc
0x2755…2767 at000d = ╱54╱T╱ // 0x2762 @0xd
0x2755…2767 at000e = ╱4e╱N╱ // 0x2763 @0xe
0x2755…2767 at000f = ╱ef╱$╱ // 0x2764 @0xf
0x2755…2767 at0010 = ╱ee╱)╱ // 0x2765 @0x10
0x2755…2767 at0011 = EOL // 0x2766 @0x11
0x2755…2767 }
0x2767…2790 (131,) b4e7 4780 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT
0x2767…2790 LineComalBin {
0x2767…2790 ptr = 0xb4e7 // 0x2767 @0x0
0x2767…2790 lno = 0x12ac // 0x2769 @0x2
0x2767…2790 at0004 = ╱98╱ UNTIL ╱ // 0x276b @0x4
0x2767…2790 at0005 = ╱4c╱L╱ // 0x276c @0x5
0x2767…2790 at0006 = ╱dc╱=╱ // 0x276d @0x6
0x2767…2790 at0007 = ╱35╱5╱ // 0x276e @0x7
0x2767…2790 at0008 = ╱fe0000a003╱ // 0x276f @0x8
0x2767…2790 at000d = ╱da╱ AND ╱ // 0x2774 @0xd
0x2767…2790 at000e = ╱50╱P╱ // 0x2775 @0xe
0x2767…2790 at000f = ╱de╱>╱ // 0x2776 @0xf
0x2767…2790 at0010 = ╱39╱9╱ // 0x2777 @0x10
0x2767…2790 at0011 = ╱39╱9╱ // 0x2778 @0x11
0x2767…2790 at0012 = ╱39╱9╱ // 0x2779 @0x12
0x2767…2790 at0013 = ╱39╱9╱ // 0x277a @0x13
0x2767…2790 at0014 = ╱fe003c9c0e╱ // 0x277b @0x14
0x2767…2790 at0019 = ╱da╱ AND ╱ // 0x2780 @0x19
0x2767…2790 at001a = ╱54╱T╱ // 0x2781 @0x1a
0x2767…2790 at001b = ╱45╱E╱ // 0x2782 @0x1b
0x2767…2790 at001c = ╱53╱S╱ // 0x2783 @0x1c
0x2767…2790 at001d = ╱54╱T╱ // 0x2784 @0x1d
0x2767…2790 at001e = ╱32╱2╱ // 0x2785 @0x1e
0x2767…2790 at001f = ╱dc╱=╱ // 0x2786 @0x1f
0x2767…2790 at0020 = ╱42╱B╱ // 0x2787 @0x20
0x2767…2790 at0021 = ╱da╱ AND ╱ // 0x2788 @0x21
0x2767…2790 at0022 = ╱50╱P╱ // 0x2789 @0x22
0x2767…2790 at0023 = ╱e0╱=>╱ // 0x278a @0x23
0x2767…2790 at0024 = ╱4b╱K╱ // 0x278b @0x24
0x2767…2790 at0025 = ╱4f╱O╱ // 0x278c @0x25
0x2767…2790 at0026 = ╱4e╱N╱ // 0x278d @0x26
0x2767…2790 at0027 = ╱54╱T╱ // 0x278e @0x27
0x2767…2790 at0028 = EOL // 0x278f @0x28
0x2767…2790 }
0x2790…27b4 b50b 4790 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3)
0x2790…27b4 LineComalBin {
0x2790…27b4 ptr = 0xb50b // 0x2790 @0x0
0x2790…27b4 lno = 0x12b6 // 0x2792 @0x2
0x2790…27b4 at0004 = ╱9d╱ EXEC ╱ // 0x2794 @0x4
0x2790…27b4 at0005 = ╱46╱F╱ // 0x2795 @0x5
0x2790…27b4 at0006 = ╱49╱I╱ // 0x2796 @0x6
0x2790…27b4 at0007 = ╱4e╱N╱ // 0x2797 @0x7
0x2790…27b4 at0008 = ╱44╱D╱ // 0x2798 @0x8
0x2790…27b4 at0009 = ╱50╱P╱ // 0x2799 @0x9
0x2790…27b4 at000a = ╱4f╱O╱ // 0x279a @0xa
0x2790…27b4 at000b = ╱53╱S╱ // 0x279b @0xb
0x2790…27b4 at000c = ╱54╱T╱ // 0x279c @0xc
0x2790…27b4 at000d = ╱ed╱(╱ // 0x279d @0xd
0x2790…27b4 at000e = ╱46╱F╱ // 0x279e @0xe
0x2790…27b4 at000f = ╱54╱T╱ // 0x279f @0xf
0x2790…27b4 at0010 = ╱41╱A╱ // 0x27a0 @0x10
0x2790…27b4 at0011 = ╱42╱B╱ // 0x27a1 @0x11
0x2790…27b4 at0012 = ╱ec╱,╱ // 0x27a2 @0x12
0x2790…27b4 at0013 = ╱4d╱M╱ // 0x27a3 @0x13
0x2790…27b4 at0014 = ╱46╱F╱ // 0x27a4 @0x14
0x2790…27b4 at0015 = ╱41╱A╱ // 0x27a5 @0x15
0x2790…27b4 at0016 = ╱4e╱N╱ // 0x27a6 @0x16
0x2790…27b4 at0017 = ╱54╱T╱ // 0x27a7 @0x17
0x2790…27b4 at0018 = ╱41╱A╱ // 0x27a8 @0x18
0x2790…27b4 at0019 = ╱4c╱L╱ // 0x27a9 @0x19
0x2790…27b4 at001a = ╱ec╱,╱ // 0x27aa @0x1a
0x2790…27b4 at001b = ╱50╱P╱ // 0x27ab @0x1b
0x2790…27b4 at001c = ╱ec╱,╱ // 0x27ac @0x1c
0x2790…27b4 at001d = ╱46╱F╱ // 0x27ad @0x1d
0x2790…27b4 at001e = ╱50╱P╱ // 0x27ae @0x1e
0x2790…27b4 at001f = ╱49╱I╱ // 0x27af @0x1f
0x2790…27b4 at0020 = ╱4c╱L╱ // 0x27b0 @0x20
0x2790…27b4 at0021 = ╱33╱3╱ // 0x27b1 @0x21
0x2790…27b4 at0022 = ╱ee╱)╱ // 0x27b2 @0x22
0x2790…27b4 at0023 = EOL // 0x27b3 @0x23
0x2790…27b4 }
0x27b4…27ce (132,) b525 4800 IF CEKS=E THEN FPIL3=FPIL3-E
0x27b4…27ce LineComalBin {
0x27b4…27ce ptr = 0xb525 // 0x27b4 @0x0
0x27b4…27ce lno = 0x12c0 // 0x27b6 @0x2
0x27b4…27ce at0004 = ╱82╱ IF ╱ // 0x27b8 @0x4
0x27b4…27ce at0005 = ╱43╱C╱ // 0x27b9 @0x5
0x27b4…27ce at0006 = ╱45╱E╱ // 0x27ba @0x6
0x27b4…27ce at0007 = ╱4b╱K╱ // 0x27bb @0x7
0x27b4…27ce at0008 = ╱53╱S╱ // 0x27bc @0x8
0x27b4…27ce at0009 = ╱dc╱=╱ // 0x27bd @0x9
0x27b4…27ce at000a = ╱45╱E╱ // 0x27be @0xa
0x27b4…27ce at000b = ╱b6╱ THEN ╱ // 0x27bf @0xb
0x27b4…27ce at000c = ╱46╱F╱ // 0x27c0 @0xc
0x27b4…27ce at000d = ╱50╱P╱ // 0x27c1 @0xd
0x27b4…27ce at000e = ╱49╱I╱ // 0x27c2 @0xe
0x27b4…27ce at000f = ╱4c╱L╱ // 0x27c3 @0xf
0x27b4…27ce at0010 = ╱33╱3╱ // 0x27c4 @0x10
0x27b4…27ce at0011 = ╱dc╱=╱ // 0x27c5 @0x11
0x27b4…27ce at0012 = ╱46╱F╱ // 0x27c6 @0x12
0x27b4…27ce at0013 = ╱50╱P╱ // 0x27c7 @0x13
0x27b4…27ce at0014 = ╱49╱I╱ // 0x27c8 @0x14
0x27b4…27ce at0015 = ╱4c╱L╱ // 0x27c9 @0x15
0x27b4…27ce at0016 = ╱33╱3╱ // 0x27ca @0x16
0x27b4…27ce at0017 = ╱e3╱-╱ // 0x27cb @0x17
0x27b4…27ce at0018 = ╱45╱E╱ // 0x27cc @0x18
0x27b4…27ce at0019 = EOL // 0x27cd @0x19
0x27b4…27ce }
0x27ce…27dc b533 4810 TIL=FPIL3
0x27ce…27dc LineComalBin {
0x27ce…27dc ptr = 0xb533 // 0x27ce @0x0
0x27ce…27dc lno = 0x12ca // 0x27d0 @0x2
0x27ce…27dc at0004 = ╱54╱T╱ // 0x27d2 @0x4
0x27ce…27dc at0005 = ╱49╱I╱ // 0x27d3 @0x5
0x27ce…27dc at0006 = ╱4c╱L╱ // 0x27d4 @0x6
0x27ce…27dc at0007 = ╱dc╱=╱ // 0x27d5 @0x7
0x27ce…27dc at0008 = ╱46╱F╱ // 0x27d6 @0x8
0x27ce…27dc at0009 = ╱50╱P╱ // 0x27d7 @0x9
0x27ce…27dc at000a = ╱49╱I╱ // 0x27d8 @0xa
0x27ce…27dc at000b = ╱4c╱L╱ // 0x27d9 @0xb
0x27ce…27dc at000c = ╱33╱3╱ // 0x27da @0xc
0x27ce…27dc at000d = EOL // 0x27db @0xd
0x27ce…27dc }
0x27dc…27e2 b539 4820 ENDIF
0x27dc…27e2 LineComalBin {
0x27dc…27e2 ptr = 0xb539 // 0x27dc @0x0
0x27dc…27e2 lno = 0x12d4 // 0x27de @0x2
0x27dc…27e2 at0004 = ╱9b╱ ENDIF ╱ // 0x27e0 @0x4
0x27dc…27e2 at0005 = EOL // 0x27e1 @0x5
0x27dc…27e2 }
0x27e2…27e8 b53f 4830 CLEAR
0x27e2…27e8 LineComalBin {
0x27e2…27e8 ptr = 0xb53f // 0x27e2 @0x0
0x27e2…27e8 lno = 0x12de // 0x27e4 @0x2
0x27e2…27e8 at0004 = ╱a0╱ CLEAR ╱ // 0x27e6 @0x4
0x27e2…27e8 at0005 = EOL // 0x27e7 @0x5
0x27e2…27e8 }
0x27e8…27ee b545 4840 REPEAT
0x27e8…27ee LineComalBin {
0x27e8…27ee ptr = 0xb545 // 0x27e8 @0x0
0x27e8…27ee lno = 0x12e8 // 0x27ea @0x2
0x27e8…27ee at0004 = ╱97╱ REPEAT ╱ // 0x27ec @0x4
0x27e8…27ee at0005 = EOL // 0x27ed @0x5
0x27e8…27ee }
0x27ee…2802 b559 4850 CURSOR 8,13
0x27ee…2802 LineComalBin {
0x27ee…2802 ptr = 0xb559 // 0x27ee @0x0
0x27ee…2802 lno = 0x12f2 // 0x27f0 @0x2
0x27ee…2802 at0004 = ╱a1╱ CURSOR ╱ // 0x27f2 @0x4
0x27ee…2802 at0005 = ╱38╱8╱ // 0x27f3 @0x5
0x27ee…2802 at0006 = ╱fe00008004╱ // 0x27f4 @0x6
0x27ee…2802 at000b = ╱ec╱,╱ // 0x27f9 @0xb
0x27ee…2802 at000c = ╱31╱1╱ // 0x27fa @0xc
0x27ee…2802 at000d = ╱33╱3╱ // 0x27fb @0xd
0x27ee…2802 at000e = ╱fe0000d004╱ // 0x27fc @0xe
0x27ee…2802 at0013 = EOL // 0x2801 @0x13
0x27ee…2802 }
0x2802…2849 b5a0 4860 INPUT "Monter papir til udskrift af finanskontoliste og tast RETURN",A$
0x2802…2849 LineComalBin {
0x2802…2849 ptr = 0xb5a0 // 0x2802 @0x0
0x2802…2849 lno = 0x12fc // 0x2804 @0x2
0x2802…2849 at0004 = ╱91╱ INPUT ╱ // 0x2806 @0x4
0x2802…2849 at0005 = ╱22╱"╱ // 0x2807 @0x5
0x2802…2849 at0006 = ╱4d╱M╱ // 0x2808 @0x6
0x2802…2849 at0007 = ╱6f╱o╱ // 0x2809 @0x7
0x2802…2849 at0008 = ╱6e╱n╱ // 0x280a @0x8
0x2802…2849 at0009 = ╱74╱t╱ // 0x280b @0x9
0x2802…2849 at000a = ╱65╱e╱ // 0x280c @0xa
0x2802…2849 at000b = ╱72╱r╱ // 0x280d @0xb
0x2802…2849 at000c = ╱20╱…╱ // 0x280e @0xc
0x2802…2849 at000d = ╱70╱p╱ // 0x280f @0xd
0x2802…2849 at000e = ╱61╱a╱ // 0x2810 @0xe
0x2802…2849 at000f = ╱70╱p╱ // 0x2811 @0xf
0x2802…2849 at0010 = ╱69╱i╱ // 0x2812 @0x10
0x2802…2849 at0011 = ╱72╱r╱ // 0x2813 @0x11
0x2802…2849 at0012 = ╱20╱…╱ // 0x2814 @0x12
0x2802…2849 at0013 = ╱74╱t╱ // 0x2815 @0x13
0x2802…2849 at0014 = ╱69╱i╱ // 0x2816 @0x14
0x2802…2849 at0015 = ╱6c╱l╱ // 0x2817 @0x15
0x2802…2849 at0016 = ╱20╱…╱ // 0x2818 @0x16
0x2802…2849 at0017 = ╱75╱u╱ // 0x2819 @0x17
0x2802…2849 at0018 = ╱64╱d╱ // 0x281a @0x18
0x2802…2849 at0019 = ╱73╱s╱ // 0x281b @0x19
0x2802…2849 at001a = ╱6b╱k╱ // 0x281c @0x1a
0x2802…2849 at001b = ╱72╱r╱ // 0x281d @0x1b
0x2802…2849 at001c = ╱69╱i╱ // 0x281e @0x1c
0x2802…2849 at001d = ╱66╱f╱ // 0x281f @0x1d
0x2802…2849 at001e = ╱74╱t╱ // 0x2820 @0x1e
0x2802…2849 at001f = ╱20╱…╱ // 0x2821 @0x1f
0x2802…2849 at0020 = ╱61╱a╱ // 0x2822 @0x20
0x2802…2849 at0021 = ╱66╱f╱ // 0x2823 @0x21
0x2802…2849 at0022 = ╱20╱…╱ // 0x2824 @0x22
0x2802…2849 at0023 = ╱66╱f╱ // 0x2825 @0x23
0x2802…2849 at0024 = ╱69╱i╱ // 0x2826 @0x24
0x2802…2849 at0025 = ╱6e╱n╱ // 0x2827 @0x25
0x2802…2849 at0026 = ╱61╱a╱ // 0x2828 @0x26
0x2802…2849 at0027 = ╱6e╱n╱ // 0x2829 @0x27
0x2802…2849 at0028 = ╱73╱s╱ // 0x282a @0x28
0x2802…2849 at0029 = ╱6b╱k╱ // 0x282b @0x29
0x2802…2849 at002a = ╱6f╱o╱ // 0x282c @0x2a
0x2802…2849 at002b = ╱6e╱n╱ // 0x282d @0x2b
0x2802…2849 at002c = ╱74╱t╱ // 0x282e @0x2c
0x2802…2849 at002d = ╱6f╱o╱ // 0x282f @0x2d
0x2802…2849 at002e = ╱6c╱l╱ // 0x2830 @0x2e
0x2802…2849 at002f = ╱69╱i╱ // 0x2831 @0x2f
0x2802…2849 at0030 = ╱73╱s╱ // 0x2832 @0x30
0x2802…2849 at0031 = ╱74╱t╱ // 0x2833 @0x31
0x2802…2849 at0032 = ╱65╱e╱ // 0x2834 @0x32
0x2802…2849 at0033 = ╱20╱…╱ // 0x2835 @0x33
0x2802…2849 at0034 = ╱6f╱o╱ // 0x2836 @0x34
0x2802…2849 at0035 = ╱67╱g╱ // 0x2837 @0x35
0x2802…2849 at0036 = ╱20╱…╱ // 0x2838 @0x36
0x2802…2849 at0037 = ╱74╱t╱ // 0x2839 @0x37
0x2802…2849 at0038 = ╱61╱a╱ // 0x283a @0x38
0x2802…2849 at0039 = ╱73╱s╱ // 0x283b @0x39
0x2802…2849 at003a = ╱74╱t╱ // 0x283c @0x3a
0x2802…2849 at003b = ╱20╱…╱ // 0x283d @0x3b
0x2802…2849 at003c = ╱52╱R╱ // 0x283e @0x3c
0x2802…2849 at003d = ╱45╱E╱ // 0x283f @0x3d
0x2802…2849 at003e = ╱54╱T╱ // 0x2840 @0x3e
0x2802…2849 at003f = ╱55╱U╱ // 0x2841 @0x3f
0x2802…2849 at0040 = ╱52╱R╱ // 0x2842 @0x40
0x2802…2849 at0041 = ╱4e╱N╱ // 0x2843 @0x41
0x2802…2849 at0042 = ╱22╱"╱ // 0x2844 @0x42
0x2802…2849 at0043 = ╱ec╱,╱ // 0x2845 @0x43
0x2802…2849 at0044 = ╱41╱A╱ // 0x2846 @0x44
0x2802…2849 at0045 = ╱ef╱$╱ // 0x2847 @0x45
0x2802…2849 at0046 = EOL // 0x2848 @0x46
0x2802…2849 }
0x2849…285d b5b4 4870 UNTIL ORD(A$)=255
0x2849…285d LineComalBin {
0x2849…285d ptr = 0xb5b4 // 0x2849 @0x0
0x2849…285d lno = 0x1306 // 0x284b @0x2
0x2849…285d at0004 = ╱98╱ UNTIL ╱ // 0x284d @0x4
0x2849…285d at0005 = ╱cd╱ORD╱ // 0x284e @0x5
0x2849…285d at0006 = ╱ed╱(╱ // 0x284f @0x6
0x2849…285d at0007 = ╱41╱A╱ // 0x2850 @0x7
0x2849…285d at0008 = ╱ef╱$╱ // 0x2851 @0x8
0x2849…285d at0009 = ╱ee╱)╱ // 0x2852 @0x9
0x2849…285d at000a = ╱dc╱=╱ // 0x2853 @0xa
0x2849…285d at000b = ╱32╱2╱ // 0x2854 @0xb
0x2849…285d at000c = ╱35╱5╱ // 0x2855 @0xc
0x2849…285d at000d = ╱35╱5╱ // 0x2856 @0xd
0x2849…285d at000e = ╱fe0000ff08╱ // 0x2857 @0xe
0x2849…285d at0013 = EOL // 0x285c @0x13
0x2849…285d }
0x285d…2864 b5bb 4880 OUTPUT P
0x285d…2864 LineComalBin {
0x285d…2864 ptr = 0xb5bb // 0x285d @0x0
0x285d…2864 lno = 0x1310 // 0x285f @0x2
0x285d…2864 at0004 = ╱a5╱ OUTPUT ╱ // 0x2861 @0x4
0x285d…2864 at0005 = ╱50╱P╱ // 0x2862 @0x5
0x285d…2864 at0006 = EOL // 0x2863 @0x6
0x285d…2864 }
0x2864…286f b5c6 4890 SIDE=E
0x2864…286f LineComalBin {
0x2864…286f ptr = 0xb5c6 // 0x2864 @0x0
0x2864…286f lno = 0x131a // 0x2866 @0x2
0x2864…286f at0004 = ╱53╱S╱ // 0x2868 @0x4
0x2864…286f at0005 = ╱49╱I╱ // 0x2869 @0x5
0x2864…286f at0006 = ╱44╱D╱ // 0x286a @0x6
0x2864…286f at0007 = ╱45╱E╱ // 0x286b @0x7
0x2864…286f at0008 = ╱dc╱=╱ // 0x286c @0x8
0x2864…286f at0009 = ╱45╱E╱ // 0x286d @0x9
0x2864…286f at000a = EOL // 0x286e @0xa
0x2864…286f }
0x286f…287c b5d3 4900 DA1=DATO
0x286f…287c LineComalBin {
0x286f…287c ptr = 0xb5d3 // 0x286f @0x0
0x286f…287c lno = 0x1324 // 0x2871 @0x2
0x286f…287c at0004 = ╱44╱D╱ // 0x2873 @0x4
0x286f…287c at0005 = ╱41╱A╱ // 0x2874 @0x5
0x286f…287c at0006 = ╱31╱1╱ // 0x2875 @0x6
0x286f…287c at0007 = ╱dc╱=╱ // 0x2876 @0x7
0x286f…287c at0008 = ╱44╱D╱ // 0x2877 @0x8
0x286f…287c at0009 = ╱41╱A╱ // 0x2878 @0x9
0x286f…287c at000a = ╱54╱T╱ // 0x2879 @0xa
0x286f…287c at000b = ╱4f╱O╱ // 0x287a @0xb
0x286f…287c at000c = EOL // 0x287b @0xc
0x286f…287c }
0x287c…2890 b5e7 4910 DAT$=" "
0x287c…2890 LineComalBin {
0x287c…2890 ptr = 0xb5e7 // 0x287c @0x0
0x287c…2890 lno = 0x132e // 0x287e @0x2
0x287c…2890 at0004 = ╱44╱D╱ // 0x2880 @0x4
0x287c…2890 at0005 = ╱41╱A╱ // 0x2881 @0x5
0x287c…2890 at0006 = ╱54╱T╱ // 0x2882 @0x6
0x287c…2890 at0007 = ╱ef╱$╱ // 0x2883 @0x7
0x287c…2890 at0008 = ╱dc╱=╱ // 0x2884 @0x8
0x287c…2890 at0009 = ╱22╱"╱ // 0x2885 @0x9
0x287c…2890 at000a = ╱20╱…╱ // 0x2886 @0xa
0x287c…2890 at000b = ╱20╱…╱ // 0x2887 @0xb
0x287c…2890 at000c = ╱20╱…╱ // 0x2888 @0xc
0x287c…2890 at000d = ╱20╱…╱ // 0x2889 @0xd
0x287c…2890 at000e = ╱20╱…╱ // 0x288a @0xe
0x287c…2890 at000f = ╱20╱…╱ // 0x288b @0xf
0x287c…2890 at0010 = ╱20╱…╱ // 0x288c @0x10
0x287c…2890 at0011 = ╱20╱…╱ // 0x288d @0x11
0x287c…2890 at0012 = ╱22╱"╱ // 0x288e @0x12
0x287c…2890 at0013 = EOL // 0x288f @0x13
0x287c…2890 }
0x2890…28a3 b5fa 4920 FOR J=8 TO E STEP -E
0x2890…28a3 LineComalBin {
0x2890…28a3 ptr = 0xb5fa // 0x2890 @0x0
0x2890…28a3 lno = 0x1338 // 0x2892 @0x2
0x2890…28a3 at0004 = ╱83╱ FOR ╱ // 0x2894 @0x4
0x2890…28a3 at0005 = ╱4a╱J╱ // 0x2895 @0x5
0x2890…28a3 at0006 = ╱dc╱=╱ // 0x2896 @0x6
0x2890…28a3 at0007 = ╱38╱8╱ // 0x2897 @0x7
0x2890…28a3 at0008 = ╱fe00008004╱ // 0x2898 @0x8
0x2890…28a3 at000d = ╱b7╱ TO ╱ // 0x289d @0xd
0x2890…28a3 at000e = ╱45╱E╱ // 0x289e @0xe
0x2890…28a3 at000f = ╱b8╱ STEP ╱ // 0x289f @0xf
0x2890…28a3 at0010 = ╱e9╱-╱ // 0x28a0 @0x10
0x2890…28a3 at0011 = ╱45╱E╱ // 0x28a1 @0x11
0x2890…28a3 at0012 = EOL // 0x28a2 @0x12
0x2890…28a3 }
0x28a3…28af b606 4930 IF J MOD V=B THEN
0x28a3…28af LineComalBin {
0x28a3…28af ptr = 0xb606 // 0x28a3 @0x0
0x28a3…28af lno = 0x1342 // 0x28a5 @0x2
0x28a3…28af at0004 = ╱9c╱ IF ╱ // 0x28a7 @0x4
0x28a3…28af at0005 = ╱4a╱J╱ // 0x28a8 @0x5
0x28a3…28af at0006 = ╱e8╱ MOD ╱ // 0x28a9 @0x6
0x28a3…28af at0007 = ╱56╱V╱ // 0x28aa @0x7
0x28a3…28af at0008 = ╱dc╱=╱ // 0x28ab @0x8
0x28a3…28af at0009 = ╱42╱B╱ // 0x28ac @0x9
0x28a3…28af at000a = ╱b6╱ THEN ╱ // 0x28ad @0xa
0x28a3…28af at000b = EOL // 0x28ae @0xb
0x28a3…28af }
0x28af…28bf b616 4940 DAT$(J)="."
0x28af…28bf LineComalBin {
0x28af…28bf ptr = 0xb616 // 0x28af @0x0
0x28af…28bf lno = 0x134c // 0x28b1 @0x2
0x28af…28bf at0004 = ╱44╱D╱ // 0x28b3 @0x4
0x28af…28bf at0005 = ╱41╱A╱ // 0x28b4 @0x5
0x28af…28bf at0006 = ╱54╱T╱ // 0x28b5 @0x6
0x28af…28bf at0007 = ╱ef╱$╱ // 0x28b6 @0x7
0x28af…28bf at0008 = ╱ed╱(╱ // 0x28b7 @0x8
0x28af…28bf at0009 = ╱4a╱J╱ // 0x28b8 @0x9
0x28af…28bf at000a = ╱ee╱)╱ // 0x28b9 @0xa
0x28af…28bf at000b = ╱dc╱=╱ // 0x28ba @0xb
0x28af…28bf at000c = ╱22╱"╱ // 0x28bb @0xc
0x28af…28bf at000d = ╱2e╱.╱ // 0x28bc @0xd
0x28af…28bf at000e = ╱22╱"╱ // 0x28bd @0xe
0x28af…28bf at000f = EOL // 0x28be @0xf
0x28af…28bf }
0x28bf…28c5 b61c 4950 ELSE
0x28bf…28c5 LineComalBin {
0x28bf…28c5 ptr = 0xb61c // 0x28bf @0x0
0x28bf…28c5 lno = 0x1356 // 0x28c1 @0x2
0x28bf…28c5 at0004 = ╱9a╱ ELSE ╱ // 0x28c3 @0x4
0x28bf…28c5 at0005 = EOL // 0x28c4 @0x5
0x28bf…28c5 }
0x28c5…28e8 b63f 4960 DAT$(J)=CHR(DA1 MOD 10+48)
0x28c5…28e8 LineComalBin {
0x28c5…28e8 ptr = 0xb63f // 0x28c5 @0x0
0x28c5…28e8 lno = 0x1360 // 0x28c7 @0x2
0x28c5…28e8 at0004 = ╱44╱D╱ // 0x28c9 @0x4
0x28c5…28e8 at0005 = ╱41╱A╱ // 0x28ca @0x5
0x28c5…28e8 at0006 = ╱54╱T╱ // 0x28cb @0x6
0x28c5…28e8 at0007 = ╱ef╱$╱ // 0x28cc @0x7
0x28c5…28e8 at0008 = ╱ed╱(╱ // 0x28cd @0x8
0x28c5…28e8 at0009 = ╱4a╱J╱ // 0x28ce @0x9
0x28c5…28e8 at000a = ╱ee╱)╱ // 0x28cf @0xa
0x28c5…28e8 at000b = ╱dc╱=╱ // 0x28d0 @0xb
0x28c5…28e8 at000c = ╱cf╱CHR╱ // 0x28d1 @0xc
0x28c5…28e8 at000d = ╱ed╱(╱ // 0x28d2 @0xd
0x28c5…28e8 at000e = ╱44╱D╱ // 0x28d3 @0xe
0x28c5…28e8 at000f = ╱41╱A╱ // 0x28d4 @0xf
0x28c5…28e8 at0010 = ╱31╱1╱ // 0x28d5 @0x10
0x28c5…28e8 at0011 = ╱e8╱ MOD ╱ // 0x28d6 @0x11
0x28c5…28e8 at0012 = ╱31╱1╱ // 0x28d7 @0x12
0x28c5…28e8 at0013 = ╱30╱0╱ // 0x28d8 @0x13
0x28c5…28e8 at0014 = ╱fe0000a004╱ // 0x28d9 @0x14
0x28c5…28e8 at0019 = ╱e2╱+╱ // 0x28de @0x19
0x28c5…28e8 at001a = ╱34╱4╱ // 0x28df @0x1a
0x28c5…28e8 at001b = ╱38╱8╱ // 0x28e0 @0x1b
0x28c5…28e8 at001c = ╱fe0000c006╱ // 0x28e1 @0x1c
0x28c5…28e8 at0021 = ╱ee╱)╱ // 0x28e6 @0x21
0x28c5…28e8 at0022 = EOL // 0x28e7 @0x22
0x28c5…28e8 }
0x28e8…28fc (136,) b653 4970 DA1=DA1 DIV 10
0x28e8…28fc LineComalBin {
0x28e8…28fc ptr = 0xb653 // 0x28e8 @0x0
0x28e8…28fc lno = 0x136a // 0x28ea @0x2
0x28e8…28fc at0004 = ╱44╱D╱ // 0x28ec @0x4
0x28e8…28fc at0005 = ╱41╱A╱ // 0x28ed @0x5
0x28e8…28fc at0006 = ╱31╱1╱ // 0x28ee @0x6
0x28e8…28fc at0007 = ╱dc╱=╱ // 0x28ef @0x7
0x28e8…28fc at0008 = ╱44╱D╱ // 0x28f0 @0x8
0x28e8…28fc at0009 = ╱41╱A╱ // 0x28f1 @0x9
0x28e8…28fc at000a = ╱31╱1╱ // 0x28f2 @0xa
0x28e8…28fc at000b = ╱e7╱ DIV ╱ // 0x28f3 @0xb
0x28e8…28fc at000c = ╱31╱1╱ // 0x28f4 @0xc
0x28e8…28fc at000d = ╱30╱0╱ // 0x28f5 @0xd
0x28e8…28fc at000e = ╱fe0000a004╱ // 0x28f6 @0xe
0x28e8…28fc at0013 = EOL // 0x28fb @0x13
0x28e8…28fc }
0x28fc…2902 b659 4980 ENDIF
0x28fc…2902 LineComalBin {
0x28fc…2902 ptr = 0xb659 // 0x28fc @0x0
0x28fc…2902 lno = 0x1374 // 0x28fe @0x2
0x28fc…2902 at0004 = ╱9b╱ ENDIF ╱ // 0x2900 @0x4
0x28fc…2902 at0005 = EOL // 0x2901 @0x5
0x28fc…2902 }
0x2902…2909 b660 4990 NEXT J
0x2902…2909 LineComalBin {
0x2902…2909 ptr = 0xb660 // 0x2902 @0x0
0x2902…2909 lno = 0x137e // 0x2904 @0x2
0x2902…2909 at0004 = ╱84╱ NEXT ╱ // 0x2906 @0x4
0x2902…2909 at0005 = ╱4a╱J╱ // 0x2907 @0x5
0x2902…2909 at0006 = EOL // 0x2908 @0x6
0x2902…2909 }
0x2909…291f b676 5000 FOR I=FRA TO TIL STEP 5
0x2909…291f LineComalBin {
0x2909…291f ptr = 0xb676 // 0x2909 @0x0
0x2909…291f lno = 0x1388 // 0x290b @0x2
0x2909…291f at0004 = ╱83╱ FOR ╱ // 0x290d @0x4
0x2909…291f at0005 = ╱49╱I╱ // 0x290e @0x5
0x2909…291f at0006 = ╱dc╱=╱ // 0x290f @0x6
0x2909…291f at0007 = ╱46╱F╱ // 0x2910 @0x7
0x2909…291f at0008 = ╱52╱R╱ // 0x2911 @0x8
0x2909…291f at0009 = ╱41╱A╱ // 0x2912 @0x9
0x2909…291f at000a = ╱b7╱ TO ╱ // 0x2913 @0xa
0x2909…291f at000b = ╱54╱T╱ // 0x2914 @0xb
0x2909…291f at000c = ╱49╱I╱ // 0x2915 @0xc
0x2909…291f at000d = ╱4c╱L╱ // 0x2916 @0xd
0x2909…291f at000e = ╱b8╱ STEP ╱ // 0x2917 @0xe
0x2909…291f at000f = ╱35╱5╱ // 0x2918 @0xf
0x2909…291f at0010 = ╱fe0000a003╱ // 0x2919 @0x10
0x2909…291f at0015 = EOL // 0x291e @0x15
0x2909…291f }
0x291f…2937 b68e 5005 PRINT TAB(67);DV$;" "
0x291f…2937 LineComalBin {
0x291f…2937 ptr = 0xb68e // 0x291f @0x0
0x291f…2937 lno = 0x138d // 0x2921 @0x2
0x291f…2937 at0004 = ╱92╱ PRINT ╱ // 0x2923 @0x4
0x291f…2937 at0005 = ╱d2╱TAB╱ // 0x2924 @0x5
0x291f…2937 at0006 = ╱ed╱(╱ // 0x2925 @0x6
0x291f…2937 at0007 = ╱36╱6╱ // 0x2926 @0x7
0x291f…2937 at0008 = ╱37╱7╱ // 0x2927 @0x8
0x291f…2937 at0009 = ╱fe00008607╱ // 0x2928 @0x9
0x291f…2937 at000e = ╱ee╱)╱ // 0x292d @0xe
0x291f…2937 at000f = ╱eb╱;╱ // 0x292e @0xf
0x291f…2937 at0010 = ╱44╱D╱ // 0x292f @0x10
0x291f…2937 at0011 = ╱56╱V╱ // 0x2930 @0x11
0x291f…2937 at0012 = ╱ef╱$╱ // 0x2931 @0x12
0x291f…2937 at0013 = ╱eb╱;╱ // 0x2932 @0x13
0x291f…2937 at0014 = ╱22╱"╱ // 0x2933 @0x14
0x291f…2937 at0015 = ╱20╱…╱ // 0x2934 @0x15
0x291f…2937 at0016 = ╱22╱"╱ // 0x2935 @0x16
0x291f…2937 at0017 = EOL // 0x2936 @0x17
0x291f…2937 }
0x2937…298b b6e2 5010 PRINT TAB(10);CHR(14);"Finanskontoliste";CHR(15);TAB(36);"Dato : ";DAT$;
0x2937…298b LineComalBin {
0x2937…298b ptr = 0xb6e2 // 0x2937 @0x0
0x2937…298b lno = 0x1392 // 0x2939 @0x2
0x2937…298b at0004 = ╱92╱ PRINT ╱ // 0x293b @0x4
0x2937…298b at0005 = ╱d2╱TAB╱ // 0x293c @0x5
0x2937…298b at0006 = ╱ed╱(╱ // 0x293d @0x6
0x2937…298b at0007 = ╱31╱1╱ // 0x293e @0x7
0x2937…298b at0008 = ╱30╱0╱ // 0x293f @0x8
0x2937…298b at0009 = ╱fe0000a004╱ // 0x2940 @0x9
0x2937…298b at000e = ╱ee╱)╱ // 0x2945 @0xe
0x2937…298b at000f = ╱eb╱;╱ // 0x2946 @0xf
0x2937…298b at0010 = ╱cf╱CHR╱ // 0x2947 @0x10
0x2937…298b at0011 = ╱ed╱(╱ // 0x2948 @0x11
0x2937…298b at0012 = ╱31╱1╱ // 0x2949 @0x12
0x2937…298b at0013 = ╱34╱4╱ // 0x294a @0x13
0x2937…298b at0014 = ╱fe0000e004╱ // 0x294b @0x14
0x2937…298b at0019 = ╱ee╱)╱ // 0x2950 @0x19
0x2937…298b at001a = ╱eb╱;╱ // 0x2951 @0x1a
0x2937…298b at001b = ╱22╱"╱ // 0x2952 @0x1b
0x2937…298b at001c = ╱46╱F╱ // 0x2953 @0x1c
0x2937…298b at001d = ╱69╱i╱ // 0x2954 @0x1d
0x2937…298b at001e = ╱6e╱n╱ // 0x2955 @0x1e
0x2937…298b at001f = ╱61╱a╱ // 0x2956 @0x1f
0x2937…298b at0020 = ╱6e╱n╱ // 0x2957 @0x20
0x2937…298b at0021 = ╱73╱s╱ // 0x2958 @0x21
0x2937…298b at0022 = ╱6b╱k╱ // 0x2959 @0x22
0x2937…298b at0023 = ╱6f╱o╱ // 0x295a @0x23
0x2937…298b at0024 = ╱6e╱n╱ // 0x295b @0x24
0x2937…298b at0025 = ╱74╱t╱ // 0x295c @0x25
0x2937…298b at0026 = ╱6f╱o╱ // 0x295d @0x26
0x2937…298b at0027 = ╱6c╱l╱ // 0x295e @0x27
0x2937…298b at0028 = ╱69╱i╱ // 0x295f @0x28
0x2937…298b at0029 = ╱73╱s╱ // 0x2960 @0x29
0x2937…298b at002a = ╱74╱t╱ // 0x2961 @0x2a
0x2937…298b at002b = ╱65╱e╱ // 0x2962 @0x2b
0x2937…298b at002c = ╱22╱"╱ // 0x2963 @0x2c
0x2937…298b at002d = ╱eb╱;╱ // 0x2964 @0x2d
0x2937…298b at002e = ╱cf╱CHR╱ // 0x2965 @0x2e
0x2937…298b at002f = ╱ed╱(╱ // 0x2966 @0x2f
0x2937…298b at0030 = ╱31╱1╱ // 0x2967 @0x30
0x2937…298b at0031 = ╱35╱5╱ // 0x2968 @0x31
0x2937…298b at0032 = ╱fe0000f004╱ // 0x2969 @0x32
0x2937…298b at0037 = ╱ee╱)╱ // 0x296e @0x37
0x2937…298b at0038 = ╱eb╱;╱ // 0x296f @0x38
0x2937…298b at0039 = ╱d2╱TAB╱ // 0x2970 @0x39
0x2937…298b at003a = ╱ed╱(╱ // 0x2971 @0x3a
0x2937…298b at003b = ╱33╱3╱ // 0x2972 @0x3b
0x2937…298b at003c = ╱36╱6╱ // 0x2973 @0x3c
0x2937…298b at003d = ╱fe00009006╱ // 0x2974 @0x3d
0x2937…298b at0042 = ╱ee╱)╱ // 0x2979 @0x42
0x2937…298b at0043 = ╱eb╱;╱ // 0x297a @0x43
0x2937…298b at0044 = ╱22╱"╱ // 0x297b @0x44
0x2937…298b at0045 = ╱44╱D╱ // 0x297c @0x45
0x2937…298b at0046 = ╱61╱a╱ // 0x297d @0x46
0x2937…298b at0047 = ╱74╱t╱ // 0x297e @0x47
0x2937…298b at0048 = ╱6f╱o╱ // 0x297f @0x48
0x2937…298b at0049 = ╱20╱…╱ // 0x2980 @0x49
0x2937…298b at004a = ╱3a╱:╱ // 0x2981 @0x4a
0x2937…298b at004b = ╱20╱…╱ // 0x2982 @0x4b
0x2937…298b at004c = ╱22╱"╱ // 0x2983 @0x4c
0x2937…298b at004d = ╱eb╱;╱ // 0x2984 @0x4d
0x2937…298b at004e = ╱44╱D╱ // 0x2985 @0x4e
0x2937…298b at004f = ╱41╱A╱ // 0x2986 @0x4f
0x2937…298b at0050 = ╱54╱T╱ // 0x2987 @0x50
0x2937…298b at0051 = ╱ef╱$╱ // 0x2988 @0x51
0x2937…298b at0052 = ╱eb╱;╱ // 0x2989 @0x52
0x2937…298b at0053 = EOL // 0x298a @0x53
0x2937…298b }
0x298b…29a6 b6fd 5020 PRINT USING " Side :####":SIDE
0x298b…29a6 LineComalBin {
0x298b…29a6 ptr = 0xb6fd // 0x298b @0x0
0x298b…29a6 lno = 0x139c // 0x298d @0x2
0x298b…29a6 at0004 = ╱92╱ PRINT ╱ // 0x298f @0x4
0x298b…29a6 at0005 = ╱b9╱ USING ╱ // 0x2990 @0x5
0x298b…29a6 at0006 = ╱22╱"╱ // 0x2991 @0x6
0x298b…29a6 at0007 = ╱20╱…╱ // 0x2992 @0x7
0x298b…29a6 at0008 = ╱20╱…╱ // 0x2993 @0x8
0x298b…29a6 at0009 = ╱20╱…╱ // 0x2994 @0x9
0x298b…29a6 at000a = ╱53╱S╱ // 0x2995 @0xa
0x298b…29a6 at000b = ╱69╱i╱ // 0x2996 @0xb
0x298b…29a6 at000c = ╱64╱d╱ // 0x2997 @0xc
0x298b…29a6 at000d = ╱65╱e╱ // 0x2998 @0xd
0x298b…29a6 at000e = ╱20╱…╱ // 0x2999 @0xe
0x298b…29a6 at000f = ╱3a╱:╱ // 0x299a @0xf
0x298b…29a6 at0010 = ╱23╱#╱ // 0x299b @0x10
0x298b…29a6 at0011 = ╱23╱#╱ // 0x299c @0x11
0x298b…29a6 at0012 = ╱23╱#╱ // 0x299d @0x12
0x298b…29a6 at0013 = ╱23╱#╱ // 0x299e @0x13
0x298b…29a6 at0014 = ╱22╱"╱ // 0x299f @0x14
0x298b…29a6 at0015 = ╱f0╱:╱ // 0x29a0 @0x15
0x298b…29a6 at0016 = ╱53╱S╱ // 0x29a1 @0x16
0x298b…29a6 at0017 = ╱49╱I╱ // 0x29a2 @0x17
0x298b…29a6 at0018 = ╱44╱D╱ // 0x29a3 @0x18
0x298b…29a6 at0019 = ╱45╱E╱ // 0x29a4 @0x19
0x298b…29a6 at001a = EOL // 0x29a5 @0x1a
0x298b…29a6 }
0x29a6…29af b706 5030 PRINT " "
0x29a6…29af LineComalBin {
0x29a6…29af ptr = 0xb706 // 0x29a6 @0x0
0x29a6…29af lno = 0x13a6 // 0x29a8 @0x2
0x29a6…29af at0004 = ╱92╱ PRINT ╱ // 0x29aa @0x4
0x29a6…29af at0005 = ╱22╱"╱ // 0x29ab @0x5
0x29a6…29af at0006 = ╱20╱…╱ // 0x29ac @0x6
0x29a6…29af at0007 = ╱22╱"╱ // 0x29ad @0x7
0x29a6…29af at0008 = EOL // 0x29ae @0x8
0x29a6…29af }
0x29af…29bf b716 5040 SIDE=SIDE+E
0x29af…29bf LineComalBin {
0x29af…29bf ptr = 0xb716 // 0x29af @0x0
0x29af…29bf lno = 0x13b0 // 0x29b1 @0x2
0x29af…29bf at0004 = ╱53╱S╱ // 0x29b3 @0x4
0x29af…29bf at0005 = ╱49╱I╱ // 0x29b4 @0x5
0x29af…29bf at0006 = ╱44╱D╱ // 0x29b5 @0x6
0x29af…29bf at0007 = ╱45╱E╱ // 0x29b6 @0x7
0x29af…29bf at0008 = ╱dc╱=╱ // 0x29b7 @0x8
0x29af…29bf at0009 = ╱53╱S╱ // 0x29b8 @0x9
0x29af…29bf at000a = ╱49╱I╱ // 0x29b9 @0xa
0x29af…29bf at000b = ╱44╱D╱ // 0x29ba @0xb
0x29af…29bf at000c = ╱45╱E╱ // 0x29bb @0xc
0x29af…29bf at000d = ╱e2╱+╱ // 0x29bc @0xd
0x29af…29bf at000e = ╱45╱E╱ // 0x29bd @0xe
0x29af…29bf at000f = EOL // 0x29be @0xf
0x29af…29bf }
0x29bf…29d5 b72c 5050 FOR FPIL3=I TO I+4
0x29bf…29d5 LineComalBin {
0x29bf…29d5 ptr = 0xb72c // 0x29bf @0x0
0x29bf…29d5 lno = 0x13ba // 0x29c1 @0x2
0x29bf…29d5 at0004 = ╱83╱ FOR ╱ // 0x29c3 @0x4
0x29bf…29d5 at0005 = ╱46╱F╱ // 0x29c4 @0x5
0x29bf…29d5 at0006 = ╱50╱P╱ // 0x29c5 @0x6
0x29bf…29d5 at0007 = ╱49╱I╱ // 0x29c6 @0x7
0x29bf…29d5 at0008 = ╱4c╱L╱ // 0x29c7 @0x8
0x29bf…29d5 at0009 = ╱33╱3╱ // 0x29c8 @0x9
0x29bf…29d5 at000a = ╱dc╱=╱ // 0x29c9 @0xa
0x29bf…29d5 at000b = ╱49╱I╱ // 0x29ca @0xb
0x29bf…29d5 at000c = ╱b7╱ TO ╱ // 0x29cb @0xc
0x29bf…29d5 at000d = ╱49╱I╱ // 0x29cc @0xd
0x29bf…29d5 at000e = ╱e2╱+╱ // 0x29cd @0xe
0x29bf…29d5 at000f = ╱34╱4╱ // 0x29ce @0xf
0x29bf…29d5 at0010 = ╱fe00008003╱ // 0x29cf @0x10
0x29bf…29d5 at0015 = EOL // 0x29d4 @0x15
0x29bf…29d5 }
0x29d5…29eb b742 5060 IF FTAB(FPIL3,E)<>B THEN
0x29d5…29eb LineComalBin {
0x29d5…29eb ptr = 0xb742 // 0x29d5 @0x0
0x29d5…29eb lno = 0x13c4 // 0x29d7 @0x2
0x29d5…29eb at0004 = ╱9c╱ IF ╱ // 0x29d9 @0x4
0x29d5…29eb at0005 = ╱46╱F╱ // 0x29da @0x5
0x29d5…29eb at0006 = ╱54╱T╱ // 0x29db @0x6
0x29d5…29eb at0007 = ╱41╱A╱ // 0x29dc @0x7
0x29d5…29eb at0008 = ╱42╱B╱ // 0x29dd @0x8
0x29d5…29eb at0009 = ╱ed╱(╱ // 0x29de @0x9
0x29d5…29eb at000a = ╱46╱F╱ // 0x29df @0xa
0x29d5…29eb at000b = ╱50╱P╱ // 0x29e0 @0xb
0x29d5…29eb at000c = ╱49╱I╱ // 0x29e1 @0xc
0x29d5…29eb at000d = ╱4c╱L╱ // 0x29e2 @0xd
0x29d5…29eb at000e = ╱33╱3╱ // 0x29e3 @0xe
0x29d5…29eb at000f = ╱ec╱,╱ // 0x29e4 @0xf
0x29d5…29eb at0010 = ╱45╱E╱ // 0x29e5 @0x10
0x29d5…29eb at0011 = ╱ee╱)╱ // 0x29e6 @0x11
0x29d5…29eb at0012 = ╱e1╱<>╱ // 0x29e7 @0x12
0x29d5…29eb at0013 = ╱42╱B╱ // 0x29e8 @0x13
0x29d5…29eb at0014 = ╱b6╱ THEN ╱ // 0x29e9 @0x14
0x29d5…29eb at0015 = EOL // 0x29ea @0x15
0x29d5…29eb }
0x29eb…29f9 b750 5070 EXEC HENTPOST
0x29eb…29f9 LineComalBin {
0x29eb…29f9 ptr = 0xb750 // 0x29eb @0x0
0x29eb…29f9 lno = 0x13ce // 0x29ed @0x2
0x29eb…29f9 at0004 = ╱9d╱ EXEC ╱ // 0x29ef @0x4
0x29eb…29f9 at0005 = ╱48╱H╱ // 0x29f0 @0x5
0x29eb…29f9 at0006 = ╱45╱E╱ // 0x29f1 @0x6
0x29eb…29f9 at0007 = ╱4e╱N╱ // 0x29f2 @0x7
0x29eb…29f9 at0008 = ╱54╱T╱ // 0x29f3 @0x8
0x29eb…29f9 at0009 = ╱50╱P╱ // 0x29f4 @0x9
0x29eb…29f9 at000a = ╱4f╱O╱ // 0x29f5 @0xa
0x29eb…29f9 at000b = ╱53╱S╱ // 0x29f6 @0xb
0x29eb…29f9 at000c = ╱54╱T╱ // 0x29f7 @0xc
0x29eb…29f9 at000d = EOL // 0x29f8 @0xd
0x29eb…29f9 }
0x29f9…2a1e b775 5080 EXEC CALC(5,FMDEBET$,TAH$,UD1$)
0x29f9…2a1e LineComalBin {
0x29f9…2a1e ptr = 0xb775 // 0x29f9 @0x0
0x29f9…2a1e lno = 0x13d8 // 0x29fb @0x2
0x29f9…2a1e at0004 = ╱9d╱ EXEC ╱ // 0x29fd @0x4
0x29f9…2a1e at0005 = ╱43╱C╱ // 0x29fe @0x5
0x29f9…2a1e at0006 = ╱41╱A╱ // 0x29ff @0x6
0x29f9…2a1e at0007 = ╱4c╱L╱ // 0x2a00 @0x7
0x29f9…2a1e at0008 = ╱43╱C╱ // 0x2a01 @0x8
0x29f9…2a1e at0009 = ╱ed╱(╱ // 0x2a02 @0x9
0x29f9…2a1e at000a = ╱35╱5╱ // 0x2a03 @0xa
0x29f9…2a1e at000b = ╱fe0000a003╱ // 0x2a04 @0xb
0x29f9…2a1e at0010 = ╱ec╱,╱ // 0x2a09 @0x10
0x29f9…2a1e at0011 = ╱46╱F╱ // 0x2a0a @0x11
0x29f9…2a1e at0012 = ╱4d╱M╱ // 0x2a0b @0x12
0x29f9…2a1e at0013 = ╱44╱D╱ // 0x2a0c @0x13
0x29f9…2a1e at0014 = ╱45╱E╱ // 0x2a0d @0x14
0x29f9…2a1e at0015 = ╱42╱B╱ // 0x2a0e @0x15
0x29f9…2a1e at0016 = ╱45╱E╱ // 0x2a0f @0x16
0x29f9…2a1e at0017 = ╱54╱T╱ // 0x2a10 @0x17
0x29f9…2a1e at0018 = ╱ef╱$╱ // 0x2a11 @0x18
0x29f9…2a1e at0019 = ╱ec╱,╱ // 0x2a12 @0x19
0x29f9…2a1e at001a = ╱54╱T╱ // 0x2a13 @0x1a
0x29f9…2a1e at001b = ╱41╱A╱ // 0x2a14 @0x1b
0x29f9…2a1e at001c = ╱48╱H╱ // 0x2a15 @0x1c
0x29f9…2a1e at001d = ╱ef╱$╱ // 0x2a16 @0x1d
0x29f9…2a1e at001e = ╱ec╱,╱ // 0x2a17 @0x1e
0x29f9…2a1e at001f = ╱55╱U╱ // 0x2a18 @0x1f
0x29f9…2a1e at0020 = ╱44╱D╱ // 0x2a19 @0x20
0x29f9…2a1e at0021 = ╱31╱1╱ // 0x2a1a @0x21
0x29f9…2a1e at0022 = ╱ef╱$╱ // 0x2a1b @0x22
0x29f9…2a1e at0023 = ╱ee╱)╱ // 0x2a1c @0x23
0x29f9…2a1e at0024 = EOL // 0x2a1d @0x24
0x29f9…2a1e }
0x2a1e…2a44 b79b 5090 EXEC CALC(5,FMKREDIT$,TAH$,UD2$)
0x2a1e…2a44 LineComalBin {
0x2a1e…2a44 ptr = 0xb79b // 0x2a1e @0x0
0x2a1e…2a44 lno = 0x13e2 // 0x2a20 @0x2
0x2a1e…2a44 at0004 = ╱9d╱ EXEC ╱ // 0x2a22 @0x4
0x2a1e…2a44 at0005 = ╱43╱C╱ // 0x2a23 @0x5
0x2a1e…2a44 at0006 = ╱41╱A╱ // 0x2a24 @0x6
0x2a1e…2a44 at0007 = ╱4c╱L╱ // 0x2a25 @0x7
0x2a1e…2a44 at0008 = ╱43╱C╱ // 0x2a26 @0x8
0x2a1e…2a44 at0009 = ╱ed╱(╱ // 0x2a27 @0x9
0x2a1e…2a44 at000a = ╱35╱5╱ // 0x2a28 @0xa
0x2a1e…2a44 at000b = ╱fe0000a003╱ // 0x2a29 @0xb
0x2a1e…2a44 at0010 = ╱ec╱,╱ // 0x2a2e @0x10
0x2a1e…2a44 at0011 = ╱46╱F╱ // 0x2a2f @0x11
0x2a1e…2a44 at0012 = ╱4d╱M╱ // 0x2a30 @0x12
0x2a1e…2a44 at0013 = ╱4b╱K╱ // 0x2a31 @0x13
0x2a1e…2a44 at0014 = ╱52╱R╱ // 0x2a32 @0x14
0x2a1e…2a44 at0015 = ╱45╱E╱ // 0x2a33 @0x15
0x2a1e…2a44 at0016 = ╱44╱D╱ // 0x2a34 @0x16
0x2a1e…2a44 at0017 = ╱49╱I╱ // 0x2a35 @0x17
0x2a1e…2a44 at0018 = ╱54╱T╱ // 0x2a36 @0x18
0x2a1e…2a44 at0019 = ╱ef╱$╱ // 0x2a37 @0x19
0x2a1e…2a44 at001a = ╱ec╱,╱ // 0x2a38 @0x1a
0x2a1e…2a44 at001b = ╱54╱T╱ // 0x2a39 @0x1b
0x2a1e…2a44 at001c = ╱41╱A╱ // 0x2a3a @0x1c
0x2a1e…2a44 at001d = ╱48╱H╱ // 0x2a3b @0x1d
0x2a1e…2a44 at001e = ╱ef╱$╱ // 0x2a3c @0x1e
0x2a1e…2a44 at001f = ╱ec╱,╱ // 0x2a3d @0x1f
0x2a1e…2a44 at0020 = ╱55╱U╱ // 0x2a3e @0x20
0x2a1e…2a44 at0021 = ╱44╱D╱ // 0x2a3f @0x21
0x2a1e…2a44 at0022 = ╱32╱2╱ // 0x2a40 @0x22
0x2a1e…2a44 at0023 = ╱ef╱$╱ // 0x2a41 @0x23
0x2a1e…2a44 at0024 = ╱ee╱)╱ // 0x2a42 @0x24
0x2a1e…2a44 at0025 = EOL // 0x2a43 @0x25
0x2a1e…2a44 }
0x2a44…2a69 b7c0 5100 EXEC CALC(5,FÅDEBET$,TAH$,UD3$)
0x2a44…2a69 LineComalBin {
0x2a44…2a69 ptr = 0xb7c0 // 0x2a44 @0x0
0x2a44…2a69 lno = 0x13ec // 0x2a46 @0x2
0x2a44…2a69 at0004 = ╱9d╱ EXEC ╱ // 0x2a48 @0x4
0x2a44…2a69 at0005 = ╱43╱C╱ // 0x2a49 @0x5
0x2a44…2a69 at0006 = ╱41╱A╱ // 0x2a4a @0x6
0x2a44…2a69 at0007 = ╱4c╱L╱ // 0x2a4b @0x7
0x2a44…2a69 at0008 = ╱43╱C╱ // 0x2a4c @0x8
0x2a44…2a69 at0009 = ╱ed╱(╱ // 0x2a4d @0x9
0x2a44…2a69 at000a = ╱35╱5╱ // 0x2a4e @0xa
0x2a44…2a69 at000b = ╱fe0000a003╱ // 0x2a4f @0xb
0x2a44…2a69 at0010 = ╱ec╱,╱ // 0x2a54 @0x10
0x2a44…2a69 at0011 = ╱46╱F╱ // 0x2a55 @0x11
0x2a44…2a69 at0012 = ╱5d╱Å╱ // 0x2a56 @0x12
0x2a44…2a69 at0013 = ╱44╱D╱ // 0x2a57 @0x13
0x2a44…2a69 at0014 = ╱45╱E╱ // 0x2a58 @0x14
0x2a44…2a69 at0015 = ╱42╱B╱ // 0x2a59 @0x15
0x2a44…2a69 at0016 = ╱45╱E╱ // 0x2a5a @0x16
0x2a44…2a69 at0017 = ╱54╱T╱ // 0x2a5b @0x17
0x2a44…2a69 at0018 = ╱ef╱$╱ // 0x2a5c @0x18
0x2a44…2a69 at0019 = ╱ec╱,╱ // 0x2a5d @0x19
0x2a44…2a69 at001a = ╱54╱T╱ // 0x2a5e @0x1a
0x2a44…2a69 at001b = ╱41╱A╱ // 0x2a5f @0x1b
0x2a44…2a69 at001c = ╱48╱H╱ // 0x2a60 @0x1c
0x2a44…2a69 at001d = ╱ef╱$╱ // 0x2a61 @0x1d
0x2a44…2a69 at001e = ╱ec╱,╱ // 0x2a62 @0x1e
0x2a44…2a69 at001f = ╱55╱U╱ // 0x2a63 @0x1f
0x2a44…2a69 at0020 = ╱44╱D╱ // 0x2a64 @0x20
0x2a44…2a69 at0021 = ╱33╱3╱ // 0x2a65 @0x21
0x2a44…2a69 at0022 = ╱ef╱$╱ // 0x2a66 @0x22
0x2a44…2a69 at0023 = ╱ee╱)╱ // 0x2a67 @0x23
0x2a44…2a69 at0024 = EOL // 0x2a68 @0x24
0x2a44…2a69 }
0x2a69…2a8f (141,) b7e6 5110 EXEC CALC(5,FÅKREDIT$,TAH$,UD4$)
0x2a69…2a8f LineComalBin {
0x2a69…2a8f ptr = 0xb7e6 // 0x2a69 @0x0
0x2a69…2a8f lno = 0x13f6 // 0x2a6b @0x2
0x2a69…2a8f at0004 = ╱9d╱ EXEC ╱ // 0x2a6d @0x4
0x2a69…2a8f at0005 = ╱43╱C╱ // 0x2a6e @0x5
0x2a69…2a8f at0006 = ╱41╱A╱ // 0x2a6f @0x6
0x2a69…2a8f at0007 = ╱4c╱L╱ // 0x2a70 @0x7
0x2a69…2a8f at0008 = ╱43╱C╱ // 0x2a71 @0x8
0x2a69…2a8f at0009 = ╱ed╱(╱ // 0x2a72 @0x9
0x2a69…2a8f at000a = ╱35╱5╱ // 0x2a73 @0xa
0x2a69…2a8f at000b = ╱fe0000a003╱ // 0x2a74 @0xb
0x2a69…2a8f at0010 = ╱ec╱,╱ // 0x2a79 @0x10
0x2a69…2a8f at0011 = ╱46╱F╱ // 0x2a7a @0x11
0x2a69…2a8f at0012 = ╱5d╱Å╱ // 0x2a7b @0x12
0x2a69…2a8f at0013 = ╱4b╱K╱ // 0x2a7c @0x13
0x2a69…2a8f at0014 = ╱52╱R╱ // 0x2a7d @0x14
0x2a69…2a8f at0015 = ╱45╱E╱ // 0x2a7e @0x15
0x2a69…2a8f at0016 = ╱44╱D╱ // 0x2a7f @0x16
0x2a69…2a8f at0017 = ╱49╱I╱ // 0x2a80 @0x17
0x2a69…2a8f at0018 = ╱54╱T╱ // 0x2a81 @0x18
0x2a69…2a8f at0019 = ╱ef╱$╱ // 0x2a82 @0x19
0x2a69…2a8f at001a = ╱ec╱,╱ // 0x2a83 @0x1a
0x2a69…2a8f at001b = ╱54╱T╱ // 0x2a84 @0x1b
0x2a69…2a8f at001c = ╱41╱A╱ // 0x2a85 @0x1c
0x2a69…2a8f at001d = ╱48╱H╱ // 0x2a86 @0x1d
0x2a69…2a8f at001e = ╱ef╱$╱ // 0x2a87 @0x1e
0x2a69…2a8f at001f = ╱ec╱,╱ // 0x2a88 @0x1f
0x2a69…2a8f at0020 = ╱55╱U╱ // 0x2a89 @0x20
0x2a69…2a8f at0021 = ╱44╱D╱ // 0x2a8a @0x21
0x2a69…2a8f at0022 = ╱34╱4╱ // 0x2a8b @0x22
0x2a69…2a8f at0023 = ╱ef╱$╱ // 0x2a8c @0x23
0x2a69…2a8f at0024 = ╱ee╱)╱ // 0x2a8d @0x24
0x2a69…2a8f at0025 = EOL // 0x2a8e @0x25
0x2a69…2a8f }
0x2a8f…2aa0 b7f7 5120 PRINT TAB(W);STREG$
0x2a8f…2aa0 LineComalBin {
0x2a8f…2aa0 ptr = 0xb7f7 // 0x2a8f @0x0
0x2a8f…2aa0 lno = 0x1400 // 0x2a91 @0x2
0x2a8f…2aa0 at0004 = ╱92╱ PRINT ╱ // 0x2a93 @0x4
0x2a8f…2aa0 at0005 = ╱d2╱TAB╱ // 0x2a94 @0x5
0x2a8f…2aa0 at0006 = ╱ed╱(╱ // 0x2a95 @0x6
0x2a8f…2aa0 at0007 = ╱57╱W╱ // 0x2a96 @0x7
0x2a8f…2aa0 at0008 = ╱ee╱)╱ // 0x2a97 @0x8
0x2a8f…2aa0 at0009 = ╱eb╱;╱ // 0x2a98 @0x9
0x2a8f…2aa0 at000a = ╱53╱S╱ // 0x2a99 @0xa
0x2a8f…2aa0 at000b = ╱54╱T╱ // 0x2a9a @0xb
0x2a8f…2aa0 at000c = ╱52╱R╱ // 0x2a9b @0xc
0x2a8f…2aa0 at000d = ╱45╱E╱ // 0x2a9c @0xd
0x2a8f…2aa0 at000e = ╱47╱G╱ // 0x2a9d @0xe
0x2a8f…2aa0 at000f = ╱ef╱$╱ // 0x2a9e @0xf
0x2a8f…2aa0 at0010 = EOL // 0x2a9f @0x10
0x2a8f…2aa0 }
0x2aa0…2ae2 b839 5130 PRINT TAB(W);"NAVN";TAB(39);"UDSKRIFTSKODE";TAB(66);"MOMSKODE"
0x2aa0…2ae2 LineComalBin {
0x2aa0…2ae2 ptr = 0xb839 // 0x2aa0 @0x0
0x2aa0…2ae2 lno = 0x140a // 0x2aa2 @0x2
0x2aa0…2ae2 at0004 = ╱92╱ PRINT ╱ // 0x2aa4 @0x4
0x2aa0…2ae2 at0005 = ╱d2╱TAB╱ // 0x2aa5 @0x5
0x2aa0…2ae2 at0006 = ╱ed╱(╱ // 0x2aa6 @0x6
0x2aa0…2ae2 at0007 = ╱57╱W╱ // 0x2aa7 @0x7
0x2aa0…2ae2 at0008 = ╱ee╱)╱ // 0x2aa8 @0x8
0x2aa0…2ae2 at0009 = ╱eb╱;╱ // 0x2aa9 @0x9
0x2aa0…2ae2 at000a = ╱22╱"╱ // 0x2aaa @0xa
0x2aa0…2ae2 at000b = ╱4e╱N╱ // 0x2aab @0xb
0x2aa0…2ae2 at000c = ╱41╱A╱ // 0x2aac @0xc
0x2aa0…2ae2 at000d = ╱56╱V╱ // 0x2aad @0xd
0x2aa0…2ae2 at000e = ╱4e╱N╱ // 0x2aae @0xe
0x2aa0…2ae2 at000f = ╱22╱"╱ // 0x2aaf @0xf
0x2aa0…2ae2 at0010 = ╱eb╱;╱ // 0x2ab0 @0x10
0x2aa0…2ae2 at0011 = ╱d2╱TAB╱ // 0x2ab1 @0x11
0x2aa0…2ae2 at0012 = ╱ed╱(╱ // 0x2ab2 @0x12
0x2aa0…2ae2 at0013 = ╱33╱3╱ // 0x2ab3 @0x13
0x2aa0…2ae2 at0014 = ╱39╱9╱ // 0x2ab4 @0x14
0x2aa0…2ae2 at0015 = ╱fe00009c06╱ // 0x2ab5 @0x15
0x2aa0…2ae2 at001a = ╱ee╱)╱ // 0x2aba @0x1a
0x2aa0…2ae2 at001b = ╱eb╱;╱ // 0x2abb @0x1b
0x2aa0…2ae2 at001c = ╱22╱"╱ // 0x2abc @0x1c
0x2aa0…2ae2 at001d = ╱55╱U╱ // 0x2abd @0x1d
0x2aa0…2ae2 at001e = ╱44╱D╱ // 0x2abe @0x1e
0x2aa0…2ae2 at001f = ╱53╱S╱ // 0x2abf @0x1f
0x2aa0…2ae2 at0020 = ╱4b╱K╱ // 0x2ac0 @0x20
0x2aa0…2ae2 at0021 = ╱52╱R╱ // 0x2ac1 @0x21
0x2aa0…2ae2 at0022 = ╱49╱I╱ // 0x2ac2 @0x22
0x2aa0…2ae2 at0023 = ╱46╱F╱ // 0x2ac3 @0x23
0x2aa0…2ae2 at0024 = ╱54╱T╱ // 0x2ac4 @0x24
0x2aa0…2ae2 at0025 = ╱53╱S╱ // 0x2ac5 @0x25
0x2aa0…2ae2 at0026 = ╱4b╱K╱ // 0x2ac6 @0x26
0x2aa0…2ae2 at0027 = ╱4f╱O╱ // 0x2ac7 @0x27
0x2aa0…2ae2 at0028 = ╱44╱D╱ // 0x2ac8 @0x28
0x2aa0…2ae2 at0029 = ╱45╱E╱ // 0x2ac9 @0x29
0x2aa0…2ae2 at002a = ╱22╱"╱ // 0x2aca @0x2a
0x2aa0…2ae2 at002b = ╱eb╱;╱ // 0x2acb @0x2b
0x2aa0…2ae2 at002c = ╱d2╱TAB╱ // 0x2acc @0x2c
0x2aa0…2ae2 at002d = ╱ed╱(╱ // 0x2acd @0x2d
0x2aa0…2ae2 at002e = ╱36╱6╱ // 0x2ace @0x2e
0x2aa0…2ae2 at002f = ╱36╱6╱ // 0x2acf @0x2f
0x2aa0…2ae2 at0030 = ╱fe00008407╱ // 0x2ad0 @0x30
0x2aa0…2ae2 at0035 = ╱ee╱)╱ // 0x2ad5 @0x35
0x2aa0…2ae2 at0036 = ╱eb╱;╱ // 0x2ad6 @0x36
0x2aa0…2ae2 at0037 = ╱22╱"╱ // 0x2ad7 @0x37
0x2aa0…2ae2 at0038 = ╱4d╱M╱ // 0x2ad8 @0x38
0x2aa0…2ae2 at0039 = ╱4f╱O╱ // 0x2ad9 @0x39
0x2aa0…2ae2 at003a = ╱4d╱M╱ // 0x2ada @0x3a
0x2aa0…2ae2 at003b = ╱53╱S╱ // 0x2adb @0x3b
0x2aa0…2ae2 at003c = ╱4b╱K╱ // 0x2adc @0x3c
0x2aa0…2ae2 at003d = ╱4f╱O╱ // 0x2add @0x3d
0x2aa0…2ae2 at003e = ╱44╱D╱ // 0x2ade @0x3e
0x2aa0…2ae2 at003f = ╱45╱E╱ // 0x2adf @0x3f
0x2aa0…2ae2 at0040 = ╱22╱"╱ // 0x2ae0 @0x40
0x2aa0…2ae2 at0041 = EOL // 0x2ae1 @0x41
0x2aa0…2ae2 }
0x2ae2…2aeb b842 5140 PRINT " "
0x2ae2…2aeb LineComalBin {
0x2ae2…2aeb ptr = 0xb842 // 0x2ae2 @0x0
0x2ae2…2aeb lno = 0x1414 // 0x2ae4 @0x2
0x2ae2…2aeb at0004 = ╱92╱ PRINT ╱ // 0x2ae6 @0x4
0x2ae2…2aeb at0005 = ╱22╱"╱ // 0x2ae7 @0x5
0x2ae2…2aeb at0006 = ╱20╱…╱ // 0x2ae8 @0x6
0x2ae2…2aeb at0007 = ╱22╱"╱ // 0x2ae9 @0x7
0x2ae2…2aeb at0008 = EOL // 0x2aea @0x8
0x2ae2…2aeb }
0x2aeb…2b01 b858 5150 PRINT USING "###### ":FNR;
0x2aeb…2b01 LineComalBin {
0x2aeb…2b01 ptr = 0xb858 // 0x2aeb @0x0
0x2aeb…2b01 lno = 0x141e // 0x2aed @0x2
0x2aeb…2b01 at0004 = ╱92╱ PRINT ╱ // 0x2aef @0x4
0x2aeb…2b01 at0005 = ╱b9╱ USING ╱ // 0x2af0 @0x5
0x2aeb…2b01 at0006 = ╱22╱"╱ // 0x2af1 @0x6
0x2aeb…2b01 at0007 = ╱23╱#╱ // 0x2af2 @0x7
0x2aeb…2b01 at0008 = ╱23╱#╱ // 0x2af3 @0x8
0x2aeb…2b01 at0009 = ╱23╱#╱ // 0x2af4 @0x9
0x2aeb…2b01 at000a = ╱23╱#╱ // 0x2af5 @0xa
0x2aeb…2b01 at000b = ╱23╱#╱ // 0x2af6 @0xb
0x2aeb…2b01 at000c = ╱23╱#╱ // 0x2af7 @0xc
0x2aeb…2b01 at000d = ╱20╱…╱ // 0x2af8 @0xd
0x2aeb…2b01 at000e = ╱20╱…╱ // 0x2af9 @0xe
0x2aeb…2b01 at000f = ╱22╱"╱ // 0x2afa @0xf
0x2aeb…2b01 at0010 = ╱f0╱:╱ // 0x2afb @0x10
0x2aeb…2b01 at0011 = ╱46╱F╱ // 0x2afc @0x11
0x2aeb…2b01 at0012 = ╱4e╱N╱ // 0x2afd @0x12
0x2aeb…2b01 at0013 = ╱52╱R╱ // 0x2afe @0x13
0x2aeb…2b01 at0014 = ╱eb╱;╱ // 0x2aff @0x14
0x2aeb…2b01 at0015 = EOL // 0x2b00 @0x15
0x2aeb…2b01 }
0x2b01…2b33 b88a 5160 PRINT FNAVN$;TAB(45);FUKODE$;TAB(70);FMKODE$
0x2b01…2b33 LineComalBin {
0x2b01…2b33 ptr = 0xb88a // 0x2b01 @0x0
0x2b01…2b33 lno = 0x1428 // 0x2b03 @0x2
0x2b01…2b33 at0004 = ╱92╱ PRINT ╱ // 0x2b05 @0x4
0x2b01…2b33 at0005 = ╱46╱F╱ // 0x2b06 @0x5
0x2b01…2b33 at0006 = ╱4e╱N╱ // 0x2b07 @0x6
0x2b01…2b33 at0007 = ╱41╱A╱ // 0x2b08 @0x7
0x2b01…2b33 at0008 = ╱56╱V╱ // 0x2b09 @0x8
0x2b01…2b33 at0009 = ╱4e╱N╱ // 0x2b0a @0x9
0x2b01…2b33 at000a = ╱ef╱$╱ // 0x2b0b @0xa
0x2b01…2b33 at000b = ╱eb╱;╱ // 0x2b0c @0xb
0x2b01…2b33 at000c = ╱d2╱TAB╱ // 0x2b0d @0xc
0x2b01…2b33 at000d = ╱ed╱(╱ // 0x2b0e @0xd
0x2b01…2b33 at000e = ╱34╱4╱ // 0x2b0f @0xe
0x2b01…2b33 at000f = ╱35╱5╱ // 0x2b10 @0xf
0x2b01…2b33 at0010 = ╱fe0000b406╱ // 0x2b11 @0x10
0x2b01…2b33 at0015 = ╱ee╱)╱ // 0x2b16 @0x15
0x2b01…2b33 at0016 = ╱eb╱;╱ // 0x2b17 @0x16
0x2b01…2b33 at0017 = ╱46╱F╱ // 0x2b18 @0x17
0x2b01…2b33 at0018 = ╱55╱U╱ // 0x2b19 @0x18
0x2b01…2b33 at0019 = ╱4b╱K╱ // 0x2b1a @0x19
0x2b01…2b33 at001a = ╱4f╱O╱ // 0x2b1b @0x1a
0x2b01…2b33 at001b = ╱44╱D╱ // 0x2b1c @0x1b
0x2b01…2b33 at001c = ╱45╱E╱ // 0x2b1d @0x1c
0x2b01…2b33 at001d = ╱ef╱$╱ // 0x2b1e @0x1d
0x2b01…2b33 at001e = ╱eb╱;╱ // 0x2b1f @0x1e
0x2b01…2b33 at001f = ╱d2╱TAB╱ // 0x2b20 @0x1f
0x2b01…2b33 at0020 = ╱ed╱(╱ // 0x2b21 @0x20
0x2b01…2b33 at0021 = ╱37╱7╱ // 0x2b22 @0x21
0x2b01…2b33 at0022 = ╱30╱0╱ // 0x2b23 @0x22
0x2b01…2b33 at0023 = ╱fe00008c07╱ // 0x2b24 @0x23
0x2b01…2b33 at0028 = ╱ee╱)╱ // 0x2b29 @0x28
0x2b01…2b33 at0029 = ╱eb╱;╱ // 0x2b2a @0x29
0x2b01…2b33 at002a = ╱46╱F╱ // 0x2b2b @0x2a
0x2b01…2b33 at002b = ╱4d╱M╱ // 0x2b2c @0x2b
0x2b01…2b33 at002c = ╱4b╱K╱ // 0x2b2d @0x2c
0x2b01…2b33 at002d = ╱4f╱O╱ // 0x2b2e @0x2d
0x2b01…2b33 at002e = ╱44╱D╱ // 0x2b2f @0x2e
0x2b01…2b33 at002f = ╱45╱E╱ // 0x2b30 @0x2f
0x2b01…2b33 at0030 = ╱ef╱$╱ // 0x2b31 @0x30
0x2b01…2b33 at0031 = EOL // 0x2b32 @0x31
0x2b01…2b33 }
0x2b33…2b3c b893 5170 PRINT " "
0x2b33…2b3c LineComalBin {
0x2b33…2b3c ptr = 0xb893 // 0x2b33 @0x0
0x2b33…2b3c lno = 0x1432 // 0x2b35 @0x2
0x2b33…2b3c at0004 = ╱92╱ PRINT ╱ // 0x2b37 @0x4
0x2b33…2b3c at0005 = ╱22╱"╱ // 0x2b38 @0x5
0x2b33…2b3c at0006 = ╱20╱…╱ // 0x2b39 @0x6
0x2b33…2b3c at0007 = ╱22╱"╱ // 0x2b3a @0x7
0x2b33…2b3c at0008 = EOL // 0x2b3b @0x8
0x2b33…2b3c }
0x2b3c…2b80 b8d7 5180 PRINT TAB(16);"MÅNEDENS BEVÆGELSER";TAB(59);"ÅRETS BEVÆGELSER"
0x2b3c…2b80 LineComalBin {
0x2b3c…2b80 ptr = 0xb8d7 // 0x2b3c @0x0
0x2b3c…2b80 lno = 0x143c // 0x2b3e @0x2
0x2b3c…2b80 at0004 = ╱92╱ PRINT ╱ // 0x2b40 @0x4
0x2b3c…2b80 at0005 = ╱d2╱TAB╱ // 0x2b41 @0x5
0x2b3c…2b80 at0006 = ╱ed╱(╱ // 0x2b42 @0x6
0x2b3c…2b80 at0007 = ╱31╱1╱ // 0x2b43 @0x7
0x2b3c…2b80 at0008 = ╱36╱6╱ // 0x2b44 @0x8
0x2b3c…2b80 at0009 = ╱fe00008005╱ // 0x2b45 @0x9
0x2b3c…2b80 at000e = ╱ee╱)╱ // 0x2b4a @0xe
0x2b3c…2b80 at000f = ╱eb╱;╱ // 0x2b4b @0xf
0x2b3c…2b80 at0010 = ╱22╱"╱ // 0x2b4c @0x10
0x2b3c…2b80 at0011 = ╱4d╱M╱ // 0x2b4d @0x11
0x2b3c…2b80 at0012 = ╱5d╱Å╱ // 0x2b4e @0x12
0x2b3c…2b80 at0013 = ╱4e╱N╱ // 0x2b4f @0x13
0x2b3c…2b80 at0014 = ╱45╱E╱ // 0x2b50 @0x14
0x2b3c…2b80 at0015 = ╱44╱D╱ // 0x2b51 @0x15
0x2b3c…2b80 at0016 = ╱45╱E╱ // 0x2b52 @0x16
0x2b3c…2b80 at0017 = ╱4e╱N╱ // 0x2b53 @0x17
0x2b3c…2b80 at0018 = ╱53╱S╱ // 0x2b54 @0x18
0x2b3c…2b80 at0019 = ╱20╱…╱ // 0x2b55 @0x19
0x2b3c…2b80 at001a = ╱42╱B╱ // 0x2b56 @0x1a
0x2b3c…2b80 at001b = ╱45╱E╱ // 0x2b57 @0x1b
0x2b3c…2b80 at001c = ╱56╱V╱ // 0x2b58 @0x1c
0x2b3c…2b80 at001d = ╱5b╱Æ╱ // 0x2b59 @0x1d
0x2b3c…2b80 at001e = ╱47╱G╱ // 0x2b5a @0x1e
0x2b3c…2b80 at001f = ╱45╱E╱ // 0x2b5b @0x1f
0x2b3c…2b80 at0020 = ╱4c╱L╱ // 0x2b5c @0x20
0x2b3c…2b80 at0021 = ╱53╱S╱ // 0x2b5d @0x21
0x2b3c…2b80 at0022 = ╱45╱E╱ // 0x2b5e @0x22
0x2b3c…2b80 at0023 = ╱52╱R╱ // 0x2b5f @0x23
0x2b3c…2b80 at0024 = ╱22╱"╱ // 0x2b60 @0x24
0x2b3c…2b80 at0025 = ╱eb╱;╱ // 0x2b61 @0x25
0x2b3c…2b80 at0026 = ╱d2╱TAB╱ // 0x2b62 @0x26
0x2b3c…2b80 at0027 = ╱ed╱(╱ // 0x2b63 @0x27
0x2b3c…2b80 at0028 = ╱35╱5╱ // 0x2b64 @0x28
0x2b3c…2b80 at0029 = ╱39╱9╱ // 0x2b65 @0x29
0x2b3c…2b80 at002a = ╱fe0000ec06╱ // 0x2b66 @0x2a
0x2b3c…2b80 at002f = ╱ee╱)╱ // 0x2b6b @0x2f
0x2b3c…2b80 at0030 = ╱eb╱;╱ // 0x2b6c @0x30
0x2b3c…2b80 at0031 = ╱22╱"╱ // 0x2b6d @0x31
0x2b3c…2b80 at0032 = ╱5d╱Å╱ // 0x2b6e @0x32
0x2b3c…2b80 at0033 = ╱52╱R╱ // 0x2b6f @0x33
0x2b3c…2b80 at0034 = ╱45╱E╱ // 0x2b70 @0x34
0x2b3c…2b80 at0035 = ╱54╱T╱ // 0x2b71 @0x35
0x2b3c…2b80 at0036 = ╱53╱S╱ // 0x2b72 @0x36
0x2b3c…2b80 at0037 = ╱20╱…╱ // 0x2b73 @0x37
0x2b3c…2b80 at0038 = ╱42╱B╱ // 0x2b74 @0x38
0x2b3c…2b80 at0039 = ╱45╱E╱ // 0x2b75 @0x39
0x2b3c…2b80 at003a = ╱56╱V╱ // 0x2b76 @0x3a
0x2b3c…2b80 at003b = ╱5b╱Æ╱ // 0x2b77 @0x3b
0x2b3c…2b80 at003c = ╱47╱G╱ // 0x2b78 @0x3c
0x2b3c…2b80 at003d = ╱45╱E╱ // 0x2b79 @0x3d
0x2b3c…2b80 at003e = ╱4c╱L╱ // 0x2b7a @0x3e
0x2b3c…2b80 at003f = ╱53╱S╱ // 0x2b7b @0x3f
0x2b3c…2b80 at0040 = ╱45╱E╱ // 0x2b7c @0x40
0x2b3c…2b80 at0041 = ╱52╱R╱ // 0x2b7d @0x41
0x2b3c…2b80 at0042 = ╱22╱"╱ // 0x2b7e @0x42
0x2b3c…2b80 at0043 = EOL // 0x2b7f @0x43
0x2b3c…2b80 }
0x2b80…2b89 b8e0 5190 PRINT " "
0x2b80…2b89 LineComalBin {
0x2b80…2b89 ptr = 0xb8e0 // 0x2b80 @0x0
0x2b80…2b89 lno = 0x1446 // 0x2b82 @0x2
0x2b80…2b89 at0004 = ╱92╱ PRINT ╱ // 0x2b84 @0x4
0x2b80…2b89 at0005 = ╱22╱"╱ // 0x2b85 @0x5
0x2b80…2b89 at0006 = ╱20╱…╱ // 0x2b86 @0x6
0x2b80…2b89 at0007 = ╱22╱"╱ // 0x2b87 @0x7
0x2b80…2b89 at0008 = EOL // 0x2b88 @0x8
0x2b80…2b89 }
0x2b89…2bdd b934 5200 PRINT TAB(W);UD1$(E:13);" ";UD2$(E:13);TAB(49);UD3$(E:13);" ";
0x2b89…2bdd LineComalBin {
0x2b89…2bdd ptr = 0xb934 // 0x2b89 @0x0
0x2b89…2bdd lno = 0x1450 // 0x2b8b @0x2
0x2b89…2bdd at0004 = ╱92╱ PRINT ╱ // 0x2b8d @0x4
0x2b89…2bdd at0005 = ╱d2╱TAB╱ // 0x2b8e @0x5
0x2b89…2bdd at0006 = ╱ed╱(╱ // 0x2b8f @0x6
0x2b89…2bdd at0007 = ╱57╱W╱ // 0x2b90 @0x7
0x2b89…2bdd at0008 = ╱ee╱)╱ // 0x2b91 @0x8
0x2b89…2bdd at0009 = ╱eb╱;╱ // 0x2b92 @0x9
0x2b89…2bdd at000a = ╱55╱U╱ // 0x2b93 @0xa
0x2b89…2bdd at000b = ╱44╱D╱ // 0x2b94 @0xb
0x2b89…2bdd at000c = ╱31╱1╱ // 0x2b95 @0xc
0x2b89…2bdd at000d = ╱ef╱$╱ // 0x2b96 @0xd
0x2b89…2bdd at000e = ╱ed╱(╱ // 0x2b97 @0xe
0x2b89…2bdd at000f = ╱45╱E╱ // 0x2b98 @0xf
0x2b89…2bdd at0010 = ╱f0╱:╱ // 0x2b99 @0x10
0x2b89…2bdd at0011 = ╱31╱1╱ // 0x2b9a @0x11
0x2b89…2bdd at0012 = ╱33╱3╱ // 0x2b9b @0x12
0x2b89…2bdd at0013 = ╱fe0000d004╱ // 0x2b9c @0x13
0x2b89…2bdd at0018 = ╱ee╱)╱ // 0x2ba1 @0x18
0x2b89…2bdd at0019 = ╱eb╱;╱ // 0x2ba2 @0x19
0x2b89…2bdd at001a = ╱22╱"╱ // 0x2ba3 @0x1a
0x2b89…2bdd at001b = ╱20╱…╱ // 0x2ba4 @0x1b
0x2b89…2bdd at001c = ╱20╱…╱ // 0x2ba5 @0x1c
0x2b89…2bdd at001d = ╱20╱…╱ // 0x2ba6 @0x1d
0x2b89…2bdd at001e = ╱20╱…╱ // 0x2ba7 @0x1e
0x2b89…2bdd at001f = ╱22╱"╱ // 0x2ba8 @0x1f
0x2b89…2bdd at0020 = ╱eb╱;╱ // 0x2ba9 @0x20
0x2b89…2bdd at0021 = ╱55╱U╱ // 0x2baa @0x21
0x2b89…2bdd at0022 = ╱44╱D╱ // 0x2bab @0x22
0x2b89…2bdd at0023 = ╱32╱2╱ // 0x2bac @0x23
0x2b89…2bdd at0024 = ╱ef╱$╱ // 0x2bad @0x24
0x2b89…2bdd at0025 = ╱ed╱(╱ // 0x2bae @0x25
0x2b89…2bdd at0026 = ╱45╱E╱ // 0x2baf @0x26
0x2b89…2bdd at0027 = ╱f0╱:╱ // 0x2bb0 @0x27
0x2b89…2bdd at0028 = ╱31╱1╱ // 0x2bb1 @0x28
0x2b89…2bdd at0029 = ╱33╱3╱ // 0x2bb2 @0x29
0x2b89…2bdd at002a = ╱fe0000d004╱ // 0x2bb3 @0x2a
0x2b89…2bdd at002f = ╱ee╱)╱ // 0x2bb8 @0x2f
0x2b89…2bdd at0030 = ╱eb╱;╱ // 0x2bb9 @0x30
0x2b89…2bdd at0031 = ╱d2╱TAB╱ // 0x2bba @0x31
0x2b89…2bdd at0032 = ╱ed╱(╱ // 0x2bbb @0x32
0x2b89…2bdd at0033 = ╱34╱4╱ // 0x2bbc @0x33
0x2b89…2bdd at0034 = ╱39╱9╱ // 0x2bbd @0x34
0x2b89…2bdd at0035 = ╱fe0000c406╱ // 0x2bbe @0x35
0x2b89…2bdd at003a = ╱ee╱)╱ // 0x2bc3 @0x3a
0x2b89…2bdd at003b = ╱eb╱;╱ // 0x2bc4 @0x3b
0x2b89…2bdd at003c = ╱55╱U╱ // 0x2bc5 @0x3c
0x2b89…2bdd at003d = ╱44╱D╱ // 0x2bc6 @0x3d
0x2b89…2bdd at003e = ╱33╱3╱ // 0x2bc7 @0x3e
0x2b89…2bdd at003f = ╱ef╱$╱ // 0x2bc8 @0x3f
0x2b89…2bdd at0040 = ╱ed╱(╱ // 0x2bc9 @0x40
0x2b89…2bdd at0041 = ╱45╱E╱ // 0x2bca @0x41
0x2b89…2bdd at0042 = ╱f0╱:╱ // 0x2bcb @0x42
0x2b89…2bdd at0043 = ╱31╱1╱ // 0x2bcc @0x43
0x2b89…2bdd at0044 = ╱33╱3╱ // 0x2bcd @0x44
0x2b89…2bdd at0045 = ╱fe0000d004╱ // 0x2bce @0x45
0x2b89…2bdd at004a = ╱ee╱)╱ // 0x2bd3 @0x4a
0x2b89…2bdd at004b = ╱eb╱;╱ // 0x2bd4 @0x4b
0x2b89…2bdd at004c = ╱22╱"╱ // 0x2bd5 @0x4c
0x2b89…2bdd at004d = ╱20╱…╱ // 0x2bd6 @0x4d
0x2b89…2bdd at004e = ╱20╱…╱ // 0x2bd7 @0x4e
0x2b89…2bdd at004f = ╱20╱…╱ // 0x2bd8 @0x4f
0x2b89…2bdd at0050 = ╱20╱…╱ // 0x2bd9 @0x50
0x2b89…2bdd at0051 = ╱22╱"╱ // 0x2bda @0x51
0x2b89…2bdd at0052 = ╱eb╱;╱ // 0x2bdb @0x52
0x2b89…2bdd at0053 = EOL // 0x2bdc @0x53
0x2b89…2bdd }
0x2bdd…2bf2 b949 5210 PRINT UD4$(E:13)
0x2bdd…2bf2 LineComalBin {
0x2bdd…2bf2 ptr = 0xb949 // 0x2bdd @0x0
0x2bdd…2bf2 lno = 0x145a // 0x2bdf @0x2
0x2bdd…2bf2 at0004 = ╱92╱ PRINT ╱ // 0x2be1 @0x4
0x2bdd…2bf2 at0005 = ╱55╱U╱ // 0x2be2 @0x5
0x2bdd…2bf2 at0006 = ╱44╱D╱ // 0x2be3 @0x6
0x2bdd…2bf2 at0007 = ╱34╱4╱ // 0x2be4 @0x7
0x2bdd…2bf2 at0008 = ╱ef╱$╱ // 0x2be5 @0x8
0x2bdd…2bf2 at0009 = ╱ed╱(╱ // 0x2be6 @0x9
0x2bdd…2bf2 at000a = ╱45╱E╱ // 0x2be7 @0xa
0x2bdd…2bf2 at000b = ╱f0╱:╱ // 0x2be8 @0xb
0x2bdd…2bf2 at000c = ╱31╱1╱ // 0x2be9 @0xc
0x2bdd…2bf2 at000d = ╱33╱3╱ // 0x2bea @0xd
0x2bdd…2bf2 at000e = ╱fe0000d004╱ // 0x2beb @0xe
0x2bdd…2bf2 at0013 = ╱ee╱)╱ // 0x2bf0 @0x13
0x2bdd…2bf2 at0014 = EOL // 0x2bf1 @0x14
0x2bdd…2bf2 }
0x2bf2…2bfb b952 5220 PRINT " "
0x2bf2…2bfb LineComalBin {
0x2bf2…2bfb ptr = 0xb952 // 0x2bf2 @0x0
0x2bf2…2bfb lno = 0x1464 // 0x2bf4 @0x2
0x2bf2…2bfb at0004 = ╱92╱ PRINT ╱ // 0x2bf6 @0x4
0x2bf2…2bfb at0005 = ╱22╱"╱ // 0x2bf7 @0x5
0x2bf2…2bfb at0006 = ╱20╱…╱ // 0x2bf8 @0x6
0x2bf2…2bfb at0007 = ╱22╱"╱ // 0x2bf9 @0x7
0x2bf2…2bfb at0008 = EOL // 0x2bfa @0x8
0x2bf2…2bfb }
0x2bfb…2c01 b958 5230 ENDIF
0x2bfb…2c01 LineComalBin {
0x2bfb…2c01 ptr = 0xb958 // 0x2bfb @0x0
0x2bfb…2c01 lno = 0x146e // 0x2bfd @0x2
0x2bfb…2c01 at0004 = ╱9b╱ ENDIF ╱ // 0x2bff @0x4
0x2bfb…2c01 at0005 = EOL // 0x2c00 @0x5
0x2bfb…2c01 }
0x2c01…2c12 b969 5240 IF FPIL3=TIL THEN EXIT
0x2c01…2c12 LineComalBin {
0x2c01…2c12 ptr = 0xb969 // 0x2c01 @0x0
0x2c01…2c12 lno = 0x1478 // 0x2c03 @0x2
0x2c01…2c12 at0004 = ╱82╱ IF ╱ // 0x2c05 @0x4
0x2c01…2c12 at0005 = ╱46╱F╱ // 0x2c06 @0x5
0x2c01…2c12 at0006 = ╱50╱P╱ // 0x2c07 @0x6
0x2c01…2c12 at0007 = ╱49╱I╱ // 0x2c08 @0x7
0x2c01…2c12 at0008 = ╱4c╱L╱ // 0x2c09 @0x8
0x2c01…2c12 at0009 = ╱33╱3╱ // 0x2c0a @0x9
0x2c01…2c12 at000a = ╱dc╱=╱ // 0x2c0b @0xa
0x2c01…2c12 at000b = ╱54╱T╱ // 0x2c0c @0xb
0x2c01…2c12 at000c = ╱49╱I╱ // 0x2c0d @0xc
0x2c01…2c12 at000d = ╱4c╱L╱ // 0x2c0e @0xd
0x2c01…2c12 at000e = ╱b6╱ THEN ╱ // 0x2c0f @0xe
0x2c01…2c12 at000f = ╱99╱ EXIT ╱ // 0x2c10 @0xf
0x2c01…2c12 at0010 = EOL // 0x2c11 @0x10
0x2c01…2c12 }
0x2c12…2c1d b974 5250 NEXT FPIL3
0x2c12…2c1d LineComalBin {
0x2c12…2c1d ptr = 0xb974 // 0x2c12 @0x0
0x2c12…2c1d lno = 0x1482 // 0x2c14 @0x2
0x2c12…2c1d at0004 = ╱84╱ NEXT ╱ // 0x2c16 @0x4
0x2c12…2c1d at0005 = ╱46╱F╱ // 0x2c17 @0x5
0x2c12…2c1d at0006 = ╱50╱P╱ // 0x2c18 @0x6
0x2c12…2c1d at0007 = ╱49╱I╱ // 0x2c19 @0x7
0x2c12…2c1d at0008 = ╱4c╱L╱ // 0x2c1a @0x8
0x2c12…2c1d at0009 = ╱33╱3╱ // 0x2c1b @0x9
0x2c12…2c1d at000a = EOL // 0x2c1c @0xa
0x2c12…2c1d }
0x2c1d…2c3d b994 5260 IF FPIL3=TIL AND FPIL3<I+5 THEN EXIT
0x2c1d…2c3d LineComalBin {
0x2c1d…2c3d ptr = 0xb994 // 0x2c1d @0x0
0x2c1d…2c3d lno = 0x148c // 0x2c1f @0x2
0x2c1d…2c3d at0004 = ╱82╱ IF ╱ // 0x2c21 @0x4
0x2c1d…2c3d at0005 = ╱46╱F╱ // 0x2c22 @0x5
0x2c1d…2c3d at0006 = ╱50╱P╱ // 0x2c23 @0x6
0x2c1d…2c3d at0007 = ╱49╱I╱ // 0x2c24 @0x7
0x2c1d…2c3d at0008 = ╱4c╱L╱ // 0x2c25 @0x8
0x2c1d…2c3d at0009 = ╱33╱3╱ // 0x2c26 @0x9
0x2c1d…2c3d at000a = ╱dc╱=╱ // 0x2c27 @0xa
0x2c1d…2c3d at000b = ╱54╱T╱ // 0x2c28 @0xb
0x2c1d…2c3d at000c = ╱49╱I╱ // 0x2c29 @0xc
0x2c1d…2c3d at000d = ╱4c╱L╱ // 0x2c2a @0xd
0x2c1d…2c3d at000e = ╱da╱ AND ╱ // 0x2c2b @0xe
0x2c1d…2c3d at000f = ╱46╱F╱ // 0x2c2c @0xf
0x2c1d…2c3d at0010 = ╱50╱P╱ // 0x2c2d @0x10
0x2c1d…2c3d at0011 = ╱49╱I╱ // 0x2c2e @0x11
0x2c1d…2c3d at0012 = ╱4c╱L╱ // 0x2c2f @0x12
0x2c1d…2c3d at0013 = ╱33╱3╱ // 0x2c30 @0x13
0x2c1d…2c3d at0014 = ╱dd╱<╱ // 0x2c31 @0x14
0x2c1d…2c3d at0015 = ╱49╱I╱ // 0x2c32 @0x15
0x2c1d…2c3d at0016 = ╱e2╱+╱ // 0x2c33 @0x16
0x2c1d…2c3d at0017 = ╱35╱5╱ // 0x2c34 @0x17
0x2c1d…2c3d at0018 = ╱fe0000a003╱ // 0x2c35 @0x18
0x2c1d…2c3d at001d = ╱b6╱ THEN ╱ // 0x2c3a @0x1d
0x2c1d…2c3d at001e = ╱99╱ EXIT ╱ // 0x2c3b @0x1e
0x2c1d…2c3d at001f = EOL // 0x2c3c @0x1f
0x2c1d…2c3d }
0x2c3d…2c44 b99b 5280 NEXT I
0x2c3d…2c44 LineComalBin {
0x2c3d…2c44 ptr = 0xb99b // 0x2c3d @0x0
0x2c3d…2c44 lno = 0x14a0 // 0x2c3f @0x2
0x2c3d…2c44 at0004 = ╱84╱ NEXT ╱ // 0x2c41 @0x4
0x2c3d…2c44 at0005 = ╱49╱I╱ // 0x2c42 @0x5
0x2c3d…2c44 at0006 = EOL // 0x2c43 @0x6
0x2c3d…2c44 }
0x2c44…2c5c b9b3 5290 FOR J=FPIL3+E TO I+4
0x2c44…2c5c LineComalBin {
0x2c44…2c5c ptr = 0xb9b3 // 0x2c44 @0x0
0x2c44…2c5c lno = 0x14aa // 0x2c46 @0x2
0x2c44…2c5c at0004 = ╱83╱ FOR ╱ // 0x2c48 @0x4
0x2c44…2c5c at0005 = ╱4a╱J╱ // 0x2c49 @0x5
0x2c44…2c5c at0006 = ╱dc╱=╱ // 0x2c4a @0x6
0x2c44…2c5c at0007 = ╱46╱F╱ // 0x2c4b @0x7
0x2c44…2c5c at0008 = ╱50╱P╱ // 0x2c4c @0x8
0x2c44…2c5c at0009 = ╱49╱I╱ // 0x2c4d @0x9
0x2c44…2c5c at000a = ╱4c╱L╱ // 0x2c4e @0xa
0x2c44…2c5c at000b = ╱33╱3╱ // 0x2c4f @0xb
0x2c44…2c5c at000c = ╱e2╱+╱ // 0x2c50 @0xc
0x2c44…2c5c at000d = ╱45╱E╱ // 0x2c51 @0xd
0x2c44…2c5c at000e = ╱b7╱ TO ╱ // 0x2c52 @0xe
0x2c44…2c5c at000f = ╱49╱I╱ // 0x2c53 @0xf
0x2c44…2c5c at0010 = ╱e2╱+╱ // 0x2c54 @0x10
0x2c44…2c5c at0011 = ╱34╱4╱ // 0x2c55 @0x11
0x2c44…2c5c at0012 = ╱fe00008003╱ // 0x2c56 @0x12
0x2c44…2c5c at0017 = EOL // 0x2c5b @0x17
0x2c44…2c5c }
0x2c5c…2c77 b9ce 5300 PRINT CHR(10);CHR(10)
0x2c5c…2c77 LineComalBin {
0x2c5c…2c77 ptr = 0xb9ce // 0x2c5c @0x0
0x2c5c…2c77 lno = 0x14b4 // 0x2c5e @0x2
0x2c5c…2c77 at0004 = ╱92╱ PRINT ╱ // 0x2c60 @0x4
0x2c5c…2c77 at0005 = ╱cf╱CHR╱ // 0x2c61 @0x5
0x2c5c…2c77 at0006 = ╱ed╱(╱ // 0x2c62 @0x6
0x2c5c…2c77 at0007 = ╱31╱1╱ // 0x2c63 @0x7
0x2c5c…2c77 at0008 = ╱30╱0╱ // 0x2c64 @0x8
0x2c5c…2c77 at0009 = ╱fe0000a004╱ // 0x2c65 @0x9
0x2c5c…2c77 at000e = ╱ee╱)╱ // 0x2c6a @0xe
0x2c5c…2c77 at000f = ╱eb╱;╱ // 0x2c6b @0xf
0x2c5c…2c77 at0010 = ╱cf╱CHR╱ // 0x2c6c @0x10
0x2c5c…2c77 at0011 = ╱ed╱(╱ // 0x2c6d @0x11
0x2c5c…2c77 at0012 = ╱31╱1╱ // 0x2c6e @0x12
0x2c5c…2c77 at0013 = ╱30╱0╱ // 0x2c6f @0x13
0x2c5c…2c77 at0014 = ╱fe0000a004╱ // 0x2c70 @0x14
0x2c5c…2c77 at0019 = ╱ee╱)╱ // 0x2c75 @0x19
0x2c5c…2c77 at001a = EOL // 0x2c76 @0x1a
0x2c5c…2c77 }
0x2c77…2c92 b9e9 5310 PRINT CHR(10);CHR(10)
0x2c77…2c92 LineComalBin {
0x2c77…2c92 ptr = 0xb9e9 // 0x2c77 @0x0
0x2c77…2c92 lno = 0x14be // 0x2c79 @0x2
0x2c77…2c92 at0004 = ╱92╱ PRINT ╱ // 0x2c7b @0x4
0x2c77…2c92 at0005 = ╱cf╱CHR╱ // 0x2c7c @0x5
0x2c77…2c92 at0006 = ╱ed╱(╱ // 0x2c7d @0x6
0x2c77…2c92 at0007 = ╱31╱1╱ // 0x2c7e @0x7
0x2c77…2c92 at0008 = ╱30╱0╱ // 0x2c7f @0x8
0x2c77…2c92 at0009 = ╱fe0000a004╱ // 0x2c80 @0x9
0x2c77…2c92 at000e = ╱ee╱)╱ // 0x2c85 @0xe
0x2c77…2c92 at000f = ╱eb╱;╱ // 0x2c86 @0xf
0x2c77…2c92 at0010 = ╱cf╱CHR╱ // 0x2c87 @0x10
0x2c77…2c92 at0011 = ╱ed╱(╱ // 0x2c88 @0x11
0x2c77…2c92 at0012 = ╱31╱1╱ // 0x2c89 @0x12
0x2c77…2c92 at0013 = ╱30╱0╱ // 0x2c8a @0x13
0x2c77…2c92 at0014 = ╱fe0000a004╱ // 0x2c8b @0x14
0x2c77…2c92 at0019 = ╱ee╱)╱ // 0x2c90 @0x19
0x2c77…2c92 at001a = EOL // 0x2c91 @0x1a
0x2c77…2c92 }
0x2c92…2cad ba04 5320 PRINT CHR(10);CHR(10)
0x2c92…2cad LineComalBin {
0x2c92…2cad ptr = 0xba04 // 0x2c92 @0x0
0x2c92…2cad lno = 0x14c8 // 0x2c94 @0x2
0x2c92…2cad at0004 = ╱92╱ PRINT ╱ // 0x2c96 @0x4
0x2c92…2cad at0005 = ╱cf╱CHR╱ // 0x2c97 @0x5
0x2c92…2cad at0006 = ╱ed╱(╱ // 0x2c98 @0x6
0x2c92…2cad at0007 = ╱31╱1╱ // 0x2c99 @0x7
0x2c92…2cad at0008 = ╱30╱0╱ // 0x2c9a @0x8
0x2c92…2cad at0009 = ╱fe0000a004╱ // 0x2c9b @0x9
0x2c92…2cad at000e = ╱ee╱)╱ // 0x2ca0 @0xe
0x2c92…2cad at000f = ╱eb╱;╱ // 0x2ca1 @0xf
0x2c92…2cad at0010 = ╱cf╱CHR╱ // 0x2ca2 @0x10
0x2c92…2cad at0011 = ╱ed╱(╱ // 0x2ca3 @0x11
0x2c92…2cad at0012 = ╱31╱1╱ // 0x2ca4 @0x12
0x2c92…2cad at0013 = ╱30╱0╱ // 0x2ca5 @0x13
0x2c92…2cad at0014 = ╱fe0000a004╱ // 0x2ca6 @0x14
0x2c92…2cad at0019 = ╱ee╱)╱ // 0x2cab @0x19
0x2c92…2cad at001a = EOL // 0x2cac @0x1a
0x2c92…2cad }
0x2cad…2cb4 ba0b 5350 NEXT J
0x2cad…2cb4 LineComalBin {
0x2cad…2cb4 ptr = 0xba0b // 0x2cad @0x0
0x2cad…2cb4 lno = 0x14e6 // 0x2caf @0x2
0x2cad…2cb4 at0004 = ╱84╱ NEXT ╱ // 0x2cb1 @0x4
0x2cad…2cb4 at0005 = ╱4a╱J╱ // 0x2cb2 @0x5
0x2cad…2cb4 at0006 = EOL // 0x2cb3 @0x6
0x2cad…2cb4 }
0x2cb4…2cbb ba12 5370 OUTPUT T
0x2cb4…2cbb LineComalBin {
0x2cb4…2cbb ptr = 0xba12 // 0x2cb4 @0x0
0x2cb4…2cbb lno = 0x14fa // 0x2cb6 @0x2
0x2cb4…2cbb at0004 = ╱a5╱ OUTPUT ╱ // 0x2cb8 @0x4
0x2cb4…2cbb at0005 = ╱54╱T╱ // 0x2cb9 @0x5
0x2cb4…2cbb at0006 = EOL // 0x2cba @0x6
0x2cb4…2cbb }
0x2cbb…2cc6 ba1d 5380 KONT=B
0x2cbb…2cc6 LineComalBin {
0x2cbb…2cc6 ptr = 0xba1d // 0x2cbb @0x0
0x2cbb…2cc6 lno = 0x1504 // 0x2cbd @0x2
0x2cbb…2cc6 at0004 = ╱4b╱K╱ // 0x2cbf @0x4
0x2cbb…2cc6 at0005 = ╱4f╱O╱ // 0x2cc0 @0x5
0x2cbb…2cc6 at0006 = ╱4e╱N╱ // 0x2cc1 @0x6
0x2cbb…2cc6 at0007 = ╱54╱T╱ // 0x2cc2 @0x7
0x2cbb…2cc6 at0008 = ╱dc╱=╱ // 0x2cc3 @0x8
0x2cbb…2cc6 at0009 = ╱42╱B╱ // 0x2cc4 @0x9
0x2cbb…2cc6 at000a = EOL // 0x2cc5 @0xa
0x2cbb…2cc6 }
0x2cc6…2ccc ba23 5390 ENDCASE
0x2cc6…2ccc LineComalBin {
0x2cc6…2ccc ptr = 0xba23 // 0x2cc6 @0x0
0x2cc6…2ccc lno = 0x150e // 0x2cc8 @0x2
0x2cc6…2ccc at0004 = ╱a4╱ ENDCASE ╱ // 0x2cca @0x4
0x2cc6…2ccc at0005 = EOL // 0x2ccb @0x5
0x2cc6…2ccc }
0x2ccc…2cd2 ba29 5400 ELSE
0x2ccc…2cd2 LineComalBin {
0x2ccc…2cd2 ptr = 0xba29 // 0x2ccc @0x0
0x2ccc…2cd2 lno = 0x1518 // 0x2cce @0x2
0x2ccc…2cd2 at0004 = ╱9a╱ ELSE ╱ // 0x2cd0 @0x4
0x2ccc…2cd2 at0005 = EOL // 0x2cd1 @0x5
0x2ccc…2cd2 }
0x2cd2…2cd8 ba2f 5410 REPEAT
0x2cd2…2cd8 LineComalBin {
0x2cd2…2cd8 ptr = 0xba2f // 0x2cd2 @0x0
0x2cd2…2cd8 lno = 0x1522 // 0x2cd4 @0x2
0x2cd2…2cd8 at0004 = ╱97╱ REPEAT ╱ // 0x2cd6 @0x4
0x2cd2…2cd8 at0005 = EOL // 0x2cd7 @0x5
0x2cd2…2cd8 }
0x2cd8…2ce7 ba3e 5420 CURSOR V,23
0x2cd8…2ce7 LineComalBin {
0x2cd8…2ce7 ptr = 0xba3e // 0x2cd8 @0x0
0x2cd8…2ce7 lno = 0x152c // 0x2cda @0x2
0x2cd8…2ce7 at0004 = ╱a1╱ CURSOR ╱ // 0x2cdc @0x4
0x2cd8…2ce7 at0005 = ╱56╱V╱ // 0x2cdd @0x5
0x2cd8…2ce7 at0006 = ╱ec╱,╱ // 0x2cde @0x6
0x2cd8…2ce7 at0007 = ╱32╱2╱ // 0x2cdf @0x7
0x2cd8…2ce7 at0008 = ╱33╱3╱ // 0x2ce0 @0x8
0x2cd8…2ce7 at0009 = ╱fe0000b805╱ // 0x2ce1 @0x9
0x2cd8…2ce7 at000e = EOL // 0x2ce6 @0xe
0x2cd8…2ce7 }
0x2ce7…2d2a ba81 5430 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,";
0x2ce7…2d2a LineComalBin {
0x2ce7…2d2a ptr = 0xba81 // 0x2ce7 @0x0
0x2ce7…2d2a lno = 0x1536 // 0x2ce9 @0x2
0x2ce7…2d2a at0004 = ╱92╱ PRINT ╱ // 0x2ceb @0x4
0x2ce7…2d2a at0005 = ╱22╱"╱ // 0x2cec @0x5
0x2ce7…2d2a at0006 = ╱44╱D╱ // 0x2ced @0x6
0x2ce7…2d2a at0007 = ╱65╱e╱ // 0x2cee @0x7
0x2ce7…2d2a at0008 = ╱6e╱n╱ // 0x2cef @0x8
0x2ce7…2d2a at0009 = ╱6e╱n╱ // 0x2cf0 @0x9
0x2ce7…2d2a at000a = ╱65╱e╱ // 0x2cf1 @0xa
0x2ce7…2d2a at000b = ╱20╱…╱ // 0x2cf2 @0xb
0x2ce7…2d2a at000c = ╱6b╱k╱ // 0x2cf3 @0xc
0x2ce7…2d2a at000d = ╱6f╱o╱ // 0x2cf4 @0xd
0x2ce7…2d2a at000e = ╱6e╱n╱ // 0x2cf5 @0xe
0x2ce7…2d2a at000f = ╱74╱t╱ // 0x2cf6 @0xf
0x2ce7…2d2a at0010 = ╱6f╱o╱ // 0x2cf7 @0x10
0x2ce7…2d2a at0011 = ╱20╱…╱ // 0x2cf8 @0x11
0x2ce7…2d2a at0012 = ╱6b╱k╱ // 0x2cf9 @0x12
0x2ce7…2d2a at0013 = ╱61╱a╱ // 0x2cfa @0x13
0x2ce7…2d2a at0014 = ╱6e╱n╱ // 0x2cfb @0x14
0x2ce7…2d2a at0015 = ╱20╱…╱ // 0x2cfc @0x15
0x2ce7…2d2a at0016 = ╱69╱i╱ // 0x2cfd @0x16
0x2ce7…2d2a at0017 = ╱6b╱k╱ // 0x2cfe @0x17
0x2ce7…2d2a at0018 = ╱6b╱k╱ // 0x2cff @0x18
0x2ce7…2d2a at0019 = ╱65╱e╱ // 0x2d00 @0x19
0x2ce7…2d2a at001a = ╱20╱…╱ // 0x2d01 @0x1a
0x2ce7…2d2a at001b = ╱73╱s╱ // 0x2d02 @0x1b
0x2ce7…2d2a at001c = ╱6c╱l╱ // 0x2d03 @0x1c
0x2ce7…2d2a at001d = ╱65╱e╱ // 0x2d04 @0x1d
0x2ce7…2d2a at001e = ╱74╱t╱ // 0x2d05 @0x1e
0x2ce7…2d2a at001f = ╱74╱t╱ // 0x2d06 @0x1f
0x2ce7…2d2a at0020 = ╱65╱e╱ // 0x2d07 @0x20
0x2ce7…2d2a at0021 = ╱73╱s╱ // 0x2d08 @0x21
0x2ce7…2d2a at0022 = ╱2c╱,╱ // 0x2d09 @0x22
0x2ce7…2d2a at0023 = ╱20╱…╱ // 0x2d0a @0x23
0x2ce7…2d2a at0024 = ╱64╱d╱ // 0x2d0b @0x24
0x2ce7…2d2a at0025 = ╱61╱a╱ // 0x2d0c @0x25
0x2ce7…2d2a at0026 = ╱20╱…╱ // 0x2d0d @0x26
0x2ce7…2d2a at0027 = ╱73╱s╱ // 0x2d0e @0x27
0x2ce7…2d2a at0028 = ╱61╱a╱ // 0x2d0f @0x28
0x2ce7…2d2a at0029 = ╱6c╱l╱ // 0x2d10 @0x29
0x2ce7…2d2a at002a = ╱64╱d╱ // 0x2d11 @0x2a
0x2ce7…2d2a at002b = ╱6f╱o╱ // 0x2d12 @0x2b
0x2ce7…2d2a at002c = ╱65╱e╱ // 0x2d13 @0x2c
0x2ce7…2d2a at002d = ╱6e╱n╱ // 0x2d14 @0x2d
0x2ce7…2d2a at002e = ╱20╱…╱ // 0x2d15 @0x2e
0x2ce7…2d2a at002f = ╱69╱i╱ // 0x2d16 @0x2f
0x2ce7…2d2a at0030 = ╱6b╱k╱ // 0x2d17 @0x30
0x2ce7…2d2a at0031 = ╱6b╱k╱ // 0x2d18 @0x31
0x2ce7…2d2a at0032 = ╱65╱e╱ // 0x2d19 @0x32
0x2ce7…2d2a at0033 = ╱20╱…╱ // 0x2d1a @0x33
0x2ce7…2d2a at0034 = ╱65╱e╱ // 0x2d1b @0x34
0x2ce7…2d2a at0035 = ╱72╱r╱ // 0x2d1c @0x35
0x2ce7…2d2a at0036 = ╱20╱…╱ // 0x2d1d @0x36
0x2ce7…2d2a at0037 = ╱75╱u╱ // 0x2d1e @0x37
0x2ce7…2d2a at0038 = ╱64╱d╱ // 0x2d1f @0x38
0x2ce7…2d2a at0039 = ╱6c╱l╱ // 0x2d20 @0x39
0x2ce7…2d2a at003a = ╱69╱i╱ // 0x2d21 @0x3a
0x2ce7…2d2a at003b = ╱67╱g╱ // 0x2d22 @0x3b
0x2ce7…2d2a at003c = ╱6e╱n╱ // 0x2d23 @0x3c
0x2ce7…2d2a at003d = ╱65╱e╱ // 0x2d24 @0x3d
0x2ce7…2d2a at003e = ╱74╱t╱ // 0x2d25 @0x3e
0x2ce7…2d2a at003f = ╱2c╱,╱ // 0x2d26 @0x3f
0x2ce7…2d2a at0040 = ╱22╱"╱ // 0x2d27 @0x40
0x2ce7…2d2a at0041 = ╱eb╱;╱ // 0x2d28 @0x41
0x2ce7…2d2a at0042 = EOL // 0x2d29 @0x42
0x2ce7…2d2a }
0x2d2a…2d44 ba9b 5440 PRINT " tryk RETURN "
0x2d2a…2d44 LineComalBin {
0x2d2a…2d44 ptr = 0xba9b // 0x2d2a @0x0
0x2d2a…2d44 lno = 0x1540 // 0x2d2c @0x2
0x2d2a…2d44 at0004 = ╱92╱ PRINT ╱ // 0x2d2e @0x4
0x2d2a…2d44 at0005 = ╱22╱"╱ // 0x2d2f @0x5
0x2d2a…2d44 at0006 = ╱20╱…╱ // 0x2d30 @0x6
0x2d2a…2d44 at0007 = ╱74╱t╱ // 0x2d31 @0x7
0x2d2a…2d44 at0008 = ╱72╱r╱ // 0x2d32 @0x8
0x2d2a…2d44 at0009 = ╱79╱y╱ // 0x2d33 @0x9
0x2d2a…2d44 at000a = ╱6b╱k╱ // 0x2d34 @0xa
0x2d2a…2d44 at000b = ╱20╱…╱ // 0x2d35 @0xb
0x2d2a…2d44 at000c = ╱52╱R╱ // 0x2d36 @0xc
0x2d2a…2d44 at000d = ╱45╱E╱ // 0x2d37 @0xd
0x2d2a…2d44 at000e = ╱54╱T╱ // 0x2d38 @0xe
0x2d2a…2d44 at000f = ╱55╱U╱ // 0x2d39 @0xf
0x2d2a…2d44 at0010 = ╱52╱R╱ // 0x2d3a @0x10
0x2d2a…2d44 at0011 = ╱4e╱N╱ // 0x2d3b @0x11
0x2d2a…2d44 at0012 = ╱20╱…╱ // 0x2d3c @0x12
0x2d2a…2d44 at0013 = ╱20╱…╱ // 0x2d3d @0x13
0x2d2a…2d44 at0014 = ╱20╱…╱ // 0x2d3e @0x14
0x2d2a…2d44 at0015 = ╱20╱…╱ // 0x2d3f @0x15
0x2d2a…2d44 at0016 = ╱20╱…╱ // 0x2d40 @0x16
0x2d2a…2d44 at0017 = ╱20╱…╱ // 0x2d41 @0x17
0x2d2a…2d44 at0018 = ╱22╱"╱ // 0x2d42 @0x18
0x2d2a…2d44 at0019 = EOL // 0x2d43 @0x19
0x2d2a…2d44 }
0x2d44…2d4c baa3 5450 INPUT A$
0x2d44…2d4c LineComalBin {
0x2d44…2d4c ptr = 0xbaa3 // 0x2d44 @0x0
0x2d44…2d4c lno = 0x154a // 0x2d46 @0x2
0x2d44…2d4c at0004 = ╱91╱ INPUT ╱ // 0x2d48 @0x4
0x2d44…2d4c at0005 = ╱41╱A╱ // 0x2d49 @0x5
0x2d44…2d4c at0006 = ╱ef╱$╱ // 0x2d4a @0x6
0x2d44…2d4c at0007 = EOL // 0x2d4b @0x7
0x2d44…2d4c }
0x2d4c…2d5c bab3 5460 EXEC NRTEST(A$)
0x2d4c…2d5c LineComalBin {
0x2d4c…2d5c ptr = 0xbab3 // 0x2d4c @0x0
0x2d4c…2d5c lno = 0x1554 // 0x2d4e @0x2
0x2d4c…2d5c at0004 = ╱9d╱ EXEC ╱ // 0x2d50 @0x4
0x2d4c…2d5c at0005 = ╱4e╱N╱ // 0x2d51 @0x5
0x2d4c…2d5c at0006 = ╱52╱R╱ // 0x2d52 @0x6
0x2d4c…2d5c at0007 = ╱54╱T╱ // 0x2d53 @0x7
0x2d4c…2d5c at0008 = ╱45╱E╱ // 0x2d54 @0x8
0x2d4c…2d5c at0009 = ╱53╱S╱ // 0x2d55 @0x9
0x2d4c…2d5c at000a = ╱54╱T╱ // 0x2d56 @0xa
0x2d4c…2d5c at000b = ╱ed╱(╱ // 0x2d57 @0xb
0x2d4c…2d5c at000c = ╱41╱A╱ // 0x2d58 @0xc
0x2d4c…2d5c at000d = ╱ef╱$╱ // 0x2d59 @0xd
0x2d4c…2d5c at000e = ╱ee╱)╱ // 0x2d5a @0xe
0x2d4c…2d5c at000f = EOL // 0x2d5b @0xf
0x2d4c…2d5c }
0x2d5c…2d66 babd 5470 UNTIL P=-E
0x2d5c…2d66 LineComalBin {
0x2d5c…2d66 ptr = 0xbabd // 0x2d5c @0x0
0x2d5c…2d66 lno = 0x155e // 0x2d5e @0x2
0x2d5c…2d66 at0004 = ╱98╱ UNTIL ╱ // 0x2d60 @0x4
0x2d5c…2d66 at0005 = ╱50╱P╱ // 0x2d61 @0x5
0x2d5c…2d66 at0006 = ╱dc╱=╱ // 0x2d62 @0x6
0x2d5c…2d66 at0007 = ╱e9╱-╱ // 0x2d63 @0x7
0x2d5c…2d66 at0008 = ╱45╱E╱ // 0x2d64 @0x8
0x2d5c…2d66 at0009 = EOL // 0x2d65 @0x9
0x2d5c…2d66 }
0x2d66…2d6c bac3 5480 ENDIF
0x2d66…2d6c LineComalBin {
0x2d66…2d6c ptr = 0xbac3 // 0x2d66 @0x0
0x2d66…2d6c lno = 0x1568 // 0x2d68 @0x2
0x2d66…2d6c at0004 = ╱9b╱ ENDIF ╱ // 0x2d6a @0x4
0x2d66…2d6c at0005 = EOL // 0x2d6b @0x5
0x2d66…2d6c }
0x2d6c…2d78 bacf 5490 UNTIL KONT=B
0x2d6c…2d78 LineComalBin {
0x2d6c…2d78 ptr = 0xbacf // 0x2d6c @0x0
0x2d6c…2d78 lno = 0x1572 // 0x2d6e @0x2
0x2d6c…2d78 at0004 = ╱98╱ UNTIL ╱ // 0x2d70 @0x4
0x2d6c…2d78 at0005 = ╱4b╱K╱ // 0x2d71 @0x5
0x2d6c…2d78 at0006 = ╱4f╱O╱ // 0x2d72 @0x6
0x2d6c…2d78 at0007 = ╱4e╱N╱ // 0x2d73 @0x7
0x2d6c…2d78 at0008 = ╱54╱T╱ // 0x2d74 @0x8
0x2d6c…2d78 at0009 = ╱dc╱=╱ // 0x2d75 @0x9
0x2d6c…2d78 at000a = ╱42╱B╱ // 0x2d76 @0xa
0x2d6c…2d78 at000b = EOL // 0x2d77 @0xb
0x2d6c…2d78 }
0x2d78…2d84 badb 5500 UNTIL TYPE=B
0x2d78…2d84 LineComalBin {
0x2d78…2d84 ptr = 0xbadb // 0x2d78 @0x0
0x2d78…2d84 lno = 0x157c // 0x2d7a @0x2
0x2d78…2d84 at0004 = ╱98╱ UNTIL ╱ // 0x2d7c @0x4
0x2d78…2d84 at0005 = ╱54╱T╱ // 0x2d7d @0x5
0x2d78…2d84 at0006 = ╱59╱Y╱ // 0x2d7e @0x6
0x2d78…2d84 at0007 = ╱50╱P╱ // 0x2d7f @0x7
0x2d78…2d84 at0008 = ╱45╱E╱ // 0x2d80 @0x8
0x2d78…2d84 at0009 = ╱dc╱=╱ // 0x2d81 @0x9
0x2d78…2d84 at000a = ╱42╱B╱ // 0x2d82 @0xa
0x2d78…2d84 at000b = EOL // 0x2d83 @0xb
0x2d78…2d84 }
0x2d84…2da1 baf8 5510 EXEC UDTAB(FTAB,MFANTAL,K2$)
0x2d84…2da1 LineComalBin {
0x2d84…2da1 ptr = 0xbaf8 // 0x2d84 @0x0
0x2d84…2da1 lno = 0x1586 // 0x2d86 @0x2
0x2d84…2da1 at0004 = ╱9d╱ EXEC ╱ // 0x2d88 @0x4
0x2d84…2da1 at0005 = ╱55╱U╱ // 0x2d89 @0x5
0x2d84…2da1 at0006 = ╱44╱D╱ // 0x2d8a @0x6
0x2d84…2da1 at0007 = ╱54╱T╱ // 0x2d8b @0x7
0x2d84…2da1 at0008 = ╱41╱A╱ // 0x2d8c @0x8
0x2d84…2da1 at0009 = ╱42╱B╱ // 0x2d8d @0x9
0x2d84…2da1 at000a = ╱ed╱(╱ // 0x2d8e @0xa
0x2d84…2da1 at000b = ╱46╱F╱ // 0x2d8f @0xb
0x2d84…2da1 at000c = ╱54╱T╱ // 0x2d90 @0xc
0x2d84…2da1 at000d = ╱41╱A╱ // 0x2d91 @0xd
0x2d84…2da1 at000e = ╱42╱B╱ // 0x2d92 @0xe
0x2d84…2da1 at000f = ╱ec╱,╱ // 0x2d93 @0xf
0x2d84…2da1 at0010 = ╱4d╱M╱ // 0x2d94 @0x10
0x2d84…2da1 at0011 = ╱46╱F╱ // 0x2d95 @0x11
0x2d84…2da1 at0012 = ╱41╱A╱ // 0x2d96 @0x12
0x2d84…2da1 at0013 = ╱4e╱N╱ // 0x2d97 @0x13
0x2d84…2da1 at0014 = ╱54╱T╱ // 0x2d98 @0x14
0x2d84…2da1 at0015 = ╱41╱A╱ // 0x2d99 @0x15
0x2d84…2da1 at0016 = ╱4c╱L╱ // 0x2d9a @0x16
0x2d84…2da1 at0017 = ╱ec╱,╱ // 0x2d9b @0x17
0x2d84…2da1 at0018 = ╱4b╱K╱ // 0x2d9c @0x18
0x2d84…2da1 at0019 = ╱32╱2╱ // 0x2d9d @0x19
0x2d84…2da1 at001a = ╱ef╱$╱ // 0x2d9e @0x1a
0x2d84…2da1 at001b = ╱ee╱)╱ // 0x2d9f @0x1b
0x2d84…2da1 at001c = EOL // 0x2da0 @0x1c
0x2d84…2da1 }
0x2da1…2daa bb01 5520 CLOSE K2$
0x2da1…2daa LineComalBin {
0x2da1…2daa ptr = 0xbb01 // 0x2da1 @0x0
0x2da1…2daa lno = 0x1590 // 0x2da3 @0x2
0x2da1…2daa at0004 = ╱a8╱ CLOSE ╱ // 0x2da5 @0x4
0x2da1…2daa at0005 = ╱4b╱K╱ // 0x2da6 @0x5
0x2da1…2daa at0006 = ╱32╱2╱ // 0x2da7 @0x6
0x2da1…2daa at0007 = ╱ef╱$╱ // 0x2da8 @0x7
0x2da1…2daa at0008 = EOL // 0x2da9 @0x8
0x2da1…2daa }
0x2daa…2dc3 bb1a 5530 EXEC FEJL(W,30,K2$)
0x2daa…2dc3 LineComalBin {
0x2daa…2dc3 ptr = 0xbb1a // 0x2daa @0x0
0x2daa…2dc3 lno = 0x159a // 0x2dac @0x2
0x2daa…2dc3 at0004 = ╱9d╱ EXEC ╱ // 0x2dae @0x4
0x2daa…2dc3 at0005 = ╱46╱F╱ // 0x2daf @0x5
0x2daa…2dc3 at0006 = ╱45╱E╱ // 0x2db0 @0x6
0x2daa…2dc3 at0007 = ╱4a╱J╱ // 0x2db1 @0x7
0x2daa…2dc3 at0008 = ╱4c╱L╱ // 0x2db2 @0x8
0x2daa…2dc3 at0009 = ╱ed╱(╱ // 0x2db3 @0x9
0x2daa…2dc3 at000a = ╱57╱W╱ // 0x2db4 @0xa
0x2daa…2dc3 at000b = ╱ec╱,╱ // 0x2db5 @0xb
0x2daa…2dc3 at000c = ╱33╱3╱ // 0x2db6 @0xc
0x2daa…2dc3 at000d = ╱30╱0╱ // 0x2db7 @0xd
0x2daa…2dc3 at000e = ╱fe0000f005╱ // 0x2db8 @0xe
0x2daa…2dc3 at0013 = ╱ec╱,╱ // 0x2dbd @0x13
0x2daa…2dc3 at0014 = ╱4b╱K╱ // 0x2dbe @0x14
0x2daa…2dc3 at0015 = ╱32╱2╱ // 0x2dbf @0x15
0x2daa…2dc3 at0016 = ╱ef╱$╱ // 0x2dc0 @0x16
0x2daa…2dc3 at0017 = ╱ee╱)╱ // 0x2dc1 @0x17
0x2daa…2dc3 at0018 = EOL // 0x2dc2 @0x18
0x2daa…2dc3 }
0x2dc3…2dcc bb23 5540 CLOSE K3$
0x2dc3…2dcc LineComalBin {
0x2dc3…2dcc ptr = 0xbb23 // 0x2dc3 @0x0
0x2dc3…2dcc lno = 0x15a4 // 0x2dc5 @0x2
0x2dc3…2dcc at0004 = ╱a8╱ CLOSE ╱ // 0x2dc7 @0x4
0x2dc3…2dcc at0005 = ╱4b╱K╱ // 0x2dc8 @0x5
0x2dc3…2dcc at0006 = ╱33╱3╱ // 0x2dc9 @0x6
0x2dc3…2dcc at0007 = ╱ef╱$╱ // 0x2dca @0x7
0x2dc3…2dcc at0008 = EOL // 0x2dcb @0x8
0x2dc3…2dcc }
0x2dcc…2de5 bb3c 5550 EXEC FEJL(W,31,K3$)
0x2dcc…2de5 LineComalBin {
0x2dcc…2de5 ptr = 0xbb3c // 0x2dcc @0x0
0x2dcc…2de5 lno = 0x15ae // 0x2dce @0x2
0x2dcc…2de5 at0004 = ╱9d╱ EXEC ╱ // 0x2dd0 @0x4
0x2dcc…2de5 at0005 = ╱46╱F╱ // 0x2dd1 @0x5
0x2dcc…2de5 at0006 = ╱45╱E╱ // 0x2dd2 @0x6
0x2dcc…2de5 at0007 = ╱4a╱J╱ // 0x2dd3 @0x7
0x2dcc…2de5 at0008 = ╱4c╱L╱ // 0x2dd4 @0x8
0x2dcc…2de5 at0009 = ╱ed╱(╱ // 0x2dd5 @0x9
0x2dcc…2de5 at000a = ╱57╱W╱ // 0x2dd6 @0xa
0x2dcc…2de5 at000b = ╱ec╱,╱ // 0x2dd7 @0xb
0x2dcc…2de5 at000c = ╱33╱3╱ // 0x2dd8 @0xc
0x2dcc…2de5 at000d = ╱31╱1╱ // 0x2dd9 @0xd
0x2dcc…2de5 at000e = ╱fe0000f805╱ // 0x2dda @0xe
0x2dcc…2de5 at0013 = ╱ec╱,╱ // 0x2ddf @0x13
0x2dcc…2de5 at0014 = ╱4b╱K╱ // 0x2de0 @0x14
0x2dcc…2de5 at0015 = ╱33╱3╱ // 0x2de1 @0x15
0x2dcc…2de5 at0016 = ╱ef╱$╱ // 0x2de2 @0x16
0x2dcc…2de5 at0017 = ╱ee╱)╱ // 0x2de3 @0x17
0x2dcc…2de5 at0018 = EOL // 0x2de4 @0x18
0x2dcc…2de5 }
0x2de5…2df0 bb47 5560 OPEN K4$,W
0x2de5…2df0 LineComalBin {
0x2de5…2df0 ptr = 0xbb47 // 0x2de5 @0x0
0x2de5…2df0 lno = 0x15b8 // 0x2de7 @0x2
0x2de5…2df0 at0004 = ╱a7╱ OPEN ╱ // 0x2de9 @0x4
0x2de5…2df0 at0005 = ╱4b╱K╱ // 0x2dea @0x5
0x2de5…2df0 at0006 = ╱34╱4╱ // 0x2deb @0x6
0x2de5…2df0 at0007 = ╱ef╱$╱ // 0x2dec @0x7
0x2de5…2df0 at0008 = ╱ec╱,╱ // 0x2ded @0x8
0x2de5…2df0 at0009 = ╱57╱W╱ // 0x2dee @0x9
0x2de5…2df0 at000a = EOL // 0x2def @0xa
0x2de5…2df0 }
0x2df0…2e09 bb60 5570 EXEC FEJL(W,32,K4$)
0x2df0…2e09 LineComalBin {
0x2df0…2e09 ptr = 0xbb60 // 0x2df0 @0x0
0x2df0…2e09 lno = 0x15c2 // 0x2df2 @0x2
0x2df0…2e09 at0004 = ╱9d╱ EXEC ╱ // 0x2df4 @0x4
0x2df0…2e09 at0005 = ╱46╱F╱ // 0x2df5 @0x5
0x2df0…2e09 at0006 = ╱45╱E╱ // 0x2df6 @0x6
0x2df0…2e09 at0007 = ╱4a╱J╱ // 0x2df7 @0x7
0x2df0…2e09 at0008 = ╱4c╱L╱ // 0x2df8 @0x8
0x2df0…2e09 at0009 = ╱ed╱(╱ // 0x2df9 @0x9
0x2df0…2e09 at000a = ╱57╱W╱ // 0x2dfa @0xa
0x2df0…2e09 at000b = ╱ec╱,╱ // 0x2dfb @0xb
0x2df0…2e09 at000c = ╱33╱3╱ // 0x2dfc @0xc
0x2df0…2e09 at000d = ╱32╱2╱ // 0x2dfd @0xd
0x2df0…2e09 at000e = ╱fe00008006╱ // 0x2dfe @0xe
0x2df0…2e09 at0013 = ╱ec╱,╱ // 0x2e03 @0x13
0x2df0…2e09 at0014 = ╱4b╱K╱ // 0x2e04 @0x14
0x2df0…2e09 at0015 = ╱34╱4╱ // 0x2e05 @0x15
0x2df0…2e09 at0016 = ╱ef╱$╱ // 0x2e06 @0x16
0x2df0…2e09 at0017 = ╱ee╱)╱ // 0x2e07 @0x17
0x2df0…2e09 at0018 = EOL // 0x2e08 @0x18
0x2df0…2e09 }
0x2e09…2e60 bbb7 5580 PUT K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x2e09…2e60 LineComalBin {
0x2e09…2e60 ptr = 0xbbb7 // 0x2e09 @0x0
0x2e09…2e60 lno = 0x15cc // 0x2e0b @0x2
0x2e09…2e60 at0004 = ╱aa╱ PUT ╱ // 0x2e0d @0x4
0x2e09…2e60 at0005 = ╱4b╱K╱ // 0x2e0e @0x5
0x2e09…2e60 at0006 = ╱34╱4╱ // 0x2e0f @0x6
0x2e09…2e60 at0007 = ╱ef╱$╱ // 0x2e10 @0x7
0x2e09…2e60 at0008 = ╱ec╱,╱ // 0x2e11 @0x8
0x2e09…2e60 at0009 = ╱31╱1╱ // 0x2e12 @0x9
0x2e09…2e60 at000a = ╱34╱4╱ // 0x2e13 @0xa
0x2e09…2e60 at000b = ╱fe0000e004╱ // 0x2e14 @0xb
0x2e09…2e60 at0010 = ╱f0╱:╱ // 0x2e19 @0x10
0x2e09…2e60 at0011 = ╱41╱A╱ // 0x2e1a @0x11
0x2e09…2e60 at0012 = ╱46╱F╱ // 0x2e1b @0x12
0x2e09…2e60 at0013 = ╱49╱I╱ // 0x2e1c @0x13
0x2e09…2e60 at0014 = ╱4e╱N╱ // 0x2e1d @0x14
0x2e09…2e60 at0015 = ╱ec╱,╱ // 0x2e1e @0x15
0x2e09…2e60 at0016 = ╱41╱A╱ // 0x2e1f @0x16
0x2e09…2e60 at0017 = ╱44╱D╱ // 0x2e20 @0x17
0x2e09…2e60 at0018 = ╱45╱E╱ // 0x2e21 @0x18
0x2e09…2e60 at0019 = ╱42╱B╱ // 0x2e22 @0x19
0x2e09…2e60 at001a = ╱ec╱,╱ // 0x2e23 @0x1a
0x2e09…2e60 at001b = ╱41╱A╱ // 0x2e24 @0x1b
0x2e09…2e60 at001c = ╱4b╱K╱ // 0x2e25 @0x1c
0x2e09…2e60 at001d = ╱52╱R╱ // 0x2e26 @0x1d
0x2e09…2e60 at001e = ╱45╱E╱ // 0x2e27 @0x1e
0x2e09…2e60 at001f = ╱ec╱,╱ // 0x2e28 @0x1f
0x2e09…2e60 at0020 = ╱56╱V╱ // 0x2e29 @0x20
0x2e09…2e60 at0021 = ╱54╱T╱ // 0x2e2a @0x21
0x2e09…2e60 at0022 = ╱41╱A╱ // 0x2e2b @0x22
0x2e09…2e60 at0023 = ╱42╱B╱ // 0x2e2c @0x23
0x2e09…2e60 at0024 = ╱32╱2╱ // 0x2e2d @0x24
0x2e09…2e60 at0025 = ╱ed╱(╱ // 0x2e2e @0x25
0x2e09…2e60 at0026 = ╱45╱E╱ // 0x2e2f @0x26
0x2e09…2e60 at0027 = ╱ee╱)╱ // 0x2e30 @0x27
0x2e09…2e60 at0028 = ╱ec╱,╱ // 0x2e31 @0x28
0x2e09…2e60 at0029 = ╱56╱V╱ // 0x2e32 @0x29
0x2e09…2e60 at002a = ╱54╱T╱ // 0x2e33 @0x2a
0x2e09…2e60 at002b = ╱41╱A╱ // 0x2e34 @0x2b
0x2e09…2e60 at002c = ╱42╱B╱ // 0x2e35 @0x2c
0x2e09…2e60 at002d = ╱32╱2╱ // 0x2e36 @0x2d
0x2e09…2e60 at002e = ╱ed╱(╱ // 0x2e37 @0x2e
0x2e09…2e60 at002f = ╱47╱G╱ // 0x2e38 @0x2f
0x2e09…2e60 at0030 = ╱ee╱)╱ // 0x2e39 @0x30
0x2e09…2e60 at0031 = ╱ec╱,╱ // 0x2e3a @0x31
0x2e09…2e60 at0032 = ╱56╱V╱ // 0x2e3b @0x32
0x2e09…2e60 at0033 = ╱54╱T╱ // 0x2e3c @0x33
0x2e09…2e60 at0034 = ╱41╱A╱ // 0x2e3d @0x34
0x2e09…2e60 at0035 = ╱42╱B╱ // 0x2e3e @0x35
0x2e09…2e60 at0036 = ╱32╱2╱ // 0x2e3f @0x36
0x2e09…2e60 at0037 = ╱ed╱(╱ // 0x2e40 @0x37
0x2e09…2e60 at0038 = ╱56╱V╱ // 0x2e41 @0x38
0x2e09…2e60 at0039 = ╱ee╱)╱ // 0x2e42 @0x39
0x2e09…2e60 at003a = ╱ec╱,╱ // 0x2e43 @0x3a
0x2e09…2e60 at003b = ╱56╱V╱ // 0x2e44 @0x3b
0x2e09…2e60 at003c = ╱54╱T╱ // 0x2e45 @0x3c
0x2e09…2e60 at003d = ╱41╱A╱ // 0x2e46 @0x3d
0x2e09…2e60 at003e = ╱42╱B╱ // 0x2e47 @0x3e
0x2e09…2e60 at003f = ╱32╱2╱ // 0x2e48 @0x3f
0x2e09…2e60 at0040 = ╱ed╱(╱ // 0x2e49 @0x40
0x2e09…2e60 at0041 = ╱34╱4╱ // 0x2e4a @0x41
0x2e09…2e60 at0042 = ╱fe00008003╱ // 0x2e4b @0x42
0x2e09…2e60 at0047 = ╱ee╱)╱ // 0x2e50 @0x47
0x2e09…2e60 at0048 = ╱ec╱,╱ // 0x2e51 @0x48
0x2e09…2e60 at0049 = ╱56╱V╱ // 0x2e52 @0x49
0x2e09…2e60 at004a = ╱54╱T╱ // 0x2e53 @0x4a
0x2e09…2e60 at004b = ╱41╱A╱ // 0x2e54 @0x4b
0x2e09…2e60 at004c = ╱42╱B╱ // 0x2e55 @0x4c
0x2e09…2e60 at004d = ╱32╱2╱ // 0x2e56 @0x4d
0x2e09…2e60 at004e = ╱ed╱(╱ // 0x2e57 @0x4e
0x2e09…2e60 at004f = ╱35╱5╱ // 0x2e58 @0x4f
0x2e09…2e60 at0050 = ╱fe0000a003╱ // 0x2e59 @0x50
0x2e09…2e60 at0055 = ╱ee╱)╱ // 0x2e5e @0x55
0x2e09…2e60 at0056 = EOL // 0x2e5f @0x56
0x2e09…2e60 }
0x2e60…2e79 bbd0 5590 EXEC FEJL(W,33,K4$)
0x2e60…2e79 LineComalBin {
0x2e60…2e79 ptr = 0xbbd0 // 0x2e60 @0x0
0x2e60…2e79 lno = 0x15d6 // 0x2e62 @0x2
0x2e60…2e79 at0004 = ╱9d╱ EXEC ╱ // 0x2e64 @0x4
0x2e60…2e79 at0005 = ╱46╱F╱ // 0x2e65 @0x5
0x2e60…2e79 at0006 = ╱45╱E╱ // 0x2e66 @0x6
0x2e60…2e79 at0007 = ╱4a╱J╱ // 0x2e67 @0x7
0x2e60…2e79 at0008 = ╱4c╱L╱ // 0x2e68 @0x8
0x2e60…2e79 at0009 = ╱ed╱(╱ // 0x2e69 @0x9
0x2e60…2e79 at000a = ╱57╱W╱ // 0x2e6a @0xa
0x2e60…2e79 at000b = ╱ec╱,╱ // 0x2e6b @0xb
0x2e60…2e79 at000c = ╱33╱3╱ // 0x2e6c @0xc
0x2e60…2e79 at000d = ╱33╱3╱ // 0x2e6d @0xd
0x2e60…2e79 at000e = ╱fe00008406╱ // 0x2e6e @0xe
0x2e60…2e79 at0013 = ╱ec╱,╱ // 0x2e73 @0x13
0x2e60…2e79 at0014 = ╱4b╱K╱ // 0x2e74 @0x14
0x2e60…2e79 at0015 = ╱34╱4╱ // 0x2e75 @0x15
0x2e60…2e79 at0016 = ╱ef╱$╱ // 0x2e76 @0x16
0x2e60…2e79 at0017 = ╱ee╱)╱ // 0x2e77 @0x17
0x2e60…2e79 at0018 = EOL // 0x2e78 @0x18
0x2e60…2e79 }
0x2e79…2e8a bbe1 5600 T2(4)=B
0x2e79…2e8a LineComalBin {
0x2e79…2e8a ptr = 0xbbe1 // 0x2e79 @0x0
0x2e79…2e8a lno = 0x15e0 // 0x2e7b @0x2
0x2e79…2e8a at0004 = ╱54╱T╱ // 0x2e7d @0x4
0x2e79…2e8a at0005 = ╱32╱2╱ // 0x2e7e @0x5
0x2e79…2e8a at0006 = ╱ed╱(╱ // 0x2e7f @0x6
0x2e79…2e8a at0007 = ╱34╱4╱ // 0x2e80 @0x7
0x2e79…2e8a at0008 = ╱fe00008003╱ // 0x2e81 @0x8
0x2e79…2e8a at000d = ╱ee╱)╱ // 0x2e86 @0xd
0x2e79…2e8a at000e = ╱dc╱=╱ // 0x2e87 @0xe
0x2e79…2e8a at000f = ╱42╱B╱ // 0x2e88 @0xf
0x2e79…2e8a at0010 = EOL // 0x2e89 @0x10
0x2e79…2e8a }
0x2e8a…2eea bc41 5610 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x2e8a…2eea LineComalBin {
0x2e8a…2eea ptr = 0xbc41 // 0x2e8a @0x0
0x2e8a…2eea lno = 0x15ea // 0x2e8c @0x2
0x2e8a…2eea at0004 = ╱aa╱ PUT ╱ // 0x2e8e @0x4
0x2e8a…2eea at0005 = ╱4b╱K╱ // 0x2e8f @0x5
0x2e8a…2eea at0006 = ╱34╱4╱ // 0x2e90 @0x6
0x2e8a…2eea at0007 = ╱ef╱$╱ // 0x2e91 @0x7
0x2e8a…2eea at0008 = ╱ec╱,╱ // 0x2e92 @0x8
0x2e8a…2eea at0009 = ╱31╱1╱ // 0x2e93 @0x9
0x2e8a…2eea at000a = ╱37╱7╱ // 0x2e94 @0xa
0x2e8a…2eea at000b = ╱fe00008805╱ // 0x2e95 @0xb
0x2e8a…2eea at0010 = ╱f0╱:╱ // 0x2e9a @0x10
0x2e8a…2eea at0011 = ╱54╱T╱ // 0x2e9b @0x11
0x2e8a…2eea at0012 = ╱32╱2╱ // 0x2e9c @0x12
0x2e8a…2eea at0013 = ╱ed╱(╱ // 0x2e9d @0x13
0x2e8a…2eea at0014 = ╱45╱E╱ // 0x2e9e @0x14
0x2e8a…2eea at0015 = ╱ee╱)╱ // 0x2e9f @0x15
0x2e8a…2eea at0016 = ╱ec╱,╱ // 0x2ea0 @0x16
0x2e8a…2eea at0017 = ╱54╱T╱ // 0x2ea1 @0x17
0x2e8a…2eea at0018 = ╱32╱2╱ // 0x2ea2 @0x18
0x2e8a…2eea at0019 = ╱ed╱(╱ // 0x2ea3 @0x19
0x2e8a…2eea at001a = ╱47╱G╱ // 0x2ea4 @0x1a
0x2e8a…2eea at001b = ╱ee╱)╱ // 0x2ea5 @0x1b
0x2e8a…2eea at001c = ╱ec╱,╱ // 0x2ea6 @0x1c
0x2e8a…2eea at001d = ╱54╱T╱ // 0x2ea7 @0x1d
0x2e8a…2eea at001e = ╱32╱2╱ // 0x2ea8 @0x1e
0x2e8a…2eea at001f = ╱ed╱(╱ // 0x2ea9 @0x1f
0x2e8a…2eea at0020 = ╱56╱V╱ // 0x2eaa @0x20
0x2e8a…2eea at0021 = ╱ee╱)╱ // 0x2eab @0x21
0x2e8a…2eea at0022 = ╱ec╱,╱ // 0x2eac @0x22
0x2e8a…2eea at0023 = ╱54╱T╱ // 0x2ead @0x23
0x2e8a…2eea at0024 = ╱32╱2╱ // 0x2eae @0x24
0x2e8a…2eea at0025 = ╱ed╱(╱ // 0x2eaf @0x25
0x2e8a…2eea at0026 = ╱34╱4╱ // 0x2eb0 @0x26
0x2e8a…2eea at0027 = ╱fe00008003╱ // 0x2eb1 @0x27
0x2e8a…2eea at002c = ╱ee╱)╱ // 0x2eb6 @0x2c
0x2e8a…2eea at002d = ╱ec╱,╱ // 0x2eb7 @0x2d
0x2e8a…2eea at002e = ╱54╱T╱ // 0x2eb8 @0x2e
0x2e8a…2eea at002f = ╱32╱2╱ // 0x2eb9 @0x2f
0x2e8a…2eea at0030 = ╱ed╱(╱ // 0x2eba @0x30
0x2e8a…2eea at0031 = ╱35╱5╱ // 0x2ebb @0x31
0x2e8a…2eea at0032 = ╱fe0000a003╱ // 0x2ebc @0x32
0x2e8a…2eea at0037 = ╱ee╱)╱ // 0x2ec1 @0x37
0x2e8a…2eea at0038 = ╱ec╱,╱ // 0x2ec2 @0x38
0x2e8a…2eea at0039 = ╱54╱T╱ // 0x2ec3 @0x39
0x2e8a…2eea at003a = ╱32╱2╱ // 0x2ec4 @0x3a
0x2e8a…2eea at003b = ╱ed╱(╱ // 0x2ec5 @0x3b
0x2e8a…2eea at003c = ╱36╱6╱ // 0x2ec6 @0x3c
0x2e8a…2eea at003d = ╱fe0000c003╱ // 0x2ec7 @0x3d
0x2e8a…2eea at0042 = ╱ee╱)╱ // 0x2ecc @0x42
0x2e8a…2eea at0043 = ╱ec╱,╱ // 0x2ecd @0x43
0x2e8a…2eea at0044 = ╱54╱T╱ // 0x2ece @0x44
0x2e8a…2eea at0045 = ╱32╱2╱ // 0x2ecf @0x45
0x2e8a…2eea at0046 = ╱ed╱(╱ // 0x2ed0 @0x46
0x2e8a…2eea at0047 = ╱37╱7╱ // 0x2ed1 @0x47
0x2e8a…2eea at0048 = ╱fe0000e003╱ // 0x2ed2 @0x48
0x2e8a…2eea at004d = ╱ee╱)╱ // 0x2ed7 @0x4d
0x2e8a…2eea at004e = ╱ec╱,╱ // 0x2ed8 @0x4e
0x2e8a…2eea at004f = ╱54╱T╱ // 0x2ed9 @0x4f
0x2e8a…2eea at0050 = ╱32╱2╱ // 0x2eda @0x50
0x2e8a…2eea at0051 = ╱ed╱(╱ // 0x2edb @0x51
0x2e8a…2eea at0052 = ╱38╱8╱ // 0x2edc @0x52
0x2e8a…2eea at0053 = ╱fe00008004╱ // 0x2edd @0x53
0x2e8a…2eea at0058 = ╱ee╱)╱ // 0x2ee2 @0x58
0x2e8a…2eea at0059 = ╱ec╱,╱ // 0x2ee3 @0x59
0x2e8a…2eea at005a = ╱54╱T╱ // 0x2ee4 @0x5a
0x2e8a…2eea at005b = ╱32╱2╱ // 0x2ee5 @0x5b
0x2e8a…2eea at005c = ╱ed╱(╱ // 0x2ee6 @0x5c
0x2e8a…2eea at005d = ╱57╱W╱ // 0x2ee7 @0x5d
0x2e8a…2eea at005e = ╱ee╱)╱ // 0x2ee8 @0x5e
0x2e8a…2eea at005f = EOL // 0x2ee9 @0x5f
0x2e8a…2eea }
0x2eea…2f03 bc5a 5620 EXEC FEJL(W,34,K4$)
0x2eea…2f03 LineComalBin {
0x2eea…2f03 ptr = 0xbc5a // 0x2eea @0x0
0x2eea…2f03 lno = 0x15f4 // 0x2eec @0x2
0x2eea…2f03 at0004 = ╱9d╱ EXEC ╱ // 0x2eee @0x4
0x2eea…2f03 at0005 = ╱46╱F╱ // 0x2eef @0x5
0x2eea…2f03 at0006 = ╱45╱E╱ // 0x2ef0 @0x6
0x2eea…2f03 at0007 = ╱4a╱J╱ // 0x2ef1 @0x7
0x2eea…2f03 at0008 = ╱4c╱L╱ // 0x2ef2 @0x8
0x2eea…2f03 at0009 = ╱ed╱(╱ // 0x2ef3 @0x9
0x2eea…2f03 at000a = ╱57╱W╱ // 0x2ef4 @0xa
0x2eea…2f03 at000b = ╱ec╱,╱ // 0x2ef5 @0xb
0x2eea…2f03 at000c = ╱33╱3╱ // 0x2ef6 @0xc
0x2eea…2f03 at000d = ╱34╱4╱ // 0x2ef7 @0xd
0x2eea…2f03 at000e = ╱fe00008806╱ // 0x2ef8 @0xe
0x2eea…2f03 at0013 = ╱ec╱,╱ // 0x2efd @0x13
0x2eea…2f03 at0014 = ╱4b╱K╱ // 0x2efe @0x14
0x2eea…2f03 at0015 = ╱34╱4╱ // 0x2eff @0x15
0x2eea…2f03 at0016 = ╱ef╱$╱ // 0x2f00 @0x16
0x2eea…2f03 at0017 = ╱ee╱)╱ // 0x2f01 @0x17
0x2eea…2f03 at0018 = EOL // 0x2f02 @0x18
0x2eea…2f03 }
0x2f03…2f0c bc63 5630 CLOSE K4$
0x2f03…2f0c LineComalBin {
0x2f03…2f0c ptr = 0xbc63 // 0x2f03 @0x0
0x2f03…2f0c lno = 0x15fe // 0x2f05 @0x2
0x2f03…2f0c at0004 = ╱a8╱ CLOSE ╱ // 0x2f07 @0x4
0x2f03…2f0c at0005 = ╱4b╱K╱ // 0x2f08 @0x5
0x2f03…2f0c at0006 = ╱34╱4╱ // 0x2f09 @0x6
0x2f03…2f0c at0007 = ╱ef╱$╱ // 0x2f0a @0x7
0x2f03…2f0c at0008 = EOL // 0x2f0b @0x8
0x2f03…2f0c }
0x2f0c…2f25 bc7c 5640 EXEC FEJL(W,35,K4$)
0x2f0c…2f25 LineComalBin {
0x2f0c…2f25 ptr = 0xbc7c // 0x2f0c @0x0
0x2f0c…2f25 lno = 0x1608 // 0x2f0e @0x2
0x2f0c…2f25 at0004 = ╱9d╱ EXEC ╱ // 0x2f10 @0x4
0x2f0c…2f25 at0005 = ╱46╱F╱ // 0x2f11 @0x5
0x2f0c…2f25 at0006 = ╱45╱E╱ // 0x2f12 @0x6
0x2f0c…2f25 at0007 = ╱4a╱J╱ // 0x2f13 @0x7
0x2f0c…2f25 at0008 = ╱4c╱L╱ // 0x2f14 @0x8
0x2f0c…2f25 at0009 = ╱ed╱(╱ // 0x2f15 @0x9
0x2f0c…2f25 at000a = ╱57╱W╱ // 0x2f16 @0xa
0x2f0c…2f25 at000b = ╱ec╱,╱ // 0x2f17 @0xb
0x2f0c…2f25 at000c = ╱33╱3╱ // 0x2f18 @0xc
0x2f0c…2f25 at000d = ╱35╱5╱ // 0x2f19 @0xd
0x2f0c…2f25 at000e = ╱fe00008c06╱ // 0x2f1a @0xe
0x2f0c…2f25 at0013 = ╱ec╱,╱ // 0x2f1f @0x13
0x2f0c…2f25 at0014 = ╱4b╱K╱ // 0x2f20 @0x14
0x2f0c…2f25 at0015 = ╱34╱4╱ // 0x2f21 @0x15
0x2f0c…2f25 at0016 = ╱ef╱$╱ // 0x2f22 @0x16
0x2f0c…2f25 at0017 = ╱ee╱)╱ // 0x2f23 @0x17
0x2f0c…2f25 at0018 = EOL // 0x2f24 @0x18
0x2f0c…2f25 }
0x2f25…2f3c 0000 5650 CHAIN "P641210:OPSTART"
0x2f25…2f3c LineComalBin {
0x2f25…2f3c ptr = 0x0000 // 0x2f25 @0x0
0x2f25…2f3c lno = 0x1612 // 0x2f27 @0x2
0x2f25…2f3c at0004 = ╱ac╱ CHAIN ╱ // 0x2f29 @0x4
0x2f25…2f3c at0005 = ╱22╱"╱ // 0x2f2a @0x5
0x2f25…2f3c at0006 = ╱50╱P╱ // 0x2f2b @0x6
0x2f25…2f3c at0007 = ╱36╱6╱ // 0x2f2c @0x7
0x2f25…2f3c at0008 = ╱34╱4╱ // 0x2f2d @0x8
0x2f25…2f3c at0009 = ╱31╱1╱ // 0x2f2e @0x9
0x2f25…2f3c at000a = ╱32╱2╱ // 0x2f2f @0xa
0x2f25…2f3c at000b = ╱31╱1╱ // 0x2f30 @0xb
0x2f25…2f3c at000c = ╱30╱0╱ // 0x2f31 @0xc
0x2f25…2f3c at000d = ╱3a╱:╱ // 0x2f32 @0xd
0x2f25…2f3c at000e = ╱4f╱O╱ // 0x2f33 @0xe
0x2f25…2f3c at000f = ╱50╱P╱ // 0x2f34 @0xf
0x2f25…2f3c at0010 = ╱53╱S╱ // 0x2f35 @0x10
0x2f25…2f3c at0011 = ╱54╱T╱ // 0x2f36 @0x11
0x2f25…2f3c at0012 = ╱41╱A╱ // 0x2f37 @0x12
0x2f25…2f3c at0013 = ╱52╱R╱ // 0x2f38 @0x13
0x2f25…2f3c at0014 = ╱54╱T╱ // 0x2f39 @0x14
0x2f25…2f3c at0015 = ╱22╱"╱ // 0x2f3a @0x15
0x2f25…2f3c at0016 = EOL // 0x2f3b @0x16
0x2f25…2f3c }
0x2f3c…2f40 86 8d 5a 00 ┆ Z ┆
0x2f40…2f60 87 52 45 53 ef ed 31 35 fe 00 00 f0 04 ee ec 4f 50 31 ef ed 31 32 fe 00 00 c0 04 ee ec 4f 50 32 ┆ RES 15 OP1 12 OP2┆
0x2f60…2f80 ef ed 31 32 fe 00 00 c0 04 ee ff 93 bc 50 00 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 ┆ 12 P B 0 E 1 ┆
0x2f80…2f86 eb 47 dc 32 fe 00 ┆ G 2 ┆
0x2f86…2f9c (158,) 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ V 3 W 9 ┆
0x2f9c…2fa2 (159,) 57 8d c2 bc 10 00 ┆W ┆