|
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: 10419 (0x28b3)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »ENTVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ENTVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »ENTVEDL.B«
0100 DIM RES$(15),OP1$(12),OP2$(12) 0110 DIM ENAVN$(29),DAT$(8),STREG$(78) 0120 DIM EMREG$(12),EÅREG$(12),SALDO$(12),SALDO1$(12) 0130 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10) 0140 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD3$(14) 0150 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17),K6$(17) 0160 PROC CALC(AT,B1,B2,ES) 0170 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT 0180 CALL "P641210:REGN" 0190 ES$=RES$ 0200 IF FLAG THEN STOP 0210 ENDPROC 0220 PROC FEJL(NR1,NR2,NR3) 0230 IF STATUS(NR3$)<>B THEN 0240 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0250 STOP 0260 ENDIF 0270 ENDPROC 0280 PROC INDTAB(T,MANTAL,K10) 0290 J=MANTAL DIV 32+E 0300 FOR I=J TO MANTAL DIV 4+J-E 0310 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0320 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) 0330 EXEC FEJL(E,E,K10$) 0340 NEXT I 0350 ENDPROC 0360 PROC UDTAB(U,MANTAL1,K9) 0370 J=MANTAL1 DIV 32+E 0380 FOR I=E TO J-E 0390 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 0400 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) 0410 EXEC FEJL(G,E,K9$) 0420 NEXT I 0430 FOR I=J TO MANTAL1 DIV 4+J-E 0440 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0450 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) 0460 EXEC FEJL(G,G,K9$) 0470 NEXT I 0480 ENDPROC 0490 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0500 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0510 REPEAT 0520 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT 0530 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E))) 0540 IF PIL3<E THEN PIL3=E 0550 IF PIL3>MANT1 THEN PIL3=MANT1 0560 UNTIL PIL1=B 0570 IF NØGL1>TAB1(PIL3,E) THEN PIL3=PIL3+E*(PIL3<MANT1) 0580 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B 0590 ENDPROC 0600 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0610 IF CEKS=E THEN 0620 POSTNR=TAB2(ANTAL2+E,G) 0630 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0640 FOR I=ANTAL2+E TO PIL4+E STEP -E 0650 TAB2(I,E)=TAB2(I-E,E) 0660 TAB2(I,G)=TAB2(I-E,G) 0670 NEXT I 0680 TAB2(PIL4,E)=NØGL2 0690 TAB2(PIL4,G)=POSTNR 0700 ANTAL2=ANTAL2+E 0710 ENDIF 0720 ENDPROC 0730 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0740 IF CEKS=B THEN 0750 POSTNR=TAB3(PIL5,G) 0760 FOR I=PIL5 TO ANTAL3-E 0770 TAB3(I,E)=TAB3(I+E,E) 0780 TAB3(I,G)=TAB3(I+E,G) 0790 NEXT I 0800 TAB3(ANTAL3,E)=1000000 0810 TAB3(ANTAL3,G)=POSTNR 0820 ANTAL3=ANTAL3-E 0830 ENDIF 0840 ENDPROC 0850 PROC SLETEPOST(NØGLE3) 0860 EXEC FINDPOST(ETAB,MEANTAL,NØGLE3,EPIL3) 0870 IF CEKS=E THEN STOP 0880 EXEC NULEPOST 0890 EXEC GEMEPOST 0900 EXEC SLETPOST(ETAB,AENT,NØGLE3,EPIL3) 0910 ENDPROC 0920 PROC NULEPOST 0930 FNR=B;ENAVN$=BLANK$;EMREG$="0+";EÅREG$="0+";Y=E 0940 FOR X=E TO MUNKANT 0950 UKNR(X)=1000000;MBEV$(X)="0+";ÅBEV$(X)="0+" 0960 IF TYPE=E THEN 0970 REPEAT 0980 IF EU$(Y)<>"0" AND EU$(Y)<>"E" THEN Y=Y+E 0990 UNTIL EU$(Y)="0" OR EU$(Y)="E" 1000 UKNR(X)=UNR(Y);Y=Y+E 1010 ENDIF 1020 NEXT X 1030 ENDPROC 1040 PROC HENTPOST 1050 S=ETAB(EPIL3,G) 1060 GET K2$,S:FNR,EMREG$,EÅREG$ 1070 EXEC FEJL(V,G,K2$) 1080 IF FNR<>ETAB(EPIL3,E) THEN STOP 1090 GET K2$,S+E:ENAVN$ 1100 EXEC FEJL(V,V,K2$) 1110 FOR X=G TO MUNKANT+E 1120 GET K2$,S+X:UKNR(X-E),MBEV$(X-E),ÅBEV$(X-E) 1130 EXEC FEJL(V,4,K2$) 1140 NEXT X 1150 ENDPROC 1160 PROC GEMEPOST 1170 S=ETAB(EPIL3,G) 1180 PUT K2$,S:FNR,EMREG$,EÅREG$ 1190 EXEC FEJL(4,V,K2$) 1200 PUT K2$,S+E:ENAVN$ 1210 EXEC FEJL(4,4,K2$) 1220 FOR X=G TO MUNKANT+E 1230 PUT K2$,S+X:UKNR(X-E),MBEV$(X-E),ÅBEV$(X-E) 1240 EXEC FEJL(4,4,K2$) 1250 NEXT X 1260 ENDPROC 1270 PROC FINDTAST(FSTYR,FÆND,FNR2) 1280 IF FÆND<>E THEN 1290 CLEAR 1300 CURSOR 15,E 1310 PRINT "Entrepriseoplysninger." 1320 EXEC VERSKRIFT 1330 CURSOR G,V 1340 PRINT USING "1:Entreprisenr. : ######":FNR2 1350 ENDIF 1360 REPEAT 1370 CASE FSTYR OF 1380 STOP 1390 WHEN G 1400 IF FÆND<>E THEN 1410 CURSOR G,5 1420 PRINT "2:Entreprisenavn :" 1430 FSTYR=V 1440 ENDIF 1450 IF FÆND<>G THEN 1460 CURSOR V,23 1470 PRINT "Entreprisenavn";BLANK$(E:34);"(max 29 tegn)";BLANK$(E:16) 1480 CURSOR 19,23 1490 INPUT ENAVN$ 1500 ENDIF 1510 CURSOR 21,5 1520 PRINT ENAVN$;BLANK$(E:29) 1530 ENDCASE 1540 IF FÆND=E THEN FSTYR=V 1550 UNTIL FSTYR=V 1560 IF FÆND<>E THEN 1570 CURSOR 4,13 1580 PRINT "Månedens bevægelse :" 1590 CURSOR 31,13 1600 EXEC TUD(EMREG$,TAL4$,B,B) 1610 CURSOR 4,15 1620 PRINT "Årets bevægelse :" 1630 CURSOR 31,15 1640 EXEC TUD(EÅREG$,TAL4$,B,B) 1650 ENDIF 1660 ENDPROC 1670 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1680 BLB2$=BLB1$;UBLB2$=UBLB1$ 1690 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 1700 UBLB1$=UBLB2$ 1710 IF TEGN=B THEN UBLB1$=UBLB1$(E:13) 1720 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 1730 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 1740 PRINT UBLB1$ 1750 ENDPROC 1760 PROC NRTEST(NUM1) 1770 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 1780 CASE L OF 1790 FOR I=E TO L 1800 P1=INT(ORD(NUM1$(I))-48) 1810 IF P1=>B AND P1<=W THEN 1820 P=P*10+P1 1830 ELSE 1840 TEST2=E 1850 ENDIF 1860 NEXT I 1870 KTAL=P DIV 10000;KTAL9=P DIV 1000 1880 IF KTAL9=KRTAL THEN KTAL=KRTAL 1890 WHEN B 1900 P=-E 1910 WHEN E 1920 CASE NUM1$ OF 1930 P=INT(ORD(NUM1$)-48) 1940 WHEN "j","J" 1950 P=-7 1960 WHEN "n","N" 1970 P=-8 1980 ENDCASE 1990 ENDCASE 2000 ENDPROC 2010 PROC VERSKRIFT 2020 CURSOR 45,E 2030 CASE TYPE OF 2040 WHEN E 2050 PRINT "Oprettelse" 2060 WHEN G 2070 PRINT "Ændring" 2080 WHEN V 2090 PRINT "Sletning" 2100 WHEN 4 2110 PRINT "Udskrift" 2120 WHEN 5 2130 PRINT "Entreprisekontoliste" 2140 ENDCASE 2150 ENDPROC 2160 K1$="P641220:SYSTEM1" 2170 OPEN K1$,R 2180 EXEC FEJL(W,E,K1$) 2190 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT 2200 EXEC FEJL(W,6,K1$) 2210 GET K1$,10:N$ 2220 EXEC FEJL(W,7,K1$) 2230 GET K1$,36:K4$ 2240 EXEC FEJL(W,10,K1$) 2250 GET K1$,37:K2$ 2260 EXEC FEJL(W,4,K1$) 2270 GET K1$,38:K3$ 2280 EXEC FEJL(W,5,K1$) 2290 GET K1$,39:K6$ 2300 EXEC FEJL(W,8,K1$) 2310 GET K1$,43:METOT,MEMID,MEPOST 2320 EXEC FEJL(W,W,K1$) 2330 CLOSE K1$ 2340 EXEC FEJL(W,11,K1$) 2350 DIM ETAB(MEANTAL,G),UNR(METOT+MUNKANT),EU$(METOT+MUNKANT),UKNR(MUNKANT) 2360 DIM MBEV$(MUNKANT,12),ÅBEV$(MUNKANT,12) 2370 K4$=N$+K4$ 2380 OPEN K4$,W 2390 EXEC FEJL(W,12,K4$) 2400 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 2410 EXEC FEJL(W,13,K4$) 2420 GET K4$,21:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 2430 EXEC FEJL(W,15,K4$) 2440 GET K4$,20:DV$ 2450 EXEC FEJL(W,22,K4$) 2460 CLOSE K4$ 2470 EXEC FEJL(W,17,K4$) 2480 K2$=N$+K2$;K3$=N$+K3$;K6$=N$+K6$ 2490 OPEN K2$,W 2500 EXEC FEJL(W,18,K2$) 2510 OPEN K3$,W 2520 EXEC FEJL(W,19,K3$) 2530 OPEN K6$,R 2540 EXEC FEJL(W,16,K6$) 2550 FOR X=E TO MUNKANT+METOT 2560 GET K6$,X:UNR(X),EU$(X) 2570 NEXT X 2580 CLOSE K6$ 2590 EXEC FEJL(W,14,K6$) 2600 EXEC INDTAB(ETAB,MEANTAL,K3$) 2610 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 2620 TAH$="0+";TAL4$="0+";AENT=T2(E) 2630 STREG$="-----------------------------------------";STREG$=STREG$+STREG$ 2640 REPEAT 2650 CLEAR 2660 CURSOR 15,E 2670 PRINT "Entreprisevedligeholdelse" 2680 CURSOR 21,5 2690 PRINT "0:Færdig" 2700 CURSOR 21,7 2710 PRINT "1:Oprettelse" 2720 CURSOR 21,W 2730 PRINT "2:Ændring" 2740 CURSOR 21,11 2750 PRINT "3:Sletning" 2760 CURSOR 21,13 2770 PRINT "4:Udskrift" 2780 CURSOR 21,15 2790 PRINT "5:Entreprisekontoliste" 2800 REPEAT 2810 CURSOR 23,17 2820 PRINT "Vælg type (0-5)" 2830 CURSOR 33,17 2840 INPUT A$ 2850 EXEC NRTEST(A$) 2860 UNTIL P>-E AND P<6 2870 TYPE=P 2880 IF TYPE=B THEN EXIT 2890 REPEAT 2900 EXEC VERSKRIFT 2910 KONT=E 2920 IF TYPE<5 THEN 2930 REPEAT 2940 REPEAT 2950 CURSOR V,23 2960 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35) 2970 CURSOR 22,23 2980 INPUT KTN$ 2990 EXEC NRTEST(KTN$) 3000 UNTIL P=B OR (P<1000 AND P>99) 3010 KONT=P 3020 IF KONT=B THEN EXIT 3030 EXEC FINDPOST(ETAB,MEANTAL,KONT,EPIL3) 3040 REPEAT 3050 CURSOR 44,23 3060 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AENT<MEANTAL) THEN 3070 PRINT BLANK$(E:35) 3080 P=-E 3090 ELSE 3100 IF CEKS=E AND TYPE=E AND AENT=>MEANTAL THEN 3110 CURSOR V,23 3120 INPUT "Ikke plads til flere konti , tast RETURN ",A$ 3130 ELSE 3140 IF CEKS=B THEN 3150 INPUT "Konto eksisterer ,tast RETURN ",A$ 3160 ELSE 3170 INPUT "Konto eksisterer ikke , tast RETURN",A$ 3180 ENDIF 3190 ENDIF 3200 EXEC NRTEST(A$) 3210 ENDIF 3220 UNTIL P=-E 3230 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AENT<MEANTAL) 3240 IF KONT=B THEN EXIT 3250 IF TYPE<>E THEN 3260 FNR=KONT 3270 EXEC HENTPOST 3280 EXEC FINDTAST(2,2,FNR) 3290 ELSE 3300 EXEC NULEPOST 3310 FNR=KONT 3320 EXEC FINDTAST(2,0,FNR) 3330 ENDIF 3340 ENDIF 3350 IF KONT=B THEN EXIT 3360 CASE TYPE OF 3370 STOP 3380 WHEN E,G 3390 REPEAT 3400 REPEAT 3410 CURSOR V,23 3420 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2, "; 3430 PRINT "0:for færdig) " 3440 CURSOR 32,23 3450 INPUT A$ 3460 EXEC NRTEST(A$) 3470 UNTIL P=B OR P=G 3480 STYR1=P 3490 IF STYR1=B THEN EXIT 3500 EXEC FINDTAST(STYR1,1,FNR) 3510 UNTIL STYR1=B 3520 IF TYPE=E THEN 3530 EXEC FINDPOST(ETAB,MEANTAL,FNR,EPIL3) 3540 EXEC INDSÆT(ETAB,AENT,FNR,EPIL3) 3550 ENDIF 3560 EXEC GEMEPOST 3570 WHEN V 3580 REPEAT 3590 CURSOR V,23 3600 PRINT "Er det rigtigt at denne konto skal slettes"; 3610 PRINT " (J/N)";BLANK$(E:23) 3620 CURSOR 48,23 3630 INPUT A$ 3640 EXEC NRTEST(A$) 3650 UNTIL P=-7 OR P=-8 3660 IF P=-7 THEN 3670 EXEC SLETEPOST(KONT) 3680 ENDIF 3690 WHEN 4 3700 WHEN 5 3710 REPEAT 3720 REPEAT 3730 CURSOR V,23 3740 PRINT "Fra kontonr (0: Alle)" 3750 CURSOR 15,23 3760 INPUT KTN$ 3770 EXEC NRTEST(KTN$) 3780 UNTIL L=V AND P<1000 AND TEST2=B OR P=B 3790 IF P=B THEN 3800 FRA=E;TIL=AENT 3810 ELSE 3820 KONT=P 3830 EXEC FINDPOST(ETAB,MEANTAL,P,EPIL3) 3840 FRA=EPIL3 3850 ENDIF 3860 UNTIL FRA<=AENT 3870 IF P>B THEN 3880 REPEAT 3890 CURSOR V,23 3900 PRINT "Til kontonr " 3910 CURSOR 15,23 3920 INPUT KTN$ 3930 EXEC NRTEST(KTN$) 3940 UNTIL L=V AND P<1000 AND TEST2=B AND P=>KONT 3950 EXEC FINDPOST(ETAB,MEANTAL,P,EPIL3) 3960 IF CEKS=E THEN EPIL3=EPIL3-E 3970 TIL=EPIL3 3980 ENDIF 3990 CLEAR 4000 REPEAT 4010 CURSOR 8,13 4020 PRINT "Monter papir til udskrift af entreprisekontoliste og tast"; 4030 INPUT " RETURN",A$ 4040 UNTIL ORD(A$)=255 4050 OUTPUT P 4060 SIDE=E 4070 DA1=DATO 4080 DAT$=" " 4090 FOR J=8 TO E STEP -E 4100 IF J MOD V=B THEN 4110 DAT$(J)="." 4120 ELSE 4130 DAT$(J)=CHR(DA1 MOD 10+48) 4140 DA1=DA1 DIV 10 4150 ENDIF 4160 NEXT J 4170 SALDO$="0+";SALDO1$="0+" 4180 FOR I=FRA TO TIL STEP 36 4190 PRINT TAB(67);DV$;" " 4200 PRINT TAB(10);CHR(14);"Entreprisekontoliste";CHR(15);TAB(32);"Dato : "; 4210 PRINT DAT$; 4220 PRINT USING " Side :####":SIDE 4230 PRINT " " 4240 PRINT TAB(45);"Månedens";TAB(68);"Årets" 4250 PRINT " Nr Navn";TAB(42);"Debet Kredit Debet Kredit" 4260 PRINT STREG$ 4270 SIDE=SIDE+E 4280 FOR EPIL3=I TO I+35 4290 IF ETAB(EPIL3,E)<>1000000 THEN 4300 EXEC HENTPOST 4310 SK1=E;SK2=E 4320 EXEC CALC(B,SALDO$,EMREG$,SALDO$) 4330 EXEC CALC(B,SALDO1$,EÅREG$,SALDO1$) 4340 IF EMREG$(LEN(EMREG$))="+" THEN SK1=B 4350 IF EÅREG$(LEN(EÅREG$))="+" THEN SK2=B 4360 EXEC CALC(5,EMREG$,TAH$,UD3$) 4370 EXEC CALC(5,EÅREG$,TAH$,UD4$) 4380 PRINT USING "##### ":FNR; 4390 PRINT ENAVN$;TAB(37+8*(SK1));UD3$(E:13);TAB(58+8*(SK2));UD4$(E:13) 4400 ENDIF 4410 IF EPIL3=TIL THEN EXIT 4420 NEXT EPIL3 4430 IF EPIL3=TIL AND EPIL3<I+36 THEN EXIT 4440 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 4450 NEXT I 4460 SK1,SK2=E 4470 IF SALDO$(LEN(SALDO$))="+" THEN SK1=B 4480 IF SALDO1$(LEN(SALDO1$))="+" THEN SK2=B 4490 EXEC CALC(5,SALDO$,TAH$,UD3$) 4500 EXEC CALC(5,SALDO1$,TAH$,UD4$) 4510 PRINT STREG$ 4520 PRINT TAB(10);"Saldo";TAB(37+8*(SK1));UD3$(E:13);TAB(58+8*(SK2)); 4530 PRINT UD4$(E:13) 4540 PRINT STREG$ 4550 FOR J=EPIL3+E TO I+38 4560 PRINT " " 4570 NEXT J 4580 OUTPUT T 4590 KONT=B 4600 ENDCASE 4610 UNTIL KONT=B 4620 UNTIL TYPE=B 4630 EXEC UDTAB(ETAB,MEANTAL,K3$) 4640 CLOSE K2$ 4650 EXEC FEJL(W,30,K2$) 4660 CLOSE K3$ 4670 EXEC FEJL(W,31,K3$) 4680 T2(E)=AENT 4690 OPEN K4$,W 4700 EXEC FEJL(W,32,K4$) 4710 PUT K4$,21:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4720 EXEC FEJL(W,34,K4$) 4730 CLOSE K4$ 4740 EXEC FEJL(W,35,K4$) 4750 CHAIN "P641210:OPSTART"
0x0000…002f (0,) 8d86 0100 DIM RES$(15),OP1$(12),OP2$(12)
0x0000…002f LineComalBin {
0x0000…002f ptr = 0x8d86 // 0x0 @0x0
0x0000…002f lno = 0x0064 // 0x2 @0x2
0x0000…002f at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…002f at0005 = ╱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 = ╱35╱5╱ // 0xb @0xb
0x0000…002f at000c = ╱fe0000f004╱ // 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…0061 8db8 0110 DIM ENAVN$(29),DAT$(8),STREG$(78)
0x002f…0061 LineComalBin {
0x002f…0061 ptr = 0x8db8 // 0x2f @0x0
0x002f…0061 lno = 0x006e // 0x31 @0x2
0x002f…0061 at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…0061 at0005 = ╱45╱E╱ // 0x34 @0x5
0x002f…0061 at0006 = ╱4e╱N╱ // 0x35 @0x6
0x002f…0061 at0007 = ╱41╱A╱ // 0x36 @0x7
0x002f…0061 at0008 = ╱56╱V╱ // 0x37 @0x8
0x002f…0061 at0009 = ╱4e╱N╱ // 0x38 @0x9
0x002f…0061 at000a = ╱ef╱$╱ // 0x39 @0xa
0x002f…0061 at000b = ╱ed╱(╱ // 0x3a @0xb
0x002f…0061 at000c = ╱32╱2╱ // 0x3b @0xc
0x002f…0061 at000d = ╱39╱9╱ // 0x3c @0xd
0x002f…0061 at000e = ╱fe0000e805╱ // 0x3d @0xe
0x002f…0061 at0013 = ╱ee╱)╱ // 0x42 @0x13
0x002f…0061 at0014 = ╱ec╱,╱ // 0x43 @0x14
0x002f…0061 at0015 = ╱44╱D╱ // 0x44 @0x15
0x002f…0061 at0016 = ╱41╱A╱ // 0x45 @0x16
0x002f…0061 at0017 = ╱54╱T╱ // 0x46 @0x17
0x002f…0061 at0018 = ╱ef╱$╱ // 0x47 @0x18
0x002f…0061 at0019 = ╱ed╱(╱ // 0x48 @0x19
0x002f…0061 at001a = ╱38╱8╱ // 0x49 @0x1a
0x002f…0061 at001b = ╱fe00008004╱ // 0x4a @0x1b
0x002f…0061 at0020 = ╱ee╱)╱ // 0x4f @0x20
0x002f…0061 at0021 = ╱ec╱,╱ // 0x50 @0x21
0x002f…0061 at0022 = ╱53╱S╱ // 0x51 @0x22
0x002f…0061 at0023 = ╱54╱T╱ // 0x52 @0x23
0x002f…0061 at0024 = ╱52╱R╱ // 0x53 @0x24
0x002f…0061 at0025 = ╱45╱E╱ // 0x54 @0x25
0x002f…0061 at0026 = ╱47╱G╱ // 0x55 @0x26
0x002f…0061 at0027 = ╱ef╱$╱ // 0x56 @0x27
0x002f…0061 at0028 = ╱ed╱(╱ // 0x57 @0x28
0x002f…0061 at0029 = ╱37╱7╱ // 0x58 @0x29
0x002f…0061 at002a = ╱38╱8╱ // 0x59 @0x2a
0x002f…0061 at002b = ╱fe00009c07╱ // 0x5a @0x2b
0x002f…0061 at0030 = ╱ee╱)╱ // 0x5f @0x30
0x002f…0061 at0031 = EOL // 0x60 @0x31
0x002f…0061 }
0x0061…00a7 8dfe 0120 DIM EMREG$(12),EÅREG$(12),SALDO$(12),SALDO1$(12)
0x0061…00a7 LineComalBin {
0x0061…00a7 ptr = 0x8dfe // 0x61 @0x0
0x0061…00a7 lno = 0x0078 // 0x63 @0x2
0x0061…00a7 at0004 = ╱87╱ DIM ╱ // 0x65 @0x4
0x0061…00a7 at0005 = ╱45╱E╱ // 0x66 @0x5
0x0061…00a7 at0006 = ╱4d╱M╱ // 0x67 @0x6
0x0061…00a7 at0007 = ╱52╱R╱ // 0x68 @0x7
0x0061…00a7 at0008 = ╱45╱E╱ // 0x69 @0x8
0x0061…00a7 at0009 = ╱47╱G╱ // 0x6a @0x9
0x0061…00a7 at000a = ╱ef╱$╱ // 0x6b @0xa
0x0061…00a7 at000b = ╱ed╱(╱ // 0x6c @0xb
0x0061…00a7 at000c = ╱31╱1╱ // 0x6d @0xc
0x0061…00a7 at000d = ╱32╱2╱ // 0x6e @0xd
0x0061…00a7 at000e = ╱fe0000c004╱ // 0x6f @0xe
0x0061…00a7 at0013 = ╱ee╱)╱ // 0x74 @0x13
0x0061…00a7 at0014 = ╱ec╱,╱ // 0x75 @0x14
0x0061…00a7 at0015 = ╱45╱E╱ // 0x76 @0x15
0x0061…00a7 at0016 = ╱5d╱Å╱ // 0x77 @0x16
0x0061…00a7 at0017 = ╱52╱R╱ // 0x78 @0x17
0x0061…00a7 at0018 = ╱45╱E╱ // 0x79 @0x18
0x0061…00a7 at0019 = ╱47╱G╱ // 0x7a @0x19
0x0061…00a7 at001a = ╱ef╱$╱ // 0x7b @0x1a
0x0061…00a7 at001b = ╱ed╱(╱ // 0x7c @0x1b
0x0061…00a7 at001c = ╱31╱1╱ // 0x7d @0x1c
0x0061…00a7 at001d = ╱32╱2╱ // 0x7e @0x1d
0x0061…00a7 at001e = ╱fe0000c004╱ // 0x7f @0x1e
0x0061…00a7 at0023 = ╱ee╱)╱ // 0x84 @0x23
0x0061…00a7 at0024 = ╱ec╱,╱ // 0x85 @0x24
0x0061…00a7 at0025 = ╱53╱S╱ // 0x86 @0x25
0x0061…00a7 at0026 = ╱41╱A╱ // 0x87 @0x26
0x0061…00a7 at0027 = ╱4c╱L╱ // 0x88 @0x27
0x0061…00a7 at0028 = ╱44╱D╱ // 0x89 @0x28
0x0061…00a7 at0029 = ╱4f╱O╱ // 0x8a @0x29
0x0061…00a7 at002a = ╱ef╱$╱ // 0x8b @0x2a
0x0061…00a7 at002b = ╱ed╱(╱ // 0x8c @0x2b
0x0061…00a7 at002c = ╱31╱1╱ // 0x8d @0x2c
0x0061…00a7 at002d = ╱32╱2╱ // 0x8e @0x2d
0x0061…00a7 at002e = ╱fe0000c004╱ // 0x8f @0x2e
0x0061…00a7 at0033 = ╱ee╱)╱ // 0x94 @0x33
0x0061…00a7 at0034 = ╱ec╱,╱ // 0x95 @0x34
0x0061…00a7 at0035 = ╱53╱S╱ // 0x96 @0x35
0x0061…00a7 at0036 = ╱41╱A╱ // 0x97 @0x36
0x0061…00a7 at0037 = ╱4c╱L╱ // 0x98 @0x37
0x0061…00a7 at0038 = ╱44╱D╱ // 0x99 @0x38
0x0061…00a7 at0039 = ╱4f╱O╱ // 0x9a @0x39
0x0061…00a7 at003a = ╱31╱1╱ // 0x9b @0x3a
0x0061…00a7 at003b = ╱ef╱$╱ // 0x9c @0x3b
0x0061…00a7 at003c = ╱ed╱(╱ // 0x9d @0x3c
0x0061…00a7 at003d = ╱31╱1╱ // 0x9e @0x3d
0x0061…00a7 at003e = ╱32╱2╱ // 0x9f @0x3e
0x0061…00a7 at003f = ╱fe0000c004╱ // 0xa0 @0x3f
0x0061…00a7 at0044 = ╱ee╱)╱ // 0xa5 @0x44
0x0061…00a7 at0045 = EOL // 0xa6 @0x45
0x0061…00a7 }
0x00a7…00f7 8e4e 0130 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10)
0x00a7…00f7 LineComalBin {
0x00a7…00f7 ptr = 0x8e4e // 0xa7 @0x0
0x00a7…00f7 lno = 0x0082 // 0xa9 @0x2
0x00a7…00f7 at0004 = ╱87╱ DIM ╱ // 0xab @0x4
0x00a7…00f7 at0005 = ╱4e╱N╱ // 0xac @0x5
0x00a7…00f7 at0006 = ╱ef╱$╱ // 0xad @0x6
0x00a7…00f7 at0007 = ╱ed╱(╱ // 0xae @0x7
0x00a7…00f7 at0008 = ╱36╱6╱ // 0xaf @0x8
0x00a7…00f7 at0009 = ╱fe0000c003╱ // 0xb0 @0x9
0x00a7…00f7 at000e = ╱ee╱)╱ // 0xb5 @0xe
0x00a7…00f7 at000f = ╱ec╱,╱ // 0xb6 @0xf
0x00a7…00f7 at0010 = ╱42╱B╱ // 0xb7 @0x10
0x00a7…00f7 at0011 = ╱4c╱L╱ // 0xb8 @0x11
0x00a7…00f7 at0012 = ╱41╱A╱ // 0xb9 @0x12
0x00a7…00f7 at0013 = ╱4e╱N╱ // 0xba @0x13
0x00a7…00f7 at0014 = ╱4b╱K╱ // 0xbb @0x14
0x00a7…00f7 at0015 = ╱ef╱$╱ // 0xbc @0x15
0x00a7…00f7 at0016 = ╱ed╱(╱ // 0xbd @0x16
0x00a7…00f7 at0017 = ╱37╱7╱ // 0xbe @0x17
0x00a7…00f7 at0018 = ╱37╱7╱ // 0xbf @0x18
0x00a7…00f7 at0019 = ╱fe00009a07╱ // 0xc0 @0x19
0x00a7…00f7 at001e = ╱ee╱)╱ // 0xc5 @0x1e
0x00a7…00f7 at001f = ╱ec╱,╱ // 0xc6 @0x1f
0x00a7…00f7 at0020 = ╱41╱A╱ // 0xc7 @0x20
0x00a7…00f7 at0021 = ╱ef╱$╱ // 0xc8 @0x21
0x00a7…00f7 at0022 = ╱ed╱(╱ // 0xc9 @0x22
0x00a7…00f7 at0023 = ╱45╱E╱ // 0xca @0x23
0x00a7…00f7 at0024 = ╱ee╱)╱ // 0xcb @0x24
0x00a7…00f7 at0025 = ╱ec╱,╱ // 0xcc @0x25
0x00a7…00f7 at0026 = ╱54╱T╱ // 0xcd @0x26
0x00a7…00f7 at0027 = ╱41╱A╱ // 0xce @0x27
0x00a7…00f7 at0028 = ╱4c╱L╱ // 0xcf @0x28
0x00a7…00f7 at0029 = ╱34╱4╱ // 0xd0 @0x29
0x00a7…00f7 at002a = ╱ef╱$╱ // 0xd1 @0x2a
0x00a7…00f7 at002b = ╱ed╱(╱ // 0xd2 @0x2b
0x00a7…00f7 at002c = ╱31╱1╱ // 0xd3 @0x2c
0x00a7…00f7 at002d = ╱34╱4╱ // 0xd4 @0x2d
0x00a7…00f7 at002e = ╱fe0000e004╱ // 0xd5 @0x2e
0x00a7…00f7 at0033 = ╱ee╱)╱ // 0xda @0x33
0x00a7…00f7 at0034 = ╱ec╱,╱ // 0xdb @0x34
0x00a7…00f7 at0035 = ╱54╱T╱ // 0xdc @0x35
0x00a7…00f7 at0036 = ╱41╱A╱ // 0xdd @0x36
0x00a7…00f7 at0037 = ╱48╱H╱ // 0xde @0x37
0x00a7…00f7 at0038 = ╱ef╱$╱ // 0xdf @0x38
0x00a7…00f7 at0039 = ╱ed╱(╱ // 0xe0 @0x39
0x00a7…00f7 at003a = ╱31╱1╱ // 0xe1 @0x3a
0x00a7…00f7 at003b = ╱32╱2╱ // 0xe2 @0x3b
0x00a7…00f7 at003c = ╱fe0000c004╱ // 0xe3 @0x3c
0x00a7…00f7 at0041 = ╱ee╱)╱ // 0xe8 @0x41
0x00a7…00f7 at0042 = ╱ec╱,╱ // 0xe9 @0x42
0x00a7…00f7 at0043 = ╱44╱D╱ // 0xea @0x43
0x00a7…00f7 at0044 = ╱56╱V╱ // 0xeb @0x44
0x00a7…00f7 at0045 = ╱ef╱$╱ // 0xec @0x45
0x00a7…00f7 at0046 = ╱ed╱(╱ // 0xed @0x46
0x00a7…00f7 at0047 = ╱31╱1╱ // 0xee @0x47
0x00a7…00f7 at0048 = ╱30╱0╱ // 0xef @0x48
0x00a7…00f7 at0049 = ╱fe0000a004╱ // 0xf0 @0x49
0x00a7…00f7 at004e = ╱ee╱)╱ // 0xf5 @0x4e
0x00a7…00f7 at004f = EOL // 0xf6 @0x4f
0x00a7…00f7 }
0x00f7…0136 8e8d 0140 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD3$(14)
0x00f7…0136 LineComalBin {
0x00f7…0136 ptr = 0x8e8d // 0xf7 @0x0
0x00f7…0136 lno = 0x008c // 0xf9 @0x2
0x00f7…0136 at0004 = ╱87╱ DIM ╱ // 0xfb @0x4
0x00f7…0136 at0005 = ╱4b╱K╱ // 0xfc @0x5
0x00f7…0136 at0006 = ╱54╱T╱ // 0xfd @0x6
0x00f7…0136 at0007 = ╱4e╱N╱ // 0xfe @0x7
0x00f7…0136 at0008 = ╱ef╱$╱ // 0xff @0x8
0x00f7…0136 at0009 = ╱ed╱(╱ // 0x100 @0x9
0x00f7…0136 at000a = ╱37╱7╱ // 0x101 @0xa
0x00f7…0136 at000b = ╱fe0000e003╱ // 0x102 @0xb
0x00f7…0136 at0010 = ╱ee╱)╱ // 0x107 @0x10
0x00f7…0136 at0011 = ╱ec╱,╱ // 0x108 @0x11
0x00f7…0136 at0012 = ╱42╱B╱ // 0x109 @0x12
0x00f7…0136 at0013 = ╱4c╱L╱ // 0x10a @0x13
0x00f7…0136 at0014 = ╱42╱B╱ // 0x10b @0x14
0x00f7…0136 at0015 = ╱32╱2╱ // 0x10c @0x15
0x00f7…0136 at0016 = ╱ef╱$╱ // 0x10d @0x16
0x00f7…0136 at0017 = ╱ed╱(╱ // 0x10e @0x17
0x00f7…0136 at0018 = ╱31╱1╱ // 0x10f @0x18
0x00f7…0136 at0019 = ╱32╱2╱ // 0x110 @0x19
0x00f7…0136 at001a = ╱fe0000c004╱ // 0x111 @0x1a
0x00f7…0136 at001f = ╱ee╱)╱ // 0x116 @0x1f
0x00f7…0136 at0020 = ╱ec╱,╱ // 0x117 @0x20
0x00f7…0136 at0021 = ╱55╱U╱ // 0x118 @0x21
0x00f7…0136 at0022 = ╱42╱B╱ // 0x119 @0x22
0x00f7…0136 at0023 = ╱4c╱L╱ // 0x11a @0x23
0x00f7…0136 at0024 = ╱42╱B╱ // 0x11b @0x24
0x00f7…0136 at0025 = ╱32╱2╱ // 0x11c @0x25
0x00f7…0136 at0026 = ╱ef╱$╱ // 0x11d @0x26
0x00f7…0136 at0027 = ╱ed╱(╱ // 0x11e @0x27
0x00f7…0136 at0028 = ╱31╱1╱ // 0x11f @0x28
0x00f7…0136 at0029 = ╱34╱4╱ // 0x120 @0x29
0x00f7…0136 at002a = ╱fe0000e004╱ // 0x121 @0x2a
0x00f7…0136 at002f = ╱ee╱)╱ // 0x126 @0x2f
0x00f7…0136 at0030 = ╱ec╱,╱ // 0x127 @0x30
0x00f7…0136 at0031 = ╱55╱U╱ // 0x128 @0x31
0x00f7…0136 at0032 = ╱44╱D╱ // 0x129 @0x32
0x00f7…0136 at0033 = ╱33╱3╱ // 0x12a @0x33
0x00f7…0136 at0034 = ╱ef╱$╱ // 0x12b @0x34
0x00f7…0136 at0035 = ╱ed╱(╱ // 0x12c @0x35
0x00f7…0136 at0036 = ╱31╱1╱ // 0x12d @0x36
0x00f7…0136 at0037 = ╱34╱4╱ // 0x12e @0x37
0x00f7…0136 at0038 = ╱fe0000e004╱ // 0x12f @0x38
0x00f7…0136 at003d = ╱ee╱)╱ // 0x134 @0x3d
0x00f7…0136 at003e = EOL // 0x135 @0x3e
0x00f7…0136 }
0x0136…01a3 8efa 0150 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17),K6$(17)
0x0136…01a3 LineComalBin {
0x0136…01a3 ptr = 0x8efa // 0x136 @0x0
0x0136…01a3 lno = 0x0096 // 0x138 @0x2
0x0136…01a3 at0004 = ╱87╱ DIM ╱ // 0x13a @0x4
0x0136…01a3 at0005 = ╱55╱U╱ // 0x13b @0x5
0x0136…01a3 at0006 = ╱44╱D╱ // 0x13c @0x6
0x0136…01a3 at0007 = ╱34╱4╱ // 0x13d @0x7
0x0136…01a3 at0008 = ╱ef╱$╱ // 0x13e @0x8
0x0136…01a3 at0009 = ╱ed╱(╱ // 0x13f @0x9
0x0136…01a3 at000a = ╱31╱1╱ // 0x140 @0xa
0x0136…01a3 at000b = ╱34╱4╱ // 0x141 @0xb
0x0136…01a3 at000c = ╱fe0000e004╱ // 0x142 @0xc
0x0136…01a3 at0011 = ╱ee╱)╱ // 0x147 @0x11
0x0136…01a3 at0012 = ╱ec╱,╱ // 0x148 @0x12
0x0136…01a3 at0013 = ╱4b╱K╱ // 0x149 @0x13
0x0136…01a3 at0014 = ╱34╱4╱ // 0x14a @0x14
0x0136…01a3 at0015 = ╱ef╱$╱ // 0x14b @0x15
0x0136…01a3 at0016 = ╱ed╱(╱ // 0x14c @0x16
0x0136…01a3 at0017 = ╱31╱1╱ // 0x14d @0x17
0x0136…01a3 at0018 = ╱37╱7╱ // 0x14e @0x18
0x0136…01a3 at0019 = ╱fe00008805╱ // 0x14f @0x19
0x0136…01a3 at001e = ╱ee╱)╱ // 0x154 @0x1e
0x0136…01a3 at001f = ╱ec╱,╱ // 0x155 @0x1f
0x0136…01a3 at0020 = ╱4b╱K╱ // 0x156 @0x20
0x0136…01a3 at0021 = ╱35╱5╱ // 0x157 @0x21
0x0136…01a3 at0022 = ╱ef╱$╱ // 0x158 @0x22
0x0136…01a3 at0023 = ╱ed╱(╱ // 0x159 @0x23
0x0136…01a3 at0024 = ╱31╱1╱ // 0x15a @0x24
0x0136…01a3 at0025 = ╱37╱7╱ // 0x15b @0x25
0x0136…01a3 at0026 = ╱fe00008805╱ // 0x15c @0x26
0x0136…01a3 at002b = ╱ee╱)╱ // 0x161 @0x2b
0x0136…01a3 at002c = ╱ec╱,╱ // 0x162 @0x2c
0x0136…01a3 at002d = ╱54╱T╱ // 0x163 @0x2d
0x0136…01a3 at002e = ╱31╱1╱ // 0x164 @0x2e
0x0136…01a3 at002f = ╱ed╱(╱ // 0x165 @0x2f
0x0136…01a3 at0030 = ╱57╱W╱ // 0x166 @0x30
0x0136…01a3 at0031 = ╱ee╱)╱ // 0x167 @0x31
0x0136…01a3 at0032 = ╱ec╱,╱ // 0x168 @0x32
0x0136…01a3 at0033 = ╱54╱T╱ // 0x169 @0x33
0x0136…01a3 at0034 = ╱32╱2╱ // 0x16a @0x34
0x0136…01a3 at0035 = ╱ed╱(╱ // 0x16b @0x35
0x0136…01a3 at0036 = ╱57╱W╱ // 0x16c @0x36
0x0136…01a3 at0037 = ╱ee╱)╱ // 0x16d @0x37
0x0136…01a3 at0038 = ╱ec╱,╱ // 0x16e @0x38
0x0136…01a3 at0039 = ╱4b╱K╱ // 0x16f @0x39
0x0136…01a3 at003a = ╱33╱3╱ // 0x170 @0x3a
0x0136…01a3 at003b = ╱ef╱$╱ // 0x171 @0x3b
0x0136…01a3 at003c = ╱ed╱(╱ // 0x172 @0x3c
0x0136…01a3 at003d = ╱31╱1╱ // 0x173 @0x3d
0x0136…01a3 at003e = ╱37╱7╱ // 0x174 @0x3e
0x0136…01a3 at003f = ╱fe00008805╱ // 0x175 @0x3f
0x0136…01a3 at0044 = ╱ee╱)╱ // 0x17a @0x44
0x0136…01a3 at0045 = ╱ec╱,╱ // 0x17b @0x45
0x0136…01a3 at0046 = ╱4b╱K╱ // 0x17c @0x46
0x0136…01a3 at0047 = ╱31╱1╱ // 0x17d @0x47
0x0136…01a3 at0048 = ╱ef╱$╱ // 0x17e @0x48
0x0136…01a3 at0049 = ╱ed╱(╱ // 0x17f @0x49
0x0136…01a3 at004a = ╱31╱1╱ // 0x180 @0x4a
0x0136…01a3 at004b = ╱37╱7╱ // 0x181 @0x4b
0x0136…01a3 at004c = ╱fe00008805╱ // 0x182 @0x4c
0x0136…01a3 at0051 = ╱ee╱)╱ // 0x187 @0x51
0x0136…01a3 at0052 = ╱ec╱,╱ // 0x188 @0x52
0x0136…01a3 at0053 = ╱4b╱K╱ // 0x189 @0x53
0x0136…01a3 at0054 = ╱32╱2╱ // 0x18a @0x54
0x0136…01a3 at0055 = ╱ef╱$╱ // 0x18b @0x55
0x0136…01a3 at0056 = ╱ed╱(╱ // 0x18c @0x56
0x0136…01a3 at0057 = ╱31╱1╱ // 0x18d @0x57
0x0136…01a3 at0058 = ╱37╱7╱ // 0x18e @0x58
0x0136…01a3 at0059 = ╱fe00008805╱ // 0x18f @0x59
0x0136…01a3 at005e = ╱ee╱)╱ // 0x194 @0x5e
0x0136…01a3 at005f = ╱ec╱,╱ // 0x195 @0x5f
0x0136…01a3 at0060 = ╱4b╱K╱ // 0x196 @0x60
0x0136…01a3 at0061 = ╱36╱6╱ // 0x197 @0x61
0x0136…01a3 at0062 = ╱ef╱$╱ // 0x198 @0x62
0x0136…01a3 at0063 = ╱ed╱(╱ // 0x199 @0x63
0x0136…01a3 at0064 = ╱31╱1╱ // 0x19a @0x64
0x0136…01a3 at0065 = ╱37╱7╱ // 0x19b @0x65
0x0136…01a3 at0066 = ╱fe00008805╱ // 0x19c @0x66
0x0136…01a3 at006b = ╱ee╱)╱ // 0x1a1 @0x6b
0x0136…01a3 at006c = EOL // 0x1a2 @0x6c
0x0136…01a3 }
0x01a3…01ba 8f11 0160 PROC CALC(AT,B1,B2,ES)
0x01a3…01ba LineComalBin {
0x01a3…01ba ptr = 0x8f11 // 0x1a3 @0x0
0x01a3…01ba lno = 0x00a0 // 0x1a5 @0x2
0x01a3…01ba at0004 = ╱9e╱ PROC ╱ // 0x1a7 @0x4
0x01a3…01ba at0005 = ╱43╱C╱ // 0x1a8 @0x5
0x01a3…01ba at0006 = ╱41╱A╱ // 0x1a9 @0x6
0x01a3…01ba at0007 = ╱4c╱L╱ // 0x1aa @0x7
0x01a3…01ba at0008 = ╱43╱C╱ // 0x1ab @0x8
0x01a3…01ba at0009 = ╱ed╱(╱ // 0x1ac @0x9
0x01a3…01ba at000a = ╱41╱A╱ // 0x1ad @0xa
0x01a3…01ba at000b = ╱54╱T╱ // 0x1ae @0xb
0x01a3…01ba at000c = ╱ec╱,╱ // 0x1af @0xc
0x01a3…01ba at000d = ╱42╱B╱ // 0x1b0 @0xd
0x01a3…01ba at000e = ╱31╱1╱ // 0x1b1 @0xe
0x01a3…01ba at000f = ╱ec╱,╱ // 0x1b2 @0xf
0x01a3…01ba at0010 = ╱42╱B╱ // 0x1b3 @0x10
0x01a3…01ba at0011 = ╱32╱2╱ // 0x1b4 @0x11
0x01a3…01ba at0012 = ╱ec╱,╱ // 0x1b5 @0x12
0x01a3…01ba at0013 = ╱45╱E╱ // 0x1b6 @0x13
0x01a3…01ba at0014 = ╱53╱S╱ // 0x1b7 @0x14
0x01a3…01ba at0015 = ╱ee╱)╱ // 0x1b8 @0x15
0x01a3…01ba at0016 = EOL // 0x1b9 @0x16
0x01a3…01ba }
0x01ba…01ec 8f43 0170 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT
0x01ba…01ec LineComalBin {
0x01ba…01ec ptr = 0x8f43 // 0x1ba @0x0
0x01ba…01ec lno = 0x00aa // 0x1bc @0x2
0x01ba…01ec at0004 = ╱52╱R╱ // 0x1be @0x4
0x01ba…01ec at0005 = ╱45╱E╱ // 0x1bf @0x5
0x01ba…01ec at0006 = ╱53╱S╱ // 0x1c0 @0x6
0x01ba…01ec at0007 = ╱ef╱$╱ // 0x1c1 @0x7
0x01ba…01ec at0008 = ╱dc╱=╱ // 0x1c2 @0x8
0x01ba…01ec at0009 = ╱45╱E╱ // 0x1c3 @0x9
0x01ba…01ec at000a = ╱53╱S╱ // 0x1c4 @0xa
0x01ba…01ec at000b = ╱ef╱$╱ // 0x1c5 @0xb
0x01ba…01ec at000c = ╱eb╱;╱ // 0x1c6 @0xc
0x01ba…01ec at000d = ╱4f╱O╱ // 0x1c7 @0xd
0x01ba…01ec at000e = ╱50╱P╱ // 0x1c8 @0xe
0x01ba…01ec at000f = ╱31╱1╱ // 0x1c9 @0xf
0x01ba…01ec at0010 = ╱ef╱$╱ // 0x1ca @0x10
0x01ba…01ec at0011 = ╱dc╱=╱ // 0x1cb @0x11
0x01ba…01ec at0012 = ╱42╱B╱ // 0x1cc @0x12
0x01ba…01ec at0013 = ╱31╱1╱ // 0x1cd @0x13
0x01ba…01ec at0014 = ╱ef╱$╱ // 0x1ce @0x14
0x01ba…01ec at0015 = ╱eb╱;╱ // 0x1cf @0x15
0x01ba…01ec at0016 = ╱4f╱O╱ // 0x1d0 @0x16
0x01ba…01ec at0017 = ╱50╱P╱ // 0x1d1 @0x17
0x01ba…01ec at0018 = ╱32╱2╱ // 0x1d2 @0x18
0x01ba…01ec at0019 = ╱ef╱$╱ // 0x1d3 @0x19
0x01ba…01ec at001a = ╱dc╱=╱ // 0x1d4 @0x1a
0x01ba…01ec at001b = ╱42╱B╱ // 0x1d5 @0x1b
0x01ba…01ec at001c = ╱32╱2╱ // 0x1d6 @0x1c
0x01ba…01ec at001d = ╱ef╱$╱ // 0x1d7 @0x1d
0x01ba…01ec at001e = ╱eb╱;╱ // 0x1d8 @0x1e
0x01ba…01ec at001f = ╱53╱S╱ // 0x1d9 @0x1f
0x01ba…01ec at0020 = ╱49╱I╱ // 0x1da @0x20
0x01ba…01ec at0021 = ╱dc╱=╱ // 0x1db @0x21
0x01ba…01ec at0022 = ╱42╱B╱ // 0x1dc @0x22
0x01ba…01ec at0023 = ╱eb╱;╱ // 0x1dd @0x23
0x01ba…01ec at0024 = ╱46╱F╱ // 0x1de @0x24
0x01ba…01ec at0025 = ╱4c╱L╱ // 0x1df @0x25
0x01ba…01ec at0026 = ╱41╱A╱ // 0x1e0 @0x26
0x01ba…01ec at0027 = ╱47╱G╱ // 0x1e1 @0x27
0x01ba…01ec at0028 = ╱dc╱=╱ // 0x1e2 @0x28
0x01ba…01ec at0029 = ╱42╱B╱ // 0x1e3 @0x29
0x01ba…01ec at002a = ╱eb╱;╱ // 0x1e4 @0x2a
0x01ba…01ec at002b = ╱41╱A╱ // 0x1e5 @0x2b
0x01ba…01ec at002c = ╱52╱R╱ // 0x1e6 @0x2c
0x01ba…01ec at002d = ╱54╱T╱ // 0x1e7 @0x2d
0x01ba…01ec at002e = ╱dc╱=╱ // 0x1e8 @0x2e
0x01ba…01ec at002f = ╱41╱A╱ // 0x1e9 @0x2f
0x01ba…01ec at0030 = ╱54╱T╱ // 0x1ea @0x30
0x01ba…01ec at0031 = EOL // 0x1eb @0x31
0x01ba…01ec }
0x01ec…0202 8f59 0180 CALL "P641210:REGN"
0x01ec…0202 LineComalBin {
0x01ec…0202 ptr = 0x8f59 // 0x1ec @0x0
0x01ec…0202 lno = 0x00b4 // 0x1ee @0x2
0x01ec…0202 at0004 = ╱ad5441╱ CALL ╱ // 0x1f0 @0x4
0x01ec…0202 at0007 = ╱22╱"╱ // 0x1f3 @0x7
0x01ec…0202 at0008 = ╱50╱P╱ // 0x1f4 @0x8
0x01ec…0202 at0009 = ╱36╱6╱ // 0x1f5 @0x9
0x01ec…0202 at000a = ╱34╱4╱ // 0x1f6 @0xa
0x01ec…0202 at000b = ╱31╱1╱ // 0x1f7 @0xb
0x01ec…0202 at000c = ╱32╱2╱ // 0x1f8 @0xc
0x01ec…0202 at000d = ╱31╱1╱ // 0x1f9 @0xd
0x01ec…0202 at000e = ╱30╱0╱ // 0x1fa @0xe
0x01ec…0202 at000f = ╱3a╱:╱ // 0x1fb @0xf
0x01ec…0202 at0010 = ╱52╱R╱ // 0x1fc @0x10
0x01ec…0202 at0011 = ╱45╱E╱ // 0x1fd @0x11
0x01ec…0202 at0012 = ╱47╱G╱ // 0x1fe @0x12
0x01ec…0202 at0013 = ╱4e╱N╱ // 0x1ff @0x13
0x01ec…0202 at0014 = ╱22╱"╱ // 0x200 @0x14
0x01ec…0202 at0015 = EOL // 0x201 @0x15
0x01ec…0202 }
0x0202…020f 8f66 0190 ES$=RES$
0x0202…020f LineComalBin {
0x0202…020f ptr = 0x8f66 // 0x202 @0x0
0x0202…020f lno = 0x00be // 0x204 @0x2
0x0202…020f at0004 = ╱45╱E╱ // 0x206 @0x4
0x0202…020f at0005 = ╱53╱S╱ // 0x207 @0x5
0x0202…020f at0006 = ╱ef╱$╱ // 0x208 @0x6
0x0202…020f at0007 = ╱dc╱=╱ // 0x209 @0x7
0x0202…020f at0008 = ╱52╱R╱ // 0x20a @0x8
0x0202…020f at0009 = ╱45╱E╱ // 0x20b @0x9
0x0202…020f at000a = ╱53╱S╱ // 0x20c @0xa
0x0202…020f at000b = ╱ef╱$╱ // 0x20d @0xb
0x0202…020f at000c = EOL // 0x20e @0xc
0x0202…020f }
0x020f…021b 8f72 0200 IF FLAG THEN STOP
0x020f…021b LineComalBin {
0x020f…021b ptr = 0x8f72 // 0x20f @0x0
0x020f…021b lno = 0x00c8 // 0x211 @0x2
0x020f…021b at0004 = ╱82╱ IF ╱ // 0x213 @0x4
0x020f…021b at0005 = ╱46╱F╱ // 0x214 @0x5
0x020f…021b at0006 = ╱4c╱L╱ // 0x215 @0x6
0x020f…021b at0007 = ╱41╱A╱ // 0x216 @0x7
0x020f…021b at0008 = ╱47╱G╱ // 0x217 @0x8
0x020f…021b at0009 = ╱b6╱ THEN ╱ // 0x218 @0x9
0x020f…021b at000a = ╱8d╱ STOP ╱ // 0x219 @0xa
0x020f…021b at000b = EOL // 0x21a @0xb
0x020f…021b }
0x021b…0221 (7,) 8f78 0210 ENDPROC
0x021b…0221 LineComalBin {
0x021b…0221 ptr = 0x8f78 // 0x21b @0x0
0x021b…0221 lno = 0x00d2 // 0x21d @0x2
0x021b…0221 at0004 = ╱9f╱ ENDPROC ╱ // 0x21f @0x4
0x021b…0221 at0005 = EOL // 0x220 @0x5
0x021b…0221 }
0x0221…0238 8f8f 0220 PROC FEJL(NR1,NR2,NR3)
0x0221…0238 LineComalBin {
0x0221…0238 ptr = 0x8f8f // 0x221 @0x0
0x0221…0238 lno = 0x00dc // 0x223 @0x2
0x0221…0238 at0004 = ╱9e╱ PROC ╱ // 0x225 @0x4
0x0221…0238 at0005 = ╱46╱F╱ // 0x226 @0x5
0x0221…0238 at0006 = ╱45╱E╱ // 0x227 @0x6
0x0221…0238 at0007 = ╱4a╱J╱ // 0x228 @0x7
0x0221…0238 at0008 = ╱4c╱L╱ // 0x229 @0x8
0x0221…0238 at0009 = ╱ed╱(╱ // 0x22a @0x9
0x0221…0238 at000a = ╱4e╱N╱ // 0x22b @0xa
0x0221…0238 at000b = ╱52╱R╱ // 0x22c @0xb
0x0221…0238 at000c = ╱31╱1╱ // 0x22d @0xc
0x0221…0238 at000d = ╱ec╱,╱ // 0x22e @0xd
0x0221…0238 at000e = ╱4e╱N╱ // 0x22f @0xe
0x0221…0238 at000f = ╱52╱R╱ // 0x230 @0xf
0x0221…0238 at0010 = ╱32╱2╱ // 0x231 @0x10
0x0221…0238 at0011 = ╱ec╱,╱ // 0x232 @0x11
0x0221…0238 at0012 = ╱4e╱N╱ // 0x233 @0x12
0x0221…0238 at0013 = ╱52╱R╱ // 0x234 @0x13
0x0221…0238 at0014 = ╱33╱3╱ // 0x235 @0x14
0x0221…0238 at0015 = ╱ee╱)╱ // 0x236 @0x15
0x0221…0238 at0016 = EOL // 0x237 @0x16
0x0221…0238 }
0x0238…0248 8f9f 0230 IF STATUS(NR3$)<>B THEN
0x0238…0248 LineComalBin {
0x0238…0248 ptr = 0x8f9f // 0x238 @0x0
0x0238…0248 lno = 0x00e6 // 0x23a @0x2
0x0238…0248 at0004 = ╱9c╱ IF ╱ // 0x23c @0x4
0x0238…0248 at0005 = ╱ce╱STATUS╱ // 0x23d @0x5
0x0238…0248 at0006 = ╱ed╱(╱ // 0x23e @0x6
0x0238…0248 at0007 = ╱4e╱N╱ // 0x23f @0x7
0x0238…0248 at0008 = ╱52╱R╱ // 0x240 @0x8
0x0238…0248 at0009 = ╱33╱3╱ // 0x241 @0x9
0x0238…0248 at000a = ╱ef╱$╱ // 0x242 @0xa
0x0238…0248 at000b = ╱ee╱)╱ // 0x243 @0xb
0x0238…0248 at000c = ╱e1╱<>╱ // 0x244 @0xc
0x0238…0248 at000d = ╱42╱B╱ // 0x245 @0xd
0x0238…0248 at000e = ╱b6╱ THEN ╱ // 0x246 @0xe
0x0238…0248 at000f = EOL // 0x247 @0xf
0x0238…0248 }
0x0248…0262 8fb9 0240 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x0248…0262 LineComalBin {
0x0248…0262 ptr = 0x8fb9 // 0x248 @0x0
0x0248…0262 lno = 0x00f0 // 0x24a @0x2
0x0248…0262 at0004 = ╱92╱ PRINT ╱ // 0x24c @0x4
0x0248…0262 at0005 = ╱ce╱STATUS╱ // 0x24d @0x5
0x0248…0262 at0006 = ╱ed╱(╱ // 0x24e @0x6
0x0248…0262 at0007 = ╱4e╱N╱ // 0x24f @0x7
0x0248…0262 at0008 = ╱52╱R╱ // 0x250 @0x8
0x0248…0262 at0009 = ╱33╱3╱ // 0x251 @0x9
0x0248…0262 at000a = ╱ef╱$╱ // 0x252 @0xa
0x0248…0262 at000b = ╱ee╱)╱ // 0x253 @0xb
0x0248…0262 at000c = ╱ec╱,╱ // 0x254 @0xc
0x0248…0262 at000d = ╱4e╱N╱ // 0x255 @0xd
0x0248…0262 at000e = ╱52╱R╱ // 0x256 @0xe
0x0248…0262 at000f = ╱31╱1╱ // 0x257 @0xf
0x0248…0262 at0010 = ╱ec╱,╱ // 0x258 @0x10
0x0248…0262 at0011 = ╱4e╱N╱ // 0x259 @0x11
0x0248…0262 at0012 = ╱52╱R╱ // 0x25a @0x12
0x0248…0262 at0013 = ╱32╱2╱ // 0x25b @0x13
0x0248…0262 at0014 = ╱ec╱,╱ // 0x25c @0x14
0x0248…0262 at0015 = ╱4e╱N╱ // 0x25d @0x15
0x0248…0262 at0016 = ╱52╱R╱ // 0x25e @0x16
0x0248…0262 at0017 = ╱33╱3╱ // 0x25f @0x17
0x0248…0262 at0018 = ╱ef╱$╱ // 0x260 @0x18
0x0248…0262 at0019 = EOL // 0x261 @0x19
0x0248…0262 }
0x0262…0268 8fbf 0250 STOP
0x0262…0268 LineComalBin {
0x0262…0268 ptr = 0x8fbf // 0x262 @0x0
0x0262…0268 lno = 0x00fa // 0x264 @0x2
0x0262…0268 at0004 = ╱8d╱ STOP ╱ // 0x266 @0x4
0x0262…0268 at0005 = EOL // 0x267 @0x5
0x0262…0268 }
0x0268…026e (8,) 8fc5 0260 ENDIF
0x0268…026e LineComalBin {
0x0268…026e ptr = 0x8fc5 // 0x268 @0x0
0x0268…026e lno = 0x0104 // 0x26a @0x2
0x0268…026e at0004 = ╱9b╱ ENDIF ╱ // 0x26c @0x4
0x0268…026e at0005 = EOL // 0x26d @0x5
0x0268…026e }
0x026e…0274 8fcb 0270 ENDPROC
0x026e…0274 LineComalBin {
0x026e…0274 ptr = 0x8fcb // 0x26e @0x0
0x026e…0274 lno = 0x010e // 0x270 @0x2
0x026e…0274 at0004 = ╱9f╱ ENDPROC ╱ // 0x272 @0x4
0x026e…0274 at0005 = EOL // 0x273 @0x5
0x026e…0274 }
0x0274…028e 8fe5 0280 PROC INDTAB(T,MANTAL,K10)
0x0274…028e LineComalBin {
0x0274…028e ptr = 0x8fe5 // 0x274 @0x0
0x0274…028e lno = 0x0118 // 0x276 @0x2
0x0274…028e at0004 = ╱9e╱ PROC ╱ // 0x278 @0x4
0x0274…028e at0005 = ╱49╱I╱ // 0x279 @0x5
0x0274…028e at0006 = ╱4e╱N╱ // 0x27a @0x6
0x0274…028e at0007 = ╱44╱D╱ // 0x27b @0x7
0x0274…028e at0008 = ╱54╱T╱ // 0x27c @0x8
0x0274…028e at0009 = ╱41╱A╱ // 0x27d @0x9
0x0274…028e at000a = ╱42╱B╱ // 0x27e @0xa
0x0274…028e at000b = ╱ed╱(╱ // 0x27f @0xb
0x0274…028e at000c = ╱54╱T╱ // 0x280 @0xc
0x0274…028e at000d = ╱ec╱,╱ // 0x281 @0xd
0x0274…028e at000e = ╱4d╱M╱ // 0x282 @0xe
0x0274…028e at000f = ╱41╱A╱ // 0x283 @0xf
0x0274…028e at0010 = ╱4e╱N╱ // 0x284 @0x10
0x0274…028e at0011 = ╱54╱T╱ // 0x285 @0x11
0x0274…028e at0012 = ╱41╱A╱ // 0x286 @0x12
0x0274…028e at0013 = ╱4c╱L╱ // 0x287 @0x13
0x0274…028e at0014 = ╱ec╱,╱ // 0x288 @0x14
0x0274…028e at0015 = ╱4b╱K╱ // 0x289 @0x15
0x0274…028e at0016 = ╱31╱1╱ // 0x28a @0x16
0x0274…028e at0017 = ╱30╱0╱ // 0x28b @0x17
0x0274…028e at0018 = ╱ee╱)╱ // 0x28c @0x18
0x0274…028e at0019 = EOL // 0x28d @0x19
0x0274…028e }
0x028e…02a5 8ffc 0290 J=MANTAL DIV 32+E
0x028e…02a5 LineComalBin {
0x028e…02a5 ptr = 0x8ffc // 0x28e @0x0
0x028e…02a5 lno = 0x0122 // 0x290 @0x2
0x028e…02a5 at0004 = ╱4a╱J╱ // 0x292 @0x4
0x028e…02a5 at0005 = ╱dc╱=╱ // 0x293 @0x5
0x028e…02a5 at0006 = ╱4d╱M╱ // 0x294 @0x6
0x028e…02a5 at0007 = ╱41╱A╱ // 0x295 @0x7
0x028e…02a5 at0008 = ╱4e╱N╱ // 0x296 @0x8
0x028e…02a5 at0009 = ╱54╱T╱ // 0x297 @0x9
0x028e…02a5 at000a = ╱41╱A╱ // 0x298 @0xa
0x028e…02a5 at000b = ╱4c╱L╱ // 0x299 @0xb
0x028e…02a5 at000c = ╱e7╱ DIV ╱ // 0x29a @0xc
0x028e…02a5 at000d = ╱33╱3╱ // 0x29b @0xd
0x028e…02a5 at000e = ╱32╱2╱ // 0x29c @0xe
0x028e…02a5 at000f = ╱fe00008006╱ // 0x29d @0xf
0x028e…02a5 at0014 = ╱e2╱+╱ // 0x2a2 @0x14
0x028e…02a5 at0015 = ╱45╱E╱ // 0x2a3 @0x15
0x028e…02a5 at0016 = EOL // 0x2a4 @0x16
0x028e…02a5 }
0x02a5…02c0 9017 0300 FOR I=J TO MANTAL DIV 4+J-E
0x02a5…02c0 LineComalBin {
0x02a5…02c0 ptr = 0x9017 // 0x2a5 @0x0
0x02a5…02c0 lno = 0x012c // 0x2a7 @0x2
0x02a5…02c0 at0004 = ╱83╱ FOR ╱ // 0x2a9 @0x4
0x02a5…02c0 at0005 = ╱49╱I╱ // 0x2aa @0x5
0x02a5…02c0 at0006 = ╱dc╱=╱ // 0x2ab @0x6
0x02a5…02c0 at0007 = ╱4a╱J╱ // 0x2ac @0x7
0x02a5…02c0 at0008 = ╱b7╱ TO ╱ // 0x2ad @0x8
0x02a5…02c0 at0009 = ╱4d╱M╱ // 0x2ae @0x9
0x02a5…02c0 at000a = ╱41╱A╱ // 0x2af @0xa
0x02a5…02c0 at000b = ╱4e╱N╱ // 0x2b0 @0xb
0x02a5…02c0 at000c = ╱54╱T╱ // 0x2b1 @0xc
0x02a5…02c0 at000d = ╱41╱A╱ // 0x2b2 @0xd
0x02a5…02c0 at000e = ╱4c╱L╱ // 0x2b3 @0xe
0x02a5…02c0 at000f = ╱e7╱ DIV ╱ // 0x2b4 @0xf
0x02a5…02c0 at0010 = ╱34╱4╱ // 0x2b5 @0x10
0x02a5…02c0 at0011 = ╱fe00008003╱ // 0x2b6 @0x11
0x02a5…02c0 at0016 = ╱e2╱+╱ // 0x2bb @0x16
0x02a5…02c0 at0017 = ╱4a╱J╱ // 0x2bc @0x17
0x02a5…02c0 at0018 = ╱e3╱-╱ // 0x2bd @0x18
0x02a5…02c0 at0019 = ╱45╱E╱ // 0x2be @0x19
0x02a5…02c0 at001a = EOL // 0x2bf @0x1a
0x02a5…02c0 }
0x02c0…02ea 9041 0310 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V
0x02c0…02ea LineComalBin {
0x02c0…02ea ptr = 0x9041 // 0x2c0 @0x0
0x02c0…02ea lno = 0x0136 // 0x2c2 @0x2
0x02c0…02ea at0004 = ╱48╱H╱ // 0x2c4 @0x4
0x02c0…02ea at0005 = ╱dc╱=╱ // 0x2c5 @0x5
0x02c0…02ea at0006 = ╱ed╱(╱ // 0x2c6 @0x6
0x02c0…02ea at0007 = ╱49╱I╱ // 0x2c7 @0x7
0x02c0…02ea at0008 = ╱e3╱-╱ // 0x2c8 @0x8
0x02c0…02ea at0009 = ╱4a╱J╱ // 0x2c9 @0x9
0x02c0…02ea at000a = ╱ee╱)╱ // 0x2ca @0xa
0x02c0…02ea at000b = ╱e4╱*╱ // 0x2cb @0xb
0x02c0…02ea at000c = ╱34╱4╱ // 0x2cc @0xc
0x02c0…02ea at000d = ╱fe00008003╱ // 0x2cd @0xd
0x02c0…02ea at0012 = ╱e2╱+╱ // 0x2d2 @0x12
0x02c0…02ea at0013 = ╱45╱E╱ // 0x2d3 @0x13
0x02c0…02ea at0014 = ╱eb╱;╱ // 0x2d4 @0x14
0x02c0…02ea at0015 = ╱4a╱J╱ // 0x2d5 @0x15
0x02c0…02ea at0016 = ╱32╱2╱ // 0x2d6 @0x16
0x02c0…02ea at0017 = ╱dc╱=╱ // 0x2d7 @0x17
0x02c0…02ea at0018 = ╱48╱H╱ // 0x2d8 @0x18
0x02c0…02ea at0019 = ╱e2╱+╱ // 0x2d9 @0x19
0x02c0…02ea at001a = ╱45╱E╱ // 0x2da @0x1a
0x02c0…02ea at001b = ╱eb╱;╱ // 0x2db @0x1b
0x02c0…02ea at001c = ╱4a╱J╱ // 0x2dc @0x1c
0x02c0…02ea at001d = ╱33╱3╱ // 0x2dd @0x1d
0x02c0…02ea at001e = ╱dc╱=╱ // 0x2de @0x1e
0x02c0…02ea at001f = ╱48╱H╱ // 0x2df @0x1f
0x02c0…02ea at0020 = ╱e2╱+╱ // 0x2e0 @0x20
0x02c0…02ea at0021 = ╱47╱G╱ // 0x2e1 @0x21
0x02c0…02ea at0022 = ╱eb╱;╱ // 0x2e2 @0x22
0x02c0…02ea at0023 = ╱4a╱J╱ // 0x2e3 @0x23
0x02c0…02ea at0024 = ╱34╱4╱ // 0x2e4 @0x24
0x02c0…02ea at0025 = ╱dc╱=╱ // 0x2e5 @0x25
0x02c0…02ea at0026 = ╱48╱H╱ // 0x2e6 @0x26
0x02c0…02ea at0027 = ╱e2╱+╱ // 0x2e7 @0x27
0x02c0…02ea at0028 = ╱56╱V╱ // 0x2e8 @0x28
0x02c0…02ea at0029 = EOL // 0x2e9 @0x29
0x02c0…02ea }
0x02ea…0334 908b 0320 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)
0x02ea…0334 LineComalBin {
0x02ea…0334 ptr = 0x908b // 0x2ea @0x0
0x02ea…0334 lno = 0x0140 // 0x2ec @0x2
0x02ea…0334 at0004 = ╱a9╱ GET ╱ // 0x2ee @0x4
0x02ea…0334 at0005 = ╱4b╱K╱ // 0x2ef @0x5
0x02ea…0334 at0006 = ╱31╱1╱ // 0x2f0 @0x6
0x02ea…0334 at0007 = ╱30╱0╱ // 0x2f1 @0x7
0x02ea…0334 at0008 = ╱ef╱$╱ // 0x2f2 @0x8
0x02ea…0334 at0009 = ╱ec╱,╱ // 0x2f3 @0x9
0x02ea…0334 at000a = ╱49╱I╱ // 0x2f4 @0xa
0x02ea…0334 at000b = ╱f0╱:╱ // 0x2f5 @0xb
0x02ea…0334 at000c = ╱54╱T╱ // 0x2f6 @0xc
0x02ea…0334 at000d = ╱ed╱(╱ // 0x2f7 @0xd
0x02ea…0334 at000e = ╱48╱H╱ // 0x2f8 @0xe
0x02ea…0334 at000f = ╱ec╱,╱ // 0x2f9 @0xf
0x02ea…0334 at0010 = ╱45╱E╱ // 0x2fa @0x10
0x02ea…0334 at0011 = ╱ee╱)╱ // 0x2fb @0x11
0x02ea…0334 at0012 = ╱ec╱,╱ // 0x2fc @0x12
0x02ea…0334 at0013 = ╱54╱T╱ // 0x2fd @0x13
0x02ea…0334 at0014 = ╱ed╱(╱ // 0x2fe @0x14
0x02ea…0334 at0015 = ╱48╱H╱ // 0x2ff @0x15
0x02ea…0334 at0016 = ╱ec╱,╱ // 0x300 @0x16
0x02ea…0334 at0017 = ╱47╱G╱ // 0x301 @0x17
0x02ea…0334 at0018 = ╱ee╱)╱ // 0x302 @0x18
0x02ea…0334 at0019 = ╱ec╱,╱ // 0x303 @0x19
0x02ea…0334 at001a = ╱54╱T╱ // 0x304 @0x1a
0x02ea…0334 at001b = ╱ed╱(╱ // 0x305 @0x1b
0x02ea…0334 at001c = ╱4a╱J╱ // 0x306 @0x1c
0x02ea…0334 at001d = ╱32╱2╱ // 0x307 @0x1d
0x02ea…0334 at001e = ╱ec╱,╱ // 0x308 @0x1e
0x02ea…0334 at001f = ╱45╱E╱ // 0x309 @0x1f
0x02ea…0334 at0020 = ╱ee╱)╱ // 0x30a @0x20
0x02ea…0334 at0021 = ╱ec╱,╱ // 0x30b @0x21
0x02ea…0334 at0022 = ╱54╱T╱ // 0x30c @0x22
0x02ea…0334 at0023 = ╱ed╱(╱ // 0x30d @0x23
0x02ea…0334 at0024 = ╱4a╱J╱ // 0x30e @0x24
0x02ea…0334 at0025 = ╱32╱2╱ // 0x30f @0x25
0x02ea…0334 at0026 = ╱ec╱,╱ // 0x310 @0x26
0x02ea…0334 at0027 = ╱47╱G╱ // 0x311 @0x27
0x02ea…0334 at0028 = ╱ee╱)╱ // 0x312 @0x28
0x02ea…0334 at0029 = ╱ec╱,╱ // 0x313 @0x29
0x02ea…0334 at002a = ╱54╱T╱ // 0x314 @0x2a
0x02ea…0334 at002b = ╱ed╱(╱ // 0x315 @0x2b
0x02ea…0334 at002c = ╱4a╱J╱ // 0x316 @0x2c
0x02ea…0334 at002d = ╱33╱3╱ // 0x317 @0x2d
0x02ea…0334 at002e = ╱ec╱,╱ // 0x318 @0x2e
0x02ea…0334 at002f = ╱45╱E╱ // 0x319 @0x2f
0x02ea…0334 at0030 = ╱ee╱)╱ // 0x31a @0x30
0x02ea…0334 at0031 = ╱ec╱,╱ // 0x31b @0x31
0x02ea…0334 at0032 = ╱54╱T╱ // 0x31c @0x32
0x02ea…0334 at0033 = ╱ed╱(╱ // 0x31d @0x33
0x02ea…0334 at0034 = ╱4a╱J╱ // 0x31e @0x34
0x02ea…0334 at0035 = ╱33╱3╱ // 0x31f @0x35
0x02ea…0334 at0036 = ╱ec╱,╱ // 0x320 @0x36
0x02ea…0334 at0037 = ╱47╱G╱ // 0x321 @0x37
0x02ea…0334 at0038 = ╱ee╱)╱ // 0x322 @0x38
0x02ea…0334 at0039 = ╱ec╱,╱ // 0x323 @0x39
0x02ea…0334 at003a = ╱54╱T╱ // 0x324 @0x3a
0x02ea…0334 at003b = ╱ed╱(╱ // 0x325 @0x3b
0x02ea…0334 at003c = ╱4a╱J╱ // 0x326 @0x3c
0x02ea…0334 at003d = ╱34╱4╱ // 0x327 @0x3d
0x02ea…0334 at003e = ╱ec╱,╱ // 0x328 @0x3e
0x02ea…0334 at003f = ╱45╱E╱ // 0x329 @0x3f
0x02ea…0334 at0040 = ╱ee╱)╱ // 0x32a @0x40
0x02ea…0334 at0041 = ╱ec╱,╱ // 0x32b @0x41
0x02ea…0334 at0042 = ╱54╱T╱ // 0x32c @0x42
0x02ea…0334 at0043 = ╱ed╱(╱ // 0x32d @0x43
0x02ea…0334 at0044 = ╱4a╱J╱ // 0x32e @0x44
0x02ea…0334 at0045 = ╱34╱4╱ // 0x32f @0x45
0x02ea…0334 at0046 = ╱ec╱,╱ // 0x330 @0x46
0x02ea…0334 at0047 = ╱47╱G╱ // 0x331 @0x47
0x02ea…0334 at0048 = ╱ee╱)╱ // 0x332 @0x48
0x02ea…0334 at0049 = EOL // 0x333 @0x49
0x02ea…0334 }
0x0334…0348 909f 0330 EXEC FEJL(E,E,K10$)
0x0334…0348 LineComalBin {
0x0334…0348 ptr = 0x909f // 0x334 @0x0
0x0334…0348 lno = 0x014a // 0x336 @0x2
0x0334…0348 at0004 = ╱9d╱ EXEC ╱ // 0x338 @0x4
0x0334…0348 at0005 = ╱46╱F╱ // 0x339 @0x5
0x0334…0348 at0006 = ╱45╱E╱ // 0x33a @0x6
0x0334…0348 at0007 = ╱4a╱J╱ // 0x33b @0x7
0x0334…0348 at0008 = ╱4c╱L╱ // 0x33c @0x8
0x0334…0348 at0009 = ╱ed╱(╱ // 0x33d @0x9
0x0334…0348 at000a = ╱45╱E╱ // 0x33e @0xa
0x0334…0348 at000b = ╱ec╱,╱ // 0x33f @0xb
0x0334…0348 at000c = ╱45╱E╱ // 0x340 @0xc
0x0334…0348 at000d = ╱ec╱,╱ // 0x341 @0xd
0x0334…0348 at000e = ╱4b╱K╱ // 0x342 @0xe
0x0334…0348 at000f = ╱31╱1╱ // 0x343 @0xf
0x0334…0348 at0010 = ╱30╱0╱ // 0x344 @0x10
0x0334…0348 at0011 = ╱ef╱$╱ // 0x345 @0x11
0x0334…0348 at0012 = ╱ee╱)╱ // 0x346 @0x12
0x0334…0348 at0013 = EOL // 0x347 @0x13
0x0334…0348 }
0x0348…034f 90a6 0340 NEXT I
0x0348…034f LineComalBin {
0x0348…034f ptr = 0x90a6 // 0x348 @0x0
0x0348…034f lno = 0x0154 // 0x34a @0x2
0x0348…034f at0004 = ╱84╱ NEXT ╱ // 0x34c @0x4
0x0348…034f at0005 = ╱49╱I╱ // 0x34d @0x5
0x0348…034f at0006 = EOL // 0x34e @0x6
0x0348…034f }
0x034f…0355 (11,) 90ac 0350 ENDPROC
0x034f…0355 LineComalBin {
0x034f…0355 ptr = 0x90ac // 0x34f @0x0
0x034f…0355 lno = 0x015e // 0x351 @0x2
0x034f…0355 at0004 = ╱9f╱ ENDPROC ╱ // 0x353 @0x4
0x034f…0355 at0005 = EOL // 0x354 @0x5
0x034f…0355 }
0x0355…036e 90c5 0360 PROC UDTAB(U,MANTAL1,K9)
0x0355…036e LineComalBin {
0x0355…036e ptr = 0x90c5 // 0x355 @0x0
0x0355…036e lno = 0x0168 // 0x357 @0x2
0x0355…036e at0004 = ╱9e╱ PROC ╱ // 0x359 @0x4
0x0355…036e at0005 = ╱55╱U╱ // 0x35a @0x5
0x0355…036e at0006 = ╱44╱D╱ // 0x35b @0x6
0x0355…036e at0007 = ╱54╱T╱ // 0x35c @0x7
0x0355…036e at0008 = ╱41╱A╱ // 0x35d @0x8
0x0355…036e at0009 = ╱42╱B╱ // 0x35e @0x9
0x0355…036e at000a = ╱ed╱(╱ // 0x35f @0xa
0x0355…036e at000b = ╱55╱U╱ // 0x360 @0xb
0x0355…036e at000c = ╱ec╱,╱ // 0x361 @0xc
0x0355…036e at000d = ╱4d╱M╱ // 0x362 @0xd
0x0355…036e at000e = ╱41╱A╱ // 0x363 @0xe
0x0355…036e at000f = ╱4e╱N╱ // 0x364 @0xf
0x0355…036e at0010 = ╱54╱T╱ // 0x365 @0x10
0x0355…036e at0011 = ╱41╱A╱ // 0x366 @0x11
0x0355…036e at0012 = ╱4c╱L╱ // 0x367 @0x12
0x0355…036e at0013 = ╱31╱1╱ // 0x368 @0x13
0x0355…036e at0014 = ╱ec╱,╱ // 0x369 @0x14
0x0355…036e at0015 = ╱4b╱K╱ // 0x36a @0x15
0x0355…036e at0016 = ╱39╱9╱ // 0x36b @0x16
0x0355…036e at0017 = ╱ee╱)╱ // 0x36c @0x17
0x0355…036e at0018 = EOL // 0x36d @0x18
0x0355…036e }
0x036e…0386 90dd 0370 J=MANTAL1 DIV 32+E
0x036e…0386 LineComalBin {
0x036e…0386 ptr = 0x90dd // 0x36e @0x0
0x036e…0386 lno = 0x0172 // 0x370 @0x2
0x036e…0386 at0004 = ╱4a╱J╱ // 0x372 @0x4
0x036e…0386 at0005 = ╱dc╱=╱ // 0x373 @0x5
0x036e…0386 at0006 = ╱4d╱M╱ // 0x374 @0x6
0x036e…0386 at0007 = ╱41╱A╱ // 0x375 @0x7
0x036e…0386 at0008 = ╱4e╱N╱ // 0x376 @0x8
0x036e…0386 at0009 = ╱54╱T╱ // 0x377 @0x9
0x036e…0386 at000a = ╱41╱A╱ // 0x378 @0xa
0x036e…0386 at000b = ╱4c╱L╱ // 0x379 @0xb
0x036e…0386 at000c = ╱31╱1╱ // 0x37a @0xc
0x036e…0386 at000d = ╱e7╱ DIV ╱ // 0x37b @0xd
0x036e…0386 at000e = ╱33╱3╱ // 0x37c @0xe
0x036e…0386 at000f = ╱32╱2╱ // 0x37d @0xf
0x036e…0386 at0010 = ╱fe00008006╱ // 0x37e @0x10
0x036e…0386 at0015 = ╱e2╱+╱ // 0x383 @0x15
0x036e…0386 at0016 = ╱45╱E╱ // 0x384 @0x16
0x036e…0386 at0017 = EOL // 0x385 @0x17
0x036e…0386 }
0x0386…0393 90ea 0380 FOR I=E TO J-E
0x0386…0393 LineComalBin {
0x0386…0393 ptr = 0x90ea // 0x386 @0x0
0x0386…0393 lno = 0x017c // 0x388 @0x2
0x0386…0393 at0004 = ╱83╱ FOR ╱ // 0x38a @0x4
0x0386…0393 at0005 = ╱49╱I╱ // 0x38b @0x5
0x0386…0393 at0006 = ╱dc╱=╱ // 0x38c @0x6
0x0386…0393 at0007 = ╱45╱E╱ // 0x38d @0x7
0x0386…0393 at0008 = ╱b7╱ TO ╱ // 0x38e @0x8
0x0386…0393 at0009 = ╱4a╱J╱ // 0x38f @0x9
0x0386…0393 at000a = ╱e3╱-╱ // 0x390 @0xa
0x0386…0393 at000b = ╱45╱E╱ // 0x391 @0xb
0x0386…0393 at000c = EOL // 0x392 @0xc
0x0386…0393 }
0x0393…0402 9159 0390 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
0x0393…0402 LineComalBin {
0x0393…0402 ptr = 0x9159 // 0x393 @0x0
0x0393…0402 lno = 0x0186 // 0x395 @0x2
0x0393…0402 at0004 = ╱48╱H╱ // 0x397 @0x4
0x0393…0402 at0005 = ╱dc╱=╱ // 0x398 @0x5
0x0393…0402 at0006 = ╱ed╱(╱ // 0x399 @0x6
0x0393…0402 at0007 = ╱49╱I╱ // 0x39a @0x7
0x0393…0402 at0008 = ╱e3╱-╱ // 0x39b @0x8
0x0393…0402 at0009 = ╱45╱E╱ // 0x39c @0x9
0x0393…0402 at000a = ╱ee╱)╱ // 0x39d @0xa
0x0393…0402 at000b = ╱e4╱*╱ // 0x39e @0xb
0x0393…0402 at000c = ╱33╱3╱ // 0x39f @0xc
0x0393…0402 at000d = ╱32╱2╱ // 0x3a0 @0xd
0x0393…0402 at000e = ╱fe00008006╱ // 0x3a1 @0xe
0x0393…0402 at0013 = ╱e2╱+╱ // 0x3a6 @0x13
0x0393…0402 at0014 = ╱45╱E╱ // 0x3a7 @0x14
0x0393…0402 at0015 = ╱eb╱;╱ // 0x3a8 @0x15
0x0393…0402 at0016 = ╱4a╱J╱ // 0x3a9 @0x16
0x0393…0402 at0017 = ╱31╱1╱ // 0x3aa @0x17
0x0393…0402 at0018 = ╱dc╱=╱ // 0x3ab @0x18
0x0393…0402 at0019 = ╱48╱H╱ // 0x3ac @0x19
0x0393…0402 at001a = ╱e2╱+╱ // 0x3ad @0x1a
0x0393…0402 at001b = ╱34╱4╱ // 0x3ae @0x1b
0x0393…0402 at001c = ╱fe00008003╱ // 0x3af @0x1c
0x0393…0402 at0021 = ╱eb╱;╱ // 0x3b4 @0x21
0x0393…0402 at0022 = ╱4a╱J╱ // 0x3b5 @0x22
0x0393…0402 at0023 = ╱32╱2╱ // 0x3b6 @0x23
0x0393…0402 at0024 = ╱dc╱=╱ // 0x3b7 @0x24
0x0393…0402 at0025 = ╱48╱H╱ // 0x3b8 @0x25
0x0393…0402 at0026 = ╱e2╱+╱ // 0x3b9 @0x26
0x0393…0402 at0027 = ╱38╱8╱ // 0x3ba @0x27
0x0393…0402 at0028 = ╱fe00008004╱ // 0x3bb @0x28
0x0393…0402 at002d = ╱eb╱;╱ // 0x3c0 @0x2d
0x0393…0402 at002e = ╱4a╱J╱ // 0x3c1 @0x2e
0x0393…0402 at002f = ╱33╱3╱ // 0x3c2 @0x2f
0x0393…0402 at0030 = ╱dc╱=╱ // 0x3c3 @0x30
0x0393…0402 at0031 = ╱48╱H╱ // 0x3c4 @0x31
0x0393…0402 at0032 = ╱e2╱+╱ // 0x3c5 @0x32
0x0393…0402 at0033 = ╱31╱1╱ // 0x3c6 @0x33
0x0393…0402 at0034 = ╱32╱2╱ // 0x3c7 @0x34
0x0393…0402 at0035 = ╱fe0000c004╱ // 0x3c8 @0x35
0x0393…0402 at003a = ╱eb╱;╱ // 0x3cd @0x3a
0x0393…0402 at003b = ╱4a╱J╱ // 0x3ce @0x3b
0x0393…0402 at003c = ╱34╱4╱ // 0x3cf @0x3c
0x0393…0402 at003d = ╱dc╱=╱ // 0x3d0 @0x3d
0x0393…0402 at003e = ╱48╱H╱ // 0x3d1 @0x3e
0x0393…0402 at003f = ╱e2╱+╱ // 0x3d2 @0x3f
0x0393…0402 at0040 = ╱31╱1╱ // 0x3d3 @0x40
0x0393…0402 at0041 = ╱36╱6╱ // 0x3d4 @0x41
0x0393…0402 at0042 = ╱fe00008005╱ // 0x3d5 @0x42
0x0393…0402 at0047 = ╱eb╱;╱ // 0x3da @0x47
0x0393…0402 at0048 = ╱4a╱J╱ // 0x3db @0x48
0x0393…0402 at0049 = ╱35╱5╱ // 0x3dc @0x49
0x0393…0402 at004a = ╱dc╱=╱ // 0x3dd @0x4a
0x0393…0402 at004b = ╱48╱H╱ // 0x3de @0x4b
0x0393…0402 at004c = ╱e2╱+╱ // 0x3df @0x4c
0x0393…0402 at004d = ╱32╱2╱ // 0x3e0 @0x4d
0x0393…0402 at004e = ╱30╱0╱ // 0x3e1 @0x4e
0x0393…0402 at004f = ╱fe0000a005╱ // 0x3e2 @0x4f
0x0393…0402 at0054 = ╱eb╱;╱ // 0x3e7 @0x54
0x0393…0402 at0055 = ╱4a╱J╱ // 0x3e8 @0x55
0x0393…0402 at0056 = ╱36╱6╱ // 0x3e9 @0x56
0x0393…0402 at0057 = ╱dc╱=╱ // 0x3ea @0x57
0x0393…0402 at0058 = ╱48╱H╱ // 0x3eb @0x58
0x0393…0402 at0059 = ╱e2╱+╱ // 0x3ec @0x59
0x0393…0402 at005a = ╱32╱2╱ // 0x3ed @0x5a
0x0393…0402 at005b = ╱34╱4╱ // 0x3ee @0x5b
0x0393…0402 at005c = ╱fe0000c005╱ // 0x3ef @0x5c
0x0393…0402 at0061 = ╱eb╱;╱ // 0x3f4 @0x61
0x0393…0402 at0062 = ╱4a╱J╱ // 0x3f5 @0x62
0x0393…0402 at0063 = ╱37╱7╱ // 0x3f6 @0x63
0x0393…0402 at0064 = ╱dc╱=╱ // 0x3f7 @0x64
0x0393…0402 at0065 = ╱48╱H╱ // 0x3f8 @0x65
0x0393…0402 at0066 = ╱e2╱+╱ // 0x3f9 @0x66
0x0393…0402 at0067 = ╱32╱2╱ // 0x3fa @0x67
0x0393…0402 at0068 = ╱38╱8╱ // 0x3fb @0x68
0x0393…0402 at0069 = ╱fe0000e005╱ // 0x3fc @0x69
0x0393…0402 at006e = EOL // 0x401 @0x6e
0x0393…0402 }
0x0402…044c 91a3 0400 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)
0x0402…044c LineComalBin {
0x0402…044c ptr = 0x91a3 // 0x402 @0x0
0x0402…044c lno = 0x0190 // 0x404 @0x2
0x0402…044c at0004 = ╱aa╱ PUT ╱ // 0x406 @0x4
0x0402…044c at0005 = ╱4b╱K╱ // 0x407 @0x5
0x0402…044c at0006 = ╱39╱9╱ // 0x408 @0x6
0x0402…044c at0007 = ╱ef╱$╱ // 0x409 @0x7
0x0402…044c at0008 = ╱ec╱,╱ // 0x40a @0x8
0x0402…044c at0009 = ╱49╱I╱ // 0x40b @0x9
0x0402…044c at000a = ╱f0╱:╱ // 0x40c @0xa
0x0402…044c at000b = ╱55╱U╱ // 0x40d @0xb
0x0402…044c at000c = ╱ed╱(╱ // 0x40e @0xc
0x0402…044c at000d = ╱48╱H╱ // 0x40f @0xd
0x0402…044c at000e = ╱ec╱,╱ // 0x410 @0xe
0x0402…044c at000f = ╱45╱E╱ // 0x411 @0xf
0x0402…044c at0010 = ╱ee╱)╱ // 0x412 @0x10
0x0402…044c at0011 = ╱ec╱,╱ // 0x413 @0x11
0x0402…044c at0012 = ╱55╱U╱ // 0x414 @0x12
0x0402…044c at0013 = ╱ed╱(╱ // 0x415 @0x13
0x0402…044c at0014 = ╱4a╱J╱ // 0x416 @0x14
0x0402…044c at0015 = ╱31╱1╱ // 0x417 @0x15
0x0402…044c at0016 = ╱ec╱,╱ // 0x418 @0x16
0x0402…044c at0017 = ╱45╱E╱ // 0x419 @0x17
0x0402…044c at0018 = ╱ee╱)╱ // 0x41a @0x18
0x0402…044c at0019 = ╱ec╱,╱ // 0x41b @0x19
0x0402…044c at001a = ╱55╱U╱ // 0x41c @0x1a
0x0402…044c at001b = ╱ed╱(╱ // 0x41d @0x1b
0x0402…044c at001c = ╱4a╱J╱ // 0x41e @0x1c
0x0402…044c at001d = ╱32╱2╱ // 0x41f @0x1d
0x0402…044c at001e = ╱ec╱,╱ // 0x420 @0x1e
0x0402…044c at001f = ╱45╱E╱ // 0x421 @0x1f
0x0402…044c at0020 = ╱ee╱)╱ // 0x422 @0x20
0x0402…044c at0021 = ╱ec╱,╱ // 0x423 @0x21
0x0402…044c at0022 = ╱55╱U╱ // 0x424 @0x22
0x0402…044c at0023 = ╱ed╱(╱ // 0x425 @0x23
0x0402…044c at0024 = ╱4a╱J╱ // 0x426 @0x24
0x0402…044c at0025 = ╱33╱3╱ // 0x427 @0x25
0x0402…044c at0026 = ╱ec╱,╱ // 0x428 @0x26
0x0402…044c at0027 = ╱45╱E╱ // 0x429 @0x27
0x0402…044c at0028 = ╱ee╱)╱ // 0x42a @0x28
0x0402…044c at0029 = ╱ec╱,╱ // 0x42b @0x29
0x0402…044c at002a = ╱55╱U╱ // 0x42c @0x2a
0x0402…044c at002b = ╱ed╱(╱ // 0x42d @0x2b
0x0402…044c at002c = ╱4a╱J╱ // 0x42e @0x2c
0x0402…044c at002d = ╱34╱4╱ // 0x42f @0x2d
0x0402…044c at002e = ╱ec╱,╱ // 0x430 @0x2e
0x0402…044c at002f = ╱45╱E╱ // 0x431 @0x2f
0x0402…044c at0030 = ╱ee╱)╱ // 0x432 @0x30
0x0402…044c at0031 = ╱ec╱,╱ // 0x433 @0x31
0x0402…044c at0032 = ╱55╱U╱ // 0x434 @0x32
0x0402…044c at0033 = ╱ed╱(╱ // 0x435 @0x33
0x0402…044c at0034 = ╱4a╱J╱ // 0x436 @0x34
0x0402…044c at0035 = ╱35╱5╱ // 0x437 @0x35
0x0402…044c at0036 = ╱ec╱,╱ // 0x438 @0x36
0x0402…044c at0037 = ╱45╱E╱ // 0x439 @0x37
0x0402…044c at0038 = ╱ee╱)╱ // 0x43a @0x38
0x0402…044c at0039 = ╱ec╱,╱ // 0x43b @0x39
0x0402…044c at003a = ╱55╱U╱ // 0x43c @0x3a
0x0402…044c at003b = ╱ed╱(╱ // 0x43d @0x3b
0x0402…044c at003c = ╱4a╱J╱ // 0x43e @0x3c
0x0402…044c at003d = ╱36╱6╱ // 0x43f @0x3d
0x0402…044c at003e = ╱ec╱,╱ // 0x440 @0x3e
0x0402…044c at003f = ╱45╱E╱ // 0x441 @0x3f
0x0402…044c at0040 = ╱ee╱)╱ // 0x442 @0x40
0x0402…044c at0041 = ╱ec╱,╱ // 0x443 @0x41
0x0402…044c at0042 = ╱55╱U╱ // 0x444 @0x42
0x0402…044c at0043 = ╱ed╱(╱ // 0x445 @0x43
0x0402…044c at0044 = ╱4a╱J╱ // 0x446 @0x44
0x0402…044c at0045 = ╱37╱7╱ // 0x447 @0x45
0x0402…044c at0046 = ╱ec╱,╱ // 0x448 @0x46
0x0402…044c at0047 = ╱45╱E╱ // 0x449 @0x47
0x0402…044c at0048 = ╱ee╱)╱ // 0x44a @0x48
0x0402…044c at0049 = EOL // 0x44b @0x49
0x0402…044c }
0x044c…045f 91b6 0410 EXEC FEJL(G,E,K9$)
0x044c…045f LineComalBin {
0x044c…045f ptr = 0x91b6 // 0x44c @0x0
0x044c…045f lno = 0x019a // 0x44e @0x2
0x044c…045f at0004 = ╱9d╱ EXEC ╱ // 0x450 @0x4
0x044c…045f at0005 = ╱46╱F╱ // 0x451 @0x5
0x044c…045f at0006 = ╱45╱E╱ // 0x452 @0x6
0x044c…045f at0007 = ╱4a╱J╱ // 0x453 @0x7
0x044c…045f at0008 = ╱4c╱L╱ // 0x454 @0x8
0x044c…045f at0009 = ╱ed╱(╱ // 0x455 @0x9
0x044c…045f at000a = ╱47╱G╱ // 0x456 @0xa
0x044c…045f at000b = ╱ec╱,╱ // 0x457 @0xb
0x044c…045f at000c = ╱45╱E╱ // 0x458 @0xc
0x044c…045f at000d = ╱ec╱,╱ // 0x459 @0xd
0x044c…045f at000e = ╱4b╱K╱ // 0x45a @0xe
0x044c…045f at000f = ╱39╱9╱ // 0x45b @0xf
0x044c…045f at0010 = ╱ef╱$╱ // 0x45c @0x10
0x044c…045f at0011 = ╱ee╱)╱ // 0x45d @0x11
0x044c…045f at0012 = EOL // 0x45e @0x12
0x044c…045f }
0x045f…0466 91bd 0420 NEXT I
0x045f…0466 LineComalBin {
0x045f…0466 ptr = 0x91bd // 0x45f @0x0
0x045f…0466 lno = 0x01a4 // 0x461 @0x2
0x045f…0466 at0004 = ╱84╱ NEXT ╱ // 0x463 @0x4
0x045f…0466 at0005 = ╱49╱I╱ // 0x464 @0x5
0x045f…0466 at0006 = EOL // 0x465 @0x6
0x045f…0466 }
0x0466…0482 91d9 0430 FOR I=J TO MANTAL1 DIV 4+J-E
0x0466…0482 LineComalBin {
0x0466…0482 ptr = 0x91d9 // 0x466 @0x0
0x0466…0482 lno = 0x01ae // 0x468 @0x2
0x0466…0482 at0004 = ╱83╱ FOR ╱ // 0x46a @0x4
0x0466…0482 at0005 = ╱49╱I╱ // 0x46b @0x5
0x0466…0482 at0006 = ╱dc╱=╱ // 0x46c @0x6
0x0466…0482 at0007 = ╱4a╱J╱ // 0x46d @0x7
0x0466…0482 at0008 = ╱b7╱ TO ╱ // 0x46e @0x8
0x0466…0482 at0009 = ╱4d╱M╱ // 0x46f @0x9
0x0466…0482 at000a = ╱41╱A╱ // 0x470 @0xa
0x0466…0482 at000b = ╱4e╱N╱ // 0x471 @0xb
0x0466…0482 at000c = ╱54╱T╱ // 0x472 @0xc
0x0466…0482 at000d = ╱41╱A╱ // 0x473 @0xd
0x0466…0482 at000e = ╱4c╱L╱ // 0x474 @0xe
0x0466…0482 at000f = ╱31╱1╱ // 0x475 @0xf
0x0466…0482 at0010 = ╱e7╱ DIV ╱ // 0x476 @0x10
0x0466…0482 at0011 = ╱34╱4╱ // 0x477 @0x11
0x0466…0482 at0012 = ╱fe00008003╱ // 0x478 @0x12
0x0466…0482 at0017 = ╱e2╱+╱ // 0x47d @0x17
0x0466…0482 at0018 = ╱4a╱J╱ // 0x47e @0x18
0x0466…0482 at0019 = ╱e3╱-╱ // 0x47f @0x19
0x0466…0482 at001a = ╱45╱E╱ // 0x480 @0x1a
0x0466…0482 at001b = EOL // 0x481 @0x1b
0x0466…0482 }
0x0482…04ac 9203 0440 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V
0x0482…04ac LineComalBin {
0x0482…04ac ptr = 0x9203 // 0x482 @0x0
0x0482…04ac lno = 0x01b8 // 0x484 @0x2
0x0482…04ac at0004 = ╱48╱H╱ // 0x486 @0x4
0x0482…04ac at0005 = ╱dc╱=╱ // 0x487 @0x5
0x0482…04ac at0006 = ╱ed╱(╱ // 0x488 @0x6
0x0482…04ac at0007 = ╱49╱I╱ // 0x489 @0x7
0x0482…04ac at0008 = ╱e3╱-╱ // 0x48a @0x8
0x0482…04ac at0009 = ╱4a╱J╱ // 0x48b @0x9
0x0482…04ac at000a = ╱ee╱)╱ // 0x48c @0xa
0x0482…04ac at000b = ╱e4╱*╱ // 0x48d @0xb
0x0482…04ac at000c = ╱34╱4╱ // 0x48e @0xc
0x0482…04ac at000d = ╱fe00008003╱ // 0x48f @0xd
0x0482…04ac at0012 = ╱e2╱+╱ // 0x494 @0x12
0x0482…04ac at0013 = ╱45╱E╱ // 0x495 @0x13
0x0482…04ac at0014 = ╱eb╱;╱ // 0x496 @0x14
0x0482…04ac at0015 = ╱4a╱J╱ // 0x497 @0x15
0x0482…04ac at0016 = ╱31╱1╱ // 0x498 @0x16
0x0482…04ac at0017 = ╱dc╱=╱ // 0x499 @0x17
0x0482…04ac at0018 = ╱48╱H╱ // 0x49a @0x18
0x0482…04ac at0019 = ╱e2╱+╱ // 0x49b @0x19
0x0482…04ac at001a = ╱45╱E╱ // 0x49c @0x1a
0x0482…04ac at001b = ╱eb╱;╱ // 0x49d @0x1b
0x0482…04ac at001c = ╱4a╱J╱ // 0x49e @0x1c
0x0482…04ac at001d = ╱32╱2╱ // 0x49f @0x1d
0x0482…04ac at001e = ╱dc╱=╱ // 0x4a0 @0x1e
0x0482…04ac at001f = ╱48╱H╱ // 0x4a1 @0x1f
0x0482…04ac at0020 = ╱e2╱+╱ // 0x4a2 @0x20
0x0482…04ac at0021 = ╱47╱G╱ // 0x4a3 @0x21
0x0482…04ac at0022 = ╱eb╱;╱ // 0x4a4 @0x22
0x0482…04ac at0023 = ╱4a╱J╱ // 0x4a5 @0x23
0x0482…04ac at0024 = ╱33╱3╱ // 0x4a6 @0x24
0x0482…04ac at0025 = ╱dc╱=╱ // 0x4a7 @0x25
0x0482…04ac at0026 = ╱48╱H╱ // 0x4a8 @0x26
0x0482…04ac at0027 = ╱e2╱+╱ // 0x4a9 @0x27
0x0482…04ac at0028 = ╱56╱V╱ // 0x4aa @0x28
0x0482…04ac at0029 = EOL // 0x4ab @0x29
0x0482…04ac }
0x04ac…04f5 924c 0450 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)
0x04ac…04f5 LineComalBin {
0x04ac…04f5 ptr = 0x924c // 0x4ac @0x0
0x04ac…04f5 lno = 0x01c2 // 0x4ae @0x2
0x04ac…04f5 at0004 = ╱aa╱ PUT ╱ // 0x4b0 @0x4
0x04ac…04f5 at0005 = ╱4b╱K╱ // 0x4b1 @0x5
0x04ac…04f5 at0006 = ╱39╱9╱ // 0x4b2 @0x6
0x04ac…04f5 at0007 = ╱ef╱$╱ // 0x4b3 @0x7
0x04ac…04f5 at0008 = ╱ec╱,╱ // 0x4b4 @0x8
0x04ac…04f5 at0009 = ╱49╱I╱ // 0x4b5 @0x9
0x04ac…04f5 at000a = ╱f0╱:╱ // 0x4b6 @0xa
0x04ac…04f5 at000b = ╱55╱U╱ // 0x4b7 @0xb
0x04ac…04f5 at000c = ╱ed╱(╱ // 0x4b8 @0xc
0x04ac…04f5 at000d = ╱48╱H╱ // 0x4b9 @0xd
0x04ac…04f5 at000e = ╱ec╱,╱ // 0x4ba @0xe
0x04ac…04f5 at000f = ╱45╱E╱ // 0x4bb @0xf
0x04ac…04f5 at0010 = ╱ee╱)╱ // 0x4bc @0x10
0x04ac…04f5 at0011 = ╱ec╱,╱ // 0x4bd @0x11
0x04ac…04f5 at0012 = ╱55╱U╱ // 0x4be @0x12
0x04ac…04f5 at0013 = ╱ed╱(╱ // 0x4bf @0x13
0x04ac…04f5 at0014 = ╱48╱H╱ // 0x4c0 @0x14
0x04ac…04f5 at0015 = ╱ec╱,╱ // 0x4c1 @0x15
0x04ac…04f5 at0016 = ╱47╱G╱ // 0x4c2 @0x16
0x04ac…04f5 at0017 = ╱ee╱)╱ // 0x4c3 @0x17
0x04ac…04f5 at0018 = ╱ec╱,╱ // 0x4c4 @0x18
0x04ac…04f5 at0019 = ╱55╱U╱ // 0x4c5 @0x19
0x04ac…04f5 at001a = ╱ed╱(╱ // 0x4c6 @0x1a
0x04ac…04f5 at001b = ╱4a╱J╱ // 0x4c7 @0x1b
0x04ac…04f5 at001c = ╱31╱1╱ // 0x4c8 @0x1c
0x04ac…04f5 at001d = ╱ec╱,╱ // 0x4c9 @0x1d
0x04ac…04f5 at001e = ╱45╱E╱ // 0x4ca @0x1e
0x04ac…04f5 at001f = ╱ee╱)╱ // 0x4cb @0x1f
0x04ac…04f5 at0020 = ╱ec╱,╱ // 0x4cc @0x20
0x04ac…04f5 at0021 = ╱55╱U╱ // 0x4cd @0x21
0x04ac…04f5 at0022 = ╱ed╱(╱ // 0x4ce @0x22
0x04ac…04f5 at0023 = ╱4a╱J╱ // 0x4cf @0x23
0x04ac…04f5 at0024 = ╱31╱1╱ // 0x4d0 @0x24
0x04ac…04f5 at0025 = ╱ec╱,╱ // 0x4d1 @0x25
0x04ac…04f5 at0026 = ╱47╱G╱ // 0x4d2 @0x26
0x04ac…04f5 at0027 = ╱ee╱)╱ // 0x4d3 @0x27
0x04ac…04f5 at0028 = ╱ec╱,╱ // 0x4d4 @0x28
0x04ac…04f5 at0029 = ╱55╱U╱ // 0x4d5 @0x29
0x04ac…04f5 at002a = ╱ed╱(╱ // 0x4d6 @0x2a
0x04ac…04f5 at002b = ╱4a╱J╱ // 0x4d7 @0x2b
0x04ac…04f5 at002c = ╱32╱2╱ // 0x4d8 @0x2c
0x04ac…04f5 at002d = ╱ec╱,╱ // 0x4d9 @0x2d
0x04ac…04f5 at002e = ╱45╱E╱ // 0x4da @0x2e
0x04ac…04f5 at002f = ╱ee╱)╱ // 0x4db @0x2f
0x04ac…04f5 at0030 = ╱ec╱,╱ // 0x4dc @0x30
0x04ac…04f5 at0031 = ╱55╱U╱ // 0x4dd @0x31
0x04ac…04f5 at0032 = ╱ed╱(╱ // 0x4de @0x32
0x04ac…04f5 at0033 = ╱4a╱J╱ // 0x4df @0x33
0x04ac…04f5 at0034 = ╱32╱2╱ // 0x4e0 @0x34
0x04ac…04f5 at0035 = ╱ec╱,╱ // 0x4e1 @0x35
0x04ac…04f5 at0036 = ╱47╱G╱ // 0x4e2 @0x36
0x04ac…04f5 at0037 = ╱ee╱)╱ // 0x4e3 @0x37
0x04ac…04f5 at0038 = ╱ec╱,╱ // 0x4e4 @0x38
0x04ac…04f5 at0039 = ╱55╱U╱ // 0x4e5 @0x39
0x04ac…04f5 at003a = ╱ed╱(╱ // 0x4e6 @0x3a
0x04ac…04f5 at003b = ╱4a╱J╱ // 0x4e7 @0x3b
0x04ac…04f5 at003c = ╱33╱3╱ // 0x4e8 @0x3c
0x04ac…04f5 at003d = ╱ec╱,╱ // 0x4e9 @0x3d
0x04ac…04f5 at003e = ╱45╱E╱ // 0x4ea @0x3e
0x04ac…04f5 at003f = ╱ee╱)╱ // 0x4eb @0x3f
0x04ac…04f5 at0040 = ╱ec╱,╱ // 0x4ec @0x40
0x04ac…04f5 at0041 = ╱55╱U╱ // 0x4ed @0x41
0x04ac…04f5 at0042 = ╱ed╱(╱ // 0x4ee @0x42
0x04ac…04f5 at0043 = ╱4a╱J╱ // 0x4ef @0x43
0x04ac…04f5 at0044 = ╱33╱3╱ // 0x4f0 @0x44
0x04ac…04f5 at0045 = ╱ec╱,╱ // 0x4f1 @0x45
0x04ac…04f5 at0046 = ╱47╱G╱ // 0x4f2 @0x46
0x04ac…04f5 at0047 = ╱ee╱)╱ // 0x4f3 @0x47
0x04ac…04f5 at0048 = EOL // 0x4f4 @0x48
0x04ac…04f5 }
0x04f5…0508 925f 0460 EXEC FEJL(G,G,K9$)
0x04f5…0508 LineComalBin {
0x04f5…0508 ptr = 0x925f // 0x4f5 @0x0
0x04f5…0508 lno = 0x01cc // 0x4f7 @0x2
0x04f5…0508 at0004 = ╱9d╱ EXEC ╱ // 0x4f9 @0x4
0x04f5…0508 at0005 = ╱46╱F╱ // 0x4fa @0x5
0x04f5…0508 at0006 = ╱45╱E╱ // 0x4fb @0x6
0x04f5…0508 at0007 = ╱4a╱J╱ // 0x4fc @0x7
0x04f5…0508 at0008 = ╱4c╱L╱ // 0x4fd @0x8
0x04f5…0508 at0009 = ╱ed╱(╱ // 0x4fe @0x9
0x04f5…0508 at000a = ╱47╱G╱ // 0x4ff @0xa
0x04f5…0508 at000b = ╱ec╱,╱ // 0x500 @0xb
0x04f5…0508 at000c = ╱47╱G╱ // 0x501 @0xc
0x04f5…0508 at000d = ╱ec╱,╱ // 0x502 @0xd
0x04f5…0508 at000e = ╱4b╱K╱ // 0x503 @0xe
0x04f5…0508 at000f = ╱39╱9╱ // 0x504 @0xf
0x04f5…0508 at0010 = ╱ef╱$╱ // 0x505 @0x10
0x04f5…0508 at0011 = ╱ee╱)╱ // 0x506 @0x11
0x04f5…0508 at0012 = EOL // 0x507 @0x12
0x04f5…0508 }
0x0508…050f 9266 0470 NEXT I
0x0508…050f LineComalBin {
0x0508…050f ptr = 0x9266 // 0x508 @0x0
0x0508…050f lno = 0x01d6 // 0x50a @0x2
0x0508…050f at0004 = ╱84╱ NEXT ╱ // 0x50c @0x4
0x0508…050f at0005 = ╱49╱I╱ // 0x50d @0x5
0x0508…050f at0006 = EOL // 0x50e @0x6
0x0508…050f }
0x050f…0515 926c 0480 ENDPROC
0x050f…0515 LineComalBin {
0x050f…0515 ptr = 0x926c // 0x50f @0x0
0x050f…0515 lno = 0x01e0 // 0x511 @0x2
0x050f…0515 at0004 = ╱9f╱ ENDPROC ╱ // 0x513 @0x4
0x050f…0515 at0005 = EOL // 0x514 @0x5
0x050f…0515 }
0x0515…053a 9291 0490 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x0515…053a LineComalBin {
0x0515…053a ptr = 0x9291 // 0x515 @0x0
0x0515…053a lno = 0x01ea // 0x517 @0x2
0x0515…053a at0004 = ╱9e╱ PROC ╱ // 0x519 @0x4
0x0515…053a at0005 = ╱46╱F╱ // 0x51a @0x5
0x0515…053a at0006 = ╱49╱I╱ // 0x51b @0x6
0x0515…053a at0007 = ╱4e╱N╱ // 0x51c @0x7
0x0515…053a at0008 = ╱44╱D╱ // 0x51d @0x8
0x0515…053a at0009 = ╱50╱P╱ // 0x51e @0x9
0x0515…053a at000a = ╱4f╱O╱ // 0x51f @0xa
0x0515…053a at000b = ╱53╱S╱ // 0x520 @0xb
0x0515…053a at000c = ╱54╱T╱ // 0x521 @0xc
0x0515…053a at000d = ╱ed╱(╱ // 0x522 @0xd
0x0515…053a at000e = ╱54╱T╱ // 0x523 @0xe
0x0515…053a at000f = ╱41╱A╱ // 0x524 @0xf
0x0515…053a at0010 = ╱42╱B╱ // 0x525 @0x10
0x0515…053a at0011 = ╱31╱1╱ // 0x526 @0x11
0x0515…053a at0012 = ╱ec╱,╱ // 0x527 @0x12
0x0515…053a at0013 = ╱4d╱M╱ // 0x528 @0x13
0x0515…053a at0014 = ╱41╱A╱ // 0x529 @0x14
0x0515…053a at0015 = ╱4e╱N╱ // 0x52a @0x15
0x0515…053a at0016 = ╱54╱T╱ // 0x52b @0x16
0x0515…053a at0017 = ╱31╱1╱ // 0x52c @0x17
0x0515…053a at0018 = ╱ec╱,╱ // 0x52d @0x18
0x0515…053a at0019 = ╱4e╱N╱ // 0x52e @0x19
0x0515…053a at001a = ╱5c╱Ø╱ // 0x52f @0x1a
0x0515…053a at001b = ╱47╱G╱ // 0x530 @0x1b
0x0515…053a at001c = ╱4c╱L╱ // 0x531 @0x1c
0x0515…053a at001d = ╱31╱1╱ // 0x532 @0x1d
0x0515…053a at001e = ╱ec╱,╱ // 0x533 @0x1e
0x0515…053a at001f = ╱50╱P╱ // 0x534 @0x1f
0x0515…053a at0020 = ╱49╱I╱ // 0x535 @0x20
0x0515…053a at0021 = ╱4c╱L╱ // 0x536 @0x21
0x0515…053a at0022 = ╱33╱3╱ // 0x537 @0x22
0x0515…053a at0023 = ╱ee╱)╱ // 0x538 @0x23
0x0515…053a at0024 = EOL // 0x539 @0x24
0x0515…053a }
0x053a…055c 92b3 0500 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x053a…055c LineComalBin {
0x053a…055c ptr = 0x92b3 // 0x53a @0x0
0x053a…055c lno = 0x01f4 // 0x53c @0x2
0x053a…055c at0004 = ╱50╱P╱ // 0x53e @0x4
0x053a…055c at0005 = ╱49╱I╱ // 0x53f @0x5
0x053a…055c at0006 = ╱4c╱L╱ // 0x540 @0x6
0x053a…055c at0007 = ╱31╱1╱ // 0x541 @0x7
0x053a…055c at0008 = ╱dc╱=╱ // 0x542 @0x8
0x053a…055c at0009 = ╱4d╱M╱ // 0x543 @0x9
0x053a…055c at000a = ╱41╱A╱ // 0x544 @0xa
0x053a…055c at000b = ╱4e╱N╱ // 0x545 @0xb
0x053a…055c at000c = ╱54╱T╱ // 0x546 @0xc
0x053a…055c at000d = ╱31╱1╱ // 0x547 @0xd
0x053a…055c at000e = ╱e7╱ DIV ╱ // 0x548 @0xe
0x053a…055c at000f = ╱47╱G╱ // 0x549 @0xf
0x053a…055c at0010 = ╱eb╱;╱ // 0x54a @0x10
0x053a…055c at0011 = ╱50╱P╱ // 0x54b @0x11
0x053a…055c at0012 = ╱49╱I╱ // 0x54c @0x12
0x053a…055c at0013 = ╱4c╱L╱ // 0x54d @0x13
0x053a…055c at0014 = ╱33╱3╱ // 0x54e @0x14
0x053a…055c at0015 = ╱dc╱=╱ // 0x54f @0x15
0x053a…055c at0016 = ╱50╱P╱ // 0x550 @0x16
0x053a…055c at0017 = ╱49╱I╱ // 0x551 @0x17
0x053a…055c at0018 = ╱4c╱L╱ // 0x552 @0x18
0x053a…055c at0019 = ╱31╱1╱ // 0x553 @0x19
0x053a…055c at001a = ╱eb╱;╱ // 0x554 @0x1a
0x053a…055c at001b = ╱43╱C╱ // 0x555 @0x1b
0x053a…055c at001c = ╱45╱E╱ // 0x556 @0x1c
0x053a…055c at001d = ╱4b╱K╱ // 0x557 @0x1d
0x053a…055c at001e = ╱53╱S╱ // 0x558 @0x1e
0x053a…055c at001f = ╱dc╱=╱ // 0x559 @0x1f
0x053a…055c at0020 = ╱45╱E╱ // 0x55a @0x20
0x053a…055c at0021 = EOL // 0x55b @0x21
0x053a…055c }
0x055c…0562 92b9 0510 REPEAT
0x055c…0562 LineComalBin {
0x055c…0562 ptr = 0x92b9 // 0x55c @0x0
0x055c…0562 lno = 0x01fe // 0x55e @0x2
0x055c…0562 at0004 = ╱97╱ REPEAT ╱ // 0x560 @0x4
0x055c…0562 at0005 = EOL // 0x561 @0x5
0x055c…0562 }
0x0562…0583 92da 0520 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT
0x0562…0583 LineComalBin {
0x0562…0583 ptr = 0x92da // 0x562 @0x0
0x0562…0583 lno = 0x0208 // 0x564 @0x2
0x0562…0583 at0004 = ╱82╱ IF ╱ // 0x566 @0x4
0x0562…0583 at0005 = ╱4e╱N╱ // 0x567 @0x5
0x0562…0583 at0006 = ╱5c╱Ø╱ // 0x568 @0x6
0x0562…0583 at0007 = ╱47╱G╱ // 0x569 @0x7
0x0562…0583 at0008 = ╱4c╱L╱ // 0x56a @0x8
0x0562…0583 at0009 = ╱31╱1╱ // 0x56b @0x9
0x0562…0583 at000a = ╱dc╱=╱ // 0x56c @0xa
0x0562…0583 at000b = ╱54╱T╱ // 0x56d @0xb
0x0562…0583 at000c = ╱41╱A╱ // 0x56e @0xc
0x0562…0583 at000d = ╱42╱B╱ // 0x56f @0xd
0x0562…0583 at000e = ╱31╱1╱ // 0x570 @0xe
0x0562…0583 at000f = ╱ed╱(╱ // 0x571 @0xf
0x0562…0583 at0010 = ╱50╱P╱ // 0x572 @0x10
0x0562…0583 at0011 = ╱49╱I╱ // 0x573 @0x11
0x0562…0583 at0012 = ╱4c╱L╱ // 0x574 @0x12
0x0562…0583 at0013 = ╱33╱3╱ // 0x575 @0x13
0x0562…0583 at0014 = ╱ec╱,╱ // 0x576 @0x14
0x0562…0583 at0015 = ╱45╱E╱ // 0x577 @0x15
0x0562…0583 at0016 = ╱ee╱)╱ // 0x578 @0x16
0x0562…0583 at0017 = ╱db╱ OR ╱ // 0x579 @0x17
0x0562…0583 at0018 = ╱50╱P╱ // 0x57a @0x18
0x0562…0583 at0019 = ╱49╱I╱ // 0x57b @0x19
0x0562…0583 at001a = ╱4c╱L╱ // 0x57c @0x1a
0x0562…0583 at001b = ╱31╱1╱ // 0x57d @0x1b
0x0562…0583 at001c = ╱dc╱=╱ // 0x57e @0x1c
0x0562…0583 at001d = ╱45╱E╱ // 0x57f @0x1d
0x0562…0583 at001e = ╱b6╱ THEN ╱ // 0x580 @0x1e
0x0562…0583 at001f = ╱99╱ EXIT ╱ // 0x581 @0x1f
0x0562…0583 at0020 = EOL // 0x582 @0x20
0x0562…0583 }
0x0583…05c1 9318 0530 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E)))
0x0583…05c1 LineComalBin {
0x0583…05c1 ptr = 0x9318 // 0x583 @0x0
0x0583…05c1 lno = 0x0212 // 0x585 @0x2
0x0583…05c1 at0004 = ╱50╱P╱ // 0x587 @0x4
0x0583…05c1 at0005 = ╱49╱I╱ // 0x588 @0x5
0x0583…05c1 at0006 = ╱4c╱L╱ // 0x589 @0x6
0x0583…05c1 at0007 = ╱31╱1╱ // 0x58a @0x7
0x0583…05c1 at0008 = ╱dc╱=╱ // 0x58b @0x8
0x0583…05c1 at0009 = ╱ed╱(╱ // 0x58c @0x9
0x0583…05c1 at000a = ╱50╱P╱ // 0x58d @0xa
0x0583…05c1 at000b = ╱49╱I╱ // 0x58e @0xb
0x0583…05c1 at000c = ╱4c╱L╱ // 0x58f @0xc
0x0583…05c1 at000d = ╱31╱1╱ // 0x590 @0xd
0x0583…05c1 at000e = ╱e2╱+╱ // 0x591 @0xe
0x0583…05c1 at000f = ╱45╱E╱ // 0x592 @0xf
0x0583…05c1 at0010 = ╱ee╱)╱ // 0x593 @0x10
0x0583…05c1 at0011 = ╱e7╱ DIV ╱ // 0x594 @0x11
0x0583…05c1 at0012 = ╱47╱G╱ // 0x595 @0x12
0x0583…05c1 at0013 = ╱eb╱;╱ // 0x596 @0x13
0x0583…05c1 at0014 = ╱50╱P╱ // 0x597 @0x14
0x0583…05c1 at0015 = ╱49╱I╱ // 0x598 @0x15
0x0583…05c1 at0016 = ╱4c╱L╱ // 0x599 @0x16
0x0583…05c1 at0017 = ╱33╱3╱ // 0x59a @0x17
0x0583…05c1 at0018 = ╱dc╱=╱ // 0x59b @0x18
0x0583…05c1 at0019 = ╱50╱P╱ // 0x59c @0x19
0x0583…05c1 at001a = ╱49╱I╱ // 0x59d @0x1a
0x0583…05c1 at001b = ╱4c╱L╱ // 0x59e @0x1b
0x0583…05c1 at001c = ╱33╱3╱ // 0x59f @0x1c
0x0583…05c1 at001d = ╱e2╱+╱ // 0x5a0 @0x1d
0x0583…05c1 at001e = ╱50╱P╱ // 0x5a1 @0x1e
0x0583…05c1 at001f = ╱49╱I╱ // 0x5a2 @0x1f
0x0583…05c1 at0020 = ╱4c╱L╱ // 0x5a3 @0x20
0x0583…05c1 at0021 = ╱31╱1╱ // 0x5a4 @0x21
0x0583…05c1 at0022 = ╱e4╱*╱ // 0x5a5 @0x22
0x0583…05c1 at0023 = ╱ed╱(╱ // 0x5a6 @0x23
0x0583…05c1 at0024 = ╱45╱E╱ // 0x5a7 @0x24
0x0583…05c1 at0025 = ╱e3╱-╱ // 0x5a8 @0x25
0x0583…05c1 at0026 = ╱47╱G╱ // 0x5a9 @0x26
0x0583…05c1 at0027 = ╱e4╱*╱ // 0x5aa @0x27
0x0583…05c1 at0028 = ╱ed╱(╱ // 0x5ab @0x28
0x0583…05c1 at0029 = ╱4e╱N╱ // 0x5ac @0x29
0x0583…05c1 at002a = ╱5c╱Ø╱ // 0x5ad @0x2a
0x0583…05c1 at002b = ╱47╱G╱ // 0x5ae @0x2b
0x0583…05c1 at002c = ╱4c╱L╱ // 0x5af @0x2c
0x0583…05c1 at002d = ╱31╱1╱ // 0x5b0 @0x2d
0x0583…05c1 at002e = ╱dd╱<╱ // 0x5b1 @0x2e
0x0583…05c1 at002f = ╱54╱T╱ // 0x5b2 @0x2f
0x0583…05c1 at0030 = ╱41╱A╱ // 0x5b3 @0x30
0x0583…05c1 at0031 = ╱42╱B╱ // 0x5b4 @0x31
0x0583…05c1 at0032 = ╱31╱1╱ // 0x5b5 @0x32
0x0583…05c1 at0033 = ╱ed╱(╱ // 0x5b6 @0x33
0x0583…05c1 at0034 = ╱50╱P╱ // 0x5b7 @0x34
0x0583…05c1 at0035 = ╱49╱I╱ // 0x5b8 @0x35
0x0583…05c1 at0036 = ╱4c╱L╱ // 0x5b9 @0x36
0x0583…05c1 at0037 = ╱33╱3╱ // 0x5ba @0x37
0x0583…05c1 at0038 = ╱ec╱,╱ // 0x5bb @0x38
0x0583…05c1 at0039 = ╱45╱E╱ // 0x5bc @0x39
0x0583…05c1 at003a = ╱ee╱)╱ // 0x5bd @0x3a
0x0583…05c1 at003b = ╱ee╱)╱ // 0x5be @0x3b
0x0583…05c1 at003c = ╱ee╱)╱ // 0x5bf @0x3c
0x0583…05c1 at003d = EOL // 0x5c0 @0x3d
0x0583…05c1 }
0x05c1…05d4 932b 0540 IF PIL3<E THEN PIL3=E
0x05c1…05d4 LineComalBin {
0x05c1…05d4 ptr = 0x932b // 0x5c1 @0x0
0x05c1…05d4 lno = 0x021c // 0x5c3 @0x2
0x05c1…05d4 at0004 = ╱82╱ IF ╱ // 0x5c5 @0x4
0x05c1…05d4 at0005 = ╱50╱P╱ // 0x5c6 @0x5
0x05c1…05d4 at0006 = ╱49╱I╱ // 0x5c7 @0x6
0x05c1…05d4 at0007 = ╱4c╱L╱ // 0x5c8 @0x7
0x05c1…05d4 at0008 = ╱33╱3╱ // 0x5c9 @0x8
0x05c1…05d4 at0009 = ╱dd╱<╱ // 0x5ca @0x9
0x05c1…05d4 at000a = ╱45╱E╱ // 0x5cb @0xa
0x05c1…05d4 at000b = ╱b6╱ THEN ╱ // 0x5cc @0xb
0x05c1…05d4 at000c = ╱50╱P╱ // 0x5cd @0xc
0x05c1…05d4 at000d = ╱49╱I╱ // 0x5ce @0xd
0x05c1…05d4 at000e = ╱4c╱L╱ // 0x5cf @0xe
0x05c1…05d4 at000f = ╱33╱3╱ // 0x5d0 @0xf
0x05c1…05d4 at0010 = ╱dc╱=╱ // 0x5d1 @0x10
0x05c1…05d4 at0011 = ╱45╱E╱ // 0x5d2 @0x11
0x05c1…05d4 at0012 = EOL // 0x5d3 @0x12
0x05c1…05d4 }
0x05d4…05ef 9346 0550 IF PIL3>MANT1 THEN PIL3=MANT1
0x05d4…05ef LineComalBin {
0x05d4…05ef ptr = 0x9346 // 0x5d4 @0x0
0x05d4…05ef lno = 0x0226 // 0x5d6 @0x2
0x05d4…05ef at0004 = ╱82╱ IF ╱ // 0x5d8 @0x4
0x05d4…05ef at0005 = ╱50╱P╱ // 0x5d9 @0x5
0x05d4…05ef at0006 = ╱49╱I╱ // 0x5da @0x6
0x05d4…05ef at0007 = ╱4c╱L╱ // 0x5db @0x7
0x05d4…05ef at0008 = ╱33╱3╱ // 0x5dc @0x8
0x05d4…05ef at0009 = ╱de╱>╱ // 0x5dd @0x9
0x05d4…05ef at000a = ╱4d╱M╱ // 0x5de @0xa
0x05d4…05ef at000b = ╱41╱A╱ // 0x5df @0xb
0x05d4…05ef at000c = ╱4e╱N╱ // 0x5e0 @0xc
0x05d4…05ef at000d = ╱54╱T╱ // 0x5e1 @0xd
0x05d4…05ef at000e = ╱31╱1╱ // 0x5e2 @0xe
0x05d4…05ef at000f = ╱b6╱ THEN ╱ // 0x5e3 @0xf
0x05d4…05ef at0010 = ╱50╱P╱ // 0x5e4 @0x10
0x05d4…05ef at0011 = ╱49╱I╱ // 0x5e5 @0x11
0x05d4…05ef at0012 = ╱4c╱L╱ // 0x5e6 @0x12
0x05d4…05ef at0013 = ╱33╱3╱ // 0x5e7 @0x13
0x05d4…05ef at0014 = ╱dc╱=╱ // 0x5e8 @0x14
0x05d4…05ef at0015 = ╱4d╱M╱ // 0x5e9 @0x15
0x05d4…05ef at0016 = ╱41╱A╱ // 0x5ea @0x16
0x05d4…05ef at0017 = ╱4e╱N╱ // 0x5eb @0x17
0x05d4…05ef at0018 = ╱54╱T╱ // 0x5ec @0x18
0x05d4…05ef at0019 = ╱31╱1╱ // 0x5ed @0x19
0x05d4…05ef at001a = EOL // 0x5ee @0x1a
0x05d4…05ef }
0x05ef…05fb 9352 0560 UNTIL PIL1=B
0x05ef…05fb LineComalBin {
0x05ef…05fb ptr = 0x9352 // 0x5ef @0x0
0x05ef…05fb lno = 0x0230 // 0x5f1 @0x2
0x05ef…05fb at0004 = ╱98╱ UNTIL ╱ // 0x5f3 @0x4
0x05ef…05fb at0005 = ╱50╱P╱ // 0x5f4 @0x5
0x05ef…05fb at0006 = ╱49╱I╱ // 0x5f5 @0x6
0x05ef…05fb at0007 = ╱4c╱L╱ // 0x5f6 @0x7
0x05ef…05fb at0008 = ╱31╱1╱ // 0x5f7 @0x8
0x05ef…05fb at0009 = ╱dc╱=╱ // 0x5f8 @0x9
0x05ef…05fb at000a = ╱42╱B╱ // 0x5f9 @0xa
0x05ef…05fb at000b = EOL // 0x5fa @0xb
0x05ef…05fb }
0x05fb…062c 9383 0570 IF NØGL1>TAB1(PIL3,E) THEN PIL3=PIL3+E*(PIL3<MANT1)
0x05fb…062c LineComalBin {
0x05fb…062c ptr = 0x9383 // 0x5fb @0x0
0x05fb…062c lno = 0x023a // 0x5fd @0x2
0x05fb…062c at0004 = ╱82╱ IF ╱ // 0x5ff @0x4
0x05fb…062c at0005 = ╱4e╱N╱ // 0x600 @0x5
0x05fb…062c at0006 = ╱5c╱Ø╱ // 0x601 @0x6
0x05fb…062c at0007 = ╱47╱G╱ // 0x602 @0x7
0x05fb…062c at0008 = ╱4c╱L╱ // 0x603 @0x8
0x05fb…062c at0009 = ╱31╱1╱ // 0x604 @0x9
0x05fb…062c at000a = ╱de╱>╱ // 0x605 @0xa
0x05fb…062c at000b = ╱54╱T╱ // 0x606 @0xb
0x05fb…062c at000c = ╱41╱A╱ // 0x607 @0xc
0x05fb…062c at000d = ╱42╱B╱ // 0x608 @0xd
0x05fb…062c at000e = ╱31╱1╱ // 0x609 @0xe
0x05fb…062c at000f = ╱ed╱(╱ // 0x60a @0xf
0x05fb…062c at0010 = ╱50╱P╱ // 0x60b @0x10
0x05fb…062c at0011 = ╱49╱I╱ // 0x60c @0x11
0x05fb…062c at0012 = ╱4c╱L╱ // 0x60d @0x12
0x05fb…062c at0013 = ╱33╱3╱ // 0x60e @0x13
0x05fb…062c at0014 = ╱ec╱,╱ // 0x60f @0x14
0x05fb…062c at0015 = ╱45╱E╱ // 0x610 @0x15
0x05fb…062c at0016 = ╱ee╱)╱ // 0x611 @0x16
0x05fb…062c at0017 = ╱b6╱ THEN ╱ // 0x612 @0x17
0x05fb…062c at0018 = ╱50╱P╱ // 0x613 @0x18
0x05fb…062c at0019 = ╱49╱I╱ // 0x614 @0x19
0x05fb…062c at001a = ╱4c╱L╱ // 0x615 @0x1a
0x05fb…062c at001b = ╱33╱3╱ // 0x616 @0x1b
0x05fb…062c at001c = ╱dc╱=╱ // 0x617 @0x1c
0x05fb…062c at001d = ╱50╱P╱ // 0x618 @0x1d
0x05fb…062c at001e = ╱49╱I╱ // 0x619 @0x1e
0x05fb…062c at001f = ╱4c╱L╱ // 0x61a @0x1f
0x05fb…062c at0020 = ╱33╱3╱ // 0x61b @0x20
0x05fb…062c at0021 = ╱e2╱+╱ // 0x61c @0x21
0x05fb…062c at0022 = ╱45╱E╱ // 0x61d @0x22
0x05fb…062c at0023 = ╱e4╱*╱ // 0x61e @0x23
0x05fb…062c at0024 = ╱ed╱(╱ // 0x61f @0x24
0x05fb…062c at0025 = ╱50╱P╱ // 0x620 @0x25
0x05fb…062c at0026 = ╱49╱I╱ // 0x621 @0x26
0x05fb…062c at0027 = ╱4c╱L╱ // 0x622 @0x27
0x05fb…062c at0028 = ╱33╱3╱ // 0x623 @0x28
0x05fb…062c at0029 = ╱dd╱<╱ // 0x624 @0x29
0x05fb…062c at002a = ╱4d╱M╱ // 0x625 @0x2a
0x05fb…062c at002b = ╱41╱A╱ // 0x626 @0x2b
0x05fb…062c at002c = ╱4e╱N╱ // 0x627 @0x2c
0x05fb…062c at002d = ╱54╱T╱ // 0x628 @0x2d
0x05fb…062c at002e = ╱31╱1╱ // 0x629 @0x2e
0x05fb…062c at002f = ╱ee╱)╱ // 0x62a @0x2f
0x05fb…062c at0030 = EOL // 0x62b @0x30
0x05fb…062c }
0x062c…064b 93a2 0580 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B
0x062c…064b LineComalBin {
0x062c…064b ptr = 0x93a2 // 0x62c @0x0
0x062c…064b lno = 0x0244 // 0x62e @0x2
0x062c…064b at0004 = ╱82╱ IF ╱ // 0x630 @0x4
0x062c…064b at0005 = ╱4e╱N╱ // 0x631 @0x5
0x062c…064b at0006 = ╱5c╱Ø╱ // 0x632 @0x6
0x062c…064b at0007 = ╱47╱G╱ // 0x633 @0x7
0x062c…064b at0008 = ╱4c╱L╱ // 0x634 @0x8
0x062c…064b at0009 = ╱31╱1╱ // 0x635 @0x9
0x062c…064b at000a = ╱dc╱=╱ // 0x636 @0xa
0x062c…064b at000b = ╱54╱T╱ // 0x637 @0xb
0x062c…064b at000c = ╱41╱A╱ // 0x638 @0xc
0x062c…064b at000d = ╱42╱B╱ // 0x639 @0xd
0x062c…064b at000e = ╱31╱1╱ // 0x63a @0xe
0x062c…064b at000f = ╱ed╱(╱ // 0x63b @0xf
0x062c…064b at0010 = ╱50╱P╱ // 0x63c @0x10
0x062c…064b at0011 = ╱49╱I╱ // 0x63d @0x11
0x062c…064b at0012 = ╱4c╱L╱ // 0x63e @0x12
0x062c…064b at0013 = ╱33╱3╱ // 0x63f @0x13
0x062c…064b at0014 = ╱ec╱,╱ // 0x640 @0x14
0x062c…064b at0015 = ╱45╱E╱ // 0x641 @0x15
0x062c…064b at0016 = ╱ee╱)╱ // 0x642 @0x16
0x062c…064b at0017 = ╱b6╱ THEN ╱ // 0x643 @0x17
0x062c…064b at0018 = ╱43╱C╱ // 0x644 @0x18
0x062c…064b at0019 = ╱45╱E╱ // 0x645 @0x19
0x062c…064b at001a = ╱4b╱K╱ // 0x646 @0x1a
0x062c…064b at001b = ╱53╱S╱ // 0x647 @0x1b
0x062c…064b at001c = ╱dc╱=╱ // 0x648 @0x1c
0x062c…064b at001d = ╱42╱B╱ // 0x649 @0x1d
0x062c…064b at001e = EOL // 0x64a @0x1e
0x062c…064b }
0x064b…0651 93a8 0590 ENDPROC
0x064b…0651 LineComalBin {
0x064b…0651 ptr = 0x93a8 // 0x64b @0x0
0x064b…0651 lno = 0x024e // 0x64d @0x2
0x064b…0651 at0004 = ╱9f╱ ENDPROC ╱ // 0x64f @0x4
0x064b…0651 at0005 = EOL // 0x650 @0x5
0x064b…0651 }
0x0651…0675 (21,) 93cc 0600 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)
0x0651…0675 LineComalBin {
0x0651…0675 ptr = 0x93cc // 0x651 @0x0
0x0651…0675 lno = 0x0258 // 0x653 @0x2
0x0651…0675 at0004 = ╱9e╱ PROC ╱ // 0x655 @0x4
0x0651…0675 at0005 = ╱49╱I╱ // 0x656 @0x5
0x0651…0675 at0006 = ╱4e╱N╱ // 0x657 @0x6
0x0651…0675 at0007 = ╱44╱D╱ // 0x658 @0x7
0x0651…0675 at0008 = ╱53╱S╱ // 0x659 @0x8
0x0651…0675 at0009 = ╱5b╱Æ╱ // 0x65a @0x9
0x0651…0675 at000a = ╱54╱T╱ // 0x65b @0xa
0x0651…0675 at000b = ╱ed╱(╱ // 0x65c @0xb
0x0651…0675 at000c = ╱54╱T╱ // 0x65d @0xc
0x0651…0675 at000d = ╱41╱A╱ // 0x65e @0xd
0x0651…0675 at000e = ╱42╱B╱ // 0x65f @0xe
0x0651…0675 at000f = ╱32╱2╱ // 0x660 @0xf
0x0651…0675 at0010 = ╱ec╱,╱ // 0x661 @0x10
0x0651…0675 at0011 = ╱41╱A╱ // 0x662 @0x11
0x0651…0675 at0012 = ╱4e╱N╱ // 0x663 @0x12
0x0651…0675 at0013 = ╱54╱T╱ // 0x664 @0x13
0x0651…0675 at0014 = ╱41╱A╱ // 0x665 @0x14
0x0651…0675 at0015 = ╱4c╱L╱ // 0x666 @0x15
0x0651…0675 at0016 = ╱32╱2╱ // 0x667 @0x16
0x0651…0675 at0017 = ╱ec╱,╱ // 0x668 @0x17
0x0651…0675 at0018 = ╱4e╱N╱ // 0x669 @0x18
0x0651…0675 at0019 = ╱5c╱Ø╱ // 0x66a @0x19
0x0651…0675 at001a = ╱47╱G╱ // 0x66b @0x1a
0x0651…0675 at001b = ╱4c╱L╱ // 0x66c @0x1b
0x0651…0675 at001c = ╱32╱2╱ // 0x66d @0x1c
0x0651…0675 at001d = ╱ec╱,╱ // 0x66e @0x1d
0x0651…0675 at001e = ╱50╱P╱ // 0x66f @0x1e
0x0651…0675 at001f = ╱49╱I╱ // 0x670 @0x1f
0x0651…0675 at0020 = ╱4c╱L╱ // 0x671 @0x20
0x0651…0675 at0021 = ╱34╱4╱ // 0x672 @0x21
0x0651…0675 at0022 = ╱ee╱)╱ // 0x673 @0x22
0x0651…0675 at0023 = EOL // 0x674 @0x23
0x0651…0675 }
0x0675…0682 93d9 0610 IF CEKS=E THEN
0x0675…0682 LineComalBin {
0x0675…0682 ptr = 0x93d9 // 0x675 @0x0
0x0675…0682 lno = 0x0262 // 0x677 @0x2
0x0675…0682 at0004 = ╱9c╱ IF ╱ // 0x679 @0x4
0x0675…0682 at0005 = ╱43╱C╱ // 0x67a @0x5
0x0675…0682 at0006 = ╱45╱E╱ // 0x67b @0x6
0x0675…0682 at0007 = ╱4b╱K╱ // 0x67c @0x7
0x0675…0682 at0008 = ╱53╱S╱ // 0x67d @0x8
0x0675…0682 at0009 = ╱dc╱=╱ // 0x67e @0x9
0x0675…0682 at000a = ╱45╱E╱ // 0x67f @0xa
0x0675…0682 at000b = ╱b6╱ THEN ╱ // 0x680 @0xb
0x0675…0682 at000c = EOL // 0x681 @0xc
0x0675…0682 }
0x0682…069e 93f5 0620 POSTNR=TAB2(ANTAL2+E,G)
0x0682…069e LineComalBin {
0x0682…069e ptr = 0x93f5 // 0x682 @0x0
0x0682…069e lno = 0x026c // 0x684 @0x2
0x0682…069e at0004 = ╱50╱P╱ // 0x686 @0x4
0x0682…069e at0005 = ╱4f╱O╱ // 0x687 @0x5
0x0682…069e at0006 = ╱53╱S╱ // 0x688 @0x6
0x0682…069e at0007 = ╱54╱T╱ // 0x689 @0x7
0x0682…069e at0008 = ╱4e╱N╱ // 0x68a @0x8
0x0682…069e at0009 = ╱52╱R╱ // 0x68b @0x9
0x0682…069e at000a = ╱dc╱=╱ // 0x68c @0xa
0x0682…069e at000b = ╱54╱T╱ // 0x68d @0xb
0x0682…069e at000c = ╱41╱A╱ // 0x68e @0xc
0x0682…069e at000d = ╱42╱B╱ // 0x68f @0xd
0x0682…069e at000e = ╱32╱2╱ // 0x690 @0xe
0x0682…069e at000f = ╱ed╱(╱ // 0x691 @0xf
0x0682…069e at0010 = ╱41╱A╱ // 0x692 @0x10
0x0682…069e at0011 = ╱4e╱N╱ // 0x693 @0x11
0x0682…069e at0012 = ╱54╱T╱ // 0x694 @0x12
0x0682…069e at0013 = ╱41╱A╱ // 0x695 @0x13
0x0682…069e at0014 = ╱4c╱L╱ // 0x696 @0x14
0x0682…069e at0015 = ╱32╱2╱ // 0x697 @0x15
0x0682…069e at0016 = ╱e2╱+╱ // 0x698 @0x16
0x0682…069e at0017 = ╱45╱E╱ // 0x699 @0x17
0x0682…069e at0018 = ╱ec╱,╱ // 0x69a @0x18
0x0682…069e at0019 = ╱47╱G╱ // 0x69b @0x19
0x0682…069e at001a = ╱ee╱)╱ // 0x69c @0x1a
0x0682…069e at001b = EOL // 0x69d @0x1b
0x0682…069e }
0x069e…06dc (22,) 9433 0630 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E
0x069e…06dc LineComalBin {
0x069e…06dc ptr = 0x9433 // 0x69e @0x0
0x069e…06dc lno = 0x0276 // 0x6a0 @0x2
0x069e…06dc at0004 = ╱82╱ IF ╱ // 0x6a2 @0x4
0x069e…06dc at0005 = ╱4e╱N╱ // 0x6a3 @0x5
0x069e…06dc at0006 = ╱5c╱Ø╱ // 0x6a4 @0x6
0x069e…06dc at0007 = ╱47╱G╱ // 0x6a5 @0x7
0x069e…06dc at0008 = ╱4c╱L╱ // 0x6a6 @0x8
0x069e…06dc at0009 = ╱32╱2╱ // 0x6a7 @0x9
0x069e…06dc at000a = ╱de╱>╱ // 0x6a8 @0xa
0x069e…06dc at000b = ╱54╱T╱ // 0x6a9 @0xb
0x069e…06dc at000c = ╱41╱A╱ // 0x6aa @0xc
0x069e…06dc at000d = ╱42╱B╱ // 0x6ab @0xd
0x069e…06dc at000e = ╱32╱2╱ // 0x6ac @0xe
0x069e…06dc at000f = ╱ed╱(╱ // 0x6ad @0xf
0x069e…06dc at0010 = ╱50╱P╱ // 0x6ae @0x10
0x069e…06dc at0011 = ╱49╱I╱ // 0x6af @0x11
0x069e…06dc at0012 = ╱4c╱L╱ // 0x6b0 @0x12
0x069e…06dc at0013 = ╱34╱4╱ // 0x6b1 @0x13
0x069e…06dc at0014 = ╱ec╱,╱ // 0x6b2 @0x14
0x069e…06dc at0015 = ╱45╱E╱ // 0x6b3 @0x15
0x069e…06dc at0016 = ╱ee╱)╱ // 0x6b4 @0x16
0x069e…06dc at0017 = ╱da╱ AND ╱ // 0x6b5 @0x17
0x069e…06dc at0018 = ╱54╱T╱ // 0x6b6 @0x18
0x069e…06dc at0019 = ╱41╱A╱ // 0x6b7 @0x19
0x069e…06dc at001a = ╱42╱B╱ // 0x6b8 @0x1a
0x069e…06dc at001b = ╱32╱2╱ // 0x6b9 @0x1b
0x069e…06dc at001c = ╱ed╱(╱ // 0x6ba @0x1c
0x069e…06dc at001d = ╱50╱P╱ // 0x6bb @0x1d
0x069e…06dc at001e = ╱49╱I╱ // 0x6bc @0x1e
0x069e…06dc at001f = ╱4c╱L╱ // 0x6bd @0x1f
0x069e…06dc at0020 = ╱34╱4╱ // 0x6be @0x20
0x069e…06dc at0021 = ╱ec╱,╱ // 0x6bf @0x21
0x069e…06dc at0022 = ╱45╱E╱ // 0x6c0 @0x22
0x069e…06dc at0023 = ╱ee╱)╱ // 0x6c1 @0x23
0x069e…06dc at0024 = ╱e1╱<>╱ // 0x6c2 @0x24
0x069e…06dc at0025 = ╱31╱1╱ // 0x6c3 @0x25
0x069e…06dc at0026 = ╱30╱0╱ // 0x6c4 @0x26
0x069e…06dc at0027 = ╱30╱0╱ // 0x6c5 @0x27
0x069e…06dc at0028 = ╱30╱0╱ // 0x6c6 @0x28
0x069e…06dc at0029 = ╱30╱0╱ // 0x6c7 @0x29
0x069e…06dc at002a = ╱30╱0╱ // 0x6c8 @0x2a
0x069e…06dc at002b = ╱30╱0╱ // 0x6c9 @0x2b
0x069e…06dc at002c = ╱fe0024f414╱ // 0x6ca @0x2c
0x069e…06dc at0031 = ╱b6╱ THEN ╱ // 0x6cf @0x31
0x069e…06dc at0032 = ╱50╱P╱ // 0x6d0 @0x32
0x069e…06dc at0033 = ╱49╱I╱ // 0x6d1 @0x33
0x069e…06dc at0034 = ╱4c╱L╱ // 0x6d2 @0x34
0x069e…06dc at0035 = ╱34╱4╱ // 0x6d3 @0x35
0x069e…06dc at0036 = ╱dc╱=╱ // 0x6d4 @0x36
0x069e…06dc at0037 = ╱50╱P╱ // 0x6d5 @0x37
0x069e…06dc at0038 = ╱49╱I╱ // 0x6d6 @0x38
0x069e…06dc at0039 = ╱4c╱L╱ // 0x6d7 @0x39
0x069e…06dc at003a = ╱34╱4╱ // 0x6d8 @0x3a
0x069e…06dc at003b = ╱e2╱+╱ // 0x6d9 @0x3b
0x069e…06dc at003c = ╱45╱E╱ // 0x6da @0x3c
0x069e…06dc at003d = EOL // 0x6db @0x3d
0x069e…06dc }
0x06dc…06f6 944d 0640 FOR I=ANTAL2+E TO PIL4+E STEP -E
0x06dc…06f6 LineComalBin {
0x06dc…06f6 ptr = 0x944d // 0x6dc @0x0
0x06dc…06f6 lno = 0x0280 // 0x6de @0x2
0x06dc…06f6 at0004 = ╱83╱ FOR ╱ // 0x6e0 @0x4
0x06dc…06f6 at0005 = ╱49╱I╱ // 0x6e1 @0x5
0x06dc…06f6 at0006 = ╱dc╱=╱ // 0x6e2 @0x6
0x06dc…06f6 at0007 = ╱41╱A╱ // 0x6e3 @0x7
0x06dc…06f6 at0008 = ╱4e╱N╱ // 0x6e4 @0x8
0x06dc…06f6 at0009 = ╱54╱T╱ // 0x6e5 @0x9
0x06dc…06f6 at000a = ╱41╱A╱ // 0x6e6 @0xa
0x06dc…06f6 at000b = ╱4c╱L╱ // 0x6e7 @0xb
0x06dc…06f6 at000c = ╱32╱2╱ // 0x6e8 @0xc
0x06dc…06f6 at000d = ╱e2╱+╱ // 0x6e9 @0xd
0x06dc…06f6 at000e = ╱45╱E╱ // 0x6ea @0xe
0x06dc…06f6 at000f = ╱b7╱ TO ╱ // 0x6eb @0xf
0x06dc…06f6 at0010 = ╱50╱P╱ // 0x6ec @0x10
0x06dc…06f6 at0011 = ╱49╱I╱ // 0x6ed @0x11
0x06dc…06f6 at0012 = ╱4c╱L╱ // 0x6ee @0x12
0x06dc…06f6 at0013 = ╱34╱4╱ // 0x6ef @0x13
0x06dc…06f6 at0014 = ╱e2╱+╱ // 0x6f0 @0x14
0x06dc…06f6 at0015 = ╱45╱E╱ // 0x6f1 @0x15
0x06dc…06f6 at0016 = ╱b8╱ STEP ╱ // 0x6f2 @0x16
0x06dc…06f6 at0017 = ╱e9╱-╱ // 0x6f3 @0x17
0x06dc…06f6 at0018 = ╱45╱E╱ // 0x6f4 @0x18
0x06dc…06f6 at0019 = EOL // 0x6f5 @0x19
0x06dc…06f6 }
0x06f6…0710 9467 0650 TAB2(I,E)=TAB2(I-E,E)
0x06f6…0710 LineComalBin {
0x06f6…0710 ptr = 0x9467 // 0x6f6 @0x0
0x06f6…0710 lno = 0x028a // 0x6f8 @0x2
0x06f6…0710 at0004 = ╱54╱T╱ // 0x6fa @0x4
0x06f6…0710 at0005 = ╱41╱A╱ // 0x6fb @0x5
0x06f6…0710 at0006 = ╱42╱B╱ // 0x6fc @0x6
0x06f6…0710 at0007 = ╱32╱2╱ // 0x6fd @0x7
0x06f6…0710 at0008 = ╱ed╱(╱ // 0x6fe @0x8
0x06f6…0710 at0009 = ╱49╱I╱ // 0x6ff @0x9
0x06f6…0710 at000a = ╱ec╱,╱ // 0x700 @0xa
0x06f6…0710 at000b = ╱45╱E╱ // 0x701 @0xb
0x06f6…0710 at000c = ╱ee╱)╱ // 0x702 @0xc
0x06f6…0710 at000d = ╱dc╱=╱ // 0x703 @0xd
0x06f6…0710 at000e = ╱54╱T╱ // 0x704 @0xe
0x06f6…0710 at000f = ╱41╱A╱ // 0x705 @0xf
0x06f6…0710 at0010 = ╱42╱B╱ // 0x706 @0x10
0x06f6…0710 at0011 = ╱32╱2╱ // 0x707 @0x11
0x06f6…0710 at0012 = ╱ed╱(╱ // 0x708 @0x12
0x06f6…0710 at0013 = ╱49╱I╱ // 0x709 @0x13
0x06f6…0710 at0014 = ╱e3╱-╱ // 0x70a @0x14
0x06f6…0710 at0015 = ╱45╱E╱ // 0x70b @0x15
0x06f6…0710 at0016 = ╱ec╱,╱ // 0x70c @0x16
0x06f6…0710 at0017 = ╱45╱E╱ // 0x70d @0x17
0x06f6…0710 at0018 = ╱ee╱)╱ // 0x70e @0x18
0x06f6…0710 at0019 = EOL // 0x70f @0x19
0x06f6…0710 }
0x0710…072a 9481 0660 TAB2(I,G)=TAB2(I-E,G)
0x0710…072a LineComalBin {
0x0710…072a ptr = 0x9481 // 0x710 @0x0
0x0710…072a lno = 0x0294 // 0x712 @0x2
0x0710…072a at0004 = ╱54╱T╱ // 0x714 @0x4
0x0710…072a at0005 = ╱41╱A╱ // 0x715 @0x5
0x0710…072a at0006 = ╱42╱B╱ // 0x716 @0x6
0x0710…072a at0007 = ╱32╱2╱ // 0x717 @0x7
0x0710…072a at0008 = ╱ed╱(╱ // 0x718 @0x8
0x0710…072a at0009 = ╱49╱I╱ // 0x719 @0x9
0x0710…072a at000a = ╱ec╱,╱ // 0x71a @0xa
0x0710…072a at000b = ╱47╱G╱ // 0x71b @0xb
0x0710…072a at000c = ╱ee╱)╱ // 0x71c @0xc
0x0710…072a at000d = ╱dc╱=╱ // 0x71d @0xd
0x0710…072a at000e = ╱54╱T╱ // 0x71e @0xe
0x0710…072a at000f = ╱41╱A╱ // 0x71f @0xf
0x0710…072a at0010 = ╱42╱B╱ // 0x720 @0x10
0x0710…072a at0011 = ╱32╱2╱ // 0x721 @0x11
0x0710…072a at0012 = ╱ed╱(╱ // 0x722 @0x12
0x0710…072a at0013 = ╱49╱I╱ // 0x723 @0x13
0x0710…072a at0014 = ╱e3╱-╱ // 0x724 @0x14
0x0710…072a at0015 = ╱45╱E╱ // 0x725 @0x15
0x0710…072a at0016 = ╱ec╱,╱ // 0x726 @0x16
0x0710…072a at0017 = ╱47╱G╱ // 0x727 @0x17
0x0710…072a at0018 = ╱ee╱)╱ // 0x728 @0x18
0x0710…072a at0019 = EOL // 0x729 @0x19
0x0710…072a }
0x072a…0731 9488 0670 NEXT I
0x072a…0731 LineComalBin {
0x072a…0731 ptr = 0x9488 // 0x72a @0x0
0x072a…0731 lno = 0x029e // 0x72c @0x2
0x072a…0731 at0004 = ╱84╱ NEXT ╱ // 0x72e @0x4
0x072a…0731 at0005 = ╱49╱I╱ // 0x72f @0x5
0x072a…0731 at0006 = EOL // 0x730 @0x6
0x072a…0731 }
0x0731…0748 949f 0680 TAB2(PIL4,E)=NØGL2
0x0731…0748 LineComalBin {
0x0731…0748 ptr = 0x949f // 0x731 @0x0
0x0731…0748 lno = 0x02a8 // 0x733 @0x2
0x0731…0748 at0004 = ╱54╱T╱ // 0x735 @0x4
0x0731…0748 at0005 = ╱41╱A╱ // 0x736 @0x5
0x0731…0748 at0006 = ╱42╱B╱ // 0x737 @0x6
0x0731…0748 at0007 = ╱32╱2╱ // 0x738 @0x7
0x0731…0748 at0008 = ╱ed╱(╱ // 0x739 @0x8
0x0731…0748 at0009 = ╱50╱P╱ // 0x73a @0x9
0x0731…0748 at000a = ╱49╱I╱ // 0x73b @0xa
0x0731…0748 at000b = ╱4c╱L╱ // 0x73c @0xb
0x0731…0748 at000c = ╱34╱4╱ // 0x73d @0xc
0x0731…0748 at000d = ╱ec╱,╱ // 0x73e @0xd
0x0731…0748 at000e = ╱45╱E╱ // 0x73f @0xe
0x0731…0748 at000f = ╱ee╱)╱ // 0x740 @0xf
0x0731…0748 at0010 = ╱dc╱=╱ // 0x741 @0x10
0x0731…0748 at0011 = ╱4e╱N╱ // 0x742 @0x11
0x0731…0748 at0012 = ╱5c╱Ø╱ // 0x743 @0x12
0x0731…0748 at0013 = ╱47╱G╱ // 0x744 @0x13
0x0731…0748 at0014 = ╱4c╱L╱ // 0x745 @0x14
0x0731…0748 at0015 = ╱32╱2╱ // 0x746 @0x15
0x0731…0748 at0016 = EOL // 0x747 @0x16
0x0731…0748 }
0x0748…0760 94b7 0690 TAB2(PIL4,G)=POSTNR
0x0748…0760 LineComalBin {
0x0748…0760 ptr = 0x94b7 // 0x748 @0x0
0x0748…0760 lno = 0x02b2 // 0x74a @0x2
0x0748…0760 at0004 = ╱54╱T╱ // 0x74c @0x4
0x0748…0760 at0005 = ╱41╱A╱ // 0x74d @0x5
0x0748…0760 at0006 = ╱42╱B╱ // 0x74e @0x6
0x0748…0760 at0007 = ╱32╱2╱ // 0x74f @0x7
0x0748…0760 at0008 = ╱ed╱(╱ // 0x750 @0x8
0x0748…0760 at0009 = ╱50╱P╱ // 0x751 @0x9
0x0748…0760 at000a = ╱49╱I╱ // 0x752 @0xa
0x0748…0760 at000b = ╱4c╱L╱ // 0x753 @0xb
0x0748…0760 at000c = ╱34╱4╱ // 0x754 @0xc
0x0748…0760 at000d = ╱ec╱,╱ // 0x755 @0xd
0x0748…0760 at000e = ╱47╱G╱ // 0x756 @0xe
0x0748…0760 at000f = ╱ee╱)╱ // 0x757 @0xf
0x0748…0760 at0010 = ╱dc╱=╱ // 0x758 @0x10
0x0748…0760 at0011 = ╱50╱P╱ // 0x759 @0x11
0x0748…0760 at0012 = ╱4f╱O╱ // 0x75a @0x12
0x0748…0760 at0013 = ╱53╱S╱ // 0x75b @0x13
0x0748…0760 at0014 = ╱54╱T╱ // 0x75c @0x14
0x0748…0760 at0015 = ╱4e╱N╱ // 0x75d @0x15
0x0748…0760 at0016 = ╱52╱R╱ // 0x75e @0x16
0x0748…0760 at0017 = EOL // 0x75f @0x17
0x0748…0760 }
0x0760…0774 94cb 0700 ANTAL2=ANTAL2+E
0x0760…0774 LineComalBin {
0x0760…0774 ptr = 0x94cb // 0x760 @0x0
0x0760…0774 lno = 0x02bc // 0x762 @0x2
0x0760…0774 at0004 = ╱41╱A╱ // 0x764 @0x4
0x0760…0774 at0005 = ╱4e╱N╱ // 0x765 @0x5
0x0760…0774 at0006 = ╱54╱T╱ // 0x766 @0x6
0x0760…0774 at0007 = ╱41╱A╱ // 0x767 @0x7
0x0760…0774 at0008 = ╱4c╱L╱ // 0x768 @0x8
0x0760…0774 at0009 = ╱32╱2╱ // 0x769 @0x9
0x0760…0774 at000a = ╱dc╱=╱ // 0x76a @0xa
0x0760…0774 at000b = ╱41╱A╱ // 0x76b @0xb
0x0760…0774 at000c = ╱4e╱N╱ // 0x76c @0xc
0x0760…0774 at000d = ╱54╱T╱ // 0x76d @0xd
0x0760…0774 at000e = ╱41╱A╱ // 0x76e @0xe
0x0760…0774 at000f = ╱4c╱L╱ // 0x76f @0xf
0x0760…0774 at0010 = ╱32╱2╱ // 0x770 @0x10
0x0760…0774 at0011 = ╱e2╱+╱ // 0x771 @0x11
0x0760…0774 at0012 = ╱45╱E╱ // 0x772 @0x12
0x0760…0774 at0013 = EOL // 0x773 @0x13
0x0760…0774 }
0x0774…077a 94d1 0710 ENDIF
0x0774…077a LineComalBin {
0x0774…077a ptr = 0x94d1 // 0x774 @0x0
0x0774…077a lno = 0x02c6 // 0x776 @0x2
0x0774…077a at0004 = ╱9b╱ ENDIF ╱ // 0x778 @0x4
0x0774…077a at0005 = EOL // 0x779 @0x5
0x0774…077a }
0x077a…0780 94d7 0720 ENDPROC
0x077a…0780 LineComalBin {
0x077a…0780 ptr = 0x94d7 // 0x77a @0x0
0x077a…0780 lno = 0x02d0 // 0x77c @0x2
0x077a…0780 at0004 = ╱9f╱ ENDPROC ╱ // 0x77e @0x4
0x077a…0780 at0005 = EOL // 0x77f @0x5
0x077a…0780 }
0x0780…07a6 94fd 0730 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)
0x0780…07a6 LineComalBin {
0x0780…07a6 ptr = 0x94fd // 0x780 @0x0
0x0780…07a6 lno = 0x02da // 0x782 @0x2
0x0780…07a6 at0004 = ╱9e╱ PROC ╱ // 0x784 @0x4
0x0780…07a6 at0005 = ╱53╱S╱ // 0x785 @0x5
0x0780…07a6 at0006 = ╱4c╱L╱ // 0x786 @0x6
0x0780…07a6 at0007 = ╱45╱E╱ // 0x787 @0x7
0x0780…07a6 at0008 = ╱54╱T╱ // 0x788 @0x8
0x0780…07a6 at0009 = ╱50╱P╱ // 0x789 @0x9
0x0780…07a6 at000a = ╱4f╱O╱ // 0x78a @0xa
0x0780…07a6 at000b = ╱53╱S╱ // 0x78b @0xb
0x0780…07a6 at000c = ╱54╱T╱ // 0x78c @0xc
0x0780…07a6 at000d = ╱ed╱(╱ // 0x78d @0xd
0x0780…07a6 at000e = ╱54╱T╱ // 0x78e @0xe
0x0780…07a6 at000f = ╱41╱A╱ // 0x78f @0xf
0x0780…07a6 at0010 = ╱42╱B╱ // 0x790 @0x10
0x0780…07a6 at0011 = ╱33╱3╱ // 0x791 @0x11
0x0780…07a6 at0012 = ╱ec╱,╱ // 0x792 @0x12
0x0780…07a6 at0013 = ╱41╱A╱ // 0x793 @0x13
0x0780…07a6 at0014 = ╱4e╱N╱ // 0x794 @0x14
0x0780…07a6 at0015 = ╱54╱T╱ // 0x795 @0x15
0x0780…07a6 at0016 = ╱41╱A╱ // 0x796 @0x16
0x0780…07a6 at0017 = ╱4c╱L╱ // 0x797 @0x17
0x0780…07a6 at0018 = ╱33╱3╱ // 0x798 @0x18
0x0780…07a6 at0019 = ╱ec╱,╱ // 0x799 @0x19
0x0780…07a6 at001a = ╱4e╱N╱ // 0x79a @0x1a
0x0780…07a6 at001b = ╱5c╱Ø╱ // 0x79b @0x1b
0x0780…07a6 at001c = ╱47╱G╱ // 0x79c @0x1c
0x0780…07a6 at001d = ╱4c╱L╱ // 0x79d @0x1d
0x0780…07a6 at001e = ╱33╱3╱ // 0x79e @0x1e
0x0780…07a6 at001f = ╱ec╱,╱ // 0x79f @0x1f
0x0780…07a6 at0020 = ╱50╱P╱ // 0x7a0 @0x20
0x0780…07a6 at0021 = ╱49╱I╱ // 0x7a1 @0x21
0x0780…07a6 at0022 = ╱4c╱L╱ // 0x7a2 @0x22
0x0780…07a6 at0023 = ╱35╱5╱ // 0x7a3 @0x23
0x0780…07a6 at0024 = ╱ee╱)╱ // 0x7a4 @0x24
0x0780…07a6 at0025 = EOL // 0x7a5 @0x25
0x0780…07a6 }
0x07a6…07b3 950a 0740 IF CEKS=B THEN
0x07a6…07b3 LineComalBin {
0x07a6…07b3 ptr = 0x950a // 0x7a6 @0x0
0x07a6…07b3 lno = 0x02e4 // 0x7a8 @0x2
0x07a6…07b3 at0004 = ╱9c╱ IF ╱ // 0x7aa @0x4
0x07a6…07b3 at0005 = ╱43╱C╱ // 0x7ab @0x5
0x07a6…07b3 at0006 = ╱45╱E╱ // 0x7ac @0x6
0x07a6…07b3 at0007 = ╱4b╱K╱ // 0x7ad @0x7
0x07a6…07b3 at0008 = ╱53╱S╱ // 0x7ae @0x8
0x07a6…07b3 at0009 = ╱dc╱=╱ // 0x7af @0x9
0x07a6…07b3 at000a = ╱42╱B╱ // 0x7b0 @0xa
0x07a6…07b3 at000b = ╱b6╱ THEN ╱ // 0x7b1 @0xb
0x07a6…07b3 at000c = EOL // 0x7b2 @0xc
0x07a6…07b3 }
0x07b3…07cb 9522 0750 POSTNR=TAB3(PIL5,G)
0x07b3…07cb LineComalBin {
0x07b3…07cb ptr = 0x9522 // 0x7b3 @0x0
0x07b3…07cb lno = 0x02ee // 0x7b5 @0x2
0x07b3…07cb at0004 = ╱50╱P╱ // 0x7b7 @0x4
0x07b3…07cb at0005 = ╱4f╱O╱ // 0x7b8 @0x5
0x07b3…07cb at0006 = ╱53╱S╱ // 0x7b9 @0x6
0x07b3…07cb at0007 = ╱54╱T╱ // 0x7ba @0x7
0x07b3…07cb at0008 = ╱4e╱N╱ // 0x7bb @0x8
0x07b3…07cb at0009 = ╱52╱R╱ // 0x7bc @0x9
0x07b3…07cb at000a = ╱dc╱=╱ // 0x7bd @0xa
0x07b3…07cb at000b = ╱54╱T╱ // 0x7be @0xb
0x07b3…07cb at000c = ╱41╱A╱ // 0x7bf @0xc
0x07b3…07cb at000d = ╱42╱B╱ // 0x7c0 @0xd
0x07b3…07cb at000e = ╱33╱3╱ // 0x7c1 @0xe
0x07b3…07cb at000f = ╱ed╱(╱ // 0x7c2 @0xf
0x07b3…07cb at0010 = ╱50╱P╱ // 0x7c3 @0x10
0x07b3…07cb at0011 = ╱49╱I╱ // 0x7c4 @0x11
0x07b3…07cb at0012 = ╱4c╱L╱ // 0x7c5 @0x12
0x07b3…07cb at0013 = ╱35╱5╱ // 0x7c6 @0x13
0x07b3…07cb at0014 = ╱ec╱,╱ // 0x7c7 @0x14
0x07b3…07cb at0015 = ╱47╱G╱ // 0x7c8 @0x15
0x07b3…07cb at0016 = ╱ee╱)╱ // 0x7c9 @0x16
0x07b3…07cb at0017 = EOL // 0x7ca @0x17
0x07b3…07cb }
0x07cb…07e0 9537 0760 FOR I=PIL5 TO ANTAL3-E
0x07cb…07e0 LineComalBin {
0x07cb…07e0 ptr = 0x9537 // 0x7cb @0x0
0x07cb…07e0 lno = 0x02f8 // 0x7cd @0x2
0x07cb…07e0 at0004 = ╱83╱ FOR ╱ // 0x7cf @0x4
0x07cb…07e0 at0005 = ╱49╱I╱ // 0x7d0 @0x5
0x07cb…07e0 at0006 = ╱dc╱=╱ // 0x7d1 @0x6
0x07cb…07e0 at0007 = ╱50╱P╱ // 0x7d2 @0x7
0x07cb…07e0 at0008 = ╱49╱I╱ // 0x7d3 @0x8
0x07cb…07e0 at0009 = ╱4c╱L╱ // 0x7d4 @0x9
0x07cb…07e0 at000a = ╱35╱5╱ // 0x7d5 @0xa
0x07cb…07e0 at000b = ╱b7╱ TO ╱ // 0x7d6 @0xb
0x07cb…07e0 at000c = ╱41╱A╱ // 0x7d7 @0xc
0x07cb…07e0 at000d = ╱4e╱N╱ // 0x7d8 @0xd
0x07cb…07e0 at000e = ╱54╱T╱ // 0x7d9 @0xe
0x07cb…07e0 at000f = ╱41╱A╱ // 0x7da @0xf
0x07cb…07e0 at0010 = ╱4c╱L╱ // 0x7db @0x10
0x07cb…07e0 at0011 = ╱33╱3╱ // 0x7dc @0x11
0x07cb…07e0 at0012 = ╱e3╱-╱ // 0x7dd @0x12
0x07cb…07e0 at0013 = ╱45╱E╱ // 0x7de @0x13
0x07cb…07e0 at0014 = EOL // 0x7df @0x14
0x07cb…07e0 }
0x07e0…07fa 9551 0770 TAB3(I,E)=TAB3(I+E,E)
0x07e0…07fa LineComalBin {
0x07e0…07fa ptr = 0x9551 // 0x7e0 @0x0
0x07e0…07fa lno = 0x0302 // 0x7e2 @0x2
0x07e0…07fa at0004 = ╱54╱T╱ // 0x7e4 @0x4
0x07e0…07fa at0005 = ╱41╱A╱ // 0x7e5 @0x5
0x07e0…07fa at0006 = ╱42╱B╱ // 0x7e6 @0x6
0x07e0…07fa at0007 = ╱33╱3╱ // 0x7e7 @0x7
0x07e0…07fa at0008 = ╱ed╱(╱ // 0x7e8 @0x8
0x07e0…07fa at0009 = ╱49╱I╱ // 0x7e9 @0x9
0x07e0…07fa at000a = ╱ec╱,╱ // 0x7ea @0xa
0x07e0…07fa at000b = ╱45╱E╱ // 0x7eb @0xb
0x07e0…07fa at000c = ╱ee╱)╱ // 0x7ec @0xc
0x07e0…07fa at000d = ╱dc╱=╱ // 0x7ed @0xd
0x07e0…07fa at000e = ╱54╱T╱ // 0x7ee @0xe
0x07e0…07fa at000f = ╱41╱A╱ // 0x7ef @0xf
0x07e0…07fa at0010 = ╱42╱B╱ // 0x7f0 @0x10
0x07e0…07fa at0011 = ╱33╱3╱ // 0x7f1 @0x11
0x07e0…07fa at0012 = ╱ed╱(╱ // 0x7f2 @0x12
0x07e0…07fa at0013 = ╱49╱I╱ // 0x7f3 @0x13
0x07e0…07fa at0014 = ╱e2╱+╱ // 0x7f4 @0x14
0x07e0…07fa at0015 = ╱45╱E╱ // 0x7f5 @0x15
0x07e0…07fa at0016 = ╱ec╱,╱ // 0x7f6 @0x16
0x07e0…07fa at0017 = ╱45╱E╱ // 0x7f7 @0x17
0x07e0…07fa at0018 = ╱ee╱)╱ // 0x7f8 @0x18
0x07e0…07fa at0019 = EOL // 0x7f9 @0x19
0x07e0…07fa }
0x07fa…0814 956b 0780 TAB3(I,G)=TAB3(I+E,G)
0x07fa…0814 LineComalBin {
0x07fa…0814 ptr = 0x956b // 0x7fa @0x0
0x07fa…0814 lno = 0x030c // 0x7fc @0x2
0x07fa…0814 at0004 = ╱54╱T╱ // 0x7fe @0x4
0x07fa…0814 at0005 = ╱41╱A╱ // 0x7ff @0x5
0x07fa…0814 at0006 = ╱42╱B╱ // 0x800 @0x6
0x07fa…0814 at0007 = ╱33╱3╱ // 0x801 @0x7
0x07fa…0814 at0008 = ╱ed╱(╱ // 0x802 @0x8
0x07fa…0814 at0009 = ╱49╱I╱ // 0x803 @0x9
0x07fa…0814 at000a = ╱ec╱,╱ // 0x804 @0xa
0x07fa…0814 at000b = ╱47╱G╱ // 0x805 @0xb
0x07fa…0814 at000c = ╱ee╱)╱ // 0x806 @0xc
0x07fa…0814 at000d = ╱dc╱=╱ // 0x807 @0xd
0x07fa…0814 at000e = ╱54╱T╱ // 0x808 @0xe
0x07fa…0814 at000f = ╱41╱A╱ // 0x809 @0xf
0x07fa…0814 at0010 = ╱42╱B╱ // 0x80a @0x10
0x07fa…0814 at0011 = ╱33╱3╱ // 0x80b @0x11
0x07fa…0814 at0012 = ╱ed╱(╱ // 0x80c @0x12
0x07fa…0814 at0013 = ╱49╱I╱ // 0x80d @0x13
0x07fa…0814 at0014 = ╱e2╱+╱ // 0x80e @0x14
0x07fa…0814 at0015 = ╱45╱E╱ // 0x80f @0x15
0x07fa…0814 at0016 = ╱ec╱,╱ // 0x810 @0x16
0x07fa…0814 at0017 = ╱47╱G╱ // 0x811 @0x17
0x07fa…0814 at0018 = ╱ee╱)╱ // 0x812 @0x18
0x07fa…0814 at0019 = EOL // 0x813 @0x19
0x07fa…0814 }
0x0814…081b 9572 0790 NEXT I
0x0814…081b LineComalBin {
0x0814…081b ptr = 0x9572 // 0x814 @0x0
0x0814…081b lno = 0x0316 // 0x816 @0x2
0x0814…081b at0004 = ╱84╱ NEXT ╱ // 0x818 @0x4
0x0814…081b at0005 = ╱49╱I╱ // 0x819 @0x5
0x0814…081b at0006 = EOL // 0x81a @0x6
0x0814…081b }
0x081b…083b 9592 0800 TAB3(ANTAL3,E)=1000000
0x081b…083b LineComalBin {
0x081b…083b ptr = 0x9592 // 0x81b @0x0
0x081b…083b lno = 0x0320 // 0x81d @0x2
0x081b…083b at0004 = ╱54╱T╱ // 0x81f @0x4
0x081b…083b at0005 = ╱41╱A╱ // 0x820 @0x5
0x081b…083b at0006 = ╱42╱B╱ // 0x821 @0x6
0x081b…083b at0007 = ╱33╱3╱ // 0x822 @0x7
0x081b…083b at0008 = ╱ed╱(╱ // 0x823 @0x8
0x081b…083b at0009 = ╱41╱A╱ // 0x824 @0x9
0x081b…083b at000a = ╱4e╱N╱ // 0x825 @0xa
0x081b…083b at000b = ╱54╱T╱ // 0x826 @0xb
0x081b…083b at000c = ╱41╱A╱ // 0x827 @0xc
0x081b…083b at000d = ╱4c╱L╱ // 0x828 @0xd
0x081b…083b at000e = ╱33╱3╱ // 0x829 @0xe
0x081b…083b at000f = ╱ec╱,╱ // 0x82a @0xf
0x081b…083b at0010 = ╱45╱E╱ // 0x82b @0x10
0x081b…083b at0011 = ╱ee╱)╱ // 0x82c @0x11
0x081b…083b at0012 = ╱dc╱=╱ // 0x82d @0x12
0x081b…083b at0013 = ╱31╱1╱ // 0x82e @0x13
0x081b…083b at0014 = ╱30╱0╱ // 0x82f @0x14
0x081b…083b at0015 = ╱30╱0╱ // 0x830 @0x15
0x081b…083b at0016 = ╱30╱0╱ // 0x831 @0x16
0x081b…083b at0017 = ╱30╱0╱ // 0x832 @0x17
0x081b…083b at0018 = ╱30╱0╱ // 0x833 @0x18
0x081b…083b at0019 = ╱30╱0╱ // 0x834 @0x19
0x081b…083b at001a = ╱fe0024f414╱ // 0x835 @0x1a
0x081b…083b at001f = EOL // 0x83a @0x1f
0x081b…083b }
0x083b…0855 95ac 0810 TAB3(ANTAL3,G)=POSTNR
0x083b…0855 LineComalBin {
0x083b…0855 ptr = 0x95ac // 0x83b @0x0
0x083b…0855 lno = 0x032a // 0x83d @0x2
0x083b…0855 at0004 = ╱54╱T╱ // 0x83f @0x4
0x083b…0855 at0005 = ╱41╱A╱ // 0x840 @0x5
0x083b…0855 at0006 = ╱42╱B╱ // 0x841 @0x6
0x083b…0855 at0007 = ╱33╱3╱ // 0x842 @0x7
0x083b…0855 at0008 = ╱ed╱(╱ // 0x843 @0x8
0x083b…0855 at0009 = ╱41╱A╱ // 0x844 @0x9
0x083b…0855 at000a = ╱4e╱N╱ // 0x845 @0xa
0x083b…0855 at000b = ╱54╱T╱ // 0x846 @0xb
0x083b…0855 at000c = ╱41╱A╱ // 0x847 @0xc
0x083b…0855 at000d = ╱4c╱L╱ // 0x848 @0xd
0x083b…0855 at000e = ╱33╱3╱ // 0x849 @0xe
0x083b…0855 at000f = ╱ec╱,╱ // 0x84a @0xf
0x083b…0855 at0010 = ╱47╱G╱ // 0x84b @0x10
0x083b…0855 at0011 = ╱ee╱)╱ // 0x84c @0x11
0x083b…0855 at0012 = ╱dc╱=╱ // 0x84d @0x12
0x083b…0855 at0013 = ╱50╱P╱ // 0x84e @0x13
0x083b…0855 at0014 = ╱4f╱O╱ // 0x84f @0x14
0x083b…0855 at0015 = ╱53╱S╱ // 0x850 @0x15
0x083b…0855 at0016 = ╱54╱T╱ // 0x851 @0x16
0x083b…0855 at0017 = ╱4e╱N╱ // 0x852 @0x17
0x083b…0855 at0018 = ╱52╱R╱ // 0x853 @0x18
0x083b…0855 at0019 = EOL // 0x854 @0x19
0x083b…0855 }
0x0855…0869 95c0 0820 ANTAL3=ANTAL3-E
0x0855…0869 LineComalBin {
0x0855…0869 ptr = 0x95c0 // 0x855 @0x0
0x0855…0869 lno = 0x0334 // 0x857 @0x2
0x0855…0869 at0004 = ╱41╱A╱ // 0x859 @0x4
0x0855…0869 at0005 = ╱4e╱N╱ // 0x85a @0x5
0x0855…0869 at0006 = ╱54╱T╱ // 0x85b @0x6
0x0855…0869 at0007 = ╱41╱A╱ // 0x85c @0x7
0x0855…0869 at0008 = ╱4c╱L╱ // 0x85d @0x8
0x0855…0869 at0009 = ╱33╱3╱ // 0x85e @0x9
0x0855…0869 at000a = ╱dc╱=╱ // 0x85f @0xa
0x0855…0869 at000b = ╱41╱A╱ // 0x860 @0xb
0x0855…0869 at000c = ╱4e╱N╱ // 0x861 @0xc
0x0855…0869 at000d = ╱54╱T╱ // 0x862 @0xd
0x0855…0869 at000e = ╱41╱A╱ // 0x863 @0xe
0x0855…0869 at000f = ╱4c╱L╱ // 0x864 @0xf
0x0855…0869 at0010 = ╱33╱3╱ // 0x865 @0x10
0x0855…0869 at0011 = ╱e3╱-╱ // 0x866 @0x11
0x0855…0869 at0012 = ╱45╱E╱ // 0x867 @0x12
0x0855…0869 at0013 = EOL // 0x868 @0x13
0x0855…0869 }
0x0869…086f 95c6 0830 ENDIF
0x0869…086f LineComalBin {
0x0869…086f ptr = 0x95c6 // 0x869 @0x0
0x0869…086f lno = 0x033e // 0x86b @0x2
0x0869…086f at0004 = ╱9b╱ ENDIF ╱ // 0x86d @0x4
0x0869…086f at0005 = EOL // 0x86e @0x5
0x0869…086f }
0x086f…0875 95cc 0840 ENDPROC
0x086f…0875 LineComalBin {
0x086f…0875 ptr = 0x95cc // 0x86f @0x0
0x086f…0875 lno = 0x0348 // 0x871 @0x2
0x086f…0875 at0004 = ╱9f╱ ENDPROC ╱ // 0x873 @0x4
0x086f…0875 at0005 = EOL // 0x874 @0x5
0x086f…0875 }
0x0875…088c 95e3 0850 PROC SLETEPOST(NØGLE3)
0x0875…088c LineComalBin {
0x0875…088c ptr = 0x95e3 // 0x875 @0x0
0x0875…088c lno = 0x0352 // 0x877 @0x2
0x0875…088c at0004 = ╱9e╱ PROC ╱ // 0x879 @0x4
0x0875…088c at0005 = ╱53╱S╱ // 0x87a @0x5
0x0875…088c at0006 = ╱4c╱L╱ // 0x87b @0x6
0x0875…088c at0007 = ╱45╱E╱ // 0x87c @0x7
0x0875…088c at0008 = ╱54╱T╱ // 0x87d @0x8
0x0875…088c at0009 = ╱45╱E╱ // 0x87e @0x9
0x0875…088c at000a = ╱50╱P╱ // 0x87f @0xa
0x0875…088c at000b = ╱4f╱O╱ // 0x880 @0xb
0x0875…088c at000c = ╱53╱S╱ // 0x881 @0xc
0x0875…088c at000d = ╱54╱T╱ // 0x882 @0xd
0x0875…088c at000e = ╱ed╱(╱ // 0x883 @0xe
0x0875…088c at000f = ╱4e╱N╱ // 0x884 @0xf
0x0875…088c at0010 = ╱5c╱Ø╱ // 0x885 @0x10
0x0875…088c at0011 = ╱47╱G╱ // 0x886 @0x11
0x0875…088c at0012 = ╱4c╱L╱ // 0x887 @0x12
0x0875…088c at0013 = ╱45╱E╱ // 0x888 @0x13
0x0875…088c at0014 = ╱33╱3╱ // 0x889 @0x14
0x0875…088c at0015 = ╱ee╱)╱ // 0x88a @0x15
0x0875…088c at0016 = EOL // 0x88b @0x16
0x0875…088c }
0x088c…08b5 960c 0860 EXEC FINDPOST(ETAB,MEANTAL,NØGLE3,EPIL3)
0x088c…08b5 LineComalBin {
0x088c…08b5 ptr = 0x960c // 0x88c @0x0
0x088c…08b5 lno = 0x035c // 0x88e @0x2
0x088c…08b5 at0004 = ╱9d╱ EXEC ╱ // 0x890 @0x4
0x088c…08b5 at0005 = ╱46╱F╱ // 0x891 @0x5
0x088c…08b5 at0006 = ╱49╱I╱ // 0x892 @0x6
0x088c…08b5 at0007 = ╱4e╱N╱ // 0x893 @0x7
0x088c…08b5 at0008 = ╱44╱D╱ // 0x894 @0x8
0x088c…08b5 at0009 = ╱50╱P╱ // 0x895 @0x9
0x088c…08b5 at000a = ╱4f╱O╱ // 0x896 @0xa
0x088c…08b5 at000b = ╱53╱S╱ // 0x897 @0xb
0x088c…08b5 at000c = ╱54╱T╱ // 0x898 @0xc
0x088c…08b5 at000d = ╱ed╱(╱ // 0x899 @0xd
0x088c…08b5 at000e = ╱45╱E╱ // 0x89a @0xe
0x088c…08b5 at000f = ╱54╱T╱ // 0x89b @0xf
0x088c…08b5 at0010 = ╱41╱A╱ // 0x89c @0x10
0x088c…08b5 at0011 = ╱42╱B╱ // 0x89d @0x11
0x088c…08b5 at0012 = ╱ec╱,╱ // 0x89e @0x12
0x088c…08b5 at0013 = ╱4d╱M╱ // 0x89f @0x13
0x088c…08b5 at0014 = ╱45╱E╱ // 0x8a0 @0x14
0x088c…08b5 at0015 = ╱41╱A╱ // 0x8a1 @0x15
0x088c…08b5 at0016 = ╱4e╱N╱ // 0x8a2 @0x16
0x088c…08b5 at0017 = ╱54╱T╱ // 0x8a3 @0x17
0x088c…08b5 at0018 = ╱41╱A╱ // 0x8a4 @0x18
0x088c…08b5 at0019 = ╱4c╱L╱ // 0x8a5 @0x19
0x088c…08b5 at001a = ╱ec╱,╱ // 0x8a6 @0x1a
0x088c…08b5 at001b = ╱4e╱N╱ // 0x8a7 @0x1b
0x088c…08b5 at001c = ╱5c╱Ø╱ // 0x8a8 @0x1c
0x088c…08b5 at001d = ╱47╱G╱ // 0x8a9 @0x1d
0x088c…08b5 at001e = ╱4c╱L╱ // 0x8aa @0x1e
0x088c…08b5 at001f = ╱45╱E╱ // 0x8ab @0x1f
0x088c…08b5 at0020 = ╱33╱3╱ // 0x8ac @0x20
0x088c…08b5 at0021 = ╱ec╱,╱ // 0x8ad @0x21
0x088c…08b5 at0022 = ╱45╱E╱ // 0x8ae @0x22
0x088c…08b5 at0023 = ╱50╱P╱ // 0x8af @0x23
0x088c…08b5 at0024 = ╱49╱I╱ // 0x8b0 @0x24
0x088c…08b5 at0025 = ╱4c╱L╱ // 0x8b1 @0x25
0x088c…08b5 at0026 = ╱33╱3╱ // 0x8b2 @0x26
0x088c…08b5 at0027 = ╱ee╱)╱ // 0x8b3 @0x27
0x088c…08b5 at0028 = EOL // 0x8b4 @0x28
0x088c…08b5 }
0x08b5…08c3 961a 0870 IF CEKS=E THEN STOP
0x08b5…08c3 LineComalBin {
0x08b5…08c3 ptr = 0x961a // 0x8b5 @0x0
0x08b5…08c3 lno = 0x0366 // 0x8b7 @0x2
0x08b5…08c3 at0004 = ╱82╱ IF ╱ // 0x8b9 @0x4
0x08b5…08c3 at0005 = ╱43╱C╱ // 0x8ba @0x5
0x08b5…08c3 at0006 = ╱45╱E╱ // 0x8bb @0x6
0x08b5…08c3 at0007 = ╱4b╱K╱ // 0x8bc @0x7
0x08b5…08c3 at0008 = ╱53╱S╱ // 0x8bd @0x8
0x08b5…08c3 at0009 = ╱dc╱=╱ // 0x8be @0x9
0x08b5…08c3 at000a = ╱45╱E╱ // 0x8bf @0xa
0x08b5…08c3 at000b = ╱b6╱ THEN ╱ // 0x8c0 @0xb
0x08b5…08c3 at000c = ╱8d╱ STOP ╱ // 0x8c1 @0xc
0x08b5…08c3 at000d = EOL // 0x8c2 @0xd
0x08b5…08c3 }
0x08c3…08d1 9628 0880 EXEC NULEPOST
0x08c3…08d1 LineComalBin {
0x08c3…08d1 ptr = 0x9628 // 0x8c3 @0x0
0x08c3…08d1 lno = 0x0370 // 0x8c5 @0x2
0x08c3…08d1 at0004 = ╱9d╱ EXEC ╱ // 0x8c7 @0x4
0x08c3…08d1 at0005 = ╱4e╱N╱ // 0x8c8 @0x5
0x08c3…08d1 at0006 = ╱55╱U╱ // 0x8c9 @0x6
0x08c3…08d1 at0007 = ╱4c╱L╱ // 0x8ca @0x7
0x08c3…08d1 at0008 = ╱45╱E╱ // 0x8cb @0x8
0x08c3…08d1 at0009 = ╱50╱P╱ // 0x8cc @0x9
0x08c3…08d1 at000a = ╱4f╱O╱ // 0x8cd @0xa
0x08c3…08d1 at000b = ╱53╱S╱ // 0x8ce @0xb
0x08c3…08d1 at000c = ╱54╱T╱ // 0x8cf @0xc
0x08c3…08d1 at000d = EOL // 0x8d0 @0xd
0x08c3…08d1 }
0x08d1…08df 9636 0890 EXEC GEMEPOST
0x08d1…08df LineComalBin {
0x08d1…08df ptr = 0x9636 // 0x8d1 @0x0
0x08d1…08df lno = 0x037a // 0x8d3 @0x2
0x08d1…08df at0004 = ╱9d╱ EXEC ╱ // 0x8d5 @0x4
0x08d1…08df at0005 = ╱47╱G╱ // 0x8d6 @0x5
0x08d1…08df at0006 = ╱45╱E╱ // 0x8d7 @0x6
0x08d1…08df at0007 = ╱4d╱M╱ // 0x8d8 @0x7
0x08d1…08df at0008 = ╱45╱E╱ // 0x8d9 @0x8
0x08d1…08df at0009 = ╱50╱P╱ // 0x8da @0x9
0x08d1…08df at000a = ╱4f╱O╱ // 0x8db @0xa
0x08d1…08df at000b = ╱53╱S╱ // 0x8dc @0xb
0x08d1…08df at000c = ╱54╱T╱ // 0x8dd @0xc
0x08d1…08df at000d = EOL // 0x8de @0xd
0x08d1…08df }
0x08df…0905 965c 0900 EXEC SLETPOST(ETAB,AENT,NØGLE3,EPIL3)
0x08df…0905 LineComalBin {
0x08df…0905 ptr = 0x965c // 0x8df @0x0
0x08df…0905 lno = 0x0384 // 0x8e1 @0x2
0x08df…0905 at0004 = ╱9d╱ EXEC ╱ // 0x8e3 @0x4
0x08df…0905 at0005 = ╱53╱S╱ // 0x8e4 @0x5
0x08df…0905 at0006 = ╱4c╱L╱ // 0x8e5 @0x6
0x08df…0905 at0007 = ╱45╱E╱ // 0x8e6 @0x7
0x08df…0905 at0008 = ╱54╱T╱ // 0x8e7 @0x8
0x08df…0905 at0009 = ╱50╱P╱ // 0x8e8 @0x9
0x08df…0905 at000a = ╱4f╱O╱ // 0x8e9 @0xa
0x08df…0905 at000b = ╱53╱S╱ // 0x8ea @0xb
0x08df…0905 at000c = ╱54╱T╱ // 0x8eb @0xc
0x08df…0905 at000d = ╱ed╱(╱ // 0x8ec @0xd
0x08df…0905 at000e = ╱45╱E╱ // 0x8ed @0xe
0x08df…0905 at000f = ╱54╱T╱ // 0x8ee @0xf
0x08df…0905 at0010 = ╱41╱A╱ // 0x8ef @0x10
0x08df…0905 at0011 = ╱42╱B╱ // 0x8f0 @0x11
0x08df…0905 at0012 = ╱ec╱,╱ // 0x8f1 @0x12
0x08df…0905 at0013 = ╱41╱A╱ // 0x8f2 @0x13
0x08df…0905 at0014 = ╱45╱E╱ // 0x8f3 @0x14
0x08df…0905 at0015 = ╱4e╱N╱ // 0x8f4 @0x15
0x08df…0905 at0016 = ╱54╱T╱ // 0x8f5 @0x16
0x08df…0905 at0017 = ╱ec╱,╱ // 0x8f6 @0x17
0x08df…0905 at0018 = ╱4e╱N╱ // 0x8f7 @0x18
0x08df…0905 at0019 = ╱5c╱Ø╱ // 0x8f8 @0x19
0x08df…0905 at001a = ╱47╱G╱ // 0x8f9 @0x1a
0x08df…0905 at001b = ╱4c╱L╱ // 0x8fa @0x1b
0x08df…0905 at001c = ╱45╱E╱ // 0x8fb @0x1c
0x08df…0905 at001d = ╱33╱3╱ // 0x8fc @0x1d
0x08df…0905 at001e = ╱ec╱,╱ // 0x8fd @0x1e
0x08df…0905 at001f = ╱45╱E╱ // 0x8fe @0x1f
0x08df…0905 at0020 = ╱50╱P╱ // 0x8ff @0x20
0x08df…0905 at0021 = ╱49╱I╱ // 0x900 @0x21
0x08df…0905 at0022 = ╱4c╱L╱ // 0x901 @0x22
0x08df…0905 at0023 = ╱33╱3╱ // 0x902 @0x23
0x08df…0905 at0024 = ╱ee╱)╱ // 0x903 @0x24
0x08df…0905 at0025 = EOL // 0x904 @0x25
0x08df…0905 }
0x0905…090b 9662 0910 ENDPROC
0x0905…090b LineComalBin {
0x0905…090b ptr = 0x9662 // 0x905 @0x0
0x0905…090b lno = 0x038e // 0x907 @0x2
0x0905…090b at0004 = ╱9f╱ ENDPROC ╱ // 0x909 @0x4
0x0905…090b at0005 = EOL // 0x90a @0x5
0x0905…090b }
0x090b…0919 9670 0920 PROC NULEPOST
0x090b…0919 LineComalBin {
0x090b…0919 ptr = 0x9670 // 0x90b @0x0
0x090b…0919 lno = 0x0398 // 0x90d @0x2
0x090b…0919 at0004 = ╱9e╱ PROC ╱ // 0x90f @0x4
0x090b…0919 at0005 = ╱4e╱N╱ // 0x910 @0x5
0x090b…0919 at0006 = ╱55╱U╱ // 0x911 @0x6
0x090b…0919 at0007 = ╱4c╱L╱ // 0x912 @0x7
0x090b…0919 at0008 = ╱45╱E╱ // 0x913 @0x8
0x090b…0919 at0009 = ╱50╱P╱ // 0x914 @0x9
0x090b…0919 at000a = ╱4f╱O╱ // 0x915 @0xa
0x090b…0919 at000b = ╱53╱S╱ // 0x916 @0xb
0x090b…0919 at000c = ╱54╱T╱ // 0x917 @0xc
0x090b…0919 at000d = EOL // 0x918 @0xd
0x090b…0919 }
0x0919…094d 96a4 0930 FNR=B;ENAVN$=BLANK$;EMREG$="0+";EÅREG$="0+";Y=E
0x0919…094d LineComalBin {
0x0919…094d ptr = 0x96a4 // 0x919 @0x0
0x0919…094d lno = 0x03a2 // 0x91b @0x2
0x0919…094d at0004 = ╱46╱F╱ // 0x91d @0x4
0x0919…094d at0005 = ╱4e╱N╱ // 0x91e @0x5
0x0919…094d at0006 = ╱52╱R╱ // 0x91f @0x6
0x0919…094d at0007 = ╱dc╱=╱ // 0x920 @0x7
0x0919…094d at0008 = ╱42╱B╱ // 0x921 @0x8
0x0919…094d at0009 = ╱eb╱;╱ // 0x922 @0x9
0x0919…094d at000a = ╱45╱E╱ // 0x923 @0xa
0x0919…094d at000b = ╱4e╱N╱ // 0x924 @0xb
0x0919…094d at000c = ╱41╱A╱ // 0x925 @0xc
0x0919…094d at000d = ╱56╱V╱ // 0x926 @0xd
0x0919…094d at000e = ╱4e╱N╱ // 0x927 @0xe
0x0919…094d at000f = ╱ef╱$╱ // 0x928 @0xf
0x0919…094d at0010 = ╱dc╱=╱ // 0x929 @0x10
0x0919…094d at0011 = ╱42╱B╱ // 0x92a @0x11
0x0919…094d at0012 = ╱4c╱L╱ // 0x92b @0x12
0x0919…094d at0013 = ╱41╱A╱ // 0x92c @0x13
0x0919…094d at0014 = ╱4e╱N╱ // 0x92d @0x14
0x0919…094d at0015 = ╱4b╱K╱ // 0x92e @0x15
0x0919…094d at0016 = ╱ef╱$╱ // 0x92f @0x16
0x0919…094d at0017 = ╱eb╱;╱ // 0x930 @0x17
0x0919…094d at0018 = ╱45╱E╱ // 0x931 @0x18
0x0919…094d at0019 = ╱4d╱M╱ // 0x932 @0x19
0x0919…094d at001a = ╱52╱R╱ // 0x933 @0x1a
0x0919…094d at001b = ╱45╱E╱ // 0x934 @0x1b
0x0919…094d at001c = ╱47╱G╱ // 0x935 @0x1c
0x0919…094d at001d = ╱ef╱$╱ // 0x936 @0x1d
0x0919…094d at001e = ╱dc╱=╱ // 0x937 @0x1e
0x0919…094d at001f = ╱22╱"╱ // 0x938 @0x1f
0x0919…094d at0020 = ╱30╱0╱ // 0x939 @0x20
0x0919…094d at0021 = ╱2b╱+╱ // 0x93a @0x21
0x0919…094d at0022 = ╱22╱"╱ // 0x93b @0x22
0x0919…094d at0023 = ╱eb╱;╱ // 0x93c @0x23
0x0919…094d at0024 = ╱45╱E╱ // 0x93d @0x24
0x0919…094d at0025 = ╱5d╱Å╱ // 0x93e @0x25
0x0919…094d at0026 = ╱52╱R╱ // 0x93f @0x26
0x0919…094d at0027 = ╱45╱E╱ // 0x940 @0x27
0x0919…094d at0028 = ╱47╱G╱ // 0x941 @0x28
0x0919…094d at0029 = ╱ef╱$╱ // 0x942 @0x29
0x0919…094d at002a = ╱dc╱=╱ // 0x943 @0x2a
0x0919…094d at002b = ╱22╱"╱ // 0x944 @0x2b
0x0919…094d at002c = ╱30╱0╱ // 0x945 @0x2c
0x0919…094d at002d = ╱2b╱+╱ // 0x946 @0x2d
0x0919…094d at002e = ╱22╱"╱ // 0x947 @0x2e
0x0919…094d at002f = ╱eb╱;╱ // 0x948 @0x2f
0x0919…094d at0030 = ╱59╱Y╱ // 0x949 @0x30
0x0919…094d at0031 = ╱dc╱=╱ // 0x94a @0x31
0x0919…094d at0032 = ╱45╱E╱ // 0x94b @0x32
0x0919…094d at0033 = EOL // 0x94c @0x33
0x0919…094d }
0x094d…095e 96b5 0940 FOR X=E TO MUNKANT
0x094d…095e LineComalBin {
0x094d…095e ptr = 0x96b5 // 0x94d @0x0
0x094d…095e lno = 0x03ac // 0x94f @0x2
0x094d…095e at0004 = ╱83╱ FOR ╱ // 0x951 @0x4
0x094d…095e at0005 = ╱58╱X╱ // 0x952 @0x5
0x094d…095e at0006 = ╱dc╱=╱ // 0x953 @0x6
0x094d…095e at0007 = ╱45╱E╱ // 0x954 @0x7
0x094d…095e at0008 = ╱b7╱ TO ╱ // 0x955 @0x8
0x094d…095e at0009 = ╱4d╱M╱ // 0x956 @0x9
0x094d…095e at000a = ╱55╱U╱ // 0x957 @0xa
0x094d…095e at000b = ╱4e╱N╱ // 0x958 @0xb
0x094d…095e at000c = ╱4b╱K╱ // 0x959 @0xc
0x094d…095e at000d = ╱41╱A╱ // 0x95a @0xd
0x094d…095e at000e = ╱4e╱N╱ // 0x95b @0xe
0x094d…095e at000f = ╱54╱T╱ // 0x95c @0xf
0x094d…095e at0010 = EOL // 0x95d @0x10
0x094d…095e }
0x095e…0993 96ea 0950 UKNR(X)=1000000;MBEV$(X)="0+";ÅBEV$(X)="0+"
0x095e…0993 LineComalBin {
0x095e…0993 ptr = 0x96ea // 0x95e @0x0
0x095e…0993 lno = 0x03b6 // 0x960 @0x2
0x095e…0993 at0004 = ╱55╱U╱ // 0x962 @0x4
0x095e…0993 at0005 = ╱4b╱K╱ // 0x963 @0x5
0x095e…0993 at0006 = ╱4e╱N╱ // 0x964 @0x6
0x095e…0993 at0007 = ╱52╱R╱ // 0x965 @0x7
0x095e…0993 at0008 = ╱ed╱(╱ // 0x966 @0x8
0x095e…0993 at0009 = ╱58╱X╱ // 0x967 @0x9
0x095e…0993 at000a = ╱ee╱)╱ // 0x968 @0xa
0x095e…0993 at000b = ╱dc╱=╱ // 0x969 @0xb
0x095e…0993 at000c = ╱31╱1╱ // 0x96a @0xc
0x095e…0993 at000d = ╱30╱0╱ // 0x96b @0xd
0x095e…0993 at000e = ╱30╱0╱ // 0x96c @0xe
0x095e…0993 at000f = ╱30╱0╱ // 0x96d @0xf
0x095e…0993 at0010 = ╱30╱0╱ // 0x96e @0x10
0x095e…0993 at0011 = ╱30╱0╱ // 0x96f @0x11
0x095e…0993 at0012 = ╱30╱0╱ // 0x970 @0x12
0x095e…0993 at0013 = ╱fe0024f414╱ // 0x971 @0x13
0x095e…0993 at0018 = ╱eb╱;╱ // 0x976 @0x18
0x095e…0993 at0019 = ╱4d╱M╱ // 0x977 @0x19
0x095e…0993 at001a = ╱42╱B╱ // 0x978 @0x1a
0x095e…0993 at001b = ╱45╱E╱ // 0x979 @0x1b
0x095e…0993 at001c = ╱56╱V╱ // 0x97a @0x1c
0x095e…0993 at001d = ╱ef╱$╱ // 0x97b @0x1d
0x095e…0993 at001e = ╱ed╱(╱ // 0x97c @0x1e
0x095e…0993 at001f = ╱58╱X╱ // 0x97d @0x1f
0x095e…0993 at0020 = ╱ee╱)╱ // 0x97e @0x20
0x095e…0993 at0021 = ╱dc╱=╱ // 0x97f @0x21
0x095e…0993 at0022 = ╱22╱"╱ // 0x980 @0x22
0x095e…0993 at0023 = ╱30╱0╱ // 0x981 @0x23
0x095e…0993 at0024 = ╱2b╱+╱ // 0x982 @0x24
0x095e…0993 at0025 = ╱22╱"╱ // 0x983 @0x25
0x095e…0993 at0026 = ╱eb╱;╱ // 0x984 @0x26
0x095e…0993 at0027 = ╱5d╱Å╱ // 0x985 @0x27
0x095e…0993 at0028 = ╱42╱B╱ // 0x986 @0x28
0x095e…0993 at0029 = ╱45╱E╱ // 0x987 @0x29
0x095e…0993 at002a = ╱56╱V╱ // 0x988 @0x2a
0x095e…0993 at002b = ╱ef╱$╱ // 0x989 @0x2b
0x095e…0993 at002c = ╱ed╱(╱ // 0x98a @0x2c
0x095e…0993 at002d = ╱58╱X╱ // 0x98b @0x2d
0x095e…0993 at002e = ╱ee╱)╱ // 0x98c @0x2e
0x095e…0993 at002f = ╱dc╱=╱ // 0x98d @0x2f
0x095e…0993 at0030 = ╱22╱"╱ // 0x98e @0x30
0x095e…0993 at0031 = ╱30╱0╱ // 0x98f @0x31
0x095e…0993 at0032 = ╱2b╱+╱ // 0x990 @0x32
0x095e…0993 at0033 = ╱22╱"╱ // 0x991 @0x33
0x095e…0993 at0034 = EOL // 0x992 @0x34
0x095e…0993 }
0x0993…09a0 96f7 0960 IF TYPE=E THEN
0x0993…09a0 LineComalBin {
0x0993…09a0 ptr = 0x96f7 // 0x993 @0x0
0x0993…09a0 lno = 0x03c0 // 0x995 @0x2
0x0993…09a0 at0004 = ╱9c╱ IF ╱ // 0x997 @0x4
0x0993…09a0 at0005 = ╱54╱T╱ // 0x998 @0x5
0x0993…09a0 at0006 = ╱59╱Y╱ // 0x999 @0x6
0x0993…09a0 at0007 = ╱50╱P╱ // 0x99a @0x7
0x0993…09a0 at0008 = ╱45╱E╱ // 0x99b @0x8
0x0993…09a0 at0009 = ╱dc╱=╱ // 0x99c @0x9
0x0993…09a0 at000a = ╱45╱E╱ // 0x99d @0xa
0x0993…09a0 at000b = ╱b6╱ THEN ╱ // 0x99e @0xb
0x0993…09a0 at000c = EOL // 0x99f @0xc
0x0993…09a0 }
0x09a0…09a6 (32,) 96fd 0970 REPEAT
0x09a0…09a6 LineComalBin {
0x09a0…09a6 ptr = 0x96fd // 0x9a0 @0x0
0x09a0…09a6 lno = 0x03ca // 0x9a2 @0x2
0x09a0…09a6 at0004 = ╱97╱ REPEAT ╱ // 0x9a4 @0x4
0x09a0…09a6 at0005 = EOL // 0x9a5 @0x5
0x09a0…09a6 }
0x09a6…09c7 971e 0980 IF EU$(Y)<>"0" AND EU$(Y)<>"E" THEN Y=Y+E
0x09a6…09c7 LineComalBin {
0x09a6…09c7 ptr = 0x971e // 0x9a6 @0x0
0x09a6…09c7 lno = 0x03d4 // 0x9a8 @0x2
0x09a6…09c7 at0004 = ╱82╱ IF ╱ // 0x9aa @0x4
0x09a6…09c7 at0005 = ╱45╱E╱ // 0x9ab @0x5
0x09a6…09c7 at0006 = ╱55╱U╱ // 0x9ac @0x6
0x09a6…09c7 at0007 = ╱ef╱$╱ // 0x9ad @0x7
0x09a6…09c7 at0008 = ╱ed╱(╱ // 0x9ae @0x8
0x09a6…09c7 at0009 = ╱59╱Y╱ // 0x9af @0x9
0x09a6…09c7 at000a = ╱ee╱)╱ // 0x9b0 @0xa
0x09a6…09c7 at000b = ╱e1╱<>╱ // 0x9b1 @0xb
0x09a6…09c7 at000c = ╱22╱"╱ // 0x9b2 @0xc
0x09a6…09c7 at000d = ╱30╱0╱ // 0x9b3 @0xd
0x09a6…09c7 at000e = ╱22╱"╱ // 0x9b4 @0xe
0x09a6…09c7 at000f = ╱da╱ AND ╱ // 0x9b5 @0xf
0x09a6…09c7 at0010 = ╱45╱E╱ // 0x9b6 @0x10
0x09a6…09c7 at0011 = ╱55╱U╱ // 0x9b7 @0x11
0x09a6…09c7 at0012 = ╱ef╱$╱ // 0x9b8 @0x12
0x09a6…09c7 at0013 = ╱ed╱(╱ // 0x9b9 @0x13
0x09a6…09c7 at0014 = ╱59╱Y╱ // 0x9ba @0x14
0x09a6…09c7 at0015 = ╱ee╱)╱ // 0x9bb @0x15
0x09a6…09c7 at0016 = ╱e1╱<>╱ // 0x9bc @0x16
0x09a6…09c7 at0017 = ╱22╱"╱ // 0x9bd @0x17
0x09a6…09c7 at0018 = ╱45╱E╱ // 0x9be @0x18
0x09a6…09c7 at0019 = ╱22╱"╱ // 0x9bf @0x19
0x09a6…09c7 at001a = ╱b6╱ THEN ╱ // 0x9c0 @0x1a
0x09a6…09c7 at001b = ╱59╱Y╱ // 0x9c1 @0x1b
0x09a6…09c7 at001c = ╱dc╱=╱ // 0x9c2 @0x1c
0x09a6…09c7 at001d = ╱59╱Y╱ // 0x9c3 @0x1d
0x09a6…09c7 at001e = ╱e2╱+╱ // 0x9c4 @0x1e
0x09a6…09c7 at001f = ╱45╱E╱ // 0x9c5 @0x1f
0x09a6…09c7 at0020 = EOL // 0x9c6 @0x20
0x09a6…09c7 }
0x09c7…09e2 9739 0990 UNTIL EU$(Y)="0" OR EU$(Y)="E"
0x09c7…09e2 LineComalBin {
0x09c7…09e2 ptr = 0x9739 // 0x9c7 @0x0
0x09c7…09e2 lno = 0x03de // 0x9c9 @0x2
0x09c7…09e2 at0004 = ╱98╱ UNTIL ╱ // 0x9cb @0x4
0x09c7…09e2 at0005 = ╱45╱E╱ // 0x9cc @0x5
0x09c7…09e2 at0006 = ╱55╱U╱ // 0x9cd @0x6
0x09c7…09e2 at0007 = ╱ef╱$╱ // 0x9ce @0x7
0x09c7…09e2 at0008 = ╱ed╱(╱ // 0x9cf @0x8
0x09c7…09e2 at0009 = ╱59╱Y╱ // 0x9d0 @0x9
0x09c7…09e2 at000a = ╱ee╱)╱ // 0x9d1 @0xa
0x09c7…09e2 at000b = ╱dc╱=╱ // 0x9d2 @0xb
0x09c7…09e2 at000c = ╱22╱"╱ // 0x9d3 @0xc
0x09c7…09e2 at000d = ╱30╱0╱ // 0x9d4 @0xd
0x09c7…09e2 at000e = ╱22╱"╱ // 0x9d5 @0xe
0x09c7…09e2 at000f = ╱db╱ OR ╱ // 0x9d6 @0xf
0x09c7…09e2 at0010 = ╱45╱E╱ // 0x9d7 @0x10
0x09c7…09e2 at0011 = ╱55╱U╱ // 0x9d8 @0x11
0x09c7…09e2 at0012 = ╱ef╱$╱ // 0x9d9 @0x12
0x09c7…09e2 at0013 = ╱ed╱(╱ // 0x9da @0x13
0x09c7…09e2 at0014 = ╱59╱Y╱ // 0x9db @0x14
0x09c7…09e2 at0015 = ╱ee╱)╱ // 0x9dc @0x15
0x09c7…09e2 at0016 = ╱dc╱=╱ // 0x9dd @0x16
0x09c7…09e2 at0017 = ╱22╱"╱ // 0x9de @0x17
0x09c7…09e2 at0018 = ╱45╱E╱ // 0x9df @0x18
0x09c7…09e2 at0019 = ╱22╱"╱ // 0x9e0 @0x19
0x09c7…09e2 at001a = EOL // 0x9e1 @0x1a
0x09c7…09e2 }
0x09e2…09fb 9752 1000 UKNR(X)=UNR(Y);Y=Y+E
0x09e2…09fb LineComalBin {
0x09e2…09fb ptr = 0x9752 // 0x9e2 @0x0
0x09e2…09fb lno = 0x03e8 // 0x9e4 @0x2
0x09e2…09fb at0004 = ╱55╱U╱ // 0x9e6 @0x4
0x09e2…09fb at0005 = ╱4b╱K╱ // 0x9e7 @0x5
0x09e2…09fb at0006 = ╱4e╱N╱ // 0x9e8 @0x6
0x09e2…09fb at0007 = ╱52╱R╱ // 0x9e9 @0x7
0x09e2…09fb at0008 = ╱ed╱(╱ // 0x9ea @0x8
0x09e2…09fb at0009 = ╱58╱X╱ // 0x9eb @0x9
0x09e2…09fb at000a = ╱ee╱)╱ // 0x9ec @0xa
0x09e2…09fb at000b = ╱dc╱=╱ // 0x9ed @0xb
0x09e2…09fb at000c = ╱55╱U╱ // 0x9ee @0xc
0x09e2…09fb at000d = ╱4e╱N╱ // 0x9ef @0xd
0x09e2…09fb at000e = ╱52╱R╱ // 0x9f0 @0xe
0x09e2…09fb at000f = ╱ed╱(╱ // 0x9f1 @0xf
0x09e2…09fb at0010 = ╱59╱Y╱ // 0x9f2 @0x10
0x09e2…09fb at0011 = ╱ee╱)╱ // 0x9f3 @0x11
0x09e2…09fb at0012 = ╱eb╱;╱ // 0x9f4 @0x12
0x09e2…09fb at0013 = ╱59╱Y╱ // 0x9f5 @0x13
0x09e2…09fb at0014 = ╱dc╱=╱ // 0x9f6 @0x14
0x09e2…09fb at0015 = ╱59╱Y╱ // 0x9f7 @0x15
0x09e2…09fb at0016 = ╱e2╱+╱ // 0x9f8 @0x16
0x09e2…09fb at0017 = ╱45╱E╱ // 0x9f9 @0x17
0x09e2…09fb at0018 = EOL // 0x9fa @0x18
0x09e2…09fb }
0x09fb…0a01 9758 1010 ENDIF
0x09fb…0a01 LineComalBin {
0x09fb…0a01 ptr = 0x9758 // 0x9fb @0x0
0x09fb…0a01 lno = 0x03f2 // 0x9fd @0x2
0x09fb…0a01 at0004 = ╱9b╱ ENDIF ╱ // 0x9ff @0x4
0x09fb…0a01 at0005 = EOL // 0xa00 @0x5
0x09fb…0a01 }
0x0a01…0a08 975f 1020 NEXT X
0x0a01…0a08 LineComalBin {
0x0a01…0a08 ptr = 0x975f // 0xa01 @0x0
0x0a01…0a08 lno = 0x03fc // 0xa03 @0x2
0x0a01…0a08 at0004 = ╱84╱ NEXT ╱ // 0xa05 @0x4
0x0a01…0a08 at0005 = ╱58╱X╱ // 0xa06 @0x5
0x0a01…0a08 at0006 = EOL // 0xa07 @0x6
0x0a01…0a08 }
0x0a08…0a0e 9765 1030 ENDPROC
0x0a08…0a0e LineComalBin {
0x0a08…0a0e ptr = 0x9765 // 0xa08 @0x0
0x0a08…0a0e lno = 0x0406 // 0xa0a @0x2
0x0a08…0a0e at0004 = ╱9f╱ ENDPROC ╱ // 0xa0c @0x4
0x0a08…0a0e at0005 = EOL // 0xa0d @0x5
0x0a08…0a0e }
0x0a0e…0a1c 9773 1040 PROC HENTPOST
0x0a0e…0a1c LineComalBin {
0x0a0e…0a1c ptr = 0x9773 // 0xa0e @0x0
0x0a0e…0a1c lno = 0x0410 // 0xa10 @0x2
0x0a0e…0a1c at0004 = ╱9e╱ PROC ╱ // 0xa12 @0x4
0x0a0e…0a1c at0005 = ╱48╱H╱ // 0xa13 @0x5
0x0a0e…0a1c at0006 = ╱45╱E╱ // 0xa14 @0x6
0x0a0e…0a1c at0007 = ╱4e╱N╱ // 0xa15 @0x7
0x0a0e…0a1c at0008 = ╱54╱T╱ // 0xa16 @0x8
0x0a0e…0a1c at0009 = ╱50╱P╱ // 0xa17 @0x9
0x0a0e…0a1c at000a = ╱4f╱O╱ // 0xa18 @0xa
0x0a0e…0a1c at000b = ╱53╱S╱ // 0xa19 @0xb
0x0a0e…0a1c at000c = ╱54╱T╱ // 0xa1a @0xc
0x0a0e…0a1c at000d = EOL // 0xa1b @0xd
0x0a0e…0a1c }
0x0a1c…0a30 9787 1050 S=ETAB(EPIL3,G)
0x0a1c…0a30 LineComalBin {
0x0a1c…0a30 ptr = 0x9787 // 0xa1c @0x0
0x0a1c…0a30 lno = 0x041a // 0xa1e @0x2
0x0a1c…0a30 at0004 = ╱53╱S╱ // 0xa20 @0x4
0x0a1c…0a30 at0005 = ╱dc╱=╱ // 0xa21 @0x5
0x0a1c…0a30 at0006 = ╱45╱E╱ // 0xa22 @0x6
0x0a1c…0a30 at0007 = ╱54╱T╱ // 0xa23 @0x7
0x0a1c…0a30 at0008 = ╱41╱A╱ // 0xa24 @0x8
0x0a1c…0a30 at0009 = ╱42╱B╱ // 0xa25 @0x9
0x0a1c…0a30 at000a = ╱ed╱(╱ // 0xa26 @0xa
0x0a1c…0a30 at000b = ╱45╱E╱ // 0xa27 @0xb
0x0a1c…0a30 at000c = ╱50╱P╱ // 0xa28 @0xc
0x0a1c…0a30 at000d = ╱49╱I╱ // 0xa29 @0xd
0x0a1c…0a30 at000e = ╱4c╱L╱ // 0xa2a @0xe
0x0a1c…0a30 at000f = ╱33╱3╱ // 0xa2b @0xf
0x0a1c…0a30 at0010 = ╱ec╱,╱ // 0xa2c @0x10
0x0a1c…0a30 at0011 = ╱47╱G╱ // 0xa2d @0x11
0x0a1c…0a30 at0012 = ╱ee╱)╱ // 0xa2e @0x12
0x0a1c…0a30 at0013 = EOL // 0xa2f @0x13
0x0a1c…0a30 }
0x0a30…0a4d 97a4 1060 GET K2$,S:FNR,EMREG$,EÅREG$
0x0a30…0a4d LineComalBin {
0x0a30…0a4d ptr = 0x97a4 // 0xa30 @0x0
0x0a30…0a4d lno = 0x0424 // 0xa32 @0x2
0x0a30…0a4d at0004 = ╱a9╱ GET ╱ // 0xa34 @0x4
0x0a30…0a4d at0005 = ╱4b╱K╱ // 0xa35 @0x5
0x0a30…0a4d at0006 = ╱32╱2╱ // 0xa36 @0x6
0x0a30…0a4d at0007 = ╱ef╱$╱ // 0xa37 @0x7
0x0a30…0a4d at0008 = ╱ec╱,╱ // 0xa38 @0x8
0x0a30…0a4d at0009 = ╱53╱S╱ // 0xa39 @0x9
0x0a30…0a4d at000a = ╱f0╱:╱ // 0xa3a @0xa
0x0a30…0a4d at000b = ╱46╱F╱ // 0xa3b @0xb
0x0a30…0a4d at000c = ╱4e╱N╱ // 0xa3c @0xc
0x0a30…0a4d at000d = ╱52╱R╱ // 0xa3d @0xd
0x0a30…0a4d at000e = ╱ec╱,╱ // 0xa3e @0xe
0x0a30…0a4d at000f = ╱45╱E╱ // 0xa3f @0xf
0x0a30…0a4d at0010 = ╱4d╱M╱ // 0xa40 @0x10
0x0a30…0a4d at0011 = ╱52╱R╱ // 0xa41 @0x11
0x0a30…0a4d at0012 = ╱45╱E╱ // 0xa42 @0x12
0x0a30…0a4d at0013 = ╱47╱G╱ // 0xa43 @0x13
0x0a30…0a4d at0014 = ╱ef╱$╱ // 0xa44 @0x14
0x0a30…0a4d at0015 = ╱ec╱,╱ // 0xa45 @0x15
0x0a30…0a4d at0016 = ╱45╱E╱ // 0xa46 @0x16
0x0a30…0a4d at0017 = ╱5d╱Å╱ // 0xa47 @0x17
0x0a30…0a4d at0018 = ╱52╱R╱ // 0xa48 @0x18
0x0a30…0a4d at0019 = ╱45╱E╱ // 0xa49 @0x19
0x0a30…0a4d at001a = ╱47╱G╱ // 0xa4a @0x1a
0x0a30…0a4d at001b = ╱ef╱$╱ // 0xa4b @0x1b
0x0a30…0a4d at001c = EOL // 0xa4c @0x1c
0x0a30…0a4d }
0x0a4d…0a60 97b7 1070 EXEC FEJL(V,G,K2$)
0x0a4d…0a60 LineComalBin {
0x0a4d…0a60 ptr = 0x97b7 // 0xa4d @0x0
0x0a4d…0a60 lno = 0x042e // 0xa4f @0x2
0x0a4d…0a60 at0004 = ╱9d╱ EXEC ╱ // 0xa51 @0x4
0x0a4d…0a60 at0005 = ╱46╱F╱ // 0xa52 @0x5
0x0a4d…0a60 at0006 = ╱45╱E╱ // 0xa53 @0x6
0x0a4d…0a60 at0007 = ╱4a╱J╱ // 0xa54 @0x7
0x0a4d…0a60 at0008 = ╱4c╱L╱ // 0xa55 @0x8
0x0a4d…0a60 at0009 = ╱ed╱(╱ // 0xa56 @0x9
0x0a4d…0a60 at000a = ╱56╱V╱ // 0xa57 @0xa
0x0a4d…0a60 at000b = ╱ec╱,╱ // 0xa58 @0xb
0x0a4d…0a60 at000c = ╱47╱G╱ // 0xa59 @0xc
0x0a4d…0a60 at000d = ╱ec╱,╱ // 0xa5a @0xd
0x0a4d…0a60 at000e = ╱4b╱K╱ // 0xa5b @0xe
0x0a4d…0a60 at000f = ╱32╱2╱ // 0xa5c @0xf
0x0a4d…0a60 at0010 = ╱ef╱$╱ // 0xa5d @0x10
0x0a4d…0a60 at0011 = ╱ee╱)╱ // 0xa5e @0x11
0x0a4d…0a60 at0012 = EOL // 0xa5f @0x12
0x0a4d…0a60 }
0x0a60…0a79 97d0 1080 IF FNR<>ETAB(EPIL3,E) THEN STOP
0x0a60…0a79 LineComalBin {
0x0a60…0a79 ptr = 0x97d0 // 0xa60 @0x0
0x0a60…0a79 lno = 0x0438 // 0xa62 @0x2
0x0a60…0a79 at0004 = ╱82╱ IF ╱ // 0xa64 @0x4
0x0a60…0a79 at0005 = ╱46╱F╱ // 0xa65 @0x5
0x0a60…0a79 at0006 = ╱4e╱N╱ // 0xa66 @0x6
0x0a60…0a79 at0007 = ╱52╱R╱ // 0xa67 @0x7
0x0a60…0a79 at0008 = ╱e1╱<>╱ // 0xa68 @0x8
0x0a60…0a79 at0009 = ╱45╱E╱ // 0xa69 @0x9
0x0a60…0a79 at000a = ╱54╱T╱ // 0xa6a @0xa
0x0a60…0a79 at000b = ╱41╱A╱ // 0xa6b @0xb
0x0a60…0a79 at000c = ╱42╱B╱ // 0xa6c @0xc
0x0a60…0a79 at000d = ╱ed╱(╱ // 0xa6d @0xd
0x0a60…0a79 at000e = ╱45╱E╱ // 0xa6e @0xe
0x0a60…0a79 at000f = ╱50╱P╱ // 0xa6f @0xf
0x0a60…0a79 at0010 = ╱49╱I╱ // 0xa70 @0x10
0x0a60…0a79 at0011 = ╱4c╱L╱ // 0xa71 @0x11
0x0a60…0a79 at0012 = ╱33╱3╱ // 0xa72 @0x12
0x0a60…0a79 at0013 = ╱ec╱,╱ // 0xa73 @0x13
0x0a60…0a79 at0014 = ╱45╱E╱ // 0xa74 @0x14
0x0a60…0a79 at0015 = ╱ee╱)╱ // 0xa75 @0x15
0x0a60…0a79 at0016 = ╱b6╱ THEN ╱ // 0xa76 @0x16
0x0a60…0a79 at0017 = ╱8d╱ STOP ╱ // 0xa77 @0x17
0x0a60…0a79 at0018 = EOL // 0xa78 @0x18
0x0a60…0a79 }
0x0a79…0a8d 97e4 1090 GET K2$,S+E:ENAVN$
0x0a79…0a8d LineComalBin {
0x0a79…0a8d ptr = 0x97e4 // 0xa79 @0x0
0x0a79…0a8d lno = 0x0442 // 0xa7b @0x2
0x0a79…0a8d at0004 = ╱a9╱ GET ╱ // 0xa7d @0x4
0x0a79…0a8d at0005 = ╱4b╱K╱ // 0xa7e @0x5
0x0a79…0a8d at0006 = ╱32╱2╱ // 0xa7f @0x6
0x0a79…0a8d at0007 = ╱ef╱$╱ // 0xa80 @0x7
0x0a79…0a8d at0008 = ╱ec╱,╱ // 0xa81 @0x8
0x0a79…0a8d at0009 = ╱53╱S╱ // 0xa82 @0x9
0x0a79…0a8d at000a = ╱e2╱+╱ // 0xa83 @0xa
0x0a79…0a8d at000b = ╱45╱E╱ // 0xa84 @0xb
0x0a79…0a8d at000c = ╱f0╱:╱ // 0xa85 @0xc
0x0a79…0a8d at000d = ╱45╱E╱ // 0xa86 @0xd
0x0a79…0a8d at000e = ╱4e╱N╱ // 0xa87 @0xe
0x0a79…0a8d at000f = ╱41╱A╱ // 0xa88 @0xf
0x0a79…0a8d at0010 = ╱56╱V╱ // 0xa89 @0x10
0x0a79…0a8d at0011 = ╱4e╱N╱ // 0xa8a @0x11
0x0a79…0a8d at0012 = ╱ef╱$╱ // 0xa8b @0x12
0x0a79…0a8d at0013 = EOL // 0xa8c @0x13
0x0a79…0a8d }
0x0a8d…0aa0 97f7 1100 EXEC FEJL(V,V,K2$)
0x0a8d…0aa0 LineComalBin {
0x0a8d…0aa0 ptr = 0x97f7 // 0xa8d @0x0
0x0a8d…0aa0 lno = 0x044c // 0xa8f @0x2
0x0a8d…0aa0 at0004 = ╱9d╱ EXEC ╱ // 0xa91 @0x4
0x0a8d…0aa0 at0005 = ╱46╱F╱ // 0xa92 @0x5
0x0a8d…0aa0 at0006 = ╱45╱E╱ // 0xa93 @0x6
0x0a8d…0aa0 at0007 = ╱4a╱J╱ // 0xa94 @0x7
0x0a8d…0aa0 at0008 = ╱4c╱L╱ // 0xa95 @0x8
0x0a8d…0aa0 at0009 = ╱ed╱(╱ // 0xa96 @0x9
0x0a8d…0aa0 at000a = ╱56╱V╱ // 0xa97 @0xa
0x0a8d…0aa0 at000b = ╱ec╱,╱ // 0xa98 @0xb
0x0a8d…0aa0 at000c = ╱56╱V╱ // 0xa99 @0xc
0x0a8d…0aa0 at000d = ╱ec╱,╱ // 0xa9a @0xd
0x0a8d…0aa0 at000e = ╱4b╱K╱ // 0xa9b @0xe
0x0a8d…0aa0 at000f = ╱32╱2╱ // 0xa9c @0xf
0x0a8d…0aa0 at0010 = ╱ef╱$╱ // 0xa9d @0x10
0x0a8d…0aa0 at0011 = ╱ee╱)╱ // 0xa9e @0x11
0x0a8d…0aa0 at0012 = EOL // 0xa9f @0x12
0x0a8d…0aa0 }
0x0aa0…0ab3 980a 1110 FOR X=G TO MUNKANT+E
0x0aa0…0ab3 LineComalBin {
0x0aa0…0ab3 ptr = 0x980a // 0xaa0 @0x0
0x0aa0…0ab3 lno = 0x0456 // 0xaa2 @0x2
0x0aa0…0ab3 at0004 = ╱83╱ FOR ╱ // 0xaa4 @0x4
0x0aa0…0ab3 at0005 = ╱58╱X╱ // 0xaa5 @0x5
0x0aa0…0ab3 at0006 = ╱dc╱=╱ // 0xaa6 @0x6
0x0aa0…0ab3 at0007 = ╱47╱G╱ // 0xaa7 @0x7
0x0aa0…0ab3 at0008 = ╱b7╱ TO ╱ // 0xaa8 @0x8
0x0aa0…0ab3 at0009 = ╱4d╱M╱ // 0xaa9 @0x9
0x0aa0…0ab3 at000a = ╱55╱U╱ // 0xaaa @0xa
0x0aa0…0ab3 at000b = ╱4e╱N╱ // 0xaab @0xb
0x0aa0…0ab3 at000c = ╱4b╱K╱ // 0xaac @0xc
0x0aa0…0ab3 at000d = ╱41╱A╱ // 0xaad @0xd
0x0aa0…0ab3 at000e = ╱4e╱N╱ // 0xaae @0xe
0x0aa0…0ab3 at000f = ╱54╱T╱ // 0xaaf @0xf
0x0aa0…0ab3 at0010 = ╱e2╱+╱ // 0xab0 @0x10
0x0aa0…0ab3 at0011 = ╱45╱E╱ // 0xab1 @0x11
0x0aa0…0ab3 at0012 = EOL // 0xab2 @0x12
0x0aa0…0ab3 }
0x0ab3…0ae0 9837 1120 GET K2$,S+X:UKNR(X-E),MBEV$(X-E),ÅBEV$(X-E)
0x0ab3…0ae0 LineComalBin {
0x0ab3…0ae0 ptr = 0x9837 // 0xab3 @0x0
0x0ab3…0ae0 lno = 0x0460 // 0xab5 @0x2
0x0ab3…0ae0 at0004 = ╱a9╱ GET ╱ // 0xab7 @0x4
0x0ab3…0ae0 at0005 = ╱4b╱K╱ // 0xab8 @0x5
0x0ab3…0ae0 at0006 = ╱32╱2╱ // 0xab9 @0x6
0x0ab3…0ae0 at0007 = ╱ef╱$╱ // 0xaba @0x7
0x0ab3…0ae0 at0008 = ╱ec╱,╱ // 0xabb @0x8
0x0ab3…0ae0 at0009 = ╱53╱S╱ // 0xabc @0x9
0x0ab3…0ae0 at000a = ╱e2╱+╱ // 0xabd @0xa
0x0ab3…0ae0 at000b = ╱58╱X╱ // 0xabe @0xb
0x0ab3…0ae0 at000c = ╱f0╱:╱ // 0xabf @0xc
0x0ab3…0ae0 at000d = ╱55╱U╱ // 0xac0 @0xd
0x0ab3…0ae0 at000e = ╱4b╱K╱ // 0xac1 @0xe
0x0ab3…0ae0 at000f = ╱4e╱N╱ // 0xac2 @0xf
0x0ab3…0ae0 at0010 = ╱52╱R╱ // 0xac3 @0x10
0x0ab3…0ae0 at0011 = ╱ed╱(╱ // 0xac4 @0x11
0x0ab3…0ae0 at0012 = ╱58╱X╱ // 0xac5 @0x12
0x0ab3…0ae0 at0013 = ╱e3╱-╱ // 0xac6 @0x13
0x0ab3…0ae0 at0014 = ╱45╱E╱ // 0xac7 @0x14
0x0ab3…0ae0 at0015 = ╱ee╱)╱ // 0xac8 @0x15
0x0ab3…0ae0 at0016 = ╱ec╱,╱ // 0xac9 @0x16
0x0ab3…0ae0 at0017 = ╱4d╱M╱ // 0xaca @0x17
0x0ab3…0ae0 at0018 = ╱42╱B╱ // 0xacb @0x18
0x0ab3…0ae0 at0019 = ╱45╱E╱ // 0xacc @0x19
0x0ab3…0ae0 at001a = ╱56╱V╱ // 0xacd @0x1a
0x0ab3…0ae0 at001b = ╱ef╱$╱ // 0xace @0x1b
0x0ab3…0ae0 at001c = ╱ed╱(╱ // 0xacf @0x1c
0x0ab3…0ae0 at001d = ╱58╱X╱ // 0xad0 @0x1d
0x0ab3…0ae0 at001e = ╱e3╱-╱ // 0xad1 @0x1e
0x0ab3…0ae0 at001f = ╱45╱E╱ // 0xad2 @0x1f
0x0ab3…0ae0 at0020 = ╱ee╱)╱ // 0xad3 @0x20
0x0ab3…0ae0 at0021 = ╱ec╱,╱ // 0xad4 @0x21
0x0ab3…0ae0 at0022 = ╱5d╱Å╱ // 0xad5 @0x22
0x0ab3…0ae0 at0023 = ╱42╱B╱ // 0xad6 @0x23
0x0ab3…0ae0 at0024 = ╱45╱E╱ // 0xad7 @0x24
0x0ab3…0ae0 at0025 = ╱56╱V╱ // 0xad8 @0x25
0x0ab3…0ae0 at0026 = ╱ef╱$╱ // 0xad9 @0x26
0x0ab3…0ae0 at0027 = ╱ed╱(╱ // 0xada @0x27
0x0ab3…0ae0 at0028 = ╱58╱X╱ // 0xadb @0x28
0x0ab3…0ae0 at0029 = ╱e3╱-╱ // 0xadc @0x29
0x0ab3…0ae0 at002a = ╱45╱E╱ // 0xadd @0x2a
0x0ab3…0ae0 at002b = ╱ee╱)╱ // 0xade @0x2b
0x0ab3…0ae0 at002c = EOL // 0xadf @0x2c
0x0ab3…0ae0 }
0x0ae0…0af8 984f 1130 EXEC FEJL(V,4,K2$)
0x0ae0…0af8 LineComalBin {
0x0ae0…0af8 ptr = 0x984f // 0xae0 @0x0
0x0ae0…0af8 lno = 0x046a // 0xae2 @0x2
0x0ae0…0af8 at0004 = ╱9d╱ EXEC ╱ // 0xae4 @0x4
0x0ae0…0af8 at0005 = ╱46╱F╱ // 0xae5 @0x5
0x0ae0…0af8 at0006 = ╱45╱E╱ // 0xae6 @0x6
0x0ae0…0af8 at0007 = ╱4a╱J╱ // 0xae7 @0x7
0x0ae0…0af8 at0008 = ╱4c╱L╱ // 0xae8 @0x8
0x0ae0…0af8 at0009 = ╱ed╱(╱ // 0xae9 @0x9
0x0ae0…0af8 at000a = ╱56╱V╱ // 0xaea @0xa
0x0ae0…0af8 at000b = ╱ec╱,╱ // 0xaeb @0xb
0x0ae0…0af8 at000c = ╱34╱4╱ // 0xaec @0xc
0x0ae0…0af8 at000d = ╱fe00008003╱ // 0xaed @0xd
0x0ae0…0af8 at0012 = ╱ec╱,╱ // 0xaf2 @0x12
0x0ae0…0af8 at0013 = ╱4b╱K╱ // 0xaf3 @0x13
0x0ae0…0af8 at0014 = ╱32╱2╱ // 0xaf4 @0x14
0x0ae0…0af8 at0015 = ╱ef╱$╱ // 0xaf5 @0x15
0x0ae0…0af8 at0016 = ╱ee╱)╱ // 0xaf6 @0x16
0x0ae0…0af8 at0017 = EOL // 0xaf7 @0x17
0x0ae0…0af8 }
0x0af8…0aff 9856 1140 NEXT X
0x0af8…0aff LineComalBin {
0x0af8…0aff ptr = 0x9856 // 0xaf8 @0x0
0x0af8…0aff lno = 0x0474 // 0xafa @0x2
0x0af8…0aff at0004 = ╱84╱ NEXT ╱ // 0xafc @0x4
0x0af8…0aff at0005 = ╱58╱X╱ // 0xafd @0x5
0x0af8…0aff at0006 = EOL // 0xafe @0x6
0x0af8…0aff }
0x0aff…0b05 985c 1150 ENDPROC
0x0aff…0b05 LineComalBin {
0x0aff…0b05 ptr = 0x985c // 0xaff @0x0
0x0aff…0b05 lno = 0x047e // 0xb01 @0x2
0x0aff…0b05 at0004 = ╱9f╱ ENDPROC ╱ // 0xb03 @0x4
0x0aff…0b05 at0005 = EOL // 0xb04 @0x5
0x0aff…0b05 }
0x0b05…0b13 986a 1160 PROC GEMEPOST
0x0b05…0b13 LineComalBin {
0x0b05…0b13 ptr = 0x986a // 0xb05 @0x0
0x0b05…0b13 lno = 0x0488 // 0xb07 @0x2
0x0b05…0b13 at0004 = ╱9e╱ PROC ╱ // 0xb09 @0x4
0x0b05…0b13 at0005 = ╱47╱G╱ // 0xb0a @0x5
0x0b05…0b13 at0006 = ╱45╱E╱ // 0xb0b @0x6
0x0b05…0b13 at0007 = ╱4d╱M╱ // 0xb0c @0x7
0x0b05…0b13 at0008 = ╱45╱E╱ // 0xb0d @0x8
0x0b05…0b13 at0009 = ╱50╱P╱ // 0xb0e @0x9
0x0b05…0b13 at000a = ╱4f╱O╱ // 0xb0f @0xa
0x0b05…0b13 at000b = ╱53╱S╱ // 0xb10 @0xb
0x0b05…0b13 at000c = ╱54╱T╱ // 0xb11 @0xc
0x0b05…0b13 at000d = EOL // 0xb12 @0xd
0x0b05…0b13 }
0x0b13…0b27 987e 1170 S=ETAB(EPIL3,G)
0x0b13…0b27 LineComalBin {
0x0b13…0b27 ptr = 0x987e // 0xb13 @0x0
0x0b13…0b27 lno = 0x0492 // 0xb15 @0x2
0x0b13…0b27 at0004 = ╱53╱S╱ // 0xb17 @0x4
0x0b13…0b27 at0005 = ╱dc╱=╱ // 0xb18 @0x5
0x0b13…0b27 at0006 = ╱45╱E╱ // 0xb19 @0x6
0x0b13…0b27 at0007 = ╱54╱T╱ // 0xb1a @0x7
0x0b13…0b27 at0008 = ╱41╱A╱ // 0xb1b @0x8
0x0b13…0b27 at0009 = ╱42╱B╱ // 0xb1c @0x9
0x0b13…0b27 at000a = ╱ed╱(╱ // 0xb1d @0xa
0x0b13…0b27 at000b = ╱45╱E╱ // 0xb1e @0xb
0x0b13…0b27 at000c = ╱50╱P╱ // 0xb1f @0xc
0x0b13…0b27 at000d = ╱49╱I╱ // 0xb20 @0xd
0x0b13…0b27 at000e = ╱4c╱L╱ // 0xb21 @0xe
0x0b13…0b27 at000f = ╱33╱3╱ // 0xb22 @0xf
0x0b13…0b27 at0010 = ╱ec╱,╱ // 0xb23 @0x10
0x0b13…0b27 at0011 = ╱47╱G╱ // 0xb24 @0x11
0x0b13…0b27 at0012 = ╱ee╱)╱ // 0xb25 @0x12
0x0b13…0b27 at0013 = EOL // 0xb26 @0x13
0x0b13…0b27 }
0x0b27…0b44 989b 1180 PUT K2$,S:FNR,EMREG$,EÅREG$
0x0b27…0b44 LineComalBin {
0x0b27…0b44 ptr = 0x989b // 0xb27 @0x0
0x0b27…0b44 lno = 0x049c // 0xb29 @0x2
0x0b27…0b44 at0004 = ╱aa╱ PUT ╱ // 0xb2b @0x4
0x0b27…0b44 at0005 = ╱4b╱K╱ // 0xb2c @0x5
0x0b27…0b44 at0006 = ╱32╱2╱ // 0xb2d @0x6
0x0b27…0b44 at0007 = ╱ef╱$╱ // 0xb2e @0x7
0x0b27…0b44 at0008 = ╱ec╱,╱ // 0xb2f @0x8
0x0b27…0b44 at0009 = ╱53╱S╱ // 0xb30 @0x9
0x0b27…0b44 at000a = ╱f0╱:╱ // 0xb31 @0xa
0x0b27…0b44 at000b = ╱46╱F╱ // 0xb32 @0xb
0x0b27…0b44 at000c = ╱4e╱N╱ // 0xb33 @0xc
0x0b27…0b44 at000d = ╱52╱R╱ // 0xb34 @0xd
0x0b27…0b44 at000e = ╱ec╱,╱ // 0xb35 @0xe
0x0b27…0b44 at000f = ╱45╱E╱ // 0xb36 @0xf
0x0b27…0b44 at0010 = ╱4d╱M╱ // 0xb37 @0x10
0x0b27…0b44 at0011 = ╱52╱R╱ // 0xb38 @0x11
0x0b27…0b44 at0012 = ╱45╱E╱ // 0xb39 @0x12
0x0b27…0b44 at0013 = ╱47╱G╱ // 0xb3a @0x13
0x0b27…0b44 at0014 = ╱ef╱$╱ // 0xb3b @0x14
0x0b27…0b44 at0015 = ╱ec╱,╱ // 0xb3c @0x15
0x0b27…0b44 at0016 = ╱45╱E╱ // 0xb3d @0x16
0x0b27…0b44 at0017 = ╱5d╱Å╱ // 0xb3e @0x17
0x0b27…0b44 at0018 = ╱52╱R╱ // 0xb3f @0x18
0x0b27…0b44 at0019 = ╱45╱E╱ // 0xb40 @0x19
0x0b27…0b44 at001a = ╱47╱G╱ // 0xb41 @0x1a
0x0b27…0b44 at001b = ╱ef╱$╱ // 0xb42 @0x1b
0x0b27…0b44 at001c = EOL // 0xb43 @0x1c
0x0b27…0b44 }
0x0b44…0b5c 98b3 1190 EXEC FEJL(4,V,K2$)
0x0b44…0b5c LineComalBin {
0x0b44…0b5c ptr = 0x98b3 // 0xb44 @0x0
0x0b44…0b5c lno = 0x04a6 // 0xb46 @0x2
0x0b44…0b5c at0004 = ╱9d╱ EXEC ╱ // 0xb48 @0x4
0x0b44…0b5c at0005 = ╱46╱F╱ // 0xb49 @0x5
0x0b44…0b5c at0006 = ╱45╱E╱ // 0xb4a @0x6
0x0b44…0b5c at0007 = ╱4a╱J╱ // 0xb4b @0x7
0x0b44…0b5c at0008 = ╱4c╱L╱ // 0xb4c @0x8
0x0b44…0b5c at0009 = ╱ed╱(╱ // 0xb4d @0x9
0x0b44…0b5c at000a = ╱34╱4╱ // 0xb4e @0xa
0x0b44…0b5c at000b = ╱fe00008003╱ // 0xb4f @0xb
0x0b44…0b5c at0010 = ╱ec╱,╱ // 0xb54 @0x10
0x0b44…0b5c at0011 = ╱56╱V╱ // 0xb55 @0x11
0x0b44…0b5c at0012 = ╱ec╱,╱ // 0xb56 @0x12
0x0b44…0b5c at0013 = ╱4b╱K╱ // 0xb57 @0x13
0x0b44…0b5c at0014 = ╱32╱2╱ // 0xb58 @0x14
0x0b44…0b5c at0015 = ╱ef╱$╱ // 0xb59 @0x15
0x0b44…0b5c at0016 = ╱ee╱)╱ // 0xb5a @0x16
0x0b44…0b5c at0017 = EOL // 0xb5b @0x17
0x0b44…0b5c }
0x0b5c…0b70 98c7 1200 PUT K2$,S+E:ENAVN$
0x0b5c…0b70 LineComalBin {
0x0b5c…0b70 ptr = 0x98c7 // 0xb5c @0x0
0x0b5c…0b70 lno = 0x04b0 // 0xb5e @0x2
0x0b5c…0b70 at0004 = ╱aa╱ PUT ╱ // 0xb60 @0x4
0x0b5c…0b70 at0005 = ╱4b╱K╱ // 0xb61 @0x5
0x0b5c…0b70 at0006 = ╱32╱2╱ // 0xb62 @0x6
0x0b5c…0b70 at0007 = ╱ef╱$╱ // 0xb63 @0x7
0x0b5c…0b70 at0008 = ╱ec╱,╱ // 0xb64 @0x8
0x0b5c…0b70 at0009 = ╱53╱S╱ // 0xb65 @0x9
0x0b5c…0b70 at000a = ╱e2╱+╱ // 0xb66 @0xa
0x0b5c…0b70 at000b = ╱45╱E╱ // 0xb67 @0xb
0x0b5c…0b70 at000c = ╱f0╱:╱ // 0xb68 @0xc
0x0b5c…0b70 at000d = ╱45╱E╱ // 0xb69 @0xd
0x0b5c…0b70 at000e = ╱4e╱N╱ // 0xb6a @0xe
0x0b5c…0b70 at000f = ╱41╱A╱ // 0xb6b @0xf
0x0b5c…0b70 at0010 = ╱56╱V╱ // 0xb6c @0x10
0x0b5c…0b70 at0011 = ╱4e╱N╱ // 0xb6d @0x11
0x0b5c…0b70 at0012 = ╱ef╱$╱ // 0xb6e @0x12
0x0b5c…0b70 at0013 = EOL // 0xb6f @0x13
0x0b5c…0b70 }
0x0b70…0b8d 98e4 1210 EXEC FEJL(4,4,K2$)
0x0b70…0b8d LineComalBin {
0x0b70…0b8d ptr = 0x98e4 // 0xb70 @0x0
0x0b70…0b8d lno = 0x04ba // 0xb72 @0x2
0x0b70…0b8d at0004 = ╱9d╱ EXEC ╱ // 0xb74 @0x4
0x0b70…0b8d at0005 = ╱46╱F╱ // 0xb75 @0x5
0x0b70…0b8d at0006 = ╱45╱E╱ // 0xb76 @0x6
0x0b70…0b8d at0007 = ╱4a╱J╱ // 0xb77 @0x7
0x0b70…0b8d at0008 = ╱4c╱L╱ // 0xb78 @0x8
0x0b70…0b8d at0009 = ╱ed╱(╱ // 0xb79 @0x9
0x0b70…0b8d at000a = ╱34╱4╱ // 0xb7a @0xa
0x0b70…0b8d at000b = ╱fe00008003╱ // 0xb7b @0xb
0x0b70…0b8d at0010 = ╱ec╱,╱ // 0xb80 @0x10
0x0b70…0b8d at0011 = ╱34╱4╱ // 0xb81 @0x11
0x0b70…0b8d at0012 = ╱fe00008003╱ // 0xb82 @0x12
0x0b70…0b8d at0017 = ╱ec╱,╱ // 0xb87 @0x17
0x0b70…0b8d at0018 = ╱4b╱K╱ // 0xb88 @0x18
0x0b70…0b8d at0019 = ╱32╱2╱ // 0xb89 @0x19
0x0b70…0b8d at001a = ╱ef╱$╱ // 0xb8a @0x1a
0x0b70…0b8d at001b = ╱ee╱)╱ // 0xb8b @0x1b
0x0b70…0b8d at001c = EOL // 0xb8c @0x1c
0x0b70…0b8d }
0x0b8d…0ba0 98f7 1220 FOR X=G TO MUNKANT+E
0x0b8d…0ba0 LineComalBin {
0x0b8d…0ba0 ptr = 0x98f7 // 0xb8d @0x0
0x0b8d…0ba0 lno = 0x04c4 // 0xb8f @0x2
0x0b8d…0ba0 at0004 = ╱83╱ FOR ╱ // 0xb91 @0x4
0x0b8d…0ba0 at0005 = ╱58╱X╱ // 0xb92 @0x5
0x0b8d…0ba0 at0006 = ╱dc╱=╱ // 0xb93 @0x6
0x0b8d…0ba0 at0007 = ╱47╱G╱ // 0xb94 @0x7
0x0b8d…0ba0 at0008 = ╱b7╱ TO ╱ // 0xb95 @0x8
0x0b8d…0ba0 at0009 = ╱4d╱M╱ // 0xb96 @0x9
0x0b8d…0ba0 at000a = ╱55╱U╱ // 0xb97 @0xa
0x0b8d…0ba0 at000b = ╱4e╱N╱ // 0xb98 @0xb
0x0b8d…0ba0 at000c = ╱4b╱K╱ // 0xb99 @0xc
0x0b8d…0ba0 at000d = ╱41╱A╱ // 0xb9a @0xd
0x0b8d…0ba0 at000e = ╱4e╱N╱ // 0xb9b @0xe
0x0b8d…0ba0 at000f = ╱54╱T╱ // 0xb9c @0xf
0x0b8d…0ba0 at0010 = ╱e2╱+╱ // 0xb9d @0x10
0x0b8d…0ba0 at0011 = ╱45╱E╱ // 0xb9e @0x11
0x0b8d…0ba0 at0012 = EOL // 0xb9f @0x12
0x0b8d…0ba0 }
0x0ba0…0bcd 9924 1230 PUT K2$,S+X:UKNR(X-E),MBEV$(X-E),ÅBEV$(X-E)
0x0ba0…0bcd LineComalBin {
0x0ba0…0bcd ptr = 0x9924 // 0xba0 @0x0
0x0ba0…0bcd lno = 0x04ce // 0xba2 @0x2
0x0ba0…0bcd at0004 = ╱aa╱ PUT ╱ // 0xba4 @0x4
0x0ba0…0bcd at0005 = ╱4b╱K╱ // 0xba5 @0x5
0x0ba0…0bcd at0006 = ╱32╱2╱ // 0xba6 @0x6
0x0ba0…0bcd at0007 = ╱ef╱$╱ // 0xba7 @0x7
0x0ba0…0bcd at0008 = ╱ec╱,╱ // 0xba8 @0x8
0x0ba0…0bcd at0009 = ╱53╱S╱ // 0xba9 @0x9
0x0ba0…0bcd at000a = ╱e2╱+╱ // 0xbaa @0xa
0x0ba0…0bcd at000b = ╱58╱X╱ // 0xbab @0xb
0x0ba0…0bcd at000c = ╱f0╱:╱ // 0xbac @0xc
0x0ba0…0bcd at000d = ╱55╱U╱ // 0xbad @0xd
0x0ba0…0bcd at000e = ╱4b╱K╱ // 0xbae @0xe
0x0ba0…0bcd at000f = ╱4e╱N╱ // 0xbaf @0xf
0x0ba0…0bcd at0010 = ╱52╱R╱ // 0xbb0 @0x10
0x0ba0…0bcd at0011 = ╱ed╱(╱ // 0xbb1 @0x11
0x0ba0…0bcd at0012 = ╱58╱X╱ // 0xbb2 @0x12
0x0ba0…0bcd at0013 = ╱e3╱-╱ // 0xbb3 @0x13
0x0ba0…0bcd at0014 = ╱45╱E╱ // 0xbb4 @0x14
0x0ba0…0bcd at0015 = ╱ee╱)╱ // 0xbb5 @0x15
0x0ba0…0bcd at0016 = ╱ec╱,╱ // 0xbb6 @0x16
0x0ba0…0bcd at0017 = ╱4d╱M╱ // 0xbb7 @0x17
0x0ba0…0bcd at0018 = ╱42╱B╱ // 0xbb8 @0x18
0x0ba0…0bcd at0019 = ╱45╱E╱ // 0xbb9 @0x19
0x0ba0…0bcd at001a = ╱56╱V╱ // 0xbba @0x1a
0x0ba0…0bcd at001b = ╱ef╱$╱ // 0xbbb @0x1b
0x0ba0…0bcd at001c = ╱ed╱(╱ // 0xbbc @0x1c
0x0ba0…0bcd at001d = ╱58╱X╱ // 0xbbd @0x1d
0x0ba0…0bcd at001e = ╱e3╱-╱ // 0xbbe @0x1e
0x0ba0…0bcd at001f = ╱45╱E╱ // 0xbbf @0x1f
0x0ba0…0bcd at0020 = ╱ee╱)╱ // 0xbc0 @0x20
0x0ba0…0bcd at0021 = ╱ec╱,╱ // 0xbc1 @0x21
0x0ba0…0bcd at0022 = ╱5d╱Å╱ // 0xbc2 @0x22
0x0ba0…0bcd at0023 = ╱42╱B╱ // 0xbc3 @0x23
0x0ba0…0bcd at0024 = ╱45╱E╱ // 0xbc4 @0x24
0x0ba0…0bcd at0025 = ╱56╱V╱ // 0xbc5 @0x25
0x0ba0…0bcd at0026 = ╱ef╱$╱ // 0xbc6 @0x26
0x0ba0…0bcd at0027 = ╱ed╱(╱ // 0xbc7 @0x27
0x0ba0…0bcd at0028 = ╱58╱X╱ // 0xbc8 @0x28
0x0ba0…0bcd at0029 = ╱e3╱-╱ // 0xbc9 @0x29
0x0ba0…0bcd at002a = ╱45╱E╱ // 0xbca @0x2a
0x0ba0…0bcd at002b = ╱ee╱)╱ // 0xbcb @0x2b
0x0ba0…0bcd at002c = EOL // 0xbcc @0x2c
0x0ba0…0bcd }
0x0bcd…0bea 9941 1240 EXEC FEJL(4,4,K2$)
0x0bcd…0bea LineComalBin {
0x0bcd…0bea ptr = 0x9941 // 0xbcd @0x0
0x0bcd…0bea lno = 0x04d8 // 0xbcf @0x2
0x0bcd…0bea at0004 = ╱9d╱ EXEC ╱ // 0xbd1 @0x4
0x0bcd…0bea at0005 = ╱46╱F╱ // 0xbd2 @0x5
0x0bcd…0bea at0006 = ╱45╱E╱ // 0xbd3 @0x6
0x0bcd…0bea at0007 = ╱4a╱J╱ // 0xbd4 @0x7
0x0bcd…0bea at0008 = ╱4c╱L╱ // 0xbd5 @0x8
0x0bcd…0bea at0009 = ╱ed╱(╱ // 0xbd6 @0x9
0x0bcd…0bea at000a = ╱34╱4╱ // 0xbd7 @0xa
0x0bcd…0bea at000b = ╱fe00008003╱ // 0xbd8 @0xb
0x0bcd…0bea at0010 = ╱ec╱,╱ // 0xbdd @0x10
0x0bcd…0bea at0011 = ╱34╱4╱ // 0xbde @0x11
0x0bcd…0bea at0012 = ╱fe00008003╱ // 0xbdf @0x12
0x0bcd…0bea at0017 = ╱ec╱,╱ // 0xbe4 @0x17
0x0bcd…0bea at0018 = ╱4b╱K╱ // 0xbe5 @0x18
0x0bcd…0bea at0019 = ╱32╱2╱ // 0xbe6 @0x19
0x0bcd…0bea at001a = ╱ef╱$╱ // 0xbe7 @0x1a
0x0bcd…0bea at001b = ╱ee╱)╱ // 0xbe8 @0x1b
0x0bcd…0bea at001c = EOL // 0xbe9 @0x1c
0x0bcd…0bea }
0x0bea…0bf1 9948 1250 NEXT X
0x0bea…0bf1 LineComalBin {
0x0bea…0bf1 ptr = 0x9948 // 0xbea @0x0
0x0bea…0bf1 lno = 0x04e2 // 0xbec @0x2
0x0bea…0bf1 at0004 = ╱84╱ NEXT ╱ // 0xbee @0x4
0x0bea…0bf1 at0005 = ╱58╱X╱ // 0xbef @0x5
0x0bea…0bf1 at0006 = EOL // 0xbf0 @0x6
0x0bea…0bf1 }
0x0bf1…0bf7 994e 1260 ENDPROC
0x0bf1…0bf7 LineComalBin {
0x0bf1…0bf7 ptr = 0x994e // 0xbf1 @0x0
0x0bf1…0bf7 lno = 0x04ec // 0xbf3 @0x2
0x0bf1…0bf7 at0004 = ╱9f╱ ENDPROC ╱ // 0xbf5 @0x4
0x0bf1…0bf7 at0005 = EOL // 0xbf6 @0x5
0x0bf1…0bf7 }
0x0bf7…0c16 996d 1270 PROC FINDTAST(FSTYR,FÆND,FNR2)
0x0bf7…0c16 LineComalBin {
0x0bf7…0c16 ptr = 0x996d // 0xbf7 @0x0
0x0bf7…0c16 lno = 0x04f6 // 0xbf9 @0x2
0x0bf7…0c16 at0004 = ╱9e╱ PROC ╱ // 0xbfb @0x4
0x0bf7…0c16 at0005 = ╱46╱F╱ // 0xbfc @0x5
0x0bf7…0c16 at0006 = ╱49╱I╱ // 0xbfd @0x6
0x0bf7…0c16 at0007 = ╱4e╱N╱ // 0xbfe @0x7
0x0bf7…0c16 at0008 = ╱44╱D╱ // 0xbff @0x8
0x0bf7…0c16 at0009 = ╱54╱T╱ // 0xc00 @0x9
0x0bf7…0c16 at000a = ╱41╱A╱ // 0xc01 @0xa
0x0bf7…0c16 at000b = ╱53╱S╱ // 0xc02 @0xb
0x0bf7…0c16 at000c = ╱54╱T╱ // 0xc03 @0xc
0x0bf7…0c16 at000d = ╱ed╱(╱ // 0xc04 @0xd
0x0bf7…0c16 at000e = ╱46╱F╱ // 0xc05 @0xe
0x0bf7…0c16 at000f = ╱53╱S╱ // 0xc06 @0xf
0x0bf7…0c16 at0010 = ╱54╱T╱ // 0xc07 @0x10
0x0bf7…0c16 at0011 = ╱59╱Y╱ // 0xc08 @0x11
0x0bf7…0c16 at0012 = ╱52╱R╱ // 0xc09 @0x12
0x0bf7…0c16 at0013 = ╱ec╱,╱ // 0xc0a @0x13
0x0bf7…0c16 at0014 = ╱46╱F╱ // 0xc0b @0x14
0x0bf7…0c16 at0015 = ╱5b╱Æ╱ // 0xc0c @0x15
0x0bf7…0c16 at0016 = ╱4e╱N╱ // 0xc0d @0x16
0x0bf7…0c16 at0017 = ╱44╱D╱ // 0xc0e @0x17
0x0bf7…0c16 at0018 = ╱ec╱,╱ // 0xc0f @0x18
0x0bf7…0c16 at0019 = ╱46╱F╱ // 0xc10 @0x19
0x0bf7…0c16 at001a = ╱4e╱N╱ // 0xc11 @0x1a
0x0bf7…0c16 at001b = ╱52╱R╱ // 0xc12 @0x1b
0x0bf7…0c16 at001c = ╱32╱2╱ // 0xc13 @0x1c
0x0bf7…0c16 at001d = ╱ee╱)╱ // 0xc14 @0x1d
0x0bf7…0c16 at001e = EOL // 0xc15 @0x1e
0x0bf7…0c16 }
0x0c16…0c23 997a 1280 IF FÆND<>E THEN
0x0c16…0c23 LineComalBin {
0x0c16…0c23 ptr = 0x997a // 0xc16 @0x0
0x0c16…0c23 lno = 0x0500 // 0xc18 @0x2
0x0c16…0c23 at0004 = ╱9c╱ IF ╱ // 0xc1a @0x4
0x0c16…0c23 at0005 = ╱46╱F╱ // 0xc1b @0x5
0x0c16…0c23 at0006 = ╱5b╱Æ╱ // 0xc1c @0x6
0x0c16…0c23 at0007 = ╱4e╱N╱ // 0xc1d @0x7
0x0c16…0c23 at0008 = ╱44╱D╱ // 0xc1e @0x8
0x0c16…0c23 at0009 = ╱e1╱<>╱ // 0xc1f @0x9
0x0c16…0c23 at000a = ╱45╱E╱ // 0xc20 @0xa
0x0c16…0c23 at000b = ╱b6╱ THEN ╱ // 0xc21 @0xb
0x0c16…0c23 at000c = EOL // 0xc22 @0xc
0x0c16…0c23 }
0x0c23…0c29 9980 1290 CLEAR
0x0c23…0c29 LineComalBin {
0x0c23…0c29 ptr = 0x9980 // 0xc23 @0x0
0x0c23…0c29 lno = 0x050a // 0xc25 @0x2
0x0c23…0c29 at0004 = ╱a0╱ CLEAR ╱ // 0xc27 @0x4
0x0c23…0c29 at0005 = EOL // 0xc28 @0x5
0x0c23…0c29 }
0x0c29…0c38 998f 1300 CURSOR 15,E
0x0c29…0c38 LineComalBin {
0x0c29…0c38 ptr = 0x998f // 0xc29 @0x0
0x0c29…0c38 lno = 0x0514 // 0xc2b @0x2
0x0c29…0c38 at0004 = ╱a1╱ CURSOR ╱ // 0xc2d @0x4
0x0c29…0c38 at0005 = ╱31╱1╱ // 0xc2e @0x5
0x0c29…0c38 at0006 = ╱35╱5╱ // 0xc2f @0x6
0x0c29…0c38 at0007 = ╱fe0000f004╱ // 0xc30 @0x7
0x0c29…0c38 at000c = ╱ec╱,╱ // 0xc35 @0xc
0x0c29…0c38 at000d = ╱45╱E╱ // 0xc36 @0xd
0x0c29…0c38 at000e = EOL // 0xc37 @0xe
0x0c29…0c38 }
0x0c38…0c56 99ad 1310 PRINT "Entrepriseoplysninger."
0x0c38…0c56 LineComalBin {
0x0c38…0c56 ptr = 0x99ad // 0xc38 @0x0
0x0c38…0c56 lno = 0x051e // 0xc3a @0x2
0x0c38…0c56 at0004 = ╱92╱ PRINT ╱ // 0xc3c @0x4
0x0c38…0c56 at0005 = ╱22╱"╱ // 0xc3d @0x5
0x0c38…0c56 at0006 = ╱45╱E╱ // 0xc3e @0x6
0x0c38…0c56 at0007 = ╱6e╱n╱ // 0xc3f @0x7
0x0c38…0c56 at0008 = ╱74╱t╱ // 0xc40 @0x8
0x0c38…0c56 at0009 = ╱72╱r╱ // 0xc41 @0x9
0x0c38…0c56 at000a = ╱65╱e╱ // 0xc42 @0xa
0x0c38…0c56 at000b = ╱70╱p╱ // 0xc43 @0xb
0x0c38…0c56 at000c = ╱72╱r╱ // 0xc44 @0xc
0x0c38…0c56 at000d = ╱69╱i╱ // 0xc45 @0xd
0x0c38…0c56 at000e = ╱73╱s╱ // 0xc46 @0xe
0x0c38…0c56 at000f = ╱65╱e╱ // 0xc47 @0xf
0x0c38…0c56 at0010 = ╱6f╱o╱ // 0xc48 @0x10
0x0c38…0c56 at0011 = ╱70╱p╱ // 0xc49 @0x11
0x0c38…0c56 at0012 = ╱6c╱l╱ // 0xc4a @0x12
0x0c38…0c56 at0013 = ╱79╱y╱ // 0xc4b @0x13
0x0c38…0c56 at0014 = ╱73╱s╱ // 0xc4c @0x14
0x0c38…0c56 at0015 = ╱6e╱n╱ // 0xc4d @0x15
0x0c38…0c56 at0016 = ╱69╱i╱ // 0xc4e @0x16
0x0c38…0c56 at0017 = ╱6e╱n╱ // 0xc4f @0x17
0x0c38…0c56 at0018 = ╱67╱g╱ // 0xc50 @0x18
0x0c38…0c56 at0019 = ╱65╱e╱ // 0xc51 @0x19
0x0c38…0c56 at001a = ╱72╱r╱ // 0xc52 @0x1a
0x0c38…0c56 at001b = ╱2e╱.╱ // 0xc53 @0x1b
0x0c38…0c56 at001c = ╱22╱"╱ // 0xc54 @0x1c
0x0c38…0c56 at001d = EOL // 0xc55 @0x1d
0x0c38…0c56 }
0x0c56…0c65 99bc 1320 EXEC VERSKRIFT
0x0c56…0c65 LineComalBin {
0x0c56…0c65 ptr = 0x99bc // 0xc56 @0x0
0x0c56…0c65 lno = 0x0528 // 0xc58 @0x2
0x0c56…0c65 at0004 = ╱9d╱ EXEC ╱ // 0xc5a @0x4
0x0c56…0c65 at0005 = ╱56╱V╱ // 0xc5b @0x5
0x0c56…0c65 at0006 = ╱45╱E╱ // 0xc5c @0x6
0x0c56…0c65 at0007 = ╱52╱R╱ // 0xc5d @0x7
0x0c56…0c65 at0008 = ╱53╱S╱ // 0xc5e @0x8
0x0c56…0c65 at0009 = ╱4b╱K╱ // 0xc5f @0x9
0x0c56…0c65 at000a = ╱52╱R╱ // 0xc60 @0xa
0x0c56…0c65 at000b = ╱49╱I╱ // 0xc61 @0xb
0x0c56…0c65 at000c = ╱46╱F╱ // 0xc62 @0xc
0x0c56…0c65 at000d = ╱54╱T╱ // 0xc63 @0xd
0x0c56…0c65 at000e = EOL // 0xc64 @0xe
0x0c56…0c65 }
0x0c65…0c6e 99c5 1330 CURSOR G,V
0x0c65…0c6e LineComalBin {
0x0c65…0c6e ptr = 0x99c5 // 0xc65 @0x0
0x0c65…0c6e lno = 0x0532 // 0xc67 @0x2
0x0c65…0c6e at0004 = ╱a1╱ CURSOR ╱ // 0xc69 @0x4
0x0c65…0c6e at0005 = ╱47╱G╱ // 0xc6a @0x5
0x0c65…0c6e at0006 = ╱ec╱,╱ // 0xc6b @0x6
0x0c65…0c6e at0007 = ╱56╱V╱ // 0xc6c @0x7
0x0c65…0c6e at0008 = EOL // 0xc6d @0x8
0x0c65…0c6e }
0x0c6e…0c95 99ec 1340 PRINT USING "1:Entreprisenr. : ######":FNR2
0x0c6e…0c95 LineComalBin {
0x0c6e…0c95 ptr = 0x99ec // 0xc6e @0x0
0x0c6e…0c95 lno = 0x053c // 0xc70 @0x2
0x0c6e…0c95 at0004 = ╱92╱ PRINT ╱ // 0xc72 @0x4
0x0c6e…0c95 at0005 = ╱b9╱ USING ╱ // 0xc73 @0x5
0x0c6e…0c95 at0006 = ╱22╱"╱ // 0xc74 @0x6
0x0c6e…0c95 at0007 = ╱31╱1╱ // 0xc75 @0x7
0x0c6e…0c95 at0008 = ╱3a╱:╱ // 0xc76 @0x8
0x0c6e…0c95 at0009 = ╱45╱E╱ // 0xc77 @0x9
0x0c6e…0c95 at000a = ╱6e╱n╱ // 0xc78 @0xa
0x0c6e…0c95 at000b = ╱74╱t╱ // 0xc79 @0xb
0x0c6e…0c95 at000c = ╱72╱r╱ // 0xc7a @0xc
0x0c6e…0c95 at000d = ╱65╱e╱ // 0xc7b @0xd
0x0c6e…0c95 at000e = ╱70╱p╱ // 0xc7c @0xe
0x0c6e…0c95 at000f = ╱72╱r╱ // 0xc7d @0xf
0x0c6e…0c95 at0010 = ╱69╱i╱ // 0xc7e @0x10
0x0c6e…0c95 at0011 = ╱73╱s╱ // 0xc7f @0x11
0x0c6e…0c95 at0012 = ╱65╱e╱ // 0xc80 @0x12
0x0c6e…0c95 at0013 = ╱6e╱n╱ // 0xc81 @0x13
0x0c6e…0c95 at0014 = ╱72╱r╱ // 0xc82 @0x14
0x0c6e…0c95 at0015 = ╱2e╱.╱ // 0xc83 @0x15
0x0c6e…0c95 at0016 = ╱20╱…╱ // 0xc84 @0x16
0x0c6e…0c95 at0017 = ╱20╱…╱ // 0xc85 @0x17
0x0c6e…0c95 at0018 = ╱3a╱:╱ // 0xc86 @0x18
0x0c6e…0c95 at0019 = ╱20╱…╱ // 0xc87 @0x19
0x0c6e…0c95 at001a = ╱23╱#╱ // 0xc88 @0x1a
0x0c6e…0c95 at001b = ╱23╱#╱ // 0xc89 @0x1b
0x0c6e…0c95 at001c = ╱23╱#╱ // 0xc8a @0x1c
0x0c6e…0c95 at001d = ╱23╱#╱ // 0xc8b @0x1d
0x0c6e…0c95 at001e = ╱23╱#╱ // 0xc8c @0x1e
0x0c6e…0c95 at001f = ╱23╱#╱ // 0xc8d @0x1f
0x0c6e…0c95 at0020 = ╱22╱"╱ // 0xc8e @0x20
0x0c6e…0c95 at0021 = ╱f0╱:╱ // 0xc8f @0x21
0x0c6e…0c95 at0022 = ╱46╱F╱ // 0xc90 @0x22
0x0c6e…0c95 at0023 = ╱4e╱N╱ // 0xc91 @0x23
0x0c6e…0c95 at0024 = ╱52╱R╱ // 0xc92 @0x24
0x0c6e…0c95 at0025 = ╱32╱2╱ // 0xc93 @0x25
0x0c6e…0c95 at0026 = EOL // 0xc94 @0x26
0x0c6e…0c95 }
0x0c95…0c9b 99f2 1350 ENDIF
0x0c95…0c9b LineComalBin {
0x0c95…0c9b ptr = 0x99f2 // 0xc95 @0x0
0x0c95…0c9b lno = 0x0546 // 0xc97 @0x2
0x0c95…0c9b at0004 = ╱9b╱ ENDIF ╱ // 0xc99 @0x4
0x0c95…0c9b at0005 = EOL // 0xc9a @0x5
0x0c95…0c9b }
0x0c9b…0ca1 99f8 1360 REPEAT
0x0c9b…0ca1 LineComalBin {
0x0c9b…0ca1 ptr = 0x99f8 // 0xc9b @0x0
0x0c9b…0ca1 lno = 0x0550 // 0xc9d @0x2
0x0c9b…0ca1 at0004 = ╱97╱ REPEAT ╱ // 0xc9f @0x4
0x0c9b…0ca1 at0005 = EOL // 0xca0 @0x5
0x0c9b…0ca1 }
0x0ca1…0cae 9a05 1370 CASE FSTYR OF
0x0ca1…0cae LineComalBin {
0x0ca1…0cae ptr = 0x9a05 // 0xca1 @0x0
0x0ca1…0cae lno = 0x055a // 0xca3 @0x2
0x0ca1…0cae at0004 = ╱a201╱ CASE ╱ // 0xca5 @0x4
0x0ca1…0cae at0006 = ╱46╱F╱ // 0xca7 @0x6
0x0ca1…0cae at0007 = ╱53╱S╱ // 0xca8 @0x7
0x0ca1…0cae at0008 = ╱54╱T╱ // 0xca9 @0x8
0x0ca1…0cae at0009 = ╱59╱Y╱ // 0xcaa @0x9
0x0ca1…0cae at000a = ╱52╱R╱ // 0xcab @0xa
0x0ca1…0cae at000b = ╱ba╱ OF ╱ // 0xcac @0xb
0x0ca1…0cae at000c = EOL // 0xcad @0xc
0x0ca1…0cae }
0x0cae…0cb4 9a0b 1380 STOP
0x0cae…0cb4 LineComalBin {
0x0cae…0cb4 ptr = 0x9a0b // 0xcae @0x0
0x0cae…0cb4 lno = 0x0564 // 0xcb0 @0x2
0x0cae…0cb4 at0004 = ╱8d╱ STOP ╱ // 0xcb2 @0x4
0x0cae…0cb4 at0005 = EOL // 0xcb3 @0x5
0x0cae…0cb4 }
0x0cb4…0cbc 9a13 1390 WHEN G
0x0cb4…0cbc LineComalBin {
0x0cb4…0cbc ptr = 0x9a13 // 0xcb4 @0x0
0x0cb4…0cbc lno = 0x056e // 0xcb6 @0x2
0x0cb4…0cbc at0004 = ╱a301╱ WHEN ╱ // 0xcb8 @0x4
0x0cb4…0cbc at0006 = ╱47╱G╱ // 0xcba @0x6
0x0cb4…0cbc at0007 = EOL // 0xcbb @0x7
0x0cb4…0cbc }
0x0cbc…0cc9 9a20 1400 IF FÆND<>E THEN
0x0cbc…0cc9 LineComalBin {
0x0cbc…0cc9 ptr = 0x9a20 // 0xcbc @0x0
0x0cbc…0cc9 lno = 0x0578 // 0xcbe @0x2
0x0cbc…0cc9 at0004 = ╱9c╱ IF ╱ // 0xcc0 @0x4
0x0cbc…0cc9 at0005 = ╱46╱F╱ // 0xcc1 @0x5
0x0cbc…0cc9 at0006 = ╱5b╱Æ╱ // 0xcc2 @0x6
0x0cbc…0cc9 at0007 = ╱4e╱N╱ // 0xcc3 @0x7
0x0cbc…0cc9 at0008 = ╱44╱D╱ // 0xcc4 @0x8
0x0cbc…0cc9 at0009 = ╱e1╱<>╱ // 0xcc5 @0x9
0x0cbc…0cc9 at000a = ╱45╱E╱ // 0xcc6 @0xa
0x0cbc…0cc9 at000b = ╱b6╱ THEN ╱ // 0xcc7 @0xb
0x0cbc…0cc9 at000c = EOL // 0xcc8 @0xc
0x0cbc…0cc9 }
0x0cc9…0cd7 9a2e 1410 CURSOR G,5
0x0cc9…0cd7 LineComalBin {
0x0cc9…0cd7 ptr = 0x9a2e // 0xcc9 @0x0
0x0cc9…0cd7 lno = 0x0582 // 0xccb @0x2
0x0cc9…0cd7 at0004 = ╱a1╱ CURSOR ╱ // 0xccd @0x4
0x0cc9…0cd7 at0005 = ╱47╱G╱ // 0xcce @0x5
0x0cc9…0cd7 at0006 = ╱ec╱,╱ // 0xccf @0x6
0x0cc9…0cd7 at0007 = ╱35╱5╱ // 0xcd0 @0x7
0x0cc9…0cd7 at0008 = ╱fe0000a003╱ // 0xcd1 @0x8
0x0cc9…0cd7 at000d = EOL // 0xcd6 @0xd
0x0cc9…0cd7 }
0x0cd7…0cf1 9a48 1420 PRINT "2:Entreprisenavn :"
0x0cd7…0cf1 LineComalBin {
0x0cd7…0cf1 ptr = 0x9a48 // 0xcd7 @0x0
0x0cd7…0cf1 lno = 0x058c // 0xcd9 @0x2
0x0cd7…0cf1 at0004 = ╱92╱ PRINT ╱ // 0xcdb @0x4
0x0cd7…0cf1 at0005 = ╱22╱"╱ // 0xcdc @0x5
0x0cd7…0cf1 at0006 = ╱32╱2╱ // 0xcdd @0x6
0x0cd7…0cf1 at0007 = ╱3a╱:╱ // 0xcde @0x7
0x0cd7…0cf1 at0008 = ╱45╱E╱ // 0xcdf @0x8
0x0cd7…0cf1 at0009 = ╱6e╱n╱ // 0xce0 @0x9
0x0cd7…0cf1 at000a = ╱74╱t╱ // 0xce1 @0xa
0x0cd7…0cf1 at000b = ╱72╱r╱ // 0xce2 @0xb
0x0cd7…0cf1 at000c = ╱65╱e╱ // 0xce3 @0xc
0x0cd7…0cf1 at000d = ╱70╱p╱ // 0xce4 @0xd
0x0cd7…0cf1 at000e = ╱72╱r╱ // 0xce5 @0xe
0x0cd7…0cf1 at000f = ╱69╱i╱ // 0xce6 @0xf
0x0cd7…0cf1 at0010 = ╱73╱s╱ // 0xce7 @0x10
0x0cd7…0cf1 at0011 = ╱65╱e╱ // 0xce8 @0x11
0x0cd7…0cf1 at0012 = ╱6e╱n╱ // 0xce9 @0x12
0x0cd7…0cf1 at0013 = ╱61╱a╱ // 0xcea @0x13
0x0cd7…0cf1 at0014 = ╱76╱v╱ // 0xceb @0x14
0x0cd7…0cf1 at0015 = ╱6e╱n╱ // 0xcec @0x15
0x0cd7…0cf1 at0016 = ╱20╱…╱ // 0xced @0x16
0x0cd7…0cf1 at0017 = ╱3a╱:╱ // 0xcee @0x17
0x0cd7…0cf1 at0018 = ╱22╱"╱ // 0xcef @0x18
0x0cd7…0cf1 at0019 = EOL // 0xcf0 @0x19
0x0cd7…0cf1 }
0x0cf1…0cfd 9a54 1430 FSTYR=V
0x0cf1…0cfd LineComalBin {
0x0cf1…0cfd ptr = 0x9a54 // 0xcf1 @0x0
0x0cf1…0cfd lno = 0x0596 // 0xcf3 @0x2
0x0cf1…0cfd at0004 = ╱46╱F╱ // 0xcf5 @0x4
0x0cf1…0cfd at0005 = ╱53╱S╱ // 0xcf6 @0x5
0x0cf1…0cfd at0006 = ╱54╱T╱ // 0xcf7 @0x6
0x0cf1…0cfd at0007 = ╱59╱Y╱ // 0xcf8 @0x7
0x0cf1…0cfd at0008 = ╱52╱R╱ // 0xcf9 @0x8
0x0cf1…0cfd at0009 = ╱dc╱=╱ // 0xcfa @0x9
0x0cf1…0cfd at000a = ╱56╱V╱ // 0xcfb @0xa
0x0cf1…0cfd at000b = EOL // 0xcfc @0xb
0x0cf1…0cfd }
0x0cfd…0d03 9a5a 1440 ENDIF
0x0cfd…0d03 LineComalBin {
0x0cfd…0d03 ptr = 0x9a5a // 0xcfd @0x0
0x0cfd…0d03 lno = 0x05a0 // 0xcff @0x2
0x0cfd…0d03 at0004 = ╱9b╱ ENDIF ╱ // 0xd01 @0x4
0x0cfd…0d03 at0005 = EOL // 0xd02 @0x5
0x0cfd…0d03 }
0x0d03…0d10 9a67 1450 IF FÆND<>G THEN
0x0d03…0d10 LineComalBin {
0x0d03…0d10 ptr = 0x9a67 // 0xd03 @0x0
0x0d03…0d10 lno = 0x05aa // 0xd05 @0x2
0x0d03…0d10 at0004 = ╱9c╱ IF ╱ // 0xd07 @0x4
0x0d03…0d10 at0005 = ╱46╱F╱ // 0xd08 @0x5
0x0d03…0d10 at0006 = ╱5b╱Æ╱ // 0xd09 @0x6
0x0d03…0d10 at0007 = ╱4e╱N╱ // 0xd0a @0x7
0x0d03…0d10 at0008 = ╱44╱D╱ // 0xd0b @0x8
0x0d03…0d10 at0009 = ╱e1╱<>╱ // 0xd0c @0x9
0x0d03…0d10 at000a = ╱47╱G╱ // 0xd0d @0xa
0x0d03…0d10 at000b = ╱b6╱ THEN ╱ // 0xd0e @0xb
0x0d03…0d10 at000c = EOL // 0xd0f @0xc
0x0d03…0d10 }
0x0d10…0d1f 9a76 1460 CURSOR V,23
0x0d10…0d1f LineComalBin {
0x0d10…0d1f ptr = 0x9a76 // 0xd10 @0x0
0x0d10…0d1f lno = 0x05b4 // 0xd12 @0x2
0x0d10…0d1f at0004 = ╱a1╱ CURSOR ╱ // 0xd14 @0x4
0x0d10…0d1f at0005 = ╱56╱V╱ // 0xd15 @0x5
0x0d10…0d1f at0006 = ╱ec╱,╱ // 0xd16 @0x6
0x0d10…0d1f at0007 = ╱32╱2╱ // 0xd17 @0x7
0x0d10…0d1f at0008 = ╱33╱3╱ // 0xd18 @0x8
0x0d10…0d1f at0009 = ╱fe0000b805╱ // 0xd19 @0x9
0x0d10…0d1f at000e = EOL // 0xd1e @0xe
0x0d10…0d1f }
0x0d1f…0d69 9ac0 1470 PRINT "Entreprisenavn";BLANK$(E:34);"(max 29 tegn)";BLANK$(E:16)
0x0d1f…0d69 LineComalBin {
0x0d1f…0d69 ptr = 0x9ac0 // 0xd1f @0x0
0x0d1f…0d69 lno = 0x05be // 0xd21 @0x2
0x0d1f…0d69 at0004 = ╱92╱ PRINT ╱ // 0xd23 @0x4
0x0d1f…0d69 at0005 = ╱22╱"╱ // 0xd24 @0x5
0x0d1f…0d69 at0006 = ╱45╱E╱ // 0xd25 @0x6
0x0d1f…0d69 at0007 = ╱6e╱n╱ // 0xd26 @0x7
0x0d1f…0d69 at0008 = ╱74╱t╱ // 0xd27 @0x8
0x0d1f…0d69 at0009 = ╱72╱r╱ // 0xd28 @0x9
0x0d1f…0d69 at000a = ╱65╱e╱ // 0xd29 @0xa
0x0d1f…0d69 at000b = ╱70╱p╱ // 0xd2a @0xb
0x0d1f…0d69 at000c = ╱72╱r╱ // 0xd2b @0xc
0x0d1f…0d69 at000d = ╱69╱i╱ // 0xd2c @0xd
0x0d1f…0d69 at000e = ╱73╱s╱ // 0xd2d @0xe
0x0d1f…0d69 at000f = ╱65╱e╱ // 0xd2e @0xf
0x0d1f…0d69 at0010 = ╱6e╱n╱ // 0xd2f @0x10
0x0d1f…0d69 at0011 = ╱61╱a╱ // 0xd30 @0x11
0x0d1f…0d69 at0012 = ╱76╱v╱ // 0xd31 @0x12
0x0d1f…0d69 at0013 = ╱6e╱n╱ // 0xd32 @0x13
0x0d1f…0d69 at0014 = ╱22╱"╱ // 0xd33 @0x14
0x0d1f…0d69 at0015 = ╱eb╱;╱ // 0xd34 @0x15
0x0d1f…0d69 at0016 = ╱42╱B╱ // 0xd35 @0x16
0x0d1f…0d69 at0017 = ╱4c╱L╱ // 0xd36 @0x17
0x0d1f…0d69 at0018 = ╱41╱A╱ // 0xd37 @0x18
0x0d1f…0d69 at0019 = ╱4e╱N╱ // 0xd38 @0x19
0x0d1f…0d69 at001a = ╱4b╱K╱ // 0xd39 @0x1a
0x0d1f…0d69 at001b = ╱ef╱$╱ // 0xd3a @0x1b
0x0d1f…0d69 at001c = ╱ed╱(╱ // 0xd3b @0x1c
0x0d1f…0d69 at001d = ╱45╱E╱ // 0xd3c @0x1d
0x0d1f…0d69 at001e = ╱f0╱:╱ // 0xd3d @0x1e
0x0d1f…0d69 at001f = ╱33╱3╱ // 0xd3e @0x1f
0x0d1f…0d69 at0020 = ╱34╱4╱ // 0xd3f @0x20
0x0d1f…0d69 at0021 = ╱fe00008806╱ // 0xd40 @0x21
0x0d1f…0d69 at0026 = ╱ee╱)╱ // 0xd45 @0x26
0x0d1f…0d69 at0027 = ╱eb╱;╱ // 0xd46 @0x27
0x0d1f…0d69 at0028 = ╱22╱"╱ // 0xd47 @0x28
0x0d1f…0d69 at0029 = ╱28╱(╱ // 0xd48 @0x29
0x0d1f…0d69 at002a = ╱6d╱m╱ // 0xd49 @0x2a
0x0d1f…0d69 at002b = ╱61╱a╱ // 0xd4a @0x2b
0x0d1f…0d69 at002c = ╱78╱x╱ // 0xd4b @0x2c
0x0d1f…0d69 at002d = ╱20╱…╱ // 0xd4c @0x2d
0x0d1f…0d69 at002e = ╱32╱2╱ // 0xd4d @0x2e
0x0d1f…0d69 at002f = ╱39╱9╱ // 0xd4e @0x2f
0x0d1f…0d69 at0030 = ╱20╱…╱ // 0xd4f @0x30
0x0d1f…0d69 at0031 = ╱74╱t╱ // 0xd50 @0x31
0x0d1f…0d69 at0032 = ╱65╱e╱ // 0xd51 @0x32
0x0d1f…0d69 at0033 = ╱67╱g╱ // 0xd52 @0x33
0x0d1f…0d69 at0034 = ╱6e╱n╱ // 0xd53 @0x34
0x0d1f…0d69 at0035 = ╱29╱)╱ // 0xd54 @0x35
0x0d1f…0d69 at0036 = ╱22╱"╱ // 0xd55 @0x36
0x0d1f…0d69 at0037 = ╱eb╱;╱ // 0xd56 @0x37
0x0d1f…0d69 at0038 = ╱42╱B╱ // 0xd57 @0x38
0x0d1f…0d69 at0039 = ╱4c╱L╱ // 0xd58 @0x39
0x0d1f…0d69 at003a = ╱41╱A╱ // 0xd59 @0x3a
0x0d1f…0d69 at003b = ╱4e╱N╱ // 0xd5a @0x3b
0x0d1f…0d69 at003c = ╱4b╱K╱ // 0xd5b @0x3c
0x0d1f…0d69 at003d = ╱ef╱$╱ // 0xd5c @0x3d
0x0d1f…0d69 at003e = ╱ed╱(╱ // 0xd5d @0x3e
0x0d1f…0d69 at003f = ╱45╱E╱ // 0xd5e @0x3f
0x0d1f…0d69 at0040 = ╱f0╱:╱ // 0xd5f @0x40
0x0d1f…0d69 at0041 = ╱31╱1╱ // 0xd60 @0x41
0x0d1f…0d69 at0042 = ╱36╱6╱ // 0xd61 @0x42
0x0d1f…0d69 at0043 = ╱fe00008005╱ // 0xd62 @0x43
0x0d1f…0d69 at0048 = ╱ee╱)╱ // 0xd67 @0x48
0x0d1f…0d69 at0049 = EOL // 0xd68 @0x49
0x0d1f…0d69 }
0x0d69…0d7e 9ad5 1480 CURSOR 19,23
0x0d69…0d7e LineComalBin {
0x0d69…0d7e ptr = 0x9ad5 // 0xd69 @0x0
0x0d69…0d7e lno = 0x05c8 // 0xd6b @0x2
0x0d69…0d7e at0004 = ╱a1╱ CURSOR ╱ // 0xd6d @0x4
0x0d69…0d7e at0005 = ╱31╱1╱ // 0xd6e @0x5
0x0d69…0d7e at0006 = ╱39╱9╱ // 0xd6f @0x6
0x0d69…0d7e at0007 = ╱fe00009805╱ // 0xd70 @0x7
0x0d69…0d7e at000c = ╱ec╱,╱ // 0xd75 @0xc
0x0d69…0d7e at000d = ╱32╱2╱ // 0xd76 @0xd
0x0d69…0d7e at000e = ╱33╱3╱ // 0xd77 @0xe
0x0d69…0d7e at000f = ╱fe0000b805╱ // 0xd78 @0xf
0x0d69…0d7e at0014 = EOL // 0xd7d @0x14
0x0d69…0d7e }
0x0d7e…0d8a 9ae1 1490 INPUT ENAVN$
0x0d7e…0d8a LineComalBin {
0x0d7e…0d8a ptr = 0x9ae1 // 0xd7e @0x0
0x0d7e…0d8a lno = 0x05d2 // 0xd80 @0x2
0x0d7e…0d8a at0004 = ╱91╱ INPUT ╱ // 0xd82 @0x4
0x0d7e…0d8a at0005 = ╱45╱E╱ // 0xd83 @0x5
0x0d7e…0d8a at0006 = ╱4e╱N╱ // 0xd84 @0x6
0x0d7e…0d8a at0007 = ╱41╱A╱ // 0xd85 @0x7
0x0d7e…0d8a at0008 = ╱56╱V╱ // 0xd86 @0x8
0x0d7e…0d8a at0009 = ╱4e╱N╱ // 0xd87 @0x9
0x0d7e…0d8a at000a = ╱ef╱$╱ // 0xd88 @0xa
0x0d7e…0d8a at000b = EOL // 0xd89 @0xb
0x0d7e…0d8a }
0x0d8a…0d90 9ae7 1500 ENDIF
0x0d8a…0d90 LineComalBin {
0x0d8a…0d90 ptr = 0x9ae7 // 0xd8a @0x0
0x0d8a…0d90 lno = 0x05dc // 0xd8c @0x2
0x0d8a…0d90 at0004 = ╱9b╱ ENDIF ╱ // 0xd8e @0x4
0x0d8a…0d90 at0005 = EOL // 0xd8f @0x5
0x0d8a…0d90 }
0x0d90…0da4 9afb 1510 CURSOR 21,5
0x0d90…0da4 LineComalBin {
0x0d90…0da4 ptr = 0x9afb // 0xd90 @0x0
0x0d90…0da4 lno = 0x05e6 // 0xd92 @0x2
0x0d90…0da4 at0004 = ╱a1╱ CURSOR ╱ // 0xd94 @0x4
0x0d90…0da4 at0005 = ╱32╱2╱ // 0xd95 @0x5
0x0d90…0da4 at0006 = ╱31╱1╱ // 0xd96 @0x6
0x0d90…0da4 at0007 = ╱fe0000a805╱ // 0xd97 @0x7
0x0d90…0da4 at000c = ╱ec╱,╱ // 0xd9c @0xc
0x0d90…0da4 at000d = ╱35╱5╱ // 0xd9d @0xd
0x0d90…0da4 at000e = ╱fe0000a003╱ // 0xd9e @0xe
0x0d90…0da4 at0013 = EOL // 0xda3 @0x13
0x0d90…0da4 }
0x0da4…0dc2 9b19 1520 PRINT ENAVN$;BLANK$(E:29)
0x0da4…0dc2 LineComalBin {
0x0da4…0dc2 ptr = 0x9b19 // 0xda4 @0x0
0x0da4…0dc2 lno = 0x05f0 // 0xda6 @0x2
0x0da4…0dc2 at0004 = ╱92╱ PRINT ╱ // 0xda8 @0x4
0x0da4…0dc2 at0005 = ╱45╱E╱ // 0xda9 @0x5
0x0da4…0dc2 at0006 = ╱4e╱N╱ // 0xdaa @0x6
0x0da4…0dc2 at0007 = ╱41╱A╱ // 0xdab @0x7
0x0da4…0dc2 at0008 = ╱56╱V╱ // 0xdac @0x8
0x0da4…0dc2 at0009 = ╱4e╱N╱ // 0xdad @0x9
0x0da4…0dc2 at000a = ╱ef╱$╱ // 0xdae @0xa
0x0da4…0dc2 at000b = ╱eb╱;╱ // 0xdaf @0xb
0x0da4…0dc2 at000c = ╱42╱B╱ // 0xdb0 @0xc
0x0da4…0dc2 at000d = ╱4c╱L╱ // 0xdb1 @0xd
0x0da4…0dc2 at000e = ╱41╱A╱ // 0xdb2 @0xe
0x0da4…0dc2 at000f = ╱4e╱N╱ // 0xdb3 @0xf
0x0da4…0dc2 at0010 = ╱4b╱K╱ // 0xdb4 @0x10
0x0da4…0dc2 at0011 = ╱ef╱$╱ // 0xdb5 @0x11
0x0da4…0dc2 at0012 = ╱ed╱(╱ // 0xdb6 @0x12
0x0da4…0dc2 at0013 = ╱45╱E╱ // 0xdb7 @0x13
0x0da4…0dc2 at0014 = ╱f0╱:╱ // 0xdb8 @0x14
0x0da4…0dc2 at0015 = ╱32╱2╱ // 0xdb9 @0x15
0x0da4…0dc2 at0016 = ╱39╱9╱ // 0xdba @0x16
0x0da4…0dc2 at0017 = ╱fe0000e805╱ // 0xdbb @0x17
0x0da4…0dc2 at001c = ╱ee╱)╱ // 0xdc0 @0x1c
0x0da4…0dc2 at001d = EOL // 0xdc1 @0x1d
0x0da4…0dc2 }
0x0dc2…0dc8 9b1f 1530 ENDCASE
0x0dc2…0dc8 LineComalBin {
0x0dc2…0dc8 ptr = 0x9b1f // 0xdc2 @0x0
0x0dc2…0dc8 lno = 0x05fa // 0xdc4 @0x2
0x0dc2…0dc8 at0004 = ╱a4╱ ENDCASE ╱ // 0xdc6 @0x4
0x0dc2…0dc8 at0005 = EOL // 0xdc7 @0x5
0x0dc2…0dc8 }
0x0dc8…0ddc 9b33 1540 IF FÆND=E THEN FSTYR=V
0x0dc8…0ddc LineComalBin {
0x0dc8…0ddc ptr = 0x9b33 // 0xdc8 @0x0
0x0dc8…0ddc lno = 0x0604 // 0xdca @0x2
0x0dc8…0ddc at0004 = ╱82╱ IF ╱ // 0xdcc @0x4
0x0dc8…0ddc at0005 = ╱46╱F╱ // 0xdcd @0x5
0x0dc8…0ddc at0006 = ╱5b╱Æ╱ // 0xdce @0x6
0x0dc8…0ddc at0007 = ╱4e╱N╱ // 0xdcf @0x7
0x0dc8…0ddc at0008 = ╱44╱D╱ // 0xdd0 @0x8
0x0dc8…0ddc at0009 = ╱dc╱=╱ // 0xdd1 @0x9
0x0dc8…0ddc at000a = ╱45╱E╱ // 0xdd2 @0xa
0x0dc8…0ddc at000b = ╱b6╱ THEN ╱ // 0xdd3 @0xb
0x0dc8…0ddc at000c = ╱46╱F╱ // 0xdd4 @0xc
0x0dc8…0ddc at000d = ╱53╱S╱ // 0xdd5 @0xd
0x0dc8…0ddc at000e = ╱54╱T╱ // 0xdd6 @0xe
0x0dc8…0ddc at000f = ╱59╱Y╱ // 0xdd7 @0xf
0x0dc8…0ddc at0010 = ╱52╱R╱ // 0xdd8 @0x10
0x0dc8…0ddc at0011 = ╱dc╱=╱ // 0xdd9 @0x11
0x0dc8…0ddc at0012 = ╱56╱V╱ // 0xdda @0x12
0x0dc8…0ddc at0013 = EOL // 0xddb @0x13
0x0dc8…0ddc }
0x0ddc…0de9 9b40 1550 UNTIL FSTYR=V
0x0ddc…0de9 LineComalBin {
0x0ddc…0de9 ptr = 0x9b40 // 0xddc @0x0
0x0ddc…0de9 lno = 0x060e // 0xdde @0x2
0x0ddc…0de9 at0004 = ╱98╱ UNTIL ╱ // 0xde0 @0x4
0x0ddc…0de9 at0005 = ╱46╱F╱ // 0xde1 @0x5
0x0ddc…0de9 at0006 = ╱53╱S╱ // 0xde2 @0x6
0x0ddc…0de9 at0007 = ╱54╱T╱ // 0xde3 @0x7
0x0ddc…0de9 at0008 = ╱59╱Y╱ // 0xde4 @0x8
0x0ddc…0de9 at0009 = ╱52╱R╱ // 0xde5 @0x9
0x0ddc…0de9 at000a = ╱dc╱=╱ // 0xde6 @0xa
0x0ddc…0de9 at000b = ╱56╱V╱ // 0xde7 @0xb
0x0ddc…0de9 at000c = EOL // 0xde8 @0xc
0x0ddc…0de9 }
0x0de9…0df6 9b4d 1560 IF FÆND<>E THEN
0x0de9…0df6 LineComalBin {
0x0de9…0df6 ptr = 0x9b4d // 0xde9 @0x0
0x0de9…0df6 lno = 0x0618 // 0xdeb @0x2
0x0de9…0df6 at0004 = ╱9c╱ IF ╱ // 0xded @0x4
0x0de9…0df6 at0005 = ╱46╱F╱ // 0xdee @0x5
0x0de9…0df6 at0006 = ╱5b╱Æ╱ // 0xdef @0x6
0x0de9…0df6 at0007 = ╱4e╱N╱ // 0xdf0 @0x7
0x0de9…0df6 at0008 = ╱44╱D╱ // 0xdf1 @0x8
0x0de9…0df6 at0009 = ╱e1╱<>╱ // 0xdf2 @0x9
0x0de9…0df6 at000a = ╱45╱E╱ // 0xdf3 @0xa
0x0de9…0df6 at000b = ╱b6╱ THEN ╱ // 0xdf4 @0xb
0x0de9…0df6 at000c = EOL // 0xdf5 @0xc
0x0de9…0df6 }
0x0df6…0e0a 9b61 1570 CURSOR 4,13
0x0df6…0e0a LineComalBin {
0x0df6…0e0a ptr = 0x9b61 // 0xdf6 @0x0
0x0df6…0e0a lno = 0x0622 // 0xdf8 @0x2
0x0df6…0e0a at0004 = ╱a1╱ CURSOR ╱ // 0xdfa @0x4
0x0df6…0e0a at0005 = ╱34╱4╱ // 0xdfb @0x5
0x0df6…0e0a at0006 = ╱fe00008003╱ // 0xdfc @0x6
0x0df6…0e0a at000b = ╱ec╱,╱ // 0xe01 @0xb
0x0df6…0e0a at000c = ╱31╱1╱ // 0xe02 @0xc
0x0df6…0e0a at000d = ╱33╱3╱ // 0xe03 @0xd
0x0df6…0e0a at000e = ╱fe0000d004╱ // 0xe04 @0xe
0x0df6…0e0a at0013 = EOL // 0xe09 @0x13
0x0df6…0e0a }
0x0e0a…0e26 9b7d 1580 PRINT "Månedens bevægelse :"
0x0e0a…0e26 LineComalBin {
0x0e0a…0e26 ptr = 0x9b7d // 0xe0a @0x0
0x0e0a…0e26 lno = 0x062c // 0xe0c @0x2
0x0e0a…0e26 at0004 = ╱92╱ PRINT ╱ // 0xe0e @0x4
0x0e0a…0e26 at0005 = ╱22╱"╱ // 0xe0f @0x5
0x0e0a…0e26 at0006 = ╱4d╱M╱ // 0xe10 @0x6
0x0e0a…0e26 at0007 = ╱7d╱å╱ // 0xe11 @0x7
0x0e0a…0e26 at0008 = ╱6e╱n╱ // 0xe12 @0x8
0x0e0a…0e26 at0009 = ╱65╱e╱ // 0xe13 @0x9
0x0e0a…0e26 at000a = ╱64╱d╱ // 0xe14 @0xa
0x0e0a…0e26 at000b = ╱65╱e╱ // 0xe15 @0xb
0x0e0a…0e26 at000c = ╱6e╱n╱ // 0xe16 @0xc
0x0e0a…0e26 at000d = ╱73╱s╱ // 0xe17 @0xd
0x0e0a…0e26 at000e = ╱20╱…╱ // 0xe18 @0xe
0x0e0a…0e26 at000f = ╱62╱b╱ // 0xe19 @0xf
0x0e0a…0e26 at0010 = ╱65╱e╱ // 0xe1a @0x10
0x0e0a…0e26 at0011 = ╱76╱v╱ // 0xe1b @0x11
0x0e0a…0e26 at0012 = ╱7b╱æ╱ // 0xe1c @0x12
0x0e0a…0e26 at0013 = ╱67╱g╱ // 0xe1d @0x13
0x0e0a…0e26 at0014 = ╱65╱e╱ // 0xe1e @0x14
0x0e0a…0e26 at0015 = ╱6c╱l╱ // 0xe1f @0x15
0x0e0a…0e26 at0016 = ╱73╱s╱ // 0xe20 @0x16
0x0e0a…0e26 at0017 = ╱65╱e╱ // 0xe21 @0x17
0x0e0a…0e26 at0018 = ╱20╱…╱ // 0xe22 @0x18
0x0e0a…0e26 at0019 = ╱3a╱:╱ // 0xe23 @0x19
0x0e0a…0e26 at001a = ╱22╱"╱ // 0xe24 @0x1a
0x0e0a…0e26 at001b = EOL // 0xe25 @0x1b
0x0e0a…0e26 }
0x0e26…0e3b 9b92 1590 CURSOR 31,13
0x0e26…0e3b LineComalBin {
0x0e26…0e3b ptr = 0x9b92 // 0xe26 @0x0
0x0e26…0e3b lno = 0x0636 // 0xe28 @0x2
0x0e26…0e3b at0004 = ╱a1╱ CURSOR ╱ // 0xe2a @0x4
0x0e26…0e3b at0005 = ╱33╱3╱ // 0xe2b @0x5
0x0e26…0e3b at0006 = ╱31╱1╱ // 0xe2c @0x6
0x0e26…0e3b at0007 = ╱fe0000f805╱ // 0xe2d @0x7
0x0e26…0e3b at000c = ╱ec╱,╱ // 0xe32 @0xc
0x0e26…0e3b at000d = ╱31╱1╱ // 0xe33 @0xd
0x0e26…0e3b at000e = ╱33╱3╱ // 0xe34 @0xe
0x0e26…0e3b at000f = ╱fe0000d004╱ // 0xe35 @0xf
0x0e26…0e3b at0014 = EOL // 0xe3a @0x14
0x0e26…0e3b }
0x0e3b…0e56 9bad 1600 EXEC TUD(EMREG$,TAL4$,B,B)
0x0e3b…0e56 LineComalBin {
0x0e3b…0e56 ptr = 0x9bad // 0xe3b @0x0
0x0e3b…0e56 lno = 0x0640 // 0xe3d @0x2
0x0e3b…0e56 at0004 = ╱9d╱ EXEC ╱ // 0xe3f @0x4
0x0e3b…0e56 at0005 = ╱54╱T╱ // 0xe40 @0x5
0x0e3b…0e56 at0006 = ╱55╱U╱ // 0xe41 @0x6
0x0e3b…0e56 at0007 = ╱44╱D╱ // 0xe42 @0x7
0x0e3b…0e56 at0008 = ╱ed╱(╱ // 0xe43 @0x8
0x0e3b…0e56 at0009 = ╱45╱E╱ // 0xe44 @0x9
0x0e3b…0e56 at000a = ╱4d╱M╱ // 0xe45 @0xa
0x0e3b…0e56 at000b = ╱52╱R╱ // 0xe46 @0xb
0x0e3b…0e56 at000c = ╱45╱E╱ // 0xe47 @0xc
0x0e3b…0e56 at000d = ╱47╱G╱ // 0xe48 @0xd
0x0e3b…0e56 at000e = ╱ef╱$╱ // 0xe49 @0xe
0x0e3b…0e56 at000f = ╱ec╱,╱ // 0xe4a @0xf
0x0e3b…0e56 at0010 = ╱54╱T╱ // 0xe4b @0x10
0x0e3b…0e56 at0011 = ╱41╱A╱ // 0xe4c @0x11
0x0e3b…0e56 at0012 = ╱4c╱L╱ // 0xe4d @0x12
0x0e3b…0e56 at0013 = ╱34╱4╱ // 0xe4e @0x13
0x0e3b…0e56 at0014 = ╱ef╱$╱ // 0xe4f @0x14
0x0e3b…0e56 at0015 = ╱ec╱,╱ // 0xe50 @0x15
0x0e3b…0e56 at0016 = ╱42╱B╱ // 0xe51 @0x16
0x0e3b…0e56 at0017 = ╱ec╱,╱ // 0xe52 @0x17
0x0e3b…0e56 at0018 = ╱42╱B╱ // 0xe53 @0x18
0x0e3b…0e56 at0019 = ╱ee╱)╱ // 0xe54 @0x19
0x0e3b…0e56 at001a = EOL // 0xe55 @0x1a
0x0e3b…0e56 }
0x0e56…0e6a 9bc1 1610 CURSOR 4,15
0x0e56…0e6a LineComalBin {
0x0e56…0e6a ptr = 0x9bc1 // 0xe56 @0x0
0x0e56…0e6a lno = 0x064a // 0xe58 @0x2
0x0e56…0e6a at0004 = ╱a1╱ CURSOR ╱ // 0xe5a @0x4
0x0e56…0e6a at0005 = ╱34╱4╱ // 0xe5b @0x5
0x0e56…0e6a at0006 = ╱fe00008003╱ // 0xe5c @0x6
0x0e56…0e6a at000b = ╱ec╱,╱ // 0xe61 @0xb
0x0e56…0e6a at000c = ╱31╱1╱ // 0xe62 @0xc
0x0e56…0e6a at000d = ╱35╱5╱ // 0xe63 @0xd
0x0e56…0e6a at000e = ╱fe0000f004╱ // 0xe64 @0xe
0x0e56…0e6a at0013 = EOL // 0xe69 @0x13
0x0e56…0e6a }
0x0e6a…0e86 9bdd 1620 PRINT "Årets bevægelse :"
0x0e6a…0e86 LineComalBin {
0x0e6a…0e86 ptr = 0x9bdd // 0xe6a @0x0
0x0e6a…0e86 lno = 0x0654 // 0xe6c @0x2
0x0e6a…0e86 at0004 = ╱92╱ PRINT ╱ // 0xe6e @0x4
0x0e6a…0e86 at0005 = ╱22╱"╱ // 0xe6f @0x5
0x0e6a…0e86 at0006 = ╱5d╱Å╱ // 0xe70 @0x6
0x0e6a…0e86 at0007 = ╱72╱r╱ // 0xe71 @0x7
0x0e6a…0e86 at0008 = ╱65╱e╱ // 0xe72 @0x8
0x0e6a…0e86 at0009 = ╱74╱t╱ // 0xe73 @0x9
0x0e6a…0e86 at000a = ╱73╱s╱ // 0xe74 @0xa
0x0e6a…0e86 at000b = ╱20╱…╱ // 0xe75 @0xb
0x0e6a…0e86 at000c = ╱62╱b╱ // 0xe76 @0xc
0x0e6a…0e86 at000d = ╱65╱e╱ // 0xe77 @0xd
0x0e6a…0e86 at000e = ╱76╱v╱ // 0xe78 @0xe
0x0e6a…0e86 at000f = ╱7b╱æ╱ // 0xe79 @0xf
0x0e6a…0e86 at0010 = ╱67╱g╱ // 0xe7a @0x10
0x0e6a…0e86 at0011 = ╱65╱e╱ // 0xe7b @0x11
0x0e6a…0e86 at0012 = ╱6c╱l╱ // 0xe7c @0x12
0x0e6a…0e86 at0013 = ╱73╱s╱ // 0xe7d @0x13
0x0e6a…0e86 at0014 = ╱65╱e╱ // 0xe7e @0x14
0x0e6a…0e86 at0015 = ╱20╱…╱ // 0xe7f @0x15
0x0e6a…0e86 at0016 = ╱20╱…╱ // 0xe80 @0x16
0x0e6a…0e86 at0017 = ╱20╱…╱ // 0xe81 @0x17
0x0e6a…0e86 at0018 = ╱20╱…╱ // 0xe82 @0x18
0x0e6a…0e86 at0019 = ╱3a╱:╱ // 0xe83 @0x19
0x0e6a…0e86 at001a = ╱22╱"╱ // 0xe84 @0x1a
0x0e6a…0e86 at001b = EOL // 0xe85 @0x1b
0x0e6a…0e86 }
0x0e86…0e9b 9bf2 1630 CURSOR 31,15
0x0e86…0e9b LineComalBin {
0x0e86…0e9b ptr = 0x9bf2 // 0xe86 @0x0
0x0e86…0e9b lno = 0x065e // 0xe88 @0x2
0x0e86…0e9b at0004 = ╱a1╱ CURSOR ╱ // 0xe8a @0x4
0x0e86…0e9b at0005 = ╱33╱3╱ // 0xe8b @0x5
0x0e86…0e9b at0006 = ╱31╱1╱ // 0xe8c @0x6
0x0e86…0e9b at0007 = ╱fe0000f805╱ // 0xe8d @0x7
0x0e86…0e9b at000c = ╱ec╱,╱ // 0xe92 @0xc
0x0e86…0e9b at000d = ╱31╱1╱ // 0xe93 @0xd
0x0e86…0e9b at000e = ╱35╱5╱ // 0xe94 @0xe
0x0e86…0e9b at000f = ╱fe0000f004╱ // 0xe95 @0xf
0x0e86…0e9b at0014 = EOL // 0xe9a @0x14
0x0e86…0e9b }
0x0e9b…0eb6 9c0d 1640 EXEC TUD(EÅREG$,TAL4$,B,B)
0x0e9b…0eb6 LineComalBin {
0x0e9b…0eb6 ptr = 0x9c0d // 0xe9b @0x0
0x0e9b…0eb6 lno = 0x0668 // 0xe9d @0x2
0x0e9b…0eb6 at0004 = ╱9d╱ EXEC ╱ // 0xe9f @0x4
0x0e9b…0eb6 at0005 = ╱54╱T╱ // 0xea0 @0x5
0x0e9b…0eb6 at0006 = ╱55╱U╱ // 0xea1 @0x6
0x0e9b…0eb6 at0007 = ╱44╱D╱ // 0xea2 @0x7
0x0e9b…0eb6 at0008 = ╱ed╱(╱ // 0xea3 @0x8
0x0e9b…0eb6 at0009 = ╱45╱E╱ // 0xea4 @0x9
0x0e9b…0eb6 at000a = ╱5d╱Å╱ // 0xea5 @0xa
0x0e9b…0eb6 at000b = ╱52╱R╱ // 0xea6 @0xb
0x0e9b…0eb6 at000c = ╱45╱E╱ // 0xea7 @0xc
0x0e9b…0eb6 at000d = ╱47╱G╱ // 0xea8 @0xd
0x0e9b…0eb6 at000e = ╱ef╱$╱ // 0xea9 @0xe
0x0e9b…0eb6 at000f = ╱ec╱,╱ // 0xeaa @0xf
0x0e9b…0eb6 at0010 = ╱54╱T╱ // 0xeab @0x10
0x0e9b…0eb6 at0011 = ╱41╱A╱ // 0xeac @0x11
0x0e9b…0eb6 at0012 = ╱4c╱L╱ // 0xead @0x12
0x0e9b…0eb6 at0013 = ╱34╱4╱ // 0xeae @0x13
0x0e9b…0eb6 at0014 = ╱ef╱$╱ // 0xeaf @0x14
0x0e9b…0eb6 at0015 = ╱ec╱,╱ // 0xeb0 @0x15
0x0e9b…0eb6 at0016 = ╱42╱B╱ // 0xeb1 @0x16
0x0e9b…0eb6 at0017 = ╱ec╱,╱ // 0xeb2 @0x17
0x0e9b…0eb6 at0018 = ╱42╱B╱ // 0xeb3 @0x18
0x0e9b…0eb6 at0019 = ╱ee╱)╱ // 0xeb4 @0x19
0x0e9b…0eb6 at001a = EOL // 0xeb5 @0x1a
0x0e9b…0eb6 }
0x0eb6…0ebc 9c13 1650 ENDIF
0x0eb6…0ebc LineComalBin {
0x0eb6…0ebc ptr = 0x9c13 // 0xeb6 @0x0
0x0eb6…0ebc lno = 0x0672 // 0xeb8 @0x2
0x0eb6…0ebc at0004 = ╱9b╱ ENDIF ╱ // 0xeba @0x4
0x0eb6…0ebc at0005 = EOL // 0xebb @0x5
0x0eb6…0ebc }
0x0ebc…0ec2 9c19 1660 ENDPROC
0x0ebc…0ec2 LineComalBin {
0x0ebc…0ec2 ptr = 0x9c19 // 0xebc @0x0
0x0ebc…0ec2 lno = 0x067c // 0xebe @0x2
0x0ebc…0ec2 at0004 = ╱9f╱ ENDPROC ╱ // 0xec0 @0x4
0x0ebc…0ec2 at0005 = EOL // 0xec1 @0x5
0x0ebc…0ec2 }
0x0ec2…0ee1 9c38 1670 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x0ec2…0ee1 LineComalBin {
0x0ec2…0ee1 ptr = 0x9c38 // 0xec2 @0x0
0x0ec2…0ee1 lno = 0x0686 // 0xec4 @0x2
0x0ec2…0ee1 at0004 = ╱9e╱ PROC ╱ // 0xec6 @0x4
0x0ec2…0ee1 at0005 = ╱54╱T╱ // 0xec7 @0x5
0x0ec2…0ee1 at0006 = ╱55╱U╱ // 0xec8 @0x6
0x0ec2…0ee1 at0007 = ╱44╱D╱ // 0xec9 @0x7
0x0ec2…0ee1 at0008 = ╱ed╱(╱ // 0xeca @0x8
0x0ec2…0ee1 at0009 = ╱42╱B╱ // 0xecb @0x9
0x0ec2…0ee1 at000a = ╱4c╱L╱ // 0xecc @0xa
0x0ec2…0ee1 at000b = ╱42╱B╱ // 0xecd @0xb
0x0ec2…0ee1 at000c = ╱31╱1╱ // 0xece @0xc
0x0ec2…0ee1 at000d = ╱ec╱,╱ // 0xecf @0xd
0x0ec2…0ee1 at000e = ╱55╱U╱ // 0xed0 @0xe
0x0ec2…0ee1 at000f = ╱42╱B╱ // 0xed1 @0xf
0x0ec2…0ee1 at0010 = ╱4c╱L╱ // 0xed2 @0x10
0x0ec2…0ee1 at0011 = ╱42╱B╱ // 0xed3 @0x11
0x0ec2…0ee1 at0012 = ╱31╱1╱ // 0xed4 @0x12
0x0ec2…0ee1 at0013 = ╱ec╱,╱ // 0xed5 @0x13
0x0ec2…0ee1 at0014 = ╱54╱T╱ // 0xed6 @0x14
0x0ec2…0ee1 at0015 = ╱45╱E╱ // 0xed7 @0x15
0x0ec2…0ee1 at0016 = ╱47╱G╱ // 0xed8 @0x16
0x0ec2…0ee1 at0017 = ╱4e╱N╱ // 0xed9 @0x17
0x0ec2…0ee1 at0018 = ╱ec╱,╱ // 0xeda @0x18
0x0ec2…0ee1 at0019 = ╱53╱S╱ // 0xedb @0x19
0x0ec2…0ee1 at001a = ╱54╱T╱ // 0xedc @0x1a
0x0ec2…0ee1 at001b = ╱5c╱Ø╱ // 0xedd @0x1b
0x0ec2…0ee1 at001c = ╱52╱R╱ // 0xede @0x1c
0x0ec2…0ee1 at001d = ╱ee╱)╱ // 0xedf @0x1d
0x0ec2…0ee1 at001e = EOL // 0xee0 @0x1e
0x0ec2…0ee1 }
0x0ee1…0eff 9c56 1680 BLB2$=BLB1$;UBLB2$=UBLB1$
0x0ee1…0eff LineComalBin {
0x0ee1…0eff ptr = 0x9c56 // 0xee1 @0x0
0x0ee1…0eff lno = 0x0690 // 0xee3 @0x2
0x0ee1…0eff at0004 = ╱42╱B╱ // 0xee5 @0x4
0x0ee1…0eff at0005 = ╱4c╱L╱ // 0xee6 @0x5
0x0ee1…0eff at0006 = ╱42╱B╱ // 0xee7 @0x6
0x0ee1…0eff at0007 = ╱32╱2╱ // 0xee8 @0x7
0x0ee1…0eff at0008 = ╱ef╱$╱ // 0xee9 @0x8
0x0ee1…0eff at0009 = ╱dc╱=╱ // 0xeea @0x9
0x0ee1…0eff at000a = ╱42╱B╱ // 0xeeb @0xa
0x0ee1…0eff at000b = ╱4c╱L╱ // 0xeec @0xb
0x0ee1…0eff at000c = ╱42╱B╱ // 0xeed @0xc
0x0ee1…0eff at000d = ╱31╱1╱ // 0xeee @0xd
0x0ee1…0eff at000e = ╱ef╱$╱ // 0xeef @0xe
0x0ee1…0eff at000f = ╱eb╱;╱ // 0xef0 @0xf
0x0ee1…0eff at0010 = ╱55╱U╱ // 0xef1 @0x10
0x0ee1…0eff at0011 = ╱42╱B╱ // 0xef2 @0x11
0x0ee1…0eff at0012 = ╱4c╱L╱ // 0xef3 @0x12
0x0ee1…0eff at0013 = ╱42╱B╱ // 0xef4 @0x13
0x0ee1…0eff at0014 = ╱32╱2╱ // 0xef5 @0x14
0x0ee1…0eff at0015 = ╱ef╱$╱ // 0xef6 @0x15
0x0ee1…0eff at0016 = ╱dc╱=╱ // 0xef7 @0x16
0x0ee1…0eff at0017 = ╱55╱U╱ // 0xef8 @0x17
0x0ee1…0eff at0018 = ╱42╱B╱ // 0xef9 @0x18
0x0ee1…0eff at0019 = ╱4c╱L╱ // 0xefa @0x19
0x0ee1…0eff at001a = ╱42╱B╱ // 0xefb @0x1a
0x0ee1…0eff at001b = ╱31╱1╱ // 0xefc @0x1b
0x0ee1…0eff at001c = ╱ef╱$╱ // 0xefd @0x1c
0x0ee1…0eff at001d = EOL // 0xefe @0x1d
0x0ee1…0eff }
0x0eff…0f23 9c7a 1690 EXEC CALC(5,BLB2$,TAH$,UBLB2$)
0x0eff…0f23 LineComalBin {
0x0eff…0f23 ptr = 0x9c7a // 0xeff @0x0
0x0eff…0f23 lno = 0x069a // 0xf01 @0x2
0x0eff…0f23 at0004 = ╱9d╱ EXEC ╱ // 0xf03 @0x4
0x0eff…0f23 at0005 = ╱43╱C╱ // 0xf04 @0x5
0x0eff…0f23 at0006 = ╱41╱A╱ // 0xf05 @0x6
0x0eff…0f23 at0007 = ╱4c╱L╱ // 0xf06 @0x7
0x0eff…0f23 at0008 = ╱43╱C╱ // 0xf07 @0x8
0x0eff…0f23 at0009 = ╱ed╱(╱ // 0xf08 @0x9
0x0eff…0f23 at000a = ╱35╱5╱ // 0xf09 @0xa
0x0eff…0f23 at000b = ╱fe0000a003╱ // 0xf0a @0xb
0x0eff…0f23 at0010 = ╱ec╱,╱ // 0xf0f @0x10
0x0eff…0f23 at0011 = ╱42╱B╱ // 0xf10 @0x11
0x0eff…0f23 at0012 = ╱4c╱L╱ // 0xf11 @0x12
0x0eff…0f23 at0013 = ╱42╱B╱ // 0xf12 @0x13
0x0eff…0f23 at0014 = ╱32╱2╱ // 0xf13 @0x14
0x0eff…0f23 at0015 = ╱ef╱$╱ // 0xf14 @0x15
0x0eff…0f23 at0016 = ╱ec╱,╱ // 0xf15 @0x16
0x0eff…0f23 at0017 = ╱54╱T╱ // 0xf16 @0x17
0x0eff…0f23 at0018 = ╱41╱A╱ // 0xf17 @0x18
0x0eff…0f23 at0019 = ╱48╱H╱ // 0xf18 @0x19
0x0eff…0f23 at001a = ╱ef╱$╱ // 0xf19 @0x1a
0x0eff…0f23 at001b = ╱ec╱,╱ // 0xf1a @0x1b
0x0eff…0f23 at001c = ╱55╱U╱ // 0xf1b @0x1c
0x0eff…0f23 at001d = ╱42╱B╱ // 0xf1c @0x1d
0x0eff…0f23 at001e = ╱4c╱L╱ // 0xf1d @0x1e
0x0eff…0f23 at001f = ╱42╱B╱ // 0xf1e @0x1f
0x0eff…0f23 at0020 = ╱32╱2╱ // 0xf1f @0x20
0x0eff…0f23 at0021 = ╱ef╱$╱ // 0xf20 @0x21
0x0eff…0f23 at0022 = ╱ee╱)╱ // 0xf21 @0x22
0x0eff…0f23 at0023 = EOL // 0xf22 @0x23
0x0eff…0f23 }
0x0f23…0f35 9c8c 1700 UBLB1$=UBLB2$
0x0f23…0f35 LineComalBin {
0x0f23…0f35 ptr = 0x9c8c // 0xf23 @0x0
0x0f23…0f35 lno = 0x06a4 // 0xf25 @0x2
0x0f23…0f35 at0004 = ╱55╱U╱ // 0xf27 @0x4
0x0f23…0f35 at0005 = ╱42╱B╱ // 0xf28 @0x5
0x0f23…0f35 at0006 = ╱4c╱L╱ // 0xf29 @0x6
0x0f23…0f35 at0007 = ╱42╱B╱ // 0xf2a @0x7
0x0f23…0f35 at0008 = ╱31╱1╱ // 0xf2b @0x8
0x0f23…0f35 at0009 = ╱ef╱$╱ // 0xf2c @0x9
0x0f23…0f35 at000a = ╱dc╱=╱ // 0xf2d @0xa
0x0f23…0f35 at000b = ╱55╱U╱ // 0xf2e @0xb
0x0f23…0f35 at000c = ╱42╱B╱ // 0xf2f @0xc
0x0f23…0f35 at000d = ╱4c╱L╱ // 0xf30 @0xd
0x0f23…0f35 at000e = ╱42╱B╱ // 0xf31 @0xe
0x0f23…0f35 at000f = ╱32╱2╱ // 0xf32 @0xf
0x0f23…0f35 at0010 = ╱ef╱$╱ // 0xf33 @0x10
0x0f23…0f35 at0011 = EOL // 0xf34 @0x11
0x0f23…0f35 }
0x0f35…0f5a 9cb1 1710 IF TEGN=B THEN UBLB1$=UBLB1$(E:13)
0x0f35…0f5a LineComalBin {
0x0f35…0f5a ptr = 0x9cb1 // 0xf35 @0x0
0x0f35…0f5a lno = 0x06ae // 0xf37 @0x2
0x0f35…0f5a at0004 = ╱82╱ IF ╱ // 0xf39 @0x4
0x0f35…0f5a at0005 = ╱54╱T╱ // 0xf3a @0x5
0x0f35…0f5a at0006 = ╱45╱E╱ // 0xf3b @0x6
0x0f35…0f5a at0007 = ╱47╱G╱ // 0xf3c @0x7
0x0f35…0f5a at0008 = ╱4e╱N╱ // 0xf3d @0x8
0x0f35…0f5a at0009 = ╱dc╱=╱ // 0xf3e @0x9
0x0f35…0f5a at000a = ╱42╱B╱ // 0xf3f @0xa
0x0f35…0f5a at000b = ╱b6╱ THEN ╱ // 0xf40 @0xb
0x0f35…0f5a at000c = ╱55╱U╱ // 0xf41 @0xc
0x0f35…0f5a at000d = ╱42╱B╱ // 0xf42 @0xd
0x0f35…0f5a at000e = ╱4c╱L╱ // 0xf43 @0xe
0x0f35…0f5a at000f = ╱42╱B╱ // 0xf44 @0xf
0x0f35…0f5a at0010 = ╱31╱1╱ // 0xf45 @0x10
0x0f35…0f5a at0011 = ╱ef╱$╱ // 0xf46 @0x11
0x0f35…0f5a at0012 = ╱dc╱=╱ // 0xf47 @0x12
0x0f35…0f5a at0013 = ╱55╱U╱ // 0xf48 @0x13
0x0f35…0f5a at0014 = ╱42╱B╱ // 0xf49 @0x14
0x0f35…0f5a at0015 = ╱4c╱L╱ // 0xf4a @0x15
0x0f35…0f5a at0016 = ╱42╱B╱ // 0xf4b @0x16
0x0f35…0f5a at0017 = ╱31╱1╱ // 0xf4c @0x17
0x0f35…0f5a at0018 = ╱ef╱$╱ // 0xf4d @0x18
0x0f35…0f5a at0019 = ╱ed╱(╱ // 0xf4e @0x19
0x0f35…0f5a at001a = ╱45╱E╱ // 0xf4f @0x1a
0x0f35…0f5a at001b = ╱f0╱:╱ // 0xf50 @0x1b
0x0f35…0f5a at001c = ╱31╱1╱ // 0xf51 @0x1c
0x0f35…0f5a at001d = ╱33╱3╱ // 0xf52 @0x1d
0x0f35…0f5a at001e = ╱fe0000d004╱ // 0xf53 @0x1e
0x0f35…0f5a at0023 = ╱ee╱)╱ // 0xf58 @0x23
0x0f35…0f5a at0024 = EOL // 0xf59 @0x24
0x0f35…0f5a }
0x0f5a…0f92 9ce9 1720 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "
0x0f5a…0f92 LineComalBin {
0x0f5a…0f92 ptr = 0x9ce9 // 0xf5a @0x0
0x0f5a…0f92 lno = 0x06b8 // 0xf5c @0x2
0x0f5a…0f92 at0004 = ╱82╱ IF ╱ // 0xf5e @0x4
0x0f5a…0f92 at0005 = ╱54╱T╱ // 0xf5f @0x5
0x0f5a…0f92 at0006 = ╱45╱E╱ // 0xf60 @0x6
0x0f5a…0f92 at0007 = ╱47╱G╱ // 0xf61 @0x7
0x0f5a…0f92 at0008 = ╱4e╱N╱ // 0xf62 @0x8
0x0f5a…0f92 at0009 = ╱dc╱=╱ // 0xf63 @0x9
0x0f5a…0f92 at000a = ╱45╱E╱ // 0xf64 @0xa
0x0f5a…0f92 at000b = ╱da╱ AND ╱ // 0xf65 @0xb
0x0f5a…0f92 at000c = ╱55╱U╱ // 0xf66 @0xc
0x0f5a…0f92 at000d = ╱42╱B╱ // 0xf67 @0xd
0x0f5a…0f92 at000e = ╱4c╱L╱ // 0xf68 @0xe
0x0f5a…0f92 at000f = ╱42╱B╱ // 0xf69 @0xf
0x0f5a…0f92 at0010 = ╱31╱1╱ // 0xf6a @0x10
0x0f5a…0f92 at0011 = ╱ef╱$╱ // 0xf6b @0x11
0x0f5a…0f92 at0012 = ╱ed╱(╱ // 0xf6c @0x12
0x0f5a…0f92 at0013 = ╱cc╱LEN╱ // 0xf6d @0x13
0x0f5a…0f92 at0014 = ╱ed╱(╱ // 0xf6e @0x14
0x0f5a…0f92 at0015 = ╱55╱U╱ // 0xf6f @0x15
0x0f5a…0f92 at0016 = ╱42╱B╱ // 0xf70 @0x16
0x0f5a…0f92 at0017 = ╱4c╱L╱ // 0xf71 @0x17
0x0f5a…0f92 at0018 = ╱42╱B╱ // 0xf72 @0x18
0x0f5a…0f92 at0019 = ╱31╱1╱ // 0xf73 @0x19
0x0f5a…0f92 at001a = ╱ef╱$╱ // 0xf74 @0x1a
0x0f5a…0f92 at001b = ╱ee╱)╱ // 0xf75 @0x1b
0x0f5a…0f92 at001c = ╱ee╱)╱ // 0xf76 @0x1c
0x0f5a…0f92 at001d = ╱dc╱=╱ // 0xf77 @0x1d
0x0f5a…0f92 at001e = ╱22╱"╱ // 0xf78 @0x1e
0x0f5a…0f92 at001f = ╱2b╱+╱ // 0xf79 @0x1f
0x0f5a…0f92 at0020 = ╱22╱"╱ // 0xf7a @0x20
0x0f5a…0f92 at0021 = ╱b6╱ THEN ╱ // 0xf7b @0x21
0x0f5a…0f92 at0022 = ╱55╱U╱ // 0xf7c @0x22
0x0f5a…0f92 at0023 = ╱42╱B╱ // 0xf7d @0x23
0x0f5a…0f92 at0024 = ╱4c╱L╱ // 0xf7e @0x24
0x0f5a…0f92 at0025 = ╱42╱B╱ // 0xf7f @0x25
0x0f5a…0f92 at0026 = ╱31╱1╱ // 0xf80 @0x26
0x0f5a…0f92 at0027 = ╱ef╱$╱ // 0xf81 @0x27
0x0f5a…0f92 at0028 = ╱ed╱(╱ // 0xf82 @0x28
0x0f5a…0f92 at0029 = ╱cc╱LEN╱ // 0xf83 @0x29
0x0f5a…0f92 at002a = ╱ed╱(╱ // 0xf84 @0x2a
0x0f5a…0f92 at002b = ╱55╱U╱ // 0xf85 @0x2b
0x0f5a…0f92 at002c = ╱42╱B╱ // 0xf86 @0x2c
0x0f5a…0f92 at002d = ╱4c╱L╱ // 0xf87 @0x2d
0x0f5a…0f92 at002e = ╱42╱B╱ // 0xf88 @0x2e
0x0f5a…0f92 at002f = ╱31╱1╱ // 0xf89 @0x2f
0x0f5a…0f92 at0030 = ╱ef╱$╱ // 0xf8a @0x30
0x0f5a…0f92 at0031 = ╱ee╱)╱ // 0xf8b @0x31
0x0f5a…0f92 at0032 = ╱ee╱)╱ // 0xf8c @0x32
0x0f5a…0f92 at0033 = ╱dc╱=╱ // 0xf8d @0x33
0x0f5a…0f92 at0034 = ╱22╱"╱ // 0xf8e @0x34
0x0f5a…0f92 at0035 = ╱20╱…╱ // 0xf8f @0x35
0x0f5a…0f92 at0036 = ╱22╱"╱ // 0xf90 @0x36
0x0f5a…0f92 at0037 = EOL // 0xf91 @0x37
0x0f5a…0f92 }
0x0f92…0fc0 9d17 1730 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x0f92…0fc0 LineComalBin {
0x0f92…0fc0 ptr = 0x9d17 // 0xf92 @0x0
0x0f92…0fc0 lno = 0x06c2 // 0xf94 @0x2
0x0f92…0fc0 at0004 = ╱82╱ IF ╱ // 0xf96 @0x4
0x0f92…0fc0 at0005 = ╱53╱S╱ // 0xf97 @0x5
0x0f92…0fc0 at0006 = ╱54╱T╱ // 0xf98 @0x6
0x0f92…0fc0 at0007 = ╱5c╱Ø╱ // 0xf99 @0x7
0x0f92…0fc0 at0008 = ╱52╱R╱ // 0xf9a @0x8
0x0f92…0fc0 at0009 = ╱dc╱=╱ // 0xf9b @0x9
0x0f92…0fc0 at000a = ╱45╱E╱ // 0xf9c @0xa
0x0f92…0fc0 at000b = ╱b6╱ THEN ╱ // 0xf9d @0xb
0x0f92…0fc0 at000c = ╱55╱U╱ // 0xf9e @0xc
0x0f92…0fc0 at000d = ╱42╱B╱ // 0xf9f @0xd
0x0f92…0fc0 at000e = ╱4c╱L╱ // 0xfa0 @0xe
0x0f92…0fc0 at000f = ╱42╱B╱ // 0xfa1 @0xf
0x0f92…0fc0 at0010 = ╱31╱1╱ // 0xfa2 @0x10
0x0f92…0fc0 at0011 = ╱ef╱$╱ // 0xfa3 @0x11
0x0f92…0fc0 at0012 = ╱dc╱=╱ // 0xfa4 @0x12
0x0f92…0fc0 at0013 = ╱55╱U╱ // 0xfa5 @0x13
0x0f92…0fc0 at0014 = ╱42╱B╱ // 0xfa6 @0x14
0x0f92…0fc0 at0015 = ╱4c╱L╱ // 0xfa7 @0x15
0x0f92…0fc0 at0016 = ╱42╱B╱ // 0xfa8 @0x16
0x0f92…0fc0 at0017 = ╱31╱1╱ // 0xfa9 @0x17
0x0f92…0fc0 at0018 = ╱ef╱$╱ // 0xfaa @0x18
0x0f92…0fc0 at0019 = ╱ed╱(╱ // 0xfab @0x19
0x0f92…0fc0 at001a = ╱34╱4╱ // 0xfac @0x1a
0x0f92…0fc0 at001b = ╱fe00008003╱ // 0xfad @0x1b
0x0f92…0fc0 at0020 = ╱f0╱:╱ // 0xfb2 @0x20
0x0f92…0fc0 at0021 = ╱cc╱LEN╱ // 0xfb3 @0x21
0x0f92…0fc0 at0022 = ╱ed╱(╱ // 0xfb4 @0x22
0x0f92…0fc0 at0023 = ╱55╱U╱ // 0xfb5 @0x23
0x0f92…0fc0 at0024 = ╱42╱B╱ // 0xfb6 @0x24
0x0f92…0fc0 at0025 = ╱4c╱L╱ // 0xfb7 @0x25
0x0f92…0fc0 at0026 = ╱42╱B╱ // 0xfb8 @0x26
0x0f92…0fc0 at0027 = ╱31╱1╱ // 0xfb9 @0x27
0x0f92…0fc0 at0028 = ╱ef╱$╱ // 0xfba @0x28
0x0f92…0fc0 at0029 = ╱ee╱)╱ // 0xfbb @0x29
0x0f92…0fc0 at002a = ╱e3╱-╱ // 0xfbc @0x2a
0x0f92…0fc0 at002b = ╱56╱V╱ // 0xfbd @0x2b
0x0f92…0fc0 at002c = ╱ee╱)╱ // 0xfbe @0x2c
0x0f92…0fc0 at002d = EOL // 0xfbf @0x2d
0x0f92…0fc0 }
0x0fc0…0fcc 9d23 1740 PRINT UBLB1$
0x0fc0…0fcc LineComalBin {
0x0fc0…0fcc ptr = 0x9d23 // 0xfc0 @0x0
0x0fc0…0fcc lno = 0x06cc // 0xfc2 @0x2
0x0fc0…0fcc at0004 = ╱92╱ PRINT ╱ // 0xfc4 @0x4
0x0fc0…0fcc at0005 = ╱55╱U╱ // 0xfc5 @0x5
0x0fc0…0fcc at0006 = ╱42╱B╱ // 0xfc6 @0x6
0x0fc0…0fcc at0007 = ╱4c╱L╱ // 0xfc7 @0x7
0x0fc0…0fcc at0008 = ╱42╱B╱ // 0xfc8 @0x8
0x0fc0…0fcc at0009 = ╱31╱1╱ // 0xfc9 @0x9
0x0fc0…0fcc at000a = ╱ef╱$╱ // 0xfca @0xa
0x0fc0…0fcc at000b = EOL // 0xfcb @0xb
0x0fc0…0fcc }
0x0fcc…0fd2 9d29 1750 ENDPROC
0x0fcc…0fd2 LineComalBin {
0x0fcc…0fd2 ptr = 0x9d29 // 0xfcc @0x0
0x0fcc…0fd2 lno = 0x06d6 // 0xfce @0x2
0x0fcc…0fd2 at0004 = ╱9f╱ ENDPROC ╱ // 0xfd0 @0x4
0x0fcc…0fd2 at0005 = EOL // 0xfd1 @0x5
0x0fcc…0fd2 }
0x0fd2…0fe4 9d3b 1760 PROC NRTEST(NUM1)
0x0fd2…0fe4 LineComalBin {
0x0fd2…0fe4 ptr = 0x9d3b // 0xfd2 @0x0
0x0fd2…0fe4 lno = 0x06e0 // 0xfd4 @0x2
0x0fd2…0fe4 at0004 = ╱9e╱ PROC ╱ // 0xfd6 @0x4
0x0fd2…0fe4 at0005 = ╱4e╱N╱ // 0xfd7 @0x5
0x0fd2…0fe4 at0006 = ╱52╱R╱ // 0xfd8 @0x6
0x0fd2…0fe4 at0007 = ╱54╱T╱ // 0xfd9 @0x7
0x0fd2…0fe4 at0008 = ╱45╱E╱ // 0xfda @0x8
0x0fd2…0fe4 at0009 = ╱53╱S╱ // 0xfdb @0x9
0x0fd2…0fe4 at000a = ╱54╱T╱ // 0xfdc @0xa
0x0fd2…0fe4 at000b = ╱ed╱(╱ // 0xfdd @0xb
0x0fd2…0fe4 at000c = ╱4e╱N╱ // 0xfde @0xc
0x0fd2…0fe4 at000d = ╱55╱U╱ // 0xfdf @0xd
0x0fd2…0fe4 at000e = ╱4d╱M╱ // 0xfe0 @0xe
0x0fd2…0fe4 at000f = ╱31╱1╱ // 0xfe1 @0xf
0x0fd2…0fe4 at0010 = ╱ee╱)╱ // 0xfe2 @0x10
0x0fd2…0fe4 at0011 = EOL // 0xfe3 @0x11
0x0fd2…0fe4 }
0x0fe4…1006 9d5d 1770 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x0fe4…1006 LineComalBin {
0x0fe4…1006 ptr = 0x9d5d // 0xfe4 @0x0
0x0fe4…1006 lno = 0x06ea // 0xfe6 @0x2
0x0fe4…1006 at0004 = ╱50╱P╱ // 0xfe8 @0x4
0x0fe4…1006 at0005 = ╱dc╱=╱ // 0xfe9 @0x5
0x0fe4…1006 at0006 = ╱42╱B╱ // 0xfea @0x6
0x0fe4…1006 at0007 = ╱eb╱;╱ // 0xfeb @0x7
0x0fe4…1006 at0008 = ╱54╱T╱ // 0xfec @0x8
0x0fe4…1006 at0009 = ╱45╱E╱ // 0xfed @0x9
0x0fe4…1006 at000a = ╱53╱S╱ // 0xfee @0xa
0x0fe4…1006 at000b = ╱54╱T╱ // 0xfef @0xb
0x0fe4…1006 at000c = ╱32╱2╱ // 0xff0 @0xc
0x0fe4…1006 at000d = ╱dc╱=╱ // 0xff1 @0xd
0x0fe4…1006 at000e = ╱42╱B╱ // 0xff2 @0xe
0x0fe4…1006 at000f = ╱eb╱;╱ // 0xff3 @0xf
0x0fe4…1006 at0010 = ╱4b╱K╱ // 0xff4 @0x10
0x0fe4…1006 at0011 = ╱54╱T╱ // 0xff5 @0x11
0x0fe4…1006 at0012 = ╱41╱A╱ // 0xff6 @0x12
0x0fe4…1006 at0013 = ╱4c╱L╱ // 0xff7 @0x13
0x0fe4…1006 at0014 = ╱dc╱=╱ // 0xff8 @0x14
0x0fe4…1006 at0015 = ╱42╱B╱ // 0xff9 @0x15
0x0fe4…1006 at0016 = ╱eb╱;╱ // 0xffa @0x16
0x0fe4…1006 at0017 = ╱4c╱L╱ // 0xffb @0x17
0x0fe4…1006 at0018 = ╱dc╱=╱ // 0xffc @0x18
0x0fe4…1006 at0019 = ╱cc╱LEN╱ // 0xffd @0x19
0x0fe4…1006 at001a = ╱ed╱(╱ // 0xffe @0x1a
0x0fe4…1006 at001b = ╱4e╱N╱ // 0xfff @0x1b
0x0fe4…1006 at001c = ╱55╱U╱ // 0x1000 @0x1c
0x0fe4…1006 at001d = ╱4d╱M╱ // 0x1001 @0x1d
0x0fe4…1006 at001e = ╱31╱1╱ // 0x1002 @0x1e
0x0fe4…1006 at001f = ╱ef╱$╱ // 0x1003 @0x1f
0x0fe4…1006 at0020 = ╱ee╱)╱ // 0x1004 @0x20
0x0fe4…1006 at0021 = EOL // 0x1005 @0x21
0x0fe4…1006 }
0x1006…100f 9d66 1780 CASE L OF
0x1006…100f LineComalBin {
0x1006…100f ptr = 0x9d66 // 0x1006 @0x0
0x1006…100f lno = 0x06f4 // 0x1008 @0x2
0x1006…100f at0004 = ╱a201╱ CASE ╱ // 0x100a @0x4
0x1006…100f at0006 = ╱4c╱L╱ // 0x100c @0x6
0x1006…100f at0007 = ╱ba╱ OF ╱ // 0x100d @0x7
0x1006…100f at0008 = EOL // 0x100e @0x8
0x1006…100f }
0x100f…101a 9d71 1790 FOR I=E TO L
0x100f…101a LineComalBin {
0x100f…101a ptr = 0x9d71 // 0x100f @0x0
0x100f…101a lno = 0x06fe // 0x1011 @0x2
0x100f…101a at0004 = ╱83╱ FOR ╱ // 0x1013 @0x4
0x100f…101a at0005 = ╱49╱I╱ // 0x1014 @0x5
0x100f…101a at0006 = ╱dc╱=╱ // 0x1015 @0x6
0x100f…101a at0007 = ╱45╱E╱ // 0x1016 @0x7
0x100f…101a at0008 = ╱b7╱ TO ╱ // 0x1017 @0x8
0x100f…101a at0009 = ╱4c╱L╱ // 0x1018 @0x9
0x100f…101a at000a = EOL // 0x1019 @0xa
0x100f…101a }
0x101a…1038 9d8f 1800 P1=INT(ORD(NUM1$(I))-48)
0x101a…1038 LineComalBin {
0x101a…1038 ptr = 0x9d8f // 0x101a @0x0
0x101a…1038 lno = 0x0708 // 0x101c @0x2
0x101a…1038 at0004 = ╱50╱P╱ // 0x101e @0x4
0x101a…1038 at0005 = ╱31╱1╱ // 0x101f @0x5
0x101a…1038 at0006 = ╱dc╱=╱ // 0x1020 @0x6
0x101a…1038 at0007 = ╱c6╱INT╱ // 0x1021 @0x7
0x101a…1038 at0008 = ╱ed╱(╱ // 0x1022 @0x8
0x101a…1038 at0009 = ╱cd╱ORD╱ // 0x1023 @0x9
0x101a…1038 at000a = ╱ed╱(╱ // 0x1024 @0xa
0x101a…1038 at000b = ╱4e╱N╱ // 0x1025 @0xb
0x101a…1038 at000c = ╱55╱U╱ // 0x1026 @0xc
0x101a…1038 at000d = ╱4d╱M╱ // 0x1027 @0xd
0x101a…1038 at000e = ╱31╱1╱ // 0x1028 @0xe
0x101a…1038 at000f = ╱ef╱$╱ // 0x1029 @0xf
0x101a…1038 at0010 = ╱ed╱(╱ // 0x102a @0x10
0x101a…1038 at0011 = ╱49╱I╱ // 0x102b @0x11
0x101a…1038 at0012 = ╱ee╱)╱ // 0x102c @0x12
0x101a…1038 at0013 = ╱ee╱)╱ // 0x102d @0x13
0x101a…1038 at0014 = ╱e3╱-╱ // 0x102e @0x14
0x101a…1038 at0015 = ╱34╱4╱ // 0x102f @0x15
0x101a…1038 at0016 = ╱38╱8╱ // 0x1030 @0x16
0x101a…1038 at0017 = ╱fe0000c006╱ // 0x1031 @0x17
0x101a…1038 at001c = ╱ee╱)╱ // 0x1036 @0x1c
0x101a…1038 at001d = EOL // 0x1037 @0x1d
0x101a…1038 }
0x1038…1048 9d9f 1810 IF P1=>B AND P1<=W THEN
0x1038…1048 LineComalBin {
0x1038…1048 ptr = 0x9d9f // 0x1038 @0x0
0x1038…1048 lno = 0x0712 // 0x103a @0x2
0x1038…1048 at0004 = ╱9c╱ IF ╱ // 0x103c @0x4
0x1038…1048 at0005 = ╱50╱P╱ // 0x103d @0x5
0x1038…1048 at0006 = ╱31╱1╱ // 0x103e @0x6
0x1038…1048 at0007 = ╱e0╱=>╱ // 0x103f @0x7
0x1038…1048 at0008 = ╱42╱B╱ // 0x1040 @0x8
0x1038…1048 at0009 = ╱da╱ AND ╱ // 0x1041 @0x9
0x1038…1048 at000a = ╱50╱P╱ // 0x1042 @0xa
0x1038…1048 at000b = ╱31╱1╱ // 0x1043 @0xb
0x1038…1048 at000c = ╱df╱<=╱ // 0x1044 @0xc
0x1038…1048 at000d = ╱57╱W╱ // 0x1045 @0xd
0x1038…1048 at000e = ╱b6╱ THEN ╱ // 0x1046 @0xe
0x1038…1048 at000f = EOL // 0x1047 @0xf
0x1038…1048 }
0x1048…105b 9db2 1820 P=P*10+P1
0x1048…105b LineComalBin {
0x1048…105b ptr = 0x9db2 // 0x1048 @0x0
0x1048…105b lno = 0x071c // 0x104a @0x2
0x1048…105b at0004 = ╱50╱P╱ // 0x104c @0x4
0x1048…105b at0005 = ╱dc╱=╱ // 0x104d @0x5
0x1048…105b at0006 = ╱50╱P╱ // 0x104e @0x6
0x1048…105b at0007 = ╱e4╱*╱ // 0x104f @0x7
0x1048…105b at0008 = ╱31╱1╱ // 0x1050 @0x8
0x1048…105b at0009 = ╱30╱0╱ // 0x1051 @0x9
0x1048…105b at000a = ╱fe0000a004╱ // 0x1052 @0xa
0x1048…105b at000f = ╱e2╱+╱ // 0x1057 @0xf
0x1048…105b at0010 = ╱50╱P╱ // 0x1058 @0x10
0x1048…105b at0011 = ╱31╱1╱ // 0x1059 @0x11
0x1048…105b at0012 = EOL // 0x105a @0x12
0x1048…105b }
0x105b…1061 9db8 1830 ELSE
0x105b…1061 LineComalBin {
0x105b…1061 ptr = 0x9db8 // 0x105b @0x0
0x105b…1061 lno = 0x0726 // 0x105d @0x2
0x105b…1061 at0004 = ╱9a╱ ELSE ╱ // 0x105f @0x4
0x105b…1061 at0005 = EOL // 0x1060 @0x5
0x105b…1061 }
0x1061…106d 9dc4 1840 TEST2=E
0x1061…106d LineComalBin {
0x1061…106d ptr = 0x9dc4 // 0x1061 @0x0
0x1061…106d lno = 0x0730 // 0x1063 @0x2
0x1061…106d at0004 = ╱54╱T╱ // 0x1065 @0x4
0x1061…106d at0005 = ╱45╱E╱ // 0x1066 @0x5
0x1061…106d at0006 = ╱53╱S╱ // 0x1067 @0x6
0x1061…106d at0007 = ╱54╱T╱ // 0x1068 @0x7
0x1061…106d at0008 = ╱32╱2╱ // 0x1069 @0x8
0x1061…106d at0009 = ╱dc╱=╱ // 0x106a @0x9
0x1061…106d at000a = ╱45╱E╱ // 0x106b @0xa
0x1061…106d at000b = EOL // 0x106c @0xb
0x1061…106d }
0x106d…1073 9dca 1850 ENDIF
0x106d…1073 LineComalBin {
0x106d…1073 ptr = 0x9dca // 0x106d @0x0
0x106d…1073 lno = 0x073a // 0x106f @0x2
0x106d…1073 at0004 = ╱9b╱ ENDIF ╱ // 0x1071 @0x4
0x106d…1073 at0005 = EOL // 0x1072 @0x5
0x106d…1073 }
0x1073…107a 9dd1 1860 NEXT I
0x1073…107a LineComalBin {
0x1073…107a ptr = 0x9dd1 // 0x1073 @0x0
0x1073…107a lno = 0x0744 // 0x1075 @0x2
0x1073…107a at0004 = ╱84╱ NEXT ╱ // 0x1077 @0x4
0x1073…107a at0005 = ╱49╱I╱ // 0x1078 @0x5
0x1073…107a at0006 = EOL // 0x1079 @0x6
0x1073…107a }
0x107a…10a2 9df9 1870 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x107a…10a2 LineComalBin {
0x107a…10a2 ptr = 0x9df9 // 0x107a @0x0
0x107a…10a2 lno = 0x074e // 0x107c @0x2
0x107a…10a2 at0004 = ╱4b╱K╱ // 0x107e @0x4
0x107a…10a2 at0005 = ╱54╱T╱ // 0x107f @0x5
0x107a…10a2 at0006 = ╱41╱A╱ // 0x1080 @0x6
0x107a…10a2 at0007 = ╱4c╱L╱ // 0x1081 @0x7
0x107a…10a2 at0008 = ╱dc╱=╱ // 0x1082 @0x8
0x107a…10a2 at0009 = ╱50╱P╱ // 0x1083 @0x9
0x107a…10a2 at000a = ╱e7╱ DIV ╱ // 0x1084 @0xa
0x107a…10a2 at000b = ╱31╱1╱ // 0x1085 @0xb
0x107a…10a2 at000c = ╱30╱0╱ // 0x1086 @0xc
0x107a…10a2 at000d = ╱30╱0╱ // 0x1087 @0xd
0x107a…10a2 at000e = ╱30╱0╱ // 0x1088 @0xe
0x107a…10a2 at000f = ╱30╱0╱ // 0x1089 @0xf
0x107a…10a2 at0010 = ╱fe00409c0e╱ // 0x108a @0x10
0x107a…10a2 at0015 = ╱eb╱;╱ // 0x108f @0x15
0x107a…10a2 at0016 = ╱4b╱K╱ // 0x1090 @0x16
0x107a…10a2 at0017 = ╱54╱T╱ // 0x1091 @0x17
0x107a…10a2 at0018 = ╱41╱A╱ // 0x1092 @0x18
0x107a…10a2 at0019 = ╱4c╱L╱ // 0x1093 @0x19
0x107a…10a2 at001a = ╱39╱9╱ // 0x1094 @0x1a
0x107a…10a2 at001b = ╱dc╱=╱ // 0x1095 @0x1b
0x107a…10a2 at001c = ╱50╱P╱ // 0x1096 @0x1c
0x107a…10a2 at001d = ╱e7╱ DIV ╱ // 0x1097 @0x1d
0x107a…10a2 at001e = ╱31╱1╱ // 0x1098 @0x1e
0x107a…10a2 at001f = ╱30╱0╱ // 0x1099 @0x1f
0x107a…10a2 at0020 = ╱30╱0╱ // 0x109a @0x20
0x107a…10a2 at0021 = ╱30╱0╱ // 0x109b @0x21
0x107a…10a2 at0022 = ╱fe0000fa0a╱ // 0x109c @0x22
0x107a…10a2 at0027 = EOL // 0x10a1 @0x27
0x107a…10a2 }
0x10a2…10be 9e15 1880 IF KTAL9=KRTAL THEN KTAL=KRTAL
0x10a2…10be LineComalBin {
0x10a2…10be ptr = 0x9e15 // 0x10a2 @0x0
0x10a2…10be lno = 0x0758 // 0x10a4 @0x2
0x10a2…10be at0004 = ╱82╱ IF ╱ // 0x10a6 @0x4
0x10a2…10be at0005 = ╱4b╱K╱ // 0x10a7 @0x5
0x10a2…10be at0006 = ╱54╱T╱ // 0x10a8 @0x6
0x10a2…10be at0007 = ╱41╱A╱ // 0x10a9 @0x7
0x10a2…10be at0008 = ╱4c╱L╱ // 0x10aa @0x8
0x10a2…10be at0009 = ╱39╱9╱ // 0x10ab @0x9
0x10a2…10be at000a = ╱dc╱=╱ // 0x10ac @0xa
0x10a2…10be at000b = ╱4b╱K╱ // 0x10ad @0xb
0x10a2…10be at000c = ╱52╱R╱ // 0x10ae @0xc
0x10a2…10be at000d = ╱54╱T╱ // 0x10af @0xd
0x10a2…10be at000e = ╱41╱A╱ // 0x10b0 @0xe
0x10a2…10be at000f = ╱4c╱L╱ // 0x10b1 @0xf
0x10a2…10be at0010 = ╱b6╱ THEN ╱ // 0x10b2 @0x10
0x10a2…10be at0011 = ╱4b╱K╱ // 0x10b3 @0x11
0x10a2…10be at0012 = ╱54╱T╱ // 0x10b4 @0x12
0x10a2…10be at0013 = ╱41╱A╱ // 0x10b5 @0x13
0x10a2…10be at0014 = ╱4c╱L╱ // 0x10b6 @0x14
0x10a2…10be at0015 = ╱dc╱=╱ // 0x10b7 @0x15
0x10a2…10be at0016 = ╱4b╱K╱ // 0x10b8 @0x16
0x10a2…10be at0017 = ╱52╱R╱ // 0x10b9 @0x17
0x10a2…10be at0018 = ╱54╱T╱ // 0x10ba @0x18
0x10a2…10be at0019 = ╱41╱A╱ // 0x10bb @0x19
0x10a2…10be at001a = ╱4c╱L╱ // 0x10bc @0x1a
0x10a2…10be at001b = EOL // 0x10bd @0x1b
0x10a2…10be }
0x10be…10c6 9e1d 1890 WHEN B
0x10be…10c6 LineComalBin {
0x10be…10c6 ptr = 0x9e1d // 0x10be @0x0
0x10be…10c6 lno = 0x0762 // 0x10c0 @0x2
0x10be…10c6 at0004 = ╱a301╱ WHEN ╱ // 0x10c2 @0x4
0x10be…10c6 at0006 = ╱42╱B╱ // 0x10c4 @0x6
0x10be…10c6 at0007 = EOL // 0x10c5 @0x7
0x10be…10c6 }
0x10c6…10cf 9e26 1900 P=-E
0x10c6…10cf LineComalBin {
0x10c6…10cf ptr = 0x9e26 // 0x10c6 @0x0
0x10c6…10cf lno = 0x076c // 0x10c8 @0x2
0x10c6…10cf at0004 = ╱50╱P╱ // 0x10ca @0x4
0x10c6…10cf at0005 = ╱dc╱=╱ // 0x10cb @0x5
0x10c6…10cf at0006 = ╱e9╱-╱ // 0x10cc @0x6
0x10c6…10cf at0007 = ╱45╱E╱ // 0x10cd @0x7
0x10c6…10cf at0008 = EOL // 0x10ce @0x8
0x10c6…10cf }
0x10cf…10d7 9e2e 1910 WHEN E
0x10cf…10d7 LineComalBin {
0x10cf…10d7 ptr = 0x9e2e // 0x10cf @0x0
0x10cf…10d7 lno = 0x0776 // 0x10d1 @0x2
0x10cf…10d7 at0004 = ╱a301╱ WHEN ╱ // 0x10d3 @0x4
0x10cf…10d7 at0006 = ╱45╱E╱ // 0x10d5 @0x6
0x10cf…10d7 at0007 = EOL // 0x10d6 @0x7
0x10cf…10d7 }
0x10d7…10e4 9e3b 1920 CASE NUM1$ OF
0x10d7…10e4 LineComalBin {
0x10d7…10e4 ptr = 0x9e3b // 0x10d7 @0x0
0x10d7…10e4 lno = 0x0780 // 0x10d9 @0x2
0x10d7…10e4 at0004 = ╱a200╱ CASE ╱ // 0x10db @0x4
0x10d7…10e4 at0006 = ╱4e╱N╱ // 0x10dd @0x6
0x10d7…10e4 at0007 = ╱55╱U╱ // 0x10de @0x7
0x10d7…10e4 at0008 = ╱4d╱M╱ // 0x10df @0x8
0x10d7…10e4 at0009 = ╱31╱1╱ // 0x10e0 @0x9
0x10d7…10e4 at000a = ╱ef╱$╱ // 0x10e1 @0xa
0x10d7…10e4 at000b = ╱ba╱ OF ╱ // 0x10e2 @0xb
0x10d7…10e4 at000c = EOL // 0x10e3 @0xc
0x10d7…10e4 }
0x10e4…10fe 9e55 1930 P=INT(ORD(NUM1$)-48)
0x10e4…10fe LineComalBin {
0x10e4…10fe ptr = 0x9e55 // 0x10e4 @0x0
0x10e4…10fe lno = 0x078a // 0x10e6 @0x2
0x10e4…10fe at0004 = ╱50╱P╱ // 0x10e8 @0x4
0x10e4…10fe at0005 = ╱dc╱=╱ // 0x10e9 @0x5
0x10e4…10fe at0006 = ╱c6╱INT╱ // 0x10ea @0x6
0x10e4…10fe at0007 = ╱ed╱(╱ // 0x10eb @0x7
0x10e4…10fe at0008 = ╱cd╱ORD╱ // 0x10ec @0x8
0x10e4…10fe at0009 = ╱ed╱(╱ // 0x10ed @0x9
0x10e4…10fe at000a = ╱4e╱N╱ // 0x10ee @0xa
0x10e4…10fe at000b = ╱55╱U╱ // 0x10ef @0xb
0x10e4…10fe at000c = ╱4d╱M╱ // 0x10f0 @0xc
0x10e4…10fe at000d = ╱31╱1╱ // 0x10f1 @0xd
0x10e4…10fe at000e = ╱ef╱$╱ // 0x10f2 @0xe
0x10e4…10fe at000f = ╱ee╱)╱ // 0x10f3 @0xf
0x10e4…10fe at0010 = ╱e3╱-╱ // 0x10f4 @0x10
0x10e4…10fe at0011 = ╱34╱4╱ // 0x10f5 @0x11
0x10e4…10fe at0012 = ╱38╱8╱ // 0x10f6 @0x12
0x10e4…10fe at0013 = ╱fe0000c006╱ // 0x10f7 @0x13
0x10e4…10fe at0018 = ╱ee╱)╱ // 0x10fc @0x18
0x10e4…10fe at0019 = EOL // 0x10fd @0x19
0x10e4…10fe }
0x10fe…110c 9e63 1940 WHEN "j","J"
0x10fe…110c LineComalBin {
0x10fe…110c ptr = 0x9e63 // 0x10fe @0x0
0x10fe…110c lno = 0x0794 // 0x1100 @0x2
0x10fe…110c at0004 = ╱a300╱ WHEN ╱ // 0x1102 @0x4
0x10fe…110c at0006 = ╱22╱"╱ // 0x1104 @0x6
0x10fe…110c at0007 = ╱6a╱j╱ // 0x1105 @0x7
0x10fe…110c at0008 = ╱22╱"╱ // 0x1106 @0x8
0x10fe…110c at0009 = ╱ec╱,╱ // 0x1107 @0x9
0x10fe…110c at000a = ╱22╱"╱ // 0x1108 @0xa
0x10fe…110c at000b = ╱4a╱J╱ // 0x1109 @0xb
0x10fe…110c at000c = ╱22╱"╱ // 0x110a @0xc
0x10fe…110c at000d = EOL // 0x110b @0xd
0x10fe…110c }
0x110c…111a 9e71 1950 P=-7
0x110c…111a LineComalBin {
0x110c…111a ptr = 0x9e71 // 0x110c @0x0
0x110c…111a lno = 0x079e // 0x110e @0x2
0x110c…111a at0004 = ╱50╱P╱ // 0x1110 @0x4
0x110c…111a at0005 = ╱dc╱=╱ // 0x1111 @0x5
0x110c…111a at0006 = ╱e9╱-╱ // 0x1112 @0x6
0x110c…111a at0007 = ╱37╱7╱ // 0x1113 @0x7
0x110c…111a at0008 = ╱fe0000e003╱ // 0x1114 @0x8
0x110c…111a at000d = EOL // 0x1119 @0xd
0x110c…111a }
0x111a…1128 9e7f 1960 WHEN "n","N"
0x111a…1128 LineComalBin {
0x111a…1128 ptr = 0x9e7f // 0x111a @0x0
0x111a…1128 lno = 0x07a8 // 0x111c @0x2
0x111a…1128 at0004 = ╱a300╱ WHEN ╱ // 0x111e @0x4
0x111a…1128 at0006 = ╱22╱"╱ // 0x1120 @0x6
0x111a…1128 at0007 = ╱6e╱n╱ // 0x1121 @0x7
0x111a…1128 at0008 = ╱22╱"╱ // 0x1122 @0x8
0x111a…1128 at0009 = ╱ec╱,╱ // 0x1123 @0x9
0x111a…1128 at000a = ╱22╱"╱ // 0x1124 @0xa
0x111a…1128 at000b = ╱4e╱N╱ // 0x1125 @0xb
0x111a…1128 at000c = ╱22╱"╱ // 0x1126 @0xc
0x111a…1128 at000d = EOL // 0x1127 @0xd
0x111a…1128 }
0x1128…1136 9e8d 1970 P=-8
0x1128…1136 LineComalBin {
0x1128…1136 ptr = 0x9e8d // 0x1128 @0x0
0x1128…1136 lno = 0x07b2 // 0x112a @0x2
0x1128…1136 at0004 = ╱50╱P╱ // 0x112c @0x4
0x1128…1136 at0005 = ╱dc╱=╱ // 0x112d @0x5
0x1128…1136 at0006 = ╱e9╱-╱ // 0x112e @0x6
0x1128…1136 at0007 = ╱38╱8╱ // 0x112f @0x7
0x1128…1136 at0008 = ╱fe00008004╱ // 0x1130 @0x8
0x1128…1136 at000d = EOL // 0x1135 @0xd
0x1128…1136 }
0x1136…113c 9e93 1980 ENDCASE
0x1136…113c LineComalBin {
0x1136…113c ptr = 0x9e93 // 0x1136 @0x0
0x1136…113c lno = 0x07bc // 0x1138 @0x2
0x1136…113c at0004 = ╱a4╱ ENDCASE ╱ // 0x113a @0x4
0x1136…113c at0005 = EOL // 0x113b @0x5
0x1136…113c }
0x113c…1142 9e99 1990 ENDCASE
0x113c…1142 LineComalBin {
0x113c…1142 ptr = 0x9e99 // 0x113c @0x0
0x113c…1142 lno = 0x07c6 // 0x113e @0x2
0x113c…1142 at0004 = ╱a4╱ ENDCASE ╱ // 0x1140 @0x4
0x113c…1142 at0005 = EOL // 0x1141 @0x5
0x113c…1142 }
0x1142…1148 9e9f 2000 ENDPROC
0x1142…1148 LineComalBin {
0x1142…1148 ptr = 0x9e9f // 0x1142 @0x0
0x1142…1148 lno = 0x07d0 // 0x1144 @0x2
0x1142…1148 at0004 = ╱9f╱ ENDPROC ╱ // 0x1146 @0x4
0x1142…1148 at0005 = EOL // 0x1147 @0x5
0x1142…1148 }
0x1148…1157 9eae 2010 PROC VERSKRIFT
0x1148…1157 LineComalBin {
0x1148…1157 ptr = 0x9eae // 0x1148 @0x0
0x1148…1157 lno = 0x07da // 0x114a @0x2
0x1148…1157 at0004 = ╱9e╱ PROC ╱ // 0x114c @0x4
0x1148…1157 at0005 = ╱56╱V╱ // 0x114d @0x5
0x1148…1157 at0006 = ╱45╱E╱ // 0x114e @0x6
0x1148…1157 at0007 = ╱52╱R╱ // 0x114f @0x7
0x1148…1157 at0008 = ╱53╱S╱ // 0x1150 @0x8
0x1148…1157 at0009 = ╱4b╱K╱ // 0x1151 @0x9
0x1148…1157 at000a = ╱52╱R╱ // 0x1152 @0xa
0x1148…1157 at000b = ╱49╱I╱ // 0x1153 @0xb
0x1148…1157 at000c = ╱46╱F╱ // 0x1154 @0xc
0x1148…1157 at000d = ╱54╱T╱ // 0x1155 @0xd
0x1148…1157 at000e = EOL // 0x1156 @0xe
0x1148…1157 }
0x1157…1166 9ebd 2020 CURSOR 45,E
0x1157…1166 LineComalBin {
0x1157…1166 ptr = 0x9ebd // 0x1157 @0x0
0x1157…1166 lno = 0x07e4 // 0x1159 @0x2
0x1157…1166 at0004 = ╱a1╱ CURSOR ╱ // 0x115b @0x4
0x1157…1166 at0005 = ╱34╱4╱ // 0x115c @0x5
0x1157…1166 at0006 = ╱35╱5╱ // 0x115d @0x6
0x1157…1166 at0007 = ╱fe0000b406╱ // 0x115e @0x7
0x1157…1166 at000c = ╱ec╱,╱ // 0x1163 @0xc
0x1157…1166 at000d = ╱45╱E╱ // 0x1164 @0xd
0x1157…1166 at000e = EOL // 0x1165 @0xe
0x1157…1166 }
0x1166…1172 9ec9 2030 CASE TYPE OF
0x1166…1172 LineComalBin {
0x1166…1172 ptr = 0x9ec9 // 0x1166 @0x0
0x1166…1172 lno = 0x07ee // 0x1168 @0x2
0x1166…1172 at0004 = ╱a201╱ CASE ╱ // 0x116a @0x4
0x1166…1172 at0006 = ╱54╱T╱ // 0x116c @0x6
0x1166…1172 at0007 = ╱59╱Y╱ // 0x116d @0x7
0x1166…1172 at0008 = ╱50╱P╱ // 0x116e @0x8
0x1166…1172 at0009 = ╱45╱E╱ // 0x116f @0x9
0x1166…1172 at000a = ╱ba╱ OF ╱ // 0x1170 @0xa
0x1166…1172 at000b = EOL // 0x1171 @0xb
0x1166…1172 }
0x1172…117a (58,) 9ed1 2040 WHEN E
0x1172…117a LineComalBin {
0x1172…117a ptr = 0x9ed1 // 0x1172 @0x0
0x1172…117a lno = 0x07f8 // 0x1174 @0x2
0x1172…117a at0004 = ╱a301╱ WHEN ╱ // 0x1176 @0x4
0x1172…117a at0006 = ╱45╱E╱ // 0x1178 @0x6
0x1172…117a at0007 = EOL // 0x1179 @0x7
0x1172…117a }
0x117a…118c 9ee3 2050 PRINT "Oprettelse"
0x117a…118c LineComalBin {
0x117a…118c ptr = 0x9ee3 // 0x117a @0x0
0x117a…118c lno = 0x0802 // 0x117c @0x2
0x117a…118c at0004 = ╱92╱ PRINT ╱ // 0x117e @0x4
0x117a…118c at0005 = ╱22╱"╱ // 0x117f @0x5
0x117a…118c at0006 = ╱4f╱O╱ // 0x1180 @0x6
0x117a…118c at0007 = ╱70╱p╱ // 0x1181 @0x7
0x117a…118c at0008 = ╱72╱r╱ // 0x1182 @0x8
0x117a…118c at0009 = ╱65╱e╱ // 0x1183 @0x9
0x117a…118c at000a = ╱74╱t╱ // 0x1184 @0xa
0x117a…118c at000b = ╱74╱t╱ // 0x1185 @0xb
0x117a…118c at000c = ╱65╱e╱ // 0x1186 @0xc
0x117a…118c at000d = ╱6c╱l╱ // 0x1187 @0xd
0x117a…118c at000e = ╱73╱s╱ // 0x1188 @0xe
0x117a…118c at000f = ╱65╱e╱ // 0x1189 @0xf
0x117a…118c at0010 = ╱22╱"╱ // 0x118a @0x10
0x117a…118c at0011 = EOL // 0x118b @0x11
0x117a…118c }
0x118c…1194 9eeb 2060 WHEN G
0x118c…1194 LineComalBin {
0x118c…1194 ptr = 0x9eeb // 0x118c @0x0
0x118c…1194 lno = 0x080c // 0x118e @0x2
0x118c…1194 at0004 = ╱a301╱ WHEN ╱ // 0x1190 @0x4
0x118c…1194 at0006 = ╱47╱G╱ // 0x1192 @0x6
0x118c…1194 at0007 = EOL // 0x1193 @0x7
0x118c…1194 }
0x1194…11a3 9efa 2070 PRINT "Ændring"
0x1194…11a3 LineComalBin {
0x1194…11a3 ptr = 0x9efa // 0x1194 @0x0
0x1194…11a3 lno = 0x0816 // 0x1196 @0x2
0x1194…11a3 at0004 = ╱92╱ PRINT ╱ // 0x1198 @0x4
0x1194…11a3 at0005 = ╱22╱"╱ // 0x1199 @0x5
0x1194…11a3 at0006 = ╱5b╱Æ╱ // 0x119a @0x6
0x1194…11a3 at0007 = ╱6e╱n╱ // 0x119b @0x7
0x1194…11a3 at0008 = ╱64╱d╱ // 0x119c @0x8
0x1194…11a3 at0009 = ╱72╱r╱ // 0x119d @0x9
0x1194…11a3 at000a = ╱69╱i╱ // 0x119e @0xa
0x1194…11a3 at000b = ╱6e╱n╱ // 0x119f @0xb
0x1194…11a3 at000c = ╱67╱g╱ // 0x11a0 @0xc
0x1194…11a3 at000d = ╱22╱"╱ // 0x11a1 @0xd
0x1194…11a3 at000e = EOL // 0x11a2 @0xe
0x1194…11a3 }
0x11a3…11ab 9f02 2080 WHEN V
0x11a3…11ab LineComalBin {
0x11a3…11ab ptr = 0x9f02 // 0x11a3 @0x0
0x11a3…11ab lno = 0x0820 // 0x11a5 @0x2
0x11a3…11ab at0004 = ╱a301╱ WHEN ╱ // 0x11a7 @0x4
0x11a3…11ab at0006 = ╱56╱V╱ // 0x11a9 @0x6
0x11a3…11ab at0007 = EOL // 0x11aa @0x7
0x11a3…11ab }
0x11ab…11bb 9f12 2090 PRINT "Sletning"
0x11ab…11bb LineComalBin {
0x11ab…11bb ptr = 0x9f12 // 0x11ab @0x0
0x11ab…11bb lno = 0x082a // 0x11ad @0x2
0x11ab…11bb at0004 = ╱92╱ PRINT ╱ // 0x11af @0x4
0x11ab…11bb at0005 = ╱22╱"╱ // 0x11b0 @0x5
0x11ab…11bb at0006 = ╱53╱S╱ // 0x11b1 @0x6
0x11ab…11bb at0007 = ╱6c╱l╱ // 0x11b2 @0x7
0x11ab…11bb at0008 = ╱65╱e╱ // 0x11b3 @0x8
0x11ab…11bb at0009 = ╱74╱t╱ // 0x11b4 @0x9
0x11ab…11bb at000a = ╱6e╱n╱ // 0x11b5 @0xa
0x11ab…11bb at000b = ╱69╱i╱ // 0x11b6 @0xb
0x11ab…11bb at000c = ╱6e╱n╱ // 0x11b7 @0xc
0x11ab…11bb at000d = ╱67╱g╱ // 0x11b8 @0xd
0x11ab…11bb at000e = ╱22╱"╱ // 0x11b9 @0xe
0x11ab…11bb at000f = EOL // 0x11ba @0xf
0x11ab…11bb }
0x11bb…11c8 9f1f 2100 WHEN 4
0x11bb…11c8 LineComalBin {
0x11bb…11c8 ptr = 0x9f1f // 0x11bb @0x0
0x11bb…11c8 lno = 0x0834 // 0x11bd @0x2
0x11bb…11c8 at0004 = ╱a301╱ WHEN ╱ // 0x11bf @0x4
0x11bb…11c8 at0006 = ╱34╱4╱ // 0x11c1 @0x6
0x11bb…11c8 at0007 = ╱fe00008003╱ // 0x11c2 @0x7
0x11bb…11c8 at000c = EOL // 0x11c7 @0xc
0x11bb…11c8 }
0x11c8…11d8 9f2f 2110 PRINT "Udskrift"
0x11c8…11d8 LineComalBin {
0x11c8…11d8 ptr = 0x9f2f // 0x11c8 @0x0
0x11c8…11d8 lno = 0x083e // 0x11ca @0x2
0x11c8…11d8 at0004 = ╱92╱ PRINT ╱ // 0x11cc @0x4
0x11c8…11d8 at0005 = ╱22╱"╱ // 0x11cd @0x5
0x11c8…11d8 at0006 = ╱55╱U╱ // 0x11ce @0x6
0x11c8…11d8 at0007 = ╱64╱d╱ // 0x11cf @0x7
0x11c8…11d8 at0008 = ╱73╱s╱ // 0x11d0 @0x8
0x11c8…11d8 at0009 = ╱6b╱k╱ // 0x11d1 @0x9
0x11c8…11d8 at000a = ╱72╱r╱ // 0x11d2 @0xa
0x11c8…11d8 at000b = ╱69╱i╱ // 0x11d3 @0xb
0x11c8…11d8 at000c = ╱66╱f╱ // 0x11d4 @0xc
0x11c8…11d8 at000d = ╱74╱t╱ // 0x11d5 @0xd
0x11c8…11d8 at000e = ╱22╱"╱ // 0x11d6 @0xe
0x11c8…11d8 at000f = EOL // 0x11d7 @0xf
0x11c8…11d8 }
0x11d8…11e5 9f3c 2120 WHEN 5
0x11d8…11e5 LineComalBin {
0x11d8…11e5 ptr = 0x9f3c // 0x11d8 @0x0
0x11d8…11e5 lno = 0x0848 // 0x11da @0x2
0x11d8…11e5 at0004 = ╱a301╱ WHEN ╱ // 0x11dc @0x4
0x11d8…11e5 at0006 = ╱35╱5╱ // 0x11de @0x6
0x11d8…11e5 at0007 = ╱fe0000a003╱ // 0x11df @0x7
0x11d8…11e5 at000c = EOL // 0x11e4 @0xc
0x11d8…11e5 }
0x11e5…1201 9f58 2130 PRINT "Entreprisekontoliste"
0x11e5…1201 LineComalBin {
0x11e5…1201 ptr = 0x9f58 // 0x11e5 @0x0
0x11e5…1201 lno = 0x0852 // 0x11e7 @0x2
0x11e5…1201 at0004 = ╱92╱ PRINT ╱ // 0x11e9 @0x4
0x11e5…1201 at0005 = ╱22╱"╱ // 0x11ea @0x5
0x11e5…1201 at0006 = ╱45╱E╱ // 0x11eb @0x6
0x11e5…1201 at0007 = ╱6e╱n╱ // 0x11ec @0x7
0x11e5…1201 at0008 = ╱74╱t╱ // 0x11ed @0x8
0x11e5…1201 at0009 = ╱72╱r╱ // 0x11ee @0x9
0x11e5…1201 at000a = ╱65╱e╱ // 0x11ef @0xa
0x11e5…1201 at000b = ╱70╱p╱ // 0x11f0 @0xb
0x11e5…1201 at000c = ╱72╱r╱ // 0x11f1 @0xc
0x11e5…1201 at000d = ╱69╱i╱ // 0x11f2 @0xd
0x11e5…1201 at000e = ╱73╱s╱ // 0x11f3 @0xe
0x11e5…1201 at000f = ╱65╱e╱ // 0x11f4 @0xf
0x11e5…1201 at0010 = ╱6b╱k╱ // 0x11f5 @0x10
0x11e5…1201 at0011 = ╱6f╱o╱ // 0x11f6 @0x11
0x11e5…1201 at0012 = ╱6e╱n╱ // 0x11f7 @0x12
0x11e5…1201 at0013 = ╱74╱t╱ // 0x11f8 @0x13
0x11e5…1201 at0014 = ╱6f╱o╱ // 0x11f9 @0x14
0x11e5…1201 at0015 = ╱6c╱l╱ // 0x11fa @0x15
0x11e5…1201 at0016 = ╱69╱i╱ // 0x11fb @0x16
0x11e5…1201 at0017 = ╱73╱s╱ // 0x11fc @0x17
0x11e5…1201 at0018 = ╱74╱t╱ // 0x11fd @0x18
0x11e5…1201 at0019 = ╱65╱e╱ // 0x11fe @0x19
0x11e5…1201 at001a = ╱22╱"╱ // 0x11ff @0x1a
0x11e5…1201 at001b = EOL // 0x1200 @0x1b
0x11e5…1201 }
0x1201…1207 9f5e 2140 ENDCASE
0x1201…1207 LineComalBin {
0x1201…1207 ptr = 0x9f5e // 0x1201 @0x0
0x1201…1207 lno = 0x085c // 0x1203 @0x2
0x1201…1207 at0004 = ╱a4╱ ENDCASE ╱ // 0x1205 @0x4
0x1201…1207 at0005 = EOL // 0x1206 @0x5
0x1201…1207 }
0x1207…120d 9f64 2150 ENDPROC
0x1207…120d LineComalBin {
0x1207…120d ptr = 0x9f64 // 0x1207 @0x0
0x1207…120d lno = 0x0866 // 0x1209 @0x2
0x1207…120d at0004 = ╱9f╱ ENDPROC ╱ // 0x120b @0x4
0x1207…120d at0005 = EOL // 0x120c @0x5
0x1207…120d }
0x120d…1227 9f7e 2160 K1$="P641220:SYSTEM1"
0x120d…1227 LineComalBin {
0x120d…1227 ptr = 0x9f7e // 0x120d @0x0
0x120d…1227 lno = 0x0870 // 0x120f @0x2
0x120d…1227 at0004 = ╱4b╱K╱ // 0x1211 @0x4
0x120d…1227 at0005 = ╱31╱1╱ // 0x1212 @0x5
0x120d…1227 at0006 = ╱ef╱$╱ // 0x1213 @0x6
0x120d…1227 at0007 = ╱dc╱=╱ // 0x1214 @0x7
0x120d…1227 at0008 = ╱22╱"╱ // 0x1215 @0x8
0x120d…1227 at0009 = ╱50╱P╱ // 0x1216 @0x9
0x120d…1227 at000a = ╱36╱6╱ // 0x1217 @0xa
0x120d…1227 at000b = ╱34╱4╱ // 0x1218 @0xb
0x120d…1227 at000c = ╱31╱1╱ // 0x1219 @0xc
0x120d…1227 at000d = ╱32╱2╱ // 0x121a @0xd
0x120d…1227 at000e = ╱32╱2╱ // 0x121b @0xe
0x120d…1227 at000f = ╱30╱0╱ // 0x121c @0xf
0x120d…1227 at0010 = ╱3a╱:╱ // 0x121d @0x10
0x120d…1227 at0011 = ╱53╱S╱ // 0x121e @0x11
0x120d…1227 at0012 = ╱59╱Y╱ // 0x121f @0x12
0x120d…1227 at0013 = ╱53╱S╱ // 0x1220 @0x13
0x120d…1227 at0014 = ╱54╱T╱ // 0x1221 @0x14
0x120d…1227 at0015 = ╱45╱E╱ // 0x1222 @0x15
0x120d…1227 at0016 = ╱4d╱M╱ // 0x1223 @0x16
0x120d…1227 at0017 = ╱31╱1╱ // 0x1224 @0x17
0x120d…1227 at0018 = ╱22╱"╱ // 0x1225 @0x18
0x120d…1227 at0019 = EOL // 0x1226 @0x19
0x120d…1227 }
0x1227…1232 9f89 2170 OPEN K1$,R
0x1227…1232 LineComalBin {
0x1227…1232 ptr = 0x9f89 // 0x1227 @0x0
0x1227…1232 lno = 0x087a // 0x1229 @0x2
0x1227…1232 at0004 = ╱a7╱ OPEN ╱ // 0x122b @0x4
0x1227…1232 at0005 = ╱4b╱K╱ // 0x122c @0x5
0x1227…1232 at0006 = ╱31╱1╱ // 0x122d @0x6
0x1227…1232 at0007 = ╱ef╱$╱ // 0x122e @0x7
0x1227…1232 at0008 = ╱ec╱,╱ // 0x122f @0x8
0x1227…1232 at0009 = ╱52╱R╱ // 0x1230 @0x9
0x1227…1232 at000a = EOL // 0x1231 @0xa
0x1227…1232 }
0x1232…1245 9f9c 2180 EXEC FEJL(W,E,K1$)
0x1232…1245 LineComalBin {
0x1232…1245 ptr = 0x9f9c // 0x1232 @0x0
0x1232…1245 lno = 0x0884 // 0x1234 @0x2
0x1232…1245 at0004 = ╱9d╱ EXEC ╱ // 0x1236 @0x4
0x1232…1245 at0005 = ╱46╱F╱ // 0x1237 @0x5
0x1232…1245 at0006 = ╱45╱E╱ // 0x1238 @0x6
0x1232…1245 at0007 = ╱4a╱J╱ // 0x1239 @0x7
0x1232…1245 at0008 = ╱4c╱L╱ // 0x123a @0x8
0x1232…1245 at0009 = ╱ed╱(╱ // 0x123b @0x9
0x1232…1245 at000a = ╱57╱W╱ // 0x123c @0xa
0x1232…1245 at000b = ╱ec╱,╱ // 0x123d @0xb
0x1232…1245 at000c = ╱45╱E╱ // 0x123e @0xc
0x1232…1245 at000d = ╱ec╱,╱ // 0x123f @0xd
0x1232…1245 at000e = ╱4b╱K╱ // 0x1240 @0xe
0x1232…1245 at000f = ╱31╱1╱ // 0x1241 @0xf
0x1232…1245 at0010 = ╱ef╱$╱ // 0x1242 @0x10
0x1232…1245 at0011 = ╱ee╱)╱ // 0x1243 @0x11
0x1232…1245 at0012 = EOL // 0x1244 @0x12
0x1232…1245 }
0x1245…126b 9fc2 2190 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT
0x1245…126b LineComalBin {
0x1245…126b ptr = 0x9fc2 // 0x1245 @0x0
0x1245…126b lno = 0x088e // 0x1247 @0x2
0x1245…126b at0004 = ╱a9╱ GET ╱ // 0x1249 @0x4
0x1245…126b at0005 = ╱4b╱K╱ // 0x124a @0x5
0x1245…126b at0006 = ╱31╱1╱ // 0x124b @0x6
0x1245…126b at0007 = ╱ef╱$╱ // 0x124c @0x7
0x1245…126b at0008 = ╱ec╱,╱ // 0x124d @0x8
0x1245…126b at0009 = ╱57╱W╱ // 0x124e @0x9
0x1245…126b at000a = ╱f0╱:╱ // 0x124f @0xa
0x1245…126b at000b = ╱4b╱K╱ // 0x1250 @0xb
0x1245…126b at000c = ╱52╱R╱ // 0x1251 @0xc
0x1245…126b at000d = ╱54╱T╱ // 0x1252 @0xd
0x1245…126b at000e = ╱41╱A╱ // 0x1253 @0xe
0x1245…126b at000f = ╱4c╱L╱ // 0x1254 @0xf
0x1245…126b at0010 = ╱ec╱,╱ // 0x1255 @0x10
0x1245…126b at0011 = ╱56╱V╱ // 0x1256 @0x11
0x1245…126b at0012 = ╱54╱T╱ // 0x1257 @0x12
0x1245…126b at0013 = ╱41╱A╱ // 0x1258 @0x13
0x1245…126b at0014 = ╱4c╱L╱ // 0x1259 @0x14
0x1245…126b at0015 = ╱ec╱,╱ // 0x125a @0x15
0x1245…126b at0016 = ╱4d╱M╱ // 0x125b @0x16
0x1245…126b at0017 = ╱45╱E╱ // 0x125c @0x17
0x1245…126b at0018 = ╱41╱A╱ // 0x125d @0x18
0x1245…126b at0019 = ╱4e╱N╱ // 0x125e @0x19
0x1245…126b at001a = ╱54╱T╱ // 0x125f @0x1a
0x1245…126b at001b = ╱41╱A╱ // 0x1260 @0x1b
0x1245…126b at001c = ╱4c╱L╱ // 0x1261 @0x1c
0x1245…126b at001d = ╱ec╱,╱ // 0x1262 @0x1d
0x1245…126b at001e = ╱4d╱M╱ // 0x1263 @0x1e
0x1245…126b at001f = ╱55╱U╱ // 0x1264 @0x1f
0x1245…126b at0020 = ╱4e╱N╱ // 0x1265 @0x20
0x1245…126b at0021 = ╱4b╱K╱ // 0x1266 @0x21
0x1245…126b at0022 = ╱41╱A╱ // 0x1267 @0x22
0x1245…126b at0023 = ╱4e╱N╱ // 0x1268 @0x23
0x1245…126b at0024 = ╱54╱T╱ // 0x1269 @0x24
0x1245…126b at0025 = EOL // 0x126a @0x25
0x1245…126b }
0x126b…1283 9fda 2200 EXEC FEJL(W,6,K1$)
0x126b…1283 LineComalBin {
0x126b…1283 ptr = 0x9fda // 0x126b @0x0
0x126b…1283 lno = 0x0898 // 0x126d @0x2
0x126b…1283 at0004 = ╱9d╱ EXEC ╱ // 0x126f @0x4
0x126b…1283 at0005 = ╱46╱F╱ // 0x1270 @0x5
0x126b…1283 at0006 = ╱45╱E╱ // 0x1271 @0x6
0x126b…1283 at0007 = ╱4a╱J╱ // 0x1272 @0x7
0x126b…1283 at0008 = ╱4c╱L╱ // 0x1273 @0x8
0x126b…1283 at0009 = ╱ed╱(╱ // 0x1274 @0x9
0x126b…1283 at000a = ╱57╱W╱ // 0x1275 @0xa
0x126b…1283 at000b = ╱ec╱,╱ // 0x1276 @0xb
0x126b…1283 at000c = ╱36╱6╱ // 0x1277 @0xc
0x126b…1283 at000d = ╱fe0000c003╱ // 0x1278 @0xd
0x126b…1283 at0012 = ╱ec╱,╱ // 0x127d @0x12
0x126b…1283 at0013 = ╱4b╱K╱ // 0x127e @0x13
0x126b…1283 at0014 = ╱31╱1╱ // 0x127f @0x14
0x126b…1283 at0015 = ╱ef╱$╱ // 0x1280 @0x15
0x126b…1283 at0016 = ╱ee╱)╱ // 0x1281 @0x16
0x126b…1283 at0017 = EOL // 0x1282 @0x17
0x126b…1283 }
0x1283…1297 9fee 2210 GET K1$,10:N$
0x1283…1297 LineComalBin {
0x1283…1297 ptr = 0x9fee // 0x1283 @0x0
0x1283…1297 lno = 0x08a2 // 0x1285 @0x2
0x1283…1297 at0004 = ╱a9╱ GET ╱ // 0x1287 @0x4
0x1283…1297 at0005 = ╱4b╱K╱ // 0x1288 @0x5
0x1283…1297 at0006 = ╱31╱1╱ // 0x1289 @0x6
0x1283…1297 at0007 = ╱ef╱$╱ // 0x128a @0x7
0x1283…1297 at0008 = ╱ec╱,╱ // 0x128b @0x8
0x1283…1297 at0009 = ╱31╱1╱ // 0x128c @0x9
0x1283…1297 at000a = ╱30╱0╱ // 0x128d @0xa
0x1283…1297 at000b = ╱fe0000a004╱ // 0x128e @0xb
0x1283…1297 at0010 = ╱f0╱:╱ // 0x1293 @0x10
0x1283…1297 at0011 = ╱4e╱N╱ // 0x1294 @0x11
0x1283…1297 at0012 = ╱ef╱$╱ // 0x1295 @0x12
0x1283…1297 at0013 = EOL // 0x1296 @0x13
0x1283…1297 }
0x1297…12af a006 2220 EXEC FEJL(W,7,K1$)
0x1297…12af LineComalBin {
0x1297…12af ptr = 0xa006 // 0x1297 @0x0
0x1297…12af lno = 0x08ac // 0x1299 @0x2
0x1297…12af at0004 = ╱9d╱ EXEC ╱ // 0x129b @0x4
0x1297…12af at0005 = ╱46╱F╱ // 0x129c @0x5
0x1297…12af at0006 = ╱45╱E╱ // 0x129d @0x6
0x1297…12af at0007 = ╱4a╱J╱ // 0x129e @0x7
0x1297…12af at0008 = ╱4c╱L╱ // 0x129f @0x8
0x1297…12af at0009 = ╱ed╱(╱ // 0x12a0 @0x9
0x1297…12af at000a = ╱57╱W╱ // 0x12a1 @0xa
0x1297…12af at000b = ╱ec╱,╱ // 0x12a2 @0xb
0x1297…12af at000c = ╱37╱7╱ // 0x12a3 @0xc
0x1297…12af at000d = ╱fe0000e003╱ // 0x12a4 @0xd
0x1297…12af at0012 = ╱ec╱,╱ // 0x12a9 @0x12
0x1297…12af at0013 = ╱4b╱K╱ // 0x12aa @0x13
0x1297…12af at0014 = ╱31╱1╱ // 0x12ab @0x14
0x1297…12af at0015 = ╱ef╱$╱ // 0x12ac @0x15
0x1297…12af at0016 = ╱ee╱)╱ // 0x12ad @0x16
0x1297…12af at0017 = EOL // 0x12ae @0x17
0x1297…12af }
0x12af…12c4 a01b 2230 GET K1$,36:K4$
0x12af…12c4 LineComalBin {
0x12af…12c4 ptr = 0xa01b // 0x12af @0x0
0x12af…12c4 lno = 0x08b6 // 0x12b1 @0x2
0x12af…12c4 at0004 = ╱a9╱ GET ╱ // 0x12b3 @0x4
0x12af…12c4 at0005 = ╱4b╱K╱ // 0x12b4 @0x5
0x12af…12c4 at0006 = ╱31╱1╱ // 0x12b5 @0x6
0x12af…12c4 at0007 = ╱ef╱$╱ // 0x12b6 @0x7
0x12af…12c4 at0008 = ╱ec╱,╱ // 0x12b7 @0x8
0x12af…12c4 at0009 = ╱33╱3╱ // 0x12b8 @0x9
0x12af…12c4 at000a = ╱36╱6╱ // 0x12b9 @0xa
0x12af…12c4 at000b = ╱fe00009006╱ // 0x12ba @0xb
0x12af…12c4 at0010 = ╱f0╱:╱ // 0x12bf @0x10
0x12af…12c4 at0011 = ╱4b╱K╱ // 0x12c0 @0x11
0x12af…12c4 at0012 = ╱34╱4╱ // 0x12c1 @0x12
0x12af…12c4 at0013 = ╱ef╱$╱ // 0x12c2 @0x13
0x12af…12c4 at0014 = EOL // 0x12c3 @0x14
0x12af…12c4 }
0x12c4…12dd a034 2240 EXEC FEJL(W,10,K1$)
0x12c4…12dd LineComalBin {
0x12c4…12dd ptr = 0xa034 // 0x12c4 @0x0
0x12c4…12dd lno = 0x08c0 // 0x12c6 @0x2
0x12c4…12dd at0004 = ╱9d╱ EXEC ╱ // 0x12c8 @0x4
0x12c4…12dd at0005 = ╱46╱F╱ // 0x12c9 @0x5
0x12c4…12dd at0006 = ╱45╱E╱ // 0x12ca @0x6
0x12c4…12dd at0007 = ╱4a╱J╱ // 0x12cb @0x7
0x12c4…12dd at0008 = ╱4c╱L╱ // 0x12cc @0x8
0x12c4…12dd at0009 = ╱ed╱(╱ // 0x12cd @0x9
0x12c4…12dd at000a = ╱57╱W╱ // 0x12ce @0xa
0x12c4…12dd at000b = ╱ec╱,╱ // 0x12cf @0xb
0x12c4…12dd at000c = ╱31╱1╱ // 0x12d0 @0xc
0x12c4…12dd at000d = ╱30╱0╱ // 0x12d1 @0xd
0x12c4…12dd at000e = ╱fe0000a004╱ // 0x12d2 @0xe
0x12c4…12dd at0013 = ╱ec╱,╱ // 0x12d7 @0x13
0x12c4…12dd at0014 = ╱4b╱K╱ // 0x12d8 @0x14
0x12c4…12dd at0015 = ╱31╱1╱ // 0x12d9 @0x15
0x12c4…12dd at0016 = ╱ef╱$╱ // 0x12da @0x16
0x12c4…12dd at0017 = ╱ee╱)╱ // 0x12db @0x17
0x12c4…12dd at0018 = EOL // 0x12dc @0x18
0x12c4…12dd }
0x12dd…12f2 a049 2250 GET K1$,37:K2$
0x12dd…12f2 LineComalBin {
0x12dd…12f2 ptr = 0xa049 // 0x12dd @0x0
0x12dd…12f2 lno = 0x08ca // 0x12df @0x2
0x12dd…12f2 at0004 = ╱a9╱ GET ╱ // 0x12e1 @0x4
0x12dd…12f2 at0005 = ╱4b╱K╱ // 0x12e2 @0x5
0x12dd…12f2 at0006 = ╱31╱1╱ // 0x12e3 @0x6
0x12dd…12f2 at0007 = ╱ef╱$╱ // 0x12e4 @0x7
0x12dd…12f2 at0008 = ╱ec╱,╱ // 0x12e5 @0x8
0x12dd…12f2 at0009 = ╱33╱3╱ // 0x12e6 @0x9
0x12dd…12f2 at000a = ╱37╱7╱ // 0x12e7 @0xa
0x12dd…12f2 at000b = ╱fe00009406╱ // 0x12e8 @0xb
0x12dd…12f2 at0010 = ╱f0╱:╱ // 0x12ed @0x10
0x12dd…12f2 at0011 = ╱4b╱K╱ // 0x12ee @0x11
0x12dd…12f2 at0012 = ╱32╱2╱ // 0x12ef @0x12
0x12dd…12f2 at0013 = ╱ef╱$╱ // 0x12f0 @0x13
0x12dd…12f2 at0014 = EOL // 0x12f1 @0x14
0x12dd…12f2 }
0x12f2…130a a061 2260 EXEC FEJL(W,4,K1$)
0x12f2…130a LineComalBin {
0x12f2…130a ptr = 0xa061 // 0x12f2 @0x0
0x12f2…130a lno = 0x08d4 // 0x12f4 @0x2
0x12f2…130a at0004 = ╱9d╱ EXEC ╱ // 0x12f6 @0x4
0x12f2…130a at0005 = ╱46╱F╱ // 0x12f7 @0x5
0x12f2…130a at0006 = ╱45╱E╱ // 0x12f8 @0x6
0x12f2…130a at0007 = ╱4a╱J╱ // 0x12f9 @0x7
0x12f2…130a at0008 = ╱4c╱L╱ // 0x12fa @0x8
0x12f2…130a at0009 = ╱ed╱(╱ // 0x12fb @0x9
0x12f2…130a at000a = ╱57╱W╱ // 0x12fc @0xa
0x12f2…130a at000b = ╱ec╱,╱ // 0x12fd @0xb
0x12f2…130a at000c = ╱34╱4╱ // 0x12fe @0xc
0x12f2…130a at000d = ╱fe00008003╱ // 0x12ff @0xd
0x12f2…130a at0012 = ╱ec╱,╱ // 0x1304 @0x12
0x12f2…130a at0013 = ╱4b╱K╱ // 0x1305 @0x13
0x12f2…130a at0014 = ╱31╱1╱ // 0x1306 @0x14
0x12f2…130a at0015 = ╱ef╱$╱ // 0x1307 @0x15
0x12f2…130a at0016 = ╱ee╱)╱ // 0x1308 @0x16
0x12f2…130a at0017 = EOL // 0x1309 @0x17
0x12f2…130a }
0x130a…131f a076 2270 GET K1$,38:K3$
0x130a…131f LineComalBin {
0x130a…131f ptr = 0xa076 // 0x130a @0x0
0x130a…131f lno = 0x08de // 0x130c @0x2
0x130a…131f at0004 = ╱a9╱ GET ╱ // 0x130e @0x4
0x130a…131f at0005 = ╱4b╱K╱ // 0x130f @0x5
0x130a…131f at0006 = ╱31╱1╱ // 0x1310 @0x6
0x130a…131f at0007 = ╱ef╱$╱ // 0x1311 @0x7
0x130a…131f at0008 = ╱ec╱,╱ // 0x1312 @0x8
0x130a…131f at0009 = ╱33╱3╱ // 0x1313 @0x9
0x130a…131f at000a = ╱38╱8╱ // 0x1314 @0xa
0x130a…131f at000b = ╱fe00009806╱ // 0x1315 @0xb
0x130a…131f at0010 = ╱f0╱:╱ // 0x131a @0x10
0x130a…131f at0011 = ╱4b╱K╱ // 0x131b @0x11
0x130a…131f at0012 = ╱33╱3╱ // 0x131c @0x12
0x130a…131f at0013 = ╱ef╱$╱ // 0x131d @0x13
0x130a…131f at0014 = EOL // 0x131e @0x14
0x130a…131f }
0x131f…1337 a08e 2280 EXEC FEJL(W,5,K1$)
0x131f…1337 LineComalBin {
0x131f…1337 ptr = 0xa08e // 0x131f @0x0
0x131f…1337 lno = 0x08e8 // 0x1321 @0x2
0x131f…1337 at0004 = ╱9d╱ EXEC ╱ // 0x1323 @0x4
0x131f…1337 at0005 = ╱46╱F╱ // 0x1324 @0x5
0x131f…1337 at0006 = ╱45╱E╱ // 0x1325 @0x6
0x131f…1337 at0007 = ╱4a╱J╱ // 0x1326 @0x7
0x131f…1337 at0008 = ╱4c╱L╱ // 0x1327 @0x8
0x131f…1337 at0009 = ╱ed╱(╱ // 0x1328 @0x9
0x131f…1337 at000a = ╱57╱W╱ // 0x1329 @0xa
0x131f…1337 at000b = ╱ec╱,╱ // 0x132a @0xb
0x131f…1337 at000c = ╱35╱5╱ // 0x132b @0xc
0x131f…1337 at000d = ╱fe0000a003╱ // 0x132c @0xd
0x131f…1337 at0012 = ╱ec╱,╱ // 0x1331 @0x12
0x131f…1337 at0013 = ╱4b╱K╱ // 0x1332 @0x13
0x131f…1337 at0014 = ╱31╱1╱ // 0x1333 @0x14
0x131f…1337 at0015 = ╱ef╱$╱ // 0x1334 @0x15
0x131f…1337 at0016 = ╱ee╱)╱ // 0x1335 @0x16
0x131f…1337 at0017 = EOL // 0x1336 @0x17
0x131f…1337 }
0x1337…134c a0a3 2290 GET K1$,39:K6$
0x1337…134c LineComalBin {
0x1337…134c ptr = 0xa0a3 // 0x1337 @0x0
0x1337…134c lno = 0x08f2 // 0x1339 @0x2
0x1337…134c at0004 = ╱a9╱ GET ╱ // 0x133b @0x4
0x1337…134c at0005 = ╱4b╱K╱ // 0x133c @0x5
0x1337…134c at0006 = ╱31╱1╱ // 0x133d @0x6
0x1337…134c at0007 = ╱ef╱$╱ // 0x133e @0x7
0x1337…134c at0008 = ╱ec╱,╱ // 0x133f @0x8
0x1337…134c at0009 = ╱33╱3╱ // 0x1340 @0x9
0x1337…134c at000a = ╱39╱9╱ // 0x1341 @0xa
0x1337…134c at000b = ╱fe00009c06╱ // 0x1342 @0xb
0x1337…134c at0010 = ╱f0╱:╱ // 0x1347 @0x10
0x1337…134c at0011 = ╱4b╱K╱ // 0x1348 @0x11
0x1337…134c at0012 = ╱36╱6╱ // 0x1349 @0x12
0x1337…134c at0013 = ╱ef╱$╱ // 0x134a @0x13
0x1337…134c at0014 = EOL // 0x134b @0x14
0x1337…134c }
0x134c…1364 a0bb 2300 EXEC FEJL(W,8,K1$)
0x134c…1364 LineComalBin {
0x134c…1364 ptr = 0xa0bb // 0x134c @0x0
0x134c…1364 lno = 0x08fc // 0x134e @0x2
0x134c…1364 at0004 = ╱9d╱ EXEC ╱ // 0x1350 @0x4
0x134c…1364 at0005 = ╱46╱F╱ // 0x1351 @0x5
0x134c…1364 at0006 = ╱45╱E╱ // 0x1352 @0x6
0x134c…1364 at0007 = ╱4a╱J╱ // 0x1353 @0x7
0x134c…1364 at0008 = ╱4c╱L╱ // 0x1354 @0x8
0x134c…1364 at0009 = ╱ed╱(╱ // 0x1355 @0x9
0x134c…1364 at000a = ╱57╱W╱ // 0x1356 @0xa
0x134c…1364 at000b = ╱ec╱,╱ // 0x1357 @0xb
0x134c…1364 at000c = ╱38╱8╱ // 0x1358 @0xc
0x134c…1364 at000d = ╱fe00008004╱ // 0x1359 @0xd
0x134c…1364 at0012 = ╱ec╱,╱ // 0x135e @0x12
0x134c…1364 at0013 = ╱4b╱K╱ // 0x135f @0x13
0x134c…1364 at0014 = ╱31╱1╱ // 0x1360 @0x14
0x134c…1364 at0015 = ╱ef╱$╱ // 0x1361 @0x15
0x134c…1364 at0016 = ╱ee╱)╱ // 0x1362 @0x16
0x134c…1364 at0017 = EOL // 0x1363 @0x17
0x134c…1364 }
0x1364…1388 a0df 2310 GET K1$,43:METOT,MEMID,MEPOST
0x1364…1388 LineComalBin {
0x1364…1388 ptr = 0xa0df // 0x1364 @0x0
0x1364…1388 lno = 0x0906 // 0x1366 @0x2
0x1364…1388 at0004 = ╱a9╱ GET ╱ // 0x1368 @0x4
0x1364…1388 at0005 = ╱4b╱K╱ // 0x1369 @0x5
0x1364…1388 at0006 = ╱31╱1╱ // 0x136a @0x6
0x1364…1388 at0007 = ╱ef╱$╱ // 0x136b @0x7
0x1364…1388 at0008 = ╱ec╱,╱ // 0x136c @0x8
0x1364…1388 at0009 = ╱34╱4╱ // 0x136d @0x9
0x1364…1388 at000a = ╱33╱3╱ // 0x136e @0xa
0x1364…1388 at000b = ╱fe0000ac06╱ // 0x136f @0xb
0x1364…1388 at0010 = ╱f0╱:╱ // 0x1374 @0x10
0x1364…1388 at0011 = ╱4d╱M╱ // 0x1375 @0x11
0x1364…1388 at0012 = ╱45╱E╱ // 0x1376 @0x12
0x1364…1388 at0013 = ╱54╱T╱ // 0x1377 @0x13
0x1364…1388 at0014 = ╱4f╱O╱ // 0x1378 @0x14
0x1364…1388 at0015 = ╱54╱T╱ // 0x1379 @0x15
0x1364…1388 at0016 = ╱ec╱,╱ // 0x137a @0x16
0x1364…1388 at0017 = ╱4d╱M╱ // 0x137b @0x17
0x1364…1388 at0018 = ╱45╱E╱ // 0x137c @0x18
0x1364…1388 at0019 = ╱4d╱M╱ // 0x137d @0x19
0x1364…1388 at001a = ╱49╱I╱ // 0x137e @0x1a
0x1364…1388 at001b = ╱44╱D╱ // 0x137f @0x1b
0x1364…1388 at001c = ╱ec╱,╱ // 0x1380 @0x1c
0x1364…1388 at001d = ╱4d╱M╱ // 0x1381 @0x1d
0x1364…1388 at001e = ╱45╱E╱ // 0x1382 @0x1e
0x1364…1388 at001f = ╱50╱P╱ // 0x1383 @0x1f
0x1364…1388 at0020 = ╱4f╱O╱ // 0x1384 @0x20
0x1364…1388 at0021 = ╱53╱S╱ // 0x1385 @0x21
0x1364…1388 at0022 = ╱54╱T╱ // 0x1386 @0x22
0x1364…1388 at0023 = EOL // 0x1387 @0x23
0x1364…1388 }
0x1388…139b a0f2 2320 EXEC FEJL(W,W,K1$)
0x1388…139b LineComalBin {
0x1388…139b ptr = 0xa0f2 // 0x1388 @0x0
0x1388…139b lno = 0x0910 // 0x138a @0x2
0x1388…139b at0004 = ╱9d╱ EXEC ╱ // 0x138c @0x4
0x1388…139b at0005 = ╱46╱F╱ // 0x138d @0x5
0x1388…139b at0006 = ╱45╱E╱ // 0x138e @0x6
0x1388…139b at0007 = ╱4a╱J╱ // 0x138f @0x7
0x1388…139b at0008 = ╱4c╱L╱ // 0x1390 @0x8
0x1388…139b at0009 = ╱ed╱(╱ // 0x1391 @0x9
0x1388…139b at000a = ╱57╱W╱ // 0x1392 @0xa
0x1388…139b at000b = ╱ec╱,╱ // 0x1393 @0xb
0x1388…139b at000c = ╱57╱W╱ // 0x1394 @0xc
0x1388…139b at000d = ╱ec╱,╱ // 0x1395 @0xd
0x1388…139b at000e = ╱4b╱K╱ // 0x1396 @0xe
0x1388…139b at000f = ╱31╱1╱ // 0x1397 @0xf
0x1388…139b at0010 = ╱ef╱$╱ // 0x1398 @0x10
0x1388…139b at0011 = ╱ee╱)╱ // 0x1399 @0x11
0x1388…139b at0012 = EOL // 0x139a @0x12
0x1388…139b }
0x139b…13a4 a0fb 2330 CLOSE K1$
0x139b…13a4 LineComalBin {
0x139b…13a4 ptr = 0xa0fb // 0x139b @0x0
0x139b…13a4 lno = 0x091a // 0x139d @0x2
0x139b…13a4 at0004 = ╱a8╱ CLOSE ╱ // 0x139f @0x4
0x139b…13a4 at0005 = ╱4b╱K╱ // 0x13a0 @0x5
0x139b…13a4 at0006 = ╱31╱1╱ // 0x13a1 @0x6
0x139b…13a4 at0007 = ╱ef╱$╱ // 0x13a2 @0x7
0x139b…13a4 at0008 = EOL // 0x13a3 @0x8
0x139b…13a4 }
0x13a4…13bd a114 2340 EXEC FEJL(W,11,K1$)
0x13a4…13bd LineComalBin {
0x13a4…13bd ptr = 0xa114 // 0x13a4 @0x0
0x13a4…13bd lno = 0x0924 // 0x13a6 @0x2
0x13a4…13bd at0004 = ╱9d╱ EXEC ╱ // 0x13a8 @0x4
0x13a4…13bd at0005 = ╱46╱F╱ // 0x13a9 @0x5
0x13a4…13bd at0006 = ╱45╱E╱ // 0x13aa @0x6
0x13a4…13bd at0007 = ╱4a╱J╱ // 0x13ab @0x7
0x13a4…13bd at0008 = ╱4c╱L╱ // 0x13ac @0x8
0x13a4…13bd at0009 = ╱ed╱(╱ // 0x13ad @0x9
0x13a4…13bd at000a = ╱57╱W╱ // 0x13ae @0xa
0x13a4…13bd at000b = ╱ec╱,╱ // 0x13af @0xb
0x13a4…13bd at000c = ╱31╱1╱ // 0x13b0 @0xc
0x13a4…13bd at000d = ╱31╱1╱ // 0x13b1 @0xd
0x13a4…13bd at000e = ╱fe0000b004╱ // 0x13b2 @0xe
0x13a4…13bd at0013 = ╱ec╱,╱ // 0x13b7 @0x13
0x13a4…13bd at0014 = ╱4b╱K╱ // 0x13b8 @0x14
0x13a4…13bd at0015 = ╱31╱1╱ // 0x13b9 @0x15
0x13a4…13bd at0016 = ╱ef╱$╱ // 0x13ba @0x16
0x13a4…13bd at0017 = ╱ee╱)╱ // 0x13bb @0x17
0x13a4…13bd at0018 = EOL // 0x13bc @0x18
0x13a4…13bd }
0x13bd…1406 a15d 2350 DIM ETAB(MEANTAL,G),UNR(METOT+MUNKANT),EU$(METOT+MUNKANT),UKNR(MUNKANT)
0x13bd…1406 LineComalBin {
0x13bd…1406 ptr = 0xa15d // 0x13bd @0x0
0x13bd…1406 lno = 0x092e // 0x13bf @0x2
0x13bd…1406 at0004 = ╱87╱ DIM ╱ // 0x13c1 @0x4
0x13bd…1406 at0005 = ╱45╱E╱ // 0x13c2 @0x5
0x13bd…1406 at0006 = ╱54╱T╱ // 0x13c3 @0x6
0x13bd…1406 at0007 = ╱41╱A╱ // 0x13c4 @0x7
0x13bd…1406 at0008 = ╱42╱B╱ // 0x13c5 @0x8
0x13bd…1406 at0009 = ╱ed╱(╱ // 0x13c6 @0x9
0x13bd…1406 at000a = ╱4d╱M╱ // 0x13c7 @0xa
0x13bd…1406 at000b = ╱45╱E╱ // 0x13c8 @0xb
0x13bd…1406 at000c = ╱41╱A╱ // 0x13c9 @0xc
0x13bd…1406 at000d = ╱4e╱N╱ // 0x13ca @0xd
0x13bd…1406 at000e = ╱54╱T╱ // 0x13cb @0xe
0x13bd…1406 at000f = ╱41╱A╱ // 0x13cc @0xf
0x13bd…1406 at0010 = ╱4c╱L╱ // 0x13cd @0x10
0x13bd…1406 at0011 = ╱ec╱,╱ // 0x13ce @0x11
0x13bd…1406 at0012 = ╱47╱G╱ // 0x13cf @0x12
0x13bd…1406 at0013 = ╱ee╱)╱ // 0x13d0 @0x13
0x13bd…1406 at0014 = ╱ec╱,╱ // 0x13d1 @0x14
0x13bd…1406 at0015 = ╱55╱U╱ // 0x13d2 @0x15
0x13bd…1406 at0016 = ╱4e╱N╱ // 0x13d3 @0x16
0x13bd…1406 at0017 = ╱52╱R╱ // 0x13d4 @0x17
0x13bd…1406 at0018 = ╱ed╱(╱ // 0x13d5 @0x18
0x13bd…1406 at0019 = ╱4d╱M╱ // 0x13d6 @0x19
0x13bd…1406 at001a = ╱45╱E╱ // 0x13d7 @0x1a
0x13bd…1406 at001b = ╱54╱T╱ // 0x13d8 @0x1b
0x13bd…1406 at001c = ╱4f╱O╱ // 0x13d9 @0x1c
0x13bd…1406 at001d = ╱54╱T╱ // 0x13da @0x1d
0x13bd…1406 at001e = ╱e2╱+╱ // 0x13db @0x1e
0x13bd…1406 at001f = ╱4d╱M╱ // 0x13dc @0x1f
0x13bd…1406 at0020 = ╱55╱U╱ // 0x13dd @0x20
0x13bd…1406 at0021 = ╱4e╱N╱ // 0x13de @0x21
0x13bd…1406 at0022 = ╱4b╱K╱ // 0x13df @0x22
0x13bd…1406 at0023 = ╱41╱A╱ // 0x13e0 @0x23
0x13bd…1406 at0024 = ╱4e╱N╱ // 0x13e1 @0x24
0x13bd…1406 at0025 = ╱54╱T╱ // 0x13e2 @0x25
0x13bd…1406 at0026 = ╱ee╱)╱ // 0x13e3 @0x26
0x13bd…1406 at0027 = ╱ec╱,╱ // 0x13e4 @0x27
0x13bd…1406 at0028 = ╱45╱E╱ // 0x13e5 @0x28
0x13bd…1406 at0029 = ╱55╱U╱ // 0x13e6 @0x29
0x13bd…1406 at002a = ╱ef╱$╱ // 0x13e7 @0x2a
0x13bd…1406 at002b = ╱ed╱(╱ // 0x13e8 @0x2b
0x13bd…1406 at002c = ╱4d╱M╱ // 0x13e9 @0x2c
0x13bd…1406 at002d = ╱45╱E╱ // 0x13ea @0x2d
0x13bd…1406 at002e = ╱54╱T╱ // 0x13eb @0x2e
0x13bd…1406 at002f = ╱4f╱O╱ // 0x13ec @0x2f
0x13bd…1406 at0030 = ╱54╱T╱ // 0x13ed @0x30
0x13bd…1406 at0031 = ╱e2╱+╱ // 0x13ee @0x31
0x13bd…1406 at0032 = ╱4d╱M╱ // 0x13ef @0x32
0x13bd…1406 at0033 = ╱55╱U╱ // 0x13f0 @0x33
0x13bd…1406 at0034 = ╱4e╱N╱ // 0x13f1 @0x34
0x13bd…1406 at0035 = ╱4b╱K╱ // 0x13f2 @0x35
0x13bd…1406 at0036 = ╱41╱A╱ // 0x13f3 @0x36
0x13bd…1406 at0037 = ╱4e╱N╱ // 0x13f4 @0x37
0x13bd…1406 at0038 = ╱54╱T╱ // 0x13f5 @0x38
0x13bd…1406 at0039 = ╱ee╱)╱ // 0x13f6 @0x39
0x13bd…1406 at003a = ╱ec╱,╱ // 0x13f7 @0x3a
0x13bd…1406 at003b = ╱55╱U╱ // 0x13f8 @0x3b
0x13bd…1406 at003c = ╱4b╱K╱ // 0x13f9 @0x3c
0x13bd…1406 at003d = ╱4e╱N╱ // 0x13fa @0x3d
0x13bd…1406 at003e = ╱52╱R╱ // 0x13fb @0x3e
0x13bd…1406 at003f = ╱ed╱(╱ // 0x13fc @0x3f
0x13bd…1406 at0040 = ╱4d╱M╱ // 0x13fd @0x40
0x13bd…1406 at0041 = ╱55╱U╱ // 0x13fe @0x41
0x13bd…1406 at0042 = ╱4e╱N╱ // 0x13ff @0x42
0x13bd…1406 at0043 = ╱4b╱K╱ // 0x1400 @0x43
0x13bd…1406 at0044 = ╱41╱A╱ // 0x1401 @0x44
0x13bd…1406 at0045 = ╱4e╱N╱ // 0x1402 @0x45
0x13bd…1406 at0046 = ╱54╱T╱ // 0x1403 @0x46
0x13bd…1406 at0047 = ╱ee╱)╱ // 0x1404 @0x47
0x13bd…1406 at0048 = EOL // 0x1405 @0x48
0x13bd…1406 }
0x1406…1439 a190 2360 DIM MBEV$(MUNKANT,12),ÅBEV$(MUNKANT,12)
0x1406…1439 LineComalBin {
0x1406…1439 ptr = 0xa190 // 0x1406 @0x0
0x1406…1439 lno = 0x0938 // 0x1408 @0x2
0x1406…1439 at0004 = ╱87╱ DIM ╱ // 0x140a @0x4
0x1406…1439 at0005 = ╱4d╱M╱ // 0x140b @0x5
0x1406…1439 at0006 = ╱42╱B╱ // 0x140c @0x6
0x1406…1439 at0007 = ╱45╱E╱ // 0x140d @0x7
0x1406…1439 at0008 = ╱56╱V╱ // 0x140e @0x8
0x1406…1439 at0009 = ╱ef╱$╱ // 0x140f @0x9
0x1406…1439 at000a = ╱ed╱(╱ // 0x1410 @0xa
0x1406…1439 at000b = ╱4d╱M╱ // 0x1411 @0xb
0x1406…1439 at000c = ╱55╱U╱ // 0x1412 @0xc
0x1406…1439 at000d = ╱4e╱N╱ // 0x1413 @0xd
0x1406…1439 at000e = ╱4b╱K╱ // 0x1414 @0xe
0x1406…1439 at000f = ╱41╱A╱ // 0x1415 @0xf
0x1406…1439 at0010 = ╱4e╱N╱ // 0x1416 @0x10
0x1406…1439 at0011 = ╱54╱T╱ // 0x1417 @0x11
0x1406…1439 at0012 = ╱ec╱,╱ // 0x1418 @0x12
0x1406…1439 at0013 = ╱31╱1╱ // 0x1419 @0x13
0x1406…1439 at0014 = ╱32╱2╱ // 0x141a @0x14
0x1406…1439 at0015 = ╱fe0000c004╱ // 0x141b @0x15
0x1406…1439 at001a = ╱ee╱)╱ // 0x1420 @0x1a
0x1406…1439 at001b = ╱ec╱,╱ // 0x1421 @0x1b
0x1406…1439 at001c = ╱5d╱Å╱ // 0x1422 @0x1c
0x1406…1439 at001d = ╱42╱B╱ // 0x1423 @0x1d
0x1406…1439 at001e = ╱45╱E╱ // 0x1424 @0x1e
0x1406…1439 at001f = ╱56╱V╱ // 0x1425 @0x1f
0x1406…1439 at0020 = ╱ef╱$╱ // 0x1426 @0x20
0x1406…1439 at0021 = ╱ed╱(╱ // 0x1427 @0x21
0x1406…1439 at0022 = ╱4d╱M╱ // 0x1428 @0x22
0x1406…1439 at0023 = ╱55╱U╱ // 0x1429 @0x23
0x1406…1439 at0024 = ╱4e╱N╱ // 0x142a @0x24
0x1406…1439 at0025 = ╱4b╱K╱ // 0x142b @0x25
0x1406…1439 at0026 = ╱41╱A╱ // 0x142c @0x26
0x1406…1439 at0027 = ╱4e╱N╱ // 0x142d @0x27
0x1406…1439 at0028 = ╱54╱T╱ // 0x142e @0x28
0x1406…1439 at0029 = ╱ec╱,╱ // 0x142f @0x29
0x1406…1439 at002a = ╱31╱1╱ // 0x1430 @0x2a
0x1406…1439 at002b = ╱32╱2╱ // 0x1431 @0x2b
0x1406…1439 at002c = ╱fe0000c004╱ // 0x1432 @0x2c
0x1406…1439 at0031 = ╱ee╱)╱ // 0x1437 @0x31
0x1406…1439 at0032 = EOL // 0x1438 @0x32
0x1406…1439 }
0x1439…1448 a19f 2370 K4$=N$+K4$
0x1439…1448 LineComalBin {
0x1439…1448 ptr = 0xa19f // 0x1439 @0x0
0x1439…1448 lno = 0x0942 // 0x143b @0x2
0x1439…1448 at0004 = ╱4b╱K╱ // 0x143d @0x4
0x1439…1448 at0005 = ╱34╱4╱ // 0x143e @0x5
0x1439…1448 at0006 = ╱ef╱$╱ // 0x143f @0x6
0x1439…1448 at0007 = ╱dc╱=╱ // 0x1440 @0x7
0x1439…1448 at0008 = ╱4e╱N╱ // 0x1441 @0x8
0x1439…1448 at0009 = ╱ef╱$╱ // 0x1442 @0x9
0x1439…1448 at000a = ╱f1╱+╱ // 0x1443 @0xa
0x1439…1448 at000b = ╱4b╱K╱ // 0x1444 @0xb
0x1439…1448 at000c = ╱34╱4╱ // 0x1445 @0xc
0x1439…1448 at000d = ╱ef╱$╱ // 0x1446 @0xd
0x1439…1448 at000e = EOL // 0x1447 @0xe
0x1439…1448 }
0x1448…1453 a1aa 2380 OPEN K4$,W
0x1448…1453 LineComalBin {
0x1448…1453 ptr = 0xa1aa // 0x1448 @0x0
0x1448…1453 lno = 0x094c // 0x144a @0x2
0x1448…1453 at0004 = ╱a7╱ OPEN ╱ // 0x144c @0x4
0x1448…1453 at0005 = ╱4b╱K╱ // 0x144d @0x5
0x1448…1453 at0006 = ╱34╱4╱ // 0x144e @0x6
0x1448…1453 at0007 = ╱ef╱$╱ // 0x144f @0x7
0x1448…1453 at0008 = ╱ec╱,╱ // 0x1450 @0x8
0x1448…1453 at0009 = ╱57╱W╱ // 0x1451 @0x9
0x1448…1453 at000a = EOL // 0x1452 @0xa
0x1448…1453 }
0x1453…146c a1c3 2390 EXEC FEJL(W,12,K4$)
0x1453…146c LineComalBin {
0x1453…146c ptr = 0xa1c3 // 0x1453 @0x0
0x1453…146c lno = 0x0956 // 0x1455 @0x2
0x1453…146c at0004 = ╱9d╱ EXEC ╱ // 0x1457 @0x4
0x1453…146c at0005 = ╱46╱F╱ // 0x1458 @0x5
0x1453…146c at0006 = ╱45╱E╱ // 0x1459 @0x6
0x1453…146c at0007 = ╱4a╱J╱ // 0x145a @0x7
0x1453…146c at0008 = ╱4c╱L╱ // 0x145b @0x8
0x1453…146c at0009 = ╱ed╱(╱ // 0x145c @0x9
0x1453…146c at000a = ╱57╱W╱ // 0x145d @0xa
0x1453…146c at000b = ╱ec╱,╱ // 0x145e @0xb
0x1453…146c at000c = ╱31╱1╱ // 0x145f @0xc
0x1453…146c at000d = ╱32╱2╱ // 0x1460 @0xd
0x1453…146c at000e = ╱fe0000c004╱ // 0x1461 @0xe
0x1453…146c at0013 = ╱ec╱,╱ // 0x1466 @0x13
0x1453…146c at0014 = ╱4b╱K╱ // 0x1467 @0x14
0x1453…146c at0015 = ╱34╱4╱ // 0x1468 @0x15
0x1453…146c at0016 = ╱ef╱$╱ // 0x1469 @0x16
0x1453…146c at0017 = ╱ee╱)╱ // 0x146a @0x17
0x1453…146c at0018 = EOL // 0x146b @0x18
0x1453…146c }
0x146c…14af a206 2400 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO
0x146c…14af LineComalBin {
0x146c…14af ptr = 0xa206 // 0x146c @0x0
0x146c…14af lno = 0x0960 // 0x146e @0x2
0x146c…14af at0004 = ╱a9╱ GET ╱ // 0x1470 @0x4
0x146c…14af at0005 = ╱4b╱K╱ // 0x1471 @0x5
0x146c…14af at0006 = ╱34╱4╱ // 0x1472 @0x6
0x146c…14af at0007 = ╱ef╱$╱ // 0x1473 @0x7
0x146c…14af at0008 = ╱ec╱,╱ // 0x1474 @0x8
0x146c…14af at0009 = ╱47╱G╱ // 0x1475 @0x9
0x146c…14af at000a = ╱f0╱:╱ // 0x1476 @0xa
0x146c…14af at000b = ╱54╱T╱ // 0x1477 @0xb
0x146c…14af at000c = ╱31╱1╱ // 0x1478 @0xc
0x146c…14af at000d = ╱ed╱(╱ // 0x1479 @0xd
0x146c…14af at000e = ╱45╱E╱ // 0x147a @0xe
0x146c…14af at000f = ╱ee╱)╱ // 0x147b @0xf
0x146c…14af at0010 = ╱ec╱,╱ // 0x147c @0x10
0x146c…14af at0011 = ╱54╱T╱ // 0x147d @0x11
0x146c…14af at0012 = ╱31╱1╱ // 0x147e @0x12
0x146c…14af at0013 = ╱ed╱(╱ // 0x147f @0x13
0x146c…14af at0014 = ╱47╱G╱ // 0x1480 @0x14
0x146c…14af at0015 = ╱ee╱)╱ // 0x1481 @0x15
0x146c…14af at0016 = ╱ec╱,╱ // 0x1482 @0x16
0x146c…14af at0017 = ╱54╱T╱ // 0x1483 @0x17
0x146c…14af at0018 = ╱31╱1╱ // 0x1484 @0x18
0x146c…14af at0019 = ╱ed╱(╱ // 0x1485 @0x19
0x146c…14af at001a = ╱56╱V╱ // 0x1486 @0x1a
0x146c…14af at001b = ╱ee╱)╱ // 0x1487 @0x1b
0x146c…14af at001c = ╱ec╱,╱ // 0x1488 @0x1c
0x146c…14af at001d = ╱54╱T╱ // 0x1489 @0x1d
0x146c…14af at001e = ╱31╱1╱ // 0x148a @0x1e
0x146c…14af at001f = ╱ed╱(╱ // 0x148b @0x1f
0x146c…14af at0020 = ╱34╱4╱ // 0x148c @0x20
0x146c…14af at0021 = ╱fe00008003╱ // 0x148d @0x21
0x146c…14af at0026 = ╱ee╱)╱ // 0x1492 @0x26
0x146c…14af at0027 = ╱ec╱,╱ // 0x1493 @0x27
0x146c…14af at0028 = ╱54╱T╱ // 0x1494 @0x28
0x146c…14af at0029 = ╱31╱1╱ // 0x1495 @0x29
0x146c…14af at002a = ╱ed╱(╱ // 0x1496 @0x2a
0x146c…14af at002b = ╱35╱5╱ // 0x1497 @0x2b
0x146c…14af at002c = ╱fe0000a003╱ // 0x1498 @0x2c
0x146c…14af at0031 = ╱ee╱)╱ // 0x149d @0x31
0x146c…14af at0032 = ╱ec╱,╱ // 0x149e @0x32
0x146c…14af at0033 = ╱54╱T╱ // 0x149f @0x33
0x146c…14af at0034 = ╱31╱1╱ // 0x14a0 @0x34
0x146c…14af at0035 = ╱ed╱(╱ // 0x14a1 @0x35
0x146c…14af at0036 = ╱36╱6╱ // 0x14a2 @0x36
0x146c…14af at0037 = ╱fe0000c003╱ // 0x14a3 @0x37
0x146c…14af at003c = ╱ee╱)╱ // 0x14a8 @0x3c
0x146c…14af at003d = ╱ec╱,╱ // 0x14a9 @0x3d
0x146c…14af at003e = ╱44╱D╱ // 0x14aa @0x3e
0x146c…14af at003f = ╱41╱A╱ // 0x14ab @0x3f
0x146c…14af at0040 = ╱54╱T╱ // 0x14ac @0x40
0x146c…14af at0041 = ╱4f╱O╱ // 0x14ad @0x41
0x146c…14af at0042 = EOL // 0x14ae @0x42
0x146c…14af }
0x14af…14c8 a21f 2410 EXEC FEJL(W,13,K4$)
0x14af…14c8 LineComalBin {
0x14af…14c8 ptr = 0xa21f // 0x14af @0x0
0x14af…14c8 lno = 0x096a // 0x14b1 @0x2
0x14af…14c8 at0004 = ╱9d╱ EXEC ╱ // 0x14b3 @0x4
0x14af…14c8 at0005 = ╱46╱F╱ // 0x14b4 @0x5
0x14af…14c8 at0006 = ╱45╱E╱ // 0x14b5 @0x6
0x14af…14c8 at0007 = ╱4a╱J╱ // 0x14b6 @0x7
0x14af…14c8 at0008 = ╱4c╱L╱ // 0x14b7 @0x8
0x14af…14c8 at0009 = ╱ed╱(╱ // 0x14b8 @0x9
0x14af…14c8 at000a = ╱57╱W╱ // 0x14b9 @0xa
0x14af…14c8 at000b = ╱ec╱,╱ // 0x14ba @0xb
0x14af…14c8 at000c = ╱31╱1╱ // 0x14bb @0xc
0x14af…14c8 at000d = ╱33╱3╱ // 0x14bc @0xd
0x14af…14c8 at000e = ╱fe0000d004╱ // 0x14bd @0xe
0x14af…14c8 at0013 = ╱ec╱,╱ // 0x14c2 @0x13
0x14af…14c8 at0014 = ╱4b╱K╱ // 0x14c3 @0x14
0x14af…14c8 at0015 = ╱34╱4╱ // 0x14c4 @0x15
0x14af…14c8 at0016 = ╱ef╱$╱ // 0x14c5 @0x16
0x14af…14c8 at0017 = ╱ee╱)╱ // 0x14c6 @0x17
0x14af…14c8 at0018 = EOL // 0x14c7 @0x18
0x14af…14c8 }
0x14c8…1528 a27f 2420 GET K4$,21:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x14c8…1528 LineComalBin {
0x14c8…1528 ptr = 0xa27f // 0x14c8 @0x0
0x14c8…1528 lno = 0x0974 // 0x14ca @0x2
0x14c8…1528 at0004 = ╱a9╱ GET ╱ // 0x14cc @0x4
0x14c8…1528 at0005 = ╱4b╱K╱ // 0x14cd @0x5
0x14c8…1528 at0006 = ╱34╱4╱ // 0x14ce @0x6
0x14c8…1528 at0007 = ╱ef╱$╱ // 0x14cf @0x7
0x14c8…1528 at0008 = ╱ec╱,╱ // 0x14d0 @0x8
0x14c8…1528 at0009 = ╱32╱2╱ // 0x14d1 @0x9
0x14c8…1528 at000a = ╱31╱1╱ // 0x14d2 @0xa
0x14c8…1528 at000b = ╱fe0000a805╱ // 0x14d3 @0xb
0x14c8…1528 at0010 = ╱f0╱:╱ // 0x14d8 @0x10
0x14c8…1528 at0011 = ╱54╱T╱ // 0x14d9 @0x11
0x14c8…1528 at0012 = ╱32╱2╱ // 0x14da @0x12
0x14c8…1528 at0013 = ╱ed╱(╱ // 0x14db @0x13
0x14c8…1528 at0014 = ╱45╱E╱ // 0x14dc @0x14
0x14c8…1528 at0015 = ╱ee╱)╱ // 0x14dd @0x15
0x14c8…1528 at0016 = ╱ec╱,╱ // 0x14de @0x16
0x14c8…1528 at0017 = ╱54╱T╱ // 0x14df @0x17
0x14c8…1528 at0018 = ╱32╱2╱ // 0x14e0 @0x18
0x14c8…1528 at0019 = ╱ed╱(╱ // 0x14e1 @0x19
0x14c8…1528 at001a = ╱47╱G╱ // 0x14e2 @0x1a
0x14c8…1528 at001b = ╱ee╱)╱ // 0x14e3 @0x1b
0x14c8…1528 at001c = ╱ec╱,╱ // 0x14e4 @0x1c
0x14c8…1528 at001d = ╱54╱T╱ // 0x14e5 @0x1d
0x14c8…1528 at001e = ╱32╱2╱ // 0x14e6 @0x1e
0x14c8…1528 at001f = ╱ed╱(╱ // 0x14e7 @0x1f
0x14c8…1528 at0020 = ╱56╱V╱ // 0x14e8 @0x20
0x14c8…1528 at0021 = ╱ee╱)╱ // 0x14e9 @0x21
0x14c8…1528 at0022 = ╱ec╱,╱ // 0x14ea @0x22
0x14c8…1528 at0023 = ╱54╱T╱ // 0x14eb @0x23
0x14c8…1528 at0024 = ╱32╱2╱ // 0x14ec @0x24
0x14c8…1528 at0025 = ╱ed╱(╱ // 0x14ed @0x25
0x14c8…1528 at0026 = ╱34╱4╱ // 0x14ee @0x26
0x14c8…1528 at0027 = ╱fe00008003╱ // 0x14ef @0x27
0x14c8…1528 at002c = ╱ee╱)╱ // 0x14f4 @0x2c
0x14c8…1528 at002d = ╱ec╱,╱ // 0x14f5 @0x2d
0x14c8…1528 at002e = ╱54╱T╱ // 0x14f6 @0x2e
0x14c8…1528 at002f = ╱32╱2╱ // 0x14f7 @0x2f
0x14c8…1528 at0030 = ╱ed╱(╱ // 0x14f8 @0x30
0x14c8…1528 at0031 = ╱35╱5╱ // 0x14f9 @0x31
0x14c8…1528 at0032 = ╱fe0000a003╱ // 0x14fa @0x32
0x14c8…1528 at0037 = ╱ee╱)╱ // 0x14ff @0x37
0x14c8…1528 at0038 = ╱ec╱,╱ // 0x1500 @0x38
0x14c8…1528 at0039 = ╱54╱T╱ // 0x1501 @0x39
0x14c8…1528 at003a = ╱32╱2╱ // 0x1502 @0x3a
0x14c8…1528 at003b = ╱ed╱(╱ // 0x1503 @0x3b
0x14c8…1528 at003c = ╱36╱6╱ // 0x1504 @0x3c
0x14c8…1528 at003d = ╱fe0000c003╱ // 0x1505 @0x3d
0x14c8…1528 at0042 = ╱ee╱)╱ // 0x150a @0x42
0x14c8…1528 at0043 = ╱ec╱,╱ // 0x150b @0x43
0x14c8…1528 at0044 = ╱54╱T╱ // 0x150c @0x44
0x14c8…1528 at0045 = ╱32╱2╱ // 0x150d @0x45
0x14c8…1528 at0046 = ╱ed╱(╱ // 0x150e @0x46
0x14c8…1528 at0047 = ╱37╱7╱ // 0x150f @0x47
0x14c8…1528 at0048 = ╱fe0000e003╱ // 0x1510 @0x48
0x14c8…1528 at004d = ╱ee╱)╱ // 0x1515 @0x4d
0x14c8…1528 at004e = ╱ec╱,╱ // 0x1516 @0x4e
0x14c8…1528 at004f = ╱54╱T╱ // 0x1517 @0x4f
0x14c8…1528 at0050 = ╱32╱2╱ // 0x1518 @0x50
0x14c8…1528 at0051 = ╱ed╱(╱ // 0x1519 @0x51
0x14c8…1528 at0052 = ╱38╱8╱ // 0x151a @0x52
0x14c8…1528 at0053 = ╱fe00008004╱ // 0x151b @0x53
0x14c8…1528 at0058 = ╱ee╱)╱ // 0x1520 @0x58
0x14c8…1528 at0059 = ╱ec╱,╱ // 0x1521 @0x59
0x14c8…1528 at005a = ╱54╱T╱ // 0x1522 @0x5a
0x14c8…1528 at005b = ╱32╱2╱ // 0x1523 @0x5b
0x14c8…1528 at005c = ╱ed╱(╱ // 0x1524 @0x5c
0x14c8…1528 at005d = ╱57╱W╱ // 0x1525 @0x5d
0x14c8…1528 at005e = ╱ee╱)╱ // 0x1526 @0x5e
0x14c8…1528 at005f = EOL // 0x1527 @0x5f
0x14c8…1528 }
0x1528…1541 a298 2430 EXEC FEJL(W,15,K4$)
0x1528…1541 LineComalBin {
0x1528…1541 ptr = 0xa298 // 0x1528 @0x0
0x1528…1541 lno = 0x097e // 0x152a @0x2
0x1528…1541 at0004 = ╱9d╱ EXEC ╱ // 0x152c @0x4
0x1528…1541 at0005 = ╱46╱F╱ // 0x152d @0x5
0x1528…1541 at0006 = ╱45╱E╱ // 0x152e @0x6
0x1528…1541 at0007 = ╱4a╱J╱ // 0x152f @0x7
0x1528…1541 at0008 = ╱4c╱L╱ // 0x1530 @0x8
0x1528…1541 at0009 = ╱ed╱(╱ // 0x1531 @0x9
0x1528…1541 at000a = ╱57╱W╱ // 0x1532 @0xa
0x1528…1541 at000b = ╱ec╱,╱ // 0x1533 @0xb
0x1528…1541 at000c = ╱31╱1╱ // 0x1534 @0xc
0x1528…1541 at000d = ╱35╱5╱ // 0x1535 @0xd
0x1528…1541 at000e = ╱fe0000f004╱ // 0x1536 @0xe
0x1528…1541 at0013 = ╱ec╱,╱ // 0x153b @0x13
0x1528…1541 at0014 = ╱4b╱K╱ // 0x153c @0x14
0x1528…1541 at0015 = ╱34╱4╱ // 0x153d @0x15
0x1528…1541 at0016 = ╱ef╱$╱ // 0x153e @0x16
0x1528…1541 at0017 = ╱ee╱)╱ // 0x153f @0x17
0x1528…1541 at0018 = EOL // 0x1540 @0x18
0x1528…1541 }
0x1541…1556 a2ad 2440 GET K4$,20:DV$
0x1541…1556 LineComalBin {
0x1541…1556 ptr = 0xa2ad // 0x1541 @0x0
0x1541…1556 lno = 0x0988 // 0x1543 @0x2
0x1541…1556 at0004 = ╱a9╱ GET ╱ // 0x1545 @0x4
0x1541…1556 at0005 = ╱4b╱K╱ // 0x1546 @0x5
0x1541…1556 at0006 = ╱34╱4╱ // 0x1547 @0x6
0x1541…1556 at0007 = ╱ef╱$╱ // 0x1548 @0x7
0x1541…1556 at0008 = ╱ec╱,╱ // 0x1549 @0x8
0x1541…1556 at0009 = ╱32╱2╱ // 0x154a @0x9
0x1541…1556 at000a = ╱30╱0╱ // 0x154b @0xa
0x1541…1556 at000b = ╱fe0000a005╱ // 0x154c @0xb
0x1541…1556 at0010 = ╱f0╱:╱ // 0x1551 @0x10
0x1541…1556 at0011 = ╱44╱D╱ // 0x1552 @0x11
0x1541…1556 at0012 = ╱56╱V╱ // 0x1553 @0x12
0x1541…1556 at0013 = ╱ef╱$╱ // 0x1554 @0x13
0x1541…1556 at0014 = EOL // 0x1555 @0x14
0x1541…1556 }
0x1556…156f a2c6 2450 EXEC FEJL(W,22,K4$)
0x1556…156f LineComalBin {
0x1556…156f ptr = 0xa2c6 // 0x1556 @0x0
0x1556…156f lno = 0x0992 // 0x1558 @0x2
0x1556…156f at0004 = ╱9d╱ EXEC ╱ // 0x155a @0x4
0x1556…156f at0005 = ╱46╱F╱ // 0x155b @0x5
0x1556…156f at0006 = ╱45╱E╱ // 0x155c @0x6
0x1556…156f at0007 = ╱4a╱J╱ // 0x155d @0x7
0x1556…156f at0008 = ╱4c╱L╱ // 0x155e @0x8
0x1556…156f at0009 = ╱ed╱(╱ // 0x155f @0x9
0x1556…156f at000a = ╱57╱W╱ // 0x1560 @0xa
0x1556…156f at000b = ╱ec╱,╱ // 0x1561 @0xb
0x1556…156f at000c = ╱32╱2╱ // 0x1562 @0xc
0x1556…156f at000d = ╱32╱2╱ // 0x1563 @0xd
0x1556…156f at000e = ╱fe0000b005╱ // 0x1564 @0xe
0x1556…156f at0013 = ╱ec╱,╱ // 0x1569 @0x13
0x1556…156f at0014 = ╱4b╱K╱ // 0x156a @0x14
0x1556…156f at0015 = ╱34╱4╱ // 0x156b @0x15
0x1556…156f at0016 = ╱ef╱$╱ // 0x156c @0x16
0x1556…156f at0017 = ╱ee╱)╱ // 0x156d @0x17
0x1556…156f at0018 = EOL // 0x156e @0x18
0x1556…156f }
0x156f…1578 a2cf 2460 CLOSE K4$
0x156f…1578 LineComalBin {
0x156f…1578 ptr = 0xa2cf // 0x156f @0x0
0x156f…1578 lno = 0x099c // 0x1571 @0x2
0x156f…1578 at0004 = ╱a8╱ CLOSE ╱ // 0x1573 @0x4
0x156f…1578 at0005 = ╱4b╱K╱ // 0x1574 @0x5
0x156f…1578 at0006 = ╱34╱4╱ // 0x1575 @0x6
0x156f…1578 at0007 = ╱ef╱$╱ // 0x1576 @0x7
0x156f…1578 at0008 = EOL // 0x1577 @0x8
0x156f…1578 }
0x1578…1591 a2e8 2470 EXEC FEJL(W,17,K4$)
0x1578…1591 LineComalBin {
0x1578…1591 ptr = 0xa2e8 // 0x1578 @0x0
0x1578…1591 lno = 0x09a6 // 0x157a @0x2
0x1578…1591 at0004 = ╱9d╱ EXEC ╱ // 0x157c @0x4
0x1578…1591 at0005 = ╱46╱F╱ // 0x157d @0x5
0x1578…1591 at0006 = ╱45╱E╱ // 0x157e @0x6
0x1578…1591 at0007 = ╱4a╱J╱ // 0x157f @0x7
0x1578…1591 at0008 = ╱4c╱L╱ // 0x1580 @0x8
0x1578…1591 at0009 = ╱ed╱(╱ // 0x1581 @0x9
0x1578…1591 at000a = ╱57╱W╱ // 0x1582 @0xa
0x1578…1591 at000b = ╱ec╱,╱ // 0x1583 @0xb
0x1578…1591 at000c = ╱31╱1╱ // 0x1584 @0xc
0x1578…1591 at000d = ╱37╱7╱ // 0x1585 @0xd
0x1578…1591 at000e = ╱fe00008805╱ // 0x1586 @0xe
0x1578…1591 at0013 = ╱ec╱,╱ // 0x158b @0x13
0x1578…1591 at0014 = ╱4b╱K╱ // 0x158c @0x14
0x1578…1591 at0015 = ╱34╱4╱ // 0x158d @0x15
0x1578…1591 at0016 = ╱ef╱$╱ // 0x158e @0x16
0x1578…1591 at0017 = ╱ee╱)╱ // 0x158f @0x17
0x1578…1591 at0018 = EOL // 0x1590 @0x18
0x1578…1591 }
0x1591…15b6 a30d 2480 K2$=N$+K2$;K3$=N$+K3$;K6$=N$+K6$
0x1591…15b6 LineComalBin {
0x1591…15b6 ptr = 0xa30d // 0x1591 @0x0
0x1591…15b6 lno = 0x09b0 // 0x1593 @0x2
0x1591…15b6 at0004 = ╱4b╱K╱ // 0x1595 @0x4
0x1591…15b6 at0005 = ╱32╱2╱ // 0x1596 @0x5
0x1591…15b6 at0006 = ╱ef╱$╱ // 0x1597 @0x6
0x1591…15b6 at0007 = ╱dc╱=╱ // 0x1598 @0x7
0x1591…15b6 at0008 = ╱4e╱N╱ // 0x1599 @0x8
0x1591…15b6 at0009 = ╱ef╱$╱ // 0x159a @0x9
0x1591…15b6 at000a = ╱f1╱+╱ // 0x159b @0xa
0x1591…15b6 at000b = ╱4b╱K╱ // 0x159c @0xb
0x1591…15b6 at000c = ╱32╱2╱ // 0x159d @0xc
0x1591…15b6 at000d = ╱ef╱$╱ // 0x159e @0xd
0x1591…15b6 at000e = ╱eb╱;╱ // 0x159f @0xe
0x1591…15b6 at000f = ╱4b╱K╱ // 0x15a0 @0xf
0x1591…15b6 at0010 = ╱33╱3╱ // 0x15a1 @0x10
0x1591…15b6 at0011 = ╱ef╱$╱ // 0x15a2 @0x11
0x1591…15b6 at0012 = ╱dc╱=╱ // 0x15a3 @0x12
0x1591…15b6 at0013 = ╱4e╱N╱ // 0x15a4 @0x13
0x1591…15b6 at0014 = ╱ef╱$╱ // 0x15a5 @0x14
0x1591…15b6 at0015 = ╱f1╱+╱ // 0x15a6 @0x15
0x1591…15b6 at0016 = ╱4b╱K╱ // 0x15a7 @0x16
0x1591…15b6 at0017 = ╱33╱3╱ // 0x15a8 @0x17
0x1591…15b6 at0018 = ╱ef╱$╱ // 0x15a9 @0x18
0x1591…15b6 at0019 = ╱eb╱;╱ // 0x15aa @0x19
0x1591…15b6 at001a = ╱4b╱K╱ // 0x15ab @0x1a
0x1591…15b6 at001b = ╱36╱6╱ // 0x15ac @0x1b
0x1591…15b6 at001c = ╱ef╱$╱ // 0x15ad @0x1c
0x1591…15b6 at001d = ╱dc╱=╱ // 0x15ae @0x1d
0x1591…15b6 at001e = ╱4e╱N╱ // 0x15af @0x1e
0x1591…15b6 at001f = ╱ef╱$╱ // 0x15b0 @0x1f
0x1591…15b6 at0020 = ╱f1╱+╱ // 0x15b1 @0x20
0x1591…15b6 at0021 = ╱4b╱K╱ // 0x15b2 @0x21
0x1591…15b6 at0022 = ╱36╱6╱ // 0x15b3 @0x22
0x1591…15b6 at0023 = ╱ef╱$╱ // 0x15b4 @0x23
0x1591…15b6 at0024 = EOL // 0x15b5 @0x24
0x1591…15b6 }
0x15b6…15c1 a318 2490 OPEN K2$,W
0x15b6…15c1 LineComalBin {
0x15b6…15c1 ptr = 0xa318 // 0x15b6 @0x0
0x15b6…15c1 lno = 0x09ba // 0x15b8 @0x2
0x15b6…15c1 at0004 = ╱a7╱ OPEN ╱ // 0x15ba @0x4
0x15b6…15c1 at0005 = ╱4b╱K╱ // 0x15bb @0x5
0x15b6…15c1 at0006 = ╱32╱2╱ // 0x15bc @0x6
0x15b6…15c1 at0007 = ╱ef╱$╱ // 0x15bd @0x7
0x15b6…15c1 at0008 = ╱ec╱,╱ // 0x15be @0x8
0x15b6…15c1 at0009 = ╱57╱W╱ // 0x15bf @0x9
0x15b6…15c1 at000a = EOL // 0x15c0 @0xa
0x15b6…15c1 }
0x15c1…15da a331 2500 EXEC FEJL(W,18,K2$)
0x15c1…15da LineComalBin {
0x15c1…15da ptr = 0xa331 // 0x15c1 @0x0
0x15c1…15da lno = 0x09c4 // 0x15c3 @0x2
0x15c1…15da at0004 = ╱9d╱ EXEC ╱ // 0x15c5 @0x4
0x15c1…15da at0005 = ╱46╱F╱ // 0x15c6 @0x5
0x15c1…15da at0006 = ╱45╱E╱ // 0x15c7 @0x6
0x15c1…15da at0007 = ╱4a╱J╱ // 0x15c8 @0x7
0x15c1…15da at0008 = ╱4c╱L╱ // 0x15c9 @0x8
0x15c1…15da at0009 = ╱ed╱(╱ // 0x15ca @0x9
0x15c1…15da at000a = ╱57╱W╱ // 0x15cb @0xa
0x15c1…15da at000b = ╱ec╱,╱ // 0x15cc @0xb
0x15c1…15da at000c = ╱31╱1╱ // 0x15cd @0xc
0x15c1…15da at000d = ╱38╱8╱ // 0x15ce @0xd
0x15c1…15da at000e = ╱fe00009005╱ // 0x15cf @0xe
0x15c1…15da at0013 = ╱ec╱,╱ // 0x15d4 @0x13
0x15c1…15da at0014 = ╱4b╱K╱ // 0x15d5 @0x14
0x15c1…15da at0015 = ╱32╱2╱ // 0x15d6 @0x15
0x15c1…15da at0016 = ╱ef╱$╱ // 0x15d7 @0x16
0x15c1…15da at0017 = ╱ee╱)╱ // 0x15d8 @0x17
0x15c1…15da at0018 = EOL // 0x15d9 @0x18
0x15c1…15da }
0x15da…15e5 a33c 2510 OPEN K3$,W
0x15da…15e5 LineComalBin {
0x15da…15e5 ptr = 0xa33c // 0x15da @0x0
0x15da…15e5 lno = 0x09ce // 0x15dc @0x2
0x15da…15e5 at0004 = ╱a7╱ OPEN ╱ // 0x15de @0x4
0x15da…15e5 at0005 = ╱4b╱K╱ // 0x15df @0x5
0x15da…15e5 at0006 = ╱33╱3╱ // 0x15e0 @0x6
0x15da…15e5 at0007 = ╱ef╱$╱ // 0x15e1 @0x7
0x15da…15e5 at0008 = ╱ec╱,╱ // 0x15e2 @0x8
0x15da…15e5 at0009 = ╱57╱W╱ // 0x15e3 @0x9
0x15da…15e5 at000a = EOL // 0x15e4 @0xa
0x15da…15e5 }
0x15e5…15fe a355 2520 EXEC FEJL(W,19,K3$)
0x15e5…15fe LineComalBin {
0x15e5…15fe ptr = 0xa355 // 0x15e5 @0x0
0x15e5…15fe lno = 0x09d8 // 0x15e7 @0x2
0x15e5…15fe at0004 = ╱9d╱ EXEC ╱ // 0x15e9 @0x4
0x15e5…15fe at0005 = ╱46╱F╱ // 0x15ea @0x5
0x15e5…15fe at0006 = ╱45╱E╱ // 0x15eb @0x6
0x15e5…15fe at0007 = ╱4a╱J╱ // 0x15ec @0x7
0x15e5…15fe at0008 = ╱4c╱L╱ // 0x15ed @0x8
0x15e5…15fe at0009 = ╱ed╱(╱ // 0x15ee @0x9
0x15e5…15fe at000a = ╱57╱W╱ // 0x15ef @0xa
0x15e5…15fe at000b = ╱ec╱,╱ // 0x15f0 @0xb
0x15e5…15fe at000c = ╱31╱1╱ // 0x15f1 @0xc
0x15e5…15fe at000d = ╱39╱9╱ // 0x15f2 @0xd
0x15e5…15fe at000e = ╱fe00009805╱ // 0x15f3 @0xe
0x15e5…15fe at0013 = ╱ec╱,╱ // 0x15f8 @0x13
0x15e5…15fe at0014 = ╱4b╱K╱ // 0x15f9 @0x14
0x15e5…15fe at0015 = ╱33╱3╱ // 0x15fa @0x15
0x15e5…15fe at0016 = ╱ef╱$╱ // 0x15fb @0x16
0x15e5…15fe at0017 = ╱ee╱)╱ // 0x15fc @0x17
0x15e5…15fe at0018 = EOL // 0x15fd @0x18
0x15e5…15fe }
0x15fe…1609 a360 2530 OPEN K6$,R
0x15fe…1609 LineComalBin {
0x15fe…1609 ptr = 0xa360 // 0x15fe @0x0
0x15fe…1609 lno = 0x09e2 // 0x1600 @0x2
0x15fe…1609 at0004 = ╱a7╱ OPEN ╱ // 0x1602 @0x4
0x15fe…1609 at0005 = ╱4b╱K╱ // 0x1603 @0x5
0x15fe…1609 at0006 = ╱36╱6╱ // 0x1604 @0x6
0x15fe…1609 at0007 = ╱ef╱$╱ // 0x1605 @0x7
0x15fe…1609 at0008 = ╱ec╱,╱ // 0x1606 @0x8
0x15fe…1609 at0009 = ╱52╱R╱ // 0x1607 @0x9
0x15fe…1609 at000a = EOL // 0x1608 @0xa
0x15fe…1609 }
0x1609…1622 a379 2540 EXEC FEJL(W,16,K6$)
0x1609…1622 LineComalBin {
0x1609…1622 ptr = 0xa379 // 0x1609 @0x0
0x1609…1622 lno = 0x09ec // 0x160b @0x2
0x1609…1622 at0004 = ╱9d╱ EXEC ╱ // 0x160d @0x4
0x1609…1622 at0005 = ╱46╱F╱ // 0x160e @0x5
0x1609…1622 at0006 = ╱45╱E╱ // 0x160f @0x6
0x1609…1622 at0007 = ╱4a╱J╱ // 0x1610 @0x7
0x1609…1622 at0008 = ╱4c╱L╱ // 0x1611 @0x8
0x1609…1622 at0009 = ╱ed╱(╱ // 0x1612 @0x9
0x1609…1622 at000a = ╱57╱W╱ // 0x1613 @0xa
0x1609…1622 at000b = ╱ec╱,╱ // 0x1614 @0xb
0x1609…1622 at000c = ╱31╱1╱ // 0x1615 @0xc
0x1609…1622 at000d = ╱36╱6╱ // 0x1616 @0xd
0x1609…1622 at000e = ╱fe00008005╱ // 0x1617 @0xe
0x1609…1622 at0013 = ╱ec╱,╱ // 0x161c @0x13
0x1609…1622 at0014 = ╱4b╱K╱ // 0x161d @0x14
0x1609…1622 at0015 = ╱36╱6╱ // 0x161e @0x15
0x1609…1622 at0016 = ╱ef╱$╱ // 0x161f @0x16
0x1609…1622 at0017 = ╱ee╱)╱ // 0x1620 @0x17
0x1609…1622 at0018 = EOL // 0x1621 @0x18
0x1609…1622 }
0x1622…1639 a390 2550 FOR X=E TO MUNKANT+METOT
0x1622…1639 LineComalBin {
0x1622…1639 ptr = 0xa390 // 0x1622 @0x0
0x1622…1639 lno = 0x09f6 // 0x1624 @0x2
0x1622…1639 at0004 = ╱83╱ FOR ╱ // 0x1626 @0x4
0x1622…1639 at0005 = ╱58╱X╱ // 0x1627 @0x5
0x1622…1639 at0006 = ╱dc╱=╱ // 0x1628 @0x6
0x1622…1639 at0007 = ╱45╱E╱ // 0x1629 @0x7
0x1622…1639 at0008 = ╱b7╱ TO ╱ // 0x162a @0x8
0x1622…1639 at0009 = ╱4d╱M╱ // 0x162b @0x9
0x1622…1639 at000a = ╱55╱U╱ // 0x162c @0xa
0x1622…1639 at000b = ╱4e╱N╱ // 0x162d @0xb
0x1622…1639 at000c = ╱4b╱K╱ // 0x162e @0xc
0x1622…1639 at000d = ╱41╱A╱ // 0x162f @0xd
0x1622…1639 at000e = ╱4e╱N╱ // 0x1630 @0xe
0x1622…1639 at000f = ╱54╱T╱ // 0x1631 @0xf
0x1622…1639 at0010 = ╱e2╱+╱ // 0x1632 @0x10
0x1622…1639 at0011 = ╱4d╱M╱ // 0x1633 @0x11
0x1622…1639 at0012 = ╱45╱E╱ // 0x1634 @0x12
0x1622…1639 at0013 = ╱54╱T╱ // 0x1635 @0x13
0x1622…1639 at0014 = ╱4f╱O╱ // 0x1636 @0x14
0x1622…1639 at0015 = ╱54╱T╱ // 0x1637 @0x15
0x1622…1639 at0016 = EOL // 0x1638 @0x16
0x1622…1639 }
0x1639…1652 a3a9 2560 GET K6$,X:UNR(X),EU$(X)
0x1639…1652 LineComalBin {
0x1639…1652 ptr = 0xa3a9 // 0x1639 @0x0
0x1639…1652 lno = 0x0a00 // 0x163b @0x2
0x1639…1652 at0004 = ╱a9╱ GET ╱ // 0x163d @0x4
0x1639…1652 at0005 = ╱4b╱K╱ // 0x163e @0x5
0x1639…1652 at0006 = ╱36╱6╱ // 0x163f @0x6
0x1639…1652 at0007 = ╱ef╱$╱ // 0x1640 @0x7
0x1639…1652 at0008 = ╱ec╱,╱ // 0x1641 @0x8
0x1639…1652 at0009 = ╱58╱X╱ // 0x1642 @0x9
0x1639…1652 at000a = ╱f0╱:╱ // 0x1643 @0xa
0x1639…1652 at000b = ╱55╱U╱ // 0x1644 @0xb
0x1639…1652 at000c = ╱4e╱N╱ // 0x1645 @0xc
0x1639…1652 at000d = ╱52╱R╱ // 0x1646 @0xd
0x1639…1652 at000e = ╱ed╱(╱ // 0x1647 @0xe
0x1639…1652 at000f = ╱58╱X╱ // 0x1648 @0xf
0x1639…1652 at0010 = ╱ee╱)╱ // 0x1649 @0x10
0x1639…1652 at0011 = ╱ec╱,╱ // 0x164a @0x11
0x1639…1652 at0012 = ╱45╱E╱ // 0x164b @0x12
0x1639…1652 at0013 = ╱55╱U╱ // 0x164c @0x13
0x1639…1652 at0014 = ╱ef╱$╱ // 0x164d @0x14
0x1639…1652 at0015 = ╱ed╱(╱ // 0x164e @0x15
0x1639…1652 at0016 = ╱58╱X╱ // 0x164f @0x16
0x1639…1652 at0017 = ╱ee╱)╱ // 0x1650 @0x17
0x1639…1652 at0018 = EOL // 0x1651 @0x18
0x1639…1652 }
0x1652…1659 a3b0 2570 NEXT X
0x1652…1659 LineComalBin {
0x1652…1659 ptr = 0xa3b0 // 0x1652 @0x0
0x1652…1659 lno = 0x0a0a // 0x1654 @0x2
0x1652…1659 at0004 = ╱84╱ NEXT ╱ // 0x1656 @0x4
0x1652…1659 at0005 = ╱58╱X╱ // 0x1657 @0x5
0x1652…1659 at0006 = EOL // 0x1658 @0x6
0x1652…1659 }
0x1659…1662 a3b9 2580 CLOSE K6$
0x1659…1662 LineComalBin {
0x1659…1662 ptr = 0xa3b9 // 0x1659 @0x0
0x1659…1662 lno = 0x0a14 // 0x165b @0x2
0x1659…1662 at0004 = ╱a8╱ CLOSE ╱ // 0x165d @0x4
0x1659…1662 at0005 = ╱4b╱K╱ // 0x165e @0x5
0x1659…1662 at0006 = ╱36╱6╱ // 0x165f @0x6
0x1659…1662 at0007 = ╱ef╱$╱ // 0x1660 @0x7
0x1659…1662 at0008 = EOL // 0x1661 @0x8
0x1659…1662 }
0x1662…167b a3d2 2590 EXEC FEJL(W,14,K6$)
0x1662…167b LineComalBin {
0x1662…167b ptr = 0xa3d2 // 0x1662 @0x0
0x1662…167b lno = 0x0a1e // 0x1664 @0x2
0x1662…167b at0004 = ╱9d╱ EXEC ╱ // 0x1666 @0x4
0x1662…167b at0005 = ╱46╱F╱ // 0x1667 @0x5
0x1662…167b at0006 = ╱45╱E╱ // 0x1668 @0x6
0x1662…167b at0007 = ╱4a╱J╱ // 0x1669 @0x7
0x1662…167b at0008 = ╱4c╱L╱ // 0x166a @0x8
0x1662…167b at0009 = ╱ed╱(╱ // 0x166b @0x9
0x1662…167b at000a = ╱57╱W╱ // 0x166c @0xa
0x1662…167b at000b = ╱ec╱,╱ // 0x166d @0xb
0x1662…167b at000c = ╱31╱1╱ // 0x166e @0xc
0x1662…167b at000d = ╱34╱4╱ // 0x166f @0xd
0x1662…167b at000e = ╱fe0000e004╱ // 0x1670 @0xe
0x1662…167b at0013 = ╱ec╱,╱ // 0x1675 @0x13
0x1662…167b at0014 = ╱4b╱K╱ // 0x1676 @0x14
0x1662…167b at0015 = ╱36╱6╱ // 0x1677 @0x15
0x1662…167b at0016 = ╱ef╱$╱ // 0x1678 @0x16
0x1662…167b at0017 = ╱ee╱)╱ // 0x1679 @0x17
0x1662…167b at0018 = EOL // 0x167a @0x18
0x1662…167b }
0x167b…1699 a3f0 2600 EXEC INDTAB(ETAB,MEANTAL,K3$)
0x167b…1699 LineComalBin {
0x167b…1699 ptr = 0xa3f0 // 0x167b @0x0
0x167b…1699 lno = 0x0a28 // 0x167d @0x2
0x167b…1699 at0004 = ╱9d╱ EXEC ╱ // 0x167f @0x4
0x167b…1699 at0005 = ╱49╱I╱ // 0x1680 @0x5
0x167b…1699 at0006 = ╱4e╱N╱ // 0x1681 @0x6
0x167b…1699 at0007 = ╱44╱D╱ // 0x1682 @0x7
0x167b…1699 at0008 = ╱54╱T╱ // 0x1683 @0x8
0x167b…1699 at0009 = ╱41╱A╱ // 0x1684 @0x9
0x167b…1699 at000a = ╱42╱B╱ // 0x1685 @0xa
0x167b…1699 at000b = ╱ed╱(╱ // 0x1686 @0xb
0x167b…1699 at000c = ╱45╱E╱ // 0x1687 @0xc
0x167b…1699 at000d = ╱54╱T╱ // 0x1688 @0xd
0x167b…1699 at000e = ╱41╱A╱ // 0x1689 @0xe
0x167b…1699 at000f = ╱42╱B╱ // 0x168a @0xf
0x167b…1699 at0010 = ╱ec╱,╱ // 0x168b @0x10
0x167b…1699 at0011 = ╱4d╱M╱ // 0x168c @0x11
0x167b…1699 at0012 = ╱45╱E╱ // 0x168d @0x12
0x167b…1699 at0013 = ╱41╱A╱ // 0x168e @0x13
0x167b…1699 at0014 = ╱4e╱N╱ // 0x168f @0x14
0x167b…1699 at0015 = ╱54╱T╱ // 0x1690 @0x15
0x167b…1699 at0016 = ╱41╱A╱ // 0x1691 @0x16
0x167b…1699 at0017 = ╱4c╱L╱ // 0x1692 @0x17
0x167b…1699 at0018 = ╱ec╱,╱ // 0x1693 @0x18
0x167b…1699 at0019 = ╱4b╱K╱ // 0x1694 @0x19
0x167b…1699 at001a = ╱33╱3╱ // 0x1695 @0x1a
0x167b…1699 at001b = ╱ef╱$╱ // 0x1696 @0x1b
0x167b…1699 at001c = ╱ee╱)╱ // 0x1697 @0x1c
0x167b…1699 at001d = EOL // 0x1698 @0x1d
0x167b…1699 }
0x1699…16e6 a43d 2610 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "
0x1699…16e6 LineComalBin {
0x1699…16e6 ptr = 0xa43d // 0x1699 @0x0
0x1699…16e6 lno = 0x0a32 // 0x169b @0x2
0x1699…16e6 at0004 = ╱42╱B╱ // 0x169d @0x4
0x1699…16e6 at0005 = ╱4c╱L╱ // 0x169e @0x5
0x1699…16e6 at0006 = ╱41╱A╱ // 0x169f @0x6
0x1699…16e6 at0007 = ╱4e╱N╱ // 0x16a0 @0x7
0x1699…16e6 at0008 = ╱4b╱K╱ // 0x16a1 @0x8
0x1699…16e6 at0009 = ╱ef╱$╱ // 0x16a2 @0x9
0x1699…16e6 at000a = ╱dc╱=╱ // 0x16a3 @0xa
0x1699…16e6 at000b = ╱22╱"╱ // 0x16a4 @0xb
0x1699…16e6 at000c = ╱20╱…╱ // 0x16a5 @0xc
0x1699…16e6 at000d = ╱20╱…╱ // 0x16a6 @0xd
0x1699…16e6 at000e = ╱20╱…╱ // 0x16a7 @0xe
0x1699…16e6 at000f = ╱20╱…╱ // 0x16a8 @0xf
0x1699…16e6 at0010 = ╱20╱…╱ // 0x16a9 @0x10
0x1699…16e6 at0011 = ╱20╱…╱ // 0x16aa @0x11
0x1699…16e6 at0012 = ╱20╱…╱ // 0x16ab @0x12
0x1699…16e6 at0013 = ╱20╱…╱ // 0x16ac @0x13
0x1699…16e6 at0014 = ╱20╱…╱ // 0x16ad @0x14
0x1699…16e6 at0015 = ╱20╱…╱ // 0x16ae @0x15
0x1699…16e6 at0016 = ╱20╱…╱ // 0x16af @0x16
0x1699…16e6 at0017 = ╱20╱…╱ // 0x16b0 @0x17
0x1699…16e6 at0018 = ╱20╱…╱ // 0x16b1 @0x18
0x1699…16e6 at0019 = ╱20╱…╱ // 0x16b2 @0x19
0x1699…16e6 at001a = ╱20╱…╱ // 0x16b3 @0x1a
0x1699…16e6 at001b = ╱20╱…╱ // 0x16b4 @0x1b
0x1699…16e6 at001c = ╱20╱…╱ // 0x16b5 @0x1c
0x1699…16e6 at001d = ╱20╱…╱ // 0x16b6 @0x1d
0x1699…16e6 at001e = ╱20╱…╱ // 0x16b7 @0x1e
0x1699…16e6 at001f = ╱20╱…╱ // 0x16b8 @0x1f
0x1699…16e6 at0020 = ╱20╱…╱ // 0x16b9 @0x20
0x1699…16e6 at0021 = ╱20╱…╱ // 0x16ba @0x21
0x1699…16e6 at0022 = ╱20╱…╱ // 0x16bb @0x22
0x1699…16e6 at0023 = ╱20╱…╱ // 0x16bc @0x23
0x1699…16e6 at0024 = ╱20╱…╱ // 0x16bd @0x24
0x1699…16e6 at0025 = ╱20╱…╱ // 0x16be @0x25
0x1699…16e6 at0026 = ╱20╱…╱ // 0x16bf @0x26
0x1699…16e6 at0027 = ╱20╱…╱ // 0x16c0 @0x27
0x1699…16e6 at0028 = ╱20╱…╱ // 0x16c1 @0x28
0x1699…16e6 at0029 = ╱20╱…╱ // 0x16c2 @0x29
0x1699…16e6 at002a = ╱20╱…╱ // 0x16c3 @0x2a
0x1699…16e6 at002b = ╱20╱…╱ // 0x16c4 @0x2b
0x1699…16e6 at002c = ╱20╱…╱ // 0x16c5 @0x2c
0x1699…16e6 at002d = ╱20╱…╱ // 0x16c6 @0x2d
0x1699…16e6 at002e = ╱20╱…╱ // 0x16c7 @0x2e
0x1699…16e6 at002f = ╱20╱…╱ // 0x16c8 @0x2f
0x1699…16e6 at0030 = ╱20╱…╱ // 0x16c9 @0x30
0x1699…16e6 at0031 = ╱20╱…╱ // 0x16ca @0x31
0x1699…16e6 at0032 = ╱22╱"╱ // 0x16cb @0x32
0x1699…16e6 at0033 = ╱eb╱;╱ // 0x16cc @0x33
0x1699…16e6 at0034 = ╱42╱B╱ // 0x16cd @0x34
0x1699…16e6 at0035 = ╱4c╱L╱ // 0x16ce @0x35
0x1699…16e6 at0036 = ╱41╱A╱ // 0x16cf @0x36
0x1699…16e6 at0037 = ╱4e╱N╱ // 0x16d0 @0x37
0x1699…16e6 at0038 = ╱4b╱K╱ // 0x16d1 @0x38
0x1699…16e6 at0039 = ╱ef╱$╱ // 0x16d2 @0x39
0x1699…16e6 at003a = ╱dc╱=╱ // 0x16d3 @0x3a
0x1699…16e6 at003b = ╱42╱B╱ // 0x16d4 @0x3b
0x1699…16e6 at003c = ╱4c╱L╱ // 0x16d5 @0x3c
0x1699…16e6 at003d = ╱41╱A╱ // 0x16d6 @0x3d
0x1699…16e6 at003e = ╱4e╱N╱ // 0x16d7 @0x3e
0x1699…16e6 at003f = ╱4b╱K╱ // 0x16d8 @0x3f
0x1699…16e6 at0040 = ╱ef╱$╱ // 0x16d9 @0x40
0x1699…16e6 at0041 = ╱f1╱+╱ // 0x16da @0x41
0x1699…16e6 at0042 = ╱42╱B╱ // 0x16db @0x42
0x1699…16e6 at0043 = ╱4c╱L╱ // 0x16dc @0x43
0x1699…16e6 at0044 = ╱41╱A╱ // 0x16dd @0x44
0x1699…16e6 at0045 = ╱4e╱N╱ // 0x16de @0x45
0x1699…16e6 at0046 = ╱4b╱K╱ // 0x16df @0x46
0x1699…16e6 at0047 = ╱ef╱$╱ // 0x16e0 @0x47
0x1699…16e6 at0048 = ╱f1╱+╱ // 0x16e1 @0x48
0x1699…16e6 at0049 = ╱22╱"╱ // 0x16e2 @0x49
0x1699…16e6 at004a = ╱20╱…╱ // 0x16e3 @0x4a
0x1699…16e6 at004b = ╱22╱"╱ // 0x16e4 @0x4b
0x1699…16e6 at004c = EOL // 0x16e5 @0x4c
0x1699…16e6 }
0x16e6…170a a461 2620 TAH$="0+";TAL4$="0+";AENT=T2(E)
0x16e6…170a LineComalBin {
0x16e6…170a ptr = 0xa461 // 0x16e6 @0x0
0x16e6…170a lno = 0x0a3c // 0x16e8 @0x2
0x16e6…170a at0004 = ╱54╱T╱ // 0x16ea @0x4
0x16e6…170a at0005 = ╱41╱A╱ // 0x16eb @0x5
0x16e6…170a at0006 = ╱48╱H╱ // 0x16ec @0x6
0x16e6…170a at0007 = ╱ef╱$╱ // 0x16ed @0x7
0x16e6…170a at0008 = ╱dc╱=╱ // 0x16ee @0x8
0x16e6…170a at0009 = ╱22╱"╱ // 0x16ef @0x9
0x16e6…170a at000a = ╱30╱0╱ // 0x16f0 @0xa
0x16e6…170a at000b = ╱2b╱+╱ // 0x16f1 @0xb
0x16e6…170a at000c = ╱22╱"╱ // 0x16f2 @0xc
0x16e6…170a at000d = ╱eb╱;╱ // 0x16f3 @0xd
0x16e6…170a at000e = ╱54╱T╱ // 0x16f4 @0xe
0x16e6…170a at000f = ╱41╱A╱ // 0x16f5 @0xf
0x16e6…170a at0010 = ╱4c╱L╱ // 0x16f6 @0x10
0x16e6…170a at0011 = ╱34╱4╱ // 0x16f7 @0x11
0x16e6…170a at0012 = ╱ef╱$╱ // 0x16f8 @0x12
0x16e6…170a at0013 = ╱dc╱=╱ // 0x16f9 @0x13
0x16e6…170a at0014 = ╱22╱"╱ // 0x16fa @0x14
0x16e6…170a at0015 = ╱30╱0╱ // 0x16fb @0x15
0x16e6…170a at0016 = ╱2b╱+╱ // 0x16fc @0x16
0x16e6…170a at0017 = ╱22╱"╱ // 0x16fd @0x17
0x16e6…170a at0018 = ╱eb╱;╱ // 0x16fe @0x18
0x16e6…170a at0019 = ╱41╱A╱ // 0x16ff @0x19
0x16e6…170a at001a = ╱45╱E╱ // 0x1700 @0x1a
0x16e6…170a at001b = ╱4e╱N╱ // 0x1701 @0x1b
0x16e6…170a at001c = ╱54╱T╱ // 0x1702 @0x1c
0x16e6…170a at001d = ╱dc╱=╱ // 0x1703 @0x1d
0x16e6…170a at001e = ╱54╱T╱ // 0x1704 @0x1e
0x16e6…170a at001f = ╱32╱2╱ // 0x1705 @0x1f
0x16e6…170a at0020 = ╱ed╱(╱ // 0x1706 @0x20
0x16e6…170a at0021 = ╱45╱E╱ // 0x1707 @0x21
0x16e6…170a at0022 = ╱ee╱)╱ // 0x1708 @0x22
0x16e6…170a at0023 = EOL // 0x1709 @0x23
0x16e6…170a }
0x170a…1756 a4ad 2630 STREG$="-----------------------------------------";STREG$=STREG$+STREG$
0x170a…1756 LineComalBin {
0x170a…1756 ptr = 0xa4ad // 0x170a @0x0
0x170a…1756 lno = 0x0a46 // 0x170c @0x2
0x170a…1756 at0004 = ╱53╱S╱ // 0x170e @0x4
0x170a…1756 at0005 = ╱54╱T╱ // 0x170f @0x5
0x170a…1756 at0006 = ╱52╱R╱ // 0x1710 @0x6
0x170a…1756 at0007 = ╱45╱E╱ // 0x1711 @0x7
0x170a…1756 at0008 = ╱47╱G╱ // 0x1712 @0x8
0x170a…1756 at0009 = ╱ef╱$╱ // 0x1713 @0x9
0x170a…1756 at000a = ╱dc╱=╱ // 0x1714 @0xa
0x170a…1756 at000b = ╱22╱"╱ // 0x1715 @0xb
0x170a…1756 at000c = ╱2d╱-╱ // 0x1716 @0xc
0x170a…1756 at000d = ╱2d╱-╱ // 0x1717 @0xd
0x170a…1756 at000e = ╱2d╱-╱ // 0x1718 @0xe
0x170a…1756 at000f = ╱2d╱-╱ // 0x1719 @0xf
0x170a…1756 at0010 = ╱2d╱-╱ // 0x171a @0x10
0x170a…1756 at0011 = ╱2d╱-╱ // 0x171b @0x11
0x170a…1756 at0012 = ╱2d╱-╱ // 0x171c @0x12
0x170a…1756 at0013 = ╱2d╱-╱ // 0x171d @0x13
0x170a…1756 at0014 = ╱2d╱-╱ // 0x171e @0x14
0x170a…1756 at0015 = ╱2d╱-╱ // 0x171f @0x15
0x170a…1756 at0016 = ╱2d╱-╱ // 0x1720 @0x16
0x170a…1756 at0017 = ╱2d╱-╱ // 0x1721 @0x17
0x170a…1756 at0018 = ╱2d╱-╱ // 0x1722 @0x18
0x170a…1756 at0019 = ╱2d╱-╱ // 0x1723 @0x19
0x170a…1756 at001a = ╱2d╱-╱ // 0x1724 @0x1a
0x170a…1756 at001b = ╱2d╱-╱ // 0x1725 @0x1b
0x170a…1756 at001c = ╱2d╱-╱ // 0x1726 @0x1c
0x170a…1756 at001d = ╱2d╱-╱ // 0x1727 @0x1d
0x170a…1756 at001e = ╱2d╱-╱ // 0x1728 @0x1e
0x170a…1756 at001f = ╱2d╱-╱ // 0x1729 @0x1f
0x170a…1756 at0020 = ╱2d╱-╱ // 0x172a @0x20
0x170a…1756 at0021 = ╱2d╱-╱ // 0x172b @0x21
0x170a…1756 at0022 = ╱2d╱-╱ // 0x172c @0x22
0x170a…1756 at0023 = ╱2d╱-╱ // 0x172d @0x23
0x170a…1756 at0024 = ╱2d╱-╱ // 0x172e @0x24
0x170a…1756 at0025 = ╱2d╱-╱ // 0x172f @0x25
0x170a…1756 at0026 = ╱2d╱-╱ // 0x1730 @0x26
0x170a…1756 at0027 = ╱2d╱-╱ // 0x1731 @0x27
0x170a…1756 at0028 = ╱2d╱-╱ // 0x1732 @0x28
0x170a…1756 at0029 = ╱2d╱-╱ // 0x1733 @0x29
0x170a…1756 at002a = ╱2d╱-╱ // 0x1734 @0x2a
0x170a…1756 at002b = ╱2d╱-╱ // 0x1735 @0x2b
0x170a…1756 at002c = ╱2d╱-╱ // 0x1736 @0x2c
0x170a…1756 at002d = ╱2d╱-╱ // 0x1737 @0x2d
0x170a…1756 at002e = ╱2d╱-╱ // 0x1738 @0x2e
0x170a…1756 at002f = ╱2d╱-╱ // 0x1739 @0x2f
0x170a…1756 at0030 = ╱2d╱-╱ // 0x173a @0x30
0x170a…1756 at0031 = ╱2d╱-╱ // 0x173b @0x31
0x170a…1756 at0032 = ╱2d╱-╱ // 0x173c @0x32
0x170a…1756 at0033 = ╱2d╱-╱ // 0x173d @0x33
0x170a…1756 at0034 = ╱2d╱-╱ // 0x173e @0x34
0x170a…1756 at0035 = ╱22╱"╱ // 0x173f @0x35
0x170a…1756 at0036 = ╱eb╱;╱ // 0x1740 @0x36
0x170a…1756 at0037 = ╱53╱S╱ // 0x1741 @0x37
0x170a…1756 at0038 = ╱54╱T╱ // 0x1742 @0x38
0x170a…1756 at0039 = ╱52╱R╱ // 0x1743 @0x39
0x170a…1756 at003a = ╱45╱E╱ // 0x1744 @0x3a
0x170a…1756 at003b = ╱47╱G╱ // 0x1745 @0x3b
0x170a…1756 at003c = ╱ef╱$╱ // 0x1746 @0x3c
0x170a…1756 at003d = ╱dc╱=╱ // 0x1747 @0x3d
0x170a…1756 at003e = ╱53╱S╱ // 0x1748 @0x3e
0x170a…1756 at003f = ╱54╱T╱ // 0x1749 @0x3f
0x170a…1756 at0040 = ╱52╱R╱ // 0x174a @0x40
0x170a…1756 at0041 = ╱45╱E╱ // 0x174b @0x41
0x170a…1756 at0042 = ╱47╱G╱ // 0x174c @0x42
0x170a…1756 at0043 = ╱ef╱$╱ // 0x174d @0x43
0x170a…1756 at0044 = ╱f1╱+╱ // 0x174e @0x44
0x170a…1756 at0045 = ╱53╱S╱ // 0x174f @0x45
0x170a…1756 at0046 = ╱54╱T╱ // 0x1750 @0x46
0x170a…1756 at0047 = ╱52╱R╱ // 0x1751 @0x47
0x170a…1756 at0048 = ╱45╱E╱ // 0x1752 @0x48
0x170a…1756 at0049 = ╱47╱G╱ // 0x1753 @0x49
0x170a…1756 at004a = ╱ef╱$╱ // 0x1754 @0x4a
0x170a…1756 at004b = EOL // 0x1755 @0x4b
0x170a…1756 }
0x1756…175c a4b3 2640 REPEAT
0x1756…175c LineComalBin {
0x1756…175c ptr = 0xa4b3 // 0x1756 @0x0
0x1756…175c lno = 0x0a50 // 0x1758 @0x2
0x1756…175c at0004 = ╱97╱ REPEAT ╱ // 0x175a @0x4
0x1756…175c at0005 = EOL // 0x175b @0x5
0x1756…175c }
0x175c…1762 a4b9 2650 CLEAR
0x175c…1762 LineComalBin {
0x175c…1762 ptr = 0xa4b9 // 0x175c @0x0
0x175c…1762 lno = 0x0a5a // 0x175e @0x2
0x175c…1762 at0004 = ╱a0╱ CLEAR ╱ // 0x1760 @0x4
0x175c…1762 at0005 = EOL // 0x1761 @0x5
0x175c…1762 }
0x1762…1771 a4c8 2660 CURSOR 15,E
0x1762…1771 LineComalBin {
0x1762…1771 ptr = 0xa4c8 // 0x1762 @0x0
0x1762…1771 lno = 0x0a64 // 0x1764 @0x2
0x1762…1771 at0004 = ╱a1╱ CURSOR ╱ // 0x1766 @0x4
0x1762…1771 at0005 = ╱31╱1╱ // 0x1767 @0x5
0x1762…1771 at0006 = ╱35╱5╱ // 0x1768 @0x6
0x1762…1771 at0007 = ╱fe0000f004╱ // 0x1769 @0x7
0x1762…1771 at000c = ╱ec╱,╱ // 0x176e @0xc
0x1762…1771 at000d = ╱45╱E╱ // 0x176f @0xd
0x1762…1771 at000e = EOL // 0x1770 @0xe
0x1762…1771 }
0x1771…1792 a4e9 2670 PRINT "Entreprisevedligeholdelse"
0x1771…1792 LineComalBin {
0x1771…1792 ptr = 0xa4e9 // 0x1771 @0x0
0x1771…1792 lno = 0x0a6e // 0x1773 @0x2
0x1771…1792 at0004 = ╱92╱ PRINT ╱ // 0x1775 @0x4
0x1771…1792 at0005 = ╱22╱"╱ // 0x1776 @0x5
0x1771…1792 at0006 = ╱45╱E╱ // 0x1777 @0x6
0x1771…1792 at0007 = ╱6e╱n╱ // 0x1778 @0x7
0x1771…1792 at0008 = ╱74╱t╱ // 0x1779 @0x8
0x1771…1792 at0009 = ╱72╱r╱ // 0x177a @0x9
0x1771…1792 at000a = ╱65╱e╱ // 0x177b @0xa
0x1771…1792 at000b = ╱70╱p╱ // 0x177c @0xb
0x1771…1792 at000c = ╱72╱r╱ // 0x177d @0xc
0x1771…1792 at000d = ╱69╱i╱ // 0x177e @0xd
0x1771…1792 at000e = ╱73╱s╱ // 0x177f @0xe
0x1771…1792 at000f = ╱65╱e╱ // 0x1780 @0xf
0x1771…1792 at0010 = ╱76╱v╱ // 0x1781 @0x10
0x1771…1792 at0011 = ╱65╱e╱ // 0x1782 @0x11
0x1771…1792 at0012 = ╱64╱d╱ // 0x1783 @0x12
0x1771…1792 at0013 = ╱6c╱l╱ // 0x1784 @0x13
0x1771…1792 at0014 = ╱69╱i╱ // 0x1785 @0x14
0x1771…1792 at0015 = ╱67╱g╱ // 0x1786 @0x15
0x1771…1792 at0016 = ╱65╱e╱ // 0x1787 @0x16
0x1771…1792 at0017 = ╱68╱h╱ // 0x1788 @0x17
0x1771…1792 at0018 = ╱6f╱o╱ // 0x1789 @0x18
0x1771…1792 at0019 = ╱6c╱l╱ // 0x178a @0x19
0x1771…1792 at001a = ╱64╱d╱ // 0x178b @0x1a
0x1771…1792 at001b = ╱65╱e╱ // 0x178c @0x1b
0x1771…1792 at001c = ╱6c╱l╱ // 0x178d @0x1c
0x1771…1792 at001d = ╱73╱s╱ // 0x178e @0x1d
0x1771…1792 at001e = ╱65╱e╱ // 0x178f @0x1e
0x1771…1792 at001f = ╱22╱"╱ // 0x1790 @0x1f
0x1771…1792 at0020 = EOL // 0x1791 @0x20
0x1771…1792 }
0x1792…17a6 a4fd 2680 CURSOR 21,5
0x1792…17a6 LineComalBin {
0x1792…17a6 ptr = 0xa4fd // 0x1792 @0x0
0x1792…17a6 lno = 0x0a78 // 0x1794 @0x2
0x1792…17a6 at0004 = ╱a1╱ CURSOR ╱ // 0x1796 @0x4
0x1792…17a6 at0005 = ╱32╱2╱ // 0x1797 @0x5
0x1792…17a6 at0006 = ╱31╱1╱ // 0x1798 @0x6
0x1792…17a6 at0007 = ╱fe0000a805╱ // 0x1799 @0x7
0x1792…17a6 at000c = ╱ec╱,╱ // 0x179e @0xc
0x1792…17a6 at000d = ╱35╱5╱ // 0x179f @0xd
0x1792…17a6 at000e = ╱fe0000a003╱ // 0x17a0 @0xe
0x1792…17a6 at0013 = EOL // 0x17a5 @0x13
0x1792…17a6 }
0x17a6…17b6 a50d 2690 PRINT "0:Færdig"
0x17a6…17b6 LineComalBin {
0x17a6…17b6 ptr = 0xa50d // 0x17a6 @0x0
0x17a6…17b6 lno = 0x0a82 // 0x17a8 @0x2
0x17a6…17b6 at0004 = ╱92╱ PRINT ╱ // 0x17aa @0x4
0x17a6…17b6 at0005 = ╱22╱"╱ // 0x17ab @0x5
0x17a6…17b6 at0006 = ╱30╱0╱ // 0x17ac @0x6
0x17a6…17b6 at0007 = ╱3a╱:╱ // 0x17ad @0x7
0x17a6…17b6 at0008 = ╱46╱F╱ // 0x17ae @0x8
0x17a6…17b6 at0009 = ╱7b╱æ╱ // 0x17af @0x9
0x17a6…17b6 at000a = ╱72╱r╱ // 0x17b0 @0xa
0x17a6…17b6 at000b = ╱64╱d╱ // 0x17b1 @0xb
0x17a6…17b6 at000c = ╱69╱i╱ // 0x17b2 @0xc
0x17a6…17b6 at000d = ╱67╱g╱ // 0x17b3 @0xd
0x17a6…17b6 at000e = ╱22╱"╱ // 0x17b4 @0xe
0x17a6…17b6 at000f = EOL // 0x17b5 @0xf
0x17a6…17b6 }
0x17b6…17ca a521 2700 CURSOR 21,7
0x17b6…17ca LineComalBin {
0x17b6…17ca ptr = 0xa521 // 0x17b6 @0x0
0x17b6…17ca lno = 0x0a8c // 0x17b8 @0x2
0x17b6…17ca at0004 = ╱a1╱ CURSOR ╱ // 0x17ba @0x4
0x17b6…17ca at0005 = ╱32╱2╱ // 0x17bb @0x5
0x17b6…17ca at0006 = ╱31╱1╱ // 0x17bc @0x6
0x17b6…17ca at0007 = ╱fe0000a805╱ // 0x17bd @0x7
0x17b6…17ca at000c = ╱ec╱,╱ // 0x17c2 @0xc
0x17b6…17ca at000d = ╱37╱7╱ // 0x17c3 @0xd
0x17b6…17ca at000e = ╱fe0000e003╱ // 0x17c4 @0xe
0x17b6…17ca at0013 = EOL // 0x17c9 @0x13
0x17b6…17ca }
0x17ca…17de a535 2710 PRINT "1:Oprettelse"
0x17ca…17de LineComalBin {
0x17ca…17de ptr = 0xa535 // 0x17ca @0x0
0x17ca…17de lno = 0x0a96 // 0x17cc @0x2
0x17ca…17de at0004 = ╱92╱ PRINT ╱ // 0x17ce @0x4
0x17ca…17de at0005 = ╱22╱"╱ // 0x17cf @0x5
0x17ca…17de at0006 = ╱31╱1╱ // 0x17d0 @0x6
0x17ca…17de at0007 = ╱3a╱:╱ // 0x17d1 @0x7
0x17ca…17de at0008 = ╱4f╱O╱ // 0x17d2 @0x8
0x17ca…17de at0009 = ╱70╱p╱ // 0x17d3 @0x9
0x17ca…17de at000a = ╱72╱r╱ // 0x17d4 @0xa
0x17ca…17de at000b = ╱65╱e╱ // 0x17d5 @0xb
0x17ca…17de at000c = ╱74╱t╱ // 0x17d6 @0xc
0x17ca…17de at000d = ╱74╱t╱ // 0x17d7 @0xd
0x17ca…17de at000e = ╱65╱e╱ // 0x17d8 @0xe
0x17ca…17de at000f = ╱6c╱l╱ // 0x17d9 @0xf
0x17ca…17de at0010 = ╱73╱s╱ // 0x17da @0x10
0x17ca…17de at0011 = ╱65╱e╱ // 0x17db @0x11
0x17ca…17de at0012 = ╱22╱"╱ // 0x17dc @0x12
0x17ca…17de at0013 = EOL // 0x17dd @0x13
0x17ca…17de }
0x17de…17ed a544 2720 CURSOR 21,W
0x17de…17ed LineComalBin {
0x17de…17ed ptr = 0xa544 // 0x17de @0x0
0x17de…17ed lno = 0x0aa0 // 0x17e0 @0x2
0x17de…17ed at0004 = ╱a1╱ CURSOR ╱ // 0x17e2 @0x4
0x17de…17ed at0005 = ╱32╱2╱ // 0x17e3 @0x5
0x17de…17ed at0006 = ╱31╱1╱ // 0x17e4 @0x6
0x17de…17ed at0007 = ╱fe0000a805╱ // 0x17e5 @0x7
0x17de…17ed at000c = ╱ec╱,╱ // 0x17ea @0xc
0x17de…17ed at000d = ╱57╱W╱ // 0x17eb @0xd
0x17de…17ed at000e = EOL // 0x17ec @0xe
0x17de…17ed }
0x17ed…17fe a555 2730 PRINT "2:Ændring"
0x17ed…17fe LineComalBin {
0x17ed…17fe ptr = 0xa555 // 0x17ed @0x0
0x17ed…17fe lno = 0x0aaa // 0x17ef @0x2
0x17ed…17fe at0004 = ╱92╱ PRINT ╱ // 0x17f1 @0x4
0x17ed…17fe at0005 = ╱22╱"╱ // 0x17f2 @0x5
0x17ed…17fe at0006 = ╱32╱2╱ // 0x17f3 @0x6
0x17ed…17fe at0007 = ╱3a╱:╱ // 0x17f4 @0x7
0x17ed…17fe at0008 = ╱5b╱Æ╱ // 0x17f5 @0x8
0x17ed…17fe at0009 = ╱6e╱n╱ // 0x17f6 @0x9
0x17ed…17fe at000a = ╱64╱d╱ // 0x17f7 @0xa
0x17ed…17fe at000b = ╱72╱r╱ // 0x17f8 @0xb
0x17ed…17fe at000c = ╱69╱i╱ // 0x17f9 @0xc
0x17ed…17fe at000d = ╱6e╱n╱ // 0x17fa @0xd
0x17ed…17fe at000e = ╱67╱g╱ // 0x17fb @0xe
0x17ed…17fe at000f = ╱22╱"╱ // 0x17fc @0xf
0x17ed…17fe at0010 = EOL // 0x17fd @0x10
0x17ed…17fe }
0x17fe…1813 a56a 2740 CURSOR 21,11
0x17fe…1813 LineComalBin {
0x17fe…1813 ptr = 0xa56a // 0x17fe @0x0
0x17fe…1813 lno = 0x0ab4 // 0x1800 @0x2
0x17fe…1813 at0004 = ╱a1╱ CURSOR ╱ // 0x1802 @0x4
0x17fe…1813 at0005 = ╱32╱2╱ // 0x1803 @0x5
0x17fe…1813 at0006 = ╱31╱1╱ // 0x1804 @0x6
0x17fe…1813 at0007 = ╱fe0000a805╱ // 0x1805 @0x7
0x17fe…1813 at000c = ╱ec╱,╱ // 0x180a @0xc
0x17fe…1813 at000d = ╱31╱1╱ // 0x180b @0xd
0x17fe…1813 at000e = ╱31╱1╱ // 0x180c @0xe
0x17fe…1813 at000f = ╱fe0000b004╱ // 0x180d @0xf
0x17fe…1813 at0014 = EOL // 0x1812 @0x14
0x17fe…1813 }
0x1813…1825 a57c 2750 PRINT "3:Sletning"
0x1813…1825 LineComalBin {
0x1813…1825 ptr = 0xa57c // 0x1813 @0x0
0x1813…1825 lno = 0x0abe // 0x1815 @0x2
0x1813…1825 at0004 = ╱92╱ PRINT ╱ // 0x1817 @0x4
0x1813…1825 at0005 = ╱22╱"╱ // 0x1818 @0x5
0x1813…1825 at0006 = ╱33╱3╱ // 0x1819 @0x6
0x1813…1825 at0007 = ╱3a╱:╱ // 0x181a @0x7
0x1813…1825 at0008 = ╱53╱S╱ // 0x181b @0x8
0x1813…1825 at0009 = ╱6c╱l╱ // 0x181c @0x9
0x1813…1825 at000a = ╱65╱e╱ // 0x181d @0xa
0x1813…1825 at000b = ╱74╱t╱ // 0x181e @0xb
0x1813…1825 at000c = ╱6e╱n╱ // 0x181f @0xc
0x1813…1825 at000d = ╱69╱i╱ // 0x1820 @0xd
0x1813…1825 at000e = ╱6e╱n╱ // 0x1821 @0xe
0x1813…1825 at000f = ╱67╱g╱ // 0x1822 @0xf
0x1813…1825 at0010 = ╱22╱"╱ // 0x1823 @0x10
0x1813…1825 at0011 = EOL // 0x1824 @0x11
0x1813…1825 }
0x1825…183a a591 2760 CURSOR 21,13
0x1825…183a LineComalBin {
0x1825…183a ptr = 0xa591 // 0x1825 @0x0
0x1825…183a lno = 0x0ac8 // 0x1827 @0x2
0x1825…183a at0004 = ╱a1╱ CURSOR ╱ // 0x1829 @0x4
0x1825…183a at0005 = ╱32╱2╱ // 0x182a @0x5
0x1825…183a at0006 = ╱31╱1╱ // 0x182b @0x6
0x1825…183a at0007 = ╱fe0000a805╱ // 0x182c @0x7
0x1825…183a at000c = ╱ec╱,╱ // 0x1831 @0xc
0x1825…183a at000d = ╱31╱1╱ // 0x1832 @0xd
0x1825…183a at000e = ╱33╱3╱ // 0x1833 @0xe
0x1825…183a at000f = ╱fe0000d004╱ // 0x1834 @0xf
0x1825…183a at0014 = EOL // 0x1839 @0x14
0x1825…183a }
0x183a…184c a5a3 2770 PRINT "4:Udskrift"
0x183a…184c LineComalBin {
0x183a…184c ptr = 0xa5a3 // 0x183a @0x0
0x183a…184c lno = 0x0ad2 // 0x183c @0x2
0x183a…184c at0004 = ╱92╱ PRINT ╱ // 0x183e @0x4
0x183a…184c at0005 = ╱22╱"╱ // 0x183f @0x5
0x183a…184c at0006 = ╱34╱4╱ // 0x1840 @0x6
0x183a…184c at0007 = ╱3a╱:╱ // 0x1841 @0x7
0x183a…184c at0008 = ╱55╱U╱ // 0x1842 @0x8
0x183a…184c at0009 = ╱64╱d╱ // 0x1843 @0x9
0x183a…184c at000a = ╱73╱s╱ // 0x1844 @0xa
0x183a…184c at000b = ╱6b╱k╱ // 0x1845 @0xb
0x183a…184c at000c = ╱72╱r╱ // 0x1846 @0xc
0x183a…184c at000d = ╱69╱i╱ // 0x1847 @0xd
0x183a…184c at000e = ╱66╱f╱ // 0x1848 @0xe
0x183a…184c at000f = ╱74╱t╱ // 0x1849 @0xf
0x183a…184c at0010 = ╱22╱"╱ // 0x184a @0x10
0x183a…184c at0011 = EOL // 0x184b @0x11
0x183a…184c }
0x184c…1861 a5b8 2780 CURSOR 21,15
0x184c…1861 LineComalBin {
0x184c…1861 ptr = 0xa5b8 // 0x184c @0x0
0x184c…1861 lno = 0x0adc // 0x184e @0x2
0x184c…1861 at0004 = ╱a1╱ CURSOR ╱ // 0x1850 @0x4
0x184c…1861 at0005 = ╱32╱2╱ // 0x1851 @0x5
0x184c…1861 at0006 = ╱31╱1╱ // 0x1852 @0x6
0x184c…1861 at0007 = ╱fe0000a805╱ // 0x1853 @0x7
0x184c…1861 at000c = ╱ec╱,╱ // 0x1858 @0xc
0x184c…1861 at000d = ╱31╱1╱ // 0x1859 @0xd
0x184c…1861 at000e = ╱35╱5╱ // 0x185a @0xe
0x184c…1861 at000f = ╱fe0000f004╱ // 0x185b @0xf
0x184c…1861 at0014 = EOL // 0x1860 @0x14
0x184c…1861 }
0x1861…187f a5d6 2790 PRINT "5:Entreprisekontoliste"
0x1861…187f LineComalBin {
0x1861…187f ptr = 0xa5d6 // 0x1861 @0x0
0x1861…187f lno = 0x0ae6 // 0x1863 @0x2
0x1861…187f at0004 = ╱92╱ PRINT ╱ // 0x1865 @0x4
0x1861…187f at0005 = ╱22╱"╱ // 0x1866 @0x5
0x1861…187f at0006 = ╱35╱5╱ // 0x1867 @0x6
0x1861…187f at0007 = ╱3a╱:╱ // 0x1868 @0x7
0x1861…187f at0008 = ╱45╱E╱ // 0x1869 @0x8
0x1861…187f at0009 = ╱6e╱n╱ // 0x186a @0x9
0x1861…187f at000a = ╱74╱t╱ // 0x186b @0xa
0x1861…187f at000b = ╱72╱r╱ // 0x186c @0xb
0x1861…187f at000c = ╱65╱e╱ // 0x186d @0xc
0x1861…187f at000d = ╱70╱p╱ // 0x186e @0xd
0x1861…187f at000e = ╱72╱r╱ // 0x186f @0xe
0x1861…187f at000f = ╱69╱i╱ // 0x1870 @0xf
0x1861…187f at0010 = ╱73╱s╱ // 0x1871 @0x10
0x1861…187f at0011 = ╱65╱e╱ // 0x1872 @0x11
0x1861…187f at0012 = ╱6b╱k╱ // 0x1873 @0x12
0x1861…187f at0013 = ╱6f╱o╱ // 0x1874 @0x13
0x1861…187f at0014 = ╱6e╱n╱ // 0x1875 @0x14
0x1861…187f at0015 = ╱74╱t╱ // 0x1876 @0x15
0x1861…187f at0016 = ╱6f╱o╱ // 0x1877 @0x16
0x1861…187f at0017 = ╱6c╱l╱ // 0x1878 @0x17
0x1861…187f at0018 = ╱69╱i╱ // 0x1879 @0x18
0x1861…187f at0019 = ╱73╱s╱ // 0x187a @0x19
0x1861…187f at001a = ╱74╱t╱ // 0x187b @0x1a
0x1861…187f at001b = ╱65╱e╱ // 0x187c @0x1b
0x1861…187f at001c = ╱22╱"╱ // 0x187d @0x1c
0x1861…187f at001d = EOL // 0x187e @0x1d
0x1861…187f }
0x187f…1885 a5dc 2800 REPEAT
0x187f…1885 LineComalBin {
0x187f…1885 ptr = 0xa5dc // 0x187f @0x0
0x187f…1885 lno = 0x0af0 // 0x1881 @0x2
0x187f…1885 at0004 = ╱97╱ REPEAT ╱ // 0x1883 @0x4
0x187f…1885 at0005 = EOL // 0x1884 @0x5
0x187f…1885 }
0x1885…189a a5f1 2810 CURSOR 23,17
0x1885…189a LineComalBin {
0x1885…189a ptr = 0xa5f1 // 0x1885 @0x0
0x1885…189a lno = 0x0afa // 0x1887 @0x2
0x1885…189a at0004 = ╱a1╱ CURSOR ╱ // 0x1889 @0x4
0x1885…189a at0005 = ╱32╱2╱ // 0x188a @0x5
0x1885…189a at0006 = ╱33╱3╱ // 0x188b @0x6
0x1885…189a at0007 = ╱fe0000b805╱ // 0x188c @0x7
0x1885…189a at000c = ╱ec╱,╱ // 0x1891 @0xc
0x1885…189a at000d = ╱31╱1╱ // 0x1892 @0xd
0x1885…189a at000e = ╱37╱7╱ // 0x1893 @0xe
0x1885…189a at000f = ╱fe00008805╱ // 0x1894 @0xf
0x1885…189a at0014 = EOL // 0x1899 @0x14
0x1885…189a }
0x189a…18b5 a60c 2820 PRINT "Vælg type (0-5)"
0x189a…18b5 LineComalBin {
0x189a…18b5 ptr = 0xa60c // 0x189a @0x0
0x189a…18b5 lno = 0x0b04 // 0x189c @0x2
0x189a…18b5 at0004 = ╱92╱ PRINT ╱ // 0x189e @0x4
0x189a…18b5 at0005 = ╱22╱"╱ // 0x189f @0x5
0x189a…18b5 at0006 = ╱56╱V╱ // 0x18a0 @0x6
0x189a…18b5 at0007 = ╱7b╱æ╱ // 0x18a1 @0x7
0x189a…18b5 at0008 = ╱6c╱l╱ // 0x18a2 @0x8
0x189a…18b5 at0009 = ╱67╱g╱ // 0x18a3 @0x9
0x189a…18b5 at000a = ╱20╱…╱ // 0x18a4 @0xa
0x189a…18b5 at000b = ╱74╱t╱ // 0x18a5 @0xb
0x189a…18b5 at000c = ╱79╱y╱ // 0x18a6 @0xc
0x189a…18b5 at000d = ╱70╱p╱ // 0x18a7 @0xd
0x189a…18b5 at000e = ╱65╱e╱ // 0x18a8 @0xe
0x189a…18b5 at000f = ╱20╱…╱ // 0x18a9 @0xf
0x189a…18b5 at0010 = ╱20╱…╱ // 0x18aa @0x10
0x189a…18b5 at0011 = ╱20╱…╱ // 0x18ab @0x11
0x189a…18b5 at0012 = ╱20╱…╱ // 0x18ac @0x12
0x189a…18b5 at0013 = ╱20╱…╱ // 0x18ad @0x13
0x189a…18b5 at0014 = ╱28╱(╱ // 0x18ae @0x14
0x189a…18b5 at0015 = ╱30╱0╱ // 0x18af @0x15
0x189a…18b5 at0016 = ╱2d╱-╱ // 0x18b0 @0x16
0x189a…18b5 at0017 = ╱35╱5╱ // 0x18b1 @0x17
0x189a…18b5 at0018 = ╱29╱)╱ // 0x18b2 @0x18
0x189a…18b5 at0019 = ╱22╱"╱ // 0x18b3 @0x19
0x189a…18b5 at001a = EOL // 0x18b4 @0x1a
0x189a…18b5 }
0x18b5…18ca a621 2830 CURSOR 33,17
0x18b5…18ca LineComalBin {
0x18b5…18ca ptr = 0xa621 // 0x18b5 @0x0
0x18b5…18ca lno = 0x0b0e // 0x18b7 @0x2
0x18b5…18ca at0004 = ╱a1╱ CURSOR ╱ // 0x18b9 @0x4
0x18b5…18ca at0005 = ╱33╱3╱ // 0x18ba @0x5
0x18b5…18ca at0006 = ╱33╱3╱ // 0x18bb @0x6
0x18b5…18ca at0007 = ╱fe00008406╱ // 0x18bc @0x7
0x18b5…18ca at000c = ╱ec╱,╱ // 0x18c1 @0xc
0x18b5…18ca at000d = ╱31╱1╱ // 0x18c2 @0xd
0x18b5…18ca at000e = ╱37╱7╱ // 0x18c3 @0xe
0x18b5…18ca at000f = ╱fe00008805╱ // 0x18c4 @0xf
0x18b5…18ca at0014 = EOL // 0x18c9 @0x14
0x18b5…18ca }
0x18ca…18d2 a629 2840 INPUT A$
0x18ca…18d2 LineComalBin {
0x18ca…18d2 ptr = 0xa629 // 0x18ca @0x0
0x18ca…18d2 lno = 0x0b18 // 0x18cc @0x2
0x18ca…18d2 at0004 = ╱91╱ INPUT ╱ // 0x18ce @0x4
0x18ca…18d2 at0005 = ╱41╱A╱ // 0x18cf @0x5
0x18ca…18d2 at0006 = ╱ef╱$╱ // 0x18d0 @0x6
0x18ca…18d2 at0007 = EOL // 0x18d1 @0x7
0x18ca…18d2 }
0x18d2…18e2 a639 2850 EXEC NRTEST(A$)
0x18d2…18e2 LineComalBin {
0x18d2…18e2 ptr = 0xa639 // 0x18d2 @0x0
0x18d2…18e2 lno = 0x0b22 // 0x18d4 @0x2
0x18d2…18e2 at0004 = ╱9d╱ EXEC ╱ // 0x18d6 @0x4
0x18d2…18e2 at0005 = ╱4e╱N╱ // 0x18d7 @0x5
0x18d2…18e2 at0006 = ╱52╱R╱ // 0x18d8 @0x6
0x18d2…18e2 at0007 = ╱54╱T╱ // 0x18d9 @0x7
0x18d2…18e2 at0008 = ╱45╱E╱ // 0x18da @0x8
0x18d2…18e2 at0009 = ╱53╱S╱ // 0x18db @0x9
0x18d2…18e2 at000a = ╱54╱T╱ // 0x18dc @0xa
0x18d2…18e2 at000b = ╱ed╱(╱ // 0x18dd @0xb
0x18d2…18e2 at000c = ╱41╱A╱ // 0x18de @0xc
0x18d2…18e2 at000d = ╱ef╱$╱ // 0x18df @0xd
0x18d2…18e2 at000e = ╱ee╱)╱ // 0x18e0 @0xe
0x18d2…18e2 at000f = EOL // 0x18e1 @0xf
0x18d2…18e2 }
0x18e2…18f5 a64c 2860 UNTIL P>-E AND P<6
0x18e2…18f5 LineComalBin {
0x18e2…18f5 ptr = 0xa64c // 0x18e2 @0x0
0x18e2…18f5 lno = 0x0b2c // 0x18e4 @0x2
0x18e2…18f5 at0004 = ╱98╱ UNTIL ╱ // 0x18e6 @0x4
0x18e2…18f5 at0005 = ╱50╱P╱ // 0x18e7 @0x5
0x18e2…18f5 at0006 = ╱de╱>╱ // 0x18e8 @0x6
0x18e2…18f5 at0007 = ╱e9╱-╱ // 0x18e9 @0x7
0x18e2…18f5 at0008 = ╱45╱E╱ // 0x18ea @0x8
0x18e2…18f5 at0009 = ╱da╱ AND ╱ // 0x18eb @0x9
0x18e2…18f5 at000a = ╱50╱P╱ // 0x18ec @0xa
0x18e2…18f5 at000b = ╱dd╱<╱ // 0x18ed @0xb
0x18e2…18f5 at000c = ╱36╱6╱ // 0x18ee @0xc
0x18e2…18f5 at000d = ╱fe0000c003╱ // 0x18ef @0xd
0x18e2…18f5 at0012 = EOL // 0x18f4 @0x12
0x18e2…18f5 }
0x18f5…1900 a657 2870 TYPE=P
0x18f5…1900 LineComalBin {
0x18f5…1900 ptr = 0xa657 // 0x18f5 @0x0
0x18f5…1900 lno = 0x0b36 // 0x18f7 @0x2
0x18f5…1900 at0004 = ╱54╱T╱ // 0x18f9 @0x4
0x18f5…1900 at0005 = ╱59╱Y╱ // 0x18fa @0x5
0x18f5…1900 at0006 = ╱50╱P╱ // 0x18fb @0x6
0x18f5…1900 at0007 = ╱45╱E╱ // 0x18fc @0x7
0x18f5…1900 at0008 = ╱dc╱=╱ // 0x18fd @0x8
0x18f5…1900 at0009 = ╱50╱P╱ // 0x18fe @0x9
0x18f5…1900 at000a = EOL // 0x18ff @0xa
0x18f5…1900 }
0x1900…190e a665 2880 IF TYPE=B THEN EXIT
0x1900…190e LineComalBin {
0x1900…190e ptr = 0xa665 // 0x1900 @0x0
0x1900…190e lno = 0x0b40 // 0x1902 @0x2
0x1900…190e at0004 = ╱82╱ IF ╱ // 0x1904 @0x4
0x1900…190e at0005 = ╱54╱T╱ // 0x1905 @0x5
0x1900…190e at0006 = ╱59╱Y╱ // 0x1906 @0x6
0x1900…190e at0007 = ╱50╱P╱ // 0x1907 @0x7
0x1900…190e at0008 = ╱45╱E╱ // 0x1908 @0x8
0x1900…190e at0009 = ╱dc╱=╱ // 0x1909 @0x9
0x1900…190e at000a = ╱42╱B╱ // 0x190a @0xa
0x1900…190e at000b = ╱b6╱ THEN ╱ // 0x190b @0xb
0x1900…190e at000c = ╱99╱ EXIT ╱ // 0x190c @0xc
0x1900…190e at000d = EOL // 0x190d @0xd
0x1900…190e }
0x190e…1914 a66b 2890 REPEAT
0x190e…1914 LineComalBin {
0x190e…1914 ptr = 0xa66b // 0x190e @0x0
0x190e…1914 lno = 0x0b4a // 0x1910 @0x2
0x190e…1914 at0004 = ╱97╱ REPEAT ╱ // 0x1912 @0x4
0x190e…1914 at0005 = EOL // 0x1913 @0x5
0x190e…1914 }
0x1914…1923 a67a 2900 EXEC VERSKRIFT
0x1914…1923 LineComalBin {
0x1914…1923 ptr = 0xa67a // 0x1914 @0x0
0x1914…1923 lno = 0x0b54 // 0x1916 @0x2
0x1914…1923 at0004 = ╱9d╱ EXEC ╱ // 0x1918 @0x4
0x1914…1923 at0005 = ╱56╱V╱ // 0x1919 @0x5
0x1914…1923 at0006 = ╱45╱E╱ // 0x191a @0x6
0x1914…1923 at0007 = ╱52╱R╱ // 0x191b @0x7
0x1914…1923 at0008 = ╱53╱S╱ // 0x191c @0x8
0x1914…1923 at0009 = ╱4b╱K╱ // 0x191d @0x9
0x1914…1923 at000a = ╱52╱R╱ // 0x191e @0xa
0x1914…1923 at000b = ╱49╱I╱ // 0x191f @0xb
0x1914…1923 at000c = ╱46╱F╱ // 0x1920 @0xc
0x1914…1923 at000d = ╱54╱T╱ // 0x1921 @0xd
0x1914…1923 at000e = EOL // 0x1922 @0xe
0x1914…1923 }
0x1923…192e a685 2910 KONT=E
0x1923…192e LineComalBin {
0x1923…192e ptr = 0xa685 // 0x1923 @0x0
0x1923…192e lno = 0x0b5e // 0x1925 @0x2
0x1923…192e at0004 = ╱4b╱K╱ // 0x1927 @0x4
0x1923…192e at0005 = ╱4f╱O╱ // 0x1928 @0x5
0x1923…192e at0006 = ╱4e╱N╱ // 0x1929 @0x6
0x1923…192e at0007 = ╱54╱T╱ // 0x192a @0x7
0x1923…192e at0008 = ╱dc╱=╱ // 0x192b @0x8
0x1923…192e at0009 = ╱45╱E╱ // 0x192c @0x9
0x1923…192e at000a = EOL // 0x192d @0xa
0x1923…192e }
0x192e…1940 a697 2920 IF TYPE<5 THEN
0x192e…1940 LineComalBin {
0x192e…1940 ptr = 0xa697 // 0x192e @0x0
0x192e…1940 lno = 0x0b68 // 0x1930 @0x2
0x192e…1940 at0004 = ╱9c╱ IF ╱ // 0x1932 @0x4
0x192e…1940 at0005 = ╱54╱T╱ // 0x1933 @0x5
0x192e…1940 at0006 = ╱59╱Y╱ // 0x1934 @0x6
0x192e…1940 at0007 = ╱50╱P╱ // 0x1935 @0x7
0x192e…1940 at0008 = ╱45╱E╱ // 0x1936 @0x8
0x192e…1940 at0009 = ╱dd╱<╱ // 0x1937 @0x9
0x192e…1940 at000a = ╱35╱5╱ // 0x1938 @0xa
0x192e…1940 at000b = ╱fe0000a003╱ // 0x1939 @0xb
0x192e…1940 at0010 = ╱b6╱ THEN ╱ // 0x193e @0x10
0x192e…1940 at0011 = EOL // 0x193f @0x11
0x192e…1940 }
0x1940…1946 a69d 2930 REPEAT
0x1940…1946 LineComalBin {
0x1940…1946 ptr = 0xa69d // 0x1940 @0x0
0x1940…1946 lno = 0x0b72 // 0x1942 @0x2
0x1940…1946 at0004 = ╱97╱ REPEAT ╱ // 0x1944 @0x4
0x1940…1946 at0005 = EOL // 0x1945 @0x5
0x1940…1946 }
0x1946…194c a6a3 2940 REPEAT
0x1946…194c LineComalBin {
0x1946…194c ptr = 0xa6a3 // 0x1946 @0x0
0x1946…194c lno = 0x0b7c // 0x1948 @0x2
0x1946…194c at0004 = ╱97╱ REPEAT ╱ // 0x194a @0x4
0x1946…194c at0005 = EOL // 0x194b @0x5
0x1946…194c }
0x194c…195b a6b2 2950 CURSOR V,23
0x194c…195b LineComalBin {
0x194c…195b ptr = 0xa6b2 // 0x194c @0x0
0x194c…195b lno = 0x0b86 // 0x194e @0x2
0x194c…195b at0004 = ╱a1╱ CURSOR ╱ // 0x1950 @0x4
0x194c…195b at0005 = ╱56╱V╱ // 0x1951 @0x5
0x194c…195b at0006 = ╱ec╱,╱ // 0x1952 @0x6
0x194c…195b at0007 = ╱32╱2╱ // 0x1953 @0x7
0x194c…195b at0008 = ╱33╱3╱ // 0x1954 @0x8
0x194c…195b at0009 = ╱fe0000b805╱ // 0x1955 @0x9
0x194c…195b at000e = EOL // 0x195a @0xe
0x194c…195b }
0x195b…199e a6f5 2960 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35)
0x195b…199e LineComalBin {
0x195b…199e ptr = 0xa6f5 // 0x195b @0x0
0x195b…199e lno = 0x0b90 // 0x195d @0x2
0x195b…199e at0004 = ╱92╱ PRINT ╱ // 0x195f @0x4
0x195b…199e at0005 = ╱22╱"╱ // 0x1960 @0x5
0x195b…199e at0006 = ╱49╱I╱ // 0x1961 @0x6
0x195b…199e at0007 = ╱6e╱n╱ // 0x1962 @0x7
0x195b…199e at0008 = ╱64╱d╱ // 0x1963 @0x8
0x195b…199e at0009 = ╱74╱t╱ // 0x1964 @0x9
0x195b…199e at000a = ╱61╱a╱ // 0x1965 @0xa
0x195b…199e at000b = ╱73╱s╱ // 0x1966 @0xb
0x195b…199e at000c = ╱74╱t╱ // 0x1967 @0xc
0x195b…199e at000d = ╱20╱…╱ // 0x1968 @0xd
0x195b…199e at000e = ╱6e╱n╱ // 0x1969 @0xe
0x195b…199e at000f = ╱79╱y╱ // 0x196a @0xf
0x195b…199e at0010 = ╱74╱t╱ // 0x196b @0x10
0x195b…199e at0011 = ╱20╱…╱ // 0x196c @0x11
0x195b…199e at0012 = ╱6b╱k╱ // 0x196d @0x12
0x195b…199e at0013 = ╱6f╱o╱ // 0x196e @0x13
0x195b…199e at0014 = ╱6e╱n╱ // 0x196f @0x14
0x195b…199e at0015 = ╱74╱t╱ // 0x1970 @0x15
0x195b…199e at0016 = ╱6f╱o╱ // 0x1971 @0x16
0x195b…199e at0017 = ╱6e╱n╱ // 0x1972 @0x17
0x195b…199e at0018 = ╱72╱r╱ // 0x1973 @0x18
0x195b…199e at0019 = ╱20╱…╱ // 0x1974 @0x19
0x195b…199e at001a = ╱20╱…╱ // 0x1975 @0x1a
0x195b…199e at001b = ╱20╱…╱ // 0x1976 @0x1b
0x195b…199e at001c = ╱20╱…╱ // 0x1977 @0x1c
0x195b…199e at001d = ╱20╱…╱ // 0x1978 @0x1d
0x195b…199e at001e = ╱20╱…╱ // 0x1979 @0x1e
0x195b…199e at001f = ╱20╱…╱ // 0x197a @0x1f
0x195b…199e at0020 = ╱20╱…╱ // 0x197b @0x20
0x195b…199e at0021 = ╱28╱(╱ // 0x197c @0x21
0x195b…199e at0022 = ╱30╱0╱ // 0x197d @0x22
0x195b…199e at0023 = ╱3a╱:╱ // 0x197e @0x23
0x195b…199e at0024 = ╱66╱f╱ // 0x197f @0x24
0x195b…199e at0025 = ╱6f╱o╱ // 0x1980 @0x25
0x195b…199e at0026 = ╱72╱r╱ // 0x1981 @0x26
0x195b…199e at0027 = ╱20╱…╱ // 0x1982 @0x27
0x195b…199e at0028 = ╱66╱f╱ // 0x1983 @0x28
0x195b…199e at0029 = ╱7b╱æ╱ // 0x1984 @0x29
0x195b…199e at002a = ╱72╱r╱ // 0x1985 @0x2a
0x195b…199e at002b = ╱64╱d╱ // 0x1986 @0x2b
0x195b…199e at002c = ╱69╱i╱ // 0x1987 @0x2c
0x195b…199e at002d = ╱67╱g╱ // 0x1988 @0x2d
0x195b…199e at002e = ╱29╱)╱ // 0x1989 @0x2e
0x195b…199e at002f = ╱22╱"╱ // 0x198a @0x2f
0x195b…199e at0030 = ╱eb╱;╱ // 0x198b @0x30
0x195b…199e at0031 = ╱42╱B╱ // 0x198c @0x31
0x195b…199e at0032 = ╱4c╱L╱ // 0x198d @0x32
0x195b…199e at0033 = ╱41╱A╱ // 0x198e @0x33
0x195b…199e at0034 = ╱4e╱N╱ // 0x198f @0x34
0x195b…199e at0035 = ╱4b╱K╱ // 0x1990 @0x35
0x195b…199e at0036 = ╱ef╱$╱ // 0x1991 @0x36
0x195b…199e at0037 = ╱ed╱(╱ // 0x1992 @0x37
0x195b…199e at0038 = ╱45╱E╱ // 0x1993 @0x38
0x195b…199e at0039 = ╱f0╱:╱ // 0x1994 @0x39
0x195b…199e at003a = ╱33╱3╱ // 0x1995 @0x3a
0x195b…199e at003b = ╱35╱5╱ // 0x1996 @0x3b
0x195b…199e at003c = ╱fe00008c06╱ // 0x1997 @0x3c
0x195b…199e at0041 = ╱ee╱)╱ // 0x199c @0x41
0x195b…199e at0042 = EOL // 0x199d @0x42
0x195b…199e }
0x199e…19b3 a70a 2970 CURSOR 22,23
0x199e…19b3 LineComalBin {
0x199e…19b3 ptr = 0xa70a // 0x199e @0x0
0x199e…19b3 lno = 0x0b9a // 0x19a0 @0x2
0x199e…19b3 at0004 = ╱a1╱ CURSOR ╱ // 0x19a2 @0x4
0x199e…19b3 at0005 = ╱32╱2╱ // 0x19a3 @0x5
0x199e…19b3 at0006 = ╱32╱2╱ // 0x19a4 @0x6
0x199e…19b3 at0007 = ╱fe0000b005╱ // 0x19a5 @0x7
0x199e…19b3 at000c = ╱ec╱,╱ // 0x19aa @0xc
0x199e…19b3 at000d = ╱32╱2╱ // 0x19ab @0xd
0x199e…19b3 at000e = ╱33╱3╱ // 0x19ac @0xe
0x199e…19b3 at000f = ╱fe0000b805╱ // 0x19ad @0xf
0x199e…19b3 at0014 = EOL // 0x19b2 @0x14
0x199e…19b3 }
0x19b3…19bd a714 2980 INPUT KTN$
0x19b3…19bd LineComalBin {
0x19b3…19bd ptr = 0xa714 // 0x19b3 @0x0
0x19b3…19bd lno = 0x0ba4 // 0x19b5 @0x2
0x19b3…19bd at0004 = ╱91╱ INPUT ╱ // 0x19b7 @0x4
0x19b3…19bd at0005 = ╱4b╱K╱ // 0x19b8 @0x5
0x19b3…19bd at0006 = ╱54╱T╱ // 0x19b9 @0x6
0x19b3…19bd at0007 = ╱4e╱N╱ // 0x19ba @0x7
0x19b3…19bd at0008 = ╱ef╱$╱ // 0x19bb @0x8
0x19b3…19bd at0009 = EOL // 0x19bc @0x9
0x19b3…19bd }
0x19bd…19cf a726 2990 EXEC NRTEST(KTN$)
0x19bd…19cf LineComalBin {
0x19bd…19cf ptr = 0xa726 // 0x19bd @0x0
0x19bd…19cf lno = 0x0bae // 0x19bf @0x2
0x19bd…19cf at0004 = ╱9d╱ EXEC ╱ // 0x19c1 @0x4
0x19bd…19cf at0005 = ╱4e╱N╱ // 0x19c2 @0x5
0x19bd…19cf at0006 = ╱52╱R╱ // 0x19c3 @0x6
0x19bd…19cf at0007 = ╱54╱T╱ // 0x19c4 @0x7
0x19bd…19cf at0008 = ╱45╱E╱ // 0x19c5 @0x8
0x19bd…19cf at0009 = ╱53╱S╱ // 0x19c6 @0x9
0x19bd…19cf at000a = ╱54╱T╱ // 0x19c7 @0xa
0x19bd…19cf at000b = ╱ed╱(╱ // 0x19c8 @0xb
0x19bd…19cf at000c = ╱4b╱K╱ // 0x19c9 @0xc
0x19bd…19cf at000d = ╱54╱T╱ // 0x19ca @0xd
0x19bd…19cf at000e = ╱4e╱N╱ // 0x19cb @0xe
0x19bd…19cf at000f = ╱ef╱$╱ // 0x19cc @0xf
0x19bd…19cf at0010 = ╱ee╱)╱ // 0x19cd @0x10
0x19bd…19cf at0011 = EOL // 0x19ce @0x11
0x19bd…19cf }
0x19cf…19f0 a747 3000 UNTIL P=B OR (P<1000 AND P>99)
0x19cf…19f0 LineComalBin {
0x19cf…19f0 ptr = 0xa747 // 0x19cf @0x0
0x19cf…19f0 lno = 0x0bb8 // 0x19d1 @0x2
0x19cf…19f0 at0004 = ╱98╱ UNTIL ╱ // 0x19d3 @0x4
0x19cf…19f0 at0005 = ╱50╱P╱ // 0x19d4 @0x5
0x19cf…19f0 at0006 = ╱dc╱=╱ // 0x19d5 @0x6
0x19cf…19f0 at0007 = ╱42╱B╱ // 0x19d6 @0x7
0x19cf…19f0 at0008 = ╱db╱ OR ╱ // 0x19d7 @0x8
0x19cf…19f0 at0009 = ╱ed╱(╱ // 0x19d8 @0x9
0x19cf…19f0 at000a = ╱50╱P╱ // 0x19d9 @0xa
0x19cf…19f0 at000b = ╱dd╱<╱ // 0x19da @0xb
0x19cf…19f0 at000c = ╱31╱1╱ // 0x19db @0xc
0x19cf…19f0 at000d = ╱30╱0╱ // 0x19dc @0xd
0x19cf…19f0 at000e = ╱30╱0╱ // 0x19dd @0xe
0x19cf…19f0 at000f = ╱30╱0╱ // 0x19de @0xf
0x19cf…19f0 at0010 = ╱fe0000fa0a╱ // 0x19df @0x10
0x19cf…19f0 at0015 = ╱da╱ AND ╱ // 0x19e4 @0x15
0x19cf…19f0 at0016 = ╱50╱P╱ // 0x19e5 @0x16
0x19cf…19f0 at0017 = ╱de╱>╱ // 0x19e6 @0x17
0x19cf…19f0 at0018 = ╱39╱9╱ // 0x19e7 @0x18
0x19cf…19f0 at0019 = ╱39╱9╱ // 0x19e8 @0x19
0x19cf…19f0 at001a = ╱fe0000c607╱ // 0x19e9 @0x1a
0x19cf…19f0 at001f = ╱ee╱)╱ // 0x19ee @0x1f
0x19cf…19f0 at0020 = EOL // 0x19ef @0x20
0x19cf…19f0 }
0x19f0…19fb a752 3010 KONT=P
0x19f0…19fb LineComalBin {
0x19f0…19fb ptr = 0xa752 // 0x19f0 @0x0
0x19f0…19fb lno = 0x0bc2 // 0x19f2 @0x2
0x19f0…19fb at0004 = ╱4b╱K╱ // 0x19f4 @0x4
0x19f0…19fb at0005 = ╱4f╱O╱ // 0x19f5 @0x5
0x19f0…19fb at0006 = ╱4e╱N╱ // 0x19f6 @0x6
0x19f0…19fb at0007 = ╱54╱T╱ // 0x19f7 @0x7
0x19f0…19fb at0008 = ╱dc╱=╱ // 0x19f8 @0x8
0x19f0…19fb at0009 = ╱50╱P╱ // 0x19f9 @0x9
0x19f0…19fb at000a = EOL // 0x19fa @0xa
0x19f0…19fb }
0x19fb…1a09 a760 3020 IF KONT=B THEN EXIT
0x19fb…1a09 LineComalBin {
0x19fb…1a09 ptr = 0xa760 // 0x19fb @0x0
0x19fb…1a09 lno = 0x0bcc // 0x19fd @0x2
0x19fb…1a09 at0004 = ╱82╱ IF ╱ // 0x19ff @0x4
0x19fb…1a09 at0005 = ╱4b╱K╱ // 0x1a00 @0x5
0x19fb…1a09 at0006 = ╱4f╱O╱ // 0x1a01 @0x6
0x19fb…1a09 at0007 = ╱4e╱N╱ // 0x1a02 @0x7
0x19fb…1a09 at0008 = ╱54╱T╱ // 0x1a03 @0x8
0x19fb…1a09 at0009 = ╱dc╱=╱ // 0x1a04 @0x9
0x19fb…1a09 at000a = ╱42╱B╱ // 0x1a05 @0xa
0x19fb…1a09 at000b = ╱b6╱ THEN ╱ // 0x1a06 @0xb
0x19fb…1a09 at000c = ╱99╱ EXIT ╱ // 0x1a07 @0xc
0x19fb…1a09 at000d = EOL // 0x1a08 @0xd
0x19fb…1a09 }
0x1a09…1a30 a787 3030 EXEC FINDPOST(ETAB,MEANTAL,KONT,EPIL3)
0x1a09…1a30 LineComalBin {
0x1a09…1a30 ptr = 0xa787 // 0x1a09 @0x0
0x1a09…1a30 lno = 0x0bd6 // 0x1a0b @0x2
0x1a09…1a30 at0004 = ╱9d╱ EXEC ╱ // 0x1a0d @0x4
0x1a09…1a30 at0005 = ╱46╱F╱ // 0x1a0e @0x5
0x1a09…1a30 at0006 = ╱49╱I╱ // 0x1a0f @0x6
0x1a09…1a30 at0007 = ╱4e╱N╱ // 0x1a10 @0x7
0x1a09…1a30 at0008 = ╱44╱D╱ // 0x1a11 @0x8
0x1a09…1a30 at0009 = ╱50╱P╱ // 0x1a12 @0x9
0x1a09…1a30 at000a = ╱4f╱O╱ // 0x1a13 @0xa
0x1a09…1a30 at000b = ╱53╱S╱ // 0x1a14 @0xb
0x1a09…1a30 at000c = ╱54╱T╱ // 0x1a15 @0xc
0x1a09…1a30 at000d = ╱ed╱(╱ // 0x1a16 @0xd
0x1a09…1a30 at000e = ╱45╱E╱ // 0x1a17 @0xe
0x1a09…1a30 at000f = ╱54╱T╱ // 0x1a18 @0xf
0x1a09…1a30 at0010 = ╱41╱A╱ // 0x1a19 @0x10
0x1a09…1a30 at0011 = ╱42╱B╱ // 0x1a1a @0x11
0x1a09…1a30 at0012 = ╱ec╱,╱ // 0x1a1b @0x12
0x1a09…1a30 at0013 = ╱4d╱M╱ // 0x1a1c @0x13
0x1a09…1a30 at0014 = ╱45╱E╱ // 0x1a1d @0x14
0x1a09…1a30 at0015 = ╱41╱A╱ // 0x1a1e @0x15
0x1a09…1a30 at0016 = ╱4e╱N╱ // 0x1a1f @0x16
0x1a09…1a30 at0017 = ╱54╱T╱ // 0x1a20 @0x17
0x1a09…1a30 at0018 = ╱41╱A╱ // 0x1a21 @0x18
0x1a09…1a30 at0019 = ╱4c╱L╱ // 0x1a22 @0x19
0x1a09…1a30 at001a = ╱ec╱,╱ // 0x1a23 @0x1a
0x1a09…1a30 at001b = ╱4b╱K╱ // 0x1a24 @0x1b
0x1a09…1a30 at001c = ╱4f╱O╱ // 0x1a25 @0x1c
0x1a09…1a30 at001d = ╱4e╱N╱ // 0x1a26 @0x1d
0x1a09…1a30 at001e = ╱54╱T╱ // 0x1a27 @0x1e
0x1a09…1a30 at001f = ╱ec╱,╱ // 0x1a28 @0x1f
0x1a09…1a30 at0020 = ╱45╱E╱ // 0x1a29 @0x20
0x1a09…1a30 at0021 = ╱50╱P╱ // 0x1a2a @0x21
0x1a09…1a30 at0022 = ╱49╱I╱ // 0x1a2b @0x22
0x1a09…1a30 at0023 = ╱4c╱L╱ // 0x1a2c @0x23
0x1a09…1a30 at0024 = ╱33╱3╱ // 0x1a2d @0x24
0x1a09…1a30 at0025 = ╱ee╱)╱ // 0x1a2e @0x25
0x1a09…1a30 at0026 = EOL // 0x1a2f @0x26
0x1a09…1a30 }
0x1a30…1a36 a78d 3040 REPEAT
0x1a30…1a36 LineComalBin {
0x1a30…1a36 ptr = 0xa78d // 0x1a30 @0x0
0x1a30…1a36 lno = 0x0be0 // 0x1a32 @0x2
0x1a30…1a36 at0004 = ╱97╱ REPEAT ╱ // 0x1a34 @0x4
0x1a30…1a36 at0005 = EOL // 0x1a35 @0x5
0x1a30…1a36 }
0x1a36…1a4b a7a2 3050 CURSOR 44,23
0x1a36…1a4b LineComalBin {
0x1a36…1a4b ptr = 0xa7a2 // 0x1a36 @0x0
0x1a36…1a4b lno = 0x0bea // 0x1a38 @0x2
0x1a36…1a4b at0004 = ╱a1╱ CURSOR ╱ // 0x1a3a @0x4
0x1a36…1a4b at0005 = ╱34╱4╱ // 0x1a3b @0x5
0x1a36…1a4b at0006 = ╱34╱4╱ // 0x1a3c @0x6
0x1a36…1a4b at0007 = ╱fe0000b006╱ // 0x1a3d @0x7
0x1a36…1a4b at000c = ╱ec╱,╱ // 0x1a42 @0xc
0x1a36…1a4b at000d = ╱32╱2╱ // 0x1a43 @0xd
0x1a36…1a4b at000e = ╱33╱3╱ // 0x1a44 @0xe
0x1a36…1a4b at000f = ╱fe0000b805╱ // 0x1a45 @0xf
0x1a36…1a4b at0014 = EOL // 0x1a4a @0x14
0x1a36…1a4b }
0x1a4b…1a7e a7d5 3060 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AENT<MEANTAL) THEN
0x1a4b…1a7e LineComalBin {
0x1a4b…1a7e ptr = 0xa7d5 // 0x1a4b @0x0
0x1a4b…1a7e lno = 0x0bf4 // 0x1a4d @0x2
0x1a4b…1a7e at0004 = ╱9c╱ IF ╱ // 0x1a4f @0x4
0x1a4b…1a7e at0005 = ╱ed╱(╱ // 0x1a50 @0x5
0x1a4b…1a7e at0006 = ╱43╱C╱ // 0x1a51 @0x6
0x1a4b…1a7e at0007 = ╱45╱E╱ // 0x1a52 @0x7
0x1a4b…1a7e at0008 = ╱4b╱K╱ // 0x1a53 @0x8
0x1a4b…1a7e at0009 = ╱53╱S╱ // 0x1a54 @0x9
0x1a4b…1a7e at000a = ╱dc╱=╱ // 0x1a55 @0xa
0x1a4b…1a7e at000b = ╱42╱B╱ // 0x1a56 @0xb
0x1a4b…1a7e at000c = ╱da╱ AND ╱ // 0x1a57 @0xc
0x1a4b…1a7e at000d = ╱54╱T╱ // 0x1a58 @0xd
0x1a4b…1a7e at000e = ╱59╱Y╱ // 0x1a59 @0xe
0x1a4b…1a7e at000f = ╱50╱P╱ // 0x1a5a @0xf
0x1a4b…1a7e at0010 = ╱45╱E╱ // 0x1a5b @0x10
0x1a4b…1a7e at0011 = ╱e1╱<>╱ // 0x1a5c @0x11
0x1a4b…1a7e at0012 = ╱45╱E╱ // 0x1a5d @0x12
0x1a4b…1a7e at0013 = ╱ee╱)╱ // 0x1a5e @0x13
0x1a4b…1a7e at0014 = ╱db╱ OR ╱ // 0x1a5f @0x14
0x1a4b…1a7e at0015 = ╱ed╱(╱ // 0x1a60 @0x15
0x1a4b…1a7e at0016 = ╱43╱C╱ // 0x1a61 @0x16
0x1a4b…1a7e at0017 = ╱45╱E╱ // 0x1a62 @0x17
0x1a4b…1a7e at0018 = ╱4b╱K╱ // 0x1a63 @0x18
0x1a4b…1a7e at0019 = ╱53╱S╱ // 0x1a64 @0x19
0x1a4b…1a7e at001a = ╱dc╱=╱ // 0x1a65 @0x1a
0x1a4b…1a7e at001b = ╱45╱E╱ // 0x1a66 @0x1b
0x1a4b…1a7e at001c = ╱da╱ AND ╱ // 0x1a67 @0x1c
0x1a4b…1a7e at001d = ╱54╱T╱ // 0x1a68 @0x1d
0x1a4b…1a7e at001e = ╱59╱Y╱ // 0x1a69 @0x1e
0x1a4b…1a7e at001f = ╱50╱P╱ // 0x1a6a @0x1f
0x1a4b…1a7e at0020 = ╱45╱E╱ // 0x1a6b @0x20
0x1a4b…1a7e at0021 = ╱dc╱=╱ // 0x1a6c @0x21
0x1a4b…1a7e at0022 = ╱45╱E╱ // 0x1a6d @0x22
0x1a4b…1a7e at0023 = ╱da╱ AND ╱ // 0x1a6e @0x23
0x1a4b…1a7e at0024 = ╱41╱A╱ // 0x1a6f @0x24
0x1a4b…1a7e at0025 = ╱45╱E╱ // 0x1a70 @0x25
0x1a4b…1a7e at0026 = ╱4e╱N╱ // 0x1a71 @0x26
0x1a4b…1a7e at0027 = ╱54╱T╱ // 0x1a72 @0x27
0x1a4b…1a7e at0028 = ╱dd╱<╱ // 0x1a73 @0x28
0x1a4b…1a7e at0029 = ╱4d╱M╱ // 0x1a74 @0x29
0x1a4b…1a7e at002a = ╱45╱E╱ // 0x1a75 @0x2a
0x1a4b…1a7e at002b = ╱41╱A╱ // 0x1a76 @0x2b
0x1a4b…1a7e at002c = ╱4e╱N╱ // 0x1a77 @0x2c
0x1a4b…1a7e at002d = ╱54╱T╱ // 0x1a78 @0x2d
0x1a4b…1a7e at002e = ╱41╱A╱ // 0x1a79 @0x2e
0x1a4b…1a7e at002f = ╱4c╱L╱ // 0x1a7a @0x2f
0x1a4b…1a7e at0030 = ╱ee╱)╱ // 0x1a7b @0x30
0x1a4b…1a7e at0031 = ╱b6╱ THEN ╱ // 0x1a7c @0x31
0x1a4b…1a7e at0032 = EOL // 0x1a7d @0x32
0x1a4b…1a7e }
0x1a7e…1a95 a7ec 3070 PRINT BLANK$(E:35)
0x1a7e…1a95 LineComalBin {
0x1a7e…1a95 ptr = 0xa7ec // 0x1a7e @0x0
0x1a7e…1a95 lno = 0x0bfe // 0x1a80 @0x2
0x1a7e…1a95 at0004 = ╱92╱ PRINT ╱ // 0x1a82 @0x4
0x1a7e…1a95 at0005 = ╱42╱B╱ // 0x1a83 @0x5
0x1a7e…1a95 at0006 = ╱4c╱L╱ // 0x1a84 @0x6
0x1a7e…1a95 at0007 = ╱41╱A╱ // 0x1a85 @0x7
0x1a7e…1a95 at0008 = ╱4e╱N╱ // 0x1a86 @0x8
0x1a7e…1a95 at0009 = ╱4b╱K╱ // 0x1a87 @0x9
0x1a7e…1a95 at000a = ╱ef╱$╱ // 0x1a88 @0xa
0x1a7e…1a95 at000b = ╱ed╱(╱ // 0x1a89 @0xb
0x1a7e…1a95 at000c = ╱45╱E╱ // 0x1a8a @0xc
0x1a7e…1a95 at000d = ╱f0╱:╱ // 0x1a8b @0xd
0x1a7e…1a95 at000e = ╱33╱3╱ // 0x1a8c @0xe
0x1a7e…1a95 at000f = ╱35╱5╱ // 0x1a8d @0xf
0x1a7e…1a95 at0010 = ╱fe00008c06╱ // 0x1a8e @0x10
0x1a7e…1a95 at0015 = ╱ee╱)╱ // 0x1a93 @0x15
0x1a7e…1a95 at0016 = EOL // 0x1a94 @0x16
0x1a7e…1a95 }
0x1a95…1a9e a7f5 3080 P=-E
0x1a95…1a9e LineComalBin {
0x1a95…1a9e ptr = 0xa7f5 // 0x1a95 @0x0
0x1a95…1a9e lno = 0x0c08 // 0x1a97 @0x2
0x1a95…1a9e at0004 = ╱50╱P╱ // 0x1a99 @0x4
0x1a95…1a9e at0005 = ╱dc╱=╱ // 0x1a9a @0x5
0x1a95…1a9e at0006 = ╱e9╱-╱ // 0x1a9b @0x6
0x1a95…1a9e at0007 = ╱45╱E╱ // 0x1a9c @0x7
0x1a95…1a9e at0008 = EOL // 0x1a9d @0x8
0x1a95…1a9e }
0x1a9e…1aa4 a7fb 3090 ELSE
0x1a9e…1aa4 LineComalBin {
0x1a9e…1aa4 ptr = 0xa7fb // 0x1a9e @0x0
0x1a9e…1aa4 lno = 0x0c12 // 0x1aa0 @0x2
0x1a9e…1aa4 at0004 = ╱9a╱ ELSE ╱ // 0x1aa2 @0x4
0x1a9e…1aa4 at0005 = EOL // 0x1aa3 @0x5
0x1a9e…1aa4 }
0x1aa4…1ac5 a81c 3100 IF CEKS=E AND TYPE=E AND AENT=>MEANTAL THEN
0x1aa4…1ac5 LineComalBin {
0x1aa4…1ac5 ptr = 0xa81c // 0x1aa4 @0x0
0x1aa4…1ac5 lno = 0x0c1c // 0x1aa6 @0x2
0x1aa4…1ac5 at0004 = ╱9c╱ IF ╱ // 0x1aa8 @0x4
0x1aa4…1ac5 at0005 = ╱43╱C╱ // 0x1aa9 @0x5
0x1aa4…1ac5 at0006 = ╱45╱E╱ // 0x1aaa @0x6
0x1aa4…1ac5 at0007 = ╱4b╱K╱ // 0x1aab @0x7
0x1aa4…1ac5 at0008 = ╱53╱S╱ // 0x1aac @0x8
0x1aa4…1ac5 at0009 = ╱dc╱=╱ // 0x1aad @0x9
0x1aa4…1ac5 at000a = ╱45╱E╱ // 0x1aae @0xa
0x1aa4…1ac5 at000b = ╱da╱ AND ╱ // 0x1aaf @0xb
0x1aa4…1ac5 at000c = ╱54╱T╱ // 0x1ab0 @0xc
0x1aa4…1ac5 at000d = ╱59╱Y╱ // 0x1ab1 @0xd
0x1aa4…1ac5 at000e = ╱50╱P╱ // 0x1ab2 @0xe
0x1aa4…1ac5 at000f = ╱45╱E╱ // 0x1ab3 @0xf
0x1aa4…1ac5 at0010 = ╱dc╱=╱ // 0x1ab4 @0x10
0x1aa4…1ac5 at0011 = ╱45╱E╱ // 0x1ab5 @0x11
0x1aa4…1ac5 at0012 = ╱da╱ AND ╱ // 0x1ab6 @0x12
0x1aa4…1ac5 at0013 = ╱41╱A╱ // 0x1ab7 @0x13
0x1aa4…1ac5 at0014 = ╱45╱E╱ // 0x1ab8 @0x14
0x1aa4…1ac5 at0015 = ╱4e╱N╱ // 0x1ab9 @0x15
0x1aa4…1ac5 at0016 = ╱54╱T╱ // 0x1aba @0x16
0x1aa4…1ac5 at0017 = ╱e0╱=>╱ // 0x1abb @0x17
0x1aa4…1ac5 at0018 = ╱4d╱M╱ // 0x1abc @0x18
0x1aa4…1ac5 at0019 = ╱45╱E╱ // 0x1abd @0x19
0x1aa4…1ac5 at001a = ╱41╱A╱ // 0x1abe @0x1a
0x1aa4…1ac5 at001b = ╱4e╱N╱ // 0x1abf @0x1b
0x1aa4…1ac5 at001c = ╱54╱T╱ // 0x1ac0 @0x1c
0x1aa4…1ac5 at001d = ╱41╱A╱ // 0x1ac1 @0x1d
0x1aa4…1ac5 at001e = ╱4c╱L╱ // 0x1ac2 @0x1e
0x1aa4…1ac5 at001f = ╱b6╱ THEN ╱ // 0x1ac3 @0x1f
0x1aa4…1ac5 at0020 = EOL // 0x1ac4 @0x20
0x1aa4…1ac5 }
0x1ac5…1ad4 (89,) a82b 3110 CURSOR V,23
0x1ac5…1ad4 LineComalBin {
0x1ac5…1ad4 ptr = 0xa82b // 0x1ac5 @0x0
0x1ac5…1ad4 lno = 0x0c26 // 0x1ac7 @0x2
0x1ac5…1ad4 at0004 = ╱a1╱ CURSOR ╱ // 0x1ac9 @0x4
0x1ac5…1ad4 at0005 = ╱56╱V╱ // 0x1aca @0x5
0x1ac5…1ad4 at0006 = ╱ec╱,╱ // 0x1acb @0x6
0x1ac5…1ad4 at0007 = ╱32╱2╱ // 0x1acc @0x7
0x1ac5…1ad4 at0008 = ╱33╱3╱ // 0x1acd @0x8
0x1ac5…1ad4 at0009 = ╱fe0000b805╱ // 0x1ace @0x9
0x1ac5…1ad4 at000e = EOL // 0x1ad3 @0xe
0x1ac5…1ad4 }
0x1ad4…1b18 a86f 3120 INPUT "Ikke plads til flere konti , tast RETURN ",A$
0x1ad4…1b18 LineComalBin {
0x1ad4…1b18 ptr = 0xa86f // 0x1ad4 @0x0
0x1ad4…1b18 lno = 0x0c30 // 0x1ad6 @0x2
0x1ad4…1b18 at0004 = ╱91╱ INPUT ╱ // 0x1ad8 @0x4
0x1ad4…1b18 at0005 = ╱22╱"╱ // 0x1ad9 @0x5
0x1ad4…1b18 at0006 = ╱49╱I╱ // 0x1ada @0x6
0x1ad4…1b18 at0007 = ╱6b╱k╱ // 0x1adb @0x7
0x1ad4…1b18 at0008 = ╱6b╱k╱ // 0x1adc @0x8
0x1ad4…1b18 at0009 = ╱65╱e╱ // 0x1add @0x9
0x1ad4…1b18 at000a = ╱20╱…╱ // 0x1ade @0xa
0x1ad4…1b18 at000b = ╱70╱p╱ // 0x1adf @0xb
0x1ad4…1b18 at000c = ╱6c╱l╱ // 0x1ae0 @0xc
0x1ad4…1b18 at000d = ╱61╱a╱ // 0x1ae1 @0xd
0x1ad4…1b18 at000e = ╱64╱d╱ // 0x1ae2 @0xe
0x1ad4…1b18 at000f = ╱73╱s╱ // 0x1ae3 @0xf
0x1ad4…1b18 at0010 = ╱20╱…╱ // 0x1ae4 @0x10
0x1ad4…1b18 at0011 = ╱74╱t╱ // 0x1ae5 @0x11
0x1ad4…1b18 at0012 = ╱69╱i╱ // 0x1ae6 @0x12
0x1ad4…1b18 at0013 = ╱6c╱l╱ // 0x1ae7 @0x13
0x1ad4…1b18 at0014 = ╱20╱…╱ // 0x1ae8 @0x14
0x1ad4…1b18 at0015 = ╱66╱f╱ // 0x1ae9 @0x15
0x1ad4…1b18 at0016 = ╱6c╱l╱ // 0x1aea @0x16
0x1ad4…1b18 at0017 = ╱65╱e╱ // 0x1aeb @0x17
0x1ad4…1b18 at0018 = ╱72╱r╱ // 0x1aec @0x18
0x1ad4…1b18 at0019 = ╱65╱e╱ // 0x1aed @0x19
0x1ad4…1b18 at001a = ╱20╱…╱ // 0x1aee @0x1a
0x1ad4…1b18 at001b = ╱6b╱k╱ // 0x1aef @0x1b
0x1ad4…1b18 at001c = ╱6f╱o╱ // 0x1af0 @0x1c
0x1ad4…1b18 at001d = ╱6e╱n╱ // 0x1af1 @0x1d
0x1ad4…1b18 at001e = ╱74╱t╱ // 0x1af2 @0x1e
0x1ad4…1b18 at001f = ╱69╱i╱ // 0x1af3 @0x1f
0x1ad4…1b18 at0020 = ╱20╱…╱ // 0x1af4 @0x20
0x1ad4…1b18 at0021 = ╱2c╱,╱ // 0x1af5 @0x21
0x1ad4…1b18 at0022 = ╱20╱…╱ // 0x1af6 @0x22
0x1ad4…1b18 at0023 = ╱74╱t╱ // 0x1af7 @0x23
0x1ad4…1b18 at0024 = ╱61╱a╱ // 0x1af8 @0x24
0x1ad4…1b18 at0025 = ╱73╱s╱ // 0x1af9 @0x25
0x1ad4…1b18 at0026 = ╱74╱t╱ // 0x1afa @0x26
0x1ad4…1b18 at0027 = ╱20╱…╱ // 0x1afb @0x27
0x1ad4…1b18 at0028 = ╱52╱R╱ // 0x1afc @0x28
0x1ad4…1b18 at0029 = ╱45╱E╱ // 0x1afd @0x29
0x1ad4…1b18 at002a = ╱54╱T╱ // 0x1afe @0x2a
0x1ad4…1b18 at002b = ╱55╱U╱ // 0x1aff @0x2b
0x1ad4…1b18 at002c = ╱52╱R╱ // 0x1b00 @0x2c
0x1ad4…1b18 at002d = ╱4e╱N╱ // 0x1b01 @0x2d
0x1ad4…1b18 at002e = ╱20╱…╱ // 0x1b02 @0x2e
0x1ad4…1b18 at002f = ╱20╱…╱ // 0x1b03 @0x2f
0x1ad4…1b18 at0030 = ╱20╱…╱ // 0x1b04 @0x30
0x1ad4…1b18 at0031 = ╱20╱…╱ // 0x1b05 @0x31
0x1ad4…1b18 at0032 = ╱20╱…╱ // 0x1b06 @0x32
0x1ad4…1b18 at0033 = ╱20╱…╱ // 0x1b07 @0x33
0x1ad4…1b18 at0034 = ╱20╱…╱ // 0x1b08 @0x34
0x1ad4…1b18 at0035 = ╱20╱…╱ // 0x1b09 @0x35
0x1ad4…1b18 at0036 = ╱20╱…╱ // 0x1b0a @0x36
0x1ad4…1b18 at0037 = ╱20╱…╱ // 0x1b0b @0x37
0x1ad4…1b18 at0038 = ╱20╱…╱ // 0x1b0c @0x38
0x1ad4…1b18 at0039 = ╱20╱…╱ // 0x1b0d @0x39
0x1ad4…1b18 at003a = ╱20╱…╱ // 0x1b0e @0x3a
0x1ad4…1b18 at003b = ╱20╱…╱ // 0x1b0f @0x3b
0x1ad4…1b18 at003c = ╱20╱…╱ // 0x1b10 @0x3c
0x1ad4…1b18 at003d = ╱20╱…╱ // 0x1b11 @0x3d
0x1ad4…1b18 at003e = ╱20╱…╱ // 0x1b12 @0x3e
0x1ad4…1b18 at003f = ╱22╱"╱ // 0x1b13 @0x3f
0x1ad4…1b18 at0040 = ╱ec╱,╱ // 0x1b14 @0x40
0x1ad4…1b18 at0041 = ╱41╱A╱ // 0x1b15 @0x41
0x1ad4…1b18 at0042 = ╱ef╱$╱ // 0x1b16 @0x42
0x1ad4…1b18 at0043 = EOL // 0x1b17 @0x43
0x1ad4…1b18 }
0x1b18…1b1e a875 3130 ELSE
0x1b18…1b1e LineComalBin {
0x1b18…1b1e ptr = 0xa875 // 0x1b18 @0x0
0x1b18…1b1e lno = 0x0c3a // 0x1b1a @0x2
0x1b18…1b1e at0004 = ╱9a╱ ELSE ╱ // 0x1b1c @0x4
0x1b18…1b1e at0005 = EOL // 0x1b1d @0x5
0x1b18…1b1e }
0x1b1e…1b2b a882 3140 IF CEKS=B THEN
0x1b1e…1b2b LineComalBin {
0x1b1e…1b2b ptr = 0xa882 // 0x1b1e @0x0
0x1b1e…1b2b lno = 0x0c44 // 0x1b20 @0x2
0x1b1e…1b2b at0004 = ╱9c╱ IF ╱ // 0x1b22 @0x4
0x1b1e…1b2b at0005 = ╱43╱C╱ // 0x1b23 @0x5
0x1b1e…1b2b at0006 = ╱45╱E╱ // 0x1b24 @0x6
0x1b1e…1b2b at0007 = ╱4b╱K╱ // 0x1b25 @0x7
0x1b1e…1b2b at0008 = ╱53╱S╱ // 0x1b26 @0x8
0x1b1e…1b2b at0009 = ╱dc╱=╱ // 0x1b27 @0x9
0x1b1e…1b2b at000a = ╱42╱B╱ // 0x1b28 @0xa
0x1b1e…1b2b at000b = ╱b6╱ THEN ╱ // 0x1b29 @0xb
0x1b1e…1b2b at000c = EOL // 0x1b2a @0xc
0x1b1e…1b2b }
0x1b2b…1b59 a8b0 3150 INPUT "Konto eksisterer ,tast RETURN ",A$
0x1b2b…1b59 LineComalBin {
0x1b2b…1b59 ptr = 0xa8b0 // 0x1b2b @0x0
0x1b2b…1b59 lno = 0x0c4e // 0x1b2d @0x2
0x1b2b…1b59 at0004 = ╱91╱ INPUT ╱ // 0x1b2f @0x4
0x1b2b…1b59 at0005 = ╱22╱"╱ // 0x1b30 @0x5
0x1b2b…1b59 at0006 = ╱4b╱K╱ // 0x1b31 @0x6
0x1b2b…1b59 at0007 = ╱6f╱o╱ // 0x1b32 @0x7
0x1b2b…1b59 at0008 = ╱6e╱n╱ // 0x1b33 @0x8
0x1b2b…1b59 at0009 = ╱74╱t╱ // 0x1b34 @0x9
0x1b2b…1b59 at000a = ╱6f╱o╱ // 0x1b35 @0xa
0x1b2b…1b59 at000b = ╱20╱…╱ // 0x1b36 @0xb
0x1b2b…1b59 at000c = ╱65╱e╱ // 0x1b37 @0xc
0x1b2b…1b59 at000d = ╱6b╱k╱ // 0x1b38 @0xd
0x1b2b…1b59 at000e = ╱73╱s╱ // 0x1b39 @0xe
0x1b2b…1b59 at000f = ╱69╱i╱ // 0x1b3a @0xf
0x1b2b…1b59 at0010 = ╱73╱s╱ // 0x1b3b @0x10
0x1b2b…1b59 at0011 = ╱74╱t╱ // 0x1b3c @0x11
0x1b2b…1b59 at0012 = ╱65╱e╱ // 0x1b3d @0x12
0x1b2b…1b59 at0013 = ╱72╱r╱ // 0x1b3e @0x13
0x1b2b…1b59 at0014 = ╱65╱e╱ // 0x1b3f @0x14
0x1b2b…1b59 at0015 = ╱72╱r╱ // 0x1b40 @0x15
0x1b2b…1b59 at0016 = ╱20╱…╱ // 0x1b41 @0x16
0x1b2b…1b59 at0017 = ╱2c╱,╱ // 0x1b42 @0x17
0x1b2b…1b59 at0018 = ╱74╱t╱ // 0x1b43 @0x18
0x1b2b…1b59 at0019 = ╱61╱a╱ // 0x1b44 @0x19
0x1b2b…1b59 at001a = ╱73╱s╱ // 0x1b45 @0x1a
0x1b2b…1b59 at001b = ╱74╱t╱ // 0x1b46 @0x1b
0x1b2b…1b59 at001c = ╱20╱…╱ // 0x1b47 @0x1c
0x1b2b…1b59 at001d = ╱52╱R╱ // 0x1b48 @0x1d
0x1b2b…1b59 at001e = ╱45╱E╱ // 0x1b49 @0x1e
0x1b2b…1b59 at001f = ╱54╱T╱ // 0x1b4a @0x1f
0x1b2b…1b59 at0020 = ╱55╱U╱ // 0x1b4b @0x20
0x1b2b…1b59 at0021 = ╱52╱R╱ // 0x1b4c @0x21
0x1b2b…1b59 at0022 = ╱4e╱N╱ // 0x1b4d @0x22
0x1b2b…1b59 at0023 = ╱20╱…╱ // 0x1b4e @0x23
0x1b2b…1b59 at0024 = ╱20╱…╱ // 0x1b4f @0x24
0x1b2b…1b59 at0025 = ╱20╱…╱ // 0x1b50 @0x25
0x1b2b…1b59 at0026 = ╱20╱…╱ // 0x1b51 @0x26
0x1b2b…1b59 at0027 = ╱20╱…╱ // 0x1b52 @0x27
0x1b2b…1b59 at0028 = ╱20╱…╱ // 0x1b53 @0x28
0x1b2b…1b59 at0029 = ╱22╱"╱ // 0x1b54 @0x29
0x1b2b…1b59 at002a = ╱ec╱,╱ // 0x1b55 @0x2a
0x1b2b…1b59 at002b = ╱41╱A╱ // 0x1b56 @0x2b
0x1b2b…1b59 at002c = ╱ef╱$╱ // 0x1b57 @0x2c
0x1b2b…1b59 at002d = EOL // 0x1b58 @0x2d
0x1b2b…1b59 }
0x1b59…1b5f a8b6 3160 ELSE
0x1b59…1b5f LineComalBin {
0x1b59…1b5f ptr = 0xa8b6 // 0x1b59 @0x0
0x1b59…1b5f lno = 0x0c58 // 0x1b5b @0x2
0x1b59…1b5f at0004 = ╱9a╱ ELSE ╱ // 0x1b5d @0x4
0x1b59…1b5f at0005 = EOL // 0x1b5e @0x5
0x1b59…1b5f }
0x1b5f…1b8d (91,) a8e4 3170 INPUT "Konto eksisterer ikke , tast RETURN",A$
0x1b5f…1b8d LineComalBin {
0x1b5f…1b8d ptr = 0xa8e4 // 0x1b5f @0x0
0x1b5f…1b8d lno = 0x0c62 // 0x1b61 @0x2
0x1b5f…1b8d at0004 = ╱91╱ INPUT ╱ // 0x1b63 @0x4
0x1b5f…1b8d at0005 = ╱22╱"╱ // 0x1b64 @0x5
0x1b5f…1b8d at0006 = ╱4b╱K╱ // 0x1b65 @0x6
0x1b5f…1b8d at0007 = ╱6f╱o╱ // 0x1b66 @0x7
0x1b5f…1b8d at0008 = ╱6e╱n╱ // 0x1b67 @0x8
0x1b5f…1b8d at0009 = ╱74╱t╱ // 0x1b68 @0x9
0x1b5f…1b8d at000a = ╱6f╱o╱ // 0x1b69 @0xa
0x1b5f…1b8d at000b = ╱20╱…╱ // 0x1b6a @0xb
0x1b5f…1b8d at000c = ╱65╱e╱ // 0x1b6b @0xc
0x1b5f…1b8d at000d = ╱6b╱k╱ // 0x1b6c @0xd
0x1b5f…1b8d at000e = ╱73╱s╱ // 0x1b6d @0xe
0x1b5f…1b8d at000f = ╱69╱i╱ // 0x1b6e @0xf
0x1b5f…1b8d at0010 = ╱73╱s╱ // 0x1b6f @0x10
0x1b5f…1b8d at0011 = ╱74╱t╱ // 0x1b70 @0x11
0x1b5f…1b8d at0012 = ╱65╱e╱ // 0x1b71 @0x12
0x1b5f…1b8d at0013 = ╱72╱r╱ // 0x1b72 @0x13
0x1b5f…1b8d at0014 = ╱65╱e╱ // 0x1b73 @0x14
0x1b5f…1b8d at0015 = ╱72╱r╱ // 0x1b74 @0x15
0x1b5f…1b8d at0016 = ╱20╱…╱ // 0x1b75 @0x16
0x1b5f…1b8d at0017 = ╱69╱i╱ // 0x1b76 @0x17
0x1b5f…1b8d at0018 = ╱6b╱k╱ // 0x1b77 @0x18
0x1b5f…1b8d at0019 = ╱6b╱k╱ // 0x1b78 @0x19
0x1b5f…1b8d at001a = ╱65╱e╱ // 0x1b79 @0x1a
0x1b5f…1b8d at001b = ╱20╱…╱ // 0x1b7a @0x1b
0x1b5f…1b8d at001c = ╱2c╱,╱ // 0x1b7b @0x1c
0x1b5f…1b8d at001d = ╱20╱…╱ // 0x1b7c @0x1d
0x1b5f…1b8d at001e = ╱74╱t╱ // 0x1b7d @0x1e
0x1b5f…1b8d at001f = ╱61╱a╱ // 0x1b7e @0x1f
0x1b5f…1b8d at0020 = ╱73╱s╱ // 0x1b7f @0x20
0x1b5f…1b8d at0021 = ╱74╱t╱ // 0x1b80 @0x21
0x1b5f…1b8d at0022 = ╱20╱…╱ // 0x1b81 @0x22
0x1b5f…1b8d at0023 = ╱52╱R╱ // 0x1b82 @0x23
0x1b5f…1b8d at0024 = ╱45╱E╱ // 0x1b83 @0x24
0x1b5f…1b8d at0025 = ╱54╱T╱ // 0x1b84 @0x25
0x1b5f…1b8d at0026 = ╱55╱U╱ // 0x1b85 @0x26
0x1b5f…1b8d at0027 = ╱52╱R╱ // 0x1b86 @0x27
0x1b5f…1b8d at0028 = ╱4e╱N╱ // 0x1b87 @0x28
0x1b5f…1b8d at0029 = ╱22╱"╱ // 0x1b88 @0x29
0x1b5f…1b8d at002a = ╱ec╱,╱ // 0x1b89 @0x2a
0x1b5f…1b8d at002b = ╱41╱A╱ // 0x1b8a @0x2b
0x1b5f…1b8d at002c = ╱ef╱$╱ // 0x1b8b @0x2c
0x1b5f…1b8d at002d = EOL // 0x1b8c @0x2d
0x1b5f…1b8d }
0x1b8d…1b93 a8ea 3180 ENDIF
0x1b8d…1b93 LineComalBin {
0x1b8d…1b93 ptr = 0xa8ea // 0x1b8d @0x0
0x1b8d…1b93 lno = 0x0c6c // 0x1b8f @0x2
0x1b8d…1b93 at0004 = ╱9b╱ ENDIF ╱ // 0x1b91 @0x4
0x1b8d…1b93 at0005 = EOL // 0x1b92 @0x5
0x1b8d…1b93 }
0x1b93…1b99 a8f0 3190 ENDIF
0x1b93…1b99 LineComalBin {
0x1b93…1b99 ptr = 0xa8f0 // 0x1b93 @0x0
0x1b93…1b99 lno = 0x0c76 // 0x1b95 @0x2
0x1b93…1b99 at0004 = ╱9b╱ ENDIF ╱ // 0x1b97 @0x4
0x1b93…1b99 at0005 = EOL // 0x1b98 @0x5
0x1b93…1b99 }
0x1b99…1ba9 a900 3200 EXEC NRTEST(A$)
0x1b99…1ba9 LineComalBin {
0x1b99…1ba9 ptr = 0xa900 // 0x1b99 @0x0
0x1b99…1ba9 lno = 0x0c80 // 0x1b9b @0x2
0x1b99…1ba9 at0004 = ╱9d╱ EXEC ╱ // 0x1b9d @0x4
0x1b99…1ba9 at0005 = ╱4e╱N╱ // 0x1b9e @0x5
0x1b99…1ba9 at0006 = ╱52╱R╱ // 0x1b9f @0x6
0x1b99…1ba9 at0007 = ╱54╱T╱ // 0x1ba0 @0x7
0x1b99…1ba9 at0008 = ╱45╱E╱ // 0x1ba1 @0x8
0x1b99…1ba9 at0009 = ╱53╱S╱ // 0x1ba2 @0x9
0x1b99…1ba9 at000a = ╱54╱T╱ // 0x1ba3 @0xa
0x1b99…1ba9 at000b = ╱ed╱(╱ // 0x1ba4 @0xb
0x1b99…1ba9 at000c = ╱41╱A╱ // 0x1ba5 @0xc
0x1b99…1ba9 at000d = ╱ef╱$╱ // 0x1ba6 @0xd
0x1b99…1ba9 at000e = ╱ee╱)╱ // 0x1ba7 @0xe
0x1b99…1ba9 at000f = EOL // 0x1ba8 @0xf
0x1b99…1ba9 }
0x1ba9…1baf a906 3210 ENDIF
0x1ba9…1baf LineComalBin {
0x1ba9…1baf ptr = 0xa906 // 0x1ba9 @0x0
0x1ba9…1baf lno = 0x0c8a // 0x1bab @0x2
0x1ba9…1baf at0004 = ╱9b╱ ENDIF ╱ // 0x1bad @0x4
0x1ba9…1baf at0005 = EOL // 0x1bae @0x5
0x1ba9…1baf }
0x1baf…1bb9 a910 3220 UNTIL P=-E
0x1baf…1bb9 LineComalBin {
0x1baf…1bb9 ptr = 0xa910 // 0x1baf @0x0
0x1baf…1bb9 lno = 0x0c94 // 0x1bb1 @0x2
0x1baf…1bb9 at0004 = ╱98╱ UNTIL ╱ // 0x1bb3 @0x4
0x1baf…1bb9 at0005 = ╱50╱P╱ // 0x1bb4 @0x5
0x1baf…1bb9 at0006 = ╱dc╱=╱ // 0x1bb5 @0x6
0x1baf…1bb9 at0007 = ╱e9╱-╱ // 0x1bb6 @0x7
0x1baf…1bb9 at0008 = ╱45╱E╱ // 0x1bb7 @0x8
0x1baf…1bb9 at0009 = EOL // 0x1bb8 @0x9
0x1baf…1bb9 }
0x1bb9…1beb a942 3230 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AENT<MEANTAL)
0x1bb9…1beb LineComalBin {
0x1bb9…1beb ptr = 0xa942 // 0x1bb9 @0x0
0x1bb9…1beb lno = 0x0c9e // 0x1bbb @0x2
0x1bb9…1beb at0004 = ╱98╱ UNTIL ╱ // 0x1bbd @0x4
0x1bb9…1beb at0005 = ╱ed╱(╱ // 0x1bbe @0x5
0x1bb9…1beb at0006 = ╱43╱C╱ // 0x1bbf @0x6
0x1bb9…1beb at0007 = ╱45╱E╱ // 0x1bc0 @0x7
0x1bb9…1beb at0008 = ╱4b╱K╱ // 0x1bc1 @0x8
0x1bb9…1beb at0009 = ╱53╱S╱ // 0x1bc2 @0x9
0x1bb9…1beb at000a = ╱dc╱=╱ // 0x1bc3 @0xa
0x1bb9…1beb at000b = ╱42╱B╱ // 0x1bc4 @0xb
0x1bb9…1beb at000c = ╱da╱ AND ╱ // 0x1bc5 @0xc
0x1bb9…1beb at000d = ╱54╱T╱ // 0x1bc6 @0xd
0x1bb9…1beb at000e = ╱59╱Y╱ // 0x1bc7 @0xe
0x1bb9…1beb at000f = ╱50╱P╱ // 0x1bc8 @0xf
0x1bb9…1beb at0010 = ╱45╱E╱ // 0x1bc9 @0x10
0x1bb9…1beb at0011 = ╱e1╱<>╱ // 0x1bca @0x11
0x1bb9…1beb at0012 = ╱45╱E╱ // 0x1bcb @0x12
0x1bb9…1beb at0013 = ╱ee╱)╱ // 0x1bcc @0x13
0x1bb9…1beb at0014 = ╱db╱ OR ╱ // 0x1bcd @0x14
0x1bb9…1beb at0015 = ╱ed╱(╱ // 0x1bce @0x15
0x1bb9…1beb at0016 = ╱43╱C╱ // 0x1bcf @0x16
0x1bb9…1beb at0017 = ╱45╱E╱ // 0x1bd0 @0x17
0x1bb9…1beb at0018 = ╱4b╱K╱ // 0x1bd1 @0x18
0x1bb9…1beb at0019 = ╱53╱S╱ // 0x1bd2 @0x19
0x1bb9…1beb at001a = ╱dc╱=╱ // 0x1bd3 @0x1a
0x1bb9…1beb at001b = ╱45╱E╱ // 0x1bd4 @0x1b
0x1bb9…1beb at001c = ╱da╱ AND ╱ // 0x1bd5 @0x1c
0x1bb9…1beb at001d = ╱54╱T╱ // 0x1bd6 @0x1d
0x1bb9…1beb at001e = ╱59╱Y╱ // 0x1bd7 @0x1e
0x1bb9…1beb at001f = ╱50╱P╱ // 0x1bd8 @0x1f
0x1bb9…1beb at0020 = ╱45╱E╱ // 0x1bd9 @0x20
0x1bb9…1beb at0021 = ╱dc╱=╱ // 0x1bda @0x21
0x1bb9…1beb at0022 = ╱45╱E╱ // 0x1bdb @0x22
0x1bb9…1beb at0023 = ╱da╱ AND ╱ // 0x1bdc @0x23
0x1bb9…1beb at0024 = ╱41╱A╱ // 0x1bdd @0x24
0x1bb9…1beb at0025 = ╱45╱E╱ // 0x1bde @0x25
0x1bb9…1beb at0026 = ╱4e╱N╱ // 0x1bdf @0x26
0x1bb9…1beb at0027 = ╱54╱T╱ // 0x1be0 @0x27
0x1bb9…1beb at0028 = ╱dd╱<╱ // 0x1be1 @0x28
0x1bb9…1beb at0029 = ╱4d╱M╱ // 0x1be2 @0x29
0x1bb9…1beb at002a = ╱45╱E╱ // 0x1be3 @0x2a
0x1bb9…1beb at002b = ╱41╱A╱ // 0x1be4 @0x2b
0x1bb9…1beb at002c = ╱4e╱N╱ // 0x1be5 @0x2c
0x1bb9…1beb at002d = ╱54╱T╱ // 0x1be6 @0x2d
0x1bb9…1beb at002e = ╱41╱A╱ // 0x1be7 @0x2e
0x1bb9…1beb at002f = ╱4c╱L╱ // 0x1be8 @0x2f
0x1bb9…1beb at0030 = ╱ee╱)╱ // 0x1be9 @0x30
0x1bb9…1beb at0031 = EOL // 0x1bea @0x31
0x1bb9…1beb }
0x1beb…1bf9 a950 3240 IF KONT=B THEN EXIT
0x1beb…1bf9 LineComalBin {
0x1beb…1bf9 ptr = 0xa950 // 0x1beb @0x0
0x1beb…1bf9 lno = 0x0ca8 // 0x1bed @0x2
0x1beb…1bf9 at0004 = ╱82╱ IF ╱ // 0x1bef @0x4
0x1beb…1bf9 at0005 = ╱4b╱K╱ // 0x1bf0 @0x5
0x1beb…1bf9 at0006 = ╱4f╱O╱ // 0x1bf1 @0x6
0x1beb…1bf9 at0007 = ╱4e╱N╱ // 0x1bf2 @0x7
0x1beb…1bf9 at0008 = ╱54╱T╱ // 0x1bf3 @0x8
0x1beb…1bf9 at0009 = ╱dc╱=╱ // 0x1bf4 @0x9
0x1beb…1bf9 at000a = ╱42╱B╱ // 0x1bf5 @0xa
0x1beb…1bf9 at000b = ╱b6╱ THEN ╱ // 0x1bf6 @0xb
0x1beb…1bf9 at000c = ╱99╱ EXIT ╱ // 0x1bf7 @0xc
0x1beb…1bf9 at000d = EOL // 0x1bf8 @0xd
0x1beb…1bf9 }
0x1bf9…1c06 (93,) a95d 3250 IF TYPE<>E THEN
0x1bf9…1c06 LineComalBin {
0x1bf9…1c06 ptr = 0xa95d // 0x1bf9 @0x0
0x1bf9…1c06 lno = 0x0cb2 // 0x1bfb @0x2
0x1bf9…1c06 at0004 = ╱9c╱ IF ╱ // 0x1bfd @0x4
0x1bf9…1c06 at0005 = ╱54╱T╱ // 0x1bfe @0x5
0x1bf9…1c06 at0006 = ╱59╱Y╱ // 0x1bff @0x6
0x1bf9…1c06 at0007 = ╱50╱P╱ // 0x1c00 @0x7
0x1bf9…1c06 at0008 = ╱45╱E╱ // 0x1c01 @0x8
0x1bf9…1c06 at0009 = ╱e1╱<>╱ // 0x1c02 @0x9
0x1bf9…1c06 at000a = ╱45╱E╱ // 0x1c03 @0xa
0x1bf9…1c06 at000b = ╱b6╱ THEN ╱ // 0x1c04 @0xb
0x1bf9…1c06 at000c = EOL // 0x1c05 @0xc
0x1bf9…1c06 }
0x1c06…1c13 a96a 3260 FNR=KONT
0x1c06…1c13 LineComalBin {
0x1c06…1c13 ptr = 0xa96a // 0x1c06 @0x0
0x1c06…1c13 lno = 0x0cbc // 0x1c08 @0x2
0x1c06…1c13 at0004 = ╱46╱F╱ // 0x1c0a @0x4
0x1c06…1c13 at0005 = ╱4e╱N╱ // 0x1c0b @0x5
0x1c06…1c13 at0006 = ╱52╱R╱ // 0x1c0c @0x6
0x1c06…1c13 at0007 = ╱dc╱=╱ // 0x1c0d @0x7
0x1c06…1c13 at0008 = ╱4b╱K╱ // 0x1c0e @0x8
0x1c06…1c13 at0009 = ╱4f╱O╱ // 0x1c0f @0x9
0x1c06…1c13 at000a = ╱4e╱N╱ // 0x1c10 @0xa
0x1c06…1c13 at000b = ╱54╱T╱ // 0x1c11 @0xb
0x1c06…1c13 at000c = EOL // 0x1c12 @0xc
0x1c06…1c13 }
0x1c13…1c21 a978 3270 EXEC HENTPOST
0x1c13…1c21 LineComalBin {
0x1c13…1c21 ptr = 0xa978 // 0x1c13 @0x0
0x1c13…1c21 lno = 0x0cc6 // 0x1c15 @0x2
0x1c13…1c21 at0004 = ╱9d╱ EXEC ╱ // 0x1c17 @0x4
0x1c13…1c21 at0005 = ╱48╱H╱ // 0x1c18 @0x5
0x1c13…1c21 at0006 = ╱45╱E╱ // 0x1c19 @0x6
0x1c13…1c21 at0007 = ╱4e╱N╱ // 0x1c1a @0x7
0x1c13…1c21 at0008 = ╱54╱T╱ // 0x1c1b @0x8
0x1c13…1c21 at0009 = ╱50╱P╱ // 0x1c1c @0x9
0x1c13…1c21 at000a = ╱4f╱O╱ // 0x1c1d @0xa
0x1c13…1c21 at000b = ╱53╱S╱ // 0x1c1e @0xb
0x1c13…1c21 at000c = ╱54╱T╱ // 0x1c1f @0xc
0x1c13…1c21 at000d = EOL // 0x1c20 @0xd
0x1c13…1c21 }
0x1c21…1c42 a999 3280 EXEC FINDTAST(2,2,FNR)
0x1c21…1c42 LineComalBin {
0x1c21…1c42 ptr = 0xa999 // 0x1c21 @0x0
0x1c21…1c42 lno = 0x0cd0 // 0x1c23 @0x2
0x1c21…1c42 at0004 = ╱9d╱ EXEC ╱ // 0x1c25 @0x4
0x1c21…1c42 at0005 = ╱46╱F╱ // 0x1c26 @0x5
0x1c21…1c42 at0006 = ╱49╱I╱ // 0x1c27 @0x6
0x1c21…1c42 at0007 = ╱4e╱N╱ // 0x1c28 @0x7
0x1c21…1c42 at0008 = ╱44╱D╱ // 0x1c29 @0x8
0x1c21…1c42 at0009 = ╱54╱T╱ // 0x1c2a @0x9
0x1c21…1c42 at000a = ╱41╱A╱ // 0x1c2b @0xa
0x1c21…1c42 at000b = ╱53╱S╱ // 0x1c2c @0xb
0x1c21…1c42 at000c = ╱54╱T╱ // 0x1c2d @0xc
0x1c21…1c42 at000d = ╱ed╱(╱ // 0x1c2e @0xd
0x1c21…1c42 at000e = ╱32╱2╱ // 0x1c2f @0xe
0x1c21…1c42 at000f = ╱fe00008002╱ // 0x1c30 @0xf
0x1c21…1c42 at0014 = ╱ec╱,╱ // 0x1c35 @0x14
0x1c21…1c42 at0015 = ╱32╱2╱ // 0x1c36 @0x15
0x1c21…1c42 at0016 = ╱fe00008002╱ // 0x1c37 @0x16
0x1c21…1c42 at001b = ╱ec╱,╱ // 0x1c3c @0x1b
0x1c21…1c42 at001c = ╱46╱F╱ // 0x1c3d @0x1c
0x1c21…1c42 at001d = ╱4e╱N╱ // 0x1c3e @0x1d
0x1c21…1c42 at001e = ╱52╱R╱ // 0x1c3f @0x1e
0x1c21…1c42 at001f = ╱ee╱)╱ // 0x1c40 @0x1f
0x1c21…1c42 at0020 = EOL // 0x1c41 @0x20
0x1c21…1c42 }
0x1c42…1c48 a99f 3290 ELSE
0x1c42…1c48 LineComalBin {
0x1c42…1c48 ptr = 0xa99f // 0x1c42 @0x0
0x1c42…1c48 lno = 0x0cda // 0x1c44 @0x2
0x1c42…1c48 at0004 = ╱9a╱ ELSE ╱ // 0x1c46 @0x4
0x1c42…1c48 at0005 = EOL // 0x1c47 @0x5
0x1c42…1c48 }
0x1c48…1c56 a9ad 3300 EXEC NULEPOST
0x1c48…1c56 LineComalBin {
0x1c48…1c56 ptr = 0xa9ad // 0x1c48 @0x0
0x1c48…1c56 lno = 0x0ce4 // 0x1c4a @0x2
0x1c48…1c56 at0004 = ╱9d╱ EXEC ╱ // 0x1c4c @0x4
0x1c48…1c56 at0005 = ╱4e╱N╱ // 0x1c4d @0x5
0x1c48…1c56 at0006 = ╱55╱U╱ // 0x1c4e @0x6
0x1c48…1c56 at0007 = ╱4c╱L╱ // 0x1c4f @0x7
0x1c48…1c56 at0008 = ╱45╱E╱ // 0x1c50 @0x8
0x1c48…1c56 at0009 = ╱50╱P╱ // 0x1c51 @0x9
0x1c48…1c56 at000a = ╱4f╱O╱ // 0x1c52 @0xa
0x1c48…1c56 at000b = ╱53╱S╱ // 0x1c53 @0xb
0x1c48…1c56 at000c = ╱54╱T╱ // 0x1c54 @0xc
0x1c48…1c56 at000d = EOL // 0x1c55 @0xd
0x1c48…1c56 }
0x1c56…1c63 a9ba 3310 FNR=KONT
0x1c56…1c63 LineComalBin {
0x1c56…1c63 ptr = 0xa9ba // 0x1c56 @0x0
0x1c56…1c63 lno = 0x0cee // 0x1c58 @0x2
0x1c56…1c63 at0004 = ╱46╱F╱ // 0x1c5a @0x4
0x1c56…1c63 at0005 = ╱4e╱N╱ // 0x1c5b @0x5
0x1c56…1c63 at0006 = ╱52╱R╱ // 0x1c5c @0x6
0x1c56…1c63 at0007 = ╱dc╱=╱ // 0x1c5d @0x7
0x1c56…1c63 at0008 = ╱4b╱K╱ // 0x1c5e @0x8
0x1c56…1c63 at0009 = ╱4f╱O╱ // 0x1c5f @0x9
0x1c56…1c63 at000a = ╱4e╱N╱ // 0x1c60 @0xa
0x1c56…1c63 at000b = ╱54╱T╱ // 0x1c61 @0xb
0x1c56…1c63 at000c = EOL // 0x1c62 @0xc
0x1c56…1c63 }
0x1c63…1c84 a9db 3320 EXEC FINDTAST(2,0,FNR)
0x1c63…1c84 LineComalBin {
0x1c63…1c84 ptr = 0xa9db // 0x1c63 @0x0
0x1c63…1c84 lno = 0x0cf8 // 0x1c65 @0x2
0x1c63…1c84 at0004 = ╱9d╱ EXEC ╱ // 0x1c67 @0x4
0x1c63…1c84 at0005 = ╱46╱F╱ // 0x1c68 @0x5
0x1c63…1c84 at0006 = ╱49╱I╱ // 0x1c69 @0x6
0x1c63…1c84 at0007 = ╱4e╱N╱ // 0x1c6a @0x7
0x1c63…1c84 at0008 = ╱44╱D╱ // 0x1c6b @0x8
0x1c63…1c84 at0009 = ╱54╱T╱ // 0x1c6c @0x9
0x1c63…1c84 at000a = ╱41╱A╱ // 0x1c6d @0xa
0x1c63…1c84 at000b = ╱53╱S╱ // 0x1c6e @0xb
0x1c63…1c84 at000c = ╱54╱T╱ // 0x1c6f @0xc
0x1c63…1c84 at000d = ╱ed╱(╱ // 0x1c70 @0xd
0x1c63…1c84 at000e = ╱32╱2╱ // 0x1c71 @0xe
0x1c63…1c84 at000f = ╱fe00008002╱ // 0x1c72 @0xf
0x1c63…1c84 at0014 = ╱ec╱,╱ // 0x1c77 @0x14
0x1c63…1c84 at0015 = ╱30╱0╱ // 0x1c78 @0x15
0x1c63…1c84 at0016 = ╱fe00000000╱ // 0x1c79 @0x16
0x1c63…1c84 at001b = ╱ec╱,╱ // 0x1c7e @0x1b
0x1c63…1c84 at001c = ╱46╱F╱ // 0x1c7f @0x1c
0x1c63…1c84 at001d = ╱4e╱N╱ // 0x1c80 @0x1d
0x1c63…1c84 at001e = ╱52╱R╱ // 0x1c81 @0x1e
0x1c63…1c84 at001f = ╱ee╱)╱ // 0x1c82 @0x1f
0x1c63…1c84 at0020 = EOL // 0x1c83 @0x20
0x1c63…1c84 }
0x1c84…1c8a a9e1 3330 ENDIF
0x1c84…1c8a LineComalBin {
0x1c84…1c8a ptr = 0xa9e1 // 0x1c84 @0x0
0x1c84…1c8a lno = 0x0d02 // 0x1c86 @0x2
0x1c84…1c8a at0004 = ╱9b╱ ENDIF ╱ // 0x1c88 @0x4
0x1c84…1c8a at0005 = EOL // 0x1c89 @0x5
0x1c84…1c8a }
0x1c8a…1c90 a9e7 3340 ENDIF
0x1c8a…1c90 LineComalBin {
0x1c8a…1c90 ptr = 0xa9e7 // 0x1c8a @0x0
0x1c8a…1c90 lno = 0x0d0c // 0x1c8c @0x2
0x1c8a…1c90 at0004 = ╱9b╱ ENDIF ╱ // 0x1c8e @0x4
0x1c8a…1c90 at0005 = EOL // 0x1c8f @0x5
0x1c8a…1c90 }
0x1c90…1c9e a9f5 3350 IF KONT=B THEN EXIT
0x1c90…1c9e LineComalBin {
0x1c90…1c9e ptr = 0xa9f5 // 0x1c90 @0x0
0x1c90…1c9e lno = 0x0d16 // 0x1c92 @0x2
0x1c90…1c9e at0004 = ╱82╱ IF ╱ // 0x1c94 @0x4
0x1c90…1c9e at0005 = ╱4b╱K╱ // 0x1c95 @0x5
0x1c90…1c9e at0006 = ╱4f╱O╱ // 0x1c96 @0x6
0x1c90…1c9e at0007 = ╱4e╱N╱ // 0x1c97 @0x7
0x1c90…1c9e at0008 = ╱54╱T╱ // 0x1c98 @0x8
0x1c90…1c9e at0009 = ╱dc╱=╱ // 0x1c99 @0x9
0x1c90…1c9e at000a = ╱42╱B╱ // 0x1c9a @0xa
0x1c90…1c9e at000b = ╱b6╱ THEN ╱ // 0x1c9b @0xb
0x1c90…1c9e at000c = ╱99╱ EXIT ╱ // 0x1c9c @0xc
0x1c90…1c9e at000d = EOL // 0x1c9d @0xd
0x1c90…1c9e }
0x1c9e…1caa aa01 3360 CASE TYPE OF
0x1c9e…1caa LineComalBin {
0x1c9e…1caa ptr = 0xaa01 // 0x1c9e @0x0
0x1c9e…1caa lno = 0x0d20 // 0x1ca0 @0x2
0x1c9e…1caa at0004 = ╱a201╱ CASE ╱ // 0x1ca2 @0x4
0x1c9e…1caa at0006 = ╱54╱T╱ // 0x1ca4 @0x6
0x1c9e…1caa at0007 = ╱59╱Y╱ // 0x1ca5 @0x7
0x1c9e…1caa at0008 = ╱50╱P╱ // 0x1ca6 @0x8
0x1c9e…1caa at0009 = ╱45╱E╱ // 0x1ca7 @0x9
0x1c9e…1caa at000a = ╱ba╱ OF ╱ // 0x1ca8 @0xa
0x1c9e…1caa at000b = EOL // 0x1ca9 @0xb
0x1c9e…1caa }
0x1caa…1cb0 aa07 3370 STOP
0x1caa…1cb0 LineComalBin {
0x1caa…1cb0 ptr = 0xaa07 // 0x1caa @0x0
0x1caa…1cb0 lno = 0x0d2a // 0x1cac @0x2
0x1caa…1cb0 at0004 = ╱8d╱ STOP ╱ // 0x1cae @0x4
0x1caa…1cb0 at0005 = EOL // 0x1caf @0x5
0x1caa…1cb0 }
0x1cb0…1cba aa11 3380 WHEN E,G
0x1cb0…1cba LineComalBin {
0x1cb0…1cba ptr = 0xaa11 // 0x1cb0 @0x0
0x1cb0…1cba lno = 0x0d34 // 0x1cb2 @0x2
0x1cb0…1cba at0004 = ╱a301╱ WHEN ╱ // 0x1cb4 @0x4
0x1cb0…1cba at0006 = ╱45╱E╱ // 0x1cb6 @0x6
0x1cb0…1cba at0007 = ╱ec╱,╱ // 0x1cb7 @0x7
0x1cb0…1cba at0008 = ╱47╱G╱ // 0x1cb8 @0x8
0x1cb0…1cba at0009 = EOL // 0x1cb9 @0x9
0x1cb0…1cba }
0x1cba…1cc0 aa17 3390 REPEAT
0x1cba…1cc0 LineComalBin {
0x1cba…1cc0 ptr = 0xaa17 // 0x1cba @0x0
0x1cba…1cc0 lno = 0x0d3e // 0x1cbc @0x2
0x1cba…1cc0 at0004 = ╱97╱ REPEAT ╱ // 0x1cbe @0x4
0x1cba…1cc0 at0005 = EOL // 0x1cbf @0x5
0x1cba…1cc0 }
0x1cc0…1cc6 aa1d 3400 REPEAT
0x1cc0…1cc6 LineComalBin {
0x1cc0…1cc6 ptr = 0xaa1d // 0x1cc0 @0x0
0x1cc0…1cc6 lno = 0x0d48 // 0x1cc2 @0x2
0x1cc0…1cc6 at0004 = ╱97╱ REPEAT ╱ // 0x1cc4 @0x4
0x1cc0…1cc6 at0005 = EOL // 0x1cc5 @0x5
0x1cc0…1cc6 }
0x1cc6…1cd5 aa2c 3410 CURSOR V,23
0x1cc6…1cd5 LineComalBin {
0x1cc6…1cd5 ptr = 0xaa2c // 0x1cc6 @0x0
0x1cc6…1cd5 lno = 0x0d52 // 0x1cc8 @0x2
0x1cc6…1cd5 at0004 = ╱a1╱ CURSOR ╱ // 0x1cca @0x4
0x1cc6…1cd5 at0005 = ╱56╱V╱ // 0x1ccb @0x5
0x1cc6…1cd5 at0006 = ╱ec╱,╱ // 0x1ccc @0x6
0x1cc6…1cd5 at0007 = ╱32╱2╱ // 0x1ccd @0x7
0x1cc6…1cd5 at0008 = ╱33╱3╱ // 0x1cce @0x8
0x1cc6…1cd5 at0009 = ╱fe0000b805╱ // 0x1ccf @0x9
0x1cc6…1cd5 at000e = EOL // 0x1cd4 @0xe
0x1cc6…1cd5 }
0x1cd5…1d11 aa68 3420 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2, ";
0x1cd5…1d11 LineComalBin {
0x1cd5…1d11 ptr = 0xaa68 // 0x1cd5 @0x0
0x1cd5…1d11 lno = 0x0d5c // 0x1cd7 @0x2
0x1cd5…1d11 at0004 = ╱92╱ PRINT ╱ // 0x1cd9 @0x4
0x1cd5…1d11 at0005 = ╱22╱"╱ // 0x1cda @0x5
0x1cd5…1d11 at0006 = ╱48╱H╱ // 0x1cdb @0x6
0x1cd5…1d11 at0007 = ╱76╱v╱ // 0x1cdc @0x7
0x1cd5…1d11 at0008 = ╱69╱i╱ // 0x1cdd @0x8
0x1cd5…1d11 at0009 = ╱6c╱l╱ // 0x1cde @0x9
0x1cd5…1d11 at000a = ╱6b╱k╱ // 0x1cdf @0xa
0x1cd5…1d11 at000b = ╱65╱e╱ // 0x1ce0 @0xb
0x1cd5…1d11 at000c = ╱74╱t╱ // 0x1ce1 @0xc
0x1cd5…1d11 at000d = ╱20╱…╱ // 0x1ce2 @0xd
0x1cd5…1d11 at000e = ╱66╱f╱ // 0x1ce3 @0xe
0x1cd5…1d11 at000f = ╱65╱e╱ // 0x1ce4 @0xf
0x1cd5…1d11 at0010 = ╱6c╱l╱ // 0x1ce5 @0x10
0x1cd5…1d11 at0011 = ╱74╱t╱ // 0x1ce6 @0x11
0x1cd5…1d11 at0012 = ╱20╱…╱ // 0x1ce7 @0x12
0x1cd5…1d11 at0013 = ╱7c╱ø╱ // 0x1ce8 @0x13
0x1cd5…1d11 at0014 = ╱6e╱n╱ // 0x1ce9 @0x14
0x1cd5…1d11 at0015 = ╱73╱s╱ // 0x1cea @0x15
0x1cd5…1d11 at0016 = ╱6b╱k╱ // 0x1ceb @0x16
0x1cd5…1d11 at0017 = ╱65╱e╱ // 0x1cec @0x17
0x1cd5…1d11 at0018 = ╱73╱s╱ // 0x1ced @0x18
0x1cd5…1d11 at0019 = ╱20╱…╱ // 0x1cee @0x19
0x1cd5…1d11 at001a = ╱7b╱æ╱ // 0x1cef @0x1a
0x1cd5…1d11 at001b = ╱6e╱n╱ // 0x1cf0 @0x1b
0x1cd5…1d11 at001c = ╱64╱d╱ // 0x1cf1 @0x1c
0x1cd5…1d11 at001d = ╱72╱r╱ // 0x1cf2 @0x1d
0x1cd5…1d11 at001e = ╱65╱e╱ // 0x1cf3 @0x1e
0x1cd5…1d11 at001f = ╱74╱t╱ // 0x1cf4 @0x1f
0x1cd5…1d11 at0020 = ╱20╱…╱ // 0x1cf5 @0x20
0x1cd5…1d11 at0021 = ╱20╱…╱ // 0x1cf6 @0x21
0x1cd5…1d11 at0022 = ╱20╱…╱ // 0x1cf7 @0x22
0x1cd5…1d11 at0023 = ╱20╱…╱ // 0x1cf8 @0x23
0x1cd5…1d11 at0024 = ╱20╱…╱ // 0x1cf9 @0x24
0x1cd5…1d11 at0025 = ╱20╱…╱ // 0x1cfa @0x25
0x1cd5…1d11 at0026 = ╱28╱(╱ // 0x1cfb @0x26
0x1cd5…1d11 at0027 = ╱49╱I╱ // 0x1cfc @0x27
0x1cd5…1d11 at0028 = ╱6e╱n╱ // 0x1cfd @0x28
0x1cd5…1d11 at0029 = ╱64╱d╱ // 0x1cfe @0x29
0x1cd5…1d11 at002a = ╱74╱t╱ // 0x1cff @0x2a
0x1cd5…1d11 at002b = ╱61╱a╱ // 0x1d00 @0x2b
0x1cd5…1d11 at002c = ╱73╱s╱ // 0x1d01 @0x2c
0x1cd5…1d11 at002d = ╱74╱t╱ // 0x1d02 @0x2d
0x1cd5…1d11 at002e = ╱20╱…╱ // 0x1d03 @0x2e
0x1cd5…1d11 at002f = ╱66╱f╱ // 0x1d04 @0x2f
0x1cd5…1d11 at0030 = ╱65╱e╱ // 0x1d05 @0x30
0x1cd5…1d11 at0031 = ╱6c╱l╱ // 0x1d06 @0x31
0x1cd5…1d11 at0032 = ╱74╱t╱ // 0x1d07 @0x32
0x1cd5…1d11 at0033 = ╱6e╱n╱ // 0x1d08 @0x33
0x1cd5…1d11 at0034 = ╱72╱r╱ // 0x1d09 @0x34
0x1cd5…1d11 at0035 = ╱20╱…╱ // 0x1d0a @0x35
0x1cd5…1d11 at0036 = ╱32╱2╱ // 0x1d0b @0x36
0x1cd5…1d11 at0037 = ╱2c╱,╱ // 0x1d0c @0x37
0x1cd5…1d11 at0038 = ╱20╱…╱ // 0x1d0d @0x38
0x1cd5…1d11 at0039 = ╱22╱"╱ // 0x1d0e @0x39
0x1cd5…1d11 at003a = ╱eb╱;╱ // 0x1d0f @0x3a
0x1cd5…1d11 at003b = EOL // 0x1d10 @0x3b
0x1cd5…1d11 }
0x1d11…1d30 aa87 3430 PRINT "0:for færdig) "
0x1d11…1d30 LineComalBin {
0x1d11…1d30 ptr = 0xaa87 // 0x1d11 @0x0
0x1d11…1d30 lno = 0x0d66 // 0x1d13 @0x2
0x1d11…1d30 at0004 = ╱92╱ PRINT ╱ // 0x1d15 @0x4
0x1d11…1d30 at0005 = ╱22╱"╱ // 0x1d16 @0x5
0x1d11…1d30 at0006 = ╱30╱0╱ // 0x1d17 @0x6
0x1d11…1d30 at0007 = ╱3a╱:╱ // 0x1d18 @0x7
0x1d11…1d30 at0008 = ╱66╱f╱ // 0x1d19 @0x8
0x1d11…1d30 at0009 = ╱6f╱o╱ // 0x1d1a @0x9
0x1d11…1d30 at000a = ╱72╱r╱ // 0x1d1b @0xa
0x1d11…1d30 at000b = ╱20╱…╱ // 0x1d1c @0xb
0x1d11…1d30 at000c = ╱66╱f╱ // 0x1d1d @0xc
0x1d11…1d30 at000d = ╱7b╱æ╱ // 0x1d1e @0xd
0x1d11…1d30 at000e = ╱72╱r╱ // 0x1d1f @0xe
0x1d11…1d30 at000f = ╱64╱d╱ // 0x1d20 @0xf
0x1d11…1d30 at0010 = ╱69╱i╱ // 0x1d21 @0x10
0x1d11…1d30 at0011 = ╱67╱g╱ // 0x1d22 @0x11
0x1d11…1d30 at0012 = ╱29╱)╱ // 0x1d23 @0x12
0x1d11…1d30 at0013 = ╱20╱…╱ // 0x1d24 @0x13
0x1d11…1d30 at0014 = ╱20╱…╱ // 0x1d25 @0x14
0x1d11…1d30 at0015 = ╱20╱…╱ // 0x1d26 @0x15
0x1d11…1d30 at0016 = ╱20╱…╱ // 0x1d27 @0x16
0x1d11…1d30 at0017 = ╱20╱…╱ // 0x1d28 @0x17
0x1d11…1d30 at0018 = ╱20╱…╱ // 0x1d29 @0x18
0x1d11…1d30 at0019 = ╱20╱…╱ // 0x1d2a @0x19
0x1d11…1d30 at001a = ╱20╱…╱ // 0x1d2b @0x1a
0x1d11…1d30 at001b = ╱20╱…╱ // 0x1d2c @0x1b
0x1d11…1d30 at001c = ╱20╱…╱ // 0x1d2d @0x1c
0x1d11…1d30 at001d = ╱22╱"╱ // 0x1d2e @0x1d
0x1d11…1d30 at001e = EOL // 0x1d2f @0x1e
0x1d11…1d30 }
0x1d30…1d45 aa9c 3440 CURSOR 32,23
0x1d30…1d45 LineComalBin {
0x1d30…1d45 ptr = 0xaa9c // 0x1d30 @0x0
0x1d30…1d45 lno = 0x0d70 // 0x1d32 @0x2
0x1d30…1d45 at0004 = ╱a1╱ CURSOR ╱ // 0x1d34 @0x4
0x1d30…1d45 at0005 = ╱33╱3╱ // 0x1d35 @0x5
0x1d30…1d45 at0006 = ╱32╱2╱ // 0x1d36 @0x6
0x1d30…1d45 at0007 = ╱fe00008006╱ // 0x1d37 @0x7
0x1d30…1d45 at000c = ╱ec╱,╱ // 0x1d3c @0xc
0x1d30…1d45 at000d = ╱32╱2╱ // 0x1d3d @0xd
0x1d30…1d45 at000e = ╱33╱3╱ // 0x1d3e @0xe
0x1d30…1d45 at000f = ╱fe0000b805╱ // 0x1d3f @0xf
0x1d30…1d45 at0014 = EOL // 0x1d44 @0x14
0x1d30…1d45 }
0x1d45…1d4d aaa4 3450 INPUT A$
0x1d45…1d4d LineComalBin {
0x1d45…1d4d ptr = 0xaaa4 // 0x1d45 @0x0
0x1d45…1d4d lno = 0x0d7a // 0x1d47 @0x2
0x1d45…1d4d at0004 = ╱91╱ INPUT ╱ // 0x1d49 @0x4
0x1d45…1d4d at0005 = ╱41╱A╱ // 0x1d4a @0x5
0x1d45…1d4d at0006 = ╱ef╱$╱ // 0x1d4b @0x6
0x1d45…1d4d at0007 = EOL // 0x1d4c @0x7
0x1d45…1d4d }
0x1d4d…1d5d aab4 3460 EXEC NRTEST(A$)
0x1d4d…1d5d LineComalBin {
0x1d4d…1d5d ptr = 0xaab4 // 0x1d4d @0x0
0x1d4d…1d5d lno = 0x0d84 // 0x1d4f @0x2
0x1d4d…1d5d at0004 = ╱9d╱ EXEC ╱ // 0x1d51 @0x4
0x1d4d…1d5d at0005 = ╱4e╱N╱ // 0x1d52 @0x5
0x1d4d…1d5d at0006 = ╱52╱R╱ // 0x1d53 @0x6
0x1d4d…1d5d at0007 = ╱54╱T╱ // 0x1d54 @0x7
0x1d4d…1d5d at0008 = ╱45╱E╱ // 0x1d55 @0x8
0x1d4d…1d5d at0009 = ╱53╱S╱ // 0x1d56 @0x9
0x1d4d…1d5d at000a = ╱54╱T╱ // 0x1d57 @0xa
0x1d4d…1d5d at000b = ╱ed╱(╱ // 0x1d58 @0xb
0x1d4d…1d5d at000c = ╱41╱A╱ // 0x1d59 @0xc
0x1d4d…1d5d at000d = ╱ef╱$╱ // 0x1d5a @0xd
0x1d4d…1d5d at000e = ╱ee╱)╱ // 0x1d5b @0xe
0x1d4d…1d5d at000f = EOL // 0x1d5c @0xf
0x1d4d…1d5d }
0x1d5d…1d6a aac1 3470 UNTIL P=B OR P=G
0x1d5d…1d6a LineComalBin {
0x1d5d…1d6a ptr = 0xaac1 // 0x1d5d @0x0
0x1d5d…1d6a lno = 0x0d8e // 0x1d5f @0x2
0x1d5d…1d6a at0004 = ╱98╱ UNTIL ╱ // 0x1d61 @0x4
0x1d5d…1d6a at0005 = ╱50╱P╱ // 0x1d62 @0x5
0x1d5d…1d6a at0006 = ╱dc╱=╱ // 0x1d63 @0x6
0x1d5d…1d6a at0007 = ╱42╱B╱ // 0x1d64 @0x7
0x1d5d…1d6a at0008 = ╱db╱ OR ╱ // 0x1d65 @0x8
0x1d5d…1d6a at0009 = ╱50╱P╱ // 0x1d66 @0x9
0x1d5d…1d6a at000a = ╱dc╱=╱ // 0x1d67 @0xa
0x1d5d…1d6a at000b = ╱47╱G╱ // 0x1d68 @0xb
0x1d5d…1d6a at000c = EOL // 0x1d69 @0xc
0x1d5d…1d6a }
0x1d6a…1d76 aacd 3480 STYR1=P
0x1d6a…1d76 LineComalBin {
0x1d6a…1d76 ptr = 0xaacd // 0x1d6a @0x0
0x1d6a…1d76 lno = 0x0d98 // 0x1d6c @0x2
0x1d6a…1d76 at0004 = ╱53╱S╱ // 0x1d6e @0x4
0x1d6a…1d76 at0005 = ╱54╱T╱ // 0x1d6f @0x5
0x1d6a…1d76 at0006 = ╱59╱Y╱ // 0x1d70 @0x6
0x1d6a…1d76 at0007 = ╱52╱R╱ // 0x1d71 @0x7
0x1d6a…1d76 at0008 = ╱31╱1╱ // 0x1d72 @0x8
0x1d6a…1d76 at0009 = ╱dc╱=╱ // 0x1d73 @0x9
0x1d6a…1d76 at000a = ╱50╱P╱ // 0x1d74 @0xa
0x1d6a…1d76 at000b = EOL // 0x1d75 @0xb
0x1d6a…1d76 }
0x1d76…1d85 aadc 3490 IF STYR1=B THEN EXIT
0x1d76…1d85 LineComalBin {
0x1d76…1d85 ptr = 0xaadc // 0x1d76 @0x0
0x1d76…1d85 lno = 0x0da2 // 0x1d78 @0x2
0x1d76…1d85 at0004 = ╱82╱ IF ╱ // 0x1d7a @0x4
0x1d76…1d85 at0005 = ╱53╱S╱ // 0x1d7b @0x5
0x1d76…1d85 at0006 = ╱54╱T╱ // 0x1d7c @0x6
0x1d76…1d85 at0007 = ╱59╱Y╱ // 0x1d7d @0x7
0x1d76…1d85 at0008 = ╱52╱R╱ // 0x1d7e @0x8
0x1d76…1d85 at0009 = ╱31╱1╱ // 0x1d7f @0x9
0x1d76…1d85 at000a = ╱dc╱=╱ // 0x1d80 @0xa
0x1d76…1d85 at000b = ╱42╱B╱ // 0x1d81 @0xb
0x1d76…1d85 at000c = ╱b6╱ THEN ╱ // 0x1d82 @0xc
0x1d76…1d85 at000d = ╱99╱ EXIT ╱ // 0x1d83 @0xd
0x1d76…1d85 at000e = EOL // 0x1d84 @0xe
0x1d76…1d85 }
0x1d85…1da5 aafc 3500 EXEC FINDTAST(STYR1,1,FNR)
0x1d85…1da5 LineComalBin {
0x1d85…1da5 ptr = 0xaafc // 0x1d85 @0x0
0x1d85…1da5 lno = 0x0dac // 0x1d87 @0x2
0x1d85…1da5 at0004 = ╱9d╱ EXEC ╱ // 0x1d89 @0x4
0x1d85…1da5 at0005 = ╱46╱F╱ // 0x1d8a @0x5
0x1d85…1da5 at0006 = ╱49╱I╱ // 0x1d8b @0x6
0x1d85…1da5 at0007 = ╱4e╱N╱ // 0x1d8c @0x7
0x1d85…1da5 at0008 = ╱44╱D╱ // 0x1d8d @0x8
0x1d85…1da5 at0009 = ╱54╱T╱ // 0x1d8e @0x9
0x1d85…1da5 at000a = ╱41╱A╱ // 0x1d8f @0xa
0x1d85…1da5 at000b = ╱53╱S╱ // 0x1d90 @0xb
0x1d85…1da5 at000c = ╱54╱T╱ // 0x1d91 @0xc
0x1d85…1da5 at000d = ╱ed╱(╱ // 0x1d92 @0xd
0x1d85…1da5 at000e = ╱53╱S╱ // 0x1d93 @0xe
0x1d85…1da5 at000f = ╱54╱T╱ // 0x1d94 @0xf
0x1d85…1da5 at0010 = ╱59╱Y╱ // 0x1d95 @0x10
0x1d85…1da5 at0011 = ╱52╱R╱ // 0x1d96 @0x11
0x1d85…1da5 at0012 = ╱31╱1╱ // 0x1d97 @0x12
0x1d85…1da5 at0013 = ╱ec╱,╱ // 0x1d98 @0x13
0x1d85…1da5 at0014 = ╱31╱1╱ // 0x1d99 @0x14
0x1d85…1da5 at0015 = ╱fe00008001╱ // 0x1d9a @0x15
0x1d85…1da5 at001a = ╱ec╱,╱ // 0x1d9f @0x1a
0x1d85…1da5 at001b = ╱46╱F╱ // 0x1da0 @0x1b
0x1d85…1da5 at001c = ╱4e╱N╱ // 0x1da1 @0x1c
0x1d85…1da5 at001d = ╱52╱R╱ // 0x1da2 @0x1d
0x1d85…1da5 at001e = ╱ee╱)╱ // 0x1da3 @0x1e
0x1d85…1da5 at001f = EOL // 0x1da4 @0x1f
0x1d85…1da5 }
0x1da5…1db2 ab09 3510 UNTIL STYR1=B
0x1da5…1db2 LineComalBin {
0x1da5…1db2 ptr = 0xab09 // 0x1da5 @0x0
0x1da5…1db2 lno = 0x0db6 // 0x1da7 @0x2
0x1da5…1db2 at0004 = ╱98╱ UNTIL ╱ // 0x1da9 @0x4
0x1da5…1db2 at0005 = ╱53╱S╱ // 0x1daa @0x5
0x1da5…1db2 at0006 = ╱54╱T╱ // 0x1dab @0x6
0x1da5…1db2 at0007 = ╱59╱Y╱ // 0x1dac @0x7
0x1da5…1db2 at0008 = ╱52╱R╱ // 0x1dad @0x8
0x1da5…1db2 at0009 = ╱31╱1╱ // 0x1dae @0x9
0x1da5…1db2 at000a = ╱dc╱=╱ // 0x1daf @0xa
0x1da5…1db2 at000b = ╱42╱B╱ // 0x1db0 @0xb
0x1da5…1db2 at000c = EOL // 0x1db1 @0xc
0x1da5…1db2 }
0x1db2…1dbf ab16 3520 IF TYPE=E THEN
0x1db2…1dbf LineComalBin {
0x1db2…1dbf ptr = 0xab16 // 0x1db2 @0x0
0x1db2…1dbf lno = 0x0dc0 // 0x1db4 @0x2
0x1db2…1dbf at0004 = ╱9c╱ IF ╱ // 0x1db6 @0x4
0x1db2…1dbf at0005 = ╱54╱T╱ // 0x1db7 @0x5
0x1db2…1dbf at0006 = ╱59╱Y╱ // 0x1db8 @0x6
0x1db2…1dbf at0007 = ╱50╱P╱ // 0x1db9 @0x7
0x1db2…1dbf at0008 = ╱45╱E╱ // 0x1dba @0x8
0x1db2…1dbf at0009 = ╱dc╱=╱ // 0x1dbb @0x9
0x1db2…1dbf at000a = ╱45╱E╱ // 0x1dbc @0xa
0x1db2…1dbf at000b = ╱b6╱ THEN ╱ // 0x1dbd @0xb
0x1db2…1dbf at000c = EOL // 0x1dbe @0xc
0x1db2…1dbf }
0x1dbf…1de5 ab3c 3530 EXEC FINDPOST(ETAB,MEANTAL,FNR,EPIL3)
0x1dbf…1de5 LineComalBin {
0x1dbf…1de5 ptr = 0xab3c // 0x1dbf @0x0
0x1dbf…1de5 lno = 0x0dca // 0x1dc1 @0x2
0x1dbf…1de5 at0004 = ╱9d╱ EXEC ╱ // 0x1dc3 @0x4
0x1dbf…1de5 at0005 = ╱46╱F╱ // 0x1dc4 @0x5
0x1dbf…1de5 at0006 = ╱49╱I╱ // 0x1dc5 @0x6
0x1dbf…1de5 at0007 = ╱4e╱N╱ // 0x1dc6 @0x7
0x1dbf…1de5 at0008 = ╱44╱D╱ // 0x1dc7 @0x8
0x1dbf…1de5 at0009 = ╱50╱P╱ // 0x1dc8 @0x9
0x1dbf…1de5 at000a = ╱4f╱O╱ // 0x1dc9 @0xa
0x1dbf…1de5 at000b = ╱53╱S╱ // 0x1dca @0xb
0x1dbf…1de5 at000c = ╱54╱T╱ // 0x1dcb @0xc
0x1dbf…1de5 at000d = ╱ed╱(╱ // 0x1dcc @0xd
0x1dbf…1de5 at000e = ╱45╱E╱ // 0x1dcd @0xe
0x1dbf…1de5 at000f = ╱54╱T╱ // 0x1dce @0xf
0x1dbf…1de5 at0010 = ╱41╱A╱ // 0x1dcf @0x10
0x1dbf…1de5 at0011 = ╱42╱B╱ // 0x1dd0 @0x11
0x1dbf…1de5 at0012 = ╱ec╱,╱ // 0x1dd1 @0x12
0x1dbf…1de5 at0013 = ╱4d╱M╱ // 0x1dd2 @0x13
0x1dbf…1de5 at0014 = ╱45╱E╱ // 0x1dd3 @0x14
0x1dbf…1de5 at0015 = ╱41╱A╱ // 0x1dd4 @0x15
0x1dbf…1de5 at0016 = ╱4e╱N╱ // 0x1dd5 @0x16
0x1dbf…1de5 at0017 = ╱54╱T╱ // 0x1dd6 @0x17
0x1dbf…1de5 at0018 = ╱41╱A╱ // 0x1dd7 @0x18
0x1dbf…1de5 at0019 = ╱4c╱L╱ // 0x1dd8 @0x19
0x1dbf…1de5 at001a = ╱ec╱,╱ // 0x1dd9 @0x1a
0x1dbf…1de5 at001b = ╱46╱F╱ // 0x1dda @0x1b
0x1dbf…1de5 at001c = ╱4e╱N╱ // 0x1ddb @0x1c
0x1dbf…1de5 at001d = ╱52╱R╱ // 0x1ddc @0x1d
0x1dbf…1de5 at001e = ╱ec╱,╱ // 0x1ddd @0x1e
0x1dbf…1de5 at001f = ╱45╱E╱ // 0x1dde @0x1f
0x1dbf…1de5 at0020 = ╱50╱P╱ // 0x1ddf @0x20
0x1dbf…1de5 at0021 = ╱49╱I╱ // 0x1de0 @0x21
0x1dbf…1de5 at0022 = ╱4c╱L╱ // 0x1de1 @0x22
0x1dbf…1de5 at0023 = ╱33╱3╱ // 0x1de2 @0x23
0x1dbf…1de5 at0024 = ╱ee╱)╱ // 0x1de3 @0x24
0x1dbf…1de5 at0025 = EOL // 0x1de4 @0x25
0x1dbf…1de5 }
0x1de5…1e06 ab5d 3540 EXEC INDSÆT(ETAB,AENT,FNR,EPIL3)
0x1de5…1e06 LineComalBin {
0x1de5…1e06 ptr = 0xab5d // 0x1de5 @0x0
0x1de5…1e06 lno = 0x0dd4 // 0x1de7 @0x2
0x1de5…1e06 at0004 = ╱9d╱ EXEC ╱ // 0x1de9 @0x4
0x1de5…1e06 at0005 = ╱49╱I╱ // 0x1dea @0x5
0x1de5…1e06 at0006 = ╱4e╱N╱ // 0x1deb @0x6
0x1de5…1e06 at0007 = ╱44╱D╱ // 0x1dec @0x7
0x1de5…1e06 at0008 = ╱53╱S╱ // 0x1ded @0x8
0x1de5…1e06 at0009 = ╱5b╱Æ╱ // 0x1dee @0x9
0x1de5…1e06 at000a = ╱54╱T╱ // 0x1def @0xa
0x1de5…1e06 at000b = ╱ed╱(╱ // 0x1df0 @0xb
0x1de5…1e06 at000c = ╱45╱E╱ // 0x1df1 @0xc
0x1de5…1e06 at000d = ╱54╱T╱ // 0x1df2 @0xd
0x1de5…1e06 at000e = ╱41╱A╱ // 0x1df3 @0xe
0x1de5…1e06 at000f = ╱42╱B╱ // 0x1df4 @0xf
0x1de5…1e06 at0010 = ╱ec╱,╱ // 0x1df5 @0x10
0x1de5…1e06 at0011 = ╱41╱A╱ // 0x1df6 @0x11
0x1de5…1e06 at0012 = ╱45╱E╱ // 0x1df7 @0x12
0x1de5…1e06 at0013 = ╱4e╱N╱ // 0x1df8 @0x13
0x1de5…1e06 at0014 = ╱54╱T╱ // 0x1df9 @0x14
0x1de5…1e06 at0015 = ╱ec╱,╱ // 0x1dfa @0x15
0x1de5…1e06 at0016 = ╱46╱F╱ // 0x1dfb @0x16
0x1de5…1e06 at0017 = ╱4e╱N╱ // 0x1dfc @0x17
0x1de5…1e06 at0018 = ╱52╱R╱ // 0x1dfd @0x18
0x1de5…1e06 at0019 = ╱ec╱,╱ // 0x1dfe @0x19
0x1de5…1e06 at001a = ╱45╱E╱ // 0x1dff @0x1a
0x1de5…1e06 at001b = ╱50╱P╱ // 0x1e00 @0x1b
0x1de5…1e06 at001c = ╱49╱I╱ // 0x1e01 @0x1c
0x1de5…1e06 at001d = ╱4c╱L╱ // 0x1e02 @0x1d
0x1de5…1e06 at001e = ╱33╱3╱ // 0x1e03 @0x1e
0x1de5…1e06 at001f = ╱ee╱)╱ // 0x1e04 @0x1f
0x1de5…1e06 at0020 = EOL // 0x1e05 @0x20
0x1de5…1e06 }
0x1e06…1e0c ab63 3550 ENDIF
0x1e06…1e0c LineComalBin {
0x1e06…1e0c ptr = 0xab63 // 0x1e06 @0x0
0x1e06…1e0c lno = 0x0dde // 0x1e08 @0x2
0x1e06…1e0c at0004 = ╱9b╱ ENDIF ╱ // 0x1e0a @0x4
0x1e06…1e0c at0005 = EOL // 0x1e0b @0x5
0x1e06…1e0c }
0x1e0c…1e1a ab71 3560 EXEC GEMEPOST
0x1e0c…1e1a LineComalBin {
0x1e0c…1e1a ptr = 0xab71 // 0x1e0c @0x0
0x1e0c…1e1a lno = 0x0de8 // 0x1e0e @0x2
0x1e0c…1e1a at0004 = ╱9d╱ EXEC ╱ // 0x1e10 @0x4
0x1e0c…1e1a at0005 = ╱47╱G╱ // 0x1e11 @0x5
0x1e0c…1e1a at0006 = ╱45╱E╱ // 0x1e12 @0x6
0x1e0c…1e1a at0007 = ╱4d╱M╱ // 0x1e13 @0x7
0x1e0c…1e1a at0008 = ╱45╱E╱ // 0x1e14 @0x8
0x1e0c…1e1a at0009 = ╱50╱P╱ // 0x1e15 @0x9
0x1e0c…1e1a at000a = ╱4f╱O╱ // 0x1e16 @0xa
0x1e0c…1e1a at000b = ╱53╱S╱ // 0x1e17 @0xb
0x1e0c…1e1a at000c = ╱54╱T╱ // 0x1e18 @0xc
0x1e0c…1e1a at000d = EOL // 0x1e19 @0xd
0x1e0c…1e1a }
0x1e1a…1e22 ab79 3570 WHEN V
0x1e1a…1e22 LineComalBin {
0x1e1a…1e22 ptr = 0xab79 // 0x1e1a @0x0
0x1e1a…1e22 lno = 0x0df2 // 0x1e1c @0x2
0x1e1a…1e22 at0004 = ╱a301╱ WHEN ╱ // 0x1e1e @0x4
0x1e1a…1e22 at0006 = ╱56╱V╱ // 0x1e20 @0x6
0x1e1a…1e22 at0007 = EOL // 0x1e21 @0x7
0x1e1a…1e22 }
0x1e22…1e28 ab7f 3580 REPEAT
0x1e22…1e28 LineComalBin {
0x1e22…1e28 ptr = 0xab7f // 0x1e22 @0x0
0x1e22…1e28 lno = 0x0dfc // 0x1e24 @0x2
0x1e22…1e28 at0004 = ╱97╱ REPEAT ╱ // 0x1e26 @0x4
0x1e22…1e28 at0005 = EOL // 0x1e27 @0x5
0x1e22…1e28 }
0x1e28…1e37 ab8e 3590 CURSOR V,23
0x1e28…1e37 LineComalBin {
0x1e28…1e37 ptr = 0xab8e // 0x1e28 @0x0
0x1e28…1e37 lno = 0x0e06 // 0x1e2a @0x2
0x1e28…1e37 at0004 = ╱a1╱ CURSOR ╱ // 0x1e2c @0x4
0x1e28…1e37 at0005 = ╱56╱V╱ // 0x1e2d @0x5
0x1e28…1e37 at0006 = ╱ec╱,╱ // 0x1e2e @0x6
0x1e28…1e37 at0007 = ╱32╱2╱ // 0x1e2f @0x7
0x1e28…1e37 at0008 = ╱33╱3╱ // 0x1e30 @0x8
0x1e28…1e37 at0009 = ╱fe0000b805╱ // 0x1e31 @0x9
0x1e28…1e37 at000e = EOL // 0x1e36 @0xe
0x1e28…1e37 }
0x1e37…1e6a abc1 3600 PRINT "Er det rigtigt at denne konto skal slettes";
0x1e37…1e6a LineComalBin {
0x1e37…1e6a ptr = 0xabc1 // 0x1e37 @0x0
0x1e37…1e6a lno = 0x0e10 // 0x1e39 @0x2
0x1e37…1e6a at0004 = ╱92╱ PRINT ╱ // 0x1e3b @0x4
0x1e37…1e6a at0005 = ╱22╱"╱ // 0x1e3c @0x5
0x1e37…1e6a at0006 = ╱45╱E╱ // 0x1e3d @0x6
0x1e37…1e6a at0007 = ╱72╱r╱ // 0x1e3e @0x7
0x1e37…1e6a at0008 = ╱20╱…╱ // 0x1e3f @0x8
0x1e37…1e6a at0009 = ╱64╱d╱ // 0x1e40 @0x9
0x1e37…1e6a at000a = ╱65╱e╱ // 0x1e41 @0xa
0x1e37…1e6a at000b = ╱74╱t╱ // 0x1e42 @0xb
0x1e37…1e6a at000c = ╱20╱…╱ // 0x1e43 @0xc
0x1e37…1e6a at000d = ╱72╱r╱ // 0x1e44 @0xd
0x1e37…1e6a at000e = ╱69╱i╱ // 0x1e45 @0xe
0x1e37…1e6a at000f = ╱67╱g╱ // 0x1e46 @0xf
0x1e37…1e6a at0010 = ╱74╱t╱ // 0x1e47 @0x10
0x1e37…1e6a at0011 = ╱69╱i╱ // 0x1e48 @0x11
0x1e37…1e6a at0012 = ╱67╱g╱ // 0x1e49 @0x12
0x1e37…1e6a at0013 = ╱74╱t╱ // 0x1e4a @0x13
0x1e37…1e6a at0014 = ╱20╱…╱ // 0x1e4b @0x14
0x1e37…1e6a at0015 = ╱61╱a╱ // 0x1e4c @0x15
0x1e37…1e6a at0016 = ╱74╱t╱ // 0x1e4d @0x16
0x1e37…1e6a at0017 = ╱20╱…╱ // 0x1e4e @0x17
0x1e37…1e6a at0018 = ╱64╱d╱ // 0x1e4f @0x18
0x1e37…1e6a at0019 = ╱65╱e╱ // 0x1e50 @0x19
0x1e37…1e6a at001a = ╱6e╱n╱ // 0x1e51 @0x1a
0x1e37…1e6a at001b = ╱6e╱n╱ // 0x1e52 @0x1b
0x1e37…1e6a at001c = ╱65╱e╱ // 0x1e53 @0x1c
0x1e37…1e6a at001d = ╱20╱…╱ // 0x1e54 @0x1d
0x1e37…1e6a at001e = ╱6b╱k╱ // 0x1e55 @0x1e
0x1e37…1e6a at001f = ╱6f╱o╱ // 0x1e56 @0x1f
0x1e37…1e6a at0020 = ╱6e╱n╱ // 0x1e57 @0x20
0x1e37…1e6a at0021 = ╱74╱t╱ // 0x1e58 @0x21
0x1e37…1e6a at0022 = ╱6f╱o╱ // 0x1e59 @0x22
0x1e37…1e6a at0023 = ╱20╱…╱ // 0x1e5a @0x23
0x1e37…1e6a at0024 = ╱73╱s╱ // 0x1e5b @0x24
0x1e37…1e6a at0025 = ╱6b╱k╱ // 0x1e5c @0x25
0x1e37…1e6a at0026 = ╱61╱a╱ // 0x1e5d @0x26
0x1e37…1e6a at0027 = ╱6c╱l╱ // 0x1e5e @0x27
0x1e37…1e6a at0028 = ╱20╱…╱ // 0x1e5f @0x28
0x1e37…1e6a at0029 = ╱73╱s╱ // 0x1e60 @0x29
0x1e37…1e6a at002a = ╱6c╱l╱ // 0x1e61 @0x2a
0x1e37…1e6a at002b = ╱65╱e╱ // 0x1e62 @0x2b
0x1e37…1e6a at002c = ╱74╱t╱ // 0x1e63 @0x2c
0x1e37…1e6a at002d = ╱74╱t╱ // 0x1e64 @0x2d
0x1e37…1e6a at002e = ╱65╱e╱ // 0x1e65 @0x2e
0x1e37…1e6a at002f = ╱73╱s╱ // 0x1e66 @0x2f
0x1e37…1e6a at0030 = ╱22╱"╱ // 0x1e67 @0x30
0x1e37…1e6a at0031 = ╱eb╱;╱ // 0x1e68 @0x31
0x1e37…1e6a at0032 = EOL // 0x1e69 @0x32
0x1e37…1e6a }
0x1e6a…1e8f abe6 3610 PRINT " (J/N)";BLANK$(E:23)
0x1e6a…1e8f LineComalBin {
0x1e6a…1e8f ptr = 0xabe6 // 0x1e6a @0x0
0x1e6a…1e8f lno = 0x0e1a // 0x1e6c @0x2
0x1e6a…1e8f at0004 = ╱92╱ PRINT ╱ // 0x1e6e @0x4
0x1e6a…1e8f at0005 = ╱22╱"╱ // 0x1e6f @0x5
0x1e6a…1e8f at0006 = ╱20╱…╱ // 0x1e70 @0x6
0x1e6a…1e8f at0007 = ╱20╱…╱ // 0x1e71 @0x7
0x1e6a…1e8f at0008 = ╱20╱…╱ // 0x1e72 @0x8
0x1e6a…1e8f at0009 = ╱20╱…╱ // 0x1e73 @0x9
0x1e6a…1e8f at000a = ╱20╱…╱ // 0x1e74 @0xa
0x1e6a…1e8f at000b = ╱20╱…╱ // 0x1e75 @0xb
0x1e6a…1e8f at000c = ╱28╱(╱ // 0x1e76 @0xc
0x1e6a…1e8f at000d = ╱4a╱J╱ // 0x1e77 @0xd
0x1e6a…1e8f at000e = ╱2f╱/╱ // 0x1e78 @0xe
0x1e6a…1e8f at000f = ╱4e╱N╱ // 0x1e79 @0xf
0x1e6a…1e8f at0010 = ╱29╱)╱ // 0x1e7a @0x10
0x1e6a…1e8f at0011 = ╱22╱"╱ // 0x1e7b @0x11
0x1e6a…1e8f at0012 = ╱eb╱;╱ // 0x1e7c @0x12
0x1e6a…1e8f at0013 = ╱42╱B╱ // 0x1e7d @0x13
0x1e6a…1e8f at0014 = ╱4c╱L╱ // 0x1e7e @0x14
0x1e6a…1e8f at0015 = ╱41╱A╱ // 0x1e7f @0x15
0x1e6a…1e8f at0016 = ╱4e╱N╱ // 0x1e80 @0x16
0x1e6a…1e8f at0017 = ╱4b╱K╱ // 0x1e81 @0x17
0x1e6a…1e8f at0018 = ╱ef╱$╱ // 0x1e82 @0x18
0x1e6a…1e8f at0019 = ╱ed╱(╱ // 0x1e83 @0x19
0x1e6a…1e8f at001a = ╱45╱E╱ // 0x1e84 @0x1a
0x1e6a…1e8f at001b = ╱f0╱:╱ // 0x1e85 @0x1b
0x1e6a…1e8f at001c = ╱32╱2╱ // 0x1e86 @0x1c
0x1e6a…1e8f at001d = ╱33╱3╱ // 0x1e87 @0x1d
0x1e6a…1e8f at001e = ╱fe0000b805╱ // 0x1e88 @0x1e
0x1e6a…1e8f at0023 = ╱ee╱)╱ // 0x1e8d @0x23
0x1e6a…1e8f at0024 = EOL // 0x1e8e @0x24
0x1e6a…1e8f }
0x1e8f…1ea4 abfb 3620 CURSOR 48,23
0x1e8f…1ea4 LineComalBin {
0x1e8f…1ea4 ptr = 0xabfb // 0x1e8f @0x0
0x1e8f…1ea4 lno = 0x0e24 // 0x1e91 @0x2
0x1e8f…1ea4 at0004 = ╱a1╱ CURSOR ╱ // 0x1e93 @0x4
0x1e8f…1ea4 at0005 = ╱34╱4╱ // 0x1e94 @0x5
0x1e8f…1ea4 at0006 = ╱38╱8╱ // 0x1e95 @0x6
0x1e8f…1ea4 at0007 = ╱fe0000c006╱ // 0x1e96 @0x7
0x1e8f…1ea4 at000c = ╱ec╱,╱ // 0x1e9b @0xc
0x1e8f…1ea4 at000d = ╱32╱2╱ // 0x1e9c @0xd
0x1e8f…1ea4 at000e = ╱33╱3╱ // 0x1e9d @0xe
0x1e8f…1ea4 at000f = ╱fe0000b805╱ // 0x1e9e @0xf
0x1e8f…1ea4 at0014 = EOL // 0x1ea3 @0x14
0x1e8f…1ea4 }
0x1ea4…1eac ac03 3630 INPUT A$
0x1ea4…1eac LineComalBin {
0x1ea4…1eac ptr = 0xac03 // 0x1ea4 @0x0
0x1ea4…1eac lno = 0x0e2e // 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 3640 EXEC NRTEST(A$)
0x1eac…1ebc LineComalBin {
0x1eac…1ebc ptr = 0xac13 // 0x1eac @0x0
0x1eac…1ebc lno = 0x0e38 // 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…1ed5 ac2c 3650 UNTIL P=-7 OR P=-8
0x1ebc…1ed5 LineComalBin {
0x1ebc…1ed5 ptr = 0xac2c // 0x1ebc @0x0
0x1ebc…1ed5 lno = 0x0e42 // 0x1ebe @0x2
0x1ebc…1ed5 at0004 = ╱98╱ UNTIL ╱ // 0x1ec0 @0x4
0x1ebc…1ed5 at0005 = ╱50╱P╱ // 0x1ec1 @0x5
0x1ebc…1ed5 at0006 = ╱dc╱=╱ // 0x1ec2 @0x6
0x1ebc…1ed5 at0007 = ╱e9╱-╱ // 0x1ec3 @0x7
0x1ebc…1ed5 at0008 = ╱37╱7╱ // 0x1ec4 @0x8
0x1ebc…1ed5 at0009 = ╱fe0000e003╱ // 0x1ec5 @0x9
0x1ebc…1ed5 at000e = ╱db╱ OR ╱ // 0x1eca @0xe
0x1ebc…1ed5 at000f = ╱50╱P╱ // 0x1ecb @0xf
0x1ebc…1ed5 at0010 = ╱dc╱=╱ // 0x1ecc @0x10
0x1ebc…1ed5 at0011 = ╱e9╱-╱ // 0x1ecd @0x11
0x1ebc…1ed5 at0012 = ╱38╱8╱ // 0x1ece @0x12
0x1ebc…1ed5 at0013 = ╱fe00008004╱ // 0x1ecf @0x13
0x1ebc…1ed5 at0018 = EOL // 0x1ed4 @0x18
0x1ebc…1ed5 }
0x1ed5…1ee5 ac3c 3660 IF P=-7 THEN
0x1ed5…1ee5 LineComalBin {
0x1ed5…1ee5 ptr = 0xac3c // 0x1ed5 @0x0
0x1ed5…1ee5 lno = 0x0e4c // 0x1ed7 @0x2
0x1ed5…1ee5 at0004 = ╱9c╱ IF ╱ // 0x1ed9 @0x4
0x1ed5…1ee5 at0005 = ╱50╱P╱ // 0x1eda @0x5
0x1ed5…1ee5 at0006 = ╱dc╱=╱ // 0x1edb @0x6
0x1ed5…1ee5 at0007 = ╱e9╱-╱ // 0x1edc @0x7
0x1ed5…1ee5 at0008 = ╱37╱7╱ // 0x1edd @0x8
0x1ed5…1ee5 at0009 = ╱fe0000e003╱ // 0x1ede @0x9
0x1ed5…1ee5 at000e = ╱b6╱ THEN ╱ // 0x1ee3 @0xe
0x1ed5…1ee5 at000f = EOL // 0x1ee4 @0xf
0x1ed5…1ee5 }
0x1ee5…1efa ac51 3670 EXEC SLETEPOST(KONT)
0x1ee5…1efa LineComalBin {
0x1ee5…1efa ptr = 0xac51 // 0x1ee5 @0x0
0x1ee5…1efa lno = 0x0e56 // 0x1ee7 @0x2
0x1ee5…1efa at0004 = ╱9d╱ EXEC ╱ // 0x1ee9 @0x4
0x1ee5…1efa at0005 = ╱53╱S╱ // 0x1eea @0x5
0x1ee5…1efa at0006 = ╱4c╱L╱ // 0x1eeb @0x6
0x1ee5…1efa at0007 = ╱45╱E╱ // 0x1eec @0x7
0x1ee5…1efa at0008 = ╱54╱T╱ // 0x1eed @0x8
0x1ee5…1efa at0009 = ╱45╱E╱ // 0x1eee @0x9
0x1ee5…1efa at000a = ╱50╱P╱ // 0x1eef @0xa
0x1ee5…1efa at000b = ╱4f╱O╱ // 0x1ef0 @0xb
0x1ee5…1efa at000c = ╱53╱S╱ // 0x1ef1 @0xc
0x1ee5…1efa at000d = ╱54╱T╱ // 0x1ef2 @0xd
0x1ee5…1efa at000e = ╱ed╱(╱ // 0x1ef3 @0xe
0x1ee5…1efa at000f = ╱4b╱K╱ // 0x1ef4 @0xf
0x1ee5…1efa at0010 = ╱4f╱O╱ // 0x1ef5 @0x10
0x1ee5…1efa at0011 = ╱4e╱N╱ // 0x1ef6 @0x11
0x1ee5…1efa at0012 = ╱54╱T╱ // 0x1ef7 @0x12
0x1ee5…1efa at0013 = ╱ee╱)╱ // 0x1ef8 @0x13
0x1ee5…1efa at0014 = EOL // 0x1ef9 @0x14
0x1ee5…1efa }
0x1efa…1f00 ac57 3680 ENDIF
0x1efa…1f00 LineComalBin {
0x1efa…1f00 ptr = 0xac57 // 0x1efa @0x0
0x1efa…1f00 lno = 0x0e60 // 0x1efc @0x2
0x1efa…1f00 at0004 = ╱9b╱ ENDIF ╱ // 0x1efe @0x4
0x1efa…1f00 at0005 = EOL // 0x1eff @0x5
0x1efa…1f00 }
0x1f00…1f0d ac64 3690 WHEN 4
0x1f00…1f0d LineComalBin {
0x1f00…1f0d ptr = 0xac64 // 0x1f00 @0x0
0x1f00…1f0d lno = 0x0e6a // 0x1f02 @0x2
0x1f00…1f0d at0004 = ╱a301╱ WHEN ╱ // 0x1f04 @0x4
0x1f00…1f0d at0006 = ╱34╱4╱ // 0x1f06 @0x6
0x1f00…1f0d at0007 = ╱fe00008003╱ // 0x1f07 @0x7
0x1f00…1f0d at000c = EOL // 0x1f0c @0xc
0x1f00…1f0d }
0x1f0d…1f1a ac71 3700 WHEN 5
0x1f0d…1f1a LineComalBin {
0x1f0d…1f1a ptr = 0xac71 // 0x1f0d @0x0
0x1f0d…1f1a lno = 0x0e74 // 0x1f0f @0x2
0x1f0d…1f1a at0004 = ╱a301╱ WHEN ╱ // 0x1f11 @0x4
0x1f0d…1f1a at0006 = ╱35╱5╱ // 0x1f13 @0x6
0x1f0d…1f1a at0007 = ╱fe0000a003╱ // 0x1f14 @0x7
0x1f0d…1f1a at000c = EOL // 0x1f19 @0xc
0x1f0d…1f1a }
0x1f1a…1f20 ac77 3710 REPEAT
0x1f1a…1f20 LineComalBin {
0x1f1a…1f20 ptr = 0xac77 // 0x1f1a @0x0
0x1f1a…1f20 lno = 0x0e7e // 0x1f1c @0x2
0x1f1a…1f20 at0004 = ╱97╱ REPEAT ╱ // 0x1f1e @0x4
0x1f1a…1f20 at0005 = EOL // 0x1f1f @0x5
0x1f1a…1f20 }
0x1f20…1f26 ac7d 3720 REPEAT
0x1f20…1f26 LineComalBin {
0x1f20…1f26 ptr = 0xac7d // 0x1f20 @0x0
0x1f20…1f26 lno = 0x0e88 // 0x1f22 @0x2
0x1f20…1f26 at0004 = ╱97╱ REPEAT ╱ // 0x1f24 @0x4
0x1f20…1f26 at0005 = EOL // 0x1f25 @0x5
0x1f20…1f26 }
0x1f26…1f35 ac8c 3730 CURSOR V,23
0x1f26…1f35 LineComalBin {
0x1f26…1f35 ptr = 0xac8c // 0x1f26 @0x0
0x1f26…1f35 lno = 0x0e92 // 0x1f28 @0x2
0x1f26…1f35 at0004 = ╱a1╱ CURSOR ╱ // 0x1f2a @0x4
0x1f26…1f35 at0005 = ╱56╱V╱ // 0x1f2b @0x5
0x1f26…1f35 at0006 = ╱ec╱,╱ // 0x1f2c @0x6
0x1f26…1f35 at0007 = ╱32╱2╱ // 0x1f2d @0x7
0x1f26…1f35 at0008 = ╱33╱3╱ // 0x1f2e @0x8
0x1f26…1f35 at0009 = ╱fe0000b805╱ // 0x1f2f @0x9
0x1f26…1f35 at000e = EOL // 0x1f34 @0xe
0x1f26…1f35 }
0x1f35…1f59 acb0 3740 PRINT "Fra kontonr (0: Alle)"
0x1f35…1f59 LineComalBin {
0x1f35…1f59 ptr = 0xacb0 // 0x1f35 @0x0
0x1f35…1f59 lno = 0x0e9c // 0x1f37 @0x2
0x1f35…1f59 at0004 = ╱92╱ PRINT ╱ // 0x1f39 @0x4
0x1f35…1f59 at0005 = ╱22╱"╱ // 0x1f3a @0x5
0x1f35…1f59 at0006 = ╱46╱F╱ // 0x1f3b @0x6
0x1f35…1f59 at0007 = ╱72╱r╱ // 0x1f3c @0x7
0x1f35…1f59 at0008 = ╱61╱a╱ // 0x1f3d @0x8
0x1f35…1f59 at0009 = ╱20╱…╱ // 0x1f3e @0x9
0x1f35…1f59 at000a = ╱6b╱k╱ // 0x1f3f @0xa
0x1f35…1f59 at000b = ╱6f╱o╱ // 0x1f40 @0xb
0x1f35…1f59 at000c = ╱6e╱n╱ // 0x1f41 @0xc
0x1f35…1f59 at000d = ╱74╱t╱ // 0x1f42 @0xd
0x1f35…1f59 at000e = ╱6f╱o╱ // 0x1f43 @0xe
0x1f35…1f59 at000f = ╱6e╱n╱ // 0x1f44 @0xf
0x1f35…1f59 at0010 = ╱72╱r╱ // 0x1f45 @0x10
0x1f35…1f59 at0011 = ╱20╱…╱ // 0x1f46 @0x11
0x1f35…1f59 at0012 = ╱20╱…╱ // 0x1f47 @0x12
0x1f35…1f59 at0013 = ╱20╱…╱ // 0x1f48 @0x13
0x1f35…1f59 at0014 = ╱20╱…╱ // 0x1f49 @0x14
0x1f35…1f59 at0015 = ╱20╱…╱ // 0x1f4a @0x15
0x1f35…1f59 at0016 = ╱20╱…╱ // 0x1f4b @0x16
0x1f35…1f59 at0017 = ╱20╱…╱ // 0x1f4c @0x17
0x1f35…1f59 at0018 = ╱20╱…╱ // 0x1f4d @0x18
0x1f35…1f59 at0019 = ╱28╱(╱ // 0x1f4e @0x19
0x1f35…1f59 at001a = ╱30╱0╱ // 0x1f4f @0x1a
0x1f35…1f59 at001b = ╱3a╱:╱ // 0x1f50 @0x1b
0x1f35…1f59 at001c = ╱20╱…╱ // 0x1f51 @0x1c
0x1f35…1f59 at001d = ╱41╱A╱ // 0x1f52 @0x1d
0x1f35…1f59 at001e = ╱6c╱l╱ // 0x1f53 @0x1e
0x1f35…1f59 at001f = ╱6c╱l╱ // 0x1f54 @0x1f
0x1f35…1f59 at0020 = ╱65╱e╱ // 0x1f55 @0x20
0x1f35…1f59 at0021 = ╱29╱)╱ // 0x1f56 @0x21
0x1f35…1f59 at0022 = ╱22╱"╱ // 0x1f57 @0x22
0x1f35…1f59 at0023 = EOL // 0x1f58 @0x23
0x1f35…1f59 }
0x1f59…1f6e acc5 3750 CURSOR 15,23
0x1f59…1f6e LineComalBin {
0x1f59…1f6e ptr = 0xacc5 // 0x1f59 @0x0
0x1f59…1f6e lno = 0x0ea6 // 0x1f5b @0x2
0x1f59…1f6e at0004 = ╱a1╱ CURSOR ╱ // 0x1f5d @0x4
0x1f59…1f6e at0005 = ╱31╱1╱ // 0x1f5e @0x5
0x1f59…1f6e at0006 = ╱35╱5╱ // 0x1f5f @0x6
0x1f59…1f6e at0007 = ╱fe0000f004╱ // 0x1f60 @0x7
0x1f59…1f6e at000c = ╱ec╱,╱ // 0x1f65 @0xc
0x1f59…1f6e at000d = ╱32╱2╱ // 0x1f66 @0xd
0x1f59…1f6e at000e = ╱33╱3╱ // 0x1f67 @0xe
0x1f59…1f6e at000f = ╱fe0000b805╱ // 0x1f68 @0xf
0x1f59…1f6e at0014 = EOL // 0x1f6d @0x14
0x1f59…1f6e }
0x1f6e…1f78 accf 3760 INPUT KTN$
0x1f6e…1f78 LineComalBin {
0x1f6e…1f78 ptr = 0xaccf // 0x1f6e @0x0
0x1f6e…1f78 lno = 0x0eb0 // 0x1f70 @0x2
0x1f6e…1f78 at0004 = ╱91╱ INPUT ╱ // 0x1f72 @0x4
0x1f6e…1f78 at0005 = ╱4b╱K╱ // 0x1f73 @0x5
0x1f6e…1f78 at0006 = ╱54╱T╱ // 0x1f74 @0x6
0x1f6e…1f78 at0007 = ╱4e╱N╱ // 0x1f75 @0x7
0x1f6e…1f78 at0008 = ╱ef╱$╱ // 0x1f76 @0x8
0x1f6e…1f78 at0009 = EOL // 0x1f77 @0x9
0x1f6e…1f78 }
0x1f78…1f8a ace1 3770 EXEC NRTEST(KTN$)
0x1f78…1f8a LineComalBin {
0x1f78…1f8a ptr = 0xace1 // 0x1f78 @0x0
0x1f78…1f8a lno = 0x0eba // 0x1f7a @0x2
0x1f78…1f8a at0004 = ╱9d╱ EXEC ╱ // 0x1f7c @0x4
0x1f78…1f8a at0005 = ╱4e╱N╱ // 0x1f7d @0x5
0x1f78…1f8a at0006 = ╱52╱R╱ // 0x1f7e @0x6
0x1f78…1f8a at0007 = ╱54╱T╱ // 0x1f7f @0x7
0x1f78…1f8a at0008 = ╱45╱E╱ // 0x1f80 @0x8
0x1f78…1f8a at0009 = ╱53╱S╱ // 0x1f81 @0x9
0x1f78…1f8a at000a = ╱54╱T╱ // 0x1f82 @0xa
0x1f78…1f8a at000b = ╱ed╱(╱ // 0x1f83 @0xb
0x1f78…1f8a at000c = ╱4b╱K╱ // 0x1f84 @0xc
0x1f78…1f8a at000d = ╱54╱T╱ // 0x1f85 @0xd
0x1f78…1f8a at000e = ╱4e╱N╱ // 0x1f86 @0xe
0x1f78…1f8a at000f = ╱ef╱$╱ // 0x1f87 @0xf
0x1f78…1f8a at0010 = ╱ee╱)╱ // 0x1f88 @0x10
0x1f78…1f8a at0011 = EOL // 0x1f89 @0x11
0x1f78…1f8a }
0x1f8a…1fab ad02 3780 UNTIL L=V AND P<1000 AND TEST2=B OR P=B
0x1f8a…1fab LineComalBin {
0x1f8a…1fab ptr = 0xad02 // 0x1f8a @0x0
0x1f8a…1fab lno = 0x0ec4 // 0x1f8c @0x2
0x1f8a…1fab at0004 = ╱98╱ UNTIL ╱ // 0x1f8e @0x4
0x1f8a…1fab at0005 = ╱4c╱L╱ // 0x1f8f @0x5
0x1f8a…1fab at0006 = ╱dc╱=╱ // 0x1f90 @0x6
0x1f8a…1fab at0007 = ╱56╱V╱ // 0x1f91 @0x7
0x1f8a…1fab at0008 = ╱da╱ AND ╱ // 0x1f92 @0x8
0x1f8a…1fab at0009 = ╱50╱P╱ // 0x1f93 @0x9
0x1f8a…1fab at000a = ╱dd╱<╱ // 0x1f94 @0xa
0x1f8a…1fab at000b = ╱31╱1╱ // 0x1f95 @0xb
0x1f8a…1fab at000c = ╱30╱0╱ // 0x1f96 @0xc
0x1f8a…1fab at000d = ╱30╱0╱ // 0x1f97 @0xd
0x1f8a…1fab at000e = ╱30╱0╱ // 0x1f98 @0xe
0x1f8a…1fab at000f = ╱fe0000fa0a╱ // 0x1f99 @0xf
0x1f8a…1fab at0014 = ╱da╱ AND ╱ // 0x1f9e @0x14
0x1f8a…1fab at0015 = ╱54╱T╱ // 0x1f9f @0x15
0x1f8a…1fab at0016 = ╱45╱E╱ // 0x1fa0 @0x16
0x1f8a…1fab at0017 = ╱53╱S╱ // 0x1fa1 @0x17
0x1f8a…1fab at0018 = ╱54╱T╱ // 0x1fa2 @0x18
0x1f8a…1fab at0019 = ╱32╱2╱ // 0x1fa3 @0x19
0x1f8a…1fab at001a = ╱dc╱=╱ // 0x1fa4 @0x1a
0x1f8a…1fab at001b = ╱42╱B╱ // 0x1fa5 @0x1b
0x1f8a…1fab at001c = ╱db╱ OR ╱ // 0x1fa6 @0x1c
0x1f8a…1fab at001d = ╱50╱P╱ // 0x1fa7 @0x1d
0x1f8a…1fab at001e = ╱dc╱=╱ // 0x1fa8 @0x1e
0x1f8a…1fab at001f = ╱42╱B╱ // 0x1fa9 @0x1f
0x1f8a…1fab at0020 = EOL // 0x1faa @0x20
0x1f8a…1fab }
0x1fab…1fb5 ad0c 3790 IF P=B THEN
0x1fab…1fb5 LineComalBin {
0x1fab…1fb5 ptr = 0xad0c // 0x1fab @0x0
0x1fab…1fb5 lno = 0x0ece // 0x1fad @0x2
0x1fab…1fb5 at0004 = ╱9c╱ IF ╱ // 0x1faf @0x4
0x1fab…1fb5 at0005 = ╱50╱P╱ // 0x1fb0 @0x5
0x1fab…1fb5 at0006 = ╱dc╱=╱ // 0x1fb1 @0x6
0x1fab…1fb5 at0007 = ╱42╱B╱ // 0x1fb2 @0x7
0x1fab…1fb5 at0008 = ╱b6╱ THEN ╱ // 0x1fb3 @0x8
0x1fab…1fb5 at0009 = EOL // 0x1fb4 @0x9
0x1fab…1fb5 }
0x1fb5…1fc8 ad1f 3800 FRA=E;TIL=AENT
0x1fb5…1fc8 LineComalBin {
0x1fb5…1fc8 ptr = 0xad1f // 0x1fb5 @0x0
0x1fb5…1fc8 lno = 0x0ed8 // 0x1fb7 @0x2
0x1fb5…1fc8 at0004 = ╱46╱F╱ // 0x1fb9 @0x4
0x1fb5…1fc8 at0005 = ╱52╱R╱ // 0x1fba @0x5
0x1fb5…1fc8 at0006 = ╱41╱A╱ // 0x1fbb @0x6
0x1fb5…1fc8 at0007 = ╱dc╱=╱ // 0x1fbc @0x7
0x1fb5…1fc8 at0008 = ╱45╱E╱ // 0x1fbd @0x8
0x1fb5…1fc8 at0009 = ╱eb╱;╱ // 0x1fbe @0x9
0x1fb5…1fc8 at000a = ╱54╱T╱ // 0x1fbf @0xa
0x1fb5…1fc8 at000b = ╱49╱I╱ // 0x1fc0 @0xb
0x1fb5…1fc8 at000c = ╱4c╱L╱ // 0x1fc1 @0xc
0x1fb5…1fc8 at000d = ╱dc╱=╱ // 0x1fc2 @0xd
0x1fb5…1fc8 at000e = ╱41╱A╱ // 0x1fc3 @0xe
0x1fb5…1fc8 at000f = ╱45╱E╱ // 0x1fc4 @0xf
0x1fb5…1fc8 at0010 = ╱4e╱N╱ // 0x1fc5 @0x10
0x1fb5…1fc8 at0011 = ╱54╱T╱ // 0x1fc6 @0x11
0x1fb5…1fc8 at0012 = EOL // 0x1fc7 @0x12
0x1fb5…1fc8 }
0x1fc8…1fce ad25 3810 ELSE
0x1fc8…1fce LineComalBin {
0x1fc8…1fce ptr = 0xad25 // 0x1fc8 @0x0
0x1fc8…1fce lno = 0x0ee2 // 0x1fca @0x2
0x1fc8…1fce at0004 = ╱9a╱ ELSE ╱ // 0x1fcc @0x4
0x1fc8…1fce at0005 = EOL // 0x1fcd @0x5
0x1fc8…1fce }
0x1fce…1fd9 ad30 3820 KONT=P
0x1fce…1fd9 LineComalBin {
0x1fce…1fd9 ptr = 0xad30 // 0x1fce @0x0
0x1fce…1fd9 lno = 0x0eec // 0x1fd0 @0x2
0x1fce…1fd9 at0004 = ╱4b╱K╱ // 0x1fd2 @0x4
0x1fce…1fd9 at0005 = ╱4f╱O╱ // 0x1fd3 @0x5
0x1fce…1fd9 at0006 = ╱4e╱N╱ // 0x1fd4 @0x6
0x1fce…1fd9 at0007 = ╱54╱T╱ // 0x1fd5 @0x7
0x1fce…1fd9 at0008 = ╱dc╱=╱ // 0x1fd6 @0x8
0x1fce…1fd9 at0009 = ╱50╱P╱ // 0x1fd7 @0x9
0x1fce…1fd9 at000a = EOL // 0x1fd8 @0xa
0x1fce…1fd9 }
0x1fd9…1ffd ad54 3830 EXEC FINDPOST(ETAB,MEANTAL,P,EPIL3)
0x1fd9…1ffd LineComalBin {
0x1fd9…1ffd ptr = 0xad54 // 0x1fd9 @0x0
0x1fd9…1ffd lno = 0x0ef6 // 0x1fdb @0x2
0x1fd9…1ffd at0004 = ╱9d╱ EXEC ╱ // 0x1fdd @0x4
0x1fd9…1ffd at0005 = ╱46╱F╱ // 0x1fde @0x5
0x1fd9…1ffd at0006 = ╱49╱I╱ // 0x1fdf @0x6
0x1fd9…1ffd at0007 = ╱4e╱N╱ // 0x1fe0 @0x7
0x1fd9…1ffd at0008 = ╱44╱D╱ // 0x1fe1 @0x8
0x1fd9…1ffd at0009 = ╱50╱P╱ // 0x1fe2 @0x9
0x1fd9…1ffd at000a = ╱4f╱O╱ // 0x1fe3 @0xa
0x1fd9…1ffd at000b = ╱53╱S╱ // 0x1fe4 @0xb
0x1fd9…1ffd at000c = ╱54╱T╱ // 0x1fe5 @0xc
0x1fd9…1ffd at000d = ╱ed╱(╱ // 0x1fe6 @0xd
0x1fd9…1ffd at000e = ╱45╱E╱ // 0x1fe7 @0xe
0x1fd9…1ffd at000f = ╱54╱T╱ // 0x1fe8 @0xf
0x1fd9…1ffd at0010 = ╱41╱A╱ // 0x1fe9 @0x10
0x1fd9…1ffd at0011 = ╱42╱B╱ // 0x1fea @0x11
0x1fd9…1ffd at0012 = ╱ec╱,╱ // 0x1feb @0x12
0x1fd9…1ffd at0013 = ╱4d╱M╱ // 0x1fec @0x13
0x1fd9…1ffd at0014 = ╱45╱E╱ // 0x1fed @0x14
0x1fd9…1ffd at0015 = ╱41╱A╱ // 0x1fee @0x15
0x1fd9…1ffd at0016 = ╱4e╱N╱ // 0x1fef @0x16
0x1fd9…1ffd at0017 = ╱54╱T╱ // 0x1ff0 @0x17
0x1fd9…1ffd at0018 = ╱41╱A╱ // 0x1ff1 @0x18
0x1fd9…1ffd at0019 = ╱4c╱L╱ // 0x1ff2 @0x19
0x1fd9…1ffd at001a = ╱ec╱,╱ // 0x1ff3 @0x1a
0x1fd9…1ffd at001b = ╱50╱P╱ // 0x1ff4 @0x1b
0x1fd9…1ffd at001c = ╱ec╱,╱ // 0x1ff5 @0x1c
0x1fd9…1ffd at001d = ╱45╱E╱ // 0x1ff6 @0x1d
0x1fd9…1ffd at001e = ╱50╱P╱ // 0x1ff7 @0x1e
0x1fd9…1ffd at001f = ╱49╱I╱ // 0x1ff8 @0x1f
0x1fd9…1ffd at0020 = ╱4c╱L╱ // 0x1ff9 @0x20
0x1fd9…1ffd at0021 = ╱33╱3╱ // 0x1ffa @0x21
0x1fd9…1ffd at0022 = ╱ee╱)╱ // 0x1ffb @0x22
0x1fd9…1ffd at0023 = EOL // 0x1ffc @0x23
0x1fd9…1ffd }
0x1ffd…200b ad62 3840 FRA=EPIL3
0x1ffd…200b LineComalBin {
0x1ffd…200b ptr = 0xad62 // 0x1ffd @0x0
0x1ffd…200b lno = 0x0f00 // 0x1fff @0x2
0x1ffd…200b at0004 = ╱46╱F╱ // 0x2001 @0x4
0x1ffd…200b at0005 = ╱52╱R╱ // 0x2002 @0x5
0x1ffd…200b at0006 = ╱41╱A╱ // 0x2003 @0x6
0x1ffd…200b at0007 = ╱dc╱=╱ // 0x2004 @0x7
0x1ffd…200b at0008 = ╱45╱E╱ // 0x2005 @0x8
0x1ffd…200b at0009 = ╱50╱P╱ // 0x2006 @0x9
0x1ffd…200b at000a = ╱49╱I╱ // 0x2007 @0xa
0x1ffd…200b at000b = ╱4c╱L╱ // 0x2008 @0xb
0x1ffd…200b at000c = ╱33╱3╱ // 0x2009 @0xc
0x1ffd…200b at000d = EOL // 0x200a @0xd
0x1ffd…200b }
0x200b…2011 ad68 3850 ENDIF
0x200b…2011 LineComalBin {
0x200b…2011 ptr = 0xad68 // 0x200b @0x0
0x200b…2011 lno = 0x0f0a // 0x200d @0x2
0x200b…2011 at0004 = ╱9b╱ ENDIF ╱ // 0x200f @0x4
0x200b…2011 at0005 = EOL // 0x2010 @0x5
0x200b…2011 }
0x2011…201f ad76 3860 UNTIL FRA<=AENT
0x2011…201f LineComalBin {
0x2011…201f ptr = 0xad76 // 0x2011 @0x0
0x2011…201f lno = 0x0f14 // 0x2013 @0x2
0x2011…201f at0004 = ╱98╱ UNTIL ╱ // 0x2015 @0x4
0x2011…201f at0005 = ╱46╱F╱ // 0x2016 @0x5
0x2011…201f at0006 = ╱52╱R╱ // 0x2017 @0x6
0x2011…201f at0007 = ╱41╱A╱ // 0x2018 @0x7
0x2011…201f at0008 = ╱df╱<=╱ // 0x2019 @0x8
0x2011…201f at0009 = ╱41╱A╱ // 0x201a @0x9
0x2011…201f at000a = ╱45╱E╱ // 0x201b @0xa
0x2011…201f at000b = ╱4e╱N╱ // 0x201c @0xb
0x2011…201f at000c = ╱54╱T╱ // 0x201d @0xc
0x2011…201f at000d = EOL // 0x201e @0xd
0x2011…201f }
0x201f…2029 ad80 3870 IF P>B THEN
0x201f…2029 LineComalBin {
0x201f…2029 ptr = 0xad80 // 0x201f @0x0
0x201f…2029 lno = 0x0f1e // 0x2021 @0x2
0x201f…2029 at0004 = ╱9c╱ IF ╱ // 0x2023 @0x4
0x201f…2029 at0005 = ╱50╱P╱ // 0x2024 @0x5
0x201f…2029 at0006 = ╱de╱>╱ // 0x2025 @0x6
0x201f…2029 at0007 = ╱42╱B╱ // 0x2026 @0x7
0x201f…2029 at0008 = ╱b6╱ THEN ╱ // 0x2027 @0x8
0x201f…2029 at0009 = EOL // 0x2028 @0x9
0x201f…2029 }
0x2029…202f ad86 3880 REPEAT
0x2029…202f LineComalBin {
0x2029…202f ptr = 0xad86 // 0x2029 @0x0
0x2029…202f lno = 0x0f28 // 0x202b @0x2
0x2029…202f at0004 = ╱97╱ REPEAT ╱ // 0x202d @0x4
0x2029…202f at0005 = EOL // 0x202e @0x5
0x2029…202f }
0x202f…203e (107,) ad95 3890 CURSOR V,23
0x202f…203e LineComalBin {
0x202f…203e ptr = 0xad95 // 0x202f @0x0
0x202f…203e lno = 0x0f32 // 0x2031 @0x2
0x202f…203e at0004 = ╱a1╱ CURSOR ╱ // 0x2033 @0x4
0x202f…203e at0005 = ╱56╱V╱ // 0x2034 @0x5
0x202f…203e at0006 = ╱ec╱,╱ // 0x2035 @0x6
0x202f…203e at0007 = ╱32╱2╱ // 0x2036 @0x7
0x202f…203e at0008 = ╱33╱3╱ // 0x2037 @0x8
0x202f…203e at0009 = ╱fe0000b805╱ // 0x2038 @0x9
0x202f…203e at000e = EOL // 0x203d @0xe
0x202f…203e }
0x203e…206d adc4 3900 PRINT "Til kontonr "
0x203e…206d LineComalBin {
0x203e…206d ptr = 0xadc4 // 0x203e @0x0
0x203e…206d lno = 0x0f3c // 0x2040 @0x2
0x203e…206d at0004 = ╱92╱ PRINT ╱ // 0x2042 @0x4
0x203e…206d at0005 = ╱22╱"╱ // 0x2043 @0x5
0x203e…206d at0006 = ╱54╱T╱ // 0x2044 @0x6
0x203e…206d at0007 = ╱69╱i╱ // 0x2045 @0x7
0x203e…206d at0008 = ╱6c╱l╱ // 0x2046 @0x8
0x203e…206d at0009 = ╱20╱…╱ // 0x2047 @0x9
0x203e…206d at000a = ╱6b╱k╱ // 0x2048 @0xa
0x203e…206d at000b = ╱6f╱o╱ // 0x2049 @0xb
0x203e…206d at000c = ╱6e╱n╱ // 0x204a @0xc
0x203e…206d at000d = ╱74╱t╱ // 0x204b @0xd
0x203e…206d at000e = ╱6f╱o╱ // 0x204c @0xe
0x203e…206d at000f = ╱6e╱n╱ // 0x204d @0xf
0x203e…206d at0010 = ╱72╱r╱ // 0x204e @0x10
0x203e…206d at0011 = ╱20╱…╱ // 0x204f @0x11
0x203e…206d at0012 = ╱20╱…╱ // 0x2050 @0x12
0x203e…206d at0013 = ╱20╱…╱ // 0x2051 @0x13
0x203e…206d at0014 = ╱20╱…╱ // 0x2052 @0x14
0x203e…206d at0015 = ╱20╱…╱ // 0x2053 @0x15
0x203e…206d at0016 = ╱20╱…╱ // 0x2054 @0x16
0x203e…206d at0017 = ╱20╱…╱ // 0x2055 @0x17
0x203e…206d at0018 = ╱20╱…╱ // 0x2056 @0x18
0x203e…206d at0019 = ╱20╱…╱ // 0x2057 @0x19
0x203e…206d at001a = ╱20╱…╱ // 0x2058 @0x1a
0x203e…206d at001b = ╱20╱…╱ // 0x2059 @0x1b
0x203e…206d at001c = ╱20╱…╱ // 0x205a @0x1c
0x203e…206d at001d = ╱20╱…╱ // 0x205b @0x1d
0x203e…206d at001e = ╱20╱…╱ // 0x205c @0x1e
0x203e…206d at001f = ╱20╱…╱ // 0x205d @0x1f
0x203e…206d at0020 = ╱20╱…╱ // 0x205e @0x20
0x203e…206d at0021 = ╱20╱…╱ // 0x205f @0x21
0x203e…206d at0022 = ╱20╱…╱ // 0x2060 @0x22
0x203e…206d at0023 = ╱20╱…╱ // 0x2061 @0x23
0x203e…206d at0024 = ╱20╱…╱ // 0x2062 @0x24
0x203e…206d at0025 = ╱20╱…╱ // 0x2063 @0x25
0x203e…206d at0026 = ╱20╱…╱ // 0x2064 @0x26
0x203e…206d at0027 = ╱20╱…╱ // 0x2065 @0x27
0x203e…206d at0028 = ╱20╱…╱ // 0x2066 @0x28
0x203e…206d at0029 = ╱20╱…╱ // 0x2067 @0x29
0x203e…206d at002a = ╱20╱…╱ // 0x2068 @0x2a
0x203e…206d at002b = ╱20╱…╱ // 0x2069 @0x2b
0x203e…206d at002c = ╱20╱…╱ // 0x206a @0x2c
0x203e…206d at002d = ╱22╱"╱ // 0x206b @0x2d
0x203e…206d at002e = EOL // 0x206c @0x2e
0x203e…206d }
0x206d…2082 add9 3910 CURSOR 15,23
0x206d…2082 LineComalBin {
0x206d…2082 ptr = 0xadd9 // 0x206d @0x0
0x206d…2082 lno = 0x0f46 // 0x206f @0x2
0x206d…2082 at0004 = ╱a1╱ CURSOR ╱ // 0x2071 @0x4
0x206d…2082 at0005 = ╱31╱1╱ // 0x2072 @0x5
0x206d…2082 at0006 = ╱35╱5╱ // 0x2073 @0x6
0x206d…2082 at0007 = ╱fe0000f004╱ // 0x2074 @0x7
0x206d…2082 at000c = ╱ec╱,╱ // 0x2079 @0xc
0x206d…2082 at000d = ╱32╱2╱ // 0x207a @0xd
0x206d…2082 at000e = ╱33╱3╱ // 0x207b @0xe
0x206d…2082 at000f = ╱fe0000b805╱ // 0x207c @0xf
0x206d…2082 at0014 = EOL // 0x2081 @0x14
0x206d…2082 }
0x2082…208c ade3 3920 INPUT KTN$
0x2082…208c LineComalBin {
0x2082…208c ptr = 0xade3 // 0x2082 @0x0
0x2082…208c lno = 0x0f50 // 0x2084 @0x2
0x2082…208c at0004 = ╱91╱ INPUT ╱ // 0x2086 @0x4
0x2082…208c at0005 = ╱4b╱K╱ // 0x2087 @0x5
0x2082…208c at0006 = ╱54╱T╱ // 0x2088 @0x6
0x2082…208c at0007 = ╱4e╱N╱ // 0x2089 @0x7
0x2082…208c at0008 = ╱ef╱$╱ // 0x208a @0x8
0x2082…208c at0009 = EOL // 0x208b @0x9
0x2082…208c }
0x208c…209e adf5 3930 EXEC NRTEST(KTN$)
0x208c…209e LineComalBin {
0x208c…209e ptr = 0xadf5 // 0x208c @0x0
0x208c…209e lno = 0x0f5a // 0x208e @0x2
0x208c…209e at0004 = ╱9d╱ EXEC ╱ // 0x2090 @0x4
0x208c…209e at0005 = ╱4e╱N╱ // 0x2091 @0x5
0x208c…209e at0006 = ╱52╱R╱ // 0x2092 @0x6
0x208c…209e at0007 = ╱54╱T╱ // 0x2093 @0x7
0x208c…209e at0008 = ╱45╱E╱ // 0x2094 @0x8
0x208c…209e at0009 = ╱53╱S╱ // 0x2095 @0x9
0x208c…209e at000a = ╱54╱T╱ // 0x2096 @0xa
0x208c…209e at000b = ╱ed╱(╱ // 0x2097 @0xb
0x208c…209e at000c = ╱4b╱K╱ // 0x2098 @0xc
0x208c…209e at000d = ╱54╱T╱ // 0x2099 @0xd
0x208c…209e at000e = ╱4e╱N╱ // 0x209a @0xe
0x208c…209e at000f = ╱ef╱$╱ // 0x209b @0xf
0x208c…209e at0010 = ╱ee╱)╱ // 0x209c @0x10
0x208c…209e at0011 = EOL // 0x209d @0x11
0x208c…209e }
0x209e…20c2 ae19 3940 UNTIL L=V AND P<1000 AND TEST2=B AND P=>KONT
0x209e…20c2 LineComalBin {
0x209e…20c2 ptr = 0xae19 // 0x209e @0x0
0x209e…20c2 lno = 0x0f64 // 0x20a0 @0x2
0x209e…20c2 at0004 = ╱98╱ UNTIL ╱ // 0x20a2 @0x4
0x209e…20c2 at0005 = ╱4c╱L╱ // 0x20a3 @0x5
0x209e…20c2 at0006 = ╱dc╱=╱ // 0x20a4 @0x6
0x209e…20c2 at0007 = ╱56╱V╱ // 0x20a5 @0x7
0x209e…20c2 at0008 = ╱da╱ AND ╱ // 0x20a6 @0x8
0x209e…20c2 at0009 = ╱50╱P╱ // 0x20a7 @0x9
0x209e…20c2 at000a = ╱dd╱<╱ // 0x20a8 @0xa
0x209e…20c2 at000b = ╱31╱1╱ // 0x20a9 @0xb
0x209e…20c2 at000c = ╱30╱0╱ // 0x20aa @0xc
0x209e…20c2 at000d = ╱30╱0╱ // 0x20ab @0xd
0x209e…20c2 at000e = ╱30╱0╱ // 0x20ac @0xe
0x209e…20c2 at000f = ╱fe0000fa0a╱ // 0x20ad @0xf
0x209e…20c2 at0014 = ╱da╱ AND ╱ // 0x20b2 @0x14
0x209e…20c2 at0015 = ╱54╱T╱ // 0x20b3 @0x15
0x209e…20c2 at0016 = ╱45╱E╱ // 0x20b4 @0x16
0x209e…20c2 at0017 = ╱53╱S╱ // 0x20b5 @0x17
0x209e…20c2 at0018 = ╱54╱T╱ // 0x20b6 @0x18
0x209e…20c2 at0019 = ╱32╱2╱ // 0x20b7 @0x19
0x209e…20c2 at001a = ╱dc╱=╱ // 0x20b8 @0x1a
0x209e…20c2 at001b = ╱42╱B╱ // 0x20b9 @0x1b
0x209e…20c2 at001c = ╱da╱ AND ╱ // 0x20ba @0x1c
0x209e…20c2 at001d = ╱50╱P╱ // 0x20bb @0x1d
0x209e…20c2 at001e = ╱e0╱=>╱ // 0x20bc @0x1e
0x209e…20c2 at001f = ╱4b╱K╱ // 0x20bd @0x1f
0x209e…20c2 at0020 = ╱4f╱O╱ // 0x20be @0x20
0x209e…20c2 at0021 = ╱4e╱N╱ // 0x20bf @0x21
0x209e…20c2 at0022 = ╱54╱T╱ // 0x20c0 @0x22
0x209e…20c2 at0023 = EOL // 0x20c1 @0x23
0x209e…20c2 }
0x20c2…20e6 ae3d 3950 EXEC FINDPOST(ETAB,MEANTAL,P,EPIL3)
0x20c2…20e6 LineComalBin {
0x20c2…20e6 ptr = 0xae3d // 0x20c2 @0x0
0x20c2…20e6 lno = 0x0f6e // 0x20c4 @0x2
0x20c2…20e6 at0004 = ╱9d╱ EXEC ╱ // 0x20c6 @0x4
0x20c2…20e6 at0005 = ╱46╱F╱ // 0x20c7 @0x5
0x20c2…20e6 at0006 = ╱49╱I╱ // 0x20c8 @0x6
0x20c2…20e6 at0007 = ╱4e╱N╱ // 0x20c9 @0x7
0x20c2…20e6 at0008 = ╱44╱D╱ // 0x20ca @0x8
0x20c2…20e6 at0009 = ╱50╱P╱ // 0x20cb @0x9
0x20c2…20e6 at000a = ╱4f╱O╱ // 0x20cc @0xa
0x20c2…20e6 at000b = ╱53╱S╱ // 0x20cd @0xb
0x20c2…20e6 at000c = ╱54╱T╱ // 0x20ce @0xc
0x20c2…20e6 at000d = ╱ed╱(╱ // 0x20cf @0xd
0x20c2…20e6 at000e = ╱45╱E╱ // 0x20d0 @0xe
0x20c2…20e6 at000f = ╱54╱T╱ // 0x20d1 @0xf
0x20c2…20e6 at0010 = ╱41╱A╱ // 0x20d2 @0x10
0x20c2…20e6 at0011 = ╱42╱B╱ // 0x20d3 @0x11
0x20c2…20e6 at0012 = ╱ec╱,╱ // 0x20d4 @0x12
0x20c2…20e6 at0013 = ╱4d╱M╱ // 0x20d5 @0x13
0x20c2…20e6 at0014 = ╱45╱E╱ // 0x20d6 @0x14
0x20c2…20e6 at0015 = ╱41╱A╱ // 0x20d7 @0x15
0x20c2…20e6 at0016 = ╱4e╱N╱ // 0x20d8 @0x16
0x20c2…20e6 at0017 = ╱54╱T╱ // 0x20d9 @0x17
0x20c2…20e6 at0018 = ╱41╱A╱ // 0x20da @0x18
0x20c2…20e6 at0019 = ╱4c╱L╱ // 0x20db @0x19
0x20c2…20e6 at001a = ╱ec╱,╱ // 0x20dc @0x1a
0x20c2…20e6 at001b = ╱50╱P╱ // 0x20dd @0x1b
0x20c2…20e6 at001c = ╱ec╱,╱ // 0x20de @0x1c
0x20c2…20e6 at001d = ╱45╱E╱ // 0x20df @0x1d
0x20c2…20e6 at001e = ╱50╱P╱ // 0x20e0 @0x1e
0x20c2…20e6 at001f = ╱49╱I╱ // 0x20e1 @0x1f
0x20c2…20e6 at0020 = ╱4c╱L╱ // 0x20e2 @0x20
0x20c2…20e6 at0021 = ╱33╱3╱ // 0x20e3 @0x21
0x20c2…20e6 at0022 = ╱ee╱)╱ // 0x20e4 @0x22
0x20c2…20e6 at0023 = EOL // 0x20e5 @0x23
0x20c2…20e6 }
0x20e6…2100 ae57 3960 IF CEKS=E THEN EPIL3=EPIL3-E
0x20e6…2100 LineComalBin {
0x20e6…2100 ptr = 0xae57 // 0x20e6 @0x0
0x20e6…2100 lno = 0x0f78 // 0x20e8 @0x2
0x20e6…2100 at0004 = ╱82╱ IF ╱ // 0x20ea @0x4
0x20e6…2100 at0005 = ╱43╱C╱ // 0x20eb @0x5
0x20e6…2100 at0006 = ╱45╱E╱ // 0x20ec @0x6
0x20e6…2100 at0007 = ╱4b╱K╱ // 0x20ed @0x7
0x20e6…2100 at0008 = ╱53╱S╱ // 0x20ee @0x8
0x20e6…2100 at0009 = ╱dc╱=╱ // 0x20ef @0x9
0x20e6…2100 at000a = ╱45╱E╱ // 0x20f0 @0xa
0x20e6…2100 at000b = ╱b6╱ THEN ╱ // 0x20f1 @0xb
0x20e6…2100 at000c = ╱45╱E╱ // 0x20f2 @0xc
0x20e6…2100 at000d = ╱50╱P╱ // 0x20f3 @0xd
0x20e6…2100 at000e = ╱49╱I╱ // 0x20f4 @0xe
0x20e6…2100 at000f = ╱4c╱L╱ // 0x20f5 @0xf
0x20e6…2100 at0010 = ╱33╱3╱ // 0x20f6 @0x10
0x20e6…2100 at0011 = ╱dc╱=╱ // 0x20f7 @0x11
0x20e6…2100 at0012 = ╱45╱E╱ // 0x20f8 @0x12
0x20e6…2100 at0013 = ╱50╱P╱ // 0x20f9 @0x13
0x20e6…2100 at0014 = ╱49╱I╱ // 0x20fa @0x14
0x20e6…2100 at0015 = ╱4c╱L╱ // 0x20fb @0x15
0x20e6…2100 at0016 = ╱33╱3╱ // 0x20fc @0x16
0x20e6…2100 at0017 = ╱e3╱-╱ // 0x20fd @0x17
0x20e6…2100 at0018 = ╱45╱E╱ // 0x20fe @0x18
0x20e6…2100 at0019 = EOL // 0x20ff @0x19
0x20e6…2100 }
0x2100…210e ae65 3970 TIL=EPIL3
0x2100…210e LineComalBin {
0x2100…210e ptr = 0xae65 // 0x2100 @0x0
0x2100…210e lno = 0x0f82 // 0x2102 @0x2
0x2100…210e at0004 = ╱54╱T╱ // 0x2104 @0x4
0x2100…210e at0005 = ╱49╱I╱ // 0x2105 @0x5
0x2100…210e at0006 = ╱4c╱L╱ // 0x2106 @0x6
0x2100…210e at0007 = ╱dc╱=╱ // 0x2107 @0x7
0x2100…210e at0008 = ╱45╱E╱ // 0x2108 @0x8
0x2100…210e at0009 = ╱50╱P╱ // 0x2109 @0x9
0x2100…210e at000a = ╱49╱I╱ // 0x210a @0xa
0x2100…210e at000b = ╱4c╱L╱ // 0x210b @0xb
0x2100…210e at000c = ╱33╱3╱ // 0x210c @0xc
0x2100…210e at000d = EOL // 0x210d @0xd
0x2100…210e }
0x210e…2114 ae6b 3980 ENDIF
0x210e…2114 LineComalBin {
0x210e…2114 ptr = 0xae6b // 0x210e @0x0
0x210e…2114 lno = 0x0f8c // 0x2110 @0x2
0x210e…2114 at0004 = ╱9b╱ ENDIF ╱ // 0x2112 @0x4
0x210e…2114 at0005 = EOL // 0x2113 @0x5
0x210e…2114 }
0x2114…211a ae71 3990 CLEAR
0x2114…211a LineComalBin {
0x2114…211a ptr = 0xae71 // 0x2114 @0x0
0x2114…211a lno = 0x0f96 // 0x2116 @0x2
0x2114…211a at0004 = ╱a0╱ CLEAR ╱ // 0x2118 @0x4
0x2114…211a at0005 = EOL // 0x2119 @0x5
0x2114…211a }
0x211a…2120 ae77 4000 REPEAT
0x211a…2120 LineComalBin {
0x211a…2120 ptr = 0xae77 // 0x211a @0x0
0x211a…2120 lno = 0x0fa0 // 0x211c @0x2
0x211a…2120 at0004 = ╱97╱ REPEAT ╱ // 0x211e @0x4
0x211a…2120 at0005 = EOL // 0x211f @0x5
0x211a…2120 }
0x2120…2134 ae8b 4010 CURSOR 8,13
0x2120…2134 LineComalBin {
0x2120…2134 ptr = 0xae8b // 0x2120 @0x0
0x2120…2134 lno = 0x0faa // 0x2122 @0x2
0x2120…2134 at0004 = ╱a1╱ CURSOR ╱ // 0x2124 @0x4
0x2120…2134 at0005 = ╱38╱8╱ // 0x2125 @0x5
0x2120…2134 at0006 = ╱fe00008004╱ // 0x2126 @0x6
0x2120…2134 at000b = ╱ec╱,╱ // 0x212b @0xb
0x2120…2134 at000c = ╱31╱1╱ // 0x212c @0xc
0x2120…2134 at000d = ╱33╱3╱ // 0x212d @0xd
0x2120…2134 at000e = ╱fe0000d004╱ // 0x212e @0xe
0x2120…2134 at0013 = EOL // 0x2133 @0x13
0x2120…2134 }
0x2134…2176 aecd 4020 PRINT "Monter papir til udskrift af entreprisekontoliste og tast";
0x2134…2176 LineComalBin {
0x2134…2176 ptr = 0xaecd // 0x2134 @0x0
0x2134…2176 lno = 0x0fb4 // 0x2136 @0x2
0x2134…2176 at0004 = ╱92╱ PRINT ╱ // 0x2138 @0x4
0x2134…2176 at0005 = ╱22╱"╱ // 0x2139 @0x5
0x2134…2176 at0006 = ╱4d╱M╱ // 0x213a @0x6
0x2134…2176 at0007 = ╱6f╱o╱ // 0x213b @0x7
0x2134…2176 at0008 = ╱6e╱n╱ // 0x213c @0x8
0x2134…2176 at0009 = ╱74╱t╱ // 0x213d @0x9
0x2134…2176 at000a = ╱65╱e╱ // 0x213e @0xa
0x2134…2176 at000b = ╱72╱r╱ // 0x213f @0xb
0x2134…2176 at000c = ╱20╱…╱ // 0x2140 @0xc
0x2134…2176 at000d = ╱70╱p╱ // 0x2141 @0xd
0x2134…2176 at000e = ╱61╱a╱ // 0x2142 @0xe
0x2134…2176 at000f = ╱70╱p╱ // 0x2143 @0xf
0x2134…2176 at0010 = ╱69╱i╱ // 0x2144 @0x10
0x2134…2176 at0011 = ╱72╱r╱ // 0x2145 @0x11
0x2134…2176 at0012 = ╱20╱…╱ // 0x2146 @0x12
0x2134…2176 at0013 = ╱74╱t╱ // 0x2147 @0x13
0x2134…2176 at0014 = ╱69╱i╱ // 0x2148 @0x14
0x2134…2176 at0015 = ╱6c╱l╱ // 0x2149 @0x15
0x2134…2176 at0016 = ╱20╱…╱ // 0x214a @0x16
0x2134…2176 at0017 = ╱75╱u╱ // 0x214b @0x17
0x2134…2176 at0018 = ╱64╱d╱ // 0x214c @0x18
0x2134…2176 at0019 = ╱73╱s╱ // 0x214d @0x19
0x2134…2176 at001a = ╱6b╱k╱ // 0x214e @0x1a
0x2134…2176 at001b = ╱72╱r╱ // 0x214f @0x1b
0x2134…2176 at001c = ╱69╱i╱ // 0x2150 @0x1c
0x2134…2176 at001d = ╱66╱f╱ // 0x2151 @0x1d
0x2134…2176 at001e = ╱74╱t╱ // 0x2152 @0x1e
0x2134…2176 at001f = ╱20╱…╱ // 0x2153 @0x1f
0x2134…2176 at0020 = ╱61╱a╱ // 0x2154 @0x20
0x2134…2176 at0021 = ╱66╱f╱ // 0x2155 @0x21
0x2134…2176 at0022 = ╱20╱…╱ // 0x2156 @0x22
0x2134…2176 at0023 = ╱65╱e╱ // 0x2157 @0x23
0x2134…2176 at0024 = ╱6e╱n╱ // 0x2158 @0x24
0x2134…2176 at0025 = ╱74╱t╱ // 0x2159 @0x25
0x2134…2176 at0026 = ╱72╱r╱ // 0x215a @0x26
0x2134…2176 at0027 = ╱65╱e╱ // 0x215b @0x27
0x2134…2176 at0028 = ╱70╱p╱ // 0x215c @0x28
0x2134…2176 at0029 = ╱72╱r╱ // 0x215d @0x29
0x2134…2176 at002a = ╱69╱i╱ // 0x215e @0x2a
0x2134…2176 at002b = ╱73╱s╱ // 0x215f @0x2b
0x2134…2176 at002c = ╱65╱e╱ // 0x2160 @0x2c
0x2134…2176 at002d = ╱6b╱k╱ // 0x2161 @0x2d
0x2134…2176 at002e = ╱6f╱o╱ // 0x2162 @0x2e
0x2134…2176 at002f = ╱6e╱n╱ // 0x2163 @0x2f
0x2134…2176 at0030 = ╱74╱t╱ // 0x2164 @0x30
0x2134…2176 at0031 = ╱6f╱o╱ // 0x2165 @0x31
0x2134…2176 at0032 = ╱6c╱l╱ // 0x2166 @0x32
0x2134…2176 at0033 = ╱69╱i╱ // 0x2167 @0x33
0x2134…2176 at0034 = ╱73╱s╱ // 0x2168 @0x34
0x2134…2176 at0035 = ╱74╱t╱ // 0x2169 @0x35
0x2134…2176 at0036 = ╱65╱e╱ // 0x216a @0x36
0x2134…2176 at0037 = ╱20╱…╱ // 0x216b @0x37
0x2134…2176 at0038 = ╱6f╱o╱ // 0x216c @0x38
0x2134…2176 at0039 = ╱67╱g╱ // 0x216d @0x39
0x2134…2176 at003a = ╱20╱…╱ // 0x216e @0x3a
0x2134…2176 at003b = ╱74╱t╱ // 0x216f @0x3b
0x2134…2176 at003c = ╱61╱a╱ // 0x2170 @0x3c
0x2134…2176 at003d = ╱73╱s╱ // 0x2171 @0x3d
0x2134…2176 at003e = ╱74╱t╱ // 0x2172 @0x3e
0x2134…2176 at003f = ╱22╱"╱ // 0x2173 @0x3f
0x2134…2176 at0040 = ╱eb╱;╱ // 0x2174 @0x40
0x2134…2176 at0041 = EOL // 0x2175 @0x41
0x2134…2176 }
0x2176…2188 aedf 4030 INPUT " RETURN",A$
0x2176…2188 LineComalBin {
0x2176…2188 ptr = 0xaedf // 0x2176 @0x0
0x2176…2188 lno = 0x0fbe // 0x2178 @0x2
0x2176…2188 at0004 = ╱91╱ INPUT ╱ // 0x217a @0x4
0x2176…2188 at0005 = ╱22╱"╱ // 0x217b @0x5
0x2176…2188 at0006 = ╱20╱…╱ // 0x217c @0x6
0x2176…2188 at0007 = ╱52╱R╱ // 0x217d @0x7
0x2176…2188 at0008 = ╱45╱E╱ // 0x217e @0x8
0x2176…2188 at0009 = ╱54╱T╱ // 0x217f @0x9
0x2176…2188 at000a = ╱55╱U╱ // 0x2180 @0xa
0x2176…2188 at000b = ╱52╱R╱ // 0x2181 @0xb
0x2176…2188 at000c = ╱4e╱N╱ // 0x2182 @0xc
0x2176…2188 at000d = ╱22╱"╱ // 0x2183 @0xd
0x2176…2188 at000e = ╱ec╱,╱ // 0x2184 @0xe
0x2176…2188 at000f = ╱41╱A╱ // 0x2185 @0xf
0x2176…2188 at0010 = ╱ef╱$╱ // 0x2186 @0x10
0x2176…2188 at0011 = EOL // 0x2187 @0x11
0x2176…2188 }
0x2188…219c aef3 4040 UNTIL ORD(A$)=255
0x2188…219c LineComalBin {
0x2188…219c ptr = 0xaef3 // 0x2188 @0x0
0x2188…219c lno = 0x0fc8 // 0x218a @0x2
0x2188…219c at0004 = ╱98╱ UNTIL ╱ // 0x218c @0x4
0x2188…219c at0005 = ╱cd╱ORD╱ // 0x218d @0x5
0x2188…219c at0006 = ╱ed╱(╱ // 0x218e @0x6
0x2188…219c at0007 = ╱41╱A╱ // 0x218f @0x7
0x2188…219c at0008 = ╱ef╱$╱ // 0x2190 @0x8
0x2188…219c at0009 = ╱ee╱)╱ // 0x2191 @0x9
0x2188…219c at000a = ╱dc╱=╱ // 0x2192 @0xa
0x2188…219c at000b = ╱32╱2╱ // 0x2193 @0xb
0x2188…219c at000c = ╱35╱5╱ // 0x2194 @0xc
0x2188…219c at000d = ╱35╱5╱ // 0x2195 @0xd
0x2188…219c at000e = ╱fe0000ff08╱ // 0x2196 @0xe
0x2188…219c at0013 = EOL // 0x219b @0x13
0x2188…219c }
0x219c…21a3 aefa 4050 OUTPUT P
0x219c…21a3 LineComalBin {
0x219c…21a3 ptr = 0xaefa // 0x219c @0x0
0x219c…21a3 lno = 0x0fd2 // 0x219e @0x2
0x219c…21a3 at0004 = ╱a5╱ OUTPUT ╱ // 0x21a0 @0x4
0x219c…21a3 at0005 = ╱50╱P╱ // 0x21a1 @0x5
0x219c…21a3 at0006 = EOL // 0x21a2 @0x6
0x219c…21a3 }
0x21a3…21ae af05 4060 SIDE=E
0x21a3…21ae LineComalBin {
0x21a3…21ae ptr = 0xaf05 // 0x21a3 @0x0
0x21a3…21ae lno = 0x0fdc // 0x21a5 @0x2
0x21a3…21ae at0004 = ╱53╱S╱ // 0x21a7 @0x4
0x21a3…21ae at0005 = ╱49╱I╱ // 0x21a8 @0x5
0x21a3…21ae at0006 = ╱44╱D╱ // 0x21a9 @0x6
0x21a3…21ae at0007 = ╱45╱E╱ // 0x21aa @0x7
0x21a3…21ae at0008 = ╱dc╱=╱ // 0x21ab @0x8
0x21a3…21ae at0009 = ╱45╱E╱ // 0x21ac @0x9
0x21a3…21ae at000a = EOL // 0x21ad @0xa
0x21a3…21ae }
0x21ae…21bb af12 4070 DA1=DATO
0x21ae…21bb LineComalBin {
0x21ae…21bb ptr = 0xaf12 // 0x21ae @0x0
0x21ae…21bb lno = 0x0fe6 // 0x21b0 @0x2
0x21ae…21bb at0004 = ╱44╱D╱ // 0x21b2 @0x4
0x21ae…21bb at0005 = ╱41╱A╱ // 0x21b3 @0x5
0x21ae…21bb at0006 = ╱31╱1╱ // 0x21b4 @0x6
0x21ae…21bb at0007 = ╱dc╱=╱ // 0x21b5 @0x7
0x21ae…21bb at0008 = ╱44╱D╱ // 0x21b6 @0x8
0x21ae…21bb at0009 = ╱41╱A╱ // 0x21b7 @0x9
0x21ae…21bb at000a = ╱54╱T╱ // 0x21b8 @0xa
0x21ae…21bb at000b = ╱4f╱O╱ // 0x21b9 @0xb
0x21ae…21bb at000c = EOL // 0x21ba @0xc
0x21ae…21bb }
0x21bb…21cf af26 4080 DAT$=" "
0x21bb…21cf LineComalBin {
0x21bb…21cf ptr = 0xaf26 // 0x21bb @0x0
0x21bb…21cf lno = 0x0ff0 // 0x21bd @0x2
0x21bb…21cf at0004 = ╱44╱D╱ // 0x21bf @0x4
0x21bb…21cf at0005 = ╱41╱A╱ // 0x21c0 @0x5
0x21bb…21cf at0006 = ╱54╱T╱ // 0x21c1 @0x6
0x21bb…21cf at0007 = ╱ef╱$╱ // 0x21c2 @0x7
0x21bb…21cf at0008 = ╱dc╱=╱ // 0x21c3 @0x8
0x21bb…21cf at0009 = ╱22╱"╱ // 0x21c4 @0x9
0x21bb…21cf at000a = ╱20╱…╱ // 0x21c5 @0xa
0x21bb…21cf at000b = ╱20╱…╱ // 0x21c6 @0xb
0x21bb…21cf at000c = ╱20╱…╱ // 0x21c7 @0xc
0x21bb…21cf at000d = ╱20╱…╱ // 0x21c8 @0xd
0x21bb…21cf at000e = ╱20╱…╱ // 0x21c9 @0xe
0x21bb…21cf at000f = ╱20╱…╱ // 0x21ca @0xf
0x21bb…21cf at0010 = ╱20╱…╱ // 0x21cb @0x10
0x21bb…21cf at0011 = ╱20╱…╱ // 0x21cc @0x11
0x21bb…21cf at0012 = ╱22╱"╱ // 0x21cd @0x12
0x21bb…21cf at0013 = EOL // 0x21ce @0x13
0x21bb…21cf }
0x21cf…21e2 af39 4090 FOR J=8 TO E STEP -E
0x21cf…21e2 LineComalBin {
0x21cf…21e2 ptr = 0xaf39 // 0x21cf @0x0
0x21cf…21e2 lno = 0x0ffa // 0x21d1 @0x2
0x21cf…21e2 at0004 = ╱83╱ FOR ╱ // 0x21d3 @0x4
0x21cf…21e2 at0005 = ╱4a╱J╱ // 0x21d4 @0x5
0x21cf…21e2 at0006 = ╱dc╱=╱ // 0x21d5 @0x6
0x21cf…21e2 at0007 = ╱38╱8╱ // 0x21d6 @0x7
0x21cf…21e2 at0008 = ╱fe00008004╱ // 0x21d7 @0x8
0x21cf…21e2 at000d = ╱b7╱ TO ╱ // 0x21dc @0xd
0x21cf…21e2 at000e = ╱45╱E╱ // 0x21dd @0xe
0x21cf…21e2 at000f = ╱b8╱ STEP ╱ // 0x21de @0xf
0x21cf…21e2 at0010 = ╱e9╱-╱ // 0x21df @0x10
0x21cf…21e2 at0011 = ╱45╱E╱ // 0x21e0 @0x11
0x21cf…21e2 at0012 = EOL // 0x21e1 @0x12
0x21cf…21e2 }
0x21e2…21ee af45 4100 IF J MOD V=B THEN
0x21e2…21ee LineComalBin {
0x21e2…21ee ptr = 0xaf45 // 0x21e2 @0x0
0x21e2…21ee lno = 0x1004 // 0x21e4 @0x2
0x21e2…21ee at0004 = ╱9c╱ IF ╱ // 0x21e6 @0x4
0x21e2…21ee at0005 = ╱4a╱J╱ // 0x21e7 @0x5
0x21e2…21ee at0006 = ╱e8╱ MOD ╱ // 0x21e8 @0x6
0x21e2…21ee at0007 = ╱56╱V╱ // 0x21e9 @0x7
0x21e2…21ee at0008 = ╱dc╱=╱ // 0x21ea @0x8
0x21e2…21ee at0009 = ╱42╱B╱ // 0x21eb @0x9
0x21e2…21ee at000a = ╱b6╱ THEN ╱ // 0x21ec @0xa
0x21e2…21ee at000b = EOL // 0x21ed @0xb
0x21e2…21ee }
0x21ee…21fe af55 4110 DAT$(J)="."
0x21ee…21fe LineComalBin {
0x21ee…21fe ptr = 0xaf55 // 0x21ee @0x0
0x21ee…21fe lno = 0x100e // 0x21f0 @0x2
0x21ee…21fe at0004 = ╱44╱D╱ // 0x21f2 @0x4
0x21ee…21fe at0005 = ╱41╱A╱ // 0x21f3 @0x5
0x21ee…21fe at0006 = ╱54╱T╱ // 0x21f4 @0x6
0x21ee…21fe at0007 = ╱ef╱$╱ // 0x21f5 @0x7
0x21ee…21fe at0008 = ╱ed╱(╱ // 0x21f6 @0x8
0x21ee…21fe at0009 = ╱4a╱J╱ // 0x21f7 @0x9
0x21ee…21fe at000a = ╱ee╱)╱ // 0x21f8 @0xa
0x21ee…21fe at000b = ╱dc╱=╱ // 0x21f9 @0xb
0x21ee…21fe at000c = ╱22╱"╱ // 0x21fa @0xc
0x21ee…21fe at000d = ╱2e╱.╱ // 0x21fb @0xd
0x21ee…21fe at000e = ╱22╱"╱ // 0x21fc @0xe
0x21ee…21fe at000f = EOL // 0x21fd @0xf
0x21ee…21fe }
0x21fe…2204 af5b 4120 ELSE
0x21fe…2204 LineComalBin {
0x21fe…2204 ptr = 0xaf5b // 0x21fe @0x0
0x21fe…2204 lno = 0x1018 // 0x2200 @0x2
0x21fe…2204 at0004 = ╱9a╱ ELSE ╱ // 0x2202 @0x4
0x21fe…2204 at0005 = EOL // 0x2203 @0x5
0x21fe…2204 }
0x2204…2227 af7e 4130 DAT$(J)=CHR(DA1 MOD 10+48)
0x2204…2227 LineComalBin {
0x2204…2227 ptr = 0xaf7e // 0x2204 @0x0
0x2204…2227 lno = 0x1022 // 0x2206 @0x2
0x2204…2227 at0004 = ╱44╱D╱ // 0x2208 @0x4
0x2204…2227 at0005 = ╱41╱A╱ // 0x2209 @0x5
0x2204…2227 at0006 = ╱54╱T╱ // 0x220a @0x6
0x2204…2227 at0007 = ╱ef╱$╱ // 0x220b @0x7
0x2204…2227 at0008 = ╱ed╱(╱ // 0x220c @0x8
0x2204…2227 at0009 = ╱4a╱J╱ // 0x220d @0x9
0x2204…2227 at000a = ╱ee╱)╱ // 0x220e @0xa
0x2204…2227 at000b = ╱dc╱=╱ // 0x220f @0xb
0x2204…2227 at000c = ╱cf╱CHR╱ // 0x2210 @0xc
0x2204…2227 at000d = ╱ed╱(╱ // 0x2211 @0xd
0x2204…2227 at000e = ╱44╱D╱ // 0x2212 @0xe
0x2204…2227 at000f = ╱41╱A╱ // 0x2213 @0xf
0x2204…2227 at0010 = ╱31╱1╱ // 0x2214 @0x10
0x2204…2227 at0011 = ╱e8╱ MOD ╱ // 0x2215 @0x11
0x2204…2227 at0012 = ╱31╱1╱ // 0x2216 @0x12
0x2204…2227 at0013 = ╱30╱0╱ // 0x2217 @0x13
0x2204…2227 at0014 = ╱fe0000a004╱ // 0x2218 @0x14
0x2204…2227 at0019 = ╱e2╱+╱ // 0x221d @0x19
0x2204…2227 at001a = ╱34╱4╱ // 0x221e @0x1a
0x2204…2227 at001b = ╱38╱8╱ // 0x221f @0x1b
0x2204…2227 at001c = ╱fe0000c006╱ // 0x2220 @0x1c
0x2204…2227 at0021 = ╱ee╱)╱ // 0x2225 @0x21
0x2204…2227 at0022 = EOL // 0x2226 @0x22
0x2204…2227 }
0x2227…223b af92 4140 DA1=DA1 DIV 10
0x2227…223b LineComalBin {
0x2227…223b ptr = 0xaf92 // 0x2227 @0x0
0x2227…223b lno = 0x102c // 0x2229 @0x2
0x2227…223b at0004 = ╱44╱D╱ // 0x222b @0x4
0x2227…223b at0005 = ╱41╱A╱ // 0x222c @0x5
0x2227…223b at0006 = ╱31╱1╱ // 0x222d @0x6
0x2227…223b at0007 = ╱dc╱=╱ // 0x222e @0x7
0x2227…223b at0008 = ╱44╱D╱ // 0x222f @0x8
0x2227…223b at0009 = ╱41╱A╱ // 0x2230 @0x9
0x2227…223b at000a = ╱31╱1╱ // 0x2231 @0xa
0x2227…223b at000b = ╱e7╱ DIV ╱ // 0x2232 @0xb
0x2227…223b at000c = ╱31╱1╱ // 0x2233 @0xc
0x2227…223b at000d = ╱30╱0╱ // 0x2234 @0xd
0x2227…223b at000e = ╱fe0000a004╱ // 0x2235 @0xe
0x2227…223b at0013 = EOL // 0x223a @0x13
0x2227…223b }
0x223b…2241 af98 4150 ENDIF
0x223b…2241 LineComalBin {
0x223b…2241 ptr = 0xaf98 // 0x223b @0x0
0x223b…2241 lno = 0x1036 // 0x223d @0x2
0x223b…2241 at0004 = ╱9b╱ ENDIF ╱ // 0x223f @0x4
0x223b…2241 at0005 = EOL // 0x2240 @0x5
0x223b…2241 }
0x2241…2248 af9f 4160 NEXT J
0x2241…2248 LineComalBin {
0x2241…2248 ptr = 0xaf9f // 0x2241 @0x0
0x2241…2248 lno = 0x1040 // 0x2243 @0x2
0x2241…2248 at0004 = ╱84╱ NEXT ╱ // 0x2245 @0x4
0x2241…2248 at0005 = ╱4a╱J╱ // 0x2246 @0x5
0x2241…2248 at0006 = EOL // 0x2247 @0x6
0x2241…2248 }
0x2248…2265 afbc 4170 SALDO$="0+";SALDO1$="0+"
0x2248…2265 LineComalBin {
0x2248…2265 ptr = 0xafbc // 0x2248 @0x0
0x2248…2265 lno = 0x104a // 0x224a @0x2
0x2248…2265 at0004 = ╱53╱S╱ // 0x224c @0x4
0x2248…2265 at0005 = ╱41╱A╱ // 0x224d @0x5
0x2248…2265 at0006 = ╱4c╱L╱ // 0x224e @0x6
0x2248…2265 at0007 = ╱44╱D╱ // 0x224f @0x7
0x2248…2265 at0008 = ╱4f╱O╱ // 0x2250 @0x8
0x2248…2265 at0009 = ╱ef╱$╱ // 0x2251 @0x9
0x2248…2265 at000a = ╱dc╱=╱ // 0x2252 @0xa
0x2248…2265 at000b = ╱22╱"╱ // 0x2253 @0xb
0x2248…2265 at000c = ╱30╱0╱ // 0x2254 @0xc
0x2248…2265 at000d = ╱2b╱+╱ // 0x2255 @0xd
0x2248…2265 at000e = ╱22╱"╱ // 0x2256 @0xe
0x2248…2265 at000f = ╱eb╱;╱ // 0x2257 @0xf
0x2248…2265 at0010 = ╱53╱S╱ // 0x2258 @0x10
0x2248…2265 at0011 = ╱41╱A╱ // 0x2259 @0x11
0x2248…2265 at0012 = ╱4c╱L╱ // 0x225a @0x12
0x2248…2265 at0013 = ╱44╱D╱ // 0x225b @0x13
0x2248…2265 at0014 = ╱4f╱O╱ // 0x225c @0x14
0x2248…2265 at0015 = ╱31╱1╱ // 0x225d @0x15
0x2248…2265 at0016 = ╱ef╱$╱ // 0x225e @0x16
0x2248…2265 at0017 = ╱dc╱=╱ // 0x225f @0x17
0x2248…2265 at0018 = ╱22╱"╱ // 0x2260 @0x18
0x2248…2265 at0019 = ╱30╱0╱ // 0x2261 @0x19
0x2248…2265 at001a = ╱2b╱+╱ // 0x2262 @0x1a
0x2248…2265 at001b = ╱22╱"╱ // 0x2263 @0x1b
0x2248…2265 at001c = EOL // 0x2264 @0x1c
0x2248…2265 }
0x2265…227c afd3 4180 FOR I=FRA TO TIL STEP 36
0x2265…227c LineComalBin {
0x2265…227c ptr = 0xafd3 // 0x2265 @0x0
0x2265…227c lno = 0x1054 // 0x2267 @0x2
0x2265…227c at0004 = ╱83╱ FOR ╱ // 0x2269 @0x4
0x2265…227c at0005 = ╱49╱I╱ // 0x226a @0x5
0x2265…227c at0006 = ╱dc╱=╱ // 0x226b @0x6
0x2265…227c at0007 = ╱46╱F╱ // 0x226c @0x7
0x2265…227c at0008 = ╱52╱R╱ // 0x226d @0x8
0x2265…227c at0009 = ╱41╱A╱ // 0x226e @0x9
0x2265…227c at000a = ╱b7╱ TO ╱ // 0x226f @0xa
0x2265…227c at000b = ╱54╱T╱ // 0x2270 @0xb
0x2265…227c at000c = ╱49╱I╱ // 0x2271 @0xc
0x2265…227c at000d = ╱4c╱L╱ // 0x2272 @0xd
0x2265…227c at000e = ╱b8╱ STEP ╱ // 0x2273 @0xe
0x2265…227c at000f = ╱33╱3╱ // 0x2274 @0xf
0x2265…227c at0010 = ╱36╱6╱ // 0x2275 @0x10
0x2265…227c at0011 = ╱fe00009006╱ // 0x2276 @0x11
0x2265…227c at0016 = EOL // 0x227b @0x16
0x2265…227c }
0x227c…2294 afeb 4190 PRINT TAB(67);DV$;" "
0x227c…2294 LineComalBin {
0x227c…2294 ptr = 0xafeb // 0x227c @0x0
0x227c…2294 lno = 0x105e // 0x227e @0x2
0x227c…2294 at0004 = ╱92╱ PRINT ╱ // 0x2280 @0x4
0x227c…2294 at0005 = ╱d2╱TAB╱ // 0x2281 @0x5
0x227c…2294 at0006 = ╱ed╱(╱ // 0x2282 @0x6
0x227c…2294 at0007 = ╱36╱6╱ // 0x2283 @0x7
0x227c…2294 at0008 = ╱37╱7╱ // 0x2284 @0x8
0x227c…2294 at0009 = ╱fe00008607╱ // 0x2285 @0x9
0x227c…2294 at000e = ╱ee╱)╱ // 0x228a @0xe
0x227c…2294 at000f = ╱eb╱;╱ // 0x228b @0xf
0x227c…2294 at0010 = ╱44╱D╱ // 0x228c @0x10
0x227c…2294 at0011 = ╱56╱V╱ // 0x228d @0x11
0x227c…2294 at0012 = ╱ef╱$╱ // 0x228e @0x12
0x227c…2294 at0013 = ╱eb╱;╱ // 0x228f @0x13
0x227c…2294 at0014 = ╱22╱"╱ // 0x2290 @0x14
0x227c…2294 at0015 = ╱20╱…╱ // 0x2291 @0x15
0x227c…2294 at0016 = ╱22╱"╱ // 0x2292 @0x16
0x227c…2294 at0017 = EOL // 0x2293 @0x17
0x227c…2294 }
0x2294…22e7 b03e 4200 PRINT TAB(10);CHR(14);"Entreprisekontoliste";CHR(15);TAB(32);"Dato : ";
0x2294…22e7 LineComalBin {
0x2294…22e7 ptr = 0xb03e // 0x2294 @0x0
0x2294…22e7 lno = 0x1068 // 0x2296 @0x2
0x2294…22e7 at0004 = ╱92╱ PRINT ╱ // 0x2298 @0x4
0x2294…22e7 at0005 = ╱d2╱TAB╱ // 0x2299 @0x5
0x2294…22e7 at0006 = ╱ed╱(╱ // 0x229a @0x6
0x2294…22e7 at0007 = ╱31╱1╱ // 0x229b @0x7
0x2294…22e7 at0008 = ╱30╱0╱ // 0x229c @0x8
0x2294…22e7 at0009 = ╱fe0000a004╱ // 0x229d @0x9
0x2294…22e7 at000e = ╱ee╱)╱ // 0x22a2 @0xe
0x2294…22e7 at000f = ╱eb╱;╱ // 0x22a3 @0xf
0x2294…22e7 at0010 = ╱cf╱CHR╱ // 0x22a4 @0x10
0x2294…22e7 at0011 = ╱ed╱(╱ // 0x22a5 @0x11
0x2294…22e7 at0012 = ╱31╱1╱ // 0x22a6 @0x12
0x2294…22e7 at0013 = ╱34╱4╱ // 0x22a7 @0x13
0x2294…22e7 at0014 = ╱fe0000e004╱ // 0x22a8 @0x14
0x2294…22e7 at0019 = ╱ee╱)╱ // 0x22ad @0x19
0x2294…22e7 at001a = ╱eb╱;╱ // 0x22ae @0x1a
0x2294…22e7 at001b = ╱22╱"╱ // 0x22af @0x1b
0x2294…22e7 at001c = ╱45╱E╱ // 0x22b0 @0x1c
0x2294…22e7 at001d = ╱6e╱n╱ // 0x22b1 @0x1d
0x2294…22e7 at001e = ╱74╱t╱ // 0x22b2 @0x1e
0x2294…22e7 at001f = ╱72╱r╱ // 0x22b3 @0x1f
0x2294…22e7 at0020 = ╱65╱e╱ // 0x22b4 @0x20
0x2294…22e7 at0021 = ╱70╱p╱ // 0x22b5 @0x21
0x2294…22e7 at0022 = ╱72╱r╱ // 0x22b6 @0x22
0x2294…22e7 at0023 = ╱69╱i╱ // 0x22b7 @0x23
0x2294…22e7 at0024 = ╱73╱s╱ // 0x22b8 @0x24
0x2294…22e7 at0025 = ╱65╱e╱ // 0x22b9 @0x25
0x2294…22e7 at0026 = ╱6b╱k╱ // 0x22ba @0x26
0x2294…22e7 at0027 = ╱6f╱o╱ // 0x22bb @0x27
0x2294…22e7 at0028 = ╱6e╱n╱ // 0x22bc @0x28
0x2294…22e7 at0029 = ╱74╱t╱ // 0x22bd @0x29
0x2294…22e7 at002a = ╱6f╱o╱ // 0x22be @0x2a
0x2294…22e7 at002b = ╱6c╱l╱ // 0x22bf @0x2b
0x2294…22e7 at002c = ╱69╱i╱ // 0x22c0 @0x2c
0x2294…22e7 at002d = ╱73╱s╱ // 0x22c1 @0x2d
0x2294…22e7 at002e = ╱74╱t╱ // 0x22c2 @0x2e
0x2294…22e7 at002f = ╱65╱e╱ // 0x22c3 @0x2f
0x2294…22e7 at0030 = ╱22╱"╱ // 0x22c4 @0x30
0x2294…22e7 at0031 = ╱eb╱;╱ // 0x22c5 @0x31
0x2294…22e7 at0032 = ╱cf╱CHR╱ // 0x22c6 @0x32
0x2294…22e7 at0033 = ╱ed╱(╱ // 0x22c7 @0x33
0x2294…22e7 at0034 = ╱31╱1╱ // 0x22c8 @0x34
0x2294…22e7 at0035 = ╱35╱5╱ // 0x22c9 @0x35
0x2294…22e7 at0036 = ╱fe0000f004╱ // 0x22ca @0x36
0x2294…22e7 at003b = ╱ee╱)╱ // 0x22cf @0x3b
0x2294…22e7 at003c = ╱eb╱;╱ // 0x22d0 @0x3c
0x2294…22e7 at003d = ╱d2╱TAB╱ // 0x22d1 @0x3d
0x2294…22e7 at003e = ╱ed╱(╱ // 0x22d2 @0x3e
0x2294…22e7 at003f = ╱33╱3╱ // 0x22d3 @0x3f
0x2294…22e7 at0040 = ╱32╱2╱ // 0x22d4 @0x40
0x2294…22e7 at0041 = ╱fe00008006╱ // 0x22d5 @0x41
0x2294…22e7 at0046 = ╱ee╱)╱ // 0x22da @0x46
0x2294…22e7 at0047 = ╱eb╱;╱ // 0x22db @0x47
0x2294…22e7 at0048 = ╱22╱"╱ // 0x22dc @0x48
0x2294…22e7 at0049 = ╱44╱D╱ // 0x22dd @0x49
0x2294…22e7 at004a = ╱61╱a╱ // 0x22de @0x4a
0x2294…22e7 at004b = ╱74╱t╱ // 0x22df @0x4b
0x2294…22e7 at004c = ╱6f╱o╱ // 0x22e0 @0x4c
0x2294…22e7 at004d = ╱20╱…╱ // 0x22e1 @0x4d
0x2294…22e7 at004e = ╱3a╱:╱ // 0x22e2 @0x4e
0x2294…22e7 at004f = ╱20╱…╱ // 0x22e3 @0x4f
0x2294…22e7 at0050 = ╱22╱"╱ // 0x22e4 @0x50
0x2294…22e7 at0051 = ╱eb╱;╱ // 0x22e5 @0x51
0x2294…22e7 at0052 = EOL // 0x22e6 @0x52
0x2294…22e7 }
0x22e7…22f2 b049 4210 PRINT DAT$;
0x22e7…22f2 LineComalBin {
0x22e7…22f2 ptr = 0xb049 // 0x22e7 @0x0
0x22e7…22f2 lno = 0x1072 // 0x22e9 @0x2
0x22e7…22f2 at0004 = ╱92╱ PRINT ╱ // 0x22eb @0x4
0x22e7…22f2 at0005 = ╱44╱D╱ // 0x22ec @0x5
0x22e7…22f2 at0006 = ╱41╱A╱ // 0x22ed @0x6
0x22e7…22f2 at0007 = ╱54╱T╱ // 0x22ee @0x7
0x22e7…22f2 at0008 = ╱ef╱$╱ // 0x22ef @0x8
0x22e7…22f2 at0009 = ╱eb╱;╱ // 0x22f0 @0x9
0x22e7…22f2 at000a = EOL // 0x22f1 @0xa
0x22e7…22f2 }
0x22f2…230d b064 4220 PRINT USING " Side :####":SIDE
0x22f2…230d LineComalBin {
0x22f2…230d ptr = 0xb064 // 0x22f2 @0x0
0x22f2…230d lno = 0x107c // 0x22f4 @0x2
0x22f2…230d at0004 = ╱92╱ PRINT ╱ // 0x22f6 @0x4
0x22f2…230d at0005 = ╱b9╱ USING ╱ // 0x22f7 @0x5
0x22f2…230d at0006 = ╱22╱"╱ // 0x22f8 @0x6
0x22f2…230d at0007 = ╱20╱…╱ // 0x22f9 @0x7
0x22f2…230d at0008 = ╱20╱…╱ // 0x22fa @0x8
0x22f2…230d at0009 = ╱20╱…╱ // 0x22fb @0x9
0x22f2…230d at000a = ╱53╱S╱ // 0x22fc @0xa
0x22f2…230d at000b = ╱69╱i╱ // 0x22fd @0xb
0x22f2…230d at000c = ╱64╱d╱ // 0x22fe @0xc
0x22f2…230d at000d = ╱65╱e╱ // 0x22ff @0xd
0x22f2…230d at000e = ╱20╱…╱ // 0x2300 @0xe
0x22f2…230d at000f = ╱3a╱:╱ // 0x2301 @0xf
0x22f2…230d at0010 = ╱23╱#╱ // 0x2302 @0x10
0x22f2…230d at0011 = ╱23╱#╱ // 0x2303 @0x11
0x22f2…230d at0012 = ╱23╱#╱ // 0x2304 @0x12
0x22f2…230d at0013 = ╱23╱#╱ // 0x2305 @0x13
0x22f2…230d at0014 = ╱22╱"╱ // 0x2306 @0x14
0x22f2…230d at0015 = ╱f0╱:╱ // 0x2307 @0x15
0x22f2…230d at0016 = ╱53╱S╱ // 0x2308 @0x16
0x22f2…230d at0017 = ╱49╱I╱ // 0x2309 @0x17
0x22f2…230d at0018 = ╱44╱D╱ // 0x230a @0x18
0x22f2…230d at0019 = ╱45╱E╱ // 0x230b @0x19
0x22f2…230d at001a = EOL // 0x230c @0x1a
0x22f2…230d }
0x230d…2316 b06d 4230 PRINT " "
0x230d…2316 LineComalBin {
0x230d…2316 ptr = 0xb06d // 0x230d @0x0
0x230d…2316 lno = 0x1086 // 0x230f @0x2
0x230d…2316 at0004 = ╱92╱ PRINT ╱ // 0x2311 @0x4
0x230d…2316 at0005 = ╱22╱"╱ // 0x2312 @0x5
0x230d…2316 at0006 = ╱20╱…╱ // 0x2313 @0x6
0x230d…2316 at0007 = ╱22╱"╱ // 0x2314 @0x7
0x230d…2316 at0008 = EOL // 0x2315 @0x8
0x230d…2316 }
0x2316…2344 b09b 4240 PRINT TAB(45);"Månedens";TAB(68);"Årets"
0x2316…2344 LineComalBin {
0x2316…2344 ptr = 0xb09b // 0x2316 @0x0
0x2316…2344 lno = 0x1090 // 0x2318 @0x2
0x2316…2344 at0004 = ╱92╱ PRINT ╱ // 0x231a @0x4
0x2316…2344 at0005 = ╱d2╱TAB╱ // 0x231b @0x5
0x2316…2344 at0006 = ╱ed╱(╱ // 0x231c @0x6
0x2316…2344 at0007 = ╱34╱4╱ // 0x231d @0x7
0x2316…2344 at0008 = ╱35╱5╱ // 0x231e @0x8
0x2316…2344 at0009 = ╱fe0000b406╱ // 0x231f @0x9
0x2316…2344 at000e = ╱ee╱)╱ // 0x2324 @0xe
0x2316…2344 at000f = ╱eb╱;╱ // 0x2325 @0xf
0x2316…2344 at0010 = ╱22╱"╱ // 0x2326 @0x10
0x2316…2344 at0011 = ╱4d╱M╱ // 0x2327 @0x11
0x2316…2344 at0012 = ╱7d╱å╱ // 0x2328 @0x12
0x2316…2344 at0013 = ╱6e╱n╱ // 0x2329 @0x13
0x2316…2344 at0014 = ╱65╱e╱ // 0x232a @0x14
0x2316…2344 at0015 = ╱64╱d╱ // 0x232b @0x15
0x2316…2344 at0016 = ╱65╱e╱ // 0x232c @0x16
0x2316…2344 at0017 = ╱6e╱n╱ // 0x232d @0x17
0x2316…2344 at0018 = ╱73╱s╱ // 0x232e @0x18
0x2316…2344 at0019 = ╱22╱"╱ // 0x232f @0x19
0x2316…2344 at001a = ╱eb╱;╱ // 0x2330 @0x1a
0x2316…2344 at001b = ╱d2╱TAB╱ // 0x2331 @0x1b
0x2316…2344 at001c = ╱ed╱(╱ // 0x2332 @0x1c
0x2316…2344 at001d = ╱36╱6╱ // 0x2333 @0x1d
0x2316…2344 at001e = ╱38╱8╱ // 0x2334 @0x1e
0x2316…2344 at001f = ╱fe00008807╱ // 0x2335 @0x1f
0x2316…2344 at0024 = ╱ee╱)╱ // 0x233a @0x24
0x2316…2344 at0025 = ╱eb╱;╱ // 0x233b @0x25
0x2316…2344 at0026 = ╱22╱"╱ // 0x233c @0x26
0x2316…2344 at0027 = ╱5d╱Å╱ // 0x233d @0x27
0x2316…2344 at0028 = ╱72╱r╱ // 0x233e @0x28
0x2316…2344 at0029 = ╱65╱e╱ // 0x233f @0x29
0x2316…2344 at002a = ╱74╱t╱ // 0x2340 @0x2a
0x2316…2344 at002b = ╱73╱s╱ // 0x2341 @0x2b
0x2316…2344 at002c = ╱22╱"╱ // 0x2342 @0x2c
0x2316…2344 at002d = EOL // 0x2343 @0x2d
0x2316…2344 }
0x2344…2388 b0df 4250 PRINT " Nr Navn";TAB(42);"Debet Kredit Debet Kredit"
0x2344…2388 LineComalBin {
0x2344…2388 ptr = 0xb0df // 0x2344 @0x0
0x2344…2388 lno = 0x109a // 0x2346 @0x2
0x2344…2388 at0004 = ╱92╱ PRINT ╱ // 0x2348 @0x4
0x2344…2388 at0005 = ╱22╱"╱ // 0x2349 @0x5
0x2344…2388 at0006 = ╱20╱…╱ // 0x234a @0x6
0x2344…2388 at0007 = ╱4e╱N╱ // 0x234b @0x7
0x2344…2388 at0008 = ╱72╱r╱ // 0x234c @0x8
0x2344…2388 at0009 = ╱20╱…╱ // 0x234d @0x9
0x2344…2388 at000a = ╱20╱…╱ // 0x234e @0xa
0x2344…2388 at000b = ╱20╱…╱ // 0x234f @0xb
0x2344…2388 at000c = ╱4e╱N╱ // 0x2350 @0xc
0x2344…2388 at000d = ╱61╱a╱ // 0x2351 @0xd
0x2344…2388 at000e = ╱76╱v╱ // 0x2352 @0xe
0x2344…2388 at000f = ╱6e╱n╱ // 0x2353 @0xf
0x2344…2388 at0010 = ╱22╱"╱ // 0x2354 @0x10
0x2344…2388 at0011 = ╱eb╱;╱ // 0x2355 @0x11
0x2344…2388 at0012 = ╱d2╱TAB╱ // 0x2356 @0x12
0x2344…2388 at0013 = ╱ed╱(╱ // 0x2357 @0x13
0x2344…2388 at0014 = ╱34╱4╱ // 0x2358 @0x14
0x2344…2388 at0015 = ╱32╱2╱ // 0x2359 @0x15
0x2344…2388 at0016 = ╱fe0000a806╱ // 0x235a @0x16
0x2344…2388 at001b = ╱ee╱)╱ // 0x235f @0x1b
0x2344…2388 at001c = ╱eb╱;╱ // 0x2360 @0x1c
0x2344…2388 at001d = ╱22╱"╱ // 0x2361 @0x1d
0x2344…2388 at001e = ╱44╱D╱ // 0x2362 @0x1e
0x2344…2388 at001f = ╱65╱e╱ // 0x2363 @0x1f
0x2344…2388 at0020 = ╱62╱b╱ // 0x2364 @0x20
0x2344…2388 at0021 = ╱65╱e╱ // 0x2365 @0x21
0x2344…2388 at0022 = ╱74╱t╱ // 0x2366 @0x22
0x2344…2388 at0023 = ╱20╱…╱ // 0x2367 @0x23
0x2344…2388 at0024 = ╱20╱…╱ // 0x2368 @0x24
0x2344…2388 at0025 = ╱20╱…╱ // 0x2369 @0x25
0x2344…2388 at0026 = ╱20╱…╱ // 0x236a @0x26
0x2344…2388 at0027 = ╱4b╱K╱ // 0x236b @0x27
0x2344…2388 at0028 = ╱72╱r╱ // 0x236c @0x28
0x2344…2388 at0029 = ╱65╱e╱ // 0x236d @0x29
0x2344…2388 at002a = ╱64╱d╱ // 0x236e @0x2a
0x2344…2388 at002b = ╱69╱i╱ // 0x236f @0x2b
0x2344…2388 at002c = ╱74╱t╱ // 0x2370 @0x2c
0x2344…2388 at002d = ╱20╱…╱ // 0x2371 @0x2d
0x2344…2388 at002e = ╱20╱…╱ // 0x2372 @0x2e
0x2344…2388 at002f = ╱20╱…╱ // 0x2373 @0x2f
0x2344…2388 at0030 = ╱20╱…╱ // 0x2374 @0x30
0x2344…2388 at0031 = ╱20╱…╱ // 0x2375 @0x31
0x2344…2388 at0032 = ╱20╱…╱ // 0x2376 @0x32
0x2344…2388 at0033 = ╱44╱D╱ // 0x2377 @0x33
0x2344…2388 at0034 = ╱65╱e╱ // 0x2378 @0x34
0x2344…2388 at0035 = ╱62╱b╱ // 0x2379 @0x35
0x2344…2388 at0036 = ╱65╱e╱ // 0x237a @0x36
0x2344…2388 at0037 = ╱74╱t╱ // 0x237b @0x37
0x2344…2388 at0038 = ╱20╱…╱ // 0x237c @0x38
0x2344…2388 at0039 = ╱20╱…╱ // 0x237d @0x39
0x2344…2388 at003a = ╱20╱…╱ // 0x237e @0x3a
0x2344…2388 at003b = ╱20╱…╱ // 0x237f @0x3b
0x2344…2388 at003c = ╱4b╱K╱ // 0x2380 @0x3c
0x2344…2388 at003d = ╱72╱r╱ // 0x2381 @0x3d
0x2344…2388 at003e = ╱65╱e╱ // 0x2382 @0x3e
0x2344…2388 at003f = ╱64╱d╱ // 0x2383 @0x3f
0x2344…2388 at0040 = ╱69╱i╱ // 0x2384 @0x40
0x2344…2388 at0041 = ╱74╱t╱ // 0x2385 @0x41
0x2344…2388 at0042 = ╱22╱"╱ // 0x2386 @0x42
0x2344…2388 at0043 = EOL // 0x2387 @0x43
0x2344…2388 }
0x2388…2394 b0eb 4260 PRINT STREG$
0x2388…2394 LineComalBin {
0x2388…2394 ptr = 0xb0eb // 0x2388 @0x0
0x2388…2394 lno = 0x10a4 // 0x238a @0x2
0x2388…2394 at0004 = ╱92╱ PRINT ╱ // 0x238c @0x4
0x2388…2394 at0005 = ╱53╱S╱ // 0x238d @0x5
0x2388…2394 at0006 = ╱54╱T╱ // 0x238e @0x6
0x2388…2394 at0007 = ╱52╱R╱ // 0x238f @0x7
0x2388…2394 at0008 = ╱45╱E╱ // 0x2390 @0x8
0x2388…2394 at0009 = ╱47╱G╱ // 0x2391 @0x9
0x2388…2394 at000a = ╱ef╱$╱ // 0x2392 @0xa
0x2388…2394 at000b = EOL // 0x2393 @0xb
0x2388…2394 }
0x2394…23a4 b0fb 4270 SIDE=SIDE+E
0x2394…23a4 LineComalBin {
0x2394…23a4 ptr = 0xb0fb // 0x2394 @0x0
0x2394…23a4 lno = 0x10ae // 0x2396 @0x2
0x2394…23a4 at0004 = ╱53╱S╱ // 0x2398 @0x4
0x2394…23a4 at0005 = ╱49╱I╱ // 0x2399 @0x5
0x2394…23a4 at0006 = ╱44╱D╱ // 0x239a @0x6
0x2394…23a4 at0007 = ╱45╱E╱ // 0x239b @0x7
0x2394…23a4 at0008 = ╱dc╱=╱ // 0x239c @0x8
0x2394…23a4 at0009 = ╱53╱S╱ // 0x239d @0x9
0x2394…23a4 at000a = ╱49╱I╱ // 0x239e @0xa
0x2394…23a4 at000b = ╱44╱D╱ // 0x239f @0xb
0x2394…23a4 at000c = ╱45╱E╱ // 0x23a0 @0xc
0x2394…23a4 at000d = ╱e2╱+╱ // 0x23a1 @0xd
0x2394…23a4 at000e = ╱45╱E╱ // 0x23a2 @0xe
0x2394…23a4 at000f = EOL // 0x23a3 @0xf
0x2394…23a4 }
0x23a4…23bb b112 4280 FOR EPIL3=I TO I+35
0x23a4…23bb LineComalBin {
0x23a4…23bb ptr = 0xb112 // 0x23a4 @0x0
0x23a4…23bb lno = 0x10b8 // 0x23a6 @0x2
0x23a4…23bb at0004 = ╱83╱ FOR ╱ // 0x23a8 @0x4
0x23a4…23bb at0005 = ╱45╱E╱ // 0x23a9 @0x5
0x23a4…23bb at0006 = ╱50╱P╱ // 0x23aa @0x6
0x23a4…23bb at0007 = ╱49╱I╱ // 0x23ab @0x7
0x23a4…23bb at0008 = ╱4c╱L╱ // 0x23ac @0x8
0x23a4…23bb at0009 = ╱33╱3╱ // 0x23ad @0x9
0x23a4…23bb at000a = ╱dc╱=╱ // 0x23ae @0xa
0x23a4…23bb at000b = ╱49╱I╱ // 0x23af @0xb
0x23a4…23bb at000c = ╱b7╱ TO ╱ // 0x23b0 @0xc
0x23a4…23bb at000d = ╱49╱I╱ // 0x23b1 @0xd
0x23a4…23bb at000e = ╱e2╱+╱ // 0x23b2 @0xe
0x23a4…23bb at000f = ╱33╱3╱ // 0x23b3 @0xf
0x23a4…23bb at0010 = ╱35╱5╱ // 0x23b4 @0x10
0x23a4…23bb at0011 = ╱fe00008c06╱ // 0x23b5 @0x11
0x23a4…23bb at0016 = EOL // 0x23ba @0x16
0x23a4…23bb }
0x23bb…23dc b133 4290 IF ETAB(EPIL3,E)<>1000000 THEN
0x23bb…23dc LineComalBin {
0x23bb…23dc ptr = 0xb133 // 0x23bb @0x0
0x23bb…23dc lno = 0x10c2 // 0x23bd @0x2
0x23bb…23dc at0004 = ╱9c╱ IF ╱ // 0x23bf @0x4
0x23bb…23dc at0005 = ╱45╱E╱ // 0x23c0 @0x5
0x23bb…23dc at0006 = ╱54╱T╱ // 0x23c1 @0x6
0x23bb…23dc at0007 = ╱41╱A╱ // 0x23c2 @0x7
0x23bb…23dc at0008 = ╱42╱B╱ // 0x23c3 @0x8
0x23bb…23dc at0009 = ╱ed╱(╱ // 0x23c4 @0x9
0x23bb…23dc at000a = ╱45╱E╱ // 0x23c5 @0xa
0x23bb…23dc at000b = ╱50╱P╱ // 0x23c6 @0xb
0x23bb…23dc at000c = ╱49╱I╱ // 0x23c7 @0xc
0x23bb…23dc at000d = ╱4c╱L╱ // 0x23c8 @0xd
0x23bb…23dc at000e = ╱33╱3╱ // 0x23c9 @0xe
0x23bb…23dc at000f = ╱ec╱,╱ // 0x23ca @0xf
0x23bb…23dc at0010 = ╱45╱E╱ // 0x23cb @0x10
0x23bb…23dc at0011 = ╱ee╱)╱ // 0x23cc @0x11
0x23bb…23dc at0012 = ╱e1╱<>╱ // 0x23cd @0x12
0x23bb…23dc at0013 = ╱31╱1╱ // 0x23ce @0x13
0x23bb…23dc at0014 = ╱30╱0╱ // 0x23cf @0x14
0x23bb…23dc at0015 = ╱30╱0╱ // 0x23d0 @0x15
0x23bb…23dc at0016 = ╱30╱0╱ // 0x23d1 @0x16
0x23bb…23dc at0017 = ╱30╱0╱ // 0x23d2 @0x17
0x23bb…23dc at0018 = ╱30╱0╱ // 0x23d3 @0x18
0x23bb…23dc at0019 = ╱30╱0╱ // 0x23d4 @0x19
0x23bb…23dc at001a = ╱fe0024f414╱ // 0x23d5 @0x1a
0x23bb…23dc at001f = ╱b6╱ THEN ╱ // 0x23da @0x1f
0x23bb…23dc at0020 = EOL // 0x23db @0x20
0x23bb…23dc }
0x23dc…23ea b141 4300 EXEC HENTPOST
0x23dc…23ea LineComalBin {
0x23dc…23ea ptr = 0xb141 // 0x23dc @0x0
0x23dc…23ea lno = 0x10cc // 0x23de @0x2
0x23dc…23ea at0004 = ╱9d╱ EXEC ╱ // 0x23e0 @0x4
0x23dc…23ea at0005 = ╱48╱H╱ // 0x23e1 @0x5
0x23dc…23ea at0006 = ╱45╱E╱ // 0x23e2 @0x6
0x23dc…23ea at0007 = ╱4e╱N╱ // 0x23e3 @0x7
0x23dc…23ea at0008 = ╱54╱T╱ // 0x23e4 @0x8
0x23dc…23ea at0009 = ╱50╱P╱ // 0x23e5 @0x9
0x23dc…23ea at000a = ╱4f╱O╱ // 0x23e6 @0xa
0x23dc…23ea at000b = ╱53╱S╱ // 0x23e7 @0xb
0x23dc…23ea at000c = ╱54╱T╱ // 0x23e8 @0xc
0x23dc…23ea at000d = EOL // 0x23e9 @0xd
0x23dc…23ea }
0x23ea…23fa b151 4310 SK1=E;SK2=E
0x23ea…23fa LineComalBin {
0x23ea…23fa ptr = 0xb151 // 0x23ea @0x0
0x23ea…23fa lno = 0x10d6 // 0x23ec @0x2
0x23ea…23fa at0004 = ╱53╱S╱ // 0x23ee @0x4
0x23ea…23fa at0005 = ╱4b╱K╱ // 0x23ef @0x5
0x23ea…23fa at0006 = ╱31╱1╱ // 0x23f0 @0x6
0x23ea…23fa at0007 = ╱dc╱=╱ // 0x23f1 @0x7
0x23ea…23fa at0008 = ╱45╱E╱ // 0x23f2 @0x8
0x23ea…23fa at0009 = ╱eb╱;╱ // 0x23f3 @0x9
0x23ea…23fa at000a = ╱53╱S╱ // 0x23f4 @0xa
0x23ea…23fa at000b = ╱4b╱K╱ // 0x23f5 @0xb
0x23ea…23fa at000c = ╱32╱2╱ // 0x23f6 @0xc
0x23ea…23fa at000d = ╱dc╱=╱ // 0x23f7 @0xd
0x23ea…23fa at000e = ╱45╱E╱ // 0x23f8 @0xe
0x23ea…23fa at000f = EOL // 0x23f9 @0xf
0x23ea…23fa }
0x23fa…241c b173 4320 EXEC CALC(B,SALDO$,EMREG$,SALDO$)
0x23fa…241c LineComalBin {
0x23fa…241c ptr = 0xb173 // 0x23fa @0x0
0x23fa…241c lno = 0x10e0 // 0x23fc @0x2
0x23fa…241c at0004 = ╱9d╱ EXEC ╱ // 0x23fe @0x4
0x23fa…241c at0005 = ╱43╱C╱ // 0x23ff @0x5
0x23fa…241c at0006 = ╱41╱A╱ // 0x2400 @0x6
0x23fa…241c at0007 = ╱4c╱L╱ // 0x2401 @0x7
0x23fa…241c at0008 = ╱43╱C╱ // 0x2402 @0x8
0x23fa…241c at0009 = ╱ed╱(╱ // 0x2403 @0x9
0x23fa…241c at000a = ╱42╱B╱ // 0x2404 @0xa
0x23fa…241c at000b = ╱ec╱,╱ // 0x2405 @0xb
0x23fa…241c at000c = ╱53╱S╱ // 0x2406 @0xc
0x23fa…241c at000d = ╱41╱A╱ // 0x2407 @0xd
0x23fa…241c at000e = ╱4c╱L╱ // 0x2408 @0xe
0x23fa…241c at000f = ╱44╱D╱ // 0x2409 @0xf
0x23fa…241c at0010 = ╱4f╱O╱ // 0x240a @0x10
0x23fa…241c at0011 = ╱ef╱$╱ // 0x240b @0x11
0x23fa…241c at0012 = ╱ec╱,╱ // 0x240c @0x12
0x23fa…241c at0013 = ╱45╱E╱ // 0x240d @0x13
0x23fa…241c at0014 = ╱4d╱M╱ // 0x240e @0x14
0x23fa…241c at0015 = ╱52╱R╱ // 0x240f @0x15
0x23fa…241c at0016 = ╱45╱E╱ // 0x2410 @0x16
0x23fa…241c at0017 = ╱47╱G╱ // 0x2411 @0x17
0x23fa…241c at0018 = ╱ef╱$╱ // 0x2412 @0x18
0x23fa…241c at0019 = ╱ec╱,╱ // 0x2413 @0x19
0x23fa…241c at001a = ╱53╱S╱ // 0x2414 @0x1a
0x23fa…241c at001b = ╱41╱A╱ // 0x2415 @0x1b
0x23fa…241c at001c = ╱4c╱L╱ // 0x2416 @0x1c
0x23fa…241c at001d = ╱44╱D╱ // 0x2417 @0x1d
0x23fa…241c at001e = ╱4f╱O╱ // 0x2418 @0x1e
0x23fa…241c at001f = ╱ef╱$╱ // 0x2419 @0x1f
0x23fa…241c at0020 = ╱ee╱)╱ // 0x241a @0x20
0x23fa…241c at0021 = EOL // 0x241b @0x21
0x23fa…241c }
0x241c…2440 b197 4330 EXEC CALC(B,SALDO1$,EÅREG$,SALDO1$)
0x241c…2440 LineComalBin {
0x241c…2440 ptr = 0xb197 // 0x241c @0x0
0x241c…2440 lno = 0x10ea // 0x241e @0x2
0x241c…2440 at0004 = ╱9d╱ EXEC ╱ // 0x2420 @0x4
0x241c…2440 at0005 = ╱43╱C╱ // 0x2421 @0x5
0x241c…2440 at0006 = ╱41╱A╱ // 0x2422 @0x6
0x241c…2440 at0007 = ╱4c╱L╱ // 0x2423 @0x7
0x241c…2440 at0008 = ╱43╱C╱ // 0x2424 @0x8
0x241c…2440 at0009 = ╱ed╱(╱ // 0x2425 @0x9
0x241c…2440 at000a = ╱42╱B╱ // 0x2426 @0xa
0x241c…2440 at000b = ╱ec╱,╱ // 0x2427 @0xb
0x241c…2440 at000c = ╱53╱S╱ // 0x2428 @0xc
0x241c…2440 at000d = ╱41╱A╱ // 0x2429 @0xd
0x241c…2440 at000e = ╱4c╱L╱ // 0x242a @0xe
0x241c…2440 at000f = ╱44╱D╱ // 0x242b @0xf
0x241c…2440 at0010 = ╱4f╱O╱ // 0x242c @0x10
0x241c…2440 at0011 = ╱31╱1╱ // 0x242d @0x11
0x241c…2440 at0012 = ╱ef╱$╱ // 0x242e @0x12
0x241c…2440 at0013 = ╱ec╱,╱ // 0x242f @0x13
0x241c…2440 at0014 = ╱45╱E╱ // 0x2430 @0x14
0x241c…2440 at0015 = ╱5d╱Å╱ // 0x2431 @0x15
0x241c…2440 at0016 = ╱52╱R╱ // 0x2432 @0x16
0x241c…2440 at0017 = ╱45╱E╱ // 0x2433 @0x17
0x241c…2440 at0018 = ╱47╱G╱ // 0x2434 @0x18
0x241c…2440 at0019 = ╱ef╱$╱ // 0x2435 @0x19
0x241c…2440 at001a = ╱ec╱,╱ // 0x2436 @0x1a
0x241c…2440 at001b = ╱53╱S╱ // 0x2437 @0x1b
0x241c…2440 at001c = ╱41╱A╱ // 0x2438 @0x1c
0x241c…2440 at001d = ╱4c╱L╱ // 0x2439 @0x1d
0x241c…2440 at001e = ╱44╱D╱ // 0x243a @0x1e
0x241c…2440 at001f = ╱4f╱O╱ // 0x243b @0x1f
0x241c…2440 at0020 = ╱31╱1╱ // 0x243c @0x20
0x241c…2440 at0021 = ╱ef╱$╱ // 0x243d @0x21
0x241c…2440 at0022 = ╱ee╱)╱ // 0x243e @0x22
0x241c…2440 at0023 = EOL // 0x243f @0x23
0x241c…2440 }
0x2440…2461 b1b8 4340 IF EMREG$(LEN(EMREG$))="+" THEN SK1=B
0x2440…2461 LineComalBin {
0x2440…2461 ptr = 0xb1b8 // 0x2440 @0x0
0x2440…2461 lno = 0x10f4 // 0x2442 @0x2
0x2440…2461 at0004 = ╱82╱ IF ╱ // 0x2444 @0x4
0x2440…2461 at0005 = ╱45╱E╱ // 0x2445 @0x5
0x2440…2461 at0006 = ╱4d╱M╱ // 0x2446 @0x6
0x2440…2461 at0007 = ╱52╱R╱ // 0x2447 @0x7
0x2440…2461 at0008 = ╱45╱E╱ // 0x2448 @0x8
0x2440…2461 at0009 = ╱47╱G╱ // 0x2449 @0x9
0x2440…2461 at000a = ╱ef╱$╱ // 0x244a @0xa
0x2440…2461 at000b = ╱ed╱(╱ // 0x244b @0xb
0x2440…2461 at000c = ╱cc╱LEN╱ // 0x244c @0xc
0x2440…2461 at000d = ╱ed╱(╱ // 0x244d @0xd
0x2440…2461 at000e = ╱45╱E╱ // 0x244e @0xe
0x2440…2461 at000f = ╱4d╱M╱ // 0x244f @0xf
0x2440…2461 at0010 = ╱52╱R╱ // 0x2450 @0x10
0x2440…2461 at0011 = ╱45╱E╱ // 0x2451 @0x11
0x2440…2461 at0012 = ╱47╱G╱ // 0x2452 @0x12
0x2440…2461 at0013 = ╱ef╱$╱ // 0x2453 @0x13
0x2440…2461 at0014 = ╱ee╱)╱ // 0x2454 @0x14
0x2440…2461 at0015 = ╱ee╱)╱ // 0x2455 @0x15
0x2440…2461 at0016 = ╱dc╱=╱ // 0x2456 @0x16
0x2440…2461 at0017 = ╱22╱"╱ // 0x2457 @0x17
0x2440…2461 at0018 = ╱2b╱+╱ // 0x2458 @0x18
0x2440…2461 at0019 = ╱22╱"╱ // 0x2459 @0x19
0x2440…2461 at001a = ╱b6╱ THEN ╱ // 0x245a @0x1a
0x2440…2461 at001b = ╱53╱S╱ // 0x245b @0x1b
0x2440…2461 at001c = ╱4b╱K╱ // 0x245c @0x1c
0x2440…2461 at001d = ╱31╱1╱ // 0x245d @0x1d
0x2440…2461 at001e = ╱dc╱=╱ // 0x245e @0x1e
0x2440…2461 at001f = ╱42╱B╱ // 0x245f @0x1f
0x2440…2461 at0020 = EOL // 0x2460 @0x20
0x2440…2461 }
0x2461…2482 b1d9 4350 IF EÅREG$(LEN(EÅREG$))="+" THEN SK2=B
0x2461…2482 LineComalBin {
0x2461…2482 ptr = 0xb1d9 // 0x2461 @0x0
0x2461…2482 lno = 0x10fe // 0x2463 @0x2
0x2461…2482 at0004 = ╱82╱ IF ╱ // 0x2465 @0x4
0x2461…2482 at0005 = ╱45╱E╱ // 0x2466 @0x5
0x2461…2482 at0006 = ╱5d╱Å╱ // 0x2467 @0x6
0x2461…2482 at0007 = ╱52╱R╱ // 0x2468 @0x7
0x2461…2482 at0008 = ╱45╱E╱ // 0x2469 @0x8
0x2461…2482 at0009 = ╱47╱G╱ // 0x246a @0x9
0x2461…2482 at000a = ╱ef╱$╱ // 0x246b @0xa
0x2461…2482 at000b = ╱ed╱(╱ // 0x246c @0xb
0x2461…2482 at000c = ╱cc╱LEN╱ // 0x246d @0xc
0x2461…2482 at000d = ╱ed╱(╱ // 0x246e @0xd
0x2461…2482 at000e = ╱45╱E╱ // 0x246f @0xe
0x2461…2482 at000f = ╱5d╱Å╱ // 0x2470 @0xf
0x2461…2482 at0010 = ╱52╱R╱ // 0x2471 @0x10
0x2461…2482 at0011 = ╱45╱E╱ // 0x2472 @0x11
0x2461…2482 at0012 = ╱47╱G╱ // 0x2473 @0x12
0x2461…2482 at0013 = ╱ef╱$╱ // 0x2474 @0x13
0x2461…2482 at0014 = ╱ee╱)╱ // 0x2475 @0x14
0x2461…2482 at0015 = ╱ee╱)╱ // 0x2476 @0x15
0x2461…2482 at0016 = ╱dc╱=╱ // 0x2477 @0x16
0x2461…2482 at0017 = ╱22╱"╱ // 0x2478 @0x17
0x2461…2482 at0018 = ╱2b╱+╱ // 0x2479 @0x18
0x2461…2482 at0019 = ╱22╱"╱ // 0x247a @0x19
0x2461…2482 at001a = ╱b6╱ THEN ╱ // 0x247b @0x1a
0x2461…2482 at001b = ╱53╱S╱ // 0x247c @0x1b
0x2461…2482 at001c = ╱4b╱K╱ // 0x247d @0x1c
0x2461…2482 at001d = ╱32╱2╱ // 0x247e @0x1d
0x2461…2482 at001e = ╱dc╱=╱ // 0x247f @0x1e
0x2461…2482 at001f = ╱42╱B╱ // 0x2480 @0x1f
0x2461…2482 at0020 = EOL // 0x2481 @0x20
0x2461…2482 }
0x2482…24a5 b1fc 4360 EXEC CALC(5,EMREG$,TAH$,UD3$)
0x2482…24a5 LineComalBin {
0x2482…24a5 ptr = 0xb1fc // 0x2482 @0x0
0x2482…24a5 lno = 0x1108 // 0x2484 @0x2
0x2482…24a5 at0004 = ╱9d╱ EXEC ╱ // 0x2486 @0x4
0x2482…24a5 at0005 = ╱43╱C╱ // 0x2487 @0x5
0x2482…24a5 at0006 = ╱41╱A╱ // 0x2488 @0x6
0x2482…24a5 at0007 = ╱4c╱L╱ // 0x2489 @0x7
0x2482…24a5 at0008 = ╱43╱C╱ // 0x248a @0x8
0x2482…24a5 at0009 = ╱ed╱(╱ // 0x248b @0x9
0x2482…24a5 at000a = ╱35╱5╱ // 0x248c @0xa
0x2482…24a5 at000b = ╱fe0000a003╱ // 0x248d @0xb
0x2482…24a5 at0010 = ╱ec╱,╱ // 0x2492 @0x10
0x2482…24a5 at0011 = ╱45╱E╱ // 0x2493 @0x11
0x2482…24a5 at0012 = ╱4d╱M╱ // 0x2494 @0x12
0x2482…24a5 at0013 = ╱52╱R╱ // 0x2495 @0x13
0x2482…24a5 at0014 = ╱45╱E╱ // 0x2496 @0x14
0x2482…24a5 at0015 = ╱47╱G╱ // 0x2497 @0x15
0x2482…24a5 at0016 = ╱ef╱$╱ // 0x2498 @0x16
0x2482…24a5 at0017 = ╱ec╱,╱ // 0x2499 @0x17
0x2482…24a5 at0018 = ╱54╱T╱ // 0x249a @0x18
0x2482…24a5 at0019 = ╱41╱A╱ // 0x249b @0x19
0x2482…24a5 at001a = ╱48╱H╱ // 0x249c @0x1a
0x2482…24a5 at001b = ╱ef╱$╱ // 0x249d @0x1b
0x2482…24a5 at001c = ╱ec╱,╱ // 0x249e @0x1c
0x2482…24a5 at001d = ╱55╱U╱ // 0x249f @0x1d
0x2482…24a5 at001e = ╱44╱D╱ // 0x24a0 @0x1e
0x2482…24a5 at001f = ╱33╱3╱ // 0x24a1 @0x1f
0x2482…24a5 at0020 = ╱ef╱$╱ // 0x24a2 @0x20
0x2482…24a5 at0021 = ╱ee╱)╱ // 0x24a3 @0x21
0x2482…24a5 at0022 = EOL // 0x24a4 @0x22
0x2482…24a5 }
0x24a5…24c8 b21f 4370 EXEC CALC(5,EÅREG$,TAH$,UD4$)
0x24a5…24c8 LineComalBin {
0x24a5…24c8 ptr = 0xb21f // 0x24a5 @0x0
0x24a5…24c8 lno = 0x1112 // 0x24a7 @0x2
0x24a5…24c8 at0004 = ╱9d╱ EXEC ╱ // 0x24a9 @0x4
0x24a5…24c8 at0005 = ╱43╱C╱ // 0x24aa @0x5
0x24a5…24c8 at0006 = ╱41╱A╱ // 0x24ab @0x6
0x24a5…24c8 at0007 = ╱4c╱L╱ // 0x24ac @0x7
0x24a5…24c8 at0008 = ╱43╱C╱ // 0x24ad @0x8
0x24a5…24c8 at0009 = ╱ed╱(╱ // 0x24ae @0x9
0x24a5…24c8 at000a = ╱35╱5╱ // 0x24af @0xa
0x24a5…24c8 at000b = ╱fe0000a003╱ // 0x24b0 @0xb
0x24a5…24c8 at0010 = ╱ec╱,╱ // 0x24b5 @0x10
0x24a5…24c8 at0011 = ╱45╱E╱ // 0x24b6 @0x11
0x24a5…24c8 at0012 = ╱5d╱Å╱ // 0x24b7 @0x12
0x24a5…24c8 at0013 = ╱52╱R╱ // 0x24b8 @0x13
0x24a5…24c8 at0014 = ╱45╱E╱ // 0x24b9 @0x14
0x24a5…24c8 at0015 = ╱47╱G╱ // 0x24ba @0x15
0x24a5…24c8 at0016 = ╱ef╱$╱ // 0x24bb @0x16
0x24a5…24c8 at0017 = ╱ec╱,╱ // 0x24bc @0x17
0x24a5…24c8 at0018 = ╱54╱T╱ // 0x24bd @0x18
0x24a5…24c8 at0019 = ╱41╱A╱ // 0x24be @0x19
0x24a5…24c8 at001a = ╱48╱H╱ // 0x24bf @0x1a
0x24a5…24c8 at001b = ╱ef╱$╱ // 0x24c0 @0x1b
0x24a5…24c8 at001c = ╱ec╱,╱ // 0x24c1 @0x1c
0x24a5…24c8 at001d = ╱55╱U╱ // 0x24c2 @0x1d
0x24a5…24c8 at001e = ╱44╱D╱ // 0x24c3 @0x1e
0x24a5…24c8 at001f = ╱34╱4╱ // 0x24c4 @0x1f
0x24a5…24c8 at0020 = ╱ef╱$╱ // 0x24c5 @0x20
0x24a5…24c8 at0021 = ╱ee╱)╱ // 0x24c6 @0x21
0x24a5…24c8 at0022 = EOL // 0x24c7 @0x22
0x24a5…24c8 }
0x24c8…24dc b233 4380 PRINT USING "##### ":FNR;
0x24c8…24dc LineComalBin {
0x24c8…24dc ptr = 0xb233 // 0x24c8 @0x0
0x24c8…24dc lno = 0x111c // 0x24ca @0x2
0x24c8…24dc at0004 = ╱92╱ PRINT ╱ // 0x24cc @0x4
0x24c8…24dc at0005 = ╱b9╱ USING ╱ // 0x24cd @0x5
0x24c8…24dc at0006 = ╱22╱"╱ // 0x24ce @0x6
0x24c8…24dc at0007 = ╱23╱#╱ // 0x24cf @0x7
0x24c8…24dc at0008 = ╱23╱#╱ // 0x24d0 @0x8
0x24c8…24dc at0009 = ╱23╱#╱ // 0x24d1 @0x9
0x24c8…24dc at000a = ╱23╱#╱ // 0x24d2 @0xa
0x24c8…24dc at000b = ╱23╱#╱ // 0x24d3 @0xb
0x24c8…24dc at000c = ╱20╱…╱ // 0x24d4 @0xc
0x24c8…24dc at000d = ╱22╱"╱ // 0x24d5 @0xd
0x24c8…24dc at000e = ╱f0╱:╱ // 0x24d6 @0xe
0x24c8…24dc at000f = ╱46╱F╱ // 0x24d7 @0xf
0x24c8…24dc at0010 = ╱4e╱N╱ // 0x24d8 @0x10
0x24c8…24dc at0011 = ╱52╱R╱ // 0x24d9 @0x11
0x24c8…24dc at0012 = ╱eb╱;╱ // 0x24da @0x12
0x24c8…24dc at0013 = EOL // 0x24db @0x13
0x24c8…24dc }
0x24dc…2538 b28f 4390 PRINT ENAVN$;TAB(37+8*(SK1));UD3$(E:13);TAB(58+8*(SK2));UD4$(E:13)
0x24dc…2538 LineComalBin {
0x24dc…2538 ptr = 0xb28f // 0x24dc @0x0
0x24dc…2538 lno = 0x1126 // 0x24de @0x2
0x24dc…2538 at0004 = ╱92╱ PRINT ╱ // 0x24e0 @0x4
0x24dc…2538 at0005 = ╱45╱E╱ // 0x24e1 @0x5
0x24dc…2538 at0006 = ╱4e╱N╱ // 0x24e2 @0x6
0x24dc…2538 at0007 = ╱41╱A╱ // 0x24e3 @0x7
0x24dc…2538 at0008 = ╱56╱V╱ // 0x24e4 @0x8
0x24dc…2538 at0009 = ╱4e╱N╱ // 0x24e5 @0x9
0x24dc…2538 at000a = ╱ef╱$╱ // 0x24e6 @0xa
0x24dc…2538 at000b = ╱eb╱;╱ // 0x24e7 @0xb
0x24dc…2538 at000c = ╱d2╱TAB╱ // 0x24e8 @0xc
0x24dc…2538 at000d = ╱ed╱(╱ // 0x24e9 @0xd
0x24dc…2538 at000e = ╱33╱3╱ // 0x24ea @0xe
0x24dc…2538 at000f = ╱37╱7╱ // 0x24eb @0xf
0x24dc…2538 at0010 = ╱fe00009406╱ // 0x24ec @0x10
0x24dc…2538 at0015 = ╱e2╱+╱ // 0x24f1 @0x15
0x24dc…2538 at0016 = ╱38╱8╱ // 0x24f2 @0x16
0x24dc…2538 at0017 = ╱fe00008004╱ // 0x24f3 @0x17
0x24dc…2538 at001c = ╱e4╱*╱ // 0x24f8 @0x1c
0x24dc…2538 at001d = ╱ed╱(╱ // 0x24f9 @0x1d
0x24dc…2538 at001e = ╱53╱S╱ // 0x24fa @0x1e
0x24dc…2538 at001f = ╱4b╱K╱ // 0x24fb @0x1f
0x24dc…2538 at0020 = ╱31╱1╱ // 0x24fc @0x20
0x24dc…2538 at0021 = ╱ee╱)╱ // 0x24fd @0x21
0x24dc…2538 at0022 = ╱ee╱)╱ // 0x24fe @0x22
0x24dc…2538 at0023 = ╱eb╱;╱ // 0x24ff @0x23
0x24dc…2538 at0024 = ╱55╱U╱ // 0x2500 @0x24
0x24dc…2538 at0025 = ╱44╱D╱ // 0x2501 @0x25
0x24dc…2538 at0026 = ╱33╱3╱ // 0x2502 @0x26
0x24dc…2538 at0027 = ╱ef╱$╱ // 0x2503 @0x27
0x24dc…2538 at0028 = ╱ed╱(╱ // 0x2504 @0x28
0x24dc…2538 at0029 = ╱45╱E╱ // 0x2505 @0x29
0x24dc…2538 at002a = ╱f0╱:╱ // 0x2506 @0x2a
0x24dc…2538 at002b = ╱31╱1╱ // 0x2507 @0x2b
0x24dc…2538 at002c = ╱33╱3╱ // 0x2508 @0x2c
0x24dc…2538 at002d = ╱fe0000d004╱ // 0x2509 @0x2d
0x24dc…2538 at0032 = ╱ee╱)╱ // 0x250e @0x32
0x24dc…2538 at0033 = ╱eb╱;╱ // 0x250f @0x33
0x24dc…2538 at0034 = ╱d2╱TAB╱ // 0x2510 @0x34
0x24dc…2538 at0035 = ╱ed╱(╱ // 0x2511 @0x35
0x24dc…2538 at0036 = ╱35╱5╱ // 0x2512 @0x36
0x24dc…2538 at0037 = ╱38╱8╱ // 0x2513 @0x37
0x24dc…2538 at0038 = ╱fe0000e806╱ // 0x2514 @0x38
0x24dc…2538 at003d = ╱e2╱+╱ // 0x2519 @0x3d
0x24dc…2538 at003e = ╱38╱8╱ // 0x251a @0x3e
0x24dc…2538 at003f = ╱fe00008004╱ // 0x251b @0x3f
0x24dc…2538 at0044 = ╱e4╱*╱ // 0x2520 @0x44
0x24dc…2538 at0045 = ╱ed╱(╱ // 0x2521 @0x45
0x24dc…2538 at0046 = ╱53╱S╱ // 0x2522 @0x46
0x24dc…2538 at0047 = ╱4b╱K╱ // 0x2523 @0x47
0x24dc…2538 at0048 = ╱32╱2╱ // 0x2524 @0x48
0x24dc…2538 at0049 = ╱ee╱)╱ // 0x2525 @0x49
0x24dc…2538 at004a = ╱ee╱)╱ // 0x2526 @0x4a
0x24dc…2538 at004b = ╱eb╱;╱ // 0x2527 @0x4b
0x24dc…2538 at004c = ╱55╱U╱ // 0x2528 @0x4c
0x24dc…2538 at004d = ╱44╱D╱ // 0x2529 @0x4d
0x24dc…2538 at004e = ╱34╱4╱ // 0x252a @0x4e
0x24dc…2538 at004f = ╱ef╱$╱ // 0x252b @0x4f
0x24dc…2538 at0050 = ╱ed╱(╱ // 0x252c @0x50
0x24dc…2538 at0051 = ╱45╱E╱ // 0x252d @0x51
0x24dc…2538 at0052 = ╱f0╱:╱ // 0x252e @0x52
0x24dc…2538 at0053 = ╱31╱1╱ // 0x252f @0x53
0x24dc…2538 at0054 = ╱33╱3╱ // 0x2530 @0x54
0x24dc…2538 at0055 = ╱fe0000d004╱ // 0x2531 @0x55
0x24dc…2538 at005a = ╱ee╱)╱ // 0x2536 @0x5a
0x24dc…2538 at005b = EOL // 0x2537 @0x5b
0x24dc…2538 }
0x2538…253e b295 4400 ENDIF
0x2538…253e LineComalBin {
0x2538…253e ptr = 0xb295 // 0x2538 @0x0
0x2538…253e lno = 0x1130 // 0x253a @0x2
0x2538…253e at0004 = ╱9b╱ ENDIF ╱ // 0x253c @0x4
0x2538…253e at0005 = EOL // 0x253d @0x5
0x2538…253e }
0x253e…254f b2a6 4410 IF EPIL3=TIL THEN EXIT
0x253e…254f LineComalBin {
0x253e…254f ptr = 0xb2a6 // 0x253e @0x0
0x253e…254f lno = 0x113a // 0x2540 @0x2
0x253e…254f at0004 = ╱82╱ IF ╱ // 0x2542 @0x4
0x253e…254f at0005 = ╱45╱E╱ // 0x2543 @0x5
0x253e…254f at0006 = ╱50╱P╱ // 0x2544 @0x6
0x253e…254f at0007 = ╱49╱I╱ // 0x2545 @0x7
0x253e…254f at0008 = ╱4c╱L╱ // 0x2546 @0x8
0x253e…254f at0009 = ╱33╱3╱ // 0x2547 @0x9
0x253e…254f at000a = ╱dc╱=╱ // 0x2548 @0xa
0x253e…254f at000b = ╱54╱T╱ // 0x2549 @0xb
0x253e…254f at000c = ╱49╱I╱ // 0x254a @0xc
0x253e…254f at000d = ╱4c╱L╱ // 0x254b @0xd
0x253e…254f at000e = ╱b6╱ THEN ╱ // 0x254c @0xe
0x253e…254f at000f = ╱99╱ EXIT ╱ // 0x254d @0xf
0x253e…254f at0010 = EOL // 0x254e @0x10
0x253e…254f }
0x254f…255a b2b1 4420 NEXT EPIL3
0x254f…255a LineComalBin {
0x254f…255a ptr = 0xb2b1 // 0x254f @0x0
0x254f…255a lno = 0x1144 // 0x2551 @0x2
0x254f…255a at0004 = ╱84╱ NEXT ╱ // 0x2553 @0x4
0x254f…255a at0005 = ╱45╱E╱ // 0x2554 @0x5
0x254f…255a at0006 = ╱50╱P╱ // 0x2555 @0x6
0x254f…255a at0007 = ╱49╱I╱ // 0x2556 @0x7
0x254f…255a at0008 = ╱4c╱L╱ // 0x2557 @0x8
0x254f…255a at0009 = ╱33╱3╱ // 0x2558 @0x9
0x254f…255a at000a = EOL // 0x2559 @0xa
0x254f…255a }
0x255a…257b b2d2 4430 IF EPIL3=TIL AND EPIL3<I+36 THEN EXIT
0x255a…257b LineComalBin {
0x255a…257b ptr = 0xb2d2 // 0x255a @0x0
0x255a…257b lno = 0x114e // 0x255c @0x2
0x255a…257b at0004 = ╱82╱ IF ╱ // 0x255e @0x4
0x255a…257b at0005 = ╱45╱E╱ // 0x255f @0x5
0x255a…257b at0006 = ╱50╱P╱ // 0x2560 @0x6
0x255a…257b at0007 = ╱49╱I╱ // 0x2561 @0x7
0x255a…257b at0008 = ╱4c╱L╱ // 0x2562 @0x8
0x255a…257b at0009 = ╱33╱3╱ // 0x2563 @0x9
0x255a…257b at000a = ╱dc╱=╱ // 0x2564 @0xa
0x255a…257b at000b = ╱54╱T╱ // 0x2565 @0xb
0x255a…257b at000c = ╱49╱I╱ // 0x2566 @0xc
0x255a…257b at000d = ╱4c╱L╱ // 0x2567 @0xd
0x255a…257b at000e = ╱da╱ AND ╱ // 0x2568 @0xe
0x255a…257b at000f = ╱45╱E╱ // 0x2569 @0xf
0x255a…257b at0010 = ╱50╱P╱ // 0x256a @0x10
0x255a…257b at0011 = ╱49╱I╱ // 0x256b @0x11
0x255a…257b at0012 = ╱4c╱L╱ // 0x256c @0x12
0x255a…257b at0013 = ╱33╱3╱ // 0x256d @0x13
0x255a…257b at0014 = ╱dd╱<╱ // 0x256e @0x14
0x255a…257b at0015 = ╱49╱I╱ // 0x256f @0x15
0x255a…257b at0016 = ╱e2╱+╱ // 0x2570 @0x16
0x255a…257b at0017 = ╱33╱3╱ // 0x2571 @0x17
0x255a…257b at0018 = ╱36╱6╱ // 0x2572 @0x18
0x255a…257b at0019 = ╱fe00009006╱ // 0x2573 @0x19
0x255a…257b at001e = ╱b6╱ THEN ╱ // 0x2578 @0x1e
0x255a…257b at001f = ╱99╱ EXIT ╱ // 0x2579 @0x1f
0x255a…257b at0020 = EOL // 0x257a @0x20
0x255a…257b }
0x257b…25b7 b30e 4440 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x257b…25b7 LineComalBin {
0x257b…25b7 ptr = 0xb30e // 0x257b @0x0
0x257b…25b7 lno = 0x1158 // 0x257d @0x2
0x257b…25b7 at0004 = ╱92╱ PRINT ╱ // 0x257f @0x4
0x257b…25b7 at0005 = ╱cf╱CHR╱ // 0x2580 @0x5
0x257b…25b7 at0006 = ╱ed╱(╱ // 0x2581 @0x6
0x257b…25b7 at0007 = ╱31╱1╱ // 0x2582 @0x7
0x257b…25b7 at0008 = ╱30╱0╱ // 0x2583 @0x8
0x257b…25b7 at0009 = ╱fe0000a004╱ // 0x2584 @0x9
0x257b…25b7 at000e = ╱ee╱)╱ // 0x2589 @0xe
0x257b…25b7 at000f = ╱eb╱;╱ // 0x258a @0xf
0x257b…25b7 at0010 = ╱cf╱CHR╱ // 0x258b @0x10
0x257b…25b7 at0011 = ╱ed╱(╱ // 0x258c @0x11
0x257b…25b7 at0012 = ╱31╱1╱ // 0x258d @0x12
0x257b…25b7 at0013 = ╱30╱0╱ // 0x258e @0x13
0x257b…25b7 at0014 = ╱fe0000a004╱ // 0x258f @0x14
0x257b…25b7 at0019 = ╱ee╱)╱ // 0x2594 @0x19
0x257b…25b7 at001a = ╱eb╱;╱ // 0x2595 @0x1a
0x257b…25b7 at001b = ╱cf╱CHR╱ // 0x2596 @0x1b
0x257b…25b7 at001c = ╱ed╱(╱ // 0x2597 @0x1c
0x257b…25b7 at001d = ╱31╱1╱ // 0x2598 @0x1d
0x257b…25b7 at001e = ╱30╱0╱ // 0x2599 @0x1e
0x257b…25b7 at001f = ╱fe0000a004╱ // 0x259a @0x1f
0x257b…25b7 at0024 = ╱ee╱)╱ // 0x259f @0x24
0x257b…25b7 at0025 = ╱eb╱;╱ // 0x25a0 @0x25
0x257b…25b7 at0026 = ╱cf╱CHR╱ // 0x25a1 @0x26
0x257b…25b7 at0027 = ╱ed╱(╱ // 0x25a2 @0x27
0x257b…25b7 at0028 = ╱31╱1╱ // 0x25a3 @0x28
0x257b…25b7 at0029 = ╱30╱0╱ // 0x25a4 @0x29
0x257b…25b7 at002a = ╱fe0000a004╱ // 0x25a5 @0x2a
0x257b…25b7 at002f = ╱ee╱)╱ // 0x25aa @0x2f
0x257b…25b7 at0030 = ╱eb╱;╱ // 0x25ab @0x30
0x257b…25b7 at0031 = ╱cf╱CHR╱ // 0x25ac @0x31
0x257b…25b7 at0032 = ╱ed╱(╱ // 0x25ad @0x32
0x257b…25b7 at0033 = ╱31╱1╱ // 0x25ae @0x33
0x257b…25b7 at0034 = ╱30╱0╱ // 0x25af @0x34
0x257b…25b7 at0035 = ╱fe0000a004╱ // 0x25b0 @0x35
0x257b…25b7 at003a = ╱ee╱)╱ // 0x25b5 @0x3a
0x257b…25b7 at003b = EOL // 0x25b6 @0x3b
0x257b…25b7 }
0x25b7…25be b315 4450 NEXT I
0x25b7…25be LineComalBin {
0x25b7…25be ptr = 0xb315 // 0x25b7 @0x0
0x25b7…25be lno = 0x1162 // 0x25b9 @0x2
0x25b7…25be at0004 = ╱84╱ NEXT ╱ // 0x25bb @0x4
0x25b7…25be at0005 = ╱49╱I╱ // 0x25bc @0x5
0x25b7…25be at0006 = EOL // 0x25bd @0x6
0x25b7…25be }
0x25be…25cc b323 4460 SK1,SK2=E
0x25be…25cc LineComalBin {
0x25be…25cc ptr = 0xb323 // 0x25be @0x0
0x25be…25cc lno = 0x116c // 0x25c0 @0x2
0x25be…25cc at0004 = ╱53╱S╱ // 0x25c2 @0x4
0x25be…25cc at0005 = ╱4b╱K╱ // 0x25c3 @0x5
0x25be…25cc at0006 = ╱31╱1╱ // 0x25c4 @0x6
0x25be…25cc at0007 = ╱ec╱,╱ // 0x25c5 @0x7
0x25be…25cc at0008 = ╱53╱S╱ // 0x25c6 @0x8
0x25be…25cc at0009 = ╱4b╱K╱ // 0x25c7 @0x9
0x25be…25cc at000a = ╱32╱2╱ // 0x25c8 @0xa
0x25be…25cc at000b = ╱dc╱=╱ // 0x25c9 @0xb
0x25be…25cc at000c = ╱45╱E╱ // 0x25ca @0xc
0x25be…25cc at000d = EOL // 0x25cb @0xd
0x25be…25cc }
0x25cc…25ed b344 4470 IF SALDO$(LEN(SALDO$))="+" THEN SK1=B
0x25cc…25ed LineComalBin {
0x25cc…25ed ptr = 0xb344 // 0x25cc @0x0
0x25cc…25ed lno = 0x1176 // 0x25ce @0x2
0x25cc…25ed at0004 = ╱82╱ IF ╱ // 0x25d0 @0x4
0x25cc…25ed at0005 = ╱53╱S╱ // 0x25d1 @0x5
0x25cc…25ed at0006 = ╱41╱A╱ // 0x25d2 @0x6
0x25cc…25ed at0007 = ╱4c╱L╱ // 0x25d3 @0x7
0x25cc…25ed at0008 = ╱44╱D╱ // 0x25d4 @0x8
0x25cc…25ed at0009 = ╱4f╱O╱ // 0x25d5 @0x9
0x25cc…25ed at000a = ╱ef╱$╱ // 0x25d6 @0xa
0x25cc…25ed at000b = ╱ed╱(╱ // 0x25d7 @0xb
0x25cc…25ed at000c = ╱cc╱LEN╱ // 0x25d8 @0xc
0x25cc…25ed at000d = ╱ed╱(╱ // 0x25d9 @0xd
0x25cc…25ed at000e = ╱53╱S╱ // 0x25da @0xe
0x25cc…25ed at000f = ╱41╱A╱ // 0x25db @0xf
0x25cc…25ed at0010 = ╱4c╱L╱ // 0x25dc @0x10
0x25cc…25ed at0011 = ╱44╱D╱ // 0x25dd @0x11
0x25cc…25ed at0012 = ╱4f╱O╱ // 0x25de @0x12
0x25cc…25ed at0013 = ╱ef╱$╱ // 0x25df @0x13
0x25cc…25ed at0014 = ╱ee╱)╱ // 0x25e0 @0x14
0x25cc…25ed at0015 = ╱ee╱)╱ // 0x25e1 @0x15
0x25cc…25ed at0016 = ╱dc╱=╱ // 0x25e2 @0x16
0x25cc…25ed at0017 = ╱22╱"╱ // 0x25e3 @0x17
0x25cc…25ed at0018 = ╱2b╱+╱ // 0x25e4 @0x18
0x25cc…25ed at0019 = ╱22╱"╱ // 0x25e5 @0x19
0x25cc…25ed at001a = ╱b6╱ THEN ╱ // 0x25e6 @0x1a
0x25cc…25ed at001b = ╱53╱S╱ // 0x25e7 @0x1b
0x25cc…25ed at001c = ╱4b╱K╱ // 0x25e8 @0x1c
0x25cc…25ed at001d = ╱31╱1╱ // 0x25e9 @0x1d
0x25cc…25ed at001e = ╱dc╱=╱ // 0x25ea @0x1e
0x25cc…25ed at001f = ╱42╱B╱ // 0x25eb @0x1f
0x25cc…25ed at0020 = EOL // 0x25ec @0x20
0x25cc…25ed }
0x25ed…2610 b367 4480 IF SALDO1$(LEN(SALDO1$))="+" THEN SK2=B
0x25ed…2610 LineComalBin {
0x25ed…2610 ptr = 0xb367 // 0x25ed @0x0
0x25ed…2610 lno = 0x1180 // 0x25ef @0x2
0x25ed…2610 at0004 = ╱82╱ IF ╱ // 0x25f1 @0x4
0x25ed…2610 at0005 = ╱53╱S╱ // 0x25f2 @0x5
0x25ed…2610 at0006 = ╱41╱A╱ // 0x25f3 @0x6
0x25ed…2610 at0007 = ╱4c╱L╱ // 0x25f4 @0x7
0x25ed…2610 at0008 = ╱44╱D╱ // 0x25f5 @0x8
0x25ed…2610 at0009 = ╱4f╱O╱ // 0x25f6 @0x9
0x25ed…2610 at000a = ╱31╱1╱ // 0x25f7 @0xa
0x25ed…2610 at000b = ╱ef╱$╱ // 0x25f8 @0xb
0x25ed…2610 at000c = ╱ed╱(╱ // 0x25f9 @0xc
0x25ed…2610 at000d = ╱cc╱LEN╱ // 0x25fa @0xd
0x25ed…2610 at000e = ╱ed╱(╱ // 0x25fb @0xe
0x25ed…2610 at000f = ╱53╱S╱ // 0x25fc @0xf
0x25ed…2610 at0010 = ╱41╱A╱ // 0x25fd @0x10
0x25ed…2610 at0011 = ╱4c╱L╱ // 0x25fe @0x11
0x25ed…2610 at0012 = ╱44╱D╱ // 0x25ff @0x12
0x25ed…2610 at0013 = ╱4f╱O╱ // 0x2600 @0x13
0x25ed…2610 at0014 = ╱31╱1╱ // 0x2601 @0x14
0x25ed…2610 at0015 = ╱ef╱$╱ // 0x2602 @0x15
0x25ed…2610 at0016 = ╱ee╱)╱ // 0x2603 @0x16
0x25ed…2610 at0017 = ╱ee╱)╱ // 0x2604 @0x17
0x25ed…2610 at0018 = ╱dc╱=╱ // 0x2605 @0x18
0x25ed…2610 at0019 = ╱22╱"╱ // 0x2606 @0x19
0x25ed…2610 at001a = ╱2b╱+╱ // 0x2607 @0x1a
0x25ed…2610 at001b = ╱22╱"╱ // 0x2608 @0x1b
0x25ed…2610 at001c = ╱b6╱ THEN ╱ // 0x2609 @0x1c
0x25ed…2610 at001d = ╱53╱S╱ // 0x260a @0x1d
0x25ed…2610 at001e = ╱4b╱K╱ // 0x260b @0x1e
0x25ed…2610 at001f = ╱32╱2╱ // 0x260c @0x1f
0x25ed…2610 at0020 = ╱dc╱=╱ // 0x260d @0x20
0x25ed…2610 at0021 = ╱42╱B╱ // 0x260e @0x21
0x25ed…2610 at0022 = EOL // 0x260f @0x22
0x25ed…2610 }
0x2610…2633 b38a 4490 EXEC CALC(5,SALDO$,TAH$,UD3$)
0x2610…2633 LineComalBin {
0x2610…2633 ptr = 0xb38a // 0x2610 @0x0
0x2610…2633 lno = 0x118a // 0x2612 @0x2
0x2610…2633 at0004 = ╱9d╱ EXEC ╱ // 0x2614 @0x4
0x2610…2633 at0005 = ╱43╱C╱ // 0x2615 @0x5
0x2610…2633 at0006 = ╱41╱A╱ // 0x2616 @0x6
0x2610…2633 at0007 = ╱4c╱L╱ // 0x2617 @0x7
0x2610…2633 at0008 = ╱43╱C╱ // 0x2618 @0x8
0x2610…2633 at0009 = ╱ed╱(╱ // 0x2619 @0x9
0x2610…2633 at000a = ╱35╱5╱ // 0x261a @0xa
0x2610…2633 at000b = ╱fe0000a003╱ // 0x261b @0xb
0x2610…2633 at0010 = ╱ec╱,╱ // 0x2620 @0x10
0x2610…2633 at0011 = ╱53╱S╱ // 0x2621 @0x11
0x2610…2633 at0012 = ╱41╱A╱ // 0x2622 @0x12
0x2610…2633 at0013 = ╱4c╱L╱ // 0x2623 @0x13
0x2610…2633 at0014 = ╱44╱D╱ // 0x2624 @0x14
0x2610…2633 at0015 = ╱4f╱O╱ // 0x2625 @0x15
0x2610…2633 at0016 = ╱ef╱$╱ // 0x2626 @0x16
0x2610…2633 at0017 = ╱ec╱,╱ // 0x2627 @0x17
0x2610…2633 at0018 = ╱54╱T╱ // 0x2628 @0x18
0x2610…2633 at0019 = ╱41╱A╱ // 0x2629 @0x19
0x2610…2633 at001a = ╱48╱H╱ // 0x262a @0x1a
0x2610…2633 at001b = ╱ef╱$╱ // 0x262b @0x1b
0x2610…2633 at001c = ╱ec╱,╱ // 0x262c @0x1c
0x2610…2633 at001d = ╱55╱U╱ // 0x262d @0x1d
0x2610…2633 at001e = ╱44╱D╱ // 0x262e @0x1e
0x2610…2633 at001f = ╱33╱3╱ // 0x262f @0x1f
0x2610…2633 at0020 = ╱ef╱$╱ // 0x2630 @0x20
0x2610…2633 at0021 = ╱ee╱)╱ // 0x2631 @0x21
0x2610…2633 at0022 = EOL // 0x2632 @0x22
0x2610…2633 }
0x2633…2657 (127,) b3ae 4500 EXEC CALC(5,SALDO1$,TAH$,UD4$)
0x2633…2657 LineComalBin {
0x2633…2657 ptr = 0xb3ae // 0x2633 @0x0
0x2633…2657 lno = 0x1194 // 0x2635 @0x2
0x2633…2657 at0004 = ╱9d╱ EXEC ╱ // 0x2637 @0x4
0x2633…2657 at0005 = ╱43╱C╱ // 0x2638 @0x5
0x2633…2657 at0006 = ╱41╱A╱ // 0x2639 @0x6
0x2633…2657 at0007 = ╱4c╱L╱ // 0x263a @0x7
0x2633…2657 at0008 = ╱43╱C╱ // 0x263b @0x8
0x2633…2657 at0009 = ╱ed╱(╱ // 0x263c @0x9
0x2633…2657 at000a = ╱35╱5╱ // 0x263d @0xa
0x2633…2657 at000b = ╱fe0000a003╱ // 0x263e @0xb
0x2633…2657 at0010 = ╱ec╱,╱ // 0x2643 @0x10
0x2633…2657 at0011 = ╱53╱S╱ // 0x2644 @0x11
0x2633…2657 at0012 = ╱41╱A╱ // 0x2645 @0x12
0x2633…2657 at0013 = ╱4c╱L╱ // 0x2646 @0x13
0x2633…2657 at0014 = ╱44╱D╱ // 0x2647 @0x14
0x2633…2657 at0015 = ╱4f╱O╱ // 0x2648 @0x15
0x2633…2657 at0016 = ╱31╱1╱ // 0x2649 @0x16
0x2633…2657 at0017 = ╱ef╱$╱ // 0x264a @0x17
0x2633…2657 at0018 = ╱ec╱,╱ // 0x264b @0x18
0x2633…2657 at0019 = ╱54╱T╱ // 0x264c @0x19
0x2633…2657 at001a = ╱41╱A╱ // 0x264d @0x1a
0x2633…2657 at001b = ╱48╱H╱ // 0x264e @0x1b
0x2633…2657 at001c = ╱ef╱$╱ // 0x264f @0x1c
0x2633…2657 at001d = ╱ec╱,╱ // 0x2650 @0x1d
0x2633…2657 at001e = ╱55╱U╱ // 0x2651 @0x1e
0x2633…2657 at001f = ╱44╱D╱ // 0x2652 @0x1f
0x2633…2657 at0020 = ╱34╱4╱ // 0x2653 @0x20
0x2633…2657 at0021 = ╱ef╱$╱ // 0x2654 @0x21
0x2633…2657 at0022 = ╱ee╱)╱ // 0x2655 @0x22
0x2633…2657 at0023 = EOL // 0x2656 @0x23
0x2633…2657 }
0x2657…2663 b3ba 4510 PRINT STREG$
0x2657…2663 LineComalBin {
0x2657…2663 ptr = 0xb3ba // 0x2657 @0x0
0x2657…2663 lno = 0x119e // 0x2659 @0x2
0x2657…2663 at0004 = ╱92╱ PRINT ╱ // 0x265b @0x4
0x2657…2663 at0005 = ╱53╱S╱ // 0x265c @0x5
0x2657…2663 at0006 = ╱54╱T╱ // 0x265d @0x6
0x2657…2663 at0007 = ╱52╱R╱ // 0x265e @0x7
0x2657…2663 at0008 = ╱45╱E╱ // 0x265f @0x8
0x2657…2663 at0009 = ╱47╱G╱ // 0x2660 @0x9
0x2657…2663 at000a = ╱ef╱$╱ // 0x2661 @0xa
0x2657…2663 at000b = EOL // 0x2662 @0xb
0x2657…2663 }
0x2663…26bc b413 4520 PRINT TAB(10);"Saldo";TAB(37+8*(SK1));UD3$(E:13);TAB(58+8*(SK2));
0x2663…26bc LineComalBin {
0x2663…26bc ptr = 0xb413 // 0x2663 @0x0
0x2663…26bc lno = 0x11a8 // 0x2665 @0x2
0x2663…26bc at0004 = ╱92╱ PRINT ╱ // 0x2667 @0x4
0x2663…26bc at0005 = ╱d2╱TAB╱ // 0x2668 @0x5
0x2663…26bc at0006 = ╱ed╱(╱ // 0x2669 @0x6
0x2663…26bc at0007 = ╱31╱1╱ // 0x266a @0x7
0x2663…26bc at0008 = ╱30╱0╱ // 0x266b @0x8
0x2663…26bc at0009 = ╱fe0000a004╱ // 0x266c @0x9
0x2663…26bc at000e = ╱ee╱)╱ // 0x2671 @0xe
0x2663…26bc at000f = ╱eb╱;╱ // 0x2672 @0xf
0x2663…26bc at0010 = ╱22╱"╱ // 0x2673 @0x10
0x2663…26bc at0011 = ╱53╱S╱ // 0x2674 @0x11
0x2663…26bc at0012 = ╱61╱a╱ // 0x2675 @0x12
0x2663…26bc at0013 = ╱6c╱l╱ // 0x2676 @0x13
0x2663…26bc at0014 = ╱64╱d╱ // 0x2677 @0x14
0x2663…26bc at0015 = ╱6f╱o╱ // 0x2678 @0x15
0x2663…26bc at0016 = ╱22╱"╱ // 0x2679 @0x16
0x2663…26bc at0017 = ╱eb╱;╱ // 0x267a @0x17
0x2663…26bc at0018 = ╱d2╱TAB╱ // 0x267b @0x18
0x2663…26bc at0019 = ╱ed╱(╱ // 0x267c @0x19
0x2663…26bc at001a = ╱33╱3╱ // 0x267d @0x1a
0x2663…26bc at001b = ╱37╱7╱ // 0x267e @0x1b
0x2663…26bc at001c = ╱fe00009406╱ // 0x267f @0x1c
0x2663…26bc at0021 = ╱e2╱+╱ // 0x2684 @0x21
0x2663…26bc at0022 = ╱38╱8╱ // 0x2685 @0x22
0x2663…26bc at0023 = ╱fe00008004╱ // 0x2686 @0x23
0x2663…26bc at0028 = ╱e4╱*╱ // 0x268b @0x28
0x2663…26bc at0029 = ╱ed╱(╱ // 0x268c @0x29
0x2663…26bc at002a = ╱53╱S╱ // 0x268d @0x2a
0x2663…26bc at002b = ╱4b╱K╱ // 0x268e @0x2b
0x2663…26bc at002c = ╱31╱1╱ // 0x268f @0x2c
0x2663…26bc at002d = ╱ee╱)╱ // 0x2690 @0x2d
0x2663…26bc at002e = ╱ee╱)╱ // 0x2691 @0x2e
0x2663…26bc at002f = ╱eb╱;╱ // 0x2692 @0x2f
0x2663…26bc at0030 = ╱55╱U╱ // 0x2693 @0x30
0x2663…26bc at0031 = ╱44╱D╱ // 0x2694 @0x31
0x2663…26bc at0032 = ╱33╱3╱ // 0x2695 @0x32
0x2663…26bc at0033 = ╱ef╱$╱ // 0x2696 @0x33
0x2663…26bc at0034 = ╱ed╱(╱ // 0x2697 @0x34
0x2663…26bc at0035 = ╱45╱E╱ // 0x2698 @0x35
0x2663…26bc at0036 = ╱f0╱:╱ // 0x2699 @0x36
0x2663…26bc at0037 = ╱31╱1╱ // 0x269a @0x37
0x2663…26bc at0038 = ╱33╱3╱ // 0x269b @0x38
0x2663…26bc at0039 = ╱fe0000d004╱ // 0x269c @0x39
0x2663…26bc at003e = ╱ee╱)╱ // 0x26a1 @0x3e
0x2663…26bc at003f = ╱eb╱;╱ // 0x26a2 @0x3f
0x2663…26bc at0040 = ╱d2╱TAB╱ // 0x26a3 @0x40
0x2663…26bc at0041 = ╱ed╱(╱ // 0x26a4 @0x41
0x2663…26bc at0042 = ╱35╱5╱ // 0x26a5 @0x42
0x2663…26bc at0043 = ╱38╱8╱ // 0x26a6 @0x43
0x2663…26bc at0044 = ╱fe0000e806╱ // 0x26a7 @0x44
0x2663…26bc at0049 = ╱e2╱+╱ // 0x26ac @0x49
0x2663…26bc at004a = ╱38╱8╱ // 0x26ad @0x4a
0x2663…26bc at004b = ╱fe00008004╱ // 0x26ae @0x4b
0x2663…26bc at0050 = ╱e4╱*╱ // 0x26b3 @0x50
0x2663…26bc at0051 = ╱ed╱(╱ // 0x26b4 @0x51
0x2663…26bc at0052 = ╱53╱S╱ // 0x26b5 @0x52
0x2663…26bc at0053 = ╱4b╱K╱ // 0x26b6 @0x53
0x2663…26bc at0054 = ╱32╱2╱ // 0x26b7 @0x54
0x2663…26bc at0055 = ╱ee╱)╱ // 0x26b8 @0x55
0x2663…26bc at0056 = ╱ee╱)╱ // 0x26b9 @0x56
0x2663…26bc at0057 = ╱eb╱;╱ // 0x26ba @0x57
0x2663…26bc at0058 = EOL // 0x26bb @0x58
0x2663…26bc }
0x26bc…26d1 b428 4530 PRINT UD4$(E:13)
0x26bc…26d1 LineComalBin {
0x26bc…26d1 ptr = 0xb428 // 0x26bc @0x0
0x26bc…26d1 lno = 0x11b2 // 0x26be @0x2
0x26bc…26d1 at0004 = ╱92╱ PRINT ╱ // 0x26c0 @0x4
0x26bc…26d1 at0005 = ╱55╱U╱ // 0x26c1 @0x5
0x26bc…26d1 at0006 = ╱44╱D╱ // 0x26c2 @0x6
0x26bc…26d1 at0007 = ╱34╱4╱ // 0x26c3 @0x7
0x26bc…26d1 at0008 = ╱ef╱$╱ // 0x26c4 @0x8
0x26bc…26d1 at0009 = ╱ed╱(╱ // 0x26c5 @0x9
0x26bc…26d1 at000a = ╱45╱E╱ // 0x26c6 @0xa
0x26bc…26d1 at000b = ╱f0╱:╱ // 0x26c7 @0xb
0x26bc…26d1 at000c = ╱31╱1╱ // 0x26c8 @0xc
0x26bc…26d1 at000d = ╱33╱3╱ // 0x26c9 @0xd
0x26bc…26d1 at000e = ╱fe0000d004╱ // 0x26ca @0xe
0x26bc…26d1 at0013 = ╱ee╱)╱ // 0x26cf @0x13
0x26bc…26d1 at0014 = EOL // 0x26d0 @0x14
0x26bc…26d1 }
0x26d1…26dd b434 4540 PRINT STREG$
0x26d1…26dd LineComalBin {
0x26d1…26dd ptr = 0xb434 // 0x26d1 @0x0
0x26d1…26dd lno = 0x11bc // 0x26d3 @0x2
0x26d1…26dd at0004 = ╱92╱ PRINT ╱ // 0x26d5 @0x4
0x26d1…26dd at0005 = ╱53╱S╱ // 0x26d6 @0x5
0x26d1…26dd at0006 = ╱54╱T╱ // 0x26d7 @0x6
0x26d1…26dd at0007 = ╱52╱R╱ // 0x26d8 @0x7
0x26d1…26dd at0008 = ╱45╱E╱ // 0x26d9 @0x8
0x26d1…26dd at0009 = ╱47╱G╱ // 0x26da @0x9
0x26d1…26dd at000a = ╱ef╱$╱ // 0x26db @0xa
0x26d1…26dd at000b = EOL // 0x26dc @0xb
0x26d1…26dd }
0x26dd…26f6 b44d 4550 FOR J=EPIL3+E TO I+38
0x26dd…26f6 LineComalBin {
0x26dd…26f6 ptr = 0xb44d // 0x26dd @0x0
0x26dd…26f6 lno = 0x11c6 // 0x26df @0x2
0x26dd…26f6 at0004 = ╱83╱ FOR ╱ // 0x26e1 @0x4
0x26dd…26f6 at0005 = ╱4a╱J╱ // 0x26e2 @0x5
0x26dd…26f6 at0006 = ╱dc╱=╱ // 0x26e3 @0x6
0x26dd…26f6 at0007 = ╱45╱E╱ // 0x26e4 @0x7
0x26dd…26f6 at0008 = ╱50╱P╱ // 0x26e5 @0x8
0x26dd…26f6 at0009 = ╱49╱I╱ // 0x26e6 @0x9
0x26dd…26f6 at000a = ╱4c╱L╱ // 0x26e7 @0xa
0x26dd…26f6 at000b = ╱33╱3╱ // 0x26e8 @0xb
0x26dd…26f6 at000c = ╱e2╱+╱ // 0x26e9 @0xc
0x26dd…26f6 at000d = ╱45╱E╱ // 0x26ea @0xd
0x26dd…26f6 at000e = ╱b7╱ TO ╱ // 0x26eb @0xe
0x26dd…26f6 at000f = ╱49╱I╱ // 0x26ec @0xf
0x26dd…26f6 at0010 = ╱e2╱+╱ // 0x26ed @0x10
0x26dd…26f6 at0011 = ╱33╱3╱ // 0x26ee @0x11
0x26dd…26f6 at0012 = ╱38╱8╱ // 0x26ef @0x12
0x26dd…26f6 at0013 = ╱fe00009806╱ // 0x26f0 @0x13
0x26dd…26f6 at0018 = EOL // 0x26f5 @0x18
0x26dd…26f6 }
0x26f6…26ff b456 4560 PRINT " "
0x26f6…26ff LineComalBin {
0x26f6…26ff ptr = 0xb456 // 0x26f6 @0x0
0x26f6…26ff lno = 0x11d0 // 0x26f8 @0x2
0x26f6…26ff at0004 = ╱92╱ PRINT ╱ // 0x26fa @0x4
0x26f6…26ff at0005 = ╱22╱"╱ // 0x26fb @0x5
0x26f6…26ff at0006 = ╱20╱…╱ // 0x26fc @0x6
0x26f6…26ff at0007 = ╱22╱"╱ // 0x26fd @0x7
0x26f6…26ff at0008 = EOL // 0x26fe @0x8
0x26f6…26ff }
0x26ff…2706 b45d 4570 NEXT J
0x26ff…2706 LineComalBin {
0x26ff…2706 ptr = 0xb45d // 0x26ff @0x0
0x26ff…2706 lno = 0x11da // 0x2701 @0x2
0x26ff…2706 at0004 = ╱84╱ NEXT ╱ // 0x2703 @0x4
0x26ff…2706 at0005 = ╱4a╱J╱ // 0x2704 @0x5
0x26ff…2706 at0006 = EOL // 0x2705 @0x6
0x26ff…2706 }
0x2706…270d b464 4580 OUTPUT T
0x2706…270d LineComalBin {
0x2706…270d ptr = 0xb464 // 0x2706 @0x0
0x2706…270d lno = 0x11e4 // 0x2708 @0x2
0x2706…270d at0004 = ╱a5╱ OUTPUT ╱ // 0x270a @0x4
0x2706…270d at0005 = ╱54╱T╱ // 0x270b @0x5
0x2706…270d at0006 = EOL // 0x270c @0x6
0x2706…270d }
0x270d…2718 b46f 4590 KONT=B
0x270d…2718 LineComalBin {
0x270d…2718 ptr = 0xb46f // 0x270d @0x0
0x270d…2718 lno = 0x11ee // 0x270f @0x2
0x270d…2718 at0004 = ╱4b╱K╱ // 0x2711 @0x4
0x270d…2718 at0005 = ╱4f╱O╱ // 0x2712 @0x5
0x270d…2718 at0006 = ╱4e╱N╱ // 0x2713 @0x6
0x270d…2718 at0007 = ╱54╱T╱ // 0x2714 @0x7
0x270d…2718 at0008 = ╱dc╱=╱ // 0x2715 @0x8
0x270d…2718 at0009 = ╱42╱B╱ // 0x2716 @0x9
0x270d…2718 at000a = EOL // 0x2717 @0xa
0x270d…2718 }
0x2718…271e b475 4600 ENDCASE
0x2718…271e LineComalBin {
0x2718…271e ptr = 0xb475 // 0x2718 @0x0
0x2718…271e lno = 0x11f8 // 0x271a @0x2
0x2718…271e at0004 = ╱a4╱ ENDCASE ╱ // 0x271c @0x4
0x2718…271e at0005 = EOL // 0x271d @0x5
0x2718…271e }
0x271e…272a b481 4610 UNTIL KONT=B
0x271e…272a LineComalBin {
0x271e…272a ptr = 0xb481 // 0x271e @0x0
0x271e…272a lno = 0x1202 // 0x2720 @0x2
0x271e…272a at0004 = ╱98╱ UNTIL ╱ // 0x2722 @0x4
0x271e…272a at0005 = ╱4b╱K╱ // 0x2723 @0x5
0x271e…272a at0006 = ╱4f╱O╱ // 0x2724 @0x6
0x271e…272a at0007 = ╱4e╱N╱ // 0x2725 @0x7
0x271e…272a at0008 = ╱54╱T╱ // 0x2726 @0x8
0x271e…272a at0009 = ╱dc╱=╱ // 0x2727 @0x9
0x271e…272a at000a = ╱42╱B╱ // 0x2728 @0xa
0x271e…272a at000b = EOL // 0x2729 @0xb
0x271e…272a }
0x272a…2736 b48d 4620 UNTIL TYPE=B
0x272a…2736 LineComalBin {
0x272a…2736 ptr = 0xb48d // 0x272a @0x0
0x272a…2736 lno = 0x120c // 0x272c @0x2
0x272a…2736 at0004 = ╱98╱ UNTIL ╱ // 0x272e @0x4
0x272a…2736 at0005 = ╱54╱T╱ // 0x272f @0x5
0x272a…2736 at0006 = ╱59╱Y╱ // 0x2730 @0x6
0x272a…2736 at0007 = ╱50╱P╱ // 0x2731 @0x7
0x272a…2736 at0008 = ╱45╱E╱ // 0x2732 @0x8
0x272a…2736 at0009 = ╱dc╱=╱ // 0x2733 @0x9
0x272a…2736 at000a = ╱42╱B╱ // 0x2734 @0xa
0x272a…2736 at000b = EOL // 0x2735 @0xb
0x272a…2736 }
0x2736…2753 b4aa 4630 EXEC UDTAB(ETAB,MEANTAL,K3$)
0x2736…2753 LineComalBin {
0x2736…2753 ptr = 0xb4aa // 0x2736 @0x0
0x2736…2753 lno = 0x1216 // 0x2738 @0x2
0x2736…2753 at0004 = ╱9d╱ EXEC ╱ // 0x273a @0x4
0x2736…2753 at0005 = ╱55╱U╱ // 0x273b @0x5
0x2736…2753 at0006 = ╱44╱D╱ // 0x273c @0x6
0x2736…2753 at0007 = ╱54╱T╱ // 0x273d @0x7
0x2736…2753 at0008 = ╱41╱A╱ // 0x273e @0x8
0x2736…2753 at0009 = ╱42╱B╱ // 0x273f @0x9
0x2736…2753 at000a = ╱ed╱(╱ // 0x2740 @0xa
0x2736…2753 at000b = ╱45╱E╱ // 0x2741 @0xb
0x2736…2753 at000c = ╱54╱T╱ // 0x2742 @0xc
0x2736…2753 at000d = ╱41╱A╱ // 0x2743 @0xd
0x2736…2753 at000e = ╱42╱B╱ // 0x2744 @0xe
0x2736…2753 at000f = ╱ec╱,╱ // 0x2745 @0xf
0x2736…2753 at0010 = ╱4d╱M╱ // 0x2746 @0x10
0x2736…2753 at0011 = ╱45╱E╱ // 0x2747 @0x11
0x2736…2753 at0012 = ╱41╱A╱ // 0x2748 @0x12
0x2736…2753 at0013 = ╱4e╱N╱ // 0x2749 @0x13
0x2736…2753 at0014 = ╱54╱T╱ // 0x274a @0x14
0x2736…2753 at0015 = ╱41╱A╱ // 0x274b @0x15
0x2736…2753 at0016 = ╱4c╱L╱ // 0x274c @0x16
0x2736…2753 at0017 = ╱ec╱,╱ // 0x274d @0x17
0x2736…2753 at0018 = ╱4b╱K╱ // 0x274e @0x18
0x2736…2753 at0019 = ╱33╱3╱ // 0x274f @0x19
0x2736…2753 at001a = ╱ef╱$╱ // 0x2750 @0x1a
0x2736…2753 at001b = ╱ee╱)╱ // 0x2751 @0x1b
0x2736…2753 at001c = EOL // 0x2752 @0x1c
0x2736…2753 }
0x2753…275c b4b3 4640 CLOSE K2$
0x2753…275c LineComalBin {
0x2753…275c ptr = 0xb4b3 // 0x2753 @0x0
0x2753…275c lno = 0x1220 // 0x2755 @0x2
0x2753…275c at0004 = ╱a8╱ CLOSE ╱ // 0x2757 @0x4
0x2753…275c at0005 = ╱4b╱K╱ // 0x2758 @0x5
0x2753…275c at0006 = ╱32╱2╱ // 0x2759 @0x6
0x2753…275c at0007 = ╱ef╱$╱ // 0x275a @0x7
0x2753…275c at0008 = EOL // 0x275b @0x8
0x2753…275c }
0x275c…2775 b4cc 4650 EXEC FEJL(W,30,K2$)
0x275c…2775 LineComalBin {
0x275c…2775 ptr = 0xb4cc // 0x275c @0x0
0x275c…2775 lno = 0x122a // 0x275e @0x2
0x275c…2775 at0004 = ╱9d╱ EXEC ╱ // 0x2760 @0x4
0x275c…2775 at0005 = ╱46╱F╱ // 0x2761 @0x5
0x275c…2775 at0006 = ╱45╱E╱ // 0x2762 @0x6
0x275c…2775 at0007 = ╱4a╱J╱ // 0x2763 @0x7
0x275c…2775 at0008 = ╱4c╱L╱ // 0x2764 @0x8
0x275c…2775 at0009 = ╱ed╱(╱ // 0x2765 @0x9
0x275c…2775 at000a = ╱57╱W╱ // 0x2766 @0xa
0x275c…2775 at000b = ╱ec╱,╱ // 0x2767 @0xb
0x275c…2775 at000c = ╱33╱3╱ // 0x2768 @0xc
0x275c…2775 at000d = ╱30╱0╱ // 0x2769 @0xd
0x275c…2775 at000e = ╱fe0000f005╱ // 0x276a @0xe
0x275c…2775 at0013 = ╱ec╱,╱ // 0x276f @0x13
0x275c…2775 at0014 = ╱4b╱K╱ // 0x2770 @0x14
0x275c…2775 at0015 = ╱32╱2╱ // 0x2771 @0x15
0x275c…2775 at0016 = ╱ef╱$╱ // 0x2772 @0x16
0x275c…2775 at0017 = ╱ee╱)╱ // 0x2773 @0x17
0x275c…2775 at0018 = EOL // 0x2774 @0x18
0x275c…2775 }
0x2775…277e b4d5 4660 CLOSE K3$
0x2775…277e LineComalBin {
0x2775…277e ptr = 0xb4d5 // 0x2775 @0x0
0x2775…277e lno = 0x1234 // 0x2777 @0x2
0x2775…277e at0004 = ╱a8╱ CLOSE ╱ // 0x2779 @0x4
0x2775…277e at0005 = ╱4b╱K╱ // 0x277a @0x5
0x2775…277e at0006 = ╱33╱3╱ // 0x277b @0x6
0x2775…277e at0007 = ╱ef╱$╱ // 0x277c @0x7
0x2775…277e at0008 = EOL // 0x277d @0x8
0x2775…277e }
0x277e…2797 b4ee 4670 EXEC FEJL(W,31,K3$)
0x277e…2797 LineComalBin {
0x277e…2797 ptr = 0xb4ee // 0x277e @0x0
0x277e…2797 lno = 0x123e // 0x2780 @0x2
0x277e…2797 at0004 = ╱9d╱ EXEC ╱ // 0x2782 @0x4
0x277e…2797 at0005 = ╱46╱F╱ // 0x2783 @0x5
0x277e…2797 at0006 = ╱45╱E╱ // 0x2784 @0x6
0x277e…2797 at0007 = ╱4a╱J╱ // 0x2785 @0x7
0x277e…2797 at0008 = ╱4c╱L╱ // 0x2786 @0x8
0x277e…2797 at0009 = ╱ed╱(╱ // 0x2787 @0x9
0x277e…2797 at000a = ╱57╱W╱ // 0x2788 @0xa
0x277e…2797 at000b = ╱ec╱,╱ // 0x2789 @0xb
0x277e…2797 at000c = ╱33╱3╱ // 0x278a @0xc
0x277e…2797 at000d = ╱31╱1╱ // 0x278b @0xd
0x277e…2797 at000e = ╱fe0000f805╱ // 0x278c @0xe
0x277e…2797 at0013 = ╱ec╱,╱ // 0x2791 @0x13
0x277e…2797 at0014 = ╱4b╱K╱ // 0x2792 @0x14
0x277e…2797 at0015 = ╱33╱3╱ // 0x2793 @0x15
0x277e…2797 at0016 = ╱ef╱$╱ // 0x2794 @0x16
0x277e…2797 at0017 = ╱ee╱)╱ // 0x2795 @0x17
0x277e…2797 at0018 = EOL // 0x2796 @0x18
0x277e…2797 }
0x2797…27a6 b4fd 4680 T2(E)=AENT
0x2797…27a6 LineComalBin {
0x2797…27a6 ptr = 0xb4fd // 0x2797 @0x0
0x2797…27a6 lno = 0x1248 // 0x2799 @0x2
0x2797…27a6 at0004 = ╱54╱T╱ // 0x279b @0x4
0x2797…27a6 at0005 = ╱32╱2╱ // 0x279c @0x5
0x2797…27a6 at0006 = ╱ed╱(╱ // 0x279d @0x6
0x2797…27a6 at0007 = ╱45╱E╱ // 0x279e @0x7
0x2797…27a6 at0008 = ╱ee╱)╱ // 0x279f @0x8
0x2797…27a6 at0009 = ╱dc╱=╱ // 0x27a0 @0x9
0x2797…27a6 at000a = ╱41╱A╱ // 0x27a1 @0xa
0x2797…27a6 at000b = ╱45╱E╱ // 0x27a2 @0xb
0x2797…27a6 at000c = ╱4e╱N╱ // 0x27a3 @0xc
0x2797…27a6 at000d = ╱54╱T╱ // 0x27a4 @0xd
0x2797…27a6 at000e = EOL // 0x27a5 @0xe
0x2797…27a6 }
0x27a6…27b1 b508 4690 OPEN K4$,W
0x27a6…27b1 LineComalBin {
0x27a6…27b1 ptr = 0xb508 // 0x27a6 @0x0
0x27a6…27b1 lno = 0x1252 // 0x27a8 @0x2
0x27a6…27b1 at0004 = ╱a7╱ OPEN ╱ // 0x27aa @0x4
0x27a6…27b1 at0005 = ╱4b╱K╱ // 0x27ab @0x5
0x27a6…27b1 at0006 = ╱34╱4╱ // 0x27ac @0x6
0x27a6…27b1 at0007 = ╱ef╱$╱ // 0x27ad @0x7
0x27a6…27b1 at0008 = ╱ec╱,╱ // 0x27ae @0x8
0x27a6…27b1 at0009 = ╱57╱W╱ // 0x27af @0x9
0x27a6…27b1 at000a = EOL // 0x27b0 @0xa
0x27a6…27b1 }
0x27b1…27ca b521 4700 EXEC FEJL(W,32,K4$)
0x27b1…27ca LineComalBin {
0x27b1…27ca ptr = 0xb521 // 0x27b1 @0x0
0x27b1…27ca lno = 0x125c // 0x27b3 @0x2
0x27b1…27ca at0004 = ╱9d╱ EXEC ╱ // 0x27b5 @0x4
0x27b1…27ca at0005 = ╱46╱F╱ // 0x27b6 @0x5
0x27b1…27ca at0006 = ╱45╱E╱ // 0x27b7 @0x6
0x27b1…27ca at0007 = ╱4a╱J╱ // 0x27b8 @0x7
0x27b1…27ca at0008 = ╱4c╱L╱ // 0x27b9 @0x8
0x27b1…27ca at0009 = ╱ed╱(╱ // 0x27ba @0x9
0x27b1…27ca at000a = ╱57╱W╱ // 0x27bb @0xa
0x27b1…27ca at000b = ╱ec╱,╱ // 0x27bc @0xb
0x27b1…27ca at000c = ╱33╱3╱ // 0x27bd @0xc
0x27b1…27ca at000d = ╱32╱2╱ // 0x27be @0xd
0x27b1…27ca at000e = ╱fe00008006╱ // 0x27bf @0xe
0x27b1…27ca at0013 = ╱ec╱,╱ // 0x27c4 @0x13
0x27b1…27ca at0014 = ╱4b╱K╱ // 0x27c5 @0x14
0x27b1…27ca at0015 = ╱34╱4╱ // 0x27c6 @0x15
0x27b1…27ca at0016 = ╱ef╱$╱ // 0x27c7 @0x16
0x27b1…27ca at0017 = ╱ee╱)╱ // 0x27c8 @0x17
0x27b1…27ca at0018 = EOL // 0x27c9 @0x18
0x27b1…27ca }
0x27ca…282a b581 4710 PUT K4$,21:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x27ca…282a LineComalBin {
0x27ca…282a ptr = 0xb581 // 0x27ca @0x0
0x27ca…282a lno = 0x1266 // 0x27cc @0x2
0x27ca…282a at0004 = ╱aa╱ PUT ╱ // 0x27ce @0x4
0x27ca…282a at0005 = ╱4b╱K╱ // 0x27cf @0x5
0x27ca…282a at0006 = ╱34╱4╱ // 0x27d0 @0x6
0x27ca…282a at0007 = ╱ef╱$╱ // 0x27d1 @0x7
0x27ca…282a at0008 = ╱ec╱,╱ // 0x27d2 @0x8
0x27ca…282a at0009 = ╱32╱2╱ // 0x27d3 @0x9
0x27ca…282a at000a = ╱31╱1╱ // 0x27d4 @0xa
0x27ca…282a at000b = ╱fe0000a805╱ // 0x27d5 @0xb
0x27ca…282a at0010 = ╱f0╱:╱ // 0x27da @0x10
0x27ca…282a at0011 = ╱54╱T╱ // 0x27db @0x11
0x27ca…282a at0012 = ╱32╱2╱ // 0x27dc @0x12
0x27ca…282a at0013 = ╱ed╱(╱ // 0x27dd @0x13
0x27ca…282a at0014 = ╱45╱E╱ // 0x27de @0x14
0x27ca…282a at0015 = ╱ee╱)╱ // 0x27df @0x15
0x27ca…282a at0016 = ╱ec╱,╱ // 0x27e0 @0x16
0x27ca…282a at0017 = ╱54╱T╱ // 0x27e1 @0x17
0x27ca…282a at0018 = ╱32╱2╱ // 0x27e2 @0x18
0x27ca…282a at0019 = ╱ed╱(╱ // 0x27e3 @0x19
0x27ca…282a at001a = ╱47╱G╱ // 0x27e4 @0x1a
0x27ca…282a at001b = ╱ee╱)╱ // 0x27e5 @0x1b
0x27ca…282a at001c = ╱ec╱,╱ // 0x27e6 @0x1c
0x27ca…282a at001d = ╱54╱T╱ // 0x27e7 @0x1d
0x27ca…282a at001e = ╱32╱2╱ // 0x27e8 @0x1e
0x27ca…282a at001f = ╱ed╱(╱ // 0x27e9 @0x1f
0x27ca…282a at0020 = ╱56╱V╱ // 0x27ea @0x20
0x27ca…282a at0021 = ╱ee╱)╱ // 0x27eb @0x21
0x27ca…282a at0022 = ╱ec╱,╱ // 0x27ec @0x22
0x27ca…282a at0023 = ╱54╱T╱ // 0x27ed @0x23
0x27ca…282a at0024 = ╱32╱2╱ // 0x27ee @0x24
0x27ca…282a at0025 = ╱ed╱(╱ // 0x27ef @0x25
0x27ca…282a at0026 = ╱34╱4╱ // 0x27f0 @0x26
0x27ca…282a at0027 = ╱fe00008003╱ // 0x27f1 @0x27
0x27ca…282a at002c = ╱ee╱)╱ // 0x27f6 @0x2c
0x27ca…282a at002d = ╱ec╱,╱ // 0x27f7 @0x2d
0x27ca…282a at002e = ╱54╱T╱ // 0x27f8 @0x2e
0x27ca…282a at002f = ╱32╱2╱ // 0x27f9 @0x2f
0x27ca…282a at0030 = ╱ed╱(╱ // 0x27fa @0x30
0x27ca…282a at0031 = ╱35╱5╱ // 0x27fb @0x31
0x27ca…282a at0032 = ╱fe0000a003╱ // 0x27fc @0x32
0x27ca…282a at0037 = ╱ee╱)╱ // 0x2801 @0x37
0x27ca…282a at0038 = ╱ec╱,╱ // 0x2802 @0x38
0x27ca…282a at0039 = ╱54╱T╱ // 0x2803 @0x39
0x27ca…282a at003a = ╱32╱2╱ // 0x2804 @0x3a
0x27ca…282a at003b = ╱ed╱(╱ // 0x2805 @0x3b
0x27ca…282a at003c = ╱36╱6╱ // 0x2806 @0x3c
0x27ca…282a at003d = ╱fe0000c003╱ // 0x2807 @0x3d
0x27ca…282a at0042 = ╱ee╱)╱ // 0x280c @0x42
0x27ca…282a at0043 = ╱ec╱,╱ // 0x280d @0x43
0x27ca…282a at0044 = ╱54╱T╱ // 0x280e @0x44
0x27ca…282a at0045 = ╱32╱2╱ // 0x280f @0x45
0x27ca…282a at0046 = ╱ed╱(╱ // 0x2810 @0x46
0x27ca…282a at0047 = ╱37╱7╱ // 0x2811 @0x47
0x27ca…282a at0048 = ╱fe0000e003╱ // 0x2812 @0x48
0x27ca…282a at004d = ╱ee╱)╱ // 0x2817 @0x4d
0x27ca…282a at004e = ╱ec╱,╱ // 0x2818 @0x4e
0x27ca…282a at004f = ╱54╱T╱ // 0x2819 @0x4f
0x27ca…282a at0050 = ╱32╱2╱ // 0x281a @0x50
0x27ca…282a at0051 = ╱ed╱(╱ // 0x281b @0x51
0x27ca…282a at0052 = ╱38╱8╱ // 0x281c @0x52
0x27ca…282a at0053 = ╱fe00008004╱ // 0x281d @0x53
0x27ca…282a at0058 = ╱ee╱)╱ // 0x2822 @0x58
0x27ca…282a at0059 = ╱ec╱,╱ // 0x2823 @0x59
0x27ca…282a at005a = ╱54╱T╱ // 0x2824 @0x5a
0x27ca…282a at005b = ╱32╱2╱ // 0x2825 @0x5b
0x27ca…282a at005c = ╱ed╱(╱ // 0x2826 @0x5c
0x27ca…282a at005d = ╱57╱W╱ // 0x2827 @0x5d
0x27ca…282a at005e = ╱ee╱)╱ // 0x2828 @0x5e
0x27ca…282a at005f = EOL // 0x2829 @0x5f
0x27ca…282a }
0x282a…2843 b59a 4720 EXEC FEJL(W,34,K4$)
0x282a…2843 LineComalBin {
0x282a…2843 ptr = 0xb59a // 0x282a @0x0
0x282a…2843 lno = 0x1270 // 0x282c @0x2
0x282a…2843 at0004 = ╱9d╱ EXEC ╱ // 0x282e @0x4
0x282a…2843 at0005 = ╱46╱F╱ // 0x282f @0x5
0x282a…2843 at0006 = ╱45╱E╱ // 0x2830 @0x6
0x282a…2843 at0007 = ╱4a╱J╱ // 0x2831 @0x7
0x282a…2843 at0008 = ╱4c╱L╱ // 0x2832 @0x8
0x282a…2843 at0009 = ╱ed╱(╱ // 0x2833 @0x9
0x282a…2843 at000a = ╱57╱W╱ // 0x2834 @0xa
0x282a…2843 at000b = ╱ec╱,╱ // 0x2835 @0xb
0x282a…2843 at000c = ╱33╱3╱ // 0x2836 @0xc
0x282a…2843 at000d = ╱34╱4╱ // 0x2837 @0xd
0x282a…2843 at000e = ╱fe00008806╱ // 0x2838 @0xe
0x282a…2843 at0013 = ╱ec╱,╱ // 0x283d @0x13
0x282a…2843 at0014 = ╱4b╱K╱ // 0x283e @0x14
0x282a…2843 at0015 = ╱34╱4╱ // 0x283f @0x15
0x282a…2843 at0016 = ╱ef╱$╱ // 0x2840 @0x16
0x282a…2843 at0017 = ╱ee╱)╱ // 0x2841 @0x17
0x282a…2843 at0018 = EOL // 0x2842 @0x18
0x282a…2843 }
0x2843…284c b5a3 4730 CLOSE K4$
0x2843…284c LineComalBin {
0x2843…284c ptr = 0xb5a3 // 0x2843 @0x0
0x2843…284c lno = 0x127a // 0x2845 @0x2
0x2843…284c at0004 = ╱a8╱ CLOSE ╱ // 0x2847 @0x4
0x2843…284c at0005 = ╱4b╱K╱ // 0x2848 @0x5
0x2843…284c at0006 = ╱34╱4╱ // 0x2849 @0x6
0x2843…284c at0007 = ╱ef╱$╱ // 0x284a @0x7
0x2843…284c at0008 = EOL // 0x284b @0x8
0x2843…284c }
0x284c…2865 b5bc 4740 EXEC FEJL(W,35,K4$)
0x284c…2865 LineComalBin {
0x284c…2865 ptr = 0xb5bc // 0x284c @0x0
0x284c…2865 lno = 0x1284 // 0x284e @0x2
0x284c…2865 at0004 = ╱9d╱ EXEC ╱ // 0x2850 @0x4
0x284c…2865 at0005 = ╱46╱F╱ // 0x2851 @0x5
0x284c…2865 at0006 = ╱45╱E╱ // 0x2852 @0x6
0x284c…2865 at0007 = ╱4a╱J╱ // 0x2853 @0x7
0x284c…2865 at0008 = ╱4c╱L╱ // 0x2854 @0x8
0x284c…2865 at0009 = ╱ed╱(╱ // 0x2855 @0x9
0x284c…2865 at000a = ╱57╱W╱ // 0x2856 @0xa
0x284c…2865 at000b = ╱ec╱,╱ // 0x2857 @0xb
0x284c…2865 at000c = ╱33╱3╱ // 0x2858 @0xc
0x284c…2865 at000d = ╱35╱5╱ // 0x2859 @0xd
0x284c…2865 at000e = ╱fe00008c06╱ // 0x285a @0xe
0x284c…2865 at0013 = ╱ec╱,╱ // 0x285f @0x13
0x284c…2865 at0014 = ╱4b╱K╱ // 0x2860 @0x14
0x284c…2865 at0015 = ╱34╱4╱ // 0x2861 @0x15
0x284c…2865 at0016 = ╱ef╱$╱ // 0x2862 @0x16
0x284c…2865 at0017 = ╱ee╱)╱ // 0x2863 @0x17
0x284c…2865 at0018 = EOL // 0x2864 @0x18
0x284c…2865 }
0x2865…287c 0000 4750 CHAIN "P641210:OPSTART"
0x2865…287c LineComalBin {
0x2865…287c ptr = 0x0000 // 0x2865 @0x0
0x2865…287c lno = 0x128e // 0x2867 @0x2
0x2865…287c at0004 = ╱ac╱ CHAIN ╱ // 0x2869 @0x4
0x2865…287c at0005 = ╱22╱"╱ // 0x286a @0x5
0x2865…287c at0006 = ╱50╱P╱ // 0x286b @0x6
0x2865…287c at0007 = ╱36╱6╱ // 0x286c @0x7
0x2865…287c at0008 = ╱34╱4╱ // 0x286d @0x8
0x2865…287c at0009 = ╱31╱1╱ // 0x286e @0x9
0x2865…287c at000a = ╱32╱2╱ // 0x286f @0xa
0x2865…287c at000b = ╱31╱1╱ // 0x2870 @0xb
0x2865…287c at000c = ╱30╱0╱ // 0x2871 @0xc
0x2865…287c at000d = ╱3a╱:╱ // 0x2872 @0xd
0x2865…287c at000e = ╱4f╱O╱ // 0x2873 @0xe
0x2865…287c at000f = ╱50╱P╱ // 0x2874 @0xf
0x2865…287c at0010 = ╱53╱S╱ // 0x2875 @0x10
0x2865…287c at0011 = ╱54╱T╱ // 0x2876 @0x11
0x2865…287c at0012 = ╱41╱A╱ // 0x2877 @0x12
0x2865…287c at0013 = ╱52╱R╱ // 0x2878 @0x13
0x2865…287c at0014 = ╱54╱T╱ // 0x2879 @0x14
0x2865…287c at0015 = ╱22╱"╱ // 0x287a @0x15
0x2865…287c at0016 = EOL // 0x287b @0x16
0x2865…287c }
0x287c…2880 57 8d 5a 00 ┆W Z ┆
0x2880…289b 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb ┆B 0 E 1 G 2 ┆
0x289b…28ad (135,) 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆V 3 W 9 ┆
0x28ad…28b3 (136,) 57 8d d3 b5 10 00 ┆W ┆