|
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: 9326 (0x246e)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »UNKVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »UNKVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »UNKVEDL.B«
0100 DIM RES$(15),OP1$(12),OP2$(12) 0110 DIM FNAVN$(25),FUKODE$(E),DAT$(8),STREG$(71) 0120 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10) 0130 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14) 0140 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17) 0150 PROC CALC(AT,B1,B2,ES) 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT 0170 CALL "P641210:REGN" 0180 ES$=RES$ 0190 IF FLAG THEN STOP 0200 ENDPROC 0210 PROC FEJL(NR1,NR2,NR3) 0220 IF STATUS(NR3$)<>B THEN 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0240 STOP 0250 ENDIF 0260 ENDPROC 0270 PROC DKRTEST 0280 FOR EPIL3=E TO AENT 0290 IF ETAB(EPIL3,E)<1000000 THEN 0300 EXEC HENTEPOST 0320 EXEC CALC(4,MBEV$(UPIL2),TAH$,TAH$) 0330 IF SI<>B THEN EXIT 0340 EXEC CALC(4,YBEV$(UPIL2),TAH$,TAH$) 0350 IF SI<>B THEN EXIT 0360 ENDIF 0370 NEXT EPIL3 0380 IF EPIL3<AENT+E THEN TEST=E 0390 ENDPROC 0400 PROC INDTAB1(T) 0410 J=MEANTAL DIV 32+E 0420 FOR I=J TO MEANTAL DIV 4+J-E 0430 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0440 GET K5$,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) 0450 EXEC FEJL(E,E,K5$) 0460 NEXT I 0470 ENDPROC 0480 PROC INDTAB 0490 FOR I=E TO MUNKANT+METOT 0500 GET K2$,I:UNR(I),UKODE$(I),UNAVN$(I) 0510 EXEC FEJL(E,E,K2$) 0520 NEXT I 0530 ENDPROC 0540 PROC UDTAB 0550 FOR I=E TO MUNKANT+METOT 0560 PUT K2$,I:UNR(I),UKODE$(I),UNAVN$(I) 0570 EXEC FEJL(G,E,K2$) 0580 NEXT I 0590 ENDPROC 0600 PROC FINDPOST 0610 UPIL3=MUNKANT+METOT;CEKS=E;UPIL2=AUNK;CEKS1=E 0620 WHILE FNR<UNR(UPIL3) AND UPIL3>E DO 0630 IF UKODE$(UPIL3)="0" THEN UPIL2=UPIL2-E 0640 UPIL3=UPIL3-E 0650 ENDWHILE 0660 IF FNR=UNR(UPIL3) THEN CEKS=B 0670 IF UKODE$(UPIL3)="0" THEN CEKS1=B 0680 IF FNR>UNR(UPIL3) THEN 0681 UPIL2=UPIL2+E*(UPIL2<MUNKANT) 0682 UPIL3=UPIL3+E*(UPIL3<MUNKANT+METOT) 0683 ENDIF 0690 ENDPROC 0700 PROC INDSÆT 0710 IF CEKS=E THEN 0720 FOR I=AUNK+ETOT+E TO UPIL3+E STEP -E 0730 UNR(I)=UNR(I-E);UKODE$(I)=UKODE$(I-E);UNAVN$(I)=UNAVN$(I-E) 0740 NEXT I 0750 IF FUKODE$="0" THEN 0760 FOR EPIL3=E TO AENT 0770 IF ETAB(EPIL3,E)<1000000 THEN 0780 EXEC HENTEPOST 0790 FOR I=AUNK+E TO UPIL2+E STEP -E 0800 UKNR(I)=UKNR(I-E);MBEV$(I)=MBEV$(I-E);YBEV$(I)=YBEV$(I-E) 0810 NEXT I 0820 UKNR(UPIL2)=FNR;MBEV$(UPIL2)="0+";YBEV$(UPIL2)="0+" 0830 EXEC GEMEPOST 0840 ENDIF 0850 NEXT EPIL3 0860 AUNK=AUNK+E 0870 ELSE 0880 ETOT=ETOT+E 0890 ENDIF 0900 ENDIF 0910 ENDPROC 0920 PROC SLETPOST 0930 IF CEKS=B THEN 0940 FOR I=UPIL3 TO AUNK+ETOT-E 0950 UNR(I)=UNR(I+E);UKODE$(I)=UKODE$(I+E);UNAVN$(I)=UNAVN$(I+E) 0960 NEXT I 0970 UNR(I)=1000000;UKODE$(I)="E";UNAVN$(I)=BLANK$ 0980 IF FUKODE$="0" THEN 0990 FOR EPIL3=E TO AENT 1000 IF ETAB(EPIL3,E)<1000000 THEN 1010 EXEC HENTEPOST 1020 IF UKNR(UPIL2)<>FNR THEN STOP 1030 FOR I=UPIL2 TO AUNK-E 1040 UKNR(I)=UKNR(I+E);MBEV$(I)=MBEV$(I+E);YBEV$(I)=YBEV$(I+E) 1050 NEXT I 1060 UKNR(I)=1000000;MBEV$(I)="0+";YBEV$(I)="0+" 1070 EXEC GEMEPOST 1080 ENDIF 1090 NEXT EPIL3 1100 AUNK=AUNK-E 1110 ELSE 1120 ETOT=ETOT-E 1130 ENDIF 1140 ENDIF 1150 ENDPROC 1160 PROC HENTEPOST 1170 S=ETAB(EPIL3,G)+E 1180 FOR X=E TO MUNKANT 1190 GET K3$,X+S:UKNR(X),MBEV$(X),YBEV$(X) 1200 EXEC FEJL(V,E,K3$) 1210 NEXT X 1220 ENDPROC 1230 PROC GEMEPOST 1240 S=ETAB(EPIL3,G)+E 1250 FOR X=E TO MUNKANT 1260 PUT K3$,X+S:UKNR(X),MBEV$(X),YBEV$(X) 1270 EXEC FEJL(V,G,K3$) 1280 NEXT X 1290 ENDPROC 1300 PROC HENTPOST 1310 FNR=UNR(UPIL3);FUKODE$=UKODE$(UPIL3);FNAVN$=UNAVN$(UPIL3) 1320 ENDPROC 1330 PROC GEMUPOST 1340 UNR(UPIL3)=FNR;UKODE$(UPIL3)=FUKODE$;UNAVN$(UPIL3)=FNAVN$ 1350 ENDPROC 1360 PROC FINDTAST(FSTYR,FÆND,FNR2) 1370 IF FÆND<>E THEN 1380 CLEAR 1390 CURSOR 21,E 1400 PRINT "Kontooplysninger" 1410 EXEC VERSKRIFT 1420 CURSOR G,V 1430 PRINT USING "1:Kontonr : ######":FNR2 1440 ENDIF 1450 REPEAT 1460 CASE FSTYR OF 1470 STOP 1480 WHEN G 1490 IF FÆND<>E THEN 1500 CURSOR G,5 1510 PRINT "2:Kontonavn :" 1520 FSTYR=V 1530 ENDIF 1540 IF FÆND<>G THEN 1550 CURSOR V,23 1560 PRINT "Kontonavn";BLANK$(E:29);"(max 25 tegn)";BLANK$(E:25) 1570 CURSOR 13,23 1580 INPUT FNAVN$ 1590 ENDIF 1600 CURSOR 19,5 1610 PRINT BLANK$(E:25) 1620 CURSOR 19,5 1630 PRINT FNAVN$ 1640 WHEN V 1650 IF FÆND<>E THEN 1660 CURSOR G,7 1670 PRINT "3:Udskriftskode:" 1680 ENDIF 1690 IF FÆND<>G THEN 1700 REPEAT 1710 CURSOR V,23 1720 PRINT "Udskriftskode (0:normal,1:undergr,.2:hovedgr.,3:subto"; 1730 PRINT "tal,4:Overgr.) " 1740 CURSOR 17,23 1750 INPUT A$ 1760 UNTIL ORD(A$)>47 AND ORD(A$)<53 1770 IF TYPE=E THEN 1780 FUKODE$=A$ 1790 ELSE 1800 IF FUKODE$<>"0" THEN IF A$<>"0" THEN FUKODE$=A$ 1810 ENDIF 1820 ENDIF 1830 CURSOR 19,7 1840 PRINT " " 1850 CURSOR 19,7 1860 PRINT FUKODE$ 1870 FSTYR=4 1880 ENDCASE 1890 IF FÆND=E THEN FSTYR=4 1900 UNTIL FSTYR=4 1910 ENDPROC 1920 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1930 BLB2$=BLB1$;UBLB2$=UBLB1$ 1940 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 1950 UBLB1$=UBLB2$ 1960 IF TEGN=B THEN 1970 UBLB1$=UBLB1$(E:13) 1980 ELSE 1990 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 2000 UBLB1$(LEN(UBLB1$))=" " 2010 ENDIF 2020 IF STØR=E THEN 2030 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 2040 ENDIF 2050 ENDIF 2060 PRINT UBLB1$ 2070 ENDPROC 2080 PROC NRTEST(NUM1) 2090 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 2100 CASE L OF 2110 FOR I=E TO L 2120 P1=INT(ORD(NUM1$(I))-48) 2130 IF P1=>B AND P1<=W THEN 2140 P=P*10+P1 2150 ELSE 2160 TEST2=E 2170 ENDIF 2180 NEXT I 2190 KTAL=P DIV 10000;KTAL9=P DIV 1000 2200 IF KTAL9=KRTAL THEN KTAL=KRTAL 2210 WHEN B 2220 P=-E 2230 WHEN E 2240 CASE NUM1$ OF 2250 P=INT(ORD(NUM1$)-48) 2260 WHEN "j","J" 2270 P=-7 2280 WHEN "n","N" 2290 P=-8 2300 ENDCASE 2310 ENDCASE 2320 ENDPROC 2330 PROC VERSKRIFT 2340 CURSOR 45,E 2350 CASE TYPE OF 2360 WHEN E 2370 PRINT "Oprettelse" 2380 WHEN G 2390 PRINT "Ændring" 2400 WHEN V 2410 PRINT "Sletning" 2420 WHEN 4 2430 PRINT "Udskrift" 2440 WHEN 5 2450 PRINT "Underkontoliste" 2460 ENDCASE 2470 ENDPROC 2480 K1$="P641220:SYSTEM1" 2490 OPEN K1$,R 2500 EXEC FEJL(W,E,K1$) 2510 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT 2520 EXEC FEJL(W,6,K1$) 2530 GET K1$,10:N$ 2540 EXEC FEJL(W,7,K1$) 2550 GET K1$,36:K4$ 2560 EXEC FEJL(W,10,K1$) 2570 GET K1$,37:K3$ 2580 EXEC FEJL(W,G,K1$) 2590 GET K1$,38:K5$ 2600 EXEC FEJL(W,V,K1$) 2610 GET K1$,39:K2$ 2620 EXEC FEJL(W,10,K1$) 2630 GET K1$,43:METOT 2640 EXEC FEJL(W,11,K1$) 2650 CLOSE K1$ 2660 EXEC FEJL(W,11,K1$) 2670 DIM UNR(MUNKANT+METOT),UKODE$(MUNKANT+METOT),UNAVN$(MUNKANT+METOT,25) 2680 DIM UKNR(MUNKANT),MBEV$(MUNKANT,12),YBEV$(MUNKANT,12),ETAB(MEANTAL,G) 2690 K4$=N$+K4$ 2700 OPEN K4$,W 2710 EXEC FEJL(W,12,K4$) 2720 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 2730 EXEC FEJL(W,13,K4$) 2740 GET K4$,20:DV$ 2750 EXEC FEJL(W,22,K4$) 2760 GET K4$,21:AENT,AUNK,ETOT,EMID,EPOST 2770 EXEC FEJL(W,12,K4$) 2780 CLOSE K4$ 2790 EXEC FEJL(W,17,K4$) 2800 K2$=N$+K2$;K3$=N$+K3$;K5$=N$+K5$ 2810 OPEN K2$,W 2820 EXEC FEJL(W,18,K2$) 2830 OPEN K5$,R 2840 EXEC FEJL(W,19,K5$) 2850 OPEN K3$,W 2860 EXEC FEJL(W,20,K3$) 2870 EXEC INDTAB1(ETAB) 2880 EXEC INDTAB 2890 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 2900 TAH$="0+";TAL4$="0+" 2910 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 2920 REPEAT 2930 CLEAR 2940 CURSOR 15,E 2950 PRINT "Underkontovedligeholdelse" 2960 CURSOR 21,5 2970 PRINT "0:Færdig" 2980 CURSOR 21,7 2990 PRINT "1:Oprettelse" 3000 CURSOR 21,W 3010 PRINT "2:Ændring" 3020 CURSOR 21,11 3030 PRINT "3:Sletning" 3040 CURSOR 21,13 3050 PRINT "4:Udskrift" 3060 CURSOR 21,15 3070 PRINT "5:Underkontoliste" 3080 REPEAT 3090 CURSOR 23,17 3100 PRINT "Vælg type (0-5)" 3110 CURSOR 33,17 3120 INPUT A$ 3130 EXEC NRTEST(A$) 3140 UNTIL P>-E AND P<6 3150 TYPE=P 3160 IF TYPE=B THEN EXIT 3170 REPEAT 3180 EXEC VERSKRIFT 3190 TEST=B;FNR=E;UPIL3=E 3200 IF TYPE<5 THEN 3210 REPEAT 3220 REPEAT 3230 CURSOR V,23 3240 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35) 3250 CURSOR 22,23 3260 INPUT KTN$ 3270 EXEC NRTEST(KTN$) 3280 UNTIL P>W AND P<100 OR P=B 3290 FNR=P 3300 IF FNR=B THEN EXIT 3310 EXEC FINDPOST 3320 REPEAT 3330 CURSOR 44,23 3340 FT=B 3350 IF AUNK<MUNKANT AND ETOT<METOT THEN FT=E 3360 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND FT=E) THEN 3370 PRINT BLANK$(E:35) 3380 P=-E 3390 ELSE 3400 IF CEKS=E AND TYPE=E AND ETOT=>METOT AND AUNK=>MUNKANT THEN 3410 CURSOR V,23 3420 INPUT "Ikke plads til flere konti , tast RETURN ",A$ 3430 ELSE 3440 IF CEKS=B THEN 3450 INPUT "Konto eksisterer ,tast RETURN ",A$ 3460 ELSE 3470 INPUT "Konto eksisterer ikke , tast RETURN",A$ 3480 ENDIF 3490 ENDIF 3500 EXEC NRTEST(A$) 3510 ENDIF 3520 UNTIL P=-E 3530 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND FT=E) 3540 IF FNR=B THEN EXIT 3550 IF TYPE<>E THEN 3560 TEST=B 3570 EXEC HENTPOST 3580 IF TYPE=V AND CEKS1=B THEN EXEC DKRTEST 3590 EXEC FINDTAST(2,2,FNR) 3600 ELSE 3610 FNAVN$=BLANK$(E:25);FUKODE$="0" 3620 EXEC FINDTAST(2,0,FNR) 3630 ENDIF 3640 ENDIF 3650 IF FNR=B THEN EXIT 3660 IF TEST=B THEN 3670 CASE TYPE OF 3680 STOP 3690 WHEN E,G 3700 REPEAT 3710 REPEAT 3720 CURSOR V,23 3730 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-3, "; 3740 PRINT "0:for færdig) " 3750 CURSOR 32,23 3760 INPUT A$ 3770 EXEC NRTEST(A$) 3780 UNTIL P=B OR (P>E AND P<4) 3790 STYR1=P 3800 IF STYR1=B THEN EXIT 3810 EXEC FINDTAST(STYR1,1,FNR) 3820 UNTIL STYR1=B 3830 EXEC FINDPOST 3840 EXEC INDSÆT 3850 EXEC GEMUPOST 3860 WHEN V 3870 REPEAT 3880 CURSOR V,23 3890 PRINT "Er det rigtigt at denne konto skal slettes"; 3900 PRINT " (J/N)";BLANK$(E:23) 3910 CURSOR 48,23 3920 INPUT A$ 3930 EXEC NRTEST(A$) 3940 UNTIL P=-7 OR P=-8 3950 IF P=-7 THEN 3960 EXEC SLETPOST 3970 ENDIF 3980 WHEN 4 3990 WHEN 5 4000 CLEAR 4010 REPEAT 4020 CURSOR 8,13 4030 INPUT "Monter papir til udskrift af underkontoliste og tast 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 FOR I=E TO AUNK+ETOT 4180 PRINT TAB(67);DV$;" " 4190 PRINT TAB(10);CHR(14);"Underkontoliste";CHR(15);TAB(36);"Dato : ";DAT$; 4200 PRINT USING " Side :####":SIDE 4210 PRINT " " 4220 PRINT TAB(7);"Nr Betegnelse";TAB(44);"Udskriftskode" 4230 PRINT TAB(6);STREG$ 4240 SIDE=SIDE+E 4250 FOR UPIL3=I TO I+39 4260 IF UNR(UPIL3)<>1000000 THEN 4270 PRINT USING " ###### ":UNR(UPIL3); 4280 PRINT UNAVN$(UPIL3);TAB(49);UKODE$(UPIL3) 4290 ENDIF 4300 IF UPIL3=AUNK+ETOT THEN EXIT 4310 NEXT UPIL3 4320 IF UPIL3=AUNK+ETOT AND UPIL3<I+40 THEN EXIT 4330 NEXT I 4340 FOR J=UPIL3+E TO I+42 4350 PRINT " " 4360 NEXT J 4370 OUTPUT T 4380 FNR=B 4390 ENDCASE 4400 ELSE 4410 REPEAT 4420 CURSOR V,23 4430 FNR=ETAB(EPIL3,E) 4440 PRINT "Kontoen kan ikke slettes, saldo på entreprise ";FNR;" ,tast "; 4450 PRINT "RETURN "; 4460 INPUT A$ 4470 EXEC NRTEST(A$) 4480 UNTIL P=-E 4490 ENDIF 4500 UNTIL FNR=B 4510 UNTIL TYPE=B 4520 EXEC UDTAB 4530 CLOSE K2$ 4540 EXEC FEJL(W,30,K2$) 4550 CLOSE K3$ 4560 EXEC FEJL(W,31,K3$) 4570 CLOSE K5$ 4580 EXEC FEJL(W,32,K5$) 4590 OPEN K4$,W 4600 EXEC FEJL(W,32,K4$) 4610 PUT K4$,21:AENT,AUNK,ETOT,EMID,EPOST 4620 EXEC FEJL(W,34,K4$) 4630 CLOSE K4$ 4640 EXEC FEJL(W,35,K4$) 4650 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…006c 8dc3 0110 DIM FNAVN$(25),FUKODE$(E),DAT$(8),STREG$(71)
0x002f…006c LineComalBin {
0x002f…006c ptr = 0x8dc3 // 0x2f @0x0
0x002f…006c lno = 0x006e // 0x31 @0x2
0x002f…006c at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…006c at0005 = ╱46╱F╱ // 0x34 @0x5
0x002f…006c at0006 = ╱4e╱N╱ // 0x35 @0x6
0x002f…006c at0007 = ╱41╱A╱ // 0x36 @0x7
0x002f…006c at0008 = ╱56╱V╱ // 0x37 @0x8
0x002f…006c at0009 = ╱4e╱N╱ // 0x38 @0x9
0x002f…006c at000a = ╱ef╱$╱ // 0x39 @0xa
0x002f…006c at000b = ╱ed╱(╱ // 0x3a @0xb
0x002f…006c at000c = ╱32╱2╱ // 0x3b @0xc
0x002f…006c at000d = ╱35╱5╱ // 0x3c @0xd
0x002f…006c at000e = ╱fe0000c805╱ // 0x3d @0xe
0x002f…006c at0013 = ╱ee╱)╱ // 0x42 @0x13
0x002f…006c at0014 = ╱ec╱,╱ // 0x43 @0x14
0x002f…006c at0015 = ╱46╱F╱ // 0x44 @0x15
0x002f…006c at0016 = ╱55╱U╱ // 0x45 @0x16
0x002f…006c at0017 = ╱4b╱K╱ // 0x46 @0x17
0x002f…006c at0018 = ╱4f╱O╱ // 0x47 @0x18
0x002f…006c at0019 = ╱44╱D╱ // 0x48 @0x19
0x002f…006c at001a = ╱45╱E╱ // 0x49 @0x1a
0x002f…006c at001b = ╱ef╱$╱ // 0x4a @0x1b
0x002f…006c at001c = ╱ed╱(╱ // 0x4b @0x1c
0x002f…006c at001d = ╱45╱E╱ // 0x4c @0x1d
0x002f…006c at001e = ╱ee╱)╱ // 0x4d @0x1e
0x002f…006c at001f = ╱ec╱,╱ // 0x4e @0x1f
0x002f…006c at0020 = ╱44╱D╱ // 0x4f @0x20
0x002f…006c at0021 = ╱41╱A╱ // 0x50 @0x21
0x002f…006c at0022 = ╱54╱T╱ // 0x51 @0x22
0x002f…006c at0023 = ╱ef╱$╱ // 0x52 @0x23
0x002f…006c at0024 = ╱ed╱(╱ // 0x53 @0x24
0x002f…006c at0025 = ╱38╱8╱ // 0x54 @0x25
0x002f…006c at0026 = ╱fe00008004╱ // 0x55 @0x26
0x002f…006c at002b = ╱ee╱)╱ // 0x5a @0x2b
0x002f…006c at002c = ╱ec╱,╱ // 0x5b @0x2c
0x002f…006c at002d = ╱53╱S╱ // 0x5c @0x2d
0x002f…006c at002e = ╱54╱T╱ // 0x5d @0x2e
0x002f…006c at002f = ╱52╱R╱ // 0x5e @0x2f
0x002f…006c at0030 = ╱45╱E╱ // 0x5f @0x30
0x002f…006c at0031 = ╱47╱G╱ // 0x60 @0x31
0x002f…006c at0032 = ╱ef╱$╱ // 0x61 @0x32
0x002f…006c at0033 = ╱ed╱(╱ // 0x62 @0x33
0x002f…006c at0034 = ╱37╱7╱ // 0x63 @0x34
0x002f…006c at0035 = ╱31╱1╱ // 0x64 @0x35
0x002f…006c at0036 = ╱fe00008e07╱ // 0x65 @0x36
0x002f…006c at003b = ╱ee╱)╱ // 0x6a @0x3b
0x002f…006c at003c = EOL // 0x6b @0x3c
0x002f…006c }
0x006c…00bc 8e13 0120 DIM N$(6),BLANK$(77),A$(E),TAL4$(14),TAH$(12),DV$(10)
0x006c…00bc LineComalBin {
0x006c…00bc ptr = 0x8e13 // 0x6c @0x0
0x006c…00bc lno = 0x0078 // 0x6e @0x2
0x006c…00bc at0004 = ╱87╱ DIM ╱ // 0x70 @0x4
0x006c…00bc at0005 = ╱4e╱N╱ // 0x71 @0x5
0x006c…00bc at0006 = ╱ef╱$╱ // 0x72 @0x6
0x006c…00bc at0007 = ╱ed╱(╱ // 0x73 @0x7
0x006c…00bc at0008 = ╱36╱6╱ // 0x74 @0x8
0x006c…00bc at0009 = ╱fe0000c003╱ // 0x75 @0x9
0x006c…00bc at000e = ╱ee╱)╱ // 0x7a @0xe
0x006c…00bc at000f = ╱ec╱,╱ // 0x7b @0xf
0x006c…00bc at0010 = ╱42╱B╱ // 0x7c @0x10
0x006c…00bc at0011 = ╱4c╱L╱ // 0x7d @0x11
0x006c…00bc at0012 = ╱41╱A╱ // 0x7e @0x12
0x006c…00bc at0013 = ╱4e╱N╱ // 0x7f @0x13
0x006c…00bc at0014 = ╱4b╱K╱ // 0x80 @0x14
0x006c…00bc at0015 = ╱ef╱$╱ // 0x81 @0x15
0x006c…00bc at0016 = ╱ed╱(╱ // 0x82 @0x16
0x006c…00bc at0017 = ╱37╱7╱ // 0x83 @0x17
0x006c…00bc at0018 = ╱37╱7╱ // 0x84 @0x18
0x006c…00bc at0019 = ╱fe00009a07╱ // 0x85 @0x19
0x006c…00bc at001e = ╱ee╱)╱ // 0x8a @0x1e
0x006c…00bc at001f = ╱ec╱,╱ // 0x8b @0x1f
0x006c…00bc at0020 = ╱41╱A╱ // 0x8c @0x20
0x006c…00bc at0021 = ╱ef╱$╱ // 0x8d @0x21
0x006c…00bc at0022 = ╱ed╱(╱ // 0x8e @0x22
0x006c…00bc at0023 = ╱45╱E╱ // 0x8f @0x23
0x006c…00bc at0024 = ╱ee╱)╱ // 0x90 @0x24
0x006c…00bc at0025 = ╱ec╱,╱ // 0x91 @0x25
0x006c…00bc at0026 = ╱54╱T╱ // 0x92 @0x26
0x006c…00bc at0027 = ╱41╱A╱ // 0x93 @0x27
0x006c…00bc at0028 = ╱4c╱L╱ // 0x94 @0x28
0x006c…00bc at0029 = ╱34╱4╱ // 0x95 @0x29
0x006c…00bc at002a = ╱ef╱$╱ // 0x96 @0x2a
0x006c…00bc at002b = ╱ed╱(╱ // 0x97 @0x2b
0x006c…00bc at002c = ╱31╱1╱ // 0x98 @0x2c
0x006c…00bc at002d = ╱34╱4╱ // 0x99 @0x2d
0x006c…00bc at002e = ╱fe0000e004╱ // 0x9a @0x2e
0x006c…00bc at0033 = ╱ee╱)╱ // 0x9f @0x33
0x006c…00bc at0034 = ╱ec╱,╱ // 0xa0 @0x34
0x006c…00bc at0035 = ╱54╱T╱ // 0xa1 @0x35
0x006c…00bc at0036 = ╱41╱A╱ // 0xa2 @0x36
0x006c…00bc at0037 = ╱48╱H╱ // 0xa3 @0x37
0x006c…00bc at0038 = ╱ef╱$╱ // 0xa4 @0x38
0x006c…00bc at0039 = ╱ed╱(╱ // 0xa5 @0x39
0x006c…00bc at003a = ╱31╱1╱ // 0xa6 @0x3a
0x006c…00bc at003b = ╱32╱2╱ // 0xa7 @0x3b
0x006c…00bc at003c = ╱fe0000c004╱ // 0xa8 @0x3c
0x006c…00bc at0041 = ╱ee╱)╱ // 0xad @0x41
0x006c…00bc at0042 = ╱ec╱,╱ // 0xae @0x42
0x006c…00bc at0043 = ╱44╱D╱ // 0xaf @0x43
0x006c…00bc at0044 = ╱56╱V╱ // 0xb0 @0x44
0x006c…00bc at0045 = ╱ef╱$╱ // 0xb1 @0x45
0x006c…00bc at0046 = ╱ed╱(╱ // 0xb2 @0x46
0x006c…00bc at0047 = ╱31╱1╱ // 0xb3 @0x47
0x006c…00bc at0048 = ╱30╱0╱ // 0xb4 @0x48
0x006c…00bc at0049 = ╱fe0000a004╱ // 0xb5 @0x49
0x006c…00bc at004e = ╱ee╱)╱ // 0xba @0x4e
0x006c…00bc at004f = EOL // 0xbb @0x4f
0x006c…00bc }
0x00bc…0117 8e6e 0130 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14)
0x00bc…0117 LineComalBin {
0x00bc…0117 ptr = 0x8e6e // 0xbc @0x0
0x00bc…0117 lno = 0x0082 // 0xbe @0x2
0x00bc…0117 at0004 = ╱87╱ DIM ╱ // 0xc0 @0x4
0x00bc…0117 at0005 = ╱4b╱K╱ // 0xc1 @0x5
0x00bc…0117 at0006 = ╱54╱T╱ // 0xc2 @0x6
0x00bc…0117 at0007 = ╱4e╱N╱ // 0xc3 @0x7
0x00bc…0117 at0008 = ╱ef╱$╱ // 0xc4 @0x8
0x00bc…0117 at0009 = ╱ed╱(╱ // 0xc5 @0x9
0x00bc…0117 at000a = ╱37╱7╱ // 0xc6 @0xa
0x00bc…0117 at000b = ╱fe0000e003╱ // 0xc7 @0xb
0x00bc…0117 at0010 = ╱ee╱)╱ // 0xcc @0x10
0x00bc…0117 at0011 = ╱ec╱,╱ // 0xcd @0x11
0x00bc…0117 at0012 = ╱42╱B╱ // 0xce @0x12
0x00bc…0117 at0013 = ╱4c╱L╱ // 0xcf @0x13
0x00bc…0117 at0014 = ╱42╱B╱ // 0xd0 @0x14
0x00bc…0117 at0015 = ╱32╱2╱ // 0xd1 @0x15
0x00bc…0117 at0016 = ╱ef╱$╱ // 0xd2 @0x16
0x00bc…0117 at0017 = ╱ed╱(╱ // 0xd3 @0x17
0x00bc…0117 at0018 = ╱31╱1╱ // 0xd4 @0x18
0x00bc…0117 at0019 = ╱32╱2╱ // 0xd5 @0x19
0x00bc…0117 at001a = ╱fe0000c004╱ // 0xd6 @0x1a
0x00bc…0117 at001f = ╱ee╱)╱ // 0xdb @0x1f
0x00bc…0117 at0020 = ╱ec╱,╱ // 0xdc @0x20
0x00bc…0117 at0021 = ╱55╱U╱ // 0xdd @0x21
0x00bc…0117 at0022 = ╱42╱B╱ // 0xde @0x22
0x00bc…0117 at0023 = ╱4c╱L╱ // 0xdf @0x23
0x00bc…0117 at0024 = ╱42╱B╱ // 0xe0 @0x24
0x00bc…0117 at0025 = ╱32╱2╱ // 0xe1 @0x25
0x00bc…0117 at0026 = ╱ef╱$╱ // 0xe2 @0x26
0x00bc…0117 at0027 = ╱ed╱(╱ // 0xe3 @0x27
0x00bc…0117 at0028 = ╱31╱1╱ // 0xe4 @0x28
0x00bc…0117 at0029 = ╱34╱4╱ // 0xe5 @0x29
0x00bc…0117 at002a = ╱fe0000e004╱ // 0xe6 @0x2a
0x00bc…0117 at002f = ╱ee╱)╱ // 0xeb @0x2f
0x00bc…0117 at0030 = ╱ec╱,╱ // 0xec @0x30
0x00bc…0117 at0031 = ╱55╱U╱ // 0xed @0x31
0x00bc…0117 at0032 = ╱44╱D╱ // 0xee @0x32
0x00bc…0117 at0033 = ╱31╱1╱ // 0xef @0x33
0x00bc…0117 at0034 = ╱ef╱$╱ // 0xf0 @0x34
0x00bc…0117 at0035 = ╱ed╱(╱ // 0xf1 @0x35
0x00bc…0117 at0036 = ╱31╱1╱ // 0xf2 @0x36
0x00bc…0117 at0037 = ╱34╱4╱ // 0xf3 @0x37
0x00bc…0117 at0038 = ╱fe0000e004╱ // 0xf4 @0x38
0x00bc…0117 at003d = ╱ee╱)╱ // 0xf9 @0x3d
0x00bc…0117 at003e = ╱ec╱,╱ // 0xfa @0x3e
0x00bc…0117 at003f = ╱55╱U╱ // 0xfb @0x3f
0x00bc…0117 at0040 = ╱44╱D╱ // 0xfc @0x40
0x00bc…0117 at0041 = ╱32╱2╱ // 0xfd @0x41
0x00bc…0117 at0042 = ╱ef╱$╱ // 0xfe @0x42
0x00bc…0117 at0043 = ╱ed╱(╱ // 0xff @0x43
0x00bc…0117 at0044 = ╱31╱1╱ // 0x100 @0x44
0x00bc…0117 at0045 = ╱34╱4╱ // 0x101 @0x45
0x00bc…0117 at0046 = ╱fe0000e004╱ // 0x102 @0x46
0x00bc…0117 at004b = ╱ee╱)╱ // 0x107 @0x4b
0x00bc…0117 at004c = ╱ec╱,╱ // 0x108 @0x4c
0x00bc…0117 at004d = ╱55╱U╱ // 0x109 @0x4d
0x00bc…0117 at004e = ╱44╱D╱ // 0x10a @0x4e
0x00bc…0117 at004f = ╱33╱3╱ // 0x10b @0x4f
0x00bc…0117 at0050 = ╱ef╱$╱ // 0x10c @0x50
0x00bc…0117 at0051 = ╱ed╱(╱ // 0x10d @0x51
0x00bc…0117 at0052 = ╱31╱1╱ // 0x10e @0x52
0x00bc…0117 at0053 = ╱34╱4╱ // 0x10f @0x53
0x00bc…0117 at0054 = ╱fe0000e004╱ // 0x110 @0x54
0x00bc…0117 at0059 = ╱ee╱)╱ // 0x115 @0x59
0x00bc…0117 at005a = EOL // 0x116 @0x5a
0x00bc…0117 }
0x0117…0177 8ece 0140 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17)
0x0117…0177 LineComalBin {
0x0117…0177 ptr = 0x8ece // 0x117 @0x0
0x0117…0177 lno = 0x008c // 0x119 @0x2
0x0117…0177 at0004 = ╱87╱ DIM ╱ // 0x11b @0x4
0x0117…0177 at0005 = ╱55╱U╱ // 0x11c @0x5
0x0117…0177 at0006 = ╱44╱D╱ // 0x11d @0x6
0x0117…0177 at0007 = ╱34╱4╱ // 0x11e @0x7
0x0117…0177 at0008 = ╱ef╱$╱ // 0x11f @0x8
0x0117…0177 at0009 = ╱ed╱(╱ // 0x120 @0x9
0x0117…0177 at000a = ╱31╱1╱ // 0x121 @0xa
0x0117…0177 at000b = ╱34╱4╱ // 0x122 @0xb
0x0117…0177 at000c = ╱fe0000e004╱ // 0x123 @0xc
0x0117…0177 at0011 = ╱ee╱)╱ // 0x128 @0x11
0x0117…0177 at0012 = ╱ec╱,╱ // 0x129 @0x12
0x0117…0177 at0013 = ╱4b╱K╱ // 0x12a @0x13
0x0117…0177 at0014 = ╱34╱4╱ // 0x12b @0x14
0x0117…0177 at0015 = ╱ef╱$╱ // 0x12c @0x15
0x0117…0177 at0016 = ╱ed╱(╱ // 0x12d @0x16
0x0117…0177 at0017 = ╱31╱1╱ // 0x12e @0x17
0x0117…0177 at0018 = ╱37╱7╱ // 0x12f @0x18
0x0117…0177 at0019 = ╱fe00008805╱ // 0x130 @0x19
0x0117…0177 at001e = ╱ee╱)╱ // 0x135 @0x1e
0x0117…0177 at001f = ╱ec╱,╱ // 0x136 @0x1f
0x0117…0177 at0020 = ╱4b╱K╱ // 0x137 @0x20
0x0117…0177 at0021 = ╱35╱5╱ // 0x138 @0x21
0x0117…0177 at0022 = ╱ef╱$╱ // 0x139 @0x22
0x0117…0177 at0023 = ╱ed╱(╱ // 0x13a @0x23
0x0117…0177 at0024 = ╱31╱1╱ // 0x13b @0x24
0x0117…0177 at0025 = ╱37╱7╱ // 0x13c @0x25
0x0117…0177 at0026 = ╱fe00008805╱ // 0x13d @0x26
0x0117…0177 at002b = ╱ee╱)╱ // 0x142 @0x2b
0x0117…0177 at002c = ╱ec╱,╱ // 0x143 @0x2c
0x0117…0177 at002d = ╱54╱T╱ // 0x144 @0x2d
0x0117…0177 at002e = ╱31╱1╱ // 0x145 @0x2e
0x0117…0177 at002f = ╱ed╱(╱ // 0x146 @0x2f
0x0117…0177 at0030 = ╱57╱W╱ // 0x147 @0x30
0x0117…0177 at0031 = ╱ee╱)╱ // 0x148 @0x31
0x0117…0177 at0032 = ╱ec╱,╱ // 0x149 @0x32
0x0117…0177 at0033 = ╱54╱T╱ // 0x14a @0x33
0x0117…0177 at0034 = ╱32╱2╱ // 0x14b @0x34
0x0117…0177 at0035 = ╱ed╱(╱ // 0x14c @0x35
0x0117…0177 at0036 = ╱57╱W╱ // 0x14d @0x36
0x0117…0177 at0037 = ╱ee╱)╱ // 0x14e @0x37
0x0117…0177 at0038 = ╱ec╱,╱ // 0x14f @0x38
0x0117…0177 at0039 = ╱4b╱K╱ // 0x150 @0x39
0x0117…0177 at003a = ╱33╱3╱ // 0x151 @0x3a
0x0117…0177 at003b = ╱ef╱$╱ // 0x152 @0x3b
0x0117…0177 at003c = ╱ed╱(╱ // 0x153 @0x3c
0x0117…0177 at003d = ╱31╱1╱ // 0x154 @0x3d
0x0117…0177 at003e = ╱37╱7╱ // 0x155 @0x3e
0x0117…0177 at003f = ╱fe00008805╱ // 0x156 @0x3f
0x0117…0177 at0044 = ╱ee╱)╱ // 0x15b @0x44
0x0117…0177 at0045 = ╱ec╱,╱ // 0x15c @0x45
0x0117…0177 at0046 = ╱4b╱K╱ // 0x15d @0x46
0x0117…0177 at0047 = ╱31╱1╱ // 0x15e @0x47
0x0117…0177 at0048 = ╱ef╱$╱ // 0x15f @0x48
0x0117…0177 at0049 = ╱ed╱(╱ // 0x160 @0x49
0x0117…0177 at004a = ╱31╱1╱ // 0x161 @0x4a
0x0117…0177 at004b = ╱37╱7╱ // 0x162 @0x4b
0x0117…0177 at004c = ╱fe00008805╱ // 0x163 @0x4c
0x0117…0177 at0051 = ╱ee╱)╱ // 0x168 @0x51
0x0117…0177 at0052 = ╱ec╱,╱ // 0x169 @0x52
0x0117…0177 at0053 = ╱4b╱K╱ // 0x16a @0x53
0x0117…0177 at0054 = ╱32╱2╱ // 0x16b @0x54
0x0117…0177 at0055 = ╱ef╱$╱ // 0x16c @0x55
0x0117…0177 at0056 = ╱ed╱(╱ // 0x16d @0x56
0x0117…0177 at0057 = ╱31╱1╱ // 0x16e @0x57
0x0117…0177 at0058 = ╱37╱7╱ // 0x16f @0x58
0x0117…0177 at0059 = ╱fe00008805╱ // 0x170 @0x59
0x0117…0177 at005e = ╱ee╱)╱ // 0x175 @0x5e
0x0117…0177 at005f = EOL // 0x176 @0x5f
0x0117…0177 }
0x0177…018e 8ee5 0150 PROC CALC(AT,B1,B2,ES)
0x0177…018e LineComalBin {
0x0177…018e ptr = 0x8ee5 // 0x177 @0x0
0x0177…018e lno = 0x0096 // 0x179 @0x2
0x0177…018e at0004 = ╱9e╱ PROC ╱ // 0x17b @0x4
0x0177…018e at0005 = ╱43╱C╱ // 0x17c @0x5
0x0177…018e at0006 = ╱41╱A╱ // 0x17d @0x6
0x0177…018e at0007 = ╱4c╱L╱ // 0x17e @0x7
0x0177…018e at0008 = ╱43╱C╱ // 0x17f @0x8
0x0177…018e at0009 = ╱ed╱(╱ // 0x180 @0x9
0x0177…018e at000a = ╱41╱A╱ // 0x181 @0xa
0x0177…018e at000b = ╱54╱T╱ // 0x182 @0xb
0x0177…018e at000c = ╱ec╱,╱ // 0x183 @0xc
0x0177…018e at000d = ╱42╱B╱ // 0x184 @0xd
0x0177…018e at000e = ╱31╱1╱ // 0x185 @0xe
0x0177…018e at000f = ╱ec╱,╱ // 0x186 @0xf
0x0177…018e at0010 = ╱42╱B╱ // 0x187 @0x10
0x0177…018e at0011 = ╱32╱2╱ // 0x188 @0x11
0x0177…018e at0012 = ╱ec╱,╱ // 0x189 @0x12
0x0177…018e at0013 = ╱45╱E╱ // 0x18a @0x13
0x0177…018e at0014 = ╱53╱S╱ // 0x18b @0x14
0x0177…018e at0015 = ╱ee╱)╱ // 0x18c @0x15
0x0177…018e at0016 = EOL // 0x18d @0x16
0x0177…018e }
0x018e…01c0 8f17 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AT
0x018e…01c0 LineComalBin {
0x018e…01c0 ptr = 0x8f17 // 0x18e @0x0
0x018e…01c0 lno = 0x00a0 // 0x190 @0x2
0x018e…01c0 at0004 = ╱52╱R╱ // 0x192 @0x4
0x018e…01c0 at0005 = ╱45╱E╱ // 0x193 @0x5
0x018e…01c0 at0006 = ╱53╱S╱ // 0x194 @0x6
0x018e…01c0 at0007 = ╱ef╱$╱ // 0x195 @0x7
0x018e…01c0 at0008 = ╱dc╱=╱ // 0x196 @0x8
0x018e…01c0 at0009 = ╱45╱E╱ // 0x197 @0x9
0x018e…01c0 at000a = ╱53╱S╱ // 0x198 @0xa
0x018e…01c0 at000b = ╱ef╱$╱ // 0x199 @0xb
0x018e…01c0 at000c = ╱eb╱;╱ // 0x19a @0xc
0x018e…01c0 at000d = ╱4f╱O╱ // 0x19b @0xd
0x018e…01c0 at000e = ╱50╱P╱ // 0x19c @0xe
0x018e…01c0 at000f = ╱31╱1╱ // 0x19d @0xf
0x018e…01c0 at0010 = ╱ef╱$╱ // 0x19e @0x10
0x018e…01c0 at0011 = ╱dc╱=╱ // 0x19f @0x11
0x018e…01c0 at0012 = ╱42╱B╱ // 0x1a0 @0x12
0x018e…01c0 at0013 = ╱31╱1╱ // 0x1a1 @0x13
0x018e…01c0 at0014 = ╱ef╱$╱ // 0x1a2 @0x14
0x018e…01c0 at0015 = ╱eb╱;╱ // 0x1a3 @0x15
0x018e…01c0 at0016 = ╱4f╱O╱ // 0x1a4 @0x16
0x018e…01c0 at0017 = ╱50╱P╱ // 0x1a5 @0x17
0x018e…01c0 at0018 = ╱32╱2╱ // 0x1a6 @0x18
0x018e…01c0 at0019 = ╱ef╱$╱ // 0x1a7 @0x19
0x018e…01c0 at001a = ╱dc╱=╱ // 0x1a8 @0x1a
0x018e…01c0 at001b = ╱42╱B╱ // 0x1a9 @0x1b
0x018e…01c0 at001c = ╱32╱2╱ // 0x1aa @0x1c
0x018e…01c0 at001d = ╱ef╱$╱ // 0x1ab @0x1d
0x018e…01c0 at001e = ╱eb╱;╱ // 0x1ac @0x1e
0x018e…01c0 at001f = ╱53╱S╱ // 0x1ad @0x1f
0x018e…01c0 at0020 = ╱49╱I╱ // 0x1ae @0x20
0x018e…01c0 at0021 = ╱dc╱=╱ // 0x1af @0x21
0x018e…01c0 at0022 = ╱42╱B╱ // 0x1b0 @0x22
0x018e…01c0 at0023 = ╱eb╱;╱ // 0x1b1 @0x23
0x018e…01c0 at0024 = ╱46╱F╱ // 0x1b2 @0x24
0x018e…01c0 at0025 = ╱4c╱L╱ // 0x1b3 @0x25
0x018e…01c0 at0026 = ╱41╱A╱ // 0x1b4 @0x26
0x018e…01c0 at0027 = ╱47╱G╱ // 0x1b5 @0x27
0x018e…01c0 at0028 = ╱dc╱=╱ // 0x1b6 @0x28
0x018e…01c0 at0029 = ╱42╱B╱ // 0x1b7 @0x29
0x018e…01c0 at002a = ╱eb╱;╱ // 0x1b8 @0x2a
0x018e…01c0 at002b = ╱41╱A╱ // 0x1b9 @0x2b
0x018e…01c0 at002c = ╱52╱R╱ // 0x1ba @0x2c
0x018e…01c0 at002d = ╱54╱T╱ // 0x1bb @0x2d
0x018e…01c0 at002e = ╱dc╱=╱ // 0x1bc @0x2e
0x018e…01c0 at002f = ╱41╱A╱ // 0x1bd @0x2f
0x018e…01c0 at0030 = ╱54╱T╱ // 0x1be @0x30
0x018e…01c0 at0031 = EOL // 0x1bf @0x31
0x018e…01c0 }
0x01c0…01d6 8f2d 0170 CALL "P641210:REGN"
0x01c0…01d6 LineComalBin {
0x01c0…01d6 ptr = 0x8f2d // 0x1c0 @0x0
0x01c0…01d6 lno = 0x00aa // 0x1c2 @0x2
0x01c0…01d6 at0004 = ╱ad758f╱ CALL ╱ // 0x1c4 @0x4
0x01c0…01d6 at0007 = ╱22╱"╱ // 0x1c7 @0x7
0x01c0…01d6 at0008 = ╱50╱P╱ // 0x1c8 @0x8
0x01c0…01d6 at0009 = ╱36╱6╱ // 0x1c9 @0x9
0x01c0…01d6 at000a = ╱34╱4╱ // 0x1ca @0xa
0x01c0…01d6 at000b = ╱31╱1╱ // 0x1cb @0xb
0x01c0…01d6 at000c = ╱32╱2╱ // 0x1cc @0xc
0x01c0…01d6 at000d = ╱31╱1╱ // 0x1cd @0xd
0x01c0…01d6 at000e = ╱30╱0╱ // 0x1ce @0xe
0x01c0…01d6 at000f = ╱3a╱:╱ // 0x1cf @0xf
0x01c0…01d6 at0010 = ╱52╱R╱ // 0x1d0 @0x10
0x01c0…01d6 at0011 = ╱45╱E╱ // 0x1d1 @0x11
0x01c0…01d6 at0012 = ╱47╱G╱ // 0x1d2 @0x12
0x01c0…01d6 at0013 = ╱4e╱N╱ // 0x1d3 @0x13
0x01c0…01d6 at0014 = ╱22╱"╱ // 0x1d4 @0x14
0x01c0…01d6 at0015 = EOL // 0x1d5 @0x15
0x01c0…01d6 }
0x01d6…01e3 8f3a 0180 ES$=RES$
0x01d6…01e3 LineComalBin {
0x01d6…01e3 ptr = 0x8f3a // 0x1d6 @0x0
0x01d6…01e3 lno = 0x00b4 // 0x1d8 @0x2
0x01d6…01e3 at0004 = ╱45╱E╱ // 0x1da @0x4
0x01d6…01e3 at0005 = ╱53╱S╱ // 0x1db @0x5
0x01d6…01e3 at0006 = ╱ef╱$╱ // 0x1dc @0x6
0x01d6…01e3 at0007 = ╱dc╱=╱ // 0x1dd @0x7
0x01d6…01e3 at0008 = ╱52╱R╱ // 0x1de @0x8
0x01d6…01e3 at0009 = ╱45╱E╱ // 0x1df @0x9
0x01d6…01e3 at000a = ╱53╱S╱ // 0x1e0 @0xa
0x01d6…01e3 at000b = ╱ef╱$╱ // 0x1e1 @0xb
0x01d6…01e3 at000c = EOL // 0x1e2 @0xc
0x01d6…01e3 }
0x01e3…01ef 8f46 0190 IF FLAG THEN STOP
0x01e3…01ef LineComalBin {
0x01e3…01ef ptr = 0x8f46 // 0x1e3 @0x0
0x01e3…01ef lno = 0x00be // 0x1e5 @0x2
0x01e3…01ef at0004 = ╱82╱ IF ╱ // 0x1e7 @0x4
0x01e3…01ef at0005 = ╱46╱F╱ // 0x1e8 @0x5
0x01e3…01ef at0006 = ╱4c╱L╱ // 0x1e9 @0x6
0x01e3…01ef at0007 = ╱41╱A╱ // 0x1ea @0x7
0x01e3…01ef at0008 = ╱47╱G╱ // 0x1eb @0x8
0x01e3…01ef at0009 = ╱b6╱ THEN ╱ // 0x1ec @0x9
0x01e3…01ef at000a = ╱8d╱ STOP ╱ // 0x1ed @0xa
0x01e3…01ef at000b = EOL // 0x1ee @0xb
0x01e3…01ef }
0x01ef…01f5 8f4c 0200 ENDPROC
0x01ef…01f5 LineComalBin {
0x01ef…01f5 ptr = 0x8f4c // 0x1ef @0x0
0x01ef…01f5 lno = 0x00c8 // 0x1f1 @0x2
0x01ef…01f5 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f3 @0x4
0x01ef…01f5 at0005 = EOL // 0x1f4 @0x5
0x01ef…01f5 }
0x01f5…020c 8f63 0210 PROC FEJL(NR1,NR2,NR3)
0x01f5…020c LineComalBin {
0x01f5…020c ptr = 0x8f63 // 0x1f5 @0x0
0x01f5…020c lno = 0x00d2 // 0x1f7 @0x2
0x01f5…020c at0004 = ╱9e╱ PROC ╱ // 0x1f9 @0x4
0x01f5…020c at0005 = ╱46╱F╱ // 0x1fa @0x5
0x01f5…020c at0006 = ╱45╱E╱ // 0x1fb @0x6
0x01f5…020c at0007 = ╱4a╱J╱ // 0x1fc @0x7
0x01f5…020c at0008 = ╱4c╱L╱ // 0x1fd @0x8
0x01f5…020c at0009 = ╱ed╱(╱ // 0x1fe @0x9
0x01f5…020c at000a = ╱4e╱N╱ // 0x1ff @0xa
0x01f5…020c at000b = ╱52╱R╱ // 0x200 @0xb
0x01f5…020c at000c = ╱31╱1╱ // 0x201 @0xc
0x01f5…020c at000d = ╱ec╱,╱ // 0x202 @0xd
0x01f5…020c at000e = ╱4e╱N╱ // 0x203 @0xe
0x01f5…020c at000f = ╱52╱R╱ // 0x204 @0xf
0x01f5…020c at0010 = ╱32╱2╱ // 0x205 @0x10
0x01f5…020c at0011 = ╱ec╱,╱ // 0x206 @0x11
0x01f5…020c at0012 = ╱4e╱N╱ // 0x207 @0x12
0x01f5…020c at0013 = ╱52╱R╱ // 0x208 @0x13
0x01f5…020c at0014 = ╱33╱3╱ // 0x209 @0x14
0x01f5…020c at0015 = ╱ee╱)╱ // 0x20a @0x15
0x01f5…020c at0016 = EOL // 0x20b @0x16
0x01f5…020c }
0x020c…021c 8f73 0220 IF STATUS(NR3$)<>B THEN
0x020c…021c LineComalBin {
0x020c…021c ptr = 0x8f73 // 0x20c @0x0
0x020c…021c lno = 0x00dc // 0x20e @0x2
0x020c…021c at0004 = ╱9c╱ IF ╱ // 0x210 @0x4
0x020c…021c at0005 = ╱ce╱STATUS╱ // 0x211 @0x5
0x020c…021c at0006 = ╱ed╱(╱ // 0x212 @0x6
0x020c…021c at0007 = ╱4e╱N╱ // 0x213 @0x7
0x020c…021c at0008 = ╱52╱R╱ // 0x214 @0x8
0x020c…021c at0009 = ╱33╱3╱ // 0x215 @0x9
0x020c…021c at000a = ╱ef╱$╱ // 0x216 @0xa
0x020c…021c at000b = ╱ee╱)╱ // 0x217 @0xb
0x020c…021c at000c = ╱e1╱<>╱ // 0x218 @0xc
0x020c…021c at000d = ╱42╱B╱ // 0x219 @0xd
0x020c…021c at000e = ╱b6╱ THEN ╱ // 0x21a @0xe
0x020c…021c at000f = EOL // 0x21b @0xf
0x020c…021c }
0x021c…0236 8f8d 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x021c…0236 LineComalBin {
0x021c…0236 ptr = 0x8f8d // 0x21c @0x0
0x021c…0236 lno = 0x00e6 // 0x21e @0x2
0x021c…0236 at0004 = ╱92╱ PRINT ╱ // 0x220 @0x4
0x021c…0236 at0005 = ╱ce╱STATUS╱ // 0x221 @0x5
0x021c…0236 at0006 = ╱ed╱(╱ // 0x222 @0x6
0x021c…0236 at0007 = ╱4e╱N╱ // 0x223 @0x7
0x021c…0236 at0008 = ╱52╱R╱ // 0x224 @0x8
0x021c…0236 at0009 = ╱33╱3╱ // 0x225 @0x9
0x021c…0236 at000a = ╱ef╱$╱ // 0x226 @0xa
0x021c…0236 at000b = ╱ee╱)╱ // 0x227 @0xb
0x021c…0236 at000c = ╱ec╱,╱ // 0x228 @0xc
0x021c…0236 at000d = ╱4e╱N╱ // 0x229 @0xd
0x021c…0236 at000e = ╱52╱R╱ // 0x22a @0xe
0x021c…0236 at000f = ╱31╱1╱ // 0x22b @0xf
0x021c…0236 at0010 = ╱ec╱,╱ // 0x22c @0x10
0x021c…0236 at0011 = ╱4e╱N╱ // 0x22d @0x11
0x021c…0236 at0012 = ╱52╱R╱ // 0x22e @0x12
0x021c…0236 at0013 = ╱32╱2╱ // 0x22f @0x13
0x021c…0236 at0014 = ╱ec╱,╱ // 0x230 @0x14
0x021c…0236 at0015 = ╱4e╱N╱ // 0x231 @0x15
0x021c…0236 at0016 = ╱52╱R╱ // 0x232 @0x16
0x021c…0236 at0017 = ╱33╱3╱ // 0x233 @0x17
0x021c…0236 at0018 = ╱ef╱$╱ // 0x234 @0x18
0x021c…0236 at0019 = EOL // 0x235 @0x19
0x021c…0236 }
0x0236…023c 8f93 0240 STOP
0x0236…023c LineComalBin {
0x0236…023c ptr = 0x8f93 // 0x236 @0x0
0x0236…023c lno = 0x00f0 // 0x238 @0x2
0x0236…023c at0004 = ╱8d╱ STOP ╱ // 0x23a @0x4
0x0236…023c at0005 = EOL // 0x23b @0x5
0x0236…023c }
0x023c…0242 8f99 0250 ENDIF
0x023c…0242 LineComalBin {
0x023c…0242 ptr = 0x8f99 // 0x23c @0x0
0x023c…0242 lno = 0x00fa // 0x23e @0x2
0x023c…0242 at0004 = ╱9b╱ ENDIF ╱ // 0x240 @0x4
0x023c…0242 at0005 = EOL // 0x241 @0x5
0x023c…0242 }
0x0242…0248 8f9f 0260 ENDPROC
0x0242…0248 LineComalBin {
0x0242…0248 ptr = 0x8f9f // 0x242 @0x0
0x0242…0248 lno = 0x0104 // 0x244 @0x2
0x0242…0248 at0004 = ╱9f╱ ENDPROC ╱ // 0x246 @0x4
0x0242…0248 at0005 = EOL // 0x247 @0x5
0x0242…0248 }
0x0248…0255 8fac 0270 PROC DKRTEST
0x0248…0255 LineComalBin {
0x0248…0255 ptr = 0x8fac // 0x248 @0x0
0x0248…0255 lno = 0x010e // 0x24a @0x2
0x0248…0255 at0004 = ╱9e╱ PROC ╱ // 0x24c @0x4
0x0248…0255 at0005 = ╱44╱D╱ // 0x24d @0x5
0x0248…0255 at0006 = ╱4b╱K╱ // 0x24e @0x6
0x0248…0255 at0007 = ╱52╱R╱ // 0x24f @0x7
0x0248…0255 at0008 = ╱54╱T╱ // 0x250 @0x8
0x0248…0255 at0009 = ╱45╱E╱ // 0x251 @0x9
0x0248…0255 at000a = ╱53╱S╱ // 0x252 @0xa
0x0248…0255 at000b = ╱54╱T╱ // 0x253 @0xb
0x0248…0255 at000c = EOL // 0x254 @0xc
0x0248…0255 }
0x0255…0267 8fbe 0280 FOR EPIL3=E TO AENT
0x0255…0267 LineComalBin {
0x0255…0267 ptr = 0x8fbe // 0x255 @0x0
0x0255…0267 lno = 0x0118 // 0x257 @0x2
0x0255…0267 at0004 = ╱83╱ FOR ╱ // 0x259 @0x4
0x0255…0267 at0005 = ╱45╱E╱ // 0x25a @0x5
0x0255…0267 at0006 = ╱50╱P╱ // 0x25b @0x6
0x0255…0267 at0007 = ╱49╱I╱ // 0x25c @0x7
0x0255…0267 at0008 = ╱4c╱L╱ // 0x25d @0x8
0x0255…0267 at0009 = ╱33╱3╱ // 0x25e @0x9
0x0255…0267 at000a = ╱dc╱=╱ // 0x25f @0xa
0x0255…0267 at000b = ╱45╱E╱ // 0x260 @0xb
0x0255…0267 at000c = ╱b7╱ TO ╱ // 0x261 @0xc
0x0255…0267 at000d = ╱41╱A╱ // 0x262 @0xd
0x0255…0267 at000e = ╱45╱E╱ // 0x263 @0xe
0x0255…0267 at000f = ╱4e╱N╱ // 0x264 @0xf
0x0255…0267 at0010 = ╱54╱T╱ // 0x265 @0x10
0x0255…0267 at0011 = EOL // 0x266 @0x11
0x0255…0267 }
0x0267…0288 8fdf 0290 IF ETAB(EPIL3,E)<1000000 THEN
0x0267…0288 LineComalBin {
0x0267…0288 ptr = 0x8fdf // 0x267 @0x0
0x0267…0288 lno = 0x0122 // 0x269 @0x2
0x0267…0288 at0004 = ╱9c╱ IF ╱ // 0x26b @0x4
0x0267…0288 at0005 = ╱45╱E╱ // 0x26c @0x5
0x0267…0288 at0006 = ╱54╱T╱ // 0x26d @0x6
0x0267…0288 at0007 = ╱41╱A╱ // 0x26e @0x7
0x0267…0288 at0008 = ╱42╱B╱ // 0x26f @0x8
0x0267…0288 at0009 = ╱ed╱(╱ // 0x270 @0x9
0x0267…0288 at000a = ╱45╱E╱ // 0x271 @0xa
0x0267…0288 at000b = ╱50╱P╱ // 0x272 @0xb
0x0267…0288 at000c = ╱49╱I╱ // 0x273 @0xc
0x0267…0288 at000d = ╱4c╱L╱ // 0x274 @0xd
0x0267…0288 at000e = ╱33╱3╱ // 0x275 @0xe
0x0267…0288 at000f = ╱ec╱,╱ // 0x276 @0xf
0x0267…0288 at0010 = ╱45╱E╱ // 0x277 @0x10
0x0267…0288 at0011 = ╱ee╱)╱ // 0x278 @0x11
0x0267…0288 at0012 = ╱dd╱<╱ // 0x279 @0x12
0x0267…0288 at0013 = ╱31╱1╱ // 0x27a @0x13
0x0267…0288 at0014 = ╱30╱0╱ // 0x27b @0x14
0x0267…0288 at0015 = ╱30╱0╱ // 0x27c @0x15
0x0267…0288 at0016 = ╱30╱0╱ // 0x27d @0x16
0x0267…0288 at0017 = ╱30╱0╱ // 0x27e @0x17
0x0267…0288 at0018 = ╱30╱0╱ // 0x27f @0x18
0x0267…0288 at0019 = ╱30╱0╱ // 0x280 @0x19
0x0267…0288 at001a = ╱fe0024f414╱ // 0x281 @0x1a
0x0267…0288 at001f = ╱b6╱ THEN ╱ // 0x286 @0x1f
0x0267…0288 at0020 = EOL // 0x287 @0x20
0x0267…0288 }
0x0288…0297 8fee 0300 EXEC HENTEPOST
0x0288…0297 LineComalBin {
0x0288…0297 ptr = 0x8fee // 0x288 @0x0
0x0288…0297 lno = 0x012c // 0x28a @0x2
0x0288…0297 at0004 = ╱9d╱ EXEC ╱ // 0x28c @0x4
0x0288…0297 at0005 = ╱48╱H╱ // 0x28d @0x5
0x0288…0297 at0006 = ╱45╱E╱ // 0x28e @0x6
0x0288…0297 at0007 = ╱4e╱N╱ // 0x28f @0x7
0x0288…0297 at0008 = ╱54╱T╱ // 0x290 @0x8
0x0288…0297 at0009 = ╱45╱E╱ // 0x291 @0x9
0x0288…0297 at000a = ╱50╱P╱ // 0x292 @0xa
0x0288…0297 at000b = ╱4f╱O╱ // 0x293 @0xb
0x0288…0297 at000c = ╱53╱S╱ // 0x294 @0xc
0x0288…0297 at000d = ╱54╱T╱ // 0x295 @0xd
0x0288…0297 at000e = EOL // 0x296 @0xe
0x0288…0297 }
0x0297…02c0 9017 0320 EXEC CALC(4,MBEV$(UPIL2),TAH$,TAH$)
0x0297…02c0 LineComalBin {
0x0297…02c0 ptr = 0x9017 // 0x297 @0x0
0x0297…02c0 lno = 0x0140 // 0x299 @0x2
0x0297…02c0 at0004 = ╱9d╱ EXEC ╱ // 0x29b @0x4
0x0297…02c0 at0005 = ╱43╱C╱ // 0x29c @0x5
0x0297…02c0 at0006 = ╱41╱A╱ // 0x29d @0x6
0x0297…02c0 at0007 = ╱4c╱L╱ // 0x29e @0x7
0x0297…02c0 at0008 = ╱43╱C╱ // 0x29f @0x8
0x0297…02c0 at0009 = ╱ed╱(╱ // 0x2a0 @0x9
0x0297…02c0 at000a = ╱34╱4╱ // 0x2a1 @0xa
0x0297…02c0 at000b = ╱fe00008003╱ // 0x2a2 @0xb
0x0297…02c0 at0010 = ╱ec╱,╱ // 0x2a7 @0x10
0x0297…02c0 at0011 = ╱4d╱M╱ // 0x2a8 @0x11
0x0297…02c0 at0012 = ╱42╱B╱ // 0x2a9 @0x12
0x0297…02c0 at0013 = ╱45╱E╱ // 0x2aa @0x13
0x0297…02c0 at0014 = ╱56╱V╱ // 0x2ab @0x14
0x0297…02c0 at0015 = ╱ef╱$╱ // 0x2ac @0x15
0x0297…02c0 at0016 = ╱ed╱(╱ // 0x2ad @0x16
0x0297…02c0 at0017 = ╱55╱U╱ // 0x2ae @0x17
0x0297…02c0 at0018 = ╱50╱P╱ // 0x2af @0x18
0x0297…02c0 at0019 = ╱49╱I╱ // 0x2b0 @0x19
0x0297…02c0 at001a = ╱4c╱L╱ // 0x2b1 @0x1a
0x0297…02c0 at001b = ╱32╱2╱ // 0x2b2 @0x1b
0x0297…02c0 at001c = ╱ee╱)╱ // 0x2b3 @0x1c
0x0297…02c0 at001d = ╱ec╱,╱ // 0x2b4 @0x1d
0x0297…02c0 at001e = ╱54╱T╱ // 0x2b5 @0x1e
0x0297…02c0 at001f = ╱41╱A╱ // 0x2b6 @0x1f
0x0297…02c0 at0020 = ╱48╱H╱ // 0x2b7 @0x20
0x0297…02c0 at0021 = ╱ef╱$╱ // 0x2b8 @0x21
0x0297…02c0 at0022 = ╱ec╱,╱ // 0x2b9 @0x22
0x0297…02c0 at0023 = ╱54╱T╱ // 0x2ba @0x23
0x0297…02c0 at0024 = ╱41╱A╱ // 0x2bb @0x24
0x0297…02c0 at0025 = ╱48╱H╱ // 0x2bc @0x25
0x0297…02c0 at0026 = ╱ef╱$╱ // 0x2bd @0x26
0x0297…02c0 at0027 = ╱ee╱)╱ // 0x2be @0x27
0x0297…02c0 at0028 = EOL // 0x2bf @0x28
0x0297…02c0 }
0x02c0…02cc 9023 0330 IF SI<>B THEN EXIT
0x02c0…02cc LineComalBin {
0x02c0…02cc ptr = 0x9023 // 0x2c0 @0x0
0x02c0…02cc lno = 0x014a // 0x2c2 @0x2
0x02c0…02cc at0004 = ╱82╱ IF ╱ // 0x2c4 @0x4
0x02c0…02cc at0005 = ╱53╱S╱ // 0x2c5 @0x5
0x02c0…02cc at0006 = ╱49╱I╱ // 0x2c6 @0x6
0x02c0…02cc at0007 = ╱e1╱<>╱ // 0x2c7 @0x7
0x02c0…02cc at0008 = ╱42╱B╱ // 0x2c8 @0x8
0x02c0…02cc at0009 = ╱b6╱ THEN ╱ // 0x2c9 @0x9
0x02c0…02cc at000a = ╱99╱ EXIT ╱ // 0x2ca @0xa
0x02c0…02cc at000b = EOL // 0x2cb @0xb
0x02c0…02cc }
0x02cc…02f5 904c 0340 EXEC CALC(4,YBEV$(UPIL2),TAH$,TAH$)
0x02cc…02f5 LineComalBin {
0x02cc…02f5 ptr = 0x904c // 0x2cc @0x0
0x02cc…02f5 lno = 0x0154 // 0x2ce @0x2
0x02cc…02f5 at0004 = ╱9d╱ EXEC ╱ // 0x2d0 @0x4
0x02cc…02f5 at0005 = ╱43╱C╱ // 0x2d1 @0x5
0x02cc…02f5 at0006 = ╱41╱A╱ // 0x2d2 @0x6
0x02cc…02f5 at0007 = ╱4c╱L╱ // 0x2d3 @0x7
0x02cc…02f5 at0008 = ╱43╱C╱ // 0x2d4 @0x8
0x02cc…02f5 at0009 = ╱ed╱(╱ // 0x2d5 @0x9
0x02cc…02f5 at000a = ╱34╱4╱ // 0x2d6 @0xa
0x02cc…02f5 at000b = ╱fe00008003╱ // 0x2d7 @0xb
0x02cc…02f5 at0010 = ╱ec╱,╱ // 0x2dc @0x10
0x02cc…02f5 at0011 = ╱59╱Y╱ // 0x2dd @0x11
0x02cc…02f5 at0012 = ╱42╱B╱ // 0x2de @0x12
0x02cc…02f5 at0013 = ╱45╱E╱ // 0x2df @0x13
0x02cc…02f5 at0014 = ╱56╱V╱ // 0x2e0 @0x14
0x02cc…02f5 at0015 = ╱ef╱$╱ // 0x2e1 @0x15
0x02cc…02f5 at0016 = ╱ed╱(╱ // 0x2e2 @0x16
0x02cc…02f5 at0017 = ╱55╱U╱ // 0x2e3 @0x17
0x02cc…02f5 at0018 = ╱50╱P╱ // 0x2e4 @0x18
0x02cc…02f5 at0019 = ╱49╱I╱ // 0x2e5 @0x19
0x02cc…02f5 at001a = ╱4c╱L╱ // 0x2e6 @0x1a
0x02cc…02f5 at001b = ╱32╱2╱ // 0x2e7 @0x1b
0x02cc…02f5 at001c = ╱ee╱)╱ // 0x2e8 @0x1c
0x02cc…02f5 at001d = ╱ec╱,╱ // 0x2e9 @0x1d
0x02cc…02f5 at001e = ╱54╱T╱ // 0x2ea @0x1e
0x02cc…02f5 at001f = ╱41╱A╱ // 0x2eb @0x1f
0x02cc…02f5 at0020 = ╱48╱H╱ // 0x2ec @0x20
0x02cc…02f5 at0021 = ╱ef╱$╱ // 0x2ed @0x21
0x02cc…02f5 at0022 = ╱ec╱,╱ // 0x2ee @0x22
0x02cc…02f5 at0023 = ╱54╱T╱ // 0x2ef @0x23
0x02cc…02f5 at0024 = ╱41╱A╱ // 0x2f0 @0x24
0x02cc…02f5 at0025 = ╱48╱H╱ // 0x2f1 @0x25
0x02cc…02f5 at0026 = ╱ef╱$╱ // 0x2f2 @0x26
0x02cc…02f5 at0027 = ╱ee╱)╱ // 0x2f3 @0x27
0x02cc…02f5 at0028 = EOL // 0x2f4 @0x28
0x02cc…02f5 }
0x02f5…0301 9058 0350 IF SI<>B THEN EXIT
0x02f5…0301 LineComalBin {
0x02f5…0301 ptr = 0x9058 // 0x2f5 @0x0
0x02f5…0301 lno = 0x015e // 0x2f7 @0x2
0x02f5…0301 at0004 = ╱82╱ IF ╱ // 0x2f9 @0x4
0x02f5…0301 at0005 = ╱53╱S╱ // 0x2fa @0x5
0x02f5…0301 at0006 = ╱49╱I╱ // 0x2fb @0x6
0x02f5…0301 at0007 = ╱e1╱<>╱ // 0x2fc @0x7
0x02f5…0301 at0008 = ╱42╱B╱ // 0x2fd @0x8
0x02f5…0301 at0009 = ╱b6╱ THEN ╱ // 0x2fe @0x9
0x02f5…0301 at000a = ╱99╱ EXIT ╱ // 0x2ff @0xa
0x02f5…0301 at000b = EOL // 0x300 @0xb
0x02f5…0301 }
0x0301…0307 905e 0360 ENDIF
0x0301…0307 LineComalBin {
0x0301…0307 ptr = 0x905e // 0x301 @0x0
0x0301…0307 lno = 0x0168 // 0x303 @0x2
0x0301…0307 at0004 = ╱9b╱ ENDIF ╱ // 0x305 @0x4
0x0301…0307 at0005 = EOL // 0x306 @0x5
0x0301…0307 }
0x0307…0312 9069 0370 NEXT EPIL3
0x0307…0312 LineComalBin {
0x0307…0312 ptr = 0x9069 // 0x307 @0x0
0x0307…0312 lno = 0x0172 // 0x309 @0x2
0x0307…0312 at0004 = ╱84╱ NEXT ╱ // 0x30b @0x4
0x0307…0312 at0005 = ╱45╱E╱ // 0x30c @0x5
0x0307…0312 at0006 = ╱50╱P╱ // 0x30d @0x6
0x0307…0312 at0007 = ╱49╱I╱ // 0x30e @0x7
0x0307…0312 at0008 = ╱4c╱L╱ // 0x30f @0x8
0x0307…0312 at0009 = ╱33╱3╱ // 0x310 @0x9
0x0307…0312 at000a = EOL // 0x311 @0xa
0x0307…0312 }
0x0312…032b 9082 0380 IF EPIL3<AENT+E THEN TEST=E
0x0312…032b LineComalBin {
0x0312…032b ptr = 0x9082 // 0x312 @0x0
0x0312…032b lno = 0x017c // 0x314 @0x2
0x0312…032b at0004 = ╱82╱ IF ╱ // 0x316 @0x4
0x0312…032b at0005 = ╱45╱E╱ // 0x317 @0x5
0x0312…032b at0006 = ╱50╱P╱ // 0x318 @0x6
0x0312…032b at0007 = ╱49╱I╱ // 0x319 @0x7
0x0312…032b at0008 = ╱4c╱L╱ // 0x31a @0x8
0x0312…032b at0009 = ╱33╱3╱ // 0x31b @0x9
0x0312…032b at000a = ╱dd╱<╱ // 0x31c @0xa
0x0312…032b at000b = ╱41╱A╱ // 0x31d @0xb
0x0312…032b at000c = ╱45╱E╱ // 0x31e @0xc
0x0312…032b at000d = ╱4e╱N╱ // 0x31f @0xd
0x0312…032b at000e = ╱54╱T╱ // 0x320 @0xe
0x0312…032b at000f = ╱e2╱+╱ // 0x321 @0xf
0x0312…032b at0010 = ╱45╱E╱ // 0x322 @0x10
0x0312…032b at0011 = ╱b6╱ THEN ╱ // 0x323 @0x11
0x0312…032b at0012 = ╱54╱T╱ // 0x324 @0x12
0x0312…032b at0013 = ╱45╱E╱ // 0x325 @0x13
0x0312…032b at0014 = ╱53╱S╱ // 0x326 @0x14
0x0312…032b at0015 = ╱54╱T╱ // 0x327 @0x15
0x0312…032b at0016 = ╱dc╱=╱ // 0x328 @0x16
0x0312…032b at0017 = ╱45╱E╱ // 0x329 @0x17
0x0312…032b at0018 = EOL // 0x32a @0x18
0x0312…032b }
0x032b…0331 9088 0390 ENDPROC
0x032b…0331 LineComalBin {
0x032b…0331 ptr = 0x9088 // 0x32b @0x0
0x032b…0331 lno = 0x0186 // 0x32d @0x2
0x032b…0331 at0004 = ╱9f╱ ENDPROC ╱ // 0x32f @0x4
0x032b…0331 at0005 = EOL // 0x330 @0x5
0x032b…0331 }
0x0331…0341 9098 0400 PROC INDTAB1(T)
0x0331…0341 LineComalBin {
0x0331…0341 ptr = 0x9098 // 0x331 @0x0
0x0331…0341 lno = 0x0190 // 0x333 @0x2
0x0331…0341 at0004 = ╱9e╱ PROC ╱ // 0x335 @0x4
0x0331…0341 at0005 = ╱49╱I╱ // 0x336 @0x5
0x0331…0341 at0006 = ╱4e╱N╱ // 0x337 @0x6
0x0331…0341 at0007 = ╱44╱D╱ // 0x338 @0x7
0x0331…0341 at0008 = ╱54╱T╱ // 0x339 @0x8
0x0331…0341 at0009 = ╱41╱A╱ // 0x33a @0x9
0x0331…0341 at000a = ╱42╱B╱ // 0x33b @0xa
0x0331…0341 at000b = ╱31╱1╱ // 0x33c @0xb
0x0331…0341 at000c = ╱ed╱(╱ // 0x33d @0xc
0x0331…0341 at000d = ╱54╱T╱ // 0x33e @0xd
0x0331…0341 at000e = ╱ee╱)╱ // 0x33f @0xe
0x0331…0341 at000f = EOL // 0x340 @0xf
0x0331…0341 }
0x0341…0359 90b0 0410 J=MEANTAL DIV 32+E
0x0341…0359 LineComalBin {
0x0341…0359 ptr = 0x90b0 // 0x341 @0x0
0x0341…0359 lno = 0x019a // 0x343 @0x2
0x0341…0359 at0004 = ╱4a╱J╱ // 0x345 @0x4
0x0341…0359 at0005 = ╱dc╱=╱ // 0x346 @0x5
0x0341…0359 at0006 = ╱4d╱M╱ // 0x347 @0x6
0x0341…0359 at0007 = ╱45╱E╱ // 0x348 @0x7
0x0341…0359 at0008 = ╱41╱A╱ // 0x349 @0x8
0x0341…0359 at0009 = ╱4e╱N╱ // 0x34a @0x9
0x0341…0359 at000a = ╱54╱T╱ // 0x34b @0xa
0x0341…0359 at000b = ╱41╱A╱ // 0x34c @0xb
0x0341…0359 at000c = ╱4c╱L╱ // 0x34d @0xc
0x0341…0359 at000d = ╱e7╱ DIV ╱ // 0x34e @0xd
0x0341…0359 at000e = ╱33╱3╱ // 0x34f @0xe
0x0341…0359 at000f = ╱32╱2╱ // 0x350 @0xf
0x0341…0359 at0010 = ╱fe00008006╱ // 0x351 @0x10
0x0341…0359 at0015 = ╱e2╱+╱ // 0x356 @0x15
0x0341…0359 at0016 = ╱45╱E╱ // 0x357 @0x16
0x0341…0359 at0017 = EOL // 0x358 @0x17
0x0341…0359 }
0x0359…0375 90cc 0420 FOR I=J TO MEANTAL DIV 4+J-E
0x0359…0375 LineComalBin {
0x0359…0375 ptr = 0x90cc // 0x359 @0x0
0x0359…0375 lno = 0x01a4 // 0x35b @0x2
0x0359…0375 at0004 = ╱83╱ FOR ╱ // 0x35d @0x4
0x0359…0375 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0375 at0006 = ╱dc╱=╱ // 0x35f @0x6
0x0359…0375 at0007 = ╱4a╱J╱ // 0x360 @0x7
0x0359…0375 at0008 = ╱b7╱ TO ╱ // 0x361 @0x8
0x0359…0375 at0009 = ╱4d╱M╱ // 0x362 @0x9
0x0359…0375 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0375 at000b = ╱41╱A╱ // 0x364 @0xb
0x0359…0375 at000c = ╱4e╱N╱ // 0x365 @0xc
0x0359…0375 at000d = ╱54╱T╱ // 0x366 @0xd
0x0359…0375 at000e = ╱41╱A╱ // 0x367 @0xe
0x0359…0375 at000f = ╱4c╱L╱ // 0x368 @0xf
0x0359…0375 at0010 = ╱e7╱ DIV ╱ // 0x369 @0x10
0x0359…0375 at0011 = ╱34╱4╱ // 0x36a @0x11
0x0359…0375 at0012 = ╱fe00008003╱ // 0x36b @0x12
0x0359…0375 at0017 = ╱e2╱+╱ // 0x370 @0x17
0x0359…0375 at0018 = ╱4a╱J╱ // 0x371 @0x18
0x0359…0375 at0019 = ╱e3╱-╱ // 0x372 @0x19
0x0359…0375 at001a = ╱45╱E╱ // 0x373 @0x1a
0x0359…0375 at001b = EOL // 0x374 @0x1b
0x0359…0375 }
0x0375…039f 90f6 0430 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V
0x0375…039f LineComalBin {
0x0375…039f ptr = 0x90f6 // 0x375 @0x0
0x0375…039f lno = 0x01ae // 0x377 @0x2
0x0375…039f at0004 = ╱48╱H╱ // 0x379 @0x4
0x0375…039f at0005 = ╱dc╱=╱ // 0x37a @0x5
0x0375…039f at0006 = ╱ed╱(╱ // 0x37b @0x6
0x0375…039f at0007 = ╱49╱I╱ // 0x37c @0x7
0x0375…039f at0008 = ╱e3╱-╱ // 0x37d @0x8
0x0375…039f at0009 = ╱4a╱J╱ // 0x37e @0x9
0x0375…039f at000a = ╱ee╱)╱ // 0x37f @0xa
0x0375…039f at000b = ╱e4╱*╱ // 0x380 @0xb
0x0375…039f at000c = ╱34╱4╱ // 0x381 @0xc
0x0375…039f at000d = ╱fe00008003╱ // 0x382 @0xd
0x0375…039f at0012 = ╱e2╱+╱ // 0x387 @0x12
0x0375…039f at0013 = ╱45╱E╱ // 0x388 @0x13
0x0375…039f at0014 = ╱eb╱;╱ // 0x389 @0x14
0x0375…039f at0015 = ╱4a╱J╱ // 0x38a @0x15
0x0375…039f at0016 = ╱32╱2╱ // 0x38b @0x16
0x0375…039f at0017 = ╱dc╱=╱ // 0x38c @0x17
0x0375…039f at0018 = ╱48╱H╱ // 0x38d @0x18
0x0375…039f at0019 = ╱e2╱+╱ // 0x38e @0x19
0x0375…039f at001a = ╱45╱E╱ // 0x38f @0x1a
0x0375…039f at001b = ╱eb╱;╱ // 0x390 @0x1b
0x0375…039f at001c = ╱4a╱J╱ // 0x391 @0x1c
0x0375…039f at001d = ╱33╱3╱ // 0x392 @0x1d
0x0375…039f at001e = ╱dc╱=╱ // 0x393 @0x1e
0x0375…039f at001f = ╱48╱H╱ // 0x394 @0x1f
0x0375…039f at0020 = ╱e2╱+╱ // 0x395 @0x20
0x0375…039f at0021 = ╱47╱G╱ // 0x396 @0x21
0x0375…039f at0022 = ╱eb╱;╱ // 0x397 @0x22
0x0375…039f at0023 = ╱4a╱J╱ // 0x398 @0x23
0x0375…039f at0024 = ╱34╱4╱ // 0x399 @0x24
0x0375…039f at0025 = ╱dc╱=╱ // 0x39a @0x25
0x0375…039f at0026 = ╱48╱H╱ // 0x39b @0x26
0x0375…039f at0027 = ╱e2╱+╱ // 0x39c @0x27
0x0375…039f at0028 = ╱56╱V╱ // 0x39d @0x28
0x0375…039f at0029 = EOL // 0x39e @0x29
0x0375…039f }
0x039f…03e8 913f 0440 GET K5$,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)
0x039f…03e8 LineComalBin {
0x039f…03e8 ptr = 0x913f // 0x39f @0x0
0x039f…03e8 lno = 0x01b8 // 0x3a1 @0x2
0x039f…03e8 at0004 = ╱a9╱ GET ╱ // 0x3a3 @0x4
0x039f…03e8 at0005 = ╱4b╱K╱ // 0x3a4 @0x5
0x039f…03e8 at0006 = ╱35╱5╱ // 0x3a5 @0x6
0x039f…03e8 at0007 = ╱ef╱$╱ // 0x3a6 @0x7
0x039f…03e8 at0008 = ╱ec╱,╱ // 0x3a7 @0x8
0x039f…03e8 at0009 = ╱49╱I╱ // 0x3a8 @0x9
0x039f…03e8 at000a = ╱f0╱:╱ // 0x3a9 @0xa
0x039f…03e8 at000b = ╱54╱T╱ // 0x3aa @0xb
0x039f…03e8 at000c = ╱ed╱(╱ // 0x3ab @0xc
0x039f…03e8 at000d = ╱48╱H╱ // 0x3ac @0xd
0x039f…03e8 at000e = ╱ec╱,╱ // 0x3ad @0xe
0x039f…03e8 at000f = ╱45╱E╱ // 0x3ae @0xf
0x039f…03e8 at0010 = ╱ee╱)╱ // 0x3af @0x10
0x039f…03e8 at0011 = ╱ec╱,╱ // 0x3b0 @0x11
0x039f…03e8 at0012 = ╱54╱T╱ // 0x3b1 @0x12
0x039f…03e8 at0013 = ╱ed╱(╱ // 0x3b2 @0x13
0x039f…03e8 at0014 = ╱48╱H╱ // 0x3b3 @0x14
0x039f…03e8 at0015 = ╱ec╱,╱ // 0x3b4 @0x15
0x039f…03e8 at0016 = ╱47╱G╱ // 0x3b5 @0x16
0x039f…03e8 at0017 = ╱ee╱)╱ // 0x3b6 @0x17
0x039f…03e8 at0018 = ╱ec╱,╱ // 0x3b7 @0x18
0x039f…03e8 at0019 = ╱54╱T╱ // 0x3b8 @0x19
0x039f…03e8 at001a = ╱ed╱(╱ // 0x3b9 @0x1a
0x039f…03e8 at001b = ╱4a╱J╱ // 0x3ba @0x1b
0x039f…03e8 at001c = ╱32╱2╱ // 0x3bb @0x1c
0x039f…03e8 at001d = ╱ec╱,╱ // 0x3bc @0x1d
0x039f…03e8 at001e = ╱45╱E╱ // 0x3bd @0x1e
0x039f…03e8 at001f = ╱ee╱)╱ // 0x3be @0x1f
0x039f…03e8 at0020 = ╱ec╱,╱ // 0x3bf @0x20
0x039f…03e8 at0021 = ╱54╱T╱ // 0x3c0 @0x21
0x039f…03e8 at0022 = ╱ed╱(╱ // 0x3c1 @0x22
0x039f…03e8 at0023 = ╱4a╱J╱ // 0x3c2 @0x23
0x039f…03e8 at0024 = ╱32╱2╱ // 0x3c3 @0x24
0x039f…03e8 at0025 = ╱ec╱,╱ // 0x3c4 @0x25
0x039f…03e8 at0026 = ╱47╱G╱ // 0x3c5 @0x26
0x039f…03e8 at0027 = ╱ee╱)╱ // 0x3c6 @0x27
0x039f…03e8 at0028 = ╱ec╱,╱ // 0x3c7 @0x28
0x039f…03e8 at0029 = ╱54╱T╱ // 0x3c8 @0x29
0x039f…03e8 at002a = ╱ed╱(╱ // 0x3c9 @0x2a
0x039f…03e8 at002b = ╱4a╱J╱ // 0x3ca @0x2b
0x039f…03e8 at002c = ╱33╱3╱ // 0x3cb @0x2c
0x039f…03e8 at002d = ╱ec╱,╱ // 0x3cc @0x2d
0x039f…03e8 at002e = ╱45╱E╱ // 0x3cd @0x2e
0x039f…03e8 at002f = ╱ee╱)╱ // 0x3ce @0x2f
0x039f…03e8 at0030 = ╱ec╱,╱ // 0x3cf @0x30
0x039f…03e8 at0031 = ╱54╱T╱ // 0x3d0 @0x31
0x039f…03e8 at0032 = ╱ed╱(╱ // 0x3d1 @0x32
0x039f…03e8 at0033 = ╱4a╱J╱ // 0x3d2 @0x33
0x039f…03e8 at0034 = ╱33╱3╱ // 0x3d3 @0x34
0x039f…03e8 at0035 = ╱ec╱,╱ // 0x3d4 @0x35
0x039f…03e8 at0036 = ╱47╱G╱ // 0x3d5 @0x36
0x039f…03e8 at0037 = ╱ee╱)╱ // 0x3d6 @0x37
0x039f…03e8 at0038 = ╱ec╱,╱ // 0x3d7 @0x38
0x039f…03e8 at0039 = ╱54╱T╱ // 0x3d8 @0x39
0x039f…03e8 at003a = ╱ed╱(╱ // 0x3d9 @0x3a
0x039f…03e8 at003b = ╱4a╱J╱ // 0x3da @0x3b
0x039f…03e8 at003c = ╱34╱4╱ // 0x3db @0x3c
0x039f…03e8 at003d = ╱ec╱,╱ // 0x3dc @0x3d
0x039f…03e8 at003e = ╱45╱E╱ // 0x3dd @0x3e
0x039f…03e8 at003f = ╱ee╱)╱ // 0x3de @0x3f
0x039f…03e8 at0040 = ╱ec╱,╱ // 0x3df @0x40
0x039f…03e8 at0041 = ╱54╱T╱ // 0x3e0 @0x41
0x039f…03e8 at0042 = ╱ed╱(╱ // 0x3e1 @0x42
0x039f…03e8 at0043 = ╱4a╱J╱ // 0x3e2 @0x43
0x039f…03e8 at0044 = ╱34╱4╱ // 0x3e3 @0x44
0x039f…03e8 at0045 = ╱ec╱,╱ // 0x3e4 @0x45
0x039f…03e8 at0046 = ╱47╱G╱ // 0x3e5 @0x46
0x039f…03e8 at0047 = ╱ee╱)╱ // 0x3e6 @0x47
0x039f…03e8 at0048 = EOL // 0x3e7 @0x48
0x039f…03e8 }
0x03e8…03fb 9152 0450 EXEC FEJL(E,E,K5$)
0x03e8…03fb LineComalBin {
0x03e8…03fb ptr = 0x9152 // 0x3e8 @0x0
0x03e8…03fb lno = 0x01c2 // 0x3ea @0x2
0x03e8…03fb at0004 = ╱9d╱ EXEC ╱ // 0x3ec @0x4
0x03e8…03fb at0005 = ╱46╱F╱ // 0x3ed @0x5
0x03e8…03fb at0006 = ╱45╱E╱ // 0x3ee @0x6
0x03e8…03fb at0007 = ╱4a╱J╱ // 0x3ef @0x7
0x03e8…03fb at0008 = ╱4c╱L╱ // 0x3f0 @0x8
0x03e8…03fb at0009 = ╱ed╱(╱ // 0x3f1 @0x9
0x03e8…03fb at000a = ╱45╱E╱ // 0x3f2 @0xa
0x03e8…03fb at000b = ╱ec╱,╱ // 0x3f3 @0xb
0x03e8…03fb at000c = ╱45╱E╱ // 0x3f4 @0xc
0x03e8…03fb at000d = ╱ec╱,╱ // 0x3f5 @0xd
0x03e8…03fb at000e = ╱4b╱K╱ // 0x3f6 @0xe
0x03e8…03fb at000f = ╱35╱5╱ // 0x3f7 @0xf
0x03e8…03fb at0010 = ╱ef╱$╱ // 0x3f8 @0x10
0x03e8…03fb at0011 = ╱ee╱)╱ // 0x3f9 @0x11
0x03e8…03fb at0012 = EOL // 0x3fa @0x12
0x03e8…03fb }
0x03fb…0402 9159 0460 NEXT I
0x03fb…0402 LineComalBin {
0x03fb…0402 ptr = 0x9159 // 0x3fb @0x0
0x03fb…0402 lno = 0x01cc // 0x3fd @0x2
0x03fb…0402 at0004 = ╱84╱ NEXT ╱ // 0x3ff @0x4
0x03fb…0402 at0005 = ╱49╱I╱ // 0x400 @0x5
0x03fb…0402 at0006 = EOL // 0x401 @0x6
0x03fb…0402 }
0x0402…0408 915f 0470 ENDPROC
0x0402…0408 LineComalBin {
0x0402…0408 ptr = 0x915f // 0x402 @0x0
0x0402…0408 lno = 0x01d6 // 0x404 @0x2
0x0402…0408 at0004 = ╱9f╱ ENDPROC ╱ // 0x406 @0x4
0x0402…0408 at0005 = EOL // 0x407 @0x5
0x0402…0408 }
0x0408…0414 916b 0480 PROC INDTAB
0x0408…0414 LineComalBin {
0x0408…0414 ptr = 0x916b // 0x408 @0x0
0x0408…0414 lno = 0x01e0 // 0x40a @0x2
0x0408…0414 at0004 = ╱9e╱ PROC ╱ // 0x40c @0x4
0x0408…0414 at0005 = ╱49╱I╱ // 0x40d @0x5
0x0408…0414 at0006 = ╱4e╱N╱ // 0x40e @0x6
0x0408…0414 at0007 = ╱44╱D╱ // 0x40f @0x7
0x0408…0414 at0008 = ╱54╱T╱ // 0x410 @0x8
0x0408…0414 at0009 = ╱41╱A╱ // 0x411 @0x9
0x0408…0414 at000a = ╱42╱B╱ // 0x412 @0xa
0x0408…0414 at000b = EOL // 0x413 @0xb
0x0408…0414 }
0x0414…042b 9182 0490 FOR I=E TO MUNKANT+METOT
0x0414…042b LineComalBin {
0x0414…042b ptr = 0x9182 // 0x414 @0x0
0x0414…042b lno = 0x01ea // 0x416 @0x2
0x0414…042b at0004 = ╱83╱ FOR ╱ // 0x418 @0x4
0x0414…042b at0005 = ╱49╱I╱ // 0x419 @0x5
0x0414…042b at0006 = ╱dc╱=╱ // 0x41a @0x6
0x0414…042b at0007 = ╱45╱E╱ // 0x41b @0x7
0x0414…042b at0008 = ╱b7╱ TO ╱ // 0x41c @0x8
0x0414…042b at0009 = ╱4d╱M╱ // 0x41d @0x9
0x0414…042b at000a = ╱55╱U╱ // 0x41e @0xa
0x0414…042b at000b = ╱4e╱N╱ // 0x41f @0xb
0x0414…042b at000c = ╱4b╱K╱ // 0x420 @0xc
0x0414…042b at000d = ╱41╱A╱ // 0x421 @0xd
0x0414…042b at000e = ╱4e╱N╱ // 0x422 @0xe
0x0414…042b at000f = ╱54╱T╱ // 0x423 @0xf
0x0414…042b at0010 = ╱e2╱+╱ // 0x424 @0x10
0x0414…042b at0011 = ╱4d╱M╱ // 0x425 @0x11
0x0414…042b at0012 = ╱45╱E╱ // 0x426 @0x12
0x0414…042b at0013 = ╱54╱T╱ // 0x427 @0x13
0x0414…042b at0014 = ╱4f╱O╱ // 0x428 @0x14
0x0414…042b at0015 = ╱54╱T╱ // 0x429 @0x15
0x0414…042b at0016 = EOL // 0x42a @0x16
0x0414…042b }
0x042b…0451 91a8 0500 GET K2$,I:UNR(I),UKODE$(I),UNAVN$(I)
0x042b…0451 LineComalBin {
0x042b…0451 ptr = 0x91a8 // 0x42b @0x0
0x042b…0451 lno = 0x01f4 // 0x42d @0x2
0x042b…0451 at0004 = ╱a9╱ GET ╱ // 0x42f @0x4
0x042b…0451 at0005 = ╱4b╱K╱ // 0x430 @0x5
0x042b…0451 at0006 = ╱32╱2╱ // 0x431 @0x6
0x042b…0451 at0007 = ╱ef╱$╱ // 0x432 @0x7
0x042b…0451 at0008 = ╱ec╱,╱ // 0x433 @0x8
0x042b…0451 at0009 = ╱49╱I╱ // 0x434 @0x9
0x042b…0451 at000a = ╱f0╱:╱ // 0x435 @0xa
0x042b…0451 at000b = ╱55╱U╱ // 0x436 @0xb
0x042b…0451 at000c = ╱4e╱N╱ // 0x437 @0xc
0x042b…0451 at000d = ╱52╱R╱ // 0x438 @0xd
0x042b…0451 at000e = ╱ed╱(╱ // 0x439 @0xe
0x042b…0451 at000f = ╱49╱I╱ // 0x43a @0xf
0x042b…0451 at0010 = ╱ee╱)╱ // 0x43b @0x10
0x042b…0451 at0011 = ╱ec╱,╱ // 0x43c @0x11
0x042b…0451 at0012 = ╱55╱U╱ // 0x43d @0x12
0x042b…0451 at0013 = ╱4b╱K╱ // 0x43e @0x13
0x042b…0451 at0014 = ╱4f╱O╱ // 0x43f @0x14
0x042b…0451 at0015 = ╱44╱D╱ // 0x440 @0x15
0x042b…0451 at0016 = ╱45╱E╱ // 0x441 @0x16
0x042b…0451 at0017 = ╱ef╱$╱ // 0x442 @0x17
0x042b…0451 at0018 = ╱ed╱(╱ // 0x443 @0x18
0x042b…0451 at0019 = ╱49╱I╱ // 0x444 @0x19
0x042b…0451 at001a = ╱ee╱)╱ // 0x445 @0x1a
0x042b…0451 at001b = ╱ec╱,╱ // 0x446 @0x1b
0x042b…0451 at001c = ╱55╱U╱ // 0x447 @0x1c
0x042b…0451 at001d = ╱4e╱N╱ // 0x448 @0x1d
0x042b…0451 at001e = ╱41╱A╱ // 0x449 @0x1e
0x042b…0451 at001f = ╱56╱V╱ // 0x44a @0x1f
0x042b…0451 at0020 = ╱4e╱N╱ // 0x44b @0x20
0x042b…0451 at0021 = ╱ef╱$╱ // 0x44c @0x21
0x042b…0451 at0022 = ╱ed╱(╱ // 0x44d @0x22
0x042b…0451 at0023 = ╱49╱I╱ // 0x44e @0x23
0x042b…0451 at0024 = ╱ee╱)╱ // 0x44f @0x24
0x042b…0451 at0025 = EOL // 0x450 @0x25
0x042b…0451 }
0x0451…0464 91bb 0510 EXEC FEJL(E,E,K2$)
0x0451…0464 LineComalBin {
0x0451…0464 ptr = 0x91bb // 0x451 @0x0
0x0451…0464 lno = 0x01fe // 0x453 @0x2
0x0451…0464 at0004 = ╱9d╱ EXEC ╱ // 0x455 @0x4
0x0451…0464 at0005 = ╱46╱F╱ // 0x456 @0x5
0x0451…0464 at0006 = ╱45╱E╱ // 0x457 @0x6
0x0451…0464 at0007 = ╱4a╱J╱ // 0x458 @0x7
0x0451…0464 at0008 = ╱4c╱L╱ // 0x459 @0x8
0x0451…0464 at0009 = ╱ed╱(╱ // 0x45a @0x9
0x0451…0464 at000a = ╱45╱E╱ // 0x45b @0xa
0x0451…0464 at000b = ╱ec╱,╱ // 0x45c @0xb
0x0451…0464 at000c = ╱45╱E╱ // 0x45d @0xc
0x0451…0464 at000d = ╱ec╱,╱ // 0x45e @0xd
0x0451…0464 at000e = ╱4b╱K╱ // 0x45f @0xe
0x0451…0464 at000f = ╱32╱2╱ // 0x460 @0xf
0x0451…0464 at0010 = ╱ef╱$╱ // 0x461 @0x10
0x0451…0464 at0011 = ╱ee╱)╱ // 0x462 @0x11
0x0451…0464 at0012 = EOL // 0x463 @0x12
0x0451…0464 }
0x0464…046b 91c2 0520 NEXT I
0x0464…046b LineComalBin {
0x0464…046b ptr = 0x91c2 // 0x464 @0x0
0x0464…046b lno = 0x0208 // 0x466 @0x2
0x0464…046b at0004 = ╱84╱ NEXT ╱ // 0x468 @0x4
0x0464…046b at0005 = ╱49╱I╱ // 0x469 @0x5
0x0464…046b at0006 = EOL // 0x46a @0x6
0x0464…046b }
0x046b…0471 91c8 0530 ENDPROC
0x046b…0471 LineComalBin {
0x046b…0471 ptr = 0x91c8 // 0x46b @0x0
0x046b…0471 lno = 0x0212 // 0x46d @0x2
0x046b…0471 at0004 = ╱9f╱ ENDPROC ╱ // 0x46f @0x4
0x046b…0471 at0005 = EOL // 0x470 @0x5
0x046b…0471 }
0x0471…047c 91d3 0540 PROC UDTAB
0x0471…047c LineComalBin {
0x0471…047c ptr = 0x91d3 // 0x471 @0x0
0x0471…047c lno = 0x021c // 0x473 @0x2
0x0471…047c at0004 = ╱9e╱ PROC ╱ // 0x475 @0x4
0x0471…047c at0005 = ╱55╱U╱ // 0x476 @0x5
0x0471…047c at0006 = ╱44╱D╱ // 0x477 @0x6
0x0471…047c at0007 = ╱54╱T╱ // 0x478 @0x7
0x0471…047c at0008 = ╱41╱A╱ // 0x479 @0x8
0x0471…047c at0009 = ╱42╱B╱ // 0x47a @0x9
0x0471…047c at000a = EOL // 0x47b @0xa
0x0471…047c }
0x047c…0493 91ea 0550 FOR I=E TO MUNKANT+METOT
0x047c…0493 LineComalBin {
0x047c…0493 ptr = 0x91ea // 0x47c @0x0
0x047c…0493 lno = 0x0226 // 0x47e @0x2
0x047c…0493 at0004 = ╱83╱ FOR ╱ // 0x480 @0x4
0x047c…0493 at0005 = ╱49╱I╱ // 0x481 @0x5
0x047c…0493 at0006 = ╱dc╱=╱ // 0x482 @0x6
0x047c…0493 at0007 = ╱45╱E╱ // 0x483 @0x7
0x047c…0493 at0008 = ╱b7╱ TO ╱ // 0x484 @0x8
0x047c…0493 at0009 = ╱4d╱M╱ // 0x485 @0x9
0x047c…0493 at000a = ╱55╱U╱ // 0x486 @0xa
0x047c…0493 at000b = ╱4e╱N╱ // 0x487 @0xb
0x047c…0493 at000c = ╱4b╱K╱ // 0x488 @0xc
0x047c…0493 at000d = ╱41╱A╱ // 0x489 @0xd
0x047c…0493 at000e = ╱4e╱N╱ // 0x48a @0xe
0x047c…0493 at000f = ╱54╱T╱ // 0x48b @0xf
0x047c…0493 at0010 = ╱e2╱+╱ // 0x48c @0x10
0x047c…0493 at0011 = ╱4d╱M╱ // 0x48d @0x11
0x047c…0493 at0012 = ╱45╱E╱ // 0x48e @0x12
0x047c…0493 at0013 = ╱54╱T╱ // 0x48f @0x13
0x047c…0493 at0014 = ╱4f╱O╱ // 0x490 @0x14
0x047c…0493 at0015 = ╱54╱T╱ // 0x491 @0x15
0x047c…0493 at0016 = EOL // 0x492 @0x16
0x047c…0493 }
0x0493…04b9 9210 0560 PUT K2$,I:UNR(I),UKODE$(I),UNAVN$(I)
0x0493…04b9 LineComalBin {
0x0493…04b9 ptr = 0x9210 // 0x493 @0x0
0x0493…04b9 lno = 0x0230 // 0x495 @0x2
0x0493…04b9 at0004 = ╱aa╱ PUT ╱ // 0x497 @0x4
0x0493…04b9 at0005 = ╱4b╱K╱ // 0x498 @0x5
0x0493…04b9 at0006 = ╱32╱2╱ // 0x499 @0x6
0x0493…04b9 at0007 = ╱ef╱$╱ // 0x49a @0x7
0x0493…04b9 at0008 = ╱ec╱,╱ // 0x49b @0x8
0x0493…04b9 at0009 = ╱49╱I╱ // 0x49c @0x9
0x0493…04b9 at000a = ╱f0╱:╱ // 0x49d @0xa
0x0493…04b9 at000b = ╱55╱U╱ // 0x49e @0xb
0x0493…04b9 at000c = ╱4e╱N╱ // 0x49f @0xc
0x0493…04b9 at000d = ╱52╱R╱ // 0x4a0 @0xd
0x0493…04b9 at000e = ╱ed╱(╱ // 0x4a1 @0xe
0x0493…04b9 at000f = ╱49╱I╱ // 0x4a2 @0xf
0x0493…04b9 at0010 = ╱ee╱)╱ // 0x4a3 @0x10
0x0493…04b9 at0011 = ╱ec╱,╱ // 0x4a4 @0x11
0x0493…04b9 at0012 = ╱55╱U╱ // 0x4a5 @0x12
0x0493…04b9 at0013 = ╱4b╱K╱ // 0x4a6 @0x13
0x0493…04b9 at0014 = ╱4f╱O╱ // 0x4a7 @0x14
0x0493…04b9 at0015 = ╱44╱D╱ // 0x4a8 @0x15
0x0493…04b9 at0016 = ╱45╱E╱ // 0x4a9 @0x16
0x0493…04b9 at0017 = ╱ef╱$╱ // 0x4aa @0x17
0x0493…04b9 at0018 = ╱ed╱(╱ // 0x4ab @0x18
0x0493…04b9 at0019 = ╱49╱I╱ // 0x4ac @0x19
0x0493…04b9 at001a = ╱ee╱)╱ // 0x4ad @0x1a
0x0493…04b9 at001b = ╱ec╱,╱ // 0x4ae @0x1b
0x0493…04b9 at001c = ╱55╱U╱ // 0x4af @0x1c
0x0493…04b9 at001d = ╱4e╱N╱ // 0x4b0 @0x1d
0x0493…04b9 at001e = ╱41╱A╱ // 0x4b1 @0x1e
0x0493…04b9 at001f = ╱56╱V╱ // 0x4b2 @0x1f
0x0493…04b9 at0020 = ╱4e╱N╱ // 0x4b3 @0x20
0x0493…04b9 at0021 = ╱ef╱$╱ // 0x4b4 @0x21
0x0493…04b9 at0022 = ╱ed╱(╱ // 0x4b5 @0x22
0x0493…04b9 at0023 = ╱49╱I╱ // 0x4b6 @0x23
0x0493…04b9 at0024 = ╱ee╱)╱ // 0x4b7 @0x24
0x0493…04b9 at0025 = EOL // 0x4b8 @0x25
0x0493…04b9 }
0x04b9…04cc 9223 0570 EXEC FEJL(G,E,K2$)
0x04b9…04cc LineComalBin {
0x04b9…04cc ptr = 0x9223 // 0x4b9 @0x0
0x04b9…04cc lno = 0x023a // 0x4bb @0x2
0x04b9…04cc at0004 = ╱9d╱ EXEC ╱ // 0x4bd @0x4
0x04b9…04cc at0005 = ╱46╱F╱ // 0x4be @0x5
0x04b9…04cc at0006 = ╱45╱E╱ // 0x4bf @0x6
0x04b9…04cc at0007 = ╱4a╱J╱ // 0x4c0 @0x7
0x04b9…04cc at0008 = ╱4c╱L╱ // 0x4c1 @0x8
0x04b9…04cc at0009 = ╱ed╱(╱ // 0x4c2 @0x9
0x04b9…04cc at000a = ╱47╱G╱ // 0x4c3 @0xa
0x04b9…04cc at000b = ╱ec╱,╱ // 0x4c4 @0xb
0x04b9…04cc at000c = ╱45╱E╱ // 0x4c5 @0xc
0x04b9…04cc at000d = ╱ec╱,╱ // 0x4c6 @0xd
0x04b9…04cc at000e = ╱4b╱K╱ // 0x4c7 @0xe
0x04b9…04cc at000f = ╱32╱2╱ // 0x4c8 @0xf
0x04b9…04cc at0010 = ╱ef╱$╱ // 0x4c9 @0x10
0x04b9…04cc at0011 = ╱ee╱)╱ // 0x4ca @0x11
0x04b9…04cc at0012 = EOL // 0x4cb @0x12
0x04b9…04cc }
0x04cc…04d3 922a 0580 NEXT I
0x04cc…04d3 LineComalBin {
0x04cc…04d3 ptr = 0x922a // 0x4cc @0x0
0x04cc…04d3 lno = 0x0244 // 0x4ce @0x2
0x04cc…04d3 at0004 = ╱84╱ NEXT ╱ // 0x4d0 @0x4
0x04cc…04d3 at0005 = ╱49╱I╱ // 0x4d1 @0x5
0x04cc…04d3 at0006 = EOL // 0x4d2 @0x6
0x04cc…04d3 }
0x04d3…04d9 9230 0590 ENDPROC
0x04d3…04d9 LineComalBin {
0x04d3…04d9 ptr = 0x9230 // 0x4d3 @0x0
0x04d3…04d9 lno = 0x024e // 0x4d5 @0x2
0x04d3…04d9 at0004 = ╱9f╱ ENDPROC ╱ // 0x4d7 @0x4
0x04d3…04d9 at0005 = EOL // 0x4d8 @0x5
0x04d3…04d9 }
0x04d9…04e7 923e 0600 PROC FINDPOST
0x04d9…04e7 LineComalBin {
0x04d9…04e7 ptr = 0x923e // 0x4d9 @0x0
0x04d9…04e7 lno = 0x0258 // 0x4db @0x2
0x04d9…04e7 at0004 = ╱9e╱ PROC ╱ // 0x4dd @0x4
0x04d9…04e7 at0005 = ╱46╱F╱ // 0x4de @0x5
0x04d9…04e7 at0006 = ╱49╱I╱ // 0x4df @0x6
0x04d9…04e7 at0007 = ╱4e╱N╱ // 0x4e0 @0x7
0x04d9…04e7 at0008 = ╱44╱D╱ // 0x4e1 @0x8
0x04d9…04e7 at0009 = ╱50╱P╱ // 0x4e2 @0x9
0x04d9…04e7 at000a = ╱4f╱O╱ // 0x4e3 @0xa
0x04d9…04e7 at000b = ╱53╱S╱ // 0x4e4 @0xb
0x04d9…04e7 at000c = ╱54╱T╱ // 0x4e5 @0xc
0x04d9…04e7 at000d = EOL // 0x4e6 @0xd
0x04d9…04e7 }
0x04e7…0519 9270 0610 UPIL3=MUNKANT+METOT;CEKS=E;UPIL2=AUNK;CEKS1=E
0x04e7…0519 LineComalBin {
0x04e7…0519 ptr = 0x9270 // 0x4e7 @0x0
0x04e7…0519 lno = 0x0262 // 0x4e9 @0x2
0x04e7…0519 at0004 = ╱55╱U╱ // 0x4eb @0x4
0x04e7…0519 at0005 = ╱50╱P╱ // 0x4ec @0x5
0x04e7…0519 at0006 = ╱49╱I╱ // 0x4ed @0x6
0x04e7…0519 at0007 = ╱4c╱L╱ // 0x4ee @0x7
0x04e7…0519 at0008 = ╱33╱3╱ // 0x4ef @0x8
0x04e7…0519 at0009 = ╱dc╱=╱ // 0x4f0 @0x9
0x04e7…0519 at000a = ╱4d╱M╱ // 0x4f1 @0xa
0x04e7…0519 at000b = ╱55╱U╱ // 0x4f2 @0xb
0x04e7…0519 at000c = ╱4e╱N╱ // 0x4f3 @0xc
0x04e7…0519 at000d = ╱4b╱K╱ // 0x4f4 @0xd
0x04e7…0519 at000e = ╱41╱A╱ // 0x4f5 @0xe
0x04e7…0519 at000f = ╱4e╱N╱ // 0x4f6 @0xf
0x04e7…0519 at0010 = ╱54╱T╱ // 0x4f7 @0x10
0x04e7…0519 at0011 = ╱e2╱+╱ // 0x4f8 @0x11
0x04e7…0519 at0012 = ╱4d╱M╱ // 0x4f9 @0x12
0x04e7…0519 at0013 = ╱45╱E╱ // 0x4fa @0x13
0x04e7…0519 at0014 = ╱54╱T╱ // 0x4fb @0x14
0x04e7…0519 at0015 = ╱4f╱O╱ // 0x4fc @0x15
0x04e7…0519 at0016 = ╱54╱T╱ // 0x4fd @0x16
0x04e7…0519 at0017 = ╱eb╱;╱ // 0x4fe @0x17
0x04e7…0519 at0018 = ╱43╱C╱ // 0x4ff @0x18
0x04e7…0519 at0019 = ╱45╱E╱ // 0x500 @0x19
0x04e7…0519 at001a = ╱4b╱K╱ // 0x501 @0x1a
0x04e7…0519 at001b = ╱53╱S╱ // 0x502 @0x1b
0x04e7…0519 at001c = ╱dc╱=╱ // 0x503 @0x1c
0x04e7…0519 at001d = ╱45╱E╱ // 0x504 @0x1d
0x04e7…0519 at001e = ╱eb╱;╱ // 0x505 @0x1e
0x04e7…0519 at001f = ╱55╱U╱ // 0x506 @0x1f
0x04e7…0519 at0020 = ╱50╱P╱ // 0x507 @0x20
0x04e7…0519 at0021 = ╱49╱I╱ // 0x508 @0x21
0x04e7…0519 at0022 = ╱4c╱L╱ // 0x509 @0x22
0x04e7…0519 at0023 = ╱32╱2╱ // 0x50a @0x23
0x04e7…0519 at0024 = ╱dc╱=╱ // 0x50b @0x24
0x04e7…0519 at0025 = ╱41╱A╱ // 0x50c @0x25
0x04e7…0519 at0026 = ╱55╱U╱ // 0x50d @0x26
0x04e7…0519 at0027 = ╱4e╱N╱ // 0x50e @0x27
0x04e7…0519 at0028 = ╱4b╱K╱ // 0x50f @0x28
0x04e7…0519 at0029 = ╱eb╱;╱ // 0x510 @0x29
0x04e7…0519 at002a = ╱43╱C╱ // 0x511 @0x2a
0x04e7…0519 at002b = ╱45╱E╱ // 0x512 @0x2b
0x04e7…0519 at002c = ╱4b╱K╱ // 0x513 @0x2c
0x04e7…0519 at002d = ╱53╱S╱ // 0x514 @0x2d
0x04e7…0519 at002e = ╱31╱1╱ // 0x515 @0x2e
0x04e7…0519 at002f = ╱dc╱=╱ // 0x516 @0x2f
0x04e7…0519 at0030 = ╱45╱E╱ // 0x517 @0x30
0x04e7…0519 at0031 = EOL // 0x518 @0x31
0x04e7…0519 }
0x0519…0536 928d 0620 WHILE FNR<UNR(UPIL3) AND UPIL3>E DO
0x0519…0536 LineComalBin {
0x0519…0536 ptr = 0x928d // 0x519 @0x0
0x0519…0536 lno = 0x026c // 0x51b @0x2
0x0519…0536 at0004 = ╱93╱ WHILE ╱ // 0x51d @0x4
0x0519…0536 at0005 = ╱46╱F╱ // 0x51e @0x5
0x0519…0536 at0006 = ╱4e╱N╱ // 0x51f @0x6
0x0519…0536 at0007 = ╱52╱R╱ // 0x520 @0x7
0x0519…0536 at0008 = ╱dd╱<╱ // 0x521 @0x8
0x0519…0536 at0009 = ╱55╱U╱ // 0x522 @0x9
0x0519…0536 at000a = ╱4e╱N╱ // 0x523 @0xa
0x0519…0536 at000b = ╱52╱R╱ // 0x524 @0xb
0x0519…0536 at000c = ╱ed╱(╱ // 0x525 @0xc
0x0519…0536 at000d = ╱55╱U╱ // 0x526 @0xd
0x0519…0536 at000e = ╱50╱P╱ // 0x527 @0xe
0x0519…0536 at000f = ╱49╱I╱ // 0x528 @0xf
0x0519…0536 at0010 = ╱4c╱L╱ // 0x529 @0x10
0x0519…0536 at0011 = ╱33╱3╱ // 0x52a @0x11
0x0519…0536 at0012 = ╱ee╱)╱ // 0x52b @0x12
0x0519…0536 at0013 = ╱da╱ AND ╱ // 0x52c @0x13
0x0519…0536 at0014 = ╱55╱U╱ // 0x52d @0x14
0x0519…0536 at0015 = ╱50╱P╱ // 0x52e @0x15
0x0519…0536 at0016 = ╱49╱I╱ // 0x52f @0x16
0x0519…0536 at0017 = ╱4c╱L╱ // 0x530 @0x17
0x0519…0536 at0018 = ╱33╱3╱ // 0x531 @0x18
0x0519…0536 at0019 = ╱de╱>╱ // 0x532 @0x19
0x0519…0536 at001a = ╱45╱E╱ // 0x533 @0x1a
0x0519…0536 at001b = ╱bb╱ DO ╱ // 0x534 @0x1b
0x0519…0536 at001c = EOL // 0x535 @0x1c
0x0519…0536 }
0x0536…055b 92b2 0630 IF UKODE$(UPIL3)="0" THEN UPIL2=UPIL2-E
0x0536…055b LineComalBin {
0x0536…055b ptr = 0x92b2 // 0x536 @0x0
0x0536…055b lno = 0x0276 // 0x538 @0x2
0x0536…055b at0004 = ╱82╱ IF ╱ // 0x53a @0x4
0x0536…055b at0005 = ╱55╱U╱ // 0x53b @0x5
0x0536…055b at0006 = ╱4b╱K╱ // 0x53c @0x6
0x0536…055b at0007 = ╱4f╱O╱ // 0x53d @0x7
0x0536…055b at0008 = ╱44╱D╱ // 0x53e @0x8
0x0536…055b at0009 = ╱45╱E╱ // 0x53f @0x9
0x0536…055b at000a = ╱ef╱$╱ // 0x540 @0xa
0x0536…055b at000b = ╱ed╱(╱ // 0x541 @0xb
0x0536…055b at000c = ╱55╱U╱ // 0x542 @0xc
0x0536…055b at000d = ╱50╱P╱ // 0x543 @0xd
0x0536…055b at000e = ╱49╱I╱ // 0x544 @0xe
0x0536…055b at000f = ╱4c╱L╱ // 0x545 @0xf
0x0536…055b at0010 = ╱33╱3╱ // 0x546 @0x10
0x0536…055b at0011 = ╱ee╱)╱ // 0x547 @0x11
0x0536…055b at0012 = ╱dc╱=╱ // 0x548 @0x12
0x0536…055b at0013 = ╱22╱"╱ // 0x549 @0x13
0x0536…055b at0014 = ╱30╱0╱ // 0x54a @0x14
0x0536…055b at0015 = ╱22╱"╱ // 0x54b @0x15
0x0536…055b at0016 = ╱b6╱ THEN ╱ // 0x54c @0x16
0x0536…055b at0017 = ╱55╱U╱ // 0x54d @0x17
0x0536…055b at0018 = ╱50╱P╱ // 0x54e @0x18
0x0536…055b at0019 = ╱49╱I╱ // 0x54f @0x19
0x0536…055b at001a = ╱4c╱L╱ // 0x550 @0x1a
0x0536…055b at001b = ╱32╱2╱ // 0x551 @0x1b
0x0536…055b at001c = ╱dc╱=╱ // 0x552 @0x1c
0x0536…055b at001d = ╱55╱U╱ // 0x553 @0x1d
0x0536…055b at001e = ╱50╱P╱ // 0x554 @0x1e
0x0536…055b at001f = ╱49╱I╱ // 0x555 @0x1f
0x0536…055b at0020 = ╱4c╱L╱ // 0x556 @0x20
0x0536…055b at0021 = ╱32╱2╱ // 0x557 @0x21
0x0536…055b at0022 = ╱e3╱-╱ // 0x558 @0x22
0x0536…055b at0023 = ╱45╱E╱ // 0x559 @0x23
0x0536…055b at0024 = EOL // 0x55a @0x24
0x0536…055b }
0x055b…056d 92c4 0640 UPIL3=UPIL3-E
0x055b…056d LineComalBin {
0x055b…056d ptr = 0x92c4 // 0x55b @0x0
0x055b…056d lno = 0x0280 // 0x55d @0x2
0x055b…056d at0004 = ╱55╱U╱ // 0x55f @0x4
0x055b…056d at0005 = ╱50╱P╱ // 0x560 @0x5
0x055b…056d at0006 = ╱49╱I╱ // 0x561 @0x6
0x055b…056d at0007 = ╱4c╱L╱ // 0x562 @0x7
0x055b…056d at0008 = ╱33╱3╱ // 0x563 @0x8
0x055b…056d at0009 = ╱dc╱=╱ // 0x564 @0x9
0x055b…056d at000a = ╱55╱U╱ // 0x565 @0xa
0x055b…056d at000b = ╱50╱P╱ // 0x566 @0xb
0x055b…056d at000c = ╱49╱I╱ // 0x567 @0xc
0x055b…056d at000d = ╱4c╱L╱ // 0x568 @0xd
0x055b…056d at000e = ╱33╱3╱ // 0x569 @0xe
0x055b…056d at000f = ╱e3╱-╱ // 0x56a @0xf
0x055b…056d at0010 = ╱45╱E╱ // 0x56b @0x10
0x055b…056d at0011 = EOL // 0x56c @0x11
0x055b…056d }
0x056d…0573 92ca 0650 ENDWHILE
0x056d…0573 LineComalBin {
0x056d…0573 ptr = 0x92ca // 0x56d @0x0
0x056d…0573 lno = 0x028a // 0x56f @0x2
0x056d…0573 at0004 = ╱94╱ ENDWHILE ╱ // 0x571 @0x4
0x056d…0573 at0005 = EOL // 0x572 @0x5
0x056d…0573 }
0x0573…058e 92e5 0660 IF FNR=UNR(UPIL3) THEN CEKS=B
0x0573…058e LineComalBin {
0x0573…058e ptr = 0x92e5 // 0x573 @0x0
0x0573…058e lno = 0x0294 // 0x575 @0x2
0x0573…058e at0004 = ╱82╱ IF ╱ // 0x577 @0x4
0x0573…058e at0005 = ╱46╱F╱ // 0x578 @0x5
0x0573…058e at0006 = ╱4e╱N╱ // 0x579 @0x6
0x0573…058e at0007 = ╱52╱R╱ // 0x57a @0x7
0x0573…058e at0008 = ╱dc╱=╱ // 0x57b @0x8
0x0573…058e at0009 = ╱55╱U╱ // 0x57c @0x9
0x0573…058e at000a = ╱4e╱N╱ // 0x57d @0xa
0x0573…058e at000b = ╱52╱R╱ // 0x57e @0xb
0x0573…058e at000c = ╱ed╱(╱ // 0x57f @0xc
0x0573…058e at000d = ╱55╱U╱ // 0x580 @0xd
0x0573…058e at000e = ╱50╱P╱ // 0x581 @0xe
0x0573…058e at000f = ╱49╱I╱ // 0x582 @0xf
0x0573…058e at0010 = ╱4c╱L╱ // 0x583 @0x10
0x0573…058e at0011 = ╱33╱3╱ // 0x584 @0x11
0x0573…058e at0012 = ╱ee╱)╱ // 0x585 @0x12
0x0573…058e at0013 = ╱b6╱ THEN ╱ // 0x586 @0x13
0x0573…058e at0014 = ╱43╱C╱ // 0x587 @0x14
0x0573…058e at0015 = ╱45╱E╱ // 0x588 @0x15
0x0573…058e at0016 = ╱4b╱K╱ // 0x589 @0x16
0x0573…058e at0017 = ╱53╱S╱ // 0x58a @0x17
0x0573…058e at0018 = ╱dc╱=╱ // 0x58b @0x18
0x0573…058e at0019 = ╱42╱B╱ // 0x58c @0x19
0x0573…058e at001a = EOL // 0x58d @0x1a
0x0573…058e }
0x058e…05ad 9304 0670 IF UKODE$(UPIL3)="0" THEN CEKS1=B
0x058e…05ad LineComalBin {
0x058e…05ad ptr = 0x9304 // 0x58e @0x0
0x058e…05ad lno = 0x029e // 0x590 @0x2
0x058e…05ad at0004 = ╱82╱ IF ╱ // 0x592 @0x4
0x058e…05ad at0005 = ╱55╱U╱ // 0x593 @0x5
0x058e…05ad at0006 = ╱4b╱K╱ // 0x594 @0x6
0x058e…05ad at0007 = ╱4f╱O╱ // 0x595 @0x7
0x058e…05ad at0008 = ╱44╱D╱ // 0x596 @0x8
0x058e…05ad at0009 = ╱45╱E╱ // 0x597 @0x9
0x058e…05ad at000a = ╱ef╱$╱ // 0x598 @0xa
0x058e…05ad at000b = ╱ed╱(╱ // 0x599 @0xb
0x058e…05ad at000c = ╱55╱U╱ // 0x59a @0xc
0x058e…05ad at000d = ╱50╱P╱ // 0x59b @0xd
0x058e…05ad at000e = ╱49╱I╱ // 0x59c @0xe
0x058e…05ad at000f = ╱4c╱L╱ // 0x59d @0xf
0x058e…05ad at0010 = ╱33╱3╱ // 0x59e @0x10
0x058e…05ad at0011 = ╱ee╱)╱ // 0x59f @0x11
0x058e…05ad at0012 = ╱dc╱=╱ // 0x5a0 @0x12
0x058e…05ad at0013 = ╱22╱"╱ // 0x5a1 @0x13
0x058e…05ad at0014 = ╱30╱0╱ // 0x5a2 @0x14
0x058e…05ad at0015 = ╱22╱"╱ // 0x5a3 @0x15
0x058e…05ad at0016 = ╱b6╱ THEN ╱ // 0x5a4 @0x16
0x058e…05ad at0017 = ╱43╱C╱ // 0x5a5 @0x17
0x058e…05ad at0018 = ╱45╱E╱ // 0x5a6 @0x18
0x058e…05ad at0019 = ╱4b╱K╱ // 0x5a7 @0x19
0x058e…05ad at001a = ╱53╱S╱ // 0x5a8 @0x1a
0x058e…05ad at001b = ╱31╱1╱ // 0x5a9 @0x1b
0x058e…05ad at001c = ╱dc╱=╱ // 0x5aa @0x1c
0x058e…05ad at001d = ╱42╱B╱ // 0x5ab @0x1d
0x058e…05ad at001e = EOL // 0x5ac @0x1e
0x058e…05ad }
0x05ad…05c2 9319 0680 IF FNR>UNR(UPIL3) THEN
0x05ad…05c2 LineComalBin {
0x05ad…05c2 ptr = 0x9319 // 0x5ad @0x0
0x05ad…05c2 lno = 0x02a8 // 0x5af @0x2
0x05ad…05c2 at0004 = ╱9c╱ IF ╱ // 0x5b1 @0x4
0x05ad…05c2 at0005 = ╱46╱F╱ // 0x5b2 @0x5
0x05ad…05c2 at0006 = ╱4e╱N╱ // 0x5b3 @0x6
0x05ad…05c2 at0007 = ╱52╱R╱ // 0x5b4 @0x7
0x05ad…05c2 at0008 = ╱de╱>╱ // 0x5b5 @0x8
0x05ad…05c2 at0009 = ╱55╱U╱ // 0x5b6 @0x9
0x05ad…05c2 at000a = ╱4e╱N╱ // 0x5b7 @0xa
0x05ad…05c2 at000b = ╱52╱R╱ // 0x5b8 @0xb
0x05ad…05c2 at000c = ╱ed╱(╱ // 0x5b9 @0xc
0x05ad…05c2 at000d = ╱55╱U╱ // 0x5ba @0xd
0x05ad…05c2 at000e = ╱50╱P╱ // 0x5bb @0xe
0x05ad…05c2 at000f = ╱49╱I╱ // 0x5bc @0xf
0x05ad…05c2 at0010 = ╱4c╱L╱ // 0x5bd @0x10
0x05ad…05c2 at0011 = ╱33╱3╱ // 0x5be @0x11
0x05ad…05c2 at0012 = ╱ee╱)╱ // 0x5bf @0x12
0x05ad…05c2 at0013 = ╱b6╱ THEN ╱ // 0x5c0 @0x13
0x05ad…05c2 at0014 = EOL // 0x5c1 @0x14
0x05ad…05c2 }
0x05c2…05e4 933b 0681 UPIL2=UPIL2+E*(UPIL2<MUNKANT)
0x05c2…05e4 LineComalBin {
0x05c2…05e4 ptr = 0x933b // 0x5c2 @0x0
0x05c2…05e4 lno = 0x02a9 // 0x5c4 @0x2
0x05c2…05e4 at0004 = ╱55╱U╱ // 0x5c6 @0x4
0x05c2…05e4 at0005 = ╱50╱P╱ // 0x5c7 @0x5
0x05c2…05e4 at0006 = ╱49╱I╱ // 0x5c8 @0x6
0x05c2…05e4 at0007 = ╱4c╱L╱ // 0x5c9 @0x7
0x05c2…05e4 at0008 = ╱32╱2╱ // 0x5ca @0x8
0x05c2…05e4 at0009 = ╱dc╱=╱ // 0x5cb @0x9
0x05c2…05e4 at000a = ╱55╱U╱ // 0x5cc @0xa
0x05c2…05e4 at000b = ╱50╱P╱ // 0x5cd @0xb
0x05c2…05e4 at000c = ╱49╱I╱ // 0x5ce @0xc
0x05c2…05e4 at000d = ╱4c╱L╱ // 0x5cf @0xd
0x05c2…05e4 at000e = ╱32╱2╱ // 0x5d0 @0xe
0x05c2…05e4 at000f = ╱e2╱+╱ // 0x5d1 @0xf
0x05c2…05e4 at0010 = ╱45╱E╱ // 0x5d2 @0x10
0x05c2…05e4 at0011 = ╱e4╱*╱ // 0x5d3 @0x11
0x05c2…05e4 at0012 = ╱ed╱(╱ // 0x5d4 @0x12
0x05c2…05e4 at0013 = ╱55╱U╱ // 0x5d5 @0x13
0x05c2…05e4 at0014 = ╱50╱P╱ // 0x5d6 @0x14
0x05c2…05e4 at0015 = ╱49╱I╱ // 0x5d7 @0x15
0x05c2…05e4 at0016 = ╱4c╱L╱ // 0x5d8 @0x16
0x05c2…05e4 at0017 = ╱32╱2╱ // 0x5d9 @0x17
0x05c2…05e4 at0018 = ╱dd╱<╱ // 0x5da @0x18
0x05c2…05e4 at0019 = ╱4d╱M╱ // 0x5db @0x19
0x05c2…05e4 at001a = ╱55╱U╱ // 0x5dc @0x1a
0x05c2…05e4 at001b = ╱4e╱N╱ // 0x5dd @0x1b
0x05c2…05e4 at001c = ╱4b╱K╱ // 0x5de @0x1c
0x05c2…05e4 at001d = ╱41╱A╱ // 0x5df @0x1d
0x05c2…05e4 at001e = ╱4e╱N╱ // 0x5e0 @0x1e
0x05c2…05e4 at001f = ╱54╱T╱ // 0x5e1 @0x1f
0x05c2…05e4 at0020 = ╱ee╱)╱ // 0x5e2 @0x20
0x05c2…05e4 at0021 = EOL // 0x5e3 @0x21
0x05c2…05e4 }
0x05e4…060c 9363 0682 UPIL3=UPIL3+E*(UPIL3<MUNKANT+METOT)
0x05e4…060c LineComalBin {
0x05e4…060c ptr = 0x9363 // 0x5e4 @0x0
0x05e4…060c lno = 0x02aa // 0x5e6 @0x2
0x05e4…060c at0004 = ╱55╱U╱ // 0x5e8 @0x4
0x05e4…060c at0005 = ╱50╱P╱ // 0x5e9 @0x5
0x05e4…060c at0006 = ╱49╱I╱ // 0x5ea @0x6
0x05e4…060c at0007 = ╱4c╱L╱ // 0x5eb @0x7
0x05e4…060c at0008 = ╱33╱3╱ // 0x5ec @0x8
0x05e4…060c at0009 = ╱dc╱=╱ // 0x5ed @0x9
0x05e4…060c at000a = ╱55╱U╱ // 0x5ee @0xa
0x05e4…060c at000b = ╱50╱P╱ // 0x5ef @0xb
0x05e4…060c at000c = ╱49╱I╱ // 0x5f0 @0xc
0x05e4…060c at000d = ╱4c╱L╱ // 0x5f1 @0xd
0x05e4…060c at000e = ╱33╱3╱ // 0x5f2 @0xe
0x05e4…060c at000f = ╱e2╱+╱ // 0x5f3 @0xf
0x05e4…060c at0010 = ╱45╱E╱ // 0x5f4 @0x10
0x05e4…060c at0011 = ╱e4╱*╱ // 0x5f5 @0x11
0x05e4…060c at0012 = ╱ed╱(╱ // 0x5f6 @0x12
0x05e4…060c at0013 = ╱55╱U╱ // 0x5f7 @0x13
0x05e4…060c at0014 = ╱50╱P╱ // 0x5f8 @0x14
0x05e4…060c at0015 = ╱49╱I╱ // 0x5f9 @0x15
0x05e4…060c at0016 = ╱4c╱L╱ // 0x5fa @0x16
0x05e4…060c at0017 = ╱33╱3╱ // 0x5fb @0x17
0x05e4…060c at0018 = ╱dd╱<╱ // 0x5fc @0x18
0x05e4…060c at0019 = ╱4d╱M╱ // 0x5fd @0x19
0x05e4…060c at001a = ╱55╱U╱ // 0x5fe @0x1a
0x05e4…060c at001b = ╱4e╱N╱ // 0x5ff @0x1b
0x05e4…060c at001c = ╱4b╱K╱ // 0x600 @0x1c
0x05e4…060c at001d = ╱41╱A╱ // 0x601 @0x1d
0x05e4…060c at001e = ╱4e╱N╱ // 0x602 @0x1e
0x05e4…060c at001f = ╱54╱T╱ // 0x603 @0x1f
0x05e4…060c at0020 = ╱e2╱+╱ // 0x604 @0x20
0x05e4…060c at0021 = ╱4d╱M╱ // 0x605 @0x21
0x05e4…060c at0022 = ╱45╱E╱ // 0x606 @0x22
0x05e4…060c at0023 = ╱54╱T╱ // 0x607 @0x23
0x05e4…060c at0024 = ╱4f╱O╱ // 0x608 @0x24
0x05e4…060c at0025 = ╱54╱T╱ // 0x609 @0x25
0x05e4…060c at0026 = ╱ee╱)╱ // 0x60a @0x26
0x05e4…060c at0027 = EOL // 0x60b @0x27
0x05e4…060c }
0x060c…0612 9369 0683 ENDIF
0x060c…0612 LineComalBin {
0x060c…0612 ptr = 0x9369 // 0x60c @0x0
0x060c…0612 lno = 0x02ab // 0x60e @0x2
0x060c…0612 at0004 = ╱9b╱ ENDIF ╱ // 0x610 @0x4
0x060c…0612 at0005 = EOL // 0x611 @0x5
0x060c…0612 }
0x0612…0618 936f 0690 ENDPROC
0x0612…0618 LineComalBin {
0x0612…0618 ptr = 0x936f // 0x612 @0x0
0x0612…0618 lno = 0x02b2 // 0x614 @0x2
0x0612…0618 at0004 = ╱9f╱ ENDPROC ╱ // 0x616 @0x4
0x0612…0618 at0005 = EOL // 0x617 @0x5
0x0612…0618 }
0x0618…0624 937b 0700 PROC INDSÆT
0x0618…0624 LineComalBin {
0x0618…0624 ptr = 0x937b // 0x618 @0x0
0x0618…0624 lno = 0x02bc // 0x61a @0x2
0x0618…0624 at0004 = ╱9e╱ PROC ╱ // 0x61c @0x4
0x0618…0624 at0005 = ╱49╱I╱ // 0x61d @0x5
0x0618…0624 at0006 = ╱4e╱N╱ // 0x61e @0x6
0x0618…0624 at0007 = ╱44╱D╱ // 0x61f @0x7
0x0618…0624 at0008 = ╱53╱S╱ // 0x620 @0x8
0x0618…0624 at0009 = ╱5b╱Æ╱ // 0x621 @0x9
0x0618…0624 at000a = ╱54╱T╱ // 0x622 @0xa
0x0618…0624 at000b = EOL // 0x623 @0xb
0x0618…0624 }
0x0624…0631 9388 0710 IF CEKS=E THEN
0x0624…0631 LineComalBin {
0x0624…0631 ptr = 0x9388 // 0x624 @0x0
0x0624…0631 lno = 0x02c6 // 0x626 @0x2
0x0624…0631 at0004 = ╱9c╱ IF ╱ // 0x628 @0x4
0x0624…0631 at0005 = ╱43╱C╱ // 0x629 @0x5
0x0624…0631 at0006 = ╱45╱E╱ // 0x62a @0x6
0x0624…0631 at0007 = ╱4b╱K╱ // 0x62b @0x7
0x0624…0631 at0008 = ╱53╱S╱ // 0x62c @0x8
0x0624…0631 at0009 = ╱dc╱=╱ // 0x62d @0x9
0x0624…0631 at000a = ╱45╱E╱ // 0x62e @0xa
0x0624…0631 at000b = ╱b6╱ THEN ╱ // 0x62f @0xb
0x0624…0631 at000c = EOL // 0x630 @0xc
0x0624…0631 }
0x0631…064f 93a6 0720 FOR I=AUNK+ETOT+E TO UPIL3+E STEP -E
0x0631…064f LineComalBin {
0x0631…064f ptr = 0x93a6 // 0x631 @0x0
0x0631…064f lno = 0x02d0 // 0x633 @0x2
0x0631…064f at0004 = ╱83╱ FOR ╱ // 0x635 @0x4
0x0631…064f at0005 = ╱49╱I╱ // 0x636 @0x5
0x0631…064f at0006 = ╱dc╱=╱ // 0x637 @0x6
0x0631…064f at0007 = ╱41╱A╱ // 0x638 @0x7
0x0631…064f at0008 = ╱55╱U╱ // 0x639 @0x8
0x0631…064f at0009 = ╱4e╱N╱ // 0x63a @0x9
0x0631…064f at000a = ╱4b╱K╱ // 0x63b @0xa
0x0631…064f at000b = ╱e2╱+╱ // 0x63c @0xb
0x0631…064f at000c = ╱45╱E╱ // 0x63d @0xc
0x0631…064f at000d = ╱54╱T╱ // 0x63e @0xd
0x0631…064f at000e = ╱4f╱O╱ // 0x63f @0xe
0x0631…064f at000f = ╱54╱T╱ // 0x640 @0xf
0x0631…064f at0010 = ╱e2╱+╱ // 0x641 @0x10
0x0631…064f at0011 = ╱45╱E╱ // 0x642 @0x11
0x0631…064f at0012 = ╱b7╱ TO ╱ // 0x643 @0x12
0x0631…064f at0013 = ╱55╱U╱ // 0x644 @0x13
0x0631…064f at0014 = ╱50╱P╱ // 0x645 @0x14
0x0631…064f at0015 = ╱49╱I╱ // 0x646 @0x15
0x0631…064f at0016 = ╱4c╱L╱ // 0x647 @0x16
0x0631…064f at0017 = ╱33╱3╱ // 0x648 @0x17
0x0631…064f at0018 = ╱e2╱+╱ // 0x649 @0x18
0x0631…064f at0019 = ╱45╱E╱ // 0x64a @0x19
0x0631…064f at001a = ╱b8╱ STEP ╱ // 0x64b @0x1a
0x0631…064f at001b = ╱e9╱-╱ // 0x64c @0x1b
0x0631…064f at001c = ╱45╱E╱ // 0x64d @0x1c
0x0631…064f at001d = EOL // 0x64e @0x1d
0x0631…064f }
0x064f…068f 93e6 0730 UNR(I)=UNR(I-E);UKODE$(I)=UKODE$(I-E);UNAVN$(I)=UNAVN$(I-E)
0x064f…068f LineComalBin {
0x064f…068f ptr = 0x93e6 // 0x64f @0x0
0x064f…068f lno = 0x02da // 0x651 @0x2
0x064f…068f at0004 = ╱55╱U╱ // 0x653 @0x4
0x064f…068f at0005 = ╱4e╱N╱ // 0x654 @0x5
0x064f…068f at0006 = ╱52╱R╱ // 0x655 @0x6
0x064f…068f at0007 = ╱ed╱(╱ // 0x656 @0x7
0x064f…068f at0008 = ╱49╱I╱ // 0x657 @0x8
0x064f…068f at0009 = ╱ee╱)╱ // 0x658 @0x9
0x064f…068f at000a = ╱dc╱=╱ // 0x659 @0xa
0x064f…068f at000b = ╱55╱U╱ // 0x65a @0xb
0x064f…068f at000c = ╱4e╱N╱ // 0x65b @0xc
0x064f…068f at000d = ╱52╱R╱ // 0x65c @0xd
0x064f…068f at000e = ╱ed╱(╱ // 0x65d @0xe
0x064f…068f at000f = ╱49╱I╱ // 0x65e @0xf
0x064f…068f at0010 = ╱e3╱-╱ // 0x65f @0x10
0x064f…068f at0011 = ╱45╱E╱ // 0x660 @0x11
0x064f…068f at0012 = ╱ee╱)╱ // 0x661 @0x12
0x064f…068f at0013 = ╱eb╱;╱ // 0x662 @0x13
0x064f…068f at0014 = ╱55╱U╱ // 0x663 @0x14
0x064f…068f at0015 = ╱4b╱K╱ // 0x664 @0x15
0x064f…068f at0016 = ╱4f╱O╱ // 0x665 @0x16
0x064f…068f at0017 = ╱44╱D╱ // 0x666 @0x17
0x064f…068f at0018 = ╱45╱E╱ // 0x667 @0x18
0x064f…068f at0019 = ╱ef╱$╱ // 0x668 @0x19
0x064f…068f at001a = ╱ed╱(╱ // 0x669 @0x1a
0x064f…068f at001b = ╱49╱I╱ // 0x66a @0x1b
0x064f…068f at001c = ╱ee╱)╱ // 0x66b @0x1c
0x064f…068f at001d = ╱dc╱=╱ // 0x66c @0x1d
0x064f…068f at001e = ╱55╱U╱ // 0x66d @0x1e
0x064f…068f at001f = ╱4b╱K╱ // 0x66e @0x1f
0x064f…068f at0020 = ╱4f╱O╱ // 0x66f @0x20
0x064f…068f at0021 = ╱44╱D╱ // 0x670 @0x21
0x064f…068f at0022 = ╱45╱E╱ // 0x671 @0x22
0x064f…068f at0023 = ╱ef╱$╱ // 0x672 @0x23
0x064f…068f at0024 = ╱ed╱(╱ // 0x673 @0x24
0x064f…068f at0025 = ╱49╱I╱ // 0x674 @0x25
0x064f…068f at0026 = ╱e3╱-╱ // 0x675 @0x26
0x064f…068f at0027 = ╱45╱E╱ // 0x676 @0x27
0x064f…068f at0028 = ╱ee╱)╱ // 0x677 @0x28
0x064f…068f at0029 = ╱eb╱;╱ // 0x678 @0x29
0x064f…068f at002a = ╱55╱U╱ // 0x679 @0x2a
0x064f…068f at002b = ╱4e╱N╱ // 0x67a @0x2b
0x064f…068f at002c = ╱41╱A╱ // 0x67b @0x2c
0x064f…068f at002d = ╱56╱V╱ // 0x67c @0x2d
0x064f…068f at002e = ╱4e╱N╱ // 0x67d @0x2e
0x064f…068f at002f = ╱ef╱$╱ // 0x67e @0x2f
0x064f…068f at0030 = ╱ed╱(╱ // 0x67f @0x30
0x064f…068f at0031 = ╱49╱I╱ // 0x680 @0x31
0x064f…068f at0032 = ╱ee╱)╱ // 0x681 @0x32
0x064f…068f at0033 = ╱dc╱=╱ // 0x682 @0x33
0x064f…068f at0034 = ╱55╱U╱ // 0x683 @0x34
0x064f…068f at0035 = ╱4e╱N╱ // 0x684 @0x35
0x064f…068f at0036 = ╱41╱A╱ // 0x685 @0x36
0x064f…068f at0037 = ╱56╱V╱ // 0x686 @0x37
0x064f…068f at0038 = ╱4e╱N╱ // 0x687 @0x38
0x064f…068f at0039 = ╱ef╱$╱ // 0x688 @0x39
0x064f…068f at003a = ╱ed╱(╱ // 0x689 @0x3a
0x064f…068f at003b = ╱49╱I╱ // 0x68a @0x3b
0x064f…068f at003c = ╱e3╱-╱ // 0x68b @0x3c
0x064f…068f at003d = ╱45╱E╱ // 0x68c @0x3d
0x064f…068f at003e = ╱ee╱)╱ // 0x68d @0x3e
0x064f…068f at003f = EOL // 0x68e @0x3f
0x064f…068f }
0x068f…0696 93ed 0740 NEXT I
0x068f…0696 LineComalBin {
0x068f…0696 ptr = 0x93ed // 0x68f @0x0
0x068f…0696 lno = 0x02e4 // 0x691 @0x2
0x068f…0696 at0004 = ╱84╱ NEXT ╱ // 0x693 @0x4
0x068f…0696 at0005 = ╱49╱I╱ // 0x694 @0x5
0x068f…0696 at0006 = EOL // 0x695 @0x6
0x068f…0696 }
0x0696…06a8 93ff 0750 IF FUKODE$="0" THEN
0x0696…06a8 LineComalBin {
0x0696…06a8 ptr = 0x93ff // 0x696 @0x0
0x0696…06a8 lno = 0x02ee // 0x698 @0x2
0x0696…06a8 at0004 = ╱9c╱ IF ╱ // 0x69a @0x4
0x0696…06a8 at0005 = ╱46╱F╱ // 0x69b @0x5
0x0696…06a8 at0006 = ╱55╱U╱ // 0x69c @0x6
0x0696…06a8 at0007 = ╱4b╱K╱ // 0x69d @0x7
0x0696…06a8 at0008 = ╱4f╱O╱ // 0x69e @0x8
0x0696…06a8 at0009 = ╱44╱D╱ // 0x69f @0x9
0x0696…06a8 at000a = ╱45╱E╱ // 0x6a0 @0xa
0x0696…06a8 at000b = ╱ef╱$╱ // 0x6a1 @0xb
0x0696…06a8 at000c = ╱dc╱=╱ // 0x6a2 @0xc
0x0696…06a8 at000d = ╱22╱"╱ // 0x6a3 @0xd
0x0696…06a8 at000e = ╱30╱0╱ // 0x6a4 @0xe
0x0696…06a8 at000f = ╱22╱"╱ // 0x6a5 @0xf
0x0696…06a8 at0010 = ╱b6╱ THEN ╱ // 0x6a6 @0x10
0x0696…06a8 at0011 = EOL // 0x6a7 @0x11
0x0696…06a8 }
0x06a8…06ba 9411 0760 FOR EPIL3=E TO AENT
0x06a8…06ba LineComalBin {
0x06a8…06ba ptr = 0x9411 // 0x6a8 @0x0
0x06a8…06ba lno = 0x02f8 // 0x6aa @0x2
0x06a8…06ba at0004 = ╱83╱ FOR ╱ // 0x6ac @0x4
0x06a8…06ba at0005 = ╱45╱E╱ // 0x6ad @0x5
0x06a8…06ba at0006 = ╱50╱P╱ // 0x6ae @0x6
0x06a8…06ba at0007 = ╱49╱I╱ // 0x6af @0x7
0x06a8…06ba at0008 = ╱4c╱L╱ // 0x6b0 @0x8
0x06a8…06ba at0009 = ╱33╱3╱ // 0x6b1 @0x9
0x06a8…06ba at000a = ╱dc╱=╱ // 0x6b2 @0xa
0x06a8…06ba at000b = ╱45╱E╱ // 0x6b3 @0xb
0x06a8…06ba at000c = ╱b7╱ TO ╱ // 0x6b4 @0xc
0x06a8…06ba at000d = ╱41╱A╱ // 0x6b5 @0xd
0x06a8…06ba at000e = ╱45╱E╱ // 0x6b6 @0xe
0x06a8…06ba at000f = ╱4e╱N╱ // 0x6b7 @0xf
0x06a8…06ba at0010 = ╱54╱T╱ // 0x6b8 @0x10
0x06a8…06ba at0011 = EOL // 0x6b9 @0x11
0x06a8…06ba }
0x06ba…06db 9432 0770 IF ETAB(EPIL3,E)<1000000 THEN
0x06ba…06db LineComalBin {
0x06ba…06db ptr = 0x9432 // 0x6ba @0x0
0x06ba…06db lno = 0x0302 // 0x6bc @0x2
0x06ba…06db at0004 = ╱9c╱ IF ╱ // 0x6be @0x4
0x06ba…06db at0005 = ╱45╱E╱ // 0x6bf @0x5
0x06ba…06db at0006 = ╱54╱T╱ // 0x6c0 @0x6
0x06ba…06db at0007 = ╱41╱A╱ // 0x6c1 @0x7
0x06ba…06db at0008 = ╱42╱B╱ // 0x6c2 @0x8
0x06ba…06db at0009 = ╱ed╱(╱ // 0x6c3 @0x9
0x06ba…06db at000a = ╱45╱E╱ // 0x6c4 @0xa
0x06ba…06db at000b = ╱50╱P╱ // 0x6c5 @0xb
0x06ba…06db at000c = ╱49╱I╱ // 0x6c6 @0xc
0x06ba…06db at000d = ╱4c╱L╱ // 0x6c7 @0xd
0x06ba…06db at000e = ╱33╱3╱ // 0x6c8 @0xe
0x06ba…06db at000f = ╱ec╱,╱ // 0x6c9 @0xf
0x06ba…06db at0010 = ╱45╱E╱ // 0x6ca @0x10
0x06ba…06db at0011 = ╱ee╱)╱ // 0x6cb @0x11
0x06ba…06db at0012 = ╱dd╱<╱ // 0x6cc @0x12
0x06ba…06db at0013 = ╱31╱1╱ // 0x6cd @0x13
0x06ba…06db at0014 = ╱30╱0╱ // 0x6ce @0x14
0x06ba…06db at0015 = ╱30╱0╱ // 0x6cf @0x15
0x06ba…06db at0016 = ╱30╱0╱ // 0x6d0 @0x16
0x06ba…06db at0017 = ╱30╱0╱ // 0x6d1 @0x17
0x06ba…06db at0018 = ╱30╱0╱ // 0x6d2 @0x18
0x06ba…06db at0019 = ╱30╱0╱ // 0x6d3 @0x19
0x06ba…06db at001a = ╱fe0024f414╱ // 0x6d4 @0x1a
0x06ba…06db at001f = ╱b6╱ THEN ╱ // 0x6d9 @0x1f
0x06ba…06db at0020 = EOL // 0x6da @0x20
0x06ba…06db }
0x06db…06ea 9441 0780 EXEC HENTEPOST
0x06db…06ea LineComalBin {
0x06db…06ea ptr = 0x9441 // 0x6db @0x0
0x06db…06ea lno = 0x030c // 0x6dd @0x2
0x06db…06ea at0004 = ╱9d╱ EXEC ╱ // 0x6df @0x4
0x06db…06ea at0005 = ╱48╱H╱ // 0x6e0 @0x5
0x06db…06ea at0006 = ╱45╱E╱ // 0x6e1 @0x6
0x06db…06ea at0007 = ╱4e╱N╱ // 0x6e2 @0x7
0x06db…06ea at0008 = ╱54╱T╱ // 0x6e3 @0x8
0x06db…06ea at0009 = ╱45╱E╱ // 0x6e4 @0x9
0x06db…06ea at000a = ╱50╱P╱ // 0x6e5 @0xa
0x06db…06ea at000b = ╱4f╱O╱ // 0x6e6 @0xb
0x06db…06ea at000c = ╱53╱S╱ // 0x6e7 @0xc
0x06db…06ea at000d = ╱54╱T╱ // 0x6e8 @0xd
0x06db…06ea at000e = EOL // 0x6e9 @0xe
0x06db…06ea }
0x06ea…0703 945a 0790 FOR I=AUNK+E TO UPIL2+E STEP -E
0x06ea…0703 LineComalBin {
0x06ea…0703 ptr = 0x945a // 0x6ea @0x0
0x06ea…0703 lno = 0x0316 // 0x6ec @0x2
0x06ea…0703 at0004 = ╱83╱ FOR ╱ // 0x6ee @0x4
0x06ea…0703 at0005 = ╱49╱I╱ // 0x6ef @0x5
0x06ea…0703 at0006 = ╱dc╱=╱ // 0x6f0 @0x6
0x06ea…0703 at0007 = ╱41╱A╱ // 0x6f1 @0x7
0x06ea…0703 at0008 = ╱55╱U╱ // 0x6f2 @0x8
0x06ea…0703 at0009 = ╱4e╱N╱ // 0x6f3 @0x9
0x06ea…0703 at000a = ╱4b╱K╱ // 0x6f4 @0xa
0x06ea…0703 at000b = ╱e2╱+╱ // 0x6f5 @0xb
0x06ea…0703 at000c = ╱45╱E╱ // 0x6f6 @0xc
0x06ea…0703 at000d = ╱b7╱ TO ╱ // 0x6f7 @0xd
0x06ea…0703 at000e = ╱55╱U╱ // 0x6f8 @0xe
0x06ea…0703 at000f = ╱50╱P╱ // 0x6f9 @0xf
0x06ea…0703 at0010 = ╱49╱I╱ // 0x6fa @0x10
0x06ea…0703 at0011 = ╱4c╱L╱ // 0x6fb @0x11
0x06ea…0703 at0012 = ╱32╱2╱ // 0x6fc @0x12
0x06ea…0703 at0013 = ╱e2╱+╱ // 0x6fd @0x13
0x06ea…0703 at0014 = ╱45╱E╱ // 0x6fe @0x14
0x06ea…0703 at0015 = ╱b8╱ STEP ╱ // 0x6ff @0x15
0x06ea…0703 at0016 = ╱e9╱-╱ // 0x700 @0x16
0x06ea…0703 at0017 = ╱45╱E╱ // 0x701 @0x17
0x06ea…0703 at0018 = EOL // 0x702 @0x18
0x06ea…0703 }
0x0703…0741 9498 0800 UKNR(I)=UKNR(I-E);MBEV$(I)=MBEV$(I-E);YBEV$(I)=YBEV$(I-E)
0x0703…0741 LineComalBin {
0x0703…0741 ptr = 0x9498 // 0x703 @0x0
0x0703…0741 lno = 0x0320 // 0x705 @0x2
0x0703…0741 at0004 = ╱55╱U╱ // 0x707 @0x4
0x0703…0741 at0005 = ╱4b╱K╱ // 0x708 @0x5
0x0703…0741 at0006 = ╱4e╱N╱ // 0x709 @0x6
0x0703…0741 at0007 = ╱52╱R╱ // 0x70a @0x7
0x0703…0741 at0008 = ╱ed╱(╱ // 0x70b @0x8
0x0703…0741 at0009 = ╱49╱I╱ // 0x70c @0x9
0x0703…0741 at000a = ╱ee╱)╱ // 0x70d @0xa
0x0703…0741 at000b = ╱dc╱=╱ // 0x70e @0xb
0x0703…0741 at000c = ╱55╱U╱ // 0x70f @0xc
0x0703…0741 at000d = ╱4b╱K╱ // 0x710 @0xd
0x0703…0741 at000e = ╱4e╱N╱ // 0x711 @0xe
0x0703…0741 at000f = ╱52╱R╱ // 0x712 @0xf
0x0703…0741 at0010 = ╱ed╱(╱ // 0x713 @0x10
0x0703…0741 at0011 = ╱49╱I╱ // 0x714 @0x11
0x0703…0741 at0012 = ╱e3╱-╱ // 0x715 @0x12
0x0703…0741 at0013 = ╱45╱E╱ // 0x716 @0x13
0x0703…0741 at0014 = ╱ee╱)╱ // 0x717 @0x14
0x0703…0741 at0015 = ╱eb╱;╱ // 0x718 @0x15
0x0703…0741 at0016 = ╱4d╱M╱ // 0x719 @0x16
0x0703…0741 at0017 = ╱42╱B╱ // 0x71a @0x17
0x0703…0741 at0018 = ╱45╱E╱ // 0x71b @0x18
0x0703…0741 at0019 = ╱56╱V╱ // 0x71c @0x19
0x0703…0741 at001a = ╱ef╱$╱ // 0x71d @0x1a
0x0703…0741 at001b = ╱ed╱(╱ // 0x71e @0x1b
0x0703…0741 at001c = ╱49╱I╱ // 0x71f @0x1c
0x0703…0741 at001d = ╱ee╱)╱ // 0x720 @0x1d
0x0703…0741 at001e = ╱dc╱=╱ // 0x721 @0x1e
0x0703…0741 at001f = ╱4d╱M╱ // 0x722 @0x1f
0x0703…0741 at0020 = ╱42╱B╱ // 0x723 @0x20
0x0703…0741 at0021 = ╱45╱E╱ // 0x724 @0x21
0x0703…0741 at0022 = ╱56╱V╱ // 0x725 @0x22
0x0703…0741 at0023 = ╱ef╱$╱ // 0x726 @0x23
0x0703…0741 at0024 = ╱ed╱(╱ // 0x727 @0x24
0x0703…0741 at0025 = ╱49╱I╱ // 0x728 @0x25
0x0703…0741 at0026 = ╱e3╱-╱ // 0x729 @0x26
0x0703…0741 at0027 = ╱45╱E╱ // 0x72a @0x27
0x0703…0741 at0028 = ╱ee╱)╱ // 0x72b @0x28
0x0703…0741 at0029 = ╱eb╱;╱ // 0x72c @0x29
0x0703…0741 at002a = ╱59╱Y╱ // 0x72d @0x2a
0x0703…0741 at002b = ╱42╱B╱ // 0x72e @0x2b
0x0703…0741 at002c = ╱45╱E╱ // 0x72f @0x2c
0x0703…0741 at002d = ╱56╱V╱ // 0x730 @0x2d
0x0703…0741 at002e = ╱ef╱$╱ // 0x731 @0x2e
0x0703…0741 at002f = ╱ed╱(╱ // 0x732 @0x2f
0x0703…0741 at0030 = ╱49╱I╱ // 0x733 @0x30
0x0703…0741 at0031 = ╱ee╱)╱ // 0x734 @0x31
0x0703…0741 at0032 = ╱dc╱=╱ // 0x735 @0x32
0x0703…0741 at0033 = ╱59╱Y╱ // 0x736 @0x33
0x0703…0741 at0034 = ╱42╱B╱ // 0x737 @0x34
0x0703…0741 at0035 = ╱45╱E╱ // 0x738 @0x35
0x0703…0741 at0036 = ╱56╱V╱ // 0x739 @0x36
0x0703…0741 at0037 = ╱ef╱$╱ // 0x73a @0x37
0x0703…0741 at0038 = ╱ed╱(╱ // 0x73b @0x38
0x0703…0741 at0039 = ╱49╱I╱ // 0x73c @0x39
0x0703…0741 at003a = ╱e3╱-╱ // 0x73d @0x3a
0x0703…0741 at003b = ╱45╱E╱ // 0x73e @0x3b
0x0703…0741 at003c = ╱ee╱)╱ // 0x73f @0x3c
0x0703…0741 at003d = EOL // 0x740 @0x3d
0x0703…0741 }
0x0741…0748 949f 0810 NEXT I
0x0741…0748 LineComalBin {
0x0741…0748 ptr = 0x949f // 0x741 @0x0
0x0741…0748 lno = 0x032a // 0x743 @0x2
0x0741…0748 at0004 = ╱84╱ NEXT ╱ // 0x745 @0x4
0x0741…0748 at0005 = ╱49╱I╱ // 0x746 @0x5
0x0741…0748 at0006 = EOL // 0x747 @0x6
0x0741…0748 }
0x0748…0780 94d7 0820 UKNR(UPIL2)=FNR;MBEV$(UPIL2)="0+";YBEV$(UPIL2)="0+"
0x0748…0780 LineComalBin {
0x0748…0780 ptr = 0x94d7 // 0x748 @0x0
0x0748…0780 lno = 0x0334 // 0x74a @0x2
0x0748…0780 at0004 = ╱55╱U╱ // 0x74c @0x4
0x0748…0780 at0005 = ╱4b╱K╱ // 0x74d @0x5
0x0748…0780 at0006 = ╱4e╱N╱ // 0x74e @0x6
0x0748…0780 at0007 = ╱52╱R╱ // 0x74f @0x7
0x0748…0780 at0008 = ╱ed╱(╱ // 0x750 @0x8
0x0748…0780 at0009 = ╱55╱U╱ // 0x751 @0x9
0x0748…0780 at000a = ╱50╱P╱ // 0x752 @0xa
0x0748…0780 at000b = ╱49╱I╱ // 0x753 @0xb
0x0748…0780 at000c = ╱4c╱L╱ // 0x754 @0xc
0x0748…0780 at000d = ╱32╱2╱ // 0x755 @0xd
0x0748…0780 at000e = ╱ee╱)╱ // 0x756 @0xe
0x0748…0780 at000f = ╱dc╱=╱ // 0x757 @0xf
0x0748…0780 at0010 = ╱46╱F╱ // 0x758 @0x10
0x0748…0780 at0011 = ╱4e╱N╱ // 0x759 @0x11
0x0748…0780 at0012 = ╱52╱R╱ // 0x75a @0x12
0x0748…0780 at0013 = ╱eb╱;╱ // 0x75b @0x13
0x0748…0780 at0014 = ╱4d╱M╱ // 0x75c @0x14
0x0748…0780 at0015 = ╱42╱B╱ // 0x75d @0x15
0x0748…0780 at0016 = ╱45╱E╱ // 0x75e @0x16
0x0748…0780 at0017 = ╱56╱V╱ // 0x75f @0x17
0x0748…0780 at0018 = ╱ef╱$╱ // 0x760 @0x18
0x0748…0780 at0019 = ╱ed╱(╱ // 0x761 @0x19
0x0748…0780 at001a = ╱55╱U╱ // 0x762 @0x1a
0x0748…0780 at001b = ╱50╱P╱ // 0x763 @0x1b
0x0748…0780 at001c = ╱49╱I╱ // 0x764 @0x1c
0x0748…0780 at001d = ╱4c╱L╱ // 0x765 @0x1d
0x0748…0780 at001e = ╱32╱2╱ // 0x766 @0x1e
0x0748…0780 at001f = ╱ee╱)╱ // 0x767 @0x1f
0x0748…0780 at0020 = ╱dc╱=╱ // 0x768 @0x20
0x0748…0780 at0021 = ╱22╱"╱ // 0x769 @0x21
0x0748…0780 at0022 = ╱30╱0╱ // 0x76a @0x22
0x0748…0780 at0023 = ╱2b╱+╱ // 0x76b @0x23
0x0748…0780 at0024 = ╱22╱"╱ // 0x76c @0x24
0x0748…0780 at0025 = ╱eb╱;╱ // 0x76d @0x25
0x0748…0780 at0026 = ╱59╱Y╱ // 0x76e @0x26
0x0748…0780 at0027 = ╱42╱B╱ // 0x76f @0x27
0x0748…0780 at0028 = ╱45╱E╱ // 0x770 @0x28
0x0748…0780 at0029 = ╱56╱V╱ // 0x771 @0x29
0x0748…0780 at002a = ╱ef╱$╱ // 0x772 @0x2a
0x0748…0780 at002b = ╱ed╱(╱ // 0x773 @0x2b
0x0748…0780 at002c = ╱55╱U╱ // 0x774 @0x2c
0x0748…0780 at002d = ╱50╱P╱ // 0x775 @0x2d
0x0748…0780 at002e = ╱49╱I╱ // 0x776 @0x2e
0x0748…0780 at002f = ╱4c╱L╱ // 0x777 @0x2f
0x0748…0780 at0030 = ╱32╱2╱ // 0x778 @0x30
0x0748…0780 at0031 = ╱ee╱)╱ // 0x779 @0x31
0x0748…0780 at0032 = ╱dc╱=╱ // 0x77a @0x32
0x0748…0780 at0033 = ╱22╱"╱ // 0x77b @0x33
0x0748…0780 at0034 = ╱30╱0╱ // 0x77c @0x34
0x0748…0780 at0035 = ╱2b╱+╱ // 0x77d @0x35
0x0748…0780 at0036 = ╱22╱"╱ // 0x77e @0x36
0x0748…0780 at0037 = EOL // 0x77f @0x37
0x0748…0780 }
0x0780…078e 94e5 0830 EXEC GEMEPOST
0x0780…078e LineComalBin {
0x0780…078e ptr = 0x94e5 // 0x780 @0x0
0x0780…078e lno = 0x033e // 0x782 @0x2
0x0780…078e at0004 = ╱9d╱ EXEC ╱ // 0x784 @0x4
0x0780…078e at0005 = ╱47╱G╱ // 0x785 @0x5
0x0780…078e at0006 = ╱45╱E╱ // 0x786 @0x6
0x0780…078e at0007 = ╱4d╱M╱ // 0x787 @0x7
0x0780…078e at0008 = ╱45╱E╱ // 0x788 @0x8
0x0780…078e at0009 = ╱50╱P╱ // 0x789 @0x9
0x0780…078e at000a = ╱4f╱O╱ // 0x78a @0xa
0x0780…078e at000b = ╱53╱S╱ // 0x78b @0xb
0x0780…078e at000c = ╱54╱T╱ // 0x78c @0xc
0x0780…078e at000d = EOL // 0x78d @0xd
0x0780…078e }
0x078e…0794 94eb 0840 ENDIF
0x078e…0794 LineComalBin {
0x078e…0794 ptr = 0x94eb // 0x78e @0x0
0x078e…0794 lno = 0x0348 // 0x790 @0x2
0x078e…0794 at0004 = ╱9b╱ ENDIF ╱ // 0x792 @0x4
0x078e…0794 at0005 = EOL // 0x793 @0x5
0x078e…0794 }
0x0794…079f 94f6 0850 NEXT EPIL3
0x0794…079f LineComalBin {
0x0794…079f ptr = 0x94f6 // 0x794 @0x0
0x0794…079f lno = 0x0352 // 0x796 @0x2
0x0794…079f at0004 = ╱84╱ NEXT ╱ // 0x798 @0x4
0x0794…079f at0005 = ╱45╱E╱ // 0x799 @0x5
0x0794…079f at0006 = ╱50╱P╱ // 0x79a @0x6
0x0794…079f at0007 = ╱49╱I╱ // 0x79b @0x7
0x0794…079f at0008 = ╱4c╱L╱ // 0x79c @0x8
0x0794…079f at0009 = ╱33╱3╱ // 0x79d @0x9
0x0794…079f at000a = EOL // 0x79e @0xa
0x0794…079f }
0x079f…07af 9506 0860 AUNK=AUNK+E
0x079f…07af LineComalBin {
0x079f…07af ptr = 0x9506 // 0x79f @0x0
0x079f…07af lno = 0x035c // 0x7a1 @0x2
0x079f…07af at0004 = ╱41╱A╱ // 0x7a3 @0x4
0x079f…07af at0005 = ╱55╱U╱ // 0x7a4 @0x5
0x079f…07af at0006 = ╱4e╱N╱ // 0x7a5 @0x6
0x079f…07af at0007 = ╱4b╱K╱ // 0x7a6 @0x7
0x079f…07af at0008 = ╱dc╱=╱ // 0x7a7 @0x8
0x079f…07af at0009 = ╱41╱A╱ // 0x7a8 @0x9
0x079f…07af at000a = ╱55╱U╱ // 0x7a9 @0xa
0x079f…07af at000b = ╱4e╱N╱ // 0x7aa @0xb
0x079f…07af at000c = ╱4b╱K╱ // 0x7ab @0xc
0x079f…07af at000d = ╱e2╱+╱ // 0x7ac @0xd
0x079f…07af at000e = ╱45╱E╱ // 0x7ad @0xe
0x079f…07af at000f = EOL // 0x7ae @0xf
0x079f…07af }
0x07af…07b5 950c 0870 ELSE
0x07af…07b5 LineComalBin {
0x07af…07b5 ptr = 0x950c // 0x7af @0x0
0x07af…07b5 lno = 0x0366 // 0x7b1 @0x2
0x07af…07b5 at0004 = ╱9a╱ ELSE ╱ // 0x7b3 @0x4
0x07af…07b5 at0005 = EOL // 0x7b4 @0x5
0x07af…07b5 }
0x07b5…07c5 951c 0880 ETOT=ETOT+E
0x07b5…07c5 LineComalBin {
0x07b5…07c5 ptr = 0x951c // 0x7b5 @0x0
0x07b5…07c5 lno = 0x0370 // 0x7b7 @0x2
0x07b5…07c5 at0004 = ╱45╱E╱ // 0x7b9 @0x4
0x07b5…07c5 at0005 = ╱54╱T╱ // 0x7ba @0x5
0x07b5…07c5 at0006 = ╱4f╱O╱ // 0x7bb @0x6
0x07b5…07c5 at0007 = ╱54╱T╱ // 0x7bc @0x7
0x07b5…07c5 at0008 = ╱dc╱=╱ // 0x7bd @0x8
0x07b5…07c5 at0009 = ╱45╱E╱ // 0x7be @0x9
0x07b5…07c5 at000a = ╱54╱T╱ // 0x7bf @0xa
0x07b5…07c5 at000b = ╱4f╱O╱ // 0x7c0 @0xb
0x07b5…07c5 at000c = ╱54╱T╱ // 0x7c1 @0xc
0x07b5…07c5 at000d = ╱e2╱+╱ // 0x7c2 @0xd
0x07b5…07c5 at000e = ╱45╱E╱ // 0x7c3 @0xe
0x07b5…07c5 at000f = EOL // 0x7c4 @0xf
0x07b5…07c5 }
0x07c5…07cb 9522 0890 ENDIF
0x07c5…07cb LineComalBin {
0x07c5…07cb ptr = 0x9522 // 0x7c5 @0x0
0x07c5…07cb lno = 0x037a // 0x7c7 @0x2
0x07c5…07cb at0004 = ╱9b╱ ENDIF ╱ // 0x7c9 @0x4
0x07c5…07cb at0005 = EOL // 0x7ca @0x5
0x07c5…07cb }
0x07cb…07d1 9528 0900 ENDIF
0x07cb…07d1 LineComalBin {
0x07cb…07d1 ptr = 0x9528 // 0x7cb @0x0
0x07cb…07d1 lno = 0x0384 // 0x7cd @0x2
0x07cb…07d1 at0004 = ╱9b╱ ENDIF ╱ // 0x7cf @0x4
0x07cb…07d1 at0005 = EOL // 0x7d0 @0x5
0x07cb…07d1 }
0x07d1…07d7 952e 0910 ENDPROC
0x07d1…07d7 LineComalBin {
0x07d1…07d7 ptr = 0x952e // 0x7d1 @0x0
0x07d1…07d7 lno = 0x038e // 0x7d3 @0x2
0x07d1…07d7 at0004 = ╱9f╱ ENDPROC ╱ // 0x7d5 @0x4
0x07d1…07d7 at0005 = EOL // 0x7d6 @0x5
0x07d1…07d7 }
0x07d7…07e5 953c 0920 PROC SLETPOST
0x07d7…07e5 LineComalBin {
0x07d7…07e5 ptr = 0x953c // 0x7d7 @0x0
0x07d7…07e5 lno = 0x0398 // 0x7d9 @0x2
0x07d7…07e5 at0004 = ╱9e╱ PROC ╱ // 0x7db @0x4
0x07d7…07e5 at0005 = ╱53╱S╱ // 0x7dc @0x5
0x07d7…07e5 at0006 = ╱4c╱L╱ // 0x7dd @0x6
0x07d7…07e5 at0007 = ╱45╱E╱ // 0x7de @0x7
0x07d7…07e5 at0008 = ╱54╱T╱ // 0x7df @0x8
0x07d7…07e5 at0009 = ╱50╱P╱ // 0x7e0 @0x9
0x07d7…07e5 at000a = ╱4f╱O╱ // 0x7e1 @0xa
0x07d7…07e5 at000b = ╱53╱S╱ // 0x7e2 @0xb
0x07d7…07e5 at000c = ╱54╱T╱ // 0x7e3 @0xc
0x07d7…07e5 at000d = EOL // 0x7e4 @0xd
0x07d7…07e5 }
0x07e5…07f2 9549 0930 IF CEKS=B THEN
0x07e5…07f2 LineComalBin {
0x07e5…07f2 ptr = 0x9549 // 0x7e5 @0x0
0x07e5…07f2 lno = 0x03a2 // 0x7e7 @0x2
0x07e5…07f2 at0004 = ╱9c╱ IF ╱ // 0x7e9 @0x4
0x07e5…07f2 at0005 = ╱43╱C╱ // 0x7ea @0x5
0x07e5…07f2 at0006 = ╱45╱E╱ // 0x7eb @0x6
0x07e5…07f2 at0007 = ╱4b╱K╱ // 0x7ec @0x7
0x07e5…07f2 at0008 = ╱53╱S╱ // 0x7ed @0x8
0x07e5…07f2 at0009 = ╱dc╱=╱ // 0x7ee @0x9
0x07e5…07f2 at000a = ╱42╱B╱ // 0x7ef @0xa
0x07e5…07f2 at000b = ╱b6╱ THEN ╱ // 0x7f0 @0xb
0x07e5…07f2 at000c = EOL // 0x7f1 @0xc
0x07e5…07f2 }
0x07f2…080b 9562 0940 FOR I=UPIL3 TO AUNK+ETOT-E
0x07f2…080b LineComalBin {
0x07f2…080b ptr = 0x9562 // 0x7f2 @0x0
0x07f2…080b lno = 0x03ac // 0x7f4 @0x2
0x07f2…080b at0004 = ╱83╱ FOR ╱ // 0x7f6 @0x4
0x07f2…080b at0005 = ╱49╱I╱ // 0x7f7 @0x5
0x07f2…080b at0006 = ╱dc╱=╱ // 0x7f8 @0x6
0x07f2…080b at0007 = ╱55╱U╱ // 0x7f9 @0x7
0x07f2…080b at0008 = ╱50╱P╱ // 0x7fa @0x8
0x07f2…080b at0009 = ╱49╱I╱ // 0x7fb @0x9
0x07f2…080b at000a = ╱4c╱L╱ // 0x7fc @0xa
0x07f2…080b at000b = ╱33╱3╱ // 0x7fd @0xb
0x07f2…080b at000c = ╱b7╱ TO ╱ // 0x7fe @0xc
0x07f2…080b at000d = ╱41╱A╱ // 0x7ff @0xd
0x07f2…080b at000e = ╱55╱U╱ // 0x800 @0xe
0x07f2…080b at000f = ╱4e╱N╱ // 0x801 @0xf
0x07f2…080b at0010 = ╱4b╱K╱ // 0x802 @0x10
0x07f2…080b at0011 = ╱e2╱+╱ // 0x803 @0x11
0x07f2…080b at0012 = ╱45╱E╱ // 0x804 @0x12
0x07f2…080b at0013 = ╱54╱T╱ // 0x805 @0x13
0x07f2…080b at0014 = ╱4f╱O╱ // 0x806 @0x14
0x07f2…080b at0015 = ╱54╱T╱ // 0x807 @0x15
0x07f2…080b at0016 = ╱e3╱-╱ // 0x808 @0x16
0x07f2…080b at0017 = ╱45╱E╱ // 0x809 @0x17
0x07f2…080b at0018 = EOL // 0x80a @0x18
0x07f2…080b }
0x080b…084b 95a2 0950 UNR(I)=UNR(I+E);UKODE$(I)=UKODE$(I+E);UNAVN$(I)=UNAVN$(I+E)
0x080b…084b LineComalBin {
0x080b…084b ptr = 0x95a2 // 0x80b @0x0
0x080b…084b lno = 0x03b6 // 0x80d @0x2
0x080b…084b at0004 = ╱55╱U╱ // 0x80f @0x4
0x080b…084b at0005 = ╱4e╱N╱ // 0x810 @0x5
0x080b…084b at0006 = ╱52╱R╱ // 0x811 @0x6
0x080b…084b at0007 = ╱ed╱(╱ // 0x812 @0x7
0x080b…084b at0008 = ╱49╱I╱ // 0x813 @0x8
0x080b…084b at0009 = ╱ee╱)╱ // 0x814 @0x9
0x080b…084b at000a = ╱dc╱=╱ // 0x815 @0xa
0x080b…084b at000b = ╱55╱U╱ // 0x816 @0xb
0x080b…084b at000c = ╱4e╱N╱ // 0x817 @0xc
0x080b…084b at000d = ╱52╱R╱ // 0x818 @0xd
0x080b…084b at000e = ╱ed╱(╱ // 0x819 @0xe
0x080b…084b at000f = ╱49╱I╱ // 0x81a @0xf
0x080b…084b at0010 = ╱e2╱+╱ // 0x81b @0x10
0x080b…084b at0011 = ╱45╱E╱ // 0x81c @0x11
0x080b…084b at0012 = ╱ee╱)╱ // 0x81d @0x12
0x080b…084b at0013 = ╱eb╱;╱ // 0x81e @0x13
0x080b…084b at0014 = ╱55╱U╱ // 0x81f @0x14
0x080b…084b at0015 = ╱4b╱K╱ // 0x820 @0x15
0x080b…084b at0016 = ╱4f╱O╱ // 0x821 @0x16
0x080b…084b at0017 = ╱44╱D╱ // 0x822 @0x17
0x080b…084b at0018 = ╱45╱E╱ // 0x823 @0x18
0x080b…084b at0019 = ╱ef╱$╱ // 0x824 @0x19
0x080b…084b at001a = ╱ed╱(╱ // 0x825 @0x1a
0x080b…084b at001b = ╱49╱I╱ // 0x826 @0x1b
0x080b…084b at001c = ╱ee╱)╱ // 0x827 @0x1c
0x080b…084b at001d = ╱dc╱=╱ // 0x828 @0x1d
0x080b…084b at001e = ╱55╱U╱ // 0x829 @0x1e
0x080b…084b at001f = ╱4b╱K╱ // 0x82a @0x1f
0x080b…084b at0020 = ╱4f╱O╱ // 0x82b @0x20
0x080b…084b at0021 = ╱44╱D╱ // 0x82c @0x21
0x080b…084b at0022 = ╱45╱E╱ // 0x82d @0x22
0x080b…084b at0023 = ╱ef╱$╱ // 0x82e @0x23
0x080b…084b at0024 = ╱ed╱(╱ // 0x82f @0x24
0x080b…084b at0025 = ╱49╱I╱ // 0x830 @0x25
0x080b…084b at0026 = ╱e2╱+╱ // 0x831 @0x26
0x080b…084b at0027 = ╱45╱E╱ // 0x832 @0x27
0x080b…084b at0028 = ╱ee╱)╱ // 0x833 @0x28
0x080b…084b at0029 = ╱eb╱;╱ // 0x834 @0x29
0x080b…084b at002a = ╱55╱U╱ // 0x835 @0x2a
0x080b…084b at002b = ╱4e╱N╱ // 0x836 @0x2b
0x080b…084b at002c = ╱41╱A╱ // 0x837 @0x2c
0x080b…084b at002d = ╱56╱V╱ // 0x838 @0x2d
0x080b…084b at002e = ╱4e╱N╱ // 0x839 @0x2e
0x080b…084b at002f = ╱ef╱$╱ // 0x83a @0x2f
0x080b…084b at0030 = ╱ed╱(╱ // 0x83b @0x30
0x080b…084b at0031 = ╱49╱I╱ // 0x83c @0x31
0x080b…084b at0032 = ╱ee╱)╱ // 0x83d @0x32
0x080b…084b at0033 = ╱dc╱=╱ // 0x83e @0x33
0x080b…084b at0034 = ╱55╱U╱ // 0x83f @0x34
0x080b…084b at0035 = ╱4e╱N╱ // 0x840 @0x35
0x080b…084b at0036 = ╱41╱A╱ // 0x841 @0x36
0x080b…084b at0037 = ╱56╱V╱ // 0x842 @0x37
0x080b…084b at0038 = ╱4e╱N╱ // 0x843 @0x38
0x080b…084b at0039 = ╱ef╱$╱ // 0x844 @0x39
0x080b…084b at003a = ╱ed╱(╱ // 0x845 @0x3a
0x080b…084b at003b = ╱49╱I╱ // 0x846 @0x3b
0x080b…084b at003c = ╱e2╱+╱ // 0x847 @0x3c
0x080b…084b at003d = ╱45╱E╱ // 0x848 @0x3d
0x080b…084b at003e = ╱ee╱)╱ // 0x849 @0x3e
0x080b…084b at003f = EOL // 0x84a @0x3f
0x080b…084b }
0x084b…0852 95a9 0960 NEXT I
0x084b…0852 LineComalBin {
0x084b…0852 ptr = 0x95a9 // 0x84b @0x0
0x084b…0852 lno = 0x03c0 // 0x84d @0x2
0x084b…0852 at0004 = ╱84╱ NEXT ╱ // 0x84f @0x4
0x084b…0852 at0005 = ╱49╱I╱ // 0x850 @0x5
0x084b…0852 at0006 = EOL // 0x851 @0x6
0x084b…0852 }
0x0852…0889 95e0 0970 UNR(I)=1000000;UKODE$(I)="E";UNAVN$(I)=BLANK$
0x0852…0889 LineComalBin {
0x0852…0889 ptr = 0x95e0 // 0x852 @0x0
0x0852…0889 lno = 0x03ca // 0x854 @0x2
0x0852…0889 at0004 = ╱55╱U╱ // 0x856 @0x4
0x0852…0889 at0005 = ╱4e╱N╱ // 0x857 @0x5
0x0852…0889 at0006 = ╱52╱R╱ // 0x858 @0x6
0x0852…0889 at0007 = ╱ed╱(╱ // 0x859 @0x7
0x0852…0889 at0008 = ╱49╱I╱ // 0x85a @0x8
0x0852…0889 at0009 = ╱ee╱)╱ // 0x85b @0x9
0x0852…0889 at000a = ╱dc╱=╱ // 0x85c @0xa
0x0852…0889 at000b = ╱31╱1╱ // 0x85d @0xb
0x0852…0889 at000c = ╱30╱0╱ // 0x85e @0xc
0x0852…0889 at000d = ╱30╱0╱ // 0x85f @0xd
0x0852…0889 at000e = ╱30╱0╱ // 0x860 @0xe
0x0852…0889 at000f = ╱30╱0╱ // 0x861 @0xf
0x0852…0889 at0010 = ╱30╱0╱ // 0x862 @0x10
0x0852…0889 at0011 = ╱30╱0╱ // 0x863 @0x11
0x0852…0889 at0012 = ╱fe0024f414╱ // 0x864 @0x12
0x0852…0889 at0017 = ╱eb╱;╱ // 0x869 @0x17
0x0852…0889 at0018 = ╱55╱U╱ // 0x86a @0x18
0x0852…0889 at0019 = ╱4b╱K╱ // 0x86b @0x19
0x0852…0889 at001a = ╱4f╱O╱ // 0x86c @0x1a
0x0852…0889 at001b = ╱44╱D╱ // 0x86d @0x1b
0x0852…0889 at001c = ╱45╱E╱ // 0x86e @0x1c
0x0852…0889 at001d = ╱ef╱$╱ // 0x86f @0x1d
0x0852…0889 at001e = ╱ed╱(╱ // 0x870 @0x1e
0x0852…0889 at001f = ╱49╱I╱ // 0x871 @0x1f
0x0852…0889 at0020 = ╱ee╱)╱ // 0x872 @0x20
0x0852…0889 at0021 = ╱dc╱=╱ // 0x873 @0x21
0x0852…0889 at0022 = ╱22╱"╱ // 0x874 @0x22
0x0852…0889 at0023 = ╱45╱E╱ // 0x875 @0x23
0x0852…0889 at0024 = ╱22╱"╱ // 0x876 @0x24
0x0852…0889 at0025 = ╱eb╱;╱ // 0x877 @0x25
0x0852…0889 at0026 = ╱55╱U╱ // 0x878 @0x26
0x0852…0889 at0027 = ╱4e╱N╱ // 0x879 @0x27
0x0852…0889 at0028 = ╱41╱A╱ // 0x87a @0x28
0x0852…0889 at0029 = ╱56╱V╱ // 0x87b @0x29
0x0852…0889 at002a = ╱4e╱N╱ // 0x87c @0x2a
0x0852…0889 at002b = ╱ef╱$╱ // 0x87d @0x2b
0x0852…0889 at002c = ╱ed╱(╱ // 0x87e @0x2c
0x0852…0889 at002d = ╱49╱I╱ // 0x87f @0x2d
0x0852…0889 at002e = ╱ee╱)╱ // 0x880 @0x2e
0x0852…0889 at002f = ╱dc╱=╱ // 0x881 @0x2f
0x0852…0889 at0030 = ╱42╱B╱ // 0x882 @0x30
0x0852…0889 at0031 = ╱4c╱L╱ // 0x883 @0x31
0x0852…0889 at0032 = ╱41╱A╱ // 0x884 @0x32
0x0852…0889 at0033 = ╱4e╱N╱ // 0x885 @0x33
0x0852…0889 at0034 = ╱4b╱K╱ // 0x886 @0x34
0x0852…0889 at0035 = ╱ef╱$╱ // 0x887 @0x35
0x0852…0889 at0036 = EOL // 0x888 @0x36
0x0852…0889 }
0x0889…089b 95f2 0980 IF FUKODE$="0" THEN
0x0889…089b LineComalBin {
0x0889…089b ptr = 0x95f2 // 0x889 @0x0
0x0889…089b lno = 0x03d4 // 0x88b @0x2
0x0889…089b at0004 = ╱9c╱ IF ╱ // 0x88d @0x4
0x0889…089b at0005 = ╱46╱F╱ // 0x88e @0x5
0x0889…089b at0006 = ╱55╱U╱ // 0x88f @0x6
0x0889…089b at0007 = ╱4b╱K╱ // 0x890 @0x7
0x0889…089b at0008 = ╱4f╱O╱ // 0x891 @0x8
0x0889…089b at0009 = ╱44╱D╱ // 0x892 @0x9
0x0889…089b at000a = ╱45╱E╱ // 0x893 @0xa
0x0889…089b at000b = ╱ef╱$╱ // 0x894 @0xb
0x0889…089b at000c = ╱dc╱=╱ // 0x895 @0xc
0x0889…089b at000d = ╱22╱"╱ // 0x896 @0xd
0x0889…089b at000e = ╱30╱0╱ // 0x897 @0xe
0x0889…089b at000f = ╱22╱"╱ // 0x898 @0xf
0x0889…089b at0010 = ╱b6╱ THEN ╱ // 0x899 @0x10
0x0889…089b at0011 = EOL // 0x89a @0x11
0x0889…089b }
0x089b…08ad 9604 0990 FOR EPIL3=E TO AENT
0x089b…08ad LineComalBin {
0x089b…08ad ptr = 0x9604 // 0x89b @0x0
0x089b…08ad lno = 0x03de // 0x89d @0x2
0x089b…08ad at0004 = ╱83╱ FOR ╱ // 0x89f @0x4
0x089b…08ad at0005 = ╱45╱E╱ // 0x8a0 @0x5
0x089b…08ad at0006 = ╱50╱P╱ // 0x8a1 @0x6
0x089b…08ad at0007 = ╱49╱I╱ // 0x8a2 @0x7
0x089b…08ad at0008 = ╱4c╱L╱ // 0x8a3 @0x8
0x089b…08ad at0009 = ╱33╱3╱ // 0x8a4 @0x9
0x089b…08ad at000a = ╱dc╱=╱ // 0x8a5 @0xa
0x089b…08ad at000b = ╱45╱E╱ // 0x8a6 @0xb
0x089b…08ad at000c = ╱b7╱ TO ╱ // 0x8a7 @0xc
0x089b…08ad at000d = ╱41╱A╱ // 0x8a8 @0xd
0x089b…08ad at000e = ╱45╱E╱ // 0x8a9 @0xe
0x089b…08ad at000f = ╱4e╱N╱ // 0x8aa @0xf
0x089b…08ad at0010 = ╱54╱T╱ // 0x8ab @0x10
0x089b…08ad at0011 = EOL // 0x8ac @0x11
0x089b…08ad }
0x08ad…08ce 9625 1000 IF ETAB(EPIL3,E)<1000000 THEN
0x08ad…08ce LineComalBin {
0x08ad…08ce ptr = 0x9625 // 0x8ad @0x0
0x08ad…08ce lno = 0x03e8 // 0x8af @0x2
0x08ad…08ce at0004 = ╱9c╱ IF ╱ // 0x8b1 @0x4
0x08ad…08ce at0005 = ╱45╱E╱ // 0x8b2 @0x5
0x08ad…08ce at0006 = ╱54╱T╱ // 0x8b3 @0x6
0x08ad…08ce at0007 = ╱41╱A╱ // 0x8b4 @0x7
0x08ad…08ce at0008 = ╱42╱B╱ // 0x8b5 @0x8
0x08ad…08ce at0009 = ╱ed╱(╱ // 0x8b6 @0x9
0x08ad…08ce at000a = ╱45╱E╱ // 0x8b7 @0xa
0x08ad…08ce at000b = ╱50╱P╱ // 0x8b8 @0xb
0x08ad…08ce at000c = ╱49╱I╱ // 0x8b9 @0xc
0x08ad…08ce at000d = ╱4c╱L╱ // 0x8ba @0xd
0x08ad…08ce at000e = ╱33╱3╱ // 0x8bb @0xe
0x08ad…08ce at000f = ╱ec╱,╱ // 0x8bc @0xf
0x08ad…08ce at0010 = ╱45╱E╱ // 0x8bd @0x10
0x08ad…08ce at0011 = ╱ee╱)╱ // 0x8be @0x11
0x08ad…08ce at0012 = ╱dd╱<╱ // 0x8bf @0x12
0x08ad…08ce at0013 = ╱31╱1╱ // 0x8c0 @0x13
0x08ad…08ce at0014 = ╱30╱0╱ // 0x8c1 @0x14
0x08ad…08ce at0015 = ╱30╱0╱ // 0x8c2 @0x15
0x08ad…08ce at0016 = ╱30╱0╱ // 0x8c3 @0x16
0x08ad…08ce at0017 = ╱30╱0╱ // 0x8c4 @0x17
0x08ad…08ce at0018 = ╱30╱0╱ // 0x8c5 @0x18
0x08ad…08ce at0019 = ╱30╱0╱ // 0x8c6 @0x19
0x08ad…08ce at001a = ╱fe0024f414╱ // 0x8c7 @0x1a
0x08ad…08ce at001f = ╱b6╱ THEN ╱ // 0x8cc @0x1f
0x08ad…08ce at0020 = EOL // 0x8cd @0x20
0x08ad…08ce }
0x08ce…08dd 9634 1010 EXEC HENTEPOST
0x08ce…08dd LineComalBin {
0x08ce…08dd ptr = 0x9634 // 0x8ce @0x0
0x08ce…08dd lno = 0x03f2 // 0x8d0 @0x2
0x08ce…08dd at0004 = ╱9d╱ EXEC ╱ // 0x8d2 @0x4
0x08ce…08dd at0005 = ╱48╱H╱ // 0x8d3 @0x5
0x08ce…08dd at0006 = ╱45╱E╱ // 0x8d4 @0x6
0x08ce…08dd at0007 = ╱4e╱N╱ // 0x8d5 @0x7
0x08ce…08dd at0008 = ╱54╱T╱ // 0x8d6 @0x8
0x08ce…08dd at0009 = ╱45╱E╱ // 0x8d7 @0x9
0x08ce…08dd at000a = ╱50╱P╱ // 0x8d8 @0xa
0x08ce…08dd at000b = ╱4f╱O╱ // 0x8d9 @0xb
0x08ce…08dd at000c = ╱53╱S╱ // 0x8da @0xc
0x08ce…08dd at000d = ╱54╱T╱ // 0x8db @0xd
0x08ce…08dd at000e = EOL // 0x8dc @0xe
0x08ce…08dd }
0x08dd…08f4 964b 1020 IF UKNR(UPIL2)<>FNR THEN STOP
0x08dd…08f4 LineComalBin {
0x08dd…08f4 ptr = 0x964b // 0x8dd @0x0
0x08dd…08f4 lno = 0x03fc // 0x8df @0x2
0x08dd…08f4 at0004 = ╱82╱ IF ╱ // 0x8e1 @0x4
0x08dd…08f4 at0005 = ╱55╱U╱ // 0x8e2 @0x5
0x08dd…08f4 at0006 = ╱4b╱K╱ // 0x8e3 @0x6
0x08dd…08f4 at0007 = ╱4e╱N╱ // 0x8e4 @0x7
0x08dd…08f4 at0008 = ╱52╱R╱ // 0x8e5 @0x8
0x08dd…08f4 at0009 = ╱ed╱(╱ // 0x8e6 @0x9
0x08dd…08f4 at000a = ╱55╱U╱ // 0x8e7 @0xa
0x08dd…08f4 at000b = ╱50╱P╱ // 0x8e8 @0xb
0x08dd…08f4 at000c = ╱49╱I╱ // 0x8e9 @0xc
0x08dd…08f4 at000d = ╱4c╱L╱ // 0x8ea @0xd
0x08dd…08f4 at000e = ╱32╱2╱ // 0x8eb @0xe
0x08dd…08f4 at000f = ╱ee╱)╱ // 0x8ec @0xf
0x08dd…08f4 at0010 = ╱e1╱<>╱ // 0x8ed @0x10
0x08dd…08f4 at0011 = ╱46╱F╱ // 0x8ee @0x11
0x08dd…08f4 at0012 = ╱4e╱N╱ // 0x8ef @0x12
0x08dd…08f4 at0013 = ╱52╱R╱ // 0x8f0 @0x13
0x08dd…08f4 at0014 = ╱b6╱ THEN ╱ // 0x8f1 @0x14
0x08dd…08f4 at0015 = ╱8d╱ STOP ╱ // 0x8f2 @0x15
0x08dd…08f4 at0016 = EOL // 0x8f3 @0x16
0x08dd…08f4 }
0x08f4…0908 965f 1030 FOR I=UPIL2 TO AUNK-E
0x08f4…0908 LineComalBin {
0x08f4…0908 ptr = 0x965f // 0x8f4 @0x0
0x08f4…0908 lno = 0x0406 // 0x8f6 @0x2
0x08f4…0908 at0004 = ╱83╱ FOR ╱ // 0x8f8 @0x4
0x08f4…0908 at0005 = ╱49╱I╱ // 0x8f9 @0x5
0x08f4…0908 at0006 = ╱dc╱=╱ // 0x8fa @0x6
0x08f4…0908 at0007 = ╱55╱U╱ // 0x8fb @0x7
0x08f4…0908 at0008 = ╱50╱P╱ // 0x8fc @0x8
0x08f4…0908 at0009 = ╱49╱I╱ // 0x8fd @0x9
0x08f4…0908 at000a = ╱4c╱L╱ // 0x8fe @0xa
0x08f4…0908 at000b = ╱32╱2╱ // 0x8ff @0xb
0x08f4…0908 at000c = ╱b7╱ TO ╱ // 0x900 @0xc
0x08f4…0908 at000d = ╱41╱A╱ // 0x901 @0xd
0x08f4…0908 at000e = ╱55╱U╱ // 0x902 @0xe
0x08f4…0908 at000f = ╱4e╱N╱ // 0x903 @0xf
0x08f4…0908 at0010 = ╱4b╱K╱ // 0x904 @0x10
0x08f4…0908 at0011 = ╱e3╱-╱ // 0x905 @0x11
0x08f4…0908 at0012 = ╱45╱E╱ // 0x906 @0x12
0x08f4…0908 at0013 = EOL // 0x907 @0x13
0x08f4…0908 }
0x0908…0946 969d 1040 UKNR(I)=UKNR(I+E);MBEV$(I)=MBEV$(I+E);YBEV$(I)=YBEV$(I+E)
0x0908…0946 LineComalBin {
0x0908…0946 ptr = 0x969d // 0x908 @0x0
0x0908…0946 lno = 0x0410 // 0x90a @0x2
0x0908…0946 at0004 = ╱55╱U╱ // 0x90c @0x4
0x0908…0946 at0005 = ╱4b╱K╱ // 0x90d @0x5
0x0908…0946 at0006 = ╱4e╱N╱ // 0x90e @0x6
0x0908…0946 at0007 = ╱52╱R╱ // 0x90f @0x7
0x0908…0946 at0008 = ╱ed╱(╱ // 0x910 @0x8
0x0908…0946 at0009 = ╱49╱I╱ // 0x911 @0x9
0x0908…0946 at000a = ╱ee╱)╱ // 0x912 @0xa
0x0908…0946 at000b = ╱dc╱=╱ // 0x913 @0xb
0x0908…0946 at000c = ╱55╱U╱ // 0x914 @0xc
0x0908…0946 at000d = ╱4b╱K╱ // 0x915 @0xd
0x0908…0946 at000e = ╱4e╱N╱ // 0x916 @0xe
0x0908…0946 at000f = ╱52╱R╱ // 0x917 @0xf
0x0908…0946 at0010 = ╱ed╱(╱ // 0x918 @0x10
0x0908…0946 at0011 = ╱49╱I╱ // 0x919 @0x11
0x0908…0946 at0012 = ╱e2╱+╱ // 0x91a @0x12
0x0908…0946 at0013 = ╱45╱E╱ // 0x91b @0x13
0x0908…0946 at0014 = ╱ee╱)╱ // 0x91c @0x14
0x0908…0946 at0015 = ╱eb╱;╱ // 0x91d @0x15
0x0908…0946 at0016 = ╱4d╱M╱ // 0x91e @0x16
0x0908…0946 at0017 = ╱42╱B╱ // 0x91f @0x17
0x0908…0946 at0018 = ╱45╱E╱ // 0x920 @0x18
0x0908…0946 at0019 = ╱56╱V╱ // 0x921 @0x19
0x0908…0946 at001a = ╱ef╱$╱ // 0x922 @0x1a
0x0908…0946 at001b = ╱ed╱(╱ // 0x923 @0x1b
0x0908…0946 at001c = ╱49╱I╱ // 0x924 @0x1c
0x0908…0946 at001d = ╱ee╱)╱ // 0x925 @0x1d
0x0908…0946 at001e = ╱dc╱=╱ // 0x926 @0x1e
0x0908…0946 at001f = ╱4d╱M╱ // 0x927 @0x1f
0x0908…0946 at0020 = ╱42╱B╱ // 0x928 @0x20
0x0908…0946 at0021 = ╱45╱E╱ // 0x929 @0x21
0x0908…0946 at0022 = ╱56╱V╱ // 0x92a @0x22
0x0908…0946 at0023 = ╱ef╱$╱ // 0x92b @0x23
0x0908…0946 at0024 = ╱ed╱(╱ // 0x92c @0x24
0x0908…0946 at0025 = ╱49╱I╱ // 0x92d @0x25
0x0908…0946 at0026 = ╱e2╱+╱ // 0x92e @0x26
0x0908…0946 at0027 = ╱45╱E╱ // 0x92f @0x27
0x0908…0946 at0028 = ╱ee╱)╱ // 0x930 @0x28
0x0908…0946 at0029 = ╱eb╱;╱ // 0x931 @0x29
0x0908…0946 at002a = ╱59╱Y╱ // 0x932 @0x2a
0x0908…0946 at002b = ╱42╱B╱ // 0x933 @0x2b
0x0908…0946 at002c = ╱45╱E╱ // 0x934 @0x2c
0x0908…0946 at002d = ╱56╱V╱ // 0x935 @0x2d
0x0908…0946 at002e = ╱ef╱$╱ // 0x936 @0x2e
0x0908…0946 at002f = ╱ed╱(╱ // 0x937 @0x2f
0x0908…0946 at0030 = ╱49╱I╱ // 0x938 @0x30
0x0908…0946 at0031 = ╱ee╱)╱ // 0x939 @0x31
0x0908…0946 at0032 = ╱dc╱=╱ // 0x93a @0x32
0x0908…0946 at0033 = ╱59╱Y╱ // 0x93b @0x33
0x0908…0946 at0034 = ╱42╱B╱ // 0x93c @0x34
0x0908…0946 at0035 = ╱45╱E╱ // 0x93d @0x35
0x0908…0946 at0036 = ╱56╱V╱ // 0x93e @0x36
0x0908…0946 at0037 = ╱ef╱$╱ // 0x93f @0x37
0x0908…0946 at0038 = ╱ed╱(╱ // 0x940 @0x38
0x0908…0946 at0039 = ╱49╱I╱ // 0x941 @0x39
0x0908…0946 at003a = ╱e2╱+╱ // 0x942 @0x3a
0x0908…0946 at003b = ╱45╱E╱ // 0x943 @0x3b
0x0908…0946 at003c = ╱ee╱)╱ // 0x944 @0x3c
0x0908…0946 at003d = EOL // 0x945 @0x3d
0x0908…0946 }
0x0946…094d 96a4 1050 NEXT I
0x0946…094d LineComalBin {
0x0946…094d ptr = 0x96a4 // 0x946 @0x0
0x0946…094d lno = 0x041a // 0x948 @0x2
0x0946…094d at0004 = ╱84╱ NEXT ╱ // 0x94a @0x4
0x0946…094d at0005 = ╱49╱I╱ // 0x94b @0x5
0x0946…094d at0006 = EOL // 0x94c @0x6
0x0946…094d }
0x094d…0982 96d9 1060 UKNR(I)=1000000;MBEV$(I)="0+";YBEV$(I)="0+"
0x094d…0982 LineComalBin {
0x094d…0982 ptr = 0x96d9 // 0x94d @0x0
0x094d…0982 lno = 0x0424 // 0x94f @0x2
0x094d…0982 at0004 = ╱55╱U╱ // 0x951 @0x4
0x094d…0982 at0005 = ╱4b╱K╱ // 0x952 @0x5
0x094d…0982 at0006 = ╱4e╱N╱ // 0x953 @0x6
0x094d…0982 at0007 = ╱52╱R╱ // 0x954 @0x7
0x094d…0982 at0008 = ╱ed╱(╱ // 0x955 @0x8
0x094d…0982 at0009 = ╱49╱I╱ // 0x956 @0x9
0x094d…0982 at000a = ╱ee╱)╱ // 0x957 @0xa
0x094d…0982 at000b = ╱dc╱=╱ // 0x958 @0xb
0x094d…0982 at000c = ╱31╱1╱ // 0x959 @0xc
0x094d…0982 at000d = ╱30╱0╱ // 0x95a @0xd
0x094d…0982 at000e = ╱30╱0╱ // 0x95b @0xe
0x094d…0982 at000f = ╱30╱0╱ // 0x95c @0xf
0x094d…0982 at0010 = ╱30╱0╱ // 0x95d @0x10
0x094d…0982 at0011 = ╱30╱0╱ // 0x95e @0x11
0x094d…0982 at0012 = ╱30╱0╱ // 0x95f @0x12
0x094d…0982 at0013 = ╱fe0024f414╱ // 0x960 @0x13
0x094d…0982 at0018 = ╱eb╱;╱ // 0x965 @0x18
0x094d…0982 at0019 = ╱4d╱M╱ // 0x966 @0x19
0x094d…0982 at001a = ╱42╱B╱ // 0x967 @0x1a
0x094d…0982 at001b = ╱45╱E╱ // 0x968 @0x1b
0x094d…0982 at001c = ╱56╱V╱ // 0x969 @0x1c
0x094d…0982 at001d = ╱ef╱$╱ // 0x96a @0x1d
0x094d…0982 at001e = ╱ed╱(╱ // 0x96b @0x1e
0x094d…0982 at001f = ╱49╱I╱ // 0x96c @0x1f
0x094d…0982 at0020 = ╱ee╱)╱ // 0x96d @0x20
0x094d…0982 at0021 = ╱dc╱=╱ // 0x96e @0x21
0x094d…0982 at0022 = ╱22╱"╱ // 0x96f @0x22
0x094d…0982 at0023 = ╱30╱0╱ // 0x970 @0x23
0x094d…0982 at0024 = ╱2b╱+╱ // 0x971 @0x24
0x094d…0982 at0025 = ╱22╱"╱ // 0x972 @0x25
0x094d…0982 at0026 = ╱eb╱;╱ // 0x973 @0x26
0x094d…0982 at0027 = ╱59╱Y╱ // 0x974 @0x27
0x094d…0982 at0028 = ╱42╱B╱ // 0x975 @0x28
0x094d…0982 at0029 = ╱45╱E╱ // 0x976 @0x29
0x094d…0982 at002a = ╱56╱V╱ // 0x977 @0x2a
0x094d…0982 at002b = ╱ef╱$╱ // 0x978 @0x2b
0x094d…0982 at002c = ╱ed╱(╱ // 0x979 @0x2c
0x094d…0982 at002d = ╱49╱I╱ // 0x97a @0x2d
0x094d…0982 at002e = ╱ee╱)╱ // 0x97b @0x2e
0x094d…0982 at002f = ╱dc╱=╱ // 0x97c @0x2f
0x094d…0982 at0030 = ╱22╱"╱ // 0x97d @0x30
0x094d…0982 at0031 = ╱30╱0╱ // 0x97e @0x31
0x094d…0982 at0032 = ╱2b╱+╱ // 0x97f @0x32
0x094d…0982 at0033 = ╱22╱"╱ // 0x980 @0x33
0x094d…0982 at0034 = EOL // 0x981 @0x34
0x094d…0982 }
0x0982…0990 96e7 1070 EXEC GEMEPOST
0x0982…0990 LineComalBin {
0x0982…0990 ptr = 0x96e7 // 0x982 @0x0
0x0982…0990 lno = 0x042e // 0x984 @0x2
0x0982…0990 at0004 = ╱9d╱ EXEC ╱ // 0x986 @0x4
0x0982…0990 at0005 = ╱47╱G╱ // 0x987 @0x5
0x0982…0990 at0006 = ╱45╱E╱ // 0x988 @0x6
0x0982…0990 at0007 = ╱4d╱M╱ // 0x989 @0x7
0x0982…0990 at0008 = ╱45╱E╱ // 0x98a @0x8
0x0982…0990 at0009 = ╱50╱P╱ // 0x98b @0x9
0x0982…0990 at000a = ╱4f╱O╱ // 0x98c @0xa
0x0982…0990 at000b = ╱53╱S╱ // 0x98d @0xb
0x0982…0990 at000c = ╱54╱T╱ // 0x98e @0xc
0x0982…0990 at000d = EOL // 0x98f @0xd
0x0982…0990 }
0x0990…0996 96ed 1080 ENDIF
0x0990…0996 LineComalBin {
0x0990…0996 ptr = 0x96ed // 0x990 @0x0
0x0990…0996 lno = 0x0438 // 0x992 @0x2
0x0990…0996 at0004 = ╱9b╱ ENDIF ╱ // 0x994 @0x4
0x0990…0996 at0005 = EOL // 0x995 @0x5
0x0990…0996 }
0x0996…09a1 96f8 1090 NEXT EPIL3
0x0996…09a1 LineComalBin {
0x0996…09a1 ptr = 0x96f8 // 0x996 @0x0
0x0996…09a1 lno = 0x0442 // 0x998 @0x2
0x0996…09a1 at0004 = ╱84╱ NEXT ╱ // 0x99a @0x4
0x0996…09a1 at0005 = ╱45╱E╱ // 0x99b @0x5
0x0996…09a1 at0006 = ╱50╱P╱ // 0x99c @0x6
0x0996…09a1 at0007 = ╱49╱I╱ // 0x99d @0x7
0x0996…09a1 at0008 = ╱4c╱L╱ // 0x99e @0x8
0x0996…09a1 at0009 = ╱33╱3╱ // 0x99f @0x9
0x0996…09a1 at000a = EOL // 0x9a0 @0xa
0x0996…09a1 }
0x09a1…09b1 9708 1100 AUNK=AUNK-E
0x09a1…09b1 LineComalBin {
0x09a1…09b1 ptr = 0x9708 // 0x9a1 @0x0
0x09a1…09b1 lno = 0x044c // 0x9a3 @0x2
0x09a1…09b1 at0004 = ╱41╱A╱ // 0x9a5 @0x4
0x09a1…09b1 at0005 = ╱55╱U╱ // 0x9a6 @0x5
0x09a1…09b1 at0006 = ╱4e╱N╱ // 0x9a7 @0x6
0x09a1…09b1 at0007 = ╱4b╱K╱ // 0x9a8 @0x7
0x09a1…09b1 at0008 = ╱dc╱=╱ // 0x9a9 @0x8
0x09a1…09b1 at0009 = ╱41╱A╱ // 0x9aa @0x9
0x09a1…09b1 at000a = ╱55╱U╱ // 0x9ab @0xa
0x09a1…09b1 at000b = ╱4e╱N╱ // 0x9ac @0xb
0x09a1…09b1 at000c = ╱4b╱K╱ // 0x9ad @0xc
0x09a1…09b1 at000d = ╱e3╱-╱ // 0x9ae @0xd
0x09a1…09b1 at000e = ╱45╱E╱ // 0x9af @0xe
0x09a1…09b1 at000f = EOL // 0x9b0 @0xf
0x09a1…09b1 }
0x09b1…09b7 970e 1110 ELSE
0x09b1…09b7 LineComalBin {
0x09b1…09b7 ptr = 0x970e // 0x9b1 @0x0
0x09b1…09b7 lno = 0x0456 // 0x9b3 @0x2
0x09b1…09b7 at0004 = ╱9a╱ ELSE ╱ // 0x9b5 @0x4
0x09b1…09b7 at0005 = EOL // 0x9b6 @0x5
0x09b1…09b7 }
0x09b7…09c7 971e 1120 ETOT=ETOT-E
0x09b7…09c7 LineComalBin {
0x09b7…09c7 ptr = 0x971e // 0x9b7 @0x0
0x09b7…09c7 lno = 0x0460 // 0x9b9 @0x2
0x09b7…09c7 at0004 = ╱45╱E╱ // 0x9bb @0x4
0x09b7…09c7 at0005 = ╱54╱T╱ // 0x9bc @0x5
0x09b7…09c7 at0006 = ╱4f╱O╱ // 0x9bd @0x6
0x09b7…09c7 at0007 = ╱54╱T╱ // 0x9be @0x7
0x09b7…09c7 at0008 = ╱dc╱=╱ // 0x9bf @0x8
0x09b7…09c7 at0009 = ╱45╱E╱ // 0x9c0 @0x9
0x09b7…09c7 at000a = ╱54╱T╱ // 0x9c1 @0xa
0x09b7…09c7 at000b = ╱4f╱O╱ // 0x9c2 @0xb
0x09b7…09c7 at000c = ╱54╱T╱ // 0x9c3 @0xc
0x09b7…09c7 at000d = ╱e3╱-╱ // 0x9c4 @0xd
0x09b7…09c7 at000e = ╱45╱E╱ // 0x9c5 @0xe
0x09b7…09c7 at000f = EOL // 0x9c6 @0xf
0x09b7…09c7 }
0x09c7…09cd 9724 1130 ENDIF
0x09c7…09cd LineComalBin {
0x09c7…09cd ptr = 0x9724 // 0x9c7 @0x0
0x09c7…09cd lno = 0x046a // 0x9c9 @0x2
0x09c7…09cd at0004 = ╱9b╱ ENDIF ╱ // 0x9cb @0x4
0x09c7…09cd at0005 = EOL // 0x9cc @0x5
0x09c7…09cd }
0x09cd…09d3 972a 1140 ENDIF
0x09cd…09d3 LineComalBin {
0x09cd…09d3 ptr = 0x972a // 0x9cd @0x0
0x09cd…09d3 lno = 0x0474 // 0x9cf @0x2
0x09cd…09d3 at0004 = ╱9b╱ ENDIF ╱ // 0x9d1 @0x4
0x09cd…09d3 at0005 = EOL // 0x9d2 @0x5
0x09cd…09d3 }
0x09d3…09d9 9730 1150 ENDPROC
0x09d3…09d9 LineComalBin {
0x09d3…09d9 ptr = 0x9730 // 0x9d3 @0x0
0x09d3…09d9 lno = 0x047e // 0x9d5 @0x2
0x09d3…09d9 at0004 = ╱9f╱ ENDPROC ╱ // 0x9d7 @0x4
0x09d3…09d9 at0005 = EOL // 0x9d8 @0x5
0x09d3…09d9 }
0x09d9…09e8 973f 1160 PROC HENTEPOST
0x09d9…09e8 LineComalBin {
0x09d9…09e8 ptr = 0x973f // 0x9d9 @0x0
0x09d9…09e8 lno = 0x0488 // 0x9db @0x2
0x09d9…09e8 at0004 = ╱9e╱ PROC ╱ // 0x9dd @0x4
0x09d9…09e8 at0005 = ╱48╱H╱ // 0x9de @0x5
0x09d9…09e8 at0006 = ╱45╱E╱ // 0x9df @0x6
0x09d9…09e8 at0007 = ╱4e╱N╱ // 0x9e0 @0x7
0x09d9…09e8 at0008 = ╱54╱T╱ // 0x9e1 @0x8
0x09d9…09e8 at0009 = ╱45╱E╱ // 0x9e2 @0x9
0x09d9…09e8 at000a = ╱50╱P╱ // 0x9e3 @0xa
0x09d9…09e8 at000b = ╱4f╱O╱ // 0x9e4 @0xb
0x09d9…09e8 at000c = ╱53╱S╱ // 0x9e5 @0xc
0x09d9…09e8 at000d = ╱54╱T╱ // 0x9e6 @0xd
0x09d9…09e8 at000e = EOL // 0x9e7 @0xe
0x09d9…09e8 }
0x09e8…09fe 9755 1170 S=ETAB(EPIL3,G)+E
0x09e8…09fe LineComalBin {
0x09e8…09fe ptr = 0x9755 // 0x9e8 @0x0
0x09e8…09fe lno = 0x0492 // 0x9ea @0x2
0x09e8…09fe at0004 = ╱53╱S╱ // 0x9ec @0x4
0x09e8…09fe at0005 = ╱dc╱=╱ // 0x9ed @0x5
0x09e8…09fe at0006 = ╱45╱E╱ // 0x9ee @0x6
0x09e8…09fe at0007 = ╱54╱T╱ // 0x9ef @0x7
0x09e8…09fe at0008 = ╱41╱A╱ // 0x9f0 @0x8
0x09e8…09fe at0009 = ╱42╱B╱ // 0x9f1 @0x9
0x09e8…09fe at000a = ╱ed╱(╱ // 0x9f2 @0xa
0x09e8…09fe at000b = ╱45╱E╱ // 0x9f3 @0xb
0x09e8…09fe at000c = ╱50╱P╱ // 0x9f4 @0xc
0x09e8…09fe at000d = ╱49╱I╱ // 0x9f5 @0xd
0x09e8…09fe at000e = ╱4c╱L╱ // 0x9f6 @0xe
0x09e8…09fe at000f = ╱33╱3╱ // 0x9f7 @0xf
0x09e8…09fe at0010 = ╱ec╱,╱ // 0x9f8 @0x10
0x09e8…09fe at0011 = ╱47╱G╱ // 0x9f9 @0x11
0x09e8…09fe at0012 = ╱ee╱)╱ // 0x9fa @0x12
0x09e8…09fe at0013 = ╱e2╱+╱ // 0x9fb @0x13
0x09e8…09fe at0014 = ╱45╱E╱ // 0x9fc @0x14
0x09e8…09fe at0015 = EOL // 0x9fd @0x15
0x09e8…09fe }
0x09fe…0a0f 9766 1180 FOR X=E TO MUNKANT
0x09fe…0a0f LineComalBin {
0x09fe…0a0f ptr = 0x9766 // 0x9fe @0x0
0x09fe…0a0f lno = 0x049c // 0xa00 @0x2
0x09fe…0a0f at0004 = ╱83╱ FOR ╱ // 0xa02 @0x4
0x09fe…0a0f at0005 = ╱58╱X╱ // 0xa03 @0x5
0x09fe…0a0f at0006 = ╱dc╱=╱ // 0xa04 @0x6
0x09fe…0a0f at0007 = ╱45╱E╱ // 0xa05 @0x7
0x09fe…0a0f at0008 = ╱b7╱ TO ╱ // 0xa06 @0x8
0x09fe…0a0f at0009 = ╱4d╱M╱ // 0xa07 @0x9
0x09fe…0a0f at000a = ╱55╱U╱ // 0xa08 @0xa
0x09fe…0a0f at000b = ╱4e╱N╱ // 0xa09 @0xb
0x09fe…0a0f at000c = ╱4b╱K╱ // 0xa0a @0xc
0x09fe…0a0f at000d = ╱41╱A╱ // 0xa0b @0xd
0x09fe…0a0f at000e = ╱4e╱N╱ // 0xa0c @0xe
0x09fe…0a0f at000f = ╱54╱T╱ // 0xa0d @0xf
0x09fe…0a0f at0010 = EOL // 0xa0e @0x10
0x09fe…0a0f }
0x0a0f…0a36 978d 1190 GET K3$,X+S:UKNR(X),MBEV$(X),YBEV$(X)
0x0a0f…0a36 LineComalBin {
0x0a0f…0a36 ptr = 0x978d // 0xa0f @0x0
0x0a0f…0a36 lno = 0x04a6 // 0xa11 @0x2
0x0a0f…0a36 at0004 = ╱a9╱ GET ╱ // 0xa13 @0x4
0x0a0f…0a36 at0005 = ╱4b╱K╱ // 0xa14 @0x5
0x0a0f…0a36 at0006 = ╱33╱3╱ // 0xa15 @0x6
0x0a0f…0a36 at0007 = ╱ef╱$╱ // 0xa16 @0x7
0x0a0f…0a36 at0008 = ╱ec╱,╱ // 0xa17 @0x8
0x0a0f…0a36 at0009 = ╱58╱X╱ // 0xa18 @0x9
0x0a0f…0a36 at000a = ╱e2╱+╱ // 0xa19 @0xa
0x0a0f…0a36 at000b = ╱53╱S╱ // 0xa1a @0xb
0x0a0f…0a36 at000c = ╱f0╱:╱ // 0xa1b @0xc
0x0a0f…0a36 at000d = ╱55╱U╱ // 0xa1c @0xd
0x0a0f…0a36 at000e = ╱4b╱K╱ // 0xa1d @0xe
0x0a0f…0a36 at000f = ╱4e╱N╱ // 0xa1e @0xf
0x0a0f…0a36 at0010 = ╱52╱R╱ // 0xa1f @0x10
0x0a0f…0a36 at0011 = ╱ed╱(╱ // 0xa20 @0x11
0x0a0f…0a36 at0012 = ╱58╱X╱ // 0xa21 @0x12
0x0a0f…0a36 at0013 = ╱ee╱)╱ // 0xa22 @0x13
0x0a0f…0a36 at0014 = ╱ec╱,╱ // 0xa23 @0x14
0x0a0f…0a36 at0015 = ╱4d╱M╱ // 0xa24 @0x15
0x0a0f…0a36 at0016 = ╱42╱B╱ // 0xa25 @0x16
0x0a0f…0a36 at0017 = ╱45╱E╱ // 0xa26 @0x17
0x0a0f…0a36 at0018 = ╱56╱V╱ // 0xa27 @0x18
0x0a0f…0a36 at0019 = ╱ef╱$╱ // 0xa28 @0x19
0x0a0f…0a36 at001a = ╱ed╱(╱ // 0xa29 @0x1a
0x0a0f…0a36 at001b = ╱58╱X╱ // 0xa2a @0x1b
0x0a0f…0a36 at001c = ╱ee╱)╱ // 0xa2b @0x1c
0x0a0f…0a36 at001d = ╱ec╱,╱ // 0xa2c @0x1d
0x0a0f…0a36 at001e = ╱59╱Y╱ // 0xa2d @0x1e
0x0a0f…0a36 at001f = ╱42╱B╱ // 0xa2e @0x1f
0x0a0f…0a36 at0020 = ╱45╱E╱ // 0xa2f @0x20
0x0a0f…0a36 at0021 = ╱56╱V╱ // 0xa30 @0x21
0x0a0f…0a36 at0022 = ╱ef╱$╱ // 0xa31 @0x22
0x0a0f…0a36 at0023 = ╱ed╱(╱ // 0xa32 @0x23
0x0a0f…0a36 at0024 = ╱58╱X╱ // 0xa33 @0x24
0x0a0f…0a36 at0025 = ╱ee╱)╱ // 0xa34 @0x25
0x0a0f…0a36 at0026 = EOL // 0xa35 @0x26
0x0a0f…0a36 }
0x0a36…0a49 97a0 1200 EXEC FEJL(V,E,K3$)
0x0a36…0a49 LineComalBin {
0x0a36…0a49 ptr = 0x97a0 // 0xa36 @0x0
0x0a36…0a49 lno = 0x04b0 // 0xa38 @0x2
0x0a36…0a49 at0004 = ╱9d╱ EXEC ╱ // 0xa3a @0x4
0x0a36…0a49 at0005 = ╱46╱F╱ // 0xa3b @0x5
0x0a36…0a49 at0006 = ╱45╱E╱ // 0xa3c @0x6
0x0a36…0a49 at0007 = ╱4a╱J╱ // 0xa3d @0x7
0x0a36…0a49 at0008 = ╱4c╱L╱ // 0xa3e @0x8
0x0a36…0a49 at0009 = ╱ed╱(╱ // 0xa3f @0x9
0x0a36…0a49 at000a = ╱56╱V╱ // 0xa40 @0xa
0x0a36…0a49 at000b = ╱ec╱,╱ // 0xa41 @0xb
0x0a36…0a49 at000c = ╱45╱E╱ // 0xa42 @0xc
0x0a36…0a49 at000d = ╱ec╱,╱ // 0xa43 @0xd
0x0a36…0a49 at000e = ╱4b╱K╱ // 0xa44 @0xe
0x0a36…0a49 at000f = ╱33╱3╱ // 0xa45 @0xf
0x0a36…0a49 at0010 = ╱ef╱$╱ // 0xa46 @0x10
0x0a36…0a49 at0011 = ╱ee╱)╱ // 0xa47 @0x11
0x0a36…0a49 at0012 = EOL // 0xa48 @0x12
0x0a36…0a49 }
0x0a49…0a50 97a7 1210 NEXT X
0x0a49…0a50 LineComalBin {
0x0a49…0a50 ptr = 0x97a7 // 0xa49 @0x0
0x0a49…0a50 lno = 0x04ba // 0xa4b @0x2
0x0a49…0a50 at0004 = ╱84╱ NEXT ╱ // 0xa4d @0x4
0x0a49…0a50 at0005 = ╱58╱X╱ // 0xa4e @0x5
0x0a49…0a50 at0006 = EOL // 0xa4f @0x6
0x0a49…0a50 }
0x0a50…0a56 97ad 1220 ENDPROC
0x0a50…0a56 LineComalBin {
0x0a50…0a56 ptr = 0x97ad // 0xa50 @0x0
0x0a50…0a56 lno = 0x04c4 // 0xa52 @0x2
0x0a50…0a56 at0004 = ╱9f╱ ENDPROC ╱ // 0xa54 @0x4
0x0a50…0a56 at0005 = EOL // 0xa55 @0x5
0x0a50…0a56 }
0x0a56…0a64 97bb 1230 PROC GEMEPOST
0x0a56…0a64 LineComalBin {
0x0a56…0a64 ptr = 0x97bb // 0xa56 @0x0
0x0a56…0a64 lno = 0x04ce // 0xa58 @0x2
0x0a56…0a64 at0004 = ╱9e╱ PROC ╱ // 0xa5a @0x4
0x0a56…0a64 at0005 = ╱47╱G╱ // 0xa5b @0x5
0x0a56…0a64 at0006 = ╱45╱E╱ // 0xa5c @0x6
0x0a56…0a64 at0007 = ╱4d╱M╱ // 0xa5d @0x7
0x0a56…0a64 at0008 = ╱45╱E╱ // 0xa5e @0x8
0x0a56…0a64 at0009 = ╱50╱P╱ // 0xa5f @0x9
0x0a56…0a64 at000a = ╱4f╱O╱ // 0xa60 @0xa
0x0a56…0a64 at000b = ╱53╱S╱ // 0xa61 @0xb
0x0a56…0a64 at000c = ╱54╱T╱ // 0xa62 @0xc
0x0a56…0a64 at000d = EOL // 0xa63 @0xd
0x0a56…0a64 }
0x0a64…0a7a 97d1 1240 S=ETAB(EPIL3,G)+E
0x0a64…0a7a LineComalBin {
0x0a64…0a7a ptr = 0x97d1 // 0xa64 @0x0
0x0a64…0a7a lno = 0x04d8 // 0xa66 @0x2
0x0a64…0a7a at0004 = ╱53╱S╱ // 0xa68 @0x4
0x0a64…0a7a at0005 = ╱dc╱=╱ // 0xa69 @0x5
0x0a64…0a7a at0006 = ╱45╱E╱ // 0xa6a @0x6
0x0a64…0a7a at0007 = ╱54╱T╱ // 0xa6b @0x7
0x0a64…0a7a at0008 = ╱41╱A╱ // 0xa6c @0x8
0x0a64…0a7a at0009 = ╱42╱B╱ // 0xa6d @0x9
0x0a64…0a7a at000a = ╱ed╱(╱ // 0xa6e @0xa
0x0a64…0a7a at000b = ╱45╱E╱ // 0xa6f @0xb
0x0a64…0a7a at000c = ╱50╱P╱ // 0xa70 @0xc
0x0a64…0a7a at000d = ╱49╱I╱ // 0xa71 @0xd
0x0a64…0a7a at000e = ╱4c╱L╱ // 0xa72 @0xe
0x0a64…0a7a at000f = ╱33╱3╱ // 0xa73 @0xf
0x0a64…0a7a at0010 = ╱ec╱,╱ // 0xa74 @0x10
0x0a64…0a7a at0011 = ╱47╱G╱ // 0xa75 @0x11
0x0a64…0a7a at0012 = ╱ee╱)╱ // 0xa76 @0x12
0x0a64…0a7a at0013 = ╱e2╱+╱ // 0xa77 @0x13
0x0a64…0a7a at0014 = ╱45╱E╱ // 0xa78 @0x14
0x0a64…0a7a at0015 = EOL // 0xa79 @0x15
0x0a64…0a7a }
0x0a7a…0a8b 97e2 1250 FOR X=E TO MUNKANT
0x0a7a…0a8b LineComalBin {
0x0a7a…0a8b ptr = 0x97e2 // 0xa7a @0x0
0x0a7a…0a8b lno = 0x04e2 // 0xa7c @0x2
0x0a7a…0a8b at0004 = ╱83╱ FOR ╱ // 0xa7e @0x4
0x0a7a…0a8b at0005 = ╱58╱X╱ // 0xa7f @0x5
0x0a7a…0a8b at0006 = ╱dc╱=╱ // 0xa80 @0x6
0x0a7a…0a8b at0007 = ╱45╱E╱ // 0xa81 @0x7
0x0a7a…0a8b at0008 = ╱b7╱ TO ╱ // 0xa82 @0x8
0x0a7a…0a8b at0009 = ╱4d╱M╱ // 0xa83 @0x9
0x0a7a…0a8b at000a = ╱55╱U╱ // 0xa84 @0xa
0x0a7a…0a8b at000b = ╱4e╱N╱ // 0xa85 @0xb
0x0a7a…0a8b at000c = ╱4b╱K╱ // 0xa86 @0xc
0x0a7a…0a8b at000d = ╱41╱A╱ // 0xa87 @0xd
0x0a7a…0a8b at000e = ╱4e╱N╱ // 0xa88 @0xe
0x0a7a…0a8b at000f = ╱54╱T╱ // 0xa89 @0xf
0x0a7a…0a8b at0010 = EOL // 0xa8a @0x10
0x0a7a…0a8b }
0x0a8b…0ab2 9809 1260 PUT K3$,X+S:UKNR(X),MBEV$(X),YBEV$(X)
0x0a8b…0ab2 LineComalBin {
0x0a8b…0ab2 ptr = 0x9809 // 0xa8b @0x0
0x0a8b…0ab2 lno = 0x04ec // 0xa8d @0x2
0x0a8b…0ab2 at0004 = ╱aa╱ PUT ╱ // 0xa8f @0x4
0x0a8b…0ab2 at0005 = ╱4b╱K╱ // 0xa90 @0x5
0x0a8b…0ab2 at0006 = ╱33╱3╱ // 0xa91 @0x6
0x0a8b…0ab2 at0007 = ╱ef╱$╱ // 0xa92 @0x7
0x0a8b…0ab2 at0008 = ╱ec╱,╱ // 0xa93 @0x8
0x0a8b…0ab2 at0009 = ╱58╱X╱ // 0xa94 @0x9
0x0a8b…0ab2 at000a = ╱e2╱+╱ // 0xa95 @0xa
0x0a8b…0ab2 at000b = ╱53╱S╱ // 0xa96 @0xb
0x0a8b…0ab2 at000c = ╱f0╱:╱ // 0xa97 @0xc
0x0a8b…0ab2 at000d = ╱55╱U╱ // 0xa98 @0xd
0x0a8b…0ab2 at000e = ╱4b╱K╱ // 0xa99 @0xe
0x0a8b…0ab2 at000f = ╱4e╱N╱ // 0xa9a @0xf
0x0a8b…0ab2 at0010 = ╱52╱R╱ // 0xa9b @0x10
0x0a8b…0ab2 at0011 = ╱ed╱(╱ // 0xa9c @0x11
0x0a8b…0ab2 at0012 = ╱58╱X╱ // 0xa9d @0x12
0x0a8b…0ab2 at0013 = ╱ee╱)╱ // 0xa9e @0x13
0x0a8b…0ab2 at0014 = ╱ec╱,╱ // 0xa9f @0x14
0x0a8b…0ab2 at0015 = ╱4d╱M╱ // 0xaa0 @0x15
0x0a8b…0ab2 at0016 = ╱42╱B╱ // 0xaa1 @0x16
0x0a8b…0ab2 at0017 = ╱45╱E╱ // 0xaa2 @0x17
0x0a8b…0ab2 at0018 = ╱56╱V╱ // 0xaa3 @0x18
0x0a8b…0ab2 at0019 = ╱ef╱$╱ // 0xaa4 @0x19
0x0a8b…0ab2 at001a = ╱ed╱(╱ // 0xaa5 @0x1a
0x0a8b…0ab2 at001b = ╱58╱X╱ // 0xaa6 @0x1b
0x0a8b…0ab2 at001c = ╱ee╱)╱ // 0xaa7 @0x1c
0x0a8b…0ab2 at001d = ╱ec╱,╱ // 0xaa8 @0x1d
0x0a8b…0ab2 at001e = ╱59╱Y╱ // 0xaa9 @0x1e
0x0a8b…0ab2 at001f = ╱42╱B╱ // 0xaaa @0x1f
0x0a8b…0ab2 at0020 = ╱45╱E╱ // 0xaab @0x20
0x0a8b…0ab2 at0021 = ╱56╱V╱ // 0xaac @0x21
0x0a8b…0ab2 at0022 = ╱ef╱$╱ // 0xaad @0x22
0x0a8b…0ab2 at0023 = ╱ed╱(╱ // 0xaae @0x23
0x0a8b…0ab2 at0024 = ╱58╱X╱ // 0xaaf @0x24
0x0a8b…0ab2 at0025 = ╱ee╱)╱ // 0xab0 @0x25
0x0a8b…0ab2 at0026 = EOL // 0xab1 @0x26
0x0a8b…0ab2 }
0x0ab2…0ac5 981c 1270 EXEC FEJL(V,G,K3$)
0x0ab2…0ac5 LineComalBin {
0x0ab2…0ac5 ptr = 0x981c // 0xab2 @0x0
0x0ab2…0ac5 lno = 0x04f6 // 0xab4 @0x2
0x0ab2…0ac5 at0004 = ╱9d╱ EXEC ╱ // 0xab6 @0x4
0x0ab2…0ac5 at0005 = ╱46╱F╱ // 0xab7 @0x5
0x0ab2…0ac5 at0006 = ╱45╱E╱ // 0xab8 @0x6
0x0ab2…0ac5 at0007 = ╱4a╱J╱ // 0xab9 @0x7
0x0ab2…0ac5 at0008 = ╱4c╱L╱ // 0xaba @0x8
0x0ab2…0ac5 at0009 = ╱ed╱(╱ // 0xabb @0x9
0x0ab2…0ac5 at000a = ╱56╱V╱ // 0xabc @0xa
0x0ab2…0ac5 at000b = ╱ec╱,╱ // 0xabd @0xb
0x0ab2…0ac5 at000c = ╱47╱G╱ // 0xabe @0xc
0x0ab2…0ac5 at000d = ╱ec╱,╱ // 0xabf @0xd
0x0ab2…0ac5 at000e = ╱4b╱K╱ // 0xac0 @0xe
0x0ab2…0ac5 at000f = ╱33╱3╱ // 0xac1 @0xf
0x0ab2…0ac5 at0010 = ╱ef╱$╱ // 0xac2 @0x10
0x0ab2…0ac5 at0011 = ╱ee╱)╱ // 0xac3 @0x11
0x0ab2…0ac5 at0012 = EOL // 0xac4 @0x12
0x0ab2…0ac5 }
0x0ac5…0acc 9823 1280 NEXT X
0x0ac5…0acc LineComalBin {
0x0ac5…0acc ptr = 0x9823 // 0xac5 @0x0
0x0ac5…0acc lno = 0x0500 // 0xac7 @0x2
0x0ac5…0acc at0004 = ╱84╱ NEXT ╱ // 0xac9 @0x4
0x0ac5…0acc at0005 = ╱58╱X╱ // 0xaca @0x5
0x0ac5…0acc at0006 = EOL // 0xacb @0x6
0x0ac5…0acc }
0x0acc…0ad2 9829 1290 ENDPROC
0x0acc…0ad2 LineComalBin {
0x0acc…0ad2 ptr = 0x9829 // 0xacc @0x0
0x0acc…0ad2 lno = 0x050a // 0xace @0x2
0x0acc…0ad2 at0004 = ╱9f╱ ENDPROC ╱ // 0xad0 @0x4
0x0acc…0ad2 at0005 = EOL // 0xad1 @0x5
0x0acc…0ad2 }
0x0ad2…0ae0 9837 1300 PROC HENTPOST
0x0ad2…0ae0 LineComalBin {
0x0ad2…0ae0 ptr = 0x9837 // 0xad2 @0x0
0x0ad2…0ae0 lno = 0x0514 // 0xad4 @0x2
0x0ad2…0ae0 at0004 = ╱9e╱ PROC ╱ // 0xad6 @0x4
0x0ad2…0ae0 at0005 = ╱48╱H╱ // 0xad7 @0x5
0x0ad2…0ae0 at0006 = ╱45╱E╱ // 0xad8 @0x6
0x0ad2…0ae0 at0007 = ╱4e╱N╱ // 0xad9 @0x7
0x0ad2…0ae0 at0008 = ╱54╱T╱ // 0xada @0x8
0x0ad2…0ae0 at0009 = ╱50╱P╱ // 0xadb @0x9
0x0ad2…0ae0 at000a = ╱4f╱O╱ // 0xadc @0xa
0x0ad2…0ae0 at000b = ╱53╱S╱ // 0xadd @0xb
0x0ad2…0ae0 at000c = ╱54╱T╱ // 0xade @0xc
0x0ad2…0ae0 at000d = EOL // 0xadf @0xd
0x0ad2…0ae0 }
0x0ae0…0b1e 9875 1310 FNR=UNR(UPIL3);FUKODE$=UKODE$(UPIL3);FNAVN$=UNAVN$(UPIL3)
0x0ae0…0b1e LineComalBin {
0x0ae0…0b1e ptr = 0x9875 // 0xae0 @0x0
0x0ae0…0b1e lno = 0x051e // 0xae2 @0x2
0x0ae0…0b1e at0004 = ╱46╱F╱ // 0xae4 @0x4
0x0ae0…0b1e at0005 = ╱4e╱N╱ // 0xae5 @0x5
0x0ae0…0b1e at0006 = ╱52╱R╱ // 0xae6 @0x6
0x0ae0…0b1e at0007 = ╱dc╱=╱ // 0xae7 @0x7
0x0ae0…0b1e at0008 = ╱55╱U╱ // 0xae8 @0x8
0x0ae0…0b1e at0009 = ╱4e╱N╱ // 0xae9 @0x9
0x0ae0…0b1e at000a = ╱52╱R╱ // 0xaea @0xa
0x0ae0…0b1e at000b = ╱ed╱(╱ // 0xaeb @0xb
0x0ae0…0b1e at000c = ╱55╱U╱ // 0xaec @0xc
0x0ae0…0b1e at000d = ╱50╱P╱ // 0xaed @0xd
0x0ae0…0b1e at000e = ╱49╱I╱ // 0xaee @0xe
0x0ae0…0b1e at000f = ╱4c╱L╱ // 0xaef @0xf
0x0ae0…0b1e at0010 = ╱33╱3╱ // 0xaf0 @0x10
0x0ae0…0b1e at0011 = ╱ee╱)╱ // 0xaf1 @0x11
0x0ae0…0b1e at0012 = ╱eb╱;╱ // 0xaf2 @0x12
0x0ae0…0b1e at0013 = ╱46╱F╱ // 0xaf3 @0x13
0x0ae0…0b1e at0014 = ╱55╱U╱ // 0xaf4 @0x14
0x0ae0…0b1e at0015 = ╱4b╱K╱ // 0xaf5 @0x15
0x0ae0…0b1e at0016 = ╱4f╱O╱ // 0xaf6 @0x16
0x0ae0…0b1e at0017 = ╱44╱D╱ // 0xaf7 @0x17
0x0ae0…0b1e at0018 = ╱45╱E╱ // 0xaf8 @0x18
0x0ae0…0b1e at0019 = ╱ef╱$╱ // 0xaf9 @0x19
0x0ae0…0b1e at001a = ╱dc╱=╱ // 0xafa @0x1a
0x0ae0…0b1e at001b = ╱55╱U╱ // 0xafb @0x1b
0x0ae0…0b1e at001c = ╱4b╱K╱ // 0xafc @0x1c
0x0ae0…0b1e at001d = ╱4f╱O╱ // 0xafd @0x1d
0x0ae0…0b1e at001e = ╱44╱D╱ // 0xafe @0x1e
0x0ae0…0b1e at001f = ╱45╱E╱ // 0xaff @0x1f
0x0ae0…0b1e at0020 = ╱ef╱$╱ // 0xb00 @0x20
0x0ae0…0b1e at0021 = ╱ed╱(╱ // 0xb01 @0x21
0x0ae0…0b1e at0022 = ╱55╱U╱ // 0xb02 @0x22
0x0ae0…0b1e at0023 = ╱50╱P╱ // 0xb03 @0x23
0x0ae0…0b1e at0024 = ╱49╱I╱ // 0xb04 @0x24
0x0ae0…0b1e at0025 = ╱4c╱L╱ // 0xb05 @0x25
0x0ae0…0b1e at0026 = ╱33╱3╱ // 0xb06 @0x26
0x0ae0…0b1e at0027 = ╱ee╱)╱ // 0xb07 @0x27
0x0ae0…0b1e at0028 = ╱eb╱;╱ // 0xb08 @0x28
0x0ae0…0b1e at0029 = ╱46╱F╱ // 0xb09 @0x29
0x0ae0…0b1e at002a = ╱4e╱N╱ // 0xb0a @0x2a
0x0ae0…0b1e at002b = ╱41╱A╱ // 0xb0b @0x2b
0x0ae0…0b1e at002c = ╱56╱V╱ // 0xb0c @0x2c
0x0ae0…0b1e at002d = ╱4e╱N╱ // 0xb0d @0x2d
0x0ae0…0b1e at002e = ╱ef╱$╱ // 0xb0e @0x2e
0x0ae0…0b1e at002f = ╱dc╱=╱ // 0xb0f @0x2f
0x0ae0…0b1e at0030 = ╱55╱U╱ // 0xb10 @0x30
0x0ae0…0b1e at0031 = ╱4e╱N╱ // 0xb11 @0x31
0x0ae0…0b1e at0032 = ╱41╱A╱ // 0xb12 @0x32
0x0ae0…0b1e at0033 = ╱56╱V╱ // 0xb13 @0x33
0x0ae0…0b1e at0034 = ╱4e╱N╱ // 0xb14 @0x34
0x0ae0…0b1e at0035 = ╱ef╱$╱ // 0xb15 @0x35
0x0ae0…0b1e at0036 = ╱ed╱(╱ // 0xb16 @0x36
0x0ae0…0b1e at0037 = ╱55╱U╱ // 0xb17 @0x37
0x0ae0…0b1e at0038 = ╱50╱P╱ // 0xb18 @0x38
0x0ae0…0b1e at0039 = ╱49╱I╱ // 0xb19 @0x39
0x0ae0…0b1e at003a = ╱4c╱L╱ // 0xb1a @0x3a
0x0ae0…0b1e at003b = ╱33╱3╱ // 0xb1b @0x3b
0x0ae0…0b1e at003c = ╱ee╱)╱ // 0xb1c @0x3c
0x0ae0…0b1e at003d = EOL // 0xb1d @0x3d
0x0ae0…0b1e }
0x0b1e…0b24 987b 1320 ENDPROC
0x0b1e…0b24 LineComalBin {
0x0b1e…0b24 ptr = 0x987b // 0xb1e @0x0
0x0b1e…0b24 lno = 0x0528 // 0xb20 @0x2
0x0b1e…0b24 at0004 = ╱9f╱ ENDPROC ╱ // 0xb22 @0x4
0x0b1e…0b24 at0005 = EOL // 0xb23 @0x5
0x0b1e…0b24 }
0x0b24…0b32 9889 1330 PROC GEMUPOST
0x0b24…0b32 LineComalBin {
0x0b24…0b32 ptr = 0x9889 // 0xb24 @0x0
0x0b24…0b32 lno = 0x0532 // 0xb26 @0x2
0x0b24…0b32 at0004 = ╱9e╱ PROC ╱ // 0xb28 @0x4
0x0b24…0b32 at0005 = ╱47╱G╱ // 0xb29 @0x5
0x0b24…0b32 at0006 = ╱45╱E╱ // 0xb2a @0x6
0x0b24…0b32 at0007 = ╱4d╱M╱ // 0xb2b @0x7
0x0b24…0b32 at0008 = ╱55╱U╱ // 0xb2c @0x8
0x0b24…0b32 at0009 = ╱50╱P╱ // 0xb2d @0x9
0x0b24…0b32 at000a = ╱4f╱O╱ // 0xb2e @0xa
0x0b24…0b32 at000b = ╱53╱S╱ // 0xb2f @0xb
0x0b24…0b32 at000c = ╱54╱T╱ // 0xb30 @0xc
0x0b24…0b32 at000d = EOL // 0xb31 @0xd
0x0b24…0b32 }
0x0b32…0b70 98c7 1340 UNR(UPIL3)=FNR;UKODE$(UPIL3)=FUKODE$;UNAVN$(UPIL3)=FNAVN$
0x0b32…0b70 LineComalBin {
0x0b32…0b70 ptr = 0x98c7 // 0xb32 @0x0
0x0b32…0b70 lno = 0x053c // 0xb34 @0x2
0x0b32…0b70 at0004 = ╱55╱U╱ // 0xb36 @0x4
0x0b32…0b70 at0005 = ╱4e╱N╱ // 0xb37 @0x5
0x0b32…0b70 at0006 = ╱52╱R╱ // 0xb38 @0x6
0x0b32…0b70 at0007 = ╱ed╱(╱ // 0xb39 @0x7
0x0b32…0b70 at0008 = ╱55╱U╱ // 0xb3a @0x8
0x0b32…0b70 at0009 = ╱50╱P╱ // 0xb3b @0x9
0x0b32…0b70 at000a = ╱49╱I╱ // 0xb3c @0xa
0x0b32…0b70 at000b = ╱4c╱L╱ // 0xb3d @0xb
0x0b32…0b70 at000c = ╱33╱3╱ // 0xb3e @0xc
0x0b32…0b70 at000d = ╱ee╱)╱ // 0xb3f @0xd
0x0b32…0b70 at000e = ╱dc╱=╱ // 0xb40 @0xe
0x0b32…0b70 at000f = ╱46╱F╱ // 0xb41 @0xf
0x0b32…0b70 at0010 = ╱4e╱N╱ // 0xb42 @0x10
0x0b32…0b70 at0011 = ╱52╱R╱ // 0xb43 @0x11
0x0b32…0b70 at0012 = ╱eb╱;╱ // 0xb44 @0x12
0x0b32…0b70 at0013 = ╱55╱U╱ // 0xb45 @0x13
0x0b32…0b70 at0014 = ╱4b╱K╱ // 0xb46 @0x14
0x0b32…0b70 at0015 = ╱4f╱O╱ // 0xb47 @0x15
0x0b32…0b70 at0016 = ╱44╱D╱ // 0xb48 @0x16
0x0b32…0b70 at0017 = ╱45╱E╱ // 0xb49 @0x17
0x0b32…0b70 at0018 = ╱ef╱$╱ // 0xb4a @0x18
0x0b32…0b70 at0019 = ╱ed╱(╱ // 0xb4b @0x19
0x0b32…0b70 at001a = ╱55╱U╱ // 0xb4c @0x1a
0x0b32…0b70 at001b = ╱50╱P╱ // 0xb4d @0x1b
0x0b32…0b70 at001c = ╱49╱I╱ // 0xb4e @0x1c
0x0b32…0b70 at001d = ╱4c╱L╱ // 0xb4f @0x1d
0x0b32…0b70 at001e = ╱33╱3╱ // 0xb50 @0x1e
0x0b32…0b70 at001f = ╱ee╱)╱ // 0xb51 @0x1f
0x0b32…0b70 at0020 = ╱dc╱=╱ // 0xb52 @0x20
0x0b32…0b70 at0021 = ╱46╱F╱ // 0xb53 @0x21
0x0b32…0b70 at0022 = ╱55╱U╱ // 0xb54 @0x22
0x0b32…0b70 at0023 = ╱4b╱K╱ // 0xb55 @0x23
0x0b32…0b70 at0024 = ╱4f╱O╱ // 0xb56 @0x24
0x0b32…0b70 at0025 = ╱44╱D╱ // 0xb57 @0x25
0x0b32…0b70 at0026 = ╱45╱E╱ // 0xb58 @0x26
0x0b32…0b70 at0027 = ╱ef╱$╱ // 0xb59 @0x27
0x0b32…0b70 at0028 = ╱eb╱;╱ // 0xb5a @0x28
0x0b32…0b70 at0029 = ╱55╱U╱ // 0xb5b @0x29
0x0b32…0b70 at002a = ╱4e╱N╱ // 0xb5c @0x2a
0x0b32…0b70 at002b = ╱41╱A╱ // 0xb5d @0x2b
0x0b32…0b70 at002c = ╱56╱V╱ // 0xb5e @0x2c
0x0b32…0b70 at002d = ╱4e╱N╱ // 0xb5f @0x2d
0x0b32…0b70 at002e = ╱ef╱$╱ // 0xb60 @0x2e
0x0b32…0b70 at002f = ╱ed╱(╱ // 0xb61 @0x2f
0x0b32…0b70 at0030 = ╱55╱U╱ // 0xb62 @0x30
0x0b32…0b70 at0031 = ╱50╱P╱ // 0xb63 @0x31
0x0b32…0b70 at0032 = ╱49╱I╱ // 0xb64 @0x32
0x0b32…0b70 at0033 = ╱4c╱L╱ // 0xb65 @0x33
0x0b32…0b70 at0034 = ╱33╱3╱ // 0xb66 @0x34
0x0b32…0b70 at0035 = ╱ee╱)╱ // 0xb67 @0x35
0x0b32…0b70 at0036 = ╱dc╱=╱ // 0xb68 @0x36
0x0b32…0b70 at0037 = ╱46╱F╱ // 0xb69 @0x37
0x0b32…0b70 at0038 = ╱4e╱N╱ // 0xb6a @0x38
0x0b32…0b70 at0039 = ╱41╱A╱ // 0xb6b @0x39
0x0b32…0b70 at003a = ╱56╱V╱ // 0xb6c @0x3a
0x0b32…0b70 at003b = ╱4e╱N╱ // 0xb6d @0x3b
0x0b32…0b70 at003c = ╱ef╱$╱ // 0xb6e @0x3c
0x0b32…0b70 at003d = EOL // 0xb6f @0x3d
0x0b32…0b70 }
0x0b70…0b76 98cd 1350 ENDPROC
0x0b70…0b76 LineComalBin {
0x0b70…0b76 ptr = 0x98cd // 0xb70 @0x0
0x0b70…0b76 lno = 0x0546 // 0xb72 @0x2
0x0b70…0b76 at0004 = ╱9f╱ ENDPROC ╱ // 0xb74 @0x4
0x0b70…0b76 at0005 = EOL // 0xb75 @0x5
0x0b70…0b76 }
0x0b76…0b95 98ec 1360 PROC FINDTAST(FSTYR,FÆND,FNR2)
0x0b76…0b95 LineComalBin {
0x0b76…0b95 ptr = 0x98ec // 0xb76 @0x0
0x0b76…0b95 lno = 0x0550 // 0xb78 @0x2
0x0b76…0b95 at0004 = ╱9e╱ PROC ╱ // 0xb7a @0x4
0x0b76…0b95 at0005 = ╱46╱F╱ // 0xb7b @0x5
0x0b76…0b95 at0006 = ╱49╱I╱ // 0xb7c @0x6
0x0b76…0b95 at0007 = ╱4e╱N╱ // 0xb7d @0x7
0x0b76…0b95 at0008 = ╱44╱D╱ // 0xb7e @0x8
0x0b76…0b95 at0009 = ╱54╱T╱ // 0xb7f @0x9
0x0b76…0b95 at000a = ╱41╱A╱ // 0xb80 @0xa
0x0b76…0b95 at000b = ╱53╱S╱ // 0xb81 @0xb
0x0b76…0b95 at000c = ╱54╱T╱ // 0xb82 @0xc
0x0b76…0b95 at000d = ╱ed╱(╱ // 0xb83 @0xd
0x0b76…0b95 at000e = ╱46╱F╱ // 0xb84 @0xe
0x0b76…0b95 at000f = ╱53╱S╱ // 0xb85 @0xf
0x0b76…0b95 at0010 = ╱54╱T╱ // 0xb86 @0x10
0x0b76…0b95 at0011 = ╱59╱Y╱ // 0xb87 @0x11
0x0b76…0b95 at0012 = ╱52╱R╱ // 0xb88 @0x12
0x0b76…0b95 at0013 = ╱ec╱,╱ // 0xb89 @0x13
0x0b76…0b95 at0014 = ╱46╱F╱ // 0xb8a @0x14
0x0b76…0b95 at0015 = ╱5b╱Æ╱ // 0xb8b @0x15
0x0b76…0b95 at0016 = ╱4e╱N╱ // 0xb8c @0x16
0x0b76…0b95 at0017 = ╱44╱D╱ // 0xb8d @0x17
0x0b76…0b95 at0018 = ╱ec╱,╱ // 0xb8e @0x18
0x0b76…0b95 at0019 = ╱46╱F╱ // 0xb8f @0x19
0x0b76…0b95 at001a = ╱4e╱N╱ // 0xb90 @0x1a
0x0b76…0b95 at001b = ╱52╱R╱ // 0xb91 @0x1b
0x0b76…0b95 at001c = ╱32╱2╱ // 0xb92 @0x1c
0x0b76…0b95 at001d = ╱ee╱)╱ // 0xb93 @0x1d
0x0b76…0b95 at001e = EOL // 0xb94 @0x1e
0x0b76…0b95 }
0x0b95…0ba2 98f9 1370 IF FÆND<>E THEN
0x0b95…0ba2 LineComalBin {
0x0b95…0ba2 ptr = 0x98f9 // 0xb95 @0x0
0x0b95…0ba2 lno = 0x055a // 0xb97 @0x2
0x0b95…0ba2 at0004 = ╱9c╱ IF ╱ // 0xb99 @0x4
0x0b95…0ba2 at0005 = ╱46╱F╱ // 0xb9a @0x5
0x0b95…0ba2 at0006 = ╱5b╱Æ╱ // 0xb9b @0x6
0x0b95…0ba2 at0007 = ╱4e╱N╱ // 0xb9c @0x7
0x0b95…0ba2 at0008 = ╱44╱D╱ // 0xb9d @0x8
0x0b95…0ba2 at0009 = ╱e1╱<>╱ // 0xb9e @0x9
0x0b95…0ba2 at000a = ╱45╱E╱ // 0xb9f @0xa
0x0b95…0ba2 at000b = ╱b6╱ THEN ╱ // 0xba0 @0xb
0x0b95…0ba2 at000c = EOL // 0xba1 @0xc
0x0b95…0ba2 }
0x0ba2…0ba8 98ff 1380 CLEAR
0x0ba2…0ba8 LineComalBin {
0x0ba2…0ba8 ptr = 0x98ff // 0xba2 @0x0
0x0ba2…0ba8 lno = 0x0564 // 0xba4 @0x2
0x0ba2…0ba8 at0004 = ╱a0╱ CLEAR ╱ // 0xba6 @0x4
0x0ba2…0ba8 at0005 = EOL // 0xba7 @0x5
0x0ba2…0ba8 }
0x0ba8…0bb7 990e 1390 CURSOR 21,E
0x0ba8…0bb7 LineComalBin {
0x0ba8…0bb7 ptr = 0x990e // 0xba8 @0x0
0x0ba8…0bb7 lno = 0x056e // 0xbaa @0x2
0x0ba8…0bb7 at0004 = ╱a1╱ CURSOR ╱ // 0xbac @0x4
0x0ba8…0bb7 at0005 = ╱32╱2╱ // 0xbad @0x5
0x0ba8…0bb7 at0006 = ╱31╱1╱ // 0xbae @0x6
0x0ba8…0bb7 at0007 = ╱fe0000a805╱ // 0xbaf @0x7
0x0ba8…0bb7 at000c = ╱ec╱,╱ // 0xbb4 @0xc
0x0ba8…0bb7 at000d = ╱45╱E╱ // 0xbb5 @0xd
0x0ba8…0bb7 at000e = EOL // 0xbb6 @0xe
0x0ba8…0bb7 }
0x0bb7…0bcf 9926 1400 PRINT "Kontooplysninger"
0x0bb7…0bcf LineComalBin {
0x0bb7…0bcf ptr = 0x9926 // 0xbb7 @0x0
0x0bb7…0bcf lno = 0x0578 // 0xbb9 @0x2
0x0bb7…0bcf at0004 = ╱92╱ PRINT ╱ // 0xbbb @0x4
0x0bb7…0bcf at0005 = ╱22╱"╱ // 0xbbc @0x5
0x0bb7…0bcf at0006 = ╱4b╱K╱ // 0xbbd @0x6
0x0bb7…0bcf at0007 = ╱6f╱o╱ // 0xbbe @0x7
0x0bb7…0bcf at0008 = ╱6e╱n╱ // 0xbbf @0x8
0x0bb7…0bcf at0009 = ╱74╱t╱ // 0xbc0 @0x9
0x0bb7…0bcf at000a = ╱6f╱o╱ // 0xbc1 @0xa
0x0bb7…0bcf at000b = ╱6f╱o╱ // 0xbc2 @0xb
0x0bb7…0bcf at000c = ╱70╱p╱ // 0xbc3 @0xc
0x0bb7…0bcf at000d = ╱6c╱l╱ // 0xbc4 @0xd
0x0bb7…0bcf at000e = ╱79╱y╱ // 0xbc5 @0xe
0x0bb7…0bcf at000f = ╱73╱s╱ // 0xbc6 @0xf
0x0bb7…0bcf at0010 = ╱6e╱n╱ // 0xbc7 @0x10
0x0bb7…0bcf at0011 = ╱69╱i╱ // 0xbc8 @0x11
0x0bb7…0bcf at0012 = ╱6e╱n╱ // 0xbc9 @0x12
0x0bb7…0bcf at0013 = ╱67╱g╱ // 0xbca @0x13
0x0bb7…0bcf at0014 = ╱65╱e╱ // 0xbcb @0x14
0x0bb7…0bcf at0015 = ╱72╱r╱ // 0xbcc @0x15
0x0bb7…0bcf at0016 = ╱22╱"╱ // 0xbcd @0x16
0x0bb7…0bcf at0017 = EOL // 0xbce @0x17
0x0bb7…0bcf }
0x0bcf…0bde 9935 1410 EXEC VERSKRIFT
0x0bcf…0bde LineComalBin {
0x0bcf…0bde ptr = 0x9935 // 0xbcf @0x0
0x0bcf…0bde lno = 0x0582 // 0xbd1 @0x2
0x0bcf…0bde at0004 = ╱9d╱ EXEC ╱ // 0xbd3 @0x4
0x0bcf…0bde at0005 = ╱56╱V╱ // 0xbd4 @0x5
0x0bcf…0bde at0006 = ╱45╱E╱ // 0xbd5 @0x6
0x0bcf…0bde at0007 = ╱52╱R╱ // 0xbd6 @0x7
0x0bcf…0bde at0008 = ╱53╱S╱ // 0xbd7 @0x8
0x0bcf…0bde at0009 = ╱4b╱K╱ // 0xbd8 @0x9
0x0bcf…0bde at000a = ╱52╱R╱ // 0xbd9 @0xa
0x0bcf…0bde at000b = ╱49╱I╱ // 0xbda @0xb
0x0bcf…0bde at000c = ╱46╱F╱ // 0xbdb @0xc
0x0bcf…0bde at000d = ╱54╱T╱ // 0xbdc @0xd
0x0bcf…0bde at000e = EOL // 0xbdd @0xe
0x0bcf…0bde }
0x0bde…0be7 993e 1420 CURSOR G,V
0x0bde…0be7 LineComalBin {
0x0bde…0be7 ptr = 0x993e // 0xbde @0x0
0x0bde…0be7 lno = 0x058c // 0xbe0 @0x2
0x0bde…0be7 at0004 = ╱a1╱ CURSOR ╱ // 0xbe2 @0x4
0x0bde…0be7 at0005 = ╱47╱G╱ // 0xbe3 @0x5
0x0bde…0be7 at0006 = ╱ec╱,╱ // 0xbe4 @0x6
0x0bde…0be7 at0007 = ╱56╱V╱ // 0xbe5 @0x7
0x0bde…0be7 at0008 = EOL // 0xbe6 @0x8
0x0bde…0be7 }
0x0be7…0c0c 9963 1430 PRINT USING "1:Kontonr : ######":FNR2
0x0be7…0c0c LineComalBin {
0x0be7…0c0c ptr = 0x9963 // 0xbe7 @0x0
0x0be7…0c0c lno = 0x0596 // 0xbe9 @0x2
0x0be7…0c0c at0004 = ╱92╱ PRINT ╱ // 0xbeb @0x4
0x0be7…0c0c at0005 = ╱b9╱ USING ╱ // 0xbec @0x5
0x0be7…0c0c at0006 = ╱22╱"╱ // 0xbed @0x6
0x0be7…0c0c at0007 = ╱31╱1╱ // 0xbee @0x7
0x0be7…0c0c at0008 = ╱3a╱:╱ // 0xbef @0x8
0x0be7…0c0c at0009 = ╱4b╱K╱ // 0xbf0 @0x9
0x0be7…0c0c at000a = ╱6f╱o╱ // 0xbf1 @0xa
0x0be7…0c0c at000b = ╱6e╱n╱ // 0xbf2 @0xb
0x0be7…0c0c at000c = ╱74╱t╱ // 0xbf3 @0xc
0x0be7…0c0c at000d = ╱6f╱o╱ // 0xbf4 @0xd
0x0be7…0c0c at000e = ╱6e╱n╱ // 0xbf5 @0xe
0x0be7…0c0c at000f = ╱72╱r╱ // 0xbf6 @0xf
0x0be7…0c0c at0010 = ╱20╱…╱ // 0xbf7 @0x10
0x0be7…0c0c at0011 = ╱20╱…╱ // 0xbf8 @0x11
0x0be7…0c0c at0012 = ╱20╱…╱ // 0xbf9 @0x12
0x0be7…0c0c at0013 = ╱20╱…╱ // 0xbfa @0x13
0x0be7…0c0c at0014 = ╱20╱…╱ // 0xbfb @0x14
0x0be7…0c0c at0015 = ╱20╱…╱ // 0xbfc @0x15
0x0be7…0c0c at0016 = ╱3a╱:╱ // 0xbfd @0x16
0x0be7…0c0c at0017 = ╱20╱…╱ // 0xbfe @0x17
0x0be7…0c0c at0018 = ╱23╱#╱ // 0xbff @0x18
0x0be7…0c0c at0019 = ╱23╱#╱ // 0xc00 @0x19
0x0be7…0c0c at001a = ╱23╱#╱ // 0xc01 @0x1a
0x0be7…0c0c at001b = ╱23╱#╱ // 0xc02 @0x1b
0x0be7…0c0c at001c = ╱23╱#╱ // 0xc03 @0x1c
0x0be7…0c0c at001d = ╱23╱#╱ // 0xc04 @0x1d
0x0be7…0c0c at001e = ╱22╱"╱ // 0xc05 @0x1e
0x0be7…0c0c at001f = ╱f0╱:╱ // 0xc06 @0x1f
0x0be7…0c0c at0020 = ╱46╱F╱ // 0xc07 @0x20
0x0be7…0c0c at0021 = ╱4e╱N╱ // 0xc08 @0x21
0x0be7…0c0c at0022 = ╱52╱R╱ // 0xc09 @0x22
0x0be7…0c0c at0023 = ╱32╱2╱ // 0xc0a @0x23
0x0be7…0c0c at0024 = EOL // 0xc0b @0x24
0x0be7…0c0c }
0x0c0c…0c12 9969 1440 ENDIF
0x0c0c…0c12 LineComalBin {
0x0c0c…0c12 ptr = 0x9969 // 0xc0c @0x0
0x0c0c…0c12 lno = 0x05a0 // 0xc0e @0x2
0x0c0c…0c12 at0004 = ╱9b╱ ENDIF ╱ // 0xc10 @0x4
0x0c0c…0c12 at0005 = EOL // 0xc11 @0x5
0x0c0c…0c12 }
0x0c12…0c18 996f 1450 REPEAT
0x0c12…0c18 LineComalBin {
0x0c12…0c18 ptr = 0x996f // 0xc12 @0x0
0x0c12…0c18 lno = 0x05aa // 0xc14 @0x2
0x0c12…0c18 at0004 = ╱97╱ REPEAT ╱ // 0xc16 @0x4
0x0c12…0c18 at0005 = EOL // 0xc17 @0x5
0x0c12…0c18 }
0x0c18…0c25 997c 1460 CASE FSTYR OF
0x0c18…0c25 LineComalBin {
0x0c18…0c25 ptr = 0x997c // 0xc18 @0x0
0x0c18…0c25 lno = 0x05b4 // 0xc1a @0x2
0x0c18…0c25 at0004 = ╱a201╱ CASE ╱ // 0xc1c @0x4
0x0c18…0c25 at0006 = ╱46╱F╱ // 0xc1e @0x6
0x0c18…0c25 at0007 = ╱53╱S╱ // 0xc1f @0x7
0x0c18…0c25 at0008 = ╱54╱T╱ // 0xc20 @0x8
0x0c18…0c25 at0009 = ╱59╱Y╱ // 0xc21 @0x9
0x0c18…0c25 at000a = ╱52╱R╱ // 0xc22 @0xa
0x0c18…0c25 at000b = ╱ba╱ OF ╱ // 0xc23 @0xb
0x0c18…0c25 at000c = EOL // 0xc24 @0xc
0x0c18…0c25 }
0x0c25…0c2b 9982 1470 STOP
0x0c25…0c2b LineComalBin {
0x0c25…0c2b ptr = 0x9982 // 0xc25 @0x0
0x0c25…0c2b lno = 0x05be // 0xc27 @0x2
0x0c25…0c2b at0004 = ╱8d╱ STOP ╱ // 0xc29 @0x4
0x0c25…0c2b at0005 = EOL // 0xc2a @0x5
0x0c25…0c2b }
0x0c2b…0c33 998a 1480 WHEN G
0x0c2b…0c33 LineComalBin {
0x0c2b…0c33 ptr = 0x998a // 0xc2b @0x0
0x0c2b…0c33 lno = 0x05c8 // 0xc2d @0x2
0x0c2b…0c33 at0004 = ╱a301╱ WHEN ╱ // 0xc2f @0x4
0x0c2b…0c33 at0006 = ╱47╱G╱ // 0xc31 @0x6
0x0c2b…0c33 at0007 = EOL // 0xc32 @0x7
0x0c2b…0c33 }
0x0c33…0c40 9997 1490 IF FÆND<>E THEN
0x0c33…0c40 LineComalBin {
0x0c33…0c40 ptr = 0x9997 // 0xc33 @0x0
0x0c33…0c40 lno = 0x05d2 // 0xc35 @0x2
0x0c33…0c40 at0004 = ╱9c╱ IF ╱ // 0xc37 @0x4
0x0c33…0c40 at0005 = ╱46╱F╱ // 0xc38 @0x5
0x0c33…0c40 at0006 = ╱5b╱Æ╱ // 0xc39 @0x6
0x0c33…0c40 at0007 = ╱4e╱N╱ // 0xc3a @0x7
0x0c33…0c40 at0008 = ╱44╱D╱ // 0xc3b @0x8
0x0c33…0c40 at0009 = ╱e1╱<>╱ // 0xc3c @0x9
0x0c33…0c40 at000a = ╱45╱E╱ // 0xc3d @0xa
0x0c33…0c40 at000b = ╱b6╱ THEN ╱ // 0xc3e @0xb
0x0c33…0c40 at000c = EOL // 0xc3f @0xc
0x0c33…0c40 }
0x0c40…0c4e 99a5 1500 CURSOR G,5
0x0c40…0c4e LineComalBin {
0x0c40…0c4e ptr = 0x99a5 // 0xc40 @0x0
0x0c40…0c4e lno = 0x05dc // 0xc42 @0x2
0x0c40…0c4e at0004 = ╱a1╱ CURSOR ╱ // 0xc44 @0x4
0x0c40…0c4e at0005 = ╱47╱G╱ // 0xc45 @0x5
0x0c40…0c4e at0006 = ╱ec╱,╱ // 0xc46 @0x6
0x0c40…0c4e at0007 = ╱35╱5╱ // 0xc47 @0x7
0x0c40…0c4e at0008 = ╱fe0000a003╱ // 0xc48 @0x8
0x0c40…0c4e at000d = EOL // 0xc4d @0xd
0x0c40…0c4e }
0x0c4e…0c66 99bd 1510 PRINT "2:Kontonavn :"
0x0c4e…0c66 LineComalBin {
0x0c4e…0c66 ptr = 0x99bd // 0xc4e @0x0
0x0c4e…0c66 lno = 0x05e6 // 0xc50 @0x2
0x0c4e…0c66 at0004 = ╱92╱ PRINT ╱ // 0xc52 @0x4
0x0c4e…0c66 at0005 = ╱22╱"╱ // 0xc53 @0x5
0x0c4e…0c66 at0006 = ╱32╱2╱ // 0xc54 @0x6
0x0c4e…0c66 at0007 = ╱3a╱:╱ // 0xc55 @0x7
0x0c4e…0c66 at0008 = ╱4b╱K╱ // 0xc56 @0x8
0x0c4e…0c66 at0009 = ╱6f╱o╱ // 0xc57 @0x9
0x0c4e…0c66 at000a = ╱6e╱n╱ // 0xc58 @0xa
0x0c4e…0c66 at000b = ╱74╱t╱ // 0xc59 @0xb
0x0c4e…0c66 at000c = ╱6f╱o╱ // 0xc5a @0xc
0x0c4e…0c66 at000d = ╱6e╱n╱ // 0xc5b @0xd
0x0c4e…0c66 at000e = ╱61╱a╱ // 0xc5c @0xe
0x0c4e…0c66 at000f = ╱76╱v╱ // 0xc5d @0xf
0x0c4e…0c66 at0010 = ╱6e╱n╱ // 0xc5e @0x10
0x0c4e…0c66 at0011 = ╱20╱…╱ // 0xc5f @0x11
0x0c4e…0c66 at0012 = ╱20╱…╱ // 0xc60 @0x12
0x0c4e…0c66 at0013 = ╱20╱…╱ // 0xc61 @0x13
0x0c4e…0c66 at0014 = ╱20╱…╱ // 0xc62 @0x14
0x0c4e…0c66 at0015 = ╱3a╱:╱ // 0xc63 @0x15
0x0c4e…0c66 at0016 = ╱22╱"╱ // 0xc64 @0x16
0x0c4e…0c66 at0017 = EOL // 0xc65 @0x17
0x0c4e…0c66 }
0x0c66…0c72 99c9 1520 FSTYR=V
0x0c66…0c72 LineComalBin {
0x0c66…0c72 ptr = 0x99c9 // 0xc66 @0x0
0x0c66…0c72 lno = 0x05f0 // 0xc68 @0x2
0x0c66…0c72 at0004 = ╱46╱F╱ // 0xc6a @0x4
0x0c66…0c72 at0005 = ╱53╱S╱ // 0xc6b @0x5
0x0c66…0c72 at0006 = ╱54╱T╱ // 0xc6c @0x6
0x0c66…0c72 at0007 = ╱59╱Y╱ // 0xc6d @0x7
0x0c66…0c72 at0008 = ╱52╱R╱ // 0xc6e @0x8
0x0c66…0c72 at0009 = ╱dc╱=╱ // 0xc6f @0x9
0x0c66…0c72 at000a = ╱56╱V╱ // 0xc70 @0xa
0x0c66…0c72 at000b = EOL // 0xc71 @0xb
0x0c66…0c72 }
0x0c72…0c78 99cf 1530 ENDIF
0x0c72…0c78 LineComalBin {
0x0c72…0c78 ptr = 0x99cf // 0xc72 @0x0
0x0c72…0c78 lno = 0x05fa // 0xc74 @0x2
0x0c72…0c78 at0004 = ╱9b╱ ENDIF ╱ // 0xc76 @0x4
0x0c72…0c78 at0005 = EOL // 0xc77 @0x5
0x0c72…0c78 }
0x0c78…0c85 99dc 1540 IF FÆND<>G THEN
0x0c78…0c85 LineComalBin {
0x0c78…0c85 ptr = 0x99dc // 0xc78 @0x0
0x0c78…0c85 lno = 0x0604 // 0xc7a @0x2
0x0c78…0c85 at0004 = ╱9c╱ IF ╱ // 0xc7c @0x4
0x0c78…0c85 at0005 = ╱46╱F╱ // 0xc7d @0x5
0x0c78…0c85 at0006 = ╱5b╱Æ╱ // 0xc7e @0x6
0x0c78…0c85 at0007 = ╱4e╱N╱ // 0xc7f @0x7
0x0c78…0c85 at0008 = ╱44╱D╱ // 0xc80 @0x8
0x0c78…0c85 at0009 = ╱e1╱<>╱ // 0xc81 @0x9
0x0c78…0c85 at000a = ╱47╱G╱ // 0xc82 @0xa
0x0c78…0c85 at000b = ╱b6╱ THEN ╱ // 0xc83 @0xb
0x0c78…0c85 at000c = EOL // 0xc84 @0xc
0x0c78…0c85 }
0x0c85…0c94 99eb 1550 CURSOR V,23
0x0c85…0c94 LineComalBin {
0x0c85…0c94 ptr = 0x99eb // 0xc85 @0x0
0x0c85…0c94 lno = 0x060e // 0xc87 @0x2
0x0c85…0c94 at0004 = ╱a1╱ CURSOR ╱ // 0xc89 @0x4
0x0c85…0c94 at0005 = ╱56╱V╱ // 0xc8a @0x5
0x0c85…0c94 at0006 = ╱ec╱,╱ // 0xc8b @0x6
0x0c85…0c94 at0007 = ╱32╱2╱ // 0xc8c @0x7
0x0c85…0c94 at0008 = ╱33╱3╱ // 0xc8d @0x8
0x0c85…0c94 at0009 = ╱fe0000b805╱ // 0xc8e @0x9
0x0c85…0c94 at000e = EOL // 0xc93 @0xe
0x0c85…0c94 }
0x0c94…0cd9 9a30 1560 PRINT "Kontonavn";BLANK$(E:29);"(max 25 tegn)";BLANK$(E:25)
0x0c94…0cd9 LineComalBin {
0x0c94…0cd9 ptr = 0x9a30 // 0xc94 @0x0
0x0c94…0cd9 lno = 0x0618 // 0xc96 @0x2
0x0c94…0cd9 at0004 = ╱92╱ PRINT ╱ // 0xc98 @0x4
0x0c94…0cd9 at0005 = ╱22╱"╱ // 0xc99 @0x5
0x0c94…0cd9 at0006 = ╱4b╱K╱ // 0xc9a @0x6
0x0c94…0cd9 at0007 = ╱6f╱o╱ // 0xc9b @0x7
0x0c94…0cd9 at0008 = ╱6e╱n╱ // 0xc9c @0x8
0x0c94…0cd9 at0009 = ╱74╱t╱ // 0xc9d @0x9
0x0c94…0cd9 at000a = ╱6f╱o╱ // 0xc9e @0xa
0x0c94…0cd9 at000b = ╱6e╱n╱ // 0xc9f @0xb
0x0c94…0cd9 at000c = ╱61╱a╱ // 0xca0 @0xc
0x0c94…0cd9 at000d = ╱76╱v╱ // 0xca1 @0xd
0x0c94…0cd9 at000e = ╱6e╱n╱ // 0xca2 @0xe
0x0c94…0cd9 at000f = ╱22╱"╱ // 0xca3 @0xf
0x0c94…0cd9 at0010 = ╱eb╱;╱ // 0xca4 @0x10
0x0c94…0cd9 at0011 = ╱42╱B╱ // 0xca5 @0x11
0x0c94…0cd9 at0012 = ╱4c╱L╱ // 0xca6 @0x12
0x0c94…0cd9 at0013 = ╱41╱A╱ // 0xca7 @0x13
0x0c94…0cd9 at0014 = ╱4e╱N╱ // 0xca8 @0x14
0x0c94…0cd9 at0015 = ╱4b╱K╱ // 0xca9 @0x15
0x0c94…0cd9 at0016 = ╱ef╱$╱ // 0xcaa @0x16
0x0c94…0cd9 at0017 = ╱ed╱(╱ // 0xcab @0x17
0x0c94…0cd9 at0018 = ╱45╱E╱ // 0xcac @0x18
0x0c94…0cd9 at0019 = ╱f0╱:╱ // 0xcad @0x19
0x0c94…0cd9 at001a = ╱32╱2╱ // 0xcae @0x1a
0x0c94…0cd9 at001b = ╱39╱9╱ // 0xcaf @0x1b
0x0c94…0cd9 at001c = ╱fe0000e805╱ // 0xcb0 @0x1c
0x0c94…0cd9 at0021 = ╱ee╱)╱ // 0xcb5 @0x21
0x0c94…0cd9 at0022 = ╱eb╱;╱ // 0xcb6 @0x22
0x0c94…0cd9 at0023 = ╱22╱"╱ // 0xcb7 @0x23
0x0c94…0cd9 at0024 = ╱28╱(╱ // 0xcb8 @0x24
0x0c94…0cd9 at0025 = ╱6d╱m╱ // 0xcb9 @0x25
0x0c94…0cd9 at0026 = ╱61╱a╱ // 0xcba @0x26
0x0c94…0cd9 at0027 = ╱78╱x╱ // 0xcbb @0x27
0x0c94…0cd9 at0028 = ╱20╱…╱ // 0xcbc @0x28
0x0c94…0cd9 at0029 = ╱32╱2╱ // 0xcbd @0x29
0x0c94…0cd9 at002a = ╱35╱5╱ // 0xcbe @0x2a
0x0c94…0cd9 at002b = ╱20╱…╱ // 0xcbf @0x2b
0x0c94…0cd9 at002c = ╱74╱t╱ // 0xcc0 @0x2c
0x0c94…0cd9 at002d = ╱65╱e╱ // 0xcc1 @0x2d
0x0c94…0cd9 at002e = ╱67╱g╱ // 0xcc2 @0x2e
0x0c94…0cd9 at002f = ╱6e╱n╱ // 0xcc3 @0x2f
0x0c94…0cd9 at0030 = ╱29╱)╱ // 0xcc4 @0x30
0x0c94…0cd9 at0031 = ╱22╱"╱ // 0xcc5 @0x31
0x0c94…0cd9 at0032 = ╱eb╱;╱ // 0xcc6 @0x32
0x0c94…0cd9 at0033 = ╱42╱B╱ // 0xcc7 @0x33
0x0c94…0cd9 at0034 = ╱4c╱L╱ // 0xcc8 @0x34
0x0c94…0cd9 at0035 = ╱41╱A╱ // 0xcc9 @0x35
0x0c94…0cd9 at0036 = ╱4e╱N╱ // 0xcca @0x36
0x0c94…0cd9 at0037 = ╱4b╱K╱ // 0xccb @0x37
0x0c94…0cd9 at0038 = ╱ef╱$╱ // 0xccc @0x38
0x0c94…0cd9 at0039 = ╱ed╱(╱ // 0xccd @0x39
0x0c94…0cd9 at003a = ╱45╱E╱ // 0xcce @0x3a
0x0c94…0cd9 at003b = ╱f0╱:╱ // 0xccf @0x3b
0x0c94…0cd9 at003c = ╱32╱2╱ // 0xcd0 @0x3c
0x0c94…0cd9 at003d = ╱35╱5╱ // 0xcd1 @0x3d
0x0c94…0cd9 at003e = ╱fe0000c805╱ // 0xcd2 @0x3e
0x0c94…0cd9 at0043 = ╱ee╱)╱ // 0xcd7 @0x43
0x0c94…0cd9 at0044 = EOL // 0xcd8 @0x44
0x0c94…0cd9 }
0x0cd9…0cee 9a45 1570 CURSOR 13,23
0x0cd9…0cee LineComalBin {
0x0cd9…0cee ptr = 0x9a45 // 0xcd9 @0x0
0x0cd9…0cee lno = 0x0622 // 0xcdb @0x2
0x0cd9…0cee at0004 = ╱a1╱ CURSOR ╱ // 0xcdd @0x4
0x0cd9…0cee at0005 = ╱31╱1╱ // 0xcde @0x5
0x0cd9…0cee at0006 = ╱33╱3╱ // 0xcdf @0x6
0x0cd9…0cee at0007 = ╱fe0000d004╱ // 0xce0 @0x7
0x0cd9…0cee at000c = ╱ec╱,╱ // 0xce5 @0xc
0x0cd9…0cee at000d = ╱32╱2╱ // 0xce6 @0xd
0x0cd9…0cee at000e = ╱33╱3╱ // 0xce7 @0xe
0x0cd9…0cee at000f = ╱fe0000b805╱ // 0xce8 @0xf
0x0cd9…0cee at0014 = EOL // 0xced @0x14
0x0cd9…0cee }
0x0cee…0cfa 9a51 1580 INPUT FNAVN$
0x0cee…0cfa LineComalBin {
0x0cee…0cfa ptr = 0x9a51 // 0xcee @0x0
0x0cee…0cfa lno = 0x062c // 0xcf0 @0x2
0x0cee…0cfa at0004 = ╱91╱ INPUT ╱ // 0xcf2 @0x4
0x0cee…0cfa at0005 = ╱46╱F╱ // 0xcf3 @0x5
0x0cee…0cfa at0006 = ╱4e╱N╱ // 0xcf4 @0x6
0x0cee…0cfa at0007 = ╱41╱A╱ // 0xcf5 @0x7
0x0cee…0cfa at0008 = ╱56╱V╱ // 0xcf6 @0x8
0x0cee…0cfa at0009 = ╱4e╱N╱ // 0xcf7 @0x9
0x0cee…0cfa at000a = ╱ef╱$╱ // 0xcf8 @0xa
0x0cee…0cfa at000b = EOL // 0xcf9 @0xb
0x0cee…0cfa }
0x0cfa…0d00 9a57 1590 ENDIF
0x0cfa…0d00 LineComalBin {
0x0cfa…0d00 ptr = 0x9a57 // 0xcfa @0x0
0x0cfa…0d00 lno = 0x0636 // 0xcfc @0x2
0x0cfa…0d00 at0004 = ╱9b╱ ENDIF ╱ // 0xcfe @0x4
0x0cfa…0d00 at0005 = EOL // 0xcff @0x5
0x0cfa…0d00 }
0x0d00…0d14 9a6b 1600 CURSOR 19,5
0x0d00…0d14 LineComalBin {
0x0d00…0d14 ptr = 0x9a6b // 0xd00 @0x0
0x0d00…0d14 lno = 0x0640 // 0xd02 @0x2
0x0d00…0d14 at0004 = ╱a1╱ CURSOR ╱ // 0xd04 @0x4
0x0d00…0d14 at0005 = ╱31╱1╱ // 0xd05 @0x5
0x0d00…0d14 at0006 = ╱39╱9╱ // 0xd06 @0x6
0x0d00…0d14 at0007 = ╱fe00009805╱ // 0xd07 @0x7
0x0d00…0d14 at000c = ╱ec╱,╱ // 0xd0c @0xc
0x0d00…0d14 at000d = ╱35╱5╱ // 0xd0d @0xd
0x0d00…0d14 at000e = ╱fe0000a003╱ // 0xd0e @0xe
0x0d00…0d14 at0013 = EOL // 0xd13 @0x13
0x0d00…0d14 }
0x0d14…0d2b 9a82 1610 PRINT BLANK$(E:25)
0x0d14…0d2b LineComalBin {
0x0d14…0d2b ptr = 0x9a82 // 0xd14 @0x0
0x0d14…0d2b lno = 0x064a // 0xd16 @0x2
0x0d14…0d2b at0004 = ╱92╱ PRINT ╱ // 0xd18 @0x4
0x0d14…0d2b at0005 = ╱42╱B╱ // 0xd19 @0x5
0x0d14…0d2b at0006 = ╱4c╱L╱ // 0xd1a @0x6
0x0d14…0d2b at0007 = ╱41╱A╱ // 0xd1b @0x7
0x0d14…0d2b at0008 = ╱4e╱N╱ // 0xd1c @0x8
0x0d14…0d2b at0009 = ╱4b╱K╱ // 0xd1d @0x9
0x0d14…0d2b at000a = ╱ef╱$╱ // 0xd1e @0xa
0x0d14…0d2b at000b = ╱ed╱(╱ // 0xd1f @0xb
0x0d14…0d2b at000c = ╱45╱E╱ // 0xd20 @0xc
0x0d14…0d2b at000d = ╱f0╱:╱ // 0xd21 @0xd
0x0d14…0d2b at000e = ╱32╱2╱ // 0xd22 @0xe
0x0d14…0d2b at000f = ╱35╱5╱ // 0xd23 @0xf
0x0d14…0d2b at0010 = ╱fe0000c805╱ // 0xd24 @0x10
0x0d14…0d2b at0015 = ╱ee╱)╱ // 0xd29 @0x15
0x0d14…0d2b at0016 = EOL // 0xd2a @0x16
0x0d14…0d2b }
0x0d2b…0d3f 9a96 1620 CURSOR 19,5
0x0d2b…0d3f LineComalBin {
0x0d2b…0d3f ptr = 0x9a96 // 0xd2b @0x0
0x0d2b…0d3f lno = 0x0654 // 0xd2d @0x2
0x0d2b…0d3f at0004 = ╱a1╱ CURSOR ╱ // 0xd2f @0x4
0x0d2b…0d3f at0005 = ╱31╱1╱ // 0xd30 @0x5
0x0d2b…0d3f at0006 = ╱39╱9╱ // 0xd31 @0x6
0x0d2b…0d3f at0007 = ╱fe00009805╱ // 0xd32 @0x7
0x0d2b…0d3f at000c = ╱ec╱,╱ // 0xd37 @0xc
0x0d2b…0d3f at000d = ╱35╱5╱ // 0xd38 @0xd
0x0d2b…0d3f at000e = ╱fe0000a003╱ // 0xd39 @0xe
0x0d2b…0d3f at0013 = EOL // 0xd3e @0x13
0x0d2b…0d3f }
0x0d3f…0d4b 9aa2 1630 PRINT FNAVN$
0x0d3f…0d4b LineComalBin {
0x0d3f…0d4b ptr = 0x9aa2 // 0xd3f @0x0
0x0d3f…0d4b lno = 0x065e // 0xd41 @0x2
0x0d3f…0d4b at0004 = ╱92╱ PRINT ╱ // 0xd43 @0x4
0x0d3f…0d4b at0005 = ╱46╱F╱ // 0xd44 @0x5
0x0d3f…0d4b at0006 = ╱4e╱N╱ // 0xd45 @0x6
0x0d3f…0d4b at0007 = ╱41╱A╱ // 0xd46 @0x7
0x0d3f…0d4b at0008 = ╱56╱V╱ // 0xd47 @0x8
0x0d3f…0d4b at0009 = ╱4e╱N╱ // 0xd48 @0x9
0x0d3f…0d4b at000a = ╱ef╱$╱ // 0xd49 @0xa
0x0d3f…0d4b at000b = EOL // 0xd4a @0xb
0x0d3f…0d4b }
0x0d4b…0d53 9aaa 1640 WHEN V
0x0d4b…0d53 LineComalBin {
0x0d4b…0d53 ptr = 0x9aaa // 0xd4b @0x0
0x0d4b…0d53 lno = 0x0668 // 0xd4d @0x2
0x0d4b…0d53 at0004 = ╱a301╱ WHEN ╱ // 0xd4f @0x4
0x0d4b…0d53 at0006 = ╱56╱V╱ // 0xd51 @0x6
0x0d4b…0d53 at0007 = EOL // 0xd52 @0x7
0x0d4b…0d53 }
0x0d53…0d60 9ab7 1650 IF FÆND<>E THEN
0x0d53…0d60 LineComalBin {
0x0d53…0d60 ptr = 0x9ab7 // 0xd53 @0x0
0x0d53…0d60 lno = 0x0672 // 0xd55 @0x2
0x0d53…0d60 at0004 = ╱9c╱ IF ╱ // 0xd57 @0x4
0x0d53…0d60 at0005 = ╱46╱F╱ // 0xd58 @0x5
0x0d53…0d60 at0006 = ╱5b╱Æ╱ // 0xd59 @0x6
0x0d53…0d60 at0007 = ╱4e╱N╱ // 0xd5a @0x7
0x0d53…0d60 at0008 = ╱44╱D╱ // 0xd5b @0x8
0x0d53…0d60 at0009 = ╱e1╱<>╱ // 0xd5c @0x9
0x0d53…0d60 at000a = ╱45╱E╱ // 0xd5d @0xa
0x0d53…0d60 at000b = ╱b6╱ THEN ╱ // 0xd5e @0xb
0x0d53…0d60 at000c = EOL // 0xd5f @0xc
0x0d53…0d60 }
0x0d60…0d6e 9ac5 1660 CURSOR G,7
0x0d60…0d6e LineComalBin {
0x0d60…0d6e ptr = 0x9ac5 // 0xd60 @0x0
0x0d60…0d6e lno = 0x067c // 0xd62 @0x2
0x0d60…0d6e at0004 = ╱a1╱ CURSOR ╱ // 0xd64 @0x4
0x0d60…0d6e at0005 = ╱47╱G╱ // 0xd65 @0x5
0x0d60…0d6e at0006 = ╱ec╱,╱ // 0xd66 @0x6
0x0d60…0d6e at0007 = ╱37╱7╱ // 0xd67 @0x7
0x0d60…0d6e at0008 = ╱fe0000e003╱ // 0xd68 @0x8
0x0d60…0d6e at000d = EOL // 0xd6d @0xd
0x0d60…0d6e }
0x0d6e…0d86 9add 1670 PRINT "3:Udskriftskode:"
0x0d6e…0d86 LineComalBin {
0x0d6e…0d86 ptr = 0x9add // 0xd6e @0x0
0x0d6e…0d86 lno = 0x0686 // 0xd70 @0x2
0x0d6e…0d86 at0004 = ╱92╱ PRINT ╱ // 0xd72 @0x4
0x0d6e…0d86 at0005 = ╱22╱"╱ // 0xd73 @0x5
0x0d6e…0d86 at0006 = ╱33╱3╱ // 0xd74 @0x6
0x0d6e…0d86 at0007 = ╱3a╱:╱ // 0xd75 @0x7
0x0d6e…0d86 at0008 = ╱55╱U╱ // 0xd76 @0x8
0x0d6e…0d86 at0009 = ╱64╱d╱ // 0xd77 @0x9
0x0d6e…0d86 at000a = ╱73╱s╱ // 0xd78 @0xa
0x0d6e…0d86 at000b = ╱6b╱k╱ // 0xd79 @0xb
0x0d6e…0d86 at000c = ╱72╱r╱ // 0xd7a @0xc
0x0d6e…0d86 at000d = ╱69╱i╱ // 0xd7b @0xd
0x0d6e…0d86 at000e = ╱66╱f╱ // 0xd7c @0xe
0x0d6e…0d86 at000f = ╱74╱t╱ // 0xd7d @0xf
0x0d6e…0d86 at0010 = ╱73╱s╱ // 0xd7e @0x10
0x0d6e…0d86 at0011 = ╱6b╱k╱ // 0xd7f @0x11
0x0d6e…0d86 at0012 = ╱6f╱o╱ // 0xd80 @0x12
0x0d6e…0d86 at0013 = ╱64╱d╱ // 0xd81 @0x13
0x0d6e…0d86 at0014 = ╱65╱e╱ // 0xd82 @0x14
0x0d6e…0d86 at0015 = ╱3a╱:╱ // 0xd83 @0x15
0x0d6e…0d86 at0016 = ╱22╱"╱ // 0xd84 @0x16
0x0d6e…0d86 at0017 = EOL // 0xd85 @0x17
0x0d6e…0d86 }
0x0d86…0d8c 9ae3 1680 ENDIF
0x0d86…0d8c LineComalBin {
0x0d86…0d8c ptr = 0x9ae3 // 0xd86 @0x0
0x0d86…0d8c lno = 0x0690 // 0xd88 @0x2
0x0d86…0d8c at0004 = ╱9b╱ ENDIF ╱ // 0xd8a @0x4
0x0d86…0d8c at0005 = EOL // 0xd8b @0x5
0x0d86…0d8c }
0x0d8c…0d99 9af0 1690 IF FÆND<>G THEN
0x0d8c…0d99 LineComalBin {
0x0d8c…0d99 ptr = 0x9af0 // 0xd8c @0x0
0x0d8c…0d99 lno = 0x069a // 0xd8e @0x2
0x0d8c…0d99 at0004 = ╱9c╱ IF ╱ // 0xd90 @0x4
0x0d8c…0d99 at0005 = ╱46╱F╱ // 0xd91 @0x5
0x0d8c…0d99 at0006 = ╱5b╱Æ╱ // 0xd92 @0x6
0x0d8c…0d99 at0007 = ╱4e╱N╱ // 0xd93 @0x7
0x0d8c…0d99 at0008 = ╱44╱D╱ // 0xd94 @0x8
0x0d8c…0d99 at0009 = ╱e1╱<>╱ // 0xd95 @0x9
0x0d8c…0d99 at000a = ╱47╱G╱ // 0xd96 @0xa
0x0d8c…0d99 at000b = ╱b6╱ THEN ╱ // 0xd97 @0xb
0x0d8c…0d99 at000c = EOL // 0xd98 @0xc
0x0d8c…0d99 }
0x0d99…0d9f 9af6 1700 REPEAT
0x0d99…0d9f LineComalBin {
0x0d99…0d9f ptr = 0x9af6 // 0xd99 @0x0
0x0d99…0d9f lno = 0x06a4 // 0xd9b @0x2
0x0d99…0d9f at0004 = ╱97╱ REPEAT ╱ // 0xd9d @0x4
0x0d99…0d9f at0005 = EOL // 0xd9e @0x5
0x0d99…0d9f }
0x0d9f…0dae 9b05 1710 CURSOR V,23
0x0d9f…0dae LineComalBin {
0x0d9f…0dae ptr = 0x9b05 // 0xd9f @0x0
0x0d9f…0dae lno = 0x06ae // 0xda1 @0x2
0x0d9f…0dae at0004 = ╱a1╱ CURSOR ╱ // 0xda3 @0x4
0x0d9f…0dae at0005 = ╱56╱V╱ // 0xda4 @0x5
0x0d9f…0dae at0006 = ╱ec╱,╱ // 0xda5 @0x6
0x0d9f…0dae at0007 = ╱32╱2╱ // 0xda6 @0x7
0x0d9f…0dae at0008 = ╱33╱3╱ // 0xda7 @0x8
0x0d9f…0dae at0009 = ╱fe0000b805╱ // 0xda8 @0x9
0x0d9f…0dae at000e = EOL // 0xdad @0xe
0x0d9f…0dae }
0x0dae…0df0 9b47 1720 PRINT "Udskriftskode (0:normal,1:undergr,.2:hovedgr.,3:subto";
0x0dae…0df0 LineComalBin {
0x0dae…0df0 ptr = 0x9b47 // 0xdae @0x0
0x0dae…0df0 lno = 0x06b8 // 0xdb0 @0x2
0x0dae…0df0 at0004 = ╱92╱ PRINT ╱ // 0xdb2 @0x4
0x0dae…0df0 at0005 = ╱22╱"╱ // 0xdb3 @0x5
0x0dae…0df0 at0006 = ╱55╱U╱ // 0xdb4 @0x6
0x0dae…0df0 at0007 = ╱64╱d╱ // 0xdb5 @0x7
0x0dae…0df0 at0008 = ╱73╱s╱ // 0xdb6 @0x8
0x0dae…0df0 at0009 = ╱6b╱k╱ // 0xdb7 @0x9
0x0dae…0df0 at000a = ╱72╱r╱ // 0xdb8 @0xa
0x0dae…0df0 at000b = ╱69╱i╱ // 0xdb9 @0xb
0x0dae…0df0 at000c = ╱66╱f╱ // 0xdba @0xc
0x0dae…0df0 at000d = ╱74╱t╱ // 0xdbb @0xd
0x0dae…0df0 at000e = ╱73╱s╱ // 0xdbc @0xe
0x0dae…0df0 at000f = ╱6b╱k╱ // 0xdbd @0xf
0x0dae…0df0 at0010 = ╱6f╱o╱ // 0xdbe @0x10
0x0dae…0df0 at0011 = ╱64╱d╱ // 0xdbf @0x11
0x0dae…0df0 at0012 = ╱65╱e╱ // 0xdc0 @0x12
0x0dae…0df0 at0013 = ╱20╱…╱ // 0xdc1 @0x13
0x0dae…0df0 at0014 = ╱20╱…╱ // 0xdc2 @0x14
0x0dae…0df0 at0015 = ╱20╱…╱ // 0xdc3 @0x15
0x0dae…0df0 at0016 = ╱20╱…╱ // 0xdc4 @0x16
0x0dae…0df0 at0017 = ╱20╱…╱ // 0xdc5 @0x17
0x0dae…0df0 at0018 = ╱28╱(╱ // 0xdc6 @0x18
0x0dae…0df0 at0019 = ╱30╱0╱ // 0xdc7 @0x19
0x0dae…0df0 at001a = ╱3a╱:╱ // 0xdc8 @0x1a
0x0dae…0df0 at001b = ╱6e╱n╱ // 0xdc9 @0x1b
0x0dae…0df0 at001c = ╱6f╱o╱ // 0xdca @0x1c
0x0dae…0df0 at001d = ╱72╱r╱ // 0xdcb @0x1d
0x0dae…0df0 at001e = ╱6d╱m╱ // 0xdcc @0x1e
0x0dae…0df0 at001f = ╱61╱a╱ // 0xdcd @0x1f
0x0dae…0df0 at0020 = ╱6c╱l╱ // 0xdce @0x20
0x0dae…0df0 at0021 = ╱2c╱,╱ // 0xdcf @0x21
0x0dae…0df0 at0022 = ╱31╱1╱ // 0xdd0 @0x22
0x0dae…0df0 at0023 = ╱3a╱:╱ // 0xdd1 @0x23
0x0dae…0df0 at0024 = ╱75╱u╱ // 0xdd2 @0x24
0x0dae…0df0 at0025 = ╱6e╱n╱ // 0xdd3 @0x25
0x0dae…0df0 at0026 = ╱64╱d╱ // 0xdd4 @0x26
0x0dae…0df0 at0027 = ╱65╱e╱ // 0xdd5 @0x27
0x0dae…0df0 at0028 = ╱72╱r╱ // 0xdd6 @0x28
0x0dae…0df0 at0029 = ╱67╱g╱ // 0xdd7 @0x29
0x0dae…0df0 at002a = ╱72╱r╱ // 0xdd8 @0x2a
0x0dae…0df0 at002b = ╱2c╱,╱ // 0xdd9 @0x2b
0x0dae…0df0 at002c = ╱2e╱.╱ // 0xdda @0x2c
0x0dae…0df0 at002d = ╱32╱2╱ // 0xddb @0x2d
0x0dae…0df0 at002e = ╱3a╱:╱ // 0xddc @0x2e
0x0dae…0df0 at002f = ╱68╱h╱ // 0xddd @0x2f
0x0dae…0df0 at0030 = ╱6f╱o╱ // 0xdde @0x30
0x0dae…0df0 at0031 = ╱76╱v╱ // 0xddf @0x31
0x0dae…0df0 at0032 = ╱65╱e╱ // 0xde0 @0x32
0x0dae…0df0 at0033 = ╱64╱d╱ // 0xde1 @0x33
0x0dae…0df0 at0034 = ╱67╱g╱ // 0xde2 @0x34
0x0dae…0df0 at0035 = ╱72╱r╱ // 0xde3 @0x35
0x0dae…0df0 at0036 = ╱2e╱.╱ // 0xde4 @0x36
0x0dae…0df0 at0037 = ╱2c╱,╱ // 0xde5 @0x37
0x0dae…0df0 at0038 = ╱33╱3╱ // 0xde6 @0x38
0x0dae…0df0 at0039 = ╱3a╱:╱ // 0xde7 @0x39
0x0dae…0df0 at003a = ╱73╱s╱ // 0xde8 @0x3a
0x0dae…0df0 at003b = ╱75╱u╱ // 0xde9 @0x3b
0x0dae…0df0 at003c = ╱62╱b╱ // 0xdea @0x3c
0x0dae…0df0 at003d = ╱74╱t╱ // 0xdeb @0x3d
0x0dae…0df0 at003e = ╱6f╱o╱ // 0xdec @0x3e
0x0dae…0df0 at003f = ╱22╱"╱ // 0xded @0x3f
0x0dae…0df0 at0040 = ╱eb╱;╱ // 0xdee @0x40
0x0dae…0df0 at0041 = EOL // 0xdef @0x41
0x0dae…0df0 }
0x0df0…0e0c 9b63 1730 PRINT "tal,4:Overgr.) "
0x0df0…0e0c LineComalBin {
0x0df0…0e0c ptr = 0x9b63 // 0xdf0 @0x0
0x0df0…0e0c lno = 0x06c2 // 0xdf2 @0x2
0x0df0…0e0c at0004 = ╱92╱ PRINT ╱ // 0xdf4 @0x4
0x0df0…0e0c at0005 = ╱22╱"╱ // 0xdf5 @0x5
0x0df0…0e0c at0006 = ╱74╱t╱ // 0xdf6 @0x6
0x0df0…0e0c at0007 = ╱61╱a╱ // 0xdf7 @0x7
0x0df0…0e0c at0008 = ╱6c╱l╱ // 0xdf8 @0x8
0x0df0…0e0c at0009 = ╱2c╱,╱ // 0xdf9 @0x9
0x0df0…0e0c at000a = ╱34╱4╱ // 0xdfa @0xa
0x0df0…0e0c at000b = ╱3a╱:╱ // 0xdfb @0xb
0x0df0…0e0c at000c = ╱4f╱O╱ // 0xdfc @0xc
0x0df0…0e0c at000d = ╱76╱v╱ // 0xdfd @0xd
0x0df0…0e0c at000e = ╱65╱e╱ // 0xdfe @0xe
0x0df0…0e0c at000f = ╱72╱r╱ // 0xdff @0xf
0x0df0…0e0c at0010 = ╱67╱g╱ // 0xe00 @0x10
0x0df0…0e0c at0011 = ╱72╱r╱ // 0xe01 @0x11
0x0df0…0e0c at0012 = ╱2e╱.╱ // 0xe02 @0x12
0x0df0…0e0c at0013 = ╱29╱)╱ // 0xe03 @0x13
0x0df0…0e0c at0014 = ╱20╱…╱ // 0xe04 @0x14
0x0df0…0e0c at0015 = ╱20╱…╱ // 0xe05 @0x15
0x0df0…0e0c at0016 = ╱20╱…╱ // 0xe06 @0x16
0x0df0…0e0c at0017 = ╱20╱…╱ // 0xe07 @0x17
0x0df0…0e0c at0018 = ╱20╱…╱ // 0xe08 @0x18
0x0df0…0e0c at0019 = ╱20╱…╱ // 0xe09 @0x19
0x0df0…0e0c at001a = ╱22╱"╱ // 0xe0a @0x1a
0x0df0…0e0c at001b = EOL // 0xe0b @0x1b
0x0df0…0e0c }
0x0e0c…0e21 9b78 1740 CURSOR 17,23
0x0e0c…0e21 LineComalBin {
0x0e0c…0e21 ptr = 0x9b78 // 0xe0c @0x0
0x0e0c…0e21 lno = 0x06cc // 0xe0e @0x2
0x0e0c…0e21 at0004 = ╱a1╱ CURSOR ╱ // 0xe10 @0x4
0x0e0c…0e21 at0005 = ╱31╱1╱ // 0xe11 @0x5
0x0e0c…0e21 at0006 = ╱37╱7╱ // 0xe12 @0x6
0x0e0c…0e21 at0007 = ╱fe00008805╱ // 0xe13 @0x7
0x0e0c…0e21 at000c = ╱ec╱,╱ // 0xe18 @0xc
0x0e0c…0e21 at000d = ╱32╱2╱ // 0xe19 @0xd
0x0e0c…0e21 at000e = ╱33╱3╱ // 0xe1a @0xe
0x0e0c…0e21 at000f = ╱fe0000b805╱ // 0xe1b @0xf
0x0e0c…0e21 at0014 = EOL // 0xe20 @0x14
0x0e0c…0e21 }
0x0e21…0e29 9b80 1750 INPUT A$
0x0e21…0e29 LineComalBin {
0x0e21…0e29 ptr = 0x9b80 // 0xe21 @0x0
0x0e21…0e29 lno = 0x06d6 // 0xe23 @0x2
0x0e21…0e29 at0004 = ╱91╱ INPUT ╱ // 0xe25 @0x4
0x0e21…0e29 at0005 = ╱41╱A╱ // 0xe26 @0x5
0x0e21…0e29 at0006 = ╱ef╱$╱ // 0xe27 @0x6
0x0e21…0e29 at0007 = EOL // 0xe28 @0x7
0x0e21…0e29 }
0x0e29…0e4a 9ba1 1760 UNTIL ORD(A$)>47 AND ORD(A$)<53
0x0e29…0e4a LineComalBin {
0x0e29…0e4a ptr = 0x9ba1 // 0xe29 @0x0
0x0e29…0e4a lno = 0x06e0 // 0xe2b @0x2
0x0e29…0e4a at0004 = ╱98╱ UNTIL ╱ // 0xe2d @0x4
0x0e29…0e4a at0005 = ╱cd╱ORD╱ // 0xe2e @0x5
0x0e29…0e4a at0006 = ╱ed╱(╱ // 0xe2f @0x6
0x0e29…0e4a at0007 = ╱41╱A╱ // 0xe30 @0x7
0x0e29…0e4a at0008 = ╱ef╱$╱ // 0xe31 @0x8
0x0e29…0e4a at0009 = ╱ee╱)╱ // 0xe32 @0x9
0x0e29…0e4a at000a = ╱de╱>╱ // 0xe33 @0xa
0x0e29…0e4a at000b = ╱34╱4╱ // 0xe34 @0xb
0x0e29…0e4a at000c = ╱37╱7╱ // 0xe35 @0xc
0x0e29…0e4a at000d = ╱fe0000bc06╱ // 0xe36 @0xd
0x0e29…0e4a at0012 = ╱da╱ AND ╱ // 0xe3b @0x12
0x0e29…0e4a at0013 = ╱cd╱ORD╱ // 0xe3c @0x13
0x0e29…0e4a at0014 = ╱ed╱(╱ // 0xe3d @0x14
0x0e29…0e4a at0015 = ╱41╱A╱ // 0xe3e @0x15
0x0e29…0e4a at0016 = ╱ef╱$╱ // 0xe3f @0x16
0x0e29…0e4a at0017 = ╱ee╱)╱ // 0xe40 @0x17
0x0e29…0e4a at0018 = ╱dd╱<╱ // 0xe41 @0x18
0x0e29…0e4a at0019 = ╱35╱5╱ // 0xe42 @0x19
0x0e29…0e4a at001a = ╱33╱3╱ // 0xe43 @0x1a
0x0e29…0e4a at001b = ╱fe0000d406╱ // 0xe44 @0x1b
0x0e29…0e4a at0020 = EOL // 0xe49 @0x20
0x0e29…0e4a }
0x0e4a…0e57 9bae 1770 IF TYPE=E THEN
0x0e4a…0e57 LineComalBin {
0x0e4a…0e57 ptr = 0x9bae // 0xe4a @0x0
0x0e4a…0e57 lno = 0x06ea // 0xe4c @0x2
0x0e4a…0e57 at0004 = ╱9c╱ IF ╱ // 0xe4e @0x4
0x0e4a…0e57 at0005 = ╱54╱T╱ // 0xe4f @0x5
0x0e4a…0e57 at0006 = ╱59╱Y╱ // 0xe50 @0x6
0x0e4a…0e57 at0007 = ╱50╱P╱ // 0xe51 @0x7
0x0e4a…0e57 at0008 = ╱45╱E╱ // 0xe52 @0x8
0x0e4a…0e57 at0009 = ╱dc╱=╱ // 0xe53 @0x9
0x0e4a…0e57 at000a = ╱45╱E╱ // 0xe54 @0xa
0x0e4a…0e57 at000b = ╱b6╱ THEN ╱ // 0xe55 @0xb
0x0e4a…0e57 at000c = EOL // 0xe56 @0xc
0x0e4a…0e57 }
0x0e57…0e66 9bbd 1780 FUKODE$=A$
0x0e57…0e66 LineComalBin {
0x0e57…0e66 ptr = 0x9bbd // 0xe57 @0x0
0x0e57…0e66 lno = 0x06f4 // 0xe59 @0x2
0x0e57…0e66 at0004 = ╱46╱F╱ // 0xe5b @0x4
0x0e57…0e66 at0005 = ╱55╱U╱ // 0xe5c @0x5
0x0e57…0e66 at0006 = ╱4b╱K╱ // 0xe5d @0x6
0x0e57…0e66 at0007 = ╱4f╱O╱ // 0xe5e @0x7
0x0e57…0e66 at0008 = ╱44╱D╱ // 0xe5f @0x8
0x0e57…0e66 at0009 = ╱45╱E╱ // 0xe60 @0x9
0x0e57…0e66 at000a = ╱ef╱$╱ // 0xe61 @0xa
0x0e57…0e66 at000b = ╱dc╱=╱ // 0xe62 @0xb
0x0e57…0e66 at000c = ╱41╱A╱ // 0xe63 @0xc
0x0e57…0e66 at000d = ╱ef╱$╱ // 0xe64 @0xd
0x0e57…0e66 at000e = EOL // 0xe65 @0xe
0x0e57…0e66 }
0x0e66…0e6c 9bc3 1790 ELSE
0x0e66…0e6c LineComalBin {
0x0e66…0e6c ptr = 0x9bc3 // 0xe66 @0x0
0x0e66…0e6c lno = 0x06fe // 0xe68 @0x2
0x0e66…0e6c at0004 = ╱9a╱ ELSE ╱ // 0xe6a @0x4
0x0e66…0e6c at0005 = EOL // 0xe6b @0x5
0x0e66…0e6c }
0x0e6c…0e90 9be7 1800 IF FUKODE$<>"0" THEN IF A$<>"0" THEN FUKODE$=A$
0x0e6c…0e90 LineComalBin {
0x0e6c…0e90 ptr = 0x9be7 // 0xe6c @0x0
0x0e6c…0e90 lno = 0x0708 // 0xe6e @0x2
0x0e6c…0e90 at0004 = ╱82╱ IF ╱ // 0xe70 @0x4
0x0e6c…0e90 at0005 = ╱46╱F╱ // 0xe71 @0x5
0x0e6c…0e90 at0006 = ╱55╱U╱ // 0xe72 @0x6
0x0e6c…0e90 at0007 = ╱4b╱K╱ // 0xe73 @0x7
0x0e6c…0e90 at0008 = ╱4f╱O╱ // 0xe74 @0x8
0x0e6c…0e90 at0009 = ╱44╱D╱ // 0xe75 @0x9
0x0e6c…0e90 at000a = ╱45╱E╱ // 0xe76 @0xa
0x0e6c…0e90 at000b = ╱ef╱$╱ // 0xe77 @0xb
0x0e6c…0e90 at000c = ╱e1╱<>╱ // 0xe78 @0xc
0x0e6c…0e90 at000d = ╱22╱"╱ // 0xe79 @0xd
0x0e6c…0e90 at000e = ╱30╱0╱ // 0xe7a @0xe
0x0e6c…0e90 at000f = ╱22╱"╱ // 0xe7b @0xf
0x0e6c…0e90 at0010 = ╱b6╱ THEN ╱ // 0xe7c @0x10
0x0e6c…0e90 at0011 = ╱82╱ IF ╱ // 0xe7d @0x11
0x0e6c…0e90 at0012 = ╱41╱A╱ // 0xe7e @0x12
0x0e6c…0e90 at0013 = ╱ef╱$╱ // 0xe7f @0x13
0x0e6c…0e90 at0014 = ╱e1╱<>╱ // 0xe80 @0x14
0x0e6c…0e90 at0015 = ╱22╱"╱ // 0xe81 @0x15
0x0e6c…0e90 at0016 = ╱30╱0╱ // 0xe82 @0x16
0x0e6c…0e90 at0017 = ╱22╱"╱ // 0xe83 @0x17
0x0e6c…0e90 at0018 = ╱b6╱ THEN ╱ // 0xe84 @0x18
0x0e6c…0e90 at0019 = ╱46╱F╱ // 0xe85 @0x19
0x0e6c…0e90 at001a = ╱55╱U╱ // 0xe86 @0x1a
0x0e6c…0e90 at001b = ╱4b╱K╱ // 0xe87 @0x1b
0x0e6c…0e90 at001c = ╱4f╱O╱ // 0xe88 @0x1c
0x0e6c…0e90 at001d = ╱44╱D╱ // 0xe89 @0x1d
0x0e6c…0e90 at001e = ╱45╱E╱ // 0xe8a @0x1e
0x0e6c…0e90 at001f = ╱ef╱$╱ // 0xe8b @0x1f
0x0e6c…0e90 at0020 = ╱dc╱=╱ // 0xe8c @0x20
0x0e6c…0e90 at0021 = ╱41╱A╱ // 0xe8d @0x21
0x0e6c…0e90 at0022 = ╱ef╱$╱ // 0xe8e @0x22
0x0e6c…0e90 at0023 = EOL // 0xe8f @0x23
0x0e6c…0e90 }
0x0e90…0e96 9bed 1810 ENDIF
0x0e90…0e96 LineComalBin {
0x0e90…0e96 ptr = 0x9bed // 0xe90 @0x0
0x0e90…0e96 lno = 0x0712 // 0xe92 @0x2
0x0e90…0e96 at0004 = ╱9b╱ ENDIF ╱ // 0xe94 @0x4
0x0e90…0e96 at0005 = EOL // 0xe95 @0x5
0x0e90…0e96 }
0x0e96…0e9c 9bf3 1820 ENDIF
0x0e96…0e9c LineComalBin {
0x0e96…0e9c ptr = 0x9bf3 // 0xe96 @0x0
0x0e96…0e9c lno = 0x071c // 0xe98 @0x2
0x0e96…0e9c at0004 = ╱9b╱ ENDIF ╱ // 0xe9a @0x4
0x0e96…0e9c at0005 = EOL // 0xe9b @0x5
0x0e96…0e9c }
0x0e9c…0eb0 9c07 1830 CURSOR 19,7
0x0e9c…0eb0 LineComalBin {
0x0e9c…0eb0 ptr = 0x9c07 // 0xe9c @0x0
0x0e9c…0eb0 lno = 0x0726 // 0xe9e @0x2
0x0e9c…0eb0 at0004 = ╱a1╱ CURSOR ╱ // 0xea0 @0x4
0x0e9c…0eb0 at0005 = ╱31╱1╱ // 0xea1 @0x5
0x0e9c…0eb0 at0006 = ╱39╱9╱ // 0xea2 @0x6
0x0e9c…0eb0 at0007 = ╱fe00009805╱ // 0xea3 @0x7
0x0e9c…0eb0 at000c = ╱ec╱,╱ // 0xea8 @0xc
0x0e9c…0eb0 at000d = ╱37╱7╱ // 0xea9 @0xd
0x0e9c…0eb0 at000e = ╱fe0000e003╱ // 0xeaa @0xe
0x0e9c…0eb0 at0013 = EOL // 0xeaf @0x13
0x0e9c…0eb0 }
0x0eb0…0eb9 9c10 1840 PRINT " "
0x0eb0…0eb9 LineComalBin {
0x0eb0…0eb9 ptr = 0x9c10 // 0xeb0 @0x0
0x0eb0…0eb9 lno = 0x0730 // 0xeb2 @0x2
0x0eb0…0eb9 at0004 = ╱92╱ PRINT ╱ // 0xeb4 @0x4
0x0eb0…0eb9 at0005 = ╱22╱"╱ // 0xeb5 @0x5
0x0eb0…0eb9 at0006 = ╱20╱…╱ // 0xeb6 @0x6
0x0eb0…0eb9 at0007 = ╱22╱"╱ // 0xeb7 @0x7
0x0eb0…0eb9 at0008 = EOL // 0xeb8 @0x8
0x0eb0…0eb9 }
0x0eb9…0ecd 9c24 1850 CURSOR 19,7
0x0eb9…0ecd LineComalBin {
0x0eb9…0ecd ptr = 0x9c24 // 0xeb9 @0x0
0x0eb9…0ecd lno = 0x073a // 0xebb @0x2
0x0eb9…0ecd at0004 = ╱a1╱ CURSOR ╱ // 0xebd @0x4
0x0eb9…0ecd at0005 = ╱31╱1╱ // 0xebe @0x5
0x0eb9…0ecd at0006 = ╱39╱9╱ // 0xebf @0x6
0x0eb9…0ecd at0007 = ╱fe00009805╱ // 0xec0 @0x7
0x0eb9…0ecd at000c = ╱ec╱,╱ // 0xec5 @0xc
0x0eb9…0ecd at000d = ╱37╱7╱ // 0xec6 @0xd
0x0eb9…0ecd at000e = ╱fe0000e003╱ // 0xec7 @0xe
0x0eb9…0ecd at0013 = EOL // 0xecc @0x13
0x0eb9…0ecd }
0x0ecd…0eda 9c31 1860 PRINT FUKODE$
0x0ecd…0eda LineComalBin {
0x0ecd…0eda ptr = 0x9c31 // 0xecd @0x0
0x0ecd…0eda lno = 0x0744 // 0xecf @0x2
0x0ecd…0eda at0004 = ╱92╱ PRINT ╱ // 0xed1 @0x4
0x0ecd…0eda at0005 = ╱46╱F╱ // 0xed2 @0x5
0x0ecd…0eda at0006 = ╱55╱U╱ // 0xed3 @0x6
0x0ecd…0eda at0007 = ╱4b╱K╱ // 0xed4 @0x7
0x0ecd…0eda at0008 = ╱4f╱O╱ // 0xed5 @0x8
0x0ecd…0eda at0009 = ╱44╱D╱ // 0xed6 @0x9
0x0ecd…0eda at000a = ╱45╱E╱ // 0xed7 @0xa
0x0ecd…0eda at000b = ╱ef╱$╱ // 0xed8 @0xb
0x0ecd…0eda at000c = EOL // 0xed9 @0xc
0x0ecd…0eda }
0x0eda…0eeb 9c42 1870 FSTYR=4
0x0eda…0eeb LineComalBin {
0x0eda…0eeb ptr = 0x9c42 // 0xeda @0x0
0x0eda…0eeb lno = 0x074e // 0xedc @0x2
0x0eda…0eeb at0004 = ╱46╱F╱ // 0xede @0x4
0x0eda…0eeb at0005 = ╱53╱S╱ // 0xedf @0x5
0x0eda…0eeb at0006 = ╱54╱T╱ // 0xee0 @0x6
0x0eda…0eeb at0007 = ╱59╱Y╱ // 0xee1 @0x7
0x0eda…0eeb at0008 = ╱52╱R╱ // 0xee2 @0x8
0x0eda…0eeb at0009 = ╱dc╱=╱ // 0xee3 @0x9
0x0eda…0eeb at000a = ╱34╱4╱ // 0xee4 @0xa
0x0eda…0eeb at000b = ╱fe00008003╱ // 0xee5 @0xb
0x0eda…0eeb at0010 = EOL // 0xeea @0x10
0x0eda…0eeb }
0x0eeb…0ef1 9c48 1880 ENDCASE
0x0eeb…0ef1 LineComalBin {
0x0eeb…0ef1 ptr = 0x9c48 // 0xeeb @0x0
0x0eeb…0ef1 lno = 0x0758 // 0xeed @0x2
0x0eeb…0ef1 at0004 = ╱a4╱ ENDCASE ╱ // 0xeef @0x4
0x0eeb…0ef1 at0005 = EOL // 0xef0 @0x5
0x0eeb…0ef1 }
0x0ef1…0f0a 9c61 1890 IF FÆND=E THEN FSTYR=4
0x0ef1…0f0a LineComalBin {
0x0ef1…0f0a ptr = 0x9c61 // 0xef1 @0x0
0x0ef1…0f0a lno = 0x0762 // 0xef3 @0x2
0x0ef1…0f0a at0004 = ╱82╱ IF ╱ // 0xef5 @0x4
0x0ef1…0f0a at0005 = ╱46╱F╱ // 0xef6 @0x5
0x0ef1…0f0a at0006 = ╱5b╱Æ╱ // 0xef7 @0x6
0x0ef1…0f0a at0007 = ╱4e╱N╱ // 0xef8 @0x7
0x0ef1…0f0a at0008 = ╱44╱D╱ // 0xef9 @0x8
0x0ef1…0f0a at0009 = ╱dc╱=╱ // 0xefa @0x9
0x0ef1…0f0a at000a = ╱45╱E╱ // 0xefb @0xa
0x0ef1…0f0a at000b = ╱b6╱ THEN ╱ // 0xefc @0xb
0x0ef1…0f0a at000c = ╱46╱F╱ // 0xefd @0xc
0x0ef1…0f0a at000d = ╱53╱S╱ // 0xefe @0xd
0x0ef1…0f0a at000e = ╱54╱T╱ // 0xeff @0xe
0x0ef1…0f0a at000f = ╱59╱Y╱ // 0xf00 @0xf
0x0ef1…0f0a at0010 = ╱52╱R╱ // 0xf01 @0x10
0x0ef1…0f0a at0011 = ╱dc╱=╱ // 0xf02 @0x11
0x0ef1…0f0a at0012 = ╱34╱4╱ // 0xf03 @0x12
0x0ef1…0f0a at0013 = ╱fe00008003╱ // 0xf04 @0x13
0x0ef1…0f0a at0018 = EOL // 0xf09 @0x18
0x0ef1…0f0a }
0x0f0a…0f1c (50,) 9c73 1900 UNTIL FSTYR=4
0x0f0a…0f1c LineComalBin {
0x0f0a…0f1c ptr = 0x9c73 // 0xf0a @0x0
0x0f0a…0f1c lno = 0x076c // 0xf0c @0x2
0x0f0a…0f1c at0004 = ╱98╱ UNTIL ╱ // 0xf0e @0x4
0x0f0a…0f1c at0005 = ╱46╱F╱ // 0xf0f @0x5
0x0f0a…0f1c at0006 = ╱53╱S╱ // 0xf10 @0x6
0x0f0a…0f1c at0007 = ╱54╱T╱ // 0xf11 @0x7
0x0f0a…0f1c at0008 = ╱59╱Y╱ // 0xf12 @0x8
0x0f0a…0f1c at0009 = ╱52╱R╱ // 0xf13 @0x9
0x0f0a…0f1c at000a = ╱dc╱=╱ // 0xf14 @0xa
0x0f0a…0f1c at000b = ╱34╱4╱ // 0xf15 @0xb
0x0f0a…0f1c at000c = ╱fe00008003╱ // 0xf16 @0xc
0x0f0a…0f1c at0011 = EOL // 0xf1b @0x11
0x0f0a…0f1c }
0x0f1c…0f22 9c79 1910 ENDPROC
0x0f1c…0f22 LineComalBin {
0x0f1c…0f22 ptr = 0x9c79 // 0xf1c @0x0
0x0f1c…0f22 lno = 0x0776 // 0xf1e @0x2
0x0f1c…0f22 at0004 = ╱9f╱ ENDPROC ╱ // 0xf20 @0x4
0x0f1c…0f22 at0005 = EOL // 0xf21 @0x5
0x0f1c…0f22 }
0x0f22…0f41 9c98 1920 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x0f22…0f41 LineComalBin {
0x0f22…0f41 ptr = 0x9c98 // 0xf22 @0x0
0x0f22…0f41 lno = 0x0780 // 0xf24 @0x2
0x0f22…0f41 at0004 = ╱9e╱ PROC ╱ // 0xf26 @0x4
0x0f22…0f41 at0005 = ╱54╱T╱ // 0xf27 @0x5
0x0f22…0f41 at0006 = ╱55╱U╱ // 0xf28 @0x6
0x0f22…0f41 at0007 = ╱44╱D╱ // 0xf29 @0x7
0x0f22…0f41 at0008 = ╱ed╱(╱ // 0xf2a @0x8
0x0f22…0f41 at0009 = ╱42╱B╱ // 0xf2b @0x9
0x0f22…0f41 at000a = ╱4c╱L╱ // 0xf2c @0xa
0x0f22…0f41 at000b = ╱42╱B╱ // 0xf2d @0xb
0x0f22…0f41 at000c = ╱31╱1╱ // 0xf2e @0xc
0x0f22…0f41 at000d = ╱ec╱,╱ // 0xf2f @0xd
0x0f22…0f41 at000e = ╱55╱U╱ // 0xf30 @0xe
0x0f22…0f41 at000f = ╱42╱B╱ // 0xf31 @0xf
0x0f22…0f41 at0010 = ╱4c╱L╱ // 0xf32 @0x10
0x0f22…0f41 at0011 = ╱42╱B╱ // 0xf33 @0x11
0x0f22…0f41 at0012 = ╱31╱1╱ // 0xf34 @0x12
0x0f22…0f41 at0013 = ╱ec╱,╱ // 0xf35 @0x13
0x0f22…0f41 at0014 = ╱54╱T╱ // 0xf36 @0x14
0x0f22…0f41 at0015 = ╱45╱E╱ // 0xf37 @0x15
0x0f22…0f41 at0016 = ╱47╱G╱ // 0xf38 @0x16
0x0f22…0f41 at0017 = ╱4e╱N╱ // 0xf39 @0x17
0x0f22…0f41 at0018 = ╱ec╱,╱ // 0xf3a @0x18
0x0f22…0f41 at0019 = ╱53╱S╱ // 0xf3b @0x19
0x0f22…0f41 at001a = ╱54╱T╱ // 0xf3c @0x1a
0x0f22…0f41 at001b = ╱5c╱Ø╱ // 0xf3d @0x1b
0x0f22…0f41 at001c = ╱52╱R╱ // 0xf3e @0x1c
0x0f22…0f41 at001d = ╱ee╱)╱ // 0xf3f @0x1d
0x0f22…0f41 at001e = EOL // 0xf40 @0x1e
0x0f22…0f41 }
0x0f41…0f5f 9cb6 1930 BLB2$=BLB1$;UBLB2$=UBLB1$
0x0f41…0f5f LineComalBin {
0x0f41…0f5f ptr = 0x9cb6 // 0xf41 @0x0
0x0f41…0f5f lno = 0x078a // 0xf43 @0x2
0x0f41…0f5f at0004 = ╱42╱B╱ // 0xf45 @0x4
0x0f41…0f5f at0005 = ╱4c╱L╱ // 0xf46 @0x5
0x0f41…0f5f at0006 = ╱42╱B╱ // 0xf47 @0x6
0x0f41…0f5f at0007 = ╱32╱2╱ // 0xf48 @0x7
0x0f41…0f5f at0008 = ╱ef╱$╱ // 0xf49 @0x8
0x0f41…0f5f at0009 = ╱dc╱=╱ // 0xf4a @0x9
0x0f41…0f5f at000a = ╱42╱B╱ // 0xf4b @0xa
0x0f41…0f5f at000b = ╱4c╱L╱ // 0xf4c @0xb
0x0f41…0f5f at000c = ╱42╱B╱ // 0xf4d @0xc
0x0f41…0f5f at000d = ╱31╱1╱ // 0xf4e @0xd
0x0f41…0f5f at000e = ╱ef╱$╱ // 0xf4f @0xe
0x0f41…0f5f at000f = ╱eb╱;╱ // 0xf50 @0xf
0x0f41…0f5f at0010 = ╱55╱U╱ // 0xf51 @0x10
0x0f41…0f5f at0011 = ╱42╱B╱ // 0xf52 @0x11
0x0f41…0f5f at0012 = ╱4c╱L╱ // 0xf53 @0x12
0x0f41…0f5f at0013 = ╱42╱B╱ // 0xf54 @0x13
0x0f41…0f5f at0014 = ╱32╱2╱ // 0xf55 @0x14
0x0f41…0f5f at0015 = ╱ef╱$╱ // 0xf56 @0x15
0x0f41…0f5f at0016 = ╱dc╱=╱ // 0xf57 @0x16
0x0f41…0f5f at0017 = ╱55╱U╱ // 0xf58 @0x17
0x0f41…0f5f at0018 = ╱42╱B╱ // 0xf59 @0x18
0x0f41…0f5f at0019 = ╱4c╱L╱ // 0xf5a @0x19
0x0f41…0f5f at001a = ╱42╱B╱ // 0xf5b @0x1a
0x0f41…0f5f at001b = ╱31╱1╱ // 0xf5c @0x1b
0x0f41…0f5f at001c = ╱ef╱$╱ // 0xf5d @0x1c
0x0f41…0f5f at001d = EOL // 0xf5e @0x1d
0x0f41…0f5f }
0x0f5f…0f83 9cda 1940 EXEC CALC(5,BLB2$,TAH$,UBLB2$)
0x0f5f…0f83 LineComalBin {
0x0f5f…0f83 ptr = 0x9cda // 0xf5f @0x0
0x0f5f…0f83 lno = 0x0794 // 0xf61 @0x2
0x0f5f…0f83 at0004 = ╱9d╱ EXEC ╱ // 0xf63 @0x4
0x0f5f…0f83 at0005 = ╱43╱C╱ // 0xf64 @0x5
0x0f5f…0f83 at0006 = ╱41╱A╱ // 0xf65 @0x6
0x0f5f…0f83 at0007 = ╱4c╱L╱ // 0xf66 @0x7
0x0f5f…0f83 at0008 = ╱43╱C╱ // 0xf67 @0x8
0x0f5f…0f83 at0009 = ╱ed╱(╱ // 0xf68 @0x9
0x0f5f…0f83 at000a = ╱35╱5╱ // 0xf69 @0xa
0x0f5f…0f83 at000b = ╱fe0000a003╱ // 0xf6a @0xb
0x0f5f…0f83 at0010 = ╱ec╱,╱ // 0xf6f @0x10
0x0f5f…0f83 at0011 = ╱42╱B╱ // 0xf70 @0x11
0x0f5f…0f83 at0012 = ╱4c╱L╱ // 0xf71 @0x12
0x0f5f…0f83 at0013 = ╱42╱B╱ // 0xf72 @0x13
0x0f5f…0f83 at0014 = ╱32╱2╱ // 0xf73 @0x14
0x0f5f…0f83 at0015 = ╱ef╱$╱ // 0xf74 @0x15
0x0f5f…0f83 at0016 = ╱ec╱,╱ // 0xf75 @0x16
0x0f5f…0f83 at0017 = ╱54╱T╱ // 0xf76 @0x17
0x0f5f…0f83 at0018 = ╱41╱A╱ // 0xf77 @0x18
0x0f5f…0f83 at0019 = ╱48╱H╱ // 0xf78 @0x19
0x0f5f…0f83 at001a = ╱ef╱$╱ // 0xf79 @0x1a
0x0f5f…0f83 at001b = ╱ec╱,╱ // 0xf7a @0x1b
0x0f5f…0f83 at001c = ╱55╱U╱ // 0xf7b @0x1c
0x0f5f…0f83 at001d = ╱42╱B╱ // 0xf7c @0x1d
0x0f5f…0f83 at001e = ╱4c╱L╱ // 0xf7d @0x1e
0x0f5f…0f83 at001f = ╱42╱B╱ // 0xf7e @0x1f
0x0f5f…0f83 at0020 = ╱32╱2╱ // 0xf7f @0x20
0x0f5f…0f83 at0021 = ╱ef╱$╱ // 0xf80 @0x21
0x0f5f…0f83 at0022 = ╱ee╱)╱ // 0xf81 @0x22
0x0f5f…0f83 at0023 = EOL // 0xf82 @0x23
0x0f5f…0f83 }
0x0f83…0f95 9cec 1950 UBLB1$=UBLB2$
0x0f83…0f95 LineComalBin {
0x0f83…0f95 ptr = 0x9cec // 0xf83 @0x0
0x0f83…0f95 lno = 0x079e // 0xf85 @0x2
0x0f83…0f95 at0004 = ╱55╱U╱ // 0xf87 @0x4
0x0f83…0f95 at0005 = ╱42╱B╱ // 0xf88 @0x5
0x0f83…0f95 at0006 = ╱4c╱L╱ // 0xf89 @0x6
0x0f83…0f95 at0007 = ╱42╱B╱ // 0xf8a @0x7
0x0f83…0f95 at0008 = ╱31╱1╱ // 0xf8b @0x8
0x0f83…0f95 at0009 = ╱ef╱$╱ // 0xf8c @0x9
0x0f83…0f95 at000a = ╱dc╱=╱ // 0xf8d @0xa
0x0f83…0f95 at000b = ╱55╱U╱ // 0xf8e @0xb
0x0f83…0f95 at000c = ╱42╱B╱ // 0xf8f @0xc
0x0f83…0f95 at000d = ╱4c╱L╱ // 0xf90 @0xd
0x0f83…0f95 at000e = ╱42╱B╱ // 0xf91 @0xe
0x0f83…0f95 at000f = ╱32╱2╱ // 0xf92 @0xf
0x0f83…0f95 at0010 = ╱ef╱$╱ // 0xf93 @0x10
0x0f83…0f95 at0011 = EOL // 0xf94 @0x11
0x0f83…0f95 }
0x0f95…0fa2 9cf9 1960 IF TEGN=B THEN
0x0f95…0fa2 LineComalBin {
0x0f95…0fa2 ptr = 0x9cf9 // 0xf95 @0x0
0x0f95…0fa2 lno = 0x07a8 // 0xf97 @0x2
0x0f95…0fa2 at0004 = ╱9c╱ IF ╱ // 0xf99 @0x4
0x0f95…0fa2 at0005 = ╱54╱T╱ // 0xf9a @0x5
0x0f95…0fa2 at0006 = ╱45╱E╱ // 0xf9b @0x6
0x0f95…0fa2 at0007 = ╱47╱G╱ // 0xf9c @0x7
0x0f95…0fa2 at0008 = ╱4e╱N╱ // 0xf9d @0x8
0x0f95…0fa2 at0009 = ╱dc╱=╱ // 0xf9e @0x9
0x0f95…0fa2 at000a = ╱42╱B╱ // 0xf9f @0xa
0x0f95…0fa2 at000b = ╱b6╱ THEN ╱ // 0xfa0 @0xb
0x0f95…0fa2 at000c = EOL // 0xfa1 @0xc
0x0f95…0fa2 }
0x0fa2…0fbf 9d16 1970 UBLB1$=UBLB1$(E:13)
0x0fa2…0fbf LineComalBin {
0x0fa2…0fbf ptr = 0x9d16 // 0xfa2 @0x0
0x0fa2…0fbf lno = 0x07b2 // 0xfa4 @0x2
0x0fa2…0fbf at0004 = ╱55╱U╱ // 0xfa6 @0x4
0x0fa2…0fbf at0005 = ╱42╱B╱ // 0xfa7 @0x5
0x0fa2…0fbf at0006 = ╱4c╱L╱ // 0xfa8 @0x6
0x0fa2…0fbf at0007 = ╱42╱B╱ // 0xfa9 @0x7
0x0fa2…0fbf at0008 = ╱31╱1╱ // 0xfaa @0x8
0x0fa2…0fbf at0009 = ╱ef╱$╱ // 0xfab @0x9
0x0fa2…0fbf at000a = ╱dc╱=╱ // 0xfac @0xa
0x0fa2…0fbf at000b = ╱55╱U╱ // 0xfad @0xb
0x0fa2…0fbf at000c = ╱42╱B╱ // 0xfae @0xc
0x0fa2…0fbf at000d = ╱4c╱L╱ // 0xfaf @0xd
0x0fa2…0fbf at000e = ╱42╱B╱ // 0xfb0 @0xe
0x0fa2…0fbf at000f = ╱31╱1╱ // 0xfb1 @0xf
0x0fa2…0fbf at0010 = ╱ef╱$╱ // 0xfb2 @0x10
0x0fa2…0fbf at0011 = ╱ed╱(╱ // 0xfb3 @0x11
0x0fa2…0fbf at0012 = ╱45╱E╱ // 0xfb4 @0x12
0x0fa2…0fbf at0013 = ╱f0╱:╱ // 0xfb5 @0x13
0x0fa2…0fbf at0014 = ╱31╱1╱ // 0xfb6 @0x14
0x0fa2…0fbf at0015 = ╱33╱3╱ // 0xfb7 @0x15
0x0fa2…0fbf at0016 = ╱fe0000d004╱ // 0xfb8 @0x16
0x0fa2…0fbf at001b = ╱ee╱)╱ // 0xfbd @0x1b
0x0fa2…0fbf at001c = EOL // 0xfbe @0x1c
0x0fa2…0fbf }
0x0fbf…0fc5 9d1c 1980 ELSE
0x0fbf…0fc5 LineComalBin {
0x0fbf…0fc5 ptr = 0x9d1c // 0xfbf @0x0
0x0fbf…0fc5 lno = 0x07bc // 0xfc1 @0x2
0x0fbf…0fc5 at0004 = ╱9a╱ ELSE ╱ // 0xfc3 @0x4
0x0fbf…0fc5 at0005 = EOL // 0xfc4 @0x5
0x0fbf…0fc5 }
0x0fc5…0fe8 9d3f 1990 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN
0x0fc5…0fe8 LineComalBin {
0x0fc5…0fe8 ptr = 0x9d3f // 0xfc5 @0x0
0x0fc5…0fe8 lno = 0x07c6 // 0xfc7 @0x2
0x0fc5…0fe8 at0004 = ╱9c╱ IF ╱ // 0xfc9 @0x4
0x0fc5…0fe8 at0005 = ╱54╱T╱ // 0xfca @0x5
0x0fc5…0fe8 at0006 = ╱45╱E╱ // 0xfcb @0x6
0x0fc5…0fe8 at0007 = ╱47╱G╱ // 0xfcc @0x7
0x0fc5…0fe8 at0008 = ╱4e╱N╱ // 0xfcd @0x8
0x0fc5…0fe8 at0009 = ╱dc╱=╱ // 0xfce @0x9
0x0fc5…0fe8 at000a = ╱45╱E╱ // 0xfcf @0xa
0x0fc5…0fe8 at000b = ╱da╱ AND ╱ // 0xfd0 @0xb
0x0fc5…0fe8 at000c = ╱55╱U╱ // 0xfd1 @0xc
0x0fc5…0fe8 at000d = ╱42╱B╱ // 0xfd2 @0xd
0x0fc5…0fe8 at000e = ╱4c╱L╱ // 0xfd3 @0xe
0x0fc5…0fe8 at000f = ╱42╱B╱ // 0xfd4 @0xf
0x0fc5…0fe8 at0010 = ╱31╱1╱ // 0xfd5 @0x10
0x0fc5…0fe8 at0011 = ╱ef╱$╱ // 0xfd6 @0x11
0x0fc5…0fe8 at0012 = ╱ed╱(╱ // 0xfd7 @0x12
0x0fc5…0fe8 at0013 = ╱cc╱LEN╱ // 0xfd8 @0x13
0x0fc5…0fe8 at0014 = ╱ed╱(╱ // 0xfd9 @0x14
0x0fc5…0fe8 at0015 = ╱55╱U╱ // 0xfda @0x15
0x0fc5…0fe8 at0016 = ╱42╱B╱ // 0xfdb @0x16
0x0fc5…0fe8 at0017 = ╱4c╱L╱ // 0xfdc @0x17
0x0fc5…0fe8 at0018 = ╱42╱B╱ // 0xfdd @0x18
0x0fc5…0fe8 at0019 = ╱31╱1╱ // 0xfde @0x19
0x0fc5…0fe8 at001a = ╱ef╱$╱ // 0xfdf @0x1a
0x0fc5…0fe8 at001b = ╱ee╱)╱ // 0xfe0 @0x1b
0x0fc5…0fe8 at001c = ╱ee╱)╱ // 0xfe1 @0x1c
0x0fc5…0fe8 at001d = ╱dc╱=╱ // 0xfe2 @0x1d
0x0fc5…0fe8 at001e = ╱22╱"╱ // 0xfe3 @0x1e
0x0fc5…0fe8 at001f = ╱2b╱+╱ // 0xfe4 @0x1f
0x0fc5…0fe8 at0020 = ╱22╱"╱ // 0xfe5 @0x20
0x0fc5…0fe8 at0021 = ╱b6╱ THEN ╱ // 0xfe6 @0x21
0x0fc5…0fe8 at0022 = EOL // 0xfe7 @0x22
0x0fc5…0fe8 }
0x0fe8…1002 9d59 2000 UBLB1$(LEN(UBLB1$))=" "
0x0fe8…1002 LineComalBin {
0x0fe8…1002 ptr = 0x9d59 // 0xfe8 @0x0
0x0fe8…1002 lno = 0x07d0 // 0xfea @0x2
0x0fe8…1002 at0004 = ╱55╱U╱ // 0xfec @0x4
0x0fe8…1002 at0005 = ╱42╱B╱ // 0xfed @0x5
0x0fe8…1002 at0006 = ╱4c╱L╱ // 0xfee @0x6
0x0fe8…1002 at0007 = ╱42╱B╱ // 0xfef @0x7
0x0fe8…1002 at0008 = ╱31╱1╱ // 0xff0 @0x8
0x0fe8…1002 at0009 = ╱ef╱$╱ // 0xff1 @0x9
0x0fe8…1002 at000a = ╱ed╱(╱ // 0xff2 @0xa
0x0fe8…1002 at000b = ╱cc╱LEN╱ // 0xff3 @0xb
0x0fe8…1002 at000c = ╱ed╱(╱ // 0xff4 @0xc
0x0fe8…1002 at000d = ╱55╱U╱ // 0xff5 @0xd
0x0fe8…1002 at000e = ╱42╱B╱ // 0xff6 @0xe
0x0fe8…1002 at000f = ╱4c╱L╱ // 0xff7 @0xf
0x0fe8…1002 at0010 = ╱42╱B╱ // 0xff8 @0x10
0x0fe8…1002 at0011 = ╱31╱1╱ // 0xff9 @0x11
0x0fe8…1002 at0012 = ╱ef╱$╱ // 0xffa @0x12
0x0fe8…1002 at0013 = ╱ee╱)╱ // 0xffb @0x13
0x0fe8…1002 at0014 = ╱ee╱)╱ // 0xffc @0x14
0x0fe8…1002 at0015 = ╱dc╱=╱ // 0xffd @0x15
0x0fe8…1002 at0016 = ╱22╱"╱ // 0xffe @0x16
0x0fe8…1002 at0017 = ╱20╱…╱ // 0xfff @0x17
0x0fe8…1002 at0018 = ╱22╱"╱ // 0x1000 @0x18
0x0fe8…1002 at0019 = EOL // 0x1001 @0x19
0x0fe8…1002 }
0x1002…1008 9d5f 2010 ENDIF
0x1002…1008 LineComalBin {
0x1002…1008 ptr = 0x9d5f // 0x1002 @0x0
0x1002…1008 lno = 0x07da // 0x1004 @0x2
0x1002…1008 at0004 = ╱9b╱ ENDIF ╱ // 0x1006 @0x4
0x1002…1008 at0005 = EOL // 0x1007 @0x5
0x1002…1008 }
0x1008…1015 9d6c 2020 IF STØR=E THEN
0x1008…1015 LineComalBin {
0x1008…1015 ptr = 0x9d6c // 0x1008 @0x0
0x1008…1015 lno = 0x07e4 // 0x100a @0x2
0x1008…1015 at0004 = ╱9c╱ IF ╱ // 0x100c @0x4
0x1008…1015 at0005 = ╱53╱S╱ // 0x100d @0x5
0x1008…1015 at0006 = ╱54╱T╱ // 0x100e @0x6
0x1008…1015 at0007 = ╱5c╱Ø╱ // 0x100f @0x7
0x1008…1015 at0008 = ╱52╱R╱ // 0x1010 @0x8
0x1008…1015 at0009 = ╱dc╱=╱ // 0x1011 @0x9
0x1008…1015 at000a = ╱45╱E╱ // 0x1012 @0xa
0x1008…1015 at000b = ╱b6╱ THEN ╱ // 0x1013 @0xb
0x1008…1015 at000c = EOL // 0x1014 @0xc
0x1008…1015 }
0x1015…103b 9d92 2030 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x1015…103b LineComalBin {
0x1015…103b ptr = 0x9d92 // 0x1015 @0x0
0x1015…103b lno = 0x07ee // 0x1017 @0x2
0x1015…103b at0004 = ╱55╱U╱ // 0x1019 @0x4
0x1015…103b at0005 = ╱42╱B╱ // 0x101a @0x5
0x1015…103b at0006 = ╱4c╱L╱ // 0x101b @0x6
0x1015…103b at0007 = ╱42╱B╱ // 0x101c @0x7
0x1015…103b at0008 = ╱31╱1╱ // 0x101d @0x8
0x1015…103b at0009 = ╱ef╱$╱ // 0x101e @0x9
0x1015…103b at000a = ╱dc╱=╱ // 0x101f @0xa
0x1015…103b at000b = ╱55╱U╱ // 0x1020 @0xb
0x1015…103b at000c = ╱42╱B╱ // 0x1021 @0xc
0x1015…103b at000d = ╱4c╱L╱ // 0x1022 @0xd
0x1015…103b at000e = ╱42╱B╱ // 0x1023 @0xe
0x1015…103b at000f = ╱31╱1╱ // 0x1024 @0xf
0x1015…103b at0010 = ╱ef╱$╱ // 0x1025 @0x10
0x1015…103b at0011 = ╱ed╱(╱ // 0x1026 @0x11
0x1015…103b at0012 = ╱34╱4╱ // 0x1027 @0x12
0x1015…103b at0013 = ╱fe00008003╱ // 0x1028 @0x13
0x1015…103b at0018 = ╱f0╱:╱ // 0x102d @0x18
0x1015…103b at0019 = ╱cc╱LEN╱ // 0x102e @0x19
0x1015…103b at001a = ╱ed╱(╱ // 0x102f @0x1a
0x1015…103b at001b = ╱55╱U╱ // 0x1030 @0x1b
0x1015…103b at001c = ╱42╱B╱ // 0x1031 @0x1c
0x1015…103b at001d = ╱4c╱L╱ // 0x1032 @0x1d
0x1015…103b at001e = ╱42╱B╱ // 0x1033 @0x1e
0x1015…103b at001f = ╱31╱1╱ // 0x1034 @0x1f
0x1015…103b at0020 = ╱ef╱$╱ // 0x1035 @0x20
0x1015…103b at0021 = ╱ee╱)╱ // 0x1036 @0x21
0x1015…103b at0022 = ╱e3╱-╱ // 0x1037 @0x22
0x1015…103b at0023 = ╱56╱V╱ // 0x1038 @0x23
0x1015…103b at0024 = ╱ee╱)╱ // 0x1039 @0x24
0x1015…103b at0025 = EOL // 0x103a @0x25
0x1015…103b }
0x103b…1041 9d98 2040 ENDIF
0x103b…1041 LineComalBin {
0x103b…1041 ptr = 0x9d98 // 0x103b @0x0
0x103b…1041 lno = 0x07f8 // 0x103d @0x2
0x103b…1041 at0004 = ╱9b╱ ENDIF ╱ // 0x103f @0x4
0x103b…1041 at0005 = EOL // 0x1040 @0x5
0x103b…1041 }
0x1041…1047 9d9e 2050 ENDIF
0x1041…1047 LineComalBin {
0x1041…1047 ptr = 0x9d9e // 0x1041 @0x0
0x1041…1047 lno = 0x0802 // 0x1043 @0x2
0x1041…1047 at0004 = ╱9b╱ ENDIF ╱ // 0x1045 @0x4
0x1041…1047 at0005 = EOL // 0x1046 @0x5
0x1041…1047 }
0x1047…1053 9daa 2060 PRINT UBLB1$
0x1047…1053 LineComalBin {
0x1047…1053 ptr = 0x9daa // 0x1047 @0x0
0x1047…1053 lno = 0x080c // 0x1049 @0x2
0x1047…1053 at0004 = ╱92╱ PRINT ╱ // 0x104b @0x4
0x1047…1053 at0005 = ╱55╱U╱ // 0x104c @0x5
0x1047…1053 at0006 = ╱42╱B╱ // 0x104d @0x6
0x1047…1053 at0007 = ╱4c╱L╱ // 0x104e @0x7
0x1047…1053 at0008 = ╱42╱B╱ // 0x104f @0x8
0x1047…1053 at0009 = ╱31╱1╱ // 0x1050 @0x9
0x1047…1053 at000a = ╱ef╱$╱ // 0x1051 @0xa
0x1047…1053 at000b = EOL // 0x1052 @0xb
0x1047…1053 }
0x1053…1059 9db0 2070 ENDPROC
0x1053…1059 LineComalBin {
0x1053…1059 ptr = 0x9db0 // 0x1053 @0x0
0x1053…1059 lno = 0x0816 // 0x1055 @0x2
0x1053…1059 at0004 = ╱9f╱ ENDPROC ╱ // 0x1057 @0x4
0x1053…1059 at0005 = EOL // 0x1058 @0x5
0x1053…1059 }
0x1059…106b 9dc2 2080 PROC NRTEST(NUM1)
0x1059…106b LineComalBin {
0x1059…106b ptr = 0x9dc2 // 0x1059 @0x0
0x1059…106b lno = 0x0820 // 0x105b @0x2
0x1059…106b at0004 = ╱9e╱ PROC ╱ // 0x105d @0x4
0x1059…106b at0005 = ╱4e╱N╱ // 0x105e @0x5
0x1059…106b at0006 = ╱52╱R╱ // 0x105f @0x6
0x1059…106b at0007 = ╱54╱T╱ // 0x1060 @0x7
0x1059…106b at0008 = ╱45╱E╱ // 0x1061 @0x8
0x1059…106b at0009 = ╱53╱S╱ // 0x1062 @0x9
0x1059…106b at000a = ╱54╱T╱ // 0x1063 @0xa
0x1059…106b at000b = ╱ed╱(╱ // 0x1064 @0xb
0x1059…106b at000c = ╱4e╱N╱ // 0x1065 @0xc
0x1059…106b at000d = ╱55╱U╱ // 0x1066 @0xd
0x1059…106b at000e = ╱4d╱M╱ // 0x1067 @0xe
0x1059…106b at000f = ╱31╱1╱ // 0x1068 @0xf
0x1059…106b at0010 = ╱ee╱)╱ // 0x1069 @0x10
0x1059…106b at0011 = EOL // 0x106a @0x11
0x1059…106b }
0x106b…108d 9de4 2090 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x106b…108d LineComalBin {
0x106b…108d ptr = 0x9de4 // 0x106b @0x0
0x106b…108d lno = 0x082a // 0x106d @0x2
0x106b…108d at0004 = ╱50╱P╱ // 0x106f @0x4
0x106b…108d at0005 = ╱dc╱=╱ // 0x1070 @0x5
0x106b…108d at0006 = ╱42╱B╱ // 0x1071 @0x6
0x106b…108d at0007 = ╱eb╱;╱ // 0x1072 @0x7
0x106b…108d at0008 = ╱54╱T╱ // 0x1073 @0x8
0x106b…108d at0009 = ╱45╱E╱ // 0x1074 @0x9
0x106b…108d at000a = ╱53╱S╱ // 0x1075 @0xa
0x106b…108d at000b = ╱54╱T╱ // 0x1076 @0xb
0x106b…108d at000c = ╱32╱2╱ // 0x1077 @0xc
0x106b…108d at000d = ╱dc╱=╱ // 0x1078 @0xd
0x106b…108d at000e = ╱42╱B╱ // 0x1079 @0xe
0x106b…108d at000f = ╱eb╱;╱ // 0x107a @0xf
0x106b…108d at0010 = ╱4b╱K╱ // 0x107b @0x10
0x106b…108d at0011 = ╱54╱T╱ // 0x107c @0x11
0x106b…108d at0012 = ╱41╱A╱ // 0x107d @0x12
0x106b…108d at0013 = ╱4c╱L╱ // 0x107e @0x13
0x106b…108d at0014 = ╱dc╱=╱ // 0x107f @0x14
0x106b…108d at0015 = ╱42╱B╱ // 0x1080 @0x15
0x106b…108d at0016 = ╱eb╱;╱ // 0x1081 @0x16
0x106b…108d at0017 = ╱4c╱L╱ // 0x1082 @0x17
0x106b…108d at0018 = ╱dc╱=╱ // 0x1083 @0x18
0x106b…108d at0019 = ╱cc╱LEN╱ // 0x1084 @0x19
0x106b…108d at001a = ╱ed╱(╱ // 0x1085 @0x1a
0x106b…108d at001b = ╱4e╱N╱ // 0x1086 @0x1b
0x106b…108d at001c = ╱55╱U╱ // 0x1087 @0x1c
0x106b…108d at001d = ╱4d╱M╱ // 0x1088 @0x1d
0x106b…108d at001e = ╱31╱1╱ // 0x1089 @0x1e
0x106b…108d at001f = ╱ef╱$╱ // 0x108a @0x1f
0x106b…108d at0020 = ╱ee╱)╱ // 0x108b @0x20
0x106b…108d at0021 = EOL // 0x108c @0x21
0x106b…108d }
0x108d…1096 9ded 2100 CASE L OF
0x108d…1096 LineComalBin {
0x108d…1096 ptr = 0x9ded // 0x108d @0x0
0x108d…1096 lno = 0x0834 // 0x108f @0x2
0x108d…1096 at0004 = ╱a201╱ CASE ╱ // 0x1091 @0x4
0x108d…1096 at0006 = ╱4c╱L╱ // 0x1093 @0x6
0x108d…1096 at0007 = ╱ba╱ OF ╱ // 0x1094 @0x7
0x108d…1096 at0008 = EOL // 0x1095 @0x8
0x108d…1096 }
0x1096…10a1 9df8 2110 FOR I=E TO L
0x1096…10a1 LineComalBin {
0x1096…10a1 ptr = 0x9df8 // 0x1096 @0x0
0x1096…10a1 lno = 0x083e // 0x1098 @0x2
0x1096…10a1 at0004 = ╱83╱ FOR ╱ // 0x109a @0x4
0x1096…10a1 at0005 = ╱49╱I╱ // 0x109b @0x5
0x1096…10a1 at0006 = ╱dc╱=╱ // 0x109c @0x6
0x1096…10a1 at0007 = ╱45╱E╱ // 0x109d @0x7
0x1096…10a1 at0008 = ╱b7╱ TO ╱ // 0x109e @0x8
0x1096…10a1 at0009 = ╱4c╱L╱ // 0x109f @0x9
0x1096…10a1 at000a = EOL // 0x10a0 @0xa
0x1096…10a1 }
0x10a1…10bf 9e16 2120 P1=INT(ORD(NUM1$(I))-48)
0x10a1…10bf LineComalBin {
0x10a1…10bf ptr = 0x9e16 // 0x10a1 @0x0
0x10a1…10bf lno = 0x0848 // 0x10a3 @0x2
0x10a1…10bf at0004 = ╱50╱P╱ // 0x10a5 @0x4
0x10a1…10bf at0005 = ╱31╱1╱ // 0x10a6 @0x5
0x10a1…10bf at0006 = ╱dc╱=╱ // 0x10a7 @0x6
0x10a1…10bf at0007 = ╱c6╱INT╱ // 0x10a8 @0x7
0x10a1…10bf at0008 = ╱ed╱(╱ // 0x10a9 @0x8
0x10a1…10bf at0009 = ╱cd╱ORD╱ // 0x10aa @0x9
0x10a1…10bf at000a = ╱ed╱(╱ // 0x10ab @0xa
0x10a1…10bf at000b = ╱4e╱N╱ // 0x10ac @0xb
0x10a1…10bf at000c = ╱55╱U╱ // 0x10ad @0xc
0x10a1…10bf at000d = ╱4d╱M╱ // 0x10ae @0xd
0x10a1…10bf at000e = ╱31╱1╱ // 0x10af @0xe
0x10a1…10bf at000f = ╱ef╱$╱ // 0x10b0 @0xf
0x10a1…10bf at0010 = ╱ed╱(╱ // 0x10b1 @0x10
0x10a1…10bf at0011 = ╱49╱I╱ // 0x10b2 @0x11
0x10a1…10bf at0012 = ╱ee╱)╱ // 0x10b3 @0x12
0x10a1…10bf at0013 = ╱ee╱)╱ // 0x10b4 @0x13
0x10a1…10bf at0014 = ╱e3╱-╱ // 0x10b5 @0x14
0x10a1…10bf at0015 = ╱34╱4╱ // 0x10b6 @0x15
0x10a1…10bf at0016 = ╱38╱8╱ // 0x10b7 @0x16
0x10a1…10bf at0017 = ╱fe0000c006╱ // 0x10b8 @0x17
0x10a1…10bf at001c = ╱ee╱)╱ // 0x10bd @0x1c
0x10a1…10bf at001d = EOL // 0x10be @0x1d
0x10a1…10bf }
0x10bf…10cf 9e26 2130 IF P1=>B AND P1<=W THEN
0x10bf…10cf LineComalBin {
0x10bf…10cf ptr = 0x9e26 // 0x10bf @0x0
0x10bf…10cf lno = 0x0852 // 0x10c1 @0x2
0x10bf…10cf at0004 = ╱9c╱ IF ╱ // 0x10c3 @0x4
0x10bf…10cf at0005 = ╱50╱P╱ // 0x10c4 @0x5
0x10bf…10cf at0006 = ╱31╱1╱ // 0x10c5 @0x6
0x10bf…10cf at0007 = ╱e0╱=>╱ // 0x10c6 @0x7
0x10bf…10cf at0008 = ╱42╱B╱ // 0x10c7 @0x8
0x10bf…10cf at0009 = ╱da╱ AND ╱ // 0x10c8 @0x9
0x10bf…10cf at000a = ╱50╱P╱ // 0x10c9 @0xa
0x10bf…10cf at000b = ╱31╱1╱ // 0x10ca @0xb
0x10bf…10cf at000c = ╱df╱<=╱ // 0x10cb @0xc
0x10bf…10cf at000d = ╱57╱W╱ // 0x10cc @0xd
0x10bf…10cf at000e = ╱b6╱ THEN ╱ // 0x10cd @0xe
0x10bf…10cf at000f = EOL // 0x10ce @0xf
0x10bf…10cf }
0x10cf…10e2 9e39 2140 P=P*10+P1
0x10cf…10e2 LineComalBin {
0x10cf…10e2 ptr = 0x9e39 // 0x10cf @0x0
0x10cf…10e2 lno = 0x085c // 0x10d1 @0x2
0x10cf…10e2 at0004 = ╱50╱P╱ // 0x10d3 @0x4
0x10cf…10e2 at0005 = ╱dc╱=╱ // 0x10d4 @0x5
0x10cf…10e2 at0006 = ╱50╱P╱ // 0x10d5 @0x6
0x10cf…10e2 at0007 = ╱e4╱*╱ // 0x10d6 @0x7
0x10cf…10e2 at0008 = ╱31╱1╱ // 0x10d7 @0x8
0x10cf…10e2 at0009 = ╱30╱0╱ // 0x10d8 @0x9
0x10cf…10e2 at000a = ╱fe0000a004╱ // 0x10d9 @0xa
0x10cf…10e2 at000f = ╱e2╱+╱ // 0x10de @0xf
0x10cf…10e2 at0010 = ╱50╱P╱ // 0x10df @0x10
0x10cf…10e2 at0011 = ╱31╱1╱ // 0x10e0 @0x11
0x10cf…10e2 at0012 = EOL // 0x10e1 @0x12
0x10cf…10e2 }
0x10e2…10e8 9e3f 2150 ELSE
0x10e2…10e8 LineComalBin {
0x10e2…10e8 ptr = 0x9e3f // 0x10e2 @0x0
0x10e2…10e8 lno = 0x0866 // 0x10e4 @0x2
0x10e2…10e8 at0004 = ╱9a╱ ELSE ╱ // 0x10e6 @0x4
0x10e2…10e8 at0005 = EOL // 0x10e7 @0x5
0x10e2…10e8 }
0x10e8…10f4 9e4b 2160 TEST2=E
0x10e8…10f4 LineComalBin {
0x10e8…10f4 ptr = 0x9e4b // 0x10e8 @0x0
0x10e8…10f4 lno = 0x0870 // 0x10ea @0x2
0x10e8…10f4 at0004 = ╱54╱T╱ // 0x10ec @0x4
0x10e8…10f4 at0005 = ╱45╱E╱ // 0x10ed @0x5
0x10e8…10f4 at0006 = ╱53╱S╱ // 0x10ee @0x6
0x10e8…10f4 at0007 = ╱54╱T╱ // 0x10ef @0x7
0x10e8…10f4 at0008 = ╱32╱2╱ // 0x10f0 @0x8
0x10e8…10f4 at0009 = ╱dc╱=╱ // 0x10f1 @0x9
0x10e8…10f4 at000a = ╱45╱E╱ // 0x10f2 @0xa
0x10e8…10f4 at000b = EOL // 0x10f3 @0xb
0x10e8…10f4 }
0x10f4…10fa 9e51 2170 ENDIF
0x10f4…10fa LineComalBin {
0x10f4…10fa ptr = 0x9e51 // 0x10f4 @0x0
0x10f4…10fa lno = 0x087a // 0x10f6 @0x2
0x10f4…10fa at0004 = ╱9b╱ ENDIF ╱ // 0x10f8 @0x4
0x10f4…10fa at0005 = EOL // 0x10f9 @0x5
0x10f4…10fa }
0x10fa…1101 9e58 2180 NEXT I
0x10fa…1101 LineComalBin {
0x10fa…1101 ptr = 0x9e58 // 0x10fa @0x0
0x10fa…1101 lno = 0x0884 // 0x10fc @0x2
0x10fa…1101 at0004 = ╱84╱ NEXT ╱ // 0x10fe @0x4
0x10fa…1101 at0005 = ╱49╱I╱ // 0x10ff @0x5
0x10fa…1101 at0006 = EOL // 0x1100 @0x6
0x10fa…1101 }
0x1101…1129 9e80 2190 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x1101…1129 LineComalBin {
0x1101…1129 ptr = 0x9e80 // 0x1101 @0x0
0x1101…1129 lno = 0x088e // 0x1103 @0x2
0x1101…1129 at0004 = ╱4b╱K╱ // 0x1105 @0x4
0x1101…1129 at0005 = ╱54╱T╱ // 0x1106 @0x5
0x1101…1129 at0006 = ╱41╱A╱ // 0x1107 @0x6
0x1101…1129 at0007 = ╱4c╱L╱ // 0x1108 @0x7
0x1101…1129 at0008 = ╱dc╱=╱ // 0x1109 @0x8
0x1101…1129 at0009 = ╱50╱P╱ // 0x110a @0x9
0x1101…1129 at000a = ╱e7╱ DIV ╱ // 0x110b @0xa
0x1101…1129 at000b = ╱31╱1╱ // 0x110c @0xb
0x1101…1129 at000c = ╱30╱0╱ // 0x110d @0xc
0x1101…1129 at000d = ╱30╱0╱ // 0x110e @0xd
0x1101…1129 at000e = ╱30╱0╱ // 0x110f @0xe
0x1101…1129 at000f = ╱30╱0╱ // 0x1110 @0xf
0x1101…1129 at0010 = ╱fe00409c0e╱ // 0x1111 @0x10
0x1101…1129 at0015 = ╱eb╱;╱ // 0x1116 @0x15
0x1101…1129 at0016 = ╱4b╱K╱ // 0x1117 @0x16
0x1101…1129 at0017 = ╱54╱T╱ // 0x1118 @0x17
0x1101…1129 at0018 = ╱41╱A╱ // 0x1119 @0x18
0x1101…1129 at0019 = ╱4c╱L╱ // 0x111a @0x19
0x1101…1129 at001a = ╱39╱9╱ // 0x111b @0x1a
0x1101…1129 at001b = ╱dc╱=╱ // 0x111c @0x1b
0x1101…1129 at001c = ╱50╱P╱ // 0x111d @0x1c
0x1101…1129 at001d = ╱e7╱ DIV ╱ // 0x111e @0x1d
0x1101…1129 at001e = ╱31╱1╱ // 0x111f @0x1e
0x1101…1129 at001f = ╱30╱0╱ // 0x1120 @0x1f
0x1101…1129 at0020 = ╱30╱0╱ // 0x1121 @0x20
0x1101…1129 at0021 = ╱30╱0╱ // 0x1122 @0x21
0x1101…1129 at0022 = ╱fe0000fa0a╱ // 0x1123 @0x22
0x1101…1129 at0027 = EOL // 0x1128 @0x27
0x1101…1129 }
0x1129…1145 9e9c 2200 IF KTAL9=KRTAL THEN KTAL=KRTAL
0x1129…1145 LineComalBin {
0x1129…1145 ptr = 0x9e9c // 0x1129 @0x0
0x1129…1145 lno = 0x0898 // 0x112b @0x2
0x1129…1145 at0004 = ╱82╱ IF ╱ // 0x112d @0x4
0x1129…1145 at0005 = ╱4b╱K╱ // 0x112e @0x5
0x1129…1145 at0006 = ╱54╱T╱ // 0x112f @0x6
0x1129…1145 at0007 = ╱41╱A╱ // 0x1130 @0x7
0x1129…1145 at0008 = ╱4c╱L╱ // 0x1131 @0x8
0x1129…1145 at0009 = ╱39╱9╱ // 0x1132 @0x9
0x1129…1145 at000a = ╱dc╱=╱ // 0x1133 @0xa
0x1129…1145 at000b = ╱4b╱K╱ // 0x1134 @0xb
0x1129…1145 at000c = ╱52╱R╱ // 0x1135 @0xc
0x1129…1145 at000d = ╱54╱T╱ // 0x1136 @0xd
0x1129…1145 at000e = ╱41╱A╱ // 0x1137 @0xe
0x1129…1145 at000f = ╱4c╱L╱ // 0x1138 @0xf
0x1129…1145 at0010 = ╱b6╱ THEN ╱ // 0x1139 @0x10
0x1129…1145 at0011 = ╱4b╱K╱ // 0x113a @0x11
0x1129…1145 at0012 = ╱54╱T╱ // 0x113b @0x12
0x1129…1145 at0013 = ╱41╱A╱ // 0x113c @0x13
0x1129…1145 at0014 = ╱4c╱L╱ // 0x113d @0x14
0x1129…1145 at0015 = ╱dc╱=╱ // 0x113e @0x15
0x1129…1145 at0016 = ╱4b╱K╱ // 0x113f @0x16
0x1129…1145 at0017 = ╱52╱R╱ // 0x1140 @0x17
0x1129…1145 at0018 = ╱54╱T╱ // 0x1141 @0x18
0x1129…1145 at0019 = ╱41╱A╱ // 0x1142 @0x19
0x1129…1145 at001a = ╱4c╱L╱ // 0x1143 @0x1a
0x1129…1145 at001b = EOL // 0x1144 @0x1b
0x1129…1145 }
0x1145…114d 9ea4 2210 WHEN B
0x1145…114d LineComalBin {
0x1145…114d ptr = 0x9ea4 // 0x1145 @0x0
0x1145…114d lno = 0x08a2 // 0x1147 @0x2
0x1145…114d at0004 = ╱a301╱ WHEN ╱ // 0x1149 @0x4
0x1145…114d at0006 = ╱42╱B╱ // 0x114b @0x6
0x1145…114d at0007 = EOL // 0x114c @0x7
0x1145…114d }
0x114d…1156 9ead 2220 P=-E
0x114d…1156 LineComalBin {
0x114d…1156 ptr = 0x9ead // 0x114d @0x0
0x114d…1156 lno = 0x08ac // 0x114f @0x2
0x114d…1156 at0004 = ╱50╱P╱ // 0x1151 @0x4
0x114d…1156 at0005 = ╱dc╱=╱ // 0x1152 @0x5
0x114d…1156 at0006 = ╱e9╱-╱ // 0x1153 @0x6
0x114d…1156 at0007 = ╱45╱E╱ // 0x1154 @0x7
0x114d…1156 at0008 = EOL // 0x1155 @0x8
0x114d…1156 }
0x1156…115e 9eb5 2230 WHEN E
0x1156…115e LineComalBin {
0x1156…115e ptr = 0x9eb5 // 0x1156 @0x0
0x1156…115e lno = 0x08b6 // 0x1158 @0x2
0x1156…115e at0004 = ╱a301╱ WHEN ╱ // 0x115a @0x4
0x1156…115e at0006 = ╱45╱E╱ // 0x115c @0x6
0x1156…115e at0007 = EOL // 0x115d @0x7
0x1156…115e }
0x115e…116b 9ec2 2240 CASE NUM1$ OF
0x115e…116b LineComalBin {
0x115e…116b ptr = 0x9ec2 // 0x115e @0x0
0x115e…116b lno = 0x08c0 // 0x1160 @0x2
0x115e…116b at0004 = ╱a200╱ CASE ╱ // 0x1162 @0x4
0x115e…116b at0006 = ╱4e╱N╱ // 0x1164 @0x6
0x115e…116b at0007 = ╱55╱U╱ // 0x1165 @0x7
0x115e…116b at0008 = ╱4d╱M╱ // 0x1166 @0x8
0x115e…116b at0009 = ╱31╱1╱ // 0x1167 @0x9
0x115e…116b at000a = ╱ef╱$╱ // 0x1168 @0xa
0x115e…116b at000b = ╱ba╱ OF ╱ // 0x1169 @0xb
0x115e…116b at000c = EOL // 0x116a @0xc
0x115e…116b }
0x116b…1185 9edc 2250 P=INT(ORD(NUM1$)-48)
0x116b…1185 LineComalBin {
0x116b…1185 ptr = 0x9edc // 0x116b @0x0
0x116b…1185 lno = 0x08ca // 0x116d @0x2
0x116b…1185 at0004 = ╱50╱P╱ // 0x116f @0x4
0x116b…1185 at0005 = ╱dc╱=╱ // 0x1170 @0x5
0x116b…1185 at0006 = ╱c6╱INT╱ // 0x1171 @0x6
0x116b…1185 at0007 = ╱ed╱(╱ // 0x1172 @0x7
0x116b…1185 at0008 = ╱cd╱ORD╱ // 0x1173 @0x8
0x116b…1185 at0009 = ╱ed╱(╱ // 0x1174 @0x9
0x116b…1185 at000a = ╱4e╱N╱ // 0x1175 @0xa
0x116b…1185 at000b = ╱55╱U╱ // 0x1176 @0xb
0x116b…1185 at000c = ╱4d╱M╱ // 0x1177 @0xc
0x116b…1185 at000d = ╱31╱1╱ // 0x1178 @0xd
0x116b…1185 at000e = ╱ef╱$╱ // 0x1179 @0xe
0x116b…1185 at000f = ╱ee╱)╱ // 0x117a @0xf
0x116b…1185 at0010 = ╱e3╱-╱ // 0x117b @0x10
0x116b…1185 at0011 = ╱34╱4╱ // 0x117c @0x11
0x116b…1185 at0012 = ╱38╱8╱ // 0x117d @0x12
0x116b…1185 at0013 = ╱fe0000c006╱ // 0x117e @0x13
0x116b…1185 at0018 = ╱ee╱)╱ // 0x1183 @0x18
0x116b…1185 at0019 = EOL // 0x1184 @0x19
0x116b…1185 }
0x1185…1193 9eea 2260 WHEN "j","J"
0x1185…1193 LineComalBin {
0x1185…1193 ptr = 0x9eea // 0x1185 @0x0
0x1185…1193 lno = 0x08d4 // 0x1187 @0x2
0x1185…1193 at0004 = ╱a300╱ WHEN ╱ // 0x1189 @0x4
0x1185…1193 at0006 = ╱22╱"╱ // 0x118b @0x6
0x1185…1193 at0007 = ╱6a╱j╱ // 0x118c @0x7
0x1185…1193 at0008 = ╱22╱"╱ // 0x118d @0x8
0x1185…1193 at0009 = ╱ec╱,╱ // 0x118e @0x9
0x1185…1193 at000a = ╱22╱"╱ // 0x118f @0xa
0x1185…1193 at000b = ╱4a╱J╱ // 0x1190 @0xb
0x1185…1193 at000c = ╱22╱"╱ // 0x1191 @0xc
0x1185…1193 at000d = EOL // 0x1192 @0xd
0x1185…1193 }
0x1193…11a1 9ef8 2270 P=-7
0x1193…11a1 LineComalBin {
0x1193…11a1 ptr = 0x9ef8 // 0x1193 @0x0
0x1193…11a1 lno = 0x08de // 0x1195 @0x2
0x1193…11a1 at0004 = ╱50╱P╱ // 0x1197 @0x4
0x1193…11a1 at0005 = ╱dc╱=╱ // 0x1198 @0x5
0x1193…11a1 at0006 = ╱e9╱-╱ // 0x1199 @0x6
0x1193…11a1 at0007 = ╱37╱7╱ // 0x119a @0x7
0x1193…11a1 at0008 = ╱fe0000e003╱ // 0x119b @0x8
0x1193…11a1 at000d = EOL // 0x11a0 @0xd
0x1193…11a1 }
0x11a1…11af 9f06 2280 WHEN "n","N"
0x11a1…11af LineComalBin {
0x11a1…11af ptr = 0x9f06 // 0x11a1 @0x0
0x11a1…11af lno = 0x08e8 // 0x11a3 @0x2
0x11a1…11af at0004 = ╱a300╱ WHEN ╱ // 0x11a5 @0x4
0x11a1…11af at0006 = ╱22╱"╱ // 0x11a7 @0x6
0x11a1…11af at0007 = ╱6e╱n╱ // 0x11a8 @0x7
0x11a1…11af at0008 = ╱22╱"╱ // 0x11a9 @0x8
0x11a1…11af at0009 = ╱ec╱,╱ // 0x11aa @0x9
0x11a1…11af at000a = ╱22╱"╱ // 0x11ab @0xa
0x11a1…11af at000b = ╱4e╱N╱ // 0x11ac @0xb
0x11a1…11af at000c = ╱22╱"╱ // 0x11ad @0xc
0x11a1…11af at000d = EOL // 0x11ae @0xd
0x11a1…11af }
0x11af…11bd 9f14 2290 P=-8
0x11af…11bd LineComalBin {
0x11af…11bd ptr = 0x9f14 // 0x11af @0x0
0x11af…11bd lno = 0x08f2 // 0x11b1 @0x2
0x11af…11bd at0004 = ╱50╱P╱ // 0x11b3 @0x4
0x11af…11bd at0005 = ╱dc╱=╱ // 0x11b4 @0x5
0x11af…11bd at0006 = ╱e9╱-╱ // 0x11b5 @0x6
0x11af…11bd at0007 = ╱38╱8╱ // 0x11b6 @0x7
0x11af…11bd at0008 = ╱fe00008004╱ // 0x11b7 @0x8
0x11af…11bd at000d = EOL // 0x11bc @0xd
0x11af…11bd }
0x11bd…11c3 9f1a 2300 ENDCASE
0x11bd…11c3 LineComalBin {
0x11bd…11c3 ptr = 0x9f1a // 0x11bd @0x0
0x11bd…11c3 lno = 0x08fc // 0x11bf @0x2
0x11bd…11c3 at0004 = ╱a4╱ ENDCASE ╱ // 0x11c1 @0x4
0x11bd…11c3 at0005 = EOL // 0x11c2 @0x5
0x11bd…11c3 }
0x11c3…11c9 9f20 2310 ENDCASE
0x11c3…11c9 LineComalBin {
0x11c3…11c9 ptr = 0x9f20 // 0x11c3 @0x0
0x11c3…11c9 lno = 0x0906 // 0x11c5 @0x2
0x11c3…11c9 at0004 = ╱a4╱ ENDCASE ╱ // 0x11c7 @0x4
0x11c3…11c9 at0005 = EOL // 0x11c8 @0x5
0x11c3…11c9 }
0x11c9…11cf 9f26 2320 ENDPROC
0x11c9…11cf LineComalBin {
0x11c9…11cf ptr = 0x9f26 // 0x11c9 @0x0
0x11c9…11cf lno = 0x0910 // 0x11cb @0x2
0x11c9…11cf at0004 = ╱9f╱ ENDPROC ╱ // 0x11cd @0x4
0x11c9…11cf at0005 = EOL // 0x11ce @0x5
0x11c9…11cf }
0x11cf…11de 9f35 2330 PROC VERSKRIFT
0x11cf…11de LineComalBin {
0x11cf…11de ptr = 0x9f35 // 0x11cf @0x0
0x11cf…11de lno = 0x091a // 0x11d1 @0x2
0x11cf…11de at0004 = ╱9e╱ PROC ╱ // 0x11d3 @0x4
0x11cf…11de at0005 = ╱56╱V╱ // 0x11d4 @0x5
0x11cf…11de at0006 = ╱45╱E╱ // 0x11d5 @0x6
0x11cf…11de at0007 = ╱52╱R╱ // 0x11d6 @0x7
0x11cf…11de at0008 = ╱53╱S╱ // 0x11d7 @0x8
0x11cf…11de at0009 = ╱4b╱K╱ // 0x11d8 @0x9
0x11cf…11de at000a = ╱52╱R╱ // 0x11d9 @0xa
0x11cf…11de at000b = ╱49╱I╱ // 0x11da @0xb
0x11cf…11de at000c = ╱46╱F╱ // 0x11db @0xc
0x11cf…11de at000d = ╱54╱T╱ // 0x11dc @0xd
0x11cf…11de at000e = EOL // 0x11dd @0xe
0x11cf…11de }
0x11de…11ed 9f44 2340 CURSOR 45,E
0x11de…11ed LineComalBin {
0x11de…11ed ptr = 0x9f44 // 0x11de @0x0
0x11de…11ed lno = 0x0924 // 0x11e0 @0x2
0x11de…11ed at0004 = ╱a1╱ CURSOR ╱ // 0x11e2 @0x4
0x11de…11ed at0005 = ╱34╱4╱ // 0x11e3 @0x5
0x11de…11ed at0006 = ╱35╱5╱ // 0x11e4 @0x6
0x11de…11ed at0007 = ╱fe0000b406╱ // 0x11e5 @0x7
0x11de…11ed at000c = ╱ec╱,╱ // 0x11ea @0xc
0x11de…11ed at000d = ╱45╱E╱ // 0x11eb @0xd
0x11de…11ed at000e = EOL // 0x11ec @0xe
0x11de…11ed }
0x11ed…11f9 9f50 2350 CASE TYPE OF
0x11ed…11f9 LineComalBin {
0x11ed…11f9 ptr = 0x9f50 // 0x11ed @0x0
0x11ed…11f9 lno = 0x092e // 0x11ef @0x2
0x11ed…11f9 at0004 = ╱a201╱ CASE ╱ // 0x11f1 @0x4
0x11ed…11f9 at0006 = ╱54╱T╱ // 0x11f3 @0x6
0x11ed…11f9 at0007 = ╱59╱Y╱ // 0x11f4 @0x7
0x11ed…11f9 at0008 = ╱50╱P╱ // 0x11f5 @0x8
0x11ed…11f9 at0009 = ╱45╱E╱ // 0x11f6 @0x9
0x11ed…11f9 at000a = ╱ba╱ OF ╱ // 0x11f7 @0xa
0x11ed…11f9 at000b = EOL // 0x11f8 @0xb
0x11ed…11f9 }
0x11f9…1201 9f58 2360 WHEN E
0x11f9…1201 LineComalBin {
0x11f9…1201 ptr = 0x9f58 // 0x11f9 @0x0
0x11f9…1201 lno = 0x0938 // 0x11fb @0x2
0x11f9…1201 at0004 = ╱a301╱ WHEN ╱ // 0x11fd @0x4
0x11f9…1201 at0006 = ╱45╱E╱ // 0x11ff @0x6
0x11f9…1201 at0007 = EOL // 0x1200 @0x7
0x11f9…1201 }
0x1201…1213 9f6a 2370 PRINT "Oprettelse"
0x1201…1213 LineComalBin {
0x1201…1213 ptr = 0x9f6a // 0x1201 @0x0
0x1201…1213 lno = 0x0942 // 0x1203 @0x2
0x1201…1213 at0004 = ╱92╱ PRINT ╱ // 0x1205 @0x4
0x1201…1213 at0005 = ╱22╱"╱ // 0x1206 @0x5
0x1201…1213 at0006 = ╱4f╱O╱ // 0x1207 @0x6
0x1201…1213 at0007 = ╱70╱p╱ // 0x1208 @0x7
0x1201…1213 at0008 = ╱72╱r╱ // 0x1209 @0x8
0x1201…1213 at0009 = ╱65╱e╱ // 0x120a @0x9
0x1201…1213 at000a = ╱74╱t╱ // 0x120b @0xa
0x1201…1213 at000b = ╱74╱t╱ // 0x120c @0xb
0x1201…1213 at000c = ╱65╱e╱ // 0x120d @0xc
0x1201…1213 at000d = ╱6c╱l╱ // 0x120e @0xd
0x1201…1213 at000e = ╱73╱s╱ // 0x120f @0xe
0x1201…1213 at000f = ╱65╱e╱ // 0x1210 @0xf
0x1201…1213 at0010 = ╱22╱"╱ // 0x1211 @0x10
0x1201…1213 at0011 = EOL // 0x1212 @0x11
0x1201…1213 }
0x1213…121b 9f72 2380 WHEN G
0x1213…121b LineComalBin {
0x1213…121b ptr = 0x9f72 // 0x1213 @0x0
0x1213…121b lno = 0x094c // 0x1215 @0x2
0x1213…121b at0004 = ╱a301╱ WHEN ╱ // 0x1217 @0x4
0x1213…121b at0006 = ╱47╱G╱ // 0x1219 @0x6
0x1213…121b at0007 = EOL // 0x121a @0x7
0x1213…121b }
0x121b…122a 9f81 2390 PRINT "Ændring"
0x121b…122a LineComalBin {
0x121b…122a ptr = 0x9f81 // 0x121b @0x0
0x121b…122a lno = 0x0956 // 0x121d @0x2
0x121b…122a at0004 = ╱92╱ PRINT ╱ // 0x121f @0x4
0x121b…122a at0005 = ╱22╱"╱ // 0x1220 @0x5
0x121b…122a at0006 = ╱5b╱Æ╱ // 0x1221 @0x6
0x121b…122a at0007 = ╱6e╱n╱ // 0x1222 @0x7
0x121b…122a at0008 = ╱64╱d╱ // 0x1223 @0x8
0x121b…122a at0009 = ╱72╱r╱ // 0x1224 @0x9
0x121b…122a at000a = ╱69╱i╱ // 0x1225 @0xa
0x121b…122a at000b = ╱6e╱n╱ // 0x1226 @0xb
0x121b…122a at000c = ╱67╱g╱ // 0x1227 @0xc
0x121b…122a at000d = ╱22╱"╱ // 0x1228 @0xd
0x121b…122a at000e = EOL // 0x1229 @0xe
0x121b…122a }
0x122a…1232 9f89 2400 WHEN V
0x122a…1232 LineComalBin {
0x122a…1232 ptr = 0x9f89 // 0x122a @0x0
0x122a…1232 lno = 0x0960 // 0x122c @0x2
0x122a…1232 at0004 = ╱a301╱ WHEN ╱ // 0x122e @0x4
0x122a…1232 at0006 = ╱56╱V╱ // 0x1230 @0x6
0x122a…1232 at0007 = EOL // 0x1231 @0x7
0x122a…1232 }
0x1232…1242 9f99 2410 PRINT "Sletning"
0x1232…1242 LineComalBin {
0x1232…1242 ptr = 0x9f99 // 0x1232 @0x0
0x1232…1242 lno = 0x096a // 0x1234 @0x2
0x1232…1242 at0004 = ╱92╱ PRINT ╱ // 0x1236 @0x4
0x1232…1242 at0005 = ╱22╱"╱ // 0x1237 @0x5
0x1232…1242 at0006 = ╱53╱S╱ // 0x1238 @0x6
0x1232…1242 at0007 = ╱6c╱l╱ // 0x1239 @0x7
0x1232…1242 at0008 = ╱65╱e╱ // 0x123a @0x8
0x1232…1242 at0009 = ╱74╱t╱ // 0x123b @0x9
0x1232…1242 at000a = ╱6e╱n╱ // 0x123c @0xa
0x1232…1242 at000b = ╱69╱i╱ // 0x123d @0xb
0x1232…1242 at000c = ╱6e╱n╱ // 0x123e @0xc
0x1232…1242 at000d = ╱67╱g╱ // 0x123f @0xd
0x1232…1242 at000e = ╱22╱"╱ // 0x1240 @0xe
0x1232…1242 at000f = EOL // 0x1241 @0xf
0x1232…1242 }
0x1242…124f 9fa6 2420 WHEN 4
0x1242…124f LineComalBin {
0x1242…124f ptr = 0x9fa6 // 0x1242 @0x0
0x1242…124f lno = 0x0974 // 0x1244 @0x2
0x1242…124f at0004 = ╱a301╱ WHEN ╱ // 0x1246 @0x4
0x1242…124f at0006 = ╱34╱4╱ // 0x1248 @0x6
0x1242…124f at0007 = ╱fe00008003╱ // 0x1249 @0x7
0x1242…124f at000c = EOL // 0x124e @0xc
0x1242…124f }
0x124f…125f 9fb6 2430 PRINT "Udskrift"
0x124f…125f LineComalBin {
0x124f…125f ptr = 0x9fb6 // 0x124f @0x0
0x124f…125f lno = 0x097e // 0x1251 @0x2
0x124f…125f at0004 = ╱92╱ PRINT ╱ // 0x1253 @0x4
0x124f…125f at0005 = ╱22╱"╱ // 0x1254 @0x5
0x124f…125f at0006 = ╱55╱U╱ // 0x1255 @0x6
0x124f…125f at0007 = ╱64╱d╱ // 0x1256 @0x7
0x124f…125f at0008 = ╱73╱s╱ // 0x1257 @0x8
0x124f…125f at0009 = ╱6b╱k╱ // 0x1258 @0x9
0x124f…125f at000a = ╱72╱r╱ // 0x1259 @0xa
0x124f…125f at000b = ╱69╱i╱ // 0x125a @0xb
0x124f…125f at000c = ╱66╱f╱ // 0x125b @0xc
0x124f…125f at000d = ╱74╱t╱ // 0x125c @0xd
0x124f…125f at000e = ╱22╱"╱ // 0x125d @0xe
0x124f…125f at000f = EOL // 0x125e @0xf
0x124f…125f }
0x125f…126c 9fc3 2440 WHEN 5
0x125f…126c LineComalBin {
0x125f…126c ptr = 0x9fc3 // 0x125f @0x0
0x125f…126c lno = 0x0988 // 0x1261 @0x2
0x125f…126c at0004 = ╱a301╱ WHEN ╱ // 0x1263 @0x4
0x125f…126c at0006 = ╱35╱5╱ // 0x1265 @0x6
0x125f…126c at0007 = ╱fe0000a003╱ // 0x1266 @0x7
0x125f…126c at000c = EOL // 0x126b @0xc
0x125f…126c }
0x126c…1283 9fda 2450 PRINT "Underkontoliste"
0x126c…1283 LineComalBin {
0x126c…1283 ptr = 0x9fda // 0x126c @0x0
0x126c…1283 lno = 0x0992 // 0x126e @0x2
0x126c…1283 at0004 = ╱92╱ PRINT ╱ // 0x1270 @0x4
0x126c…1283 at0005 = ╱22╱"╱ // 0x1271 @0x5
0x126c…1283 at0006 = ╱55╱U╱ // 0x1272 @0x6
0x126c…1283 at0007 = ╱6e╱n╱ // 0x1273 @0x7
0x126c…1283 at0008 = ╱64╱d╱ // 0x1274 @0x8
0x126c…1283 at0009 = ╱65╱e╱ // 0x1275 @0x9
0x126c…1283 at000a = ╱72╱r╱ // 0x1276 @0xa
0x126c…1283 at000b = ╱6b╱k╱ // 0x1277 @0xb
0x126c…1283 at000c = ╱6f╱o╱ // 0x1278 @0xc
0x126c…1283 at000d = ╱6e╱n╱ // 0x1279 @0xd
0x126c…1283 at000e = ╱74╱t╱ // 0x127a @0xe
0x126c…1283 at000f = ╱6f╱o╱ // 0x127b @0xf
0x126c…1283 at0010 = ╱6c╱l╱ // 0x127c @0x10
0x126c…1283 at0011 = ╱69╱i╱ // 0x127d @0x11
0x126c…1283 at0012 = ╱73╱s╱ // 0x127e @0x12
0x126c…1283 at0013 = ╱74╱t╱ // 0x127f @0x13
0x126c…1283 at0014 = ╱65╱e╱ // 0x1280 @0x14
0x126c…1283 at0015 = ╱22╱"╱ // 0x1281 @0x15
0x126c…1283 at0016 = EOL // 0x1282 @0x16
0x126c…1283 }
0x1283…1289 9fe0 2460 ENDCASE
0x1283…1289 LineComalBin {
0x1283…1289 ptr = 0x9fe0 // 0x1283 @0x0
0x1283…1289 lno = 0x099c // 0x1285 @0x2
0x1283…1289 at0004 = ╱a4╱ ENDCASE ╱ // 0x1287 @0x4
0x1283…1289 at0005 = EOL // 0x1288 @0x5
0x1283…1289 }
0x1289…128f 9fe6 2470 ENDPROC
0x1289…128f LineComalBin {
0x1289…128f ptr = 0x9fe6 // 0x1289 @0x0
0x1289…128f lno = 0x09a6 // 0x128b @0x2
0x1289…128f at0004 = ╱9f╱ ENDPROC ╱ // 0x128d @0x4
0x1289…128f at0005 = EOL // 0x128e @0x5
0x1289…128f }
0x128f…12a9 a000 2480 K1$="P641220:SYSTEM1"
0x128f…12a9 LineComalBin {
0x128f…12a9 ptr = 0xa000 // 0x128f @0x0
0x128f…12a9 lno = 0x09b0 // 0x1291 @0x2
0x128f…12a9 at0004 = ╱4b╱K╱ // 0x1293 @0x4
0x128f…12a9 at0005 = ╱31╱1╱ // 0x1294 @0x5
0x128f…12a9 at0006 = ╱ef╱$╱ // 0x1295 @0x6
0x128f…12a9 at0007 = ╱dc╱=╱ // 0x1296 @0x7
0x128f…12a9 at0008 = ╱22╱"╱ // 0x1297 @0x8
0x128f…12a9 at0009 = ╱50╱P╱ // 0x1298 @0x9
0x128f…12a9 at000a = ╱36╱6╱ // 0x1299 @0xa
0x128f…12a9 at000b = ╱34╱4╱ // 0x129a @0xb
0x128f…12a9 at000c = ╱31╱1╱ // 0x129b @0xc
0x128f…12a9 at000d = ╱32╱2╱ // 0x129c @0xd
0x128f…12a9 at000e = ╱32╱2╱ // 0x129d @0xe
0x128f…12a9 at000f = ╱30╱0╱ // 0x129e @0xf
0x128f…12a9 at0010 = ╱3a╱:╱ // 0x129f @0x10
0x128f…12a9 at0011 = ╱53╱S╱ // 0x12a0 @0x11
0x128f…12a9 at0012 = ╱59╱Y╱ // 0x12a1 @0x12
0x128f…12a9 at0013 = ╱53╱S╱ // 0x12a2 @0x13
0x128f…12a9 at0014 = ╱54╱T╱ // 0x12a3 @0x14
0x128f…12a9 at0015 = ╱45╱E╱ // 0x12a4 @0x15
0x128f…12a9 at0016 = ╱4d╱M╱ // 0x12a5 @0x16
0x128f…12a9 at0017 = ╱31╱1╱ // 0x12a6 @0x17
0x128f…12a9 at0018 = ╱22╱"╱ // 0x12a7 @0x18
0x128f…12a9 at0019 = EOL // 0x12a8 @0x19
0x128f…12a9 }
0x12a9…12b4 a00b 2490 OPEN K1$,R
0x12a9…12b4 LineComalBin {
0x12a9…12b4 ptr = 0xa00b // 0x12a9 @0x0
0x12a9…12b4 lno = 0x09ba // 0x12ab @0x2
0x12a9…12b4 at0004 = ╱a7╱ OPEN ╱ // 0x12ad @0x4
0x12a9…12b4 at0005 = ╱4b╱K╱ // 0x12ae @0x5
0x12a9…12b4 at0006 = ╱31╱1╱ // 0x12af @0x6
0x12a9…12b4 at0007 = ╱ef╱$╱ // 0x12b0 @0x7
0x12a9…12b4 at0008 = ╱ec╱,╱ // 0x12b1 @0x8
0x12a9…12b4 at0009 = ╱52╱R╱ // 0x12b2 @0x9
0x12a9…12b4 at000a = EOL // 0x12b3 @0xa
0x12a9…12b4 }
0x12b4…12c7 a01e 2500 EXEC FEJL(W,E,K1$)
0x12b4…12c7 LineComalBin {
0x12b4…12c7 ptr = 0xa01e // 0x12b4 @0x0
0x12b4…12c7 lno = 0x09c4 // 0x12b6 @0x2
0x12b4…12c7 at0004 = ╱9d╱ EXEC ╱ // 0x12b8 @0x4
0x12b4…12c7 at0005 = ╱46╱F╱ // 0x12b9 @0x5
0x12b4…12c7 at0006 = ╱45╱E╱ // 0x12ba @0x6
0x12b4…12c7 at0007 = ╱4a╱J╱ // 0x12bb @0x7
0x12b4…12c7 at0008 = ╱4c╱L╱ // 0x12bc @0x8
0x12b4…12c7 at0009 = ╱ed╱(╱ // 0x12bd @0x9
0x12b4…12c7 at000a = ╱57╱W╱ // 0x12be @0xa
0x12b4…12c7 at000b = ╱ec╱,╱ // 0x12bf @0xb
0x12b4…12c7 at000c = ╱45╱E╱ // 0x12c0 @0xc
0x12b4…12c7 at000d = ╱ec╱,╱ // 0x12c1 @0xd
0x12b4…12c7 at000e = ╱4b╱K╱ // 0x12c2 @0xe
0x12b4…12c7 at000f = ╱31╱1╱ // 0x12c3 @0xf
0x12b4…12c7 at0010 = ╱ef╱$╱ // 0x12c4 @0x10
0x12b4…12c7 at0011 = ╱ee╱)╱ // 0x12c5 @0x11
0x12b4…12c7 at0012 = EOL // 0x12c6 @0x12
0x12b4…12c7 }
0x12c7…12ed a044 2510 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT
0x12c7…12ed LineComalBin {
0x12c7…12ed ptr = 0xa044 // 0x12c7 @0x0
0x12c7…12ed lno = 0x09ce // 0x12c9 @0x2
0x12c7…12ed at0004 = ╱a9╱ GET ╱ // 0x12cb @0x4
0x12c7…12ed at0005 = ╱4b╱K╱ // 0x12cc @0x5
0x12c7…12ed at0006 = ╱31╱1╱ // 0x12cd @0x6
0x12c7…12ed at0007 = ╱ef╱$╱ // 0x12ce @0x7
0x12c7…12ed at0008 = ╱ec╱,╱ // 0x12cf @0x8
0x12c7…12ed at0009 = ╱57╱W╱ // 0x12d0 @0x9
0x12c7…12ed at000a = ╱f0╱:╱ // 0x12d1 @0xa
0x12c7…12ed at000b = ╱4b╱K╱ // 0x12d2 @0xb
0x12c7…12ed at000c = ╱52╱R╱ // 0x12d3 @0xc
0x12c7…12ed at000d = ╱54╱T╱ // 0x12d4 @0xd
0x12c7…12ed at000e = ╱41╱A╱ // 0x12d5 @0xe
0x12c7…12ed at000f = ╱4c╱L╱ // 0x12d6 @0xf
0x12c7…12ed at0010 = ╱ec╱,╱ // 0x12d7 @0x10
0x12c7…12ed at0011 = ╱56╱V╱ // 0x12d8 @0x11
0x12c7…12ed at0012 = ╱54╱T╱ // 0x12d9 @0x12
0x12c7…12ed at0013 = ╱41╱A╱ // 0x12da @0x13
0x12c7…12ed at0014 = ╱4c╱L╱ // 0x12db @0x14
0x12c7…12ed at0015 = ╱ec╱,╱ // 0x12dc @0x15
0x12c7…12ed at0016 = ╱4d╱M╱ // 0x12dd @0x16
0x12c7…12ed at0017 = ╱45╱E╱ // 0x12de @0x17
0x12c7…12ed at0018 = ╱41╱A╱ // 0x12df @0x18
0x12c7…12ed at0019 = ╱4e╱N╱ // 0x12e0 @0x19
0x12c7…12ed at001a = ╱54╱T╱ // 0x12e1 @0x1a
0x12c7…12ed at001b = ╱41╱A╱ // 0x12e2 @0x1b
0x12c7…12ed at001c = ╱4c╱L╱ // 0x12e3 @0x1c
0x12c7…12ed at001d = ╱ec╱,╱ // 0x12e4 @0x1d
0x12c7…12ed at001e = ╱4d╱M╱ // 0x12e5 @0x1e
0x12c7…12ed at001f = ╱55╱U╱ // 0x12e6 @0x1f
0x12c7…12ed at0020 = ╱4e╱N╱ // 0x12e7 @0x20
0x12c7…12ed at0021 = ╱4b╱K╱ // 0x12e8 @0x21
0x12c7…12ed at0022 = ╱41╱A╱ // 0x12e9 @0x22
0x12c7…12ed at0023 = ╱4e╱N╱ // 0x12ea @0x23
0x12c7…12ed at0024 = ╱54╱T╱ // 0x12eb @0x24
0x12c7…12ed at0025 = EOL // 0x12ec @0x25
0x12c7…12ed }
0x12ed…1305 a05c 2520 EXEC FEJL(W,6,K1$)
0x12ed…1305 LineComalBin {
0x12ed…1305 ptr = 0xa05c // 0x12ed @0x0
0x12ed…1305 lno = 0x09d8 // 0x12ef @0x2
0x12ed…1305 at0004 = ╱9d╱ EXEC ╱ // 0x12f1 @0x4
0x12ed…1305 at0005 = ╱46╱F╱ // 0x12f2 @0x5
0x12ed…1305 at0006 = ╱45╱E╱ // 0x12f3 @0x6
0x12ed…1305 at0007 = ╱4a╱J╱ // 0x12f4 @0x7
0x12ed…1305 at0008 = ╱4c╱L╱ // 0x12f5 @0x8
0x12ed…1305 at0009 = ╱ed╱(╱ // 0x12f6 @0x9
0x12ed…1305 at000a = ╱57╱W╱ // 0x12f7 @0xa
0x12ed…1305 at000b = ╱ec╱,╱ // 0x12f8 @0xb
0x12ed…1305 at000c = ╱36╱6╱ // 0x12f9 @0xc
0x12ed…1305 at000d = ╱fe0000c003╱ // 0x12fa @0xd
0x12ed…1305 at0012 = ╱ec╱,╱ // 0x12ff @0x12
0x12ed…1305 at0013 = ╱4b╱K╱ // 0x1300 @0x13
0x12ed…1305 at0014 = ╱31╱1╱ // 0x1301 @0x14
0x12ed…1305 at0015 = ╱ef╱$╱ // 0x1302 @0x15
0x12ed…1305 at0016 = ╱ee╱)╱ // 0x1303 @0x16
0x12ed…1305 at0017 = EOL // 0x1304 @0x17
0x12ed…1305 }
0x1305…1319 a070 2530 GET K1$,10:N$
0x1305…1319 LineComalBin {
0x1305…1319 ptr = 0xa070 // 0x1305 @0x0
0x1305…1319 lno = 0x09e2 // 0x1307 @0x2
0x1305…1319 at0004 = ╱a9╱ GET ╱ // 0x1309 @0x4
0x1305…1319 at0005 = ╱4b╱K╱ // 0x130a @0x5
0x1305…1319 at0006 = ╱31╱1╱ // 0x130b @0x6
0x1305…1319 at0007 = ╱ef╱$╱ // 0x130c @0x7
0x1305…1319 at0008 = ╱ec╱,╱ // 0x130d @0x8
0x1305…1319 at0009 = ╱31╱1╱ // 0x130e @0x9
0x1305…1319 at000a = ╱30╱0╱ // 0x130f @0xa
0x1305…1319 at000b = ╱fe0000a004╱ // 0x1310 @0xb
0x1305…1319 at0010 = ╱f0╱:╱ // 0x1315 @0x10
0x1305…1319 at0011 = ╱4e╱N╱ // 0x1316 @0x11
0x1305…1319 at0012 = ╱ef╱$╱ // 0x1317 @0x12
0x1305…1319 at0013 = EOL // 0x1318 @0x13
0x1305…1319 }
0x1319…1331 a088 2540 EXEC FEJL(W,7,K1$)
0x1319…1331 LineComalBin {
0x1319…1331 ptr = 0xa088 // 0x1319 @0x0
0x1319…1331 lno = 0x09ec // 0x131b @0x2
0x1319…1331 at0004 = ╱9d╱ EXEC ╱ // 0x131d @0x4
0x1319…1331 at0005 = ╱46╱F╱ // 0x131e @0x5
0x1319…1331 at0006 = ╱45╱E╱ // 0x131f @0x6
0x1319…1331 at0007 = ╱4a╱J╱ // 0x1320 @0x7
0x1319…1331 at0008 = ╱4c╱L╱ // 0x1321 @0x8
0x1319…1331 at0009 = ╱ed╱(╱ // 0x1322 @0x9
0x1319…1331 at000a = ╱57╱W╱ // 0x1323 @0xa
0x1319…1331 at000b = ╱ec╱,╱ // 0x1324 @0xb
0x1319…1331 at000c = ╱37╱7╱ // 0x1325 @0xc
0x1319…1331 at000d = ╱fe0000e003╱ // 0x1326 @0xd
0x1319…1331 at0012 = ╱ec╱,╱ // 0x132b @0x12
0x1319…1331 at0013 = ╱4b╱K╱ // 0x132c @0x13
0x1319…1331 at0014 = ╱31╱1╱ // 0x132d @0x14
0x1319…1331 at0015 = ╱ef╱$╱ // 0x132e @0x15
0x1319…1331 at0016 = ╱ee╱)╱ // 0x132f @0x16
0x1319…1331 at0017 = EOL // 0x1330 @0x17
0x1319…1331 }
0x1331…1346 a09d 2550 GET K1$,36:K4$
0x1331…1346 LineComalBin {
0x1331…1346 ptr = 0xa09d // 0x1331 @0x0
0x1331…1346 lno = 0x09f6 // 0x1333 @0x2
0x1331…1346 at0004 = ╱a9╱ GET ╱ // 0x1335 @0x4
0x1331…1346 at0005 = ╱4b╱K╱ // 0x1336 @0x5
0x1331…1346 at0006 = ╱31╱1╱ // 0x1337 @0x6
0x1331…1346 at0007 = ╱ef╱$╱ // 0x1338 @0x7
0x1331…1346 at0008 = ╱ec╱,╱ // 0x1339 @0x8
0x1331…1346 at0009 = ╱33╱3╱ // 0x133a @0x9
0x1331…1346 at000a = ╱36╱6╱ // 0x133b @0xa
0x1331…1346 at000b = ╱fe00009006╱ // 0x133c @0xb
0x1331…1346 at0010 = ╱f0╱:╱ // 0x1341 @0x10
0x1331…1346 at0011 = ╱4b╱K╱ // 0x1342 @0x11
0x1331…1346 at0012 = ╱34╱4╱ // 0x1343 @0x12
0x1331…1346 at0013 = ╱ef╱$╱ // 0x1344 @0x13
0x1331…1346 at0014 = EOL // 0x1345 @0x14
0x1331…1346 }
0x1346…135f a0b6 2560 EXEC FEJL(W,10,K1$)
0x1346…135f LineComalBin {
0x1346…135f ptr = 0xa0b6 // 0x1346 @0x0
0x1346…135f lno = 0x0a00 // 0x1348 @0x2
0x1346…135f at0004 = ╱9d╱ EXEC ╱ // 0x134a @0x4
0x1346…135f at0005 = ╱46╱F╱ // 0x134b @0x5
0x1346…135f at0006 = ╱45╱E╱ // 0x134c @0x6
0x1346…135f at0007 = ╱4a╱J╱ // 0x134d @0x7
0x1346…135f at0008 = ╱4c╱L╱ // 0x134e @0x8
0x1346…135f at0009 = ╱ed╱(╱ // 0x134f @0x9
0x1346…135f at000a = ╱57╱W╱ // 0x1350 @0xa
0x1346…135f at000b = ╱ec╱,╱ // 0x1351 @0xb
0x1346…135f at000c = ╱31╱1╱ // 0x1352 @0xc
0x1346…135f at000d = ╱30╱0╱ // 0x1353 @0xd
0x1346…135f at000e = ╱fe0000a004╱ // 0x1354 @0xe
0x1346…135f at0013 = ╱ec╱,╱ // 0x1359 @0x13
0x1346…135f at0014 = ╱4b╱K╱ // 0x135a @0x14
0x1346…135f at0015 = ╱31╱1╱ // 0x135b @0x15
0x1346…135f at0016 = ╱ef╱$╱ // 0x135c @0x16
0x1346…135f at0017 = ╱ee╱)╱ // 0x135d @0x17
0x1346…135f at0018 = EOL // 0x135e @0x18
0x1346…135f }
0x135f…1374 a0cb 2570 GET K1$,37:K3$
0x135f…1374 LineComalBin {
0x135f…1374 ptr = 0xa0cb // 0x135f @0x0
0x135f…1374 lno = 0x0a0a // 0x1361 @0x2
0x135f…1374 at0004 = ╱a9╱ GET ╱ // 0x1363 @0x4
0x135f…1374 at0005 = ╱4b╱K╱ // 0x1364 @0x5
0x135f…1374 at0006 = ╱31╱1╱ // 0x1365 @0x6
0x135f…1374 at0007 = ╱ef╱$╱ // 0x1366 @0x7
0x135f…1374 at0008 = ╱ec╱,╱ // 0x1367 @0x8
0x135f…1374 at0009 = ╱33╱3╱ // 0x1368 @0x9
0x135f…1374 at000a = ╱37╱7╱ // 0x1369 @0xa
0x135f…1374 at000b = ╱fe00009406╱ // 0x136a @0xb
0x135f…1374 at0010 = ╱f0╱:╱ // 0x136f @0x10
0x135f…1374 at0011 = ╱4b╱K╱ // 0x1370 @0x11
0x135f…1374 at0012 = ╱33╱3╱ // 0x1371 @0x12
0x135f…1374 at0013 = ╱ef╱$╱ // 0x1372 @0x13
0x135f…1374 at0014 = EOL // 0x1373 @0x14
0x135f…1374 }
0x1374…1387 a0de 2580 EXEC FEJL(W,G,K1$)
0x1374…1387 LineComalBin {
0x1374…1387 ptr = 0xa0de // 0x1374 @0x0
0x1374…1387 lno = 0x0a14 // 0x1376 @0x2
0x1374…1387 at0004 = ╱9d╱ EXEC ╱ // 0x1378 @0x4
0x1374…1387 at0005 = ╱46╱F╱ // 0x1379 @0x5
0x1374…1387 at0006 = ╱45╱E╱ // 0x137a @0x6
0x1374…1387 at0007 = ╱4a╱J╱ // 0x137b @0x7
0x1374…1387 at0008 = ╱4c╱L╱ // 0x137c @0x8
0x1374…1387 at0009 = ╱ed╱(╱ // 0x137d @0x9
0x1374…1387 at000a = ╱57╱W╱ // 0x137e @0xa
0x1374…1387 at000b = ╱ec╱,╱ // 0x137f @0xb
0x1374…1387 at000c = ╱47╱G╱ // 0x1380 @0xc
0x1374…1387 at000d = ╱ec╱,╱ // 0x1381 @0xd
0x1374…1387 at000e = ╱4b╱K╱ // 0x1382 @0xe
0x1374…1387 at000f = ╱31╱1╱ // 0x1383 @0xf
0x1374…1387 at0010 = ╱ef╱$╱ // 0x1384 @0x10
0x1374…1387 at0011 = ╱ee╱)╱ // 0x1385 @0x11
0x1374…1387 at0012 = EOL // 0x1386 @0x12
0x1374…1387 }
0x1387…139c a0f3 2590 GET K1$,38:K5$
0x1387…139c LineComalBin {
0x1387…139c ptr = 0xa0f3 // 0x1387 @0x0
0x1387…139c lno = 0x0a1e // 0x1389 @0x2
0x1387…139c at0004 = ╱a9╱ GET ╱ // 0x138b @0x4
0x1387…139c at0005 = ╱4b╱K╱ // 0x138c @0x5
0x1387…139c at0006 = ╱31╱1╱ // 0x138d @0x6
0x1387…139c at0007 = ╱ef╱$╱ // 0x138e @0x7
0x1387…139c at0008 = ╱ec╱,╱ // 0x138f @0x8
0x1387…139c at0009 = ╱33╱3╱ // 0x1390 @0x9
0x1387…139c at000a = ╱38╱8╱ // 0x1391 @0xa
0x1387…139c at000b = ╱fe00009806╱ // 0x1392 @0xb
0x1387…139c at0010 = ╱f0╱:╱ // 0x1397 @0x10
0x1387…139c at0011 = ╱4b╱K╱ // 0x1398 @0x11
0x1387…139c at0012 = ╱35╱5╱ // 0x1399 @0x12
0x1387…139c at0013 = ╱ef╱$╱ // 0x139a @0x13
0x1387…139c at0014 = EOL // 0x139b @0x14
0x1387…139c }
0x139c…13af a106 2600 EXEC FEJL(W,V,K1$)
0x139c…13af LineComalBin {
0x139c…13af ptr = 0xa106 // 0x139c @0x0
0x139c…13af lno = 0x0a28 // 0x139e @0x2
0x139c…13af at0004 = ╱9d╱ EXEC ╱ // 0x13a0 @0x4
0x139c…13af at0005 = ╱46╱F╱ // 0x13a1 @0x5
0x139c…13af at0006 = ╱45╱E╱ // 0x13a2 @0x6
0x139c…13af at0007 = ╱4a╱J╱ // 0x13a3 @0x7
0x139c…13af at0008 = ╱4c╱L╱ // 0x13a4 @0x8
0x139c…13af at0009 = ╱ed╱(╱ // 0x13a5 @0x9
0x139c…13af at000a = ╱57╱W╱ // 0x13a6 @0xa
0x139c…13af at000b = ╱ec╱,╱ // 0x13a7 @0xb
0x139c…13af at000c = ╱56╱V╱ // 0x13a8 @0xc
0x139c…13af at000d = ╱ec╱,╱ // 0x13a9 @0xd
0x139c…13af at000e = ╱4b╱K╱ // 0x13aa @0xe
0x139c…13af at000f = ╱31╱1╱ // 0x13ab @0xf
0x139c…13af at0010 = ╱ef╱$╱ // 0x13ac @0x10
0x139c…13af at0011 = ╱ee╱)╱ // 0x13ad @0x11
0x139c…13af at0012 = EOL // 0x13ae @0x12
0x139c…13af }
0x13af…13c4 a11b 2610 GET K1$,39:K2$
0x13af…13c4 LineComalBin {
0x13af…13c4 ptr = 0xa11b // 0x13af @0x0
0x13af…13c4 lno = 0x0a32 // 0x13b1 @0x2
0x13af…13c4 at0004 = ╱a9╱ GET ╱ // 0x13b3 @0x4
0x13af…13c4 at0005 = ╱4b╱K╱ // 0x13b4 @0x5
0x13af…13c4 at0006 = ╱31╱1╱ // 0x13b5 @0x6
0x13af…13c4 at0007 = ╱ef╱$╱ // 0x13b6 @0x7
0x13af…13c4 at0008 = ╱ec╱,╱ // 0x13b7 @0x8
0x13af…13c4 at0009 = ╱33╱3╱ // 0x13b8 @0x9
0x13af…13c4 at000a = ╱39╱9╱ // 0x13b9 @0xa
0x13af…13c4 at000b = ╱fe00009c06╱ // 0x13ba @0xb
0x13af…13c4 at0010 = ╱f0╱:╱ // 0x13bf @0x10
0x13af…13c4 at0011 = ╱4b╱K╱ // 0x13c0 @0x11
0x13af…13c4 at0012 = ╱32╱2╱ // 0x13c1 @0x12
0x13af…13c4 at0013 = ╱ef╱$╱ // 0x13c2 @0x13
0x13af…13c4 at0014 = EOL // 0x13c3 @0x14
0x13af…13c4 }
0x13c4…13dd a134 2620 EXEC FEJL(W,10,K1$)
0x13c4…13dd LineComalBin {
0x13c4…13dd ptr = 0xa134 // 0x13c4 @0x0
0x13c4…13dd lno = 0x0a3c // 0x13c6 @0x2
0x13c4…13dd at0004 = ╱9d╱ EXEC ╱ // 0x13c8 @0x4
0x13c4…13dd at0005 = ╱46╱F╱ // 0x13c9 @0x5
0x13c4…13dd at0006 = ╱45╱E╱ // 0x13ca @0x6
0x13c4…13dd at0007 = ╱4a╱J╱ // 0x13cb @0x7
0x13c4…13dd at0008 = ╱4c╱L╱ // 0x13cc @0x8
0x13c4…13dd at0009 = ╱ed╱(╱ // 0x13cd @0x9
0x13c4…13dd at000a = ╱57╱W╱ // 0x13ce @0xa
0x13c4…13dd at000b = ╱ec╱,╱ // 0x13cf @0xb
0x13c4…13dd at000c = ╱31╱1╱ // 0x13d0 @0xc
0x13c4…13dd at000d = ╱30╱0╱ // 0x13d1 @0xd
0x13c4…13dd at000e = ╱fe0000a004╱ // 0x13d2 @0xe
0x13c4…13dd at0013 = ╱ec╱,╱ // 0x13d7 @0x13
0x13c4…13dd at0014 = ╱4b╱K╱ // 0x13d8 @0x14
0x13c4…13dd at0015 = ╱31╱1╱ // 0x13d9 @0x15
0x13c4…13dd at0016 = ╱ef╱$╱ // 0x13da @0x16
0x13c4…13dd at0017 = ╱ee╱)╱ // 0x13db @0x17
0x13c4…13dd at0018 = EOL // 0x13dc @0x18
0x13c4…13dd }
0x13dd…13f4 a14b 2630 GET K1$,43:METOT
0x13dd…13f4 LineComalBin {
0x13dd…13f4 ptr = 0xa14b // 0x13dd @0x0
0x13dd…13f4 lno = 0x0a46 // 0x13df @0x2
0x13dd…13f4 at0004 = ╱a9╱ GET ╱ // 0x13e1 @0x4
0x13dd…13f4 at0005 = ╱4b╱K╱ // 0x13e2 @0x5
0x13dd…13f4 at0006 = ╱31╱1╱ // 0x13e3 @0x6
0x13dd…13f4 at0007 = ╱ef╱$╱ // 0x13e4 @0x7
0x13dd…13f4 at0008 = ╱ec╱,╱ // 0x13e5 @0x8
0x13dd…13f4 at0009 = ╱34╱4╱ // 0x13e6 @0x9
0x13dd…13f4 at000a = ╱33╱3╱ // 0x13e7 @0xa
0x13dd…13f4 at000b = ╱fe0000ac06╱ // 0x13e8 @0xb
0x13dd…13f4 at0010 = ╱f0╱:╱ // 0x13ed @0x10
0x13dd…13f4 at0011 = ╱4d╱M╱ // 0x13ee @0x11
0x13dd…13f4 at0012 = ╱45╱E╱ // 0x13ef @0x12
0x13dd…13f4 at0013 = ╱54╱T╱ // 0x13f0 @0x13
0x13dd…13f4 at0014 = ╱4f╱O╱ // 0x13f1 @0x14
0x13dd…13f4 at0015 = ╱54╱T╱ // 0x13f2 @0x15
0x13dd…13f4 at0016 = EOL // 0x13f3 @0x16
0x13dd…13f4 }
0x13f4…140d a164 2640 EXEC FEJL(W,11,K1$)
0x13f4…140d LineComalBin {
0x13f4…140d ptr = 0xa164 // 0x13f4 @0x0
0x13f4…140d lno = 0x0a50 // 0x13f6 @0x2
0x13f4…140d at0004 = ╱9d╱ EXEC ╱ // 0x13f8 @0x4
0x13f4…140d at0005 = ╱46╱F╱ // 0x13f9 @0x5
0x13f4…140d at0006 = ╱45╱E╱ // 0x13fa @0x6
0x13f4…140d at0007 = ╱4a╱J╱ // 0x13fb @0x7
0x13f4…140d at0008 = ╱4c╱L╱ // 0x13fc @0x8
0x13f4…140d at0009 = ╱ed╱(╱ // 0x13fd @0x9
0x13f4…140d at000a = ╱57╱W╱ // 0x13fe @0xa
0x13f4…140d at000b = ╱ec╱,╱ // 0x13ff @0xb
0x13f4…140d at000c = ╱31╱1╱ // 0x1400 @0xc
0x13f4…140d at000d = ╱31╱1╱ // 0x1401 @0xd
0x13f4…140d at000e = ╱fe0000b004╱ // 0x1402 @0xe
0x13f4…140d at0013 = ╱ec╱,╱ // 0x1407 @0x13
0x13f4…140d at0014 = ╱4b╱K╱ // 0x1408 @0x14
0x13f4…140d at0015 = ╱31╱1╱ // 0x1409 @0x15
0x13f4…140d at0016 = ╱ef╱$╱ // 0x140a @0x16
0x13f4…140d at0017 = ╱ee╱)╱ // 0x140b @0x17
0x13f4…140d at0018 = EOL // 0x140c @0x18
0x13f4…140d }
0x140d…1416 a16d 2650 CLOSE K1$
0x140d…1416 LineComalBin {
0x140d…1416 ptr = 0xa16d // 0x140d @0x0
0x140d…1416 lno = 0x0a5a // 0x140f @0x2
0x140d…1416 at0004 = ╱a8╱ CLOSE ╱ // 0x1411 @0x4
0x140d…1416 at0005 = ╱4b╱K╱ // 0x1412 @0x5
0x140d…1416 at0006 = ╱31╱1╱ // 0x1413 @0x6
0x140d…1416 at0007 = ╱ef╱$╱ // 0x1414 @0x7
0x140d…1416 at0008 = EOL // 0x1415 @0x8
0x140d…1416 }
0x1416…142f a186 2660 EXEC FEJL(W,11,K1$)
0x1416…142f LineComalBin {
0x1416…142f ptr = 0xa186 // 0x1416 @0x0
0x1416…142f lno = 0x0a64 // 0x1418 @0x2
0x1416…142f at0004 = ╱9d╱ EXEC ╱ // 0x141a @0x4
0x1416…142f at0005 = ╱46╱F╱ // 0x141b @0x5
0x1416…142f at0006 = ╱45╱E╱ // 0x141c @0x6
0x1416…142f at0007 = ╱4a╱J╱ // 0x141d @0x7
0x1416…142f at0008 = ╱4c╱L╱ // 0x141e @0x8
0x1416…142f at0009 = ╱ed╱(╱ // 0x141f @0x9
0x1416…142f at000a = ╱57╱W╱ // 0x1420 @0xa
0x1416…142f at000b = ╱ec╱,╱ // 0x1421 @0xb
0x1416…142f at000c = ╱31╱1╱ // 0x1422 @0xc
0x1416…142f at000d = ╱31╱1╱ // 0x1423 @0xd
0x1416…142f at000e = ╱fe0000b004╱ // 0x1424 @0xe
0x1416…142f at0013 = ╱ec╱,╱ // 0x1429 @0x13
0x1416…142f at0014 = ╱4b╱K╱ // 0x142a @0x14
0x1416…142f at0015 = ╱31╱1╱ // 0x142b @0x15
0x1416…142f at0016 = ╱ef╱$╱ // 0x142c @0x16
0x1416…142f at0017 = ╱ee╱)╱ // 0x142d @0x17
0x1416…142f at0018 = EOL // 0x142e @0x18
0x1416…142f }
0x142f…147b a1d2 2670 DIM UNR(MUNKANT+METOT),UKODE$(MUNKANT+METOT),UNAVN$(MUNKANT+METOT,25)
0x142f…147b LineComalBin {
0x142f…147b ptr = 0xa1d2 // 0x142f @0x0
0x142f…147b lno = 0x0a6e // 0x1431 @0x2
0x142f…147b at0004 = ╱87╱ DIM ╱ // 0x1433 @0x4
0x142f…147b at0005 = ╱55╱U╱ // 0x1434 @0x5
0x142f…147b at0006 = ╱4e╱N╱ // 0x1435 @0x6
0x142f…147b at0007 = ╱52╱R╱ // 0x1436 @0x7
0x142f…147b at0008 = ╱ed╱(╱ // 0x1437 @0x8
0x142f…147b at0009 = ╱4d╱M╱ // 0x1438 @0x9
0x142f…147b at000a = ╱55╱U╱ // 0x1439 @0xa
0x142f…147b at000b = ╱4e╱N╱ // 0x143a @0xb
0x142f…147b at000c = ╱4b╱K╱ // 0x143b @0xc
0x142f…147b at000d = ╱41╱A╱ // 0x143c @0xd
0x142f…147b at000e = ╱4e╱N╱ // 0x143d @0xe
0x142f…147b at000f = ╱54╱T╱ // 0x143e @0xf
0x142f…147b at0010 = ╱e2╱+╱ // 0x143f @0x10
0x142f…147b at0011 = ╱4d╱M╱ // 0x1440 @0x11
0x142f…147b at0012 = ╱45╱E╱ // 0x1441 @0x12
0x142f…147b at0013 = ╱54╱T╱ // 0x1442 @0x13
0x142f…147b at0014 = ╱4f╱O╱ // 0x1443 @0x14
0x142f…147b at0015 = ╱54╱T╱ // 0x1444 @0x15
0x142f…147b at0016 = ╱ee╱)╱ // 0x1445 @0x16
0x142f…147b at0017 = ╱ec╱,╱ // 0x1446 @0x17
0x142f…147b at0018 = ╱55╱U╱ // 0x1447 @0x18
0x142f…147b at0019 = ╱4b╱K╱ // 0x1448 @0x19
0x142f…147b at001a = ╱4f╱O╱ // 0x1449 @0x1a
0x142f…147b at001b = ╱44╱D╱ // 0x144a @0x1b
0x142f…147b at001c = ╱45╱E╱ // 0x144b @0x1c
0x142f…147b at001d = ╱ef╱$╱ // 0x144c @0x1d
0x142f…147b at001e = ╱ed╱(╱ // 0x144d @0x1e
0x142f…147b at001f = ╱4d╱M╱ // 0x144e @0x1f
0x142f…147b at0020 = ╱55╱U╱ // 0x144f @0x20
0x142f…147b at0021 = ╱4e╱N╱ // 0x1450 @0x21
0x142f…147b at0022 = ╱4b╱K╱ // 0x1451 @0x22
0x142f…147b at0023 = ╱41╱A╱ // 0x1452 @0x23
0x142f…147b at0024 = ╱4e╱N╱ // 0x1453 @0x24
0x142f…147b at0025 = ╱54╱T╱ // 0x1454 @0x25
0x142f…147b at0026 = ╱e2╱+╱ // 0x1455 @0x26
0x142f…147b at0027 = ╱4d╱M╱ // 0x1456 @0x27
0x142f…147b at0028 = ╱45╱E╱ // 0x1457 @0x28
0x142f…147b at0029 = ╱54╱T╱ // 0x1458 @0x29
0x142f…147b at002a = ╱4f╱O╱ // 0x1459 @0x2a
0x142f…147b at002b = ╱54╱T╱ // 0x145a @0x2b
0x142f…147b at002c = ╱ee╱)╱ // 0x145b @0x2c
0x142f…147b at002d = ╱ec╱,╱ // 0x145c @0x2d
0x142f…147b at002e = ╱55╱U╱ // 0x145d @0x2e
0x142f…147b at002f = ╱4e╱N╱ // 0x145e @0x2f
0x142f…147b at0030 = ╱41╱A╱ // 0x145f @0x30
0x142f…147b at0031 = ╱56╱V╱ // 0x1460 @0x31
0x142f…147b at0032 = ╱4e╱N╱ // 0x1461 @0x32
0x142f…147b at0033 = ╱ef╱$╱ // 0x1462 @0x33
0x142f…147b at0034 = ╱ed╱(╱ // 0x1463 @0x34
0x142f…147b at0035 = ╱4d╱M╱ // 0x1464 @0x35
0x142f…147b at0036 = ╱55╱U╱ // 0x1465 @0x36
0x142f…147b at0037 = ╱4e╱N╱ // 0x1466 @0x37
0x142f…147b at0038 = ╱4b╱K╱ // 0x1467 @0x38
0x142f…147b at0039 = ╱41╱A╱ // 0x1468 @0x39
0x142f…147b at003a = ╱4e╱N╱ // 0x1469 @0x3a
0x142f…147b at003b = ╱54╱T╱ // 0x146a @0x3b
0x142f…147b at003c = ╱e2╱+╱ // 0x146b @0x3c
0x142f…147b at003d = ╱4d╱M╱ // 0x146c @0x3d
0x142f…147b at003e = ╱45╱E╱ // 0x146d @0x3e
0x142f…147b at003f = ╱54╱T╱ // 0x146e @0x3f
0x142f…147b at0040 = ╱4f╱O╱ // 0x146f @0x40
0x142f…147b at0041 = ╱54╱T╱ // 0x1470 @0x41
0x142f…147b at0042 = ╱ec╱,╱ // 0x1471 @0x42
0x142f…147b at0043 = ╱32╱2╱ // 0x1472 @0x43
0x142f…147b at0044 = ╱35╱5╱ // 0x1473 @0x44
0x142f…147b at0045 = ╱fe0000c805╱ // 0x1474 @0x45
0x142f…147b at004a = ╱ee╱)╱ // 0x1479 @0x4a
0x142f…147b at004b = EOL // 0x147a @0x4b
0x142f…147b }
0x147b…14cc a223 2680 DIM UKNR(MUNKANT),MBEV$(MUNKANT,12),YBEV$(MUNKANT,12),ETAB(MEANTAL,G)
0x147b…14cc LineComalBin {
0x147b…14cc ptr = 0xa223 // 0x147b @0x0
0x147b…14cc lno = 0x0a78 // 0x147d @0x2
0x147b…14cc at0004 = ╱87╱ DIM ╱ // 0x147f @0x4
0x147b…14cc at0005 = ╱55╱U╱ // 0x1480 @0x5
0x147b…14cc at0006 = ╱4b╱K╱ // 0x1481 @0x6
0x147b…14cc at0007 = ╱4e╱N╱ // 0x1482 @0x7
0x147b…14cc at0008 = ╱52╱R╱ // 0x1483 @0x8
0x147b…14cc at0009 = ╱ed╱(╱ // 0x1484 @0x9
0x147b…14cc at000a = ╱4d╱M╱ // 0x1485 @0xa
0x147b…14cc at000b = ╱55╱U╱ // 0x1486 @0xb
0x147b…14cc at000c = ╱4e╱N╱ // 0x1487 @0xc
0x147b…14cc at000d = ╱4b╱K╱ // 0x1488 @0xd
0x147b…14cc at000e = ╱41╱A╱ // 0x1489 @0xe
0x147b…14cc at000f = ╱4e╱N╱ // 0x148a @0xf
0x147b…14cc at0010 = ╱54╱T╱ // 0x148b @0x10
0x147b…14cc at0011 = ╱ee╱)╱ // 0x148c @0x11
0x147b…14cc at0012 = ╱ec╱,╱ // 0x148d @0x12
0x147b…14cc at0013 = ╱4d╱M╱ // 0x148e @0x13
0x147b…14cc at0014 = ╱42╱B╱ // 0x148f @0x14
0x147b…14cc at0015 = ╱45╱E╱ // 0x1490 @0x15
0x147b…14cc at0016 = ╱56╱V╱ // 0x1491 @0x16
0x147b…14cc at0017 = ╱ef╱$╱ // 0x1492 @0x17
0x147b…14cc at0018 = ╱ed╱(╱ // 0x1493 @0x18
0x147b…14cc at0019 = ╱4d╱M╱ // 0x1494 @0x19
0x147b…14cc at001a = ╱55╱U╱ // 0x1495 @0x1a
0x147b…14cc at001b = ╱4e╱N╱ // 0x1496 @0x1b
0x147b…14cc at001c = ╱4b╱K╱ // 0x1497 @0x1c
0x147b…14cc at001d = ╱41╱A╱ // 0x1498 @0x1d
0x147b…14cc at001e = ╱4e╱N╱ // 0x1499 @0x1e
0x147b…14cc at001f = ╱54╱T╱ // 0x149a @0x1f
0x147b…14cc at0020 = ╱ec╱,╱ // 0x149b @0x20
0x147b…14cc at0021 = ╱31╱1╱ // 0x149c @0x21
0x147b…14cc at0022 = ╱32╱2╱ // 0x149d @0x22
0x147b…14cc at0023 = ╱fe0000c004╱ // 0x149e @0x23
0x147b…14cc at0028 = ╱ee╱)╱ // 0x14a3 @0x28
0x147b…14cc at0029 = ╱ec╱,╱ // 0x14a4 @0x29
0x147b…14cc at002a = ╱59╱Y╱ // 0x14a5 @0x2a
0x147b…14cc at002b = ╱42╱B╱ // 0x14a6 @0x2b
0x147b…14cc at002c = ╱45╱E╱ // 0x14a7 @0x2c
0x147b…14cc at002d = ╱56╱V╱ // 0x14a8 @0x2d
0x147b…14cc at002e = ╱ef╱$╱ // 0x14a9 @0x2e
0x147b…14cc at002f = ╱ed╱(╱ // 0x14aa @0x2f
0x147b…14cc at0030 = ╱4d╱M╱ // 0x14ab @0x30
0x147b…14cc at0031 = ╱55╱U╱ // 0x14ac @0x31
0x147b…14cc at0032 = ╱4e╱N╱ // 0x14ad @0x32
0x147b…14cc at0033 = ╱4b╱K╱ // 0x14ae @0x33
0x147b…14cc at0034 = ╱41╱A╱ // 0x14af @0x34
0x147b…14cc at0035 = ╱4e╱N╱ // 0x14b0 @0x35
0x147b…14cc at0036 = ╱54╱T╱ // 0x14b1 @0x36
0x147b…14cc at0037 = ╱ec╱,╱ // 0x14b2 @0x37
0x147b…14cc at0038 = ╱31╱1╱ // 0x14b3 @0x38
0x147b…14cc at0039 = ╱32╱2╱ // 0x14b4 @0x39
0x147b…14cc at003a = ╱fe0000c004╱ // 0x14b5 @0x3a
0x147b…14cc at003f = ╱ee╱)╱ // 0x14ba @0x3f
0x147b…14cc at0040 = ╱ec╱,╱ // 0x14bb @0x40
0x147b…14cc at0041 = ╱45╱E╱ // 0x14bc @0x41
0x147b…14cc at0042 = ╱54╱T╱ // 0x14bd @0x42
0x147b…14cc at0043 = ╱41╱A╱ // 0x14be @0x43
0x147b…14cc at0044 = ╱42╱B╱ // 0x14bf @0x44
0x147b…14cc at0045 = ╱ed╱(╱ // 0x14c0 @0x45
0x147b…14cc at0046 = ╱4d╱M╱ // 0x14c1 @0x46
0x147b…14cc at0047 = ╱45╱E╱ // 0x14c2 @0x47
0x147b…14cc at0048 = ╱41╱A╱ // 0x14c3 @0x48
0x147b…14cc at0049 = ╱4e╱N╱ // 0x14c4 @0x49
0x147b…14cc at004a = ╱54╱T╱ // 0x14c5 @0x4a
0x147b…14cc at004b = ╱41╱A╱ // 0x14c6 @0x4b
0x147b…14cc at004c = ╱4c╱L╱ // 0x14c7 @0x4c
0x147b…14cc at004d = ╱ec╱,╱ // 0x14c8 @0x4d
0x147b…14cc at004e = ╱47╱G╱ // 0x14c9 @0x4e
0x147b…14cc at004f = ╱ee╱)╱ // 0x14ca @0x4f
0x147b…14cc at0050 = EOL // 0x14cb @0x50
0x147b…14cc }
0x14cc…14db a232 2690 K4$=N$+K4$
0x14cc…14db LineComalBin {
0x14cc…14db ptr = 0xa232 // 0x14cc @0x0
0x14cc…14db lno = 0x0a82 // 0x14ce @0x2
0x14cc…14db at0004 = ╱4b╱K╱ // 0x14d0 @0x4
0x14cc…14db at0005 = ╱34╱4╱ // 0x14d1 @0x5
0x14cc…14db at0006 = ╱ef╱$╱ // 0x14d2 @0x6
0x14cc…14db at0007 = ╱dc╱=╱ // 0x14d3 @0x7
0x14cc…14db at0008 = ╱4e╱N╱ // 0x14d4 @0x8
0x14cc…14db at0009 = ╱ef╱$╱ // 0x14d5 @0x9
0x14cc…14db at000a = ╱f1╱+╱ // 0x14d6 @0xa
0x14cc…14db at000b = ╱4b╱K╱ // 0x14d7 @0xb
0x14cc…14db at000c = ╱34╱4╱ // 0x14d8 @0xc
0x14cc…14db at000d = ╱ef╱$╱ // 0x14d9 @0xd
0x14cc…14db at000e = EOL // 0x14da @0xe
0x14cc…14db }
0x14db…14e6 a23d 2700 OPEN K4$,W
0x14db…14e6 LineComalBin {
0x14db…14e6 ptr = 0xa23d // 0x14db @0x0
0x14db…14e6 lno = 0x0a8c // 0x14dd @0x2
0x14db…14e6 at0004 = ╱a7╱ OPEN ╱ // 0x14df @0x4
0x14db…14e6 at0005 = ╱4b╱K╱ // 0x14e0 @0x5
0x14db…14e6 at0006 = ╱34╱4╱ // 0x14e1 @0x6
0x14db…14e6 at0007 = ╱ef╱$╱ // 0x14e2 @0x7
0x14db…14e6 at0008 = ╱ec╱,╱ // 0x14e3 @0x8
0x14db…14e6 at0009 = ╱57╱W╱ // 0x14e4 @0x9
0x14db…14e6 at000a = EOL // 0x14e5 @0xa
0x14db…14e6 }
0x14e6…14ff a256 2710 EXEC FEJL(W,12,K4$)
0x14e6…14ff LineComalBin {
0x14e6…14ff ptr = 0xa256 // 0x14e6 @0x0
0x14e6…14ff lno = 0x0a96 // 0x14e8 @0x2
0x14e6…14ff at0004 = ╱9d╱ EXEC ╱ // 0x14ea @0x4
0x14e6…14ff at0005 = ╱46╱F╱ // 0x14eb @0x5
0x14e6…14ff at0006 = ╱45╱E╱ // 0x14ec @0x6
0x14e6…14ff at0007 = ╱4a╱J╱ // 0x14ed @0x7
0x14e6…14ff at0008 = ╱4c╱L╱ // 0x14ee @0x8
0x14e6…14ff at0009 = ╱ed╱(╱ // 0x14ef @0x9
0x14e6…14ff at000a = ╱57╱W╱ // 0x14f0 @0xa
0x14e6…14ff at000b = ╱ec╱,╱ // 0x14f1 @0xb
0x14e6…14ff at000c = ╱31╱1╱ // 0x14f2 @0xc
0x14e6…14ff at000d = ╱32╱2╱ // 0x14f3 @0xd
0x14e6…14ff at000e = ╱fe0000c004╱ // 0x14f4 @0xe
0x14e6…14ff at0013 = ╱ec╱,╱ // 0x14f9 @0x13
0x14e6…14ff at0014 = ╱4b╱K╱ // 0x14fa @0x14
0x14e6…14ff at0015 = ╱34╱4╱ // 0x14fb @0x15
0x14e6…14ff at0016 = ╱ef╱$╱ // 0x14fc @0x16
0x14e6…14ff at0017 = ╱ee╱)╱ // 0x14fd @0x17
0x14e6…14ff at0018 = EOL // 0x14fe @0x18
0x14e6…14ff }
0x14ff…1542 a299 2720 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO
0x14ff…1542 LineComalBin {
0x14ff…1542 ptr = 0xa299 // 0x14ff @0x0
0x14ff…1542 lno = 0x0aa0 // 0x1501 @0x2
0x14ff…1542 at0004 = ╱a9╱ GET ╱ // 0x1503 @0x4
0x14ff…1542 at0005 = ╱4b╱K╱ // 0x1504 @0x5
0x14ff…1542 at0006 = ╱34╱4╱ // 0x1505 @0x6
0x14ff…1542 at0007 = ╱ef╱$╱ // 0x1506 @0x7
0x14ff…1542 at0008 = ╱ec╱,╱ // 0x1507 @0x8
0x14ff…1542 at0009 = ╱47╱G╱ // 0x1508 @0x9
0x14ff…1542 at000a = ╱f0╱:╱ // 0x1509 @0xa
0x14ff…1542 at000b = ╱54╱T╱ // 0x150a @0xb
0x14ff…1542 at000c = ╱31╱1╱ // 0x150b @0xc
0x14ff…1542 at000d = ╱ed╱(╱ // 0x150c @0xd
0x14ff…1542 at000e = ╱45╱E╱ // 0x150d @0xe
0x14ff…1542 at000f = ╱ee╱)╱ // 0x150e @0xf
0x14ff…1542 at0010 = ╱ec╱,╱ // 0x150f @0x10
0x14ff…1542 at0011 = ╱54╱T╱ // 0x1510 @0x11
0x14ff…1542 at0012 = ╱31╱1╱ // 0x1511 @0x12
0x14ff…1542 at0013 = ╱ed╱(╱ // 0x1512 @0x13
0x14ff…1542 at0014 = ╱47╱G╱ // 0x1513 @0x14
0x14ff…1542 at0015 = ╱ee╱)╱ // 0x1514 @0x15
0x14ff…1542 at0016 = ╱ec╱,╱ // 0x1515 @0x16
0x14ff…1542 at0017 = ╱54╱T╱ // 0x1516 @0x17
0x14ff…1542 at0018 = ╱31╱1╱ // 0x1517 @0x18
0x14ff…1542 at0019 = ╱ed╱(╱ // 0x1518 @0x19
0x14ff…1542 at001a = ╱56╱V╱ // 0x1519 @0x1a
0x14ff…1542 at001b = ╱ee╱)╱ // 0x151a @0x1b
0x14ff…1542 at001c = ╱ec╱,╱ // 0x151b @0x1c
0x14ff…1542 at001d = ╱54╱T╱ // 0x151c @0x1d
0x14ff…1542 at001e = ╱31╱1╱ // 0x151d @0x1e
0x14ff…1542 at001f = ╱ed╱(╱ // 0x151e @0x1f
0x14ff…1542 at0020 = ╱34╱4╱ // 0x151f @0x20
0x14ff…1542 at0021 = ╱fe00008003╱ // 0x1520 @0x21
0x14ff…1542 at0026 = ╱ee╱)╱ // 0x1525 @0x26
0x14ff…1542 at0027 = ╱ec╱,╱ // 0x1526 @0x27
0x14ff…1542 at0028 = ╱54╱T╱ // 0x1527 @0x28
0x14ff…1542 at0029 = ╱31╱1╱ // 0x1528 @0x29
0x14ff…1542 at002a = ╱ed╱(╱ // 0x1529 @0x2a
0x14ff…1542 at002b = ╱35╱5╱ // 0x152a @0x2b
0x14ff…1542 at002c = ╱fe0000a003╱ // 0x152b @0x2c
0x14ff…1542 at0031 = ╱ee╱)╱ // 0x1530 @0x31
0x14ff…1542 at0032 = ╱ec╱,╱ // 0x1531 @0x32
0x14ff…1542 at0033 = ╱54╱T╱ // 0x1532 @0x33
0x14ff…1542 at0034 = ╱31╱1╱ // 0x1533 @0x34
0x14ff…1542 at0035 = ╱ed╱(╱ // 0x1534 @0x35
0x14ff…1542 at0036 = ╱36╱6╱ // 0x1535 @0x36
0x14ff…1542 at0037 = ╱fe0000c003╱ // 0x1536 @0x37
0x14ff…1542 at003c = ╱ee╱)╱ // 0x153b @0x3c
0x14ff…1542 at003d = ╱ec╱,╱ // 0x153c @0x3d
0x14ff…1542 at003e = ╱44╱D╱ // 0x153d @0x3e
0x14ff…1542 at003f = ╱41╱A╱ // 0x153e @0x3f
0x14ff…1542 at0040 = ╱54╱T╱ // 0x153f @0x40
0x14ff…1542 at0041 = ╱4f╱O╱ // 0x1540 @0x41
0x14ff…1542 at0042 = EOL // 0x1541 @0x42
0x14ff…1542 }
0x1542…155b a2b2 2730 EXEC FEJL(W,13,K4$)
0x1542…155b LineComalBin {
0x1542…155b ptr = 0xa2b2 // 0x1542 @0x0
0x1542…155b lno = 0x0aaa // 0x1544 @0x2
0x1542…155b at0004 = ╱9d╱ EXEC ╱ // 0x1546 @0x4
0x1542…155b at0005 = ╱46╱F╱ // 0x1547 @0x5
0x1542…155b at0006 = ╱45╱E╱ // 0x1548 @0x6
0x1542…155b at0007 = ╱4a╱J╱ // 0x1549 @0x7
0x1542…155b at0008 = ╱4c╱L╱ // 0x154a @0x8
0x1542…155b at0009 = ╱ed╱(╱ // 0x154b @0x9
0x1542…155b at000a = ╱57╱W╱ // 0x154c @0xa
0x1542…155b at000b = ╱ec╱,╱ // 0x154d @0xb
0x1542…155b at000c = ╱31╱1╱ // 0x154e @0xc
0x1542…155b at000d = ╱33╱3╱ // 0x154f @0xd
0x1542…155b at000e = ╱fe0000d004╱ // 0x1550 @0xe
0x1542…155b at0013 = ╱ec╱,╱ // 0x1555 @0x13
0x1542…155b at0014 = ╱4b╱K╱ // 0x1556 @0x14
0x1542…155b at0015 = ╱34╱4╱ // 0x1557 @0x15
0x1542…155b at0016 = ╱ef╱$╱ // 0x1558 @0x16
0x1542…155b at0017 = ╱ee╱)╱ // 0x1559 @0x17
0x1542…155b at0018 = EOL // 0x155a @0x18
0x1542…155b }
0x155b…1570 (71,) a2c7 2740 GET K4$,20:DV$
0x155b…1570 LineComalBin {
0x155b…1570 ptr = 0xa2c7 // 0x155b @0x0
0x155b…1570 lno = 0x0ab4 // 0x155d @0x2
0x155b…1570 at0004 = ╱a9╱ GET ╱ // 0x155f @0x4
0x155b…1570 at0005 = ╱4b╱K╱ // 0x1560 @0x5
0x155b…1570 at0006 = ╱34╱4╱ // 0x1561 @0x6
0x155b…1570 at0007 = ╱ef╱$╱ // 0x1562 @0x7
0x155b…1570 at0008 = ╱ec╱,╱ // 0x1563 @0x8
0x155b…1570 at0009 = ╱32╱2╱ // 0x1564 @0x9
0x155b…1570 at000a = ╱30╱0╱ // 0x1565 @0xa
0x155b…1570 at000b = ╱fe0000a005╱ // 0x1566 @0xb
0x155b…1570 at0010 = ╱f0╱:╱ // 0x156b @0x10
0x155b…1570 at0011 = ╱44╱D╱ // 0x156c @0x11
0x155b…1570 at0012 = ╱56╱V╱ // 0x156d @0x12
0x155b…1570 at0013 = ╱ef╱$╱ // 0x156e @0x13
0x155b…1570 at0014 = EOL // 0x156f @0x14
0x155b…1570 }
0x1570…1589 a2e0 2750 EXEC FEJL(W,22,K4$)
0x1570…1589 LineComalBin {
0x1570…1589 ptr = 0xa2e0 // 0x1570 @0x0
0x1570…1589 lno = 0x0abe // 0x1572 @0x2
0x1570…1589 at0004 = ╱9d╱ EXEC ╱ // 0x1574 @0x4
0x1570…1589 at0005 = ╱46╱F╱ // 0x1575 @0x5
0x1570…1589 at0006 = ╱45╱E╱ // 0x1576 @0x6
0x1570…1589 at0007 = ╱4a╱J╱ // 0x1577 @0x7
0x1570…1589 at0008 = ╱4c╱L╱ // 0x1578 @0x8
0x1570…1589 at0009 = ╱ed╱(╱ // 0x1579 @0x9
0x1570…1589 at000a = ╱57╱W╱ // 0x157a @0xa
0x1570…1589 at000b = ╱ec╱,╱ // 0x157b @0xb
0x1570…1589 at000c = ╱32╱2╱ // 0x157c @0xc
0x1570…1589 at000d = ╱32╱2╱ // 0x157d @0xd
0x1570…1589 at000e = ╱fe0000b005╱ // 0x157e @0xe
0x1570…1589 at0013 = ╱ec╱,╱ // 0x1583 @0x13
0x1570…1589 at0014 = ╱4b╱K╱ // 0x1584 @0x14
0x1570…1589 at0015 = ╱34╱4╱ // 0x1585 @0x15
0x1570…1589 at0016 = ╱ef╱$╱ // 0x1586 @0x16
0x1570…1589 at0017 = ╱ee╱)╱ // 0x1587 @0x17
0x1570…1589 at0018 = EOL // 0x1588 @0x18
0x1570…1589 }
0x1589…15b4 a30b 2760 GET K4$,21:AENT,AUNK,ETOT,EMID,EPOST
0x1589…15b4 LineComalBin {
0x1589…15b4 ptr = 0xa30b // 0x1589 @0x0
0x1589…15b4 lno = 0x0ac8 // 0x158b @0x2
0x1589…15b4 at0004 = ╱a9╱ GET ╱ // 0x158d @0x4
0x1589…15b4 at0005 = ╱4b╱K╱ // 0x158e @0x5
0x1589…15b4 at0006 = ╱34╱4╱ // 0x158f @0x6
0x1589…15b4 at0007 = ╱ef╱$╱ // 0x1590 @0x7
0x1589…15b4 at0008 = ╱ec╱,╱ // 0x1591 @0x8
0x1589…15b4 at0009 = ╱32╱2╱ // 0x1592 @0x9
0x1589…15b4 at000a = ╱31╱1╱ // 0x1593 @0xa
0x1589…15b4 at000b = ╱fe0000a805╱ // 0x1594 @0xb
0x1589…15b4 at0010 = ╱f0╱:╱ // 0x1599 @0x10
0x1589…15b4 at0011 = ╱41╱A╱ // 0x159a @0x11
0x1589…15b4 at0012 = ╱45╱E╱ // 0x159b @0x12
0x1589…15b4 at0013 = ╱4e╱N╱ // 0x159c @0x13
0x1589…15b4 at0014 = ╱54╱T╱ // 0x159d @0x14
0x1589…15b4 at0015 = ╱ec╱,╱ // 0x159e @0x15
0x1589…15b4 at0016 = ╱41╱A╱ // 0x159f @0x16
0x1589…15b4 at0017 = ╱55╱U╱ // 0x15a0 @0x17
0x1589…15b4 at0018 = ╱4e╱N╱ // 0x15a1 @0x18
0x1589…15b4 at0019 = ╱4b╱K╱ // 0x15a2 @0x19
0x1589…15b4 at001a = ╱ec╱,╱ // 0x15a3 @0x1a
0x1589…15b4 at001b = ╱45╱E╱ // 0x15a4 @0x1b
0x1589…15b4 at001c = ╱54╱T╱ // 0x15a5 @0x1c
0x1589…15b4 at001d = ╱4f╱O╱ // 0x15a6 @0x1d
0x1589…15b4 at001e = ╱54╱T╱ // 0x15a7 @0x1e
0x1589…15b4 at001f = ╱ec╱,╱ // 0x15a8 @0x1f
0x1589…15b4 at0020 = ╱45╱E╱ // 0x15a9 @0x20
0x1589…15b4 at0021 = ╱4d╱M╱ // 0x15aa @0x21
0x1589…15b4 at0022 = ╱49╱I╱ // 0x15ab @0x22
0x1589…15b4 at0023 = ╱44╱D╱ // 0x15ac @0x23
0x1589…15b4 at0024 = ╱ec╱,╱ // 0x15ad @0x24
0x1589…15b4 at0025 = ╱45╱E╱ // 0x15ae @0x25
0x1589…15b4 at0026 = ╱50╱P╱ // 0x15af @0x26
0x1589…15b4 at0027 = ╱4f╱O╱ // 0x15b0 @0x27
0x1589…15b4 at0028 = ╱53╱S╱ // 0x15b1 @0x28
0x1589…15b4 at0029 = ╱54╱T╱ // 0x15b2 @0x29
0x1589…15b4 at002a = EOL // 0x15b3 @0x2a
0x1589…15b4 }
0x15b4…15cd a324 2770 EXEC FEJL(W,12,K4$)
0x15b4…15cd LineComalBin {
0x15b4…15cd ptr = 0xa324 // 0x15b4 @0x0
0x15b4…15cd lno = 0x0ad2 // 0x15b6 @0x2
0x15b4…15cd at0004 = ╱9d╱ EXEC ╱ // 0x15b8 @0x4
0x15b4…15cd at0005 = ╱46╱F╱ // 0x15b9 @0x5
0x15b4…15cd at0006 = ╱45╱E╱ // 0x15ba @0x6
0x15b4…15cd at0007 = ╱4a╱J╱ // 0x15bb @0x7
0x15b4…15cd at0008 = ╱4c╱L╱ // 0x15bc @0x8
0x15b4…15cd at0009 = ╱ed╱(╱ // 0x15bd @0x9
0x15b4…15cd at000a = ╱57╱W╱ // 0x15be @0xa
0x15b4…15cd at000b = ╱ec╱,╱ // 0x15bf @0xb
0x15b4…15cd at000c = ╱31╱1╱ // 0x15c0 @0xc
0x15b4…15cd at000d = ╱32╱2╱ // 0x15c1 @0xd
0x15b4…15cd at000e = ╱fe0000c004╱ // 0x15c2 @0xe
0x15b4…15cd at0013 = ╱ec╱,╱ // 0x15c7 @0x13
0x15b4…15cd at0014 = ╱4b╱K╱ // 0x15c8 @0x14
0x15b4…15cd at0015 = ╱34╱4╱ // 0x15c9 @0x15
0x15b4…15cd at0016 = ╱ef╱$╱ // 0x15ca @0x16
0x15b4…15cd at0017 = ╱ee╱)╱ // 0x15cb @0x17
0x15b4…15cd at0018 = EOL // 0x15cc @0x18
0x15b4…15cd }
0x15cd…15d6 a32d 2780 CLOSE K4$
0x15cd…15d6 LineComalBin {
0x15cd…15d6 ptr = 0xa32d // 0x15cd @0x0
0x15cd…15d6 lno = 0x0adc // 0x15cf @0x2
0x15cd…15d6 at0004 = ╱a8╱ CLOSE ╱ // 0x15d1 @0x4
0x15cd…15d6 at0005 = ╱4b╱K╱ // 0x15d2 @0x5
0x15cd…15d6 at0006 = ╱34╱4╱ // 0x15d3 @0x6
0x15cd…15d6 at0007 = ╱ef╱$╱ // 0x15d4 @0x7
0x15cd…15d6 at0008 = EOL // 0x15d5 @0x8
0x15cd…15d6 }
0x15d6…15ef a346 2790 EXEC FEJL(W,17,K4$)
0x15d6…15ef LineComalBin {
0x15d6…15ef ptr = 0xa346 // 0x15d6 @0x0
0x15d6…15ef lno = 0x0ae6 // 0x15d8 @0x2
0x15d6…15ef at0004 = ╱9d╱ EXEC ╱ // 0x15da @0x4
0x15d6…15ef at0005 = ╱46╱F╱ // 0x15db @0x5
0x15d6…15ef at0006 = ╱45╱E╱ // 0x15dc @0x6
0x15d6…15ef at0007 = ╱4a╱J╱ // 0x15dd @0x7
0x15d6…15ef at0008 = ╱4c╱L╱ // 0x15de @0x8
0x15d6…15ef at0009 = ╱ed╱(╱ // 0x15df @0x9
0x15d6…15ef at000a = ╱57╱W╱ // 0x15e0 @0xa
0x15d6…15ef at000b = ╱ec╱,╱ // 0x15e1 @0xb
0x15d6…15ef at000c = ╱31╱1╱ // 0x15e2 @0xc
0x15d6…15ef at000d = ╱37╱7╱ // 0x15e3 @0xd
0x15d6…15ef at000e = ╱fe00008805╱ // 0x15e4 @0xe
0x15d6…15ef at0013 = ╱ec╱,╱ // 0x15e9 @0x13
0x15d6…15ef at0014 = ╱4b╱K╱ // 0x15ea @0x14
0x15d6…15ef at0015 = ╱34╱4╱ // 0x15eb @0x15
0x15d6…15ef at0016 = ╱ef╱$╱ // 0x15ec @0x16
0x15d6…15ef at0017 = ╱ee╱)╱ // 0x15ed @0x17
0x15d6…15ef at0018 = EOL // 0x15ee @0x18
0x15d6…15ef }
0x15ef…1614 a36b 2800 K2$=N$+K2$;K3$=N$+K3$;K5$=N$+K5$
0x15ef…1614 LineComalBin {
0x15ef…1614 ptr = 0xa36b // 0x15ef @0x0
0x15ef…1614 lno = 0x0af0 // 0x15f1 @0x2
0x15ef…1614 at0004 = ╱4b╱K╱ // 0x15f3 @0x4
0x15ef…1614 at0005 = ╱32╱2╱ // 0x15f4 @0x5
0x15ef…1614 at0006 = ╱ef╱$╱ // 0x15f5 @0x6
0x15ef…1614 at0007 = ╱dc╱=╱ // 0x15f6 @0x7
0x15ef…1614 at0008 = ╱4e╱N╱ // 0x15f7 @0x8
0x15ef…1614 at0009 = ╱ef╱$╱ // 0x15f8 @0x9
0x15ef…1614 at000a = ╱f1╱+╱ // 0x15f9 @0xa
0x15ef…1614 at000b = ╱4b╱K╱ // 0x15fa @0xb
0x15ef…1614 at000c = ╱32╱2╱ // 0x15fb @0xc
0x15ef…1614 at000d = ╱ef╱$╱ // 0x15fc @0xd
0x15ef…1614 at000e = ╱eb╱;╱ // 0x15fd @0xe
0x15ef…1614 at000f = ╱4b╱K╱ // 0x15fe @0xf
0x15ef…1614 at0010 = ╱33╱3╱ // 0x15ff @0x10
0x15ef…1614 at0011 = ╱ef╱$╱ // 0x1600 @0x11
0x15ef…1614 at0012 = ╱dc╱=╱ // 0x1601 @0x12
0x15ef…1614 at0013 = ╱4e╱N╱ // 0x1602 @0x13
0x15ef…1614 at0014 = ╱ef╱$╱ // 0x1603 @0x14
0x15ef…1614 at0015 = ╱f1╱+╱ // 0x1604 @0x15
0x15ef…1614 at0016 = ╱4b╱K╱ // 0x1605 @0x16
0x15ef…1614 at0017 = ╱33╱3╱ // 0x1606 @0x17
0x15ef…1614 at0018 = ╱ef╱$╱ // 0x1607 @0x18
0x15ef…1614 at0019 = ╱eb╱;╱ // 0x1608 @0x19
0x15ef…1614 at001a = ╱4b╱K╱ // 0x1609 @0x1a
0x15ef…1614 at001b = ╱35╱5╱ // 0x160a @0x1b
0x15ef…1614 at001c = ╱ef╱$╱ // 0x160b @0x1c
0x15ef…1614 at001d = ╱dc╱=╱ // 0x160c @0x1d
0x15ef…1614 at001e = ╱4e╱N╱ // 0x160d @0x1e
0x15ef…1614 at001f = ╱ef╱$╱ // 0x160e @0x1f
0x15ef…1614 at0020 = ╱f1╱+╱ // 0x160f @0x20
0x15ef…1614 at0021 = ╱4b╱K╱ // 0x1610 @0x21
0x15ef…1614 at0022 = ╱35╱5╱ // 0x1611 @0x22
0x15ef…1614 at0023 = ╱ef╱$╱ // 0x1612 @0x23
0x15ef…1614 at0024 = EOL // 0x1613 @0x24
0x15ef…1614 }
0x1614…161f a376 2810 OPEN K2$,W
0x1614…161f LineComalBin {
0x1614…161f ptr = 0xa376 // 0x1614 @0x0
0x1614…161f lno = 0x0afa // 0x1616 @0x2
0x1614…161f at0004 = ╱a7╱ OPEN ╱ // 0x1618 @0x4
0x1614…161f at0005 = ╱4b╱K╱ // 0x1619 @0x5
0x1614…161f at0006 = ╱32╱2╱ // 0x161a @0x6
0x1614…161f at0007 = ╱ef╱$╱ // 0x161b @0x7
0x1614…161f at0008 = ╱ec╱,╱ // 0x161c @0x8
0x1614…161f at0009 = ╱57╱W╱ // 0x161d @0x9
0x1614…161f at000a = EOL // 0x161e @0xa
0x1614…161f }
0x161f…1638 a38f 2820 EXEC FEJL(W,18,K2$)
0x161f…1638 LineComalBin {
0x161f…1638 ptr = 0xa38f // 0x161f @0x0
0x161f…1638 lno = 0x0b04 // 0x1621 @0x2
0x161f…1638 at0004 = ╱9d╱ EXEC ╱ // 0x1623 @0x4
0x161f…1638 at0005 = ╱46╱F╱ // 0x1624 @0x5
0x161f…1638 at0006 = ╱45╱E╱ // 0x1625 @0x6
0x161f…1638 at0007 = ╱4a╱J╱ // 0x1626 @0x7
0x161f…1638 at0008 = ╱4c╱L╱ // 0x1627 @0x8
0x161f…1638 at0009 = ╱ed╱(╱ // 0x1628 @0x9
0x161f…1638 at000a = ╱57╱W╱ // 0x1629 @0xa
0x161f…1638 at000b = ╱ec╱,╱ // 0x162a @0xb
0x161f…1638 at000c = ╱31╱1╱ // 0x162b @0xc
0x161f…1638 at000d = ╱38╱8╱ // 0x162c @0xd
0x161f…1638 at000e = ╱fe00009005╱ // 0x162d @0xe
0x161f…1638 at0013 = ╱ec╱,╱ // 0x1632 @0x13
0x161f…1638 at0014 = ╱4b╱K╱ // 0x1633 @0x14
0x161f…1638 at0015 = ╱32╱2╱ // 0x1634 @0x15
0x161f…1638 at0016 = ╱ef╱$╱ // 0x1635 @0x16
0x161f…1638 at0017 = ╱ee╱)╱ // 0x1636 @0x17
0x161f…1638 at0018 = EOL // 0x1637 @0x18
0x161f…1638 }
0x1638…1643 a39a 2830 OPEN K5$,R
0x1638…1643 LineComalBin {
0x1638…1643 ptr = 0xa39a // 0x1638 @0x0
0x1638…1643 lno = 0x0b0e // 0x163a @0x2
0x1638…1643 at0004 = ╱a7╱ OPEN ╱ // 0x163c @0x4
0x1638…1643 at0005 = ╱4b╱K╱ // 0x163d @0x5
0x1638…1643 at0006 = ╱35╱5╱ // 0x163e @0x6
0x1638…1643 at0007 = ╱ef╱$╱ // 0x163f @0x7
0x1638…1643 at0008 = ╱ec╱,╱ // 0x1640 @0x8
0x1638…1643 at0009 = ╱52╱R╱ // 0x1641 @0x9
0x1638…1643 at000a = EOL // 0x1642 @0xa
0x1638…1643 }
0x1643…165c a3b3 2840 EXEC FEJL(W,19,K5$)
0x1643…165c LineComalBin {
0x1643…165c ptr = 0xa3b3 // 0x1643 @0x0
0x1643…165c lno = 0x0b18 // 0x1645 @0x2
0x1643…165c at0004 = ╱9d╱ EXEC ╱ // 0x1647 @0x4
0x1643…165c at0005 = ╱46╱F╱ // 0x1648 @0x5
0x1643…165c at0006 = ╱45╱E╱ // 0x1649 @0x6
0x1643…165c at0007 = ╱4a╱J╱ // 0x164a @0x7
0x1643…165c at0008 = ╱4c╱L╱ // 0x164b @0x8
0x1643…165c at0009 = ╱ed╱(╱ // 0x164c @0x9
0x1643…165c at000a = ╱57╱W╱ // 0x164d @0xa
0x1643…165c at000b = ╱ec╱,╱ // 0x164e @0xb
0x1643…165c at000c = ╱31╱1╱ // 0x164f @0xc
0x1643…165c at000d = ╱39╱9╱ // 0x1650 @0xd
0x1643…165c at000e = ╱fe00009805╱ // 0x1651 @0xe
0x1643…165c at0013 = ╱ec╱,╱ // 0x1656 @0x13
0x1643…165c at0014 = ╱4b╱K╱ // 0x1657 @0x14
0x1643…165c at0015 = ╱35╱5╱ // 0x1658 @0x15
0x1643…165c at0016 = ╱ef╱$╱ // 0x1659 @0x16
0x1643…165c at0017 = ╱ee╱)╱ // 0x165a @0x17
0x1643…165c at0018 = EOL // 0x165b @0x18
0x1643…165c }
0x165c…1667 a3be 2850 OPEN K3$,W
0x165c…1667 LineComalBin {
0x165c…1667 ptr = 0xa3be // 0x165c @0x0
0x165c…1667 lno = 0x0b22 // 0x165e @0x2
0x165c…1667 at0004 = ╱a7╱ OPEN ╱ // 0x1660 @0x4
0x165c…1667 at0005 = ╱4b╱K╱ // 0x1661 @0x5
0x165c…1667 at0006 = ╱33╱3╱ // 0x1662 @0x6
0x165c…1667 at0007 = ╱ef╱$╱ // 0x1663 @0x7
0x165c…1667 at0008 = ╱ec╱,╱ // 0x1664 @0x8
0x165c…1667 at0009 = ╱57╱W╱ // 0x1665 @0x9
0x165c…1667 at000a = EOL // 0x1666 @0xa
0x165c…1667 }
0x1667…1680 a3d7 2860 EXEC FEJL(W,20,K3$)
0x1667…1680 LineComalBin {
0x1667…1680 ptr = 0xa3d7 // 0x1667 @0x0
0x1667…1680 lno = 0x0b2c // 0x1669 @0x2
0x1667…1680 at0004 = ╱9d╱ EXEC ╱ // 0x166b @0x4
0x1667…1680 at0005 = ╱46╱F╱ // 0x166c @0x5
0x1667…1680 at0006 = ╱45╱E╱ // 0x166d @0x6
0x1667…1680 at0007 = ╱4a╱J╱ // 0x166e @0x7
0x1667…1680 at0008 = ╱4c╱L╱ // 0x166f @0x8
0x1667…1680 at0009 = ╱ed╱(╱ // 0x1670 @0x9
0x1667…1680 at000a = ╱57╱W╱ // 0x1671 @0xa
0x1667…1680 at000b = ╱ec╱,╱ // 0x1672 @0xb
0x1667…1680 at000c = ╱32╱2╱ // 0x1673 @0xc
0x1667…1680 at000d = ╱30╱0╱ // 0x1674 @0xd
0x1667…1680 at000e = ╱fe0000a005╱ // 0x1675 @0xe
0x1667…1680 at0013 = ╱ec╱,╱ // 0x167a @0x13
0x1667…1680 at0014 = ╱4b╱K╱ // 0x167b @0x14
0x1667…1680 at0015 = ╱33╱3╱ // 0x167c @0x15
0x1667…1680 at0016 = ╱ef╱$╱ // 0x167d @0x16
0x1667…1680 at0017 = ╱ee╱)╱ // 0x167e @0x17
0x1667…1680 at0018 = EOL // 0x167f @0x18
0x1667…1680 }
0x1680…1693 a3ea 2870 EXEC INDTAB1(ETAB)
0x1680…1693 LineComalBin {
0x1680…1693 ptr = 0xa3ea // 0x1680 @0x0
0x1680…1693 lno = 0x0b36 // 0x1682 @0x2
0x1680…1693 at0004 = ╱9d╱ EXEC ╱ // 0x1684 @0x4
0x1680…1693 at0005 = ╱49╱I╱ // 0x1685 @0x5
0x1680…1693 at0006 = ╱4e╱N╱ // 0x1686 @0x6
0x1680…1693 at0007 = ╱44╱D╱ // 0x1687 @0x7
0x1680…1693 at0008 = ╱54╱T╱ // 0x1688 @0x8
0x1680…1693 at0009 = ╱41╱A╱ // 0x1689 @0x9
0x1680…1693 at000a = ╱42╱B╱ // 0x168a @0xa
0x1680…1693 at000b = ╱31╱1╱ // 0x168b @0xb
0x1680…1693 at000c = ╱ed╱(╱ // 0x168c @0xc
0x1680…1693 at000d = ╱45╱E╱ // 0x168d @0xd
0x1680…1693 at000e = ╱54╱T╱ // 0x168e @0xe
0x1680…1693 at000f = ╱41╱A╱ // 0x168f @0xf
0x1680…1693 at0010 = ╱42╱B╱ // 0x1690 @0x10
0x1680…1693 at0011 = ╱ee╱)╱ // 0x1691 @0x11
0x1680…1693 at0012 = EOL // 0x1692 @0x12
0x1680…1693 }
0x1693…169f a3f6 2880 EXEC INDTAB
0x1693…169f LineComalBin {
0x1693…169f ptr = 0xa3f6 // 0x1693 @0x0
0x1693…169f lno = 0x0b40 // 0x1695 @0x2
0x1693…169f at0004 = ╱9d╱ EXEC ╱ // 0x1697 @0x4
0x1693…169f at0005 = ╱49╱I╱ // 0x1698 @0x5
0x1693…169f at0006 = ╱4e╱N╱ // 0x1699 @0x6
0x1693…169f at0007 = ╱44╱D╱ // 0x169a @0x7
0x1693…169f at0008 = ╱54╱T╱ // 0x169b @0x8
0x1693…169f at0009 = ╱41╱A╱ // 0x169c @0x9
0x1693…169f at000a = ╱42╱B╱ // 0x169d @0xa
0x1693…169f at000b = EOL // 0x169e @0xb
0x1693…169f }
0x169f…16ec a443 2890 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "
0x169f…16ec LineComalBin {
0x169f…16ec ptr = 0xa443 // 0x169f @0x0
0x169f…16ec lno = 0x0b4a // 0x16a1 @0x2
0x169f…16ec at0004 = ╱42╱B╱ // 0x16a3 @0x4
0x169f…16ec at0005 = ╱4c╱L╱ // 0x16a4 @0x5
0x169f…16ec at0006 = ╱41╱A╱ // 0x16a5 @0x6
0x169f…16ec at0007 = ╱4e╱N╱ // 0x16a6 @0x7
0x169f…16ec at0008 = ╱4b╱K╱ // 0x16a7 @0x8
0x169f…16ec at0009 = ╱ef╱$╱ // 0x16a8 @0x9
0x169f…16ec at000a = ╱dc╱=╱ // 0x16a9 @0xa
0x169f…16ec at000b = ╱22╱"╱ // 0x16aa @0xb
0x169f…16ec at000c = ╱20╱…╱ // 0x16ab @0xc
0x169f…16ec at000d = ╱20╱…╱ // 0x16ac @0xd
0x169f…16ec at000e = ╱20╱…╱ // 0x16ad @0xe
0x169f…16ec at000f = ╱20╱…╱ // 0x16ae @0xf
0x169f…16ec at0010 = ╱20╱…╱ // 0x16af @0x10
0x169f…16ec at0011 = ╱20╱…╱ // 0x16b0 @0x11
0x169f…16ec at0012 = ╱20╱…╱ // 0x16b1 @0x12
0x169f…16ec at0013 = ╱20╱…╱ // 0x16b2 @0x13
0x169f…16ec at0014 = ╱20╱…╱ // 0x16b3 @0x14
0x169f…16ec at0015 = ╱20╱…╱ // 0x16b4 @0x15
0x169f…16ec at0016 = ╱20╱…╱ // 0x16b5 @0x16
0x169f…16ec at0017 = ╱20╱…╱ // 0x16b6 @0x17
0x169f…16ec at0018 = ╱20╱…╱ // 0x16b7 @0x18
0x169f…16ec at0019 = ╱20╱…╱ // 0x16b8 @0x19
0x169f…16ec at001a = ╱20╱…╱ // 0x16b9 @0x1a
0x169f…16ec at001b = ╱20╱…╱ // 0x16ba @0x1b
0x169f…16ec at001c = ╱20╱…╱ // 0x16bb @0x1c
0x169f…16ec at001d = ╱20╱…╱ // 0x16bc @0x1d
0x169f…16ec at001e = ╱20╱…╱ // 0x16bd @0x1e
0x169f…16ec at001f = ╱20╱…╱ // 0x16be @0x1f
0x169f…16ec at0020 = ╱20╱…╱ // 0x16bf @0x20
0x169f…16ec at0021 = ╱20╱…╱ // 0x16c0 @0x21
0x169f…16ec at0022 = ╱20╱…╱ // 0x16c1 @0x22
0x169f…16ec at0023 = ╱20╱…╱ // 0x16c2 @0x23
0x169f…16ec at0024 = ╱20╱…╱ // 0x16c3 @0x24
0x169f…16ec at0025 = ╱20╱…╱ // 0x16c4 @0x25
0x169f…16ec at0026 = ╱20╱…╱ // 0x16c5 @0x26
0x169f…16ec at0027 = ╱20╱…╱ // 0x16c6 @0x27
0x169f…16ec at0028 = ╱20╱…╱ // 0x16c7 @0x28
0x169f…16ec at0029 = ╱20╱…╱ // 0x16c8 @0x29
0x169f…16ec at002a = ╱20╱…╱ // 0x16c9 @0x2a
0x169f…16ec at002b = ╱20╱…╱ // 0x16ca @0x2b
0x169f…16ec at002c = ╱20╱…╱ // 0x16cb @0x2c
0x169f…16ec at002d = ╱20╱…╱ // 0x16cc @0x2d
0x169f…16ec at002e = ╱20╱…╱ // 0x16cd @0x2e
0x169f…16ec at002f = ╱20╱…╱ // 0x16ce @0x2f
0x169f…16ec at0030 = ╱20╱…╱ // 0x16cf @0x30
0x169f…16ec at0031 = ╱20╱…╱ // 0x16d0 @0x31
0x169f…16ec at0032 = ╱22╱"╱ // 0x16d1 @0x32
0x169f…16ec at0033 = ╱eb╱;╱ // 0x16d2 @0x33
0x169f…16ec at0034 = ╱42╱B╱ // 0x16d3 @0x34
0x169f…16ec at0035 = ╱4c╱L╱ // 0x16d4 @0x35
0x169f…16ec at0036 = ╱41╱A╱ // 0x16d5 @0x36
0x169f…16ec at0037 = ╱4e╱N╱ // 0x16d6 @0x37
0x169f…16ec at0038 = ╱4b╱K╱ // 0x16d7 @0x38
0x169f…16ec at0039 = ╱ef╱$╱ // 0x16d8 @0x39
0x169f…16ec at003a = ╱dc╱=╱ // 0x16d9 @0x3a
0x169f…16ec at003b = ╱42╱B╱ // 0x16da @0x3b
0x169f…16ec at003c = ╱4c╱L╱ // 0x16db @0x3c
0x169f…16ec at003d = ╱41╱A╱ // 0x16dc @0x3d
0x169f…16ec at003e = ╱4e╱N╱ // 0x16dd @0x3e
0x169f…16ec at003f = ╱4b╱K╱ // 0x16de @0x3f
0x169f…16ec at0040 = ╱ef╱$╱ // 0x16df @0x40
0x169f…16ec at0041 = ╱f1╱+╱ // 0x16e0 @0x41
0x169f…16ec at0042 = ╱42╱B╱ // 0x16e1 @0x42
0x169f…16ec at0043 = ╱4c╱L╱ // 0x16e2 @0x43
0x169f…16ec at0044 = ╱41╱A╱ // 0x16e3 @0x44
0x169f…16ec at0045 = ╱4e╱N╱ // 0x16e4 @0x45
0x169f…16ec at0046 = ╱4b╱K╱ // 0x16e5 @0x46
0x169f…16ec at0047 = ╱ef╱$╱ // 0x16e6 @0x47
0x169f…16ec at0048 = ╱f1╱+╱ // 0x16e7 @0x48
0x169f…16ec at0049 = ╱22╱"╱ // 0x16e8 @0x49
0x169f…16ec at004a = ╱20╱…╱ // 0x16e9 @0x4a
0x169f…16ec at004b = ╱22╱"╱ // 0x16ea @0x4b
0x169f…16ec at004c = EOL // 0x16eb @0x4c
0x169f…16ec }
0x16ec…1705 a45c 2900 TAH$="0+";TAL4$="0+"
0x16ec…1705 LineComalBin {
0x16ec…1705 ptr = 0xa45c // 0x16ec @0x0
0x16ec…1705 lno = 0x0b54 // 0x16ee @0x2
0x16ec…1705 at0004 = ╱54╱T╱ // 0x16f0 @0x4
0x16ec…1705 at0005 = ╱41╱A╱ // 0x16f1 @0x5
0x16ec…1705 at0006 = ╱48╱H╱ // 0x16f2 @0x6
0x16ec…1705 at0007 = ╱ef╱$╱ // 0x16f3 @0x7
0x16ec…1705 at0008 = ╱dc╱=╱ // 0x16f4 @0x8
0x16ec…1705 at0009 = ╱22╱"╱ // 0x16f5 @0x9
0x16ec…1705 at000a = ╱30╱0╱ // 0x16f6 @0xa
0x16ec…1705 at000b = ╱2b╱+╱ // 0x16f7 @0xb
0x16ec…1705 at000c = ╱22╱"╱ // 0x16f8 @0xc
0x16ec…1705 at000d = ╱eb╱;╱ // 0x16f9 @0xd
0x16ec…1705 at000e = ╱54╱T╱ // 0x16fa @0xe
0x16ec…1705 at000f = ╱41╱A╱ // 0x16fb @0xf
0x16ec…1705 at0010 = ╱4c╱L╱ // 0x16fc @0x10
0x16ec…1705 at0011 = ╱34╱4╱ // 0x16fd @0x11
0x16ec…1705 at0012 = ╱ef╱$╱ // 0x16fe @0x12
0x16ec…1705 at0013 = ╱dc╱=╱ // 0x16ff @0x13
0x16ec…1705 at0014 = ╱22╱"╱ // 0x1700 @0x14
0x16ec…1705 at0015 = ╱30╱0╱ // 0x1701 @0x15
0x16ec…1705 at0016 = ╱2b╱+╱ // 0x1702 @0x16
0x16ec…1705 at0017 = ╱22╱"╱ // 0x1703 @0x17
0x16ec…1705 at0018 = EOL // 0x1704 @0x18
0x16ec…1705 }
0x1705…174b a4a2 2910 STREG$="-----------------------------------";STREG$=STREG$+STREG$
0x1705…174b LineComalBin {
0x1705…174b ptr = 0xa4a2 // 0x1705 @0x0
0x1705…174b lno = 0x0b5e // 0x1707 @0x2
0x1705…174b at0004 = ╱53╱S╱ // 0x1709 @0x4
0x1705…174b at0005 = ╱54╱T╱ // 0x170a @0x5
0x1705…174b at0006 = ╱52╱R╱ // 0x170b @0x6
0x1705…174b at0007 = ╱45╱E╱ // 0x170c @0x7
0x1705…174b at0008 = ╱47╱G╱ // 0x170d @0x8
0x1705…174b at0009 = ╱ef╱$╱ // 0x170e @0x9
0x1705…174b at000a = ╱dc╱=╱ // 0x170f @0xa
0x1705…174b at000b = ╱22╱"╱ // 0x1710 @0xb
0x1705…174b at000c = ╱2d╱-╱ // 0x1711 @0xc
0x1705…174b at000d = ╱2d╱-╱ // 0x1712 @0xd
0x1705…174b at000e = ╱2d╱-╱ // 0x1713 @0xe
0x1705…174b at000f = ╱2d╱-╱ // 0x1714 @0xf
0x1705…174b at0010 = ╱2d╱-╱ // 0x1715 @0x10
0x1705…174b at0011 = ╱2d╱-╱ // 0x1716 @0x11
0x1705…174b at0012 = ╱2d╱-╱ // 0x1717 @0x12
0x1705…174b at0013 = ╱2d╱-╱ // 0x1718 @0x13
0x1705…174b at0014 = ╱2d╱-╱ // 0x1719 @0x14
0x1705…174b at0015 = ╱2d╱-╱ // 0x171a @0x15
0x1705…174b at0016 = ╱2d╱-╱ // 0x171b @0x16
0x1705…174b at0017 = ╱2d╱-╱ // 0x171c @0x17
0x1705…174b at0018 = ╱2d╱-╱ // 0x171d @0x18
0x1705…174b at0019 = ╱2d╱-╱ // 0x171e @0x19
0x1705…174b at001a = ╱2d╱-╱ // 0x171f @0x1a
0x1705…174b at001b = ╱2d╱-╱ // 0x1720 @0x1b
0x1705…174b at001c = ╱2d╱-╱ // 0x1721 @0x1c
0x1705…174b at001d = ╱2d╱-╱ // 0x1722 @0x1d
0x1705…174b at001e = ╱2d╱-╱ // 0x1723 @0x1e
0x1705…174b at001f = ╱2d╱-╱ // 0x1724 @0x1f
0x1705…174b at0020 = ╱2d╱-╱ // 0x1725 @0x20
0x1705…174b at0021 = ╱2d╱-╱ // 0x1726 @0x21
0x1705…174b at0022 = ╱2d╱-╱ // 0x1727 @0x22
0x1705…174b at0023 = ╱2d╱-╱ // 0x1728 @0x23
0x1705…174b at0024 = ╱2d╱-╱ // 0x1729 @0x24
0x1705…174b at0025 = ╱2d╱-╱ // 0x172a @0x25
0x1705…174b at0026 = ╱2d╱-╱ // 0x172b @0x26
0x1705…174b at0027 = ╱2d╱-╱ // 0x172c @0x27
0x1705…174b at0028 = ╱2d╱-╱ // 0x172d @0x28
0x1705…174b at0029 = ╱2d╱-╱ // 0x172e @0x29
0x1705…174b at002a = ╱2d╱-╱ // 0x172f @0x2a
0x1705…174b at002b = ╱2d╱-╱ // 0x1730 @0x2b
0x1705…174b at002c = ╱2d╱-╱ // 0x1731 @0x2c
0x1705…174b at002d = ╱2d╱-╱ // 0x1732 @0x2d
0x1705…174b at002e = ╱2d╱-╱ // 0x1733 @0x2e
0x1705…174b at002f = ╱22╱"╱ // 0x1734 @0x2f
0x1705…174b at0030 = ╱eb╱;╱ // 0x1735 @0x30
0x1705…174b at0031 = ╱53╱S╱ // 0x1736 @0x31
0x1705…174b at0032 = ╱54╱T╱ // 0x1737 @0x32
0x1705…174b at0033 = ╱52╱R╱ // 0x1738 @0x33
0x1705…174b at0034 = ╱45╱E╱ // 0x1739 @0x34
0x1705…174b at0035 = ╱47╱G╱ // 0x173a @0x35
0x1705…174b at0036 = ╱ef╱$╱ // 0x173b @0x36
0x1705…174b at0037 = ╱dc╱=╱ // 0x173c @0x37
0x1705…174b at0038 = ╱53╱S╱ // 0x173d @0x38
0x1705…174b at0039 = ╱54╱T╱ // 0x173e @0x39
0x1705…174b at003a = ╱52╱R╱ // 0x173f @0x3a
0x1705…174b at003b = ╱45╱E╱ // 0x1740 @0x3b
0x1705…174b at003c = ╱47╱G╱ // 0x1741 @0x3c
0x1705…174b at003d = ╱ef╱$╱ // 0x1742 @0x3d
0x1705…174b at003e = ╱f1╱+╱ // 0x1743 @0x3e
0x1705…174b at003f = ╱53╱S╱ // 0x1744 @0x3f
0x1705…174b at0040 = ╱54╱T╱ // 0x1745 @0x40
0x1705…174b at0041 = ╱52╱R╱ // 0x1746 @0x41
0x1705…174b at0042 = ╱45╱E╱ // 0x1747 @0x42
0x1705…174b at0043 = ╱47╱G╱ // 0x1748 @0x43
0x1705…174b at0044 = ╱ef╱$╱ // 0x1749 @0x44
0x1705…174b at0045 = EOL // 0x174a @0x45
0x1705…174b }
0x174b…1751 a4a8 2920 REPEAT
0x174b…1751 LineComalBin {
0x174b…1751 ptr = 0xa4a8 // 0x174b @0x0
0x174b…1751 lno = 0x0b68 // 0x174d @0x2
0x174b…1751 at0004 = ╱97╱ REPEAT ╱ // 0x174f @0x4
0x174b…1751 at0005 = EOL // 0x1750 @0x5
0x174b…1751 }
0x1751…1757 a4ae 2930 CLEAR
0x1751…1757 LineComalBin {
0x1751…1757 ptr = 0xa4ae // 0x1751 @0x0
0x1751…1757 lno = 0x0b72 // 0x1753 @0x2
0x1751…1757 at0004 = ╱a0╱ CLEAR ╱ // 0x1755 @0x4
0x1751…1757 at0005 = EOL // 0x1756 @0x5
0x1751…1757 }
0x1757…1766 a4bd 2940 CURSOR 15,E
0x1757…1766 LineComalBin {
0x1757…1766 ptr = 0xa4bd // 0x1757 @0x0
0x1757…1766 lno = 0x0b7c // 0x1759 @0x2
0x1757…1766 at0004 = ╱a1╱ CURSOR ╱ // 0x175b @0x4
0x1757…1766 at0005 = ╱31╱1╱ // 0x175c @0x5
0x1757…1766 at0006 = ╱35╱5╱ // 0x175d @0x6
0x1757…1766 at0007 = ╱fe0000f004╱ // 0x175e @0x7
0x1757…1766 at000c = ╱ec╱,╱ // 0x1763 @0xc
0x1757…1766 at000d = ╱45╱E╱ // 0x1764 @0xd
0x1757…1766 at000e = EOL // 0x1765 @0xe
0x1757…1766 }
0x1766…1787 a4de 2950 PRINT "Underkontovedligeholdelse"
0x1766…1787 LineComalBin {
0x1766…1787 ptr = 0xa4de // 0x1766 @0x0
0x1766…1787 lno = 0x0b86 // 0x1768 @0x2
0x1766…1787 at0004 = ╱92╱ PRINT ╱ // 0x176a @0x4
0x1766…1787 at0005 = ╱22╱"╱ // 0x176b @0x5
0x1766…1787 at0006 = ╱55╱U╱ // 0x176c @0x6
0x1766…1787 at0007 = ╱6e╱n╱ // 0x176d @0x7
0x1766…1787 at0008 = ╱64╱d╱ // 0x176e @0x8
0x1766…1787 at0009 = ╱65╱e╱ // 0x176f @0x9
0x1766…1787 at000a = ╱72╱r╱ // 0x1770 @0xa
0x1766…1787 at000b = ╱6b╱k╱ // 0x1771 @0xb
0x1766…1787 at000c = ╱6f╱o╱ // 0x1772 @0xc
0x1766…1787 at000d = ╱6e╱n╱ // 0x1773 @0xd
0x1766…1787 at000e = ╱74╱t╱ // 0x1774 @0xe
0x1766…1787 at000f = ╱6f╱o╱ // 0x1775 @0xf
0x1766…1787 at0010 = ╱76╱v╱ // 0x1776 @0x10
0x1766…1787 at0011 = ╱65╱e╱ // 0x1777 @0x11
0x1766…1787 at0012 = ╱64╱d╱ // 0x1778 @0x12
0x1766…1787 at0013 = ╱6c╱l╱ // 0x1779 @0x13
0x1766…1787 at0014 = ╱69╱i╱ // 0x177a @0x14
0x1766…1787 at0015 = ╱67╱g╱ // 0x177b @0x15
0x1766…1787 at0016 = ╱65╱e╱ // 0x177c @0x16
0x1766…1787 at0017 = ╱68╱h╱ // 0x177d @0x17
0x1766…1787 at0018 = ╱6f╱o╱ // 0x177e @0x18
0x1766…1787 at0019 = ╱6c╱l╱ // 0x177f @0x19
0x1766…1787 at001a = ╱64╱d╱ // 0x1780 @0x1a
0x1766…1787 at001b = ╱65╱e╱ // 0x1781 @0x1b
0x1766…1787 at001c = ╱6c╱l╱ // 0x1782 @0x1c
0x1766…1787 at001d = ╱73╱s╱ // 0x1783 @0x1d
0x1766…1787 at001e = ╱65╱e╱ // 0x1784 @0x1e
0x1766…1787 at001f = ╱22╱"╱ // 0x1785 @0x1f
0x1766…1787 at0020 = EOL // 0x1786 @0x20
0x1766…1787 }
0x1787…179b a4f2 2960 CURSOR 21,5
0x1787…179b LineComalBin {
0x1787…179b ptr = 0xa4f2 // 0x1787 @0x0
0x1787…179b lno = 0x0b90 // 0x1789 @0x2
0x1787…179b at0004 = ╱a1╱ CURSOR ╱ // 0x178b @0x4
0x1787…179b at0005 = ╱32╱2╱ // 0x178c @0x5
0x1787…179b at0006 = ╱31╱1╱ // 0x178d @0x6
0x1787…179b at0007 = ╱fe0000a805╱ // 0x178e @0x7
0x1787…179b at000c = ╱ec╱,╱ // 0x1793 @0xc
0x1787…179b at000d = ╱35╱5╱ // 0x1794 @0xd
0x1787…179b at000e = ╱fe0000a003╱ // 0x1795 @0xe
0x1787…179b at0013 = EOL // 0x179a @0x13
0x1787…179b }
0x179b…17ab a502 2970 PRINT "0:Færdig"
0x179b…17ab LineComalBin {
0x179b…17ab ptr = 0xa502 // 0x179b @0x0
0x179b…17ab lno = 0x0b9a // 0x179d @0x2
0x179b…17ab at0004 = ╱92╱ PRINT ╱ // 0x179f @0x4
0x179b…17ab at0005 = ╱22╱"╱ // 0x17a0 @0x5
0x179b…17ab at0006 = ╱30╱0╱ // 0x17a1 @0x6
0x179b…17ab at0007 = ╱3a╱:╱ // 0x17a2 @0x7
0x179b…17ab at0008 = ╱46╱F╱ // 0x17a3 @0x8
0x179b…17ab at0009 = ╱7b╱æ╱ // 0x17a4 @0x9
0x179b…17ab at000a = ╱72╱r╱ // 0x17a5 @0xa
0x179b…17ab at000b = ╱64╱d╱ // 0x17a6 @0xb
0x179b…17ab at000c = ╱69╱i╱ // 0x17a7 @0xc
0x179b…17ab at000d = ╱67╱g╱ // 0x17a8 @0xd
0x179b…17ab at000e = ╱22╱"╱ // 0x17a9 @0xe
0x179b…17ab at000f = EOL // 0x17aa @0xf
0x179b…17ab }
0x17ab…17bf a516 2980 CURSOR 21,7
0x17ab…17bf LineComalBin {
0x17ab…17bf ptr = 0xa516 // 0x17ab @0x0
0x17ab…17bf lno = 0x0ba4 // 0x17ad @0x2
0x17ab…17bf at0004 = ╱a1╱ CURSOR ╱ // 0x17af @0x4
0x17ab…17bf at0005 = ╱32╱2╱ // 0x17b0 @0x5
0x17ab…17bf at0006 = ╱31╱1╱ // 0x17b1 @0x6
0x17ab…17bf at0007 = ╱fe0000a805╱ // 0x17b2 @0x7
0x17ab…17bf at000c = ╱ec╱,╱ // 0x17b7 @0xc
0x17ab…17bf at000d = ╱37╱7╱ // 0x17b8 @0xd
0x17ab…17bf at000e = ╱fe0000e003╱ // 0x17b9 @0xe
0x17ab…17bf at0013 = EOL // 0x17be @0x13
0x17ab…17bf }
0x17bf…17d3 a52a 2990 PRINT "1:Oprettelse"
0x17bf…17d3 LineComalBin {
0x17bf…17d3 ptr = 0xa52a // 0x17bf @0x0
0x17bf…17d3 lno = 0x0bae // 0x17c1 @0x2
0x17bf…17d3 at0004 = ╱92╱ PRINT ╱ // 0x17c3 @0x4
0x17bf…17d3 at0005 = ╱22╱"╱ // 0x17c4 @0x5
0x17bf…17d3 at0006 = ╱31╱1╱ // 0x17c5 @0x6
0x17bf…17d3 at0007 = ╱3a╱:╱ // 0x17c6 @0x7
0x17bf…17d3 at0008 = ╱4f╱O╱ // 0x17c7 @0x8
0x17bf…17d3 at0009 = ╱70╱p╱ // 0x17c8 @0x9
0x17bf…17d3 at000a = ╱72╱r╱ // 0x17c9 @0xa
0x17bf…17d3 at000b = ╱65╱e╱ // 0x17ca @0xb
0x17bf…17d3 at000c = ╱74╱t╱ // 0x17cb @0xc
0x17bf…17d3 at000d = ╱74╱t╱ // 0x17cc @0xd
0x17bf…17d3 at000e = ╱65╱e╱ // 0x17cd @0xe
0x17bf…17d3 at000f = ╱6c╱l╱ // 0x17ce @0xf
0x17bf…17d3 at0010 = ╱73╱s╱ // 0x17cf @0x10
0x17bf…17d3 at0011 = ╱65╱e╱ // 0x17d0 @0x11
0x17bf…17d3 at0012 = ╱22╱"╱ // 0x17d1 @0x12
0x17bf…17d3 at0013 = EOL // 0x17d2 @0x13
0x17bf…17d3 }
0x17d3…17e2 a539 3000 CURSOR 21,W
0x17d3…17e2 LineComalBin {
0x17d3…17e2 ptr = 0xa539 // 0x17d3 @0x0
0x17d3…17e2 lno = 0x0bb8 // 0x17d5 @0x2
0x17d3…17e2 at0004 = ╱a1╱ CURSOR ╱ // 0x17d7 @0x4
0x17d3…17e2 at0005 = ╱32╱2╱ // 0x17d8 @0x5
0x17d3…17e2 at0006 = ╱31╱1╱ // 0x17d9 @0x6
0x17d3…17e2 at0007 = ╱fe0000a805╱ // 0x17da @0x7
0x17d3…17e2 at000c = ╱ec╱,╱ // 0x17df @0xc
0x17d3…17e2 at000d = ╱57╱W╱ // 0x17e0 @0xd
0x17d3…17e2 at000e = EOL // 0x17e1 @0xe
0x17d3…17e2 }
0x17e2…17f3 a54a 3010 PRINT "2:Ændring"
0x17e2…17f3 LineComalBin {
0x17e2…17f3 ptr = 0xa54a // 0x17e2 @0x0
0x17e2…17f3 lno = 0x0bc2 // 0x17e4 @0x2
0x17e2…17f3 at0004 = ╱92╱ PRINT ╱ // 0x17e6 @0x4
0x17e2…17f3 at0005 = ╱22╱"╱ // 0x17e7 @0x5
0x17e2…17f3 at0006 = ╱32╱2╱ // 0x17e8 @0x6
0x17e2…17f3 at0007 = ╱3a╱:╱ // 0x17e9 @0x7
0x17e2…17f3 at0008 = ╱5b╱Æ╱ // 0x17ea @0x8
0x17e2…17f3 at0009 = ╱6e╱n╱ // 0x17eb @0x9
0x17e2…17f3 at000a = ╱64╱d╱ // 0x17ec @0xa
0x17e2…17f3 at000b = ╱72╱r╱ // 0x17ed @0xb
0x17e2…17f3 at000c = ╱69╱i╱ // 0x17ee @0xc
0x17e2…17f3 at000d = ╱6e╱n╱ // 0x17ef @0xd
0x17e2…17f3 at000e = ╱67╱g╱ // 0x17f0 @0xe
0x17e2…17f3 at000f = ╱22╱"╱ // 0x17f1 @0xf
0x17e2…17f3 at0010 = EOL // 0x17f2 @0x10
0x17e2…17f3 }
0x17f3…1808 a55f 3020 CURSOR 21,11
0x17f3…1808 LineComalBin {
0x17f3…1808 ptr = 0xa55f // 0x17f3 @0x0
0x17f3…1808 lno = 0x0bcc // 0x17f5 @0x2
0x17f3…1808 at0004 = ╱a1╱ CURSOR ╱ // 0x17f7 @0x4
0x17f3…1808 at0005 = ╱32╱2╱ // 0x17f8 @0x5
0x17f3…1808 at0006 = ╱31╱1╱ // 0x17f9 @0x6
0x17f3…1808 at0007 = ╱fe0000a805╱ // 0x17fa @0x7
0x17f3…1808 at000c = ╱ec╱,╱ // 0x17ff @0xc
0x17f3…1808 at000d = ╱31╱1╱ // 0x1800 @0xd
0x17f3…1808 at000e = ╱31╱1╱ // 0x1801 @0xe
0x17f3…1808 at000f = ╱fe0000b004╱ // 0x1802 @0xf
0x17f3…1808 at0014 = EOL // 0x1807 @0x14
0x17f3…1808 }
0x1808…181a a571 3030 PRINT "3:Sletning"
0x1808…181a LineComalBin {
0x1808…181a ptr = 0xa571 // 0x1808 @0x0
0x1808…181a lno = 0x0bd6 // 0x180a @0x2
0x1808…181a at0004 = ╱92╱ PRINT ╱ // 0x180c @0x4
0x1808…181a at0005 = ╱22╱"╱ // 0x180d @0x5
0x1808…181a at0006 = ╱33╱3╱ // 0x180e @0x6
0x1808…181a at0007 = ╱3a╱:╱ // 0x180f @0x7
0x1808…181a at0008 = ╱53╱S╱ // 0x1810 @0x8
0x1808…181a at0009 = ╱6c╱l╱ // 0x1811 @0x9
0x1808…181a at000a = ╱65╱e╱ // 0x1812 @0xa
0x1808…181a at000b = ╱74╱t╱ // 0x1813 @0xb
0x1808…181a at000c = ╱6e╱n╱ // 0x1814 @0xc
0x1808…181a at000d = ╱69╱i╱ // 0x1815 @0xd
0x1808…181a at000e = ╱6e╱n╱ // 0x1816 @0xe
0x1808…181a at000f = ╱67╱g╱ // 0x1817 @0xf
0x1808…181a at0010 = ╱22╱"╱ // 0x1818 @0x10
0x1808…181a at0011 = EOL // 0x1819 @0x11
0x1808…181a }
0x181a…182f a586 3040 CURSOR 21,13
0x181a…182f LineComalBin {
0x181a…182f ptr = 0xa586 // 0x181a @0x0
0x181a…182f lno = 0x0be0 // 0x181c @0x2
0x181a…182f at0004 = ╱a1╱ CURSOR ╱ // 0x181e @0x4
0x181a…182f at0005 = ╱32╱2╱ // 0x181f @0x5
0x181a…182f at0006 = ╱31╱1╱ // 0x1820 @0x6
0x181a…182f at0007 = ╱fe0000a805╱ // 0x1821 @0x7
0x181a…182f at000c = ╱ec╱,╱ // 0x1826 @0xc
0x181a…182f at000d = ╱31╱1╱ // 0x1827 @0xd
0x181a…182f at000e = ╱33╱3╱ // 0x1828 @0xe
0x181a…182f at000f = ╱fe0000d004╱ // 0x1829 @0xf
0x181a…182f at0014 = EOL // 0x182e @0x14
0x181a…182f }
0x182f…1841 a598 3050 PRINT "4:Udskrift"
0x182f…1841 LineComalBin {
0x182f…1841 ptr = 0xa598 // 0x182f @0x0
0x182f…1841 lno = 0x0bea // 0x1831 @0x2
0x182f…1841 at0004 = ╱92╱ PRINT ╱ // 0x1833 @0x4
0x182f…1841 at0005 = ╱22╱"╱ // 0x1834 @0x5
0x182f…1841 at0006 = ╱34╱4╱ // 0x1835 @0x6
0x182f…1841 at0007 = ╱3a╱:╱ // 0x1836 @0x7
0x182f…1841 at0008 = ╱55╱U╱ // 0x1837 @0x8
0x182f…1841 at0009 = ╱64╱d╱ // 0x1838 @0x9
0x182f…1841 at000a = ╱73╱s╱ // 0x1839 @0xa
0x182f…1841 at000b = ╱6b╱k╱ // 0x183a @0xb
0x182f…1841 at000c = ╱72╱r╱ // 0x183b @0xc
0x182f…1841 at000d = ╱69╱i╱ // 0x183c @0xd
0x182f…1841 at000e = ╱66╱f╱ // 0x183d @0xe
0x182f…1841 at000f = ╱74╱t╱ // 0x183e @0xf
0x182f…1841 at0010 = ╱22╱"╱ // 0x183f @0x10
0x182f…1841 at0011 = EOL // 0x1840 @0x11
0x182f…1841 }
0x1841…1856 a5ad 3060 CURSOR 21,15
0x1841…1856 LineComalBin {
0x1841…1856 ptr = 0xa5ad // 0x1841 @0x0
0x1841…1856 lno = 0x0bf4 // 0x1843 @0x2
0x1841…1856 at0004 = ╱a1╱ CURSOR ╱ // 0x1845 @0x4
0x1841…1856 at0005 = ╱32╱2╱ // 0x1846 @0x5
0x1841…1856 at0006 = ╱31╱1╱ // 0x1847 @0x6
0x1841…1856 at0007 = ╱fe0000a805╱ // 0x1848 @0x7
0x1841…1856 at000c = ╱ec╱,╱ // 0x184d @0xc
0x1841…1856 at000d = ╱31╱1╱ // 0x184e @0xd
0x1841…1856 at000e = ╱35╱5╱ // 0x184f @0xe
0x1841…1856 at000f = ╱fe0000f004╱ // 0x1850 @0xf
0x1841…1856 at0014 = EOL // 0x1855 @0x14
0x1841…1856 }
0x1856…186f a5c6 3070 PRINT "5:Underkontoliste"
0x1856…186f LineComalBin {
0x1856…186f ptr = 0xa5c6 // 0x1856 @0x0
0x1856…186f lno = 0x0bfe // 0x1858 @0x2
0x1856…186f at0004 = ╱92╱ PRINT ╱ // 0x185a @0x4
0x1856…186f at0005 = ╱22╱"╱ // 0x185b @0x5
0x1856…186f at0006 = ╱35╱5╱ // 0x185c @0x6
0x1856…186f at0007 = ╱3a╱:╱ // 0x185d @0x7
0x1856…186f at0008 = ╱55╱U╱ // 0x185e @0x8
0x1856…186f at0009 = ╱6e╱n╱ // 0x185f @0x9
0x1856…186f at000a = ╱64╱d╱ // 0x1860 @0xa
0x1856…186f at000b = ╱65╱e╱ // 0x1861 @0xb
0x1856…186f at000c = ╱72╱r╱ // 0x1862 @0xc
0x1856…186f at000d = ╱6b╱k╱ // 0x1863 @0xd
0x1856…186f at000e = ╱6f╱o╱ // 0x1864 @0xe
0x1856…186f at000f = ╱6e╱n╱ // 0x1865 @0xf
0x1856…186f at0010 = ╱74╱t╱ // 0x1866 @0x10
0x1856…186f at0011 = ╱6f╱o╱ // 0x1867 @0x11
0x1856…186f at0012 = ╱6c╱l╱ // 0x1868 @0x12
0x1856…186f at0013 = ╱69╱i╱ // 0x1869 @0x13
0x1856…186f at0014 = ╱73╱s╱ // 0x186a @0x14
0x1856…186f at0015 = ╱74╱t╱ // 0x186b @0x15
0x1856…186f at0016 = ╱65╱e╱ // 0x186c @0x16
0x1856…186f at0017 = ╱22╱"╱ // 0x186d @0x17
0x1856…186f at0018 = EOL // 0x186e @0x18
0x1856…186f }
0x186f…1875 a5cc 3080 REPEAT
0x186f…1875 LineComalBin {
0x186f…1875 ptr = 0xa5cc // 0x186f @0x0
0x186f…1875 lno = 0x0c08 // 0x1871 @0x2
0x186f…1875 at0004 = ╱97╱ REPEAT ╱ // 0x1873 @0x4
0x186f…1875 at0005 = EOL // 0x1874 @0x5
0x186f…1875 }
0x1875…188a a5e1 3090 CURSOR 23,17
0x1875…188a LineComalBin {
0x1875…188a ptr = 0xa5e1 // 0x1875 @0x0
0x1875…188a lno = 0x0c12 // 0x1877 @0x2
0x1875…188a at0004 = ╱a1╱ CURSOR ╱ // 0x1879 @0x4
0x1875…188a at0005 = ╱32╱2╱ // 0x187a @0x5
0x1875…188a at0006 = ╱33╱3╱ // 0x187b @0x6
0x1875…188a at0007 = ╱fe0000b805╱ // 0x187c @0x7
0x1875…188a at000c = ╱ec╱,╱ // 0x1881 @0xc
0x1875…188a at000d = ╱31╱1╱ // 0x1882 @0xd
0x1875…188a at000e = ╱37╱7╱ // 0x1883 @0xe
0x1875…188a at000f = ╱fe00008805╱ // 0x1884 @0xf
0x1875…188a at0014 = EOL // 0x1889 @0x14
0x1875…188a }
0x188a…18a5 a5fc 3100 PRINT "Vælg type (0-5)"
0x188a…18a5 LineComalBin {
0x188a…18a5 ptr = 0xa5fc // 0x188a @0x0
0x188a…18a5 lno = 0x0c1c // 0x188c @0x2
0x188a…18a5 at0004 = ╱92╱ PRINT ╱ // 0x188e @0x4
0x188a…18a5 at0005 = ╱22╱"╱ // 0x188f @0x5
0x188a…18a5 at0006 = ╱56╱V╱ // 0x1890 @0x6
0x188a…18a5 at0007 = ╱7b╱æ╱ // 0x1891 @0x7
0x188a…18a5 at0008 = ╱6c╱l╱ // 0x1892 @0x8
0x188a…18a5 at0009 = ╱67╱g╱ // 0x1893 @0x9
0x188a…18a5 at000a = ╱20╱…╱ // 0x1894 @0xa
0x188a…18a5 at000b = ╱74╱t╱ // 0x1895 @0xb
0x188a…18a5 at000c = ╱79╱y╱ // 0x1896 @0xc
0x188a…18a5 at000d = ╱70╱p╱ // 0x1897 @0xd
0x188a…18a5 at000e = ╱65╱e╱ // 0x1898 @0xe
0x188a…18a5 at000f = ╱20╱…╱ // 0x1899 @0xf
0x188a…18a5 at0010 = ╱20╱…╱ // 0x189a @0x10
0x188a…18a5 at0011 = ╱20╱…╱ // 0x189b @0x11
0x188a…18a5 at0012 = ╱20╱…╱ // 0x189c @0x12
0x188a…18a5 at0013 = ╱20╱…╱ // 0x189d @0x13
0x188a…18a5 at0014 = ╱28╱(╱ // 0x189e @0x14
0x188a…18a5 at0015 = ╱30╱0╱ // 0x189f @0x15
0x188a…18a5 at0016 = ╱2d╱-╱ // 0x18a0 @0x16
0x188a…18a5 at0017 = ╱35╱5╱ // 0x18a1 @0x17
0x188a…18a5 at0018 = ╱29╱)╱ // 0x18a2 @0x18
0x188a…18a5 at0019 = ╱22╱"╱ // 0x18a3 @0x19
0x188a…18a5 at001a = EOL // 0x18a4 @0x1a
0x188a…18a5 }
0x18a5…18ba a611 3110 CURSOR 33,17
0x18a5…18ba LineComalBin {
0x18a5…18ba ptr = 0xa611 // 0x18a5 @0x0
0x18a5…18ba lno = 0x0c26 // 0x18a7 @0x2
0x18a5…18ba at0004 = ╱a1╱ CURSOR ╱ // 0x18a9 @0x4
0x18a5…18ba at0005 = ╱33╱3╱ // 0x18aa @0x5
0x18a5…18ba at0006 = ╱33╱3╱ // 0x18ab @0x6
0x18a5…18ba at0007 = ╱fe00008406╱ // 0x18ac @0x7
0x18a5…18ba at000c = ╱ec╱,╱ // 0x18b1 @0xc
0x18a5…18ba at000d = ╱31╱1╱ // 0x18b2 @0xd
0x18a5…18ba at000e = ╱37╱7╱ // 0x18b3 @0xe
0x18a5…18ba at000f = ╱fe00008805╱ // 0x18b4 @0xf
0x18a5…18ba at0014 = EOL // 0x18b9 @0x14
0x18a5…18ba }
0x18ba…18c2 a619 3120 INPUT A$
0x18ba…18c2 LineComalBin {
0x18ba…18c2 ptr = 0xa619 // 0x18ba @0x0
0x18ba…18c2 lno = 0x0c30 // 0x18bc @0x2
0x18ba…18c2 at0004 = ╱91╱ INPUT ╱ // 0x18be @0x4
0x18ba…18c2 at0005 = ╱41╱A╱ // 0x18bf @0x5
0x18ba…18c2 at0006 = ╱ef╱$╱ // 0x18c0 @0x6
0x18ba…18c2 at0007 = EOL // 0x18c1 @0x7
0x18ba…18c2 }
0x18c2…18d2 a629 3130 EXEC NRTEST(A$)
0x18c2…18d2 LineComalBin {
0x18c2…18d2 ptr = 0xa629 // 0x18c2 @0x0
0x18c2…18d2 lno = 0x0c3a // 0x18c4 @0x2
0x18c2…18d2 at0004 = ╱9d╱ EXEC ╱ // 0x18c6 @0x4
0x18c2…18d2 at0005 = ╱4e╱N╱ // 0x18c7 @0x5
0x18c2…18d2 at0006 = ╱52╱R╱ // 0x18c8 @0x6
0x18c2…18d2 at0007 = ╱54╱T╱ // 0x18c9 @0x7
0x18c2…18d2 at0008 = ╱45╱E╱ // 0x18ca @0x8
0x18c2…18d2 at0009 = ╱53╱S╱ // 0x18cb @0x9
0x18c2…18d2 at000a = ╱54╱T╱ // 0x18cc @0xa
0x18c2…18d2 at000b = ╱ed╱(╱ // 0x18cd @0xb
0x18c2…18d2 at000c = ╱41╱A╱ // 0x18ce @0xc
0x18c2…18d2 at000d = ╱ef╱$╱ // 0x18cf @0xd
0x18c2…18d2 at000e = ╱ee╱)╱ // 0x18d0 @0xe
0x18c2…18d2 at000f = EOL // 0x18d1 @0xf
0x18c2…18d2 }
0x18d2…18e5 a63c 3140 UNTIL P>-E AND P<6
0x18d2…18e5 LineComalBin {
0x18d2…18e5 ptr = 0xa63c // 0x18d2 @0x0
0x18d2…18e5 lno = 0x0c44 // 0x18d4 @0x2
0x18d2…18e5 at0004 = ╱98╱ UNTIL ╱ // 0x18d6 @0x4
0x18d2…18e5 at0005 = ╱50╱P╱ // 0x18d7 @0x5
0x18d2…18e5 at0006 = ╱de╱>╱ // 0x18d8 @0x6
0x18d2…18e5 at0007 = ╱e9╱-╱ // 0x18d9 @0x7
0x18d2…18e5 at0008 = ╱45╱E╱ // 0x18da @0x8
0x18d2…18e5 at0009 = ╱da╱ AND ╱ // 0x18db @0x9
0x18d2…18e5 at000a = ╱50╱P╱ // 0x18dc @0xa
0x18d2…18e5 at000b = ╱dd╱<╱ // 0x18dd @0xb
0x18d2…18e5 at000c = ╱36╱6╱ // 0x18de @0xc
0x18d2…18e5 at000d = ╱fe0000c003╱ // 0x18df @0xd
0x18d2…18e5 at0012 = EOL // 0x18e4 @0x12
0x18d2…18e5 }
0x18e5…18f0 a647 3150 TYPE=P
0x18e5…18f0 LineComalBin {
0x18e5…18f0 ptr = 0xa647 // 0x18e5 @0x0
0x18e5…18f0 lno = 0x0c4e // 0x18e7 @0x2
0x18e5…18f0 at0004 = ╱54╱T╱ // 0x18e9 @0x4
0x18e5…18f0 at0005 = ╱59╱Y╱ // 0x18ea @0x5
0x18e5…18f0 at0006 = ╱50╱P╱ // 0x18eb @0x6
0x18e5…18f0 at0007 = ╱45╱E╱ // 0x18ec @0x7
0x18e5…18f0 at0008 = ╱dc╱=╱ // 0x18ed @0x8
0x18e5…18f0 at0009 = ╱50╱P╱ // 0x18ee @0x9
0x18e5…18f0 at000a = EOL // 0x18ef @0xa
0x18e5…18f0 }
0x18f0…18fe a655 3160 IF TYPE=B THEN EXIT
0x18f0…18fe LineComalBin {
0x18f0…18fe ptr = 0xa655 // 0x18f0 @0x0
0x18f0…18fe lno = 0x0c58 // 0x18f2 @0x2
0x18f0…18fe at0004 = ╱82╱ IF ╱ // 0x18f4 @0x4
0x18f0…18fe at0005 = ╱54╱T╱ // 0x18f5 @0x5
0x18f0…18fe at0006 = ╱59╱Y╱ // 0x18f6 @0x6
0x18f0…18fe at0007 = ╱50╱P╱ // 0x18f7 @0x7
0x18f0…18fe at0008 = ╱45╱E╱ // 0x18f8 @0x8
0x18f0…18fe at0009 = ╱dc╱=╱ // 0x18f9 @0x9
0x18f0…18fe at000a = ╱42╱B╱ // 0x18fa @0xa
0x18f0…18fe at000b = ╱b6╱ THEN ╱ // 0x18fb @0xb
0x18f0…18fe at000c = ╱99╱ EXIT ╱ // 0x18fc @0xc
0x18f0…18fe at000d = EOL // 0x18fd @0xd
0x18f0…18fe }
0x18fe…1904 a65b 3170 REPEAT
0x18fe…1904 LineComalBin {
0x18fe…1904 ptr = 0xa65b // 0x18fe @0x0
0x18fe…1904 lno = 0x0c62 // 0x1900 @0x2
0x18fe…1904 at0004 = ╱97╱ REPEAT ╱ // 0x1902 @0x4
0x18fe…1904 at0005 = EOL // 0x1903 @0x5
0x18fe…1904 }
0x1904…1913 a66a 3180 EXEC VERSKRIFT
0x1904…1913 LineComalBin {
0x1904…1913 ptr = 0xa66a // 0x1904 @0x0
0x1904…1913 lno = 0x0c6c // 0x1906 @0x2
0x1904…1913 at0004 = ╱9d╱ EXEC ╱ // 0x1908 @0x4
0x1904…1913 at0005 = ╱56╱V╱ // 0x1909 @0x5
0x1904…1913 at0006 = ╱45╱E╱ // 0x190a @0x6
0x1904…1913 at0007 = ╱52╱R╱ // 0x190b @0x7
0x1904…1913 at0008 = ╱53╱S╱ // 0x190c @0x8
0x1904…1913 at0009 = ╱4b╱K╱ // 0x190d @0x9
0x1904…1913 at000a = ╱52╱R╱ // 0x190e @0xa
0x1904…1913 at000b = ╱49╱I╱ // 0x190f @0xb
0x1904…1913 at000c = ╱46╱F╱ // 0x1910 @0xc
0x1904…1913 at000d = ╱54╱T╱ // 0x1911 @0xd
0x1904…1913 at000e = EOL // 0x1912 @0xe
0x1904…1913 }
0x1913…192c a683 3190 TEST=B;FNR=E;UPIL3=E
0x1913…192c LineComalBin {
0x1913…192c ptr = 0xa683 // 0x1913 @0x0
0x1913…192c lno = 0x0c76 // 0x1915 @0x2
0x1913…192c at0004 = ╱54╱T╱ // 0x1917 @0x4
0x1913…192c at0005 = ╱45╱E╱ // 0x1918 @0x5
0x1913…192c at0006 = ╱53╱S╱ // 0x1919 @0x6
0x1913…192c at0007 = ╱54╱T╱ // 0x191a @0x7
0x1913…192c at0008 = ╱dc╱=╱ // 0x191b @0x8
0x1913…192c at0009 = ╱42╱B╱ // 0x191c @0x9
0x1913…192c at000a = ╱eb╱;╱ // 0x191d @0xa
0x1913…192c at000b = ╱46╱F╱ // 0x191e @0xb
0x1913…192c at000c = ╱4e╱N╱ // 0x191f @0xc
0x1913…192c at000d = ╱52╱R╱ // 0x1920 @0xd
0x1913…192c at000e = ╱dc╱=╱ // 0x1921 @0xe
0x1913…192c at000f = ╱45╱E╱ // 0x1922 @0xf
0x1913…192c at0010 = ╱eb╱;╱ // 0x1923 @0x10
0x1913…192c at0011 = ╱55╱U╱ // 0x1924 @0x11
0x1913…192c at0012 = ╱50╱P╱ // 0x1925 @0x12
0x1913…192c at0013 = ╱49╱I╱ // 0x1926 @0x13
0x1913…192c at0014 = ╱4c╱L╱ // 0x1927 @0x14
0x1913…192c at0015 = ╱33╱3╱ // 0x1928 @0x15
0x1913…192c at0016 = ╱dc╱=╱ // 0x1929 @0x16
0x1913…192c at0017 = ╱45╱E╱ // 0x192a @0x17
0x1913…192c at0018 = EOL // 0x192b @0x18
0x1913…192c }
0x192c…193e a695 3200 IF TYPE<5 THEN
0x192c…193e LineComalBin {
0x192c…193e ptr = 0xa695 // 0x192c @0x0
0x192c…193e lno = 0x0c80 // 0x192e @0x2
0x192c…193e at0004 = ╱9c╱ IF ╱ // 0x1930 @0x4
0x192c…193e at0005 = ╱54╱T╱ // 0x1931 @0x5
0x192c…193e at0006 = ╱59╱Y╱ // 0x1932 @0x6
0x192c…193e at0007 = ╱50╱P╱ // 0x1933 @0x7
0x192c…193e at0008 = ╱45╱E╱ // 0x1934 @0x8
0x192c…193e at0009 = ╱dd╱<╱ // 0x1935 @0x9
0x192c…193e at000a = ╱35╱5╱ // 0x1936 @0xa
0x192c…193e at000b = ╱fe0000a003╱ // 0x1937 @0xb
0x192c…193e at0010 = ╱b6╱ THEN ╱ // 0x193c @0x10
0x192c…193e at0011 = EOL // 0x193d @0x11
0x192c…193e }
0x193e…1944 a69b 3210 REPEAT
0x193e…1944 LineComalBin {
0x193e…1944 ptr = 0xa69b // 0x193e @0x0
0x193e…1944 lno = 0x0c8a // 0x1940 @0x2
0x193e…1944 at0004 = ╱97╱ REPEAT ╱ // 0x1942 @0x4
0x193e…1944 at0005 = EOL // 0x1943 @0x5
0x193e…1944 }
0x1944…194a (84,) a6a1 3220 REPEAT
0x1944…194a LineComalBin {
0x1944…194a ptr = 0xa6a1 // 0x1944 @0x0
0x1944…194a lno = 0x0c94 // 0x1946 @0x2
0x1944…194a at0004 = ╱97╱ REPEAT ╱ // 0x1948 @0x4
0x1944…194a at0005 = EOL // 0x1949 @0x5
0x1944…194a }
0x194a…1959 a6b0 3230 CURSOR V,23
0x194a…1959 LineComalBin {
0x194a…1959 ptr = 0xa6b0 // 0x194a @0x0
0x194a…1959 lno = 0x0c9e // 0x194c @0x2
0x194a…1959 at0004 = ╱a1╱ CURSOR ╱ // 0x194e @0x4
0x194a…1959 at0005 = ╱56╱V╱ // 0x194f @0x5
0x194a…1959 at0006 = ╱ec╱,╱ // 0x1950 @0x6
0x194a…1959 at0007 = ╱32╱2╱ // 0x1951 @0x7
0x194a…1959 at0008 = ╱33╱3╱ // 0x1952 @0x8
0x194a…1959 at0009 = ╱fe0000b805╱ // 0x1953 @0x9
0x194a…1959 at000e = EOL // 0x1958 @0xe
0x194a…1959 }
0x1959…199c a6f3 3240 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35)
0x1959…199c LineComalBin {
0x1959…199c ptr = 0xa6f3 // 0x1959 @0x0
0x1959…199c lno = 0x0ca8 // 0x195b @0x2
0x1959…199c at0004 = ╱92╱ PRINT ╱ // 0x195d @0x4
0x1959…199c at0005 = ╱22╱"╱ // 0x195e @0x5
0x1959…199c at0006 = ╱49╱I╱ // 0x195f @0x6
0x1959…199c at0007 = ╱6e╱n╱ // 0x1960 @0x7
0x1959…199c at0008 = ╱64╱d╱ // 0x1961 @0x8
0x1959…199c at0009 = ╱74╱t╱ // 0x1962 @0x9
0x1959…199c at000a = ╱61╱a╱ // 0x1963 @0xa
0x1959…199c at000b = ╱73╱s╱ // 0x1964 @0xb
0x1959…199c at000c = ╱74╱t╱ // 0x1965 @0xc
0x1959…199c at000d = ╱20╱…╱ // 0x1966 @0xd
0x1959…199c at000e = ╱6e╱n╱ // 0x1967 @0xe
0x1959…199c at000f = ╱79╱y╱ // 0x1968 @0xf
0x1959…199c at0010 = ╱74╱t╱ // 0x1969 @0x10
0x1959…199c at0011 = ╱20╱…╱ // 0x196a @0x11
0x1959…199c at0012 = ╱6b╱k╱ // 0x196b @0x12
0x1959…199c at0013 = ╱6f╱o╱ // 0x196c @0x13
0x1959…199c at0014 = ╱6e╱n╱ // 0x196d @0x14
0x1959…199c at0015 = ╱74╱t╱ // 0x196e @0x15
0x1959…199c at0016 = ╱6f╱o╱ // 0x196f @0x16
0x1959…199c at0017 = ╱6e╱n╱ // 0x1970 @0x17
0x1959…199c at0018 = ╱72╱r╱ // 0x1971 @0x18
0x1959…199c at0019 = ╱20╱…╱ // 0x1972 @0x19
0x1959…199c at001a = ╱20╱…╱ // 0x1973 @0x1a
0x1959…199c at001b = ╱20╱…╱ // 0x1974 @0x1b
0x1959…199c at001c = ╱20╱…╱ // 0x1975 @0x1c
0x1959…199c at001d = ╱20╱…╱ // 0x1976 @0x1d
0x1959…199c at001e = ╱20╱…╱ // 0x1977 @0x1e
0x1959…199c at001f = ╱20╱…╱ // 0x1978 @0x1f
0x1959…199c at0020 = ╱20╱…╱ // 0x1979 @0x20
0x1959…199c at0021 = ╱28╱(╱ // 0x197a @0x21
0x1959…199c at0022 = ╱30╱0╱ // 0x197b @0x22
0x1959…199c at0023 = ╱3a╱:╱ // 0x197c @0x23
0x1959…199c at0024 = ╱66╱f╱ // 0x197d @0x24
0x1959…199c at0025 = ╱6f╱o╱ // 0x197e @0x25
0x1959…199c at0026 = ╱72╱r╱ // 0x197f @0x26
0x1959…199c at0027 = ╱20╱…╱ // 0x1980 @0x27
0x1959…199c at0028 = ╱66╱f╱ // 0x1981 @0x28
0x1959…199c at0029 = ╱7b╱æ╱ // 0x1982 @0x29
0x1959…199c at002a = ╱72╱r╱ // 0x1983 @0x2a
0x1959…199c at002b = ╱64╱d╱ // 0x1984 @0x2b
0x1959…199c at002c = ╱69╱i╱ // 0x1985 @0x2c
0x1959…199c at002d = ╱67╱g╱ // 0x1986 @0x2d
0x1959…199c at002e = ╱29╱)╱ // 0x1987 @0x2e
0x1959…199c at002f = ╱22╱"╱ // 0x1988 @0x2f
0x1959…199c at0030 = ╱eb╱;╱ // 0x1989 @0x30
0x1959…199c at0031 = ╱42╱B╱ // 0x198a @0x31
0x1959…199c at0032 = ╱4c╱L╱ // 0x198b @0x32
0x1959…199c at0033 = ╱41╱A╱ // 0x198c @0x33
0x1959…199c at0034 = ╱4e╱N╱ // 0x198d @0x34
0x1959…199c at0035 = ╱4b╱K╱ // 0x198e @0x35
0x1959…199c at0036 = ╱ef╱$╱ // 0x198f @0x36
0x1959…199c at0037 = ╱ed╱(╱ // 0x1990 @0x37
0x1959…199c at0038 = ╱45╱E╱ // 0x1991 @0x38
0x1959…199c at0039 = ╱f0╱:╱ // 0x1992 @0x39
0x1959…199c at003a = ╱33╱3╱ // 0x1993 @0x3a
0x1959…199c at003b = ╱35╱5╱ // 0x1994 @0x3b
0x1959…199c at003c = ╱fe00008c06╱ // 0x1995 @0x3c
0x1959…199c at0041 = ╱ee╱)╱ // 0x199a @0x41
0x1959…199c at0042 = EOL // 0x199b @0x42
0x1959…199c }
0x199c…19b1 a708 3250 CURSOR 22,23
0x199c…19b1 LineComalBin {
0x199c…19b1 ptr = 0xa708 // 0x199c @0x0
0x199c…19b1 lno = 0x0cb2 // 0x199e @0x2
0x199c…19b1 at0004 = ╱a1╱ CURSOR ╱ // 0x19a0 @0x4
0x199c…19b1 at0005 = ╱32╱2╱ // 0x19a1 @0x5
0x199c…19b1 at0006 = ╱32╱2╱ // 0x19a2 @0x6
0x199c…19b1 at0007 = ╱fe0000b005╱ // 0x19a3 @0x7
0x199c…19b1 at000c = ╱ec╱,╱ // 0x19a8 @0xc
0x199c…19b1 at000d = ╱32╱2╱ // 0x19a9 @0xd
0x199c…19b1 at000e = ╱33╱3╱ // 0x19aa @0xe
0x199c…19b1 at000f = ╱fe0000b805╱ // 0x19ab @0xf
0x199c…19b1 at0014 = EOL // 0x19b0 @0x14
0x199c…19b1 }
0x19b1…19bb a712 3260 INPUT KTN$
0x19b1…19bb LineComalBin {
0x19b1…19bb ptr = 0xa712 // 0x19b1 @0x0
0x19b1…19bb lno = 0x0cbc // 0x19b3 @0x2
0x19b1…19bb at0004 = ╱91╱ INPUT ╱ // 0x19b5 @0x4
0x19b1…19bb at0005 = ╱4b╱K╱ // 0x19b6 @0x5
0x19b1…19bb at0006 = ╱54╱T╱ // 0x19b7 @0x6
0x19b1…19bb at0007 = ╱4e╱N╱ // 0x19b8 @0x7
0x19b1…19bb at0008 = ╱ef╱$╱ // 0x19b9 @0x8
0x19b1…19bb at0009 = EOL // 0x19ba @0x9
0x19b1…19bb }
0x19bb…19cd a724 3270 EXEC NRTEST(KTN$)
0x19bb…19cd LineComalBin {
0x19bb…19cd ptr = 0xa724 // 0x19bb @0x0
0x19bb…19cd lno = 0x0cc6 // 0x19bd @0x2
0x19bb…19cd at0004 = ╱9d╱ EXEC ╱ // 0x19bf @0x4
0x19bb…19cd at0005 = ╱4e╱N╱ // 0x19c0 @0x5
0x19bb…19cd at0006 = ╱52╱R╱ // 0x19c1 @0x6
0x19bb…19cd at0007 = ╱54╱T╱ // 0x19c2 @0x7
0x19bb…19cd at0008 = ╱45╱E╱ // 0x19c3 @0x8
0x19bb…19cd at0009 = ╱53╱S╱ // 0x19c4 @0x9
0x19bb…19cd at000a = ╱54╱T╱ // 0x19c5 @0xa
0x19bb…19cd at000b = ╱ed╱(╱ // 0x19c6 @0xb
0x19bb…19cd at000c = ╱4b╱K╱ // 0x19c7 @0xc
0x19bb…19cd at000d = ╱54╱T╱ // 0x19c8 @0xd
0x19bb…19cd at000e = ╱4e╱N╱ // 0x19c9 @0xe
0x19bb…19cd at000f = ╱ef╱$╱ // 0x19ca @0xf
0x19bb…19cd at0010 = ╱ee╱)╱ // 0x19cb @0x10
0x19bb…19cd at0011 = EOL // 0x19cc @0x11
0x19bb…19cd }
0x19cd…19e5 a73c 3280 UNTIL P>W AND P<100 OR P=B
0x19cd…19e5 LineComalBin {
0x19cd…19e5 ptr = 0xa73c // 0x19cd @0x0
0x19cd…19e5 lno = 0x0cd0 // 0x19cf @0x2
0x19cd…19e5 at0004 = ╱98╱ UNTIL ╱ // 0x19d1 @0x4
0x19cd…19e5 at0005 = ╱50╱P╱ // 0x19d2 @0x5
0x19cd…19e5 at0006 = ╱de╱>╱ // 0x19d3 @0x6
0x19cd…19e5 at0007 = ╱57╱W╱ // 0x19d4 @0x7
0x19cd…19e5 at0008 = ╱da╱ AND ╱ // 0x19d5 @0x8
0x19cd…19e5 at0009 = ╱50╱P╱ // 0x19d6 @0x9
0x19cd…19e5 at000a = ╱dd╱<╱ // 0x19d7 @0xa
0x19cd…19e5 at000b = ╱31╱1╱ // 0x19d8 @0xb
0x19cd…19e5 at000c = ╱30╱0╱ // 0x19d9 @0xc
0x19cd…19e5 at000d = ╱30╱0╱ // 0x19da @0xd
0x19cd…19e5 at000e = ╱fe0000c807╱ // 0x19db @0xe
0x19cd…19e5 at0013 = ╱db╱ OR ╱ // 0x19e0 @0x13
0x19cd…19e5 at0014 = ╱50╱P╱ // 0x19e1 @0x14
0x19cd…19e5 at0015 = ╱dc╱=╱ // 0x19e2 @0x15
0x19cd…19e5 at0016 = ╱42╱B╱ // 0x19e3 @0x16
0x19cd…19e5 at0017 = EOL // 0x19e4 @0x17
0x19cd…19e5 }
0x19e5…19ef a746 3290 FNR=P
0x19e5…19ef LineComalBin {
0x19e5…19ef ptr = 0xa746 // 0x19e5 @0x0
0x19e5…19ef lno = 0x0cda // 0x19e7 @0x2
0x19e5…19ef at0004 = ╱46╱F╱ // 0x19e9 @0x4
0x19e5…19ef at0005 = ╱4e╱N╱ // 0x19ea @0x5
0x19e5…19ef at0006 = ╱52╱R╱ // 0x19eb @0x6
0x19e5…19ef at0007 = ╱dc╱=╱ // 0x19ec @0x7
0x19e5…19ef at0008 = ╱50╱P╱ // 0x19ed @0x8
0x19e5…19ef at0009 = EOL // 0x19ee @0x9
0x19e5…19ef }
0x19ef…19fc a753 3300 IF FNR=B THEN EXIT
0x19ef…19fc LineComalBin {
0x19ef…19fc ptr = 0xa753 // 0x19ef @0x0
0x19ef…19fc lno = 0x0ce4 // 0x19f1 @0x2
0x19ef…19fc at0004 = ╱82╱ IF ╱ // 0x19f3 @0x4
0x19ef…19fc at0005 = ╱46╱F╱ // 0x19f4 @0x5
0x19ef…19fc at0006 = ╱4e╱N╱ // 0x19f5 @0x6
0x19ef…19fc at0007 = ╱52╱R╱ // 0x19f6 @0x7
0x19ef…19fc at0008 = ╱dc╱=╱ // 0x19f7 @0x8
0x19ef…19fc at0009 = ╱42╱B╱ // 0x19f8 @0x9
0x19ef…19fc at000a = ╱b6╱ THEN ╱ // 0x19f9 @0xa
0x19ef…19fc at000b = ╱99╱ EXIT ╱ // 0x19fa @0xb
0x19ef…19fc at000c = EOL // 0x19fb @0xc
0x19ef…19fc }
0x19fc…1a0a a761 3310 EXEC FINDPOST
0x19fc…1a0a LineComalBin {
0x19fc…1a0a ptr = 0xa761 // 0x19fc @0x0
0x19fc…1a0a lno = 0x0cee // 0x19fe @0x2
0x19fc…1a0a at0004 = ╱9d╱ EXEC ╱ // 0x1a00 @0x4
0x19fc…1a0a at0005 = ╱46╱F╱ // 0x1a01 @0x5
0x19fc…1a0a at0006 = ╱49╱I╱ // 0x1a02 @0x6
0x19fc…1a0a at0007 = ╱4e╱N╱ // 0x1a03 @0x7
0x19fc…1a0a at0008 = ╱44╱D╱ // 0x1a04 @0x8
0x19fc…1a0a at0009 = ╱50╱P╱ // 0x1a05 @0x9
0x19fc…1a0a at000a = ╱4f╱O╱ // 0x1a06 @0xa
0x19fc…1a0a at000b = ╱53╱S╱ // 0x1a07 @0xb
0x19fc…1a0a at000c = ╱54╱T╱ // 0x1a08 @0xc
0x19fc…1a0a at000d = EOL // 0x1a09 @0xd
0x19fc…1a0a }
0x1a0a…1a10 a767 3320 REPEAT
0x1a0a…1a10 LineComalBin {
0x1a0a…1a10 ptr = 0xa767 // 0x1a0a @0x0
0x1a0a…1a10 lno = 0x0cf8 // 0x1a0c @0x2
0x1a0a…1a10 at0004 = ╱97╱ REPEAT ╱ // 0x1a0e @0x4
0x1a0a…1a10 at0005 = EOL // 0x1a0f @0x5
0x1a0a…1a10 }
0x1a10…1a25 a77c 3330 CURSOR 44,23
0x1a10…1a25 LineComalBin {
0x1a10…1a25 ptr = 0xa77c // 0x1a10 @0x0
0x1a10…1a25 lno = 0x0d02 // 0x1a12 @0x2
0x1a10…1a25 at0004 = ╱a1╱ CURSOR ╱ // 0x1a14 @0x4
0x1a10…1a25 at0005 = ╱34╱4╱ // 0x1a15 @0x5
0x1a10…1a25 at0006 = ╱34╱4╱ // 0x1a16 @0x6
0x1a10…1a25 at0007 = ╱fe0000b006╱ // 0x1a17 @0x7
0x1a10…1a25 at000c = ╱ec╱,╱ // 0x1a1c @0xc
0x1a10…1a25 at000d = ╱32╱2╱ // 0x1a1d @0xd
0x1a10…1a25 at000e = ╱33╱3╱ // 0x1a1e @0xe
0x1a10…1a25 at000f = ╱fe0000b805╱ // 0x1a1f @0xf
0x1a10…1a25 at0014 = EOL // 0x1a24 @0x14
0x1a10…1a25 }
0x1a25…1a2e a785 3340 FT=B
0x1a25…1a2e LineComalBin {
0x1a25…1a2e ptr = 0xa785 // 0x1a25 @0x0
0x1a25…1a2e lno = 0x0d0c // 0x1a27 @0x2
0x1a25…1a2e at0004 = ╱46╱F╱ // 0x1a29 @0x4
0x1a25…1a2e at0005 = ╱54╱T╱ // 0x1a2a @0x5
0x1a25…1a2e at0006 = ╱dc╱=╱ // 0x1a2b @0x6
0x1a25…1a2e at0007 = ╱42╱B╱ // 0x1a2c @0x7
0x1a25…1a2e at0008 = EOL // 0x1a2d @0x8
0x1a25…1a2e }
0x1a2e…1a50 a7a7 3350 IF AUNK<MUNKANT AND ETOT<METOT THEN FT=E
0x1a2e…1a50 LineComalBin {
0x1a2e…1a50 ptr = 0xa7a7 // 0x1a2e @0x0
0x1a2e…1a50 lno = 0x0d16 // 0x1a30 @0x2
0x1a2e…1a50 at0004 = ╱82╱ IF ╱ // 0x1a32 @0x4
0x1a2e…1a50 at0005 = ╱41╱A╱ // 0x1a33 @0x5
0x1a2e…1a50 at0006 = ╱55╱U╱ // 0x1a34 @0x6
0x1a2e…1a50 at0007 = ╱4e╱N╱ // 0x1a35 @0x7
0x1a2e…1a50 at0008 = ╱4b╱K╱ // 0x1a36 @0x8
0x1a2e…1a50 at0009 = ╱dd╱<╱ // 0x1a37 @0x9
0x1a2e…1a50 at000a = ╱4d╱M╱ // 0x1a38 @0xa
0x1a2e…1a50 at000b = ╱55╱U╱ // 0x1a39 @0xb
0x1a2e…1a50 at000c = ╱4e╱N╱ // 0x1a3a @0xc
0x1a2e…1a50 at000d = ╱4b╱K╱ // 0x1a3b @0xd
0x1a2e…1a50 at000e = ╱41╱A╱ // 0x1a3c @0xe
0x1a2e…1a50 at000f = ╱4e╱N╱ // 0x1a3d @0xf
0x1a2e…1a50 at0010 = ╱54╱T╱ // 0x1a3e @0x10
0x1a2e…1a50 at0011 = ╱da╱ AND ╱ // 0x1a3f @0x11
0x1a2e…1a50 at0012 = ╱45╱E╱ // 0x1a40 @0x12
0x1a2e…1a50 at0013 = ╱54╱T╱ // 0x1a41 @0x13
0x1a2e…1a50 at0014 = ╱4f╱O╱ // 0x1a42 @0x14
0x1a2e…1a50 at0015 = ╱54╱T╱ // 0x1a43 @0x15
0x1a2e…1a50 at0016 = ╱dd╱<╱ // 0x1a44 @0x16
0x1a2e…1a50 at0017 = ╱4d╱M╱ // 0x1a45 @0x17
0x1a2e…1a50 at0018 = ╱45╱E╱ // 0x1a46 @0x18
0x1a2e…1a50 at0019 = ╱54╱T╱ // 0x1a47 @0x19
0x1a2e…1a50 at001a = ╱4f╱O╱ // 0x1a48 @0x1a
0x1a2e…1a50 at001b = ╱54╱T╱ // 0x1a49 @0x1b
0x1a2e…1a50 at001c = ╱b6╱ THEN ╱ // 0x1a4a @0x1c
0x1a2e…1a50 at001d = ╱46╱F╱ // 0x1a4b @0x1d
0x1a2e…1a50 at001e = ╱54╱T╱ // 0x1a4c @0x1e
0x1a2e…1a50 at001f = ╱dc╱=╱ // 0x1a4d @0x1f
0x1a2e…1a50 at0020 = ╱45╱E╱ // 0x1a4e @0x20
0x1a2e…1a50 at0021 = EOL // 0x1a4f @0x21
0x1a2e…1a50 }
0x1a50…1a7b a7d2 3360 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND FT=E) THEN
0x1a50…1a7b LineComalBin {
0x1a50…1a7b ptr = 0xa7d2 // 0x1a50 @0x0
0x1a50…1a7b lno = 0x0d20 // 0x1a52 @0x2
0x1a50…1a7b at0004 = ╱9c╱ IF ╱ // 0x1a54 @0x4
0x1a50…1a7b at0005 = ╱ed╱(╱ // 0x1a55 @0x5
0x1a50…1a7b at0006 = ╱43╱C╱ // 0x1a56 @0x6
0x1a50…1a7b at0007 = ╱45╱E╱ // 0x1a57 @0x7
0x1a50…1a7b at0008 = ╱4b╱K╱ // 0x1a58 @0x8
0x1a50…1a7b at0009 = ╱53╱S╱ // 0x1a59 @0x9
0x1a50…1a7b at000a = ╱dc╱=╱ // 0x1a5a @0xa
0x1a50…1a7b at000b = ╱42╱B╱ // 0x1a5b @0xb
0x1a50…1a7b at000c = ╱da╱ AND ╱ // 0x1a5c @0xc
0x1a50…1a7b at000d = ╱54╱T╱ // 0x1a5d @0xd
0x1a50…1a7b at000e = ╱59╱Y╱ // 0x1a5e @0xe
0x1a50…1a7b at000f = ╱50╱P╱ // 0x1a5f @0xf
0x1a50…1a7b at0010 = ╱45╱E╱ // 0x1a60 @0x10
0x1a50…1a7b at0011 = ╱e1╱<>╱ // 0x1a61 @0x11
0x1a50…1a7b at0012 = ╱45╱E╱ // 0x1a62 @0x12
0x1a50…1a7b at0013 = ╱ee╱)╱ // 0x1a63 @0x13
0x1a50…1a7b at0014 = ╱db╱ OR ╱ // 0x1a64 @0x14
0x1a50…1a7b at0015 = ╱ed╱(╱ // 0x1a65 @0x15
0x1a50…1a7b at0016 = ╱43╱C╱ // 0x1a66 @0x16
0x1a50…1a7b at0017 = ╱45╱E╱ // 0x1a67 @0x17
0x1a50…1a7b at0018 = ╱4b╱K╱ // 0x1a68 @0x18
0x1a50…1a7b at0019 = ╱53╱S╱ // 0x1a69 @0x19
0x1a50…1a7b at001a = ╱dc╱=╱ // 0x1a6a @0x1a
0x1a50…1a7b at001b = ╱45╱E╱ // 0x1a6b @0x1b
0x1a50…1a7b at001c = ╱da╱ AND ╱ // 0x1a6c @0x1c
0x1a50…1a7b at001d = ╱54╱T╱ // 0x1a6d @0x1d
0x1a50…1a7b at001e = ╱59╱Y╱ // 0x1a6e @0x1e
0x1a50…1a7b at001f = ╱50╱P╱ // 0x1a6f @0x1f
0x1a50…1a7b at0020 = ╱45╱E╱ // 0x1a70 @0x20
0x1a50…1a7b at0021 = ╱dc╱=╱ // 0x1a71 @0x21
0x1a50…1a7b at0022 = ╱45╱E╱ // 0x1a72 @0x22
0x1a50…1a7b at0023 = ╱da╱ AND ╱ // 0x1a73 @0x23
0x1a50…1a7b at0024 = ╱46╱F╱ // 0x1a74 @0x24
0x1a50…1a7b at0025 = ╱54╱T╱ // 0x1a75 @0x25
0x1a50…1a7b at0026 = ╱dc╱=╱ // 0x1a76 @0x26
0x1a50…1a7b at0027 = ╱45╱E╱ // 0x1a77 @0x27
0x1a50…1a7b at0028 = ╱ee╱)╱ // 0x1a78 @0x28
0x1a50…1a7b at0029 = ╱b6╱ THEN ╱ // 0x1a79 @0x29
0x1a50…1a7b at002a = EOL // 0x1a7a @0x2a
0x1a50…1a7b }
0x1a7b…1a92 a7e9 3370 PRINT BLANK$(E:35)
0x1a7b…1a92 LineComalBin {
0x1a7b…1a92 ptr = 0xa7e9 // 0x1a7b @0x0
0x1a7b…1a92 lno = 0x0d2a // 0x1a7d @0x2
0x1a7b…1a92 at0004 = ╱92╱ PRINT ╱ // 0x1a7f @0x4
0x1a7b…1a92 at0005 = ╱42╱B╱ // 0x1a80 @0x5
0x1a7b…1a92 at0006 = ╱4c╱L╱ // 0x1a81 @0x6
0x1a7b…1a92 at0007 = ╱41╱A╱ // 0x1a82 @0x7
0x1a7b…1a92 at0008 = ╱4e╱N╱ // 0x1a83 @0x8
0x1a7b…1a92 at0009 = ╱4b╱K╱ // 0x1a84 @0x9
0x1a7b…1a92 at000a = ╱ef╱$╱ // 0x1a85 @0xa
0x1a7b…1a92 at000b = ╱ed╱(╱ // 0x1a86 @0xb
0x1a7b…1a92 at000c = ╱45╱E╱ // 0x1a87 @0xc
0x1a7b…1a92 at000d = ╱f0╱:╱ // 0x1a88 @0xd
0x1a7b…1a92 at000e = ╱33╱3╱ // 0x1a89 @0xe
0x1a7b…1a92 at000f = ╱35╱5╱ // 0x1a8a @0xf
0x1a7b…1a92 at0010 = ╱fe00008c06╱ // 0x1a8b @0x10
0x1a7b…1a92 at0015 = ╱ee╱)╱ // 0x1a90 @0x15
0x1a7b…1a92 at0016 = EOL // 0x1a91 @0x16
0x1a7b…1a92 }
0x1a92…1a9b a7f2 3380 P=-E
0x1a92…1a9b LineComalBin {
0x1a92…1a9b ptr = 0xa7f2 // 0x1a92 @0x0
0x1a92…1a9b lno = 0x0d34 // 0x1a94 @0x2
0x1a92…1a9b at0004 = ╱50╱P╱ // 0x1a96 @0x4
0x1a92…1a9b at0005 = ╱dc╱=╱ // 0x1a97 @0x5
0x1a92…1a9b at0006 = ╱e9╱-╱ // 0x1a98 @0x6
0x1a92…1a9b at0007 = ╱45╱E╱ // 0x1a99 @0x7
0x1a92…1a9b at0008 = EOL // 0x1a9a @0x8
0x1a92…1a9b }
0x1a9b…1aa1 a7f8 3390 ELSE
0x1a9b…1aa1 LineComalBin {
0x1a9b…1aa1 ptr = 0xa7f8 // 0x1a9b @0x0
0x1a9b…1aa1 lno = 0x0d3e // 0x1a9d @0x2
0x1a9b…1aa1 at0004 = ╱9a╱ ELSE ╱ // 0x1a9f @0x4
0x1a9b…1aa1 at0005 = EOL // 0x1aa0 @0x5
0x1a9b…1aa1 }
0x1aa1…1acd a824 3400 IF CEKS=E AND TYPE=E AND ETOT=>METOT AND AUNK=>MUNKANT THEN
0x1aa1…1acd LineComalBin {
0x1aa1…1acd ptr = 0xa824 // 0x1aa1 @0x0
0x1aa1…1acd lno = 0x0d48 // 0x1aa3 @0x2
0x1aa1…1acd at0004 = ╱9c╱ IF ╱ // 0x1aa5 @0x4
0x1aa1…1acd at0005 = ╱43╱C╱ // 0x1aa6 @0x5
0x1aa1…1acd at0006 = ╱45╱E╱ // 0x1aa7 @0x6
0x1aa1…1acd at0007 = ╱4b╱K╱ // 0x1aa8 @0x7
0x1aa1…1acd at0008 = ╱53╱S╱ // 0x1aa9 @0x8
0x1aa1…1acd at0009 = ╱dc╱=╱ // 0x1aaa @0x9
0x1aa1…1acd at000a = ╱45╱E╱ // 0x1aab @0xa
0x1aa1…1acd at000b = ╱da╱ AND ╱ // 0x1aac @0xb
0x1aa1…1acd at000c = ╱54╱T╱ // 0x1aad @0xc
0x1aa1…1acd at000d = ╱59╱Y╱ // 0x1aae @0xd
0x1aa1…1acd at000e = ╱50╱P╱ // 0x1aaf @0xe
0x1aa1…1acd at000f = ╱45╱E╱ // 0x1ab0 @0xf
0x1aa1…1acd at0010 = ╱dc╱=╱ // 0x1ab1 @0x10
0x1aa1…1acd at0011 = ╱45╱E╱ // 0x1ab2 @0x11
0x1aa1…1acd at0012 = ╱da╱ AND ╱ // 0x1ab3 @0x12
0x1aa1…1acd at0013 = ╱45╱E╱ // 0x1ab4 @0x13
0x1aa1…1acd at0014 = ╱54╱T╱ // 0x1ab5 @0x14
0x1aa1…1acd at0015 = ╱4f╱O╱ // 0x1ab6 @0x15
0x1aa1…1acd at0016 = ╱54╱T╱ // 0x1ab7 @0x16
0x1aa1…1acd at0017 = ╱e0╱=>╱ // 0x1ab8 @0x17
0x1aa1…1acd at0018 = ╱4d╱M╱ // 0x1ab9 @0x18
0x1aa1…1acd at0019 = ╱45╱E╱ // 0x1aba @0x19
0x1aa1…1acd at001a = ╱54╱T╱ // 0x1abb @0x1a
0x1aa1…1acd at001b = ╱4f╱O╱ // 0x1abc @0x1b
0x1aa1…1acd at001c = ╱54╱T╱ // 0x1abd @0x1c
0x1aa1…1acd at001d = ╱da╱ AND ╱ // 0x1abe @0x1d
0x1aa1…1acd at001e = ╱41╱A╱ // 0x1abf @0x1e
0x1aa1…1acd at001f = ╱55╱U╱ // 0x1ac0 @0x1f
0x1aa1…1acd at0020 = ╱4e╱N╱ // 0x1ac1 @0x20
0x1aa1…1acd at0021 = ╱4b╱K╱ // 0x1ac2 @0x21
0x1aa1…1acd at0022 = ╱e0╱=>╱ // 0x1ac3 @0x22
0x1aa1…1acd at0023 = ╱4d╱M╱ // 0x1ac4 @0x23
0x1aa1…1acd at0024 = ╱55╱U╱ // 0x1ac5 @0x24
0x1aa1…1acd at0025 = ╱4e╱N╱ // 0x1ac6 @0x25
0x1aa1…1acd at0026 = ╱4b╱K╱ // 0x1ac7 @0x26
0x1aa1…1acd at0027 = ╱41╱A╱ // 0x1ac8 @0x27
0x1aa1…1acd at0028 = ╱4e╱N╱ // 0x1ac9 @0x28
0x1aa1…1acd at0029 = ╱54╱T╱ // 0x1aca @0x29
0x1aa1…1acd at002a = ╱b6╱ THEN ╱ // 0x1acb @0x2a
0x1aa1…1acd at002b = EOL // 0x1acc @0x2b
0x1aa1…1acd }
0x1acd…1adc a833 3410 CURSOR V,23
0x1acd…1adc LineComalBin {
0x1acd…1adc ptr = 0xa833 // 0x1acd @0x0
0x1acd…1adc lno = 0x0d52 // 0x1acf @0x2
0x1acd…1adc at0004 = ╱a1╱ CURSOR ╱ // 0x1ad1 @0x4
0x1acd…1adc at0005 = ╱56╱V╱ // 0x1ad2 @0x5
0x1acd…1adc at0006 = ╱ec╱,╱ // 0x1ad3 @0x6
0x1acd…1adc at0007 = ╱32╱2╱ // 0x1ad4 @0x7
0x1acd…1adc at0008 = ╱33╱3╱ // 0x1ad5 @0x8
0x1acd…1adc at0009 = ╱fe0000b805╱ // 0x1ad6 @0x9
0x1acd…1adc at000e = EOL // 0x1adb @0xe
0x1acd…1adc }
0x1adc…1b20 a877 3420 INPUT "Ikke plads til flere konti , tast RETURN ",A$
0x1adc…1b20 LineComalBin {
0x1adc…1b20 ptr = 0xa877 // 0x1adc @0x0
0x1adc…1b20 lno = 0x0d5c // 0x1ade @0x2
0x1adc…1b20 at0004 = ╱91╱ INPUT ╱ // 0x1ae0 @0x4
0x1adc…1b20 at0005 = ╱22╱"╱ // 0x1ae1 @0x5
0x1adc…1b20 at0006 = ╱49╱I╱ // 0x1ae2 @0x6
0x1adc…1b20 at0007 = ╱6b╱k╱ // 0x1ae3 @0x7
0x1adc…1b20 at0008 = ╱6b╱k╱ // 0x1ae4 @0x8
0x1adc…1b20 at0009 = ╱65╱e╱ // 0x1ae5 @0x9
0x1adc…1b20 at000a = ╱20╱…╱ // 0x1ae6 @0xa
0x1adc…1b20 at000b = ╱70╱p╱ // 0x1ae7 @0xb
0x1adc…1b20 at000c = ╱6c╱l╱ // 0x1ae8 @0xc
0x1adc…1b20 at000d = ╱61╱a╱ // 0x1ae9 @0xd
0x1adc…1b20 at000e = ╱64╱d╱ // 0x1aea @0xe
0x1adc…1b20 at000f = ╱73╱s╱ // 0x1aeb @0xf
0x1adc…1b20 at0010 = ╱20╱…╱ // 0x1aec @0x10
0x1adc…1b20 at0011 = ╱74╱t╱ // 0x1aed @0x11
0x1adc…1b20 at0012 = ╱69╱i╱ // 0x1aee @0x12
0x1adc…1b20 at0013 = ╱6c╱l╱ // 0x1aef @0x13
0x1adc…1b20 at0014 = ╱20╱…╱ // 0x1af0 @0x14
0x1adc…1b20 at0015 = ╱66╱f╱ // 0x1af1 @0x15
0x1adc…1b20 at0016 = ╱6c╱l╱ // 0x1af2 @0x16
0x1adc…1b20 at0017 = ╱65╱e╱ // 0x1af3 @0x17
0x1adc…1b20 at0018 = ╱72╱r╱ // 0x1af4 @0x18
0x1adc…1b20 at0019 = ╱65╱e╱ // 0x1af5 @0x19
0x1adc…1b20 at001a = ╱20╱…╱ // 0x1af6 @0x1a
0x1adc…1b20 at001b = ╱6b╱k╱ // 0x1af7 @0x1b
0x1adc…1b20 at001c = ╱6f╱o╱ // 0x1af8 @0x1c
0x1adc…1b20 at001d = ╱6e╱n╱ // 0x1af9 @0x1d
0x1adc…1b20 at001e = ╱74╱t╱ // 0x1afa @0x1e
0x1adc…1b20 at001f = ╱69╱i╱ // 0x1afb @0x1f
0x1adc…1b20 at0020 = ╱20╱…╱ // 0x1afc @0x20
0x1adc…1b20 at0021 = ╱2c╱,╱ // 0x1afd @0x21
0x1adc…1b20 at0022 = ╱20╱…╱ // 0x1afe @0x22
0x1adc…1b20 at0023 = ╱74╱t╱ // 0x1aff @0x23
0x1adc…1b20 at0024 = ╱61╱a╱ // 0x1b00 @0x24
0x1adc…1b20 at0025 = ╱73╱s╱ // 0x1b01 @0x25
0x1adc…1b20 at0026 = ╱74╱t╱ // 0x1b02 @0x26
0x1adc…1b20 at0027 = ╱20╱…╱ // 0x1b03 @0x27
0x1adc…1b20 at0028 = ╱52╱R╱ // 0x1b04 @0x28
0x1adc…1b20 at0029 = ╱45╱E╱ // 0x1b05 @0x29
0x1adc…1b20 at002a = ╱54╱T╱ // 0x1b06 @0x2a
0x1adc…1b20 at002b = ╱55╱U╱ // 0x1b07 @0x2b
0x1adc…1b20 at002c = ╱52╱R╱ // 0x1b08 @0x2c
0x1adc…1b20 at002d = ╱4e╱N╱ // 0x1b09 @0x2d
0x1adc…1b20 at002e = ╱20╱…╱ // 0x1b0a @0x2e
0x1adc…1b20 at002f = ╱20╱…╱ // 0x1b0b @0x2f
0x1adc…1b20 at0030 = ╱20╱…╱ // 0x1b0c @0x30
0x1adc…1b20 at0031 = ╱20╱…╱ // 0x1b0d @0x31
0x1adc…1b20 at0032 = ╱20╱…╱ // 0x1b0e @0x32
0x1adc…1b20 at0033 = ╱20╱…╱ // 0x1b0f @0x33
0x1adc…1b20 at0034 = ╱20╱…╱ // 0x1b10 @0x34
0x1adc…1b20 at0035 = ╱20╱…╱ // 0x1b11 @0x35
0x1adc…1b20 at0036 = ╱20╱…╱ // 0x1b12 @0x36
0x1adc…1b20 at0037 = ╱20╱…╱ // 0x1b13 @0x37
0x1adc…1b20 at0038 = ╱20╱…╱ // 0x1b14 @0x38
0x1adc…1b20 at0039 = ╱20╱…╱ // 0x1b15 @0x39
0x1adc…1b20 at003a = ╱20╱…╱ // 0x1b16 @0x3a
0x1adc…1b20 at003b = ╱20╱…╱ // 0x1b17 @0x3b
0x1adc…1b20 at003c = ╱20╱…╱ // 0x1b18 @0x3c
0x1adc…1b20 at003d = ╱20╱…╱ // 0x1b19 @0x3d
0x1adc…1b20 at003e = ╱20╱…╱ // 0x1b1a @0x3e
0x1adc…1b20 at003f = ╱22╱"╱ // 0x1b1b @0x3f
0x1adc…1b20 at0040 = ╱ec╱,╱ // 0x1b1c @0x40
0x1adc…1b20 at0041 = ╱41╱A╱ // 0x1b1d @0x41
0x1adc…1b20 at0042 = ╱ef╱$╱ // 0x1b1e @0x42
0x1adc…1b20 at0043 = EOL // 0x1b1f @0x43
0x1adc…1b20 }
0x1b20…1b26 a87d 3430 ELSE
0x1b20…1b26 LineComalBin {
0x1b20…1b26 ptr = 0xa87d // 0x1b20 @0x0
0x1b20…1b26 lno = 0x0d66 // 0x1b22 @0x2
0x1b20…1b26 at0004 = ╱9a╱ ELSE ╱ // 0x1b24 @0x4
0x1b20…1b26 at0005 = EOL // 0x1b25 @0x5
0x1b20…1b26 }
0x1b26…1b33 a88a 3440 IF CEKS=B THEN
0x1b26…1b33 LineComalBin {
0x1b26…1b33 ptr = 0xa88a // 0x1b26 @0x0
0x1b26…1b33 lno = 0x0d70 // 0x1b28 @0x2
0x1b26…1b33 at0004 = ╱9c╱ IF ╱ // 0x1b2a @0x4
0x1b26…1b33 at0005 = ╱43╱C╱ // 0x1b2b @0x5
0x1b26…1b33 at0006 = ╱45╱E╱ // 0x1b2c @0x6
0x1b26…1b33 at0007 = ╱4b╱K╱ // 0x1b2d @0x7
0x1b26…1b33 at0008 = ╱53╱S╱ // 0x1b2e @0x8
0x1b26…1b33 at0009 = ╱dc╱=╱ // 0x1b2f @0x9
0x1b26…1b33 at000a = ╱42╱B╱ // 0x1b30 @0xa
0x1b26…1b33 at000b = ╱b6╱ THEN ╱ // 0x1b31 @0xb
0x1b26…1b33 at000c = EOL // 0x1b32 @0xc
0x1b26…1b33 }
0x1b33…1b61 a8b8 3450 INPUT "Konto eksisterer ,tast RETURN ",A$
0x1b33…1b61 LineComalBin {
0x1b33…1b61 ptr = 0xa8b8 // 0x1b33 @0x0
0x1b33…1b61 lno = 0x0d7a // 0x1b35 @0x2
0x1b33…1b61 at0004 = ╱91╱ INPUT ╱ // 0x1b37 @0x4
0x1b33…1b61 at0005 = ╱22╱"╱ // 0x1b38 @0x5
0x1b33…1b61 at0006 = ╱4b╱K╱ // 0x1b39 @0x6
0x1b33…1b61 at0007 = ╱6f╱o╱ // 0x1b3a @0x7
0x1b33…1b61 at0008 = ╱6e╱n╱ // 0x1b3b @0x8
0x1b33…1b61 at0009 = ╱74╱t╱ // 0x1b3c @0x9
0x1b33…1b61 at000a = ╱6f╱o╱ // 0x1b3d @0xa
0x1b33…1b61 at000b = ╱20╱…╱ // 0x1b3e @0xb
0x1b33…1b61 at000c = ╱65╱e╱ // 0x1b3f @0xc
0x1b33…1b61 at000d = ╱6b╱k╱ // 0x1b40 @0xd
0x1b33…1b61 at000e = ╱73╱s╱ // 0x1b41 @0xe
0x1b33…1b61 at000f = ╱69╱i╱ // 0x1b42 @0xf
0x1b33…1b61 at0010 = ╱73╱s╱ // 0x1b43 @0x10
0x1b33…1b61 at0011 = ╱74╱t╱ // 0x1b44 @0x11
0x1b33…1b61 at0012 = ╱65╱e╱ // 0x1b45 @0x12
0x1b33…1b61 at0013 = ╱72╱r╱ // 0x1b46 @0x13
0x1b33…1b61 at0014 = ╱65╱e╱ // 0x1b47 @0x14
0x1b33…1b61 at0015 = ╱72╱r╱ // 0x1b48 @0x15
0x1b33…1b61 at0016 = ╱20╱…╱ // 0x1b49 @0x16
0x1b33…1b61 at0017 = ╱2c╱,╱ // 0x1b4a @0x17
0x1b33…1b61 at0018 = ╱74╱t╱ // 0x1b4b @0x18
0x1b33…1b61 at0019 = ╱61╱a╱ // 0x1b4c @0x19
0x1b33…1b61 at001a = ╱73╱s╱ // 0x1b4d @0x1a
0x1b33…1b61 at001b = ╱74╱t╱ // 0x1b4e @0x1b
0x1b33…1b61 at001c = ╱20╱…╱ // 0x1b4f @0x1c
0x1b33…1b61 at001d = ╱52╱R╱ // 0x1b50 @0x1d
0x1b33…1b61 at001e = ╱45╱E╱ // 0x1b51 @0x1e
0x1b33…1b61 at001f = ╱54╱T╱ // 0x1b52 @0x1f
0x1b33…1b61 at0020 = ╱55╱U╱ // 0x1b53 @0x20
0x1b33…1b61 at0021 = ╱52╱R╱ // 0x1b54 @0x21
0x1b33…1b61 at0022 = ╱4e╱N╱ // 0x1b55 @0x22
0x1b33…1b61 at0023 = ╱20╱…╱ // 0x1b56 @0x23
0x1b33…1b61 at0024 = ╱20╱…╱ // 0x1b57 @0x24
0x1b33…1b61 at0025 = ╱20╱…╱ // 0x1b58 @0x25
0x1b33…1b61 at0026 = ╱20╱…╱ // 0x1b59 @0x26
0x1b33…1b61 at0027 = ╱20╱…╱ // 0x1b5a @0x27
0x1b33…1b61 at0028 = ╱20╱…╱ // 0x1b5b @0x28
0x1b33…1b61 at0029 = ╱22╱"╱ // 0x1b5c @0x29
0x1b33…1b61 at002a = ╱ec╱,╱ // 0x1b5d @0x2a
0x1b33…1b61 at002b = ╱41╱A╱ // 0x1b5e @0x2b
0x1b33…1b61 at002c = ╱ef╱$╱ // 0x1b5f @0x2c
0x1b33…1b61 at002d = EOL // 0x1b60 @0x2d
0x1b33…1b61 }
0x1b61…1b67 a8be 3460 ELSE
0x1b61…1b67 LineComalBin {
0x1b61…1b67 ptr = 0xa8be // 0x1b61 @0x0
0x1b61…1b67 lno = 0x0d84 // 0x1b63 @0x2
0x1b61…1b67 at0004 = ╱9a╱ ELSE ╱ // 0x1b65 @0x4
0x1b61…1b67 at0005 = EOL // 0x1b66 @0x5
0x1b61…1b67 }
0x1b67…1b95 a8ec 3470 INPUT "Konto eksisterer ikke , tast RETURN",A$
0x1b67…1b95 LineComalBin {
0x1b67…1b95 ptr = 0xa8ec // 0x1b67 @0x0
0x1b67…1b95 lno = 0x0d8e // 0x1b69 @0x2
0x1b67…1b95 at0004 = ╱91╱ INPUT ╱ // 0x1b6b @0x4
0x1b67…1b95 at0005 = ╱22╱"╱ // 0x1b6c @0x5
0x1b67…1b95 at0006 = ╱4b╱K╱ // 0x1b6d @0x6
0x1b67…1b95 at0007 = ╱6f╱o╱ // 0x1b6e @0x7
0x1b67…1b95 at0008 = ╱6e╱n╱ // 0x1b6f @0x8
0x1b67…1b95 at0009 = ╱74╱t╱ // 0x1b70 @0x9
0x1b67…1b95 at000a = ╱6f╱o╱ // 0x1b71 @0xa
0x1b67…1b95 at000b = ╱20╱…╱ // 0x1b72 @0xb
0x1b67…1b95 at000c = ╱65╱e╱ // 0x1b73 @0xc
0x1b67…1b95 at000d = ╱6b╱k╱ // 0x1b74 @0xd
0x1b67…1b95 at000e = ╱73╱s╱ // 0x1b75 @0xe
0x1b67…1b95 at000f = ╱69╱i╱ // 0x1b76 @0xf
0x1b67…1b95 at0010 = ╱73╱s╱ // 0x1b77 @0x10
0x1b67…1b95 at0011 = ╱74╱t╱ // 0x1b78 @0x11
0x1b67…1b95 at0012 = ╱65╱e╱ // 0x1b79 @0x12
0x1b67…1b95 at0013 = ╱72╱r╱ // 0x1b7a @0x13
0x1b67…1b95 at0014 = ╱65╱e╱ // 0x1b7b @0x14
0x1b67…1b95 at0015 = ╱72╱r╱ // 0x1b7c @0x15
0x1b67…1b95 at0016 = ╱20╱…╱ // 0x1b7d @0x16
0x1b67…1b95 at0017 = ╱69╱i╱ // 0x1b7e @0x17
0x1b67…1b95 at0018 = ╱6b╱k╱ // 0x1b7f @0x18
0x1b67…1b95 at0019 = ╱6b╱k╱ // 0x1b80 @0x19
0x1b67…1b95 at001a = ╱65╱e╱ // 0x1b81 @0x1a
0x1b67…1b95 at001b = ╱20╱…╱ // 0x1b82 @0x1b
0x1b67…1b95 at001c = ╱2c╱,╱ // 0x1b83 @0x1c
0x1b67…1b95 at001d = ╱20╱…╱ // 0x1b84 @0x1d
0x1b67…1b95 at001e = ╱74╱t╱ // 0x1b85 @0x1e
0x1b67…1b95 at001f = ╱61╱a╱ // 0x1b86 @0x1f
0x1b67…1b95 at0020 = ╱73╱s╱ // 0x1b87 @0x20
0x1b67…1b95 at0021 = ╱74╱t╱ // 0x1b88 @0x21
0x1b67…1b95 at0022 = ╱20╱…╱ // 0x1b89 @0x22
0x1b67…1b95 at0023 = ╱52╱R╱ // 0x1b8a @0x23
0x1b67…1b95 at0024 = ╱45╱E╱ // 0x1b8b @0x24
0x1b67…1b95 at0025 = ╱54╱T╱ // 0x1b8c @0x25
0x1b67…1b95 at0026 = ╱55╱U╱ // 0x1b8d @0x26
0x1b67…1b95 at0027 = ╱52╱R╱ // 0x1b8e @0x27
0x1b67…1b95 at0028 = ╱4e╱N╱ // 0x1b8f @0x28
0x1b67…1b95 at0029 = ╱22╱"╱ // 0x1b90 @0x29
0x1b67…1b95 at002a = ╱ec╱,╱ // 0x1b91 @0x2a
0x1b67…1b95 at002b = ╱41╱A╱ // 0x1b92 @0x2b
0x1b67…1b95 at002c = ╱ef╱$╱ // 0x1b93 @0x2c
0x1b67…1b95 at002d = EOL // 0x1b94 @0x2d
0x1b67…1b95 }
0x1b95…1b9b a8f2 3480 ENDIF
0x1b95…1b9b LineComalBin {
0x1b95…1b9b ptr = 0xa8f2 // 0x1b95 @0x0
0x1b95…1b9b lno = 0x0d98 // 0x1b97 @0x2
0x1b95…1b9b at0004 = ╱9b╱ ENDIF ╱ // 0x1b99 @0x4
0x1b95…1b9b at0005 = EOL // 0x1b9a @0x5
0x1b95…1b9b }
0x1b9b…1ba1 a8f8 3490 ENDIF
0x1b9b…1ba1 LineComalBin {
0x1b9b…1ba1 ptr = 0xa8f8 // 0x1b9b @0x0
0x1b9b…1ba1 lno = 0x0da2 // 0x1b9d @0x2
0x1b9b…1ba1 at0004 = ╱9b╱ ENDIF ╱ // 0x1b9f @0x4
0x1b9b…1ba1 at0005 = EOL // 0x1ba0 @0x5
0x1b9b…1ba1 }
0x1ba1…1bb1 a908 3500 EXEC NRTEST(A$)
0x1ba1…1bb1 LineComalBin {
0x1ba1…1bb1 ptr = 0xa908 // 0x1ba1 @0x0
0x1ba1…1bb1 lno = 0x0dac // 0x1ba3 @0x2
0x1ba1…1bb1 at0004 = ╱9d╱ EXEC ╱ // 0x1ba5 @0x4
0x1ba1…1bb1 at0005 = ╱4e╱N╱ // 0x1ba6 @0x5
0x1ba1…1bb1 at0006 = ╱52╱R╱ // 0x1ba7 @0x6
0x1ba1…1bb1 at0007 = ╱54╱T╱ // 0x1ba8 @0x7
0x1ba1…1bb1 at0008 = ╱45╱E╱ // 0x1ba9 @0x8
0x1ba1…1bb1 at0009 = ╱53╱S╱ // 0x1baa @0x9
0x1ba1…1bb1 at000a = ╱54╱T╱ // 0x1bab @0xa
0x1ba1…1bb1 at000b = ╱ed╱(╱ // 0x1bac @0xb
0x1ba1…1bb1 at000c = ╱41╱A╱ // 0x1bad @0xc
0x1ba1…1bb1 at000d = ╱ef╱$╱ // 0x1bae @0xd
0x1ba1…1bb1 at000e = ╱ee╱)╱ // 0x1baf @0xe
0x1ba1…1bb1 at000f = EOL // 0x1bb0 @0xf
0x1ba1…1bb1 }
0x1bb1…1bb7 a90e 3510 ENDIF
0x1bb1…1bb7 LineComalBin {
0x1bb1…1bb7 ptr = 0xa90e // 0x1bb1 @0x0
0x1bb1…1bb7 lno = 0x0db6 // 0x1bb3 @0x2
0x1bb1…1bb7 at0004 = ╱9b╱ ENDIF ╱ // 0x1bb5 @0x4
0x1bb1…1bb7 at0005 = EOL // 0x1bb6 @0x5
0x1bb1…1bb7 }
0x1bb7…1bc1 a918 3520 UNTIL P=-E
0x1bb7…1bc1 LineComalBin {
0x1bb7…1bc1 ptr = 0xa918 // 0x1bb7 @0x0
0x1bb7…1bc1 lno = 0x0dc0 // 0x1bb9 @0x2
0x1bb7…1bc1 at0004 = ╱98╱ UNTIL ╱ // 0x1bbb @0x4
0x1bb7…1bc1 at0005 = ╱50╱P╱ // 0x1bbc @0x5
0x1bb7…1bc1 at0006 = ╱dc╱=╱ // 0x1bbd @0x6
0x1bb7…1bc1 at0007 = ╱e9╱-╱ // 0x1bbe @0x7
0x1bb7…1bc1 at0008 = ╱45╱E╱ // 0x1bbf @0x8
0x1bb7…1bc1 at0009 = EOL // 0x1bc0 @0x9
0x1bb7…1bc1 }
0x1bc1…1beb a942 3530 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND FT=E)
0x1bc1…1beb LineComalBin {
0x1bc1…1beb ptr = 0xa942 // 0x1bc1 @0x0
0x1bc1…1beb lno = 0x0dca // 0x1bc3 @0x2
0x1bc1…1beb at0004 = ╱98╱ UNTIL ╱ // 0x1bc5 @0x4
0x1bc1…1beb at0005 = ╱ed╱(╱ // 0x1bc6 @0x5
0x1bc1…1beb at0006 = ╱43╱C╱ // 0x1bc7 @0x6
0x1bc1…1beb at0007 = ╱45╱E╱ // 0x1bc8 @0x7
0x1bc1…1beb at0008 = ╱4b╱K╱ // 0x1bc9 @0x8
0x1bc1…1beb at0009 = ╱53╱S╱ // 0x1bca @0x9
0x1bc1…1beb at000a = ╱dc╱=╱ // 0x1bcb @0xa
0x1bc1…1beb at000b = ╱42╱B╱ // 0x1bcc @0xb
0x1bc1…1beb at000c = ╱da╱ AND ╱ // 0x1bcd @0xc
0x1bc1…1beb at000d = ╱54╱T╱ // 0x1bce @0xd
0x1bc1…1beb at000e = ╱59╱Y╱ // 0x1bcf @0xe
0x1bc1…1beb at000f = ╱50╱P╱ // 0x1bd0 @0xf
0x1bc1…1beb at0010 = ╱45╱E╱ // 0x1bd1 @0x10
0x1bc1…1beb at0011 = ╱e1╱<>╱ // 0x1bd2 @0x11
0x1bc1…1beb at0012 = ╱45╱E╱ // 0x1bd3 @0x12
0x1bc1…1beb at0013 = ╱ee╱)╱ // 0x1bd4 @0x13
0x1bc1…1beb at0014 = ╱db╱ OR ╱ // 0x1bd5 @0x14
0x1bc1…1beb at0015 = ╱ed╱(╱ // 0x1bd6 @0x15
0x1bc1…1beb at0016 = ╱43╱C╱ // 0x1bd7 @0x16
0x1bc1…1beb at0017 = ╱45╱E╱ // 0x1bd8 @0x17
0x1bc1…1beb at0018 = ╱4b╱K╱ // 0x1bd9 @0x18
0x1bc1…1beb at0019 = ╱53╱S╱ // 0x1bda @0x19
0x1bc1…1beb at001a = ╱dc╱=╱ // 0x1bdb @0x1a
0x1bc1…1beb at001b = ╱45╱E╱ // 0x1bdc @0x1b
0x1bc1…1beb at001c = ╱da╱ AND ╱ // 0x1bdd @0x1c
0x1bc1…1beb at001d = ╱54╱T╱ // 0x1bde @0x1d
0x1bc1…1beb at001e = ╱59╱Y╱ // 0x1bdf @0x1e
0x1bc1…1beb at001f = ╱50╱P╱ // 0x1be0 @0x1f
0x1bc1…1beb at0020 = ╱45╱E╱ // 0x1be1 @0x20
0x1bc1…1beb at0021 = ╱dc╱=╱ // 0x1be2 @0x21
0x1bc1…1beb at0022 = ╱45╱E╱ // 0x1be3 @0x22
0x1bc1…1beb at0023 = ╱da╱ AND ╱ // 0x1be4 @0x23
0x1bc1…1beb at0024 = ╱46╱F╱ // 0x1be5 @0x24
0x1bc1…1beb at0025 = ╱54╱T╱ // 0x1be6 @0x25
0x1bc1…1beb at0026 = ╱dc╱=╱ // 0x1be7 @0x26
0x1bc1…1beb at0027 = ╱45╱E╱ // 0x1be8 @0x27
0x1bc1…1beb at0028 = ╱ee╱)╱ // 0x1be9 @0x28
0x1bc1…1beb at0029 = EOL // 0x1bea @0x29
0x1bc1…1beb }
0x1beb…1bf8 a94f 3540 IF FNR=B THEN EXIT
0x1beb…1bf8 LineComalBin {
0x1beb…1bf8 ptr = 0xa94f // 0x1beb @0x0
0x1beb…1bf8 lno = 0x0dd4 // 0x1bed @0x2
0x1beb…1bf8 at0004 = ╱82╱ IF ╱ // 0x1bef @0x4
0x1beb…1bf8 at0005 = ╱46╱F╱ // 0x1bf0 @0x5
0x1beb…1bf8 at0006 = ╱4e╱N╱ // 0x1bf1 @0x6
0x1beb…1bf8 at0007 = ╱52╱R╱ // 0x1bf2 @0x7
0x1beb…1bf8 at0008 = ╱dc╱=╱ // 0x1bf3 @0x8
0x1beb…1bf8 at0009 = ╱42╱B╱ // 0x1bf4 @0x9
0x1beb…1bf8 at000a = ╱b6╱ THEN ╱ // 0x1bf5 @0xa
0x1beb…1bf8 at000b = ╱99╱ EXIT ╱ // 0x1bf6 @0xb
0x1beb…1bf8 at000c = EOL // 0x1bf7 @0xc
0x1beb…1bf8 }
0x1bf8…1c05 a95c 3550 IF TYPE<>E THEN
0x1bf8…1c05 LineComalBin {
0x1bf8…1c05 ptr = 0xa95c // 0x1bf8 @0x0
0x1bf8…1c05 lno = 0x0dde // 0x1bfa @0x2
0x1bf8…1c05 at0004 = ╱9c╱ IF ╱ // 0x1bfc @0x4
0x1bf8…1c05 at0005 = ╱54╱T╱ // 0x1bfd @0x5
0x1bf8…1c05 at0006 = ╱59╱Y╱ // 0x1bfe @0x6
0x1bf8…1c05 at0007 = ╱50╱P╱ // 0x1bff @0x7
0x1bf8…1c05 at0008 = ╱45╱E╱ // 0x1c00 @0x8
0x1bf8…1c05 at0009 = ╱e1╱<>╱ // 0x1c01 @0x9
0x1bf8…1c05 at000a = ╱45╱E╱ // 0x1c02 @0xa
0x1bf8…1c05 at000b = ╱b6╱ THEN ╱ // 0x1c03 @0xb
0x1bf8…1c05 at000c = EOL // 0x1c04 @0xc
0x1bf8…1c05 }
0x1c05…1c10 a967 3560 TEST=B
0x1c05…1c10 LineComalBin {
0x1c05…1c10 ptr = 0xa967 // 0x1c05 @0x0
0x1c05…1c10 lno = 0x0de8 // 0x1c07 @0x2
0x1c05…1c10 at0004 = ╱54╱T╱ // 0x1c09 @0x4
0x1c05…1c10 at0005 = ╱45╱E╱ // 0x1c0a @0x5
0x1c05…1c10 at0006 = ╱53╱S╱ // 0x1c0b @0x6
0x1c05…1c10 at0007 = ╱54╱T╱ // 0x1c0c @0x7
0x1c05…1c10 at0008 = ╱dc╱=╱ // 0x1c0d @0x8
0x1c05…1c10 at0009 = ╱42╱B╱ // 0x1c0e @0x9
0x1c05…1c10 at000a = EOL // 0x1c0f @0xa
0x1c05…1c10 }
0x1c10…1c1e a975 3570 EXEC HENTPOST
0x1c10…1c1e LineComalBin {
0x1c10…1c1e ptr = 0xa975 // 0x1c10 @0x0
0x1c10…1c1e lno = 0x0df2 // 0x1c12 @0x2
0x1c10…1c1e at0004 = ╱9d╱ EXEC ╱ // 0x1c14 @0x4
0x1c10…1c1e at0005 = ╱48╱H╱ // 0x1c15 @0x5
0x1c10…1c1e at0006 = ╱45╱E╱ // 0x1c16 @0x6
0x1c10…1c1e at0007 = ╱4e╱N╱ // 0x1c17 @0x7
0x1c10…1c1e at0008 = ╱54╱T╱ // 0x1c18 @0x8
0x1c10…1c1e at0009 = ╱50╱P╱ // 0x1c19 @0x9
0x1c10…1c1e at000a = ╱4f╱O╱ // 0x1c1a @0xa
0x1c10…1c1e at000b = ╱53╱S╱ // 0x1c1b @0xb
0x1c10…1c1e at000c = ╱54╱T╱ // 0x1c1c @0xc
0x1c10…1c1e at000d = EOL // 0x1c1d @0xd
0x1c10…1c1e }
0x1c1e…1c3b a992 3580 IF TYPE=V AND CEKS1=B THEN EXEC DKRTEST
0x1c1e…1c3b LineComalBin {
0x1c1e…1c3b ptr = 0xa992 // 0x1c1e @0x0
0x1c1e…1c3b lno = 0x0dfc // 0x1c20 @0x2
0x1c1e…1c3b at0004 = ╱82╱ IF ╱ // 0x1c22 @0x4
0x1c1e…1c3b at0005 = ╱54╱T╱ // 0x1c23 @0x5
0x1c1e…1c3b at0006 = ╱59╱Y╱ // 0x1c24 @0x6
0x1c1e…1c3b at0007 = ╱50╱P╱ // 0x1c25 @0x7
0x1c1e…1c3b at0008 = ╱45╱E╱ // 0x1c26 @0x8
0x1c1e…1c3b at0009 = ╱dc╱=╱ // 0x1c27 @0x9
0x1c1e…1c3b at000a = ╱56╱V╱ // 0x1c28 @0xa
0x1c1e…1c3b at000b = ╱da╱ AND ╱ // 0x1c29 @0xb
0x1c1e…1c3b at000c = ╱43╱C╱ // 0x1c2a @0xc
0x1c1e…1c3b at000d = ╱45╱E╱ // 0x1c2b @0xd
0x1c1e…1c3b at000e = ╱4b╱K╱ // 0x1c2c @0xe
0x1c1e…1c3b at000f = ╱53╱S╱ // 0x1c2d @0xf
0x1c1e…1c3b at0010 = ╱31╱1╱ // 0x1c2e @0x10
0x1c1e…1c3b at0011 = ╱dc╱=╱ // 0x1c2f @0x11
0x1c1e…1c3b at0012 = ╱42╱B╱ // 0x1c30 @0x12
0x1c1e…1c3b at0013 = ╱b6╱ THEN ╱ // 0x1c31 @0x13
0x1c1e…1c3b at0014 = ╱9d╱ EXEC ╱ // 0x1c32 @0x14
0x1c1e…1c3b at0015 = ╱44╱D╱ // 0x1c33 @0x15
0x1c1e…1c3b at0016 = ╱4b╱K╱ // 0x1c34 @0x16
0x1c1e…1c3b at0017 = ╱52╱R╱ // 0x1c35 @0x17
0x1c1e…1c3b at0018 = ╱54╱T╱ // 0x1c36 @0x18
0x1c1e…1c3b at0019 = ╱45╱E╱ // 0x1c37 @0x19
0x1c1e…1c3b at001a = ╱53╱S╱ // 0x1c38 @0x1a
0x1c1e…1c3b at001b = ╱54╱T╱ // 0x1c39 @0x1b
0x1c1e…1c3b at001c = EOL // 0x1c3a @0x1c
0x1c1e…1c3b }
0x1c3b…1c5c a9b3 3590 EXEC FINDTAST(2,2,FNR)
0x1c3b…1c5c LineComalBin {
0x1c3b…1c5c ptr = 0xa9b3 // 0x1c3b @0x0
0x1c3b…1c5c lno = 0x0e06 // 0x1c3d @0x2
0x1c3b…1c5c at0004 = ╱9d╱ EXEC ╱ // 0x1c3f @0x4
0x1c3b…1c5c at0005 = ╱46╱F╱ // 0x1c40 @0x5
0x1c3b…1c5c at0006 = ╱49╱I╱ // 0x1c41 @0x6
0x1c3b…1c5c at0007 = ╱4e╱N╱ // 0x1c42 @0x7
0x1c3b…1c5c at0008 = ╱44╱D╱ // 0x1c43 @0x8
0x1c3b…1c5c at0009 = ╱54╱T╱ // 0x1c44 @0x9
0x1c3b…1c5c at000a = ╱41╱A╱ // 0x1c45 @0xa
0x1c3b…1c5c at000b = ╱53╱S╱ // 0x1c46 @0xb
0x1c3b…1c5c at000c = ╱54╱T╱ // 0x1c47 @0xc
0x1c3b…1c5c at000d = ╱ed╱(╱ // 0x1c48 @0xd
0x1c3b…1c5c at000e = ╱32╱2╱ // 0x1c49 @0xe
0x1c3b…1c5c at000f = ╱fe00008002╱ // 0x1c4a @0xf
0x1c3b…1c5c at0014 = ╱ec╱,╱ // 0x1c4f @0x14
0x1c3b…1c5c at0015 = ╱32╱2╱ // 0x1c50 @0x15
0x1c3b…1c5c at0016 = ╱fe00008002╱ // 0x1c51 @0x16
0x1c3b…1c5c at001b = ╱ec╱,╱ // 0x1c56 @0x1b
0x1c3b…1c5c at001c = ╱46╱F╱ // 0x1c57 @0x1c
0x1c3b…1c5c at001d = ╱4e╱N╱ // 0x1c58 @0x1d
0x1c3b…1c5c at001e = ╱52╱R╱ // 0x1c59 @0x1e
0x1c3b…1c5c at001f = ╱ee╱)╱ // 0x1c5a @0x1f
0x1c3b…1c5c at0020 = EOL // 0x1c5b @0x20
0x1c3b…1c5c }
0x1c5c…1c62 a9b9 3600 ELSE
0x1c5c…1c62 LineComalBin {
0x1c5c…1c62 ptr = 0xa9b9 // 0x1c5c @0x0
0x1c5c…1c62 lno = 0x0e10 // 0x1c5e @0x2
0x1c5c…1c62 at0004 = ╱9a╱ ELSE ╱ // 0x1c60 @0x4
0x1c5c…1c62 at0005 = EOL // 0x1c61 @0x5
0x1c5c…1c62 }
0x1c62…1c8b a9e2 3610 FNAVN$=BLANK$(E:25);FUKODE$="0"
0x1c62…1c8b LineComalBin {
0x1c62…1c8b ptr = 0xa9e2 // 0x1c62 @0x0
0x1c62…1c8b lno = 0x0e1a // 0x1c64 @0x2
0x1c62…1c8b at0004 = ╱46╱F╱ // 0x1c66 @0x4
0x1c62…1c8b at0005 = ╱4e╱N╱ // 0x1c67 @0x5
0x1c62…1c8b at0006 = ╱41╱A╱ // 0x1c68 @0x6
0x1c62…1c8b at0007 = ╱56╱V╱ // 0x1c69 @0x7
0x1c62…1c8b at0008 = ╱4e╱N╱ // 0x1c6a @0x8
0x1c62…1c8b at0009 = ╱ef╱$╱ // 0x1c6b @0x9
0x1c62…1c8b at000a = ╱dc╱=╱ // 0x1c6c @0xa
0x1c62…1c8b at000b = ╱42╱B╱ // 0x1c6d @0xb
0x1c62…1c8b at000c = ╱4c╱L╱ // 0x1c6e @0xc
0x1c62…1c8b at000d = ╱41╱A╱ // 0x1c6f @0xd
0x1c62…1c8b at000e = ╱4e╱N╱ // 0x1c70 @0xe
0x1c62…1c8b at000f = ╱4b╱K╱ // 0x1c71 @0xf
0x1c62…1c8b at0010 = ╱ef╱$╱ // 0x1c72 @0x10
0x1c62…1c8b at0011 = ╱ed╱(╱ // 0x1c73 @0x11
0x1c62…1c8b at0012 = ╱45╱E╱ // 0x1c74 @0x12
0x1c62…1c8b at0013 = ╱f0╱:╱ // 0x1c75 @0x13
0x1c62…1c8b at0014 = ╱32╱2╱ // 0x1c76 @0x14
0x1c62…1c8b at0015 = ╱35╱5╱ // 0x1c77 @0x15
0x1c62…1c8b at0016 = ╱fe0000c805╱ // 0x1c78 @0x16
0x1c62…1c8b at001b = ╱ee╱)╱ // 0x1c7d @0x1b
0x1c62…1c8b at001c = ╱eb╱;╱ // 0x1c7e @0x1c
0x1c62…1c8b at001d = ╱46╱F╱ // 0x1c7f @0x1d
0x1c62…1c8b at001e = ╱55╱U╱ // 0x1c80 @0x1e
0x1c62…1c8b at001f = ╱4b╱K╱ // 0x1c81 @0x1f
0x1c62…1c8b at0020 = ╱4f╱O╱ // 0x1c82 @0x20
0x1c62…1c8b at0021 = ╱44╱D╱ // 0x1c83 @0x21
0x1c62…1c8b at0022 = ╱45╱E╱ // 0x1c84 @0x22
0x1c62…1c8b at0023 = ╱ef╱$╱ // 0x1c85 @0x23
0x1c62…1c8b at0024 = ╱dc╱=╱ // 0x1c86 @0x24
0x1c62…1c8b at0025 = ╱22╱"╱ // 0x1c87 @0x25
0x1c62…1c8b at0026 = ╱30╱0╱ // 0x1c88 @0x26
0x1c62…1c8b at0027 = ╱22╱"╱ // 0x1c89 @0x27
0x1c62…1c8b at0028 = EOL // 0x1c8a @0x28
0x1c62…1c8b }
0x1c8b…1cac aa03 3620 EXEC FINDTAST(2,0,FNR)
0x1c8b…1cac LineComalBin {
0x1c8b…1cac ptr = 0xaa03 // 0x1c8b @0x0
0x1c8b…1cac lno = 0x0e24 // 0x1c8d @0x2
0x1c8b…1cac at0004 = ╱9d╱ EXEC ╱ // 0x1c8f @0x4
0x1c8b…1cac at0005 = ╱46╱F╱ // 0x1c90 @0x5
0x1c8b…1cac at0006 = ╱49╱I╱ // 0x1c91 @0x6
0x1c8b…1cac at0007 = ╱4e╱N╱ // 0x1c92 @0x7
0x1c8b…1cac at0008 = ╱44╱D╱ // 0x1c93 @0x8
0x1c8b…1cac at0009 = ╱54╱T╱ // 0x1c94 @0x9
0x1c8b…1cac at000a = ╱41╱A╱ // 0x1c95 @0xa
0x1c8b…1cac at000b = ╱53╱S╱ // 0x1c96 @0xb
0x1c8b…1cac at000c = ╱54╱T╱ // 0x1c97 @0xc
0x1c8b…1cac at000d = ╱ed╱(╱ // 0x1c98 @0xd
0x1c8b…1cac at000e = ╱32╱2╱ // 0x1c99 @0xe
0x1c8b…1cac at000f = ╱fe00008002╱ // 0x1c9a @0xf
0x1c8b…1cac at0014 = ╱ec╱,╱ // 0x1c9f @0x14
0x1c8b…1cac at0015 = ╱30╱0╱ // 0x1ca0 @0x15
0x1c8b…1cac at0016 = ╱fe00000000╱ // 0x1ca1 @0x16
0x1c8b…1cac at001b = ╱ec╱,╱ // 0x1ca6 @0x1b
0x1c8b…1cac at001c = ╱46╱F╱ // 0x1ca7 @0x1c
0x1c8b…1cac at001d = ╱4e╱N╱ // 0x1ca8 @0x1d
0x1c8b…1cac at001e = ╱52╱R╱ // 0x1ca9 @0x1e
0x1c8b…1cac at001f = ╱ee╱)╱ // 0x1caa @0x1f
0x1c8b…1cac at0020 = EOL // 0x1cab @0x20
0x1c8b…1cac }
0x1cac…1cb2 aa09 3630 ENDIF
0x1cac…1cb2 LineComalBin {
0x1cac…1cb2 ptr = 0xaa09 // 0x1cac @0x0
0x1cac…1cb2 lno = 0x0e2e // 0x1cae @0x2
0x1cac…1cb2 at0004 = ╱9b╱ ENDIF ╱ // 0x1cb0 @0x4
0x1cac…1cb2 at0005 = EOL // 0x1cb1 @0x5
0x1cac…1cb2 }
0x1cb2…1cb8 aa0f 3640 ENDIF
0x1cb2…1cb8 LineComalBin {
0x1cb2…1cb8 ptr = 0xaa0f // 0x1cb2 @0x0
0x1cb2…1cb8 lno = 0x0e38 // 0x1cb4 @0x2
0x1cb2…1cb8 at0004 = ╱9b╱ ENDIF ╱ // 0x1cb6 @0x4
0x1cb2…1cb8 at0005 = EOL // 0x1cb7 @0x5
0x1cb2…1cb8 }
0x1cb8…1cc5 aa1c 3650 IF FNR=B THEN EXIT
0x1cb8…1cc5 LineComalBin {
0x1cb8…1cc5 ptr = 0xaa1c // 0x1cb8 @0x0
0x1cb8…1cc5 lno = 0x0e42 // 0x1cba @0x2
0x1cb8…1cc5 at0004 = ╱82╱ IF ╱ // 0x1cbc @0x4
0x1cb8…1cc5 at0005 = ╱46╱F╱ // 0x1cbd @0x5
0x1cb8…1cc5 at0006 = ╱4e╱N╱ // 0x1cbe @0x6
0x1cb8…1cc5 at0007 = ╱52╱R╱ // 0x1cbf @0x7
0x1cb8…1cc5 at0008 = ╱dc╱=╱ // 0x1cc0 @0x8
0x1cb8…1cc5 at0009 = ╱42╱B╱ // 0x1cc1 @0x9
0x1cb8…1cc5 at000a = ╱b6╱ THEN ╱ // 0x1cc2 @0xa
0x1cb8…1cc5 at000b = ╱99╱ EXIT ╱ // 0x1cc3 @0xb
0x1cb8…1cc5 at000c = EOL // 0x1cc4 @0xc
0x1cb8…1cc5 }
0x1cc5…1cd2 aa29 3660 IF TEST=B THEN
0x1cc5…1cd2 LineComalBin {
0x1cc5…1cd2 ptr = 0xaa29 // 0x1cc5 @0x0
0x1cc5…1cd2 lno = 0x0e4c // 0x1cc7 @0x2
0x1cc5…1cd2 at0004 = ╱9c╱ IF ╱ // 0x1cc9 @0x4
0x1cc5…1cd2 at0005 = ╱54╱T╱ // 0x1cca @0x5
0x1cc5…1cd2 at0006 = ╱45╱E╱ // 0x1ccb @0x6
0x1cc5…1cd2 at0007 = ╱53╱S╱ // 0x1ccc @0x7
0x1cc5…1cd2 at0008 = ╱54╱T╱ // 0x1ccd @0x8
0x1cc5…1cd2 at0009 = ╱dc╱=╱ // 0x1cce @0x9
0x1cc5…1cd2 at000a = ╱42╱B╱ // 0x1ccf @0xa
0x1cc5…1cd2 at000b = ╱b6╱ THEN ╱ // 0x1cd0 @0xb
0x1cc5…1cd2 at000c = EOL // 0x1cd1 @0xc
0x1cc5…1cd2 }
0x1cd2…1cde aa35 3670 CASE TYPE OF
0x1cd2…1cde LineComalBin {
0x1cd2…1cde ptr = 0xaa35 // 0x1cd2 @0x0
0x1cd2…1cde lno = 0x0e56 // 0x1cd4 @0x2
0x1cd2…1cde at0004 = ╱a201╱ CASE ╱ // 0x1cd6 @0x4
0x1cd2…1cde at0006 = ╱54╱T╱ // 0x1cd8 @0x6
0x1cd2…1cde at0007 = ╱59╱Y╱ // 0x1cd9 @0x7
0x1cd2…1cde at0008 = ╱50╱P╱ // 0x1cda @0x8
0x1cd2…1cde at0009 = ╱45╱E╱ // 0x1cdb @0x9
0x1cd2…1cde at000a = ╱ba╱ OF ╱ // 0x1cdc @0xa
0x1cd2…1cde at000b = EOL // 0x1cdd @0xb
0x1cd2…1cde }
0x1cde…1ce4 aa3b 3680 STOP
0x1cde…1ce4 LineComalBin {
0x1cde…1ce4 ptr = 0xaa3b // 0x1cde @0x0
0x1cde…1ce4 lno = 0x0e60 // 0x1ce0 @0x2
0x1cde…1ce4 at0004 = ╱8d╱ STOP ╱ // 0x1ce2 @0x4
0x1cde…1ce4 at0005 = EOL // 0x1ce3 @0x5
0x1cde…1ce4 }
0x1ce4…1cee aa45 3690 WHEN E,G
0x1ce4…1cee LineComalBin {
0x1ce4…1cee ptr = 0xaa45 // 0x1ce4 @0x0
0x1ce4…1cee lno = 0x0e6a // 0x1ce6 @0x2
0x1ce4…1cee at0004 = ╱a301╱ WHEN ╱ // 0x1ce8 @0x4
0x1ce4…1cee at0006 = ╱45╱E╱ // 0x1cea @0x6
0x1ce4…1cee at0007 = ╱ec╱,╱ // 0x1ceb @0x7
0x1ce4…1cee at0008 = ╱47╱G╱ // 0x1cec @0x8
0x1ce4…1cee at0009 = EOL // 0x1ced @0x9
0x1ce4…1cee }
0x1cee…1cf4 aa4b 3700 REPEAT
0x1cee…1cf4 LineComalBin {
0x1cee…1cf4 ptr = 0xaa4b // 0x1cee @0x0
0x1cee…1cf4 lno = 0x0e74 // 0x1cf0 @0x2
0x1cee…1cf4 at0004 = ╱97╱ REPEAT ╱ // 0x1cf2 @0x4
0x1cee…1cf4 at0005 = EOL // 0x1cf3 @0x5
0x1cee…1cf4 }
0x1cf4…1cfa aa51 3710 REPEAT
0x1cf4…1cfa LineComalBin {
0x1cf4…1cfa ptr = 0xaa51 // 0x1cf4 @0x0
0x1cf4…1cfa lno = 0x0e7e // 0x1cf6 @0x2
0x1cf4…1cfa at0004 = ╱97╱ REPEAT ╱ // 0x1cf8 @0x4
0x1cf4…1cfa at0005 = EOL // 0x1cf9 @0x5
0x1cf4…1cfa }
0x1cfa…1d09 aa60 3720 CURSOR V,23
0x1cfa…1d09 LineComalBin {
0x1cfa…1d09 ptr = 0xaa60 // 0x1cfa @0x0
0x1cfa…1d09 lno = 0x0e88 // 0x1cfc @0x2
0x1cfa…1d09 at0004 = ╱a1╱ CURSOR ╱ // 0x1cfe @0x4
0x1cfa…1d09 at0005 = ╱56╱V╱ // 0x1cff @0x5
0x1cfa…1d09 at0006 = ╱ec╱,╱ // 0x1d00 @0x6
0x1cfa…1d09 at0007 = ╱32╱2╱ // 0x1d01 @0x7
0x1cfa…1d09 at0008 = ╱33╱3╱ // 0x1d02 @0x8
0x1cfa…1d09 at0009 = ╱fe0000b805╱ // 0x1d03 @0x9
0x1cfa…1d09 at000e = EOL // 0x1d08 @0xe
0x1cfa…1d09 }
0x1d09…1d47 aa9e 3730 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-3, ";
0x1d09…1d47 LineComalBin {
0x1d09…1d47 ptr = 0xaa9e // 0x1d09 @0x0
0x1d09…1d47 lno = 0x0e92 // 0x1d0b @0x2
0x1d09…1d47 at0004 = ╱92╱ PRINT ╱ // 0x1d0d @0x4
0x1d09…1d47 at0005 = ╱22╱"╱ // 0x1d0e @0x5
0x1d09…1d47 at0006 = ╱48╱H╱ // 0x1d0f @0x6
0x1d09…1d47 at0007 = ╱76╱v╱ // 0x1d10 @0x7
0x1d09…1d47 at0008 = ╱69╱i╱ // 0x1d11 @0x8
0x1d09…1d47 at0009 = ╱6c╱l╱ // 0x1d12 @0x9
0x1d09…1d47 at000a = ╱6b╱k╱ // 0x1d13 @0xa
0x1d09…1d47 at000b = ╱65╱e╱ // 0x1d14 @0xb
0x1d09…1d47 at000c = ╱74╱t╱ // 0x1d15 @0xc
0x1d09…1d47 at000d = ╱20╱…╱ // 0x1d16 @0xd
0x1d09…1d47 at000e = ╱66╱f╱ // 0x1d17 @0xe
0x1d09…1d47 at000f = ╱65╱e╱ // 0x1d18 @0xf
0x1d09…1d47 at0010 = ╱6c╱l╱ // 0x1d19 @0x10
0x1d09…1d47 at0011 = ╱74╱t╱ // 0x1d1a @0x11
0x1d09…1d47 at0012 = ╱20╱…╱ // 0x1d1b @0x12
0x1d09…1d47 at0013 = ╱7c╱ø╱ // 0x1d1c @0x13
0x1d09…1d47 at0014 = ╱6e╱n╱ // 0x1d1d @0x14
0x1d09…1d47 at0015 = ╱73╱s╱ // 0x1d1e @0x15
0x1d09…1d47 at0016 = ╱6b╱k╱ // 0x1d1f @0x16
0x1d09…1d47 at0017 = ╱65╱e╱ // 0x1d20 @0x17
0x1d09…1d47 at0018 = ╱73╱s╱ // 0x1d21 @0x18
0x1d09…1d47 at0019 = ╱20╱…╱ // 0x1d22 @0x19
0x1d09…1d47 at001a = ╱7b╱æ╱ // 0x1d23 @0x1a
0x1d09…1d47 at001b = ╱6e╱n╱ // 0x1d24 @0x1b
0x1d09…1d47 at001c = ╱64╱d╱ // 0x1d25 @0x1c
0x1d09…1d47 at001d = ╱72╱r╱ // 0x1d26 @0x1d
0x1d09…1d47 at001e = ╱65╱e╱ // 0x1d27 @0x1e
0x1d09…1d47 at001f = ╱74╱t╱ // 0x1d28 @0x1f
0x1d09…1d47 at0020 = ╱20╱…╱ // 0x1d29 @0x20
0x1d09…1d47 at0021 = ╱20╱…╱ // 0x1d2a @0x21
0x1d09…1d47 at0022 = ╱20╱…╱ // 0x1d2b @0x22
0x1d09…1d47 at0023 = ╱20╱…╱ // 0x1d2c @0x23
0x1d09…1d47 at0024 = ╱20╱…╱ // 0x1d2d @0x24
0x1d09…1d47 at0025 = ╱20╱…╱ // 0x1d2e @0x25
0x1d09…1d47 at0026 = ╱28╱(╱ // 0x1d2f @0x26
0x1d09…1d47 at0027 = ╱49╱I╱ // 0x1d30 @0x27
0x1d09…1d47 at0028 = ╱6e╱n╱ // 0x1d31 @0x28
0x1d09…1d47 at0029 = ╱64╱d╱ // 0x1d32 @0x29
0x1d09…1d47 at002a = ╱74╱t╱ // 0x1d33 @0x2a
0x1d09…1d47 at002b = ╱61╱a╱ // 0x1d34 @0x2b
0x1d09…1d47 at002c = ╱73╱s╱ // 0x1d35 @0x2c
0x1d09…1d47 at002d = ╱74╱t╱ // 0x1d36 @0x2d
0x1d09…1d47 at002e = ╱20╱…╱ // 0x1d37 @0x2e
0x1d09…1d47 at002f = ╱66╱f╱ // 0x1d38 @0x2f
0x1d09…1d47 at0030 = ╱65╱e╱ // 0x1d39 @0x30
0x1d09…1d47 at0031 = ╱6c╱l╱ // 0x1d3a @0x31
0x1d09…1d47 at0032 = ╱74╱t╱ // 0x1d3b @0x32
0x1d09…1d47 at0033 = ╱6e╱n╱ // 0x1d3c @0x33
0x1d09…1d47 at0034 = ╱72╱r╱ // 0x1d3d @0x34
0x1d09…1d47 at0035 = ╱20╱…╱ // 0x1d3e @0x35
0x1d09…1d47 at0036 = ╱32╱2╱ // 0x1d3f @0x36
0x1d09…1d47 at0037 = ╱2d╱-╱ // 0x1d40 @0x37
0x1d09…1d47 at0038 = ╱33╱3╱ // 0x1d41 @0x38
0x1d09…1d47 at0039 = ╱2c╱,╱ // 0x1d42 @0x39
0x1d09…1d47 at003a = ╱20╱…╱ // 0x1d43 @0x3a
0x1d09…1d47 at003b = ╱22╱"╱ // 0x1d44 @0x3b
0x1d09…1d47 at003c = ╱eb╱;╱ // 0x1d45 @0x3c
0x1d09…1d47 at003d = EOL // 0x1d46 @0x3d
0x1d09…1d47 }
0x1d47…1d66 aabd 3740 PRINT "0:for færdig) "
0x1d47…1d66 LineComalBin {
0x1d47…1d66 ptr = 0xaabd // 0x1d47 @0x0
0x1d47…1d66 lno = 0x0e9c // 0x1d49 @0x2
0x1d47…1d66 at0004 = ╱92╱ PRINT ╱ // 0x1d4b @0x4
0x1d47…1d66 at0005 = ╱22╱"╱ // 0x1d4c @0x5
0x1d47…1d66 at0006 = ╱30╱0╱ // 0x1d4d @0x6
0x1d47…1d66 at0007 = ╱3a╱:╱ // 0x1d4e @0x7
0x1d47…1d66 at0008 = ╱66╱f╱ // 0x1d4f @0x8
0x1d47…1d66 at0009 = ╱6f╱o╱ // 0x1d50 @0x9
0x1d47…1d66 at000a = ╱72╱r╱ // 0x1d51 @0xa
0x1d47…1d66 at000b = ╱20╱…╱ // 0x1d52 @0xb
0x1d47…1d66 at000c = ╱66╱f╱ // 0x1d53 @0xc
0x1d47…1d66 at000d = ╱7b╱æ╱ // 0x1d54 @0xd
0x1d47…1d66 at000e = ╱72╱r╱ // 0x1d55 @0xe
0x1d47…1d66 at000f = ╱64╱d╱ // 0x1d56 @0xf
0x1d47…1d66 at0010 = ╱69╱i╱ // 0x1d57 @0x10
0x1d47…1d66 at0011 = ╱67╱g╱ // 0x1d58 @0x11
0x1d47…1d66 at0012 = ╱29╱)╱ // 0x1d59 @0x12
0x1d47…1d66 at0013 = ╱20╱…╱ // 0x1d5a @0x13
0x1d47…1d66 at0014 = ╱20╱…╱ // 0x1d5b @0x14
0x1d47…1d66 at0015 = ╱20╱…╱ // 0x1d5c @0x15
0x1d47…1d66 at0016 = ╱20╱…╱ // 0x1d5d @0x16
0x1d47…1d66 at0017 = ╱20╱…╱ // 0x1d5e @0x17
0x1d47…1d66 at0018 = ╱20╱…╱ // 0x1d5f @0x18
0x1d47…1d66 at0019 = ╱20╱…╱ // 0x1d60 @0x19
0x1d47…1d66 at001a = ╱20╱…╱ // 0x1d61 @0x1a
0x1d47…1d66 at001b = ╱20╱…╱ // 0x1d62 @0x1b
0x1d47…1d66 at001c = ╱20╱…╱ // 0x1d63 @0x1c
0x1d47…1d66 at001d = ╱22╱"╱ // 0x1d64 @0x1d
0x1d47…1d66 at001e = EOL // 0x1d65 @0x1e
0x1d47…1d66 }
0x1d66…1d7b aad2 3750 CURSOR 32,23
0x1d66…1d7b LineComalBin {
0x1d66…1d7b ptr = 0xaad2 // 0x1d66 @0x0
0x1d66…1d7b lno = 0x0ea6 // 0x1d68 @0x2
0x1d66…1d7b at0004 = ╱a1╱ CURSOR ╱ // 0x1d6a @0x4
0x1d66…1d7b at0005 = ╱33╱3╱ // 0x1d6b @0x5
0x1d66…1d7b at0006 = ╱32╱2╱ // 0x1d6c @0x6
0x1d66…1d7b at0007 = ╱fe00008006╱ // 0x1d6d @0x7
0x1d66…1d7b at000c = ╱ec╱,╱ // 0x1d72 @0xc
0x1d66…1d7b at000d = ╱32╱2╱ // 0x1d73 @0xd
0x1d66…1d7b at000e = ╱33╱3╱ // 0x1d74 @0xe
0x1d66…1d7b at000f = ╱fe0000b805╱ // 0x1d75 @0xf
0x1d66…1d7b at0014 = EOL // 0x1d7a @0x14
0x1d66…1d7b }
0x1d7b…1d83 aada 3760 INPUT A$
0x1d7b…1d83 LineComalBin {
0x1d7b…1d83 ptr = 0xaada // 0x1d7b @0x0
0x1d7b…1d83 lno = 0x0eb0 // 0x1d7d @0x2
0x1d7b…1d83 at0004 = ╱91╱ INPUT ╱ // 0x1d7f @0x4
0x1d7b…1d83 at0005 = ╱41╱A╱ // 0x1d80 @0x5
0x1d7b…1d83 at0006 = ╱ef╱$╱ // 0x1d81 @0x6
0x1d7b…1d83 at0007 = EOL // 0x1d82 @0x7
0x1d7b…1d83 }
0x1d83…1d93 aaea 3770 EXEC NRTEST(A$)
0x1d83…1d93 LineComalBin {
0x1d83…1d93 ptr = 0xaaea // 0x1d83 @0x0
0x1d83…1d93 lno = 0x0eba // 0x1d85 @0x2
0x1d83…1d93 at0004 = ╱9d╱ EXEC ╱ // 0x1d87 @0x4
0x1d83…1d93 at0005 = ╱4e╱N╱ // 0x1d88 @0x5
0x1d83…1d93 at0006 = ╱52╱R╱ // 0x1d89 @0x6
0x1d83…1d93 at0007 = ╱54╱T╱ // 0x1d8a @0x7
0x1d83…1d93 at0008 = ╱45╱E╱ // 0x1d8b @0x8
0x1d83…1d93 at0009 = ╱53╱S╱ // 0x1d8c @0x9
0x1d83…1d93 at000a = ╱54╱T╱ // 0x1d8d @0xa
0x1d83…1d93 at000b = ╱ed╱(╱ // 0x1d8e @0xb
0x1d83…1d93 at000c = ╱41╱A╱ // 0x1d8f @0xc
0x1d83…1d93 at000d = ╱ef╱$╱ // 0x1d90 @0xd
0x1d83…1d93 at000e = ╱ee╱)╱ // 0x1d91 @0xe
0x1d83…1d93 at000f = EOL // 0x1d92 @0xf
0x1d83…1d93 }
0x1d93…1dab ab02 3780 UNTIL P=B OR (P>E AND P<4)
0x1d93…1dab LineComalBin {
0x1d93…1dab ptr = 0xab02 // 0x1d93 @0x0
0x1d93…1dab lno = 0x0ec4 // 0x1d95 @0x2
0x1d93…1dab at0004 = ╱98╱ UNTIL ╱ // 0x1d97 @0x4
0x1d93…1dab at0005 = ╱50╱P╱ // 0x1d98 @0x5
0x1d93…1dab at0006 = ╱dc╱=╱ // 0x1d99 @0x6
0x1d93…1dab at0007 = ╱42╱B╱ // 0x1d9a @0x7
0x1d93…1dab at0008 = ╱db╱ OR ╱ // 0x1d9b @0x8
0x1d93…1dab at0009 = ╱ed╱(╱ // 0x1d9c @0x9
0x1d93…1dab at000a = ╱50╱P╱ // 0x1d9d @0xa
0x1d93…1dab at000b = ╱de╱>╱ // 0x1d9e @0xb
0x1d93…1dab at000c = ╱45╱E╱ // 0x1d9f @0xc
0x1d93…1dab at000d = ╱da╱ AND ╱ // 0x1da0 @0xd
0x1d93…1dab at000e = ╱50╱P╱ // 0x1da1 @0xe
0x1d93…1dab at000f = ╱dd╱<╱ // 0x1da2 @0xf
0x1d93…1dab at0010 = ╱34╱4╱ // 0x1da3 @0x10
0x1d93…1dab at0011 = ╱fe00008003╱ // 0x1da4 @0x11
0x1d93…1dab at0016 = ╱ee╱)╱ // 0x1da9 @0x16
0x1d93…1dab at0017 = EOL // 0x1daa @0x17
0x1d93…1dab }
0x1dab…1db7 ab0e 3790 STYR1=P
0x1dab…1db7 LineComalBin {
0x1dab…1db7 ptr = 0xab0e // 0x1dab @0x0
0x1dab…1db7 lno = 0x0ece // 0x1dad @0x2
0x1dab…1db7 at0004 = ╱53╱S╱ // 0x1daf @0x4
0x1dab…1db7 at0005 = ╱54╱T╱ // 0x1db0 @0x5
0x1dab…1db7 at0006 = ╱59╱Y╱ // 0x1db1 @0x6
0x1dab…1db7 at0007 = ╱52╱R╱ // 0x1db2 @0x7
0x1dab…1db7 at0008 = ╱31╱1╱ // 0x1db3 @0x8
0x1dab…1db7 at0009 = ╱dc╱=╱ // 0x1db4 @0x9
0x1dab…1db7 at000a = ╱50╱P╱ // 0x1db5 @0xa
0x1dab…1db7 at000b = EOL // 0x1db6 @0xb
0x1dab…1db7 }
0x1db7…1dc6 ab1d 3800 IF STYR1=B THEN EXIT
0x1db7…1dc6 LineComalBin {
0x1db7…1dc6 ptr = 0xab1d // 0x1db7 @0x0
0x1db7…1dc6 lno = 0x0ed8 // 0x1db9 @0x2
0x1db7…1dc6 at0004 = ╱82╱ IF ╱ // 0x1dbb @0x4
0x1db7…1dc6 at0005 = ╱53╱S╱ // 0x1dbc @0x5
0x1db7…1dc6 at0006 = ╱54╱T╱ // 0x1dbd @0x6
0x1db7…1dc6 at0007 = ╱59╱Y╱ // 0x1dbe @0x7
0x1db7…1dc6 at0008 = ╱52╱R╱ // 0x1dbf @0x8
0x1db7…1dc6 at0009 = ╱31╱1╱ // 0x1dc0 @0x9
0x1db7…1dc6 at000a = ╱dc╱=╱ // 0x1dc1 @0xa
0x1db7…1dc6 at000b = ╱42╱B╱ // 0x1dc2 @0xb
0x1db7…1dc6 at000c = ╱b6╱ THEN ╱ // 0x1dc3 @0xc
0x1db7…1dc6 at000d = ╱99╱ EXIT ╱ // 0x1dc4 @0xd
0x1db7…1dc6 at000e = EOL // 0x1dc5 @0xe
0x1db7…1dc6 }
0x1dc6…1de6 ab3d 3810 EXEC FINDTAST(STYR1,1,FNR)
0x1dc6…1de6 LineComalBin {
0x1dc6…1de6 ptr = 0xab3d // 0x1dc6 @0x0
0x1dc6…1de6 lno = 0x0ee2 // 0x1dc8 @0x2
0x1dc6…1de6 at0004 = ╱9d╱ EXEC ╱ // 0x1dca @0x4
0x1dc6…1de6 at0005 = ╱46╱F╱ // 0x1dcb @0x5
0x1dc6…1de6 at0006 = ╱49╱I╱ // 0x1dcc @0x6
0x1dc6…1de6 at0007 = ╱4e╱N╱ // 0x1dcd @0x7
0x1dc6…1de6 at0008 = ╱44╱D╱ // 0x1dce @0x8
0x1dc6…1de6 at0009 = ╱54╱T╱ // 0x1dcf @0x9
0x1dc6…1de6 at000a = ╱41╱A╱ // 0x1dd0 @0xa
0x1dc6…1de6 at000b = ╱53╱S╱ // 0x1dd1 @0xb
0x1dc6…1de6 at000c = ╱54╱T╱ // 0x1dd2 @0xc
0x1dc6…1de6 at000d = ╱ed╱(╱ // 0x1dd3 @0xd
0x1dc6…1de6 at000e = ╱53╱S╱ // 0x1dd4 @0xe
0x1dc6…1de6 at000f = ╱54╱T╱ // 0x1dd5 @0xf
0x1dc6…1de6 at0010 = ╱59╱Y╱ // 0x1dd6 @0x10
0x1dc6…1de6 at0011 = ╱52╱R╱ // 0x1dd7 @0x11
0x1dc6…1de6 at0012 = ╱31╱1╱ // 0x1dd8 @0x12
0x1dc6…1de6 at0013 = ╱ec╱,╱ // 0x1dd9 @0x13
0x1dc6…1de6 at0014 = ╱31╱1╱ // 0x1dda @0x14
0x1dc6…1de6 at0015 = ╱fe00008001╱ // 0x1ddb @0x15
0x1dc6…1de6 at001a = ╱ec╱,╱ // 0x1de0 @0x1a
0x1dc6…1de6 at001b = ╱46╱F╱ // 0x1de1 @0x1b
0x1dc6…1de6 at001c = ╱4e╱N╱ // 0x1de2 @0x1c
0x1dc6…1de6 at001d = ╱52╱R╱ // 0x1de3 @0x1d
0x1dc6…1de6 at001e = ╱ee╱)╱ // 0x1de4 @0x1e
0x1dc6…1de6 at001f = EOL // 0x1de5 @0x1f
0x1dc6…1de6 }
0x1de6…1df3 ab4a 3820 UNTIL STYR1=B
0x1de6…1df3 LineComalBin {
0x1de6…1df3 ptr = 0xab4a // 0x1de6 @0x0
0x1de6…1df3 lno = 0x0eec // 0x1de8 @0x2
0x1de6…1df3 at0004 = ╱98╱ UNTIL ╱ // 0x1dea @0x4
0x1de6…1df3 at0005 = ╱53╱S╱ // 0x1deb @0x5
0x1de6…1df3 at0006 = ╱54╱T╱ // 0x1dec @0x6
0x1de6…1df3 at0007 = ╱59╱Y╱ // 0x1ded @0x7
0x1de6…1df3 at0008 = ╱52╱R╱ // 0x1dee @0x8
0x1de6…1df3 at0009 = ╱31╱1╱ // 0x1def @0x9
0x1de6…1df3 at000a = ╱dc╱=╱ // 0x1df0 @0xa
0x1de6…1df3 at000b = ╱42╱B╱ // 0x1df1 @0xb
0x1de6…1df3 at000c = EOL // 0x1df2 @0xc
0x1de6…1df3 }
0x1df3…1e01 ab58 3830 EXEC FINDPOST
0x1df3…1e01 LineComalBin {
0x1df3…1e01 ptr = 0xab58 // 0x1df3 @0x0
0x1df3…1e01 lno = 0x0ef6 // 0x1df5 @0x2
0x1df3…1e01 at0004 = ╱9d╱ EXEC ╱ // 0x1df7 @0x4
0x1df3…1e01 at0005 = ╱46╱F╱ // 0x1df8 @0x5
0x1df3…1e01 at0006 = ╱49╱I╱ // 0x1df9 @0x6
0x1df3…1e01 at0007 = ╱4e╱N╱ // 0x1dfa @0x7
0x1df3…1e01 at0008 = ╱44╱D╱ // 0x1dfb @0x8
0x1df3…1e01 at0009 = ╱50╱P╱ // 0x1dfc @0x9
0x1df3…1e01 at000a = ╱4f╱O╱ // 0x1dfd @0xa
0x1df3…1e01 at000b = ╱53╱S╱ // 0x1dfe @0xb
0x1df3…1e01 at000c = ╱54╱T╱ // 0x1dff @0xc
0x1df3…1e01 at000d = EOL // 0x1e00 @0xd
0x1df3…1e01 }
0x1e01…1e0d ab64 3840 EXEC INDSÆT
0x1e01…1e0d LineComalBin {
0x1e01…1e0d ptr = 0xab64 // 0x1e01 @0x0
0x1e01…1e0d lno = 0x0f00 // 0x1e03 @0x2
0x1e01…1e0d at0004 = ╱9d╱ EXEC ╱ // 0x1e05 @0x4
0x1e01…1e0d at0005 = ╱49╱I╱ // 0x1e06 @0x5
0x1e01…1e0d at0006 = ╱4e╱N╱ // 0x1e07 @0x6
0x1e01…1e0d at0007 = ╱44╱D╱ // 0x1e08 @0x7
0x1e01…1e0d at0008 = ╱53╱S╱ // 0x1e09 @0x8
0x1e01…1e0d at0009 = ╱5b╱Æ╱ // 0x1e0a @0x9
0x1e01…1e0d at000a = ╱54╱T╱ // 0x1e0b @0xa
0x1e01…1e0d at000b = EOL // 0x1e0c @0xb
0x1e01…1e0d }
0x1e0d…1e1b ab72 3850 EXEC GEMUPOST
0x1e0d…1e1b LineComalBin {
0x1e0d…1e1b ptr = 0xab72 // 0x1e0d @0x0
0x1e0d…1e1b lno = 0x0f0a // 0x1e0f @0x2
0x1e0d…1e1b at0004 = ╱9d╱ EXEC ╱ // 0x1e11 @0x4
0x1e0d…1e1b at0005 = ╱47╱G╱ // 0x1e12 @0x5
0x1e0d…1e1b at0006 = ╱45╱E╱ // 0x1e13 @0x6
0x1e0d…1e1b at0007 = ╱4d╱M╱ // 0x1e14 @0x7
0x1e0d…1e1b at0008 = ╱55╱U╱ // 0x1e15 @0x8
0x1e0d…1e1b at0009 = ╱50╱P╱ // 0x1e16 @0x9
0x1e0d…1e1b at000a = ╱4f╱O╱ // 0x1e17 @0xa
0x1e0d…1e1b at000b = ╱53╱S╱ // 0x1e18 @0xb
0x1e0d…1e1b at000c = ╱54╱T╱ // 0x1e19 @0xc
0x1e0d…1e1b at000d = EOL // 0x1e1a @0xd
0x1e0d…1e1b }
0x1e1b…1e23 ab7a 3860 WHEN V
0x1e1b…1e23 LineComalBin {
0x1e1b…1e23 ptr = 0xab7a // 0x1e1b @0x0
0x1e1b…1e23 lno = 0x0f14 // 0x1e1d @0x2
0x1e1b…1e23 at0004 = ╱a301╱ WHEN ╱ // 0x1e1f @0x4
0x1e1b…1e23 at0006 = ╱56╱V╱ // 0x1e21 @0x6
0x1e1b…1e23 at0007 = EOL // 0x1e22 @0x7
0x1e1b…1e23 }
0x1e23…1e29 ab80 3870 REPEAT
0x1e23…1e29 LineComalBin {
0x1e23…1e29 ptr = 0xab80 // 0x1e23 @0x0
0x1e23…1e29 lno = 0x0f1e // 0x1e25 @0x2
0x1e23…1e29 at0004 = ╱97╱ REPEAT ╱ // 0x1e27 @0x4
0x1e23…1e29 at0005 = EOL // 0x1e28 @0x5
0x1e23…1e29 }
0x1e29…1e38 ab8f 3880 CURSOR V,23
0x1e29…1e38 LineComalBin {
0x1e29…1e38 ptr = 0xab8f // 0x1e29 @0x0
0x1e29…1e38 lno = 0x0f28 // 0x1e2b @0x2
0x1e29…1e38 at0004 = ╱a1╱ CURSOR ╱ // 0x1e2d @0x4
0x1e29…1e38 at0005 = ╱56╱V╱ // 0x1e2e @0x5
0x1e29…1e38 at0006 = ╱ec╱,╱ // 0x1e2f @0x6
0x1e29…1e38 at0007 = ╱32╱2╱ // 0x1e30 @0x7
0x1e29…1e38 at0008 = ╱33╱3╱ // 0x1e31 @0x8
0x1e29…1e38 at0009 = ╱fe0000b805╱ // 0x1e32 @0x9
0x1e29…1e38 at000e = EOL // 0x1e37 @0xe
0x1e29…1e38 }
0x1e38…1e6b abc2 3890 PRINT "Er det rigtigt at denne konto skal slettes";
0x1e38…1e6b LineComalBin {
0x1e38…1e6b ptr = 0xabc2 // 0x1e38 @0x0
0x1e38…1e6b lno = 0x0f32 // 0x1e3a @0x2
0x1e38…1e6b at0004 = ╱92╱ PRINT ╱ // 0x1e3c @0x4
0x1e38…1e6b at0005 = ╱22╱"╱ // 0x1e3d @0x5
0x1e38…1e6b at0006 = ╱45╱E╱ // 0x1e3e @0x6
0x1e38…1e6b at0007 = ╱72╱r╱ // 0x1e3f @0x7
0x1e38…1e6b at0008 = ╱20╱…╱ // 0x1e40 @0x8
0x1e38…1e6b at0009 = ╱64╱d╱ // 0x1e41 @0x9
0x1e38…1e6b at000a = ╱65╱e╱ // 0x1e42 @0xa
0x1e38…1e6b at000b = ╱74╱t╱ // 0x1e43 @0xb
0x1e38…1e6b at000c = ╱20╱…╱ // 0x1e44 @0xc
0x1e38…1e6b at000d = ╱72╱r╱ // 0x1e45 @0xd
0x1e38…1e6b at000e = ╱69╱i╱ // 0x1e46 @0xe
0x1e38…1e6b at000f = ╱67╱g╱ // 0x1e47 @0xf
0x1e38…1e6b at0010 = ╱74╱t╱ // 0x1e48 @0x10
0x1e38…1e6b at0011 = ╱69╱i╱ // 0x1e49 @0x11
0x1e38…1e6b at0012 = ╱67╱g╱ // 0x1e4a @0x12
0x1e38…1e6b at0013 = ╱74╱t╱ // 0x1e4b @0x13
0x1e38…1e6b at0014 = ╱20╱…╱ // 0x1e4c @0x14
0x1e38…1e6b at0015 = ╱61╱a╱ // 0x1e4d @0x15
0x1e38…1e6b at0016 = ╱74╱t╱ // 0x1e4e @0x16
0x1e38…1e6b at0017 = ╱20╱…╱ // 0x1e4f @0x17
0x1e38…1e6b at0018 = ╱64╱d╱ // 0x1e50 @0x18
0x1e38…1e6b at0019 = ╱65╱e╱ // 0x1e51 @0x19
0x1e38…1e6b at001a = ╱6e╱n╱ // 0x1e52 @0x1a
0x1e38…1e6b at001b = ╱6e╱n╱ // 0x1e53 @0x1b
0x1e38…1e6b at001c = ╱65╱e╱ // 0x1e54 @0x1c
0x1e38…1e6b at001d = ╱20╱…╱ // 0x1e55 @0x1d
0x1e38…1e6b at001e = ╱6b╱k╱ // 0x1e56 @0x1e
0x1e38…1e6b at001f = ╱6f╱o╱ // 0x1e57 @0x1f
0x1e38…1e6b at0020 = ╱6e╱n╱ // 0x1e58 @0x20
0x1e38…1e6b at0021 = ╱74╱t╱ // 0x1e59 @0x21
0x1e38…1e6b at0022 = ╱6f╱o╱ // 0x1e5a @0x22
0x1e38…1e6b at0023 = ╱20╱…╱ // 0x1e5b @0x23
0x1e38…1e6b at0024 = ╱73╱s╱ // 0x1e5c @0x24
0x1e38…1e6b at0025 = ╱6b╱k╱ // 0x1e5d @0x25
0x1e38…1e6b at0026 = ╱61╱a╱ // 0x1e5e @0x26
0x1e38…1e6b at0027 = ╱6c╱l╱ // 0x1e5f @0x27
0x1e38…1e6b at0028 = ╱20╱…╱ // 0x1e60 @0x28
0x1e38…1e6b at0029 = ╱73╱s╱ // 0x1e61 @0x29
0x1e38…1e6b at002a = ╱6c╱l╱ // 0x1e62 @0x2a
0x1e38…1e6b at002b = ╱65╱e╱ // 0x1e63 @0x2b
0x1e38…1e6b at002c = ╱74╱t╱ // 0x1e64 @0x2c
0x1e38…1e6b at002d = ╱74╱t╱ // 0x1e65 @0x2d
0x1e38…1e6b at002e = ╱65╱e╱ // 0x1e66 @0x2e
0x1e38…1e6b at002f = ╱73╱s╱ // 0x1e67 @0x2f
0x1e38…1e6b at0030 = ╱22╱"╱ // 0x1e68 @0x30
0x1e38…1e6b at0031 = ╱eb╱;╱ // 0x1e69 @0x31
0x1e38…1e6b at0032 = EOL // 0x1e6a @0x32
0x1e38…1e6b }
0x1e6b…1e90 abe7 3900 PRINT " (J/N)";BLANK$(E:23)
0x1e6b…1e90 LineComalBin {
0x1e6b…1e90 ptr = 0xabe7 // 0x1e6b @0x0
0x1e6b…1e90 lno = 0x0f3c // 0x1e6d @0x2
0x1e6b…1e90 at0004 = ╱92╱ PRINT ╱ // 0x1e6f @0x4
0x1e6b…1e90 at0005 = ╱22╱"╱ // 0x1e70 @0x5
0x1e6b…1e90 at0006 = ╱20╱…╱ // 0x1e71 @0x6
0x1e6b…1e90 at0007 = ╱20╱…╱ // 0x1e72 @0x7
0x1e6b…1e90 at0008 = ╱20╱…╱ // 0x1e73 @0x8
0x1e6b…1e90 at0009 = ╱20╱…╱ // 0x1e74 @0x9
0x1e6b…1e90 at000a = ╱20╱…╱ // 0x1e75 @0xa
0x1e6b…1e90 at000b = ╱20╱…╱ // 0x1e76 @0xb
0x1e6b…1e90 at000c = ╱28╱(╱ // 0x1e77 @0xc
0x1e6b…1e90 at000d = ╱4a╱J╱ // 0x1e78 @0xd
0x1e6b…1e90 at000e = ╱2f╱/╱ // 0x1e79 @0xe
0x1e6b…1e90 at000f = ╱4e╱N╱ // 0x1e7a @0xf
0x1e6b…1e90 at0010 = ╱29╱)╱ // 0x1e7b @0x10
0x1e6b…1e90 at0011 = ╱22╱"╱ // 0x1e7c @0x11
0x1e6b…1e90 at0012 = ╱eb╱;╱ // 0x1e7d @0x12
0x1e6b…1e90 at0013 = ╱42╱B╱ // 0x1e7e @0x13
0x1e6b…1e90 at0014 = ╱4c╱L╱ // 0x1e7f @0x14
0x1e6b…1e90 at0015 = ╱41╱A╱ // 0x1e80 @0x15
0x1e6b…1e90 at0016 = ╱4e╱N╱ // 0x1e81 @0x16
0x1e6b…1e90 at0017 = ╱4b╱K╱ // 0x1e82 @0x17
0x1e6b…1e90 at0018 = ╱ef╱$╱ // 0x1e83 @0x18
0x1e6b…1e90 at0019 = ╱ed╱(╱ // 0x1e84 @0x19
0x1e6b…1e90 at001a = ╱45╱E╱ // 0x1e85 @0x1a
0x1e6b…1e90 at001b = ╱f0╱:╱ // 0x1e86 @0x1b
0x1e6b…1e90 at001c = ╱32╱2╱ // 0x1e87 @0x1c
0x1e6b…1e90 at001d = ╱33╱3╱ // 0x1e88 @0x1d
0x1e6b…1e90 at001e = ╱fe0000b805╱ // 0x1e89 @0x1e
0x1e6b…1e90 at0023 = ╱ee╱)╱ // 0x1e8e @0x23
0x1e6b…1e90 at0024 = EOL // 0x1e8f @0x24
0x1e6b…1e90 }
0x1e90…1ea5 abfc 3910 CURSOR 48,23
0x1e90…1ea5 LineComalBin {
0x1e90…1ea5 ptr = 0xabfc // 0x1e90 @0x0
0x1e90…1ea5 lno = 0x0f46 // 0x1e92 @0x2
0x1e90…1ea5 at0004 = ╱a1╱ CURSOR ╱ // 0x1e94 @0x4
0x1e90…1ea5 at0005 = ╱34╱4╱ // 0x1e95 @0x5
0x1e90…1ea5 at0006 = ╱38╱8╱ // 0x1e96 @0x6
0x1e90…1ea5 at0007 = ╱fe0000c006╱ // 0x1e97 @0x7
0x1e90…1ea5 at000c = ╱ec╱,╱ // 0x1e9c @0xc
0x1e90…1ea5 at000d = ╱32╱2╱ // 0x1e9d @0xd
0x1e90…1ea5 at000e = ╱33╱3╱ // 0x1e9e @0xe
0x1e90…1ea5 at000f = ╱fe0000b805╱ // 0x1e9f @0xf
0x1e90…1ea5 at0014 = EOL // 0x1ea4 @0x14
0x1e90…1ea5 }
0x1ea5…1ead ac04 3920 INPUT A$
0x1ea5…1ead LineComalBin {
0x1ea5…1ead ptr = 0xac04 // 0x1ea5 @0x0
0x1ea5…1ead lno = 0x0f50 // 0x1ea7 @0x2
0x1ea5…1ead at0004 = ╱91╱ INPUT ╱ // 0x1ea9 @0x4
0x1ea5…1ead at0005 = ╱41╱A╱ // 0x1eaa @0x5
0x1ea5…1ead at0006 = ╱ef╱$╱ // 0x1eab @0x6
0x1ea5…1ead at0007 = EOL // 0x1eac @0x7
0x1ea5…1ead }
0x1ead…1ebd ac14 3930 EXEC NRTEST(A$)
0x1ead…1ebd LineComalBin {
0x1ead…1ebd ptr = 0xac14 // 0x1ead @0x0
0x1ead…1ebd lno = 0x0f5a // 0x1eaf @0x2
0x1ead…1ebd at0004 = ╱9d╱ EXEC ╱ // 0x1eb1 @0x4
0x1ead…1ebd at0005 = ╱4e╱N╱ // 0x1eb2 @0x5
0x1ead…1ebd at0006 = ╱52╱R╱ // 0x1eb3 @0x6
0x1ead…1ebd at0007 = ╱54╱T╱ // 0x1eb4 @0x7
0x1ead…1ebd at0008 = ╱45╱E╱ // 0x1eb5 @0x8
0x1ead…1ebd at0009 = ╱53╱S╱ // 0x1eb6 @0x9
0x1ead…1ebd at000a = ╱54╱T╱ // 0x1eb7 @0xa
0x1ead…1ebd at000b = ╱ed╱(╱ // 0x1eb8 @0xb
0x1ead…1ebd at000c = ╱41╱A╱ // 0x1eb9 @0xc
0x1ead…1ebd at000d = ╱ef╱$╱ // 0x1eba @0xd
0x1ead…1ebd at000e = ╱ee╱)╱ // 0x1ebb @0xe
0x1ead…1ebd at000f = EOL // 0x1ebc @0xf
0x1ead…1ebd }
0x1ebd…1ed6 ac2d 3940 UNTIL P=-7 OR P=-8
0x1ebd…1ed6 LineComalBin {
0x1ebd…1ed6 ptr = 0xac2d // 0x1ebd @0x0
0x1ebd…1ed6 lno = 0x0f64 // 0x1ebf @0x2
0x1ebd…1ed6 at0004 = ╱98╱ UNTIL ╱ // 0x1ec1 @0x4
0x1ebd…1ed6 at0005 = ╱50╱P╱ // 0x1ec2 @0x5
0x1ebd…1ed6 at0006 = ╱dc╱=╱ // 0x1ec3 @0x6
0x1ebd…1ed6 at0007 = ╱e9╱-╱ // 0x1ec4 @0x7
0x1ebd…1ed6 at0008 = ╱37╱7╱ // 0x1ec5 @0x8
0x1ebd…1ed6 at0009 = ╱fe0000e003╱ // 0x1ec6 @0x9
0x1ebd…1ed6 at000e = ╱db╱ OR ╱ // 0x1ecb @0xe
0x1ebd…1ed6 at000f = ╱50╱P╱ // 0x1ecc @0xf
0x1ebd…1ed6 at0010 = ╱dc╱=╱ // 0x1ecd @0x10
0x1ebd…1ed6 at0011 = ╱e9╱-╱ // 0x1ece @0x11
0x1ebd…1ed6 at0012 = ╱38╱8╱ // 0x1ecf @0x12
0x1ebd…1ed6 at0013 = ╱fe00008004╱ // 0x1ed0 @0x13
0x1ebd…1ed6 at0018 = EOL // 0x1ed5 @0x18
0x1ebd…1ed6 }
0x1ed6…1ee6 ac3d 3950 IF P=-7 THEN
0x1ed6…1ee6 LineComalBin {
0x1ed6…1ee6 ptr = 0xac3d // 0x1ed6 @0x0
0x1ed6…1ee6 lno = 0x0f6e // 0x1ed8 @0x2
0x1ed6…1ee6 at0004 = ╱9c╱ IF ╱ // 0x1eda @0x4
0x1ed6…1ee6 at0005 = ╱50╱P╱ // 0x1edb @0x5
0x1ed6…1ee6 at0006 = ╱dc╱=╱ // 0x1edc @0x6
0x1ed6…1ee6 at0007 = ╱e9╱-╱ // 0x1edd @0x7
0x1ed6…1ee6 at0008 = ╱37╱7╱ // 0x1ede @0x8
0x1ed6…1ee6 at0009 = ╱fe0000e003╱ // 0x1edf @0x9
0x1ed6…1ee6 at000e = ╱b6╱ THEN ╱ // 0x1ee4 @0xe
0x1ed6…1ee6 at000f = EOL // 0x1ee5 @0xf
0x1ed6…1ee6 }
0x1ee6…1ef4 ac4b 3960 EXEC SLETPOST
0x1ee6…1ef4 LineComalBin {
0x1ee6…1ef4 ptr = 0xac4b // 0x1ee6 @0x0
0x1ee6…1ef4 lno = 0x0f78 // 0x1ee8 @0x2
0x1ee6…1ef4 at0004 = ╱9d╱ EXEC ╱ // 0x1eea @0x4
0x1ee6…1ef4 at0005 = ╱53╱S╱ // 0x1eeb @0x5
0x1ee6…1ef4 at0006 = ╱4c╱L╱ // 0x1eec @0x6
0x1ee6…1ef4 at0007 = ╱45╱E╱ // 0x1eed @0x7
0x1ee6…1ef4 at0008 = ╱54╱T╱ // 0x1eee @0x8
0x1ee6…1ef4 at0009 = ╱50╱P╱ // 0x1eef @0x9
0x1ee6…1ef4 at000a = ╱4f╱O╱ // 0x1ef0 @0xa
0x1ee6…1ef4 at000b = ╱53╱S╱ // 0x1ef1 @0xb
0x1ee6…1ef4 at000c = ╱54╱T╱ // 0x1ef2 @0xc
0x1ee6…1ef4 at000d = EOL // 0x1ef3 @0xd
0x1ee6…1ef4 }
0x1ef4…1efa ac51 3970 ENDIF
0x1ef4…1efa LineComalBin {
0x1ef4…1efa ptr = 0xac51 // 0x1ef4 @0x0
0x1ef4…1efa lno = 0x0f82 // 0x1ef6 @0x2
0x1ef4…1efa at0004 = ╱9b╱ ENDIF ╱ // 0x1ef8 @0x4
0x1ef4…1efa at0005 = EOL // 0x1ef9 @0x5
0x1ef4…1efa }
0x1efa…1f07 ac5e 3980 WHEN 4
0x1efa…1f07 LineComalBin {
0x1efa…1f07 ptr = 0xac5e // 0x1efa @0x0
0x1efa…1f07 lno = 0x0f8c // 0x1efc @0x2
0x1efa…1f07 at0004 = ╱a301╱ WHEN ╱ // 0x1efe @0x4
0x1efa…1f07 at0006 = ╱34╱4╱ // 0x1f00 @0x6
0x1efa…1f07 at0007 = ╱fe00008003╱ // 0x1f01 @0x7
0x1efa…1f07 at000c = EOL // 0x1f06 @0xc
0x1efa…1f07 }
0x1f07…1f14 ac6b 3990 WHEN 5
0x1f07…1f14 LineComalBin {
0x1f07…1f14 ptr = 0xac6b // 0x1f07 @0x0
0x1f07…1f14 lno = 0x0f96 // 0x1f09 @0x2
0x1f07…1f14 at0004 = ╱a301╱ WHEN ╱ // 0x1f0b @0x4
0x1f07…1f14 at0006 = ╱35╱5╱ // 0x1f0d @0x6
0x1f07…1f14 at0007 = ╱fe0000a003╱ // 0x1f0e @0x7
0x1f07…1f14 at000c = EOL // 0x1f13 @0xc
0x1f07…1f14 }
0x1f14…1f1a ac71 4000 CLEAR
0x1f14…1f1a LineComalBin {
0x1f14…1f1a ptr = 0xac71 // 0x1f14 @0x0
0x1f14…1f1a lno = 0x0fa0 // 0x1f16 @0x2
0x1f14…1f1a at0004 = ╱a0╱ CLEAR ╱ // 0x1f18 @0x4
0x1f14…1f1a at0005 = EOL // 0x1f19 @0x5
0x1f14…1f1a }
0x1f1a…1f20 ac77 4010 REPEAT
0x1f1a…1f20 LineComalBin {
0x1f1a…1f20 ptr = 0xac77 // 0x1f1a @0x0
0x1f1a…1f20 lno = 0x0faa // 0x1f1c @0x2
0x1f1a…1f20 at0004 = ╱97╱ REPEAT ╱ // 0x1f1e @0x4
0x1f1a…1f20 at0005 = EOL // 0x1f1f @0x5
0x1f1a…1f20 }
0x1f20…1f34 ac8b 4020 CURSOR 8,13
0x1f20…1f34 LineComalBin {
0x1f20…1f34 ptr = 0xac8b // 0x1f20 @0x0
0x1f20…1f34 lno = 0x0fb4 // 0x1f22 @0x2
0x1f20…1f34 at0004 = ╱a1╱ CURSOR ╱ // 0x1f24 @0x4
0x1f20…1f34 at0005 = ╱38╱8╱ // 0x1f25 @0x5
0x1f20…1f34 at0006 = ╱fe00008004╱ // 0x1f26 @0x6
0x1f20…1f34 at000b = ╱ec╱,╱ // 0x1f2b @0xb
0x1f20…1f34 at000c = ╱31╱1╱ // 0x1f2c @0xc
0x1f20…1f34 at000d = ╱33╱3╱ // 0x1f2d @0xd
0x1f20…1f34 at000e = ╱fe0000d004╱ // 0x1f2e @0xe
0x1f20…1f34 at0013 = EOL // 0x1f33 @0x13
0x1f20…1f34 }
0x1f34…1f7a acd1 4030 INPUT "Monter papir til udskrift af underkontoliste og tast RETURN",A$
0x1f34…1f7a LineComalBin {
0x1f34…1f7a ptr = 0xacd1 // 0x1f34 @0x0
0x1f34…1f7a lno = 0x0fbe // 0x1f36 @0x2
0x1f34…1f7a at0004 = ╱91╱ INPUT ╱ // 0x1f38 @0x4
0x1f34…1f7a at0005 = ╱22╱"╱ // 0x1f39 @0x5
0x1f34…1f7a at0006 = ╱4d╱M╱ // 0x1f3a @0x6
0x1f34…1f7a at0007 = ╱6f╱o╱ // 0x1f3b @0x7
0x1f34…1f7a at0008 = ╱6e╱n╱ // 0x1f3c @0x8
0x1f34…1f7a at0009 = ╱74╱t╱ // 0x1f3d @0x9
0x1f34…1f7a at000a = ╱65╱e╱ // 0x1f3e @0xa
0x1f34…1f7a at000b = ╱72╱r╱ // 0x1f3f @0xb
0x1f34…1f7a at000c = ╱20╱…╱ // 0x1f40 @0xc
0x1f34…1f7a at000d = ╱70╱p╱ // 0x1f41 @0xd
0x1f34…1f7a at000e = ╱61╱a╱ // 0x1f42 @0xe
0x1f34…1f7a at000f = ╱70╱p╱ // 0x1f43 @0xf
0x1f34…1f7a at0010 = ╱69╱i╱ // 0x1f44 @0x10
0x1f34…1f7a at0011 = ╱72╱r╱ // 0x1f45 @0x11
0x1f34…1f7a at0012 = ╱20╱…╱ // 0x1f46 @0x12
0x1f34…1f7a at0013 = ╱74╱t╱ // 0x1f47 @0x13
0x1f34…1f7a at0014 = ╱69╱i╱ // 0x1f48 @0x14
0x1f34…1f7a at0015 = ╱6c╱l╱ // 0x1f49 @0x15
0x1f34…1f7a at0016 = ╱20╱…╱ // 0x1f4a @0x16
0x1f34…1f7a at0017 = ╱75╱u╱ // 0x1f4b @0x17
0x1f34…1f7a at0018 = ╱64╱d╱ // 0x1f4c @0x18
0x1f34…1f7a at0019 = ╱73╱s╱ // 0x1f4d @0x19
0x1f34…1f7a at001a = ╱6b╱k╱ // 0x1f4e @0x1a
0x1f34…1f7a at001b = ╱72╱r╱ // 0x1f4f @0x1b
0x1f34…1f7a at001c = ╱69╱i╱ // 0x1f50 @0x1c
0x1f34…1f7a at001d = ╱66╱f╱ // 0x1f51 @0x1d
0x1f34…1f7a at001e = ╱74╱t╱ // 0x1f52 @0x1e
0x1f34…1f7a at001f = ╱20╱…╱ // 0x1f53 @0x1f
0x1f34…1f7a at0020 = ╱61╱a╱ // 0x1f54 @0x20
0x1f34…1f7a at0021 = ╱66╱f╱ // 0x1f55 @0x21
0x1f34…1f7a at0022 = ╱20╱…╱ // 0x1f56 @0x22
0x1f34…1f7a at0023 = ╱75╱u╱ // 0x1f57 @0x23
0x1f34…1f7a at0024 = ╱6e╱n╱ // 0x1f58 @0x24
0x1f34…1f7a at0025 = ╱64╱d╱ // 0x1f59 @0x25
0x1f34…1f7a at0026 = ╱65╱e╱ // 0x1f5a @0x26
0x1f34…1f7a at0027 = ╱72╱r╱ // 0x1f5b @0x27
0x1f34…1f7a at0028 = ╱6b╱k╱ // 0x1f5c @0x28
0x1f34…1f7a at0029 = ╱6f╱o╱ // 0x1f5d @0x29
0x1f34…1f7a at002a = ╱6e╱n╱ // 0x1f5e @0x2a
0x1f34…1f7a at002b = ╱74╱t╱ // 0x1f5f @0x2b
0x1f34…1f7a at002c = ╱6f╱o╱ // 0x1f60 @0x2c
0x1f34…1f7a at002d = ╱6c╱l╱ // 0x1f61 @0x2d
0x1f34…1f7a at002e = ╱69╱i╱ // 0x1f62 @0x2e
0x1f34…1f7a at002f = ╱73╱s╱ // 0x1f63 @0x2f
0x1f34…1f7a at0030 = ╱74╱t╱ // 0x1f64 @0x30
0x1f34…1f7a at0031 = ╱65╱e╱ // 0x1f65 @0x31
0x1f34…1f7a at0032 = ╱20╱…╱ // 0x1f66 @0x32
0x1f34…1f7a at0033 = ╱6f╱o╱ // 0x1f67 @0x33
0x1f34…1f7a at0034 = ╱67╱g╱ // 0x1f68 @0x34
0x1f34…1f7a at0035 = ╱20╱…╱ // 0x1f69 @0x35
0x1f34…1f7a at0036 = ╱74╱t╱ // 0x1f6a @0x36
0x1f34…1f7a at0037 = ╱61╱a╱ // 0x1f6b @0x37
0x1f34…1f7a at0038 = ╱73╱s╱ // 0x1f6c @0x38
0x1f34…1f7a at0039 = ╱74╱t╱ // 0x1f6d @0x39
0x1f34…1f7a at003a = ╱20╱…╱ // 0x1f6e @0x3a
0x1f34…1f7a at003b = ╱52╱R╱ // 0x1f6f @0x3b
0x1f34…1f7a at003c = ╱45╱E╱ // 0x1f70 @0x3c
0x1f34…1f7a at003d = ╱54╱T╱ // 0x1f71 @0x3d
0x1f34…1f7a at003e = ╱55╱U╱ // 0x1f72 @0x3e
0x1f34…1f7a at003f = ╱52╱R╱ // 0x1f73 @0x3f
0x1f34…1f7a at0040 = ╱4e╱N╱ // 0x1f74 @0x40
0x1f34…1f7a at0041 = ╱22╱"╱ // 0x1f75 @0x41
0x1f34…1f7a at0042 = ╱ec╱,╱ // 0x1f76 @0x42
0x1f34…1f7a at0043 = ╱41╱A╱ // 0x1f77 @0x43
0x1f34…1f7a at0044 = ╱ef╱$╱ // 0x1f78 @0x44
0x1f34…1f7a at0045 = EOL // 0x1f79 @0x45
0x1f34…1f7a }
0x1f7a…1f8e ace5 4040 UNTIL ORD(A$)=255
0x1f7a…1f8e LineComalBin {
0x1f7a…1f8e ptr = 0xace5 // 0x1f7a @0x0
0x1f7a…1f8e lno = 0x0fc8 // 0x1f7c @0x2
0x1f7a…1f8e at0004 = ╱98╱ UNTIL ╱ // 0x1f7e @0x4
0x1f7a…1f8e at0005 = ╱cd╱ORD╱ // 0x1f7f @0x5
0x1f7a…1f8e at0006 = ╱ed╱(╱ // 0x1f80 @0x6
0x1f7a…1f8e at0007 = ╱41╱A╱ // 0x1f81 @0x7
0x1f7a…1f8e at0008 = ╱ef╱$╱ // 0x1f82 @0x8
0x1f7a…1f8e at0009 = ╱ee╱)╱ // 0x1f83 @0x9
0x1f7a…1f8e at000a = ╱dc╱=╱ // 0x1f84 @0xa
0x1f7a…1f8e at000b = ╱32╱2╱ // 0x1f85 @0xb
0x1f7a…1f8e at000c = ╱35╱5╱ // 0x1f86 @0xc
0x1f7a…1f8e at000d = ╱35╱5╱ // 0x1f87 @0xd
0x1f7a…1f8e at000e = ╱fe0000ff08╱ // 0x1f88 @0xe
0x1f7a…1f8e at0013 = EOL // 0x1f8d @0x13
0x1f7a…1f8e }
0x1f8e…1f95 acec 4050 OUTPUT P
0x1f8e…1f95 LineComalBin {
0x1f8e…1f95 ptr = 0xacec // 0x1f8e @0x0
0x1f8e…1f95 lno = 0x0fd2 // 0x1f90 @0x2
0x1f8e…1f95 at0004 = ╱a5╱ OUTPUT ╱ // 0x1f92 @0x4
0x1f8e…1f95 at0005 = ╱50╱P╱ // 0x1f93 @0x5
0x1f8e…1f95 at0006 = EOL // 0x1f94 @0x6
0x1f8e…1f95 }
0x1f95…1fa0 (105,) acf7 4060 SIDE=E
0x1f95…1fa0 LineComalBin {
0x1f95…1fa0 ptr = 0xacf7 // 0x1f95 @0x0
0x1f95…1fa0 lno = 0x0fdc // 0x1f97 @0x2
0x1f95…1fa0 at0004 = ╱53╱S╱ // 0x1f99 @0x4
0x1f95…1fa0 at0005 = ╱49╱I╱ // 0x1f9a @0x5
0x1f95…1fa0 at0006 = ╱44╱D╱ // 0x1f9b @0x6
0x1f95…1fa0 at0007 = ╱45╱E╱ // 0x1f9c @0x7
0x1f95…1fa0 at0008 = ╱dc╱=╱ // 0x1f9d @0x8
0x1f95…1fa0 at0009 = ╱45╱E╱ // 0x1f9e @0x9
0x1f95…1fa0 at000a = EOL // 0x1f9f @0xa
0x1f95…1fa0 }
0x1fa0…1fad ad04 4070 DA1=DATO
0x1fa0…1fad LineComalBin {
0x1fa0…1fad ptr = 0xad04 // 0x1fa0 @0x0
0x1fa0…1fad lno = 0x0fe6 // 0x1fa2 @0x2
0x1fa0…1fad at0004 = ╱44╱D╱ // 0x1fa4 @0x4
0x1fa0…1fad at0005 = ╱41╱A╱ // 0x1fa5 @0x5
0x1fa0…1fad at0006 = ╱31╱1╱ // 0x1fa6 @0x6
0x1fa0…1fad at0007 = ╱dc╱=╱ // 0x1fa7 @0x7
0x1fa0…1fad at0008 = ╱44╱D╱ // 0x1fa8 @0x8
0x1fa0…1fad at0009 = ╱41╱A╱ // 0x1fa9 @0x9
0x1fa0…1fad at000a = ╱54╱T╱ // 0x1faa @0xa
0x1fa0…1fad at000b = ╱4f╱O╱ // 0x1fab @0xb
0x1fa0…1fad at000c = EOL // 0x1fac @0xc
0x1fa0…1fad }
0x1fad…1fc1 ad18 4080 DAT$=" "
0x1fad…1fc1 LineComalBin {
0x1fad…1fc1 ptr = 0xad18 // 0x1fad @0x0
0x1fad…1fc1 lno = 0x0ff0 // 0x1faf @0x2
0x1fad…1fc1 at0004 = ╱44╱D╱ // 0x1fb1 @0x4
0x1fad…1fc1 at0005 = ╱41╱A╱ // 0x1fb2 @0x5
0x1fad…1fc1 at0006 = ╱54╱T╱ // 0x1fb3 @0x6
0x1fad…1fc1 at0007 = ╱ef╱$╱ // 0x1fb4 @0x7
0x1fad…1fc1 at0008 = ╱dc╱=╱ // 0x1fb5 @0x8
0x1fad…1fc1 at0009 = ╱22╱"╱ // 0x1fb6 @0x9
0x1fad…1fc1 at000a = ╱20╱…╱ // 0x1fb7 @0xa
0x1fad…1fc1 at000b = ╱20╱…╱ // 0x1fb8 @0xb
0x1fad…1fc1 at000c = ╱20╱…╱ // 0x1fb9 @0xc
0x1fad…1fc1 at000d = ╱20╱…╱ // 0x1fba @0xd
0x1fad…1fc1 at000e = ╱20╱…╱ // 0x1fbb @0xe
0x1fad…1fc1 at000f = ╱20╱…╱ // 0x1fbc @0xf
0x1fad…1fc1 at0010 = ╱20╱…╱ // 0x1fbd @0x10
0x1fad…1fc1 at0011 = ╱20╱…╱ // 0x1fbe @0x11
0x1fad…1fc1 at0012 = ╱22╱"╱ // 0x1fbf @0x12
0x1fad…1fc1 at0013 = EOL // 0x1fc0 @0x13
0x1fad…1fc1 }
0x1fc1…1fd4 ad2b 4090 FOR J=8 TO E STEP -E
0x1fc1…1fd4 LineComalBin {
0x1fc1…1fd4 ptr = 0xad2b // 0x1fc1 @0x0
0x1fc1…1fd4 lno = 0x0ffa // 0x1fc3 @0x2
0x1fc1…1fd4 at0004 = ╱83╱ FOR ╱ // 0x1fc5 @0x4
0x1fc1…1fd4 at0005 = ╱4a╱J╱ // 0x1fc6 @0x5
0x1fc1…1fd4 at0006 = ╱dc╱=╱ // 0x1fc7 @0x6
0x1fc1…1fd4 at0007 = ╱38╱8╱ // 0x1fc8 @0x7
0x1fc1…1fd4 at0008 = ╱fe00008004╱ // 0x1fc9 @0x8
0x1fc1…1fd4 at000d = ╱b7╱ TO ╱ // 0x1fce @0xd
0x1fc1…1fd4 at000e = ╱45╱E╱ // 0x1fcf @0xe
0x1fc1…1fd4 at000f = ╱b8╱ STEP ╱ // 0x1fd0 @0xf
0x1fc1…1fd4 at0010 = ╱e9╱-╱ // 0x1fd1 @0x10
0x1fc1…1fd4 at0011 = ╱45╱E╱ // 0x1fd2 @0x11
0x1fc1…1fd4 at0012 = EOL // 0x1fd3 @0x12
0x1fc1…1fd4 }
0x1fd4…1fe0 ad37 4100 IF J MOD V=B THEN
0x1fd4…1fe0 LineComalBin {
0x1fd4…1fe0 ptr = 0xad37 // 0x1fd4 @0x0
0x1fd4…1fe0 lno = 0x1004 // 0x1fd6 @0x2
0x1fd4…1fe0 at0004 = ╱9c╱ IF ╱ // 0x1fd8 @0x4
0x1fd4…1fe0 at0005 = ╱4a╱J╱ // 0x1fd9 @0x5
0x1fd4…1fe0 at0006 = ╱e8╱ MOD ╱ // 0x1fda @0x6
0x1fd4…1fe0 at0007 = ╱56╱V╱ // 0x1fdb @0x7
0x1fd4…1fe0 at0008 = ╱dc╱=╱ // 0x1fdc @0x8
0x1fd4…1fe0 at0009 = ╱42╱B╱ // 0x1fdd @0x9
0x1fd4…1fe0 at000a = ╱b6╱ THEN ╱ // 0x1fde @0xa
0x1fd4…1fe0 at000b = EOL // 0x1fdf @0xb
0x1fd4…1fe0 }
0x1fe0…1ff0 ad47 4110 DAT$(J)="."
0x1fe0…1ff0 LineComalBin {
0x1fe0…1ff0 ptr = 0xad47 // 0x1fe0 @0x0
0x1fe0…1ff0 lno = 0x100e // 0x1fe2 @0x2
0x1fe0…1ff0 at0004 = ╱44╱D╱ // 0x1fe4 @0x4
0x1fe0…1ff0 at0005 = ╱41╱A╱ // 0x1fe5 @0x5
0x1fe0…1ff0 at0006 = ╱54╱T╱ // 0x1fe6 @0x6
0x1fe0…1ff0 at0007 = ╱ef╱$╱ // 0x1fe7 @0x7
0x1fe0…1ff0 at0008 = ╱ed╱(╱ // 0x1fe8 @0x8
0x1fe0…1ff0 at0009 = ╱4a╱J╱ // 0x1fe9 @0x9
0x1fe0…1ff0 at000a = ╱ee╱)╱ // 0x1fea @0xa
0x1fe0…1ff0 at000b = ╱dc╱=╱ // 0x1feb @0xb
0x1fe0…1ff0 at000c = ╱22╱"╱ // 0x1fec @0xc
0x1fe0…1ff0 at000d = ╱2e╱.╱ // 0x1fed @0xd
0x1fe0…1ff0 at000e = ╱22╱"╱ // 0x1fee @0xe
0x1fe0…1ff0 at000f = EOL // 0x1fef @0xf
0x1fe0…1ff0 }
0x1ff0…1ff6 ad4d 4120 ELSE
0x1ff0…1ff6 LineComalBin {
0x1ff0…1ff6 ptr = 0xad4d // 0x1ff0 @0x0
0x1ff0…1ff6 lno = 0x1018 // 0x1ff2 @0x2
0x1ff0…1ff6 at0004 = ╱9a╱ ELSE ╱ // 0x1ff4 @0x4
0x1ff0…1ff6 at0005 = EOL // 0x1ff5 @0x5
0x1ff0…1ff6 }
0x1ff6…2019 ad70 4130 DAT$(J)=CHR(DA1 MOD 10+48)
0x1ff6…2019 LineComalBin {
0x1ff6…2019 ptr = 0xad70 // 0x1ff6 @0x0
0x1ff6…2019 lno = 0x1022 // 0x1ff8 @0x2
0x1ff6…2019 at0004 = ╱44╱D╱ // 0x1ffa @0x4
0x1ff6…2019 at0005 = ╱41╱A╱ // 0x1ffb @0x5
0x1ff6…2019 at0006 = ╱54╱T╱ // 0x1ffc @0x6
0x1ff6…2019 at0007 = ╱ef╱$╱ // 0x1ffd @0x7
0x1ff6…2019 at0008 = ╱ed╱(╱ // 0x1ffe @0x8
0x1ff6…2019 at0009 = ╱4a╱J╱ // 0x1fff @0x9
0x1ff6…2019 at000a = ╱ee╱)╱ // 0x2000 @0xa
0x1ff6…2019 at000b = ╱dc╱=╱ // 0x2001 @0xb
0x1ff6…2019 at000c = ╱cf╱CHR╱ // 0x2002 @0xc
0x1ff6…2019 at000d = ╱ed╱(╱ // 0x2003 @0xd
0x1ff6…2019 at000e = ╱44╱D╱ // 0x2004 @0xe
0x1ff6…2019 at000f = ╱41╱A╱ // 0x2005 @0xf
0x1ff6…2019 at0010 = ╱31╱1╱ // 0x2006 @0x10
0x1ff6…2019 at0011 = ╱e8╱ MOD ╱ // 0x2007 @0x11
0x1ff6…2019 at0012 = ╱31╱1╱ // 0x2008 @0x12
0x1ff6…2019 at0013 = ╱30╱0╱ // 0x2009 @0x13
0x1ff6…2019 at0014 = ╱fe0000a004╱ // 0x200a @0x14
0x1ff6…2019 at0019 = ╱e2╱+╱ // 0x200f @0x19
0x1ff6…2019 at001a = ╱34╱4╱ // 0x2010 @0x1a
0x1ff6…2019 at001b = ╱38╱8╱ // 0x2011 @0x1b
0x1ff6…2019 at001c = ╱fe0000c006╱ // 0x2012 @0x1c
0x1ff6…2019 at0021 = ╱ee╱)╱ // 0x2017 @0x21
0x1ff6…2019 at0022 = EOL // 0x2018 @0x22
0x1ff6…2019 }
0x2019…202d ad84 4140 DA1=DA1 DIV 10
0x2019…202d LineComalBin {
0x2019…202d ptr = 0xad84 // 0x2019 @0x0
0x2019…202d lno = 0x102c // 0x201b @0x2
0x2019…202d at0004 = ╱44╱D╱ // 0x201d @0x4
0x2019…202d at0005 = ╱41╱A╱ // 0x201e @0x5
0x2019…202d at0006 = ╱31╱1╱ // 0x201f @0x6
0x2019…202d at0007 = ╱dc╱=╱ // 0x2020 @0x7
0x2019…202d at0008 = ╱44╱D╱ // 0x2021 @0x8
0x2019…202d at0009 = ╱41╱A╱ // 0x2022 @0x9
0x2019…202d at000a = ╱31╱1╱ // 0x2023 @0xa
0x2019…202d at000b = ╱e7╱ DIV ╱ // 0x2024 @0xb
0x2019…202d at000c = ╱31╱1╱ // 0x2025 @0xc
0x2019…202d at000d = ╱30╱0╱ // 0x2026 @0xd
0x2019…202d at000e = ╱fe0000a004╱ // 0x2027 @0xe
0x2019…202d at0013 = EOL // 0x202c @0x13
0x2019…202d }
0x202d…2033 ad8a 4150 ENDIF
0x202d…2033 LineComalBin {
0x202d…2033 ptr = 0xad8a // 0x202d @0x0
0x202d…2033 lno = 0x1036 // 0x202f @0x2
0x202d…2033 at0004 = ╱9b╱ ENDIF ╱ // 0x2031 @0x4
0x202d…2033 at0005 = EOL // 0x2032 @0x5
0x202d…2033 }
0x2033…203a ad91 4160 NEXT J
0x2033…203a LineComalBin {
0x2033…203a ptr = 0xad91 // 0x2033 @0x0
0x2033…203a lno = 0x1040 // 0x2035 @0x2
0x2033…203a at0004 = ╱84╱ NEXT ╱ // 0x2037 @0x4
0x2033…203a at0005 = ╱4a╱J╱ // 0x2038 @0x5
0x2033…203a at0006 = EOL // 0x2039 @0x6
0x2033…203a }
0x203a…204d ada4 4170 FOR I=E TO AUNK+ETOT
0x203a…204d LineComalBin {
0x203a…204d ptr = 0xada4 // 0x203a @0x0
0x203a…204d lno = 0x104a // 0x203c @0x2
0x203a…204d at0004 = ╱83╱ FOR ╱ // 0x203e @0x4
0x203a…204d at0005 = ╱49╱I╱ // 0x203f @0x5
0x203a…204d at0006 = ╱dc╱=╱ // 0x2040 @0x6
0x203a…204d at0007 = ╱45╱E╱ // 0x2041 @0x7
0x203a…204d at0008 = ╱b7╱ TO ╱ // 0x2042 @0x8
0x203a…204d at0009 = ╱41╱A╱ // 0x2043 @0x9
0x203a…204d at000a = ╱55╱U╱ // 0x2044 @0xa
0x203a…204d at000b = ╱4e╱N╱ // 0x2045 @0xb
0x203a…204d at000c = ╱4b╱K╱ // 0x2046 @0xc
0x203a…204d at000d = ╱e2╱+╱ // 0x2047 @0xd
0x203a…204d at000e = ╱45╱E╱ // 0x2048 @0xe
0x203a…204d at000f = ╱54╱T╱ // 0x2049 @0xf
0x203a…204d at0010 = ╱4f╱O╱ // 0x204a @0x10
0x203a…204d at0011 = ╱54╱T╱ // 0x204b @0x11
0x203a…204d at0012 = EOL // 0x204c @0x12
0x203a…204d }
0x204d…2065 adbc 4180 PRINT TAB(67);DV$;" "
0x204d…2065 LineComalBin {
0x204d…2065 ptr = 0xadbc // 0x204d @0x0
0x204d…2065 lno = 0x1054 // 0x204f @0x2
0x204d…2065 at0004 = ╱92╱ PRINT ╱ // 0x2051 @0x4
0x204d…2065 at0005 = ╱d2╱TAB╱ // 0x2052 @0x5
0x204d…2065 at0006 = ╱ed╱(╱ // 0x2053 @0x6
0x204d…2065 at0007 = ╱36╱6╱ // 0x2054 @0x7
0x204d…2065 at0008 = ╱37╱7╱ // 0x2055 @0x8
0x204d…2065 at0009 = ╱fe00008607╱ // 0x2056 @0x9
0x204d…2065 at000e = ╱ee╱)╱ // 0x205b @0xe
0x204d…2065 at000f = ╱eb╱;╱ // 0x205c @0xf
0x204d…2065 at0010 = ╱44╱D╱ // 0x205d @0x10
0x204d…2065 at0011 = ╱56╱V╱ // 0x205e @0x11
0x204d…2065 at0012 = ╱ef╱$╱ // 0x205f @0x12
0x204d…2065 at0013 = ╱eb╱;╱ // 0x2060 @0x13
0x204d…2065 at0014 = ╱22╱"╱ // 0x2061 @0x14
0x204d…2065 at0015 = ╱20╱…╱ // 0x2062 @0x15
0x204d…2065 at0016 = ╱22╱"╱ // 0x2063 @0x16
0x204d…2065 at0017 = EOL // 0x2064 @0x17
0x204d…2065 }
0x2065…20b8 ae0f 4190 PRINT TAB(10);CHR(14);"Underkontoliste";CHR(15);TAB(36);"Dato : ";DAT$;
0x2065…20b8 LineComalBin {
0x2065…20b8 ptr = 0xae0f // 0x2065 @0x0
0x2065…20b8 lno = 0x105e // 0x2067 @0x2
0x2065…20b8 at0004 = ╱92╱ PRINT ╱ // 0x2069 @0x4
0x2065…20b8 at0005 = ╱d2╱TAB╱ // 0x206a @0x5
0x2065…20b8 at0006 = ╱ed╱(╱ // 0x206b @0x6
0x2065…20b8 at0007 = ╱31╱1╱ // 0x206c @0x7
0x2065…20b8 at0008 = ╱30╱0╱ // 0x206d @0x8
0x2065…20b8 at0009 = ╱fe0000a004╱ // 0x206e @0x9
0x2065…20b8 at000e = ╱ee╱)╱ // 0x2073 @0xe
0x2065…20b8 at000f = ╱eb╱;╱ // 0x2074 @0xf
0x2065…20b8 at0010 = ╱cf╱CHR╱ // 0x2075 @0x10
0x2065…20b8 at0011 = ╱ed╱(╱ // 0x2076 @0x11
0x2065…20b8 at0012 = ╱31╱1╱ // 0x2077 @0x12
0x2065…20b8 at0013 = ╱34╱4╱ // 0x2078 @0x13
0x2065…20b8 at0014 = ╱fe0000e004╱ // 0x2079 @0x14
0x2065…20b8 at0019 = ╱ee╱)╱ // 0x207e @0x19
0x2065…20b8 at001a = ╱eb╱;╱ // 0x207f @0x1a
0x2065…20b8 at001b = ╱22╱"╱ // 0x2080 @0x1b
0x2065…20b8 at001c = ╱55╱U╱ // 0x2081 @0x1c
0x2065…20b8 at001d = ╱6e╱n╱ // 0x2082 @0x1d
0x2065…20b8 at001e = ╱64╱d╱ // 0x2083 @0x1e
0x2065…20b8 at001f = ╱65╱e╱ // 0x2084 @0x1f
0x2065…20b8 at0020 = ╱72╱r╱ // 0x2085 @0x20
0x2065…20b8 at0021 = ╱6b╱k╱ // 0x2086 @0x21
0x2065…20b8 at0022 = ╱6f╱o╱ // 0x2087 @0x22
0x2065…20b8 at0023 = ╱6e╱n╱ // 0x2088 @0x23
0x2065…20b8 at0024 = ╱74╱t╱ // 0x2089 @0x24
0x2065…20b8 at0025 = ╱6f╱o╱ // 0x208a @0x25
0x2065…20b8 at0026 = ╱6c╱l╱ // 0x208b @0x26
0x2065…20b8 at0027 = ╱69╱i╱ // 0x208c @0x27
0x2065…20b8 at0028 = ╱73╱s╱ // 0x208d @0x28
0x2065…20b8 at0029 = ╱74╱t╱ // 0x208e @0x29
0x2065…20b8 at002a = ╱65╱e╱ // 0x208f @0x2a
0x2065…20b8 at002b = ╱22╱"╱ // 0x2090 @0x2b
0x2065…20b8 at002c = ╱eb╱;╱ // 0x2091 @0x2c
0x2065…20b8 at002d = ╱cf╱CHR╱ // 0x2092 @0x2d
0x2065…20b8 at002e = ╱ed╱(╱ // 0x2093 @0x2e
0x2065…20b8 at002f = ╱31╱1╱ // 0x2094 @0x2f
0x2065…20b8 at0030 = ╱35╱5╱ // 0x2095 @0x30
0x2065…20b8 at0031 = ╱fe0000f004╱ // 0x2096 @0x31
0x2065…20b8 at0036 = ╱ee╱)╱ // 0x209b @0x36
0x2065…20b8 at0037 = ╱eb╱;╱ // 0x209c @0x37
0x2065…20b8 at0038 = ╱d2╱TAB╱ // 0x209d @0x38
0x2065…20b8 at0039 = ╱ed╱(╱ // 0x209e @0x39
0x2065…20b8 at003a = ╱33╱3╱ // 0x209f @0x3a
0x2065…20b8 at003b = ╱36╱6╱ // 0x20a0 @0x3b
0x2065…20b8 at003c = ╱fe00009006╱ // 0x20a1 @0x3c
0x2065…20b8 at0041 = ╱ee╱)╱ // 0x20a6 @0x41
0x2065…20b8 at0042 = ╱eb╱;╱ // 0x20a7 @0x42
0x2065…20b8 at0043 = ╱22╱"╱ // 0x20a8 @0x43
0x2065…20b8 at0044 = ╱44╱D╱ // 0x20a9 @0x44
0x2065…20b8 at0045 = ╱61╱a╱ // 0x20aa @0x45
0x2065…20b8 at0046 = ╱74╱t╱ // 0x20ab @0x46
0x2065…20b8 at0047 = ╱6f╱o╱ // 0x20ac @0x47
0x2065…20b8 at0048 = ╱20╱…╱ // 0x20ad @0x48
0x2065…20b8 at0049 = ╱3a╱:╱ // 0x20ae @0x49
0x2065…20b8 at004a = ╱20╱…╱ // 0x20af @0x4a
0x2065…20b8 at004b = ╱22╱"╱ // 0x20b0 @0x4b
0x2065…20b8 at004c = ╱eb╱;╱ // 0x20b1 @0x4c
0x2065…20b8 at004d = ╱44╱D╱ // 0x20b2 @0x4d
0x2065…20b8 at004e = ╱41╱A╱ // 0x20b3 @0x4e
0x2065…20b8 at004f = ╱54╱T╱ // 0x20b4 @0x4f
0x2065…20b8 at0050 = ╱ef╱$╱ // 0x20b5 @0x50
0x2065…20b8 at0051 = ╱eb╱;╱ // 0x20b6 @0x51
0x2065…20b8 at0052 = EOL // 0x20b7 @0x52
0x2065…20b8 }
0x20b8…20d3 ae2a 4200 PRINT USING " Side :####":SIDE
0x20b8…20d3 LineComalBin {
0x20b8…20d3 ptr = 0xae2a // 0x20b8 @0x0
0x20b8…20d3 lno = 0x1068 // 0x20ba @0x2
0x20b8…20d3 at0004 = ╱92╱ PRINT ╱ // 0x20bc @0x4
0x20b8…20d3 at0005 = ╱b9╱ USING ╱ // 0x20bd @0x5
0x20b8…20d3 at0006 = ╱22╱"╱ // 0x20be @0x6
0x20b8…20d3 at0007 = ╱20╱…╱ // 0x20bf @0x7
0x20b8…20d3 at0008 = ╱20╱…╱ // 0x20c0 @0x8
0x20b8…20d3 at0009 = ╱20╱…╱ // 0x20c1 @0x9
0x20b8…20d3 at000a = ╱53╱S╱ // 0x20c2 @0xa
0x20b8…20d3 at000b = ╱69╱i╱ // 0x20c3 @0xb
0x20b8…20d3 at000c = ╱64╱d╱ // 0x20c4 @0xc
0x20b8…20d3 at000d = ╱65╱e╱ // 0x20c5 @0xd
0x20b8…20d3 at000e = ╱20╱…╱ // 0x20c6 @0xe
0x20b8…20d3 at000f = ╱3a╱:╱ // 0x20c7 @0xf
0x20b8…20d3 at0010 = ╱23╱#╱ // 0x20c8 @0x10
0x20b8…20d3 at0011 = ╱23╱#╱ // 0x20c9 @0x11
0x20b8…20d3 at0012 = ╱23╱#╱ // 0x20ca @0x12
0x20b8…20d3 at0013 = ╱23╱#╱ // 0x20cb @0x13
0x20b8…20d3 at0014 = ╱22╱"╱ // 0x20cc @0x14
0x20b8…20d3 at0015 = ╱f0╱:╱ // 0x20cd @0x15
0x20b8…20d3 at0016 = ╱53╱S╱ // 0x20ce @0x16
0x20b8…20d3 at0017 = ╱49╱I╱ // 0x20cf @0x17
0x20b8…20d3 at0018 = ╱44╱D╱ // 0x20d0 @0x18
0x20b8…20d3 at0019 = ╱45╱E╱ // 0x20d1 @0x19
0x20b8…20d3 at001a = EOL // 0x20d2 @0x1a
0x20b8…20d3 }
0x20d3…20dc ae33 4210 PRINT " "
0x20d3…20dc LineComalBin {
0x20d3…20dc ptr = 0xae33 // 0x20d3 @0x0
0x20d3…20dc lno = 0x1072 // 0x20d5 @0x2
0x20d3…20dc at0004 = ╱92╱ PRINT ╱ // 0x20d7 @0x4
0x20d3…20dc at0005 = ╱22╱"╱ // 0x20d8 @0x5
0x20d3…20dc at0006 = ╱20╱…╱ // 0x20d9 @0x6
0x20d3…20dc at0007 = ╱22╱"╱ // 0x20da @0x7
0x20d3…20dc at0008 = EOL // 0x20db @0x8
0x20d3…20dc }
0x20dc…211a ae71 4220 PRINT TAB(7);"Nr Betegnelse";TAB(44);"Udskriftskode"
0x20dc…211a LineComalBin {
0x20dc…211a ptr = 0xae71 // 0x20dc @0x0
0x20dc…211a lno = 0x107c // 0x20de @0x2
0x20dc…211a at0004 = ╱92╱ PRINT ╱ // 0x20e0 @0x4
0x20dc…211a at0005 = ╱d2╱TAB╱ // 0x20e1 @0x5
0x20dc…211a at0006 = ╱ed╱(╱ // 0x20e2 @0x6
0x20dc…211a at0007 = ╱37╱7╱ // 0x20e3 @0x7
0x20dc…211a at0008 = ╱fe0000e003╱ // 0x20e4 @0x8
0x20dc…211a at000d = ╱ee╱)╱ // 0x20e9 @0xd
0x20dc…211a at000e = ╱eb╱;╱ // 0x20ea @0xe
0x20dc…211a at000f = ╱22╱"╱ // 0x20eb @0xf
0x20dc…211a at0010 = ╱4e╱N╱ // 0x20ec @0x10
0x20dc…211a at0011 = ╱72╱r╱ // 0x20ed @0x11
0x20dc…211a at0012 = ╱20╱…╱ // 0x20ee @0x12
0x20dc…211a at0013 = ╱20╱…╱ // 0x20ef @0x13
0x20dc…211a at0014 = ╱20╱…╱ // 0x20f0 @0x14
0x20dc…211a at0015 = ╱20╱…╱ // 0x20f1 @0x15
0x20dc…211a at0016 = ╱20╱…╱ // 0x20f2 @0x16
0x20dc…211a at0017 = ╱42╱B╱ // 0x20f3 @0x17
0x20dc…211a at0018 = ╱65╱e╱ // 0x20f4 @0x18
0x20dc…211a at0019 = ╱74╱t╱ // 0x20f5 @0x19
0x20dc…211a at001a = ╱65╱e╱ // 0x20f6 @0x1a
0x20dc…211a at001b = ╱67╱g╱ // 0x20f7 @0x1b
0x20dc…211a at001c = ╱6e╱n╱ // 0x20f8 @0x1c
0x20dc…211a at001d = ╱65╱e╱ // 0x20f9 @0x1d
0x20dc…211a at001e = ╱6c╱l╱ // 0x20fa @0x1e
0x20dc…211a at001f = ╱73╱s╱ // 0x20fb @0x1f
0x20dc…211a at0020 = ╱65╱e╱ // 0x20fc @0x20
0x20dc…211a at0021 = ╱22╱"╱ // 0x20fd @0x21
0x20dc…211a at0022 = ╱eb╱;╱ // 0x20fe @0x22
0x20dc…211a at0023 = ╱d2╱TAB╱ // 0x20ff @0x23
0x20dc…211a at0024 = ╱ed╱(╱ // 0x2100 @0x24
0x20dc…211a at0025 = ╱34╱4╱ // 0x2101 @0x25
0x20dc…211a at0026 = ╱34╱4╱ // 0x2102 @0x26
0x20dc…211a at0027 = ╱fe0000b006╱ // 0x2103 @0x27
0x20dc…211a at002c = ╱ee╱)╱ // 0x2108 @0x2c
0x20dc…211a at002d = ╱eb╱;╱ // 0x2109 @0x2d
0x20dc…211a at002e = ╱22╱"╱ // 0x210a @0x2e
0x20dc…211a at002f = ╱55╱U╱ // 0x210b @0x2f
0x20dc…211a at0030 = ╱64╱d╱ // 0x210c @0x30
0x20dc…211a at0031 = ╱73╱s╱ // 0x210d @0x31
0x20dc…211a at0032 = ╱6b╱k╱ // 0x210e @0x32
0x20dc…211a at0033 = ╱72╱r╱ // 0x210f @0x33
0x20dc…211a at0034 = ╱69╱i╱ // 0x2110 @0x34
0x20dc…211a at0035 = ╱66╱f╱ // 0x2111 @0x35
0x20dc…211a at0036 = ╱74╱t╱ // 0x2112 @0x36
0x20dc…211a at0037 = ╱73╱s╱ // 0x2113 @0x37
0x20dc…211a at0038 = ╱6b╱k╱ // 0x2114 @0x38
0x20dc…211a at0039 = ╱6f╱o╱ // 0x2115 @0x39
0x20dc…211a at003a = ╱64╱d╱ // 0x2116 @0x3a
0x20dc…211a at003b = ╱65╱e╱ // 0x2117 @0x3b
0x20dc…211a at003c = ╱22╱"╱ // 0x2118 @0x3c
0x20dc…211a at003d = EOL // 0x2119 @0x3d
0x20dc…211a }
0x211a…2130 ae87 4230 PRINT TAB(6);STREG$
0x211a…2130 LineComalBin {
0x211a…2130 ptr = 0xae87 // 0x211a @0x0
0x211a…2130 lno = 0x1086 // 0x211c @0x2
0x211a…2130 at0004 = ╱92╱ PRINT ╱ // 0x211e @0x4
0x211a…2130 at0005 = ╱d2╱TAB╱ // 0x211f @0x5
0x211a…2130 at0006 = ╱ed╱(╱ // 0x2120 @0x6
0x211a…2130 at0007 = ╱36╱6╱ // 0x2121 @0x7
0x211a…2130 at0008 = ╱fe0000c003╱ // 0x2122 @0x8
0x211a…2130 at000d = ╱ee╱)╱ // 0x2127 @0xd
0x211a…2130 at000e = ╱eb╱;╱ // 0x2128 @0xe
0x211a…2130 at000f = ╱53╱S╱ // 0x2129 @0xf
0x211a…2130 at0010 = ╱54╱T╱ // 0x212a @0x10
0x211a…2130 at0011 = ╱52╱R╱ // 0x212b @0x11
0x211a…2130 at0012 = ╱45╱E╱ // 0x212c @0x12
0x211a…2130 at0013 = ╱47╱G╱ // 0x212d @0x13
0x211a…2130 at0014 = ╱ef╱$╱ // 0x212e @0x14
0x211a…2130 at0015 = EOL // 0x212f @0x15
0x211a…2130 }
0x2130…2140 ae97 4240 SIDE=SIDE+E
0x2130…2140 LineComalBin {
0x2130…2140 ptr = 0xae97 // 0x2130 @0x0
0x2130…2140 lno = 0x1090 // 0x2132 @0x2
0x2130…2140 at0004 = ╱53╱S╱ // 0x2134 @0x4
0x2130…2140 at0005 = ╱49╱I╱ // 0x2135 @0x5
0x2130…2140 at0006 = ╱44╱D╱ // 0x2136 @0x6
0x2130…2140 at0007 = ╱45╱E╱ // 0x2137 @0x7
0x2130…2140 at0008 = ╱dc╱=╱ // 0x2138 @0x8
0x2130…2140 at0009 = ╱53╱S╱ // 0x2139 @0x9
0x2130…2140 at000a = ╱49╱I╱ // 0x213a @0xa
0x2130…2140 at000b = ╱44╱D╱ // 0x213b @0xb
0x2130…2140 at000c = ╱45╱E╱ // 0x213c @0xc
0x2130…2140 at000d = ╱e2╱+╱ // 0x213d @0xd
0x2130…2140 at000e = ╱45╱E╱ // 0x213e @0xe
0x2130…2140 at000f = EOL // 0x213f @0xf
0x2130…2140 }
0x2140…2157 aeae 4250 FOR UPIL3=I TO I+39
0x2140…2157 LineComalBin {
0x2140…2157 ptr = 0xaeae // 0x2140 @0x0
0x2140…2157 lno = 0x109a // 0x2142 @0x2
0x2140…2157 at0004 = ╱83╱ FOR ╱ // 0x2144 @0x4
0x2140…2157 at0005 = ╱55╱U╱ // 0x2145 @0x5
0x2140…2157 at0006 = ╱50╱P╱ // 0x2146 @0x6
0x2140…2157 at0007 = ╱49╱I╱ // 0x2147 @0x7
0x2140…2157 at0008 = ╱4c╱L╱ // 0x2148 @0x8
0x2140…2157 at0009 = ╱33╱3╱ // 0x2149 @0x9
0x2140…2157 at000a = ╱dc╱=╱ // 0x214a @0xa
0x2140…2157 at000b = ╱49╱I╱ // 0x214b @0xb
0x2140…2157 at000c = ╱b7╱ TO ╱ // 0x214c @0xc
0x2140…2157 at000d = ╱49╱I╱ // 0x214d @0xd
0x2140…2157 at000e = ╱e2╱+╱ // 0x214e @0xe
0x2140…2157 at000f = ╱33╱3╱ // 0x214f @0xf
0x2140…2157 at0010 = ╱39╱9╱ // 0x2150 @0x10
0x2140…2157 at0011 = ╱fe00009c06╱ // 0x2151 @0x11
0x2140…2157 at0016 = EOL // 0x2156 @0x16
0x2140…2157 }
0x2157…2175 aecc 4260 IF UNR(UPIL3)<>1000000 THEN
0x2157…2175 LineComalBin {
0x2157…2175 ptr = 0xaecc // 0x2157 @0x0
0x2157…2175 lno = 0x10a4 // 0x2159 @0x2
0x2157…2175 at0004 = ╱9c╱ IF ╱ // 0x215b @0x4
0x2157…2175 at0005 = ╱55╱U╱ // 0x215c @0x5
0x2157…2175 at0006 = ╱4e╱N╱ // 0x215d @0x6
0x2157…2175 at0007 = ╱52╱R╱ // 0x215e @0x7
0x2157…2175 at0008 = ╱ed╱(╱ // 0x215f @0x8
0x2157…2175 at0009 = ╱55╱U╱ // 0x2160 @0x9
0x2157…2175 at000a = ╱50╱P╱ // 0x2161 @0xa
0x2157…2175 at000b = ╱49╱I╱ // 0x2162 @0xb
0x2157…2175 at000c = ╱4c╱L╱ // 0x2163 @0xc
0x2157…2175 at000d = ╱33╱3╱ // 0x2164 @0xd
0x2157…2175 at000e = ╱ee╱)╱ // 0x2165 @0xe
0x2157…2175 at000f = ╱e1╱<>╱ // 0x2166 @0xf
0x2157…2175 at0010 = ╱31╱1╱ // 0x2167 @0x10
0x2157…2175 at0011 = ╱30╱0╱ // 0x2168 @0x11
0x2157…2175 at0012 = ╱30╱0╱ // 0x2169 @0x12
0x2157…2175 at0013 = ╱30╱0╱ // 0x216a @0x13
0x2157…2175 at0014 = ╱30╱0╱ // 0x216b @0x14
0x2157…2175 at0015 = ╱30╱0╱ // 0x216c @0x15
0x2157…2175 at0016 = ╱30╱0╱ // 0x216d @0x16
0x2157…2175 at0017 = ╱fe0024f414╱ // 0x216e @0x17
0x2157…2175 at001c = ╱b6╱ THEN ╱ // 0x2173 @0x1c
0x2157…2175 at001d = EOL // 0x2174 @0x1d
0x2157…2175 }
0x2175…2197 aeee 4270 PRINT USING " ###### ":UNR(UPIL3);
0x2175…2197 LineComalBin {
0x2175…2197 ptr = 0xaeee // 0x2175 @0x0
0x2175…2197 lno = 0x10ae // 0x2177 @0x2
0x2175…2197 at0004 = ╱92╱ PRINT ╱ // 0x2179 @0x4
0x2175…2197 at0005 = ╱b9╱ USING ╱ // 0x217a @0x5
0x2175…2197 at0006 = ╱22╱"╱ // 0x217b @0x6
0x2175…2197 at0007 = ╱20╱…╱ // 0x217c @0x7
0x2175…2197 at0008 = ╱20╱…╱ // 0x217d @0x8
0x2175…2197 at0009 = ╱20╱…╱ // 0x217e @0x9
0x2175…2197 at000a = ╱20╱…╱ // 0x217f @0xa
0x2175…2197 at000b = ╱20╱…╱ // 0x2180 @0xb
0x2175…2197 at000c = ╱23╱#╱ // 0x2181 @0xc
0x2175…2197 at000d = ╱23╱#╱ // 0x2182 @0xd
0x2175…2197 at000e = ╱23╱#╱ // 0x2183 @0xe
0x2175…2197 at000f = ╱23╱#╱ // 0x2184 @0xf
0x2175…2197 at0010 = ╱23╱#╱ // 0x2185 @0x10
0x2175…2197 at0011 = ╱23╱#╱ // 0x2186 @0x11
0x2175…2197 at0012 = ╱20╱…╱ // 0x2187 @0x12
0x2175…2197 at0013 = ╱20╱…╱ // 0x2188 @0x13
0x2175…2197 at0014 = ╱22╱"╱ // 0x2189 @0x14
0x2175…2197 at0015 = ╱f0╱:╱ // 0x218a @0x15
0x2175…2197 at0016 = ╱55╱U╱ // 0x218b @0x16
0x2175…2197 at0017 = ╱4e╱N╱ // 0x218c @0x17
0x2175…2197 at0018 = ╱52╱R╱ // 0x218d @0x18
0x2175…2197 at0019 = ╱ed╱(╱ // 0x218e @0x19
0x2175…2197 at001a = ╱55╱U╱ // 0x218f @0x1a
0x2175…2197 at001b = ╱50╱P╱ // 0x2190 @0x1b
0x2175…2197 at001c = ╱49╱I╱ // 0x2191 @0x1c
0x2175…2197 at001d = ╱4c╱L╱ // 0x2192 @0x1d
0x2175…2197 at001e = ╱33╱3╱ // 0x2193 @0x1e
0x2175…2197 at001f = ╱ee╱)╱ // 0x2194 @0x1f
0x2175…2197 at0020 = ╱eb╱;╱ // 0x2195 @0x20
0x2175…2197 at0021 = EOL // 0x2196 @0x21
0x2175…2197 }
0x2197…21c3 af1a 4280 PRINT UNAVN$(UPIL3);TAB(49);UKODE$(UPIL3)
0x2197…21c3 LineComalBin {
0x2197…21c3 ptr = 0xaf1a // 0x2197 @0x0
0x2197…21c3 lno = 0x10b8 // 0x2199 @0x2
0x2197…21c3 at0004 = ╱92╱ PRINT ╱ // 0x219b @0x4
0x2197…21c3 at0005 = ╱55╱U╱ // 0x219c @0x5
0x2197…21c3 at0006 = ╱4e╱N╱ // 0x219d @0x6
0x2197…21c3 at0007 = ╱41╱A╱ // 0x219e @0x7
0x2197…21c3 at0008 = ╱56╱V╱ // 0x219f @0x8
0x2197…21c3 at0009 = ╱4e╱N╱ // 0x21a0 @0x9
0x2197…21c3 at000a = ╱ef╱$╱ // 0x21a1 @0xa
0x2197…21c3 at000b = ╱ed╱(╱ // 0x21a2 @0xb
0x2197…21c3 at000c = ╱55╱U╱ // 0x21a3 @0xc
0x2197…21c3 at000d = ╱50╱P╱ // 0x21a4 @0xd
0x2197…21c3 at000e = ╱49╱I╱ // 0x21a5 @0xe
0x2197…21c3 at000f = ╱4c╱L╱ // 0x21a6 @0xf
0x2197…21c3 at0010 = ╱33╱3╱ // 0x21a7 @0x10
0x2197…21c3 at0011 = ╱ee╱)╱ // 0x21a8 @0x11
0x2197…21c3 at0012 = ╱eb╱;╱ // 0x21a9 @0x12
0x2197…21c3 at0013 = ╱d2╱TAB╱ // 0x21aa @0x13
0x2197…21c3 at0014 = ╱ed╱(╱ // 0x21ab @0x14
0x2197…21c3 at0015 = ╱34╱4╱ // 0x21ac @0x15
0x2197…21c3 at0016 = ╱39╱9╱ // 0x21ad @0x16
0x2197…21c3 at0017 = ╱fe0000c406╱ // 0x21ae @0x17
0x2197…21c3 at001c = ╱ee╱)╱ // 0x21b3 @0x1c
0x2197…21c3 at001d = ╱eb╱;╱ // 0x21b4 @0x1d
0x2197…21c3 at001e = ╱55╱U╱ // 0x21b5 @0x1e
0x2197…21c3 at001f = ╱4b╱K╱ // 0x21b6 @0x1f
0x2197…21c3 at0020 = ╱4f╱O╱ // 0x21b7 @0x20
0x2197…21c3 at0021 = ╱44╱D╱ // 0x21b8 @0x21
0x2197…21c3 at0022 = ╱45╱E╱ // 0x21b9 @0x22
0x2197…21c3 at0023 = ╱ef╱$╱ // 0x21ba @0x23
0x2197…21c3 at0024 = ╱ed╱(╱ // 0x21bb @0x24
0x2197…21c3 at0025 = ╱55╱U╱ // 0x21bc @0x25
0x2197…21c3 at0026 = ╱50╱P╱ // 0x21bd @0x26
0x2197…21c3 at0027 = ╱49╱I╱ // 0x21be @0x27
0x2197…21c3 at0028 = ╱4c╱L╱ // 0x21bf @0x28
0x2197…21c3 at0029 = ╱33╱3╱ // 0x21c0 @0x29
0x2197…21c3 at002a = ╱ee╱)╱ // 0x21c1 @0x2a
0x2197…21c3 at002b = EOL // 0x21c2 @0x2b
0x2197…21c3 }
0x21c3…21c9 af20 4290 ENDIF
0x21c3…21c9 LineComalBin {
0x21c3…21c9 ptr = 0xaf20 // 0x21c3 @0x0
0x21c3…21c9 lno = 0x10c2 // 0x21c5 @0x2
0x21c3…21c9 at0004 = ╱9b╱ ENDIF ╱ // 0x21c7 @0x4
0x21c3…21c9 at0005 = EOL // 0x21c8 @0x5
0x21c3…21c9 }
0x21c9…21e0 af37 4300 IF UPIL3=AUNK+ETOT THEN EXIT
0x21c9…21e0 LineComalBin {
0x21c9…21e0 ptr = 0xaf37 // 0x21c9 @0x0
0x21c9…21e0 lno = 0x10cc // 0x21cb @0x2
0x21c9…21e0 at0004 = ╱82╱ IF ╱ // 0x21cd @0x4
0x21c9…21e0 at0005 = ╱55╱U╱ // 0x21ce @0x5
0x21c9…21e0 at0006 = ╱50╱P╱ // 0x21cf @0x6
0x21c9…21e0 at0007 = ╱49╱I╱ // 0x21d0 @0x7
0x21c9…21e0 at0008 = ╱4c╱L╱ // 0x21d1 @0x8
0x21c9…21e0 at0009 = ╱33╱3╱ // 0x21d2 @0x9
0x21c9…21e0 at000a = ╱dc╱=╱ // 0x21d3 @0xa
0x21c9…21e0 at000b = ╱41╱A╱ // 0x21d4 @0xb
0x21c9…21e0 at000c = ╱55╱U╱ // 0x21d5 @0xc
0x21c9…21e0 at000d = ╱4e╱N╱ // 0x21d6 @0xd
0x21c9…21e0 at000e = ╱4b╱K╱ // 0x21d7 @0xe
0x21c9…21e0 at000f = ╱e2╱+╱ // 0x21d8 @0xf
0x21c9…21e0 at0010 = ╱45╱E╱ // 0x21d9 @0x10
0x21c9…21e0 at0011 = ╱54╱T╱ // 0x21da @0x11
0x21c9…21e0 at0012 = ╱4f╱O╱ // 0x21db @0x12
0x21c9…21e0 at0013 = ╱54╱T╱ // 0x21dc @0x13
0x21c9…21e0 at0014 = ╱b6╱ THEN ╱ // 0x21dd @0x14
0x21c9…21e0 at0015 = ╱99╱ EXIT ╱ // 0x21de @0x15
0x21c9…21e0 at0016 = EOL // 0x21df @0x16
0x21c9…21e0 }
0x21e0…21eb af42 4310 NEXT UPIL3
0x21e0…21eb LineComalBin {
0x21e0…21eb ptr = 0xaf42 // 0x21e0 @0x0
0x21e0…21eb lno = 0x10d6 // 0x21e2 @0x2
0x21e0…21eb at0004 = ╱84╱ NEXT ╱ // 0x21e4 @0x4
0x21e0…21eb at0005 = ╱55╱U╱ // 0x21e5 @0x5
0x21e0…21eb at0006 = ╱50╱P╱ // 0x21e6 @0x6
0x21e0…21eb at0007 = ╱49╱I╱ // 0x21e7 @0x7
0x21e0…21eb at0008 = ╱4c╱L╱ // 0x21e8 @0x8
0x21e0…21eb at0009 = ╱33╱3╱ // 0x21e9 @0x9
0x21e0…21eb at000a = EOL // 0x21ea @0xa
0x21e0…21eb }
0x21eb…2212 af69 4320 IF UPIL3=AUNK+ETOT AND UPIL3<I+40 THEN EXIT
0x21eb…2212 LineComalBin {
0x21eb…2212 ptr = 0xaf69 // 0x21eb @0x0
0x21eb…2212 lno = 0x10e0 // 0x21ed @0x2
0x21eb…2212 at0004 = ╱82╱ IF ╱ // 0x21ef @0x4
0x21eb…2212 at0005 = ╱55╱U╱ // 0x21f0 @0x5
0x21eb…2212 at0006 = ╱50╱P╱ // 0x21f1 @0x6
0x21eb…2212 at0007 = ╱49╱I╱ // 0x21f2 @0x7
0x21eb…2212 at0008 = ╱4c╱L╱ // 0x21f3 @0x8
0x21eb…2212 at0009 = ╱33╱3╱ // 0x21f4 @0x9
0x21eb…2212 at000a = ╱dc╱=╱ // 0x21f5 @0xa
0x21eb…2212 at000b = ╱41╱A╱ // 0x21f6 @0xb
0x21eb…2212 at000c = ╱55╱U╱ // 0x21f7 @0xc
0x21eb…2212 at000d = ╱4e╱N╱ // 0x21f8 @0xd
0x21eb…2212 at000e = ╱4b╱K╱ // 0x21f9 @0xe
0x21eb…2212 at000f = ╱e2╱+╱ // 0x21fa @0xf
0x21eb…2212 at0010 = ╱45╱E╱ // 0x21fb @0x10
0x21eb…2212 at0011 = ╱54╱T╱ // 0x21fc @0x11
0x21eb…2212 at0012 = ╱4f╱O╱ // 0x21fd @0x12
0x21eb…2212 at0013 = ╱54╱T╱ // 0x21fe @0x13
0x21eb…2212 at0014 = ╱da╱ AND ╱ // 0x21ff @0x14
0x21eb…2212 at0015 = ╱55╱U╱ // 0x2200 @0x15
0x21eb…2212 at0016 = ╱50╱P╱ // 0x2201 @0x16
0x21eb…2212 at0017 = ╱49╱I╱ // 0x2202 @0x17
0x21eb…2212 at0018 = ╱4c╱L╱ // 0x2203 @0x18
0x21eb…2212 at0019 = ╱33╱3╱ // 0x2204 @0x19
0x21eb…2212 at001a = ╱dd╱<╱ // 0x2205 @0x1a
0x21eb…2212 at001b = ╱49╱I╱ // 0x2206 @0x1b
0x21eb…2212 at001c = ╱e2╱+╱ // 0x2207 @0x1c
0x21eb…2212 at001d = ╱34╱4╱ // 0x2208 @0x1d
0x21eb…2212 at001e = ╱30╱0╱ // 0x2209 @0x1e
0x21eb…2212 at001f = ╱fe0000a006╱ // 0x220a @0x1f
0x21eb…2212 at0024 = ╱b6╱ THEN ╱ // 0x220f @0x24
0x21eb…2212 at0025 = ╱99╱ EXIT ╱ // 0x2210 @0x25
0x21eb…2212 at0026 = EOL // 0x2211 @0x26
0x21eb…2212 }
0x2212…2219 af70 4330 NEXT I
0x2212…2219 LineComalBin {
0x2212…2219 ptr = 0xaf70 // 0x2212 @0x0
0x2212…2219 lno = 0x10ea // 0x2214 @0x2
0x2212…2219 at0004 = ╱84╱ NEXT ╱ // 0x2216 @0x4
0x2212…2219 at0005 = ╱49╱I╱ // 0x2217 @0x5
0x2212…2219 at0006 = EOL // 0x2218 @0x6
0x2212…2219 }
0x2219…2232 af89 4340 FOR J=UPIL3+E TO I+42
0x2219…2232 LineComalBin {
0x2219…2232 ptr = 0xaf89 // 0x2219 @0x0
0x2219…2232 lno = 0x10f4 // 0x221b @0x2
0x2219…2232 at0004 = ╱83╱ FOR ╱ // 0x221d @0x4
0x2219…2232 at0005 = ╱4a╱J╱ // 0x221e @0x5
0x2219…2232 at0006 = ╱dc╱=╱ // 0x221f @0x6
0x2219…2232 at0007 = ╱55╱U╱ // 0x2220 @0x7
0x2219…2232 at0008 = ╱50╱P╱ // 0x2221 @0x8
0x2219…2232 at0009 = ╱49╱I╱ // 0x2222 @0x9
0x2219…2232 at000a = ╱4c╱L╱ // 0x2223 @0xa
0x2219…2232 at000b = ╱33╱3╱ // 0x2224 @0xb
0x2219…2232 at000c = ╱e2╱+╱ // 0x2225 @0xc
0x2219…2232 at000d = ╱45╱E╱ // 0x2226 @0xd
0x2219…2232 at000e = ╱b7╱ TO ╱ // 0x2227 @0xe
0x2219…2232 at000f = ╱49╱I╱ // 0x2228 @0xf
0x2219…2232 at0010 = ╱e2╱+╱ // 0x2229 @0x10
0x2219…2232 at0011 = ╱34╱4╱ // 0x222a @0x11
0x2219…2232 at0012 = ╱32╱2╱ // 0x222b @0x12
0x2219…2232 at0013 = ╱fe0000a806╱ // 0x222c @0x13
0x2219…2232 at0018 = EOL // 0x2231 @0x18
0x2219…2232 }
0x2232…223b af92 4350 PRINT " "
0x2232…223b LineComalBin {
0x2232…223b ptr = 0xaf92 // 0x2232 @0x0
0x2232…223b lno = 0x10fe // 0x2234 @0x2
0x2232…223b at0004 = ╱92╱ PRINT ╱ // 0x2236 @0x4
0x2232…223b at0005 = ╱22╱"╱ // 0x2237 @0x5
0x2232…223b at0006 = ╱20╱…╱ // 0x2238 @0x6
0x2232…223b at0007 = ╱22╱"╱ // 0x2239 @0x7
0x2232…223b at0008 = EOL // 0x223a @0x8
0x2232…223b }
0x223b…2242 af99 4360 NEXT J
0x223b…2242 LineComalBin {
0x223b…2242 ptr = 0xaf99 // 0x223b @0x0
0x223b…2242 lno = 0x1108 // 0x223d @0x2
0x223b…2242 at0004 = ╱84╱ NEXT ╱ // 0x223f @0x4
0x223b…2242 at0005 = ╱4a╱J╱ // 0x2240 @0x5
0x223b…2242 at0006 = EOL // 0x2241 @0x6
0x223b…2242 }
0x2242…2249 afa0 4370 OUTPUT T
0x2242…2249 LineComalBin {
0x2242…2249 ptr = 0xafa0 // 0x2242 @0x0
0x2242…2249 lno = 0x1112 // 0x2244 @0x2
0x2242…2249 at0004 = ╱a5╱ OUTPUT ╱ // 0x2246 @0x4
0x2242…2249 at0005 = ╱54╱T╱ // 0x2247 @0x5
0x2242…2249 at0006 = EOL // 0x2248 @0x6
0x2242…2249 }
0x2249…2253 afaa 4380 FNR=B
0x2249…2253 LineComalBin {
0x2249…2253 ptr = 0xafaa // 0x2249 @0x0
0x2249…2253 lno = 0x111c // 0x224b @0x2
0x2249…2253 at0004 = ╱46╱F╱ // 0x224d @0x4
0x2249…2253 at0005 = ╱4e╱N╱ // 0x224e @0x5
0x2249…2253 at0006 = ╱52╱R╱ // 0x224f @0x6
0x2249…2253 at0007 = ╱dc╱=╱ // 0x2250 @0x7
0x2249…2253 at0008 = ╱42╱B╱ // 0x2251 @0x8
0x2249…2253 at0009 = EOL // 0x2252 @0x9
0x2249…2253 }
0x2253…2259 afb0 4390 ENDCASE
0x2253…2259 LineComalBin {
0x2253…2259 ptr = 0xafb0 // 0x2253 @0x0
0x2253…2259 lno = 0x1126 // 0x2255 @0x2
0x2253…2259 at0004 = ╱a4╱ ENDCASE ╱ // 0x2257 @0x4
0x2253…2259 at0005 = EOL // 0x2258 @0x5
0x2253…2259 }
0x2259…225f afb6 4400 ELSE
0x2259…225f LineComalBin {
0x2259…225f ptr = 0xafb6 // 0x2259 @0x0
0x2259…225f lno = 0x1130 // 0x225b @0x2
0x2259…225f at0004 = ╱9a╱ ELSE ╱ // 0x225d @0x4
0x2259…225f at0005 = EOL // 0x225e @0x5
0x2259…225f }
0x225f…2265 afbc 4410 REPEAT
0x225f…2265 LineComalBin {
0x225f…2265 ptr = 0xafbc // 0x225f @0x0
0x225f…2265 lno = 0x113a // 0x2261 @0x2
0x225f…2265 at0004 = ╱97╱ REPEAT ╱ // 0x2263 @0x4
0x225f…2265 at0005 = EOL // 0x2264 @0x5
0x225f…2265 }
0x2265…2274 afcb 4420 CURSOR V,23
0x2265…2274 LineComalBin {
0x2265…2274 ptr = 0xafcb // 0x2265 @0x0
0x2265…2274 lno = 0x1144 // 0x2267 @0x2
0x2265…2274 at0004 = ╱a1╱ CURSOR ╱ // 0x2269 @0x4
0x2265…2274 at0005 = ╱56╱V╱ // 0x226a @0x5
0x2265…2274 at0006 = ╱ec╱,╱ // 0x226b @0x6
0x2265…2274 at0007 = ╱32╱2╱ // 0x226c @0x7
0x2265…2274 at0008 = ╱33╱3╱ // 0x226d @0x8
0x2265…2274 at0009 = ╱fe0000b805╱ // 0x226e @0x9
0x2265…2274 at000e = EOL // 0x2273 @0xe
0x2265…2274 }
0x2274…228a afe1 4430 FNR=ETAB(EPIL3,E)
0x2274…228a LineComalBin {
0x2274…228a ptr = 0xafe1 // 0x2274 @0x0
0x2274…228a lno = 0x114e // 0x2276 @0x2
0x2274…228a at0004 = ╱46╱F╱ // 0x2278 @0x4
0x2274…228a at0005 = ╱4e╱N╱ // 0x2279 @0x5
0x2274…228a at0006 = ╱52╱R╱ // 0x227a @0x6
0x2274…228a at0007 = ╱dc╱=╱ // 0x227b @0x7
0x2274…228a at0008 = ╱45╱E╱ // 0x227c @0x8
0x2274…228a at0009 = ╱54╱T╱ // 0x227d @0x9
0x2274…228a at000a = ╱41╱A╱ // 0x227e @0xa
0x2274…228a at000b = ╱42╱B╱ // 0x227f @0xb
0x2274…228a at000c = ╱ed╱(╱ // 0x2280 @0xc
0x2274…228a at000d = ╱45╱E╱ // 0x2281 @0xd
0x2274…228a at000e = ╱50╱P╱ // 0x2282 @0xe
0x2274…228a at000f = ╱49╱I╱ // 0x2283 @0xf
0x2274…228a at0010 = ╱4c╱L╱ // 0x2284 @0x10
0x2274…228a at0011 = ╱33╱3╱ // 0x2285 @0x11
0x2274…228a at0012 = ╱ec╱,╱ // 0x2286 @0x12
0x2274…228a at0013 = ╱45╱E╱ // 0x2287 @0x13
0x2274…228a at0014 = ╱ee╱)╱ // 0x2288 @0x14
0x2274…228a at0015 = EOL // 0x2289 @0x15
0x2274…228a }
0x228a…22cf b026 4440 PRINT "Kontoen kan ikke slettes, saldo på entreprise ";FNR;" ,tast ";
0x228a…22cf LineComalBin {
0x228a…22cf ptr = 0xb026 // 0x228a @0x0
0x228a…22cf lno = 0x1158 // 0x228c @0x2
0x228a…22cf at0004 = ╱92╱ PRINT ╱ // 0x228e @0x4
0x228a…22cf at0005 = ╱22╱"╱ // 0x228f @0x5
0x228a…22cf at0006 = ╱4b╱K╱ // 0x2290 @0x6
0x228a…22cf at0007 = ╱6f╱o╱ // 0x2291 @0x7
0x228a…22cf at0008 = ╱6e╱n╱ // 0x2292 @0x8
0x228a…22cf at0009 = ╱74╱t╱ // 0x2293 @0x9
0x228a…22cf at000a = ╱6f╱o╱ // 0x2294 @0xa
0x228a…22cf at000b = ╱65╱e╱ // 0x2295 @0xb
0x228a…22cf at000c = ╱6e╱n╱ // 0x2296 @0xc
0x228a…22cf at000d = ╱20╱…╱ // 0x2297 @0xd
0x228a…22cf at000e = ╱6b╱k╱ // 0x2298 @0xe
0x228a…22cf at000f = ╱61╱a╱ // 0x2299 @0xf
0x228a…22cf at0010 = ╱6e╱n╱ // 0x229a @0x10
0x228a…22cf at0011 = ╱20╱…╱ // 0x229b @0x11
0x228a…22cf at0012 = ╱69╱i╱ // 0x229c @0x12
0x228a…22cf at0013 = ╱6b╱k╱ // 0x229d @0x13
0x228a…22cf at0014 = ╱6b╱k╱ // 0x229e @0x14
0x228a…22cf at0015 = ╱65╱e╱ // 0x229f @0x15
0x228a…22cf at0016 = ╱20╱…╱ // 0x22a0 @0x16
0x228a…22cf at0017 = ╱73╱s╱ // 0x22a1 @0x17
0x228a…22cf at0018 = ╱6c╱l╱ // 0x22a2 @0x18
0x228a…22cf at0019 = ╱65╱e╱ // 0x22a3 @0x19
0x228a…22cf at001a = ╱74╱t╱ // 0x22a4 @0x1a
0x228a…22cf at001b = ╱74╱t╱ // 0x22a5 @0x1b
0x228a…22cf at001c = ╱65╱e╱ // 0x22a6 @0x1c
0x228a…22cf at001d = ╱73╱s╱ // 0x22a7 @0x1d
0x228a…22cf at001e = ╱2c╱,╱ // 0x22a8 @0x1e
0x228a…22cf at001f = ╱20╱…╱ // 0x22a9 @0x1f
0x228a…22cf at0020 = ╱73╱s╱ // 0x22aa @0x20
0x228a…22cf at0021 = ╱61╱a╱ // 0x22ab @0x21
0x228a…22cf at0022 = ╱6c╱l╱ // 0x22ac @0x22
0x228a…22cf at0023 = ╱64╱d╱ // 0x22ad @0x23
0x228a…22cf at0024 = ╱6f╱o╱ // 0x22ae @0x24
0x228a…22cf at0025 = ╱20╱…╱ // 0x22af @0x25
0x228a…22cf at0026 = ╱70╱p╱ // 0x22b0 @0x26
0x228a…22cf at0027 = ╱7d╱å╱ // 0x22b1 @0x27
0x228a…22cf at0028 = ╱20╱…╱ // 0x22b2 @0x28
0x228a…22cf at0029 = ╱65╱e╱ // 0x22b3 @0x29
0x228a…22cf at002a = ╱6e╱n╱ // 0x22b4 @0x2a
0x228a…22cf at002b = ╱74╱t╱ // 0x22b5 @0x2b
0x228a…22cf at002c = ╱72╱r╱ // 0x22b6 @0x2c
0x228a…22cf at002d = ╱65╱e╱ // 0x22b7 @0x2d
0x228a…22cf at002e = ╱70╱p╱ // 0x22b8 @0x2e
0x228a…22cf at002f = ╱72╱r╱ // 0x22b9 @0x2f
0x228a…22cf at0030 = ╱69╱i╱ // 0x22ba @0x30
0x228a…22cf at0031 = ╱73╱s╱ // 0x22bb @0x31
0x228a…22cf at0032 = ╱65╱e╱ // 0x22bc @0x32
0x228a…22cf at0033 = ╱20╱…╱ // 0x22bd @0x33
0x228a…22cf at0034 = ╱22╱"╱ // 0x22be @0x34
0x228a…22cf at0035 = ╱eb╱;╱ // 0x22bf @0x35
0x228a…22cf at0036 = ╱46╱F╱ // 0x22c0 @0x36
0x228a…22cf at0037 = ╱4e╱N╱ // 0x22c1 @0x37
0x228a…22cf at0038 = ╱52╱R╱ // 0x22c2 @0x38
0x228a…22cf at0039 = ╱eb╱;╱ // 0x22c3 @0x39
0x228a…22cf at003a = ╱22╱"╱ // 0x22c4 @0x3a
0x228a…22cf at003b = ╱20╱…╱ // 0x22c5 @0x3b
0x228a…22cf at003c = ╱2c╱,╱ // 0x22c6 @0x3c
0x228a…22cf at003d = ╱74╱t╱ // 0x22c7 @0x3d
0x228a…22cf at003e = ╱61╱a╱ // 0x22c8 @0x3e
0x228a…22cf at003f = ╱73╱s╱ // 0x22c9 @0x3f
0x228a…22cf at0040 = ╱74╱t╱ // 0x22ca @0x40
0x228a…22cf at0041 = ╱20╱…╱ // 0x22cb @0x41
0x228a…22cf at0042 = ╱22╱"╱ // 0x22cc @0x42
0x228a…22cf at0043 = ╱eb╱;╱ // 0x22cd @0x43
0x228a…22cf at0044 = EOL // 0x22ce @0x44
0x228a…22cf }
0x22cf…22e6 b03d 4450 PRINT "RETURN ";
0x22cf…22e6 LineComalBin {
0x22cf…22e6 ptr = 0xb03d // 0x22cf @0x0
0x22cf…22e6 lno = 0x1162 // 0x22d1 @0x2
0x22cf…22e6 at0004 = ╱92╱ PRINT ╱ // 0x22d3 @0x4
0x22cf…22e6 at0005 = ╱22╱"╱ // 0x22d4 @0x5
0x22cf…22e6 at0006 = ╱52╱R╱ // 0x22d5 @0x6
0x22cf…22e6 at0007 = ╱45╱E╱ // 0x22d6 @0x7
0x22cf…22e6 at0008 = ╱54╱T╱ // 0x22d7 @0x8
0x22cf…22e6 at0009 = ╱55╱U╱ // 0x22d8 @0x9
0x22cf…22e6 at000a = ╱52╱R╱ // 0x22d9 @0xa
0x22cf…22e6 at000b = ╱4e╱N╱ // 0x22da @0xb
0x22cf…22e6 at000c = ╱20╱…╱ // 0x22db @0xc
0x22cf…22e6 at000d = ╱20╱…╱ // 0x22dc @0xd
0x22cf…22e6 at000e = ╱20╱…╱ // 0x22dd @0xe
0x22cf…22e6 at000f = ╱20╱…╱ // 0x22de @0xf
0x22cf…22e6 at0010 = ╱20╱…╱ // 0x22df @0x10
0x22cf…22e6 at0011 = ╱20╱…╱ // 0x22e0 @0x11
0x22cf…22e6 at0012 = ╱20╱…╱ // 0x22e1 @0x12
0x22cf…22e6 at0013 = ╱20╱…╱ // 0x22e2 @0x13
0x22cf…22e6 at0014 = ╱22╱"╱ // 0x22e3 @0x14
0x22cf…22e6 at0015 = ╱eb╱;╱ // 0x22e4 @0x15
0x22cf…22e6 at0016 = EOL // 0x22e5 @0x16
0x22cf…22e6 }
0x22e6…22ee b045 4460 INPUT A$
0x22e6…22ee LineComalBin {
0x22e6…22ee ptr = 0xb045 // 0x22e6 @0x0
0x22e6…22ee lno = 0x116c // 0x22e8 @0x2
0x22e6…22ee at0004 = ╱91╱ INPUT ╱ // 0x22ea @0x4
0x22e6…22ee at0005 = ╱41╱A╱ // 0x22eb @0x5
0x22e6…22ee at0006 = ╱ef╱$╱ // 0x22ec @0x6
0x22e6…22ee at0007 = EOL // 0x22ed @0x7
0x22e6…22ee }
0x22ee…22fe b055 4470 EXEC NRTEST(A$)
0x22ee…22fe LineComalBin {
0x22ee…22fe ptr = 0xb055 // 0x22ee @0x0
0x22ee…22fe lno = 0x1176 // 0x22f0 @0x2
0x22ee…22fe at0004 = ╱9d╱ EXEC ╱ // 0x22f2 @0x4
0x22ee…22fe at0005 = ╱4e╱N╱ // 0x22f3 @0x5
0x22ee…22fe at0006 = ╱52╱R╱ // 0x22f4 @0x6
0x22ee…22fe at0007 = ╱54╱T╱ // 0x22f5 @0x7
0x22ee…22fe at0008 = ╱45╱E╱ // 0x22f6 @0x8
0x22ee…22fe at0009 = ╱53╱S╱ // 0x22f7 @0x9
0x22ee…22fe at000a = ╱54╱T╱ // 0x22f8 @0xa
0x22ee…22fe at000b = ╱ed╱(╱ // 0x22f9 @0xb
0x22ee…22fe at000c = ╱41╱A╱ // 0x22fa @0xc
0x22ee…22fe at000d = ╱ef╱$╱ // 0x22fb @0xd
0x22ee…22fe at000e = ╱ee╱)╱ // 0x22fc @0xe
0x22ee…22fe at000f = EOL // 0x22fd @0xf
0x22ee…22fe }
0x22fe…2308 b05f 4480 UNTIL P=-E
0x22fe…2308 LineComalBin {
0x22fe…2308 ptr = 0xb05f // 0x22fe @0x0
0x22fe…2308 lno = 0x1180 // 0x2300 @0x2
0x22fe…2308 at0004 = ╱98╱ UNTIL ╱ // 0x2302 @0x4
0x22fe…2308 at0005 = ╱50╱P╱ // 0x2303 @0x5
0x22fe…2308 at0006 = ╱dc╱=╱ // 0x2304 @0x6
0x22fe…2308 at0007 = ╱e9╱-╱ // 0x2305 @0x7
0x22fe…2308 at0008 = ╱45╱E╱ // 0x2306 @0x8
0x22fe…2308 at0009 = EOL // 0x2307 @0x9
0x22fe…2308 }
0x2308…230e b065 4490 ENDIF
0x2308…230e LineComalBin {
0x2308…230e ptr = 0xb065 // 0x2308 @0x0
0x2308…230e lno = 0x118a // 0x230a @0x2
0x2308…230e at0004 = ╱9b╱ ENDIF ╱ // 0x230c @0x4
0x2308…230e at0005 = EOL // 0x230d @0x5
0x2308…230e }
0x230e…2319 b070 4500 UNTIL FNR=B
0x230e…2319 LineComalBin {
0x230e…2319 ptr = 0xb070 // 0x230e @0x0
0x230e…2319 lno = 0x1194 // 0x2310 @0x2
0x230e…2319 at0004 = ╱98╱ UNTIL ╱ // 0x2312 @0x4
0x230e…2319 at0005 = ╱46╱F╱ // 0x2313 @0x5
0x230e…2319 at0006 = ╱4e╱N╱ // 0x2314 @0x6
0x230e…2319 at0007 = ╱52╱R╱ // 0x2315 @0x7
0x230e…2319 at0008 = ╱dc╱=╱ // 0x2316 @0x8
0x230e…2319 at0009 = ╱42╱B╱ // 0x2317 @0x9
0x230e…2319 at000a = EOL // 0x2318 @0xa
0x230e…2319 }
0x2319…2325 b07c 4510 UNTIL TYPE=B
0x2319…2325 LineComalBin {
0x2319…2325 ptr = 0xb07c // 0x2319 @0x0
0x2319…2325 lno = 0x119e // 0x231b @0x2
0x2319…2325 at0004 = ╱98╱ UNTIL ╱ // 0x231d @0x4
0x2319…2325 at0005 = ╱54╱T╱ // 0x231e @0x5
0x2319…2325 at0006 = ╱59╱Y╱ // 0x231f @0x6
0x2319…2325 at0007 = ╱50╱P╱ // 0x2320 @0x7
0x2319…2325 at0008 = ╱45╱E╱ // 0x2321 @0x8
0x2319…2325 at0009 = ╱dc╱=╱ // 0x2322 @0x9
0x2319…2325 at000a = ╱42╱B╱ // 0x2323 @0xa
0x2319…2325 at000b = EOL // 0x2324 @0xb
0x2319…2325 }
0x2325…2330 b087 4520 EXEC UDTAB
0x2325…2330 LineComalBin {
0x2325…2330 ptr = 0xb087 // 0x2325 @0x0
0x2325…2330 lno = 0x11a8 // 0x2327 @0x2
0x2325…2330 at0004 = ╱9d╱ EXEC ╱ // 0x2329 @0x4
0x2325…2330 at0005 = ╱55╱U╱ // 0x232a @0x5
0x2325…2330 at0006 = ╱44╱D╱ // 0x232b @0x6
0x2325…2330 at0007 = ╱54╱T╱ // 0x232c @0x7
0x2325…2330 at0008 = ╱41╱A╱ // 0x232d @0x8
0x2325…2330 at0009 = ╱42╱B╱ // 0x232e @0x9
0x2325…2330 at000a = EOL // 0x232f @0xa
0x2325…2330 }
0x2330…2339 b090 4530 CLOSE K2$
0x2330…2339 LineComalBin {
0x2330…2339 ptr = 0xb090 // 0x2330 @0x0
0x2330…2339 lno = 0x11b2 // 0x2332 @0x2
0x2330…2339 at0004 = ╱a8╱ CLOSE ╱ // 0x2334 @0x4
0x2330…2339 at0005 = ╱4b╱K╱ // 0x2335 @0x5
0x2330…2339 at0006 = ╱32╱2╱ // 0x2336 @0x6
0x2330…2339 at0007 = ╱ef╱$╱ // 0x2337 @0x7
0x2330…2339 at0008 = EOL // 0x2338 @0x8
0x2330…2339 }
0x2339…2352 b0a9 4540 EXEC FEJL(W,30,K2$)
0x2339…2352 LineComalBin {
0x2339…2352 ptr = 0xb0a9 // 0x2339 @0x0
0x2339…2352 lno = 0x11bc // 0x233b @0x2
0x2339…2352 at0004 = ╱9d╱ EXEC ╱ // 0x233d @0x4
0x2339…2352 at0005 = ╱46╱F╱ // 0x233e @0x5
0x2339…2352 at0006 = ╱45╱E╱ // 0x233f @0x6
0x2339…2352 at0007 = ╱4a╱J╱ // 0x2340 @0x7
0x2339…2352 at0008 = ╱4c╱L╱ // 0x2341 @0x8
0x2339…2352 at0009 = ╱ed╱(╱ // 0x2342 @0x9
0x2339…2352 at000a = ╱57╱W╱ // 0x2343 @0xa
0x2339…2352 at000b = ╱ec╱,╱ // 0x2344 @0xb
0x2339…2352 at000c = ╱33╱3╱ // 0x2345 @0xc
0x2339…2352 at000d = ╱30╱0╱ // 0x2346 @0xd
0x2339…2352 at000e = ╱fe0000f005╱ // 0x2347 @0xe
0x2339…2352 at0013 = ╱ec╱,╱ // 0x234c @0x13
0x2339…2352 at0014 = ╱4b╱K╱ // 0x234d @0x14
0x2339…2352 at0015 = ╱32╱2╱ // 0x234e @0x15
0x2339…2352 at0016 = ╱ef╱$╱ // 0x234f @0x16
0x2339…2352 at0017 = ╱ee╱)╱ // 0x2350 @0x17
0x2339…2352 at0018 = EOL // 0x2351 @0x18
0x2339…2352 }
0x2352…235b b0b2 4550 CLOSE K3$
0x2352…235b LineComalBin {
0x2352…235b ptr = 0xb0b2 // 0x2352 @0x0
0x2352…235b lno = 0x11c6 // 0x2354 @0x2
0x2352…235b at0004 = ╱a8╱ CLOSE ╱ // 0x2356 @0x4
0x2352…235b at0005 = ╱4b╱K╱ // 0x2357 @0x5
0x2352…235b at0006 = ╱33╱3╱ // 0x2358 @0x6
0x2352…235b at0007 = ╱ef╱$╱ // 0x2359 @0x7
0x2352…235b at0008 = EOL // 0x235a @0x8
0x2352…235b }
0x235b…2374 b0cb 4560 EXEC FEJL(W,31,K3$)
0x235b…2374 LineComalBin {
0x235b…2374 ptr = 0xb0cb // 0x235b @0x0
0x235b…2374 lno = 0x11d0 // 0x235d @0x2
0x235b…2374 at0004 = ╱9d╱ EXEC ╱ // 0x235f @0x4
0x235b…2374 at0005 = ╱46╱F╱ // 0x2360 @0x5
0x235b…2374 at0006 = ╱45╱E╱ // 0x2361 @0x6
0x235b…2374 at0007 = ╱4a╱J╱ // 0x2362 @0x7
0x235b…2374 at0008 = ╱4c╱L╱ // 0x2363 @0x8
0x235b…2374 at0009 = ╱ed╱(╱ // 0x2364 @0x9
0x235b…2374 at000a = ╱57╱W╱ // 0x2365 @0xa
0x235b…2374 at000b = ╱ec╱,╱ // 0x2366 @0xb
0x235b…2374 at000c = ╱33╱3╱ // 0x2367 @0xc
0x235b…2374 at000d = ╱31╱1╱ // 0x2368 @0xd
0x235b…2374 at000e = ╱fe0000f805╱ // 0x2369 @0xe
0x235b…2374 at0013 = ╱ec╱,╱ // 0x236e @0x13
0x235b…2374 at0014 = ╱4b╱K╱ // 0x236f @0x14
0x235b…2374 at0015 = ╱33╱3╱ // 0x2370 @0x15
0x235b…2374 at0016 = ╱ef╱$╱ // 0x2371 @0x16
0x235b…2374 at0017 = ╱ee╱)╱ // 0x2372 @0x17
0x235b…2374 at0018 = EOL // 0x2373 @0x18
0x235b…2374 }
0x2374…237d b0d4 4570 CLOSE K5$
0x2374…237d LineComalBin {
0x2374…237d ptr = 0xb0d4 // 0x2374 @0x0
0x2374…237d lno = 0x11da // 0x2376 @0x2
0x2374…237d at0004 = ╱a8╱ CLOSE ╱ // 0x2378 @0x4
0x2374…237d at0005 = ╱4b╱K╱ // 0x2379 @0x5
0x2374…237d at0006 = ╱35╱5╱ // 0x237a @0x6
0x2374…237d at0007 = ╱ef╱$╱ // 0x237b @0x7
0x2374…237d at0008 = EOL // 0x237c @0x8
0x2374…237d }
0x237d…2396 b0ed 4580 EXEC FEJL(W,32,K5$)
0x237d…2396 LineComalBin {
0x237d…2396 ptr = 0xb0ed // 0x237d @0x0
0x237d…2396 lno = 0x11e4 // 0x237f @0x2
0x237d…2396 at0004 = ╱9d╱ EXEC ╱ // 0x2381 @0x4
0x237d…2396 at0005 = ╱46╱F╱ // 0x2382 @0x5
0x237d…2396 at0006 = ╱45╱E╱ // 0x2383 @0x6
0x237d…2396 at0007 = ╱4a╱J╱ // 0x2384 @0x7
0x237d…2396 at0008 = ╱4c╱L╱ // 0x2385 @0x8
0x237d…2396 at0009 = ╱ed╱(╱ // 0x2386 @0x9
0x237d…2396 at000a = ╱57╱W╱ // 0x2387 @0xa
0x237d…2396 at000b = ╱ec╱,╱ // 0x2388 @0xb
0x237d…2396 at000c = ╱33╱3╱ // 0x2389 @0xc
0x237d…2396 at000d = ╱32╱2╱ // 0x238a @0xd
0x237d…2396 at000e = ╱fe00008006╱ // 0x238b @0xe
0x237d…2396 at0013 = ╱ec╱,╱ // 0x2390 @0x13
0x237d…2396 at0014 = ╱4b╱K╱ // 0x2391 @0x14
0x237d…2396 at0015 = ╱35╱5╱ // 0x2392 @0x15
0x237d…2396 at0016 = ╱ef╱$╱ // 0x2393 @0x16
0x237d…2396 at0017 = ╱ee╱)╱ // 0x2394 @0x17
0x237d…2396 at0018 = EOL // 0x2395 @0x18
0x237d…2396 }
0x2396…23a1 b0f8 4590 OPEN K4$,W
0x2396…23a1 LineComalBin {
0x2396…23a1 ptr = 0xb0f8 // 0x2396 @0x0
0x2396…23a1 lno = 0x11ee // 0x2398 @0x2
0x2396…23a1 at0004 = ╱a7╱ OPEN ╱ // 0x239a @0x4
0x2396…23a1 at0005 = ╱4b╱K╱ // 0x239b @0x5
0x2396…23a1 at0006 = ╱34╱4╱ // 0x239c @0x6
0x2396…23a1 at0007 = ╱ef╱$╱ // 0x239d @0x7
0x2396…23a1 at0008 = ╱ec╱,╱ // 0x239e @0x8
0x2396…23a1 at0009 = ╱57╱W╱ // 0x239f @0x9
0x2396…23a1 at000a = EOL // 0x23a0 @0xa
0x2396…23a1 }
0x23a1…23ba b111 4600 EXEC FEJL(W,32,K4$)
0x23a1…23ba LineComalBin {
0x23a1…23ba ptr = 0xb111 // 0x23a1 @0x0
0x23a1…23ba lno = 0x11f8 // 0x23a3 @0x2
0x23a1…23ba at0004 = ╱9d╱ EXEC ╱ // 0x23a5 @0x4
0x23a1…23ba at0005 = ╱46╱F╱ // 0x23a6 @0x5
0x23a1…23ba at0006 = ╱45╱E╱ // 0x23a7 @0x6
0x23a1…23ba at0007 = ╱4a╱J╱ // 0x23a8 @0x7
0x23a1…23ba at0008 = ╱4c╱L╱ // 0x23a9 @0x8
0x23a1…23ba at0009 = ╱ed╱(╱ // 0x23aa @0x9
0x23a1…23ba at000a = ╱57╱W╱ // 0x23ab @0xa
0x23a1…23ba at000b = ╱ec╱,╱ // 0x23ac @0xb
0x23a1…23ba at000c = ╱33╱3╱ // 0x23ad @0xc
0x23a1…23ba at000d = ╱32╱2╱ // 0x23ae @0xd
0x23a1…23ba at000e = ╱fe00008006╱ // 0x23af @0xe
0x23a1…23ba at0013 = ╱ec╱,╱ // 0x23b4 @0x13
0x23a1…23ba at0014 = ╱4b╱K╱ // 0x23b5 @0x14
0x23a1…23ba at0015 = ╱34╱4╱ // 0x23b6 @0x15
0x23a1…23ba at0016 = ╱ef╱$╱ // 0x23b7 @0x16
0x23a1…23ba at0017 = ╱ee╱)╱ // 0x23b8 @0x17
0x23a1…23ba at0018 = EOL // 0x23b9 @0x18
0x23a1…23ba }
0x23ba…23e5 b13c 4610 PUT K4$,21:AENT,AUNK,ETOT,EMID,EPOST
0x23ba…23e5 LineComalBin {
0x23ba…23e5 ptr = 0xb13c // 0x23ba @0x0
0x23ba…23e5 lno = 0x1202 // 0x23bc @0x2
0x23ba…23e5 at0004 = ╱aa╱ PUT ╱ // 0x23be @0x4
0x23ba…23e5 at0005 = ╱4b╱K╱ // 0x23bf @0x5
0x23ba…23e5 at0006 = ╱34╱4╱ // 0x23c0 @0x6
0x23ba…23e5 at0007 = ╱ef╱$╱ // 0x23c1 @0x7
0x23ba…23e5 at0008 = ╱ec╱,╱ // 0x23c2 @0x8
0x23ba…23e5 at0009 = ╱32╱2╱ // 0x23c3 @0x9
0x23ba…23e5 at000a = ╱31╱1╱ // 0x23c4 @0xa
0x23ba…23e5 at000b = ╱fe0000a805╱ // 0x23c5 @0xb
0x23ba…23e5 at0010 = ╱f0╱:╱ // 0x23ca @0x10
0x23ba…23e5 at0011 = ╱41╱A╱ // 0x23cb @0x11
0x23ba…23e5 at0012 = ╱45╱E╱ // 0x23cc @0x12
0x23ba…23e5 at0013 = ╱4e╱N╱ // 0x23cd @0x13
0x23ba…23e5 at0014 = ╱54╱T╱ // 0x23ce @0x14
0x23ba…23e5 at0015 = ╱ec╱,╱ // 0x23cf @0x15
0x23ba…23e5 at0016 = ╱41╱A╱ // 0x23d0 @0x16
0x23ba…23e5 at0017 = ╱55╱U╱ // 0x23d1 @0x17
0x23ba…23e5 at0018 = ╱4e╱N╱ // 0x23d2 @0x18
0x23ba…23e5 at0019 = ╱4b╱K╱ // 0x23d3 @0x19
0x23ba…23e5 at001a = ╱ec╱,╱ // 0x23d4 @0x1a
0x23ba…23e5 at001b = ╱45╱E╱ // 0x23d5 @0x1b
0x23ba…23e5 at001c = ╱54╱T╱ // 0x23d6 @0x1c
0x23ba…23e5 at001d = ╱4f╱O╱ // 0x23d7 @0x1d
0x23ba…23e5 at001e = ╱54╱T╱ // 0x23d8 @0x1e
0x23ba…23e5 at001f = ╱ec╱,╱ // 0x23d9 @0x1f
0x23ba…23e5 at0020 = ╱45╱E╱ // 0x23da @0x20
0x23ba…23e5 at0021 = ╱4d╱M╱ // 0x23db @0x21
0x23ba…23e5 at0022 = ╱49╱I╱ // 0x23dc @0x22
0x23ba…23e5 at0023 = ╱44╱D╱ // 0x23dd @0x23
0x23ba…23e5 at0024 = ╱ec╱,╱ // 0x23de @0x24
0x23ba…23e5 at0025 = ╱45╱E╱ // 0x23df @0x25
0x23ba…23e5 at0026 = ╱50╱P╱ // 0x23e0 @0x26
0x23ba…23e5 at0027 = ╱4f╱O╱ // 0x23e1 @0x27
0x23ba…23e5 at0028 = ╱53╱S╱ // 0x23e2 @0x28
0x23ba…23e5 at0029 = ╱54╱T╱ // 0x23e3 @0x29
0x23ba…23e5 at002a = EOL // 0x23e4 @0x2a
0x23ba…23e5 }
0x23e5…23fe b155 4620 EXEC FEJL(W,34,K4$)
0x23e5…23fe LineComalBin {
0x23e5…23fe ptr = 0xb155 // 0x23e5 @0x0
0x23e5…23fe lno = 0x120c // 0x23e7 @0x2
0x23e5…23fe at0004 = ╱9d╱ EXEC ╱ // 0x23e9 @0x4
0x23e5…23fe at0005 = ╱46╱F╱ // 0x23ea @0x5
0x23e5…23fe at0006 = ╱45╱E╱ // 0x23eb @0x6
0x23e5…23fe at0007 = ╱4a╱J╱ // 0x23ec @0x7
0x23e5…23fe at0008 = ╱4c╱L╱ // 0x23ed @0x8
0x23e5…23fe at0009 = ╱ed╱(╱ // 0x23ee @0x9
0x23e5…23fe at000a = ╱57╱W╱ // 0x23ef @0xa
0x23e5…23fe at000b = ╱ec╱,╱ // 0x23f0 @0xb
0x23e5…23fe at000c = ╱33╱3╱ // 0x23f1 @0xc
0x23e5…23fe at000d = ╱34╱4╱ // 0x23f2 @0xd
0x23e5…23fe at000e = ╱fe00008806╱ // 0x23f3 @0xe
0x23e5…23fe at0013 = ╱ec╱,╱ // 0x23f8 @0x13
0x23e5…23fe at0014 = ╱4b╱K╱ // 0x23f9 @0x14
0x23e5…23fe at0015 = ╱34╱4╱ // 0x23fa @0x15
0x23e5…23fe at0016 = ╱ef╱$╱ // 0x23fb @0x16
0x23e5…23fe at0017 = ╱ee╱)╱ // 0x23fc @0x17
0x23e5…23fe at0018 = EOL // 0x23fd @0x18
0x23e5…23fe }
0x23fe…2407 b15e 4630 CLOSE K4$
0x23fe…2407 LineComalBin {
0x23fe…2407 ptr = 0xb15e // 0x23fe @0x0
0x23fe…2407 lno = 0x1216 // 0x2400 @0x2
0x23fe…2407 at0004 = ╱a8╱ CLOSE ╱ // 0x2402 @0x4
0x23fe…2407 at0005 = ╱4b╱K╱ // 0x2403 @0x5
0x23fe…2407 at0006 = ╱34╱4╱ // 0x2404 @0x6
0x23fe…2407 at0007 = ╱ef╱$╱ // 0x2405 @0x7
0x23fe…2407 at0008 = EOL // 0x2406 @0x8
0x23fe…2407 }
0x2407…2420 b177 4640 EXEC FEJL(W,35,K4$)
0x2407…2420 LineComalBin {
0x2407…2420 ptr = 0xb177 // 0x2407 @0x0
0x2407…2420 lno = 0x1220 // 0x2409 @0x2
0x2407…2420 at0004 = ╱9d╱ EXEC ╱ // 0x240b @0x4
0x2407…2420 at0005 = ╱46╱F╱ // 0x240c @0x5
0x2407…2420 at0006 = ╱45╱E╱ // 0x240d @0x6
0x2407…2420 at0007 = ╱4a╱J╱ // 0x240e @0x7
0x2407…2420 at0008 = ╱4c╱L╱ // 0x240f @0x8
0x2407…2420 at0009 = ╱ed╱(╱ // 0x2410 @0x9
0x2407…2420 at000a = ╱57╱W╱ // 0x2411 @0xa
0x2407…2420 at000b = ╱ec╱,╱ // 0x2412 @0xb
0x2407…2420 at000c = ╱33╱3╱ // 0x2413 @0xc
0x2407…2420 at000d = ╱35╱5╱ // 0x2414 @0xd
0x2407…2420 at000e = ╱fe00008c06╱ // 0x2415 @0xe
0x2407…2420 at0013 = ╱ec╱,╱ // 0x241a @0x13
0x2407…2420 at0014 = ╱4b╱K╱ // 0x241b @0x14
0x2407…2420 at0015 = ╱34╱4╱ // 0x241c @0x15
0x2407…2420 at0016 = ╱ef╱$╱ // 0x241d @0x16
0x2407…2420 at0017 = ╱ee╱)╱ // 0x241e @0x17
0x2407…2420 at0018 = EOL // 0x241f @0x18
0x2407…2420 }
0x2420…2437 0000 4650 CHAIN "P641210:OPSTART"
0x2420…2437 LineComalBin {
0x2420…2437 ptr = 0x0000 // 0x2420 @0x0
0x2420…2437 lno = 0x122a // 0x2422 @0x2
0x2420…2437 at0004 = ╱ac╱ CHAIN ╱ // 0x2424 @0x4
0x2420…2437 at0005 = ╱22╱"╱ // 0x2425 @0x5
0x2420…2437 at0006 = ╱50╱P╱ // 0x2426 @0x6
0x2420…2437 at0007 = ╱36╱6╱ // 0x2427 @0x7
0x2420…2437 at0008 = ╱34╱4╱ // 0x2428 @0x8
0x2420…2437 at0009 = ╱31╱1╱ // 0x2429 @0x9
0x2420…2437 at000a = ╱32╱2╱ // 0x242a @0xa
0x2420…2437 at000b = ╱31╱1╱ // 0x242b @0xb
0x2420…2437 at000c = ╱30╱0╱ // 0x242c @0xc
0x2420…2437 at000d = ╱3a╱:╱ // 0x242d @0xd
0x2420…2437 at000e = ╱4f╱O╱ // 0x242e @0xe
0x2420…2437 at000f = ╱50╱P╱ // 0x242f @0xf
0x2420…2437 at0010 = ╱53╱S╱ // 0x2430 @0x10
0x2420…2437 at0011 = ╱54╱T╱ // 0x2431 @0x11
0x2420…2437 at0012 = ╱41╱A╱ // 0x2432 @0x12
0x2420…2437 at0013 = ╱52╱R╱ // 0x2433 @0x13
0x2420…2437 at0014 = ╱54╱T╱ // 0x2434 @0x14
0x2420…2437 at0015 = ╱22╱"╱ // 0x2435 @0x15
0x2420…2437 at0016 = EOL // 0x2436 @0x16
0x2420…2437 }
0x2437…2440 57 8d 5a 00 42 dc 30 fe 00 ┆W Z B 0 ┆
0x2440…2460 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 ┆ E 1 G 2 V 3 W┆
0x2460…2465 dc 39 fe 00 00 ┆ 9 ┆
0x2465…2468 (121,) 90 04 ff ┆ ┆
0x2468…246e (122,) 57 8d 8e b1 10 00 ┆W ┆