|
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: 6860 (0x1acc)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »KRELIST.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »KRELIST.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »KRELIST.B«
0100 DIM OP1$(12),OP2$(12),RES$(15) 0110 DIM KSALDO1$(12),KSALDO2$(12) 0120 DIM K1$(17),N$(6),K2$(17),K3$(17),KRENAVN$(25) 0130 DIM KRELK$(G),KREGADE$(25),KREGR$(G),GEM$(G),TSALDO1$(12),TSALDO2$(12) 0140 DIM BLANK$(77),A$(E),TAL3$(14),TAH$(12),T1(W),KREBY$(20) 0150 DIM KSALDI$(14),LK$(V),KG$(V),KTN$(6),TSALDI$(14) 0160 DIM PNR$(6),TY$(E),TA$(12),TB$(14),DV$(10) 0170 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12) 0180 DIM TAL1$(14),TAL2$(14),KS$(5),STREG$(78),DAT$(8) 0190 DIM K5$(17),LAND$(W,12),VTAB2(5),SVAR$(E) 0200 PROC CALC(AR3,B1,B2,ES) 0210 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0220 CALL "P641210:REGN" 0230 ES$=RES$ 0240 IF AR3<6 THEN 0250 IF FLAG THEN STOP 0260 ENDIF 0270 ENDPROC 0280 PROC FEJL(NR1,NR2,NR3) 0290 IF STATUS(NR3$)<>B THEN 0300 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0310 STOP 0320 ENDIF 0330 ENDPROC 0340 PROC INDTAB(T,MANTAL,L10) 0350 J=MANTAL DIV 32+E 0360 FOR I=J TO MANTAL DIV 4+J-E 0370 H=(I-J)*4+E;H1=H+E;H2=H+G;H3=H+V 0380 GET L10$,I:T(H,E),T(H,G),T(H1,E),T(H1,G),T(H2,E),T(H2,G),T(H3,E),T(H3,G) 0390 EXEC FEJL(E,E,L10$) 0400 NEXT I 0410 ENDPROC 0420 PROC HENTKPOST 0430 S=KTAB(KPIL3,G) 0440 GET K3$,S:KRENR,KRENAVN$,KREGADE$ 0450 EXEC FEJL(8,G,K3$) 0460 GET K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 0470 EXEC FEJL(8,V,K3$) 0480 ENDPROC 0490 PROC TUD(BLB,UBLB,TEGN,STØR) 0500 EXEC CALC(5,BLB$,TAH$,UBLB$) 0510 IF TEGN=B THEN 0520 UBLB$=UBLB$(E:13) 0530 ELSE 0540 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN 0550 UBLB$(LEN(UBLB$))=" " 0560 ENDIF 0570 ENDIF 0580 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V) 0590 ENDPROC 0600 PROC HOVED 0610 IF (LINIE=E OR LINIE=41) THEN 0620 SIDENR=SIDENR+E 0630 IF SIDENR>E THEN PRINT " " 0640 IF TYPE<>V THEN 0650 IF LINIE=41 THEN 0660 PRINT " " 0670 PRINT " " 0680 ENDIF 0690 PRINT TAB(67);DV$;" " 0700 PRINT CHR(14);" Kreditor"+KS$+"liste";CHR(15);TAB(25); 0710 ELSE 0711 IF SIDENR>E THEN 0720 PRINT " " 0730 PRINT " " 0735 ENDIF 0740 PRINT TAB(67);DV$;" " 0750 PRINT CHR(14);" Forfaldsliste";CHR(15);TAB(25); 0760 ENDIF 0770 PRINT TAB(37);"Dato: ";DAT$; 0780 PRINT USING " Side:###":SIDENR 0790 PRINT " " 0800 ENDIF 0810 IF (TYPE=E OR TYPE=V) AND (LINIE=E OR LINIE=41) THEN 0820 PRINT " KONTO NAVN";TAB(38);"SALDO IALT";TAB(56);"0-30 DAGE"; 0830 PRINT TAB(73);"ÆLDRE" 0840 PRINT STREG$ 0850 IF TYPE=E THEN LINIE=E 0860 IF TYPE=V THEN LINIE=G 0870 ENDIF 0880 ENDIF 0890 IF (LINIE=E OR LINIE=41) AND TYPE=G THEN 0900 PRINT " KONTO NAVN";TAB(34);"ADRESSE";TAB(57);"POSTNR BY" 0910 PRINT STREG$ 0920 LINIE=E 0930 ENDIF 0940 ENDPROC 0950 PROC BUND 0960 IF TYPE=V THEN PRINT " " 0970 EXEC TUD(TSALDO1$,TAL1$,E,B) 0980 EXEC TUD(TSALDO2$,TAL2$,E,B) 0990 EXEC TUD(TSALDI$,TAL3$,E,B) 1000 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(29);TAL3$;TAB(46);TAL1$; 1010 PRINT TAB(62);TAL2$ 1020 PRINT " " 1030 ENDPROC 1040 PROC UDSKRIV 1050 CASE TYPE OF 1060 WHEN E,V 1070 LINIE=LINIE+E 1080 IF TYPE=V THEN LINIE=LINIE+E 1090 EXEC CALC(B,KSALDO1$,TSALDO1$,TSALDO1$) 1100 EXEC CALC(B,KSALDO2$,TSALDO2$,TSALDO2$) 1110 EXEC CALC(B,KSALDO1$,KSALDO2$,KSALDI$) 1120 EXEC CALC(B,TSALDO1$,TSALDO2$,TSALDI$) 1130 EXEC TUD(KSALDO1$,TAL1$,E,E) 1140 EXEC TUD(KSALDO2$,TAL2$,E,E) 1150 EXEC TUD(KSALDI$,TAL3$,E,E) 1170 PRINT USING "###### ":KRENR; 1180 PRINT TAB(11);KRENAVN$;TAB(38);TAL3$;TAB(55);TAL1$;TAB(68);TAL2$ 1190 IF TYPE=V THEN PRINT " " 1200 IF LINIE=42 THEN LINIE=41 1210 WHEN G 1220 LINIE=LINIE+E 1230 PRINT USING "###### ":KRENR; 1240 PRINT KRENAVN$;TAB(34); 1250 PRINT KREGADE$; 1260 PRINT TAB(56);KREPOSTNR; 1270 PRINT TAB(63);KREBY$(E:16) 1280 ENDCASE 1290 ENDPROC 1300 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 1310 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 1320 REPEAT 1330 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT 1340 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E))) 1350 IF PIL3<E THEN PIL3=E 1360 IF PIL3>MANT1 THEN PIL3=MANT1 1370 UNTIL PIL1=B 1380 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B 1390 ENDPROC 1400 PROC NRTEST(NUM) 1410 P=B;TEST2=B;KTAL=B;L=LEN(NUM$) 1420 CASE L OF 1430 FOR J=E TO L 1440 P1=INT(ORD(NUM$(J))-48) 1450 IF P1=>B AND P1<=W THEN 1460 P=P*10+P1 1470 ELSE 1480 TEST2=E 1490 ENDIF 1500 NEXT J 1510 KTAL=P DIV 10000;KTAL9=P DIV 1000 1520 IF KRTAL=KTAL9 THEN KTAL=KTAL9 1530 WHEN B 1540 P=-E 1550 WHEN E 1560 CASE NUM$ OF 1570 P=INT(ORD(NUM$)-48) 1580 WHEN "j","J" 1590 P=-7 1600 WHEN "n","N" 1610 P=-8 1620 ENDCASE 1630 ENDCASE 1640 ENDPROC 1650 K1$="P641220:SYSTEM1" 1660 OPEN K1$,R 1670 EXEC FEJL(W,E,K1$) 1680 GET K1$,E:MFANTAL,MDANTAL,MKANTAL 1690 EXEC FEJL(W,G,K1$) 1700 GET K1$,5:MKRGR 1710 EXEC FEJL(W,V,K1$) 1720 GET K1$,W:KRTAL 1730 EXEC FEJL(W,4,K1$) 1740 GET K1$,10:N$ 1750 EXEC FEJL(W,5,K1$) 1760 GET K1$,13:K2$ 1770 EXEC FEJL(W,6,K1$) 1780 GET K1$,17:K3$ 1790 EXEC FEJL(W,7,K1$) 1800 GET K1$,36:K5$ 1810 EXEC FEJL(W,8,K1$) 1820 GET K1$,36:K5$ 1830 EXEC FEJL(W,W,K1$) 1840 CLOSE K1$ 1850 EXEC FEJL(W,10,K1$) 1860 K2$=N$+K2$;K3$=N$+K3$;K5$=N$+K5$ 1870 OPEN K5$,R 1880 EXEC FEJL(W,11,K5$) 1890 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 1900 EXEC FEJL(W,12,K5$) 1910 FOR I=E TO V 1920 H=(I-E)*V+E 1930 GET K5$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G) 1940 EXEC FEJL(W,13,K5$) 1950 NEXT I 1960 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 1970 EXEC FEJL(W,14,K5$) 1980 GET K5$,20:DV$ 1990 EXEC FEJL(W,25,K5$) 2000 DIM KTAB(MKANTAL,G) 2010 OPEN K2$,R 2020 EXEC FEJL(W,18,K2$) 2030 OPEN K3$,R 2040 EXEC FEJL(W,19,K3$) 2050 EXEC INDTAB(KTAB,MKANTAL,K2$) 2060 DA=T1(7) 2070 DAT$=" " 2080 FOR J=8 TO E STEP -E 2090 IF J MOD V=B THEN 2100 DAT$(J)="." 2110 ELSE 2120 DAT$(J)=CHR(DA MOD 10+48) 2130 DA=DA DIV 10 2140 ENDIF 2150 NEXT J 2160 STREG$="---------------------------------------";STREG$=STREG$+STREG$ 2170 REPEAT 2180 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+" 2190 SUM6$="0+";SIDENR=B;TAH$="0+";SI=E 2200 OUTPUT T 2210 CLEAR 2220 CURSOR 20,E 2230 PRINT "Kreditorudskrifter" 2240 CURSOR 11,6 2250 PRINT "0: Færdig" 2260 CURSOR 11,8 2270 PRINT "1: Saldoliste" 2280 CURSOR 11,10 2290 PRINT "2: Kontoliste" 2300 CURSOR 11,12 2310 PRINT "3: Forfaldsliste" 2320 REPEAT 2330 CURSOR 13,14 2340 INPUT "Vælg type :",A$ 2350 EXEC NRTEST(A$) 2360 UNTIL P>-E AND P<4 2370 TYPE=P 2380 IF TYPE=B THEN EXIT 2390 REPEAT 2400 REPEAT 2410 CURSOR 13,19 2420 PRINT "Fra kontonr : (0: Alle)" 2430 CURSOR 26,19 2440 INPUT KTN$ 2450 EXEC NRTEST(KTN$) 2460 UNTIL P=B OR (P>B AND P<=MKRGR) OR KTAL=KRTAL 2470 IF P=B THEN 2480 FRA=E;TIL=AKRE 2490 ELSE 2500 IF KTAB(AKRE,E)<P THEN 2510 FRA=B 2520 ELSE 2530 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 2540 IF CEKS=B OR KTAB(KPIL3,E)>P THEN 2550 FRA=KPIL3 2560 ELSE 2570 FRA=KPIL3+E 2580 ENDIF 2590 ENDIF 2600 ENDIF 2610 UNTIL FRA<>B 2620 IF P>B THEN 2630 REPEAT 2640 REPEAT 2650 CURSOR 13,21 2660 INPUT "Til kontonr :",KTN$ 2670 EXEC NRTEST(KTN$) 2680 UNTIL (P>B AND P<=MKRGR) OR KTAL=KRTAL 2690 IF KTAB(AKRE,E)<P THEN 2700 TIL=AKRE 2710 ELSE 2720 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 2730 TIL=KPIL3 2740 ENDIF 2750 UNTIL FRA<=TIL 2760 ENDIF 2770 CLEAR 2780 REPEAT 2790 CURSOR 18,13 2800 INPUT "Monter lister til udskrift og tast RETURN",A$ 2810 UNTIL ORD(A$)=255 2820 IF TYPE=E THEN KS$="saldo" 2830 IF TYPE=G THEN KS$="konto" 2840 OUTPUT P 2850 TSALDO1$="0+";TSALDO2$="0+";TSALDI$="0+";KSALDI$="0+";LINIE=E 2860 IF TYPE<>V THEN 2870 FOR KPIL3=FRA TO TIL 2880 EXEC HOVED 2890 EXEC HENTKPOST 2900 EXEC UDSKRIV 2910 NEXT KPIL3 2920 IF TYPE=E THEN LINIE=LINIE+E 2930 ENDIF 2940 IF TYPE=V THEN 2950 FOR KPIL3=FRA TO TIL 2960 EXEC HOVED 2970 EXEC HENTKPOST 2980 EXEC CALC(4,KSALDO2$,TAH$,TAH$) 2990 IF SI<>B THEN EXEC UDSKRIV 3000 NEXT KPIL3 3010 LINIE=LINIE+E 3020 ENDIF 3030 IF LINIE<41 THEN 3040 REPEAT 3050 PRINT " " 3060 LINIE=LINIE+E 3070 UNTIL LINIE=43 3080 ENDIF 3090 IF TYPE<>G THEN EXEC BUND 3100 IF TYPE=G THEN 3110 PRINT " " 3120 ENDIF 3130 UNTIL TYPE=B 3140 CLEAR 3190 CHAIN "P641210:OPSTART"
0x0000…002f (0,) 8d86 0100 DIM OP1$(12),OP2$(12),RES$(15)
0x0000…002f LineComalBin {
0x0000…002f ptr = 0x8d86 // 0x0 @0x0
0x0000…002f lno = 0x0064 // 0x2 @0x2
0x0000…002f at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…002f at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…002f at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…002f at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…002f at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…002f at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…002f at000a = ╱31╱1╱ // 0xa @0xa
0x0000…002f at000b = ╱32╱2╱ // 0xb @0xb
0x0000…002f at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…002f at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…002f at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…002f at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…002f at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…002f at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…002f at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…002f at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…002f at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…002f at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…002f at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…002f at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…002f at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…002f at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…002f at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…002f at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…002f at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…002f at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…002f at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…002f at0027 = ╱35╱5╱ // 0x27 @0x27
0x0000…002f at0028 = ╱fe0000f004╱ // 0x28 @0x28
0x0000…002f at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…002f at002e = EOL // 0x2e @0x2e
0x0000…002f }
0x002f…0058 8daf 0110 DIM KSALDO1$(12),KSALDO2$(12)
0x002f…0058 LineComalBin {
0x002f…0058 ptr = 0x8daf // 0x2f @0x0
0x002f…0058 lno = 0x006e // 0x31 @0x2
0x002f…0058 at0004 = ╱87╱ DIM ╱ // 0x33 @0x4
0x002f…0058 at0005 = ╱4b╱K╱ // 0x34 @0x5
0x002f…0058 at0006 = ╱53╱S╱ // 0x35 @0x6
0x002f…0058 at0007 = ╱41╱A╱ // 0x36 @0x7
0x002f…0058 at0008 = ╱4c╱L╱ // 0x37 @0x8
0x002f…0058 at0009 = ╱44╱D╱ // 0x38 @0x9
0x002f…0058 at000a = ╱4f╱O╱ // 0x39 @0xa
0x002f…0058 at000b = ╱31╱1╱ // 0x3a @0xb
0x002f…0058 at000c = ╱ef╱$╱ // 0x3b @0xc
0x002f…0058 at000d = ╱ed╱(╱ // 0x3c @0xd
0x002f…0058 at000e = ╱31╱1╱ // 0x3d @0xe
0x002f…0058 at000f = ╱32╱2╱ // 0x3e @0xf
0x002f…0058 at0010 = ╱fe0000c004╱ // 0x3f @0x10
0x002f…0058 at0015 = ╱ee╱)╱ // 0x44 @0x15
0x002f…0058 at0016 = ╱ec╱,╱ // 0x45 @0x16
0x002f…0058 at0017 = ╱4b╱K╱ // 0x46 @0x17
0x002f…0058 at0018 = ╱53╱S╱ // 0x47 @0x18
0x002f…0058 at0019 = ╱41╱A╱ // 0x48 @0x19
0x002f…0058 at001a = ╱4c╱L╱ // 0x49 @0x1a
0x002f…0058 at001b = ╱44╱D╱ // 0x4a @0x1b
0x002f…0058 at001c = ╱4f╱O╱ // 0x4b @0x1c
0x002f…0058 at001d = ╱32╱2╱ // 0x4c @0x1d
0x002f…0058 at001e = ╱ef╱$╱ // 0x4d @0x1e
0x002f…0058 at001f = ╱ed╱(╱ // 0x4e @0x1f
0x002f…0058 at0020 = ╱31╱1╱ // 0x4f @0x20
0x002f…0058 at0021 = ╱32╱2╱ // 0x50 @0x21
0x002f…0058 at0022 = ╱fe0000c004╱ // 0x51 @0x22
0x002f…0058 at0027 = ╱ee╱)╱ // 0x56 @0x27
0x002f…0058 at0028 = EOL // 0x57 @0x28
0x002f…0058 }
0x0058…00a1 8df8 0120 DIM K1$(17),N$(6),K2$(17),K3$(17),KRENAVN$(25)
0x0058…00a1 LineComalBin {
0x0058…00a1 ptr = 0x8df8 // 0x58 @0x0
0x0058…00a1 lno = 0x0078 // 0x5a @0x2
0x0058…00a1 at0004 = ╱87╱ DIM ╱ // 0x5c @0x4
0x0058…00a1 at0005 = ╱4b╱K╱ // 0x5d @0x5
0x0058…00a1 at0006 = ╱31╱1╱ // 0x5e @0x6
0x0058…00a1 at0007 = ╱ef╱$╱ // 0x5f @0x7
0x0058…00a1 at0008 = ╱ed╱(╱ // 0x60 @0x8
0x0058…00a1 at0009 = ╱31╱1╱ // 0x61 @0x9
0x0058…00a1 at000a = ╱37╱7╱ // 0x62 @0xa
0x0058…00a1 at000b = ╱fe00008805╱ // 0x63 @0xb
0x0058…00a1 at0010 = ╱ee╱)╱ // 0x68 @0x10
0x0058…00a1 at0011 = ╱ec╱,╱ // 0x69 @0x11
0x0058…00a1 at0012 = ╱4e╱N╱ // 0x6a @0x12
0x0058…00a1 at0013 = ╱ef╱$╱ // 0x6b @0x13
0x0058…00a1 at0014 = ╱ed╱(╱ // 0x6c @0x14
0x0058…00a1 at0015 = ╱36╱6╱ // 0x6d @0x15
0x0058…00a1 at0016 = ╱fe0000c003╱ // 0x6e @0x16
0x0058…00a1 at001b = ╱ee╱)╱ // 0x73 @0x1b
0x0058…00a1 at001c = ╱ec╱,╱ // 0x74 @0x1c
0x0058…00a1 at001d = ╱4b╱K╱ // 0x75 @0x1d
0x0058…00a1 at001e = ╱32╱2╱ // 0x76 @0x1e
0x0058…00a1 at001f = ╱ef╱$╱ // 0x77 @0x1f
0x0058…00a1 at0020 = ╱ed╱(╱ // 0x78 @0x20
0x0058…00a1 at0021 = ╱31╱1╱ // 0x79 @0x21
0x0058…00a1 at0022 = ╱37╱7╱ // 0x7a @0x22
0x0058…00a1 at0023 = ╱fe00008805╱ // 0x7b @0x23
0x0058…00a1 at0028 = ╱ee╱)╱ // 0x80 @0x28
0x0058…00a1 at0029 = ╱ec╱,╱ // 0x81 @0x29
0x0058…00a1 at002a = ╱4b╱K╱ // 0x82 @0x2a
0x0058…00a1 at002b = ╱33╱3╱ // 0x83 @0x2b
0x0058…00a1 at002c = ╱ef╱$╱ // 0x84 @0x2c
0x0058…00a1 at002d = ╱ed╱(╱ // 0x85 @0x2d
0x0058…00a1 at002e = ╱31╱1╱ // 0x86 @0x2e
0x0058…00a1 at002f = ╱37╱7╱ // 0x87 @0x2f
0x0058…00a1 at0030 = ╱fe00008805╱ // 0x88 @0x30
0x0058…00a1 at0035 = ╱ee╱)╱ // 0x8d @0x35
0x0058…00a1 at0036 = ╱ec╱,╱ // 0x8e @0x36
0x0058…00a1 at0037 = ╱4b╱K╱ // 0x8f @0x37
0x0058…00a1 at0038 = ╱52╱R╱ // 0x90 @0x38
0x0058…00a1 at0039 = ╱45╱E╱ // 0x91 @0x39
0x0058…00a1 at003a = ╱4e╱N╱ // 0x92 @0x3a
0x0058…00a1 at003b = ╱41╱A╱ // 0x93 @0x3b
0x0058…00a1 at003c = ╱56╱V╱ // 0x94 @0x3c
0x0058…00a1 at003d = ╱4e╱N╱ // 0x95 @0x3d
0x0058…00a1 at003e = ╱ef╱$╱ // 0x96 @0x3e
0x0058…00a1 at003f = ╱ed╱(╱ // 0x97 @0x3f
0x0058…00a1 at0040 = ╱32╱2╱ // 0x98 @0x40
0x0058…00a1 at0041 = ╱35╱5╱ // 0x99 @0x41
0x0058…00a1 at0042 = ╱fe0000c805╱ // 0x9a @0x42
0x0058…00a1 at0047 = ╱ee╱)╱ // 0x9f @0x47
0x0058…00a1 at0048 = EOL // 0xa0 @0x48
0x0058…00a1 }
0x00a1…00f8 8e4f 0130 DIM KRELK$(G),KREGADE$(25),KREGR$(G),GEM$(G),TSALDO1$(12),TSALDO2$(12)
0x00a1…00f8 LineComalBin {
0x00a1…00f8 ptr = 0x8e4f // 0xa1 @0x0
0x00a1…00f8 lno = 0x0082 // 0xa3 @0x2
0x00a1…00f8 at0004 = ╱87╱ DIM ╱ // 0xa5 @0x4
0x00a1…00f8 at0005 = ╱4b╱K╱ // 0xa6 @0x5
0x00a1…00f8 at0006 = ╱52╱R╱ // 0xa7 @0x6
0x00a1…00f8 at0007 = ╱45╱E╱ // 0xa8 @0x7
0x00a1…00f8 at0008 = ╱4c╱L╱ // 0xa9 @0x8
0x00a1…00f8 at0009 = ╱4b╱K╱ // 0xaa @0x9
0x00a1…00f8 at000a = ╱ef╱$╱ // 0xab @0xa
0x00a1…00f8 at000b = ╱ed╱(╱ // 0xac @0xb
0x00a1…00f8 at000c = ╱47╱G╱ // 0xad @0xc
0x00a1…00f8 at000d = ╱ee╱)╱ // 0xae @0xd
0x00a1…00f8 at000e = ╱ec╱,╱ // 0xaf @0xe
0x00a1…00f8 at000f = ╱4b╱K╱ // 0xb0 @0xf
0x00a1…00f8 at0010 = ╱52╱R╱ // 0xb1 @0x10
0x00a1…00f8 at0011 = ╱45╱E╱ // 0xb2 @0x11
0x00a1…00f8 at0012 = ╱47╱G╱ // 0xb3 @0x12
0x00a1…00f8 at0013 = ╱41╱A╱ // 0xb4 @0x13
0x00a1…00f8 at0014 = ╱44╱D╱ // 0xb5 @0x14
0x00a1…00f8 at0015 = ╱45╱E╱ // 0xb6 @0x15
0x00a1…00f8 at0016 = ╱ef╱$╱ // 0xb7 @0x16
0x00a1…00f8 at0017 = ╱ed╱(╱ // 0xb8 @0x17
0x00a1…00f8 at0018 = ╱32╱2╱ // 0xb9 @0x18
0x00a1…00f8 at0019 = ╱35╱5╱ // 0xba @0x19
0x00a1…00f8 at001a = ╱fe0000c805╱ // 0xbb @0x1a
0x00a1…00f8 at001f = ╱ee╱)╱ // 0xc0 @0x1f
0x00a1…00f8 at0020 = ╱ec╱,╱ // 0xc1 @0x20
0x00a1…00f8 at0021 = ╱4b╱K╱ // 0xc2 @0x21
0x00a1…00f8 at0022 = ╱52╱R╱ // 0xc3 @0x22
0x00a1…00f8 at0023 = ╱45╱E╱ // 0xc4 @0x23
0x00a1…00f8 at0024 = ╱47╱G╱ // 0xc5 @0x24
0x00a1…00f8 at0025 = ╱52╱R╱ // 0xc6 @0x25
0x00a1…00f8 at0026 = ╱ef╱$╱ // 0xc7 @0x26
0x00a1…00f8 at0027 = ╱ed╱(╱ // 0xc8 @0x27
0x00a1…00f8 at0028 = ╱47╱G╱ // 0xc9 @0x28
0x00a1…00f8 at0029 = ╱ee╱)╱ // 0xca @0x29
0x00a1…00f8 at002a = ╱ec╱,╱ // 0xcb @0x2a
0x00a1…00f8 at002b = ╱47╱G╱ // 0xcc @0x2b
0x00a1…00f8 at002c = ╱45╱E╱ // 0xcd @0x2c
0x00a1…00f8 at002d = ╱4d╱M╱ // 0xce @0x2d
0x00a1…00f8 at002e = ╱ef╱$╱ // 0xcf @0x2e
0x00a1…00f8 at002f = ╱ed╱(╱ // 0xd0 @0x2f
0x00a1…00f8 at0030 = ╱47╱G╱ // 0xd1 @0x30
0x00a1…00f8 at0031 = ╱ee╱)╱ // 0xd2 @0x31
0x00a1…00f8 at0032 = ╱ec╱,╱ // 0xd3 @0x32
0x00a1…00f8 at0033 = ╱54╱T╱ // 0xd4 @0x33
0x00a1…00f8 at0034 = ╱53╱S╱ // 0xd5 @0x34
0x00a1…00f8 at0035 = ╱41╱A╱ // 0xd6 @0x35
0x00a1…00f8 at0036 = ╱4c╱L╱ // 0xd7 @0x36
0x00a1…00f8 at0037 = ╱44╱D╱ // 0xd8 @0x37
0x00a1…00f8 at0038 = ╱4f╱O╱ // 0xd9 @0x38
0x00a1…00f8 at0039 = ╱31╱1╱ // 0xda @0x39
0x00a1…00f8 at003a = ╱ef╱$╱ // 0xdb @0x3a
0x00a1…00f8 at003b = ╱ed╱(╱ // 0xdc @0x3b
0x00a1…00f8 at003c = ╱31╱1╱ // 0xdd @0x3c
0x00a1…00f8 at003d = ╱32╱2╱ // 0xde @0x3d
0x00a1…00f8 at003e = ╱fe0000c004╱ // 0xdf @0x3e
0x00a1…00f8 at0043 = ╱ee╱)╱ // 0xe4 @0x43
0x00a1…00f8 at0044 = ╱ec╱,╱ // 0xe5 @0x44
0x00a1…00f8 at0045 = ╱54╱T╱ // 0xe6 @0x45
0x00a1…00f8 at0046 = ╱53╱S╱ // 0xe7 @0x46
0x00a1…00f8 at0047 = ╱41╱A╱ // 0xe8 @0x47
0x00a1…00f8 at0048 = ╱4c╱L╱ // 0xe9 @0x48
0x00a1…00f8 at0049 = ╱44╱D╱ // 0xea @0x49
0x00a1…00f8 at004a = ╱4f╱O╱ // 0xeb @0x4a
0x00a1…00f8 at004b = ╱32╱2╱ // 0xec @0x4b
0x00a1…00f8 at004c = ╱ef╱$╱ // 0xed @0x4c
0x00a1…00f8 at004d = ╱ed╱(╱ // 0xee @0x4d
0x00a1…00f8 at004e = ╱31╱1╱ // 0xef @0x4e
0x00a1…00f8 at004f = ╱32╱2╱ // 0xf0 @0x4f
0x00a1…00f8 at0050 = ╱fe0000c004╱ // 0xf1 @0x50
0x00a1…00f8 at0055 = ╱ee╱)╱ // 0xf6 @0x55
0x00a1…00f8 at0056 = EOL // 0xf7 @0x56
0x00a1…00f8 }
0x00f8…0146 8e9d 0140 DIM BLANK$(77),A$(E),TAL3$(14),TAH$(12),T1(W),KREBY$(20)
0x00f8…0146 LineComalBin {
0x00f8…0146 ptr = 0x8e9d // 0xf8 @0x0
0x00f8…0146 lno = 0x008c // 0xfa @0x2
0x00f8…0146 at0004 = ╱87╱ DIM ╱ // 0xfc @0x4
0x00f8…0146 at0005 = ╱42╱B╱ // 0xfd @0x5
0x00f8…0146 at0006 = ╱4c╱L╱ // 0xfe @0x6
0x00f8…0146 at0007 = ╱41╱A╱ // 0xff @0x7
0x00f8…0146 at0008 = ╱4e╱N╱ // 0x100 @0x8
0x00f8…0146 at0009 = ╱4b╱K╱ // 0x101 @0x9
0x00f8…0146 at000a = ╱ef╱$╱ // 0x102 @0xa
0x00f8…0146 at000b = ╱ed╱(╱ // 0x103 @0xb
0x00f8…0146 at000c = ╱37╱7╱ // 0x104 @0xc
0x00f8…0146 at000d = ╱37╱7╱ // 0x105 @0xd
0x00f8…0146 at000e = ╱fe00009a07╱ // 0x106 @0xe
0x00f8…0146 at0013 = ╱ee╱)╱ // 0x10b @0x13
0x00f8…0146 at0014 = ╱ec╱,╱ // 0x10c @0x14
0x00f8…0146 at0015 = ╱41╱A╱ // 0x10d @0x15
0x00f8…0146 at0016 = ╱ef╱$╱ // 0x10e @0x16
0x00f8…0146 at0017 = ╱ed╱(╱ // 0x10f @0x17
0x00f8…0146 at0018 = ╱45╱E╱ // 0x110 @0x18
0x00f8…0146 at0019 = ╱ee╱)╱ // 0x111 @0x19
0x00f8…0146 at001a = ╱ec╱,╱ // 0x112 @0x1a
0x00f8…0146 at001b = ╱54╱T╱ // 0x113 @0x1b
0x00f8…0146 at001c = ╱41╱A╱ // 0x114 @0x1c
0x00f8…0146 at001d = ╱4c╱L╱ // 0x115 @0x1d
0x00f8…0146 at001e = ╱33╱3╱ // 0x116 @0x1e
0x00f8…0146 at001f = ╱ef╱$╱ // 0x117 @0x1f
0x00f8…0146 at0020 = ╱ed╱(╱ // 0x118 @0x20
0x00f8…0146 at0021 = ╱31╱1╱ // 0x119 @0x21
0x00f8…0146 at0022 = ╱34╱4╱ // 0x11a @0x22
0x00f8…0146 at0023 = ╱fe0000e004╱ // 0x11b @0x23
0x00f8…0146 at0028 = ╱ee╱)╱ // 0x120 @0x28
0x00f8…0146 at0029 = ╱ec╱,╱ // 0x121 @0x29
0x00f8…0146 at002a = ╱54╱T╱ // 0x122 @0x2a
0x00f8…0146 at002b = ╱41╱A╱ // 0x123 @0x2b
0x00f8…0146 at002c = ╱48╱H╱ // 0x124 @0x2c
0x00f8…0146 at002d = ╱ef╱$╱ // 0x125 @0x2d
0x00f8…0146 at002e = ╱ed╱(╱ // 0x126 @0x2e
0x00f8…0146 at002f = ╱31╱1╱ // 0x127 @0x2f
0x00f8…0146 at0030 = ╱32╱2╱ // 0x128 @0x30
0x00f8…0146 at0031 = ╱fe0000c004╱ // 0x129 @0x31
0x00f8…0146 at0036 = ╱ee╱)╱ // 0x12e @0x36
0x00f8…0146 at0037 = ╱ec╱,╱ // 0x12f @0x37
0x00f8…0146 at0038 = ╱54╱T╱ // 0x130 @0x38
0x00f8…0146 at0039 = ╱31╱1╱ // 0x131 @0x39
0x00f8…0146 at003a = ╱ed╱(╱ // 0x132 @0x3a
0x00f8…0146 at003b = ╱57╱W╱ // 0x133 @0x3b
0x00f8…0146 at003c = ╱ee╱)╱ // 0x134 @0x3c
0x00f8…0146 at003d = ╱ec╱,╱ // 0x135 @0x3d
0x00f8…0146 at003e = ╱4b╱K╱ // 0x136 @0x3e
0x00f8…0146 at003f = ╱52╱R╱ // 0x137 @0x3f
0x00f8…0146 at0040 = ╱45╱E╱ // 0x138 @0x40
0x00f8…0146 at0041 = ╱42╱B╱ // 0x139 @0x41
0x00f8…0146 at0042 = ╱59╱Y╱ // 0x13a @0x42
0x00f8…0146 at0043 = ╱ef╱$╱ // 0x13b @0x43
0x00f8…0146 at0044 = ╱ed╱(╱ // 0x13c @0x44
0x00f8…0146 at0045 = ╱32╱2╱ // 0x13d @0x45
0x00f8…0146 at0046 = ╱30╱0╱ // 0x13e @0x46
0x00f8…0146 at0047 = ╱fe0000a005╱ // 0x13f @0x47
0x00f8…0146 at004c = ╱ee╱)╱ // 0x144 @0x4c
0x00f8…0146 at004d = EOL // 0x145 @0x4d
0x00f8…0146 }
0x0146…0188 8edf 0150 DIM KSALDI$(14),LK$(V),KG$(V),KTN$(6),TSALDI$(14)
0x0146…0188 LineComalBin {
0x0146…0188 ptr = 0x8edf // 0x146 @0x0
0x0146…0188 lno = 0x0096 // 0x148 @0x2
0x0146…0188 at0004 = ╱87╱ DIM ╱ // 0x14a @0x4
0x0146…0188 at0005 = ╱4b╱K╱ // 0x14b @0x5
0x0146…0188 at0006 = ╱53╱S╱ // 0x14c @0x6
0x0146…0188 at0007 = ╱41╱A╱ // 0x14d @0x7
0x0146…0188 at0008 = ╱4c╱L╱ // 0x14e @0x8
0x0146…0188 at0009 = ╱44╱D╱ // 0x14f @0x9
0x0146…0188 at000a = ╱49╱I╱ // 0x150 @0xa
0x0146…0188 at000b = ╱ef╱$╱ // 0x151 @0xb
0x0146…0188 at000c = ╱ed╱(╱ // 0x152 @0xc
0x0146…0188 at000d = ╱31╱1╱ // 0x153 @0xd
0x0146…0188 at000e = ╱34╱4╱ // 0x154 @0xe
0x0146…0188 at000f = ╱fe0000e004╱ // 0x155 @0xf
0x0146…0188 at0014 = ╱ee╱)╱ // 0x15a @0x14
0x0146…0188 at0015 = ╱ec╱,╱ // 0x15b @0x15
0x0146…0188 at0016 = ╱4c╱L╱ // 0x15c @0x16
0x0146…0188 at0017 = ╱4b╱K╱ // 0x15d @0x17
0x0146…0188 at0018 = ╱ef╱$╱ // 0x15e @0x18
0x0146…0188 at0019 = ╱ed╱(╱ // 0x15f @0x19
0x0146…0188 at001a = ╱56╱V╱ // 0x160 @0x1a
0x0146…0188 at001b = ╱ee╱)╱ // 0x161 @0x1b
0x0146…0188 at001c = ╱ec╱,╱ // 0x162 @0x1c
0x0146…0188 at001d = ╱4b╱K╱ // 0x163 @0x1d
0x0146…0188 at001e = ╱47╱G╱ // 0x164 @0x1e
0x0146…0188 at001f = ╱ef╱$╱ // 0x165 @0x1f
0x0146…0188 at0020 = ╱ed╱(╱ // 0x166 @0x20
0x0146…0188 at0021 = ╱56╱V╱ // 0x167 @0x21
0x0146…0188 at0022 = ╱ee╱)╱ // 0x168 @0x22
0x0146…0188 at0023 = ╱ec╱,╱ // 0x169 @0x23
0x0146…0188 at0024 = ╱4b╱K╱ // 0x16a @0x24
0x0146…0188 at0025 = ╱54╱T╱ // 0x16b @0x25
0x0146…0188 at0026 = ╱4e╱N╱ // 0x16c @0x26
0x0146…0188 at0027 = ╱ef╱$╱ // 0x16d @0x27
0x0146…0188 at0028 = ╱ed╱(╱ // 0x16e @0x28
0x0146…0188 at0029 = ╱36╱6╱ // 0x16f @0x29
0x0146…0188 at002a = ╱fe0000c003╱ // 0x170 @0x2a
0x0146…0188 at002f = ╱ee╱)╱ // 0x175 @0x2f
0x0146…0188 at0030 = ╱ec╱,╱ // 0x176 @0x30
0x0146…0188 at0031 = ╱54╱T╱ // 0x177 @0x31
0x0146…0188 at0032 = ╱53╱S╱ // 0x178 @0x32
0x0146…0188 at0033 = ╱41╱A╱ // 0x179 @0x33
0x0146…0188 at0034 = ╱4c╱L╱ // 0x17a @0x34
0x0146…0188 at0035 = ╱44╱D╱ // 0x17b @0x35
0x0146…0188 at0036 = ╱49╱I╱ // 0x17c @0x36
0x0146…0188 at0037 = ╱ef╱$╱ // 0x17d @0x37
0x0146…0188 at0038 = ╱ed╱(╱ // 0x17e @0x38
0x0146…0188 at0039 = ╱31╱1╱ // 0x17f @0x39
0x0146…0188 at003a = ╱34╱4╱ // 0x180 @0x3a
0x0146…0188 at003b = ╱fe0000e004╱ // 0x181 @0x3b
0x0146…0188 at0040 = ╱ee╱)╱ // 0x186 @0x40
0x0146…0188 at0041 = EOL // 0x187 @0x41
0x0146…0188 }
0x0188…01c8 8f1f 0160 DIM PNR$(6),TY$(E),TA$(12),TB$(14),DV$(10)
0x0188…01c8 LineComalBin {
0x0188…01c8 ptr = 0x8f1f // 0x188 @0x0
0x0188…01c8 lno = 0x00a0 // 0x18a @0x2
0x0188…01c8 at0004 = ╱87╱ DIM ╱ // 0x18c @0x4
0x0188…01c8 at0005 = ╱50╱P╱ // 0x18d @0x5
0x0188…01c8 at0006 = ╱4e╱N╱ // 0x18e @0x6
0x0188…01c8 at0007 = ╱52╱R╱ // 0x18f @0x7
0x0188…01c8 at0008 = ╱ef╱$╱ // 0x190 @0x8
0x0188…01c8 at0009 = ╱ed╱(╱ // 0x191 @0x9
0x0188…01c8 at000a = ╱36╱6╱ // 0x192 @0xa
0x0188…01c8 at000b = ╱fe0000c003╱ // 0x193 @0xb
0x0188…01c8 at0010 = ╱ee╱)╱ // 0x198 @0x10
0x0188…01c8 at0011 = ╱ec╱,╱ // 0x199 @0x11
0x0188…01c8 at0012 = ╱54╱T╱ // 0x19a @0x12
0x0188…01c8 at0013 = ╱59╱Y╱ // 0x19b @0x13
0x0188…01c8 at0014 = ╱ef╱$╱ // 0x19c @0x14
0x0188…01c8 at0015 = ╱ed╱(╱ // 0x19d @0x15
0x0188…01c8 at0016 = ╱45╱E╱ // 0x19e @0x16
0x0188…01c8 at0017 = ╱ee╱)╱ // 0x19f @0x17
0x0188…01c8 at0018 = ╱ec╱,╱ // 0x1a0 @0x18
0x0188…01c8 at0019 = ╱54╱T╱ // 0x1a1 @0x19
0x0188…01c8 at001a = ╱41╱A╱ // 0x1a2 @0x1a
0x0188…01c8 at001b = ╱ef╱$╱ // 0x1a3 @0x1b
0x0188…01c8 at001c = ╱ed╱(╱ // 0x1a4 @0x1c
0x0188…01c8 at001d = ╱31╱1╱ // 0x1a5 @0x1d
0x0188…01c8 at001e = ╱32╱2╱ // 0x1a6 @0x1e
0x0188…01c8 at001f = ╱fe0000c004╱ // 0x1a7 @0x1f
0x0188…01c8 at0024 = ╱ee╱)╱ // 0x1ac @0x24
0x0188…01c8 at0025 = ╱ec╱,╱ // 0x1ad @0x25
0x0188…01c8 at0026 = ╱54╱T╱ // 0x1ae @0x26
0x0188…01c8 at0027 = ╱42╱B╱ // 0x1af @0x27
0x0188…01c8 at0028 = ╱ef╱$╱ // 0x1b0 @0x28
0x0188…01c8 at0029 = ╱ed╱(╱ // 0x1b1 @0x29
0x0188…01c8 at002a = ╱31╱1╱ // 0x1b2 @0x2a
0x0188…01c8 at002b = ╱34╱4╱ // 0x1b3 @0x2b
0x0188…01c8 at002c = ╱fe0000e004╱ // 0x1b4 @0x2c
0x0188…01c8 at0031 = ╱ee╱)╱ // 0x1b9 @0x31
0x0188…01c8 at0032 = ╱ec╱,╱ // 0x1ba @0x32
0x0188…01c8 at0033 = ╱44╱D╱ // 0x1bb @0x33
0x0188…01c8 at0034 = ╱56╱V╱ // 0x1bc @0x34
0x0188…01c8 at0035 = ╱ef╱$╱ // 0x1bd @0x35
0x0188…01c8 at0036 = ╱ed╱(╱ // 0x1be @0x36
0x0188…01c8 at0037 = ╱31╱1╱ // 0x1bf @0x37
0x0188…01c8 at0038 = ╱30╱0╱ // 0x1c0 @0x38
0x0188…01c8 at0039 = ╱fe0000a004╱ // 0x1c1 @0x39
0x0188…01c8 at003e = ╱ee╱)╱ // 0x1c6 @0x3e
0x0188…01c8 at003f = EOL // 0x1c7 @0x3f
0x0188…01c8 }
0x01c8…0235 8f8c 0170 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12)
0x01c8…0235 LineComalBin {
0x01c8…0235 ptr = 0x8f8c // 0x1c8 @0x0
0x01c8…0235 lno = 0x00aa // 0x1ca @0x2
0x01c8…0235 at0004 = ╱87╱ DIM ╱ // 0x1cc @0x4
0x01c8…0235 at0005 = ╱53╱S╱ // 0x1cd @0x5
0x01c8…0235 at0006 = ╱55╱U╱ // 0x1ce @0x6
0x01c8…0235 at0007 = ╱4d╱M╱ // 0x1cf @0x7
0x01c8…0235 at0008 = ╱ef╱$╱ // 0x1d0 @0x8
0x01c8…0235 at0009 = ╱ed╱(╱ // 0x1d1 @0x9
0x01c8…0235 at000a = ╱31╱1╱ // 0x1d2 @0xa
0x01c8…0235 at000b = ╱32╱2╱ // 0x1d3 @0xb
0x01c8…0235 at000c = ╱fe0000c004╱ // 0x1d4 @0xc
0x01c8…0235 at0011 = ╱ee╱)╱ // 0x1d9 @0x11
0x01c8…0235 at0012 = ╱ec╱,╱ // 0x1da @0x12
0x01c8…0235 at0013 = ╱53╱S╱ // 0x1db @0x13
0x01c8…0235 at0014 = ╱55╱U╱ // 0x1dc @0x14
0x01c8…0235 at0015 = ╱4d╱M╱ // 0x1dd @0x15
0x01c8…0235 at0016 = ╱31╱1╱ // 0x1de @0x16
0x01c8…0235 at0017 = ╱ef╱$╱ // 0x1df @0x17
0x01c8…0235 at0018 = ╱ed╱(╱ // 0x1e0 @0x18
0x01c8…0235 at0019 = ╱31╱1╱ // 0x1e1 @0x19
0x01c8…0235 at001a = ╱32╱2╱ // 0x1e2 @0x1a
0x01c8…0235 at001b = ╱fe0000c004╱ // 0x1e3 @0x1b
0x01c8…0235 at0020 = ╱ee╱)╱ // 0x1e8 @0x20
0x01c8…0235 at0021 = ╱ec╱,╱ // 0x1e9 @0x21
0x01c8…0235 at0022 = ╱53╱S╱ // 0x1ea @0x22
0x01c8…0235 at0023 = ╱55╱U╱ // 0x1eb @0x23
0x01c8…0235 at0024 = ╱4d╱M╱ // 0x1ec @0x24
0x01c8…0235 at0025 = ╱32╱2╱ // 0x1ed @0x25
0x01c8…0235 at0026 = ╱ef╱$╱ // 0x1ee @0x26
0x01c8…0235 at0027 = ╱ed╱(╱ // 0x1ef @0x27
0x01c8…0235 at0028 = ╱31╱1╱ // 0x1f0 @0x28
0x01c8…0235 at0029 = ╱32╱2╱ // 0x1f1 @0x29
0x01c8…0235 at002a = ╱fe0000c004╱ // 0x1f2 @0x2a
0x01c8…0235 at002f = ╱ee╱)╱ // 0x1f7 @0x2f
0x01c8…0235 at0030 = ╱ec╱,╱ // 0x1f8 @0x30
0x01c8…0235 at0031 = ╱53╱S╱ // 0x1f9 @0x31
0x01c8…0235 at0032 = ╱55╱U╱ // 0x1fa @0x32
0x01c8…0235 at0033 = ╱4d╱M╱ // 0x1fb @0x33
0x01c8…0235 at0034 = ╱33╱3╱ // 0x1fc @0x34
0x01c8…0235 at0035 = ╱ef╱$╱ // 0x1fd @0x35
0x01c8…0235 at0036 = ╱ed╱(╱ // 0x1fe @0x36
0x01c8…0235 at0037 = ╱31╱1╱ // 0x1ff @0x37
0x01c8…0235 at0038 = ╱32╱2╱ // 0x200 @0x38
0x01c8…0235 at0039 = ╱fe0000c004╱ // 0x201 @0x39
0x01c8…0235 at003e = ╱ee╱)╱ // 0x206 @0x3e
0x01c8…0235 at003f = ╱ec╱,╱ // 0x207 @0x3f
0x01c8…0235 at0040 = ╱53╱S╱ // 0x208 @0x40
0x01c8…0235 at0041 = ╱55╱U╱ // 0x209 @0x41
0x01c8…0235 at0042 = ╱4d╱M╱ // 0x20a @0x42
0x01c8…0235 at0043 = ╱34╱4╱ // 0x20b @0x43
0x01c8…0235 at0044 = ╱ef╱$╱ // 0x20c @0x44
0x01c8…0235 at0045 = ╱ed╱(╱ // 0x20d @0x45
0x01c8…0235 at0046 = ╱31╱1╱ // 0x20e @0x46
0x01c8…0235 at0047 = ╱32╱2╱ // 0x20f @0x47
0x01c8…0235 at0048 = ╱fe0000c004╱ // 0x210 @0x48
0x01c8…0235 at004d = ╱ee╱)╱ // 0x215 @0x4d
0x01c8…0235 at004e = ╱ec╱,╱ // 0x216 @0x4e
0x01c8…0235 at004f = ╱53╱S╱ // 0x217 @0x4f
0x01c8…0235 at0050 = ╱55╱U╱ // 0x218 @0x50
0x01c8…0235 at0051 = ╱4d╱M╱ // 0x219 @0x51
0x01c8…0235 at0052 = ╱35╱5╱ // 0x21a @0x52
0x01c8…0235 at0053 = ╱ef╱$╱ // 0x21b @0x53
0x01c8…0235 at0054 = ╱ed╱(╱ // 0x21c @0x54
0x01c8…0235 at0055 = ╱31╱1╱ // 0x21d @0x55
0x01c8…0235 at0056 = ╱32╱2╱ // 0x21e @0x56
0x01c8…0235 at0057 = ╱fe0000c004╱ // 0x21f @0x57
0x01c8…0235 at005c = ╱ee╱)╱ // 0x224 @0x5c
0x01c8…0235 at005d = ╱ec╱,╱ // 0x225 @0x5d
0x01c8…0235 at005e = ╱53╱S╱ // 0x226 @0x5e
0x01c8…0235 at005f = ╱55╱U╱ // 0x227 @0x5f
0x01c8…0235 at0060 = ╱4d╱M╱ // 0x228 @0x60
0x01c8…0235 at0061 = ╱36╱6╱ // 0x229 @0x61
0x01c8…0235 at0062 = ╱ef╱$╱ // 0x22a @0x62
0x01c8…0235 at0063 = ╱ed╱(╱ // 0x22b @0x63
0x01c8…0235 at0064 = ╱31╱1╱ // 0x22c @0x64
0x01c8…0235 at0065 = ╱32╱2╱ // 0x22d @0x65
0x01c8…0235 at0066 = ╱fe0000c004╱ // 0x22e @0x66
0x01c8…0235 at006b = ╱ee╱)╱ // 0x233 @0x6b
0x01c8…0235 at006c = EOL // 0x234 @0x6c
0x01c8…0235 }
0x0235…0281 8fd8 0180 DIM TAL1$(14),TAL2$(14),KS$(5),STREG$(78),DAT$(8)
0x0235…0281 LineComalBin {
0x0235…0281 ptr = 0x8fd8 // 0x235 @0x0
0x0235…0281 lno = 0x00b4 // 0x237 @0x2
0x0235…0281 at0004 = ╱87╱ DIM ╱ // 0x239 @0x4
0x0235…0281 at0005 = ╱54╱T╱ // 0x23a @0x5
0x0235…0281 at0006 = ╱41╱A╱ // 0x23b @0x6
0x0235…0281 at0007 = ╱4c╱L╱ // 0x23c @0x7
0x0235…0281 at0008 = ╱31╱1╱ // 0x23d @0x8
0x0235…0281 at0009 = ╱ef╱$╱ // 0x23e @0x9
0x0235…0281 at000a = ╱ed╱(╱ // 0x23f @0xa
0x0235…0281 at000b = ╱31╱1╱ // 0x240 @0xb
0x0235…0281 at000c = ╱34╱4╱ // 0x241 @0xc
0x0235…0281 at000d = ╱fe0000e004╱ // 0x242 @0xd
0x0235…0281 at0012 = ╱ee╱)╱ // 0x247 @0x12
0x0235…0281 at0013 = ╱ec╱,╱ // 0x248 @0x13
0x0235…0281 at0014 = ╱54╱T╱ // 0x249 @0x14
0x0235…0281 at0015 = ╱41╱A╱ // 0x24a @0x15
0x0235…0281 at0016 = ╱4c╱L╱ // 0x24b @0x16
0x0235…0281 at0017 = ╱32╱2╱ // 0x24c @0x17
0x0235…0281 at0018 = ╱ef╱$╱ // 0x24d @0x18
0x0235…0281 at0019 = ╱ed╱(╱ // 0x24e @0x19
0x0235…0281 at001a = ╱31╱1╱ // 0x24f @0x1a
0x0235…0281 at001b = ╱34╱4╱ // 0x250 @0x1b
0x0235…0281 at001c = ╱fe0000e004╱ // 0x251 @0x1c
0x0235…0281 at0021 = ╱ee╱)╱ // 0x256 @0x21
0x0235…0281 at0022 = ╱ec╱,╱ // 0x257 @0x22
0x0235…0281 at0023 = ╱4b╱K╱ // 0x258 @0x23
0x0235…0281 at0024 = ╱53╱S╱ // 0x259 @0x24
0x0235…0281 at0025 = ╱ef╱$╱ // 0x25a @0x25
0x0235…0281 at0026 = ╱ed╱(╱ // 0x25b @0x26
0x0235…0281 at0027 = ╱35╱5╱ // 0x25c @0x27
0x0235…0281 at0028 = ╱fe0000a003╱ // 0x25d @0x28
0x0235…0281 at002d = ╱ee╱)╱ // 0x262 @0x2d
0x0235…0281 at002e = ╱ec╱,╱ // 0x263 @0x2e
0x0235…0281 at002f = ╱53╱S╱ // 0x264 @0x2f
0x0235…0281 at0030 = ╱54╱T╱ // 0x265 @0x30
0x0235…0281 at0031 = ╱52╱R╱ // 0x266 @0x31
0x0235…0281 at0032 = ╱45╱E╱ // 0x267 @0x32
0x0235…0281 at0033 = ╱47╱G╱ // 0x268 @0x33
0x0235…0281 at0034 = ╱ef╱$╱ // 0x269 @0x34
0x0235…0281 at0035 = ╱ed╱(╱ // 0x26a @0x35
0x0235…0281 at0036 = ╱37╱7╱ // 0x26b @0x36
0x0235…0281 at0037 = ╱38╱8╱ // 0x26c @0x37
0x0235…0281 at0038 = ╱fe00009c07╱ // 0x26d @0x38
0x0235…0281 at003d = ╱ee╱)╱ // 0x272 @0x3d
0x0235…0281 at003e = ╱ec╱,╱ // 0x273 @0x3e
0x0235…0281 at003f = ╱44╱D╱ // 0x274 @0x3f
0x0235…0281 at0040 = ╱41╱A╱ // 0x275 @0x40
0x0235…0281 at0041 = ╱54╱T╱ // 0x276 @0x41
0x0235…0281 at0042 = ╱ef╱$╱ // 0x277 @0x42
0x0235…0281 at0043 = ╱ed╱(╱ // 0x278 @0x43
0x0235…0281 at0044 = ╱38╱8╱ // 0x279 @0x44
0x0235…0281 at0045 = ╱fe00008004╱ // 0x27a @0x45
0x0235…0281 at004a = ╱ee╱)╱ // 0x27f @0x4a
0x0235…0281 at004b = EOL // 0x280 @0x4b
0x0235…0281 }
0x0281…02bb 9012 0190 DIM K5$(17),LAND$(W,12),VTAB2(5),SVAR$(E)
0x0281…02bb LineComalBin {
0x0281…02bb ptr = 0x9012 // 0x281 @0x0
0x0281…02bb lno = 0x00be // 0x283 @0x2
0x0281…02bb at0004 = ╱87╱ DIM ╱ // 0x285 @0x4
0x0281…02bb at0005 = ╱4b╱K╱ // 0x286 @0x5
0x0281…02bb at0006 = ╱35╱5╱ // 0x287 @0x6
0x0281…02bb at0007 = ╱ef╱$╱ // 0x288 @0x7
0x0281…02bb at0008 = ╱ed╱(╱ // 0x289 @0x8
0x0281…02bb at0009 = ╱31╱1╱ // 0x28a @0x9
0x0281…02bb at000a = ╱37╱7╱ // 0x28b @0xa
0x0281…02bb at000b = ╱fe00008805╱ // 0x28c @0xb
0x0281…02bb at0010 = ╱ee╱)╱ // 0x291 @0x10
0x0281…02bb at0011 = ╱ec╱,╱ // 0x292 @0x11
0x0281…02bb at0012 = ╱4c╱L╱ // 0x293 @0x12
0x0281…02bb at0013 = ╱41╱A╱ // 0x294 @0x13
0x0281…02bb at0014 = ╱4e╱N╱ // 0x295 @0x14
0x0281…02bb at0015 = ╱44╱D╱ // 0x296 @0x15
0x0281…02bb at0016 = ╱ef╱$╱ // 0x297 @0x16
0x0281…02bb at0017 = ╱ed╱(╱ // 0x298 @0x17
0x0281…02bb at0018 = ╱57╱W╱ // 0x299 @0x18
0x0281…02bb at0019 = ╱ec╱,╱ // 0x29a @0x19
0x0281…02bb at001a = ╱31╱1╱ // 0x29b @0x1a
0x0281…02bb at001b = ╱32╱2╱ // 0x29c @0x1b
0x0281…02bb at001c = ╱fe0000c004╱ // 0x29d @0x1c
0x0281…02bb at0021 = ╱ee╱)╱ // 0x2a2 @0x21
0x0281…02bb at0022 = ╱ec╱,╱ // 0x2a3 @0x22
0x0281…02bb at0023 = ╱56╱V╱ // 0x2a4 @0x23
0x0281…02bb at0024 = ╱54╱T╱ // 0x2a5 @0x24
0x0281…02bb at0025 = ╱41╱A╱ // 0x2a6 @0x25
0x0281…02bb at0026 = ╱42╱B╱ // 0x2a7 @0x26
0x0281…02bb at0027 = ╱32╱2╱ // 0x2a8 @0x27
0x0281…02bb at0028 = ╱ed╱(╱ // 0x2a9 @0x28
0x0281…02bb at0029 = ╱35╱5╱ // 0x2aa @0x29
0x0281…02bb at002a = ╱fe0000a003╱ // 0x2ab @0x2a
0x0281…02bb at002f = ╱ee╱)╱ // 0x2b0 @0x2f
0x0281…02bb at0030 = ╱ec╱,╱ // 0x2b1 @0x30
0x0281…02bb at0031 = ╱53╱S╱ // 0x2b2 @0x31
0x0281…02bb at0032 = ╱56╱V╱ // 0x2b3 @0x32
0x0281…02bb at0033 = ╱41╱A╱ // 0x2b4 @0x33
0x0281…02bb at0034 = ╱52╱R╱ // 0x2b5 @0x34
0x0281…02bb at0035 = ╱ef╱$╱ // 0x2b6 @0x35
0x0281…02bb at0036 = ╱ed╱(╱ // 0x2b7 @0x36
0x0281…02bb at0037 = ╱45╱E╱ // 0x2b8 @0x37
0x0281…02bb at0038 = ╱ee╱)╱ // 0x2b9 @0x38
0x0281…02bb at0039 = EOL // 0x2ba @0x39
0x0281…02bb }
0x02bb…02d3 902a 0200 PROC CALC(AR3,B1,B2,ES)
0x02bb…02d3 LineComalBin {
0x02bb…02d3 ptr = 0x902a // 0x2bb @0x0
0x02bb…02d3 lno = 0x00c8 // 0x2bd @0x2
0x02bb…02d3 at0004 = ╱9e╱ PROC ╱ // 0x2bf @0x4
0x02bb…02d3 at0005 = ╱43╱C╱ // 0x2c0 @0x5
0x02bb…02d3 at0006 = ╱41╱A╱ // 0x2c1 @0x6
0x02bb…02d3 at0007 = ╱4c╱L╱ // 0x2c2 @0x7
0x02bb…02d3 at0008 = ╱43╱C╱ // 0x2c3 @0x8
0x02bb…02d3 at0009 = ╱ed╱(╱ // 0x2c4 @0x9
0x02bb…02d3 at000a = ╱41╱A╱ // 0x2c5 @0xa
0x02bb…02d3 at000b = ╱52╱R╱ // 0x2c6 @0xb
0x02bb…02d3 at000c = ╱33╱3╱ // 0x2c7 @0xc
0x02bb…02d3 at000d = ╱ec╱,╱ // 0x2c8 @0xd
0x02bb…02d3 at000e = ╱42╱B╱ // 0x2c9 @0xe
0x02bb…02d3 at000f = ╱31╱1╱ // 0x2ca @0xf
0x02bb…02d3 at0010 = ╱ec╱,╱ // 0x2cb @0x10
0x02bb…02d3 at0011 = ╱42╱B╱ // 0x2cc @0x11
0x02bb…02d3 at0012 = ╱32╱2╱ // 0x2cd @0x12
0x02bb…02d3 at0013 = ╱ec╱,╱ // 0x2ce @0x13
0x02bb…02d3 at0014 = ╱45╱E╱ // 0x2cf @0x14
0x02bb…02d3 at0015 = ╱53╱S╱ // 0x2d0 @0x15
0x02bb…02d3 at0016 = ╱ee╱)╱ // 0x2d1 @0x16
0x02bb…02d3 at0017 = EOL // 0x2d2 @0x17
0x02bb…02d3 }
0x02d3…031a 9071 0210 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x02d3…031a LineComalBin {
0x02d3…031a ptr = 0x9071 // 0x2d3 @0x0
0x02d3…031a lno = 0x00d2 // 0x2d5 @0x2
0x02d3…031a at0004 = ╱4f╱O╱ // 0x2d7 @0x4
0x02d3…031a at0005 = ╱50╱P╱ // 0x2d8 @0x5
0x02d3…031a at0006 = ╱31╱1╱ // 0x2d9 @0x6
0x02d3…031a at0007 = ╱ef╱$╱ // 0x2da @0x7
0x02d3…031a at0008 = ╱dc╱=╱ // 0x2db @0x8
0x02d3…031a at0009 = ╱42╱B╱ // 0x2dc @0x9
0x02d3…031a at000a = ╱31╱1╱ // 0x2dd @0xa
0x02d3…031a at000b = ╱ef╱$╱ // 0x2de @0xb
0x02d3…031a at000c = ╱eb╱;╱ // 0x2df @0xc
0x02d3…031a at000d = ╱4f╱O╱ // 0x2e0 @0xd
0x02d3…031a at000e = ╱50╱P╱ // 0x2e1 @0xe
0x02d3…031a at000f = ╱32╱2╱ // 0x2e2 @0xf
0x02d3…031a at0010 = ╱ef╱$╱ // 0x2e3 @0x10
0x02d3…031a at0011 = ╱dc╱=╱ // 0x2e4 @0x11
0x02d3…031a at0012 = ╱42╱B╱ // 0x2e5 @0x12
0x02d3…031a at0013 = ╱32╱2╱ // 0x2e6 @0x13
0x02d3…031a at0014 = ╱ef╱$╱ // 0x2e7 @0x14
0x02d3…031a at0015 = ╱eb╱;╱ // 0x2e8 @0x15
0x02d3…031a at0016 = ╱52╱R╱ // 0x2e9 @0x16
0x02d3…031a at0017 = ╱45╱E╱ // 0x2ea @0x17
0x02d3…031a at0018 = ╱53╱S╱ // 0x2eb @0x18
0x02d3…031a at0019 = ╱ef╱$╱ // 0x2ec @0x19
0x02d3…031a at001a = ╱dc╱=╱ // 0x2ed @0x1a
0x02d3…031a at001b = ╱45╱E╱ // 0x2ee @0x1b
0x02d3…031a at001c = ╱53╱S╱ // 0x2ef @0x1c
0x02d3…031a at001d = ╱ef╱$╱ // 0x2f0 @0x1d
0x02d3…031a at001e = ╱eb╱;╱ // 0x2f1 @0x1e
0x02d3…031a at001f = ╱53╱S╱ // 0x2f2 @0x1f
0x02d3…031a at0020 = ╱49╱I╱ // 0x2f3 @0x20
0x02d3…031a at0021 = ╱dc╱=╱ // 0x2f4 @0x21
0x02d3…031a at0022 = ╱42╱B╱ // 0x2f5 @0x22
0x02d3…031a at0023 = ╱eb╱;╱ // 0x2f6 @0x23
0x02d3…031a at0024 = ╱46╱F╱ // 0x2f7 @0x24
0x02d3…031a at0025 = ╱4c╱L╱ // 0x2f8 @0x25
0x02d3…031a at0026 = ╱41╱A╱ // 0x2f9 @0x26
0x02d3…031a at0027 = ╱47╱G╱ // 0x2fa @0x27
0x02d3…031a at0028 = ╱dc╱=╱ // 0x2fb @0x28
0x02d3…031a at0029 = ╱42╱B╱ // 0x2fc @0x29
0x02d3…031a at002a = ╱eb╱;╱ // 0x2fd @0x2a
0x02d3…031a at002b = ╱41╱A╱ // 0x2fe @0x2b
0x02d3…031a at002c = ╱52╱R╱ // 0x2ff @0x2c
0x02d3…031a at002d = ╱54╱T╱ // 0x300 @0x2d
0x02d3…031a at002e = ╱dc╱=╱ // 0x301 @0x2e
0x02d3…031a at002f = ╱41╱A╱ // 0x302 @0x2f
0x02d3…031a at0030 = ╱52╱R╱ // 0x303 @0x30
0x02d3…031a at0031 = ╱33╱3╱ // 0x304 @0x31
0x02d3…031a at0032 = ╱e3╱-╱ // 0x305 @0x32
0x02d3…031a at0033 = ╱36╱6╱ // 0x306 @0x33
0x02d3…031a at0034 = ╱fe0000c003╱ // 0x307 @0x34
0x02d3…031a at0039 = ╱e4╱*╱ // 0x30c @0x39
0x02d3…031a at003a = ╱ed╱(╱ // 0x30d @0x3a
0x02d3…031a at003b = ╱41╱A╱ // 0x30e @0x3b
0x02d3…031a at003c = ╱52╱R╱ // 0x30f @0x3c
0x02d3…031a at003d = ╱33╱3╱ // 0x310 @0x3d
0x02d3…031a at003e = ╱de╱>╱ // 0x311 @0x3e
0x02d3…031a at003f = ╱35╱5╱ // 0x312 @0x3f
0x02d3…031a at0040 = ╱fe0000a003╱ // 0x313 @0x40
0x02d3…031a at0045 = ╱ee╱)╱ // 0x318 @0x45
0x02d3…031a at0046 = EOL // 0x319 @0x46
0x02d3…031a }
0x031a…0330 9087 0220 CALL "P641210:REGN"
0x031a…0330 LineComalBin {
0x031a…0330 ptr = 0x9087 // 0x31a @0x0
0x031a…0330 lno = 0x00dc // 0x31c @0x2
0x031a…0330 at0004 = ╱ad05ee╱ CALL ╱ // 0x31e @0x4
0x031a…0330 at0007 = ╱22╱"╱ // 0x321 @0x7
0x031a…0330 at0008 = ╱50╱P╱ // 0x322 @0x8
0x031a…0330 at0009 = ╱36╱6╱ // 0x323 @0x9
0x031a…0330 at000a = ╱34╱4╱ // 0x324 @0xa
0x031a…0330 at000b = ╱31╱1╱ // 0x325 @0xb
0x031a…0330 at000c = ╱32╱2╱ // 0x326 @0xc
0x031a…0330 at000d = ╱31╱1╱ // 0x327 @0xd
0x031a…0330 at000e = ╱30╱0╱ // 0x328 @0xe
0x031a…0330 at000f = ╱3a╱:╱ // 0x329 @0xf
0x031a…0330 at0010 = ╱52╱R╱ // 0x32a @0x10
0x031a…0330 at0011 = ╱45╱E╱ // 0x32b @0x11
0x031a…0330 at0012 = ╱47╱G╱ // 0x32c @0x12
0x031a…0330 at0013 = ╱4e╱N╱ // 0x32d @0x13
0x031a…0330 at0014 = ╱22╱"╱ // 0x32e @0x14
0x031a…0330 at0015 = EOL // 0x32f @0x15
0x031a…0330 }
0x0330…033d 9094 0230 ES$=RES$
0x0330…033d LineComalBin {
0x0330…033d ptr = 0x9094 // 0x330 @0x0
0x0330…033d lno = 0x00e6 // 0x332 @0x2
0x0330…033d at0004 = ╱45╱E╱ // 0x334 @0x4
0x0330…033d at0005 = ╱53╱S╱ // 0x335 @0x5
0x0330…033d at0006 = ╱ef╱$╱ // 0x336 @0x6
0x0330…033d at0007 = ╱dc╱=╱ // 0x337 @0x7
0x0330…033d at0008 = ╱52╱R╱ // 0x338 @0x8
0x0330…033d at0009 = ╱45╱E╱ // 0x339 @0x9
0x0330…033d at000a = ╱53╱S╱ // 0x33a @0xa
0x0330…033d at000b = ╱ef╱$╱ // 0x33b @0xb
0x0330…033d at000c = EOL // 0x33c @0xc
0x0330…033d }
0x033d…034e 90a5 0240 IF AR3<6 THEN
0x033d…034e LineComalBin {
0x033d…034e ptr = 0x90a5 // 0x33d @0x0
0x033d…034e lno = 0x00f0 // 0x33f @0x2
0x033d…034e at0004 = ╱9c╱ IF ╱ // 0x341 @0x4
0x033d…034e at0005 = ╱41╱A╱ // 0x342 @0x5
0x033d…034e at0006 = ╱52╱R╱ // 0x343 @0x6
0x033d…034e at0007 = ╱33╱3╱ // 0x344 @0x7
0x033d…034e at0008 = ╱dd╱<╱ // 0x345 @0x8
0x033d…034e at0009 = ╱36╱6╱ // 0x346 @0x9
0x033d…034e at000a = ╱fe0000c003╱ // 0x347 @0xa
0x033d…034e at000f = ╱b6╱ THEN ╱ // 0x34c @0xf
0x033d…034e at0010 = EOL // 0x34d @0x10
0x033d…034e }
0x034e…035a 90b1 0250 IF FLAG THEN STOP
0x034e…035a LineComalBin {
0x034e…035a ptr = 0x90b1 // 0x34e @0x0
0x034e…035a lno = 0x00fa // 0x350 @0x2
0x034e…035a at0004 = ╱82╱ IF ╱ // 0x352 @0x4
0x034e…035a at0005 = ╱46╱F╱ // 0x353 @0x5
0x034e…035a at0006 = ╱4c╱L╱ // 0x354 @0x6
0x034e…035a at0007 = ╱41╱A╱ // 0x355 @0x7
0x034e…035a at0008 = ╱47╱G╱ // 0x356 @0x8
0x034e…035a at0009 = ╱b6╱ THEN ╱ // 0x357 @0x9
0x034e…035a at000a = ╱8d╱ STOP ╱ // 0x358 @0xa
0x034e…035a at000b = EOL // 0x359 @0xb
0x034e…035a }
0x035a…0360 90b7 0260 ENDIF
0x035a…0360 LineComalBin {
0x035a…0360 ptr = 0x90b7 // 0x35a @0x0
0x035a…0360 lno = 0x0104 // 0x35c @0x2
0x035a…0360 at0004 = ╱9b╱ ENDIF ╱ // 0x35e @0x4
0x035a…0360 at0005 = EOL // 0x35f @0x5
0x035a…0360 }
0x0360…0366 90bd 0270 ENDPROC
0x0360…0366 LineComalBin {
0x0360…0366 ptr = 0x90bd // 0x360 @0x0
0x0360…0366 lno = 0x010e // 0x362 @0x2
0x0360…0366 at0004 = ╱9f╱ ENDPROC ╱ // 0x364 @0x4
0x0360…0366 at0005 = EOL // 0x365 @0x5
0x0360…0366 }
0x0366…037d 90d4 0280 PROC FEJL(NR1,NR2,NR3)
0x0366…037d LineComalBin {
0x0366…037d ptr = 0x90d4 // 0x366 @0x0
0x0366…037d lno = 0x0118 // 0x368 @0x2
0x0366…037d at0004 = ╱9e╱ PROC ╱ // 0x36a @0x4
0x0366…037d at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…037d at0006 = ╱45╱E╱ // 0x36c @0x6
0x0366…037d at0007 = ╱4a╱J╱ // 0x36d @0x7
0x0366…037d at0008 = ╱4c╱L╱ // 0x36e @0x8
0x0366…037d at0009 = ╱ed╱(╱ // 0x36f @0x9
0x0366…037d at000a = ╱4e╱N╱ // 0x370 @0xa
0x0366…037d at000b = ╱52╱R╱ // 0x371 @0xb
0x0366…037d at000c = ╱31╱1╱ // 0x372 @0xc
0x0366…037d at000d = ╱ec╱,╱ // 0x373 @0xd
0x0366…037d at000e = ╱4e╱N╱ // 0x374 @0xe
0x0366…037d at000f = ╱52╱R╱ // 0x375 @0xf
0x0366…037d at0010 = ╱32╱2╱ // 0x376 @0x10
0x0366…037d at0011 = ╱ec╱,╱ // 0x377 @0x11
0x0366…037d at0012 = ╱4e╱N╱ // 0x378 @0x12
0x0366…037d at0013 = ╱52╱R╱ // 0x379 @0x13
0x0366…037d at0014 = ╱33╱3╱ // 0x37a @0x14
0x0366…037d at0015 = ╱ee╱)╱ // 0x37b @0x15
0x0366…037d at0016 = EOL // 0x37c @0x16
0x0366…037d }
0x037d…038d 90e4 0290 IF STATUS(NR3$)<>B THEN
0x037d…038d LineComalBin {
0x037d…038d ptr = 0x90e4 // 0x37d @0x0
0x037d…038d lno = 0x0122 // 0x37f @0x2
0x037d…038d at0004 = ╱9c╱ IF ╱ // 0x381 @0x4
0x037d…038d at0005 = ╱ce╱STATUS╱ // 0x382 @0x5
0x037d…038d at0006 = ╱ed╱(╱ // 0x383 @0x6
0x037d…038d at0007 = ╱4e╱N╱ // 0x384 @0x7
0x037d…038d at0008 = ╱52╱R╱ // 0x385 @0x8
0x037d…038d at0009 = ╱33╱3╱ // 0x386 @0x9
0x037d…038d at000a = ╱ef╱$╱ // 0x387 @0xa
0x037d…038d at000b = ╱ee╱)╱ // 0x388 @0xb
0x037d…038d at000c = ╱e1╱<>╱ // 0x389 @0xc
0x037d…038d at000d = ╱42╱B╱ // 0x38a @0xd
0x037d…038d at000e = ╱b6╱ THEN ╱ // 0x38b @0xe
0x037d…038d at000f = EOL // 0x38c @0xf
0x037d…038d }
0x038d…03a7 90fe 0300 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x038d…03a7 LineComalBin {
0x038d…03a7 ptr = 0x90fe // 0x38d @0x0
0x038d…03a7 lno = 0x012c // 0x38f @0x2
0x038d…03a7 at0004 = ╱92╱ PRINT ╱ // 0x391 @0x4
0x038d…03a7 at0005 = ╱ce╱STATUS╱ // 0x392 @0x5
0x038d…03a7 at0006 = ╱ed╱(╱ // 0x393 @0x6
0x038d…03a7 at0007 = ╱4e╱N╱ // 0x394 @0x7
0x038d…03a7 at0008 = ╱52╱R╱ // 0x395 @0x8
0x038d…03a7 at0009 = ╱33╱3╱ // 0x396 @0x9
0x038d…03a7 at000a = ╱ef╱$╱ // 0x397 @0xa
0x038d…03a7 at000b = ╱ee╱)╱ // 0x398 @0xb
0x038d…03a7 at000c = ╱ec╱,╱ // 0x399 @0xc
0x038d…03a7 at000d = ╱4e╱N╱ // 0x39a @0xd
0x038d…03a7 at000e = ╱52╱R╱ // 0x39b @0xe
0x038d…03a7 at000f = ╱31╱1╱ // 0x39c @0xf
0x038d…03a7 at0010 = ╱ec╱,╱ // 0x39d @0x10
0x038d…03a7 at0011 = ╱4e╱N╱ // 0x39e @0x11
0x038d…03a7 at0012 = ╱52╱R╱ // 0x39f @0x12
0x038d…03a7 at0013 = ╱32╱2╱ // 0x3a0 @0x13
0x038d…03a7 at0014 = ╱ec╱,╱ // 0x3a1 @0x14
0x038d…03a7 at0015 = ╱4e╱N╱ // 0x3a2 @0x15
0x038d…03a7 at0016 = ╱52╱R╱ // 0x3a3 @0x16
0x038d…03a7 at0017 = ╱33╱3╱ // 0x3a4 @0x17
0x038d…03a7 at0018 = ╱ef╱$╱ // 0x3a5 @0x18
0x038d…03a7 at0019 = EOL // 0x3a6 @0x19
0x038d…03a7 }
0x03a7…03ad 9104 0310 STOP
0x03a7…03ad LineComalBin {
0x03a7…03ad ptr = 0x9104 // 0x3a7 @0x0
0x03a7…03ad lno = 0x0136 // 0x3a9 @0x2
0x03a7…03ad at0004 = ╱8d╱ STOP ╱ // 0x3ab @0x4
0x03a7…03ad at0005 = EOL // 0x3ac @0x5
0x03a7…03ad }
0x03ad…03b3 910a 0320 ENDIF
0x03ad…03b3 LineComalBin {
0x03ad…03b3 ptr = 0x910a // 0x3ad @0x0
0x03ad…03b3 lno = 0x0140 // 0x3af @0x2
0x03ad…03b3 at0004 = ╱9b╱ ENDIF ╱ // 0x3b1 @0x4
0x03ad…03b3 at0005 = EOL // 0x3b2 @0x5
0x03ad…03b3 }
0x03b3…03b9 9110 0330 ENDPROC
0x03b3…03b9 LineComalBin {
0x03b3…03b9 ptr = 0x9110 // 0x3b3 @0x0
0x03b3…03b9 lno = 0x014a // 0x3b5 @0x2
0x03b3…03b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x3b7 @0x4
0x03b3…03b9 at0005 = EOL // 0x3b8 @0x5
0x03b3…03b9 }
0x03b9…03d3 912a 0340 PROC INDTAB(T,MANTAL,L10)
0x03b9…03d3 LineComalBin {
0x03b9…03d3 ptr = 0x912a // 0x3b9 @0x0
0x03b9…03d3 lno = 0x0154 // 0x3bb @0x2
0x03b9…03d3 at0004 = ╱9e╱ PROC ╱ // 0x3bd @0x4
0x03b9…03d3 at0005 = ╱49╱I╱ // 0x3be @0x5
0x03b9…03d3 at0006 = ╱4e╱N╱ // 0x3bf @0x6
0x03b9…03d3 at0007 = ╱44╱D╱ // 0x3c0 @0x7
0x03b9…03d3 at0008 = ╱54╱T╱ // 0x3c1 @0x8
0x03b9…03d3 at0009 = ╱41╱A╱ // 0x3c2 @0x9
0x03b9…03d3 at000a = ╱42╱B╱ // 0x3c3 @0xa
0x03b9…03d3 at000b = ╱ed╱(╱ // 0x3c4 @0xb
0x03b9…03d3 at000c = ╱54╱T╱ // 0x3c5 @0xc
0x03b9…03d3 at000d = ╱ec╱,╱ // 0x3c6 @0xd
0x03b9…03d3 at000e = ╱4d╱M╱ // 0x3c7 @0xe
0x03b9…03d3 at000f = ╱41╱A╱ // 0x3c8 @0xf
0x03b9…03d3 at0010 = ╱4e╱N╱ // 0x3c9 @0x10
0x03b9…03d3 at0011 = ╱54╱T╱ // 0x3ca @0x11
0x03b9…03d3 at0012 = ╱41╱A╱ // 0x3cb @0x12
0x03b9…03d3 at0013 = ╱4c╱L╱ // 0x3cc @0x13
0x03b9…03d3 at0014 = ╱ec╱,╱ // 0x3cd @0x14
0x03b9…03d3 at0015 = ╱4c╱L╱ // 0x3ce @0x15
0x03b9…03d3 at0016 = ╱31╱1╱ // 0x3cf @0x16
0x03b9…03d3 at0017 = ╱30╱0╱ // 0x3d0 @0x17
0x03b9…03d3 at0018 = ╱ee╱)╱ // 0x3d1 @0x18
0x03b9…03d3 at0019 = EOL // 0x3d2 @0x19
0x03b9…03d3 }
0x03d3…03ea 9141 0350 J=MANTAL DIV 32+E
0x03d3…03ea LineComalBin {
0x03d3…03ea ptr = 0x9141 // 0x3d3 @0x0
0x03d3…03ea lno = 0x015e // 0x3d5 @0x2
0x03d3…03ea at0004 = ╱4a╱J╱ // 0x3d7 @0x4
0x03d3…03ea at0005 = ╱dc╱=╱ // 0x3d8 @0x5
0x03d3…03ea at0006 = ╱4d╱M╱ // 0x3d9 @0x6
0x03d3…03ea at0007 = ╱41╱A╱ // 0x3da @0x7
0x03d3…03ea at0008 = ╱4e╱N╱ // 0x3db @0x8
0x03d3…03ea at0009 = ╱54╱T╱ // 0x3dc @0x9
0x03d3…03ea at000a = ╱41╱A╱ // 0x3dd @0xa
0x03d3…03ea at000b = ╱4c╱L╱ // 0x3de @0xb
0x03d3…03ea at000c = ╱e7╱ DIV ╱ // 0x3df @0xc
0x03d3…03ea at000d = ╱33╱3╱ // 0x3e0 @0xd
0x03d3…03ea at000e = ╱32╱2╱ // 0x3e1 @0xe
0x03d3…03ea at000f = ╱fe00008006╱ // 0x3e2 @0xf
0x03d3…03ea at0014 = ╱e2╱+╱ // 0x3e7 @0x14
0x03d3…03ea at0015 = ╱45╱E╱ // 0x3e8 @0x15
0x03d3…03ea at0016 = EOL // 0x3e9 @0x16
0x03d3…03ea }
0x03ea…0405 915c 0360 FOR I=J TO MANTAL DIV 4+J-E
0x03ea…0405 LineComalBin {
0x03ea…0405 ptr = 0x915c // 0x3ea @0x0
0x03ea…0405 lno = 0x0168 // 0x3ec @0x2
0x03ea…0405 at0004 = ╱83╱ FOR ╱ // 0x3ee @0x4
0x03ea…0405 at0005 = ╱49╱I╱ // 0x3ef @0x5
0x03ea…0405 at0006 = ╱dc╱=╱ // 0x3f0 @0x6
0x03ea…0405 at0007 = ╱4a╱J╱ // 0x3f1 @0x7
0x03ea…0405 at0008 = ╱b7╱ TO ╱ // 0x3f2 @0x8
0x03ea…0405 at0009 = ╱4d╱M╱ // 0x3f3 @0x9
0x03ea…0405 at000a = ╱41╱A╱ // 0x3f4 @0xa
0x03ea…0405 at000b = ╱4e╱N╱ // 0x3f5 @0xb
0x03ea…0405 at000c = ╱54╱T╱ // 0x3f6 @0xc
0x03ea…0405 at000d = ╱41╱A╱ // 0x3f7 @0xd
0x03ea…0405 at000e = ╱4c╱L╱ // 0x3f8 @0xe
0x03ea…0405 at000f = ╱e7╱ DIV ╱ // 0x3f9 @0xf
0x03ea…0405 at0010 = ╱34╱4╱ // 0x3fa @0x10
0x03ea…0405 at0011 = ╱fe00008003╱ // 0x3fb @0x11
0x03ea…0405 at0016 = ╱e2╱+╱ // 0x400 @0x16
0x03ea…0405 at0017 = ╱4a╱J╱ // 0x401 @0x17
0x03ea…0405 at0018 = ╱e3╱-╱ // 0x402 @0x18
0x03ea…0405 at0019 = ╱45╱E╱ // 0x403 @0x19
0x03ea…0405 at001a = EOL // 0x404 @0x1a
0x03ea…0405 }
0x0405…042f 9186 0370 H=(I-J)*4+E;H1=H+E;H2=H+G;H3=H+V
0x0405…042f LineComalBin {
0x0405…042f ptr = 0x9186 // 0x405 @0x0
0x0405…042f lno = 0x0172 // 0x407 @0x2
0x0405…042f at0004 = ╱48╱H╱ // 0x409 @0x4
0x0405…042f at0005 = ╱dc╱=╱ // 0x40a @0x5
0x0405…042f at0006 = ╱ed╱(╱ // 0x40b @0x6
0x0405…042f at0007 = ╱49╱I╱ // 0x40c @0x7
0x0405…042f at0008 = ╱e3╱-╱ // 0x40d @0x8
0x0405…042f at0009 = ╱4a╱J╱ // 0x40e @0x9
0x0405…042f at000a = ╱ee╱)╱ // 0x40f @0xa
0x0405…042f at000b = ╱e4╱*╱ // 0x410 @0xb
0x0405…042f at000c = ╱34╱4╱ // 0x411 @0xc
0x0405…042f at000d = ╱fe00008003╱ // 0x412 @0xd
0x0405…042f at0012 = ╱e2╱+╱ // 0x417 @0x12
0x0405…042f at0013 = ╱45╱E╱ // 0x418 @0x13
0x0405…042f at0014 = ╱eb╱;╱ // 0x419 @0x14
0x0405…042f at0015 = ╱48╱H╱ // 0x41a @0x15
0x0405…042f at0016 = ╱31╱1╱ // 0x41b @0x16
0x0405…042f at0017 = ╱dc╱=╱ // 0x41c @0x17
0x0405…042f at0018 = ╱48╱H╱ // 0x41d @0x18
0x0405…042f at0019 = ╱e2╱+╱ // 0x41e @0x19
0x0405…042f at001a = ╱45╱E╱ // 0x41f @0x1a
0x0405…042f at001b = ╱eb╱;╱ // 0x420 @0x1b
0x0405…042f at001c = ╱48╱H╱ // 0x421 @0x1c
0x0405…042f at001d = ╱32╱2╱ // 0x422 @0x1d
0x0405…042f at001e = ╱dc╱=╱ // 0x423 @0x1e
0x0405…042f at001f = ╱48╱H╱ // 0x424 @0x1f
0x0405…042f at0020 = ╱e2╱+╱ // 0x425 @0x20
0x0405…042f at0021 = ╱47╱G╱ // 0x426 @0x21
0x0405…042f at0022 = ╱eb╱;╱ // 0x427 @0x22
0x0405…042f at0023 = ╱48╱H╱ // 0x428 @0x23
0x0405…042f at0024 = ╱33╱3╱ // 0x429 @0x24
0x0405…042f at0025 = ╱dc╱=╱ // 0x42a @0x25
0x0405…042f at0026 = ╱48╱H╱ // 0x42b @0x26
0x0405…042f at0027 = ╱e2╱+╱ // 0x42c @0x27
0x0405…042f at0028 = ╱56╱V╱ // 0x42d @0x28
0x0405…042f at0029 = EOL // 0x42e @0x29
0x0405…042f }
0x042f…0479 91d0 0380 GET L10$,I:T(H,E),T(H,G),T(H1,E),T(H1,G),T(H2,E),T(H2,G),T(H3,E),T(H3,G)
0x042f…0479 LineComalBin {
0x042f…0479 ptr = 0x91d0 // 0x42f @0x0
0x042f…0479 lno = 0x017c // 0x431 @0x2
0x042f…0479 at0004 = ╱a9╱ GET ╱ // 0x433 @0x4
0x042f…0479 at0005 = ╱4c╱L╱ // 0x434 @0x5
0x042f…0479 at0006 = ╱31╱1╱ // 0x435 @0x6
0x042f…0479 at0007 = ╱30╱0╱ // 0x436 @0x7
0x042f…0479 at0008 = ╱ef╱$╱ // 0x437 @0x8
0x042f…0479 at0009 = ╱ec╱,╱ // 0x438 @0x9
0x042f…0479 at000a = ╱49╱I╱ // 0x439 @0xa
0x042f…0479 at000b = ╱f0╱:╱ // 0x43a @0xb
0x042f…0479 at000c = ╱54╱T╱ // 0x43b @0xc
0x042f…0479 at000d = ╱ed╱(╱ // 0x43c @0xd
0x042f…0479 at000e = ╱48╱H╱ // 0x43d @0xe
0x042f…0479 at000f = ╱ec╱,╱ // 0x43e @0xf
0x042f…0479 at0010 = ╱45╱E╱ // 0x43f @0x10
0x042f…0479 at0011 = ╱ee╱)╱ // 0x440 @0x11
0x042f…0479 at0012 = ╱ec╱,╱ // 0x441 @0x12
0x042f…0479 at0013 = ╱54╱T╱ // 0x442 @0x13
0x042f…0479 at0014 = ╱ed╱(╱ // 0x443 @0x14
0x042f…0479 at0015 = ╱48╱H╱ // 0x444 @0x15
0x042f…0479 at0016 = ╱ec╱,╱ // 0x445 @0x16
0x042f…0479 at0017 = ╱47╱G╱ // 0x446 @0x17
0x042f…0479 at0018 = ╱ee╱)╱ // 0x447 @0x18
0x042f…0479 at0019 = ╱ec╱,╱ // 0x448 @0x19
0x042f…0479 at001a = ╱54╱T╱ // 0x449 @0x1a
0x042f…0479 at001b = ╱ed╱(╱ // 0x44a @0x1b
0x042f…0479 at001c = ╱48╱H╱ // 0x44b @0x1c
0x042f…0479 at001d = ╱31╱1╱ // 0x44c @0x1d
0x042f…0479 at001e = ╱ec╱,╱ // 0x44d @0x1e
0x042f…0479 at001f = ╱45╱E╱ // 0x44e @0x1f
0x042f…0479 at0020 = ╱ee╱)╱ // 0x44f @0x20
0x042f…0479 at0021 = ╱ec╱,╱ // 0x450 @0x21
0x042f…0479 at0022 = ╱54╱T╱ // 0x451 @0x22
0x042f…0479 at0023 = ╱ed╱(╱ // 0x452 @0x23
0x042f…0479 at0024 = ╱48╱H╱ // 0x453 @0x24
0x042f…0479 at0025 = ╱31╱1╱ // 0x454 @0x25
0x042f…0479 at0026 = ╱ec╱,╱ // 0x455 @0x26
0x042f…0479 at0027 = ╱47╱G╱ // 0x456 @0x27
0x042f…0479 at0028 = ╱ee╱)╱ // 0x457 @0x28
0x042f…0479 at0029 = ╱ec╱,╱ // 0x458 @0x29
0x042f…0479 at002a = ╱54╱T╱ // 0x459 @0x2a
0x042f…0479 at002b = ╱ed╱(╱ // 0x45a @0x2b
0x042f…0479 at002c = ╱48╱H╱ // 0x45b @0x2c
0x042f…0479 at002d = ╱32╱2╱ // 0x45c @0x2d
0x042f…0479 at002e = ╱ec╱,╱ // 0x45d @0x2e
0x042f…0479 at002f = ╱45╱E╱ // 0x45e @0x2f
0x042f…0479 at0030 = ╱ee╱)╱ // 0x45f @0x30
0x042f…0479 at0031 = ╱ec╱,╱ // 0x460 @0x31
0x042f…0479 at0032 = ╱54╱T╱ // 0x461 @0x32
0x042f…0479 at0033 = ╱ed╱(╱ // 0x462 @0x33
0x042f…0479 at0034 = ╱48╱H╱ // 0x463 @0x34
0x042f…0479 at0035 = ╱32╱2╱ // 0x464 @0x35
0x042f…0479 at0036 = ╱ec╱,╱ // 0x465 @0x36
0x042f…0479 at0037 = ╱47╱G╱ // 0x466 @0x37
0x042f…0479 at0038 = ╱ee╱)╱ // 0x467 @0x38
0x042f…0479 at0039 = ╱ec╱,╱ // 0x468 @0x39
0x042f…0479 at003a = ╱54╱T╱ // 0x469 @0x3a
0x042f…0479 at003b = ╱ed╱(╱ // 0x46a @0x3b
0x042f…0479 at003c = ╱48╱H╱ // 0x46b @0x3c
0x042f…0479 at003d = ╱33╱3╱ // 0x46c @0x3d
0x042f…0479 at003e = ╱ec╱,╱ // 0x46d @0x3e
0x042f…0479 at003f = ╱45╱E╱ // 0x46e @0x3f
0x042f…0479 at0040 = ╱ee╱)╱ // 0x46f @0x40
0x042f…0479 at0041 = ╱ec╱,╱ // 0x470 @0x41
0x042f…0479 at0042 = ╱54╱T╱ // 0x471 @0x42
0x042f…0479 at0043 = ╱ed╱(╱ // 0x472 @0x43
0x042f…0479 at0044 = ╱48╱H╱ // 0x473 @0x44
0x042f…0479 at0045 = ╱33╱3╱ // 0x474 @0x45
0x042f…0479 at0046 = ╱ec╱,╱ // 0x475 @0x46
0x042f…0479 at0047 = ╱47╱G╱ // 0x476 @0x47
0x042f…0479 at0048 = ╱ee╱)╱ // 0x477 @0x48
0x042f…0479 at0049 = EOL // 0x478 @0x49
0x042f…0479 }
0x0479…048d 91e4 0390 EXEC FEJL(E,E,L10$)
0x0479…048d LineComalBin {
0x0479…048d ptr = 0x91e4 // 0x479 @0x0
0x0479…048d lno = 0x0186 // 0x47b @0x2
0x0479…048d at0004 = ╱9d╱ EXEC ╱ // 0x47d @0x4
0x0479…048d at0005 = ╱46╱F╱ // 0x47e @0x5
0x0479…048d at0006 = ╱45╱E╱ // 0x47f @0x6
0x0479…048d at0007 = ╱4a╱J╱ // 0x480 @0x7
0x0479…048d at0008 = ╱4c╱L╱ // 0x481 @0x8
0x0479…048d at0009 = ╱ed╱(╱ // 0x482 @0x9
0x0479…048d at000a = ╱45╱E╱ // 0x483 @0xa
0x0479…048d at000b = ╱ec╱,╱ // 0x484 @0xb
0x0479…048d at000c = ╱45╱E╱ // 0x485 @0xc
0x0479…048d at000d = ╱ec╱,╱ // 0x486 @0xd
0x0479…048d at000e = ╱4c╱L╱ // 0x487 @0xe
0x0479…048d at000f = ╱31╱1╱ // 0x488 @0xf
0x0479…048d at0010 = ╱30╱0╱ // 0x489 @0x10
0x0479…048d at0011 = ╱ef╱$╱ // 0x48a @0x11
0x0479…048d at0012 = ╱ee╱)╱ // 0x48b @0x12
0x0479…048d at0013 = EOL // 0x48c @0x13
0x0479…048d }
0x048d…0494 91eb 0400 NEXT I
0x048d…0494 LineComalBin {
0x048d…0494 ptr = 0x91eb // 0x48d @0x0
0x048d…0494 lno = 0x0190 // 0x48f @0x2
0x048d…0494 at0004 = ╱84╱ NEXT ╱ // 0x491 @0x4
0x048d…0494 at0005 = ╱49╱I╱ // 0x492 @0x5
0x048d…0494 at0006 = EOL // 0x493 @0x6
0x048d…0494 }
0x0494…049a 91f1 0410 ENDPROC
0x0494…049a LineComalBin {
0x0494…049a ptr = 0x91f1 // 0x494 @0x0
0x0494…049a lno = 0x019a // 0x496 @0x2
0x0494…049a at0004 = ╱9f╱ ENDPROC ╱ // 0x498 @0x4
0x0494…049a at0005 = EOL // 0x499 @0x5
0x0494…049a }
0x049a…04a9 9200 0420 PROC HENTKPOST
0x049a…04a9 LineComalBin {
0x049a…04a9 ptr = 0x9200 // 0x49a @0x0
0x049a…04a9 lno = 0x01a4 // 0x49c @0x2
0x049a…04a9 at0004 = ╱9e╱ PROC ╱ // 0x49e @0x4
0x049a…04a9 at0005 = ╱48╱H╱ // 0x49f @0x5
0x049a…04a9 at0006 = ╱45╱E╱ // 0x4a0 @0x6
0x049a…04a9 at0007 = ╱4e╱N╱ // 0x4a1 @0x7
0x049a…04a9 at0008 = ╱54╱T╱ // 0x4a2 @0x8
0x049a…04a9 at0009 = ╱4b╱K╱ // 0x4a3 @0x9
0x049a…04a9 at000a = ╱50╱P╱ // 0x4a4 @0xa
0x049a…04a9 at000b = ╱4f╱O╱ // 0x4a5 @0xb
0x049a…04a9 at000c = ╱53╱S╱ // 0x4a6 @0xc
0x049a…04a9 at000d = ╱54╱T╱ // 0x4a7 @0xd
0x049a…04a9 at000e = EOL // 0x4a8 @0xe
0x049a…04a9 }
0x04a9…04bd 9214 0430 S=KTAB(KPIL3,G)
0x04a9…04bd LineComalBin {
0x04a9…04bd ptr = 0x9214 // 0x4a9 @0x0
0x04a9…04bd lno = 0x01ae // 0x4ab @0x2
0x04a9…04bd at0004 = ╱53╱S╱ // 0x4ad @0x4
0x04a9…04bd at0005 = ╱dc╱=╱ // 0x4ae @0x5
0x04a9…04bd at0006 = ╱4b╱K╱ // 0x4af @0x6
0x04a9…04bd at0007 = ╱54╱T╱ // 0x4b0 @0x7
0x04a9…04bd at0008 = ╱41╱A╱ // 0x4b1 @0x8
0x04a9…04bd at0009 = ╱42╱B╱ // 0x4b2 @0x9
0x04a9…04bd at000a = ╱ed╱(╱ // 0x4b3 @0xa
0x04a9…04bd at000b = ╱4b╱K╱ // 0x4b4 @0xb
0x04a9…04bd at000c = ╱50╱P╱ // 0x4b5 @0xc
0x04a9…04bd at000d = ╱49╱I╱ // 0x4b6 @0xd
0x04a9…04bd at000e = ╱4c╱L╱ // 0x4b7 @0xe
0x04a9…04bd at000f = ╱33╱3╱ // 0x4b8 @0xf
0x04a9…04bd at0010 = ╱ec╱,╱ // 0x4b9 @0x10
0x04a9…04bd at0011 = ╱47╱G╱ // 0x4ba @0x11
0x04a9…04bd at0012 = ╱ee╱)╱ // 0x4bb @0x12
0x04a9…04bd at0013 = EOL // 0x4bc @0x13
0x04a9…04bd }
0x04bd…04e0 9237 0440 GET K3$,S:KRENR,KRENAVN$,KREGADE$
0x04bd…04e0 LineComalBin {
0x04bd…04e0 ptr = 0x9237 // 0x4bd @0x0
0x04bd…04e0 lno = 0x01b8 // 0x4bf @0x2
0x04bd…04e0 at0004 = ╱a9╱ GET ╱ // 0x4c1 @0x4
0x04bd…04e0 at0005 = ╱4b╱K╱ // 0x4c2 @0x5
0x04bd…04e0 at0006 = ╱33╱3╱ // 0x4c3 @0x6
0x04bd…04e0 at0007 = ╱ef╱$╱ // 0x4c4 @0x7
0x04bd…04e0 at0008 = ╱ec╱,╱ // 0x4c5 @0x8
0x04bd…04e0 at0009 = ╱53╱S╱ // 0x4c6 @0x9
0x04bd…04e0 at000a = ╱f0╱:╱ // 0x4c7 @0xa
0x04bd…04e0 at000b = ╱4b╱K╱ // 0x4c8 @0xb
0x04bd…04e0 at000c = ╱52╱R╱ // 0x4c9 @0xc
0x04bd…04e0 at000d = ╱45╱E╱ // 0x4ca @0xd
0x04bd…04e0 at000e = ╱4e╱N╱ // 0x4cb @0xe
0x04bd…04e0 at000f = ╱52╱R╱ // 0x4cc @0xf
0x04bd…04e0 at0010 = ╱ec╱,╱ // 0x4cd @0x10
0x04bd…04e0 at0011 = ╱4b╱K╱ // 0x4ce @0x11
0x04bd…04e0 at0012 = ╱52╱R╱ // 0x4cf @0x12
0x04bd…04e0 at0013 = ╱45╱E╱ // 0x4d0 @0x13
0x04bd…04e0 at0014 = ╱4e╱N╱ // 0x4d1 @0x14
0x04bd…04e0 at0015 = ╱41╱A╱ // 0x4d2 @0x15
0x04bd…04e0 at0016 = ╱56╱V╱ // 0x4d3 @0x16
0x04bd…04e0 at0017 = ╱4e╱N╱ // 0x4d4 @0x17
0x04bd…04e0 at0018 = ╱ef╱$╱ // 0x4d5 @0x18
0x04bd…04e0 at0019 = ╱ec╱,╱ // 0x4d6 @0x19
0x04bd…04e0 at001a = ╱4b╱K╱ // 0x4d7 @0x1a
0x04bd…04e0 at001b = ╱52╱R╱ // 0x4d8 @0x1b
0x04bd…04e0 at001c = ╱45╱E╱ // 0x4d9 @0x1c
0x04bd…04e0 at001d = ╱47╱G╱ // 0x4da @0x1d
0x04bd…04e0 at001e = ╱41╱A╱ // 0x4db @0x1e
0x04bd…04e0 at001f = ╱44╱D╱ // 0x4dc @0x1f
0x04bd…04e0 at0020 = ╱45╱E╱ // 0x4dd @0x20
0x04bd…04e0 at0021 = ╱ef╱$╱ // 0x4de @0x21
0x04bd…04e0 at0022 = EOL // 0x4df @0x22
0x04bd…04e0 }
0x04e0…04f8 924f 0450 EXEC FEJL(8,G,K3$)
0x04e0…04f8 LineComalBin {
0x04e0…04f8 ptr = 0x924f // 0x4e0 @0x0
0x04e0…04f8 lno = 0x01c2 // 0x4e2 @0x2
0x04e0…04f8 at0004 = ╱9d╱ EXEC ╱ // 0x4e4 @0x4
0x04e0…04f8 at0005 = ╱46╱F╱ // 0x4e5 @0x5
0x04e0…04f8 at0006 = ╱45╱E╱ // 0x4e6 @0x6
0x04e0…04f8 at0007 = ╱4a╱J╱ // 0x4e7 @0x7
0x04e0…04f8 at0008 = ╱4c╱L╱ // 0x4e8 @0x8
0x04e0…04f8 at0009 = ╱ed╱(╱ // 0x4e9 @0x9
0x04e0…04f8 at000a = ╱38╱8╱ // 0x4ea @0xa
0x04e0…04f8 at000b = ╱fe00008004╱ // 0x4eb @0xb
0x04e0…04f8 at0010 = ╱ec╱,╱ // 0x4f0 @0x10
0x04e0…04f8 at0011 = ╱47╱G╱ // 0x4f1 @0x11
0x04e0…04f8 at0012 = ╱ec╱,╱ // 0x4f2 @0x12
0x04e0…04f8 at0013 = ╱4b╱K╱ // 0x4f3 @0x13
0x04e0…04f8 at0014 = ╱33╱3╱ // 0x4f4 @0x14
0x04e0…04f8 at0015 = ╱ef╱$╱ // 0x4f5 @0x15
0x04e0…04f8 at0016 = ╱ee╱)╱ // 0x4f6 @0x16
0x04e0…04f8 at0017 = EOL // 0x4f7 @0x17
0x04e0…04f8 }
0x04f8…0536 928d 0460 GET K3$,S+E:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$
0x04f8…0536 LineComalBin {
0x04f8…0536 ptr = 0x928d // 0x4f8 @0x0
0x04f8…0536 lno = 0x01cc // 0x4fa @0x2
0x04f8…0536 at0004 = ╱a9╱ GET ╱ // 0x4fc @0x4
0x04f8…0536 at0005 = ╱4b╱K╱ // 0x4fd @0x5
0x04f8…0536 at0006 = ╱33╱3╱ // 0x4fe @0x6
0x04f8…0536 at0007 = ╱ef╱$╱ // 0x4ff @0x7
0x04f8…0536 at0008 = ╱ec╱,╱ // 0x500 @0x8
0x04f8…0536 at0009 = ╱53╱S╱ // 0x501 @0x9
0x04f8…0536 at000a = ╱e2╱+╱ // 0x502 @0xa
0x04f8…0536 at000b = ╱45╱E╱ // 0x503 @0xb
0x04f8…0536 at000c = ╱f0╱:╱ // 0x504 @0xc
0x04f8…0536 at000d = ╱4b╱K╱ // 0x505 @0xd
0x04f8…0536 at000e = ╱52╱R╱ // 0x506 @0xe
0x04f8…0536 at000f = ╱45╱E╱ // 0x507 @0xf
0x04f8…0536 at0010 = ╱42╱B╱ // 0x508 @0x10
0x04f8…0536 at0011 = ╱59╱Y╱ // 0x509 @0x11
0x04f8…0536 at0012 = ╱ef╱$╱ // 0x50a @0x12
0x04f8…0536 at0013 = ╱ec╱,╱ // 0x50b @0x13
0x04f8…0536 at0014 = ╱4b╱K╱ // 0x50c @0x14
0x04f8…0536 at0015 = ╱52╱R╱ // 0x50d @0x15
0x04f8…0536 at0016 = ╱45╱E╱ // 0x50e @0x16
0x04f8…0536 at0017 = ╱4c╱L╱ // 0x50f @0x17
0x04f8…0536 at0018 = ╱4b╱K╱ // 0x510 @0x18
0x04f8…0536 at0019 = ╱ef╱$╱ // 0x511 @0x19
0x04f8…0536 at001a = ╱ec╱,╱ // 0x512 @0x1a
0x04f8…0536 at001b = ╱4b╱K╱ // 0x513 @0x1b
0x04f8…0536 at001c = ╱52╱R╱ // 0x514 @0x1c
0x04f8…0536 at001d = ╱45╱E╱ // 0x515 @0x1d
0x04f8…0536 at001e = ╱47╱G╱ // 0x516 @0x1e
0x04f8…0536 at001f = ╱52╱R╱ // 0x517 @0x1f
0x04f8…0536 at0020 = ╱ef╱$╱ // 0x518 @0x20
0x04f8…0536 at0021 = ╱ec╱,╱ // 0x519 @0x21
0x04f8…0536 at0022 = ╱4b╱K╱ // 0x51a @0x22
0x04f8…0536 at0023 = ╱52╱R╱ // 0x51b @0x23
0x04f8…0536 at0024 = ╱45╱E╱ // 0x51c @0x24
0x04f8…0536 at0025 = ╱50╱P╱ // 0x51d @0x25
0x04f8…0536 at0026 = ╱4f╱O╱ // 0x51e @0x26
0x04f8…0536 at0027 = ╱53╱S╱ // 0x51f @0x27
0x04f8…0536 at0028 = ╱54╱T╱ // 0x520 @0x28
0x04f8…0536 at0029 = ╱4e╱N╱ // 0x521 @0x29
0x04f8…0536 at002a = ╱52╱R╱ // 0x522 @0x2a
0x04f8…0536 at002b = ╱ec╱,╱ // 0x523 @0x2b
0x04f8…0536 at002c = ╱4b╱K╱ // 0x524 @0x2c
0x04f8…0536 at002d = ╱53╱S╱ // 0x525 @0x2d
0x04f8…0536 at002e = ╱41╱A╱ // 0x526 @0x2e
0x04f8…0536 at002f = ╱4c╱L╱ // 0x527 @0x2f
0x04f8…0536 at0030 = ╱44╱D╱ // 0x528 @0x30
0x04f8…0536 at0031 = ╱4f╱O╱ // 0x529 @0x31
0x04f8…0536 at0032 = ╱31╱1╱ // 0x52a @0x32
0x04f8…0536 at0033 = ╱ef╱$╱ // 0x52b @0x33
0x04f8…0536 at0034 = ╱ec╱,╱ // 0x52c @0x34
0x04f8…0536 at0035 = ╱4b╱K╱ // 0x52d @0x35
0x04f8…0536 at0036 = ╱53╱S╱ // 0x52e @0x36
0x04f8…0536 at0037 = ╱41╱A╱ // 0x52f @0x37
0x04f8…0536 at0038 = ╱4c╱L╱ // 0x530 @0x38
0x04f8…0536 at0039 = ╱44╱D╱ // 0x531 @0x39
0x04f8…0536 at003a = ╱4f╱O╱ // 0x532 @0x3a
0x04f8…0536 at003b = ╱32╱2╱ // 0x533 @0x3b
0x04f8…0536 at003c = ╱ef╱$╱ // 0x534 @0x3c
0x04f8…0536 at003d = EOL // 0x535 @0x3d
0x04f8…0536 }
0x0536…054e 92a5 0470 EXEC FEJL(8,V,K3$)
0x0536…054e LineComalBin {
0x0536…054e ptr = 0x92a5 // 0x536 @0x0
0x0536…054e lno = 0x01d6 // 0x538 @0x2
0x0536…054e at0004 = ╱9d╱ EXEC ╱ // 0x53a @0x4
0x0536…054e at0005 = ╱46╱F╱ // 0x53b @0x5
0x0536…054e at0006 = ╱45╱E╱ // 0x53c @0x6
0x0536…054e at0007 = ╱4a╱J╱ // 0x53d @0x7
0x0536…054e at0008 = ╱4c╱L╱ // 0x53e @0x8
0x0536…054e at0009 = ╱ed╱(╱ // 0x53f @0x9
0x0536…054e at000a = ╱38╱8╱ // 0x540 @0xa
0x0536…054e at000b = ╱fe00008004╱ // 0x541 @0xb
0x0536…054e at0010 = ╱ec╱,╱ // 0x546 @0x10
0x0536…054e at0011 = ╱56╱V╱ // 0x547 @0x11
0x0536…054e at0012 = ╱ec╱,╱ // 0x548 @0x12
0x0536…054e at0013 = ╱4b╱K╱ // 0x549 @0x13
0x0536…054e at0014 = ╱33╱3╱ // 0x54a @0x14
0x0536…054e at0015 = ╱ef╱$╱ // 0x54b @0x15
0x0536…054e at0016 = ╱ee╱)╱ // 0x54c @0x16
0x0536…054e at0017 = EOL // 0x54d @0x17
0x0536…054e }
0x054e…0554 92ab 0480 ENDPROC
0x054e…0554 LineComalBin {
0x054e…0554 ptr = 0x92ab // 0x54e @0x0
0x054e…0554 lno = 0x01e0 // 0x550 @0x2
0x054e…0554 at0004 = ╱9f╱ ENDPROC ╱ // 0x552 @0x4
0x054e…0554 at0005 = EOL // 0x553 @0x5
0x054e…0554 }
0x0554…0571 92c8 0490 PROC TUD(BLB,UBLB,TEGN,STØR)
0x0554…0571 LineComalBin {
0x0554…0571 ptr = 0x92c8 // 0x554 @0x0
0x0554…0571 lno = 0x01ea // 0x556 @0x2
0x0554…0571 at0004 = ╱9e╱ PROC ╱ // 0x558 @0x4
0x0554…0571 at0005 = ╱54╱T╱ // 0x559 @0x5
0x0554…0571 at0006 = ╱55╱U╱ // 0x55a @0x6
0x0554…0571 at0007 = ╱44╱D╱ // 0x55b @0x7
0x0554…0571 at0008 = ╱ed╱(╱ // 0x55c @0x8
0x0554…0571 at0009 = ╱42╱B╱ // 0x55d @0x9
0x0554…0571 at000a = ╱4c╱L╱ // 0x55e @0xa
0x0554…0571 at000b = ╱42╱B╱ // 0x55f @0xb
0x0554…0571 at000c = ╱ec╱,╱ // 0x560 @0xc
0x0554…0571 at000d = ╱55╱U╱ // 0x561 @0xd
0x0554…0571 at000e = ╱42╱B╱ // 0x562 @0xe
0x0554…0571 at000f = ╱4c╱L╱ // 0x563 @0xf
0x0554…0571 at0010 = ╱42╱B╱ // 0x564 @0x10
0x0554…0571 at0011 = ╱ec╱,╱ // 0x565 @0x11
0x0554…0571 at0012 = ╱54╱T╱ // 0x566 @0x12
0x0554…0571 at0013 = ╱45╱E╱ // 0x567 @0x13
0x0554…0571 at0014 = ╱47╱G╱ // 0x568 @0x14
0x0554…0571 at0015 = ╱4e╱N╱ // 0x569 @0x15
0x0554…0571 at0016 = ╱ec╱,╱ // 0x56a @0x16
0x0554…0571 at0017 = ╱53╱S╱ // 0x56b @0x17
0x0554…0571 at0018 = ╱54╱T╱ // 0x56c @0x18
0x0554…0571 at0019 = ╱5c╱Ø╱ // 0x56d @0x19
0x0554…0571 at001a = ╱52╱R╱ // 0x56e @0x1a
0x0554…0571 at001b = ╱ee╱)╱ // 0x56f @0x1b
0x0554…0571 at001c = EOL // 0x570 @0x1c
0x0554…0571 }
0x0571…0593 92ea 0500 EXEC CALC(5,BLB$,TAH$,UBLB$)
0x0571…0593 LineComalBin {
0x0571…0593 ptr = 0x92ea // 0x571 @0x0
0x0571…0593 lno = 0x01f4 // 0x573 @0x2
0x0571…0593 at0004 = ╱9d╱ EXEC ╱ // 0x575 @0x4
0x0571…0593 at0005 = ╱43╱C╱ // 0x576 @0x5
0x0571…0593 at0006 = ╱41╱A╱ // 0x577 @0x6
0x0571…0593 at0007 = ╱4c╱L╱ // 0x578 @0x7
0x0571…0593 at0008 = ╱43╱C╱ // 0x579 @0x8
0x0571…0593 at0009 = ╱ed╱(╱ // 0x57a @0x9
0x0571…0593 at000a = ╱35╱5╱ // 0x57b @0xa
0x0571…0593 at000b = ╱fe0000a003╱ // 0x57c @0xb
0x0571…0593 at0010 = ╱ec╱,╱ // 0x581 @0x10
0x0571…0593 at0011 = ╱42╱B╱ // 0x582 @0x11
0x0571…0593 at0012 = ╱4c╱L╱ // 0x583 @0x12
0x0571…0593 at0013 = ╱42╱B╱ // 0x584 @0x13
0x0571…0593 at0014 = ╱ef╱$╱ // 0x585 @0x14
0x0571…0593 at0015 = ╱ec╱,╱ // 0x586 @0x15
0x0571…0593 at0016 = ╱54╱T╱ // 0x587 @0x16
0x0571…0593 at0017 = ╱41╱A╱ // 0x588 @0x17
0x0571…0593 at0018 = ╱48╱H╱ // 0x589 @0x18
0x0571…0593 at0019 = ╱ef╱$╱ // 0x58a @0x19
0x0571…0593 at001a = ╱ec╱,╱ // 0x58b @0x1a
0x0571…0593 at001b = ╱55╱U╱ // 0x58c @0x1b
0x0571…0593 at001c = ╱42╱B╱ // 0x58d @0x1c
0x0571…0593 at001d = ╱4c╱L╱ // 0x58e @0x1d
0x0571…0593 at001e = ╱42╱B╱ // 0x58f @0x1e
0x0571…0593 at001f = ╱ef╱$╱ // 0x590 @0x1f
0x0571…0593 at0020 = ╱ee╱)╱ // 0x591 @0x20
0x0571…0593 at0021 = EOL // 0x592 @0x21
0x0571…0593 }
0x0593…05a0 92f7 0510 IF TEGN=B THEN
0x0593…05a0 LineComalBin {
0x0593…05a0 ptr = 0x92f7 // 0x593 @0x0
0x0593…05a0 lno = 0x01fe // 0x595 @0x2
0x0593…05a0 at0004 = ╱9c╱ IF ╱ // 0x597 @0x4
0x0593…05a0 at0005 = ╱54╱T╱ // 0x598 @0x5
0x0593…05a0 at0006 = ╱45╱E╱ // 0x599 @0x6
0x0593…05a0 at0007 = ╱47╱G╱ // 0x59a @0x7
0x0593…05a0 at0008 = ╱4e╱N╱ // 0x59b @0x8
0x0593…05a0 at0009 = ╱dc╱=╱ // 0x59c @0x9
0x0593…05a0 at000a = ╱42╱B╱ // 0x59d @0xa
0x0593…05a0 at000b = ╱b6╱ THEN ╱ // 0x59e @0xb
0x0593…05a0 at000c = EOL // 0x59f @0xc
0x0593…05a0 }
0x05a0…05bb 9312 0520 UBLB$=UBLB$(E:13)
0x05a0…05bb LineComalBin {
0x05a0…05bb ptr = 0x9312 // 0x5a0 @0x0
0x05a0…05bb lno = 0x0208 // 0x5a2 @0x2
0x05a0…05bb at0004 = ╱55╱U╱ // 0x5a4 @0x4
0x05a0…05bb at0005 = ╱42╱B╱ // 0x5a5 @0x5
0x05a0…05bb at0006 = ╱4c╱L╱ // 0x5a6 @0x6
0x05a0…05bb at0007 = ╱42╱B╱ // 0x5a7 @0x7
0x05a0…05bb at0008 = ╱ef╱$╱ // 0x5a8 @0x8
0x05a0…05bb at0009 = ╱dc╱=╱ // 0x5a9 @0x9
0x05a0…05bb at000a = ╱55╱U╱ // 0x5aa @0xa
0x05a0…05bb at000b = ╱42╱B╱ // 0x5ab @0xb
0x05a0…05bb at000c = ╱4c╱L╱ // 0x5ac @0xc
0x05a0…05bb at000d = ╱42╱B╱ // 0x5ad @0xd
0x05a0…05bb at000e = ╱ef╱$╱ // 0x5ae @0xe
0x05a0…05bb at000f = ╱ed╱(╱ // 0x5af @0xf
0x05a0…05bb at0010 = ╱45╱E╱ // 0x5b0 @0x10
0x05a0…05bb at0011 = ╱f0╱:╱ // 0x5b1 @0x11
0x05a0…05bb at0012 = ╱31╱1╱ // 0x5b2 @0x12
0x05a0…05bb at0013 = ╱33╱3╱ // 0x5b3 @0x13
0x05a0…05bb at0014 = ╱fe0000d004╱ // 0x5b4 @0x14
0x05a0…05bb at0019 = ╱ee╱)╱ // 0x5b9 @0x19
0x05a0…05bb at001a = EOL // 0x5ba @0x1a
0x05a0…05bb }
0x05bb…05c1 9318 0530 ELSE
0x05bb…05c1 LineComalBin {
0x05bb…05c1 ptr = 0x9318 // 0x5bb @0x0
0x05bb…05c1 lno = 0x0212 // 0x5bd @0x2
0x05bb…05c1 at0004 = ╱9a╱ ELSE ╱ // 0x5bf @0x4
0x05bb…05c1 at0005 = EOL // 0x5c0 @0x5
0x05bb…05c1 }
0x05c1…05e2 9339 0540 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN
0x05c1…05e2 LineComalBin {
0x05c1…05e2 ptr = 0x9339 // 0x5c1 @0x0
0x05c1…05e2 lno = 0x021c // 0x5c3 @0x2
0x05c1…05e2 at0004 = ╱9c╱ IF ╱ // 0x5c5 @0x4
0x05c1…05e2 at0005 = ╱54╱T╱ // 0x5c6 @0x5
0x05c1…05e2 at0006 = ╱45╱E╱ // 0x5c7 @0x6
0x05c1…05e2 at0007 = ╱47╱G╱ // 0x5c8 @0x7
0x05c1…05e2 at0008 = ╱4e╱N╱ // 0x5c9 @0x8
0x05c1…05e2 at0009 = ╱dc╱=╱ // 0x5ca @0x9
0x05c1…05e2 at000a = ╱45╱E╱ // 0x5cb @0xa
0x05c1…05e2 at000b = ╱da╱ AND ╱ // 0x5cc @0xb
0x05c1…05e2 at000c = ╱55╱U╱ // 0x5cd @0xc
0x05c1…05e2 at000d = ╱42╱B╱ // 0x5ce @0xd
0x05c1…05e2 at000e = ╱4c╱L╱ // 0x5cf @0xe
0x05c1…05e2 at000f = ╱42╱B╱ // 0x5d0 @0xf
0x05c1…05e2 at0010 = ╱ef╱$╱ // 0x5d1 @0x10
0x05c1…05e2 at0011 = ╱ed╱(╱ // 0x5d2 @0x11
0x05c1…05e2 at0012 = ╱cc╱LEN╱ // 0x5d3 @0x12
0x05c1…05e2 at0013 = ╱ed╱(╱ // 0x5d4 @0x13
0x05c1…05e2 at0014 = ╱55╱U╱ // 0x5d5 @0x14
0x05c1…05e2 at0015 = ╱42╱B╱ // 0x5d6 @0x15
0x05c1…05e2 at0016 = ╱4c╱L╱ // 0x5d7 @0x16
0x05c1…05e2 at0017 = ╱42╱B╱ // 0x5d8 @0x17
0x05c1…05e2 at0018 = ╱ef╱$╱ // 0x5d9 @0x18
0x05c1…05e2 at0019 = ╱ee╱)╱ // 0x5da @0x19
0x05c1…05e2 at001a = ╱ee╱)╱ // 0x5db @0x1a
0x05c1…05e2 at001b = ╱dc╱=╱ // 0x5dc @0x1b
0x05c1…05e2 at001c = ╱22╱"╱ // 0x5dd @0x1c
0x05c1…05e2 at001d = ╱2b╱+╱ // 0x5de @0x1d
0x05c1…05e2 at001e = ╱22╱"╱ // 0x5df @0x1e
0x05c1…05e2 at001f = ╱b6╱ THEN ╱ // 0x5e0 @0x1f
0x05c1…05e2 at0020 = EOL // 0x5e1 @0x20
0x05c1…05e2 }
0x05e2…05fa 9351 0550 UBLB$(LEN(UBLB$))=" "
0x05e2…05fa LineComalBin {
0x05e2…05fa ptr = 0x9351 // 0x5e2 @0x0
0x05e2…05fa lno = 0x0226 // 0x5e4 @0x2
0x05e2…05fa at0004 = ╱55╱U╱ // 0x5e6 @0x4
0x05e2…05fa at0005 = ╱42╱B╱ // 0x5e7 @0x5
0x05e2…05fa at0006 = ╱4c╱L╱ // 0x5e8 @0x6
0x05e2…05fa at0007 = ╱42╱B╱ // 0x5e9 @0x7
0x05e2…05fa at0008 = ╱ef╱$╱ // 0x5ea @0x8
0x05e2…05fa at0009 = ╱ed╱(╱ // 0x5eb @0x9
0x05e2…05fa at000a = ╱cc╱LEN╱ // 0x5ec @0xa
0x05e2…05fa at000b = ╱ed╱(╱ // 0x5ed @0xb
0x05e2…05fa at000c = ╱55╱U╱ // 0x5ee @0xc
0x05e2…05fa at000d = ╱42╱B╱ // 0x5ef @0xd
0x05e2…05fa at000e = ╱4c╱L╱ // 0x5f0 @0xe
0x05e2…05fa at000f = ╱42╱B╱ // 0x5f1 @0xf
0x05e2…05fa at0010 = ╱ef╱$╱ // 0x5f2 @0x10
0x05e2…05fa at0011 = ╱ee╱)╱ // 0x5f3 @0x11
0x05e2…05fa at0012 = ╱ee╱)╱ // 0x5f4 @0x12
0x05e2…05fa at0013 = ╱dc╱=╱ // 0x5f5 @0x13
0x05e2…05fa at0014 = ╱22╱"╱ // 0x5f6 @0x14
0x05e2…05fa at0015 = ╱20╱…╱ // 0x5f7 @0x15
0x05e2…05fa at0016 = ╱22╱"╱ // 0x5f8 @0x16
0x05e2…05fa at0017 = EOL // 0x5f9 @0x17
0x05e2…05fa }
0x05fa…0600 9357 0560 ENDIF
0x05fa…0600 LineComalBin {
0x05fa…0600 ptr = 0x9357 // 0x5fa @0x0
0x05fa…0600 lno = 0x0230 // 0x5fc @0x2
0x05fa…0600 at0004 = ╱9b╱ ENDIF ╱ // 0x5fe @0x4
0x05fa…0600 at0005 = EOL // 0x5ff @0x5
0x05fa…0600 }
0x0600…0606 935d 0570 ENDIF
0x0600…0606 LineComalBin {
0x0600…0606 ptr = 0x935d // 0x600 @0x0
0x0600…0606 lno = 0x023a // 0x602 @0x2
0x0600…0606 at0004 = ╱9b╱ ENDIF ╱ // 0x604 @0x4
0x0600…0606 at0005 = EOL // 0x605 @0x5
0x0600…0606 }
0x0606…0631 9388 0580 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V)
0x0606…0631 LineComalBin {
0x0606…0631 ptr = 0x9388 // 0x606 @0x0
0x0606…0631 lno = 0x0244 // 0x608 @0x2
0x0606…0631 at0004 = ╱82╱ IF ╱ // 0x60a @0x4
0x0606…0631 at0005 = ╱53╱S╱ // 0x60b @0x5
0x0606…0631 at0006 = ╱54╱T╱ // 0x60c @0x6
0x0606…0631 at0007 = ╱5c╱Ø╱ // 0x60d @0x7
0x0606…0631 at0008 = ╱52╱R╱ // 0x60e @0x8
0x0606…0631 at0009 = ╱dc╱=╱ // 0x60f @0x9
0x0606…0631 at000a = ╱45╱E╱ // 0x610 @0xa
0x0606…0631 at000b = ╱b6╱ THEN ╱ // 0x611 @0xb
0x0606…0631 at000c = ╱55╱U╱ // 0x612 @0xc
0x0606…0631 at000d = ╱42╱B╱ // 0x613 @0xd
0x0606…0631 at000e = ╱4c╱L╱ // 0x614 @0xe
0x0606…0631 at000f = ╱42╱B╱ // 0x615 @0xf
0x0606…0631 at0010 = ╱ef╱$╱ // 0x616 @0x10
0x0606…0631 at0011 = ╱dc╱=╱ // 0x617 @0x11
0x0606…0631 at0012 = ╱55╱U╱ // 0x618 @0x12
0x0606…0631 at0013 = ╱42╱B╱ // 0x619 @0x13
0x0606…0631 at0014 = ╱4c╱L╱ // 0x61a @0x14
0x0606…0631 at0015 = ╱42╱B╱ // 0x61b @0x15
0x0606…0631 at0016 = ╱ef╱$╱ // 0x61c @0x16
0x0606…0631 at0017 = ╱ed╱(╱ // 0x61d @0x17
0x0606…0631 at0018 = ╱34╱4╱ // 0x61e @0x18
0x0606…0631 at0019 = ╱fe00008003╱ // 0x61f @0x19
0x0606…0631 at001e = ╱f0╱:╱ // 0x624 @0x1e
0x0606…0631 at001f = ╱cc╱LEN╱ // 0x625 @0x1f
0x0606…0631 at0020 = ╱ed╱(╱ // 0x626 @0x20
0x0606…0631 at0021 = ╱55╱U╱ // 0x627 @0x21
0x0606…0631 at0022 = ╱42╱B╱ // 0x628 @0x22
0x0606…0631 at0023 = ╱4c╱L╱ // 0x629 @0x23
0x0606…0631 at0024 = ╱42╱B╱ // 0x62a @0x24
0x0606…0631 at0025 = ╱ef╱$╱ // 0x62b @0x25
0x0606…0631 at0026 = ╱ee╱)╱ // 0x62c @0x26
0x0606…0631 at0027 = ╱e3╱-╱ // 0x62d @0x27
0x0606…0631 at0028 = ╱56╱V╱ // 0x62e @0x28
0x0606…0631 at0029 = ╱ee╱)╱ // 0x62f @0x29
0x0606…0631 at002a = EOL // 0x630 @0x2a
0x0606…0631 }
0x0631…0637 938e 0590 ENDPROC
0x0631…0637 LineComalBin {
0x0631…0637 ptr = 0x938e // 0x631 @0x0
0x0631…0637 lno = 0x024e // 0x633 @0x2
0x0631…0637 at0004 = ╱9f╱ ENDPROC ╱ // 0x635 @0x4
0x0631…0637 at0005 = EOL // 0x636 @0x5
0x0631…0637 }
0x0637…0642 9399 0600 PROC HOVED
0x0637…0642 LineComalBin {
0x0637…0642 ptr = 0x9399 // 0x637 @0x0
0x0637…0642 lno = 0x0258 // 0x639 @0x2
0x0637…0642 at0004 = ╱9e╱ PROC ╱ // 0x63b @0x4
0x0637…0642 at0005 = ╱48╱H╱ // 0x63c @0x5
0x0637…0642 at0006 = ╱4f╱O╱ // 0x63d @0x6
0x0637…0642 at0007 = ╱56╱V╱ // 0x63e @0x7
0x0637…0642 at0008 = ╱45╱E╱ // 0x63f @0x8
0x0637…0642 at0009 = ╱44╱D╱ // 0x640 @0x9
0x0637…0642 at000a = EOL // 0x641 @0xa
0x0637…0642 }
0x0642…0660 93b7 0610 IF (LINIE=E OR LINIE=41) THEN
0x0642…0660 LineComalBin {
0x0642…0660 ptr = 0x93b7 // 0x642 @0x0
0x0642…0660 lno = 0x0262 // 0x644 @0x2
0x0642…0660 at0004 = ╱9c╱ IF ╱ // 0x646 @0x4
0x0642…0660 at0005 = ╱ed╱(╱ // 0x647 @0x5
0x0642…0660 at0006 = ╱4c╱L╱ // 0x648 @0x6
0x0642…0660 at0007 = ╱49╱I╱ // 0x649 @0x7
0x0642…0660 at0008 = ╱4e╱N╱ // 0x64a @0x8
0x0642…0660 at0009 = ╱49╱I╱ // 0x64b @0x9
0x0642…0660 at000a = ╱45╱E╱ // 0x64c @0xa
0x0642…0660 at000b = ╱dc╱=╱ // 0x64d @0xb
0x0642…0660 at000c = ╱45╱E╱ // 0x64e @0xc
0x0642…0660 at000d = ╱db╱ OR ╱ // 0x64f @0xd
0x0642…0660 at000e = ╱4c╱L╱ // 0x650 @0xe
0x0642…0660 at000f = ╱49╱I╱ // 0x651 @0xf
0x0642…0660 at0010 = ╱4e╱N╱ // 0x652 @0x10
0x0642…0660 at0011 = ╱49╱I╱ // 0x653 @0x11
0x0642…0660 at0012 = ╱45╱E╱ // 0x654 @0x12
0x0642…0660 at0013 = ╱dc╱=╱ // 0x655 @0x13
0x0642…0660 at0014 = ╱34╱4╱ // 0x656 @0x14
0x0642…0660 at0015 = ╱31╱1╱ // 0x657 @0x15
0x0642…0660 at0016 = ╱fe0000a406╱ // 0x658 @0x16
0x0642…0660 at001b = ╱ee╱)╱ // 0x65d @0x1b
0x0642…0660 at001c = ╱b6╱ THEN ╱ // 0x65e @0x1c
0x0642…0660 at001d = EOL // 0x65f @0x1d
0x0642…0660 }
0x0660…0674 93cb 0620 SIDENR=SIDENR+E
0x0660…0674 LineComalBin {
0x0660…0674 ptr = 0x93cb // 0x660 @0x0
0x0660…0674 lno = 0x026c // 0x662 @0x2
0x0660…0674 at0004 = ╱53╱S╱ // 0x664 @0x4
0x0660…0674 at0005 = ╱49╱I╱ // 0x665 @0x5
0x0660…0674 at0006 = ╱44╱D╱ // 0x666 @0x6
0x0660…0674 at0007 = ╱45╱E╱ // 0x667 @0x7
0x0660…0674 at0008 = ╱4e╱N╱ // 0x668 @0x8
0x0660…0674 at0009 = ╱52╱R╱ // 0x669 @0x9
0x0660…0674 at000a = ╱dc╱=╱ // 0x66a @0xa
0x0660…0674 at000b = ╱53╱S╱ // 0x66b @0xb
0x0660…0674 at000c = ╱49╱I╱ // 0x66c @0xc
0x0660…0674 at000d = ╱44╱D╱ // 0x66d @0xd
0x0660…0674 at000e = ╱45╱E╱ // 0x66e @0xe
0x0660…0674 at000f = ╱4e╱N╱ // 0x66f @0xf
0x0660…0674 at0010 = ╱52╱R╱ // 0x670 @0x10
0x0660…0674 at0011 = ╱e2╱+╱ // 0x671 @0x11
0x0660…0674 at0012 = ╱45╱E╱ // 0x672 @0x12
0x0660…0674 at0013 = EOL // 0x673 @0x13
0x0660…0674 }
0x0674…0687 93de 0630 IF SIDENR>E THEN PRINT " "
0x0674…0687 LineComalBin {
0x0674…0687 ptr = 0x93de // 0x674 @0x0
0x0674…0687 lno = 0x0276 // 0x676 @0x2
0x0674…0687 at0004 = ╱82╱ IF ╱ // 0x678 @0x4
0x0674…0687 at0005 = ╱53╱S╱ // 0x679 @0x5
0x0674…0687 at0006 = ╱49╱I╱ // 0x67a @0x6
0x0674…0687 at0007 = ╱44╱D╱ // 0x67b @0x7
0x0674…0687 at0008 = ╱45╱E╱ // 0x67c @0x8
0x0674…0687 at0009 = ╱4e╱N╱ // 0x67d @0x9
0x0674…0687 at000a = ╱52╱R╱ // 0x67e @0xa
0x0674…0687 at000b = ╱de╱>╱ // 0x67f @0xb
0x0674…0687 at000c = ╱45╱E╱ // 0x680 @0xc
0x0674…0687 at000d = ╱b6╱ THEN ╱ // 0x681 @0xd
0x0674…0687 at000e = ╱92╱ PRINT ╱ // 0x682 @0xe
0x0674…0687 at000f = ╱22╱"╱ // 0x683 @0xf
0x0674…0687 at0010 = ╱20╱…╱ // 0x684 @0x10
0x0674…0687 at0011 = ╱22╱"╱ // 0x685 @0x11
0x0674…0687 at0012 = EOL // 0x686 @0x12
0x0674…0687 }
0x0687…0694 93eb 0640 IF TYPE<>V THEN
0x0687…0694 LineComalBin {
0x0687…0694 ptr = 0x93eb // 0x687 @0x0
0x0687…0694 lno = 0x0280 // 0x689 @0x2
0x0687…0694 at0004 = ╱9c╱ IF ╱ // 0x68b @0x4
0x0687…0694 at0005 = ╱54╱T╱ // 0x68c @0x5
0x0687…0694 at0006 = ╱59╱Y╱ // 0x68d @0x6
0x0687…0694 at0007 = ╱50╱P╱ // 0x68e @0x7
0x0687…0694 at0008 = ╱45╱E╱ // 0x68f @0x8
0x0687…0694 at0009 = ╱e1╱<>╱ // 0x690 @0x9
0x0687…0694 at000a = ╱56╱V╱ // 0x691 @0xa
0x0687…0694 at000b = ╱b6╱ THEN ╱ // 0x692 @0xb
0x0687…0694 at000c = EOL // 0x693 @0xc
0x0687…0694 }
0x0694…06a8 93ff 0650 IF LINIE=41 THEN
0x0694…06a8 LineComalBin {
0x0694…06a8 ptr = 0x93ff // 0x694 @0x0
0x0694…06a8 lno = 0x028a // 0x696 @0x2
0x0694…06a8 at0004 = ╱9c╱ IF ╱ // 0x698 @0x4
0x0694…06a8 at0005 = ╱4c╱L╱ // 0x699 @0x5
0x0694…06a8 at0006 = ╱49╱I╱ // 0x69a @0x6
0x0694…06a8 at0007 = ╱4e╱N╱ // 0x69b @0x7
0x0694…06a8 at0008 = ╱49╱I╱ // 0x69c @0x8
0x0694…06a8 at0009 = ╱45╱E╱ // 0x69d @0x9
0x0694…06a8 at000a = ╱dc╱=╱ // 0x69e @0xa
0x0694…06a8 at000b = ╱34╱4╱ // 0x69f @0xb
0x0694…06a8 at000c = ╱31╱1╱ // 0x6a0 @0xc
0x0694…06a8 at000d = ╱fe0000a406╱ // 0x6a1 @0xd
0x0694…06a8 at0012 = ╱b6╱ THEN ╱ // 0x6a6 @0x12
0x0694…06a8 at0013 = EOL // 0x6a7 @0x13
0x0694…06a8 }
0x06a8…06b1 9408 0660 PRINT " "
0x06a8…06b1 LineComalBin {
0x06a8…06b1 ptr = 0x9408 // 0x6a8 @0x0
0x06a8…06b1 lno = 0x0294 // 0x6aa @0x2
0x06a8…06b1 at0004 = ╱92╱ PRINT ╱ // 0x6ac @0x4
0x06a8…06b1 at0005 = ╱22╱"╱ // 0x6ad @0x5
0x06a8…06b1 at0006 = ╱20╱…╱ // 0x6ae @0x6
0x06a8…06b1 at0007 = ╱22╱"╱ // 0x6af @0x7
0x06a8…06b1 at0008 = EOL // 0x6b0 @0x8
0x06a8…06b1 }
0x06b1…06ba 9411 0670 PRINT " "
0x06b1…06ba LineComalBin {
0x06b1…06ba ptr = 0x9411 // 0x6b1 @0x0
0x06b1…06ba lno = 0x029e // 0x6b3 @0x2
0x06b1…06ba at0004 = ╱92╱ PRINT ╱ // 0x6b5 @0x4
0x06b1…06ba at0005 = ╱22╱"╱ // 0x6b6 @0x5
0x06b1…06ba at0006 = ╱20╱…╱ // 0x6b7 @0x6
0x06b1…06ba at0007 = ╱22╱"╱ // 0x6b8 @0x7
0x06b1…06ba at0008 = EOL // 0x6b9 @0x8
0x06b1…06ba }
0x06ba…06c0 9417 0680 ENDIF
0x06ba…06c0 LineComalBin {
0x06ba…06c0 ptr = 0x9417 // 0x6ba @0x0
0x06ba…06c0 lno = 0x02a8 // 0x6bc @0x2
0x06ba…06c0 at0004 = ╱9b╱ ENDIF ╱ // 0x6be @0x4
0x06ba…06c0 at0005 = EOL // 0x6bf @0x5
0x06ba…06c0 }
0x06c0…06d8 942f 0690 PRINT TAB(67);DV$;" "
0x06c0…06d8 LineComalBin {
0x06c0…06d8 ptr = 0x942f // 0x6c0 @0x0
0x06c0…06d8 lno = 0x02b2 // 0x6c2 @0x2
0x06c0…06d8 at0004 = ╱92╱ PRINT ╱ // 0x6c4 @0x4
0x06c0…06d8 at0005 = ╱d2╱TAB╱ // 0x6c5 @0x5
0x06c0…06d8 at0006 = ╱ed╱(╱ // 0x6c6 @0x6
0x06c0…06d8 at0007 = ╱36╱6╱ // 0x6c7 @0x7
0x06c0…06d8 at0008 = ╱37╱7╱ // 0x6c8 @0x8
0x06c0…06d8 at0009 = ╱fe00008607╱ // 0x6c9 @0x9
0x06c0…06d8 at000e = ╱ee╱)╱ // 0x6ce @0xe
0x06c0…06d8 at000f = ╱eb╱;╱ // 0x6cf @0xf
0x06c0…06d8 at0010 = ╱44╱D╱ // 0x6d0 @0x10
0x06c0…06d8 at0011 = ╱56╱V╱ // 0x6d1 @0x11
0x06c0…06d8 at0012 = ╱ef╱$╱ // 0x6d2 @0x12
0x06c0…06d8 at0013 = ╱eb╱;╱ // 0x6d3 @0x13
0x06c0…06d8 at0014 = ╱22╱"╱ // 0x6d4 @0x14
0x06c0…06d8 at0015 = ╱20╱…╱ // 0x6d5 @0x15
0x06c0…06d8 at0016 = ╱22╱"╱ // 0x6d6 @0x16
0x06c0…06d8 at0017 = EOL // 0x6d7 @0x17
0x06c0…06d8 }
0x06d8…071a 9471 0700 PRINT CHR(14);" Kreditor"+KS$+"liste";CHR(15);TAB(25);
0x06d8…071a LineComalBin {
0x06d8…071a ptr = 0x9471 // 0x6d8 @0x0
0x06d8…071a lno = 0x02bc // 0x6da @0x2
0x06d8…071a at0004 = ╱92╱ PRINT ╱ // 0x6dc @0x4
0x06d8…071a at0005 = ╱cf╱CHR╱ // 0x6dd @0x5
0x06d8…071a at0006 = ╱ed╱(╱ // 0x6de @0x6
0x06d8…071a at0007 = ╱31╱1╱ // 0x6df @0x7
0x06d8…071a at0008 = ╱34╱4╱ // 0x6e0 @0x8
0x06d8…071a at0009 = ╱fe0000e004╱ // 0x6e1 @0x9
0x06d8…071a at000e = ╱ee╱)╱ // 0x6e6 @0xe
0x06d8…071a at000f = ╱eb╱;╱ // 0x6e7 @0xf
0x06d8…071a at0010 = ╱22╱"╱ // 0x6e8 @0x10
0x06d8…071a at0011 = ╱20╱…╱ // 0x6e9 @0x11
0x06d8…071a at0012 = ╱20╱…╱ // 0x6ea @0x12
0x06d8…071a at0013 = ╱20╱…╱ // 0x6eb @0x13
0x06d8…071a at0014 = ╱20╱…╱ // 0x6ec @0x14
0x06d8…071a at0015 = ╱4b╱K╱ // 0x6ed @0x15
0x06d8…071a at0016 = ╱72╱r╱ // 0x6ee @0x16
0x06d8…071a at0017 = ╱65╱e╱ // 0x6ef @0x17
0x06d8…071a at0018 = ╱64╱d╱ // 0x6f0 @0x18
0x06d8…071a at0019 = ╱69╱i╱ // 0x6f1 @0x19
0x06d8…071a at001a = ╱74╱t╱ // 0x6f2 @0x1a
0x06d8…071a at001b = ╱6f╱o╱ // 0x6f3 @0x1b
0x06d8…071a at001c = ╱72╱r╱ // 0x6f4 @0x1c
0x06d8…071a at001d = ╱22╱"╱ // 0x6f5 @0x1d
0x06d8…071a at001e = ╱f1╱+╱ // 0x6f6 @0x1e
0x06d8…071a at001f = ╱4b╱K╱ // 0x6f7 @0x1f
0x06d8…071a at0020 = ╱53╱S╱ // 0x6f8 @0x20
0x06d8…071a at0021 = ╱ef╱$╱ // 0x6f9 @0x21
0x06d8…071a at0022 = ╱f1╱+╱ // 0x6fa @0x22
0x06d8…071a at0023 = ╱22╱"╱ // 0x6fb @0x23
0x06d8…071a at0024 = ╱6c╱l╱ // 0x6fc @0x24
0x06d8…071a at0025 = ╱69╱i╱ // 0x6fd @0x25
0x06d8…071a at0026 = ╱73╱s╱ // 0x6fe @0x26
0x06d8…071a at0027 = ╱74╱t╱ // 0x6ff @0x27
0x06d8…071a at0028 = ╱65╱e╱ // 0x700 @0x28
0x06d8…071a at0029 = ╱22╱"╱ // 0x701 @0x29
0x06d8…071a at002a = ╱eb╱;╱ // 0x702 @0x2a
0x06d8…071a at002b = ╱cf╱CHR╱ // 0x703 @0x2b
0x06d8…071a at002c = ╱ed╱(╱ // 0x704 @0x2c
0x06d8…071a at002d = ╱31╱1╱ // 0x705 @0x2d
0x06d8…071a at002e = ╱35╱5╱ // 0x706 @0x2e
0x06d8…071a at002f = ╱fe0000f004╱ // 0x707 @0x2f
0x06d8…071a at0034 = ╱ee╱)╱ // 0x70c @0x34
0x06d8…071a at0035 = ╱eb╱;╱ // 0x70d @0x35
0x06d8…071a at0036 = ╱d2╱TAB╱ // 0x70e @0x36
0x06d8…071a at0037 = ╱ed╱(╱ // 0x70f @0x37
0x06d8…071a at0038 = ╱32╱2╱ // 0x710 @0x38
0x06d8…071a at0039 = ╱35╱5╱ // 0x711 @0x39
0x06d8…071a at003a = ╱fe0000c805╱ // 0x712 @0x3a
0x06d8…071a at003f = ╱ee╱)╱ // 0x717 @0x3f
0x06d8…071a at0040 = ╱eb╱;╱ // 0x718 @0x40
0x06d8…071a at0041 = EOL // 0x719 @0x41
0x06d8…071a }
0x071a…0720 9477 0710 ELSE
0x071a…0720 LineComalBin {
0x071a…0720 ptr = 0x9477 // 0x71a @0x0
0x071a…0720 lno = 0x02c6 // 0x71c @0x2
0x071a…0720 at0004 = ╱9a╱ ELSE ╱ // 0x71e @0x4
0x071a…0720 at0005 = EOL // 0x71f @0x5
0x071a…0720 }
0x0720…072f 9486 0711 IF SIDENR>E THEN
0x0720…072f LineComalBin {
0x0720…072f ptr = 0x9486 // 0x720 @0x0
0x0720…072f lno = 0x02c7 // 0x722 @0x2
0x0720…072f at0004 = ╱9c╱ IF ╱ // 0x724 @0x4
0x0720…072f at0005 = ╱53╱S╱ // 0x725 @0x5
0x0720…072f at0006 = ╱49╱I╱ // 0x726 @0x6
0x0720…072f at0007 = ╱44╱D╱ // 0x727 @0x7
0x0720…072f at0008 = ╱45╱E╱ // 0x728 @0x8
0x0720…072f at0009 = ╱4e╱N╱ // 0x729 @0x9
0x0720…072f at000a = ╱52╱R╱ // 0x72a @0xa
0x0720…072f at000b = ╱de╱>╱ // 0x72b @0xb
0x0720…072f at000c = ╱45╱E╱ // 0x72c @0xc
0x0720…072f at000d = ╱b6╱ THEN ╱ // 0x72d @0xd
0x0720…072f at000e = EOL // 0x72e @0xe
0x0720…072f }
0x072f…0738 948f 0720 PRINT " "
0x072f…0738 LineComalBin {
0x072f…0738 ptr = 0x948f // 0x72f @0x0
0x072f…0738 lno = 0x02d0 // 0x731 @0x2
0x072f…0738 at0004 = ╱92╱ PRINT ╱ // 0x733 @0x4
0x072f…0738 at0005 = ╱22╱"╱ // 0x734 @0x5
0x072f…0738 at0006 = ╱20╱…╱ // 0x735 @0x6
0x072f…0738 at0007 = ╱22╱"╱ // 0x736 @0x7
0x072f…0738 at0008 = EOL // 0x737 @0x8
0x072f…0738 }
0x0738…0741 (24,) 9498 0730 PRINT " "
0x0738…0741 LineComalBin {
0x0738…0741 ptr = 0x9498 // 0x738 @0x0
0x0738…0741 lno = 0x02da // 0x73a @0x2
0x0738…0741 at0004 = ╱92╱ PRINT ╱ // 0x73c @0x4
0x0738…0741 at0005 = ╱22╱"╱ // 0x73d @0x5
0x0738…0741 at0006 = ╱20╱…╱ // 0x73e @0x6
0x0738…0741 at0007 = ╱22╱"╱ // 0x73f @0x7
0x0738…0741 at0008 = EOL // 0x740 @0x8
0x0738…0741 }
0x0741…0747 949e 0735 ENDIF
0x0741…0747 LineComalBin {
0x0741…0747 ptr = 0x949e // 0x741 @0x0
0x0741…0747 lno = 0x02df // 0x743 @0x2
0x0741…0747 at0004 = ╱9b╱ ENDIF ╱ // 0x745 @0x4
0x0741…0747 at0005 = EOL // 0x746 @0x5
0x0741…0747 }
0x0747…075f 94b6 0740 PRINT TAB(67);DV$;" "
0x0747…075f LineComalBin {
0x0747…075f ptr = 0x94b6 // 0x747 @0x0
0x0747…075f lno = 0x02e4 // 0x749 @0x2
0x0747…075f at0004 = ╱92╱ PRINT ╱ // 0x74b @0x4
0x0747…075f at0005 = ╱d2╱TAB╱ // 0x74c @0x5
0x0747…075f at0006 = ╱ed╱(╱ // 0x74d @0x6
0x0747…075f at0007 = ╱36╱6╱ // 0x74e @0x7
0x0747…075f at0008 = ╱37╱7╱ // 0x74f @0x8
0x0747…075f at0009 = ╱fe00008607╱ // 0x750 @0x9
0x0747…075f at000e = ╱ee╱)╱ // 0x755 @0xe
0x0747…075f at000f = ╱eb╱;╱ // 0x756 @0xf
0x0747…075f at0010 = ╱44╱D╱ // 0x757 @0x10
0x0747…075f at0011 = ╱56╱V╱ // 0x758 @0x11
0x0747…075f at0012 = ╱ef╱$╱ // 0x759 @0x12
0x0747…075f at0013 = ╱eb╱;╱ // 0x75a @0x13
0x0747…075f at0014 = ╱22╱"╱ // 0x75b @0x14
0x0747…075f at0015 = ╱20╱…╱ // 0x75c @0x15
0x0747…075f at0016 = ╱22╱"╱ // 0x75d @0x16
0x0747…075f at0017 = EOL // 0x75e @0x17
0x0747…075f }
0x075f…079c 94f3 0750 PRINT CHR(14);" Forfaldsliste";CHR(15);TAB(25);
0x075f…079c LineComalBin {
0x075f…079c ptr = 0x94f3 // 0x75f @0x0
0x075f…079c lno = 0x02ee // 0x761 @0x2
0x075f…079c at0004 = ╱92╱ PRINT ╱ // 0x763 @0x4
0x075f…079c at0005 = ╱cf╱CHR╱ // 0x764 @0x5
0x075f…079c at0006 = ╱ed╱(╱ // 0x765 @0x6
0x075f…079c at0007 = ╱31╱1╱ // 0x766 @0x7
0x075f…079c at0008 = ╱34╱4╱ // 0x767 @0x8
0x075f…079c at0009 = ╱fe0000e004╱ // 0x768 @0x9
0x075f…079c at000e = ╱ee╱)╱ // 0x76d @0xe
0x075f…079c at000f = ╱eb╱;╱ // 0x76e @0xf
0x075f…079c at0010 = ╱22╱"╱ // 0x76f @0x10
0x075f…079c at0011 = ╱20╱…╱ // 0x770 @0x11
0x075f…079c at0012 = ╱20╱…╱ // 0x771 @0x12
0x075f…079c at0013 = ╱20╱…╱ // 0x772 @0x13
0x075f…079c at0014 = ╱20╱…╱ // 0x773 @0x14
0x075f…079c at0015 = ╱20╱…╱ // 0x774 @0x15
0x075f…079c at0016 = ╱20╱…╱ // 0x775 @0x16
0x075f…079c at0017 = ╱46╱F╱ // 0x776 @0x17
0x075f…079c at0018 = ╱6f╱o╱ // 0x777 @0x18
0x075f…079c at0019 = ╱72╱r╱ // 0x778 @0x19
0x075f…079c at001a = ╱66╱f╱ // 0x779 @0x1a
0x075f…079c at001b = ╱61╱a╱ // 0x77a @0x1b
0x075f…079c at001c = ╱6c╱l╱ // 0x77b @0x1c
0x075f…079c at001d = ╱64╱d╱ // 0x77c @0x1d
0x075f…079c at001e = ╱73╱s╱ // 0x77d @0x1e
0x075f…079c at001f = ╱6c╱l╱ // 0x77e @0x1f
0x075f…079c at0020 = ╱69╱i╱ // 0x77f @0x20
0x075f…079c at0021 = ╱73╱s╱ // 0x780 @0x21
0x075f…079c at0022 = ╱74╱t╱ // 0x781 @0x22
0x075f…079c at0023 = ╱65╱e╱ // 0x782 @0x23
0x075f…079c at0024 = ╱22╱"╱ // 0x783 @0x24
0x075f…079c at0025 = ╱eb╱;╱ // 0x784 @0x25
0x075f…079c at0026 = ╱cf╱CHR╱ // 0x785 @0x26
0x075f…079c at0027 = ╱ed╱(╱ // 0x786 @0x27
0x075f…079c at0028 = ╱31╱1╱ // 0x787 @0x28
0x075f…079c at0029 = ╱35╱5╱ // 0x788 @0x29
0x075f…079c at002a = ╱fe0000f004╱ // 0x789 @0x2a
0x075f…079c at002f = ╱ee╱)╱ // 0x78e @0x2f
0x075f…079c at0030 = ╱eb╱;╱ // 0x78f @0x30
0x075f…079c at0031 = ╱d2╱TAB╱ // 0x790 @0x31
0x075f…079c at0032 = ╱ed╱(╱ // 0x791 @0x32
0x075f…079c at0033 = ╱32╱2╱ // 0x792 @0x33
0x075f…079c at0034 = ╱35╱5╱ // 0x793 @0x34
0x075f…079c at0035 = ╱fe0000c805╱ // 0x794 @0x35
0x075f…079c at003a = ╱ee╱)╱ // 0x799 @0x3a
0x075f…079c at003b = ╱eb╱;╱ // 0x79a @0x3b
0x075f…079c at003c = EOL // 0x79b @0x3c
0x075f…079c }
0x079c…07a2 94f9 0760 ENDIF
0x079c…07a2 LineComalBin {
0x079c…07a2 ptr = 0x94f9 // 0x79c @0x0
0x079c…07a2 lno = 0x02f8 // 0x79e @0x2
0x079c…07a2 at0004 = ╱9b╱ ENDIF ╱ // 0x7a0 @0x4
0x079c…07a2 at0005 = EOL // 0x7a1 @0x5
0x079c…07a2 }
0x07a2…07c1 9518 0770 PRINT TAB(37);"Dato: ";DAT$;
0x07a2…07c1 LineComalBin {
0x07a2…07c1 ptr = 0x9518 // 0x7a2 @0x0
0x07a2…07c1 lno = 0x0302 // 0x7a4 @0x2
0x07a2…07c1 at0004 = ╱92╱ PRINT ╱ // 0x7a6 @0x4
0x07a2…07c1 at0005 = ╱d2╱TAB╱ // 0x7a7 @0x5
0x07a2…07c1 at0006 = ╱ed╱(╱ // 0x7a8 @0x6
0x07a2…07c1 at0007 = ╱33╱3╱ // 0x7a9 @0x7
0x07a2…07c1 at0008 = ╱37╱7╱ // 0x7aa @0x8
0x07a2…07c1 at0009 = ╱fe00009406╱ // 0x7ab @0x9
0x07a2…07c1 at000e = ╱ee╱)╱ // 0x7b0 @0xe
0x07a2…07c1 at000f = ╱eb╱;╱ // 0x7b1 @0xf
0x07a2…07c1 at0010 = ╱22╱"╱ // 0x7b2 @0x10
0x07a2…07c1 at0011 = ╱44╱D╱ // 0x7b3 @0x11
0x07a2…07c1 at0012 = ╱61╱a╱ // 0x7b4 @0x12
0x07a2…07c1 at0013 = ╱74╱t╱ // 0x7b5 @0x13
0x07a2…07c1 at0014 = ╱6f╱o╱ // 0x7b6 @0x14
0x07a2…07c1 at0015 = ╱3a╱:╱ // 0x7b7 @0x15
0x07a2…07c1 at0016 = ╱20╱…╱ // 0x7b8 @0x16
0x07a2…07c1 at0017 = ╱22╱"╱ // 0x7b9 @0x17
0x07a2…07c1 at0018 = ╱eb╱;╱ // 0x7ba @0x18
0x07a2…07c1 at0019 = ╱44╱D╱ // 0x7bb @0x19
0x07a2…07c1 at001a = ╱41╱A╱ // 0x7bc @0x1a
0x07a2…07c1 at001b = ╱54╱T╱ // 0x7bd @0x1b
0x07a2…07c1 at001c = ╱ef╱$╱ // 0x7be @0x1c
0x07a2…07c1 at001d = ╱eb╱;╱ // 0x7bf @0x1d
0x07a2…07c1 at001e = EOL // 0x7c0 @0x1e
0x07a2…07c1 }
0x07c1…07da 9531 0780 PRINT USING " Side:###":SIDENR
0x07c1…07da LineComalBin {
0x07c1…07da ptr = 0x9531 // 0x7c1 @0x0
0x07c1…07da lno = 0x030c // 0x7c3 @0x2
0x07c1…07da at0004 = ╱92╱ PRINT ╱ // 0x7c5 @0x4
0x07c1…07da at0005 = ╱b9╱ USING ╱ // 0x7c6 @0x5
0x07c1…07da at0006 = ╱22╱"╱ // 0x7c7 @0x6
0x07c1…07da at0007 = ╱20╱…╱ // 0x7c8 @0x7
0x07c1…07da at0008 = ╱53╱S╱ // 0x7c9 @0x8
0x07c1…07da at0009 = ╱69╱i╱ // 0x7ca @0x9
0x07c1…07da at000a = ╱64╱d╱ // 0x7cb @0xa
0x07c1…07da at000b = ╱65╱e╱ // 0x7cc @0xb
0x07c1…07da at000c = ╱3a╱:╱ // 0x7cd @0xc
0x07c1…07da at000d = ╱23╱#╱ // 0x7ce @0xd
0x07c1…07da at000e = ╱23╱#╱ // 0x7cf @0xe
0x07c1…07da at000f = ╱23╱#╱ // 0x7d0 @0xf
0x07c1…07da at0010 = ╱22╱"╱ // 0x7d1 @0x10
0x07c1…07da at0011 = ╱f0╱:╱ // 0x7d2 @0x11
0x07c1…07da at0012 = ╱53╱S╱ // 0x7d3 @0x12
0x07c1…07da at0013 = ╱49╱I╱ // 0x7d4 @0x13
0x07c1…07da at0014 = ╱44╱D╱ // 0x7d5 @0x14
0x07c1…07da at0015 = ╱45╱E╱ // 0x7d6 @0x15
0x07c1…07da at0016 = ╱4e╱N╱ // 0x7d7 @0x16
0x07c1…07da at0017 = ╱52╱R╱ // 0x7d8 @0x17
0x07c1…07da at0018 = EOL // 0x7d9 @0x18
0x07c1…07da }
0x07da…07e3 953a 0790 PRINT " "
0x07da…07e3 LineComalBin {
0x07da…07e3 ptr = 0x953a // 0x7da @0x0
0x07da…07e3 lno = 0x0316 // 0x7dc @0x2
0x07da…07e3 at0004 = ╱92╱ PRINT ╱ // 0x7de @0x4
0x07da…07e3 at0005 = ╱22╱"╱ // 0x7df @0x5
0x07da…07e3 at0006 = ╱20╱…╱ // 0x7e0 @0x6
0x07da…07e3 at0007 = ╱22╱"╱ // 0x7e1 @0x7
0x07da…07e3 at0008 = EOL // 0x7e2 @0x8
0x07da…07e3 }
0x07e3…07e9 9540 0800 ENDIF
0x07e3…07e9 LineComalBin {
0x07e3…07e9 ptr = 0x9540 // 0x7e3 @0x0
0x07e3…07e9 lno = 0x0320 // 0x7e5 @0x2
0x07e3…07e9 at0004 = ╱9b╱ ENDIF ╱ // 0x7e7 @0x4
0x07e3…07e9 at0005 = EOL // 0x7e8 @0x5
0x07e3…07e9 }
0x07e9…0817 956e 0810 IF (TYPE=E OR TYPE=V) AND (LINIE=E OR LINIE=41) THEN
0x07e9…0817 LineComalBin {
0x07e9…0817 ptr = 0x956e // 0x7e9 @0x0
0x07e9…0817 lno = 0x032a // 0x7eb @0x2
0x07e9…0817 at0004 = ╱9c╱ IF ╱ // 0x7ed @0x4
0x07e9…0817 at0005 = ╱ed╱(╱ // 0x7ee @0x5
0x07e9…0817 at0006 = ╱54╱T╱ // 0x7ef @0x6
0x07e9…0817 at0007 = ╱59╱Y╱ // 0x7f0 @0x7
0x07e9…0817 at0008 = ╱50╱P╱ // 0x7f1 @0x8
0x07e9…0817 at0009 = ╱45╱E╱ // 0x7f2 @0x9
0x07e9…0817 at000a = ╱dc╱=╱ // 0x7f3 @0xa
0x07e9…0817 at000b = ╱45╱E╱ // 0x7f4 @0xb
0x07e9…0817 at000c = ╱db╱ OR ╱ // 0x7f5 @0xc
0x07e9…0817 at000d = ╱54╱T╱ // 0x7f6 @0xd
0x07e9…0817 at000e = ╱59╱Y╱ // 0x7f7 @0xe
0x07e9…0817 at000f = ╱50╱P╱ // 0x7f8 @0xf
0x07e9…0817 at0010 = ╱45╱E╱ // 0x7f9 @0x10
0x07e9…0817 at0011 = ╱dc╱=╱ // 0x7fa @0x11
0x07e9…0817 at0012 = ╱56╱V╱ // 0x7fb @0x12
0x07e9…0817 at0013 = ╱ee╱)╱ // 0x7fc @0x13
0x07e9…0817 at0014 = ╱da╱ AND ╱ // 0x7fd @0x14
0x07e9…0817 at0015 = ╱ed╱(╱ // 0x7fe @0x15
0x07e9…0817 at0016 = ╱4c╱L╱ // 0x7ff @0x16
0x07e9…0817 at0017 = ╱49╱I╱ // 0x800 @0x17
0x07e9…0817 at0018 = ╱4e╱N╱ // 0x801 @0x18
0x07e9…0817 at0019 = ╱49╱I╱ // 0x802 @0x19
0x07e9…0817 at001a = ╱45╱E╱ // 0x803 @0x1a
0x07e9…0817 at001b = ╱dc╱=╱ // 0x804 @0x1b
0x07e9…0817 at001c = ╱45╱E╱ // 0x805 @0x1c
0x07e9…0817 at001d = ╱db╱ OR ╱ // 0x806 @0x1d
0x07e9…0817 at001e = ╱4c╱L╱ // 0x807 @0x1e
0x07e9…0817 at001f = ╱49╱I╱ // 0x808 @0x1f
0x07e9…0817 at0020 = ╱4e╱N╱ // 0x809 @0x20
0x07e9…0817 at0021 = ╱49╱I╱ // 0x80a @0x21
0x07e9…0817 at0022 = ╱45╱E╱ // 0x80b @0x22
0x07e9…0817 at0023 = ╱dc╱=╱ // 0x80c @0x23
0x07e9…0817 at0024 = ╱34╱4╱ // 0x80d @0x24
0x07e9…0817 at0025 = ╱31╱1╱ // 0x80e @0x25
0x07e9…0817 at0026 = ╱fe0000a406╱ // 0x80f @0x26
0x07e9…0817 at002b = ╱ee╱)╱ // 0x814 @0x2b
0x07e9…0817 at002c = ╱b6╱ THEN ╱ // 0x815 @0x2c
0x07e9…0817 at002d = EOL // 0x816 @0x2d
0x07e9…0817 }
0x0817…085d 95b4 0820 PRINT " KONTO NAVN";TAB(38);"SALDO IALT";TAB(56);"0-30 DAGE";
0x0817…085d LineComalBin {
0x0817…085d ptr = 0x95b4 // 0x817 @0x0
0x0817…085d lno = 0x0334 // 0x819 @0x2
0x0817…085d at0004 = ╱92╱ PRINT ╱ // 0x81b @0x4
0x0817…085d at0005 = ╱22╱"╱ // 0x81c @0x5
0x0817…085d at0006 = ╱20╱…╱ // 0x81d @0x6
0x0817…085d at0007 = ╱4b╱K╱ // 0x81e @0x7
0x0817…085d at0008 = ╱4f╱O╱ // 0x81f @0x8
0x0817…085d at0009 = ╱4e╱N╱ // 0x820 @0x9
0x0817…085d at000a = ╱54╱T╱ // 0x821 @0xa
0x0817…085d at000b = ╱4f╱O╱ // 0x822 @0xb
0x0817…085d at000c = ╱20╱…╱ // 0x823 @0xc
0x0817…085d at000d = ╱20╱…╱ // 0x824 @0xd
0x0817…085d at000e = ╱20╱…╱ // 0x825 @0xe
0x0817…085d at000f = ╱20╱…╱ // 0x826 @0xf
0x0817…085d at0010 = ╱4e╱N╱ // 0x827 @0x10
0x0817…085d at0011 = ╱41╱A╱ // 0x828 @0x11
0x0817…085d at0012 = ╱56╱V╱ // 0x829 @0x12
0x0817…085d at0013 = ╱4e╱N╱ // 0x82a @0x13
0x0817…085d at0014 = ╱22╱"╱ // 0x82b @0x14
0x0817…085d at0015 = ╱eb╱;╱ // 0x82c @0x15
0x0817…085d at0016 = ╱d2╱TAB╱ // 0x82d @0x16
0x0817…085d at0017 = ╱ed╱(╱ // 0x82e @0x17
0x0817…085d at0018 = ╱33╱3╱ // 0x82f @0x18
0x0817…085d at0019 = ╱38╱8╱ // 0x830 @0x19
0x0817…085d at001a = ╱fe00009806╱ // 0x831 @0x1a
0x0817…085d at001f = ╱ee╱)╱ // 0x836 @0x1f
0x0817…085d at0020 = ╱eb╱;╱ // 0x837 @0x20
0x0817…085d at0021 = ╱22╱"╱ // 0x838 @0x21
0x0817…085d at0022 = ╱53╱S╱ // 0x839 @0x22
0x0817…085d at0023 = ╱41╱A╱ // 0x83a @0x23
0x0817…085d at0024 = ╱4c╱L╱ // 0x83b @0x24
0x0817…085d at0025 = ╱44╱D╱ // 0x83c @0x25
0x0817…085d at0026 = ╱4f╱O╱ // 0x83d @0x26
0x0817…085d at0027 = ╱20╱…╱ // 0x83e @0x27
0x0817…085d at0028 = ╱49╱I╱ // 0x83f @0x28
0x0817…085d at0029 = ╱41╱A╱ // 0x840 @0x29
0x0817…085d at002a = ╱4c╱L╱ // 0x841 @0x2a
0x0817…085d at002b = ╱54╱T╱ // 0x842 @0x2b
0x0817…085d at002c = ╱22╱"╱ // 0x843 @0x2c
0x0817…085d at002d = ╱eb╱;╱ // 0x844 @0x2d
0x0817…085d at002e = ╱d2╱TAB╱ // 0x845 @0x2e
0x0817…085d at002f = ╱ed╱(╱ // 0x846 @0x2f
0x0817…085d at0030 = ╱35╱5╱ // 0x847 @0x30
0x0817…085d at0031 = ╱36╱6╱ // 0x848 @0x31
0x0817…085d at0032 = ╱fe0000e006╱ // 0x849 @0x32
0x0817…085d at0037 = ╱ee╱)╱ // 0x84e @0x37
0x0817…085d at0038 = ╱eb╱;╱ // 0x84f @0x38
0x0817…085d at0039 = ╱22╱"╱ // 0x850 @0x39
0x0817…085d at003a = ╱30╱0╱ // 0x851 @0x3a
0x0817…085d at003b = ╱2d╱-╱ // 0x852 @0x3b
0x0817…085d at003c = ╱33╱3╱ // 0x853 @0x3c
0x0817…085d at003d = ╱30╱0╱ // 0x854 @0x3d
0x0817…085d at003e = ╱20╱…╱ // 0x855 @0x3e
0x0817…085d at003f = ╱44╱D╱ // 0x856 @0x3f
0x0817…085d at0040 = ╱41╱A╱ // 0x857 @0x40
0x0817…085d at0041 = ╱47╱G╱ // 0x858 @0x41
0x0817…085d at0042 = ╱45╱E╱ // 0x859 @0x42
0x0817…085d at0043 = ╱22╱"╱ // 0x85a @0x43
0x0817…085d at0044 = ╱eb╱;╱ // 0x85b @0x44
0x0817…085d at0045 = EOL // 0x85c @0x45
0x0817…085d }
0x085d…0875 95cc 0830 PRINT TAB(73);"ÆLDRE"
0x085d…0875 LineComalBin {
0x085d…0875 ptr = 0x95cc // 0x85d @0x0
0x085d…0875 lno = 0x033e // 0x85f @0x2
0x085d…0875 at0004 = ╱92╱ PRINT ╱ // 0x861 @0x4
0x085d…0875 at0005 = ╱d2╱TAB╱ // 0x862 @0x5
0x085d…0875 at0006 = ╱ed╱(╱ // 0x863 @0x6
0x085d…0875 at0007 = ╱37╱7╱ // 0x864 @0x7
0x085d…0875 at0008 = ╱33╱3╱ // 0x865 @0x8
0x085d…0875 at0009 = ╱fe00009207╱ // 0x866 @0x9
0x085d…0875 at000e = ╱ee╱)╱ // 0x86b @0xe
0x085d…0875 at000f = ╱eb╱;╱ // 0x86c @0xf
0x085d…0875 at0010 = ╱22╱"╱ // 0x86d @0x10
0x085d…0875 at0011 = ╱5b╱Æ╱ // 0x86e @0x11
0x085d…0875 at0012 = ╱4c╱L╱ // 0x86f @0x12
0x085d…0875 at0013 = ╱44╱D╱ // 0x870 @0x13
0x085d…0875 at0014 = ╱52╱R╱ // 0x871 @0x14
0x085d…0875 at0015 = ╱45╱E╱ // 0x872 @0x15
0x085d…0875 at0016 = ╱22╱"╱ // 0x873 @0x16
0x085d…0875 at0017 = EOL // 0x874 @0x17
0x085d…0875 }
0x0875…0881 95d8 0840 PRINT STREG$
0x0875…0881 LineComalBin {
0x0875…0881 ptr = 0x95d8 // 0x875 @0x0
0x0875…0881 lno = 0x0348 // 0x877 @0x2
0x0875…0881 at0004 = ╱92╱ PRINT ╱ // 0x879 @0x4
0x0875…0881 at0005 = ╱53╱S╱ // 0x87a @0x5
0x0875…0881 at0006 = ╱54╱T╱ // 0x87b @0x6
0x0875…0881 at0007 = ╱52╱R╱ // 0x87c @0x7
0x0875…0881 at0008 = ╱45╱E╱ // 0x87d @0x8
0x0875…0881 at0009 = ╱47╱G╱ // 0x87e @0x9
0x0875…0881 at000a = ╱ef╱$╱ // 0x87f @0xa
0x0875…0881 at000b = EOL // 0x880 @0xb
0x0875…0881 }
0x0881…0895 95ec 0850 IF TYPE=E THEN LINIE=E
0x0881…0895 LineComalBin {
0x0881…0895 ptr = 0x95ec // 0x881 @0x0
0x0881…0895 lno = 0x0352 // 0x883 @0x2
0x0881…0895 at0004 = ╱82╱ IF ╱ // 0x885 @0x4
0x0881…0895 at0005 = ╱54╱T╱ // 0x886 @0x5
0x0881…0895 at0006 = ╱59╱Y╱ // 0x887 @0x6
0x0881…0895 at0007 = ╱50╱P╱ // 0x888 @0x7
0x0881…0895 at0008 = ╱45╱E╱ // 0x889 @0x8
0x0881…0895 at0009 = ╱dc╱=╱ // 0x88a @0x9
0x0881…0895 at000a = ╱45╱E╱ // 0x88b @0xa
0x0881…0895 at000b = ╱b6╱ THEN ╱ // 0x88c @0xb
0x0881…0895 at000c = ╱4c╱L╱ // 0x88d @0xc
0x0881…0895 at000d = ╱49╱I╱ // 0x88e @0xd
0x0881…0895 at000e = ╱4e╱N╱ // 0x88f @0xe
0x0881…0895 at000f = ╱49╱I╱ // 0x890 @0xf
0x0881…0895 at0010 = ╱45╱E╱ // 0x891 @0x10
0x0881…0895 at0011 = ╱dc╱=╱ // 0x892 @0x11
0x0881…0895 at0012 = ╱45╱E╱ // 0x893 @0x12
0x0881…0895 at0013 = EOL // 0x894 @0x13
0x0881…0895 }
0x0895…08a9 9600 0860 IF TYPE=V THEN LINIE=G
0x0895…08a9 LineComalBin {
0x0895…08a9 ptr = 0x9600 // 0x895 @0x0
0x0895…08a9 lno = 0x035c // 0x897 @0x2
0x0895…08a9 at0004 = ╱82╱ IF ╱ // 0x899 @0x4
0x0895…08a9 at0005 = ╱54╱T╱ // 0x89a @0x5
0x0895…08a9 at0006 = ╱59╱Y╱ // 0x89b @0x6
0x0895…08a9 at0007 = ╱50╱P╱ // 0x89c @0x7
0x0895…08a9 at0008 = ╱45╱E╱ // 0x89d @0x8
0x0895…08a9 at0009 = ╱dc╱=╱ // 0x89e @0x9
0x0895…08a9 at000a = ╱56╱V╱ // 0x89f @0xa
0x0895…08a9 at000b = ╱b6╱ THEN ╱ // 0x8a0 @0xb
0x0895…08a9 at000c = ╱4c╱L╱ // 0x8a1 @0xc
0x0895…08a9 at000d = ╱49╱I╱ // 0x8a2 @0xd
0x0895…08a9 at000e = ╱4e╱N╱ // 0x8a3 @0xe
0x0895…08a9 at000f = ╱49╱I╱ // 0x8a4 @0xf
0x0895…08a9 at0010 = ╱45╱E╱ // 0x8a5 @0x10
0x0895…08a9 at0011 = ╱dc╱=╱ // 0x8a6 @0x11
0x0895…08a9 at0012 = ╱47╱G╱ // 0x8a7 @0x12
0x0895…08a9 at0013 = EOL // 0x8a8 @0x13
0x0895…08a9 }
0x08a9…08af 9606 0870 ENDIF
0x08a9…08af LineComalBin {
0x08a9…08af ptr = 0x9606 // 0x8a9 @0x0
0x08a9…08af lno = 0x0366 // 0x8ab @0x2
0x08a9…08af at0004 = ╱9b╱ ENDIF ╱ // 0x8ad @0x4
0x08a9…08af at0005 = EOL // 0x8ae @0x5
0x08a9…08af }
0x08af…08b5 960c 0880 ENDIF
0x08af…08b5 LineComalBin {
0x08af…08b5 ptr = 0x960c // 0x8af @0x0
0x08af…08b5 lno = 0x0370 // 0x8b1 @0x2
0x08af…08b5 at0004 = ╱9b╱ ENDIF ╱ // 0x8b3 @0x4
0x08af…08b5 at0005 = EOL // 0x8b4 @0x5
0x08af…08b5 }
0x08b5…08da 9631 0890 IF (LINIE=E OR LINIE=41) AND TYPE=G THEN
0x08b5…08da LineComalBin {
0x08b5…08da ptr = 0x9631 // 0x8b5 @0x0
0x08b5…08da lno = 0x037a // 0x8b7 @0x2
0x08b5…08da at0004 = ╱9c╱ IF ╱ // 0x8b9 @0x4
0x08b5…08da at0005 = ╱ed╱(╱ // 0x8ba @0x5
0x08b5…08da at0006 = ╱4c╱L╱ // 0x8bb @0x6
0x08b5…08da at0007 = ╱49╱I╱ // 0x8bc @0x7
0x08b5…08da at0008 = ╱4e╱N╱ // 0x8bd @0x8
0x08b5…08da at0009 = ╱49╱I╱ // 0x8be @0x9
0x08b5…08da at000a = ╱45╱E╱ // 0x8bf @0xa
0x08b5…08da at000b = ╱dc╱=╱ // 0x8c0 @0xb
0x08b5…08da at000c = ╱45╱E╱ // 0x8c1 @0xc
0x08b5…08da at000d = ╱db╱ OR ╱ // 0x8c2 @0xd
0x08b5…08da at000e = ╱4c╱L╱ // 0x8c3 @0xe
0x08b5…08da at000f = ╱49╱I╱ // 0x8c4 @0xf
0x08b5…08da at0010 = ╱4e╱N╱ // 0x8c5 @0x10
0x08b5…08da at0011 = ╱49╱I╱ // 0x8c6 @0x11
0x08b5…08da at0012 = ╱45╱E╱ // 0x8c7 @0x12
0x08b5…08da at0013 = ╱dc╱=╱ // 0x8c8 @0x13
0x08b5…08da at0014 = ╱34╱4╱ // 0x8c9 @0x14
0x08b5…08da at0015 = ╱31╱1╱ // 0x8ca @0x15
0x08b5…08da at0016 = ╱fe0000a406╱ // 0x8cb @0x16
0x08b5…08da at001b = ╱ee╱)╱ // 0x8d0 @0x1b
0x08b5…08da at001c = ╱da╱ AND ╱ // 0x8d1 @0x1c
0x08b5…08da at001d = ╱54╱T╱ // 0x8d2 @0x1d
0x08b5…08da at001e = ╱59╱Y╱ // 0x8d3 @0x1e
0x08b5…08da at001f = ╱50╱P╱ // 0x8d4 @0x1f
0x08b5…08da at0020 = ╱45╱E╱ // 0x8d5 @0x20
0x08b5…08da at0021 = ╱dc╱=╱ // 0x8d6 @0x21
0x08b5…08da at0022 = ╱47╱G╱ // 0x8d7 @0x22
0x08b5…08da at0023 = ╱b6╱ THEN ╱ // 0x8d8 @0x23
0x08b5…08da at0024 = EOL // 0x8d9 @0x24
0x08b5…08da }
0x08da…091c 9673 0900 PRINT " KONTO NAVN";TAB(34);"ADRESSE";TAB(57);"POSTNR BY"
0x08da…091c LineComalBin {
0x08da…091c ptr = 0x9673 // 0x8da @0x0
0x08da…091c lno = 0x0384 // 0x8dc @0x2
0x08da…091c at0004 = ╱92╱ PRINT ╱ // 0x8de @0x4
0x08da…091c at0005 = ╱22╱"╱ // 0x8df @0x5
0x08da…091c at0006 = ╱20╱…╱ // 0x8e0 @0x6
0x08da…091c at0007 = ╱4b╱K╱ // 0x8e1 @0x7
0x08da…091c at0008 = ╱4f╱O╱ // 0x8e2 @0x8
0x08da…091c at0009 = ╱4e╱N╱ // 0x8e3 @0x9
0x08da…091c at000a = ╱54╱T╱ // 0x8e4 @0xa
0x08da…091c at000b = ╱4f╱O╱ // 0x8e5 @0xb
0x08da…091c at000c = ╱20╱…╱ // 0x8e6 @0xc
0x08da…091c at000d = ╱20╱…╱ // 0x8e7 @0xd
0x08da…091c at000e = ╱20╱…╱ // 0x8e8 @0xe
0x08da…091c at000f = ╱4e╱N╱ // 0x8e9 @0xf
0x08da…091c at0010 = ╱41╱A╱ // 0x8ea @0x10
0x08da…091c at0011 = ╱56╱V╱ // 0x8eb @0x11
0x08da…091c at0012 = ╱4e╱N╱ // 0x8ec @0x12
0x08da…091c at0013 = ╱22╱"╱ // 0x8ed @0x13
0x08da…091c at0014 = ╱eb╱;╱ // 0x8ee @0x14
0x08da…091c at0015 = ╱d2╱TAB╱ // 0x8ef @0x15
0x08da…091c at0016 = ╱ed╱(╱ // 0x8f0 @0x16
0x08da…091c at0017 = ╱33╱3╱ // 0x8f1 @0x17
0x08da…091c at0018 = ╱34╱4╱ // 0x8f2 @0x18
0x08da…091c at0019 = ╱fe00008806╱ // 0x8f3 @0x19
0x08da…091c at001e = ╱ee╱)╱ // 0x8f8 @0x1e
0x08da…091c at001f = ╱eb╱;╱ // 0x8f9 @0x1f
0x08da…091c at0020 = ╱22╱"╱ // 0x8fa @0x20
0x08da…091c at0021 = ╱41╱A╱ // 0x8fb @0x21
0x08da…091c at0022 = ╱44╱D╱ // 0x8fc @0x22
0x08da…091c at0023 = ╱52╱R╱ // 0x8fd @0x23
0x08da…091c at0024 = ╱45╱E╱ // 0x8fe @0x24
0x08da…091c at0025 = ╱53╱S╱ // 0x8ff @0x25
0x08da…091c at0026 = ╱53╱S╱ // 0x900 @0x26
0x08da…091c at0027 = ╱45╱E╱ // 0x901 @0x27
0x08da…091c at0028 = ╱22╱"╱ // 0x902 @0x28
0x08da…091c at0029 = ╱eb╱;╱ // 0x903 @0x29
0x08da…091c at002a = ╱d2╱TAB╱ // 0x904 @0x2a
0x08da…091c at002b = ╱ed╱(╱ // 0x905 @0x2b
0x08da…091c at002c = ╱35╱5╱ // 0x906 @0x2c
0x08da…091c at002d = ╱37╱7╱ // 0x907 @0x2d
0x08da…091c at002e = ╱fe0000e406╱ // 0x908 @0x2e
0x08da…091c at0033 = ╱ee╱)╱ // 0x90d @0x33
0x08da…091c at0034 = ╱eb╱;╱ // 0x90e @0x34
0x08da…091c at0035 = ╱22╱"╱ // 0x90f @0x35
0x08da…091c at0036 = ╱50╱P╱ // 0x910 @0x36
0x08da…091c at0037 = ╱4f╱O╱ // 0x911 @0x37
0x08da…091c at0038 = ╱53╱S╱ // 0x912 @0x38
0x08da…091c at0039 = ╱54╱T╱ // 0x913 @0x39
0x08da…091c at003a = ╱4e╱N╱ // 0x914 @0x3a
0x08da…091c at003b = ╱52╱R╱ // 0x915 @0x3b
0x08da…091c at003c = ╱20╱…╱ // 0x916 @0x3c
0x08da…091c at003d = ╱20╱…╱ // 0x917 @0x3d
0x08da…091c at003e = ╱42╱B╱ // 0x918 @0x3e
0x08da…091c at003f = ╱59╱Y╱ // 0x919 @0x3f
0x08da…091c at0040 = ╱22╱"╱ // 0x91a @0x40
0x08da…091c at0041 = EOL // 0x91b @0x41
0x08da…091c }
0x091c…0928 967f 0910 PRINT STREG$
0x091c…0928 LineComalBin {
0x091c…0928 ptr = 0x967f // 0x91c @0x0
0x091c…0928 lno = 0x038e // 0x91e @0x2
0x091c…0928 at0004 = ╱92╱ PRINT ╱ // 0x920 @0x4
0x091c…0928 at0005 = ╱53╱S╱ // 0x921 @0x5
0x091c…0928 at0006 = ╱54╱T╱ // 0x922 @0x6
0x091c…0928 at0007 = ╱52╱R╱ // 0x923 @0x7
0x091c…0928 at0008 = ╱45╱E╱ // 0x924 @0x8
0x091c…0928 at0009 = ╱47╱G╱ // 0x925 @0x9
0x091c…0928 at000a = ╱ef╱$╱ // 0x926 @0xa
0x091c…0928 at000b = EOL // 0x927 @0xb
0x091c…0928 }
0x0928…0934 968b 0920 LINIE=E
0x0928…0934 LineComalBin {
0x0928…0934 ptr = 0x968b // 0x928 @0x0
0x0928…0934 lno = 0x0398 // 0x92a @0x2
0x0928…0934 at0004 = ╱4c╱L╱ // 0x92c @0x4
0x0928…0934 at0005 = ╱49╱I╱ // 0x92d @0x5
0x0928…0934 at0006 = ╱4e╱N╱ // 0x92e @0x6
0x0928…0934 at0007 = ╱49╱I╱ // 0x92f @0x7
0x0928…0934 at0008 = ╱45╱E╱ // 0x930 @0x8
0x0928…0934 at0009 = ╱dc╱=╱ // 0x931 @0x9
0x0928…0934 at000a = ╱45╱E╱ // 0x932 @0xa
0x0928…0934 at000b = EOL // 0x933 @0xb
0x0928…0934 }
0x0934…093a 9691 0930 ENDIF
0x0934…093a LineComalBin {
0x0934…093a ptr = 0x9691 // 0x934 @0x0
0x0934…093a lno = 0x03a2 // 0x936 @0x2
0x0934…093a at0004 = ╱9b╱ ENDIF ╱ // 0x938 @0x4
0x0934…093a at0005 = EOL // 0x939 @0x5
0x0934…093a }
0x093a…0940 9697 0940 ENDPROC
0x093a…0940 LineComalBin {
0x093a…0940 ptr = 0x9697 // 0x93a @0x0
0x093a…0940 lno = 0x03ac // 0x93c @0x2
0x093a…0940 at0004 = ╱9f╱ ENDPROC ╱ // 0x93e @0x4
0x093a…0940 at0005 = EOL // 0x93f @0x5
0x093a…0940 }
0x0940…094a 96a1 0950 PROC BUND
0x0940…094a LineComalBin {
0x0940…094a ptr = 0x96a1 // 0x940 @0x0
0x0940…094a lno = 0x03b6 // 0x942 @0x2
0x0940…094a at0004 = ╱9e╱ PROC ╱ // 0x944 @0x4
0x0940…094a at0005 = ╱42╱B╱ // 0x945 @0x5
0x0940…094a at0006 = ╱55╱U╱ // 0x946 @0x6
0x0940…094a at0007 = ╱4e╱N╱ // 0x947 @0x7
0x0940…094a at0008 = ╱44╱D╱ // 0x948 @0x8
0x0940…094a at0009 = EOL // 0x949 @0x9
0x0940…094a }
0x094a…095b 96b2 0960 IF TYPE=V THEN PRINT " "
0x094a…095b LineComalBin {
0x094a…095b ptr = 0x96b2 // 0x94a @0x0
0x094a…095b lno = 0x03c0 // 0x94c @0x2
0x094a…095b at0004 = ╱82╱ IF ╱ // 0x94e @0x4
0x094a…095b at0005 = ╱54╱T╱ // 0x94f @0x5
0x094a…095b at0006 = ╱59╱Y╱ // 0x950 @0x6
0x094a…095b at0007 = ╱50╱P╱ // 0x951 @0x7
0x094a…095b at0008 = ╱45╱E╱ // 0x952 @0x8
0x094a…095b at0009 = ╱dc╱=╱ // 0x953 @0x9
0x094a…095b at000a = ╱56╱V╱ // 0x954 @0xa
0x094a…095b at000b = ╱b6╱ THEN ╱ // 0x955 @0xb
0x094a…095b at000c = ╱92╱ PRINT ╱ // 0x956 @0xc
0x094a…095b at000d = ╱22╱"╱ // 0x957 @0xd
0x094a…095b at000e = ╱20╱…╱ // 0x958 @0xe
0x094a…095b at000f = ╱22╱"╱ // 0x959 @0xf
0x094a…095b at0010 = EOL // 0x95a @0x10
0x094a…095b }
0x095b…0978 96cf 0970 EXEC TUD(TSALDO1$,TAL1$,E,B)
0x095b…0978 LineComalBin {
0x095b…0978 ptr = 0x96cf // 0x95b @0x0
0x095b…0978 lno = 0x03ca // 0x95d @0x2
0x095b…0978 at0004 = ╱9d╱ EXEC ╱ // 0x95f @0x4
0x095b…0978 at0005 = ╱54╱T╱ // 0x960 @0x5
0x095b…0978 at0006 = ╱55╱U╱ // 0x961 @0x6
0x095b…0978 at0007 = ╱44╱D╱ // 0x962 @0x7
0x095b…0978 at0008 = ╱ed╱(╱ // 0x963 @0x8
0x095b…0978 at0009 = ╱54╱T╱ // 0x964 @0x9
0x095b…0978 at000a = ╱53╱S╱ // 0x965 @0xa
0x095b…0978 at000b = ╱41╱A╱ // 0x966 @0xb
0x095b…0978 at000c = ╱4c╱L╱ // 0x967 @0xc
0x095b…0978 at000d = ╱44╱D╱ // 0x968 @0xd
0x095b…0978 at000e = ╱4f╱O╱ // 0x969 @0xe
0x095b…0978 at000f = ╱31╱1╱ // 0x96a @0xf
0x095b…0978 at0010 = ╱ef╱$╱ // 0x96b @0x10
0x095b…0978 at0011 = ╱ec╱,╱ // 0x96c @0x11
0x095b…0978 at0012 = ╱54╱T╱ // 0x96d @0x12
0x095b…0978 at0013 = ╱41╱A╱ // 0x96e @0x13
0x095b…0978 at0014 = ╱4c╱L╱ // 0x96f @0x14
0x095b…0978 at0015 = ╱31╱1╱ // 0x970 @0x15
0x095b…0978 at0016 = ╱ef╱$╱ // 0x971 @0x16
0x095b…0978 at0017 = ╱ec╱,╱ // 0x972 @0x17
0x095b…0978 at0018 = ╱45╱E╱ // 0x973 @0x18
0x095b…0978 at0019 = ╱ec╱,╱ // 0x974 @0x19
0x095b…0978 at001a = ╱42╱B╱ // 0x975 @0x1a
0x095b…0978 at001b = ╱ee╱)╱ // 0x976 @0x1b
0x095b…0978 at001c = EOL // 0x977 @0x1c
0x095b…0978 }
0x0978…0995 96ec 0980 EXEC TUD(TSALDO2$,TAL2$,E,B)
0x0978…0995 LineComalBin {
0x0978…0995 ptr = 0x96ec // 0x978 @0x0
0x0978…0995 lno = 0x03d4 // 0x97a @0x2
0x0978…0995 at0004 = ╱9d╱ EXEC ╱ // 0x97c @0x4
0x0978…0995 at0005 = ╱54╱T╱ // 0x97d @0x5
0x0978…0995 at0006 = ╱55╱U╱ // 0x97e @0x6
0x0978…0995 at0007 = ╱44╱D╱ // 0x97f @0x7
0x0978…0995 at0008 = ╱ed╱(╱ // 0x980 @0x8
0x0978…0995 at0009 = ╱54╱T╱ // 0x981 @0x9
0x0978…0995 at000a = ╱53╱S╱ // 0x982 @0xa
0x0978…0995 at000b = ╱41╱A╱ // 0x983 @0xb
0x0978…0995 at000c = ╱4c╱L╱ // 0x984 @0xc
0x0978…0995 at000d = ╱44╱D╱ // 0x985 @0xd
0x0978…0995 at000e = ╱4f╱O╱ // 0x986 @0xe
0x0978…0995 at000f = ╱32╱2╱ // 0x987 @0xf
0x0978…0995 at0010 = ╱ef╱$╱ // 0x988 @0x10
0x0978…0995 at0011 = ╱ec╱,╱ // 0x989 @0x11
0x0978…0995 at0012 = ╱54╱T╱ // 0x98a @0x12
0x0978…0995 at0013 = ╱41╱A╱ // 0x98b @0x13
0x0978…0995 at0014 = ╱4c╱L╱ // 0x98c @0x14
0x0978…0995 at0015 = ╱32╱2╱ // 0x98d @0x15
0x0978…0995 at0016 = ╱ef╱$╱ // 0x98e @0x16
0x0978…0995 at0017 = ╱ec╱,╱ // 0x98f @0x17
0x0978…0995 at0018 = ╱45╱E╱ // 0x990 @0x18
0x0978…0995 at0019 = ╱ec╱,╱ // 0x991 @0x19
0x0978…0995 at001a = ╱42╱B╱ // 0x992 @0x1a
0x0978…0995 at001b = ╱ee╱)╱ // 0x993 @0x1b
0x0978…0995 at001c = EOL // 0x994 @0x1c
0x0978…0995 }
0x0995…09b1 9708 0990 EXEC TUD(TSALDI$,TAL3$,E,B)
0x0995…09b1 LineComalBin {
0x0995…09b1 ptr = 0x9708 // 0x995 @0x0
0x0995…09b1 lno = 0x03de // 0x997 @0x2
0x0995…09b1 at0004 = ╱9d╱ EXEC ╱ // 0x999 @0x4
0x0995…09b1 at0005 = ╱54╱T╱ // 0x99a @0x5
0x0995…09b1 at0006 = ╱55╱U╱ // 0x99b @0x6
0x0995…09b1 at0007 = ╱44╱D╱ // 0x99c @0x7
0x0995…09b1 at0008 = ╱ed╱(╱ // 0x99d @0x8
0x0995…09b1 at0009 = ╱54╱T╱ // 0x99e @0x9
0x0995…09b1 at000a = ╱53╱S╱ // 0x99f @0xa
0x0995…09b1 at000b = ╱41╱A╱ // 0x9a0 @0xb
0x0995…09b1 at000c = ╱4c╱L╱ // 0x9a1 @0xc
0x0995…09b1 at000d = ╱44╱D╱ // 0x9a2 @0xd
0x0995…09b1 at000e = ╱49╱I╱ // 0x9a3 @0xe
0x0995…09b1 at000f = ╱ef╱$╱ // 0x9a4 @0xf
0x0995…09b1 at0010 = ╱ec╱,╱ // 0x9a5 @0x10
0x0995…09b1 at0011 = ╱54╱T╱ // 0x9a6 @0x11
0x0995…09b1 at0012 = ╱41╱A╱ // 0x9a7 @0x12
0x0995…09b1 at0013 = ╱4c╱L╱ // 0x9a8 @0x13
0x0995…09b1 at0014 = ╱33╱3╱ // 0x9a9 @0x14
0x0995…09b1 at0015 = ╱ef╱$╱ // 0x9aa @0x15
0x0995…09b1 at0016 = ╱ec╱,╱ // 0x9ab @0x16
0x0995…09b1 at0017 = ╱45╱E╱ // 0x9ac @0x17
0x0995…09b1 at0018 = ╱ec╱,╱ // 0x9ad @0x18
0x0995…09b1 at0019 = ╱42╱B╱ // 0x9ae @0x19
0x0995…09b1 at001a = ╱ee╱)╱ // 0x9af @0x1a
0x0995…09b1 at001b = EOL // 0x9b0 @0x1b
0x0995…09b1 }
0x09b1…0a02 9759 1000 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(29);TAL3$;TAB(46);TAL1$;
0x09b1…0a02 LineComalBin {
0x09b1…0a02 ptr = 0x9759 // 0x9b1 @0x0
0x09b1…0a02 lno = 0x03e8 // 0x9b3 @0x2
0x09b1…0a02 at0004 = ╱92╱ PRINT ╱ // 0x9b5 @0x4
0x09b1…0a02 at0005 = ╱d2╱TAB╱ // 0x9b6 @0x5
0x09b1…0a02 at0006 = ╱ed╱(╱ // 0x9b7 @0x6
0x09b1…0a02 at0007 = ╱31╱1╱ // 0x9b8 @0x7
0x09b1…0a02 at0008 = ╱30╱0╱ // 0x9b9 @0x8
0x09b1…0a02 at0009 = ╱fe0000a004╱ // 0x9ba @0x9
0x09b1…0a02 at000e = ╱ee╱)╱ // 0x9bf @0xe
0x09b1…0a02 at000f = ╱eb╱;╱ // 0x9c0 @0xf
0x09b1…0a02 at0010 = ╱cf╱CHR╱ // 0x9c1 @0x10
0x09b1…0a02 at0011 = ╱ed╱(╱ // 0x9c2 @0x11
0x09b1…0a02 at0012 = ╱31╱1╱ // 0x9c3 @0x12
0x09b1…0a02 at0013 = ╱34╱4╱ // 0x9c4 @0x13
0x09b1…0a02 at0014 = ╱fe0000e004╱ // 0x9c5 @0x14
0x09b1…0a02 at0019 = ╱ee╱)╱ // 0x9ca @0x19
0x09b1…0a02 at001a = ╱eb╱;╱ // 0x9cb @0x1a
0x09b1…0a02 at001b = ╱22╱"╱ // 0x9cc @0x1b
0x09b1…0a02 at001c = ╱54╱T╱ // 0x9cd @0x1c
0x09b1…0a02 at001d = ╱6f╱o╱ // 0x9ce @0x1d
0x09b1…0a02 at001e = ╱74╱t╱ // 0x9cf @0x1e
0x09b1…0a02 at001f = ╱61╱a╱ // 0x9d0 @0x1f
0x09b1…0a02 at0020 = ╱6c╱l╱ // 0x9d1 @0x20
0x09b1…0a02 at0021 = ╱22╱"╱ // 0x9d2 @0x21
0x09b1…0a02 at0022 = ╱eb╱;╱ // 0x9d3 @0x22
0x09b1…0a02 at0023 = ╱cf╱CHR╱ // 0x9d4 @0x23
0x09b1…0a02 at0024 = ╱ed╱(╱ // 0x9d5 @0x24
0x09b1…0a02 at0025 = ╱31╱1╱ // 0x9d6 @0x25
0x09b1…0a02 at0026 = ╱35╱5╱ // 0x9d7 @0x26
0x09b1…0a02 at0027 = ╱fe0000f004╱ // 0x9d8 @0x27
0x09b1…0a02 at002c = ╱ee╱)╱ // 0x9dd @0x2c
0x09b1…0a02 at002d = ╱eb╱;╱ // 0x9de @0x2d
0x09b1…0a02 at002e = ╱d2╱TAB╱ // 0x9df @0x2e
0x09b1…0a02 at002f = ╱ed╱(╱ // 0x9e0 @0x2f
0x09b1…0a02 at0030 = ╱32╱2╱ // 0x9e1 @0x30
0x09b1…0a02 at0031 = ╱39╱9╱ // 0x9e2 @0x31
0x09b1…0a02 at0032 = ╱fe0000e805╱ // 0x9e3 @0x32
0x09b1…0a02 at0037 = ╱ee╱)╱ // 0x9e8 @0x37
0x09b1…0a02 at0038 = ╱eb╱;╱ // 0x9e9 @0x38
0x09b1…0a02 at0039 = ╱54╱T╱ // 0x9ea @0x39
0x09b1…0a02 at003a = ╱41╱A╱ // 0x9eb @0x3a
0x09b1…0a02 at003b = ╱4c╱L╱ // 0x9ec @0x3b
0x09b1…0a02 at003c = ╱33╱3╱ // 0x9ed @0x3c
0x09b1…0a02 at003d = ╱ef╱$╱ // 0x9ee @0x3d
0x09b1…0a02 at003e = ╱eb╱;╱ // 0x9ef @0x3e
0x09b1…0a02 at003f = ╱d2╱TAB╱ // 0x9f0 @0x3f
0x09b1…0a02 at0040 = ╱ed╱(╱ // 0x9f1 @0x40
0x09b1…0a02 at0041 = ╱34╱4╱ // 0x9f2 @0x41
0x09b1…0a02 at0042 = ╱36╱6╱ // 0x9f3 @0x42
0x09b1…0a02 at0043 = ╱fe0000b806╱ // 0x9f4 @0x43
0x09b1…0a02 at0048 = ╱ee╱)╱ // 0x9f9 @0x48
0x09b1…0a02 at0049 = ╱eb╱;╱ // 0x9fa @0x49
0x09b1…0a02 at004a = ╱54╱T╱ // 0x9fb @0x4a
0x09b1…0a02 at004b = ╱41╱A╱ // 0x9fc @0x4b
0x09b1…0a02 at004c = ╱4c╱L╱ // 0x9fd @0x4c
0x09b1…0a02 at004d = ╱31╱1╱ // 0x9fe @0x4d
0x09b1…0a02 at004e = ╱ef╱$╱ // 0x9ff @0x4e
0x09b1…0a02 at004f = ╱eb╱;╱ // 0xa00 @0x4f
0x09b1…0a02 at0050 = EOL // 0xa01 @0x50
0x09b1…0a02 }
0x0a02…0a18 976f 1010 PRINT TAB(62);TAL2$
0x0a02…0a18 LineComalBin {
0x0a02…0a18 ptr = 0x976f // 0xa02 @0x0
0x0a02…0a18 lno = 0x03f2 // 0xa04 @0x2
0x0a02…0a18 at0004 = ╱92╱ PRINT ╱ // 0xa06 @0x4
0x0a02…0a18 at0005 = ╱d2╱TAB╱ // 0xa07 @0x5
0x0a02…0a18 at0006 = ╱ed╱(╱ // 0xa08 @0x6
0x0a02…0a18 at0007 = ╱36╱6╱ // 0xa09 @0x7
0x0a02…0a18 at0008 = ╱32╱2╱ // 0xa0a @0x8
0x0a02…0a18 at0009 = ╱fe0000f806╱ // 0xa0b @0x9
0x0a02…0a18 at000e = ╱ee╱)╱ // 0xa10 @0xe
0x0a02…0a18 at000f = ╱eb╱;╱ // 0xa11 @0xf
0x0a02…0a18 at0010 = ╱54╱T╱ // 0xa12 @0x10
0x0a02…0a18 at0011 = ╱41╱A╱ // 0xa13 @0x11
0x0a02…0a18 at0012 = ╱4c╱L╱ // 0xa14 @0x12
0x0a02…0a18 at0013 = ╱32╱2╱ // 0xa15 @0x13
0x0a02…0a18 at0014 = ╱ef╱$╱ // 0xa16 @0x14
0x0a02…0a18 at0015 = EOL // 0xa17 @0x15
0x0a02…0a18 }
0x0a18…0a21 9778 1020 PRINT " "
0x0a18…0a21 LineComalBin {
0x0a18…0a21 ptr = 0x9778 // 0xa18 @0x0
0x0a18…0a21 lno = 0x03fc // 0xa1a @0x2
0x0a18…0a21 at0004 = ╱92╱ PRINT ╱ // 0xa1c @0x4
0x0a18…0a21 at0005 = ╱22╱"╱ // 0xa1d @0x5
0x0a18…0a21 at0006 = ╱20╱…╱ // 0xa1e @0x6
0x0a18…0a21 at0007 = ╱22╱"╱ // 0xa1f @0x7
0x0a18…0a21 at0008 = EOL // 0xa20 @0x8
0x0a18…0a21 }
0x0a21…0a27 977e 1030 ENDPROC
0x0a21…0a27 LineComalBin {
0x0a21…0a27 ptr = 0x977e // 0xa21 @0x0
0x0a21…0a27 lno = 0x0406 // 0xa23 @0x2
0x0a21…0a27 at0004 = ╱9f╱ ENDPROC ╱ // 0xa25 @0x4
0x0a21…0a27 at0005 = EOL // 0xa26 @0x5
0x0a21…0a27 }
0x0a27…0a34 978b 1040 PROC UDSKRIV
0x0a27…0a34 LineComalBin {
0x0a27…0a34 ptr = 0x978b // 0xa27 @0x0
0x0a27…0a34 lno = 0x0410 // 0xa29 @0x2
0x0a27…0a34 at0004 = ╱9e╱ PROC ╱ // 0xa2b @0x4
0x0a27…0a34 at0005 = ╱55╱U╱ // 0xa2c @0x5
0x0a27…0a34 at0006 = ╱44╱D╱ // 0xa2d @0x6
0x0a27…0a34 at0007 = ╱53╱S╱ // 0xa2e @0x7
0x0a27…0a34 at0008 = ╱4b╱K╱ // 0xa2f @0x8
0x0a27…0a34 at0009 = ╱52╱R╱ // 0xa30 @0x9
0x0a27…0a34 at000a = ╱49╱I╱ // 0xa31 @0xa
0x0a27…0a34 at000b = ╱56╱V╱ // 0xa32 @0xb
0x0a27…0a34 at000c = EOL // 0xa33 @0xc
0x0a27…0a34 }
0x0a34…0a40 9797 1050 CASE TYPE OF
0x0a34…0a40 LineComalBin {
0x0a34…0a40 ptr = 0x9797 // 0xa34 @0x0
0x0a34…0a40 lno = 0x041a // 0xa36 @0x2
0x0a34…0a40 at0004 = ╱a201╱ CASE ╱ // 0xa38 @0x4
0x0a34…0a40 at0006 = ╱54╱T╱ // 0xa3a @0x6
0x0a34…0a40 at0007 = ╱59╱Y╱ // 0xa3b @0x7
0x0a34…0a40 at0008 = ╱50╱P╱ // 0xa3c @0x8
0x0a34…0a40 at0009 = ╱45╱E╱ // 0xa3d @0x9
0x0a34…0a40 at000a = ╱ba╱ OF ╱ // 0xa3e @0xa
0x0a34…0a40 at000b = EOL // 0xa3f @0xb
0x0a34…0a40 }
0x0a40…0a4a 97a1 1060 WHEN E,V
0x0a40…0a4a LineComalBin {
0x0a40…0a4a ptr = 0x97a1 // 0xa40 @0x0
0x0a40…0a4a lno = 0x0424 // 0xa42 @0x2
0x0a40…0a4a at0004 = ╱a301╱ WHEN ╱ // 0xa44 @0x4
0x0a40…0a4a at0006 = ╱45╱E╱ // 0xa46 @0x6
0x0a40…0a4a at0007 = ╱ec╱,╱ // 0xa47 @0x7
0x0a40…0a4a at0008 = ╱56╱V╱ // 0xa48 @0x8
0x0a40…0a4a at0009 = EOL // 0xa49 @0x9
0x0a40…0a4a }
0x0a4a…0a5c 97b3 1070 LINIE=LINIE+E
0x0a4a…0a5c LineComalBin {
0x0a4a…0a5c ptr = 0x97b3 // 0xa4a @0x0
0x0a4a…0a5c lno = 0x042e // 0xa4c @0x2
0x0a4a…0a5c at0004 = ╱4c╱L╱ // 0xa4e @0x4
0x0a4a…0a5c at0005 = ╱49╱I╱ // 0xa4f @0x5
0x0a4a…0a5c at0006 = ╱4e╱N╱ // 0xa50 @0x6
0x0a4a…0a5c at0007 = ╱49╱I╱ // 0xa51 @0x7
0x0a4a…0a5c at0008 = ╱45╱E╱ // 0xa52 @0x8
0x0a4a…0a5c at0009 = ╱dc╱=╱ // 0xa53 @0x9
0x0a4a…0a5c at000a = ╱4c╱L╱ // 0xa54 @0xa
0x0a4a…0a5c at000b = ╱49╱I╱ // 0xa55 @0xb
0x0a4a…0a5c at000c = ╱4e╱N╱ // 0xa56 @0xc
0x0a4a…0a5c at000d = ╱49╱I╱ // 0xa57 @0xd
0x0a4a…0a5c at000e = ╱45╱E╱ // 0xa58 @0xe
0x0a4a…0a5c at000f = ╱e2╱+╱ // 0xa59 @0xf
0x0a4a…0a5c at0010 = ╱45╱E╱ // 0xa5a @0x10
0x0a4a…0a5c at0011 = EOL // 0xa5b @0x11
0x0a4a…0a5c }
0x0a5c…0a76 97cd 1080 IF TYPE=V THEN LINIE=LINIE+E
0x0a5c…0a76 LineComalBin {
0x0a5c…0a76 ptr = 0x97cd // 0xa5c @0x0
0x0a5c…0a76 lno = 0x0438 // 0xa5e @0x2
0x0a5c…0a76 at0004 = ╱82╱ IF ╱ // 0xa60 @0x4
0x0a5c…0a76 at0005 = ╱54╱T╱ // 0xa61 @0x5
0x0a5c…0a76 at0006 = ╱59╱Y╱ // 0xa62 @0x6
0x0a5c…0a76 at0007 = ╱50╱P╱ // 0xa63 @0x7
0x0a5c…0a76 at0008 = ╱45╱E╱ // 0xa64 @0x8
0x0a5c…0a76 at0009 = ╱dc╱=╱ // 0xa65 @0x9
0x0a5c…0a76 at000a = ╱56╱V╱ // 0xa66 @0xa
0x0a5c…0a76 at000b = ╱b6╱ THEN ╱ // 0xa67 @0xb
0x0a5c…0a76 at000c = ╱4c╱L╱ // 0xa68 @0xc
0x0a5c…0a76 at000d = ╱49╱I╱ // 0xa69 @0xd
0x0a5c…0a76 at000e = ╱4e╱N╱ // 0xa6a @0xe
0x0a5c…0a76 at000f = ╱49╱I╱ // 0xa6b @0xf
0x0a5c…0a76 at0010 = ╱45╱E╱ // 0xa6c @0x10
0x0a5c…0a76 at0011 = ╱dc╱=╱ // 0xa6d @0x11
0x0a5c…0a76 at0012 = ╱4c╱L╱ // 0xa6e @0x12
0x0a5c…0a76 at0013 = ╱49╱I╱ // 0xa6f @0x13
0x0a5c…0a76 at0014 = ╱4e╱N╱ // 0xa70 @0x14
0x0a5c…0a76 at0015 = ╱49╱I╱ // 0xa71 @0x15
0x0a5c…0a76 at0016 = ╱45╱E╱ // 0xa72 @0x16
0x0a5c…0a76 at0017 = ╱e2╱+╱ // 0xa73 @0x17
0x0a5c…0a76 at0018 = ╱45╱E╱ // 0xa74 @0x18
0x0a5c…0a76 at0019 = EOL // 0xa75 @0x19
0x0a5c…0a76 }
0x0a76…0a9e 97f5 1090 EXEC CALC(B,KSALDO1$,TSALDO1$,TSALDO1$)
0x0a76…0a9e LineComalBin {
0x0a76…0a9e ptr = 0x97f5 // 0xa76 @0x0
0x0a76…0a9e lno = 0x0442 // 0xa78 @0x2
0x0a76…0a9e at0004 = ╱9d╱ EXEC ╱ // 0xa7a @0x4
0x0a76…0a9e at0005 = ╱43╱C╱ // 0xa7b @0x5
0x0a76…0a9e at0006 = ╱41╱A╱ // 0xa7c @0x6
0x0a76…0a9e at0007 = ╱4c╱L╱ // 0xa7d @0x7
0x0a76…0a9e at0008 = ╱43╱C╱ // 0xa7e @0x8
0x0a76…0a9e at0009 = ╱ed╱(╱ // 0xa7f @0x9
0x0a76…0a9e at000a = ╱42╱B╱ // 0xa80 @0xa
0x0a76…0a9e at000b = ╱ec╱,╱ // 0xa81 @0xb
0x0a76…0a9e at000c = ╱4b╱K╱ // 0xa82 @0xc
0x0a76…0a9e at000d = ╱53╱S╱ // 0xa83 @0xd
0x0a76…0a9e at000e = ╱41╱A╱ // 0xa84 @0xe
0x0a76…0a9e at000f = ╱4c╱L╱ // 0xa85 @0xf
0x0a76…0a9e at0010 = ╱44╱D╱ // 0xa86 @0x10
0x0a76…0a9e at0011 = ╱4f╱O╱ // 0xa87 @0x11
0x0a76…0a9e at0012 = ╱31╱1╱ // 0xa88 @0x12
0x0a76…0a9e at0013 = ╱ef╱$╱ // 0xa89 @0x13
0x0a76…0a9e at0014 = ╱ec╱,╱ // 0xa8a @0x14
0x0a76…0a9e at0015 = ╱54╱T╱ // 0xa8b @0x15
0x0a76…0a9e at0016 = ╱53╱S╱ // 0xa8c @0x16
0x0a76…0a9e at0017 = ╱41╱A╱ // 0xa8d @0x17
0x0a76…0a9e at0018 = ╱4c╱L╱ // 0xa8e @0x18
0x0a76…0a9e at0019 = ╱44╱D╱ // 0xa8f @0x19
0x0a76…0a9e at001a = ╱4f╱O╱ // 0xa90 @0x1a
0x0a76…0a9e at001b = ╱31╱1╱ // 0xa91 @0x1b
0x0a76…0a9e at001c = ╱ef╱$╱ // 0xa92 @0x1c
0x0a76…0a9e at001d = ╱ec╱,╱ // 0xa93 @0x1d
0x0a76…0a9e at001e = ╱54╱T╱ // 0xa94 @0x1e
0x0a76…0a9e at001f = ╱53╱S╱ // 0xa95 @0x1f
0x0a76…0a9e at0020 = ╱41╱A╱ // 0xa96 @0x20
0x0a76…0a9e at0021 = ╱4c╱L╱ // 0xa97 @0x21
0x0a76…0a9e at0022 = ╱44╱D╱ // 0xa98 @0x22
0x0a76…0a9e at0023 = ╱4f╱O╱ // 0xa99 @0x23
0x0a76…0a9e at0024 = ╱31╱1╱ // 0xa9a @0x24
0x0a76…0a9e at0025 = ╱ef╱$╱ // 0xa9b @0x25
0x0a76…0a9e at0026 = ╱ee╱)╱ // 0xa9c @0x26
0x0a76…0a9e at0027 = EOL // 0xa9d @0x27
0x0a76…0a9e }
0x0a9e…0ac6 981d 1100 EXEC CALC(B,KSALDO2$,TSALDO2$,TSALDO2$)
0x0a9e…0ac6 LineComalBin {
0x0a9e…0ac6 ptr = 0x981d // 0xa9e @0x0
0x0a9e…0ac6 lno = 0x044c // 0xaa0 @0x2
0x0a9e…0ac6 at0004 = ╱9d╱ EXEC ╱ // 0xaa2 @0x4
0x0a9e…0ac6 at0005 = ╱43╱C╱ // 0xaa3 @0x5
0x0a9e…0ac6 at0006 = ╱41╱A╱ // 0xaa4 @0x6
0x0a9e…0ac6 at0007 = ╱4c╱L╱ // 0xaa5 @0x7
0x0a9e…0ac6 at0008 = ╱43╱C╱ // 0xaa6 @0x8
0x0a9e…0ac6 at0009 = ╱ed╱(╱ // 0xaa7 @0x9
0x0a9e…0ac6 at000a = ╱42╱B╱ // 0xaa8 @0xa
0x0a9e…0ac6 at000b = ╱ec╱,╱ // 0xaa9 @0xb
0x0a9e…0ac6 at000c = ╱4b╱K╱ // 0xaaa @0xc
0x0a9e…0ac6 at000d = ╱53╱S╱ // 0xaab @0xd
0x0a9e…0ac6 at000e = ╱41╱A╱ // 0xaac @0xe
0x0a9e…0ac6 at000f = ╱4c╱L╱ // 0xaad @0xf
0x0a9e…0ac6 at0010 = ╱44╱D╱ // 0xaae @0x10
0x0a9e…0ac6 at0011 = ╱4f╱O╱ // 0xaaf @0x11
0x0a9e…0ac6 at0012 = ╱32╱2╱ // 0xab0 @0x12
0x0a9e…0ac6 at0013 = ╱ef╱$╱ // 0xab1 @0x13
0x0a9e…0ac6 at0014 = ╱ec╱,╱ // 0xab2 @0x14
0x0a9e…0ac6 at0015 = ╱54╱T╱ // 0xab3 @0x15
0x0a9e…0ac6 at0016 = ╱53╱S╱ // 0xab4 @0x16
0x0a9e…0ac6 at0017 = ╱41╱A╱ // 0xab5 @0x17
0x0a9e…0ac6 at0018 = ╱4c╱L╱ // 0xab6 @0x18
0x0a9e…0ac6 at0019 = ╱44╱D╱ // 0xab7 @0x19
0x0a9e…0ac6 at001a = ╱4f╱O╱ // 0xab8 @0x1a
0x0a9e…0ac6 at001b = ╱32╱2╱ // 0xab9 @0x1b
0x0a9e…0ac6 at001c = ╱ef╱$╱ // 0xaba @0x1c
0x0a9e…0ac6 at001d = ╱ec╱,╱ // 0xabb @0x1d
0x0a9e…0ac6 at001e = ╱54╱T╱ // 0xabc @0x1e
0x0a9e…0ac6 at001f = ╱53╱S╱ // 0xabd @0x1f
0x0a9e…0ac6 at0020 = ╱41╱A╱ // 0xabe @0x20
0x0a9e…0ac6 at0021 = ╱4c╱L╱ // 0xabf @0x21
0x0a9e…0ac6 at0022 = ╱44╱D╱ // 0xac0 @0x22
0x0a9e…0ac6 at0023 = ╱4f╱O╱ // 0xac1 @0x23
0x0a9e…0ac6 at0024 = ╱32╱2╱ // 0xac2 @0x24
0x0a9e…0ac6 at0025 = ╱ef╱$╱ // 0xac3 @0x25
0x0a9e…0ac6 at0026 = ╱ee╱)╱ // 0xac4 @0x26
0x0a9e…0ac6 at0027 = EOL // 0xac5 @0x27
0x0a9e…0ac6 }
0x0ac6…0aed 9844 1110 EXEC CALC(B,KSALDO1$,KSALDO2$,KSALDI$)
0x0ac6…0aed LineComalBin {
0x0ac6…0aed ptr = 0x9844 // 0xac6 @0x0
0x0ac6…0aed lno = 0x0456 // 0xac8 @0x2
0x0ac6…0aed at0004 = ╱9d╱ EXEC ╱ // 0xaca @0x4
0x0ac6…0aed at0005 = ╱43╱C╱ // 0xacb @0x5
0x0ac6…0aed at0006 = ╱41╱A╱ // 0xacc @0x6
0x0ac6…0aed at0007 = ╱4c╱L╱ // 0xacd @0x7
0x0ac6…0aed at0008 = ╱43╱C╱ // 0xace @0x8
0x0ac6…0aed at0009 = ╱ed╱(╱ // 0xacf @0x9
0x0ac6…0aed at000a = ╱42╱B╱ // 0xad0 @0xa
0x0ac6…0aed at000b = ╱ec╱,╱ // 0xad1 @0xb
0x0ac6…0aed at000c = ╱4b╱K╱ // 0xad2 @0xc
0x0ac6…0aed at000d = ╱53╱S╱ // 0xad3 @0xd
0x0ac6…0aed at000e = ╱41╱A╱ // 0xad4 @0xe
0x0ac6…0aed at000f = ╱4c╱L╱ // 0xad5 @0xf
0x0ac6…0aed at0010 = ╱44╱D╱ // 0xad6 @0x10
0x0ac6…0aed at0011 = ╱4f╱O╱ // 0xad7 @0x11
0x0ac6…0aed at0012 = ╱31╱1╱ // 0xad8 @0x12
0x0ac6…0aed at0013 = ╱ef╱$╱ // 0xad9 @0x13
0x0ac6…0aed at0014 = ╱ec╱,╱ // 0xada @0x14
0x0ac6…0aed at0015 = ╱4b╱K╱ // 0xadb @0x15
0x0ac6…0aed at0016 = ╱53╱S╱ // 0xadc @0x16
0x0ac6…0aed at0017 = ╱41╱A╱ // 0xadd @0x17
0x0ac6…0aed at0018 = ╱4c╱L╱ // 0xade @0x18
0x0ac6…0aed at0019 = ╱44╱D╱ // 0xadf @0x19
0x0ac6…0aed at001a = ╱4f╱O╱ // 0xae0 @0x1a
0x0ac6…0aed at001b = ╱32╱2╱ // 0xae1 @0x1b
0x0ac6…0aed at001c = ╱ef╱$╱ // 0xae2 @0x1c
0x0ac6…0aed at001d = ╱ec╱,╱ // 0xae3 @0x1d
0x0ac6…0aed at001e = ╱4b╱K╱ // 0xae4 @0x1e
0x0ac6…0aed at001f = ╱53╱S╱ // 0xae5 @0x1f
0x0ac6…0aed at0020 = ╱41╱A╱ // 0xae6 @0x20
0x0ac6…0aed at0021 = ╱4c╱L╱ // 0xae7 @0x21
0x0ac6…0aed at0022 = ╱44╱D╱ // 0xae8 @0x22
0x0ac6…0aed at0023 = ╱49╱I╱ // 0xae9 @0x23
0x0ac6…0aed at0024 = ╱ef╱$╱ // 0xaea @0x24
0x0ac6…0aed at0025 = ╱ee╱)╱ // 0xaeb @0x25
0x0ac6…0aed at0026 = EOL // 0xaec @0x26
0x0ac6…0aed }
0x0aed…0b14 986b 1120 EXEC CALC(B,TSALDO1$,TSALDO2$,TSALDI$)
0x0aed…0b14 LineComalBin {
0x0aed…0b14 ptr = 0x986b // 0xaed @0x0
0x0aed…0b14 lno = 0x0460 // 0xaef @0x2
0x0aed…0b14 at0004 = ╱9d╱ EXEC ╱ // 0xaf1 @0x4
0x0aed…0b14 at0005 = ╱43╱C╱ // 0xaf2 @0x5
0x0aed…0b14 at0006 = ╱41╱A╱ // 0xaf3 @0x6
0x0aed…0b14 at0007 = ╱4c╱L╱ // 0xaf4 @0x7
0x0aed…0b14 at0008 = ╱43╱C╱ // 0xaf5 @0x8
0x0aed…0b14 at0009 = ╱ed╱(╱ // 0xaf6 @0x9
0x0aed…0b14 at000a = ╱42╱B╱ // 0xaf7 @0xa
0x0aed…0b14 at000b = ╱ec╱,╱ // 0xaf8 @0xb
0x0aed…0b14 at000c = ╱54╱T╱ // 0xaf9 @0xc
0x0aed…0b14 at000d = ╱53╱S╱ // 0xafa @0xd
0x0aed…0b14 at000e = ╱41╱A╱ // 0xafb @0xe
0x0aed…0b14 at000f = ╱4c╱L╱ // 0xafc @0xf
0x0aed…0b14 at0010 = ╱44╱D╱ // 0xafd @0x10
0x0aed…0b14 at0011 = ╱4f╱O╱ // 0xafe @0x11
0x0aed…0b14 at0012 = ╱31╱1╱ // 0xaff @0x12
0x0aed…0b14 at0013 = ╱ef╱$╱ // 0xb00 @0x13
0x0aed…0b14 at0014 = ╱ec╱,╱ // 0xb01 @0x14
0x0aed…0b14 at0015 = ╱54╱T╱ // 0xb02 @0x15
0x0aed…0b14 at0016 = ╱53╱S╱ // 0xb03 @0x16
0x0aed…0b14 at0017 = ╱41╱A╱ // 0xb04 @0x17
0x0aed…0b14 at0018 = ╱4c╱L╱ // 0xb05 @0x18
0x0aed…0b14 at0019 = ╱44╱D╱ // 0xb06 @0x19
0x0aed…0b14 at001a = ╱4f╱O╱ // 0xb07 @0x1a
0x0aed…0b14 at001b = ╱32╱2╱ // 0xb08 @0x1b
0x0aed…0b14 at001c = ╱ef╱$╱ // 0xb09 @0x1c
0x0aed…0b14 at001d = ╱ec╱,╱ // 0xb0a @0x1d
0x0aed…0b14 at001e = ╱54╱T╱ // 0xb0b @0x1e
0x0aed…0b14 at001f = ╱53╱S╱ // 0xb0c @0x1f
0x0aed…0b14 at0020 = ╱41╱A╱ // 0xb0d @0x20
0x0aed…0b14 at0021 = ╱4c╱L╱ // 0xb0e @0x21
0x0aed…0b14 at0022 = ╱44╱D╱ // 0xb0f @0x22
0x0aed…0b14 at0023 = ╱49╱I╱ // 0xb10 @0x23
0x0aed…0b14 at0024 = ╱ef╱$╱ // 0xb11 @0x24
0x0aed…0b14 at0025 = ╱ee╱)╱ // 0xb12 @0x25
0x0aed…0b14 at0026 = EOL // 0xb13 @0x26
0x0aed…0b14 }
0x0b14…0b31 9888 1130 EXEC TUD(KSALDO1$,TAL1$,E,E)
0x0b14…0b31 LineComalBin {
0x0b14…0b31 ptr = 0x9888 // 0xb14 @0x0
0x0b14…0b31 lno = 0x046a // 0xb16 @0x2
0x0b14…0b31 at0004 = ╱9d╱ EXEC ╱ // 0xb18 @0x4
0x0b14…0b31 at0005 = ╱54╱T╱ // 0xb19 @0x5
0x0b14…0b31 at0006 = ╱55╱U╱ // 0xb1a @0x6
0x0b14…0b31 at0007 = ╱44╱D╱ // 0xb1b @0x7
0x0b14…0b31 at0008 = ╱ed╱(╱ // 0xb1c @0x8
0x0b14…0b31 at0009 = ╱4b╱K╱ // 0xb1d @0x9
0x0b14…0b31 at000a = ╱53╱S╱ // 0xb1e @0xa
0x0b14…0b31 at000b = ╱41╱A╱ // 0xb1f @0xb
0x0b14…0b31 at000c = ╱4c╱L╱ // 0xb20 @0xc
0x0b14…0b31 at000d = ╱44╱D╱ // 0xb21 @0xd
0x0b14…0b31 at000e = ╱4f╱O╱ // 0xb22 @0xe
0x0b14…0b31 at000f = ╱31╱1╱ // 0xb23 @0xf
0x0b14…0b31 at0010 = ╱ef╱$╱ // 0xb24 @0x10
0x0b14…0b31 at0011 = ╱ec╱,╱ // 0xb25 @0x11
0x0b14…0b31 at0012 = ╱54╱T╱ // 0xb26 @0x12
0x0b14…0b31 at0013 = ╱41╱A╱ // 0xb27 @0x13
0x0b14…0b31 at0014 = ╱4c╱L╱ // 0xb28 @0x14
0x0b14…0b31 at0015 = ╱31╱1╱ // 0xb29 @0x15
0x0b14…0b31 at0016 = ╱ef╱$╱ // 0xb2a @0x16
0x0b14…0b31 at0017 = ╱ec╱,╱ // 0xb2b @0x17
0x0b14…0b31 at0018 = ╱45╱E╱ // 0xb2c @0x18
0x0b14…0b31 at0019 = ╱ec╱,╱ // 0xb2d @0x19
0x0b14…0b31 at001a = ╱45╱E╱ // 0xb2e @0x1a
0x0b14…0b31 at001b = ╱ee╱)╱ // 0xb2f @0x1b
0x0b14…0b31 at001c = EOL // 0xb30 @0x1c
0x0b14…0b31 }
0x0b31…0b4e 98a5 1140 EXEC TUD(KSALDO2$,TAL2$,E,E)
0x0b31…0b4e LineComalBin {
0x0b31…0b4e ptr = 0x98a5 // 0xb31 @0x0
0x0b31…0b4e lno = 0x0474 // 0xb33 @0x2
0x0b31…0b4e at0004 = ╱9d╱ EXEC ╱ // 0xb35 @0x4
0x0b31…0b4e at0005 = ╱54╱T╱ // 0xb36 @0x5
0x0b31…0b4e at0006 = ╱55╱U╱ // 0xb37 @0x6
0x0b31…0b4e at0007 = ╱44╱D╱ // 0xb38 @0x7
0x0b31…0b4e at0008 = ╱ed╱(╱ // 0xb39 @0x8
0x0b31…0b4e at0009 = ╱4b╱K╱ // 0xb3a @0x9
0x0b31…0b4e at000a = ╱53╱S╱ // 0xb3b @0xa
0x0b31…0b4e at000b = ╱41╱A╱ // 0xb3c @0xb
0x0b31…0b4e at000c = ╱4c╱L╱ // 0xb3d @0xc
0x0b31…0b4e at000d = ╱44╱D╱ // 0xb3e @0xd
0x0b31…0b4e at000e = ╱4f╱O╱ // 0xb3f @0xe
0x0b31…0b4e at000f = ╱32╱2╱ // 0xb40 @0xf
0x0b31…0b4e at0010 = ╱ef╱$╱ // 0xb41 @0x10
0x0b31…0b4e at0011 = ╱ec╱,╱ // 0xb42 @0x11
0x0b31…0b4e at0012 = ╱54╱T╱ // 0xb43 @0x12
0x0b31…0b4e at0013 = ╱41╱A╱ // 0xb44 @0x13
0x0b31…0b4e at0014 = ╱4c╱L╱ // 0xb45 @0x14
0x0b31…0b4e at0015 = ╱32╱2╱ // 0xb46 @0x15
0x0b31…0b4e at0016 = ╱ef╱$╱ // 0xb47 @0x16
0x0b31…0b4e at0017 = ╱ec╱,╱ // 0xb48 @0x17
0x0b31…0b4e at0018 = ╱45╱E╱ // 0xb49 @0x18
0x0b31…0b4e at0019 = ╱ec╱,╱ // 0xb4a @0x19
0x0b31…0b4e at001a = ╱45╱E╱ // 0xb4b @0x1a
0x0b31…0b4e at001b = ╱ee╱)╱ // 0xb4c @0x1b
0x0b31…0b4e at001c = EOL // 0xb4d @0x1c
0x0b31…0b4e }
0x0b4e…0b6a 98c1 1150 EXEC TUD(KSALDI$,TAL3$,E,E)
0x0b4e…0b6a LineComalBin {
0x0b4e…0b6a ptr = 0x98c1 // 0xb4e @0x0
0x0b4e…0b6a lno = 0x047e // 0xb50 @0x2
0x0b4e…0b6a at0004 = ╱9d╱ EXEC ╱ // 0xb52 @0x4
0x0b4e…0b6a at0005 = ╱54╱T╱ // 0xb53 @0x5
0x0b4e…0b6a at0006 = ╱55╱U╱ // 0xb54 @0x6
0x0b4e…0b6a at0007 = ╱44╱D╱ // 0xb55 @0x7
0x0b4e…0b6a at0008 = ╱ed╱(╱ // 0xb56 @0x8
0x0b4e…0b6a at0009 = ╱4b╱K╱ // 0xb57 @0x9
0x0b4e…0b6a at000a = ╱53╱S╱ // 0xb58 @0xa
0x0b4e…0b6a at000b = ╱41╱A╱ // 0xb59 @0xb
0x0b4e…0b6a at000c = ╱4c╱L╱ // 0xb5a @0xc
0x0b4e…0b6a at000d = ╱44╱D╱ // 0xb5b @0xd
0x0b4e…0b6a at000e = ╱49╱I╱ // 0xb5c @0xe
0x0b4e…0b6a at000f = ╱ef╱$╱ // 0xb5d @0xf
0x0b4e…0b6a at0010 = ╱ec╱,╱ // 0xb5e @0x10
0x0b4e…0b6a at0011 = ╱54╱T╱ // 0xb5f @0x11
0x0b4e…0b6a at0012 = ╱41╱A╱ // 0xb60 @0x12
0x0b4e…0b6a at0013 = ╱4c╱L╱ // 0xb61 @0x13
0x0b4e…0b6a at0014 = ╱33╱3╱ // 0xb62 @0x14
0x0b4e…0b6a at0015 = ╱ef╱$╱ // 0xb63 @0x15
0x0b4e…0b6a at0016 = ╱ec╱,╱ // 0xb64 @0x16
0x0b4e…0b6a at0017 = ╱45╱E╱ // 0xb65 @0x17
0x0b4e…0b6a at0018 = ╱ec╱,╱ // 0xb66 @0x18
0x0b4e…0b6a at0019 = ╱45╱E╱ // 0xb67 @0x19
0x0b4e…0b6a at001a = ╱ee╱)╱ // 0xb68 @0x1a
0x0b4e…0b6a at001b = EOL // 0xb69 @0x1b
0x0b4e…0b6a }
0x0b6a…0b83 98da 1170 PRINT USING "###### ":KRENR;
0x0b6a…0b83 LineComalBin {
0x0b6a…0b83 ptr = 0x98da // 0xb6a @0x0
0x0b6a…0b83 lno = 0x0492 // 0xb6c @0x2
0x0b6a…0b83 at0004 = ╱92╱ PRINT ╱ // 0xb6e @0x4
0x0b6a…0b83 at0005 = ╱b9╱ USING ╱ // 0xb6f @0x5
0x0b6a…0b83 at0006 = ╱22╱"╱ // 0xb70 @0x6
0x0b6a…0b83 at0007 = ╱23╱#╱ // 0xb71 @0x7
0x0b6a…0b83 at0008 = ╱23╱#╱ // 0xb72 @0x8
0x0b6a…0b83 at0009 = ╱23╱#╱ // 0xb73 @0x9
0x0b6a…0b83 at000a = ╱23╱#╱ // 0xb74 @0xa
0x0b6a…0b83 at000b = ╱23╱#╱ // 0xb75 @0xb
0x0b6a…0b83 at000c = ╱23╱#╱ // 0xb76 @0xc
0x0b6a…0b83 at000d = ╱20╱…╱ // 0xb77 @0xd
0x0b6a…0b83 at000e = ╱20╱…╱ // 0xb78 @0xe
0x0b6a…0b83 at000f = ╱20╱…╱ // 0xb79 @0xf
0x0b6a…0b83 at0010 = ╱22╱"╱ // 0xb7a @0x10
0x0b6a…0b83 at0011 = ╱f0╱:╱ // 0xb7b @0x11
0x0b6a…0b83 at0012 = ╱4b╱K╱ // 0xb7c @0x12
0x0b6a…0b83 at0013 = ╱52╱R╱ // 0xb7d @0x13
0x0b6a…0b83 at0014 = ╱45╱E╱ // 0xb7e @0x14
0x0b6a…0b83 at0015 = ╱4e╱N╱ // 0xb7f @0x15
0x0b6a…0b83 at0016 = ╱52╱R╱ // 0xb80 @0x16
0x0b6a…0b83 at0017 = ╱eb╱;╱ // 0xb81 @0x17
0x0b6a…0b83 at0018 = EOL // 0xb82 @0x18
0x0b6a…0b83 }
0x0b83…0bcf 9926 1180 PRINT TAB(11);KRENAVN$;TAB(38);TAL3$;TAB(55);TAL1$;TAB(68);TAL2$
0x0b83…0bcf LineComalBin {
0x0b83…0bcf ptr = 0x9926 // 0xb83 @0x0
0x0b83…0bcf lno = 0x049c // 0xb85 @0x2
0x0b83…0bcf at0004 = ╱92╱ PRINT ╱ // 0xb87 @0x4
0x0b83…0bcf at0005 = ╱d2╱TAB╱ // 0xb88 @0x5
0x0b83…0bcf at0006 = ╱ed╱(╱ // 0xb89 @0x6
0x0b83…0bcf at0007 = ╱31╱1╱ // 0xb8a @0x7
0x0b83…0bcf at0008 = ╱31╱1╱ // 0xb8b @0x8
0x0b83…0bcf at0009 = ╱fe0000b004╱ // 0xb8c @0x9
0x0b83…0bcf at000e = ╱ee╱)╱ // 0xb91 @0xe
0x0b83…0bcf at000f = ╱eb╱;╱ // 0xb92 @0xf
0x0b83…0bcf at0010 = ╱4b╱K╱ // 0xb93 @0x10
0x0b83…0bcf at0011 = ╱52╱R╱ // 0xb94 @0x11
0x0b83…0bcf at0012 = ╱45╱E╱ // 0xb95 @0x12
0x0b83…0bcf at0013 = ╱4e╱N╱ // 0xb96 @0x13
0x0b83…0bcf at0014 = ╱41╱A╱ // 0xb97 @0x14
0x0b83…0bcf at0015 = ╱56╱V╱ // 0xb98 @0x15
0x0b83…0bcf at0016 = ╱4e╱N╱ // 0xb99 @0x16
0x0b83…0bcf at0017 = ╱ef╱$╱ // 0xb9a @0x17
0x0b83…0bcf at0018 = ╱eb╱;╱ // 0xb9b @0x18
0x0b83…0bcf at0019 = ╱d2╱TAB╱ // 0xb9c @0x19
0x0b83…0bcf at001a = ╱ed╱(╱ // 0xb9d @0x1a
0x0b83…0bcf at001b = ╱33╱3╱ // 0xb9e @0x1b
0x0b83…0bcf at001c = ╱38╱8╱ // 0xb9f @0x1c
0x0b83…0bcf at001d = ╱fe00009806╱ // 0xba0 @0x1d
0x0b83…0bcf at0022 = ╱ee╱)╱ // 0xba5 @0x22
0x0b83…0bcf at0023 = ╱eb╱;╱ // 0xba6 @0x23
0x0b83…0bcf at0024 = ╱54╱T╱ // 0xba7 @0x24
0x0b83…0bcf at0025 = ╱41╱A╱ // 0xba8 @0x25
0x0b83…0bcf at0026 = ╱4c╱L╱ // 0xba9 @0x26
0x0b83…0bcf at0027 = ╱33╱3╱ // 0xbaa @0x27
0x0b83…0bcf at0028 = ╱ef╱$╱ // 0xbab @0x28
0x0b83…0bcf at0029 = ╱eb╱;╱ // 0xbac @0x29
0x0b83…0bcf at002a = ╱d2╱TAB╱ // 0xbad @0x2a
0x0b83…0bcf at002b = ╱ed╱(╱ // 0xbae @0x2b
0x0b83…0bcf at002c = ╱35╱5╱ // 0xbaf @0x2c
0x0b83…0bcf at002d = ╱35╱5╱ // 0xbb0 @0x2d
0x0b83…0bcf at002e = ╱fe0000dc06╱ // 0xbb1 @0x2e
0x0b83…0bcf at0033 = ╱ee╱)╱ // 0xbb6 @0x33
0x0b83…0bcf at0034 = ╱eb╱;╱ // 0xbb7 @0x34
0x0b83…0bcf at0035 = ╱54╱T╱ // 0xbb8 @0x35
0x0b83…0bcf at0036 = ╱41╱A╱ // 0xbb9 @0x36
0x0b83…0bcf at0037 = ╱4c╱L╱ // 0xbba @0x37
0x0b83…0bcf at0038 = ╱31╱1╱ // 0xbbb @0x38
0x0b83…0bcf at0039 = ╱ef╱$╱ // 0xbbc @0x39
0x0b83…0bcf at003a = ╱eb╱;╱ // 0xbbd @0x3a
0x0b83…0bcf at003b = ╱d2╱TAB╱ // 0xbbe @0x3b
0x0b83…0bcf at003c = ╱ed╱(╱ // 0xbbf @0x3c
0x0b83…0bcf at003d = ╱36╱6╱ // 0xbc0 @0x3d
0x0b83…0bcf at003e = ╱38╱8╱ // 0xbc1 @0x3e
0x0b83…0bcf at003f = ╱fe00008807╱ // 0xbc2 @0x3f
0x0b83…0bcf at0044 = ╱ee╱)╱ // 0xbc7 @0x44
0x0b83…0bcf at0045 = ╱eb╱;╱ // 0xbc8 @0x45
0x0b83…0bcf at0046 = ╱54╱T╱ // 0xbc9 @0x46
0x0b83…0bcf at0047 = ╱41╱A╱ // 0xbca @0x47
0x0b83…0bcf at0048 = ╱4c╱L╱ // 0xbcb @0x48
0x0b83…0bcf at0049 = ╱32╱2╱ // 0xbcc @0x49
0x0b83…0bcf at004a = ╱ef╱$╱ // 0xbcd @0x4a
0x0b83…0bcf at004b = EOL // 0xbce @0x4b
0x0b83…0bcf }
0x0bcf…0be0 9937 1190 IF TYPE=V THEN PRINT " "
0x0bcf…0be0 LineComalBin {
0x0bcf…0be0 ptr = 0x9937 // 0xbcf @0x0
0x0bcf…0be0 lno = 0x04a6 // 0xbd1 @0x2
0x0bcf…0be0 at0004 = ╱82╱ IF ╱ // 0xbd3 @0x4
0x0bcf…0be0 at0005 = ╱54╱T╱ // 0xbd4 @0x5
0x0bcf…0be0 at0006 = ╱59╱Y╱ // 0xbd5 @0x6
0x0bcf…0be0 at0007 = ╱50╱P╱ // 0xbd6 @0x7
0x0bcf…0be0 at0008 = ╱45╱E╱ // 0xbd7 @0x8
0x0bcf…0be0 at0009 = ╱dc╱=╱ // 0xbd8 @0x9
0x0bcf…0be0 at000a = ╱56╱V╱ // 0xbd9 @0xa
0x0bcf…0be0 at000b = ╱b6╱ THEN ╱ // 0xbda @0xb
0x0bcf…0be0 at000c = ╱92╱ PRINT ╱ // 0xbdb @0xc
0x0bcf…0be0 at000d = ╱22╱"╱ // 0xbdc @0xd
0x0bcf…0be0 at000e = ╱20╱…╱ // 0xbdd @0xe
0x0bcf…0be0 at000f = ╱22╱"╱ // 0xbde @0xf
0x0bcf…0be0 at0010 = EOL // 0xbdf @0x10
0x0bcf…0be0 }
0x0be0…0c01 9958 1200 IF LINIE=42 THEN LINIE=41
0x0be0…0c01 LineComalBin {
0x0be0…0c01 ptr = 0x9958 // 0xbe0 @0x0
0x0be0…0c01 lno = 0x04b0 // 0xbe2 @0x2
0x0be0…0c01 at0004 = ╱82╱ IF ╱ // 0xbe4 @0x4
0x0be0…0c01 at0005 = ╱4c╱L╱ // 0xbe5 @0x5
0x0be0…0c01 at0006 = ╱49╱I╱ // 0xbe6 @0x6
0x0be0…0c01 at0007 = ╱4e╱N╱ // 0xbe7 @0x7
0x0be0…0c01 at0008 = ╱49╱I╱ // 0xbe8 @0x8
0x0be0…0c01 at0009 = ╱45╱E╱ // 0xbe9 @0x9
0x0be0…0c01 at000a = ╱dc╱=╱ // 0xbea @0xa
0x0be0…0c01 at000b = ╱34╱4╱ // 0xbeb @0xb
0x0be0…0c01 at000c = ╱32╱2╱ // 0xbec @0xc
0x0be0…0c01 at000d = ╱fe0000a806╱ // 0xbed @0xd
0x0be0…0c01 at0012 = ╱b6╱ THEN ╱ // 0xbf2 @0x12
0x0be0…0c01 at0013 = ╱4c╱L╱ // 0xbf3 @0x13
0x0be0…0c01 at0014 = ╱49╱I╱ // 0xbf4 @0x14
0x0be0…0c01 at0015 = ╱4e╱N╱ // 0xbf5 @0x15
0x0be0…0c01 at0016 = ╱49╱I╱ // 0xbf6 @0x16
0x0be0…0c01 at0017 = ╱45╱E╱ // 0xbf7 @0x17
0x0be0…0c01 at0018 = ╱dc╱=╱ // 0xbf8 @0x18
0x0be0…0c01 at0019 = ╱34╱4╱ // 0xbf9 @0x19
0x0be0…0c01 at001a = ╱31╱1╱ // 0xbfa @0x1a
0x0be0…0c01 at001b = ╱fe0000a406╱ // 0xbfb @0x1b
0x0be0…0c01 at0020 = EOL // 0xc00 @0x20
0x0be0…0c01 }
0x0c01…0c09 9960 1210 WHEN G
0x0c01…0c09 LineComalBin {
0x0c01…0c09 ptr = 0x9960 // 0xc01 @0x0
0x0c01…0c09 lno = 0x04ba // 0xc03 @0x2
0x0c01…0c09 at0004 = ╱a301╱ WHEN ╱ // 0xc05 @0x4
0x0c01…0c09 at0006 = ╱47╱G╱ // 0xc07 @0x6
0x0c01…0c09 at0007 = EOL // 0xc08 @0x7
0x0c01…0c09 }
0x0c09…0c1b 9972 1220 LINIE=LINIE+E
0x0c09…0c1b LineComalBin {
0x0c09…0c1b ptr = 0x9972 // 0xc09 @0x0
0x0c09…0c1b lno = 0x04c4 // 0xc0b @0x2
0x0c09…0c1b at0004 = ╱4c╱L╱ // 0xc0d @0x4
0x0c09…0c1b at0005 = ╱49╱I╱ // 0xc0e @0x5
0x0c09…0c1b at0006 = ╱4e╱N╱ // 0xc0f @0x6
0x0c09…0c1b at0007 = ╱49╱I╱ // 0xc10 @0x7
0x0c09…0c1b at0008 = ╱45╱E╱ // 0xc11 @0x8
0x0c09…0c1b at0009 = ╱dc╱=╱ // 0xc12 @0x9
0x0c09…0c1b at000a = ╱4c╱L╱ // 0xc13 @0xa
0x0c09…0c1b at000b = ╱49╱I╱ // 0xc14 @0xb
0x0c09…0c1b at000c = ╱4e╱N╱ // 0xc15 @0xc
0x0c09…0c1b at000d = ╱49╱I╱ // 0xc16 @0xd
0x0c09…0c1b at000e = ╱45╱E╱ // 0xc17 @0xe
0x0c09…0c1b at000f = ╱e2╱+╱ // 0xc18 @0xf
0x0c09…0c1b at0010 = ╱45╱E╱ // 0xc19 @0x10
0x0c09…0c1b at0011 = EOL // 0xc1a @0x11
0x0c09…0c1b }
0x0c1b…0c34 998b 1230 PRINT USING "###### ":KRENR;
0x0c1b…0c34 LineComalBin {
0x0c1b…0c34 ptr = 0x998b // 0xc1b @0x0
0x0c1b…0c34 lno = 0x04ce // 0xc1d @0x2
0x0c1b…0c34 at0004 = ╱92╱ PRINT ╱ // 0xc1f @0x4
0x0c1b…0c34 at0005 = ╱b9╱ USING ╱ // 0xc20 @0x5
0x0c1b…0c34 at0006 = ╱22╱"╱ // 0xc21 @0x6
0x0c1b…0c34 at0007 = ╱23╱#╱ // 0xc22 @0x7
0x0c1b…0c34 at0008 = ╱23╱#╱ // 0xc23 @0x8
0x0c1b…0c34 at0009 = ╱23╱#╱ // 0xc24 @0x9
0x0c1b…0c34 at000a = ╱23╱#╱ // 0xc25 @0xa
0x0c1b…0c34 at000b = ╱23╱#╱ // 0xc26 @0xb
0x0c1b…0c34 at000c = ╱23╱#╱ // 0xc27 @0xc
0x0c1b…0c34 at000d = ╱20╱…╱ // 0xc28 @0xd
0x0c1b…0c34 at000e = ╱20╱…╱ // 0xc29 @0xe
0x0c1b…0c34 at000f = ╱20╱…╱ // 0xc2a @0xf
0x0c1b…0c34 at0010 = ╱22╱"╱ // 0xc2b @0x10
0x0c1b…0c34 at0011 = ╱f0╱:╱ // 0xc2c @0x11
0x0c1b…0c34 at0012 = ╱4b╱K╱ // 0xc2d @0x12
0x0c1b…0c34 at0013 = ╱52╱R╱ // 0xc2e @0x13
0x0c1b…0c34 at0014 = ╱45╱E╱ // 0xc2f @0x14
0x0c1b…0c34 at0015 = ╱4e╱N╱ // 0xc30 @0x15
0x0c1b…0c34 at0016 = ╱52╱R╱ // 0xc31 @0x16
0x0c1b…0c34 at0017 = ╱eb╱;╱ // 0xc32 @0x17
0x0c1b…0c34 at0018 = EOL // 0xc33 @0x18
0x0c1b…0c34 }
0x0c34…0c4e 99a5 1240 PRINT KRENAVN$;TAB(34);
0x0c34…0c4e LineComalBin {
0x0c34…0c4e ptr = 0x99a5 // 0xc34 @0x0
0x0c34…0c4e lno = 0x04d8 // 0xc36 @0x2
0x0c34…0c4e at0004 = ╱92╱ PRINT ╱ // 0xc38 @0x4
0x0c34…0c4e at0005 = ╱4b╱K╱ // 0xc39 @0x5
0x0c34…0c4e at0006 = ╱52╱R╱ // 0xc3a @0x6
0x0c34…0c4e at0007 = ╱45╱E╱ // 0xc3b @0x7
0x0c34…0c4e at0008 = ╱4e╱N╱ // 0xc3c @0x8
0x0c34…0c4e at0009 = ╱41╱A╱ // 0xc3d @0x9
0x0c34…0c4e at000a = ╱56╱V╱ // 0xc3e @0xa
0x0c34…0c4e at000b = ╱4e╱N╱ // 0xc3f @0xb
0x0c34…0c4e at000c = ╱ef╱$╱ // 0xc40 @0xc
0x0c34…0c4e at000d = ╱eb╱;╱ // 0xc41 @0xd
0x0c34…0c4e at000e = ╱d2╱TAB╱ // 0xc42 @0xe
0x0c34…0c4e at000f = ╱ed╱(╱ // 0xc43 @0xf
0x0c34…0c4e at0010 = ╱33╱3╱ // 0xc44 @0x10
0x0c34…0c4e at0011 = ╱34╱4╱ // 0xc45 @0x11
0x0c34…0c4e at0012 = ╱fe00008806╱ // 0xc46 @0x12
0x0c34…0c4e at0017 = ╱ee╱)╱ // 0xc4b @0x17
0x0c34…0c4e at0018 = ╱eb╱;╱ // 0xc4c @0x18
0x0c34…0c4e at0019 = EOL // 0xc4d @0x19
0x0c34…0c4e }
0x0c4e…0c5d 99b4 1250 PRINT KREGADE$;
0x0c4e…0c5d LineComalBin {
0x0c4e…0c5d ptr = 0x99b4 // 0xc4e @0x0
0x0c4e…0c5d lno = 0x04e2 // 0xc50 @0x2
0x0c4e…0c5d at0004 = ╱92╱ PRINT ╱ // 0xc52 @0x4
0x0c4e…0c5d at0005 = ╱4b╱K╱ // 0xc53 @0x5
0x0c4e…0c5d at0006 = ╱52╱R╱ // 0xc54 @0x6
0x0c4e…0c5d at0007 = ╱45╱E╱ // 0xc55 @0x7
0x0c4e…0c5d at0008 = ╱47╱G╱ // 0xc56 @0x8
0x0c4e…0c5d at0009 = ╱41╱A╱ // 0xc57 @0x9
0x0c4e…0c5d at000a = ╱44╱D╱ // 0xc58 @0xa
0x0c4e…0c5d at000b = ╱45╱E╱ // 0xc59 @0xb
0x0c4e…0c5d at000c = ╱ef╱$╱ // 0xc5a @0xc
0x0c4e…0c5d at000d = ╱eb╱;╱ // 0xc5b @0xd
0x0c4e…0c5d at000e = EOL // 0xc5c @0xe
0x0c4e…0c5d }
0x0c5d…0c78 99cf 1260 PRINT TAB(56);KREPOSTNR;
0x0c5d…0c78 LineComalBin {
0x0c5d…0c78 ptr = 0x99cf // 0xc5d @0x0
0x0c5d…0c78 lno = 0x04ec // 0xc5f @0x2
0x0c5d…0c78 at0004 = ╱92╱ PRINT ╱ // 0xc61 @0x4
0x0c5d…0c78 at0005 = ╱d2╱TAB╱ // 0xc62 @0x5
0x0c5d…0c78 at0006 = ╱ed╱(╱ // 0xc63 @0x6
0x0c5d…0c78 at0007 = ╱35╱5╱ // 0xc64 @0x7
0x0c5d…0c78 at0008 = ╱36╱6╱ // 0xc65 @0x8
0x0c5d…0c78 at0009 = ╱fe0000e006╱ // 0xc66 @0x9
0x0c5d…0c78 at000e = ╱ee╱)╱ // 0xc6b @0xe
0x0c5d…0c78 at000f = ╱eb╱;╱ // 0xc6c @0xf
0x0c5d…0c78 at0010 = ╱4b╱K╱ // 0xc6d @0x10
0x0c5d…0c78 at0011 = ╱52╱R╱ // 0xc6e @0x11
0x0c5d…0c78 at0012 = ╱45╱E╱ // 0xc6f @0x12
0x0c5d…0c78 at0013 = ╱50╱P╱ // 0xc70 @0x13
0x0c5d…0c78 at0014 = ╱4f╱O╱ // 0xc71 @0x14
0x0c5d…0c78 at0015 = ╱53╱S╱ // 0xc72 @0x15
0x0c5d…0c78 at0016 = ╱54╱T╱ // 0xc73 @0x16
0x0c5d…0c78 at0017 = ╱4e╱N╱ // 0xc74 @0x17
0x0c5d…0c78 at0018 = ╱52╱R╱ // 0xc75 @0x18
0x0c5d…0c78 at0019 = ╱eb╱;╱ // 0xc76 @0x19
0x0c5d…0c78 at001a = EOL // 0xc77 @0x1a
0x0c5d…0c78 }
0x0c78…0c9a 99f1 1270 PRINT TAB(63);KREBY$(E:16)
0x0c78…0c9a LineComalBin {
0x0c78…0c9a ptr = 0x99f1 // 0xc78 @0x0
0x0c78…0c9a lno = 0x04f6 // 0xc7a @0x2
0x0c78…0c9a at0004 = ╱92╱ PRINT ╱ // 0xc7c @0x4
0x0c78…0c9a at0005 = ╱d2╱TAB╱ // 0xc7d @0x5
0x0c78…0c9a at0006 = ╱ed╱(╱ // 0xc7e @0x6
0x0c78…0c9a at0007 = ╱36╱6╱ // 0xc7f @0x7
0x0c78…0c9a at0008 = ╱33╱3╱ // 0xc80 @0x8
0x0c78…0c9a at0009 = ╱fe0000fc06╱ // 0xc81 @0x9
0x0c78…0c9a at000e = ╱ee╱)╱ // 0xc86 @0xe
0x0c78…0c9a at000f = ╱eb╱;╱ // 0xc87 @0xf
0x0c78…0c9a at0010 = ╱4b╱K╱ // 0xc88 @0x10
0x0c78…0c9a at0011 = ╱52╱R╱ // 0xc89 @0x11
0x0c78…0c9a at0012 = ╱45╱E╱ // 0xc8a @0x12
0x0c78…0c9a at0013 = ╱42╱B╱ // 0xc8b @0x13
0x0c78…0c9a at0014 = ╱59╱Y╱ // 0xc8c @0x14
0x0c78…0c9a at0015 = ╱ef╱$╱ // 0xc8d @0x15
0x0c78…0c9a at0016 = ╱ed╱(╱ // 0xc8e @0x16
0x0c78…0c9a at0017 = ╱45╱E╱ // 0xc8f @0x17
0x0c78…0c9a at0018 = ╱f0╱:╱ // 0xc90 @0x18
0x0c78…0c9a at0019 = ╱31╱1╱ // 0xc91 @0x19
0x0c78…0c9a at001a = ╱36╱6╱ // 0xc92 @0x1a
0x0c78…0c9a at001b = ╱fe00008005╱ // 0xc93 @0x1b
0x0c78…0c9a at0020 = ╱ee╱)╱ // 0xc98 @0x20
0x0c78…0c9a at0021 = EOL // 0xc99 @0x21
0x0c78…0c9a }
0x0c9a…0ca0 99f7 1280 ENDCASE
0x0c9a…0ca0 LineComalBin {
0x0c9a…0ca0 ptr = 0x99f7 // 0xc9a @0x0
0x0c9a…0ca0 lno = 0x0500 // 0xc9c @0x2
0x0c9a…0ca0 at0004 = ╱a4╱ ENDCASE ╱ // 0xc9e @0x4
0x0c9a…0ca0 at0005 = EOL // 0xc9f @0x5
0x0c9a…0ca0 }
0x0ca0…0ca6 99fd 1290 ENDPROC
0x0ca0…0ca6 LineComalBin {
0x0ca0…0ca6 ptr = 0x99fd // 0xca0 @0x0
0x0ca0…0ca6 lno = 0x050a // 0xca2 @0x2
0x0ca0…0ca6 at0004 = ╱9f╱ ENDPROC ╱ // 0xca4 @0x4
0x0ca0…0ca6 at0005 = EOL // 0xca5 @0x5
0x0ca0…0ca6 }
0x0ca6…0ccb 9a22 1300 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x0ca6…0ccb LineComalBin {
0x0ca6…0ccb ptr = 0x9a22 // 0xca6 @0x0
0x0ca6…0ccb lno = 0x0514 // 0xca8 @0x2
0x0ca6…0ccb at0004 = ╱9e╱ PROC ╱ // 0xcaa @0x4
0x0ca6…0ccb at0005 = ╱46╱F╱ // 0xcab @0x5
0x0ca6…0ccb at0006 = ╱49╱I╱ // 0xcac @0x6
0x0ca6…0ccb at0007 = ╱4e╱N╱ // 0xcad @0x7
0x0ca6…0ccb at0008 = ╱44╱D╱ // 0xcae @0x8
0x0ca6…0ccb at0009 = ╱50╱P╱ // 0xcaf @0x9
0x0ca6…0ccb at000a = ╱4f╱O╱ // 0xcb0 @0xa
0x0ca6…0ccb at000b = ╱53╱S╱ // 0xcb1 @0xb
0x0ca6…0ccb at000c = ╱54╱T╱ // 0xcb2 @0xc
0x0ca6…0ccb at000d = ╱ed╱(╱ // 0xcb3 @0xd
0x0ca6…0ccb at000e = ╱54╱T╱ // 0xcb4 @0xe
0x0ca6…0ccb at000f = ╱41╱A╱ // 0xcb5 @0xf
0x0ca6…0ccb at0010 = ╱42╱B╱ // 0xcb6 @0x10
0x0ca6…0ccb at0011 = ╱31╱1╱ // 0xcb7 @0x11
0x0ca6…0ccb at0012 = ╱ec╱,╱ // 0xcb8 @0x12
0x0ca6…0ccb at0013 = ╱4d╱M╱ // 0xcb9 @0x13
0x0ca6…0ccb at0014 = ╱41╱A╱ // 0xcba @0x14
0x0ca6…0ccb at0015 = ╱4e╱N╱ // 0xcbb @0x15
0x0ca6…0ccb at0016 = ╱54╱T╱ // 0xcbc @0x16
0x0ca6…0ccb at0017 = ╱31╱1╱ // 0xcbd @0x17
0x0ca6…0ccb at0018 = ╱ec╱,╱ // 0xcbe @0x18
0x0ca6…0ccb at0019 = ╱4e╱N╱ // 0xcbf @0x19
0x0ca6…0ccb at001a = ╱5c╱Ø╱ // 0xcc0 @0x1a
0x0ca6…0ccb at001b = ╱47╱G╱ // 0xcc1 @0x1b
0x0ca6…0ccb at001c = ╱4c╱L╱ // 0xcc2 @0x1c
0x0ca6…0ccb at001d = ╱31╱1╱ // 0xcc3 @0x1d
0x0ca6…0ccb at001e = ╱ec╱,╱ // 0xcc4 @0x1e
0x0ca6…0ccb at001f = ╱50╱P╱ // 0xcc5 @0x1f
0x0ca6…0ccb at0020 = ╱49╱I╱ // 0xcc6 @0x20
0x0ca6…0ccb at0021 = ╱4c╱L╱ // 0xcc7 @0x21
0x0ca6…0ccb at0022 = ╱33╱3╱ // 0xcc8 @0x22
0x0ca6…0ccb at0023 = ╱ee╱)╱ // 0xcc9 @0x23
0x0ca6…0ccb at0024 = EOL // 0xcca @0x24
0x0ca6…0ccb }
0x0ccb…0ced 9a44 1310 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E
0x0ccb…0ced LineComalBin {
0x0ccb…0ced ptr = 0x9a44 // 0xccb @0x0
0x0ccb…0ced lno = 0x051e // 0xccd @0x2
0x0ccb…0ced at0004 = ╱50╱P╱ // 0xccf @0x4
0x0ccb…0ced at0005 = ╱49╱I╱ // 0xcd0 @0x5
0x0ccb…0ced at0006 = ╱4c╱L╱ // 0xcd1 @0x6
0x0ccb…0ced at0007 = ╱31╱1╱ // 0xcd2 @0x7
0x0ccb…0ced at0008 = ╱dc╱=╱ // 0xcd3 @0x8
0x0ccb…0ced at0009 = ╱4d╱M╱ // 0xcd4 @0x9
0x0ccb…0ced at000a = ╱41╱A╱ // 0xcd5 @0xa
0x0ccb…0ced at000b = ╱4e╱N╱ // 0xcd6 @0xb
0x0ccb…0ced at000c = ╱54╱T╱ // 0xcd7 @0xc
0x0ccb…0ced at000d = ╱31╱1╱ // 0xcd8 @0xd
0x0ccb…0ced at000e = ╱e7╱ DIV ╱ // 0xcd9 @0xe
0x0ccb…0ced at000f = ╱47╱G╱ // 0xcda @0xf
0x0ccb…0ced at0010 = ╱eb╱;╱ // 0xcdb @0x10
0x0ccb…0ced at0011 = ╱50╱P╱ // 0xcdc @0x11
0x0ccb…0ced at0012 = ╱49╱I╱ // 0xcdd @0x12
0x0ccb…0ced at0013 = ╱4c╱L╱ // 0xcde @0x13
0x0ccb…0ced at0014 = ╱33╱3╱ // 0xcdf @0x14
0x0ccb…0ced at0015 = ╱dc╱=╱ // 0xce0 @0x15
0x0ccb…0ced at0016 = ╱50╱P╱ // 0xce1 @0x16
0x0ccb…0ced at0017 = ╱49╱I╱ // 0xce2 @0x17
0x0ccb…0ced at0018 = ╱4c╱L╱ // 0xce3 @0x18
0x0ccb…0ced at0019 = ╱31╱1╱ // 0xce4 @0x19
0x0ccb…0ced at001a = ╱eb╱;╱ // 0xce5 @0x1a
0x0ccb…0ced at001b = ╱43╱C╱ // 0xce6 @0x1b
0x0ccb…0ced at001c = ╱45╱E╱ // 0xce7 @0x1c
0x0ccb…0ced at001d = ╱4b╱K╱ // 0xce8 @0x1d
0x0ccb…0ced at001e = ╱53╱S╱ // 0xce9 @0x1e
0x0ccb…0ced at001f = ╱dc╱=╱ // 0xcea @0x1f
0x0ccb…0ced at0020 = ╱45╱E╱ // 0xceb @0x20
0x0ccb…0ced at0021 = EOL // 0xcec @0x21
0x0ccb…0ced }
0x0ced…0cf3 9a4a 1320 REPEAT
0x0ced…0cf3 LineComalBin {
0x0ced…0cf3 ptr = 0x9a4a // 0xced @0x0
0x0ced…0cf3 lno = 0x0528 // 0xcef @0x2
0x0ced…0cf3 at0004 = ╱97╱ REPEAT ╱ // 0xcf1 @0x4
0x0ced…0cf3 at0005 = EOL // 0xcf2 @0x5
0x0ced…0cf3 }
0x0cf3…0d14 9a6b 1330 IF NØGL1=TAB1(PIL3,E) OR PIL1=E THEN EXIT
0x0cf3…0d14 LineComalBin {
0x0cf3…0d14 ptr = 0x9a6b // 0xcf3 @0x0
0x0cf3…0d14 lno = 0x0532 // 0xcf5 @0x2
0x0cf3…0d14 at0004 = ╱82╱ IF ╱ // 0xcf7 @0x4
0x0cf3…0d14 at0005 = ╱4e╱N╱ // 0xcf8 @0x5
0x0cf3…0d14 at0006 = ╱5c╱Ø╱ // 0xcf9 @0x6
0x0cf3…0d14 at0007 = ╱47╱G╱ // 0xcfa @0x7
0x0cf3…0d14 at0008 = ╱4c╱L╱ // 0xcfb @0x8
0x0cf3…0d14 at0009 = ╱31╱1╱ // 0xcfc @0x9
0x0cf3…0d14 at000a = ╱dc╱=╱ // 0xcfd @0xa
0x0cf3…0d14 at000b = ╱54╱T╱ // 0xcfe @0xb
0x0cf3…0d14 at000c = ╱41╱A╱ // 0xcff @0xc
0x0cf3…0d14 at000d = ╱42╱B╱ // 0xd00 @0xd
0x0cf3…0d14 at000e = ╱31╱1╱ // 0xd01 @0xe
0x0cf3…0d14 at000f = ╱ed╱(╱ // 0xd02 @0xf
0x0cf3…0d14 at0010 = ╱50╱P╱ // 0xd03 @0x10
0x0cf3…0d14 at0011 = ╱49╱I╱ // 0xd04 @0x11
0x0cf3…0d14 at0012 = ╱4c╱L╱ // 0xd05 @0x12
0x0cf3…0d14 at0013 = ╱33╱3╱ // 0xd06 @0x13
0x0cf3…0d14 at0014 = ╱ec╱,╱ // 0xd07 @0x14
0x0cf3…0d14 at0015 = ╱45╱E╱ // 0xd08 @0x15
0x0cf3…0d14 at0016 = ╱ee╱)╱ // 0xd09 @0x16
0x0cf3…0d14 at0017 = ╱db╱ OR ╱ // 0xd0a @0x17
0x0cf3…0d14 at0018 = ╱50╱P╱ // 0xd0b @0x18
0x0cf3…0d14 at0019 = ╱49╱I╱ // 0xd0c @0x19
0x0cf3…0d14 at001a = ╱4c╱L╱ // 0xd0d @0x1a
0x0cf3…0d14 at001b = ╱31╱1╱ // 0xd0e @0x1b
0x0cf3…0d14 at001c = ╱dc╱=╱ // 0xd0f @0x1c
0x0cf3…0d14 at001d = ╱45╱E╱ // 0xd10 @0x1d
0x0cf3…0d14 at001e = ╱b6╱ THEN ╱ // 0xd11 @0x1e
0x0cf3…0d14 at001f = ╱99╱ EXIT ╱ // 0xd12 @0x1f
0x0cf3…0d14 at0020 = EOL // 0xd13 @0x20
0x0cf3…0d14 }
0x0d14…0d52 9aa9 1340 PIL1=(PIL1+E) DIV G;PIL3=PIL3+PIL1*(E-G*(NØGL1<TAB1(PIL3,E)))
0x0d14…0d52 LineComalBin {
0x0d14…0d52 ptr = 0x9aa9 // 0xd14 @0x0
0x0d14…0d52 lno = 0x053c // 0xd16 @0x2
0x0d14…0d52 at0004 = ╱50╱P╱ // 0xd18 @0x4
0x0d14…0d52 at0005 = ╱49╱I╱ // 0xd19 @0x5
0x0d14…0d52 at0006 = ╱4c╱L╱ // 0xd1a @0x6
0x0d14…0d52 at0007 = ╱31╱1╱ // 0xd1b @0x7
0x0d14…0d52 at0008 = ╱dc╱=╱ // 0xd1c @0x8
0x0d14…0d52 at0009 = ╱ed╱(╱ // 0xd1d @0x9
0x0d14…0d52 at000a = ╱50╱P╱ // 0xd1e @0xa
0x0d14…0d52 at000b = ╱49╱I╱ // 0xd1f @0xb
0x0d14…0d52 at000c = ╱4c╱L╱ // 0xd20 @0xc
0x0d14…0d52 at000d = ╱31╱1╱ // 0xd21 @0xd
0x0d14…0d52 at000e = ╱e2╱+╱ // 0xd22 @0xe
0x0d14…0d52 at000f = ╱45╱E╱ // 0xd23 @0xf
0x0d14…0d52 at0010 = ╱ee╱)╱ // 0xd24 @0x10
0x0d14…0d52 at0011 = ╱e7╱ DIV ╱ // 0xd25 @0x11
0x0d14…0d52 at0012 = ╱47╱G╱ // 0xd26 @0x12
0x0d14…0d52 at0013 = ╱eb╱;╱ // 0xd27 @0x13
0x0d14…0d52 at0014 = ╱50╱P╱ // 0xd28 @0x14
0x0d14…0d52 at0015 = ╱49╱I╱ // 0xd29 @0x15
0x0d14…0d52 at0016 = ╱4c╱L╱ // 0xd2a @0x16
0x0d14…0d52 at0017 = ╱33╱3╱ // 0xd2b @0x17
0x0d14…0d52 at0018 = ╱dc╱=╱ // 0xd2c @0x18
0x0d14…0d52 at0019 = ╱50╱P╱ // 0xd2d @0x19
0x0d14…0d52 at001a = ╱49╱I╱ // 0xd2e @0x1a
0x0d14…0d52 at001b = ╱4c╱L╱ // 0xd2f @0x1b
0x0d14…0d52 at001c = ╱33╱3╱ // 0xd30 @0x1c
0x0d14…0d52 at001d = ╱e2╱+╱ // 0xd31 @0x1d
0x0d14…0d52 at001e = ╱50╱P╱ // 0xd32 @0x1e
0x0d14…0d52 at001f = ╱49╱I╱ // 0xd33 @0x1f
0x0d14…0d52 at0020 = ╱4c╱L╱ // 0xd34 @0x20
0x0d14…0d52 at0021 = ╱31╱1╱ // 0xd35 @0x21
0x0d14…0d52 at0022 = ╱e4╱*╱ // 0xd36 @0x22
0x0d14…0d52 at0023 = ╱ed╱(╱ // 0xd37 @0x23
0x0d14…0d52 at0024 = ╱45╱E╱ // 0xd38 @0x24
0x0d14…0d52 at0025 = ╱e3╱-╱ // 0xd39 @0x25
0x0d14…0d52 at0026 = ╱47╱G╱ // 0xd3a @0x26
0x0d14…0d52 at0027 = ╱e4╱*╱ // 0xd3b @0x27
0x0d14…0d52 at0028 = ╱ed╱(╱ // 0xd3c @0x28
0x0d14…0d52 at0029 = ╱4e╱N╱ // 0xd3d @0x29
0x0d14…0d52 at002a = ╱5c╱Ø╱ // 0xd3e @0x2a
0x0d14…0d52 at002b = ╱47╱G╱ // 0xd3f @0x2b
0x0d14…0d52 at002c = ╱4c╱L╱ // 0xd40 @0x2c
0x0d14…0d52 at002d = ╱31╱1╱ // 0xd41 @0x2d
0x0d14…0d52 at002e = ╱dd╱<╱ // 0xd42 @0x2e
0x0d14…0d52 at002f = ╱54╱T╱ // 0xd43 @0x2f
0x0d14…0d52 at0030 = ╱41╱A╱ // 0xd44 @0x30
0x0d14…0d52 at0031 = ╱42╱B╱ // 0xd45 @0x31
0x0d14…0d52 at0032 = ╱31╱1╱ // 0xd46 @0x32
0x0d14…0d52 at0033 = ╱ed╱(╱ // 0xd47 @0x33
0x0d14…0d52 at0034 = ╱50╱P╱ // 0xd48 @0x34
0x0d14…0d52 at0035 = ╱49╱I╱ // 0xd49 @0x35
0x0d14…0d52 at0036 = ╱4c╱L╱ // 0xd4a @0x36
0x0d14…0d52 at0037 = ╱33╱3╱ // 0xd4b @0x37
0x0d14…0d52 at0038 = ╱ec╱,╱ // 0xd4c @0x38
0x0d14…0d52 at0039 = ╱45╱E╱ // 0xd4d @0x39
0x0d14…0d52 at003a = ╱ee╱)╱ // 0xd4e @0x3a
0x0d14…0d52 at003b = ╱ee╱)╱ // 0xd4f @0x3b
0x0d14…0d52 at003c = ╱ee╱)╱ // 0xd50 @0x3c
0x0d14…0d52 at003d = EOL // 0xd51 @0x3d
0x0d14…0d52 }
0x0d52…0d65 9abc 1350 IF PIL3<E THEN PIL3=E
0x0d52…0d65 LineComalBin {
0x0d52…0d65 ptr = 0x9abc // 0xd52 @0x0
0x0d52…0d65 lno = 0x0546 // 0xd54 @0x2
0x0d52…0d65 at0004 = ╱82╱ IF ╱ // 0xd56 @0x4
0x0d52…0d65 at0005 = ╱50╱P╱ // 0xd57 @0x5
0x0d52…0d65 at0006 = ╱49╱I╱ // 0xd58 @0x6
0x0d52…0d65 at0007 = ╱4c╱L╱ // 0xd59 @0x7
0x0d52…0d65 at0008 = ╱33╱3╱ // 0xd5a @0x8
0x0d52…0d65 at0009 = ╱dd╱<╱ // 0xd5b @0x9
0x0d52…0d65 at000a = ╱45╱E╱ // 0xd5c @0xa
0x0d52…0d65 at000b = ╱b6╱ THEN ╱ // 0xd5d @0xb
0x0d52…0d65 at000c = ╱50╱P╱ // 0xd5e @0xc
0x0d52…0d65 at000d = ╱49╱I╱ // 0xd5f @0xd
0x0d52…0d65 at000e = ╱4c╱L╱ // 0xd60 @0xe
0x0d52…0d65 at000f = ╱33╱3╱ // 0xd61 @0xf
0x0d52…0d65 at0010 = ╱dc╱=╱ // 0xd62 @0x10
0x0d52…0d65 at0011 = ╱45╱E╱ // 0xd63 @0x11
0x0d52…0d65 at0012 = EOL // 0xd64 @0x12
0x0d52…0d65 }
0x0d65…0d80 9ad7 1360 IF PIL3>MANT1 THEN PIL3=MANT1
0x0d65…0d80 LineComalBin {
0x0d65…0d80 ptr = 0x9ad7 // 0xd65 @0x0
0x0d65…0d80 lno = 0x0550 // 0xd67 @0x2
0x0d65…0d80 at0004 = ╱82╱ IF ╱ // 0xd69 @0x4
0x0d65…0d80 at0005 = ╱50╱P╱ // 0xd6a @0x5
0x0d65…0d80 at0006 = ╱49╱I╱ // 0xd6b @0x6
0x0d65…0d80 at0007 = ╱4c╱L╱ // 0xd6c @0x7
0x0d65…0d80 at0008 = ╱33╱3╱ // 0xd6d @0x8
0x0d65…0d80 at0009 = ╱de╱>╱ // 0xd6e @0x9
0x0d65…0d80 at000a = ╱4d╱M╱ // 0xd6f @0xa
0x0d65…0d80 at000b = ╱41╱A╱ // 0xd70 @0xb
0x0d65…0d80 at000c = ╱4e╱N╱ // 0xd71 @0xc
0x0d65…0d80 at000d = ╱54╱T╱ // 0xd72 @0xd
0x0d65…0d80 at000e = ╱31╱1╱ // 0xd73 @0xe
0x0d65…0d80 at000f = ╱b6╱ THEN ╱ // 0xd74 @0xf
0x0d65…0d80 at0010 = ╱50╱P╱ // 0xd75 @0x10
0x0d65…0d80 at0011 = ╱49╱I╱ // 0xd76 @0x11
0x0d65…0d80 at0012 = ╱4c╱L╱ // 0xd77 @0x12
0x0d65…0d80 at0013 = ╱33╱3╱ // 0xd78 @0x13
0x0d65…0d80 at0014 = ╱dc╱=╱ // 0xd79 @0x14
0x0d65…0d80 at0015 = ╱4d╱M╱ // 0xd7a @0x15
0x0d65…0d80 at0016 = ╱41╱A╱ // 0xd7b @0x16
0x0d65…0d80 at0017 = ╱4e╱N╱ // 0xd7c @0x17
0x0d65…0d80 at0018 = ╱54╱T╱ // 0xd7d @0x18
0x0d65…0d80 at0019 = ╱31╱1╱ // 0xd7e @0x19
0x0d65…0d80 at001a = EOL // 0xd7f @0x1a
0x0d65…0d80 }
0x0d80…0d8c 9ae3 1370 UNTIL PIL1=B
0x0d80…0d8c LineComalBin {
0x0d80…0d8c ptr = 0x9ae3 // 0xd80 @0x0
0x0d80…0d8c lno = 0x055a // 0xd82 @0x2
0x0d80…0d8c at0004 = ╱98╱ UNTIL ╱ // 0xd84 @0x4
0x0d80…0d8c at0005 = ╱50╱P╱ // 0xd85 @0x5
0x0d80…0d8c at0006 = ╱49╱I╱ // 0xd86 @0x6
0x0d80…0d8c at0007 = ╱4c╱L╱ // 0xd87 @0x7
0x0d80…0d8c at0008 = ╱31╱1╱ // 0xd88 @0x8
0x0d80…0d8c at0009 = ╱dc╱=╱ // 0xd89 @0x9
0x0d80…0d8c at000a = ╱42╱B╱ // 0xd8a @0xa
0x0d80…0d8c at000b = EOL // 0xd8b @0xb
0x0d80…0d8c }
0x0d8c…0dab 9b02 1380 IF NØGL1=TAB1(PIL3,E) THEN CEKS=B
0x0d8c…0dab LineComalBin {
0x0d8c…0dab ptr = 0x9b02 // 0xd8c @0x0
0x0d8c…0dab lno = 0x0564 // 0xd8e @0x2
0x0d8c…0dab at0004 = ╱82╱ IF ╱ // 0xd90 @0x4
0x0d8c…0dab at0005 = ╱4e╱N╱ // 0xd91 @0x5
0x0d8c…0dab at0006 = ╱5c╱Ø╱ // 0xd92 @0x6
0x0d8c…0dab at0007 = ╱47╱G╱ // 0xd93 @0x7
0x0d8c…0dab at0008 = ╱4c╱L╱ // 0xd94 @0x8
0x0d8c…0dab at0009 = ╱31╱1╱ // 0xd95 @0x9
0x0d8c…0dab at000a = ╱dc╱=╱ // 0xd96 @0xa
0x0d8c…0dab at000b = ╱54╱T╱ // 0xd97 @0xb
0x0d8c…0dab at000c = ╱41╱A╱ // 0xd98 @0xc
0x0d8c…0dab at000d = ╱42╱B╱ // 0xd99 @0xd
0x0d8c…0dab at000e = ╱31╱1╱ // 0xd9a @0xe
0x0d8c…0dab at000f = ╱ed╱(╱ // 0xd9b @0xf
0x0d8c…0dab at0010 = ╱50╱P╱ // 0xd9c @0x10
0x0d8c…0dab at0011 = ╱49╱I╱ // 0xd9d @0x11
0x0d8c…0dab at0012 = ╱4c╱L╱ // 0xd9e @0x12
0x0d8c…0dab at0013 = ╱33╱3╱ // 0xd9f @0x13
0x0d8c…0dab at0014 = ╱ec╱,╱ // 0xda0 @0x14
0x0d8c…0dab at0015 = ╱45╱E╱ // 0xda1 @0x15
0x0d8c…0dab at0016 = ╱ee╱)╱ // 0xda2 @0x16
0x0d8c…0dab at0017 = ╱b6╱ THEN ╱ // 0xda3 @0x17
0x0d8c…0dab at0018 = ╱43╱C╱ // 0xda4 @0x18
0x0d8c…0dab at0019 = ╱45╱E╱ // 0xda5 @0x19
0x0d8c…0dab at001a = ╱4b╱K╱ // 0xda6 @0x1a
0x0d8c…0dab at001b = ╱53╱S╱ // 0xda7 @0x1b
0x0d8c…0dab at001c = ╱dc╱=╱ // 0xda8 @0x1c
0x0d8c…0dab at001d = ╱42╱B╱ // 0xda9 @0x1d
0x0d8c…0dab at001e = EOL // 0xdaa @0x1e
0x0d8c…0dab }
0x0dab…0db1 9b08 1390 ENDPROC
0x0dab…0db1 LineComalBin {
0x0dab…0db1 ptr = 0x9b08 // 0xdab @0x0
0x0dab…0db1 lno = 0x056e // 0xdad @0x2
0x0dab…0db1 at0004 = ╱9f╱ ENDPROC ╱ // 0xdaf @0x4
0x0dab…0db1 at0005 = EOL // 0xdb0 @0x5
0x0dab…0db1 }
0x0db1…0dc2 9b19 1400 PROC NRTEST(NUM)
0x0db1…0dc2 LineComalBin {
0x0db1…0dc2 ptr = 0x9b19 // 0xdb1 @0x0
0x0db1…0dc2 lno = 0x0578 // 0xdb3 @0x2
0x0db1…0dc2 at0004 = ╱9e╱ PROC ╱ // 0xdb5 @0x4
0x0db1…0dc2 at0005 = ╱4e╱N╱ // 0xdb6 @0x5
0x0db1…0dc2 at0006 = ╱52╱R╱ // 0xdb7 @0x6
0x0db1…0dc2 at0007 = ╱54╱T╱ // 0xdb8 @0x7
0x0db1…0dc2 at0008 = ╱45╱E╱ // 0xdb9 @0x8
0x0db1…0dc2 at0009 = ╱53╱S╱ // 0xdba @0x9
0x0db1…0dc2 at000a = ╱54╱T╱ // 0xdbb @0xa
0x0db1…0dc2 at000b = ╱ed╱(╱ // 0xdbc @0xb
0x0db1…0dc2 at000c = ╱4e╱N╱ // 0xdbd @0xc
0x0db1…0dc2 at000d = ╱55╱U╱ // 0xdbe @0xd
0x0db1…0dc2 at000e = ╱4d╱M╱ // 0xdbf @0xe
0x0db1…0dc2 at000f = ╱ee╱)╱ // 0xdc0 @0xf
0x0db1…0dc2 at0010 = EOL // 0xdc1 @0x10
0x0db1…0dc2 }
0x0dc2…0de3 9b3a 1410 P=B;TEST2=B;KTAL=B;L=LEN(NUM$)
0x0dc2…0de3 LineComalBin {
0x0dc2…0de3 ptr = 0x9b3a // 0xdc2 @0x0
0x0dc2…0de3 lno = 0x0582 // 0xdc4 @0x2
0x0dc2…0de3 at0004 = ╱50╱P╱ // 0xdc6 @0x4
0x0dc2…0de3 at0005 = ╱dc╱=╱ // 0xdc7 @0x5
0x0dc2…0de3 at0006 = ╱42╱B╱ // 0xdc8 @0x6
0x0dc2…0de3 at0007 = ╱eb╱;╱ // 0xdc9 @0x7
0x0dc2…0de3 at0008 = ╱54╱T╱ // 0xdca @0x8
0x0dc2…0de3 at0009 = ╱45╱E╱ // 0xdcb @0x9
0x0dc2…0de3 at000a = ╱53╱S╱ // 0xdcc @0xa
0x0dc2…0de3 at000b = ╱54╱T╱ // 0xdcd @0xb
0x0dc2…0de3 at000c = ╱32╱2╱ // 0xdce @0xc
0x0dc2…0de3 at000d = ╱dc╱=╱ // 0xdcf @0xd
0x0dc2…0de3 at000e = ╱42╱B╱ // 0xdd0 @0xe
0x0dc2…0de3 at000f = ╱eb╱;╱ // 0xdd1 @0xf
0x0dc2…0de3 at0010 = ╱4b╱K╱ // 0xdd2 @0x10
0x0dc2…0de3 at0011 = ╱54╱T╱ // 0xdd3 @0x11
0x0dc2…0de3 at0012 = ╱41╱A╱ // 0xdd4 @0x12
0x0dc2…0de3 at0013 = ╱4c╱L╱ // 0xdd5 @0x13
0x0dc2…0de3 at0014 = ╱dc╱=╱ // 0xdd6 @0x14
0x0dc2…0de3 at0015 = ╱42╱B╱ // 0xdd7 @0x15
0x0dc2…0de3 at0016 = ╱eb╱;╱ // 0xdd8 @0x16
0x0dc2…0de3 at0017 = ╱4c╱L╱ // 0xdd9 @0x17
0x0dc2…0de3 at0018 = ╱dc╱=╱ // 0xdda @0x18
0x0dc2…0de3 at0019 = ╱cc╱LEN╱ // 0xddb @0x19
0x0dc2…0de3 at001a = ╱ed╱(╱ // 0xddc @0x1a
0x0dc2…0de3 at001b = ╱4e╱N╱ // 0xddd @0x1b
0x0dc2…0de3 at001c = ╱55╱U╱ // 0xdde @0x1c
0x0dc2…0de3 at001d = ╱4d╱M╱ // 0xddf @0x1d
0x0dc2…0de3 at001e = ╱ef╱$╱ // 0xde0 @0x1e
0x0dc2…0de3 at001f = ╱ee╱)╱ // 0xde1 @0x1f
0x0dc2…0de3 at0020 = EOL // 0xde2 @0x20
0x0dc2…0de3 }
0x0de3…0dec 9b43 1420 CASE L OF
0x0de3…0dec LineComalBin {
0x0de3…0dec ptr = 0x9b43 // 0xde3 @0x0
0x0de3…0dec lno = 0x058c // 0xde5 @0x2
0x0de3…0dec at0004 = ╱a201╱ CASE ╱ // 0xde7 @0x4
0x0de3…0dec at0006 = ╱4c╱L╱ // 0xde9 @0x6
0x0de3…0dec at0007 = ╱ba╱ OF ╱ // 0xdea @0x7
0x0de3…0dec at0008 = EOL // 0xdeb @0x8
0x0de3…0dec }
0x0dec…0df7 9b4e 1430 FOR J=E TO L
0x0dec…0df7 LineComalBin {
0x0dec…0df7 ptr = 0x9b4e // 0xdec @0x0
0x0dec…0df7 lno = 0x0596 // 0xdee @0x2
0x0dec…0df7 at0004 = ╱83╱ FOR ╱ // 0xdf0 @0x4
0x0dec…0df7 at0005 = ╱4a╱J╱ // 0xdf1 @0x5
0x0dec…0df7 at0006 = ╱dc╱=╱ // 0xdf2 @0x6
0x0dec…0df7 at0007 = ╱45╱E╱ // 0xdf3 @0x7
0x0dec…0df7 at0008 = ╱b7╱ TO ╱ // 0xdf4 @0x8
0x0dec…0df7 at0009 = ╱4c╱L╱ // 0xdf5 @0x9
0x0dec…0df7 at000a = EOL // 0xdf6 @0xa
0x0dec…0df7 }
0x0df7…0e14 9b6b 1440 P1=INT(ORD(NUM$(J))-48)
0x0df7…0e14 LineComalBin {
0x0df7…0e14 ptr = 0x9b6b // 0xdf7 @0x0
0x0df7…0e14 lno = 0x05a0 // 0xdf9 @0x2
0x0df7…0e14 at0004 = ╱50╱P╱ // 0xdfb @0x4
0x0df7…0e14 at0005 = ╱31╱1╱ // 0xdfc @0x5
0x0df7…0e14 at0006 = ╱dc╱=╱ // 0xdfd @0x6
0x0df7…0e14 at0007 = ╱c6╱INT╱ // 0xdfe @0x7
0x0df7…0e14 at0008 = ╱ed╱(╱ // 0xdff @0x8
0x0df7…0e14 at0009 = ╱cd╱ORD╱ // 0xe00 @0x9
0x0df7…0e14 at000a = ╱ed╱(╱ // 0xe01 @0xa
0x0df7…0e14 at000b = ╱4e╱N╱ // 0xe02 @0xb
0x0df7…0e14 at000c = ╱55╱U╱ // 0xe03 @0xc
0x0df7…0e14 at000d = ╱4d╱M╱ // 0xe04 @0xd
0x0df7…0e14 at000e = ╱ef╱$╱ // 0xe05 @0xe
0x0df7…0e14 at000f = ╱ed╱(╱ // 0xe06 @0xf
0x0df7…0e14 at0010 = ╱4a╱J╱ // 0xe07 @0x10
0x0df7…0e14 at0011 = ╱ee╱)╱ // 0xe08 @0x11
0x0df7…0e14 at0012 = ╱ee╱)╱ // 0xe09 @0x12
0x0df7…0e14 at0013 = ╱e3╱-╱ // 0xe0a @0x13
0x0df7…0e14 at0014 = ╱34╱4╱ // 0xe0b @0x14
0x0df7…0e14 at0015 = ╱38╱8╱ // 0xe0c @0x15
0x0df7…0e14 at0016 = ╱fe0000c006╱ // 0xe0d @0x16
0x0df7…0e14 at001b = ╱ee╱)╱ // 0xe12 @0x1b
0x0df7…0e14 at001c = EOL // 0xe13 @0x1c
0x0df7…0e14 }
0x0e14…0e24 9b7b 1450 IF P1=>B AND P1<=W THEN
0x0e14…0e24 LineComalBin {
0x0e14…0e24 ptr = 0x9b7b // 0xe14 @0x0
0x0e14…0e24 lno = 0x05aa // 0xe16 @0x2
0x0e14…0e24 at0004 = ╱9c╱ IF ╱ // 0xe18 @0x4
0x0e14…0e24 at0005 = ╱50╱P╱ // 0xe19 @0x5
0x0e14…0e24 at0006 = ╱31╱1╱ // 0xe1a @0x6
0x0e14…0e24 at0007 = ╱e0╱=>╱ // 0xe1b @0x7
0x0e14…0e24 at0008 = ╱42╱B╱ // 0xe1c @0x8
0x0e14…0e24 at0009 = ╱da╱ AND ╱ // 0xe1d @0x9
0x0e14…0e24 at000a = ╱50╱P╱ // 0xe1e @0xa
0x0e14…0e24 at000b = ╱31╱1╱ // 0xe1f @0xb
0x0e14…0e24 at000c = ╱df╱<=╱ // 0xe20 @0xc
0x0e14…0e24 at000d = ╱57╱W╱ // 0xe21 @0xd
0x0e14…0e24 at000e = ╱b6╱ THEN ╱ // 0xe22 @0xe
0x0e14…0e24 at000f = EOL // 0xe23 @0xf
0x0e14…0e24 }
0x0e24…0e37 9b8e 1460 P=P*10+P1
0x0e24…0e37 LineComalBin {
0x0e24…0e37 ptr = 0x9b8e // 0xe24 @0x0
0x0e24…0e37 lno = 0x05b4 // 0xe26 @0x2
0x0e24…0e37 at0004 = ╱50╱P╱ // 0xe28 @0x4
0x0e24…0e37 at0005 = ╱dc╱=╱ // 0xe29 @0x5
0x0e24…0e37 at0006 = ╱50╱P╱ // 0xe2a @0x6
0x0e24…0e37 at0007 = ╱e4╱*╱ // 0xe2b @0x7
0x0e24…0e37 at0008 = ╱31╱1╱ // 0xe2c @0x8
0x0e24…0e37 at0009 = ╱30╱0╱ // 0xe2d @0x9
0x0e24…0e37 at000a = ╱fe0000a004╱ // 0xe2e @0xa
0x0e24…0e37 at000f = ╱e2╱+╱ // 0xe33 @0xf
0x0e24…0e37 at0010 = ╱50╱P╱ // 0xe34 @0x10
0x0e24…0e37 at0011 = ╱31╱1╱ // 0xe35 @0x11
0x0e24…0e37 at0012 = EOL // 0xe36 @0x12
0x0e24…0e37 }
0x0e37…0e3d 9b94 1470 ELSE
0x0e37…0e3d LineComalBin {
0x0e37…0e3d ptr = 0x9b94 // 0xe37 @0x0
0x0e37…0e3d lno = 0x05be // 0xe39 @0x2
0x0e37…0e3d at0004 = ╱9a╱ ELSE ╱ // 0xe3b @0x4
0x0e37…0e3d at0005 = EOL // 0xe3c @0x5
0x0e37…0e3d }
0x0e3d…0e49 9ba0 1480 TEST2=E
0x0e3d…0e49 LineComalBin {
0x0e3d…0e49 ptr = 0x9ba0 // 0xe3d @0x0
0x0e3d…0e49 lno = 0x05c8 // 0xe3f @0x2
0x0e3d…0e49 at0004 = ╱54╱T╱ // 0xe41 @0x4
0x0e3d…0e49 at0005 = ╱45╱E╱ // 0xe42 @0x5
0x0e3d…0e49 at0006 = ╱53╱S╱ // 0xe43 @0x6
0x0e3d…0e49 at0007 = ╱54╱T╱ // 0xe44 @0x7
0x0e3d…0e49 at0008 = ╱32╱2╱ // 0xe45 @0x8
0x0e3d…0e49 at0009 = ╱dc╱=╱ // 0xe46 @0x9
0x0e3d…0e49 at000a = ╱45╱E╱ // 0xe47 @0xa
0x0e3d…0e49 at000b = EOL // 0xe48 @0xb
0x0e3d…0e49 }
0x0e49…0e4f 9ba6 1490 ENDIF
0x0e49…0e4f LineComalBin {
0x0e49…0e4f ptr = 0x9ba6 // 0xe49 @0x0
0x0e49…0e4f lno = 0x05d2 // 0xe4b @0x2
0x0e49…0e4f at0004 = ╱9b╱ ENDIF ╱ // 0xe4d @0x4
0x0e49…0e4f at0005 = EOL // 0xe4e @0x5
0x0e49…0e4f }
0x0e4f…0e56 9bad 1500 NEXT J
0x0e4f…0e56 LineComalBin {
0x0e4f…0e56 ptr = 0x9bad // 0xe4f @0x0
0x0e4f…0e56 lno = 0x05dc // 0xe51 @0x2
0x0e4f…0e56 at0004 = ╱84╱ NEXT ╱ // 0xe53 @0x4
0x0e4f…0e56 at0005 = ╱4a╱J╱ // 0xe54 @0x5
0x0e4f…0e56 at0006 = EOL // 0xe55 @0x6
0x0e4f…0e56 }
0x0e56…0e7e 9bd5 1510 KTAL=P DIV 10000;KTAL9=P DIV 1000
0x0e56…0e7e LineComalBin {
0x0e56…0e7e ptr = 0x9bd5 // 0xe56 @0x0
0x0e56…0e7e lno = 0x05e6 // 0xe58 @0x2
0x0e56…0e7e at0004 = ╱4b╱K╱ // 0xe5a @0x4
0x0e56…0e7e at0005 = ╱54╱T╱ // 0xe5b @0x5
0x0e56…0e7e at0006 = ╱41╱A╱ // 0xe5c @0x6
0x0e56…0e7e at0007 = ╱4c╱L╱ // 0xe5d @0x7
0x0e56…0e7e at0008 = ╱dc╱=╱ // 0xe5e @0x8
0x0e56…0e7e at0009 = ╱50╱P╱ // 0xe5f @0x9
0x0e56…0e7e at000a = ╱e7╱ DIV ╱ // 0xe60 @0xa
0x0e56…0e7e at000b = ╱31╱1╱ // 0xe61 @0xb
0x0e56…0e7e at000c = ╱30╱0╱ // 0xe62 @0xc
0x0e56…0e7e at000d = ╱30╱0╱ // 0xe63 @0xd
0x0e56…0e7e at000e = ╱30╱0╱ // 0xe64 @0xe
0x0e56…0e7e at000f = ╱30╱0╱ // 0xe65 @0xf
0x0e56…0e7e at0010 = ╱fe00409c0e╱ // 0xe66 @0x10
0x0e56…0e7e at0015 = ╱eb╱;╱ // 0xe6b @0x15
0x0e56…0e7e at0016 = ╱4b╱K╱ // 0xe6c @0x16
0x0e56…0e7e at0017 = ╱54╱T╱ // 0xe6d @0x17
0x0e56…0e7e at0018 = ╱41╱A╱ // 0xe6e @0x18
0x0e56…0e7e at0019 = ╱4c╱L╱ // 0xe6f @0x19
0x0e56…0e7e at001a = ╱39╱9╱ // 0xe70 @0x1a
0x0e56…0e7e at001b = ╱dc╱=╱ // 0xe71 @0x1b
0x0e56…0e7e at001c = ╱50╱P╱ // 0xe72 @0x1c
0x0e56…0e7e at001d = ╱e7╱ DIV ╱ // 0xe73 @0x1d
0x0e56…0e7e at001e = ╱31╱1╱ // 0xe74 @0x1e
0x0e56…0e7e at001f = ╱30╱0╱ // 0xe75 @0x1f
0x0e56…0e7e at0020 = ╱30╱0╱ // 0xe76 @0x20
0x0e56…0e7e at0021 = ╱30╱0╱ // 0xe77 @0x21
0x0e56…0e7e at0022 = ╱fe0000fa0a╱ // 0xe78 @0x22
0x0e56…0e7e at0027 = EOL // 0xe7d @0x27
0x0e56…0e7e }
0x0e7e…0e9a 9bf1 1520 IF KRTAL=KTAL9 THEN KTAL=KTAL9
0x0e7e…0e9a LineComalBin {
0x0e7e…0e9a ptr = 0x9bf1 // 0xe7e @0x0
0x0e7e…0e9a lno = 0x05f0 // 0xe80 @0x2
0x0e7e…0e9a at0004 = ╱82╱ IF ╱ // 0xe82 @0x4
0x0e7e…0e9a at0005 = ╱4b╱K╱ // 0xe83 @0x5
0x0e7e…0e9a at0006 = ╱52╱R╱ // 0xe84 @0x6
0x0e7e…0e9a at0007 = ╱54╱T╱ // 0xe85 @0x7
0x0e7e…0e9a at0008 = ╱41╱A╱ // 0xe86 @0x8
0x0e7e…0e9a at0009 = ╱4c╱L╱ // 0xe87 @0x9
0x0e7e…0e9a at000a = ╱dc╱=╱ // 0xe88 @0xa
0x0e7e…0e9a at000b = ╱4b╱K╱ // 0xe89 @0xb
0x0e7e…0e9a at000c = ╱54╱T╱ // 0xe8a @0xc
0x0e7e…0e9a at000d = ╱41╱A╱ // 0xe8b @0xd
0x0e7e…0e9a at000e = ╱4c╱L╱ // 0xe8c @0xe
0x0e7e…0e9a at000f = ╱39╱9╱ // 0xe8d @0xf
0x0e7e…0e9a at0010 = ╱b6╱ THEN ╱ // 0xe8e @0x10
0x0e7e…0e9a at0011 = ╱4b╱K╱ // 0xe8f @0x11
0x0e7e…0e9a at0012 = ╱54╱T╱ // 0xe90 @0x12
0x0e7e…0e9a at0013 = ╱41╱A╱ // 0xe91 @0x13
0x0e7e…0e9a at0014 = ╱4c╱L╱ // 0xe92 @0x14
0x0e7e…0e9a at0015 = ╱dc╱=╱ // 0xe93 @0x15
0x0e7e…0e9a at0016 = ╱4b╱K╱ // 0xe94 @0x16
0x0e7e…0e9a at0017 = ╱54╱T╱ // 0xe95 @0x17
0x0e7e…0e9a at0018 = ╱41╱A╱ // 0xe96 @0x18
0x0e7e…0e9a at0019 = ╱4c╱L╱ // 0xe97 @0x19
0x0e7e…0e9a at001a = ╱39╱9╱ // 0xe98 @0x1a
0x0e7e…0e9a at001b = EOL // 0xe99 @0x1b
0x0e7e…0e9a }
0x0e9a…0ea2 9bf9 1530 WHEN B
0x0e9a…0ea2 LineComalBin {
0x0e9a…0ea2 ptr = 0x9bf9 // 0xe9a @0x0
0x0e9a…0ea2 lno = 0x05fa // 0xe9c @0x2
0x0e9a…0ea2 at0004 = ╱a301╱ WHEN ╱ // 0xe9e @0x4
0x0e9a…0ea2 at0006 = ╱42╱B╱ // 0xea0 @0x6
0x0e9a…0ea2 at0007 = EOL // 0xea1 @0x7
0x0e9a…0ea2 }
0x0ea2…0eab 9c02 1540 P=-E
0x0ea2…0eab LineComalBin {
0x0ea2…0eab ptr = 0x9c02 // 0xea2 @0x0
0x0ea2…0eab lno = 0x0604 // 0xea4 @0x2
0x0ea2…0eab at0004 = ╱50╱P╱ // 0xea6 @0x4
0x0ea2…0eab at0005 = ╱dc╱=╱ // 0xea7 @0x5
0x0ea2…0eab at0006 = ╱e9╱-╱ // 0xea8 @0x6
0x0ea2…0eab at0007 = ╱45╱E╱ // 0xea9 @0x7
0x0ea2…0eab at0008 = EOL // 0xeaa @0x8
0x0ea2…0eab }
0x0eab…0eb3 9c0a 1550 WHEN E
0x0eab…0eb3 LineComalBin {
0x0eab…0eb3 ptr = 0x9c0a // 0xeab @0x0
0x0eab…0eb3 lno = 0x060e // 0xead @0x2
0x0eab…0eb3 at0004 = ╱a301╱ WHEN ╱ // 0xeaf @0x4
0x0eab…0eb3 at0006 = ╱45╱E╱ // 0xeb1 @0x6
0x0eab…0eb3 at0007 = EOL // 0xeb2 @0x7
0x0eab…0eb3 }
0x0eb3…0ebf 9c16 1560 CASE NUM$ OF
0x0eb3…0ebf LineComalBin {
0x0eb3…0ebf ptr = 0x9c16 // 0xeb3 @0x0
0x0eb3…0ebf lno = 0x0618 // 0xeb5 @0x2
0x0eb3…0ebf at0004 = ╱a200╱ CASE ╱ // 0xeb7 @0x4
0x0eb3…0ebf at0006 = ╱4e╱N╱ // 0xeb9 @0x6
0x0eb3…0ebf at0007 = ╱55╱U╱ // 0xeba @0x7
0x0eb3…0ebf at0008 = ╱4d╱M╱ // 0xebb @0x8
0x0eb3…0ebf at0009 = ╱ef╱$╱ // 0xebc @0x9
0x0eb3…0ebf at000a = ╱ba╱ OF ╱ // 0xebd @0xa
0x0eb3…0ebf at000b = EOL // 0xebe @0xb
0x0eb3…0ebf }
0x0ebf…0ed8 9c2f 1570 P=INT(ORD(NUM$)-48)
0x0ebf…0ed8 LineComalBin {
0x0ebf…0ed8 ptr = 0x9c2f // 0xebf @0x0
0x0ebf…0ed8 lno = 0x0622 // 0xec1 @0x2
0x0ebf…0ed8 at0004 = ╱50╱P╱ // 0xec3 @0x4
0x0ebf…0ed8 at0005 = ╱dc╱=╱ // 0xec4 @0x5
0x0ebf…0ed8 at0006 = ╱c6╱INT╱ // 0xec5 @0x6
0x0ebf…0ed8 at0007 = ╱ed╱(╱ // 0xec6 @0x7
0x0ebf…0ed8 at0008 = ╱cd╱ORD╱ // 0xec7 @0x8
0x0ebf…0ed8 at0009 = ╱ed╱(╱ // 0xec8 @0x9
0x0ebf…0ed8 at000a = ╱4e╱N╱ // 0xec9 @0xa
0x0ebf…0ed8 at000b = ╱55╱U╱ // 0xeca @0xb
0x0ebf…0ed8 at000c = ╱4d╱M╱ // 0xecb @0xc
0x0ebf…0ed8 at000d = ╱ef╱$╱ // 0xecc @0xd
0x0ebf…0ed8 at000e = ╱ee╱)╱ // 0xecd @0xe
0x0ebf…0ed8 at000f = ╱e3╱-╱ // 0xece @0xf
0x0ebf…0ed8 at0010 = ╱34╱4╱ // 0xecf @0x10
0x0ebf…0ed8 at0011 = ╱38╱8╱ // 0xed0 @0x11
0x0ebf…0ed8 at0012 = ╱fe0000c006╱ // 0xed1 @0x12
0x0ebf…0ed8 at0017 = ╱ee╱)╱ // 0xed6 @0x17
0x0ebf…0ed8 at0018 = EOL // 0xed7 @0x18
0x0ebf…0ed8 }
0x0ed8…0ee6 9c3d 1580 WHEN "j","J"
0x0ed8…0ee6 LineComalBin {
0x0ed8…0ee6 ptr = 0x9c3d // 0xed8 @0x0
0x0ed8…0ee6 lno = 0x062c // 0xeda @0x2
0x0ed8…0ee6 at0004 = ╱a300╱ WHEN ╱ // 0xedc @0x4
0x0ed8…0ee6 at0006 = ╱22╱"╱ // 0xede @0x6
0x0ed8…0ee6 at0007 = ╱6a╱j╱ // 0xedf @0x7
0x0ed8…0ee6 at0008 = ╱22╱"╱ // 0xee0 @0x8
0x0ed8…0ee6 at0009 = ╱ec╱,╱ // 0xee1 @0x9
0x0ed8…0ee6 at000a = ╱22╱"╱ // 0xee2 @0xa
0x0ed8…0ee6 at000b = ╱4a╱J╱ // 0xee3 @0xb
0x0ed8…0ee6 at000c = ╱22╱"╱ // 0xee4 @0xc
0x0ed8…0ee6 at000d = EOL // 0xee5 @0xd
0x0ed8…0ee6 }
0x0ee6…0ef4 9c4b 1590 P=-7
0x0ee6…0ef4 LineComalBin {
0x0ee6…0ef4 ptr = 0x9c4b // 0xee6 @0x0
0x0ee6…0ef4 lno = 0x0636 // 0xee8 @0x2
0x0ee6…0ef4 at0004 = ╱50╱P╱ // 0xeea @0x4
0x0ee6…0ef4 at0005 = ╱dc╱=╱ // 0xeeb @0x5
0x0ee6…0ef4 at0006 = ╱e9╱-╱ // 0xeec @0x6
0x0ee6…0ef4 at0007 = ╱37╱7╱ // 0xeed @0x7
0x0ee6…0ef4 at0008 = ╱fe0000e003╱ // 0xeee @0x8
0x0ee6…0ef4 at000d = EOL // 0xef3 @0xd
0x0ee6…0ef4 }
0x0ef4…0f02 9c59 1600 WHEN "n","N"
0x0ef4…0f02 LineComalBin {
0x0ef4…0f02 ptr = 0x9c59 // 0xef4 @0x0
0x0ef4…0f02 lno = 0x0640 // 0xef6 @0x2
0x0ef4…0f02 at0004 = ╱a300╱ WHEN ╱ // 0xef8 @0x4
0x0ef4…0f02 at0006 = ╱22╱"╱ // 0xefa @0x6
0x0ef4…0f02 at0007 = ╱6e╱n╱ // 0xefb @0x7
0x0ef4…0f02 at0008 = ╱22╱"╱ // 0xefc @0x8
0x0ef4…0f02 at0009 = ╱ec╱,╱ // 0xefd @0x9
0x0ef4…0f02 at000a = ╱22╱"╱ // 0xefe @0xa
0x0ef4…0f02 at000b = ╱4e╱N╱ // 0xeff @0xb
0x0ef4…0f02 at000c = ╱22╱"╱ // 0xf00 @0xc
0x0ef4…0f02 at000d = EOL // 0xf01 @0xd
0x0ef4…0f02 }
0x0f02…0f10 9c67 1610 P=-8
0x0f02…0f10 LineComalBin {
0x0f02…0f10 ptr = 0x9c67 // 0xf02 @0x0
0x0f02…0f10 lno = 0x064a // 0xf04 @0x2
0x0f02…0f10 at0004 = ╱50╱P╱ // 0xf06 @0x4
0x0f02…0f10 at0005 = ╱dc╱=╱ // 0xf07 @0x5
0x0f02…0f10 at0006 = ╱e9╱-╱ // 0xf08 @0x6
0x0f02…0f10 at0007 = ╱38╱8╱ // 0xf09 @0x7
0x0f02…0f10 at0008 = ╱fe00008004╱ // 0xf0a @0x8
0x0f02…0f10 at000d = EOL // 0xf0f @0xd
0x0f02…0f10 }
0x0f10…0f16 9c6d 1620 ENDCASE
0x0f10…0f16 LineComalBin {
0x0f10…0f16 ptr = 0x9c6d // 0xf10 @0x0
0x0f10…0f16 lno = 0x0654 // 0xf12 @0x2
0x0f10…0f16 at0004 = ╱a4╱ ENDCASE ╱ // 0xf14 @0x4
0x0f10…0f16 at0005 = EOL // 0xf15 @0x5
0x0f10…0f16 }
0x0f16…0f1c 9c73 1630 ENDCASE
0x0f16…0f1c LineComalBin {
0x0f16…0f1c ptr = 0x9c73 // 0xf16 @0x0
0x0f16…0f1c lno = 0x065e // 0xf18 @0x2
0x0f16…0f1c at0004 = ╱a4╱ ENDCASE ╱ // 0xf1a @0x4
0x0f16…0f1c at0005 = EOL // 0xf1b @0x5
0x0f16…0f1c }
0x0f1c…0f22 9c79 1640 ENDPROC
0x0f1c…0f22 LineComalBin {
0x0f1c…0f22 ptr = 0x9c79 // 0xf1c @0x0
0x0f1c…0f22 lno = 0x0668 // 0xf1e @0x2
0x0f1c…0f22 at0004 = ╱9f╱ ENDPROC ╱ // 0xf20 @0x4
0x0f1c…0f22 at0005 = EOL // 0xf21 @0x5
0x0f1c…0f22 }
0x0f22…0f3c 9c93 1650 K1$="P641220:SYSTEM1"
0x0f22…0f3c LineComalBin {
0x0f22…0f3c ptr = 0x9c93 // 0xf22 @0x0
0x0f22…0f3c lno = 0x0672 // 0xf24 @0x2
0x0f22…0f3c at0004 = ╱4b╱K╱ // 0xf26 @0x4
0x0f22…0f3c at0005 = ╱31╱1╱ // 0xf27 @0x5
0x0f22…0f3c at0006 = ╱ef╱$╱ // 0xf28 @0x6
0x0f22…0f3c at0007 = ╱dc╱=╱ // 0xf29 @0x7
0x0f22…0f3c at0008 = ╱22╱"╱ // 0xf2a @0x8
0x0f22…0f3c at0009 = ╱50╱P╱ // 0xf2b @0x9
0x0f22…0f3c at000a = ╱36╱6╱ // 0xf2c @0xa
0x0f22…0f3c at000b = ╱34╱4╱ // 0xf2d @0xb
0x0f22…0f3c at000c = ╱31╱1╱ // 0xf2e @0xc
0x0f22…0f3c at000d = ╱32╱2╱ // 0xf2f @0xd
0x0f22…0f3c at000e = ╱32╱2╱ // 0xf30 @0xe
0x0f22…0f3c at000f = ╱30╱0╱ // 0xf31 @0xf
0x0f22…0f3c at0010 = ╱3a╱:╱ // 0xf32 @0x10
0x0f22…0f3c at0011 = ╱53╱S╱ // 0xf33 @0x11
0x0f22…0f3c at0012 = ╱59╱Y╱ // 0xf34 @0x12
0x0f22…0f3c at0013 = ╱53╱S╱ // 0xf35 @0x13
0x0f22…0f3c at0014 = ╱54╱T╱ // 0xf36 @0x14
0x0f22…0f3c at0015 = ╱45╱E╱ // 0xf37 @0x15
0x0f22…0f3c at0016 = ╱4d╱M╱ // 0xf38 @0x16
0x0f22…0f3c at0017 = ╱31╱1╱ // 0xf39 @0x17
0x0f22…0f3c at0018 = ╱22╱"╱ // 0xf3a @0x18
0x0f22…0f3c at0019 = EOL // 0xf3b @0x19
0x0f22…0f3c }
0x0f3c…0f47 9c9e 1660 OPEN K1$,R
0x0f3c…0f47 LineComalBin {
0x0f3c…0f47 ptr = 0x9c9e // 0xf3c @0x0
0x0f3c…0f47 lno = 0x067c // 0xf3e @0x2
0x0f3c…0f47 at0004 = ╱a7╱ OPEN ╱ // 0xf40 @0x4
0x0f3c…0f47 at0005 = ╱4b╱K╱ // 0xf41 @0x5
0x0f3c…0f47 at0006 = ╱31╱1╱ // 0xf42 @0x6
0x0f3c…0f47 at0007 = ╱ef╱$╱ // 0xf43 @0x7
0x0f3c…0f47 at0008 = ╱ec╱,╱ // 0xf44 @0x8
0x0f3c…0f47 at0009 = ╱52╱R╱ // 0xf45 @0x9
0x0f3c…0f47 at000a = EOL // 0xf46 @0xa
0x0f3c…0f47 }
0x0f47…0f5a 9cb1 1670 EXEC FEJL(W,E,K1$)
0x0f47…0f5a LineComalBin {
0x0f47…0f5a ptr = 0x9cb1 // 0xf47 @0x0
0x0f47…0f5a lno = 0x0686 // 0xf49 @0x2
0x0f47…0f5a at0004 = ╱9d╱ EXEC ╱ // 0xf4b @0x4
0x0f47…0f5a at0005 = ╱46╱F╱ // 0xf4c @0x5
0x0f47…0f5a at0006 = ╱45╱E╱ // 0xf4d @0x6
0x0f47…0f5a at0007 = ╱4a╱J╱ // 0xf4e @0x7
0x0f47…0f5a at0008 = ╱4c╱L╱ // 0xf4f @0x8
0x0f47…0f5a at0009 = ╱ed╱(╱ // 0xf50 @0x9
0x0f47…0f5a at000a = ╱57╱W╱ // 0xf51 @0xa
0x0f47…0f5a at000b = ╱ec╱,╱ // 0xf52 @0xb
0x0f47…0f5a at000c = ╱45╱E╱ // 0xf53 @0xc
0x0f47…0f5a at000d = ╱ec╱,╱ // 0xf54 @0xd
0x0f47…0f5a at000e = ╱4b╱K╱ // 0xf55 @0xe
0x0f47…0f5a at000f = ╱31╱1╱ // 0xf56 @0xf
0x0f47…0f5a at0010 = ╱ef╱$╱ // 0xf57 @0x10
0x0f47…0f5a at0011 = ╱ee╱)╱ // 0xf58 @0x11
0x0f47…0f5a at0012 = EOL // 0xf59 @0x12
0x0f47…0f5a }
0x0f5a…0f7d 9cd4 1680 GET K1$,E:MFANTAL,MDANTAL,MKANTAL
0x0f5a…0f7d LineComalBin {
0x0f5a…0f7d ptr = 0x9cd4 // 0xf5a @0x0
0x0f5a…0f7d lno = 0x0690 // 0xf5c @0x2
0x0f5a…0f7d at0004 = ╱a9╱ GET ╱ // 0xf5e @0x4
0x0f5a…0f7d at0005 = ╱4b╱K╱ // 0xf5f @0x5
0x0f5a…0f7d at0006 = ╱31╱1╱ // 0xf60 @0x6
0x0f5a…0f7d at0007 = ╱ef╱$╱ // 0xf61 @0x7
0x0f5a…0f7d at0008 = ╱ec╱,╱ // 0xf62 @0x8
0x0f5a…0f7d at0009 = ╱45╱E╱ // 0xf63 @0x9
0x0f5a…0f7d at000a = ╱f0╱:╱ // 0xf64 @0xa
0x0f5a…0f7d at000b = ╱4d╱M╱ // 0xf65 @0xb
0x0f5a…0f7d at000c = ╱46╱F╱ // 0xf66 @0xc
0x0f5a…0f7d at000d = ╱41╱A╱ // 0xf67 @0xd
0x0f5a…0f7d at000e = ╱4e╱N╱ // 0xf68 @0xe
0x0f5a…0f7d at000f = ╱54╱T╱ // 0xf69 @0xf
0x0f5a…0f7d at0010 = ╱41╱A╱ // 0xf6a @0x10
0x0f5a…0f7d at0011 = ╱4c╱L╱ // 0xf6b @0x11
0x0f5a…0f7d at0012 = ╱ec╱,╱ // 0xf6c @0x12
0x0f5a…0f7d at0013 = ╱4d╱M╱ // 0xf6d @0x13
0x0f5a…0f7d at0014 = ╱44╱D╱ // 0xf6e @0x14
0x0f5a…0f7d at0015 = ╱41╱A╱ // 0xf6f @0x15
0x0f5a…0f7d at0016 = ╱4e╱N╱ // 0xf70 @0x16
0x0f5a…0f7d at0017 = ╱54╱T╱ // 0xf71 @0x17
0x0f5a…0f7d at0018 = ╱41╱A╱ // 0xf72 @0x18
0x0f5a…0f7d at0019 = ╱4c╱L╱ // 0xf73 @0x19
0x0f5a…0f7d at001a = ╱ec╱,╱ // 0xf74 @0x1a
0x0f5a…0f7d at001b = ╱4d╱M╱ // 0xf75 @0x1b
0x0f5a…0f7d at001c = ╱4b╱K╱ // 0xf76 @0x1c
0x0f5a…0f7d at001d = ╱41╱A╱ // 0xf77 @0x1d
0x0f5a…0f7d at001e = ╱4e╱N╱ // 0xf78 @0x1e
0x0f5a…0f7d at001f = ╱54╱T╱ // 0xf79 @0x1f
0x0f5a…0f7d at0020 = ╱41╱A╱ // 0xf7a @0x20
0x0f5a…0f7d at0021 = ╱4c╱L╱ // 0xf7b @0x21
0x0f5a…0f7d at0022 = EOL // 0xf7c @0x22
0x0f5a…0f7d }
0x0f7d…0f90 9ce7 1690 EXEC FEJL(W,G,K1$)
0x0f7d…0f90 LineComalBin {
0x0f7d…0f90 ptr = 0x9ce7 // 0xf7d @0x0
0x0f7d…0f90 lno = 0x069a // 0xf7f @0x2
0x0f7d…0f90 at0004 = ╱9d╱ EXEC ╱ // 0xf81 @0x4
0x0f7d…0f90 at0005 = ╱46╱F╱ // 0xf82 @0x5
0x0f7d…0f90 at0006 = ╱45╱E╱ // 0xf83 @0x6
0x0f7d…0f90 at0007 = ╱4a╱J╱ // 0xf84 @0x7
0x0f7d…0f90 at0008 = ╱4c╱L╱ // 0xf85 @0x8
0x0f7d…0f90 at0009 = ╱ed╱(╱ // 0xf86 @0x9
0x0f7d…0f90 at000a = ╱57╱W╱ // 0xf87 @0xa
0x0f7d…0f90 at000b = ╱ec╱,╱ // 0xf88 @0xb
0x0f7d…0f90 at000c = ╱47╱G╱ // 0xf89 @0xc
0x0f7d…0f90 at000d = ╱ec╱,╱ // 0xf8a @0xd
0x0f7d…0f90 at000e = ╱4b╱K╱ // 0xf8b @0xe
0x0f7d…0f90 at000f = ╱31╱1╱ // 0xf8c @0xf
0x0f7d…0f90 at0010 = ╱ef╱$╱ // 0xf8d @0x10
0x0f7d…0f90 at0011 = ╱ee╱)╱ // 0xf8e @0x11
0x0f7d…0f90 at0012 = EOL // 0xf8f @0x12
0x0f7d…0f90 }
0x0f90…0fa6 9cfd 1700 GET K1$,5:MKRGR
0x0f90…0fa6 LineComalBin {
0x0f90…0fa6 ptr = 0x9cfd // 0xf90 @0x0
0x0f90…0fa6 lno = 0x06a4 // 0xf92 @0x2
0x0f90…0fa6 at0004 = ╱a9╱ GET ╱ // 0xf94 @0x4
0x0f90…0fa6 at0005 = ╱4b╱K╱ // 0xf95 @0x5
0x0f90…0fa6 at0006 = ╱31╱1╱ // 0xf96 @0x6
0x0f90…0fa6 at0007 = ╱ef╱$╱ // 0xf97 @0x7
0x0f90…0fa6 at0008 = ╱ec╱,╱ // 0xf98 @0x8
0x0f90…0fa6 at0009 = ╱35╱5╱ // 0xf99 @0x9
0x0f90…0fa6 at000a = ╱fe0000a003╱ // 0xf9a @0xa
0x0f90…0fa6 at000f = ╱f0╱:╱ // 0xf9f @0xf
0x0f90…0fa6 at0010 = ╱4d╱M╱ // 0xfa0 @0x10
0x0f90…0fa6 at0011 = ╱4b╱K╱ // 0xfa1 @0x11
0x0f90…0fa6 at0012 = ╱52╱R╱ // 0xfa2 @0x12
0x0f90…0fa6 at0013 = ╱47╱G╱ // 0xfa3 @0x13
0x0f90…0fa6 at0014 = ╱52╱R╱ // 0xfa4 @0x14
0x0f90…0fa6 at0015 = EOL // 0xfa5 @0x15
0x0f90…0fa6 }
0x0fa6…0fb9 9d10 1710 EXEC FEJL(W,V,K1$)
0x0fa6…0fb9 LineComalBin {
0x0fa6…0fb9 ptr = 0x9d10 // 0xfa6 @0x0
0x0fa6…0fb9 lno = 0x06ae // 0xfa8 @0x2
0x0fa6…0fb9 at0004 = ╱9d╱ EXEC ╱ // 0xfaa @0x4
0x0fa6…0fb9 at0005 = ╱46╱F╱ // 0xfab @0x5
0x0fa6…0fb9 at0006 = ╱45╱E╱ // 0xfac @0x6
0x0fa6…0fb9 at0007 = ╱4a╱J╱ // 0xfad @0x7
0x0fa6…0fb9 at0008 = ╱4c╱L╱ // 0xfae @0x8
0x0fa6…0fb9 at0009 = ╱ed╱(╱ // 0xfaf @0x9
0x0fa6…0fb9 at000a = ╱57╱W╱ // 0xfb0 @0xa
0x0fa6…0fb9 at000b = ╱ec╱,╱ // 0xfb1 @0xb
0x0fa6…0fb9 at000c = ╱56╱V╱ // 0xfb2 @0xc
0x0fa6…0fb9 at000d = ╱ec╱,╱ // 0xfb3 @0xd
0x0fa6…0fb9 at000e = ╱4b╱K╱ // 0xfb4 @0xe
0x0fa6…0fb9 at000f = ╱31╱1╱ // 0xfb5 @0xf
0x0fa6…0fb9 at0010 = ╱ef╱$╱ // 0xfb6 @0x10
0x0fa6…0fb9 at0011 = ╱ee╱)╱ // 0xfb7 @0x11
0x0fa6…0fb9 at0012 = EOL // 0xfb8 @0x12
0x0fa6…0fb9 }
0x0fb9…0fca 9d21 1720 GET K1$,W:KRTAL
0x0fb9…0fca LineComalBin {
0x0fb9…0fca ptr = 0x9d21 // 0xfb9 @0x0
0x0fb9…0fca lno = 0x06b8 // 0xfbb @0x2
0x0fb9…0fca at0004 = ╱a9╱ GET ╱ // 0xfbd @0x4
0x0fb9…0fca at0005 = ╱4b╱K╱ // 0xfbe @0x5
0x0fb9…0fca at0006 = ╱31╱1╱ // 0xfbf @0x6
0x0fb9…0fca at0007 = ╱ef╱$╱ // 0xfc0 @0x7
0x0fb9…0fca at0008 = ╱ec╱,╱ // 0xfc1 @0x8
0x0fb9…0fca at0009 = ╱57╱W╱ // 0xfc2 @0x9
0x0fb9…0fca at000a = ╱f0╱:╱ // 0xfc3 @0xa
0x0fb9…0fca at000b = ╱4b╱K╱ // 0xfc4 @0xb
0x0fb9…0fca at000c = ╱52╱R╱ // 0xfc5 @0xc
0x0fb9…0fca at000d = ╱54╱T╱ // 0xfc6 @0xd
0x0fb9…0fca at000e = ╱41╱A╱ // 0xfc7 @0xe
0x0fb9…0fca at000f = ╱4c╱L╱ // 0xfc8 @0xf
0x0fb9…0fca at0010 = EOL // 0xfc9 @0x10
0x0fb9…0fca }
0x0fca…0fe2 9d39 1730 EXEC FEJL(W,4,K1$)
0x0fca…0fe2 LineComalBin {
0x0fca…0fe2 ptr = 0x9d39 // 0xfca @0x0
0x0fca…0fe2 lno = 0x06c2 // 0xfcc @0x2
0x0fca…0fe2 at0004 = ╱9d╱ EXEC ╱ // 0xfce @0x4
0x0fca…0fe2 at0005 = ╱46╱F╱ // 0xfcf @0x5
0x0fca…0fe2 at0006 = ╱45╱E╱ // 0xfd0 @0x6
0x0fca…0fe2 at0007 = ╱4a╱J╱ // 0xfd1 @0x7
0x0fca…0fe2 at0008 = ╱4c╱L╱ // 0xfd2 @0x8
0x0fca…0fe2 at0009 = ╱ed╱(╱ // 0xfd3 @0x9
0x0fca…0fe2 at000a = ╱57╱W╱ // 0xfd4 @0xa
0x0fca…0fe2 at000b = ╱ec╱,╱ // 0xfd5 @0xb
0x0fca…0fe2 at000c = ╱34╱4╱ // 0xfd6 @0xc
0x0fca…0fe2 at000d = ╱fe00008003╱ // 0xfd7 @0xd
0x0fca…0fe2 at0012 = ╱ec╱,╱ // 0xfdc @0x12
0x0fca…0fe2 at0013 = ╱4b╱K╱ // 0xfdd @0x13
0x0fca…0fe2 at0014 = ╱31╱1╱ // 0xfde @0x14
0x0fca…0fe2 at0015 = ╱ef╱$╱ // 0xfdf @0x15
0x0fca…0fe2 at0016 = ╱ee╱)╱ // 0xfe0 @0x16
0x0fca…0fe2 at0017 = EOL // 0xfe1 @0x17
0x0fca…0fe2 }
0x0fe2…0ff6 9d4d 1740 GET K1$,10:N$
0x0fe2…0ff6 LineComalBin {
0x0fe2…0ff6 ptr = 0x9d4d // 0xfe2 @0x0
0x0fe2…0ff6 lno = 0x06cc // 0xfe4 @0x2
0x0fe2…0ff6 at0004 = ╱a9╱ GET ╱ // 0xfe6 @0x4
0x0fe2…0ff6 at0005 = ╱4b╱K╱ // 0xfe7 @0x5
0x0fe2…0ff6 at0006 = ╱31╱1╱ // 0xfe8 @0x6
0x0fe2…0ff6 at0007 = ╱ef╱$╱ // 0xfe9 @0x7
0x0fe2…0ff6 at0008 = ╱ec╱,╱ // 0xfea @0x8
0x0fe2…0ff6 at0009 = ╱31╱1╱ // 0xfeb @0x9
0x0fe2…0ff6 at000a = ╱30╱0╱ // 0xfec @0xa
0x0fe2…0ff6 at000b = ╱fe0000a004╱ // 0xfed @0xb
0x0fe2…0ff6 at0010 = ╱f0╱:╱ // 0xff2 @0x10
0x0fe2…0ff6 at0011 = ╱4e╱N╱ // 0xff3 @0x11
0x0fe2…0ff6 at0012 = ╱ef╱$╱ // 0xff4 @0x12
0x0fe2…0ff6 at0013 = EOL // 0xff5 @0x13
0x0fe2…0ff6 }
0x0ff6…100e 9d65 1750 EXEC FEJL(W,5,K1$)
0x0ff6…100e LineComalBin {
0x0ff6…100e ptr = 0x9d65 // 0xff6 @0x0
0x0ff6…100e lno = 0x06d6 // 0xff8 @0x2
0x0ff6…100e at0004 = ╱9d╱ EXEC ╱ // 0xffa @0x4
0x0ff6…100e at0005 = ╱46╱F╱ // 0xffb @0x5
0x0ff6…100e at0006 = ╱45╱E╱ // 0xffc @0x6
0x0ff6…100e at0007 = ╱4a╱J╱ // 0xffd @0x7
0x0ff6…100e at0008 = ╱4c╱L╱ // 0xffe @0x8
0x0ff6…100e at0009 = ╱ed╱(╱ // 0xfff @0x9
0x0ff6…100e at000a = ╱57╱W╱ // 0x1000 @0xa
0x0ff6…100e at000b = ╱ec╱,╱ // 0x1001 @0xb
0x0ff6…100e at000c = ╱35╱5╱ // 0x1002 @0xc
0x0ff6…100e at000d = ╱fe0000a003╱ // 0x1003 @0xd
0x0ff6…100e at0012 = ╱ec╱,╱ // 0x1008 @0x12
0x0ff6…100e at0013 = ╱4b╱K╱ // 0x1009 @0x13
0x0ff6…100e at0014 = ╱31╱1╱ // 0x100a @0x14
0x0ff6…100e at0015 = ╱ef╱$╱ // 0x100b @0x15
0x0ff6…100e at0016 = ╱ee╱)╱ // 0x100c @0x16
0x0ff6…100e at0017 = EOL // 0x100d @0x17
0x0ff6…100e }
0x100e…1023 9d7a 1760 GET K1$,13:K2$
0x100e…1023 LineComalBin {
0x100e…1023 ptr = 0x9d7a // 0x100e @0x0
0x100e…1023 lno = 0x06e0 // 0x1010 @0x2
0x100e…1023 at0004 = ╱a9╱ GET ╱ // 0x1012 @0x4
0x100e…1023 at0005 = ╱4b╱K╱ // 0x1013 @0x5
0x100e…1023 at0006 = ╱31╱1╱ // 0x1014 @0x6
0x100e…1023 at0007 = ╱ef╱$╱ // 0x1015 @0x7
0x100e…1023 at0008 = ╱ec╱,╱ // 0x1016 @0x8
0x100e…1023 at0009 = ╱31╱1╱ // 0x1017 @0x9
0x100e…1023 at000a = ╱33╱3╱ // 0x1018 @0xa
0x100e…1023 at000b = ╱fe0000d004╱ // 0x1019 @0xb
0x100e…1023 at0010 = ╱f0╱:╱ // 0x101e @0x10
0x100e…1023 at0011 = ╱4b╱K╱ // 0x101f @0x11
0x100e…1023 at0012 = ╱32╱2╱ // 0x1020 @0x12
0x100e…1023 at0013 = ╱ef╱$╱ // 0x1021 @0x13
0x100e…1023 at0014 = EOL // 0x1022 @0x14
0x100e…1023 }
0x1023…103b 9d92 1770 EXEC FEJL(W,6,K1$)
0x1023…103b LineComalBin {
0x1023…103b ptr = 0x9d92 // 0x1023 @0x0
0x1023…103b lno = 0x06ea // 0x1025 @0x2
0x1023…103b at0004 = ╱9d╱ EXEC ╱ // 0x1027 @0x4
0x1023…103b at0005 = ╱46╱F╱ // 0x1028 @0x5
0x1023…103b at0006 = ╱45╱E╱ // 0x1029 @0x6
0x1023…103b at0007 = ╱4a╱J╱ // 0x102a @0x7
0x1023…103b at0008 = ╱4c╱L╱ // 0x102b @0x8
0x1023…103b at0009 = ╱ed╱(╱ // 0x102c @0x9
0x1023…103b at000a = ╱57╱W╱ // 0x102d @0xa
0x1023…103b at000b = ╱ec╱,╱ // 0x102e @0xb
0x1023…103b at000c = ╱36╱6╱ // 0x102f @0xc
0x1023…103b at000d = ╱fe0000c003╱ // 0x1030 @0xd
0x1023…103b at0012 = ╱ec╱,╱ // 0x1035 @0x12
0x1023…103b at0013 = ╱4b╱K╱ // 0x1036 @0x13
0x1023…103b at0014 = ╱31╱1╱ // 0x1037 @0x14
0x1023…103b at0015 = ╱ef╱$╱ // 0x1038 @0x15
0x1023…103b at0016 = ╱ee╱)╱ // 0x1039 @0x16
0x1023…103b at0017 = EOL // 0x103a @0x17
0x1023…103b }
0x103b…1050 9da7 1780 GET K1$,17:K3$
0x103b…1050 LineComalBin {
0x103b…1050 ptr = 0x9da7 // 0x103b @0x0
0x103b…1050 lno = 0x06f4 // 0x103d @0x2
0x103b…1050 at0004 = ╱a9╱ GET ╱ // 0x103f @0x4
0x103b…1050 at0005 = ╱4b╱K╱ // 0x1040 @0x5
0x103b…1050 at0006 = ╱31╱1╱ // 0x1041 @0x6
0x103b…1050 at0007 = ╱ef╱$╱ // 0x1042 @0x7
0x103b…1050 at0008 = ╱ec╱,╱ // 0x1043 @0x8
0x103b…1050 at0009 = ╱31╱1╱ // 0x1044 @0x9
0x103b…1050 at000a = ╱37╱7╱ // 0x1045 @0xa
0x103b…1050 at000b = ╱fe00008805╱ // 0x1046 @0xb
0x103b…1050 at0010 = ╱f0╱:╱ // 0x104b @0x10
0x103b…1050 at0011 = ╱4b╱K╱ // 0x104c @0x11
0x103b…1050 at0012 = ╱33╱3╱ // 0x104d @0x12
0x103b…1050 at0013 = ╱ef╱$╱ // 0x104e @0x13
0x103b…1050 at0014 = EOL // 0x104f @0x14
0x103b…1050 }
0x1050…1068 9dbf 1790 EXEC FEJL(W,7,K1$)
0x1050…1068 LineComalBin {
0x1050…1068 ptr = 0x9dbf // 0x1050 @0x0
0x1050…1068 lno = 0x06fe // 0x1052 @0x2
0x1050…1068 at0004 = ╱9d╱ EXEC ╱ // 0x1054 @0x4
0x1050…1068 at0005 = ╱46╱F╱ // 0x1055 @0x5
0x1050…1068 at0006 = ╱45╱E╱ // 0x1056 @0x6
0x1050…1068 at0007 = ╱4a╱J╱ // 0x1057 @0x7
0x1050…1068 at0008 = ╱4c╱L╱ // 0x1058 @0x8
0x1050…1068 at0009 = ╱ed╱(╱ // 0x1059 @0x9
0x1050…1068 at000a = ╱57╱W╱ // 0x105a @0xa
0x1050…1068 at000b = ╱ec╱,╱ // 0x105b @0xb
0x1050…1068 at000c = ╱37╱7╱ // 0x105c @0xc
0x1050…1068 at000d = ╱fe0000e003╱ // 0x105d @0xd
0x1050…1068 at0012 = ╱ec╱,╱ // 0x1062 @0x12
0x1050…1068 at0013 = ╱4b╱K╱ // 0x1063 @0x13
0x1050…1068 at0014 = ╱31╱1╱ // 0x1064 @0x14
0x1050…1068 at0015 = ╱ef╱$╱ // 0x1065 @0x15
0x1050…1068 at0016 = ╱ee╱)╱ // 0x1066 @0x16
0x1050…1068 at0017 = EOL // 0x1067 @0x17
0x1050…1068 }
0x1068…107d 9dd4 1800 GET K1$,36:K5$
0x1068…107d LineComalBin {
0x1068…107d ptr = 0x9dd4 // 0x1068 @0x0
0x1068…107d lno = 0x0708 // 0x106a @0x2
0x1068…107d at0004 = ╱a9╱ GET ╱ // 0x106c @0x4
0x1068…107d at0005 = ╱4b╱K╱ // 0x106d @0x5
0x1068…107d at0006 = ╱31╱1╱ // 0x106e @0x6
0x1068…107d at0007 = ╱ef╱$╱ // 0x106f @0x7
0x1068…107d at0008 = ╱ec╱,╱ // 0x1070 @0x8
0x1068…107d at0009 = ╱33╱3╱ // 0x1071 @0x9
0x1068…107d at000a = ╱36╱6╱ // 0x1072 @0xa
0x1068…107d at000b = ╱fe00009006╱ // 0x1073 @0xb
0x1068…107d at0010 = ╱f0╱:╱ // 0x1078 @0x10
0x1068…107d at0011 = ╱4b╱K╱ // 0x1079 @0x11
0x1068…107d at0012 = ╱35╱5╱ // 0x107a @0x12
0x1068…107d at0013 = ╱ef╱$╱ // 0x107b @0x13
0x1068…107d at0014 = EOL // 0x107c @0x14
0x1068…107d }
0x107d…1095 9dec 1810 EXEC FEJL(W,8,K1$)
0x107d…1095 LineComalBin {
0x107d…1095 ptr = 0x9dec // 0x107d @0x0
0x107d…1095 lno = 0x0712 // 0x107f @0x2
0x107d…1095 at0004 = ╱9d╱ EXEC ╱ // 0x1081 @0x4
0x107d…1095 at0005 = ╱46╱F╱ // 0x1082 @0x5
0x107d…1095 at0006 = ╱45╱E╱ // 0x1083 @0x6
0x107d…1095 at0007 = ╱4a╱J╱ // 0x1084 @0x7
0x107d…1095 at0008 = ╱4c╱L╱ // 0x1085 @0x8
0x107d…1095 at0009 = ╱ed╱(╱ // 0x1086 @0x9
0x107d…1095 at000a = ╱57╱W╱ // 0x1087 @0xa
0x107d…1095 at000b = ╱ec╱,╱ // 0x1088 @0xb
0x107d…1095 at000c = ╱38╱8╱ // 0x1089 @0xc
0x107d…1095 at000d = ╱fe00008004╱ // 0x108a @0xd
0x107d…1095 at0012 = ╱ec╱,╱ // 0x108f @0x12
0x107d…1095 at0013 = ╱4b╱K╱ // 0x1090 @0x13
0x107d…1095 at0014 = ╱31╱1╱ // 0x1091 @0x14
0x107d…1095 at0015 = ╱ef╱$╱ // 0x1092 @0x15
0x107d…1095 at0016 = ╱ee╱)╱ // 0x1093 @0x16
0x107d…1095 at0017 = EOL // 0x1094 @0x17
0x107d…1095 }
0x1095…10aa 9e01 1820 GET K1$,36:K5$
0x1095…10aa LineComalBin {
0x1095…10aa ptr = 0x9e01 // 0x1095 @0x0
0x1095…10aa lno = 0x071c // 0x1097 @0x2
0x1095…10aa at0004 = ╱a9╱ GET ╱ // 0x1099 @0x4
0x1095…10aa at0005 = ╱4b╱K╱ // 0x109a @0x5
0x1095…10aa at0006 = ╱31╱1╱ // 0x109b @0x6
0x1095…10aa at0007 = ╱ef╱$╱ // 0x109c @0x7
0x1095…10aa at0008 = ╱ec╱,╱ // 0x109d @0x8
0x1095…10aa at0009 = ╱33╱3╱ // 0x109e @0x9
0x1095…10aa at000a = ╱36╱6╱ // 0x109f @0xa
0x1095…10aa at000b = ╱fe00009006╱ // 0x10a0 @0xb
0x1095…10aa at0010 = ╱f0╱:╱ // 0x10a5 @0x10
0x1095…10aa at0011 = ╱4b╱K╱ // 0x10a6 @0x11
0x1095…10aa at0012 = ╱35╱5╱ // 0x10a7 @0x12
0x1095…10aa at0013 = ╱ef╱$╱ // 0x10a8 @0x13
0x1095…10aa at0014 = EOL // 0x10a9 @0x14
0x1095…10aa }
0x10aa…10bd 9e14 1830 EXEC FEJL(W,W,K1$)
0x10aa…10bd LineComalBin {
0x10aa…10bd ptr = 0x9e14 // 0x10aa @0x0
0x10aa…10bd lno = 0x0726 // 0x10ac @0x2
0x10aa…10bd at0004 = ╱9d╱ EXEC ╱ // 0x10ae @0x4
0x10aa…10bd at0005 = ╱46╱F╱ // 0x10af @0x5
0x10aa…10bd at0006 = ╱45╱E╱ // 0x10b0 @0x6
0x10aa…10bd at0007 = ╱4a╱J╱ // 0x10b1 @0x7
0x10aa…10bd at0008 = ╱4c╱L╱ // 0x10b2 @0x8
0x10aa…10bd at0009 = ╱ed╱(╱ // 0x10b3 @0x9
0x10aa…10bd at000a = ╱57╱W╱ // 0x10b4 @0xa
0x10aa…10bd at000b = ╱ec╱,╱ // 0x10b5 @0xb
0x10aa…10bd at000c = ╱57╱W╱ // 0x10b6 @0xc
0x10aa…10bd at000d = ╱ec╱,╱ // 0x10b7 @0xd
0x10aa…10bd at000e = ╱4b╱K╱ // 0x10b8 @0xe
0x10aa…10bd at000f = ╱31╱1╱ // 0x10b9 @0xf
0x10aa…10bd at0010 = ╱ef╱$╱ // 0x10ba @0x10
0x10aa…10bd at0011 = ╱ee╱)╱ // 0x10bb @0x11
0x10aa…10bd at0012 = EOL // 0x10bc @0x12
0x10aa…10bd }
0x10bd…10c6 9e1d 1840 CLOSE K1$
0x10bd…10c6 LineComalBin {
0x10bd…10c6 ptr = 0x9e1d // 0x10bd @0x0
0x10bd…10c6 lno = 0x0730 // 0x10bf @0x2
0x10bd…10c6 at0004 = ╱a8╱ CLOSE ╱ // 0x10c1 @0x4
0x10bd…10c6 at0005 = ╱4b╱K╱ // 0x10c2 @0x5
0x10bd…10c6 at0006 = ╱31╱1╱ // 0x10c3 @0x6
0x10bd…10c6 at0007 = ╱ef╱$╱ // 0x10c4 @0x7
0x10bd…10c6 at0008 = EOL // 0x10c5 @0x8
0x10bd…10c6 }
0x10c6…10df 9e36 1850 EXEC FEJL(W,10,K1$)
0x10c6…10df LineComalBin {
0x10c6…10df ptr = 0x9e36 // 0x10c6 @0x0
0x10c6…10df lno = 0x073a // 0x10c8 @0x2
0x10c6…10df at0004 = ╱9d╱ EXEC ╱ // 0x10ca @0x4
0x10c6…10df at0005 = ╱46╱F╱ // 0x10cb @0x5
0x10c6…10df at0006 = ╱45╱E╱ // 0x10cc @0x6
0x10c6…10df at0007 = ╱4a╱J╱ // 0x10cd @0x7
0x10c6…10df at0008 = ╱4c╱L╱ // 0x10ce @0x8
0x10c6…10df at0009 = ╱ed╱(╱ // 0x10cf @0x9
0x10c6…10df at000a = ╱57╱W╱ // 0x10d0 @0xa
0x10c6…10df at000b = ╱ec╱,╱ // 0x10d1 @0xb
0x10c6…10df at000c = ╱31╱1╱ // 0x10d2 @0xc
0x10c6…10df at000d = ╱30╱0╱ // 0x10d3 @0xd
0x10c6…10df at000e = ╱fe0000a004╱ // 0x10d4 @0xe
0x10c6…10df at0013 = ╱ec╱,╱ // 0x10d9 @0x13
0x10c6…10df at0014 = ╱4b╱K╱ // 0x10da @0x14
0x10c6…10df at0015 = ╱31╱1╱ // 0x10db @0x15
0x10c6…10df at0016 = ╱ef╱$╱ // 0x10dc @0x16
0x10c6…10df at0017 = ╱ee╱)╱ // 0x10dd @0x17
0x10c6…10df at0018 = EOL // 0x10de @0x18
0x10c6…10df }
0x10df…1104 9e5b 1860 K2$=N$+K2$;K3$=N$+K3$;K5$=N$+K5$
0x10df…1104 LineComalBin {
0x10df…1104 ptr = 0x9e5b // 0x10df @0x0
0x10df…1104 lno = 0x0744 // 0x10e1 @0x2
0x10df…1104 at0004 = ╱4b╱K╱ // 0x10e3 @0x4
0x10df…1104 at0005 = ╱32╱2╱ // 0x10e4 @0x5
0x10df…1104 at0006 = ╱ef╱$╱ // 0x10e5 @0x6
0x10df…1104 at0007 = ╱dc╱=╱ // 0x10e6 @0x7
0x10df…1104 at0008 = ╱4e╱N╱ // 0x10e7 @0x8
0x10df…1104 at0009 = ╱ef╱$╱ // 0x10e8 @0x9
0x10df…1104 at000a = ╱f1╱+╱ // 0x10e9 @0xa
0x10df…1104 at000b = ╱4b╱K╱ // 0x10ea @0xb
0x10df…1104 at000c = ╱32╱2╱ // 0x10eb @0xc
0x10df…1104 at000d = ╱ef╱$╱ // 0x10ec @0xd
0x10df…1104 at000e = ╱eb╱;╱ // 0x10ed @0xe
0x10df…1104 at000f = ╱4b╱K╱ // 0x10ee @0xf
0x10df…1104 at0010 = ╱33╱3╱ // 0x10ef @0x10
0x10df…1104 at0011 = ╱ef╱$╱ // 0x10f0 @0x11
0x10df…1104 at0012 = ╱dc╱=╱ // 0x10f1 @0x12
0x10df…1104 at0013 = ╱4e╱N╱ // 0x10f2 @0x13
0x10df…1104 at0014 = ╱ef╱$╱ // 0x10f3 @0x14
0x10df…1104 at0015 = ╱f1╱+╱ // 0x10f4 @0x15
0x10df…1104 at0016 = ╱4b╱K╱ // 0x10f5 @0x16
0x10df…1104 at0017 = ╱33╱3╱ // 0x10f6 @0x17
0x10df…1104 at0018 = ╱ef╱$╱ // 0x10f7 @0x18
0x10df…1104 at0019 = ╱eb╱;╱ // 0x10f8 @0x19
0x10df…1104 at001a = ╱4b╱K╱ // 0x10f9 @0x1a
0x10df…1104 at001b = ╱35╱5╱ // 0x10fa @0x1b
0x10df…1104 at001c = ╱ef╱$╱ // 0x10fb @0x1c
0x10df…1104 at001d = ╱dc╱=╱ // 0x10fc @0x1d
0x10df…1104 at001e = ╱4e╱N╱ // 0x10fd @0x1e
0x10df…1104 at001f = ╱ef╱$╱ // 0x10fe @0x1f
0x10df…1104 at0020 = ╱f1╱+╱ // 0x10ff @0x20
0x10df…1104 at0021 = ╱4b╱K╱ // 0x1100 @0x21
0x10df…1104 at0022 = ╱35╱5╱ // 0x1101 @0x22
0x10df…1104 at0023 = ╱ef╱$╱ // 0x1102 @0x23
0x10df…1104 at0024 = EOL // 0x1103 @0x24
0x10df…1104 }
0x1104…110f 9e66 1870 OPEN K5$,R
0x1104…110f LineComalBin {
0x1104…110f ptr = 0x9e66 // 0x1104 @0x0
0x1104…110f lno = 0x074e // 0x1106 @0x2
0x1104…110f at0004 = ╱a7╱ OPEN ╱ // 0x1108 @0x4
0x1104…110f at0005 = ╱4b╱K╱ // 0x1109 @0x5
0x1104…110f at0006 = ╱35╱5╱ // 0x110a @0x6
0x1104…110f at0007 = ╱ef╱$╱ // 0x110b @0x7
0x1104…110f at0008 = ╱ec╱,╱ // 0x110c @0x8
0x1104…110f at0009 = ╱52╱R╱ // 0x110d @0x9
0x1104…110f at000a = EOL // 0x110e @0xa
0x1104…110f }
0x110f…1128 9e7f 1880 EXEC FEJL(W,11,K5$)
0x110f…1128 LineComalBin {
0x110f…1128 ptr = 0x9e7f // 0x110f @0x0
0x110f…1128 lno = 0x0758 // 0x1111 @0x2
0x110f…1128 at0004 = ╱9d╱ EXEC ╱ // 0x1113 @0x4
0x110f…1128 at0005 = ╱46╱F╱ // 0x1114 @0x5
0x110f…1128 at0006 = ╱45╱E╱ // 0x1115 @0x6
0x110f…1128 at0007 = ╱4a╱J╱ // 0x1116 @0x7
0x110f…1128 at0008 = ╱4c╱L╱ // 0x1117 @0x8
0x110f…1128 at0009 = ╱ed╱(╱ // 0x1118 @0x9
0x110f…1128 at000a = ╱57╱W╱ // 0x1119 @0xa
0x110f…1128 at000b = ╱ec╱,╱ // 0x111a @0xb
0x110f…1128 at000c = ╱31╱1╱ // 0x111b @0xc
0x110f…1128 at000d = ╱31╱1╱ // 0x111c @0xd
0x110f…1128 at000e = ╱fe0000b004╱ // 0x111d @0xe
0x110f…1128 at0013 = ╱ec╱,╱ // 0x1122 @0x13
0x110f…1128 at0014 = ╱4b╱K╱ // 0x1123 @0x14
0x110f…1128 at0015 = ╱35╱5╱ // 0x1124 @0x15
0x110f…1128 at0016 = ╱ef╱$╱ // 0x1125 @0x16
0x110f…1128 at0017 = ╱ee╱)╱ // 0x1126 @0x17
0x110f…1128 at0018 = EOL // 0x1127 @0x18
0x110f…1128 }
0x1128…1182 9ed9 1890 GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x1128…1182 LineComalBin {
0x1128…1182 ptr = 0x9ed9 // 0x1128 @0x0
0x1128…1182 lno = 0x0762 // 0x112a @0x2
0x1128…1182 at0004 = ╱a9╱ GET ╱ // 0x112c @0x4
0x1128…1182 at0005 = ╱4b╱K╱ // 0x112d @0x5
0x1128…1182 at0006 = ╱35╱5╱ // 0x112e @0x6
0x1128…1182 at0007 = ╱ef╱$╱ // 0x112f @0x7
0x1128…1182 at0008 = ╱ec╱,╱ // 0x1130 @0x8
0x1128…1182 at0009 = ╱47╱G╱ // 0x1131 @0x9
0x1128…1182 at000a = ╱f0╱:╱ // 0x1132 @0xa
0x1128…1182 at000b = ╱54╱T╱ // 0x1133 @0xb
0x1128…1182 at000c = ╱31╱1╱ // 0x1134 @0xc
0x1128…1182 at000d = ╱ed╱(╱ // 0x1135 @0xd
0x1128…1182 at000e = ╱45╱E╱ // 0x1136 @0xe
0x1128…1182 at000f = ╱ee╱)╱ // 0x1137 @0xf
0x1128…1182 at0010 = ╱ec╱,╱ // 0x1138 @0x10
0x1128…1182 at0011 = ╱54╱T╱ // 0x1139 @0x11
0x1128…1182 at0012 = ╱31╱1╱ // 0x113a @0x12
0x1128…1182 at0013 = ╱ed╱(╱ // 0x113b @0x13
0x1128…1182 at0014 = ╱47╱G╱ // 0x113c @0x14
0x1128…1182 at0015 = ╱ee╱)╱ // 0x113d @0x15
0x1128…1182 at0016 = ╱ec╱,╱ // 0x113e @0x16
0x1128…1182 at0017 = ╱54╱T╱ // 0x113f @0x17
0x1128…1182 at0018 = ╱31╱1╱ // 0x1140 @0x18
0x1128…1182 at0019 = ╱ed╱(╱ // 0x1141 @0x19
0x1128…1182 at001a = ╱56╱V╱ // 0x1142 @0x1a
0x1128…1182 at001b = ╱ee╱)╱ // 0x1143 @0x1b
0x1128…1182 at001c = ╱ec╱,╱ // 0x1144 @0x1c
0x1128…1182 at001d = ╱54╱T╱ // 0x1145 @0x1d
0x1128…1182 at001e = ╱31╱1╱ // 0x1146 @0x1e
0x1128…1182 at001f = ╱ed╱(╱ // 0x1147 @0x1f
0x1128…1182 at0020 = ╱34╱4╱ // 0x1148 @0x20
0x1128…1182 at0021 = ╱fe00008003╱ // 0x1149 @0x21
0x1128…1182 at0026 = ╱ee╱)╱ // 0x114e @0x26
0x1128…1182 at0027 = ╱ec╱,╱ // 0x114f @0x27
0x1128…1182 at0028 = ╱54╱T╱ // 0x1150 @0x28
0x1128…1182 at0029 = ╱31╱1╱ // 0x1151 @0x29
0x1128…1182 at002a = ╱ed╱(╱ // 0x1152 @0x2a
0x1128…1182 at002b = ╱35╱5╱ // 0x1153 @0x2b
0x1128…1182 at002c = ╱fe0000a003╱ // 0x1154 @0x2c
0x1128…1182 at0031 = ╱ee╱)╱ // 0x1159 @0x31
0x1128…1182 at0032 = ╱ec╱,╱ // 0x115a @0x32
0x1128…1182 at0033 = ╱54╱T╱ // 0x115b @0x33
0x1128…1182 at0034 = ╱31╱1╱ // 0x115c @0x34
0x1128…1182 at0035 = ╱ed╱(╱ // 0x115d @0x35
0x1128…1182 at0036 = ╱36╱6╱ // 0x115e @0x36
0x1128…1182 at0037 = ╱fe0000c003╱ // 0x115f @0x37
0x1128…1182 at003c = ╱ee╱)╱ // 0x1164 @0x3c
0x1128…1182 at003d = ╱ec╱,╱ // 0x1165 @0x3d
0x1128…1182 at003e = ╱54╱T╱ // 0x1166 @0x3e
0x1128…1182 at003f = ╱31╱1╱ // 0x1167 @0x3f
0x1128…1182 at0040 = ╱ed╱(╱ // 0x1168 @0x40
0x1128…1182 at0041 = ╱37╱7╱ // 0x1169 @0x41
0x1128…1182 at0042 = ╱fe0000e003╱ // 0x116a @0x42
0x1128…1182 at0047 = ╱ee╱)╱ // 0x116f @0x47
0x1128…1182 at0048 = ╱ec╱,╱ // 0x1170 @0x48
0x1128…1182 at0049 = ╱54╱T╱ // 0x1171 @0x49
0x1128…1182 at004a = ╱31╱1╱ // 0x1172 @0x4a
0x1128…1182 at004b = ╱ed╱(╱ // 0x1173 @0x4b
0x1128…1182 at004c = ╱38╱8╱ // 0x1174 @0x4c
0x1128…1182 at004d = ╱fe00008004╱ // 0x1175 @0x4d
0x1128…1182 at0052 = ╱ee╱)╱ // 0x117a @0x52
0x1128…1182 at0053 = ╱ec╱,╱ // 0x117b @0x53
0x1128…1182 at0054 = ╱54╱T╱ // 0x117c @0x54
0x1128…1182 at0055 = ╱31╱1╱ // 0x117d @0x55
0x1128…1182 at0056 = ╱ed╱(╱ // 0x117e @0x56
0x1128…1182 at0057 = ╱57╱W╱ // 0x117f @0x57
0x1128…1182 at0058 = ╱ee╱)╱ // 0x1180 @0x58
0x1128…1182 at0059 = EOL // 0x1181 @0x59
0x1128…1182 }
0x1182…119b 9ef2 1900 EXEC FEJL(W,12,K5$)
0x1182…119b LineComalBin {
0x1182…119b ptr = 0x9ef2 // 0x1182 @0x0
0x1182…119b lno = 0x076c // 0x1184 @0x2
0x1182…119b at0004 = ╱9d╱ EXEC ╱ // 0x1186 @0x4
0x1182…119b at0005 = ╱46╱F╱ // 0x1187 @0x5
0x1182…119b at0006 = ╱45╱E╱ // 0x1188 @0x6
0x1182…119b at0007 = ╱4a╱J╱ // 0x1189 @0x7
0x1182…119b at0008 = ╱4c╱L╱ // 0x118a @0x8
0x1182…119b at0009 = ╱ed╱(╱ // 0x118b @0x9
0x1182…119b at000a = ╱57╱W╱ // 0x118c @0xa
0x1182…119b at000b = ╱ec╱,╱ // 0x118d @0xb
0x1182…119b at000c = ╱31╱1╱ // 0x118e @0xc
0x1182…119b at000d = ╱32╱2╱ // 0x118f @0xd
0x1182…119b at000e = ╱fe0000c004╱ // 0x1190 @0xe
0x1182…119b at0013 = ╱ec╱,╱ // 0x1195 @0x13
0x1182…119b at0014 = ╱4b╱K╱ // 0x1196 @0x14
0x1182…119b at0015 = ╱35╱5╱ // 0x1197 @0x15
0x1182…119b at0016 = ╱ef╱$╱ // 0x1198 @0x16
0x1182…119b at0017 = ╱ee╱)╱ // 0x1199 @0x17
0x1182…119b at0018 = EOL // 0x119a @0x18
0x1182…119b }
0x119b…11a6 9efd 1910 FOR I=E TO V
0x119b…11a6 LineComalBin {
0x119b…11a6 ptr = 0x9efd // 0x119b @0x0
0x119b…11a6 lno = 0x0776 // 0x119d @0x2
0x119b…11a6 at0004 = ╱83╱ FOR ╱ // 0x119f @0x4
0x119b…11a6 at0005 = ╱49╱I╱ // 0x11a0 @0x5
0x119b…11a6 at0006 = ╱dc╱=╱ // 0x11a1 @0x6
0x119b…11a6 at0007 = ╱45╱E╱ // 0x11a2 @0x7
0x119b…11a6 at0008 = ╱b7╱ TO ╱ // 0x11a3 @0x8
0x119b…11a6 at0009 = ╱56╱V╱ // 0x11a4 @0x9
0x119b…11a6 at000a = EOL // 0x11a5 @0xa
0x119b…11a6 }
0x11a6…11b6 9f0d 1920 H=(I-E)*V+E
0x11a6…11b6 LineComalBin {
0x11a6…11b6 ptr = 0x9f0d // 0x11a6 @0x0
0x11a6…11b6 lno = 0x0780 // 0x11a8 @0x2
0x11a6…11b6 at0004 = ╱48╱H╱ // 0x11aa @0x4
0x11a6…11b6 at0005 = ╱dc╱=╱ // 0x11ab @0x5
0x11a6…11b6 at0006 = ╱ed╱(╱ // 0x11ac @0x6
0x11a6…11b6 at0007 = ╱49╱I╱ // 0x11ad @0x7
0x11a6…11b6 at0008 = ╱e3╱-╱ // 0x11ae @0x8
0x11a6…11b6 at0009 = ╱45╱E╱ // 0x11af @0x9
0x11a6…11b6 at000a = ╱ee╱)╱ // 0x11b0 @0xa
0x11a6…11b6 at000b = ╱e4╱*╱ // 0x11b1 @0xb
0x11a6…11b6 at000c = ╱56╱V╱ // 0x11b2 @0xc
0x11a6…11b6 at000d = ╱e2╱+╱ // 0x11b3 @0xd
0x11a6…11b6 at000e = ╱45╱E╱ // 0x11b4 @0xe
0x11a6…11b6 at000f = EOL // 0x11b5 @0xf
0x11a6…11b6 }
0x11b6…11e2 9f39 1930 GET K5$,I+G:LAND$(H),LAND$(H+E),LAND$(H+G)
0x11b6…11e2 LineComalBin {
0x11b6…11e2 ptr = 0x9f39 // 0x11b6 @0x0
0x11b6…11e2 lno = 0x078a // 0x11b8 @0x2
0x11b6…11e2 at0004 = ╱a9╱ GET ╱ // 0x11ba @0x4
0x11b6…11e2 at0005 = ╱4b╱K╱ // 0x11bb @0x5
0x11b6…11e2 at0006 = ╱35╱5╱ // 0x11bc @0x6
0x11b6…11e2 at0007 = ╱ef╱$╱ // 0x11bd @0x7
0x11b6…11e2 at0008 = ╱ec╱,╱ // 0x11be @0x8
0x11b6…11e2 at0009 = ╱49╱I╱ // 0x11bf @0x9
0x11b6…11e2 at000a = ╱e2╱+╱ // 0x11c0 @0xa
0x11b6…11e2 at000b = ╱47╱G╱ // 0x11c1 @0xb
0x11b6…11e2 at000c = ╱f0╱:╱ // 0x11c2 @0xc
0x11b6…11e2 at000d = ╱4c╱L╱ // 0x11c3 @0xd
0x11b6…11e2 at000e = ╱41╱A╱ // 0x11c4 @0xe
0x11b6…11e2 at000f = ╱4e╱N╱ // 0x11c5 @0xf
0x11b6…11e2 at0010 = ╱44╱D╱ // 0x11c6 @0x10
0x11b6…11e2 at0011 = ╱ef╱$╱ // 0x11c7 @0x11
0x11b6…11e2 at0012 = ╱ed╱(╱ // 0x11c8 @0x12
0x11b6…11e2 at0013 = ╱48╱H╱ // 0x11c9 @0x13
0x11b6…11e2 at0014 = ╱ee╱)╱ // 0x11ca @0x14
0x11b6…11e2 at0015 = ╱ec╱,╱ // 0x11cb @0x15
0x11b6…11e2 at0016 = ╱4c╱L╱ // 0x11cc @0x16
0x11b6…11e2 at0017 = ╱41╱A╱ // 0x11cd @0x17
0x11b6…11e2 at0018 = ╱4e╱N╱ // 0x11ce @0x18
0x11b6…11e2 at0019 = ╱44╱D╱ // 0x11cf @0x19
0x11b6…11e2 at001a = ╱ef╱$╱ // 0x11d0 @0x1a
0x11b6…11e2 at001b = ╱ed╱(╱ // 0x11d1 @0x1b
0x11b6…11e2 at001c = ╱48╱H╱ // 0x11d2 @0x1c
0x11b6…11e2 at001d = ╱e2╱+╱ // 0x11d3 @0x1d
0x11b6…11e2 at001e = ╱45╱E╱ // 0x11d4 @0x1e
0x11b6…11e2 at001f = ╱ee╱)╱ // 0x11d5 @0x1f
0x11b6…11e2 at0020 = ╱ec╱,╱ // 0x11d6 @0x20
0x11b6…11e2 at0021 = ╱4c╱L╱ // 0x11d7 @0x21
0x11b6…11e2 at0022 = ╱41╱A╱ // 0x11d8 @0x22
0x11b6…11e2 at0023 = ╱4e╱N╱ // 0x11d9 @0x23
0x11b6…11e2 at0024 = ╱44╱D╱ // 0x11da @0x24
0x11b6…11e2 at0025 = ╱ef╱$╱ // 0x11db @0x25
0x11b6…11e2 at0026 = ╱ed╱(╱ // 0x11dc @0x26
0x11b6…11e2 at0027 = ╱48╱H╱ // 0x11dd @0x27
0x11b6…11e2 at0028 = ╱e2╱+╱ // 0x11de @0x28
0x11b6…11e2 at0029 = ╱47╱G╱ // 0x11df @0x29
0x11b6…11e2 at002a = ╱ee╱)╱ // 0x11e0 @0x2a
0x11b6…11e2 at002b = EOL // 0x11e1 @0x2b
0x11b6…11e2 }
0x11e2…11fb 9f52 1940 EXEC FEJL(W,13,K5$)
0x11e2…11fb LineComalBin {
0x11e2…11fb ptr = 0x9f52 // 0x11e2 @0x0
0x11e2…11fb lno = 0x0794 // 0x11e4 @0x2
0x11e2…11fb at0004 = ╱9d╱ EXEC ╱ // 0x11e6 @0x4
0x11e2…11fb at0005 = ╱46╱F╱ // 0x11e7 @0x5
0x11e2…11fb at0006 = ╱45╱E╱ // 0x11e8 @0x6
0x11e2…11fb at0007 = ╱4a╱J╱ // 0x11e9 @0x7
0x11e2…11fb at0008 = ╱4c╱L╱ // 0x11ea @0x8
0x11e2…11fb at0009 = ╱ed╱(╱ // 0x11eb @0x9
0x11e2…11fb at000a = ╱57╱W╱ // 0x11ec @0xa
0x11e2…11fb at000b = ╱ec╱,╱ // 0x11ed @0xb
0x11e2…11fb at000c = ╱31╱1╱ // 0x11ee @0xc
0x11e2…11fb at000d = ╱33╱3╱ // 0x11ef @0xd
0x11e2…11fb at000e = ╱fe0000d004╱ // 0x11f0 @0xe
0x11e2…11fb at0013 = ╱ec╱,╱ // 0x11f5 @0x13
0x11e2…11fb at0014 = ╱4b╱K╱ // 0x11f6 @0x14
0x11e2…11fb at0015 = ╱35╱5╱ // 0x11f7 @0x15
0x11e2…11fb at0016 = ╱ef╱$╱ // 0x11f8 @0x16
0x11e2…11fb at0017 = ╱ee╱)╱ // 0x11f9 @0x17
0x11e2…11fb at0018 = EOL // 0x11fa @0x18
0x11e2…11fb }
0x11fb…1202 9f59 1950 NEXT I
0x11fb…1202 LineComalBin {
0x11fb…1202 ptr = 0x9f59 // 0x11fb @0x0
0x11fb…1202 lno = 0x079e // 0x11fd @0x2
0x11fb…1202 at0004 = ╱84╱ NEXT ╱ // 0x11ff @0x4
0x11fb…1202 at0005 = ╱49╱I╱ // 0x1200 @0x5
0x11fb…1202 at0006 = EOL // 0x1201 @0x6
0x11fb…1202 }
0x1202…1259 9fb0 1960 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5)
0x1202…1259 LineComalBin {
0x1202…1259 ptr = 0x9fb0 // 0x1202 @0x0
0x1202…1259 lno = 0x07a8 // 0x1204 @0x2
0x1202…1259 at0004 = ╱a9╱ GET ╱ // 0x1206 @0x4
0x1202…1259 at0005 = ╱4b╱K╱ // 0x1207 @0x5
0x1202…1259 at0006 = ╱35╱5╱ // 0x1208 @0x6
0x1202…1259 at0007 = ╱ef╱$╱ // 0x1209 @0x7
0x1202…1259 at0008 = ╱ec╱,╱ // 0x120a @0x8
0x1202…1259 at0009 = ╱31╱1╱ // 0x120b @0x9
0x1202…1259 at000a = ╱34╱4╱ // 0x120c @0xa
0x1202…1259 at000b = ╱fe0000e004╱ // 0x120d @0xb
0x1202…1259 at0010 = ╱f0╱:╱ // 0x1212 @0x10
0x1202…1259 at0011 = ╱41╱A╱ // 0x1213 @0x11
0x1202…1259 at0012 = ╱46╱F╱ // 0x1214 @0x12
0x1202…1259 at0013 = ╱49╱I╱ // 0x1215 @0x13
0x1202…1259 at0014 = ╱4e╱N╱ // 0x1216 @0x14
0x1202…1259 at0015 = ╱ec╱,╱ // 0x1217 @0x15
0x1202…1259 at0016 = ╱41╱A╱ // 0x1218 @0x16
0x1202…1259 at0017 = ╱44╱D╱ // 0x1219 @0x17
0x1202…1259 at0018 = ╱45╱E╱ // 0x121a @0x18
0x1202…1259 at0019 = ╱42╱B╱ // 0x121b @0x19
0x1202…1259 at001a = ╱ec╱,╱ // 0x121c @0x1a
0x1202…1259 at001b = ╱41╱A╱ // 0x121d @0x1b
0x1202…1259 at001c = ╱4b╱K╱ // 0x121e @0x1c
0x1202…1259 at001d = ╱52╱R╱ // 0x121f @0x1d
0x1202…1259 at001e = ╱45╱E╱ // 0x1220 @0x1e
0x1202…1259 at001f = ╱ec╱,╱ // 0x1221 @0x1f
0x1202…1259 at0020 = ╱56╱V╱ // 0x1222 @0x20
0x1202…1259 at0021 = ╱54╱T╱ // 0x1223 @0x21
0x1202…1259 at0022 = ╱41╱A╱ // 0x1224 @0x22
0x1202…1259 at0023 = ╱42╱B╱ // 0x1225 @0x23
0x1202…1259 at0024 = ╱32╱2╱ // 0x1226 @0x24
0x1202…1259 at0025 = ╱ed╱(╱ // 0x1227 @0x25
0x1202…1259 at0026 = ╱45╱E╱ // 0x1228 @0x26
0x1202…1259 at0027 = ╱ee╱)╱ // 0x1229 @0x27
0x1202…1259 at0028 = ╱ec╱,╱ // 0x122a @0x28
0x1202…1259 at0029 = ╱56╱V╱ // 0x122b @0x29
0x1202…1259 at002a = ╱54╱T╱ // 0x122c @0x2a
0x1202…1259 at002b = ╱41╱A╱ // 0x122d @0x2b
0x1202…1259 at002c = ╱42╱B╱ // 0x122e @0x2c
0x1202…1259 at002d = ╱32╱2╱ // 0x122f @0x2d
0x1202…1259 at002e = ╱ed╱(╱ // 0x1230 @0x2e
0x1202…1259 at002f = ╱47╱G╱ // 0x1231 @0x2f
0x1202…1259 at0030 = ╱ee╱)╱ // 0x1232 @0x30
0x1202…1259 at0031 = ╱ec╱,╱ // 0x1233 @0x31
0x1202…1259 at0032 = ╱56╱V╱ // 0x1234 @0x32
0x1202…1259 at0033 = ╱54╱T╱ // 0x1235 @0x33
0x1202…1259 at0034 = ╱41╱A╱ // 0x1236 @0x34
0x1202…1259 at0035 = ╱42╱B╱ // 0x1237 @0x35
0x1202…1259 at0036 = ╱32╱2╱ // 0x1238 @0x36
0x1202…1259 at0037 = ╱ed╱(╱ // 0x1239 @0x37
0x1202…1259 at0038 = ╱56╱V╱ // 0x123a @0x38
0x1202…1259 at0039 = ╱ee╱)╱ // 0x123b @0x39
0x1202…1259 at003a = ╱ec╱,╱ // 0x123c @0x3a
0x1202…1259 at003b = ╱56╱V╱ // 0x123d @0x3b
0x1202…1259 at003c = ╱54╱T╱ // 0x123e @0x3c
0x1202…1259 at003d = ╱41╱A╱ // 0x123f @0x3d
0x1202…1259 at003e = ╱42╱B╱ // 0x1240 @0x3e
0x1202…1259 at003f = ╱32╱2╱ // 0x1241 @0x3f
0x1202…1259 at0040 = ╱ed╱(╱ // 0x1242 @0x40
0x1202…1259 at0041 = ╱34╱4╱ // 0x1243 @0x41
0x1202…1259 at0042 = ╱fe00008003╱ // 0x1244 @0x42
0x1202…1259 at0047 = ╱ee╱)╱ // 0x1249 @0x47
0x1202…1259 at0048 = ╱ec╱,╱ // 0x124a @0x48
0x1202…1259 at0049 = ╱56╱V╱ // 0x124b @0x49
0x1202…1259 at004a = ╱54╱T╱ // 0x124c @0x4a
0x1202…1259 at004b = ╱41╱A╱ // 0x124d @0x4b
0x1202…1259 at004c = ╱42╱B╱ // 0x124e @0x4c
0x1202…1259 at004d = ╱32╱2╱ // 0x124f @0x4d
0x1202…1259 at004e = ╱ed╱(╱ // 0x1250 @0x4e
0x1202…1259 at004f = ╱35╱5╱ // 0x1251 @0x4f
0x1202…1259 at0050 = ╱fe0000a003╱ // 0x1252 @0x50
0x1202…1259 at0055 = ╱ee╱)╱ // 0x1257 @0x55
0x1202…1259 at0056 = EOL // 0x1258 @0x56
0x1202…1259 }
0x1259…1272 (61,) 9fc9 1970 EXEC FEJL(W,14,K5$)
0x1259…1272 LineComalBin {
0x1259…1272 ptr = 0x9fc9 // 0x1259 @0x0
0x1259…1272 lno = 0x07b2 // 0x125b @0x2
0x1259…1272 at0004 = ╱9d╱ EXEC ╱ // 0x125d @0x4
0x1259…1272 at0005 = ╱46╱F╱ // 0x125e @0x5
0x1259…1272 at0006 = ╱45╱E╱ // 0x125f @0x6
0x1259…1272 at0007 = ╱4a╱J╱ // 0x1260 @0x7
0x1259…1272 at0008 = ╱4c╱L╱ // 0x1261 @0x8
0x1259…1272 at0009 = ╱ed╱(╱ // 0x1262 @0x9
0x1259…1272 at000a = ╱57╱W╱ // 0x1263 @0xa
0x1259…1272 at000b = ╱ec╱,╱ // 0x1264 @0xb
0x1259…1272 at000c = ╱31╱1╱ // 0x1265 @0xc
0x1259…1272 at000d = ╱34╱4╱ // 0x1266 @0xd
0x1259…1272 at000e = ╱fe0000e004╱ // 0x1267 @0xe
0x1259…1272 at0013 = ╱ec╱,╱ // 0x126c @0x13
0x1259…1272 at0014 = ╱4b╱K╱ // 0x126d @0x14
0x1259…1272 at0015 = ╱35╱5╱ // 0x126e @0x15
0x1259…1272 at0016 = ╱ef╱$╱ // 0x126f @0x16
0x1259…1272 at0017 = ╱ee╱)╱ // 0x1270 @0x17
0x1259…1272 at0018 = EOL // 0x1271 @0x18
0x1259…1272 }
0x1272…1287 9fde 1980 GET K5$,20:DV$
0x1272…1287 LineComalBin {
0x1272…1287 ptr = 0x9fde // 0x1272 @0x0
0x1272…1287 lno = 0x07bc // 0x1274 @0x2
0x1272…1287 at0004 = ╱a9╱ GET ╱ // 0x1276 @0x4
0x1272…1287 at0005 = ╱4b╱K╱ // 0x1277 @0x5
0x1272…1287 at0006 = ╱35╱5╱ // 0x1278 @0x6
0x1272…1287 at0007 = ╱ef╱$╱ // 0x1279 @0x7
0x1272…1287 at0008 = ╱ec╱,╱ // 0x127a @0x8
0x1272…1287 at0009 = ╱32╱2╱ // 0x127b @0x9
0x1272…1287 at000a = ╱30╱0╱ // 0x127c @0xa
0x1272…1287 at000b = ╱fe0000a005╱ // 0x127d @0xb
0x1272…1287 at0010 = ╱f0╱:╱ // 0x1282 @0x10
0x1272…1287 at0011 = ╱44╱D╱ // 0x1283 @0x11
0x1272…1287 at0012 = ╱56╱V╱ // 0x1284 @0x12
0x1272…1287 at0013 = ╱ef╱$╱ // 0x1285 @0x13
0x1272…1287 at0014 = EOL // 0x1286 @0x14
0x1272…1287 }
0x1287…12a0 9ff7 1990 EXEC FEJL(W,25,K5$)
0x1287…12a0 LineComalBin {
0x1287…12a0 ptr = 0x9ff7 // 0x1287 @0x0
0x1287…12a0 lno = 0x07c6 // 0x1289 @0x2
0x1287…12a0 at0004 = ╱9d╱ EXEC ╱ // 0x128b @0x4
0x1287…12a0 at0005 = ╱46╱F╱ // 0x128c @0x5
0x1287…12a0 at0006 = ╱45╱E╱ // 0x128d @0x6
0x1287…12a0 at0007 = ╱4a╱J╱ // 0x128e @0x7
0x1287…12a0 at0008 = ╱4c╱L╱ // 0x128f @0x8
0x1287…12a0 at0009 = ╱ed╱(╱ // 0x1290 @0x9
0x1287…12a0 at000a = ╱57╱W╱ // 0x1291 @0xa
0x1287…12a0 at000b = ╱ec╱,╱ // 0x1292 @0xb
0x1287…12a0 at000c = ╱32╱2╱ // 0x1293 @0xc
0x1287…12a0 at000d = ╱35╱5╱ // 0x1294 @0xd
0x1287…12a0 at000e = ╱fe0000c805╱ // 0x1295 @0xe
0x1287…12a0 at0013 = ╱ec╱,╱ // 0x129a @0x13
0x1287…12a0 at0014 = ╱4b╱K╱ // 0x129b @0x14
0x1287…12a0 at0015 = ╱35╱5╱ // 0x129c @0x15
0x1287…12a0 at0016 = ╱ef╱$╱ // 0x129d @0x16
0x1287…12a0 at0017 = ╱ee╱)╱ // 0x129e @0x17
0x1287…12a0 at0018 = EOL // 0x129f @0x18
0x1287…12a0 }
0x12a0…12b5 a00c 2000 DIM KTAB(MKANTAL,G)
0x12a0…12b5 LineComalBin {
0x12a0…12b5 ptr = 0xa00c // 0x12a0 @0x0
0x12a0…12b5 lno = 0x07d0 // 0x12a2 @0x2
0x12a0…12b5 at0004 = ╱87╱ DIM ╱ // 0x12a4 @0x4
0x12a0…12b5 at0005 = ╱4b╱K╱ // 0x12a5 @0x5
0x12a0…12b5 at0006 = ╱54╱T╱ // 0x12a6 @0x6
0x12a0…12b5 at0007 = ╱41╱A╱ // 0x12a7 @0x7
0x12a0…12b5 at0008 = ╱42╱B╱ // 0x12a8 @0x8
0x12a0…12b5 at0009 = ╱ed╱(╱ // 0x12a9 @0x9
0x12a0…12b5 at000a = ╱4d╱M╱ // 0x12aa @0xa
0x12a0…12b5 at000b = ╱4b╱K╱ // 0x12ab @0xb
0x12a0…12b5 at000c = ╱41╱A╱ // 0x12ac @0xc
0x12a0…12b5 at000d = ╱4e╱N╱ // 0x12ad @0xd
0x12a0…12b5 at000e = ╱54╱T╱ // 0x12ae @0xe
0x12a0…12b5 at000f = ╱41╱A╱ // 0x12af @0xf
0x12a0…12b5 at0010 = ╱4c╱L╱ // 0x12b0 @0x10
0x12a0…12b5 at0011 = ╱ec╱,╱ // 0x12b1 @0x11
0x12a0…12b5 at0012 = ╱47╱G╱ // 0x12b2 @0x12
0x12a0…12b5 at0013 = ╱ee╱)╱ // 0x12b3 @0x13
0x12a0…12b5 at0014 = EOL // 0x12b4 @0x14
0x12a0…12b5 }
0x12b5…12c0 a017 2010 OPEN K2$,R
0x12b5…12c0 LineComalBin {
0x12b5…12c0 ptr = 0xa017 // 0x12b5 @0x0
0x12b5…12c0 lno = 0x07da // 0x12b7 @0x2
0x12b5…12c0 at0004 = ╱a7╱ OPEN ╱ // 0x12b9 @0x4
0x12b5…12c0 at0005 = ╱4b╱K╱ // 0x12ba @0x5
0x12b5…12c0 at0006 = ╱32╱2╱ // 0x12bb @0x6
0x12b5…12c0 at0007 = ╱ef╱$╱ // 0x12bc @0x7
0x12b5…12c0 at0008 = ╱ec╱,╱ // 0x12bd @0x8
0x12b5…12c0 at0009 = ╱52╱R╱ // 0x12be @0x9
0x12b5…12c0 at000a = EOL // 0x12bf @0xa
0x12b5…12c0 }
0x12c0…12d9 a030 2020 EXEC FEJL(W,18,K2$)
0x12c0…12d9 LineComalBin {
0x12c0…12d9 ptr = 0xa030 // 0x12c0 @0x0
0x12c0…12d9 lno = 0x07e4 // 0x12c2 @0x2
0x12c0…12d9 at0004 = ╱9d╱ EXEC ╱ // 0x12c4 @0x4
0x12c0…12d9 at0005 = ╱46╱F╱ // 0x12c5 @0x5
0x12c0…12d9 at0006 = ╱45╱E╱ // 0x12c6 @0x6
0x12c0…12d9 at0007 = ╱4a╱J╱ // 0x12c7 @0x7
0x12c0…12d9 at0008 = ╱4c╱L╱ // 0x12c8 @0x8
0x12c0…12d9 at0009 = ╱ed╱(╱ // 0x12c9 @0x9
0x12c0…12d9 at000a = ╱57╱W╱ // 0x12ca @0xa
0x12c0…12d9 at000b = ╱ec╱,╱ // 0x12cb @0xb
0x12c0…12d9 at000c = ╱31╱1╱ // 0x12cc @0xc
0x12c0…12d9 at000d = ╱38╱8╱ // 0x12cd @0xd
0x12c0…12d9 at000e = ╱fe00009005╱ // 0x12ce @0xe
0x12c0…12d9 at0013 = ╱ec╱,╱ // 0x12d3 @0x13
0x12c0…12d9 at0014 = ╱4b╱K╱ // 0x12d4 @0x14
0x12c0…12d9 at0015 = ╱32╱2╱ // 0x12d5 @0x15
0x12c0…12d9 at0016 = ╱ef╱$╱ // 0x12d6 @0x16
0x12c0…12d9 at0017 = ╱ee╱)╱ // 0x12d7 @0x17
0x12c0…12d9 at0018 = EOL // 0x12d8 @0x18
0x12c0…12d9 }
0x12d9…12e4 a03b 2030 OPEN K3$,R
0x12d9…12e4 LineComalBin {
0x12d9…12e4 ptr = 0xa03b // 0x12d9 @0x0
0x12d9…12e4 lno = 0x07ee // 0x12db @0x2
0x12d9…12e4 at0004 = ╱a7╱ OPEN ╱ // 0x12dd @0x4
0x12d9…12e4 at0005 = ╱4b╱K╱ // 0x12de @0x5
0x12d9…12e4 at0006 = ╱33╱3╱ // 0x12df @0x6
0x12d9…12e4 at0007 = ╱ef╱$╱ // 0x12e0 @0x7
0x12d9…12e4 at0008 = ╱ec╱,╱ // 0x12e1 @0x8
0x12d9…12e4 at0009 = ╱52╱R╱ // 0x12e2 @0x9
0x12d9…12e4 at000a = EOL // 0x12e3 @0xa
0x12d9…12e4 }
0x12e4…12fd a054 2040 EXEC FEJL(W,19,K3$)
0x12e4…12fd LineComalBin {
0x12e4…12fd ptr = 0xa054 // 0x12e4 @0x0
0x12e4…12fd lno = 0x07f8 // 0x12e6 @0x2
0x12e4…12fd at0004 = ╱9d╱ EXEC ╱ // 0x12e8 @0x4
0x12e4…12fd at0005 = ╱46╱F╱ // 0x12e9 @0x5
0x12e4…12fd at0006 = ╱45╱E╱ // 0x12ea @0x6
0x12e4…12fd at0007 = ╱4a╱J╱ // 0x12eb @0x7
0x12e4…12fd at0008 = ╱4c╱L╱ // 0x12ec @0x8
0x12e4…12fd at0009 = ╱ed╱(╱ // 0x12ed @0x9
0x12e4…12fd at000a = ╱57╱W╱ // 0x12ee @0xa
0x12e4…12fd at000b = ╱ec╱,╱ // 0x12ef @0xb
0x12e4…12fd at000c = ╱31╱1╱ // 0x12f0 @0xc
0x12e4…12fd at000d = ╱39╱9╱ // 0x12f1 @0xd
0x12e4…12fd at000e = ╱fe00009805╱ // 0x12f2 @0xe
0x12e4…12fd at0013 = ╱ec╱,╱ // 0x12f7 @0x13
0x12e4…12fd at0014 = ╱4b╱K╱ // 0x12f8 @0x14
0x12e4…12fd at0015 = ╱33╱3╱ // 0x12f9 @0x15
0x12e4…12fd at0016 = ╱ef╱$╱ // 0x12fa @0x16
0x12e4…12fd at0017 = ╱ee╱)╱ // 0x12fb @0x17
0x12e4…12fd at0018 = EOL // 0x12fc @0x18
0x12e4…12fd }
0x12fd…131b a072 2050 EXEC INDTAB(KTAB,MKANTAL,K2$)
0x12fd…131b LineComalBin {
0x12fd…131b ptr = 0xa072 // 0x12fd @0x0
0x12fd…131b lno = 0x0802 // 0x12ff @0x2
0x12fd…131b at0004 = ╱9d╱ EXEC ╱ // 0x1301 @0x4
0x12fd…131b at0005 = ╱49╱I╱ // 0x1302 @0x5
0x12fd…131b at0006 = ╱4e╱N╱ // 0x1303 @0x6
0x12fd…131b at0007 = ╱44╱D╱ // 0x1304 @0x7
0x12fd…131b at0008 = ╱54╱T╱ // 0x1305 @0x8
0x12fd…131b at0009 = ╱41╱A╱ // 0x1306 @0x9
0x12fd…131b at000a = ╱42╱B╱ // 0x1307 @0xa
0x12fd…131b at000b = ╱ed╱(╱ // 0x1308 @0xb
0x12fd…131b at000c = ╱4b╱K╱ // 0x1309 @0xc
0x12fd…131b at000d = ╱54╱T╱ // 0x130a @0xd
0x12fd…131b at000e = ╱41╱A╱ // 0x130b @0xe
0x12fd…131b at000f = ╱42╱B╱ // 0x130c @0xf
0x12fd…131b at0010 = ╱ec╱,╱ // 0x130d @0x10
0x12fd…131b at0011 = ╱4d╱M╱ // 0x130e @0x11
0x12fd…131b at0012 = ╱4b╱K╱ // 0x130f @0x12
0x12fd…131b at0013 = ╱41╱A╱ // 0x1310 @0x13
0x12fd…131b at0014 = ╱4e╱N╱ // 0x1311 @0x14
0x12fd…131b at0015 = ╱54╱T╱ // 0x1312 @0x15
0x12fd…131b at0016 = ╱41╱A╱ // 0x1313 @0x16
0x12fd…131b at0017 = ╱4c╱L╱ // 0x1314 @0x17
0x12fd…131b at0018 = ╱ec╱,╱ // 0x1315 @0x18
0x12fd…131b at0019 = ╱4b╱K╱ // 0x1316 @0x19
0x12fd…131b at001a = ╱32╱2╱ // 0x1317 @0x1a
0x12fd…131b at001b = ╱ef╱$╱ // 0x1318 @0x1b
0x12fd…131b at001c = ╱ee╱)╱ // 0x1319 @0x1c
0x12fd…131b at001d = EOL // 0x131a @0x1d
0x12fd…131b }
0x131b…132d a084 2060 DA=T1(7)
0x131b…132d LineComalBin {
0x131b…132d ptr = 0xa084 // 0x131b @0x0
0x131b…132d lno = 0x080c // 0x131d @0x2
0x131b…132d at0004 = ╱44╱D╱ // 0x131f @0x4
0x131b…132d at0005 = ╱41╱A╱ // 0x1320 @0x5
0x131b…132d at0006 = ╱dc╱=╱ // 0x1321 @0x6
0x131b…132d at0007 = ╱54╱T╱ // 0x1322 @0x7
0x131b…132d at0008 = ╱31╱1╱ // 0x1323 @0x8
0x131b…132d at0009 = ╱ed╱(╱ // 0x1324 @0x9
0x131b…132d at000a = ╱37╱7╱ // 0x1325 @0xa
0x131b…132d at000b = ╱fe0000e003╱ // 0x1326 @0xb
0x131b…132d at0010 = ╱ee╱)╱ // 0x132b @0x10
0x131b…132d at0011 = EOL // 0x132c @0x11
0x131b…132d }
0x132d…1341 a098 2070 DAT$=" "
0x132d…1341 LineComalBin {
0x132d…1341 ptr = 0xa098 // 0x132d @0x0
0x132d…1341 lno = 0x0816 // 0x132f @0x2
0x132d…1341 at0004 = ╱44╱D╱ // 0x1331 @0x4
0x132d…1341 at0005 = ╱41╱A╱ // 0x1332 @0x5
0x132d…1341 at0006 = ╱54╱T╱ // 0x1333 @0x6
0x132d…1341 at0007 = ╱ef╱$╱ // 0x1334 @0x7
0x132d…1341 at0008 = ╱dc╱=╱ // 0x1335 @0x8
0x132d…1341 at0009 = ╱22╱"╱ // 0x1336 @0x9
0x132d…1341 at000a = ╱20╱…╱ // 0x1337 @0xa
0x132d…1341 at000b = ╱20╱…╱ // 0x1338 @0xb
0x132d…1341 at000c = ╱20╱…╱ // 0x1339 @0xc
0x132d…1341 at000d = ╱20╱…╱ // 0x133a @0xd
0x132d…1341 at000e = ╱20╱…╱ // 0x133b @0xe
0x132d…1341 at000f = ╱20╱…╱ // 0x133c @0xf
0x132d…1341 at0010 = ╱20╱…╱ // 0x133d @0x10
0x132d…1341 at0011 = ╱20╱…╱ // 0x133e @0x11
0x132d…1341 at0012 = ╱22╱"╱ // 0x133f @0x12
0x132d…1341 at0013 = EOL // 0x1340 @0x13
0x132d…1341 }
0x1341…1354 a0ab 2080 FOR J=8 TO E STEP -E
0x1341…1354 LineComalBin {
0x1341…1354 ptr = 0xa0ab // 0x1341 @0x0
0x1341…1354 lno = 0x0820 // 0x1343 @0x2
0x1341…1354 at0004 = ╱83╱ FOR ╱ // 0x1345 @0x4
0x1341…1354 at0005 = ╱4a╱J╱ // 0x1346 @0x5
0x1341…1354 at0006 = ╱dc╱=╱ // 0x1347 @0x6
0x1341…1354 at0007 = ╱38╱8╱ // 0x1348 @0x7
0x1341…1354 at0008 = ╱fe00008004╱ // 0x1349 @0x8
0x1341…1354 at000d = ╱b7╱ TO ╱ // 0x134e @0xd
0x1341…1354 at000e = ╱45╱E╱ // 0x134f @0xe
0x1341…1354 at000f = ╱b8╱ STEP ╱ // 0x1350 @0xf
0x1341…1354 at0010 = ╱e9╱-╱ // 0x1351 @0x10
0x1341…1354 at0011 = ╱45╱E╱ // 0x1352 @0x11
0x1341…1354 at0012 = EOL // 0x1353 @0x12
0x1341…1354 }
0x1354…1360 a0b7 2090 IF J MOD V=B THEN
0x1354…1360 LineComalBin {
0x1354…1360 ptr = 0xa0b7 // 0x1354 @0x0
0x1354…1360 lno = 0x082a // 0x1356 @0x2
0x1354…1360 at0004 = ╱9c╱ IF ╱ // 0x1358 @0x4
0x1354…1360 at0005 = ╱4a╱J╱ // 0x1359 @0x5
0x1354…1360 at0006 = ╱e8╱ MOD ╱ // 0x135a @0x6
0x1354…1360 at0007 = ╱56╱V╱ // 0x135b @0x7
0x1354…1360 at0008 = ╱dc╱=╱ // 0x135c @0x8
0x1354…1360 at0009 = ╱42╱B╱ // 0x135d @0x9
0x1354…1360 at000a = ╱b6╱ THEN ╱ // 0x135e @0xa
0x1354…1360 at000b = EOL // 0x135f @0xb
0x1354…1360 }
0x1360…1370 a0c7 2100 DAT$(J)="."
0x1360…1370 LineComalBin {
0x1360…1370 ptr = 0xa0c7 // 0x1360 @0x0
0x1360…1370 lno = 0x0834 // 0x1362 @0x2
0x1360…1370 at0004 = ╱44╱D╱ // 0x1364 @0x4
0x1360…1370 at0005 = ╱41╱A╱ // 0x1365 @0x5
0x1360…1370 at0006 = ╱54╱T╱ // 0x1366 @0x6
0x1360…1370 at0007 = ╱ef╱$╱ // 0x1367 @0x7
0x1360…1370 at0008 = ╱ed╱(╱ // 0x1368 @0x8
0x1360…1370 at0009 = ╱4a╱J╱ // 0x1369 @0x9
0x1360…1370 at000a = ╱ee╱)╱ // 0x136a @0xa
0x1360…1370 at000b = ╱dc╱=╱ // 0x136b @0xb
0x1360…1370 at000c = ╱22╱"╱ // 0x136c @0xc
0x1360…1370 at000d = ╱2e╱.╱ // 0x136d @0xd
0x1360…1370 at000e = ╱22╱"╱ // 0x136e @0xe
0x1360…1370 at000f = EOL // 0x136f @0xf
0x1360…1370 }
0x1370…1376 a0cd 2110 ELSE
0x1370…1376 LineComalBin {
0x1370…1376 ptr = 0xa0cd // 0x1370 @0x0
0x1370…1376 lno = 0x083e // 0x1372 @0x2
0x1370…1376 at0004 = ╱9a╱ ELSE ╱ // 0x1374 @0x4
0x1370…1376 at0005 = EOL // 0x1375 @0x5
0x1370…1376 }
0x1376…1398 a0ef 2120 DAT$(J)=CHR(DA MOD 10+48)
0x1376…1398 LineComalBin {
0x1376…1398 ptr = 0xa0ef // 0x1376 @0x0
0x1376…1398 lno = 0x0848 // 0x1378 @0x2
0x1376…1398 at0004 = ╱44╱D╱ // 0x137a @0x4
0x1376…1398 at0005 = ╱41╱A╱ // 0x137b @0x5
0x1376…1398 at0006 = ╱54╱T╱ // 0x137c @0x6
0x1376…1398 at0007 = ╱ef╱$╱ // 0x137d @0x7
0x1376…1398 at0008 = ╱ed╱(╱ // 0x137e @0x8
0x1376…1398 at0009 = ╱4a╱J╱ // 0x137f @0x9
0x1376…1398 at000a = ╱ee╱)╱ // 0x1380 @0xa
0x1376…1398 at000b = ╱dc╱=╱ // 0x1381 @0xb
0x1376…1398 at000c = ╱cf╱CHR╱ // 0x1382 @0xc
0x1376…1398 at000d = ╱ed╱(╱ // 0x1383 @0xd
0x1376…1398 at000e = ╱44╱D╱ // 0x1384 @0xe
0x1376…1398 at000f = ╱41╱A╱ // 0x1385 @0xf
0x1376…1398 at0010 = ╱e8╱ MOD ╱ // 0x1386 @0x10
0x1376…1398 at0011 = ╱31╱1╱ // 0x1387 @0x11
0x1376…1398 at0012 = ╱30╱0╱ // 0x1388 @0x12
0x1376…1398 at0013 = ╱fe0000a004╱ // 0x1389 @0x13
0x1376…1398 at0018 = ╱e2╱+╱ // 0x138e @0x18
0x1376…1398 at0019 = ╱34╱4╱ // 0x138f @0x19
0x1376…1398 at001a = ╱38╱8╱ // 0x1390 @0x1a
0x1376…1398 at001b = ╱fe0000c006╱ // 0x1391 @0x1b
0x1376…1398 at0020 = ╱ee╱)╱ // 0x1396 @0x20
0x1376…1398 at0021 = EOL // 0x1397 @0x21
0x1376…1398 }
0x1398…13aa a101 2130 DA=DA DIV 10
0x1398…13aa LineComalBin {
0x1398…13aa ptr = 0xa101 // 0x1398 @0x0
0x1398…13aa lno = 0x0852 // 0x139a @0x2
0x1398…13aa at0004 = ╱44╱D╱ // 0x139c @0x4
0x1398…13aa at0005 = ╱41╱A╱ // 0x139d @0x5
0x1398…13aa at0006 = ╱dc╱=╱ // 0x139e @0x6
0x1398…13aa at0007 = ╱44╱D╱ // 0x139f @0x7
0x1398…13aa at0008 = ╱41╱A╱ // 0x13a0 @0x8
0x1398…13aa at0009 = ╱e7╱ DIV ╱ // 0x13a1 @0x9
0x1398…13aa at000a = ╱31╱1╱ // 0x13a2 @0xa
0x1398…13aa at000b = ╱30╱0╱ // 0x13a3 @0xb
0x1398…13aa at000c = ╱fe0000a004╱ // 0x13a4 @0xc
0x1398…13aa at0011 = EOL // 0x13a9 @0x11
0x1398…13aa }
0x13aa…13b0 a107 2140 ENDIF
0x13aa…13b0 LineComalBin {
0x13aa…13b0 ptr = 0xa107 // 0x13aa @0x0
0x13aa…13b0 lno = 0x085c // 0x13ac @0x2
0x13aa…13b0 at0004 = ╱9b╱ ENDIF ╱ // 0x13ae @0x4
0x13aa…13b0 at0005 = EOL // 0x13af @0x5
0x13aa…13b0 }
0x13b0…13b7 a10e 2150 NEXT J
0x13b0…13b7 LineComalBin {
0x13b0…13b7 ptr = 0xa10e // 0x13b0 @0x0
0x13b0…13b7 lno = 0x0866 // 0x13b2 @0x2
0x13b0…13b7 at0004 = ╱84╱ NEXT ╱ // 0x13b4 @0x4
0x13b0…13b7 at0005 = ╱4a╱J╱ // 0x13b5 @0x5
0x13b0…13b7 at0006 = EOL // 0x13b6 @0x6
0x13b0…13b7 }
0x13b7…1401 a158 2160 STREG$="---------------------------------------";STREG$=STREG$+STREG$
0x13b7…1401 LineComalBin {
0x13b7…1401 ptr = 0xa158 // 0x13b7 @0x0
0x13b7…1401 lno = 0x0870 // 0x13b9 @0x2
0x13b7…1401 at0004 = ╱53╱S╱ // 0x13bb @0x4
0x13b7…1401 at0005 = ╱54╱T╱ // 0x13bc @0x5
0x13b7…1401 at0006 = ╱52╱R╱ // 0x13bd @0x6
0x13b7…1401 at0007 = ╱45╱E╱ // 0x13be @0x7
0x13b7…1401 at0008 = ╱47╱G╱ // 0x13bf @0x8
0x13b7…1401 at0009 = ╱ef╱$╱ // 0x13c0 @0x9
0x13b7…1401 at000a = ╱dc╱=╱ // 0x13c1 @0xa
0x13b7…1401 at000b = ╱22╱"╱ // 0x13c2 @0xb
0x13b7…1401 at000c = ╱2d╱-╱ // 0x13c3 @0xc
0x13b7…1401 at000d = ╱2d╱-╱ // 0x13c4 @0xd
0x13b7…1401 at000e = ╱2d╱-╱ // 0x13c5 @0xe
0x13b7…1401 at000f = ╱2d╱-╱ // 0x13c6 @0xf
0x13b7…1401 at0010 = ╱2d╱-╱ // 0x13c7 @0x10
0x13b7…1401 at0011 = ╱2d╱-╱ // 0x13c8 @0x11
0x13b7…1401 at0012 = ╱2d╱-╱ // 0x13c9 @0x12
0x13b7…1401 at0013 = ╱2d╱-╱ // 0x13ca @0x13
0x13b7…1401 at0014 = ╱2d╱-╱ // 0x13cb @0x14
0x13b7…1401 at0015 = ╱2d╱-╱ // 0x13cc @0x15
0x13b7…1401 at0016 = ╱2d╱-╱ // 0x13cd @0x16
0x13b7…1401 at0017 = ╱2d╱-╱ // 0x13ce @0x17
0x13b7…1401 at0018 = ╱2d╱-╱ // 0x13cf @0x18
0x13b7…1401 at0019 = ╱2d╱-╱ // 0x13d0 @0x19
0x13b7…1401 at001a = ╱2d╱-╱ // 0x13d1 @0x1a
0x13b7…1401 at001b = ╱2d╱-╱ // 0x13d2 @0x1b
0x13b7…1401 at001c = ╱2d╱-╱ // 0x13d3 @0x1c
0x13b7…1401 at001d = ╱2d╱-╱ // 0x13d4 @0x1d
0x13b7…1401 at001e = ╱2d╱-╱ // 0x13d5 @0x1e
0x13b7…1401 at001f = ╱2d╱-╱ // 0x13d6 @0x1f
0x13b7…1401 at0020 = ╱2d╱-╱ // 0x13d7 @0x20
0x13b7…1401 at0021 = ╱2d╱-╱ // 0x13d8 @0x21
0x13b7…1401 at0022 = ╱2d╱-╱ // 0x13d9 @0x22
0x13b7…1401 at0023 = ╱2d╱-╱ // 0x13da @0x23
0x13b7…1401 at0024 = ╱2d╱-╱ // 0x13db @0x24
0x13b7…1401 at0025 = ╱2d╱-╱ // 0x13dc @0x25
0x13b7…1401 at0026 = ╱2d╱-╱ // 0x13dd @0x26
0x13b7…1401 at0027 = ╱2d╱-╱ // 0x13de @0x27
0x13b7…1401 at0028 = ╱2d╱-╱ // 0x13df @0x28
0x13b7…1401 at0029 = ╱2d╱-╱ // 0x13e0 @0x29
0x13b7…1401 at002a = ╱2d╱-╱ // 0x13e1 @0x2a
0x13b7…1401 at002b = ╱2d╱-╱ // 0x13e2 @0x2b
0x13b7…1401 at002c = ╱2d╱-╱ // 0x13e3 @0x2c
0x13b7…1401 at002d = ╱2d╱-╱ // 0x13e4 @0x2d
0x13b7…1401 at002e = ╱2d╱-╱ // 0x13e5 @0x2e
0x13b7…1401 at002f = ╱2d╱-╱ // 0x13e6 @0x2f
0x13b7…1401 at0030 = ╱2d╱-╱ // 0x13e7 @0x30
0x13b7…1401 at0031 = ╱2d╱-╱ // 0x13e8 @0x31
0x13b7…1401 at0032 = ╱2d╱-╱ // 0x13e9 @0x32
0x13b7…1401 at0033 = ╱22╱"╱ // 0x13ea @0x33
0x13b7…1401 at0034 = ╱eb╱;╱ // 0x13eb @0x34
0x13b7…1401 at0035 = ╱53╱S╱ // 0x13ec @0x35
0x13b7…1401 at0036 = ╱54╱T╱ // 0x13ed @0x36
0x13b7…1401 at0037 = ╱52╱R╱ // 0x13ee @0x37
0x13b7…1401 at0038 = ╱45╱E╱ // 0x13ef @0x38
0x13b7…1401 at0039 = ╱47╱G╱ // 0x13f0 @0x39
0x13b7…1401 at003a = ╱ef╱$╱ // 0x13f1 @0x3a
0x13b7…1401 at003b = ╱dc╱=╱ // 0x13f2 @0x3b
0x13b7…1401 at003c = ╱53╱S╱ // 0x13f3 @0x3c
0x13b7…1401 at003d = ╱54╱T╱ // 0x13f4 @0x3d
0x13b7…1401 at003e = ╱52╱R╱ // 0x13f5 @0x3e
0x13b7…1401 at003f = ╱45╱E╱ // 0x13f6 @0x3f
0x13b7…1401 at0040 = ╱47╱G╱ // 0x13f7 @0x40
0x13b7…1401 at0041 = ╱ef╱$╱ // 0x13f8 @0x41
0x13b7…1401 at0042 = ╱f1╱+╱ // 0x13f9 @0x42
0x13b7…1401 at0043 = ╱53╱S╱ // 0x13fa @0x43
0x13b7…1401 at0044 = ╱54╱T╱ // 0x13fb @0x44
0x13b7…1401 at0045 = ╱52╱R╱ // 0x13fc @0x45
0x13b7…1401 at0046 = ╱45╱E╱ // 0x13fd @0x46
0x13b7…1401 at0047 = ╱47╱G╱ // 0x13fe @0x47
0x13b7…1401 at0048 = ╱ef╱$╱ // 0x13ff @0x48
0x13b7…1401 at0049 = EOL // 0x1400 @0x49
0x13b7…1401 }
0x1401…1407 a15e 2170 REPEAT
0x1401…1407 LineComalBin {
0x1401…1407 ptr = 0xa15e // 0x1401 @0x0
0x1401…1407 lno = 0x087a // 0x1403 @0x2
0x1401…1407 at0004 = ╱97╱ REPEAT ╱ // 0x1405 @0x4
0x1401…1407 at0005 = EOL // 0x1406 @0x5
0x1401…1407 }
0x1407…144c a1a3 2180 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+"
0x1407…144c LineComalBin {
0x1407…144c ptr = 0xa1a3 // 0x1407 @0x0
0x1407…144c lno = 0x0884 // 0x1409 @0x2
0x1407…144c at0004 = ╱53╱S╱ // 0x140b @0x4
0x1407…144c at0005 = ╱55╱U╱ // 0x140c @0x5
0x1407…144c at0006 = ╱4d╱M╱ // 0x140d @0x6
0x1407…144c at0007 = ╱ef╱$╱ // 0x140e @0x7
0x1407…144c at0008 = ╱dc╱=╱ // 0x140f @0x8
0x1407…144c at0009 = ╱22╱"╱ // 0x1410 @0x9
0x1407…144c at000a = ╱30╱0╱ // 0x1411 @0xa
0x1407…144c at000b = ╱2b╱+╱ // 0x1412 @0xb
0x1407…144c at000c = ╱22╱"╱ // 0x1413 @0xc
0x1407…144c at000d = ╱eb╱;╱ // 0x1414 @0xd
0x1407…144c at000e = ╱53╱S╱ // 0x1415 @0xe
0x1407…144c at000f = ╱55╱U╱ // 0x1416 @0xf
0x1407…144c at0010 = ╱4d╱M╱ // 0x1417 @0x10
0x1407…144c at0011 = ╱31╱1╱ // 0x1418 @0x11
0x1407…144c at0012 = ╱ef╱$╱ // 0x1419 @0x12
0x1407…144c at0013 = ╱dc╱=╱ // 0x141a @0x13
0x1407…144c at0014 = ╱22╱"╱ // 0x141b @0x14
0x1407…144c at0015 = ╱30╱0╱ // 0x141c @0x15
0x1407…144c at0016 = ╱2b╱+╱ // 0x141d @0x16
0x1407…144c at0017 = ╱22╱"╱ // 0x141e @0x17
0x1407…144c at0018 = ╱eb╱;╱ // 0x141f @0x18
0x1407…144c at0019 = ╱53╱S╱ // 0x1420 @0x19
0x1407…144c at001a = ╱55╱U╱ // 0x1421 @0x1a
0x1407…144c at001b = ╱4d╱M╱ // 0x1422 @0x1b
0x1407…144c at001c = ╱32╱2╱ // 0x1423 @0x1c
0x1407…144c at001d = ╱ef╱$╱ // 0x1424 @0x1d
0x1407…144c at001e = ╱dc╱=╱ // 0x1425 @0x1e
0x1407…144c at001f = ╱22╱"╱ // 0x1426 @0x1f
0x1407…144c at0020 = ╱30╱0╱ // 0x1427 @0x20
0x1407…144c at0021 = ╱2b╱+╱ // 0x1428 @0x21
0x1407…144c at0022 = ╱22╱"╱ // 0x1429 @0x22
0x1407…144c at0023 = ╱eb╱;╱ // 0x142a @0x23
0x1407…144c at0024 = ╱53╱S╱ // 0x142b @0x24
0x1407…144c at0025 = ╱55╱U╱ // 0x142c @0x25
0x1407…144c at0026 = ╱4d╱M╱ // 0x142d @0x26
0x1407…144c at0027 = ╱33╱3╱ // 0x142e @0x27
0x1407…144c at0028 = ╱ef╱$╱ // 0x142f @0x28
0x1407…144c at0029 = ╱dc╱=╱ // 0x1430 @0x29
0x1407…144c at002a = ╱22╱"╱ // 0x1431 @0x2a
0x1407…144c at002b = ╱30╱0╱ // 0x1432 @0x2b
0x1407…144c at002c = ╱2b╱+╱ // 0x1433 @0x2c
0x1407…144c at002d = ╱22╱"╱ // 0x1434 @0x2d
0x1407…144c at002e = ╱eb╱;╱ // 0x1435 @0x2e
0x1407…144c at002f = ╱53╱S╱ // 0x1436 @0x2f
0x1407…144c at0030 = ╱55╱U╱ // 0x1437 @0x30
0x1407…144c at0031 = ╱4d╱M╱ // 0x1438 @0x31
0x1407…144c at0032 = ╱34╱4╱ // 0x1439 @0x32
0x1407…144c at0033 = ╱ef╱$╱ // 0x143a @0x33
0x1407…144c at0034 = ╱dc╱=╱ // 0x143b @0x34
0x1407…144c at0035 = ╱22╱"╱ // 0x143c @0x35
0x1407…144c at0036 = ╱30╱0╱ // 0x143d @0x36
0x1407…144c at0037 = ╱2b╱+╱ // 0x143e @0x37
0x1407…144c at0038 = ╱22╱"╱ // 0x143f @0x38
0x1407…144c at0039 = ╱eb╱;╱ // 0x1440 @0x39
0x1407…144c at003a = ╱53╱S╱ // 0x1441 @0x3a
0x1407…144c at003b = ╱55╱U╱ // 0x1442 @0x3b
0x1407…144c at003c = ╱4d╱M╱ // 0x1443 @0x3c
0x1407…144c at003d = ╱35╱5╱ // 0x1444 @0x3d
0x1407…144c at003e = ╱ef╱$╱ // 0x1445 @0x3e
0x1407…144c at003f = ╱dc╱=╱ // 0x1446 @0x3f
0x1407…144c at0040 = ╱22╱"╱ // 0x1447 @0x40
0x1407…144c at0041 = ╱30╱0╱ // 0x1448 @0x41
0x1407…144c at0042 = ╱2b╱+╱ // 0x1449 @0x42
0x1407…144c at0043 = ╱22╱"╱ // 0x144a @0x43
0x1407…144c at0044 = EOL // 0x144b @0x44
0x1407…144c }
0x144c…1473 a1ca 2190 SUM6$="0+";SIDENR=B;TAH$="0+";SI=E
0x144c…1473 LineComalBin {
0x144c…1473 ptr = 0xa1ca // 0x144c @0x0
0x144c…1473 lno = 0x088e // 0x144e @0x2
0x144c…1473 at0004 = ╱53╱S╱ // 0x1450 @0x4
0x144c…1473 at0005 = ╱55╱U╱ // 0x1451 @0x5
0x144c…1473 at0006 = ╱4d╱M╱ // 0x1452 @0x6
0x144c…1473 at0007 = ╱36╱6╱ // 0x1453 @0x7
0x144c…1473 at0008 = ╱ef╱$╱ // 0x1454 @0x8
0x144c…1473 at0009 = ╱dc╱=╱ // 0x1455 @0x9
0x144c…1473 at000a = ╱22╱"╱ // 0x1456 @0xa
0x144c…1473 at000b = ╱30╱0╱ // 0x1457 @0xb
0x144c…1473 at000c = ╱2b╱+╱ // 0x1458 @0xc
0x144c…1473 at000d = ╱22╱"╱ // 0x1459 @0xd
0x144c…1473 at000e = ╱eb╱;╱ // 0x145a @0xe
0x144c…1473 at000f = ╱53╱S╱ // 0x145b @0xf
0x144c…1473 at0010 = ╱49╱I╱ // 0x145c @0x10
0x144c…1473 at0011 = ╱44╱D╱ // 0x145d @0x11
0x144c…1473 at0012 = ╱45╱E╱ // 0x145e @0x12
0x144c…1473 at0013 = ╱4e╱N╱ // 0x145f @0x13
0x144c…1473 at0014 = ╱52╱R╱ // 0x1460 @0x14
0x144c…1473 at0015 = ╱dc╱=╱ // 0x1461 @0x15
0x144c…1473 at0016 = ╱42╱B╱ // 0x1462 @0x16
0x144c…1473 at0017 = ╱eb╱;╱ // 0x1463 @0x17
0x144c…1473 at0018 = ╱54╱T╱ // 0x1464 @0x18
0x144c…1473 at0019 = ╱41╱A╱ // 0x1465 @0x19
0x144c…1473 at001a = ╱48╱H╱ // 0x1466 @0x1a
0x144c…1473 at001b = ╱ef╱$╱ // 0x1467 @0x1b
0x144c…1473 at001c = ╱dc╱=╱ // 0x1468 @0x1c
0x144c…1473 at001d = ╱22╱"╱ // 0x1469 @0x1d
0x144c…1473 at001e = ╱30╱0╱ // 0x146a @0x1e
0x144c…1473 at001f = ╱2b╱+╱ // 0x146b @0x1f
0x144c…1473 at0020 = ╱22╱"╱ // 0x146c @0x20
0x144c…1473 at0021 = ╱eb╱;╱ // 0x146d @0x21
0x144c…1473 at0022 = ╱53╱S╱ // 0x146e @0x22
0x144c…1473 at0023 = ╱49╱I╱ // 0x146f @0x23
0x144c…1473 at0024 = ╱dc╱=╱ // 0x1470 @0x24
0x144c…1473 at0025 = ╱45╱E╱ // 0x1471 @0x25
0x144c…1473 at0026 = EOL // 0x1472 @0x26
0x144c…1473 }
0x1473…147a a1d1 2200 OUTPUT T
0x1473…147a LineComalBin {
0x1473…147a ptr = 0xa1d1 // 0x1473 @0x0
0x1473…147a lno = 0x0898 // 0x1475 @0x2
0x1473…147a at0004 = ╱a5╱ OUTPUT ╱ // 0x1477 @0x4
0x1473…147a at0005 = ╱54╱T╱ // 0x1478 @0x5
0x1473…147a at0006 = EOL // 0x1479 @0x6
0x1473…147a }
0x147a…1480 a1d7 2210 CLEAR
0x147a…1480 LineComalBin {
0x147a…1480 ptr = 0xa1d7 // 0x147a @0x0
0x147a…1480 lno = 0x08a2 // 0x147c @0x2
0x147a…1480 at0004 = ╱a0╱ CLEAR ╱ // 0x147e @0x4
0x147a…1480 at0005 = EOL // 0x147f @0x5
0x147a…1480 }
0x1480…148f a1e6 2220 CURSOR 20,E
0x1480…148f LineComalBin {
0x1480…148f ptr = 0xa1e6 // 0x1480 @0x0
0x1480…148f lno = 0x08ac // 0x1482 @0x2
0x1480…148f at0004 = ╱a1╱ CURSOR ╱ // 0x1484 @0x4
0x1480…148f at0005 = ╱32╱2╱ // 0x1485 @0x5
0x1480…148f at0006 = ╱30╱0╱ // 0x1486 @0x6
0x1480…148f at0007 = ╱fe0000a005╱ // 0x1487 @0x7
0x1480…148f at000c = ╱ec╱,╱ // 0x148c @0xc
0x1480…148f at000d = ╱45╱E╱ // 0x148d @0xd
0x1480…148f at000e = EOL // 0x148e @0xe
0x1480…148f }
0x148f…14a9 a200 2230 PRINT "Kreditorudskrifter"
0x148f…14a9 LineComalBin {
0x148f…14a9 ptr = 0xa200 // 0x148f @0x0
0x148f…14a9 lno = 0x08b6 // 0x1491 @0x2
0x148f…14a9 at0004 = ╱92╱ PRINT ╱ // 0x1493 @0x4
0x148f…14a9 at0005 = ╱22╱"╱ // 0x1494 @0x5
0x148f…14a9 at0006 = ╱4b╱K╱ // 0x1495 @0x6
0x148f…14a9 at0007 = ╱72╱r╱ // 0x1496 @0x7
0x148f…14a9 at0008 = ╱65╱e╱ // 0x1497 @0x8
0x148f…14a9 at0009 = ╱64╱d╱ // 0x1498 @0x9
0x148f…14a9 at000a = ╱69╱i╱ // 0x1499 @0xa
0x148f…14a9 at000b = ╱74╱t╱ // 0x149a @0xb
0x148f…14a9 at000c = ╱6f╱o╱ // 0x149b @0xc
0x148f…14a9 at000d = ╱72╱r╱ // 0x149c @0xd
0x148f…14a9 at000e = ╱75╱u╱ // 0x149d @0xe
0x148f…14a9 at000f = ╱64╱d╱ // 0x149e @0xf
0x148f…14a9 at0010 = ╱73╱s╱ // 0x149f @0x10
0x148f…14a9 at0011 = ╱6b╱k╱ // 0x14a0 @0x11
0x148f…14a9 at0012 = ╱72╱r╱ // 0x14a1 @0x12
0x148f…14a9 at0013 = ╱69╱i╱ // 0x14a2 @0x13
0x148f…14a9 at0014 = ╱66╱f╱ // 0x14a3 @0x14
0x148f…14a9 at0015 = ╱74╱t╱ // 0x14a4 @0x15
0x148f…14a9 at0016 = ╱65╱e╱ // 0x14a5 @0x16
0x148f…14a9 at0017 = ╱72╱r╱ // 0x14a6 @0x17
0x148f…14a9 at0018 = ╱22╱"╱ // 0x14a7 @0x18
0x148f…14a9 at0019 = EOL // 0x14a8 @0x19
0x148f…14a9 }
0x14a9…14bd a214 2240 CURSOR 11,6
0x14a9…14bd LineComalBin {
0x14a9…14bd ptr = 0xa214 // 0x14a9 @0x0
0x14a9…14bd lno = 0x08c0 // 0x14ab @0x2
0x14a9…14bd at0004 = ╱a1╱ CURSOR ╱ // 0x14ad @0x4
0x14a9…14bd at0005 = ╱31╱1╱ // 0x14ae @0x5
0x14a9…14bd at0006 = ╱31╱1╱ // 0x14af @0x6
0x14a9…14bd at0007 = ╱fe0000b004╱ // 0x14b0 @0x7
0x14a9…14bd at000c = ╱ec╱,╱ // 0x14b5 @0xc
0x14a9…14bd at000d = ╱36╱6╱ // 0x14b6 @0xd
0x14a9…14bd at000e = ╱fe0000c003╱ // 0x14b7 @0xe
0x14a9…14bd at0013 = EOL // 0x14bc @0x13
0x14a9…14bd }
0x14bd…14ce a225 2250 PRINT "0: Færdig"
0x14bd…14ce LineComalBin {
0x14bd…14ce ptr = 0xa225 // 0x14bd @0x0
0x14bd…14ce lno = 0x08ca // 0x14bf @0x2
0x14bd…14ce at0004 = ╱92╱ PRINT ╱ // 0x14c1 @0x4
0x14bd…14ce at0005 = ╱22╱"╱ // 0x14c2 @0x5
0x14bd…14ce at0006 = ╱30╱0╱ // 0x14c3 @0x6
0x14bd…14ce at0007 = ╱3a╱:╱ // 0x14c4 @0x7
0x14bd…14ce at0008 = ╱20╱…╱ // 0x14c5 @0x8
0x14bd…14ce at0009 = ╱46╱F╱ // 0x14c6 @0x9
0x14bd…14ce at000a = ╱7b╱æ╱ // 0x14c7 @0xa
0x14bd…14ce at000b = ╱72╱r╱ // 0x14c8 @0xb
0x14bd…14ce at000c = ╱64╱d╱ // 0x14c9 @0xc
0x14bd…14ce at000d = ╱69╱i╱ // 0x14ca @0xd
0x14bd…14ce at000e = ╱67╱g╱ // 0x14cb @0xe
0x14bd…14ce at000f = ╱22╱"╱ // 0x14cc @0xf
0x14bd…14ce at0010 = EOL // 0x14cd @0x10
0x14bd…14ce }
0x14ce…14e2 a239 2260 CURSOR 11,8
0x14ce…14e2 LineComalBin {
0x14ce…14e2 ptr = 0xa239 // 0x14ce @0x0
0x14ce…14e2 lno = 0x08d4 // 0x14d0 @0x2
0x14ce…14e2 at0004 = ╱a1╱ CURSOR ╱ // 0x14d2 @0x4
0x14ce…14e2 at0005 = ╱31╱1╱ // 0x14d3 @0x5
0x14ce…14e2 at0006 = ╱31╱1╱ // 0x14d4 @0x6
0x14ce…14e2 at0007 = ╱fe0000b004╱ // 0x14d5 @0x7
0x14ce…14e2 at000c = ╱ec╱,╱ // 0x14da @0xc
0x14ce…14e2 at000d = ╱38╱8╱ // 0x14db @0xd
0x14ce…14e2 at000e = ╱fe00008004╱ // 0x14dc @0xe
0x14ce…14e2 at0013 = EOL // 0x14e1 @0x13
0x14ce…14e2 }
0x14e2…14f7 a24e 2270 PRINT "1: Saldoliste"
0x14e2…14f7 LineComalBin {
0x14e2…14f7 ptr = 0xa24e // 0x14e2 @0x0
0x14e2…14f7 lno = 0x08de // 0x14e4 @0x2
0x14e2…14f7 at0004 = ╱92╱ PRINT ╱ // 0x14e6 @0x4
0x14e2…14f7 at0005 = ╱22╱"╱ // 0x14e7 @0x5
0x14e2…14f7 at0006 = ╱31╱1╱ // 0x14e8 @0x6
0x14e2…14f7 at0007 = ╱3a╱:╱ // 0x14e9 @0x7
0x14e2…14f7 at0008 = ╱20╱…╱ // 0x14ea @0x8
0x14e2…14f7 at0009 = ╱53╱S╱ // 0x14eb @0x9
0x14e2…14f7 at000a = ╱61╱a╱ // 0x14ec @0xa
0x14e2…14f7 at000b = ╱6c╱l╱ // 0x14ed @0xb
0x14e2…14f7 at000c = ╱64╱d╱ // 0x14ee @0xc
0x14e2…14f7 at000d = ╱6f╱o╱ // 0x14ef @0xd
0x14e2…14f7 at000e = ╱6c╱l╱ // 0x14f0 @0xe
0x14e2…14f7 at000f = ╱69╱i╱ // 0x14f1 @0xf
0x14e2…14f7 at0010 = ╱73╱s╱ // 0x14f2 @0x10
0x14e2…14f7 at0011 = ╱74╱t╱ // 0x14f3 @0x11
0x14e2…14f7 at0012 = ╱65╱e╱ // 0x14f4 @0x12
0x14e2…14f7 at0013 = ╱22╱"╱ // 0x14f5 @0x13
0x14e2…14f7 at0014 = EOL // 0x14f6 @0x14
0x14e2…14f7 }
0x14f7…150c a263 2280 CURSOR 11,10
0x14f7…150c LineComalBin {
0x14f7…150c ptr = 0xa263 // 0x14f7 @0x0
0x14f7…150c lno = 0x08e8 // 0x14f9 @0x2
0x14f7…150c at0004 = ╱a1╱ CURSOR ╱ // 0x14fb @0x4
0x14f7…150c at0005 = ╱31╱1╱ // 0x14fc @0x5
0x14f7…150c at0006 = ╱31╱1╱ // 0x14fd @0x6
0x14f7…150c at0007 = ╱fe0000b004╱ // 0x14fe @0x7
0x14f7…150c at000c = ╱ec╱,╱ // 0x1503 @0xc
0x14f7…150c at000d = ╱31╱1╱ // 0x1504 @0xd
0x14f7…150c at000e = ╱30╱0╱ // 0x1505 @0xe
0x14f7…150c at000f = ╱fe0000a004╱ // 0x1506 @0xf
0x14f7…150c at0014 = EOL // 0x150b @0x14
0x14f7…150c }
0x150c…1521 a278 2290 PRINT "2: Kontoliste"
0x150c…1521 LineComalBin {
0x150c…1521 ptr = 0xa278 // 0x150c @0x0
0x150c…1521 lno = 0x08f2 // 0x150e @0x2
0x150c…1521 at0004 = ╱92╱ PRINT ╱ // 0x1510 @0x4
0x150c…1521 at0005 = ╱22╱"╱ // 0x1511 @0x5
0x150c…1521 at0006 = ╱32╱2╱ // 0x1512 @0x6
0x150c…1521 at0007 = ╱3a╱:╱ // 0x1513 @0x7
0x150c…1521 at0008 = ╱20╱…╱ // 0x1514 @0x8
0x150c…1521 at0009 = ╱4b╱K╱ // 0x1515 @0x9
0x150c…1521 at000a = ╱6f╱o╱ // 0x1516 @0xa
0x150c…1521 at000b = ╱6e╱n╱ // 0x1517 @0xb
0x150c…1521 at000c = ╱74╱t╱ // 0x1518 @0xc
0x150c…1521 at000d = ╱6f╱o╱ // 0x1519 @0xd
0x150c…1521 at000e = ╱6c╱l╱ // 0x151a @0xe
0x150c…1521 at000f = ╱69╱i╱ // 0x151b @0xf
0x150c…1521 at0010 = ╱73╱s╱ // 0x151c @0x10
0x150c…1521 at0011 = ╱74╱t╱ // 0x151d @0x11
0x150c…1521 at0012 = ╱65╱e╱ // 0x151e @0x12
0x150c…1521 at0013 = ╱22╱"╱ // 0x151f @0x13
0x150c…1521 at0014 = EOL // 0x1520 @0x14
0x150c…1521 }
0x1521…1536 a28d 2300 CURSOR 11,12
0x1521…1536 LineComalBin {
0x1521…1536 ptr = 0xa28d // 0x1521 @0x0
0x1521…1536 lno = 0x08fc // 0x1523 @0x2
0x1521…1536 at0004 = ╱a1╱ CURSOR ╱ // 0x1525 @0x4
0x1521…1536 at0005 = ╱31╱1╱ // 0x1526 @0x5
0x1521…1536 at0006 = ╱31╱1╱ // 0x1527 @0x6
0x1521…1536 at0007 = ╱fe0000b004╱ // 0x1528 @0x7
0x1521…1536 at000c = ╱ec╱,╱ // 0x152d @0xc
0x1521…1536 at000d = ╱31╱1╱ // 0x152e @0xd
0x1521…1536 at000e = ╱32╱2╱ // 0x152f @0xe
0x1521…1536 at000f = ╱fe0000c004╱ // 0x1530 @0xf
0x1521…1536 at0014 = EOL // 0x1535 @0x14
0x1521…1536 }
0x1536…154e a2a5 2310 PRINT "3: Forfaldsliste"
0x1536…154e LineComalBin {
0x1536…154e ptr = 0xa2a5 // 0x1536 @0x0
0x1536…154e lno = 0x0906 // 0x1538 @0x2
0x1536…154e at0004 = ╱92╱ PRINT ╱ // 0x153a @0x4
0x1536…154e at0005 = ╱22╱"╱ // 0x153b @0x5
0x1536…154e at0006 = ╱33╱3╱ // 0x153c @0x6
0x1536…154e at0007 = ╱3a╱:╱ // 0x153d @0x7
0x1536…154e at0008 = ╱20╱…╱ // 0x153e @0x8
0x1536…154e at0009 = ╱46╱F╱ // 0x153f @0x9
0x1536…154e at000a = ╱6f╱o╱ // 0x1540 @0xa
0x1536…154e at000b = ╱72╱r╱ // 0x1541 @0xb
0x1536…154e at000c = ╱66╱f╱ // 0x1542 @0xc
0x1536…154e at000d = ╱61╱a╱ // 0x1543 @0xd
0x1536…154e at000e = ╱6c╱l╱ // 0x1544 @0xe
0x1536…154e at000f = ╱64╱d╱ // 0x1545 @0xf
0x1536…154e at0010 = ╱73╱s╱ // 0x1546 @0x10
0x1536…154e at0011 = ╱6c╱l╱ // 0x1547 @0x11
0x1536…154e at0012 = ╱69╱i╱ // 0x1548 @0x12
0x1536…154e at0013 = ╱73╱s╱ // 0x1549 @0x13
0x1536…154e at0014 = ╱74╱t╱ // 0x154a @0x14
0x1536…154e at0015 = ╱65╱e╱ // 0x154b @0x15
0x1536…154e at0016 = ╱22╱"╱ // 0x154c @0x16
0x1536…154e at0017 = EOL // 0x154d @0x17
0x1536…154e }
0x154e…1554 a2ab 2320 REPEAT
0x154e…1554 LineComalBin {
0x154e…1554 ptr = 0xa2ab // 0x154e @0x0
0x154e…1554 lno = 0x0910 // 0x1550 @0x2
0x154e…1554 at0004 = ╱97╱ REPEAT ╱ // 0x1552 @0x4
0x154e…1554 at0005 = EOL // 0x1553 @0x5
0x154e…1554 }
0x1554…1569 a2c0 2330 CURSOR 13,14
0x1554…1569 LineComalBin {
0x1554…1569 ptr = 0xa2c0 // 0x1554 @0x0
0x1554…1569 lno = 0x091a // 0x1556 @0x2
0x1554…1569 at0004 = ╱a1╱ CURSOR ╱ // 0x1558 @0x4
0x1554…1569 at0005 = ╱31╱1╱ // 0x1559 @0x5
0x1554…1569 at0006 = ╱33╱3╱ // 0x155a @0x6
0x1554…1569 at0007 = ╱fe0000d004╱ // 0x155b @0x7
0x1554…1569 at000c = ╱ec╱,╱ // 0x1560 @0xc
0x1554…1569 at000d = ╱31╱1╱ // 0x1561 @0xd
0x1554…1569 at000e = ╱34╱4╱ // 0x1562 @0xe
0x1554…1569 at000f = ╱fe0000e004╱ // 0x1563 @0xf
0x1554…1569 at0014 = EOL // 0x1568 @0x14
0x1554…1569 }
0x1569…157f a2d6 2340 INPUT "Vælg type :",A$
0x1569…157f LineComalBin {
0x1569…157f ptr = 0xa2d6 // 0x1569 @0x0
0x1569…157f lno = 0x0924 // 0x156b @0x2
0x1569…157f at0004 = ╱91╱ INPUT ╱ // 0x156d @0x4
0x1569…157f at0005 = ╱22╱"╱ // 0x156e @0x5
0x1569…157f at0006 = ╱56╱V╱ // 0x156f @0x6
0x1569…157f at0007 = ╱7b╱æ╱ // 0x1570 @0x7
0x1569…157f at0008 = ╱6c╱l╱ // 0x1571 @0x8
0x1569…157f at0009 = ╱67╱g╱ // 0x1572 @0x9
0x1569…157f at000a = ╱20╱…╱ // 0x1573 @0xa
0x1569…157f at000b = ╱74╱t╱ // 0x1574 @0xb
0x1569…157f at000c = ╱79╱y╱ // 0x1575 @0xc
0x1569…157f at000d = ╱70╱p╱ // 0x1576 @0xd
0x1569…157f at000e = ╱65╱e╱ // 0x1577 @0xe
0x1569…157f at000f = ╱20╱…╱ // 0x1578 @0xf
0x1569…157f at0010 = ╱3a╱:╱ // 0x1579 @0x10
0x1569…157f at0011 = ╱22╱"╱ // 0x157a @0x11
0x1569…157f at0012 = ╱ec╱,╱ // 0x157b @0x12
0x1569…157f at0013 = ╱41╱A╱ // 0x157c @0x13
0x1569…157f at0014 = ╱ef╱$╱ // 0x157d @0x14
0x1569…157f at0015 = EOL // 0x157e @0x15
0x1569…157f }
0x157f…158f a2e6 2350 EXEC NRTEST(A$)
0x157f…158f LineComalBin {
0x157f…158f ptr = 0xa2e6 // 0x157f @0x0
0x157f…158f lno = 0x092e // 0x1581 @0x2
0x157f…158f at0004 = ╱9d╱ EXEC ╱ // 0x1583 @0x4
0x157f…158f at0005 = ╱4e╱N╱ // 0x1584 @0x5
0x157f…158f at0006 = ╱52╱R╱ // 0x1585 @0x6
0x157f…158f at0007 = ╱54╱T╱ // 0x1586 @0x7
0x157f…158f at0008 = ╱45╱E╱ // 0x1587 @0x8
0x157f…158f at0009 = ╱53╱S╱ // 0x1588 @0x9
0x157f…158f at000a = ╱54╱T╱ // 0x1589 @0xa
0x157f…158f at000b = ╱ed╱(╱ // 0x158a @0xb
0x157f…158f at000c = ╱41╱A╱ // 0x158b @0xc
0x157f…158f at000d = ╱ef╱$╱ // 0x158c @0xd
0x157f…158f at000e = ╱ee╱)╱ // 0x158d @0xe
0x157f…158f at000f = EOL // 0x158e @0xf
0x157f…158f }
0x158f…15a2 a2f9 2360 UNTIL P>-E AND P<4
0x158f…15a2 LineComalBin {
0x158f…15a2 ptr = 0xa2f9 // 0x158f @0x0
0x158f…15a2 lno = 0x0938 // 0x1591 @0x2
0x158f…15a2 at0004 = ╱98╱ UNTIL ╱ // 0x1593 @0x4
0x158f…15a2 at0005 = ╱50╱P╱ // 0x1594 @0x5
0x158f…15a2 at0006 = ╱de╱>╱ // 0x1595 @0x6
0x158f…15a2 at0007 = ╱e9╱-╱ // 0x1596 @0x7
0x158f…15a2 at0008 = ╱45╱E╱ // 0x1597 @0x8
0x158f…15a2 at0009 = ╱da╱ AND ╱ // 0x1598 @0x9
0x158f…15a2 at000a = ╱50╱P╱ // 0x1599 @0xa
0x158f…15a2 at000b = ╱dd╱<╱ // 0x159a @0xb
0x158f…15a2 at000c = ╱34╱4╱ // 0x159b @0xc
0x158f…15a2 at000d = ╱fe00008003╱ // 0x159c @0xd
0x158f…15a2 at0012 = EOL // 0x15a1 @0x12
0x158f…15a2 }
0x15a2…15ad a304 2370 TYPE=P
0x15a2…15ad LineComalBin {
0x15a2…15ad ptr = 0xa304 // 0x15a2 @0x0
0x15a2…15ad lno = 0x0942 // 0x15a4 @0x2
0x15a2…15ad at0004 = ╱54╱T╱ // 0x15a6 @0x4
0x15a2…15ad at0005 = ╱59╱Y╱ // 0x15a7 @0x5
0x15a2…15ad at0006 = ╱50╱P╱ // 0x15a8 @0x6
0x15a2…15ad at0007 = ╱45╱E╱ // 0x15a9 @0x7
0x15a2…15ad at0008 = ╱dc╱=╱ // 0x15aa @0x8
0x15a2…15ad at0009 = ╱50╱P╱ // 0x15ab @0x9
0x15a2…15ad at000a = EOL // 0x15ac @0xa
0x15a2…15ad }
0x15ad…15bb a312 2380 IF TYPE=B THEN EXIT
0x15ad…15bb LineComalBin {
0x15ad…15bb ptr = 0xa312 // 0x15ad @0x0
0x15ad…15bb lno = 0x094c // 0x15af @0x2
0x15ad…15bb at0004 = ╱82╱ IF ╱ // 0x15b1 @0x4
0x15ad…15bb at0005 = ╱54╱T╱ // 0x15b2 @0x5
0x15ad…15bb at0006 = ╱59╱Y╱ // 0x15b3 @0x6
0x15ad…15bb at0007 = ╱50╱P╱ // 0x15b4 @0x7
0x15ad…15bb at0008 = ╱45╱E╱ // 0x15b5 @0x8
0x15ad…15bb at0009 = ╱dc╱=╱ // 0x15b6 @0x9
0x15ad…15bb at000a = ╱42╱B╱ // 0x15b7 @0xa
0x15ad…15bb at000b = ╱b6╱ THEN ╱ // 0x15b8 @0xb
0x15ad…15bb at000c = ╱99╱ EXIT ╱ // 0x15b9 @0xc
0x15ad…15bb at000d = EOL // 0x15ba @0xd
0x15ad…15bb }
0x15bb…15c1 a318 2390 REPEAT
0x15bb…15c1 LineComalBin {
0x15bb…15c1 ptr = 0xa318 // 0x15bb @0x0
0x15bb…15c1 lno = 0x0956 // 0x15bd @0x2
0x15bb…15c1 at0004 = ╱97╱ REPEAT ╱ // 0x15bf @0x4
0x15bb…15c1 at0005 = EOL // 0x15c0 @0x5
0x15bb…15c1 }
0x15c1…15c7 a31e 2400 REPEAT
0x15c1…15c7 LineComalBin {
0x15c1…15c7 ptr = 0xa31e // 0x15c1 @0x0
0x15c1…15c7 lno = 0x0960 // 0x15c3 @0x2
0x15c1…15c7 at0004 = ╱97╱ REPEAT ╱ // 0x15c5 @0x4
0x15c1…15c7 at0005 = EOL // 0x15c6 @0x5
0x15c1…15c7 }
0x15c7…15dc a333 2410 CURSOR 13,19
0x15c7…15dc LineComalBin {
0x15c7…15dc ptr = 0xa333 // 0x15c7 @0x0
0x15c7…15dc lno = 0x096a // 0x15c9 @0x2
0x15c7…15dc at0004 = ╱a1╱ CURSOR ╱ // 0x15cb @0x4
0x15c7…15dc at0005 = ╱31╱1╱ // 0x15cc @0x5
0x15c7…15dc at0006 = ╱33╱3╱ // 0x15cd @0x6
0x15c7…15dc at0007 = ╱fe0000d004╱ // 0x15ce @0x7
0x15c7…15dc at000c = ╱ec╱,╱ // 0x15d3 @0xc
0x15c7…15dc at000d = ╱31╱1╱ // 0x15d4 @0xd
0x15c7…15dc at000e = ╱39╱9╱ // 0x15d5 @0xe
0x15c7…15dc at000f = ╱fe00009805╱ // 0x15d6 @0xf
0x15c7…15dc at0014 = EOL // 0x15db @0x14
0x15c7…15dc }
0x15dc…1601 a358 2420 PRINT "Fra kontonr : (0: Alle)"
0x15dc…1601 LineComalBin {
0x15dc…1601 ptr = 0xa358 // 0x15dc @0x0
0x15dc…1601 lno = 0x0974 // 0x15de @0x2
0x15dc…1601 at0004 = ╱92╱ PRINT ╱ // 0x15e0 @0x4
0x15dc…1601 at0005 = ╱22╱"╱ // 0x15e1 @0x5
0x15dc…1601 at0006 = ╱46╱F╱ // 0x15e2 @0x6
0x15dc…1601 at0007 = ╱72╱r╱ // 0x15e3 @0x7
0x15dc…1601 at0008 = ╱61╱a╱ // 0x15e4 @0x8
0x15dc…1601 at0009 = ╱20╱…╱ // 0x15e5 @0x9
0x15dc…1601 at000a = ╱6b╱k╱ // 0x15e6 @0xa
0x15dc…1601 at000b = ╱6f╱o╱ // 0x15e7 @0xb
0x15dc…1601 at000c = ╱6e╱n╱ // 0x15e8 @0xc
0x15dc…1601 at000d = ╱74╱t╱ // 0x15e9 @0xd
0x15dc…1601 at000e = ╱6f╱o╱ // 0x15ea @0xe
0x15dc…1601 at000f = ╱6e╱n╱ // 0x15eb @0xf
0x15dc…1601 at0010 = ╱72╱r╱ // 0x15ec @0x10
0x15dc…1601 at0011 = ╱20╱…╱ // 0x15ed @0x11
0x15dc…1601 at0012 = ╱20╱…╱ // 0x15ee @0x12
0x15dc…1601 at0013 = ╱3a╱:╱ // 0x15ef @0x13
0x15dc…1601 at0014 = ╱20╱…╱ // 0x15f0 @0x14
0x15dc…1601 at0015 = ╱20╱…╱ // 0x15f1 @0x15
0x15dc…1601 at0016 = ╱20╱…╱ // 0x15f2 @0x16
0x15dc…1601 at0017 = ╱20╱…╱ // 0x15f3 @0x17
0x15dc…1601 at0018 = ╱20╱…╱ // 0x15f4 @0x18
0x15dc…1601 at0019 = ╱20╱…╱ // 0x15f5 @0x19
0x15dc…1601 at001a = ╱28╱(╱ // 0x15f6 @0x1a
0x15dc…1601 at001b = ╱30╱0╱ // 0x15f7 @0x1b
0x15dc…1601 at001c = ╱3a╱:╱ // 0x15f8 @0x1c
0x15dc…1601 at001d = ╱20╱…╱ // 0x15f9 @0x1d
0x15dc…1601 at001e = ╱41╱A╱ // 0x15fa @0x1e
0x15dc…1601 at001f = ╱6c╱l╱ // 0x15fb @0x1f
0x15dc…1601 at0020 = ╱6c╱l╱ // 0x15fc @0x20
0x15dc…1601 at0021 = ╱65╱e╱ // 0x15fd @0x21
0x15dc…1601 at0022 = ╱29╱)╱ // 0x15fe @0x22
0x15dc…1601 at0023 = ╱22╱"╱ // 0x15ff @0x23
0x15dc…1601 at0024 = EOL // 0x1600 @0x24
0x15dc…1601 }
0x1601…1616 a36d 2430 CURSOR 26,19
0x1601…1616 LineComalBin {
0x1601…1616 ptr = 0xa36d // 0x1601 @0x0
0x1601…1616 lno = 0x097e // 0x1603 @0x2
0x1601…1616 at0004 = ╱a1╱ CURSOR ╱ // 0x1605 @0x4
0x1601…1616 at0005 = ╱32╱2╱ // 0x1606 @0x5
0x1601…1616 at0006 = ╱36╱6╱ // 0x1607 @0x6
0x1601…1616 at0007 = ╱fe0000d005╱ // 0x1608 @0x7
0x1601…1616 at000c = ╱ec╱,╱ // 0x160d @0xc
0x1601…1616 at000d = ╱31╱1╱ // 0x160e @0xd
0x1601…1616 at000e = ╱39╱9╱ // 0x160f @0xe
0x1601…1616 at000f = ╱fe00009805╱ // 0x1610 @0xf
0x1601…1616 at0014 = EOL // 0x1615 @0x14
0x1601…1616 }
0x1616…1620 a377 2440 INPUT KTN$
0x1616…1620 LineComalBin {
0x1616…1620 ptr = 0xa377 // 0x1616 @0x0
0x1616…1620 lno = 0x0988 // 0x1618 @0x2
0x1616…1620 at0004 = ╱91╱ INPUT ╱ // 0x161a @0x4
0x1616…1620 at0005 = ╱4b╱K╱ // 0x161b @0x5
0x1616…1620 at0006 = ╱54╱T╱ // 0x161c @0x6
0x1616…1620 at0007 = ╱4e╱N╱ // 0x161d @0x7
0x1616…1620 at0008 = ╱ef╱$╱ // 0x161e @0x8
0x1616…1620 at0009 = EOL // 0x161f @0x9
0x1616…1620 }
0x1620…1632 a389 2450 EXEC NRTEST(KTN$)
0x1620…1632 LineComalBin {
0x1620…1632 ptr = 0xa389 // 0x1620 @0x0
0x1620…1632 lno = 0x0992 // 0x1622 @0x2
0x1620…1632 at0004 = ╱9d╱ EXEC ╱ // 0x1624 @0x4
0x1620…1632 at0005 = ╱4e╱N╱ // 0x1625 @0x5
0x1620…1632 at0006 = ╱52╱R╱ // 0x1626 @0x6
0x1620…1632 at0007 = ╱54╱T╱ // 0x1627 @0x7
0x1620…1632 at0008 = ╱45╱E╱ // 0x1628 @0x8
0x1620…1632 at0009 = ╱53╱S╱ // 0x1629 @0x9
0x1620…1632 at000a = ╱54╱T╱ // 0x162a @0xa
0x1620…1632 at000b = ╱ed╱(╱ // 0x162b @0xb
0x1620…1632 at000c = ╱4b╱K╱ // 0x162c @0xc
0x1620…1632 at000d = ╱54╱T╱ // 0x162d @0xd
0x1620…1632 at000e = ╱4e╱N╱ // 0x162e @0xe
0x1620…1632 at000f = ╱ef╱$╱ // 0x162f @0xf
0x1620…1632 at0010 = ╱ee╱)╱ // 0x1630 @0x10
0x1620…1632 at0011 = EOL // 0x1631 @0x11
0x1620…1632 }
0x1632…1654 a3ab 2460 UNTIL P=B OR (P>B AND P<=MKRGR) OR KTAL=KRTAL
0x1632…1654 LineComalBin {
0x1632…1654 ptr = 0xa3ab // 0x1632 @0x0
0x1632…1654 lno = 0x099c // 0x1634 @0x2
0x1632…1654 at0004 = ╱98╱ UNTIL ╱ // 0x1636 @0x4
0x1632…1654 at0005 = ╱50╱P╱ // 0x1637 @0x5
0x1632…1654 at0006 = ╱dc╱=╱ // 0x1638 @0x6
0x1632…1654 at0007 = ╱42╱B╱ // 0x1639 @0x7
0x1632…1654 at0008 = ╱db╱ OR ╱ // 0x163a @0x8
0x1632…1654 at0009 = ╱ed╱(╱ // 0x163b @0x9
0x1632…1654 at000a = ╱50╱P╱ // 0x163c @0xa
0x1632…1654 at000b = ╱de╱>╱ // 0x163d @0xb
0x1632…1654 at000c = ╱42╱B╱ // 0x163e @0xc
0x1632…1654 at000d = ╱da╱ AND ╱ // 0x163f @0xd
0x1632…1654 at000e = ╱50╱P╱ // 0x1640 @0xe
0x1632…1654 at000f = ╱df╱<=╱ // 0x1641 @0xf
0x1632…1654 at0010 = ╱4d╱M╱ // 0x1642 @0x10
0x1632…1654 at0011 = ╱4b╱K╱ // 0x1643 @0x11
0x1632…1654 at0012 = ╱52╱R╱ // 0x1644 @0x12
0x1632…1654 at0013 = ╱47╱G╱ // 0x1645 @0x13
0x1632…1654 at0014 = ╱52╱R╱ // 0x1646 @0x14
0x1632…1654 at0015 = ╱ee╱)╱ // 0x1647 @0x15
0x1632…1654 at0016 = ╱db╱ OR ╱ // 0x1648 @0x16
0x1632…1654 at0017 = ╱4b╱K╱ // 0x1649 @0x17
0x1632…1654 at0018 = ╱54╱T╱ // 0x164a @0x18
0x1632…1654 at0019 = ╱41╱A╱ // 0x164b @0x19
0x1632…1654 at001a = ╱4c╱L╱ // 0x164c @0x1a
0x1632…1654 at001b = ╱dc╱=╱ // 0x164d @0x1b
0x1632…1654 at001c = ╱4b╱K╱ // 0x164e @0x1c
0x1632…1654 at001d = ╱52╱R╱ // 0x164f @0x1d
0x1632…1654 at001e = ╱54╱T╱ // 0x1650 @0x1e
0x1632…1654 at001f = ╱41╱A╱ // 0x1651 @0x1f
0x1632…1654 at0020 = ╱4c╱L╱ // 0x1652 @0x20
0x1632…1654 at0021 = EOL // 0x1653 @0x21
0x1632…1654 }
0x1654…165e a3b5 2470 IF P=B THEN
0x1654…165e LineComalBin {
0x1654…165e ptr = 0xa3b5 // 0x1654 @0x0
0x1654…165e lno = 0x09a6 // 0x1656 @0x2
0x1654…165e at0004 = ╱9c╱ IF ╱ // 0x1658 @0x4
0x1654…165e at0005 = ╱50╱P╱ // 0x1659 @0x5
0x1654…165e at0006 = ╱dc╱=╱ // 0x165a @0x6
0x1654…165e at0007 = ╱42╱B╱ // 0x165b @0x7
0x1654…165e at0008 = ╱b6╱ THEN ╱ // 0x165c @0x8
0x1654…165e at0009 = EOL // 0x165d @0x9
0x1654…165e }
0x165e…1671 a3c8 2480 FRA=E;TIL=AKRE
0x165e…1671 LineComalBin {
0x165e…1671 ptr = 0xa3c8 // 0x165e @0x0
0x165e…1671 lno = 0x09b0 // 0x1660 @0x2
0x165e…1671 at0004 = ╱46╱F╱ // 0x1662 @0x4
0x165e…1671 at0005 = ╱52╱R╱ // 0x1663 @0x5
0x165e…1671 at0006 = ╱41╱A╱ // 0x1664 @0x6
0x165e…1671 at0007 = ╱dc╱=╱ // 0x1665 @0x7
0x165e…1671 at0008 = ╱45╱E╱ // 0x1666 @0x8
0x165e…1671 at0009 = ╱eb╱;╱ // 0x1667 @0x9
0x165e…1671 at000a = ╱54╱T╱ // 0x1668 @0xa
0x165e…1671 at000b = ╱49╱I╱ // 0x1669 @0xb
0x165e…1671 at000c = ╱4c╱L╱ // 0x166a @0xc
0x165e…1671 at000d = ╱dc╱=╱ // 0x166b @0xd
0x165e…1671 at000e = ╱41╱A╱ // 0x166c @0xe
0x165e…1671 at000f = ╱4b╱K╱ // 0x166d @0xf
0x165e…1671 at0010 = ╱52╱R╱ // 0x166e @0x10
0x165e…1671 at0011 = ╱45╱E╱ // 0x166f @0x11
0x165e…1671 at0012 = EOL // 0x1670 @0x12
0x165e…1671 }
0x1671…1677 a3ce 2490 ELSE
0x1671…1677 LineComalBin {
0x1671…1677 ptr = 0xa3ce // 0x1671 @0x0
0x1671…1677 lno = 0x09ba // 0x1673 @0x2
0x1671…1677 at0004 = ╱9a╱ ELSE ╱ // 0x1675 @0x4
0x1671…1677 at0005 = EOL // 0x1676 @0x5
0x1671…1677 }
0x1677…168c a3e3 2500 IF KTAB(AKRE,E)<P THEN
0x1677…168c LineComalBin {
0x1677…168c ptr = 0xa3e3 // 0x1677 @0x0
0x1677…168c lno = 0x09c4 // 0x1679 @0x2
0x1677…168c at0004 = ╱9c╱ IF ╱ // 0x167b @0x4
0x1677…168c at0005 = ╱4b╱K╱ // 0x167c @0x5
0x1677…168c at0006 = ╱54╱T╱ // 0x167d @0x6
0x1677…168c at0007 = ╱41╱A╱ // 0x167e @0x7
0x1677…168c at0008 = ╱42╱B╱ // 0x167f @0x8
0x1677…168c at0009 = ╱ed╱(╱ // 0x1680 @0x9
0x1677…168c at000a = ╱41╱A╱ // 0x1681 @0xa
0x1677…168c at000b = ╱4b╱K╱ // 0x1682 @0xb
0x1677…168c at000c = ╱52╱R╱ // 0x1683 @0xc
0x1677…168c at000d = ╱45╱E╱ // 0x1684 @0xd
0x1677…168c at000e = ╱ec╱,╱ // 0x1685 @0xe
0x1677…168c at000f = ╱45╱E╱ // 0x1686 @0xf
0x1677…168c at0010 = ╱ee╱)╱ // 0x1687 @0x10
0x1677…168c at0011 = ╱dd╱<╱ // 0x1688 @0x11
0x1677…168c at0012 = ╱50╱P╱ // 0x1689 @0x12
0x1677…168c at0013 = ╱b6╱ THEN ╱ // 0x168a @0x13
0x1677…168c at0014 = EOL // 0x168b @0x14
0x1677…168c }
0x168c…1696 a3ed 2510 FRA=B
0x168c…1696 LineComalBin {
0x168c…1696 ptr = 0xa3ed // 0x168c @0x0
0x168c…1696 lno = 0x09ce // 0x168e @0x2
0x168c…1696 at0004 = ╱46╱F╱ // 0x1690 @0x4
0x168c…1696 at0005 = ╱52╱R╱ // 0x1691 @0x5
0x168c…1696 at0006 = ╱41╱A╱ // 0x1692 @0x6
0x168c…1696 at0007 = ╱dc╱=╱ // 0x1693 @0x7
0x168c…1696 at0008 = ╱42╱B╱ // 0x1694 @0x8
0x168c…1696 at0009 = EOL // 0x1695 @0x9
0x168c…1696 }
0x1696…169c a3f3 2520 ELSE
0x1696…169c LineComalBin {
0x1696…169c ptr = 0xa3f3 // 0x1696 @0x0
0x1696…169c lno = 0x09d8 // 0x1698 @0x2
0x1696…169c at0004 = ╱9a╱ ELSE ╱ // 0x169a @0x4
0x1696…169c at0005 = EOL // 0x169b @0x5
0x1696…169c }
0x169c…16c0 a417 2530 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)
0x169c…16c0 LineComalBin {
0x169c…16c0 ptr = 0xa417 // 0x169c @0x0
0x169c…16c0 lno = 0x09e2 // 0x169e @0x2
0x169c…16c0 at0004 = ╱9d╱ EXEC ╱ // 0x16a0 @0x4
0x169c…16c0 at0005 = ╱46╱F╱ // 0x16a1 @0x5
0x169c…16c0 at0006 = ╱49╱I╱ // 0x16a2 @0x6
0x169c…16c0 at0007 = ╱4e╱N╱ // 0x16a3 @0x7
0x169c…16c0 at0008 = ╱44╱D╱ // 0x16a4 @0x8
0x169c…16c0 at0009 = ╱50╱P╱ // 0x16a5 @0x9
0x169c…16c0 at000a = ╱4f╱O╱ // 0x16a6 @0xa
0x169c…16c0 at000b = ╱53╱S╱ // 0x16a7 @0xb
0x169c…16c0 at000c = ╱54╱T╱ // 0x16a8 @0xc
0x169c…16c0 at000d = ╱ed╱(╱ // 0x16a9 @0xd
0x169c…16c0 at000e = ╱4b╱K╱ // 0x16aa @0xe
0x169c…16c0 at000f = ╱54╱T╱ // 0x16ab @0xf
0x169c…16c0 at0010 = ╱41╱A╱ // 0x16ac @0x10
0x169c…16c0 at0011 = ╱42╱B╱ // 0x16ad @0x11
0x169c…16c0 at0012 = ╱ec╱,╱ // 0x16ae @0x12
0x169c…16c0 at0013 = ╱4d╱M╱ // 0x16af @0x13
0x169c…16c0 at0014 = ╱4b╱K╱ // 0x16b0 @0x14
0x169c…16c0 at0015 = ╱41╱A╱ // 0x16b1 @0x15
0x169c…16c0 at0016 = ╱4e╱N╱ // 0x16b2 @0x16
0x169c…16c0 at0017 = ╱54╱T╱ // 0x16b3 @0x17
0x169c…16c0 at0018 = ╱41╱A╱ // 0x16b4 @0x18
0x169c…16c0 at0019 = ╱4c╱L╱ // 0x16b5 @0x19
0x169c…16c0 at001a = ╱ec╱,╱ // 0x16b6 @0x1a
0x169c…16c0 at001b = ╱50╱P╱ // 0x16b7 @0x1b
0x169c…16c0 at001c = ╱ec╱,╱ // 0x16b8 @0x1c
0x169c…16c0 at001d = ╱4b╱K╱ // 0x16b9 @0x1d
0x169c…16c0 at001e = ╱50╱P╱ // 0x16ba @0x1e
0x169c…16c0 at001f = ╱49╱I╱ // 0x16bb @0x1f
0x169c…16c0 at0020 = ╱4c╱L╱ // 0x16bc @0x20
0x169c…16c0 at0021 = ╱33╱3╱ // 0x16bd @0x21
0x169c…16c0 at0022 = ╱ee╱)╱ // 0x16be @0x22
0x169c…16c0 at0023 = EOL // 0x16bf @0x23
0x169c…16c0 }
0x16c0…16dd a434 2540 IF CEKS=B OR KTAB(KPIL3,E)>P THEN
0x16c0…16dd LineComalBin {
0x16c0…16dd ptr = 0xa434 // 0x16c0 @0x0
0x16c0…16dd lno = 0x09ec // 0x16c2 @0x2
0x16c0…16dd at0004 = ╱9c╱ IF ╱ // 0x16c4 @0x4
0x16c0…16dd at0005 = ╱43╱C╱ // 0x16c5 @0x5
0x16c0…16dd at0006 = ╱45╱E╱ // 0x16c6 @0x6
0x16c0…16dd at0007 = ╱4b╱K╱ // 0x16c7 @0x7
0x16c0…16dd at0008 = ╱53╱S╱ // 0x16c8 @0x8
0x16c0…16dd at0009 = ╱dc╱=╱ // 0x16c9 @0x9
0x16c0…16dd at000a = ╱42╱B╱ // 0x16ca @0xa
0x16c0…16dd at000b = ╱db╱ OR ╱ // 0x16cb @0xb
0x16c0…16dd at000c = ╱4b╱K╱ // 0x16cc @0xc
0x16c0…16dd at000d = ╱54╱T╱ // 0x16cd @0xd
0x16c0…16dd at000e = ╱41╱A╱ // 0x16ce @0xe
0x16c0…16dd at000f = ╱42╱B╱ // 0x16cf @0xf
0x16c0…16dd at0010 = ╱ed╱(╱ // 0x16d0 @0x10
0x16c0…16dd at0011 = ╱4b╱K╱ // 0x16d1 @0x11
0x16c0…16dd at0012 = ╱50╱P╱ // 0x16d2 @0x12
0x16c0…16dd at0013 = ╱49╱I╱ // 0x16d3 @0x13
0x16c0…16dd at0014 = ╱4c╱L╱ // 0x16d4 @0x14
0x16c0…16dd at0015 = ╱33╱3╱ // 0x16d5 @0x15
0x16c0…16dd at0016 = ╱ec╱,╱ // 0x16d6 @0x16
0x16c0…16dd at0017 = ╱45╱E╱ // 0x16d7 @0x17
0x16c0…16dd at0018 = ╱ee╱)╱ // 0x16d8 @0x18
0x16c0…16dd at0019 = ╱de╱>╱ // 0x16d9 @0x19
0x16c0…16dd at001a = ╱50╱P╱ // 0x16da @0x1a
0x16c0…16dd at001b = ╱b6╱ THEN ╱ // 0x16db @0x1b
0x16c0…16dd at001c = EOL // 0x16dc @0x1c
0x16c0…16dd }
0x16dd…16eb a442 2550 FRA=KPIL3
0x16dd…16eb LineComalBin {
0x16dd…16eb ptr = 0xa442 // 0x16dd @0x0
0x16dd…16eb lno = 0x09f6 // 0x16df @0x2
0x16dd…16eb at0004 = ╱46╱F╱ // 0x16e1 @0x4
0x16dd…16eb at0005 = ╱52╱R╱ // 0x16e2 @0x5
0x16dd…16eb at0006 = ╱41╱A╱ // 0x16e3 @0x6
0x16dd…16eb at0007 = ╱dc╱=╱ // 0x16e4 @0x7
0x16dd…16eb at0008 = ╱4b╱K╱ // 0x16e5 @0x8
0x16dd…16eb at0009 = ╱50╱P╱ // 0x16e6 @0x9
0x16dd…16eb at000a = ╱49╱I╱ // 0x16e7 @0xa
0x16dd…16eb at000b = ╱4c╱L╱ // 0x16e8 @0xb
0x16dd…16eb at000c = ╱33╱3╱ // 0x16e9 @0xc
0x16dd…16eb at000d = EOL // 0x16ea @0xd
0x16dd…16eb }
0x16eb…16f1 a448 2560 ELSE
0x16eb…16f1 LineComalBin {
0x16eb…16f1 ptr = 0xa448 // 0x16eb @0x0
0x16eb…16f1 lno = 0x0a00 // 0x16ed @0x2
0x16eb…16f1 at0004 = ╱9a╱ ELSE ╱ // 0x16ef @0x4
0x16eb…16f1 at0005 = EOL // 0x16f0 @0x5
0x16eb…16f1 }
0x16f1…1701 a458 2570 FRA=KPIL3+E
0x16f1…1701 LineComalBin {
0x16f1…1701 ptr = 0xa458 // 0x16f1 @0x0
0x16f1…1701 lno = 0x0a0a // 0x16f3 @0x2
0x16f1…1701 at0004 = ╱46╱F╱ // 0x16f5 @0x4
0x16f1…1701 at0005 = ╱52╱R╱ // 0x16f6 @0x5
0x16f1…1701 at0006 = ╱41╱A╱ // 0x16f7 @0x6
0x16f1…1701 at0007 = ╱dc╱=╱ // 0x16f8 @0x7
0x16f1…1701 at0008 = ╱4b╱K╱ // 0x16f9 @0x8
0x16f1…1701 at0009 = ╱50╱P╱ // 0x16fa @0x9
0x16f1…1701 at000a = ╱49╱I╱ // 0x16fb @0xa
0x16f1…1701 at000b = ╱4c╱L╱ // 0x16fc @0xb
0x16f1…1701 at000c = ╱33╱3╱ // 0x16fd @0xc
0x16f1…1701 at000d = ╱e2╱+╱ // 0x16fe @0xd
0x16f1…1701 at000e = ╱45╱E╱ // 0x16ff @0xe
0x16f1…1701 at000f = EOL // 0x1700 @0xf
0x16f1…1701 }
0x1701…1707 a45e 2580 ENDIF
0x1701…1707 LineComalBin {
0x1701…1707 ptr = 0xa45e // 0x1701 @0x0
0x1701…1707 lno = 0x0a14 // 0x1703 @0x2
0x1701…1707 at0004 = ╱9b╱ ENDIF ╱ // 0x1705 @0x4
0x1701…1707 at0005 = EOL // 0x1706 @0x5
0x1701…1707 }
0x1707…170d a464 2590 ENDIF
0x1707…170d LineComalBin {
0x1707…170d ptr = 0xa464 // 0x1707 @0x0
0x1707…170d lno = 0x0a1e // 0x1709 @0x2
0x1707…170d at0004 = ╱9b╱ ENDIF ╱ // 0x170b @0x4
0x1707…170d at0005 = EOL // 0x170c @0x5
0x1707…170d }
0x170d…1713 a46a 2600 ENDIF
0x170d…1713 LineComalBin {
0x170d…1713 ptr = 0xa46a // 0x170d @0x0
0x170d…1713 lno = 0x0a28 // 0x170f @0x2
0x170d…1713 at0004 = ╱9b╱ ENDIF ╱ // 0x1711 @0x4
0x170d…1713 at0005 = EOL // 0x1712 @0x5
0x170d…1713 }
0x1713…171e a475 2610 UNTIL FRA<>B
0x1713…171e LineComalBin {
0x1713…171e ptr = 0xa475 // 0x1713 @0x0
0x1713…171e lno = 0x0a32 // 0x1715 @0x2
0x1713…171e at0004 = ╱98╱ UNTIL ╱ // 0x1717 @0x4
0x1713…171e at0005 = ╱46╱F╱ // 0x1718 @0x5
0x1713…171e at0006 = ╱52╱R╱ // 0x1719 @0x6
0x1713…171e at0007 = ╱41╱A╱ // 0x171a @0x7
0x1713…171e at0008 = ╱e1╱<>╱ // 0x171b @0x8
0x1713…171e at0009 = ╱42╱B╱ // 0x171c @0x9
0x1713…171e at000a = EOL // 0x171d @0xa
0x1713…171e }
0x171e…1728 a47f 2620 IF P>B THEN
0x171e…1728 LineComalBin {
0x171e…1728 ptr = 0xa47f // 0x171e @0x0
0x171e…1728 lno = 0x0a3c // 0x1720 @0x2
0x171e…1728 at0004 = ╱9c╱ IF ╱ // 0x1722 @0x4
0x171e…1728 at0005 = ╱50╱P╱ // 0x1723 @0x5
0x171e…1728 at0006 = ╱de╱>╱ // 0x1724 @0x6
0x171e…1728 at0007 = ╱42╱B╱ // 0x1725 @0x7
0x171e…1728 at0008 = ╱b6╱ THEN ╱ // 0x1726 @0x8
0x171e…1728 at0009 = EOL // 0x1727 @0x9
0x171e…1728 }
0x1728…172e a485 2630 REPEAT
0x1728…172e LineComalBin {
0x1728…172e ptr = 0xa485 // 0x1728 @0x0
0x1728…172e lno = 0x0a46 // 0x172a @0x2
0x1728…172e at0004 = ╱97╱ REPEAT ╱ // 0x172c @0x4
0x1728…172e at0005 = EOL // 0x172d @0x5
0x1728…172e }
0x172e…1734 a48b 2640 REPEAT
0x172e…1734 LineComalBin {
0x172e…1734 ptr = 0xa48b // 0x172e @0x0
0x172e…1734 lno = 0x0a50 // 0x1730 @0x2
0x172e…1734 at0004 = ╱97╱ REPEAT ╱ // 0x1732 @0x4
0x172e…1734 at0005 = EOL // 0x1733 @0x5
0x172e…1734 }
0x1734…1749 a4a0 2650 CURSOR 13,21
0x1734…1749 LineComalBin {
0x1734…1749 ptr = 0xa4a0 // 0x1734 @0x0
0x1734…1749 lno = 0x0a5a // 0x1736 @0x2
0x1734…1749 at0004 = ╱a1╱ CURSOR ╱ // 0x1738 @0x4
0x1734…1749 at0005 = ╱31╱1╱ // 0x1739 @0x5
0x1734…1749 at0006 = ╱33╱3╱ // 0x173a @0x6
0x1734…1749 at0007 = ╱fe0000d004╱ // 0x173b @0x7
0x1734…1749 at000c = ╱ec╱,╱ // 0x1740 @0xc
0x1734…1749 at000d = ╱32╱2╱ // 0x1741 @0xd
0x1734…1749 at000e = ╱31╱1╱ // 0x1742 @0xe
0x1734…1749 at000f = ╱fe0000a805╱ // 0x1743 @0xf
0x1734…1749 at0014 = EOL // 0x1748 @0x14
0x1734…1749 }
0x1749…1764 a4bb 2660 INPUT "Til kontonr :",KTN$
0x1749…1764 LineComalBin {
0x1749…1764 ptr = 0xa4bb // 0x1749 @0x0
0x1749…1764 lno = 0x0a64 // 0x174b @0x2
0x1749…1764 at0004 = ╱91╱ INPUT ╱ // 0x174d @0x4
0x1749…1764 at0005 = ╱22╱"╱ // 0x174e @0x5
0x1749…1764 at0006 = ╱54╱T╱ // 0x174f @0x6
0x1749…1764 at0007 = ╱69╱i╱ // 0x1750 @0x7
0x1749…1764 at0008 = ╱6c╱l╱ // 0x1751 @0x8
0x1749…1764 at0009 = ╱20╱…╱ // 0x1752 @0x9
0x1749…1764 at000a = ╱6b╱k╱ // 0x1753 @0xa
0x1749…1764 at000b = ╱6f╱o╱ // 0x1754 @0xb
0x1749…1764 at000c = ╱6e╱n╱ // 0x1755 @0xc
0x1749…1764 at000d = ╱74╱t╱ // 0x1756 @0xd
0x1749…1764 at000e = ╱6f╱o╱ // 0x1757 @0xe
0x1749…1764 at000f = ╱6e╱n╱ // 0x1758 @0xf
0x1749…1764 at0010 = ╱72╱r╱ // 0x1759 @0x10
0x1749…1764 at0011 = ╱20╱…╱ // 0x175a @0x11
0x1749…1764 at0012 = ╱20╱…╱ // 0x175b @0x12
0x1749…1764 at0013 = ╱3a╱:╱ // 0x175c @0x13
0x1749…1764 at0014 = ╱22╱"╱ // 0x175d @0x14
0x1749…1764 at0015 = ╱ec╱,╱ // 0x175e @0x15
0x1749…1764 at0016 = ╱4b╱K╱ // 0x175f @0x16
0x1749…1764 at0017 = ╱54╱T╱ // 0x1760 @0x17
0x1749…1764 at0018 = ╱4e╱N╱ // 0x1761 @0x18
0x1749…1764 at0019 = ╱ef╱$╱ // 0x1762 @0x19
0x1749…1764 at001a = EOL // 0x1763 @0x1a
0x1749…1764 }
0x1764…1776 a4cd 2670 EXEC NRTEST(KTN$)
0x1764…1776 LineComalBin {
0x1764…1776 ptr = 0xa4cd // 0x1764 @0x0
0x1764…1776 lno = 0x0a6e // 0x1766 @0x2
0x1764…1776 at0004 = ╱9d╱ EXEC ╱ // 0x1768 @0x4
0x1764…1776 at0005 = ╱4e╱N╱ // 0x1769 @0x5
0x1764…1776 at0006 = ╱52╱R╱ // 0x176a @0x6
0x1764…1776 at0007 = ╱54╱T╱ // 0x176b @0x7
0x1764…1776 at0008 = ╱45╱E╱ // 0x176c @0x8
0x1764…1776 at0009 = ╱53╱S╱ // 0x176d @0x9
0x1764…1776 at000a = ╱54╱T╱ // 0x176e @0xa
0x1764…1776 at000b = ╱ed╱(╱ // 0x176f @0xb
0x1764…1776 at000c = ╱4b╱K╱ // 0x1770 @0xc
0x1764…1776 at000d = ╱54╱T╱ // 0x1771 @0xd
0x1764…1776 at000e = ╱4e╱N╱ // 0x1772 @0xe
0x1764…1776 at000f = ╱ef╱$╱ // 0x1773 @0xf
0x1764…1776 at0010 = ╱ee╱)╱ // 0x1774 @0x10
0x1764…1776 at0011 = EOL // 0x1775 @0x11
0x1764…1776 }
0x1776…1794 (78,) a4eb 2680 UNTIL (P>B AND P<=MKRGR) OR KTAL=KRTAL
0x1776…1794 LineComalBin {
0x1776…1794 ptr = 0xa4eb // 0x1776 @0x0
0x1776…1794 lno = 0x0a78 // 0x1778 @0x2
0x1776…1794 at0004 = ╱98╱ UNTIL ╱ // 0x177a @0x4
0x1776…1794 at0005 = ╱ed╱(╱ // 0x177b @0x5
0x1776…1794 at0006 = ╱50╱P╱ // 0x177c @0x6
0x1776…1794 at0007 = ╱de╱>╱ // 0x177d @0x7
0x1776…1794 at0008 = ╱42╱B╱ // 0x177e @0x8
0x1776…1794 at0009 = ╱da╱ AND ╱ // 0x177f @0x9
0x1776…1794 at000a = ╱50╱P╱ // 0x1780 @0xa
0x1776…1794 at000b = ╱df╱<=╱ // 0x1781 @0xb
0x1776…1794 at000c = ╱4d╱M╱ // 0x1782 @0xc
0x1776…1794 at000d = ╱4b╱K╱ // 0x1783 @0xd
0x1776…1794 at000e = ╱52╱R╱ // 0x1784 @0xe
0x1776…1794 at000f = ╱47╱G╱ // 0x1785 @0xf
0x1776…1794 at0010 = ╱52╱R╱ // 0x1786 @0x10
0x1776…1794 at0011 = ╱ee╱)╱ // 0x1787 @0x11
0x1776…1794 at0012 = ╱db╱ OR ╱ // 0x1788 @0x12
0x1776…1794 at0013 = ╱4b╱K╱ // 0x1789 @0x13
0x1776…1794 at0014 = ╱54╱T╱ // 0x178a @0x14
0x1776…1794 at0015 = ╱41╱A╱ // 0x178b @0x15
0x1776…1794 at0016 = ╱4c╱L╱ // 0x178c @0x16
0x1776…1794 at0017 = ╱dc╱=╱ // 0x178d @0x17
0x1776…1794 at0018 = ╱4b╱K╱ // 0x178e @0x18
0x1776…1794 at0019 = ╱52╱R╱ // 0x178f @0x19
0x1776…1794 at001a = ╱54╱T╱ // 0x1790 @0x1a
0x1776…1794 at001b = ╱41╱A╱ // 0x1791 @0x1b
0x1776…1794 at001c = ╱4c╱L╱ // 0x1792 @0x1c
0x1776…1794 at001d = EOL // 0x1793 @0x1d
0x1776…1794 }
0x1794…17a9 a500 2690 IF KTAB(AKRE,E)<P THEN
0x1794…17a9 LineComalBin {
0x1794…17a9 ptr = 0xa500 // 0x1794 @0x0
0x1794…17a9 lno = 0x0a82 // 0x1796 @0x2
0x1794…17a9 at0004 = ╱9c╱ IF ╱ // 0x1798 @0x4
0x1794…17a9 at0005 = ╱4b╱K╱ // 0x1799 @0x5
0x1794…17a9 at0006 = ╱54╱T╱ // 0x179a @0x6
0x1794…17a9 at0007 = ╱41╱A╱ // 0x179b @0x7
0x1794…17a9 at0008 = ╱42╱B╱ // 0x179c @0x8
0x1794…17a9 at0009 = ╱ed╱(╱ // 0x179d @0x9
0x1794…17a9 at000a = ╱41╱A╱ // 0x179e @0xa
0x1794…17a9 at000b = ╱4b╱K╱ // 0x179f @0xb
0x1794…17a9 at000c = ╱52╱R╱ // 0x17a0 @0xc
0x1794…17a9 at000d = ╱45╱E╱ // 0x17a1 @0xd
0x1794…17a9 at000e = ╱ec╱,╱ // 0x17a2 @0xe
0x1794…17a9 at000f = ╱45╱E╱ // 0x17a3 @0xf
0x1794…17a9 at0010 = ╱ee╱)╱ // 0x17a4 @0x10
0x1794…17a9 at0011 = ╱dd╱<╱ // 0x17a5 @0x11
0x1794…17a9 at0012 = ╱50╱P╱ // 0x17a6 @0x12
0x1794…17a9 at0013 = ╱b6╱ THEN ╱ // 0x17a7 @0x13
0x1794…17a9 at0014 = EOL // 0x17a8 @0x14
0x1794…17a9 }
0x17a9…17b6 a50d 2700 TIL=AKRE
0x17a9…17b6 LineComalBin {
0x17a9…17b6 ptr = 0xa50d // 0x17a9 @0x0
0x17a9…17b6 lno = 0x0a8c // 0x17ab @0x2
0x17a9…17b6 at0004 = ╱54╱T╱ // 0x17ad @0x4
0x17a9…17b6 at0005 = ╱49╱I╱ // 0x17ae @0x5
0x17a9…17b6 at0006 = ╱4c╱L╱ // 0x17af @0x6
0x17a9…17b6 at0007 = ╱dc╱=╱ // 0x17b0 @0x7
0x17a9…17b6 at0008 = ╱41╱A╱ // 0x17b1 @0x8
0x17a9…17b6 at0009 = ╱4b╱K╱ // 0x17b2 @0x9
0x17a9…17b6 at000a = ╱52╱R╱ // 0x17b3 @0xa
0x17a9…17b6 at000b = ╱45╱E╱ // 0x17b4 @0xb
0x17a9…17b6 at000c = EOL // 0x17b5 @0xc
0x17a9…17b6 }
0x17b6…17bc a513 2710 ELSE
0x17b6…17bc LineComalBin {
0x17b6…17bc ptr = 0xa513 // 0x17b6 @0x0
0x17b6…17bc lno = 0x0a96 // 0x17b8 @0x2
0x17b6…17bc at0004 = ╱9a╱ ELSE ╱ // 0x17ba @0x4
0x17b6…17bc at0005 = EOL // 0x17bb @0x5
0x17b6…17bc }
0x17bc…17e0 a537 2720 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)
0x17bc…17e0 LineComalBin {
0x17bc…17e0 ptr = 0xa537 // 0x17bc @0x0
0x17bc…17e0 lno = 0x0aa0 // 0x17be @0x2
0x17bc…17e0 at0004 = ╱9d╱ EXEC ╱ // 0x17c0 @0x4
0x17bc…17e0 at0005 = ╱46╱F╱ // 0x17c1 @0x5
0x17bc…17e0 at0006 = ╱49╱I╱ // 0x17c2 @0x6
0x17bc…17e0 at0007 = ╱4e╱N╱ // 0x17c3 @0x7
0x17bc…17e0 at0008 = ╱44╱D╱ // 0x17c4 @0x8
0x17bc…17e0 at0009 = ╱50╱P╱ // 0x17c5 @0x9
0x17bc…17e0 at000a = ╱4f╱O╱ // 0x17c6 @0xa
0x17bc…17e0 at000b = ╱53╱S╱ // 0x17c7 @0xb
0x17bc…17e0 at000c = ╱54╱T╱ // 0x17c8 @0xc
0x17bc…17e0 at000d = ╱ed╱(╱ // 0x17c9 @0xd
0x17bc…17e0 at000e = ╱4b╱K╱ // 0x17ca @0xe
0x17bc…17e0 at000f = ╱54╱T╱ // 0x17cb @0xf
0x17bc…17e0 at0010 = ╱41╱A╱ // 0x17cc @0x10
0x17bc…17e0 at0011 = ╱42╱B╱ // 0x17cd @0x11
0x17bc…17e0 at0012 = ╱ec╱,╱ // 0x17ce @0x12
0x17bc…17e0 at0013 = ╱4d╱M╱ // 0x17cf @0x13
0x17bc…17e0 at0014 = ╱4b╱K╱ // 0x17d0 @0x14
0x17bc…17e0 at0015 = ╱41╱A╱ // 0x17d1 @0x15
0x17bc…17e0 at0016 = ╱4e╱N╱ // 0x17d2 @0x16
0x17bc…17e0 at0017 = ╱54╱T╱ // 0x17d3 @0x17
0x17bc…17e0 at0018 = ╱41╱A╱ // 0x17d4 @0x18
0x17bc…17e0 at0019 = ╱4c╱L╱ // 0x17d5 @0x19
0x17bc…17e0 at001a = ╱ec╱,╱ // 0x17d6 @0x1a
0x17bc…17e0 at001b = ╱50╱P╱ // 0x17d7 @0x1b
0x17bc…17e0 at001c = ╱ec╱,╱ // 0x17d8 @0x1c
0x17bc…17e0 at001d = ╱4b╱K╱ // 0x17d9 @0x1d
0x17bc…17e0 at001e = ╱50╱P╱ // 0x17da @0x1e
0x17bc…17e0 at001f = ╱49╱I╱ // 0x17db @0x1f
0x17bc…17e0 at0020 = ╱4c╱L╱ // 0x17dc @0x20
0x17bc…17e0 at0021 = ╱33╱3╱ // 0x17dd @0x21
0x17bc…17e0 at0022 = ╱ee╱)╱ // 0x17de @0x22
0x17bc…17e0 at0023 = EOL // 0x17df @0x23
0x17bc…17e0 }
0x17e0…17ee a545 2730 TIL=KPIL3
0x17e0…17ee LineComalBin {
0x17e0…17ee ptr = 0xa545 // 0x17e0 @0x0
0x17e0…17ee lno = 0x0aaa // 0x17e2 @0x2
0x17e0…17ee at0004 = ╱54╱T╱ // 0x17e4 @0x4
0x17e0…17ee at0005 = ╱49╱I╱ // 0x17e5 @0x5
0x17e0…17ee at0006 = ╱4c╱L╱ // 0x17e6 @0x6
0x17e0…17ee at0007 = ╱dc╱=╱ // 0x17e7 @0x7
0x17e0…17ee at0008 = ╱4b╱K╱ // 0x17e8 @0x8
0x17e0…17ee at0009 = ╱50╱P╱ // 0x17e9 @0x9
0x17e0…17ee at000a = ╱49╱I╱ // 0x17ea @0xa
0x17e0…17ee at000b = ╱4c╱L╱ // 0x17eb @0xb
0x17e0…17ee at000c = ╱33╱3╱ // 0x17ec @0xc
0x17e0…17ee at000d = EOL // 0x17ed @0xd
0x17e0…17ee }
0x17ee…17f4 a54b 2740 ENDIF
0x17ee…17f4 LineComalBin {
0x17ee…17f4 ptr = 0xa54b // 0x17ee @0x0
0x17ee…17f4 lno = 0x0ab4 // 0x17f0 @0x2
0x17ee…17f4 at0004 = ╱9b╱ ENDIF ╱ // 0x17f2 @0x4
0x17ee…17f4 at0005 = EOL // 0x17f3 @0x5
0x17ee…17f4 }
0x17f4…1801 a558 2750 UNTIL FRA<=TIL
0x17f4…1801 LineComalBin {
0x17f4…1801 ptr = 0xa558 // 0x17f4 @0x0
0x17f4…1801 lno = 0x0abe // 0x17f6 @0x2
0x17f4…1801 at0004 = ╱98╱ UNTIL ╱ // 0x17f8 @0x4
0x17f4…1801 at0005 = ╱46╱F╱ // 0x17f9 @0x5
0x17f4…1801 at0006 = ╱52╱R╱ // 0x17fa @0x6
0x17f4…1801 at0007 = ╱41╱A╱ // 0x17fb @0x7
0x17f4…1801 at0008 = ╱df╱<=╱ // 0x17fc @0x8
0x17f4…1801 at0009 = ╱54╱T╱ // 0x17fd @0x9
0x17f4…1801 at000a = ╱49╱I╱ // 0x17fe @0xa
0x17f4…1801 at000b = ╱4c╱L╱ // 0x17ff @0xb
0x17f4…1801 at000c = EOL // 0x1800 @0xc
0x17f4…1801 }
0x1801…1807 a55e 2760 ENDIF
0x1801…1807 LineComalBin {
0x1801…1807 ptr = 0xa55e // 0x1801 @0x0
0x1801…1807 lno = 0x0ac8 // 0x1803 @0x2
0x1801…1807 at0004 = ╱9b╱ ENDIF ╱ // 0x1805 @0x4
0x1801…1807 at0005 = EOL // 0x1806 @0x5
0x1801…1807 }
0x1807…180d a564 2770 CLEAR
0x1807…180d LineComalBin {
0x1807…180d ptr = 0xa564 // 0x1807 @0x0
0x1807…180d lno = 0x0ad2 // 0x1809 @0x2
0x1807…180d at0004 = ╱a0╱ CLEAR ╱ // 0x180b @0x4
0x1807…180d at0005 = EOL // 0x180c @0x5
0x1807…180d }
0x180d…1813 a56a 2780 REPEAT
0x180d…1813 LineComalBin {
0x180d…1813 ptr = 0xa56a // 0x180d @0x0
0x180d…1813 lno = 0x0adc // 0x180f @0x2
0x180d…1813 at0004 = ╱97╱ REPEAT ╱ // 0x1811 @0x4
0x180d…1813 at0005 = EOL // 0x1812 @0x5
0x180d…1813 }
0x1813…1828 a57f 2790 CURSOR 18,13
0x1813…1828 LineComalBin {
0x1813…1828 ptr = 0xa57f // 0x1813 @0x0
0x1813…1828 lno = 0x0ae6 // 0x1815 @0x2
0x1813…1828 at0004 = ╱a1╱ CURSOR ╱ // 0x1817 @0x4
0x1813…1828 at0005 = ╱31╱1╱ // 0x1818 @0x5
0x1813…1828 at0006 = ╱38╱8╱ // 0x1819 @0x6
0x1813…1828 at0007 = ╱fe00009005╱ // 0x181a @0x7
0x1813…1828 at000c = ╱ec╱,╱ // 0x181f @0xc
0x1813…1828 at000d = ╱31╱1╱ // 0x1820 @0xd
0x1813…1828 at000e = ╱33╱3╱ // 0x1821 @0xe
0x1813…1828 at000f = ╱fe0000d004╱ // 0x1822 @0xf
0x1813…1828 at0014 = EOL // 0x1827 @0x14
0x1813…1828 }
0x1828…185c a5b3 2800 INPUT "Monter lister til udskrift og tast RETURN",A$
0x1828…185c LineComalBin {
0x1828…185c ptr = 0xa5b3 // 0x1828 @0x0
0x1828…185c lno = 0x0af0 // 0x182a @0x2
0x1828…185c at0004 = ╱91╱ INPUT ╱ // 0x182c @0x4
0x1828…185c at0005 = ╱22╱"╱ // 0x182d @0x5
0x1828…185c at0006 = ╱4d╱M╱ // 0x182e @0x6
0x1828…185c at0007 = ╱6f╱o╱ // 0x182f @0x7
0x1828…185c at0008 = ╱6e╱n╱ // 0x1830 @0x8
0x1828…185c at0009 = ╱74╱t╱ // 0x1831 @0x9
0x1828…185c at000a = ╱65╱e╱ // 0x1832 @0xa
0x1828…185c at000b = ╱72╱r╱ // 0x1833 @0xb
0x1828…185c at000c = ╱20╱…╱ // 0x1834 @0xc
0x1828…185c at000d = ╱6c╱l╱ // 0x1835 @0xd
0x1828…185c at000e = ╱69╱i╱ // 0x1836 @0xe
0x1828…185c at000f = ╱73╱s╱ // 0x1837 @0xf
0x1828…185c at0010 = ╱74╱t╱ // 0x1838 @0x10
0x1828…185c at0011 = ╱65╱e╱ // 0x1839 @0x11
0x1828…185c at0012 = ╱72╱r╱ // 0x183a @0x12
0x1828…185c at0013 = ╱20╱…╱ // 0x183b @0x13
0x1828…185c at0014 = ╱74╱t╱ // 0x183c @0x14
0x1828…185c at0015 = ╱69╱i╱ // 0x183d @0x15
0x1828…185c at0016 = ╱6c╱l╱ // 0x183e @0x16
0x1828…185c at0017 = ╱20╱…╱ // 0x183f @0x17
0x1828…185c at0018 = ╱75╱u╱ // 0x1840 @0x18
0x1828…185c at0019 = ╱64╱d╱ // 0x1841 @0x19
0x1828…185c at001a = ╱73╱s╱ // 0x1842 @0x1a
0x1828…185c at001b = ╱6b╱k╱ // 0x1843 @0x1b
0x1828…185c at001c = ╱72╱r╱ // 0x1844 @0x1c
0x1828…185c at001d = ╱69╱i╱ // 0x1845 @0x1d
0x1828…185c at001e = ╱66╱f╱ // 0x1846 @0x1e
0x1828…185c at001f = ╱74╱t╱ // 0x1847 @0x1f
0x1828…185c at0020 = ╱20╱…╱ // 0x1848 @0x20
0x1828…185c at0021 = ╱6f╱o╱ // 0x1849 @0x21
0x1828…185c at0022 = ╱67╱g╱ // 0x184a @0x22
0x1828…185c at0023 = ╱20╱…╱ // 0x184b @0x23
0x1828…185c at0024 = ╱74╱t╱ // 0x184c @0x24
0x1828…185c at0025 = ╱61╱a╱ // 0x184d @0x25
0x1828…185c at0026 = ╱73╱s╱ // 0x184e @0x26
0x1828…185c at0027 = ╱74╱t╱ // 0x184f @0x27
0x1828…185c at0028 = ╱20╱…╱ // 0x1850 @0x28
0x1828…185c at0029 = ╱52╱R╱ // 0x1851 @0x29
0x1828…185c at002a = ╱45╱E╱ // 0x1852 @0x2a
0x1828…185c at002b = ╱54╱T╱ // 0x1853 @0x2b
0x1828…185c at002c = ╱55╱U╱ // 0x1854 @0x2c
0x1828…185c at002d = ╱52╱R╱ // 0x1855 @0x2d
0x1828…185c at002e = ╱4e╱N╱ // 0x1856 @0x2e
0x1828…185c at002f = ╱22╱"╱ // 0x1857 @0x2f
0x1828…185c at0030 = ╱ec╱,╱ // 0x1858 @0x30
0x1828…185c at0031 = ╱41╱A╱ // 0x1859 @0x31
0x1828…185c at0032 = ╱ef╱$╱ // 0x185a @0x32
0x1828…185c at0033 = EOL // 0x185b @0x33
0x1828…185c }
0x185c…1870 a5c7 2810 UNTIL ORD(A$)=255
0x185c…1870 LineComalBin {
0x185c…1870 ptr = 0xa5c7 // 0x185c @0x0
0x185c…1870 lno = 0x0afa // 0x185e @0x2
0x185c…1870 at0004 = ╱98╱ UNTIL ╱ // 0x1860 @0x4
0x185c…1870 at0005 = ╱cd╱ORD╱ // 0x1861 @0x5
0x185c…1870 at0006 = ╱ed╱(╱ // 0x1862 @0x6
0x185c…1870 at0007 = ╱41╱A╱ // 0x1863 @0x7
0x185c…1870 at0008 = ╱ef╱$╱ // 0x1864 @0x8
0x185c…1870 at0009 = ╱ee╱)╱ // 0x1865 @0x9
0x185c…1870 at000a = ╱dc╱=╱ // 0x1866 @0xa
0x185c…1870 at000b = ╱32╱2╱ // 0x1867 @0xb
0x185c…1870 at000c = ╱35╱5╱ // 0x1868 @0xc
0x185c…1870 at000d = ╱35╱5╱ // 0x1869 @0xd
0x185c…1870 at000e = ╱fe0000ff08╱ // 0x186a @0xe
0x185c…1870 at0013 = EOL // 0x186f @0x13
0x185c…1870 }
0x1870…1888 a5df 2820 IF TYPE=E THEN KS$="saldo"
0x1870…1888 LineComalBin {
0x1870…1888 ptr = 0xa5df // 0x1870 @0x0
0x1870…1888 lno = 0x0b04 // 0x1872 @0x2
0x1870…1888 at0004 = ╱82╱ IF ╱ // 0x1874 @0x4
0x1870…1888 at0005 = ╱54╱T╱ // 0x1875 @0x5
0x1870…1888 at0006 = ╱59╱Y╱ // 0x1876 @0x6
0x1870…1888 at0007 = ╱50╱P╱ // 0x1877 @0x7
0x1870…1888 at0008 = ╱45╱E╱ // 0x1878 @0x8
0x1870…1888 at0009 = ╱dc╱=╱ // 0x1879 @0x9
0x1870…1888 at000a = ╱45╱E╱ // 0x187a @0xa
0x1870…1888 at000b = ╱b6╱ THEN ╱ // 0x187b @0xb
0x1870…1888 at000c = ╱4b╱K╱ // 0x187c @0xc
0x1870…1888 at000d = ╱53╱S╱ // 0x187d @0xd
0x1870…1888 at000e = ╱ef╱$╱ // 0x187e @0xe
0x1870…1888 at000f = ╱dc╱=╱ // 0x187f @0xf
0x1870…1888 at0010 = ╱22╱"╱ // 0x1880 @0x10
0x1870…1888 at0011 = ╱73╱s╱ // 0x1881 @0x11
0x1870…1888 at0012 = ╱61╱a╱ // 0x1882 @0x12
0x1870…1888 at0013 = ╱6c╱l╱ // 0x1883 @0x13
0x1870…1888 at0014 = ╱64╱d╱ // 0x1884 @0x14
0x1870…1888 at0015 = ╱6f╱o╱ // 0x1885 @0x15
0x1870…1888 at0016 = ╱22╱"╱ // 0x1886 @0x16
0x1870…1888 at0017 = EOL // 0x1887 @0x17
0x1870…1888 }
0x1888…18a0 a5f7 2830 IF TYPE=G THEN KS$="konto"
0x1888…18a0 LineComalBin {
0x1888…18a0 ptr = 0xa5f7 // 0x1888 @0x0
0x1888…18a0 lno = 0x0b0e // 0x188a @0x2
0x1888…18a0 at0004 = ╱82╱ IF ╱ // 0x188c @0x4
0x1888…18a0 at0005 = ╱54╱T╱ // 0x188d @0x5
0x1888…18a0 at0006 = ╱59╱Y╱ // 0x188e @0x6
0x1888…18a0 at0007 = ╱50╱P╱ // 0x188f @0x7
0x1888…18a0 at0008 = ╱45╱E╱ // 0x1890 @0x8
0x1888…18a0 at0009 = ╱dc╱=╱ // 0x1891 @0x9
0x1888…18a0 at000a = ╱47╱G╱ // 0x1892 @0xa
0x1888…18a0 at000b = ╱b6╱ THEN ╱ // 0x1893 @0xb
0x1888…18a0 at000c = ╱4b╱K╱ // 0x1894 @0xc
0x1888…18a0 at000d = ╱53╱S╱ // 0x1895 @0xd
0x1888…18a0 at000e = ╱ef╱$╱ // 0x1896 @0xe
0x1888…18a0 at000f = ╱dc╱=╱ // 0x1897 @0xf
0x1888…18a0 at0010 = ╱22╱"╱ // 0x1898 @0x10
0x1888…18a0 at0011 = ╱6b╱k╱ // 0x1899 @0x11
0x1888…18a0 at0012 = ╱6f╱o╱ // 0x189a @0x12
0x1888…18a0 at0013 = ╱6e╱n╱ // 0x189b @0x13
0x1888…18a0 at0014 = ╱74╱t╱ // 0x189c @0x14
0x1888…18a0 at0015 = ╱6f╱o╱ // 0x189d @0x15
0x1888…18a0 at0016 = ╱22╱"╱ // 0x189e @0x16
0x1888…18a0 at0017 = EOL // 0x189f @0x17
0x1888…18a0 }
0x18a0…18a7 a5fe 2840 OUTPUT P
0x18a0…18a7 LineComalBin {
0x18a0…18a7 ptr = 0xa5fe // 0x18a0 @0x0
0x18a0…18a7 lno = 0x0b18 // 0x18a2 @0x2
0x18a0…18a7 at0004 = ╱a5╱ OUTPUT ╱ // 0x18a4 @0x4
0x18a0…18a7 at0005 = ╱50╱P╱ // 0x18a5 @0x5
0x18a0…18a7 at0006 = EOL // 0x18a6 @0x6
0x18a0…18a7 }
0x18a7…18e9 a640 2850 TSALDO1$="0+";TSALDO2$="0+";TSALDI$="0+";KSALDI$="0+";LINIE=E
0x18a7…18e9 LineComalBin {
0x18a7…18e9 ptr = 0xa640 // 0x18a7 @0x0
0x18a7…18e9 lno = 0x0b22 // 0x18a9 @0x2
0x18a7…18e9 at0004 = ╱54╱T╱ // 0x18ab @0x4
0x18a7…18e9 at0005 = ╱53╱S╱ // 0x18ac @0x5
0x18a7…18e9 at0006 = ╱41╱A╱ // 0x18ad @0x6
0x18a7…18e9 at0007 = ╱4c╱L╱ // 0x18ae @0x7
0x18a7…18e9 at0008 = ╱44╱D╱ // 0x18af @0x8
0x18a7…18e9 at0009 = ╱4f╱O╱ // 0x18b0 @0x9
0x18a7…18e9 at000a = ╱31╱1╱ // 0x18b1 @0xa
0x18a7…18e9 at000b = ╱ef╱$╱ // 0x18b2 @0xb
0x18a7…18e9 at000c = ╱dc╱=╱ // 0x18b3 @0xc
0x18a7…18e9 at000d = ╱22╱"╱ // 0x18b4 @0xd
0x18a7…18e9 at000e = ╱30╱0╱ // 0x18b5 @0xe
0x18a7…18e9 at000f = ╱2b╱+╱ // 0x18b6 @0xf
0x18a7…18e9 at0010 = ╱22╱"╱ // 0x18b7 @0x10
0x18a7…18e9 at0011 = ╱eb╱;╱ // 0x18b8 @0x11
0x18a7…18e9 at0012 = ╱54╱T╱ // 0x18b9 @0x12
0x18a7…18e9 at0013 = ╱53╱S╱ // 0x18ba @0x13
0x18a7…18e9 at0014 = ╱41╱A╱ // 0x18bb @0x14
0x18a7…18e9 at0015 = ╱4c╱L╱ // 0x18bc @0x15
0x18a7…18e9 at0016 = ╱44╱D╱ // 0x18bd @0x16
0x18a7…18e9 at0017 = ╱4f╱O╱ // 0x18be @0x17
0x18a7…18e9 at0018 = ╱32╱2╱ // 0x18bf @0x18
0x18a7…18e9 at0019 = ╱ef╱$╱ // 0x18c0 @0x19
0x18a7…18e9 at001a = ╱dc╱=╱ // 0x18c1 @0x1a
0x18a7…18e9 at001b = ╱22╱"╱ // 0x18c2 @0x1b
0x18a7…18e9 at001c = ╱30╱0╱ // 0x18c3 @0x1c
0x18a7…18e9 at001d = ╱2b╱+╱ // 0x18c4 @0x1d
0x18a7…18e9 at001e = ╱22╱"╱ // 0x18c5 @0x1e
0x18a7…18e9 at001f = ╱eb╱;╱ // 0x18c6 @0x1f
0x18a7…18e9 at0020 = ╱54╱T╱ // 0x18c7 @0x20
0x18a7…18e9 at0021 = ╱53╱S╱ // 0x18c8 @0x21
0x18a7…18e9 at0022 = ╱41╱A╱ // 0x18c9 @0x22
0x18a7…18e9 at0023 = ╱4c╱L╱ // 0x18ca @0x23
0x18a7…18e9 at0024 = ╱44╱D╱ // 0x18cb @0x24
0x18a7…18e9 at0025 = ╱49╱I╱ // 0x18cc @0x25
0x18a7…18e9 at0026 = ╱ef╱$╱ // 0x18cd @0x26
0x18a7…18e9 at0027 = ╱dc╱=╱ // 0x18ce @0x27
0x18a7…18e9 at0028 = ╱22╱"╱ // 0x18cf @0x28
0x18a7…18e9 at0029 = ╱30╱0╱ // 0x18d0 @0x29
0x18a7…18e9 at002a = ╱2b╱+╱ // 0x18d1 @0x2a
0x18a7…18e9 at002b = ╱22╱"╱ // 0x18d2 @0x2b
0x18a7…18e9 at002c = ╱eb╱;╱ // 0x18d3 @0x2c
0x18a7…18e9 at002d = ╱4b╱K╱ // 0x18d4 @0x2d
0x18a7…18e9 at002e = ╱53╱S╱ // 0x18d5 @0x2e
0x18a7…18e9 at002f = ╱41╱A╱ // 0x18d6 @0x2f
0x18a7…18e9 at0030 = ╱4c╱L╱ // 0x18d7 @0x30
0x18a7…18e9 at0031 = ╱44╱D╱ // 0x18d8 @0x31
0x18a7…18e9 at0032 = ╱49╱I╱ // 0x18d9 @0x32
0x18a7…18e9 at0033 = ╱ef╱$╱ // 0x18da @0x33
0x18a7…18e9 at0034 = ╱dc╱=╱ // 0x18db @0x34
0x18a7…18e9 at0035 = ╱22╱"╱ // 0x18dc @0x35
0x18a7…18e9 at0036 = ╱30╱0╱ // 0x18dd @0x36
0x18a7…18e9 at0037 = ╱2b╱+╱ // 0x18de @0x37
0x18a7…18e9 at0038 = ╱22╱"╱ // 0x18df @0x38
0x18a7…18e9 at0039 = ╱eb╱;╱ // 0x18e0 @0x39
0x18a7…18e9 at003a = ╱4c╱L╱ // 0x18e1 @0x3a
0x18a7…18e9 at003b = ╱49╱I╱ // 0x18e2 @0x3b
0x18a7…18e9 at003c = ╱4e╱N╱ // 0x18e3 @0x3c
0x18a7…18e9 at003d = ╱49╱I╱ // 0x18e4 @0x3d
0x18a7…18e9 at003e = ╱45╱E╱ // 0x18e5 @0x3e
0x18a7…18e9 at003f = ╱dc╱=╱ // 0x18e6 @0x3f
0x18a7…18e9 at0040 = ╱45╱E╱ // 0x18e7 @0x40
0x18a7…18e9 at0041 = EOL // 0x18e8 @0x41
0x18a7…18e9 }
0x18e9…18f6 a64d 2860 IF TYPE<>V THEN
0x18e9…18f6 LineComalBin {
0x18e9…18f6 ptr = 0xa64d // 0x18e9 @0x0
0x18e9…18f6 lno = 0x0b2c // 0x18eb @0x2
0x18e9…18f6 at0004 = ╱9c╱ IF ╱ // 0x18ed @0x4
0x18e9…18f6 at0005 = ╱54╱T╱ // 0x18ee @0x5
0x18e9…18f6 at0006 = ╱59╱Y╱ // 0x18ef @0x6
0x18e9…18f6 at0007 = ╱50╱P╱ // 0x18f0 @0x7
0x18e9…18f6 at0008 = ╱45╱E╱ // 0x18f1 @0x8
0x18e9…18f6 at0009 = ╱e1╱<>╱ // 0x18f2 @0x9
0x18e9…18f6 at000a = ╱56╱V╱ // 0x18f3 @0xa
0x18e9…18f6 at000b = ╱b6╱ THEN ╱ // 0x18f4 @0xb
0x18e9…18f6 at000c = EOL // 0x18f5 @0xc
0x18e9…18f6 }
0x18f6…1909 a660 2870 FOR KPIL3=FRA TO TIL
0x18f6…1909 LineComalBin {
0x18f6…1909 ptr = 0xa660 // 0x18f6 @0x0
0x18f6…1909 lno = 0x0b36 // 0x18f8 @0x2
0x18f6…1909 at0004 = ╱83╱ FOR ╱ // 0x18fa @0x4
0x18f6…1909 at0005 = ╱4b╱K╱ // 0x18fb @0x5
0x18f6…1909 at0006 = ╱50╱P╱ // 0x18fc @0x6
0x18f6…1909 at0007 = ╱49╱I╱ // 0x18fd @0x7
0x18f6…1909 at0008 = ╱4c╱L╱ // 0x18fe @0x8
0x18f6…1909 at0009 = ╱33╱3╱ // 0x18ff @0x9
0x18f6…1909 at000a = ╱dc╱=╱ // 0x1900 @0xa
0x18f6…1909 at000b = ╱46╱F╱ // 0x1901 @0xb
0x18f6…1909 at000c = ╱52╱R╱ // 0x1902 @0xc
0x18f6…1909 at000d = ╱41╱A╱ // 0x1903 @0xd
0x18f6…1909 at000e = ╱b7╱ TO ╱ // 0x1904 @0xe
0x18f6…1909 at000f = ╱54╱T╱ // 0x1905 @0xf
0x18f6…1909 at0010 = ╱49╱I╱ // 0x1906 @0x10
0x18f6…1909 at0011 = ╱4c╱L╱ // 0x1907 @0x11
0x18f6…1909 at0012 = EOL // 0x1908 @0x12
0x18f6…1909 }
0x1909…1914 a66b 2880 EXEC HOVED
0x1909…1914 LineComalBin {
0x1909…1914 ptr = 0xa66b // 0x1909 @0x0
0x1909…1914 lno = 0x0b40 // 0x190b @0x2
0x1909…1914 at0004 = ╱9d╱ EXEC ╱ // 0x190d @0x4
0x1909…1914 at0005 = ╱48╱H╱ // 0x190e @0x5
0x1909…1914 at0006 = ╱4f╱O╱ // 0x190f @0x6
0x1909…1914 at0007 = ╱56╱V╱ // 0x1910 @0x7
0x1909…1914 at0008 = ╱45╱E╱ // 0x1911 @0x8
0x1909…1914 at0009 = ╱44╱D╱ // 0x1912 @0x9
0x1909…1914 at000a = EOL // 0x1913 @0xa
0x1909…1914 }
0x1914…1923 a67a 2890 EXEC HENTKPOST
0x1914…1923 LineComalBin {
0x1914…1923 ptr = 0xa67a // 0x1914 @0x0
0x1914…1923 lno = 0x0b4a // 0x1916 @0x2
0x1914…1923 at0004 = ╱9d╱ EXEC ╱ // 0x1918 @0x4
0x1914…1923 at0005 = ╱48╱H╱ // 0x1919 @0x5
0x1914…1923 at0006 = ╱45╱E╱ // 0x191a @0x6
0x1914…1923 at0007 = ╱4e╱N╱ // 0x191b @0x7
0x1914…1923 at0008 = ╱54╱T╱ // 0x191c @0x8
0x1914…1923 at0009 = ╱4b╱K╱ // 0x191d @0x9
0x1914…1923 at000a = ╱50╱P╱ // 0x191e @0xa
0x1914…1923 at000b = ╱4f╱O╱ // 0x191f @0xb
0x1914…1923 at000c = ╱53╱S╱ // 0x1920 @0xc
0x1914…1923 at000d = ╱54╱T╱ // 0x1921 @0xd
0x1914…1923 at000e = EOL // 0x1922 @0xe
0x1914…1923 }
0x1923…1930 a687 2900 EXEC UDSKRIV
0x1923…1930 LineComalBin {
0x1923…1930 ptr = 0xa687 // 0x1923 @0x0
0x1923…1930 lno = 0x0b54 // 0x1925 @0x2
0x1923…1930 at0004 = ╱9d╱ EXEC ╱ // 0x1927 @0x4
0x1923…1930 at0005 = ╱55╱U╱ // 0x1928 @0x5
0x1923…1930 at0006 = ╱44╱D╱ // 0x1929 @0x6
0x1923…1930 at0007 = ╱53╱S╱ // 0x192a @0x7
0x1923…1930 at0008 = ╱4b╱K╱ // 0x192b @0x8
0x1923…1930 at0009 = ╱52╱R╱ // 0x192c @0x9
0x1923…1930 at000a = ╱49╱I╱ // 0x192d @0xa
0x1923…1930 at000b = ╱56╱V╱ // 0x192e @0xb
0x1923…1930 at000c = EOL // 0x192f @0xc
0x1923…1930 }
0x1930…193b a692 2910 NEXT KPIL3
0x1930…193b LineComalBin {
0x1930…193b ptr = 0xa692 // 0x1930 @0x0
0x1930…193b lno = 0x0b5e // 0x1932 @0x2
0x1930…193b at0004 = ╱84╱ NEXT ╱ // 0x1934 @0x4
0x1930…193b at0005 = ╱4b╱K╱ // 0x1935 @0x5
0x1930…193b at0006 = ╱50╱P╱ // 0x1936 @0x6
0x1930…193b at0007 = ╱49╱I╱ // 0x1937 @0x7
0x1930…193b at0008 = ╱4c╱L╱ // 0x1938 @0x8
0x1930…193b at0009 = ╱33╱3╱ // 0x1939 @0x9
0x1930…193b at000a = EOL // 0x193a @0xa
0x1930…193b }
0x193b…1955 a6ac 2920 IF TYPE=E THEN LINIE=LINIE+E
0x193b…1955 LineComalBin {
0x193b…1955 ptr = 0xa6ac // 0x193b @0x0
0x193b…1955 lno = 0x0b68 // 0x193d @0x2
0x193b…1955 at0004 = ╱82╱ IF ╱ // 0x193f @0x4
0x193b…1955 at0005 = ╱54╱T╱ // 0x1940 @0x5
0x193b…1955 at0006 = ╱59╱Y╱ // 0x1941 @0x6
0x193b…1955 at0007 = ╱50╱P╱ // 0x1942 @0x7
0x193b…1955 at0008 = ╱45╱E╱ // 0x1943 @0x8
0x193b…1955 at0009 = ╱dc╱=╱ // 0x1944 @0x9
0x193b…1955 at000a = ╱45╱E╱ // 0x1945 @0xa
0x193b…1955 at000b = ╱b6╱ THEN ╱ // 0x1946 @0xb
0x193b…1955 at000c = ╱4c╱L╱ // 0x1947 @0xc
0x193b…1955 at000d = ╱49╱I╱ // 0x1948 @0xd
0x193b…1955 at000e = ╱4e╱N╱ // 0x1949 @0xe
0x193b…1955 at000f = ╱49╱I╱ // 0x194a @0xf
0x193b…1955 at0010 = ╱45╱E╱ // 0x194b @0x10
0x193b…1955 at0011 = ╱dc╱=╱ // 0x194c @0x11
0x193b…1955 at0012 = ╱4c╱L╱ // 0x194d @0x12
0x193b…1955 at0013 = ╱49╱I╱ // 0x194e @0x13
0x193b…1955 at0014 = ╱4e╱N╱ // 0x194f @0x14
0x193b…1955 at0015 = ╱49╱I╱ // 0x1950 @0x15
0x193b…1955 at0016 = ╱45╱E╱ // 0x1951 @0x16
0x193b…1955 at0017 = ╱e2╱+╱ // 0x1952 @0x17
0x193b…1955 at0018 = ╱45╱E╱ // 0x1953 @0x18
0x193b…1955 at0019 = EOL // 0x1954 @0x19
0x193b…1955 }
0x1955…195b a6b2 2930 ENDIF
0x1955…195b LineComalBin {
0x1955…195b ptr = 0xa6b2 // 0x1955 @0x0
0x1955…195b lno = 0x0b72 // 0x1957 @0x2
0x1955…195b at0004 = ╱9b╱ ENDIF ╱ // 0x1959 @0x4
0x1955…195b at0005 = EOL // 0x195a @0x5
0x1955…195b }
0x195b…1968 a6bf 2940 IF TYPE=V THEN
0x195b…1968 LineComalBin {
0x195b…1968 ptr = 0xa6bf // 0x195b @0x0
0x195b…1968 lno = 0x0b7c // 0x195d @0x2
0x195b…1968 at0004 = ╱9c╱ IF ╱ // 0x195f @0x4
0x195b…1968 at0005 = ╱54╱T╱ // 0x1960 @0x5
0x195b…1968 at0006 = ╱59╱Y╱ // 0x1961 @0x6
0x195b…1968 at0007 = ╱50╱P╱ // 0x1962 @0x7
0x195b…1968 at0008 = ╱45╱E╱ // 0x1963 @0x8
0x195b…1968 at0009 = ╱dc╱=╱ // 0x1964 @0x9
0x195b…1968 at000a = ╱56╱V╱ // 0x1965 @0xa
0x195b…1968 at000b = ╱b6╱ THEN ╱ // 0x1966 @0xb
0x195b…1968 at000c = EOL // 0x1967 @0xc
0x195b…1968 }
0x1968…197b a6d2 2950 FOR KPIL3=FRA TO TIL
0x1968…197b LineComalBin {
0x1968…197b ptr = 0xa6d2 // 0x1968 @0x0
0x1968…197b lno = 0x0b86 // 0x196a @0x2
0x1968…197b at0004 = ╱83╱ FOR ╱ // 0x196c @0x4
0x1968…197b at0005 = ╱4b╱K╱ // 0x196d @0x5
0x1968…197b at0006 = ╱50╱P╱ // 0x196e @0x6
0x1968…197b at0007 = ╱49╱I╱ // 0x196f @0x7
0x1968…197b at0008 = ╱4c╱L╱ // 0x1970 @0x8
0x1968…197b at0009 = ╱33╱3╱ // 0x1971 @0x9
0x1968…197b at000a = ╱dc╱=╱ // 0x1972 @0xa
0x1968…197b at000b = ╱46╱F╱ // 0x1973 @0xb
0x1968…197b at000c = ╱52╱R╱ // 0x1974 @0xc
0x1968…197b at000d = ╱41╱A╱ // 0x1975 @0xd
0x1968…197b at000e = ╱b7╱ TO ╱ // 0x1976 @0xe
0x1968…197b at000f = ╱54╱T╱ // 0x1977 @0xf
0x1968…197b at0010 = ╱49╱I╱ // 0x1978 @0x10
0x1968…197b at0011 = ╱4c╱L╱ // 0x1979 @0x11
0x1968…197b at0012 = EOL // 0x197a @0x12
0x1968…197b }
0x197b…1986 a6dd 2960 EXEC HOVED
0x197b…1986 LineComalBin {
0x197b…1986 ptr = 0xa6dd // 0x197b @0x0
0x197b…1986 lno = 0x0b90 // 0x197d @0x2
0x197b…1986 at0004 = ╱9d╱ EXEC ╱ // 0x197f @0x4
0x197b…1986 at0005 = ╱48╱H╱ // 0x1980 @0x5
0x197b…1986 at0006 = ╱4f╱O╱ // 0x1981 @0x6
0x197b…1986 at0007 = ╱56╱V╱ // 0x1982 @0x7
0x197b…1986 at0008 = ╱45╱E╱ // 0x1983 @0x8
0x197b…1986 at0009 = ╱44╱D╱ // 0x1984 @0x9
0x197b…1986 at000a = EOL // 0x1985 @0xa
0x197b…1986 }
0x1986…1995 a6ec 2970 EXEC HENTKPOST
0x1986…1995 LineComalBin {
0x1986…1995 ptr = 0xa6ec // 0x1986 @0x0
0x1986…1995 lno = 0x0b9a // 0x1988 @0x2
0x1986…1995 at0004 = ╱9d╱ EXEC ╱ // 0x198a @0x4
0x1986…1995 at0005 = ╱48╱H╱ // 0x198b @0x5
0x1986…1995 at0006 = ╱45╱E╱ // 0x198c @0x6
0x1986…1995 at0007 = ╱4e╱N╱ // 0x198d @0x7
0x1986…1995 at0008 = ╱54╱T╱ // 0x198e @0x8
0x1986…1995 at0009 = ╱4b╱K╱ // 0x198f @0x9
0x1986…1995 at000a = ╱50╱P╱ // 0x1990 @0xa
0x1986…1995 at000b = ╱4f╱O╱ // 0x1991 @0xb
0x1986…1995 at000c = ╱53╱S╱ // 0x1992 @0xc
0x1986…1995 at000d = ╱54╱T╱ // 0x1993 @0xd
0x1986…1995 at000e = EOL // 0x1994 @0xe
0x1986…1995 }
0x1995…19ba a711 2980 EXEC CALC(4,KSALDO2$,TAH$,TAH$)
0x1995…19ba LineComalBin {
0x1995…19ba ptr = 0xa711 // 0x1995 @0x0
0x1995…19ba lno = 0x0ba4 // 0x1997 @0x2
0x1995…19ba at0004 = ╱9d╱ EXEC ╱ // 0x1999 @0x4
0x1995…19ba at0005 = ╱43╱C╱ // 0x199a @0x5
0x1995…19ba at0006 = ╱41╱A╱ // 0x199b @0x6
0x1995…19ba at0007 = ╱4c╱L╱ // 0x199c @0x7
0x1995…19ba at0008 = ╱43╱C╱ // 0x199d @0x8
0x1995…19ba at0009 = ╱ed╱(╱ // 0x199e @0x9
0x1995…19ba at000a = ╱34╱4╱ // 0x199f @0xa
0x1995…19ba at000b = ╱fe00008003╱ // 0x19a0 @0xb
0x1995…19ba at0010 = ╱ec╱,╱ // 0x19a5 @0x10
0x1995…19ba at0011 = ╱4b╱K╱ // 0x19a6 @0x11
0x1995…19ba at0012 = ╱53╱S╱ // 0x19a7 @0x12
0x1995…19ba at0013 = ╱41╱A╱ // 0x19a8 @0x13
0x1995…19ba at0014 = ╱4c╱L╱ // 0x19a9 @0x14
0x1995…19ba at0015 = ╱44╱D╱ // 0x19aa @0x15
0x1995…19ba at0016 = ╱4f╱O╱ // 0x19ab @0x16
0x1995…19ba at0017 = ╱32╱2╱ // 0x19ac @0x17
0x1995…19ba at0018 = ╱ef╱$╱ // 0x19ad @0x18
0x1995…19ba at0019 = ╱ec╱,╱ // 0x19ae @0x19
0x1995…19ba at001a = ╱54╱T╱ // 0x19af @0x1a
0x1995…19ba at001b = ╱41╱A╱ // 0x19b0 @0x1b
0x1995…19ba at001c = ╱48╱H╱ // 0x19b1 @0x1c
0x1995…19ba at001d = ╱ef╱$╱ // 0x19b2 @0x1d
0x1995…19ba at001e = ╱ec╱,╱ // 0x19b3 @0x1e
0x1995…19ba at001f = ╱54╱T╱ // 0x19b4 @0x1f
0x1995…19ba at0020 = ╱41╱A╱ // 0x19b5 @0x20
0x1995…19ba at0021 = ╱48╱H╱ // 0x19b6 @0x21
0x1995…19ba at0022 = ╱ef╱$╱ // 0x19b7 @0x22
0x1995…19ba at0023 = ╱ee╱)╱ // 0x19b8 @0x23
0x1995…19ba at0024 = EOL // 0x19b9 @0x24
0x1995…19ba }
0x19ba…19cd a724 2990 IF SI<>B THEN EXEC UDSKRIV
0x19ba…19cd LineComalBin {
0x19ba…19cd ptr = 0xa724 // 0x19ba @0x0
0x19ba…19cd lno = 0x0bae // 0x19bc @0x2
0x19ba…19cd at0004 = ╱82╱ IF ╱ // 0x19be @0x4
0x19ba…19cd at0005 = ╱53╱S╱ // 0x19bf @0x5
0x19ba…19cd at0006 = ╱49╱I╱ // 0x19c0 @0x6
0x19ba…19cd at0007 = ╱e1╱<>╱ // 0x19c1 @0x7
0x19ba…19cd at0008 = ╱42╱B╱ // 0x19c2 @0x8
0x19ba…19cd at0009 = ╱b6╱ THEN ╱ // 0x19c3 @0x9
0x19ba…19cd at000a = ╱9d╱ EXEC ╱ // 0x19c4 @0xa
0x19ba…19cd at000b = ╱55╱U╱ // 0x19c5 @0xb
0x19ba…19cd at000c = ╱44╱D╱ // 0x19c6 @0xc
0x19ba…19cd at000d = ╱53╱S╱ // 0x19c7 @0xd
0x19ba…19cd at000e = ╱4b╱K╱ // 0x19c8 @0xe
0x19ba…19cd at000f = ╱52╱R╱ // 0x19c9 @0xf
0x19ba…19cd at0010 = ╱49╱I╱ // 0x19ca @0x10
0x19ba…19cd at0011 = ╱56╱V╱ // 0x19cb @0x11
0x19ba…19cd at0012 = EOL // 0x19cc @0x12
0x19ba…19cd }
0x19cd…19d8 a72f 3000 NEXT KPIL3
0x19cd…19d8 LineComalBin {
0x19cd…19d8 ptr = 0xa72f // 0x19cd @0x0
0x19cd…19d8 lno = 0x0bb8 // 0x19cf @0x2
0x19cd…19d8 at0004 = ╱84╱ NEXT ╱ // 0x19d1 @0x4
0x19cd…19d8 at0005 = ╱4b╱K╱ // 0x19d2 @0x5
0x19cd…19d8 at0006 = ╱50╱P╱ // 0x19d3 @0x6
0x19cd…19d8 at0007 = ╱49╱I╱ // 0x19d4 @0x7
0x19cd…19d8 at0008 = ╱4c╱L╱ // 0x19d5 @0x8
0x19cd…19d8 at0009 = ╱33╱3╱ // 0x19d6 @0x9
0x19cd…19d8 at000a = EOL // 0x19d7 @0xa
0x19cd…19d8 }
0x19d8…19ea a741 3010 LINIE=LINIE+E
0x19d8…19ea LineComalBin {
0x19d8…19ea ptr = 0xa741 // 0x19d8 @0x0
0x19d8…19ea lno = 0x0bc2 // 0x19da @0x2
0x19d8…19ea at0004 = ╱4c╱L╱ // 0x19dc @0x4
0x19d8…19ea at0005 = ╱49╱I╱ // 0x19dd @0x5
0x19d8…19ea at0006 = ╱4e╱N╱ // 0x19de @0x6
0x19d8…19ea at0007 = ╱49╱I╱ // 0x19df @0x7
0x19d8…19ea at0008 = ╱45╱E╱ // 0x19e0 @0x8
0x19d8…19ea at0009 = ╱dc╱=╱ // 0x19e1 @0x9
0x19d8…19ea at000a = ╱4c╱L╱ // 0x19e2 @0xa
0x19d8…19ea at000b = ╱49╱I╱ // 0x19e3 @0xb
0x19d8…19ea at000c = ╱4e╱N╱ // 0x19e4 @0xc
0x19d8…19ea at000d = ╱49╱I╱ // 0x19e5 @0xd
0x19d8…19ea at000e = ╱45╱E╱ // 0x19e6 @0xe
0x19d8…19ea at000f = ╱e2╱+╱ // 0x19e7 @0xf
0x19d8…19ea at0010 = ╱45╱E╱ // 0x19e8 @0x10
0x19d8…19ea at0011 = EOL // 0x19e9 @0x11
0x19d8…19ea }
0x19ea…19f0 a747 3020 ENDIF
0x19ea…19f0 LineComalBin {
0x19ea…19f0 ptr = 0xa747 // 0x19ea @0x0
0x19ea…19f0 lno = 0x0bcc // 0x19ec @0x2
0x19ea…19f0 at0004 = ╱9b╱ ENDIF ╱ // 0x19ee @0x4
0x19ea…19f0 at0005 = EOL // 0x19ef @0x5
0x19ea…19f0 }
0x19f0…1a04 a75b 3030 IF LINIE<41 THEN
0x19f0…1a04 LineComalBin {
0x19f0…1a04 ptr = 0xa75b // 0x19f0 @0x0
0x19f0…1a04 lno = 0x0bd6 // 0x19f2 @0x2
0x19f0…1a04 at0004 = ╱9c╱ IF ╱ // 0x19f4 @0x4
0x19f0…1a04 at0005 = ╱4c╱L╱ // 0x19f5 @0x5
0x19f0…1a04 at0006 = ╱49╱I╱ // 0x19f6 @0x6
0x19f0…1a04 at0007 = ╱4e╱N╱ // 0x19f7 @0x7
0x19f0…1a04 at0008 = ╱49╱I╱ // 0x19f8 @0x8
0x19f0…1a04 at0009 = ╱45╱E╱ // 0x19f9 @0x9
0x19f0…1a04 at000a = ╱dd╱<╱ // 0x19fa @0xa
0x19f0…1a04 at000b = ╱34╱4╱ // 0x19fb @0xb
0x19f0…1a04 at000c = ╱31╱1╱ // 0x19fc @0xc
0x19f0…1a04 at000d = ╱fe0000a406╱ // 0x19fd @0xd
0x19f0…1a04 at0012 = ╱b6╱ THEN ╱ // 0x1a02 @0x12
0x19f0…1a04 at0013 = EOL // 0x1a03 @0x13
0x19f0…1a04 }
0x1a04…1a0a a761 3040 REPEAT
0x1a04…1a0a LineComalBin {
0x1a04…1a0a ptr = 0xa761 // 0x1a04 @0x0
0x1a04…1a0a lno = 0x0be0 // 0x1a06 @0x2
0x1a04…1a0a at0004 = ╱97╱ REPEAT ╱ // 0x1a08 @0x4
0x1a04…1a0a at0005 = EOL // 0x1a09 @0x5
0x1a04…1a0a }
0x1a0a…1a13 a76a 3050 PRINT " "
0x1a0a…1a13 LineComalBin {
0x1a0a…1a13 ptr = 0xa76a // 0x1a0a @0x0
0x1a0a…1a13 lno = 0x0bea // 0x1a0c @0x2
0x1a0a…1a13 at0004 = ╱92╱ PRINT ╱ // 0x1a0e @0x4
0x1a0a…1a13 at0005 = ╱22╱"╱ // 0x1a0f @0x5
0x1a0a…1a13 at0006 = ╱20╱…╱ // 0x1a10 @0x6
0x1a0a…1a13 at0007 = ╱22╱"╱ // 0x1a11 @0x7
0x1a0a…1a13 at0008 = EOL // 0x1a12 @0x8
0x1a0a…1a13 }
0x1a13…1a25 a77c 3060 LINIE=LINIE+E
0x1a13…1a25 LineComalBin {
0x1a13…1a25 ptr = 0xa77c // 0x1a13 @0x0
0x1a13…1a25 lno = 0x0bf4 // 0x1a15 @0x2
0x1a13…1a25 at0004 = ╱4c╱L╱ // 0x1a17 @0x4
0x1a13…1a25 at0005 = ╱49╱I╱ // 0x1a18 @0x5
0x1a13…1a25 at0006 = ╱4e╱N╱ // 0x1a19 @0x6
0x1a13…1a25 at0007 = ╱49╱I╱ // 0x1a1a @0x7
0x1a13…1a25 at0008 = ╱45╱E╱ // 0x1a1b @0x8
0x1a13…1a25 at0009 = ╱dc╱=╱ // 0x1a1c @0x9
0x1a13…1a25 at000a = ╱4c╱L╱ // 0x1a1d @0xa
0x1a13…1a25 at000b = ╱49╱I╱ // 0x1a1e @0xb
0x1a13…1a25 at000c = ╱4e╱N╱ // 0x1a1f @0xc
0x1a13…1a25 at000d = ╱49╱I╱ // 0x1a20 @0xd
0x1a13…1a25 at000e = ╱45╱E╱ // 0x1a21 @0xe
0x1a13…1a25 at000f = ╱e2╱+╱ // 0x1a22 @0xf
0x1a13…1a25 at0010 = ╱45╱E╱ // 0x1a23 @0x10
0x1a13…1a25 at0011 = EOL // 0x1a24 @0x11
0x1a13…1a25 }
0x1a25…1a38 a78f 3070 UNTIL LINIE=43
0x1a25…1a38 LineComalBin {
0x1a25…1a38 ptr = 0xa78f // 0x1a25 @0x0
0x1a25…1a38 lno = 0x0bfe // 0x1a27 @0x2
0x1a25…1a38 at0004 = ╱98╱ UNTIL ╱ // 0x1a29 @0x4
0x1a25…1a38 at0005 = ╱4c╱L╱ // 0x1a2a @0x5
0x1a25…1a38 at0006 = ╱49╱I╱ // 0x1a2b @0x6
0x1a25…1a38 at0007 = ╱4e╱N╱ // 0x1a2c @0x7
0x1a25…1a38 at0008 = ╱49╱I╱ // 0x1a2d @0x8
0x1a25…1a38 at0009 = ╱45╱E╱ // 0x1a2e @0x9
0x1a25…1a38 at000a = ╱dc╱=╱ // 0x1a2f @0xa
0x1a25…1a38 at000b = ╱34╱4╱ // 0x1a30 @0xb
0x1a25…1a38 at000c = ╱33╱3╱ // 0x1a31 @0xc
0x1a25…1a38 at000d = ╱fe0000ac06╱ // 0x1a32 @0xd
0x1a25…1a38 at0012 = EOL // 0x1a37 @0x12
0x1a25…1a38 }
0x1a38…1a3e a795 3080 ENDIF
0x1a38…1a3e LineComalBin {
0x1a38…1a3e ptr = 0xa795 // 0x1a38 @0x0
0x1a38…1a3e lno = 0x0c08 // 0x1a3a @0x2
0x1a38…1a3e at0004 = ╱9b╱ ENDIF ╱ // 0x1a3c @0x4
0x1a38…1a3e at0005 = EOL // 0x1a3d @0x5
0x1a38…1a3e }
0x1a3e…1a50 a7a7 3090 IF TYPE<>G THEN EXEC BUND
0x1a3e…1a50 LineComalBin {
0x1a3e…1a50 ptr = 0xa7a7 // 0x1a3e @0x0
0x1a3e…1a50 lno = 0x0c12 // 0x1a40 @0x2
0x1a3e…1a50 at0004 = ╱82╱ IF ╱ // 0x1a42 @0x4
0x1a3e…1a50 at0005 = ╱54╱T╱ // 0x1a43 @0x5
0x1a3e…1a50 at0006 = ╱59╱Y╱ // 0x1a44 @0x6
0x1a3e…1a50 at0007 = ╱50╱P╱ // 0x1a45 @0x7
0x1a3e…1a50 at0008 = ╱45╱E╱ // 0x1a46 @0x8
0x1a3e…1a50 at0009 = ╱e1╱<>╱ // 0x1a47 @0x9
0x1a3e…1a50 at000a = ╱47╱G╱ // 0x1a48 @0xa
0x1a3e…1a50 at000b = ╱b6╱ THEN ╱ // 0x1a49 @0xb
0x1a3e…1a50 at000c = ╱9d╱ EXEC ╱ // 0x1a4a @0xc
0x1a3e…1a50 at000d = ╱42╱B╱ // 0x1a4b @0xd
0x1a3e…1a50 at000e = ╱55╱U╱ // 0x1a4c @0xe
0x1a3e…1a50 at000f = ╱4e╱N╱ // 0x1a4d @0xf
0x1a3e…1a50 at0010 = ╱44╱D╱ // 0x1a4e @0x10
0x1a3e…1a50 at0011 = EOL // 0x1a4f @0x11
0x1a3e…1a50 }
0x1a50…1a5d a7b4 3100 IF TYPE=G THEN
0x1a50…1a5d LineComalBin {
0x1a50…1a5d ptr = 0xa7b4 // 0x1a50 @0x0
0x1a50…1a5d lno = 0x0c1c // 0x1a52 @0x2
0x1a50…1a5d at0004 = ╱9c╱ IF ╱ // 0x1a54 @0x4
0x1a50…1a5d at0005 = ╱54╱T╱ // 0x1a55 @0x5
0x1a50…1a5d at0006 = ╱59╱Y╱ // 0x1a56 @0x6
0x1a50…1a5d at0007 = ╱50╱P╱ // 0x1a57 @0x7
0x1a50…1a5d at0008 = ╱45╱E╱ // 0x1a58 @0x8
0x1a50…1a5d at0009 = ╱dc╱=╱ // 0x1a59 @0x9
0x1a50…1a5d at000a = ╱47╱G╱ // 0x1a5a @0xa
0x1a50…1a5d at000b = ╱b6╱ THEN ╱ // 0x1a5b @0xb
0x1a50…1a5d at000c = EOL // 0x1a5c @0xc
0x1a50…1a5d }
0x1a5d…1a66 a7bd 3110 PRINT " "
0x1a5d…1a66 LineComalBin {
0x1a5d…1a66 ptr = 0xa7bd // 0x1a5d @0x0
0x1a5d…1a66 lno = 0x0c26 // 0x1a5f @0x2
0x1a5d…1a66 at0004 = ╱92╱ PRINT ╱ // 0x1a61 @0x4
0x1a5d…1a66 at0005 = ╱22╱"╱ // 0x1a62 @0x5
0x1a5d…1a66 at0006 = ╱20╱…╱ // 0x1a63 @0x6
0x1a5d…1a66 at0007 = ╱22╱"╱ // 0x1a64 @0x7
0x1a5d…1a66 at0008 = EOL // 0x1a65 @0x8
0x1a5d…1a66 }
0x1a66…1a6c a7c3 3120 ENDIF
0x1a66…1a6c LineComalBin {
0x1a66…1a6c ptr = 0xa7c3 // 0x1a66 @0x0
0x1a66…1a6c lno = 0x0c30 // 0x1a68 @0x2
0x1a66…1a6c at0004 = ╱9b╱ ENDIF ╱ // 0x1a6a @0x4
0x1a66…1a6c at0005 = EOL // 0x1a6b @0x5
0x1a66…1a6c }
0x1a6c…1a78 a7cf 3130 UNTIL TYPE=B
0x1a6c…1a78 LineComalBin {
0x1a6c…1a78 ptr = 0xa7cf // 0x1a6c @0x0
0x1a6c…1a78 lno = 0x0c3a // 0x1a6e @0x2
0x1a6c…1a78 at0004 = ╱98╱ UNTIL ╱ // 0x1a70 @0x4
0x1a6c…1a78 at0005 = ╱54╱T╱ // 0x1a71 @0x5
0x1a6c…1a78 at0006 = ╱59╱Y╱ // 0x1a72 @0x6
0x1a6c…1a78 at0007 = ╱50╱P╱ // 0x1a73 @0x7
0x1a6c…1a78 at0008 = ╱45╱E╱ // 0x1a74 @0x8
0x1a6c…1a78 at0009 = ╱dc╱=╱ // 0x1a75 @0x9
0x1a6c…1a78 at000a = ╱42╱B╱ // 0x1a76 @0xa
0x1a6c…1a78 at000b = EOL // 0x1a77 @0xb
0x1a6c…1a78 }
0x1a78…1a7e (88,) a7d5 3140 CLEAR
0x1a78…1a7e LineComalBin {
0x1a78…1a7e ptr = 0xa7d5 // 0x1a78 @0x0
0x1a78…1a7e lno = 0x0c44 // 0x1a7a @0x2
0x1a78…1a7e at0004 = ╱a0╱ CLEAR ╱ // 0x1a7c @0x4
0x1a78…1a7e at0005 = EOL // 0x1a7d @0x5
0x1a78…1a7e }
0x1a7e…1a95 0000 3190 CHAIN "P641210:OPSTART"
0x1a7e…1a95 LineComalBin {
0x1a7e…1a95 ptr = 0x0000 // 0x1a7e @0x0
0x1a7e…1a95 lno = 0x0c76 // 0x1a80 @0x2
0x1a7e…1a95 at0004 = ╱ac╱ CHAIN ╱ // 0x1a82 @0x4
0x1a7e…1a95 at0005 = ╱22╱"╱ // 0x1a83 @0x5
0x1a7e…1a95 at0006 = ╱50╱P╱ // 0x1a84 @0x6
0x1a7e…1a95 at0007 = ╱36╱6╱ // 0x1a85 @0x7
0x1a7e…1a95 at0008 = ╱34╱4╱ // 0x1a86 @0x8
0x1a7e…1a95 at0009 = ╱31╱1╱ // 0x1a87 @0x9
0x1a7e…1a95 at000a = ╱32╱2╱ // 0x1a88 @0xa
0x1a7e…1a95 at000b = ╱31╱1╱ // 0x1a89 @0xb
0x1a7e…1a95 at000c = ╱30╱0╱ // 0x1a8a @0xc
0x1a7e…1a95 at000d = ╱3a╱:╱ // 0x1a8b @0xd
0x1a7e…1a95 at000e = ╱4f╱O╱ // 0x1a8c @0xe
0x1a7e…1a95 at000f = ╱50╱P╱ // 0x1a8d @0xf
0x1a7e…1a95 at0010 = ╱53╱S╱ // 0x1a8e @0x10
0x1a7e…1a95 at0011 = ╱54╱T╱ // 0x1a8f @0x11
0x1a7e…1a95 at0012 = ╱41╱A╱ // 0x1a90 @0x12
0x1a7e…1a95 at0013 = ╱52╱R╱ // 0x1a91 @0x13
0x1a7e…1a95 at0014 = ╱54╱T╱ // 0x1a92 @0x14
0x1a7e…1a95 at0015 = ╱22╱"╱ // 0x1a93 @0x15
0x1a7e…1a95 at0016 = EOL // 0x1a94 @0x16
0x1a7e…1a95 }
0x1a95…1aa0 57 8d 5a 00 42 dc 30 fe 00 00 00 ┆W Z B 0 ┆
0x1aa0…1ac0 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 dc 39 ┆ E 1 G 2 V 3 W 9┆
0x1ac0…1ac5 fe 00 00 90 04 ┆ ┆
0x1ac5…1ac6 (89,) 0xff[0x1]
0x1ac6…1acc (90,) 57 8d ec a7 10 00 ┆W ┆