|
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: 6470 (0x1946)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »ENTRETOT.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ENTRETOT.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »ENTRETOT.B«
0090 B=0;E=1;G=2;V=3;W=9 0100 PROC INLØNMOD(N) 0110 GET FIL1$,G*N:P7$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0120 EXEC FEJL(E,N,FIL1$) 0130 ENDPROC 0140 PROC NÆSTE 0150 REPEAT 0160 LMNR=LMNR+E 0170 LA=E 0180 IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR) 0190 UNTIL LA>B 0200 ENDPROC 0210 DIM RES$(15),OP1$(12),OP2$(12) 0220 DIM FIL1$(16),PCT$(12) 0230 DIM RESUL$(12),RESUL1$(12),D1$(6),D2$(6),DAD$(6) 0240 DIM FIL$(16) 0250 DIM EN$(12),BE$(12),GRUPPE$(6),GRUPEN$(12),GRUPBEL$(12) 0260 PROC CALC(AR3,B1,B2,ES) 0270 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0280 CALL "P641210:REGN" 0290 IF AR3<6 AND FLAG THEN STOP 0300 ES$=RES$ 0310 ENDPROC 0320 PROC INDVIRK 0330 OPEN FIL$,W 0340 EXEC FEJL(B,B,FIL$) 0350 GET FIL$,G:P7$,SLJNR,MLMNR,ATPLM 0355 GET FIL$,V:DAD$ 0360 ENDPROC 0370 PROC FEJL(P1,P2,P3) 0380 IF STATUS(P3$)<>B THEN 0390 OUTPUT T 0400 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0410 STOP 0420 ENDIF 0430 ENDPROC 0440 PROC OPTÆL(N) 0450 RESUL$=P7$(11:10) 0460 RESUL1$=T$(N,7:10) 0470 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 0480 T$(N,7:10)=RESUL1$(V:10) 0490 RESUL$=P7$(28:10) 0500 RESUL1$=T$(N,17:10) 0510 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 0520 T$(N,17:10)=RESUL1$(V:10) 0530 ENDPROC 0540 PROC PV(Å,Æ) 0550 IF Å$="+" THEN Å$=" " 0560 IF Æ$="+" THEN Æ$=" " 0570 ENDPROC 0580 MAX=725 0590 DIM T$(MAX+E,26),P7$(37) 0600 FOR I=E TO MAX+E 0610 T$(I)=" 0+ 0+" 0620 NEXT I 0630 PROC FIND 0640 NR=E 0650 WHILE T$(NR,E:6)<>" " 0660 IF T$(NR,E:6)=P7$(5:6) THEN EXIT 0670 IF T$(NR,E:6)>P7$(5:6) THEN 0680 NR=G*NR 0690 ELSE 0700 NR=G*NR+E 0710 ENDIF 0720 IF NR>MAX THEN EXIT 0730 ENDWHILE 0740 ENDPROC 0750 PROC TRAVERSE 0760 IF NR<=MAX THEN 0770 IF T$(NR,E:6)<>" " THEN 0780 NR=G*NR 0790 EXEC TRAVERSE 0800 NR=NR DIV G 0810 IF GRUPPE$=" " THEN GRUPPE$=T$(NR,E,5) 0820 IF LINIE>62 THEN EXEC HEAD 0830 IF GRUPPE$<>T$(NR,E,5) THEN 0832 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$) 0834 IF RESUL$(12)="+" THEN RESUL$(12)=" " 0840 EXEC PV(GRUPEN$(12),GRUPBEL$(12)) 0850 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10) 0860 PRINT 0870 GRUPPE$=T$(NR,E,5) 0880 GRUPEN$="0+" 0890 GRUPBEL$=GRUPEN$;LINIE=LINIE+G 0900 ENDIF 0910 LINIE=LINIE+E 0920 RESUL$=T$(NR,7:10) 0930 EXEC CALC(B,RESUL$,GRUPEN$,GRUPEN$) 0940 EXEC CALC(B,RESUL$,EN$,EN$) 0950 RESUL$=T$(NR,17:10) 0960 EXEC CALC(B,RESUL$,GRUPBEL$,GRUPBEL$) 0970 EXEC CALC(B,RESUL$,BE$,BE$) 0980 EXEC PV(T$(NR,16),T$(NR,26)) 0990 PRINT T$(NR,E:6),T$(NR,7:10),T$(NR,17:10) 1000 NR=G*NR+E 1010 EXEC TRAVERSE 1020 NR=NR DIV G 1030 ENDIF 1040 ENDIF 1050 ENDPROC 1060 PROC BINNEXT 1070 NR=NR*G+E 1080 IF NR>MAX THEN 1090 WHILE NR MOD G=E 1100 NR=NR DIV G 1110 ENDWHILE 1120 NR=NR DIV G 1130 ELSE 1140 WHILE NR<=MAX DIV G 1150 NR=NR*G 1160 ENDWHILE 1170 ENDIF 1180 ENDPROC 1190 PROC BINPREV 1200 NR=NR*G 1210 IF NR>MAX THEN 1220 WHILE NR MOD G=B 1230 NR=NR DIV G 1240 ENDWHILE 1250 NR=NR DIV G 1260 ELSE 1270 WHILE NR<MAX DIV G 1280 NR=NR*G+E 1290 ENDWHILE 1300 ENDIF 1310 ENDPROC 1320 PROC HEAD 1330 WHILE LINIE<72 AND LINIE>B 1340 PRINT 1350 LINIE=LINIE+E 1360 ENDWHILE 1370 SID=SID+E 1380 PRINT "Lønudgifter fordelt på entrepriser";TAB(55);"Side ";SID;TAB(67); 1390 PRINT "Dato ";DAD$ 1400 PRINT TAB(55);"Periode ";D1$;" - ";D2$ 1410 PRINT "Konto"," Enheder"," Beløb ";PCT$(V:W);" * Beløb" 1420 PRINT 1430 LINIE=4 1440 ENDPROC 1450 CLEAR 1460 INPUT "Periodestart ",D1$ 1470 INPUT "Periodeslut ",D2$ 1490 FIL$="P641220:VIRKKART" 1500 EXEC INDVIRK 1510 CLOSE FIL$ 1520 FIL1$="P641220:LØNMODRG" 1530 OPEN FIL1$,R 1540 FIL$="P641220:TRANSREG" 1550 OPEN FIL$,W 1560 EN$="0+" 1570 BE$=EN$ 1580 REPEAT 1590 PCT$="1,16" 1600 EDIT "Faktor ",PCT$ 1605 PCT$=PCT$+"+" 1610 EXEC CALC(6,PCT$,EN$,PCT$) 1620 UNTIL SI=B 1630 NRP=B 1640 LMNR=B 1650 EXEC NÆSTE 1660 WHILE LMNR<=MLMNR 1670 IT=(LMNR-E)*ATPLM+E 1680 GET FIL$,IT:P7$ 1690 IF P7$(E)="2" THEN 1700 P7$(E)="3" 1710 PUT FIL$,IT:P7$ 1720 WHILE P7$(V,4)<>"83" 1730 IF P7$(5:6)<>" " THEN 1740 RESUL$=P7$(11:10) 1750 EXEC CALC(B,EN$,RESUL$,EN$) 1760 RESUL$=P7$(28:10) 1770 EXEC CALC(B,BE$,RESUL$,BE$) 1780 EXEC FIND 1790 IF NR<=MAX THEN 1800 IF T$(NR,E:6)=P7$(5:6) THEN 1810 EXEC OPTÆL(NR) 1820 ELSE 1830 NRP=NRP+E 1840 T$(NR,E:6)=P7$(5:6) 1850 T$(NR,7:10)=P7$(11:10) 1860 T$(NR,17:10)=P7$(28:10) 1870 ENDIF 1880 ELSE 1890 IF NRP=MAX THEN 1900 EXEC OPTÆL(1+MAX) 1910 ELSE 1920 AO,AN=B 1930 NR=NR DIV G 1940 GNR=NR 1950 REPEAT 1960 AO=AO+E 1970 EXEC BINNEXT 1980 IF NR=B THEN EXIT 1990 UNTIL T$(NR,E:6)=" " 2000 IF NR>B THEN 2010 NR1=NR 2020 WHILE T$(NR1,E:6)=" " 2030 NR=NR1 2040 NR1=NR1 DIV G 2050 ENDWHILE 2060 ENDIF 2070 ONR=NR 2080 NR=GNR 2090 REPEAT 2100 AN=AN+E 2110 EXEC BINPREV 2120 IF NR=B THEN EXIT 2130 UNTIL T$(NR,E:6)=" " OR (AN=>AO AND ONR>B) 2140 IF NR>B THEN 2150 NR1=NR 2160 WHILE T$(NR1,E:6)=" " 2170 NR=NR1 2180 NR1=NR1 DIV G 2190 ENDWHILE 2200 ENDIF 2210 NNR=NR 2220 IF NNR=B THEN AN=AO 2230 IF AO<=AN AND ONR>B THEN 2240 IF P7$(5:6)>T$(GNR,E:6) THEN 2250 T$(ONR)=T$(GNR) 2260 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10) 2270 P7$(5:6)=T$(ONR,E:6);P7$(11:10)=T$(ONR,7:10);P7$(28:10)=T$(ONR,17:10) 2280 ENDIF 2290 NR=ONR 2300 REPEAT 2310 REPEAT 2320 EXEC BINPREV 2330 UNTIL T$(NR,E:6)<>" " 2340 T$(ONR)=T$(NR) 2350 ONR=NR 2360 UNTIL GNR=NR 2370 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10) 2380 ELSE 2390 IF NNR=B THEN STOP 2400 IF P7$(5:6)<T$(GNR,E:6) THEN 2410 T$(NNR)=T$(GNR) 2420 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10) 2430 P7$(5:6)=T$(NNR,E:6);P7$(11:10)=T$(NNR,7:10);P7$(28:10)=T$(NNR,17:10) 2440 ENDIF 2450 NR=NNR 2460 REPEAT 2470 REPEAT 2480 EXEC BINNEXT 2490 UNTIL T$(NR,E:6)<>" " 2500 T$(NNR)=T$(NR) 2510 NNR=NR 2520 UNTIL GNR=NR 2530 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10) 2540 ENDIF 2550 NRP=NRP+E 2560 NR=B 2570 ENDIF 2580 ENDIF 2590 ENDIF 2600 IF P7$(E)="2" THEN 2610 P7$(E)="3" 2620 PUT FIL$,IT:P7$ 2630 ENDIF 2640 IT=IT+E 2650 GET FIL$,IT:P7$ 2660 ENDWHILE 2670 ENDIF 2680 EXEC NÆSTE 2690 ENDWHILE 2700 OUTPUT P 2710 SID,LINIE=B 2720 EXEC HEAD 2730 NR=E;LINIE=LINIE+G 2740 PRINT "Totalt indlæst ";EN$(E,11),BE$(V,11) 2750 EN$="0+" 2760 BE$=EN$;GRUPEN$=EN$;GRUPBEL$=EN$;GRUPPE$=" " 2770 PRINT 2780 EXEC TRAVERSE 2782 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$) 2784 IF RESUL$(12)="+" THEN RESUL$(12)=" " 2790 EXEC PV(GRUPEN$(12),GRUPBEL$(12)) 2800 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10) 2810 PRINT 2820 LINIE=LINIE+V 2822 EXEC CALC(G,PCT$,BE$,RESUL$) 2824 IF RESUL$(12)="+" THEN RESUL$(12)=" " 2830 EXEC PV(EN$(12),BE$(12)) 2840 PRINT "Total",EN$(V:10),BE$(V:10),RESUL$(V:10) 2850 MAX=MAX+E 2860 IF T$(MAX,14)<>" " THEN 2870 EXEC PV(T$(MAX,16),T$(MAX,26)) 2880 PRINT "Ikke fordelt",T$(MAX,7:10),T$(MAX,17:10) 2890 ENDIF 2900 WHILE LINIE<72 AND LINIE>B 2910 PRINT 2920 LINIE=LINIE+E 2930 ENDWHILE 2940 OUTPUT T 2950 CHAIN "P641210:STARTB"
0x0000…0031 (0,) 8d88 0090 B=0;E=1;G=2;V=3;W=9
0x0000…0031 LineComalBin {
0x0000…0031 ptr = 0x8d88 // 0x0 @0x0
0x0000…0031 lno = 0x005a // 0x2 @0x2
0x0000…0031 at0004 = ╱42╱B╱ // 0x4 @0x4
0x0000…0031 at0005 = ╱dc╱=╱ // 0x5 @0x5
0x0000…0031 at0006 = ╱30╱0╱ // 0x6 @0x6
0x0000…0031 at0007 = ╱fe00000000╱ // 0x7 @0x7
0x0000…0031 at000c = ╱eb╱;╱ // 0xc @0xc
0x0000…0031 at000d = ╱45╱E╱ // 0xd @0xd
0x0000…0031 at000e = ╱dc╱=╱ // 0xe @0xe
0x0000…0031 at000f = ╱31╱1╱ // 0xf @0xf
0x0000…0031 at0010 = ╱fe00008001╱ // 0x10 @0x10
0x0000…0031 at0015 = ╱eb╱;╱ // 0x15 @0x15
0x0000…0031 at0016 = ╱47╱G╱ // 0x16 @0x16
0x0000…0031 at0017 = ╱dc╱=╱ // 0x17 @0x17
0x0000…0031 at0018 = ╱32╱2╱ // 0x18 @0x18
0x0000…0031 at0019 = ╱fe00008002╱ // 0x19 @0x19
0x0000…0031 at001e = ╱eb╱;╱ // 0x1e @0x1e
0x0000…0031 at001f = ╱56╱V╱ // 0x1f @0x1f
0x0000…0031 at0020 = ╱dc╱=╱ // 0x20 @0x20
0x0000…0031 at0021 = ╱33╱3╱ // 0x21 @0x21
0x0000…0031 at0022 = ╱fe0000c002╱ // 0x22 @0x22
0x0000…0031 at0027 = ╱eb╱;╱ // 0x27 @0x27
0x0000…0031 at0028 = ╱57╱W╱ // 0x28 @0x28
0x0000…0031 at0029 = ╱dc╱=╱ // 0x29 @0x29
0x0000…0031 at002a = ╱39╱9╱ // 0x2a @0x2a
0x0000…0031 at002b = ╱fe00009004╱ // 0x2b @0x2b
0x0000…0031 at0030 = EOL // 0x30 @0x30
0x0000…0031 }
0x0031…0042 8d99 0100 PROC INLØNMOD(N)
0x0031…0042 LineComalBin {
0x0031…0042 ptr = 0x8d99 // 0x31 @0x0
0x0031…0042 lno = 0x0064 // 0x33 @0x2
0x0031…0042 at0004 = ╱9e╱ PROC ╱ // 0x35 @0x4
0x0031…0042 at0005 = ╱49╱I╱ // 0x36 @0x5
0x0031…0042 at0006 = ╱4e╱N╱ // 0x37 @0x6
0x0031…0042 at0007 = ╱4c╱L╱ // 0x38 @0x7
0x0031…0042 at0008 = ╱5c╱Ø╱ // 0x39 @0x8
0x0031…0042 at0009 = ╱4e╱N╱ // 0x3a @0x9
0x0031…0042 at000a = ╱4d╱M╱ // 0x3b @0xa
0x0031…0042 at000b = ╱4f╱O╱ // 0x3c @0xb
0x0031…0042 at000c = ╱44╱D╱ // 0x3d @0xc
0x0031…0042 at000d = ╱ed╱(╱ // 0x3e @0xd
0x0031…0042 at000e = ╱4e╱N╱ // 0x3f @0xe
0x0031…0042 at000f = ╱ee╱)╱ // 0x40 @0xf
0x0031…0042 at0010 = EOL // 0x41 @0x10
0x0031…0042 }
0x0042…0077 8dce 0110 GET FIL1$,G*N:P7$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD
0x0042…0077 LineComalBin {
0x0042…0077 ptr = 0x8dce // 0x42 @0x0
0x0042…0077 lno = 0x006e // 0x44 @0x2
0x0042…0077 at0004 = ╱a9╱ GET ╱ // 0x46 @0x4
0x0042…0077 at0005 = ╱46╱F╱ // 0x47 @0x5
0x0042…0077 at0006 = ╱49╱I╱ // 0x48 @0x6
0x0042…0077 at0007 = ╱4c╱L╱ // 0x49 @0x7
0x0042…0077 at0008 = ╱31╱1╱ // 0x4a @0x8
0x0042…0077 at0009 = ╱ef╱$╱ // 0x4b @0x9
0x0042…0077 at000a = ╱ec╱,╱ // 0x4c @0xa
0x0042…0077 at000b = ╱47╱G╱ // 0x4d @0xb
0x0042…0077 at000c = ╱e4╱*╱ // 0x4e @0xc
0x0042…0077 at000d = ╱4e╱N╱ // 0x4f @0xd
0x0042…0077 at000e = ╱f0╱:╱ // 0x50 @0xe
0x0042…0077 at000f = ╱50╱P╱ // 0x51 @0xf
0x0042…0077 at0010 = ╱37╱7╱ // 0x52 @0x10
0x0042…0077 at0011 = ╱ef╱$╱ // 0x53 @0x11
0x0042…0077 at0012 = ╱ec╱,╱ // 0x54 @0x12
0x0042…0077 at0013 = ╱43╱C╱ // 0x55 @0x13
0x0042…0077 at0014 = ╱31╱1╱ // 0x56 @0x14
0x0042…0077 at0015 = ╱ec╱,╱ // 0x57 @0x15
0x0042…0077 at0016 = ╱43╱C╱ // 0x58 @0x16
0x0042…0077 at0017 = ╱32╱2╱ // 0x59 @0x17
0x0042…0077 at0018 = ╱ec╱,╱ // 0x5a @0x18
0x0042…0077 at0019 = ╱4c╱L╱ // 0x5b @0x19
0x0042…0077 at001a = ╱54╱T╱ // 0x5c @0x1a
0x0042…0077 at001b = ╱ec╱,╱ // 0x5d @0x1b
0x0042…0077 at001c = ╱4c╱L╱ // 0x5e @0x1c
0x0042…0077 at001d = ╱46╱F╱ // 0x5f @0x1d
0x0042…0077 at001e = ╱ec╱,╱ // 0x60 @0x1e
0x0042…0077 at001f = ╱4c╱L╱ // 0x61 @0x1f
0x0042…0077 at0020 = ╱52╱R╱ // 0x62 @0x20
0x0042…0077 at0021 = ╱ec╱,╱ // 0x63 @0x21
0x0042…0077 at0022 = ╱4c╱L╱ // 0x64 @0x22
0x0042…0077 at0023 = ╱41╱A╱ // 0x65 @0x23
0x0042…0077 at0024 = ╱ec╱,╱ // 0x66 @0x24
0x0042…0077 at0025 = ╱52╱R╱ // 0x67 @0x25
0x0042…0077 at0026 = ╱50╱P╱ // 0x68 @0x26
0x0042…0077 at0027 = ╱49╱I╱ // 0x69 @0x27
0x0042…0077 at0028 = ╱ec╱,╱ // 0x6a @0x28
0x0042…0077 at0029 = ╱4b╱K╱ // 0x6b @0x29
0x0042…0077 at002a = ╱31╱1╱ // 0x6c @0x2a
0x0042…0077 at002b = ╱ec╱,╱ // 0x6d @0x2b
0x0042…0077 at002c = ╱4b╱K╱ // 0x6e @0x2c
0x0042…0077 at002d = ╱32╱2╱ // 0x6f @0x2d
0x0042…0077 at002e = ╱ec╱,╱ // 0x70 @0x2e
0x0042…0077 at002f = ╱46╱F╱ // 0x71 @0x2f
0x0042…0077 at0030 = ╱47╱G╱ // 0x72 @0x30
0x0042…0077 at0031 = ╱ec╱,╱ // 0x73 @0x31
0x0042…0077 at0032 = ╱46╱F╱ // 0x74 @0x32
0x0042…0077 at0033 = ╱44╱D╱ // 0x75 @0x33
0x0042…0077 at0034 = EOL // 0x76 @0x34
0x0042…0077 }
0x0077…008c 8de3 0120 EXEC FEJL(E,N,FIL1$)
0x0077…008c LineComalBin {
0x0077…008c ptr = 0x8de3 // 0x77 @0x0
0x0077…008c lno = 0x0078 // 0x79 @0x2
0x0077…008c at0004 = ╱9d╱ EXEC ╱ // 0x7b @0x4
0x0077…008c at0005 = ╱46╱F╱ // 0x7c @0x5
0x0077…008c at0006 = ╱45╱E╱ // 0x7d @0x6
0x0077…008c at0007 = ╱4a╱J╱ // 0x7e @0x7
0x0077…008c at0008 = ╱4c╱L╱ // 0x7f @0x8
0x0077…008c at0009 = ╱ed╱(╱ // 0x80 @0x9
0x0077…008c at000a = ╱45╱E╱ // 0x81 @0xa
0x0077…008c at000b = ╱ec╱,╱ // 0x82 @0xb
0x0077…008c at000c = ╱4e╱N╱ // 0x83 @0xc
0x0077…008c at000d = ╱ec╱,╱ // 0x84 @0xd
0x0077…008c at000e = ╱46╱F╱ // 0x85 @0xe
0x0077…008c at000f = ╱49╱I╱ // 0x86 @0xf
0x0077…008c at0010 = ╱4c╱L╱ // 0x87 @0x10
0x0077…008c at0011 = ╱31╱1╱ // 0x88 @0x11
0x0077…008c at0012 = ╱ef╱$╱ // 0x89 @0x12
0x0077…008c at0013 = ╱ee╱)╱ // 0x8a @0x13
0x0077…008c at0014 = EOL // 0x8b @0x14
0x0077…008c }
0x008c…0092 8de9 0130 ENDPROC
0x008c…0092 LineComalBin {
0x008c…0092 ptr = 0x8de9 // 0x8c @0x0
0x008c…0092 lno = 0x0082 // 0x8e @0x2
0x008c…0092 at0004 = ╱9f╱ ENDPROC ╱ // 0x90 @0x4
0x008c…0092 at0005 = EOL // 0x91 @0x5
0x008c…0092 }
0x0092…009d 8df4 0140 PROC NÆSTE
0x0092…009d LineComalBin {
0x0092…009d ptr = 0x8df4 // 0x92 @0x0
0x0092…009d lno = 0x008c // 0x94 @0x2
0x0092…009d at0004 = ╱9e╱ PROC ╱ // 0x96 @0x4
0x0092…009d at0005 = ╱4e╱N╱ // 0x97 @0x5
0x0092…009d at0006 = ╱5b╱Æ╱ // 0x98 @0x6
0x0092…009d at0007 = ╱53╱S╱ // 0x99 @0x7
0x0092…009d at0008 = ╱54╱T╱ // 0x9a @0x8
0x0092…009d at0009 = ╱45╱E╱ // 0x9b @0x9
0x0092…009d at000a = EOL // 0x9c @0xa
0x0092…009d }
0x009d…00a3 8dfa 0150 REPEAT
0x009d…00a3 LineComalBin {
0x009d…00a3 ptr = 0x8dfa // 0x9d @0x0
0x009d…00a3 lno = 0x0096 // 0x9f @0x2
0x009d…00a3 at0004 = ╱97╱ REPEAT ╱ // 0xa1 @0x4
0x009d…00a3 at0005 = EOL // 0xa2 @0x5
0x009d…00a3 }
0x00a3…00b3 8e0a 0160 LMNR=LMNR+E
0x00a3…00b3 LineComalBin {
0x00a3…00b3 ptr = 0x8e0a // 0xa3 @0x0
0x00a3…00b3 lno = 0x00a0 // 0xa5 @0x2
0x00a3…00b3 at0004 = ╱4c╱L╱ // 0xa7 @0x4
0x00a3…00b3 at0005 = ╱4d╱M╱ // 0xa8 @0x5
0x00a3…00b3 at0006 = ╱4e╱N╱ // 0xa9 @0x6
0x00a3…00b3 at0007 = ╱52╱R╱ // 0xaa @0x7
0x00a3…00b3 at0008 = ╱dc╱=╱ // 0xab @0x8
0x00a3…00b3 at0009 = ╱4c╱L╱ // 0xac @0x9
0x00a3…00b3 at000a = ╱4d╱M╱ // 0xad @0xa
0x00a3…00b3 at000b = ╱4e╱N╱ // 0xae @0xb
0x00a3…00b3 at000c = ╱52╱R╱ // 0xaf @0xc
0x00a3…00b3 at000d = ╱e2╱+╱ // 0xb0 @0xd
0x00a3…00b3 at000e = ╱45╱E╱ // 0xb1 @0xe
0x00a3…00b3 at000f = EOL // 0xb2 @0xf
0x00a3…00b3 }
0x00b3…00bc 8e13 0170 LA=E
0x00b3…00bc LineComalBin {
0x00b3…00bc ptr = 0x8e13 // 0xb3 @0x0
0x00b3…00bc lno = 0x00aa // 0xb5 @0x2
0x00b3…00bc at0004 = ╱4c╱L╱ // 0xb7 @0x4
0x00b3…00bc at0005 = ╱41╱A╱ // 0xb8 @0x5
0x00b3…00bc at0006 = ╱dc╱=╱ // 0xb9 @0x6
0x00b3…00bc at0007 = ╱45╱E╱ // 0xba @0x7
0x00b3…00bc at0008 = EOL // 0xbb @0x8
0x00b3…00bc }
0x00bc…00dc 8e33 0180 IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR)
0x00bc…00dc LineComalBin {
0x00bc…00dc ptr = 0x8e33 // 0xbc @0x0
0x00bc…00dc lno = 0x00b4 // 0xbe @0x2
0x00bc…00dc at0004 = ╱82╱ IF ╱ // 0xc0 @0x4
0x00bc…00dc at0005 = ╱4c╱L╱ // 0xc1 @0x5
0x00bc…00dc at0006 = ╱4d╱M╱ // 0xc2 @0x6
0x00bc…00dc at0007 = ╱4e╱N╱ // 0xc3 @0x7
0x00bc…00dc at0008 = ╱52╱R╱ // 0xc4 @0x8
0x00bc…00dc at0009 = ╱df╱<=╱ // 0xc5 @0x9
0x00bc…00dc at000a = ╱4d╱M╱ // 0xc6 @0xa
0x00bc…00dc at000b = ╱4c╱L╱ // 0xc7 @0xb
0x00bc…00dc at000c = ╱4d╱M╱ // 0xc8 @0xc
0x00bc…00dc at000d = ╱4e╱N╱ // 0xc9 @0xd
0x00bc…00dc at000e = ╱52╱R╱ // 0xca @0xe
0x00bc…00dc at000f = ╱b6╱ THEN ╱ // 0xcb @0xf
0x00bc…00dc at0010 = ╱9d╱ EXEC ╱ // 0xcc @0x10
0x00bc…00dc at0011 = ╱49╱I╱ // 0xcd @0x11
0x00bc…00dc at0012 = ╱4e╱N╱ // 0xce @0x12
0x00bc…00dc at0013 = ╱4c╱L╱ // 0xcf @0x13
0x00bc…00dc at0014 = ╱5c╱Ø╱ // 0xd0 @0x14
0x00bc…00dc at0015 = ╱4e╱N╱ // 0xd1 @0x15
0x00bc…00dc at0016 = ╱4d╱M╱ // 0xd2 @0x16
0x00bc…00dc at0017 = ╱4f╱O╱ // 0xd3 @0x17
0x00bc…00dc at0018 = ╱44╱D╱ // 0xd4 @0x18
0x00bc…00dc at0019 = ╱ed╱(╱ // 0xd5 @0x19
0x00bc…00dc at001a = ╱4c╱L╱ // 0xd6 @0x1a
0x00bc…00dc at001b = ╱4d╱M╱ // 0xd7 @0x1b
0x00bc…00dc at001c = ╱4e╱N╱ // 0xd8 @0x1c
0x00bc…00dc at001d = ╱52╱R╱ // 0xd9 @0x1d
0x00bc…00dc at001e = ╱ee╱)╱ // 0xda @0x1e
0x00bc…00dc at001f = EOL // 0xdb @0x1f
0x00bc…00dc }
0x00dc…00e6 8e3d 0190 UNTIL LA>B
0x00dc…00e6 LineComalBin {
0x00dc…00e6 ptr = 0x8e3d // 0xdc @0x0
0x00dc…00e6 lno = 0x00be // 0xde @0x2
0x00dc…00e6 at0004 = ╱98╱ UNTIL ╱ // 0xe0 @0x4
0x00dc…00e6 at0005 = ╱4c╱L╱ // 0xe1 @0x5
0x00dc…00e6 at0006 = ╱41╱A╱ // 0xe2 @0x6
0x00dc…00e6 at0007 = ╱de╱>╱ // 0xe3 @0x7
0x00dc…00e6 at0008 = ╱42╱B╱ // 0xe4 @0x8
0x00dc…00e6 at0009 = EOL // 0xe5 @0x9
0x00dc…00e6 }
0x00e6…00ec 8e43 0200 ENDPROC
0x00e6…00ec LineComalBin {
0x00e6…00ec ptr = 0x8e43 // 0xe6 @0x0
0x00e6…00ec lno = 0x00c8 // 0xe8 @0x2
0x00e6…00ec at0004 = ╱9f╱ ENDPROC ╱ // 0xea @0x4
0x00e6…00ec at0005 = EOL // 0xeb @0x5
0x00e6…00ec }
0x00ec…011b 8e72 0210 DIM RES$(15),OP1$(12),OP2$(12)
0x00ec…011b LineComalBin {
0x00ec…011b ptr = 0x8e72 // 0xec @0x0
0x00ec…011b lno = 0x00d2 // 0xee @0x2
0x00ec…011b at0004 = ╱87╱ DIM ╱ // 0xf0 @0x4
0x00ec…011b at0005 = ╱52╱R╱ // 0xf1 @0x5
0x00ec…011b at0006 = ╱45╱E╱ // 0xf2 @0x6
0x00ec…011b at0007 = ╱53╱S╱ // 0xf3 @0x7
0x00ec…011b at0008 = ╱ef╱$╱ // 0xf4 @0x8
0x00ec…011b at0009 = ╱ed╱(╱ // 0xf5 @0x9
0x00ec…011b at000a = ╱31╱1╱ // 0xf6 @0xa
0x00ec…011b at000b = ╱35╱5╱ // 0xf7 @0xb
0x00ec…011b at000c = ╱fe0000f004╱ // 0xf8 @0xc
0x00ec…011b at0011 = ╱ee╱)╱ // 0xfd @0x11
0x00ec…011b at0012 = ╱ec╱,╱ // 0xfe @0x12
0x00ec…011b at0013 = ╱4f╱O╱ // 0xff @0x13
0x00ec…011b at0014 = ╱50╱P╱ // 0x100 @0x14
0x00ec…011b at0015 = ╱31╱1╱ // 0x101 @0x15
0x00ec…011b at0016 = ╱ef╱$╱ // 0x102 @0x16
0x00ec…011b at0017 = ╱ed╱(╱ // 0x103 @0x17
0x00ec…011b at0018 = ╱31╱1╱ // 0x104 @0x18
0x00ec…011b at0019 = ╱32╱2╱ // 0x105 @0x19
0x00ec…011b at001a = ╱fe0000c004╱ // 0x106 @0x1a
0x00ec…011b at001f = ╱ee╱)╱ // 0x10b @0x1f
0x00ec…011b at0020 = ╱ec╱,╱ // 0x10c @0x20
0x00ec…011b at0021 = ╱4f╱O╱ // 0x10d @0x21
0x00ec…011b at0022 = ╱50╱P╱ // 0x10e @0x22
0x00ec…011b at0023 = ╱32╱2╱ // 0x10f @0x23
0x00ec…011b at0024 = ╱ef╱$╱ // 0x110 @0x24
0x00ec…011b at0025 = ╱ed╱(╱ // 0x111 @0x25
0x00ec…011b at0026 = ╱31╱1╱ // 0x112 @0x26
0x00ec…011b at0027 = ╱32╱2╱ // 0x113 @0x27
0x00ec…011b at0028 = ╱fe0000c004╱ // 0x114 @0x28
0x00ec…011b at002d = ╱ee╱)╱ // 0x119 @0x2d
0x00ec…011b at002e = EOL // 0x11a @0x2e
0x00ec…011b }
0x011b…013d 8e94 0220 DIM FIL1$(16),PCT$(12)
0x011b…013d LineComalBin {
0x011b…013d ptr = 0x8e94 // 0x11b @0x0
0x011b…013d lno = 0x00dc // 0x11d @0x2
0x011b…013d at0004 = ╱87╱ DIM ╱ // 0x11f @0x4
0x011b…013d at0005 = ╱46╱F╱ // 0x120 @0x5
0x011b…013d at0006 = ╱49╱I╱ // 0x121 @0x6
0x011b…013d at0007 = ╱4c╱L╱ // 0x122 @0x7
0x011b…013d at0008 = ╱31╱1╱ // 0x123 @0x8
0x011b…013d at0009 = ╱ef╱$╱ // 0x124 @0x9
0x011b…013d at000a = ╱ed╱(╱ // 0x125 @0xa
0x011b…013d at000b = ╱31╱1╱ // 0x126 @0xb
0x011b…013d at000c = ╱36╱6╱ // 0x127 @0xc
0x011b…013d at000d = ╱fe00008005╱ // 0x128 @0xd
0x011b…013d at0012 = ╱ee╱)╱ // 0x12d @0x12
0x011b…013d at0013 = ╱ec╱,╱ // 0x12e @0x13
0x011b…013d at0014 = ╱50╱P╱ // 0x12f @0x14
0x011b…013d at0015 = ╱43╱C╱ // 0x130 @0x15
0x011b…013d at0016 = ╱54╱T╱ // 0x131 @0x16
0x011b…013d at0017 = ╱ef╱$╱ // 0x132 @0x17
0x011b…013d at0018 = ╱ed╱(╱ // 0x133 @0x18
0x011b…013d at0019 = ╱31╱1╱ // 0x134 @0x19
0x011b…013d at001a = ╱32╱2╱ // 0x135 @0x1a
0x011b…013d at001b = ╱fe0000c004╱ // 0x136 @0x1b
0x011b…013d at0020 = ╱ee╱)╱ // 0x13b @0x20
0x011b…013d at0021 = EOL // 0x13c @0x21
0x011b…013d }
0x013d…0188 8edf 0230 DIM RESUL$(12),RESUL1$(12),D1$(6),D2$(6),DAD$(6)
0x013d…0188 LineComalBin {
0x013d…0188 ptr = 0x8edf // 0x13d @0x0
0x013d…0188 lno = 0x00e6 // 0x13f @0x2
0x013d…0188 at0004 = ╱87╱ DIM ╱ // 0x141 @0x4
0x013d…0188 at0005 = ╱52╱R╱ // 0x142 @0x5
0x013d…0188 at0006 = ╱45╱E╱ // 0x143 @0x6
0x013d…0188 at0007 = ╱53╱S╱ // 0x144 @0x7
0x013d…0188 at0008 = ╱55╱U╱ // 0x145 @0x8
0x013d…0188 at0009 = ╱4c╱L╱ // 0x146 @0x9
0x013d…0188 at000a = ╱ef╱$╱ // 0x147 @0xa
0x013d…0188 at000b = ╱ed╱(╱ // 0x148 @0xb
0x013d…0188 at000c = ╱31╱1╱ // 0x149 @0xc
0x013d…0188 at000d = ╱32╱2╱ // 0x14a @0xd
0x013d…0188 at000e = ╱fe0000c004╱ // 0x14b @0xe
0x013d…0188 at0013 = ╱ee╱)╱ // 0x150 @0x13
0x013d…0188 at0014 = ╱ec╱,╱ // 0x151 @0x14
0x013d…0188 at0015 = ╱52╱R╱ // 0x152 @0x15
0x013d…0188 at0016 = ╱45╱E╱ // 0x153 @0x16
0x013d…0188 at0017 = ╱53╱S╱ // 0x154 @0x17
0x013d…0188 at0018 = ╱55╱U╱ // 0x155 @0x18
0x013d…0188 at0019 = ╱4c╱L╱ // 0x156 @0x19
0x013d…0188 at001a = ╱31╱1╱ // 0x157 @0x1a
0x013d…0188 at001b = ╱ef╱$╱ // 0x158 @0x1b
0x013d…0188 at001c = ╱ed╱(╱ // 0x159 @0x1c
0x013d…0188 at001d = ╱31╱1╱ // 0x15a @0x1d
0x013d…0188 at001e = ╱32╱2╱ // 0x15b @0x1e
0x013d…0188 at001f = ╱fe0000c004╱ // 0x15c @0x1f
0x013d…0188 at0024 = ╱ee╱)╱ // 0x161 @0x24
0x013d…0188 at0025 = ╱ec╱,╱ // 0x162 @0x25
0x013d…0188 at0026 = ╱44╱D╱ // 0x163 @0x26
0x013d…0188 at0027 = ╱31╱1╱ // 0x164 @0x27
0x013d…0188 at0028 = ╱ef╱$╱ // 0x165 @0x28
0x013d…0188 at0029 = ╱ed╱(╱ // 0x166 @0x29
0x013d…0188 at002a = ╱36╱6╱ // 0x167 @0x2a
0x013d…0188 at002b = ╱fe0000c003╱ // 0x168 @0x2b
0x013d…0188 at0030 = ╱ee╱)╱ // 0x16d @0x30
0x013d…0188 at0031 = ╱ec╱,╱ // 0x16e @0x31
0x013d…0188 at0032 = ╱44╱D╱ // 0x16f @0x32
0x013d…0188 at0033 = ╱32╱2╱ // 0x170 @0x33
0x013d…0188 at0034 = ╱ef╱$╱ // 0x171 @0x34
0x013d…0188 at0035 = ╱ed╱(╱ // 0x172 @0x35
0x013d…0188 at0036 = ╱36╱6╱ // 0x173 @0x36
0x013d…0188 at0037 = ╱fe0000c003╱ // 0x174 @0x37
0x013d…0188 at003c = ╱ee╱)╱ // 0x179 @0x3c
0x013d…0188 at003d = ╱ec╱,╱ // 0x17a @0x3d
0x013d…0188 at003e = ╱44╱D╱ // 0x17b @0x3e
0x013d…0188 at003f = ╱41╱A╱ // 0x17c @0x3f
0x013d…0188 at0040 = ╱44╱D╱ // 0x17d @0x40
0x013d…0188 at0041 = ╱ef╱$╱ // 0x17e @0x41
0x013d…0188 at0042 = ╱ed╱(╱ // 0x17f @0x42
0x013d…0188 at0043 = ╱36╱6╱ // 0x180 @0x43
0x013d…0188 at0044 = ╱fe0000c003╱ // 0x181 @0x44
0x013d…0188 at0049 = ╱ee╱)╱ // 0x186 @0x49
0x013d…0188 at004a = EOL // 0x187 @0x4a
0x013d…0188 }
0x0188…019b 8ef2 0240 DIM FIL$(16)
0x0188…019b LineComalBin {
0x0188…019b ptr = 0x8ef2 // 0x188 @0x0
0x0188…019b lno = 0x00f0 // 0x18a @0x2
0x0188…019b at0004 = ╱87╱ DIM ╱ // 0x18c @0x4
0x0188…019b at0005 = ╱46╱F╱ // 0x18d @0x5
0x0188…019b at0006 = ╱49╱I╱ // 0x18e @0x6
0x0188…019b at0007 = ╱4c╱L╱ // 0x18f @0x7
0x0188…019b at0008 = ╱ef╱$╱ // 0x190 @0x8
0x0188…019b at0009 = ╱ed╱(╱ // 0x191 @0x9
0x0188…019b at000a = ╱31╱1╱ // 0x192 @0xa
0x0188…019b at000b = ╱36╱6╱ // 0x193 @0xb
0x0188…019b at000c = ╱fe00008005╱ // 0x194 @0xc
0x0188…019b at0011 = ╱ee╱)╱ // 0x199 @0x11
0x0188…019b at0012 = EOL // 0x19a @0x12
0x0188…019b }
0x019b…01ed 8f44 0250 DIM EN$(12),BE$(12),GRUPPE$(6),GRUPEN$(12),GRUPBEL$(12)
0x019b…01ed LineComalBin {
0x019b…01ed ptr = 0x8f44 // 0x19b @0x0
0x019b…01ed lno = 0x00fa // 0x19d @0x2
0x019b…01ed at0004 = ╱87╱ DIM ╱ // 0x19f @0x4
0x019b…01ed at0005 = ╱45╱E╱ // 0x1a0 @0x5
0x019b…01ed at0006 = ╱4e╱N╱ // 0x1a1 @0x6
0x019b…01ed at0007 = ╱ef╱$╱ // 0x1a2 @0x7
0x019b…01ed at0008 = ╱ed╱(╱ // 0x1a3 @0x8
0x019b…01ed at0009 = ╱31╱1╱ // 0x1a4 @0x9
0x019b…01ed at000a = ╱32╱2╱ // 0x1a5 @0xa
0x019b…01ed at000b = ╱fe0000c004╱ // 0x1a6 @0xb
0x019b…01ed at0010 = ╱ee╱)╱ // 0x1ab @0x10
0x019b…01ed at0011 = ╱ec╱,╱ // 0x1ac @0x11
0x019b…01ed at0012 = ╱42╱B╱ // 0x1ad @0x12
0x019b…01ed at0013 = ╱45╱E╱ // 0x1ae @0x13
0x019b…01ed at0014 = ╱ef╱$╱ // 0x1af @0x14
0x019b…01ed at0015 = ╱ed╱(╱ // 0x1b0 @0x15
0x019b…01ed at0016 = ╱31╱1╱ // 0x1b1 @0x16
0x019b…01ed at0017 = ╱32╱2╱ // 0x1b2 @0x17
0x019b…01ed at0018 = ╱fe0000c004╱ // 0x1b3 @0x18
0x019b…01ed at001d = ╱ee╱)╱ // 0x1b8 @0x1d
0x019b…01ed at001e = ╱ec╱,╱ // 0x1b9 @0x1e
0x019b…01ed at001f = ╱47╱G╱ // 0x1ba @0x1f
0x019b…01ed at0020 = ╱52╱R╱ // 0x1bb @0x20
0x019b…01ed at0021 = ╱55╱U╱ // 0x1bc @0x21
0x019b…01ed at0022 = ╱50╱P╱ // 0x1bd @0x22
0x019b…01ed at0023 = ╱50╱P╱ // 0x1be @0x23
0x019b…01ed at0024 = ╱45╱E╱ // 0x1bf @0x24
0x019b…01ed at0025 = ╱ef╱$╱ // 0x1c0 @0x25
0x019b…01ed at0026 = ╱ed╱(╱ // 0x1c1 @0x26
0x019b…01ed at0027 = ╱36╱6╱ // 0x1c2 @0x27
0x019b…01ed at0028 = ╱fe0000c003╱ // 0x1c3 @0x28
0x019b…01ed at002d = ╱ee╱)╱ // 0x1c8 @0x2d
0x019b…01ed at002e = ╱ec╱,╱ // 0x1c9 @0x2e
0x019b…01ed at002f = ╱47╱G╱ // 0x1ca @0x2f
0x019b…01ed at0030 = ╱52╱R╱ // 0x1cb @0x30
0x019b…01ed at0031 = ╱55╱U╱ // 0x1cc @0x31
0x019b…01ed at0032 = ╱50╱P╱ // 0x1cd @0x32
0x019b…01ed at0033 = ╱45╱E╱ // 0x1ce @0x33
0x019b…01ed at0034 = ╱4e╱N╱ // 0x1cf @0x34
0x019b…01ed at0035 = ╱ef╱$╱ // 0x1d0 @0x35
0x019b…01ed at0036 = ╱ed╱(╱ // 0x1d1 @0x36
0x019b…01ed at0037 = ╱31╱1╱ // 0x1d2 @0x37
0x019b…01ed at0038 = ╱32╱2╱ // 0x1d3 @0x38
0x019b…01ed at0039 = ╱fe0000c004╱ // 0x1d4 @0x39
0x019b…01ed at003e = ╱ee╱)╱ // 0x1d9 @0x3e
0x019b…01ed at003f = ╱ec╱,╱ // 0x1da @0x3f
0x019b…01ed at0040 = ╱47╱G╱ // 0x1db @0x40
0x019b…01ed at0041 = ╱52╱R╱ // 0x1dc @0x41
0x019b…01ed at0042 = ╱55╱U╱ // 0x1dd @0x42
0x019b…01ed at0043 = ╱50╱P╱ // 0x1de @0x43
0x019b…01ed at0044 = ╱42╱B╱ // 0x1df @0x44
0x019b…01ed at0045 = ╱45╱E╱ // 0x1e0 @0x45
0x019b…01ed at0046 = ╱4c╱L╱ // 0x1e1 @0x46
0x019b…01ed at0047 = ╱ef╱$╱ // 0x1e2 @0x47
0x019b…01ed at0048 = ╱ed╱(╱ // 0x1e3 @0x48
0x019b…01ed at0049 = ╱31╱1╱ // 0x1e4 @0x49
0x019b…01ed at004a = ╱32╱2╱ // 0x1e5 @0x4a
0x019b…01ed at004b = ╱fe0000c004╱ // 0x1e6 @0x4b
0x019b…01ed at0050 = ╱ee╱)╱ // 0x1eb @0x50
0x019b…01ed at0051 = EOL // 0x1ec @0x51
0x019b…01ed }
0x01ed…0205 8f5c 0260 PROC CALC(AR3,B1,B2,ES)
0x01ed…0205 LineComalBin {
0x01ed…0205 ptr = 0x8f5c // 0x1ed @0x0
0x01ed…0205 lno = 0x0104 // 0x1ef @0x2
0x01ed…0205 at0004 = ╱9e╱ PROC ╱ // 0x1f1 @0x4
0x01ed…0205 at0005 = ╱43╱C╱ // 0x1f2 @0x5
0x01ed…0205 at0006 = ╱41╱A╱ // 0x1f3 @0x6
0x01ed…0205 at0007 = ╱4c╱L╱ // 0x1f4 @0x7
0x01ed…0205 at0008 = ╱43╱C╱ // 0x1f5 @0x8
0x01ed…0205 at0009 = ╱ed╱(╱ // 0x1f6 @0x9
0x01ed…0205 at000a = ╱41╱A╱ // 0x1f7 @0xa
0x01ed…0205 at000b = ╱52╱R╱ // 0x1f8 @0xb
0x01ed…0205 at000c = ╱33╱3╱ // 0x1f9 @0xc
0x01ed…0205 at000d = ╱ec╱,╱ // 0x1fa @0xd
0x01ed…0205 at000e = ╱42╱B╱ // 0x1fb @0xe
0x01ed…0205 at000f = ╱31╱1╱ // 0x1fc @0xf
0x01ed…0205 at0010 = ╱ec╱,╱ // 0x1fd @0x10
0x01ed…0205 at0011 = ╱42╱B╱ // 0x1fe @0x11
0x01ed…0205 at0012 = ╱32╱2╱ // 0x1ff @0x12
0x01ed…0205 at0013 = ╱ec╱,╱ // 0x200 @0x13
0x01ed…0205 at0014 = ╱45╱E╱ // 0x201 @0x14
0x01ed…0205 at0015 = ╱53╱S╱ // 0x202 @0x15
0x01ed…0205 at0016 = ╱ee╱)╱ // 0x203 @0x16
0x01ed…0205 at0017 = EOL // 0x204 @0x17
0x01ed…0205 }
0x0205…024c 8fa3 0270 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0205…024c LineComalBin {
0x0205…024c ptr = 0x8fa3 // 0x205 @0x0
0x0205…024c lno = 0x010e // 0x207 @0x2
0x0205…024c at0004 = ╱52╱R╱ // 0x209 @0x4
0x0205…024c at0005 = ╱45╱E╱ // 0x20a @0x5
0x0205…024c at0006 = ╱53╱S╱ // 0x20b @0x6
0x0205…024c at0007 = ╱ef╱$╱ // 0x20c @0x7
0x0205…024c at0008 = ╱dc╱=╱ // 0x20d @0x8
0x0205…024c at0009 = ╱45╱E╱ // 0x20e @0x9
0x0205…024c at000a = ╱53╱S╱ // 0x20f @0xa
0x0205…024c at000b = ╱ef╱$╱ // 0x210 @0xb
0x0205…024c at000c = ╱eb╱;╱ // 0x211 @0xc
0x0205…024c at000d = ╱4f╱O╱ // 0x212 @0xd
0x0205…024c at000e = ╱50╱P╱ // 0x213 @0xe
0x0205…024c at000f = ╱31╱1╱ // 0x214 @0xf
0x0205…024c at0010 = ╱ef╱$╱ // 0x215 @0x10
0x0205…024c at0011 = ╱dc╱=╱ // 0x216 @0x11
0x0205…024c at0012 = ╱42╱B╱ // 0x217 @0x12
0x0205…024c at0013 = ╱31╱1╱ // 0x218 @0x13
0x0205…024c at0014 = ╱ef╱$╱ // 0x219 @0x14
0x0205…024c at0015 = ╱eb╱;╱ // 0x21a @0x15
0x0205…024c at0016 = ╱4f╱O╱ // 0x21b @0x16
0x0205…024c at0017 = ╱50╱P╱ // 0x21c @0x17
0x0205…024c at0018 = ╱32╱2╱ // 0x21d @0x18
0x0205…024c at0019 = ╱ef╱$╱ // 0x21e @0x19
0x0205…024c at001a = ╱dc╱=╱ // 0x21f @0x1a
0x0205…024c at001b = ╱42╱B╱ // 0x220 @0x1b
0x0205…024c at001c = ╱32╱2╱ // 0x221 @0x1c
0x0205…024c at001d = ╱ef╱$╱ // 0x222 @0x1d
0x0205…024c at001e = ╱eb╱;╱ // 0x223 @0x1e
0x0205…024c at001f = ╱53╱S╱ // 0x224 @0x1f
0x0205…024c at0020 = ╱49╱I╱ // 0x225 @0x20
0x0205…024c at0021 = ╱dc╱=╱ // 0x226 @0x21
0x0205…024c at0022 = ╱42╱B╱ // 0x227 @0x22
0x0205…024c at0023 = ╱eb╱;╱ // 0x228 @0x23
0x0205…024c at0024 = ╱46╱F╱ // 0x229 @0x24
0x0205…024c at0025 = ╱4c╱L╱ // 0x22a @0x25
0x0205…024c at0026 = ╱41╱A╱ // 0x22b @0x26
0x0205…024c at0027 = ╱47╱G╱ // 0x22c @0x27
0x0205…024c at0028 = ╱dc╱=╱ // 0x22d @0x28
0x0205…024c at0029 = ╱42╱B╱ // 0x22e @0x29
0x0205…024c at002a = ╱eb╱;╱ // 0x22f @0x2a
0x0205…024c at002b = ╱41╱A╱ // 0x230 @0x2b
0x0205…024c at002c = ╱52╱R╱ // 0x231 @0x2c
0x0205…024c at002d = ╱54╱T╱ // 0x232 @0x2d
0x0205…024c at002e = ╱dc╱=╱ // 0x233 @0x2e
0x0205…024c at002f = ╱41╱A╱ // 0x234 @0x2f
0x0205…024c at0030 = ╱52╱R╱ // 0x235 @0x30
0x0205…024c at0031 = ╱33╱3╱ // 0x236 @0x31
0x0205…024c at0032 = ╱e3╱-╱ // 0x237 @0x32
0x0205…024c at0033 = ╱36╱6╱ // 0x238 @0x33
0x0205…024c at0034 = ╱fe0000c003╱ // 0x239 @0x34
0x0205…024c at0039 = ╱e4╱*╱ // 0x23e @0x39
0x0205…024c at003a = ╱ed╱(╱ // 0x23f @0x3a
0x0205…024c at003b = ╱41╱A╱ // 0x240 @0x3b
0x0205…024c at003c = ╱52╱R╱ // 0x241 @0x3c
0x0205…024c at003d = ╱33╱3╱ // 0x242 @0x3d
0x0205…024c at003e = ╱de╱>╱ // 0x243 @0x3e
0x0205…024c at003f = ╱35╱5╱ // 0x244 @0x3f
0x0205…024c at0040 = ╱fe0000a003╱ // 0x245 @0x40
0x0205…024c at0045 = ╱ee╱)╱ // 0x24a @0x45
0x0205…024c at0046 = EOL // 0x24b @0x46
0x0205…024c }
0x024c…0262 8fb9 0280 CALL "P641210:REGN"
0x024c…0262 LineComalBin {
0x024c…0262 ptr = 0x8fb9 // 0x24c @0x0
0x024c…0262 lno = 0x0118 // 0x24e @0x2
0x024c…0262 at0004 = ╱ad4553╱ CALL ╱ // 0x250 @0x4
0x024c…0262 at0007 = ╱22╱"╱ // 0x253 @0x7
0x024c…0262 at0008 = ╱50╱P╱ // 0x254 @0x8
0x024c…0262 at0009 = ╱36╱6╱ // 0x255 @0x9
0x024c…0262 at000a = ╱34╱4╱ // 0x256 @0xa
0x024c…0262 at000b = ╱31╱1╱ // 0x257 @0xb
0x024c…0262 at000c = ╱32╱2╱ // 0x258 @0xc
0x024c…0262 at000d = ╱31╱1╱ // 0x259 @0xd
0x024c…0262 at000e = ╱30╱0╱ // 0x25a @0xe
0x024c…0262 at000f = ╱3a╱:╱ // 0x25b @0xf
0x024c…0262 at0010 = ╱52╱R╱ // 0x25c @0x10
0x024c…0262 at0011 = ╱45╱E╱ // 0x25d @0x11
0x024c…0262 at0012 = ╱47╱G╱ // 0x25e @0x12
0x024c…0262 at0013 = ╱4e╱N╱ // 0x25f @0x13
0x024c…0262 at0014 = ╱22╱"╱ // 0x260 @0x14
0x024c…0262 at0015 = EOL // 0x261 @0x15
0x024c…0262 }
0x0262…0279 8fd0 0290 IF AR3<6 AND FLAG THEN STOP
0x0262…0279 LineComalBin {
0x0262…0279 ptr = 0x8fd0 // 0x262 @0x0
0x0262…0279 lno = 0x0122 // 0x264 @0x2
0x0262…0279 at0004 = ╱82╱ IF ╱ // 0x266 @0x4
0x0262…0279 at0005 = ╱41╱A╱ // 0x267 @0x5
0x0262…0279 at0006 = ╱52╱R╱ // 0x268 @0x6
0x0262…0279 at0007 = ╱33╱3╱ // 0x269 @0x7
0x0262…0279 at0008 = ╱dd╱<╱ // 0x26a @0x8
0x0262…0279 at0009 = ╱36╱6╱ // 0x26b @0x9
0x0262…0279 at000a = ╱fe0000c003╱ // 0x26c @0xa
0x0262…0279 at000f = ╱da╱ AND ╱ // 0x271 @0xf
0x0262…0279 at0010 = ╱46╱F╱ // 0x272 @0x10
0x0262…0279 at0011 = ╱4c╱L╱ // 0x273 @0x11
0x0262…0279 at0012 = ╱41╱A╱ // 0x274 @0x12
0x0262…0279 at0013 = ╱47╱G╱ // 0x275 @0x13
0x0262…0279 at0014 = ╱b6╱ THEN ╱ // 0x276 @0x14
0x0262…0279 at0015 = ╱8d╱ STOP ╱ // 0x277 @0x15
0x0262…0279 at0016 = EOL // 0x278 @0x16
0x0262…0279 }
0x0279…0286 8fdd 0300 ES$=RES$
0x0279…0286 LineComalBin {
0x0279…0286 ptr = 0x8fdd // 0x279 @0x0
0x0279…0286 lno = 0x012c // 0x27b @0x2
0x0279…0286 at0004 = ╱45╱E╱ // 0x27d @0x4
0x0279…0286 at0005 = ╱53╱S╱ // 0x27e @0x5
0x0279…0286 at0006 = ╱ef╱$╱ // 0x27f @0x6
0x0279…0286 at0007 = ╱dc╱=╱ // 0x280 @0x7
0x0279…0286 at0008 = ╱52╱R╱ // 0x281 @0x8
0x0279…0286 at0009 = ╱45╱E╱ // 0x282 @0x9
0x0279…0286 at000a = ╱53╱S╱ // 0x283 @0xa
0x0279…0286 at000b = ╱ef╱$╱ // 0x284 @0xb
0x0279…0286 at000c = EOL // 0x285 @0xc
0x0279…0286 }
0x0286…028c 8fe3 0310 ENDPROC
0x0286…028c LineComalBin {
0x0286…028c ptr = 0x8fe3 // 0x286 @0x0
0x0286…028c lno = 0x0136 // 0x288 @0x2
0x0286…028c at0004 = ╱9f╱ ENDPROC ╱ // 0x28a @0x4
0x0286…028c at0005 = EOL // 0x28b @0x5
0x0286…028c }
0x028c…0299 8ff0 0320 PROC INDVIRK
0x028c…0299 LineComalBin {
0x028c…0299 ptr = 0x8ff0 // 0x28c @0x0
0x028c…0299 lno = 0x0140 // 0x28e @0x2
0x028c…0299 at0004 = ╱9e╱ PROC ╱ // 0x290 @0x4
0x028c…0299 at0005 = ╱49╱I╱ // 0x291 @0x5
0x028c…0299 at0006 = ╱4e╱N╱ // 0x292 @0x6
0x028c…0299 at0007 = ╱44╱D╱ // 0x293 @0x7
0x028c…0299 at0008 = ╱56╱V╱ // 0x294 @0x8
0x028c…0299 at0009 = ╱49╱I╱ // 0x295 @0x9
0x028c…0299 at000a = ╱52╱R╱ // 0x296 @0xa
0x028c…0299 at000b = ╱4b╱K╱ // 0x297 @0xb
0x028c…0299 at000c = EOL // 0x298 @0xc
0x028c…0299 }
0x0299…02a5 8ffc 0330 OPEN FIL$,W
0x0299…02a5 LineComalBin {
0x0299…02a5 ptr = 0x8ffc // 0x299 @0x0
0x0299…02a5 lno = 0x014a // 0x29b @0x2
0x0299…02a5 at0004 = ╱a7╱ OPEN ╱ // 0x29d @0x4
0x0299…02a5 at0005 = ╱46╱F╱ // 0x29e @0x5
0x0299…02a5 at0006 = ╱49╱I╱ // 0x29f @0x6
0x0299…02a5 at0007 = ╱4c╱L╱ // 0x2a0 @0x7
0x0299…02a5 at0008 = ╱ef╱$╱ // 0x2a1 @0x8
0x0299…02a5 at0009 = ╱ec╱,╱ // 0x2a2 @0x9
0x0299…02a5 at000a = ╱57╱W╱ // 0x2a3 @0xa
0x0299…02a5 at000b = EOL // 0x2a4 @0xb
0x0299…02a5 }
0x02a5…02b9 9010 0340 EXEC FEJL(B,B,FIL$)
0x02a5…02b9 LineComalBin {
0x02a5…02b9 ptr = 0x9010 // 0x2a5 @0x0
0x02a5…02b9 lno = 0x0154 // 0x2a7 @0x2
0x02a5…02b9 at0004 = ╱9d╱ EXEC ╱ // 0x2a9 @0x4
0x02a5…02b9 at0005 = ╱46╱F╱ // 0x2aa @0x5
0x02a5…02b9 at0006 = ╱45╱E╱ // 0x2ab @0x6
0x02a5…02b9 at0007 = ╱4a╱J╱ // 0x2ac @0x7
0x02a5…02b9 at0008 = ╱4c╱L╱ // 0x2ad @0x8
0x02a5…02b9 at0009 = ╱ed╱(╱ // 0x2ae @0x9
0x02a5…02b9 at000a = ╱42╱B╱ // 0x2af @0xa
0x02a5…02b9 at000b = ╱ec╱,╱ // 0x2b0 @0xb
0x02a5…02b9 at000c = ╱42╱B╱ // 0x2b1 @0xc
0x02a5…02b9 at000d = ╱ec╱,╱ // 0x2b2 @0xd
0x02a5…02b9 at000e = ╱46╱F╱ // 0x2b3 @0xe
0x02a5…02b9 at000f = ╱49╱I╱ // 0x2b4 @0xf
0x02a5…02b9 at0010 = ╱4c╱L╱ // 0x2b5 @0x10
0x02a5…02b9 at0011 = ╱ef╱$╱ // 0x2b6 @0x11
0x02a5…02b9 at0012 = ╱ee╱)╱ // 0x2b7 @0x12
0x02a5…02b9 at0013 = EOL // 0x2b8 @0x13
0x02a5…02b9 }
0x02b9…02db 9032 0350 GET FIL$,G:P7$,SLJNR,MLMNR,ATPLM
0x02b9…02db LineComalBin {
0x02b9…02db ptr = 0x9032 // 0x2b9 @0x0
0x02b9…02db lno = 0x015e // 0x2bb @0x2
0x02b9…02db at0004 = ╱a9╱ GET ╱ // 0x2bd @0x4
0x02b9…02db at0005 = ╱46╱F╱ // 0x2be @0x5
0x02b9…02db at0006 = ╱49╱I╱ // 0x2bf @0x6
0x02b9…02db at0007 = ╱4c╱L╱ // 0x2c0 @0x7
0x02b9…02db at0008 = ╱ef╱$╱ // 0x2c1 @0x8
0x02b9…02db at0009 = ╱ec╱,╱ // 0x2c2 @0x9
0x02b9…02db at000a = ╱47╱G╱ // 0x2c3 @0xa
0x02b9…02db at000b = ╱f0╱:╱ // 0x2c4 @0xb
0x02b9…02db at000c = ╱50╱P╱ // 0x2c5 @0xc
0x02b9…02db at000d = ╱37╱7╱ // 0x2c6 @0xd
0x02b9…02db at000e = ╱ef╱$╱ // 0x2c7 @0xe
0x02b9…02db at000f = ╱ec╱,╱ // 0x2c8 @0xf
0x02b9…02db at0010 = ╱53╱S╱ // 0x2c9 @0x10
0x02b9…02db at0011 = ╱4c╱L╱ // 0x2ca @0x11
0x02b9…02db at0012 = ╱4a╱J╱ // 0x2cb @0x12
0x02b9…02db at0013 = ╱4e╱N╱ // 0x2cc @0x13
0x02b9…02db at0014 = ╱52╱R╱ // 0x2cd @0x14
0x02b9…02db at0015 = ╱ec╱,╱ // 0x2ce @0x15
0x02b9…02db at0016 = ╱4d╱M╱ // 0x2cf @0x16
0x02b9…02db at0017 = ╱4c╱L╱ // 0x2d0 @0x17
0x02b9…02db at0018 = ╱4d╱M╱ // 0x2d1 @0x18
0x02b9…02db at0019 = ╱4e╱N╱ // 0x2d2 @0x19
0x02b9…02db at001a = ╱52╱R╱ // 0x2d3 @0x1a
0x02b9…02db at001b = ╱ec╱,╱ // 0x2d4 @0x1b
0x02b9…02db at001c = ╱41╱A╱ // 0x2d5 @0x1c
0x02b9…02db at001d = ╱54╱T╱ // 0x2d6 @0x1d
0x02b9…02db at001e = ╱50╱P╱ // 0x2d7 @0x1e
0x02b9…02db at001f = ╱4c╱L╱ // 0x2d8 @0x1f
0x02b9…02db at0020 = ╱4d╱M╱ // 0x2d9 @0x20
0x02b9…02db at0021 = EOL // 0x2da @0x21
0x02b9…02db }
0x02db…02ec 9043 0355 GET FIL$,V:DAD$
0x02db…02ec LineComalBin {
0x02db…02ec ptr = 0x9043 // 0x2db @0x0
0x02db…02ec lno = 0x0163 // 0x2dd @0x2
0x02db…02ec at0004 = ╱a9╱ GET ╱ // 0x2df @0x4
0x02db…02ec at0005 = ╱46╱F╱ // 0x2e0 @0x5
0x02db…02ec at0006 = ╱49╱I╱ // 0x2e1 @0x6
0x02db…02ec at0007 = ╱4c╱L╱ // 0x2e2 @0x7
0x02db…02ec at0008 = ╱ef╱$╱ // 0x2e3 @0x8
0x02db…02ec at0009 = ╱ec╱,╱ // 0x2e4 @0x9
0x02db…02ec at000a = ╱56╱V╱ // 0x2e5 @0xa
0x02db…02ec at000b = ╱f0╱:╱ // 0x2e6 @0xb
0x02db…02ec at000c = ╱44╱D╱ // 0x2e7 @0xc
0x02db…02ec at000d = ╱41╱A╱ // 0x2e8 @0xd
0x02db…02ec at000e = ╱44╱D╱ // 0x2e9 @0xe
0x02db…02ec at000f = ╱ef╱$╱ // 0x2ea @0xf
0x02db…02ec at0010 = EOL // 0x2eb @0x10
0x02db…02ec }
0x02ec…02f2 9049 0360 ENDPROC
0x02ec…02f2 LineComalBin {
0x02ec…02f2 ptr = 0x9049 // 0x2ec @0x0
0x02ec…02f2 lno = 0x0168 // 0x2ee @0x2
0x02ec…02f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x2f0 @0x4
0x02ec…02f2 at0005 = EOL // 0x2f1 @0x5
0x02ec…02f2 }
0x02f2…0306 905d 0370 PROC FEJL(P1,P2,P3)
0x02f2…0306 LineComalBin {
0x02f2…0306 ptr = 0x905d // 0x2f2 @0x0
0x02f2…0306 lno = 0x0172 // 0x2f4 @0x2
0x02f2…0306 at0004 = ╱9e╱ PROC ╱ // 0x2f6 @0x4
0x02f2…0306 at0005 = ╱46╱F╱ // 0x2f7 @0x5
0x02f2…0306 at0006 = ╱45╱E╱ // 0x2f8 @0x6
0x02f2…0306 at0007 = ╱4a╱J╱ // 0x2f9 @0x7
0x02f2…0306 at0008 = ╱4c╱L╱ // 0x2fa @0x8
0x02f2…0306 at0009 = ╱ed╱(╱ // 0x2fb @0x9
0x02f2…0306 at000a = ╱50╱P╱ // 0x2fc @0xa
0x02f2…0306 at000b = ╱31╱1╱ // 0x2fd @0xb
0x02f2…0306 at000c = ╱ec╱,╱ // 0x2fe @0xc
0x02f2…0306 at000d = ╱50╱P╱ // 0x2ff @0xd
0x02f2…0306 at000e = ╱32╱2╱ // 0x300 @0xe
0x02f2…0306 at000f = ╱ec╱,╱ // 0x301 @0xf
0x02f2…0306 at0010 = ╱50╱P╱ // 0x302 @0x10
0x02f2…0306 at0011 = ╱33╱3╱ // 0x303 @0x11
0x02f2…0306 at0012 = ╱ee╱)╱ // 0x304 @0x12
0x02f2…0306 at0013 = EOL // 0x305 @0x13
0x02f2…0306 }
0x0306…0315 906c 0380 IF STATUS(P3$)<>B THEN
0x0306…0315 LineComalBin {
0x0306…0315 ptr = 0x906c // 0x306 @0x0
0x0306…0315 lno = 0x017c // 0x308 @0x2
0x0306…0315 at0004 = ╱9c╱ IF ╱ // 0x30a @0x4
0x0306…0315 at0005 = ╱ce╱STATUS╱ // 0x30b @0x5
0x0306…0315 at0006 = ╱ed╱(╱ // 0x30c @0x6
0x0306…0315 at0007 = ╱50╱P╱ // 0x30d @0x7
0x0306…0315 at0008 = ╱33╱3╱ // 0x30e @0x8
0x0306…0315 at0009 = ╱ef╱$╱ // 0x30f @0x9
0x0306…0315 at000a = ╱ee╱)╱ // 0x310 @0xa
0x0306…0315 at000b = ╱e1╱<>╱ // 0x311 @0xb
0x0306…0315 at000c = ╱42╱B╱ // 0x312 @0xc
0x0306…0315 at000d = ╱b6╱ THEN ╱ // 0x313 @0xd
0x0306…0315 at000e = EOL // 0x314 @0xe
0x0306…0315 }
0x0315…031c 9073 0390 OUTPUT T
0x0315…031c LineComalBin {
0x0315…031c ptr = 0x9073 // 0x315 @0x0
0x0315…031c lno = 0x0186 // 0x317 @0x2
0x0315…031c at0004 = ╱a5╱ OUTPUT ╱ // 0x319 @0x4
0x0315…031c at0005 = ╱54╱T╱ // 0x31a @0x5
0x0315…031c at0006 = EOL // 0x31b @0x6
0x0315…031c }
0x031c…033e 9095 0400 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2
0x031c…033e LineComalBin {
0x031c…033e ptr = 0x9095 // 0x31c @0x0
0x031c…033e lno = 0x0190 // 0x31e @0x2
0x031c…033e at0004 = ╱92╱ PRINT ╱ // 0x320 @0x4
0x031c…033e at0005 = ╱22╱"╱ // 0x321 @0x5
0x031c…033e at0006 = ╱46╱F╱ // 0x322 @0x6
0x031c…033e at0007 = ╱49╱I╱ // 0x323 @0x7
0x031c…033e at0008 = ╱4c╱L╱ // 0x324 @0x8
0x031c…033e at0009 = ╱2d╱-╱ // 0x325 @0x9
0x031c…033e at000a = ╱46╱F╱ // 0x326 @0xa
0x031c…033e at000b = ╱45╱E╱ // 0x327 @0xb
0x031c…033e at000c = ╱4a╱J╱ // 0x328 @0xc
0x031c…033e at000d = ╱4c╱L╱ // 0x329 @0xd
0x031c…033e at000e = ╱20╱…╱ // 0x32a @0xe
0x031c…033e at000f = ╱22╱"╱ // 0x32b @0xf
0x031c…033e at0010 = ╱eb╱;╱ // 0x32c @0x10
0x031c…033e at0011 = ╱50╱P╱ // 0x32d @0x11
0x031c…033e at0012 = ╱33╱3╱ // 0x32e @0x12
0x031c…033e at0013 = ╱ef╱$╱ // 0x32f @0x13
0x031c…033e at0014 = ╱eb╱;╱ // 0x330 @0x14
0x031c…033e at0015 = ╱ce╱STATUS╱ // 0x331 @0x15
0x031c…033e at0016 = ╱ed╱(╱ // 0x332 @0x16
0x031c…033e at0017 = ╱50╱P╱ // 0x333 @0x17
0x031c…033e at0018 = ╱33╱3╱ // 0x334 @0x18
0x031c…033e at0019 = ╱ef╱$╱ // 0x335 @0x19
0x031c…033e at001a = ╱ee╱)╱ // 0x336 @0x1a
0x031c…033e at001b = ╱ec╱,╱ // 0x337 @0x1b
0x031c…033e at001c = ╱50╱P╱ // 0x338 @0x1c
0x031c…033e at001d = ╱31╱1╱ // 0x339 @0x1d
0x031c…033e at001e = ╱eb╱;╱ // 0x33a @0x1e
0x031c…033e at001f = ╱50╱P╱ // 0x33b @0x1f
0x031c…033e at0020 = ╱32╱2╱ // 0x33c @0x20
0x031c…033e at0021 = EOL // 0x33d @0x21
0x031c…033e }
0x033e…0344 909b 0410 STOP
0x033e…0344 LineComalBin {
0x033e…0344 ptr = 0x909b // 0x33e @0x0
0x033e…0344 lno = 0x019a // 0x340 @0x2
0x033e…0344 at0004 = ╱8d╱ STOP ╱ // 0x342 @0x4
0x033e…0344 at0005 = EOL // 0x343 @0x5
0x033e…0344 }
0x0344…034a 90a1 0420 ENDIF
0x0344…034a LineComalBin {
0x0344…034a ptr = 0x90a1 // 0x344 @0x0
0x0344…034a lno = 0x01a4 // 0x346 @0x2
0x0344…034a at0004 = ╱9b╱ ENDIF ╱ // 0x348 @0x4
0x0344…034a at0005 = EOL // 0x349 @0x5
0x0344…034a }
0x034a…0350 90a7 0430 ENDPROC
0x034a…0350 LineComalBin {
0x034a…0350 ptr = 0x90a7 // 0x34a @0x0
0x034a…0350 lno = 0x01ae // 0x34c @0x2
0x034a…0350 at0004 = ╱9f╱ ENDPROC ╱ // 0x34e @0x4
0x034a…0350 at0005 = EOL // 0x34f @0x5
0x034a…0350 }
0x0350…035e 90b5 0440 PROC OPTÆL(N)
0x0350…035e LineComalBin {
0x0350…035e ptr = 0x90b5 // 0x350 @0x0
0x0350…035e lno = 0x01b8 // 0x352 @0x2
0x0350…035e at0004 = ╱9e╱ PROC ╱ // 0x354 @0x4
0x0350…035e at0005 = ╱4f╱O╱ // 0x355 @0x5
0x0350…035e at0006 = ╱50╱P╱ // 0x356 @0x6
0x0350…035e at0007 = ╱54╱T╱ // 0x357 @0x7
0x0350…035e at0008 = ╱5b╱Æ╱ // 0x358 @0x8
0x0350…035e at0009 = ╱4c╱L╱ // 0x359 @0x9
0x0350…035e at000a = ╱ed╱(╱ // 0x35a @0xa
0x0350…035e at000b = ╱4e╱N╱ // 0x35b @0xb
0x0350…035e at000c = ╱ee╱)╱ // 0x35c @0xc
0x0350…035e at000d = EOL // 0x35d @0xd
0x0350…035e }
0x035e…037e 90d5 0450 RESUL$=P7$(11:10)
0x035e…037e LineComalBin {
0x035e…037e ptr = 0x90d5 // 0x35e @0x0
0x035e…037e lno = 0x01c2 // 0x360 @0x2
0x035e…037e at0004 = ╱52╱R╱ // 0x362 @0x4
0x035e…037e at0005 = ╱45╱E╱ // 0x363 @0x5
0x035e…037e at0006 = ╱53╱S╱ // 0x364 @0x6
0x035e…037e at0007 = ╱55╱U╱ // 0x365 @0x7
0x035e…037e at0008 = ╱4c╱L╱ // 0x366 @0x8
0x035e…037e at0009 = ╱ef╱$╱ // 0x367 @0x9
0x035e…037e at000a = ╱dc╱=╱ // 0x368 @0xa
0x035e…037e at000b = ╱50╱P╱ // 0x369 @0xb
0x035e…037e at000c = ╱37╱7╱ // 0x36a @0xc
0x035e…037e at000d = ╱ef╱$╱ // 0x36b @0xd
0x035e…037e at000e = ╱ed╱(╱ // 0x36c @0xe
0x035e…037e at000f = ╱31╱1╱ // 0x36d @0xf
0x035e…037e at0010 = ╱31╱1╱ // 0x36e @0x10
0x035e…037e at0011 = ╱fe0000b004╱ // 0x36f @0x11
0x035e…037e at0016 = ╱f0╱:╱ // 0x374 @0x16
0x035e…037e at0017 = ╱31╱1╱ // 0x375 @0x17
0x035e…037e at0018 = ╱30╱0╱ // 0x376 @0x18
0x035e…037e at0019 = ╱fe0000a004╱ // 0x377 @0x19
0x035e…037e at001e = ╱ee╱)╱ // 0x37c @0x1e
0x035e…037e at001f = EOL // 0x37d @0x1f
0x035e…037e }
0x037e…039f 90f6 0460 RESUL1$=T$(N,7:10)
0x037e…039f LineComalBin {
0x037e…039f ptr = 0x90f6 // 0x37e @0x0
0x037e…039f lno = 0x01cc // 0x380 @0x2
0x037e…039f at0004 = ╱52╱R╱ // 0x382 @0x4
0x037e…039f at0005 = ╱45╱E╱ // 0x383 @0x5
0x037e…039f at0006 = ╱53╱S╱ // 0x384 @0x6
0x037e…039f at0007 = ╱55╱U╱ // 0x385 @0x7
0x037e…039f at0008 = ╱4c╱L╱ // 0x386 @0x8
0x037e…039f at0009 = ╱31╱1╱ // 0x387 @0x9
0x037e…039f at000a = ╱ef╱$╱ // 0x388 @0xa
0x037e…039f at000b = ╱dc╱=╱ // 0x389 @0xb
0x037e…039f at000c = ╱54╱T╱ // 0x38a @0xc
0x037e…039f at000d = ╱ef╱$╱ // 0x38b @0xd
0x037e…039f at000e = ╱ed╱(╱ // 0x38c @0xe
0x037e…039f at000f = ╱4e╱N╱ // 0x38d @0xf
0x037e…039f at0010 = ╱ec╱,╱ // 0x38e @0x10
0x037e…039f at0011 = ╱37╱7╱ // 0x38f @0x11
0x037e…039f at0012 = ╱fe0000e003╱ // 0x390 @0x12
0x037e…039f at0017 = ╱f0╱:╱ // 0x395 @0x17
0x037e…039f at0018 = ╱31╱1╱ // 0x396 @0x18
0x037e…039f at0019 = ╱30╱0╱ // 0x397 @0x19
0x037e…039f at001a = ╱fe0000a004╱ // 0x398 @0x1a
0x037e…039f at001f = ╱ee╱)╱ // 0x39d @0x1f
0x037e…039f at0020 = EOL // 0x39e @0x20
0x037e…039f }
0x039f…03c3 911a 0470 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$)
0x039f…03c3 LineComalBin {
0x039f…03c3 ptr = 0x911a // 0x39f @0x0
0x039f…03c3 lno = 0x01d6 // 0x3a1 @0x2
0x039f…03c3 at0004 = ╱9d╱ EXEC ╱ // 0x3a3 @0x4
0x039f…03c3 at0005 = ╱43╱C╱ // 0x3a4 @0x5
0x039f…03c3 at0006 = ╱41╱A╱ // 0x3a5 @0x6
0x039f…03c3 at0007 = ╱4c╱L╱ // 0x3a6 @0x7
0x039f…03c3 at0008 = ╱43╱C╱ // 0x3a7 @0x8
0x039f…03c3 at0009 = ╱ed╱(╱ // 0x3a8 @0x9
0x039f…03c3 at000a = ╱42╱B╱ // 0x3a9 @0xa
0x039f…03c3 at000b = ╱ec╱,╱ // 0x3aa @0xb
0x039f…03c3 at000c = ╱52╱R╱ // 0x3ab @0xc
0x039f…03c3 at000d = ╱45╱E╱ // 0x3ac @0xd
0x039f…03c3 at000e = ╱53╱S╱ // 0x3ad @0xe
0x039f…03c3 at000f = ╱55╱U╱ // 0x3ae @0xf
0x039f…03c3 at0010 = ╱4c╱L╱ // 0x3af @0x10
0x039f…03c3 at0011 = ╱ef╱$╱ // 0x3b0 @0x11
0x039f…03c3 at0012 = ╱ec╱,╱ // 0x3b1 @0x12
0x039f…03c3 at0013 = ╱52╱R╱ // 0x3b2 @0x13
0x039f…03c3 at0014 = ╱45╱E╱ // 0x3b3 @0x14
0x039f…03c3 at0015 = ╱53╱S╱ // 0x3b4 @0x15
0x039f…03c3 at0016 = ╱55╱U╱ // 0x3b5 @0x16
0x039f…03c3 at0017 = ╱4c╱L╱ // 0x3b6 @0x17
0x039f…03c3 at0018 = ╱31╱1╱ // 0x3b7 @0x18
0x039f…03c3 at0019 = ╱ef╱$╱ // 0x3b8 @0x19
0x039f…03c3 at001a = ╱ec╱,╱ // 0x3b9 @0x1a
0x039f…03c3 at001b = ╱52╱R╱ // 0x3ba @0x1b
0x039f…03c3 at001c = ╱45╱E╱ // 0x3bb @0x1c
0x039f…03c3 at001d = ╱53╱S╱ // 0x3bc @0x1d
0x039f…03c3 at001e = ╱55╱U╱ // 0x3bd @0x1e
0x039f…03c3 at001f = ╱4c╱L╱ // 0x3be @0x1f
0x039f…03c3 at0020 = ╱31╱1╱ // 0x3bf @0x20
0x039f…03c3 at0021 = ╱ef╱$╱ // 0x3c0 @0x21
0x039f…03c3 at0022 = ╱ee╱)╱ // 0x3c1 @0x22
0x039f…03c3 at0023 = EOL // 0x3c2 @0x23
0x039f…03c3 }
0x03c3…03ef 9146 0480 T$(N,7:10)=RESUL1$(V:10)
0x03c3…03ef LineComalBin {
0x03c3…03ef ptr = 0x9146 // 0x3c3 @0x0
0x03c3…03ef lno = 0x01e0 // 0x3c5 @0x2
0x03c3…03ef at0004 = ╱54╱T╱ // 0x3c7 @0x4
0x03c3…03ef at0005 = ╱ef╱$╱ // 0x3c8 @0x5
0x03c3…03ef at0006 = ╱ed╱(╱ // 0x3c9 @0x6
0x03c3…03ef at0007 = ╱4e╱N╱ // 0x3ca @0x7
0x03c3…03ef at0008 = ╱ec╱,╱ // 0x3cb @0x8
0x03c3…03ef at0009 = ╱37╱7╱ // 0x3cc @0x9
0x03c3…03ef at000a = ╱fe0000e003╱ // 0x3cd @0xa
0x03c3…03ef at000f = ╱f0╱:╱ // 0x3d2 @0xf
0x03c3…03ef at0010 = ╱31╱1╱ // 0x3d3 @0x10
0x03c3…03ef at0011 = ╱30╱0╱ // 0x3d4 @0x11
0x03c3…03ef at0012 = ╱fe0000a004╱ // 0x3d5 @0x12
0x03c3…03ef at0017 = ╱ee╱)╱ // 0x3da @0x17
0x03c3…03ef at0018 = ╱dc╱=╱ // 0x3db @0x18
0x03c3…03ef at0019 = ╱52╱R╱ // 0x3dc @0x19
0x03c3…03ef at001a = ╱45╱E╱ // 0x3dd @0x1a
0x03c3…03ef at001b = ╱53╱S╱ // 0x3de @0x1b
0x03c3…03ef at001c = ╱55╱U╱ // 0x3df @0x1c
0x03c3…03ef at001d = ╱4c╱L╱ // 0x3e0 @0x1d
0x03c3…03ef at001e = ╱31╱1╱ // 0x3e1 @0x1e
0x03c3…03ef at001f = ╱ef╱$╱ // 0x3e2 @0x1f
0x03c3…03ef at0020 = ╱ed╱(╱ // 0x3e3 @0x20
0x03c3…03ef at0021 = ╱56╱V╱ // 0x3e4 @0x21
0x03c3…03ef at0022 = ╱f0╱:╱ // 0x3e5 @0x22
0x03c3…03ef at0023 = ╱31╱1╱ // 0x3e6 @0x23
0x03c3…03ef at0024 = ╱30╱0╱ // 0x3e7 @0x24
0x03c3…03ef at0025 = ╱fe0000a004╱ // 0x3e8 @0x25
0x03c3…03ef at002a = ╱ee╱)╱ // 0x3ed @0x2a
0x03c3…03ef at002b = EOL // 0x3ee @0x2b
0x03c3…03ef }
0x03ef…040f 9166 0490 RESUL$=P7$(28:10)
0x03ef…040f LineComalBin {
0x03ef…040f ptr = 0x9166 // 0x3ef @0x0
0x03ef…040f lno = 0x01ea // 0x3f1 @0x2
0x03ef…040f at0004 = ╱52╱R╱ // 0x3f3 @0x4
0x03ef…040f at0005 = ╱45╱E╱ // 0x3f4 @0x5
0x03ef…040f at0006 = ╱53╱S╱ // 0x3f5 @0x6
0x03ef…040f at0007 = ╱55╱U╱ // 0x3f6 @0x7
0x03ef…040f at0008 = ╱4c╱L╱ // 0x3f7 @0x8
0x03ef…040f at0009 = ╱ef╱$╱ // 0x3f8 @0x9
0x03ef…040f at000a = ╱dc╱=╱ // 0x3f9 @0xa
0x03ef…040f at000b = ╱50╱P╱ // 0x3fa @0xb
0x03ef…040f at000c = ╱37╱7╱ // 0x3fb @0xc
0x03ef…040f at000d = ╱ef╱$╱ // 0x3fc @0xd
0x03ef…040f at000e = ╱ed╱(╱ // 0x3fd @0xe
0x03ef…040f at000f = ╱32╱2╱ // 0x3fe @0xf
0x03ef…040f at0010 = ╱38╱8╱ // 0x3ff @0x10
0x03ef…040f at0011 = ╱fe0000e005╱ // 0x400 @0x11
0x03ef…040f at0016 = ╱f0╱:╱ // 0x405 @0x16
0x03ef…040f at0017 = ╱31╱1╱ // 0x406 @0x17
0x03ef…040f at0018 = ╱30╱0╱ // 0x407 @0x18
0x03ef…040f at0019 = ╱fe0000a004╱ // 0x408 @0x19
0x03ef…040f at001e = ╱ee╱)╱ // 0x40d @0x1e
0x03ef…040f at001f = EOL // 0x40e @0x1f
0x03ef…040f }
0x040f…0431 9188 0500 RESUL1$=T$(N,17:10)
0x040f…0431 LineComalBin {
0x040f…0431 ptr = 0x9188 // 0x40f @0x0
0x040f…0431 lno = 0x01f4 // 0x411 @0x2
0x040f…0431 at0004 = ╱52╱R╱ // 0x413 @0x4
0x040f…0431 at0005 = ╱45╱E╱ // 0x414 @0x5
0x040f…0431 at0006 = ╱53╱S╱ // 0x415 @0x6
0x040f…0431 at0007 = ╱55╱U╱ // 0x416 @0x7
0x040f…0431 at0008 = ╱4c╱L╱ // 0x417 @0x8
0x040f…0431 at0009 = ╱31╱1╱ // 0x418 @0x9
0x040f…0431 at000a = ╱ef╱$╱ // 0x419 @0xa
0x040f…0431 at000b = ╱dc╱=╱ // 0x41a @0xb
0x040f…0431 at000c = ╱54╱T╱ // 0x41b @0xc
0x040f…0431 at000d = ╱ef╱$╱ // 0x41c @0xd
0x040f…0431 at000e = ╱ed╱(╱ // 0x41d @0xe
0x040f…0431 at000f = ╱4e╱N╱ // 0x41e @0xf
0x040f…0431 at0010 = ╱ec╱,╱ // 0x41f @0x10
0x040f…0431 at0011 = ╱31╱1╱ // 0x420 @0x11
0x040f…0431 at0012 = ╱37╱7╱ // 0x421 @0x12
0x040f…0431 at0013 = ╱fe00008805╱ // 0x422 @0x13
0x040f…0431 at0018 = ╱f0╱:╱ // 0x427 @0x18
0x040f…0431 at0019 = ╱31╱1╱ // 0x428 @0x19
0x040f…0431 at001a = ╱30╱0╱ // 0x429 @0x1a
0x040f…0431 at001b = ╱fe0000a004╱ // 0x42a @0x1b
0x040f…0431 at0020 = ╱ee╱)╱ // 0x42f @0x20
0x040f…0431 at0021 = EOL // 0x430 @0x21
0x040f…0431 }
0x0431…0455 91ac 0510 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$)
0x0431…0455 LineComalBin {
0x0431…0455 ptr = 0x91ac // 0x431 @0x0
0x0431…0455 lno = 0x01fe // 0x433 @0x2
0x0431…0455 at0004 = ╱9d╱ EXEC ╱ // 0x435 @0x4
0x0431…0455 at0005 = ╱43╱C╱ // 0x436 @0x5
0x0431…0455 at0006 = ╱41╱A╱ // 0x437 @0x6
0x0431…0455 at0007 = ╱4c╱L╱ // 0x438 @0x7
0x0431…0455 at0008 = ╱43╱C╱ // 0x439 @0x8
0x0431…0455 at0009 = ╱ed╱(╱ // 0x43a @0x9
0x0431…0455 at000a = ╱42╱B╱ // 0x43b @0xa
0x0431…0455 at000b = ╱ec╱,╱ // 0x43c @0xb
0x0431…0455 at000c = ╱52╱R╱ // 0x43d @0xc
0x0431…0455 at000d = ╱45╱E╱ // 0x43e @0xd
0x0431…0455 at000e = ╱53╱S╱ // 0x43f @0xe
0x0431…0455 at000f = ╱55╱U╱ // 0x440 @0xf
0x0431…0455 at0010 = ╱4c╱L╱ // 0x441 @0x10
0x0431…0455 at0011 = ╱ef╱$╱ // 0x442 @0x11
0x0431…0455 at0012 = ╱ec╱,╱ // 0x443 @0x12
0x0431…0455 at0013 = ╱52╱R╱ // 0x444 @0x13
0x0431…0455 at0014 = ╱45╱E╱ // 0x445 @0x14
0x0431…0455 at0015 = ╱53╱S╱ // 0x446 @0x15
0x0431…0455 at0016 = ╱55╱U╱ // 0x447 @0x16
0x0431…0455 at0017 = ╱4c╱L╱ // 0x448 @0x17
0x0431…0455 at0018 = ╱31╱1╱ // 0x449 @0x18
0x0431…0455 at0019 = ╱ef╱$╱ // 0x44a @0x19
0x0431…0455 at001a = ╱ec╱,╱ // 0x44b @0x1a
0x0431…0455 at001b = ╱52╱R╱ // 0x44c @0x1b
0x0431…0455 at001c = ╱45╱E╱ // 0x44d @0x1c
0x0431…0455 at001d = ╱53╱S╱ // 0x44e @0x1d
0x0431…0455 at001e = ╱55╱U╱ // 0x44f @0x1e
0x0431…0455 at001f = ╱4c╱L╱ // 0x450 @0x1f
0x0431…0455 at0020 = ╱31╱1╱ // 0x451 @0x20
0x0431…0455 at0021 = ╱ef╱$╱ // 0x452 @0x21
0x0431…0455 at0022 = ╱ee╱)╱ // 0x453 @0x22
0x0431…0455 at0023 = EOL // 0x454 @0x23
0x0431…0455 }
0x0455…0482 91d9 0520 T$(N,17:10)=RESUL1$(V:10)
0x0455…0482 LineComalBin {
0x0455…0482 ptr = 0x91d9 // 0x455 @0x0
0x0455…0482 lno = 0x0208 // 0x457 @0x2
0x0455…0482 at0004 = ╱54╱T╱ // 0x459 @0x4
0x0455…0482 at0005 = ╱ef╱$╱ // 0x45a @0x5
0x0455…0482 at0006 = ╱ed╱(╱ // 0x45b @0x6
0x0455…0482 at0007 = ╱4e╱N╱ // 0x45c @0x7
0x0455…0482 at0008 = ╱ec╱,╱ // 0x45d @0x8
0x0455…0482 at0009 = ╱31╱1╱ // 0x45e @0x9
0x0455…0482 at000a = ╱37╱7╱ // 0x45f @0xa
0x0455…0482 at000b = ╱fe00008805╱ // 0x460 @0xb
0x0455…0482 at0010 = ╱f0╱:╱ // 0x465 @0x10
0x0455…0482 at0011 = ╱31╱1╱ // 0x466 @0x11
0x0455…0482 at0012 = ╱30╱0╱ // 0x467 @0x12
0x0455…0482 at0013 = ╱fe0000a004╱ // 0x468 @0x13
0x0455…0482 at0018 = ╱ee╱)╱ // 0x46d @0x18
0x0455…0482 at0019 = ╱dc╱=╱ // 0x46e @0x19
0x0455…0482 at001a = ╱52╱R╱ // 0x46f @0x1a
0x0455…0482 at001b = ╱45╱E╱ // 0x470 @0x1b
0x0455…0482 at001c = ╱53╱S╱ // 0x471 @0x1c
0x0455…0482 at001d = ╱55╱U╱ // 0x472 @0x1d
0x0455…0482 at001e = ╱4c╱L╱ // 0x473 @0x1e
0x0455…0482 at001f = ╱31╱1╱ // 0x474 @0x1f
0x0455…0482 at0020 = ╱ef╱$╱ // 0x475 @0x20
0x0455…0482 at0021 = ╱ed╱(╱ // 0x476 @0x21
0x0455…0482 at0022 = ╱56╱V╱ // 0x477 @0x22
0x0455…0482 at0023 = ╱f0╱:╱ // 0x478 @0x23
0x0455…0482 at0024 = ╱31╱1╱ // 0x479 @0x24
0x0455…0482 at0025 = ╱30╱0╱ // 0x47a @0x25
0x0455…0482 at0026 = ╱fe0000a004╱ // 0x47b @0x26
0x0455…0482 at002b = ╱ee╱)╱ // 0x480 @0x2b
0x0455…0482 at002c = EOL // 0x481 @0x2c
0x0455…0482 }
0x0482…0488 91df 0530 ENDPROC
0x0482…0488 LineComalBin {
0x0482…0488 ptr = 0x91df // 0x482 @0x0
0x0482…0488 lno = 0x0212 // 0x484 @0x2
0x0482…0488 at0004 = ╱9f╱ ENDPROC ╱ // 0x486 @0x4
0x0482…0488 at0005 = EOL // 0x487 @0x5
0x0482…0488 }
0x0488…0495 91ec 0540 PROC PV(Å,Æ)
0x0488…0495 LineComalBin {
0x0488…0495 ptr = 0x91ec // 0x488 @0x0
0x0488…0495 lno = 0x021c // 0x48a @0x2
0x0488…0495 at0004 = ╱9e╱ PROC ╱ // 0x48c @0x4
0x0488…0495 at0005 = ╱50╱P╱ // 0x48d @0x5
0x0488…0495 at0006 = ╱56╱V╱ // 0x48e @0x6
0x0488…0495 at0007 = ╱ed╱(╱ // 0x48f @0x7
0x0488…0495 at0008 = ╱5d╱Å╱ // 0x490 @0x8
0x0488…0495 at0009 = ╱ec╱,╱ // 0x491 @0x9
0x0488…0495 at000a = ╱5b╱Æ╱ // 0x492 @0xa
0x0488…0495 at000b = ╱ee╱)╱ // 0x493 @0xb
0x0488…0495 at000c = EOL // 0x494 @0xc
0x0488…0495 }
0x0495…04a8 91ff 0550 IF Å$="+" THEN Å$=" "
0x0495…04a8 LineComalBin {
0x0495…04a8 ptr = 0x91ff // 0x495 @0x0
0x0495…04a8 lno = 0x0226 // 0x497 @0x2
0x0495…04a8 at0004 = ╱82╱ IF ╱ // 0x499 @0x4
0x0495…04a8 at0005 = ╱5d╱Å╱ // 0x49a @0x5
0x0495…04a8 at0006 = ╱ef╱$╱ // 0x49b @0x6
0x0495…04a8 at0007 = ╱dc╱=╱ // 0x49c @0x7
0x0495…04a8 at0008 = ╱22╱"╱ // 0x49d @0x8
0x0495…04a8 at0009 = ╱2b╱+╱ // 0x49e @0x9
0x0495…04a8 at000a = ╱22╱"╱ // 0x49f @0xa
0x0495…04a8 at000b = ╱b6╱ THEN ╱ // 0x4a0 @0xb
0x0495…04a8 at000c = ╱5d╱Å╱ // 0x4a1 @0xc
0x0495…04a8 at000d = ╱ef╱$╱ // 0x4a2 @0xd
0x0495…04a8 at000e = ╱dc╱=╱ // 0x4a3 @0xe
0x0495…04a8 at000f = ╱22╱"╱ // 0x4a4 @0xf
0x0495…04a8 at0010 = ╱20╱…╱ // 0x4a5 @0x10
0x0495…04a8 at0011 = ╱22╱"╱ // 0x4a6 @0x11
0x0495…04a8 at0012 = EOL // 0x4a7 @0x12
0x0495…04a8 }
0x04a8…04bb 9212 0560 IF Æ$="+" THEN Æ$=" "
0x04a8…04bb LineComalBin {
0x04a8…04bb ptr = 0x9212 // 0x4a8 @0x0
0x04a8…04bb lno = 0x0230 // 0x4aa @0x2
0x04a8…04bb at0004 = ╱82╱ IF ╱ // 0x4ac @0x4
0x04a8…04bb at0005 = ╱5b╱Æ╱ // 0x4ad @0x5
0x04a8…04bb at0006 = ╱ef╱$╱ // 0x4ae @0x6
0x04a8…04bb at0007 = ╱dc╱=╱ // 0x4af @0x7
0x04a8…04bb at0008 = ╱22╱"╱ // 0x4b0 @0x8
0x04a8…04bb at0009 = ╱2b╱+╱ // 0x4b1 @0x9
0x04a8…04bb at000a = ╱22╱"╱ // 0x4b2 @0xa
0x04a8…04bb at000b = ╱b6╱ THEN ╱ // 0x4b3 @0xb
0x04a8…04bb at000c = ╱5b╱Æ╱ // 0x4b4 @0xc
0x04a8…04bb at000d = ╱ef╱$╱ // 0x4b5 @0xd
0x04a8…04bb at000e = ╱dc╱=╱ // 0x4b6 @0xe
0x04a8…04bb at000f = ╱22╱"╱ // 0x4b7 @0xf
0x04a8…04bb at0010 = ╱20╱…╱ // 0x4b8 @0x10
0x04a8…04bb at0011 = ╱22╱"╱ // 0x4b9 @0x11
0x04a8…04bb at0012 = EOL // 0x4ba @0x12
0x04a8…04bb }
0x04bb…04c1 9218 0570 ENDPROC
0x04bb…04c1 LineComalBin {
0x04bb…04c1 ptr = 0x9218 // 0x4bb @0x0
0x04bb…04c1 lno = 0x023a // 0x4bd @0x2
0x04bb…04c1 at0004 = ╱9f╱ ENDPROC ╱ // 0x4bf @0x4
0x04bb…04c1 at0005 = EOL // 0x4c0 @0x5
0x04bb…04c1 }
0x04c1…04d2 9229 0580 MAX=725
0x04c1…04d2 LineComalBin {
0x04c1…04d2 ptr = 0x9229 // 0x4c1 @0x0
0x04c1…04d2 lno = 0x0244 // 0x4c3 @0x2
0x04c1…04d2 at0004 = ╱4d╱M╱ // 0x4c5 @0x4
0x04c1…04d2 at0005 = ╱41╱A╱ // 0x4c6 @0x5
0x04c1…04d2 at0006 = ╱58╱X╱ // 0x4c7 @0x6
0x04c1…04d2 at0007 = ╱dc╱=╱ // 0x4c8 @0x7
0x04c1…04d2 at0008 = ╱37╱7╱ // 0x4c9 @0x8
0x04c1…04d2 at0009 = ╱32╱2╱ // 0x4ca @0x9
0x04c1…04d2 at000a = ╱35╱5╱ // 0x4cb @0xa
0x04c1…04d2 at000b = ╱fe0040b50a╱ // 0x4cc @0xb
0x04c1…04d2 at0010 = EOL // 0x4d1 @0x10
0x04c1…04d2 }
0x04d2…04f6 924d 0590 DIM T$(MAX+E,26),P7$(37)
0x04d2…04f6 LineComalBin {
0x04d2…04f6 ptr = 0x924d // 0x4d2 @0x0
0x04d2…04f6 lno = 0x024e // 0x4d4 @0x2
0x04d2…04f6 at0004 = ╱87╱ DIM ╱ // 0x4d6 @0x4
0x04d2…04f6 at0005 = ╱54╱T╱ // 0x4d7 @0x5
0x04d2…04f6 at0006 = ╱ef╱$╱ // 0x4d8 @0x6
0x04d2…04f6 at0007 = ╱ed╱(╱ // 0x4d9 @0x7
0x04d2…04f6 at0008 = ╱4d╱M╱ // 0x4da @0x8
0x04d2…04f6 at0009 = ╱41╱A╱ // 0x4db @0x9
0x04d2…04f6 at000a = ╱58╱X╱ // 0x4dc @0xa
0x04d2…04f6 at000b = ╱e2╱+╱ // 0x4dd @0xb
0x04d2…04f6 at000c = ╱45╱E╱ // 0x4de @0xc
0x04d2…04f6 at000d = ╱ec╱,╱ // 0x4df @0xd
0x04d2…04f6 at000e = ╱32╱2╱ // 0x4e0 @0xe
0x04d2…04f6 at000f = ╱36╱6╱ // 0x4e1 @0xf
0x04d2…04f6 at0010 = ╱fe0000d005╱ // 0x4e2 @0x10
0x04d2…04f6 at0015 = ╱ee╱)╱ // 0x4e7 @0x15
0x04d2…04f6 at0016 = ╱ec╱,╱ // 0x4e8 @0x16
0x04d2…04f6 at0017 = ╱50╱P╱ // 0x4e9 @0x17
0x04d2…04f6 at0018 = ╱37╱7╱ // 0x4ea @0x18
0x04d2…04f6 at0019 = ╱ef╱$╱ // 0x4eb @0x19
0x04d2…04f6 at001a = ╱ed╱(╱ // 0x4ec @0x1a
0x04d2…04f6 at001b = ╱33╱3╱ // 0x4ed @0x1b
0x04d2…04f6 at001c = ╱37╱7╱ // 0x4ee @0x1c
0x04d2…04f6 at001d = ╱fe00009406╱ // 0x4ef @0x1d
0x04d2…04f6 at0022 = ╱ee╱)╱ // 0x4f4 @0x22
0x04d2…04f6 at0023 = EOL // 0x4f5 @0x23
0x04d2…04f6 }
0x04f6…0505 925c 0600 FOR I=E TO MAX+E
0x04f6…0505 LineComalBin {
0x04f6…0505 ptr = 0x925c // 0x4f6 @0x0
0x04f6…0505 lno = 0x0258 // 0x4f8 @0x2
0x04f6…0505 at0004 = ╱83╱ FOR ╱ // 0x4fa @0x4
0x04f6…0505 at0005 = ╱49╱I╱ // 0x4fb @0x5
0x04f6…0505 at0006 = ╱dc╱=╱ // 0x4fc @0x6
0x04f6…0505 at0007 = ╱45╱E╱ // 0x4fd @0x7
0x04f6…0505 at0008 = ╱b7╱ TO ╱ // 0x4fe @0x8
0x04f6…0505 at0009 = ╱4d╱M╱ // 0x4ff @0x9
0x04f6…0505 at000a = ╱41╱A╱ // 0x500 @0xa
0x04f6…0505 at000b = ╱58╱X╱ // 0x501 @0xb
0x04f6…0505 at000c = ╱e2╱+╱ // 0x502 @0xc
0x04f6…0505 at000d = ╱45╱E╱ // 0x503 @0xd
0x04f6…0505 at000e = EOL // 0x504 @0xe
0x04f6…0505 }
0x0505…052c 9283 0610 T$(I)=" 0+ 0+"
0x0505…052c LineComalBin {
0x0505…052c ptr = 0x9283 // 0x505 @0x0
0x0505…052c lno = 0x0262 // 0x507 @0x2
0x0505…052c at0004 = ╱54╱T╱ // 0x509 @0x4
0x0505…052c at0005 = ╱ef╱$╱ // 0x50a @0x5
0x0505…052c at0006 = ╱ed╱(╱ // 0x50b @0x6
0x0505…052c at0007 = ╱49╱I╱ // 0x50c @0x7
0x0505…052c at0008 = ╱ee╱)╱ // 0x50d @0x8
0x0505…052c at0009 = ╱dc╱=╱ // 0x50e @0x9
0x0505…052c at000a = ╱22╱"╱ // 0x50f @0xa
0x0505…052c at000b = ╱20╱…╱ // 0x510 @0xb
0x0505…052c at000c = ╱20╱…╱ // 0x511 @0xc
0x0505…052c at000d = ╱20╱…╱ // 0x512 @0xd
0x0505…052c at000e = ╱20╱…╱ // 0x513 @0xe
0x0505…052c at000f = ╱20╱…╱ // 0x514 @0xf
0x0505…052c at0010 = ╱20╱…╱ // 0x515 @0x10
0x0505…052c at0011 = ╱20╱…╱ // 0x516 @0x11
0x0505…052c at0012 = ╱20╱…╱ // 0x517 @0x12
0x0505…052c at0013 = ╱20╱…╱ // 0x518 @0x13
0x0505…052c at0014 = ╱20╱…╱ // 0x519 @0x14
0x0505…052c at0015 = ╱20╱…╱ // 0x51a @0x15
0x0505…052c at0016 = ╱20╱…╱ // 0x51b @0x16
0x0505…052c at0017 = ╱20╱…╱ // 0x51c @0x17
0x0505…052c at0018 = ╱20╱…╱ // 0x51d @0x18
0x0505…052c at0019 = ╱30╱0╱ // 0x51e @0x19
0x0505…052c at001a = ╱2b╱+╱ // 0x51f @0x1a
0x0505…052c at001b = ╱20╱…╱ // 0x520 @0x1b
0x0505…052c at001c = ╱20╱…╱ // 0x521 @0x1c
0x0505…052c at001d = ╱20╱…╱ // 0x522 @0x1d
0x0505…052c at001e = ╱20╱…╱ // 0x523 @0x1e
0x0505…052c at001f = ╱20╱…╱ // 0x524 @0x1f
0x0505…052c at0020 = ╱20╱…╱ // 0x525 @0x20
0x0505…052c at0021 = ╱20╱…╱ // 0x526 @0x21
0x0505…052c at0022 = ╱20╱…╱ // 0x527 @0x22
0x0505…052c at0023 = ╱30╱0╱ // 0x528 @0x23
0x0505…052c at0024 = ╱2b╱+╱ // 0x529 @0x24
0x0505…052c at0025 = ╱22╱"╱ // 0x52a @0x25
0x0505…052c at0026 = EOL // 0x52b @0x26
0x0505…052c }
0x052c…0533 928a 0620 NEXT I
0x052c…0533 LineComalBin {
0x052c…0533 ptr = 0x928a // 0x52c @0x0
0x052c…0533 lno = 0x026c // 0x52e @0x2
0x052c…0533 at0004 = ╱84╱ NEXT ╱ // 0x530 @0x4
0x052c…0533 at0005 = ╱49╱I╱ // 0x531 @0x5
0x052c…0533 at0006 = EOL // 0x532 @0x6
0x052c…0533 }
0x0533…053d 9294 0630 PROC FIND
0x0533…053d LineComalBin {
0x0533…053d ptr = 0x9294 // 0x533 @0x0
0x0533…053d lno = 0x0276 // 0x535 @0x2
0x0533…053d at0004 = ╱9e╱ PROC ╱ // 0x537 @0x4
0x0533…053d at0005 = ╱46╱F╱ // 0x538 @0x5
0x0533…053d at0006 = ╱49╱I╱ // 0x539 @0x6
0x0533…053d at0007 = ╱4e╱N╱ // 0x53a @0x7
0x0533…053d at0008 = ╱44╱D╱ // 0x53b @0x8
0x0533…053d at0009 = EOL // 0x53c @0x9
0x0533…053d }
0x053d…0546 929d 0640 NR=E
0x053d…0546 LineComalBin {
0x053d…0546 ptr = 0x929d // 0x53d @0x0
0x053d…0546 lno = 0x0280 // 0x53f @0x2
0x053d…0546 at0004 = ╱4e╱N╱ // 0x541 @0x4
0x053d…0546 at0005 = ╱52╱R╱ // 0x542 @0x5
0x053d…0546 at0006 = ╱dc╱=╱ // 0x543 @0x6
0x053d…0546 at0007 = ╱45╱E╱ // 0x544 @0x7
0x053d…0546 at0008 = EOL // 0x545 @0x8
0x053d…0546 }
0x0546…0564 92bb 0650 WHILE T$(NR,E:6)<>" "
0x0546…0564 LineComalBin {
0x0546…0564 ptr = 0x92bb // 0x546 @0x0
0x0546…0564 lno = 0x028a // 0x548 @0x2
0x0546…0564 at0004 = ╱93╱ WHILE ╱ // 0x54a @0x4
0x0546…0564 at0005 = ╱54╱T╱ // 0x54b @0x5
0x0546…0564 at0006 = ╱ef╱$╱ // 0x54c @0x6
0x0546…0564 at0007 = ╱ed╱(╱ // 0x54d @0x7
0x0546…0564 at0008 = ╱4e╱N╱ // 0x54e @0x8
0x0546…0564 at0009 = ╱52╱R╱ // 0x54f @0x9
0x0546…0564 at000a = ╱ec╱,╱ // 0x550 @0xa
0x0546…0564 at000b = ╱45╱E╱ // 0x551 @0xb
0x0546…0564 at000c = ╱f0╱:╱ // 0x552 @0xc
0x0546…0564 at000d = ╱36╱6╱ // 0x553 @0xd
0x0546…0564 at000e = ╱fe0000c003╱ // 0x554 @0xe
0x0546…0564 at0013 = ╱ee╱)╱ // 0x559 @0x13
0x0546…0564 at0014 = ╱e1╱<>╱ // 0x55a @0x14
0x0546…0564 at0015 = ╱22╱"╱ // 0x55b @0x15
0x0546…0564 at0016 = ╱20╱…╱ // 0x55c @0x16
0x0546…0564 at0017 = ╱20╱…╱ // 0x55d @0x17
0x0546…0564 at0018 = ╱20╱…╱ // 0x55e @0x18
0x0546…0564 at0019 = ╱20╱…╱ // 0x55f @0x19
0x0546…0564 at001a = ╱20╱…╱ // 0x560 @0x1a
0x0546…0564 at001b = ╱20╱…╱ // 0x561 @0x1b
0x0546…0564 at001c = ╱22╱"╱ // 0x562 @0x1c
0x0546…0564 at001d = EOL // 0x563 @0x1d
0x0546…0564 }
0x0564…058e 92e5 0660 IF T$(NR,E:6)=P7$(5:6) THEN EXIT
0x0564…058e LineComalBin {
0x0564…058e ptr = 0x92e5 // 0x564 @0x0
0x0564…058e lno = 0x0294 // 0x566 @0x2
0x0564…058e at0004 = ╱82╱ IF ╱ // 0x568 @0x4
0x0564…058e at0005 = ╱54╱T╱ // 0x569 @0x5
0x0564…058e at0006 = ╱ef╱$╱ // 0x56a @0x6
0x0564…058e at0007 = ╱ed╱(╱ // 0x56b @0x7
0x0564…058e at0008 = ╱4e╱N╱ // 0x56c @0x8
0x0564…058e at0009 = ╱52╱R╱ // 0x56d @0x9
0x0564…058e at000a = ╱ec╱,╱ // 0x56e @0xa
0x0564…058e at000b = ╱45╱E╱ // 0x56f @0xb
0x0564…058e at000c = ╱f0╱:╱ // 0x570 @0xc
0x0564…058e at000d = ╱36╱6╱ // 0x571 @0xd
0x0564…058e at000e = ╱fe0000c003╱ // 0x572 @0xe
0x0564…058e at0013 = ╱ee╱)╱ // 0x577 @0x13
0x0564…058e at0014 = ╱dc╱=╱ // 0x578 @0x14
0x0564…058e at0015 = ╱50╱P╱ // 0x579 @0x15
0x0564…058e at0016 = ╱37╱7╱ // 0x57a @0x16
0x0564…058e at0017 = ╱ef╱$╱ // 0x57b @0x17
0x0564…058e at0018 = ╱ed╱(╱ // 0x57c @0x18
0x0564…058e at0019 = ╱35╱5╱ // 0x57d @0x19
0x0564…058e at001a = ╱fe0000a003╱ // 0x57e @0x1a
0x0564…058e at001f = ╱f0╱:╱ // 0x583 @0x1f
0x0564…058e at0020 = ╱36╱6╱ // 0x584 @0x20
0x0564…058e at0021 = ╱fe0000c003╱ // 0x585 @0x21
0x0564…058e at0026 = ╱ee╱)╱ // 0x58a @0x26
0x0564…058e at0027 = ╱b6╱ THEN ╱ // 0x58b @0x27
0x0564…058e at0028 = ╱99╱ EXIT ╱ // 0x58c @0x28
0x0564…058e at0029 = EOL // 0x58d @0x29
0x0564…058e }
0x058e…05b7 930e 0670 IF T$(NR,E:6)>P7$(5:6) THEN
0x058e…05b7 LineComalBin {
0x058e…05b7 ptr = 0x930e // 0x58e @0x0
0x058e…05b7 lno = 0x029e // 0x590 @0x2
0x058e…05b7 at0004 = ╱9c╱ IF ╱ // 0x592 @0x4
0x058e…05b7 at0005 = ╱54╱T╱ // 0x593 @0x5
0x058e…05b7 at0006 = ╱ef╱$╱ // 0x594 @0x6
0x058e…05b7 at0007 = ╱ed╱(╱ // 0x595 @0x7
0x058e…05b7 at0008 = ╱4e╱N╱ // 0x596 @0x8
0x058e…05b7 at0009 = ╱52╱R╱ // 0x597 @0x9
0x058e…05b7 at000a = ╱ec╱,╱ // 0x598 @0xa
0x058e…05b7 at000b = ╱45╱E╱ // 0x599 @0xb
0x058e…05b7 at000c = ╱f0╱:╱ // 0x59a @0xc
0x058e…05b7 at000d = ╱36╱6╱ // 0x59b @0xd
0x058e…05b7 at000e = ╱fe0000c003╱ // 0x59c @0xe
0x058e…05b7 at0013 = ╱ee╱)╱ // 0x5a1 @0x13
0x058e…05b7 at0014 = ╱de╱>╱ // 0x5a2 @0x14
0x058e…05b7 at0015 = ╱50╱P╱ // 0x5a3 @0x15
0x058e…05b7 at0016 = ╱37╱7╱ // 0x5a4 @0x16
0x058e…05b7 at0017 = ╱ef╱$╱ // 0x5a5 @0x17
0x058e…05b7 at0018 = ╱ed╱(╱ // 0x5a6 @0x18
0x058e…05b7 at0019 = ╱35╱5╱ // 0x5a7 @0x19
0x058e…05b7 at001a = ╱fe0000a003╱ // 0x5a8 @0x1a
0x058e…05b7 at001f = ╱f0╱:╱ // 0x5ad @0x1f
0x058e…05b7 at0020 = ╱36╱6╱ // 0x5ae @0x20
0x058e…05b7 at0021 = ╱fe0000c003╱ // 0x5af @0x21
0x058e…05b7 at0026 = ╱ee╱)╱ // 0x5b4 @0x26
0x058e…05b7 at0027 = ╱b6╱ THEN ╱ // 0x5b5 @0x27
0x058e…05b7 at0028 = EOL // 0x5b6 @0x28
0x058e…05b7 }
0x05b7…05c3 (19,) 931a 0680 NR=G*NR
0x05b7…05c3 LineComalBin {
0x05b7…05c3 ptr = 0x931a // 0x5b7 @0x0
0x05b7…05c3 lno = 0x02a8 // 0x5b9 @0x2
0x05b7…05c3 at0004 = ╱4e╱N╱ // 0x5bb @0x4
0x05b7…05c3 at0005 = ╱52╱R╱ // 0x5bc @0x5
0x05b7…05c3 at0006 = ╱dc╱=╱ // 0x5bd @0x6
0x05b7…05c3 at0007 = ╱47╱G╱ // 0x5be @0x7
0x05b7…05c3 at0008 = ╱e4╱*╱ // 0x5bf @0x8
0x05b7…05c3 at0009 = ╱4e╱N╱ // 0x5c0 @0x9
0x05b7…05c3 at000a = ╱52╱R╱ // 0x5c1 @0xa
0x05b7…05c3 at000b = EOL // 0x5c2 @0xb
0x05b7…05c3 }
0x05c3…05c9 9320 0690 ELSE
0x05c3…05c9 LineComalBin {
0x05c3…05c9 ptr = 0x9320 // 0x5c3 @0x0
0x05c3…05c9 lno = 0x02b2 // 0x5c5 @0x2
0x05c3…05c9 at0004 = ╱9a╱ ELSE ╱ // 0x5c7 @0x4
0x05c3…05c9 at0005 = EOL // 0x5c8 @0x5
0x05c3…05c9 }
0x05c9…05d7 932e 0700 NR=G*NR+E
0x05c9…05d7 LineComalBin {
0x05c9…05d7 ptr = 0x932e // 0x5c9 @0x0
0x05c9…05d7 lno = 0x02bc // 0x5cb @0x2
0x05c9…05d7 at0004 = ╱4e╱N╱ // 0x5cd @0x4
0x05c9…05d7 at0005 = ╱52╱R╱ // 0x5ce @0x5
0x05c9…05d7 at0006 = ╱dc╱=╱ // 0x5cf @0x6
0x05c9…05d7 at0007 = ╱47╱G╱ // 0x5d0 @0x7
0x05c9…05d7 at0008 = ╱e4╱*╱ // 0x5d1 @0x8
0x05c9…05d7 at0009 = ╱4e╱N╱ // 0x5d2 @0x9
0x05c9…05d7 at000a = ╱52╱R╱ // 0x5d3 @0xa
0x05c9…05d7 at000b = ╱e2╱+╱ // 0x5d4 @0xb
0x05c9…05d7 at000c = ╱45╱E╱ // 0x5d5 @0xc
0x05c9…05d7 at000d = EOL // 0x5d6 @0xd
0x05c9…05d7 }
0x05d7…05dd 9334 0710 ENDIF
0x05d7…05dd LineComalBin {
0x05d7…05dd ptr = 0x9334 // 0x5d7 @0x0
0x05d7…05dd lno = 0x02c6 // 0x5d9 @0x2
0x05d7…05dd at0004 = ╱9b╱ ENDIF ╱ // 0x5db @0x4
0x05d7…05dd at0005 = EOL // 0x5dc @0x5
0x05d7…05dd }
0x05dd…05eb 9342 0720 IF NR>MAX THEN EXIT
0x05dd…05eb LineComalBin {
0x05dd…05eb ptr = 0x9342 // 0x5dd @0x0
0x05dd…05eb lno = 0x02d0 // 0x5df @0x2
0x05dd…05eb at0004 = ╱82╱ IF ╱ // 0x5e1 @0x4
0x05dd…05eb at0005 = ╱4e╱N╱ // 0x5e2 @0x5
0x05dd…05eb at0006 = ╱52╱R╱ // 0x5e3 @0x6
0x05dd…05eb at0007 = ╱de╱>╱ // 0x5e4 @0x7
0x05dd…05eb at0008 = ╱4d╱M╱ // 0x5e5 @0x8
0x05dd…05eb at0009 = ╱41╱A╱ // 0x5e6 @0x9
0x05dd…05eb at000a = ╱58╱X╱ // 0x5e7 @0xa
0x05dd…05eb at000b = ╱b6╱ THEN ╱ // 0x5e8 @0xb
0x05dd…05eb at000c = ╱99╱ EXIT ╱ // 0x5e9 @0xc
0x05dd…05eb at000d = EOL // 0x5ea @0xd
0x05dd…05eb }
0x05eb…05f1 9348 0730 ENDWHILE
0x05eb…05f1 LineComalBin {
0x05eb…05f1 ptr = 0x9348 // 0x5eb @0x0
0x05eb…05f1 lno = 0x02da // 0x5ed @0x2
0x05eb…05f1 at0004 = ╱94╱ ENDWHILE ╱ // 0x5ef @0x4
0x05eb…05f1 at0005 = EOL // 0x5f0 @0x5
0x05eb…05f1 }
0x05f1…05f7 934e 0740 ENDPROC
0x05f1…05f7 LineComalBin {
0x05f1…05f7 ptr = 0x934e // 0x5f1 @0x0
0x05f1…05f7 lno = 0x02e4 // 0x5f3 @0x2
0x05f1…05f7 at0004 = ╱9f╱ ENDPROC ╱ // 0x5f5 @0x4
0x05f1…05f7 at0005 = EOL // 0x5f6 @0x5
0x05f1…05f7 }
0x05f7…0605 935c 0750 PROC TRAVERSE
0x05f7…0605 LineComalBin {
0x05f7…0605 ptr = 0x935c // 0x5f7 @0x0
0x05f7…0605 lno = 0x02ee // 0x5f9 @0x2
0x05f7…0605 at0004 = ╱9e╱ PROC ╱ // 0x5fb @0x4
0x05f7…0605 at0005 = ╱54╱T╱ // 0x5fc @0x5
0x05f7…0605 at0006 = ╱52╱R╱ // 0x5fd @0x6
0x05f7…0605 at0007 = ╱41╱A╱ // 0x5fe @0x7
0x05f7…0605 at0008 = ╱56╱V╱ // 0x5ff @0x8
0x05f7…0605 at0009 = ╱45╱E╱ // 0x600 @0x9
0x05f7…0605 at000a = ╱52╱R╱ // 0x601 @0xa
0x05f7…0605 at000b = ╱53╱S╱ // 0x602 @0xb
0x05f7…0605 at000c = ╱45╱E╱ // 0x603 @0xc
0x05f7…0605 at000d = EOL // 0x604 @0xd
0x05f7…0605 }
0x0605…0612 9369 0760 IF NR<=MAX THEN
0x0605…0612 LineComalBin {
0x0605…0612 ptr = 0x9369 // 0x605 @0x0
0x0605…0612 lno = 0x02f8 // 0x607 @0x2
0x0605…0612 at0004 = ╱9c╱ IF ╱ // 0x609 @0x4
0x0605…0612 at0005 = ╱4e╱N╱ // 0x60a @0x5
0x0605…0612 at0006 = ╱52╱R╱ // 0x60b @0x6
0x0605…0612 at0007 = ╱df╱<=╱ // 0x60c @0x7
0x0605…0612 at0008 = ╱4d╱M╱ // 0x60d @0x8
0x0605…0612 at0009 = ╱41╱A╱ // 0x60e @0x9
0x0605…0612 at000a = ╱58╱X╱ // 0x60f @0xa
0x0605…0612 at000b = ╱b6╱ THEN ╱ // 0x610 @0xb
0x0605…0612 at000c = EOL // 0x611 @0xc
0x0605…0612 }
0x0612…0631 9388 0770 IF T$(NR,E:6)<>" " THEN
0x0612…0631 LineComalBin {
0x0612…0631 ptr = 0x9388 // 0x612 @0x0
0x0612…0631 lno = 0x0302 // 0x614 @0x2
0x0612…0631 at0004 = ╱9c╱ IF ╱ // 0x616 @0x4
0x0612…0631 at0005 = ╱54╱T╱ // 0x617 @0x5
0x0612…0631 at0006 = ╱ef╱$╱ // 0x618 @0x6
0x0612…0631 at0007 = ╱ed╱(╱ // 0x619 @0x7
0x0612…0631 at0008 = ╱4e╱N╱ // 0x61a @0x8
0x0612…0631 at0009 = ╱52╱R╱ // 0x61b @0x9
0x0612…0631 at000a = ╱ec╱,╱ // 0x61c @0xa
0x0612…0631 at000b = ╱45╱E╱ // 0x61d @0xb
0x0612…0631 at000c = ╱f0╱:╱ // 0x61e @0xc
0x0612…0631 at000d = ╱36╱6╱ // 0x61f @0xd
0x0612…0631 at000e = ╱fe0000c003╱ // 0x620 @0xe
0x0612…0631 at0013 = ╱ee╱)╱ // 0x625 @0x13
0x0612…0631 at0014 = ╱e1╱<>╱ // 0x626 @0x14
0x0612…0631 at0015 = ╱22╱"╱ // 0x627 @0x15
0x0612…0631 at0016 = ╱20╱…╱ // 0x628 @0x16
0x0612…0631 at0017 = ╱20╱…╱ // 0x629 @0x17
0x0612…0631 at0018 = ╱20╱…╱ // 0x62a @0x18
0x0612…0631 at0019 = ╱20╱…╱ // 0x62b @0x19
0x0612…0631 at001a = ╱20╱…╱ // 0x62c @0x1a
0x0612…0631 at001b = ╱20╱…╱ // 0x62d @0x1b
0x0612…0631 at001c = ╱22╱"╱ // 0x62e @0x1c
0x0612…0631 at001d = ╱b6╱ THEN ╱ // 0x62f @0x1d
0x0612…0631 at001e = EOL // 0x630 @0x1e
0x0612…0631 }
0x0631…063d 9394 0780 NR=G*NR
0x0631…063d LineComalBin {
0x0631…063d ptr = 0x9394 // 0x631 @0x0
0x0631…063d lno = 0x030c // 0x633 @0x2
0x0631…063d at0004 = ╱4e╱N╱ // 0x635 @0x4
0x0631…063d at0005 = ╱52╱R╱ // 0x636 @0x5
0x0631…063d at0006 = ╱dc╱=╱ // 0x637 @0x6
0x0631…063d at0007 = ╱47╱G╱ // 0x638 @0x7
0x0631…063d at0008 = ╱e4╱*╱ // 0x639 @0x8
0x0631…063d at0009 = ╱4e╱N╱ // 0x63a @0x9
0x0631…063d at000a = ╱52╱R╱ // 0x63b @0xa
0x0631…063d at000b = EOL // 0x63c @0xb
0x0631…063d }
0x063d…064b 93a2 0790 EXEC TRAVERSE
0x063d…064b LineComalBin {
0x063d…064b ptr = 0x93a2 // 0x63d @0x0
0x063d…064b lno = 0x0316 // 0x63f @0x2
0x063d…064b at0004 = ╱9d╱ EXEC ╱ // 0x641 @0x4
0x063d…064b at0005 = ╱54╱T╱ // 0x642 @0x5
0x063d…064b at0006 = ╱52╱R╱ // 0x643 @0x6
0x063d…064b at0007 = ╱41╱A╱ // 0x644 @0x7
0x063d…064b at0008 = ╱56╱V╱ // 0x645 @0x8
0x063d…064b at0009 = ╱45╱E╱ // 0x646 @0x9
0x063d…064b at000a = ╱52╱R╱ // 0x647 @0xa
0x063d…064b at000b = ╱53╱S╱ // 0x648 @0xb
0x063d…064b at000c = ╱45╱E╱ // 0x649 @0xc
0x063d…064b at000d = EOL // 0x64a @0xd
0x063d…064b }
0x064b…0657 93ae 0800 NR=NR DIV G
0x064b…0657 LineComalBin {
0x064b…0657 ptr = 0x93ae // 0x64b @0x0
0x064b…0657 lno = 0x0320 // 0x64d @0x2
0x064b…0657 at0004 = ╱4e╱N╱ // 0x64f @0x4
0x064b…0657 at0005 = ╱52╱R╱ // 0x650 @0x5
0x064b…0657 at0006 = ╱dc╱=╱ // 0x651 @0x6
0x064b…0657 at0007 = ╱4e╱N╱ // 0x652 @0x7
0x064b…0657 at0008 = ╱52╱R╱ // 0x653 @0x8
0x064b…0657 at0009 = ╱e7╱ DIV ╱ // 0x654 @0x9
0x064b…0657 at000a = ╱47╱G╱ // 0x655 @0xa
0x064b…0657 at000b = EOL // 0x656 @0xb
0x064b…0657 }
0x0657…0685 93dc 0810 IF GRUPPE$=" " THEN GRUPPE$=T$(NR,E,5)
0x0657…0685 LineComalBin {
0x0657…0685 ptr = 0x93dc // 0x657 @0x0
0x0657…0685 lno = 0x032a // 0x659 @0x2
0x0657…0685 at0004 = ╱82╱ IF ╱ // 0x65b @0x4
0x0657…0685 at0005 = ╱47╱G╱ // 0x65c @0x5
0x0657…0685 at0006 = ╱52╱R╱ // 0x65d @0x6
0x0657…0685 at0007 = ╱55╱U╱ // 0x65e @0x7
0x0657…0685 at0008 = ╱50╱P╱ // 0x65f @0x8
0x0657…0685 at0009 = ╱50╱P╱ // 0x660 @0x9
0x0657…0685 at000a = ╱45╱E╱ // 0x661 @0xa
0x0657…0685 at000b = ╱ef╱$╱ // 0x662 @0xb
0x0657…0685 at000c = ╱dc╱=╱ // 0x663 @0xc
0x0657…0685 at000d = ╱22╱"╱ // 0x664 @0xd
0x0657…0685 at000e = ╱20╱…╱ // 0x665 @0xe
0x0657…0685 at000f = ╱20╱…╱ // 0x666 @0xf
0x0657…0685 at0010 = ╱20╱…╱ // 0x667 @0x10
0x0657…0685 at0011 = ╱20╱…╱ // 0x668 @0x11
0x0657…0685 at0012 = ╱20╱…╱ // 0x669 @0x12
0x0657…0685 at0013 = ╱20╱…╱ // 0x66a @0x13
0x0657…0685 at0014 = ╱22╱"╱ // 0x66b @0x14
0x0657…0685 at0015 = ╱b6╱ THEN ╱ // 0x66c @0x15
0x0657…0685 at0016 = ╱47╱G╱ // 0x66d @0x16
0x0657…0685 at0017 = ╱52╱R╱ // 0x66e @0x17
0x0657…0685 at0018 = ╱55╱U╱ // 0x66f @0x18
0x0657…0685 at0019 = ╱50╱P╱ // 0x670 @0x19
0x0657…0685 at001a = ╱50╱P╱ // 0x671 @0x1a
0x0657…0685 at001b = ╱45╱E╱ // 0x672 @0x1b
0x0657…0685 at001c = ╱ef╱$╱ // 0x673 @0x1c
0x0657…0685 at001d = ╱dc╱=╱ // 0x674 @0x1d
0x0657…0685 at001e = ╱54╱T╱ // 0x675 @0x1e
0x0657…0685 at001f = ╱ef╱$╱ // 0x676 @0x1f
0x0657…0685 at0020 = ╱ed╱(╱ // 0x677 @0x20
0x0657…0685 at0021 = ╱4e╱N╱ // 0x678 @0x21
0x0657…0685 at0022 = ╱52╱R╱ // 0x679 @0x22
0x0657…0685 at0023 = ╱ec╱,╱ // 0x67a @0x23
0x0657…0685 at0024 = ╱45╱E╱ // 0x67b @0x24
0x0657…0685 at0025 = ╱ec╱,╱ // 0x67c @0x25
0x0657…0685 at0026 = ╱35╱5╱ // 0x67d @0x26
0x0657…0685 at0027 = ╱fe0000a003╱ // 0x67e @0x27
0x0657…0685 at002c = ╱ee╱)╱ // 0x683 @0x2c
0x0657…0685 at002d = EOL // 0x684 @0x2d
0x0657…0685 }
0x0685…069e 93f5 0820 IF LINIE>62 THEN EXEC HEAD
0x0685…069e LineComalBin {
0x0685…069e ptr = 0x93f5 // 0x685 @0x0
0x0685…069e lno = 0x0334 // 0x687 @0x2
0x0685…069e at0004 = ╱82╱ IF ╱ // 0x689 @0x4
0x0685…069e at0005 = ╱4c╱L╱ // 0x68a @0x5
0x0685…069e at0006 = ╱49╱I╱ // 0x68b @0x6
0x0685…069e at0007 = ╱4e╱N╱ // 0x68c @0x7
0x0685…069e at0008 = ╱49╱I╱ // 0x68d @0x8
0x0685…069e at0009 = ╱45╱E╱ // 0x68e @0x9
0x0685…069e at000a = ╱de╱>╱ // 0x68f @0xa
0x0685…069e at000b = ╱36╱6╱ // 0x690 @0xb
0x0685…069e at000c = ╱32╱2╱ // 0x691 @0xc
0x0685…069e at000d = ╱fe0000f806╱ // 0x692 @0xd
0x0685…069e at0012 = ╱b6╱ THEN ╱ // 0x697 @0x12
0x0685…069e at0013 = ╱9d╱ EXEC ╱ // 0x698 @0x13
0x0685…069e at0014 = ╱48╱H╱ // 0x699 @0x14
0x0685…069e at0015 = ╱45╱E╱ // 0x69a @0x15
0x0685…069e at0016 = ╱41╱A╱ // 0x69b @0x16
0x0685…069e at0017 = ╱44╱D╱ // 0x69c @0x17
0x0685…069e at0018 = EOL // 0x69d @0x18
0x0685…069e }
0x069e…06bc (22,) 9413 0830 IF GRUPPE$<>T$(NR,E,5) THEN
0x069e…06bc LineComalBin {
0x069e…06bc ptr = 0x9413 // 0x69e @0x0
0x069e…06bc lno = 0x033e // 0x6a0 @0x2
0x069e…06bc at0004 = ╱9c╱ IF ╱ // 0x6a2 @0x4
0x069e…06bc at0005 = ╱47╱G╱ // 0x6a3 @0x5
0x069e…06bc at0006 = ╱52╱R╱ // 0x6a4 @0x6
0x069e…06bc at0007 = ╱55╱U╱ // 0x6a5 @0x7
0x069e…06bc at0008 = ╱50╱P╱ // 0x6a6 @0x8
0x069e…06bc at0009 = ╱50╱P╱ // 0x6a7 @0x9
0x069e…06bc at000a = ╱45╱E╱ // 0x6a8 @0xa
0x069e…06bc at000b = ╱ef╱$╱ // 0x6a9 @0xb
0x069e…06bc at000c = ╱e1╱<>╱ // 0x6aa @0xc
0x069e…06bc at000d = ╱54╱T╱ // 0x6ab @0xd
0x069e…06bc at000e = ╱ef╱$╱ // 0x6ac @0xe
0x069e…06bc at000f = ╱ed╱(╱ // 0x6ad @0xf
0x069e…06bc at0010 = ╱4e╱N╱ // 0x6ae @0x10
0x069e…06bc at0011 = ╱52╱R╱ // 0x6af @0x11
0x069e…06bc at0012 = ╱ec╱,╱ // 0x6b0 @0x12
0x069e…06bc at0013 = ╱45╱E╱ // 0x6b1 @0x13
0x069e…06bc at0014 = ╱ec╱,╱ // 0x6b2 @0x14
0x069e…06bc at0015 = ╱35╱5╱ // 0x6b3 @0x15
0x069e…06bc at0016 = ╱fe0000a003╱ // 0x6b4 @0x16
0x069e…06bc at001b = ╱ee╱)╱ // 0x6b9 @0x1b
0x069e…06bc at001c = ╱b6╱ THEN ╱ // 0x6ba @0x1c
0x069e…06bc at001d = EOL // 0x6bb @0x1d
0x069e…06bc }
0x06bc…06de 9435 0832 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$)
0x06bc…06de LineComalBin {
0x06bc…06de ptr = 0x9435 // 0x6bc @0x0
0x06bc…06de lno = 0x0340 // 0x6be @0x2
0x06bc…06de at0004 = ╱9d╱ EXEC ╱ // 0x6c0 @0x4
0x06bc…06de at0005 = ╱43╱C╱ // 0x6c1 @0x5
0x06bc…06de at0006 = ╱41╱A╱ // 0x6c2 @0x6
0x06bc…06de at0007 = ╱4c╱L╱ // 0x6c3 @0x7
0x06bc…06de at0008 = ╱43╱C╱ // 0x6c4 @0x8
0x06bc…06de at0009 = ╱ed╱(╱ // 0x6c5 @0x9
0x06bc…06de at000a = ╱47╱G╱ // 0x6c6 @0xa
0x06bc…06de at000b = ╱ec╱,╱ // 0x6c7 @0xb
0x06bc…06de at000c = ╱50╱P╱ // 0x6c8 @0xc
0x06bc…06de at000d = ╱43╱C╱ // 0x6c9 @0xd
0x06bc…06de at000e = ╱54╱T╱ // 0x6ca @0xe
0x06bc…06de at000f = ╱ef╱$╱ // 0x6cb @0xf
0x06bc…06de at0010 = ╱ec╱,╱ // 0x6cc @0x10
0x06bc…06de at0011 = ╱47╱G╱ // 0x6cd @0x11
0x06bc…06de at0012 = ╱52╱R╱ // 0x6ce @0x12
0x06bc…06de at0013 = ╱55╱U╱ // 0x6cf @0x13
0x06bc…06de at0014 = ╱50╱P╱ // 0x6d0 @0x14
0x06bc…06de at0015 = ╱42╱B╱ // 0x6d1 @0x15
0x06bc…06de at0016 = ╱45╱E╱ // 0x6d2 @0x16
0x06bc…06de at0017 = ╱4c╱L╱ // 0x6d3 @0x17
0x06bc…06de at0018 = ╱ef╱$╱ // 0x6d4 @0x18
0x06bc…06de at0019 = ╱ec╱,╱ // 0x6d5 @0x19
0x06bc…06de at001a = ╱52╱R╱ // 0x6d6 @0x1a
0x06bc…06de at001b = ╱45╱E╱ // 0x6d7 @0x1b
0x06bc…06de at001c = ╱53╱S╱ // 0x6d8 @0x1c
0x06bc…06de at001d = ╱55╱U╱ // 0x6d9 @0x1d
0x06bc…06de at001e = ╱4c╱L╱ // 0x6da @0x1e
0x06bc…06de at001f = ╱ef╱$╱ // 0x6db @0x1f
0x06bc…06de at0020 = ╱ee╱)╱ // 0x6dc @0x20
0x06bc…06de at0021 = EOL // 0x6dd @0x21
0x06bc…06de }
0x06de…070b 9462 0834 IF RESUL$(12)="+" THEN RESUL$(12)=" "
0x06de…070b LineComalBin {
0x06de…070b ptr = 0x9462 // 0x6de @0x0
0x06de…070b lno = 0x0342 // 0x6e0 @0x2
0x06de…070b at0004 = ╱82╱ IF ╱ // 0x6e2 @0x4
0x06de…070b at0005 = ╱52╱R╱ // 0x6e3 @0x5
0x06de…070b at0006 = ╱45╱E╱ // 0x6e4 @0x6
0x06de…070b at0007 = ╱53╱S╱ // 0x6e5 @0x7
0x06de…070b at0008 = ╱55╱U╱ // 0x6e6 @0x8
0x06de…070b at0009 = ╱4c╱L╱ // 0x6e7 @0x9
0x06de…070b at000a = ╱ef╱$╱ // 0x6e8 @0xa
0x06de…070b at000b = ╱ed╱(╱ // 0x6e9 @0xb
0x06de…070b at000c = ╱31╱1╱ // 0x6ea @0xc
0x06de…070b at000d = ╱32╱2╱ // 0x6eb @0xd
0x06de…070b at000e = ╱fe0000c004╱ // 0x6ec @0xe
0x06de…070b at0013 = ╱ee╱)╱ // 0x6f1 @0x13
0x06de…070b at0014 = ╱dc╱=╱ // 0x6f2 @0x14
0x06de…070b at0015 = ╱22╱"╱ // 0x6f3 @0x15
0x06de…070b at0016 = ╱2b╱+╱ // 0x6f4 @0x16
0x06de…070b at0017 = ╱22╱"╱ // 0x6f5 @0x17
0x06de…070b at0018 = ╱b6╱ THEN ╱ // 0x6f6 @0x18
0x06de…070b at0019 = ╱52╱R╱ // 0x6f7 @0x19
0x06de…070b at001a = ╱45╱E╱ // 0x6f8 @0x1a
0x06de…070b at001b = ╱53╱S╱ // 0x6f9 @0x1b
0x06de…070b at001c = ╱55╱U╱ // 0x6fa @0x1c
0x06de…070b at001d = ╱4c╱L╱ // 0x6fb @0x1d
0x06de…070b at001e = ╱ef╱$╱ // 0x6fc @0x1e
0x06de…070b at001f = ╱ed╱(╱ // 0x6fd @0x1f
0x06de…070b at0020 = ╱31╱1╱ // 0x6fe @0x20
0x06de…070b at0021 = ╱32╱2╱ // 0x6ff @0x21
0x06de…070b at0022 = ╱fe0000c004╱ // 0x700 @0x22
0x06de…070b at0027 = ╱ee╱)╱ // 0x705 @0x27
0x06de…070b at0028 = ╱dc╱=╱ // 0x706 @0x28
0x06de…070b at0029 = ╱22╱"╱ // 0x707 @0x29
0x06de…070b at002a = ╱20╱…╱ // 0x708 @0x2a
0x06de…070b at002b = ╱22╱"╱ // 0x709 @0x2b
0x06de…070b at002c = EOL // 0x70a @0x2c
0x06de…070b }
0x070b…0737 948e 0840 EXEC PV(GRUPEN$(12),GRUPBEL$(12))
0x070b…0737 LineComalBin {
0x070b…0737 ptr = 0x948e // 0x70b @0x0
0x070b…0737 lno = 0x0348 // 0x70d @0x2
0x070b…0737 at0004 = ╱9d╱ EXEC ╱ // 0x70f @0x4
0x070b…0737 at0005 = ╱50╱P╱ // 0x710 @0x5
0x070b…0737 at0006 = ╱56╱V╱ // 0x711 @0x6
0x070b…0737 at0007 = ╱ed╱(╱ // 0x712 @0x7
0x070b…0737 at0008 = ╱47╱G╱ // 0x713 @0x8
0x070b…0737 at0009 = ╱52╱R╱ // 0x714 @0x9
0x070b…0737 at000a = ╱55╱U╱ // 0x715 @0xa
0x070b…0737 at000b = ╱50╱P╱ // 0x716 @0xb
0x070b…0737 at000c = ╱45╱E╱ // 0x717 @0xc
0x070b…0737 at000d = ╱4e╱N╱ // 0x718 @0xd
0x070b…0737 at000e = ╱ef╱$╱ // 0x719 @0xe
0x070b…0737 at000f = ╱ed╱(╱ // 0x71a @0xf
0x070b…0737 at0010 = ╱31╱1╱ // 0x71b @0x10
0x070b…0737 at0011 = ╱32╱2╱ // 0x71c @0x11
0x070b…0737 at0012 = ╱fe0000c004╱ // 0x71d @0x12
0x070b…0737 at0017 = ╱ee╱)╱ // 0x722 @0x17
0x070b…0737 at0018 = ╱ec╱,╱ // 0x723 @0x18
0x070b…0737 at0019 = ╱47╱G╱ // 0x724 @0x19
0x070b…0737 at001a = ╱52╱R╱ // 0x725 @0x1a
0x070b…0737 at001b = ╱55╱U╱ // 0x726 @0x1b
0x070b…0737 at001c = ╱50╱P╱ // 0x727 @0x1c
0x070b…0737 at001d = ╱42╱B╱ // 0x728 @0x1d
0x070b…0737 at001e = ╱45╱E╱ // 0x729 @0x1e
0x070b…0737 at001f = ╱4c╱L╱ // 0x72a @0x1f
0x070b…0737 at0020 = ╱ef╱$╱ // 0x72b @0x20
0x070b…0737 at0021 = ╱ed╱(╱ // 0x72c @0x21
0x070b…0737 at0022 = ╱31╱1╱ // 0x72d @0x22
0x070b…0737 at0023 = ╱32╱2╱ // 0x72e @0x23
0x070b…0737 at0024 = ╱fe0000c004╱ // 0x72f @0x24
0x070b…0737 at0029 = ╱ee╱)╱ // 0x734 @0x29
0x070b…0737 at002a = ╱ee╱)╱ // 0x735 @0x2a
0x070b…0737 at002b = EOL // 0x736 @0x2b
0x070b…0737 }
0x0737…0786 94dd 0850 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10)
0x0737…0786 LineComalBin {
0x0737…0786 ptr = 0x94dd // 0x737 @0x0
0x0737…0786 lno = 0x0352 // 0x739 @0x2
0x0737…0786 at0004 = ╱92╱ PRINT ╱ // 0x73b @0x4
0x0737…0786 at0005 = ╱22╱"╱ // 0x73c @0x5
0x0737…0786 at0006 = ╱54╱T╱ // 0x73d @0x6
0x0737…0786 at0007 = ╱6f╱o╱ // 0x73e @0x7
0x0737…0786 at0008 = ╱74╱t╱ // 0x73f @0x8
0x0737…0786 at0009 = ╱61╱a╱ // 0x740 @0x9
0x0737…0786 at000a = ╱6c╱l╱ // 0x741 @0xa
0x0737…0786 at000b = ╱20╱…╱ // 0x742 @0xb
0x0737…0786 at000c = ╱22╱"╱ // 0x743 @0xc
0x0737…0786 at000d = ╱eb╱;╱ // 0x744 @0xd
0x0737…0786 at000e = ╱47╱G╱ // 0x745 @0xe
0x0737…0786 at000f = ╱52╱R╱ // 0x746 @0xf
0x0737…0786 at0010 = ╱55╱U╱ // 0x747 @0x10
0x0737…0786 at0011 = ╱50╱P╱ // 0x748 @0x11
0x0737…0786 at0012 = ╱50╱P╱ // 0x749 @0x12
0x0737…0786 at0013 = ╱45╱E╱ // 0x74a @0x13
0x0737…0786 at0014 = ╱ef╱$╱ // 0x74b @0x14
0x0737…0786 at0015 = ╱ec╱,╱ // 0x74c @0x15
0x0737…0786 at0016 = ╱47╱G╱ // 0x74d @0x16
0x0737…0786 at0017 = ╱52╱R╱ // 0x74e @0x17
0x0737…0786 at0018 = ╱55╱U╱ // 0x74f @0x18
0x0737…0786 at0019 = ╱50╱P╱ // 0x750 @0x19
0x0737…0786 at001a = ╱45╱E╱ // 0x751 @0x1a
0x0737…0786 at001b = ╱4e╱N╱ // 0x752 @0x1b
0x0737…0786 at001c = ╱ef╱$╱ // 0x753 @0x1c
0x0737…0786 at001d = ╱ed╱(╱ // 0x754 @0x1d
0x0737…0786 at001e = ╱56╱V╱ // 0x755 @0x1e
0x0737…0786 at001f = ╱f0╱:╱ // 0x756 @0x1f
0x0737…0786 at0020 = ╱31╱1╱ // 0x757 @0x20
0x0737…0786 at0021 = ╱30╱0╱ // 0x758 @0x21
0x0737…0786 at0022 = ╱fe0000a004╱ // 0x759 @0x22
0x0737…0786 at0027 = ╱ee╱)╱ // 0x75e @0x27
0x0737…0786 at0028 = ╱ec╱,╱ // 0x75f @0x28
0x0737…0786 at0029 = ╱47╱G╱ // 0x760 @0x29
0x0737…0786 at002a = ╱52╱R╱ // 0x761 @0x2a
0x0737…0786 at002b = ╱55╱U╱ // 0x762 @0x2b
0x0737…0786 at002c = ╱50╱P╱ // 0x763 @0x2c
0x0737…0786 at002d = ╱42╱B╱ // 0x764 @0x2d
0x0737…0786 at002e = ╱45╱E╱ // 0x765 @0x2e
0x0737…0786 at002f = ╱4c╱L╱ // 0x766 @0x2f
0x0737…0786 at0030 = ╱ef╱$╱ // 0x767 @0x30
0x0737…0786 at0031 = ╱ed╱(╱ // 0x768 @0x31
0x0737…0786 at0032 = ╱56╱V╱ // 0x769 @0x32
0x0737…0786 at0033 = ╱f0╱:╱ // 0x76a @0x33
0x0737…0786 at0034 = ╱31╱1╱ // 0x76b @0x34
0x0737…0786 at0035 = ╱30╱0╱ // 0x76c @0x35
0x0737…0786 at0036 = ╱fe0000a004╱ // 0x76d @0x36
0x0737…0786 at003b = ╱ee╱)╱ // 0x772 @0x3b
0x0737…0786 at003c = ╱ec╱,╱ // 0x773 @0x3c
0x0737…0786 at003d = ╱52╱R╱ // 0x774 @0x3d
0x0737…0786 at003e = ╱45╱E╱ // 0x775 @0x3e
0x0737…0786 at003f = ╱53╱S╱ // 0x776 @0x3f
0x0737…0786 at0040 = ╱55╱U╱ // 0x777 @0x40
0x0737…0786 at0041 = ╱4c╱L╱ // 0x778 @0x41
0x0737…0786 at0042 = ╱ef╱$╱ // 0x779 @0x42
0x0737…0786 at0043 = ╱ed╱(╱ // 0x77a @0x43
0x0737…0786 at0044 = ╱56╱V╱ // 0x77b @0x44
0x0737…0786 at0045 = ╱f0╱:╱ // 0x77c @0x45
0x0737…0786 at0046 = ╱31╱1╱ // 0x77d @0x46
0x0737…0786 at0047 = ╱30╱0╱ // 0x77e @0x47
0x0737…0786 at0048 = ╱fe0000a004╱ // 0x77f @0x48
0x0737…0786 at004d = ╱ee╱)╱ // 0x784 @0x4d
0x0737…0786 at004e = EOL // 0x785 @0x4e
0x0737…0786 }
0x0786…078c 94e3 0860 PRINT
0x0786…078c LineComalBin {
0x0786…078c ptr = 0x94e3 // 0x786 @0x0
0x0786…078c lno = 0x035c // 0x788 @0x2
0x0786…078c at0004 = ╱92╱ PRINT ╱ // 0x78a @0x4
0x0786…078c at0005 = EOL // 0x78b @0x5
0x0786…078c }
0x078c…07a8 94ff 0870 GRUPPE$=T$(NR,E,5)
0x078c…07a8 LineComalBin {
0x078c…07a8 ptr = 0x94ff // 0x78c @0x0
0x078c…07a8 lno = 0x0366 // 0x78e @0x2
0x078c…07a8 at0004 = ╱47╱G╱ // 0x790 @0x4
0x078c…07a8 at0005 = ╱52╱R╱ // 0x791 @0x5
0x078c…07a8 at0006 = ╱55╱U╱ // 0x792 @0x6
0x078c…07a8 at0007 = ╱50╱P╱ // 0x793 @0x7
0x078c…07a8 at0008 = ╱50╱P╱ // 0x794 @0x8
0x078c…07a8 at0009 = ╱45╱E╱ // 0x795 @0x9
0x078c…07a8 at000a = ╱ef╱$╱ // 0x796 @0xa
0x078c…07a8 at000b = ╱dc╱=╱ // 0x797 @0xb
0x078c…07a8 at000c = ╱54╱T╱ // 0x798 @0xc
0x078c…07a8 at000d = ╱ef╱$╱ // 0x799 @0xd
0x078c…07a8 at000e = ╱ed╱(╱ // 0x79a @0xe
0x078c…07a8 at000f = ╱4e╱N╱ // 0x79b @0xf
0x078c…07a8 at0010 = ╱52╱R╱ // 0x79c @0x10
0x078c…07a8 at0011 = ╱ec╱,╱ // 0x79d @0x11
0x078c…07a8 at0012 = ╱45╱E╱ // 0x79e @0x12
0x078c…07a8 at0013 = ╱ec╱,╱ // 0x79f @0x13
0x078c…07a8 at0014 = ╱35╱5╱ // 0x7a0 @0x14
0x078c…07a8 at0015 = ╱fe0000a003╱ // 0x7a1 @0x15
0x078c…07a8 at001a = ╱ee╱)╱ // 0x7a6 @0x1a
0x078c…07a8 at001b = EOL // 0x7a7 @0x1b
0x078c…07a8 }
0x07a8…07b9 9510 0880 GRUPEN$="0+"
0x07a8…07b9 LineComalBin {
0x07a8…07b9 ptr = 0x9510 // 0x7a8 @0x0
0x07a8…07b9 lno = 0x0370 // 0x7aa @0x2
0x07a8…07b9 at0004 = ╱47╱G╱ // 0x7ac @0x4
0x07a8…07b9 at0005 = ╱52╱R╱ // 0x7ad @0x5
0x07a8…07b9 at0006 = ╱55╱U╱ // 0x7ae @0x6
0x07a8…07b9 at0007 = ╱50╱P╱ // 0x7af @0x7
0x07a8…07b9 at0008 = ╱45╱E╱ // 0x7b0 @0x8
0x07a8…07b9 at0009 = ╱4e╱N╱ // 0x7b1 @0x9
0x07a8…07b9 at000a = ╱ef╱$╱ // 0x7b2 @0xa
0x07a8…07b9 at000b = ╱dc╱=╱ // 0x7b3 @0xb
0x07a8…07b9 at000c = ╱22╱"╱ // 0x7b4 @0xc
0x07a8…07b9 at000d = ╱30╱0╱ // 0x7b5 @0xd
0x07a8…07b9 at000e = ╱2b╱+╱ // 0x7b6 @0xe
0x07a8…07b9 at000f = ╱22╱"╱ // 0x7b7 @0xf
0x07a8…07b9 at0010 = EOL // 0x7b8 @0x10
0x07a8…07b9 }
0x07b9…07dc 9533 0890 GRUPBEL$=GRUPEN$;LINIE=LINIE+G
0x07b9…07dc LineComalBin {
0x07b9…07dc ptr = 0x9533 // 0x7b9 @0x0
0x07b9…07dc lno = 0x037a // 0x7bb @0x2
0x07b9…07dc at0004 = ╱47╱G╱ // 0x7bd @0x4
0x07b9…07dc at0005 = ╱52╱R╱ // 0x7be @0x5
0x07b9…07dc at0006 = ╱55╱U╱ // 0x7bf @0x6
0x07b9…07dc at0007 = ╱50╱P╱ // 0x7c0 @0x7
0x07b9…07dc at0008 = ╱42╱B╱ // 0x7c1 @0x8
0x07b9…07dc at0009 = ╱45╱E╱ // 0x7c2 @0x9
0x07b9…07dc at000a = ╱4c╱L╱ // 0x7c3 @0xa
0x07b9…07dc at000b = ╱ef╱$╱ // 0x7c4 @0xb
0x07b9…07dc at000c = ╱dc╱=╱ // 0x7c5 @0xc
0x07b9…07dc at000d = ╱47╱G╱ // 0x7c6 @0xd
0x07b9…07dc at000e = ╱52╱R╱ // 0x7c7 @0xe
0x07b9…07dc at000f = ╱55╱U╱ // 0x7c8 @0xf
0x07b9…07dc at0010 = ╱50╱P╱ // 0x7c9 @0x10
0x07b9…07dc at0011 = ╱45╱E╱ // 0x7ca @0x11
0x07b9…07dc at0012 = ╱4e╱N╱ // 0x7cb @0x12
0x07b9…07dc at0013 = ╱ef╱$╱ // 0x7cc @0x13
0x07b9…07dc at0014 = ╱eb╱;╱ // 0x7cd @0x14
0x07b9…07dc at0015 = ╱4c╱L╱ // 0x7ce @0x15
0x07b9…07dc at0016 = ╱49╱I╱ // 0x7cf @0x16
0x07b9…07dc at0017 = ╱4e╱N╱ // 0x7d0 @0x17
0x07b9…07dc at0018 = ╱49╱I╱ // 0x7d1 @0x18
0x07b9…07dc at0019 = ╱45╱E╱ // 0x7d2 @0x19
0x07b9…07dc at001a = ╱dc╱=╱ // 0x7d3 @0x1a
0x07b9…07dc at001b = ╱4c╱L╱ // 0x7d4 @0x1b
0x07b9…07dc at001c = ╱49╱I╱ // 0x7d5 @0x1c
0x07b9…07dc at001d = ╱4e╱N╱ // 0x7d6 @0x1d
0x07b9…07dc at001e = ╱49╱I╱ // 0x7d7 @0x1e
0x07b9…07dc at001f = ╱45╱E╱ // 0x7d8 @0x1f
0x07b9…07dc at0020 = ╱e2╱+╱ // 0x7d9 @0x20
0x07b9…07dc at0021 = ╱47╱G╱ // 0x7da @0x21
0x07b9…07dc at0022 = EOL // 0x7db @0x22
0x07b9…07dc }
0x07dc…07e2 9539 0900 ENDIF
0x07dc…07e2 LineComalBin {
0x07dc…07e2 ptr = 0x9539 // 0x7dc @0x0
0x07dc…07e2 lno = 0x0384 // 0x7de @0x2
0x07dc…07e2 at0004 = ╱9b╱ ENDIF ╱ // 0x7e0 @0x4
0x07dc…07e2 at0005 = EOL // 0x7e1 @0x5
0x07dc…07e2 }
0x07e2…07f4 954b 0910 LINIE=LINIE+E
0x07e2…07f4 LineComalBin {
0x07e2…07f4 ptr = 0x954b // 0x7e2 @0x0
0x07e2…07f4 lno = 0x038e // 0x7e4 @0x2
0x07e2…07f4 at0004 = ╱4c╱L╱ // 0x7e6 @0x4
0x07e2…07f4 at0005 = ╱49╱I╱ // 0x7e7 @0x5
0x07e2…07f4 at0006 = ╱4e╱N╱ // 0x7e8 @0x6
0x07e2…07f4 at0007 = ╱49╱I╱ // 0x7e9 @0x7
0x07e2…07f4 at0008 = ╱45╱E╱ // 0x7ea @0x8
0x07e2…07f4 at0009 = ╱dc╱=╱ // 0x7eb @0x9
0x07e2…07f4 at000a = ╱4c╱L╱ // 0x7ec @0xa
0x07e2…07f4 at000b = ╱49╱I╱ // 0x7ed @0xb
0x07e2…07f4 at000c = ╱4e╱N╱ // 0x7ee @0xc
0x07e2…07f4 at000d = ╱49╱I╱ // 0x7ef @0xd
0x07e2…07f4 at000e = ╱45╱E╱ // 0x7f0 @0xe
0x07e2…07f4 at000f = ╱e2╱+╱ // 0x7f1 @0xf
0x07e2…07f4 at0010 = ╱45╱E╱ // 0x7f2 @0x10
0x07e2…07f4 at0011 = EOL // 0x7f3 @0x11
0x07e2…07f4 }
0x07f4…0815 956c 0920 RESUL$=T$(NR,7:10)
0x07f4…0815 LineComalBin {
0x07f4…0815 ptr = 0x956c // 0x7f4 @0x0
0x07f4…0815 lno = 0x0398 // 0x7f6 @0x2
0x07f4…0815 at0004 = ╱52╱R╱ // 0x7f8 @0x4
0x07f4…0815 at0005 = ╱45╱E╱ // 0x7f9 @0x5
0x07f4…0815 at0006 = ╱53╱S╱ // 0x7fa @0x6
0x07f4…0815 at0007 = ╱55╱U╱ // 0x7fb @0x7
0x07f4…0815 at0008 = ╱4c╱L╱ // 0x7fc @0x8
0x07f4…0815 at0009 = ╱ef╱$╱ // 0x7fd @0x9
0x07f4…0815 at000a = ╱dc╱=╱ // 0x7fe @0xa
0x07f4…0815 at000b = ╱54╱T╱ // 0x7ff @0xb
0x07f4…0815 at000c = ╱ef╱$╱ // 0x800 @0xc
0x07f4…0815 at000d = ╱ed╱(╱ // 0x801 @0xd
0x07f4…0815 at000e = ╱4e╱N╱ // 0x802 @0xe
0x07f4…0815 at000f = ╱52╱R╱ // 0x803 @0xf
0x07f4…0815 at0010 = ╱ec╱,╱ // 0x804 @0x10
0x07f4…0815 at0011 = ╱37╱7╱ // 0x805 @0x11
0x07f4…0815 at0012 = ╱fe0000e003╱ // 0x806 @0x12
0x07f4…0815 at0017 = ╱f0╱:╱ // 0x80b @0x17
0x07f4…0815 at0018 = ╱31╱1╱ // 0x80c @0x18
0x07f4…0815 at0019 = ╱30╱0╱ // 0x80d @0x19
0x07f4…0815 at001a = ╱fe0000a004╱ // 0x80e @0x1a
0x07f4…0815 at001f = ╱ee╱)╱ // 0x813 @0x1f
0x07f4…0815 at0020 = EOL // 0x814 @0x20
0x07f4…0815 }
0x0815…0839 9590 0930 EXEC CALC(B,RESUL$,GRUPEN$,GRUPEN$)
0x0815…0839 LineComalBin {
0x0815…0839 ptr = 0x9590 // 0x815 @0x0
0x0815…0839 lno = 0x03a2 // 0x817 @0x2
0x0815…0839 at0004 = ╱9d╱ EXEC ╱ // 0x819 @0x4
0x0815…0839 at0005 = ╱43╱C╱ // 0x81a @0x5
0x0815…0839 at0006 = ╱41╱A╱ // 0x81b @0x6
0x0815…0839 at0007 = ╱4c╱L╱ // 0x81c @0x7
0x0815…0839 at0008 = ╱43╱C╱ // 0x81d @0x8
0x0815…0839 at0009 = ╱ed╱(╱ // 0x81e @0x9
0x0815…0839 at000a = ╱42╱B╱ // 0x81f @0xa
0x0815…0839 at000b = ╱ec╱,╱ // 0x820 @0xb
0x0815…0839 at000c = ╱52╱R╱ // 0x821 @0xc
0x0815…0839 at000d = ╱45╱E╱ // 0x822 @0xd
0x0815…0839 at000e = ╱53╱S╱ // 0x823 @0xe
0x0815…0839 at000f = ╱55╱U╱ // 0x824 @0xf
0x0815…0839 at0010 = ╱4c╱L╱ // 0x825 @0x10
0x0815…0839 at0011 = ╱ef╱$╱ // 0x826 @0x11
0x0815…0839 at0012 = ╱ec╱,╱ // 0x827 @0x12
0x0815…0839 at0013 = ╱47╱G╱ // 0x828 @0x13
0x0815…0839 at0014 = ╱52╱R╱ // 0x829 @0x14
0x0815…0839 at0015 = ╱55╱U╱ // 0x82a @0x15
0x0815…0839 at0016 = ╱50╱P╱ // 0x82b @0x16
0x0815…0839 at0017 = ╱45╱E╱ // 0x82c @0x17
0x0815…0839 at0018 = ╱4e╱N╱ // 0x82d @0x18
0x0815…0839 at0019 = ╱ef╱$╱ // 0x82e @0x19
0x0815…0839 at001a = ╱ec╱,╱ // 0x82f @0x1a
0x0815…0839 at001b = ╱47╱G╱ // 0x830 @0x1b
0x0815…0839 at001c = ╱52╱R╱ // 0x831 @0x1c
0x0815…0839 at001d = ╱55╱U╱ // 0x832 @0x1d
0x0815…0839 at001e = ╱50╱P╱ // 0x833 @0x1e
0x0815…0839 at001f = ╱45╱E╱ // 0x834 @0x1f
0x0815…0839 at0020 = ╱4e╱N╱ // 0x835 @0x20
0x0815…0839 at0021 = ╱ef╱$╱ // 0x836 @0x21
0x0815…0839 at0022 = ╱ee╱)╱ // 0x837 @0x22
0x0815…0839 at0023 = EOL // 0x838 @0x23
0x0815…0839 }
0x0839…0855 95ac 0940 EXEC CALC(B,RESUL$,EN$,EN$)
0x0839…0855 LineComalBin {
0x0839…0855 ptr = 0x95ac // 0x839 @0x0
0x0839…0855 lno = 0x03ac // 0x83b @0x2
0x0839…0855 at0004 = ╱9d╱ EXEC ╱ // 0x83d @0x4
0x0839…0855 at0005 = ╱43╱C╱ // 0x83e @0x5
0x0839…0855 at0006 = ╱41╱A╱ // 0x83f @0x6
0x0839…0855 at0007 = ╱4c╱L╱ // 0x840 @0x7
0x0839…0855 at0008 = ╱43╱C╱ // 0x841 @0x8
0x0839…0855 at0009 = ╱ed╱(╱ // 0x842 @0x9
0x0839…0855 at000a = ╱42╱B╱ // 0x843 @0xa
0x0839…0855 at000b = ╱ec╱,╱ // 0x844 @0xb
0x0839…0855 at000c = ╱52╱R╱ // 0x845 @0xc
0x0839…0855 at000d = ╱45╱E╱ // 0x846 @0xd
0x0839…0855 at000e = ╱53╱S╱ // 0x847 @0xe
0x0839…0855 at000f = ╱55╱U╱ // 0x848 @0xf
0x0839…0855 at0010 = ╱4c╱L╱ // 0x849 @0x10
0x0839…0855 at0011 = ╱ef╱$╱ // 0x84a @0x11
0x0839…0855 at0012 = ╱ec╱,╱ // 0x84b @0x12
0x0839…0855 at0013 = ╱45╱E╱ // 0x84c @0x13
0x0839…0855 at0014 = ╱4e╱N╱ // 0x84d @0x14
0x0839…0855 at0015 = ╱ef╱$╱ // 0x84e @0x15
0x0839…0855 at0016 = ╱ec╱,╱ // 0x84f @0x16
0x0839…0855 at0017 = ╱45╱E╱ // 0x850 @0x17
0x0839…0855 at0018 = ╱4e╱N╱ // 0x851 @0x18
0x0839…0855 at0019 = ╱ef╱$╱ // 0x852 @0x19
0x0839…0855 at001a = ╱ee╱)╱ // 0x853 @0x1a
0x0839…0855 at001b = EOL // 0x854 @0x1b
0x0839…0855 }
0x0855…0877 95ce 0950 RESUL$=T$(NR,17:10)
0x0855…0877 LineComalBin {
0x0855…0877 ptr = 0x95ce // 0x855 @0x0
0x0855…0877 lno = 0x03b6 // 0x857 @0x2
0x0855…0877 at0004 = ╱52╱R╱ // 0x859 @0x4
0x0855…0877 at0005 = ╱45╱E╱ // 0x85a @0x5
0x0855…0877 at0006 = ╱53╱S╱ // 0x85b @0x6
0x0855…0877 at0007 = ╱55╱U╱ // 0x85c @0x7
0x0855…0877 at0008 = ╱4c╱L╱ // 0x85d @0x8
0x0855…0877 at0009 = ╱ef╱$╱ // 0x85e @0x9
0x0855…0877 at000a = ╱dc╱=╱ // 0x85f @0xa
0x0855…0877 at000b = ╱54╱T╱ // 0x860 @0xb
0x0855…0877 at000c = ╱ef╱$╱ // 0x861 @0xc
0x0855…0877 at000d = ╱ed╱(╱ // 0x862 @0xd
0x0855…0877 at000e = ╱4e╱N╱ // 0x863 @0xe
0x0855…0877 at000f = ╱52╱R╱ // 0x864 @0xf
0x0855…0877 at0010 = ╱ec╱,╱ // 0x865 @0x10
0x0855…0877 at0011 = ╱31╱1╱ // 0x866 @0x11
0x0855…0877 at0012 = ╱37╱7╱ // 0x867 @0x12
0x0855…0877 at0013 = ╱fe00008805╱ // 0x868 @0x13
0x0855…0877 at0018 = ╱f0╱:╱ // 0x86d @0x18
0x0855…0877 at0019 = ╱31╱1╱ // 0x86e @0x19
0x0855…0877 at001a = ╱30╱0╱ // 0x86f @0x1a
0x0855…0877 at001b = ╱fe0000a004╱ // 0x870 @0x1b
0x0855…0877 at0020 = ╱ee╱)╱ // 0x875 @0x20
0x0855…0877 at0021 = EOL // 0x876 @0x21
0x0855…0877 }
0x0877…089d 95f4 0960 EXEC CALC(B,RESUL$,GRUPBEL$,GRUPBEL$)
0x0877…089d LineComalBin {
0x0877…089d ptr = 0x95f4 // 0x877 @0x0
0x0877…089d lno = 0x03c0 // 0x879 @0x2
0x0877…089d at0004 = ╱9d╱ EXEC ╱ // 0x87b @0x4
0x0877…089d at0005 = ╱43╱C╱ // 0x87c @0x5
0x0877…089d at0006 = ╱41╱A╱ // 0x87d @0x6
0x0877…089d at0007 = ╱4c╱L╱ // 0x87e @0x7
0x0877…089d at0008 = ╱43╱C╱ // 0x87f @0x8
0x0877…089d at0009 = ╱ed╱(╱ // 0x880 @0x9
0x0877…089d at000a = ╱42╱B╱ // 0x881 @0xa
0x0877…089d at000b = ╱ec╱,╱ // 0x882 @0xb
0x0877…089d at000c = ╱52╱R╱ // 0x883 @0xc
0x0877…089d at000d = ╱45╱E╱ // 0x884 @0xd
0x0877…089d at000e = ╱53╱S╱ // 0x885 @0xe
0x0877…089d at000f = ╱55╱U╱ // 0x886 @0xf
0x0877…089d at0010 = ╱4c╱L╱ // 0x887 @0x10
0x0877…089d at0011 = ╱ef╱$╱ // 0x888 @0x11
0x0877…089d at0012 = ╱ec╱,╱ // 0x889 @0x12
0x0877…089d at0013 = ╱47╱G╱ // 0x88a @0x13
0x0877…089d at0014 = ╱52╱R╱ // 0x88b @0x14
0x0877…089d at0015 = ╱55╱U╱ // 0x88c @0x15
0x0877…089d at0016 = ╱50╱P╱ // 0x88d @0x16
0x0877…089d at0017 = ╱42╱B╱ // 0x88e @0x17
0x0877…089d at0018 = ╱45╱E╱ // 0x88f @0x18
0x0877…089d at0019 = ╱4c╱L╱ // 0x890 @0x19
0x0877…089d at001a = ╱ef╱$╱ // 0x891 @0x1a
0x0877…089d at001b = ╱ec╱,╱ // 0x892 @0x1b
0x0877…089d at001c = ╱47╱G╱ // 0x893 @0x1c
0x0877…089d at001d = ╱52╱R╱ // 0x894 @0x1d
0x0877…089d at001e = ╱55╱U╱ // 0x895 @0x1e
0x0877…089d at001f = ╱50╱P╱ // 0x896 @0x1f
0x0877…089d at0020 = ╱42╱B╱ // 0x897 @0x20
0x0877…089d at0021 = ╱45╱E╱ // 0x898 @0x21
0x0877…089d at0022 = ╱4c╱L╱ // 0x899 @0x22
0x0877…089d at0023 = ╱ef╱$╱ // 0x89a @0x23
0x0877…089d at0024 = ╱ee╱)╱ // 0x89b @0x24
0x0877…089d at0025 = EOL // 0x89c @0x25
0x0877…089d }
0x089d…08b9 9610 0970 EXEC CALC(B,RESUL$,BE$,BE$)
0x089d…08b9 LineComalBin {
0x089d…08b9 ptr = 0x9610 // 0x89d @0x0
0x089d…08b9 lno = 0x03ca // 0x89f @0x2
0x089d…08b9 at0004 = ╱9d╱ EXEC ╱ // 0x8a1 @0x4
0x089d…08b9 at0005 = ╱43╱C╱ // 0x8a2 @0x5
0x089d…08b9 at0006 = ╱41╱A╱ // 0x8a3 @0x6
0x089d…08b9 at0007 = ╱4c╱L╱ // 0x8a4 @0x7
0x089d…08b9 at0008 = ╱43╱C╱ // 0x8a5 @0x8
0x089d…08b9 at0009 = ╱ed╱(╱ // 0x8a6 @0x9
0x089d…08b9 at000a = ╱42╱B╱ // 0x8a7 @0xa
0x089d…08b9 at000b = ╱ec╱,╱ // 0x8a8 @0xb
0x089d…08b9 at000c = ╱52╱R╱ // 0x8a9 @0xc
0x089d…08b9 at000d = ╱45╱E╱ // 0x8aa @0xd
0x089d…08b9 at000e = ╱53╱S╱ // 0x8ab @0xe
0x089d…08b9 at000f = ╱55╱U╱ // 0x8ac @0xf
0x089d…08b9 at0010 = ╱4c╱L╱ // 0x8ad @0x10
0x089d…08b9 at0011 = ╱ef╱$╱ // 0x8ae @0x11
0x089d…08b9 at0012 = ╱ec╱,╱ // 0x8af @0x12
0x089d…08b9 at0013 = ╱42╱B╱ // 0x8b0 @0x13
0x089d…08b9 at0014 = ╱45╱E╱ // 0x8b1 @0x14
0x089d…08b9 at0015 = ╱ef╱$╱ // 0x8b2 @0x15
0x089d…08b9 at0016 = ╱ec╱,╱ // 0x8b3 @0x16
0x089d…08b9 at0017 = ╱42╱B╱ // 0x8b4 @0x17
0x089d…08b9 at0018 = ╱45╱E╱ // 0x8b5 @0x18
0x089d…08b9 at0019 = ╱ef╱$╱ // 0x8b6 @0x19
0x089d…08b9 at001a = ╱ee╱)╱ // 0x8b7 @0x1a
0x089d…08b9 at001b = EOL // 0x8b8 @0x1b
0x089d…08b9 }
0x08b9…08e0 (29,) 9637 0980 EXEC PV(T$(NR,16),T$(NR,26))
0x08b9…08e0 LineComalBin {
0x08b9…08e0 ptr = 0x9637 // 0x8b9 @0x0
0x08b9…08e0 lno = 0x03d4 // 0x8bb @0x2
0x08b9…08e0 at0004 = ╱9d╱ EXEC ╱ // 0x8bd @0x4
0x08b9…08e0 at0005 = ╱50╱P╱ // 0x8be @0x5
0x08b9…08e0 at0006 = ╱56╱V╱ // 0x8bf @0x6
0x08b9…08e0 at0007 = ╱ed╱(╱ // 0x8c0 @0x7
0x08b9…08e0 at0008 = ╱54╱T╱ // 0x8c1 @0x8
0x08b9…08e0 at0009 = ╱ef╱$╱ // 0x8c2 @0x9
0x08b9…08e0 at000a = ╱ed╱(╱ // 0x8c3 @0xa
0x08b9…08e0 at000b = ╱4e╱N╱ // 0x8c4 @0xb
0x08b9…08e0 at000c = ╱52╱R╱ // 0x8c5 @0xc
0x08b9…08e0 at000d = ╱ec╱,╱ // 0x8c6 @0xd
0x08b9…08e0 at000e = ╱31╱1╱ // 0x8c7 @0xe
0x08b9…08e0 at000f = ╱36╱6╱ // 0x8c8 @0xf
0x08b9…08e0 at0010 = ╱fe00008005╱ // 0x8c9 @0x10
0x08b9…08e0 at0015 = ╱ee╱)╱ // 0x8ce @0x15
0x08b9…08e0 at0016 = ╱ec╱,╱ // 0x8cf @0x16
0x08b9…08e0 at0017 = ╱54╱T╱ // 0x8d0 @0x17
0x08b9…08e0 at0018 = ╱ef╱$╱ // 0x8d1 @0x18
0x08b9…08e0 at0019 = ╱ed╱(╱ // 0x8d2 @0x19
0x08b9…08e0 at001a = ╱4e╱N╱ // 0x8d3 @0x1a
0x08b9…08e0 at001b = ╱52╱R╱ // 0x8d4 @0x1b
0x08b9…08e0 at001c = ╱ec╱,╱ // 0x8d5 @0x1c
0x08b9…08e0 at001d = ╱32╱2╱ // 0x8d6 @0x1d
0x08b9…08e0 at001e = ╱36╱6╱ // 0x8d7 @0x1e
0x08b9…08e0 at001f = ╱fe0000d005╱ // 0x8d8 @0x1f
0x08b9…08e0 at0024 = ╱ee╱)╱ // 0x8dd @0x24
0x08b9…08e0 at0025 = ╱ee╱)╱ // 0x8de @0x25
0x08b9…08e0 at0026 = EOL // 0x8df @0x26
0x08b9…08e0 }
0x08e0…0922 9679 0990 PRINT T$(NR,E:6),T$(NR,7:10),T$(NR,17:10)
0x08e0…0922 LineComalBin {
0x08e0…0922 ptr = 0x9679 // 0x8e0 @0x0
0x08e0…0922 lno = 0x03de // 0x8e2 @0x2
0x08e0…0922 at0004 = ╱92╱ PRINT ╱ // 0x8e4 @0x4
0x08e0…0922 at0005 = ╱54╱T╱ // 0x8e5 @0x5
0x08e0…0922 at0006 = ╱ef╱$╱ // 0x8e6 @0x6
0x08e0…0922 at0007 = ╱ed╱(╱ // 0x8e7 @0x7
0x08e0…0922 at0008 = ╱4e╱N╱ // 0x8e8 @0x8
0x08e0…0922 at0009 = ╱52╱R╱ // 0x8e9 @0x9
0x08e0…0922 at000a = ╱ec╱,╱ // 0x8ea @0xa
0x08e0…0922 at000b = ╱45╱E╱ // 0x8eb @0xb
0x08e0…0922 at000c = ╱f0╱:╱ // 0x8ec @0xc
0x08e0…0922 at000d = ╱36╱6╱ // 0x8ed @0xd
0x08e0…0922 at000e = ╱fe0000c003╱ // 0x8ee @0xe
0x08e0…0922 at0013 = ╱ee╱)╱ // 0x8f3 @0x13
0x08e0…0922 at0014 = ╱ec╱,╱ // 0x8f4 @0x14
0x08e0…0922 at0015 = ╱54╱T╱ // 0x8f5 @0x15
0x08e0…0922 at0016 = ╱ef╱$╱ // 0x8f6 @0x16
0x08e0…0922 at0017 = ╱ed╱(╱ // 0x8f7 @0x17
0x08e0…0922 at0018 = ╱4e╱N╱ // 0x8f8 @0x18
0x08e0…0922 at0019 = ╱52╱R╱ // 0x8f9 @0x19
0x08e0…0922 at001a = ╱ec╱,╱ // 0x8fa @0x1a
0x08e0…0922 at001b = ╱37╱7╱ // 0x8fb @0x1b
0x08e0…0922 at001c = ╱fe0000e003╱ // 0x8fc @0x1c
0x08e0…0922 at0021 = ╱f0╱:╱ // 0x901 @0x21
0x08e0…0922 at0022 = ╱31╱1╱ // 0x902 @0x22
0x08e0…0922 at0023 = ╱30╱0╱ // 0x903 @0x23
0x08e0…0922 at0024 = ╱fe0000a004╱ // 0x904 @0x24
0x08e0…0922 at0029 = ╱ee╱)╱ // 0x909 @0x29
0x08e0…0922 at002a = ╱ec╱,╱ // 0x90a @0x2a
0x08e0…0922 at002b = ╱54╱T╱ // 0x90b @0x2b
0x08e0…0922 at002c = ╱ef╱$╱ // 0x90c @0x2c
0x08e0…0922 at002d = ╱ed╱(╱ // 0x90d @0x2d
0x08e0…0922 at002e = ╱4e╱N╱ // 0x90e @0x2e
0x08e0…0922 at002f = ╱52╱R╱ // 0x90f @0x2f
0x08e0…0922 at0030 = ╱ec╱,╱ // 0x910 @0x30
0x08e0…0922 at0031 = ╱31╱1╱ // 0x911 @0x31
0x08e0…0922 at0032 = ╱37╱7╱ // 0x912 @0x32
0x08e0…0922 at0033 = ╱fe00008805╱ // 0x913 @0x33
0x08e0…0922 at0038 = ╱f0╱:╱ // 0x918 @0x38
0x08e0…0922 at0039 = ╱31╱1╱ // 0x919 @0x39
0x08e0…0922 at003a = ╱30╱0╱ // 0x91a @0x3a
0x08e0…0922 at003b = ╱fe0000a004╱ // 0x91b @0x3b
0x08e0…0922 at0040 = ╱ee╱)╱ // 0x920 @0x40
0x08e0…0922 at0041 = EOL // 0x921 @0x41
0x08e0…0922 }
0x0922…0930 9687 1000 NR=G*NR+E
0x0922…0930 LineComalBin {
0x0922…0930 ptr = 0x9687 // 0x922 @0x0
0x0922…0930 lno = 0x03e8 // 0x924 @0x2
0x0922…0930 at0004 = ╱4e╱N╱ // 0x926 @0x4
0x0922…0930 at0005 = ╱52╱R╱ // 0x927 @0x5
0x0922…0930 at0006 = ╱dc╱=╱ // 0x928 @0x6
0x0922…0930 at0007 = ╱47╱G╱ // 0x929 @0x7
0x0922…0930 at0008 = ╱e4╱*╱ // 0x92a @0x8
0x0922…0930 at0009 = ╱4e╱N╱ // 0x92b @0x9
0x0922…0930 at000a = ╱52╱R╱ // 0x92c @0xa
0x0922…0930 at000b = ╱e2╱+╱ // 0x92d @0xb
0x0922…0930 at000c = ╱45╱E╱ // 0x92e @0xc
0x0922…0930 at000d = EOL // 0x92f @0xd
0x0922…0930 }
0x0930…093e 9695 1010 EXEC TRAVERSE
0x0930…093e LineComalBin {
0x0930…093e ptr = 0x9695 // 0x930 @0x0
0x0930…093e lno = 0x03f2 // 0x932 @0x2
0x0930…093e at0004 = ╱9d╱ EXEC ╱ // 0x934 @0x4
0x0930…093e at0005 = ╱54╱T╱ // 0x935 @0x5
0x0930…093e at0006 = ╱52╱R╱ // 0x936 @0x6
0x0930…093e at0007 = ╱41╱A╱ // 0x937 @0x7
0x0930…093e at0008 = ╱56╱V╱ // 0x938 @0x8
0x0930…093e at0009 = ╱45╱E╱ // 0x939 @0x9
0x0930…093e at000a = ╱52╱R╱ // 0x93a @0xa
0x0930…093e at000b = ╱53╱S╱ // 0x93b @0xb
0x0930…093e at000c = ╱45╱E╱ // 0x93c @0xc
0x0930…093e at000d = EOL // 0x93d @0xd
0x0930…093e }
0x093e…094a 96a1 1020 NR=NR DIV G
0x093e…094a LineComalBin {
0x093e…094a ptr = 0x96a1 // 0x93e @0x0
0x093e…094a lno = 0x03fc // 0x940 @0x2
0x093e…094a at0004 = ╱4e╱N╱ // 0x942 @0x4
0x093e…094a at0005 = ╱52╱R╱ // 0x943 @0x5
0x093e…094a at0006 = ╱dc╱=╱ // 0x944 @0x6
0x093e…094a at0007 = ╱4e╱N╱ // 0x945 @0x7
0x093e…094a at0008 = ╱52╱R╱ // 0x946 @0x8
0x093e…094a at0009 = ╱e7╱ DIV ╱ // 0x947 @0x9
0x093e…094a at000a = ╱47╱G╱ // 0x948 @0xa
0x093e…094a at000b = EOL // 0x949 @0xb
0x093e…094a }
0x094a…0950 96a7 1030 ENDIF
0x094a…0950 LineComalBin {
0x094a…0950 ptr = 0x96a7 // 0x94a @0x0
0x094a…0950 lno = 0x0406 // 0x94c @0x2
0x094a…0950 at0004 = ╱9b╱ ENDIF ╱ // 0x94e @0x4
0x094a…0950 at0005 = EOL // 0x94f @0x5
0x094a…0950 }
0x0950…0956 96ad 1040 ENDIF
0x0950…0956 LineComalBin {
0x0950…0956 ptr = 0x96ad // 0x950 @0x0
0x0950…0956 lno = 0x0410 // 0x952 @0x2
0x0950…0956 at0004 = ╱9b╱ ENDIF ╱ // 0x954 @0x4
0x0950…0956 at0005 = EOL // 0x955 @0x5
0x0950…0956 }
0x0956…095c 96b3 1050 ENDPROC
0x0956…095c LineComalBin {
0x0956…095c ptr = 0x96b3 // 0x956 @0x0
0x0956…095c lno = 0x041a // 0x958 @0x2
0x0956…095c at0004 = ╱9f╱ ENDPROC ╱ // 0x95a @0x4
0x0956…095c at0005 = EOL // 0x95b @0x5
0x0956…095c }
0x095c…0969 96c0 1060 PROC BINNEXT
0x095c…0969 LineComalBin {
0x095c…0969 ptr = 0x96c0 // 0x95c @0x0
0x095c…0969 lno = 0x0424 // 0x95e @0x2
0x095c…0969 at0004 = ╱9e╱ PROC ╱ // 0x960 @0x4
0x095c…0969 at0005 = ╱42╱B╱ // 0x961 @0x5
0x095c…0969 at0006 = ╱49╱I╱ // 0x962 @0x6
0x095c…0969 at0007 = ╱4e╱N╱ // 0x963 @0x7
0x095c…0969 at0008 = ╱4e╱N╱ // 0x964 @0x8
0x095c…0969 at0009 = ╱45╱E╱ // 0x965 @0x9
0x095c…0969 at000a = ╱58╱X╱ // 0x966 @0xa
0x095c…0969 at000b = ╱54╱T╱ // 0x967 @0xb
0x095c…0969 at000c = EOL // 0x968 @0xc
0x095c…0969 }
0x0969…0977 96ce 1070 NR=NR*G+E
0x0969…0977 LineComalBin {
0x0969…0977 ptr = 0x96ce // 0x969 @0x0
0x0969…0977 lno = 0x042e // 0x96b @0x2
0x0969…0977 at0004 = ╱4e╱N╱ // 0x96d @0x4
0x0969…0977 at0005 = ╱52╱R╱ // 0x96e @0x5
0x0969…0977 at0006 = ╱dc╱=╱ // 0x96f @0x6
0x0969…0977 at0007 = ╱4e╱N╱ // 0x970 @0x7
0x0969…0977 at0008 = ╱52╱R╱ // 0x971 @0x8
0x0969…0977 at0009 = ╱e4╱*╱ // 0x972 @0x9
0x0969…0977 at000a = ╱47╱G╱ // 0x973 @0xa
0x0969…0977 at000b = ╱e2╱+╱ // 0x974 @0xb
0x0969…0977 at000c = ╱45╱E╱ // 0x975 @0xc
0x0969…0977 at000d = EOL // 0x976 @0xd
0x0969…0977 }
0x0977…0984 96db 1080 IF NR>MAX THEN
0x0977…0984 LineComalBin {
0x0977…0984 ptr = 0x96db // 0x977 @0x0
0x0977…0984 lno = 0x0438 // 0x979 @0x2
0x0977…0984 at0004 = ╱9c╱ IF ╱ // 0x97b @0x4
0x0977…0984 at0005 = ╱4e╱N╱ // 0x97c @0x5
0x0977…0984 at0006 = ╱52╱R╱ // 0x97d @0x6
0x0977…0984 at0007 = ╱de╱>╱ // 0x97e @0x7
0x0977…0984 at0008 = ╱4d╱M╱ // 0x97f @0x8
0x0977…0984 at0009 = ╱41╱A╱ // 0x980 @0x9
0x0977…0984 at000a = ╱58╱X╱ // 0x981 @0xa
0x0977…0984 at000b = ╱b6╱ THEN ╱ // 0x982 @0xb
0x0977…0984 at000c = EOL // 0x983 @0xc
0x0977…0984 }
0x0984…0990 96e7 1090 WHILE NR MOD G=E
0x0984…0990 LineComalBin {
0x0984…0990 ptr = 0x96e7 // 0x984 @0x0
0x0984…0990 lno = 0x0442 // 0x986 @0x2
0x0984…0990 at0004 = ╱93╱ WHILE ╱ // 0x988 @0x4
0x0984…0990 at0005 = ╱4e╱N╱ // 0x989 @0x5
0x0984…0990 at0006 = ╱52╱R╱ // 0x98a @0x6
0x0984…0990 at0007 = ╱e8╱ MOD ╱ // 0x98b @0x7
0x0984…0990 at0008 = ╱47╱G╱ // 0x98c @0x8
0x0984…0990 at0009 = ╱dc╱=╱ // 0x98d @0x9
0x0984…0990 at000a = ╱45╱E╱ // 0x98e @0xa
0x0984…0990 at000b = EOL // 0x98f @0xb
0x0984…0990 }
0x0990…099c 96f3 1100 NR=NR DIV G
0x0990…099c LineComalBin {
0x0990…099c ptr = 0x96f3 // 0x990 @0x0
0x0990…099c lno = 0x044c // 0x992 @0x2
0x0990…099c at0004 = ╱4e╱N╱ // 0x994 @0x4
0x0990…099c at0005 = ╱52╱R╱ // 0x995 @0x5
0x0990…099c at0006 = ╱dc╱=╱ // 0x996 @0x6
0x0990…099c at0007 = ╱4e╱N╱ // 0x997 @0x7
0x0990…099c at0008 = ╱52╱R╱ // 0x998 @0x8
0x0990…099c at0009 = ╱e7╱ DIV ╱ // 0x999 @0x9
0x0990…099c at000a = ╱47╱G╱ // 0x99a @0xa
0x0990…099c at000b = EOL // 0x99b @0xb
0x0990…099c }
0x099c…09a2 96f9 1110 ENDWHILE
0x099c…09a2 LineComalBin {
0x099c…09a2 ptr = 0x96f9 // 0x99c @0x0
0x099c…09a2 lno = 0x0456 // 0x99e @0x2
0x099c…09a2 at0004 = ╱94╱ ENDWHILE ╱ // 0x9a0 @0x4
0x099c…09a2 at0005 = EOL // 0x9a1 @0x5
0x099c…09a2 }
0x09a2…09ae 9705 1120 NR=NR DIV G
0x09a2…09ae LineComalBin {
0x09a2…09ae ptr = 0x9705 // 0x9a2 @0x0
0x09a2…09ae lno = 0x0460 // 0x9a4 @0x2
0x09a2…09ae at0004 = ╱4e╱N╱ // 0x9a6 @0x4
0x09a2…09ae at0005 = ╱52╱R╱ // 0x9a7 @0x5
0x09a2…09ae at0006 = ╱dc╱=╱ // 0x9a8 @0x6
0x09a2…09ae at0007 = ╱4e╱N╱ // 0x9a9 @0x7
0x09a2…09ae at0008 = ╱52╱R╱ // 0x9aa @0x8
0x09a2…09ae at0009 = ╱e7╱ DIV ╱ // 0x9ab @0x9
0x09a2…09ae at000a = ╱47╱G╱ // 0x9ac @0xa
0x09a2…09ae at000b = EOL // 0x9ad @0xb
0x09a2…09ae }
0x09ae…09b4 970b 1130 ELSE
0x09ae…09b4 LineComalBin {
0x09ae…09b4 ptr = 0x970b // 0x9ae @0x0
0x09ae…09b4 lno = 0x046a // 0x9b0 @0x2
0x09ae…09b4 at0004 = ╱9a╱ ELSE ╱ // 0x9b2 @0x4
0x09ae…09b4 at0005 = EOL // 0x9b3 @0x5
0x09ae…09b4 }
0x09b4…09c2 9719 1140 WHILE NR<=MAX DIV G
0x09b4…09c2 LineComalBin {
0x09b4…09c2 ptr = 0x9719 // 0x9b4 @0x0
0x09b4…09c2 lno = 0x0474 // 0x9b6 @0x2
0x09b4…09c2 at0004 = ╱93╱ WHILE ╱ // 0x9b8 @0x4
0x09b4…09c2 at0005 = ╱4e╱N╱ // 0x9b9 @0x5
0x09b4…09c2 at0006 = ╱52╱R╱ // 0x9ba @0x6
0x09b4…09c2 at0007 = ╱df╱<=╱ // 0x9bb @0x7
0x09b4…09c2 at0008 = ╱4d╱M╱ // 0x9bc @0x8
0x09b4…09c2 at0009 = ╱41╱A╱ // 0x9bd @0x9
0x09b4…09c2 at000a = ╱58╱X╱ // 0x9be @0xa
0x09b4…09c2 at000b = ╱e7╱ DIV ╱ // 0x9bf @0xb
0x09b4…09c2 at000c = ╱47╱G╱ // 0x9c0 @0xc
0x09b4…09c2 at000d = EOL // 0x9c1 @0xd
0x09b4…09c2 }
0x09c2…09ce 9725 1150 NR=NR*G
0x09c2…09ce LineComalBin {
0x09c2…09ce ptr = 0x9725 // 0x9c2 @0x0
0x09c2…09ce lno = 0x047e // 0x9c4 @0x2
0x09c2…09ce at0004 = ╱4e╱N╱ // 0x9c6 @0x4
0x09c2…09ce at0005 = ╱52╱R╱ // 0x9c7 @0x5
0x09c2…09ce at0006 = ╱dc╱=╱ // 0x9c8 @0x6
0x09c2…09ce at0007 = ╱4e╱N╱ // 0x9c9 @0x7
0x09c2…09ce at0008 = ╱52╱R╱ // 0x9ca @0x8
0x09c2…09ce at0009 = ╱e4╱*╱ // 0x9cb @0x9
0x09c2…09ce at000a = ╱47╱G╱ // 0x9cc @0xa
0x09c2…09ce at000b = EOL // 0x9cd @0xb
0x09c2…09ce }
0x09ce…09d4 972b 1160 ENDWHILE
0x09ce…09d4 LineComalBin {
0x09ce…09d4 ptr = 0x972b // 0x9ce @0x0
0x09ce…09d4 lno = 0x0488 // 0x9d0 @0x2
0x09ce…09d4 at0004 = ╱94╱ ENDWHILE ╱ // 0x9d2 @0x4
0x09ce…09d4 at0005 = EOL // 0x9d3 @0x5
0x09ce…09d4 }
0x09d4…09da 9731 1170 ENDIF
0x09d4…09da LineComalBin {
0x09d4…09da ptr = 0x9731 // 0x9d4 @0x0
0x09d4…09da lno = 0x0492 // 0x9d6 @0x2
0x09d4…09da at0004 = ╱9b╱ ENDIF ╱ // 0x9d8 @0x4
0x09d4…09da at0005 = EOL // 0x9d9 @0x5
0x09d4…09da }
0x09da…09e0 9737 1180 ENDPROC
0x09da…09e0 LineComalBin {
0x09da…09e0 ptr = 0x9737 // 0x9da @0x0
0x09da…09e0 lno = 0x049c // 0x9dc @0x2
0x09da…09e0 at0004 = ╱9f╱ ENDPROC ╱ // 0x9de @0x4
0x09da…09e0 at0005 = EOL // 0x9df @0x5
0x09da…09e0 }
0x09e0…09ed 9744 1190 PROC BINPREV
0x09e0…09ed LineComalBin {
0x09e0…09ed ptr = 0x9744 // 0x9e0 @0x0
0x09e0…09ed lno = 0x04a6 // 0x9e2 @0x2
0x09e0…09ed at0004 = ╱9e╱ PROC ╱ // 0x9e4 @0x4
0x09e0…09ed at0005 = ╱42╱B╱ // 0x9e5 @0x5
0x09e0…09ed at0006 = ╱49╱I╱ // 0x9e6 @0x6
0x09e0…09ed at0007 = ╱4e╱N╱ // 0x9e7 @0x7
0x09e0…09ed at0008 = ╱50╱P╱ // 0x9e8 @0x8
0x09e0…09ed at0009 = ╱52╱R╱ // 0x9e9 @0x9
0x09e0…09ed at000a = ╱45╱E╱ // 0x9ea @0xa
0x09e0…09ed at000b = ╱56╱V╱ // 0x9eb @0xb
0x09e0…09ed at000c = EOL // 0x9ec @0xc
0x09e0…09ed }
0x09ed…09f9 (33,) 9750 1200 NR=NR*G
0x09ed…09f9 LineComalBin {
0x09ed…09f9 ptr = 0x9750 // 0x9ed @0x0
0x09ed…09f9 lno = 0x04b0 // 0x9ef @0x2
0x09ed…09f9 at0004 = ╱4e╱N╱ // 0x9f1 @0x4
0x09ed…09f9 at0005 = ╱52╱R╱ // 0x9f2 @0x5
0x09ed…09f9 at0006 = ╱dc╱=╱ // 0x9f3 @0x6
0x09ed…09f9 at0007 = ╱4e╱N╱ // 0x9f4 @0x7
0x09ed…09f9 at0008 = ╱52╱R╱ // 0x9f5 @0x8
0x09ed…09f9 at0009 = ╱e4╱*╱ // 0x9f6 @0x9
0x09ed…09f9 at000a = ╱47╱G╱ // 0x9f7 @0xa
0x09ed…09f9 at000b = EOL // 0x9f8 @0xb
0x09ed…09f9 }
0x09f9…0a06 975d 1210 IF NR>MAX THEN
0x09f9…0a06 LineComalBin {
0x09f9…0a06 ptr = 0x975d // 0x9f9 @0x0
0x09f9…0a06 lno = 0x04ba // 0x9fb @0x2
0x09f9…0a06 at0004 = ╱9c╱ IF ╱ // 0x9fd @0x4
0x09f9…0a06 at0005 = ╱4e╱N╱ // 0x9fe @0x5
0x09f9…0a06 at0006 = ╱52╱R╱ // 0x9ff @0x6
0x09f9…0a06 at0007 = ╱de╱>╱ // 0xa00 @0x7
0x09f9…0a06 at0008 = ╱4d╱M╱ // 0xa01 @0x8
0x09f9…0a06 at0009 = ╱41╱A╱ // 0xa02 @0x9
0x09f9…0a06 at000a = ╱58╱X╱ // 0xa03 @0xa
0x09f9…0a06 at000b = ╱b6╱ THEN ╱ // 0xa04 @0xb
0x09f9…0a06 at000c = EOL // 0xa05 @0xc
0x09f9…0a06 }
0x0a06…0a12 9769 1220 WHILE NR MOD G=B
0x0a06…0a12 LineComalBin {
0x0a06…0a12 ptr = 0x9769 // 0xa06 @0x0
0x0a06…0a12 lno = 0x04c4 // 0xa08 @0x2
0x0a06…0a12 at0004 = ╱93╱ WHILE ╱ // 0xa0a @0x4
0x0a06…0a12 at0005 = ╱4e╱N╱ // 0xa0b @0x5
0x0a06…0a12 at0006 = ╱52╱R╱ // 0xa0c @0x6
0x0a06…0a12 at0007 = ╱e8╱ MOD ╱ // 0xa0d @0x7
0x0a06…0a12 at0008 = ╱47╱G╱ // 0xa0e @0x8
0x0a06…0a12 at0009 = ╱dc╱=╱ // 0xa0f @0x9
0x0a06…0a12 at000a = ╱42╱B╱ // 0xa10 @0xa
0x0a06…0a12 at000b = EOL // 0xa11 @0xb
0x0a06…0a12 }
0x0a12…0a1e 9775 1230 NR=NR DIV G
0x0a12…0a1e LineComalBin {
0x0a12…0a1e ptr = 0x9775 // 0xa12 @0x0
0x0a12…0a1e lno = 0x04ce // 0xa14 @0x2
0x0a12…0a1e at0004 = ╱4e╱N╱ // 0xa16 @0x4
0x0a12…0a1e at0005 = ╱52╱R╱ // 0xa17 @0x5
0x0a12…0a1e at0006 = ╱dc╱=╱ // 0xa18 @0x6
0x0a12…0a1e at0007 = ╱4e╱N╱ // 0xa19 @0x7
0x0a12…0a1e at0008 = ╱52╱R╱ // 0xa1a @0x8
0x0a12…0a1e at0009 = ╱e7╱ DIV ╱ // 0xa1b @0x9
0x0a12…0a1e at000a = ╱47╱G╱ // 0xa1c @0xa
0x0a12…0a1e at000b = EOL // 0xa1d @0xb
0x0a12…0a1e }
0x0a1e…0a24 977b 1240 ENDWHILE
0x0a1e…0a24 LineComalBin {
0x0a1e…0a24 ptr = 0x977b // 0xa1e @0x0
0x0a1e…0a24 lno = 0x04d8 // 0xa20 @0x2
0x0a1e…0a24 at0004 = ╱94╱ ENDWHILE ╱ // 0xa22 @0x4
0x0a1e…0a24 at0005 = EOL // 0xa23 @0x5
0x0a1e…0a24 }
0x0a24…0a30 9787 1250 NR=NR DIV G
0x0a24…0a30 LineComalBin {
0x0a24…0a30 ptr = 0x9787 // 0xa24 @0x0
0x0a24…0a30 lno = 0x04e2 // 0xa26 @0x2
0x0a24…0a30 at0004 = ╱4e╱N╱ // 0xa28 @0x4
0x0a24…0a30 at0005 = ╱52╱R╱ // 0xa29 @0x5
0x0a24…0a30 at0006 = ╱dc╱=╱ // 0xa2a @0x6
0x0a24…0a30 at0007 = ╱4e╱N╱ // 0xa2b @0x7
0x0a24…0a30 at0008 = ╱52╱R╱ // 0xa2c @0x8
0x0a24…0a30 at0009 = ╱e7╱ DIV ╱ // 0xa2d @0x9
0x0a24…0a30 at000a = ╱47╱G╱ // 0xa2e @0xa
0x0a24…0a30 at000b = EOL // 0xa2f @0xb
0x0a24…0a30 }
0x0a30…0a36 978d 1260 ELSE
0x0a30…0a36 LineComalBin {
0x0a30…0a36 ptr = 0x978d // 0xa30 @0x0
0x0a30…0a36 lno = 0x04ec // 0xa32 @0x2
0x0a30…0a36 at0004 = ╱9a╱ ELSE ╱ // 0xa34 @0x4
0x0a30…0a36 at0005 = EOL // 0xa35 @0x5
0x0a30…0a36 }
0x0a36…0a44 979b 1270 WHILE NR<MAX DIV G
0x0a36…0a44 LineComalBin {
0x0a36…0a44 ptr = 0x979b // 0xa36 @0x0
0x0a36…0a44 lno = 0x04f6 // 0xa38 @0x2
0x0a36…0a44 at0004 = ╱93╱ WHILE ╱ // 0xa3a @0x4
0x0a36…0a44 at0005 = ╱4e╱N╱ // 0xa3b @0x5
0x0a36…0a44 at0006 = ╱52╱R╱ // 0xa3c @0x6
0x0a36…0a44 at0007 = ╱dd╱<╱ // 0xa3d @0x7
0x0a36…0a44 at0008 = ╱4d╱M╱ // 0xa3e @0x8
0x0a36…0a44 at0009 = ╱41╱A╱ // 0xa3f @0x9
0x0a36…0a44 at000a = ╱58╱X╱ // 0xa40 @0xa
0x0a36…0a44 at000b = ╱e7╱ DIV ╱ // 0xa41 @0xb
0x0a36…0a44 at000c = ╱47╱G╱ // 0xa42 @0xc
0x0a36…0a44 at000d = EOL // 0xa43 @0xd
0x0a36…0a44 }
0x0a44…0a52 97a9 1280 NR=NR*G+E
0x0a44…0a52 LineComalBin {
0x0a44…0a52 ptr = 0x97a9 // 0xa44 @0x0
0x0a44…0a52 lno = 0x0500 // 0xa46 @0x2
0x0a44…0a52 at0004 = ╱4e╱N╱ // 0xa48 @0x4
0x0a44…0a52 at0005 = ╱52╱R╱ // 0xa49 @0x5
0x0a44…0a52 at0006 = ╱dc╱=╱ // 0xa4a @0x6
0x0a44…0a52 at0007 = ╱4e╱N╱ // 0xa4b @0x7
0x0a44…0a52 at0008 = ╱52╱R╱ // 0xa4c @0x8
0x0a44…0a52 at0009 = ╱e4╱*╱ // 0xa4d @0x9
0x0a44…0a52 at000a = ╱47╱G╱ // 0xa4e @0xa
0x0a44…0a52 at000b = ╱e2╱+╱ // 0xa4f @0xb
0x0a44…0a52 at000c = ╱45╱E╱ // 0xa50 @0xc
0x0a44…0a52 at000d = EOL // 0xa51 @0xd
0x0a44…0a52 }
0x0a52…0a58 97af 1290 ENDWHILE
0x0a52…0a58 LineComalBin {
0x0a52…0a58 ptr = 0x97af // 0xa52 @0x0
0x0a52…0a58 lno = 0x050a // 0xa54 @0x2
0x0a52…0a58 at0004 = ╱94╱ ENDWHILE ╱ // 0xa56 @0x4
0x0a52…0a58 at0005 = EOL // 0xa57 @0x5
0x0a52…0a58 }
0x0a58…0a5e 97b5 1300 ENDIF
0x0a58…0a5e LineComalBin {
0x0a58…0a5e ptr = 0x97b5 // 0xa58 @0x0
0x0a58…0a5e lno = 0x0514 // 0xa5a @0x2
0x0a58…0a5e at0004 = ╱9b╱ ENDIF ╱ // 0xa5c @0x4
0x0a58…0a5e at0005 = EOL // 0xa5d @0x5
0x0a58…0a5e }
0x0a5e…0a64 97bb 1310 ENDPROC
0x0a5e…0a64 LineComalBin {
0x0a5e…0a64 ptr = 0x97bb // 0xa5e @0x0
0x0a5e…0a64 lno = 0x051e // 0xa60 @0x2
0x0a5e…0a64 at0004 = ╱9f╱ ENDPROC ╱ // 0xa62 @0x4
0x0a5e…0a64 at0005 = EOL // 0xa63 @0x5
0x0a5e…0a64 }
0x0a64…0a6e 97c5 1320 PROC HEAD
0x0a64…0a6e LineComalBin {
0x0a64…0a6e ptr = 0x97c5 // 0xa64 @0x0
0x0a64…0a6e lno = 0x0528 // 0xa66 @0x2
0x0a64…0a6e at0004 = ╱9e╱ PROC ╱ // 0xa68 @0x4
0x0a64…0a6e at0005 = ╱48╱H╱ // 0xa69 @0x5
0x0a64…0a6e at0006 = ╱45╱E╱ // 0xa6a @0x6
0x0a64…0a6e at0007 = ╱41╱A╱ // 0xa6b @0x7
0x0a64…0a6e at0008 = ╱44╱D╱ // 0xa6c @0x8
0x0a64…0a6e at0009 = EOL // 0xa6d @0x9
0x0a64…0a6e }
0x0a6e…0a89 97e0 1330 WHILE LINIE<72 AND LINIE>B
0x0a6e…0a89 LineComalBin {
0x0a6e…0a89 ptr = 0x97e0 // 0xa6e @0x0
0x0a6e…0a89 lno = 0x0532 // 0xa70 @0x2
0x0a6e…0a89 at0004 = ╱93╱ WHILE ╱ // 0xa72 @0x4
0x0a6e…0a89 at0005 = ╱4c╱L╱ // 0xa73 @0x5
0x0a6e…0a89 at0006 = ╱49╱I╱ // 0xa74 @0x6
0x0a6e…0a89 at0007 = ╱4e╱N╱ // 0xa75 @0x7
0x0a6e…0a89 at0008 = ╱49╱I╱ // 0xa76 @0x8
0x0a6e…0a89 at0009 = ╱45╱E╱ // 0xa77 @0x9
0x0a6e…0a89 at000a = ╱dd╱<╱ // 0xa78 @0xa
0x0a6e…0a89 at000b = ╱37╱7╱ // 0xa79 @0xb
0x0a6e…0a89 at000c = ╱32╱2╱ // 0xa7a @0xc
0x0a6e…0a89 at000d = ╱fe00009007╱ // 0xa7b @0xd
0x0a6e…0a89 at0012 = ╱da╱ AND ╱ // 0xa80 @0x12
0x0a6e…0a89 at0013 = ╱4c╱L╱ // 0xa81 @0x13
0x0a6e…0a89 at0014 = ╱49╱I╱ // 0xa82 @0x14
0x0a6e…0a89 at0015 = ╱4e╱N╱ // 0xa83 @0x15
0x0a6e…0a89 at0016 = ╱49╱I╱ // 0xa84 @0x16
0x0a6e…0a89 at0017 = ╱45╱E╱ // 0xa85 @0x17
0x0a6e…0a89 at0018 = ╱de╱>╱ // 0xa86 @0x18
0x0a6e…0a89 at0019 = ╱42╱B╱ // 0xa87 @0x19
0x0a6e…0a89 at001a = EOL // 0xa88 @0x1a
0x0a6e…0a89 }
0x0a89…0a8f 97e6 1340 PRINT
0x0a89…0a8f LineComalBin {
0x0a89…0a8f ptr = 0x97e6 // 0xa89 @0x0
0x0a89…0a8f lno = 0x053c // 0xa8b @0x2
0x0a89…0a8f at0004 = ╱92╱ PRINT ╱ // 0xa8d @0x4
0x0a89…0a8f at0005 = EOL // 0xa8e @0x5
0x0a89…0a8f }
0x0a8f…0aa1 97f8 1350 LINIE=LINIE+E
0x0a8f…0aa1 LineComalBin {
0x0a8f…0aa1 ptr = 0x97f8 // 0xa8f @0x0
0x0a8f…0aa1 lno = 0x0546 // 0xa91 @0x2
0x0a8f…0aa1 at0004 = ╱4c╱L╱ // 0xa93 @0x4
0x0a8f…0aa1 at0005 = ╱49╱I╱ // 0xa94 @0x5
0x0a8f…0aa1 at0006 = ╱4e╱N╱ // 0xa95 @0x6
0x0a8f…0aa1 at0007 = ╱49╱I╱ // 0xa96 @0x7
0x0a8f…0aa1 at0008 = ╱45╱E╱ // 0xa97 @0x8
0x0a8f…0aa1 at0009 = ╱dc╱=╱ // 0xa98 @0x9
0x0a8f…0aa1 at000a = ╱4c╱L╱ // 0xa99 @0xa
0x0a8f…0aa1 at000b = ╱49╱I╱ // 0xa9a @0xb
0x0a8f…0aa1 at000c = ╱4e╱N╱ // 0xa9b @0xc
0x0a8f…0aa1 at000d = ╱49╱I╱ // 0xa9c @0xd
0x0a8f…0aa1 at000e = ╱45╱E╱ // 0xa9d @0xe
0x0a8f…0aa1 at000f = ╱e2╱+╱ // 0xa9e @0xf
0x0a8f…0aa1 at0010 = ╱45╱E╱ // 0xa9f @0x10
0x0a8f…0aa1 at0011 = EOL // 0xaa0 @0x11
0x0a8f…0aa1 }
0x0aa1…0aa7 97fe 1360 ENDWHILE
0x0aa1…0aa7 LineComalBin {
0x0aa1…0aa7 ptr = 0x97fe // 0xaa1 @0x0
0x0aa1…0aa7 lno = 0x0550 // 0xaa3 @0x2
0x0aa1…0aa7 at0004 = ╱94╱ ENDWHILE ╱ // 0xaa5 @0x4
0x0aa1…0aa7 at0005 = EOL // 0xaa6 @0x5
0x0aa1…0aa7 }
0x0aa7…0ab5 980c 1370 SID=SID+E
0x0aa7…0ab5 LineComalBin {
0x0aa7…0ab5 ptr = 0x980c // 0xaa7 @0x0
0x0aa7…0ab5 lno = 0x055a // 0xaa9 @0x2
0x0aa7…0ab5 at0004 = ╱53╱S╱ // 0xaab @0x4
0x0aa7…0ab5 at0005 = ╱49╱I╱ // 0xaac @0x5
0x0aa7…0ab5 at0006 = ╱44╱D╱ // 0xaad @0x6
0x0aa7…0ab5 at0007 = ╱dc╱=╱ // 0xaae @0x7
0x0aa7…0ab5 at0008 = ╱53╱S╱ // 0xaaf @0x8
0x0aa7…0ab5 at0009 = ╱49╱I╱ // 0xab0 @0x9
0x0aa7…0ab5 at000a = ╱44╱D╱ // 0xab1 @0xa
0x0aa7…0ab5 at000b = ╱e2╱+╱ // 0xab2 @0xb
0x0aa7…0ab5 at000c = ╱45╱E╱ // 0xab3 @0xc
0x0aa7…0ab5 at000d = EOL // 0xab4 @0xd
0x0aa7…0ab5 }
0x0ab5…0b02 9859 1380 PRINT "Lønudgifter fordelt på entrepriser";TAB(55);"Side ";SID;TAB(67);
0x0ab5…0b02 LineComalBin {
0x0ab5…0b02 ptr = 0x9859 // 0xab5 @0x0
0x0ab5…0b02 lno = 0x0564 // 0xab7 @0x2
0x0ab5…0b02 at0004 = ╱92╱ PRINT ╱ // 0xab9 @0x4
0x0ab5…0b02 at0005 = ╱22╱"╱ // 0xaba @0x5
0x0ab5…0b02 at0006 = ╱4c╱L╱ // 0xabb @0x6
0x0ab5…0b02 at0007 = ╱7c╱ø╱ // 0xabc @0x7
0x0ab5…0b02 at0008 = ╱6e╱n╱ // 0xabd @0x8
0x0ab5…0b02 at0009 = ╱75╱u╱ // 0xabe @0x9
0x0ab5…0b02 at000a = ╱64╱d╱ // 0xabf @0xa
0x0ab5…0b02 at000b = ╱67╱g╱ // 0xac0 @0xb
0x0ab5…0b02 at000c = ╱69╱i╱ // 0xac1 @0xc
0x0ab5…0b02 at000d = ╱66╱f╱ // 0xac2 @0xd
0x0ab5…0b02 at000e = ╱74╱t╱ // 0xac3 @0xe
0x0ab5…0b02 at000f = ╱65╱e╱ // 0xac4 @0xf
0x0ab5…0b02 at0010 = ╱72╱r╱ // 0xac5 @0x10
0x0ab5…0b02 at0011 = ╱20╱…╱ // 0xac6 @0x11
0x0ab5…0b02 at0012 = ╱66╱f╱ // 0xac7 @0x12
0x0ab5…0b02 at0013 = ╱6f╱o╱ // 0xac8 @0x13
0x0ab5…0b02 at0014 = ╱72╱r╱ // 0xac9 @0x14
0x0ab5…0b02 at0015 = ╱64╱d╱ // 0xaca @0x15
0x0ab5…0b02 at0016 = ╱65╱e╱ // 0xacb @0x16
0x0ab5…0b02 at0017 = ╱6c╱l╱ // 0xacc @0x17
0x0ab5…0b02 at0018 = ╱74╱t╱ // 0xacd @0x18
0x0ab5…0b02 at0019 = ╱20╱…╱ // 0xace @0x19
0x0ab5…0b02 at001a = ╱70╱p╱ // 0xacf @0x1a
0x0ab5…0b02 at001b = ╱7d╱å╱ // 0xad0 @0x1b
0x0ab5…0b02 at001c = ╱20╱…╱ // 0xad1 @0x1c
0x0ab5…0b02 at001d = ╱65╱e╱ // 0xad2 @0x1d
0x0ab5…0b02 at001e = ╱6e╱n╱ // 0xad3 @0x1e
0x0ab5…0b02 at001f = ╱74╱t╱ // 0xad4 @0x1f
0x0ab5…0b02 at0020 = ╱72╱r╱ // 0xad5 @0x20
0x0ab5…0b02 at0021 = ╱65╱e╱ // 0xad6 @0x21
0x0ab5…0b02 at0022 = ╱70╱p╱ // 0xad7 @0x22
0x0ab5…0b02 at0023 = ╱72╱r╱ // 0xad8 @0x23
0x0ab5…0b02 at0024 = ╱69╱i╱ // 0xad9 @0x24
0x0ab5…0b02 at0025 = ╱73╱s╱ // 0xada @0x25
0x0ab5…0b02 at0026 = ╱65╱e╱ // 0xadb @0x26
0x0ab5…0b02 at0027 = ╱72╱r╱ // 0xadc @0x27
0x0ab5…0b02 at0028 = ╱22╱"╱ // 0xadd @0x28
0x0ab5…0b02 at0029 = ╱eb╱;╱ // 0xade @0x29
0x0ab5…0b02 at002a = ╱d2╱TAB╱ // 0xadf @0x2a
0x0ab5…0b02 at002b = ╱ed╱(╱ // 0xae0 @0x2b
0x0ab5…0b02 at002c = ╱35╱5╱ // 0xae1 @0x2c
0x0ab5…0b02 at002d = ╱35╱5╱ // 0xae2 @0x2d
0x0ab5…0b02 at002e = ╱fe0000dc06╱ // 0xae3 @0x2e
0x0ab5…0b02 at0033 = ╱ee╱)╱ // 0xae8 @0x33
0x0ab5…0b02 at0034 = ╱eb╱;╱ // 0xae9 @0x34
0x0ab5…0b02 at0035 = ╱22╱"╱ // 0xaea @0x35
0x0ab5…0b02 at0036 = ╱53╱S╱ // 0xaeb @0x36
0x0ab5…0b02 at0037 = ╱69╱i╱ // 0xaec @0x37
0x0ab5…0b02 at0038 = ╱64╱d╱ // 0xaed @0x38
0x0ab5…0b02 at0039 = ╱65╱e╱ // 0xaee @0x39
0x0ab5…0b02 at003a = ╱20╱…╱ // 0xaef @0x3a
0x0ab5…0b02 at003b = ╱22╱"╱ // 0xaf0 @0x3b
0x0ab5…0b02 at003c = ╱eb╱;╱ // 0xaf1 @0x3c
0x0ab5…0b02 at003d = ╱53╱S╱ // 0xaf2 @0x3d
0x0ab5…0b02 at003e = ╱49╱I╱ // 0xaf3 @0x3e
0x0ab5…0b02 at003f = ╱44╱D╱ // 0xaf4 @0x3f
0x0ab5…0b02 at0040 = ╱eb╱;╱ // 0xaf5 @0x40
0x0ab5…0b02 at0041 = ╱d2╱TAB╱ // 0xaf6 @0x41
0x0ab5…0b02 at0042 = ╱ed╱(╱ // 0xaf7 @0x42
0x0ab5…0b02 at0043 = ╱36╱6╱ // 0xaf8 @0x43
0x0ab5…0b02 at0044 = ╱37╱7╱ // 0xaf9 @0x44
0x0ab5…0b02 at0045 = ╱fe00008607╱ // 0xafa @0x45
0x0ab5…0b02 at004a = ╱ee╱)╱ // 0xaff @0x4a
0x0ab5…0b02 at004b = ╱eb╱;╱ // 0xb00 @0x4b
0x0ab5…0b02 at004c = EOL // 0xb01 @0x4c
0x0ab5…0b02 }
0x0b02…0b14 986b 1390 PRINT "Dato ";DAD$
0x0b02…0b14 LineComalBin {
0x0b02…0b14 ptr = 0x986b // 0xb02 @0x0
0x0b02…0b14 lno = 0x056e // 0xb04 @0x2
0x0b02…0b14 at0004 = ╱92╱ PRINT ╱ // 0xb06 @0x4
0x0b02…0b14 at0005 = ╱22╱"╱ // 0xb07 @0x5
0x0b02…0b14 at0006 = ╱44╱D╱ // 0xb08 @0x6
0x0b02…0b14 at0007 = ╱61╱a╱ // 0xb09 @0x7
0x0b02…0b14 at0008 = ╱74╱t╱ // 0xb0a @0x8
0x0b02…0b14 at0009 = ╱6f╱o╱ // 0xb0b @0x9
0x0b02…0b14 at000a = ╱20╱…╱ // 0xb0c @0xa
0x0b02…0b14 at000b = ╱22╱"╱ // 0xb0d @0xb
0x0b02…0b14 at000c = ╱eb╱;╱ // 0xb0e @0xc
0x0b02…0b14 at000d = ╱44╱D╱ // 0xb0f @0xd
0x0b02…0b14 at000e = ╱41╱A╱ // 0xb10 @0xe
0x0b02…0b14 at000f = ╱44╱D╱ // 0xb11 @0xf
0x0b02…0b14 at0010 = ╱ef╱$╱ // 0xb12 @0x10
0x0b02…0b14 at0011 = EOL // 0xb13 @0x11
0x0b02…0b14 }
0x0b14…0b3d 9894 1400 PRINT TAB(55);"Periode ";D1$;" - ";D2$
0x0b14…0b3d LineComalBin {
0x0b14…0b3d ptr = 0x9894 // 0xb14 @0x0
0x0b14…0b3d lno = 0x0578 // 0xb16 @0x2
0x0b14…0b3d at0004 = ╱92╱ PRINT ╱ // 0xb18 @0x4
0x0b14…0b3d at0005 = ╱d2╱TAB╱ // 0xb19 @0x5
0x0b14…0b3d at0006 = ╱ed╱(╱ // 0xb1a @0x6
0x0b14…0b3d at0007 = ╱35╱5╱ // 0xb1b @0x7
0x0b14…0b3d at0008 = ╱35╱5╱ // 0xb1c @0x8
0x0b14…0b3d at0009 = ╱fe0000dc06╱ // 0xb1d @0x9
0x0b14…0b3d at000e = ╱ee╱)╱ // 0xb22 @0xe
0x0b14…0b3d at000f = ╱eb╱;╱ // 0xb23 @0xf
0x0b14…0b3d at0010 = ╱22╱"╱ // 0xb24 @0x10
0x0b14…0b3d at0011 = ╱50╱P╱ // 0xb25 @0x11
0x0b14…0b3d at0012 = ╱65╱e╱ // 0xb26 @0x12
0x0b14…0b3d at0013 = ╱72╱r╱ // 0xb27 @0x13
0x0b14…0b3d at0014 = ╱69╱i╱ // 0xb28 @0x14
0x0b14…0b3d at0015 = ╱6f╱o╱ // 0xb29 @0x15
0x0b14…0b3d at0016 = ╱64╱d╱ // 0xb2a @0x16
0x0b14…0b3d at0017 = ╱65╱e╱ // 0xb2b @0x17
0x0b14…0b3d at0018 = ╱20╱…╱ // 0xb2c @0x18
0x0b14…0b3d at0019 = ╱22╱"╱ // 0xb2d @0x19
0x0b14…0b3d at001a = ╱eb╱;╱ // 0xb2e @0x1a
0x0b14…0b3d at001b = ╱44╱D╱ // 0xb2f @0x1b
0x0b14…0b3d at001c = ╱31╱1╱ // 0xb30 @0x1c
0x0b14…0b3d at001d = ╱ef╱$╱ // 0xb31 @0x1d
0x0b14…0b3d at001e = ╱eb╱;╱ // 0xb32 @0x1e
0x0b14…0b3d at001f = ╱22╱"╱ // 0xb33 @0x1f
0x0b14…0b3d at0020 = ╱20╱…╱ // 0xb34 @0x20
0x0b14…0b3d at0021 = ╱2d╱-╱ // 0xb35 @0x21
0x0b14…0b3d at0022 = ╱20╱…╱ // 0xb36 @0x22
0x0b14…0b3d at0023 = ╱22╱"╱ // 0xb37 @0x23
0x0b14…0b3d at0024 = ╱eb╱;╱ // 0xb38 @0x24
0x0b14…0b3d at0025 = ╱44╱D╱ // 0xb39 @0x25
0x0b14…0b3d at0026 = ╱32╱2╱ // 0xb3a @0x26
0x0b14…0b3d at0027 = ╱ef╱$╱ // 0xb3b @0x27
0x0b14…0b3d at0028 = EOL // 0xb3c @0x28
0x0b14…0b3d }
0x0b3d…0b7a 98d1 1410 PRINT "Konto"," Enheder"," Beløb ";PCT$(V:W);" * Beløb"
0x0b3d…0b7a LineComalBin {
0x0b3d…0b7a ptr = 0x98d1 // 0xb3d @0x0
0x0b3d…0b7a lno = 0x0582 // 0xb3f @0x2
0x0b3d…0b7a at0004 = ╱92╱ PRINT ╱ // 0xb41 @0x4
0x0b3d…0b7a at0005 = ╱22╱"╱ // 0xb42 @0x5
0x0b3d…0b7a at0006 = ╱4b╱K╱ // 0xb43 @0x6
0x0b3d…0b7a at0007 = ╱6f╱o╱ // 0xb44 @0x7
0x0b3d…0b7a at0008 = ╱6e╱n╱ // 0xb45 @0x8
0x0b3d…0b7a at0009 = ╱74╱t╱ // 0xb46 @0x9
0x0b3d…0b7a at000a = ╱6f╱o╱ // 0xb47 @0xa
0x0b3d…0b7a at000b = ╱22╱"╱ // 0xb48 @0xb
0x0b3d…0b7a at000c = ╱ec╱,╱ // 0xb49 @0xc
0x0b3d…0b7a at000d = ╱22╱"╱ // 0xb4a @0xd
0x0b3d…0b7a at000e = ╱20╱…╱ // 0xb4b @0xe
0x0b3d…0b7a at000f = ╱20╱…╱ // 0xb4c @0xf
0x0b3d…0b7a at0010 = ╱45╱E╱ // 0xb4d @0x10
0x0b3d…0b7a at0011 = ╱6e╱n╱ // 0xb4e @0x11
0x0b3d…0b7a at0012 = ╱68╱h╱ // 0xb4f @0x12
0x0b3d…0b7a at0013 = ╱65╱e╱ // 0xb50 @0x13
0x0b3d…0b7a at0014 = ╱64╱d╱ // 0xb51 @0x14
0x0b3d…0b7a at0015 = ╱65╱e╱ // 0xb52 @0x15
0x0b3d…0b7a at0016 = ╱72╱r╱ // 0xb53 @0x16
0x0b3d…0b7a at0017 = ╱22╱"╱ // 0xb54 @0x17
0x0b3d…0b7a at0018 = ╱ec╱,╱ // 0xb55 @0x18
0x0b3d…0b7a at0019 = ╱22╱"╱ // 0xb56 @0x19
0x0b3d…0b7a at001a = ╱20╱…╱ // 0xb57 @0x1a
0x0b3d…0b7a at001b = ╱20╱…╱ // 0xb58 @0x1b
0x0b3d…0b7a at001c = ╱20╱…╱ // 0xb59 @0x1c
0x0b3d…0b7a at001d = ╱20╱…╱ // 0xb5a @0x1d
0x0b3d…0b7a at001e = ╱42╱B╱ // 0xb5b @0x1e
0x0b3d…0b7a at001f = ╱65╱e╱ // 0xb5c @0x1f
0x0b3d…0b7a at0020 = ╱6c╱l╱ // 0xb5d @0x20
0x0b3d…0b7a at0021 = ╱7c╱ø╱ // 0xb5e @0x21
0x0b3d…0b7a at0022 = ╱62╱b╱ // 0xb5f @0x22
0x0b3d…0b7a at0023 = ╱20╱…╱ // 0xb60 @0x23
0x0b3d…0b7a at0024 = ╱20╱…╱ // 0xb61 @0x24
0x0b3d…0b7a at0025 = ╱20╱…╱ // 0xb62 @0x25
0x0b3d…0b7a at0026 = ╱22╱"╱ // 0xb63 @0x26
0x0b3d…0b7a at0027 = ╱eb╱;╱ // 0xb64 @0x27
0x0b3d…0b7a at0028 = ╱50╱P╱ // 0xb65 @0x28
0x0b3d…0b7a at0029 = ╱43╱C╱ // 0xb66 @0x29
0x0b3d…0b7a at002a = ╱54╱T╱ // 0xb67 @0x2a
0x0b3d…0b7a at002b = ╱ef╱$╱ // 0xb68 @0x2b
0x0b3d…0b7a at002c = ╱ed╱(╱ // 0xb69 @0x2c
0x0b3d…0b7a at002d = ╱56╱V╱ // 0xb6a @0x2d
0x0b3d…0b7a at002e = ╱f0╱:╱ // 0xb6b @0x2e
0x0b3d…0b7a at002f = ╱57╱W╱ // 0xb6c @0x2f
0x0b3d…0b7a at0030 = ╱ee╱)╱ // 0xb6d @0x30
0x0b3d…0b7a at0031 = ╱eb╱;╱ // 0xb6e @0x31
0x0b3d…0b7a at0032 = ╱22╱"╱ // 0xb6f @0x32
0x0b3d…0b7a at0033 = ╱20╱…╱ // 0xb70 @0x33
0x0b3d…0b7a at0034 = ╱2a╱*╱ // 0xb71 @0x34
0x0b3d…0b7a at0035 = ╱20╱…╱ // 0xb72 @0x35
0x0b3d…0b7a at0036 = ╱42╱B╱ // 0xb73 @0x36
0x0b3d…0b7a at0037 = ╱65╱e╱ // 0xb74 @0x37
0x0b3d…0b7a at0038 = ╱6c╱l╱ // 0xb75 @0x38
0x0b3d…0b7a at0039 = ╱7c╱ø╱ // 0xb76 @0x39
0x0b3d…0b7a at003a = ╱62╱b╱ // 0xb77 @0x3a
0x0b3d…0b7a at003b = ╱22╱"╱ // 0xb78 @0x3b
0x0b3d…0b7a at003c = EOL // 0xb79 @0x3c
0x0b3d…0b7a }
0x0b7a…0b80 98d7 1420 PRINT
0x0b7a…0b80 LineComalBin {
0x0b7a…0b80 ptr = 0x98d7 // 0xb7a @0x0
0x0b7a…0b80 lno = 0x058c // 0xb7c @0x2
0x0b7a…0b80 at0004 = ╱92╱ PRINT ╱ // 0xb7e @0x4
0x0b7a…0b80 at0005 = EOL // 0xb7f @0x5
0x0b7a…0b80 }
0x0b80…0b91 98e8 1430 LINIE=4
0x0b80…0b91 LineComalBin {
0x0b80…0b91 ptr = 0x98e8 // 0xb80 @0x0
0x0b80…0b91 lno = 0x0596 // 0xb82 @0x2
0x0b80…0b91 at0004 = ╱4c╱L╱ // 0xb84 @0x4
0x0b80…0b91 at0005 = ╱49╱I╱ // 0xb85 @0x5
0x0b80…0b91 at0006 = ╱4e╱N╱ // 0xb86 @0x6
0x0b80…0b91 at0007 = ╱49╱I╱ // 0xb87 @0x7
0x0b80…0b91 at0008 = ╱45╱E╱ // 0xb88 @0x8
0x0b80…0b91 at0009 = ╱dc╱=╱ // 0xb89 @0x9
0x0b80…0b91 at000a = ╱34╱4╱ // 0xb8a @0xa
0x0b80…0b91 at000b = ╱fe00008003╱ // 0xb8b @0xb
0x0b80…0b91 at0010 = EOL // 0xb90 @0x10
0x0b80…0b91 }
0x0b91…0b97 98ee 1440 ENDPROC
0x0b91…0b97 LineComalBin {
0x0b91…0b97 ptr = 0x98ee // 0xb91 @0x0
0x0b91…0b97 lno = 0x05a0 // 0xb93 @0x2
0x0b91…0b97 at0004 = ╱9f╱ ENDPROC ╱ // 0xb95 @0x4
0x0b91…0b97 at0005 = EOL // 0xb96 @0x5
0x0b91…0b97 }
0x0b97…0b9d 98f4 1450 CLEAR
0x0b97…0b9d LineComalBin {
0x0b97…0b9d ptr = 0x98f4 // 0xb97 @0x0
0x0b97…0b9d lno = 0x05aa // 0xb99 @0x2
0x0b97…0b9d at0004 = ╱a0╱ CLEAR ╱ // 0xb9b @0x4
0x0b97…0b9d at0005 = EOL // 0xb9c @0x5
0x0b97…0b9d }
0x0b9d…0bb6 990d 1460 INPUT "Periodestart ",D1$
0x0b9d…0bb6 LineComalBin {
0x0b9d…0bb6 ptr = 0x990d // 0xb9d @0x0
0x0b9d…0bb6 lno = 0x05b4 // 0xb9f @0x2
0x0b9d…0bb6 at0004 = ╱91╱ INPUT ╱ // 0xba1 @0x4
0x0b9d…0bb6 at0005 = ╱22╱"╱ // 0xba2 @0x5
0x0b9d…0bb6 at0006 = ╱50╱P╱ // 0xba3 @0x6
0x0b9d…0bb6 at0007 = ╱65╱e╱ // 0xba4 @0x7
0x0b9d…0bb6 at0008 = ╱72╱r╱ // 0xba5 @0x8
0x0b9d…0bb6 at0009 = ╱69╱i╱ // 0xba6 @0x9
0x0b9d…0bb6 at000a = ╱6f╱o╱ // 0xba7 @0xa
0x0b9d…0bb6 at000b = ╱64╱d╱ // 0xba8 @0xb
0x0b9d…0bb6 at000c = ╱65╱e╱ // 0xba9 @0xc
0x0b9d…0bb6 at000d = ╱73╱s╱ // 0xbaa @0xd
0x0b9d…0bb6 at000e = ╱74╱t╱ // 0xbab @0xe
0x0b9d…0bb6 at000f = ╱61╱a╱ // 0xbac @0xf
0x0b9d…0bb6 at0010 = ╱72╱r╱ // 0xbad @0x10
0x0b9d…0bb6 at0011 = ╱74╱t╱ // 0xbae @0x11
0x0b9d…0bb6 at0012 = ╱20╱…╱ // 0xbaf @0x12
0x0b9d…0bb6 at0013 = ╱22╱"╱ // 0xbb0 @0x13
0x0b9d…0bb6 at0014 = ╱ec╱,╱ // 0xbb1 @0x14
0x0b9d…0bb6 at0015 = ╱44╱D╱ // 0xbb2 @0x15
0x0b9d…0bb6 at0016 = ╱31╱1╱ // 0xbb3 @0x16
0x0b9d…0bb6 at0017 = ╱ef╱$╱ // 0xbb4 @0x17
0x0b9d…0bb6 at0018 = EOL // 0xbb5 @0x18
0x0b9d…0bb6 }
0x0bb6…0bcf 9926 1470 INPUT "Periodeslut ",D2$
0x0bb6…0bcf LineComalBin {
0x0bb6…0bcf ptr = 0x9926 // 0xbb6 @0x0
0x0bb6…0bcf lno = 0x05be // 0xbb8 @0x2
0x0bb6…0bcf at0004 = ╱91╱ INPUT ╱ // 0xbba @0x4
0x0bb6…0bcf at0005 = ╱22╱"╱ // 0xbbb @0x5
0x0bb6…0bcf at0006 = ╱50╱P╱ // 0xbbc @0x6
0x0bb6…0bcf at0007 = ╱65╱e╱ // 0xbbd @0x7
0x0bb6…0bcf at0008 = ╱72╱r╱ // 0xbbe @0x8
0x0bb6…0bcf at0009 = ╱69╱i╱ // 0xbbf @0x9
0x0bb6…0bcf at000a = ╱6f╱o╱ // 0xbc0 @0xa
0x0bb6…0bcf at000b = ╱64╱d╱ // 0xbc1 @0xb
0x0bb6…0bcf at000c = ╱65╱e╱ // 0xbc2 @0xc
0x0bb6…0bcf at000d = ╱73╱s╱ // 0xbc3 @0xd
0x0bb6…0bcf at000e = ╱6c╱l╱ // 0xbc4 @0xe
0x0bb6…0bcf at000f = ╱75╱u╱ // 0xbc5 @0xf
0x0bb6…0bcf at0010 = ╱74╱t╱ // 0xbc6 @0x10
0x0bb6…0bcf at0011 = ╱20╱…╱ // 0xbc7 @0x11
0x0bb6…0bcf at0012 = ╱20╱…╱ // 0xbc8 @0x12
0x0bb6…0bcf at0013 = ╱22╱"╱ // 0xbc9 @0x13
0x0bb6…0bcf at0014 = ╱ec╱,╱ // 0xbca @0x14
0x0bb6…0bcf at0015 = ╱44╱D╱ // 0xbcb @0x15
0x0bb6…0bcf at0016 = ╱32╱2╱ // 0xbcc @0x16
0x0bb6…0bcf at0017 = ╱ef╱$╱ // 0xbcd @0x17
0x0bb6…0bcf at0018 = EOL // 0xbce @0x18
0x0bb6…0bcf }
0x0bcf…0beb 9942 1490 FIL$="P641220:VIRKKART"
0x0bcf…0beb LineComalBin {
0x0bcf…0beb ptr = 0x9942 // 0xbcf @0x0
0x0bcf…0beb lno = 0x05d2 // 0xbd1 @0x2
0x0bcf…0beb at0004 = ╱46╱F╱ // 0xbd3 @0x4
0x0bcf…0beb at0005 = ╱49╱I╱ // 0xbd4 @0x5
0x0bcf…0beb at0006 = ╱4c╱L╱ // 0xbd5 @0x6
0x0bcf…0beb at0007 = ╱ef╱$╱ // 0xbd6 @0x7
0x0bcf…0beb at0008 = ╱dc╱=╱ // 0xbd7 @0x8
0x0bcf…0beb at0009 = ╱22╱"╱ // 0xbd8 @0x9
0x0bcf…0beb at000a = ╱50╱P╱ // 0xbd9 @0xa
0x0bcf…0beb at000b = ╱36╱6╱ // 0xbda @0xb
0x0bcf…0beb at000c = ╱34╱4╱ // 0xbdb @0xc
0x0bcf…0beb at000d = ╱31╱1╱ // 0xbdc @0xd
0x0bcf…0beb at000e = ╱32╱2╱ // 0xbdd @0xe
0x0bcf…0beb at000f = ╱32╱2╱ // 0xbde @0xf
0x0bcf…0beb at0010 = ╱30╱0╱ // 0xbdf @0x10
0x0bcf…0beb at0011 = ╱3a╱:╱ // 0xbe0 @0x11
0x0bcf…0beb at0012 = ╱56╱V╱ // 0xbe1 @0x12
0x0bcf…0beb at0013 = ╱49╱I╱ // 0xbe2 @0x13
0x0bcf…0beb at0014 = ╱52╱R╱ // 0xbe3 @0x14
0x0bcf…0beb at0015 = ╱4b╱K╱ // 0xbe4 @0x15
0x0bcf…0beb at0016 = ╱4b╱K╱ // 0xbe5 @0x16
0x0bcf…0beb at0017 = ╱41╱A╱ // 0xbe6 @0x17
0x0bcf…0beb at0018 = ╱52╱R╱ // 0xbe7 @0x18
0x0bcf…0beb at0019 = ╱54╱T╱ // 0xbe8 @0x19
0x0bcf…0beb at001a = ╱22╱"╱ // 0xbe9 @0x1a
0x0bcf…0beb at001b = EOL // 0xbea @0x1b
0x0bcf…0beb }
0x0beb…0bf8 994f 1500 EXEC INDVIRK
0x0beb…0bf8 LineComalBin {
0x0beb…0bf8 ptr = 0x994f // 0xbeb @0x0
0x0beb…0bf8 lno = 0x05dc // 0xbed @0x2
0x0beb…0bf8 at0004 = ╱9d╱ EXEC ╱ // 0xbef @0x4
0x0beb…0bf8 at0005 = ╱49╱I╱ // 0xbf0 @0x5
0x0beb…0bf8 at0006 = ╱4e╱N╱ // 0xbf1 @0x6
0x0beb…0bf8 at0007 = ╱44╱D╱ // 0xbf2 @0x7
0x0beb…0bf8 at0008 = ╱56╱V╱ // 0xbf3 @0x8
0x0beb…0bf8 at0009 = ╱49╱I╱ // 0xbf4 @0x9
0x0beb…0bf8 at000a = ╱52╱R╱ // 0xbf5 @0xa
0x0beb…0bf8 at000b = ╱4b╱K╱ // 0xbf6 @0xb
0x0beb…0bf8 at000c = EOL // 0xbf7 @0xc
0x0beb…0bf8 }
0x0bf8…0c02 9959 1510 CLOSE FIL$
0x0bf8…0c02 LineComalBin {
0x0bf8…0c02 ptr = 0x9959 // 0xbf8 @0x0
0x0bf8…0c02 lno = 0x05e6 // 0xbfa @0x2
0x0bf8…0c02 at0004 = ╱a8╱ CLOSE ╱ // 0xbfc @0x4
0x0bf8…0c02 at0005 = ╱46╱F╱ // 0xbfd @0x5
0x0bf8…0c02 at0006 = ╱49╱I╱ // 0xbfe @0x6
0x0bf8…0c02 at0007 = ╱4c╱L╱ // 0xbff @0x7
0x0bf8…0c02 at0008 = ╱ef╱$╱ // 0xc00 @0x8
0x0bf8…0c02 at0009 = EOL // 0xc01 @0x9
0x0bf8…0c02 }
0x0c02…0c1f 9976 1520 FIL1$="P641220:LØNMODRG"
0x0c02…0c1f LineComalBin {
0x0c02…0c1f ptr = 0x9976 // 0xc02 @0x0
0x0c02…0c1f lno = 0x05f0 // 0xc04 @0x2
0x0c02…0c1f at0004 = ╱46╱F╱ // 0xc06 @0x4
0x0c02…0c1f at0005 = ╱49╱I╱ // 0xc07 @0x5
0x0c02…0c1f at0006 = ╱4c╱L╱ // 0xc08 @0x6
0x0c02…0c1f at0007 = ╱31╱1╱ // 0xc09 @0x7
0x0c02…0c1f at0008 = ╱ef╱$╱ // 0xc0a @0x8
0x0c02…0c1f at0009 = ╱dc╱=╱ // 0xc0b @0x9
0x0c02…0c1f at000a = ╱22╱"╱ // 0xc0c @0xa
0x0c02…0c1f at000b = ╱50╱P╱ // 0xc0d @0xb
0x0c02…0c1f at000c = ╱36╱6╱ // 0xc0e @0xc
0x0c02…0c1f at000d = ╱34╱4╱ // 0xc0f @0xd
0x0c02…0c1f at000e = ╱31╱1╱ // 0xc10 @0xe
0x0c02…0c1f at000f = ╱32╱2╱ // 0xc11 @0xf
0x0c02…0c1f at0010 = ╱32╱2╱ // 0xc12 @0x10
0x0c02…0c1f at0011 = ╱30╱0╱ // 0xc13 @0x11
0x0c02…0c1f at0012 = ╱3a╱:╱ // 0xc14 @0x12
0x0c02…0c1f at0013 = ╱4c╱L╱ // 0xc15 @0x13
0x0c02…0c1f at0014 = ╱5c╱Ø╱ // 0xc16 @0x14
0x0c02…0c1f at0015 = ╱4e╱N╱ // 0xc17 @0x15
0x0c02…0c1f at0016 = ╱4d╱M╱ // 0xc18 @0x16
0x0c02…0c1f at0017 = ╱4f╱O╱ // 0xc19 @0x17
0x0c02…0c1f at0018 = ╱44╱D╱ // 0xc1a @0x18
0x0c02…0c1f at0019 = ╱52╱R╱ // 0xc1b @0x19
0x0c02…0c1f at001a = ╱47╱G╱ // 0xc1c @0x1a
0x0c02…0c1f at001b = ╱22╱"╱ // 0xc1d @0x1b
0x0c02…0c1f at001c = EOL // 0xc1e @0x1c
0x0c02…0c1f }
0x0c1f…0c2c 9983 1530 OPEN FIL1$,R
0x0c1f…0c2c LineComalBin {
0x0c1f…0c2c ptr = 0x9983 // 0xc1f @0x0
0x0c1f…0c2c lno = 0x05fa // 0xc21 @0x2
0x0c1f…0c2c at0004 = ╱a7╱ OPEN ╱ // 0xc23 @0x4
0x0c1f…0c2c at0005 = ╱46╱F╱ // 0xc24 @0x5
0x0c1f…0c2c at0006 = ╱49╱I╱ // 0xc25 @0x6
0x0c1f…0c2c at0007 = ╱4c╱L╱ // 0xc26 @0x7
0x0c1f…0c2c at0008 = ╱31╱1╱ // 0xc27 @0x8
0x0c1f…0c2c at0009 = ╱ef╱$╱ // 0xc28 @0x9
0x0c1f…0c2c at000a = ╱ec╱,╱ // 0xc29 @0xa
0x0c1f…0c2c at000b = ╱52╱R╱ // 0xc2a @0xb
0x0c1f…0c2c at000c = EOL // 0xc2b @0xc
0x0c1f…0c2c }
0x0c2c…0c48 999f 1540 FIL$="P641220:TRANSREG"
0x0c2c…0c48 LineComalBin {
0x0c2c…0c48 ptr = 0x999f // 0xc2c @0x0
0x0c2c…0c48 lno = 0x0604 // 0xc2e @0x2
0x0c2c…0c48 at0004 = ╱46╱F╱ // 0xc30 @0x4
0x0c2c…0c48 at0005 = ╱49╱I╱ // 0xc31 @0x5
0x0c2c…0c48 at0006 = ╱4c╱L╱ // 0xc32 @0x6
0x0c2c…0c48 at0007 = ╱ef╱$╱ // 0xc33 @0x7
0x0c2c…0c48 at0008 = ╱dc╱=╱ // 0xc34 @0x8
0x0c2c…0c48 at0009 = ╱22╱"╱ // 0xc35 @0x9
0x0c2c…0c48 at000a = ╱50╱P╱ // 0xc36 @0xa
0x0c2c…0c48 at000b = ╱36╱6╱ // 0xc37 @0xb
0x0c2c…0c48 at000c = ╱34╱4╱ // 0xc38 @0xc
0x0c2c…0c48 at000d = ╱31╱1╱ // 0xc39 @0xd
0x0c2c…0c48 at000e = ╱32╱2╱ // 0xc3a @0xe
0x0c2c…0c48 at000f = ╱32╱2╱ // 0xc3b @0xf
0x0c2c…0c48 at0010 = ╱30╱0╱ // 0xc3c @0x10
0x0c2c…0c48 at0011 = ╱3a╱:╱ // 0xc3d @0x11
0x0c2c…0c48 at0012 = ╱54╱T╱ // 0xc3e @0x12
0x0c2c…0c48 at0013 = ╱52╱R╱ // 0xc3f @0x13
0x0c2c…0c48 at0014 = ╱41╱A╱ // 0xc40 @0x14
0x0c2c…0c48 at0015 = ╱4e╱N╱ // 0xc41 @0x15
0x0c2c…0c48 at0016 = ╱53╱S╱ // 0xc42 @0x16
0x0c2c…0c48 at0017 = ╱52╱R╱ // 0xc43 @0x17
0x0c2c…0c48 at0018 = ╱45╱E╱ // 0xc44 @0x18
0x0c2c…0c48 at0019 = ╱47╱G╱ // 0xc45 @0x19
0x0c2c…0c48 at001a = ╱22╱"╱ // 0xc46 @0x1a
0x0c2c…0c48 at001b = EOL // 0xc47 @0x1b
0x0c2c…0c48 }
0x0c48…0c54 99ab 1550 OPEN FIL$,W
0x0c48…0c54 LineComalBin {
0x0c48…0c54 ptr = 0x99ab // 0xc48 @0x0
0x0c48…0c54 lno = 0x060e // 0xc4a @0x2
0x0c48…0c54 at0004 = ╱a7╱ OPEN ╱ // 0xc4c @0x4
0x0c48…0c54 at0005 = ╱46╱F╱ // 0xc4d @0x5
0x0c48…0c54 at0006 = ╱49╱I╱ // 0xc4e @0x6
0x0c48…0c54 at0007 = ╱4c╱L╱ // 0xc4f @0x7
0x0c48…0c54 at0008 = ╱ef╱$╱ // 0xc50 @0x8
0x0c48…0c54 at0009 = ╱ec╱,╱ // 0xc51 @0x9
0x0c48…0c54 at000a = ╱57╱W╱ // 0xc52 @0xa
0x0c48…0c54 at000b = EOL // 0xc53 @0xb
0x0c48…0c54 }
0x0c54…0c61 99b8 1560 EN$="0+"
0x0c54…0c61 LineComalBin {
0x0c54…0c61 ptr = 0x99b8 // 0xc54 @0x0
0x0c54…0c61 lno = 0x0618 // 0xc56 @0x2
0x0c54…0c61 at0004 = ╱45╱E╱ // 0xc58 @0x4
0x0c54…0c61 at0005 = ╱4e╱N╱ // 0xc59 @0x5
0x0c54…0c61 at0006 = ╱ef╱$╱ // 0xc5a @0x6
0x0c54…0c61 at0007 = ╱dc╱=╱ // 0xc5b @0x7
0x0c54…0c61 at0008 = ╱22╱"╱ // 0xc5c @0x8
0x0c54…0c61 at0009 = ╱30╱0╱ // 0xc5d @0x9
0x0c54…0c61 at000a = ╱2b╱+╱ // 0xc5e @0xa
0x0c54…0c61 at000b = ╱22╱"╱ // 0xc5f @0xb
0x0c54…0c61 at000c = EOL // 0xc60 @0xc
0x0c54…0c61 }
0x0c61…0c6d 99c4 1570 BE$=EN$
0x0c61…0c6d LineComalBin {
0x0c61…0c6d ptr = 0x99c4 // 0xc61 @0x0
0x0c61…0c6d lno = 0x0622 // 0xc63 @0x2
0x0c61…0c6d at0004 = ╱42╱B╱ // 0xc65 @0x4
0x0c61…0c6d at0005 = ╱45╱E╱ // 0xc66 @0x5
0x0c61…0c6d at0006 = ╱ef╱$╱ // 0xc67 @0x6
0x0c61…0c6d at0007 = ╱dc╱=╱ // 0xc68 @0x7
0x0c61…0c6d at0008 = ╱45╱E╱ // 0xc69 @0x8
0x0c61…0c6d at0009 = ╱4e╱N╱ // 0xc6a @0x9
0x0c61…0c6d at000a = ╱ef╱$╱ // 0xc6b @0xa
0x0c61…0c6d at000b = EOL // 0xc6c @0xb
0x0c61…0c6d }
0x0c6d…0c73 99ca 1580 REPEAT
0x0c6d…0c73 LineComalBin {
0x0c6d…0c73 ptr = 0x99ca // 0xc6d @0x0
0x0c6d…0c73 lno = 0x062c // 0xc6f @0x2
0x0c6d…0c73 at0004 = ╱97╱ REPEAT ╱ // 0xc71 @0x4
0x0c6d…0c73 at0005 = EOL // 0xc72 @0x5
0x0c6d…0c73 }
0x0c73…0c83 99da 1590 PCT$="1,16"
0x0c73…0c83 LineComalBin {
0x0c73…0c83 ptr = 0x99da // 0xc73 @0x0
0x0c73…0c83 lno = 0x0636 // 0xc75 @0x2
0x0c73…0c83 at0004 = ╱50╱P╱ // 0xc77 @0x4
0x0c73…0c83 at0005 = ╱43╱C╱ // 0xc78 @0x5
0x0c73…0c83 at0006 = ╱54╱T╱ // 0xc79 @0x6
0x0c73…0c83 at0007 = ╱ef╱$╱ // 0xc7a @0x7
0x0c73…0c83 at0008 = ╱dc╱=╱ // 0xc7b @0x8
0x0c73…0c83 at0009 = ╱22╱"╱ // 0xc7c @0x9
0x0c73…0c83 at000a = ╱31╱1╱ // 0xc7d @0xa
0x0c73…0c83 at000b = ╱2c╱,╱ // 0xc7e @0xb
0x0c73…0c83 at000c = ╱31╱1╱ // 0xc7f @0xc
0x0c73…0c83 at000d = ╱36╱6╱ // 0xc80 @0xd
0x0c73…0c83 at000e = ╱22╱"╱ // 0xc81 @0xe
0x0c73…0c83 at000f = EOL // 0xc82 @0xf
0x0c73…0c83 }
0x0c83…0c97 99ee 1600 EDIT "Faktor ",PCT$
0x0c83…0c97 LineComalBin {
0x0c83…0c97 ptr = 0x99ee // 0xc83 @0x0
0x0c83…0c97 lno = 0x0640 // 0xc85 @0x2
0x0c83…0c97 at0004 = ╱b1╱ EDIT ╱ // 0xc87 @0x4
0x0c83…0c97 at0005 = ╱22╱"╱ // 0xc88 @0x5
0x0c83…0c97 at0006 = ╱46╱F╱ // 0xc89 @0x6
0x0c83…0c97 at0007 = ╱61╱a╱ // 0xc8a @0x7
0x0c83…0c97 at0008 = ╱6b╱k╱ // 0xc8b @0x8
0x0c83…0c97 at0009 = ╱74╱t╱ // 0xc8c @0x9
0x0c83…0c97 at000a = ╱6f╱o╱ // 0xc8d @0xa
0x0c83…0c97 at000b = ╱72╱r╱ // 0xc8e @0xb
0x0c83…0c97 at000c = ╱20╱…╱ // 0xc8f @0xc
0x0c83…0c97 at000d = ╱22╱"╱ // 0xc90 @0xd
0x0c83…0c97 at000e = ╱ec╱,╱ // 0xc91 @0xe
0x0c83…0c97 at000f = ╱50╱P╱ // 0xc92 @0xf
0x0c83…0c97 at0010 = ╱43╱C╱ // 0xc93 @0x10
0x0c83…0c97 at0011 = ╱54╱T╱ // 0xc94 @0x11
0x0c83…0c97 at0012 = ╱ef╱$╱ // 0xc95 @0x12
0x0c83…0c97 at0013 = EOL // 0xc96 @0x13
0x0c83…0c97 }
0x0c97…0ca9 9a00 1605 PCT$=PCT$+"+"
0x0c97…0ca9 LineComalBin {
0x0c97…0ca9 ptr = 0x9a00 // 0xc97 @0x0
0x0c97…0ca9 lno = 0x0645 // 0xc99 @0x2
0x0c97…0ca9 at0004 = ╱50╱P╱ // 0xc9b @0x4
0x0c97…0ca9 at0005 = ╱43╱C╱ // 0xc9c @0x5
0x0c97…0ca9 at0006 = ╱54╱T╱ // 0xc9d @0x6
0x0c97…0ca9 at0007 = ╱ef╱$╱ // 0xc9e @0x7
0x0c97…0ca9 at0008 = ╱dc╱=╱ // 0xc9f @0x8
0x0c97…0ca9 at0009 = ╱50╱P╱ // 0xca0 @0x9
0x0c97…0ca9 at000a = ╱43╱C╱ // 0xca1 @0xa
0x0c97…0ca9 at000b = ╱54╱T╱ // 0xca2 @0xb
0x0c97…0ca9 at000c = ╱ef╱$╱ // 0xca3 @0xc
0x0c97…0ca9 at000d = ╱f1╱+╱ // 0xca4 @0xd
0x0c97…0ca9 at000e = ╱22╱"╱ // 0xca5 @0xe
0x0c97…0ca9 at000f = ╱2b╱+╱ // 0xca6 @0xf
0x0c97…0ca9 at0010 = ╱22╱"╱ // 0xca7 @0x10
0x0c97…0ca9 at0011 = EOL // 0xca8 @0x11
0x0c97…0ca9 }
0x0ca9…0cc9 9a20 1610 EXEC CALC(6,PCT$,EN$,PCT$)
0x0ca9…0cc9 LineComalBin {
0x0ca9…0cc9 ptr = 0x9a20 // 0xca9 @0x0
0x0ca9…0cc9 lno = 0x064a // 0xcab @0x2
0x0ca9…0cc9 at0004 = ╱9d╱ EXEC ╱ // 0xcad @0x4
0x0ca9…0cc9 at0005 = ╱43╱C╱ // 0xcae @0x5
0x0ca9…0cc9 at0006 = ╱41╱A╱ // 0xcaf @0x6
0x0ca9…0cc9 at0007 = ╱4c╱L╱ // 0xcb0 @0x7
0x0ca9…0cc9 at0008 = ╱43╱C╱ // 0xcb1 @0x8
0x0ca9…0cc9 at0009 = ╱ed╱(╱ // 0xcb2 @0x9
0x0ca9…0cc9 at000a = ╱36╱6╱ // 0xcb3 @0xa
0x0ca9…0cc9 at000b = ╱fe0000c003╱ // 0xcb4 @0xb
0x0ca9…0cc9 at0010 = ╱ec╱,╱ // 0xcb9 @0x10
0x0ca9…0cc9 at0011 = ╱50╱P╱ // 0xcba @0x11
0x0ca9…0cc9 at0012 = ╱43╱C╱ // 0xcbb @0x12
0x0ca9…0cc9 at0013 = ╱54╱T╱ // 0xcbc @0x13
0x0ca9…0cc9 at0014 = ╱ef╱$╱ // 0xcbd @0x14
0x0ca9…0cc9 at0015 = ╱ec╱,╱ // 0xcbe @0x15
0x0ca9…0cc9 at0016 = ╱45╱E╱ // 0xcbf @0x16
0x0ca9…0cc9 at0017 = ╱4e╱N╱ // 0xcc0 @0x17
0x0ca9…0cc9 at0018 = ╱ef╱$╱ // 0xcc1 @0x18
0x0ca9…0cc9 at0019 = ╱ec╱,╱ // 0xcc2 @0x19
0x0ca9…0cc9 at001a = ╱50╱P╱ // 0xcc3 @0x1a
0x0ca9…0cc9 at001b = ╱43╱C╱ // 0xcc4 @0x1b
0x0ca9…0cc9 at001c = ╱54╱T╱ // 0xcc5 @0x1c
0x0ca9…0cc9 at001d = ╱ef╱$╱ // 0xcc6 @0x1d
0x0ca9…0cc9 at001e = ╱ee╱)╱ // 0xcc7 @0x1e
0x0ca9…0cc9 at001f = EOL // 0xcc8 @0x1f
0x0ca9…0cc9 }
0x0cc9…0cd3 9a2a 1620 UNTIL SI=B
0x0cc9…0cd3 LineComalBin {
0x0cc9…0cd3 ptr = 0x9a2a // 0xcc9 @0x0
0x0cc9…0cd3 lno = 0x0654 // 0xccb @0x2
0x0cc9…0cd3 at0004 = ╱98╱ UNTIL ╱ // 0xccd @0x4
0x0cc9…0cd3 at0005 = ╱53╱S╱ // 0xcce @0x5
0x0cc9…0cd3 at0006 = ╱49╱I╱ // 0xccf @0x6
0x0cc9…0cd3 at0007 = ╱dc╱=╱ // 0xcd0 @0x7
0x0cc9…0cd3 at0008 = ╱42╱B╱ // 0xcd1 @0x8
0x0cc9…0cd3 at0009 = EOL // 0xcd2 @0x9
0x0cc9…0cd3 }
0x0cd3…0cdd 9a34 1630 NRP=B
0x0cd3…0cdd LineComalBin {
0x0cd3…0cdd ptr = 0x9a34 // 0xcd3 @0x0
0x0cd3…0cdd lno = 0x065e // 0xcd5 @0x2
0x0cd3…0cdd at0004 = ╱4e╱N╱ // 0xcd7 @0x4
0x0cd3…0cdd at0005 = ╱52╱R╱ // 0xcd8 @0x5
0x0cd3…0cdd at0006 = ╱50╱P╱ // 0xcd9 @0x6
0x0cd3…0cdd at0007 = ╱dc╱=╱ // 0xcda @0x7
0x0cd3…0cdd at0008 = ╱42╱B╱ // 0xcdb @0x8
0x0cd3…0cdd at0009 = EOL // 0xcdc @0x9
0x0cd3…0cdd }
0x0cdd…0ce8 9a3f 1640 LMNR=B
0x0cdd…0ce8 LineComalBin {
0x0cdd…0ce8 ptr = 0x9a3f // 0xcdd @0x0
0x0cdd…0ce8 lno = 0x0668 // 0xcdf @0x2
0x0cdd…0ce8 at0004 = ╱4c╱L╱ // 0xce1 @0x4
0x0cdd…0ce8 at0005 = ╱4d╱M╱ // 0xce2 @0x5
0x0cdd…0ce8 at0006 = ╱4e╱N╱ // 0xce3 @0x6
0x0cdd…0ce8 at0007 = ╱52╱R╱ // 0xce4 @0x7
0x0cdd…0ce8 at0008 = ╱dc╱=╱ // 0xce5 @0x8
0x0cdd…0ce8 at0009 = ╱42╱B╱ // 0xce6 @0x9
0x0cdd…0ce8 at000a = EOL // 0xce7 @0xa
0x0cdd…0ce8 }
0x0ce8…0cf3 9a4a 1650 EXEC NÆSTE
0x0ce8…0cf3 LineComalBin {
0x0ce8…0cf3 ptr = 0x9a4a // 0xce8 @0x0
0x0ce8…0cf3 lno = 0x0672 // 0xcea @0x2
0x0ce8…0cf3 at0004 = ╱9d╱ EXEC ╱ // 0xcec @0x4
0x0ce8…0cf3 at0005 = ╱4e╱N╱ // 0xced @0x5
0x0ce8…0cf3 at0006 = ╱5b╱Æ╱ // 0xcee @0x6
0x0ce8…0cf3 at0007 = ╱53╱S╱ // 0xcef @0x7
0x0ce8…0cf3 at0008 = ╱54╱T╱ // 0xcf0 @0x8
0x0ce8…0cf3 at0009 = ╱45╱E╱ // 0xcf1 @0x9
0x0ce8…0cf3 at000a = EOL // 0xcf2 @0xa
0x0ce8…0cf3 }
0x0cf3…0d03 9a5a 1660 WHILE LMNR<=MLMNR
0x0cf3…0d03 LineComalBin {
0x0cf3…0d03 ptr = 0x9a5a // 0xcf3 @0x0
0x0cf3…0d03 lno = 0x067c // 0xcf5 @0x2
0x0cf3…0d03 at0004 = ╱93╱ WHILE ╱ // 0xcf7 @0x4
0x0cf3…0d03 at0005 = ╱4c╱L╱ // 0xcf8 @0x5
0x0cf3…0d03 at0006 = ╱4d╱M╱ // 0xcf9 @0x6
0x0cf3…0d03 at0007 = ╱4e╱N╱ // 0xcfa @0x7
0x0cf3…0d03 at0008 = ╱52╱R╱ // 0xcfb @0x8
0x0cf3…0d03 at0009 = ╱df╱<=╱ // 0xcfc @0x9
0x0cf3…0d03 at000a = ╱4d╱M╱ // 0xcfd @0xa
0x0cf3…0d03 at000b = ╱4c╱L╱ // 0xcfe @0xb
0x0cf3…0d03 at000c = ╱4d╱M╱ // 0xcff @0xc
0x0cf3…0d03 at000d = ╱4e╱N╱ // 0xd00 @0xd
0x0cf3…0d03 at000e = ╱52╱R╱ // 0xd01 @0xe
0x0cf3…0d03 at000f = EOL // 0xd02 @0xf
0x0cf3…0d03 }
0x0d03…0d1b 9a72 1670 IT=(LMNR-E)*ATPLM+E
0x0d03…0d1b LineComalBin {
0x0d03…0d1b ptr = 0x9a72 // 0xd03 @0x0
0x0d03…0d1b lno = 0x0686 // 0xd05 @0x2
0x0d03…0d1b at0004 = ╱49╱I╱ // 0xd07 @0x4
0x0d03…0d1b at0005 = ╱54╱T╱ // 0xd08 @0x5
0x0d03…0d1b at0006 = ╱dc╱=╱ // 0xd09 @0x6
0x0d03…0d1b at0007 = ╱ed╱(╱ // 0xd0a @0x7
0x0d03…0d1b at0008 = ╱4c╱L╱ // 0xd0b @0x8
0x0d03…0d1b at0009 = ╱4d╱M╱ // 0xd0c @0x9
0x0d03…0d1b at000a = ╱4e╱N╱ // 0xd0d @0xa
0x0d03…0d1b at000b = ╱52╱R╱ // 0xd0e @0xb
0x0d03…0d1b at000c = ╱e3╱-╱ // 0xd0f @0xc
0x0d03…0d1b at000d = ╱45╱E╱ // 0xd10 @0xd
0x0d03…0d1b at000e = ╱ee╱)╱ // 0xd11 @0xe
0x0d03…0d1b at000f = ╱e4╱*╱ // 0xd12 @0xf
0x0d03…0d1b at0010 = ╱41╱A╱ // 0xd13 @0x10
0x0d03…0d1b at0011 = ╱54╱T╱ // 0xd14 @0x11
0x0d03…0d1b at0012 = ╱50╱P╱ // 0xd15 @0x12
0x0d03…0d1b at0013 = ╱4c╱L╱ // 0xd16 @0x13
0x0d03…0d1b at0014 = ╱4d╱M╱ // 0xd17 @0x14
0x0d03…0d1b at0015 = ╱e2╱+╱ // 0xd18 @0x15
0x0d03…0d1b at0016 = ╱45╱E╱ // 0xd19 @0x16
0x0d03…0d1b at0017 = EOL // 0xd1a @0x17
0x0d03…0d1b }
0x0d1b…0d2c 9a83 1680 GET FIL$,IT:P7$
0x0d1b…0d2c LineComalBin {
0x0d1b…0d2c ptr = 0x9a83 // 0xd1b @0x0
0x0d1b…0d2c lno = 0x0690 // 0xd1d @0x2
0x0d1b…0d2c at0004 = ╱a9╱ GET ╱ // 0xd1f @0x4
0x0d1b…0d2c at0005 = ╱46╱F╱ // 0xd20 @0x5
0x0d1b…0d2c at0006 = ╱49╱I╱ // 0xd21 @0x6
0x0d1b…0d2c at0007 = ╱4c╱L╱ // 0xd22 @0x7
0x0d1b…0d2c at0008 = ╱ef╱$╱ // 0xd23 @0x8
0x0d1b…0d2c at0009 = ╱ec╱,╱ // 0xd24 @0x9
0x0d1b…0d2c at000a = ╱49╱I╱ // 0xd25 @0xa
0x0d1b…0d2c at000b = ╱54╱T╱ // 0xd26 @0xb
0x0d1b…0d2c at000c = ╱f0╱:╱ // 0xd27 @0xc
0x0d1b…0d2c at000d = ╱50╱P╱ // 0xd28 @0xd
0x0d1b…0d2c at000e = ╱37╱7╱ // 0xd29 @0xe
0x0d1b…0d2c at000f = ╱ef╱$╱ // 0xd2a @0xf
0x0d1b…0d2c at0010 = EOL // 0xd2b @0x10
0x0d1b…0d2c }
0x0d2c…0d3d 9a94 1690 IF P7$(E)="2" THEN
0x0d2c…0d3d LineComalBin {
0x0d2c…0d3d ptr = 0x9a94 // 0xd2c @0x0
0x0d2c…0d3d lno = 0x069a // 0xd2e @0x2
0x0d2c…0d3d at0004 = ╱9c╱ IF ╱ // 0xd30 @0x4
0x0d2c…0d3d at0005 = ╱50╱P╱ // 0xd31 @0x5
0x0d2c…0d3d at0006 = ╱37╱7╱ // 0xd32 @0x6
0x0d2c…0d3d at0007 = ╱ef╱$╱ // 0xd33 @0x7
0x0d2c…0d3d at0008 = ╱ed╱(╱ // 0xd34 @0x8
0x0d2c…0d3d at0009 = ╱45╱E╱ // 0xd35 @0x9
0x0d2c…0d3d at000a = ╱ee╱)╱ // 0xd36 @0xa
0x0d2c…0d3d at000b = ╱dc╱=╱ // 0xd37 @0xb
0x0d2c…0d3d at000c = ╱22╱"╱ // 0xd38 @0xc
0x0d2c…0d3d at000d = ╱32╱2╱ // 0xd39 @0xd
0x0d2c…0d3d at000e = ╱22╱"╱ // 0xd3a @0xe
0x0d2c…0d3d at000f = ╱b6╱ THEN ╱ // 0xd3b @0xf
0x0d2c…0d3d at0010 = EOL // 0xd3c @0x10
0x0d2c…0d3d }
0x0d3d…0d4c 9aa3 1700 P7$(E)="3"
0x0d3d…0d4c LineComalBin {
0x0d3d…0d4c ptr = 0x9aa3 // 0xd3d @0x0
0x0d3d…0d4c lno = 0x06a4 // 0xd3f @0x2
0x0d3d…0d4c at0004 = ╱50╱P╱ // 0xd41 @0x4
0x0d3d…0d4c at0005 = ╱37╱7╱ // 0xd42 @0x5
0x0d3d…0d4c at0006 = ╱ef╱$╱ // 0xd43 @0x6
0x0d3d…0d4c at0007 = ╱ed╱(╱ // 0xd44 @0x7
0x0d3d…0d4c at0008 = ╱45╱E╱ // 0xd45 @0x8
0x0d3d…0d4c at0009 = ╱ee╱)╱ // 0xd46 @0x9
0x0d3d…0d4c at000a = ╱dc╱=╱ // 0xd47 @0xa
0x0d3d…0d4c at000b = ╱22╱"╱ // 0xd48 @0xb
0x0d3d…0d4c at000c = ╱33╱3╱ // 0xd49 @0xc
0x0d3d…0d4c at000d = ╱22╱"╱ // 0xd4a @0xd
0x0d3d…0d4c at000e = EOL // 0xd4b @0xe
0x0d3d…0d4c }
0x0d4c…0d5d 9ab4 1710 PUT FIL$,IT:P7$
0x0d4c…0d5d LineComalBin {
0x0d4c…0d5d ptr = 0x9ab4 // 0xd4c @0x0
0x0d4c…0d5d lno = 0x06ae // 0xd4e @0x2
0x0d4c…0d5d at0004 = ╱aa╱ PUT ╱ // 0xd50 @0x4
0x0d4c…0d5d at0005 = ╱46╱F╱ // 0xd51 @0x5
0x0d4c…0d5d at0006 = ╱49╱I╱ // 0xd52 @0x6
0x0d4c…0d5d at0007 = ╱4c╱L╱ // 0xd53 @0x7
0x0d4c…0d5d at0008 = ╱ef╱$╱ // 0xd54 @0x8
0x0d4c…0d5d at0009 = ╱ec╱,╱ // 0xd55 @0x9
0x0d4c…0d5d at000a = ╱49╱I╱ // 0xd56 @0xa
0x0d4c…0d5d at000b = ╱54╱T╱ // 0xd57 @0xb
0x0d4c…0d5d at000c = ╱f0╱:╱ // 0xd58 @0xc
0x0d4c…0d5d at000d = ╱50╱P╱ // 0xd59 @0xd
0x0d4c…0d5d at000e = ╱37╱7╱ // 0xd5a @0xe
0x0d4c…0d5d at000f = ╱ef╱$╱ // 0xd5b @0xf
0x0d4c…0d5d at0010 = EOL // 0xd5c @0x10
0x0d4c…0d5d }
0x0d5d…0d75 9acc 1720 WHILE P7$(V,4)<>"83"
0x0d5d…0d75 LineComalBin {
0x0d5d…0d75 ptr = 0x9acc // 0xd5d @0x0
0x0d5d…0d75 lno = 0x06b8 // 0xd5f @0x2
0x0d5d…0d75 at0004 = ╱93╱ WHILE ╱ // 0xd61 @0x4
0x0d5d…0d75 at0005 = ╱50╱P╱ // 0xd62 @0x5
0x0d5d…0d75 at0006 = ╱37╱7╱ // 0xd63 @0x6
0x0d5d…0d75 at0007 = ╱ef╱$╱ // 0xd64 @0x7
0x0d5d…0d75 at0008 = ╱ed╱(╱ // 0xd65 @0x8
0x0d5d…0d75 at0009 = ╱56╱V╱ // 0xd66 @0x9
0x0d5d…0d75 at000a = ╱ec╱,╱ // 0xd67 @0xa
0x0d5d…0d75 at000b = ╱34╱4╱ // 0xd68 @0xb
0x0d5d…0d75 at000c = ╱fe00008003╱ // 0xd69 @0xc
0x0d5d…0d75 at0011 = ╱ee╱)╱ // 0xd6e @0x11
0x0d5d…0d75 at0012 = ╱e1╱<>╱ // 0xd6f @0x12
0x0d5d…0d75 at0013 = ╱22╱"╱ // 0xd70 @0x13
0x0d5d…0d75 at0014 = ╱38╱8╱ // 0xd71 @0x14
0x0d5d…0d75 at0015 = ╱33╱3╱ // 0xd72 @0x15
0x0d5d…0d75 at0016 = ╱22╱"╱ // 0xd73 @0x16
0x0d5d…0d75 at0017 = EOL // 0xd74 @0x17
0x0d5d…0d75 }
0x0d75…0d97 9aee 1730 IF P7$(5:6)<>" " THEN
0x0d75…0d97 LineComalBin {
0x0d75…0d97 ptr = 0x9aee // 0xd75 @0x0
0x0d75…0d97 lno = 0x06c2 // 0xd77 @0x2
0x0d75…0d97 at0004 = ╱9c╱ IF ╱ // 0xd79 @0x4
0x0d75…0d97 at0005 = ╱50╱P╱ // 0xd7a @0x5
0x0d75…0d97 at0006 = ╱37╱7╱ // 0xd7b @0x6
0x0d75…0d97 at0007 = ╱ef╱$╱ // 0xd7c @0x7
0x0d75…0d97 at0008 = ╱ed╱(╱ // 0xd7d @0x8
0x0d75…0d97 at0009 = ╱35╱5╱ // 0xd7e @0x9
0x0d75…0d97 at000a = ╱fe0000a003╱ // 0xd7f @0xa
0x0d75…0d97 at000f = ╱f0╱:╱ // 0xd84 @0xf
0x0d75…0d97 at0010 = ╱36╱6╱ // 0xd85 @0x10
0x0d75…0d97 at0011 = ╱fe0000c003╱ // 0xd86 @0x11
0x0d75…0d97 at0016 = ╱ee╱)╱ // 0xd8b @0x16
0x0d75…0d97 at0017 = ╱e1╱<>╱ // 0xd8c @0x17
0x0d75…0d97 at0018 = ╱22╱"╱ // 0xd8d @0x18
0x0d75…0d97 at0019 = ╱20╱…╱ // 0xd8e @0x19
0x0d75…0d97 at001a = ╱20╱…╱ // 0xd8f @0x1a
0x0d75…0d97 at001b = ╱20╱…╱ // 0xd90 @0x1b
0x0d75…0d97 at001c = ╱20╱…╱ // 0xd91 @0x1c
0x0d75…0d97 at001d = ╱20╱…╱ // 0xd92 @0x1d
0x0d75…0d97 at001e = ╱20╱…╱ // 0xd93 @0x1e
0x0d75…0d97 at001f = ╱22╱"╱ // 0xd94 @0x1f
0x0d75…0d97 at0020 = ╱b6╱ THEN ╱ // 0xd95 @0x20
0x0d75…0d97 at0021 = EOL // 0xd96 @0x21
0x0d75…0d97 }
0x0d97…0db7 9b0e 1740 RESUL$=P7$(11:10)
0x0d97…0db7 LineComalBin {
0x0d97…0db7 ptr = 0x9b0e // 0xd97 @0x0
0x0d97…0db7 lno = 0x06cc // 0xd99 @0x2
0x0d97…0db7 at0004 = ╱52╱R╱ // 0xd9b @0x4
0x0d97…0db7 at0005 = ╱45╱E╱ // 0xd9c @0x5
0x0d97…0db7 at0006 = ╱53╱S╱ // 0xd9d @0x6
0x0d97…0db7 at0007 = ╱55╱U╱ // 0xd9e @0x7
0x0d97…0db7 at0008 = ╱4c╱L╱ // 0xd9f @0x8
0x0d97…0db7 at0009 = ╱ef╱$╱ // 0xda0 @0x9
0x0d97…0db7 at000a = ╱dc╱=╱ // 0xda1 @0xa
0x0d97…0db7 at000b = ╱50╱P╱ // 0xda2 @0xb
0x0d97…0db7 at000c = ╱37╱7╱ // 0xda3 @0xc
0x0d97…0db7 at000d = ╱ef╱$╱ // 0xda4 @0xd
0x0d97…0db7 at000e = ╱ed╱(╱ // 0xda5 @0xe
0x0d97…0db7 at000f = ╱31╱1╱ // 0xda6 @0xf
0x0d97…0db7 at0010 = ╱31╱1╱ // 0xda7 @0x10
0x0d97…0db7 at0011 = ╱fe0000b004╱ // 0xda8 @0x11
0x0d97…0db7 at0016 = ╱f0╱:╱ // 0xdad @0x16
0x0d97…0db7 at0017 = ╱31╱1╱ // 0xdae @0x17
0x0d97…0db7 at0018 = ╱30╱0╱ // 0xdaf @0x18
0x0d97…0db7 at0019 = ╱fe0000a004╱ // 0xdb0 @0x19
0x0d97…0db7 at001e = ╱ee╱)╱ // 0xdb5 @0x1e
0x0d97…0db7 at001f = EOL // 0xdb6 @0x1f
0x0d97…0db7 }
0x0db7…0dd3 9b2a 1750 EXEC CALC(B,EN$,RESUL$,EN$)
0x0db7…0dd3 LineComalBin {
0x0db7…0dd3 ptr = 0x9b2a // 0xdb7 @0x0
0x0db7…0dd3 lno = 0x06d6 // 0xdb9 @0x2
0x0db7…0dd3 at0004 = ╱9d╱ EXEC ╱ // 0xdbb @0x4
0x0db7…0dd3 at0005 = ╱43╱C╱ // 0xdbc @0x5
0x0db7…0dd3 at0006 = ╱41╱A╱ // 0xdbd @0x6
0x0db7…0dd3 at0007 = ╱4c╱L╱ // 0xdbe @0x7
0x0db7…0dd3 at0008 = ╱43╱C╱ // 0xdbf @0x8
0x0db7…0dd3 at0009 = ╱ed╱(╱ // 0xdc0 @0x9
0x0db7…0dd3 at000a = ╱42╱B╱ // 0xdc1 @0xa
0x0db7…0dd3 at000b = ╱ec╱,╱ // 0xdc2 @0xb
0x0db7…0dd3 at000c = ╱45╱E╱ // 0xdc3 @0xc
0x0db7…0dd3 at000d = ╱4e╱N╱ // 0xdc4 @0xd
0x0db7…0dd3 at000e = ╱ef╱$╱ // 0xdc5 @0xe
0x0db7…0dd3 at000f = ╱ec╱,╱ // 0xdc6 @0xf
0x0db7…0dd3 at0010 = ╱52╱R╱ // 0xdc7 @0x10
0x0db7…0dd3 at0011 = ╱45╱E╱ // 0xdc8 @0x11
0x0db7…0dd3 at0012 = ╱53╱S╱ // 0xdc9 @0x12
0x0db7…0dd3 at0013 = ╱55╱U╱ // 0xdca @0x13
0x0db7…0dd3 at0014 = ╱4c╱L╱ // 0xdcb @0x14
0x0db7…0dd3 at0015 = ╱ef╱$╱ // 0xdcc @0x15
0x0db7…0dd3 at0016 = ╱ec╱,╱ // 0xdcd @0x16
0x0db7…0dd3 at0017 = ╱45╱E╱ // 0xdce @0x17
0x0db7…0dd3 at0018 = ╱4e╱N╱ // 0xdcf @0x18
0x0db7…0dd3 at0019 = ╱ef╱$╱ // 0xdd0 @0x19
0x0db7…0dd3 at001a = ╱ee╱)╱ // 0xdd1 @0x1a
0x0db7…0dd3 at001b = EOL // 0xdd2 @0x1b
0x0db7…0dd3 }
0x0dd3…0df3 9b4a 1760 RESUL$=P7$(28:10)
0x0dd3…0df3 LineComalBin {
0x0dd3…0df3 ptr = 0x9b4a // 0xdd3 @0x0
0x0dd3…0df3 lno = 0x06e0 // 0xdd5 @0x2
0x0dd3…0df3 at0004 = ╱52╱R╱ // 0xdd7 @0x4
0x0dd3…0df3 at0005 = ╱45╱E╱ // 0xdd8 @0x5
0x0dd3…0df3 at0006 = ╱53╱S╱ // 0xdd9 @0x6
0x0dd3…0df3 at0007 = ╱55╱U╱ // 0xdda @0x7
0x0dd3…0df3 at0008 = ╱4c╱L╱ // 0xddb @0x8
0x0dd3…0df3 at0009 = ╱ef╱$╱ // 0xddc @0x9
0x0dd3…0df3 at000a = ╱dc╱=╱ // 0xddd @0xa
0x0dd3…0df3 at000b = ╱50╱P╱ // 0xdde @0xb
0x0dd3…0df3 at000c = ╱37╱7╱ // 0xddf @0xc
0x0dd3…0df3 at000d = ╱ef╱$╱ // 0xde0 @0xd
0x0dd3…0df3 at000e = ╱ed╱(╱ // 0xde1 @0xe
0x0dd3…0df3 at000f = ╱32╱2╱ // 0xde2 @0xf
0x0dd3…0df3 at0010 = ╱38╱8╱ // 0xde3 @0x10
0x0dd3…0df3 at0011 = ╱fe0000e005╱ // 0xde4 @0x11
0x0dd3…0df3 at0016 = ╱f0╱:╱ // 0xde9 @0x16
0x0dd3…0df3 at0017 = ╱31╱1╱ // 0xdea @0x17
0x0dd3…0df3 at0018 = ╱30╱0╱ // 0xdeb @0x18
0x0dd3…0df3 at0019 = ╱fe0000a004╱ // 0xdec @0x19
0x0dd3…0df3 at001e = ╱ee╱)╱ // 0xdf1 @0x1e
0x0dd3…0df3 at001f = EOL // 0xdf2 @0x1f
0x0dd3…0df3 }
0x0df3…0e0f 9b66 1770 EXEC CALC(B,BE$,RESUL$,BE$)
0x0df3…0e0f LineComalBin {
0x0df3…0e0f ptr = 0x9b66 // 0xdf3 @0x0
0x0df3…0e0f lno = 0x06ea // 0xdf5 @0x2
0x0df3…0e0f at0004 = ╱9d╱ EXEC ╱ // 0xdf7 @0x4
0x0df3…0e0f at0005 = ╱43╱C╱ // 0xdf8 @0x5
0x0df3…0e0f at0006 = ╱41╱A╱ // 0xdf9 @0x6
0x0df3…0e0f at0007 = ╱4c╱L╱ // 0xdfa @0x7
0x0df3…0e0f at0008 = ╱43╱C╱ // 0xdfb @0x8
0x0df3…0e0f at0009 = ╱ed╱(╱ // 0xdfc @0x9
0x0df3…0e0f at000a = ╱42╱B╱ // 0xdfd @0xa
0x0df3…0e0f at000b = ╱ec╱,╱ // 0xdfe @0xb
0x0df3…0e0f at000c = ╱42╱B╱ // 0xdff @0xc
0x0df3…0e0f at000d = ╱45╱E╱ // 0xe00 @0xd
0x0df3…0e0f at000e = ╱ef╱$╱ // 0xe01 @0xe
0x0df3…0e0f at000f = ╱ec╱,╱ // 0xe02 @0xf
0x0df3…0e0f at0010 = ╱52╱R╱ // 0xe03 @0x10
0x0df3…0e0f at0011 = ╱45╱E╱ // 0xe04 @0x11
0x0df3…0e0f at0012 = ╱53╱S╱ // 0xe05 @0x12
0x0df3…0e0f at0013 = ╱55╱U╱ // 0xe06 @0x13
0x0df3…0e0f at0014 = ╱4c╱L╱ // 0xe07 @0x14
0x0df3…0e0f at0015 = ╱ef╱$╱ // 0xe08 @0x15
0x0df3…0e0f at0016 = ╱ec╱,╱ // 0xe09 @0x16
0x0df3…0e0f at0017 = ╱42╱B╱ // 0xe0a @0x17
0x0df3…0e0f at0018 = ╱45╱E╱ // 0xe0b @0x18
0x0df3…0e0f at0019 = ╱ef╱$╱ // 0xe0c @0x19
0x0df3…0e0f at001a = ╱ee╱)╱ // 0xe0d @0x1a
0x0df3…0e0f at001b = EOL // 0xe0e @0x1b
0x0df3…0e0f }
0x0e0f…0e19 9b70 1780 EXEC FIND
0x0e0f…0e19 LineComalBin {
0x0e0f…0e19 ptr = 0x9b70 // 0xe0f @0x0
0x0e0f…0e19 lno = 0x06f4 // 0xe11 @0x2
0x0e0f…0e19 at0004 = ╱9d╱ EXEC ╱ // 0xe13 @0x4
0x0e0f…0e19 at0005 = ╱46╱F╱ // 0xe14 @0x5
0x0e0f…0e19 at0006 = ╱49╱I╱ // 0xe15 @0x6
0x0e0f…0e19 at0007 = ╱4e╱N╱ // 0xe16 @0x7
0x0e0f…0e19 at0008 = ╱44╱D╱ // 0xe17 @0x8
0x0e0f…0e19 at0009 = EOL // 0xe18 @0x9
0x0e0f…0e19 }
0x0e19…0e26 9b7d 1790 IF NR<=MAX THEN
0x0e19…0e26 LineComalBin {
0x0e19…0e26 ptr = 0x9b7d // 0xe19 @0x0
0x0e19…0e26 lno = 0x06fe // 0xe1b @0x2
0x0e19…0e26 at0004 = ╱9c╱ IF ╱ // 0xe1d @0x4
0x0e19…0e26 at0005 = ╱4e╱N╱ // 0xe1e @0x5
0x0e19…0e26 at0006 = ╱52╱R╱ // 0xe1f @0x6
0x0e19…0e26 at0007 = ╱df╱<=╱ // 0xe20 @0x7
0x0e19…0e26 at0008 = ╱4d╱M╱ // 0xe21 @0x8
0x0e19…0e26 at0009 = ╱41╱A╱ // 0xe22 @0x9
0x0e19…0e26 at000a = ╱58╱X╱ // 0xe23 @0xa
0x0e19…0e26 at000b = ╱b6╱ THEN ╱ // 0xe24 @0xb
0x0e19…0e26 at000c = EOL // 0xe25 @0xc
0x0e19…0e26 }
0x0e26…0e4f 9ba6 1800 IF T$(NR,E:6)=P7$(5:6) THEN
0x0e26…0e4f LineComalBin {
0x0e26…0e4f ptr = 0x9ba6 // 0xe26 @0x0
0x0e26…0e4f lno = 0x0708 // 0xe28 @0x2
0x0e26…0e4f at0004 = ╱9c╱ IF ╱ // 0xe2a @0x4
0x0e26…0e4f at0005 = ╱54╱T╱ // 0xe2b @0x5
0x0e26…0e4f at0006 = ╱ef╱$╱ // 0xe2c @0x6
0x0e26…0e4f at0007 = ╱ed╱(╱ // 0xe2d @0x7
0x0e26…0e4f at0008 = ╱4e╱N╱ // 0xe2e @0x8
0x0e26…0e4f at0009 = ╱52╱R╱ // 0xe2f @0x9
0x0e26…0e4f at000a = ╱ec╱,╱ // 0xe30 @0xa
0x0e26…0e4f at000b = ╱45╱E╱ // 0xe31 @0xb
0x0e26…0e4f at000c = ╱f0╱:╱ // 0xe32 @0xc
0x0e26…0e4f at000d = ╱36╱6╱ // 0xe33 @0xd
0x0e26…0e4f at000e = ╱fe0000c003╱ // 0xe34 @0xe
0x0e26…0e4f at0013 = ╱ee╱)╱ // 0xe39 @0x13
0x0e26…0e4f at0014 = ╱dc╱=╱ // 0xe3a @0x14
0x0e26…0e4f at0015 = ╱50╱P╱ // 0xe3b @0x15
0x0e26…0e4f at0016 = ╱37╱7╱ // 0xe3c @0x16
0x0e26…0e4f at0017 = ╱ef╱$╱ // 0xe3d @0x17
0x0e26…0e4f at0018 = ╱ed╱(╱ // 0xe3e @0x18
0x0e26…0e4f at0019 = ╱35╱5╱ // 0xe3f @0x19
0x0e26…0e4f at001a = ╱fe0000a003╱ // 0xe40 @0x1a
0x0e26…0e4f at001f = ╱f0╱:╱ // 0xe45 @0x1f
0x0e26…0e4f at0020 = ╱36╱6╱ // 0xe46 @0x20
0x0e26…0e4f at0021 = ╱fe0000c003╱ // 0xe47 @0x21
0x0e26…0e4f at0026 = ╱ee╱)╱ // 0xe4c @0x26
0x0e26…0e4f at0027 = ╱b6╱ THEN ╱ // 0xe4d @0x27
0x0e26…0e4f at0028 = EOL // 0xe4e @0x28
0x0e26…0e4f }
0x0e4f…0e5e 9bb5 1810 EXEC OPTÆL(NR)
0x0e4f…0e5e LineComalBin {
0x0e4f…0e5e ptr = 0x9bb5 // 0xe4f @0x0
0x0e4f…0e5e lno = 0x0712 // 0xe51 @0x2
0x0e4f…0e5e at0004 = ╱9d╱ EXEC ╱ // 0xe53 @0x4
0x0e4f…0e5e at0005 = ╱4f╱O╱ // 0xe54 @0x5
0x0e4f…0e5e at0006 = ╱50╱P╱ // 0xe55 @0x6
0x0e4f…0e5e at0007 = ╱54╱T╱ // 0xe56 @0x7
0x0e4f…0e5e at0008 = ╱5b╱Æ╱ // 0xe57 @0x8
0x0e4f…0e5e at0009 = ╱4c╱L╱ // 0xe58 @0x9
0x0e4f…0e5e at000a = ╱ed╱(╱ // 0xe59 @0xa
0x0e4f…0e5e at000b = ╱4e╱N╱ // 0xe5a @0xb
0x0e4f…0e5e at000c = ╱52╱R╱ // 0xe5b @0xc
0x0e4f…0e5e at000d = ╱ee╱)╱ // 0xe5c @0xd
0x0e4f…0e5e at000e = EOL // 0xe5d @0xe
0x0e4f…0e5e }
0x0e5e…0e64 9bbb 1820 ELSE
0x0e5e…0e64 LineComalBin {
0x0e5e…0e64 ptr = 0x9bbb // 0xe5e @0x0
0x0e5e…0e64 lno = 0x071c // 0xe60 @0x2
0x0e5e…0e64 at0004 = ╱9a╱ ELSE ╱ // 0xe62 @0x4
0x0e5e…0e64 at0005 = EOL // 0xe63 @0x5
0x0e5e…0e64 }
0x0e64…0e72 9bc9 1830 NRP=NRP+E
0x0e64…0e72 LineComalBin {
0x0e64…0e72 ptr = 0x9bc9 // 0xe64 @0x0
0x0e64…0e72 lno = 0x0726 // 0xe66 @0x2
0x0e64…0e72 at0004 = ╱4e╱N╱ // 0xe68 @0x4
0x0e64…0e72 at0005 = ╱52╱R╱ // 0xe69 @0x5
0x0e64…0e72 at0006 = ╱50╱P╱ // 0xe6a @0x6
0x0e64…0e72 at0007 = ╱dc╱=╱ // 0xe6b @0x7
0x0e64…0e72 at0008 = ╱4e╱N╱ // 0xe6c @0x8
0x0e64…0e72 at0009 = ╱52╱R╱ // 0xe6d @0x9
0x0e64…0e72 at000a = ╱50╱P╱ // 0xe6e @0xa
0x0e64…0e72 at000b = ╱e2╱+╱ // 0xe6f @0xb
0x0e64…0e72 at000c = ╱45╱E╱ // 0xe70 @0xc
0x0e64…0e72 at000d = EOL // 0xe71 @0xd
0x0e64…0e72 }
0x0e72…0e99 9bf0 1840 T$(NR,E:6)=P7$(5:6)
0x0e72…0e99 LineComalBin {
0x0e72…0e99 ptr = 0x9bf0 // 0xe72 @0x0
0x0e72…0e99 lno = 0x0730 // 0xe74 @0x2
0x0e72…0e99 at0004 = ╱54╱T╱ // 0xe76 @0x4
0x0e72…0e99 at0005 = ╱ef╱$╱ // 0xe77 @0x5
0x0e72…0e99 at0006 = ╱ed╱(╱ // 0xe78 @0x6
0x0e72…0e99 at0007 = ╱4e╱N╱ // 0xe79 @0x7
0x0e72…0e99 at0008 = ╱52╱R╱ // 0xe7a @0x8
0x0e72…0e99 at0009 = ╱ec╱,╱ // 0xe7b @0x9
0x0e72…0e99 at000a = ╱45╱E╱ // 0xe7c @0xa
0x0e72…0e99 at000b = ╱f0╱:╱ // 0xe7d @0xb
0x0e72…0e99 at000c = ╱36╱6╱ // 0xe7e @0xc
0x0e72…0e99 at000d = ╱fe0000c003╱ // 0xe7f @0xd
0x0e72…0e99 at0012 = ╱ee╱)╱ // 0xe84 @0x12
0x0e72…0e99 at0013 = ╱dc╱=╱ // 0xe85 @0x13
0x0e72…0e99 at0014 = ╱50╱P╱ // 0xe86 @0x14
0x0e72…0e99 at0015 = ╱37╱7╱ // 0xe87 @0x15
0x0e72…0e99 at0016 = ╱ef╱$╱ // 0xe88 @0x16
0x0e72…0e99 at0017 = ╱ed╱(╱ // 0xe89 @0x17
0x0e72…0e99 at0018 = ╱35╱5╱ // 0xe8a @0x18
0x0e72…0e99 at0019 = ╱fe0000a003╱ // 0xe8b @0x19
0x0e72…0e99 at001e = ╱f0╱:╱ // 0xe90 @0x1e
0x0e72…0e99 at001f = ╱36╱6╱ // 0xe91 @0x1f
0x0e72…0e99 at0020 = ╱fe0000c003╱ // 0xe92 @0x20
0x0e72…0e99 at0025 = ╱ee╱)╱ // 0xe97 @0x25
0x0e72…0e99 at0026 = EOL // 0xe98 @0x26
0x0e72…0e99 }
0x0e99…0ec8 9c1f 1850 T$(NR,7:10)=P7$(11:10)
0x0e99…0ec8 LineComalBin {
0x0e99…0ec8 ptr = 0x9c1f // 0xe99 @0x0
0x0e99…0ec8 lno = 0x073a // 0xe9b @0x2
0x0e99…0ec8 at0004 = ╱54╱T╱ // 0xe9d @0x4
0x0e99…0ec8 at0005 = ╱ef╱$╱ // 0xe9e @0x5
0x0e99…0ec8 at0006 = ╱ed╱(╱ // 0xe9f @0x6
0x0e99…0ec8 at0007 = ╱4e╱N╱ // 0xea0 @0x7
0x0e99…0ec8 at0008 = ╱52╱R╱ // 0xea1 @0x8
0x0e99…0ec8 at0009 = ╱ec╱,╱ // 0xea2 @0x9
0x0e99…0ec8 at000a = ╱37╱7╱ // 0xea3 @0xa
0x0e99…0ec8 at000b = ╱fe0000e003╱ // 0xea4 @0xb
0x0e99…0ec8 at0010 = ╱f0╱:╱ // 0xea9 @0x10
0x0e99…0ec8 at0011 = ╱31╱1╱ // 0xeaa @0x11
0x0e99…0ec8 at0012 = ╱30╱0╱ // 0xeab @0x12
0x0e99…0ec8 at0013 = ╱fe0000a004╱ // 0xeac @0x13
0x0e99…0ec8 at0018 = ╱ee╱)╱ // 0xeb1 @0x18
0x0e99…0ec8 at0019 = ╱dc╱=╱ // 0xeb2 @0x19
0x0e99…0ec8 at001a = ╱50╱P╱ // 0xeb3 @0x1a
0x0e99…0ec8 at001b = ╱37╱7╱ // 0xeb4 @0x1b
0x0e99…0ec8 at001c = ╱ef╱$╱ // 0xeb5 @0x1c
0x0e99…0ec8 at001d = ╱ed╱(╱ // 0xeb6 @0x1d
0x0e99…0ec8 at001e = ╱31╱1╱ // 0xeb7 @0x1e
0x0e99…0ec8 at001f = ╱31╱1╱ // 0xeb8 @0x1f
0x0e99…0ec8 at0020 = ╱fe0000b004╱ // 0xeb9 @0x20
0x0e99…0ec8 at0025 = ╱f0╱:╱ // 0xebe @0x25
0x0e99…0ec8 at0026 = ╱31╱1╱ // 0xebf @0x26
0x0e99…0ec8 at0027 = ╱30╱0╱ // 0xec0 @0x27
0x0e99…0ec8 at0028 = ╱fe0000a004╱ // 0xec1 @0x28
0x0e99…0ec8 at002d = ╱ee╱)╱ // 0xec6 @0x2d
0x0e99…0ec8 at002e = EOL // 0xec7 @0x2e
0x0e99…0ec8 }
0x0ec8…0ef8 9c4f 1860 T$(NR,17:10)=P7$(28:10)
0x0ec8…0ef8 LineComalBin {
0x0ec8…0ef8 ptr = 0x9c4f // 0xec8 @0x0
0x0ec8…0ef8 lno = 0x0744 // 0xeca @0x2
0x0ec8…0ef8 at0004 = ╱54╱T╱ // 0xecc @0x4
0x0ec8…0ef8 at0005 = ╱ef╱$╱ // 0xecd @0x5
0x0ec8…0ef8 at0006 = ╱ed╱(╱ // 0xece @0x6
0x0ec8…0ef8 at0007 = ╱4e╱N╱ // 0xecf @0x7
0x0ec8…0ef8 at0008 = ╱52╱R╱ // 0xed0 @0x8
0x0ec8…0ef8 at0009 = ╱ec╱,╱ // 0xed1 @0x9
0x0ec8…0ef8 at000a = ╱31╱1╱ // 0xed2 @0xa
0x0ec8…0ef8 at000b = ╱37╱7╱ // 0xed3 @0xb
0x0ec8…0ef8 at000c = ╱fe00008805╱ // 0xed4 @0xc
0x0ec8…0ef8 at0011 = ╱f0╱:╱ // 0xed9 @0x11
0x0ec8…0ef8 at0012 = ╱31╱1╱ // 0xeda @0x12
0x0ec8…0ef8 at0013 = ╱30╱0╱ // 0xedb @0x13
0x0ec8…0ef8 at0014 = ╱fe0000a004╱ // 0xedc @0x14
0x0ec8…0ef8 at0019 = ╱ee╱)╱ // 0xee1 @0x19
0x0ec8…0ef8 at001a = ╱dc╱=╱ // 0xee2 @0x1a
0x0ec8…0ef8 at001b = ╱50╱P╱ // 0xee3 @0x1b
0x0ec8…0ef8 at001c = ╱37╱7╱ // 0xee4 @0x1c
0x0ec8…0ef8 at001d = ╱ef╱$╱ // 0xee5 @0x1d
0x0ec8…0ef8 at001e = ╱ed╱(╱ // 0xee6 @0x1e
0x0ec8…0ef8 at001f = ╱32╱2╱ // 0xee7 @0x1f
0x0ec8…0ef8 at0020 = ╱38╱8╱ // 0xee8 @0x20
0x0ec8…0ef8 at0021 = ╱fe0000e005╱ // 0xee9 @0x21
0x0ec8…0ef8 at0026 = ╱f0╱:╱ // 0xeee @0x26
0x0ec8…0ef8 at0027 = ╱31╱1╱ // 0xeef @0x27
0x0ec8…0ef8 at0028 = ╱30╱0╱ // 0xef0 @0x28
0x0ec8…0ef8 at0029 = ╱fe0000a004╱ // 0xef1 @0x29
0x0ec8…0ef8 at002e = ╱ee╱)╱ // 0xef6 @0x2e
0x0ec8…0ef8 at002f = EOL // 0xef7 @0x2f
0x0ec8…0ef8 }
0x0ef8…0efe 9c55 1870 ENDIF
0x0ef8…0efe LineComalBin {
0x0ef8…0efe ptr = 0x9c55 // 0xef8 @0x0
0x0ef8…0efe lno = 0x074e // 0xefa @0x2
0x0ef8…0efe at0004 = ╱9b╱ ENDIF ╱ // 0xefc @0x4
0x0ef8…0efe at0005 = EOL // 0xefd @0x5
0x0ef8…0efe }
0x0efe…0f04 9c5b 1880 ELSE
0x0efe…0f04 LineComalBin {
0x0efe…0f04 ptr = 0x9c5b // 0xefe @0x0
0x0efe…0f04 lno = 0x0758 // 0xf00 @0x2
0x0efe…0f04 at0004 = ╱9a╱ ELSE ╱ // 0xf02 @0x4
0x0efe…0f04 at0005 = EOL // 0xf03 @0x5
0x0efe…0f04 }
0x0f04…0f12 9c69 1890 IF NRP=MAX THEN
0x0f04…0f12 LineComalBin {
0x0f04…0f12 ptr = 0x9c69 // 0xf04 @0x0
0x0f04…0f12 lno = 0x0762 // 0xf06 @0x2
0x0f04…0f12 at0004 = ╱9c╱ IF ╱ // 0xf08 @0x4
0x0f04…0f12 at0005 = ╱4e╱N╱ // 0xf09 @0x5
0x0f04…0f12 at0006 = ╱52╱R╱ // 0xf0a @0x6
0x0f04…0f12 at0007 = ╱50╱P╱ // 0xf0b @0x7
0x0f04…0f12 at0008 = ╱dc╱=╱ // 0xf0c @0x8
0x0f04…0f12 at0009 = ╱4d╱M╱ // 0xf0d @0x9
0x0f04…0f12 at000a = ╱41╱A╱ // 0xf0e @0xa
0x0f04…0f12 at000b = ╱58╱X╱ // 0xf0f @0xb
0x0f04…0f12 at000c = ╱b6╱ THEN ╱ // 0xf10 @0xc
0x0f04…0f12 at000d = EOL // 0xf11 @0xd
0x0f04…0f12 }
0x0f12…0f29 9c80 1900 EXEC OPTÆL(1+MAX)
0x0f12…0f29 LineComalBin {
0x0f12…0f29 ptr = 0x9c80 // 0xf12 @0x0
0x0f12…0f29 lno = 0x076c // 0xf14 @0x2
0x0f12…0f29 at0004 = ╱9d╱ EXEC ╱ // 0xf16 @0x4
0x0f12…0f29 at0005 = ╱4f╱O╱ // 0xf17 @0x5
0x0f12…0f29 at0006 = ╱50╱P╱ // 0xf18 @0x6
0x0f12…0f29 at0007 = ╱54╱T╱ // 0xf19 @0x7
0x0f12…0f29 at0008 = ╱5b╱Æ╱ // 0xf1a @0x8
0x0f12…0f29 at0009 = ╱4c╱L╱ // 0xf1b @0x9
0x0f12…0f29 at000a = ╱ed╱(╱ // 0xf1c @0xa
0x0f12…0f29 at000b = ╱31╱1╱ // 0xf1d @0xb
0x0f12…0f29 at000c = ╱fe00008001╱ // 0xf1e @0xc
0x0f12…0f29 at0011 = ╱e2╱+╱ // 0xf23 @0x11
0x0f12…0f29 at0012 = ╱4d╱M╱ // 0xf24 @0x12
0x0f12…0f29 at0013 = ╱41╱A╱ // 0xf25 @0x13
0x0f12…0f29 at0014 = ╱58╱X╱ // 0xf26 @0x14
0x0f12…0f29 at0015 = ╱ee╱)╱ // 0xf27 @0x15
0x0f12…0f29 at0016 = EOL // 0xf28 @0x16
0x0f12…0f29 }
0x0f29…0f2f 9c86 1910 ELSE
0x0f29…0f2f LineComalBin {
0x0f29…0f2f ptr = 0x9c86 // 0xf29 @0x0
0x0f29…0f2f lno = 0x0776 // 0xf2b @0x2
0x0f29…0f2f at0004 = ╱9a╱ ELSE ╱ // 0xf2d @0x4
0x0f29…0f2f at0005 = EOL // 0xf2e @0x5
0x0f29…0f2f }
0x0f2f…0f3b 9c92 1920 AO,AN=B
0x0f2f…0f3b LineComalBin {
0x0f2f…0f3b ptr = 0x9c92 // 0xf2f @0x0
0x0f2f…0f3b lno = 0x0780 // 0xf31 @0x2
0x0f2f…0f3b at0004 = ╱41╱A╱ // 0xf33 @0x4
0x0f2f…0f3b at0005 = ╱4f╱O╱ // 0xf34 @0x5
0x0f2f…0f3b at0006 = ╱ec╱,╱ // 0xf35 @0x6
0x0f2f…0f3b at0007 = ╱41╱A╱ // 0xf36 @0x7
0x0f2f…0f3b at0008 = ╱4e╱N╱ // 0xf37 @0x8
0x0f2f…0f3b at0009 = ╱dc╱=╱ // 0xf38 @0x9
0x0f2f…0f3b at000a = ╱42╱B╱ // 0xf39 @0xa
0x0f2f…0f3b at000b = EOL // 0xf3a @0xb
0x0f2f…0f3b }
0x0f3b…0f47 9c9e 1930 NR=NR DIV G
0x0f3b…0f47 LineComalBin {
0x0f3b…0f47 ptr = 0x9c9e // 0xf3b @0x0
0x0f3b…0f47 lno = 0x078a // 0xf3d @0x2
0x0f3b…0f47 at0004 = ╱4e╱N╱ // 0xf3f @0x4
0x0f3b…0f47 at0005 = ╱52╱R╱ // 0xf40 @0x5
0x0f3b…0f47 at0006 = ╱dc╱=╱ // 0xf41 @0x6
0x0f3b…0f47 at0007 = ╱4e╱N╱ // 0xf42 @0x7
0x0f3b…0f47 at0008 = ╱52╱R╱ // 0xf43 @0x8
0x0f3b…0f47 at0009 = ╱e7╱ DIV ╱ // 0xf44 @0x9
0x0f3b…0f47 at000a = ╱47╱G╱ // 0xf45 @0xa
0x0f3b…0f47 at000b = EOL // 0xf46 @0xb
0x0f3b…0f47 }
0x0f47…0f52 9ca9 1940 GNR=NR
0x0f47…0f52 LineComalBin {
0x0f47…0f52 ptr = 0x9ca9 // 0xf47 @0x0
0x0f47…0f52 lno = 0x0794 // 0xf49 @0x2
0x0f47…0f52 at0004 = ╱47╱G╱ // 0xf4b @0x4
0x0f47…0f52 at0005 = ╱4e╱N╱ // 0xf4c @0x5
0x0f47…0f52 at0006 = ╱52╱R╱ // 0xf4d @0x6
0x0f47…0f52 at0007 = ╱dc╱=╱ // 0xf4e @0x7
0x0f47…0f52 at0008 = ╱4e╱N╱ // 0xf4f @0x8
0x0f47…0f52 at0009 = ╱52╱R╱ // 0xf50 @0x9
0x0f47…0f52 at000a = EOL // 0xf51 @0xa
0x0f47…0f52 }
0x0f52…0f58 9caf 1950 REPEAT
0x0f52…0f58 LineComalBin {
0x0f52…0f58 ptr = 0x9caf // 0xf52 @0x0
0x0f52…0f58 lno = 0x079e // 0xf54 @0x2
0x0f52…0f58 at0004 = ╱97╱ REPEAT ╱ // 0xf56 @0x4
0x0f52…0f58 at0005 = EOL // 0xf57 @0x5
0x0f52…0f58 }
0x0f58…0f64 9cbb 1960 AO=AO+E
0x0f58…0f64 LineComalBin {
0x0f58…0f64 ptr = 0x9cbb // 0xf58 @0x0
0x0f58…0f64 lno = 0x07a8 // 0xf5a @0x2
0x0f58…0f64 at0004 = ╱41╱A╱ // 0xf5c @0x4
0x0f58…0f64 at0005 = ╱4f╱O╱ // 0xf5d @0x5
0x0f58…0f64 at0006 = ╱dc╱=╱ // 0xf5e @0x6
0x0f58…0f64 at0007 = ╱41╱A╱ // 0xf5f @0x7
0x0f58…0f64 at0008 = ╱4f╱O╱ // 0xf60 @0x8
0x0f58…0f64 at0009 = ╱e2╱+╱ // 0xf61 @0x9
0x0f58…0f64 at000a = ╱45╱E╱ // 0xf62 @0xa
0x0f58…0f64 at000b = EOL // 0xf63 @0xb
0x0f58…0f64 }
0x0f64…0f71 9cc8 1970 EXEC BINNEXT
0x0f64…0f71 LineComalBin {
0x0f64…0f71 ptr = 0x9cc8 // 0xf64 @0x0
0x0f64…0f71 lno = 0x07b2 // 0xf66 @0x2
0x0f64…0f71 at0004 = ╱9d╱ EXEC ╱ // 0xf68 @0x4
0x0f64…0f71 at0005 = ╱42╱B╱ // 0xf69 @0x5
0x0f64…0f71 at0006 = ╱49╱I╱ // 0xf6a @0x6
0x0f64…0f71 at0007 = ╱4e╱N╱ // 0xf6b @0x7
0x0f64…0f71 at0008 = ╱4e╱N╱ // 0xf6c @0x8
0x0f64…0f71 at0009 = ╱45╱E╱ // 0xf6d @0x9
0x0f64…0f71 at000a = ╱58╱X╱ // 0xf6e @0xa
0x0f64…0f71 at000b = ╱54╱T╱ // 0xf6f @0xb
0x0f64…0f71 at000c = EOL // 0xf70 @0xc
0x0f64…0f71 }
0x0f71…0f7d 9cd4 1980 IF NR=B THEN EXIT
0x0f71…0f7d LineComalBin {
0x0f71…0f7d ptr = 0x9cd4 // 0xf71 @0x0
0x0f71…0f7d lno = 0x07bc // 0xf73 @0x2
0x0f71…0f7d at0004 = ╱82╱ IF ╱ // 0xf75 @0x4
0x0f71…0f7d at0005 = ╱4e╱N╱ // 0xf76 @0x5
0x0f71…0f7d at0006 = ╱52╱R╱ // 0xf77 @0x6
0x0f71…0f7d at0007 = ╱dc╱=╱ // 0xf78 @0x7
0x0f71…0f7d at0008 = ╱42╱B╱ // 0xf79 @0x8
0x0f71…0f7d at0009 = ╱b6╱ THEN ╱ // 0xf7a @0x9
0x0f71…0f7d at000a = ╱99╱ EXIT ╱ // 0xf7b @0xa
0x0f71…0f7d at000b = EOL // 0xf7c @0xb
0x0f71…0f7d }
0x0f7d…0f9b 9cf2 1990 UNTIL T$(NR,E:6)=" "
0x0f7d…0f9b LineComalBin {
0x0f7d…0f9b ptr = 0x9cf2 // 0xf7d @0x0
0x0f7d…0f9b lno = 0x07c6 // 0xf7f @0x2
0x0f7d…0f9b at0004 = ╱98╱ UNTIL ╱ // 0xf81 @0x4
0x0f7d…0f9b at0005 = ╱54╱T╱ // 0xf82 @0x5
0x0f7d…0f9b at0006 = ╱ef╱$╱ // 0xf83 @0x6
0x0f7d…0f9b at0007 = ╱ed╱(╱ // 0xf84 @0x7
0x0f7d…0f9b at0008 = ╱4e╱N╱ // 0xf85 @0x8
0x0f7d…0f9b at0009 = ╱52╱R╱ // 0xf86 @0x9
0x0f7d…0f9b at000a = ╱ec╱,╱ // 0xf87 @0xa
0x0f7d…0f9b at000b = ╱45╱E╱ // 0xf88 @0xb
0x0f7d…0f9b at000c = ╱f0╱:╱ // 0xf89 @0xc
0x0f7d…0f9b at000d = ╱36╱6╱ // 0xf8a @0xd
0x0f7d…0f9b at000e = ╱fe0000c003╱ // 0xf8b @0xe
0x0f7d…0f9b at0013 = ╱ee╱)╱ // 0xf90 @0x13
0x0f7d…0f9b at0014 = ╱dc╱=╱ // 0xf91 @0x14
0x0f7d…0f9b at0015 = ╱22╱"╱ // 0xf92 @0x15
0x0f7d…0f9b at0016 = ╱20╱…╱ // 0xf93 @0x16
0x0f7d…0f9b at0017 = ╱20╱…╱ // 0xf94 @0x17
0x0f7d…0f9b at0018 = ╱20╱…╱ // 0xf95 @0x18
0x0f7d…0f9b at0019 = ╱20╱…╱ // 0xf96 @0x19
0x0f7d…0f9b at001a = ╱20╱…╱ // 0xf97 @0x1a
0x0f7d…0f9b at001b = ╱20╱…╱ // 0xf98 @0x1b
0x0f7d…0f9b at001c = ╱22╱"╱ // 0xf99 @0x1c
0x0f7d…0f9b at001d = EOL // 0xf9a @0x1d
0x0f7d…0f9b }
0x0f9b…0fa6 9cfd 2000 IF NR>B THEN
0x0f9b…0fa6 LineComalBin {
0x0f9b…0fa6 ptr = 0x9cfd // 0xf9b @0x0
0x0f9b…0fa6 lno = 0x07d0 // 0xf9d @0x2
0x0f9b…0fa6 at0004 = ╱9c╱ IF ╱ // 0xf9f @0x4
0x0f9b…0fa6 at0005 = ╱4e╱N╱ // 0xfa0 @0x5
0x0f9b…0fa6 at0006 = ╱52╱R╱ // 0xfa1 @0x6
0x0f9b…0fa6 at0007 = ╱de╱>╱ // 0xfa2 @0x7
0x0f9b…0fa6 at0008 = ╱42╱B╱ // 0xfa3 @0x8
0x0f9b…0fa6 at0009 = ╱b6╱ THEN ╱ // 0xfa4 @0x9
0x0f9b…0fa6 at000a = EOL // 0xfa5 @0xa
0x0f9b…0fa6 }
0x0fa6…0fb1 9d08 2010 NR1=NR
0x0fa6…0fb1 LineComalBin {
0x0fa6…0fb1 ptr = 0x9d08 // 0xfa6 @0x0
0x0fa6…0fb1 lno = 0x07da // 0xfa8 @0x2
0x0fa6…0fb1 at0004 = ╱4e╱N╱ // 0xfaa @0x4
0x0fa6…0fb1 at0005 = ╱52╱R╱ // 0xfab @0x5
0x0fa6…0fb1 at0006 = ╱31╱1╱ // 0xfac @0x6
0x0fa6…0fb1 at0007 = ╱dc╱=╱ // 0xfad @0x7
0x0fa6…0fb1 at0008 = ╱4e╱N╱ // 0xfae @0x8
0x0fa6…0fb1 at0009 = ╱52╱R╱ // 0xfaf @0x9
0x0fa6…0fb1 at000a = EOL // 0xfb0 @0xa
0x0fa6…0fb1 }
0x0fb1…0fd0 9d27 2020 WHILE T$(NR1,E:6)=" "
0x0fb1…0fd0 LineComalBin {
0x0fb1…0fd0 ptr = 0x9d27 // 0xfb1 @0x0
0x0fb1…0fd0 lno = 0x07e4 // 0xfb3 @0x2
0x0fb1…0fd0 at0004 = ╱93╱ WHILE ╱ // 0xfb5 @0x4
0x0fb1…0fd0 at0005 = ╱54╱T╱ // 0xfb6 @0x5
0x0fb1…0fd0 at0006 = ╱ef╱$╱ // 0xfb7 @0x6
0x0fb1…0fd0 at0007 = ╱ed╱(╱ // 0xfb8 @0x7
0x0fb1…0fd0 at0008 = ╱4e╱N╱ // 0xfb9 @0x8
0x0fb1…0fd0 at0009 = ╱52╱R╱ // 0xfba @0x9
0x0fb1…0fd0 at000a = ╱31╱1╱ // 0xfbb @0xa
0x0fb1…0fd0 at000b = ╱ec╱,╱ // 0xfbc @0xb
0x0fb1…0fd0 at000c = ╱45╱E╱ // 0xfbd @0xc
0x0fb1…0fd0 at000d = ╱f0╱:╱ // 0xfbe @0xd
0x0fb1…0fd0 at000e = ╱36╱6╱ // 0xfbf @0xe
0x0fb1…0fd0 at000f = ╱fe0000c003╱ // 0xfc0 @0xf
0x0fb1…0fd0 at0014 = ╱ee╱)╱ // 0xfc5 @0x14
0x0fb1…0fd0 at0015 = ╱dc╱=╱ // 0xfc6 @0x15
0x0fb1…0fd0 at0016 = ╱22╱"╱ // 0xfc7 @0x16
0x0fb1…0fd0 at0017 = ╱20╱…╱ // 0xfc8 @0x17
0x0fb1…0fd0 at0018 = ╱20╱…╱ // 0xfc9 @0x18
0x0fb1…0fd0 at0019 = ╱20╱…╱ // 0xfca @0x19
0x0fb1…0fd0 at001a = ╱20╱…╱ // 0xfcb @0x1a
0x0fb1…0fd0 at001b = ╱20╱…╱ // 0xfcc @0x1b
0x0fb1…0fd0 at001c = ╱20╱…╱ // 0xfcd @0x1c
0x0fb1…0fd0 at001d = ╱22╱"╱ // 0xfce @0x1d
0x0fb1…0fd0 at001e = EOL // 0xfcf @0x1e
0x0fb1…0fd0 }
0x0fd0…0fdb 9d32 2030 NR=NR1
0x0fd0…0fdb LineComalBin {
0x0fd0…0fdb ptr = 0x9d32 // 0xfd0 @0x0
0x0fd0…0fdb lno = 0x07ee // 0xfd2 @0x2
0x0fd0…0fdb at0004 = ╱4e╱N╱ // 0xfd4 @0x4
0x0fd0…0fdb at0005 = ╱52╱R╱ // 0xfd5 @0x5
0x0fd0…0fdb at0006 = ╱dc╱=╱ // 0xfd6 @0x6
0x0fd0…0fdb at0007 = ╱4e╱N╱ // 0xfd7 @0x7
0x0fd0…0fdb at0008 = ╱52╱R╱ // 0xfd8 @0x8
0x0fd0…0fdb at0009 = ╱31╱1╱ // 0xfd9 @0x9
0x0fd0…0fdb at000a = EOL // 0xfda @0xa
0x0fd0…0fdb }
0x0fdb…0fe9 9d40 2040 NR1=NR1 DIV G
0x0fdb…0fe9 LineComalBin {
0x0fdb…0fe9 ptr = 0x9d40 // 0xfdb @0x0
0x0fdb…0fe9 lno = 0x07f8 // 0xfdd @0x2
0x0fdb…0fe9 at0004 = ╱4e╱N╱ // 0xfdf @0x4
0x0fdb…0fe9 at0005 = ╱52╱R╱ // 0xfe0 @0x5
0x0fdb…0fe9 at0006 = ╱31╱1╱ // 0xfe1 @0x6
0x0fdb…0fe9 at0007 = ╱dc╱=╱ // 0xfe2 @0x7
0x0fdb…0fe9 at0008 = ╱4e╱N╱ // 0xfe3 @0x8
0x0fdb…0fe9 at0009 = ╱52╱R╱ // 0xfe4 @0x9
0x0fdb…0fe9 at000a = ╱31╱1╱ // 0xfe5 @0xa
0x0fdb…0fe9 at000b = ╱e7╱ DIV ╱ // 0xfe6 @0xb
0x0fdb…0fe9 at000c = ╱47╱G╱ // 0xfe7 @0xc
0x0fdb…0fe9 at000d = EOL // 0xfe8 @0xd
0x0fdb…0fe9 }
0x0fe9…0fef 9d46 2050 ENDWHILE
0x0fe9…0fef LineComalBin {
0x0fe9…0fef ptr = 0x9d46 // 0xfe9 @0x0
0x0fe9…0fef lno = 0x0802 // 0xfeb @0x2
0x0fe9…0fef at0004 = ╱94╱ ENDWHILE ╱ // 0xfed @0x4
0x0fe9…0fef at0005 = EOL // 0xfee @0x5
0x0fe9…0fef }
0x0fef…0ff5 9d4c 2060 ENDIF
0x0fef…0ff5 LineComalBin {
0x0fef…0ff5 ptr = 0x9d4c // 0xfef @0x0
0x0fef…0ff5 lno = 0x080c // 0xff1 @0x2
0x0fef…0ff5 at0004 = ╱9b╱ ENDIF ╱ // 0xff3 @0x4
0x0fef…0ff5 at0005 = EOL // 0xff4 @0x5
0x0fef…0ff5 }
0x0ff5…1000 9d57 2070 ONR=NR
0x0ff5…1000 LineComalBin {
0x0ff5…1000 ptr = 0x9d57 // 0xff5 @0x0
0x0ff5…1000 lno = 0x0816 // 0xff7 @0x2
0x0ff5…1000 at0004 = ╱4f╱O╱ // 0xff9 @0x4
0x0ff5…1000 at0005 = ╱4e╱N╱ // 0xffa @0x5
0x0ff5…1000 at0006 = ╱52╱R╱ // 0xffb @0x6
0x0ff5…1000 at0007 = ╱dc╱=╱ // 0xffc @0x7
0x0ff5…1000 at0008 = ╱4e╱N╱ // 0xffd @0x8
0x0ff5…1000 at0009 = ╱52╱R╱ // 0xffe @0x9
0x0ff5…1000 at000a = EOL // 0xfff @0xa
0x0ff5…1000 }
0x1000…100b 9d62 2080 NR=GNR
0x1000…100b LineComalBin {
0x1000…100b ptr = 0x9d62 // 0x1000 @0x0
0x1000…100b lno = 0x0820 // 0x1002 @0x2
0x1000…100b at0004 = ╱4e╱N╱ // 0x1004 @0x4
0x1000…100b at0005 = ╱52╱R╱ // 0x1005 @0x5
0x1000…100b at0006 = ╱dc╱=╱ // 0x1006 @0x6
0x1000…100b at0007 = ╱47╱G╱ // 0x1007 @0x7
0x1000…100b at0008 = ╱4e╱N╱ // 0x1008 @0x8
0x1000…100b at0009 = ╱52╱R╱ // 0x1009 @0x9
0x1000…100b at000a = EOL // 0x100a @0xa
0x1000…100b }
0x100b…1011 9d68 2090 REPEAT
0x100b…1011 LineComalBin {
0x100b…1011 ptr = 0x9d68 // 0x100b @0x0
0x100b…1011 lno = 0x082a // 0x100d @0x2
0x100b…1011 at0004 = ╱97╱ REPEAT ╱ // 0x100f @0x4
0x100b…1011 at0005 = EOL // 0x1010 @0x5
0x100b…1011 }
0x1011…101d 9d74 2100 AN=AN+E
0x1011…101d LineComalBin {
0x1011…101d ptr = 0x9d74 // 0x1011 @0x0
0x1011…101d lno = 0x0834 // 0x1013 @0x2
0x1011…101d at0004 = ╱41╱A╱ // 0x1015 @0x4
0x1011…101d at0005 = ╱4e╱N╱ // 0x1016 @0x5
0x1011…101d at0006 = ╱dc╱=╱ // 0x1017 @0x6
0x1011…101d at0007 = ╱41╱A╱ // 0x1018 @0x7
0x1011…101d at0008 = ╱4e╱N╱ // 0x1019 @0x8
0x1011…101d at0009 = ╱e2╱+╱ // 0x101a @0x9
0x1011…101d at000a = ╱45╱E╱ // 0x101b @0xa
0x1011…101d at000b = EOL // 0x101c @0xb
0x1011…101d }
0x101d…102a 9d81 2110 EXEC BINPREV
0x101d…102a LineComalBin {
0x101d…102a ptr = 0x9d81 // 0x101d @0x0
0x101d…102a lno = 0x083e // 0x101f @0x2
0x101d…102a at0004 = ╱9d╱ EXEC ╱ // 0x1021 @0x4
0x101d…102a at0005 = ╱42╱B╱ // 0x1022 @0x5
0x101d…102a at0006 = ╱49╱I╱ // 0x1023 @0x6
0x101d…102a at0007 = ╱4e╱N╱ // 0x1024 @0x7
0x101d…102a at0008 = ╱50╱P╱ // 0x1025 @0x8
0x101d…102a at0009 = ╱52╱R╱ // 0x1026 @0x9
0x101d…102a at000a = ╱45╱E╱ // 0x1027 @0xa
0x101d…102a at000b = ╱56╱V╱ // 0x1028 @0xb
0x101d…102a at000c = EOL // 0x1029 @0xc
0x101d…102a }
0x102a…1036 9d8d 2120 IF NR=B THEN EXIT
0x102a…1036 LineComalBin {
0x102a…1036 ptr = 0x9d8d // 0x102a @0x0
0x102a…1036 lno = 0x0848 // 0x102c @0x2
0x102a…1036 at0004 = ╱82╱ IF ╱ // 0x102e @0x4
0x102a…1036 at0005 = ╱4e╱N╱ // 0x102f @0x5
0x102a…1036 at0006 = ╱52╱R╱ // 0x1030 @0x6
0x102a…1036 at0007 = ╱dc╱=╱ // 0x1031 @0x7
0x102a…1036 at0008 = ╱42╱B╱ // 0x1032 @0x8
0x102a…1036 at0009 = ╱b6╱ THEN ╱ // 0x1033 @0x9
0x102a…1036 at000a = ╱99╱ EXIT ╱ // 0x1034 @0xa
0x102a…1036 at000b = EOL // 0x1035 @0xb
0x102a…1036 }
0x1036…1062 9db9 2130 UNTIL T$(NR,E:6)=" " OR (AN=>AO AND ONR>B)
0x1036…1062 LineComalBin {
0x1036…1062 ptr = 0x9db9 // 0x1036 @0x0
0x1036…1062 lno = 0x0852 // 0x1038 @0x2
0x1036…1062 at0004 = ╱98╱ UNTIL ╱ // 0x103a @0x4
0x1036…1062 at0005 = ╱54╱T╱ // 0x103b @0x5
0x1036…1062 at0006 = ╱ef╱$╱ // 0x103c @0x6
0x1036…1062 at0007 = ╱ed╱(╱ // 0x103d @0x7
0x1036…1062 at0008 = ╱4e╱N╱ // 0x103e @0x8
0x1036…1062 at0009 = ╱52╱R╱ // 0x103f @0x9
0x1036…1062 at000a = ╱ec╱,╱ // 0x1040 @0xa
0x1036…1062 at000b = ╱45╱E╱ // 0x1041 @0xb
0x1036…1062 at000c = ╱f0╱:╱ // 0x1042 @0xc
0x1036…1062 at000d = ╱36╱6╱ // 0x1043 @0xd
0x1036…1062 at000e = ╱fe0000c003╱ // 0x1044 @0xe
0x1036…1062 at0013 = ╱ee╱)╱ // 0x1049 @0x13
0x1036…1062 at0014 = ╱dc╱=╱ // 0x104a @0x14
0x1036…1062 at0015 = ╱22╱"╱ // 0x104b @0x15
0x1036…1062 at0016 = ╱20╱…╱ // 0x104c @0x16
0x1036…1062 at0017 = ╱20╱…╱ // 0x104d @0x17
0x1036…1062 at0018 = ╱20╱…╱ // 0x104e @0x18
0x1036…1062 at0019 = ╱20╱…╱ // 0x104f @0x19
0x1036…1062 at001a = ╱20╱…╱ // 0x1050 @0x1a
0x1036…1062 at001b = ╱20╱…╱ // 0x1051 @0x1b
0x1036…1062 at001c = ╱22╱"╱ // 0x1052 @0x1c
0x1036…1062 at001d = ╱db╱ OR ╱ // 0x1053 @0x1d
0x1036…1062 at001e = ╱ed╱(╱ // 0x1054 @0x1e
0x1036…1062 at001f = ╱41╱A╱ // 0x1055 @0x1f
0x1036…1062 at0020 = ╱4e╱N╱ // 0x1056 @0x20
0x1036…1062 at0021 = ╱e0╱=>╱ // 0x1057 @0x21
0x1036…1062 at0022 = ╱41╱A╱ // 0x1058 @0x22
0x1036…1062 at0023 = ╱4f╱O╱ // 0x1059 @0x23
0x1036…1062 at0024 = ╱da╱ AND ╱ // 0x105a @0x24
0x1036…1062 at0025 = ╱4f╱O╱ // 0x105b @0x25
0x1036…1062 at0026 = ╱4e╱N╱ // 0x105c @0x26
0x1036…1062 at0027 = ╱52╱R╱ // 0x105d @0x27
0x1036…1062 at0028 = ╱de╱>╱ // 0x105e @0x28
0x1036…1062 at0029 = ╱42╱B╱ // 0x105f @0x29
0x1036…1062 at002a = ╱ee╱)╱ // 0x1060 @0x2a
0x1036…1062 at002b = EOL // 0x1061 @0x2b
0x1036…1062 }
0x1062…106d 9dc4 2140 IF NR>B THEN
0x1062…106d LineComalBin {
0x1062…106d ptr = 0x9dc4 // 0x1062 @0x0
0x1062…106d lno = 0x085c // 0x1064 @0x2
0x1062…106d at0004 = ╱9c╱ IF ╱ // 0x1066 @0x4
0x1062…106d at0005 = ╱4e╱N╱ // 0x1067 @0x5
0x1062…106d at0006 = ╱52╱R╱ // 0x1068 @0x6
0x1062…106d at0007 = ╱de╱>╱ // 0x1069 @0x7
0x1062…106d at0008 = ╱42╱B╱ // 0x106a @0x8
0x1062…106d at0009 = ╱b6╱ THEN ╱ // 0x106b @0x9
0x1062…106d at000a = EOL // 0x106c @0xa
0x1062…106d }
0x106d…1078 9dcf 2150 NR1=NR
0x106d…1078 LineComalBin {
0x106d…1078 ptr = 0x9dcf // 0x106d @0x0
0x106d…1078 lno = 0x0866 // 0x106f @0x2
0x106d…1078 at0004 = ╱4e╱N╱ // 0x1071 @0x4
0x106d…1078 at0005 = ╱52╱R╱ // 0x1072 @0x5
0x106d…1078 at0006 = ╱31╱1╱ // 0x1073 @0x6
0x106d…1078 at0007 = ╱dc╱=╱ // 0x1074 @0x7
0x106d…1078 at0008 = ╱4e╱N╱ // 0x1075 @0x8
0x106d…1078 at0009 = ╱52╱R╱ // 0x1076 @0x9
0x106d…1078 at000a = EOL // 0x1077 @0xa
0x106d…1078 }
0x1078…1097 9dee 2160 WHILE T$(NR1,E:6)=" "
0x1078…1097 LineComalBin {
0x1078…1097 ptr = 0x9dee // 0x1078 @0x0
0x1078…1097 lno = 0x0870 // 0x107a @0x2
0x1078…1097 at0004 = ╱93╱ WHILE ╱ // 0x107c @0x4
0x1078…1097 at0005 = ╱54╱T╱ // 0x107d @0x5
0x1078…1097 at0006 = ╱ef╱$╱ // 0x107e @0x6
0x1078…1097 at0007 = ╱ed╱(╱ // 0x107f @0x7
0x1078…1097 at0008 = ╱4e╱N╱ // 0x1080 @0x8
0x1078…1097 at0009 = ╱52╱R╱ // 0x1081 @0x9
0x1078…1097 at000a = ╱31╱1╱ // 0x1082 @0xa
0x1078…1097 at000b = ╱ec╱,╱ // 0x1083 @0xb
0x1078…1097 at000c = ╱45╱E╱ // 0x1084 @0xc
0x1078…1097 at000d = ╱f0╱:╱ // 0x1085 @0xd
0x1078…1097 at000e = ╱36╱6╱ // 0x1086 @0xe
0x1078…1097 at000f = ╱fe0000c003╱ // 0x1087 @0xf
0x1078…1097 at0014 = ╱ee╱)╱ // 0x108c @0x14
0x1078…1097 at0015 = ╱dc╱=╱ // 0x108d @0x15
0x1078…1097 at0016 = ╱22╱"╱ // 0x108e @0x16
0x1078…1097 at0017 = ╱20╱…╱ // 0x108f @0x17
0x1078…1097 at0018 = ╱20╱…╱ // 0x1090 @0x18
0x1078…1097 at0019 = ╱20╱…╱ // 0x1091 @0x19
0x1078…1097 at001a = ╱20╱…╱ // 0x1092 @0x1a
0x1078…1097 at001b = ╱20╱…╱ // 0x1093 @0x1b
0x1078…1097 at001c = ╱20╱…╱ // 0x1094 @0x1c
0x1078…1097 at001d = ╱22╱"╱ // 0x1095 @0x1d
0x1078…1097 at001e = EOL // 0x1096 @0x1e
0x1078…1097 }
0x1097…10a2 9df9 2170 NR=NR1
0x1097…10a2 LineComalBin {
0x1097…10a2 ptr = 0x9df9 // 0x1097 @0x0
0x1097…10a2 lno = 0x087a // 0x1099 @0x2
0x1097…10a2 at0004 = ╱4e╱N╱ // 0x109b @0x4
0x1097…10a2 at0005 = ╱52╱R╱ // 0x109c @0x5
0x1097…10a2 at0006 = ╱dc╱=╱ // 0x109d @0x6
0x1097…10a2 at0007 = ╱4e╱N╱ // 0x109e @0x7
0x1097…10a2 at0008 = ╱52╱R╱ // 0x109f @0x8
0x1097…10a2 at0009 = ╱31╱1╱ // 0x10a0 @0x9
0x1097…10a2 at000a = EOL // 0x10a1 @0xa
0x1097…10a2 }
0x10a2…10b0 9e07 2180 NR1=NR1 DIV G
0x10a2…10b0 LineComalBin {
0x10a2…10b0 ptr = 0x9e07 // 0x10a2 @0x0
0x10a2…10b0 lno = 0x0884 // 0x10a4 @0x2
0x10a2…10b0 at0004 = ╱4e╱N╱ // 0x10a6 @0x4
0x10a2…10b0 at0005 = ╱52╱R╱ // 0x10a7 @0x5
0x10a2…10b0 at0006 = ╱31╱1╱ // 0x10a8 @0x6
0x10a2…10b0 at0007 = ╱dc╱=╱ // 0x10a9 @0x7
0x10a2…10b0 at0008 = ╱4e╱N╱ // 0x10aa @0x8
0x10a2…10b0 at0009 = ╱52╱R╱ // 0x10ab @0x9
0x10a2…10b0 at000a = ╱31╱1╱ // 0x10ac @0xa
0x10a2…10b0 at000b = ╱e7╱ DIV ╱ // 0x10ad @0xb
0x10a2…10b0 at000c = ╱47╱G╱ // 0x10ae @0xc
0x10a2…10b0 at000d = EOL // 0x10af @0xd
0x10a2…10b0 }
0x10b0…10b6 9e0d 2190 ENDWHILE
0x10b0…10b6 LineComalBin {
0x10b0…10b6 ptr = 0x9e0d // 0x10b0 @0x0
0x10b0…10b6 lno = 0x088e // 0x10b2 @0x2
0x10b0…10b6 at0004 = ╱94╱ ENDWHILE ╱ // 0x10b4 @0x4
0x10b0…10b6 at0005 = EOL // 0x10b5 @0x5
0x10b0…10b6 }
0x10b6…10bc 9e13 2200 ENDIF
0x10b6…10bc LineComalBin {
0x10b6…10bc ptr = 0x9e13 // 0x10b6 @0x0
0x10b6…10bc lno = 0x0898 // 0x10b8 @0x2
0x10b6…10bc at0004 = ╱9b╱ ENDIF ╱ // 0x10ba @0x4
0x10b6…10bc at0005 = EOL // 0x10bb @0x5
0x10b6…10bc }
0x10bc…10c7 9e1e 2210 NNR=NR
0x10bc…10c7 LineComalBin {
0x10bc…10c7 ptr = 0x9e1e // 0x10bc @0x0
0x10bc…10c7 lno = 0x08a2 // 0x10be @0x2
0x10bc…10c7 at0004 = ╱4e╱N╱ // 0x10c0 @0x4
0x10bc…10c7 at0005 = ╱4e╱N╱ // 0x10c1 @0x5
0x10bc…10c7 at0006 = ╱52╱R╱ // 0x10c2 @0x6
0x10bc…10c7 at0007 = ╱dc╱=╱ // 0x10c3 @0x7
0x10bc…10c7 at0008 = ╱4e╱N╱ // 0x10c4 @0x8
0x10bc…10c7 at0009 = ╱52╱R╱ // 0x10c5 @0x9
0x10bc…10c7 at000a = EOL // 0x10c6 @0xa
0x10bc…10c7 }
0x10c7…10d8 9e2f 2220 IF NNR=B THEN AN=AO
0x10c7…10d8 LineComalBin {
0x10c7…10d8 ptr = 0x9e2f // 0x10c7 @0x0
0x10c7…10d8 lno = 0x08ac // 0x10c9 @0x2
0x10c7…10d8 at0004 = ╱82╱ IF ╱ // 0x10cb @0x4
0x10c7…10d8 at0005 = ╱4e╱N╱ // 0x10cc @0x5
0x10c7…10d8 at0006 = ╱4e╱N╱ // 0x10cd @0x6
0x10c7…10d8 at0007 = ╱52╱R╱ // 0x10ce @0x7
0x10c7…10d8 at0008 = ╱dc╱=╱ // 0x10cf @0x8
0x10c7…10d8 at0009 = ╱42╱B╱ // 0x10d0 @0x9
0x10c7…10d8 at000a = ╱b6╱ THEN ╱ // 0x10d1 @0xa
0x10c7…10d8 at000b = ╱41╱A╱ // 0x10d2 @0xb
0x10c7…10d8 at000c = ╱4e╱N╱ // 0x10d3 @0xc
0x10c7…10d8 at000d = ╱dc╱=╱ // 0x10d4 @0xd
0x10c7…10d8 at000e = ╱41╱A╱ // 0x10d5 @0xe
0x10c7…10d8 at000f = ╱4f╱O╱ // 0x10d6 @0xf
0x10c7…10d8 at0010 = EOL // 0x10d7 @0x10
0x10c7…10d8 }
0x10d8…10ea (56,) 9e41 2230 IF AO<=AN AND ONR>B THEN
0x10d8…10ea LineComalBin {
0x10d8…10ea ptr = 0x9e41 // 0x10d8 @0x0
0x10d8…10ea lno = 0x08b6 // 0x10da @0x2
0x10d8…10ea at0004 = ╱9c╱ IF ╱ // 0x10dc @0x4
0x10d8…10ea at0005 = ╱41╱A╱ // 0x10dd @0x5
0x10d8…10ea at0006 = ╱4f╱O╱ // 0x10de @0x6
0x10d8…10ea at0007 = ╱df╱<=╱ // 0x10df @0x7
0x10d8…10ea at0008 = ╱41╱A╱ // 0x10e0 @0x8
0x10d8…10ea at0009 = ╱4e╱N╱ // 0x10e1 @0x9
0x10d8…10ea at000a = ╱da╱ AND ╱ // 0x10e2 @0xa
0x10d8…10ea at000b = ╱4f╱O╱ // 0x10e3 @0xb
0x10d8…10ea at000c = ╱4e╱N╱ // 0x10e4 @0xc
0x10d8…10ea at000d = ╱52╱R╱ // 0x10e5 @0xd
0x10d8…10ea at000e = ╱de╱>╱ // 0x10e6 @0xe
0x10d8…10ea at000f = ╱42╱B╱ // 0x10e7 @0xf
0x10d8…10ea at0010 = ╱b6╱ THEN ╱ // 0x10e8 @0x10
0x10d8…10ea at0011 = EOL // 0x10e9 @0x11
0x10d8…10ea }
0x10ea…1114 9e6b 2240 IF P7$(5:6)>T$(GNR,E:6) THEN
0x10ea…1114 LineComalBin {
0x10ea…1114 ptr = 0x9e6b // 0x10ea @0x0
0x10ea…1114 lno = 0x08c0 // 0x10ec @0x2
0x10ea…1114 at0004 = ╱9c╱ IF ╱ // 0x10ee @0x4
0x10ea…1114 at0005 = ╱50╱P╱ // 0x10ef @0x5
0x10ea…1114 at0006 = ╱37╱7╱ // 0x10f0 @0x6
0x10ea…1114 at0007 = ╱ef╱$╱ // 0x10f1 @0x7
0x10ea…1114 at0008 = ╱ed╱(╱ // 0x10f2 @0x8
0x10ea…1114 at0009 = ╱35╱5╱ // 0x10f3 @0x9
0x10ea…1114 at000a = ╱fe0000a003╱ // 0x10f4 @0xa
0x10ea…1114 at000f = ╱f0╱:╱ // 0x10f9 @0xf
0x10ea…1114 at0010 = ╱36╱6╱ // 0x10fa @0x10
0x10ea…1114 at0011 = ╱fe0000c003╱ // 0x10fb @0x11
0x10ea…1114 at0016 = ╱ee╱)╱ // 0x1100 @0x16
0x10ea…1114 at0017 = ╱de╱>╱ // 0x1101 @0x17
0x10ea…1114 at0018 = ╱54╱T╱ // 0x1102 @0x18
0x10ea…1114 at0019 = ╱ef╱$╱ // 0x1103 @0x19
0x10ea…1114 at001a = ╱ed╱(╱ // 0x1104 @0x1a
0x10ea…1114 at001b = ╱47╱G╱ // 0x1105 @0x1b
0x10ea…1114 at001c = ╱4e╱N╱ // 0x1106 @0x1c
0x10ea…1114 at001d = ╱52╱R╱ // 0x1107 @0x1d
0x10ea…1114 at001e = ╱ec╱,╱ // 0x1108 @0x1e
0x10ea…1114 at001f = ╱45╱E╱ // 0x1109 @0x1f
0x10ea…1114 at0020 = ╱f0╱:╱ // 0x110a @0x20
0x10ea…1114 at0021 = ╱36╱6╱ // 0x110b @0x21
0x10ea…1114 at0022 = ╱fe0000c003╱ // 0x110c @0x22
0x10ea…1114 at0027 = ╱ee╱)╱ // 0x1111 @0x27
0x10ea…1114 at0028 = ╱b6╱ THEN ╱ // 0x1112 @0x28
0x10ea…1114 at0029 = EOL // 0x1113 @0x29
0x10ea…1114 }
0x1114…1128 9e7f 2250 T$(ONR)=T$(GNR)
0x1114…1128 LineComalBin {
0x1114…1128 ptr = 0x9e7f // 0x1114 @0x0
0x1114…1128 lno = 0x08ca // 0x1116 @0x2
0x1114…1128 at0004 = ╱54╱T╱ // 0x1118 @0x4
0x1114…1128 at0005 = ╱ef╱$╱ // 0x1119 @0x5
0x1114…1128 at0006 = ╱ed╱(╱ // 0x111a @0x6
0x1114…1128 at0007 = ╱4f╱O╱ // 0x111b @0x7
0x1114…1128 at0008 = ╱4e╱N╱ // 0x111c @0x8
0x1114…1128 at0009 = ╱52╱R╱ // 0x111d @0x9
0x1114…1128 at000a = ╱ee╱)╱ // 0x111e @0xa
0x1114…1128 at000b = ╱dc╱=╱ // 0x111f @0xb
0x1114…1128 at000c = ╱54╱T╱ // 0x1120 @0xc
0x1114…1128 at000d = ╱ef╱$╱ // 0x1121 @0xd
0x1114…1128 at000e = ╱ed╱(╱ // 0x1122 @0xe
0x1114…1128 at000f = ╱47╱G╱ // 0x1123 @0xf
0x1114…1128 at0010 = ╱4e╱N╱ // 0x1124 @0x10
0x1114…1128 at0011 = ╱52╱R╱ // 0x1125 @0x11
0x1114…1128 at0012 = ╱ee╱)╱ // 0x1126 @0x12
0x1114…1128 at0013 = EOL // 0x1127 @0x13
0x1114…1128 }
0x1128…11a9 9f00 2260 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10)
0x1128…11a9 LineComalBin {
0x1128…11a9 ptr = 0x9f00 // 0x1128 @0x0
0x1128…11a9 lno = 0x08d4 // 0x112a @0x2
0x1128…11a9 at0004 = ╱54╱T╱ // 0x112c @0x4
0x1128…11a9 at0005 = ╱ef╱$╱ // 0x112d @0x5
0x1128…11a9 at0006 = ╱ed╱(╱ // 0x112e @0x6
0x1128…11a9 at0007 = ╱47╱G╱ // 0x112f @0x7
0x1128…11a9 at0008 = ╱4e╱N╱ // 0x1130 @0x8
0x1128…11a9 at0009 = ╱52╱R╱ // 0x1131 @0x9
0x1128…11a9 at000a = ╱ec╱,╱ // 0x1132 @0xa
0x1128…11a9 at000b = ╱45╱E╱ // 0x1133 @0xb
0x1128…11a9 at000c = ╱f0╱:╱ // 0x1134 @0xc
0x1128…11a9 at000d = ╱36╱6╱ // 0x1135 @0xd
0x1128…11a9 at000e = ╱fe0000c003╱ // 0x1136 @0xe
0x1128…11a9 at0013 = ╱ee╱)╱ // 0x113b @0x13
0x1128…11a9 at0014 = ╱dc╱=╱ // 0x113c @0x14
0x1128…11a9 at0015 = ╱50╱P╱ // 0x113d @0x15
0x1128…11a9 at0016 = ╱37╱7╱ // 0x113e @0x16
0x1128…11a9 at0017 = ╱ef╱$╱ // 0x113f @0x17
0x1128…11a9 at0018 = ╱ed╱(╱ // 0x1140 @0x18
0x1128…11a9 at0019 = ╱35╱5╱ // 0x1141 @0x19
0x1128…11a9 at001a = ╱fe0000a003╱ // 0x1142 @0x1a
0x1128…11a9 at001f = ╱f0╱:╱ // 0x1147 @0x1f
0x1128…11a9 at0020 = ╱36╱6╱ // 0x1148 @0x20
0x1128…11a9 at0021 = ╱fe0000c003╱ // 0x1149 @0x21
0x1128…11a9 at0026 = ╱ee╱)╱ // 0x114e @0x26
0x1128…11a9 at0027 = ╱eb╱;╱ // 0x114f @0x27
0x1128…11a9 at0028 = ╱54╱T╱ // 0x1150 @0x28
0x1128…11a9 at0029 = ╱ef╱$╱ // 0x1151 @0x29
0x1128…11a9 at002a = ╱ed╱(╱ // 0x1152 @0x2a
0x1128…11a9 at002b = ╱47╱G╱ // 0x1153 @0x2b
0x1128…11a9 at002c = ╱4e╱N╱ // 0x1154 @0x2c
0x1128…11a9 at002d = ╱52╱R╱ // 0x1155 @0x2d
0x1128…11a9 at002e = ╱ec╱,╱ // 0x1156 @0x2e
0x1128…11a9 at002f = ╱37╱7╱ // 0x1157 @0x2f
0x1128…11a9 at0030 = ╱fe0000e003╱ // 0x1158 @0x30
0x1128…11a9 at0035 = ╱f0╱:╱ // 0x115d @0x35
0x1128…11a9 at0036 = ╱31╱1╱ // 0x115e @0x36
0x1128…11a9 at0037 = ╱30╱0╱ // 0x115f @0x37
0x1128…11a9 at0038 = ╱fe0000a004╱ // 0x1160 @0x38
0x1128…11a9 at003d = ╱ee╱)╱ // 0x1165 @0x3d
0x1128…11a9 at003e = ╱dc╱=╱ // 0x1166 @0x3e
0x1128…11a9 at003f = ╱50╱P╱ // 0x1167 @0x3f
0x1128…11a9 at0040 = ╱37╱7╱ // 0x1168 @0x40
0x1128…11a9 at0041 = ╱ef╱$╱ // 0x1169 @0x41
0x1128…11a9 at0042 = ╱ed╱(╱ // 0x116a @0x42
0x1128…11a9 at0043 = ╱31╱1╱ // 0x116b @0x43
0x1128…11a9 at0044 = ╱31╱1╱ // 0x116c @0x44
0x1128…11a9 at0045 = ╱fe0000b004╱ // 0x116d @0x45
0x1128…11a9 at004a = ╱f0╱:╱ // 0x1172 @0x4a
0x1128…11a9 at004b = ╱31╱1╱ // 0x1173 @0x4b
0x1128…11a9 at004c = ╱30╱0╱ // 0x1174 @0x4c
0x1128…11a9 at004d = ╱fe0000a004╱ // 0x1175 @0x4d
0x1128…11a9 at0052 = ╱ee╱)╱ // 0x117a @0x52
0x1128…11a9 at0053 = ╱eb╱;╱ // 0x117b @0x53
0x1128…11a9 at0054 = ╱54╱T╱ // 0x117c @0x54
0x1128…11a9 at0055 = ╱ef╱$╱ // 0x117d @0x55
0x1128…11a9 at0056 = ╱ed╱(╱ // 0x117e @0x56
0x1128…11a9 at0057 = ╱47╱G╱ // 0x117f @0x57
0x1128…11a9 at0058 = ╱4e╱N╱ // 0x1180 @0x58
0x1128…11a9 at0059 = ╱52╱R╱ // 0x1181 @0x59
0x1128…11a9 at005a = ╱ec╱,╱ // 0x1182 @0x5a
0x1128…11a9 at005b = ╱31╱1╱ // 0x1183 @0x5b
0x1128…11a9 at005c = ╱37╱7╱ // 0x1184 @0x5c
0x1128…11a9 at005d = ╱fe00008805╱ // 0x1185 @0x5d
0x1128…11a9 at0062 = ╱f0╱:╱ // 0x118a @0x62
0x1128…11a9 at0063 = ╱31╱1╱ // 0x118b @0x63
0x1128…11a9 at0064 = ╱30╱0╱ // 0x118c @0x64
0x1128…11a9 at0065 = ╱fe0000a004╱ // 0x118d @0x65
0x1128…11a9 at006a = ╱ee╱)╱ // 0x1192 @0x6a
0x1128…11a9 at006b = ╱dc╱=╱ // 0x1193 @0x6b
0x1128…11a9 at006c = ╱50╱P╱ // 0x1194 @0x6c
0x1128…11a9 at006d = ╱37╱7╱ // 0x1195 @0x6d
0x1128…11a9 at006e = ╱ef╱$╱ // 0x1196 @0x6e
0x1128…11a9 at006f = ╱ed╱(╱ // 0x1197 @0x6f
0x1128…11a9 at0070 = ╱32╱2╱ // 0x1198 @0x70
0x1128…11a9 at0071 = ╱38╱8╱ // 0x1199 @0x71
0x1128…11a9 at0072 = ╱fe0000e005╱ // 0x119a @0x72
0x1128…11a9 at0077 = ╱f0╱:╱ // 0x119f @0x77
0x1128…11a9 at0078 = ╱31╱1╱ // 0x11a0 @0x78
0x1128…11a9 at0079 = ╱30╱0╱ // 0x11a1 @0x79
0x1128…11a9 at007a = ╱fe0000a004╱ // 0x11a2 @0x7a
0x1128…11a9 at007f = ╱ee╱)╱ // 0x11a7 @0x7f
0x1128…11a9 at0080 = EOL // 0x11a8 @0x80
0x1128…11a9 }
0x11a9…122a 9f81 2270 P7$(5:6)=T$(ONR,E:6);P7$(11:10)=T$(ONR,7:10);P7$(28:10)=T$(ONR,17:10)
0x11a9…122a LineComalBin {
0x11a9…122a ptr = 0x9f81 // 0x11a9 @0x0
0x11a9…122a lno = 0x08de // 0x11ab @0x2
0x11a9…122a at0004 = ╱50╱P╱ // 0x11ad @0x4
0x11a9…122a at0005 = ╱37╱7╱ // 0x11ae @0x5
0x11a9…122a at0006 = ╱ef╱$╱ // 0x11af @0x6
0x11a9…122a at0007 = ╱ed╱(╱ // 0x11b0 @0x7
0x11a9…122a at0008 = ╱35╱5╱ // 0x11b1 @0x8
0x11a9…122a at0009 = ╱fe0000a003╱ // 0x11b2 @0x9
0x11a9…122a at000e = ╱f0╱:╱ // 0x11b7 @0xe
0x11a9…122a at000f = ╱36╱6╱ // 0x11b8 @0xf
0x11a9…122a at0010 = ╱fe0000c003╱ // 0x11b9 @0x10
0x11a9…122a at0015 = ╱ee╱)╱ // 0x11be @0x15
0x11a9…122a at0016 = ╱dc╱=╱ // 0x11bf @0x16
0x11a9…122a at0017 = ╱54╱T╱ // 0x11c0 @0x17
0x11a9…122a at0018 = ╱ef╱$╱ // 0x11c1 @0x18
0x11a9…122a at0019 = ╱ed╱(╱ // 0x11c2 @0x19
0x11a9…122a at001a = ╱4f╱O╱ // 0x11c3 @0x1a
0x11a9…122a at001b = ╱4e╱N╱ // 0x11c4 @0x1b
0x11a9…122a at001c = ╱52╱R╱ // 0x11c5 @0x1c
0x11a9…122a at001d = ╱ec╱,╱ // 0x11c6 @0x1d
0x11a9…122a at001e = ╱45╱E╱ // 0x11c7 @0x1e
0x11a9…122a at001f = ╱f0╱:╱ // 0x11c8 @0x1f
0x11a9…122a at0020 = ╱36╱6╱ // 0x11c9 @0x20
0x11a9…122a at0021 = ╱fe0000c003╱ // 0x11ca @0x21
0x11a9…122a at0026 = ╱ee╱)╱ // 0x11cf @0x26
0x11a9…122a at0027 = ╱eb╱;╱ // 0x11d0 @0x27
0x11a9…122a at0028 = ╱50╱P╱ // 0x11d1 @0x28
0x11a9…122a at0029 = ╱37╱7╱ // 0x11d2 @0x29
0x11a9…122a at002a = ╱ef╱$╱ // 0x11d3 @0x2a
0x11a9…122a at002b = ╱ed╱(╱ // 0x11d4 @0x2b
0x11a9…122a at002c = ╱31╱1╱ // 0x11d5 @0x2c
0x11a9…122a at002d = ╱31╱1╱ // 0x11d6 @0x2d
0x11a9…122a at002e = ╱fe0000b004╱ // 0x11d7 @0x2e
0x11a9…122a at0033 = ╱f0╱:╱ // 0x11dc @0x33
0x11a9…122a at0034 = ╱31╱1╱ // 0x11dd @0x34
0x11a9…122a at0035 = ╱30╱0╱ // 0x11de @0x35
0x11a9…122a at0036 = ╱fe0000a004╱ // 0x11df @0x36
0x11a9…122a at003b = ╱ee╱)╱ // 0x11e4 @0x3b
0x11a9…122a at003c = ╱dc╱=╱ // 0x11e5 @0x3c
0x11a9…122a at003d = ╱54╱T╱ // 0x11e6 @0x3d
0x11a9…122a at003e = ╱ef╱$╱ // 0x11e7 @0x3e
0x11a9…122a at003f = ╱ed╱(╱ // 0x11e8 @0x3f
0x11a9…122a at0040 = ╱4f╱O╱ // 0x11e9 @0x40
0x11a9…122a at0041 = ╱4e╱N╱ // 0x11ea @0x41
0x11a9…122a at0042 = ╱52╱R╱ // 0x11eb @0x42
0x11a9…122a at0043 = ╱ec╱,╱ // 0x11ec @0x43
0x11a9…122a at0044 = ╱37╱7╱ // 0x11ed @0x44
0x11a9…122a at0045 = ╱fe0000e003╱ // 0x11ee @0x45
0x11a9…122a at004a = ╱f0╱:╱ // 0x11f3 @0x4a
0x11a9…122a at004b = ╱31╱1╱ // 0x11f4 @0x4b
0x11a9…122a at004c = ╱30╱0╱ // 0x11f5 @0x4c
0x11a9…122a at004d = ╱fe0000a004╱ // 0x11f6 @0x4d
0x11a9…122a at0052 = ╱ee╱)╱ // 0x11fb @0x52
0x11a9…122a at0053 = ╱eb╱;╱ // 0x11fc @0x53
0x11a9…122a at0054 = ╱50╱P╱ // 0x11fd @0x54
0x11a9…122a at0055 = ╱37╱7╱ // 0x11fe @0x55
0x11a9…122a at0056 = ╱ef╱$╱ // 0x11ff @0x56
0x11a9…122a at0057 = ╱ed╱(╱ // 0x1200 @0x57
0x11a9…122a at0058 = ╱32╱2╱ // 0x1201 @0x58
0x11a9…122a at0059 = ╱38╱8╱ // 0x1202 @0x59
0x11a9…122a at005a = ╱fe0000e005╱ // 0x1203 @0x5a
0x11a9…122a at005f = ╱f0╱:╱ // 0x1208 @0x5f
0x11a9…122a at0060 = ╱31╱1╱ // 0x1209 @0x60
0x11a9…122a at0061 = ╱30╱0╱ // 0x120a @0x61
0x11a9…122a at0062 = ╱fe0000a004╱ // 0x120b @0x62
0x11a9…122a at0067 = ╱ee╱)╱ // 0x1210 @0x67
0x11a9…122a at0068 = ╱dc╱=╱ // 0x1211 @0x68
0x11a9…122a at0069 = ╱54╱T╱ // 0x1212 @0x69
0x11a9…122a at006a = ╱ef╱$╱ // 0x1213 @0x6a
0x11a9…122a at006b = ╱ed╱(╱ // 0x1214 @0x6b
0x11a9…122a at006c = ╱4f╱O╱ // 0x1215 @0x6c
0x11a9…122a at006d = ╱4e╱N╱ // 0x1216 @0x6d
0x11a9…122a at006e = ╱52╱R╱ // 0x1217 @0x6e
0x11a9…122a at006f = ╱ec╱,╱ // 0x1218 @0x6f
0x11a9…122a at0070 = ╱31╱1╱ // 0x1219 @0x70
0x11a9…122a at0071 = ╱37╱7╱ // 0x121a @0x71
0x11a9…122a at0072 = ╱fe00008805╱ // 0x121b @0x72
0x11a9…122a at0077 = ╱f0╱:╱ // 0x1220 @0x77
0x11a9…122a at0078 = ╱31╱1╱ // 0x1221 @0x78
0x11a9…122a at0079 = ╱30╱0╱ // 0x1222 @0x79
0x11a9…122a at007a = ╱fe0000a004╱ // 0x1223 @0x7a
0x11a9…122a at007f = ╱ee╱)╱ // 0x1228 @0x7f
0x11a9…122a at0080 = EOL // 0x1229 @0x80
0x11a9…122a }
0x122a…1230 9f87 2280 ENDIF
0x122a…1230 LineComalBin {
0x122a…1230 ptr = 0x9f87 // 0x122a @0x0
0x122a…1230 lno = 0x08e8 // 0x122c @0x2
0x122a…1230 at0004 = ╱9b╱ ENDIF ╱ // 0x122e @0x4
0x122a…1230 at0005 = EOL // 0x122f @0x5
0x122a…1230 }
0x1230…123b 9f92 2290 NR=ONR
0x1230…123b LineComalBin {
0x1230…123b ptr = 0x9f92 // 0x1230 @0x0
0x1230…123b lno = 0x08f2 // 0x1232 @0x2
0x1230…123b at0004 = ╱4e╱N╱ // 0x1234 @0x4
0x1230…123b at0005 = ╱52╱R╱ // 0x1235 @0x5
0x1230…123b at0006 = ╱dc╱=╱ // 0x1236 @0x6
0x1230…123b at0007 = ╱4f╱O╱ // 0x1237 @0x7
0x1230…123b at0008 = ╱4e╱N╱ // 0x1238 @0x8
0x1230…123b at0009 = ╱52╱R╱ // 0x1239 @0x9
0x1230…123b at000a = EOL // 0x123a @0xa
0x1230…123b }
0x123b…1241 9f98 2300 REPEAT
0x123b…1241 LineComalBin {
0x123b…1241 ptr = 0x9f98 // 0x123b @0x0
0x123b…1241 lno = 0x08fc // 0x123d @0x2
0x123b…1241 at0004 = ╱97╱ REPEAT ╱ // 0x123f @0x4
0x123b…1241 at0005 = EOL // 0x1240 @0x5
0x123b…1241 }
0x1241…1247 9f9e 2310 REPEAT
0x1241…1247 LineComalBin {
0x1241…1247 ptr = 0x9f9e // 0x1241 @0x0
0x1241…1247 lno = 0x0906 // 0x1243 @0x2
0x1241…1247 at0004 = ╱97╱ REPEAT ╱ // 0x1245 @0x4
0x1241…1247 at0005 = EOL // 0x1246 @0x5
0x1241…1247 }
0x1247…1254 9fab 2320 EXEC BINPREV
0x1247…1254 LineComalBin {
0x1247…1254 ptr = 0x9fab // 0x1247 @0x0
0x1247…1254 lno = 0x0910 // 0x1249 @0x2
0x1247…1254 at0004 = ╱9d╱ EXEC ╱ // 0x124b @0x4
0x1247…1254 at0005 = ╱42╱B╱ // 0x124c @0x5
0x1247…1254 at0006 = ╱49╱I╱ // 0x124d @0x6
0x1247…1254 at0007 = ╱4e╱N╱ // 0x124e @0x7
0x1247…1254 at0008 = ╱50╱P╱ // 0x124f @0x8
0x1247…1254 at0009 = ╱52╱R╱ // 0x1250 @0x9
0x1247…1254 at000a = ╱45╱E╱ // 0x1251 @0xa
0x1247…1254 at000b = ╱56╱V╱ // 0x1252 @0xb
0x1247…1254 at000c = EOL // 0x1253 @0xc
0x1247…1254 }
0x1254…1272 9fc9 2330 UNTIL T$(NR,E:6)<>" "
0x1254…1272 LineComalBin {
0x1254…1272 ptr = 0x9fc9 // 0x1254 @0x0
0x1254…1272 lno = 0x091a // 0x1256 @0x2
0x1254…1272 at0004 = ╱98╱ UNTIL ╱ // 0x1258 @0x4
0x1254…1272 at0005 = ╱54╱T╱ // 0x1259 @0x5
0x1254…1272 at0006 = ╱ef╱$╱ // 0x125a @0x6
0x1254…1272 at0007 = ╱ed╱(╱ // 0x125b @0x7
0x1254…1272 at0008 = ╱4e╱N╱ // 0x125c @0x8
0x1254…1272 at0009 = ╱52╱R╱ // 0x125d @0x9
0x1254…1272 at000a = ╱ec╱,╱ // 0x125e @0xa
0x1254…1272 at000b = ╱45╱E╱ // 0x125f @0xb
0x1254…1272 at000c = ╱f0╱:╱ // 0x1260 @0xc
0x1254…1272 at000d = ╱36╱6╱ // 0x1261 @0xd
0x1254…1272 at000e = ╱fe0000c003╱ // 0x1262 @0xe
0x1254…1272 at0013 = ╱ee╱)╱ // 0x1267 @0x13
0x1254…1272 at0014 = ╱e1╱<>╱ // 0x1268 @0x14
0x1254…1272 at0015 = ╱22╱"╱ // 0x1269 @0x15
0x1254…1272 at0016 = ╱20╱…╱ // 0x126a @0x16
0x1254…1272 at0017 = ╱20╱…╱ // 0x126b @0x17
0x1254…1272 at0018 = ╱20╱…╱ // 0x126c @0x18
0x1254…1272 at0019 = ╱20╱…╱ // 0x126d @0x19
0x1254…1272 at001a = ╱20╱…╱ // 0x126e @0x1a
0x1254…1272 at001b = ╱20╱…╱ // 0x126f @0x1b
0x1254…1272 at001c = ╱22╱"╱ // 0x1270 @0x1c
0x1254…1272 at001d = EOL // 0x1271 @0x1d
0x1254…1272 }
0x1272…1285 9fdc 2340 T$(ONR)=T$(NR)
0x1272…1285 LineComalBin {
0x1272…1285 ptr = 0x9fdc // 0x1272 @0x0
0x1272…1285 lno = 0x0924 // 0x1274 @0x2
0x1272…1285 at0004 = ╱54╱T╱ // 0x1276 @0x4
0x1272…1285 at0005 = ╱ef╱$╱ // 0x1277 @0x5
0x1272…1285 at0006 = ╱ed╱(╱ // 0x1278 @0x6
0x1272…1285 at0007 = ╱4f╱O╱ // 0x1279 @0x7
0x1272…1285 at0008 = ╱4e╱N╱ // 0x127a @0x8
0x1272…1285 at0009 = ╱52╱R╱ // 0x127b @0x9
0x1272…1285 at000a = ╱ee╱)╱ // 0x127c @0xa
0x1272…1285 at000b = ╱dc╱=╱ // 0x127d @0xb
0x1272…1285 at000c = ╱54╱T╱ // 0x127e @0xc
0x1272…1285 at000d = ╱ef╱$╱ // 0x127f @0xd
0x1272…1285 at000e = ╱ed╱(╱ // 0x1280 @0xe
0x1272…1285 at000f = ╱4e╱N╱ // 0x1281 @0xf
0x1272…1285 at0010 = ╱52╱R╱ // 0x1282 @0x10
0x1272…1285 at0011 = ╱ee╱)╱ // 0x1283 @0x11
0x1272…1285 at0012 = EOL // 0x1284 @0x12
0x1272…1285 }
0x1285…1290 9fe7 2350 ONR=NR
0x1285…1290 LineComalBin {
0x1285…1290 ptr = 0x9fe7 // 0x1285 @0x0
0x1285…1290 lno = 0x092e // 0x1287 @0x2
0x1285…1290 at0004 = ╱4f╱O╱ // 0x1289 @0x4
0x1285…1290 at0005 = ╱4e╱N╱ // 0x128a @0x5
0x1285…1290 at0006 = ╱52╱R╱ // 0x128b @0x6
0x1285…1290 at0007 = ╱dc╱=╱ // 0x128c @0x7
0x1285…1290 at0008 = ╱4e╱N╱ // 0x128d @0x8
0x1285…1290 at0009 = ╱52╱R╱ // 0x128e @0x9
0x1285…1290 at000a = EOL // 0x128f @0xa
0x1285…1290 }
0x1290…129c 9ff3 2360 UNTIL GNR=NR
0x1290…129c LineComalBin {
0x1290…129c ptr = 0x9ff3 // 0x1290 @0x0
0x1290…129c lno = 0x0938 // 0x1292 @0x2
0x1290…129c at0004 = ╱98╱ UNTIL ╱ // 0x1294 @0x4
0x1290…129c at0005 = ╱47╱G╱ // 0x1295 @0x5
0x1290…129c at0006 = ╱4e╱N╱ // 0x1296 @0x6
0x1290…129c at0007 = ╱52╱R╱ // 0x1297 @0x7
0x1290…129c at0008 = ╱dc╱=╱ // 0x1298 @0x8
0x1290…129c at0009 = ╱4e╱N╱ // 0x1299 @0x9
0x1290…129c at000a = ╱52╱R╱ // 0x129a @0xa
0x1290…129c at000b = EOL // 0x129b @0xb
0x1290…129c }
0x129c…131a a071 2370 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10)
0x129c…131a LineComalBin {
0x129c…131a ptr = 0xa071 // 0x129c @0x0
0x129c…131a lno = 0x0942 // 0x129e @0x2
0x129c…131a at0004 = ╱54╱T╱ // 0x12a0 @0x4
0x129c…131a at0005 = ╱ef╱$╱ // 0x12a1 @0x5
0x129c…131a at0006 = ╱ed╱(╱ // 0x12a2 @0x6
0x129c…131a at0007 = ╱4e╱N╱ // 0x12a3 @0x7
0x129c…131a at0008 = ╱52╱R╱ // 0x12a4 @0x8
0x129c…131a at0009 = ╱ec╱,╱ // 0x12a5 @0x9
0x129c…131a at000a = ╱45╱E╱ // 0x12a6 @0xa
0x129c…131a at000b = ╱f0╱:╱ // 0x12a7 @0xb
0x129c…131a at000c = ╱36╱6╱ // 0x12a8 @0xc
0x129c…131a at000d = ╱fe0000c003╱ // 0x12a9 @0xd
0x129c…131a at0012 = ╱ee╱)╱ // 0x12ae @0x12
0x129c…131a at0013 = ╱dc╱=╱ // 0x12af @0x13
0x129c…131a at0014 = ╱50╱P╱ // 0x12b0 @0x14
0x129c…131a at0015 = ╱37╱7╱ // 0x12b1 @0x15
0x129c…131a at0016 = ╱ef╱$╱ // 0x12b2 @0x16
0x129c…131a at0017 = ╱ed╱(╱ // 0x12b3 @0x17
0x129c…131a at0018 = ╱35╱5╱ // 0x12b4 @0x18
0x129c…131a at0019 = ╱fe0000a003╱ // 0x12b5 @0x19
0x129c…131a at001e = ╱f0╱:╱ // 0x12ba @0x1e
0x129c…131a at001f = ╱36╱6╱ // 0x12bb @0x1f
0x129c…131a at0020 = ╱fe0000c003╱ // 0x12bc @0x20
0x129c…131a at0025 = ╱ee╱)╱ // 0x12c1 @0x25
0x129c…131a at0026 = ╱eb╱;╱ // 0x12c2 @0x26
0x129c…131a at0027 = ╱54╱T╱ // 0x12c3 @0x27
0x129c…131a at0028 = ╱ef╱$╱ // 0x12c4 @0x28
0x129c…131a at0029 = ╱ed╱(╱ // 0x12c5 @0x29
0x129c…131a at002a = ╱4e╱N╱ // 0x12c6 @0x2a
0x129c…131a at002b = ╱52╱R╱ // 0x12c7 @0x2b
0x129c…131a at002c = ╱ec╱,╱ // 0x12c8 @0x2c
0x129c…131a at002d = ╱37╱7╱ // 0x12c9 @0x2d
0x129c…131a at002e = ╱fe0000e003╱ // 0x12ca @0x2e
0x129c…131a at0033 = ╱f0╱:╱ // 0x12cf @0x33
0x129c…131a at0034 = ╱31╱1╱ // 0x12d0 @0x34
0x129c…131a at0035 = ╱30╱0╱ // 0x12d1 @0x35
0x129c…131a at0036 = ╱fe0000a004╱ // 0x12d2 @0x36
0x129c…131a at003b = ╱ee╱)╱ // 0x12d7 @0x3b
0x129c…131a at003c = ╱dc╱=╱ // 0x12d8 @0x3c
0x129c…131a at003d = ╱50╱P╱ // 0x12d9 @0x3d
0x129c…131a at003e = ╱37╱7╱ // 0x12da @0x3e
0x129c…131a at003f = ╱ef╱$╱ // 0x12db @0x3f
0x129c…131a at0040 = ╱ed╱(╱ // 0x12dc @0x40
0x129c…131a at0041 = ╱31╱1╱ // 0x12dd @0x41
0x129c…131a at0042 = ╱31╱1╱ // 0x12de @0x42
0x129c…131a at0043 = ╱fe0000b004╱ // 0x12df @0x43
0x129c…131a at0048 = ╱f0╱:╱ // 0x12e4 @0x48
0x129c…131a at0049 = ╱31╱1╱ // 0x12e5 @0x49
0x129c…131a at004a = ╱30╱0╱ // 0x12e6 @0x4a
0x129c…131a at004b = ╱fe0000a004╱ // 0x12e7 @0x4b
0x129c…131a at0050 = ╱ee╱)╱ // 0x12ec @0x50
0x129c…131a at0051 = ╱eb╱;╱ // 0x12ed @0x51
0x129c…131a at0052 = ╱54╱T╱ // 0x12ee @0x52
0x129c…131a at0053 = ╱ef╱$╱ // 0x12ef @0x53
0x129c…131a at0054 = ╱ed╱(╱ // 0x12f0 @0x54
0x129c…131a at0055 = ╱4e╱N╱ // 0x12f1 @0x55
0x129c…131a at0056 = ╱52╱R╱ // 0x12f2 @0x56
0x129c…131a at0057 = ╱ec╱,╱ // 0x12f3 @0x57
0x129c…131a at0058 = ╱31╱1╱ // 0x12f4 @0x58
0x129c…131a at0059 = ╱37╱7╱ // 0x12f5 @0x59
0x129c…131a at005a = ╱fe00008805╱ // 0x12f6 @0x5a
0x129c…131a at005f = ╱f0╱:╱ // 0x12fb @0x5f
0x129c…131a at0060 = ╱31╱1╱ // 0x12fc @0x60
0x129c…131a at0061 = ╱30╱0╱ // 0x12fd @0x61
0x129c…131a at0062 = ╱fe0000a004╱ // 0x12fe @0x62
0x129c…131a at0067 = ╱ee╱)╱ // 0x1303 @0x67
0x129c…131a at0068 = ╱dc╱=╱ // 0x1304 @0x68
0x129c…131a at0069 = ╱50╱P╱ // 0x1305 @0x69
0x129c…131a at006a = ╱37╱7╱ // 0x1306 @0x6a
0x129c…131a at006b = ╱ef╱$╱ // 0x1307 @0x6b
0x129c…131a at006c = ╱ed╱(╱ // 0x1308 @0x6c
0x129c…131a at006d = ╱32╱2╱ // 0x1309 @0x6d
0x129c…131a at006e = ╱38╱8╱ // 0x130a @0x6e
0x129c…131a at006f = ╱fe0000e005╱ // 0x130b @0x6f
0x129c…131a at0074 = ╱f0╱:╱ // 0x1310 @0x74
0x129c…131a at0075 = ╱31╱1╱ // 0x1311 @0x75
0x129c…131a at0076 = ╱30╱0╱ // 0x1312 @0x76
0x129c…131a at0077 = ╱fe0000a004╱ // 0x1313 @0x77
0x129c…131a at007c = ╱ee╱)╱ // 0x1318 @0x7c
0x129c…131a at007d = EOL // 0x1319 @0x7d
0x129c…131a }
0x131a…1320 a077 2380 ELSE
0x131a…1320 LineComalBin {
0x131a…1320 ptr = 0xa077 // 0x131a @0x0
0x131a…1320 lno = 0x094c // 0x131c @0x2
0x131a…1320 at0004 = ╱9a╱ ELSE ╱ // 0x131e @0x4
0x131a…1320 at0005 = EOL // 0x131f @0x5
0x131a…1320 }
0x1320…132d a084 2390 IF NNR=B THEN STOP
0x1320…132d LineComalBin {
0x1320…132d ptr = 0xa084 // 0x1320 @0x0
0x1320…132d lno = 0x0956 // 0x1322 @0x2
0x1320…132d at0004 = ╱82╱ IF ╱ // 0x1324 @0x4
0x1320…132d at0005 = ╱4e╱N╱ // 0x1325 @0x5
0x1320…132d at0006 = ╱4e╱N╱ // 0x1326 @0x6
0x1320…132d at0007 = ╱52╱R╱ // 0x1327 @0x7
0x1320…132d at0008 = ╱dc╱=╱ // 0x1328 @0x8
0x1320…132d at0009 = ╱42╱B╱ // 0x1329 @0x9
0x1320…132d at000a = ╱b6╱ THEN ╱ // 0x132a @0xa
0x1320…132d at000b = ╱8d╱ STOP ╱ // 0x132b @0xb
0x1320…132d at000c = EOL // 0x132c @0xc
0x1320…132d }
0x132d…1357 a0ae 2400 IF P7$(5:6)<T$(GNR,E:6) THEN
0x132d…1357 LineComalBin {
0x132d…1357 ptr = 0xa0ae // 0x132d @0x0
0x132d…1357 lno = 0x0960 // 0x132f @0x2
0x132d…1357 at0004 = ╱9c╱ IF ╱ // 0x1331 @0x4
0x132d…1357 at0005 = ╱50╱P╱ // 0x1332 @0x5
0x132d…1357 at0006 = ╱37╱7╱ // 0x1333 @0x6
0x132d…1357 at0007 = ╱ef╱$╱ // 0x1334 @0x7
0x132d…1357 at0008 = ╱ed╱(╱ // 0x1335 @0x8
0x132d…1357 at0009 = ╱35╱5╱ // 0x1336 @0x9
0x132d…1357 at000a = ╱fe0000a003╱ // 0x1337 @0xa
0x132d…1357 at000f = ╱f0╱:╱ // 0x133c @0xf
0x132d…1357 at0010 = ╱36╱6╱ // 0x133d @0x10
0x132d…1357 at0011 = ╱fe0000c003╱ // 0x133e @0x11
0x132d…1357 at0016 = ╱ee╱)╱ // 0x1343 @0x16
0x132d…1357 at0017 = ╱dd╱<╱ // 0x1344 @0x17
0x132d…1357 at0018 = ╱54╱T╱ // 0x1345 @0x18
0x132d…1357 at0019 = ╱ef╱$╱ // 0x1346 @0x19
0x132d…1357 at001a = ╱ed╱(╱ // 0x1347 @0x1a
0x132d…1357 at001b = ╱47╱G╱ // 0x1348 @0x1b
0x132d…1357 at001c = ╱4e╱N╱ // 0x1349 @0x1c
0x132d…1357 at001d = ╱52╱R╱ // 0x134a @0x1d
0x132d…1357 at001e = ╱ec╱,╱ // 0x134b @0x1e
0x132d…1357 at001f = ╱45╱E╱ // 0x134c @0x1f
0x132d…1357 at0020 = ╱f0╱:╱ // 0x134d @0x20
0x132d…1357 at0021 = ╱36╱6╱ // 0x134e @0x21
0x132d…1357 at0022 = ╱fe0000c003╱ // 0x134f @0x22
0x132d…1357 at0027 = ╱ee╱)╱ // 0x1354 @0x27
0x132d…1357 at0028 = ╱b6╱ THEN ╱ // 0x1355 @0x28
0x132d…1357 at0029 = EOL // 0x1356 @0x29
0x132d…1357 }
0x1357…136b a0c2 2410 T$(NNR)=T$(GNR)
0x1357…136b LineComalBin {
0x1357…136b ptr = 0xa0c2 // 0x1357 @0x0
0x1357…136b lno = 0x096a // 0x1359 @0x2
0x1357…136b at0004 = ╱54╱T╱ // 0x135b @0x4
0x1357…136b at0005 = ╱ef╱$╱ // 0x135c @0x5
0x1357…136b at0006 = ╱ed╱(╱ // 0x135d @0x6
0x1357…136b at0007 = ╱4e╱N╱ // 0x135e @0x7
0x1357…136b at0008 = ╱4e╱N╱ // 0x135f @0x8
0x1357…136b at0009 = ╱52╱R╱ // 0x1360 @0x9
0x1357…136b at000a = ╱ee╱)╱ // 0x1361 @0xa
0x1357…136b at000b = ╱dc╱=╱ // 0x1362 @0xb
0x1357…136b at000c = ╱54╱T╱ // 0x1363 @0xc
0x1357…136b at000d = ╱ef╱$╱ // 0x1364 @0xd
0x1357…136b at000e = ╱ed╱(╱ // 0x1365 @0xe
0x1357…136b at000f = ╱47╱G╱ // 0x1366 @0xf
0x1357…136b at0010 = ╱4e╱N╱ // 0x1367 @0x10
0x1357…136b at0011 = ╱52╱R╱ // 0x1368 @0x11
0x1357…136b at0012 = ╱ee╱)╱ // 0x1369 @0x12
0x1357…136b at0013 = EOL // 0x136a @0x13
0x1357…136b }
0x136b…13ec a143 2420 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10)
0x136b…13ec LineComalBin {
0x136b…13ec ptr = 0xa143 // 0x136b @0x0
0x136b…13ec lno = 0x0974 // 0x136d @0x2
0x136b…13ec at0004 = ╱54╱T╱ // 0x136f @0x4
0x136b…13ec at0005 = ╱ef╱$╱ // 0x1370 @0x5
0x136b…13ec at0006 = ╱ed╱(╱ // 0x1371 @0x6
0x136b…13ec at0007 = ╱47╱G╱ // 0x1372 @0x7
0x136b…13ec at0008 = ╱4e╱N╱ // 0x1373 @0x8
0x136b…13ec at0009 = ╱52╱R╱ // 0x1374 @0x9
0x136b…13ec at000a = ╱ec╱,╱ // 0x1375 @0xa
0x136b…13ec at000b = ╱45╱E╱ // 0x1376 @0xb
0x136b…13ec at000c = ╱f0╱:╱ // 0x1377 @0xc
0x136b…13ec at000d = ╱36╱6╱ // 0x1378 @0xd
0x136b…13ec at000e = ╱fe0000c003╱ // 0x1379 @0xe
0x136b…13ec at0013 = ╱ee╱)╱ // 0x137e @0x13
0x136b…13ec at0014 = ╱dc╱=╱ // 0x137f @0x14
0x136b…13ec at0015 = ╱50╱P╱ // 0x1380 @0x15
0x136b…13ec at0016 = ╱37╱7╱ // 0x1381 @0x16
0x136b…13ec at0017 = ╱ef╱$╱ // 0x1382 @0x17
0x136b…13ec at0018 = ╱ed╱(╱ // 0x1383 @0x18
0x136b…13ec at0019 = ╱35╱5╱ // 0x1384 @0x19
0x136b…13ec at001a = ╱fe0000a003╱ // 0x1385 @0x1a
0x136b…13ec at001f = ╱f0╱:╱ // 0x138a @0x1f
0x136b…13ec at0020 = ╱36╱6╱ // 0x138b @0x20
0x136b…13ec at0021 = ╱fe0000c003╱ // 0x138c @0x21
0x136b…13ec at0026 = ╱ee╱)╱ // 0x1391 @0x26
0x136b…13ec at0027 = ╱eb╱;╱ // 0x1392 @0x27
0x136b…13ec at0028 = ╱54╱T╱ // 0x1393 @0x28
0x136b…13ec at0029 = ╱ef╱$╱ // 0x1394 @0x29
0x136b…13ec at002a = ╱ed╱(╱ // 0x1395 @0x2a
0x136b…13ec at002b = ╱47╱G╱ // 0x1396 @0x2b
0x136b…13ec at002c = ╱4e╱N╱ // 0x1397 @0x2c
0x136b…13ec at002d = ╱52╱R╱ // 0x1398 @0x2d
0x136b…13ec at002e = ╱ec╱,╱ // 0x1399 @0x2e
0x136b…13ec at002f = ╱37╱7╱ // 0x139a @0x2f
0x136b…13ec at0030 = ╱fe0000e003╱ // 0x139b @0x30
0x136b…13ec at0035 = ╱f0╱:╱ // 0x13a0 @0x35
0x136b…13ec at0036 = ╱31╱1╱ // 0x13a1 @0x36
0x136b…13ec at0037 = ╱30╱0╱ // 0x13a2 @0x37
0x136b…13ec at0038 = ╱fe0000a004╱ // 0x13a3 @0x38
0x136b…13ec at003d = ╱ee╱)╱ // 0x13a8 @0x3d
0x136b…13ec at003e = ╱dc╱=╱ // 0x13a9 @0x3e
0x136b…13ec at003f = ╱50╱P╱ // 0x13aa @0x3f
0x136b…13ec at0040 = ╱37╱7╱ // 0x13ab @0x40
0x136b…13ec at0041 = ╱ef╱$╱ // 0x13ac @0x41
0x136b…13ec at0042 = ╱ed╱(╱ // 0x13ad @0x42
0x136b…13ec at0043 = ╱31╱1╱ // 0x13ae @0x43
0x136b…13ec at0044 = ╱31╱1╱ // 0x13af @0x44
0x136b…13ec at0045 = ╱fe0000b004╱ // 0x13b0 @0x45
0x136b…13ec at004a = ╱f0╱:╱ // 0x13b5 @0x4a
0x136b…13ec at004b = ╱31╱1╱ // 0x13b6 @0x4b
0x136b…13ec at004c = ╱30╱0╱ // 0x13b7 @0x4c
0x136b…13ec at004d = ╱fe0000a004╱ // 0x13b8 @0x4d
0x136b…13ec at0052 = ╱ee╱)╱ // 0x13bd @0x52
0x136b…13ec at0053 = ╱eb╱;╱ // 0x13be @0x53
0x136b…13ec at0054 = ╱54╱T╱ // 0x13bf @0x54
0x136b…13ec at0055 = ╱ef╱$╱ // 0x13c0 @0x55
0x136b…13ec at0056 = ╱ed╱(╱ // 0x13c1 @0x56
0x136b…13ec at0057 = ╱47╱G╱ // 0x13c2 @0x57
0x136b…13ec at0058 = ╱4e╱N╱ // 0x13c3 @0x58
0x136b…13ec at0059 = ╱52╱R╱ // 0x13c4 @0x59
0x136b…13ec at005a = ╱ec╱,╱ // 0x13c5 @0x5a
0x136b…13ec at005b = ╱31╱1╱ // 0x13c6 @0x5b
0x136b…13ec at005c = ╱37╱7╱ // 0x13c7 @0x5c
0x136b…13ec at005d = ╱fe00008805╱ // 0x13c8 @0x5d
0x136b…13ec at0062 = ╱f0╱:╱ // 0x13cd @0x62
0x136b…13ec at0063 = ╱31╱1╱ // 0x13ce @0x63
0x136b…13ec at0064 = ╱30╱0╱ // 0x13cf @0x64
0x136b…13ec at0065 = ╱fe0000a004╱ // 0x13d0 @0x65
0x136b…13ec at006a = ╱ee╱)╱ // 0x13d5 @0x6a
0x136b…13ec at006b = ╱dc╱=╱ // 0x13d6 @0x6b
0x136b…13ec at006c = ╱50╱P╱ // 0x13d7 @0x6c
0x136b…13ec at006d = ╱37╱7╱ // 0x13d8 @0x6d
0x136b…13ec at006e = ╱ef╱$╱ // 0x13d9 @0x6e
0x136b…13ec at006f = ╱ed╱(╱ // 0x13da @0x6f
0x136b…13ec at0070 = ╱32╱2╱ // 0x13db @0x70
0x136b…13ec at0071 = ╱38╱8╱ // 0x13dc @0x71
0x136b…13ec at0072 = ╱fe0000e005╱ // 0x13dd @0x72
0x136b…13ec at0077 = ╱f0╱:╱ // 0x13e2 @0x77
0x136b…13ec at0078 = ╱31╱1╱ // 0x13e3 @0x78
0x136b…13ec at0079 = ╱30╱0╱ // 0x13e4 @0x79
0x136b…13ec at007a = ╱fe0000a004╱ // 0x13e5 @0x7a
0x136b…13ec at007f = ╱ee╱)╱ // 0x13ea @0x7f
0x136b…13ec at0080 = EOL // 0x13eb @0x80
0x136b…13ec }
0x13ec…146d a1c4 2430 P7$(5:6)=T$(NNR,E:6);P7$(11:10)=T$(NNR,7:10);P7$(28:10)=T$(NNR,17:10)
0x13ec…146d LineComalBin {
0x13ec…146d ptr = 0xa1c4 // 0x13ec @0x0
0x13ec…146d lno = 0x097e // 0x13ee @0x2
0x13ec…146d at0004 = ╱50╱P╱ // 0x13f0 @0x4
0x13ec…146d at0005 = ╱37╱7╱ // 0x13f1 @0x5
0x13ec…146d at0006 = ╱ef╱$╱ // 0x13f2 @0x6
0x13ec…146d at0007 = ╱ed╱(╱ // 0x13f3 @0x7
0x13ec…146d at0008 = ╱35╱5╱ // 0x13f4 @0x8
0x13ec…146d at0009 = ╱fe0000a003╱ // 0x13f5 @0x9
0x13ec…146d at000e = ╱f0╱:╱ // 0x13fa @0xe
0x13ec…146d at000f = ╱36╱6╱ // 0x13fb @0xf
0x13ec…146d at0010 = ╱fe0000c003╱ // 0x13fc @0x10
0x13ec…146d at0015 = ╱ee╱)╱ // 0x1401 @0x15
0x13ec…146d at0016 = ╱dc╱=╱ // 0x1402 @0x16
0x13ec…146d at0017 = ╱54╱T╱ // 0x1403 @0x17
0x13ec…146d at0018 = ╱ef╱$╱ // 0x1404 @0x18
0x13ec…146d at0019 = ╱ed╱(╱ // 0x1405 @0x19
0x13ec…146d at001a = ╱4e╱N╱ // 0x1406 @0x1a
0x13ec…146d at001b = ╱4e╱N╱ // 0x1407 @0x1b
0x13ec…146d at001c = ╱52╱R╱ // 0x1408 @0x1c
0x13ec…146d at001d = ╱ec╱,╱ // 0x1409 @0x1d
0x13ec…146d at001e = ╱45╱E╱ // 0x140a @0x1e
0x13ec…146d at001f = ╱f0╱:╱ // 0x140b @0x1f
0x13ec…146d at0020 = ╱36╱6╱ // 0x140c @0x20
0x13ec…146d at0021 = ╱fe0000c003╱ // 0x140d @0x21
0x13ec…146d at0026 = ╱ee╱)╱ // 0x1412 @0x26
0x13ec…146d at0027 = ╱eb╱;╱ // 0x1413 @0x27
0x13ec…146d at0028 = ╱50╱P╱ // 0x1414 @0x28
0x13ec…146d at0029 = ╱37╱7╱ // 0x1415 @0x29
0x13ec…146d at002a = ╱ef╱$╱ // 0x1416 @0x2a
0x13ec…146d at002b = ╱ed╱(╱ // 0x1417 @0x2b
0x13ec…146d at002c = ╱31╱1╱ // 0x1418 @0x2c
0x13ec…146d at002d = ╱31╱1╱ // 0x1419 @0x2d
0x13ec…146d at002e = ╱fe0000b004╱ // 0x141a @0x2e
0x13ec…146d at0033 = ╱f0╱:╱ // 0x141f @0x33
0x13ec…146d at0034 = ╱31╱1╱ // 0x1420 @0x34
0x13ec…146d at0035 = ╱30╱0╱ // 0x1421 @0x35
0x13ec…146d at0036 = ╱fe0000a004╱ // 0x1422 @0x36
0x13ec…146d at003b = ╱ee╱)╱ // 0x1427 @0x3b
0x13ec…146d at003c = ╱dc╱=╱ // 0x1428 @0x3c
0x13ec…146d at003d = ╱54╱T╱ // 0x1429 @0x3d
0x13ec…146d at003e = ╱ef╱$╱ // 0x142a @0x3e
0x13ec…146d at003f = ╱ed╱(╱ // 0x142b @0x3f
0x13ec…146d at0040 = ╱4e╱N╱ // 0x142c @0x40
0x13ec…146d at0041 = ╱4e╱N╱ // 0x142d @0x41
0x13ec…146d at0042 = ╱52╱R╱ // 0x142e @0x42
0x13ec…146d at0043 = ╱ec╱,╱ // 0x142f @0x43
0x13ec…146d at0044 = ╱37╱7╱ // 0x1430 @0x44
0x13ec…146d at0045 = ╱fe0000e003╱ // 0x1431 @0x45
0x13ec…146d at004a = ╱f0╱:╱ // 0x1436 @0x4a
0x13ec…146d at004b = ╱31╱1╱ // 0x1437 @0x4b
0x13ec…146d at004c = ╱30╱0╱ // 0x1438 @0x4c
0x13ec…146d at004d = ╱fe0000a004╱ // 0x1439 @0x4d
0x13ec…146d at0052 = ╱ee╱)╱ // 0x143e @0x52
0x13ec…146d at0053 = ╱eb╱;╱ // 0x143f @0x53
0x13ec…146d at0054 = ╱50╱P╱ // 0x1440 @0x54
0x13ec…146d at0055 = ╱37╱7╱ // 0x1441 @0x55
0x13ec…146d at0056 = ╱ef╱$╱ // 0x1442 @0x56
0x13ec…146d at0057 = ╱ed╱(╱ // 0x1443 @0x57
0x13ec…146d at0058 = ╱32╱2╱ // 0x1444 @0x58
0x13ec…146d at0059 = ╱38╱8╱ // 0x1445 @0x59
0x13ec…146d at005a = ╱fe0000e005╱ // 0x1446 @0x5a
0x13ec…146d at005f = ╱f0╱:╱ // 0x144b @0x5f
0x13ec…146d at0060 = ╱31╱1╱ // 0x144c @0x60
0x13ec…146d at0061 = ╱30╱0╱ // 0x144d @0x61
0x13ec…146d at0062 = ╱fe0000a004╱ // 0x144e @0x62
0x13ec…146d at0067 = ╱ee╱)╱ // 0x1453 @0x67
0x13ec…146d at0068 = ╱dc╱=╱ // 0x1454 @0x68
0x13ec…146d at0069 = ╱54╱T╱ // 0x1455 @0x69
0x13ec…146d at006a = ╱ef╱$╱ // 0x1456 @0x6a
0x13ec…146d at006b = ╱ed╱(╱ // 0x1457 @0x6b
0x13ec…146d at006c = ╱4e╱N╱ // 0x1458 @0x6c
0x13ec…146d at006d = ╱4e╱N╱ // 0x1459 @0x6d
0x13ec…146d at006e = ╱52╱R╱ // 0x145a @0x6e
0x13ec…146d at006f = ╱ec╱,╱ // 0x145b @0x6f
0x13ec…146d at0070 = ╱31╱1╱ // 0x145c @0x70
0x13ec…146d at0071 = ╱37╱7╱ // 0x145d @0x71
0x13ec…146d at0072 = ╱fe00008805╱ // 0x145e @0x72
0x13ec…146d at0077 = ╱f0╱:╱ // 0x1463 @0x77
0x13ec…146d at0078 = ╱31╱1╱ // 0x1464 @0x78
0x13ec…146d at0079 = ╱30╱0╱ // 0x1465 @0x79
0x13ec…146d at007a = ╱fe0000a004╱ // 0x1466 @0x7a
0x13ec…146d at007f = ╱ee╱)╱ // 0x146b @0x7f
0x13ec…146d at0080 = EOL // 0x146c @0x80
0x13ec…146d }
0x146d…1473 a1ca 2440 ENDIF
0x146d…1473 LineComalBin {
0x146d…1473 ptr = 0xa1ca // 0x146d @0x0
0x146d…1473 lno = 0x0988 // 0x146f @0x2
0x146d…1473 at0004 = ╱9b╱ ENDIF ╱ // 0x1471 @0x4
0x146d…1473 at0005 = EOL // 0x1472 @0x5
0x146d…1473 }
0x1473…147e a1d5 2450 NR=NNR
0x1473…147e LineComalBin {
0x1473…147e ptr = 0xa1d5 // 0x1473 @0x0
0x1473…147e lno = 0x0992 // 0x1475 @0x2
0x1473…147e at0004 = ╱4e╱N╱ // 0x1477 @0x4
0x1473…147e at0005 = ╱52╱R╱ // 0x1478 @0x5
0x1473…147e at0006 = ╱dc╱=╱ // 0x1479 @0x6
0x1473…147e at0007 = ╱4e╱N╱ // 0x147a @0x7
0x1473…147e at0008 = ╱4e╱N╱ // 0x147b @0x8
0x1473…147e at0009 = ╱52╱R╱ // 0x147c @0x9
0x1473…147e at000a = EOL // 0x147d @0xa
0x1473…147e }
0x147e…1484 a1db 2460 REPEAT
0x147e…1484 LineComalBin {
0x147e…1484 ptr = 0xa1db // 0x147e @0x0
0x147e…1484 lno = 0x099c // 0x1480 @0x2
0x147e…1484 at0004 = ╱97╱ REPEAT ╱ // 0x1482 @0x4
0x147e…1484 at0005 = EOL // 0x1483 @0x5
0x147e…1484 }
0x1484…148a a1e1 2470 REPEAT
0x1484…148a LineComalBin {
0x1484…148a ptr = 0xa1e1 // 0x1484 @0x0
0x1484…148a lno = 0x09a6 // 0x1486 @0x2
0x1484…148a at0004 = ╱97╱ REPEAT ╱ // 0x1488 @0x4
0x1484…148a at0005 = EOL // 0x1489 @0x5
0x1484…148a }
0x148a…1497 a1ee 2480 EXEC BINNEXT
0x148a…1497 LineComalBin {
0x148a…1497 ptr = 0xa1ee // 0x148a @0x0
0x148a…1497 lno = 0x09b0 // 0x148c @0x2
0x148a…1497 at0004 = ╱9d╱ EXEC ╱ // 0x148e @0x4
0x148a…1497 at0005 = ╱42╱B╱ // 0x148f @0x5
0x148a…1497 at0006 = ╱49╱I╱ // 0x1490 @0x6
0x148a…1497 at0007 = ╱4e╱N╱ // 0x1491 @0x7
0x148a…1497 at0008 = ╱4e╱N╱ // 0x1492 @0x8
0x148a…1497 at0009 = ╱45╱E╱ // 0x1493 @0x9
0x148a…1497 at000a = ╱58╱X╱ // 0x1494 @0xa
0x148a…1497 at000b = ╱54╱T╱ // 0x1495 @0xb
0x148a…1497 at000c = EOL // 0x1496 @0xc
0x148a…1497 }
0x1497…14b5 a20c 2490 UNTIL T$(NR,E:6)<>" "
0x1497…14b5 LineComalBin {
0x1497…14b5 ptr = 0xa20c // 0x1497 @0x0
0x1497…14b5 lno = 0x09ba // 0x1499 @0x2
0x1497…14b5 at0004 = ╱98╱ UNTIL ╱ // 0x149b @0x4
0x1497…14b5 at0005 = ╱54╱T╱ // 0x149c @0x5
0x1497…14b5 at0006 = ╱ef╱$╱ // 0x149d @0x6
0x1497…14b5 at0007 = ╱ed╱(╱ // 0x149e @0x7
0x1497…14b5 at0008 = ╱4e╱N╱ // 0x149f @0x8
0x1497…14b5 at0009 = ╱52╱R╱ // 0x14a0 @0x9
0x1497…14b5 at000a = ╱ec╱,╱ // 0x14a1 @0xa
0x1497…14b5 at000b = ╱45╱E╱ // 0x14a2 @0xb
0x1497…14b5 at000c = ╱f0╱:╱ // 0x14a3 @0xc
0x1497…14b5 at000d = ╱36╱6╱ // 0x14a4 @0xd
0x1497…14b5 at000e = ╱fe0000c003╱ // 0x14a5 @0xe
0x1497…14b5 at0013 = ╱ee╱)╱ // 0x14aa @0x13
0x1497…14b5 at0014 = ╱e1╱<>╱ // 0x14ab @0x14
0x1497…14b5 at0015 = ╱22╱"╱ // 0x14ac @0x15
0x1497…14b5 at0016 = ╱20╱…╱ // 0x14ad @0x16
0x1497…14b5 at0017 = ╱20╱…╱ // 0x14ae @0x17
0x1497…14b5 at0018 = ╱20╱…╱ // 0x14af @0x18
0x1497…14b5 at0019 = ╱20╱…╱ // 0x14b0 @0x19
0x1497…14b5 at001a = ╱20╱…╱ // 0x14b1 @0x1a
0x1497…14b5 at001b = ╱20╱…╱ // 0x14b2 @0x1b
0x1497…14b5 at001c = ╱22╱"╱ // 0x14b3 @0x1c
0x1497…14b5 at001d = EOL // 0x14b4 @0x1d
0x1497…14b5 }
0x14b5…14c8 a21f 2500 T$(NNR)=T$(NR)
0x14b5…14c8 LineComalBin {
0x14b5…14c8 ptr = 0xa21f // 0x14b5 @0x0
0x14b5…14c8 lno = 0x09c4 // 0x14b7 @0x2
0x14b5…14c8 at0004 = ╱54╱T╱ // 0x14b9 @0x4
0x14b5…14c8 at0005 = ╱ef╱$╱ // 0x14ba @0x5
0x14b5…14c8 at0006 = ╱ed╱(╱ // 0x14bb @0x6
0x14b5…14c8 at0007 = ╱4e╱N╱ // 0x14bc @0x7
0x14b5…14c8 at0008 = ╱4e╱N╱ // 0x14bd @0x8
0x14b5…14c8 at0009 = ╱52╱R╱ // 0x14be @0x9
0x14b5…14c8 at000a = ╱ee╱)╱ // 0x14bf @0xa
0x14b5…14c8 at000b = ╱dc╱=╱ // 0x14c0 @0xb
0x14b5…14c8 at000c = ╱54╱T╱ // 0x14c1 @0xc
0x14b5…14c8 at000d = ╱ef╱$╱ // 0x14c2 @0xd
0x14b5…14c8 at000e = ╱ed╱(╱ // 0x14c3 @0xe
0x14b5…14c8 at000f = ╱4e╱N╱ // 0x14c4 @0xf
0x14b5…14c8 at0010 = ╱52╱R╱ // 0x14c5 @0x10
0x14b5…14c8 at0011 = ╱ee╱)╱ // 0x14c6 @0x11
0x14b5…14c8 at0012 = EOL // 0x14c7 @0x12
0x14b5…14c8 }
0x14c8…14d3 a22a 2510 NNR=NR
0x14c8…14d3 LineComalBin {
0x14c8…14d3 ptr = 0xa22a // 0x14c8 @0x0
0x14c8…14d3 lno = 0x09ce // 0x14ca @0x2
0x14c8…14d3 at0004 = ╱4e╱N╱ // 0x14cc @0x4
0x14c8…14d3 at0005 = ╱4e╱N╱ // 0x14cd @0x5
0x14c8…14d3 at0006 = ╱52╱R╱ // 0x14ce @0x6
0x14c8…14d3 at0007 = ╱dc╱=╱ // 0x14cf @0x7
0x14c8…14d3 at0008 = ╱4e╱N╱ // 0x14d0 @0x8
0x14c8…14d3 at0009 = ╱52╱R╱ // 0x14d1 @0x9
0x14c8…14d3 at000a = EOL // 0x14d2 @0xa
0x14c8…14d3 }
0x14d3…14df a236 2520 UNTIL GNR=NR
0x14d3…14df LineComalBin {
0x14d3…14df ptr = 0xa236 // 0x14d3 @0x0
0x14d3…14df lno = 0x09d8 // 0x14d5 @0x2
0x14d3…14df at0004 = ╱98╱ UNTIL ╱ // 0x14d7 @0x4
0x14d3…14df at0005 = ╱47╱G╱ // 0x14d8 @0x5
0x14d3…14df at0006 = ╱4e╱N╱ // 0x14d9 @0x6
0x14d3…14df at0007 = ╱52╱R╱ // 0x14da @0x7
0x14d3…14df at0008 = ╱dc╱=╱ // 0x14db @0x8
0x14d3…14df at0009 = ╱4e╱N╱ // 0x14dc @0x9
0x14d3…14df at000a = ╱52╱R╱ // 0x14dd @0xa
0x14d3…14df at000b = EOL // 0x14de @0xb
0x14d3…14df }
0x14df…155d a2b4 2530 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10)
0x14df…155d LineComalBin {
0x14df…155d ptr = 0xa2b4 // 0x14df @0x0
0x14df…155d lno = 0x09e2 // 0x14e1 @0x2
0x14df…155d at0004 = ╱54╱T╱ // 0x14e3 @0x4
0x14df…155d at0005 = ╱ef╱$╱ // 0x14e4 @0x5
0x14df…155d at0006 = ╱ed╱(╱ // 0x14e5 @0x6
0x14df…155d at0007 = ╱4e╱N╱ // 0x14e6 @0x7
0x14df…155d at0008 = ╱52╱R╱ // 0x14e7 @0x8
0x14df…155d at0009 = ╱ec╱,╱ // 0x14e8 @0x9
0x14df…155d at000a = ╱45╱E╱ // 0x14e9 @0xa
0x14df…155d at000b = ╱f0╱:╱ // 0x14ea @0xb
0x14df…155d at000c = ╱36╱6╱ // 0x14eb @0xc
0x14df…155d at000d = ╱fe0000c003╱ // 0x14ec @0xd
0x14df…155d at0012 = ╱ee╱)╱ // 0x14f1 @0x12
0x14df…155d at0013 = ╱dc╱=╱ // 0x14f2 @0x13
0x14df…155d at0014 = ╱50╱P╱ // 0x14f3 @0x14
0x14df…155d at0015 = ╱37╱7╱ // 0x14f4 @0x15
0x14df…155d at0016 = ╱ef╱$╱ // 0x14f5 @0x16
0x14df…155d at0017 = ╱ed╱(╱ // 0x14f6 @0x17
0x14df…155d at0018 = ╱35╱5╱ // 0x14f7 @0x18
0x14df…155d at0019 = ╱fe0000a003╱ // 0x14f8 @0x19
0x14df…155d at001e = ╱f0╱:╱ // 0x14fd @0x1e
0x14df…155d at001f = ╱36╱6╱ // 0x14fe @0x1f
0x14df…155d at0020 = ╱fe0000c003╱ // 0x14ff @0x20
0x14df…155d at0025 = ╱ee╱)╱ // 0x1504 @0x25
0x14df…155d at0026 = ╱eb╱;╱ // 0x1505 @0x26
0x14df…155d at0027 = ╱54╱T╱ // 0x1506 @0x27
0x14df…155d at0028 = ╱ef╱$╱ // 0x1507 @0x28
0x14df…155d at0029 = ╱ed╱(╱ // 0x1508 @0x29
0x14df…155d at002a = ╱4e╱N╱ // 0x1509 @0x2a
0x14df…155d at002b = ╱52╱R╱ // 0x150a @0x2b
0x14df…155d at002c = ╱ec╱,╱ // 0x150b @0x2c
0x14df…155d at002d = ╱37╱7╱ // 0x150c @0x2d
0x14df…155d at002e = ╱fe0000e003╱ // 0x150d @0x2e
0x14df…155d at0033 = ╱f0╱:╱ // 0x1512 @0x33
0x14df…155d at0034 = ╱31╱1╱ // 0x1513 @0x34
0x14df…155d at0035 = ╱30╱0╱ // 0x1514 @0x35
0x14df…155d at0036 = ╱fe0000a004╱ // 0x1515 @0x36
0x14df…155d at003b = ╱ee╱)╱ // 0x151a @0x3b
0x14df…155d at003c = ╱dc╱=╱ // 0x151b @0x3c
0x14df…155d at003d = ╱50╱P╱ // 0x151c @0x3d
0x14df…155d at003e = ╱37╱7╱ // 0x151d @0x3e
0x14df…155d at003f = ╱ef╱$╱ // 0x151e @0x3f
0x14df…155d at0040 = ╱ed╱(╱ // 0x151f @0x40
0x14df…155d at0041 = ╱31╱1╱ // 0x1520 @0x41
0x14df…155d at0042 = ╱31╱1╱ // 0x1521 @0x42
0x14df…155d at0043 = ╱fe0000b004╱ // 0x1522 @0x43
0x14df…155d at0048 = ╱f0╱:╱ // 0x1527 @0x48
0x14df…155d at0049 = ╱31╱1╱ // 0x1528 @0x49
0x14df…155d at004a = ╱30╱0╱ // 0x1529 @0x4a
0x14df…155d at004b = ╱fe0000a004╱ // 0x152a @0x4b
0x14df…155d at0050 = ╱ee╱)╱ // 0x152f @0x50
0x14df…155d at0051 = ╱eb╱;╱ // 0x1530 @0x51
0x14df…155d at0052 = ╱54╱T╱ // 0x1531 @0x52
0x14df…155d at0053 = ╱ef╱$╱ // 0x1532 @0x53
0x14df…155d at0054 = ╱ed╱(╱ // 0x1533 @0x54
0x14df…155d at0055 = ╱4e╱N╱ // 0x1534 @0x55
0x14df…155d at0056 = ╱52╱R╱ // 0x1535 @0x56
0x14df…155d at0057 = ╱ec╱,╱ // 0x1536 @0x57
0x14df…155d at0058 = ╱31╱1╱ // 0x1537 @0x58
0x14df…155d at0059 = ╱37╱7╱ // 0x1538 @0x59
0x14df…155d at005a = ╱fe00008805╱ // 0x1539 @0x5a
0x14df…155d at005f = ╱f0╱:╱ // 0x153e @0x5f
0x14df…155d at0060 = ╱31╱1╱ // 0x153f @0x60
0x14df…155d at0061 = ╱30╱0╱ // 0x1540 @0x61
0x14df…155d at0062 = ╱fe0000a004╱ // 0x1541 @0x62
0x14df…155d at0067 = ╱ee╱)╱ // 0x1546 @0x67
0x14df…155d at0068 = ╱dc╱=╱ // 0x1547 @0x68
0x14df…155d at0069 = ╱50╱P╱ // 0x1548 @0x69
0x14df…155d at006a = ╱37╱7╱ // 0x1549 @0x6a
0x14df…155d at006b = ╱ef╱$╱ // 0x154a @0x6b
0x14df…155d at006c = ╱ed╱(╱ // 0x154b @0x6c
0x14df…155d at006d = ╱32╱2╱ // 0x154c @0x6d
0x14df…155d at006e = ╱38╱8╱ // 0x154d @0x6e
0x14df…155d at006f = ╱fe0000e005╱ // 0x154e @0x6f
0x14df…155d at0074 = ╱f0╱:╱ // 0x1553 @0x74
0x14df…155d at0075 = ╱31╱1╱ // 0x1554 @0x75
0x14df…155d at0076 = ╱30╱0╱ // 0x1555 @0x76
0x14df…155d at0077 = ╱fe0000a004╱ // 0x1556 @0x77
0x14df…155d at007c = ╱ee╱)╱ // 0x155b @0x7c
0x14df…155d at007d = EOL // 0x155c @0x7d
0x14df…155d }
0x155d…1563 a2ba 2540 ENDIF
0x155d…1563 LineComalBin {
0x155d…1563 ptr = 0xa2ba // 0x155d @0x0
0x155d…1563 lno = 0x09ec // 0x155f @0x2
0x155d…1563 at0004 = ╱9b╱ ENDIF ╱ // 0x1561 @0x4
0x155d…1563 at0005 = EOL // 0x1562 @0x5
0x155d…1563 }
0x1563…1571 a2c8 2550 NRP=NRP+E
0x1563…1571 LineComalBin {
0x1563…1571 ptr = 0xa2c8 // 0x1563 @0x0
0x1563…1571 lno = 0x09f6 // 0x1565 @0x2
0x1563…1571 at0004 = ╱4e╱N╱ // 0x1567 @0x4
0x1563…1571 at0005 = ╱52╱R╱ // 0x1568 @0x5
0x1563…1571 at0006 = ╱50╱P╱ // 0x1569 @0x6
0x1563…1571 at0007 = ╱dc╱=╱ // 0x156a @0x7
0x1563…1571 at0008 = ╱4e╱N╱ // 0x156b @0x8
0x1563…1571 at0009 = ╱52╱R╱ // 0x156c @0x9
0x1563…1571 at000a = ╱50╱P╱ // 0x156d @0xa
0x1563…1571 at000b = ╱e2╱+╱ // 0x156e @0xb
0x1563…1571 at000c = ╱45╱E╱ // 0x156f @0xc
0x1563…1571 at000d = EOL // 0x1570 @0xd
0x1563…1571 }
0x1571…157a a2d1 2560 NR=B
0x1571…157a LineComalBin {
0x1571…157a ptr = 0xa2d1 // 0x1571 @0x0
0x1571…157a lno = 0x0a00 // 0x1573 @0x2
0x1571…157a at0004 = ╱4e╱N╱ // 0x1575 @0x4
0x1571…157a at0005 = ╱52╱R╱ // 0x1576 @0x5
0x1571…157a at0006 = ╱dc╱=╱ // 0x1577 @0x6
0x1571…157a at0007 = ╱42╱B╱ // 0x1578 @0x7
0x1571…157a at0008 = EOL // 0x1579 @0x8
0x1571…157a }
0x157a…1580 a2d7 2570 ENDIF
0x157a…1580 LineComalBin {
0x157a…1580 ptr = 0xa2d7 // 0x157a @0x0
0x157a…1580 lno = 0x0a0a // 0x157c @0x2
0x157a…1580 at0004 = ╱9b╱ ENDIF ╱ // 0x157e @0x4
0x157a…1580 at0005 = EOL // 0x157f @0x5
0x157a…1580 }
0x1580…1586 a2dd 2580 ENDIF
0x1580…1586 LineComalBin {
0x1580…1586 ptr = 0xa2dd // 0x1580 @0x0
0x1580…1586 lno = 0x0a14 // 0x1582 @0x2
0x1580…1586 at0004 = ╱9b╱ ENDIF ╱ // 0x1584 @0x4
0x1580…1586 at0005 = EOL // 0x1585 @0x5
0x1580…1586 }
0x1586…158c a2e3 2590 ENDIF
0x1586…158c LineComalBin {
0x1586…158c ptr = 0xa2e3 // 0x1586 @0x0
0x1586…158c lno = 0x0a1e // 0x1588 @0x2
0x1586…158c at0004 = ╱9b╱ ENDIF ╱ // 0x158a @0x4
0x1586…158c at0005 = EOL // 0x158b @0x5
0x1586…158c }
0x158c…159d a2f4 2600 IF P7$(E)="2" THEN
0x158c…159d LineComalBin {
0x158c…159d ptr = 0xa2f4 // 0x158c @0x0
0x158c…159d lno = 0x0a28 // 0x158e @0x2
0x158c…159d at0004 = ╱9c╱ IF ╱ // 0x1590 @0x4
0x158c…159d at0005 = ╱50╱P╱ // 0x1591 @0x5
0x158c…159d at0006 = ╱37╱7╱ // 0x1592 @0x6
0x158c…159d at0007 = ╱ef╱$╱ // 0x1593 @0x7
0x158c…159d at0008 = ╱ed╱(╱ // 0x1594 @0x8
0x158c…159d at0009 = ╱45╱E╱ // 0x1595 @0x9
0x158c…159d at000a = ╱ee╱)╱ // 0x1596 @0xa
0x158c…159d at000b = ╱dc╱=╱ // 0x1597 @0xb
0x158c…159d at000c = ╱22╱"╱ // 0x1598 @0xc
0x158c…159d at000d = ╱32╱2╱ // 0x1599 @0xd
0x158c…159d at000e = ╱22╱"╱ // 0x159a @0xe
0x158c…159d at000f = ╱b6╱ THEN ╱ // 0x159b @0xf
0x158c…159d at0010 = EOL // 0x159c @0x10
0x158c…159d }
0x159d…15ac a303 2610 P7$(E)="3"
0x159d…15ac LineComalBin {
0x159d…15ac ptr = 0xa303 // 0x159d @0x0
0x159d…15ac lno = 0x0a32 // 0x159f @0x2
0x159d…15ac at0004 = ╱50╱P╱ // 0x15a1 @0x4
0x159d…15ac at0005 = ╱37╱7╱ // 0x15a2 @0x5
0x159d…15ac at0006 = ╱ef╱$╱ // 0x15a3 @0x6
0x159d…15ac at0007 = ╱ed╱(╱ // 0x15a4 @0x7
0x159d…15ac at0008 = ╱45╱E╱ // 0x15a5 @0x8
0x159d…15ac at0009 = ╱ee╱)╱ // 0x15a6 @0x9
0x159d…15ac at000a = ╱dc╱=╱ // 0x15a7 @0xa
0x159d…15ac at000b = ╱22╱"╱ // 0x15a8 @0xb
0x159d…15ac at000c = ╱33╱3╱ // 0x15a9 @0xc
0x159d…15ac at000d = ╱22╱"╱ // 0x15aa @0xd
0x159d…15ac at000e = EOL // 0x15ab @0xe
0x159d…15ac }
0x15ac…15bd a314 2620 PUT FIL$,IT:P7$
0x15ac…15bd LineComalBin {
0x15ac…15bd ptr = 0xa314 // 0x15ac @0x0
0x15ac…15bd lno = 0x0a3c // 0x15ae @0x2
0x15ac…15bd at0004 = ╱aa╱ PUT ╱ // 0x15b0 @0x4
0x15ac…15bd at0005 = ╱46╱F╱ // 0x15b1 @0x5
0x15ac…15bd at0006 = ╱49╱I╱ // 0x15b2 @0x6
0x15ac…15bd at0007 = ╱4c╱L╱ // 0x15b3 @0x7
0x15ac…15bd at0008 = ╱ef╱$╱ // 0x15b4 @0x8
0x15ac…15bd at0009 = ╱ec╱,╱ // 0x15b5 @0x9
0x15ac…15bd at000a = ╱49╱I╱ // 0x15b6 @0xa
0x15ac…15bd at000b = ╱54╱T╱ // 0x15b7 @0xb
0x15ac…15bd at000c = ╱f0╱:╱ // 0x15b8 @0xc
0x15ac…15bd at000d = ╱50╱P╱ // 0x15b9 @0xd
0x15ac…15bd at000e = ╱37╱7╱ // 0x15ba @0xe
0x15ac…15bd at000f = ╱ef╱$╱ // 0x15bb @0xf
0x15ac…15bd at0010 = EOL // 0x15bc @0x10
0x15ac…15bd }
0x15bd…15c3 a31a 2630 ENDIF
0x15bd…15c3 LineComalBin {
0x15bd…15c3 ptr = 0xa31a // 0x15bd @0x0
0x15bd…15c3 lno = 0x0a46 // 0x15bf @0x2
0x15bd…15c3 at0004 = ╱9b╱ ENDIF ╱ // 0x15c1 @0x4
0x15bd…15c3 at0005 = EOL // 0x15c2 @0x5
0x15bd…15c3 }
0x15c3…15cf a326 2640 IT=IT+E
0x15c3…15cf LineComalBin {
0x15c3…15cf ptr = 0xa326 // 0x15c3 @0x0
0x15c3…15cf lno = 0x0a50 // 0x15c5 @0x2
0x15c3…15cf at0004 = ╱49╱I╱ // 0x15c7 @0x4
0x15c3…15cf at0005 = ╱54╱T╱ // 0x15c8 @0x5
0x15c3…15cf at0006 = ╱dc╱=╱ // 0x15c9 @0x6
0x15c3…15cf at0007 = ╱49╱I╱ // 0x15ca @0x7
0x15c3…15cf at0008 = ╱54╱T╱ // 0x15cb @0x8
0x15c3…15cf at0009 = ╱e2╱+╱ // 0x15cc @0x9
0x15c3…15cf at000a = ╱45╱E╱ // 0x15cd @0xa
0x15c3…15cf at000b = EOL // 0x15ce @0xb
0x15c3…15cf }
0x15cf…15e0 a337 2650 GET FIL$,IT:P7$
0x15cf…15e0 LineComalBin {
0x15cf…15e0 ptr = 0xa337 // 0x15cf @0x0
0x15cf…15e0 lno = 0x0a5a // 0x15d1 @0x2
0x15cf…15e0 at0004 = ╱a9╱ GET ╱ // 0x15d3 @0x4
0x15cf…15e0 at0005 = ╱46╱F╱ // 0x15d4 @0x5
0x15cf…15e0 at0006 = ╱49╱I╱ // 0x15d5 @0x6
0x15cf…15e0 at0007 = ╱4c╱L╱ // 0x15d6 @0x7
0x15cf…15e0 at0008 = ╱ef╱$╱ // 0x15d7 @0x8
0x15cf…15e0 at0009 = ╱ec╱,╱ // 0x15d8 @0x9
0x15cf…15e0 at000a = ╱49╱I╱ // 0x15d9 @0xa
0x15cf…15e0 at000b = ╱54╱T╱ // 0x15da @0xb
0x15cf…15e0 at000c = ╱f0╱:╱ // 0x15db @0xc
0x15cf…15e0 at000d = ╱50╱P╱ // 0x15dc @0xd
0x15cf…15e0 at000e = ╱37╱7╱ // 0x15dd @0xe
0x15cf…15e0 at000f = ╱ef╱$╱ // 0x15de @0xf
0x15cf…15e0 at0010 = EOL // 0x15df @0x10
0x15cf…15e0 }
0x15e0…15e6 a33d 2660 ENDWHILE
0x15e0…15e6 LineComalBin {
0x15e0…15e6 ptr = 0xa33d // 0x15e0 @0x0
0x15e0…15e6 lno = 0x0a64 // 0x15e2 @0x2
0x15e0…15e6 at0004 = ╱94╱ ENDWHILE ╱ // 0x15e4 @0x4
0x15e0…15e6 at0005 = EOL // 0x15e5 @0x5
0x15e0…15e6 }
0x15e6…15ec a343 2670 ENDIF
0x15e6…15ec LineComalBin {
0x15e6…15ec ptr = 0xa343 // 0x15e6 @0x0
0x15e6…15ec lno = 0x0a6e // 0x15e8 @0x2
0x15e6…15ec at0004 = ╱9b╱ ENDIF ╱ // 0x15ea @0x4
0x15e6…15ec at0005 = EOL // 0x15eb @0x5
0x15e6…15ec }
0x15ec…15f7 a34e 2680 EXEC NÆSTE
0x15ec…15f7 LineComalBin {
0x15ec…15f7 ptr = 0xa34e // 0x15ec @0x0
0x15ec…15f7 lno = 0x0a78 // 0x15ee @0x2
0x15ec…15f7 at0004 = ╱9d╱ EXEC ╱ // 0x15f0 @0x4
0x15ec…15f7 at0005 = ╱4e╱N╱ // 0x15f1 @0x5
0x15ec…15f7 at0006 = ╱5b╱Æ╱ // 0x15f2 @0x6
0x15ec…15f7 at0007 = ╱53╱S╱ // 0x15f3 @0x7
0x15ec…15f7 at0008 = ╱54╱T╱ // 0x15f4 @0x8
0x15ec…15f7 at0009 = ╱45╱E╱ // 0x15f5 @0x9
0x15ec…15f7 at000a = EOL // 0x15f6 @0xa
0x15ec…15f7 }
0x15f7…15fd a354 2690 ENDWHILE
0x15f7…15fd LineComalBin {
0x15f7…15fd ptr = 0xa354 // 0x15f7 @0x0
0x15f7…15fd lno = 0x0a82 // 0x15f9 @0x2
0x15f7…15fd at0004 = ╱94╱ ENDWHILE ╱ // 0x15fb @0x4
0x15f7…15fd at0005 = EOL // 0x15fc @0x5
0x15f7…15fd }
0x15fd…1604 a35b 2700 OUTPUT P
0x15fd…1604 LineComalBin {
0x15fd…1604 ptr = 0xa35b // 0x15fd @0x0
0x15fd…1604 lno = 0x0a8c // 0x15ff @0x2
0x15fd…1604 at0004 = ╱a5╱ OUTPUT ╱ // 0x1601 @0x4
0x15fd…1604 at0005 = ╱50╱P╱ // 0x1602 @0x5
0x15fd…1604 at0006 = EOL // 0x1603 @0x6
0x15fd…1604 }
0x1604…1614 a36b 2710 SID,LINIE=B
0x1604…1614 LineComalBin {
0x1604…1614 ptr = 0xa36b // 0x1604 @0x0
0x1604…1614 lno = 0x0a96 // 0x1606 @0x2
0x1604…1614 at0004 = ╱53╱S╱ // 0x1608 @0x4
0x1604…1614 at0005 = ╱49╱I╱ // 0x1609 @0x5
0x1604…1614 at0006 = ╱44╱D╱ // 0x160a @0x6
0x1604…1614 at0007 = ╱ec╱,╱ // 0x160b @0x7
0x1604…1614 at0008 = ╱4c╱L╱ // 0x160c @0x8
0x1604…1614 at0009 = ╱49╱I╱ // 0x160d @0x9
0x1604…1614 at000a = ╱4e╱N╱ // 0x160e @0xa
0x1604…1614 at000b = ╱49╱I╱ // 0x160f @0xb
0x1604…1614 at000c = ╱45╱E╱ // 0x1610 @0xc
0x1604…1614 at000d = ╱dc╱=╱ // 0x1611 @0xd
0x1604…1614 at000e = ╱42╱B╱ // 0x1612 @0xe
0x1604…1614 at000f = EOL // 0x1613 @0xf
0x1604…1614 }
0x1614…161e a375 2720 EXEC HEAD
0x1614…161e LineComalBin {
0x1614…161e ptr = 0xa375 // 0x1614 @0x0
0x1614…161e lno = 0x0aa0 // 0x1616 @0x2
0x1614…161e at0004 = ╱9d╱ EXEC ╱ // 0x1618 @0x4
0x1614…161e at0005 = ╱48╱H╱ // 0x1619 @0x5
0x1614…161e at0006 = ╱45╱E╱ // 0x161a @0x6
0x1614…161e at0007 = ╱41╱A╱ // 0x161b @0x7
0x1614…161e at0008 = ╱44╱D╱ // 0x161c @0x8
0x1614…161e at0009 = EOL // 0x161d @0x9
0x1614…161e }
0x161e…1635 a38c 2730 NR=E;LINIE=LINIE+G
0x161e…1635 LineComalBin {
0x161e…1635 ptr = 0xa38c // 0x161e @0x0
0x161e…1635 lno = 0x0aaa // 0x1620 @0x2
0x161e…1635 at0004 = ╱4e╱N╱ // 0x1622 @0x4
0x161e…1635 at0005 = ╱52╱R╱ // 0x1623 @0x5
0x161e…1635 at0006 = ╱dc╱=╱ // 0x1624 @0x6
0x161e…1635 at0007 = ╱45╱E╱ // 0x1625 @0x7
0x161e…1635 at0008 = ╱eb╱;╱ // 0x1626 @0x8
0x161e…1635 at0009 = ╱4c╱L╱ // 0x1627 @0x9
0x161e…1635 at000a = ╱49╱I╱ // 0x1628 @0xa
0x161e…1635 at000b = ╱4e╱N╱ // 0x1629 @0xb
0x161e…1635 at000c = ╱49╱I╱ // 0x162a @0xc
0x161e…1635 at000d = ╱45╱E╱ // 0x162b @0xd
0x161e…1635 at000e = ╱dc╱=╱ // 0x162c @0xe
0x161e…1635 at000f = ╱4c╱L╱ // 0x162d @0xf
0x161e…1635 at0010 = ╱49╱I╱ // 0x162e @0x10
0x161e…1635 at0011 = ╱4e╱N╱ // 0x162f @0x11
0x161e…1635 at0012 = ╱49╱I╱ // 0x1630 @0x12
0x161e…1635 at0013 = ╱45╱E╱ // 0x1631 @0x13
0x161e…1635 at0014 = ╱e2╱+╱ // 0x1632 @0x14
0x161e…1635 at0015 = ╱47╱G╱ // 0x1633 @0x15
0x161e…1635 at0016 = EOL // 0x1634 @0x16
0x161e…1635 }
0x1635…166d a3c4 2740 PRINT "Totalt indlæst ";EN$(E,11),BE$(V,11)
0x1635…166d LineComalBin {
0x1635…166d ptr = 0xa3c4 // 0x1635 @0x0
0x1635…166d lno = 0x0ab4 // 0x1637 @0x2
0x1635…166d at0004 = ╱92╱ PRINT ╱ // 0x1639 @0x4
0x1635…166d at0005 = ╱22╱"╱ // 0x163a @0x5
0x1635…166d at0006 = ╱54╱T╱ // 0x163b @0x6
0x1635…166d at0007 = ╱6f╱o╱ // 0x163c @0x7
0x1635…166d at0008 = ╱74╱t╱ // 0x163d @0x8
0x1635…166d at0009 = ╱61╱a╱ // 0x163e @0x9
0x1635…166d at000a = ╱6c╱l╱ // 0x163f @0xa
0x1635…166d at000b = ╱74╱t╱ // 0x1640 @0xb
0x1635…166d at000c = ╱20╱…╱ // 0x1641 @0xc
0x1635…166d at000d = ╱69╱i╱ // 0x1642 @0xd
0x1635…166d at000e = ╱6e╱n╱ // 0x1643 @0xe
0x1635…166d at000f = ╱64╱d╱ // 0x1644 @0xf
0x1635…166d at0010 = ╱6c╱l╱ // 0x1645 @0x10
0x1635…166d at0011 = ╱7b╱æ╱ // 0x1646 @0x11
0x1635…166d at0012 = ╱73╱s╱ // 0x1647 @0x12
0x1635…166d at0013 = ╱74╱t╱ // 0x1648 @0x13
0x1635…166d at0014 = ╱20╱…╱ // 0x1649 @0x14
0x1635…166d at0015 = ╱20╱…╱ // 0x164a @0x15
0x1635…166d at0016 = ╱20╱…╱ // 0x164b @0x16
0x1635…166d at0017 = ╱20╱…╱ // 0x164c @0x17
0x1635…166d at0018 = ╱22╱"╱ // 0x164d @0x18
0x1635…166d at0019 = ╱eb╱;╱ // 0x164e @0x19
0x1635…166d at001a = ╱45╱E╱ // 0x164f @0x1a
0x1635…166d at001b = ╱4e╱N╱ // 0x1650 @0x1b
0x1635…166d at001c = ╱ef╱$╱ // 0x1651 @0x1c
0x1635…166d at001d = ╱ed╱(╱ // 0x1652 @0x1d
0x1635…166d at001e = ╱45╱E╱ // 0x1653 @0x1e
0x1635…166d at001f = ╱ec╱,╱ // 0x1654 @0x1f
0x1635…166d at0020 = ╱31╱1╱ // 0x1655 @0x20
0x1635…166d at0021 = ╱31╱1╱ // 0x1656 @0x21
0x1635…166d at0022 = ╱fe0000b004╱ // 0x1657 @0x22
0x1635…166d at0027 = ╱ee╱)╱ // 0x165c @0x27
0x1635…166d at0028 = ╱ec╱,╱ // 0x165d @0x28
0x1635…166d at0029 = ╱42╱B╱ // 0x165e @0x29
0x1635…166d at002a = ╱45╱E╱ // 0x165f @0x2a
0x1635…166d at002b = ╱ef╱$╱ // 0x1660 @0x2b
0x1635…166d at002c = ╱ed╱(╱ // 0x1661 @0x2c
0x1635…166d at002d = ╱56╱V╱ // 0x1662 @0x2d
0x1635…166d at002e = ╱ec╱,╱ // 0x1663 @0x2e
0x1635…166d at002f = ╱31╱1╱ // 0x1664 @0x2f
0x1635…166d at0030 = ╱31╱1╱ // 0x1665 @0x30
0x1635…166d at0031 = ╱fe0000b004╱ // 0x1666 @0x31
0x1635…166d at0036 = ╱ee╱)╱ // 0x166b @0x36
0x1635…166d at0037 = EOL // 0x166c @0x37
0x1635…166d }
0x166d…167a a3d1 2750 EN$="0+"
0x166d…167a LineComalBin {
0x166d…167a ptr = 0xa3d1 // 0x166d @0x0
0x166d…167a lno = 0x0abe // 0x166f @0x2
0x166d…167a at0004 = ╱45╱E╱ // 0x1671 @0x4
0x166d…167a at0005 = ╱4e╱N╱ // 0x1672 @0x5
0x166d…167a at0006 = ╱ef╱$╱ // 0x1673 @0x6
0x166d…167a at0007 = ╱dc╱=╱ // 0x1674 @0x7
0x166d…167a at0008 = ╱22╱"╱ // 0x1675 @0x8
0x166d…167a at0009 = ╱30╱0╱ // 0x1676 @0x9
0x166d…167a at000a = ╱2b╱+╱ // 0x1677 @0xa
0x166d…167a at000b = ╱22╱"╱ // 0x1678 @0xb
0x166d…167a at000c = EOL // 0x1679 @0xc
0x166d…167a }
0x167a…16b0 a407 2760 BE$=EN$;GRUPEN$=EN$;GRUPBEL$=EN$;GRUPPE$=" "
0x167a…16b0 LineComalBin {
0x167a…16b0 ptr = 0xa407 // 0x167a @0x0
0x167a…16b0 lno = 0x0ac8 // 0x167c @0x2
0x167a…16b0 at0004 = ╱42╱B╱ // 0x167e @0x4
0x167a…16b0 at0005 = ╱45╱E╱ // 0x167f @0x5
0x167a…16b0 at0006 = ╱ef╱$╱ // 0x1680 @0x6
0x167a…16b0 at0007 = ╱dc╱=╱ // 0x1681 @0x7
0x167a…16b0 at0008 = ╱45╱E╱ // 0x1682 @0x8
0x167a…16b0 at0009 = ╱4e╱N╱ // 0x1683 @0x9
0x167a…16b0 at000a = ╱ef╱$╱ // 0x1684 @0xa
0x167a…16b0 at000b = ╱eb╱;╱ // 0x1685 @0xb
0x167a…16b0 at000c = ╱47╱G╱ // 0x1686 @0xc
0x167a…16b0 at000d = ╱52╱R╱ // 0x1687 @0xd
0x167a…16b0 at000e = ╱55╱U╱ // 0x1688 @0xe
0x167a…16b0 at000f = ╱50╱P╱ // 0x1689 @0xf
0x167a…16b0 at0010 = ╱45╱E╱ // 0x168a @0x10
0x167a…16b0 at0011 = ╱4e╱N╱ // 0x168b @0x11
0x167a…16b0 at0012 = ╱ef╱$╱ // 0x168c @0x12
0x167a…16b0 at0013 = ╱dc╱=╱ // 0x168d @0x13
0x167a…16b0 at0014 = ╱45╱E╱ // 0x168e @0x14
0x167a…16b0 at0015 = ╱4e╱N╱ // 0x168f @0x15
0x167a…16b0 at0016 = ╱ef╱$╱ // 0x1690 @0x16
0x167a…16b0 at0017 = ╱eb╱;╱ // 0x1691 @0x17
0x167a…16b0 at0018 = ╱47╱G╱ // 0x1692 @0x18
0x167a…16b0 at0019 = ╱52╱R╱ // 0x1693 @0x19
0x167a…16b0 at001a = ╱55╱U╱ // 0x1694 @0x1a
0x167a…16b0 at001b = ╱50╱P╱ // 0x1695 @0x1b
0x167a…16b0 at001c = ╱42╱B╱ // 0x1696 @0x1c
0x167a…16b0 at001d = ╱45╱E╱ // 0x1697 @0x1d
0x167a…16b0 at001e = ╱4c╱L╱ // 0x1698 @0x1e
0x167a…16b0 at001f = ╱ef╱$╱ // 0x1699 @0x1f
0x167a…16b0 at0020 = ╱dc╱=╱ // 0x169a @0x20
0x167a…16b0 at0021 = ╱45╱E╱ // 0x169b @0x21
0x167a…16b0 at0022 = ╱4e╱N╱ // 0x169c @0x22
0x167a…16b0 at0023 = ╱ef╱$╱ // 0x169d @0x23
0x167a…16b0 at0024 = ╱eb╱;╱ // 0x169e @0x24
0x167a…16b0 at0025 = ╱47╱G╱ // 0x169f @0x25
0x167a…16b0 at0026 = ╱52╱R╱ // 0x16a0 @0x26
0x167a…16b0 at0027 = ╱55╱U╱ // 0x16a1 @0x27
0x167a…16b0 at0028 = ╱50╱P╱ // 0x16a2 @0x28
0x167a…16b0 at0029 = ╱50╱P╱ // 0x16a3 @0x29
0x167a…16b0 at002a = ╱45╱E╱ // 0x16a4 @0x2a
0x167a…16b0 at002b = ╱ef╱$╱ // 0x16a5 @0x2b
0x167a…16b0 at002c = ╱dc╱=╱ // 0x16a6 @0x2c
0x167a…16b0 at002d = ╱22╱"╱ // 0x16a7 @0x2d
0x167a…16b0 at002e = ╱20╱…╱ // 0x16a8 @0x2e
0x167a…16b0 at002f = ╱20╱…╱ // 0x16a9 @0x2f
0x167a…16b0 at0030 = ╱20╱…╱ // 0x16aa @0x30
0x167a…16b0 at0031 = ╱20╱…╱ // 0x16ab @0x31
0x167a…16b0 at0032 = ╱20╱…╱ // 0x16ac @0x32
0x167a…16b0 at0033 = ╱20╱…╱ // 0x16ad @0x33
0x167a…16b0 at0034 = ╱22╱"╱ // 0x16ae @0x34
0x167a…16b0 at0035 = EOL // 0x16af @0x35
0x167a…16b0 }
0x16b0…16b6 a40d 2770 PRINT
0x16b0…16b6 LineComalBin {
0x16b0…16b6 ptr = 0xa40d // 0x16b0 @0x0
0x16b0…16b6 lno = 0x0ad2 // 0x16b2 @0x2
0x16b0…16b6 at0004 = ╱92╱ PRINT ╱ // 0x16b4 @0x4
0x16b0…16b6 at0005 = EOL // 0x16b5 @0x5
0x16b0…16b6 }
0x16b6…16c4 a41b 2780 EXEC TRAVERSE
0x16b6…16c4 LineComalBin {
0x16b6…16c4 ptr = 0xa41b // 0x16b6 @0x0
0x16b6…16c4 lno = 0x0adc // 0x16b8 @0x2
0x16b6…16c4 at0004 = ╱9d╱ EXEC ╱ // 0x16ba @0x4
0x16b6…16c4 at0005 = ╱54╱T╱ // 0x16bb @0x5
0x16b6…16c4 at0006 = ╱52╱R╱ // 0x16bc @0x6
0x16b6…16c4 at0007 = ╱41╱A╱ // 0x16bd @0x7
0x16b6…16c4 at0008 = ╱56╱V╱ // 0x16be @0x8
0x16b6…16c4 at0009 = ╱45╱E╱ // 0x16bf @0x9
0x16b6…16c4 at000a = ╱52╱R╱ // 0x16c0 @0xa
0x16b6…16c4 at000b = ╱53╱S╱ // 0x16c1 @0xb
0x16b6…16c4 at000c = ╱45╱E╱ // 0x16c2 @0xc
0x16b6…16c4 at000d = EOL // 0x16c3 @0xd
0x16b6…16c4 }
0x16c4…16e6 a43d 2782 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$)
0x16c4…16e6 LineComalBin {
0x16c4…16e6 ptr = 0xa43d // 0x16c4 @0x0
0x16c4…16e6 lno = 0x0ade // 0x16c6 @0x2
0x16c4…16e6 at0004 = ╱9d╱ EXEC ╱ // 0x16c8 @0x4
0x16c4…16e6 at0005 = ╱43╱C╱ // 0x16c9 @0x5
0x16c4…16e6 at0006 = ╱41╱A╱ // 0x16ca @0x6
0x16c4…16e6 at0007 = ╱4c╱L╱ // 0x16cb @0x7
0x16c4…16e6 at0008 = ╱43╱C╱ // 0x16cc @0x8
0x16c4…16e6 at0009 = ╱ed╱(╱ // 0x16cd @0x9
0x16c4…16e6 at000a = ╱47╱G╱ // 0x16ce @0xa
0x16c4…16e6 at000b = ╱ec╱,╱ // 0x16cf @0xb
0x16c4…16e6 at000c = ╱50╱P╱ // 0x16d0 @0xc
0x16c4…16e6 at000d = ╱43╱C╱ // 0x16d1 @0xd
0x16c4…16e6 at000e = ╱54╱T╱ // 0x16d2 @0xe
0x16c4…16e6 at000f = ╱ef╱$╱ // 0x16d3 @0xf
0x16c4…16e6 at0010 = ╱ec╱,╱ // 0x16d4 @0x10
0x16c4…16e6 at0011 = ╱47╱G╱ // 0x16d5 @0x11
0x16c4…16e6 at0012 = ╱52╱R╱ // 0x16d6 @0x12
0x16c4…16e6 at0013 = ╱55╱U╱ // 0x16d7 @0x13
0x16c4…16e6 at0014 = ╱50╱P╱ // 0x16d8 @0x14
0x16c4…16e6 at0015 = ╱42╱B╱ // 0x16d9 @0x15
0x16c4…16e6 at0016 = ╱45╱E╱ // 0x16da @0x16
0x16c4…16e6 at0017 = ╱4c╱L╱ // 0x16db @0x17
0x16c4…16e6 at0018 = ╱ef╱$╱ // 0x16dc @0x18
0x16c4…16e6 at0019 = ╱ec╱,╱ // 0x16dd @0x19
0x16c4…16e6 at001a = ╱52╱R╱ // 0x16de @0x1a
0x16c4…16e6 at001b = ╱45╱E╱ // 0x16df @0x1b
0x16c4…16e6 at001c = ╱53╱S╱ // 0x16e0 @0x1c
0x16c4…16e6 at001d = ╱55╱U╱ // 0x16e1 @0x1d
0x16c4…16e6 at001e = ╱4c╱L╱ // 0x16e2 @0x1e
0x16c4…16e6 at001f = ╱ef╱$╱ // 0x16e3 @0x1f
0x16c4…16e6 at0020 = ╱ee╱)╱ // 0x16e4 @0x20
0x16c4…16e6 at0021 = EOL // 0x16e5 @0x21
0x16c4…16e6 }
0x16e6…1713 a46a 2784 IF RESUL$(12)="+" THEN RESUL$(12)=" "
0x16e6…1713 LineComalBin {
0x16e6…1713 ptr = 0xa46a // 0x16e6 @0x0
0x16e6…1713 lno = 0x0ae0 // 0x16e8 @0x2
0x16e6…1713 at0004 = ╱82╱ IF ╱ // 0x16ea @0x4
0x16e6…1713 at0005 = ╱52╱R╱ // 0x16eb @0x5
0x16e6…1713 at0006 = ╱45╱E╱ // 0x16ec @0x6
0x16e6…1713 at0007 = ╱53╱S╱ // 0x16ed @0x7
0x16e6…1713 at0008 = ╱55╱U╱ // 0x16ee @0x8
0x16e6…1713 at0009 = ╱4c╱L╱ // 0x16ef @0x9
0x16e6…1713 at000a = ╱ef╱$╱ // 0x16f0 @0xa
0x16e6…1713 at000b = ╱ed╱(╱ // 0x16f1 @0xb
0x16e6…1713 at000c = ╱31╱1╱ // 0x16f2 @0xc
0x16e6…1713 at000d = ╱32╱2╱ // 0x16f3 @0xd
0x16e6…1713 at000e = ╱fe0000c004╱ // 0x16f4 @0xe
0x16e6…1713 at0013 = ╱ee╱)╱ // 0x16f9 @0x13
0x16e6…1713 at0014 = ╱dc╱=╱ // 0x16fa @0x14
0x16e6…1713 at0015 = ╱22╱"╱ // 0x16fb @0x15
0x16e6…1713 at0016 = ╱2b╱+╱ // 0x16fc @0x16
0x16e6…1713 at0017 = ╱22╱"╱ // 0x16fd @0x17
0x16e6…1713 at0018 = ╱b6╱ THEN ╱ // 0x16fe @0x18
0x16e6…1713 at0019 = ╱52╱R╱ // 0x16ff @0x19
0x16e6…1713 at001a = ╱45╱E╱ // 0x1700 @0x1a
0x16e6…1713 at001b = ╱53╱S╱ // 0x1701 @0x1b
0x16e6…1713 at001c = ╱55╱U╱ // 0x1702 @0x1c
0x16e6…1713 at001d = ╱4c╱L╱ // 0x1703 @0x1d
0x16e6…1713 at001e = ╱ef╱$╱ // 0x1704 @0x1e
0x16e6…1713 at001f = ╱ed╱(╱ // 0x1705 @0x1f
0x16e6…1713 at0020 = ╱31╱1╱ // 0x1706 @0x20
0x16e6…1713 at0021 = ╱32╱2╱ // 0x1707 @0x21
0x16e6…1713 at0022 = ╱fe0000c004╱ // 0x1708 @0x22
0x16e6…1713 at0027 = ╱ee╱)╱ // 0x170d @0x27
0x16e6…1713 at0028 = ╱dc╱=╱ // 0x170e @0x28
0x16e6…1713 at0029 = ╱22╱"╱ // 0x170f @0x29
0x16e6…1713 at002a = ╱20╱…╱ // 0x1710 @0x2a
0x16e6…1713 at002b = ╱22╱"╱ // 0x1711 @0x2b
0x16e6…1713 at002c = EOL // 0x1712 @0x2c
0x16e6…1713 }
0x1713…173f a496 2790 EXEC PV(GRUPEN$(12),GRUPBEL$(12))
0x1713…173f LineComalBin {
0x1713…173f ptr = 0xa496 // 0x1713 @0x0
0x1713…173f lno = 0x0ae6 // 0x1715 @0x2
0x1713…173f at0004 = ╱9d╱ EXEC ╱ // 0x1717 @0x4
0x1713…173f at0005 = ╱50╱P╱ // 0x1718 @0x5
0x1713…173f at0006 = ╱56╱V╱ // 0x1719 @0x6
0x1713…173f at0007 = ╱ed╱(╱ // 0x171a @0x7
0x1713…173f at0008 = ╱47╱G╱ // 0x171b @0x8
0x1713…173f at0009 = ╱52╱R╱ // 0x171c @0x9
0x1713…173f at000a = ╱55╱U╱ // 0x171d @0xa
0x1713…173f at000b = ╱50╱P╱ // 0x171e @0xb
0x1713…173f at000c = ╱45╱E╱ // 0x171f @0xc
0x1713…173f at000d = ╱4e╱N╱ // 0x1720 @0xd
0x1713…173f at000e = ╱ef╱$╱ // 0x1721 @0xe
0x1713…173f at000f = ╱ed╱(╱ // 0x1722 @0xf
0x1713…173f at0010 = ╱31╱1╱ // 0x1723 @0x10
0x1713…173f at0011 = ╱32╱2╱ // 0x1724 @0x11
0x1713…173f at0012 = ╱fe0000c004╱ // 0x1725 @0x12
0x1713…173f at0017 = ╱ee╱)╱ // 0x172a @0x17
0x1713…173f at0018 = ╱ec╱,╱ // 0x172b @0x18
0x1713…173f at0019 = ╱47╱G╱ // 0x172c @0x19
0x1713…173f at001a = ╱52╱R╱ // 0x172d @0x1a
0x1713…173f at001b = ╱55╱U╱ // 0x172e @0x1b
0x1713…173f at001c = ╱50╱P╱ // 0x172f @0x1c
0x1713…173f at001d = ╱42╱B╱ // 0x1730 @0x1d
0x1713…173f at001e = ╱45╱E╱ // 0x1731 @0x1e
0x1713…173f at001f = ╱4c╱L╱ // 0x1732 @0x1f
0x1713…173f at0020 = ╱ef╱$╱ // 0x1733 @0x20
0x1713…173f at0021 = ╱ed╱(╱ // 0x1734 @0x21
0x1713…173f at0022 = ╱31╱1╱ // 0x1735 @0x22
0x1713…173f at0023 = ╱32╱2╱ // 0x1736 @0x23
0x1713…173f at0024 = ╱fe0000c004╱ // 0x1737 @0x24
0x1713…173f at0029 = ╱ee╱)╱ // 0x173c @0x29
0x1713…173f at002a = ╱ee╱)╱ // 0x173d @0x2a
0x1713…173f at002b = EOL // 0x173e @0x2b
0x1713…173f }
0x173f…178e a4e5 2800 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10)
0x173f…178e LineComalBin {
0x173f…178e ptr = 0xa4e5 // 0x173f @0x0
0x173f…178e lno = 0x0af0 // 0x1741 @0x2
0x173f…178e at0004 = ╱92╱ PRINT ╱ // 0x1743 @0x4
0x173f…178e at0005 = ╱22╱"╱ // 0x1744 @0x5
0x173f…178e at0006 = ╱54╱T╱ // 0x1745 @0x6
0x173f…178e at0007 = ╱6f╱o╱ // 0x1746 @0x7
0x173f…178e at0008 = ╱74╱t╱ // 0x1747 @0x8
0x173f…178e at0009 = ╱61╱a╱ // 0x1748 @0x9
0x173f…178e at000a = ╱6c╱l╱ // 0x1749 @0xa
0x173f…178e at000b = ╱20╱…╱ // 0x174a @0xb
0x173f…178e at000c = ╱22╱"╱ // 0x174b @0xc
0x173f…178e at000d = ╱eb╱;╱ // 0x174c @0xd
0x173f…178e at000e = ╱47╱G╱ // 0x174d @0xe
0x173f…178e at000f = ╱52╱R╱ // 0x174e @0xf
0x173f…178e at0010 = ╱55╱U╱ // 0x174f @0x10
0x173f…178e at0011 = ╱50╱P╱ // 0x1750 @0x11
0x173f…178e at0012 = ╱50╱P╱ // 0x1751 @0x12
0x173f…178e at0013 = ╱45╱E╱ // 0x1752 @0x13
0x173f…178e at0014 = ╱ef╱$╱ // 0x1753 @0x14
0x173f…178e at0015 = ╱ec╱,╱ // 0x1754 @0x15
0x173f…178e at0016 = ╱47╱G╱ // 0x1755 @0x16
0x173f…178e at0017 = ╱52╱R╱ // 0x1756 @0x17
0x173f…178e at0018 = ╱55╱U╱ // 0x1757 @0x18
0x173f…178e at0019 = ╱50╱P╱ // 0x1758 @0x19
0x173f…178e at001a = ╱45╱E╱ // 0x1759 @0x1a
0x173f…178e at001b = ╱4e╱N╱ // 0x175a @0x1b
0x173f…178e at001c = ╱ef╱$╱ // 0x175b @0x1c
0x173f…178e at001d = ╱ed╱(╱ // 0x175c @0x1d
0x173f…178e at001e = ╱56╱V╱ // 0x175d @0x1e
0x173f…178e at001f = ╱f0╱:╱ // 0x175e @0x1f
0x173f…178e at0020 = ╱31╱1╱ // 0x175f @0x20
0x173f…178e at0021 = ╱30╱0╱ // 0x1760 @0x21
0x173f…178e at0022 = ╱fe0000a004╱ // 0x1761 @0x22
0x173f…178e at0027 = ╱ee╱)╱ // 0x1766 @0x27
0x173f…178e at0028 = ╱ec╱,╱ // 0x1767 @0x28
0x173f…178e at0029 = ╱47╱G╱ // 0x1768 @0x29
0x173f…178e at002a = ╱52╱R╱ // 0x1769 @0x2a
0x173f…178e at002b = ╱55╱U╱ // 0x176a @0x2b
0x173f…178e at002c = ╱50╱P╱ // 0x176b @0x2c
0x173f…178e at002d = ╱42╱B╱ // 0x176c @0x2d
0x173f…178e at002e = ╱45╱E╱ // 0x176d @0x2e
0x173f…178e at002f = ╱4c╱L╱ // 0x176e @0x2f
0x173f…178e at0030 = ╱ef╱$╱ // 0x176f @0x30
0x173f…178e at0031 = ╱ed╱(╱ // 0x1770 @0x31
0x173f…178e at0032 = ╱56╱V╱ // 0x1771 @0x32
0x173f…178e at0033 = ╱f0╱:╱ // 0x1772 @0x33
0x173f…178e at0034 = ╱31╱1╱ // 0x1773 @0x34
0x173f…178e at0035 = ╱30╱0╱ // 0x1774 @0x35
0x173f…178e at0036 = ╱fe0000a004╱ // 0x1775 @0x36
0x173f…178e at003b = ╱ee╱)╱ // 0x177a @0x3b
0x173f…178e at003c = ╱ec╱,╱ // 0x177b @0x3c
0x173f…178e at003d = ╱52╱R╱ // 0x177c @0x3d
0x173f…178e at003e = ╱45╱E╱ // 0x177d @0x3e
0x173f…178e at003f = ╱53╱S╱ // 0x177e @0x3f
0x173f…178e at0040 = ╱55╱U╱ // 0x177f @0x40
0x173f…178e at0041 = ╱4c╱L╱ // 0x1780 @0x41
0x173f…178e at0042 = ╱ef╱$╱ // 0x1781 @0x42
0x173f…178e at0043 = ╱ed╱(╱ // 0x1782 @0x43
0x173f…178e at0044 = ╱56╱V╱ // 0x1783 @0x44
0x173f…178e at0045 = ╱f0╱:╱ // 0x1784 @0x45
0x173f…178e at0046 = ╱31╱1╱ // 0x1785 @0x46
0x173f…178e at0047 = ╱30╱0╱ // 0x1786 @0x47
0x173f…178e at0048 = ╱fe0000a004╱ // 0x1787 @0x48
0x173f…178e at004d = ╱ee╱)╱ // 0x178c @0x4d
0x173f…178e at004e = EOL // 0x178d @0x4e
0x173f…178e }
0x178e…1794 a4eb 2810 PRINT
0x178e…1794 LineComalBin {
0x178e…1794 ptr = 0xa4eb // 0x178e @0x0
0x178e…1794 lno = 0x0afa // 0x1790 @0x2
0x178e…1794 at0004 = ╱92╱ PRINT ╱ // 0x1792 @0x4
0x178e…1794 at0005 = EOL // 0x1793 @0x5
0x178e…1794 }
0x1794…17a6 a4fd 2820 LINIE=LINIE+V
0x1794…17a6 LineComalBin {
0x1794…17a6 ptr = 0xa4fd // 0x1794 @0x0
0x1794…17a6 lno = 0x0b04 // 0x1796 @0x2
0x1794…17a6 at0004 = ╱4c╱L╱ // 0x1798 @0x4
0x1794…17a6 at0005 = ╱49╱I╱ // 0x1799 @0x5
0x1794…17a6 at0006 = ╱4e╱N╱ // 0x179a @0x6
0x1794…17a6 at0007 = ╱49╱I╱ // 0x179b @0x7
0x1794…17a6 at0008 = ╱45╱E╱ // 0x179c @0x8
0x1794…17a6 at0009 = ╱dc╱=╱ // 0x179d @0x9
0x1794…17a6 at000a = ╱4c╱L╱ // 0x179e @0xa
0x1794…17a6 at000b = ╱49╱I╱ // 0x179f @0xb
0x1794…17a6 at000c = ╱4e╱N╱ // 0x17a0 @0xc
0x1794…17a6 at000d = ╱49╱I╱ // 0x17a1 @0xd
0x1794…17a6 at000e = ╱45╱E╱ // 0x17a2 @0xe
0x1794…17a6 at000f = ╱e2╱+╱ // 0x17a3 @0xf
0x1794…17a6 at0010 = ╱56╱V╱ // 0x17a4 @0x10
0x1794…17a6 at0011 = EOL // 0x17a5 @0x11
0x1794…17a6 }
0x17a6…17c3 a51a 2822 EXEC CALC(G,PCT$,BE$,RESUL$)
0x17a6…17c3 LineComalBin {
0x17a6…17c3 ptr = 0xa51a // 0x17a6 @0x0
0x17a6…17c3 lno = 0x0b06 // 0x17a8 @0x2
0x17a6…17c3 at0004 = ╱9d╱ EXEC ╱ // 0x17aa @0x4
0x17a6…17c3 at0005 = ╱43╱C╱ // 0x17ab @0x5
0x17a6…17c3 at0006 = ╱41╱A╱ // 0x17ac @0x6
0x17a6…17c3 at0007 = ╱4c╱L╱ // 0x17ad @0x7
0x17a6…17c3 at0008 = ╱43╱C╱ // 0x17ae @0x8
0x17a6…17c3 at0009 = ╱ed╱(╱ // 0x17af @0x9
0x17a6…17c3 at000a = ╱47╱G╱ // 0x17b0 @0xa
0x17a6…17c3 at000b = ╱ec╱,╱ // 0x17b1 @0xb
0x17a6…17c3 at000c = ╱50╱P╱ // 0x17b2 @0xc
0x17a6…17c3 at000d = ╱43╱C╱ // 0x17b3 @0xd
0x17a6…17c3 at000e = ╱54╱T╱ // 0x17b4 @0xe
0x17a6…17c3 at000f = ╱ef╱$╱ // 0x17b5 @0xf
0x17a6…17c3 at0010 = ╱ec╱,╱ // 0x17b6 @0x10
0x17a6…17c3 at0011 = ╱42╱B╱ // 0x17b7 @0x11
0x17a6…17c3 at0012 = ╱45╱E╱ // 0x17b8 @0x12
0x17a6…17c3 at0013 = ╱ef╱$╱ // 0x17b9 @0x13
0x17a6…17c3 at0014 = ╱ec╱,╱ // 0x17ba @0x14
0x17a6…17c3 at0015 = ╱52╱R╱ // 0x17bb @0x15
0x17a6…17c3 at0016 = ╱45╱E╱ // 0x17bc @0x16
0x17a6…17c3 at0017 = ╱53╱S╱ // 0x17bd @0x17
0x17a6…17c3 at0018 = ╱55╱U╱ // 0x17be @0x18
0x17a6…17c3 at0019 = ╱4c╱L╱ // 0x17bf @0x19
0x17a6…17c3 at001a = ╱ef╱$╱ // 0x17c0 @0x1a
0x17a6…17c3 at001b = ╱ee╱)╱ // 0x17c1 @0x1b
0x17a6…17c3 at001c = EOL // 0x17c2 @0x1c
0x17a6…17c3 }
0x17c3…17f0 (79,) a547 2824 IF RESUL$(12)="+" THEN RESUL$(12)=" "
0x17c3…17f0 LineComalBin {
0x17c3…17f0 ptr = 0xa547 // 0x17c3 @0x0
0x17c3…17f0 lno = 0x0b08 // 0x17c5 @0x2
0x17c3…17f0 at0004 = ╱82╱ IF ╱ // 0x17c7 @0x4
0x17c3…17f0 at0005 = ╱52╱R╱ // 0x17c8 @0x5
0x17c3…17f0 at0006 = ╱45╱E╱ // 0x17c9 @0x6
0x17c3…17f0 at0007 = ╱53╱S╱ // 0x17ca @0x7
0x17c3…17f0 at0008 = ╱55╱U╱ // 0x17cb @0x8
0x17c3…17f0 at0009 = ╱4c╱L╱ // 0x17cc @0x9
0x17c3…17f0 at000a = ╱ef╱$╱ // 0x17cd @0xa
0x17c3…17f0 at000b = ╱ed╱(╱ // 0x17ce @0xb
0x17c3…17f0 at000c = ╱31╱1╱ // 0x17cf @0xc
0x17c3…17f0 at000d = ╱32╱2╱ // 0x17d0 @0xd
0x17c3…17f0 at000e = ╱fe0000c004╱ // 0x17d1 @0xe
0x17c3…17f0 at0013 = ╱ee╱)╱ // 0x17d6 @0x13
0x17c3…17f0 at0014 = ╱dc╱=╱ // 0x17d7 @0x14
0x17c3…17f0 at0015 = ╱22╱"╱ // 0x17d8 @0x15
0x17c3…17f0 at0016 = ╱2b╱+╱ // 0x17d9 @0x16
0x17c3…17f0 at0017 = ╱22╱"╱ // 0x17da @0x17
0x17c3…17f0 at0018 = ╱b6╱ THEN ╱ // 0x17db @0x18
0x17c3…17f0 at0019 = ╱52╱R╱ // 0x17dc @0x19
0x17c3…17f0 at001a = ╱45╱E╱ // 0x17dd @0x1a
0x17c3…17f0 at001b = ╱53╱S╱ // 0x17de @0x1b
0x17c3…17f0 at001c = ╱55╱U╱ // 0x17df @0x1c
0x17c3…17f0 at001d = ╱4c╱L╱ // 0x17e0 @0x1d
0x17c3…17f0 at001e = ╱ef╱$╱ // 0x17e1 @0x1e
0x17c3…17f0 at001f = ╱ed╱(╱ // 0x17e2 @0x1f
0x17c3…17f0 at0020 = ╱31╱1╱ // 0x17e3 @0x20
0x17c3…17f0 at0021 = ╱32╱2╱ // 0x17e4 @0x21
0x17c3…17f0 at0022 = ╱fe0000c004╱ // 0x17e5 @0x22
0x17c3…17f0 at0027 = ╱ee╱)╱ // 0x17ea @0x27
0x17c3…17f0 at0028 = ╱dc╱=╱ // 0x17eb @0x28
0x17c3…17f0 at0029 = ╱22╱"╱ // 0x17ec @0x29
0x17c3…17f0 at002a = ╱20╱…╱ // 0x17ed @0x2a
0x17c3…17f0 at002b = ╱22╱"╱ // 0x17ee @0x2b
0x17c3…17f0 at002c = EOL // 0x17ef @0x2c
0x17c3…17f0 }
0x17f0…1813 a56a 2830 EXEC PV(EN$(12),BE$(12))
0x17f0…1813 LineComalBin {
0x17f0…1813 ptr = 0xa56a // 0x17f0 @0x0
0x17f0…1813 lno = 0x0b0e // 0x17f2 @0x2
0x17f0…1813 at0004 = ╱9d╱ EXEC ╱ // 0x17f4 @0x4
0x17f0…1813 at0005 = ╱50╱P╱ // 0x17f5 @0x5
0x17f0…1813 at0006 = ╱56╱V╱ // 0x17f6 @0x6
0x17f0…1813 at0007 = ╱ed╱(╱ // 0x17f7 @0x7
0x17f0…1813 at0008 = ╱45╱E╱ // 0x17f8 @0x8
0x17f0…1813 at0009 = ╱4e╱N╱ // 0x17f9 @0x9
0x17f0…1813 at000a = ╱ef╱$╱ // 0x17fa @0xa
0x17f0…1813 at000b = ╱ed╱(╱ // 0x17fb @0xb
0x17f0…1813 at000c = ╱31╱1╱ // 0x17fc @0xc
0x17f0…1813 at000d = ╱32╱2╱ // 0x17fd @0xd
0x17f0…1813 at000e = ╱fe0000c004╱ // 0x17fe @0xe
0x17f0…1813 at0013 = ╱ee╱)╱ // 0x1803 @0x13
0x17f0…1813 at0014 = ╱ec╱,╱ // 0x1804 @0x14
0x17f0…1813 at0015 = ╱42╱B╱ // 0x1805 @0x15
0x17f0…1813 at0016 = ╱45╱E╱ // 0x1806 @0x16
0x17f0…1813 at0017 = ╱ef╱$╱ // 0x1807 @0x17
0x17f0…1813 at0018 = ╱ed╱(╱ // 0x1808 @0x18
0x17f0…1813 at0019 = ╱31╱1╱ // 0x1809 @0x19
0x17f0…1813 at001a = ╱32╱2╱ // 0x180a @0x1a
0x17f0…1813 at001b = ╱fe0000c004╱ // 0x180b @0x1b
0x17f0…1813 at0020 = ╱ee╱)╱ // 0x1810 @0x20
0x17f0…1813 at0021 = ╱ee╱)╱ // 0x1811 @0x21
0x17f0…1813 at0022 = EOL // 0x1812 @0x22
0x17f0…1813 }
0x1813…1850 a5a7 2840 PRINT "Total",EN$(V:10),BE$(V:10),RESUL$(V:10)
0x1813…1850 LineComalBin {
0x1813…1850 ptr = 0xa5a7 // 0x1813 @0x0
0x1813…1850 lno = 0x0b18 // 0x1815 @0x2
0x1813…1850 at0004 = ╱92╱ PRINT ╱ // 0x1817 @0x4
0x1813…1850 at0005 = ╱22╱"╱ // 0x1818 @0x5
0x1813…1850 at0006 = ╱54╱T╱ // 0x1819 @0x6
0x1813…1850 at0007 = ╱6f╱o╱ // 0x181a @0x7
0x1813…1850 at0008 = ╱74╱t╱ // 0x181b @0x8
0x1813…1850 at0009 = ╱61╱a╱ // 0x181c @0x9
0x1813…1850 at000a = ╱6c╱l╱ // 0x181d @0xa
0x1813…1850 at000b = ╱22╱"╱ // 0x181e @0xb
0x1813…1850 at000c = ╱ec╱,╱ // 0x181f @0xc
0x1813…1850 at000d = ╱45╱E╱ // 0x1820 @0xd
0x1813…1850 at000e = ╱4e╱N╱ // 0x1821 @0xe
0x1813…1850 at000f = ╱ef╱$╱ // 0x1822 @0xf
0x1813…1850 at0010 = ╱ed╱(╱ // 0x1823 @0x10
0x1813…1850 at0011 = ╱56╱V╱ // 0x1824 @0x11
0x1813…1850 at0012 = ╱f0╱:╱ // 0x1825 @0x12
0x1813…1850 at0013 = ╱31╱1╱ // 0x1826 @0x13
0x1813…1850 at0014 = ╱30╱0╱ // 0x1827 @0x14
0x1813…1850 at0015 = ╱fe0000a004╱ // 0x1828 @0x15
0x1813…1850 at001a = ╱ee╱)╱ // 0x182d @0x1a
0x1813…1850 at001b = ╱ec╱,╱ // 0x182e @0x1b
0x1813…1850 at001c = ╱42╱B╱ // 0x182f @0x1c
0x1813…1850 at001d = ╱45╱E╱ // 0x1830 @0x1d
0x1813…1850 at001e = ╱ef╱$╱ // 0x1831 @0x1e
0x1813…1850 at001f = ╱ed╱(╱ // 0x1832 @0x1f
0x1813…1850 at0020 = ╱56╱V╱ // 0x1833 @0x20
0x1813…1850 at0021 = ╱f0╱:╱ // 0x1834 @0x21
0x1813…1850 at0022 = ╱31╱1╱ // 0x1835 @0x22
0x1813…1850 at0023 = ╱30╱0╱ // 0x1836 @0x23
0x1813…1850 at0024 = ╱fe0000a004╱ // 0x1837 @0x24
0x1813…1850 at0029 = ╱ee╱)╱ // 0x183c @0x29
0x1813…1850 at002a = ╱ec╱,╱ // 0x183d @0x2a
0x1813…1850 at002b = ╱52╱R╱ // 0x183e @0x2b
0x1813…1850 at002c = ╱45╱E╱ // 0x183f @0x2c
0x1813…1850 at002d = ╱53╱S╱ // 0x1840 @0x2d
0x1813…1850 at002e = ╱55╱U╱ // 0x1841 @0x2e
0x1813…1850 at002f = ╱4c╱L╱ // 0x1842 @0x2f
0x1813…1850 at0030 = ╱ef╱$╱ // 0x1843 @0x30
0x1813…1850 at0031 = ╱ed╱(╱ // 0x1844 @0x31
0x1813…1850 at0032 = ╱56╱V╱ // 0x1845 @0x32
0x1813…1850 at0033 = ╱f0╱:╱ // 0x1846 @0x33
0x1813…1850 at0034 = ╱31╱1╱ // 0x1847 @0x34
0x1813…1850 at0035 = ╱30╱0╱ // 0x1848 @0x35
0x1813…1850 at0036 = ╱fe0000a004╱ // 0x1849 @0x36
0x1813…1850 at003b = ╱ee╱)╱ // 0x184e @0x3b
0x1813…1850 at003c = EOL // 0x184f @0x3c
0x1813…1850 }
0x1850…185e a5b5 2850 MAX=MAX+E
0x1850…185e LineComalBin {
0x1850…185e ptr = 0xa5b5 // 0x1850 @0x0
0x1850…185e lno = 0x0b22 // 0x1852 @0x2
0x1850…185e at0004 = ╱4d╱M╱ // 0x1854 @0x4
0x1850…185e at0005 = ╱41╱A╱ // 0x1855 @0x5
0x1850…185e at0006 = ╱58╱X╱ // 0x1856 @0x6
0x1850…185e at0007 = ╱dc╱=╱ // 0x1857 @0x7
0x1850…185e at0008 = ╱4d╱M╱ // 0x1858 @0x8
0x1850…185e at0009 = ╱41╱A╱ // 0x1859 @0x9
0x1850…185e at000a = ╱58╱X╱ // 0x185a @0xa
0x1850…185e at000b = ╱e2╱+╱ // 0x185b @0xb
0x1850…185e at000c = ╱45╱E╱ // 0x185c @0xc
0x1850…185e at000d = EOL // 0x185d @0xd
0x1850…185e }
0x185e…1878 a5cf 2860 IF T$(MAX,14)<>" " THEN
0x185e…1878 LineComalBin {
0x185e…1878 ptr = 0xa5cf // 0x185e @0x0
0x185e…1878 lno = 0x0b2c // 0x1860 @0x2
0x185e…1878 at0004 = ╱9c╱ IF ╱ // 0x1862 @0x4
0x185e…1878 at0005 = ╱54╱T╱ // 0x1863 @0x5
0x185e…1878 at0006 = ╱ef╱$╱ // 0x1864 @0x6
0x185e…1878 at0007 = ╱ed╱(╱ // 0x1865 @0x7
0x185e…1878 at0008 = ╱4d╱M╱ // 0x1866 @0x8
0x185e…1878 at0009 = ╱41╱A╱ // 0x1867 @0x9
0x185e…1878 at000a = ╱58╱X╱ // 0x1868 @0xa
0x185e…1878 at000b = ╱ec╱,╱ // 0x1869 @0xb
0x185e…1878 at000c = ╱31╱1╱ // 0x186a @0xc
0x185e…1878 at000d = ╱34╱4╱ // 0x186b @0xd
0x185e…1878 at000e = ╱fe0000e004╱ // 0x186c @0xe
0x185e…1878 at0013 = ╱ee╱)╱ // 0x1871 @0x13
0x185e…1878 at0014 = ╱e1╱<>╱ // 0x1872 @0x14
0x185e…1878 at0015 = ╱22╱"╱ // 0x1873 @0x15
0x185e…1878 at0016 = ╱20╱…╱ // 0x1874 @0x16
0x185e…1878 at0017 = ╱22╱"╱ // 0x1875 @0x17
0x185e…1878 at0018 = ╱b6╱ THEN ╱ // 0x1876 @0x18
0x185e…1878 at0019 = EOL // 0x1877 @0x19
0x185e…1878 }
0x1878…18a1 a5f8 2870 EXEC PV(T$(MAX,16),T$(MAX,26))
0x1878…18a1 LineComalBin {
0x1878…18a1 ptr = 0xa5f8 // 0x1878 @0x0
0x1878…18a1 lno = 0x0b36 // 0x187a @0x2
0x1878…18a1 at0004 = ╱9d╱ EXEC ╱ // 0x187c @0x4
0x1878…18a1 at0005 = ╱50╱P╱ // 0x187d @0x5
0x1878…18a1 at0006 = ╱56╱V╱ // 0x187e @0x6
0x1878…18a1 at0007 = ╱ed╱(╱ // 0x187f @0x7
0x1878…18a1 at0008 = ╱54╱T╱ // 0x1880 @0x8
0x1878…18a1 at0009 = ╱ef╱$╱ // 0x1881 @0x9
0x1878…18a1 at000a = ╱ed╱(╱ // 0x1882 @0xa
0x1878…18a1 at000b = ╱4d╱M╱ // 0x1883 @0xb
0x1878…18a1 at000c = ╱41╱A╱ // 0x1884 @0xc
0x1878…18a1 at000d = ╱58╱X╱ // 0x1885 @0xd
0x1878…18a1 at000e = ╱ec╱,╱ // 0x1886 @0xe
0x1878…18a1 at000f = ╱31╱1╱ // 0x1887 @0xf
0x1878…18a1 at0010 = ╱36╱6╱ // 0x1888 @0x10
0x1878…18a1 at0011 = ╱fe00008005╱ // 0x1889 @0x11
0x1878…18a1 at0016 = ╱ee╱)╱ // 0x188e @0x16
0x1878…18a1 at0017 = ╱ec╱,╱ // 0x188f @0x17
0x1878…18a1 at0018 = ╱54╱T╱ // 0x1890 @0x18
0x1878…18a1 at0019 = ╱ef╱$╱ // 0x1891 @0x19
0x1878…18a1 at001a = ╱ed╱(╱ // 0x1892 @0x1a
0x1878…18a1 at001b = ╱4d╱M╱ // 0x1893 @0x1b
0x1878…18a1 at001c = ╱41╱A╱ // 0x1894 @0x1c
0x1878…18a1 at001d = ╱58╱X╱ // 0x1895 @0x1d
0x1878…18a1 at001e = ╱ec╱,╱ // 0x1896 @0x1e
0x1878…18a1 at001f = ╱32╱2╱ // 0x1897 @0x1f
0x1878…18a1 at0020 = ╱36╱6╱ // 0x1898 @0x20
0x1878…18a1 at0021 = ╱fe0000d005╱ // 0x1899 @0x21
0x1878…18a1 at0026 = ╱ee╱)╱ // 0x189e @0x26
0x1878…18a1 at0027 = ╱ee╱)╱ // 0x189f @0x27
0x1878…18a1 at0028 = EOL // 0x18a0 @0x28
0x1878…18a1 }
0x18a1…18e4 a63b 2880 PRINT "Ikke fordelt",T$(MAX,7:10),T$(MAX,17:10)
0x18a1…18e4 LineComalBin {
0x18a1…18e4 ptr = 0xa63b // 0x18a1 @0x0
0x18a1…18e4 lno = 0x0b40 // 0x18a3 @0x2
0x18a1…18e4 at0004 = ╱92╱ PRINT ╱ // 0x18a5 @0x4
0x18a1…18e4 at0005 = ╱22╱"╱ // 0x18a6 @0x5
0x18a1…18e4 at0006 = ╱49╱I╱ // 0x18a7 @0x6
0x18a1…18e4 at0007 = ╱6b╱k╱ // 0x18a8 @0x7
0x18a1…18e4 at0008 = ╱6b╱k╱ // 0x18a9 @0x8
0x18a1…18e4 at0009 = ╱65╱e╱ // 0x18aa @0x9
0x18a1…18e4 at000a = ╱20╱…╱ // 0x18ab @0xa
0x18a1…18e4 at000b = ╱66╱f╱ // 0x18ac @0xb
0x18a1…18e4 at000c = ╱6f╱o╱ // 0x18ad @0xc
0x18a1…18e4 at000d = ╱72╱r╱ // 0x18ae @0xd
0x18a1…18e4 at000e = ╱64╱d╱ // 0x18af @0xe
0x18a1…18e4 at000f = ╱65╱e╱ // 0x18b0 @0xf
0x18a1…18e4 at0010 = ╱6c╱l╱ // 0x18b1 @0x10
0x18a1…18e4 at0011 = ╱74╱t╱ // 0x18b2 @0x11
0x18a1…18e4 at0012 = ╱22╱"╱ // 0x18b3 @0x12
0x18a1…18e4 at0013 = ╱ec╱,╱ // 0x18b4 @0x13
0x18a1…18e4 at0014 = ╱54╱T╱ // 0x18b5 @0x14
0x18a1…18e4 at0015 = ╱ef╱$╱ // 0x18b6 @0x15
0x18a1…18e4 at0016 = ╱ed╱(╱ // 0x18b7 @0x16
0x18a1…18e4 at0017 = ╱4d╱M╱ // 0x18b8 @0x17
0x18a1…18e4 at0018 = ╱41╱A╱ // 0x18b9 @0x18
0x18a1…18e4 at0019 = ╱58╱X╱ // 0x18ba @0x19
0x18a1…18e4 at001a = ╱ec╱,╱ // 0x18bb @0x1a
0x18a1…18e4 at001b = ╱37╱7╱ // 0x18bc @0x1b
0x18a1…18e4 at001c = ╱fe0000e003╱ // 0x18bd @0x1c
0x18a1…18e4 at0021 = ╱f0╱:╱ // 0x18c2 @0x21
0x18a1…18e4 at0022 = ╱31╱1╱ // 0x18c3 @0x22
0x18a1…18e4 at0023 = ╱30╱0╱ // 0x18c4 @0x23
0x18a1…18e4 at0024 = ╱fe0000a004╱ // 0x18c5 @0x24
0x18a1…18e4 at0029 = ╱ee╱)╱ // 0x18ca @0x29
0x18a1…18e4 at002a = ╱ec╱,╱ // 0x18cb @0x2a
0x18a1…18e4 at002b = ╱54╱T╱ // 0x18cc @0x2b
0x18a1…18e4 at002c = ╱ef╱$╱ // 0x18cd @0x2c
0x18a1…18e4 at002d = ╱ed╱(╱ // 0x18ce @0x2d
0x18a1…18e4 at002e = ╱4d╱M╱ // 0x18cf @0x2e
0x18a1…18e4 at002f = ╱41╱A╱ // 0x18d0 @0x2f
0x18a1…18e4 at0030 = ╱58╱X╱ // 0x18d1 @0x30
0x18a1…18e4 at0031 = ╱ec╱,╱ // 0x18d2 @0x31
0x18a1…18e4 at0032 = ╱31╱1╱ // 0x18d3 @0x32
0x18a1…18e4 at0033 = ╱37╱7╱ // 0x18d4 @0x33
0x18a1…18e4 at0034 = ╱fe00008805╱ // 0x18d5 @0x34
0x18a1…18e4 at0039 = ╱f0╱:╱ // 0x18da @0x39
0x18a1…18e4 at003a = ╱31╱1╱ // 0x18db @0x3a
0x18a1…18e4 at003b = ╱30╱0╱ // 0x18dc @0x3b
0x18a1…18e4 at003c = ╱fe0000a004╱ // 0x18dd @0x3c
0x18a1…18e4 at0041 = ╱ee╱)╱ // 0x18e2 @0x41
0x18a1…18e4 at0042 = EOL // 0x18e3 @0x42
0x18a1…18e4 }
0x18e4…18ea a641 2890 ENDIF
0x18e4…18ea LineComalBin {
0x18e4…18ea ptr = 0xa641 // 0x18e4 @0x0
0x18e4…18ea lno = 0x0b4a // 0x18e6 @0x2
0x18e4…18ea at0004 = ╱9b╱ ENDIF ╱ // 0x18e8 @0x4
0x18e4…18ea at0005 = EOL // 0x18e9 @0x5
0x18e4…18ea }
0x18ea…1905 a65c 2900 WHILE LINIE<72 AND LINIE>B
0x18ea…1905 LineComalBin {
0x18ea…1905 ptr = 0xa65c // 0x18ea @0x0
0x18ea…1905 lno = 0x0b54 // 0x18ec @0x2
0x18ea…1905 at0004 = ╱93╱ WHILE ╱ // 0x18ee @0x4
0x18ea…1905 at0005 = ╱4c╱L╱ // 0x18ef @0x5
0x18ea…1905 at0006 = ╱49╱I╱ // 0x18f0 @0x6
0x18ea…1905 at0007 = ╱4e╱N╱ // 0x18f1 @0x7
0x18ea…1905 at0008 = ╱49╱I╱ // 0x18f2 @0x8
0x18ea…1905 at0009 = ╱45╱E╱ // 0x18f3 @0x9
0x18ea…1905 at000a = ╱dd╱<╱ // 0x18f4 @0xa
0x18ea…1905 at000b = ╱37╱7╱ // 0x18f5 @0xb
0x18ea…1905 at000c = ╱32╱2╱ // 0x18f6 @0xc
0x18ea…1905 at000d = ╱fe00009007╱ // 0x18f7 @0xd
0x18ea…1905 at0012 = ╱da╱ AND ╱ // 0x18fc @0x12
0x18ea…1905 at0013 = ╱4c╱L╱ // 0x18fd @0x13
0x18ea…1905 at0014 = ╱49╱I╱ // 0x18fe @0x14
0x18ea…1905 at0015 = ╱4e╱N╱ // 0x18ff @0x15
0x18ea…1905 at0016 = ╱49╱I╱ // 0x1900 @0x16
0x18ea…1905 at0017 = ╱45╱E╱ // 0x1901 @0x17
0x18ea…1905 at0018 = ╱de╱>╱ // 0x1902 @0x18
0x18ea…1905 at0019 = ╱42╱B╱ // 0x1903 @0x19
0x18ea…1905 at001a = EOL // 0x1904 @0x1a
0x18ea…1905 }
0x1905…190b a662 2910 PRINT
0x1905…190b LineComalBin {
0x1905…190b ptr = 0xa662 // 0x1905 @0x0
0x1905…190b lno = 0x0b5e // 0x1907 @0x2
0x1905…190b at0004 = ╱92╱ PRINT ╱ // 0x1909 @0x4
0x1905…190b at0005 = EOL // 0x190a @0x5
0x1905…190b }
0x190b…191d a674 2920 LINIE=LINIE+E
0x190b…191d LineComalBin {
0x190b…191d ptr = 0xa674 // 0x190b @0x0
0x190b…191d lno = 0x0b68 // 0x190d @0x2
0x190b…191d at0004 = ╱4c╱L╱ // 0x190f @0x4
0x190b…191d at0005 = ╱49╱I╱ // 0x1910 @0x5
0x190b…191d at0006 = ╱4e╱N╱ // 0x1911 @0x6
0x190b…191d at0007 = ╱49╱I╱ // 0x1912 @0x7
0x190b…191d at0008 = ╱45╱E╱ // 0x1913 @0x8
0x190b…191d at0009 = ╱dc╱=╱ // 0x1914 @0x9
0x190b…191d at000a = ╱4c╱L╱ // 0x1915 @0xa
0x190b…191d at000b = ╱49╱I╱ // 0x1916 @0xb
0x190b…191d at000c = ╱4e╱N╱ // 0x1917 @0xc
0x190b…191d at000d = ╱49╱I╱ // 0x1918 @0xd
0x190b…191d at000e = ╱45╱E╱ // 0x1919 @0xe
0x190b…191d at000f = ╱e2╱+╱ // 0x191a @0xf
0x190b…191d at0010 = ╱45╱E╱ // 0x191b @0x10
0x190b…191d at0011 = EOL // 0x191c @0x11
0x190b…191d }
0x191d…1923 a67a 2930 ENDWHILE
0x191d…1923 LineComalBin {
0x191d…1923 ptr = 0xa67a // 0x191d @0x0
0x191d…1923 lno = 0x0b72 // 0x191f @0x2
0x191d…1923 at0004 = ╱94╱ ENDWHILE ╱ // 0x1921 @0x4
0x191d…1923 at0005 = EOL // 0x1922 @0x5
0x191d…1923 }
0x1923…192a a681 2940 OUTPUT T
0x1923…192a LineComalBin {
0x1923…192a ptr = 0xa681 // 0x1923 @0x0
0x1923…192a lno = 0x0b7c // 0x1925 @0x2
0x1923…192a at0004 = ╱a5╱ OUTPUT ╱ // 0x1927 @0x4
0x1923…192a at0005 = ╱54╱T╱ // 0x1928 @0x5
0x1923…192a at0006 = EOL // 0x1929 @0x6
0x1923…192a }
0x192a…1940 0000 2950 CHAIN "P641210:STARTB"
0x192a…1940 LineComalBin {
0x192a…1940 ptr = 0x0000 // 0x192a @0x0
0x192a…1940 lno = 0x0b86 // 0x192c @0x2
0x192a…1940 at0004 = ╱ac╱ CHAIN ╱ // 0x192e @0x4
0x192a…1940 at0005 = ╱22╱"╱ // 0x192f @0x5
0x192a…1940 at0006 = ╱50╱P╱ // 0x1930 @0x6
0x192a…1940 at0007 = ╱36╱6╱ // 0x1931 @0x7
0x192a…1940 at0008 = ╱34╱4╱ // 0x1932 @0x8
0x192a…1940 at0009 = ╱31╱1╱ // 0x1933 @0x9
0x192a…1940 at000a = ╱32╱2╱ // 0x1934 @0xa
0x192a…1940 at000b = ╱31╱1╱ // 0x1935 @0xb
0x192a…1940 at000c = ╱30╱0╱ // 0x1936 @0xc
0x192a…1940 at000d = ╱3a╱:╱ // 0x1937 @0xd
0x192a…1940 at000e = ╱53╱S╱ // 0x1938 @0xe
0x192a…1940 at000f = ╱54╱T╱ // 0x1939 @0xf
0x192a…1940 at0010 = ╱41╱A╱ // 0x193a @0x10
0x192a…1940 at0011 = ╱52╱R╱ // 0x193b @0x11
0x192a…1940 at0012 = ╱54╱T╱ // 0x193c @0x12
0x192a…1940 at0013 = ╱42╱B╱ // 0x193d @0x13
0x192a…1940 at0014 = ╱22╱"╱ // 0x193e @0x14
0x192a…1940 at0015 = EOL // 0x193f @0x15
0x192a…1940 }
0x1940…1946 (84,) 57 8d 57 8d 10 00 ┆W W ┆