|
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: 11008 (0x2b00)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »AKKLØNBE.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKLØNBE.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »AKKLØNBE.B«
0100 PROC DATOCHECK(NR5,OK5) 0110 OK5=E 0120 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0130 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0140 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0150 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0160 IF OK5=B THEN EXIT 0170 CASE MÅNED OF 0180 WHEN 4,6,W,11 0190 IF DATO>30 THEN OK5=B 0200 WHEN G 0210 IF DATO>29 THEN OK5=B 0220 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0230 ENDCASE 0240 ENDPROC 0250 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12),MAX$(12),MAX1$(12) 0260 DIM RESUL$(12),RESUL1$(12),PR$(14),LINE$(20),POST6$(29) 0270 DIM FIL$(20),FIL1$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0280 DIM AUT$(4,37),FIL5$(20) 0290 HUND$="100.00+" 0300 MAX$="1000000.00+" 0310 MAX1$="1000.00+" 0320 TAH$="0+" 0330 PROC INLØNMOD(N) 0340 GET FIL$,G*N-E:POST1$ 0350 GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0360 EXEC FEJL(E,N,FIL$) 0370 ENDPROC 0380 PROC INDVIRK 0390 OPEN FIL$,W 0400 EXEC FEJL(B,B,FIL$) 0410 GET FIL$,E:POST3$ 0420 GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 0430 ENDPROC 0440 PROC CHECK(NR1,OK1) 0450 OK1=B 0460 RESULT=B 0470 IF LEN(NR1$)>B THEN 0480 IF NR1$(E)="-" THEN 0490 FORTEGN=-E 0500 OK1=E 0510 ELSE 0520 FORTEGN=E 0530 ENDIF 0540 WHILE LEN(NR1$)>OK1 0550 OK1=OK1+E 0560 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 0570 FORTEGN=B 0580 OK1=LEN(NR1$) 0590 ENDIF 0600 RESULT=RESULT*10+ORD(NR1$(OK1))-48 0610 ENDWHILE 0620 OK1=OK1*FORTEGN 0630 IF OK1<B THEN OK1=OK1+E 0640 ENDIF 0650 ENDPROC 0660 PROC INDART(N) 0670 GET FIL5$,N:POST6$,KT,FSHT,ÅT 0680 EXEC FEJL(G,N,FIL5$) 0690 ENDPROC 0700 PROC FEJL(P1,P2,P3) 0710 IF STATUS(P3$)<>B THEN 0720 OUTPUT T 0730 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0740 STOP 0750 ENDIF 0760 ENDPROC 0770 PROC CALC(AR3,B1,B2,ES) 0780 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0790 CALL "P641210:REGN" 0800 IF AR3<6 THEN 0810 IF FLAG THEN STOP 0820 ENDIF 0830 ES$=RES$ 0840 ENDPROC 0850 PROC SKRIVSID 0860 CLEAR 0870 PRINT " L Ø N B E R E G N I N G" 0880 PRINT "Lønnr "; 0890 PRINT USING "#### ":LMNR; 0900 PRINT "Navn ";POST1$(E,25) 0910 PRINT "Linie Lønart Nummer Enheder Sats Beløb" 0920 FOR I=E TO LAST 0930 PRINT USING "### ":I; 0940 PRINT " ";SIDE$(FØRST+I,V:G);" ";SIDE$(FØRST+I,5:6);" "; 0950 RESUL$=SIDE$(FØRST+I,11:10) 0960 IF RESUL$(10)="+" THEN RESUL$(10)=" " 0970 PRINT RESUL$; 0980 RESUL$=SIDE$(FØRST+I,21:7) 0990 IF RESUL$(7)="+" THEN RESUL$(7)=" " 1000 PRINT " ";RESUL$;" "; 1010 RESUL$=SIDE$(FØRST+I,28:10) 1020 IF RESUL$(10)="+" THEN RESUL$(10)=" " 1030 PRINT RESUL$ 1040 NEXT I 1050 ENDPROC 1060 PROC RETSID 1070 REPEAT 1080 REPEAT 1090 LINE$="0" 1100 CURSOR E,23 1110 EDIT "Linienr, 0: færdig SL: slet linier ",LINE$ 1120 IF LINE$<>"SL" THEN 1130 EXEC CHECK(LINE$,C) 1140 IF C<=B THEN RESULT=-E 1150 ELSE 1160 LINE$="N" 1170 CURSOR E,23 1180 EDIT "Slet: Alle : A, Linienrinterval : N ",LINE$ 1190 IF LINE$="A" THEN 1200 RESULT=B 1210 AT=B 1220 IT=(LMNR-E)*ATPLM+E 1230 UT=IT 1240 LAST=B;FØRST=B;SIDST=B 1250 ELSE 1260 REPEAT 1270 LF,LS=B 1280 CURSOR E,23 1290 PRINT " " 1300 CURSOR E,23 1310 EDIT "Fra linienr ",LF 1320 CURSOR E,23 1330 EDIT "Til linienr ",LS 1340 LF=INT(LF) 1350 LS=INT(LS) 1360 UNTIL LS=>LF AND LF=>E AND LS<=LAST 1370 IF SIDE$(FØRST+LF,E,4)="1 39" THEN LF=LF+E 1380 LS=LS+E 1390 IF FØRST+LS<=SIDST AND SIDE$(FØRST+LS,E,4)="1 39" THEN LS=LS+E 1400 WHILE FØRST+LS<=SIDST 1410 SIDE$(FØRST+LF)=SIDE$(FØRST+LS) 1420 LF=LF+E 1430 LS=LS+E 1440 ENDWHILE 1450 AT=AT-LS+LF 1460 SIDST=SIDST-LS+LF 1470 LAST=SIDST-FØRST 1480 IF LAST>18 THEN LAST=18 1490 RESULT=-E 1500 ENDIF 1510 ENDIF 1520 UNTIL RESULT<=LAST 1530 LI=RESULT 1540 IF LI>B THEN EXEC INLINE(LI) 1550 IF LI<B THEN EXEC SKRIVSID 1560 UNTIL LI=B 1570 FØRST=FØRST+LAST 1580 ENDPROC 1590 PROC INDSID 1600 FOR I=E TO 18 1610 SIDE$(FØRST+I)="1 0 0 0 0 " 1620 SIDST=SIDST+E;AT=AT+E;LAST=I 1630 EXEC INLINE(I) 1640 I=LAST 1650 IF LANR=B THEN 1660 I=18 1670 ELSE 1680 IF AT=>ATPLM-4 THEN I=18 1690 ENDIF 1700 NEXT I 1710 ENDPROC 1720 PROC INDTRANS 1730 K=E 1740 REPEAT 1750 GET FIL1$,IT:SIDE$(K) 1760 IT=IT+E 1770 K=K+E 1780 UNTIL SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" OR SIDE$(K-E,E)="2" 1790 IF SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" THEN 1800 LAST=K-G 1810 IT=IT-E 1820 ELSE 1830 LAST=K-E 1840 ENDIF 1850 AT=AT+LAST 1860 FØRST=B;SIDST=LAST 1870 IF LAST>18 THEN LAST=18 1880 ENDPROC 1890 PROC UDATRANS 1900 FOR K=E TO LAST 1910 IF AUT$(K,E)="3" OR AUT$(K,E)="1" THEN 1920 AUT$(K,E)="1" 1930 PUT FIL1$,UT:AUT$(K) 1940 UT=UT+E 1950 ENDIF 1960 NEXT K 1970 ENDPROC 1980 PROC UDTRANS 1990 FOR K=E TO SIDST 2000 IF SIDE$(K,E)="3" OR SIDE$(K,E)="1" THEN 2010 SIDE$(K,E)="1" 2020 PUT FIL1$,UT:SIDE$(K) 2030 UT=UT+E 2040 ENDIF 2050 NEXT K 2060 ENDPROC 2070 PROC INLINE(LINIE) 2080 IF SIDE$(FØRST+LINIE,V:G)<>"39" THEN 2090 REPEAT 2100 REPEAT 2110 CURSOR 7,LINIE+V 2120 LINE$=SIDE$(FØRST+LINIE,V:G) 2130 SIDE$(FØRST+LINIE,V:G)=" " 2140 EDIT "",LINE$ 2150 EXEC CHECK(LINE$,OK) 2160 IF RESULT=39 THEN OK=B 2170 UNTIL OK>B AND OK<V 2180 LANR=RESULT 2190 IF RESULT=B THEN 2200 QUQ=FØRST+LINIE 2210 WHILE QUQ<SIDST 2220 SIDE$(QUQ)=SIDE$(QUQ+E) 2230 QUQ=QUQ+E 2240 ENDWHILE 2250 SIDST=SIDST-E 2260 AT=AT-E 2270 LAST=SIDST-FØRST 2280 IF LAST>18 THEN LAST=18 2290 IF FØRST+LINIE<=SIDST AND SIDE$(FØRST+LINIE,E,4)="1 39" THEN GO TO 2200 2300 EXEC SKRIVSID 2310 ELSE 2320 EXEC INDART(LANR) 2330 IF POST6$(E)="1" AND POST6$(29)=" " THEN 2340 RESULT=B 2350 SIDE$(FØRST+LINIE,E:4)="1 "+CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48) 2360 ENDIF 2370 ENDIF 2380 UNTIL RESULT=B 2390 IF LANR>B THEN 2400 LINE$=" " 2410 IF LANR<>73 AND LANR<>75 THEN 2420 REPEAT 2430 CURSOR 17,LINIE+V 2440 LINE$=SIDE$(FØRST+LINIE,5:6) 2450 SIDE$(FØRST+LINIE,5:6)=" " 2460 EDIT "",LINE$ 2470 UNTIL LEN(LINE$)<=6 AND (LEN(LINE$)<6 OR SIDST<ATPLM-4) 2480 ENDIF 2490 SIDE$(FØRST+LINIE,5:6)=LINE$ 2500 REPEAT 2510 REPEAT 2520 CURSOR 28,LINIE+V 2530 LINE$=SIDE$(FØRST+LINIE,11:10) 2540 IF LINE$(10)="+" THEN LINE$(10)=" " 2550 EDIT "",LINE$ 2560 IF LANR=75 THEN 2570 EXEC DATOCHECK(LINE$,FLAG) 2580 FLAG=(FLAG=B) 2590 RESUL$=" "+LINE$(E,6)+" " 2600 ELSE 2610 LINE$=LINE$+"+" 2620 EXEC CALC(6,LINE$,TAH$,RESUL$) 2630 ENDIF 2640 UNTIL FLAG=B 2650 IF LANR=75 THEN 2660 SI=E 2670 ELSE 2680 EXEC CALC(4,RESUL$,MAX$,MAX1$) 2690 ENDIF 2700 UNTIL SI=E 2710 SIDE$(FØRST+LINIE,11:10)=RESUL$(V:10) 2720 EXEC CALC(4,RESUL$,TAH$,MAX$) 2730 IF SI=B THEN 2740 ENH=B 2750 ELSE 2760 ENH=E 2770 ENDIF 2780 IF LANR<61 OR (LANR>61 AND LANR<65) OR LANR=70 THEN 2790 REPEAT 2800 REPEAT 2810 CURSOR 41,LINIE+V 2820 LINE$=SIDE$(FØRST+LINIE,21:7) 2830 IF LINE$(7)="+" THEN LINE$(7)=" " 2840 EDIT "",LINE$ 2850 LINE$=LINE$+"+" 2860 EXEC CALC(6,LINE$,TAH$,RESUL$) 2870 UNTIL FLAG=B 2880 EXEC CALC(4,RESUL$,MAX1$,MAX$) 2890 UNTIL SI=E 2900 SIDE$(FØRST+LINIE,21:7)=RESUL$(6:7) 2910 EXEC CALC(4,RESUL$,TAH$,MAX$) 2920 IF SI=B THEN 2930 SATS=B 2940 ELSE 2950 SATS=E 2960 ENDIF 2970 ELSE 2980 SATS=B 2990 SIDE$(FØRST+LINIE,21:7)=" " 3000 ENDIF 3010 IF LANR<71 AND ENH*SATS=B AND LANR<>60 THEN 3020 REPEAT 3030 REPEAT 3040 CURSOR 51,LINIE+V 3050 LINE$=SIDE$(FØRST+LINIE,28:10) 3060 IF LINE$(10)="+" THEN LINE$(10)=" " 3070 EDIT "",LINE$ 3080 LINE$=LINE$+"+" 3090 EXEC CALC(6,LINE$,TAH$,RESUL$) 3100 UNTIL FLAG=B 3110 EXEC CALC(4,RESUL$,MAX$,MAX1$) 3120 UNTIL SI=E 3130 IF LANR=49 THEN RESUL$(12)="-" 3140 SIDE$(FØRST+LINIE,28:10)=RESUL$(V:10) 3150 ELSE 3160 IF ENH*SATS=E AND LANR<>60 THEN 3170 LINE$=SIDE$(FØRST+LINIE,11:10) 3180 RESUL$=SIDE$(FØRST+LINIE,21:7) 3190 EXEC CALC(G,LINE$,RESUL$,RESUL1$) 3200 ELSE 3210 RESUL1$=" 0+" 3220 ENDIF 3230 IF LANR=72 OR LANR=73 THEN RESUL1$(V:10)=SIDE$(FØRST+LINIE,11:10) 3240 IF LANR=49 THEN RESUL1$(12)="-" 3250 SIDE$(FØRST+LINIE,28:10)=RESUL1$(V:10) 3260 CURSOR 51,LINIE+V 3270 IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 3280 PRINT RESUL1$(V:10) 3290 ENDIF 3300 KUK=FØRST+LINIE 3310 IF SIDE$(KUK,10)>"0" AND SIDE$(KUK,10)<="9" AND SATS>B THEN 3320 IF KUK=SIDST THEN 3330 IF LAST<18 THEN LAST=LAST+E 3340 SIDST=SIDST+E 3350 AT=AT+E 3360 SIDE$(SIDST)="1 39 0 0 0 " 3370 ELSE 3380 IF SIDE$(KUK+E,E,4)<>"1 39" THEN 3390 SIDST=SIDST+E 3400 AT=AT+E 3410 IF LAST<18 THEN LAST=LAST+E 3420 QUQ=SIDST 3430 WHILE QUQ>KUK+E 3440 SIDE$(QUQ)=SIDE$(QUQ-E) 3450 QUQ=QUQ-E 3460 ENDWHILE 3470 SIDE$(QUQ)="1 39 0 0 0 " 3480 ENDIF 3490 ENDIF 3500 EXEC SKRIVSID 3510 ELSE 3520 IF KUK<SIDST THEN 3530 IF SIDE$(KUK+E,E,4)="1 39" THEN 3540 QUQ=KUK+E 3550 WHILE QUQ<SIDST 3560 SIDE$(QUQ)=SIDE$(QUQ+E) 3570 QUQ=QUQ+E 3580 ENDWHILE 3590 SIDST=SIDST-E 3600 AT=AT-E 3610 LAST=SIDST-FØRST 3620 IF LAST>18 THEN LAST=18 3630 EXEC SKRIVSID 3640 ENDIF 3650 ENDIF 3660 ENDIF 3670 ENDIF 3680 ENDIF 3690 ENDPROC 3700 PROC AUTTRANS 3710 CLEAR 3720 PRINT " L Ø N B E R E G N I N G" 3730 PRINT "Lønnr "; 3740 PRINT USING "#### ":LMNR; 3750 PRINT "Navn ";POST1$(E,25) 3760 PRINT "Linie Lønart Nummer Enheder Sats Beløb" 3770 IF POST2$(24,25)<"90" THEN 3780 II=G 3790 ELSE 3800 II=E 3810 ENDIF 3820 FOR I=E TO II 3830 CURSOR 7,V+I 3840 PRINT AUT$(I,G:V) 3850 REPEAT 3860 REPEAT 3870 CURSOR 41,V+I 3880 LINE$=AUT$(I,21:7) 3890 IF LINE$(7)="+" THEN LINE$(7)=" " 3900 EDIT "",LINE$ 3910 LINE$=LINE$+"+" 3920 EXEC CALC(6,LINE$,TAH$,RESUL$) 3930 UNTIL FLAG=B 3940 EXEC CALC(4,RESUL$,HUND$,MAX$) 3950 UNTIL SI=E 3960 AUT$(I,21:7)=RESUL$(6:7) 3970 NEXT I 3980 CURSOR 7,6 3990 PRINT AUT$(V,G:V) 4000 REPEAT 4010 REPEAT 4020 CURSOR 51,6 4030 LINE$=AUT$(V,28:10) 4040 IF LINE$(10)="+" THEN LINE$(10)=" " 4050 EDIT "",LINE$ 4060 LINE$=LINE$+"+" 4070 EXEC CALC(6,LINE$,TAH$,RESUL$) 4080 UNTIL FLAG=B 4090 EXEC CALC(4,RESUL$,MAX$,MAX1$) 4100 UNTIL SI=E 4110 AUT$(V,28:10)=RESUL$(V:10) 4120 LT=LT*100 4130 AUT$(4,21)=" " 4140 AUT$(4,22)=CHR(LT DIV 1000+48) 4150 AUT$(4,23)=CHR(LT DIV 100 MOD 10+48) 4160 AUT$(4,24)="," 4170 AUT$(4,25)=CHR(LT DIV 10 MOD 10+48) 4180 AUT$(4,26)=CHR(LT MOD 10+48) 4190 AUT$(4,27)="+" 4200 AUT$(4,11:10)=" " 4210 CASE POST2$(21) OF 4220 WHEN "1" 4230 AUT$(4,11)="1" 4240 WHEN "2","3" 4250 AUT$(4,11)="7" 4260 WHEN "4","5" 4270 AUT$(4,11:G)="14" 4280 WHEN "6","7" 4290 AUT$(4,11:G)="30" 4300 ENDCASE 4310 IF FD=B THEN 4320 CURSOR 7,7 4330 PRINT AUT$(4,G:V) 4340 REPEAT 4350 REPEAT 4360 CURSOR 28,7 4370 LINE$=AUT$(4,11:10) 4380 IF LINE$(10)="+" THEN LINE$(10)=" " 4390 EDIT "",LINE$ 4400 LINE$=LINE$+"+" 4410 EXEC CALC(6,LINE$,TAH$,RESUL$) 4420 UNTIL FLAG=B 4430 EXEC CALC(4,RESUL$,HUND$,MAX$) 4440 UNTIL SI=E 4450 AUT$(4,11:10)=RESUL$(V:10) 4460 ENDIF 4470 LAST=4 4480 ENDPROC 4490 FIL$="P641220:VIRKKART" 4500 EXEC INDVIRK 4510 CLOSE FIL$ 4520 DIM SIDE$(ATPLM-V,37) 4530 FIL$="P641220:LØNMODRG" 4540 OPEN FIL$,R 4550 FIL1$="P641220:TRANSREG" 4560 OPEN FIL1$,W 4570 FIL5$="P641220:LØNARTRG" 4580 OPEN FIL5$,R 4590 REPEAT 4600 CLEAR 4610 REPEAT 4620 LMNR=B 4630 EDIT "Lønnr ",LMNR 4640 UNTIL LMNR=>B AND LMNR<MLMNR 4650 IF LMNR>B THEN 4660 EXEC INLØNMOD(LMNR) 4670 IF LA<>B THEN 4680 IT=(LMNR-E)*ATPLM+E 4690 UT=IT 4700 AT=B 4710 EXEC INDTRANS 4720 REPEAT 4730 IF SIDE$(E,E)="2" THEN 4740 LAST=B 4750 ELSE 4760 EXEC SKRIVSID 4770 IF LAST>B THEN 4780 EXEC RETSID 4790 LAST=SIDST-FØRST 4800 IF LAST>18 THEN LAST=18 4810 ENDIF 4820 ENDIF 4830 UNTIL LAST=B OR IT=(LMNR-E)*ATPLM+E 4840 IF SIDE$(FØRST+E,E)<>"2" THEN 4850 IF IT>(LMNR-E)*ATPLM+E THEN 4860 FOR K=E TO 4 4870 GET FIL1$,IT:AUT$(K) 4880 IT=IT+E 4890 NEXT K 4900 ELSE 4910 AUT$(E)="1*78 0 " 4920 AUT$(G)="1*79 0 " 4930 AUT$(V)="1*80 0 " 4940 AUT$(4)="1*83 0 " 4950 ENDIF 4960 IF AT<ATPLM-4 THEN 4970 REPEAT 4980 LAST=B 4990 EXEC SKRIVSID 5000 EXEC INDSID 5010 IF LAST>B THEN EXEC RETSID 5020 UNTIL LAST<18 5030 ENDIF 5040 EXEC UDTRANS 5050 EXEC AUTTRANS 5060 EXEC UDATRANS 5070 AT=AT+4 5080 IF AT<ATPLM THEN 5090 SIDE$(E,E)=" " 5100 PUT FIL1$,UT:SIDE$(E) 5110 ENDIF 5120 ELSE 5130 PRINT "Lønmodtager ikke bogført" 5140 INPUT "RETURN",LINE$ 5150 ENDIF 5160 ELSE 5170 PRINT "Lønmodtager findes ikke" 5180 INPUT "RETURN",LINE$ 5190 ENDIF 5200 ENDIF 5210 UNTIL LMNR=B 5220 CLOSE FIL$ 5230 CLOSE FIL1$ 5240 CLOSE FIL5$ 5250 CHAIN "P641210:STARTB"
0x0000…0018 (0,) 8d6f 0100 PROC DATOCHECK(NR5,OK5)
0x0000…0018 LineComalBin {
0x0000…0018 ptr = 0x8d6f // 0x0 @0x0
0x0000…0018 lno = 0x0064 // 0x2 @0x2
0x0000…0018 at0004 = ╱9e╱ PROC ╱ // 0x4 @0x4
0x0000…0018 at0005 = ╱44╱D╱ // 0x5 @0x5
0x0000…0018 at0006 = ╱41╱A╱ // 0x6 @0x6
0x0000…0018 at0007 = ╱54╱T╱ // 0x7 @0x7
0x0000…0018 at0008 = ╱4f╱O╱ // 0x8 @0x8
0x0000…0018 at0009 = ╱43╱C╱ // 0x9 @0x9
0x0000…0018 at000a = ╱48╱H╱ // 0xa @0xa
0x0000…0018 at000b = ╱45╱E╱ // 0xb @0xb
0x0000…0018 at000c = ╱43╱C╱ // 0xc @0xc
0x0000…0018 at000d = ╱4b╱K╱ // 0xd @0xd
0x0000…0018 at000e = ╱ed╱(╱ // 0xe @0xe
0x0000…0018 at000f = ╱4e╱N╱ // 0xf @0xf
0x0000…0018 at0010 = ╱52╱R╱ // 0x10 @0x10
0x0000…0018 at0011 = ╱35╱5╱ // 0x11 @0x11
0x0000…0018 at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…0018 at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…0018 at0014 = ╱4b╱K╱ // 0x14 @0x14
0x0000…0018 at0015 = ╱35╱5╱ // 0x15 @0x15
0x0000…0018 at0016 = ╱ee╱)╱ // 0x16 @0x16
0x0000…0018 at0017 = EOL // 0x17 @0x17
0x0000…0018 }
0x0018…0022 8d79 0110 OK5=E
0x0018…0022 LineComalBin {
0x0018…0022 ptr = 0x8d79 // 0x18 @0x0
0x0018…0022 lno = 0x006e // 0x1a @0x2
0x0018…0022 at0004 = ╱4f╱O╱ // 0x1c @0x4
0x0018…0022 at0005 = ╱4b╱K╱ // 0x1d @0x5
0x0018…0022 at0006 = ╱35╱5╱ // 0x1e @0x6
0x0018…0022 at0007 = ╱dc╱=╱ // 0x1f @0x7
0x0018…0022 at0008 = ╱45╱E╱ // 0x20 @0x8
0x0018…0022 at0009 = EOL // 0x21 @0x9
0x0018…0022 }
0x0022…0059 8db0 0120 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48
0x0022…0059 LineComalBin {
0x0022…0059 ptr = 0x8db0 // 0x22 @0x0
0x0022…0059 lno = 0x0078 // 0x24 @0x2
0x0022…0059 at0004 = ╱5d╱Å╱ // 0x26 @0x4
0x0022…0059 at0005 = ╱52╱R╱ // 0x27 @0x5
0x0022…0059 at0006 = ╱dc╱=╱ // 0x28 @0x6
0x0022…0059 at0007 = ╱ed╱(╱ // 0x29 @0x7
0x0022…0059 at0008 = ╱cd╱ORD╱ // 0x2a @0x8
0x0022…0059 at0009 = ╱ed╱(╱ // 0x2b @0x9
0x0022…0059 at000a = ╱4e╱N╱ // 0x2c @0xa
0x0022…0059 at000b = ╱52╱R╱ // 0x2d @0xb
0x0022…0059 at000c = ╱35╱5╱ // 0x2e @0xc
0x0022…0059 at000d = ╱ef╱$╱ // 0x2f @0xd
0x0022…0059 at000e = ╱ed╱(╱ // 0x30 @0xe
0x0022…0059 at000f = ╱45╱E╱ // 0x31 @0xf
0x0022…0059 at0010 = ╱ee╱)╱ // 0x32 @0x10
0x0022…0059 at0011 = ╱ee╱)╱ // 0x33 @0x11
0x0022…0059 at0012 = ╱e3╱-╱ // 0x34 @0x12
0x0022…0059 at0013 = ╱34╱4╱ // 0x35 @0x13
0x0022…0059 at0014 = ╱38╱8╱ // 0x36 @0x14
0x0022…0059 at0015 = ╱fe0000c006╱ // 0x37 @0x15
0x0022…0059 at001a = ╱ee╱)╱ // 0x3c @0x1a
0x0022…0059 at001b = ╱e4╱*╱ // 0x3d @0x1b
0x0022…0059 at001c = ╱31╱1╱ // 0x3e @0x1c
0x0022…0059 at001d = ╱30╱0╱ // 0x3f @0x1d
0x0022…0059 at001e = ╱fe0000a004╱ // 0x40 @0x1e
0x0022…0059 at0023 = ╱e2╱+╱ // 0x45 @0x23
0x0022…0059 at0024 = ╱cd╱ORD╱ // 0x46 @0x24
0x0022…0059 at0025 = ╱ed╱(╱ // 0x47 @0x25
0x0022…0059 at0026 = ╱4e╱N╱ // 0x48 @0x26
0x0022…0059 at0027 = ╱52╱R╱ // 0x49 @0x27
0x0022…0059 at0028 = ╱35╱5╱ // 0x4a @0x28
0x0022…0059 at0029 = ╱ef╱$╱ // 0x4b @0x29
0x0022…0059 at002a = ╱ed╱(╱ // 0x4c @0x2a
0x0022…0059 at002b = ╱47╱G╱ // 0x4d @0x2b
0x0022…0059 at002c = ╱ee╱)╱ // 0x4e @0x2c
0x0022…0059 at002d = ╱ee╱)╱ // 0x4f @0x2d
0x0022…0059 at002e = ╱e3╱-╱ // 0x50 @0x2e
0x0022…0059 at002f = ╱34╱4╱ // 0x51 @0x2f
0x0022…0059 at0030 = ╱38╱8╱ // 0x52 @0x30
0x0022…0059 at0031 = ╱fe0000c006╱ // 0x53 @0x31
0x0022…0059 at0036 = EOL // 0x58 @0x36
0x0022…0059 }
0x0059…0098 8def 0130 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48
0x0059…0098 LineComalBin {
0x0059…0098 ptr = 0x8def // 0x59 @0x0
0x0059…0098 lno = 0x0082 // 0x5b @0x2
0x0059…0098 at0004 = ╱4d╱M╱ // 0x5d @0x4
0x0059…0098 at0005 = ╱5d╱Å╱ // 0x5e @0x5
0x0059…0098 at0006 = ╱4e╱N╱ // 0x5f @0x6
0x0059…0098 at0007 = ╱45╱E╱ // 0x60 @0x7
0x0059…0098 at0008 = ╱44╱D╱ // 0x61 @0x8
0x0059…0098 at0009 = ╱dc╱=╱ // 0x62 @0x9
0x0059…0098 at000a = ╱ed╱(╱ // 0x63 @0xa
0x0059…0098 at000b = ╱cd╱ORD╱ // 0x64 @0xb
0x0059…0098 at000c = ╱ed╱(╱ // 0x65 @0xc
0x0059…0098 at000d = ╱4e╱N╱ // 0x66 @0xd
0x0059…0098 at000e = ╱52╱R╱ // 0x67 @0xe
0x0059…0098 at000f = ╱35╱5╱ // 0x68 @0xf
0x0059…0098 at0010 = ╱ef╱$╱ // 0x69 @0x10
0x0059…0098 at0011 = ╱ed╱(╱ // 0x6a @0x11
0x0059…0098 at0012 = ╱56╱V╱ // 0x6b @0x12
0x0059…0098 at0013 = ╱ee╱)╱ // 0x6c @0x13
0x0059…0098 at0014 = ╱ee╱)╱ // 0x6d @0x14
0x0059…0098 at0015 = ╱e3╱-╱ // 0x6e @0x15
0x0059…0098 at0016 = ╱34╱4╱ // 0x6f @0x16
0x0059…0098 at0017 = ╱38╱8╱ // 0x70 @0x17
0x0059…0098 at0018 = ╱fe0000c006╱ // 0x71 @0x18
0x0059…0098 at001d = ╱ee╱)╱ // 0x76 @0x1d
0x0059…0098 at001e = ╱e4╱*╱ // 0x77 @0x1e
0x0059…0098 at001f = ╱31╱1╱ // 0x78 @0x1f
0x0059…0098 at0020 = ╱30╱0╱ // 0x79 @0x20
0x0059…0098 at0021 = ╱fe0000a004╱ // 0x7a @0x21
0x0059…0098 at0026 = ╱e2╱+╱ // 0x7f @0x26
0x0059…0098 at0027 = ╱cd╱ORD╱ // 0x80 @0x27
0x0059…0098 at0028 = ╱ed╱(╱ // 0x81 @0x28
0x0059…0098 at0029 = ╱4e╱N╱ // 0x82 @0x29
0x0059…0098 at002a = ╱52╱R╱ // 0x83 @0x2a
0x0059…0098 at002b = ╱35╱5╱ // 0x84 @0x2b
0x0059…0098 at002c = ╱ef╱$╱ // 0x85 @0x2c
0x0059…0098 at002d = ╱ed╱(╱ // 0x86 @0x2d
0x0059…0098 at002e = ╱34╱4╱ // 0x87 @0x2e
0x0059…0098 at002f = ╱fe00008003╱ // 0x88 @0x2f
0x0059…0098 at0034 = ╱ee╱)╱ // 0x8d @0x34
0x0059…0098 at0035 = ╱ee╱)╱ // 0x8e @0x35
0x0059…0098 at0036 = ╱e3╱-╱ // 0x8f @0x36
0x0059…0098 at0037 = ╱34╱4╱ // 0x90 @0x37
0x0059…0098 at0038 = ╱38╱8╱ // 0x91 @0x38
0x0059…0098 at0039 = ╱fe0000c006╱ // 0x92 @0x39
0x0059…0098 at003e = EOL // 0x97 @0x3e
0x0059…0098 }
0x0098…00db 8e32 0140 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48
0x0098…00db LineComalBin {
0x0098…00db ptr = 0x8e32 // 0x98 @0x0
0x0098…00db lno = 0x008c // 0x9a @0x2
0x0098…00db at0004 = ╱44╱D╱ // 0x9c @0x4
0x0098…00db at0005 = ╱41╱A╱ // 0x9d @0x5
0x0098…00db at0006 = ╱54╱T╱ // 0x9e @0x6
0x0098…00db at0007 = ╱4f╱O╱ // 0x9f @0x7
0x0098…00db at0008 = ╱dc╱=╱ // 0xa0 @0x8
0x0098…00db at0009 = ╱ed╱(╱ // 0xa1 @0x9
0x0098…00db at000a = ╱cd╱ORD╱ // 0xa2 @0xa
0x0098…00db at000b = ╱ed╱(╱ // 0xa3 @0xb
0x0098…00db at000c = ╱4e╱N╱ // 0xa4 @0xc
0x0098…00db at000d = ╱52╱R╱ // 0xa5 @0xd
0x0098…00db at000e = ╱35╱5╱ // 0xa6 @0xe
0x0098…00db at000f = ╱ef╱$╱ // 0xa7 @0xf
0x0098…00db at0010 = ╱ed╱(╱ // 0xa8 @0x10
0x0098…00db at0011 = ╱35╱5╱ // 0xa9 @0x11
0x0098…00db at0012 = ╱fe0000a003╱ // 0xaa @0x12
0x0098…00db at0017 = ╱ee╱)╱ // 0xaf @0x17
0x0098…00db at0018 = ╱ee╱)╱ // 0xb0 @0x18
0x0098…00db at0019 = ╱e3╱-╱ // 0xb1 @0x19
0x0098…00db at001a = ╱34╱4╱ // 0xb2 @0x1a
0x0098…00db at001b = ╱38╱8╱ // 0xb3 @0x1b
0x0098…00db at001c = ╱fe0000c006╱ // 0xb4 @0x1c
0x0098…00db at0021 = ╱ee╱)╱ // 0xb9 @0x21
0x0098…00db at0022 = ╱e4╱*╱ // 0xba @0x22
0x0098…00db at0023 = ╱31╱1╱ // 0xbb @0x23
0x0098…00db at0024 = ╱30╱0╱ // 0xbc @0x24
0x0098…00db at0025 = ╱fe0000a004╱ // 0xbd @0x25
0x0098…00db at002a = ╱e2╱+╱ // 0xc2 @0x2a
0x0098…00db at002b = ╱cd╱ORD╱ // 0xc3 @0x2b
0x0098…00db at002c = ╱ed╱(╱ // 0xc4 @0x2c
0x0098…00db at002d = ╱4e╱N╱ // 0xc5 @0x2d
0x0098…00db at002e = ╱52╱R╱ // 0xc6 @0x2e
0x0098…00db at002f = ╱35╱5╱ // 0xc7 @0x2f
0x0098…00db at0030 = ╱ef╱$╱ // 0xc8 @0x30
0x0098…00db at0031 = ╱ed╱(╱ // 0xc9 @0x31
0x0098…00db at0032 = ╱36╱6╱ // 0xca @0x32
0x0098…00db at0033 = ╱fe0000c003╱ // 0xcb @0x33
0x0098…00db at0038 = ╱ee╱)╱ // 0xd0 @0x38
0x0098…00db at0039 = ╱ee╱)╱ // 0xd1 @0x39
0x0098…00db at003a = ╱e3╱-╱ // 0xd2 @0x3a
0x0098…00db at003b = ╱34╱4╱ // 0xd3 @0x3b
0x0098…00db at003c = ╱38╱8╱ // 0xd4 @0x3c
0x0098…00db at003d = ╱fe0000c006╱ // 0xd5 @0x3d
0x0098…00db at0042 = EOL // 0xda @0x42
0x0098…00db }
0x00db…0110 8e67 0150 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B
0x00db…0110 LineComalBin {
0x00db…0110 ptr = 0x8e67 // 0xdb @0x0
0x00db…0110 lno = 0x0096 // 0xdd @0x2
0x00db…0110 at0004 = ╱82╱ IF ╱ // 0xdf @0x4
0x00db…0110 at0005 = ╱44╱D╱ // 0xe0 @0x5
0x00db…0110 at0006 = ╱41╱A╱ // 0xe1 @0x6
0x00db…0110 at0007 = ╱54╱T╱ // 0xe2 @0x7
0x00db…0110 at0008 = ╱4f╱O╱ // 0xe3 @0x8
0x00db…0110 at0009 = ╱dd╱<╱ // 0xe4 @0x9
0x00db…0110 at000a = ╱45╱E╱ // 0xe5 @0xa
0x00db…0110 at000b = ╱db╱ OR ╱ // 0xe6 @0xb
0x00db…0110 at000c = ╱4d╱M╱ // 0xe7 @0xc
0x00db…0110 at000d = ╱5d╱Å╱ // 0xe8 @0xd
0x00db…0110 at000e = ╱4e╱N╱ // 0xe9 @0xe
0x00db…0110 at000f = ╱45╱E╱ // 0xea @0xf
0x00db…0110 at0010 = ╱44╱D╱ // 0xeb @0x10
0x00db…0110 at0011 = ╱dd╱<╱ // 0xec @0x11
0x00db…0110 at0012 = ╱45╱E╱ // 0xed @0x12
0x00db…0110 at0013 = ╱db╱ OR ╱ // 0xee @0x13
0x00db…0110 at0014 = ╱4d╱M╱ // 0xef @0x14
0x00db…0110 at0015 = ╱5d╱Å╱ // 0xf0 @0x15
0x00db…0110 at0016 = ╱4e╱N╱ // 0xf1 @0x16
0x00db…0110 at0017 = ╱45╱E╱ // 0xf2 @0x17
0x00db…0110 at0018 = ╱44╱D╱ // 0xf3 @0x18
0x00db…0110 at0019 = ╱de╱>╱ // 0xf4 @0x19
0x00db…0110 at001a = ╱31╱1╱ // 0xf5 @0x1a
0x00db…0110 at001b = ╱32╱2╱ // 0xf6 @0x1b
0x00db…0110 at001c = ╱fe0000c004╱ // 0xf7 @0x1c
0x00db…0110 at0021 = ╱db╱ OR ╱ // 0xfc @0x21
0x00db…0110 at0022 = ╱44╱D╱ // 0xfd @0x22
0x00db…0110 at0023 = ╱41╱A╱ // 0xfe @0x23
0x00db…0110 at0024 = ╱54╱T╱ // 0xff @0x24
0x00db…0110 at0025 = ╱4f╱O╱ // 0x100 @0x25
0x00db…0110 at0026 = ╱de╱>╱ // 0x101 @0x26
0x00db…0110 at0027 = ╱33╱3╱ // 0x102 @0x27
0x00db…0110 at0028 = ╱31╱1╱ // 0x103 @0x28
0x00db…0110 at0029 = ╱fe0000f805╱ // 0x104 @0x29
0x00db…0110 at002e = ╱b6╱ THEN ╱ // 0x109 @0x2e
0x00db…0110 at002f = ╱4f╱O╱ // 0x10a @0x2f
0x00db…0110 at0030 = ╱4b╱K╱ // 0x10b @0x30
0x00db…0110 at0031 = ╱35╱5╱ // 0x10c @0x31
0x00db…0110 at0032 = ╱dc╱=╱ // 0x10d @0x32
0x00db…0110 at0033 = ╱42╱B╱ // 0x10e @0x33
0x00db…0110 at0034 = EOL // 0x10f @0x34
0x00db…0110 }
0x0110…011d 8e74 0160 IF OK5=B THEN EXIT
0x0110…011d LineComalBin {
0x0110…011d ptr = 0x8e74 // 0x110 @0x0
0x0110…011d lno = 0x00a0 // 0x112 @0x2
0x0110…011d at0004 = ╱82╱ IF ╱ // 0x114 @0x4
0x0110…011d at0005 = ╱4f╱O╱ // 0x115 @0x5
0x0110…011d at0006 = ╱4b╱K╱ // 0x116 @0x6
0x0110…011d at0007 = ╱35╱5╱ // 0x117 @0x7
0x0110…011d at0008 = ╱dc╱=╱ // 0x118 @0x8
0x0110…011d at0009 = ╱42╱B╱ // 0x119 @0x9
0x0110…011d at000a = ╱b6╱ THEN ╱ // 0x11a @0xa
0x0110…011d at000b = ╱99╱ EXIT ╱ // 0x11b @0xb
0x0110…011d at000c = EOL // 0x11c @0xc
0x0110…011d }
0x011d…012a 8e81 0170 CASE MÅNED OF
0x011d…012a LineComalBin {
0x011d…012a ptr = 0x8e81 // 0x11d @0x0
0x011d…012a lno = 0x00aa // 0x11f @0x2
0x011d…012a at0004 = ╱a201╱ CASE ╱ // 0x121 @0x4
0x011d…012a at0006 = ╱4d╱M╱ // 0x123 @0x6
0x011d…012a at0007 = ╱5d╱Å╱ // 0x124 @0x7
0x011d…012a at0008 = ╱4e╱N╱ // 0x125 @0x8
0x011d…012a at0009 = ╱45╱E╱ // 0x126 @0x9
0x011d…012a at000a = ╱44╱D╱ // 0x127 @0xa
0x011d…012a at000b = ╱ba╱ OF ╱ // 0x128 @0xb
0x011d…012a at000c = EOL // 0x129 @0xc
0x011d…012a }
0x012a…0148 8e9f 0180 WHEN 4,6,W,11
0x012a…0148 LineComalBin {
0x012a…0148 ptr = 0x8e9f // 0x12a @0x0
0x012a…0148 lno = 0x00b4 // 0x12c @0x2
0x012a…0148 at0004 = ╱a301╱ WHEN ╱ // 0x12e @0x4
0x012a…0148 at0006 = ╱34╱4╱ // 0x130 @0x6
0x012a…0148 at0007 = ╱fe00008003╱ // 0x131 @0x7
0x012a…0148 at000c = ╱ec╱,╱ // 0x136 @0xc
0x012a…0148 at000d = ╱36╱6╱ // 0x137 @0xd
0x012a…0148 at000e = ╱fe0000c003╱ // 0x138 @0xe
0x012a…0148 at0013 = ╱ec╱,╱ // 0x13d @0x13
0x012a…0148 at0014 = ╱57╱W╱ // 0x13e @0x14
0x012a…0148 at0015 = ╱ec╱,╱ // 0x13f @0x15
0x012a…0148 at0016 = ╱31╱1╱ // 0x140 @0x16
0x012a…0148 at0017 = ╱31╱1╱ // 0x141 @0x17
0x012a…0148 at0018 = ╱fe0000b004╱ // 0x142 @0x18
0x012a…0148 at001d = EOL // 0x147 @0x1d
0x012a…0148 }
0x0148…0160 8eb7 0190 IF DATO>30 THEN OK5=B
0x0148…0160 LineComalBin {
0x0148…0160 ptr = 0x8eb7 // 0x148 @0x0
0x0148…0160 lno = 0x00be // 0x14a @0x2
0x0148…0160 at0004 = ╱82╱ IF ╱ // 0x14c @0x4
0x0148…0160 at0005 = ╱44╱D╱ // 0x14d @0x5
0x0148…0160 at0006 = ╱41╱A╱ // 0x14e @0x6
0x0148…0160 at0007 = ╱54╱T╱ // 0x14f @0x7
0x0148…0160 at0008 = ╱4f╱O╱ // 0x150 @0x8
0x0148…0160 at0009 = ╱de╱>╱ // 0x151 @0x9
0x0148…0160 at000a = ╱33╱3╱ // 0x152 @0xa
0x0148…0160 at000b = ╱30╱0╱ // 0x153 @0xb
0x0148…0160 at000c = ╱fe0000f005╱ // 0x154 @0xc
0x0148…0160 at0011 = ╱b6╱ THEN ╱ // 0x159 @0x11
0x0148…0160 at0012 = ╱4f╱O╱ // 0x15a @0x12
0x0148…0160 at0013 = ╱4b╱K╱ // 0x15b @0x13
0x0148…0160 at0014 = ╱35╱5╱ // 0x15c @0x14
0x0148…0160 at0015 = ╱dc╱=╱ // 0x15d @0x15
0x0148…0160 at0016 = ╱42╱B╱ // 0x15e @0x16
0x0148…0160 at0017 = EOL // 0x15f @0x17
0x0148…0160 }
0x0160…0168 8ebf 0200 WHEN G
0x0160…0168 LineComalBin {
0x0160…0168 ptr = 0x8ebf // 0x160 @0x0
0x0160…0168 lno = 0x00c8 // 0x162 @0x2
0x0160…0168 at0004 = ╱a301╱ WHEN ╱ // 0x164 @0x4
0x0160…0168 at0006 = ╱47╱G╱ // 0x166 @0x6
0x0160…0168 at0007 = EOL // 0x167 @0x7
0x0160…0168 }
0x0168…0180 8ed7 0210 IF DATO>29 THEN OK5=B
0x0168…0180 LineComalBin {
0x0168…0180 ptr = 0x8ed7 // 0x168 @0x0
0x0168…0180 lno = 0x00d2 // 0x16a @0x2
0x0168…0180 at0004 = ╱82╱ IF ╱ // 0x16c @0x4
0x0168…0180 at0005 = ╱44╱D╱ // 0x16d @0x5
0x0168…0180 at0006 = ╱41╱A╱ // 0x16e @0x6
0x0168…0180 at0007 = ╱54╱T╱ // 0x16f @0x7
0x0168…0180 at0008 = ╱4f╱O╱ // 0x170 @0x8
0x0168…0180 at0009 = ╱de╱>╱ // 0x171 @0x9
0x0168…0180 at000a = ╱32╱2╱ // 0x172 @0xa
0x0168…0180 at000b = ╱39╱9╱ // 0x173 @0xb
0x0168…0180 at000c = ╱fe0000e805╱ // 0x174 @0xc
0x0168…0180 at0011 = ╱b6╱ THEN ╱ // 0x179 @0x11
0x0168…0180 at0012 = ╱4f╱O╱ // 0x17a @0x12
0x0168…0180 at0013 = ╱4b╱K╱ // 0x17b @0x13
0x0168…0180 at0014 = ╱35╱5╱ // 0x17c @0x14
0x0168…0180 at0015 = ╱dc╱=╱ // 0x17d @0x15
0x0168…0180 at0016 = ╱42╱B╱ // 0x17e @0x16
0x0168…0180 at0017 = EOL // 0x17f @0x17
0x0168…0180 }
0x0180…01a4 8efb 0220 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B
0x0180…01a4 LineComalBin {
0x0180…01a4 ptr = 0x8efb // 0x180 @0x0
0x0180…01a4 lno = 0x00dc // 0x182 @0x2
0x0180…01a4 at0004 = ╱82╱ IF ╱ // 0x184 @0x4
0x0180…01a4 at0005 = ╱44╱D╱ // 0x185 @0x5
0x0180…01a4 at0006 = ╱41╱A╱ // 0x186 @0x6
0x0180…01a4 at0007 = ╱54╱T╱ // 0x187 @0x7
0x0180…01a4 at0008 = ╱4f╱O╱ // 0x188 @0x8
0x0180…01a4 at0009 = ╱dc╱=╱ // 0x189 @0x9
0x0180…01a4 at000a = ╱32╱2╱ // 0x18a @0xa
0x0180…01a4 at000b = ╱39╱9╱ // 0x18b @0xb
0x0180…01a4 at000c = ╱fe0000e805╱ // 0x18c @0xc
0x0180…01a4 at0011 = ╱da╱ AND ╱ // 0x191 @0x11
0x0180…01a4 at0012 = ╱5d╱Å╱ // 0x192 @0x12
0x0180…01a4 at0013 = ╱52╱R╱ // 0x193 @0x13
0x0180…01a4 at0014 = ╱e8╱ MOD ╱ // 0x194 @0x14
0x0180…01a4 at0015 = ╱34╱4╱ // 0x195 @0x15
0x0180…01a4 at0016 = ╱fe00008003╱ // 0x196 @0x16
0x0180…01a4 at001b = ╱e1╱<>╱ // 0x19b @0x1b
0x0180…01a4 at001c = ╱42╱B╱ // 0x19c @0x1c
0x0180…01a4 at001d = ╱b6╱ THEN ╱ // 0x19d @0x1d
0x0180…01a4 at001e = ╱4f╱O╱ // 0x19e @0x1e
0x0180…01a4 at001f = ╱4b╱K╱ // 0x19f @0x1f
0x0180…01a4 at0020 = ╱35╱5╱ // 0x1a0 @0x20
0x0180…01a4 at0021 = ╱dc╱=╱ // 0x1a1 @0x21
0x0180…01a4 at0022 = ╱42╱B╱ // 0x1a2 @0x22
0x0180…01a4 at0023 = EOL // 0x1a3 @0x23
0x0180…01a4 }
0x01a4…01aa 8f01 0230 ENDCASE
0x01a4…01aa LineComalBin {
0x01a4…01aa ptr = 0x8f01 // 0x1a4 @0x0
0x01a4…01aa lno = 0x00e6 // 0x1a6 @0x2
0x01a4…01aa at0004 = ╱a4╱ ENDCASE ╱ // 0x1a8 @0x4
0x01a4…01aa at0005 = EOL // 0x1a9 @0x5
0x01a4…01aa }
0x01aa…01b0 8f07 0240 ENDPROC
0x01aa…01b0 LineComalBin {
0x01aa…01b0 ptr = 0x8f07 // 0x1aa @0x0
0x01aa…01b0 lno = 0x00f0 // 0x1ac @0x2
0x01aa…01b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1ae @0x4
0x01aa…01b0 at0005 = EOL // 0x1af @0x5
0x01aa…01b0 }
0x01b0…0219 8f70 0250 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12),MAX$(12),MAX1$(12)
0x01b0…0219 LineComalBin {
0x01b0…0219 ptr = 0x8f70 // 0x1b0 @0x0
0x01b0…0219 lno = 0x00fa // 0x1b2 @0x2
0x01b0…0219 at0004 = ╱87╱ DIM ╱ // 0x1b4 @0x4
0x01b0…0219 at0005 = ╱52╱R╱ // 0x1b5 @0x5
0x01b0…0219 at0006 = ╱45╱E╱ // 0x1b6 @0x6
0x01b0…0219 at0007 = ╱53╱S╱ // 0x1b7 @0x7
0x01b0…0219 at0008 = ╱ef╱$╱ // 0x1b8 @0x8
0x01b0…0219 at0009 = ╱ed╱(╱ // 0x1b9 @0x9
0x01b0…0219 at000a = ╱31╱1╱ // 0x1ba @0xa
0x01b0…0219 at000b = ╱35╱5╱ // 0x1bb @0xb
0x01b0…0219 at000c = ╱fe0000f004╱ // 0x1bc @0xc
0x01b0…0219 at0011 = ╱ee╱)╱ // 0x1c1 @0x11
0x01b0…0219 at0012 = ╱ec╱,╱ // 0x1c2 @0x12
0x01b0…0219 at0013 = ╱4f╱O╱ // 0x1c3 @0x13
0x01b0…0219 at0014 = ╱50╱P╱ // 0x1c4 @0x14
0x01b0…0219 at0015 = ╱31╱1╱ // 0x1c5 @0x15
0x01b0…0219 at0016 = ╱ef╱$╱ // 0x1c6 @0x16
0x01b0…0219 at0017 = ╱ed╱(╱ // 0x1c7 @0x17
0x01b0…0219 at0018 = ╱31╱1╱ // 0x1c8 @0x18
0x01b0…0219 at0019 = ╱32╱2╱ // 0x1c9 @0x19
0x01b0…0219 at001a = ╱fe0000c004╱ // 0x1ca @0x1a
0x01b0…0219 at001f = ╱ee╱)╱ // 0x1cf @0x1f
0x01b0…0219 at0020 = ╱ec╱,╱ // 0x1d0 @0x20
0x01b0…0219 at0021 = ╱4f╱O╱ // 0x1d1 @0x21
0x01b0…0219 at0022 = ╱50╱P╱ // 0x1d2 @0x22
0x01b0…0219 at0023 = ╱32╱2╱ // 0x1d3 @0x23
0x01b0…0219 at0024 = ╱ef╱$╱ // 0x1d4 @0x24
0x01b0…0219 at0025 = ╱ed╱(╱ // 0x1d5 @0x25
0x01b0…0219 at0026 = ╱31╱1╱ // 0x1d6 @0x26
0x01b0…0219 at0027 = ╱32╱2╱ // 0x1d7 @0x27
0x01b0…0219 at0028 = ╱fe0000c004╱ // 0x1d8 @0x28
0x01b0…0219 at002d = ╱ee╱)╱ // 0x1dd @0x2d
0x01b0…0219 at002e = ╱ec╱,╱ // 0x1de @0x2e
0x01b0…0219 at002f = ╱54╱T╱ // 0x1df @0x2f
0x01b0…0219 at0030 = ╱41╱A╱ // 0x1e0 @0x30
0x01b0…0219 at0031 = ╱48╱H╱ // 0x1e1 @0x31
0x01b0…0219 at0032 = ╱ef╱$╱ // 0x1e2 @0x32
0x01b0…0219 at0033 = ╱ed╱(╱ // 0x1e3 @0x33
0x01b0…0219 at0034 = ╱31╱1╱ // 0x1e4 @0x34
0x01b0…0219 at0035 = ╱32╱2╱ // 0x1e5 @0x35
0x01b0…0219 at0036 = ╱fe0000c004╱ // 0x1e6 @0x36
0x01b0…0219 at003b = ╱ee╱)╱ // 0x1eb @0x3b
0x01b0…0219 at003c = ╱ec╱,╱ // 0x1ec @0x3c
0x01b0…0219 at003d = ╱48╱H╱ // 0x1ed @0x3d
0x01b0…0219 at003e = ╱55╱U╱ // 0x1ee @0x3e
0x01b0…0219 at003f = ╱4e╱N╱ // 0x1ef @0x3f
0x01b0…0219 at0040 = ╱44╱D╱ // 0x1f0 @0x40
0x01b0…0219 at0041 = ╱ef╱$╱ // 0x1f1 @0x41
0x01b0…0219 at0042 = ╱ed╱(╱ // 0x1f2 @0x42
0x01b0…0219 at0043 = ╱31╱1╱ // 0x1f3 @0x43
0x01b0…0219 at0044 = ╱32╱2╱ // 0x1f4 @0x44
0x01b0…0219 at0045 = ╱fe0000c004╱ // 0x1f5 @0x45
0x01b0…0219 at004a = ╱ee╱)╱ // 0x1fa @0x4a
0x01b0…0219 at004b = ╱ec╱,╱ // 0x1fb @0x4b
0x01b0…0219 at004c = ╱4d╱M╱ // 0x1fc @0x4c
0x01b0…0219 at004d = ╱41╱A╱ // 0x1fd @0x4d
0x01b0…0219 at004e = ╱58╱X╱ // 0x1fe @0x4e
0x01b0…0219 at004f = ╱ef╱$╱ // 0x1ff @0x4f
0x01b0…0219 at0050 = ╱ed╱(╱ // 0x200 @0x50
0x01b0…0219 at0051 = ╱31╱1╱ // 0x201 @0x51
0x01b0…0219 at0052 = ╱32╱2╱ // 0x202 @0x52
0x01b0…0219 at0053 = ╱fe0000c004╱ // 0x203 @0x53
0x01b0…0219 at0058 = ╱ee╱)╱ // 0x208 @0x58
0x01b0…0219 at0059 = ╱ec╱,╱ // 0x209 @0x59
0x01b0…0219 at005a = ╱4d╱M╱ // 0x20a @0x5a
0x01b0…0219 at005b = ╱41╱A╱ // 0x20b @0x5b
0x01b0…0219 at005c = ╱58╱X╱ // 0x20c @0x5c
0x01b0…0219 at005d = ╱31╱1╱ // 0x20d @0x5d
0x01b0…0219 at005e = ╱ef╱$╱ // 0x20e @0x5e
0x01b0…0219 at005f = ╱ed╱(╱ // 0x20f @0x5f
0x01b0…0219 at0060 = ╱31╱1╱ // 0x210 @0x60
0x01b0…0219 at0061 = ╱32╱2╱ // 0x211 @0x61
0x01b0…0219 at0062 = ╱fe0000c004╱ // 0x212 @0x62
0x01b0…0219 at0067 = ╱ee╱)╱ // 0x217 @0x67
0x01b0…0219 at0068 = EOL // 0x218 @0x68
0x01b0…0219 }
0x0219…026b 8fc2 0260 DIM RESUL$(12),RESUL1$(12),PR$(14),LINE$(20),POST6$(29)
0x0219…026b LineComalBin {
0x0219…026b ptr = 0x8fc2 // 0x219 @0x0
0x0219…026b lno = 0x0104 // 0x21b @0x2
0x0219…026b at0004 = ╱87╱ DIM ╱ // 0x21d @0x4
0x0219…026b at0005 = ╱52╱R╱ // 0x21e @0x5
0x0219…026b at0006 = ╱45╱E╱ // 0x21f @0x6
0x0219…026b at0007 = ╱53╱S╱ // 0x220 @0x7
0x0219…026b at0008 = ╱55╱U╱ // 0x221 @0x8
0x0219…026b at0009 = ╱4c╱L╱ // 0x222 @0x9
0x0219…026b at000a = ╱ef╱$╱ // 0x223 @0xa
0x0219…026b at000b = ╱ed╱(╱ // 0x224 @0xb
0x0219…026b at000c = ╱31╱1╱ // 0x225 @0xc
0x0219…026b at000d = ╱32╱2╱ // 0x226 @0xd
0x0219…026b at000e = ╱fe0000c004╱ // 0x227 @0xe
0x0219…026b at0013 = ╱ee╱)╱ // 0x22c @0x13
0x0219…026b at0014 = ╱ec╱,╱ // 0x22d @0x14
0x0219…026b at0015 = ╱52╱R╱ // 0x22e @0x15
0x0219…026b at0016 = ╱45╱E╱ // 0x22f @0x16
0x0219…026b at0017 = ╱53╱S╱ // 0x230 @0x17
0x0219…026b at0018 = ╱55╱U╱ // 0x231 @0x18
0x0219…026b at0019 = ╱4c╱L╱ // 0x232 @0x19
0x0219…026b at001a = ╱31╱1╱ // 0x233 @0x1a
0x0219…026b at001b = ╱ef╱$╱ // 0x234 @0x1b
0x0219…026b at001c = ╱ed╱(╱ // 0x235 @0x1c
0x0219…026b at001d = ╱31╱1╱ // 0x236 @0x1d
0x0219…026b at001e = ╱32╱2╱ // 0x237 @0x1e
0x0219…026b at001f = ╱fe0000c004╱ // 0x238 @0x1f
0x0219…026b at0024 = ╱ee╱)╱ // 0x23d @0x24
0x0219…026b at0025 = ╱ec╱,╱ // 0x23e @0x25
0x0219…026b at0026 = ╱50╱P╱ // 0x23f @0x26
0x0219…026b at0027 = ╱52╱R╱ // 0x240 @0x27
0x0219…026b at0028 = ╱ef╱$╱ // 0x241 @0x28
0x0219…026b at0029 = ╱ed╱(╱ // 0x242 @0x29
0x0219…026b at002a = ╱31╱1╱ // 0x243 @0x2a
0x0219…026b at002b = ╱34╱4╱ // 0x244 @0x2b
0x0219…026b at002c = ╱fe0000e004╱ // 0x245 @0x2c
0x0219…026b at0031 = ╱ee╱)╱ // 0x24a @0x31
0x0219…026b at0032 = ╱ec╱,╱ // 0x24b @0x32
0x0219…026b at0033 = ╱4c╱L╱ // 0x24c @0x33
0x0219…026b at0034 = ╱49╱I╱ // 0x24d @0x34
0x0219…026b at0035 = ╱4e╱N╱ // 0x24e @0x35
0x0219…026b at0036 = ╱45╱E╱ // 0x24f @0x36
0x0219…026b at0037 = ╱ef╱$╱ // 0x250 @0x37
0x0219…026b at0038 = ╱ed╱(╱ // 0x251 @0x38
0x0219…026b at0039 = ╱32╱2╱ // 0x252 @0x39
0x0219…026b at003a = ╱30╱0╱ // 0x253 @0x3a
0x0219…026b at003b = ╱fe0000a005╱ // 0x254 @0x3b
0x0219…026b at0040 = ╱ee╱)╱ // 0x259 @0x40
0x0219…026b at0041 = ╱ec╱,╱ // 0x25a @0x41
0x0219…026b at0042 = ╱50╱P╱ // 0x25b @0x42
0x0219…026b at0043 = ╱4f╱O╱ // 0x25c @0x43
0x0219…026b at0044 = ╱53╱S╱ // 0x25d @0x44
0x0219…026b at0045 = ╱54╱T╱ // 0x25e @0x45
0x0219…026b at0046 = ╱36╱6╱ // 0x25f @0x46
0x0219…026b at0047 = ╱ef╱$╱ // 0x260 @0x47
0x0219…026b at0048 = ╱ed╱(╱ // 0x261 @0x48
0x0219…026b at0049 = ╱32╱2╱ // 0x262 @0x49
0x0219…026b at004a = ╱39╱9╱ // 0x263 @0x4a
0x0219…026b at004b = ╱fe0000e805╱ // 0x264 @0x4b
0x0219…026b at0050 = ╱ee╱)╱ // 0x269 @0x50
0x0219…026b at0051 = EOL // 0x26a @0x51
0x0219…026b }
0x026b…02cd 9024 0270 DIM FIL$(20),FIL1$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34)
0x026b…02cd LineComalBin {
0x026b…02cd ptr = 0x9024 // 0x26b @0x0
0x026b…02cd lno = 0x010e // 0x26d @0x2
0x026b…02cd at0004 = ╱87╱ DIM ╱ // 0x26f @0x4
0x026b…02cd at0005 = ╱46╱F╱ // 0x270 @0x5
0x026b…02cd at0006 = ╱49╱I╱ // 0x271 @0x6
0x026b…02cd at0007 = ╱4c╱L╱ // 0x272 @0x7
0x026b…02cd at0008 = ╱ef╱$╱ // 0x273 @0x8
0x026b…02cd at0009 = ╱ed╱(╱ // 0x274 @0x9
0x026b…02cd at000a = ╱32╱2╱ // 0x275 @0xa
0x026b…02cd at000b = ╱30╱0╱ // 0x276 @0xb
0x026b…02cd at000c = ╱fe0000a005╱ // 0x277 @0xc
0x026b…02cd at0011 = ╱ee╱)╱ // 0x27c @0x11
0x026b…02cd at0012 = ╱ec╱,╱ // 0x27d @0x12
0x026b…02cd at0013 = ╱46╱F╱ // 0x27e @0x13
0x026b…02cd at0014 = ╱49╱I╱ // 0x27f @0x14
0x026b…02cd at0015 = ╱4c╱L╱ // 0x280 @0x15
0x026b…02cd at0016 = ╱31╱1╱ // 0x281 @0x16
0x026b…02cd at0017 = ╱ef╱$╱ // 0x282 @0x17
0x026b…02cd at0018 = ╱ed╱(╱ // 0x283 @0x18
0x026b…02cd at0019 = ╱32╱2╱ // 0x284 @0x19
0x026b…02cd at001a = ╱30╱0╱ // 0x285 @0x1a
0x026b…02cd at001b = ╱fe0000a005╱ // 0x286 @0x1b
0x026b…02cd at0020 = ╱ee╱)╱ // 0x28b @0x20
0x026b…02cd at0021 = ╱ec╱,╱ // 0x28c @0x21
0x026b…02cd at0022 = ╱50╱P╱ // 0x28d @0x22
0x026b…02cd at0023 = ╱4f╱O╱ // 0x28e @0x23
0x026b…02cd at0024 = ╱53╱S╱ // 0x28f @0x24
0x026b…02cd at0025 = ╱54╱T╱ // 0x290 @0x25
0x026b…02cd at0026 = ╱31╱1╱ // 0x291 @0x26
0x026b…02cd at0027 = ╱ef╱$╱ // 0x292 @0x27
0x026b…02cd at0028 = ╱ed╱(╱ // 0x293 @0x28
0x026b…02cd at0029 = ╱37╱7╱ // 0x294 @0x29
0x026b…02cd at002a = ╱31╱1╱ // 0x295 @0x2a
0x026b…02cd at002b = ╱fe00008e07╱ // 0x296 @0x2b
0x026b…02cd at0030 = ╱ee╱)╱ // 0x29b @0x30
0x026b…02cd at0031 = ╱ec╱,╱ // 0x29c @0x31
0x026b…02cd at0032 = ╱50╱P╱ // 0x29d @0x32
0x026b…02cd at0033 = ╱4f╱O╱ // 0x29e @0x33
0x026b…02cd at0034 = ╱53╱S╱ // 0x29f @0x34
0x026b…02cd at0035 = ╱54╱T╱ // 0x2a0 @0x35
0x026b…02cd at0036 = ╱32╱2╱ // 0x2a1 @0x36
0x026b…02cd at0037 = ╱ef╱$╱ // 0x2a2 @0x37
0x026b…02cd at0038 = ╱ed╱(╱ // 0x2a3 @0x38
0x026b…02cd at0039 = ╱32╱2╱ // 0x2a4 @0x39
0x026b…02cd at003a = ╱37╱7╱ // 0x2a5 @0x3a
0x026b…02cd at003b = ╱fe0000d805╱ // 0x2a6 @0x3b
0x026b…02cd at0040 = ╱ee╱)╱ // 0x2ab @0x40
0x026b…02cd at0041 = ╱ec╱,╱ // 0x2ac @0x41
0x026b…02cd at0042 = ╱50╱P╱ // 0x2ad @0x42
0x026b…02cd at0043 = ╱4f╱O╱ // 0x2ae @0x43
0x026b…02cd at0044 = ╱53╱S╱ // 0x2af @0x44
0x026b…02cd at0045 = ╱54╱T╱ // 0x2b0 @0x45
0x026b…02cd at0046 = ╱33╱3╱ // 0x2b1 @0x46
0x026b…02cd at0047 = ╱ef╱$╱ // 0x2b2 @0x47
0x026b…02cd at0048 = ╱ed╱(╱ // 0x2b3 @0x48
0x026b…02cd at0049 = ╱35╱5╱ // 0x2b4 @0x49
0x026b…02cd at004a = ╱35╱5╱ // 0x2b5 @0x4a
0x026b…02cd at004b = ╱fe0000dc06╱ // 0x2b6 @0x4b
0x026b…02cd at0050 = ╱ee╱)╱ // 0x2bb @0x50
0x026b…02cd at0051 = ╱ec╱,╱ // 0x2bc @0x51
0x026b…02cd at0052 = ╱50╱P╱ // 0x2bd @0x52
0x026b…02cd at0053 = ╱4f╱O╱ // 0x2be @0x53
0x026b…02cd at0054 = ╱53╱S╱ // 0x2bf @0x54
0x026b…02cd at0055 = ╱54╱T╱ // 0x2c0 @0x55
0x026b…02cd at0056 = ╱34╱4╱ // 0x2c1 @0x56
0x026b…02cd at0057 = ╱ef╱$╱ // 0x2c2 @0x57
0x026b…02cd at0058 = ╱ed╱(╱ // 0x2c3 @0x58
0x026b…02cd at0059 = ╱33╱3╱ // 0x2c4 @0x59
0x026b…02cd at005a = ╱34╱4╱ // 0x2c5 @0x5a
0x026b…02cd at005b = ╱fe00008806╱ // 0x2c6 @0x5b
0x026b…02cd at0060 = ╱ee╱)╱ // 0x2cb @0x60
0x026b…02cd at0061 = EOL // 0x2cc @0x61
0x026b…02cd }
0x02cd…02f6 904d 0280 DIM AUT$(4,37),FIL5$(20)
0x02cd…02f6 LineComalBin {
0x02cd…02f6 ptr = 0x904d // 0x2cd @0x0
0x02cd…02f6 lno = 0x0118 // 0x2cf @0x2
0x02cd…02f6 at0004 = ╱87╱ DIM ╱ // 0x2d1 @0x4
0x02cd…02f6 at0005 = ╱41╱A╱ // 0x2d2 @0x5
0x02cd…02f6 at0006 = ╱55╱U╱ // 0x2d3 @0x6
0x02cd…02f6 at0007 = ╱54╱T╱ // 0x2d4 @0x7
0x02cd…02f6 at0008 = ╱ef╱$╱ // 0x2d5 @0x8
0x02cd…02f6 at0009 = ╱ed╱(╱ // 0x2d6 @0x9
0x02cd…02f6 at000a = ╱34╱4╱ // 0x2d7 @0xa
0x02cd…02f6 at000b = ╱fe00008003╱ // 0x2d8 @0xb
0x02cd…02f6 at0010 = ╱ec╱,╱ // 0x2dd @0x10
0x02cd…02f6 at0011 = ╱33╱3╱ // 0x2de @0x11
0x02cd…02f6 at0012 = ╱37╱7╱ // 0x2df @0x12
0x02cd…02f6 at0013 = ╱fe00009406╱ // 0x2e0 @0x13
0x02cd…02f6 at0018 = ╱ee╱)╱ // 0x2e5 @0x18
0x02cd…02f6 at0019 = ╱ec╱,╱ // 0x2e6 @0x19
0x02cd…02f6 at001a = ╱46╱F╱ // 0x2e7 @0x1a
0x02cd…02f6 at001b = ╱49╱I╱ // 0x2e8 @0x1b
0x02cd…02f6 at001c = ╱4c╱L╱ // 0x2e9 @0x1c
0x02cd…02f6 at001d = ╱35╱5╱ // 0x2ea @0x1d
0x02cd…02f6 at001e = ╱ef╱$╱ // 0x2eb @0x1e
0x02cd…02f6 at001f = ╱ed╱(╱ // 0x2ec @0x1f
0x02cd…02f6 at0020 = ╱32╱2╱ // 0x2ed @0x20
0x02cd…02f6 at0021 = ╱30╱0╱ // 0x2ee @0x21
0x02cd…02f6 at0022 = ╱fe0000a005╱ // 0x2ef @0x22
0x02cd…02f6 at0027 = ╱ee╱)╱ // 0x2f4 @0x27
0x02cd…02f6 at0028 = EOL // 0x2f5 @0x28
0x02cd…02f6 }
0x02f6…030a 9061 0290 HUND$="100.00+"
0x02f6…030a LineComalBin {
0x02f6…030a ptr = 0x9061 // 0x2f6 @0x0
0x02f6…030a lno = 0x0122 // 0x2f8 @0x2
0x02f6…030a at0004 = ╱48╱H╱ // 0x2fa @0x4
0x02f6…030a at0005 = ╱55╱U╱ // 0x2fb @0x5
0x02f6…030a at0006 = ╱4e╱N╱ // 0x2fc @0x6
0x02f6…030a at0007 = ╱44╱D╱ // 0x2fd @0x7
0x02f6…030a at0008 = ╱ef╱$╱ // 0x2fe @0x8
0x02f6…030a at0009 = ╱dc╱=╱ // 0x2ff @0x9
0x02f6…030a at000a = ╱22╱"╱ // 0x300 @0xa
0x02f6…030a at000b = ╱31╱1╱ // 0x301 @0xb
0x02f6…030a at000c = ╱30╱0╱ // 0x302 @0xc
0x02f6…030a at000d = ╱30╱0╱ // 0x303 @0xd
0x02f6…030a at000e = ╱2e╱.╱ // 0x304 @0xe
0x02f6…030a at000f = ╱30╱0╱ // 0x305 @0xf
0x02f6…030a at0010 = ╱30╱0╱ // 0x306 @0x10
0x02f6…030a at0011 = ╱2b╱+╱ // 0x307 @0x11
0x02f6…030a at0012 = ╱22╱"╱ // 0x308 @0x12
0x02f6…030a at0013 = EOL // 0x309 @0x13
0x02f6…030a }
0x030a…0321 9078 0300 MAX$="1000000.00+"
0x030a…0321 LineComalBin {
0x030a…0321 ptr = 0x9078 // 0x30a @0x0
0x030a…0321 lno = 0x012c // 0x30c @0x2
0x030a…0321 at0004 = ╱4d╱M╱ // 0x30e @0x4
0x030a…0321 at0005 = ╱41╱A╱ // 0x30f @0x5
0x030a…0321 at0006 = ╱58╱X╱ // 0x310 @0x6
0x030a…0321 at0007 = ╱ef╱$╱ // 0x311 @0x7
0x030a…0321 at0008 = ╱dc╱=╱ // 0x312 @0x8
0x030a…0321 at0009 = ╱22╱"╱ // 0x313 @0x9
0x030a…0321 at000a = ╱31╱1╱ // 0x314 @0xa
0x030a…0321 at000b = ╱30╱0╱ // 0x315 @0xb
0x030a…0321 at000c = ╱30╱0╱ // 0x316 @0xc
0x030a…0321 at000d = ╱30╱0╱ // 0x317 @0xd
0x030a…0321 at000e = ╱30╱0╱ // 0x318 @0xe
0x030a…0321 at000f = ╱30╱0╱ // 0x319 @0xf
0x030a…0321 at0010 = ╱30╱0╱ // 0x31a @0x10
0x030a…0321 at0011 = ╱2e╱.╱ // 0x31b @0x11
0x030a…0321 at0012 = ╱30╱0╱ // 0x31c @0x12
0x030a…0321 at0013 = ╱30╱0╱ // 0x31d @0x13
0x030a…0321 at0014 = ╱2b╱+╱ // 0x31e @0x14
0x030a…0321 at0015 = ╱22╱"╱ // 0x31f @0x15
0x030a…0321 at0016 = EOL // 0x320 @0x16
0x030a…0321 }
0x0321…0336 908d 0310 MAX1$="1000.00+"
0x0321…0336 LineComalBin {
0x0321…0336 ptr = 0x908d // 0x321 @0x0
0x0321…0336 lno = 0x0136 // 0x323 @0x2
0x0321…0336 at0004 = ╱4d╱M╱ // 0x325 @0x4
0x0321…0336 at0005 = ╱41╱A╱ // 0x326 @0x5
0x0321…0336 at0006 = ╱58╱X╱ // 0x327 @0x6
0x0321…0336 at0007 = ╱31╱1╱ // 0x328 @0x7
0x0321…0336 at0008 = ╱ef╱$╱ // 0x329 @0x8
0x0321…0336 at0009 = ╱dc╱=╱ // 0x32a @0x9
0x0321…0336 at000a = ╱22╱"╱ // 0x32b @0xa
0x0321…0336 at000b = ╱31╱1╱ // 0x32c @0xb
0x0321…0336 at000c = ╱30╱0╱ // 0x32d @0xc
0x0321…0336 at000d = ╱30╱0╱ // 0x32e @0xd
0x0321…0336 at000e = ╱30╱0╱ // 0x32f @0xe
0x0321…0336 at000f = ╱2e╱.╱ // 0x330 @0xf
0x0321…0336 at0010 = ╱30╱0╱ // 0x331 @0x10
0x0321…0336 at0011 = ╱30╱0╱ // 0x332 @0x11
0x0321…0336 at0012 = ╱2b╱+╱ // 0x333 @0x12
0x0321…0336 at0013 = ╱22╱"╱ // 0x334 @0x13
0x0321…0336 at0014 = EOL // 0x335 @0x14
0x0321…0336 }
0x0336…0344 909b 0320 TAH$="0+"
0x0336…0344 LineComalBin {
0x0336…0344 ptr = 0x909b // 0x336 @0x0
0x0336…0344 lno = 0x0140 // 0x338 @0x2
0x0336…0344 at0004 = ╱54╱T╱ // 0x33a @0x4
0x0336…0344 at0005 = ╱41╱A╱ // 0x33b @0x5
0x0336…0344 at0006 = ╱48╱H╱ // 0x33c @0x6
0x0336…0344 at0007 = ╱ef╱$╱ // 0x33d @0x7
0x0336…0344 at0008 = ╱dc╱=╱ // 0x33e @0x8
0x0336…0344 at0009 = ╱22╱"╱ // 0x33f @0x9
0x0336…0344 at000a = ╱30╱0╱ // 0x340 @0xa
0x0336…0344 at000b = ╱2b╱+╱ // 0x341 @0xb
0x0336…0344 at000c = ╱22╱"╱ // 0x342 @0xc
0x0336…0344 at000d = EOL // 0x343 @0xd
0x0336…0344 }
0x0344…0355 90ac 0330 PROC INLØNMOD(N)
0x0344…0355 LineComalBin {
0x0344…0355 ptr = 0x90ac // 0x344 @0x0
0x0344…0355 lno = 0x014a // 0x346 @0x2
0x0344…0355 at0004 = ╱9e╱ PROC ╱ // 0x348 @0x4
0x0344…0355 at0005 = ╱49╱I╱ // 0x349 @0x5
0x0344…0355 at0006 = ╱4e╱N╱ // 0x34a @0x6
0x0344…0355 at0007 = ╱4c╱L╱ // 0x34b @0x7
0x0344…0355 at0008 = ╱5c╱Ø╱ // 0x34c @0x8
0x0344…0355 at0009 = ╱4e╱N╱ // 0x34d @0x9
0x0344…0355 at000a = ╱4d╱M╱ // 0x34e @0xa
0x0344…0355 at000b = ╱4f╱O╱ // 0x34f @0xb
0x0344…0355 at000c = ╱44╱D╱ // 0x350 @0xc
0x0344…0355 at000d = ╱ed╱(╱ // 0x351 @0xd
0x0344…0355 at000e = ╱4e╱N╱ // 0x352 @0xe
0x0344…0355 at000f = ╱ee╱)╱ // 0x353 @0xf
0x0344…0355 at0010 = EOL // 0x354 @0x10
0x0344…0355 }
0x0355…036c 90c3 0340 GET FIL$,G*N-E:POST1$
0x0355…036c LineComalBin {
0x0355…036c ptr = 0x90c3 // 0x355 @0x0
0x0355…036c lno = 0x0154 // 0x357 @0x2
0x0355…036c at0004 = ╱a9╱ GET ╱ // 0x359 @0x4
0x0355…036c at0005 = ╱46╱F╱ // 0x35a @0x5
0x0355…036c at0006 = ╱49╱I╱ // 0x35b @0x6
0x0355…036c at0007 = ╱4c╱L╱ // 0x35c @0x7
0x0355…036c at0008 = ╱ef╱$╱ // 0x35d @0x8
0x0355…036c at0009 = ╱ec╱,╱ // 0x35e @0x9
0x0355…036c at000a = ╱47╱G╱ // 0x35f @0xa
0x0355…036c at000b = ╱e4╱*╱ // 0x360 @0xb
0x0355…036c at000c = ╱4e╱N╱ // 0x361 @0xc
0x0355…036c at000d = ╱e3╱-╱ // 0x362 @0xd
0x0355…036c at000e = ╱45╱E╱ // 0x363 @0xe
0x0355…036c at000f = ╱f0╱:╱ // 0x364 @0xf
0x0355…036c at0010 = ╱50╱P╱ // 0x365 @0x10
0x0355…036c at0011 = ╱4f╱O╱ // 0x366 @0x11
0x0355…036c at0012 = ╱53╱S╱ // 0x367 @0x12
0x0355…036c at0013 = ╱54╱T╱ // 0x368 @0x13
0x0355…036c at0014 = ╱31╱1╱ // 0x369 @0x14
0x0355…036c at0015 = ╱ef╱$╱ // 0x36a @0x15
0x0355…036c at0016 = EOL // 0x36b @0x16
0x0355…036c }
0x036c…03a3 90fa 0350 GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD
0x036c…03a3 LineComalBin {
0x036c…03a3 ptr = 0x90fa // 0x36c @0x0
0x036c…03a3 lno = 0x015e // 0x36e @0x2
0x036c…03a3 at0004 = ╱a9╱ GET ╱ // 0x370 @0x4
0x036c…03a3 at0005 = ╱46╱F╱ // 0x371 @0x5
0x036c…03a3 at0006 = ╱49╱I╱ // 0x372 @0x6
0x036c…03a3 at0007 = ╱4c╱L╱ // 0x373 @0x7
0x036c…03a3 at0008 = ╱ef╱$╱ // 0x374 @0x8
0x036c…03a3 at0009 = ╱ec╱,╱ // 0x375 @0x9
0x036c…03a3 at000a = ╱47╱G╱ // 0x376 @0xa
0x036c…03a3 at000b = ╱e4╱*╱ // 0x377 @0xb
0x036c…03a3 at000c = ╱4e╱N╱ // 0x378 @0xc
0x036c…03a3 at000d = ╱f0╱:╱ // 0x379 @0xd
0x036c…03a3 at000e = ╱50╱P╱ // 0x37a @0xe
0x036c…03a3 at000f = ╱4f╱O╱ // 0x37b @0xf
0x036c…03a3 at0010 = ╱53╱S╱ // 0x37c @0x10
0x036c…03a3 at0011 = ╱54╱T╱ // 0x37d @0x11
0x036c…03a3 at0012 = ╱32╱2╱ // 0x37e @0x12
0x036c…03a3 at0013 = ╱ef╱$╱ // 0x37f @0x13
0x036c…03a3 at0014 = ╱ec╱,╱ // 0x380 @0x14
0x036c…03a3 at0015 = ╱43╱C╱ // 0x381 @0x15
0x036c…03a3 at0016 = ╱31╱1╱ // 0x382 @0x16
0x036c…03a3 at0017 = ╱ec╱,╱ // 0x383 @0x17
0x036c…03a3 at0018 = ╱43╱C╱ // 0x384 @0x18
0x036c…03a3 at0019 = ╱32╱2╱ // 0x385 @0x19
0x036c…03a3 at001a = ╱ec╱,╱ // 0x386 @0x1a
0x036c…03a3 at001b = ╱4c╱L╱ // 0x387 @0x1b
0x036c…03a3 at001c = ╱54╱T╱ // 0x388 @0x1c
0x036c…03a3 at001d = ╱ec╱,╱ // 0x389 @0x1d
0x036c…03a3 at001e = ╱4c╱L╱ // 0x38a @0x1e
0x036c…03a3 at001f = ╱46╱F╱ // 0x38b @0x1f
0x036c…03a3 at0020 = ╱ec╱,╱ // 0x38c @0x20
0x036c…03a3 at0021 = ╱4c╱L╱ // 0x38d @0x21
0x036c…03a3 at0022 = ╱52╱R╱ // 0x38e @0x22
0x036c…03a3 at0023 = ╱ec╱,╱ // 0x38f @0x23
0x036c…03a3 at0024 = ╱4c╱L╱ // 0x390 @0x24
0x036c…03a3 at0025 = ╱41╱A╱ // 0x391 @0x25
0x036c…03a3 at0026 = ╱ec╱,╱ // 0x392 @0x26
0x036c…03a3 at0027 = ╱52╱R╱ // 0x393 @0x27
0x036c…03a3 at0028 = ╱50╱P╱ // 0x394 @0x28
0x036c…03a3 at0029 = ╱49╱I╱ // 0x395 @0x29
0x036c…03a3 at002a = ╱ec╱,╱ // 0x396 @0x2a
0x036c…03a3 at002b = ╱4b╱K╱ // 0x397 @0x2b
0x036c…03a3 at002c = ╱31╱1╱ // 0x398 @0x2c
0x036c…03a3 at002d = ╱ec╱,╱ // 0x399 @0x2d
0x036c…03a3 at002e = ╱4b╱K╱ // 0x39a @0x2e
0x036c…03a3 at002f = ╱32╱2╱ // 0x39b @0x2f
0x036c…03a3 at0030 = ╱ec╱,╱ // 0x39c @0x30
0x036c…03a3 at0031 = ╱46╱F╱ // 0x39d @0x31
0x036c…03a3 at0032 = ╱47╱G╱ // 0x39e @0x32
0x036c…03a3 at0033 = ╱ec╱,╱ // 0x39f @0x33
0x036c…03a3 at0034 = ╱46╱F╱ // 0x3a0 @0x34
0x036c…03a3 at0035 = ╱44╱D╱ // 0x3a1 @0x35
0x036c…03a3 at0036 = EOL // 0x3a2 @0x36
0x036c…03a3 }
0x03a3…03b7 910e 0360 EXEC FEJL(E,N,FIL$)
0x03a3…03b7 LineComalBin {
0x03a3…03b7 ptr = 0x910e // 0x3a3 @0x0
0x03a3…03b7 lno = 0x0168 // 0x3a5 @0x2
0x03a3…03b7 at0004 = ╱9d╱ EXEC ╱ // 0x3a7 @0x4
0x03a3…03b7 at0005 = ╱46╱F╱ // 0x3a8 @0x5
0x03a3…03b7 at0006 = ╱45╱E╱ // 0x3a9 @0x6
0x03a3…03b7 at0007 = ╱4a╱J╱ // 0x3aa @0x7
0x03a3…03b7 at0008 = ╱4c╱L╱ // 0x3ab @0x8
0x03a3…03b7 at0009 = ╱ed╱(╱ // 0x3ac @0x9
0x03a3…03b7 at000a = ╱45╱E╱ // 0x3ad @0xa
0x03a3…03b7 at000b = ╱ec╱,╱ // 0x3ae @0xb
0x03a3…03b7 at000c = ╱4e╱N╱ // 0x3af @0xc
0x03a3…03b7 at000d = ╱ec╱,╱ // 0x3b0 @0xd
0x03a3…03b7 at000e = ╱46╱F╱ // 0x3b1 @0xe
0x03a3…03b7 at000f = ╱49╱I╱ // 0x3b2 @0xf
0x03a3…03b7 at0010 = ╱4c╱L╱ // 0x3b3 @0x10
0x03a3…03b7 at0011 = ╱ef╱$╱ // 0x3b4 @0x11
0x03a3…03b7 at0012 = ╱ee╱)╱ // 0x3b5 @0x12
0x03a3…03b7 at0013 = EOL // 0x3b6 @0x13
0x03a3…03b7 }
0x03b7…03bd 9114 0370 ENDPROC
0x03b7…03bd LineComalBin {
0x03b7…03bd ptr = 0x9114 // 0x3b7 @0x0
0x03b7…03bd lno = 0x0172 // 0x3b9 @0x2
0x03b7…03bd at0004 = ╱9f╱ ENDPROC ╱ // 0x3bb @0x4
0x03b7…03bd at0005 = EOL // 0x3bc @0x5
0x03b7…03bd }
0x03bd…03ca 9121 0380 PROC INDVIRK
0x03bd…03ca LineComalBin {
0x03bd…03ca ptr = 0x9121 // 0x3bd @0x0
0x03bd…03ca lno = 0x017c // 0x3bf @0x2
0x03bd…03ca at0004 = ╱9e╱ PROC ╱ // 0x3c1 @0x4
0x03bd…03ca at0005 = ╱49╱I╱ // 0x3c2 @0x5
0x03bd…03ca at0006 = ╱4e╱N╱ // 0x3c3 @0x6
0x03bd…03ca at0007 = ╱44╱D╱ // 0x3c4 @0x7
0x03bd…03ca at0008 = ╱56╱V╱ // 0x3c5 @0x8
0x03bd…03ca at0009 = ╱49╱I╱ // 0x3c6 @0x9
0x03bd…03ca at000a = ╱52╱R╱ // 0x3c7 @0xa
0x03bd…03ca at000b = ╱4b╱K╱ // 0x3c8 @0xb
0x03bd…03ca at000c = EOL // 0x3c9 @0xc
0x03bd…03ca }
0x03ca…03d6 912d 0390 OPEN FIL$,W
0x03ca…03d6 LineComalBin {
0x03ca…03d6 ptr = 0x912d // 0x3ca @0x0
0x03ca…03d6 lno = 0x0186 // 0x3cc @0x2
0x03ca…03d6 at0004 = ╱a7╱ OPEN ╱ // 0x3ce @0x4
0x03ca…03d6 at0005 = ╱46╱F╱ // 0x3cf @0x5
0x03ca…03d6 at0006 = ╱49╱I╱ // 0x3d0 @0x6
0x03ca…03d6 at0007 = ╱4c╱L╱ // 0x3d1 @0x7
0x03ca…03d6 at0008 = ╱ef╱$╱ // 0x3d2 @0x8
0x03ca…03d6 at0009 = ╱ec╱,╱ // 0x3d3 @0x9
0x03ca…03d6 at000a = ╱57╱W╱ // 0x3d4 @0xa
0x03ca…03d6 at000b = EOL // 0x3d5 @0xb
0x03ca…03d6 }
0x03d6…03ea 9141 0400 EXEC FEJL(B,B,FIL$)
0x03d6…03ea LineComalBin {
0x03d6…03ea ptr = 0x9141 // 0x3d6 @0x0
0x03d6…03ea lno = 0x0190 // 0x3d8 @0x2
0x03d6…03ea at0004 = ╱9d╱ EXEC ╱ // 0x3da @0x4
0x03d6…03ea at0005 = ╱46╱F╱ // 0x3db @0x5
0x03d6…03ea at0006 = ╱45╱E╱ // 0x3dc @0x6
0x03d6…03ea at0007 = ╱4a╱J╱ // 0x3dd @0x7
0x03d6…03ea at0008 = ╱4c╱L╱ // 0x3de @0x8
0x03d6…03ea at0009 = ╱ed╱(╱ // 0x3df @0x9
0x03d6…03ea at000a = ╱42╱B╱ // 0x3e0 @0xa
0x03d6…03ea at000b = ╱ec╱,╱ // 0x3e1 @0xb
0x03d6…03ea at000c = ╱42╱B╱ // 0x3e2 @0xc
0x03d6…03ea at000d = ╱ec╱,╱ // 0x3e3 @0xd
0x03d6…03ea at000e = ╱46╱F╱ // 0x3e4 @0xe
0x03d6…03ea at000f = ╱49╱I╱ // 0x3e5 @0xf
0x03d6…03ea at0010 = ╱4c╱L╱ // 0x3e6 @0x10
0x03d6…03ea at0011 = ╱ef╱$╱ // 0x3e7 @0x11
0x03d6…03ea at0012 = ╱ee╱)╱ // 0x3e8 @0x12
0x03d6…03ea at0013 = EOL // 0x3e9 @0x13
0x03d6…03ea }
0x03ea…03fd 9154 0410 GET FIL$,E:POST3$
0x03ea…03fd LineComalBin {
0x03ea…03fd ptr = 0x9154 // 0x3ea @0x0
0x03ea…03fd lno = 0x019a // 0x3ec @0x2
0x03ea…03fd at0004 = ╱a9╱ GET ╱ // 0x3ee @0x4
0x03ea…03fd at0005 = ╱46╱F╱ // 0x3ef @0x5
0x03ea…03fd at0006 = ╱49╱I╱ // 0x3f0 @0x6
0x03ea…03fd at0007 = ╱4c╱L╱ // 0x3f1 @0x7
0x03ea…03fd at0008 = ╱ef╱$╱ // 0x3f2 @0x8
0x03ea…03fd at0009 = ╱ec╱,╱ // 0x3f3 @0x9
0x03ea…03fd at000a = ╱45╱E╱ // 0x3f4 @0xa
0x03ea…03fd at000b = ╱f0╱:╱ // 0x3f5 @0xb
0x03ea…03fd at000c = ╱50╱P╱ // 0x3f6 @0xc
0x03ea…03fd at000d = ╱4f╱O╱ // 0x3f7 @0xd
0x03ea…03fd at000e = ╱53╱S╱ // 0x3f8 @0xe
0x03ea…03fd at000f = ╱54╱T╱ // 0x3f9 @0xf
0x03ea…03fd at0010 = ╱33╱3╱ // 0x3fa @0x10
0x03ea…03fd at0011 = ╱ef╱$╱ // 0x3fb @0x11
0x03ea…03fd at0012 = EOL // 0x3fc @0x12
0x03ea…03fd }
0x03fd…0422 9179 0420 GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM
0x03fd…0422 LineComalBin {
0x03fd…0422 ptr = 0x9179 // 0x3fd @0x0
0x03fd…0422 lno = 0x01a4 // 0x3ff @0x2
0x03fd…0422 at0004 = ╱a9╱ GET ╱ // 0x401 @0x4
0x03fd…0422 at0005 = ╱46╱F╱ // 0x402 @0x5
0x03fd…0422 at0006 = ╱49╱I╱ // 0x403 @0x6
0x03fd…0422 at0007 = ╱4c╱L╱ // 0x404 @0x7
0x03fd…0422 at0008 = ╱ef╱$╱ // 0x405 @0x8
0x03fd…0422 at0009 = ╱ec╱,╱ // 0x406 @0x9
0x03fd…0422 at000a = ╱47╱G╱ // 0x407 @0xa
0x03fd…0422 at000b = ╱f0╱:╱ // 0x408 @0xb
0x03fd…0422 at000c = ╱50╱P╱ // 0x409 @0xc
0x03fd…0422 at000d = ╱4f╱O╱ // 0x40a @0xd
0x03fd…0422 at000e = ╱53╱S╱ // 0x40b @0xe
0x03fd…0422 at000f = ╱54╱T╱ // 0x40c @0xf
0x03fd…0422 at0010 = ╱34╱4╱ // 0x40d @0x10
0x03fd…0422 at0011 = ╱ef╱$╱ // 0x40e @0x11
0x03fd…0422 at0012 = ╱ec╱,╱ // 0x40f @0x12
0x03fd…0422 at0013 = ╱53╱S╱ // 0x410 @0x13
0x03fd…0422 at0014 = ╱4c╱L╱ // 0x411 @0x14
0x03fd…0422 at0015 = ╱4a╱J╱ // 0x412 @0x15
0x03fd…0422 at0016 = ╱4e╱N╱ // 0x413 @0x16
0x03fd…0422 at0017 = ╱52╱R╱ // 0x414 @0x17
0x03fd…0422 at0018 = ╱ec╱,╱ // 0x415 @0x18
0x03fd…0422 at0019 = ╱4d╱M╱ // 0x416 @0x19
0x03fd…0422 at001a = ╱4c╱L╱ // 0x417 @0x1a
0x03fd…0422 at001b = ╱4d╱M╱ // 0x418 @0x1b
0x03fd…0422 at001c = ╱4e╱N╱ // 0x419 @0x1c
0x03fd…0422 at001d = ╱52╱R╱ // 0x41a @0x1d
0x03fd…0422 at001e = ╱ec╱,╱ // 0x41b @0x1e
0x03fd…0422 at001f = ╱41╱A╱ // 0x41c @0x1f
0x03fd…0422 at0020 = ╱54╱T╱ // 0x41d @0x20
0x03fd…0422 at0021 = ╱50╱P╱ // 0x41e @0x21
0x03fd…0422 at0022 = ╱4c╱L╱ // 0x41f @0x22
0x03fd…0422 at0023 = ╱4d╱M╱ // 0x420 @0x23
0x03fd…0422 at0024 = EOL // 0x421 @0x24
0x03fd…0422 }
0x0422…0428 917f 0430 ENDPROC
0x0422…0428 LineComalBin {
0x0422…0428 ptr = 0x917f // 0x422 @0x0
0x0422…0428 lno = 0x01ae // 0x424 @0x2
0x0422…0428 at0004 = ╱9f╱ ENDPROC ╱ // 0x426 @0x4
0x0422…0428 at0005 = EOL // 0x427 @0x5
0x0422…0428 }
0x0428…043c 9193 0440 PROC CHECK(NR1,OK1)
0x0428…043c LineComalBin {
0x0428…043c ptr = 0x9193 // 0x428 @0x0
0x0428…043c lno = 0x01b8 // 0x42a @0x2
0x0428…043c at0004 = ╱9e╱ PROC ╱ // 0x42c @0x4
0x0428…043c at0005 = ╱43╱C╱ // 0x42d @0x5
0x0428…043c at0006 = ╱48╱H╱ // 0x42e @0x6
0x0428…043c at0007 = ╱45╱E╱ // 0x42f @0x7
0x0428…043c at0008 = ╱43╱C╱ // 0x430 @0x8
0x0428…043c at0009 = ╱4b╱K╱ // 0x431 @0x9
0x0428…043c at000a = ╱ed╱(╱ // 0x432 @0xa
0x0428…043c at000b = ╱4e╱N╱ // 0x433 @0xb
0x0428…043c at000c = ╱52╱R╱ // 0x434 @0xc
0x0428…043c at000d = ╱31╱1╱ // 0x435 @0xd
0x0428…043c at000e = ╱ec╱,╱ // 0x436 @0xe
0x0428…043c at000f = ╱4f╱O╱ // 0x437 @0xf
0x0428…043c at0010 = ╱4b╱K╱ // 0x438 @0x10
0x0428…043c at0011 = ╱31╱1╱ // 0x439 @0x11
0x0428…043c at0012 = ╱ee╱)╱ // 0x43a @0x12
0x0428…043c at0013 = EOL // 0x43b @0x13
0x0428…043c }
0x043c…0446 919d 0450 OK1=B
0x043c…0446 LineComalBin {
0x043c…0446 ptr = 0x919d // 0x43c @0x0
0x043c…0446 lno = 0x01c2 // 0x43e @0x2
0x043c…0446 at0004 = ╱4f╱O╱ // 0x440 @0x4
0x043c…0446 at0005 = ╱4b╱K╱ // 0x441 @0x5
0x043c…0446 at0006 = ╱31╱1╱ // 0x442 @0x6
0x043c…0446 at0007 = ╱dc╱=╱ // 0x443 @0x7
0x043c…0446 at0008 = ╱42╱B╱ // 0x444 @0x8
0x043c…0446 at0009 = EOL // 0x445 @0x9
0x043c…0446 }
0x0446…0453 91aa 0460 RESULT=B
0x0446…0453 LineComalBin {
0x0446…0453 ptr = 0x91aa // 0x446 @0x0
0x0446…0453 lno = 0x01cc // 0x448 @0x2
0x0446…0453 at0004 = ╱52╱R╱ // 0x44a @0x4
0x0446…0453 at0005 = ╱45╱E╱ // 0x44b @0x5
0x0446…0453 at0006 = ╱53╱S╱ // 0x44c @0x6
0x0446…0453 at0007 = ╱55╱U╱ // 0x44d @0x7
0x0446…0453 at0008 = ╱4c╱L╱ // 0x44e @0x8
0x0446…0453 at0009 = ╱54╱T╱ // 0x44f @0x9
0x0446…0453 at000a = ╱dc╱=╱ // 0x450 @0xa
0x0446…0453 at000b = ╱42╱B╱ // 0x451 @0xb
0x0446…0453 at000c = EOL // 0x452 @0xc
0x0446…0453 }
0x0453…0463 91ba 0470 IF LEN(NR1$)>B THEN
0x0453…0463 LineComalBin {
0x0453…0463 ptr = 0x91ba // 0x453 @0x0
0x0453…0463 lno = 0x01d6 // 0x455 @0x2
0x0453…0463 at0004 = ╱9c╱ IF ╱ // 0x457 @0x4
0x0453…0463 at0005 = ╱cc╱LEN╱ // 0x458 @0x5
0x0453…0463 at0006 = ╱ed╱(╱ // 0x459 @0x6
0x0453…0463 at0007 = ╱4e╱N╱ // 0x45a @0x7
0x0453…0463 at0008 = ╱52╱R╱ // 0x45b @0x8
0x0453…0463 at0009 = ╱31╱1╱ // 0x45c @0x9
0x0453…0463 at000a = ╱ef╱$╱ // 0x45d @0xa
0x0453…0463 at000b = ╱ee╱)╱ // 0x45e @0xb
0x0453…0463 at000c = ╱de╱>╱ // 0x45f @0xc
0x0453…0463 at000d = ╱42╱B╱ // 0x460 @0xd
0x0453…0463 at000e = ╱b6╱ THEN ╱ // 0x461 @0xe
0x0453…0463 at000f = EOL // 0x462 @0xf
0x0453…0463 }
0x0463…0475 91cc 0480 IF NR1$(E)="-" THEN
0x0463…0475 LineComalBin {
0x0463…0475 ptr = 0x91cc // 0x463 @0x0
0x0463…0475 lno = 0x01e0 // 0x465 @0x2
0x0463…0475 at0004 = ╱9c╱ IF ╱ // 0x467 @0x4
0x0463…0475 at0005 = ╱4e╱N╱ // 0x468 @0x5
0x0463…0475 at0006 = ╱52╱R╱ // 0x469 @0x6
0x0463…0475 at0007 = ╱31╱1╱ // 0x46a @0x7
0x0463…0475 at0008 = ╱ef╱$╱ // 0x46b @0x8
0x0463…0475 at0009 = ╱ed╱(╱ // 0x46c @0x9
0x0463…0475 at000a = ╱45╱E╱ // 0x46d @0xa
0x0463…0475 at000b = ╱ee╱)╱ // 0x46e @0xb
0x0463…0475 at000c = ╱dc╱=╱ // 0x46f @0xc
0x0463…0475 at000d = ╱22╱"╱ // 0x470 @0xd
0x0463…0475 at000e = ╱2d╱-╱ // 0x471 @0xe
0x0463…0475 at000f = ╱22╱"╱ // 0x472 @0xf
0x0463…0475 at0010 = ╱b6╱ THEN ╱ // 0x473 @0x10
0x0463…0475 at0011 = EOL // 0x474 @0x11
0x0463…0475 }
0x0475…0484 91db 0490 FORTEGN=-E
0x0475…0484 LineComalBin {
0x0475…0484 ptr = 0x91db // 0x475 @0x0
0x0475…0484 lno = 0x01ea // 0x477 @0x2
0x0475…0484 at0004 = ╱46╱F╱ // 0x479 @0x4
0x0475…0484 at0005 = ╱4f╱O╱ // 0x47a @0x5
0x0475…0484 at0006 = ╱52╱R╱ // 0x47b @0x6
0x0475…0484 at0007 = ╱54╱T╱ // 0x47c @0x7
0x0475…0484 at0008 = ╱45╱E╱ // 0x47d @0x8
0x0475…0484 at0009 = ╱47╱G╱ // 0x47e @0x9
0x0475…0484 at000a = ╱4e╱N╱ // 0x47f @0xa
0x0475…0484 at000b = ╱dc╱=╱ // 0x480 @0xb
0x0475…0484 at000c = ╱e9╱-╱ // 0x481 @0xc
0x0475…0484 at000d = ╱45╱E╱ // 0x482 @0xd
0x0475…0484 at000e = EOL // 0x483 @0xe
0x0475…0484 }
0x0484…048e 91e5 0500 OK1=E
0x0484…048e LineComalBin {
0x0484…048e ptr = 0x91e5 // 0x484 @0x0
0x0484…048e lno = 0x01f4 // 0x486 @0x2
0x0484…048e at0004 = ╱4f╱O╱ // 0x488 @0x4
0x0484…048e at0005 = ╱4b╱K╱ // 0x489 @0x5
0x0484…048e at0006 = ╱31╱1╱ // 0x48a @0x6
0x0484…048e at0007 = ╱dc╱=╱ // 0x48b @0x7
0x0484…048e at0008 = ╱45╱E╱ // 0x48c @0x8
0x0484…048e at0009 = EOL // 0x48d @0x9
0x0484…048e }
0x048e…0494 91eb 0510 ELSE
0x048e…0494 LineComalBin {
0x048e…0494 ptr = 0x91eb // 0x48e @0x0
0x048e…0494 lno = 0x01fe // 0x490 @0x2
0x048e…0494 at0004 = ╱9a╱ ELSE ╱ // 0x492 @0x4
0x048e…0494 at0005 = EOL // 0x493 @0x5
0x048e…0494 }
0x0494…04a2 91f9 0520 FORTEGN=E
0x0494…04a2 LineComalBin {
0x0494…04a2 ptr = 0x91f9 // 0x494 @0x0
0x0494…04a2 lno = 0x0208 // 0x496 @0x2
0x0494…04a2 at0004 = ╱46╱F╱ // 0x498 @0x4
0x0494…04a2 at0005 = ╱4f╱O╱ // 0x499 @0x5
0x0494…04a2 at0006 = ╱52╱R╱ // 0x49a @0x6
0x0494…04a2 at0007 = ╱54╱T╱ // 0x49b @0x7
0x0494…04a2 at0008 = ╱45╱E╱ // 0x49c @0x8
0x0494…04a2 at0009 = ╱47╱G╱ // 0x49d @0x9
0x0494…04a2 at000a = ╱4e╱N╱ // 0x49e @0xa
0x0494…04a2 at000b = ╱dc╱=╱ // 0x49f @0xb
0x0494…04a2 at000c = ╱45╱E╱ // 0x4a0 @0xc
0x0494…04a2 at000d = EOL // 0x4a1 @0xd
0x0494…04a2 }
0x04a2…04a8 91ff 0530 ENDIF
0x04a2…04a8 LineComalBin {
0x04a2…04a8 ptr = 0x91ff // 0x4a2 @0x0
0x04a2…04a8 lno = 0x0212 // 0x4a4 @0x2
0x04a2…04a8 at0004 = ╱9b╱ ENDIF ╱ // 0x4a6 @0x4
0x04a2…04a8 at0005 = EOL // 0x4a7 @0x5
0x04a2…04a8 }
0x04a8…04b9 9210 0540 WHILE LEN(NR1$)>OK1
0x04a8…04b9 LineComalBin {
0x04a8…04b9 ptr = 0x9210 // 0x4a8 @0x0
0x04a8…04b9 lno = 0x021c // 0x4aa @0x2
0x04a8…04b9 at0004 = ╱93╱ WHILE ╱ // 0x4ac @0x4
0x04a8…04b9 at0005 = ╱cc╱LEN╱ // 0x4ad @0x5
0x04a8…04b9 at0006 = ╱ed╱(╱ // 0x4ae @0x6
0x04a8…04b9 at0007 = ╱4e╱N╱ // 0x4af @0x7
0x04a8…04b9 at0008 = ╱52╱R╱ // 0x4b0 @0x8
0x04a8…04b9 at0009 = ╱31╱1╱ // 0x4b1 @0x9
0x04a8…04b9 at000a = ╱ef╱$╱ // 0x4b2 @0xa
0x04a8…04b9 at000b = ╱ee╱)╱ // 0x4b3 @0xb
0x04a8…04b9 at000c = ╱de╱>╱ // 0x4b4 @0xc
0x04a8…04b9 at000d = ╱4f╱O╱ // 0x4b5 @0xd
0x04a8…04b9 at000e = ╱4b╱K╱ // 0x4b6 @0xe
0x04a8…04b9 at000f = ╱31╱1╱ // 0x4b7 @0xf
0x04a8…04b9 at0010 = EOL // 0x4b8 @0x10
0x04a8…04b9 }
0x04b9…04c7 921e 0550 OK1=OK1+E
0x04b9…04c7 LineComalBin {
0x04b9…04c7 ptr = 0x921e // 0x4b9 @0x0
0x04b9…04c7 lno = 0x0226 // 0x4bb @0x2
0x04b9…04c7 at0004 = ╱4f╱O╱ // 0x4bd @0x4
0x04b9…04c7 at0005 = ╱4b╱K╱ // 0x4be @0x5
0x04b9…04c7 at0006 = ╱31╱1╱ // 0x4bf @0x6
0x04b9…04c7 at0007 = ╱dc╱=╱ // 0x4c0 @0x7
0x04b9…04c7 at0008 = ╱4f╱O╱ // 0x4c1 @0x8
0x04b9…04c7 at0009 = ╱4b╱K╱ // 0x4c2 @0x9
0x04b9…04c7 at000a = ╱31╱1╱ // 0x4c3 @0xa
0x04b9…04c7 at000b = ╱e2╱+╱ // 0x4c4 @0xb
0x04b9…04c7 at000c = ╱45╱E╱ // 0x4c5 @0xc
0x04b9…04c7 at000d = EOL // 0x4c6 @0xd
0x04b9…04c7 }
0x04c7…04e9 9240 0560 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN
0x04c7…04e9 LineComalBin {
0x04c7…04e9 ptr = 0x9240 // 0x4c7 @0x0
0x04c7…04e9 lno = 0x0230 // 0x4c9 @0x2
0x04c7…04e9 at0004 = ╱9c╱ IF ╱ // 0x4cb @0x4
0x04c7…04e9 at0005 = ╱4e╱N╱ // 0x4cc @0x5
0x04c7…04e9 at0006 = ╱52╱R╱ // 0x4cd @0x6
0x04c7…04e9 at0007 = ╱31╱1╱ // 0x4ce @0x7
0x04c7…04e9 at0008 = ╱ef╱$╱ // 0x4cf @0x8
0x04c7…04e9 at0009 = ╱ed╱(╱ // 0x4d0 @0x9
0x04c7…04e9 at000a = ╱4f╱O╱ // 0x4d1 @0xa
0x04c7…04e9 at000b = ╱4b╱K╱ // 0x4d2 @0xb
0x04c7…04e9 at000c = ╱31╱1╱ // 0x4d3 @0xc
0x04c7…04e9 at000d = ╱ee╱)╱ // 0x4d4 @0xd
0x04c7…04e9 at000e = ╱dd╱<╱ // 0x4d5 @0xe
0x04c7…04e9 at000f = ╱22╱"╱ // 0x4d6 @0xf
0x04c7…04e9 at0010 = ╱30╱0╱ // 0x4d7 @0x10
0x04c7…04e9 at0011 = ╱22╱"╱ // 0x4d8 @0x11
0x04c7…04e9 at0012 = ╱db╱ OR ╱ // 0x4d9 @0x12
0x04c7…04e9 at0013 = ╱4e╱N╱ // 0x4da @0x13
0x04c7…04e9 at0014 = ╱52╱R╱ // 0x4db @0x14
0x04c7…04e9 at0015 = ╱31╱1╱ // 0x4dc @0x15
0x04c7…04e9 at0016 = ╱ef╱$╱ // 0x4dd @0x16
0x04c7…04e9 at0017 = ╱ed╱(╱ // 0x4de @0x17
0x04c7…04e9 at0018 = ╱4f╱O╱ // 0x4df @0x18
0x04c7…04e9 at0019 = ╱4b╱K╱ // 0x4e0 @0x19
0x04c7…04e9 at001a = ╱31╱1╱ // 0x4e1 @0x1a
0x04c7…04e9 at001b = ╱ee╱)╱ // 0x4e2 @0x1b
0x04c7…04e9 at001c = ╱de╱>╱ // 0x4e3 @0x1c
0x04c7…04e9 at001d = ╱22╱"╱ // 0x4e4 @0x1d
0x04c7…04e9 at001e = ╱39╱9╱ // 0x4e5 @0x1e
0x04c7…04e9 at001f = ╱22╱"╱ // 0x4e6 @0x1f
0x04c7…04e9 at0020 = ╱b6╱ THEN ╱ // 0x4e7 @0x20
0x04c7…04e9 at0021 = EOL // 0x4e8 @0x21
0x04c7…04e9 }
0x04e9…04f7 924e 0570 FORTEGN=B
0x04e9…04f7 LineComalBin {
0x04e9…04f7 ptr = 0x924e // 0x4e9 @0x0
0x04e9…04f7 lno = 0x023a // 0x4eb @0x2
0x04e9…04f7 at0004 = ╱46╱F╱ // 0x4ed @0x4
0x04e9…04f7 at0005 = ╱4f╱O╱ // 0x4ee @0x5
0x04e9…04f7 at0006 = ╱52╱R╱ // 0x4ef @0x6
0x04e9…04f7 at0007 = ╱54╱T╱ // 0x4f0 @0x7
0x04e9…04f7 at0008 = ╱45╱E╱ // 0x4f1 @0x8
0x04e9…04f7 at0009 = ╱47╱G╱ // 0x4f2 @0x9
0x04e9…04f7 at000a = ╱4e╱N╱ // 0x4f3 @0xa
0x04e9…04f7 at000b = ╱dc╱=╱ // 0x4f4 @0xb
0x04e9…04f7 at000c = ╱42╱B╱ // 0x4f5 @0xc
0x04e9…04f7 at000d = EOL // 0x4f6 @0xd
0x04e9…04f7 }
0x04f7…0507 925e 0580 OK1=LEN(NR1$)
0x04f7…0507 LineComalBin {
0x04f7…0507 ptr = 0x925e // 0x4f7 @0x0
0x04f7…0507 lno = 0x0244 // 0x4f9 @0x2
0x04f7…0507 at0004 = ╱4f╱O╱ // 0x4fb @0x4
0x04f7…0507 at0005 = ╱4b╱K╱ // 0x4fc @0x5
0x04f7…0507 at0006 = ╱31╱1╱ // 0x4fd @0x6
0x04f7…0507 at0007 = ╱dc╱=╱ // 0x4fe @0x7
0x04f7…0507 at0008 = ╱cc╱LEN╱ // 0x4ff @0x8
0x04f7…0507 at0009 = ╱ed╱(╱ // 0x500 @0x9
0x04f7…0507 at000a = ╱4e╱N╱ // 0x501 @0xa
0x04f7…0507 at000b = ╱52╱R╱ // 0x502 @0xb
0x04f7…0507 at000c = ╱31╱1╱ // 0x503 @0xc
0x04f7…0507 at000d = ╱ef╱$╱ // 0x504 @0xd
0x04f7…0507 at000e = ╱ee╱)╱ // 0x505 @0xe
0x04f7…0507 at000f = EOL // 0x506 @0xf
0x04f7…0507 }
0x0507…050d 9264 0590 ENDIF
0x0507…050d LineComalBin {
0x0507…050d ptr = 0x9264 // 0x507 @0x0
0x0507…050d lno = 0x024e // 0x509 @0x2
0x0507…050d at0004 = ╱9b╱ ENDIF ╱ // 0x50b @0x4
0x0507…050d at0005 = EOL // 0x50c @0x5
0x0507…050d }
0x050d…053c 9293 0600 RESULT=RESULT*10+ORD(NR1$(OK1))-48
0x050d…053c LineComalBin {
0x050d…053c ptr = 0x9293 // 0x50d @0x0
0x050d…053c lno = 0x0258 // 0x50f @0x2
0x050d…053c at0004 = ╱52╱R╱ // 0x511 @0x4
0x050d…053c at0005 = ╱45╱E╱ // 0x512 @0x5
0x050d…053c at0006 = ╱53╱S╱ // 0x513 @0x6
0x050d…053c at0007 = ╱55╱U╱ // 0x514 @0x7
0x050d…053c at0008 = ╱4c╱L╱ // 0x515 @0x8
0x050d…053c at0009 = ╱54╱T╱ // 0x516 @0x9
0x050d…053c at000a = ╱dc╱=╱ // 0x517 @0xa
0x050d…053c at000b = ╱52╱R╱ // 0x518 @0xb
0x050d…053c at000c = ╱45╱E╱ // 0x519 @0xc
0x050d…053c at000d = ╱53╱S╱ // 0x51a @0xd
0x050d…053c at000e = ╱55╱U╱ // 0x51b @0xe
0x050d…053c at000f = ╱4c╱L╱ // 0x51c @0xf
0x050d…053c at0010 = ╱54╱T╱ // 0x51d @0x10
0x050d…053c at0011 = ╱e4╱*╱ // 0x51e @0x11
0x050d…053c at0012 = ╱31╱1╱ // 0x51f @0x12
0x050d…053c at0013 = ╱30╱0╱ // 0x520 @0x13
0x050d…053c at0014 = ╱fe0000a004╱ // 0x521 @0x14
0x050d…053c at0019 = ╱e2╱+╱ // 0x526 @0x19
0x050d…053c at001a = ╱cd╱ORD╱ // 0x527 @0x1a
0x050d…053c at001b = ╱ed╱(╱ // 0x528 @0x1b
0x050d…053c at001c = ╱4e╱N╱ // 0x529 @0x1c
0x050d…053c at001d = ╱52╱R╱ // 0x52a @0x1d
0x050d…053c at001e = ╱31╱1╱ // 0x52b @0x1e
0x050d…053c at001f = ╱ef╱$╱ // 0x52c @0x1f
0x050d…053c at0020 = ╱ed╱(╱ // 0x52d @0x20
0x050d…053c at0021 = ╱4f╱O╱ // 0x52e @0x21
0x050d…053c at0022 = ╱4b╱K╱ // 0x52f @0x22
0x050d…053c at0023 = ╱31╱1╱ // 0x530 @0x23
0x050d…053c at0024 = ╱ee╱)╱ // 0x531 @0x24
0x050d…053c at0025 = ╱ee╱)╱ // 0x532 @0x25
0x050d…053c at0026 = ╱e3╱-╱ // 0x533 @0x26
0x050d…053c at0027 = ╱34╱4╱ // 0x534 @0x27
0x050d…053c at0028 = ╱38╱8╱ // 0x535 @0x28
0x050d…053c at0029 = ╱fe0000c006╱ // 0x536 @0x29
0x050d…053c at002e = EOL // 0x53b @0x2e
0x050d…053c }
0x053c…0542 9299 0610 ENDWHILE
0x053c…0542 LineComalBin {
0x053c…0542 ptr = 0x9299 // 0x53c @0x0
0x053c…0542 lno = 0x0262 // 0x53e @0x2
0x053c…0542 at0004 = ╱94╱ ENDWHILE ╱ // 0x540 @0x4
0x053c…0542 at0005 = EOL // 0x541 @0x5
0x053c…0542 }
0x0542…0556 92ad 0620 OK1=OK1*FORTEGN
0x0542…0556 LineComalBin {
0x0542…0556 ptr = 0x92ad // 0x542 @0x0
0x0542…0556 lno = 0x026c // 0x544 @0x2
0x0542…0556 at0004 = ╱4f╱O╱ // 0x546 @0x4
0x0542…0556 at0005 = ╱4b╱K╱ // 0x547 @0x5
0x0542…0556 at0006 = ╱31╱1╱ // 0x548 @0x6
0x0542…0556 at0007 = ╱dc╱=╱ // 0x549 @0x7
0x0542…0556 at0008 = ╱4f╱O╱ // 0x54a @0x8
0x0542…0556 at0009 = ╱4b╱K╱ // 0x54b @0x9
0x0542…0556 at000a = ╱31╱1╱ // 0x54c @0xa
0x0542…0556 at000b = ╱e4╱*╱ // 0x54d @0xb
0x0542…0556 at000c = ╱46╱F╱ // 0x54e @0xc
0x0542…0556 at000d = ╱4f╱O╱ // 0x54f @0xd
0x0542…0556 at000e = ╱52╱R╱ // 0x550 @0xe
0x0542…0556 at000f = ╱54╱T╱ // 0x551 @0xf
0x0542…0556 at0010 = ╱45╱E╱ // 0x552 @0x10
0x0542…0556 at0011 = ╱47╱G╱ // 0x553 @0x11
0x0542…0556 at0012 = ╱4e╱N╱ // 0x554 @0x12
0x0542…0556 at0013 = EOL // 0x555 @0x13
0x0542…0556 }
0x0556…056b 92c2 0630 IF OK1<B THEN OK1=OK1+E
0x0556…056b LineComalBin {
0x0556…056b ptr = 0x92c2 // 0x556 @0x0
0x0556…056b lno = 0x0276 // 0x558 @0x2
0x0556…056b at0004 = ╱82╱ IF ╱ // 0x55a @0x4
0x0556…056b at0005 = ╱4f╱O╱ // 0x55b @0x5
0x0556…056b at0006 = ╱4b╱K╱ // 0x55c @0x6
0x0556…056b at0007 = ╱31╱1╱ // 0x55d @0x7
0x0556…056b at0008 = ╱dd╱<╱ // 0x55e @0x8
0x0556…056b at0009 = ╱42╱B╱ // 0x55f @0x9
0x0556…056b at000a = ╱b6╱ THEN ╱ // 0x560 @0xa
0x0556…056b at000b = ╱4f╱O╱ // 0x561 @0xb
0x0556…056b at000c = ╱4b╱K╱ // 0x562 @0xc
0x0556…056b at000d = ╱31╱1╱ // 0x563 @0xd
0x0556…056b at000e = ╱dc╱=╱ // 0x564 @0xe
0x0556…056b at000f = ╱4f╱O╱ // 0x565 @0xf
0x0556…056b at0010 = ╱4b╱K╱ // 0x566 @0x10
0x0556…056b at0011 = ╱31╱1╱ // 0x567 @0x11
0x0556…056b at0012 = ╱e2╱+╱ // 0x568 @0x12
0x0556…056b at0013 = ╱45╱E╱ // 0x569 @0x13
0x0556…056b at0014 = EOL // 0x56a @0x14
0x0556…056b }
0x056b…0571 92c8 0640 ENDIF
0x056b…0571 LineComalBin {
0x056b…0571 ptr = 0x92c8 // 0x56b @0x0
0x056b…0571 lno = 0x0280 // 0x56d @0x2
0x056b…0571 at0004 = ╱9b╱ ENDIF ╱ // 0x56f @0x4
0x056b…0571 at0005 = EOL // 0x570 @0x5
0x056b…0571 }
0x0571…0577 92ce 0650 ENDPROC
0x0571…0577 LineComalBin {
0x0571…0577 ptr = 0x92ce // 0x571 @0x0
0x0571…0577 lno = 0x028a // 0x573 @0x2
0x0571…0577 at0004 = ╱9f╱ ENDPROC ╱ // 0x575 @0x4
0x0571…0577 at0005 = EOL // 0x576 @0x5
0x0571…0577 }
0x0577…0586 92dd 0660 PROC INDART(N)
0x0577…0586 LineComalBin {
0x0577…0586 ptr = 0x92dd // 0x577 @0x0
0x0577…0586 lno = 0x0294 // 0x579 @0x2
0x0577…0586 at0004 = ╱9e╱ PROC ╱ // 0x57b @0x4
0x0577…0586 at0005 = ╱49╱I╱ // 0x57c @0x5
0x0577…0586 at0006 = ╱4e╱N╱ // 0x57d @0x6
0x0577…0586 at0007 = ╱44╱D╱ // 0x57e @0x7
0x0577…0586 at0008 = ╱41╱A╱ // 0x57f @0x8
0x0577…0586 at0009 = ╱52╱R╱ // 0x580 @0x9
0x0577…0586 at000a = ╱54╱T╱ // 0x581 @0xa
0x0577…0586 at000b = ╱ed╱(╱ // 0x582 @0xb
0x0577…0586 at000c = ╱4e╱N╱ // 0x583 @0xc
0x0577…0586 at000d = ╱ee╱)╱ // 0x584 @0xd
0x0577…0586 at000e = EOL // 0x585 @0xe
0x0577…0586 }
0x0586…05a5 92fc 0670 GET FIL5$,N:POST6$,KT,FSHT,ÅT
0x0586…05a5 LineComalBin {
0x0586…05a5 ptr = 0x92fc // 0x586 @0x0
0x0586…05a5 lno = 0x029e // 0x588 @0x2
0x0586…05a5 at0004 = ╱a9╱ GET ╱ // 0x58a @0x4
0x0586…05a5 at0005 = ╱46╱F╱ // 0x58b @0x5
0x0586…05a5 at0006 = ╱49╱I╱ // 0x58c @0x6
0x0586…05a5 at0007 = ╱4c╱L╱ // 0x58d @0x7
0x0586…05a5 at0008 = ╱35╱5╱ // 0x58e @0x8
0x0586…05a5 at0009 = ╱ef╱$╱ // 0x58f @0x9
0x0586…05a5 at000a = ╱ec╱,╱ // 0x590 @0xa
0x0586…05a5 at000b = ╱4e╱N╱ // 0x591 @0xb
0x0586…05a5 at000c = ╱f0╱:╱ // 0x592 @0xc
0x0586…05a5 at000d = ╱50╱P╱ // 0x593 @0xd
0x0586…05a5 at000e = ╱4f╱O╱ // 0x594 @0xe
0x0586…05a5 at000f = ╱53╱S╱ // 0x595 @0xf
0x0586…05a5 at0010 = ╱54╱T╱ // 0x596 @0x10
0x0586…05a5 at0011 = ╱36╱6╱ // 0x597 @0x11
0x0586…05a5 at0012 = ╱ef╱$╱ // 0x598 @0x12
0x0586…05a5 at0013 = ╱ec╱,╱ // 0x599 @0x13
0x0586…05a5 at0014 = ╱4b╱K╱ // 0x59a @0x14
0x0586…05a5 at0015 = ╱54╱T╱ // 0x59b @0x15
0x0586…05a5 at0016 = ╱ec╱,╱ // 0x59c @0x16
0x0586…05a5 at0017 = ╱46╱F╱ // 0x59d @0x17
0x0586…05a5 at0018 = ╱53╱S╱ // 0x59e @0x18
0x0586…05a5 at0019 = ╱48╱H╱ // 0x59f @0x19
0x0586…05a5 at001a = ╱54╱T╱ // 0x5a0 @0x1a
0x0586…05a5 at001b = ╱ec╱,╱ // 0x5a1 @0x1b
0x0586…05a5 at001c = ╱5d╱Å╱ // 0x5a2 @0x1c
0x0586…05a5 at001d = ╱54╱T╱ // 0x5a3 @0x1d
0x0586…05a5 at001e = EOL // 0x5a4 @0x1e
0x0586…05a5 }
0x05a5…05ba 9311 0680 EXEC FEJL(G,N,FIL5$)
0x05a5…05ba LineComalBin {
0x05a5…05ba ptr = 0x9311 // 0x5a5 @0x0
0x05a5…05ba lno = 0x02a8 // 0x5a7 @0x2
0x05a5…05ba at0004 = ╱9d╱ EXEC ╱ // 0x5a9 @0x4
0x05a5…05ba at0005 = ╱46╱F╱ // 0x5aa @0x5
0x05a5…05ba at0006 = ╱45╱E╱ // 0x5ab @0x6
0x05a5…05ba at0007 = ╱4a╱J╱ // 0x5ac @0x7
0x05a5…05ba at0008 = ╱4c╱L╱ // 0x5ad @0x8
0x05a5…05ba at0009 = ╱ed╱(╱ // 0x5ae @0x9
0x05a5…05ba at000a = ╱47╱G╱ // 0x5af @0xa
0x05a5…05ba at000b = ╱ec╱,╱ // 0x5b0 @0xb
0x05a5…05ba at000c = ╱4e╱N╱ // 0x5b1 @0xc
0x05a5…05ba at000d = ╱ec╱,╱ // 0x5b2 @0xd
0x05a5…05ba at000e = ╱46╱F╱ // 0x5b3 @0xe
0x05a5…05ba at000f = ╱49╱I╱ // 0x5b4 @0xf
0x05a5…05ba at0010 = ╱4c╱L╱ // 0x5b5 @0x10
0x05a5…05ba at0011 = ╱35╱5╱ // 0x5b6 @0x11
0x05a5…05ba at0012 = ╱ef╱$╱ // 0x5b7 @0x12
0x05a5…05ba at0013 = ╱ee╱)╱ // 0x5b8 @0x13
0x05a5…05ba at0014 = EOL // 0x5b9 @0x14
0x05a5…05ba }
0x05ba…05c0 9317 0690 ENDPROC
0x05ba…05c0 LineComalBin {
0x05ba…05c0 ptr = 0x9317 // 0x5ba @0x0
0x05ba…05c0 lno = 0x02b2 // 0x5bc @0x2
0x05ba…05c0 at0004 = ╱9f╱ ENDPROC ╱ // 0x5be @0x4
0x05ba…05c0 at0005 = EOL // 0x5bf @0x5
0x05ba…05c0 }
0x05c0…05d4 932b 0700 PROC FEJL(P1,P2,P3)
0x05c0…05d4 LineComalBin {
0x05c0…05d4 ptr = 0x932b // 0x5c0 @0x0
0x05c0…05d4 lno = 0x02bc // 0x5c2 @0x2
0x05c0…05d4 at0004 = ╱9e╱ PROC ╱ // 0x5c4 @0x4
0x05c0…05d4 at0005 = ╱46╱F╱ // 0x5c5 @0x5
0x05c0…05d4 at0006 = ╱45╱E╱ // 0x5c6 @0x6
0x05c0…05d4 at0007 = ╱4a╱J╱ // 0x5c7 @0x7
0x05c0…05d4 at0008 = ╱4c╱L╱ // 0x5c8 @0x8
0x05c0…05d4 at0009 = ╱ed╱(╱ // 0x5c9 @0x9
0x05c0…05d4 at000a = ╱50╱P╱ // 0x5ca @0xa
0x05c0…05d4 at000b = ╱31╱1╱ // 0x5cb @0xb
0x05c0…05d4 at000c = ╱ec╱,╱ // 0x5cc @0xc
0x05c0…05d4 at000d = ╱50╱P╱ // 0x5cd @0xd
0x05c0…05d4 at000e = ╱32╱2╱ // 0x5ce @0xe
0x05c0…05d4 at000f = ╱ec╱,╱ // 0x5cf @0xf
0x05c0…05d4 at0010 = ╱50╱P╱ // 0x5d0 @0x10
0x05c0…05d4 at0011 = ╱33╱3╱ // 0x5d1 @0x11
0x05c0…05d4 at0012 = ╱ee╱)╱ // 0x5d2 @0x12
0x05c0…05d4 at0013 = EOL // 0x5d3 @0x13
0x05c0…05d4 }
0x05d4…05e3 933a 0710 IF STATUS(P3$)<>B THEN
0x05d4…05e3 LineComalBin {
0x05d4…05e3 ptr = 0x933a // 0x5d4 @0x0
0x05d4…05e3 lno = 0x02c6 // 0x5d6 @0x2
0x05d4…05e3 at0004 = ╱9c╱ IF ╱ // 0x5d8 @0x4
0x05d4…05e3 at0005 = ╱ce╱STATUS╱ // 0x5d9 @0x5
0x05d4…05e3 at0006 = ╱ed╱(╱ // 0x5da @0x6
0x05d4…05e3 at0007 = ╱50╱P╱ // 0x5db @0x7
0x05d4…05e3 at0008 = ╱33╱3╱ // 0x5dc @0x8
0x05d4…05e3 at0009 = ╱ef╱$╱ // 0x5dd @0x9
0x05d4…05e3 at000a = ╱ee╱)╱ // 0x5de @0xa
0x05d4…05e3 at000b = ╱e1╱<>╱ // 0x5df @0xb
0x05d4…05e3 at000c = ╱42╱B╱ // 0x5e0 @0xc
0x05d4…05e3 at000d = ╱b6╱ THEN ╱ // 0x5e1 @0xd
0x05d4…05e3 at000e = EOL // 0x5e2 @0xe
0x05d4…05e3 }
0x05e3…05ea 9341 0720 OUTPUT T
0x05e3…05ea LineComalBin {
0x05e3…05ea ptr = 0x9341 // 0x5e3 @0x0
0x05e3…05ea lno = 0x02d0 // 0x5e5 @0x2
0x05e3…05ea at0004 = ╱a5╱ OUTPUT ╱ // 0x5e7 @0x4
0x05e3…05ea at0005 = ╱54╱T╱ // 0x5e8 @0x5
0x05e3…05ea at0006 = EOL // 0x5e9 @0x6
0x05e3…05ea }
0x05ea…060c 9363 0730 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2
0x05ea…060c LineComalBin {
0x05ea…060c ptr = 0x9363 // 0x5ea @0x0
0x05ea…060c lno = 0x02da // 0x5ec @0x2
0x05ea…060c at0004 = ╱92╱ PRINT ╱ // 0x5ee @0x4
0x05ea…060c at0005 = ╱22╱"╱ // 0x5ef @0x5
0x05ea…060c at0006 = ╱46╱F╱ // 0x5f0 @0x6
0x05ea…060c at0007 = ╱49╱I╱ // 0x5f1 @0x7
0x05ea…060c at0008 = ╱4c╱L╱ // 0x5f2 @0x8
0x05ea…060c at0009 = ╱2d╱-╱ // 0x5f3 @0x9
0x05ea…060c at000a = ╱46╱F╱ // 0x5f4 @0xa
0x05ea…060c at000b = ╱45╱E╱ // 0x5f5 @0xb
0x05ea…060c at000c = ╱4a╱J╱ // 0x5f6 @0xc
0x05ea…060c at000d = ╱4c╱L╱ // 0x5f7 @0xd
0x05ea…060c at000e = ╱20╱…╱ // 0x5f8 @0xe
0x05ea…060c at000f = ╱22╱"╱ // 0x5f9 @0xf
0x05ea…060c at0010 = ╱eb╱;╱ // 0x5fa @0x10
0x05ea…060c at0011 = ╱50╱P╱ // 0x5fb @0x11
0x05ea…060c at0012 = ╱33╱3╱ // 0x5fc @0x12
0x05ea…060c at0013 = ╱ef╱$╱ // 0x5fd @0x13
0x05ea…060c at0014 = ╱eb╱;╱ // 0x5fe @0x14
0x05ea…060c at0015 = ╱ce╱STATUS╱ // 0x5ff @0x15
0x05ea…060c at0016 = ╱ed╱(╱ // 0x600 @0x16
0x05ea…060c at0017 = ╱50╱P╱ // 0x601 @0x17
0x05ea…060c at0018 = ╱33╱3╱ // 0x602 @0x18
0x05ea…060c at0019 = ╱ef╱$╱ // 0x603 @0x19
0x05ea…060c at001a = ╱ee╱)╱ // 0x604 @0x1a
0x05ea…060c at001b = ╱ec╱,╱ // 0x605 @0x1b
0x05ea…060c at001c = ╱50╱P╱ // 0x606 @0x1c
0x05ea…060c at001d = ╱31╱1╱ // 0x607 @0x1d
0x05ea…060c at001e = ╱eb╱;╱ // 0x608 @0x1e
0x05ea…060c at001f = ╱50╱P╱ // 0x609 @0x1f
0x05ea…060c at0020 = ╱32╱2╱ // 0x60a @0x20
0x05ea…060c at0021 = EOL // 0x60b @0x21
0x05ea…060c }
0x060c…0612 9369 0740 STOP
0x060c…0612 LineComalBin {
0x060c…0612 ptr = 0x9369 // 0x60c @0x0
0x060c…0612 lno = 0x02e4 // 0x60e @0x2
0x060c…0612 at0004 = ╱8d╱ STOP ╱ // 0x610 @0x4
0x060c…0612 at0005 = EOL // 0x611 @0x5
0x060c…0612 }
0x0612…0618 936f 0750 ENDIF
0x0612…0618 LineComalBin {
0x0612…0618 ptr = 0x936f // 0x612 @0x0
0x0612…0618 lno = 0x02ee // 0x614 @0x2
0x0612…0618 at0004 = ╱9b╱ ENDIF ╱ // 0x616 @0x4
0x0612…0618 at0005 = EOL // 0x617 @0x5
0x0612…0618 }
0x0618…061e 9375 0760 ENDPROC
0x0618…061e LineComalBin {
0x0618…061e ptr = 0x9375 // 0x618 @0x0
0x0618…061e lno = 0x02f8 // 0x61a @0x2
0x0618…061e at0004 = ╱9f╱ ENDPROC ╱ // 0x61c @0x4
0x0618…061e at0005 = EOL // 0x61d @0x5
0x0618…061e }
0x061e…0636 938d 0770 PROC CALC(AR3,B1,B2,ES)
0x061e…0636 LineComalBin {
0x061e…0636 ptr = 0x938d // 0x61e @0x0
0x061e…0636 lno = 0x0302 // 0x620 @0x2
0x061e…0636 at0004 = ╱9e╱ PROC ╱ // 0x622 @0x4
0x061e…0636 at0005 = ╱43╱C╱ // 0x623 @0x5
0x061e…0636 at0006 = ╱41╱A╱ // 0x624 @0x6
0x061e…0636 at0007 = ╱4c╱L╱ // 0x625 @0x7
0x061e…0636 at0008 = ╱43╱C╱ // 0x626 @0x8
0x061e…0636 at0009 = ╱ed╱(╱ // 0x627 @0x9
0x061e…0636 at000a = ╱41╱A╱ // 0x628 @0xa
0x061e…0636 at000b = ╱52╱R╱ // 0x629 @0xb
0x061e…0636 at000c = ╱33╱3╱ // 0x62a @0xc
0x061e…0636 at000d = ╱ec╱,╱ // 0x62b @0xd
0x061e…0636 at000e = ╱42╱B╱ // 0x62c @0xe
0x061e…0636 at000f = ╱31╱1╱ // 0x62d @0xf
0x061e…0636 at0010 = ╱ec╱,╱ // 0x62e @0x10
0x061e…0636 at0011 = ╱42╱B╱ // 0x62f @0x11
0x061e…0636 at0012 = ╱32╱2╱ // 0x630 @0x12
0x061e…0636 at0013 = ╱ec╱,╱ // 0x631 @0x13
0x061e…0636 at0014 = ╱45╱E╱ // 0x632 @0x14
0x061e…0636 at0015 = ╱53╱S╱ // 0x633 @0x15
0x061e…0636 at0016 = ╱ee╱)╱ // 0x634 @0x16
0x061e…0636 at0017 = EOL // 0x635 @0x17
0x061e…0636 }
0x0636…067d 93d4 0780 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0636…067d LineComalBin {
0x0636…067d ptr = 0x93d4 // 0x636 @0x0
0x0636…067d lno = 0x030c // 0x638 @0x2
0x0636…067d at0004 = ╱52╱R╱ // 0x63a @0x4
0x0636…067d at0005 = ╱45╱E╱ // 0x63b @0x5
0x0636…067d at0006 = ╱53╱S╱ // 0x63c @0x6
0x0636…067d at0007 = ╱ef╱$╱ // 0x63d @0x7
0x0636…067d at0008 = ╱dc╱=╱ // 0x63e @0x8
0x0636…067d at0009 = ╱45╱E╱ // 0x63f @0x9
0x0636…067d at000a = ╱53╱S╱ // 0x640 @0xa
0x0636…067d at000b = ╱ef╱$╱ // 0x641 @0xb
0x0636…067d at000c = ╱eb╱;╱ // 0x642 @0xc
0x0636…067d at000d = ╱4f╱O╱ // 0x643 @0xd
0x0636…067d at000e = ╱50╱P╱ // 0x644 @0xe
0x0636…067d at000f = ╱31╱1╱ // 0x645 @0xf
0x0636…067d at0010 = ╱ef╱$╱ // 0x646 @0x10
0x0636…067d at0011 = ╱dc╱=╱ // 0x647 @0x11
0x0636…067d at0012 = ╱42╱B╱ // 0x648 @0x12
0x0636…067d at0013 = ╱31╱1╱ // 0x649 @0x13
0x0636…067d at0014 = ╱ef╱$╱ // 0x64a @0x14
0x0636…067d at0015 = ╱eb╱;╱ // 0x64b @0x15
0x0636…067d at0016 = ╱4f╱O╱ // 0x64c @0x16
0x0636…067d at0017 = ╱50╱P╱ // 0x64d @0x17
0x0636…067d at0018 = ╱32╱2╱ // 0x64e @0x18
0x0636…067d at0019 = ╱ef╱$╱ // 0x64f @0x19
0x0636…067d at001a = ╱dc╱=╱ // 0x650 @0x1a
0x0636…067d at001b = ╱42╱B╱ // 0x651 @0x1b
0x0636…067d at001c = ╱32╱2╱ // 0x652 @0x1c
0x0636…067d at001d = ╱ef╱$╱ // 0x653 @0x1d
0x0636…067d at001e = ╱eb╱;╱ // 0x654 @0x1e
0x0636…067d at001f = ╱53╱S╱ // 0x655 @0x1f
0x0636…067d at0020 = ╱49╱I╱ // 0x656 @0x20
0x0636…067d at0021 = ╱dc╱=╱ // 0x657 @0x21
0x0636…067d at0022 = ╱42╱B╱ // 0x658 @0x22
0x0636…067d at0023 = ╱eb╱;╱ // 0x659 @0x23
0x0636…067d at0024 = ╱46╱F╱ // 0x65a @0x24
0x0636…067d at0025 = ╱4c╱L╱ // 0x65b @0x25
0x0636…067d at0026 = ╱41╱A╱ // 0x65c @0x26
0x0636…067d at0027 = ╱47╱G╱ // 0x65d @0x27
0x0636…067d at0028 = ╱dc╱=╱ // 0x65e @0x28
0x0636…067d at0029 = ╱42╱B╱ // 0x65f @0x29
0x0636…067d at002a = ╱eb╱;╱ // 0x660 @0x2a
0x0636…067d at002b = ╱41╱A╱ // 0x661 @0x2b
0x0636…067d at002c = ╱52╱R╱ // 0x662 @0x2c
0x0636…067d at002d = ╱54╱T╱ // 0x663 @0x2d
0x0636…067d at002e = ╱dc╱=╱ // 0x664 @0x2e
0x0636…067d at002f = ╱41╱A╱ // 0x665 @0x2f
0x0636…067d at0030 = ╱52╱R╱ // 0x666 @0x30
0x0636…067d at0031 = ╱33╱3╱ // 0x667 @0x31
0x0636…067d at0032 = ╱e3╱-╱ // 0x668 @0x32
0x0636…067d at0033 = ╱36╱6╱ // 0x669 @0x33
0x0636…067d at0034 = ╱fe0000c003╱ // 0x66a @0x34
0x0636…067d at0039 = ╱e4╱*╱ // 0x66f @0x39
0x0636…067d at003a = ╱ed╱(╱ // 0x670 @0x3a
0x0636…067d at003b = ╱41╱A╱ // 0x671 @0x3b
0x0636…067d at003c = ╱52╱R╱ // 0x672 @0x3c
0x0636…067d at003d = ╱33╱3╱ // 0x673 @0x3d
0x0636…067d at003e = ╱de╱>╱ // 0x674 @0x3e
0x0636…067d at003f = ╱35╱5╱ // 0x675 @0x3f
0x0636…067d at0040 = ╱fe0000a003╱ // 0x676 @0x40
0x0636…067d at0045 = ╱ee╱)╱ // 0x67b @0x45
0x0636…067d at0046 = EOL // 0x67c @0x46
0x0636…067d }
0x067d…0693 93ea 0790 CALL "P641210:REGN"
0x067d…0693 LineComalBin {
0x067d…0693 ptr = 0x93ea // 0x67d @0x0
0x067d…0693 lno = 0x0316 // 0x67f @0x2
0x067d…0693 at0004 = ╱adeff0╱ CALL ╱ // 0x681 @0x4
0x067d…0693 at0007 = ╱22╱"╱ // 0x684 @0x7
0x067d…0693 at0008 = ╱50╱P╱ // 0x685 @0x8
0x067d…0693 at0009 = ╱36╱6╱ // 0x686 @0x9
0x067d…0693 at000a = ╱34╱4╱ // 0x687 @0xa
0x067d…0693 at000b = ╱31╱1╱ // 0x688 @0xb
0x067d…0693 at000c = ╱32╱2╱ // 0x689 @0xc
0x067d…0693 at000d = ╱31╱1╱ // 0x68a @0xd
0x067d…0693 at000e = ╱30╱0╱ // 0x68b @0xe
0x067d…0693 at000f = ╱3a╱:╱ // 0x68c @0xf
0x067d…0693 at0010 = ╱52╱R╱ // 0x68d @0x10
0x067d…0693 at0011 = ╱45╱E╱ // 0x68e @0x11
0x067d…0693 at0012 = ╱47╱G╱ // 0x68f @0x12
0x067d…0693 at0013 = ╱4e╱N╱ // 0x690 @0x13
0x067d…0693 at0014 = ╱22╱"╱ // 0x691 @0x14
0x067d…0693 at0015 = EOL // 0x692 @0x15
0x067d…0693 }
0x0693…06a4 93fb 0800 IF AR3<6 THEN
0x0693…06a4 LineComalBin {
0x0693…06a4 ptr = 0x93fb // 0x693 @0x0
0x0693…06a4 lno = 0x0320 // 0x695 @0x2
0x0693…06a4 at0004 = ╱9c╱ IF ╱ // 0x697 @0x4
0x0693…06a4 at0005 = ╱41╱A╱ // 0x698 @0x5
0x0693…06a4 at0006 = ╱52╱R╱ // 0x699 @0x6
0x0693…06a4 at0007 = ╱33╱3╱ // 0x69a @0x7
0x0693…06a4 at0008 = ╱dd╱<╱ // 0x69b @0x8
0x0693…06a4 at0009 = ╱36╱6╱ // 0x69c @0x9
0x0693…06a4 at000a = ╱fe0000c003╱ // 0x69d @0xa
0x0693…06a4 at000f = ╱b6╱ THEN ╱ // 0x6a2 @0xf
0x0693…06a4 at0010 = EOL // 0x6a3 @0x10
0x0693…06a4 }
0x06a4…06b0 9407 0810 IF FLAG THEN STOP
0x06a4…06b0 LineComalBin {
0x06a4…06b0 ptr = 0x9407 // 0x6a4 @0x0
0x06a4…06b0 lno = 0x032a // 0x6a6 @0x2
0x06a4…06b0 at0004 = ╱82╱ IF ╱ // 0x6a8 @0x4
0x06a4…06b0 at0005 = ╱46╱F╱ // 0x6a9 @0x5
0x06a4…06b0 at0006 = ╱4c╱L╱ // 0x6aa @0x6
0x06a4…06b0 at0007 = ╱41╱A╱ // 0x6ab @0x7
0x06a4…06b0 at0008 = ╱47╱G╱ // 0x6ac @0x8
0x06a4…06b0 at0009 = ╱b6╱ THEN ╱ // 0x6ad @0x9
0x06a4…06b0 at000a = ╱8d╱ STOP ╱ // 0x6ae @0xa
0x06a4…06b0 at000b = EOL // 0x6af @0xb
0x06a4…06b0 }
0x06b0…06b6 940d 0820 ENDIF
0x06b0…06b6 LineComalBin {
0x06b0…06b6 ptr = 0x940d // 0x6b0 @0x0
0x06b0…06b6 lno = 0x0334 // 0x6b2 @0x2
0x06b0…06b6 at0004 = ╱9b╱ ENDIF ╱ // 0x6b4 @0x4
0x06b0…06b6 at0005 = EOL // 0x6b5 @0x5
0x06b0…06b6 }
0x06b6…06c3 941a 0830 ES$=RES$
0x06b6…06c3 LineComalBin {
0x06b6…06c3 ptr = 0x941a // 0x6b6 @0x0
0x06b6…06c3 lno = 0x033e // 0x6b8 @0x2
0x06b6…06c3 at0004 = ╱45╱E╱ // 0x6ba @0x4
0x06b6…06c3 at0005 = ╱53╱S╱ // 0x6bb @0x5
0x06b6…06c3 at0006 = ╱ef╱$╱ // 0x6bc @0x6
0x06b6…06c3 at0007 = ╱dc╱=╱ // 0x6bd @0x7
0x06b6…06c3 at0008 = ╱52╱R╱ // 0x6be @0x8
0x06b6…06c3 at0009 = ╱45╱E╱ // 0x6bf @0x9
0x06b6…06c3 at000a = ╱53╱S╱ // 0x6c0 @0xa
0x06b6…06c3 at000b = ╱ef╱$╱ // 0x6c1 @0xb
0x06b6…06c3 at000c = EOL // 0x6c2 @0xc
0x06b6…06c3 }
0x06c3…06c9 9420 0840 ENDPROC
0x06c3…06c9 LineComalBin {
0x06c3…06c9 ptr = 0x9420 // 0x6c3 @0x0
0x06c3…06c9 lno = 0x0348 // 0x6c5 @0x2
0x06c3…06c9 at0004 = ╱9f╱ ENDPROC ╱ // 0x6c7 @0x4
0x06c3…06c9 at0005 = EOL // 0x6c8 @0x5
0x06c3…06c9 }
0x06c9…06d7 942e 0850 PROC SKRIVSID
0x06c9…06d7 LineComalBin {
0x06c9…06d7 ptr = 0x942e // 0x6c9 @0x0
0x06c9…06d7 lno = 0x0352 // 0x6cb @0x2
0x06c9…06d7 at0004 = ╱9e╱ PROC ╱ // 0x6cd @0x4
0x06c9…06d7 at0005 = ╱53╱S╱ // 0x6ce @0x5
0x06c9…06d7 at0006 = ╱4b╱K╱ // 0x6cf @0x6
0x06c9…06d7 at0007 = ╱52╱R╱ // 0x6d0 @0x7
0x06c9…06d7 at0008 = ╱49╱I╱ // 0x6d1 @0x8
0x06c9…06d7 at0009 = ╱56╱V╱ // 0x6d2 @0x9
0x06c9…06d7 at000a = ╱53╱S╱ // 0x6d3 @0xa
0x06c9…06d7 at000b = ╱49╱I╱ // 0x6d4 @0xb
0x06c9…06d7 at000c = ╱44╱D╱ // 0x6d5 @0xc
0x06c9…06d7 at000d = EOL // 0x6d6 @0xd
0x06c9…06d7 }
0x06d7…06dd 9434 0860 CLEAR
0x06d7…06dd LineComalBin {
0x06d7…06dd ptr = 0x9434 // 0x6d7 @0x0
0x06d7…06dd lno = 0x035c // 0x6d9 @0x2
0x06d7…06dd at0004 = ╱a0╱ CLEAR ╱ // 0x6db @0x4
0x06d7…06dd at0005 = EOL // 0x6dc @0x5
0x06d7…06dd }
0x06dd…0709 9460 0870 PRINT " L Ø N B E R E G N I N G"
0x06dd…0709 LineComalBin {
0x06dd…0709 ptr = 0x9460 // 0x6dd @0x0
0x06dd…0709 lno = 0x0366 // 0x6df @0x2
0x06dd…0709 at0004 = ╱92╱ PRINT ╱ // 0x6e1 @0x4
0x06dd…0709 at0005 = ╱22╱"╱ // 0x6e2 @0x5
0x06dd…0709 at0006 = ╱20╱…╱ // 0x6e3 @0x6
0x06dd…0709 at0007 = ╱20╱…╱ // 0x6e4 @0x7
0x06dd…0709 at0008 = ╱20╱…╱ // 0x6e5 @0x8
0x06dd…0709 at0009 = ╱20╱…╱ // 0x6e6 @0x9
0x06dd…0709 at000a = ╱20╱…╱ // 0x6e7 @0xa
0x06dd…0709 at000b = ╱20╱…╱ // 0x6e8 @0xb
0x06dd…0709 at000c = ╱20╱…╱ // 0x6e9 @0xc
0x06dd…0709 at000d = ╱20╱…╱ // 0x6ea @0xd
0x06dd…0709 at000e = ╱20╱…╱ // 0x6eb @0xe
0x06dd…0709 at000f = ╱20╱…╱ // 0x6ec @0xf
0x06dd…0709 at0010 = ╱20╱…╱ // 0x6ed @0x10
0x06dd…0709 at0011 = ╱20╱…╱ // 0x6ee @0x11
0x06dd…0709 at0012 = ╱20╱…╱ // 0x6ef @0x12
0x06dd…0709 at0013 = ╱4c╱L╱ // 0x6f0 @0x13
0x06dd…0709 at0014 = ╱20╱…╱ // 0x6f1 @0x14
0x06dd…0709 at0015 = ╱5c╱Ø╱ // 0x6f2 @0x15
0x06dd…0709 at0016 = ╱20╱…╱ // 0x6f3 @0x16
0x06dd…0709 at0017 = ╱4e╱N╱ // 0x6f4 @0x17
0x06dd…0709 at0018 = ╱20╱…╱ // 0x6f5 @0x18
0x06dd…0709 at0019 = ╱42╱B╱ // 0x6f6 @0x19
0x06dd…0709 at001a = ╱20╱…╱ // 0x6f7 @0x1a
0x06dd…0709 at001b = ╱45╱E╱ // 0x6f8 @0x1b
0x06dd…0709 at001c = ╱20╱…╱ // 0x6f9 @0x1c
0x06dd…0709 at001d = ╱52╱R╱ // 0x6fa @0x1d
0x06dd…0709 at001e = ╱20╱…╱ // 0x6fb @0x1e
0x06dd…0709 at001f = ╱45╱E╱ // 0x6fc @0x1f
0x06dd…0709 at0020 = ╱20╱…╱ // 0x6fd @0x20
0x06dd…0709 at0021 = ╱47╱G╱ // 0x6fe @0x21
0x06dd…0709 at0022 = ╱20╱…╱ // 0x6ff @0x22
0x06dd…0709 at0023 = ╱4e╱N╱ // 0x700 @0x23
0x06dd…0709 at0024 = ╱20╱…╱ // 0x701 @0x24
0x06dd…0709 at0025 = ╱49╱I╱ // 0x702 @0x25
0x06dd…0709 at0026 = ╱20╱…╱ // 0x703 @0x26
0x06dd…0709 at0027 = ╱4e╱N╱ // 0x704 @0x27
0x06dd…0709 at0028 = ╱20╱…╱ // 0x705 @0x28
0x06dd…0709 at0029 = ╱47╱G╱ // 0x706 @0x29
0x06dd…0709 at002a = ╱22╱"╱ // 0x707 @0x2a
0x06dd…0709 at002b = EOL // 0x708 @0x2b
0x06dd…0709 }
0x0709…0718 946f 0880 PRINT "Lønnr ";
0x0709…0718 LineComalBin {
0x0709…0718 ptr = 0x946f // 0x709 @0x0
0x0709…0718 lno = 0x0370 // 0x70b @0x2
0x0709…0718 at0004 = ╱92╱ PRINT ╱ // 0x70d @0x4
0x0709…0718 at0005 = ╱22╱"╱ // 0x70e @0x5
0x0709…0718 at0006 = ╱4c╱L╱ // 0x70f @0x6
0x0709…0718 at0007 = ╱7c╱ø╱ // 0x710 @0x7
0x0709…0718 at0008 = ╱6e╱n╱ // 0x711 @0x8
0x0709…0718 at0009 = ╱6e╱n╱ // 0x712 @0x9
0x0709…0718 at000a = ╱72╱r╱ // 0x713 @0xa
0x0709…0718 at000b = ╱20╱…╱ // 0x714 @0xb
0x0709…0718 at000c = ╱22╱"╱ // 0x715 @0xc
0x0709…0718 at000d = ╱eb╱;╱ // 0x716 @0xd
0x0709…0718 at000e = EOL // 0x717 @0xe
0x0709…0718 }
0x0718…072c 9483 0890 PRINT USING "#### ":LMNR;
0x0718…072c LineComalBin {
0x0718…072c ptr = 0x9483 // 0x718 @0x0
0x0718…072c lno = 0x037a // 0x71a @0x2
0x0718…072c at0004 = ╱92╱ PRINT ╱ // 0x71c @0x4
0x0718…072c at0005 = ╱b9╱ USING ╱ // 0x71d @0x5
0x0718…072c at0006 = ╱22╱"╱ // 0x71e @0x6
0x0718…072c at0007 = ╱23╱#╱ // 0x71f @0x7
0x0718…072c at0008 = ╱23╱#╱ // 0x720 @0x8
0x0718…072c at0009 = ╱23╱#╱ // 0x721 @0x9
0x0718…072c at000a = ╱23╱#╱ // 0x722 @0xa
0x0718…072c at000b = ╱20╱…╱ // 0x723 @0xb
0x0718…072c at000c = ╱22╱"╱ // 0x724 @0xc
0x0718…072c at000d = ╱f0╱:╱ // 0x725 @0xd
0x0718…072c at000e = ╱4c╱L╱ // 0x726 @0xe
0x0718…072c at000f = ╱4d╱M╱ // 0x727 @0xf
0x0718…072c at0010 = ╱4e╱N╱ // 0x728 @0x10
0x0718…072c at0011 = ╱52╱R╱ // 0x729 @0x11
0x0718…072c at0012 = ╱eb╱;╱ // 0x72a @0x12
0x0718…072c at0013 = EOL // 0x72b @0x13
0x0718…072c }
0x072c…074b 94a2 0900 PRINT "Navn ";POST1$(E,25)
0x072c…074b LineComalBin {
0x072c…074b ptr = 0x94a2 // 0x72c @0x0
0x072c…074b lno = 0x0384 // 0x72e @0x2
0x072c…074b at0004 = ╱92╱ PRINT ╱ // 0x730 @0x4
0x072c…074b at0005 = ╱22╱"╱ // 0x731 @0x5
0x072c…074b at0006 = ╱4e╱N╱ // 0x732 @0x6
0x072c…074b at0007 = ╱61╱a╱ // 0x733 @0x7
0x072c…074b at0008 = ╱76╱v╱ // 0x734 @0x8
0x072c…074b at0009 = ╱6e╱n╱ // 0x735 @0x9
0x072c…074b at000a = ╱20╱…╱ // 0x736 @0xa
0x072c…074b at000b = ╱22╱"╱ // 0x737 @0xb
0x072c…074b at000c = ╱eb╱;╱ // 0x738 @0xc
0x072c…074b at000d = ╱50╱P╱ // 0x739 @0xd
0x072c…074b at000e = ╱4f╱O╱ // 0x73a @0xe
0x072c…074b at000f = ╱53╱S╱ // 0x73b @0xf
0x072c…074b at0010 = ╱54╱T╱ // 0x73c @0x10
0x072c…074b at0011 = ╱31╱1╱ // 0x73d @0x11
0x072c…074b at0012 = ╱ef╱$╱ // 0x73e @0x12
0x072c…074b at0013 = ╱ed╱(╱ // 0x73f @0x13
0x072c…074b at0014 = ╱45╱E╱ // 0x740 @0x14
0x072c…074b at0015 = ╱ec╱,╱ // 0x741 @0x15
0x072c…074b at0016 = ╱32╱2╱ // 0x742 @0x16
0x072c…074b at0017 = ╱35╱5╱ // 0x743 @0x17
0x072c…074b at0018 = ╱fe0000c805╱ // 0x744 @0x18
0x072c…074b at001d = ╱ee╱)╱ // 0x749 @0x1d
0x072c…074b at001e = EOL // 0x74a @0x1e
0x072c…074b }
0x074b…078a 94e1 0910 PRINT "Linie Lønart Nummer Enheder Sats Beløb"
0x074b…078a LineComalBin {
0x074b…078a ptr = 0x94e1 // 0x74b @0x0
0x074b…078a lno = 0x038e // 0x74d @0x2
0x074b…078a at0004 = ╱92╱ PRINT ╱ // 0x74f @0x4
0x074b…078a at0005 = ╱22╱"╱ // 0x750 @0x5
0x074b…078a at0006 = ╱4c╱L╱ // 0x751 @0x6
0x074b…078a at0007 = ╱69╱i╱ // 0x752 @0x7
0x074b…078a at0008 = ╱6e╱n╱ // 0x753 @0x8
0x074b…078a at0009 = ╱69╱i╱ // 0x754 @0x9
0x074b…078a at000a = ╱65╱e╱ // 0x755 @0xa
0x074b…078a at000b = ╱20╱…╱ // 0x756 @0xb
0x074b…078a at000c = ╱4c╱L╱ // 0x757 @0xc
0x074b…078a at000d = ╱7c╱ø╱ // 0x758 @0xd
0x074b…078a at000e = ╱6e╱n╱ // 0x759 @0xe
0x074b…078a at000f = ╱61╱a╱ // 0x75a @0xf
0x074b…078a at0010 = ╱72╱r╱ // 0x75b @0x10
0x074b…078a at0011 = ╱74╱t╱ // 0x75c @0x11
0x074b…078a at0012 = ╱20╱…╱ // 0x75d @0x12
0x074b…078a at0013 = ╱20╱…╱ // 0x75e @0x13
0x074b…078a at0014 = ╱20╱…╱ // 0x75f @0x14
0x074b…078a at0015 = ╱20╱…╱ // 0x760 @0x15
0x074b…078a at0016 = ╱4e╱N╱ // 0x761 @0x16
0x074b…078a at0017 = ╱75╱u╱ // 0x762 @0x17
0x074b…078a at0018 = ╱6d╱m╱ // 0x763 @0x18
0x074b…078a at0019 = ╱6d╱m╱ // 0x764 @0x19
0x074b…078a at001a = ╱65╱e╱ // 0x765 @0x1a
0x074b…078a at001b = ╱72╱r╱ // 0x766 @0x1b
0x074b…078a at001c = ╱20╱…╱ // 0x767 @0x1c
0x074b…078a at001d = ╱20╱…╱ // 0x768 @0x1d
0x074b…078a at001e = ╱20╱…╱ // 0x769 @0x1e
0x074b…078a at001f = ╱20╱…╱ // 0x76a @0x1f
0x074b…078a at0020 = ╱20╱…╱ // 0x76b @0x20
0x074b…078a at0021 = ╱45╱E╱ // 0x76c @0x21
0x074b…078a at0022 = ╱6e╱n╱ // 0x76d @0x22
0x074b…078a at0023 = ╱68╱h╱ // 0x76e @0x23
0x074b…078a at0024 = ╱65╱e╱ // 0x76f @0x24
0x074b…078a at0025 = ╱64╱d╱ // 0x770 @0x25
0x074b…078a at0026 = ╱65╱e╱ // 0x771 @0x26
0x074b…078a at0027 = ╱72╱r╱ // 0x772 @0x27
0x074b…078a at0028 = ╱20╱…╱ // 0x773 @0x28
0x074b…078a at0029 = ╱20╱…╱ // 0x774 @0x29
0x074b…078a at002a = ╱20╱…╱ // 0x775 @0x2a
0x074b…078a at002b = ╱20╱…╱ // 0x776 @0x2b
0x074b…078a at002c = ╱20╱…╱ // 0x777 @0x2c
0x074b…078a at002d = ╱20╱…╱ // 0x778 @0x2d
0x074b…078a at002e = ╱53╱S╱ // 0x779 @0x2e
0x074b…078a at002f = ╱61╱a╱ // 0x77a @0x2f
0x074b…078a at0030 = ╱74╱t╱ // 0x77b @0x30
0x074b…078a at0031 = ╱73╱s╱ // 0x77c @0x31
0x074b…078a at0032 = ╱20╱…╱ // 0x77d @0x32
0x074b…078a at0033 = ╱20╱…╱ // 0x77e @0x33
0x074b…078a at0034 = ╱20╱…╱ // 0x77f @0x34
0x074b…078a at0035 = ╱20╱…╱ // 0x780 @0x35
0x074b…078a at0036 = ╱20╱…╱ // 0x781 @0x36
0x074b…078a at0037 = ╱20╱…╱ // 0x782 @0x37
0x074b…078a at0038 = ╱42╱B╱ // 0x783 @0x38
0x074b…078a at0039 = ╱65╱e╱ // 0x784 @0x39
0x074b…078a at003a = ╱6c╱l╱ // 0x785 @0x3a
0x074b…078a at003b = ╱7c╱ø╱ // 0x786 @0x3b
0x074b…078a at003c = ╱62╱b╱ // 0x787 @0x3c
0x074b…078a at003d = ╱22╱"╱ // 0x788 @0x3d
0x074b…078a at003e = EOL // 0x789 @0x3e
0x074b…078a }
0x078a…0798 94ef 0920 FOR I=E TO LAST
0x078a…0798 LineComalBin {
0x078a…0798 ptr = 0x94ef // 0x78a @0x0
0x078a…0798 lno = 0x0398 // 0x78c @0x2
0x078a…0798 at0004 = ╱83╱ FOR ╱ // 0x78e @0x4
0x078a…0798 at0005 = ╱49╱I╱ // 0x78f @0x5
0x078a…0798 at0006 = ╱dc╱=╱ // 0x790 @0x6
0x078a…0798 at0007 = ╱45╱E╱ // 0x791 @0x7
0x078a…0798 at0008 = ╱b7╱ TO ╱ // 0x792 @0x8
0x078a…0798 at0009 = ╱4c╱L╱ // 0x793 @0x9
0x078a…0798 at000a = ╱41╱A╱ // 0x794 @0xa
0x078a…0798 at000b = ╱53╱S╱ // 0x795 @0xb
0x078a…0798 at000c = ╱54╱T╱ // 0x796 @0xc
0x078a…0798 at000d = EOL // 0x797 @0xd
0x078a…0798 }
0x0798…07a8 94ff 0930 PRINT USING "### ":I;
0x0798…07a8 LineComalBin {
0x0798…07a8 ptr = 0x94ff // 0x798 @0x0
0x0798…07a8 lno = 0x03a2 // 0x79a @0x2
0x0798…07a8 at0004 = ╱92╱ PRINT ╱ // 0x79c @0x4
0x0798…07a8 at0005 = ╱b9╱ USING ╱ // 0x79d @0x5
0x0798…07a8 at0006 = ╱22╱"╱ // 0x79e @0x6
0x0798…07a8 at0007 = ╱23╱#╱ // 0x79f @0x7
0x0798…07a8 at0008 = ╱23╱#╱ // 0x7a0 @0x8
0x0798…07a8 at0009 = ╱23╱#╱ // 0x7a1 @0x9
0x0798…07a8 at000a = ╱20╱…╱ // 0x7a2 @0xa
0x0798…07a8 at000b = ╱22╱"╱ // 0x7a3 @0xb
0x0798…07a8 at000c = ╱f0╱:╱ // 0x7a4 @0xc
0x0798…07a8 at000d = ╱49╱I╱ // 0x7a5 @0xd
0x0798…07a8 at000e = ╱eb╱;╱ // 0x7a6 @0xe
0x0798…07a8 at000f = EOL // 0x7a7 @0xf
0x0798…07a8 }
0x07a8…07f6 954d 0940 PRINT " ";SIDE$(FØRST+I,V:G);" ";SIDE$(FØRST+I,5:6);" ";
0x07a8…07f6 LineComalBin {
0x07a8…07f6 ptr = 0x954d // 0x7a8 @0x0
0x07a8…07f6 lno = 0x03ac // 0x7aa @0x2
0x07a8…07f6 at0004 = ╱92╱ PRINT ╱ // 0x7ac @0x4
0x07a8…07f6 at0005 = ╱22╱"╱ // 0x7ad @0x5
0x07a8…07f6 at0006 = ╱20╱…╱ // 0x7ae @0x6
0x07a8…07f6 at0007 = ╱20╱…╱ // 0x7af @0x7
0x07a8…07f6 at0008 = ╱22╱"╱ // 0x7b0 @0x8
0x07a8…07f6 at0009 = ╱eb╱;╱ // 0x7b1 @0x9
0x07a8…07f6 at000a = ╱53╱S╱ // 0x7b2 @0xa
0x07a8…07f6 at000b = ╱49╱I╱ // 0x7b3 @0xb
0x07a8…07f6 at000c = ╱44╱D╱ // 0x7b4 @0xc
0x07a8…07f6 at000d = ╱45╱E╱ // 0x7b5 @0xd
0x07a8…07f6 at000e = ╱ef╱$╱ // 0x7b6 @0xe
0x07a8…07f6 at000f = ╱ed╱(╱ // 0x7b7 @0xf
0x07a8…07f6 at0010 = ╱46╱F╱ // 0x7b8 @0x10
0x07a8…07f6 at0011 = ╱5c╱Ø╱ // 0x7b9 @0x11
0x07a8…07f6 at0012 = ╱52╱R╱ // 0x7ba @0x12
0x07a8…07f6 at0013 = ╱53╱S╱ // 0x7bb @0x13
0x07a8…07f6 at0014 = ╱54╱T╱ // 0x7bc @0x14
0x07a8…07f6 at0015 = ╱e2╱+╱ // 0x7bd @0x15
0x07a8…07f6 at0016 = ╱49╱I╱ // 0x7be @0x16
0x07a8…07f6 at0017 = ╱ec╱,╱ // 0x7bf @0x17
0x07a8…07f6 at0018 = ╱56╱V╱ // 0x7c0 @0x18
0x07a8…07f6 at0019 = ╱f0╱:╱ // 0x7c1 @0x19
0x07a8…07f6 at001a = ╱47╱G╱ // 0x7c2 @0x1a
0x07a8…07f6 at001b = ╱ee╱)╱ // 0x7c3 @0x1b
0x07a8…07f6 at001c = ╱eb╱;╱ // 0x7c4 @0x1c
0x07a8…07f6 at001d = ╱22╱"╱ // 0x7c5 @0x1d
0x07a8…07f6 at001e = ╱20╱…╱ // 0x7c6 @0x1e
0x07a8…07f6 at001f = ╱20╱…╱ // 0x7c7 @0x1f
0x07a8…07f6 at0020 = ╱20╱…╱ // 0x7c8 @0x20
0x07a8…07f6 at0021 = ╱20╱…╱ // 0x7c9 @0x21
0x07a8…07f6 at0022 = ╱20╱…╱ // 0x7ca @0x22
0x07a8…07f6 at0023 = ╱20╱…╱ // 0x7cb @0x23
0x07a8…07f6 at0024 = ╱20╱…╱ // 0x7cc @0x24
0x07a8…07f6 at0025 = ╱20╱…╱ // 0x7cd @0x25
0x07a8…07f6 at0026 = ╱22╱"╱ // 0x7ce @0x26
0x07a8…07f6 at0027 = ╱eb╱;╱ // 0x7cf @0x27
0x07a8…07f6 at0028 = ╱53╱S╱ // 0x7d0 @0x28
0x07a8…07f6 at0029 = ╱49╱I╱ // 0x7d1 @0x29
0x07a8…07f6 at002a = ╱44╱D╱ // 0x7d2 @0x2a
0x07a8…07f6 at002b = ╱45╱E╱ // 0x7d3 @0x2b
0x07a8…07f6 at002c = ╱ef╱$╱ // 0x7d4 @0x2c
0x07a8…07f6 at002d = ╱ed╱(╱ // 0x7d5 @0x2d
0x07a8…07f6 at002e = ╱46╱F╱ // 0x7d6 @0x2e
0x07a8…07f6 at002f = ╱5c╱Ø╱ // 0x7d7 @0x2f
0x07a8…07f6 at0030 = ╱52╱R╱ // 0x7d8 @0x30
0x07a8…07f6 at0031 = ╱53╱S╱ // 0x7d9 @0x31
0x07a8…07f6 at0032 = ╱54╱T╱ // 0x7da @0x32
0x07a8…07f6 at0033 = ╱e2╱+╱ // 0x7db @0x33
0x07a8…07f6 at0034 = ╱49╱I╱ // 0x7dc @0x34
0x07a8…07f6 at0035 = ╱ec╱,╱ // 0x7dd @0x35
0x07a8…07f6 at0036 = ╱35╱5╱ // 0x7de @0x36
0x07a8…07f6 at0037 = ╱fe0000a003╱ // 0x7df @0x37
0x07a8…07f6 at003c = ╱f0╱:╱ // 0x7e4 @0x3c
0x07a8…07f6 at003d = ╱36╱6╱ // 0x7e5 @0x3d
0x07a8…07f6 at003e = ╱fe0000c003╱ // 0x7e6 @0x3e
0x07a8…07f6 at0043 = ╱ee╱)╱ // 0x7eb @0x43
0x07a8…07f6 at0044 = ╱eb╱;╱ // 0x7ec @0x44
0x07a8…07f6 at0045 = ╱22╱"╱ // 0x7ed @0x45
0x07a8…07f6 at0046 = ╱20╱…╱ // 0x7ee @0x46
0x07a8…07f6 at0047 = ╱20╱…╱ // 0x7ef @0x47
0x07a8…07f6 at0048 = ╱20╱…╱ // 0x7f0 @0x48
0x07a8…07f6 at0049 = ╱20╱…╱ // 0x7f1 @0x49
0x07a8…07f6 at004a = ╱20╱…╱ // 0x7f2 @0x4a
0x07a8…07f6 at004b = ╱22╱"╱ // 0x7f3 @0x4b
0x07a8…07f6 at004c = ╱eb╱;╱ // 0x7f4 @0x4c
0x07a8…07f6 at004d = EOL // 0x7f5 @0x4d
0x07a8…07f6 }
0x07f6…0820 9577 0950 RESUL$=SIDE$(FØRST+I,11:10)
0x07f6…0820 LineComalBin {
0x07f6…0820 ptr = 0x9577 // 0x7f6 @0x0
0x07f6…0820 lno = 0x03b6 // 0x7f8 @0x2
0x07f6…0820 at0004 = ╱52╱R╱ // 0x7fa @0x4
0x07f6…0820 at0005 = ╱45╱E╱ // 0x7fb @0x5
0x07f6…0820 at0006 = ╱53╱S╱ // 0x7fc @0x6
0x07f6…0820 at0007 = ╱55╱U╱ // 0x7fd @0x7
0x07f6…0820 at0008 = ╱4c╱L╱ // 0x7fe @0x8
0x07f6…0820 at0009 = ╱ef╱$╱ // 0x7ff @0x9
0x07f6…0820 at000a = ╱dc╱=╱ // 0x800 @0xa
0x07f6…0820 at000b = ╱53╱S╱ // 0x801 @0xb
0x07f6…0820 at000c = ╱49╱I╱ // 0x802 @0xc
0x07f6…0820 at000d = ╱44╱D╱ // 0x803 @0xd
0x07f6…0820 at000e = ╱45╱E╱ // 0x804 @0xe
0x07f6…0820 at000f = ╱ef╱$╱ // 0x805 @0xf
0x07f6…0820 at0010 = ╱ed╱(╱ // 0x806 @0x10
0x07f6…0820 at0011 = ╱46╱F╱ // 0x807 @0x11
0x07f6…0820 at0012 = ╱5c╱Ø╱ // 0x808 @0x12
0x07f6…0820 at0013 = ╱52╱R╱ // 0x809 @0x13
0x07f6…0820 at0014 = ╱53╱S╱ // 0x80a @0x14
0x07f6…0820 at0015 = ╱54╱T╱ // 0x80b @0x15
0x07f6…0820 at0016 = ╱e2╱+╱ // 0x80c @0x16
0x07f6…0820 at0017 = ╱49╱I╱ // 0x80d @0x17
0x07f6…0820 at0018 = ╱ec╱,╱ // 0x80e @0x18
0x07f6…0820 at0019 = ╱31╱1╱ // 0x80f @0x19
0x07f6…0820 at001a = ╱31╱1╱ // 0x810 @0x1a
0x07f6…0820 at001b = ╱fe0000b004╱ // 0x811 @0x1b
0x07f6…0820 at0020 = ╱f0╱:╱ // 0x816 @0x20
0x07f6…0820 at0021 = ╱31╱1╱ // 0x817 @0x21
0x07f6…0820 at0022 = ╱30╱0╱ // 0x818 @0x22
0x07f6…0820 at0023 = ╱fe0000a004╱ // 0x819 @0x23
0x07f6…0820 at0028 = ╱ee╱)╱ // 0x81e @0x28
0x07f6…0820 at0029 = EOL // 0x81f @0x29
0x07f6…0820 }
0x0820…084d 95a4 0960 IF RESUL$(10)="+" THEN RESUL$(10)=" "
0x0820…084d LineComalBin {
0x0820…084d ptr = 0x95a4 // 0x820 @0x0
0x0820…084d lno = 0x03c0 // 0x822 @0x2
0x0820…084d at0004 = ╱82╱ IF ╱ // 0x824 @0x4
0x0820…084d at0005 = ╱52╱R╱ // 0x825 @0x5
0x0820…084d at0006 = ╱45╱E╱ // 0x826 @0x6
0x0820…084d at0007 = ╱53╱S╱ // 0x827 @0x7
0x0820…084d at0008 = ╱55╱U╱ // 0x828 @0x8
0x0820…084d at0009 = ╱4c╱L╱ // 0x829 @0x9
0x0820…084d at000a = ╱ef╱$╱ // 0x82a @0xa
0x0820…084d at000b = ╱ed╱(╱ // 0x82b @0xb
0x0820…084d at000c = ╱31╱1╱ // 0x82c @0xc
0x0820…084d at000d = ╱30╱0╱ // 0x82d @0xd
0x0820…084d at000e = ╱fe0000a004╱ // 0x82e @0xe
0x0820…084d at0013 = ╱ee╱)╱ // 0x833 @0x13
0x0820…084d at0014 = ╱dc╱=╱ // 0x834 @0x14
0x0820…084d at0015 = ╱22╱"╱ // 0x835 @0x15
0x0820…084d at0016 = ╱2b╱+╱ // 0x836 @0x16
0x0820…084d at0017 = ╱22╱"╱ // 0x837 @0x17
0x0820…084d at0018 = ╱b6╱ THEN ╱ // 0x838 @0x18
0x0820…084d at0019 = ╱52╱R╱ // 0x839 @0x19
0x0820…084d at001a = ╱45╱E╱ // 0x83a @0x1a
0x0820…084d at001b = ╱53╱S╱ // 0x83b @0x1b
0x0820…084d at001c = ╱55╱U╱ // 0x83c @0x1c
0x0820…084d at001d = ╱4c╱L╱ // 0x83d @0x1d
0x0820…084d at001e = ╱ef╱$╱ // 0x83e @0x1e
0x0820…084d at001f = ╱ed╱(╱ // 0x83f @0x1f
0x0820…084d at0020 = ╱31╱1╱ // 0x840 @0x20
0x0820…084d at0021 = ╱30╱0╱ // 0x841 @0x21
0x0820…084d at0022 = ╱fe0000a004╱ // 0x842 @0x22
0x0820…084d at0027 = ╱ee╱)╱ // 0x847 @0x27
0x0820…084d at0028 = ╱dc╱=╱ // 0x848 @0x28
0x0820…084d at0029 = ╱22╱"╱ // 0x849 @0x29
0x0820…084d at002a = ╱20╱…╱ // 0x84a @0x2a
0x0820…084d at002b = ╱22╱"╱ // 0x84b @0x2b
0x0820…084d at002c = EOL // 0x84c @0x2c
0x0820…084d }
0x084d…085a 95b1 0970 PRINT RESUL$;
0x084d…085a LineComalBin {
0x084d…085a ptr = 0x95b1 // 0x84d @0x0
0x084d…085a lno = 0x03ca // 0x84f @0x2
0x084d…085a at0004 = ╱92╱ PRINT ╱ // 0x851 @0x4
0x084d…085a at0005 = ╱52╱R╱ // 0x852 @0x5
0x084d…085a at0006 = ╱45╱E╱ // 0x853 @0x6
0x084d…085a at0007 = ╱53╱S╱ // 0x854 @0x7
0x084d…085a at0008 = ╱55╱U╱ // 0x855 @0x8
0x084d…085a at0009 = ╱4c╱L╱ // 0x856 @0x9
0x084d…085a at000a = ╱ef╱$╱ // 0x857 @0xa
0x084d…085a at000b = ╱eb╱;╱ // 0x858 @0xb
0x084d…085a at000c = EOL // 0x859 @0xc
0x084d…085a }
0x085a…0883 95da 0980 RESUL$=SIDE$(FØRST+I,21:7)
0x085a…0883 LineComalBin {
0x085a…0883 ptr = 0x95da // 0x85a @0x0
0x085a…0883 lno = 0x03d4 // 0x85c @0x2
0x085a…0883 at0004 = ╱52╱R╱ // 0x85e @0x4
0x085a…0883 at0005 = ╱45╱E╱ // 0x85f @0x5
0x085a…0883 at0006 = ╱53╱S╱ // 0x860 @0x6
0x085a…0883 at0007 = ╱55╱U╱ // 0x861 @0x7
0x085a…0883 at0008 = ╱4c╱L╱ // 0x862 @0x8
0x085a…0883 at0009 = ╱ef╱$╱ // 0x863 @0x9
0x085a…0883 at000a = ╱dc╱=╱ // 0x864 @0xa
0x085a…0883 at000b = ╱53╱S╱ // 0x865 @0xb
0x085a…0883 at000c = ╱49╱I╱ // 0x866 @0xc
0x085a…0883 at000d = ╱44╱D╱ // 0x867 @0xd
0x085a…0883 at000e = ╱45╱E╱ // 0x868 @0xe
0x085a…0883 at000f = ╱ef╱$╱ // 0x869 @0xf
0x085a…0883 at0010 = ╱ed╱(╱ // 0x86a @0x10
0x085a…0883 at0011 = ╱46╱F╱ // 0x86b @0x11
0x085a…0883 at0012 = ╱5c╱Ø╱ // 0x86c @0x12
0x085a…0883 at0013 = ╱52╱R╱ // 0x86d @0x13
0x085a…0883 at0014 = ╱53╱S╱ // 0x86e @0x14
0x085a…0883 at0015 = ╱54╱T╱ // 0x86f @0x15
0x085a…0883 at0016 = ╱e2╱+╱ // 0x870 @0x16
0x085a…0883 at0017 = ╱49╱I╱ // 0x871 @0x17
0x085a…0883 at0018 = ╱ec╱,╱ // 0x872 @0x18
0x085a…0883 at0019 = ╱32╱2╱ // 0x873 @0x19
0x085a…0883 at001a = ╱31╱1╱ // 0x874 @0x1a
0x085a…0883 at001b = ╱fe0000a805╱ // 0x875 @0x1b
0x085a…0883 at0020 = ╱f0╱:╱ // 0x87a @0x20
0x085a…0883 at0021 = ╱37╱7╱ // 0x87b @0x21
0x085a…0883 at0022 = ╱fe0000e003╱ // 0x87c @0x22
0x085a…0883 at0027 = ╱ee╱)╱ // 0x881 @0x27
0x085a…0883 at0028 = EOL // 0x882 @0x28
0x085a…0883 }
0x0883…08ae 9605 0990 IF RESUL$(7)="+" THEN RESUL$(7)=" "
0x0883…08ae LineComalBin {
0x0883…08ae ptr = 0x9605 // 0x883 @0x0
0x0883…08ae lno = 0x03de // 0x885 @0x2
0x0883…08ae at0004 = ╱82╱ IF ╱ // 0x887 @0x4
0x0883…08ae at0005 = ╱52╱R╱ // 0x888 @0x5
0x0883…08ae at0006 = ╱45╱E╱ // 0x889 @0x6
0x0883…08ae at0007 = ╱53╱S╱ // 0x88a @0x7
0x0883…08ae at0008 = ╱55╱U╱ // 0x88b @0x8
0x0883…08ae at0009 = ╱4c╱L╱ // 0x88c @0x9
0x0883…08ae at000a = ╱ef╱$╱ // 0x88d @0xa
0x0883…08ae at000b = ╱ed╱(╱ // 0x88e @0xb
0x0883…08ae at000c = ╱37╱7╱ // 0x88f @0xc
0x0883…08ae at000d = ╱fe0000e003╱ // 0x890 @0xd
0x0883…08ae at0012 = ╱ee╱)╱ // 0x895 @0x12
0x0883…08ae at0013 = ╱dc╱=╱ // 0x896 @0x13
0x0883…08ae at0014 = ╱22╱"╱ // 0x897 @0x14
0x0883…08ae at0015 = ╱2b╱+╱ // 0x898 @0x15
0x0883…08ae at0016 = ╱22╱"╱ // 0x899 @0x16
0x0883…08ae at0017 = ╱b6╱ THEN ╱ // 0x89a @0x17
0x0883…08ae at0018 = ╱52╱R╱ // 0x89b @0x18
0x0883…08ae at0019 = ╱45╱E╱ // 0x89c @0x19
0x0883…08ae at001a = ╱53╱S╱ // 0x89d @0x1a
0x0883…08ae at001b = ╱55╱U╱ // 0x89e @0x1b
0x0883…08ae at001c = ╱4c╱L╱ // 0x89f @0x1c
0x0883…08ae at001d = ╱ef╱$╱ // 0x8a0 @0x1d
0x0883…08ae at001e = ╱ed╱(╱ // 0x8a1 @0x1e
0x0883…08ae at001f = ╱37╱7╱ // 0x8a2 @0x1f
0x0883…08ae at0020 = ╱fe0000e003╱ // 0x8a3 @0x20
0x0883…08ae at0025 = ╱ee╱)╱ // 0x8a8 @0x25
0x0883…08ae at0026 = ╱dc╱=╱ // 0x8a9 @0x26
0x0883…08ae at0027 = ╱22╱"╱ // 0x8aa @0x27
0x0883…08ae at0028 = ╱20╱…╱ // 0x8ab @0x28
0x0883…08ae at0029 = ╱22╱"╱ // 0x8ac @0x29
0x0883…08ae at002a = EOL // 0x8ad @0x2a
0x0883…08ae }
0x08ae…08c7 961e 1000 PRINT " ";RESUL$;" ";
0x08ae…08c7 LineComalBin {
0x08ae…08c7 ptr = 0x961e // 0x8ae @0x0
0x08ae…08c7 lno = 0x03e8 // 0x8b0 @0x2
0x08ae…08c7 at0004 = ╱92╱ PRINT ╱ // 0x8b2 @0x4
0x08ae…08c7 at0005 = ╱22╱"╱ // 0x8b3 @0x5
0x08ae…08c7 at0006 = ╱20╱…╱ // 0x8b4 @0x6
0x08ae…08c7 at0007 = ╱20╱…╱ // 0x8b5 @0x7
0x08ae…08c7 at0008 = ╱20╱…╱ // 0x8b6 @0x8
0x08ae…08c7 at0009 = ╱22╱"╱ // 0x8b7 @0x9
0x08ae…08c7 at000a = ╱eb╱;╱ // 0x8b8 @0xa
0x08ae…08c7 at000b = ╱52╱R╱ // 0x8b9 @0xb
0x08ae…08c7 at000c = ╱45╱E╱ // 0x8ba @0xc
0x08ae…08c7 at000d = ╱53╱S╱ // 0x8bb @0xd
0x08ae…08c7 at000e = ╱55╱U╱ // 0x8bc @0xe
0x08ae…08c7 at000f = ╱4c╱L╱ // 0x8bd @0xf
0x08ae…08c7 at0010 = ╱ef╱$╱ // 0x8be @0x10
0x08ae…08c7 at0011 = ╱eb╱;╱ // 0x8bf @0x11
0x08ae…08c7 at0012 = ╱22╱"╱ // 0x8c0 @0x12
0x08ae…08c7 at0013 = ╱20╱…╱ // 0x8c1 @0x13
0x08ae…08c7 at0014 = ╱20╱…╱ // 0x8c2 @0x14
0x08ae…08c7 at0015 = ╱20╱…╱ // 0x8c3 @0x15
0x08ae…08c7 at0016 = ╱22╱"╱ // 0x8c4 @0x16
0x08ae…08c7 at0017 = ╱eb╱;╱ // 0x8c5 @0x17
0x08ae…08c7 at0018 = EOL // 0x8c6 @0x18
0x08ae…08c7 }
0x08c7…08f1 9648 1010 RESUL$=SIDE$(FØRST+I,28:10)
0x08c7…08f1 LineComalBin {
0x08c7…08f1 ptr = 0x9648 // 0x8c7 @0x0
0x08c7…08f1 lno = 0x03f2 // 0x8c9 @0x2
0x08c7…08f1 at0004 = ╱52╱R╱ // 0x8cb @0x4
0x08c7…08f1 at0005 = ╱45╱E╱ // 0x8cc @0x5
0x08c7…08f1 at0006 = ╱53╱S╱ // 0x8cd @0x6
0x08c7…08f1 at0007 = ╱55╱U╱ // 0x8ce @0x7
0x08c7…08f1 at0008 = ╱4c╱L╱ // 0x8cf @0x8
0x08c7…08f1 at0009 = ╱ef╱$╱ // 0x8d0 @0x9
0x08c7…08f1 at000a = ╱dc╱=╱ // 0x8d1 @0xa
0x08c7…08f1 at000b = ╱53╱S╱ // 0x8d2 @0xb
0x08c7…08f1 at000c = ╱49╱I╱ // 0x8d3 @0xc
0x08c7…08f1 at000d = ╱44╱D╱ // 0x8d4 @0xd
0x08c7…08f1 at000e = ╱45╱E╱ // 0x8d5 @0xe
0x08c7…08f1 at000f = ╱ef╱$╱ // 0x8d6 @0xf
0x08c7…08f1 at0010 = ╱ed╱(╱ // 0x8d7 @0x10
0x08c7…08f1 at0011 = ╱46╱F╱ // 0x8d8 @0x11
0x08c7…08f1 at0012 = ╱5c╱Ø╱ // 0x8d9 @0x12
0x08c7…08f1 at0013 = ╱52╱R╱ // 0x8da @0x13
0x08c7…08f1 at0014 = ╱53╱S╱ // 0x8db @0x14
0x08c7…08f1 at0015 = ╱54╱T╱ // 0x8dc @0x15
0x08c7…08f1 at0016 = ╱e2╱+╱ // 0x8dd @0x16
0x08c7…08f1 at0017 = ╱49╱I╱ // 0x8de @0x17
0x08c7…08f1 at0018 = ╱ec╱,╱ // 0x8df @0x18
0x08c7…08f1 at0019 = ╱32╱2╱ // 0x8e0 @0x19
0x08c7…08f1 at001a = ╱38╱8╱ // 0x8e1 @0x1a
0x08c7…08f1 at001b = ╱fe0000e005╱ // 0x8e2 @0x1b
0x08c7…08f1 at0020 = ╱f0╱:╱ // 0x8e7 @0x20
0x08c7…08f1 at0021 = ╱31╱1╱ // 0x8e8 @0x21
0x08c7…08f1 at0022 = ╱30╱0╱ // 0x8e9 @0x22
0x08c7…08f1 at0023 = ╱fe0000a004╱ // 0x8ea @0x23
0x08c7…08f1 at0028 = ╱ee╱)╱ // 0x8ef @0x28
0x08c7…08f1 at0029 = EOL // 0x8f0 @0x29
0x08c7…08f1 }
0x08f1…091e 9675 1020 IF RESUL$(10)="+" THEN RESUL$(10)=" "
0x08f1…091e LineComalBin {
0x08f1…091e ptr = 0x9675 // 0x8f1 @0x0
0x08f1…091e lno = 0x03fc // 0x8f3 @0x2
0x08f1…091e at0004 = ╱82╱ IF ╱ // 0x8f5 @0x4
0x08f1…091e at0005 = ╱52╱R╱ // 0x8f6 @0x5
0x08f1…091e at0006 = ╱45╱E╱ // 0x8f7 @0x6
0x08f1…091e at0007 = ╱53╱S╱ // 0x8f8 @0x7
0x08f1…091e at0008 = ╱55╱U╱ // 0x8f9 @0x8
0x08f1…091e at0009 = ╱4c╱L╱ // 0x8fa @0x9
0x08f1…091e at000a = ╱ef╱$╱ // 0x8fb @0xa
0x08f1…091e at000b = ╱ed╱(╱ // 0x8fc @0xb
0x08f1…091e at000c = ╱31╱1╱ // 0x8fd @0xc
0x08f1…091e at000d = ╱30╱0╱ // 0x8fe @0xd
0x08f1…091e at000e = ╱fe0000a004╱ // 0x8ff @0xe
0x08f1…091e at0013 = ╱ee╱)╱ // 0x904 @0x13
0x08f1…091e at0014 = ╱dc╱=╱ // 0x905 @0x14
0x08f1…091e at0015 = ╱22╱"╱ // 0x906 @0x15
0x08f1…091e at0016 = ╱2b╱+╱ // 0x907 @0x16
0x08f1…091e at0017 = ╱22╱"╱ // 0x908 @0x17
0x08f1…091e at0018 = ╱b6╱ THEN ╱ // 0x909 @0x18
0x08f1…091e at0019 = ╱52╱R╱ // 0x90a @0x19
0x08f1…091e at001a = ╱45╱E╱ // 0x90b @0x1a
0x08f1…091e at001b = ╱53╱S╱ // 0x90c @0x1b
0x08f1…091e at001c = ╱55╱U╱ // 0x90d @0x1c
0x08f1…091e at001d = ╱4c╱L╱ // 0x90e @0x1d
0x08f1…091e at001e = ╱ef╱$╱ // 0x90f @0x1e
0x08f1…091e at001f = ╱ed╱(╱ // 0x910 @0x1f
0x08f1…091e at0020 = ╱31╱1╱ // 0x911 @0x20
0x08f1…091e at0021 = ╱30╱0╱ // 0x912 @0x21
0x08f1…091e at0022 = ╱fe0000a004╱ // 0x913 @0x22
0x08f1…091e at0027 = ╱ee╱)╱ // 0x918 @0x27
0x08f1…091e at0028 = ╱dc╱=╱ // 0x919 @0x28
0x08f1…091e at0029 = ╱22╱"╱ // 0x91a @0x29
0x08f1…091e at002a = ╱20╱…╱ // 0x91b @0x2a
0x08f1…091e at002b = ╱22╱"╱ // 0x91c @0x2b
0x08f1…091e at002c = EOL // 0x91d @0x2c
0x08f1…091e }
0x091e…092a 9681 1030 PRINT RESUL$
0x091e…092a LineComalBin {
0x091e…092a ptr = 0x9681 // 0x91e @0x0
0x091e…092a lno = 0x0406 // 0x920 @0x2
0x091e…092a at0004 = ╱92╱ PRINT ╱ // 0x922 @0x4
0x091e…092a at0005 = ╱52╱R╱ // 0x923 @0x5
0x091e…092a at0006 = ╱45╱E╱ // 0x924 @0x6
0x091e…092a at0007 = ╱53╱S╱ // 0x925 @0x7
0x091e…092a at0008 = ╱55╱U╱ // 0x926 @0x8
0x091e…092a at0009 = ╱4c╱L╱ // 0x927 @0x9
0x091e…092a at000a = ╱ef╱$╱ // 0x928 @0xa
0x091e…092a at000b = EOL // 0x929 @0xb
0x091e…092a }
0x092a…0931 9688 1040 NEXT I
0x092a…0931 LineComalBin {
0x092a…0931 ptr = 0x9688 // 0x92a @0x0
0x092a…0931 lno = 0x0410 // 0x92c @0x2
0x092a…0931 at0004 = ╱84╱ NEXT ╱ // 0x92e @0x4
0x092a…0931 at0005 = ╱49╱I╱ // 0x92f @0x5
0x092a…0931 at0006 = EOL // 0x930 @0x6
0x092a…0931 }
0x0931…0937 968e 1050 ENDPROC
0x0931…0937 LineComalBin {
0x0931…0937 ptr = 0x968e // 0x931 @0x0
0x0931…0937 lno = 0x041a // 0x933 @0x2
0x0931…0937 at0004 = ╱9f╱ ENDPROC ╱ // 0x935 @0x4
0x0931…0937 at0005 = EOL // 0x936 @0x5
0x0931…0937 }
0x0937…0943 969a 1060 PROC RETSID
0x0937…0943 LineComalBin {
0x0937…0943 ptr = 0x969a // 0x937 @0x0
0x0937…0943 lno = 0x0424 // 0x939 @0x2
0x0937…0943 at0004 = ╱9e╱ PROC ╱ // 0x93b @0x4
0x0937…0943 at0005 = ╱52╱R╱ // 0x93c @0x5
0x0937…0943 at0006 = ╱45╱E╱ // 0x93d @0x6
0x0937…0943 at0007 = ╱54╱T╱ // 0x93e @0x7
0x0937…0943 at0008 = ╱53╱S╱ // 0x93f @0x8
0x0937…0943 at0009 = ╱49╱I╱ // 0x940 @0x9
0x0937…0943 at000a = ╱44╱D╱ // 0x941 @0xa
0x0937…0943 at000b = EOL // 0x942 @0xb
0x0937…0943 }
0x0943…0949 96a0 1070 REPEAT
0x0943…0949 LineComalBin {
0x0943…0949 ptr = 0x96a0 // 0x943 @0x0
0x0943…0949 lno = 0x042e // 0x945 @0x2
0x0943…0949 at0004 = ╱97╱ REPEAT ╱ // 0x947 @0x4
0x0943…0949 at0005 = EOL // 0x948 @0x5
0x0943…0949 }
0x0949…094f 96a6 1080 REPEAT
0x0949…094f LineComalBin {
0x0949…094f ptr = 0x96a6 // 0x949 @0x0
0x0949…094f lno = 0x0438 // 0x94b @0x2
0x0949…094f at0004 = ╱97╱ REPEAT ╱ // 0x94d @0x4
0x0949…094f at0005 = EOL // 0x94e @0x5
0x0949…094f }
0x094f…095d 96b4 1090 LINE$="0"
0x094f…095d LineComalBin {
0x094f…095d ptr = 0x96b4 // 0x94f @0x0
0x094f…095d lno = 0x0442 // 0x951 @0x2
0x094f…095d at0004 = ╱4c╱L╱ // 0x953 @0x4
0x094f…095d at0005 = ╱49╱I╱ // 0x954 @0x5
0x094f…095d at0006 = ╱4e╱N╱ // 0x955 @0x6
0x094f…095d at0007 = ╱45╱E╱ // 0x956 @0x7
0x094f…095d at0008 = ╱ef╱$╱ // 0x957 @0x8
0x094f…095d at0009 = ╱dc╱=╱ // 0x958 @0x9
0x094f…095d at000a = ╱22╱"╱ // 0x959 @0xa
0x094f…095d at000b = ╱30╱0╱ // 0x95a @0xb
0x094f…095d at000c = ╱22╱"╱ // 0x95b @0xc
0x094f…095d at000d = EOL // 0x95c @0xd
0x094f…095d }
0x095d…096c 96c3 1100 CURSOR E,23
0x095d…096c LineComalBin {
0x095d…096c ptr = 0x96c3 // 0x95d @0x0
0x095d…096c lno = 0x044c // 0x95f @0x2
0x095d…096c at0004 = ╱a1╱ CURSOR ╱ // 0x961 @0x4
0x095d…096c at0005 = ╱45╱E╱ // 0x962 @0x5
0x095d…096c at0006 = ╱ec╱,╱ // 0x963 @0x6
0x095d…096c at0007 = ╱32╱2╱ // 0x964 @0x7
0x095d…096c at0008 = ╱33╱3╱ // 0x965 @0x8
0x095d…096c at0009 = ╱fe0000b805╱ // 0x966 @0x9
0x095d…096c at000e = EOL // 0x96b @0xe
0x095d…096c }
0x096c…099e 96f5 1110 EDIT "Linienr, 0: færdig SL: slet linier ",LINE$
0x096c…099e LineComalBin {
0x096c…099e ptr = 0x96f5 // 0x96c @0x0
0x096c…099e lno = 0x0456 // 0x96e @0x2
0x096c…099e at0004 = ╱b1╱ EDIT ╱ // 0x970 @0x4
0x096c…099e at0005 = ╱22╱"╱ // 0x971 @0x5
0x096c…099e at0006 = ╱4c╱L╱ // 0x972 @0x6
0x096c…099e at0007 = ╱69╱i╱ // 0x973 @0x7
0x096c…099e at0008 = ╱6e╱n╱ // 0x974 @0x8
0x096c…099e at0009 = ╱69╱i╱ // 0x975 @0x9
0x096c…099e at000a = ╱65╱e╱ // 0x976 @0xa
0x096c…099e at000b = ╱6e╱n╱ // 0x977 @0xb
0x096c…099e at000c = ╱72╱r╱ // 0x978 @0xc
0x096c…099e at000d = ╱2c╱,╱ // 0x979 @0xd
0x096c…099e at000e = ╱20╱…╱ // 0x97a @0xe
0x096c…099e at000f = ╱30╱0╱ // 0x97b @0xf
0x096c…099e at0010 = ╱3a╱:╱ // 0x97c @0x10
0x096c…099e at0011 = ╱20╱…╱ // 0x97d @0x11
0x096c…099e at0012 = ╱66╱f╱ // 0x97e @0x12
0x096c…099e at0013 = ╱7b╱æ╱ // 0x97f @0x13
0x096c…099e at0014 = ╱72╱r╱ // 0x980 @0x14
0x096c…099e at0015 = ╱64╱d╱ // 0x981 @0x15
0x096c…099e at0016 = ╱69╱i╱ // 0x982 @0x16
0x096c…099e at0017 = ╱67╱g╱ // 0x983 @0x17
0x096c…099e at0018 = ╱20╱…╱ // 0x984 @0x18
0x096c…099e at0019 = ╱20╱…╱ // 0x985 @0x19
0x096c…099e at001a = ╱53╱S╱ // 0x986 @0x1a
0x096c…099e at001b = ╱4c╱L╱ // 0x987 @0x1b
0x096c…099e at001c = ╱3a╱:╱ // 0x988 @0x1c
0x096c…099e at001d = ╱20╱…╱ // 0x989 @0x1d
0x096c…099e at001e = ╱73╱s╱ // 0x98a @0x1e
0x096c…099e at001f = ╱6c╱l╱ // 0x98b @0x1f
0x096c…099e at0020 = ╱65╱e╱ // 0x98c @0x20
0x096c…099e at0021 = ╱74╱t╱ // 0x98d @0x21
0x096c…099e at0022 = ╱20╱…╱ // 0x98e @0x22
0x096c…099e at0023 = ╱6c╱l╱ // 0x98f @0x23
0x096c…099e at0024 = ╱69╱i╱ // 0x990 @0x24
0x096c…099e at0025 = ╱6e╱n╱ // 0x991 @0x25
0x096c…099e at0026 = ╱69╱i╱ // 0x992 @0x26
0x096c…099e at0027 = ╱65╱e╱ // 0x993 @0x27
0x096c…099e at0028 = ╱72╱r╱ // 0x994 @0x28
0x096c…099e at0029 = ╱20╱…╱ // 0x995 @0x29
0x096c…099e at002a = ╱22╱"╱ // 0x996 @0x2a
0x096c…099e at002b = ╱ec╱,╱ // 0x997 @0x2b
0x096c…099e at002c = ╱4c╱L╱ // 0x998 @0x2c
0x096c…099e at002d = ╱49╱I╱ // 0x999 @0x2d
0x096c…099e at002e = ╱4e╱N╱ // 0x99a @0x2e
0x096c…099e at002f = ╱45╱E╱ // 0x99b @0x2f
0x096c…099e at0030 = ╱ef╱$╱ // 0x99c @0x30
0x096c…099e at0031 = EOL // 0x99d @0x31
0x096c…099e }
0x099e…09af 9706 1120 IF LINE$<>"SL" THEN
0x099e…09af LineComalBin {
0x099e…09af ptr = 0x9706 // 0x99e @0x0
0x099e…09af lno = 0x0460 // 0x9a0 @0x2
0x099e…09af at0004 = ╱9c╱ IF ╱ // 0x9a2 @0x4
0x099e…09af at0005 = ╱4c╱L╱ // 0x9a3 @0x5
0x099e…09af at0006 = ╱49╱I╱ // 0x9a4 @0x6
0x099e…09af at0007 = ╱4e╱N╱ // 0x9a5 @0x7
0x099e…09af at0008 = ╱45╱E╱ // 0x9a6 @0x8
0x099e…09af at0009 = ╱ef╱$╱ // 0x9a7 @0x9
0x099e…09af at000a = ╱e1╱<>╱ // 0x9a8 @0xa
0x099e…09af at000b = ╱22╱"╱ // 0x9a9 @0xb
0x099e…09af at000c = ╱53╱S╱ // 0x9aa @0xc
0x099e…09af at000d = ╱4c╱L╱ // 0x9ab @0xd
0x099e…09af at000e = ╱22╱"╱ // 0x9ac @0xe
0x099e…09af at000f = ╱b6╱ THEN ╱ // 0x9ad @0xf
0x099e…09af at0010 = EOL // 0x9ae @0x10
0x099e…09af }
0x09af…09c3 971a 1130 EXEC CHECK(LINE$,C)
0x09af…09c3 LineComalBin {
0x09af…09c3 ptr = 0x971a // 0x9af @0x0
0x09af…09c3 lno = 0x046a // 0x9b1 @0x2
0x09af…09c3 at0004 = ╱9d╱ EXEC ╱ // 0x9b3 @0x4
0x09af…09c3 at0005 = ╱43╱C╱ // 0x9b4 @0x5
0x09af…09c3 at0006 = ╱48╱H╱ // 0x9b5 @0x6
0x09af…09c3 at0007 = ╱45╱E╱ // 0x9b6 @0x7
0x09af…09c3 at0008 = ╱43╱C╱ // 0x9b7 @0x8
0x09af…09c3 at0009 = ╱4b╱K╱ // 0x9b8 @0x9
0x09af…09c3 at000a = ╱ed╱(╱ // 0x9b9 @0xa
0x09af…09c3 at000b = ╱4c╱L╱ // 0x9ba @0xb
0x09af…09c3 at000c = ╱49╱I╱ // 0x9bb @0xc
0x09af…09c3 at000d = ╱4e╱N╱ // 0x9bc @0xd
0x09af…09c3 at000e = ╱45╱E╱ // 0x9bd @0xe
0x09af…09c3 at000f = ╱ef╱$╱ // 0x9be @0xf
0x09af…09c3 at0010 = ╱ec╱,╱ // 0x9bf @0x10
0x09af…09c3 at0011 = ╱43╱C╱ // 0x9c0 @0x11
0x09af…09c3 at0012 = ╱ee╱)╱ // 0x9c1 @0x12
0x09af…09c3 at0013 = EOL // 0x9c2 @0x13
0x09af…09c3 }
0x09c3…09d6 972d 1140 IF C<=B THEN RESULT=-E
0x09c3…09d6 LineComalBin {
0x09c3…09d6 ptr = 0x972d // 0x9c3 @0x0
0x09c3…09d6 lno = 0x0474 // 0x9c5 @0x2
0x09c3…09d6 at0004 = ╱82╱ IF ╱ // 0x9c7 @0x4
0x09c3…09d6 at0005 = ╱43╱C╱ // 0x9c8 @0x5
0x09c3…09d6 at0006 = ╱df╱<=╱ // 0x9c9 @0x6
0x09c3…09d6 at0007 = ╱42╱B╱ // 0x9ca @0x7
0x09c3…09d6 at0008 = ╱b6╱ THEN ╱ // 0x9cb @0x8
0x09c3…09d6 at0009 = ╱52╱R╱ // 0x9cc @0x9
0x09c3…09d6 at000a = ╱45╱E╱ // 0x9cd @0xa
0x09c3…09d6 at000b = ╱53╱S╱ // 0x9ce @0xb
0x09c3…09d6 at000c = ╱55╱U╱ // 0x9cf @0xc
0x09c3…09d6 at000d = ╱4c╱L╱ // 0x9d0 @0xd
0x09c3…09d6 at000e = ╱54╱T╱ // 0x9d1 @0xe
0x09c3…09d6 at000f = ╱dc╱=╱ // 0x9d2 @0xf
0x09c3…09d6 at0010 = ╱e9╱-╱ // 0x9d3 @0x10
0x09c3…09d6 at0011 = ╱45╱E╱ // 0x9d4 @0x11
0x09c3…09d6 at0012 = EOL // 0x9d5 @0x12
0x09c3…09d6 }
0x09d6…09dc 9733 1150 ELSE
0x09d6…09dc LineComalBin {
0x09d6…09dc ptr = 0x9733 // 0x9d6 @0x0
0x09d6…09dc lno = 0x047e // 0x9d8 @0x2
0x09d6…09dc at0004 = ╱9a╱ ELSE ╱ // 0x9da @0x4
0x09d6…09dc at0005 = EOL // 0x9db @0x5
0x09d6…09dc }
0x09dc…09ea 9741 1160 LINE$="N"
0x09dc…09ea LineComalBin {
0x09dc…09ea ptr = 0x9741 // 0x9dc @0x0
0x09dc…09ea lno = 0x0488 // 0x9de @0x2
0x09dc…09ea at0004 = ╱4c╱L╱ // 0x9e0 @0x4
0x09dc…09ea at0005 = ╱49╱I╱ // 0x9e1 @0x5
0x09dc…09ea at0006 = ╱4e╱N╱ // 0x9e2 @0x6
0x09dc…09ea at0007 = ╱45╱E╱ // 0x9e3 @0x7
0x09dc…09ea at0008 = ╱ef╱$╱ // 0x9e4 @0x8
0x09dc…09ea at0009 = ╱dc╱=╱ // 0x9e5 @0x9
0x09dc…09ea at000a = ╱22╱"╱ // 0x9e6 @0xa
0x09dc…09ea at000b = ╱4e╱N╱ // 0x9e7 @0xb
0x09dc…09ea at000c = ╱22╱"╱ // 0x9e8 @0xc
0x09dc…09ea at000d = EOL // 0x9e9 @0xd
0x09dc…09ea }
0x09ea…09f9 9750 1170 CURSOR E,23
0x09ea…09f9 LineComalBin {
0x09ea…09f9 ptr = 0x9750 // 0x9ea @0x0
0x09ea…09f9 lno = 0x0492 // 0x9ec @0x2
0x09ea…09f9 at0004 = ╱a1╱ CURSOR ╱ // 0x9ee @0x4
0x09ea…09f9 at0005 = ╱45╱E╱ // 0x9ef @0x5
0x09ea…09f9 at0006 = ╱ec╱,╱ // 0x9f0 @0x6
0x09ea…09f9 at0007 = ╱32╱2╱ // 0x9f1 @0x7
0x09ea…09f9 at0008 = ╱33╱3╱ // 0x9f2 @0x8
0x09ea…09f9 at0009 = ╱fe0000b805╱ // 0x9f3 @0x9
0x09ea…09f9 at000e = EOL // 0x9f8 @0xe
0x09ea…09f9 }
0x09f9…0a2c 9783 1180 EDIT "Slet: Alle : A, Linienrinterval : N ",LINE$
0x09f9…0a2c LineComalBin {
0x09f9…0a2c ptr = 0x9783 // 0x9f9 @0x0
0x09f9…0a2c lno = 0x049c // 0x9fb @0x2
0x09f9…0a2c at0004 = ╱b1╱ EDIT ╱ // 0x9fd @0x4
0x09f9…0a2c at0005 = ╱22╱"╱ // 0x9fe @0x5
0x09f9…0a2c at0006 = ╱53╱S╱ // 0x9ff @0x6
0x09f9…0a2c at0007 = ╱6c╱l╱ // 0xa00 @0x7
0x09f9…0a2c at0008 = ╱65╱e╱ // 0xa01 @0x8
0x09f9…0a2c at0009 = ╱74╱t╱ // 0xa02 @0x9
0x09f9…0a2c at000a = ╱3a╱:╱ // 0xa03 @0xa
0x09f9…0a2c at000b = ╱20╱…╱ // 0xa04 @0xb
0x09f9…0a2c at000c = ╱41╱A╱ // 0xa05 @0xc
0x09f9…0a2c at000d = ╱6c╱l╱ // 0xa06 @0xd
0x09f9…0a2c at000e = ╱6c╱l╱ // 0xa07 @0xe
0x09f9…0a2c at000f = ╱65╱e╱ // 0xa08 @0xf
0x09f9…0a2c at0010 = ╱20╱…╱ // 0xa09 @0x10
0x09f9…0a2c at0011 = ╱3a╱:╱ // 0xa0a @0x11
0x09f9…0a2c at0012 = ╱20╱…╱ // 0xa0b @0x12
0x09f9…0a2c at0013 = ╱41╱A╱ // 0xa0c @0x13
0x09f9…0a2c at0014 = ╱2c╱,╱ // 0xa0d @0x14
0x09f9…0a2c at0015 = ╱20╱…╱ // 0xa0e @0x15
0x09f9…0a2c at0016 = ╱4c╱L╱ // 0xa0f @0x16
0x09f9…0a2c at0017 = ╱69╱i╱ // 0xa10 @0x17
0x09f9…0a2c at0018 = ╱6e╱n╱ // 0xa11 @0x18
0x09f9…0a2c at0019 = ╱69╱i╱ // 0xa12 @0x19
0x09f9…0a2c at001a = ╱65╱e╱ // 0xa13 @0x1a
0x09f9…0a2c at001b = ╱6e╱n╱ // 0xa14 @0x1b
0x09f9…0a2c at001c = ╱72╱r╱ // 0xa15 @0x1c
0x09f9…0a2c at001d = ╱69╱i╱ // 0xa16 @0x1d
0x09f9…0a2c at001e = ╱6e╱n╱ // 0xa17 @0x1e
0x09f9…0a2c at001f = ╱74╱t╱ // 0xa18 @0x1f
0x09f9…0a2c at0020 = ╱65╱e╱ // 0xa19 @0x20
0x09f9…0a2c at0021 = ╱72╱r╱ // 0xa1a @0x21
0x09f9…0a2c at0022 = ╱76╱v╱ // 0xa1b @0x22
0x09f9…0a2c at0023 = ╱61╱a╱ // 0xa1c @0x23
0x09f9…0a2c at0024 = ╱6c╱l╱ // 0xa1d @0x24
0x09f9…0a2c at0025 = ╱20╱…╱ // 0xa1e @0x25
0x09f9…0a2c at0026 = ╱3a╱:╱ // 0xa1f @0x26
0x09f9…0a2c at0027 = ╱20╱…╱ // 0xa20 @0x27
0x09f9…0a2c at0028 = ╱4e╱N╱ // 0xa21 @0x28
0x09f9…0a2c at0029 = ╱20╱…╱ // 0xa22 @0x29
0x09f9…0a2c at002a = ╱20╱…╱ // 0xa23 @0x2a
0x09f9…0a2c at002b = ╱22╱"╱ // 0xa24 @0x2b
0x09f9…0a2c at002c = ╱ec╱,╱ // 0xa25 @0x2c
0x09f9…0a2c at002d = ╱4c╱L╱ // 0xa26 @0x2d
0x09f9…0a2c at002e = ╱49╱I╱ // 0xa27 @0x2e
0x09f9…0a2c at002f = ╱4e╱N╱ // 0xa28 @0x2f
0x09f9…0a2c at0030 = ╱45╱E╱ // 0xa29 @0x30
0x09f9…0a2c at0031 = ╱ef╱$╱ // 0xa2a @0x31
0x09f9…0a2c at0032 = EOL // 0xa2b @0x32
0x09f9…0a2c }
0x0a2c…0a3c 9793 1190 IF LINE$="A" THEN
0x0a2c…0a3c LineComalBin {
0x0a2c…0a3c ptr = 0x9793 // 0xa2c @0x0
0x0a2c…0a3c lno = 0x04a6 // 0xa2e @0x2
0x0a2c…0a3c at0004 = ╱9c╱ IF ╱ // 0xa30 @0x4
0x0a2c…0a3c at0005 = ╱4c╱L╱ // 0xa31 @0x5
0x0a2c…0a3c at0006 = ╱49╱I╱ // 0xa32 @0x6
0x0a2c…0a3c at0007 = ╱4e╱N╱ // 0xa33 @0x7
0x0a2c…0a3c at0008 = ╱45╱E╱ // 0xa34 @0x8
0x0a2c…0a3c at0009 = ╱ef╱$╱ // 0xa35 @0x9
0x0a2c…0a3c at000a = ╱dc╱=╱ // 0xa36 @0xa
0x0a2c…0a3c at000b = ╱22╱"╱ // 0xa37 @0xb
0x0a2c…0a3c at000c = ╱41╱A╱ // 0xa38 @0xc
0x0a2c…0a3c at000d = ╱22╱"╱ // 0xa39 @0xd
0x0a2c…0a3c at000e = ╱b6╱ THEN ╱ // 0xa3a @0xe
0x0a2c…0a3c at000f = EOL // 0xa3b @0xf
0x0a2c…0a3c }
0x0a3c…0a49 97a0 1200 RESULT=B
0x0a3c…0a49 LineComalBin {
0x0a3c…0a49 ptr = 0x97a0 // 0xa3c @0x0
0x0a3c…0a49 lno = 0x04b0 // 0xa3e @0x2
0x0a3c…0a49 at0004 = ╱52╱R╱ // 0xa40 @0x4
0x0a3c…0a49 at0005 = ╱45╱E╱ // 0xa41 @0x5
0x0a3c…0a49 at0006 = ╱53╱S╱ // 0xa42 @0x6
0x0a3c…0a49 at0007 = ╱55╱U╱ // 0xa43 @0x7
0x0a3c…0a49 at0008 = ╱4c╱L╱ // 0xa44 @0x8
0x0a3c…0a49 at0009 = ╱54╱T╱ // 0xa45 @0x9
0x0a3c…0a49 at000a = ╱dc╱=╱ // 0xa46 @0xa
0x0a3c…0a49 at000b = ╱42╱B╱ // 0xa47 @0xb
0x0a3c…0a49 at000c = EOL // 0xa48 @0xc
0x0a3c…0a49 }
0x0a49…0a52 97a9 1210 AT=B
0x0a49…0a52 LineComalBin {
0x0a49…0a52 ptr = 0x97a9 // 0xa49 @0x0
0x0a49…0a52 lno = 0x04ba // 0xa4b @0x2
0x0a49…0a52 at0004 = ╱41╱A╱ // 0xa4d @0x4
0x0a49…0a52 at0005 = ╱54╱T╱ // 0xa4e @0x5
0x0a49…0a52 at0006 = ╱dc╱=╱ // 0xa4f @0x6
0x0a49…0a52 at0007 = ╱42╱B╱ // 0xa50 @0x7
0x0a49…0a52 at0008 = EOL // 0xa51 @0x8
0x0a49…0a52 }
0x0a52…0a6a 97c1 1220 IT=(LMNR-E)*ATPLM+E
0x0a52…0a6a LineComalBin {
0x0a52…0a6a ptr = 0x97c1 // 0xa52 @0x0
0x0a52…0a6a lno = 0x04c4 // 0xa54 @0x2
0x0a52…0a6a at0004 = ╱49╱I╱ // 0xa56 @0x4
0x0a52…0a6a at0005 = ╱54╱T╱ // 0xa57 @0x5
0x0a52…0a6a at0006 = ╱dc╱=╱ // 0xa58 @0x6
0x0a52…0a6a at0007 = ╱ed╱(╱ // 0xa59 @0x7
0x0a52…0a6a at0008 = ╱4c╱L╱ // 0xa5a @0x8
0x0a52…0a6a at0009 = ╱4d╱M╱ // 0xa5b @0x9
0x0a52…0a6a at000a = ╱4e╱N╱ // 0xa5c @0xa
0x0a52…0a6a at000b = ╱52╱R╱ // 0xa5d @0xb
0x0a52…0a6a at000c = ╱e3╱-╱ // 0xa5e @0xc
0x0a52…0a6a at000d = ╱45╱E╱ // 0xa5f @0xd
0x0a52…0a6a at000e = ╱ee╱)╱ // 0xa60 @0xe
0x0a52…0a6a at000f = ╱e4╱*╱ // 0xa61 @0xf
0x0a52…0a6a at0010 = ╱41╱A╱ // 0xa62 @0x10
0x0a52…0a6a at0011 = ╱54╱T╱ // 0xa63 @0x11
0x0a52…0a6a at0012 = ╱50╱P╱ // 0xa64 @0x12
0x0a52…0a6a at0013 = ╱4c╱L╱ // 0xa65 @0x13
0x0a52…0a6a at0014 = ╱4d╱M╱ // 0xa66 @0x14
0x0a52…0a6a at0015 = ╱e2╱+╱ // 0xa67 @0x15
0x0a52…0a6a at0016 = ╱45╱E╱ // 0xa68 @0x16
0x0a52…0a6a at0017 = EOL // 0xa69 @0x17
0x0a52…0a6a }
0x0a6a…0a74 97cb 1230 UT=IT
0x0a6a…0a74 LineComalBin {
0x0a6a…0a74 ptr = 0x97cb // 0xa6a @0x0
0x0a6a…0a74 lno = 0x04ce // 0xa6c @0x2
0x0a6a…0a74 at0004 = ╱55╱U╱ // 0xa6e @0x4
0x0a6a…0a74 at0005 = ╱54╱T╱ // 0xa6f @0x5
0x0a6a…0a74 at0006 = ╱dc╱=╱ // 0xa70 @0x6
0x0a6a…0a74 at0007 = ╱49╱I╱ // 0xa71 @0x7
0x0a6a…0a74 at0008 = ╱54╱T╱ // 0xa72 @0x8
0x0a6a…0a74 at0009 = EOL // 0xa73 @0x9
0x0a6a…0a74 }
0x0a74…0a8f 97e6 1240 LAST=B;FØRST=B;SIDST=B
0x0a74…0a8f LineComalBin {
0x0a74…0a8f ptr = 0x97e6 // 0xa74 @0x0
0x0a74…0a8f lno = 0x04d8 // 0xa76 @0x2
0x0a74…0a8f at0004 = ╱4c╱L╱ // 0xa78 @0x4
0x0a74…0a8f at0005 = ╱41╱A╱ // 0xa79 @0x5
0x0a74…0a8f at0006 = ╱53╱S╱ // 0xa7a @0x6
0x0a74…0a8f at0007 = ╱54╱T╱ // 0xa7b @0x7
0x0a74…0a8f at0008 = ╱dc╱=╱ // 0xa7c @0x8
0x0a74…0a8f at0009 = ╱42╱B╱ // 0xa7d @0x9
0x0a74…0a8f at000a = ╱eb╱;╱ // 0xa7e @0xa
0x0a74…0a8f at000b = ╱46╱F╱ // 0xa7f @0xb
0x0a74…0a8f at000c = ╱5c╱Ø╱ // 0xa80 @0xc
0x0a74…0a8f at000d = ╱52╱R╱ // 0xa81 @0xd
0x0a74…0a8f at000e = ╱53╱S╱ // 0xa82 @0xe
0x0a74…0a8f at000f = ╱54╱T╱ // 0xa83 @0xf
0x0a74…0a8f at0010 = ╱dc╱=╱ // 0xa84 @0x10
0x0a74…0a8f at0011 = ╱42╱B╱ // 0xa85 @0x11
0x0a74…0a8f at0012 = ╱eb╱;╱ // 0xa86 @0x12
0x0a74…0a8f at0013 = ╱53╱S╱ // 0xa87 @0x13
0x0a74…0a8f at0014 = ╱49╱I╱ // 0xa88 @0x14
0x0a74…0a8f at0015 = ╱44╱D╱ // 0xa89 @0x15
0x0a74…0a8f at0016 = ╱53╱S╱ // 0xa8a @0x16
0x0a74…0a8f at0017 = ╱54╱T╱ // 0xa8b @0x17
0x0a74…0a8f at0018 = ╱dc╱=╱ // 0xa8c @0x18
0x0a74…0a8f at0019 = ╱42╱B╱ // 0xa8d @0x19
0x0a74…0a8f at001a = EOL // 0xa8e @0x1a
0x0a74…0a8f }
0x0a8f…0a95 97ec 1250 ELSE
0x0a8f…0a95 LineComalBin {
0x0a8f…0a95 ptr = 0x97ec // 0xa8f @0x0
0x0a8f…0a95 lno = 0x04e2 // 0xa91 @0x2
0x0a8f…0a95 at0004 = ╱9a╱ ELSE ╱ // 0xa93 @0x4
0x0a8f…0a95 at0005 = EOL // 0xa94 @0x5
0x0a8f…0a95 }
0x0a95…0a9b 97f2 1260 REPEAT
0x0a95…0a9b LineComalBin {
0x0a95…0a9b ptr = 0x97f2 // 0xa95 @0x0
0x0a95…0a9b lno = 0x04ec // 0xa97 @0x2
0x0a95…0a9b at0004 = ╱97╱ REPEAT ╱ // 0xa99 @0x4
0x0a95…0a9b at0005 = EOL // 0xa9a @0x5
0x0a95…0a9b }
0x0a9b…0aa7 97fe 1270 LF,LS=B
0x0a9b…0aa7 LineComalBin {
0x0a9b…0aa7 ptr = 0x97fe // 0xa9b @0x0
0x0a9b…0aa7 lno = 0x04f6 // 0xa9d @0x2
0x0a9b…0aa7 at0004 = ╱4c╱L╱ // 0xa9f @0x4
0x0a9b…0aa7 at0005 = ╱46╱F╱ // 0xaa0 @0x5
0x0a9b…0aa7 at0006 = ╱ec╱,╱ // 0xaa1 @0x6
0x0a9b…0aa7 at0007 = ╱4c╱L╱ // 0xaa2 @0x7
0x0a9b…0aa7 at0008 = ╱53╱S╱ // 0xaa3 @0x8
0x0a9b…0aa7 at0009 = ╱dc╱=╱ // 0xaa4 @0x9
0x0a9b…0aa7 at000a = ╱42╱B╱ // 0xaa5 @0xa
0x0a9b…0aa7 at000b = EOL // 0xaa6 @0xb
0x0a9b…0aa7 }
0x0aa7…0ab6 980d 1280 CURSOR E,23
0x0aa7…0ab6 LineComalBin {
0x0aa7…0ab6 ptr = 0x980d // 0xaa7 @0x0
0x0aa7…0ab6 lno = 0x0500 // 0xaa9 @0x2
0x0aa7…0ab6 at0004 = ╱a1╱ CURSOR ╱ // 0xaab @0x4
0x0aa7…0ab6 at0005 = ╱45╱E╱ // 0xaac @0x5
0x0aa7…0ab6 at0006 = ╱ec╱,╱ // 0xaad @0x6
0x0aa7…0ab6 at0007 = ╱32╱2╱ // 0xaae @0x7
0x0aa7…0ab6 at0008 = ╱33╱3╱ // 0xaaf @0x8
0x0aa7…0ab6 at0009 = ╱fe0000b805╱ // 0xab0 @0x9
0x0aa7…0ab6 at000e = EOL // 0xab5 @0xe
0x0aa7…0ab6 }
0x0ab6…0ae9 9840 1290 PRINT " "
0x0ab6…0ae9 LineComalBin {
0x0ab6…0ae9 ptr = 0x9840 // 0xab6 @0x0
0x0ab6…0ae9 lno = 0x050a // 0xab8 @0x2
0x0ab6…0ae9 at0004 = ╱92╱ PRINT ╱ // 0xaba @0x4
0x0ab6…0ae9 at0005 = ╱22╱"╱ // 0xabb @0x5
0x0ab6…0ae9 at0006 = ╱20╱…╱ // 0xabc @0x6
0x0ab6…0ae9 at0007 = ╱20╱…╱ // 0xabd @0x7
0x0ab6…0ae9 at0008 = ╱20╱…╱ // 0xabe @0x8
0x0ab6…0ae9 at0009 = ╱20╱…╱ // 0xabf @0x9
0x0ab6…0ae9 at000a = ╱20╱…╱ // 0xac0 @0xa
0x0ab6…0ae9 at000b = ╱20╱…╱ // 0xac1 @0xb
0x0ab6…0ae9 at000c = ╱20╱…╱ // 0xac2 @0xc
0x0ab6…0ae9 at000d = ╱20╱…╱ // 0xac3 @0xd
0x0ab6…0ae9 at000e = ╱20╱…╱ // 0xac4 @0xe
0x0ab6…0ae9 at000f = ╱20╱…╱ // 0xac5 @0xf
0x0ab6…0ae9 at0010 = ╱20╱…╱ // 0xac6 @0x10
0x0ab6…0ae9 at0011 = ╱20╱…╱ // 0xac7 @0x11
0x0ab6…0ae9 at0012 = ╱20╱…╱ // 0xac8 @0x12
0x0ab6…0ae9 at0013 = ╱20╱…╱ // 0xac9 @0x13
0x0ab6…0ae9 at0014 = ╱20╱…╱ // 0xaca @0x14
0x0ab6…0ae9 at0015 = ╱20╱…╱ // 0xacb @0x15
0x0ab6…0ae9 at0016 = ╱20╱…╱ // 0xacc @0x16
0x0ab6…0ae9 at0017 = ╱20╱…╱ // 0xacd @0x17
0x0ab6…0ae9 at0018 = ╱20╱…╱ // 0xace @0x18
0x0ab6…0ae9 at0019 = ╱20╱…╱ // 0xacf @0x19
0x0ab6…0ae9 at001a = ╱20╱…╱ // 0xad0 @0x1a
0x0ab6…0ae9 at001b = ╱20╱…╱ // 0xad1 @0x1b
0x0ab6…0ae9 at001c = ╱20╱…╱ // 0xad2 @0x1c
0x0ab6…0ae9 at001d = ╱20╱…╱ // 0xad3 @0x1d
0x0ab6…0ae9 at001e = ╱20╱…╱ // 0xad4 @0x1e
0x0ab6…0ae9 at001f = ╱20╱…╱ // 0xad5 @0x1f
0x0ab6…0ae9 at0020 = ╱20╱…╱ // 0xad6 @0x20
0x0ab6…0ae9 at0021 = ╱20╱…╱ // 0xad7 @0x21
0x0ab6…0ae9 at0022 = ╱20╱…╱ // 0xad8 @0x22
0x0ab6…0ae9 at0023 = ╱20╱…╱ // 0xad9 @0x23
0x0ab6…0ae9 at0024 = ╱20╱…╱ // 0xada @0x24
0x0ab6…0ae9 at0025 = ╱20╱…╱ // 0xadb @0x25
0x0ab6…0ae9 at0026 = ╱20╱…╱ // 0xadc @0x26
0x0ab6…0ae9 at0027 = ╱20╱…╱ // 0xadd @0x27
0x0ab6…0ae9 at0028 = ╱20╱…╱ // 0xade @0x28
0x0ab6…0ae9 at0029 = ╱20╱…╱ // 0xadf @0x29
0x0ab6…0ae9 at002a = ╱20╱…╱ // 0xae0 @0x2a
0x0ab6…0ae9 at002b = ╱20╱…╱ // 0xae1 @0x2b
0x0ab6…0ae9 at002c = ╱20╱…╱ // 0xae2 @0x2c
0x0ab6…0ae9 at002d = ╱20╱…╱ // 0xae3 @0x2d
0x0ab6…0ae9 at002e = ╱20╱…╱ // 0xae4 @0x2e
0x0ab6…0ae9 at002f = ╱20╱…╱ // 0xae5 @0x2f
0x0ab6…0ae9 at0030 = ╱20╱…╱ // 0xae6 @0x30
0x0ab6…0ae9 at0031 = ╱22╱"╱ // 0xae7 @0x31
0x0ab6…0ae9 at0032 = EOL // 0xae8 @0x32
0x0ab6…0ae9 }
0x0ae9…0af8 984f 1300 CURSOR E,23
0x0ae9…0af8 LineComalBin {
0x0ae9…0af8 ptr = 0x984f // 0xae9 @0x0
0x0ae9…0af8 lno = 0x0514 // 0xaeb @0x2
0x0ae9…0af8 at0004 = ╱a1╱ CURSOR ╱ // 0xaed @0x4
0x0ae9…0af8 at0005 = ╱45╱E╱ // 0xaee @0x5
0x0ae9…0af8 at0006 = ╱ec╱,╱ // 0xaef @0x6
0x0ae9…0af8 at0007 = ╱32╱2╱ // 0xaf0 @0x7
0x0ae9…0af8 at0008 = ╱33╱3╱ // 0xaf1 @0x8
0x0ae9…0af8 at0009 = ╱fe0000b805╱ // 0xaf2 @0x9
0x0ae9…0af8 at000e = EOL // 0xaf7 @0xe
0x0ae9…0af8 }
0x0af8…0b0f 9866 1310 EDIT "Fra linienr ",LF
0x0af8…0b0f LineComalBin {
0x0af8…0b0f ptr = 0x9866 // 0xaf8 @0x0
0x0af8…0b0f lno = 0x051e // 0xafa @0x2
0x0af8…0b0f at0004 = ╱b1╱ EDIT ╱ // 0xafc @0x4
0x0af8…0b0f at0005 = ╱22╱"╱ // 0xafd @0x5
0x0af8…0b0f at0006 = ╱46╱F╱ // 0xafe @0x6
0x0af8…0b0f at0007 = ╱72╱r╱ // 0xaff @0x7
0x0af8…0b0f at0008 = ╱61╱a╱ // 0xb00 @0x8
0x0af8…0b0f at0009 = ╱20╱…╱ // 0xb01 @0x9
0x0af8…0b0f at000a = ╱6c╱l╱ // 0xb02 @0xa
0x0af8…0b0f at000b = ╱69╱i╱ // 0xb03 @0xb
0x0af8…0b0f at000c = ╱6e╱n╱ // 0xb04 @0xc
0x0af8…0b0f at000d = ╱69╱i╱ // 0xb05 @0xd
0x0af8…0b0f at000e = ╱65╱e╱ // 0xb06 @0xe
0x0af8…0b0f at000f = ╱6e╱n╱ // 0xb07 @0xf
0x0af8…0b0f at0010 = ╱72╱r╱ // 0xb08 @0x10
0x0af8…0b0f at0011 = ╱20╱…╱ // 0xb09 @0x11
0x0af8…0b0f at0012 = ╱22╱"╱ // 0xb0a @0x12
0x0af8…0b0f at0013 = ╱ec╱,╱ // 0xb0b @0x13
0x0af8…0b0f at0014 = ╱4c╱L╱ // 0xb0c @0x14
0x0af8…0b0f at0015 = ╱46╱F╱ // 0xb0d @0x15
0x0af8…0b0f at0016 = EOL // 0xb0e @0x16
0x0af8…0b0f }
0x0b0f…0b1e 9875 1320 CURSOR E,23
0x0b0f…0b1e LineComalBin {
0x0b0f…0b1e ptr = 0x9875 // 0xb0f @0x0
0x0b0f…0b1e lno = 0x0528 // 0xb11 @0x2
0x0b0f…0b1e at0004 = ╱a1╱ CURSOR ╱ // 0xb13 @0x4
0x0b0f…0b1e at0005 = ╱45╱E╱ // 0xb14 @0x5
0x0b0f…0b1e at0006 = ╱ec╱,╱ // 0xb15 @0x6
0x0b0f…0b1e at0007 = ╱32╱2╱ // 0xb16 @0x7
0x0b0f…0b1e at0008 = ╱33╱3╱ // 0xb17 @0x8
0x0b0f…0b1e at0009 = ╱fe0000b805╱ // 0xb18 @0x9
0x0b0f…0b1e at000e = EOL // 0xb1d @0xe
0x0b0f…0b1e }
0x0b1e…0b35 988c 1330 EDIT "Til linienr ",LS
0x0b1e…0b35 LineComalBin {
0x0b1e…0b35 ptr = 0x988c // 0xb1e @0x0
0x0b1e…0b35 lno = 0x0532 // 0xb20 @0x2
0x0b1e…0b35 at0004 = ╱b1╱ EDIT ╱ // 0xb22 @0x4
0x0b1e…0b35 at0005 = ╱22╱"╱ // 0xb23 @0x5
0x0b1e…0b35 at0006 = ╱54╱T╱ // 0xb24 @0x6
0x0b1e…0b35 at0007 = ╱69╱i╱ // 0xb25 @0x7
0x0b1e…0b35 at0008 = ╱6c╱l╱ // 0xb26 @0x8
0x0b1e…0b35 at0009 = ╱20╱…╱ // 0xb27 @0x9
0x0b1e…0b35 at000a = ╱6c╱l╱ // 0xb28 @0xa
0x0b1e…0b35 at000b = ╱69╱i╱ // 0xb29 @0xb
0x0b1e…0b35 at000c = ╱6e╱n╱ // 0xb2a @0xc
0x0b1e…0b35 at000d = ╱69╱i╱ // 0xb2b @0xd
0x0b1e…0b35 at000e = ╱65╱e╱ // 0xb2c @0xe
0x0b1e…0b35 at000f = ╱6e╱n╱ // 0xb2d @0xf
0x0b1e…0b35 at0010 = ╱72╱r╱ // 0xb2e @0x10
0x0b1e…0b35 at0011 = ╱20╱…╱ // 0xb2f @0x11
0x0b1e…0b35 at0012 = ╱22╱"╱ // 0xb30 @0x12
0x0b1e…0b35 at0013 = ╱ec╱,╱ // 0xb31 @0x13
0x0b1e…0b35 at0014 = ╱4c╱L╱ // 0xb32 @0x14
0x0b1e…0b35 at0015 = ╱53╱S╱ // 0xb33 @0x15
0x0b1e…0b35 at0016 = EOL // 0xb34 @0x16
0x0b1e…0b35 }
0x0b35…0b42 9899 1340 LF=INT(LF)
0x0b35…0b42 LineComalBin {
0x0b35…0b42 ptr = 0x9899 // 0xb35 @0x0
0x0b35…0b42 lno = 0x053c // 0xb37 @0x2
0x0b35…0b42 at0004 = ╱4c╱L╱ // 0xb39 @0x4
0x0b35…0b42 at0005 = ╱46╱F╱ // 0xb3a @0x5
0x0b35…0b42 at0006 = ╱dc╱=╱ // 0xb3b @0x6
0x0b35…0b42 at0007 = ╱c6╱INT╱ // 0xb3c @0x7
0x0b35…0b42 at0008 = ╱ed╱(╱ // 0xb3d @0x8
0x0b35…0b42 at0009 = ╱4c╱L╱ // 0xb3e @0x9
0x0b35…0b42 at000a = ╱46╱F╱ // 0xb3f @0xa
0x0b35…0b42 at000b = ╱ee╱)╱ // 0xb40 @0xb
0x0b35…0b42 at000c = EOL // 0xb41 @0xc
0x0b35…0b42 }
0x0b42…0b4f 98a6 1350 LS=INT(LS)
0x0b42…0b4f LineComalBin {
0x0b42…0b4f ptr = 0x98a6 // 0xb42 @0x0
0x0b42…0b4f lno = 0x0546 // 0xb44 @0x2
0x0b42…0b4f at0004 = ╱4c╱L╱ // 0xb46 @0x4
0x0b42…0b4f at0005 = ╱53╱S╱ // 0xb47 @0x5
0x0b42…0b4f at0006 = ╱dc╱=╱ // 0xb48 @0x6
0x0b42…0b4f at0007 = ╱c6╱INT╱ // 0xb49 @0x7
0x0b42…0b4f at0008 = ╱ed╱(╱ // 0xb4a @0x8
0x0b42…0b4f at0009 = ╱4c╱L╱ // 0xb4b @0x9
0x0b42…0b4f at000a = ╱53╱S╱ // 0xb4c @0xa
0x0b42…0b4f at000b = ╱ee╱)╱ // 0xb4d @0xb
0x0b42…0b4f at000c = EOL // 0xb4e @0xc
0x0b42…0b4f }
0x0b4f…0b67 98be 1360 UNTIL LS=>LF AND LF=>E AND LS<=LAST
0x0b4f…0b67 LineComalBin {
0x0b4f…0b67 ptr = 0x98be // 0xb4f @0x0
0x0b4f…0b67 lno = 0x0550 // 0xb51 @0x2
0x0b4f…0b67 at0004 = ╱98╱ UNTIL ╱ // 0xb53 @0x4
0x0b4f…0b67 at0005 = ╱4c╱L╱ // 0xb54 @0x5
0x0b4f…0b67 at0006 = ╱53╱S╱ // 0xb55 @0x6
0x0b4f…0b67 at0007 = ╱e0╱=>╱ // 0xb56 @0x7
0x0b4f…0b67 at0008 = ╱4c╱L╱ // 0xb57 @0x8
0x0b4f…0b67 at0009 = ╱46╱F╱ // 0xb58 @0x9
0x0b4f…0b67 at000a = ╱da╱ AND ╱ // 0xb59 @0xa
0x0b4f…0b67 at000b = ╱4c╱L╱ // 0xb5a @0xb
0x0b4f…0b67 at000c = ╱46╱F╱ // 0xb5b @0xc
0x0b4f…0b67 at000d = ╱e0╱=>╱ // 0xb5c @0xd
0x0b4f…0b67 at000e = ╱45╱E╱ // 0xb5d @0xe
0x0b4f…0b67 at000f = ╱da╱ AND ╱ // 0xb5e @0xf
0x0b4f…0b67 at0010 = ╱4c╱L╱ // 0xb5f @0x10
0x0b4f…0b67 at0011 = ╱53╱S╱ // 0xb60 @0x11
0x0b4f…0b67 at0012 = ╱df╱<=╱ // 0xb61 @0x12
0x0b4f…0b67 at0013 = ╱4c╱L╱ // 0xb62 @0x13
0x0b4f…0b67 at0014 = ╱41╱A╱ // 0xb63 @0x14
0x0b4f…0b67 at0015 = ╱53╱S╱ // 0xb64 @0x15
0x0b4f…0b67 at0016 = ╱54╱T╱ // 0xb65 @0x16
0x0b4f…0b67 at0017 = EOL // 0xb66 @0x17
0x0b4f…0b67 }
0x0b67…0b94 98eb 1370 IF SIDE$(FØRST+LF,E,4)="1 39" THEN LF=LF+E
0x0b67…0b94 LineComalBin {
0x0b67…0b94 ptr = 0x98eb // 0xb67 @0x0
0x0b67…0b94 lno = 0x055a // 0xb69 @0x2
0x0b67…0b94 at0004 = ╱82╱ IF ╱ // 0xb6b @0x4
0x0b67…0b94 at0005 = ╱53╱S╱ // 0xb6c @0x5
0x0b67…0b94 at0006 = ╱49╱I╱ // 0xb6d @0x6
0x0b67…0b94 at0007 = ╱44╱D╱ // 0xb6e @0x7
0x0b67…0b94 at0008 = ╱45╱E╱ // 0xb6f @0x8
0x0b67…0b94 at0009 = ╱ef╱$╱ // 0xb70 @0x9
0x0b67…0b94 at000a = ╱ed╱(╱ // 0xb71 @0xa
0x0b67…0b94 at000b = ╱46╱F╱ // 0xb72 @0xb
0x0b67…0b94 at000c = ╱5c╱Ø╱ // 0xb73 @0xc
0x0b67…0b94 at000d = ╱52╱R╱ // 0xb74 @0xd
0x0b67…0b94 at000e = ╱53╱S╱ // 0xb75 @0xe
0x0b67…0b94 at000f = ╱54╱T╱ // 0xb76 @0xf
0x0b67…0b94 at0010 = ╱e2╱+╱ // 0xb77 @0x10
0x0b67…0b94 at0011 = ╱4c╱L╱ // 0xb78 @0x11
0x0b67…0b94 at0012 = ╱46╱F╱ // 0xb79 @0x12
0x0b67…0b94 at0013 = ╱ec╱,╱ // 0xb7a @0x13
0x0b67…0b94 at0014 = ╱45╱E╱ // 0xb7b @0x14
0x0b67…0b94 at0015 = ╱ec╱,╱ // 0xb7c @0x15
0x0b67…0b94 at0016 = ╱34╱4╱ // 0xb7d @0x16
0x0b67…0b94 at0017 = ╱fe00008003╱ // 0xb7e @0x17
0x0b67…0b94 at001c = ╱ee╱)╱ // 0xb83 @0x1c
0x0b67…0b94 at001d = ╱dc╱=╱ // 0xb84 @0x1d
0x0b67…0b94 at001e = ╱22╱"╱ // 0xb85 @0x1e
0x0b67…0b94 at001f = ╱31╱1╱ // 0xb86 @0x1f
0x0b67…0b94 at0020 = ╱20╱…╱ // 0xb87 @0x20
0x0b67…0b94 at0021 = ╱33╱3╱ // 0xb88 @0x21
0x0b67…0b94 at0022 = ╱39╱9╱ // 0xb89 @0x22
0x0b67…0b94 at0023 = ╱22╱"╱ // 0xb8a @0x23
0x0b67…0b94 at0024 = ╱b6╱ THEN ╱ // 0xb8b @0x24
0x0b67…0b94 at0025 = ╱4c╱L╱ // 0xb8c @0x25
0x0b67…0b94 at0026 = ╱46╱F╱ // 0xb8d @0x26
0x0b67…0b94 at0027 = ╱dc╱=╱ // 0xb8e @0x27
0x0b67…0b94 at0028 = ╱4c╱L╱ // 0xb8f @0x28
0x0b67…0b94 at0029 = ╱46╱F╱ // 0xb90 @0x29
0x0b67…0b94 at002a = ╱e2╱+╱ // 0xb91 @0x2a
0x0b67…0b94 at002b = ╱45╱E╱ // 0xb92 @0x2b
0x0b67…0b94 at002c = EOL // 0xb93 @0x2c
0x0b67…0b94 }
0x0b94…0ba0 98f7 1380 LS=LS+E
0x0b94…0ba0 LineComalBin {
0x0b94…0ba0 ptr = 0x98f7 // 0xb94 @0x0
0x0b94…0ba0 lno = 0x0564 // 0xb96 @0x2
0x0b94…0ba0 at0004 = ╱4c╱L╱ // 0xb98 @0x4
0x0b94…0ba0 at0005 = ╱53╱S╱ // 0xb99 @0x5
0x0b94…0ba0 at0006 = ╱dc╱=╱ // 0xb9a @0x6
0x0b94…0ba0 at0007 = ╱4c╱L╱ // 0xb9b @0x7
0x0b94…0ba0 at0008 = ╱53╱S╱ // 0xb9c @0x8
0x0b94…0ba0 at0009 = ╱e2╱+╱ // 0xb9d @0x9
0x0b94…0ba0 at000a = ╱45╱E╱ // 0xb9e @0xa
0x0b94…0ba0 at000b = EOL // 0xb9f @0xb
0x0b94…0ba0 }
0x0ba0…0bdc 9933 1390 IF FØRST+LS<=SIDST AND SIDE$(FØRST+LS,E,4)="1 39" THEN LS=LS+E
0x0ba0…0bdc LineComalBin {
0x0ba0…0bdc ptr = 0x9933 // 0xba0 @0x0
0x0ba0…0bdc lno = 0x056e // 0xba2 @0x2
0x0ba0…0bdc at0004 = ╱82╱ IF ╱ // 0xba4 @0x4
0x0ba0…0bdc at0005 = ╱46╱F╱ // 0xba5 @0x5
0x0ba0…0bdc at0006 = ╱5c╱Ø╱ // 0xba6 @0x6
0x0ba0…0bdc at0007 = ╱52╱R╱ // 0xba7 @0x7
0x0ba0…0bdc at0008 = ╱53╱S╱ // 0xba8 @0x8
0x0ba0…0bdc at0009 = ╱54╱T╱ // 0xba9 @0x9
0x0ba0…0bdc at000a = ╱e2╱+╱ // 0xbaa @0xa
0x0ba0…0bdc at000b = ╱4c╱L╱ // 0xbab @0xb
0x0ba0…0bdc at000c = ╱53╱S╱ // 0xbac @0xc
0x0ba0…0bdc at000d = ╱df╱<=╱ // 0xbad @0xd
0x0ba0…0bdc at000e = ╱53╱S╱ // 0xbae @0xe
0x0ba0…0bdc at000f = ╱49╱I╱ // 0xbaf @0xf
0x0ba0…0bdc at0010 = ╱44╱D╱ // 0xbb0 @0x10
0x0ba0…0bdc at0011 = ╱53╱S╱ // 0xbb1 @0x11
0x0ba0…0bdc at0012 = ╱54╱T╱ // 0xbb2 @0x12
0x0ba0…0bdc at0013 = ╱da╱ AND ╱ // 0xbb3 @0x13
0x0ba0…0bdc at0014 = ╱53╱S╱ // 0xbb4 @0x14
0x0ba0…0bdc at0015 = ╱49╱I╱ // 0xbb5 @0x15
0x0ba0…0bdc at0016 = ╱44╱D╱ // 0xbb6 @0x16
0x0ba0…0bdc at0017 = ╱45╱E╱ // 0xbb7 @0x17
0x0ba0…0bdc at0018 = ╱ef╱$╱ // 0xbb8 @0x18
0x0ba0…0bdc at0019 = ╱ed╱(╱ // 0xbb9 @0x19
0x0ba0…0bdc at001a = ╱46╱F╱ // 0xbba @0x1a
0x0ba0…0bdc at001b = ╱5c╱Ø╱ // 0xbbb @0x1b
0x0ba0…0bdc at001c = ╱52╱R╱ // 0xbbc @0x1c
0x0ba0…0bdc at001d = ╱53╱S╱ // 0xbbd @0x1d
0x0ba0…0bdc at001e = ╱54╱T╱ // 0xbbe @0x1e
0x0ba0…0bdc at001f = ╱e2╱+╱ // 0xbbf @0x1f
0x0ba0…0bdc at0020 = ╱4c╱L╱ // 0xbc0 @0x20
0x0ba0…0bdc at0021 = ╱53╱S╱ // 0xbc1 @0x21
0x0ba0…0bdc at0022 = ╱ec╱,╱ // 0xbc2 @0x22
0x0ba0…0bdc at0023 = ╱45╱E╱ // 0xbc3 @0x23
0x0ba0…0bdc at0024 = ╱ec╱,╱ // 0xbc4 @0x24
0x0ba0…0bdc at0025 = ╱34╱4╱ // 0xbc5 @0x25
0x0ba0…0bdc at0026 = ╱fe00008003╱ // 0xbc6 @0x26
0x0ba0…0bdc at002b = ╱ee╱)╱ // 0xbcb @0x2b
0x0ba0…0bdc at002c = ╱dc╱=╱ // 0xbcc @0x2c
0x0ba0…0bdc at002d = ╱22╱"╱ // 0xbcd @0x2d
0x0ba0…0bdc at002e = ╱31╱1╱ // 0xbce @0x2e
0x0ba0…0bdc at002f = ╱20╱…╱ // 0xbcf @0x2f
0x0ba0…0bdc at0030 = ╱33╱3╱ // 0xbd0 @0x30
0x0ba0…0bdc at0031 = ╱39╱9╱ // 0xbd1 @0x31
0x0ba0…0bdc at0032 = ╱22╱"╱ // 0xbd2 @0x32
0x0ba0…0bdc at0033 = ╱b6╱ THEN ╱ // 0xbd3 @0x33
0x0ba0…0bdc at0034 = ╱4c╱L╱ // 0xbd4 @0x34
0x0ba0…0bdc at0035 = ╱53╱S╱ // 0xbd5 @0x35
0x0ba0…0bdc at0036 = ╱dc╱=╱ // 0xbd6 @0x36
0x0ba0…0bdc at0037 = ╱4c╱L╱ // 0xbd7 @0x37
0x0ba0…0bdc at0038 = ╱53╱S╱ // 0xbd8 @0x38
0x0ba0…0bdc at0039 = ╱e2╱+╱ // 0xbd9 @0x39
0x0ba0…0bdc at003a = ╱45╱E╱ // 0xbda @0x3a
0x0ba0…0bdc at003b = EOL // 0xbdb @0x3b
0x0ba0…0bdc }
0x0bdc…0bf0 9947 1400 WHILE FØRST+LS<=SIDST
0x0bdc…0bf0 LineComalBin {
0x0bdc…0bf0 ptr = 0x9947 // 0xbdc @0x0
0x0bdc…0bf0 lno = 0x0578 // 0xbde @0x2
0x0bdc…0bf0 at0004 = ╱93╱ WHILE ╱ // 0xbe0 @0x4
0x0bdc…0bf0 at0005 = ╱46╱F╱ // 0xbe1 @0x5
0x0bdc…0bf0 at0006 = ╱5c╱Ø╱ // 0xbe2 @0x6
0x0bdc…0bf0 at0007 = ╱52╱R╱ // 0xbe3 @0x7
0x0bdc…0bf0 at0008 = ╱53╱S╱ // 0xbe4 @0x8
0x0bdc…0bf0 at0009 = ╱54╱T╱ // 0xbe5 @0x9
0x0bdc…0bf0 at000a = ╱e2╱+╱ // 0xbe6 @0xa
0x0bdc…0bf0 at000b = ╱4c╱L╱ // 0xbe7 @0xb
0x0bdc…0bf0 at000c = ╱53╱S╱ // 0xbe8 @0xc
0x0bdc…0bf0 at000d = ╱df╱<=╱ // 0xbe9 @0xd
0x0bdc…0bf0 at000e = ╱53╱S╱ // 0xbea @0xe
0x0bdc…0bf0 at000f = ╱49╱I╱ // 0xbeb @0xf
0x0bdc…0bf0 at0010 = ╱44╱D╱ // 0xbec @0x10
0x0bdc…0bf0 at0011 = ╱53╱S╱ // 0xbed @0x11
0x0bdc…0bf0 at0012 = ╱54╱T╱ // 0xbee @0x12
0x0bdc…0bf0 at0013 = EOL // 0xbef @0x13
0x0bdc…0bf0 }
0x0bf0…0c14 996b 1410 SIDE$(FØRST+LF)=SIDE$(FØRST+LS)
0x0bf0…0c14 LineComalBin {
0x0bf0…0c14 ptr = 0x996b // 0xbf0 @0x0
0x0bf0…0c14 lno = 0x0582 // 0xbf2 @0x2
0x0bf0…0c14 at0004 = ╱53╱S╱ // 0xbf4 @0x4
0x0bf0…0c14 at0005 = ╱49╱I╱ // 0xbf5 @0x5
0x0bf0…0c14 at0006 = ╱44╱D╱ // 0xbf6 @0x6
0x0bf0…0c14 at0007 = ╱45╱E╱ // 0xbf7 @0x7
0x0bf0…0c14 at0008 = ╱ef╱$╱ // 0xbf8 @0x8
0x0bf0…0c14 at0009 = ╱ed╱(╱ // 0xbf9 @0x9
0x0bf0…0c14 at000a = ╱46╱F╱ // 0xbfa @0xa
0x0bf0…0c14 at000b = ╱5c╱Ø╱ // 0xbfb @0xb
0x0bf0…0c14 at000c = ╱52╱R╱ // 0xbfc @0xc
0x0bf0…0c14 at000d = ╱53╱S╱ // 0xbfd @0xd
0x0bf0…0c14 at000e = ╱54╱T╱ // 0xbfe @0xe
0x0bf0…0c14 at000f = ╱e2╱+╱ // 0xbff @0xf
0x0bf0…0c14 at0010 = ╱4c╱L╱ // 0xc00 @0x10
0x0bf0…0c14 at0011 = ╱46╱F╱ // 0xc01 @0x11
0x0bf0…0c14 at0012 = ╱ee╱)╱ // 0xc02 @0x12
0x0bf0…0c14 at0013 = ╱dc╱=╱ // 0xc03 @0x13
0x0bf0…0c14 at0014 = ╱53╱S╱ // 0xc04 @0x14
0x0bf0…0c14 at0015 = ╱49╱I╱ // 0xc05 @0x15
0x0bf0…0c14 at0016 = ╱44╱D╱ // 0xc06 @0x16
0x0bf0…0c14 at0017 = ╱45╱E╱ // 0xc07 @0x17
0x0bf0…0c14 at0018 = ╱ef╱$╱ // 0xc08 @0x18
0x0bf0…0c14 at0019 = ╱ed╱(╱ // 0xc09 @0x19
0x0bf0…0c14 at001a = ╱46╱F╱ // 0xc0a @0x1a
0x0bf0…0c14 at001b = ╱5c╱Ø╱ // 0xc0b @0x1b
0x0bf0…0c14 at001c = ╱52╱R╱ // 0xc0c @0x1c
0x0bf0…0c14 at001d = ╱53╱S╱ // 0xc0d @0x1d
0x0bf0…0c14 at001e = ╱54╱T╱ // 0xc0e @0x1e
0x0bf0…0c14 at001f = ╱e2╱+╱ // 0xc0f @0x1f
0x0bf0…0c14 at0020 = ╱4c╱L╱ // 0xc10 @0x20
0x0bf0…0c14 at0021 = ╱53╱S╱ // 0xc11 @0x21
0x0bf0…0c14 at0022 = ╱ee╱)╱ // 0xc12 @0x22
0x0bf0…0c14 at0023 = EOL // 0xc13 @0x23
0x0bf0…0c14 }
0x0c14…0c20 9977 1420 LF=LF+E
0x0c14…0c20 LineComalBin {
0x0c14…0c20 ptr = 0x9977 // 0xc14 @0x0
0x0c14…0c20 lno = 0x058c // 0xc16 @0x2
0x0c14…0c20 at0004 = ╱4c╱L╱ // 0xc18 @0x4
0x0c14…0c20 at0005 = ╱46╱F╱ // 0xc19 @0x5
0x0c14…0c20 at0006 = ╱dc╱=╱ // 0xc1a @0x6
0x0c14…0c20 at0007 = ╱4c╱L╱ // 0xc1b @0x7
0x0c14…0c20 at0008 = ╱46╱F╱ // 0xc1c @0x8
0x0c14…0c20 at0009 = ╱e2╱+╱ // 0xc1d @0x9
0x0c14…0c20 at000a = ╱45╱E╱ // 0xc1e @0xa
0x0c14…0c20 at000b = EOL // 0xc1f @0xb
0x0c14…0c20 }
0x0c20…0c2c 9983 1430 LS=LS+E
0x0c20…0c2c LineComalBin {
0x0c20…0c2c ptr = 0x9983 // 0xc20 @0x0
0x0c20…0c2c lno = 0x0596 // 0xc22 @0x2
0x0c20…0c2c at0004 = ╱4c╱L╱ // 0xc24 @0x4
0x0c20…0c2c at0005 = ╱53╱S╱ // 0xc25 @0x5
0x0c20…0c2c at0006 = ╱dc╱=╱ // 0xc26 @0x6
0x0c20…0c2c at0007 = ╱4c╱L╱ // 0xc27 @0x7
0x0c20…0c2c at0008 = ╱53╱S╱ // 0xc28 @0x8
0x0c20…0c2c at0009 = ╱e2╱+╱ // 0xc29 @0x9
0x0c20…0c2c at000a = ╱45╱E╱ // 0xc2a @0xa
0x0c20…0c2c at000b = EOL // 0xc2b @0xb
0x0c20…0c2c }
0x0c2c…0c32 9989 1440 ENDWHILE
0x0c2c…0c32 LineComalBin {
0x0c2c…0c32 ptr = 0x9989 // 0xc2c @0x0
0x0c2c…0c32 lno = 0x05a0 // 0xc2e @0x2
0x0c2c…0c32 at0004 = ╱94╱ ENDWHILE ╱ // 0xc30 @0x4
0x0c2c…0c32 at0005 = EOL // 0xc31 @0x5
0x0c2c…0c32 }
0x0c32…0c42 9999 1450 AT=AT-LS+LF
0x0c32…0c42 LineComalBin {
0x0c32…0c42 ptr = 0x9999 // 0xc32 @0x0
0x0c32…0c42 lno = 0x05aa // 0xc34 @0x2
0x0c32…0c42 at0004 = ╱41╱A╱ // 0xc36 @0x4
0x0c32…0c42 at0005 = ╱54╱T╱ // 0xc37 @0x5
0x0c32…0c42 at0006 = ╱dc╱=╱ // 0xc38 @0x6
0x0c32…0c42 at0007 = ╱41╱A╱ // 0xc39 @0x7
0x0c32…0c42 at0008 = ╱54╱T╱ // 0xc3a @0x8
0x0c32…0c42 at0009 = ╱e3╱-╱ // 0xc3b @0x9
0x0c32…0c42 at000a = ╱4c╱L╱ // 0xc3c @0xa
0x0c32…0c42 at000b = ╱53╱S╱ // 0xc3d @0xb
0x0c32…0c42 at000c = ╱e2╱+╱ // 0xc3e @0xc
0x0c32…0c42 at000d = ╱4c╱L╱ // 0xc3f @0xd
0x0c32…0c42 at000e = ╱46╱F╱ // 0xc40 @0xe
0x0c32…0c42 at000f = EOL // 0xc41 @0xf
0x0c32…0c42 }
0x0c42…0c58 99af 1460 SIDST=SIDST-LS+LF
0x0c42…0c58 LineComalBin {
0x0c42…0c58 ptr = 0x99af // 0xc42 @0x0
0x0c42…0c58 lno = 0x05b4 // 0xc44 @0x2
0x0c42…0c58 at0004 = ╱53╱S╱ // 0xc46 @0x4
0x0c42…0c58 at0005 = ╱49╱I╱ // 0xc47 @0x5
0x0c42…0c58 at0006 = ╱44╱D╱ // 0xc48 @0x6
0x0c42…0c58 at0007 = ╱53╱S╱ // 0xc49 @0x7
0x0c42…0c58 at0008 = ╱54╱T╱ // 0xc4a @0x8
0x0c42…0c58 at0009 = ╱dc╱=╱ // 0xc4b @0x9
0x0c42…0c58 at000a = ╱53╱S╱ // 0xc4c @0xa
0x0c42…0c58 at000b = ╱49╱I╱ // 0xc4d @0xb
0x0c42…0c58 at000c = ╱44╱D╱ // 0xc4e @0xc
0x0c42…0c58 at000d = ╱53╱S╱ // 0xc4f @0xd
0x0c42…0c58 at000e = ╱54╱T╱ // 0xc50 @0xe
0x0c42…0c58 at000f = ╱e3╱-╱ // 0xc51 @0xf
0x0c42…0c58 at0010 = ╱4c╱L╱ // 0xc52 @0x10
0x0c42…0c58 at0011 = ╱53╱S╱ // 0xc53 @0x11
0x0c42…0c58 at0012 = ╱e2╱+╱ // 0xc54 @0x12
0x0c42…0c58 at0013 = ╱4c╱L╱ // 0xc55 @0x13
0x0c42…0c58 at0014 = ╱46╱F╱ // 0xc56 @0x14
0x0c42…0c58 at0015 = EOL // 0xc57 @0x15
0x0c42…0c58 }
0x0c58…0c6d 99c4 1470 LAST=SIDST-FØRST
0x0c58…0c6d LineComalBin {
0x0c58…0c6d ptr = 0x99c4 // 0xc58 @0x0
0x0c58…0c6d lno = 0x05be // 0xc5a @0x2
0x0c58…0c6d at0004 = ╱4c╱L╱ // 0xc5c @0x4
0x0c58…0c6d at0005 = ╱41╱A╱ // 0xc5d @0x5
0x0c58…0c6d at0006 = ╱53╱S╱ // 0xc5e @0x6
0x0c58…0c6d at0007 = ╱54╱T╱ // 0xc5f @0x7
0x0c58…0c6d at0008 = ╱dc╱=╱ // 0xc60 @0x8
0x0c58…0c6d at0009 = ╱53╱S╱ // 0xc61 @0x9
0x0c58…0c6d at000a = ╱49╱I╱ // 0xc62 @0xa
0x0c58…0c6d at000b = ╱44╱D╱ // 0xc63 @0xb
0x0c58…0c6d at000c = ╱53╱S╱ // 0xc64 @0xc
0x0c58…0c6d at000d = ╱54╱T╱ // 0xc65 @0xd
0x0c58…0c6d at000e = ╱e3╱-╱ // 0xc66 @0xe
0x0c58…0c6d at000f = ╱46╱F╱ // 0xc67 @0xf
0x0c58…0c6d at0010 = ╱5c╱Ø╱ // 0xc68 @0x10
0x0c58…0c6d at0011 = ╱52╱R╱ // 0xc69 @0x11
0x0c58…0c6d at0012 = ╱53╱S╱ // 0xc6a @0x12
0x0c58…0c6d at0013 = ╱54╱T╱ // 0xc6b @0x13
0x0c58…0c6d at0014 = EOL // 0xc6c @0x14
0x0c58…0c6d }
0x0c6d…0c8c 99e3 1480 IF LAST>18 THEN LAST=18
0x0c6d…0c8c LineComalBin {
0x0c6d…0c8c ptr = 0x99e3 // 0xc6d @0x0
0x0c6d…0c8c lno = 0x05c8 // 0xc6f @0x2
0x0c6d…0c8c at0004 = ╱82╱ IF ╱ // 0xc71 @0x4
0x0c6d…0c8c at0005 = ╱4c╱L╱ // 0xc72 @0x5
0x0c6d…0c8c at0006 = ╱41╱A╱ // 0xc73 @0x6
0x0c6d…0c8c at0007 = ╱53╱S╱ // 0xc74 @0x7
0x0c6d…0c8c at0008 = ╱54╱T╱ // 0xc75 @0x8
0x0c6d…0c8c at0009 = ╱de╱>╱ // 0xc76 @0x9
0x0c6d…0c8c at000a = ╱31╱1╱ // 0xc77 @0xa
0x0c6d…0c8c at000b = ╱38╱8╱ // 0xc78 @0xb
0x0c6d…0c8c at000c = ╱fe00009005╱ // 0xc79 @0xc
0x0c6d…0c8c at0011 = ╱b6╱ THEN ╱ // 0xc7e @0x11
0x0c6d…0c8c at0012 = ╱4c╱L╱ // 0xc7f @0x12
0x0c6d…0c8c at0013 = ╱41╱A╱ // 0xc80 @0x13
0x0c6d…0c8c at0014 = ╱53╱S╱ // 0xc81 @0x14
0x0c6d…0c8c at0015 = ╱54╱T╱ // 0xc82 @0x15
0x0c6d…0c8c at0016 = ╱dc╱=╱ // 0xc83 @0x16
0x0c6d…0c8c at0017 = ╱31╱1╱ // 0xc84 @0x17
0x0c6d…0c8c at0018 = ╱38╱8╱ // 0xc85 @0x18
0x0c6d…0c8c at0019 = ╱fe00009005╱ // 0xc86 @0x19
0x0c6d…0c8c at001e = EOL // 0xc8b @0x1e
0x0c6d…0c8c }
0x0c8c…0c9a 99f1 1490 RESULT=-E
0x0c8c…0c9a LineComalBin {
0x0c8c…0c9a ptr = 0x99f1 // 0xc8c @0x0
0x0c8c…0c9a lno = 0x05d2 // 0xc8e @0x2
0x0c8c…0c9a at0004 = ╱52╱R╱ // 0xc90 @0x4
0x0c8c…0c9a at0005 = ╱45╱E╱ // 0xc91 @0x5
0x0c8c…0c9a at0006 = ╱53╱S╱ // 0xc92 @0x6
0x0c8c…0c9a at0007 = ╱55╱U╱ // 0xc93 @0x7
0x0c8c…0c9a at0008 = ╱4c╱L╱ // 0xc94 @0x8
0x0c8c…0c9a at0009 = ╱54╱T╱ // 0xc95 @0x9
0x0c8c…0c9a at000a = ╱dc╱=╱ // 0xc96 @0xa
0x0c8c…0c9a at000b = ╱e9╱-╱ // 0xc97 @0xb
0x0c8c…0c9a at000c = ╱45╱E╱ // 0xc98 @0xc
0x0c8c…0c9a at000d = EOL // 0xc99 @0xd
0x0c8c…0c9a }
0x0c9a…0ca0 99f7 1500 ENDIF
0x0c9a…0ca0 LineComalBin {
0x0c9a…0ca0 ptr = 0x99f7 // 0xc9a @0x0
0x0c9a…0ca0 lno = 0x05dc // 0xc9c @0x2
0x0c9a…0ca0 at0004 = ╱9b╱ ENDIF ╱ // 0xc9e @0x4
0x0c9a…0ca0 at0005 = EOL // 0xc9f @0x5
0x0c9a…0ca0 }
0x0ca0…0ca6 99fd 1510 ENDIF
0x0ca0…0ca6 LineComalBin {
0x0ca0…0ca6 ptr = 0x99fd // 0xca0 @0x0
0x0ca0…0ca6 lno = 0x05e6 // 0xca2 @0x2
0x0ca0…0ca6 at0004 = ╱9b╱ ENDIF ╱ // 0xca4 @0x4
0x0ca0…0ca6 at0005 = EOL // 0xca5 @0x5
0x0ca0…0ca6 }
0x0ca6…0cb7 9a0e 1520 UNTIL RESULT<=LAST
0x0ca6…0cb7 LineComalBin {
0x0ca6…0cb7 ptr = 0x9a0e // 0xca6 @0x0
0x0ca6…0cb7 lno = 0x05f0 // 0xca8 @0x2
0x0ca6…0cb7 at0004 = ╱98╱ UNTIL ╱ // 0xcaa @0x4
0x0ca6…0cb7 at0005 = ╱52╱R╱ // 0xcab @0x5
0x0ca6…0cb7 at0006 = ╱45╱E╱ // 0xcac @0x6
0x0ca6…0cb7 at0007 = ╱53╱S╱ // 0xcad @0x7
0x0ca6…0cb7 at0008 = ╱55╱U╱ // 0xcae @0x8
0x0ca6…0cb7 at0009 = ╱4c╱L╱ // 0xcaf @0x9
0x0ca6…0cb7 at000a = ╱54╱T╱ // 0xcb0 @0xa
0x0ca6…0cb7 at000b = ╱df╱<=╱ // 0xcb1 @0xb
0x0ca6…0cb7 at000c = ╱4c╱L╱ // 0xcb2 @0xc
0x0ca6…0cb7 at000d = ╱41╱A╱ // 0xcb3 @0xd
0x0ca6…0cb7 at000e = ╱53╱S╱ // 0xcb4 @0xe
0x0ca6…0cb7 at000f = ╱54╱T╱ // 0xcb5 @0xf
0x0ca6…0cb7 at0010 = EOL // 0xcb6 @0x10
0x0ca6…0cb7 }
0x0cb7…0cc5 9a1c 1530 LI=RESULT
0x0cb7…0cc5 LineComalBin {
0x0cb7…0cc5 ptr = 0x9a1c // 0xcb7 @0x0
0x0cb7…0cc5 lno = 0x05fa // 0xcb9 @0x2
0x0cb7…0cc5 at0004 = ╱4c╱L╱ // 0xcbb @0x4
0x0cb7…0cc5 at0005 = ╱49╱I╱ // 0xcbc @0x5
0x0cb7…0cc5 at0006 = ╱dc╱=╱ // 0xcbd @0x6
0x0cb7…0cc5 at0007 = ╱52╱R╱ // 0xcbe @0x7
0x0cb7…0cc5 at0008 = ╱45╱E╱ // 0xcbf @0x8
0x0cb7…0cc5 at0009 = ╱53╱S╱ // 0xcc0 @0x9
0x0cb7…0cc5 at000a = ╱55╱U╱ // 0xcc1 @0xa
0x0cb7…0cc5 at000b = ╱4c╱L╱ // 0xcc2 @0xb
0x0cb7…0cc5 at000c = ╱54╱T╱ // 0xcc3 @0xc
0x0cb7…0cc5 at000d = EOL // 0xcc4 @0xd
0x0cb7…0cc5 }
0x0cc5…0cdb 9a32 1540 IF LI>B THEN EXEC INLINE(LI)
0x0cc5…0cdb LineComalBin {
0x0cc5…0cdb ptr = 0x9a32 // 0xcc5 @0x0
0x0cc5…0cdb lno = 0x0604 // 0xcc7 @0x2
0x0cc5…0cdb at0004 = ╱82╱ IF ╱ // 0xcc9 @0x4
0x0cc5…0cdb at0005 = ╱4c╱L╱ // 0xcca @0x5
0x0cc5…0cdb at0006 = ╱49╱I╱ // 0xccb @0x6
0x0cc5…0cdb at0007 = ╱de╱>╱ // 0xccc @0x7
0x0cc5…0cdb at0008 = ╱42╱B╱ // 0xccd @0x8
0x0cc5…0cdb at0009 = ╱b6╱ THEN ╱ // 0xcce @0x9
0x0cc5…0cdb at000a = ╱9d╱ EXEC ╱ // 0xccf @0xa
0x0cc5…0cdb at000b = ╱49╱I╱ // 0xcd0 @0xb
0x0cc5…0cdb at000c = ╱4e╱N╱ // 0xcd1 @0xc
0x0cc5…0cdb at000d = ╱4c╱L╱ // 0xcd2 @0xd
0x0cc5…0cdb at000e = ╱49╱I╱ // 0xcd3 @0xe
0x0cc5…0cdb at000f = ╱4e╱N╱ // 0xcd4 @0xf
0x0cc5…0cdb at0010 = ╱45╱E╱ // 0xcd5 @0x10
0x0cc5…0cdb at0011 = ╱ed╱(╱ // 0xcd6 @0x11
0x0cc5…0cdb at0012 = ╱4c╱L╱ // 0xcd7 @0x12
0x0cc5…0cdb at0013 = ╱49╱I╱ // 0xcd8 @0x13
0x0cc5…0cdb at0014 = ╱ee╱)╱ // 0xcd9 @0x14
0x0cc5…0cdb at0015 = EOL // 0xcda @0x15
0x0cc5…0cdb }
0x0cdb…0cef 9a46 1550 IF LI<B THEN EXEC SKRIVSID
0x0cdb…0cef LineComalBin {
0x0cdb…0cef ptr = 0x9a46 // 0xcdb @0x0
0x0cdb…0cef lno = 0x060e // 0xcdd @0x2
0x0cdb…0cef at0004 = ╱82╱ IF ╱ // 0xcdf @0x4
0x0cdb…0cef at0005 = ╱4c╱L╱ // 0xce0 @0x5
0x0cdb…0cef at0006 = ╱49╱I╱ // 0xce1 @0x6
0x0cdb…0cef at0007 = ╱dd╱<╱ // 0xce2 @0x7
0x0cdb…0cef at0008 = ╱42╱B╱ // 0xce3 @0x8
0x0cdb…0cef at0009 = ╱b6╱ THEN ╱ // 0xce4 @0x9
0x0cdb…0cef at000a = ╱9d╱ EXEC ╱ // 0xce5 @0xa
0x0cdb…0cef at000b = ╱53╱S╱ // 0xce6 @0xb
0x0cdb…0cef at000c = ╱4b╱K╱ // 0xce7 @0xc
0x0cdb…0cef at000d = ╱52╱R╱ // 0xce8 @0xd
0x0cdb…0cef at000e = ╱49╱I╱ // 0xce9 @0xe
0x0cdb…0cef at000f = ╱56╱V╱ // 0xcea @0xf
0x0cdb…0cef at0010 = ╱53╱S╱ // 0xceb @0x10
0x0cdb…0cef at0011 = ╱49╱I╱ // 0xcec @0x11
0x0cdb…0cef at0012 = ╱44╱D╱ // 0xced @0x12
0x0cdb…0cef at0013 = EOL // 0xcee @0x13
0x0cdb…0cef }
0x0cef…0cf9 (43,) 9a50 1560 UNTIL LI=B
0x0cef…0cf9 LineComalBin {
0x0cef…0cf9 ptr = 0x9a50 // 0xcef @0x0
0x0cef…0cf9 lno = 0x0618 // 0xcf1 @0x2
0x0cef…0cf9 at0004 = ╱98╱ UNTIL ╱ // 0xcf3 @0x4
0x0cef…0cf9 at0005 = ╱4c╱L╱ // 0xcf4 @0x5
0x0cef…0cf9 at0006 = ╱49╱I╱ // 0xcf5 @0x6
0x0cef…0cf9 at0007 = ╱dc╱=╱ // 0xcf6 @0x7
0x0cef…0cf9 at0008 = ╱42╱B╱ // 0xcf7 @0x8
0x0cef…0cf9 at0009 = EOL // 0xcf8 @0x9
0x0cef…0cf9 }
0x0cf9…0d0e 9a65 1570 FØRST=FØRST+LAST
0x0cf9…0d0e LineComalBin {
0x0cf9…0d0e ptr = 0x9a65 // 0xcf9 @0x0
0x0cf9…0d0e lno = 0x0622 // 0xcfb @0x2
0x0cf9…0d0e at0004 = ╱46╱F╱ // 0xcfd @0x4
0x0cf9…0d0e at0005 = ╱5c╱Ø╱ // 0xcfe @0x5
0x0cf9…0d0e at0006 = ╱52╱R╱ // 0xcff @0x6
0x0cf9…0d0e at0007 = ╱53╱S╱ // 0xd00 @0x7
0x0cf9…0d0e at0008 = ╱54╱T╱ // 0xd01 @0x8
0x0cf9…0d0e at0009 = ╱dc╱=╱ // 0xd02 @0x9
0x0cf9…0d0e at000a = ╱46╱F╱ // 0xd03 @0xa
0x0cf9…0d0e at000b = ╱5c╱Ø╱ // 0xd04 @0xb
0x0cf9…0d0e at000c = ╱52╱R╱ // 0xd05 @0xc
0x0cf9…0d0e at000d = ╱53╱S╱ // 0xd06 @0xd
0x0cf9…0d0e at000e = ╱54╱T╱ // 0xd07 @0xe
0x0cf9…0d0e at000f = ╱e2╱+╱ // 0xd08 @0xf
0x0cf9…0d0e at0010 = ╱4c╱L╱ // 0xd09 @0x10
0x0cf9…0d0e at0011 = ╱41╱A╱ // 0xd0a @0x11
0x0cf9…0d0e at0012 = ╱53╱S╱ // 0xd0b @0x12
0x0cf9…0d0e at0013 = ╱54╱T╱ // 0xd0c @0x13
0x0cf9…0d0e at0014 = EOL // 0xd0d @0x14
0x0cf9…0d0e }
0x0d0e…0d14 9a6b 1580 ENDPROC
0x0d0e…0d14 LineComalBin {
0x0d0e…0d14 ptr = 0x9a6b // 0xd0e @0x0
0x0d0e…0d14 lno = 0x062c // 0xd10 @0x2
0x0d0e…0d14 at0004 = ╱9f╱ ENDPROC ╱ // 0xd12 @0x4
0x0d0e…0d14 at0005 = EOL // 0xd13 @0x5
0x0d0e…0d14 }
0x0d14…0d20 9a77 1590 PROC INDSID
0x0d14…0d20 LineComalBin {
0x0d14…0d20 ptr = 0x9a77 // 0xd14 @0x0
0x0d14…0d20 lno = 0x0636 // 0xd16 @0x2
0x0d14…0d20 at0004 = ╱9e╱ PROC ╱ // 0xd18 @0x4
0x0d14…0d20 at0005 = ╱49╱I╱ // 0xd19 @0x5
0x0d14…0d20 at0006 = ╱4e╱N╱ // 0xd1a @0x6
0x0d14…0d20 at0007 = ╱44╱D╱ // 0xd1b @0x7
0x0d14…0d20 at0008 = ╱53╱S╱ // 0xd1c @0x8
0x0d14…0d20 at0009 = ╱49╱I╱ // 0xd1d @0x9
0x0d14…0d20 at000a = ╱44╱D╱ // 0xd1e @0xa
0x0d14…0d20 at000b = EOL // 0xd1f @0xb
0x0d14…0d20 }
0x0d20…0d31 9a88 1600 FOR I=E TO 18
0x0d20…0d31 LineComalBin {
0x0d20…0d31 ptr = 0x9a88 // 0xd20 @0x0
0x0d20…0d31 lno = 0x0640 // 0xd22 @0x2
0x0d20…0d31 at0004 = ╱83╱ FOR ╱ // 0xd24 @0x4
0x0d20…0d31 at0005 = ╱49╱I╱ // 0xd25 @0x5
0x0d20…0d31 at0006 = ╱dc╱=╱ // 0xd26 @0x6
0x0d20…0d31 at0007 = ╱45╱E╱ // 0xd27 @0x7
0x0d20…0d31 at0008 = ╱b7╱ TO ╱ // 0xd28 @0x8
0x0d20…0d31 at0009 = ╱31╱1╱ // 0xd29 @0x9
0x0d20…0d31 at000a = ╱38╱8╱ // 0xd2a @0xa
0x0d20…0d31 at000b = ╱fe00009005╱ // 0xd2b @0xb
0x0d20…0d31 at0010 = EOL // 0xd30 @0x10
0x0d20…0d31 }
0x0d31…0d6c 9ac3 1610 SIDE$(FØRST+I)="1 0 0 0 0 "
0x0d31…0d6c LineComalBin {
0x0d31…0d6c ptr = 0x9ac3 // 0xd31 @0x0
0x0d31…0d6c lno = 0x064a // 0xd33 @0x2
0x0d31…0d6c at0004 = ╱53╱S╱ // 0xd35 @0x4
0x0d31…0d6c at0005 = ╱49╱I╱ // 0xd36 @0x5
0x0d31…0d6c at0006 = ╱44╱D╱ // 0xd37 @0x6
0x0d31…0d6c at0007 = ╱45╱E╱ // 0xd38 @0x7
0x0d31…0d6c at0008 = ╱ef╱$╱ // 0xd39 @0x8
0x0d31…0d6c at0009 = ╱ed╱(╱ // 0xd3a @0x9
0x0d31…0d6c at000a = ╱46╱F╱ // 0xd3b @0xa
0x0d31…0d6c at000b = ╱5c╱Ø╱ // 0xd3c @0xb
0x0d31…0d6c at000c = ╱52╱R╱ // 0xd3d @0xc
0x0d31…0d6c at000d = ╱53╱S╱ // 0xd3e @0xd
0x0d31…0d6c at000e = ╱54╱T╱ // 0xd3f @0xe
0x0d31…0d6c at000f = ╱e2╱+╱ // 0xd40 @0xf
0x0d31…0d6c at0010 = ╱49╱I╱ // 0xd41 @0x10
0x0d31…0d6c at0011 = ╱ee╱)╱ // 0xd42 @0x11
0x0d31…0d6c at0012 = ╱dc╱=╱ // 0xd43 @0x12
0x0d31…0d6c at0013 = ╱22╱"╱ // 0xd44 @0x13
0x0d31…0d6c at0014 = ╱31╱1╱ // 0xd45 @0x14
0x0d31…0d6c at0015 = ╱20╱…╱ // 0xd46 @0x15
0x0d31…0d6c at0016 = ╱30╱0╱ // 0xd47 @0x16
0x0d31…0d6c at0017 = ╱20╱…╱ // 0xd48 @0x17
0x0d31…0d6c at0018 = ╱20╱…╱ // 0xd49 @0x18
0x0d31…0d6c at0019 = ╱20╱…╱ // 0xd4a @0x19
0x0d31…0d6c at001a = ╱20╱…╱ // 0xd4b @0x1a
0x0d31…0d6c at001b = ╱20╱…╱ // 0xd4c @0x1b
0x0d31…0d6c at001c = ╱20╱…╱ // 0xd4d @0x1c
0x0d31…0d6c at001d = ╱20╱…╱ // 0xd4e @0x1d
0x0d31…0d6c at001e = ╱30╱0╱ // 0xd4f @0x1e
0x0d31…0d6c at001f = ╱20╱…╱ // 0xd50 @0x1f
0x0d31…0d6c at0020 = ╱20╱…╱ // 0xd51 @0x20
0x0d31…0d6c at0021 = ╱20╱…╱ // 0xd52 @0x21
0x0d31…0d6c at0022 = ╱20╱…╱ // 0xd53 @0x22
0x0d31…0d6c at0023 = ╱20╱…╱ // 0xd54 @0x23
0x0d31…0d6c at0024 = ╱20╱…╱ // 0xd55 @0x24
0x0d31…0d6c at0025 = ╱20╱…╱ // 0xd56 @0x25
0x0d31…0d6c at0026 = ╱20╱…╱ // 0xd57 @0x26
0x0d31…0d6c at0027 = ╱20╱…╱ // 0xd58 @0x27
0x0d31…0d6c at0028 = ╱30╱0╱ // 0xd59 @0x28
0x0d31…0d6c at0029 = ╱20╱…╱ // 0xd5a @0x29
0x0d31…0d6c at002a = ╱20╱…╱ // 0xd5b @0x2a
0x0d31…0d6c at002b = ╱20╱…╱ // 0xd5c @0x2b
0x0d31…0d6c at002c = ╱20╱…╱ // 0xd5d @0x2c
0x0d31…0d6c at002d = ╱20╱…╱ // 0xd5e @0x2d
0x0d31…0d6c at002e = ╱20╱…╱ // 0xd5f @0x2e
0x0d31…0d6c at002f = ╱30╱0╱ // 0xd60 @0x2f
0x0d31…0d6c at0030 = ╱20╱…╱ // 0xd61 @0x30
0x0d31…0d6c at0031 = ╱20╱…╱ // 0xd62 @0x31
0x0d31…0d6c at0032 = ╱20╱…╱ // 0xd63 @0x32
0x0d31…0d6c at0033 = ╱20╱…╱ // 0xd64 @0x33
0x0d31…0d6c at0034 = ╱20╱…╱ // 0xd65 @0x34
0x0d31…0d6c at0035 = ╱20╱…╱ // 0xd66 @0x35
0x0d31…0d6c at0036 = ╱20╱…╱ // 0xd67 @0x36
0x0d31…0d6c at0037 = ╱20╱…╱ // 0xd68 @0x37
0x0d31…0d6c at0038 = ╱20╱…╱ // 0xd69 @0x38
0x0d31…0d6c at0039 = ╱22╱"╱ // 0xd6a @0x39
0x0d31…0d6c at003a = EOL // 0xd6b @0x3a
0x0d31…0d6c }
0x0d6c…0d8d 9ae4 1620 SIDST=SIDST+E;AT=AT+E;LAST=I
0x0d6c…0d8d LineComalBin {
0x0d6c…0d8d ptr = 0x9ae4 // 0xd6c @0x0
0x0d6c…0d8d lno = 0x0654 // 0xd6e @0x2
0x0d6c…0d8d at0004 = ╱53╱S╱ // 0xd70 @0x4
0x0d6c…0d8d at0005 = ╱49╱I╱ // 0xd71 @0x5
0x0d6c…0d8d at0006 = ╱44╱D╱ // 0xd72 @0x6
0x0d6c…0d8d at0007 = ╱53╱S╱ // 0xd73 @0x7
0x0d6c…0d8d at0008 = ╱54╱T╱ // 0xd74 @0x8
0x0d6c…0d8d at0009 = ╱dc╱=╱ // 0xd75 @0x9
0x0d6c…0d8d at000a = ╱53╱S╱ // 0xd76 @0xa
0x0d6c…0d8d at000b = ╱49╱I╱ // 0xd77 @0xb
0x0d6c…0d8d at000c = ╱44╱D╱ // 0xd78 @0xc
0x0d6c…0d8d at000d = ╱53╱S╱ // 0xd79 @0xd
0x0d6c…0d8d at000e = ╱54╱T╱ // 0xd7a @0xe
0x0d6c…0d8d at000f = ╱e2╱+╱ // 0xd7b @0xf
0x0d6c…0d8d at0010 = ╱45╱E╱ // 0xd7c @0x10
0x0d6c…0d8d at0011 = ╱eb╱;╱ // 0xd7d @0x11
0x0d6c…0d8d at0012 = ╱41╱A╱ // 0xd7e @0x12
0x0d6c…0d8d at0013 = ╱54╱T╱ // 0xd7f @0x13
0x0d6c…0d8d at0014 = ╱dc╱=╱ // 0xd80 @0x14
0x0d6c…0d8d at0015 = ╱41╱A╱ // 0xd81 @0x15
0x0d6c…0d8d at0016 = ╱54╱T╱ // 0xd82 @0x16
0x0d6c…0d8d at0017 = ╱e2╱+╱ // 0xd83 @0x17
0x0d6c…0d8d at0018 = ╱45╱E╱ // 0xd84 @0x18
0x0d6c…0d8d at0019 = ╱eb╱;╱ // 0xd85 @0x19
0x0d6c…0d8d at001a = ╱4c╱L╱ // 0xd86 @0x1a
0x0d6c…0d8d at001b = ╱41╱A╱ // 0xd87 @0x1b
0x0d6c…0d8d at001c = ╱53╱S╱ // 0xd88 @0x1c
0x0d6c…0d8d at001d = ╱54╱T╱ // 0xd89 @0x1d
0x0d6c…0d8d at001e = ╱dc╱=╱ // 0xd8a @0x1e
0x0d6c…0d8d at001f = ╱49╱I╱ // 0xd8b @0x1f
0x0d6c…0d8d at0020 = EOL // 0xd8c @0x20
0x0d6c…0d8d }
0x0d8d…0d9c 9af3 1630 EXEC INLINE(I)
0x0d8d…0d9c LineComalBin {
0x0d8d…0d9c ptr = 0x9af3 // 0xd8d @0x0
0x0d8d…0d9c lno = 0x065e // 0xd8f @0x2
0x0d8d…0d9c at0004 = ╱9d╱ EXEC ╱ // 0xd91 @0x4
0x0d8d…0d9c at0005 = ╱49╱I╱ // 0xd92 @0x5
0x0d8d…0d9c at0006 = ╱4e╱N╱ // 0xd93 @0x6
0x0d8d…0d9c at0007 = ╱4c╱L╱ // 0xd94 @0x7
0x0d8d…0d9c at0008 = ╱49╱I╱ // 0xd95 @0x8
0x0d8d…0d9c at0009 = ╱4e╱N╱ // 0xd96 @0x9
0x0d8d…0d9c at000a = ╱45╱E╱ // 0xd97 @0xa
0x0d8d…0d9c at000b = ╱ed╱(╱ // 0xd98 @0xb
0x0d8d…0d9c at000c = ╱49╱I╱ // 0xd99 @0xc
0x0d8d…0d9c at000d = ╱ee╱)╱ // 0xd9a @0xd
0x0d8d…0d9c at000e = EOL // 0xd9b @0xe
0x0d8d…0d9c }
0x0d9c…0da7 9afe 1640 I=LAST
0x0d9c…0da7 LineComalBin {
0x0d9c…0da7 ptr = 0x9afe // 0xd9c @0x0
0x0d9c…0da7 lno = 0x0668 // 0xd9e @0x2
0x0d9c…0da7 at0004 = ╱49╱I╱ // 0xda0 @0x4
0x0d9c…0da7 at0005 = ╱dc╱=╱ // 0xda1 @0x5
0x0d9c…0da7 at0006 = ╱4c╱L╱ // 0xda2 @0x6
0x0d9c…0da7 at0007 = ╱41╱A╱ // 0xda3 @0x7
0x0d9c…0da7 at0008 = ╱53╱S╱ // 0xda4 @0x8
0x0d9c…0da7 at0009 = ╱54╱T╱ // 0xda5 @0x9
0x0d9c…0da7 at000a = EOL // 0xda6 @0xa
0x0d9c…0da7 }
0x0da7…0db4 9b0b 1650 IF LANR=B THEN
0x0da7…0db4 LineComalBin {
0x0da7…0db4 ptr = 0x9b0b // 0xda7 @0x0
0x0da7…0db4 lno = 0x0672 // 0xda9 @0x2
0x0da7…0db4 at0004 = ╱9c╱ IF ╱ // 0xdab @0x4
0x0da7…0db4 at0005 = ╱4c╱L╱ // 0xdac @0x5
0x0da7…0db4 at0006 = ╱41╱A╱ // 0xdad @0x6
0x0da7…0db4 at0007 = ╱4e╱N╱ // 0xdae @0x7
0x0da7…0db4 at0008 = ╱52╱R╱ // 0xdaf @0x8
0x0da7…0db4 at0009 = ╱dc╱=╱ // 0xdb0 @0x9
0x0da7…0db4 at000a = ╱42╱B╱ // 0xdb1 @0xa
0x0da7…0db4 at000b = ╱b6╱ THEN ╱ // 0xdb2 @0xb
0x0da7…0db4 at000c = EOL // 0xdb3 @0xc
0x0da7…0db4 }
0x0db4…0dc2 9b19 1660 I=18
0x0db4…0dc2 LineComalBin {
0x0db4…0dc2 ptr = 0x9b19 // 0xdb4 @0x0
0x0db4…0dc2 lno = 0x067c // 0xdb6 @0x2
0x0db4…0dc2 at0004 = ╱49╱I╱ // 0xdb8 @0x4
0x0db4…0dc2 at0005 = ╱dc╱=╱ // 0xdb9 @0x5
0x0db4…0dc2 at0006 = ╱31╱1╱ // 0xdba @0x6
0x0db4…0dc2 at0007 = ╱38╱8╱ // 0xdbb @0x7
0x0db4…0dc2 at0008 = ╱fe00009005╱ // 0xdbc @0x8
0x0db4…0dc2 at000d = EOL // 0xdc1 @0xd
0x0db4…0dc2 }
0x0dc2…0dc8 9b1f 1670 ELSE
0x0dc2…0dc8 LineComalBin {
0x0dc2…0dc8 ptr = 0x9b1f // 0xdc2 @0x0
0x0dc2…0dc8 lno = 0x0686 // 0xdc4 @0x2
0x0dc2…0dc8 at0004 = ╱9a╱ ELSE ╱ // 0xdc6 @0x4
0x0dc2…0dc8 at0005 = EOL // 0xdc7 @0x5
0x0dc2…0dc8 }
0x0dc8…0de7 9b3e 1680 IF AT=>ATPLM-4 THEN I=18
0x0dc8…0de7 LineComalBin {
0x0dc8…0de7 ptr = 0x9b3e // 0xdc8 @0x0
0x0dc8…0de7 lno = 0x0690 // 0xdca @0x2
0x0dc8…0de7 at0004 = ╱82╱ IF ╱ // 0xdcc @0x4
0x0dc8…0de7 at0005 = ╱41╱A╱ // 0xdcd @0x5
0x0dc8…0de7 at0006 = ╱54╱T╱ // 0xdce @0x6
0x0dc8…0de7 at0007 = ╱e0╱=>╱ // 0xdcf @0x7
0x0dc8…0de7 at0008 = ╱41╱A╱ // 0xdd0 @0x8
0x0dc8…0de7 at0009 = ╱54╱T╱ // 0xdd1 @0x9
0x0dc8…0de7 at000a = ╱50╱P╱ // 0xdd2 @0xa
0x0dc8…0de7 at000b = ╱4c╱L╱ // 0xdd3 @0xb
0x0dc8…0de7 at000c = ╱4d╱M╱ // 0xdd4 @0xc
0x0dc8…0de7 at000d = ╱e3╱-╱ // 0xdd5 @0xd
0x0dc8…0de7 at000e = ╱34╱4╱ // 0xdd6 @0xe
0x0dc8…0de7 at000f = ╱fe00008003╱ // 0xdd7 @0xf
0x0dc8…0de7 at0014 = ╱b6╱ THEN ╱ // 0xddc @0x14
0x0dc8…0de7 at0015 = ╱49╱I╱ // 0xddd @0x15
0x0dc8…0de7 at0016 = ╱dc╱=╱ // 0xdde @0x16
0x0dc8…0de7 at0017 = ╱31╱1╱ // 0xddf @0x17
0x0dc8…0de7 at0018 = ╱38╱8╱ // 0xde0 @0x18
0x0dc8…0de7 at0019 = ╱fe00009005╱ // 0xde1 @0x19
0x0dc8…0de7 at001e = EOL // 0xde6 @0x1e
0x0dc8…0de7 }
0x0de7…0ded 9b44 1690 ENDIF
0x0de7…0ded LineComalBin {
0x0de7…0ded ptr = 0x9b44 // 0xde7 @0x0
0x0de7…0ded lno = 0x069a // 0xde9 @0x2
0x0de7…0ded at0004 = ╱9b╱ ENDIF ╱ // 0xdeb @0x4
0x0de7…0ded at0005 = EOL // 0xdec @0x5
0x0de7…0ded }
0x0ded…0df4 9b4b 1700 NEXT I
0x0ded…0df4 LineComalBin {
0x0ded…0df4 ptr = 0x9b4b // 0xded @0x0
0x0ded…0df4 lno = 0x06a4 // 0xdef @0x2
0x0ded…0df4 at0004 = ╱84╱ NEXT ╱ // 0xdf1 @0x4
0x0ded…0df4 at0005 = ╱49╱I╱ // 0xdf2 @0x5
0x0ded…0df4 at0006 = EOL // 0xdf3 @0x6
0x0ded…0df4 }
0x0df4…0dfa 9b51 1710 ENDPROC
0x0df4…0dfa LineComalBin {
0x0df4…0dfa ptr = 0x9b51 // 0xdf4 @0x0
0x0df4…0dfa lno = 0x06ae // 0xdf6 @0x2
0x0df4…0dfa at0004 = ╱9f╱ ENDPROC ╱ // 0xdf8 @0x4
0x0df4…0dfa at0005 = EOL // 0xdf9 @0x5
0x0df4…0dfa }
0x0dfa…0e08 9b5f 1720 PROC INDTRANS
0x0dfa…0e08 LineComalBin {
0x0dfa…0e08 ptr = 0x9b5f // 0xdfa @0x0
0x0dfa…0e08 lno = 0x06b8 // 0xdfc @0x2
0x0dfa…0e08 at0004 = ╱9e╱ PROC ╱ // 0xdfe @0x4
0x0dfa…0e08 at0005 = ╱49╱I╱ // 0xdff @0x5
0x0dfa…0e08 at0006 = ╱4e╱N╱ // 0xe00 @0x6
0x0dfa…0e08 at0007 = ╱44╱D╱ // 0xe01 @0x7
0x0dfa…0e08 at0008 = ╱54╱T╱ // 0xe02 @0x8
0x0dfa…0e08 at0009 = ╱52╱R╱ // 0xe03 @0x9
0x0dfa…0e08 at000a = ╱41╱A╱ // 0xe04 @0xa
0x0dfa…0e08 at000b = ╱4e╱N╱ // 0xe05 @0xb
0x0dfa…0e08 at000c = ╱53╱S╱ // 0xe06 @0xc
0x0dfa…0e08 at000d = EOL // 0xe07 @0xd
0x0dfa…0e08 }
0x0e08…0e10 9b67 1730 K=E
0x0e08…0e10 LineComalBin {
0x0e08…0e10 ptr = 0x9b67 // 0xe08 @0x0
0x0e08…0e10 lno = 0x06c2 // 0xe0a @0x2
0x0e08…0e10 at0004 = ╱4b╱K╱ // 0xe0c @0x4
0x0e08…0e10 at0005 = ╱dc╱=╱ // 0xe0d @0x5
0x0e08…0e10 at0006 = ╱45╱E╱ // 0xe0e @0x6
0x0e08…0e10 at0007 = EOL // 0xe0f @0x7
0x0e08…0e10 }
0x0e10…0e16 9b6d 1740 REPEAT
0x0e10…0e16 LineComalBin {
0x0e10…0e16 ptr = 0x9b6d // 0xe10 @0x0
0x0e10…0e16 lno = 0x06cc // 0xe12 @0x2
0x0e10…0e16 at0004 = ╱97╱ REPEAT ╱ // 0xe14 @0x4
0x0e10…0e16 at0005 = EOL // 0xe15 @0x5
0x0e10…0e16 }
0x0e16…0e2d 9b84 1750 GET FIL1$,IT:SIDE$(K)
0x0e16…0e2d LineComalBin {
0x0e16…0e2d ptr = 0x9b84 // 0xe16 @0x0
0x0e16…0e2d lno = 0x06d6 // 0xe18 @0x2
0x0e16…0e2d at0004 = ╱a9╱ GET ╱ // 0xe1a @0x4
0x0e16…0e2d at0005 = ╱46╱F╱ // 0xe1b @0x5
0x0e16…0e2d at0006 = ╱49╱I╱ // 0xe1c @0x6
0x0e16…0e2d at0007 = ╱4c╱L╱ // 0xe1d @0x7
0x0e16…0e2d at0008 = ╱31╱1╱ // 0xe1e @0x8
0x0e16…0e2d at0009 = ╱ef╱$╱ // 0xe1f @0x9
0x0e16…0e2d at000a = ╱ec╱,╱ // 0xe20 @0xa
0x0e16…0e2d at000b = ╱49╱I╱ // 0xe21 @0xb
0x0e16…0e2d at000c = ╱54╱T╱ // 0xe22 @0xc
0x0e16…0e2d at000d = ╱f0╱:╱ // 0xe23 @0xd
0x0e16…0e2d at000e = ╱53╱S╱ // 0xe24 @0xe
0x0e16…0e2d at000f = ╱49╱I╱ // 0xe25 @0xf
0x0e16…0e2d at0010 = ╱44╱D╱ // 0xe26 @0x10
0x0e16…0e2d at0011 = ╱45╱E╱ // 0xe27 @0x11
0x0e16…0e2d at0012 = ╱ef╱$╱ // 0xe28 @0x12
0x0e16…0e2d at0013 = ╱ed╱(╱ // 0xe29 @0x13
0x0e16…0e2d at0014 = ╱4b╱K╱ // 0xe2a @0x14
0x0e16…0e2d at0015 = ╱ee╱)╱ // 0xe2b @0x15
0x0e16…0e2d at0016 = EOL // 0xe2c @0x16
0x0e16…0e2d }
0x0e2d…0e39 9b90 1760 IT=IT+E
0x0e2d…0e39 LineComalBin {
0x0e2d…0e39 ptr = 0x9b90 // 0xe2d @0x0
0x0e2d…0e39 lno = 0x06e0 // 0xe2f @0x2
0x0e2d…0e39 at0004 = ╱49╱I╱ // 0xe31 @0x4
0x0e2d…0e39 at0005 = ╱54╱T╱ // 0xe32 @0x5
0x0e2d…0e39 at0006 = ╱dc╱=╱ // 0xe33 @0x6
0x0e2d…0e39 at0007 = ╱49╱I╱ // 0xe34 @0x7
0x0e2d…0e39 at0008 = ╱54╱T╱ // 0xe35 @0x8
0x0e2d…0e39 at0009 = ╱e2╱+╱ // 0xe36 @0x9
0x0e2d…0e39 at000a = ╱45╱E╱ // 0xe37 @0xa
0x0e2d…0e39 at000b = EOL // 0xe38 @0xb
0x0e2d…0e39 }
0x0e39…0e43 9b9a 1770 K=K+E
0x0e39…0e43 LineComalBin {
0x0e39…0e43 ptr = 0x9b9a // 0xe39 @0x0
0x0e39…0e43 lno = 0x06ea // 0xe3b @0x2
0x0e39…0e43 at0004 = ╱4b╱K╱ // 0xe3d @0x4
0x0e39…0e43 at0005 = ╱dc╱=╱ // 0xe3e @0x5
0x0e39…0e43 at0006 = ╱4b╱K╱ // 0xe3f @0x6
0x0e39…0e43 at0007 = ╱e2╱+╱ // 0xe40 @0x7
0x0e39…0e43 at0008 = ╱45╱E╱ // 0xe41 @0x8
0x0e39…0e43 at0009 = EOL // 0xe42 @0x9
0x0e39…0e43 }
0x0e43…0e7b 9bd2 1780 UNTIL SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" OR SIDE$(K-E,E)="2"
0x0e43…0e7b LineComalBin {
0x0e43…0e7b ptr = 0x9bd2 // 0xe43 @0x0
0x0e43…0e7b lno = 0x06f4 // 0xe45 @0x2
0x0e43…0e7b at0004 = ╱98╱ UNTIL ╱ // 0xe47 @0x4
0x0e43…0e7b at0005 = ╱53╱S╱ // 0xe48 @0x5
0x0e43…0e7b at0006 = ╱49╱I╱ // 0xe49 @0x6
0x0e43…0e7b at0007 = ╱44╱D╱ // 0xe4a @0x7
0x0e43…0e7b at0008 = ╱45╱E╱ // 0xe4b @0x8
0x0e43…0e7b at0009 = ╱ef╱$╱ // 0xe4c @0x9
0x0e43…0e7b at000a = ╱ed╱(╱ // 0xe4d @0xa
0x0e43…0e7b at000b = ╱4b╱K╱ // 0xe4e @0xb
0x0e43…0e7b at000c = ╱e3╱-╱ // 0xe4f @0xc
0x0e43…0e7b at000d = ╱45╱E╱ // 0xe50 @0xd
0x0e43…0e7b at000e = ╱ec╱,╱ // 0xe51 @0xe
0x0e43…0e7b at000f = ╱45╱E╱ // 0xe52 @0xf
0x0e43…0e7b at0010 = ╱ee╱)╱ // 0xe53 @0x10
0x0e43…0e7b at0011 = ╱dc╱=╱ // 0xe54 @0x11
0x0e43…0e7b at0012 = ╱22╱"╱ // 0xe55 @0x12
0x0e43…0e7b at0013 = ╱20╱…╱ // 0xe56 @0x13
0x0e43…0e7b at0014 = ╱22╱"╱ // 0xe57 @0x14
0x0e43…0e7b at0015 = ╱db╱ OR ╱ // 0xe58 @0x15
0x0e43…0e7b at0016 = ╱53╱S╱ // 0xe59 @0x16
0x0e43…0e7b at0017 = ╱49╱I╱ // 0xe5a @0x17
0x0e43…0e7b at0018 = ╱44╱D╱ // 0xe5b @0x18
0x0e43…0e7b at0019 = ╱45╱E╱ // 0xe5c @0x19
0x0e43…0e7b at001a = ╱ef╱$╱ // 0xe5d @0x1a
0x0e43…0e7b at001b = ╱ed╱(╱ // 0xe5e @0x1b
0x0e43…0e7b at001c = ╱4b╱K╱ // 0xe5f @0x1c
0x0e43…0e7b at001d = ╱e3╱-╱ // 0xe60 @0x1d
0x0e43…0e7b at001e = ╱45╱E╱ // 0xe61 @0x1e
0x0e43…0e7b at001f = ╱ec╱,╱ // 0xe62 @0x1f
0x0e43…0e7b at0020 = ╱47╱G╱ // 0xe63 @0x20
0x0e43…0e7b at0021 = ╱ee╱)╱ // 0xe64 @0x21
0x0e43…0e7b at0022 = ╱dc╱=╱ // 0xe65 @0x22
0x0e43…0e7b at0023 = ╱22╱"╱ // 0xe66 @0x23
0x0e43…0e7b at0024 = ╱2a╱*╱ // 0xe67 @0x24
0x0e43…0e7b at0025 = ╱22╱"╱ // 0xe68 @0x25
0x0e43…0e7b at0026 = ╱db╱ OR ╱ // 0xe69 @0x26
0x0e43…0e7b at0027 = ╱53╱S╱ // 0xe6a @0x27
0x0e43…0e7b at0028 = ╱49╱I╱ // 0xe6b @0x28
0x0e43…0e7b at0029 = ╱44╱D╱ // 0xe6c @0x29
0x0e43…0e7b at002a = ╱45╱E╱ // 0xe6d @0x2a
0x0e43…0e7b at002b = ╱ef╱$╱ // 0xe6e @0x2b
0x0e43…0e7b at002c = ╱ed╱(╱ // 0xe6f @0x2c
0x0e43…0e7b at002d = ╱4b╱K╱ // 0xe70 @0x2d
0x0e43…0e7b at002e = ╱e3╱-╱ // 0xe71 @0x2e
0x0e43…0e7b at002f = ╱45╱E╱ // 0xe72 @0x2f
0x0e43…0e7b at0030 = ╱ec╱,╱ // 0xe73 @0x30
0x0e43…0e7b at0031 = ╱45╱E╱ // 0xe74 @0x31
0x0e43…0e7b at0032 = ╱ee╱)╱ // 0xe75 @0x32
0x0e43…0e7b at0033 = ╱dc╱=╱ // 0xe76 @0x33
0x0e43…0e7b at0034 = ╱22╱"╱ // 0xe77 @0x34
0x0e43…0e7b at0035 = ╱32╱2╱ // 0xe78 @0x35
0x0e43…0e7b at0036 = ╱22╱"╱ // 0xe79 @0x36
0x0e43…0e7b at0037 = EOL // 0xe7a @0x37
0x0e43…0e7b }
0x0e7b…0ea3 9bfa 1790 IF SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" THEN
0x0e7b…0ea3 LineComalBin {
0x0e7b…0ea3 ptr = 0x9bfa // 0xe7b @0x0
0x0e7b…0ea3 lno = 0x06fe // 0xe7d @0x2
0x0e7b…0ea3 at0004 = ╱9c╱ IF ╱ // 0xe7f @0x4
0x0e7b…0ea3 at0005 = ╱53╱S╱ // 0xe80 @0x5
0x0e7b…0ea3 at0006 = ╱49╱I╱ // 0xe81 @0x6
0x0e7b…0ea3 at0007 = ╱44╱D╱ // 0xe82 @0x7
0x0e7b…0ea3 at0008 = ╱45╱E╱ // 0xe83 @0x8
0x0e7b…0ea3 at0009 = ╱ef╱$╱ // 0xe84 @0x9
0x0e7b…0ea3 at000a = ╱ed╱(╱ // 0xe85 @0xa
0x0e7b…0ea3 at000b = ╱4b╱K╱ // 0xe86 @0xb
0x0e7b…0ea3 at000c = ╱e3╱-╱ // 0xe87 @0xc
0x0e7b…0ea3 at000d = ╱45╱E╱ // 0xe88 @0xd
0x0e7b…0ea3 at000e = ╱ec╱,╱ // 0xe89 @0xe
0x0e7b…0ea3 at000f = ╱45╱E╱ // 0xe8a @0xf
0x0e7b…0ea3 at0010 = ╱ee╱)╱ // 0xe8b @0x10
0x0e7b…0ea3 at0011 = ╱dc╱=╱ // 0xe8c @0x11
0x0e7b…0ea3 at0012 = ╱22╱"╱ // 0xe8d @0x12
0x0e7b…0ea3 at0013 = ╱20╱…╱ // 0xe8e @0x13
0x0e7b…0ea3 at0014 = ╱22╱"╱ // 0xe8f @0x14
0x0e7b…0ea3 at0015 = ╱db╱ OR ╱ // 0xe90 @0x15
0x0e7b…0ea3 at0016 = ╱53╱S╱ // 0xe91 @0x16
0x0e7b…0ea3 at0017 = ╱49╱I╱ // 0xe92 @0x17
0x0e7b…0ea3 at0018 = ╱44╱D╱ // 0xe93 @0x18
0x0e7b…0ea3 at0019 = ╱45╱E╱ // 0xe94 @0x19
0x0e7b…0ea3 at001a = ╱ef╱$╱ // 0xe95 @0x1a
0x0e7b…0ea3 at001b = ╱ed╱(╱ // 0xe96 @0x1b
0x0e7b…0ea3 at001c = ╱4b╱K╱ // 0xe97 @0x1c
0x0e7b…0ea3 at001d = ╱e3╱-╱ // 0xe98 @0x1d
0x0e7b…0ea3 at001e = ╱45╱E╱ // 0xe99 @0x1e
0x0e7b…0ea3 at001f = ╱ec╱,╱ // 0xe9a @0x1f
0x0e7b…0ea3 at0020 = ╱47╱G╱ // 0xe9b @0x20
0x0e7b…0ea3 at0021 = ╱ee╱)╱ // 0xe9c @0x21
0x0e7b…0ea3 at0022 = ╱dc╱=╱ // 0xe9d @0x22
0x0e7b…0ea3 at0023 = ╱22╱"╱ // 0xe9e @0x23
0x0e7b…0ea3 at0024 = ╱2a╱*╱ // 0xe9f @0x24
0x0e7b…0ea3 at0025 = ╱22╱"╱ // 0xea0 @0x25
0x0e7b…0ea3 at0026 = ╱b6╱ THEN ╱ // 0xea1 @0x26
0x0e7b…0ea3 at0027 = EOL // 0xea2 @0x27
0x0e7b…0ea3 }
0x0ea3…0eb0 9c07 1800 LAST=K-G
0x0ea3…0eb0 LineComalBin {
0x0ea3…0eb0 ptr = 0x9c07 // 0xea3 @0x0
0x0ea3…0eb0 lno = 0x0708 // 0xea5 @0x2
0x0ea3…0eb0 at0004 = ╱4c╱L╱ // 0xea7 @0x4
0x0ea3…0eb0 at0005 = ╱41╱A╱ // 0xea8 @0x5
0x0ea3…0eb0 at0006 = ╱53╱S╱ // 0xea9 @0x6
0x0ea3…0eb0 at0007 = ╱54╱T╱ // 0xeaa @0x7
0x0ea3…0eb0 at0008 = ╱dc╱=╱ // 0xeab @0x8
0x0ea3…0eb0 at0009 = ╱4b╱K╱ // 0xeac @0x9
0x0ea3…0eb0 at000a = ╱e3╱-╱ // 0xead @0xa
0x0ea3…0eb0 at000b = ╱47╱G╱ // 0xeae @0xb
0x0ea3…0eb0 at000c = EOL // 0xeaf @0xc
0x0ea3…0eb0 }
0x0eb0…0ebc 9c13 1810 IT=IT-E
0x0eb0…0ebc LineComalBin {
0x0eb0…0ebc ptr = 0x9c13 // 0xeb0 @0x0
0x0eb0…0ebc lno = 0x0712 // 0xeb2 @0x2
0x0eb0…0ebc at0004 = ╱49╱I╱ // 0xeb4 @0x4
0x0eb0…0ebc at0005 = ╱54╱T╱ // 0xeb5 @0x5
0x0eb0…0ebc at0006 = ╱dc╱=╱ // 0xeb6 @0x6
0x0eb0…0ebc at0007 = ╱49╱I╱ // 0xeb7 @0x7
0x0eb0…0ebc at0008 = ╱54╱T╱ // 0xeb8 @0x8
0x0eb0…0ebc at0009 = ╱e3╱-╱ // 0xeb9 @0x9
0x0eb0…0ebc at000a = ╱45╱E╱ // 0xeba @0xa
0x0eb0…0ebc at000b = EOL // 0xebb @0xb
0x0eb0…0ebc }
0x0ebc…0ec2 9c19 1820 ELSE
0x0ebc…0ec2 LineComalBin {
0x0ebc…0ec2 ptr = 0x9c19 // 0xebc @0x0
0x0ebc…0ec2 lno = 0x071c // 0xebe @0x2
0x0ebc…0ec2 at0004 = ╱9a╱ ELSE ╱ // 0xec0 @0x4
0x0ebc…0ec2 at0005 = EOL // 0xec1 @0x5
0x0ebc…0ec2 }
0x0ec2…0ecf 9c26 1830 LAST=K-E
0x0ec2…0ecf LineComalBin {
0x0ec2…0ecf ptr = 0x9c26 // 0xec2 @0x0
0x0ec2…0ecf lno = 0x0726 // 0xec4 @0x2
0x0ec2…0ecf at0004 = ╱4c╱L╱ // 0xec6 @0x4
0x0ec2…0ecf at0005 = ╱41╱A╱ // 0xec7 @0x5
0x0ec2…0ecf at0006 = ╱53╱S╱ // 0xec8 @0x6
0x0ec2…0ecf at0007 = ╱54╱T╱ // 0xec9 @0x7
0x0ec2…0ecf at0008 = ╱dc╱=╱ // 0xeca @0x8
0x0ec2…0ecf at0009 = ╱4b╱K╱ // 0xecb @0x9
0x0ec2…0ecf at000a = ╱e3╱-╱ // 0xecc @0xa
0x0ec2…0ecf at000b = ╱45╱E╱ // 0xecd @0xb
0x0ec2…0ecf at000c = EOL // 0xece @0xc
0x0ec2…0ecf }
0x0ecf…0ed5 9c2c 1840 ENDIF
0x0ecf…0ed5 LineComalBin {
0x0ecf…0ed5 ptr = 0x9c2c // 0xecf @0x0
0x0ecf…0ed5 lno = 0x0730 // 0xed1 @0x2
0x0ecf…0ed5 at0004 = ╱9b╱ ENDIF ╱ // 0xed3 @0x4
0x0ecf…0ed5 at0005 = EOL // 0xed4 @0x5
0x0ecf…0ed5 }
0x0ed5…0ee4 9c3b 1850 AT=AT+LAST
0x0ed5…0ee4 LineComalBin {
0x0ed5…0ee4 ptr = 0x9c3b // 0xed5 @0x0
0x0ed5…0ee4 lno = 0x073a // 0xed7 @0x2
0x0ed5…0ee4 at0004 = ╱41╱A╱ // 0xed9 @0x4
0x0ed5…0ee4 at0005 = ╱54╱T╱ // 0xeda @0x5
0x0ed5…0ee4 at0006 = ╱dc╱=╱ // 0xedb @0x6
0x0ed5…0ee4 at0007 = ╱41╱A╱ // 0xedc @0x7
0x0ed5…0ee4 at0008 = ╱54╱T╱ // 0xedd @0x8
0x0ed5…0ee4 at0009 = ╱e2╱+╱ // 0xede @0x9
0x0ed5…0ee4 at000a = ╱4c╱L╱ // 0xedf @0xa
0x0ed5…0ee4 at000b = ╱41╱A╱ // 0xee0 @0xb
0x0ed5…0ee4 at000c = ╱53╱S╱ // 0xee1 @0xc
0x0ed5…0ee4 at000d = ╱54╱T╱ // 0xee2 @0xd
0x0ed5…0ee4 at000e = EOL // 0xee3 @0xe
0x0ed5…0ee4 }
0x0ee4…0efb 9c52 1860 FØRST=B;SIDST=LAST
0x0ee4…0efb LineComalBin {
0x0ee4…0efb ptr = 0x9c52 // 0xee4 @0x0
0x0ee4…0efb lno = 0x0744 // 0xee6 @0x2
0x0ee4…0efb at0004 = ╱46╱F╱ // 0xee8 @0x4
0x0ee4…0efb at0005 = ╱5c╱Ø╱ // 0xee9 @0x5
0x0ee4…0efb at0006 = ╱52╱R╱ // 0xeea @0x6
0x0ee4…0efb at0007 = ╱53╱S╱ // 0xeeb @0x7
0x0ee4…0efb at0008 = ╱54╱T╱ // 0xeec @0x8
0x0ee4…0efb at0009 = ╱dc╱=╱ // 0xeed @0x9
0x0ee4…0efb at000a = ╱42╱B╱ // 0xeee @0xa
0x0ee4…0efb at000b = ╱eb╱;╱ // 0xeef @0xb
0x0ee4…0efb at000c = ╱53╱S╱ // 0xef0 @0xc
0x0ee4…0efb at000d = ╱49╱I╱ // 0xef1 @0xd
0x0ee4…0efb at000e = ╱44╱D╱ // 0xef2 @0xe
0x0ee4…0efb at000f = ╱53╱S╱ // 0xef3 @0xf
0x0ee4…0efb at0010 = ╱54╱T╱ // 0xef4 @0x10
0x0ee4…0efb at0011 = ╱dc╱=╱ // 0xef5 @0x11
0x0ee4…0efb at0012 = ╱4c╱L╱ // 0xef6 @0x12
0x0ee4…0efb at0013 = ╱41╱A╱ // 0xef7 @0x13
0x0ee4…0efb at0014 = ╱53╱S╱ // 0xef8 @0x14
0x0ee4…0efb at0015 = ╱54╱T╱ // 0xef9 @0x15
0x0ee4…0efb at0016 = EOL // 0xefa @0x16
0x0ee4…0efb }
0x0efb…0f1a 9c71 1870 IF LAST>18 THEN LAST=18
0x0efb…0f1a LineComalBin {
0x0efb…0f1a ptr = 0x9c71 // 0xefb @0x0
0x0efb…0f1a lno = 0x074e // 0xefd @0x2
0x0efb…0f1a at0004 = ╱82╱ IF ╱ // 0xeff @0x4
0x0efb…0f1a at0005 = ╱4c╱L╱ // 0xf00 @0x5
0x0efb…0f1a at0006 = ╱41╱A╱ // 0xf01 @0x6
0x0efb…0f1a at0007 = ╱53╱S╱ // 0xf02 @0x7
0x0efb…0f1a at0008 = ╱54╱T╱ // 0xf03 @0x8
0x0efb…0f1a at0009 = ╱de╱>╱ // 0xf04 @0x9
0x0efb…0f1a at000a = ╱31╱1╱ // 0xf05 @0xa
0x0efb…0f1a at000b = ╱38╱8╱ // 0xf06 @0xb
0x0efb…0f1a at000c = ╱fe00009005╱ // 0xf07 @0xc
0x0efb…0f1a at0011 = ╱b6╱ THEN ╱ // 0xf0c @0x11
0x0efb…0f1a at0012 = ╱4c╱L╱ // 0xf0d @0x12
0x0efb…0f1a at0013 = ╱41╱A╱ // 0xf0e @0x13
0x0efb…0f1a at0014 = ╱53╱S╱ // 0xf0f @0x14
0x0efb…0f1a at0015 = ╱54╱T╱ // 0xf10 @0x15
0x0efb…0f1a at0016 = ╱dc╱=╱ // 0xf11 @0x16
0x0efb…0f1a at0017 = ╱31╱1╱ // 0xf12 @0x17
0x0efb…0f1a at0018 = ╱38╱8╱ // 0xf13 @0x18
0x0efb…0f1a at0019 = ╱fe00009005╱ // 0xf14 @0x19
0x0efb…0f1a at001e = EOL // 0xf19 @0x1e
0x0efb…0f1a }
0x0f1a…0f20 9c77 1880 ENDPROC
0x0f1a…0f20 LineComalBin {
0x0f1a…0f20 ptr = 0x9c77 // 0xf1a @0x0
0x0f1a…0f20 lno = 0x0758 // 0xf1c @0x2
0x0f1a…0f20 at0004 = ╱9f╱ ENDPROC ╱ // 0xf1e @0x4
0x0f1a…0f20 at0005 = EOL // 0xf1f @0x5
0x0f1a…0f20 }
0x0f20…0f2e 9c85 1890 PROC UDATRANS
0x0f20…0f2e LineComalBin {
0x0f20…0f2e ptr = 0x9c85 // 0xf20 @0x0
0x0f20…0f2e lno = 0x0762 // 0xf22 @0x2
0x0f20…0f2e at0004 = ╱9e╱ PROC ╱ // 0xf24 @0x4
0x0f20…0f2e at0005 = ╱55╱U╱ // 0xf25 @0x5
0x0f20…0f2e at0006 = ╱44╱D╱ // 0xf26 @0x6
0x0f20…0f2e at0007 = ╱41╱A╱ // 0xf27 @0x7
0x0f20…0f2e at0008 = ╱54╱T╱ // 0xf28 @0x8
0x0f20…0f2e at0009 = ╱52╱R╱ // 0xf29 @0x9
0x0f20…0f2e at000a = ╱41╱A╱ // 0xf2a @0xa
0x0f20…0f2e at000b = ╱4e╱N╱ // 0xf2b @0xb
0x0f20…0f2e at000c = ╱53╱S╱ // 0xf2c @0xc
0x0f20…0f2e at000d = EOL // 0xf2d @0xd
0x0f20…0f2e }
0x0f2e…0f3c 9c93 1900 FOR K=E TO LAST
0x0f2e…0f3c LineComalBin {
0x0f2e…0f3c ptr = 0x9c93 // 0xf2e @0x0
0x0f2e…0f3c lno = 0x076c // 0xf30 @0x2
0x0f2e…0f3c at0004 = ╱83╱ FOR ╱ // 0xf32 @0x4
0x0f2e…0f3c at0005 = ╱4b╱K╱ // 0xf33 @0x5
0x0f2e…0f3c at0006 = ╱dc╱=╱ // 0xf34 @0x6
0x0f2e…0f3c at0007 = ╱45╱E╱ // 0xf35 @0x7
0x0f2e…0f3c at0008 = ╱b7╱ TO ╱ // 0xf36 @0x8
0x0f2e…0f3c at0009 = ╱4c╱L╱ // 0xf37 @0x9
0x0f2e…0f3c at000a = ╱41╱A╱ // 0xf38 @0xa
0x0f2e…0f3c at000b = ╱53╱S╱ // 0xf39 @0xb
0x0f2e…0f3c at000c = ╱54╱T╱ // 0xf3a @0xc
0x0f2e…0f3c at000d = EOL // 0xf3b @0xd
0x0f2e…0f3c }
0x0f3c…0f5e 9cb5 1910 IF AUT$(K,E)="3" OR AUT$(K,E)="1" THEN
0x0f3c…0f5e LineComalBin {
0x0f3c…0f5e ptr = 0x9cb5 // 0xf3c @0x0
0x0f3c…0f5e lno = 0x0776 // 0xf3e @0x2
0x0f3c…0f5e at0004 = ╱9c╱ IF ╱ // 0xf40 @0x4
0x0f3c…0f5e at0005 = ╱41╱A╱ // 0xf41 @0x5
0x0f3c…0f5e at0006 = ╱55╱U╱ // 0xf42 @0x6
0x0f3c…0f5e at0007 = ╱54╱T╱ // 0xf43 @0x7
0x0f3c…0f5e at0008 = ╱ef╱$╱ // 0xf44 @0x8
0x0f3c…0f5e at0009 = ╱ed╱(╱ // 0xf45 @0x9
0x0f3c…0f5e at000a = ╱4b╱K╱ // 0xf46 @0xa
0x0f3c…0f5e at000b = ╱ec╱,╱ // 0xf47 @0xb
0x0f3c…0f5e at000c = ╱45╱E╱ // 0xf48 @0xc
0x0f3c…0f5e at000d = ╱ee╱)╱ // 0xf49 @0xd
0x0f3c…0f5e at000e = ╱dc╱=╱ // 0xf4a @0xe
0x0f3c…0f5e at000f = ╱22╱"╱ // 0xf4b @0xf
0x0f3c…0f5e at0010 = ╱33╱3╱ // 0xf4c @0x10
0x0f3c…0f5e at0011 = ╱22╱"╱ // 0xf4d @0x11
0x0f3c…0f5e at0012 = ╱db╱ OR ╱ // 0xf4e @0x12
0x0f3c…0f5e at0013 = ╱41╱A╱ // 0xf4f @0x13
0x0f3c…0f5e at0014 = ╱55╱U╱ // 0xf50 @0x14
0x0f3c…0f5e at0015 = ╱54╱T╱ // 0xf51 @0x15
0x0f3c…0f5e at0016 = ╱ef╱$╱ // 0xf52 @0x16
0x0f3c…0f5e at0017 = ╱ed╱(╱ // 0xf53 @0x17
0x0f3c…0f5e at0018 = ╱4b╱K╱ // 0xf54 @0x18
0x0f3c…0f5e at0019 = ╱ec╱,╱ // 0xf55 @0x19
0x0f3c…0f5e at001a = ╱45╱E╱ // 0xf56 @0x1a
0x0f3c…0f5e at001b = ╱ee╱)╱ // 0xf57 @0x1b
0x0f3c…0f5e at001c = ╱dc╱=╱ // 0xf58 @0x1c
0x0f3c…0f5e at001d = ╱22╱"╱ // 0xf59 @0x1d
0x0f3c…0f5e at001e = ╱31╱1╱ // 0xf5a @0x1e
0x0f3c…0f5e at001f = ╱22╱"╱ // 0xf5b @0x1f
0x0f3c…0f5e at0020 = ╱b6╱ THEN ╱ // 0xf5c @0x20
0x0f3c…0f5e at0021 = EOL // 0xf5d @0x21
0x0f3c…0f5e }
0x0f5e…0f70 9cc7 1920 AUT$(K,E)="1"
0x0f5e…0f70 LineComalBin {
0x0f5e…0f70 ptr = 0x9cc7 // 0xf5e @0x0
0x0f5e…0f70 lno = 0x0780 // 0xf60 @0x2
0x0f5e…0f70 at0004 = ╱41╱A╱ // 0xf62 @0x4
0x0f5e…0f70 at0005 = ╱55╱U╱ // 0xf63 @0x5
0x0f5e…0f70 at0006 = ╱54╱T╱ // 0xf64 @0x6
0x0f5e…0f70 at0007 = ╱ef╱$╱ // 0xf65 @0x7
0x0f5e…0f70 at0008 = ╱ed╱(╱ // 0xf66 @0x8
0x0f5e…0f70 at0009 = ╱4b╱K╱ // 0xf67 @0x9
0x0f5e…0f70 at000a = ╱ec╱,╱ // 0xf68 @0xa
0x0f5e…0f70 at000b = ╱45╱E╱ // 0xf69 @0xb
0x0f5e…0f70 at000c = ╱ee╱)╱ // 0xf6a @0xc
0x0f5e…0f70 at000d = ╱dc╱=╱ // 0xf6b @0xd
0x0f5e…0f70 at000e = ╱22╱"╱ // 0xf6c @0xe
0x0f5e…0f70 at000f = ╱31╱1╱ // 0xf6d @0xf
0x0f5e…0f70 at0010 = ╱22╱"╱ // 0xf6e @0x10
0x0f5e…0f70 at0011 = EOL // 0xf6f @0x11
0x0f5e…0f70 }
0x0f70…0f86 9cdd 1930 PUT FIL1$,UT:AUT$(K)
0x0f70…0f86 LineComalBin {
0x0f70…0f86 ptr = 0x9cdd // 0xf70 @0x0
0x0f70…0f86 lno = 0x078a // 0xf72 @0x2
0x0f70…0f86 at0004 = ╱aa╱ PUT ╱ // 0xf74 @0x4
0x0f70…0f86 at0005 = ╱46╱F╱ // 0xf75 @0x5
0x0f70…0f86 at0006 = ╱49╱I╱ // 0xf76 @0x6
0x0f70…0f86 at0007 = ╱4c╱L╱ // 0xf77 @0x7
0x0f70…0f86 at0008 = ╱31╱1╱ // 0xf78 @0x8
0x0f70…0f86 at0009 = ╱ef╱$╱ // 0xf79 @0x9
0x0f70…0f86 at000a = ╱ec╱,╱ // 0xf7a @0xa
0x0f70…0f86 at000b = ╱55╱U╱ // 0xf7b @0xb
0x0f70…0f86 at000c = ╱54╱T╱ // 0xf7c @0xc
0x0f70…0f86 at000d = ╱f0╱:╱ // 0xf7d @0xd
0x0f70…0f86 at000e = ╱41╱A╱ // 0xf7e @0xe
0x0f70…0f86 at000f = ╱55╱U╱ // 0xf7f @0xf
0x0f70…0f86 at0010 = ╱54╱T╱ // 0xf80 @0x10
0x0f70…0f86 at0011 = ╱ef╱$╱ // 0xf81 @0x11
0x0f70…0f86 at0012 = ╱ed╱(╱ // 0xf82 @0x12
0x0f70…0f86 at0013 = ╱4b╱K╱ // 0xf83 @0x13
0x0f70…0f86 at0014 = ╱ee╱)╱ // 0xf84 @0x14
0x0f70…0f86 at0015 = EOL // 0xf85 @0x15
0x0f70…0f86 }
0x0f86…0f92 9ce9 1940 UT=UT+E
0x0f86…0f92 LineComalBin {
0x0f86…0f92 ptr = 0x9ce9 // 0xf86 @0x0
0x0f86…0f92 lno = 0x0794 // 0xf88 @0x2
0x0f86…0f92 at0004 = ╱55╱U╱ // 0xf8a @0x4
0x0f86…0f92 at0005 = ╱54╱T╱ // 0xf8b @0x5
0x0f86…0f92 at0006 = ╱dc╱=╱ // 0xf8c @0x6
0x0f86…0f92 at0007 = ╱55╱U╱ // 0xf8d @0x7
0x0f86…0f92 at0008 = ╱54╱T╱ // 0xf8e @0x8
0x0f86…0f92 at0009 = ╱e2╱+╱ // 0xf8f @0x9
0x0f86…0f92 at000a = ╱45╱E╱ // 0xf90 @0xa
0x0f86…0f92 at000b = EOL // 0xf91 @0xb
0x0f86…0f92 }
0x0f92…0f98 9cef 1950 ENDIF
0x0f92…0f98 LineComalBin {
0x0f92…0f98 ptr = 0x9cef // 0xf92 @0x0
0x0f92…0f98 lno = 0x079e // 0xf94 @0x2
0x0f92…0f98 at0004 = ╱9b╱ ENDIF ╱ // 0xf96 @0x4
0x0f92…0f98 at0005 = EOL // 0xf97 @0x5
0x0f92…0f98 }
0x0f98…0f9f 9cf6 1960 NEXT K
0x0f98…0f9f LineComalBin {
0x0f98…0f9f ptr = 0x9cf6 // 0xf98 @0x0
0x0f98…0f9f lno = 0x07a8 // 0xf9a @0x2
0x0f98…0f9f at0004 = ╱84╱ NEXT ╱ // 0xf9c @0x4
0x0f98…0f9f at0005 = ╱4b╱K╱ // 0xf9d @0x5
0x0f98…0f9f at0006 = EOL // 0xf9e @0x6
0x0f98…0f9f }
0x0f9f…0fa5 9cfc 1970 ENDPROC
0x0f9f…0fa5 LineComalBin {
0x0f9f…0fa5 ptr = 0x9cfc // 0xf9f @0x0
0x0f9f…0fa5 lno = 0x07b2 // 0xfa1 @0x2
0x0f9f…0fa5 at0004 = ╱9f╱ ENDPROC ╱ // 0xfa3 @0x4
0x0f9f…0fa5 at0005 = EOL // 0xfa4 @0x5
0x0f9f…0fa5 }
0x0fa5…0fb2 9d09 1980 PROC UDTRANS
0x0fa5…0fb2 LineComalBin {
0x0fa5…0fb2 ptr = 0x9d09 // 0xfa5 @0x0
0x0fa5…0fb2 lno = 0x07bc // 0xfa7 @0x2
0x0fa5…0fb2 at0004 = ╱9e╱ PROC ╱ // 0xfa9 @0x4
0x0fa5…0fb2 at0005 = ╱55╱U╱ // 0xfaa @0x5
0x0fa5…0fb2 at0006 = ╱44╱D╱ // 0xfab @0x6
0x0fa5…0fb2 at0007 = ╱54╱T╱ // 0xfac @0x7
0x0fa5…0fb2 at0008 = ╱52╱R╱ // 0xfad @0x8
0x0fa5…0fb2 at0009 = ╱41╱A╱ // 0xfae @0x9
0x0fa5…0fb2 at000a = ╱4e╱N╱ // 0xfaf @0xa
0x0fa5…0fb2 at000b = ╱53╱S╱ // 0xfb0 @0xb
0x0fa5…0fb2 at000c = EOL // 0xfb1 @0xc
0x0fa5…0fb2 }
0x0fb2…0fc1 9d18 1990 FOR K=E TO SIDST
0x0fb2…0fc1 LineComalBin {
0x0fb2…0fc1 ptr = 0x9d18 // 0xfb2 @0x0
0x0fb2…0fc1 lno = 0x07c6 // 0xfb4 @0x2
0x0fb2…0fc1 at0004 = ╱83╱ FOR ╱ // 0xfb6 @0x4
0x0fb2…0fc1 at0005 = ╱4b╱K╱ // 0xfb7 @0x5
0x0fb2…0fc1 at0006 = ╱dc╱=╱ // 0xfb8 @0x6
0x0fb2…0fc1 at0007 = ╱45╱E╱ // 0xfb9 @0x7
0x0fb2…0fc1 at0008 = ╱b7╱ TO ╱ // 0xfba @0x8
0x0fb2…0fc1 at0009 = ╱53╱S╱ // 0xfbb @0x9
0x0fb2…0fc1 at000a = ╱49╱I╱ // 0xfbc @0xa
0x0fb2…0fc1 at000b = ╱44╱D╱ // 0xfbd @0xb
0x0fb2…0fc1 at000c = ╱53╱S╱ // 0xfbe @0xc
0x0fb2…0fc1 at000d = ╱54╱T╱ // 0xfbf @0xd
0x0fb2…0fc1 at000e = EOL // 0xfc0 @0xe
0x0fb2…0fc1 }
0x0fc1…0fe5 9d3c 2000 IF SIDE$(K,E)="3" OR SIDE$(K,E)="1" THEN
0x0fc1…0fe5 LineComalBin {
0x0fc1…0fe5 ptr = 0x9d3c // 0xfc1 @0x0
0x0fc1…0fe5 lno = 0x07d0 // 0xfc3 @0x2
0x0fc1…0fe5 at0004 = ╱9c╱ IF ╱ // 0xfc5 @0x4
0x0fc1…0fe5 at0005 = ╱53╱S╱ // 0xfc6 @0x5
0x0fc1…0fe5 at0006 = ╱49╱I╱ // 0xfc7 @0x6
0x0fc1…0fe5 at0007 = ╱44╱D╱ // 0xfc8 @0x7
0x0fc1…0fe5 at0008 = ╱45╱E╱ // 0xfc9 @0x8
0x0fc1…0fe5 at0009 = ╱ef╱$╱ // 0xfca @0x9
0x0fc1…0fe5 at000a = ╱ed╱(╱ // 0xfcb @0xa
0x0fc1…0fe5 at000b = ╱4b╱K╱ // 0xfcc @0xb
0x0fc1…0fe5 at000c = ╱ec╱,╱ // 0xfcd @0xc
0x0fc1…0fe5 at000d = ╱45╱E╱ // 0xfce @0xd
0x0fc1…0fe5 at000e = ╱ee╱)╱ // 0xfcf @0xe
0x0fc1…0fe5 at000f = ╱dc╱=╱ // 0xfd0 @0xf
0x0fc1…0fe5 at0010 = ╱22╱"╱ // 0xfd1 @0x10
0x0fc1…0fe5 at0011 = ╱33╱3╱ // 0xfd2 @0x11
0x0fc1…0fe5 at0012 = ╱22╱"╱ // 0xfd3 @0x12
0x0fc1…0fe5 at0013 = ╱db╱ OR ╱ // 0xfd4 @0x13
0x0fc1…0fe5 at0014 = ╱53╱S╱ // 0xfd5 @0x14
0x0fc1…0fe5 at0015 = ╱49╱I╱ // 0xfd6 @0x15
0x0fc1…0fe5 at0016 = ╱44╱D╱ // 0xfd7 @0x16
0x0fc1…0fe5 at0017 = ╱45╱E╱ // 0xfd8 @0x17
0x0fc1…0fe5 at0018 = ╱ef╱$╱ // 0xfd9 @0x18
0x0fc1…0fe5 at0019 = ╱ed╱(╱ // 0xfda @0x19
0x0fc1…0fe5 at001a = ╱4b╱K╱ // 0xfdb @0x1a
0x0fc1…0fe5 at001b = ╱ec╱,╱ // 0xfdc @0x1b
0x0fc1…0fe5 at001c = ╱45╱E╱ // 0xfdd @0x1c
0x0fc1…0fe5 at001d = ╱ee╱)╱ // 0xfde @0x1d
0x0fc1…0fe5 at001e = ╱dc╱=╱ // 0xfdf @0x1e
0x0fc1…0fe5 at001f = ╱22╱"╱ // 0xfe0 @0x1f
0x0fc1…0fe5 at0020 = ╱31╱1╱ // 0xfe1 @0x20
0x0fc1…0fe5 at0021 = ╱22╱"╱ // 0xfe2 @0x21
0x0fc1…0fe5 at0022 = ╱b6╱ THEN ╱ // 0xfe3 @0x22
0x0fc1…0fe5 at0023 = EOL // 0xfe4 @0x23
0x0fc1…0fe5 }
0x0fe5…0ff8 9d4f 2010 SIDE$(K,E)="1"
0x0fe5…0ff8 LineComalBin {
0x0fe5…0ff8 ptr = 0x9d4f // 0xfe5 @0x0
0x0fe5…0ff8 lno = 0x07da // 0xfe7 @0x2
0x0fe5…0ff8 at0004 = ╱53╱S╱ // 0xfe9 @0x4
0x0fe5…0ff8 at0005 = ╱49╱I╱ // 0xfea @0x5
0x0fe5…0ff8 at0006 = ╱44╱D╱ // 0xfeb @0x6
0x0fe5…0ff8 at0007 = ╱45╱E╱ // 0xfec @0x7
0x0fe5…0ff8 at0008 = ╱ef╱$╱ // 0xfed @0x8
0x0fe5…0ff8 at0009 = ╱ed╱(╱ // 0xfee @0x9
0x0fe5…0ff8 at000a = ╱4b╱K╱ // 0xfef @0xa
0x0fe5…0ff8 at000b = ╱ec╱,╱ // 0xff0 @0xb
0x0fe5…0ff8 at000c = ╱45╱E╱ // 0xff1 @0xc
0x0fe5…0ff8 at000d = ╱ee╱)╱ // 0xff2 @0xd
0x0fe5…0ff8 at000e = ╱dc╱=╱ // 0xff3 @0xe
0x0fe5…0ff8 at000f = ╱22╱"╱ // 0xff4 @0xf
0x0fe5…0ff8 at0010 = ╱31╱1╱ // 0xff5 @0x10
0x0fe5…0ff8 at0011 = ╱22╱"╱ // 0xff6 @0x11
0x0fe5…0ff8 at0012 = EOL // 0xff7 @0x12
0x0fe5…0ff8 }
0x0ff8…100f 9d66 2020 PUT FIL1$,UT:SIDE$(K)
0x0ff8…100f LineComalBin {
0x0ff8…100f ptr = 0x9d66 // 0xff8 @0x0
0x0ff8…100f lno = 0x07e4 // 0xffa @0x2
0x0ff8…100f at0004 = ╱aa╱ PUT ╱ // 0xffc @0x4
0x0ff8…100f at0005 = ╱46╱F╱ // 0xffd @0x5
0x0ff8…100f at0006 = ╱49╱I╱ // 0xffe @0x6
0x0ff8…100f at0007 = ╱4c╱L╱ // 0xfff @0x7
0x0ff8…100f at0008 = ╱31╱1╱ // 0x1000 @0x8
0x0ff8…100f at0009 = ╱ef╱$╱ // 0x1001 @0x9
0x0ff8…100f at000a = ╱ec╱,╱ // 0x1002 @0xa
0x0ff8…100f at000b = ╱55╱U╱ // 0x1003 @0xb
0x0ff8…100f at000c = ╱54╱T╱ // 0x1004 @0xc
0x0ff8…100f at000d = ╱f0╱:╱ // 0x1005 @0xd
0x0ff8…100f at000e = ╱53╱S╱ // 0x1006 @0xe
0x0ff8…100f at000f = ╱49╱I╱ // 0x1007 @0xf
0x0ff8…100f at0010 = ╱44╱D╱ // 0x1008 @0x10
0x0ff8…100f at0011 = ╱45╱E╱ // 0x1009 @0x11
0x0ff8…100f at0012 = ╱ef╱$╱ // 0x100a @0x12
0x0ff8…100f at0013 = ╱ed╱(╱ // 0x100b @0x13
0x0ff8…100f at0014 = ╱4b╱K╱ // 0x100c @0x14
0x0ff8…100f at0015 = ╱ee╱)╱ // 0x100d @0x15
0x0ff8…100f at0016 = EOL // 0x100e @0x16
0x0ff8…100f }
0x100f…101b 9d72 2030 UT=UT+E
0x100f…101b LineComalBin {
0x100f…101b ptr = 0x9d72 // 0x100f @0x0
0x100f…101b lno = 0x07ee // 0x1011 @0x2
0x100f…101b at0004 = ╱55╱U╱ // 0x1013 @0x4
0x100f…101b at0005 = ╱54╱T╱ // 0x1014 @0x5
0x100f…101b at0006 = ╱dc╱=╱ // 0x1015 @0x6
0x100f…101b at0007 = ╱55╱U╱ // 0x1016 @0x7
0x100f…101b at0008 = ╱54╱T╱ // 0x1017 @0x8
0x100f…101b at0009 = ╱e2╱+╱ // 0x1018 @0x9
0x100f…101b at000a = ╱45╱E╱ // 0x1019 @0xa
0x100f…101b at000b = EOL // 0x101a @0xb
0x100f…101b }
0x101b…1021 9d78 2040 ENDIF
0x101b…1021 LineComalBin {
0x101b…1021 ptr = 0x9d78 // 0x101b @0x0
0x101b…1021 lno = 0x07f8 // 0x101d @0x2
0x101b…1021 at0004 = ╱9b╱ ENDIF ╱ // 0x101f @0x4
0x101b…1021 at0005 = EOL // 0x1020 @0x5
0x101b…1021 }
0x1021…1028 9d7f 2050 NEXT K
0x1021…1028 LineComalBin {
0x1021…1028 ptr = 0x9d7f // 0x1021 @0x0
0x1021…1028 lno = 0x0802 // 0x1023 @0x2
0x1021…1028 at0004 = ╱84╱ NEXT ╱ // 0x1025 @0x4
0x1021…1028 at0005 = ╱4b╱K╱ // 0x1026 @0x5
0x1021…1028 at0006 = EOL // 0x1027 @0x6
0x1021…1028 }
0x1028…102e 9d85 2060 ENDPROC
0x1028…102e LineComalBin {
0x1028…102e ptr = 0x9d85 // 0x1028 @0x0
0x1028…102e lno = 0x080c // 0x102a @0x2
0x1028…102e at0004 = ╱9f╱ ENDPROC ╱ // 0x102c @0x4
0x1028…102e at0005 = EOL // 0x102d @0x5
0x1028…102e }
0x102e…1041 9d98 2070 PROC INLINE(LINIE)
0x102e…1041 LineComalBin {
0x102e…1041 ptr = 0x9d98 // 0x102e @0x0
0x102e…1041 lno = 0x0816 // 0x1030 @0x2
0x102e…1041 at0004 = ╱9e╱ PROC ╱ // 0x1032 @0x4
0x102e…1041 at0005 = ╱49╱I╱ // 0x1033 @0x5
0x102e…1041 at0006 = ╱4e╱N╱ // 0x1034 @0x6
0x102e…1041 at0007 = ╱4c╱L╱ // 0x1035 @0x7
0x102e…1041 at0008 = ╱49╱I╱ // 0x1036 @0x8
0x102e…1041 at0009 = ╱4e╱N╱ // 0x1037 @0x9
0x102e…1041 at000a = ╱45╱E╱ // 0x1038 @0xa
0x102e…1041 at000b = ╱ed╱(╱ // 0x1039 @0xb
0x102e…1041 at000c = ╱4c╱L╱ // 0x103a @0xc
0x102e…1041 at000d = ╱49╱I╱ // 0x103b @0xd
0x102e…1041 at000e = ╱4e╱N╱ // 0x103c @0xe
0x102e…1041 at000f = ╱49╱I╱ // 0x103d @0xf
0x102e…1041 at0010 = ╱45╱E╱ // 0x103e @0x10
0x102e…1041 at0011 = ╱ee╱)╱ // 0x103f @0x11
0x102e…1041 at0012 = EOL // 0x1040 @0x12
0x102e…1041 }
0x1041…1063 9dba 2080 IF SIDE$(FØRST+LINIE,V:G)<>"39" THEN
0x1041…1063 LineComalBin {
0x1041…1063 ptr = 0x9dba // 0x1041 @0x0
0x1041…1063 lno = 0x0820 // 0x1043 @0x2
0x1041…1063 at0004 = ╱9c╱ IF ╱ // 0x1045 @0x4
0x1041…1063 at0005 = ╱53╱S╱ // 0x1046 @0x5
0x1041…1063 at0006 = ╱49╱I╱ // 0x1047 @0x6
0x1041…1063 at0007 = ╱44╱D╱ // 0x1048 @0x7
0x1041…1063 at0008 = ╱45╱E╱ // 0x1049 @0x8
0x1041…1063 at0009 = ╱ef╱$╱ // 0x104a @0x9
0x1041…1063 at000a = ╱ed╱(╱ // 0x104b @0xa
0x1041…1063 at000b = ╱46╱F╱ // 0x104c @0xb
0x1041…1063 at000c = ╱5c╱Ø╱ // 0x104d @0xc
0x1041…1063 at000d = ╱52╱R╱ // 0x104e @0xd
0x1041…1063 at000e = ╱53╱S╱ // 0x104f @0xe
0x1041…1063 at000f = ╱54╱T╱ // 0x1050 @0xf
0x1041…1063 at0010 = ╱e2╱+╱ // 0x1051 @0x10
0x1041…1063 at0011 = ╱4c╱L╱ // 0x1052 @0x11
0x1041…1063 at0012 = ╱49╱I╱ // 0x1053 @0x12
0x1041…1063 at0013 = ╱4e╱N╱ // 0x1054 @0x13
0x1041…1063 at0014 = ╱49╱I╱ // 0x1055 @0x14
0x1041…1063 at0015 = ╱45╱E╱ // 0x1056 @0x15
0x1041…1063 at0016 = ╱ec╱,╱ // 0x1057 @0x16
0x1041…1063 at0017 = ╱56╱V╱ // 0x1058 @0x17
0x1041…1063 at0018 = ╱f0╱:╱ // 0x1059 @0x18
0x1041…1063 at0019 = ╱47╱G╱ // 0x105a @0x19
0x1041…1063 at001a = ╱ee╱)╱ // 0x105b @0x1a
0x1041…1063 at001b = ╱e1╱<>╱ // 0x105c @0x1b
0x1041…1063 at001c = ╱22╱"╱ // 0x105d @0x1c
0x1041…1063 at001d = ╱33╱3╱ // 0x105e @0x1d
0x1041…1063 at001e = ╱39╱9╱ // 0x105f @0x1e
0x1041…1063 at001f = ╱22╱"╱ // 0x1060 @0x1f
0x1041…1063 at0020 = ╱b6╱ THEN ╱ // 0x1061 @0x20
0x1041…1063 at0021 = EOL // 0x1062 @0x21
0x1041…1063 }
0x1063…1069 9dc0 2090 REPEAT
0x1063…1069 LineComalBin {
0x1063…1069 ptr = 0x9dc0 // 0x1063 @0x0
0x1063…1069 lno = 0x082a // 0x1065 @0x2
0x1063…1069 at0004 = ╱97╱ REPEAT ╱ // 0x1067 @0x4
0x1063…1069 at0005 = EOL // 0x1068 @0x5
0x1063…1069 }
0x1069…106f 9dc6 2100 REPEAT
0x1069…106f LineComalBin {
0x1069…106f ptr = 0x9dc6 // 0x1069 @0x0
0x1069…106f lno = 0x0834 // 0x106b @0x2
0x1069…106f at0004 = ╱97╱ REPEAT ╱ // 0x106d @0x4
0x1069…106f at0005 = EOL // 0x106e @0x5
0x1069…106f }
0x106f…1083 9dda 2110 CURSOR 7,LINIE+V
0x106f…1083 LineComalBin {
0x106f…1083 ptr = 0x9dda // 0x106f @0x0
0x106f…1083 lno = 0x083e // 0x1071 @0x2
0x106f…1083 at0004 = ╱a1╱ CURSOR ╱ // 0x1073 @0x4
0x106f…1083 at0005 = ╱37╱7╱ // 0x1074 @0x5
0x106f…1083 at0006 = ╱fe0000e003╱ // 0x1075 @0x6
0x106f…1083 at000b = ╱ec╱,╱ // 0x107a @0xb
0x106f…1083 at000c = ╱4c╱L╱ // 0x107b @0xc
0x106f…1083 at000d = ╱49╱I╱ // 0x107c @0xd
0x106f…1083 at000e = ╱4e╱N╱ // 0x107d @0xe
0x106f…1083 at000f = ╱49╱I╱ // 0x107e @0xf
0x106f…1083 at0010 = ╱45╱E╱ // 0x107f @0x10
0x106f…1083 at0011 = ╱e2╱+╱ // 0x1080 @0x11
0x106f…1083 at0012 = ╱56╱V╱ // 0x1081 @0x12
0x106f…1083 at0013 = EOL // 0x1082 @0x13
0x106f…1083 }
0x1083…10a4 9dfb 2120 LINE$=SIDE$(FØRST+LINIE,V:G)
0x1083…10a4 LineComalBin {
0x1083…10a4 ptr = 0x9dfb // 0x1083 @0x0
0x1083…10a4 lno = 0x0848 // 0x1085 @0x2
0x1083…10a4 at0004 = ╱4c╱L╱ // 0x1087 @0x4
0x1083…10a4 at0005 = ╱49╱I╱ // 0x1088 @0x5
0x1083…10a4 at0006 = ╱4e╱N╱ // 0x1089 @0x6
0x1083…10a4 at0007 = ╱45╱E╱ // 0x108a @0x7
0x1083…10a4 at0008 = ╱ef╱$╱ // 0x108b @0x8
0x1083…10a4 at0009 = ╱dc╱=╱ // 0x108c @0x9
0x1083…10a4 at000a = ╱53╱S╱ // 0x108d @0xa
0x1083…10a4 at000b = ╱49╱I╱ // 0x108e @0xb
0x1083…10a4 at000c = ╱44╱D╱ // 0x108f @0xc
0x1083…10a4 at000d = ╱45╱E╱ // 0x1090 @0xd
0x1083…10a4 at000e = ╱ef╱$╱ // 0x1091 @0xe
0x1083…10a4 at000f = ╱ed╱(╱ // 0x1092 @0xf
0x1083…10a4 at0010 = ╱46╱F╱ // 0x1093 @0x10
0x1083…10a4 at0011 = ╱5c╱Ø╱ // 0x1094 @0x11
0x1083…10a4 at0012 = ╱52╱R╱ // 0x1095 @0x12
0x1083…10a4 at0013 = ╱53╱S╱ // 0x1096 @0x13
0x1083…10a4 at0014 = ╱54╱T╱ // 0x1097 @0x14
0x1083…10a4 at0015 = ╱e2╱+╱ // 0x1098 @0x15
0x1083…10a4 at0016 = ╱4c╱L╱ // 0x1099 @0x16
0x1083…10a4 at0017 = ╱49╱I╱ // 0x109a @0x17
0x1083…10a4 at0018 = ╱4e╱N╱ // 0x109b @0x18
0x1083…10a4 at0019 = ╱49╱I╱ // 0x109c @0x19
0x1083…10a4 at001a = ╱45╱E╱ // 0x109d @0x1a
0x1083…10a4 at001b = ╱ec╱,╱ // 0x109e @0x1b
0x1083…10a4 at001c = ╱56╱V╱ // 0x109f @0x1c
0x1083…10a4 at001d = ╱f0╱:╱ // 0x10a0 @0x1d
0x1083…10a4 at001e = ╱47╱G╱ // 0x10a1 @0x1e
0x1083…10a4 at001f = ╱ee╱)╱ // 0x10a2 @0x1f
0x1083…10a4 at0020 = EOL // 0x10a3 @0x20
0x1083…10a4 }
0x10a4…10c4 9e1b 2130 SIDE$(FØRST+LINIE,V:G)=" "
0x10a4…10c4 LineComalBin {
0x10a4…10c4 ptr = 0x9e1b // 0x10a4 @0x0
0x10a4…10c4 lno = 0x0852 // 0x10a6 @0x2
0x10a4…10c4 at0004 = ╱53╱S╱ // 0x10a8 @0x4
0x10a4…10c4 at0005 = ╱49╱I╱ // 0x10a9 @0x5
0x10a4…10c4 at0006 = ╱44╱D╱ // 0x10aa @0x6
0x10a4…10c4 at0007 = ╱45╱E╱ // 0x10ab @0x7
0x10a4…10c4 at0008 = ╱ef╱$╱ // 0x10ac @0x8
0x10a4…10c4 at0009 = ╱ed╱(╱ // 0x10ad @0x9
0x10a4…10c4 at000a = ╱46╱F╱ // 0x10ae @0xa
0x10a4…10c4 at000b = ╱5c╱Ø╱ // 0x10af @0xb
0x10a4…10c4 at000c = ╱52╱R╱ // 0x10b0 @0xc
0x10a4…10c4 at000d = ╱53╱S╱ // 0x10b1 @0xd
0x10a4…10c4 at000e = ╱54╱T╱ // 0x10b2 @0xe
0x10a4…10c4 at000f = ╱e2╱+╱ // 0x10b3 @0xf
0x10a4…10c4 at0010 = ╱4c╱L╱ // 0x10b4 @0x10
0x10a4…10c4 at0011 = ╱49╱I╱ // 0x10b5 @0x11
0x10a4…10c4 at0012 = ╱4e╱N╱ // 0x10b6 @0x12
0x10a4…10c4 at0013 = ╱49╱I╱ // 0x10b7 @0x13
0x10a4…10c4 at0014 = ╱45╱E╱ // 0x10b8 @0x14
0x10a4…10c4 at0015 = ╱ec╱,╱ // 0x10b9 @0x15
0x10a4…10c4 at0016 = ╱56╱V╱ // 0x10ba @0x16
0x10a4…10c4 at0017 = ╱f0╱:╱ // 0x10bb @0x17
0x10a4…10c4 at0018 = ╱47╱G╱ // 0x10bc @0x18
0x10a4…10c4 at0019 = ╱ee╱)╱ // 0x10bd @0x19
0x10a4…10c4 at001a = ╱dc╱=╱ // 0x10be @0x1a
0x10a4…10c4 at001b = ╱22╱"╱ // 0x10bf @0x1b
0x10a4…10c4 at001c = ╱20╱…╱ // 0x10c0 @0x1c
0x10a4…10c4 at001d = ╱20╱…╱ // 0x10c1 @0x1d
0x10a4…10c4 at001e = ╱22╱"╱ // 0x10c2 @0x1e
0x10a4…10c4 at001f = EOL // 0x10c3 @0x1f
0x10a4…10c4 }
0x10c4…10d2 9e29 2140 EDIT "",LINE$
0x10c4…10d2 LineComalBin {
0x10c4…10d2 ptr = 0x9e29 // 0x10c4 @0x0
0x10c4…10d2 lno = 0x085c // 0x10c6 @0x2
0x10c4…10d2 at0004 = ╱b1╱ EDIT ╱ // 0x10c8 @0x4
0x10c4…10d2 at0005 = ╱22╱"╱ // 0x10c9 @0x5
0x10c4…10d2 at0006 = ╱22╱"╱ // 0x10ca @0x6
0x10c4…10d2 at0007 = ╱ec╱,╱ // 0x10cb @0x7
0x10c4…10d2 at0008 = ╱4c╱L╱ // 0x10cc @0x8
0x10c4…10d2 at0009 = ╱49╱I╱ // 0x10cd @0x9
0x10c4…10d2 at000a = ╱4e╱N╱ // 0x10ce @0xa
0x10c4…10d2 at000b = ╱45╱E╱ // 0x10cf @0xb
0x10c4…10d2 at000c = ╱ef╱$╱ // 0x10d0 @0xc
0x10c4…10d2 at000d = EOL // 0x10d1 @0xd
0x10c4…10d2 }
0x10d2…10e7 9e3e 2150 EXEC CHECK(LINE$,OK)
0x10d2…10e7 LineComalBin {
0x10d2…10e7 ptr = 0x9e3e // 0x10d2 @0x0
0x10d2…10e7 lno = 0x0866 // 0x10d4 @0x2
0x10d2…10e7 at0004 = ╱9d╱ EXEC ╱ // 0x10d6 @0x4
0x10d2…10e7 at0005 = ╱43╱C╱ // 0x10d7 @0x5
0x10d2…10e7 at0006 = ╱48╱H╱ // 0x10d8 @0x6
0x10d2…10e7 at0007 = ╱45╱E╱ // 0x10d9 @0x7
0x10d2…10e7 at0008 = ╱43╱C╱ // 0x10da @0x8
0x10d2…10e7 at0009 = ╱4b╱K╱ // 0x10db @0x9
0x10d2…10e7 at000a = ╱ed╱(╱ // 0x10dc @0xa
0x10d2…10e7 at000b = ╱4c╱L╱ // 0x10dd @0xb
0x10d2…10e7 at000c = ╱49╱I╱ // 0x10de @0xc
0x10d2…10e7 at000d = ╱4e╱N╱ // 0x10df @0xd
0x10d2…10e7 at000e = ╱45╱E╱ // 0x10e0 @0xe
0x10d2…10e7 at000f = ╱ef╱$╱ // 0x10e1 @0xf
0x10d2…10e7 at0010 = ╱ec╱,╱ // 0x10e2 @0x10
0x10d2…10e7 at0011 = ╱4f╱O╱ // 0x10e3 @0x11
0x10d2…10e7 at0012 = ╱4b╱K╱ // 0x10e4 @0x12
0x10d2…10e7 at0013 = ╱ee╱)╱ // 0x10e5 @0x13
0x10d2…10e7 at0014 = EOL // 0x10e6 @0x14
0x10d2…10e7 }
0x10e7…1100 9e57 2160 IF RESULT=39 THEN OK=B
0x10e7…1100 LineComalBin {
0x10e7…1100 ptr = 0x9e57 // 0x10e7 @0x0
0x10e7…1100 lno = 0x0870 // 0x10e9 @0x2
0x10e7…1100 at0004 = ╱82╱ IF ╱ // 0x10eb @0x4
0x10e7…1100 at0005 = ╱52╱R╱ // 0x10ec @0x5
0x10e7…1100 at0006 = ╱45╱E╱ // 0x10ed @0x6
0x10e7…1100 at0007 = ╱53╱S╱ // 0x10ee @0x7
0x10e7…1100 at0008 = ╱55╱U╱ // 0x10ef @0x8
0x10e7…1100 at0009 = ╱4c╱L╱ // 0x10f0 @0x9
0x10e7…1100 at000a = ╱54╱T╱ // 0x10f1 @0xa
0x10e7…1100 at000b = ╱dc╱=╱ // 0x10f2 @0xb
0x10e7…1100 at000c = ╱33╱3╱ // 0x10f3 @0xc
0x10e7…1100 at000d = ╱39╱9╱ // 0x10f4 @0xd
0x10e7…1100 at000e = ╱fe00009c06╱ // 0x10f5 @0xe
0x10e7…1100 at0013 = ╱b6╱ THEN ╱ // 0x10fa @0x13
0x10e7…1100 at0014 = ╱4f╱O╱ // 0x10fb @0x14
0x10e7…1100 at0015 = ╱4b╱K╱ // 0x10fc @0x15
0x10e7…1100 at0016 = ╱dc╱=╱ // 0x10fd @0x16
0x10e7…1100 at0017 = ╱42╱B╱ // 0x10fe @0x17
0x10e7…1100 at0018 = EOL // 0x10ff @0x18
0x10e7…1100 }
0x1100…110f 9e66 2170 UNTIL OK>B AND OK<V
0x1100…110f LineComalBin {
0x1100…110f ptr = 0x9e66 // 0x1100 @0x0
0x1100…110f lno = 0x087a // 0x1102 @0x2
0x1100…110f at0004 = ╱98╱ UNTIL ╱ // 0x1104 @0x4
0x1100…110f at0005 = ╱4f╱O╱ // 0x1105 @0x5
0x1100…110f at0006 = ╱4b╱K╱ // 0x1106 @0x6
0x1100…110f at0007 = ╱de╱>╱ // 0x1107 @0x7
0x1100…110f at0008 = ╱42╱B╱ // 0x1108 @0x8
0x1100…110f at0009 = ╱da╱ AND ╱ // 0x1109 @0x9
0x1100…110f at000a = ╱4f╱O╱ // 0x110a @0xa
0x1100…110f at000b = ╱4b╱K╱ // 0x110b @0xb
0x1100…110f at000c = ╱dd╱<╱ // 0x110c @0xc
0x1100…110f at000d = ╱56╱V╱ // 0x110d @0xd
0x1100…110f at000e = EOL // 0x110e @0xe
0x1100…110f }
0x110f…111f 9e76 2180 LANR=RESULT
0x110f…111f LineComalBin {
0x110f…111f ptr = 0x9e76 // 0x110f @0x0
0x110f…111f lno = 0x0884 // 0x1111 @0x2
0x110f…111f at0004 = ╱4c╱L╱ // 0x1113 @0x4
0x110f…111f at0005 = ╱41╱A╱ // 0x1114 @0x5
0x110f…111f at0006 = ╱4e╱N╱ // 0x1115 @0x6
0x110f…111f at0007 = ╱52╱R╱ // 0x1116 @0x7
0x110f…111f at0008 = ╱dc╱=╱ // 0x1117 @0x8
0x110f…111f at0009 = ╱52╱R╱ // 0x1118 @0x9
0x110f…111f at000a = ╱45╱E╱ // 0x1119 @0xa
0x110f…111f at000b = ╱53╱S╱ // 0x111a @0xb
0x110f…111f at000c = ╱55╱U╱ // 0x111b @0xc
0x110f…111f at000d = ╱4c╱L╱ // 0x111c @0xd
0x110f…111f at000e = ╱54╱T╱ // 0x111d @0xe
0x110f…111f at000f = EOL // 0x111e @0xf
0x110f…111f }
0x111f…112e 9e85 2190 IF RESULT=B THEN
0x111f…112e LineComalBin {
0x111f…112e ptr = 0x9e85 // 0x111f @0x0
0x111f…112e lno = 0x088e // 0x1121 @0x2
0x111f…112e at0004 = ╱9c╱ IF ╱ // 0x1123 @0x4
0x111f…112e at0005 = ╱52╱R╱ // 0x1124 @0x5
0x111f…112e at0006 = ╱45╱E╱ // 0x1125 @0x6
0x111f…112e at0007 = ╱53╱S╱ // 0x1126 @0x7
0x111f…112e at0008 = ╱55╱U╱ // 0x1127 @0x8
0x111f…112e at0009 = ╱4c╱L╱ // 0x1128 @0x9
0x111f…112e at000a = ╱54╱T╱ // 0x1129 @0xa
0x111f…112e at000b = ╱dc╱=╱ // 0x112a @0xb
0x111f…112e at000c = ╱42╱B╱ // 0x112b @0xc
0x111f…112e at000d = ╱b6╱ THEN ╱ // 0x112c @0xd
0x111f…112e at000e = EOL // 0x112d @0xe
0x111f…112e }
0x112e…1142 9e99 2200 QUQ=FØRST+LINIE
0x112e…1142 LineComalBin {
0x112e…1142 ptr = 0x9e99 // 0x112e @0x0
0x112e…1142 lno = 0x0898 // 0x1130 @0x2
0x112e…1142 at0004 = ╱51╱Q╱ // 0x1132 @0x4
0x112e…1142 at0005 = ╱55╱U╱ // 0x1133 @0x5
0x112e…1142 at0006 = ╱51╱Q╱ // 0x1134 @0x6
0x112e…1142 at0007 = ╱dc╱=╱ // 0x1135 @0x7
0x112e…1142 at0008 = ╱46╱F╱ // 0x1136 @0x8
0x112e…1142 at0009 = ╱5c╱Ø╱ // 0x1137 @0x9
0x112e…1142 at000a = ╱52╱R╱ // 0x1138 @0xa
0x112e…1142 at000b = ╱53╱S╱ // 0x1139 @0xb
0x112e…1142 at000c = ╱54╱T╱ // 0x113a @0xc
0x112e…1142 at000d = ╱e2╱+╱ // 0x113b @0xd
0x112e…1142 at000e = ╱4c╱L╱ // 0x113c @0xe
0x112e…1142 at000f = ╱49╱I╱ // 0x113d @0xf
0x112e…1142 at0010 = ╱4e╱N╱ // 0x113e @0x10
0x112e…1142 at0011 = ╱49╱I╱ // 0x113f @0x11
0x112e…1142 at0012 = ╱45╱E╱ // 0x1140 @0x12
0x112e…1142 at0013 = EOL // 0x1141 @0x13
0x112e…1142 }
0x1142…1151 9ea8 2210 WHILE QUQ<SIDST
0x1142…1151 LineComalBin {
0x1142…1151 ptr = 0x9ea8 // 0x1142 @0x0
0x1142…1151 lno = 0x08a2 // 0x1144 @0x2
0x1142…1151 at0004 = ╱93╱ WHILE ╱ // 0x1146 @0x4
0x1142…1151 at0005 = ╱51╱Q╱ // 0x1147 @0x5
0x1142…1151 at0006 = ╱55╱U╱ // 0x1148 @0x6
0x1142…1151 at0007 = ╱51╱Q╱ // 0x1149 @0x7
0x1142…1151 at0008 = ╱dd╱<╱ // 0x114a @0x8
0x1142…1151 at0009 = ╱53╱S╱ // 0x114b @0x9
0x1142…1151 at000a = ╱49╱I╱ // 0x114c @0xa
0x1142…1151 at000b = ╱44╱D╱ // 0x114d @0xb
0x1142…1151 at000c = ╱53╱S╱ // 0x114e @0xc
0x1142…1151 at000d = ╱54╱T╱ // 0x114f @0xd
0x1142…1151 at000e = EOL // 0x1150 @0xe
0x1142…1151 }
0x1151…116d 9ec4 2220 SIDE$(QUQ)=SIDE$(QUQ+E)
0x1151…116d LineComalBin {
0x1151…116d ptr = 0x9ec4 // 0x1151 @0x0
0x1151…116d lno = 0x08ac // 0x1153 @0x2
0x1151…116d at0004 = ╱53╱S╱ // 0x1155 @0x4
0x1151…116d at0005 = ╱49╱I╱ // 0x1156 @0x5
0x1151…116d at0006 = ╱44╱D╱ // 0x1157 @0x6
0x1151…116d at0007 = ╱45╱E╱ // 0x1158 @0x7
0x1151…116d at0008 = ╱ef╱$╱ // 0x1159 @0x8
0x1151…116d at0009 = ╱ed╱(╱ // 0x115a @0x9
0x1151…116d at000a = ╱51╱Q╱ // 0x115b @0xa
0x1151…116d at000b = ╱55╱U╱ // 0x115c @0xb
0x1151…116d at000c = ╱51╱Q╱ // 0x115d @0xc
0x1151…116d at000d = ╱ee╱)╱ // 0x115e @0xd
0x1151…116d at000e = ╱dc╱=╱ // 0x115f @0xe
0x1151…116d at000f = ╱53╱S╱ // 0x1160 @0xf
0x1151…116d at0010 = ╱49╱I╱ // 0x1161 @0x10
0x1151…116d at0011 = ╱44╱D╱ // 0x1162 @0x11
0x1151…116d at0012 = ╱45╱E╱ // 0x1163 @0x12
0x1151…116d at0013 = ╱ef╱$╱ // 0x1164 @0x13
0x1151…116d at0014 = ╱ed╱(╱ // 0x1165 @0x14
0x1151…116d at0015 = ╱51╱Q╱ // 0x1166 @0x15
0x1151…116d at0016 = ╱55╱U╱ // 0x1167 @0x16
0x1151…116d at0017 = ╱51╱Q╱ // 0x1168 @0x17
0x1151…116d at0018 = ╱e2╱+╱ // 0x1169 @0x18
0x1151…116d at0019 = ╱45╱E╱ // 0x116a @0x19
0x1151…116d at001a = ╱ee╱)╱ // 0x116b @0x1a
0x1151…116d at001b = EOL // 0x116c @0x1b
0x1151…116d }
0x116d…117b 9ed2 2230 QUQ=QUQ+E
0x116d…117b LineComalBin {
0x116d…117b ptr = 0x9ed2 // 0x116d @0x0
0x116d…117b lno = 0x08b6 // 0x116f @0x2
0x116d…117b at0004 = ╱51╱Q╱ // 0x1171 @0x4
0x116d…117b at0005 = ╱55╱U╱ // 0x1172 @0x5
0x116d…117b at0006 = ╱51╱Q╱ // 0x1173 @0x6
0x116d…117b at0007 = ╱dc╱=╱ // 0x1174 @0x7
0x116d…117b at0008 = ╱51╱Q╱ // 0x1175 @0x8
0x116d…117b at0009 = ╱55╱U╱ // 0x1176 @0x9
0x116d…117b at000a = ╱51╱Q╱ // 0x1177 @0xa
0x116d…117b at000b = ╱e2╱+╱ // 0x1178 @0xb
0x116d…117b at000c = ╱45╱E╱ // 0x1179 @0xc
0x116d…117b at000d = EOL // 0x117a @0xd
0x116d…117b }
0x117b…1181 9ed8 2240 ENDWHILE
0x117b…1181 LineComalBin {
0x117b…1181 ptr = 0x9ed8 // 0x117b @0x0
0x117b…1181 lno = 0x08c0 // 0x117d @0x2
0x117b…1181 at0004 = ╱94╱ ENDWHILE ╱ // 0x117f @0x4
0x117b…1181 at0005 = EOL // 0x1180 @0x5
0x117b…1181 }
0x1181…1193 9eea 2250 SIDST=SIDST-E
0x1181…1193 LineComalBin {
0x1181…1193 ptr = 0x9eea // 0x1181 @0x0
0x1181…1193 lno = 0x08ca // 0x1183 @0x2
0x1181…1193 at0004 = ╱53╱S╱ // 0x1185 @0x4
0x1181…1193 at0005 = ╱49╱I╱ // 0x1186 @0x5
0x1181…1193 at0006 = ╱44╱D╱ // 0x1187 @0x6
0x1181…1193 at0007 = ╱53╱S╱ // 0x1188 @0x7
0x1181…1193 at0008 = ╱54╱T╱ // 0x1189 @0x8
0x1181…1193 at0009 = ╱dc╱=╱ // 0x118a @0x9
0x1181…1193 at000a = ╱53╱S╱ // 0x118b @0xa
0x1181…1193 at000b = ╱49╱I╱ // 0x118c @0xb
0x1181…1193 at000c = ╱44╱D╱ // 0x118d @0xc
0x1181…1193 at000d = ╱53╱S╱ // 0x118e @0xd
0x1181…1193 at000e = ╱54╱T╱ // 0x118f @0xe
0x1181…1193 at000f = ╱e3╱-╱ // 0x1190 @0xf
0x1181…1193 at0010 = ╱45╱E╱ // 0x1191 @0x10
0x1181…1193 at0011 = EOL // 0x1192 @0x11
0x1181…1193 }
0x1193…119f 9ef6 2260 AT=AT-E
0x1193…119f LineComalBin {
0x1193…119f ptr = 0x9ef6 // 0x1193 @0x0
0x1193…119f lno = 0x08d4 // 0x1195 @0x2
0x1193…119f at0004 = ╱41╱A╱ // 0x1197 @0x4
0x1193…119f at0005 = ╱54╱T╱ // 0x1198 @0x5
0x1193…119f at0006 = ╱dc╱=╱ // 0x1199 @0x6
0x1193…119f at0007 = ╱41╱A╱ // 0x119a @0x7
0x1193…119f at0008 = ╱54╱T╱ // 0x119b @0x8
0x1193…119f at0009 = ╱e3╱-╱ // 0x119c @0x9
0x1193…119f at000a = ╱45╱E╱ // 0x119d @0xa
0x1193…119f at000b = EOL // 0x119e @0xb
0x1193…119f }
0x119f…11b4 9f0b 2270 LAST=SIDST-FØRST
0x119f…11b4 LineComalBin {
0x119f…11b4 ptr = 0x9f0b // 0x119f @0x0
0x119f…11b4 lno = 0x08de // 0x11a1 @0x2
0x119f…11b4 at0004 = ╱4c╱L╱ // 0x11a3 @0x4
0x119f…11b4 at0005 = ╱41╱A╱ // 0x11a4 @0x5
0x119f…11b4 at0006 = ╱53╱S╱ // 0x11a5 @0x6
0x119f…11b4 at0007 = ╱54╱T╱ // 0x11a6 @0x7
0x119f…11b4 at0008 = ╱dc╱=╱ // 0x11a7 @0x8
0x119f…11b4 at0009 = ╱53╱S╱ // 0x11a8 @0x9
0x119f…11b4 at000a = ╱49╱I╱ // 0x11a9 @0xa
0x119f…11b4 at000b = ╱44╱D╱ // 0x11aa @0xb
0x119f…11b4 at000c = ╱53╱S╱ // 0x11ab @0xc
0x119f…11b4 at000d = ╱54╱T╱ // 0x11ac @0xd
0x119f…11b4 at000e = ╱e3╱-╱ // 0x11ad @0xe
0x119f…11b4 at000f = ╱46╱F╱ // 0x11ae @0xf
0x119f…11b4 at0010 = ╱5c╱Ø╱ // 0x11af @0x10
0x119f…11b4 at0011 = ╱52╱R╱ // 0x11b0 @0x11
0x119f…11b4 at0012 = ╱53╱S╱ // 0x11b1 @0x12
0x119f…11b4 at0013 = ╱54╱T╱ // 0x11b2 @0x13
0x119f…11b4 at0014 = EOL // 0x11b3 @0x14
0x119f…11b4 }
0x11b4…11d3 9f2a 2280 IF LAST>18 THEN LAST=18
0x11b4…11d3 LineComalBin {
0x11b4…11d3 ptr = 0x9f2a // 0x11b4 @0x0
0x11b4…11d3 lno = 0x08e8 // 0x11b6 @0x2
0x11b4…11d3 at0004 = ╱82╱ IF ╱ // 0x11b8 @0x4
0x11b4…11d3 at0005 = ╱4c╱L╱ // 0x11b9 @0x5
0x11b4…11d3 at0006 = ╱41╱A╱ // 0x11ba @0x6
0x11b4…11d3 at0007 = ╱53╱S╱ // 0x11bb @0x7
0x11b4…11d3 at0008 = ╱54╱T╱ // 0x11bc @0x8
0x11b4…11d3 at0009 = ╱de╱>╱ // 0x11bd @0x9
0x11b4…11d3 at000a = ╱31╱1╱ // 0x11be @0xa
0x11b4…11d3 at000b = ╱38╱8╱ // 0x11bf @0xb
0x11b4…11d3 at000c = ╱fe00009005╱ // 0x11c0 @0xc
0x11b4…11d3 at0011 = ╱b6╱ THEN ╱ // 0x11c5 @0x11
0x11b4…11d3 at0012 = ╱4c╱L╱ // 0x11c6 @0x12
0x11b4…11d3 at0013 = ╱41╱A╱ // 0x11c7 @0x13
0x11b4…11d3 at0014 = ╱53╱S╱ // 0x11c8 @0x14
0x11b4…11d3 at0015 = ╱54╱T╱ // 0x11c9 @0x15
0x11b4…11d3 at0016 = ╱dc╱=╱ // 0x11ca @0x16
0x11b4…11d3 at0017 = ╱31╱1╱ // 0x11cb @0x17
0x11b4…11d3 at0018 = ╱38╱8╱ // 0x11cc @0x18
0x11b4…11d3 at0019 = ╱fe00009005╱ // 0x11cd @0x19
0x11b4…11d3 at001e = EOL // 0x11d2 @0x1e
0x11b4…11d3 }
0x11d3…1215 9f6c 2290 IF FØRST+LINIE<=SIDST AND SIDE$(FØRST+LINIE,E,4)="1 39" THEN GO TO 2200
0x11d3…1215 LineComalBin {
0x11d3…1215 ptr = 0x9f6c // 0x11d3 @0x0
0x11d3…1215 lno = 0x08f2 // 0x11d5 @0x2
0x11d3…1215 at0004 = ╱82╱ IF ╱ // 0x11d7 @0x4
0x11d3…1215 at0005 = ╱46╱F╱ // 0x11d8 @0x5
0x11d3…1215 at0006 = ╱5c╱Ø╱ // 0x11d9 @0x6
0x11d3…1215 at0007 = ╱52╱R╱ // 0x11da @0x7
0x11d3…1215 at0008 = ╱53╱S╱ // 0x11db @0x8
0x11d3…1215 at0009 = ╱54╱T╱ // 0x11dc @0x9
0x11d3…1215 at000a = ╱e2╱+╱ // 0x11dd @0xa
0x11d3…1215 at000b = ╱4c╱L╱ // 0x11de @0xb
0x11d3…1215 at000c = ╱49╱I╱ // 0x11df @0xc
0x11d3…1215 at000d = ╱4e╱N╱ // 0x11e0 @0xd
0x11d3…1215 at000e = ╱49╱I╱ // 0x11e1 @0xe
0x11d3…1215 at000f = ╱45╱E╱ // 0x11e2 @0xf
0x11d3…1215 at0010 = ╱df╱<=╱ // 0x11e3 @0x10
0x11d3…1215 at0011 = ╱53╱S╱ // 0x11e4 @0x11
0x11d3…1215 at0012 = ╱49╱I╱ // 0x11e5 @0x12
0x11d3…1215 at0013 = ╱44╱D╱ // 0x11e6 @0x13
0x11d3…1215 at0014 = ╱53╱S╱ // 0x11e7 @0x14
0x11d3…1215 at0015 = ╱54╱T╱ // 0x11e8 @0x15
0x11d3…1215 at0016 = ╱da╱ AND ╱ // 0x11e9 @0x16
0x11d3…1215 at0017 = ╱53╱S╱ // 0x11ea @0x17
0x11d3…1215 at0018 = ╱49╱I╱ // 0x11eb @0x18
0x11d3…1215 at0019 = ╱44╱D╱ // 0x11ec @0x19
0x11d3…1215 at001a = ╱45╱E╱ // 0x11ed @0x1a
0x11d3…1215 at001b = ╱ef╱$╱ // 0x11ee @0x1b
0x11d3…1215 at001c = ╱ed╱(╱ // 0x11ef @0x1c
0x11d3…1215 at001d = ╱46╱F╱ // 0x11f0 @0x1d
0x11d3…1215 at001e = ╱5c╱Ø╱ // 0x11f1 @0x1e
0x11d3…1215 at001f = ╱52╱R╱ // 0x11f2 @0x1f
0x11d3…1215 at0020 = ╱53╱S╱ // 0x11f3 @0x20
0x11d3…1215 at0021 = ╱54╱T╱ // 0x11f4 @0x21
0x11d3…1215 at0022 = ╱e2╱+╱ // 0x11f5 @0x22
0x11d3…1215 at0023 = ╱4c╱L╱ // 0x11f6 @0x23
0x11d3…1215 at0024 = ╱49╱I╱ // 0x11f7 @0x24
0x11d3…1215 at0025 = ╱4e╱N╱ // 0x11f8 @0x25
0x11d3…1215 at0026 = ╱49╱I╱ // 0x11f9 @0x26
0x11d3…1215 at0027 = ╱45╱E╱ // 0x11fa @0x27
0x11d3…1215 at0028 = ╱ec╱,╱ // 0x11fb @0x28
0x11d3…1215 at0029 = ╱45╱E╱ // 0x11fc @0x29
0x11d3…1215 at002a = ╱ec╱,╱ // 0x11fd @0x2a
0x11d3…1215 at002b = ╱34╱4╱ // 0x11fe @0x2b
0x11d3…1215 at002c = ╱fe00008003╱ // 0x11ff @0x2c
0x11d3…1215 at0031 = ╱ee╱)╱ // 0x1204 @0x31
0x11d3…1215 at0032 = ╱dc╱=╱ // 0x1205 @0x32
0x11d3…1215 at0033 = ╱22╱"╱ // 0x1206 @0x33
0x11d3…1215 at0034 = ╱31╱1╱ // 0x1207 @0x34
0x11d3…1215 at0035 = ╱20╱…╱ // 0x1208 @0x35
0x11d3…1215 at0036 = ╱33╱3╱ // 0x1209 @0x36
0x11d3…1215 at0037 = ╱39╱9╱ // 0x120a @0x37
0x11d3…1215 at0038 = ╱22╱"╱ // 0x120b @0x38
0x11d3…1215 at0039 = ╱b6╱ THEN ╱ // 0x120c @0x39
0x11d3…1215 at003a = ╱81980800000000╱ // 0x120d @0x3a
0x11d3…1215 at0041 = EOL // 0x1214 @0x41
0x11d3…1215 }
0x1215…1223 9f7a 2300 EXEC SKRIVSID
0x1215…1223 LineComalBin {
0x1215…1223 ptr = 0x9f7a // 0x1215 @0x0
0x1215…1223 lno = 0x08fc // 0x1217 @0x2
0x1215…1223 at0004 = ╱9d╱ EXEC ╱ // 0x1219 @0x4
0x1215…1223 at0005 = ╱53╱S╱ // 0x121a @0x5
0x1215…1223 at0006 = ╱4b╱K╱ // 0x121b @0x6
0x1215…1223 at0007 = ╱52╱R╱ // 0x121c @0x7
0x1215…1223 at0008 = ╱49╱I╱ // 0x121d @0x8
0x1215…1223 at0009 = ╱56╱V╱ // 0x121e @0x9
0x1215…1223 at000a = ╱53╱S╱ // 0x121f @0xa
0x1215…1223 at000b = ╱49╱I╱ // 0x1220 @0xb
0x1215…1223 at000c = ╱44╱D╱ // 0x1221 @0xc
0x1215…1223 at000d = EOL // 0x1222 @0xd
0x1215…1223 }
0x1223…1229 9f80 2310 ELSE
0x1223…1229 LineComalBin {
0x1223…1229 ptr = 0x9f80 // 0x1223 @0x0
0x1223…1229 lno = 0x0906 // 0x1225 @0x2
0x1223…1229 at0004 = ╱9a╱ ELSE ╱ // 0x1227 @0x4
0x1223…1229 at0005 = EOL // 0x1228 @0x5
0x1223…1229 }
0x1229…123b 9f92 2320 EXEC INDART(LANR)
0x1229…123b LineComalBin {
0x1229…123b ptr = 0x9f92 // 0x1229 @0x0
0x1229…123b lno = 0x0910 // 0x122b @0x2
0x1229…123b at0004 = ╱9d╱ EXEC ╱ // 0x122d @0x4
0x1229…123b at0005 = ╱49╱I╱ // 0x122e @0x5
0x1229…123b at0006 = ╱4e╱N╱ // 0x122f @0x6
0x1229…123b at0007 = ╱44╱D╱ // 0x1230 @0x7
0x1229…123b at0008 = ╱41╱A╱ // 0x1231 @0x8
0x1229…123b at0009 = ╱52╱R╱ // 0x1232 @0x9
0x1229…123b at000a = ╱54╱T╱ // 0x1233 @0xa
0x1229…123b at000b = ╱ed╱(╱ // 0x1234 @0xb
0x1229…123b at000c = ╱4c╱L╱ // 0x1235 @0xc
0x1229…123b at000d = ╱41╱A╱ // 0x1236 @0xd
0x1229…123b at000e = ╱4e╱N╱ // 0x1237 @0xe
0x1229…123b at000f = ╱52╱R╱ // 0x1238 @0xf
0x1229…123b at0010 = ╱ee╱)╱ // 0x1239 @0x10
0x1229…123b at0011 = EOL // 0x123a @0x11
0x1229…123b }
0x123b…1263 9fba 2330 IF POST6$(E)="1" AND POST6$(29)=" " THEN
0x123b…1263 LineComalBin {
0x123b…1263 ptr = 0x9fba // 0x123b @0x0
0x123b…1263 lno = 0x091a // 0x123d @0x2
0x123b…1263 at0004 = ╱9c╱ IF ╱ // 0x123f @0x4
0x123b…1263 at0005 = ╱50╱P╱ // 0x1240 @0x5
0x123b…1263 at0006 = ╱4f╱O╱ // 0x1241 @0x6
0x123b…1263 at0007 = ╱53╱S╱ // 0x1242 @0x7
0x123b…1263 at0008 = ╱54╱T╱ // 0x1243 @0x8
0x123b…1263 at0009 = ╱36╱6╱ // 0x1244 @0x9
0x123b…1263 at000a = ╱ef╱$╱ // 0x1245 @0xa
0x123b…1263 at000b = ╱ed╱(╱ // 0x1246 @0xb
0x123b…1263 at000c = ╱45╱E╱ // 0x1247 @0xc
0x123b…1263 at000d = ╱ee╱)╱ // 0x1248 @0xd
0x123b…1263 at000e = ╱dc╱=╱ // 0x1249 @0xe
0x123b…1263 at000f = ╱22╱"╱ // 0x124a @0xf
0x123b…1263 at0010 = ╱31╱1╱ // 0x124b @0x10
0x123b…1263 at0011 = ╱22╱"╱ // 0x124c @0x11
0x123b…1263 at0012 = ╱da╱ AND ╱ // 0x124d @0x12
0x123b…1263 at0013 = ╱50╱P╱ // 0x124e @0x13
0x123b…1263 at0014 = ╱4f╱O╱ // 0x124f @0x14
0x123b…1263 at0015 = ╱53╱S╱ // 0x1250 @0x15
0x123b…1263 at0016 = ╱54╱T╱ // 0x1251 @0x16
0x123b…1263 at0017 = ╱36╱6╱ // 0x1252 @0x17
0x123b…1263 at0018 = ╱ef╱$╱ // 0x1253 @0x18
0x123b…1263 at0019 = ╱ed╱(╱ // 0x1254 @0x19
0x123b…1263 at001a = ╱32╱2╱ // 0x1255 @0x1a
0x123b…1263 at001b = ╱39╱9╱ // 0x1256 @0x1b
0x123b…1263 at001c = ╱fe0000e805╱ // 0x1257 @0x1c
0x123b…1263 at0021 = ╱ee╱)╱ // 0x125c @0x21
0x123b…1263 at0022 = ╱dc╱=╱ // 0x125d @0x22
0x123b…1263 at0023 = ╱22╱"╱ // 0x125e @0x23
0x123b…1263 at0024 = ╱20╱…╱ // 0x125f @0x24
0x123b…1263 at0025 = ╱22╱"╱ // 0x1260 @0x25
0x123b…1263 at0026 = ╱b6╱ THEN ╱ // 0x1261 @0x26
0x123b…1263 at0027 = EOL // 0x1262 @0x27
0x123b…1263 }
0x1263…1270 9fc7 2340 RESULT=B
0x1263…1270 LineComalBin {
0x1263…1270 ptr = 0x9fc7 // 0x1263 @0x0
0x1263…1270 lno = 0x0924 // 0x1265 @0x2
0x1263…1270 at0004 = ╱52╱R╱ // 0x1267 @0x4
0x1263…1270 at0005 = ╱45╱E╱ // 0x1268 @0x5
0x1263…1270 at0006 = ╱53╱S╱ // 0x1269 @0x6
0x1263…1270 at0007 = ╱55╱U╱ // 0x126a @0x7
0x1263…1270 at0008 = ╱4c╱L╱ // 0x126b @0x8
0x1263…1270 at0009 = ╱54╱T╱ // 0x126c @0x9
0x1263…1270 at000a = ╱dc╱=╱ // 0x126d @0xa
0x1263…1270 at000b = ╱42╱B╱ // 0x126e @0xb
0x1263…1270 at000c = EOL // 0x126f @0xc
0x1263…1270 }
0x1270…12c5 a01c 2350 SIDE$(FØRST+LINIE,E:4)="1 "+CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48)
0x1270…12c5 LineComalBin {
0x1270…12c5 ptr = 0xa01c // 0x1270 @0x0
0x1270…12c5 lno = 0x092e // 0x1272 @0x2
0x1270…12c5 at0004 = ╱53╱S╱ // 0x1274 @0x4
0x1270…12c5 at0005 = ╱49╱I╱ // 0x1275 @0x5
0x1270…12c5 at0006 = ╱44╱D╱ // 0x1276 @0x6
0x1270…12c5 at0007 = ╱45╱E╱ // 0x1277 @0x7
0x1270…12c5 at0008 = ╱ef╱$╱ // 0x1278 @0x8
0x1270…12c5 at0009 = ╱ed╱(╱ // 0x1279 @0x9
0x1270…12c5 at000a = ╱46╱F╱ // 0x127a @0xa
0x1270…12c5 at000b = ╱5c╱Ø╱ // 0x127b @0xb
0x1270…12c5 at000c = ╱52╱R╱ // 0x127c @0xc
0x1270…12c5 at000d = ╱53╱S╱ // 0x127d @0xd
0x1270…12c5 at000e = ╱54╱T╱ // 0x127e @0xe
0x1270…12c5 at000f = ╱e2╱+╱ // 0x127f @0xf
0x1270…12c5 at0010 = ╱4c╱L╱ // 0x1280 @0x10
0x1270…12c5 at0011 = ╱49╱I╱ // 0x1281 @0x11
0x1270…12c5 at0012 = ╱4e╱N╱ // 0x1282 @0x12
0x1270…12c5 at0013 = ╱49╱I╱ // 0x1283 @0x13
0x1270…12c5 at0014 = ╱45╱E╱ // 0x1284 @0x14
0x1270…12c5 at0015 = ╱ec╱,╱ // 0x1285 @0x15
0x1270…12c5 at0016 = ╱45╱E╱ // 0x1286 @0x16
0x1270…12c5 at0017 = ╱f0╱:╱ // 0x1287 @0x17
0x1270…12c5 at0018 = ╱34╱4╱ // 0x1288 @0x18
0x1270…12c5 at0019 = ╱fe00008003╱ // 0x1289 @0x19
0x1270…12c5 at001e = ╱ee╱)╱ // 0x128e @0x1e
0x1270…12c5 at001f = ╱dc╱=╱ // 0x128f @0x1f
0x1270…12c5 at0020 = ╱22╱"╱ // 0x1290 @0x20
0x1270…12c5 at0021 = ╱31╱1╱ // 0x1291 @0x21
0x1270…12c5 at0022 = ╱20╱…╱ // 0x1292 @0x22
0x1270…12c5 at0023 = ╱22╱"╱ // 0x1293 @0x23
0x1270…12c5 at0024 = ╱f1╱+╱ // 0x1294 @0x24
0x1270…12c5 at0025 = ╱cf╱CHR╱ // 0x1295 @0x25
0x1270…12c5 at0026 = ╱ed╱(╱ // 0x1296 @0x26
0x1270…12c5 at0027 = ╱4c╱L╱ // 0x1297 @0x27
0x1270…12c5 at0028 = ╱41╱A╱ // 0x1298 @0x28
0x1270…12c5 at0029 = ╱4e╱N╱ // 0x1299 @0x29
0x1270…12c5 at002a = ╱52╱R╱ // 0x129a @0x2a
0x1270…12c5 at002b = ╱e7╱ DIV ╱ // 0x129b @0x2b
0x1270…12c5 at002c = ╱31╱1╱ // 0x129c @0x2c
0x1270…12c5 at002d = ╱30╱0╱ // 0x129d @0x2d
0x1270…12c5 at002e = ╱fe0000a004╱ // 0x129e @0x2e
0x1270…12c5 at0033 = ╱e2╱+╱ // 0x12a3 @0x33
0x1270…12c5 at0034 = ╱34╱4╱ // 0x12a4 @0x34
0x1270…12c5 at0035 = ╱38╱8╱ // 0x12a5 @0x35
0x1270…12c5 at0036 = ╱fe0000c006╱ // 0x12a6 @0x36
0x1270…12c5 at003b = ╱ee╱)╱ // 0x12ab @0x3b
0x1270…12c5 at003c = ╱f1╱+╱ // 0x12ac @0x3c
0x1270…12c5 at003d = ╱cf╱CHR╱ // 0x12ad @0x3d
0x1270…12c5 at003e = ╱ed╱(╱ // 0x12ae @0x3e
0x1270…12c5 at003f = ╱4c╱L╱ // 0x12af @0x3f
0x1270…12c5 at0040 = ╱41╱A╱ // 0x12b0 @0x40
0x1270…12c5 at0041 = ╱4e╱N╱ // 0x12b1 @0x41
0x1270…12c5 at0042 = ╱52╱R╱ // 0x12b2 @0x42
0x1270…12c5 at0043 = ╱e8╱ MOD ╱ // 0x12b3 @0x43
0x1270…12c5 at0044 = ╱31╱1╱ // 0x12b4 @0x44
0x1270…12c5 at0045 = ╱30╱0╱ // 0x12b5 @0x45
0x1270…12c5 at0046 = ╱fe0000a004╱ // 0x12b6 @0x46
0x1270…12c5 at004b = ╱e2╱+╱ // 0x12bb @0x4b
0x1270…12c5 at004c = ╱34╱4╱ // 0x12bc @0x4c
0x1270…12c5 at004d = ╱38╱8╱ // 0x12bd @0x4d
0x1270…12c5 at004e = ╱fe0000c006╱ // 0x12be @0x4e
0x1270…12c5 at0053 = ╱ee╱)╱ // 0x12c3 @0x53
0x1270…12c5 at0054 = EOL // 0x12c4 @0x54
0x1270…12c5 }
0x12c5…12cb a022 2360 ENDIF
0x12c5…12cb LineComalBin {
0x12c5…12cb ptr = 0xa022 // 0x12c5 @0x0
0x12c5…12cb lno = 0x0938 // 0x12c7 @0x2
0x12c5…12cb at0004 = ╱9b╱ ENDIF ╱ // 0x12c9 @0x4
0x12c5…12cb at0005 = EOL // 0x12ca @0x5
0x12c5…12cb }
0x12cb…12d1 a028 2370 ENDIF
0x12cb…12d1 LineComalBin {
0x12cb…12d1 ptr = 0xa028 // 0x12cb @0x0
0x12cb…12d1 lno = 0x0942 // 0x12cd @0x2
0x12cb…12d1 at0004 = ╱9b╱ ENDIF ╱ // 0x12cf @0x4
0x12cb…12d1 at0005 = EOL // 0x12d0 @0x5
0x12cb…12d1 }
0x12d1…12df a036 2380 UNTIL RESULT=B
0x12d1…12df LineComalBin {
0x12d1…12df ptr = 0xa036 // 0x12d1 @0x0
0x12d1…12df lno = 0x094c // 0x12d3 @0x2
0x12d1…12df at0004 = ╱98╱ UNTIL ╱ // 0x12d5 @0x4
0x12d1…12df at0005 = ╱52╱R╱ // 0x12d6 @0x5
0x12d1…12df at0006 = ╱45╱E╱ // 0x12d7 @0x6
0x12d1…12df at0007 = ╱53╱S╱ // 0x12d8 @0x7
0x12d1…12df at0008 = ╱55╱U╱ // 0x12d9 @0x8
0x12d1…12df at0009 = ╱4c╱L╱ // 0x12da @0x9
0x12d1…12df at000a = ╱54╱T╱ // 0x12db @0xa
0x12d1…12df at000b = ╱dc╱=╱ // 0x12dc @0xb
0x12d1…12df at000c = ╱42╱B╱ // 0x12dd @0xc
0x12d1…12df at000d = EOL // 0x12de @0xd
0x12d1…12df }
0x12df…12ec a043 2390 IF LANR>B THEN
0x12df…12ec LineComalBin {
0x12df…12ec ptr = 0xa043 // 0x12df @0x0
0x12df…12ec lno = 0x0956 // 0x12e1 @0x2
0x12df…12ec at0004 = ╱9c╱ IF ╱ // 0x12e3 @0x4
0x12df…12ec at0005 = ╱4c╱L╱ // 0x12e4 @0x5
0x12df…12ec at0006 = ╱41╱A╱ // 0x12e5 @0x6
0x12df…12ec at0007 = ╱4e╱N╱ // 0x12e6 @0x7
0x12df…12ec at0008 = ╱52╱R╱ // 0x12e7 @0x8
0x12df…12ec at0009 = ╱de╱>╱ // 0x12e8 @0x9
0x12df…12ec at000a = ╱42╱B╱ // 0x12e9 @0xa
0x12df…12ec at000b = ╱b6╱ THEN ╱ // 0x12ea @0xb
0x12df…12ec at000c = EOL // 0x12eb @0xc
0x12df…12ec }
0x12ec…12ff a056 2400 LINE$=" "
0x12ec…12ff LineComalBin {
0x12ec…12ff ptr = 0xa056 // 0x12ec @0x0
0x12ec…12ff lno = 0x0960 // 0x12ee @0x2
0x12ec…12ff at0004 = ╱4c╱L╱ // 0x12f0 @0x4
0x12ec…12ff at0005 = ╱49╱I╱ // 0x12f1 @0x5
0x12ec…12ff at0006 = ╱4e╱N╱ // 0x12f2 @0x6
0x12ec…12ff at0007 = ╱45╱E╱ // 0x12f3 @0x7
0x12ec…12ff at0008 = ╱ef╱$╱ // 0x12f4 @0x8
0x12ec…12ff at0009 = ╱dc╱=╱ // 0x12f5 @0x9
0x12ec…12ff at000a = ╱22╱"╱ // 0x12f6 @0xa
0x12ec…12ff at000b = ╱20╱…╱ // 0x12f7 @0xb
0x12ec…12ff at000c = ╱20╱…╱ // 0x12f8 @0xc
0x12ec…12ff at000d = ╱20╱…╱ // 0x12f9 @0xd
0x12ec…12ff at000e = ╱20╱…╱ // 0x12fa @0xe
0x12ec…12ff at000f = ╱20╱…╱ // 0x12fb @0xf
0x12ec…12ff at0010 = ╱20╱…╱ // 0x12fc @0x10
0x12ec…12ff at0011 = ╱22╱"╱ // 0x12fd @0x11
0x12ec…12ff at0012 = EOL // 0x12fe @0x12
0x12ec…12ff }
0x12ff…131f a076 2410 IF LANR<>73 AND LANR<>75 THEN
0x12ff…131f LineComalBin {
0x12ff…131f ptr = 0xa076 // 0x12ff @0x0
0x12ff…131f lno = 0x096a // 0x1301 @0x2
0x12ff…131f at0004 = ╱9c╱ IF ╱ // 0x1303 @0x4
0x12ff…131f at0005 = ╱4c╱L╱ // 0x1304 @0x5
0x12ff…131f at0006 = ╱41╱A╱ // 0x1305 @0x6
0x12ff…131f at0007 = ╱4e╱N╱ // 0x1306 @0x7
0x12ff…131f at0008 = ╱52╱R╱ // 0x1307 @0x8
0x12ff…131f at0009 = ╱e1╱<>╱ // 0x1308 @0x9
0x12ff…131f at000a = ╱37╱7╱ // 0x1309 @0xa
0x12ff…131f at000b = ╱33╱3╱ // 0x130a @0xb
0x12ff…131f at000c = ╱fe00009207╱ // 0x130b @0xc
0x12ff…131f at0011 = ╱da╱ AND ╱ // 0x1310 @0x11
0x12ff…131f at0012 = ╱4c╱L╱ // 0x1311 @0x12
0x12ff…131f at0013 = ╱41╱A╱ // 0x1312 @0x13
0x12ff…131f at0014 = ╱4e╱N╱ // 0x1313 @0x14
0x12ff…131f at0015 = ╱52╱R╱ // 0x1314 @0x15
0x12ff…131f at0016 = ╱e1╱<>╱ // 0x1315 @0x16
0x12ff…131f at0017 = ╱37╱7╱ // 0x1316 @0x17
0x12ff…131f at0018 = ╱35╱5╱ // 0x1317 @0x18
0x12ff…131f at0019 = ╱fe00009607╱ // 0x1318 @0x19
0x12ff…131f at001e = ╱b6╱ THEN ╱ // 0x131d @0x1e
0x12ff…131f at001f = EOL // 0x131e @0x1f
0x12ff…131f }
0x131f…1325 a07c 2420 REPEAT
0x131f…1325 LineComalBin {
0x131f…1325 ptr = 0xa07c // 0x131f @0x0
0x131f…1325 lno = 0x0974 // 0x1321 @0x2
0x131f…1325 at0004 = ╱97╱ REPEAT ╱ // 0x1323 @0x4
0x131f…1325 at0005 = EOL // 0x1324 @0x5
0x131f…1325 }
0x1325…133a a091 2430 CURSOR 17,LINIE+V
0x1325…133a LineComalBin {
0x1325…133a ptr = 0xa091 // 0x1325 @0x0
0x1325…133a lno = 0x097e // 0x1327 @0x2
0x1325…133a at0004 = ╱a1╱ CURSOR ╱ // 0x1329 @0x4
0x1325…133a at0005 = ╱31╱1╱ // 0x132a @0x5
0x1325…133a at0006 = ╱37╱7╱ // 0x132b @0x6
0x1325…133a at0007 = ╱fe00008805╱ // 0x132c @0x7
0x1325…133a at000c = ╱ec╱,╱ // 0x1331 @0xc
0x1325…133a at000d = ╱4c╱L╱ // 0x1332 @0xd
0x1325…133a at000e = ╱49╱I╱ // 0x1333 @0xe
0x1325…133a at000f = ╱4e╱N╱ // 0x1334 @0xf
0x1325…133a at0010 = ╱49╱I╱ // 0x1335 @0x10
0x1325…133a at0011 = ╱45╱E╱ // 0x1336 @0x11
0x1325…133a at0012 = ╱e2╱+╱ // 0x1337 @0x12
0x1325…133a at0013 = ╱56╱V╱ // 0x1338 @0x13
0x1325…133a at0014 = EOL // 0x1339 @0x14
0x1325…133a }
0x133a…1365 a0bc 2440 LINE$=SIDE$(FØRST+LINIE,5:6)
0x133a…1365 LineComalBin {
0x133a…1365 ptr = 0xa0bc // 0x133a @0x0
0x133a…1365 lno = 0x0988 // 0x133c @0x2
0x133a…1365 at0004 = ╱4c╱L╱ // 0x133e @0x4
0x133a…1365 at0005 = ╱49╱I╱ // 0x133f @0x5
0x133a…1365 at0006 = ╱4e╱N╱ // 0x1340 @0x6
0x133a…1365 at0007 = ╱45╱E╱ // 0x1341 @0x7
0x133a…1365 at0008 = ╱ef╱$╱ // 0x1342 @0x8
0x133a…1365 at0009 = ╱dc╱=╱ // 0x1343 @0x9
0x133a…1365 at000a = ╱53╱S╱ // 0x1344 @0xa
0x133a…1365 at000b = ╱49╱I╱ // 0x1345 @0xb
0x133a…1365 at000c = ╱44╱D╱ // 0x1346 @0xc
0x133a…1365 at000d = ╱45╱E╱ // 0x1347 @0xd
0x133a…1365 at000e = ╱ef╱$╱ // 0x1348 @0xe
0x133a…1365 at000f = ╱ed╱(╱ // 0x1349 @0xf
0x133a…1365 at0010 = ╱46╱F╱ // 0x134a @0x10
0x133a…1365 at0011 = ╱5c╱Ø╱ // 0x134b @0x11
0x133a…1365 at0012 = ╱52╱R╱ // 0x134c @0x12
0x133a…1365 at0013 = ╱53╱S╱ // 0x134d @0x13
0x133a…1365 at0014 = ╱54╱T╱ // 0x134e @0x14
0x133a…1365 at0015 = ╱e2╱+╱ // 0x134f @0x15
0x133a…1365 at0016 = ╱4c╱L╱ // 0x1350 @0x16
0x133a…1365 at0017 = ╱49╱I╱ // 0x1351 @0x17
0x133a…1365 at0018 = ╱4e╱N╱ // 0x1352 @0x18
0x133a…1365 at0019 = ╱49╱I╱ // 0x1353 @0x19
0x133a…1365 at001a = ╱45╱E╱ // 0x1354 @0x1a
0x133a…1365 at001b = ╱ec╱,╱ // 0x1355 @0x1b
0x133a…1365 at001c = ╱35╱5╱ // 0x1356 @0x1c
0x133a…1365 at001d = ╱fe0000a003╱ // 0x1357 @0x1d
0x133a…1365 at0022 = ╱f0╱:╱ // 0x135c @0x22
0x133a…1365 at0023 = ╱36╱6╱ // 0x135d @0x23
0x133a…1365 at0024 = ╱fe0000c003╱ // 0x135e @0x24
0x133a…1365 at0029 = ╱ee╱)╱ // 0x1363 @0x29
0x133a…1365 at002a = EOL // 0x1364 @0x2a
0x133a…1365 }
0x1365…1393 a0ea 2450 SIDE$(FØRST+LINIE,5:6)=" "
0x1365…1393 LineComalBin {
0x1365…1393 ptr = 0xa0ea // 0x1365 @0x0
0x1365…1393 lno = 0x0992 // 0x1367 @0x2
0x1365…1393 at0004 = ╱53╱S╱ // 0x1369 @0x4
0x1365…1393 at0005 = ╱49╱I╱ // 0x136a @0x5
0x1365…1393 at0006 = ╱44╱D╱ // 0x136b @0x6
0x1365…1393 at0007 = ╱45╱E╱ // 0x136c @0x7
0x1365…1393 at0008 = ╱ef╱$╱ // 0x136d @0x8
0x1365…1393 at0009 = ╱ed╱(╱ // 0x136e @0x9
0x1365…1393 at000a = ╱46╱F╱ // 0x136f @0xa
0x1365…1393 at000b = ╱5c╱Ø╱ // 0x1370 @0xb
0x1365…1393 at000c = ╱52╱R╱ // 0x1371 @0xc
0x1365…1393 at000d = ╱53╱S╱ // 0x1372 @0xd
0x1365…1393 at000e = ╱54╱T╱ // 0x1373 @0xe
0x1365…1393 at000f = ╱e2╱+╱ // 0x1374 @0xf
0x1365…1393 at0010 = ╱4c╱L╱ // 0x1375 @0x10
0x1365…1393 at0011 = ╱49╱I╱ // 0x1376 @0x11
0x1365…1393 at0012 = ╱4e╱N╱ // 0x1377 @0x12
0x1365…1393 at0013 = ╱49╱I╱ // 0x1378 @0x13
0x1365…1393 at0014 = ╱45╱E╱ // 0x1379 @0x14
0x1365…1393 at0015 = ╱ec╱,╱ // 0x137a @0x15
0x1365…1393 at0016 = ╱35╱5╱ // 0x137b @0x16
0x1365…1393 at0017 = ╱fe0000a003╱ // 0x137c @0x17
0x1365…1393 at001c = ╱f0╱:╱ // 0x1381 @0x1c
0x1365…1393 at001d = ╱36╱6╱ // 0x1382 @0x1d
0x1365…1393 at001e = ╱fe0000c003╱ // 0x1383 @0x1e
0x1365…1393 at0023 = ╱ee╱)╱ // 0x1388 @0x23
0x1365…1393 at0024 = ╱dc╱=╱ // 0x1389 @0x24
0x1365…1393 at0025 = ╱22╱"╱ // 0x138a @0x25
0x1365…1393 at0026 = ╱20╱…╱ // 0x138b @0x26
0x1365…1393 at0027 = ╱20╱…╱ // 0x138c @0x27
0x1365…1393 at0028 = ╱20╱…╱ // 0x138d @0x28
0x1365…1393 at0029 = ╱20╱…╱ // 0x138e @0x29
0x1365…1393 at002a = ╱20╱…╱ // 0x138f @0x2a
0x1365…1393 at002b = ╱20╱…╱ // 0x1390 @0x2b
0x1365…1393 at002c = ╱22╱"╱ // 0x1391 @0x2c
0x1365…1393 at002d = EOL // 0x1392 @0x2d
0x1365…1393 }
0x1393…13a1 a0f8 2460 EDIT "",LINE$
0x1393…13a1 LineComalBin {
0x1393…13a1 ptr = 0xa0f8 // 0x1393 @0x0
0x1393…13a1 lno = 0x099c // 0x1395 @0x2
0x1393…13a1 at0004 = ╱b1╱ EDIT ╱ // 0x1397 @0x4
0x1393…13a1 at0005 = ╱22╱"╱ // 0x1398 @0x5
0x1393…13a1 at0006 = ╱22╱"╱ // 0x1399 @0x6
0x1393…13a1 at0007 = ╱ec╱,╱ // 0x139a @0x7
0x1393…13a1 at0008 = ╱4c╱L╱ // 0x139b @0x8
0x1393…13a1 at0009 = ╱49╱I╱ // 0x139c @0x9
0x1393…13a1 at000a = ╱4e╱N╱ // 0x139d @0xa
0x1393…13a1 at000b = ╱45╱E╱ // 0x139e @0xb
0x1393…13a1 at000c = ╱ef╱$╱ // 0x139f @0xc
0x1393…13a1 at000d = EOL // 0x13a0 @0xd
0x1393…13a1 }
0x13a1…13db a132 2470 UNTIL LEN(LINE$)<=6 AND (LEN(LINE$)<6 OR SIDST<ATPLM-4)
0x13a1…13db LineComalBin {
0x13a1…13db ptr = 0xa132 // 0x13a1 @0x0
0x13a1…13db lno = 0x09a6 // 0x13a3 @0x2
0x13a1…13db at0004 = ╱98╱ UNTIL ╱ // 0x13a5 @0x4
0x13a1…13db at0005 = ╱cc╱LEN╱ // 0x13a6 @0x5
0x13a1…13db at0006 = ╱ed╱(╱ // 0x13a7 @0x6
0x13a1…13db at0007 = ╱4c╱L╱ // 0x13a8 @0x7
0x13a1…13db at0008 = ╱49╱I╱ // 0x13a9 @0x8
0x13a1…13db at0009 = ╱4e╱N╱ // 0x13aa @0x9
0x13a1…13db at000a = ╱45╱E╱ // 0x13ab @0xa
0x13a1…13db at000b = ╱ef╱$╱ // 0x13ac @0xb
0x13a1…13db at000c = ╱ee╱)╱ // 0x13ad @0xc
0x13a1…13db at000d = ╱df╱<=╱ // 0x13ae @0xd
0x13a1…13db at000e = ╱36╱6╱ // 0x13af @0xe
0x13a1…13db at000f = ╱fe0000c003╱ // 0x13b0 @0xf
0x13a1…13db at0014 = ╱da╱ AND ╱ // 0x13b5 @0x14
0x13a1…13db at0015 = ╱ed╱(╱ // 0x13b6 @0x15
0x13a1…13db at0016 = ╱cc╱LEN╱ // 0x13b7 @0x16
0x13a1…13db at0017 = ╱ed╱(╱ // 0x13b8 @0x17
0x13a1…13db at0018 = ╱4c╱L╱ // 0x13b9 @0x18
0x13a1…13db at0019 = ╱49╱I╱ // 0x13ba @0x19
0x13a1…13db at001a = ╱4e╱N╱ // 0x13bb @0x1a
0x13a1…13db at001b = ╱45╱E╱ // 0x13bc @0x1b
0x13a1…13db at001c = ╱ef╱$╱ // 0x13bd @0x1c
0x13a1…13db at001d = ╱ee╱)╱ // 0x13be @0x1d
0x13a1…13db at001e = ╱dd╱<╱ // 0x13bf @0x1e
0x13a1…13db at001f = ╱36╱6╱ // 0x13c0 @0x1f
0x13a1…13db at0020 = ╱fe0000c003╱ // 0x13c1 @0x20
0x13a1…13db at0025 = ╱db╱ OR ╱ // 0x13c6 @0x25
0x13a1…13db at0026 = ╱53╱S╱ // 0x13c7 @0x26
0x13a1…13db at0027 = ╱49╱I╱ // 0x13c8 @0x27
0x13a1…13db at0028 = ╱44╱D╱ // 0x13c9 @0x28
0x13a1…13db at0029 = ╱53╱S╱ // 0x13ca @0x29
0x13a1…13db at002a = ╱54╱T╱ // 0x13cb @0x2a
0x13a1…13db at002b = ╱dd╱<╱ // 0x13cc @0x2b
0x13a1…13db at002c = ╱41╱A╱ // 0x13cd @0x2c
0x13a1…13db at002d = ╱54╱T╱ // 0x13ce @0x2d
0x13a1…13db at002e = ╱50╱P╱ // 0x13cf @0x2e
0x13a1…13db at002f = ╱4c╱L╱ // 0x13d0 @0x2f
0x13a1…13db at0030 = ╱4d╱M╱ // 0x13d1 @0x30
0x13a1…13db at0031 = ╱e3╱-╱ // 0x13d2 @0x31
0x13a1…13db at0032 = ╱34╱4╱ // 0x13d3 @0x32
0x13a1…13db at0033 = ╱fe00008003╱ // 0x13d4 @0x33
0x13a1…13db at0038 = ╱ee╱)╱ // 0x13d9 @0x38
0x13a1…13db at0039 = EOL // 0x13da @0x39
0x13a1…13db }
0x13db…13e1 a138 2480 ENDIF
0x13db…13e1 LineComalBin {
0x13db…13e1 ptr = 0xa138 // 0x13db @0x0
0x13db…13e1 lno = 0x09b0 // 0x13dd @0x2
0x13db…13e1 at0004 = ╱9b╱ ENDIF ╱ // 0x13df @0x4
0x13db…13e1 at0005 = EOL // 0x13e0 @0x5
0x13db…13e1 }
0x13e1…140c a163 2490 SIDE$(FØRST+LINIE,5:6)=LINE$
0x13e1…140c LineComalBin {
0x13e1…140c ptr = 0xa163 // 0x13e1 @0x0
0x13e1…140c lno = 0x09ba // 0x13e3 @0x2
0x13e1…140c at0004 = ╱53╱S╱ // 0x13e5 @0x4
0x13e1…140c at0005 = ╱49╱I╱ // 0x13e6 @0x5
0x13e1…140c at0006 = ╱44╱D╱ // 0x13e7 @0x6
0x13e1…140c at0007 = ╱45╱E╱ // 0x13e8 @0x7
0x13e1…140c at0008 = ╱ef╱$╱ // 0x13e9 @0x8
0x13e1…140c at0009 = ╱ed╱(╱ // 0x13ea @0x9
0x13e1…140c at000a = ╱46╱F╱ // 0x13eb @0xa
0x13e1…140c at000b = ╱5c╱Ø╱ // 0x13ec @0xb
0x13e1…140c at000c = ╱52╱R╱ // 0x13ed @0xc
0x13e1…140c at000d = ╱53╱S╱ // 0x13ee @0xd
0x13e1…140c at000e = ╱54╱T╱ // 0x13ef @0xe
0x13e1…140c at000f = ╱e2╱+╱ // 0x13f0 @0xf
0x13e1…140c at0010 = ╱4c╱L╱ // 0x13f1 @0x10
0x13e1…140c at0011 = ╱49╱I╱ // 0x13f2 @0x11
0x13e1…140c at0012 = ╱4e╱N╱ // 0x13f3 @0x12
0x13e1…140c at0013 = ╱49╱I╱ // 0x13f4 @0x13
0x13e1…140c at0014 = ╱45╱E╱ // 0x13f5 @0x14
0x13e1…140c at0015 = ╱ec╱,╱ // 0x13f6 @0x15
0x13e1…140c at0016 = ╱35╱5╱ // 0x13f7 @0x16
0x13e1…140c at0017 = ╱fe0000a003╱ // 0x13f8 @0x17
0x13e1…140c at001c = ╱f0╱:╱ // 0x13fd @0x1c
0x13e1…140c at001d = ╱36╱6╱ // 0x13fe @0x1d
0x13e1…140c at001e = ╱fe0000c003╱ // 0x13ff @0x1e
0x13e1…140c at0023 = ╱ee╱)╱ // 0x1404 @0x23
0x13e1…140c at0024 = ╱dc╱=╱ // 0x1405 @0x24
0x13e1…140c at0025 = ╱4c╱L╱ // 0x1406 @0x25
0x13e1…140c at0026 = ╱49╱I╱ // 0x1407 @0x26
0x13e1…140c at0027 = ╱4e╱N╱ // 0x1408 @0x27
0x13e1…140c at0028 = ╱45╱E╱ // 0x1409 @0x28
0x13e1…140c at0029 = ╱ef╱$╱ // 0x140a @0x29
0x13e1…140c at002a = EOL // 0x140b @0x2a
0x13e1…140c }
0x140c…1412 a169 2500 REPEAT
0x140c…1412 LineComalBin {
0x140c…1412 ptr = 0xa169 // 0x140c @0x0
0x140c…1412 lno = 0x09c4 // 0x140e @0x2
0x140c…1412 at0004 = ╱97╱ REPEAT ╱ // 0x1410 @0x4
0x140c…1412 at0005 = EOL // 0x1411 @0x5
0x140c…1412 }
0x1412…1418 a16f 2510 REPEAT
0x1412…1418 LineComalBin {
0x1412…1418 ptr = 0xa16f // 0x1412 @0x0
0x1412…1418 lno = 0x09ce // 0x1414 @0x2
0x1412…1418 at0004 = ╱97╱ REPEAT ╱ // 0x1416 @0x4
0x1412…1418 at0005 = EOL // 0x1417 @0x5
0x1412…1418 }
0x1418…142d a184 2520 CURSOR 28,LINIE+V
0x1418…142d LineComalBin {
0x1418…142d ptr = 0xa184 // 0x1418 @0x0
0x1418…142d lno = 0x09d8 // 0x141a @0x2
0x1418…142d at0004 = ╱a1╱ CURSOR ╱ // 0x141c @0x4
0x1418…142d at0005 = ╱32╱2╱ // 0x141d @0x5
0x1418…142d at0006 = ╱38╱8╱ // 0x141e @0x6
0x1418…142d at0007 = ╱fe0000e005╱ // 0x141f @0x7
0x1418…142d at000c = ╱ec╱,╱ // 0x1424 @0xc
0x1418…142d at000d = ╱4c╱L╱ // 0x1425 @0xd
0x1418…142d at000e = ╱49╱I╱ // 0x1426 @0xe
0x1418…142d at000f = ╱4e╱N╱ // 0x1427 @0xf
0x1418…142d at0010 = ╱49╱I╱ // 0x1428 @0x10
0x1418…142d at0011 = ╱45╱E╱ // 0x1429 @0x11
0x1418…142d at0012 = ╱e2╱+╱ // 0x142a @0x12
0x1418…142d at0013 = ╱56╱V╱ // 0x142b @0x13
0x1418…142d at0014 = EOL // 0x142c @0x14
0x1418…142d }
0x142d…145a a1b1 2530 LINE$=SIDE$(FØRST+LINIE,11:10)
0x142d…145a LineComalBin {
0x142d…145a ptr = 0xa1b1 // 0x142d @0x0
0x142d…145a lno = 0x09e2 // 0x142f @0x2
0x142d…145a at0004 = ╱4c╱L╱ // 0x1431 @0x4
0x142d…145a at0005 = ╱49╱I╱ // 0x1432 @0x5
0x142d…145a at0006 = ╱4e╱N╱ // 0x1433 @0x6
0x142d…145a at0007 = ╱45╱E╱ // 0x1434 @0x7
0x142d…145a at0008 = ╱ef╱$╱ // 0x1435 @0x8
0x142d…145a at0009 = ╱dc╱=╱ // 0x1436 @0x9
0x142d…145a at000a = ╱53╱S╱ // 0x1437 @0xa
0x142d…145a at000b = ╱49╱I╱ // 0x1438 @0xb
0x142d…145a at000c = ╱44╱D╱ // 0x1439 @0xc
0x142d…145a at000d = ╱45╱E╱ // 0x143a @0xd
0x142d…145a at000e = ╱ef╱$╱ // 0x143b @0xe
0x142d…145a at000f = ╱ed╱(╱ // 0x143c @0xf
0x142d…145a at0010 = ╱46╱F╱ // 0x143d @0x10
0x142d…145a at0011 = ╱5c╱Ø╱ // 0x143e @0x11
0x142d…145a at0012 = ╱52╱R╱ // 0x143f @0x12
0x142d…145a at0013 = ╱53╱S╱ // 0x1440 @0x13
0x142d…145a at0014 = ╱54╱T╱ // 0x1441 @0x14
0x142d…145a at0015 = ╱e2╱+╱ // 0x1442 @0x15
0x142d…145a at0016 = ╱4c╱L╱ // 0x1443 @0x16
0x142d…145a at0017 = ╱49╱I╱ // 0x1444 @0x17
0x142d…145a at0018 = ╱4e╱N╱ // 0x1445 @0x18
0x142d…145a at0019 = ╱49╱I╱ // 0x1446 @0x19
0x142d…145a at001a = ╱45╱E╱ // 0x1447 @0x1a
0x142d…145a at001b = ╱ec╱,╱ // 0x1448 @0x1b
0x142d…145a at001c = ╱31╱1╱ // 0x1449 @0x1c
0x142d…145a at001d = ╱31╱1╱ // 0x144a @0x1d
0x142d…145a at001e = ╱fe0000b004╱ // 0x144b @0x1e
0x142d…145a at0023 = ╱f0╱:╱ // 0x1450 @0x23
0x142d…145a at0024 = ╱31╱1╱ // 0x1451 @0x24
0x142d…145a at0025 = ╱30╱0╱ // 0x1452 @0x25
0x142d…145a at0026 = ╱fe0000a004╱ // 0x1453 @0x26
0x142d…145a at002b = ╱ee╱)╱ // 0x1458 @0x2b
0x142d…145a at002c = EOL // 0x1459 @0x2c
0x142d…145a }
0x145a…1485 a1dc 2540 IF LINE$(10)="+" THEN LINE$(10)=" "
0x145a…1485 LineComalBin {
0x145a…1485 ptr = 0xa1dc // 0x145a @0x0
0x145a…1485 lno = 0x09ec // 0x145c @0x2
0x145a…1485 at0004 = ╱82╱ IF ╱ // 0x145e @0x4
0x145a…1485 at0005 = ╱4c╱L╱ // 0x145f @0x5
0x145a…1485 at0006 = ╱49╱I╱ // 0x1460 @0x6
0x145a…1485 at0007 = ╱4e╱N╱ // 0x1461 @0x7
0x145a…1485 at0008 = ╱45╱E╱ // 0x1462 @0x8
0x145a…1485 at0009 = ╱ef╱$╱ // 0x1463 @0x9
0x145a…1485 at000a = ╱ed╱(╱ // 0x1464 @0xa
0x145a…1485 at000b = ╱31╱1╱ // 0x1465 @0xb
0x145a…1485 at000c = ╱30╱0╱ // 0x1466 @0xc
0x145a…1485 at000d = ╱fe0000a004╱ // 0x1467 @0xd
0x145a…1485 at0012 = ╱ee╱)╱ // 0x146c @0x12
0x145a…1485 at0013 = ╱dc╱=╱ // 0x146d @0x13
0x145a…1485 at0014 = ╱22╱"╱ // 0x146e @0x14
0x145a…1485 at0015 = ╱2b╱+╱ // 0x146f @0x15
0x145a…1485 at0016 = ╱22╱"╱ // 0x1470 @0x16
0x145a…1485 at0017 = ╱b6╱ THEN ╱ // 0x1471 @0x17
0x145a…1485 at0018 = ╱4c╱L╱ // 0x1472 @0x18
0x145a…1485 at0019 = ╱49╱I╱ // 0x1473 @0x19
0x145a…1485 at001a = ╱4e╱N╱ // 0x1474 @0x1a
0x145a…1485 at001b = ╱45╱E╱ // 0x1475 @0x1b
0x145a…1485 at001c = ╱ef╱$╱ // 0x1476 @0x1c
0x145a…1485 at001d = ╱ed╱(╱ // 0x1477 @0x1d
0x145a…1485 at001e = ╱31╱1╱ // 0x1478 @0x1e
0x145a…1485 at001f = ╱30╱0╱ // 0x1479 @0x1f
0x145a…1485 at0020 = ╱fe0000a004╱ // 0x147a @0x20
0x145a…1485 at0025 = ╱ee╱)╱ // 0x147f @0x25
0x145a…1485 at0026 = ╱dc╱=╱ // 0x1480 @0x26
0x145a…1485 at0027 = ╱22╱"╱ // 0x1481 @0x27
0x145a…1485 at0028 = ╱20╱…╱ // 0x1482 @0x28
0x145a…1485 at0029 = ╱22╱"╱ // 0x1483 @0x29
0x145a…1485 at002a = EOL // 0x1484 @0x2a
0x145a…1485 }
0x1485…1493 a1ea 2550 EDIT "",LINE$
0x1485…1493 LineComalBin {
0x1485…1493 ptr = 0xa1ea // 0x1485 @0x0
0x1485…1493 lno = 0x09f6 // 0x1487 @0x2
0x1485…1493 at0004 = ╱b1╱ EDIT ╱ // 0x1489 @0x4
0x1485…1493 at0005 = ╱22╱"╱ // 0x148a @0x5
0x1485…1493 at0006 = ╱22╱"╱ // 0x148b @0x6
0x1485…1493 at0007 = ╱ec╱,╱ // 0x148c @0x7
0x1485…1493 at0008 = ╱4c╱L╱ // 0x148d @0x8
0x1485…1493 at0009 = ╱49╱I╱ // 0x148e @0x9
0x1485…1493 at000a = ╱4e╱N╱ // 0x148f @0xa
0x1485…1493 at000b = ╱45╱E╱ // 0x1490 @0xb
0x1485…1493 at000c = ╱ef╱$╱ // 0x1491 @0xc
0x1485…1493 at000d = EOL // 0x1492 @0xd
0x1485…1493 }
0x1493…14a6 a1fd 2560 IF LANR=75 THEN
0x1493…14a6 LineComalBin {
0x1493…14a6 ptr = 0xa1fd // 0x1493 @0x0
0x1493…14a6 lno = 0x0a00 // 0x1495 @0x2
0x1493…14a6 at0004 = ╱9c╱ IF ╱ // 0x1497 @0x4
0x1493…14a6 at0005 = ╱4c╱L╱ // 0x1498 @0x5
0x1493…14a6 at0006 = ╱41╱A╱ // 0x1499 @0x6
0x1493…14a6 at0007 = ╱4e╱N╱ // 0x149a @0x7
0x1493…14a6 at0008 = ╱52╱R╱ // 0x149b @0x8
0x1493…14a6 at0009 = ╱dc╱=╱ // 0x149c @0x9
0x1493…14a6 at000a = ╱37╱7╱ // 0x149d @0xa
0x1493…14a6 at000b = ╱35╱5╱ // 0x149e @0xb
0x1493…14a6 at000c = ╱fe00009607╱ // 0x149f @0xc
0x1493…14a6 at0011 = ╱b6╱ THEN ╱ // 0x14a4 @0x11
0x1493…14a6 at0012 = EOL // 0x14a5 @0x12
0x1493…14a6 }
0x14a6…14c1 a218 2570 EXEC DATOCHECK(LINE$,FLAG)
0x14a6…14c1 LineComalBin {
0x14a6…14c1 ptr = 0xa218 // 0x14a6 @0x0
0x14a6…14c1 lno = 0x0a0a // 0x14a8 @0x2
0x14a6…14c1 at0004 = ╱9d╱ EXEC ╱ // 0x14aa @0x4
0x14a6…14c1 at0005 = ╱44╱D╱ // 0x14ab @0x5
0x14a6…14c1 at0006 = ╱41╱A╱ // 0x14ac @0x6
0x14a6…14c1 at0007 = ╱54╱T╱ // 0x14ad @0x7
0x14a6…14c1 at0008 = ╱4f╱O╱ // 0x14ae @0x8
0x14a6…14c1 at0009 = ╱43╱C╱ // 0x14af @0x9
0x14a6…14c1 at000a = ╱48╱H╱ // 0x14b0 @0xa
0x14a6…14c1 at000b = ╱45╱E╱ // 0x14b1 @0xb
0x14a6…14c1 at000c = ╱43╱C╱ // 0x14b2 @0xc
0x14a6…14c1 at000d = ╱4b╱K╱ // 0x14b3 @0xd
0x14a6…14c1 at000e = ╱ed╱(╱ // 0x14b4 @0xe
0x14a6…14c1 at000f = ╱4c╱L╱ // 0x14b5 @0xf
0x14a6…14c1 at0010 = ╱49╱I╱ // 0x14b6 @0x10
0x14a6…14c1 at0011 = ╱4e╱N╱ // 0x14b7 @0x11
0x14a6…14c1 at0012 = ╱45╱E╱ // 0x14b8 @0x12
0x14a6…14c1 at0013 = ╱ef╱$╱ // 0x14b9 @0x13
0x14a6…14c1 at0014 = ╱ec╱,╱ // 0x14ba @0x14
0x14a6…14c1 at0015 = ╱46╱F╱ // 0x14bb @0x15
0x14a6…14c1 at0016 = ╱4c╱L╱ // 0x14bc @0x16
0x14a6…14c1 at0017 = ╱41╱A╱ // 0x14bd @0x17
0x14a6…14c1 at0018 = ╱47╱G╱ // 0x14be @0x18
0x14a6…14c1 at0019 = ╱ee╱)╱ // 0x14bf @0x19
0x14a6…14c1 at001a = EOL // 0x14c0 @0x1a
0x14a6…14c1 }
0x14c1…14d3 (69,) a22a 2580 FLAG=(FLAG=B)
0x14c1…14d3 LineComalBin {
0x14c1…14d3 ptr = 0xa22a // 0x14c1 @0x0
0x14c1…14d3 lno = 0x0a14 // 0x14c3 @0x2
0x14c1…14d3 at0004 = ╱46╱F╱ // 0x14c5 @0x4
0x14c1…14d3 at0005 = ╱4c╱L╱ // 0x14c6 @0x5
0x14c1…14d3 at0006 = ╱41╱A╱ // 0x14c7 @0x6
0x14c1…14d3 at0007 = ╱47╱G╱ // 0x14c8 @0x7
0x14c1…14d3 at0008 = ╱dc╱=╱ // 0x14c9 @0x8
0x14c1…14d3 at0009 = ╱ed╱(╱ // 0x14ca @0x9
0x14c1…14d3 at000a = ╱46╱F╱ // 0x14cb @0xa
0x14c1…14d3 at000b = ╱4c╱L╱ // 0x14cc @0xb
0x14c1…14d3 at000c = ╱41╱A╱ // 0x14cd @0xc
0x14c1…14d3 at000d = ╱47╱G╱ // 0x14ce @0xd
0x14c1…14d3 at000e = ╱dc╱=╱ // 0x14cf @0xe
0x14c1…14d3 at000f = ╱42╱B╱ // 0x14d0 @0xf
0x14c1…14d3 at0010 = ╱ee╱)╱ // 0x14d1 @0x10
0x14c1…14d3 at0011 = EOL // 0x14d2 @0x11
0x14c1…14d3 }
0x14d3…14fa a251 2590 RESUL$=" "+LINE$(E,6)+" "
0x14d3…14fa LineComalBin {
0x14d3…14fa ptr = 0xa251 // 0x14d3 @0x0
0x14d3…14fa lno = 0x0a1e // 0x14d5 @0x2
0x14d3…14fa at0004 = ╱52╱R╱ // 0x14d7 @0x4
0x14d3…14fa at0005 = ╱45╱E╱ // 0x14d8 @0x5
0x14d3…14fa at0006 = ╱53╱S╱ // 0x14d9 @0x6
0x14d3…14fa at0007 = ╱55╱U╱ // 0x14da @0x7
0x14d3…14fa at0008 = ╱4c╱L╱ // 0x14db @0x8
0x14d3…14fa at0009 = ╱ef╱$╱ // 0x14dc @0x9
0x14d3…14fa at000a = ╱dc╱=╱ // 0x14dd @0xa
0x14d3…14fa at000b = ╱22╱"╱ // 0x14de @0xb
0x14d3…14fa at000c = ╱20╱…╱ // 0x14df @0xc
0x14d3…14fa at000d = ╱20╱…╱ // 0x14e0 @0xd
0x14d3…14fa at000e = ╱22╱"╱ // 0x14e1 @0xe
0x14d3…14fa at000f = ╱f1╱+╱ // 0x14e2 @0xf
0x14d3…14fa at0010 = ╱4c╱L╱ // 0x14e3 @0x10
0x14d3…14fa at0011 = ╱49╱I╱ // 0x14e4 @0x11
0x14d3…14fa at0012 = ╱4e╱N╱ // 0x14e5 @0x12
0x14d3…14fa at0013 = ╱45╱E╱ // 0x14e6 @0x13
0x14d3…14fa at0014 = ╱ef╱$╱ // 0x14e7 @0x14
0x14d3…14fa at0015 = ╱ed╱(╱ // 0x14e8 @0x15
0x14d3…14fa at0016 = ╱45╱E╱ // 0x14e9 @0x16
0x14d3…14fa at0017 = ╱ec╱,╱ // 0x14ea @0x17
0x14d3…14fa at0018 = ╱36╱6╱ // 0x14eb @0x18
0x14d3…14fa at0019 = ╱fe0000c003╱ // 0x14ec @0x19
0x14d3…14fa at001e = ╱ee╱)╱ // 0x14f1 @0x1e
0x14d3…14fa at001f = ╱f1╱+╱ // 0x14f2 @0x1f
0x14d3…14fa at0020 = ╱22╱"╱ // 0x14f3 @0x20
0x14d3…14fa at0021 = ╱20╱…╱ // 0x14f4 @0x21
0x14d3…14fa at0022 = ╱20╱…╱ // 0x14f5 @0x22
0x14d3…14fa at0023 = ╱20╱…╱ // 0x14f6 @0x23
0x14d3…14fa at0024 = ╱20╱…╱ // 0x14f7 @0x24
0x14d3…14fa at0025 = ╱22╱"╱ // 0x14f8 @0x25
0x14d3…14fa at0026 = EOL // 0x14f9 @0x26
0x14d3…14fa }
0x14fa…1500 a257 2600 ELSE
0x14fa…1500 LineComalBin {
0x14fa…1500 ptr = 0xa257 // 0x14fa @0x0
0x14fa…1500 lno = 0x0a28 // 0x14fc @0x2
0x14fa…1500 at0004 = ╱9a╱ ELSE ╱ // 0x14fe @0x4
0x14fa…1500 at0005 = EOL // 0x14ff @0x5
0x14fa…1500 }
0x1500…1514 a26b 2610 LINE$=LINE$+"+"
0x1500…1514 LineComalBin {
0x1500…1514 ptr = 0xa26b // 0x1500 @0x0
0x1500…1514 lno = 0x0a32 // 0x1502 @0x2
0x1500…1514 at0004 = ╱4c╱L╱ // 0x1504 @0x4
0x1500…1514 at0005 = ╱49╱I╱ // 0x1505 @0x5
0x1500…1514 at0006 = ╱4e╱N╱ // 0x1506 @0x6
0x1500…1514 at0007 = ╱45╱E╱ // 0x1507 @0x7
0x1500…1514 at0008 = ╱ef╱$╱ // 0x1508 @0x8
0x1500…1514 at0009 = ╱dc╱=╱ // 0x1509 @0x9
0x1500…1514 at000a = ╱4c╱L╱ // 0x150a @0xa
0x1500…1514 at000b = ╱49╱I╱ // 0x150b @0xb
0x1500…1514 at000c = ╱4e╱N╱ // 0x150c @0xc
0x1500…1514 at000d = ╱45╱E╱ // 0x150d @0xd
0x1500…1514 at000e = ╱ef╱$╱ // 0x150e @0xe
0x1500…1514 at000f = ╱f1╱+╱ // 0x150f @0xf
0x1500…1514 at0010 = ╱22╱"╱ // 0x1510 @0x10
0x1500…1514 at0011 = ╱2b╱+╱ // 0x1511 @0x11
0x1500…1514 at0012 = ╱22╱"╱ // 0x1512 @0x12
0x1500…1514 at0013 = EOL // 0x1513 @0x13
0x1500…1514 }
0x1514…1538 a28f 2620 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x1514…1538 LineComalBin {
0x1514…1538 ptr = 0xa28f // 0x1514 @0x0
0x1514…1538 lno = 0x0a3c // 0x1516 @0x2
0x1514…1538 at0004 = ╱9d╱ EXEC ╱ // 0x1518 @0x4
0x1514…1538 at0005 = ╱43╱C╱ // 0x1519 @0x5
0x1514…1538 at0006 = ╱41╱A╱ // 0x151a @0x6
0x1514…1538 at0007 = ╱4c╱L╱ // 0x151b @0x7
0x1514…1538 at0008 = ╱43╱C╱ // 0x151c @0x8
0x1514…1538 at0009 = ╱ed╱(╱ // 0x151d @0x9
0x1514…1538 at000a = ╱36╱6╱ // 0x151e @0xa
0x1514…1538 at000b = ╱fe0000c003╱ // 0x151f @0xb
0x1514…1538 at0010 = ╱ec╱,╱ // 0x1524 @0x10
0x1514…1538 at0011 = ╱4c╱L╱ // 0x1525 @0x11
0x1514…1538 at0012 = ╱49╱I╱ // 0x1526 @0x12
0x1514…1538 at0013 = ╱4e╱N╱ // 0x1527 @0x13
0x1514…1538 at0014 = ╱45╱E╱ // 0x1528 @0x14
0x1514…1538 at0015 = ╱ef╱$╱ // 0x1529 @0x15
0x1514…1538 at0016 = ╱ec╱,╱ // 0x152a @0x16
0x1514…1538 at0017 = ╱54╱T╱ // 0x152b @0x17
0x1514…1538 at0018 = ╱41╱A╱ // 0x152c @0x18
0x1514…1538 at0019 = ╱48╱H╱ // 0x152d @0x19
0x1514…1538 at001a = ╱ef╱$╱ // 0x152e @0x1a
0x1514…1538 at001b = ╱ec╱,╱ // 0x152f @0x1b
0x1514…1538 at001c = ╱52╱R╱ // 0x1530 @0x1c
0x1514…1538 at001d = ╱45╱E╱ // 0x1531 @0x1d
0x1514…1538 at001e = ╱53╱S╱ // 0x1532 @0x1e
0x1514…1538 at001f = ╱55╱U╱ // 0x1533 @0x1f
0x1514…1538 at0020 = ╱4c╱L╱ // 0x1534 @0x20
0x1514…1538 at0021 = ╱ef╱$╱ // 0x1535 @0x21
0x1514…1538 at0022 = ╱ee╱)╱ // 0x1536 @0x22
0x1514…1538 at0023 = EOL // 0x1537 @0x23
0x1514…1538 }
0x1538…153e a295 2630 ENDIF
0x1538…153e LineComalBin {
0x1538…153e ptr = 0xa295 // 0x1538 @0x0
0x1538…153e lno = 0x0a46 // 0x153a @0x2
0x1538…153e at0004 = ╱9b╱ ENDIF ╱ // 0x153c @0x4
0x1538…153e at0005 = EOL // 0x153d @0x5
0x1538…153e }
0x153e…154a a2a1 2640 UNTIL FLAG=B
0x153e…154a LineComalBin {
0x153e…154a ptr = 0xa2a1 // 0x153e @0x0
0x153e…154a lno = 0x0a50 // 0x1540 @0x2
0x153e…154a at0004 = ╱98╱ UNTIL ╱ // 0x1542 @0x4
0x153e…154a at0005 = ╱46╱F╱ // 0x1543 @0x5
0x153e…154a at0006 = ╱4c╱L╱ // 0x1544 @0x6
0x153e…154a at0007 = ╱41╱A╱ // 0x1545 @0x7
0x153e…154a at0008 = ╱47╱G╱ // 0x1546 @0x8
0x153e…154a at0009 = ╱dc╱=╱ // 0x1547 @0x9
0x153e…154a at000a = ╱42╱B╱ // 0x1548 @0xa
0x153e…154a at000b = EOL // 0x1549 @0xb
0x153e…154a }
0x154a…155d a2b4 2650 IF LANR=75 THEN
0x154a…155d LineComalBin {
0x154a…155d ptr = 0xa2b4 // 0x154a @0x0
0x154a…155d lno = 0x0a5a // 0x154c @0x2
0x154a…155d at0004 = ╱9c╱ IF ╱ // 0x154e @0x4
0x154a…155d at0005 = ╱4c╱L╱ // 0x154f @0x5
0x154a…155d at0006 = ╱41╱A╱ // 0x1550 @0x6
0x154a…155d at0007 = ╱4e╱N╱ // 0x1551 @0x7
0x154a…155d at0008 = ╱52╱R╱ // 0x1552 @0x8
0x154a…155d at0009 = ╱dc╱=╱ // 0x1553 @0x9
0x154a…155d at000a = ╱37╱7╱ // 0x1554 @0xa
0x154a…155d at000b = ╱35╱5╱ // 0x1555 @0xb
0x154a…155d at000c = ╱fe00009607╱ // 0x1556 @0xc
0x154a…155d at0011 = ╱b6╱ THEN ╱ // 0x155b @0x11
0x154a…155d at0012 = EOL // 0x155c @0x12
0x154a…155d }
0x155d…1566 a2bd 2660 SI=E
0x155d…1566 LineComalBin {
0x155d…1566 ptr = 0xa2bd // 0x155d @0x0
0x155d…1566 lno = 0x0a64 // 0x155f @0x2
0x155d…1566 at0004 = ╱53╱S╱ // 0x1561 @0x4
0x155d…1566 at0005 = ╱49╱I╱ // 0x1562 @0x5
0x155d…1566 at0006 = ╱dc╱=╱ // 0x1563 @0x6
0x155d…1566 at0007 = ╱45╱E╱ // 0x1564 @0x7
0x155d…1566 at0008 = EOL // 0x1565 @0x8
0x155d…1566 }
0x1566…156c a2c3 2670 ELSE
0x1566…156c LineComalBin {
0x1566…156c ptr = 0xa2c3 // 0x1566 @0x0
0x1566…156c lno = 0x0a6e // 0x1568 @0x2
0x1566…156c at0004 = ╱9a╱ ELSE ╱ // 0x156a @0x4
0x1566…156c at0005 = EOL // 0x156b @0x5
0x1566…156c }
0x156c…1590 a2e7 2680 EXEC CALC(4,RESUL$,MAX$,MAX1$)
0x156c…1590 LineComalBin {
0x156c…1590 ptr = 0xa2e7 // 0x156c @0x0
0x156c…1590 lno = 0x0a78 // 0x156e @0x2
0x156c…1590 at0004 = ╱9d╱ EXEC ╱ // 0x1570 @0x4
0x156c…1590 at0005 = ╱43╱C╱ // 0x1571 @0x5
0x156c…1590 at0006 = ╱41╱A╱ // 0x1572 @0x6
0x156c…1590 at0007 = ╱4c╱L╱ // 0x1573 @0x7
0x156c…1590 at0008 = ╱43╱C╱ // 0x1574 @0x8
0x156c…1590 at0009 = ╱ed╱(╱ // 0x1575 @0x9
0x156c…1590 at000a = ╱34╱4╱ // 0x1576 @0xa
0x156c…1590 at000b = ╱fe00008003╱ // 0x1577 @0xb
0x156c…1590 at0010 = ╱ec╱,╱ // 0x157c @0x10
0x156c…1590 at0011 = ╱52╱R╱ // 0x157d @0x11
0x156c…1590 at0012 = ╱45╱E╱ // 0x157e @0x12
0x156c…1590 at0013 = ╱53╱S╱ // 0x157f @0x13
0x156c…1590 at0014 = ╱55╱U╱ // 0x1580 @0x14
0x156c…1590 at0015 = ╱4c╱L╱ // 0x1581 @0x15
0x156c…1590 at0016 = ╱ef╱$╱ // 0x1582 @0x16
0x156c…1590 at0017 = ╱ec╱,╱ // 0x1583 @0x17
0x156c…1590 at0018 = ╱4d╱M╱ // 0x1584 @0x18
0x156c…1590 at0019 = ╱41╱A╱ // 0x1585 @0x19
0x156c…1590 at001a = ╱58╱X╱ // 0x1586 @0x1a
0x156c…1590 at001b = ╱ef╱$╱ // 0x1587 @0x1b
0x156c…1590 at001c = ╱ec╱,╱ // 0x1588 @0x1c
0x156c…1590 at001d = ╱4d╱M╱ // 0x1589 @0x1d
0x156c…1590 at001e = ╱41╱A╱ // 0x158a @0x1e
0x156c…1590 at001f = ╱58╱X╱ // 0x158b @0x1f
0x156c…1590 at0020 = ╱31╱1╱ // 0x158c @0x20
0x156c…1590 at0021 = ╱ef╱$╱ // 0x158d @0x21
0x156c…1590 at0022 = ╱ee╱)╱ // 0x158e @0x22
0x156c…1590 at0023 = EOL // 0x158f @0x23
0x156c…1590 }
0x1590…1596 a2ed 2690 ENDIF
0x1590…1596 LineComalBin {
0x1590…1596 ptr = 0xa2ed // 0x1590 @0x0
0x1590…1596 lno = 0x0a82 // 0x1592 @0x2
0x1590…1596 at0004 = ╱9b╱ ENDIF ╱ // 0x1594 @0x4
0x1590…1596 at0005 = EOL // 0x1595 @0x5
0x1590…1596 }
0x1596…15a0 a2f7 2700 UNTIL SI=E
0x1596…15a0 LineComalBin {
0x1596…15a0 ptr = 0xa2f7 // 0x1596 @0x0
0x1596…15a0 lno = 0x0a8c // 0x1598 @0x2
0x1596…15a0 at0004 = ╱98╱ UNTIL ╱ // 0x159a @0x4
0x1596…15a0 at0005 = ╱53╱S╱ // 0x159b @0x5
0x1596…15a0 at0006 = ╱49╱I╱ // 0x159c @0x6
0x1596…15a0 at0007 = ╱dc╱=╱ // 0x159d @0x7
0x1596…15a0 at0008 = ╱45╱E╱ // 0x159e @0x8
0x1596…15a0 at0009 = EOL // 0x159f @0x9
0x1596…15a0 }
0x15a0…15d9 a330 2710 SIDE$(FØRST+LINIE,11:10)=RESUL$(V:10)
0x15a0…15d9 LineComalBin {
0x15a0…15d9 ptr = 0xa330 // 0x15a0 @0x0
0x15a0…15d9 lno = 0x0a96 // 0x15a2 @0x2
0x15a0…15d9 at0004 = ╱53╱S╱ // 0x15a4 @0x4
0x15a0…15d9 at0005 = ╱49╱I╱ // 0x15a5 @0x5
0x15a0…15d9 at0006 = ╱44╱D╱ // 0x15a6 @0x6
0x15a0…15d9 at0007 = ╱45╱E╱ // 0x15a7 @0x7
0x15a0…15d9 at0008 = ╱ef╱$╱ // 0x15a8 @0x8
0x15a0…15d9 at0009 = ╱ed╱(╱ // 0x15a9 @0x9
0x15a0…15d9 at000a = ╱46╱F╱ // 0x15aa @0xa
0x15a0…15d9 at000b = ╱5c╱Ø╱ // 0x15ab @0xb
0x15a0…15d9 at000c = ╱52╱R╱ // 0x15ac @0xc
0x15a0…15d9 at000d = ╱53╱S╱ // 0x15ad @0xd
0x15a0…15d9 at000e = ╱54╱T╱ // 0x15ae @0xe
0x15a0…15d9 at000f = ╱e2╱+╱ // 0x15af @0xf
0x15a0…15d9 at0010 = ╱4c╱L╱ // 0x15b0 @0x10
0x15a0…15d9 at0011 = ╱49╱I╱ // 0x15b1 @0x11
0x15a0…15d9 at0012 = ╱4e╱N╱ // 0x15b2 @0x12
0x15a0…15d9 at0013 = ╱49╱I╱ // 0x15b3 @0x13
0x15a0…15d9 at0014 = ╱45╱E╱ // 0x15b4 @0x14
0x15a0…15d9 at0015 = ╱ec╱,╱ // 0x15b5 @0x15
0x15a0…15d9 at0016 = ╱31╱1╱ // 0x15b6 @0x16
0x15a0…15d9 at0017 = ╱31╱1╱ // 0x15b7 @0x17
0x15a0…15d9 at0018 = ╱fe0000b004╱ // 0x15b8 @0x18
0x15a0…15d9 at001d = ╱f0╱:╱ // 0x15bd @0x1d
0x15a0…15d9 at001e = ╱31╱1╱ // 0x15be @0x1e
0x15a0…15d9 at001f = ╱30╱0╱ // 0x15bf @0x1f
0x15a0…15d9 at0020 = ╱fe0000a004╱ // 0x15c0 @0x20
0x15a0…15d9 at0025 = ╱ee╱)╱ // 0x15c5 @0x25
0x15a0…15d9 at0026 = ╱dc╱=╱ // 0x15c6 @0x26
0x15a0…15d9 at0027 = ╱52╱R╱ // 0x15c7 @0x27
0x15a0…15d9 at0028 = ╱45╱E╱ // 0x15c8 @0x28
0x15a0…15d9 at0029 = ╱53╱S╱ // 0x15c9 @0x29
0x15a0…15d9 at002a = ╱55╱U╱ // 0x15ca @0x2a
0x15a0…15d9 at002b = ╱4c╱L╱ // 0x15cb @0x2b
0x15a0…15d9 at002c = ╱ef╱$╱ // 0x15cc @0x2c
0x15a0…15d9 at002d = ╱ed╱(╱ // 0x15cd @0x2d
0x15a0…15d9 at002e = ╱56╱V╱ // 0x15ce @0x2e
0x15a0…15d9 at002f = ╱f0╱:╱ // 0x15cf @0x2f
0x15a0…15d9 at0030 = ╱31╱1╱ // 0x15d0 @0x30
0x15a0…15d9 at0031 = ╱30╱0╱ // 0x15d1 @0x31
0x15a0…15d9 at0032 = ╱fe0000a004╱ // 0x15d2 @0x32
0x15a0…15d9 at0037 = ╱ee╱)╱ // 0x15d7 @0x37
0x15a0…15d9 at0038 = EOL // 0x15d8 @0x38
0x15a0…15d9 }
0x15d9…15fc a353 2720 EXEC CALC(4,RESUL$,TAH$,MAX$)
0x15d9…15fc LineComalBin {
0x15d9…15fc ptr = 0xa353 // 0x15d9 @0x0
0x15d9…15fc lno = 0x0aa0 // 0x15db @0x2
0x15d9…15fc at0004 = ╱9d╱ EXEC ╱ // 0x15dd @0x4
0x15d9…15fc at0005 = ╱43╱C╱ // 0x15de @0x5
0x15d9…15fc at0006 = ╱41╱A╱ // 0x15df @0x6
0x15d9…15fc at0007 = ╱4c╱L╱ // 0x15e0 @0x7
0x15d9…15fc at0008 = ╱43╱C╱ // 0x15e1 @0x8
0x15d9…15fc at0009 = ╱ed╱(╱ // 0x15e2 @0x9
0x15d9…15fc at000a = ╱34╱4╱ // 0x15e3 @0xa
0x15d9…15fc at000b = ╱fe00008003╱ // 0x15e4 @0xb
0x15d9…15fc at0010 = ╱ec╱,╱ // 0x15e9 @0x10
0x15d9…15fc at0011 = ╱52╱R╱ // 0x15ea @0x11
0x15d9…15fc at0012 = ╱45╱E╱ // 0x15eb @0x12
0x15d9…15fc at0013 = ╱53╱S╱ // 0x15ec @0x13
0x15d9…15fc at0014 = ╱55╱U╱ // 0x15ed @0x14
0x15d9…15fc at0015 = ╱4c╱L╱ // 0x15ee @0x15
0x15d9…15fc at0016 = ╱ef╱$╱ // 0x15ef @0x16
0x15d9…15fc at0017 = ╱ec╱,╱ // 0x15f0 @0x17
0x15d9…15fc at0018 = ╱54╱T╱ // 0x15f1 @0x18
0x15d9…15fc at0019 = ╱41╱A╱ // 0x15f2 @0x19
0x15d9…15fc at001a = ╱48╱H╱ // 0x15f3 @0x1a
0x15d9…15fc at001b = ╱ef╱$╱ // 0x15f4 @0x1b
0x15d9…15fc at001c = ╱ec╱,╱ // 0x15f5 @0x1c
0x15d9…15fc at001d = ╱4d╱M╱ // 0x15f6 @0x1d
0x15d9…15fc at001e = ╱41╱A╱ // 0x15f7 @0x1e
0x15d9…15fc at001f = ╱58╱X╱ // 0x15f8 @0x1f
0x15d9…15fc at0020 = ╱ef╱$╱ // 0x15f9 @0x20
0x15d9…15fc at0021 = ╱ee╱)╱ // 0x15fa @0x21
0x15d9…15fc at0022 = EOL // 0x15fb @0x22
0x15d9…15fc }
0x15fc…1607 a35e 2730 IF SI=B THEN
0x15fc…1607 LineComalBin {
0x15fc…1607 ptr = 0xa35e // 0x15fc @0x0
0x15fc…1607 lno = 0x0aaa // 0x15fe @0x2
0x15fc…1607 at0004 = ╱9c╱ IF ╱ // 0x1600 @0x4
0x15fc…1607 at0005 = ╱53╱S╱ // 0x1601 @0x5
0x15fc…1607 at0006 = ╱49╱I╱ // 0x1602 @0x6
0x15fc…1607 at0007 = ╱dc╱=╱ // 0x1603 @0x7
0x15fc…1607 at0008 = ╱42╱B╱ // 0x1604 @0x8
0x15fc…1607 at0009 = ╱b6╱ THEN ╱ // 0x1605 @0x9
0x15fc…1607 at000a = EOL // 0x1606 @0xa
0x15fc…1607 }
0x1607…1611 a368 2740 ENH=B
0x1607…1611 LineComalBin {
0x1607…1611 ptr = 0xa368 // 0x1607 @0x0
0x1607…1611 lno = 0x0ab4 // 0x1609 @0x2
0x1607…1611 at0004 = ╱45╱E╱ // 0x160b @0x4
0x1607…1611 at0005 = ╱4e╱N╱ // 0x160c @0x5
0x1607…1611 at0006 = ╱48╱H╱ // 0x160d @0x6
0x1607…1611 at0007 = ╱dc╱=╱ // 0x160e @0x7
0x1607…1611 at0008 = ╱42╱B╱ // 0x160f @0x8
0x1607…1611 at0009 = EOL // 0x1610 @0x9
0x1607…1611 }
0x1611…1617 a36e 2750 ELSE
0x1611…1617 LineComalBin {
0x1611…1617 ptr = 0xa36e // 0x1611 @0x0
0x1611…1617 lno = 0x0abe // 0x1613 @0x2
0x1611…1617 at0004 = ╱9a╱ ELSE ╱ // 0x1615 @0x4
0x1611…1617 at0005 = EOL // 0x1616 @0x5
0x1611…1617 }
0x1617…1621 a378 2760 ENH=E
0x1617…1621 LineComalBin {
0x1617…1621 ptr = 0xa378 // 0x1617 @0x0
0x1617…1621 lno = 0x0ac8 // 0x1619 @0x2
0x1617…1621 at0004 = ╱45╱E╱ // 0x161b @0x4
0x1617…1621 at0005 = ╱4e╱N╱ // 0x161c @0x5
0x1617…1621 at0006 = ╱48╱H╱ // 0x161d @0x6
0x1617…1621 at0007 = ╱dc╱=╱ // 0x161e @0x7
0x1617…1621 at0008 = ╱45╱E╱ // 0x161f @0x8
0x1617…1621 at0009 = EOL // 0x1620 @0x9
0x1617…1621 }
0x1621…1627 a37e 2770 ENDIF
0x1621…1627 LineComalBin {
0x1621…1627 ptr = 0xa37e // 0x1621 @0x0
0x1621…1627 lno = 0x0ad2 // 0x1623 @0x2
0x1621…1627 at0004 = ╱9b╱ ENDIF ╱ // 0x1625 @0x4
0x1621…1627 at0005 = EOL // 0x1626 @0x5
0x1621…1627 }
0x1627…1663 a3ba 2780 IF LANR<61 OR (LANR>61 AND LANR<65) OR LANR=70 THEN
0x1627…1663 LineComalBin {
0x1627…1663 ptr = 0xa3ba // 0x1627 @0x0
0x1627…1663 lno = 0x0adc // 0x1629 @0x2
0x1627…1663 at0004 = ╱9c╱ IF ╱ // 0x162b @0x4
0x1627…1663 at0005 = ╱4c╱L╱ // 0x162c @0x5
0x1627…1663 at0006 = ╱41╱A╱ // 0x162d @0x6
0x1627…1663 at0007 = ╱4e╱N╱ // 0x162e @0x7
0x1627…1663 at0008 = ╱52╱R╱ // 0x162f @0x8
0x1627…1663 at0009 = ╱dd╱<╱ // 0x1630 @0x9
0x1627…1663 at000a = ╱36╱6╱ // 0x1631 @0xa
0x1627…1663 at000b = ╱31╱1╱ // 0x1632 @0xb
0x1627…1663 at000c = ╱fe0000f406╱ // 0x1633 @0xc
0x1627…1663 at0011 = ╱db╱ OR ╱ // 0x1638 @0x11
0x1627…1663 at0012 = ╱ed╱(╱ // 0x1639 @0x12
0x1627…1663 at0013 = ╱4c╱L╱ // 0x163a @0x13
0x1627…1663 at0014 = ╱41╱A╱ // 0x163b @0x14
0x1627…1663 at0015 = ╱4e╱N╱ // 0x163c @0x15
0x1627…1663 at0016 = ╱52╱R╱ // 0x163d @0x16
0x1627…1663 at0017 = ╱de╱>╱ // 0x163e @0x17
0x1627…1663 at0018 = ╱36╱6╱ // 0x163f @0x18
0x1627…1663 at0019 = ╱31╱1╱ // 0x1640 @0x19
0x1627…1663 at001a = ╱fe0000f406╱ // 0x1641 @0x1a
0x1627…1663 at001f = ╱da╱ AND ╱ // 0x1646 @0x1f
0x1627…1663 at0020 = ╱4c╱L╱ // 0x1647 @0x20
0x1627…1663 at0021 = ╱41╱A╱ // 0x1648 @0x21
0x1627…1663 at0022 = ╱4e╱N╱ // 0x1649 @0x22
0x1627…1663 at0023 = ╱52╱R╱ // 0x164a @0x23
0x1627…1663 at0024 = ╱dd╱<╱ // 0x164b @0x24
0x1627…1663 at0025 = ╱36╱6╱ // 0x164c @0x25
0x1627…1663 at0026 = ╱35╱5╱ // 0x164d @0x26
0x1627…1663 at0027 = ╱fe00008207╱ // 0x164e @0x27
0x1627…1663 at002c = ╱ee╱)╱ // 0x1653 @0x2c
0x1627…1663 at002d = ╱db╱ OR ╱ // 0x1654 @0x2d
0x1627…1663 at002e = ╱4c╱L╱ // 0x1655 @0x2e
0x1627…1663 at002f = ╱41╱A╱ // 0x1656 @0x2f
0x1627…1663 at0030 = ╱4e╱N╱ // 0x1657 @0x30
0x1627…1663 at0031 = ╱52╱R╱ // 0x1658 @0x31
0x1627…1663 at0032 = ╱dc╱=╱ // 0x1659 @0x32
0x1627…1663 at0033 = ╱37╱7╱ // 0x165a @0x33
0x1627…1663 at0034 = ╱30╱0╱ // 0x165b @0x34
0x1627…1663 at0035 = ╱fe00008c07╱ // 0x165c @0x35
0x1627…1663 at003a = ╱b6╱ THEN ╱ // 0x1661 @0x3a
0x1627…1663 at003b = EOL // 0x1662 @0x3b
0x1627…1663 }
0x1663…1669 a3c0 2790 REPEAT
0x1663…1669 LineComalBin {
0x1663…1669 ptr = 0xa3c0 // 0x1663 @0x0
0x1663…1669 lno = 0x0ae6 // 0x1665 @0x2
0x1663…1669 at0004 = ╱97╱ REPEAT ╱ // 0x1667 @0x4
0x1663…1669 at0005 = EOL // 0x1668 @0x5
0x1663…1669 }
0x1669…166f a3c6 2800 REPEAT
0x1669…166f LineComalBin {
0x1669…166f ptr = 0xa3c6 // 0x1669 @0x0
0x1669…166f lno = 0x0af0 // 0x166b @0x2
0x1669…166f at0004 = ╱97╱ REPEAT ╱ // 0x166d @0x4
0x1669…166f at0005 = EOL // 0x166e @0x5
0x1669…166f }
0x166f…1684 a3db 2810 CURSOR 41,LINIE+V
0x166f…1684 LineComalBin {
0x166f…1684 ptr = 0xa3db // 0x166f @0x0
0x166f…1684 lno = 0x0afa // 0x1671 @0x2
0x166f…1684 at0004 = ╱a1╱ CURSOR ╱ // 0x1673 @0x4
0x166f…1684 at0005 = ╱34╱4╱ // 0x1674 @0x5
0x166f…1684 at0006 = ╱31╱1╱ // 0x1675 @0x6
0x166f…1684 at0007 = ╱fe0000a406╱ // 0x1676 @0x7
0x166f…1684 at000c = ╱ec╱,╱ // 0x167b @0xc
0x166f…1684 at000d = ╱4c╱L╱ // 0x167c @0xd
0x166f…1684 at000e = ╱49╱I╱ // 0x167d @0xe
0x166f…1684 at000f = ╱4e╱N╱ // 0x167e @0xf
0x166f…1684 at0010 = ╱49╱I╱ // 0x167f @0x10
0x166f…1684 at0011 = ╱45╱E╱ // 0x1680 @0x11
0x166f…1684 at0012 = ╱e2╱+╱ // 0x1681 @0x12
0x166f…1684 at0013 = ╱56╱V╱ // 0x1682 @0x13
0x166f…1684 at0014 = EOL // 0x1683 @0x14
0x166f…1684 }
0x1684…16b0 a407 2820 LINE$=SIDE$(FØRST+LINIE,21:7)
0x1684…16b0 LineComalBin {
0x1684…16b0 ptr = 0xa407 // 0x1684 @0x0
0x1684…16b0 lno = 0x0b04 // 0x1686 @0x2
0x1684…16b0 at0004 = ╱4c╱L╱ // 0x1688 @0x4
0x1684…16b0 at0005 = ╱49╱I╱ // 0x1689 @0x5
0x1684…16b0 at0006 = ╱4e╱N╱ // 0x168a @0x6
0x1684…16b0 at0007 = ╱45╱E╱ // 0x168b @0x7
0x1684…16b0 at0008 = ╱ef╱$╱ // 0x168c @0x8
0x1684…16b0 at0009 = ╱dc╱=╱ // 0x168d @0x9
0x1684…16b0 at000a = ╱53╱S╱ // 0x168e @0xa
0x1684…16b0 at000b = ╱49╱I╱ // 0x168f @0xb
0x1684…16b0 at000c = ╱44╱D╱ // 0x1690 @0xc
0x1684…16b0 at000d = ╱45╱E╱ // 0x1691 @0xd
0x1684…16b0 at000e = ╱ef╱$╱ // 0x1692 @0xe
0x1684…16b0 at000f = ╱ed╱(╱ // 0x1693 @0xf
0x1684…16b0 at0010 = ╱46╱F╱ // 0x1694 @0x10
0x1684…16b0 at0011 = ╱5c╱Ø╱ // 0x1695 @0x11
0x1684…16b0 at0012 = ╱52╱R╱ // 0x1696 @0x12
0x1684…16b0 at0013 = ╱53╱S╱ // 0x1697 @0x13
0x1684…16b0 at0014 = ╱54╱T╱ // 0x1698 @0x14
0x1684…16b0 at0015 = ╱e2╱+╱ // 0x1699 @0x15
0x1684…16b0 at0016 = ╱4c╱L╱ // 0x169a @0x16
0x1684…16b0 at0017 = ╱49╱I╱ // 0x169b @0x17
0x1684…16b0 at0018 = ╱4e╱N╱ // 0x169c @0x18
0x1684…16b0 at0019 = ╱49╱I╱ // 0x169d @0x19
0x1684…16b0 at001a = ╱45╱E╱ // 0x169e @0x1a
0x1684…16b0 at001b = ╱ec╱,╱ // 0x169f @0x1b
0x1684…16b0 at001c = ╱32╱2╱ // 0x16a0 @0x1c
0x1684…16b0 at001d = ╱31╱1╱ // 0x16a1 @0x1d
0x1684…16b0 at001e = ╱fe0000a805╱ // 0x16a2 @0x1e
0x1684…16b0 at0023 = ╱f0╱:╱ // 0x16a7 @0x23
0x1684…16b0 at0024 = ╱37╱7╱ // 0x16a8 @0x24
0x1684…16b0 at0025 = ╱fe0000e003╱ // 0x16a9 @0x25
0x1684…16b0 at002a = ╱ee╱)╱ // 0x16ae @0x2a
0x1684…16b0 at002b = EOL // 0x16af @0x2b
0x1684…16b0 }
0x16b0…16d9 a430 2830 IF LINE$(7)="+" THEN LINE$(7)=" "
0x16b0…16d9 LineComalBin {
0x16b0…16d9 ptr = 0xa430 // 0x16b0 @0x0
0x16b0…16d9 lno = 0x0b0e // 0x16b2 @0x2
0x16b0…16d9 at0004 = ╱82╱ IF ╱ // 0x16b4 @0x4
0x16b0…16d9 at0005 = ╱4c╱L╱ // 0x16b5 @0x5
0x16b0…16d9 at0006 = ╱49╱I╱ // 0x16b6 @0x6
0x16b0…16d9 at0007 = ╱4e╱N╱ // 0x16b7 @0x7
0x16b0…16d9 at0008 = ╱45╱E╱ // 0x16b8 @0x8
0x16b0…16d9 at0009 = ╱ef╱$╱ // 0x16b9 @0x9
0x16b0…16d9 at000a = ╱ed╱(╱ // 0x16ba @0xa
0x16b0…16d9 at000b = ╱37╱7╱ // 0x16bb @0xb
0x16b0…16d9 at000c = ╱fe0000e003╱ // 0x16bc @0xc
0x16b0…16d9 at0011 = ╱ee╱)╱ // 0x16c1 @0x11
0x16b0…16d9 at0012 = ╱dc╱=╱ // 0x16c2 @0x12
0x16b0…16d9 at0013 = ╱22╱"╱ // 0x16c3 @0x13
0x16b0…16d9 at0014 = ╱2b╱+╱ // 0x16c4 @0x14
0x16b0…16d9 at0015 = ╱22╱"╱ // 0x16c5 @0x15
0x16b0…16d9 at0016 = ╱b6╱ THEN ╱ // 0x16c6 @0x16
0x16b0…16d9 at0017 = ╱4c╱L╱ // 0x16c7 @0x17
0x16b0…16d9 at0018 = ╱49╱I╱ // 0x16c8 @0x18
0x16b0…16d9 at0019 = ╱4e╱N╱ // 0x16c9 @0x19
0x16b0…16d9 at001a = ╱45╱E╱ // 0x16ca @0x1a
0x16b0…16d9 at001b = ╱ef╱$╱ // 0x16cb @0x1b
0x16b0…16d9 at001c = ╱ed╱(╱ // 0x16cc @0x1c
0x16b0…16d9 at001d = ╱37╱7╱ // 0x16cd @0x1d
0x16b0…16d9 at001e = ╱fe0000e003╱ // 0x16ce @0x1e
0x16b0…16d9 at0023 = ╱ee╱)╱ // 0x16d3 @0x23
0x16b0…16d9 at0024 = ╱dc╱=╱ // 0x16d4 @0x24
0x16b0…16d9 at0025 = ╱22╱"╱ // 0x16d5 @0x25
0x16b0…16d9 at0026 = ╱20╱…╱ // 0x16d6 @0x26
0x16b0…16d9 at0027 = ╱22╱"╱ // 0x16d7 @0x27
0x16b0…16d9 at0028 = EOL // 0x16d8 @0x28
0x16b0…16d9 }
0x16d9…16e7 a43e 2840 EDIT "",LINE$
0x16d9…16e7 LineComalBin {
0x16d9…16e7 ptr = 0xa43e // 0x16d9 @0x0
0x16d9…16e7 lno = 0x0b18 // 0x16db @0x2
0x16d9…16e7 at0004 = ╱b1╱ EDIT ╱ // 0x16dd @0x4
0x16d9…16e7 at0005 = ╱22╱"╱ // 0x16de @0x5
0x16d9…16e7 at0006 = ╱22╱"╱ // 0x16df @0x6
0x16d9…16e7 at0007 = ╱ec╱,╱ // 0x16e0 @0x7
0x16d9…16e7 at0008 = ╱4c╱L╱ // 0x16e1 @0x8
0x16d9…16e7 at0009 = ╱49╱I╱ // 0x16e2 @0x9
0x16d9…16e7 at000a = ╱4e╱N╱ // 0x16e3 @0xa
0x16d9…16e7 at000b = ╱45╱E╱ // 0x16e4 @0xb
0x16d9…16e7 at000c = ╱ef╱$╱ // 0x16e5 @0xc
0x16d9…16e7 at000d = EOL // 0x16e6 @0xd
0x16d9…16e7 }
0x16e7…16fb a452 2850 LINE$=LINE$+"+"
0x16e7…16fb LineComalBin {
0x16e7…16fb ptr = 0xa452 // 0x16e7 @0x0
0x16e7…16fb lno = 0x0b22 // 0x16e9 @0x2
0x16e7…16fb at0004 = ╱4c╱L╱ // 0x16eb @0x4
0x16e7…16fb at0005 = ╱49╱I╱ // 0x16ec @0x5
0x16e7…16fb at0006 = ╱4e╱N╱ // 0x16ed @0x6
0x16e7…16fb at0007 = ╱45╱E╱ // 0x16ee @0x7
0x16e7…16fb at0008 = ╱ef╱$╱ // 0x16ef @0x8
0x16e7…16fb at0009 = ╱dc╱=╱ // 0x16f0 @0x9
0x16e7…16fb at000a = ╱4c╱L╱ // 0x16f1 @0xa
0x16e7…16fb at000b = ╱49╱I╱ // 0x16f2 @0xb
0x16e7…16fb at000c = ╱4e╱N╱ // 0x16f3 @0xc
0x16e7…16fb at000d = ╱45╱E╱ // 0x16f4 @0xd
0x16e7…16fb at000e = ╱ef╱$╱ // 0x16f5 @0xe
0x16e7…16fb at000f = ╱f1╱+╱ // 0x16f6 @0xf
0x16e7…16fb at0010 = ╱22╱"╱ // 0x16f7 @0x10
0x16e7…16fb at0011 = ╱2b╱+╱ // 0x16f8 @0x11
0x16e7…16fb at0012 = ╱22╱"╱ // 0x16f9 @0x12
0x16e7…16fb at0013 = EOL // 0x16fa @0x13
0x16e7…16fb }
0x16fb…171f a476 2860 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x16fb…171f LineComalBin {
0x16fb…171f ptr = 0xa476 // 0x16fb @0x0
0x16fb…171f lno = 0x0b2c // 0x16fd @0x2
0x16fb…171f at0004 = ╱9d╱ EXEC ╱ // 0x16ff @0x4
0x16fb…171f at0005 = ╱43╱C╱ // 0x1700 @0x5
0x16fb…171f at0006 = ╱41╱A╱ // 0x1701 @0x6
0x16fb…171f at0007 = ╱4c╱L╱ // 0x1702 @0x7
0x16fb…171f at0008 = ╱43╱C╱ // 0x1703 @0x8
0x16fb…171f at0009 = ╱ed╱(╱ // 0x1704 @0x9
0x16fb…171f at000a = ╱36╱6╱ // 0x1705 @0xa
0x16fb…171f at000b = ╱fe0000c003╱ // 0x1706 @0xb
0x16fb…171f at0010 = ╱ec╱,╱ // 0x170b @0x10
0x16fb…171f at0011 = ╱4c╱L╱ // 0x170c @0x11
0x16fb…171f at0012 = ╱49╱I╱ // 0x170d @0x12
0x16fb…171f at0013 = ╱4e╱N╱ // 0x170e @0x13
0x16fb…171f at0014 = ╱45╱E╱ // 0x170f @0x14
0x16fb…171f at0015 = ╱ef╱$╱ // 0x1710 @0x15
0x16fb…171f at0016 = ╱ec╱,╱ // 0x1711 @0x16
0x16fb…171f at0017 = ╱54╱T╱ // 0x1712 @0x17
0x16fb…171f at0018 = ╱41╱A╱ // 0x1713 @0x18
0x16fb…171f at0019 = ╱48╱H╱ // 0x1714 @0x19
0x16fb…171f at001a = ╱ef╱$╱ // 0x1715 @0x1a
0x16fb…171f at001b = ╱ec╱,╱ // 0x1716 @0x1b
0x16fb…171f at001c = ╱52╱R╱ // 0x1717 @0x1c
0x16fb…171f at001d = ╱45╱E╱ // 0x1718 @0x1d
0x16fb…171f at001e = ╱53╱S╱ // 0x1719 @0x1e
0x16fb…171f at001f = ╱55╱U╱ // 0x171a @0x1f
0x16fb…171f at0020 = ╱4c╱L╱ // 0x171b @0x20
0x16fb…171f at0021 = ╱ef╱$╱ // 0x171c @0x21
0x16fb…171f at0022 = ╱ee╱)╱ // 0x171d @0x22
0x16fb…171f at0023 = EOL // 0x171e @0x23
0x16fb…171f }
0x171f…172b a482 2870 UNTIL FLAG=B
0x171f…172b LineComalBin {
0x171f…172b ptr = 0xa482 // 0x171f @0x0
0x171f…172b lno = 0x0b36 // 0x1721 @0x2
0x171f…172b at0004 = ╱98╱ UNTIL ╱ // 0x1723 @0x4
0x171f…172b at0005 = ╱46╱F╱ // 0x1724 @0x5
0x171f…172b at0006 = ╱4c╱L╱ // 0x1725 @0x6
0x171f…172b at0007 = ╱41╱A╱ // 0x1726 @0x7
0x171f…172b at0008 = ╱47╱G╱ // 0x1727 @0x8
0x171f…172b at0009 = ╱dc╱=╱ // 0x1728 @0x9
0x171f…172b at000a = ╱42╱B╱ // 0x1729 @0xa
0x171f…172b at000b = EOL // 0x172a @0xb
0x171f…172b }
0x172b…174f a4a6 2880 EXEC CALC(4,RESUL$,MAX1$,MAX$)
0x172b…174f LineComalBin {
0x172b…174f ptr = 0xa4a6 // 0x172b @0x0
0x172b…174f lno = 0x0b40 // 0x172d @0x2
0x172b…174f at0004 = ╱9d╱ EXEC ╱ // 0x172f @0x4
0x172b…174f at0005 = ╱43╱C╱ // 0x1730 @0x5
0x172b…174f at0006 = ╱41╱A╱ // 0x1731 @0x6
0x172b…174f at0007 = ╱4c╱L╱ // 0x1732 @0x7
0x172b…174f at0008 = ╱43╱C╱ // 0x1733 @0x8
0x172b…174f at0009 = ╱ed╱(╱ // 0x1734 @0x9
0x172b…174f at000a = ╱34╱4╱ // 0x1735 @0xa
0x172b…174f at000b = ╱fe00008003╱ // 0x1736 @0xb
0x172b…174f at0010 = ╱ec╱,╱ // 0x173b @0x10
0x172b…174f at0011 = ╱52╱R╱ // 0x173c @0x11
0x172b…174f at0012 = ╱45╱E╱ // 0x173d @0x12
0x172b…174f at0013 = ╱53╱S╱ // 0x173e @0x13
0x172b…174f at0014 = ╱55╱U╱ // 0x173f @0x14
0x172b…174f at0015 = ╱4c╱L╱ // 0x1740 @0x15
0x172b…174f at0016 = ╱ef╱$╱ // 0x1741 @0x16
0x172b…174f at0017 = ╱ec╱,╱ // 0x1742 @0x17
0x172b…174f at0018 = ╱4d╱M╱ // 0x1743 @0x18
0x172b…174f at0019 = ╱41╱A╱ // 0x1744 @0x19
0x172b…174f at001a = ╱58╱X╱ // 0x1745 @0x1a
0x172b…174f at001b = ╱31╱1╱ // 0x1746 @0x1b
0x172b…174f at001c = ╱ef╱$╱ // 0x1747 @0x1c
0x172b…174f at001d = ╱ec╱,╱ // 0x1748 @0x1d
0x172b…174f at001e = ╱4d╱M╱ // 0x1749 @0x1e
0x172b…174f at001f = ╱41╱A╱ // 0x174a @0x1f
0x172b…174f at0020 = ╱58╱X╱ // 0x174b @0x20
0x172b…174f at0021 = ╱ef╱$╱ // 0x174c @0x21
0x172b…174f at0022 = ╱ee╱)╱ // 0x174d @0x22
0x172b…174f at0023 = EOL // 0x174e @0x23
0x172b…174f }
0x174f…1759 a4b0 2890 UNTIL SI=E
0x174f…1759 LineComalBin {
0x174f…1759 ptr = 0xa4b0 // 0x174f @0x0
0x174f…1759 lno = 0x0b4a // 0x1751 @0x2
0x174f…1759 at0004 = ╱98╱ UNTIL ╱ // 0x1753 @0x4
0x174f…1759 at0005 = ╱53╱S╱ // 0x1754 @0x5
0x174f…1759 at0006 = ╱49╱I╱ // 0x1755 @0x6
0x174f…1759 at0007 = ╱dc╱=╱ // 0x1756 @0x7
0x174f…1759 at0008 = ╱45╱E╱ // 0x1757 @0x8
0x174f…1759 at0009 = EOL // 0x1758 @0x9
0x174f…1759 }
0x1759…1795 a4ec 2900 SIDE$(FØRST+LINIE,21:7)=RESUL$(6:7)
0x1759…1795 LineComalBin {
0x1759…1795 ptr = 0xa4ec // 0x1759 @0x0
0x1759…1795 lno = 0x0b54 // 0x175b @0x2
0x1759…1795 at0004 = ╱53╱S╱ // 0x175d @0x4
0x1759…1795 at0005 = ╱49╱I╱ // 0x175e @0x5
0x1759…1795 at0006 = ╱44╱D╱ // 0x175f @0x6
0x1759…1795 at0007 = ╱45╱E╱ // 0x1760 @0x7
0x1759…1795 at0008 = ╱ef╱$╱ // 0x1761 @0x8
0x1759…1795 at0009 = ╱ed╱(╱ // 0x1762 @0x9
0x1759…1795 at000a = ╱46╱F╱ // 0x1763 @0xa
0x1759…1795 at000b = ╱5c╱Ø╱ // 0x1764 @0xb
0x1759…1795 at000c = ╱52╱R╱ // 0x1765 @0xc
0x1759…1795 at000d = ╱53╱S╱ // 0x1766 @0xd
0x1759…1795 at000e = ╱54╱T╱ // 0x1767 @0xe
0x1759…1795 at000f = ╱e2╱+╱ // 0x1768 @0xf
0x1759…1795 at0010 = ╱4c╱L╱ // 0x1769 @0x10
0x1759…1795 at0011 = ╱49╱I╱ // 0x176a @0x11
0x1759…1795 at0012 = ╱4e╱N╱ // 0x176b @0x12
0x1759…1795 at0013 = ╱49╱I╱ // 0x176c @0x13
0x1759…1795 at0014 = ╱45╱E╱ // 0x176d @0x14
0x1759…1795 at0015 = ╱ec╱,╱ // 0x176e @0x15
0x1759…1795 at0016 = ╱32╱2╱ // 0x176f @0x16
0x1759…1795 at0017 = ╱31╱1╱ // 0x1770 @0x17
0x1759…1795 at0018 = ╱fe0000a805╱ // 0x1771 @0x18
0x1759…1795 at001d = ╱f0╱:╱ // 0x1776 @0x1d
0x1759…1795 at001e = ╱37╱7╱ // 0x1777 @0x1e
0x1759…1795 at001f = ╱fe0000e003╱ // 0x1778 @0x1f
0x1759…1795 at0024 = ╱ee╱)╱ // 0x177d @0x24
0x1759…1795 at0025 = ╱dc╱=╱ // 0x177e @0x25
0x1759…1795 at0026 = ╱52╱R╱ // 0x177f @0x26
0x1759…1795 at0027 = ╱45╱E╱ // 0x1780 @0x27
0x1759…1795 at0028 = ╱53╱S╱ // 0x1781 @0x28
0x1759…1795 at0029 = ╱55╱U╱ // 0x1782 @0x29
0x1759…1795 at002a = ╱4c╱L╱ // 0x1783 @0x2a
0x1759…1795 at002b = ╱ef╱$╱ // 0x1784 @0x2b
0x1759…1795 at002c = ╱ed╱(╱ // 0x1785 @0x2c
0x1759…1795 at002d = ╱36╱6╱ // 0x1786 @0x2d
0x1759…1795 at002e = ╱fe0000c003╱ // 0x1787 @0x2e
0x1759…1795 at0033 = ╱f0╱:╱ // 0x178c @0x33
0x1759…1795 at0034 = ╱37╱7╱ // 0x178d @0x34
0x1759…1795 at0035 = ╱fe0000e003╱ // 0x178e @0x35
0x1759…1795 at003a = ╱ee╱)╱ // 0x1793 @0x3a
0x1759…1795 at003b = EOL // 0x1794 @0x3b
0x1759…1795 }
0x1795…17b8 a50f 2910 EXEC CALC(4,RESUL$,TAH$,MAX$)
0x1795…17b8 LineComalBin {
0x1795…17b8 ptr = 0xa50f // 0x1795 @0x0
0x1795…17b8 lno = 0x0b5e // 0x1797 @0x2
0x1795…17b8 at0004 = ╱9d╱ EXEC ╱ // 0x1799 @0x4
0x1795…17b8 at0005 = ╱43╱C╱ // 0x179a @0x5
0x1795…17b8 at0006 = ╱41╱A╱ // 0x179b @0x6
0x1795…17b8 at0007 = ╱4c╱L╱ // 0x179c @0x7
0x1795…17b8 at0008 = ╱43╱C╱ // 0x179d @0x8
0x1795…17b8 at0009 = ╱ed╱(╱ // 0x179e @0x9
0x1795…17b8 at000a = ╱34╱4╱ // 0x179f @0xa
0x1795…17b8 at000b = ╱fe00008003╱ // 0x17a0 @0xb
0x1795…17b8 at0010 = ╱ec╱,╱ // 0x17a5 @0x10
0x1795…17b8 at0011 = ╱52╱R╱ // 0x17a6 @0x11
0x1795…17b8 at0012 = ╱45╱E╱ // 0x17a7 @0x12
0x1795…17b8 at0013 = ╱53╱S╱ // 0x17a8 @0x13
0x1795…17b8 at0014 = ╱55╱U╱ // 0x17a9 @0x14
0x1795…17b8 at0015 = ╱4c╱L╱ // 0x17aa @0x15
0x1795…17b8 at0016 = ╱ef╱$╱ // 0x17ab @0x16
0x1795…17b8 at0017 = ╱ec╱,╱ // 0x17ac @0x17
0x1795…17b8 at0018 = ╱54╱T╱ // 0x17ad @0x18
0x1795…17b8 at0019 = ╱41╱A╱ // 0x17ae @0x19
0x1795…17b8 at001a = ╱48╱H╱ // 0x17af @0x1a
0x1795…17b8 at001b = ╱ef╱$╱ // 0x17b0 @0x1b
0x1795…17b8 at001c = ╱ec╱,╱ // 0x17b1 @0x1c
0x1795…17b8 at001d = ╱4d╱M╱ // 0x17b2 @0x1d
0x1795…17b8 at001e = ╱41╱A╱ // 0x17b3 @0x1e
0x1795…17b8 at001f = ╱58╱X╱ // 0x17b4 @0x1f
0x1795…17b8 at0020 = ╱ef╱$╱ // 0x17b5 @0x20
0x1795…17b8 at0021 = ╱ee╱)╱ // 0x17b6 @0x21
0x1795…17b8 at0022 = EOL // 0x17b7 @0x22
0x1795…17b8 }
0x17b8…17c3 a51a 2920 IF SI=B THEN
0x17b8…17c3 LineComalBin {
0x17b8…17c3 ptr = 0xa51a // 0x17b8 @0x0
0x17b8…17c3 lno = 0x0b68 // 0x17ba @0x2
0x17b8…17c3 at0004 = ╱9c╱ IF ╱ // 0x17bc @0x4
0x17b8…17c3 at0005 = ╱53╱S╱ // 0x17bd @0x5
0x17b8…17c3 at0006 = ╱49╱I╱ // 0x17be @0x6
0x17b8…17c3 at0007 = ╱dc╱=╱ // 0x17bf @0x7
0x17b8…17c3 at0008 = ╱42╱B╱ // 0x17c0 @0x8
0x17b8…17c3 at0009 = ╱b6╱ THEN ╱ // 0x17c1 @0x9
0x17b8…17c3 at000a = EOL // 0x17c2 @0xa
0x17b8…17c3 }
0x17c3…17ce (79,) a525 2930 SATS=B
0x17c3…17ce LineComalBin {
0x17c3…17ce ptr = 0xa525 // 0x17c3 @0x0
0x17c3…17ce lno = 0x0b72 // 0x17c5 @0x2
0x17c3…17ce at0004 = ╱53╱S╱ // 0x17c7 @0x4
0x17c3…17ce at0005 = ╱41╱A╱ // 0x17c8 @0x5
0x17c3…17ce at0006 = ╱54╱T╱ // 0x17c9 @0x6
0x17c3…17ce at0007 = ╱53╱S╱ // 0x17ca @0x7
0x17c3…17ce at0008 = ╱dc╱=╱ // 0x17cb @0x8
0x17c3…17ce at0009 = ╱42╱B╱ // 0x17cc @0x9
0x17c3…17ce at000a = EOL // 0x17cd @0xa
0x17c3…17ce }
0x17ce…17d4 a52b 2940 ELSE
0x17ce…17d4 LineComalBin {
0x17ce…17d4 ptr = 0xa52b // 0x17ce @0x0
0x17ce…17d4 lno = 0x0b7c // 0x17d0 @0x2
0x17ce…17d4 at0004 = ╱9a╱ ELSE ╱ // 0x17d2 @0x4
0x17ce…17d4 at0005 = EOL // 0x17d3 @0x5
0x17ce…17d4 }
0x17d4…17df a536 2950 SATS=E
0x17d4…17df LineComalBin {
0x17d4…17df ptr = 0xa536 // 0x17d4 @0x0
0x17d4…17df lno = 0x0b86 // 0x17d6 @0x2
0x17d4…17df at0004 = ╱53╱S╱ // 0x17d8 @0x4
0x17d4…17df at0005 = ╱41╱A╱ // 0x17d9 @0x5
0x17d4…17df at0006 = ╱54╱T╱ // 0x17da @0x6
0x17d4…17df at0007 = ╱53╱S╱ // 0x17db @0x7
0x17d4…17df at0008 = ╱dc╱=╱ // 0x17dc @0x8
0x17d4…17df at0009 = ╱45╱E╱ // 0x17dd @0x9
0x17d4…17df at000a = EOL // 0x17de @0xa
0x17d4…17df }
0x17df…17e5 a53c 2960 ENDIF
0x17df…17e5 LineComalBin {
0x17df…17e5 ptr = 0xa53c // 0x17df @0x0
0x17df…17e5 lno = 0x0b90 // 0x17e1 @0x2
0x17df…17e5 at0004 = ╱9b╱ ENDIF ╱ // 0x17e3 @0x4
0x17df…17e5 at0005 = EOL // 0x17e4 @0x5
0x17df…17e5 }
0x17e5…17eb a542 2970 ELSE
0x17e5…17eb LineComalBin {
0x17e5…17eb ptr = 0xa542 // 0x17e5 @0x0
0x17e5…17eb lno = 0x0b9a // 0x17e7 @0x2
0x17e5…17eb at0004 = ╱9a╱ ELSE ╱ // 0x17e9 @0x4
0x17e5…17eb at0005 = EOL // 0x17ea @0x5
0x17e5…17eb }
0x17eb…17f6 a54d 2980 SATS=B
0x17eb…17f6 LineComalBin {
0x17eb…17f6 ptr = 0xa54d // 0x17eb @0x0
0x17eb…17f6 lno = 0x0ba4 // 0x17ed @0x2
0x17eb…17f6 at0004 = ╱53╱S╱ // 0x17ef @0x4
0x17eb…17f6 at0005 = ╱41╱A╱ // 0x17f0 @0x5
0x17eb…17f6 at0006 = ╱54╱T╱ // 0x17f1 @0x6
0x17eb…17f6 at0007 = ╱53╱S╱ // 0x17f2 @0x7
0x17eb…17f6 at0008 = ╱dc╱=╱ // 0x17f3 @0x8
0x17eb…17f6 at0009 = ╱42╱B╱ // 0x17f4 @0x9
0x17eb…17f6 at000a = EOL // 0x17f5 @0xa
0x17eb…17f6 }
0x17f6…1826 a57d 2990 SIDE$(FØRST+LINIE,21:7)=" "
0x17f6…1826 LineComalBin {
0x17f6…1826 ptr = 0xa57d // 0x17f6 @0x0
0x17f6…1826 lno = 0x0bae // 0x17f8 @0x2
0x17f6…1826 at0004 = ╱53╱S╱ // 0x17fa @0x4
0x17f6…1826 at0005 = ╱49╱I╱ // 0x17fb @0x5
0x17f6…1826 at0006 = ╱44╱D╱ // 0x17fc @0x6
0x17f6…1826 at0007 = ╱45╱E╱ // 0x17fd @0x7
0x17f6…1826 at0008 = ╱ef╱$╱ // 0x17fe @0x8
0x17f6…1826 at0009 = ╱ed╱(╱ // 0x17ff @0x9
0x17f6…1826 at000a = ╱46╱F╱ // 0x1800 @0xa
0x17f6…1826 at000b = ╱5c╱Ø╱ // 0x1801 @0xb
0x17f6…1826 at000c = ╱52╱R╱ // 0x1802 @0xc
0x17f6…1826 at000d = ╱53╱S╱ // 0x1803 @0xd
0x17f6…1826 at000e = ╱54╱T╱ // 0x1804 @0xe
0x17f6…1826 at000f = ╱e2╱+╱ // 0x1805 @0xf
0x17f6…1826 at0010 = ╱4c╱L╱ // 0x1806 @0x10
0x17f6…1826 at0011 = ╱49╱I╱ // 0x1807 @0x11
0x17f6…1826 at0012 = ╱4e╱N╱ // 0x1808 @0x12
0x17f6…1826 at0013 = ╱49╱I╱ // 0x1809 @0x13
0x17f6…1826 at0014 = ╱45╱E╱ // 0x180a @0x14
0x17f6…1826 at0015 = ╱ec╱,╱ // 0x180b @0x15
0x17f6…1826 at0016 = ╱32╱2╱ // 0x180c @0x16
0x17f6…1826 at0017 = ╱31╱1╱ // 0x180d @0x17
0x17f6…1826 at0018 = ╱fe0000a805╱ // 0x180e @0x18
0x17f6…1826 at001d = ╱f0╱:╱ // 0x1813 @0x1d
0x17f6…1826 at001e = ╱37╱7╱ // 0x1814 @0x1e
0x17f6…1826 at001f = ╱fe0000e003╱ // 0x1815 @0x1f
0x17f6…1826 at0024 = ╱ee╱)╱ // 0x181a @0x24
0x17f6…1826 at0025 = ╱dc╱=╱ // 0x181b @0x25
0x17f6…1826 at0026 = ╱22╱"╱ // 0x181c @0x26
0x17f6…1826 at0027 = ╱20╱…╱ // 0x181d @0x27
0x17f6…1826 at0028 = ╱20╱…╱ // 0x181e @0x28
0x17f6…1826 at0029 = ╱20╱…╱ // 0x181f @0x29
0x17f6…1826 at002a = ╱20╱…╱ // 0x1820 @0x2a
0x17f6…1826 at002b = ╱20╱…╱ // 0x1821 @0x2b
0x17f6…1826 at002c = ╱20╱…╱ // 0x1822 @0x2c
0x17f6…1826 at002d = ╱20╱…╱ // 0x1823 @0x2d
0x17f6…1826 at002e = ╱22╱"╱ // 0x1824 @0x2e
0x17f6…1826 at002f = EOL // 0x1825 @0x2f
0x17f6…1826 }
0x1826…182c a583 3000 ENDIF
0x1826…182c LineComalBin {
0x1826…182c ptr = 0xa583 // 0x1826 @0x0
0x1826…182c lno = 0x0bb8 // 0x1828 @0x2
0x1826…182c at0004 = ╱9b╱ ENDIF ╱ // 0x182a @0x4
0x1826…182c at0005 = EOL // 0x182b @0x5
0x1826…182c }
0x182c…1857 a5ae 3010 IF LANR<71 AND ENH*SATS=B AND LANR<>60 THEN
0x182c…1857 LineComalBin {
0x182c…1857 ptr = 0xa5ae // 0x182c @0x0
0x182c…1857 lno = 0x0bc2 // 0x182e @0x2
0x182c…1857 at0004 = ╱9c╱ IF ╱ // 0x1830 @0x4
0x182c…1857 at0005 = ╱4c╱L╱ // 0x1831 @0x5
0x182c…1857 at0006 = ╱41╱A╱ // 0x1832 @0x6
0x182c…1857 at0007 = ╱4e╱N╱ // 0x1833 @0x7
0x182c…1857 at0008 = ╱52╱R╱ // 0x1834 @0x8
0x182c…1857 at0009 = ╱dd╱<╱ // 0x1835 @0x9
0x182c…1857 at000a = ╱37╱7╱ // 0x1836 @0xa
0x182c…1857 at000b = ╱31╱1╱ // 0x1837 @0xb
0x182c…1857 at000c = ╱fe00008e07╱ // 0x1838 @0xc
0x182c…1857 at0011 = ╱da╱ AND ╱ // 0x183d @0x11
0x182c…1857 at0012 = ╱45╱E╱ // 0x183e @0x12
0x182c…1857 at0013 = ╱4e╱N╱ // 0x183f @0x13
0x182c…1857 at0014 = ╱48╱H╱ // 0x1840 @0x14
0x182c…1857 at0015 = ╱e4╱*╱ // 0x1841 @0x15
0x182c…1857 at0016 = ╱53╱S╱ // 0x1842 @0x16
0x182c…1857 at0017 = ╱41╱A╱ // 0x1843 @0x17
0x182c…1857 at0018 = ╱54╱T╱ // 0x1844 @0x18
0x182c…1857 at0019 = ╱53╱S╱ // 0x1845 @0x19
0x182c…1857 at001a = ╱dc╱=╱ // 0x1846 @0x1a
0x182c…1857 at001b = ╱42╱B╱ // 0x1847 @0x1b
0x182c…1857 at001c = ╱da╱ AND ╱ // 0x1848 @0x1c
0x182c…1857 at001d = ╱4c╱L╱ // 0x1849 @0x1d
0x182c…1857 at001e = ╱41╱A╱ // 0x184a @0x1e
0x182c…1857 at001f = ╱4e╱N╱ // 0x184b @0x1f
0x182c…1857 at0020 = ╱52╱R╱ // 0x184c @0x20
0x182c…1857 at0021 = ╱e1╱<>╱ // 0x184d @0x21
0x182c…1857 at0022 = ╱36╱6╱ // 0x184e @0x22
0x182c…1857 at0023 = ╱30╱0╱ // 0x184f @0x23
0x182c…1857 at0024 = ╱fe0000f006╱ // 0x1850 @0x24
0x182c…1857 at0029 = ╱b6╱ THEN ╱ // 0x1855 @0x29
0x182c…1857 at002a = EOL // 0x1856 @0x2a
0x182c…1857 }
0x1857…185d a5b4 3020 REPEAT
0x1857…185d LineComalBin {
0x1857…185d ptr = 0xa5b4 // 0x1857 @0x0
0x1857…185d lno = 0x0bcc // 0x1859 @0x2
0x1857…185d at0004 = ╱97╱ REPEAT ╱ // 0x185b @0x4
0x1857…185d at0005 = EOL // 0x185c @0x5
0x1857…185d }
0x185d…1863 (81,) a5ba 3030 REPEAT
0x185d…1863 LineComalBin {
0x185d…1863 ptr = 0xa5ba // 0x185d @0x0
0x185d…1863 lno = 0x0bd6 // 0x185f @0x2
0x185d…1863 at0004 = ╱97╱ REPEAT ╱ // 0x1861 @0x4
0x185d…1863 at0005 = EOL // 0x1862 @0x5
0x185d…1863 }
0x1863…1878 a5cf 3040 CURSOR 51,LINIE+V
0x1863…1878 LineComalBin {
0x1863…1878 ptr = 0xa5cf // 0x1863 @0x0
0x1863…1878 lno = 0x0be0 // 0x1865 @0x2
0x1863…1878 at0004 = ╱a1╱ CURSOR ╱ // 0x1867 @0x4
0x1863…1878 at0005 = ╱35╱5╱ // 0x1868 @0x5
0x1863…1878 at0006 = ╱31╱1╱ // 0x1869 @0x6
0x1863…1878 at0007 = ╱fe0000cc06╱ // 0x186a @0x7
0x1863…1878 at000c = ╱ec╱,╱ // 0x186f @0xc
0x1863…1878 at000d = ╱4c╱L╱ // 0x1870 @0xd
0x1863…1878 at000e = ╱49╱I╱ // 0x1871 @0xe
0x1863…1878 at000f = ╱4e╱N╱ // 0x1872 @0xf
0x1863…1878 at0010 = ╱49╱I╱ // 0x1873 @0x10
0x1863…1878 at0011 = ╱45╱E╱ // 0x1874 @0x11
0x1863…1878 at0012 = ╱e2╱+╱ // 0x1875 @0x12
0x1863…1878 at0013 = ╱56╱V╱ // 0x1876 @0x13
0x1863…1878 at0014 = EOL // 0x1877 @0x14
0x1863…1878 }
0x1878…18a5 a5fc 3050 LINE$=SIDE$(FØRST+LINIE,28:10)
0x1878…18a5 LineComalBin {
0x1878…18a5 ptr = 0xa5fc // 0x1878 @0x0
0x1878…18a5 lno = 0x0bea // 0x187a @0x2
0x1878…18a5 at0004 = ╱4c╱L╱ // 0x187c @0x4
0x1878…18a5 at0005 = ╱49╱I╱ // 0x187d @0x5
0x1878…18a5 at0006 = ╱4e╱N╱ // 0x187e @0x6
0x1878…18a5 at0007 = ╱45╱E╱ // 0x187f @0x7
0x1878…18a5 at0008 = ╱ef╱$╱ // 0x1880 @0x8
0x1878…18a5 at0009 = ╱dc╱=╱ // 0x1881 @0x9
0x1878…18a5 at000a = ╱53╱S╱ // 0x1882 @0xa
0x1878…18a5 at000b = ╱49╱I╱ // 0x1883 @0xb
0x1878…18a5 at000c = ╱44╱D╱ // 0x1884 @0xc
0x1878…18a5 at000d = ╱45╱E╱ // 0x1885 @0xd
0x1878…18a5 at000e = ╱ef╱$╱ // 0x1886 @0xe
0x1878…18a5 at000f = ╱ed╱(╱ // 0x1887 @0xf
0x1878…18a5 at0010 = ╱46╱F╱ // 0x1888 @0x10
0x1878…18a5 at0011 = ╱5c╱Ø╱ // 0x1889 @0x11
0x1878…18a5 at0012 = ╱52╱R╱ // 0x188a @0x12
0x1878…18a5 at0013 = ╱53╱S╱ // 0x188b @0x13
0x1878…18a5 at0014 = ╱54╱T╱ // 0x188c @0x14
0x1878…18a5 at0015 = ╱e2╱+╱ // 0x188d @0x15
0x1878…18a5 at0016 = ╱4c╱L╱ // 0x188e @0x16
0x1878…18a5 at0017 = ╱49╱I╱ // 0x188f @0x17
0x1878…18a5 at0018 = ╱4e╱N╱ // 0x1890 @0x18
0x1878…18a5 at0019 = ╱49╱I╱ // 0x1891 @0x19
0x1878…18a5 at001a = ╱45╱E╱ // 0x1892 @0x1a
0x1878…18a5 at001b = ╱ec╱,╱ // 0x1893 @0x1b
0x1878…18a5 at001c = ╱32╱2╱ // 0x1894 @0x1c
0x1878…18a5 at001d = ╱38╱8╱ // 0x1895 @0x1d
0x1878…18a5 at001e = ╱fe0000e005╱ // 0x1896 @0x1e
0x1878…18a5 at0023 = ╱f0╱:╱ // 0x189b @0x23
0x1878…18a5 at0024 = ╱31╱1╱ // 0x189c @0x24
0x1878…18a5 at0025 = ╱30╱0╱ // 0x189d @0x25
0x1878…18a5 at0026 = ╱fe0000a004╱ // 0x189e @0x26
0x1878…18a5 at002b = ╱ee╱)╱ // 0x18a3 @0x2b
0x1878…18a5 at002c = EOL // 0x18a4 @0x2c
0x1878…18a5 }
0x18a5…18d0 a627 3060 IF LINE$(10)="+" THEN LINE$(10)=" "
0x18a5…18d0 LineComalBin {
0x18a5…18d0 ptr = 0xa627 // 0x18a5 @0x0
0x18a5…18d0 lno = 0x0bf4 // 0x18a7 @0x2
0x18a5…18d0 at0004 = ╱82╱ IF ╱ // 0x18a9 @0x4
0x18a5…18d0 at0005 = ╱4c╱L╱ // 0x18aa @0x5
0x18a5…18d0 at0006 = ╱49╱I╱ // 0x18ab @0x6
0x18a5…18d0 at0007 = ╱4e╱N╱ // 0x18ac @0x7
0x18a5…18d0 at0008 = ╱45╱E╱ // 0x18ad @0x8
0x18a5…18d0 at0009 = ╱ef╱$╱ // 0x18ae @0x9
0x18a5…18d0 at000a = ╱ed╱(╱ // 0x18af @0xa
0x18a5…18d0 at000b = ╱31╱1╱ // 0x18b0 @0xb
0x18a5…18d0 at000c = ╱30╱0╱ // 0x18b1 @0xc
0x18a5…18d0 at000d = ╱fe0000a004╱ // 0x18b2 @0xd
0x18a5…18d0 at0012 = ╱ee╱)╱ // 0x18b7 @0x12
0x18a5…18d0 at0013 = ╱dc╱=╱ // 0x18b8 @0x13
0x18a5…18d0 at0014 = ╱22╱"╱ // 0x18b9 @0x14
0x18a5…18d0 at0015 = ╱2b╱+╱ // 0x18ba @0x15
0x18a5…18d0 at0016 = ╱22╱"╱ // 0x18bb @0x16
0x18a5…18d0 at0017 = ╱b6╱ THEN ╱ // 0x18bc @0x17
0x18a5…18d0 at0018 = ╱4c╱L╱ // 0x18bd @0x18
0x18a5…18d0 at0019 = ╱49╱I╱ // 0x18be @0x19
0x18a5…18d0 at001a = ╱4e╱N╱ // 0x18bf @0x1a
0x18a5…18d0 at001b = ╱45╱E╱ // 0x18c0 @0x1b
0x18a5…18d0 at001c = ╱ef╱$╱ // 0x18c1 @0x1c
0x18a5…18d0 at001d = ╱ed╱(╱ // 0x18c2 @0x1d
0x18a5…18d0 at001e = ╱31╱1╱ // 0x18c3 @0x1e
0x18a5…18d0 at001f = ╱30╱0╱ // 0x18c4 @0x1f
0x18a5…18d0 at0020 = ╱fe0000a004╱ // 0x18c5 @0x20
0x18a5…18d0 at0025 = ╱ee╱)╱ // 0x18ca @0x25
0x18a5…18d0 at0026 = ╱dc╱=╱ // 0x18cb @0x26
0x18a5…18d0 at0027 = ╱22╱"╱ // 0x18cc @0x27
0x18a5…18d0 at0028 = ╱20╱…╱ // 0x18cd @0x28
0x18a5…18d0 at0029 = ╱22╱"╱ // 0x18ce @0x29
0x18a5…18d0 at002a = EOL // 0x18cf @0x2a
0x18a5…18d0 }
0x18d0…18de a635 3070 EDIT "",LINE$
0x18d0…18de LineComalBin {
0x18d0…18de ptr = 0xa635 // 0x18d0 @0x0
0x18d0…18de lno = 0x0bfe // 0x18d2 @0x2
0x18d0…18de at0004 = ╱b1╱ EDIT ╱ // 0x18d4 @0x4
0x18d0…18de at0005 = ╱22╱"╱ // 0x18d5 @0x5
0x18d0…18de at0006 = ╱22╱"╱ // 0x18d6 @0x6
0x18d0…18de at0007 = ╱ec╱,╱ // 0x18d7 @0x7
0x18d0…18de at0008 = ╱4c╱L╱ // 0x18d8 @0x8
0x18d0…18de at0009 = ╱49╱I╱ // 0x18d9 @0x9
0x18d0…18de at000a = ╱4e╱N╱ // 0x18da @0xa
0x18d0…18de at000b = ╱45╱E╱ // 0x18db @0xb
0x18d0…18de at000c = ╱ef╱$╱ // 0x18dc @0xc
0x18d0…18de at000d = EOL // 0x18dd @0xd
0x18d0…18de }
0x18de…18f2 a649 3080 LINE$=LINE$+"+"
0x18de…18f2 LineComalBin {
0x18de…18f2 ptr = 0xa649 // 0x18de @0x0
0x18de…18f2 lno = 0x0c08 // 0x18e0 @0x2
0x18de…18f2 at0004 = ╱4c╱L╱ // 0x18e2 @0x4
0x18de…18f2 at0005 = ╱49╱I╱ // 0x18e3 @0x5
0x18de…18f2 at0006 = ╱4e╱N╱ // 0x18e4 @0x6
0x18de…18f2 at0007 = ╱45╱E╱ // 0x18e5 @0x7
0x18de…18f2 at0008 = ╱ef╱$╱ // 0x18e6 @0x8
0x18de…18f2 at0009 = ╱dc╱=╱ // 0x18e7 @0x9
0x18de…18f2 at000a = ╱4c╱L╱ // 0x18e8 @0xa
0x18de…18f2 at000b = ╱49╱I╱ // 0x18e9 @0xb
0x18de…18f2 at000c = ╱4e╱N╱ // 0x18ea @0xc
0x18de…18f2 at000d = ╱45╱E╱ // 0x18eb @0xd
0x18de…18f2 at000e = ╱ef╱$╱ // 0x18ec @0xe
0x18de…18f2 at000f = ╱f1╱+╱ // 0x18ed @0xf
0x18de…18f2 at0010 = ╱22╱"╱ // 0x18ee @0x10
0x18de…18f2 at0011 = ╱2b╱+╱ // 0x18ef @0x11
0x18de…18f2 at0012 = ╱22╱"╱ // 0x18f0 @0x12
0x18de…18f2 at0013 = EOL // 0x18f1 @0x13
0x18de…18f2 }
0x18f2…1916 a66d 3090 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x18f2…1916 LineComalBin {
0x18f2…1916 ptr = 0xa66d // 0x18f2 @0x0
0x18f2…1916 lno = 0x0c12 // 0x18f4 @0x2
0x18f2…1916 at0004 = ╱9d╱ EXEC ╱ // 0x18f6 @0x4
0x18f2…1916 at0005 = ╱43╱C╱ // 0x18f7 @0x5
0x18f2…1916 at0006 = ╱41╱A╱ // 0x18f8 @0x6
0x18f2…1916 at0007 = ╱4c╱L╱ // 0x18f9 @0x7
0x18f2…1916 at0008 = ╱43╱C╱ // 0x18fa @0x8
0x18f2…1916 at0009 = ╱ed╱(╱ // 0x18fb @0x9
0x18f2…1916 at000a = ╱36╱6╱ // 0x18fc @0xa
0x18f2…1916 at000b = ╱fe0000c003╱ // 0x18fd @0xb
0x18f2…1916 at0010 = ╱ec╱,╱ // 0x1902 @0x10
0x18f2…1916 at0011 = ╱4c╱L╱ // 0x1903 @0x11
0x18f2…1916 at0012 = ╱49╱I╱ // 0x1904 @0x12
0x18f2…1916 at0013 = ╱4e╱N╱ // 0x1905 @0x13
0x18f2…1916 at0014 = ╱45╱E╱ // 0x1906 @0x14
0x18f2…1916 at0015 = ╱ef╱$╱ // 0x1907 @0x15
0x18f2…1916 at0016 = ╱ec╱,╱ // 0x1908 @0x16
0x18f2…1916 at0017 = ╱54╱T╱ // 0x1909 @0x17
0x18f2…1916 at0018 = ╱41╱A╱ // 0x190a @0x18
0x18f2…1916 at0019 = ╱48╱H╱ // 0x190b @0x19
0x18f2…1916 at001a = ╱ef╱$╱ // 0x190c @0x1a
0x18f2…1916 at001b = ╱ec╱,╱ // 0x190d @0x1b
0x18f2…1916 at001c = ╱52╱R╱ // 0x190e @0x1c
0x18f2…1916 at001d = ╱45╱E╱ // 0x190f @0x1d
0x18f2…1916 at001e = ╱53╱S╱ // 0x1910 @0x1e
0x18f2…1916 at001f = ╱55╱U╱ // 0x1911 @0x1f
0x18f2…1916 at0020 = ╱4c╱L╱ // 0x1912 @0x20
0x18f2…1916 at0021 = ╱ef╱$╱ // 0x1913 @0x21
0x18f2…1916 at0022 = ╱ee╱)╱ // 0x1914 @0x22
0x18f2…1916 at0023 = EOL // 0x1915 @0x23
0x18f2…1916 }
0x1916…1922 a679 3100 UNTIL FLAG=B
0x1916…1922 LineComalBin {
0x1916…1922 ptr = 0xa679 // 0x1916 @0x0
0x1916…1922 lno = 0x0c1c // 0x1918 @0x2
0x1916…1922 at0004 = ╱98╱ UNTIL ╱ // 0x191a @0x4
0x1916…1922 at0005 = ╱46╱F╱ // 0x191b @0x5
0x1916…1922 at0006 = ╱4c╱L╱ // 0x191c @0x6
0x1916…1922 at0007 = ╱41╱A╱ // 0x191d @0x7
0x1916…1922 at0008 = ╱47╱G╱ // 0x191e @0x8
0x1916…1922 at0009 = ╱dc╱=╱ // 0x191f @0x9
0x1916…1922 at000a = ╱42╱B╱ // 0x1920 @0xa
0x1916…1922 at000b = EOL // 0x1921 @0xb
0x1916…1922 }
0x1922…1946 a69d 3110 EXEC CALC(4,RESUL$,MAX$,MAX1$)
0x1922…1946 LineComalBin {
0x1922…1946 ptr = 0xa69d // 0x1922 @0x0
0x1922…1946 lno = 0x0c26 // 0x1924 @0x2
0x1922…1946 at0004 = ╱9d╱ EXEC ╱ // 0x1926 @0x4
0x1922…1946 at0005 = ╱43╱C╱ // 0x1927 @0x5
0x1922…1946 at0006 = ╱41╱A╱ // 0x1928 @0x6
0x1922…1946 at0007 = ╱4c╱L╱ // 0x1929 @0x7
0x1922…1946 at0008 = ╱43╱C╱ // 0x192a @0x8
0x1922…1946 at0009 = ╱ed╱(╱ // 0x192b @0x9
0x1922…1946 at000a = ╱34╱4╱ // 0x192c @0xa
0x1922…1946 at000b = ╱fe00008003╱ // 0x192d @0xb
0x1922…1946 at0010 = ╱ec╱,╱ // 0x1932 @0x10
0x1922…1946 at0011 = ╱52╱R╱ // 0x1933 @0x11
0x1922…1946 at0012 = ╱45╱E╱ // 0x1934 @0x12
0x1922…1946 at0013 = ╱53╱S╱ // 0x1935 @0x13
0x1922…1946 at0014 = ╱55╱U╱ // 0x1936 @0x14
0x1922…1946 at0015 = ╱4c╱L╱ // 0x1937 @0x15
0x1922…1946 at0016 = ╱ef╱$╱ // 0x1938 @0x16
0x1922…1946 at0017 = ╱ec╱,╱ // 0x1939 @0x17
0x1922…1946 at0018 = ╱4d╱M╱ // 0x193a @0x18
0x1922…1946 at0019 = ╱41╱A╱ // 0x193b @0x19
0x1922…1946 at001a = ╱58╱X╱ // 0x193c @0x1a
0x1922…1946 at001b = ╱ef╱$╱ // 0x193d @0x1b
0x1922…1946 at001c = ╱ec╱,╱ // 0x193e @0x1c
0x1922…1946 at001d = ╱4d╱M╱ // 0x193f @0x1d
0x1922…1946 at001e = ╱41╱A╱ // 0x1940 @0x1e
0x1922…1946 at001f = ╱58╱X╱ // 0x1941 @0x1f
0x1922…1946 at0020 = ╱31╱1╱ // 0x1942 @0x20
0x1922…1946 at0021 = ╱ef╱$╱ // 0x1943 @0x21
0x1922…1946 at0022 = ╱ee╱)╱ // 0x1944 @0x22
0x1922…1946 at0023 = EOL // 0x1945 @0x23
0x1922…1946 }
0x1946…1950 a6a7 3120 UNTIL SI=E
0x1946…1950 LineComalBin {
0x1946…1950 ptr = 0xa6a7 // 0x1946 @0x0
0x1946…1950 lno = 0x0c30 // 0x1948 @0x2
0x1946…1950 at0004 = ╱98╱ UNTIL ╱ // 0x194a @0x4
0x1946…1950 at0005 = ╱53╱S╱ // 0x194b @0x5
0x1946…1950 at0006 = ╱49╱I╱ // 0x194c @0x6
0x1946…1950 at0007 = ╱dc╱=╱ // 0x194d @0x7
0x1946…1950 at0008 = ╱45╱E╱ // 0x194e @0x8
0x1946…1950 at0009 = EOL // 0x194f @0x9
0x1946…1950 }
0x1950…1976 a6cd 3130 IF LANR=49 THEN RESUL$(12)="-"
0x1950…1976 LineComalBin {
0x1950…1976 ptr = 0xa6cd // 0x1950 @0x0
0x1950…1976 lno = 0x0c3a // 0x1952 @0x2
0x1950…1976 at0004 = ╱82╱ IF ╱ // 0x1954 @0x4
0x1950…1976 at0005 = ╱4c╱L╱ // 0x1955 @0x5
0x1950…1976 at0006 = ╱41╱A╱ // 0x1956 @0x6
0x1950…1976 at0007 = ╱4e╱N╱ // 0x1957 @0x7
0x1950…1976 at0008 = ╱52╱R╱ // 0x1958 @0x8
0x1950…1976 at0009 = ╱dc╱=╱ // 0x1959 @0x9
0x1950…1976 at000a = ╱34╱4╱ // 0x195a @0xa
0x1950…1976 at000b = ╱39╱9╱ // 0x195b @0xb
0x1950…1976 at000c = ╱fe0000c406╱ // 0x195c @0xc
0x1950…1976 at0011 = ╱b6╱ THEN ╱ // 0x1961 @0x11
0x1950…1976 at0012 = ╱52╱R╱ // 0x1962 @0x12
0x1950…1976 at0013 = ╱45╱E╱ // 0x1963 @0x13
0x1950…1976 at0014 = ╱53╱S╱ // 0x1964 @0x14
0x1950…1976 at0015 = ╱55╱U╱ // 0x1965 @0x15
0x1950…1976 at0016 = ╱4c╱L╱ // 0x1966 @0x16
0x1950…1976 at0017 = ╱ef╱$╱ // 0x1967 @0x17
0x1950…1976 at0018 = ╱ed╱(╱ // 0x1968 @0x18
0x1950…1976 at0019 = ╱31╱1╱ // 0x1969 @0x19
0x1950…1976 at001a = ╱32╱2╱ // 0x196a @0x1a
0x1950…1976 at001b = ╱fe0000c004╱ // 0x196b @0x1b
0x1950…1976 at0020 = ╱ee╱)╱ // 0x1970 @0x20
0x1950…1976 at0021 = ╱dc╱=╱ // 0x1971 @0x21
0x1950…1976 at0022 = ╱22╱"╱ // 0x1972 @0x22
0x1950…1976 at0023 = ╱2d╱-╱ // 0x1973 @0x23
0x1950…1976 at0024 = ╱22╱"╱ // 0x1974 @0x24
0x1950…1976 at0025 = EOL // 0x1975 @0x25
0x1950…1976 }
0x1976…19af a706 3140 SIDE$(FØRST+LINIE,28:10)=RESUL$(V:10)
0x1976…19af LineComalBin {
0x1976…19af ptr = 0xa706 // 0x1976 @0x0
0x1976…19af lno = 0x0c44 // 0x1978 @0x2
0x1976…19af at0004 = ╱53╱S╱ // 0x197a @0x4
0x1976…19af at0005 = ╱49╱I╱ // 0x197b @0x5
0x1976…19af at0006 = ╱44╱D╱ // 0x197c @0x6
0x1976…19af at0007 = ╱45╱E╱ // 0x197d @0x7
0x1976…19af at0008 = ╱ef╱$╱ // 0x197e @0x8
0x1976…19af at0009 = ╱ed╱(╱ // 0x197f @0x9
0x1976…19af at000a = ╱46╱F╱ // 0x1980 @0xa
0x1976…19af at000b = ╱5c╱Ø╱ // 0x1981 @0xb
0x1976…19af at000c = ╱52╱R╱ // 0x1982 @0xc
0x1976…19af at000d = ╱53╱S╱ // 0x1983 @0xd
0x1976…19af at000e = ╱54╱T╱ // 0x1984 @0xe
0x1976…19af at000f = ╱e2╱+╱ // 0x1985 @0xf
0x1976…19af at0010 = ╱4c╱L╱ // 0x1986 @0x10
0x1976…19af at0011 = ╱49╱I╱ // 0x1987 @0x11
0x1976…19af at0012 = ╱4e╱N╱ // 0x1988 @0x12
0x1976…19af at0013 = ╱49╱I╱ // 0x1989 @0x13
0x1976…19af at0014 = ╱45╱E╱ // 0x198a @0x14
0x1976…19af at0015 = ╱ec╱,╱ // 0x198b @0x15
0x1976…19af at0016 = ╱32╱2╱ // 0x198c @0x16
0x1976…19af at0017 = ╱38╱8╱ // 0x198d @0x17
0x1976…19af at0018 = ╱fe0000e005╱ // 0x198e @0x18
0x1976…19af at001d = ╱f0╱:╱ // 0x1993 @0x1d
0x1976…19af at001e = ╱31╱1╱ // 0x1994 @0x1e
0x1976…19af at001f = ╱30╱0╱ // 0x1995 @0x1f
0x1976…19af at0020 = ╱fe0000a004╱ // 0x1996 @0x20
0x1976…19af at0025 = ╱ee╱)╱ // 0x199b @0x25
0x1976…19af at0026 = ╱dc╱=╱ // 0x199c @0x26
0x1976…19af at0027 = ╱52╱R╱ // 0x199d @0x27
0x1976…19af at0028 = ╱45╱E╱ // 0x199e @0x28
0x1976…19af at0029 = ╱53╱S╱ // 0x199f @0x29
0x1976…19af at002a = ╱55╱U╱ // 0x19a0 @0x2a
0x1976…19af at002b = ╱4c╱L╱ // 0x19a1 @0x2b
0x1976…19af at002c = ╱ef╱$╱ // 0x19a2 @0x2c
0x1976…19af at002d = ╱ed╱(╱ // 0x19a3 @0x2d
0x1976…19af at002e = ╱56╱V╱ // 0x19a4 @0x2e
0x1976…19af at002f = ╱f0╱:╱ // 0x19a5 @0x2f
0x1976…19af at0030 = ╱31╱1╱ // 0x19a6 @0x30
0x1976…19af at0031 = ╱30╱0╱ // 0x19a7 @0x31
0x1976…19af at0032 = ╱fe0000a004╱ // 0x19a8 @0x32
0x1976…19af at0037 = ╱ee╱)╱ // 0x19ad @0x37
0x1976…19af at0038 = EOL // 0x19ae @0x38
0x1976…19af }
0x19af…19b5 a70c 3150 ELSE
0x19af…19b5 LineComalBin {
0x19af…19b5 ptr = 0xa70c // 0x19af @0x0
0x19af…19b5 lno = 0x0c4e // 0x19b1 @0x2
0x19af…19b5 at0004 = ╱9a╱ ELSE ╱ // 0x19b3 @0x4
0x19af…19b5 at0005 = EOL // 0x19b4 @0x5
0x19af…19b5 }
0x19b5…19d3 a72a 3160 IF ENH*SATS=E AND LANR<>60 THEN
0x19b5…19d3 LineComalBin {
0x19b5…19d3 ptr = 0xa72a // 0x19b5 @0x0
0x19b5…19d3 lno = 0x0c58 // 0x19b7 @0x2
0x19b5…19d3 at0004 = ╱9c╱ IF ╱ // 0x19b9 @0x4
0x19b5…19d3 at0005 = ╱45╱E╱ // 0x19ba @0x5
0x19b5…19d3 at0006 = ╱4e╱N╱ // 0x19bb @0x6
0x19b5…19d3 at0007 = ╱48╱H╱ // 0x19bc @0x7
0x19b5…19d3 at0008 = ╱e4╱*╱ // 0x19bd @0x8
0x19b5…19d3 at0009 = ╱53╱S╱ // 0x19be @0x9
0x19b5…19d3 at000a = ╱41╱A╱ // 0x19bf @0xa
0x19b5…19d3 at000b = ╱54╱T╱ // 0x19c0 @0xb
0x19b5…19d3 at000c = ╱53╱S╱ // 0x19c1 @0xc
0x19b5…19d3 at000d = ╱dc╱=╱ // 0x19c2 @0xd
0x19b5…19d3 at000e = ╱45╱E╱ // 0x19c3 @0xe
0x19b5…19d3 at000f = ╱da╱ AND ╱ // 0x19c4 @0xf
0x19b5…19d3 at0010 = ╱4c╱L╱ // 0x19c5 @0x10
0x19b5…19d3 at0011 = ╱41╱A╱ // 0x19c6 @0x11
0x19b5…19d3 at0012 = ╱4e╱N╱ // 0x19c7 @0x12
0x19b5…19d3 at0013 = ╱52╱R╱ // 0x19c8 @0x13
0x19b5…19d3 at0014 = ╱e1╱<>╱ // 0x19c9 @0x14
0x19b5…19d3 at0015 = ╱36╱6╱ // 0x19ca @0x15
0x19b5…19d3 at0016 = ╱30╱0╱ // 0x19cb @0x16
0x19b5…19d3 at0017 = ╱fe0000f006╱ // 0x19cc @0x17
0x19b5…19d3 at001c = ╱b6╱ THEN ╱ // 0x19d1 @0x1c
0x19b5…19d3 at001d = EOL // 0x19d2 @0x1d
0x19b5…19d3 }
0x19d3…1a00 a757 3170 LINE$=SIDE$(FØRST+LINIE,11:10)
0x19d3…1a00 LineComalBin {
0x19d3…1a00 ptr = 0xa757 // 0x19d3 @0x0
0x19d3…1a00 lno = 0x0c62 // 0x19d5 @0x2
0x19d3…1a00 at0004 = ╱4c╱L╱ // 0x19d7 @0x4
0x19d3…1a00 at0005 = ╱49╱I╱ // 0x19d8 @0x5
0x19d3…1a00 at0006 = ╱4e╱N╱ // 0x19d9 @0x6
0x19d3…1a00 at0007 = ╱45╱E╱ // 0x19da @0x7
0x19d3…1a00 at0008 = ╱ef╱$╱ // 0x19db @0x8
0x19d3…1a00 at0009 = ╱dc╱=╱ // 0x19dc @0x9
0x19d3…1a00 at000a = ╱53╱S╱ // 0x19dd @0xa
0x19d3…1a00 at000b = ╱49╱I╱ // 0x19de @0xb
0x19d3…1a00 at000c = ╱44╱D╱ // 0x19df @0xc
0x19d3…1a00 at000d = ╱45╱E╱ // 0x19e0 @0xd
0x19d3…1a00 at000e = ╱ef╱$╱ // 0x19e1 @0xe
0x19d3…1a00 at000f = ╱ed╱(╱ // 0x19e2 @0xf
0x19d3…1a00 at0010 = ╱46╱F╱ // 0x19e3 @0x10
0x19d3…1a00 at0011 = ╱5c╱Ø╱ // 0x19e4 @0x11
0x19d3…1a00 at0012 = ╱52╱R╱ // 0x19e5 @0x12
0x19d3…1a00 at0013 = ╱53╱S╱ // 0x19e6 @0x13
0x19d3…1a00 at0014 = ╱54╱T╱ // 0x19e7 @0x14
0x19d3…1a00 at0015 = ╱e2╱+╱ // 0x19e8 @0x15
0x19d3…1a00 at0016 = ╱4c╱L╱ // 0x19e9 @0x16
0x19d3…1a00 at0017 = ╱49╱I╱ // 0x19ea @0x17
0x19d3…1a00 at0018 = ╱4e╱N╱ // 0x19eb @0x18
0x19d3…1a00 at0019 = ╱49╱I╱ // 0x19ec @0x19
0x19d3…1a00 at001a = ╱45╱E╱ // 0x19ed @0x1a
0x19d3…1a00 at001b = ╱ec╱,╱ // 0x19ee @0x1b
0x19d3…1a00 at001c = ╱31╱1╱ // 0x19ef @0x1c
0x19d3…1a00 at001d = ╱31╱1╱ // 0x19f0 @0x1d
0x19d3…1a00 at001e = ╱fe0000b004╱ // 0x19f1 @0x1e
0x19d3…1a00 at0023 = ╱f0╱:╱ // 0x19f6 @0x23
0x19d3…1a00 at0024 = ╱31╱1╱ // 0x19f7 @0x24
0x19d3…1a00 at0025 = ╱30╱0╱ // 0x19f8 @0x25
0x19d3…1a00 at0026 = ╱fe0000a004╱ // 0x19f9 @0x26
0x19d3…1a00 at002b = ╱ee╱)╱ // 0x19fe @0x2b
0x19d3…1a00 at002c = EOL // 0x19ff @0x2c
0x19d3…1a00 }
0x1a00…1a2d a784 3180 RESUL$=SIDE$(FØRST+LINIE,21:7)
0x1a00…1a2d LineComalBin {
0x1a00…1a2d ptr = 0xa784 // 0x1a00 @0x0
0x1a00…1a2d lno = 0x0c6c // 0x1a02 @0x2
0x1a00…1a2d at0004 = ╱52╱R╱ // 0x1a04 @0x4
0x1a00…1a2d at0005 = ╱45╱E╱ // 0x1a05 @0x5
0x1a00…1a2d at0006 = ╱53╱S╱ // 0x1a06 @0x6
0x1a00…1a2d at0007 = ╱55╱U╱ // 0x1a07 @0x7
0x1a00…1a2d at0008 = ╱4c╱L╱ // 0x1a08 @0x8
0x1a00…1a2d at0009 = ╱ef╱$╱ // 0x1a09 @0x9
0x1a00…1a2d at000a = ╱dc╱=╱ // 0x1a0a @0xa
0x1a00…1a2d at000b = ╱53╱S╱ // 0x1a0b @0xb
0x1a00…1a2d at000c = ╱49╱I╱ // 0x1a0c @0xc
0x1a00…1a2d at000d = ╱44╱D╱ // 0x1a0d @0xd
0x1a00…1a2d at000e = ╱45╱E╱ // 0x1a0e @0xe
0x1a00…1a2d at000f = ╱ef╱$╱ // 0x1a0f @0xf
0x1a00…1a2d at0010 = ╱ed╱(╱ // 0x1a10 @0x10
0x1a00…1a2d at0011 = ╱46╱F╱ // 0x1a11 @0x11
0x1a00…1a2d at0012 = ╱5c╱Ø╱ // 0x1a12 @0x12
0x1a00…1a2d at0013 = ╱52╱R╱ // 0x1a13 @0x13
0x1a00…1a2d at0014 = ╱53╱S╱ // 0x1a14 @0x14
0x1a00…1a2d at0015 = ╱54╱T╱ // 0x1a15 @0x15
0x1a00…1a2d at0016 = ╱e2╱+╱ // 0x1a16 @0x16
0x1a00…1a2d at0017 = ╱4c╱L╱ // 0x1a17 @0x17
0x1a00…1a2d at0018 = ╱49╱I╱ // 0x1a18 @0x18
0x1a00…1a2d at0019 = ╱4e╱N╱ // 0x1a19 @0x19
0x1a00…1a2d at001a = ╱49╱I╱ // 0x1a1a @0x1a
0x1a00…1a2d at001b = ╱45╱E╱ // 0x1a1b @0x1b
0x1a00…1a2d at001c = ╱ec╱,╱ // 0x1a1c @0x1c
0x1a00…1a2d at001d = ╱32╱2╱ // 0x1a1d @0x1d
0x1a00…1a2d at001e = ╱31╱1╱ // 0x1a1e @0x1e
0x1a00…1a2d at001f = ╱fe0000a805╱ // 0x1a1f @0x1f
0x1a00…1a2d at0024 = ╱f0╱:╱ // 0x1a24 @0x24
0x1a00…1a2d at0025 = ╱37╱7╱ // 0x1a25 @0x25
0x1a00…1a2d at0026 = ╱fe0000e003╱ // 0x1a26 @0x26
0x1a00…1a2d at002b = ╱ee╱)╱ // 0x1a2b @0x2b
0x1a00…1a2d at002c = EOL // 0x1a2c @0x2c
0x1a00…1a2d }
0x1a2d…1a4f a7a6 3190 EXEC CALC(G,LINE$,RESUL$,RESUL1$)
0x1a2d…1a4f LineComalBin {
0x1a2d…1a4f ptr = 0xa7a6 // 0x1a2d @0x0
0x1a2d…1a4f lno = 0x0c76 // 0x1a2f @0x2
0x1a2d…1a4f at0004 = ╱9d╱ EXEC ╱ // 0x1a31 @0x4
0x1a2d…1a4f at0005 = ╱43╱C╱ // 0x1a32 @0x5
0x1a2d…1a4f at0006 = ╱41╱A╱ // 0x1a33 @0x6
0x1a2d…1a4f at0007 = ╱4c╱L╱ // 0x1a34 @0x7
0x1a2d…1a4f at0008 = ╱43╱C╱ // 0x1a35 @0x8
0x1a2d…1a4f at0009 = ╱ed╱(╱ // 0x1a36 @0x9
0x1a2d…1a4f at000a = ╱47╱G╱ // 0x1a37 @0xa
0x1a2d…1a4f at000b = ╱ec╱,╱ // 0x1a38 @0xb
0x1a2d…1a4f at000c = ╱4c╱L╱ // 0x1a39 @0xc
0x1a2d…1a4f at000d = ╱49╱I╱ // 0x1a3a @0xd
0x1a2d…1a4f at000e = ╱4e╱N╱ // 0x1a3b @0xe
0x1a2d…1a4f at000f = ╱45╱E╱ // 0x1a3c @0xf
0x1a2d…1a4f at0010 = ╱ef╱$╱ // 0x1a3d @0x10
0x1a2d…1a4f at0011 = ╱ec╱,╱ // 0x1a3e @0x11
0x1a2d…1a4f at0012 = ╱52╱R╱ // 0x1a3f @0x12
0x1a2d…1a4f at0013 = ╱45╱E╱ // 0x1a40 @0x13
0x1a2d…1a4f at0014 = ╱53╱S╱ // 0x1a41 @0x14
0x1a2d…1a4f at0015 = ╱55╱U╱ // 0x1a42 @0x15
0x1a2d…1a4f at0016 = ╱4c╱L╱ // 0x1a43 @0x16
0x1a2d…1a4f at0017 = ╱ef╱$╱ // 0x1a44 @0x17
0x1a2d…1a4f at0018 = ╱ec╱,╱ // 0x1a45 @0x18
0x1a2d…1a4f at0019 = ╱52╱R╱ // 0x1a46 @0x19
0x1a2d…1a4f at001a = ╱45╱E╱ // 0x1a47 @0x1a
0x1a2d…1a4f at001b = ╱53╱S╱ // 0x1a48 @0x1b
0x1a2d…1a4f at001c = ╱55╱U╱ // 0x1a49 @0x1c
0x1a2d…1a4f at001d = ╱4c╱L╱ // 0x1a4a @0x1d
0x1a2d…1a4f at001e = ╱31╱1╱ // 0x1a4b @0x1e
0x1a2d…1a4f at001f = ╱ef╱$╱ // 0x1a4c @0x1f
0x1a2d…1a4f at0020 = ╱ee╱)╱ // 0x1a4d @0x20
0x1a2d…1a4f at0021 = EOL // 0x1a4e @0x21
0x1a2d…1a4f }
0x1a4f…1a55 a7ac 3200 ELSE
0x1a4f…1a55 LineComalBin {
0x1a4f…1a55 ptr = 0xa7ac // 0x1a4f @0x0
0x1a4f…1a55 lno = 0x0c80 // 0x1a51 @0x2
0x1a4f…1a55 at0004 = ╱9a╱ ELSE ╱ // 0x1a53 @0x4
0x1a4f…1a55 at0005 = EOL // 0x1a54 @0x5
0x1a4f…1a55 }
0x1a55…1a70 a7c7 3210 RESUL1$=" 0+"
0x1a55…1a70 LineComalBin {
0x1a55…1a70 ptr = 0xa7c7 // 0x1a55 @0x0
0x1a55…1a70 lno = 0x0c8a // 0x1a57 @0x2
0x1a55…1a70 at0004 = ╱52╱R╱ // 0x1a59 @0x4
0x1a55…1a70 at0005 = ╱45╱E╱ // 0x1a5a @0x5
0x1a55…1a70 at0006 = ╱53╱S╱ // 0x1a5b @0x6
0x1a55…1a70 at0007 = ╱55╱U╱ // 0x1a5c @0x7
0x1a55…1a70 at0008 = ╱4c╱L╱ // 0x1a5d @0x8
0x1a55…1a70 at0009 = ╱31╱1╱ // 0x1a5e @0x9
0x1a55…1a70 at000a = ╱ef╱$╱ // 0x1a5f @0xa
0x1a55…1a70 at000b = ╱dc╱=╱ // 0x1a60 @0xb
0x1a55…1a70 at000c = ╱22╱"╱ // 0x1a61 @0xc
0x1a55…1a70 at000d = ╱20╱…╱ // 0x1a62 @0xd
0x1a55…1a70 at000e = ╱20╱…╱ // 0x1a63 @0xe
0x1a55…1a70 at000f = ╱20╱…╱ // 0x1a64 @0xf
0x1a55…1a70 at0010 = ╱20╱…╱ // 0x1a65 @0x10
0x1a55…1a70 at0011 = ╱20╱…╱ // 0x1a66 @0x11
0x1a55…1a70 at0012 = ╱20╱…╱ // 0x1a67 @0x12
0x1a55…1a70 at0013 = ╱20╱…╱ // 0x1a68 @0x13
0x1a55…1a70 at0014 = ╱20╱…╱ // 0x1a69 @0x14
0x1a55…1a70 at0015 = ╱20╱…╱ // 0x1a6a @0x15
0x1a55…1a70 at0016 = ╱20╱…╱ // 0x1a6b @0x16
0x1a55…1a70 at0017 = ╱30╱0╱ // 0x1a6c @0x17
0x1a55…1a70 at0018 = ╱2b╱+╱ // 0x1a6d @0x18
0x1a55…1a70 at0019 = ╱22╱"╱ // 0x1a6e @0x19
0x1a55…1a70 at001a = EOL // 0x1a6f @0x1a
0x1a55…1a70 }
0x1a70…1a76 a7cd 3220 ENDIF
0x1a70…1a76 LineComalBin {
0x1a70…1a76 ptr = 0xa7cd // 0x1a70 @0x0
0x1a70…1a76 lno = 0x0c94 // 0x1a72 @0x2
0x1a70…1a76 at0004 = ╱9b╱ ENDIF ╱ // 0x1a74 @0x4
0x1a70…1a76 at0005 = EOL // 0x1a75 @0x5
0x1a70…1a76 }
0x1a76…1acb a822 3230 IF LANR=72 OR LANR=73 THEN RESUL1$(V:10)=SIDE$(FØRST+LINIE,11:10)
0x1a76…1acb LineComalBin {
0x1a76…1acb ptr = 0xa822 // 0x1a76 @0x0
0x1a76…1acb lno = 0x0c9e // 0x1a78 @0x2
0x1a76…1acb at0004 = ╱82╱ IF ╱ // 0x1a7a @0x4
0x1a76…1acb at0005 = ╱4c╱L╱ // 0x1a7b @0x5
0x1a76…1acb at0006 = ╱41╱A╱ // 0x1a7c @0x6
0x1a76…1acb at0007 = ╱4e╱N╱ // 0x1a7d @0x7
0x1a76…1acb at0008 = ╱52╱R╱ // 0x1a7e @0x8
0x1a76…1acb at0009 = ╱dc╱=╱ // 0x1a7f @0x9
0x1a76…1acb at000a = ╱37╱7╱ // 0x1a80 @0xa
0x1a76…1acb at000b = ╱32╱2╱ // 0x1a81 @0xb
0x1a76…1acb at000c = ╱fe00009007╱ // 0x1a82 @0xc
0x1a76…1acb at0011 = ╱db╱ OR ╱ // 0x1a87 @0x11
0x1a76…1acb at0012 = ╱4c╱L╱ // 0x1a88 @0x12
0x1a76…1acb at0013 = ╱41╱A╱ // 0x1a89 @0x13
0x1a76…1acb at0014 = ╱4e╱N╱ // 0x1a8a @0x14
0x1a76…1acb at0015 = ╱52╱R╱ // 0x1a8b @0x15
0x1a76…1acb at0016 = ╱dc╱=╱ // 0x1a8c @0x16
0x1a76…1acb at0017 = ╱37╱7╱ // 0x1a8d @0x17
0x1a76…1acb at0018 = ╱33╱3╱ // 0x1a8e @0x18
0x1a76…1acb at0019 = ╱fe00009207╱ // 0x1a8f @0x19
0x1a76…1acb at001e = ╱b6╱ THEN ╱ // 0x1a94 @0x1e
0x1a76…1acb at001f = ╱52╱R╱ // 0x1a95 @0x1f
0x1a76…1acb at0020 = ╱45╱E╱ // 0x1a96 @0x20
0x1a76…1acb at0021 = ╱53╱S╱ // 0x1a97 @0x21
0x1a76…1acb at0022 = ╱55╱U╱ // 0x1a98 @0x22
0x1a76…1acb at0023 = ╱4c╱L╱ // 0x1a99 @0x23
0x1a76…1acb at0024 = ╱31╱1╱ // 0x1a9a @0x24
0x1a76…1acb at0025 = ╱ef╱$╱ // 0x1a9b @0x25
0x1a76…1acb at0026 = ╱ed╱(╱ // 0x1a9c @0x26
0x1a76…1acb at0027 = ╱56╱V╱ // 0x1a9d @0x27
0x1a76…1acb at0028 = ╱f0╱:╱ // 0x1a9e @0x28
0x1a76…1acb at0029 = ╱31╱1╱ // 0x1a9f @0x29
0x1a76…1acb at002a = ╱30╱0╱ // 0x1aa0 @0x2a
0x1a76…1acb at002b = ╱fe0000a004╱ // 0x1aa1 @0x2b
0x1a76…1acb at0030 = ╱ee╱)╱ // 0x1aa6 @0x30
0x1a76…1acb at0031 = ╱dc╱=╱ // 0x1aa7 @0x31
0x1a76…1acb at0032 = ╱53╱S╱ // 0x1aa8 @0x32
0x1a76…1acb at0033 = ╱49╱I╱ // 0x1aa9 @0x33
0x1a76…1acb at0034 = ╱44╱D╱ // 0x1aaa @0x34
0x1a76…1acb at0035 = ╱45╱E╱ // 0x1aab @0x35
0x1a76…1acb at0036 = ╱ef╱$╱ // 0x1aac @0x36
0x1a76…1acb at0037 = ╱ed╱(╱ // 0x1aad @0x37
0x1a76…1acb at0038 = ╱46╱F╱ // 0x1aae @0x38
0x1a76…1acb at0039 = ╱5c╱Ø╱ // 0x1aaf @0x39
0x1a76…1acb at003a = ╱52╱R╱ // 0x1ab0 @0x3a
0x1a76…1acb at003b = ╱53╱S╱ // 0x1ab1 @0x3b
0x1a76…1acb at003c = ╱54╱T╱ // 0x1ab2 @0x3c
0x1a76…1acb at003d = ╱e2╱+╱ // 0x1ab3 @0x3d
0x1a76…1acb at003e = ╱4c╱L╱ // 0x1ab4 @0x3e
0x1a76…1acb at003f = ╱49╱I╱ // 0x1ab5 @0x3f
0x1a76…1acb at0040 = ╱4e╱N╱ // 0x1ab6 @0x40
0x1a76…1acb at0041 = ╱49╱I╱ // 0x1ab7 @0x41
0x1a76…1acb at0042 = ╱45╱E╱ // 0x1ab8 @0x42
0x1a76…1acb at0043 = ╱ec╱,╱ // 0x1ab9 @0x43
0x1a76…1acb at0044 = ╱31╱1╱ // 0x1aba @0x44
0x1a76…1acb at0045 = ╱31╱1╱ // 0x1abb @0x45
0x1a76…1acb at0046 = ╱fe0000b004╱ // 0x1abc @0x46
0x1a76…1acb at004b = ╱f0╱:╱ // 0x1ac1 @0x4b
0x1a76…1acb at004c = ╱31╱1╱ // 0x1ac2 @0x4c
0x1a76…1acb at004d = ╱30╱0╱ // 0x1ac3 @0x4d
0x1a76…1acb at004e = ╱fe0000a004╱ // 0x1ac4 @0x4e
0x1a76…1acb at0053 = ╱ee╱)╱ // 0x1ac9 @0x53
0x1a76…1acb at0054 = EOL // 0x1aca @0x54
0x1a76…1acb }
0x1acb…1af2 a849 3240 IF LANR=49 THEN RESUL1$(12)="-"
0x1acb…1af2 LineComalBin {
0x1acb…1af2 ptr = 0xa849 // 0x1acb @0x0
0x1acb…1af2 lno = 0x0ca8 // 0x1acd @0x2
0x1acb…1af2 at0004 = ╱82╱ IF ╱ // 0x1acf @0x4
0x1acb…1af2 at0005 = ╱4c╱L╱ // 0x1ad0 @0x5
0x1acb…1af2 at0006 = ╱41╱A╱ // 0x1ad1 @0x6
0x1acb…1af2 at0007 = ╱4e╱N╱ // 0x1ad2 @0x7
0x1acb…1af2 at0008 = ╱52╱R╱ // 0x1ad3 @0x8
0x1acb…1af2 at0009 = ╱dc╱=╱ // 0x1ad4 @0x9
0x1acb…1af2 at000a = ╱34╱4╱ // 0x1ad5 @0xa
0x1acb…1af2 at000b = ╱39╱9╱ // 0x1ad6 @0xb
0x1acb…1af2 at000c = ╱fe0000c406╱ // 0x1ad7 @0xc
0x1acb…1af2 at0011 = ╱b6╱ THEN ╱ // 0x1adc @0x11
0x1acb…1af2 at0012 = ╱52╱R╱ // 0x1add @0x12
0x1acb…1af2 at0013 = ╱45╱E╱ // 0x1ade @0x13
0x1acb…1af2 at0014 = ╱53╱S╱ // 0x1adf @0x14
0x1acb…1af2 at0015 = ╱55╱U╱ // 0x1ae0 @0x15
0x1acb…1af2 at0016 = ╱4c╱L╱ // 0x1ae1 @0x16
0x1acb…1af2 at0017 = ╱31╱1╱ // 0x1ae2 @0x17
0x1acb…1af2 at0018 = ╱ef╱$╱ // 0x1ae3 @0x18
0x1acb…1af2 at0019 = ╱ed╱(╱ // 0x1ae4 @0x19
0x1acb…1af2 at001a = ╱31╱1╱ // 0x1ae5 @0x1a
0x1acb…1af2 at001b = ╱32╱2╱ // 0x1ae6 @0x1b
0x1acb…1af2 at001c = ╱fe0000c004╱ // 0x1ae7 @0x1c
0x1acb…1af2 at0021 = ╱ee╱)╱ // 0x1aec @0x21
0x1acb…1af2 at0022 = ╱dc╱=╱ // 0x1aed @0x22
0x1acb…1af2 at0023 = ╱22╱"╱ // 0x1aee @0x23
0x1acb…1af2 at0024 = ╱2d╱-╱ // 0x1aef @0x24
0x1acb…1af2 at0025 = ╱22╱"╱ // 0x1af0 @0x25
0x1acb…1af2 at0026 = EOL // 0x1af1 @0x26
0x1acb…1af2 }
0x1af2…1b2c a883 3250 SIDE$(FØRST+LINIE,28:10)=RESUL1$(V:10)
0x1af2…1b2c LineComalBin {
0x1af2…1b2c ptr = 0xa883 // 0x1af2 @0x0
0x1af2…1b2c lno = 0x0cb2 // 0x1af4 @0x2
0x1af2…1b2c at0004 = ╱53╱S╱ // 0x1af6 @0x4
0x1af2…1b2c at0005 = ╱49╱I╱ // 0x1af7 @0x5
0x1af2…1b2c at0006 = ╱44╱D╱ // 0x1af8 @0x6
0x1af2…1b2c at0007 = ╱45╱E╱ // 0x1af9 @0x7
0x1af2…1b2c at0008 = ╱ef╱$╱ // 0x1afa @0x8
0x1af2…1b2c at0009 = ╱ed╱(╱ // 0x1afb @0x9
0x1af2…1b2c at000a = ╱46╱F╱ // 0x1afc @0xa
0x1af2…1b2c at000b = ╱5c╱Ø╱ // 0x1afd @0xb
0x1af2…1b2c at000c = ╱52╱R╱ // 0x1afe @0xc
0x1af2…1b2c at000d = ╱53╱S╱ // 0x1aff @0xd
0x1af2…1b2c at000e = ╱54╱T╱ // 0x1b00 @0xe
0x1af2…1b2c at000f = ╱e2╱+╱ // 0x1b01 @0xf
0x1af2…1b2c at0010 = ╱4c╱L╱ // 0x1b02 @0x10
0x1af2…1b2c at0011 = ╱49╱I╱ // 0x1b03 @0x11
0x1af2…1b2c at0012 = ╱4e╱N╱ // 0x1b04 @0x12
0x1af2…1b2c at0013 = ╱49╱I╱ // 0x1b05 @0x13
0x1af2…1b2c at0014 = ╱45╱E╱ // 0x1b06 @0x14
0x1af2…1b2c at0015 = ╱ec╱,╱ // 0x1b07 @0x15
0x1af2…1b2c at0016 = ╱32╱2╱ // 0x1b08 @0x16
0x1af2…1b2c at0017 = ╱38╱8╱ // 0x1b09 @0x17
0x1af2…1b2c at0018 = ╱fe0000e005╱ // 0x1b0a @0x18
0x1af2…1b2c at001d = ╱f0╱:╱ // 0x1b0f @0x1d
0x1af2…1b2c at001e = ╱31╱1╱ // 0x1b10 @0x1e
0x1af2…1b2c at001f = ╱30╱0╱ // 0x1b11 @0x1f
0x1af2…1b2c at0020 = ╱fe0000a004╱ // 0x1b12 @0x20
0x1af2…1b2c at0025 = ╱ee╱)╱ // 0x1b17 @0x25
0x1af2…1b2c at0026 = ╱dc╱=╱ // 0x1b18 @0x26
0x1af2…1b2c at0027 = ╱52╱R╱ // 0x1b19 @0x27
0x1af2…1b2c at0028 = ╱45╱E╱ // 0x1b1a @0x28
0x1af2…1b2c at0029 = ╱53╱S╱ // 0x1b1b @0x29
0x1af2…1b2c at002a = ╱55╱U╱ // 0x1b1c @0x2a
0x1af2…1b2c at002b = ╱4c╱L╱ // 0x1b1d @0x2b
0x1af2…1b2c at002c = ╱31╱1╱ // 0x1b1e @0x2c
0x1af2…1b2c at002d = ╱ef╱$╱ // 0x1b1f @0x2d
0x1af2…1b2c at002e = ╱ed╱(╱ // 0x1b20 @0x2e
0x1af2…1b2c at002f = ╱56╱V╱ // 0x1b21 @0x2f
0x1af2…1b2c at0030 = ╱f0╱:╱ // 0x1b22 @0x30
0x1af2…1b2c at0031 = ╱31╱1╱ // 0x1b23 @0x31
0x1af2…1b2c at0032 = ╱30╱0╱ // 0x1b24 @0x32
0x1af2…1b2c at0033 = ╱fe0000a004╱ // 0x1b25 @0x33
0x1af2…1b2c at0038 = ╱ee╱)╱ // 0x1b2a @0x38
0x1af2…1b2c at0039 = EOL // 0x1b2b @0x39
0x1af2…1b2c }
0x1b2c…1b41 a898 3260 CURSOR 51,LINIE+V
0x1b2c…1b41 LineComalBin {
0x1b2c…1b41 ptr = 0xa898 // 0x1b2c @0x0
0x1b2c…1b41 lno = 0x0cbc // 0x1b2e @0x2
0x1b2c…1b41 at0004 = ╱a1╱ CURSOR ╱ // 0x1b30 @0x4
0x1b2c…1b41 at0005 = ╱35╱5╱ // 0x1b31 @0x5
0x1b2c…1b41 at0006 = ╱31╱1╱ // 0x1b32 @0x6
0x1b2c…1b41 at0007 = ╱fe0000cc06╱ // 0x1b33 @0x7
0x1b2c…1b41 at000c = ╱ec╱,╱ // 0x1b38 @0xc
0x1b2c…1b41 at000d = ╱4c╱L╱ // 0x1b39 @0xd
0x1b2c…1b41 at000e = ╱49╱I╱ // 0x1b3a @0xe
0x1b2c…1b41 at000f = ╱4e╱N╱ // 0x1b3b @0xf
0x1b2c…1b41 at0010 = ╱49╱I╱ // 0x1b3c @0x10
0x1b2c…1b41 at0011 = ╱45╱E╱ // 0x1b3d @0x11
0x1b2c…1b41 at0012 = ╱e2╱+╱ // 0x1b3e @0x12
0x1b2c…1b41 at0013 = ╱56╱V╱ // 0x1b3f @0x13
0x1b2c…1b41 at0014 = EOL // 0x1b40 @0x14
0x1b2c…1b41 }
0x1b41…1b70 a8c7 3270 IF RESUL1$(12)="+" THEN RESUL1$(12)=" "
0x1b41…1b70 LineComalBin {
0x1b41…1b70 ptr = 0xa8c7 // 0x1b41 @0x0
0x1b41…1b70 lno = 0x0cc6 // 0x1b43 @0x2
0x1b41…1b70 at0004 = ╱82╱ IF ╱ // 0x1b45 @0x4
0x1b41…1b70 at0005 = ╱52╱R╱ // 0x1b46 @0x5
0x1b41…1b70 at0006 = ╱45╱E╱ // 0x1b47 @0x6
0x1b41…1b70 at0007 = ╱53╱S╱ // 0x1b48 @0x7
0x1b41…1b70 at0008 = ╱55╱U╱ // 0x1b49 @0x8
0x1b41…1b70 at0009 = ╱4c╱L╱ // 0x1b4a @0x9
0x1b41…1b70 at000a = ╱31╱1╱ // 0x1b4b @0xa
0x1b41…1b70 at000b = ╱ef╱$╱ // 0x1b4c @0xb
0x1b41…1b70 at000c = ╱ed╱(╱ // 0x1b4d @0xc
0x1b41…1b70 at000d = ╱31╱1╱ // 0x1b4e @0xd
0x1b41…1b70 at000e = ╱32╱2╱ // 0x1b4f @0xe
0x1b41…1b70 at000f = ╱fe0000c004╱ // 0x1b50 @0xf
0x1b41…1b70 at0014 = ╱ee╱)╱ // 0x1b55 @0x14
0x1b41…1b70 at0015 = ╱dc╱=╱ // 0x1b56 @0x15
0x1b41…1b70 at0016 = ╱22╱"╱ // 0x1b57 @0x16
0x1b41…1b70 at0017 = ╱2b╱+╱ // 0x1b58 @0x17
0x1b41…1b70 at0018 = ╱22╱"╱ // 0x1b59 @0x18
0x1b41…1b70 at0019 = ╱b6╱ THEN ╱ // 0x1b5a @0x19
0x1b41…1b70 at001a = ╱52╱R╱ // 0x1b5b @0x1a
0x1b41…1b70 at001b = ╱45╱E╱ // 0x1b5c @0x1b
0x1b41…1b70 at001c = ╱53╱S╱ // 0x1b5d @0x1c
0x1b41…1b70 at001d = ╱55╱U╱ // 0x1b5e @0x1d
0x1b41…1b70 at001e = ╱4c╱L╱ // 0x1b5f @0x1e
0x1b41…1b70 at001f = ╱31╱1╱ // 0x1b60 @0x1f
0x1b41…1b70 at0020 = ╱ef╱$╱ // 0x1b61 @0x20
0x1b41…1b70 at0021 = ╱ed╱(╱ // 0x1b62 @0x21
0x1b41…1b70 at0022 = ╱31╱1╱ // 0x1b63 @0x22
0x1b41…1b70 at0023 = ╱32╱2╱ // 0x1b64 @0x23
0x1b41…1b70 at0024 = ╱fe0000c004╱ // 0x1b65 @0x24
0x1b41…1b70 at0029 = ╱ee╱)╱ // 0x1b6a @0x29
0x1b41…1b70 at002a = ╱dc╱=╱ // 0x1b6b @0x2a
0x1b41…1b70 at002b = ╱22╱"╱ // 0x1b6c @0x2b
0x1b41…1b70 at002c = ╱20╱…╱ // 0x1b6d @0x2c
0x1b41…1b70 at002d = ╱22╱"╱ // 0x1b6e @0x2d
0x1b41…1b70 at002e = EOL // 0x1b6f @0x2e
0x1b41…1b70 }
0x1b70…1b88 a8df 3280 PRINT RESUL1$(V:10)
0x1b70…1b88 LineComalBin {
0x1b70…1b88 ptr = 0xa8df // 0x1b70 @0x0
0x1b70…1b88 lno = 0x0cd0 // 0x1b72 @0x2
0x1b70…1b88 at0004 = ╱92╱ PRINT ╱ // 0x1b74 @0x4
0x1b70…1b88 at0005 = ╱52╱R╱ // 0x1b75 @0x5
0x1b70…1b88 at0006 = ╱45╱E╱ // 0x1b76 @0x6
0x1b70…1b88 at0007 = ╱53╱S╱ // 0x1b77 @0x7
0x1b70…1b88 at0008 = ╱55╱U╱ // 0x1b78 @0x8
0x1b70…1b88 at0009 = ╱4c╱L╱ // 0x1b79 @0x9
0x1b70…1b88 at000a = ╱31╱1╱ // 0x1b7a @0xa
0x1b70…1b88 at000b = ╱ef╱$╱ // 0x1b7b @0xb
0x1b70…1b88 at000c = ╱ed╱(╱ // 0x1b7c @0xc
0x1b70…1b88 at000d = ╱56╱V╱ // 0x1b7d @0xd
0x1b70…1b88 at000e = ╱f0╱:╱ // 0x1b7e @0xe
0x1b70…1b88 at000f = ╱31╱1╱ // 0x1b7f @0xf
0x1b70…1b88 at0010 = ╱30╱0╱ // 0x1b80 @0x10
0x1b70…1b88 at0011 = ╱fe0000a004╱ // 0x1b81 @0x11
0x1b70…1b88 at0016 = ╱ee╱)╱ // 0x1b86 @0x16
0x1b70…1b88 at0017 = EOL // 0x1b87 @0x17
0x1b70…1b88 }
0x1b88…1b8e a8e5 3290 ENDIF
0x1b88…1b8e LineComalBin {
0x1b88…1b8e ptr = 0xa8e5 // 0x1b88 @0x0
0x1b88…1b8e lno = 0x0cda // 0x1b8a @0x2
0x1b88…1b8e at0004 = ╱9b╱ ENDIF ╱ // 0x1b8c @0x4
0x1b88…1b8e at0005 = EOL // 0x1b8d @0x5
0x1b88…1b8e }
0x1b8e…1ba2 a8f9 3300 KUK=FØRST+LINIE
0x1b8e…1ba2 LineComalBin {
0x1b8e…1ba2 ptr = 0xa8f9 // 0x1b8e @0x0
0x1b8e…1ba2 lno = 0x0ce4 // 0x1b90 @0x2
0x1b8e…1ba2 at0004 = ╱4b╱K╱ // 0x1b92 @0x4
0x1b8e…1ba2 at0005 = ╱55╱U╱ // 0x1b93 @0x5
0x1b8e…1ba2 at0006 = ╱4b╱K╱ // 0x1b94 @0x6
0x1b8e…1ba2 at0007 = ╱dc╱=╱ // 0x1b95 @0x7
0x1b8e…1ba2 at0008 = ╱46╱F╱ // 0x1b96 @0x8
0x1b8e…1ba2 at0009 = ╱5c╱Ø╱ // 0x1b97 @0x9
0x1b8e…1ba2 at000a = ╱52╱R╱ // 0x1b98 @0xa
0x1b8e…1ba2 at000b = ╱53╱S╱ // 0x1b99 @0xb
0x1b8e…1ba2 at000c = ╱54╱T╱ // 0x1b9a @0xc
0x1b8e…1ba2 at000d = ╱e2╱+╱ // 0x1b9b @0xd
0x1b8e…1ba2 at000e = ╱4c╱L╱ // 0x1b9c @0xe
0x1b8e…1ba2 at000f = ╱49╱I╱ // 0x1b9d @0xf
0x1b8e…1ba2 at0010 = ╱4e╱N╱ // 0x1b9e @0x10
0x1b8e…1ba2 at0011 = ╱49╱I╱ // 0x1b9f @0x11
0x1b8e…1ba2 at0012 = ╱45╱E╱ // 0x1ba0 @0x12
0x1b8e…1ba2 at0013 = EOL // 0x1ba1 @0x13
0x1b8e…1ba2 }
0x1ba2…1bdd a934 3310 IF SIDE$(KUK,10)>"0" AND SIDE$(KUK,10)<="9" AND SATS>B THEN
0x1ba2…1bdd LineComalBin {
0x1ba2…1bdd ptr = 0xa934 // 0x1ba2 @0x0
0x1ba2…1bdd lno = 0x0cee // 0x1ba4 @0x2
0x1ba2…1bdd at0004 = ╱9c╱ IF ╱ // 0x1ba6 @0x4
0x1ba2…1bdd at0005 = ╱53╱S╱ // 0x1ba7 @0x5
0x1ba2…1bdd at0006 = ╱49╱I╱ // 0x1ba8 @0x6
0x1ba2…1bdd at0007 = ╱44╱D╱ // 0x1ba9 @0x7
0x1ba2…1bdd at0008 = ╱45╱E╱ // 0x1baa @0x8
0x1ba2…1bdd at0009 = ╱ef╱$╱ // 0x1bab @0x9
0x1ba2…1bdd at000a = ╱ed╱(╱ // 0x1bac @0xa
0x1ba2…1bdd at000b = ╱4b╱K╱ // 0x1bad @0xb
0x1ba2…1bdd at000c = ╱55╱U╱ // 0x1bae @0xc
0x1ba2…1bdd at000d = ╱4b╱K╱ // 0x1baf @0xd
0x1ba2…1bdd at000e = ╱ec╱,╱ // 0x1bb0 @0xe
0x1ba2…1bdd at000f = ╱31╱1╱ // 0x1bb1 @0xf
0x1ba2…1bdd at0010 = ╱30╱0╱ // 0x1bb2 @0x10
0x1ba2…1bdd at0011 = ╱fe0000a004╱ // 0x1bb3 @0x11
0x1ba2…1bdd at0016 = ╱ee╱)╱ // 0x1bb8 @0x16
0x1ba2…1bdd at0017 = ╱de╱>╱ // 0x1bb9 @0x17
0x1ba2…1bdd at0018 = ╱22╱"╱ // 0x1bba @0x18
0x1ba2…1bdd at0019 = ╱30╱0╱ // 0x1bbb @0x19
0x1ba2…1bdd at001a = ╱22╱"╱ // 0x1bbc @0x1a
0x1ba2…1bdd at001b = ╱da╱ AND ╱ // 0x1bbd @0x1b
0x1ba2…1bdd at001c = ╱53╱S╱ // 0x1bbe @0x1c
0x1ba2…1bdd at001d = ╱49╱I╱ // 0x1bbf @0x1d
0x1ba2…1bdd at001e = ╱44╱D╱ // 0x1bc0 @0x1e
0x1ba2…1bdd at001f = ╱45╱E╱ // 0x1bc1 @0x1f
0x1ba2…1bdd at0020 = ╱ef╱$╱ // 0x1bc2 @0x20
0x1ba2…1bdd at0021 = ╱ed╱(╱ // 0x1bc3 @0x21
0x1ba2…1bdd at0022 = ╱4b╱K╱ // 0x1bc4 @0x22
0x1ba2…1bdd at0023 = ╱55╱U╱ // 0x1bc5 @0x23
0x1ba2…1bdd at0024 = ╱4b╱K╱ // 0x1bc6 @0x24
0x1ba2…1bdd at0025 = ╱ec╱,╱ // 0x1bc7 @0x25
0x1ba2…1bdd at0026 = ╱31╱1╱ // 0x1bc8 @0x26
0x1ba2…1bdd at0027 = ╱30╱0╱ // 0x1bc9 @0x27
0x1ba2…1bdd at0028 = ╱fe0000a004╱ // 0x1bca @0x28
0x1ba2…1bdd at002d = ╱ee╱)╱ // 0x1bcf @0x2d
0x1ba2…1bdd at002e = ╱df╱<=╱ // 0x1bd0 @0x2e
0x1ba2…1bdd at002f = ╱22╱"╱ // 0x1bd1 @0x2f
0x1ba2…1bdd at0030 = ╱39╱9╱ // 0x1bd2 @0x30
0x1ba2…1bdd at0031 = ╱22╱"╱ // 0x1bd3 @0x31
0x1ba2…1bdd at0032 = ╱da╱ AND ╱ // 0x1bd4 @0x32
0x1ba2…1bdd at0033 = ╱53╱S╱ // 0x1bd5 @0x33
0x1ba2…1bdd at0034 = ╱41╱A╱ // 0x1bd6 @0x34
0x1ba2…1bdd at0035 = ╱54╱T╱ // 0x1bd7 @0x35
0x1ba2…1bdd at0036 = ╱53╱S╱ // 0x1bd8 @0x36
0x1ba2…1bdd at0037 = ╱de╱>╱ // 0x1bd9 @0x37
0x1ba2…1bdd at0038 = ╱42╱B╱ // 0x1bda @0x38
0x1ba2…1bdd at0039 = ╱b6╱ THEN ╱ // 0x1bdb @0x39
0x1ba2…1bdd at003a = EOL // 0x1bdc @0x3a
0x1ba2…1bdd }
0x1bdd…1bed a944 3320 IF KUK=SIDST THEN
0x1bdd…1bed LineComalBin {
0x1bdd…1bed ptr = 0xa944 // 0x1bdd @0x0
0x1bdd…1bed lno = 0x0cf8 // 0x1bdf @0x2
0x1bdd…1bed at0004 = ╱9c╱ IF ╱ // 0x1be1 @0x4
0x1bdd…1bed at0005 = ╱4b╱K╱ // 0x1be2 @0x5
0x1bdd…1bed at0006 = ╱55╱U╱ // 0x1be3 @0x6
0x1bdd…1bed at0007 = ╱4b╱K╱ // 0x1be4 @0x7
0x1bdd…1bed at0008 = ╱dc╱=╱ // 0x1be5 @0x8
0x1bdd…1bed at0009 = ╱53╱S╱ // 0x1be6 @0x9
0x1bdd…1bed at000a = ╱49╱I╱ // 0x1be7 @0xa
0x1bdd…1bed at000b = ╱44╱D╱ // 0x1be8 @0xb
0x1bdd…1bed at000c = ╱53╱S╱ // 0x1be9 @0xc
0x1bdd…1bed at000d = ╱54╱T╱ // 0x1bea @0xd
0x1bdd…1bed at000e = ╱b6╱ THEN ╱ // 0x1beb @0xe
0x1bdd…1bed at000f = EOL // 0x1bec @0xf
0x1bdd…1bed }
0x1bed…1c0b a962 3330 IF LAST<18 THEN LAST=LAST+E
0x1bed…1c0b LineComalBin {
0x1bed…1c0b ptr = 0xa962 // 0x1bed @0x0
0x1bed…1c0b lno = 0x0d02 // 0x1bef @0x2
0x1bed…1c0b at0004 = ╱82╱ IF ╱ // 0x1bf1 @0x4
0x1bed…1c0b at0005 = ╱4c╱L╱ // 0x1bf2 @0x5
0x1bed…1c0b at0006 = ╱41╱A╱ // 0x1bf3 @0x6
0x1bed…1c0b at0007 = ╱53╱S╱ // 0x1bf4 @0x7
0x1bed…1c0b at0008 = ╱54╱T╱ // 0x1bf5 @0x8
0x1bed…1c0b at0009 = ╱dd╱<╱ // 0x1bf6 @0x9
0x1bed…1c0b at000a = ╱31╱1╱ // 0x1bf7 @0xa
0x1bed…1c0b at000b = ╱38╱8╱ // 0x1bf8 @0xb
0x1bed…1c0b at000c = ╱fe00009005╱ // 0x1bf9 @0xc
0x1bed…1c0b at0011 = ╱b6╱ THEN ╱ // 0x1bfe @0x11
0x1bed…1c0b at0012 = ╱4c╱L╱ // 0x1bff @0x12
0x1bed…1c0b at0013 = ╱41╱A╱ // 0x1c00 @0x13
0x1bed…1c0b at0014 = ╱53╱S╱ // 0x1c01 @0x14
0x1bed…1c0b at0015 = ╱54╱T╱ // 0x1c02 @0x15
0x1bed…1c0b at0016 = ╱dc╱=╱ // 0x1c03 @0x16
0x1bed…1c0b at0017 = ╱4c╱L╱ // 0x1c04 @0x17
0x1bed…1c0b at0018 = ╱41╱A╱ // 0x1c05 @0x18
0x1bed…1c0b at0019 = ╱53╱S╱ // 0x1c06 @0x19
0x1bed…1c0b at001a = ╱54╱T╱ // 0x1c07 @0x1a
0x1bed…1c0b at001b = ╱e2╱+╱ // 0x1c08 @0x1b
0x1bed…1c0b at001c = ╱45╱E╱ // 0x1c09 @0x1c
0x1bed…1c0b at001d = EOL // 0x1c0a @0x1d
0x1bed…1c0b }
0x1c0b…1c1d a974 3340 SIDST=SIDST+E
0x1c0b…1c1d LineComalBin {
0x1c0b…1c1d ptr = 0xa974 // 0x1c0b @0x0
0x1c0b…1c1d lno = 0x0d0c // 0x1c0d @0x2
0x1c0b…1c1d at0004 = ╱53╱S╱ // 0x1c0f @0x4
0x1c0b…1c1d at0005 = ╱49╱I╱ // 0x1c10 @0x5
0x1c0b…1c1d at0006 = ╱44╱D╱ // 0x1c11 @0x6
0x1c0b…1c1d at0007 = ╱53╱S╱ // 0x1c12 @0x7
0x1c0b…1c1d at0008 = ╱54╱T╱ // 0x1c13 @0x8
0x1c0b…1c1d at0009 = ╱dc╱=╱ // 0x1c14 @0x9
0x1c0b…1c1d at000a = ╱53╱S╱ // 0x1c15 @0xa
0x1c0b…1c1d at000b = ╱49╱I╱ // 0x1c16 @0xb
0x1c0b…1c1d at000c = ╱44╱D╱ // 0x1c17 @0xc
0x1c0b…1c1d at000d = ╱53╱S╱ // 0x1c18 @0xd
0x1c0b…1c1d at000e = ╱54╱T╱ // 0x1c19 @0xe
0x1c0b…1c1d at000f = ╱e2╱+╱ // 0x1c1a @0xf
0x1c0b…1c1d at0010 = ╱45╱E╱ // 0x1c1b @0x10
0x1c0b…1c1d at0011 = EOL // 0x1c1c @0x11
0x1c0b…1c1d }
0x1c1d…1c29 a980 3350 AT=AT+E
0x1c1d…1c29 LineComalBin {
0x1c1d…1c29 ptr = 0xa980 // 0x1c1d @0x0
0x1c1d…1c29 lno = 0x0d16 // 0x1c1f @0x2
0x1c1d…1c29 at0004 = ╱41╱A╱ // 0x1c21 @0x4
0x1c1d…1c29 at0005 = ╱54╱T╱ // 0x1c22 @0x5
0x1c1d…1c29 at0006 = ╱dc╱=╱ // 0x1c23 @0x6
0x1c1d…1c29 at0007 = ╱41╱A╱ // 0x1c24 @0x7
0x1c1d…1c29 at0008 = ╱54╱T╱ // 0x1c25 @0x8
0x1c1d…1c29 at0009 = ╱e2╱+╱ // 0x1c26 @0x9
0x1c1d…1c29 at000a = ╱45╱E╱ // 0x1c27 @0xa
0x1c1d…1c29 at000b = EOL // 0x1c28 @0xb
0x1c1d…1c29 }
0x1c29…1c62 a9b9 3360 SIDE$(SIDST)="1 39 0 0 0 "
0x1c29…1c62 LineComalBin {
0x1c29…1c62 ptr = 0xa9b9 // 0x1c29 @0x0
0x1c29…1c62 lno = 0x0d20 // 0x1c2b @0x2
0x1c29…1c62 at0004 = ╱53╱S╱ // 0x1c2d @0x4
0x1c29…1c62 at0005 = ╱49╱I╱ // 0x1c2e @0x5
0x1c29…1c62 at0006 = ╱44╱D╱ // 0x1c2f @0x6
0x1c29…1c62 at0007 = ╱45╱E╱ // 0x1c30 @0x7
0x1c29…1c62 at0008 = ╱ef╱$╱ // 0x1c31 @0x8
0x1c29…1c62 at0009 = ╱ed╱(╱ // 0x1c32 @0x9
0x1c29…1c62 at000a = ╱53╱S╱ // 0x1c33 @0xa
0x1c29…1c62 at000b = ╱49╱I╱ // 0x1c34 @0xb
0x1c29…1c62 at000c = ╱44╱D╱ // 0x1c35 @0xc
0x1c29…1c62 at000d = ╱53╱S╱ // 0x1c36 @0xd
0x1c29…1c62 at000e = ╱54╱T╱ // 0x1c37 @0xe
0x1c29…1c62 at000f = ╱ee╱)╱ // 0x1c38 @0xf
0x1c29…1c62 at0010 = ╱dc╱=╱ // 0x1c39 @0x10
0x1c29…1c62 at0011 = ╱22╱"╱ // 0x1c3a @0x11
0x1c29…1c62 at0012 = ╱31╱1╱ // 0x1c3b @0x12
0x1c29…1c62 at0013 = ╱20╱…╱ // 0x1c3c @0x13
0x1c29…1c62 at0014 = ╱33╱3╱ // 0x1c3d @0x14
0x1c29…1c62 at0015 = ╱39╱9╱ // 0x1c3e @0x15
0x1c29…1c62 at0016 = ╱20╱…╱ // 0x1c3f @0x16
0x1c29…1c62 at0017 = ╱20╱…╱ // 0x1c40 @0x17
0x1c29…1c62 at0018 = ╱20╱…╱ // 0x1c41 @0x18
0x1c29…1c62 at0019 = ╱20╱…╱ // 0x1c42 @0x19
0x1c29…1c62 at001a = ╱20╱…╱ // 0x1c43 @0x1a
0x1c29…1c62 at001b = ╱20╱…╱ // 0x1c44 @0x1b
0x1c29…1c62 at001c = ╱30╱0╱ // 0x1c45 @0x1c
0x1c29…1c62 at001d = ╱20╱…╱ // 0x1c46 @0x1d
0x1c29…1c62 at001e = ╱20╱…╱ // 0x1c47 @0x1e
0x1c29…1c62 at001f = ╱20╱…╱ // 0x1c48 @0x1f
0x1c29…1c62 at0020 = ╱20╱…╱ // 0x1c49 @0x20
0x1c29…1c62 at0021 = ╱20╱…╱ // 0x1c4a @0x21
0x1c29…1c62 at0022 = ╱20╱…╱ // 0x1c4b @0x22
0x1c29…1c62 at0023 = ╱20╱…╱ // 0x1c4c @0x23
0x1c29…1c62 at0024 = ╱20╱…╱ // 0x1c4d @0x24
0x1c29…1c62 at0025 = ╱20╱…╱ // 0x1c4e @0x25
0x1c29…1c62 at0026 = ╱30╱0╱ // 0x1c4f @0x26
0x1c29…1c62 at0027 = ╱20╱…╱ // 0x1c50 @0x27
0x1c29…1c62 at0028 = ╱20╱…╱ // 0x1c51 @0x28
0x1c29…1c62 at0029 = ╱20╱…╱ // 0x1c52 @0x29
0x1c29…1c62 at002a = ╱20╱…╱ // 0x1c53 @0x2a
0x1c29…1c62 at002b = ╱20╱…╱ // 0x1c54 @0x2b
0x1c29…1c62 at002c = ╱20╱…╱ // 0x1c55 @0x2c
0x1c29…1c62 at002d = ╱30╱0╱ // 0x1c56 @0x2d
0x1c29…1c62 at002e = ╱20╱…╱ // 0x1c57 @0x2e
0x1c29…1c62 at002f = ╱20╱…╱ // 0x1c58 @0x2f
0x1c29…1c62 at0030 = ╱20╱…╱ // 0x1c59 @0x30
0x1c29…1c62 at0031 = ╱20╱…╱ // 0x1c5a @0x31
0x1c29…1c62 at0032 = ╱20╱…╱ // 0x1c5b @0x32
0x1c29…1c62 at0033 = ╱20╱…╱ // 0x1c5c @0x33
0x1c29…1c62 at0034 = ╱20╱…╱ // 0x1c5d @0x34
0x1c29…1c62 at0035 = ╱20╱…╱ // 0x1c5e @0x35
0x1c29…1c62 at0036 = ╱20╱…╱ // 0x1c5f @0x36
0x1c29…1c62 at0037 = ╱22╱"╱ // 0x1c60 @0x37
0x1c29…1c62 at0038 = EOL // 0x1c61 @0x38
0x1c29…1c62 }
0x1c62…1c68 a9bf 3370 ELSE
0x1c62…1c68 LineComalBin {
0x1c62…1c68 ptr = 0xa9bf // 0x1c62 @0x0
0x1c62…1c68 lno = 0x0d2a // 0x1c64 @0x2
0x1c62…1c68 at0004 = ╱9a╱ ELSE ╱ // 0x1c66 @0x4
0x1c62…1c68 at0005 = EOL // 0x1c67 @0x5
0x1c62…1c68 }
0x1c68…1c8b a9e2 3380 IF SIDE$(KUK+E,E,4)<>"1 39" THEN
0x1c68…1c8b LineComalBin {
0x1c68…1c8b ptr = 0xa9e2 // 0x1c68 @0x0
0x1c68…1c8b lno = 0x0d34 // 0x1c6a @0x2
0x1c68…1c8b at0004 = ╱9c╱ IF ╱ // 0x1c6c @0x4
0x1c68…1c8b at0005 = ╱53╱S╱ // 0x1c6d @0x5
0x1c68…1c8b at0006 = ╱49╱I╱ // 0x1c6e @0x6
0x1c68…1c8b at0007 = ╱44╱D╱ // 0x1c6f @0x7
0x1c68…1c8b at0008 = ╱45╱E╱ // 0x1c70 @0x8
0x1c68…1c8b at0009 = ╱ef╱$╱ // 0x1c71 @0x9
0x1c68…1c8b at000a = ╱ed╱(╱ // 0x1c72 @0xa
0x1c68…1c8b at000b = ╱4b╱K╱ // 0x1c73 @0xb
0x1c68…1c8b at000c = ╱55╱U╱ // 0x1c74 @0xc
0x1c68…1c8b at000d = ╱4b╱K╱ // 0x1c75 @0xd
0x1c68…1c8b at000e = ╱e2╱+╱ // 0x1c76 @0xe
0x1c68…1c8b at000f = ╱45╱E╱ // 0x1c77 @0xf
0x1c68…1c8b at0010 = ╱ec╱,╱ // 0x1c78 @0x10
0x1c68…1c8b at0011 = ╱45╱E╱ // 0x1c79 @0x11
0x1c68…1c8b at0012 = ╱ec╱,╱ // 0x1c7a @0x12
0x1c68…1c8b at0013 = ╱34╱4╱ // 0x1c7b @0x13
0x1c68…1c8b at0014 = ╱fe00008003╱ // 0x1c7c @0x14
0x1c68…1c8b at0019 = ╱ee╱)╱ // 0x1c81 @0x19
0x1c68…1c8b at001a = ╱e1╱<>╱ // 0x1c82 @0x1a
0x1c68…1c8b at001b = ╱22╱"╱ // 0x1c83 @0x1b
0x1c68…1c8b at001c = ╱31╱1╱ // 0x1c84 @0x1c
0x1c68…1c8b at001d = ╱20╱…╱ // 0x1c85 @0x1d
0x1c68…1c8b at001e = ╱33╱3╱ // 0x1c86 @0x1e
0x1c68…1c8b at001f = ╱39╱9╱ // 0x1c87 @0x1f
0x1c68…1c8b at0020 = ╱22╱"╱ // 0x1c88 @0x20
0x1c68…1c8b at0021 = ╱b6╱ THEN ╱ // 0x1c89 @0x21
0x1c68…1c8b at0022 = EOL // 0x1c8a @0x22
0x1c68…1c8b }
0x1c8b…1c9d a9f4 3390 SIDST=SIDST+E
0x1c8b…1c9d LineComalBin {
0x1c8b…1c9d ptr = 0xa9f4 // 0x1c8b @0x0
0x1c8b…1c9d lno = 0x0d3e // 0x1c8d @0x2
0x1c8b…1c9d at0004 = ╱53╱S╱ // 0x1c8f @0x4
0x1c8b…1c9d at0005 = ╱49╱I╱ // 0x1c90 @0x5
0x1c8b…1c9d at0006 = ╱44╱D╱ // 0x1c91 @0x6
0x1c8b…1c9d at0007 = ╱53╱S╱ // 0x1c92 @0x7
0x1c8b…1c9d at0008 = ╱54╱T╱ // 0x1c93 @0x8
0x1c8b…1c9d at0009 = ╱dc╱=╱ // 0x1c94 @0x9
0x1c8b…1c9d at000a = ╱53╱S╱ // 0x1c95 @0xa
0x1c8b…1c9d at000b = ╱49╱I╱ // 0x1c96 @0xb
0x1c8b…1c9d at000c = ╱44╱D╱ // 0x1c97 @0xc
0x1c8b…1c9d at000d = ╱53╱S╱ // 0x1c98 @0xd
0x1c8b…1c9d at000e = ╱54╱T╱ // 0x1c99 @0xe
0x1c8b…1c9d at000f = ╱e2╱+╱ // 0x1c9a @0xf
0x1c8b…1c9d at0010 = ╱45╱E╱ // 0x1c9b @0x10
0x1c8b…1c9d at0011 = EOL // 0x1c9c @0x11
0x1c8b…1c9d }
0x1c9d…1ca9 aa00 3400 AT=AT+E
0x1c9d…1ca9 LineComalBin {
0x1c9d…1ca9 ptr = 0xaa00 // 0x1c9d @0x0
0x1c9d…1ca9 lno = 0x0d48 // 0x1c9f @0x2
0x1c9d…1ca9 at0004 = ╱41╱A╱ // 0x1ca1 @0x4
0x1c9d…1ca9 at0005 = ╱54╱T╱ // 0x1ca2 @0x5
0x1c9d…1ca9 at0006 = ╱dc╱=╱ // 0x1ca3 @0x6
0x1c9d…1ca9 at0007 = ╱41╱A╱ // 0x1ca4 @0x7
0x1c9d…1ca9 at0008 = ╱54╱T╱ // 0x1ca5 @0x8
0x1c9d…1ca9 at0009 = ╱e2╱+╱ // 0x1ca6 @0x9
0x1c9d…1ca9 at000a = ╱45╱E╱ // 0x1ca7 @0xa
0x1c9d…1ca9 at000b = EOL // 0x1ca8 @0xb
0x1c9d…1ca9 }
0x1ca9…1cc7 aa1e 3410 IF LAST<18 THEN LAST=LAST+E
0x1ca9…1cc7 LineComalBin {
0x1ca9…1cc7 ptr = 0xaa1e // 0x1ca9 @0x0
0x1ca9…1cc7 lno = 0x0d52 // 0x1cab @0x2
0x1ca9…1cc7 at0004 = ╱82╱ IF ╱ // 0x1cad @0x4
0x1ca9…1cc7 at0005 = ╱4c╱L╱ // 0x1cae @0x5
0x1ca9…1cc7 at0006 = ╱41╱A╱ // 0x1caf @0x6
0x1ca9…1cc7 at0007 = ╱53╱S╱ // 0x1cb0 @0x7
0x1ca9…1cc7 at0008 = ╱54╱T╱ // 0x1cb1 @0x8
0x1ca9…1cc7 at0009 = ╱dd╱<╱ // 0x1cb2 @0x9
0x1ca9…1cc7 at000a = ╱31╱1╱ // 0x1cb3 @0xa
0x1ca9…1cc7 at000b = ╱38╱8╱ // 0x1cb4 @0xb
0x1ca9…1cc7 at000c = ╱fe00009005╱ // 0x1cb5 @0xc
0x1ca9…1cc7 at0011 = ╱b6╱ THEN ╱ // 0x1cba @0x11
0x1ca9…1cc7 at0012 = ╱4c╱L╱ // 0x1cbb @0x12
0x1ca9…1cc7 at0013 = ╱41╱A╱ // 0x1cbc @0x13
0x1ca9…1cc7 at0014 = ╱53╱S╱ // 0x1cbd @0x14
0x1ca9…1cc7 at0015 = ╱54╱T╱ // 0x1cbe @0x15
0x1ca9…1cc7 at0016 = ╱dc╱=╱ // 0x1cbf @0x16
0x1ca9…1cc7 at0017 = ╱4c╱L╱ // 0x1cc0 @0x17
0x1ca9…1cc7 at0018 = ╱41╱A╱ // 0x1cc1 @0x18
0x1ca9…1cc7 at0019 = ╱53╱S╱ // 0x1cc2 @0x19
0x1ca9…1cc7 at001a = ╱54╱T╱ // 0x1cc3 @0x1a
0x1ca9…1cc7 at001b = ╱e2╱+╱ // 0x1cc4 @0x1b
0x1ca9…1cc7 at001c = ╱45╱E╱ // 0x1cc5 @0x1c
0x1ca9…1cc7 at001d = EOL // 0x1cc6 @0x1d
0x1ca9…1cc7 }
0x1cc7…1cd5 aa2c 3420 QUQ=SIDST
0x1cc7…1cd5 LineComalBin {
0x1cc7…1cd5 ptr = 0xaa2c // 0x1cc7 @0x0
0x1cc7…1cd5 lno = 0x0d5c // 0x1cc9 @0x2
0x1cc7…1cd5 at0004 = ╱51╱Q╱ // 0x1ccb @0x4
0x1cc7…1cd5 at0005 = ╱55╱U╱ // 0x1ccc @0x5
0x1cc7…1cd5 at0006 = ╱51╱Q╱ // 0x1ccd @0x6
0x1cc7…1cd5 at0007 = ╱dc╱=╱ // 0x1cce @0x7
0x1cc7…1cd5 at0008 = ╱53╱S╱ // 0x1ccf @0x8
0x1cc7…1cd5 at0009 = ╱49╱I╱ // 0x1cd0 @0x9
0x1cc7…1cd5 at000a = ╱44╱D╱ // 0x1cd1 @0xa
0x1cc7…1cd5 at000b = ╱53╱S╱ // 0x1cd2 @0xb
0x1cc7…1cd5 at000c = ╱54╱T╱ // 0x1cd3 @0xc
0x1cc7…1cd5 at000d = EOL // 0x1cd4 @0xd
0x1cc7…1cd5 }
0x1cd5…1ce4 aa3b 3430 WHILE QUQ>KUK+E
0x1cd5…1ce4 LineComalBin {
0x1cd5…1ce4 ptr = 0xaa3b // 0x1cd5 @0x0
0x1cd5…1ce4 lno = 0x0d66 // 0x1cd7 @0x2
0x1cd5…1ce4 at0004 = ╱93╱ WHILE ╱ // 0x1cd9 @0x4
0x1cd5…1ce4 at0005 = ╱51╱Q╱ // 0x1cda @0x5
0x1cd5…1ce4 at0006 = ╱55╱U╱ // 0x1cdb @0x6
0x1cd5…1ce4 at0007 = ╱51╱Q╱ // 0x1cdc @0x7
0x1cd5…1ce4 at0008 = ╱de╱>╱ // 0x1cdd @0x8
0x1cd5…1ce4 at0009 = ╱4b╱K╱ // 0x1cde @0x9
0x1cd5…1ce4 at000a = ╱55╱U╱ // 0x1cdf @0xa
0x1cd5…1ce4 at000b = ╱4b╱K╱ // 0x1ce0 @0xb
0x1cd5…1ce4 at000c = ╱e2╱+╱ // 0x1ce1 @0xc
0x1cd5…1ce4 at000d = ╱45╱E╱ // 0x1ce2 @0xd
0x1cd5…1ce4 at000e = EOL // 0x1ce3 @0xe
0x1cd5…1ce4 }
0x1ce4…1d00 aa57 3440 SIDE$(QUQ)=SIDE$(QUQ-E)
0x1ce4…1d00 LineComalBin {
0x1ce4…1d00 ptr = 0xaa57 // 0x1ce4 @0x0
0x1ce4…1d00 lno = 0x0d70 // 0x1ce6 @0x2
0x1ce4…1d00 at0004 = ╱53╱S╱ // 0x1ce8 @0x4
0x1ce4…1d00 at0005 = ╱49╱I╱ // 0x1ce9 @0x5
0x1ce4…1d00 at0006 = ╱44╱D╱ // 0x1cea @0x6
0x1ce4…1d00 at0007 = ╱45╱E╱ // 0x1ceb @0x7
0x1ce4…1d00 at0008 = ╱ef╱$╱ // 0x1cec @0x8
0x1ce4…1d00 at0009 = ╱ed╱(╱ // 0x1ced @0x9
0x1ce4…1d00 at000a = ╱51╱Q╱ // 0x1cee @0xa
0x1ce4…1d00 at000b = ╱55╱U╱ // 0x1cef @0xb
0x1ce4…1d00 at000c = ╱51╱Q╱ // 0x1cf0 @0xc
0x1ce4…1d00 at000d = ╱ee╱)╱ // 0x1cf1 @0xd
0x1ce4…1d00 at000e = ╱dc╱=╱ // 0x1cf2 @0xe
0x1ce4…1d00 at000f = ╱53╱S╱ // 0x1cf3 @0xf
0x1ce4…1d00 at0010 = ╱49╱I╱ // 0x1cf4 @0x10
0x1ce4…1d00 at0011 = ╱44╱D╱ // 0x1cf5 @0x11
0x1ce4…1d00 at0012 = ╱45╱E╱ // 0x1cf6 @0x12
0x1ce4…1d00 at0013 = ╱ef╱$╱ // 0x1cf7 @0x13
0x1ce4…1d00 at0014 = ╱ed╱(╱ // 0x1cf8 @0x14
0x1ce4…1d00 at0015 = ╱51╱Q╱ // 0x1cf9 @0x15
0x1ce4…1d00 at0016 = ╱55╱U╱ // 0x1cfa @0x16
0x1ce4…1d00 at0017 = ╱51╱Q╱ // 0x1cfb @0x17
0x1ce4…1d00 at0018 = ╱e3╱-╱ // 0x1cfc @0x18
0x1ce4…1d00 at0019 = ╱45╱E╱ // 0x1cfd @0x19
0x1ce4…1d00 at001a = ╱ee╱)╱ // 0x1cfe @0x1a
0x1ce4…1d00 at001b = EOL // 0x1cff @0x1b
0x1ce4…1d00 }
0x1d00…1d0e aa65 3450 QUQ=QUQ-E
0x1d00…1d0e LineComalBin {
0x1d00…1d0e ptr = 0xaa65 // 0x1d00 @0x0
0x1d00…1d0e lno = 0x0d7a // 0x1d02 @0x2
0x1d00…1d0e at0004 = ╱51╱Q╱ // 0x1d04 @0x4
0x1d00…1d0e at0005 = ╱55╱U╱ // 0x1d05 @0x5
0x1d00…1d0e at0006 = ╱51╱Q╱ // 0x1d06 @0x6
0x1d00…1d0e at0007 = ╱dc╱=╱ // 0x1d07 @0x7
0x1d00…1d0e at0008 = ╱51╱Q╱ // 0x1d08 @0x8
0x1d00…1d0e at0009 = ╱55╱U╱ // 0x1d09 @0x9
0x1d00…1d0e at000a = ╱51╱Q╱ // 0x1d0a @0xa
0x1d00…1d0e at000b = ╱e3╱-╱ // 0x1d0b @0xb
0x1d00…1d0e at000c = ╱45╱E╱ // 0x1d0c @0xc
0x1d00…1d0e at000d = EOL // 0x1d0d @0xd
0x1d00…1d0e }
0x1d0e…1d14 aa6b 3460 ENDWHILE
0x1d0e…1d14 LineComalBin {
0x1d0e…1d14 ptr = 0xaa6b // 0x1d0e @0x0
0x1d0e…1d14 lno = 0x0d84 // 0x1d10 @0x2
0x1d0e…1d14 at0004 = ╱94╱ ENDWHILE ╱ // 0x1d12 @0x4
0x1d0e…1d14 at0005 = EOL // 0x1d13 @0x5
0x1d0e…1d14 }
0x1d14…1d4b aaa2 3470 SIDE$(QUQ)="1 39 0 0 0 "
0x1d14…1d4b LineComalBin {
0x1d14…1d4b ptr = 0xaaa2 // 0x1d14 @0x0
0x1d14…1d4b lno = 0x0d8e // 0x1d16 @0x2
0x1d14…1d4b at0004 = ╱53╱S╱ // 0x1d18 @0x4
0x1d14…1d4b at0005 = ╱49╱I╱ // 0x1d19 @0x5
0x1d14…1d4b at0006 = ╱44╱D╱ // 0x1d1a @0x6
0x1d14…1d4b at0007 = ╱45╱E╱ // 0x1d1b @0x7
0x1d14…1d4b at0008 = ╱ef╱$╱ // 0x1d1c @0x8
0x1d14…1d4b at0009 = ╱ed╱(╱ // 0x1d1d @0x9
0x1d14…1d4b at000a = ╱51╱Q╱ // 0x1d1e @0xa
0x1d14…1d4b at000b = ╱55╱U╱ // 0x1d1f @0xb
0x1d14…1d4b at000c = ╱51╱Q╱ // 0x1d20 @0xc
0x1d14…1d4b at000d = ╱ee╱)╱ // 0x1d21 @0xd
0x1d14…1d4b at000e = ╱dc╱=╱ // 0x1d22 @0xe
0x1d14…1d4b at000f = ╱22╱"╱ // 0x1d23 @0xf
0x1d14…1d4b at0010 = ╱31╱1╱ // 0x1d24 @0x10
0x1d14…1d4b at0011 = ╱20╱…╱ // 0x1d25 @0x11
0x1d14…1d4b at0012 = ╱33╱3╱ // 0x1d26 @0x12
0x1d14…1d4b at0013 = ╱39╱9╱ // 0x1d27 @0x13
0x1d14…1d4b at0014 = ╱20╱…╱ // 0x1d28 @0x14
0x1d14…1d4b at0015 = ╱20╱…╱ // 0x1d29 @0x15
0x1d14…1d4b at0016 = ╱20╱…╱ // 0x1d2a @0x16
0x1d14…1d4b at0017 = ╱20╱…╱ // 0x1d2b @0x17
0x1d14…1d4b at0018 = ╱20╱…╱ // 0x1d2c @0x18
0x1d14…1d4b at0019 = ╱20╱…╱ // 0x1d2d @0x19
0x1d14…1d4b at001a = ╱30╱0╱ // 0x1d2e @0x1a
0x1d14…1d4b at001b = ╱20╱…╱ // 0x1d2f @0x1b
0x1d14…1d4b at001c = ╱20╱…╱ // 0x1d30 @0x1c
0x1d14…1d4b at001d = ╱20╱…╱ // 0x1d31 @0x1d
0x1d14…1d4b at001e = ╱20╱…╱ // 0x1d32 @0x1e
0x1d14…1d4b at001f = ╱20╱…╱ // 0x1d33 @0x1f
0x1d14…1d4b at0020 = ╱20╱…╱ // 0x1d34 @0x20
0x1d14…1d4b at0021 = ╱20╱…╱ // 0x1d35 @0x21
0x1d14…1d4b at0022 = ╱20╱…╱ // 0x1d36 @0x22
0x1d14…1d4b at0023 = ╱20╱…╱ // 0x1d37 @0x23
0x1d14…1d4b at0024 = ╱30╱0╱ // 0x1d38 @0x24
0x1d14…1d4b at0025 = ╱20╱…╱ // 0x1d39 @0x25
0x1d14…1d4b at0026 = ╱20╱…╱ // 0x1d3a @0x26
0x1d14…1d4b at0027 = ╱20╱…╱ // 0x1d3b @0x27
0x1d14…1d4b at0028 = ╱20╱…╱ // 0x1d3c @0x28
0x1d14…1d4b at0029 = ╱20╱…╱ // 0x1d3d @0x29
0x1d14…1d4b at002a = ╱20╱…╱ // 0x1d3e @0x2a
0x1d14…1d4b at002b = ╱30╱0╱ // 0x1d3f @0x2b
0x1d14…1d4b at002c = ╱20╱…╱ // 0x1d40 @0x2c
0x1d14…1d4b at002d = ╱20╱…╱ // 0x1d41 @0x2d
0x1d14…1d4b at002e = ╱20╱…╱ // 0x1d42 @0x2e
0x1d14…1d4b at002f = ╱20╱…╱ // 0x1d43 @0x2f
0x1d14…1d4b at0030 = ╱20╱…╱ // 0x1d44 @0x30
0x1d14…1d4b at0031 = ╱20╱…╱ // 0x1d45 @0x31
0x1d14…1d4b at0032 = ╱20╱…╱ // 0x1d46 @0x32
0x1d14…1d4b at0033 = ╱20╱…╱ // 0x1d47 @0x33
0x1d14…1d4b at0034 = ╱20╱…╱ // 0x1d48 @0x34
0x1d14…1d4b at0035 = ╱22╱"╱ // 0x1d49 @0x35
0x1d14…1d4b at0036 = EOL // 0x1d4a @0x36
0x1d14…1d4b }
0x1d4b…1d51 aaa8 3480 ENDIF
0x1d4b…1d51 LineComalBin {
0x1d4b…1d51 ptr = 0xaaa8 // 0x1d4b @0x0
0x1d4b…1d51 lno = 0x0d98 // 0x1d4d @0x2
0x1d4b…1d51 at0004 = ╱9b╱ ENDIF ╱ // 0x1d4f @0x4
0x1d4b…1d51 at0005 = EOL // 0x1d50 @0x5
0x1d4b…1d51 }
0x1d51…1d57 aaae 3490 ENDIF
0x1d51…1d57 LineComalBin {
0x1d51…1d57 ptr = 0xaaae // 0x1d51 @0x0
0x1d51…1d57 lno = 0x0da2 // 0x1d53 @0x2
0x1d51…1d57 at0004 = ╱9b╱ ENDIF ╱ // 0x1d55 @0x4
0x1d51…1d57 at0005 = EOL // 0x1d56 @0x5
0x1d51…1d57 }
0x1d57…1d65 aabc 3500 EXEC SKRIVSID
0x1d57…1d65 LineComalBin {
0x1d57…1d65 ptr = 0xaabc // 0x1d57 @0x0
0x1d57…1d65 lno = 0x0dac // 0x1d59 @0x2
0x1d57…1d65 at0004 = ╱9d╱ EXEC ╱ // 0x1d5b @0x4
0x1d57…1d65 at0005 = ╱53╱S╱ // 0x1d5c @0x5
0x1d57…1d65 at0006 = ╱4b╱K╱ // 0x1d5d @0x6
0x1d57…1d65 at0007 = ╱52╱R╱ // 0x1d5e @0x7
0x1d57…1d65 at0008 = ╱49╱I╱ // 0x1d5f @0x8
0x1d57…1d65 at0009 = ╱56╱V╱ // 0x1d60 @0x9
0x1d57…1d65 at000a = ╱53╱S╱ // 0x1d61 @0xa
0x1d57…1d65 at000b = ╱49╱I╱ // 0x1d62 @0xb
0x1d57…1d65 at000c = ╱44╱D╱ // 0x1d63 @0xc
0x1d57…1d65 at000d = EOL // 0x1d64 @0xd
0x1d57…1d65 }
0x1d65…1d6b aac2 3510 ELSE
0x1d65…1d6b LineComalBin {
0x1d65…1d6b ptr = 0xaac2 // 0x1d65 @0x0
0x1d65…1d6b lno = 0x0db6 // 0x1d67 @0x2
0x1d65…1d6b at0004 = ╱9a╱ ELSE ╱ // 0x1d69 @0x4
0x1d65…1d6b at0005 = EOL // 0x1d6a @0x5
0x1d65…1d6b }
0x1d6b…1d7b aad2 3520 IF KUK<SIDST THEN
0x1d6b…1d7b LineComalBin {
0x1d6b…1d7b ptr = 0xaad2 // 0x1d6b @0x0
0x1d6b…1d7b lno = 0x0dc0 // 0x1d6d @0x2
0x1d6b…1d7b at0004 = ╱9c╱ IF ╱ // 0x1d6f @0x4
0x1d6b…1d7b at0005 = ╱4b╱K╱ // 0x1d70 @0x5
0x1d6b…1d7b at0006 = ╱55╱U╱ // 0x1d71 @0x6
0x1d6b…1d7b at0007 = ╱4b╱K╱ // 0x1d72 @0x7
0x1d6b…1d7b at0008 = ╱dd╱<╱ // 0x1d73 @0x8
0x1d6b…1d7b at0009 = ╱53╱S╱ // 0x1d74 @0x9
0x1d6b…1d7b at000a = ╱49╱I╱ // 0x1d75 @0xa
0x1d6b…1d7b at000b = ╱44╱D╱ // 0x1d76 @0xb
0x1d6b…1d7b at000c = ╱53╱S╱ // 0x1d77 @0xc
0x1d6b…1d7b at000d = ╱54╱T╱ // 0x1d78 @0xd
0x1d6b…1d7b at000e = ╱b6╱ THEN ╱ // 0x1d79 @0xe
0x1d6b…1d7b at000f = EOL // 0x1d7a @0xf
0x1d6b…1d7b }
0x1d7b…1d9e aaf5 3530 IF SIDE$(KUK+E,E,4)="1 39" THEN
0x1d7b…1d9e LineComalBin {
0x1d7b…1d9e ptr = 0xaaf5 // 0x1d7b @0x0
0x1d7b…1d9e lno = 0x0dca // 0x1d7d @0x2
0x1d7b…1d9e at0004 = ╱9c╱ IF ╱ // 0x1d7f @0x4
0x1d7b…1d9e at0005 = ╱53╱S╱ // 0x1d80 @0x5
0x1d7b…1d9e at0006 = ╱49╱I╱ // 0x1d81 @0x6
0x1d7b…1d9e at0007 = ╱44╱D╱ // 0x1d82 @0x7
0x1d7b…1d9e at0008 = ╱45╱E╱ // 0x1d83 @0x8
0x1d7b…1d9e at0009 = ╱ef╱$╱ // 0x1d84 @0x9
0x1d7b…1d9e at000a = ╱ed╱(╱ // 0x1d85 @0xa
0x1d7b…1d9e at000b = ╱4b╱K╱ // 0x1d86 @0xb
0x1d7b…1d9e at000c = ╱55╱U╱ // 0x1d87 @0xc
0x1d7b…1d9e at000d = ╱4b╱K╱ // 0x1d88 @0xd
0x1d7b…1d9e at000e = ╱e2╱+╱ // 0x1d89 @0xe
0x1d7b…1d9e at000f = ╱45╱E╱ // 0x1d8a @0xf
0x1d7b…1d9e at0010 = ╱ec╱,╱ // 0x1d8b @0x10
0x1d7b…1d9e at0011 = ╱45╱E╱ // 0x1d8c @0x11
0x1d7b…1d9e at0012 = ╱ec╱,╱ // 0x1d8d @0x12
0x1d7b…1d9e at0013 = ╱34╱4╱ // 0x1d8e @0x13
0x1d7b…1d9e at0014 = ╱fe00008003╱ // 0x1d8f @0x14
0x1d7b…1d9e at0019 = ╱ee╱)╱ // 0x1d94 @0x19
0x1d7b…1d9e at001a = ╱dc╱=╱ // 0x1d95 @0x1a
0x1d7b…1d9e at001b = ╱22╱"╱ // 0x1d96 @0x1b
0x1d7b…1d9e at001c = ╱31╱1╱ // 0x1d97 @0x1c
0x1d7b…1d9e at001d = ╱20╱…╱ // 0x1d98 @0x1d
0x1d7b…1d9e at001e = ╱33╱3╱ // 0x1d99 @0x1e
0x1d7b…1d9e at001f = ╱39╱9╱ // 0x1d9a @0x1f
0x1d7b…1d9e at0020 = ╱22╱"╱ // 0x1d9b @0x20
0x1d7b…1d9e at0021 = ╱b6╱ THEN ╱ // 0x1d9c @0x21
0x1d7b…1d9e at0022 = EOL // 0x1d9d @0x22
0x1d7b…1d9e }
0x1d9e…1dac ab03 3540 QUQ=KUK+E
0x1d9e…1dac LineComalBin {
0x1d9e…1dac ptr = 0xab03 // 0x1d9e @0x0
0x1d9e…1dac lno = 0x0dd4 // 0x1da0 @0x2
0x1d9e…1dac at0004 = ╱51╱Q╱ // 0x1da2 @0x4
0x1d9e…1dac at0005 = ╱55╱U╱ // 0x1da3 @0x5
0x1d9e…1dac at0006 = ╱51╱Q╱ // 0x1da4 @0x6
0x1d9e…1dac at0007 = ╱dc╱=╱ // 0x1da5 @0x7
0x1d9e…1dac at0008 = ╱4b╱K╱ // 0x1da6 @0x8
0x1d9e…1dac at0009 = ╱55╱U╱ // 0x1da7 @0x9
0x1d9e…1dac at000a = ╱4b╱K╱ // 0x1da8 @0xa
0x1d9e…1dac at000b = ╱e2╱+╱ // 0x1da9 @0xb
0x1d9e…1dac at000c = ╱45╱E╱ // 0x1daa @0xc
0x1d9e…1dac at000d = EOL // 0x1dab @0xd
0x1d9e…1dac }
0x1dac…1dbb ab12 3550 WHILE QUQ<SIDST
0x1dac…1dbb LineComalBin {
0x1dac…1dbb ptr = 0xab12 // 0x1dac @0x0
0x1dac…1dbb lno = 0x0dde // 0x1dae @0x2
0x1dac…1dbb at0004 = ╱93╱ WHILE ╱ // 0x1db0 @0x4
0x1dac…1dbb at0005 = ╱51╱Q╱ // 0x1db1 @0x5
0x1dac…1dbb at0006 = ╱55╱U╱ // 0x1db2 @0x6
0x1dac…1dbb at0007 = ╱51╱Q╱ // 0x1db3 @0x7
0x1dac…1dbb at0008 = ╱dd╱<╱ // 0x1db4 @0x8
0x1dac…1dbb at0009 = ╱53╱S╱ // 0x1db5 @0x9
0x1dac…1dbb at000a = ╱49╱I╱ // 0x1db6 @0xa
0x1dac…1dbb at000b = ╱44╱D╱ // 0x1db7 @0xb
0x1dac…1dbb at000c = ╱53╱S╱ // 0x1db8 @0xc
0x1dac…1dbb at000d = ╱54╱T╱ // 0x1db9 @0xd
0x1dac…1dbb at000e = EOL // 0x1dba @0xe
0x1dac…1dbb }
0x1dbb…1dd7 ab2e 3560 SIDE$(QUQ)=SIDE$(QUQ+E)
0x1dbb…1dd7 LineComalBin {
0x1dbb…1dd7 ptr = 0xab2e // 0x1dbb @0x0
0x1dbb…1dd7 lno = 0x0de8 // 0x1dbd @0x2
0x1dbb…1dd7 at0004 = ╱53╱S╱ // 0x1dbf @0x4
0x1dbb…1dd7 at0005 = ╱49╱I╱ // 0x1dc0 @0x5
0x1dbb…1dd7 at0006 = ╱44╱D╱ // 0x1dc1 @0x6
0x1dbb…1dd7 at0007 = ╱45╱E╱ // 0x1dc2 @0x7
0x1dbb…1dd7 at0008 = ╱ef╱$╱ // 0x1dc3 @0x8
0x1dbb…1dd7 at0009 = ╱ed╱(╱ // 0x1dc4 @0x9
0x1dbb…1dd7 at000a = ╱51╱Q╱ // 0x1dc5 @0xa
0x1dbb…1dd7 at000b = ╱55╱U╱ // 0x1dc6 @0xb
0x1dbb…1dd7 at000c = ╱51╱Q╱ // 0x1dc7 @0xc
0x1dbb…1dd7 at000d = ╱ee╱)╱ // 0x1dc8 @0xd
0x1dbb…1dd7 at000e = ╱dc╱=╱ // 0x1dc9 @0xe
0x1dbb…1dd7 at000f = ╱53╱S╱ // 0x1dca @0xf
0x1dbb…1dd7 at0010 = ╱49╱I╱ // 0x1dcb @0x10
0x1dbb…1dd7 at0011 = ╱44╱D╱ // 0x1dcc @0x11
0x1dbb…1dd7 at0012 = ╱45╱E╱ // 0x1dcd @0x12
0x1dbb…1dd7 at0013 = ╱ef╱$╱ // 0x1dce @0x13
0x1dbb…1dd7 at0014 = ╱ed╱(╱ // 0x1dcf @0x14
0x1dbb…1dd7 at0015 = ╱51╱Q╱ // 0x1dd0 @0x15
0x1dbb…1dd7 at0016 = ╱55╱U╱ // 0x1dd1 @0x16
0x1dbb…1dd7 at0017 = ╱51╱Q╱ // 0x1dd2 @0x17
0x1dbb…1dd7 at0018 = ╱e2╱+╱ // 0x1dd3 @0x18
0x1dbb…1dd7 at0019 = ╱45╱E╱ // 0x1dd4 @0x19
0x1dbb…1dd7 at001a = ╱ee╱)╱ // 0x1dd5 @0x1a
0x1dbb…1dd7 at001b = EOL // 0x1dd6 @0x1b
0x1dbb…1dd7 }
0x1dd7…1de5 ab3c 3570 QUQ=QUQ+E
0x1dd7…1de5 LineComalBin {
0x1dd7…1de5 ptr = 0xab3c // 0x1dd7 @0x0
0x1dd7…1de5 lno = 0x0df2 // 0x1dd9 @0x2
0x1dd7…1de5 at0004 = ╱51╱Q╱ // 0x1ddb @0x4
0x1dd7…1de5 at0005 = ╱55╱U╱ // 0x1ddc @0x5
0x1dd7…1de5 at0006 = ╱51╱Q╱ // 0x1ddd @0x6
0x1dd7…1de5 at0007 = ╱dc╱=╱ // 0x1dde @0x7
0x1dd7…1de5 at0008 = ╱51╱Q╱ // 0x1ddf @0x8
0x1dd7…1de5 at0009 = ╱55╱U╱ // 0x1de0 @0x9
0x1dd7…1de5 at000a = ╱51╱Q╱ // 0x1de1 @0xa
0x1dd7…1de5 at000b = ╱e2╱+╱ // 0x1de2 @0xb
0x1dd7…1de5 at000c = ╱45╱E╱ // 0x1de3 @0xc
0x1dd7…1de5 at000d = EOL // 0x1de4 @0xd
0x1dd7…1de5 }
0x1de5…1deb ab42 3580 ENDWHILE
0x1de5…1deb LineComalBin {
0x1de5…1deb ptr = 0xab42 // 0x1de5 @0x0
0x1de5…1deb lno = 0x0dfc // 0x1de7 @0x2
0x1de5…1deb at0004 = ╱94╱ ENDWHILE ╱ // 0x1de9 @0x4
0x1de5…1deb at0005 = EOL // 0x1dea @0x5
0x1de5…1deb }
0x1deb…1dfd ab54 3590 SIDST=SIDST-E
0x1deb…1dfd LineComalBin {
0x1deb…1dfd ptr = 0xab54 // 0x1deb @0x0
0x1deb…1dfd lno = 0x0e06 // 0x1ded @0x2
0x1deb…1dfd at0004 = ╱53╱S╱ // 0x1def @0x4
0x1deb…1dfd at0005 = ╱49╱I╱ // 0x1df0 @0x5
0x1deb…1dfd at0006 = ╱44╱D╱ // 0x1df1 @0x6
0x1deb…1dfd at0007 = ╱53╱S╱ // 0x1df2 @0x7
0x1deb…1dfd at0008 = ╱54╱T╱ // 0x1df3 @0x8
0x1deb…1dfd at0009 = ╱dc╱=╱ // 0x1df4 @0x9
0x1deb…1dfd at000a = ╱53╱S╱ // 0x1df5 @0xa
0x1deb…1dfd at000b = ╱49╱I╱ // 0x1df6 @0xb
0x1deb…1dfd at000c = ╱44╱D╱ // 0x1df7 @0xc
0x1deb…1dfd at000d = ╱53╱S╱ // 0x1df8 @0xd
0x1deb…1dfd at000e = ╱54╱T╱ // 0x1df9 @0xe
0x1deb…1dfd at000f = ╱e3╱-╱ // 0x1dfa @0xf
0x1deb…1dfd at0010 = ╱45╱E╱ // 0x1dfb @0x10
0x1deb…1dfd at0011 = EOL // 0x1dfc @0x11
0x1deb…1dfd }
0x1dfd…1e09 ab60 3600 AT=AT-E
0x1dfd…1e09 LineComalBin {
0x1dfd…1e09 ptr = 0xab60 // 0x1dfd @0x0
0x1dfd…1e09 lno = 0x0e10 // 0x1dff @0x2
0x1dfd…1e09 at0004 = ╱41╱A╱ // 0x1e01 @0x4
0x1dfd…1e09 at0005 = ╱54╱T╱ // 0x1e02 @0x5
0x1dfd…1e09 at0006 = ╱dc╱=╱ // 0x1e03 @0x6
0x1dfd…1e09 at0007 = ╱41╱A╱ // 0x1e04 @0x7
0x1dfd…1e09 at0008 = ╱54╱T╱ // 0x1e05 @0x8
0x1dfd…1e09 at0009 = ╱e3╱-╱ // 0x1e06 @0x9
0x1dfd…1e09 at000a = ╱45╱E╱ // 0x1e07 @0xa
0x1dfd…1e09 at000b = EOL // 0x1e08 @0xb
0x1dfd…1e09 }
0x1e09…1e1e ab75 3610 LAST=SIDST-FØRST
0x1e09…1e1e LineComalBin {
0x1e09…1e1e ptr = 0xab75 // 0x1e09 @0x0
0x1e09…1e1e lno = 0x0e1a // 0x1e0b @0x2
0x1e09…1e1e at0004 = ╱4c╱L╱ // 0x1e0d @0x4
0x1e09…1e1e at0005 = ╱41╱A╱ // 0x1e0e @0x5
0x1e09…1e1e at0006 = ╱53╱S╱ // 0x1e0f @0x6
0x1e09…1e1e at0007 = ╱54╱T╱ // 0x1e10 @0x7
0x1e09…1e1e at0008 = ╱dc╱=╱ // 0x1e11 @0x8
0x1e09…1e1e at0009 = ╱53╱S╱ // 0x1e12 @0x9
0x1e09…1e1e at000a = ╱49╱I╱ // 0x1e13 @0xa
0x1e09…1e1e at000b = ╱44╱D╱ // 0x1e14 @0xb
0x1e09…1e1e at000c = ╱53╱S╱ // 0x1e15 @0xc
0x1e09…1e1e at000d = ╱54╱T╱ // 0x1e16 @0xd
0x1e09…1e1e at000e = ╱e3╱-╱ // 0x1e17 @0xe
0x1e09…1e1e at000f = ╱46╱F╱ // 0x1e18 @0xf
0x1e09…1e1e at0010 = ╱5c╱Ø╱ // 0x1e19 @0x10
0x1e09…1e1e at0011 = ╱52╱R╱ // 0x1e1a @0x11
0x1e09…1e1e at0012 = ╱53╱S╱ // 0x1e1b @0x12
0x1e09…1e1e at0013 = ╱54╱T╱ // 0x1e1c @0x13
0x1e09…1e1e at0014 = EOL // 0x1e1d @0x14
0x1e09…1e1e }
0x1e1e…1e3d ab94 3620 IF LAST>18 THEN LAST=18
0x1e1e…1e3d LineComalBin {
0x1e1e…1e3d ptr = 0xab94 // 0x1e1e @0x0
0x1e1e…1e3d lno = 0x0e24 // 0x1e20 @0x2
0x1e1e…1e3d at0004 = ╱82╱ IF ╱ // 0x1e22 @0x4
0x1e1e…1e3d at0005 = ╱4c╱L╱ // 0x1e23 @0x5
0x1e1e…1e3d at0006 = ╱41╱A╱ // 0x1e24 @0x6
0x1e1e…1e3d at0007 = ╱53╱S╱ // 0x1e25 @0x7
0x1e1e…1e3d at0008 = ╱54╱T╱ // 0x1e26 @0x8
0x1e1e…1e3d at0009 = ╱de╱>╱ // 0x1e27 @0x9
0x1e1e…1e3d at000a = ╱31╱1╱ // 0x1e28 @0xa
0x1e1e…1e3d at000b = ╱38╱8╱ // 0x1e29 @0xb
0x1e1e…1e3d at000c = ╱fe00009005╱ // 0x1e2a @0xc
0x1e1e…1e3d at0011 = ╱b6╱ THEN ╱ // 0x1e2f @0x11
0x1e1e…1e3d at0012 = ╱4c╱L╱ // 0x1e30 @0x12
0x1e1e…1e3d at0013 = ╱41╱A╱ // 0x1e31 @0x13
0x1e1e…1e3d at0014 = ╱53╱S╱ // 0x1e32 @0x14
0x1e1e…1e3d at0015 = ╱54╱T╱ // 0x1e33 @0x15
0x1e1e…1e3d at0016 = ╱dc╱=╱ // 0x1e34 @0x16
0x1e1e…1e3d at0017 = ╱31╱1╱ // 0x1e35 @0x17
0x1e1e…1e3d at0018 = ╱38╱8╱ // 0x1e36 @0x18
0x1e1e…1e3d at0019 = ╱fe00009005╱ // 0x1e37 @0x19
0x1e1e…1e3d at001e = EOL // 0x1e3c @0x1e
0x1e1e…1e3d }
0x1e3d…1e4b aba2 3630 EXEC SKRIVSID
0x1e3d…1e4b LineComalBin {
0x1e3d…1e4b ptr = 0xaba2 // 0x1e3d @0x0
0x1e3d…1e4b lno = 0x0e2e // 0x1e3f @0x2
0x1e3d…1e4b at0004 = ╱9d╱ EXEC ╱ // 0x1e41 @0x4
0x1e3d…1e4b at0005 = ╱53╱S╱ // 0x1e42 @0x5
0x1e3d…1e4b at0006 = ╱4b╱K╱ // 0x1e43 @0x6
0x1e3d…1e4b at0007 = ╱52╱R╱ // 0x1e44 @0x7
0x1e3d…1e4b at0008 = ╱49╱I╱ // 0x1e45 @0x8
0x1e3d…1e4b at0009 = ╱56╱V╱ // 0x1e46 @0x9
0x1e3d…1e4b at000a = ╱53╱S╱ // 0x1e47 @0xa
0x1e3d…1e4b at000b = ╱49╱I╱ // 0x1e48 @0xb
0x1e3d…1e4b at000c = ╱44╱D╱ // 0x1e49 @0xc
0x1e3d…1e4b at000d = EOL // 0x1e4a @0xd
0x1e3d…1e4b }
0x1e4b…1e51 aba8 3640 ENDIF
0x1e4b…1e51 LineComalBin {
0x1e4b…1e51 ptr = 0xaba8 // 0x1e4b @0x0
0x1e4b…1e51 lno = 0x0e38 // 0x1e4d @0x2
0x1e4b…1e51 at0004 = ╱9b╱ ENDIF ╱ // 0x1e4f @0x4
0x1e4b…1e51 at0005 = EOL // 0x1e50 @0x5
0x1e4b…1e51 }
0x1e51…1e57 abae 3650 ENDIF
0x1e51…1e57 LineComalBin {
0x1e51…1e57 ptr = 0xabae // 0x1e51 @0x0
0x1e51…1e57 lno = 0x0e42 // 0x1e53 @0x2
0x1e51…1e57 at0004 = ╱9b╱ ENDIF ╱ // 0x1e55 @0x4
0x1e51…1e57 at0005 = EOL // 0x1e56 @0x5
0x1e51…1e57 }
0x1e57…1e5d abb4 3660 ENDIF
0x1e57…1e5d LineComalBin {
0x1e57…1e5d ptr = 0xabb4 // 0x1e57 @0x0
0x1e57…1e5d lno = 0x0e4c // 0x1e59 @0x2
0x1e57…1e5d at0004 = ╱9b╱ ENDIF ╱ // 0x1e5b @0x4
0x1e57…1e5d at0005 = EOL // 0x1e5c @0x5
0x1e57…1e5d }
0x1e5d…1e63 abba 3670 ENDIF
0x1e5d…1e63 LineComalBin {
0x1e5d…1e63 ptr = 0xabba // 0x1e5d @0x0
0x1e5d…1e63 lno = 0x0e56 // 0x1e5f @0x2
0x1e5d…1e63 at0004 = ╱9b╱ ENDIF ╱ // 0x1e61 @0x4
0x1e5d…1e63 at0005 = EOL // 0x1e62 @0x5
0x1e5d…1e63 }
0x1e63…1e69 abc0 3680 ENDIF
0x1e63…1e69 LineComalBin {
0x1e63…1e69 ptr = 0xabc0 // 0x1e63 @0x0
0x1e63…1e69 lno = 0x0e60 // 0x1e65 @0x2
0x1e63…1e69 at0004 = ╱9b╱ ENDIF ╱ // 0x1e67 @0x4
0x1e63…1e69 at0005 = EOL // 0x1e68 @0x5
0x1e63…1e69 }
0x1e69…1e6f abc6 3690 ENDPROC
0x1e69…1e6f LineComalBin {
0x1e69…1e6f ptr = 0xabc6 // 0x1e69 @0x0
0x1e69…1e6f lno = 0x0e6a // 0x1e6b @0x2
0x1e69…1e6f at0004 = ╱9f╱ ENDPROC ╱ // 0x1e6d @0x4
0x1e69…1e6f at0005 = EOL // 0x1e6e @0x5
0x1e69…1e6f }
0x1e6f…1e7d abd4 3700 PROC AUTTRANS
0x1e6f…1e7d LineComalBin {
0x1e6f…1e7d ptr = 0xabd4 // 0x1e6f @0x0
0x1e6f…1e7d lno = 0x0e74 // 0x1e71 @0x2
0x1e6f…1e7d at0004 = ╱9e╱ PROC ╱ // 0x1e73 @0x4
0x1e6f…1e7d at0005 = ╱41╱A╱ // 0x1e74 @0x5
0x1e6f…1e7d at0006 = ╱55╱U╱ // 0x1e75 @0x6
0x1e6f…1e7d at0007 = ╱54╱T╱ // 0x1e76 @0x7
0x1e6f…1e7d at0008 = ╱54╱T╱ // 0x1e77 @0x8
0x1e6f…1e7d at0009 = ╱52╱R╱ // 0x1e78 @0x9
0x1e6f…1e7d at000a = ╱41╱A╱ // 0x1e79 @0xa
0x1e6f…1e7d at000b = ╱4e╱N╱ // 0x1e7a @0xb
0x1e6f…1e7d at000c = ╱53╱S╱ // 0x1e7b @0xc
0x1e6f…1e7d at000d = EOL // 0x1e7c @0xd
0x1e6f…1e7d }
0x1e7d…1e83 abda 3710 CLEAR
0x1e7d…1e83 LineComalBin {
0x1e7d…1e83 ptr = 0xabda // 0x1e7d @0x0
0x1e7d…1e83 lno = 0x0e7e // 0x1e7f @0x2
0x1e7d…1e83 at0004 = ╱a0╱ CLEAR ╱ // 0x1e81 @0x4
0x1e7d…1e83 at0005 = EOL // 0x1e82 @0x5
0x1e7d…1e83 }
0x1e83…1eaf ac06 3720 PRINT " L Ø N B E R E G N I N G"
0x1e83…1eaf LineComalBin {
0x1e83…1eaf ptr = 0xac06 // 0x1e83 @0x0
0x1e83…1eaf lno = 0x0e88 // 0x1e85 @0x2
0x1e83…1eaf at0004 = ╱92╱ PRINT ╱ // 0x1e87 @0x4
0x1e83…1eaf at0005 = ╱22╱"╱ // 0x1e88 @0x5
0x1e83…1eaf at0006 = ╱20╱…╱ // 0x1e89 @0x6
0x1e83…1eaf at0007 = ╱20╱…╱ // 0x1e8a @0x7
0x1e83…1eaf at0008 = ╱20╱…╱ // 0x1e8b @0x8
0x1e83…1eaf at0009 = ╱20╱…╱ // 0x1e8c @0x9
0x1e83…1eaf at000a = ╱20╱…╱ // 0x1e8d @0xa
0x1e83…1eaf at000b = ╱20╱…╱ // 0x1e8e @0xb
0x1e83…1eaf at000c = ╱20╱…╱ // 0x1e8f @0xc
0x1e83…1eaf at000d = ╱20╱…╱ // 0x1e90 @0xd
0x1e83…1eaf at000e = ╱20╱…╱ // 0x1e91 @0xe
0x1e83…1eaf at000f = ╱20╱…╱ // 0x1e92 @0xf
0x1e83…1eaf at0010 = ╱20╱…╱ // 0x1e93 @0x10
0x1e83…1eaf at0011 = ╱20╱…╱ // 0x1e94 @0x11
0x1e83…1eaf at0012 = ╱20╱…╱ // 0x1e95 @0x12
0x1e83…1eaf at0013 = ╱4c╱L╱ // 0x1e96 @0x13
0x1e83…1eaf at0014 = ╱20╱…╱ // 0x1e97 @0x14
0x1e83…1eaf at0015 = ╱5c╱Ø╱ // 0x1e98 @0x15
0x1e83…1eaf at0016 = ╱20╱…╱ // 0x1e99 @0x16
0x1e83…1eaf at0017 = ╱4e╱N╱ // 0x1e9a @0x17
0x1e83…1eaf at0018 = ╱20╱…╱ // 0x1e9b @0x18
0x1e83…1eaf at0019 = ╱42╱B╱ // 0x1e9c @0x19
0x1e83…1eaf at001a = ╱20╱…╱ // 0x1e9d @0x1a
0x1e83…1eaf at001b = ╱45╱E╱ // 0x1e9e @0x1b
0x1e83…1eaf at001c = ╱20╱…╱ // 0x1e9f @0x1c
0x1e83…1eaf at001d = ╱52╱R╱ // 0x1ea0 @0x1d
0x1e83…1eaf at001e = ╱20╱…╱ // 0x1ea1 @0x1e
0x1e83…1eaf at001f = ╱45╱E╱ // 0x1ea2 @0x1f
0x1e83…1eaf at0020 = ╱20╱…╱ // 0x1ea3 @0x20
0x1e83…1eaf at0021 = ╱47╱G╱ // 0x1ea4 @0x21
0x1e83…1eaf at0022 = ╱20╱…╱ // 0x1ea5 @0x22
0x1e83…1eaf at0023 = ╱4e╱N╱ // 0x1ea6 @0x23
0x1e83…1eaf at0024 = ╱20╱…╱ // 0x1ea7 @0x24
0x1e83…1eaf at0025 = ╱49╱I╱ // 0x1ea8 @0x25
0x1e83…1eaf at0026 = ╱20╱…╱ // 0x1ea9 @0x26
0x1e83…1eaf at0027 = ╱4e╱N╱ // 0x1eaa @0x27
0x1e83…1eaf at0028 = ╱20╱…╱ // 0x1eab @0x28
0x1e83…1eaf at0029 = ╱47╱G╱ // 0x1eac @0x29
0x1e83…1eaf at002a = ╱22╱"╱ // 0x1ead @0x2a
0x1e83…1eaf at002b = EOL // 0x1eae @0x2b
0x1e83…1eaf }
0x1eaf…1ebe ac15 3730 PRINT "Lønnr ";
0x1eaf…1ebe LineComalBin {
0x1eaf…1ebe ptr = 0xac15 // 0x1eaf @0x0
0x1eaf…1ebe lno = 0x0e92 // 0x1eb1 @0x2
0x1eaf…1ebe at0004 = ╱92╱ PRINT ╱ // 0x1eb3 @0x4
0x1eaf…1ebe at0005 = ╱22╱"╱ // 0x1eb4 @0x5
0x1eaf…1ebe at0006 = ╱4c╱L╱ // 0x1eb5 @0x6
0x1eaf…1ebe at0007 = ╱7c╱ø╱ // 0x1eb6 @0x7
0x1eaf…1ebe at0008 = ╱6e╱n╱ // 0x1eb7 @0x8
0x1eaf…1ebe at0009 = ╱6e╱n╱ // 0x1eb8 @0x9
0x1eaf…1ebe at000a = ╱72╱r╱ // 0x1eb9 @0xa
0x1eaf…1ebe at000b = ╱20╱…╱ // 0x1eba @0xb
0x1eaf…1ebe at000c = ╱22╱"╱ // 0x1ebb @0xc
0x1eaf…1ebe at000d = ╱eb╱;╱ // 0x1ebc @0xd
0x1eaf…1ebe at000e = EOL // 0x1ebd @0xe
0x1eaf…1ebe }
0x1ebe…1ed2 ac29 3740 PRINT USING "#### ":LMNR;
0x1ebe…1ed2 LineComalBin {
0x1ebe…1ed2 ptr = 0xac29 // 0x1ebe @0x0
0x1ebe…1ed2 lno = 0x0e9c // 0x1ec0 @0x2
0x1ebe…1ed2 at0004 = ╱92╱ PRINT ╱ // 0x1ec2 @0x4
0x1ebe…1ed2 at0005 = ╱b9╱ USING ╱ // 0x1ec3 @0x5
0x1ebe…1ed2 at0006 = ╱22╱"╱ // 0x1ec4 @0x6
0x1ebe…1ed2 at0007 = ╱23╱#╱ // 0x1ec5 @0x7
0x1ebe…1ed2 at0008 = ╱23╱#╱ // 0x1ec6 @0x8
0x1ebe…1ed2 at0009 = ╱23╱#╱ // 0x1ec7 @0x9
0x1ebe…1ed2 at000a = ╱23╱#╱ // 0x1ec8 @0xa
0x1ebe…1ed2 at000b = ╱20╱…╱ // 0x1ec9 @0xb
0x1ebe…1ed2 at000c = ╱22╱"╱ // 0x1eca @0xc
0x1ebe…1ed2 at000d = ╱f0╱:╱ // 0x1ecb @0xd
0x1ebe…1ed2 at000e = ╱4c╱L╱ // 0x1ecc @0xe
0x1ebe…1ed2 at000f = ╱4d╱M╱ // 0x1ecd @0xf
0x1ebe…1ed2 at0010 = ╱4e╱N╱ // 0x1ece @0x10
0x1ebe…1ed2 at0011 = ╱52╱R╱ // 0x1ecf @0x11
0x1ebe…1ed2 at0012 = ╱eb╱;╱ // 0x1ed0 @0x12
0x1ebe…1ed2 at0013 = EOL // 0x1ed1 @0x13
0x1ebe…1ed2 }
0x1ed2…1ef1 ac48 3750 PRINT "Navn ";POST1$(E,25)
0x1ed2…1ef1 LineComalBin {
0x1ed2…1ef1 ptr = 0xac48 // 0x1ed2 @0x0
0x1ed2…1ef1 lno = 0x0ea6 // 0x1ed4 @0x2
0x1ed2…1ef1 at0004 = ╱92╱ PRINT ╱ // 0x1ed6 @0x4
0x1ed2…1ef1 at0005 = ╱22╱"╱ // 0x1ed7 @0x5
0x1ed2…1ef1 at0006 = ╱4e╱N╱ // 0x1ed8 @0x6
0x1ed2…1ef1 at0007 = ╱61╱a╱ // 0x1ed9 @0x7
0x1ed2…1ef1 at0008 = ╱76╱v╱ // 0x1eda @0x8
0x1ed2…1ef1 at0009 = ╱6e╱n╱ // 0x1edb @0x9
0x1ed2…1ef1 at000a = ╱20╱…╱ // 0x1edc @0xa
0x1ed2…1ef1 at000b = ╱22╱"╱ // 0x1edd @0xb
0x1ed2…1ef1 at000c = ╱eb╱;╱ // 0x1ede @0xc
0x1ed2…1ef1 at000d = ╱50╱P╱ // 0x1edf @0xd
0x1ed2…1ef1 at000e = ╱4f╱O╱ // 0x1ee0 @0xe
0x1ed2…1ef1 at000f = ╱53╱S╱ // 0x1ee1 @0xf
0x1ed2…1ef1 at0010 = ╱54╱T╱ // 0x1ee2 @0x10
0x1ed2…1ef1 at0011 = ╱31╱1╱ // 0x1ee3 @0x11
0x1ed2…1ef1 at0012 = ╱ef╱$╱ // 0x1ee4 @0x12
0x1ed2…1ef1 at0013 = ╱ed╱(╱ // 0x1ee5 @0x13
0x1ed2…1ef1 at0014 = ╱45╱E╱ // 0x1ee6 @0x14
0x1ed2…1ef1 at0015 = ╱ec╱,╱ // 0x1ee7 @0x15
0x1ed2…1ef1 at0016 = ╱32╱2╱ // 0x1ee8 @0x16
0x1ed2…1ef1 at0017 = ╱35╱5╱ // 0x1ee9 @0x17
0x1ed2…1ef1 at0018 = ╱fe0000c805╱ // 0x1eea @0x18
0x1ed2…1ef1 at001d = ╱ee╱)╱ // 0x1eef @0x1d
0x1ed2…1ef1 at001e = EOL // 0x1ef0 @0x1e
0x1ed2…1ef1 }
0x1ef1…1f30 ac87 3760 PRINT "Linie Lønart Nummer Enheder Sats Beløb"
0x1ef1…1f30 LineComalBin {
0x1ef1…1f30 ptr = 0xac87 // 0x1ef1 @0x0
0x1ef1…1f30 lno = 0x0eb0 // 0x1ef3 @0x2
0x1ef1…1f30 at0004 = ╱92╱ PRINT ╱ // 0x1ef5 @0x4
0x1ef1…1f30 at0005 = ╱22╱"╱ // 0x1ef6 @0x5
0x1ef1…1f30 at0006 = ╱4c╱L╱ // 0x1ef7 @0x6
0x1ef1…1f30 at0007 = ╱69╱i╱ // 0x1ef8 @0x7
0x1ef1…1f30 at0008 = ╱6e╱n╱ // 0x1ef9 @0x8
0x1ef1…1f30 at0009 = ╱69╱i╱ // 0x1efa @0x9
0x1ef1…1f30 at000a = ╱65╱e╱ // 0x1efb @0xa
0x1ef1…1f30 at000b = ╱20╱…╱ // 0x1efc @0xb
0x1ef1…1f30 at000c = ╱4c╱L╱ // 0x1efd @0xc
0x1ef1…1f30 at000d = ╱7c╱ø╱ // 0x1efe @0xd
0x1ef1…1f30 at000e = ╱6e╱n╱ // 0x1eff @0xe
0x1ef1…1f30 at000f = ╱61╱a╱ // 0x1f00 @0xf
0x1ef1…1f30 at0010 = ╱72╱r╱ // 0x1f01 @0x10
0x1ef1…1f30 at0011 = ╱74╱t╱ // 0x1f02 @0x11
0x1ef1…1f30 at0012 = ╱20╱…╱ // 0x1f03 @0x12
0x1ef1…1f30 at0013 = ╱20╱…╱ // 0x1f04 @0x13
0x1ef1…1f30 at0014 = ╱20╱…╱ // 0x1f05 @0x14
0x1ef1…1f30 at0015 = ╱20╱…╱ // 0x1f06 @0x15
0x1ef1…1f30 at0016 = ╱4e╱N╱ // 0x1f07 @0x16
0x1ef1…1f30 at0017 = ╱75╱u╱ // 0x1f08 @0x17
0x1ef1…1f30 at0018 = ╱6d╱m╱ // 0x1f09 @0x18
0x1ef1…1f30 at0019 = ╱6d╱m╱ // 0x1f0a @0x19
0x1ef1…1f30 at001a = ╱65╱e╱ // 0x1f0b @0x1a
0x1ef1…1f30 at001b = ╱72╱r╱ // 0x1f0c @0x1b
0x1ef1…1f30 at001c = ╱20╱…╱ // 0x1f0d @0x1c
0x1ef1…1f30 at001d = ╱20╱…╱ // 0x1f0e @0x1d
0x1ef1…1f30 at001e = ╱20╱…╱ // 0x1f0f @0x1e
0x1ef1…1f30 at001f = ╱20╱…╱ // 0x1f10 @0x1f
0x1ef1…1f30 at0020 = ╱20╱…╱ // 0x1f11 @0x20
0x1ef1…1f30 at0021 = ╱45╱E╱ // 0x1f12 @0x21
0x1ef1…1f30 at0022 = ╱6e╱n╱ // 0x1f13 @0x22
0x1ef1…1f30 at0023 = ╱68╱h╱ // 0x1f14 @0x23
0x1ef1…1f30 at0024 = ╱65╱e╱ // 0x1f15 @0x24
0x1ef1…1f30 at0025 = ╱64╱d╱ // 0x1f16 @0x25
0x1ef1…1f30 at0026 = ╱65╱e╱ // 0x1f17 @0x26
0x1ef1…1f30 at0027 = ╱72╱r╱ // 0x1f18 @0x27
0x1ef1…1f30 at0028 = ╱20╱…╱ // 0x1f19 @0x28
0x1ef1…1f30 at0029 = ╱20╱…╱ // 0x1f1a @0x29
0x1ef1…1f30 at002a = ╱20╱…╱ // 0x1f1b @0x2a
0x1ef1…1f30 at002b = ╱20╱…╱ // 0x1f1c @0x2b
0x1ef1…1f30 at002c = ╱20╱…╱ // 0x1f1d @0x2c
0x1ef1…1f30 at002d = ╱20╱…╱ // 0x1f1e @0x2d
0x1ef1…1f30 at002e = ╱53╱S╱ // 0x1f1f @0x2e
0x1ef1…1f30 at002f = ╱61╱a╱ // 0x1f20 @0x2f
0x1ef1…1f30 at0030 = ╱74╱t╱ // 0x1f21 @0x30
0x1ef1…1f30 at0031 = ╱73╱s╱ // 0x1f22 @0x31
0x1ef1…1f30 at0032 = ╱20╱…╱ // 0x1f23 @0x32
0x1ef1…1f30 at0033 = ╱20╱…╱ // 0x1f24 @0x33
0x1ef1…1f30 at0034 = ╱20╱…╱ // 0x1f25 @0x34
0x1ef1…1f30 at0035 = ╱20╱…╱ // 0x1f26 @0x35
0x1ef1…1f30 at0036 = ╱20╱…╱ // 0x1f27 @0x36
0x1ef1…1f30 at0037 = ╱20╱…╱ // 0x1f28 @0x37
0x1ef1…1f30 at0038 = ╱42╱B╱ // 0x1f29 @0x38
0x1ef1…1f30 at0039 = ╱65╱e╱ // 0x1f2a @0x39
0x1ef1…1f30 at003a = ╱6c╱l╱ // 0x1f2b @0x3a
0x1ef1…1f30 at003b = ╱7c╱ø╱ // 0x1f2c @0x3b
0x1ef1…1f30 at003c = ╱62╱b╱ // 0x1f2d @0x3c
0x1ef1…1f30 at003d = ╱22╱"╱ // 0x1f2e @0x3d
0x1ef1…1f30 at003e = EOL // 0x1f2f @0x3e
0x1ef1…1f30 }
0x1f30…1f53 acaa 3770 IF POST2$(24,25)<"90" THEN
0x1f30…1f53 LineComalBin {
0x1f30…1f53 ptr = 0xacaa // 0x1f30 @0x0
0x1f30…1f53 lno = 0x0eba // 0x1f32 @0x2
0x1f30…1f53 at0004 = ╱9c╱ IF ╱ // 0x1f34 @0x4
0x1f30…1f53 at0005 = ╱50╱P╱ // 0x1f35 @0x5
0x1f30…1f53 at0006 = ╱4f╱O╱ // 0x1f36 @0x6
0x1f30…1f53 at0007 = ╱53╱S╱ // 0x1f37 @0x7
0x1f30…1f53 at0008 = ╱54╱T╱ // 0x1f38 @0x8
0x1f30…1f53 at0009 = ╱32╱2╱ // 0x1f39 @0x9
0x1f30…1f53 at000a = ╱ef╱$╱ // 0x1f3a @0xa
0x1f30…1f53 at000b = ╱ed╱(╱ // 0x1f3b @0xb
0x1f30…1f53 at000c = ╱32╱2╱ // 0x1f3c @0xc
0x1f30…1f53 at000d = ╱34╱4╱ // 0x1f3d @0xd
0x1f30…1f53 at000e = ╱fe0000c005╱ // 0x1f3e @0xe
0x1f30…1f53 at0013 = ╱ec╱,╱ // 0x1f43 @0x13
0x1f30…1f53 at0014 = ╱32╱2╱ // 0x1f44 @0x14
0x1f30…1f53 at0015 = ╱35╱5╱ // 0x1f45 @0x15
0x1f30…1f53 at0016 = ╱fe0000c805╱ // 0x1f46 @0x16
0x1f30…1f53 at001b = ╱ee╱)╱ // 0x1f4b @0x1b
0x1f30…1f53 at001c = ╱dd╱<╱ // 0x1f4c @0x1c
0x1f30…1f53 at001d = ╱22╱"╱ // 0x1f4d @0x1d
0x1f30…1f53 at001e = ╱39╱9╱ // 0x1f4e @0x1e
0x1f30…1f53 at001f = ╱30╱0╱ // 0x1f4f @0x1f
0x1f30…1f53 at0020 = ╱22╱"╱ // 0x1f50 @0x20
0x1f30…1f53 at0021 = ╱b6╱ THEN ╱ // 0x1f51 @0x21
0x1f30…1f53 at0022 = EOL // 0x1f52 @0x22
0x1f30…1f53 }
0x1f53…1f5c acb3 3780 II=G
0x1f53…1f5c LineComalBin {
0x1f53…1f5c ptr = 0xacb3 // 0x1f53 @0x0
0x1f53…1f5c lno = 0x0ec4 // 0x1f55 @0x2
0x1f53…1f5c at0004 = ╱49╱I╱ // 0x1f57 @0x4
0x1f53…1f5c at0005 = ╱49╱I╱ // 0x1f58 @0x5
0x1f53…1f5c at0006 = ╱dc╱=╱ // 0x1f59 @0x6
0x1f53…1f5c at0007 = ╱47╱G╱ // 0x1f5a @0x7
0x1f53…1f5c at0008 = EOL // 0x1f5b @0x8
0x1f53…1f5c }
0x1f5c…1f62 acb9 3790 ELSE
0x1f5c…1f62 LineComalBin {
0x1f5c…1f62 ptr = 0xacb9 // 0x1f5c @0x0
0x1f5c…1f62 lno = 0x0ece // 0x1f5e @0x2
0x1f5c…1f62 at0004 = ╱9a╱ ELSE ╱ // 0x1f60 @0x4
0x1f5c…1f62 at0005 = EOL // 0x1f61 @0x5
0x1f5c…1f62 }
0x1f62…1f6b acc2 3800 II=E
0x1f62…1f6b LineComalBin {
0x1f62…1f6b ptr = 0xacc2 // 0x1f62 @0x0
0x1f62…1f6b lno = 0x0ed8 // 0x1f64 @0x2
0x1f62…1f6b at0004 = ╱49╱I╱ // 0x1f66 @0x4
0x1f62…1f6b at0005 = ╱49╱I╱ // 0x1f67 @0x5
0x1f62…1f6b at0006 = ╱dc╱=╱ // 0x1f68 @0x6
0x1f62…1f6b at0007 = ╱45╱E╱ // 0x1f69 @0x7
0x1f62…1f6b at0008 = EOL // 0x1f6a @0x8
0x1f62…1f6b }
0x1f6b…1f71 acc8 3810 ENDIF
0x1f6b…1f71 LineComalBin {
0x1f6b…1f71 ptr = 0xacc8 // 0x1f6b @0x0
0x1f6b…1f71 lno = 0x0ee2 // 0x1f6d @0x2
0x1f6b…1f71 at0004 = ╱9b╱ ENDIF ╱ // 0x1f6f @0x4
0x1f6b…1f71 at0005 = EOL // 0x1f70 @0x5
0x1f6b…1f71 }
0x1f71…1f7d acd4 3820 FOR I=E TO II
0x1f71…1f7d LineComalBin {
0x1f71…1f7d ptr = 0xacd4 // 0x1f71 @0x0
0x1f71…1f7d lno = 0x0eec // 0x1f73 @0x2
0x1f71…1f7d at0004 = ╱83╱ FOR ╱ // 0x1f75 @0x4
0x1f71…1f7d at0005 = ╱49╱I╱ // 0x1f76 @0x5
0x1f71…1f7d at0006 = ╱dc╱=╱ // 0x1f77 @0x6
0x1f71…1f7d at0007 = ╱45╱E╱ // 0x1f78 @0x7
0x1f71…1f7d at0008 = ╱b7╱ TO ╱ // 0x1f79 @0x8
0x1f71…1f7d at0009 = ╱49╱I╱ // 0x1f7a @0x9
0x1f71…1f7d at000a = ╱49╱I╱ // 0x1f7b @0xa
0x1f71…1f7d at000b = EOL // 0x1f7c @0xb
0x1f71…1f7d }
0x1f7d…1f8d ace4 3830 CURSOR 7,V+I
0x1f7d…1f8d LineComalBin {
0x1f7d…1f8d ptr = 0xace4 // 0x1f7d @0x0
0x1f7d…1f8d lno = 0x0ef6 // 0x1f7f @0x2
0x1f7d…1f8d at0004 = ╱a1╱ CURSOR ╱ // 0x1f81 @0x4
0x1f7d…1f8d at0005 = ╱37╱7╱ // 0x1f82 @0x5
0x1f7d…1f8d at0006 = ╱fe0000e003╱ // 0x1f83 @0x6
0x1f7d…1f8d at000b = ╱ec╱,╱ // 0x1f88 @0xb
0x1f7d…1f8d at000c = ╱56╱V╱ // 0x1f89 @0xc
0x1f7d…1f8d at000d = ╱e2╱+╱ // 0x1f8a @0xd
0x1f7d…1f8d at000e = ╱49╱I╱ // 0x1f8b @0xe
0x1f7d…1f8d at000f = EOL // 0x1f8c @0xf
0x1f7d…1f8d }
0x1f8d…1f9e acf5 3840 PRINT AUT$(I,G:V)
0x1f8d…1f9e LineComalBin {
0x1f8d…1f9e ptr = 0xacf5 // 0x1f8d @0x0
0x1f8d…1f9e lno = 0x0f00 // 0x1f8f @0x2
0x1f8d…1f9e at0004 = ╱92╱ PRINT ╱ // 0x1f91 @0x4
0x1f8d…1f9e at0005 = ╱41╱A╱ // 0x1f92 @0x5
0x1f8d…1f9e at0006 = ╱55╱U╱ // 0x1f93 @0x6
0x1f8d…1f9e at0007 = ╱54╱T╱ // 0x1f94 @0x7
0x1f8d…1f9e at0008 = ╱ef╱$╱ // 0x1f95 @0x8
0x1f8d…1f9e at0009 = ╱ed╱(╱ // 0x1f96 @0x9
0x1f8d…1f9e at000a = ╱49╱I╱ // 0x1f97 @0xa
0x1f8d…1f9e at000b = ╱ec╱,╱ // 0x1f98 @0xb
0x1f8d…1f9e at000c = ╱47╱G╱ // 0x1f99 @0xc
0x1f8d…1f9e at000d = ╱f0╱:╱ // 0x1f9a @0xd
0x1f8d…1f9e at000e = ╱56╱V╱ // 0x1f9b @0xe
0x1f8d…1f9e at000f = ╱ee╱)╱ // 0x1f9c @0xf
0x1f8d…1f9e at0010 = EOL // 0x1f9d @0x10
0x1f8d…1f9e }
0x1f9e…1fa4 acfb 3850 REPEAT
0x1f9e…1fa4 LineComalBin {
0x1f9e…1fa4 ptr = 0xacfb // 0x1f9e @0x0
0x1f9e…1fa4 lno = 0x0f0a // 0x1fa0 @0x2
0x1f9e…1fa4 at0004 = ╱97╱ REPEAT ╱ // 0x1fa2 @0x4
0x1f9e…1fa4 at0005 = EOL // 0x1fa3 @0x5
0x1f9e…1fa4 }
0x1fa4…1faa ad01 3860 REPEAT
0x1fa4…1faa LineComalBin {
0x1fa4…1faa ptr = 0xad01 // 0x1fa4 @0x0
0x1fa4…1faa lno = 0x0f14 // 0x1fa6 @0x2
0x1fa4…1faa at0004 = ╱97╱ REPEAT ╱ // 0x1fa8 @0x4
0x1fa4…1faa at0005 = EOL // 0x1fa9 @0x5
0x1fa4…1faa }
0x1faa…1fbb ad12 3870 CURSOR 41,V+I
0x1faa…1fbb LineComalBin {
0x1faa…1fbb ptr = 0xad12 // 0x1faa @0x0
0x1faa…1fbb lno = 0x0f1e // 0x1fac @0x2
0x1faa…1fbb at0004 = ╱a1╱ CURSOR ╱ // 0x1fae @0x4
0x1faa…1fbb at0005 = ╱34╱4╱ // 0x1faf @0x5
0x1faa…1fbb at0006 = ╱31╱1╱ // 0x1fb0 @0x6
0x1faa…1fbb at0007 = ╱fe0000a406╱ // 0x1fb1 @0x7
0x1faa…1fbb at000c = ╱ec╱,╱ // 0x1fb6 @0xc
0x1faa…1fbb at000d = ╱56╱V╱ // 0x1fb7 @0xd
0x1faa…1fbb at000e = ╱e2╱+╱ // 0x1fb8 @0xe
0x1faa…1fbb at000f = ╱49╱I╱ // 0x1fb9 @0xf
0x1faa…1fbb at0010 = EOL // 0x1fba @0x10
0x1faa…1fbb }
0x1fbb…1fdc ad33 3880 LINE$=AUT$(I,21:7)
0x1fbb…1fdc LineComalBin {
0x1fbb…1fdc ptr = 0xad33 // 0x1fbb @0x0
0x1fbb…1fdc lno = 0x0f28 // 0x1fbd @0x2
0x1fbb…1fdc at0004 = ╱4c╱L╱ // 0x1fbf @0x4
0x1fbb…1fdc at0005 = ╱49╱I╱ // 0x1fc0 @0x5
0x1fbb…1fdc at0006 = ╱4e╱N╱ // 0x1fc1 @0x6
0x1fbb…1fdc at0007 = ╱45╱E╱ // 0x1fc2 @0x7
0x1fbb…1fdc at0008 = ╱ef╱$╱ // 0x1fc3 @0x8
0x1fbb…1fdc at0009 = ╱dc╱=╱ // 0x1fc4 @0x9
0x1fbb…1fdc at000a = ╱41╱A╱ // 0x1fc5 @0xa
0x1fbb…1fdc at000b = ╱55╱U╱ // 0x1fc6 @0xb
0x1fbb…1fdc at000c = ╱54╱T╱ // 0x1fc7 @0xc
0x1fbb…1fdc at000d = ╱ef╱$╱ // 0x1fc8 @0xd
0x1fbb…1fdc at000e = ╱ed╱(╱ // 0x1fc9 @0xe
0x1fbb…1fdc at000f = ╱49╱I╱ // 0x1fca @0xf
0x1fbb…1fdc at0010 = ╱ec╱,╱ // 0x1fcb @0x10
0x1fbb…1fdc at0011 = ╱32╱2╱ // 0x1fcc @0x11
0x1fbb…1fdc at0012 = ╱31╱1╱ // 0x1fcd @0x12
0x1fbb…1fdc at0013 = ╱fe0000a805╱ // 0x1fce @0x13
0x1fbb…1fdc at0018 = ╱f0╱:╱ // 0x1fd3 @0x18
0x1fbb…1fdc at0019 = ╱37╱7╱ // 0x1fd4 @0x19
0x1fbb…1fdc at001a = ╱fe0000e003╱ // 0x1fd5 @0x1a
0x1fbb…1fdc at001f = ╱ee╱)╱ // 0x1fda @0x1f
0x1fbb…1fdc at0020 = EOL // 0x1fdb @0x20
0x1fbb…1fdc }
0x1fdc…2005 ad5c 3890 IF LINE$(7)="+" THEN LINE$(7)=" "
0x1fdc…2005 LineComalBin {
0x1fdc…2005 ptr = 0xad5c // 0x1fdc @0x0
0x1fdc…2005 lno = 0x0f32 // 0x1fde @0x2
0x1fdc…2005 at0004 = ╱82╱ IF ╱ // 0x1fe0 @0x4
0x1fdc…2005 at0005 = ╱4c╱L╱ // 0x1fe1 @0x5
0x1fdc…2005 at0006 = ╱49╱I╱ // 0x1fe2 @0x6
0x1fdc…2005 at0007 = ╱4e╱N╱ // 0x1fe3 @0x7
0x1fdc…2005 at0008 = ╱45╱E╱ // 0x1fe4 @0x8
0x1fdc…2005 at0009 = ╱ef╱$╱ // 0x1fe5 @0x9
0x1fdc…2005 at000a = ╱ed╱(╱ // 0x1fe6 @0xa
0x1fdc…2005 at000b = ╱37╱7╱ // 0x1fe7 @0xb
0x1fdc…2005 at000c = ╱fe0000e003╱ // 0x1fe8 @0xc
0x1fdc…2005 at0011 = ╱ee╱)╱ // 0x1fed @0x11
0x1fdc…2005 at0012 = ╱dc╱=╱ // 0x1fee @0x12
0x1fdc…2005 at0013 = ╱22╱"╱ // 0x1fef @0x13
0x1fdc…2005 at0014 = ╱2b╱+╱ // 0x1ff0 @0x14
0x1fdc…2005 at0015 = ╱22╱"╱ // 0x1ff1 @0x15
0x1fdc…2005 at0016 = ╱b6╱ THEN ╱ // 0x1ff2 @0x16
0x1fdc…2005 at0017 = ╱4c╱L╱ // 0x1ff3 @0x17
0x1fdc…2005 at0018 = ╱49╱I╱ // 0x1ff4 @0x18
0x1fdc…2005 at0019 = ╱4e╱N╱ // 0x1ff5 @0x19
0x1fdc…2005 at001a = ╱45╱E╱ // 0x1ff6 @0x1a
0x1fdc…2005 at001b = ╱ef╱$╱ // 0x1ff7 @0x1b
0x1fdc…2005 at001c = ╱ed╱(╱ // 0x1ff8 @0x1c
0x1fdc…2005 at001d = ╱37╱7╱ // 0x1ff9 @0x1d
0x1fdc…2005 at001e = ╱fe0000e003╱ // 0x1ffa @0x1e
0x1fdc…2005 at0023 = ╱ee╱)╱ // 0x1fff @0x23
0x1fdc…2005 at0024 = ╱dc╱=╱ // 0x2000 @0x24
0x1fdc…2005 at0025 = ╱22╱"╱ // 0x2001 @0x25
0x1fdc…2005 at0026 = ╱20╱…╱ // 0x2002 @0x26
0x1fdc…2005 at0027 = ╱22╱"╱ // 0x2003 @0x27
0x1fdc…2005 at0028 = EOL // 0x2004 @0x28
0x1fdc…2005 }
0x2005…2013 ad6a 3900 EDIT "",LINE$
0x2005…2013 LineComalBin {
0x2005…2013 ptr = 0xad6a // 0x2005 @0x0
0x2005…2013 lno = 0x0f3c // 0x2007 @0x2
0x2005…2013 at0004 = ╱b1╱ EDIT ╱ // 0x2009 @0x4
0x2005…2013 at0005 = ╱22╱"╱ // 0x200a @0x5
0x2005…2013 at0006 = ╱22╱"╱ // 0x200b @0x6
0x2005…2013 at0007 = ╱ec╱,╱ // 0x200c @0x7
0x2005…2013 at0008 = ╱4c╱L╱ // 0x200d @0x8
0x2005…2013 at0009 = ╱49╱I╱ // 0x200e @0x9
0x2005…2013 at000a = ╱4e╱N╱ // 0x200f @0xa
0x2005…2013 at000b = ╱45╱E╱ // 0x2010 @0xb
0x2005…2013 at000c = ╱ef╱$╱ // 0x2011 @0xc
0x2005…2013 at000d = EOL // 0x2012 @0xd
0x2005…2013 }
0x2013…2027 ad7e 3910 LINE$=LINE$+"+"
0x2013…2027 LineComalBin {
0x2013…2027 ptr = 0xad7e // 0x2013 @0x0
0x2013…2027 lno = 0x0f46 // 0x2015 @0x2
0x2013…2027 at0004 = ╱4c╱L╱ // 0x2017 @0x4
0x2013…2027 at0005 = ╱49╱I╱ // 0x2018 @0x5
0x2013…2027 at0006 = ╱4e╱N╱ // 0x2019 @0x6
0x2013…2027 at0007 = ╱45╱E╱ // 0x201a @0x7
0x2013…2027 at0008 = ╱ef╱$╱ // 0x201b @0x8
0x2013…2027 at0009 = ╱dc╱=╱ // 0x201c @0x9
0x2013…2027 at000a = ╱4c╱L╱ // 0x201d @0xa
0x2013…2027 at000b = ╱49╱I╱ // 0x201e @0xb
0x2013…2027 at000c = ╱4e╱N╱ // 0x201f @0xc
0x2013…2027 at000d = ╱45╱E╱ // 0x2020 @0xd
0x2013…2027 at000e = ╱ef╱$╱ // 0x2021 @0xe
0x2013…2027 at000f = ╱f1╱+╱ // 0x2022 @0xf
0x2013…2027 at0010 = ╱22╱"╱ // 0x2023 @0x10
0x2013…2027 at0011 = ╱2b╱+╱ // 0x2024 @0x11
0x2013…2027 at0012 = ╱22╱"╱ // 0x2025 @0x12
0x2013…2027 at0013 = EOL // 0x2026 @0x13
0x2013…2027 }
0x2027…204b ada2 3920 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x2027…204b LineComalBin {
0x2027…204b ptr = 0xada2 // 0x2027 @0x0
0x2027…204b lno = 0x0f50 // 0x2029 @0x2
0x2027…204b at0004 = ╱9d╱ EXEC ╱ // 0x202b @0x4
0x2027…204b at0005 = ╱43╱C╱ // 0x202c @0x5
0x2027…204b at0006 = ╱41╱A╱ // 0x202d @0x6
0x2027…204b at0007 = ╱4c╱L╱ // 0x202e @0x7
0x2027…204b at0008 = ╱43╱C╱ // 0x202f @0x8
0x2027…204b at0009 = ╱ed╱(╱ // 0x2030 @0x9
0x2027…204b at000a = ╱36╱6╱ // 0x2031 @0xa
0x2027…204b at000b = ╱fe0000c003╱ // 0x2032 @0xb
0x2027…204b at0010 = ╱ec╱,╱ // 0x2037 @0x10
0x2027…204b at0011 = ╱4c╱L╱ // 0x2038 @0x11
0x2027…204b at0012 = ╱49╱I╱ // 0x2039 @0x12
0x2027…204b at0013 = ╱4e╱N╱ // 0x203a @0x13
0x2027…204b at0014 = ╱45╱E╱ // 0x203b @0x14
0x2027…204b at0015 = ╱ef╱$╱ // 0x203c @0x15
0x2027…204b at0016 = ╱ec╱,╱ // 0x203d @0x16
0x2027…204b at0017 = ╱54╱T╱ // 0x203e @0x17
0x2027…204b at0018 = ╱41╱A╱ // 0x203f @0x18
0x2027…204b at0019 = ╱48╱H╱ // 0x2040 @0x19
0x2027…204b at001a = ╱ef╱$╱ // 0x2041 @0x1a
0x2027…204b at001b = ╱ec╱,╱ // 0x2042 @0x1b
0x2027…204b at001c = ╱52╱R╱ // 0x2043 @0x1c
0x2027…204b at001d = ╱45╱E╱ // 0x2044 @0x1d
0x2027…204b at001e = ╱53╱S╱ // 0x2045 @0x1e
0x2027…204b at001f = ╱55╱U╱ // 0x2046 @0x1f
0x2027…204b at0020 = ╱4c╱L╱ // 0x2047 @0x20
0x2027…204b at0021 = ╱ef╱$╱ // 0x2048 @0x21
0x2027…204b at0022 = ╱ee╱)╱ // 0x2049 @0x22
0x2027…204b at0023 = EOL // 0x204a @0x23
0x2027…204b }
0x204b…2057 adae 3930 UNTIL FLAG=B
0x204b…2057 LineComalBin {
0x204b…2057 ptr = 0xadae // 0x204b @0x0
0x204b…2057 lno = 0x0f5a // 0x204d @0x2
0x204b…2057 at0004 = ╱98╱ UNTIL ╱ // 0x204f @0x4
0x204b…2057 at0005 = ╱46╱F╱ // 0x2050 @0x5
0x204b…2057 at0006 = ╱4c╱L╱ // 0x2051 @0x6
0x204b…2057 at0007 = ╱41╱A╱ // 0x2052 @0x7
0x204b…2057 at0008 = ╱47╱G╱ // 0x2053 @0x8
0x204b…2057 at0009 = ╱dc╱=╱ // 0x2054 @0x9
0x204b…2057 at000a = ╱42╱B╱ // 0x2055 @0xa
0x204b…2057 at000b = EOL // 0x2056 @0xb
0x204b…2057 }
0x2057…207b add2 3940 EXEC CALC(4,RESUL$,HUND$,MAX$)
0x2057…207b LineComalBin {
0x2057…207b ptr = 0xadd2 // 0x2057 @0x0
0x2057…207b lno = 0x0f64 // 0x2059 @0x2
0x2057…207b at0004 = ╱9d╱ EXEC ╱ // 0x205b @0x4
0x2057…207b at0005 = ╱43╱C╱ // 0x205c @0x5
0x2057…207b at0006 = ╱41╱A╱ // 0x205d @0x6
0x2057…207b at0007 = ╱4c╱L╱ // 0x205e @0x7
0x2057…207b at0008 = ╱43╱C╱ // 0x205f @0x8
0x2057…207b at0009 = ╱ed╱(╱ // 0x2060 @0x9
0x2057…207b at000a = ╱34╱4╱ // 0x2061 @0xa
0x2057…207b at000b = ╱fe00008003╱ // 0x2062 @0xb
0x2057…207b at0010 = ╱ec╱,╱ // 0x2067 @0x10
0x2057…207b at0011 = ╱52╱R╱ // 0x2068 @0x11
0x2057…207b at0012 = ╱45╱E╱ // 0x2069 @0x12
0x2057…207b at0013 = ╱53╱S╱ // 0x206a @0x13
0x2057…207b at0014 = ╱55╱U╱ // 0x206b @0x14
0x2057…207b at0015 = ╱4c╱L╱ // 0x206c @0x15
0x2057…207b at0016 = ╱ef╱$╱ // 0x206d @0x16
0x2057…207b at0017 = ╱ec╱,╱ // 0x206e @0x17
0x2057…207b at0018 = ╱48╱H╱ // 0x206f @0x18
0x2057…207b at0019 = ╱55╱U╱ // 0x2070 @0x19
0x2057…207b at001a = ╱4e╱N╱ // 0x2071 @0x1a
0x2057…207b at001b = ╱44╱D╱ // 0x2072 @0x1b
0x2057…207b at001c = ╱ef╱$╱ // 0x2073 @0x1c
0x2057…207b at001d = ╱ec╱,╱ // 0x2074 @0x1d
0x2057…207b at001e = ╱4d╱M╱ // 0x2075 @0x1e
0x2057…207b at001f = ╱41╱A╱ // 0x2076 @0x1f
0x2057…207b at0020 = ╱58╱X╱ // 0x2077 @0x20
0x2057…207b at0021 = ╱ef╱$╱ // 0x2078 @0x21
0x2057…207b at0022 = ╱ee╱)╱ // 0x2079 @0x22
0x2057…207b at0023 = EOL // 0x207a @0x23
0x2057…207b }
0x207b…2085 addc 3950 UNTIL SI=E
0x207b…2085 LineComalBin {
0x207b…2085 ptr = 0xaddc // 0x207b @0x0
0x207b…2085 lno = 0x0f6e // 0x207d @0x2
0x207b…2085 at0004 = ╱98╱ UNTIL ╱ // 0x207f @0x4
0x207b…2085 at0005 = ╱53╱S╱ // 0x2080 @0x5
0x207b…2085 at0006 = ╱49╱I╱ // 0x2081 @0x6
0x207b…2085 at0007 = ╱dc╱=╱ // 0x2082 @0x7
0x207b…2085 at0008 = ╱45╱E╱ // 0x2083 @0x8
0x207b…2085 at0009 = EOL // 0x2084 @0x9
0x207b…2085 }
0x2085…20b6 ae0d 3960 AUT$(I,21:7)=RESUL$(6:7)
0x2085…20b6 LineComalBin {
0x2085…20b6 ptr = 0xae0d // 0x2085 @0x0
0x2085…20b6 lno = 0x0f78 // 0x2087 @0x2
0x2085…20b6 at0004 = ╱41╱A╱ // 0x2089 @0x4
0x2085…20b6 at0005 = ╱55╱U╱ // 0x208a @0x5
0x2085…20b6 at0006 = ╱54╱T╱ // 0x208b @0x6
0x2085…20b6 at0007 = ╱ef╱$╱ // 0x208c @0x7
0x2085…20b6 at0008 = ╱ed╱(╱ // 0x208d @0x8
0x2085…20b6 at0009 = ╱49╱I╱ // 0x208e @0x9
0x2085…20b6 at000a = ╱ec╱,╱ // 0x208f @0xa
0x2085…20b6 at000b = ╱32╱2╱ // 0x2090 @0xb
0x2085…20b6 at000c = ╱31╱1╱ // 0x2091 @0xc
0x2085…20b6 at000d = ╱fe0000a805╱ // 0x2092 @0xd
0x2085…20b6 at0012 = ╱f0╱:╱ // 0x2097 @0x12
0x2085…20b6 at0013 = ╱37╱7╱ // 0x2098 @0x13
0x2085…20b6 at0014 = ╱fe0000e003╱ // 0x2099 @0x14
0x2085…20b6 at0019 = ╱ee╱)╱ // 0x209e @0x19
0x2085…20b6 at001a = ╱dc╱=╱ // 0x209f @0x1a
0x2085…20b6 at001b = ╱52╱R╱ // 0x20a0 @0x1b
0x2085…20b6 at001c = ╱45╱E╱ // 0x20a1 @0x1c
0x2085…20b6 at001d = ╱53╱S╱ // 0x20a2 @0x1d
0x2085…20b6 at001e = ╱55╱U╱ // 0x20a3 @0x1e
0x2085…20b6 at001f = ╱4c╱L╱ // 0x20a4 @0x1f
0x2085…20b6 at0020 = ╱ef╱$╱ // 0x20a5 @0x20
0x2085…20b6 at0021 = ╱ed╱(╱ // 0x20a6 @0x21
0x2085…20b6 at0022 = ╱36╱6╱ // 0x20a7 @0x22
0x2085…20b6 at0023 = ╱fe0000c003╱ // 0x20a8 @0x23
0x2085…20b6 at0028 = ╱f0╱:╱ // 0x20ad @0x28
0x2085…20b6 at0029 = ╱37╱7╱ // 0x20ae @0x29
0x2085…20b6 at002a = ╱fe0000e003╱ // 0x20af @0x2a
0x2085…20b6 at002f = ╱ee╱)╱ // 0x20b4 @0x2f
0x2085…20b6 at0030 = EOL // 0x20b5 @0x30
0x2085…20b6 }
0x20b6…20bd ae14 3970 NEXT I
0x20b6…20bd LineComalBin {
0x20b6…20bd ptr = 0xae14 // 0x20b6 @0x0
0x20b6…20bd lno = 0x0f82 // 0x20b8 @0x2
0x20b6…20bd at0004 = ╱84╱ NEXT ╱ // 0x20ba @0x4
0x20b6…20bd at0005 = ╱49╱I╱ // 0x20bb @0x5
0x20b6…20bd at0006 = EOL // 0x20bc @0x6
0x20b6…20bd }
0x20bd…20d0 ae27 3980 CURSOR 7,6
0x20bd…20d0 LineComalBin {
0x20bd…20d0 ptr = 0xae27 // 0x20bd @0x0
0x20bd…20d0 lno = 0x0f8c // 0x20bf @0x2
0x20bd…20d0 at0004 = ╱a1╱ CURSOR ╱ // 0x20c1 @0x4
0x20bd…20d0 at0005 = ╱37╱7╱ // 0x20c2 @0x5
0x20bd…20d0 at0006 = ╱fe0000e003╱ // 0x20c3 @0x6
0x20bd…20d0 at000b = ╱ec╱,╱ // 0x20c8 @0xb
0x20bd…20d0 at000c = ╱36╱6╱ // 0x20c9 @0xc
0x20bd…20d0 at000d = ╱fe0000c003╱ // 0x20ca @0xd
0x20bd…20d0 at0012 = EOL // 0x20cf @0x12
0x20bd…20d0 }
0x20d0…20e1 ae38 3990 PRINT AUT$(V,G:V)
0x20d0…20e1 LineComalBin {
0x20d0…20e1 ptr = 0xae38 // 0x20d0 @0x0
0x20d0…20e1 lno = 0x0f96 // 0x20d2 @0x2
0x20d0…20e1 at0004 = ╱92╱ PRINT ╱ // 0x20d4 @0x4
0x20d0…20e1 at0005 = ╱41╱A╱ // 0x20d5 @0x5
0x20d0…20e1 at0006 = ╱55╱U╱ // 0x20d6 @0x6
0x20d0…20e1 at0007 = ╱54╱T╱ // 0x20d7 @0x7
0x20d0…20e1 at0008 = ╱ef╱$╱ // 0x20d8 @0x8
0x20d0…20e1 at0009 = ╱ed╱(╱ // 0x20d9 @0x9
0x20d0…20e1 at000a = ╱56╱V╱ // 0x20da @0xa
0x20d0…20e1 at000b = ╱ec╱,╱ // 0x20db @0xb
0x20d0…20e1 at000c = ╱47╱G╱ // 0x20dc @0xc
0x20d0…20e1 at000d = ╱f0╱:╱ // 0x20dd @0xd
0x20d0…20e1 at000e = ╱56╱V╱ // 0x20de @0xe
0x20d0…20e1 at000f = ╱ee╱)╱ // 0x20df @0xf
0x20d0…20e1 at0010 = EOL // 0x20e0 @0x10
0x20d0…20e1 }
0x20e1…20e7 ae3e 4000 REPEAT
0x20e1…20e7 LineComalBin {
0x20e1…20e7 ptr = 0xae3e // 0x20e1 @0x0
0x20e1…20e7 lno = 0x0fa0 // 0x20e3 @0x2
0x20e1…20e7 at0004 = ╱97╱ REPEAT ╱ // 0x20e5 @0x4
0x20e1…20e7 at0005 = EOL // 0x20e6 @0x5
0x20e1…20e7 }
0x20e7…20ed ae44 4010 REPEAT
0x20e7…20ed LineComalBin {
0x20e7…20ed ptr = 0xae44 // 0x20e7 @0x0
0x20e7…20ed lno = 0x0faa // 0x20e9 @0x2
0x20e7…20ed at0004 = ╱97╱ REPEAT ╱ // 0x20eb @0x4
0x20e7…20ed at0005 = EOL // 0x20ec @0x5
0x20e7…20ed }
0x20ed…2101 ae58 4020 CURSOR 51,6
0x20ed…2101 LineComalBin {
0x20ed…2101 ptr = 0xae58 // 0x20ed @0x0
0x20ed…2101 lno = 0x0fb4 // 0x20ef @0x2
0x20ed…2101 at0004 = ╱a1╱ CURSOR ╱ // 0x20f1 @0x4
0x20ed…2101 at0005 = ╱35╱5╱ // 0x20f2 @0x5
0x20ed…2101 at0006 = ╱31╱1╱ // 0x20f3 @0x6
0x20ed…2101 at0007 = ╱fe0000cc06╱ // 0x20f4 @0x7
0x20ed…2101 at000c = ╱ec╱,╱ // 0x20f9 @0xc
0x20ed…2101 at000d = ╱36╱6╱ // 0x20fa @0xd
0x20ed…2101 at000e = ╱fe0000c003╱ // 0x20fb @0xe
0x20ed…2101 at0013 = EOL // 0x2100 @0x13
0x20ed…2101 }
0x2101…2123 ae7a 4030 LINE$=AUT$(V,28:10)
0x2101…2123 LineComalBin {
0x2101…2123 ptr = 0xae7a // 0x2101 @0x0
0x2101…2123 lno = 0x0fbe // 0x2103 @0x2
0x2101…2123 at0004 = ╱4c╱L╱ // 0x2105 @0x4
0x2101…2123 at0005 = ╱49╱I╱ // 0x2106 @0x5
0x2101…2123 at0006 = ╱4e╱N╱ // 0x2107 @0x6
0x2101…2123 at0007 = ╱45╱E╱ // 0x2108 @0x7
0x2101…2123 at0008 = ╱ef╱$╱ // 0x2109 @0x8
0x2101…2123 at0009 = ╱dc╱=╱ // 0x210a @0x9
0x2101…2123 at000a = ╱41╱A╱ // 0x210b @0xa
0x2101…2123 at000b = ╱55╱U╱ // 0x210c @0xb
0x2101…2123 at000c = ╱54╱T╱ // 0x210d @0xc
0x2101…2123 at000d = ╱ef╱$╱ // 0x210e @0xd
0x2101…2123 at000e = ╱ed╱(╱ // 0x210f @0xe
0x2101…2123 at000f = ╱56╱V╱ // 0x2110 @0xf
0x2101…2123 at0010 = ╱ec╱,╱ // 0x2111 @0x10
0x2101…2123 at0011 = ╱32╱2╱ // 0x2112 @0x11
0x2101…2123 at0012 = ╱38╱8╱ // 0x2113 @0x12
0x2101…2123 at0013 = ╱fe0000e005╱ // 0x2114 @0x13
0x2101…2123 at0018 = ╱f0╱:╱ // 0x2119 @0x18
0x2101…2123 at0019 = ╱31╱1╱ // 0x211a @0x19
0x2101…2123 at001a = ╱30╱0╱ // 0x211b @0x1a
0x2101…2123 at001b = ╱fe0000a004╱ // 0x211c @0x1b
0x2101…2123 at0020 = ╱ee╱)╱ // 0x2121 @0x20
0x2101…2123 at0021 = EOL // 0x2122 @0x21
0x2101…2123 }
0x2123…214e aea5 4040 IF LINE$(10)="+" THEN LINE$(10)=" "
0x2123…214e LineComalBin {
0x2123…214e ptr = 0xaea5 // 0x2123 @0x0
0x2123…214e lno = 0x0fc8 // 0x2125 @0x2
0x2123…214e at0004 = ╱82╱ IF ╱ // 0x2127 @0x4
0x2123…214e at0005 = ╱4c╱L╱ // 0x2128 @0x5
0x2123…214e at0006 = ╱49╱I╱ // 0x2129 @0x6
0x2123…214e at0007 = ╱4e╱N╱ // 0x212a @0x7
0x2123…214e at0008 = ╱45╱E╱ // 0x212b @0x8
0x2123…214e at0009 = ╱ef╱$╱ // 0x212c @0x9
0x2123…214e at000a = ╱ed╱(╱ // 0x212d @0xa
0x2123…214e at000b = ╱31╱1╱ // 0x212e @0xb
0x2123…214e at000c = ╱30╱0╱ // 0x212f @0xc
0x2123…214e at000d = ╱fe0000a004╱ // 0x2130 @0xd
0x2123…214e at0012 = ╱ee╱)╱ // 0x2135 @0x12
0x2123…214e at0013 = ╱dc╱=╱ // 0x2136 @0x13
0x2123…214e at0014 = ╱22╱"╱ // 0x2137 @0x14
0x2123…214e at0015 = ╱2b╱+╱ // 0x2138 @0x15
0x2123…214e at0016 = ╱22╱"╱ // 0x2139 @0x16
0x2123…214e at0017 = ╱b6╱ THEN ╱ // 0x213a @0x17
0x2123…214e at0018 = ╱4c╱L╱ // 0x213b @0x18
0x2123…214e at0019 = ╱49╱I╱ // 0x213c @0x19
0x2123…214e at001a = ╱4e╱N╱ // 0x213d @0x1a
0x2123…214e at001b = ╱45╱E╱ // 0x213e @0x1b
0x2123…214e at001c = ╱ef╱$╱ // 0x213f @0x1c
0x2123…214e at001d = ╱ed╱(╱ // 0x2140 @0x1d
0x2123…214e at001e = ╱31╱1╱ // 0x2141 @0x1e
0x2123…214e at001f = ╱30╱0╱ // 0x2142 @0x1f
0x2123…214e at0020 = ╱fe0000a004╱ // 0x2143 @0x20
0x2123…214e at0025 = ╱ee╱)╱ // 0x2148 @0x25
0x2123…214e at0026 = ╱dc╱=╱ // 0x2149 @0x26
0x2123…214e at0027 = ╱22╱"╱ // 0x214a @0x27
0x2123…214e at0028 = ╱20╱…╱ // 0x214b @0x28
0x2123…214e at0029 = ╱22╱"╱ // 0x214c @0x29
0x2123…214e at002a = EOL // 0x214d @0x2a
0x2123…214e }
0x214e…215c aeb3 4050 EDIT "",LINE$
0x214e…215c LineComalBin {
0x214e…215c ptr = 0xaeb3 // 0x214e @0x0
0x214e…215c lno = 0x0fd2 // 0x2150 @0x2
0x214e…215c at0004 = ╱b1╱ EDIT ╱ // 0x2152 @0x4
0x214e…215c at0005 = ╱22╱"╱ // 0x2153 @0x5
0x214e…215c at0006 = ╱22╱"╱ // 0x2154 @0x6
0x214e…215c at0007 = ╱ec╱,╱ // 0x2155 @0x7
0x214e…215c at0008 = ╱4c╱L╱ // 0x2156 @0x8
0x214e…215c at0009 = ╱49╱I╱ // 0x2157 @0x9
0x214e…215c at000a = ╱4e╱N╱ // 0x2158 @0xa
0x214e…215c at000b = ╱45╱E╱ // 0x2159 @0xb
0x214e…215c at000c = ╱ef╱$╱ // 0x215a @0xc
0x214e…215c at000d = EOL // 0x215b @0xd
0x214e…215c }
0x215c…2170 aec7 4060 LINE$=LINE$+"+"
0x215c…2170 LineComalBin {
0x215c…2170 ptr = 0xaec7 // 0x215c @0x0
0x215c…2170 lno = 0x0fdc // 0x215e @0x2
0x215c…2170 at0004 = ╱4c╱L╱ // 0x2160 @0x4
0x215c…2170 at0005 = ╱49╱I╱ // 0x2161 @0x5
0x215c…2170 at0006 = ╱4e╱N╱ // 0x2162 @0x6
0x215c…2170 at0007 = ╱45╱E╱ // 0x2163 @0x7
0x215c…2170 at0008 = ╱ef╱$╱ // 0x2164 @0x8
0x215c…2170 at0009 = ╱dc╱=╱ // 0x2165 @0x9
0x215c…2170 at000a = ╱4c╱L╱ // 0x2166 @0xa
0x215c…2170 at000b = ╱49╱I╱ // 0x2167 @0xb
0x215c…2170 at000c = ╱4e╱N╱ // 0x2168 @0xc
0x215c…2170 at000d = ╱45╱E╱ // 0x2169 @0xd
0x215c…2170 at000e = ╱ef╱$╱ // 0x216a @0xe
0x215c…2170 at000f = ╱f1╱+╱ // 0x216b @0xf
0x215c…2170 at0010 = ╱22╱"╱ // 0x216c @0x10
0x215c…2170 at0011 = ╱2b╱+╱ // 0x216d @0x11
0x215c…2170 at0012 = ╱22╱"╱ // 0x216e @0x12
0x215c…2170 at0013 = EOL // 0x216f @0x13
0x215c…2170 }
0x2170…2194 aeeb 4070 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x2170…2194 LineComalBin {
0x2170…2194 ptr = 0xaeeb // 0x2170 @0x0
0x2170…2194 lno = 0x0fe6 // 0x2172 @0x2
0x2170…2194 at0004 = ╱9d╱ EXEC ╱ // 0x2174 @0x4
0x2170…2194 at0005 = ╱43╱C╱ // 0x2175 @0x5
0x2170…2194 at0006 = ╱41╱A╱ // 0x2176 @0x6
0x2170…2194 at0007 = ╱4c╱L╱ // 0x2177 @0x7
0x2170…2194 at0008 = ╱43╱C╱ // 0x2178 @0x8
0x2170…2194 at0009 = ╱ed╱(╱ // 0x2179 @0x9
0x2170…2194 at000a = ╱36╱6╱ // 0x217a @0xa
0x2170…2194 at000b = ╱fe0000c003╱ // 0x217b @0xb
0x2170…2194 at0010 = ╱ec╱,╱ // 0x2180 @0x10
0x2170…2194 at0011 = ╱4c╱L╱ // 0x2181 @0x11
0x2170…2194 at0012 = ╱49╱I╱ // 0x2182 @0x12
0x2170…2194 at0013 = ╱4e╱N╱ // 0x2183 @0x13
0x2170…2194 at0014 = ╱45╱E╱ // 0x2184 @0x14
0x2170…2194 at0015 = ╱ef╱$╱ // 0x2185 @0x15
0x2170…2194 at0016 = ╱ec╱,╱ // 0x2186 @0x16
0x2170…2194 at0017 = ╱54╱T╱ // 0x2187 @0x17
0x2170…2194 at0018 = ╱41╱A╱ // 0x2188 @0x18
0x2170…2194 at0019 = ╱48╱H╱ // 0x2189 @0x19
0x2170…2194 at001a = ╱ef╱$╱ // 0x218a @0x1a
0x2170…2194 at001b = ╱ec╱,╱ // 0x218b @0x1b
0x2170…2194 at001c = ╱52╱R╱ // 0x218c @0x1c
0x2170…2194 at001d = ╱45╱E╱ // 0x218d @0x1d
0x2170…2194 at001e = ╱53╱S╱ // 0x218e @0x1e
0x2170…2194 at001f = ╱55╱U╱ // 0x218f @0x1f
0x2170…2194 at0020 = ╱4c╱L╱ // 0x2190 @0x20
0x2170…2194 at0021 = ╱ef╱$╱ // 0x2191 @0x21
0x2170…2194 at0022 = ╱ee╱)╱ // 0x2192 @0x22
0x2170…2194 at0023 = EOL // 0x2193 @0x23
0x2170…2194 }
0x2194…21a0 aef7 4080 UNTIL FLAG=B
0x2194…21a0 LineComalBin {
0x2194…21a0 ptr = 0xaef7 // 0x2194 @0x0
0x2194…21a0 lno = 0x0ff0 // 0x2196 @0x2
0x2194…21a0 at0004 = ╱98╱ UNTIL ╱ // 0x2198 @0x4
0x2194…21a0 at0005 = ╱46╱F╱ // 0x2199 @0x5
0x2194…21a0 at0006 = ╱4c╱L╱ // 0x219a @0x6
0x2194…21a0 at0007 = ╱41╱A╱ // 0x219b @0x7
0x2194…21a0 at0008 = ╱47╱G╱ // 0x219c @0x8
0x2194…21a0 at0009 = ╱dc╱=╱ // 0x219d @0x9
0x2194…21a0 at000a = ╱42╱B╱ // 0x219e @0xa
0x2194…21a0 at000b = EOL // 0x219f @0xb
0x2194…21a0 }
0x21a0…21c4 af1b 4090 EXEC CALC(4,RESUL$,MAX$,MAX1$)
0x21a0…21c4 LineComalBin {
0x21a0…21c4 ptr = 0xaf1b // 0x21a0 @0x0
0x21a0…21c4 lno = 0x0ffa // 0x21a2 @0x2
0x21a0…21c4 at0004 = ╱9d╱ EXEC ╱ // 0x21a4 @0x4
0x21a0…21c4 at0005 = ╱43╱C╱ // 0x21a5 @0x5
0x21a0…21c4 at0006 = ╱41╱A╱ // 0x21a6 @0x6
0x21a0…21c4 at0007 = ╱4c╱L╱ // 0x21a7 @0x7
0x21a0…21c4 at0008 = ╱43╱C╱ // 0x21a8 @0x8
0x21a0…21c4 at0009 = ╱ed╱(╱ // 0x21a9 @0x9
0x21a0…21c4 at000a = ╱34╱4╱ // 0x21aa @0xa
0x21a0…21c4 at000b = ╱fe00008003╱ // 0x21ab @0xb
0x21a0…21c4 at0010 = ╱ec╱,╱ // 0x21b0 @0x10
0x21a0…21c4 at0011 = ╱52╱R╱ // 0x21b1 @0x11
0x21a0…21c4 at0012 = ╱45╱E╱ // 0x21b2 @0x12
0x21a0…21c4 at0013 = ╱53╱S╱ // 0x21b3 @0x13
0x21a0…21c4 at0014 = ╱55╱U╱ // 0x21b4 @0x14
0x21a0…21c4 at0015 = ╱4c╱L╱ // 0x21b5 @0x15
0x21a0…21c4 at0016 = ╱ef╱$╱ // 0x21b6 @0x16
0x21a0…21c4 at0017 = ╱ec╱,╱ // 0x21b7 @0x17
0x21a0…21c4 at0018 = ╱4d╱M╱ // 0x21b8 @0x18
0x21a0…21c4 at0019 = ╱41╱A╱ // 0x21b9 @0x19
0x21a0…21c4 at001a = ╱58╱X╱ // 0x21ba @0x1a
0x21a0…21c4 at001b = ╱ef╱$╱ // 0x21bb @0x1b
0x21a0…21c4 at001c = ╱ec╱,╱ // 0x21bc @0x1c
0x21a0…21c4 at001d = ╱4d╱M╱ // 0x21bd @0x1d
0x21a0…21c4 at001e = ╱41╱A╱ // 0x21be @0x1e
0x21a0…21c4 at001f = ╱58╱X╱ // 0x21bf @0x1f
0x21a0…21c4 at0020 = ╱31╱1╱ // 0x21c0 @0x20
0x21a0…21c4 at0021 = ╱ef╱$╱ // 0x21c1 @0x21
0x21a0…21c4 at0022 = ╱ee╱)╱ // 0x21c2 @0x22
0x21a0…21c4 at0023 = EOL // 0x21c3 @0x23
0x21a0…21c4 }
0x21c4…21ce af25 4100 UNTIL SI=E
0x21c4…21ce LineComalBin {
0x21c4…21ce ptr = 0xaf25 // 0x21c4 @0x0
0x21c4…21ce lno = 0x1004 // 0x21c6 @0x2
0x21c4…21ce at0004 = ╱98╱ UNTIL ╱ // 0x21c8 @0x4
0x21c4…21ce at0005 = ╱53╱S╱ // 0x21c9 @0x5
0x21c4…21ce at0006 = ╱49╱I╱ // 0x21ca @0x6
0x21c4…21ce at0007 = ╱dc╱=╱ // 0x21cb @0x7
0x21c4…21ce at0008 = ╱45╱E╱ // 0x21cc @0x8
0x21c4…21ce at0009 = EOL // 0x21cd @0x9
0x21c4…21ce }
0x21ce…21fc af53 4110 AUT$(V,28:10)=RESUL$(V:10)
0x21ce…21fc LineComalBin {
0x21ce…21fc ptr = 0xaf53 // 0x21ce @0x0
0x21ce…21fc lno = 0x100e // 0x21d0 @0x2
0x21ce…21fc at0004 = ╱41╱A╱ // 0x21d2 @0x4
0x21ce…21fc at0005 = ╱55╱U╱ // 0x21d3 @0x5
0x21ce…21fc at0006 = ╱54╱T╱ // 0x21d4 @0x6
0x21ce…21fc at0007 = ╱ef╱$╱ // 0x21d5 @0x7
0x21ce…21fc at0008 = ╱ed╱(╱ // 0x21d6 @0x8
0x21ce…21fc at0009 = ╱56╱V╱ // 0x21d7 @0x9
0x21ce…21fc at000a = ╱ec╱,╱ // 0x21d8 @0xa
0x21ce…21fc at000b = ╱32╱2╱ // 0x21d9 @0xb
0x21ce…21fc at000c = ╱38╱8╱ // 0x21da @0xc
0x21ce…21fc at000d = ╱fe0000e005╱ // 0x21db @0xd
0x21ce…21fc at0012 = ╱f0╱:╱ // 0x21e0 @0x12
0x21ce…21fc at0013 = ╱31╱1╱ // 0x21e1 @0x13
0x21ce…21fc at0014 = ╱30╱0╱ // 0x21e2 @0x14
0x21ce…21fc at0015 = ╱fe0000a004╱ // 0x21e3 @0x15
0x21ce…21fc at001a = ╱ee╱)╱ // 0x21e8 @0x1a
0x21ce…21fc at001b = ╱dc╱=╱ // 0x21e9 @0x1b
0x21ce…21fc at001c = ╱52╱R╱ // 0x21ea @0x1c
0x21ce…21fc at001d = ╱45╱E╱ // 0x21eb @0x1d
0x21ce…21fc at001e = ╱53╱S╱ // 0x21ec @0x1e
0x21ce…21fc at001f = ╱55╱U╱ // 0x21ed @0x1f
0x21ce…21fc at0020 = ╱4c╱L╱ // 0x21ee @0x20
0x21ce…21fc at0021 = ╱ef╱$╱ // 0x21ef @0x21
0x21ce…21fc at0022 = ╱ed╱(╱ // 0x21f0 @0x22
0x21ce…21fc at0023 = ╱56╱V╱ // 0x21f1 @0x23
0x21ce…21fc at0024 = ╱f0╱:╱ // 0x21f2 @0x24
0x21ce…21fc at0025 = ╱31╱1╱ // 0x21f3 @0x25
0x21ce…21fc at0026 = ╱30╱0╱ // 0x21f4 @0x26
0x21ce…21fc at0027 = ╱fe0000a004╱ // 0x21f5 @0x27
0x21ce…21fc at002c = ╱ee╱)╱ // 0x21fa @0x2c
0x21ce…21fc at002d = EOL // 0x21fb @0x2d
0x21ce…21fc }
0x21fc…220f af66 4120 LT=LT*100
0x21fc…220f LineComalBin {
0x21fc…220f ptr = 0xaf66 // 0x21fc @0x0
0x21fc…220f lno = 0x1018 // 0x21fe @0x2
0x21fc…220f at0004 = ╱4c╱L╱ // 0x2200 @0x4
0x21fc…220f at0005 = ╱54╱T╱ // 0x2201 @0x5
0x21fc…220f at0006 = ╱dc╱=╱ // 0x2202 @0x6
0x21fc…220f at0007 = ╱4c╱L╱ // 0x2203 @0x7
0x21fc…220f at0008 = ╱54╱T╱ // 0x2204 @0x8
0x21fc…220f at0009 = ╱e4╱*╱ // 0x2205 @0x9
0x21fc…220f at000a = ╱31╱1╱ // 0x2206 @0xa
0x21fc…220f at000b = ╱30╱0╱ // 0x2207 @0xb
0x21fc…220f at000c = ╱30╱0╱ // 0x2208 @0xc
0x21fc…220f at000d = ╱fe0000c807╱ // 0x2209 @0xd
0x21fc…220f at0012 = EOL // 0x220e @0x12
0x21fc…220f }
0x220f…222c af83 4130 AUT$(4,21)=" "
0x220f…222c LineComalBin {
0x220f…222c ptr = 0xaf83 // 0x220f @0x0
0x220f…222c lno = 0x1022 // 0x2211 @0x2
0x220f…222c at0004 = ╱41╱A╱ // 0x2213 @0x4
0x220f…222c at0005 = ╱55╱U╱ // 0x2214 @0x5
0x220f…222c at0006 = ╱54╱T╱ // 0x2215 @0x6
0x220f…222c at0007 = ╱ef╱$╱ // 0x2216 @0x7
0x220f…222c at0008 = ╱ed╱(╱ // 0x2217 @0x8
0x220f…222c at0009 = ╱34╱4╱ // 0x2218 @0x9
0x220f…222c at000a = ╱fe00008003╱ // 0x2219 @0xa
0x220f…222c at000f = ╱ec╱,╱ // 0x221e @0xf
0x220f…222c at0010 = ╱32╱2╱ // 0x221f @0x10
0x220f…222c at0011 = ╱31╱1╱ // 0x2220 @0x11
0x220f…222c at0012 = ╱fe0000a805╱ // 0x2221 @0x12
0x220f…222c at0017 = ╱ee╱)╱ // 0x2226 @0x17
0x220f…222c at0018 = ╱dc╱=╱ // 0x2227 @0x18
0x220f…222c at0019 = ╱22╱"╱ // 0x2228 @0x19
0x220f…222c at001a = ╱20╱…╱ // 0x2229 @0x1a
0x220f…222c at001b = ╱22╱"╱ // 0x222a @0x1b
0x220f…222c at001c = EOL // 0x222b @0x1c
0x220f…222c }
0x222c…225d afb4 4140 AUT$(4,22)=CHR(LT DIV 1000+48)
0x222c…225d LineComalBin {
0x222c…225d ptr = 0xafb4 // 0x222c @0x0
0x222c…225d lno = 0x102c // 0x222e @0x2
0x222c…225d at0004 = ╱41╱A╱ // 0x2230 @0x4
0x222c…225d at0005 = ╱55╱U╱ // 0x2231 @0x5
0x222c…225d at0006 = ╱54╱T╱ // 0x2232 @0x6
0x222c…225d at0007 = ╱ef╱$╱ // 0x2233 @0x7
0x222c…225d at0008 = ╱ed╱(╱ // 0x2234 @0x8
0x222c…225d at0009 = ╱34╱4╱ // 0x2235 @0x9
0x222c…225d at000a = ╱fe00008003╱ // 0x2236 @0xa
0x222c…225d at000f = ╱ec╱,╱ // 0x223b @0xf
0x222c…225d at0010 = ╱32╱2╱ // 0x223c @0x10
0x222c…225d at0011 = ╱32╱2╱ // 0x223d @0x11
0x222c…225d at0012 = ╱fe0000b005╱ // 0x223e @0x12
0x222c…225d at0017 = ╱ee╱)╱ // 0x2243 @0x17
0x222c…225d at0018 = ╱dc╱=╱ // 0x2244 @0x18
0x222c…225d at0019 = ╱cf╱CHR╱ // 0x2245 @0x19
0x222c…225d at001a = ╱ed╱(╱ // 0x2246 @0x1a
0x222c…225d at001b = ╱4c╱L╱ // 0x2247 @0x1b
0x222c…225d at001c = ╱54╱T╱ // 0x2248 @0x1c
0x222c…225d at001d = ╱e7╱ DIV ╱ // 0x2249 @0x1d
0x222c…225d at001e = ╱31╱1╱ // 0x224a @0x1e
0x222c…225d at001f = ╱30╱0╱ // 0x224b @0x1f
0x222c…225d at0020 = ╱30╱0╱ // 0x224c @0x20
0x222c…225d at0021 = ╱30╱0╱ // 0x224d @0x21
0x222c…225d at0022 = ╱fe0000fa0a╱ // 0x224e @0x22
0x222c…225d at0027 = ╱e2╱+╱ // 0x2253 @0x27
0x222c…225d at0028 = ╱34╱4╱ // 0x2254 @0x28
0x222c…225d at0029 = ╱38╱8╱ // 0x2255 @0x29
0x222c…225d at002a = ╱fe0000c006╱ // 0x2256 @0x2a
0x222c…225d at002f = ╱ee╱)╱ // 0x225b @0x2f
0x222c…225d at0030 = EOL // 0x225c @0x30
0x222c…225d }
0x225d…2295 afec 4150 AUT$(4,23)=CHR(LT DIV 100 MOD 10+48)
0x225d…2295 LineComalBin {
0x225d…2295 ptr = 0xafec // 0x225d @0x0
0x225d…2295 lno = 0x1036 // 0x225f @0x2
0x225d…2295 at0004 = ╱41╱A╱ // 0x2261 @0x4
0x225d…2295 at0005 = ╱55╱U╱ // 0x2262 @0x5
0x225d…2295 at0006 = ╱54╱T╱ // 0x2263 @0x6
0x225d…2295 at0007 = ╱ef╱$╱ // 0x2264 @0x7
0x225d…2295 at0008 = ╱ed╱(╱ // 0x2265 @0x8
0x225d…2295 at0009 = ╱34╱4╱ // 0x2266 @0x9
0x225d…2295 at000a = ╱fe00008003╱ // 0x2267 @0xa
0x225d…2295 at000f = ╱ec╱,╱ // 0x226c @0xf
0x225d…2295 at0010 = ╱32╱2╱ // 0x226d @0x10
0x225d…2295 at0011 = ╱33╱3╱ // 0x226e @0x11
0x225d…2295 at0012 = ╱fe0000b805╱ // 0x226f @0x12
0x225d…2295 at0017 = ╱ee╱)╱ // 0x2274 @0x17
0x225d…2295 at0018 = ╱dc╱=╱ // 0x2275 @0x18
0x225d…2295 at0019 = ╱cf╱CHR╱ // 0x2276 @0x19
0x225d…2295 at001a = ╱ed╱(╱ // 0x2277 @0x1a
0x225d…2295 at001b = ╱4c╱L╱ // 0x2278 @0x1b
0x225d…2295 at001c = ╱54╱T╱ // 0x2279 @0x1c
0x225d…2295 at001d = ╱e7╱ DIV ╱ // 0x227a @0x1d
0x225d…2295 at001e = ╱31╱1╱ // 0x227b @0x1e
0x225d…2295 at001f = ╱30╱0╱ // 0x227c @0x1f
0x225d…2295 at0020 = ╱30╱0╱ // 0x227d @0x20
0x225d…2295 at0021 = ╱fe0000c807╱ // 0x227e @0x21
0x225d…2295 at0026 = ╱e8╱ MOD ╱ // 0x2283 @0x26
0x225d…2295 at0027 = ╱31╱1╱ // 0x2284 @0x27
0x225d…2295 at0028 = ╱30╱0╱ // 0x2285 @0x28
0x225d…2295 at0029 = ╱fe0000a004╱ // 0x2286 @0x29
0x225d…2295 at002e = ╱e2╱+╱ // 0x228b @0x2e
0x225d…2295 at002f = ╱34╱4╱ // 0x228c @0x2f
0x225d…2295 at0030 = ╱38╱8╱ // 0x228d @0x30
0x225d…2295 at0031 = ╱fe0000c006╱ // 0x228e @0x31
0x225d…2295 at0036 = ╱ee╱)╱ // 0x2293 @0x36
0x225d…2295 at0037 = EOL // 0x2294 @0x37
0x225d…2295 }
0x2295…22b2 b009 4160 AUT$(4,24)=","
0x2295…22b2 LineComalBin {
0x2295…22b2 ptr = 0xb009 // 0x2295 @0x0
0x2295…22b2 lno = 0x1040 // 0x2297 @0x2
0x2295…22b2 at0004 = ╱41╱A╱ // 0x2299 @0x4
0x2295…22b2 at0005 = ╱55╱U╱ // 0x229a @0x5
0x2295…22b2 at0006 = ╱54╱T╱ // 0x229b @0x6
0x2295…22b2 at0007 = ╱ef╱$╱ // 0x229c @0x7
0x2295…22b2 at0008 = ╱ed╱(╱ // 0x229d @0x8
0x2295…22b2 at0009 = ╱34╱4╱ // 0x229e @0x9
0x2295…22b2 at000a = ╱fe00008003╱ // 0x229f @0xa
0x2295…22b2 at000f = ╱ec╱,╱ // 0x22a4 @0xf
0x2295…22b2 at0010 = ╱32╱2╱ // 0x22a5 @0x10
0x2295…22b2 at0011 = ╱34╱4╱ // 0x22a6 @0x11
0x2295…22b2 at0012 = ╱fe0000c005╱ // 0x22a7 @0x12
0x2295…22b2 at0017 = ╱ee╱)╱ // 0x22ac @0x17
0x2295…22b2 at0018 = ╱dc╱=╱ // 0x22ad @0x18
0x2295…22b2 at0019 = ╱22╱"╱ // 0x22ae @0x19
0x2295…22b2 at001a = ╱2c╱,╱ // 0x22af @0x1a
0x2295…22b2 at001b = ╱22╱"╱ // 0x22b0 @0x1b
0x2295…22b2 at001c = EOL // 0x22b1 @0x1c
0x2295…22b2 }
0x22b2…22e9 b040 4170 AUT$(4,25)=CHR(LT DIV 10 MOD 10+48)
0x22b2…22e9 LineComalBin {
0x22b2…22e9 ptr = 0xb040 // 0x22b2 @0x0
0x22b2…22e9 lno = 0x104a // 0x22b4 @0x2
0x22b2…22e9 at0004 = ╱41╱A╱ // 0x22b6 @0x4
0x22b2…22e9 at0005 = ╱55╱U╱ // 0x22b7 @0x5
0x22b2…22e9 at0006 = ╱54╱T╱ // 0x22b8 @0x6
0x22b2…22e9 at0007 = ╱ef╱$╱ // 0x22b9 @0x7
0x22b2…22e9 at0008 = ╱ed╱(╱ // 0x22ba @0x8
0x22b2…22e9 at0009 = ╱34╱4╱ // 0x22bb @0x9
0x22b2…22e9 at000a = ╱fe00008003╱ // 0x22bc @0xa
0x22b2…22e9 at000f = ╱ec╱,╱ // 0x22c1 @0xf
0x22b2…22e9 at0010 = ╱32╱2╱ // 0x22c2 @0x10
0x22b2…22e9 at0011 = ╱35╱5╱ // 0x22c3 @0x11
0x22b2…22e9 at0012 = ╱fe0000c805╱ // 0x22c4 @0x12
0x22b2…22e9 at0017 = ╱ee╱)╱ // 0x22c9 @0x17
0x22b2…22e9 at0018 = ╱dc╱=╱ // 0x22ca @0x18
0x22b2…22e9 at0019 = ╱cf╱CHR╱ // 0x22cb @0x19
0x22b2…22e9 at001a = ╱ed╱(╱ // 0x22cc @0x1a
0x22b2…22e9 at001b = ╱4c╱L╱ // 0x22cd @0x1b
0x22b2…22e9 at001c = ╱54╱T╱ // 0x22ce @0x1c
0x22b2…22e9 at001d = ╱e7╱ DIV ╱ // 0x22cf @0x1d
0x22b2…22e9 at001e = ╱31╱1╱ // 0x22d0 @0x1e
0x22b2…22e9 at001f = ╱30╱0╱ // 0x22d1 @0x1f
0x22b2…22e9 at0020 = ╱fe0000a004╱ // 0x22d2 @0x20
0x22b2…22e9 at0025 = ╱e8╱ MOD ╱ // 0x22d7 @0x25
0x22b2…22e9 at0026 = ╱31╱1╱ // 0x22d8 @0x26
0x22b2…22e9 at0027 = ╱30╱0╱ // 0x22d9 @0x27
0x22b2…22e9 at0028 = ╱fe0000a004╱ // 0x22da @0x28
0x22b2…22e9 at002d = ╱e2╱+╱ // 0x22df @0x2d
0x22b2…22e9 at002e = ╱34╱4╱ // 0x22e0 @0x2e
0x22b2…22e9 at002f = ╱38╱8╱ // 0x22e1 @0x2f
0x22b2…22e9 at0030 = ╱fe0000c006╱ // 0x22e2 @0x30
0x22b2…22e9 at0035 = ╱ee╱)╱ // 0x22e7 @0x35
0x22b2…22e9 at0036 = EOL // 0x22e8 @0x36
0x22b2…22e9 }
0x22e9…2318 b06f 4180 AUT$(4,26)=CHR(LT MOD 10+48)
0x22e9…2318 LineComalBin {
0x22e9…2318 ptr = 0xb06f // 0x22e9 @0x0
0x22e9…2318 lno = 0x1054 // 0x22eb @0x2
0x22e9…2318 at0004 = ╱41╱A╱ // 0x22ed @0x4
0x22e9…2318 at0005 = ╱55╱U╱ // 0x22ee @0x5
0x22e9…2318 at0006 = ╱54╱T╱ // 0x22ef @0x6
0x22e9…2318 at0007 = ╱ef╱$╱ // 0x22f0 @0x7
0x22e9…2318 at0008 = ╱ed╱(╱ // 0x22f1 @0x8
0x22e9…2318 at0009 = ╱34╱4╱ // 0x22f2 @0x9
0x22e9…2318 at000a = ╱fe00008003╱ // 0x22f3 @0xa
0x22e9…2318 at000f = ╱ec╱,╱ // 0x22f8 @0xf
0x22e9…2318 at0010 = ╱32╱2╱ // 0x22f9 @0x10
0x22e9…2318 at0011 = ╱36╱6╱ // 0x22fa @0x11
0x22e9…2318 at0012 = ╱fe0000d005╱ // 0x22fb @0x12
0x22e9…2318 at0017 = ╱ee╱)╱ // 0x2300 @0x17
0x22e9…2318 at0018 = ╱dc╱=╱ // 0x2301 @0x18
0x22e9…2318 at0019 = ╱cf╱CHR╱ // 0x2302 @0x19
0x22e9…2318 at001a = ╱ed╱(╱ // 0x2303 @0x1a
0x22e9…2318 at001b = ╱4c╱L╱ // 0x2304 @0x1b
0x22e9…2318 at001c = ╱54╱T╱ // 0x2305 @0x1c
0x22e9…2318 at001d = ╱e8╱ MOD ╱ // 0x2306 @0x1d
0x22e9…2318 at001e = ╱31╱1╱ // 0x2307 @0x1e
0x22e9…2318 at001f = ╱30╱0╱ // 0x2308 @0x1f
0x22e9…2318 at0020 = ╱fe0000a004╱ // 0x2309 @0x20
0x22e9…2318 at0025 = ╱e2╱+╱ // 0x230e @0x25
0x22e9…2318 at0026 = ╱34╱4╱ // 0x230f @0x26
0x22e9…2318 at0027 = ╱38╱8╱ // 0x2310 @0x27
0x22e9…2318 at0028 = ╱fe0000c006╱ // 0x2311 @0x28
0x22e9…2318 at002d = ╱ee╱)╱ // 0x2316 @0x2d
0x22e9…2318 at002e = EOL // 0x2317 @0x2e
0x22e9…2318 }
0x2318…2335 b08c 4190 AUT$(4,27)="+"
0x2318…2335 LineComalBin {
0x2318…2335 ptr = 0xb08c // 0x2318 @0x0
0x2318…2335 lno = 0x105e // 0x231a @0x2
0x2318…2335 at0004 = ╱41╱A╱ // 0x231c @0x4
0x2318…2335 at0005 = ╱55╱U╱ // 0x231d @0x5
0x2318…2335 at0006 = ╱54╱T╱ // 0x231e @0x6
0x2318…2335 at0007 = ╱ef╱$╱ // 0x231f @0x7
0x2318…2335 at0008 = ╱ed╱(╱ // 0x2320 @0x8
0x2318…2335 at0009 = ╱34╱4╱ // 0x2321 @0x9
0x2318…2335 at000a = ╱fe00008003╱ // 0x2322 @0xa
0x2318…2335 at000f = ╱ec╱,╱ // 0x2327 @0xf
0x2318…2335 at0010 = ╱32╱2╱ // 0x2328 @0x10
0x2318…2335 at0011 = ╱37╱7╱ // 0x2329 @0x11
0x2318…2335 at0012 = ╱fe0000d805╱ // 0x232a @0x12
0x2318…2335 at0017 = ╱ee╱)╱ // 0x232f @0x17
0x2318…2335 at0018 = ╱dc╱=╱ // 0x2330 @0x18
0x2318…2335 at0019 = ╱22╱"╱ // 0x2331 @0x19
0x2318…2335 at001a = ╱2b╱+╱ // 0x2332 @0x1a
0x2318…2335 at001b = ╱22╱"╱ // 0x2333 @0x1b
0x2318…2335 at001c = EOL // 0x2334 @0x1c
0x2318…2335 }
0x2335…2363 b0ba 4200 AUT$(4,11:10)=" "
0x2335…2363 LineComalBin {
0x2335…2363 ptr = 0xb0ba // 0x2335 @0x0
0x2335…2363 lno = 0x1068 // 0x2337 @0x2
0x2335…2363 at0004 = ╱41╱A╱ // 0x2339 @0x4
0x2335…2363 at0005 = ╱55╱U╱ // 0x233a @0x5
0x2335…2363 at0006 = ╱54╱T╱ // 0x233b @0x6
0x2335…2363 at0007 = ╱ef╱$╱ // 0x233c @0x7
0x2335…2363 at0008 = ╱ed╱(╱ // 0x233d @0x8
0x2335…2363 at0009 = ╱34╱4╱ // 0x233e @0x9
0x2335…2363 at000a = ╱fe00008003╱ // 0x233f @0xa
0x2335…2363 at000f = ╱ec╱,╱ // 0x2344 @0xf
0x2335…2363 at0010 = ╱31╱1╱ // 0x2345 @0x10
0x2335…2363 at0011 = ╱31╱1╱ // 0x2346 @0x11
0x2335…2363 at0012 = ╱fe0000b004╱ // 0x2347 @0x12
0x2335…2363 at0017 = ╱f0╱:╱ // 0x234c @0x17
0x2335…2363 at0018 = ╱31╱1╱ // 0x234d @0x18
0x2335…2363 at0019 = ╱30╱0╱ // 0x234e @0x19
0x2335…2363 at001a = ╱fe0000a004╱ // 0x234f @0x1a
0x2335…2363 at001f = ╱ee╱)╱ // 0x2354 @0x1f
0x2335…2363 at0020 = ╱dc╱=╱ // 0x2355 @0x20
0x2335…2363 at0021 = ╱22╱"╱ // 0x2356 @0x21
0x2335…2363 at0022 = ╱20╱…╱ // 0x2357 @0x22
0x2335…2363 at0023 = ╱20╱…╱ // 0x2358 @0x23
0x2335…2363 at0024 = ╱20╱…╱ // 0x2359 @0x24
0x2335…2363 at0025 = ╱20╱…╱ // 0x235a @0x25
0x2335…2363 at0026 = ╱20╱…╱ // 0x235b @0x26
0x2335…2363 at0027 = ╱20╱…╱ // 0x235c @0x27
0x2335…2363 at0028 = ╱20╱…╱ // 0x235d @0x28
0x2335…2363 at0029 = ╱20╱…╱ // 0x235e @0x29
0x2335…2363 at002a = ╱20╱…╱ // 0x235f @0x2a
0x2335…2363 at002b = ╱20╱…╱ // 0x2360 @0x2b
0x2335…2363 at002c = ╱22╱"╱ // 0x2361 @0x2c
0x2335…2363 at002d = EOL // 0x2362 @0x2d
0x2335…2363 }
0x2363…237a b0d1 4210 CASE POST2$(21) OF
0x2363…237a LineComalBin {
0x2363…237a ptr = 0xb0d1 // 0x2363 @0x0
0x2363…237a lno = 0x1072 // 0x2365 @0x2
0x2363…237a at0004 = ╱a200╱ CASE ╱ // 0x2367 @0x4
0x2363…237a at0006 = ╱50╱P╱ // 0x2369 @0x6
0x2363…237a at0007 = ╱4f╱O╱ // 0x236a @0x7
0x2363…237a at0008 = ╱53╱S╱ // 0x236b @0x8
0x2363…237a at0009 = ╱54╱T╱ // 0x236c @0x9
0x2363…237a at000a = ╱32╱2╱ // 0x236d @0xa
0x2363…237a at000b = ╱ef╱$╱ // 0x236e @0xb
0x2363…237a at000c = ╱ed╱(╱ // 0x236f @0xc
0x2363…237a at000d = ╱32╱2╱ // 0x2370 @0xd
0x2363…237a at000e = ╱31╱1╱ // 0x2371 @0xe
0x2363…237a at000f = ╱fe0000a805╱ // 0x2372 @0xf
0x2363…237a at0014 = ╱ee╱)╱ // 0x2377 @0x14
0x2363…237a at0015 = ╱ba╱ OF ╱ // 0x2378 @0x15
0x2363…237a at0016 = EOL // 0x2379 @0x16
0x2363…237a }
0x237a…2384 b0db 4220 WHEN "1"
0x237a…2384 LineComalBin {
0x237a…2384 ptr = 0xb0db // 0x237a @0x0
0x237a…2384 lno = 0x107c // 0x237c @0x2
0x237a…2384 at0004 = ╱a300╱ WHEN ╱ // 0x237e @0x4
0x237a…2384 at0006 = ╱22╱"╱ // 0x2380 @0x6
0x237a…2384 at0007 = ╱31╱1╱ // 0x2381 @0x7
0x237a…2384 at0008 = ╱22╱"╱ // 0x2382 @0x8
0x237a…2384 at0009 = EOL // 0x2383 @0x9
0x237a…2384 }
0x2384…23a1 b0f8 4230 AUT$(4,11)="1"
0x2384…23a1 LineComalBin {
0x2384…23a1 ptr = 0xb0f8 // 0x2384 @0x0
0x2384…23a1 lno = 0x1086 // 0x2386 @0x2
0x2384…23a1 at0004 = ╱41╱A╱ // 0x2388 @0x4
0x2384…23a1 at0005 = ╱55╱U╱ // 0x2389 @0x5
0x2384…23a1 at0006 = ╱54╱T╱ // 0x238a @0x6
0x2384…23a1 at0007 = ╱ef╱$╱ // 0x238b @0x7
0x2384…23a1 at0008 = ╱ed╱(╱ // 0x238c @0x8
0x2384…23a1 at0009 = ╱34╱4╱ // 0x238d @0x9
0x2384…23a1 at000a = ╱fe00008003╱ // 0x238e @0xa
0x2384…23a1 at000f = ╱ec╱,╱ // 0x2393 @0xf
0x2384…23a1 at0010 = ╱31╱1╱ // 0x2394 @0x10
0x2384…23a1 at0011 = ╱31╱1╱ // 0x2395 @0x11
0x2384…23a1 at0012 = ╱fe0000b004╱ // 0x2396 @0x12
0x2384…23a1 at0017 = ╱ee╱)╱ // 0x239b @0x17
0x2384…23a1 at0018 = ╱dc╱=╱ // 0x239c @0x18
0x2384…23a1 at0019 = ╱22╱"╱ // 0x239d @0x19
0x2384…23a1 at001a = ╱31╱1╱ // 0x239e @0x1a
0x2384…23a1 at001b = ╱22╱"╱ // 0x239f @0x1b
0x2384…23a1 at001c = EOL // 0x23a0 @0x1c
0x2384…23a1 }
0x23a1…23af b106 4240 WHEN "2","3"
0x23a1…23af LineComalBin {
0x23a1…23af ptr = 0xb106 // 0x23a1 @0x0
0x23a1…23af lno = 0x1090 // 0x23a3 @0x2
0x23a1…23af at0004 = ╱a300╱ WHEN ╱ // 0x23a5 @0x4
0x23a1…23af at0006 = ╱22╱"╱ // 0x23a7 @0x6
0x23a1…23af at0007 = ╱32╱2╱ // 0x23a8 @0x7
0x23a1…23af at0008 = ╱22╱"╱ // 0x23a9 @0x8
0x23a1…23af at0009 = ╱ec╱,╱ // 0x23aa @0x9
0x23a1…23af at000a = ╱22╱"╱ // 0x23ab @0xa
0x23a1…23af at000b = ╱33╱3╱ // 0x23ac @0xb
0x23a1…23af at000c = ╱22╱"╱ // 0x23ad @0xc
0x23a1…23af at000d = EOL // 0x23ae @0xd
0x23a1…23af }
0x23af…23cc b123 4250 AUT$(4,11)="7"
0x23af…23cc LineComalBin {
0x23af…23cc ptr = 0xb123 // 0x23af @0x0
0x23af…23cc lno = 0x109a // 0x23b1 @0x2
0x23af…23cc at0004 = ╱41╱A╱ // 0x23b3 @0x4
0x23af…23cc at0005 = ╱55╱U╱ // 0x23b4 @0x5
0x23af…23cc at0006 = ╱54╱T╱ // 0x23b5 @0x6
0x23af…23cc at0007 = ╱ef╱$╱ // 0x23b6 @0x7
0x23af…23cc at0008 = ╱ed╱(╱ // 0x23b7 @0x8
0x23af…23cc at0009 = ╱34╱4╱ // 0x23b8 @0x9
0x23af…23cc at000a = ╱fe00008003╱ // 0x23b9 @0xa
0x23af…23cc at000f = ╱ec╱,╱ // 0x23be @0xf
0x23af…23cc at0010 = ╱31╱1╱ // 0x23bf @0x10
0x23af…23cc at0011 = ╱31╱1╱ // 0x23c0 @0x11
0x23af…23cc at0012 = ╱fe0000b004╱ // 0x23c1 @0x12
0x23af…23cc at0017 = ╱ee╱)╱ // 0x23c6 @0x17
0x23af…23cc at0018 = ╱dc╱=╱ // 0x23c7 @0x18
0x23af…23cc at0019 = ╱22╱"╱ // 0x23c8 @0x19
0x23af…23cc at001a = ╱37╱7╱ // 0x23c9 @0x1a
0x23af…23cc at001b = ╱22╱"╱ // 0x23ca @0x1b
0x23af…23cc at001c = EOL // 0x23cb @0x1c
0x23af…23cc }
0x23cc…23da b131 4260 WHEN "4","5"
0x23cc…23da LineComalBin {
0x23cc…23da ptr = 0xb131 // 0x23cc @0x0
0x23cc…23da lno = 0x10a4 // 0x23ce @0x2
0x23cc…23da at0004 = ╱a300╱ WHEN ╱ // 0x23d0 @0x4
0x23cc…23da at0006 = ╱22╱"╱ // 0x23d2 @0x6
0x23cc…23da at0007 = ╱34╱4╱ // 0x23d3 @0x7
0x23cc…23da at0008 = ╱22╱"╱ // 0x23d4 @0x8
0x23cc…23da at0009 = ╱ec╱,╱ // 0x23d5 @0x9
0x23cc…23da at000a = ╱22╱"╱ // 0x23d6 @0xa
0x23cc…23da at000b = ╱35╱5╱ // 0x23d7 @0xb
0x23cc…23da at000c = ╱22╱"╱ // 0x23d8 @0xc
0x23cc…23da at000d = EOL // 0x23d9 @0xd
0x23cc…23da }
0x23da…23fa b151 4270 AUT$(4,11:G)="14"
0x23da…23fa LineComalBin {
0x23da…23fa ptr = 0xb151 // 0x23da @0x0
0x23da…23fa lno = 0x10ae // 0x23dc @0x2
0x23da…23fa at0004 = ╱41╱A╱ // 0x23de @0x4
0x23da…23fa at0005 = ╱55╱U╱ // 0x23df @0x5
0x23da…23fa at0006 = ╱54╱T╱ // 0x23e0 @0x6
0x23da…23fa at0007 = ╱ef╱$╱ // 0x23e1 @0x7
0x23da…23fa at0008 = ╱ed╱(╱ // 0x23e2 @0x8
0x23da…23fa at0009 = ╱34╱4╱ // 0x23e3 @0x9
0x23da…23fa at000a = ╱fe00008003╱ // 0x23e4 @0xa
0x23da…23fa at000f = ╱ec╱,╱ // 0x23e9 @0xf
0x23da…23fa at0010 = ╱31╱1╱ // 0x23ea @0x10
0x23da…23fa at0011 = ╱31╱1╱ // 0x23eb @0x11
0x23da…23fa at0012 = ╱fe0000b004╱ // 0x23ec @0x12
0x23da…23fa at0017 = ╱f0╱:╱ // 0x23f1 @0x17
0x23da…23fa at0018 = ╱47╱G╱ // 0x23f2 @0x18
0x23da…23fa at0019 = ╱ee╱)╱ // 0x23f3 @0x19
0x23da…23fa at001a = ╱dc╱=╱ // 0x23f4 @0x1a
0x23da…23fa at001b = ╱22╱"╱ // 0x23f5 @0x1b
0x23da…23fa at001c = ╱31╱1╱ // 0x23f6 @0x1c
0x23da…23fa at001d = ╱34╱4╱ // 0x23f7 @0x1d
0x23da…23fa at001e = ╱22╱"╱ // 0x23f8 @0x1e
0x23da…23fa at001f = EOL // 0x23f9 @0x1f
0x23da…23fa }
0x23fa…2408 b15f 4280 WHEN "6","7"
0x23fa…2408 LineComalBin {
0x23fa…2408 ptr = 0xb15f // 0x23fa @0x0
0x23fa…2408 lno = 0x10b8 // 0x23fc @0x2
0x23fa…2408 at0004 = ╱a300╱ WHEN ╱ // 0x23fe @0x4
0x23fa…2408 at0006 = ╱22╱"╱ // 0x2400 @0x6
0x23fa…2408 at0007 = ╱36╱6╱ // 0x2401 @0x7
0x23fa…2408 at0008 = ╱22╱"╱ // 0x2402 @0x8
0x23fa…2408 at0009 = ╱ec╱,╱ // 0x2403 @0x9
0x23fa…2408 at000a = ╱22╱"╱ // 0x2404 @0xa
0x23fa…2408 at000b = ╱37╱7╱ // 0x2405 @0xb
0x23fa…2408 at000c = ╱22╱"╱ // 0x2406 @0xc
0x23fa…2408 at000d = EOL // 0x2407 @0xd
0x23fa…2408 }
0x2408…2428 b17f 4290 AUT$(4,11:G)="30"
0x2408…2428 LineComalBin {
0x2408…2428 ptr = 0xb17f // 0x2408 @0x0
0x2408…2428 lno = 0x10c2 // 0x240a @0x2
0x2408…2428 at0004 = ╱41╱A╱ // 0x240c @0x4
0x2408…2428 at0005 = ╱55╱U╱ // 0x240d @0x5
0x2408…2428 at0006 = ╱54╱T╱ // 0x240e @0x6
0x2408…2428 at0007 = ╱ef╱$╱ // 0x240f @0x7
0x2408…2428 at0008 = ╱ed╱(╱ // 0x2410 @0x8
0x2408…2428 at0009 = ╱34╱4╱ // 0x2411 @0x9
0x2408…2428 at000a = ╱fe00008003╱ // 0x2412 @0xa
0x2408…2428 at000f = ╱ec╱,╱ // 0x2417 @0xf
0x2408…2428 at0010 = ╱31╱1╱ // 0x2418 @0x10
0x2408…2428 at0011 = ╱31╱1╱ // 0x2419 @0x11
0x2408…2428 at0012 = ╱fe0000b004╱ // 0x241a @0x12
0x2408…2428 at0017 = ╱f0╱:╱ // 0x241f @0x17
0x2408…2428 at0018 = ╱47╱G╱ // 0x2420 @0x18
0x2408…2428 at0019 = ╱ee╱)╱ // 0x2421 @0x19
0x2408…2428 at001a = ╱dc╱=╱ // 0x2422 @0x1a
0x2408…2428 at001b = ╱22╱"╱ // 0x2423 @0x1b
0x2408…2428 at001c = ╱33╱3╱ // 0x2424 @0x1c
0x2408…2428 at001d = ╱30╱0╱ // 0x2425 @0x1d
0x2408…2428 at001e = ╱22╱"╱ // 0x2426 @0x1e
0x2408…2428 at001f = EOL // 0x2427 @0x1f
0x2408…2428 }
0x2428…242e b185 4300 ENDCASE
0x2428…242e LineComalBin {
0x2428…242e ptr = 0xb185 // 0x2428 @0x0
0x2428…242e lno = 0x10cc // 0x242a @0x2
0x2428…242e at0004 = ╱a4╱ ENDCASE ╱ // 0x242c @0x4
0x2428…242e at0005 = EOL // 0x242d @0x5
0x2428…242e }
0x242e…2439 b190 4310 IF FD=B THEN
0x242e…2439 LineComalBin {
0x242e…2439 ptr = 0xb190 // 0x242e @0x0
0x242e…2439 lno = 0x10d6 // 0x2430 @0x2
0x242e…2439 at0004 = ╱9c╱ IF ╱ // 0x2432 @0x4
0x242e…2439 at0005 = ╱46╱F╱ // 0x2433 @0x5
0x242e…2439 at0006 = ╱44╱D╱ // 0x2434 @0x6
0x242e…2439 at0007 = ╱dc╱=╱ // 0x2435 @0x7
0x242e…2439 at0008 = ╱42╱B╱ // 0x2436 @0x8
0x242e…2439 at0009 = ╱b6╱ THEN ╱ // 0x2437 @0x9
0x242e…2439 at000a = EOL // 0x2438 @0xa
0x242e…2439 }
0x2439…244c b1a3 4320 CURSOR 7,7
0x2439…244c LineComalBin {
0x2439…244c ptr = 0xb1a3 // 0x2439 @0x0
0x2439…244c lno = 0x10e0 // 0x243b @0x2
0x2439…244c at0004 = ╱a1╱ CURSOR ╱ // 0x243d @0x4
0x2439…244c at0005 = ╱37╱7╱ // 0x243e @0x5
0x2439…244c at0006 = ╱fe0000e003╱ // 0x243f @0x6
0x2439…244c at000b = ╱ec╱,╱ // 0x2444 @0xb
0x2439…244c at000c = ╱37╱7╱ // 0x2445 @0xc
0x2439…244c at000d = ╱fe0000e003╱ // 0x2446 @0xd
0x2439…244c at0012 = EOL // 0x244b @0x12
0x2439…244c }
0x244c…2462 b1b9 4330 PRINT AUT$(4,G:V)
0x244c…2462 LineComalBin {
0x244c…2462 ptr = 0xb1b9 // 0x244c @0x0
0x244c…2462 lno = 0x10ea // 0x244e @0x2
0x244c…2462 at0004 = ╱92╱ PRINT ╱ // 0x2450 @0x4
0x244c…2462 at0005 = ╱41╱A╱ // 0x2451 @0x5
0x244c…2462 at0006 = ╱55╱U╱ // 0x2452 @0x6
0x244c…2462 at0007 = ╱54╱T╱ // 0x2453 @0x7
0x244c…2462 at0008 = ╱ef╱$╱ // 0x2454 @0x8
0x244c…2462 at0009 = ╱ed╱(╱ // 0x2455 @0x9
0x244c…2462 at000a = ╱34╱4╱ // 0x2456 @0xa
0x244c…2462 at000b = ╱fe00008003╱ // 0x2457 @0xb
0x244c…2462 at0010 = ╱ec╱,╱ // 0x245c @0x10
0x244c…2462 at0011 = ╱47╱G╱ // 0x245d @0x11
0x244c…2462 at0012 = ╱f0╱:╱ // 0x245e @0x12
0x244c…2462 at0013 = ╱56╱V╱ // 0x245f @0x13
0x244c…2462 at0014 = ╱ee╱)╱ // 0x2460 @0x14
0x244c…2462 at0015 = EOL // 0x2461 @0x15
0x244c…2462 }
0x2462…2468 b1bf 4340 REPEAT
0x2462…2468 LineComalBin {
0x2462…2468 ptr = 0xb1bf // 0x2462 @0x0
0x2462…2468 lno = 0x10f4 // 0x2464 @0x2
0x2462…2468 at0004 = ╱97╱ REPEAT ╱ // 0x2466 @0x4
0x2462…2468 at0005 = EOL // 0x2467 @0x5
0x2462…2468 }
0x2468…246e b1c5 4350 REPEAT
0x2468…246e LineComalBin {
0x2468…246e ptr = 0xb1c5 // 0x2468 @0x0
0x2468…246e lno = 0x10fe // 0x246a @0x2
0x2468…246e at0004 = ╱97╱ REPEAT ╱ // 0x246c @0x4
0x2468…246e at0005 = EOL // 0x246d @0x5
0x2468…246e }
0x246e…2482 b1d9 4360 CURSOR 28,7
0x246e…2482 LineComalBin {
0x246e…2482 ptr = 0xb1d9 // 0x246e @0x0
0x246e…2482 lno = 0x1108 // 0x2470 @0x2
0x246e…2482 at0004 = ╱a1╱ CURSOR ╱ // 0x2472 @0x4
0x246e…2482 at0005 = ╱32╱2╱ // 0x2473 @0x5
0x246e…2482 at0006 = ╱38╱8╱ // 0x2474 @0x6
0x246e…2482 at0007 = ╱fe0000e005╱ // 0x2475 @0x7
0x246e…2482 at000c = ╱ec╱,╱ // 0x247a @0xc
0x246e…2482 at000d = ╱37╱7╱ // 0x247b @0xd
0x246e…2482 at000e = ╱fe0000e003╱ // 0x247c @0xe
0x246e…2482 at0013 = EOL // 0x2481 @0x13
0x246e…2482 }
0x2482…24a9 b200 4370 LINE$=AUT$(4,11:10)
0x2482…24a9 LineComalBin {
0x2482…24a9 ptr = 0xb200 // 0x2482 @0x0
0x2482…24a9 lno = 0x1112 // 0x2484 @0x2
0x2482…24a9 at0004 = ╱4c╱L╱ // 0x2486 @0x4
0x2482…24a9 at0005 = ╱49╱I╱ // 0x2487 @0x5
0x2482…24a9 at0006 = ╱4e╱N╱ // 0x2488 @0x6
0x2482…24a9 at0007 = ╱45╱E╱ // 0x2489 @0x7
0x2482…24a9 at0008 = ╱ef╱$╱ // 0x248a @0x8
0x2482…24a9 at0009 = ╱dc╱=╱ // 0x248b @0x9
0x2482…24a9 at000a = ╱41╱A╱ // 0x248c @0xa
0x2482…24a9 at000b = ╱55╱U╱ // 0x248d @0xb
0x2482…24a9 at000c = ╱54╱T╱ // 0x248e @0xc
0x2482…24a9 at000d = ╱ef╱$╱ // 0x248f @0xd
0x2482…24a9 at000e = ╱ed╱(╱ // 0x2490 @0xe
0x2482…24a9 at000f = ╱34╱4╱ // 0x2491 @0xf
0x2482…24a9 at0010 = ╱fe00008003╱ // 0x2492 @0x10
0x2482…24a9 at0015 = ╱ec╱,╱ // 0x2497 @0x15
0x2482…24a9 at0016 = ╱31╱1╱ // 0x2498 @0x16
0x2482…24a9 at0017 = ╱31╱1╱ // 0x2499 @0x17
0x2482…24a9 at0018 = ╱fe0000b004╱ // 0x249a @0x18
0x2482…24a9 at001d = ╱f0╱:╱ // 0x249f @0x1d
0x2482…24a9 at001e = ╱31╱1╱ // 0x24a0 @0x1e
0x2482…24a9 at001f = ╱30╱0╱ // 0x24a1 @0x1f
0x2482…24a9 at0020 = ╱fe0000a004╱ // 0x24a2 @0x20
0x2482…24a9 at0025 = ╱ee╱)╱ // 0x24a7 @0x25
0x2482…24a9 at0026 = EOL // 0x24a8 @0x26
0x2482…24a9 }
0x24a9…24d4 b22b 4380 IF LINE$(10)="+" THEN LINE$(10)=" "
0x24a9…24d4 LineComalBin {
0x24a9…24d4 ptr = 0xb22b // 0x24a9 @0x0
0x24a9…24d4 lno = 0x111c // 0x24ab @0x2
0x24a9…24d4 at0004 = ╱82╱ IF ╱ // 0x24ad @0x4
0x24a9…24d4 at0005 = ╱4c╱L╱ // 0x24ae @0x5
0x24a9…24d4 at0006 = ╱49╱I╱ // 0x24af @0x6
0x24a9…24d4 at0007 = ╱4e╱N╱ // 0x24b0 @0x7
0x24a9…24d4 at0008 = ╱45╱E╱ // 0x24b1 @0x8
0x24a9…24d4 at0009 = ╱ef╱$╱ // 0x24b2 @0x9
0x24a9…24d4 at000a = ╱ed╱(╱ // 0x24b3 @0xa
0x24a9…24d4 at000b = ╱31╱1╱ // 0x24b4 @0xb
0x24a9…24d4 at000c = ╱30╱0╱ // 0x24b5 @0xc
0x24a9…24d4 at000d = ╱fe0000a004╱ // 0x24b6 @0xd
0x24a9…24d4 at0012 = ╱ee╱)╱ // 0x24bb @0x12
0x24a9…24d4 at0013 = ╱dc╱=╱ // 0x24bc @0x13
0x24a9…24d4 at0014 = ╱22╱"╱ // 0x24bd @0x14
0x24a9…24d4 at0015 = ╱2b╱+╱ // 0x24be @0x15
0x24a9…24d4 at0016 = ╱22╱"╱ // 0x24bf @0x16
0x24a9…24d4 at0017 = ╱b6╱ THEN ╱ // 0x24c0 @0x17
0x24a9…24d4 at0018 = ╱4c╱L╱ // 0x24c1 @0x18
0x24a9…24d4 at0019 = ╱49╱I╱ // 0x24c2 @0x19
0x24a9…24d4 at001a = ╱4e╱N╱ // 0x24c3 @0x1a
0x24a9…24d4 at001b = ╱45╱E╱ // 0x24c4 @0x1b
0x24a9…24d4 at001c = ╱ef╱$╱ // 0x24c5 @0x1c
0x24a9…24d4 at001d = ╱ed╱(╱ // 0x24c6 @0x1d
0x24a9…24d4 at001e = ╱31╱1╱ // 0x24c7 @0x1e
0x24a9…24d4 at001f = ╱30╱0╱ // 0x24c8 @0x1f
0x24a9…24d4 at0020 = ╱fe0000a004╱ // 0x24c9 @0x20
0x24a9…24d4 at0025 = ╱ee╱)╱ // 0x24ce @0x25
0x24a9…24d4 at0026 = ╱dc╱=╱ // 0x24cf @0x26
0x24a9…24d4 at0027 = ╱22╱"╱ // 0x24d0 @0x27
0x24a9…24d4 at0028 = ╱20╱…╱ // 0x24d1 @0x28
0x24a9…24d4 at0029 = ╱22╱"╱ // 0x24d2 @0x29
0x24a9…24d4 at002a = EOL // 0x24d3 @0x2a
0x24a9…24d4 }
0x24d4…24e2 b239 4390 EDIT "",LINE$
0x24d4…24e2 LineComalBin {
0x24d4…24e2 ptr = 0xb239 // 0x24d4 @0x0
0x24d4…24e2 lno = 0x1126 // 0x24d6 @0x2
0x24d4…24e2 at0004 = ╱b1╱ EDIT ╱ // 0x24d8 @0x4
0x24d4…24e2 at0005 = ╱22╱"╱ // 0x24d9 @0x5
0x24d4…24e2 at0006 = ╱22╱"╱ // 0x24da @0x6
0x24d4…24e2 at0007 = ╱ec╱,╱ // 0x24db @0x7
0x24d4…24e2 at0008 = ╱4c╱L╱ // 0x24dc @0x8
0x24d4…24e2 at0009 = ╱49╱I╱ // 0x24dd @0x9
0x24d4…24e2 at000a = ╱4e╱N╱ // 0x24de @0xa
0x24d4…24e2 at000b = ╱45╱E╱ // 0x24df @0xb
0x24d4…24e2 at000c = ╱ef╱$╱ // 0x24e0 @0xc
0x24d4…24e2 at000d = EOL // 0x24e1 @0xd
0x24d4…24e2 }
0x24e2…24f6 b24d 4400 LINE$=LINE$+"+"
0x24e2…24f6 LineComalBin {
0x24e2…24f6 ptr = 0xb24d // 0x24e2 @0x0
0x24e2…24f6 lno = 0x1130 // 0x24e4 @0x2
0x24e2…24f6 at0004 = ╱4c╱L╱ // 0x24e6 @0x4
0x24e2…24f6 at0005 = ╱49╱I╱ // 0x24e7 @0x5
0x24e2…24f6 at0006 = ╱4e╱N╱ // 0x24e8 @0x6
0x24e2…24f6 at0007 = ╱45╱E╱ // 0x24e9 @0x7
0x24e2…24f6 at0008 = ╱ef╱$╱ // 0x24ea @0x8
0x24e2…24f6 at0009 = ╱dc╱=╱ // 0x24eb @0x9
0x24e2…24f6 at000a = ╱4c╱L╱ // 0x24ec @0xa
0x24e2…24f6 at000b = ╱49╱I╱ // 0x24ed @0xb
0x24e2…24f6 at000c = ╱4e╱N╱ // 0x24ee @0xc
0x24e2…24f6 at000d = ╱45╱E╱ // 0x24ef @0xd
0x24e2…24f6 at000e = ╱ef╱$╱ // 0x24f0 @0xe
0x24e2…24f6 at000f = ╱f1╱+╱ // 0x24f1 @0xf
0x24e2…24f6 at0010 = ╱22╱"╱ // 0x24f2 @0x10
0x24e2…24f6 at0011 = ╱2b╱+╱ // 0x24f3 @0x11
0x24e2…24f6 at0012 = ╱22╱"╱ // 0x24f4 @0x12
0x24e2…24f6 at0013 = EOL // 0x24f5 @0x13
0x24e2…24f6 }
0x24f6…251a b271 4410 EXEC CALC(6,LINE$,TAH$,RESUL$)
0x24f6…251a LineComalBin {
0x24f6…251a ptr = 0xb271 // 0x24f6 @0x0
0x24f6…251a lno = 0x113a // 0x24f8 @0x2
0x24f6…251a at0004 = ╱9d╱ EXEC ╱ // 0x24fa @0x4
0x24f6…251a at0005 = ╱43╱C╱ // 0x24fb @0x5
0x24f6…251a at0006 = ╱41╱A╱ // 0x24fc @0x6
0x24f6…251a at0007 = ╱4c╱L╱ // 0x24fd @0x7
0x24f6…251a at0008 = ╱43╱C╱ // 0x24fe @0x8
0x24f6…251a at0009 = ╱ed╱(╱ // 0x24ff @0x9
0x24f6…251a at000a = ╱36╱6╱ // 0x2500 @0xa
0x24f6…251a at000b = ╱fe0000c003╱ // 0x2501 @0xb
0x24f6…251a at0010 = ╱ec╱,╱ // 0x2506 @0x10
0x24f6…251a at0011 = ╱4c╱L╱ // 0x2507 @0x11
0x24f6…251a at0012 = ╱49╱I╱ // 0x2508 @0x12
0x24f6…251a at0013 = ╱4e╱N╱ // 0x2509 @0x13
0x24f6…251a at0014 = ╱45╱E╱ // 0x250a @0x14
0x24f6…251a at0015 = ╱ef╱$╱ // 0x250b @0x15
0x24f6…251a at0016 = ╱ec╱,╱ // 0x250c @0x16
0x24f6…251a at0017 = ╱54╱T╱ // 0x250d @0x17
0x24f6…251a at0018 = ╱41╱A╱ // 0x250e @0x18
0x24f6…251a at0019 = ╱48╱H╱ // 0x250f @0x19
0x24f6…251a at001a = ╱ef╱$╱ // 0x2510 @0x1a
0x24f6…251a at001b = ╱ec╱,╱ // 0x2511 @0x1b
0x24f6…251a at001c = ╱52╱R╱ // 0x2512 @0x1c
0x24f6…251a at001d = ╱45╱E╱ // 0x2513 @0x1d
0x24f6…251a at001e = ╱53╱S╱ // 0x2514 @0x1e
0x24f6…251a at001f = ╱55╱U╱ // 0x2515 @0x1f
0x24f6…251a at0020 = ╱4c╱L╱ // 0x2516 @0x20
0x24f6…251a at0021 = ╱ef╱$╱ // 0x2517 @0x21
0x24f6…251a at0022 = ╱ee╱)╱ // 0x2518 @0x22
0x24f6…251a at0023 = EOL // 0x2519 @0x23
0x24f6…251a }
0x251a…2526 b27d 4420 UNTIL FLAG=B
0x251a…2526 LineComalBin {
0x251a…2526 ptr = 0xb27d // 0x251a @0x0
0x251a…2526 lno = 0x1144 // 0x251c @0x2
0x251a…2526 at0004 = ╱98╱ UNTIL ╱ // 0x251e @0x4
0x251a…2526 at0005 = ╱46╱F╱ // 0x251f @0x5
0x251a…2526 at0006 = ╱4c╱L╱ // 0x2520 @0x6
0x251a…2526 at0007 = ╱41╱A╱ // 0x2521 @0x7
0x251a…2526 at0008 = ╱47╱G╱ // 0x2522 @0x8
0x251a…2526 at0009 = ╱dc╱=╱ // 0x2523 @0x9
0x251a…2526 at000a = ╱42╱B╱ // 0x2524 @0xa
0x251a…2526 at000b = EOL // 0x2525 @0xb
0x251a…2526 }
0x2526…254a b2a1 4430 EXEC CALC(4,RESUL$,HUND$,MAX$)
0x2526…254a LineComalBin {
0x2526…254a ptr = 0xb2a1 // 0x2526 @0x0
0x2526…254a lno = 0x114e // 0x2528 @0x2
0x2526…254a at0004 = ╱9d╱ EXEC ╱ // 0x252a @0x4
0x2526…254a at0005 = ╱43╱C╱ // 0x252b @0x5
0x2526…254a at0006 = ╱41╱A╱ // 0x252c @0x6
0x2526…254a at0007 = ╱4c╱L╱ // 0x252d @0x7
0x2526…254a at0008 = ╱43╱C╱ // 0x252e @0x8
0x2526…254a at0009 = ╱ed╱(╱ // 0x252f @0x9
0x2526…254a at000a = ╱34╱4╱ // 0x2530 @0xa
0x2526…254a at000b = ╱fe00008003╱ // 0x2531 @0xb
0x2526…254a at0010 = ╱ec╱,╱ // 0x2536 @0x10
0x2526…254a at0011 = ╱52╱R╱ // 0x2537 @0x11
0x2526…254a at0012 = ╱45╱E╱ // 0x2538 @0x12
0x2526…254a at0013 = ╱53╱S╱ // 0x2539 @0x13
0x2526…254a at0014 = ╱55╱U╱ // 0x253a @0x14
0x2526…254a at0015 = ╱4c╱L╱ // 0x253b @0x15
0x2526…254a at0016 = ╱ef╱$╱ // 0x253c @0x16
0x2526…254a at0017 = ╱ec╱,╱ // 0x253d @0x17
0x2526…254a at0018 = ╱48╱H╱ // 0x253e @0x18
0x2526…254a at0019 = ╱55╱U╱ // 0x253f @0x19
0x2526…254a at001a = ╱4e╱N╱ // 0x2540 @0x1a
0x2526…254a at001b = ╱44╱D╱ // 0x2541 @0x1b
0x2526…254a at001c = ╱ef╱$╱ // 0x2542 @0x1c
0x2526…254a at001d = ╱ec╱,╱ // 0x2543 @0x1d
0x2526…254a at001e = ╱4d╱M╱ // 0x2544 @0x1e
0x2526…254a at001f = ╱41╱A╱ // 0x2545 @0x1f
0x2526…254a at0020 = ╱58╱X╱ // 0x2546 @0x20
0x2526…254a at0021 = ╱ef╱$╱ // 0x2547 @0x21
0x2526…254a at0022 = ╱ee╱)╱ // 0x2548 @0x22
0x2526…254a at0023 = EOL // 0x2549 @0x23
0x2526…254a }
0x254a…2554 b2ab 4440 UNTIL SI=E
0x254a…2554 LineComalBin {
0x254a…2554 ptr = 0xb2ab // 0x254a @0x0
0x254a…2554 lno = 0x1158 // 0x254c @0x2
0x254a…2554 at0004 = ╱98╱ UNTIL ╱ // 0x254e @0x4
0x254a…2554 at0005 = ╱53╱S╱ // 0x254f @0x5
0x254a…2554 at0006 = ╱49╱I╱ // 0x2550 @0x6
0x254a…2554 at0007 = ╱dc╱=╱ // 0x2551 @0x7
0x254a…2554 at0008 = ╱45╱E╱ // 0x2552 @0x8
0x254a…2554 at0009 = EOL // 0x2553 @0x9
0x254a…2554 }
0x2554…2587 b2de 4450 AUT$(4,11:10)=RESUL$(V:10)
0x2554…2587 LineComalBin {
0x2554…2587 ptr = 0xb2de // 0x2554 @0x0
0x2554…2587 lno = 0x1162 // 0x2556 @0x2
0x2554…2587 at0004 = ╱41╱A╱ // 0x2558 @0x4
0x2554…2587 at0005 = ╱55╱U╱ // 0x2559 @0x5
0x2554…2587 at0006 = ╱54╱T╱ // 0x255a @0x6
0x2554…2587 at0007 = ╱ef╱$╱ // 0x255b @0x7
0x2554…2587 at0008 = ╱ed╱(╱ // 0x255c @0x8
0x2554…2587 at0009 = ╱34╱4╱ // 0x255d @0x9
0x2554…2587 at000a = ╱fe00008003╱ // 0x255e @0xa
0x2554…2587 at000f = ╱ec╱,╱ // 0x2563 @0xf
0x2554…2587 at0010 = ╱31╱1╱ // 0x2564 @0x10
0x2554…2587 at0011 = ╱31╱1╱ // 0x2565 @0x11
0x2554…2587 at0012 = ╱fe0000b004╱ // 0x2566 @0x12
0x2554…2587 at0017 = ╱f0╱:╱ // 0x256b @0x17
0x2554…2587 at0018 = ╱31╱1╱ // 0x256c @0x18
0x2554…2587 at0019 = ╱30╱0╱ // 0x256d @0x19
0x2554…2587 at001a = ╱fe0000a004╱ // 0x256e @0x1a
0x2554…2587 at001f = ╱ee╱)╱ // 0x2573 @0x1f
0x2554…2587 at0020 = ╱dc╱=╱ // 0x2574 @0x20
0x2554…2587 at0021 = ╱52╱R╱ // 0x2575 @0x21
0x2554…2587 at0022 = ╱45╱E╱ // 0x2576 @0x22
0x2554…2587 at0023 = ╱53╱S╱ // 0x2577 @0x23
0x2554…2587 at0024 = ╱55╱U╱ // 0x2578 @0x24
0x2554…2587 at0025 = ╱4c╱L╱ // 0x2579 @0x25
0x2554…2587 at0026 = ╱ef╱$╱ // 0x257a @0x26
0x2554…2587 at0027 = ╱ed╱(╱ // 0x257b @0x27
0x2554…2587 at0028 = ╱56╱V╱ // 0x257c @0x28
0x2554…2587 at0029 = ╱f0╱:╱ // 0x257d @0x29
0x2554…2587 at002a = ╱31╱1╱ // 0x257e @0x2a
0x2554…2587 at002b = ╱30╱0╱ // 0x257f @0x2b
0x2554…2587 at002c = ╱fe0000a004╱ // 0x2580 @0x2c
0x2554…2587 at0031 = ╱ee╱)╱ // 0x2585 @0x31
0x2554…2587 at0032 = EOL // 0x2586 @0x32
0x2554…2587 }
0x2587…258d b2e4 4460 ENDIF
0x2587…258d LineComalBin {
0x2587…258d ptr = 0xb2e4 // 0x2587 @0x0
0x2587…258d lno = 0x116c // 0x2589 @0x2
0x2587…258d at0004 = ╱9b╱ ENDIF ╱ // 0x258b @0x4
0x2587…258d at0005 = EOL // 0x258c @0x5
0x2587…258d }
0x258d…259d b2f4 4470 LAST=4
0x258d…259d LineComalBin {
0x258d…259d ptr = 0xb2f4 // 0x258d @0x0
0x258d…259d lno = 0x1176 // 0x258f @0x2
0x258d…259d at0004 = ╱4c╱L╱ // 0x2591 @0x4
0x258d…259d at0005 = ╱41╱A╱ // 0x2592 @0x5
0x258d…259d at0006 = ╱53╱S╱ // 0x2593 @0x6
0x258d…259d at0007 = ╱54╱T╱ // 0x2594 @0x7
0x258d…259d at0008 = ╱dc╱=╱ // 0x2595 @0x8
0x258d…259d at0009 = ╱34╱4╱ // 0x2596 @0x9
0x258d…259d at000a = ╱fe00008003╱ // 0x2597 @0xa
0x258d…259d at000f = EOL // 0x259c @0xf
0x258d…259d }
0x259d…25a3 b2fa 4480 ENDPROC
0x259d…25a3 LineComalBin {
0x259d…25a3 ptr = 0xb2fa // 0x259d @0x0
0x259d…25a3 lno = 0x1180 // 0x259f @0x2
0x259d…25a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x25a1 @0x4
0x259d…25a3 at0005 = EOL // 0x25a2 @0x5
0x259d…25a3 }
0x25a3…25bf b316 4490 FIL$="P641220:VIRKKART"
0x25a3…25bf LineComalBin {
0x25a3…25bf ptr = 0xb316 // 0x25a3 @0x0
0x25a3…25bf lno = 0x118a // 0x25a5 @0x2
0x25a3…25bf at0004 = ╱46╱F╱ // 0x25a7 @0x4
0x25a3…25bf at0005 = ╱49╱I╱ // 0x25a8 @0x5
0x25a3…25bf at0006 = ╱4c╱L╱ // 0x25a9 @0x6
0x25a3…25bf at0007 = ╱ef╱$╱ // 0x25aa @0x7
0x25a3…25bf at0008 = ╱dc╱=╱ // 0x25ab @0x8
0x25a3…25bf at0009 = ╱22╱"╱ // 0x25ac @0x9
0x25a3…25bf at000a = ╱50╱P╱ // 0x25ad @0xa
0x25a3…25bf at000b = ╱36╱6╱ // 0x25ae @0xb
0x25a3…25bf at000c = ╱34╱4╱ // 0x25af @0xc
0x25a3…25bf at000d = ╱31╱1╱ // 0x25b0 @0xd
0x25a3…25bf at000e = ╱32╱2╱ // 0x25b1 @0xe
0x25a3…25bf at000f = ╱32╱2╱ // 0x25b2 @0xf
0x25a3…25bf at0010 = ╱30╱0╱ // 0x25b3 @0x10
0x25a3…25bf at0011 = ╱3a╱:╱ // 0x25b4 @0x11
0x25a3…25bf at0012 = ╱56╱V╱ // 0x25b5 @0x12
0x25a3…25bf at0013 = ╱49╱I╱ // 0x25b6 @0x13
0x25a3…25bf at0014 = ╱52╱R╱ // 0x25b7 @0x14
0x25a3…25bf at0015 = ╱4b╱K╱ // 0x25b8 @0x15
0x25a3…25bf at0016 = ╱4b╱K╱ // 0x25b9 @0x16
0x25a3…25bf at0017 = ╱41╱A╱ // 0x25ba @0x17
0x25a3…25bf at0018 = ╱52╱R╱ // 0x25bb @0x18
0x25a3…25bf at0019 = ╱54╱T╱ // 0x25bc @0x19
0x25a3…25bf at001a = ╱22╱"╱ // 0x25bd @0x1a
0x25a3…25bf at001b = EOL // 0x25be @0x1b
0x25a3…25bf }
0x25bf…25cc b323 4500 EXEC INDVIRK
0x25bf…25cc LineComalBin {
0x25bf…25cc ptr = 0xb323 // 0x25bf @0x0
0x25bf…25cc lno = 0x1194 // 0x25c1 @0x2
0x25bf…25cc at0004 = ╱9d╱ EXEC ╱ // 0x25c3 @0x4
0x25bf…25cc at0005 = ╱49╱I╱ // 0x25c4 @0x5
0x25bf…25cc at0006 = ╱4e╱N╱ // 0x25c5 @0x6
0x25bf…25cc at0007 = ╱44╱D╱ // 0x25c6 @0x7
0x25bf…25cc at0008 = ╱56╱V╱ // 0x25c7 @0x8
0x25bf…25cc at0009 = ╱49╱I╱ // 0x25c8 @0x9
0x25bf…25cc at000a = ╱52╱R╱ // 0x25c9 @0xa
0x25bf…25cc at000b = ╱4b╱K╱ // 0x25ca @0xb
0x25bf…25cc at000c = EOL // 0x25cb @0xc
0x25bf…25cc }
0x25cc…25d6 b32d 4510 CLOSE FIL$
0x25cc…25d6 LineComalBin {
0x25cc…25d6 ptr = 0xb32d // 0x25cc @0x0
0x25cc…25d6 lno = 0x119e // 0x25ce @0x2
0x25cc…25d6 at0004 = ╱a8╱ CLOSE ╱ // 0x25d0 @0x4
0x25cc…25d6 at0005 = ╱46╱F╱ // 0x25d1 @0x5
0x25cc…25d6 at0006 = ╱49╱I╱ // 0x25d2 @0x6
0x25cc…25d6 at0007 = ╱4c╱L╱ // 0x25d3 @0x7
0x25cc…25d6 at0008 = ╱ef╱$╱ // 0x25d4 @0x8
0x25cc…25d6 at0009 = EOL // 0x25d5 @0x9
0x25cc…25d6 }
0x25d6…25f2 b349 4520 DIM SIDE$(ATPLM-V,37)
0x25d6…25f2 LineComalBin {
0x25d6…25f2 ptr = 0xb349 // 0x25d6 @0x0
0x25d6…25f2 lno = 0x11a8 // 0x25d8 @0x2
0x25d6…25f2 at0004 = ╱87╱ DIM ╱ // 0x25da @0x4
0x25d6…25f2 at0005 = ╱53╱S╱ // 0x25db @0x5
0x25d6…25f2 at0006 = ╱49╱I╱ // 0x25dc @0x6
0x25d6…25f2 at0007 = ╱44╱D╱ // 0x25dd @0x7
0x25d6…25f2 at0008 = ╱45╱E╱ // 0x25de @0x8
0x25d6…25f2 at0009 = ╱ef╱$╱ // 0x25df @0x9
0x25d6…25f2 at000a = ╱ed╱(╱ // 0x25e0 @0xa
0x25d6…25f2 at000b = ╱41╱A╱ // 0x25e1 @0xb
0x25d6…25f2 at000c = ╱54╱T╱ // 0x25e2 @0xc
0x25d6…25f2 at000d = ╱50╱P╱ // 0x25e3 @0xd
0x25d6…25f2 at000e = ╱4c╱L╱ // 0x25e4 @0xe
0x25d6…25f2 at000f = ╱4d╱M╱ // 0x25e5 @0xf
0x25d6…25f2 at0010 = ╱e3╱-╱ // 0x25e6 @0x10
0x25d6…25f2 at0011 = ╱56╱V╱ // 0x25e7 @0x11
0x25d6…25f2 at0012 = ╱ec╱,╱ // 0x25e8 @0x12
0x25d6…25f2 at0013 = ╱33╱3╱ // 0x25e9 @0x13
0x25d6…25f2 at0014 = ╱37╱7╱ // 0x25ea @0x14
0x25d6…25f2 at0015 = ╱fe00009406╱ // 0x25eb @0x15
0x25d6…25f2 at001a = ╱ee╱)╱ // 0x25f0 @0x1a
0x25d6…25f2 at001b = EOL // 0x25f1 @0x1b
0x25d6…25f2 }
0x25f2…260e b365 4530 FIL$="P641220:LØNMODRG"
0x25f2…260e LineComalBin {
0x25f2…260e ptr = 0xb365 // 0x25f2 @0x0
0x25f2…260e lno = 0x11b2 // 0x25f4 @0x2
0x25f2…260e at0004 = ╱46╱F╱ // 0x25f6 @0x4
0x25f2…260e at0005 = ╱49╱I╱ // 0x25f7 @0x5
0x25f2…260e at0006 = ╱4c╱L╱ // 0x25f8 @0x6
0x25f2…260e at0007 = ╱ef╱$╱ // 0x25f9 @0x7
0x25f2…260e at0008 = ╱dc╱=╱ // 0x25fa @0x8
0x25f2…260e at0009 = ╱22╱"╱ // 0x25fb @0x9
0x25f2…260e at000a = ╱50╱P╱ // 0x25fc @0xa
0x25f2…260e at000b = ╱36╱6╱ // 0x25fd @0xb
0x25f2…260e at000c = ╱34╱4╱ // 0x25fe @0xc
0x25f2…260e at000d = ╱31╱1╱ // 0x25ff @0xd
0x25f2…260e at000e = ╱32╱2╱ // 0x2600 @0xe
0x25f2…260e at000f = ╱32╱2╱ // 0x2601 @0xf
0x25f2…260e at0010 = ╱30╱0╱ // 0x2602 @0x10
0x25f2…260e at0011 = ╱3a╱:╱ // 0x2603 @0x11
0x25f2…260e at0012 = ╱4c╱L╱ // 0x2604 @0x12
0x25f2…260e at0013 = ╱5c╱Ø╱ // 0x2605 @0x13
0x25f2…260e at0014 = ╱4e╱N╱ // 0x2606 @0x14
0x25f2…260e at0015 = ╱4d╱M╱ // 0x2607 @0x15
0x25f2…260e at0016 = ╱4f╱O╱ // 0x2608 @0x16
0x25f2…260e at0017 = ╱44╱D╱ // 0x2609 @0x17
0x25f2…260e at0018 = ╱52╱R╱ // 0x260a @0x18
0x25f2…260e at0019 = ╱47╱G╱ // 0x260b @0x19
0x25f2…260e at001a = ╱22╱"╱ // 0x260c @0x1a
0x25f2…260e at001b = EOL // 0x260d @0x1b
0x25f2…260e }
0x260e…261a b371 4540 OPEN FIL$,R
0x260e…261a LineComalBin {
0x260e…261a ptr = 0xb371 // 0x260e @0x0
0x260e…261a lno = 0x11bc // 0x2610 @0x2
0x260e…261a at0004 = ╱a7╱ OPEN ╱ // 0x2612 @0x4
0x260e…261a at0005 = ╱46╱F╱ // 0x2613 @0x5
0x260e…261a at0006 = ╱49╱I╱ // 0x2614 @0x6
0x260e…261a at0007 = ╱4c╱L╱ // 0x2615 @0x7
0x260e…261a at0008 = ╱ef╱$╱ // 0x2616 @0x8
0x260e…261a at0009 = ╱ec╱,╱ // 0x2617 @0x9
0x260e…261a at000a = ╱52╱R╱ // 0x2618 @0xa
0x260e…261a at000b = EOL // 0x2619 @0xb
0x260e…261a }
0x261a…2637 b38e 4550 FIL1$="P641220:TRANSREG"
0x261a…2637 LineComalBin {
0x261a…2637 ptr = 0xb38e // 0x261a @0x0
0x261a…2637 lno = 0x11c6 // 0x261c @0x2
0x261a…2637 at0004 = ╱46╱F╱ // 0x261e @0x4
0x261a…2637 at0005 = ╱49╱I╱ // 0x261f @0x5
0x261a…2637 at0006 = ╱4c╱L╱ // 0x2620 @0x6
0x261a…2637 at0007 = ╱31╱1╱ // 0x2621 @0x7
0x261a…2637 at0008 = ╱ef╱$╱ // 0x2622 @0x8
0x261a…2637 at0009 = ╱dc╱=╱ // 0x2623 @0x9
0x261a…2637 at000a = ╱22╱"╱ // 0x2624 @0xa
0x261a…2637 at000b = ╱50╱P╱ // 0x2625 @0xb
0x261a…2637 at000c = ╱36╱6╱ // 0x2626 @0xc
0x261a…2637 at000d = ╱34╱4╱ // 0x2627 @0xd
0x261a…2637 at000e = ╱31╱1╱ // 0x2628 @0xe
0x261a…2637 at000f = ╱32╱2╱ // 0x2629 @0xf
0x261a…2637 at0010 = ╱32╱2╱ // 0x262a @0x10
0x261a…2637 at0011 = ╱30╱0╱ // 0x262b @0x11
0x261a…2637 at0012 = ╱3a╱:╱ // 0x262c @0x12
0x261a…2637 at0013 = ╱54╱T╱ // 0x262d @0x13
0x261a…2637 at0014 = ╱52╱R╱ // 0x262e @0x14
0x261a…2637 at0015 = ╱41╱A╱ // 0x262f @0x15
0x261a…2637 at0016 = ╱4e╱N╱ // 0x2630 @0x16
0x261a…2637 at0017 = ╱53╱S╱ // 0x2631 @0x17
0x261a…2637 at0018 = ╱52╱R╱ // 0x2632 @0x18
0x261a…2637 at0019 = ╱45╱E╱ // 0x2633 @0x19
0x261a…2637 at001a = ╱47╱G╱ // 0x2634 @0x1a
0x261a…2637 at001b = ╱22╱"╱ // 0x2635 @0x1b
0x261a…2637 at001c = EOL // 0x2636 @0x1c
0x261a…2637 }
0x2637…2644 b39b 4560 OPEN FIL1$,W
0x2637…2644 LineComalBin {
0x2637…2644 ptr = 0xb39b // 0x2637 @0x0
0x2637…2644 lno = 0x11d0 // 0x2639 @0x2
0x2637…2644 at0004 = ╱a7╱ OPEN ╱ // 0x263b @0x4
0x2637…2644 at0005 = ╱46╱F╱ // 0x263c @0x5
0x2637…2644 at0006 = ╱49╱I╱ // 0x263d @0x6
0x2637…2644 at0007 = ╱4c╱L╱ // 0x263e @0x7
0x2637…2644 at0008 = ╱31╱1╱ // 0x263f @0x8
0x2637…2644 at0009 = ╱ef╱$╱ // 0x2640 @0x9
0x2637…2644 at000a = ╱ec╱,╱ // 0x2641 @0xa
0x2637…2644 at000b = ╱57╱W╱ // 0x2642 @0xb
0x2637…2644 at000c = EOL // 0x2643 @0xc
0x2637…2644 }
0x2644…2661 b3b8 4570 FIL5$="P641220:LØNARTRG"
0x2644…2661 LineComalBin {
0x2644…2661 ptr = 0xb3b8 // 0x2644 @0x0
0x2644…2661 lno = 0x11da // 0x2646 @0x2
0x2644…2661 at0004 = ╱46╱F╱ // 0x2648 @0x4
0x2644…2661 at0005 = ╱49╱I╱ // 0x2649 @0x5
0x2644…2661 at0006 = ╱4c╱L╱ // 0x264a @0x6
0x2644…2661 at0007 = ╱35╱5╱ // 0x264b @0x7
0x2644…2661 at0008 = ╱ef╱$╱ // 0x264c @0x8
0x2644…2661 at0009 = ╱dc╱=╱ // 0x264d @0x9
0x2644…2661 at000a = ╱22╱"╱ // 0x264e @0xa
0x2644…2661 at000b = ╱50╱P╱ // 0x264f @0xb
0x2644…2661 at000c = ╱36╱6╱ // 0x2650 @0xc
0x2644…2661 at000d = ╱34╱4╱ // 0x2651 @0xd
0x2644…2661 at000e = ╱31╱1╱ // 0x2652 @0xe
0x2644…2661 at000f = ╱32╱2╱ // 0x2653 @0xf
0x2644…2661 at0010 = ╱32╱2╱ // 0x2654 @0x10
0x2644…2661 at0011 = ╱30╱0╱ // 0x2655 @0x11
0x2644…2661 at0012 = ╱3a╱:╱ // 0x2656 @0x12
0x2644…2661 at0013 = ╱4c╱L╱ // 0x2657 @0x13
0x2644…2661 at0014 = ╱5c╱Ø╱ // 0x2658 @0x14
0x2644…2661 at0015 = ╱4e╱N╱ // 0x2659 @0x15
0x2644…2661 at0016 = ╱41╱A╱ // 0x265a @0x16
0x2644…2661 at0017 = ╱52╱R╱ // 0x265b @0x17
0x2644…2661 at0018 = ╱54╱T╱ // 0x265c @0x18
0x2644…2661 at0019 = ╱52╱R╱ // 0x265d @0x19
0x2644…2661 at001a = ╱47╱G╱ // 0x265e @0x1a
0x2644…2661 at001b = ╱22╱"╱ // 0x265f @0x1b
0x2644…2661 at001c = EOL // 0x2660 @0x1c
0x2644…2661 }
0x2661…266e b3c5 4580 OPEN FIL5$,R
0x2661…266e LineComalBin {
0x2661…266e ptr = 0xb3c5 // 0x2661 @0x0
0x2661…266e lno = 0x11e4 // 0x2663 @0x2
0x2661…266e at0004 = ╱a7╱ OPEN ╱ // 0x2665 @0x4
0x2661…266e at0005 = ╱46╱F╱ // 0x2666 @0x5
0x2661…266e at0006 = ╱49╱I╱ // 0x2667 @0x6
0x2661…266e at0007 = ╱4c╱L╱ // 0x2668 @0x7
0x2661…266e at0008 = ╱35╱5╱ // 0x2669 @0x8
0x2661…266e at0009 = ╱ef╱$╱ // 0x266a @0x9
0x2661…266e at000a = ╱ec╱,╱ // 0x266b @0xa
0x2661…266e at000b = ╱52╱R╱ // 0x266c @0xb
0x2661…266e at000c = EOL // 0x266d @0xc
0x2661…266e }
0x266e…2674 b3cb 4590 REPEAT
0x266e…2674 LineComalBin {
0x266e…2674 ptr = 0xb3cb // 0x266e @0x0
0x266e…2674 lno = 0x11ee // 0x2670 @0x2
0x266e…2674 at0004 = ╱97╱ REPEAT ╱ // 0x2672 @0x4
0x266e…2674 at0005 = EOL // 0x2673 @0x5
0x266e…2674 }
0x2674…267a b3d1 4600 CLEAR
0x2674…267a LineComalBin {
0x2674…267a ptr = 0xb3d1 // 0x2674 @0x0
0x2674…267a lno = 0x11f8 // 0x2676 @0x2
0x2674…267a at0004 = ╱a0╱ CLEAR ╱ // 0x2678 @0x4
0x2674…267a at0005 = EOL // 0x2679 @0x5
0x2674…267a }
0x267a…2680 b3d7 4610 REPEAT
0x267a…2680 LineComalBin {
0x267a…2680 ptr = 0xb3d7 // 0x267a @0x0
0x267a…2680 lno = 0x1202 // 0x267c @0x2
0x267a…2680 at0004 = ╱97╱ REPEAT ╱ // 0x267e @0x4
0x267a…2680 at0005 = EOL // 0x267f @0x5
0x267a…2680 }
0x2680…268b (128,) b3e2 4620 LMNR=B
0x2680…268b LineComalBin {
0x2680…268b ptr = 0xb3e2 // 0x2680 @0x0
0x2680…268b lno = 0x120c // 0x2682 @0x2
0x2680…268b at0004 = ╱4c╱L╱ // 0x2684 @0x4
0x2680…268b at0005 = ╱4d╱M╱ // 0x2685 @0x5
0x2680…268b at0006 = ╱4e╱N╱ // 0x2686 @0x6
0x2680…268b at0007 = ╱52╱R╱ // 0x2687 @0x7
0x2680…268b at0008 = ╱dc╱=╱ // 0x2688 @0x8
0x2680…268b at0009 = ╱42╱B╱ // 0x2689 @0x9
0x2680…268b at000a = EOL // 0x268a @0xa
0x2680…268b }
0x268b…269e b3f5 4630 EDIT "Lønnr ",LMNR
0x268b…269e LineComalBin {
0x268b…269e ptr = 0xb3f5 // 0x268b @0x0
0x268b…269e lno = 0x1216 // 0x268d @0x2
0x268b…269e at0004 = ╱b1╱ EDIT ╱ // 0x268f @0x4
0x268b…269e at0005 = ╱22╱"╱ // 0x2690 @0x5
0x268b…269e at0006 = ╱4c╱L╱ // 0x2691 @0x6
0x268b…269e at0007 = ╱7c╱ø╱ // 0x2692 @0x7
0x268b…269e at0008 = ╱6e╱n╱ // 0x2693 @0x8
0x268b…269e at0009 = ╱6e╱n╱ // 0x2694 @0x9
0x268b…269e at000a = ╱72╱r╱ // 0x2695 @0xa
0x268b…269e at000b = ╱20╱…╱ // 0x2696 @0xb
0x268b…269e at000c = ╱22╱"╱ // 0x2697 @0xc
0x268b…269e at000d = ╱ec╱,╱ // 0x2698 @0xd
0x268b…269e at000e = ╱4c╱L╱ // 0x2699 @0xe
0x268b…269e at000f = ╱4d╱M╱ // 0x269a @0xf
0x268b…269e at0010 = ╱4e╱N╱ // 0x269b @0x10
0x268b…269e at0011 = ╱52╱R╱ // 0x269c @0x11
0x268b…269e at0012 = EOL // 0x269d @0x12
0x268b…269e }
0x269e…26b5 b40c 4640 UNTIL LMNR=>B AND LMNR<MLMNR
0x269e…26b5 LineComalBin {
0x269e…26b5 ptr = 0xb40c // 0x269e @0x0
0x269e…26b5 lno = 0x1220 // 0x26a0 @0x2
0x269e…26b5 at0004 = ╱98╱ UNTIL ╱ // 0x26a2 @0x4
0x269e…26b5 at0005 = ╱4c╱L╱ // 0x26a3 @0x5
0x269e…26b5 at0006 = ╱4d╱M╱ // 0x26a4 @0x6
0x269e…26b5 at0007 = ╱4e╱N╱ // 0x26a5 @0x7
0x269e…26b5 at0008 = ╱52╱R╱ // 0x26a6 @0x8
0x269e…26b5 at0009 = ╱e0╱=>╱ // 0x26a7 @0x9
0x269e…26b5 at000a = ╱42╱B╱ // 0x26a8 @0xa
0x269e…26b5 at000b = ╱da╱ AND ╱ // 0x26a9 @0xb
0x269e…26b5 at000c = ╱4c╱L╱ // 0x26aa @0xc
0x269e…26b5 at000d = ╱4d╱M╱ // 0x26ab @0xd
0x269e…26b5 at000e = ╱4e╱N╱ // 0x26ac @0xe
0x269e…26b5 at000f = ╱52╱R╱ // 0x26ad @0xf
0x269e…26b5 at0010 = ╱dd╱<╱ // 0x26ae @0x10
0x269e…26b5 at0011 = ╱4d╱M╱ // 0x26af @0x11
0x269e…26b5 at0012 = ╱4c╱L╱ // 0x26b0 @0x12
0x269e…26b5 at0013 = ╱4d╱M╱ // 0x26b1 @0x13
0x269e…26b5 at0014 = ╱4e╱N╱ // 0x26b2 @0x14
0x269e…26b5 at0015 = ╱52╱R╱ // 0x26b3 @0x15
0x269e…26b5 at0016 = EOL // 0x26b4 @0x16
0x269e…26b5 }
0x26b5…26c2 b419 4650 IF LMNR>B THEN
0x26b5…26c2 LineComalBin {
0x26b5…26c2 ptr = 0xb419 // 0x26b5 @0x0
0x26b5…26c2 lno = 0x122a // 0x26b7 @0x2
0x26b5…26c2 at0004 = ╱9c╱ IF ╱ // 0x26b9 @0x4
0x26b5…26c2 at0005 = ╱4c╱L╱ // 0x26ba @0x5
0x26b5…26c2 at0006 = ╱4d╱M╱ // 0x26bb @0x6
0x26b5…26c2 at0007 = ╱4e╱N╱ // 0x26bc @0x7
0x26b5…26c2 at0008 = ╱52╱R╱ // 0x26bd @0x8
0x26b5…26c2 at0009 = ╱de╱>╱ // 0x26be @0x9
0x26b5…26c2 at000a = ╱42╱B╱ // 0x26bf @0xa
0x26b5…26c2 at000b = ╱b6╱ THEN ╱ // 0x26c0 @0xb
0x26b5…26c2 at000c = EOL // 0x26c1 @0xc
0x26b5…26c2 }
0x26c2…26d6 b42d 4660 EXEC INLØNMOD(LMNR)
0x26c2…26d6 LineComalBin {
0x26c2…26d6 ptr = 0xb42d // 0x26c2 @0x0
0x26c2…26d6 lno = 0x1234 // 0x26c4 @0x2
0x26c2…26d6 at0004 = ╱9d╱ EXEC ╱ // 0x26c6 @0x4
0x26c2…26d6 at0005 = ╱49╱I╱ // 0x26c7 @0x5
0x26c2…26d6 at0006 = ╱4e╱N╱ // 0x26c8 @0x6
0x26c2…26d6 at0007 = ╱4c╱L╱ // 0x26c9 @0x7
0x26c2…26d6 at0008 = ╱5c╱Ø╱ // 0x26ca @0x8
0x26c2…26d6 at0009 = ╱4e╱N╱ // 0x26cb @0x9
0x26c2…26d6 at000a = ╱4d╱M╱ // 0x26cc @0xa
0x26c2…26d6 at000b = ╱4f╱O╱ // 0x26cd @0xb
0x26c2…26d6 at000c = ╱44╱D╱ // 0x26ce @0xc
0x26c2…26d6 at000d = ╱ed╱(╱ // 0x26cf @0xd
0x26c2…26d6 at000e = ╱4c╱L╱ // 0x26d0 @0xe
0x26c2…26d6 at000f = ╱4d╱M╱ // 0x26d1 @0xf
0x26c2…26d6 at0010 = ╱4e╱N╱ // 0x26d2 @0x10
0x26c2…26d6 at0011 = ╱52╱R╱ // 0x26d3 @0x11
0x26c2…26d6 at0012 = ╱ee╱)╱ // 0x26d4 @0x12
0x26c2…26d6 at0013 = EOL // 0x26d5 @0x13
0x26c2…26d6 }
0x26d6…26e1 b438 4670 IF LA<>B THEN
0x26d6…26e1 LineComalBin {
0x26d6…26e1 ptr = 0xb438 // 0x26d6 @0x0
0x26d6…26e1 lno = 0x123e // 0x26d8 @0x2
0x26d6…26e1 at0004 = ╱9c╱ IF ╱ // 0x26da @0x4
0x26d6…26e1 at0005 = ╱4c╱L╱ // 0x26db @0x5
0x26d6…26e1 at0006 = ╱41╱A╱ // 0x26dc @0x6
0x26d6…26e1 at0007 = ╱e1╱<>╱ // 0x26dd @0x7
0x26d6…26e1 at0008 = ╱42╱B╱ // 0x26de @0x8
0x26d6…26e1 at0009 = ╱b6╱ THEN ╱ // 0x26df @0x9
0x26d6…26e1 at000a = EOL // 0x26e0 @0xa
0x26d6…26e1 }
0x26e1…26f9 b450 4680 IT=(LMNR-E)*ATPLM+E
0x26e1…26f9 LineComalBin {
0x26e1…26f9 ptr = 0xb450 // 0x26e1 @0x0
0x26e1…26f9 lno = 0x1248 // 0x26e3 @0x2
0x26e1…26f9 at0004 = ╱49╱I╱ // 0x26e5 @0x4
0x26e1…26f9 at0005 = ╱54╱T╱ // 0x26e6 @0x5
0x26e1…26f9 at0006 = ╱dc╱=╱ // 0x26e7 @0x6
0x26e1…26f9 at0007 = ╱ed╱(╱ // 0x26e8 @0x7
0x26e1…26f9 at0008 = ╱4c╱L╱ // 0x26e9 @0x8
0x26e1…26f9 at0009 = ╱4d╱M╱ // 0x26ea @0x9
0x26e1…26f9 at000a = ╱4e╱N╱ // 0x26eb @0xa
0x26e1…26f9 at000b = ╱52╱R╱ // 0x26ec @0xb
0x26e1…26f9 at000c = ╱e3╱-╱ // 0x26ed @0xc
0x26e1…26f9 at000d = ╱45╱E╱ // 0x26ee @0xd
0x26e1…26f9 at000e = ╱ee╱)╱ // 0x26ef @0xe
0x26e1…26f9 at000f = ╱e4╱*╱ // 0x26f0 @0xf
0x26e1…26f9 at0010 = ╱41╱A╱ // 0x26f1 @0x10
0x26e1…26f9 at0011 = ╱54╱T╱ // 0x26f2 @0x11
0x26e1…26f9 at0012 = ╱50╱P╱ // 0x26f3 @0x12
0x26e1…26f9 at0013 = ╱4c╱L╱ // 0x26f4 @0x13
0x26e1…26f9 at0014 = ╱4d╱M╱ // 0x26f5 @0x14
0x26e1…26f9 at0015 = ╱e2╱+╱ // 0x26f6 @0x15
0x26e1…26f9 at0016 = ╱45╱E╱ // 0x26f7 @0x16
0x26e1…26f9 at0017 = EOL // 0x26f8 @0x17
0x26e1…26f9 }
0x26f9…2703 b45a 4690 UT=IT
0x26f9…2703 LineComalBin {
0x26f9…2703 ptr = 0xb45a // 0x26f9 @0x0
0x26f9…2703 lno = 0x1252 // 0x26fb @0x2
0x26f9…2703 at0004 = ╱55╱U╱ // 0x26fd @0x4
0x26f9…2703 at0005 = ╱54╱T╱ // 0x26fe @0x5
0x26f9…2703 at0006 = ╱dc╱=╱ // 0x26ff @0x6
0x26f9…2703 at0007 = ╱49╱I╱ // 0x2700 @0x7
0x26f9…2703 at0008 = ╱54╱T╱ // 0x2701 @0x8
0x26f9…2703 at0009 = EOL // 0x2702 @0x9
0x26f9…2703 }
0x2703…270c b463 4700 AT=B
0x2703…270c LineComalBin {
0x2703…270c ptr = 0xb463 // 0x2703 @0x0
0x2703…270c lno = 0x125c // 0x2705 @0x2
0x2703…270c at0004 = ╱41╱A╱ // 0x2707 @0x4
0x2703…270c at0005 = ╱54╱T╱ // 0x2708 @0x5
0x2703…270c at0006 = ╱dc╱=╱ // 0x2709 @0x6
0x2703…270c at0007 = ╱42╱B╱ // 0x270a @0x7
0x2703…270c at0008 = EOL // 0x270b @0x8
0x2703…270c }
0x270c…271a b471 4710 EXEC INDTRANS
0x270c…271a LineComalBin {
0x270c…271a ptr = 0xb471 // 0x270c @0x0
0x270c…271a lno = 0x1266 // 0x270e @0x2
0x270c…271a at0004 = ╱9d╱ EXEC ╱ // 0x2710 @0x4
0x270c…271a at0005 = ╱49╱I╱ // 0x2711 @0x5
0x270c…271a at0006 = ╱4e╱N╱ // 0x2712 @0x6
0x270c…271a at0007 = ╱44╱D╱ // 0x2713 @0x7
0x270c…271a at0008 = ╱54╱T╱ // 0x2714 @0x8
0x270c…271a at0009 = ╱52╱R╱ // 0x2715 @0x9
0x270c…271a at000a = ╱41╱A╱ // 0x2716 @0xa
0x270c…271a at000b = ╱4e╱N╱ // 0x2717 @0xb
0x270c…271a at000c = ╱53╱S╱ // 0x2718 @0xc
0x270c…271a at000d = EOL // 0x2719 @0xd
0x270c…271a }
0x271a…2720 (130,) b477 4720 REPEAT
0x271a…2720 LineComalBin {
0x271a…2720 ptr = 0xb477 // 0x271a @0x0
0x271a…2720 lno = 0x1270 // 0x271c @0x2
0x271a…2720 at0004 = ╱97╱ REPEAT ╱ // 0x271e @0x4
0x271a…2720 at0005 = EOL // 0x271f @0x5
0x271a…2720 }
0x2720…2735 b48c 4730 IF SIDE$(E,E)="2" THEN
0x2720…2735 LineComalBin {
0x2720…2735 ptr = 0xb48c // 0x2720 @0x0
0x2720…2735 lno = 0x127a // 0x2722 @0x2
0x2720…2735 at0004 = ╱9c╱ IF ╱ // 0x2724 @0x4
0x2720…2735 at0005 = ╱53╱S╱ // 0x2725 @0x5
0x2720…2735 at0006 = ╱49╱I╱ // 0x2726 @0x6
0x2720…2735 at0007 = ╱44╱D╱ // 0x2727 @0x7
0x2720…2735 at0008 = ╱45╱E╱ // 0x2728 @0x8
0x2720…2735 at0009 = ╱ef╱$╱ // 0x2729 @0x9
0x2720…2735 at000a = ╱ed╱(╱ // 0x272a @0xa
0x2720…2735 at000b = ╱45╱E╱ // 0x272b @0xb
0x2720…2735 at000c = ╱ec╱,╱ // 0x272c @0xc
0x2720…2735 at000d = ╱45╱E╱ // 0x272d @0xd
0x2720…2735 at000e = ╱ee╱)╱ // 0x272e @0xe
0x2720…2735 at000f = ╱dc╱=╱ // 0x272f @0xf
0x2720…2735 at0010 = ╱22╱"╱ // 0x2730 @0x10
0x2720…2735 at0011 = ╱32╱2╱ // 0x2731 @0x11
0x2720…2735 at0012 = ╱22╱"╱ // 0x2732 @0x12
0x2720…2735 at0013 = ╱b6╱ THEN ╱ // 0x2733 @0x13
0x2720…2735 at0014 = EOL // 0x2734 @0x14
0x2720…2735 }
0x2735…2740 b497 4740 LAST=B
0x2735…2740 LineComalBin {
0x2735…2740 ptr = 0xb497 // 0x2735 @0x0
0x2735…2740 lno = 0x1284 // 0x2737 @0x2
0x2735…2740 at0004 = ╱4c╱L╱ // 0x2739 @0x4
0x2735…2740 at0005 = ╱41╱A╱ // 0x273a @0x5
0x2735…2740 at0006 = ╱53╱S╱ // 0x273b @0x6
0x2735…2740 at0007 = ╱54╱T╱ // 0x273c @0x7
0x2735…2740 at0008 = ╱dc╱=╱ // 0x273d @0x8
0x2735…2740 at0009 = ╱42╱B╱ // 0x273e @0x9
0x2735…2740 at000a = EOL // 0x273f @0xa
0x2735…2740 }
0x2740…2746 b49d 4750 ELSE
0x2740…2746 LineComalBin {
0x2740…2746 ptr = 0xb49d // 0x2740 @0x0
0x2740…2746 lno = 0x128e // 0x2742 @0x2
0x2740…2746 at0004 = ╱9a╱ ELSE ╱ // 0x2744 @0x4
0x2740…2746 at0005 = EOL // 0x2745 @0x5
0x2740…2746 }
0x2746…2754 b4ab 4760 EXEC SKRIVSID
0x2746…2754 LineComalBin {
0x2746…2754 ptr = 0xb4ab // 0x2746 @0x0
0x2746…2754 lno = 0x1298 // 0x2748 @0x2
0x2746…2754 at0004 = ╱9d╱ EXEC ╱ // 0x274a @0x4
0x2746…2754 at0005 = ╱53╱S╱ // 0x274b @0x5
0x2746…2754 at0006 = ╱4b╱K╱ // 0x274c @0x6
0x2746…2754 at0007 = ╱52╱R╱ // 0x274d @0x7
0x2746…2754 at0008 = ╱49╱I╱ // 0x274e @0x8
0x2746…2754 at0009 = ╱56╱V╱ // 0x274f @0x9
0x2746…2754 at000a = ╱53╱S╱ // 0x2750 @0xa
0x2746…2754 at000b = ╱49╱I╱ // 0x2751 @0xb
0x2746…2754 at000c = ╱44╱D╱ // 0x2752 @0xc
0x2746…2754 at000d = EOL // 0x2753 @0xd
0x2746…2754 }
0x2754…2761 b4b8 4770 IF LAST>B THEN
0x2754…2761 LineComalBin {
0x2754…2761 ptr = 0xb4b8 // 0x2754 @0x0
0x2754…2761 lno = 0x12a2 // 0x2756 @0x2
0x2754…2761 at0004 = ╱9c╱ IF ╱ // 0x2758 @0x4
0x2754…2761 at0005 = ╱4c╱L╱ // 0x2759 @0x5
0x2754…2761 at0006 = ╱41╱A╱ // 0x275a @0x6
0x2754…2761 at0007 = ╱53╱S╱ // 0x275b @0x7
0x2754…2761 at0008 = ╱54╱T╱ // 0x275c @0x8
0x2754…2761 at0009 = ╱de╱>╱ // 0x275d @0x9
0x2754…2761 at000a = ╱42╱B╱ // 0x275e @0xa
0x2754…2761 at000b = ╱b6╱ THEN ╱ // 0x275f @0xb
0x2754…2761 at000c = EOL // 0x2760 @0xc
0x2754…2761 }
0x2761…276d b4c4 4780 EXEC RETSID
0x2761…276d LineComalBin {
0x2761…276d ptr = 0xb4c4 // 0x2761 @0x0
0x2761…276d lno = 0x12ac // 0x2763 @0x2
0x2761…276d at0004 = ╱9d╱ EXEC ╱ // 0x2765 @0x4
0x2761…276d at0005 = ╱52╱R╱ // 0x2766 @0x5
0x2761…276d at0006 = ╱45╱E╱ // 0x2767 @0x6
0x2761…276d at0007 = ╱54╱T╱ // 0x2768 @0x7
0x2761…276d at0008 = ╱53╱S╱ // 0x2769 @0x8
0x2761…276d at0009 = ╱49╱I╱ // 0x276a @0x9
0x2761…276d at000a = ╱44╱D╱ // 0x276b @0xa
0x2761…276d at000b = EOL // 0x276c @0xb
0x2761…276d }
0x276d…2782 b4d9 4790 LAST=SIDST-FØRST
0x276d…2782 LineComalBin {
0x276d…2782 ptr = 0xb4d9 // 0x276d @0x0
0x276d…2782 lno = 0x12b6 // 0x276f @0x2
0x276d…2782 at0004 = ╱4c╱L╱ // 0x2771 @0x4
0x276d…2782 at0005 = ╱41╱A╱ // 0x2772 @0x5
0x276d…2782 at0006 = ╱53╱S╱ // 0x2773 @0x6
0x276d…2782 at0007 = ╱54╱T╱ // 0x2774 @0x7
0x276d…2782 at0008 = ╱dc╱=╱ // 0x2775 @0x8
0x276d…2782 at0009 = ╱53╱S╱ // 0x2776 @0x9
0x276d…2782 at000a = ╱49╱I╱ // 0x2777 @0xa
0x276d…2782 at000b = ╱44╱D╱ // 0x2778 @0xb
0x276d…2782 at000c = ╱53╱S╱ // 0x2779 @0xc
0x276d…2782 at000d = ╱54╱T╱ // 0x277a @0xd
0x276d…2782 at000e = ╱e3╱-╱ // 0x277b @0xe
0x276d…2782 at000f = ╱46╱F╱ // 0x277c @0xf
0x276d…2782 at0010 = ╱5c╱Ø╱ // 0x277d @0x10
0x276d…2782 at0011 = ╱52╱R╱ // 0x277e @0x11
0x276d…2782 at0012 = ╱53╱S╱ // 0x277f @0x12
0x276d…2782 at0013 = ╱54╱T╱ // 0x2780 @0x13
0x276d…2782 at0014 = EOL // 0x2781 @0x14
0x276d…2782 }
0x2782…27a1 b4f8 4800 IF LAST>18 THEN LAST=18
0x2782…27a1 LineComalBin {
0x2782…27a1 ptr = 0xb4f8 // 0x2782 @0x0
0x2782…27a1 lno = 0x12c0 // 0x2784 @0x2
0x2782…27a1 at0004 = ╱82╱ IF ╱ // 0x2786 @0x4
0x2782…27a1 at0005 = ╱4c╱L╱ // 0x2787 @0x5
0x2782…27a1 at0006 = ╱41╱A╱ // 0x2788 @0x6
0x2782…27a1 at0007 = ╱53╱S╱ // 0x2789 @0x7
0x2782…27a1 at0008 = ╱54╱T╱ // 0x278a @0x8
0x2782…27a1 at0009 = ╱de╱>╱ // 0x278b @0x9
0x2782…27a1 at000a = ╱31╱1╱ // 0x278c @0xa
0x2782…27a1 at000b = ╱38╱8╱ // 0x278d @0xb
0x2782…27a1 at000c = ╱fe00009005╱ // 0x278e @0xc
0x2782…27a1 at0011 = ╱b6╱ THEN ╱ // 0x2793 @0x11
0x2782…27a1 at0012 = ╱4c╱L╱ // 0x2794 @0x12
0x2782…27a1 at0013 = ╱41╱A╱ // 0x2795 @0x13
0x2782…27a1 at0014 = ╱53╱S╱ // 0x2796 @0x14
0x2782…27a1 at0015 = ╱54╱T╱ // 0x2797 @0x15
0x2782…27a1 at0016 = ╱dc╱=╱ // 0x2798 @0x16
0x2782…27a1 at0017 = ╱31╱1╱ // 0x2799 @0x17
0x2782…27a1 at0018 = ╱38╱8╱ // 0x279a @0x18
0x2782…27a1 at0019 = ╱fe00009005╱ // 0x279b @0x19
0x2782…27a1 at001e = EOL // 0x27a0 @0x1e
0x2782…27a1 }
0x27a1…27a7 b4fe 4810 ENDIF
0x27a1…27a7 LineComalBin {
0x27a1…27a7 ptr = 0xb4fe // 0x27a1 @0x0
0x27a1…27a7 lno = 0x12ca // 0x27a3 @0x2
0x27a1…27a7 at0004 = ╱9b╱ ENDIF ╱ // 0x27a5 @0x4
0x27a1…27a7 at0005 = EOL // 0x27a6 @0x5
0x27a1…27a7 }
0x27a7…27ad b504 4820 ENDIF
0x27a7…27ad LineComalBin {
0x27a7…27ad ptr = 0xb504 // 0x27a7 @0x0
0x27a7…27ad lno = 0x12d4 // 0x27a9 @0x2
0x27a7…27ad at0004 = ╱9b╱ ENDIF ╱ // 0x27ab @0x4
0x27a7…27ad at0005 = EOL // 0x27ac @0x5
0x27a7…27ad }
0x27ad…27cd b524 4830 UNTIL LAST=B OR IT=(LMNR-E)*ATPLM+E
0x27ad…27cd LineComalBin {
0x27ad…27cd ptr = 0xb524 // 0x27ad @0x0
0x27ad…27cd lno = 0x12de // 0x27af @0x2
0x27ad…27cd at0004 = ╱98╱ UNTIL ╱ // 0x27b1 @0x4
0x27ad…27cd at0005 = ╱4c╱L╱ // 0x27b2 @0x5
0x27ad…27cd at0006 = ╱41╱A╱ // 0x27b3 @0x6
0x27ad…27cd at0007 = ╱53╱S╱ // 0x27b4 @0x7
0x27ad…27cd at0008 = ╱54╱T╱ // 0x27b5 @0x8
0x27ad…27cd at0009 = ╱dc╱=╱ // 0x27b6 @0x9
0x27ad…27cd at000a = ╱42╱B╱ // 0x27b7 @0xa
0x27ad…27cd at000b = ╱db╱ OR ╱ // 0x27b8 @0xb
0x27ad…27cd at000c = ╱49╱I╱ // 0x27b9 @0xc
0x27ad…27cd at000d = ╱54╱T╱ // 0x27ba @0xd
0x27ad…27cd at000e = ╱dc╱=╱ // 0x27bb @0xe
0x27ad…27cd at000f = ╱ed╱(╱ // 0x27bc @0xf
0x27ad…27cd at0010 = ╱4c╱L╱ // 0x27bd @0x10
0x27ad…27cd at0011 = ╱4d╱M╱ // 0x27be @0x11
0x27ad…27cd at0012 = ╱4e╱N╱ // 0x27bf @0x12
0x27ad…27cd at0013 = ╱52╱R╱ // 0x27c0 @0x13
0x27ad…27cd at0014 = ╱e3╱-╱ // 0x27c1 @0x14
0x27ad…27cd at0015 = ╱45╱E╱ // 0x27c2 @0x15
0x27ad…27cd at0016 = ╱ee╱)╱ // 0x27c3 @0x16
0x27ad…27cd at0017 = ╱e4╱*╱ // 0x27c4 @0x17
0x27ad…27cd at0018 = ╱41╱A╱ // 0x27c5 @0x18
0x27ad…27cd at0019 = ╱54╱T╱ // 0x27c6 @0x19
0x27ad…27cd at001a = ╱50╱P╱ // 0x27c7 @0x1a
0x27ad…27cd at001b = ╱4c╱L╱ // 0x27c8 @0x1b
0x27ad…27cd at001c = ╱4d╱M╱ // 0x27c9 @0x1c
0x27ad…27cd at001d = ╱e2╱+╱ // 0x27ca @0x1d
0x27ad…27cd at001e = ╱45╱E╱ // 0x27cb @0x1e
0x27ad…27cd at001f = EOL // 0x27cc @0x1f
0x27ad…27cd }
0x27cd…27e8 b53f 4840 IF SIDE$(FØRST+E,E)<>"2" THEN
0x27cd…27e8 LineComalBin {
0x27cd…27e8 ptr = 0xb53f // 0x27cd @0x0
0x27cd…27e8 lno = 0x12e8 // 0x27cf @0x2
0x27cd…27e8 at0004 = ╱9c╱ IF ╱ // 0x27d1 @0x4
0x27cd…27e8 at0005 = ╱53╱S╱ // 0x27d2 @0x5
0x27cd…27e8 at0006 = ╱49╱I╱ // 0x27d3 @0x6
0x27cd…27e8 at0007 = ╱44╱D╱ // 0x27d4 @0x7
0x27cd…27e8 at0008 = ╱45╱E╱ // 0x27d5 @0x8
0x27cd…27e8 at0009 = ╱ef╱$╱ // 0x27d6 @0x9
0x27cd…27e8 at000a = ╱ed╱(╱ // 0x27d7 @0xa
0x27cd…27e8 at000b = ╱46╱F╱ // 0x27d8 @0xb
0x27cd…27e8 at000c = ╱5c╱Ø╱ // 0x27d9 @0xc
0x27cd…27e8 at000d = ╱52╱R╱ // 0x27da @0xd
0x27cd…27e8 at000e = ╱53╱S╱ // 0x27db @0xe
0x27cd…27e8 at000f = ╱54╱T╱ // 0x27dc @0xf
0x27cd…27e8 at0010 = ╱e2╱+╱ // 0x27dd @0x10
0x27cd…27e8 at0011 = ╱45╱E╱ // 0x27de @0x11
0x27cd…27e8 at0012 = ╱ec╱,╱ // 0x27df @0x12
0x27cd…27e8 at0013 = ╱45╱E╱ // 0x27e0 @0x13
0x27cd…27e8 at0014 = ╱ee╱)╱ // 0x27e1 @0x14
0x27cd…27e8 at0015 = ╱e1╱<>╱ // 0x27e2 @0x15
0x27cd…27e8 at0016 = ╱22╱"╱ // 0x27e3 @0x16
0x27cd…27e8 at0017 = ╱32╱2╱ // 0x27e4 @0x17
0x27cd…27e8 at0018 = ╱22╱"╱ // 0x27e5 @0x18
0x27cd…27e8 at0019 = ╱b6╱ THEN ╱ // 0x27e6 @0x19
0x27cd…27e8 at001a = EOL // 0x27e7 @0x1a
0x27cd…27e8 }
0x27e8…2802 b559 4850 IF IT>(LMNR-E)*ATPLM+E THEN
0x27e8…2802 LineComalBin {
0x27e8…2802 ptr = 0xb559 // 0x27e8 @0x0
0x27e8…2802 lno = 0x12f2 // 0x27ea @0x2
0x27e8…2802 at0004 = ╱9c╱ IF ╱ // 0x27ec @0x4
0x27e8…2802 at0005 = ╱49╱I╱ // 0x27ed @0x5
0x27e8…2802 at0006 = ╱54╱T╱ // 0x27ee @0x6
0x27e8…2802 at0007 = ╱de╱>╱ // 0x27ef @0x7
0x27e8…2802 at0008 = ╱ed╱(╱ // 0x27f0 @0x8
0x27e8…2802 at0009 = ╱4c╱L╱ // 0x27f1 @0x9
0x27e8…2802 at000a = ╱4d╱M╱ // 0x27f2 @0xa
0x27e8…2802 at000b = ╱4e╱N╱ // 0x27f3 @0xb
0x27e8…2802 at000c = ╱52╱R╱ // 0x27f4 @0xc
0x27e8…2802 at000d = ╱e3╱-╱ // 0x27f5 @0xd
0x27e8…2802 at000e = ╱45╱E╱ // 0x27f6 @0xe
0x27e8…2802 at000f = ╱ee╱)╱ // 0x27f7 @0xf
0x27e8…2802 at0010 = ╱e4╱*╱ // 0x27f8 @0x10
0x27e8…2802 at0011 = ╱41╱A╱ // 0x27f9 @0x11
0x27e8…2802 at0012 = ╱54╱T╱ // 0x27fa @0x12
0x27e8…2802 at0013 = ╱50╱P╱ // 0x27fb @0x13
0x27e8…2802 at0014 = ╱4c╱L╱ // 0x27fc @0x14
0x27e8…2802 at0015 = ╱4d╱M╱ // 0x27fd @0x15
0x27e8…2802 at0016 = ╱e2╱+╱ // 0x27fe @0x16
0x27e8…2802 at0017 = ╱45╱E╱ // 0x27ff @0x17
0x27e8…2802 at0018 = ╱b6╱ THEN ╱ // 0x2800 @0x18
0x27e8…2802 at0019 = EOL // 0x2801 @0x19
0x27e8…2802 }
0x2802…2812 b569 4860 FOR K=E TO 4
0x2802…2812 LineComalBin {
0x2802…2812 ptr = 0xb569 // 0x2802 @0x0
0x2802…2812 lno = 0x12fc // 0x2804 @0x2
0x2802…2812 at0004 = ╱83╱ FOR ╱ // 0x2806 @0x4
0x2802…2812 at0005 = ╱4b╱K╱ // 0x2807 @0x5
0x2802…2812 at0006 = ╱dc╱=╱ // 0x2808 @0x6
0x2802…2812 at0007 = ╱45╱E╱ // 0x2809 @0x7
0x2802…2812 at0008 = ╱b7╱ TO ╱ // 0x280a @0x8
0x2802…2812 at0009 = ╱34╱4╱ // 0x280b @0x9
0x2802…2812 at000a = ╱fe00008003╱ // 0x280c @0xa
0x2802…2812 at000f = EOL // 0x2811 @0xf
0x2802…2812 }
0x2812…2828 b57f 4870 GET FIL1$,IT:AUT$(K)
0x2812…2828 LineComalBin {
0x2812…2828 ptr = 0xb57f // 0x2812 @0x0
0x2812…2828 lno = 0x1306 // 0x2814 @0x2
0x2812…2828 at0004 = ╱a9╱ GET ╱ // 0x2816 @0x4
0x2812…2828 at0005 = ╱46╱F╱ // 0x2817 @0x5
0x2812…2828 at0006 = ╱49╱I╱ // 0x2818 @0x6
0x2812…2828 at0007 = ╱4c╱L╱ // 0x2819 @0x7
0x2812…2828 at0008 = ╱31╱1╱ // 0x281a @0x8
0x2812…2828 at0009 = ╱ef╱$╱ // 0x281b @0x9
0x2812…2828 at000a = ╱ec╱,╱ // 0x281c @0xa
0x2812…2828 at000b = ╱49╱I╱ // 0x281d @0xb
0x2812…2828 at000c = ╱54╱T╱ // 0x281e @0xc
0x2812…2828 at000d = ╱f0╱:╱ // 0x281f @0xd
0x2812…2828 at000e = ╱41╱A╱ // 0x2820 @0xe
0x2812…2828 at000f = ╱55╱U╱ // 0x2821 @0xf
0x2812…2828 at0010 = ╱54╱T╱ // 0x2822 @0x10
0x2812…2828 at0011 = ╱ef╱$╱ // 0x2823 @0x11
0x2812…2828 at0012 = ╱ed╱(╱ // 0x2824 @0x12
0x2812…2828 at0013 = ╱4b╱K╱ // 0x2825 @0x13
0x2812…2828 at0014 = ╱ee╱)╱ // 0x2826 @0x14
0x2812…2828 at0015 = EOL // 0x2827 @0x15
0x2812…2828 }
0x2828…2834 b58b 4880 IT=IT+E
0x2828…2834 LineComalBin {
0x2828…2834 ptr = 0xb58b // 0x2828 @0x0
0x2828…2834 lno = 0x1310 // 0x282a @0x2
0x2828…2834 at0004 = ╱49╱I╱ // 0x282c @0x4
0x2828…2834 at0005 = ╱54╱T╱ // 0x282d @0x5
0x2828…2834 at0006 = ╱dc╱=╱ // 0x282e @0x6
0x2828…2834 at0007 = ╱49╱I╱ // 0x282f @0x7
0x2828…2834 at0008 = ╱54╱T╱ // 0x2830 @0x8
0x2828…2834 at0009 = ╱e2╱+╱ // 0x2831 @0x9
0x2828…2834 at000a = ╱45╱E╱ // 0x2832 @0xa
0x2828…2834 at000b = EOL // 0x2833 @0xb
0x2828…2834 }
0x2834…283b b592 4890 NEXT K
0x2834…283b LineComalBin {
0x2834…283b ptr = 0xb592 // 0x2834 @0x0
0x2834…283b lno = 0x131a // 0x2836 @0x2
0x2834…283b at0004 = ╱84╱ NEXT ╱ // 0x2838 @0x4
0x2834…283b at0005 = ╱4b╱K╱ // 0x2839 @0x5
0x2834…283b at0006 = EOL // 0x283a @0x6
0x2834…283b }
0x283b…2841 b598 4900 ELSE
0x283b…2841 LineComalBin {
0x283b…2841 ptr = 0xb598 // 0x283b @0x0
0x283b…2841 lno = 0x1324 // 0x283d @0x2
0x283b…2841 at0004 = ╱9a╱ ELSE ╱ // 0x283f @0x4
0x283b…2841 at0005 = EOL // 0x2840 @0x5
0x283b…2841 }
0x2841…2875 b5cc 4910 AUT$(E)="1*78 0 "
0x2841…2875 LineComalBin {
0x2841…2875 ptr = 0xb5cc // 0x2841 @0x0
0x2841…2875 lno = 0x132e // 0x2843 @0x2
0x2841…2875 at0004 = ╱41╱A╱ // 0x2845 @0x4
0x2841…2875 at0005 = ╱55╱U╱ // 0x2846 @0x5
0x2841…2875 at0006 = ╱54╱T╱ // 0x2847 @0x6
0x2841…2875 at0007 = ╱ef╱$╱ // 0x2848 @0x7
0x2841…2875 at0008 = ╱ed╱(╱ // 0x2849 @0x8
0x2841…2875 at0009 = ╱45╱E╱ // 0x284a @0x9
0x2841…2875 at000a = ╱ee╱)╱ // 0x284b @0xa
0x2841…2875 at000b = ╱dc╱=╱ // 0x284c @0xb
0x2841…2875 at000c = ╱22╱"╱ // 0x284d @0xc
0x2841…2875 at000d = ╱31╱1╱ // 0x284e @0xd
0x2841…2875 at000e = ╱2a╱*╱ // 0x284f @0xe
0x2841…2875 at000f = ╱37╱7╱ // 0x2850 @0xf
0x2841…2875 at0010 = ╱38╱8╱ // 0x2851 @0x10
0x2841…2875 at0011 = ╱20╱…╱ // 0x2852 @0x11
0x2841…2875 at0012 = ╱20╱…╱ // 0x2853 @0x12
0x2841…2875 at0013 = ╱20╱…╱ // 0x2854 @0x13
0x2841…2875 at0014 = ╱20╱…╱ // 0x2855 @0x14
0x2841…2875 at0015 = ╱20╱…╱ // 0x2856 @0x15
0x2841…2875 at0016 = ╱20╱…╱ // 0x2857 @0x16
0x2841…2875 at0017 = ╱20╱…╱ // 0x2858 @0x17
0x2841…2875 at0018 = ╱20╱…╱ // 0x2859 @0x18
0x2841…2875 at0019 = ╱20╱…╱ // 0x285a @0x19
0x2841…2875 at001a = ╱20╱…╱ // 0x285b @0x1a
0x2841…2875 at001b = ╱20╱…╱ // 0x285c @0x1b
0x2841…2875 at001c = ╱20╱…╱ // 0x285d @0x1c
0x2841…2875 at001d = ╱20╱…╱ // 0x285e @0x1d
0x2841…2875 at001e = ╱20╱…╱ // 0x285f @0x1e
0x2841…2875 at001f = ╱20╱…╱ // 0x2860 @0x1f
0x2841…2875 at0020 = ╱20╱…╱ // 0x2861 @0x20
0x2841…2875 at0021 = ╱30╱0╱ // 0x2862 @0x21
0x2841…2875 at0022 = ╱20╱…╱ // 0x2863 @0x22
0x2841…2875 at0023 = ╱20╱…╱ // 0x2864 @0x23
0x2841…2875 at0024 = ╱20╱…╱ // 0x2865 @0x24
0x2841…2875 at0025 = ╱20╱…╱ // 0x2866 @0x25
0x2841…2875 at0026 = ╱20╱…╱ // 0x2867 @0x26
0x2841…2875 at0027 = ╱20╱…╱ // 0x2868 @0x27
0x2841…2875 at0028 = ╱20╱…╱ // 0x2869 @0x28
0x2841…2875 at0029 = ╱20╱…╱ // 0x286a @0x29
0x2841…2875 at002a = ╱20╱…╱ // 0x286b @0x2a
0x2841…2875 at002b = ╱20╱…╱ // 0x286c @0x2b
0x2841…2875 at002c = ╱20╱…╱ // 0x286d @0x2c
0x2841…2875 at002d = ╱20╱…╱ // 0x286e @0x2d
0x2841…2875 at002e = ╱20╱…╱ // 0x286f @0x2e
0x2841…2875 at002f = ╱20╱…╱ // 0x2870 @0x2f
0x2841…2875 at0030 = ╱20╱…╱ // 0x2871 @0x30
0x2841…2875 at0031 = ╱20╱…╱ // 0x2872 @0x31
0x2841…2875 at0032 = ╱22╱"╱ // 0x2873 @0x32
0x2841…2875 at0033 = EOL // 0x2874 @0x33
0x2841…2875 }
0x2875…28a9 b600 4920 AUT$(G)="1*79 0 "
0x2875…28a9 LineComalBin {
0x2875…28a9 ptr = 0xb600 // 0x2875 @0x0
0x2875…28a9 lno = 0x1338 // 0x2877 @0x2
0x2875…28a9 at0004 = ╱41╱A╱ // 0x2879 @0x4
0x2875…28a9 at0005 = ╱55╱U╱ // 0x287a @0x5
0x2875…28a9 at0006 = ╱54╱T╱ // 0x287b @0x6
0x2875…28a9 at0007 = ╱ef╱$╱ // 0x287c @0x7
0x2875…28a9 at0008 = ╱ed╱(╱ // 0x287d @0x8
0x2875…28a9 at0009 = ╱47╱G╱ // 0x287e @0x9
0x2875…28a9 at000a = ╱ee╱)╱ // 0x287f @0xa
0x2875…28a9 at000b = ╱dc╱=╱ // 0x2880 @0xb
0x2875…28a9 at000c = ╱22╱"╱ // 0x2881 @0xc
0x2875…28a9 at000d = ╱31╱1╱ // 0x2882 @0xd
0x2875…28a9 at000e = ╱2a╱*╱ // 0x2883 @0xe
0x2875…28a9 at000f = ╱37╱7╱ // 0x2884 @0xf
0x2875…28a9 at0010 = ╱39╱9╱ // 0x2885 @0x10
0x2875…28a9 at0011 = ╱20╱…╱ // 0x2886 @0x11
0x2875…28a9 at0012 = ╱20╱…╱ // 0x2887 @0x12
0x2875…28a9 at0013 = ╱20╱…╱ // 0x2888 @0x13
0x2875…28a9 at0014 = ╱20╱…╱ // 0x2889 @0x14
0x2875…28a9 at0015 = ╱20╱…╱ // 0x288a @0x15
0x2875…28a9 at0016 = ╱20╱…╱ // 0x288b @0x16
0x2875…28a9 at0017 = ╱20╱…╱ // 0x288c @0x17
0x2875…28a9 at0018 = ╱20╱…╱ // 0x288d @0x18
0x2875…28a9 at0019 = ╱20╱…╱ // 0x288e @0x19
0x2875…28a9 at001a = ╱20╱…╱ // 0x288f @0x1a
0x2875…28a9 at001b = ╱20╱…╱ // 0x2890 @0x1b
0x2875…28a9 at001c = ╱20╱…╱ // 0x2891 @0x1c
0x2875…28a9 at001d = ╱20╱…╱ // 0x2892 @0x1d
0x2875…28a9 at001e = ╱20╱…╱ // 0x2893 @0x1e
0x2875…28a9 at001f = ╱20╱…╱ // 0x2894 @0x1f
0x2875…28a9 at0020 = ╱20╱…╱ // 0x2895 @0x20
0x2875…28a9 at0021 = ╱30╱0╱ // 0x2896 @0x21
0x2875…28a9 at0022 = ╱20╱…╱ // 0x2897 @0x22
0x2875…28a9 at0023 = ╱20╱…╱ // 0x2898 @0x23
0x2875…28a9 at0024 = ╱20╱…╱ // 0x2899 @0x24
0x2875…28a9 at0025 = ╱20╱…╱ // 0x289a @0x25
0x2875…28a9 at0026 = ╱20╱…╱ // 0x289b @0x26
0x2875…28a9 at0027 = ╱20╱…╱ // 0x289c @0x27
0x2875…28a9 at0028 = ╱20╱…╱ // 0x289d @0x28
0x2875…28a9 at0029 = ╱20╱…╱ // 0x289e @0x29
0x2875…28a9 at002a = ╱20╱…╱ // 0x289f @0x2a
0x2875…28a9 at002b = ╱20╱…╱ // 0x28a0 @0x2b
0x2875…28a9 at002c = ╱20╱…╱ // 0x28a1 @0x2c
0x2875…28a9 at002d = ╱20╱…╱ // 0x28a2 @0x2d
0x2875…28a9 at002e = ╱20╱…╱ // 0x28a3 @0x2e
0x2875…28a9 at002f = ╱20╱…╱ // 0x28a4 @0x2f
0x2875…28a9 at0030 = ╱20╱…╱ // 0x28a5 @0x30
0x2875…28a9 at0031 = ╱20╱…╱ // 0x28a6 @0x31
0x2875…28a9 at0032 = ╱22╱"╱ // 0x28a7 @0x32
0x2875…28a9 at0033 = EOL // 0x28a8 @0x33
0x2875…28a9 }
0x28a9…28dd b634 4930 AUT$(V)="1*80 0 "
0x28a9…28dd LineComalBin {
0x28a9…28dd ptr = 0xb634 // 0x28a9 @0x0
0x28a9…28dd lno = 0x1342 // 0x28ab @0x2
0x28a9…28dd at0004 = ╱41╱A╱ // 0x28ad @0x4
0x28a9…28dd at0005 = ╱55╱U╱ // 0x28ae @0x5
0x28a9…28dd at0006 = ╱54╱T╱ // 0x28af @0x6
0x28a9…28dd at0007 = ╱ef╱$╱ // 0x28b0 @0x7
0x28a9…28dd at0008 = ╱ed╱(╱ // 0x28b1 @0x8
0x28a9…28dd at0009 = ╱56╱V╱ // 0x28b2 @0x9
0x28a9…28dd at000a = ╱ee╱)╱ // 0x28b3 @0xa
0x28a9…28dd at000b = ╱dc╱=╱ // 0x28b4 @0xb
0x28a9…28dd at000c = ╱22╱"╱ // 0x28b5 @0xc
0x28a9…28dd at000d = ╱31╱1╱ // 0x28b6 @0xd
0x28a9…28dd at000e = ╱2a╱*╱ // 0x28b7 @0xe
0x28a9…28dd at000f = ╱38╱8╱ // 0x28b8 @0xf
0x28a9…28dd at0010 = ╱30╱0╱ // 0x28b9 @0x10
0x28a9…28dd at0011 = ╱20╱…╱ // 0x28ba @0x11
0x28a9…28dd at0012 = ╱20╱…╱ // 0x28bb @0x12
0x28a9…28dd at0013 = ╱20╱…╱ // 0x28bc @0x13
0x28a9…28dd at0014 = ╱20╱…╱ // 0x28bd @0x14
0x28a9…28dd at0015 = ╱20╱…╱ // 0x28be @0x15
0x28a9…28dd at0016 = ╱20╱…╱ // 0x28bf @0x16
0x28a9…28dd at0017 = ╱20╱…╱ // 0x28c0 @0x17
0x28a9…28dd at0018 = ╱20╱…╱ // 0x28c1 @0x18
0x28a9…28dd at0019 = ╱20╱…╱ // 0x28c2 @0x19
0x28a9…28dd at001a = ╱20╱…╱ // 0x28c3 @0x1a
0x28a9…28dd at001b = ╱20╱…╱ // 0x28c4 @0x1b
0x28a9…28dd at001c = ╱20╱…╱ // 0x28c5 @0x1c
0x28a9…28dd at001d = ╱20╱…╱ // 0x28c6 @0x1d
0x28a9…28dd at001e = ╱20╱…╱ // 0x28c7 @0x1e
0x28a9…28dd at001f = ╱20╱…╱ // 0x28c8 @0x1f
0x28a9…28dd at0020 = ╱20╱…╱ // 0x28c9 @0x20
0x28a9…28dd at0021 = ╱20╱…╱ // 0x28ca @0x21
0x28a9…28dd at0022 = ╱20╱…╱ // 0x28cb @0x22
0x28a9…28dd at0023 = ╱20╱…╱ // 0x28cc @0x23
0x28a9…28dd at0024 = ╱20╱…╱ // 0x28cd @0x24
0x28a9…28dd at0025 = ╱20╱…╱ // 0x28ce @0x25
0x28a9…28dd at0026 = ╱20╱…╱ // 0x28cf @0x26
0x28a9…28dd at0027 = ╱20╱…╱ // 0x28d0 @0x27
0x28a9…28dd at0028 = ╱30╱0╱ // 0x28d1 @0x28
0x28a9…28dd at0029 = ╱20╱…╱ // 0x28d2 @0x29
0x28a9…28dd at002a = ╱20╱…╱ // 0x28d3 @0x2a
0x28a9…28dd at002b = ╱20╱…╱ // 0x28d4 @0x2b
0x28a9…28dd at002c = ╱20╱…╱ // 0x28d5 @0x2c
0x28a9…28dd at002d = ╱20╱…╱ // 0x28d6 @0x2d
0x28a9…28dd at002e = ╱20╱…╱ // 0x28d7 @0x2e
0x28a9…28dd at002f = ╱20╱…╱ // 0x28d8 @0x2f
0x28a9…28dd at0030 = ╱20╱…╱ // 0x28d9 @0x30
0x28a9…28dd at0031 = ╱20╱…╱ // 0x28da @0x31
0x28a9…28dd at0032 = ╱22╱"╱ // 0x28db @0x32
0x28a9…28dd at0033 = EOL // 0x28dc @0x33
0x28a9…28dd }
0x28dd…2916 b66d 4940 AUT$(4)="1*83 0 "
0x28dd…2916 LineComalBin {
0x28dd…2916 ptr = 0xb66d // 0x28dd @0x0
0x28dd…2916 lno = 0x134c // 0x28df @0x2
0x28dd…2916 at0004 = ╱41╱A╱ // 0x28e1 @0x4
0x28dd…2916 at0005 = ╱55╱U╱ // 0x28e2 @0x5
0x28dd…2916 at0006 = ╱54╱T╱ // 0x28e3 @0x6
0x28dd…2916 at0007 = ╱ef╱$╱ // 0x28e4 @0x7
0x28dd…2916 at0008 = ╱ed╱(╱ // 0x28e5 @0x8
0x28dd…2916 at0009 = ╱34╱4╱ // 0x28e6 @0x9
0x28dd…2916 at000a = ╱fe00008003╱ // 0x28e7 @0xa
0x28dd…2916 at000f = ╱ee╱)╱ // 0x28ec @0xf
0x28dd…2916 at0010 = ╱dc╱=╱ // 0x28ed @0x10
0x28dd…2916 at0011 = ╱22╱"╱ // 0x28ee @0x11
0x28dd…2916 at0012 = ╱31╱1╱ // 0x28ef @0x12
0x28dd…2916 at0013 = ╱2a╱*╱ // 0x28f0 @0x13
0x28dd…2916 at0014 = ╱38╱8╱ // 0x28f1 @0x14
0x28dd…2916 at0015 = ╱33╱3╱ // 0x28f2 @0x15
0x28dd…2916 at0016 = ╱20╱…╱ // 0x28f3 @0x16
0x28dd…2916 at0017 = ╱20╱…╱ // 0x28f4 @0x17
0x28dd…2916 at0018 = ╱20╱…╱ // 0x28f5 @0x18
0x28dd…2916 at0019 = ╱20╱…╱ // 0x28f6 @0x19
0x28dd…2916 at001a = ╱20╱…╱ // 0x28f7 @0x1a
0x28dd…2916 at001b = ╱20╱…╱ // 0x28f8 @0x1b
0x28dd…2916 at001c = ╱30╱0╱ // 0x28f9 @0x1c
0x28dd…2916 at001d = ╱20╱…╱ // 0x28fa @0x1d
0x28dd…2916 at001e = ╱20╱…╱ // 0x28fb @0x1e
0x28dd…2916 at001f = ╱20╱…╱ // 0x28fc @0x1f
0x28dd…2916 at0020 = ╱20╱…╱ // 0x28fd @0x20
0x28dd…2916 at0021 = ╱20╱…╱ // 0x28fe @0x21
0x28dd…2916 at0022 = ╱20╱…╱ // 0x28ff @0x22
0x28dd…2916 at0023 = ╱20╱…╱ // 0x2900 @0x23
0x28dd…2916 at0024 = ╱20╱…╱ // 0x2901 @0x24
0x28dd…2916 at0025 = ╱20╱…╱ // 0x2902 @0x25
0x28dd…2916 at0026 = ╱20╱…╱ // 0x2903 @0x26
0x28dd…2916 at0027 = ╱20╱…╱ // 0x2904 @0x27
0x28dd…2916 at0028 = ╱20╱…╱ // 0x2905 @0x28
0x28dd…2916 at0029 = ╱20╱…╱ // 0x2906 @0x29
0x28dd…2916 at002a = ╱20╱…╱ // 0x2907 @0x2a
0x28dd…2916 at002b = ╱20╱…╱ // 0x2908 @0x2b
0x28dd…2916 at002c = ╱20╱…╱ // 0x2909 @0x2c
0x28dd…2916 at002d = ╱20╱…╱ // 0x290a @0x2d
0x28dd…2916 at002e = ╱20╱…╱ // 0x290b @0x2e
0x28dd…2916 at002f = ╱20╱…╱ // 0x290c @0x2f
0x28dd…2916 at0030 = ╱20╱…╱ // 0x290d @0x30
0x28dd…2916 at0031 = ╱20╱…╱ // 0x290e @0x31
0x28dd…2916 at0032 = ╱20╱…╱ // 0x290f @0x32
0x28dd…2916 at0033 = ╱20╱…╱ // 0x2910 @0x33
0x28dd…2916 at0034 = ╱20╱…╱ // 0x2911 @0x34
0x28dd…2916 at0035 = ╱20╱…╱ // 0x2912 @0x35
0x28dd…2916 at0036 = ╱20╱…╱ // 0x2913 @0x36
0x28dd…2916 at0037 = ╱22╱"╱ // 0x2914 @0x37
0x28dd…2916 at0038 = EOL // 0x2915 @0x38
0x28dd…2916 }
0x2916…291c b673 4950 ENDIF
0x2916…291c LineComalBin {
0x2916…291c ptr = 0xb673 // 0x2916 @0x0
0x2916…291c lno = 0x1356 // 0x2918 @0x2
0x2916…291c at0004 = ╱9b╱ ENDIF ╱ // 0x291a @0x4
0x2916…291c at0005 = EOL // 0x291b @0x5
0x2916…291c }
0x291c…2932 b689 4960 IF AT<ATPLM-4 THEN
0x291c…2932 LineComalBin {
0x291c…2932 ptr = 0xb689 // 0x291c @0x0
0x291c…2932 lno = 0x1360 // 0x291e @0x2
0x291c…2932 at0004 = ╱9c╱ IF ╱ // 0x2920 @0x4
0x291c…2932 at0005 = ╱41╱A╱ // 0x2921 @0x5
0x291c…2932 at0006 = ╱54╱T╱ // 0x2922 @0x6
0x291c…2932 at0007 = ╱dd╱<╱ // 0x2923 @0x7
0x291c…2932 at0008 = ╱41╱A╱ // 0x2924 @0x8
0x291c…2932 at0009 = ╱54╱T╱ // 0x2925 @0x9
0x291c…2932 at000a = ╱50╱P╱ // 0x2926 @0xa
0x291c…2932 at000b = ╱4c╱L╱ // 0x2927 @0xb
0x291c…2932 at000c = ╱4d╱M╱ // 0x2928 @0xc
0x291c…2932 at000d = ╱e3╱-╱ // 0x2929 @0xd
0x291c…2932 at000e = ╱34╱4╱ // 0x292a @0xe
0x291c…2932 at000f = ╱fe00008003╱ // 0x292b @0xf
0x291c…2932 at0014 = ╱b6╱ THEN ╱ // 0x2930 @0x14
0x291c…2932 at0015 = EOL // 0x2931 @0x15
0x291c…2932 }
0x2932…2938 b68f 4970 REPEAT
0x2932…2938 LineComalBin {
0x2932…2938 ptr = 0xb68f // 0x2932 @0x0
0x2932…2938 lno = 0x136a // 0x2934 @0x2
0x2932…2938 at0004 = ╱97╱ REPEAT ╱ // 0x2936 @0x4
0x2932…2938 at0005 = EOL // 0x2937 @0x5
0x2932…2938 }
0x2938…2943 b69a 4980 LAST=B
0x2938…2943 LineComalBin {
0x2938…2943 ptr = 0xb69a // 0x2938 @0x0
0x2938…2943 lno = 0x1374 // 0x293a @0x2
0x2938…2943 at0004 = ╱4c╱L╱ // 0x293c @0x4
0x2938…2943 at0005 = ╱41╱A╱ // 0x293d @0x5
0x2938…2943 at0006 = ╱53╱S╱ // 0x293e @0x6
0x2938…2943 at0007 = ╱54╱T╱ // 0x293f @0x7
0x2938…2943 at0008 = ╱dc╱=╱ // 0x2940 @0x8
0x2938…2943 at0009 = ╱42╱B╱ // 0x2941 @0x9
0x2938…2943 at000a = EOL // 0x2942 @0xa
0x2938…2943 }
0x2943…2951 b6a8 4990 EXEC SKRIVSID
0x2943…2951 LineComalBin {
0x2943…2951 ptr = 0xb6a8 // 0x2943 @0x0
0x2943…2951 lno = 0x137e // 0x2945 @0x2
0x2943…2951 at0004 = ╱9d╱ EXEC ╱ // 0x2947 @0x4
0x2943…2951 at0005 = ╱53╱S╱ // 0x2948 @0x5
0x2943…2951 at0006 = ╱4b╱K╱ // 0x2949 @0x6
0x2943…2951 at0007 = ╱52╱R╱ // 0x294a @0x7
0x2943…2951 at0008 = ╱49╱I╱ // 0x294b @0x8
0x2943…2951 at0009 = ╱56╱V╱ // 0x294c @0x9
0x2943…2951 at000a = ╱53╱S╱ // 0x294d @0xa
0x2943…2951 at000b = ╱49╱I╱ // 0x294e @0xb
0x2943…2951 at000c = ╱44╱D╱ // 0x294f @0xc
0x2943…2951 at000d = EOL // 0x2950 @0xd
0x2943…2951 }
0x2951…295d b6b4 5000 EXEC INDSID
0x2951…295d LineComalBin {
0x2951…295d ptr = 0xb6b4 // 0x2951 @0x0
0x2951…295d lno = 0x1388 // 0x2953 @0x2
0x2951…295d at0004 = ╱9d╱ EXEC ╱ // 0x2955 @0x4
0x2951…295d at0005 = ╱49╱I╱ // 0x2956 @0x5
0x2951…295d at0006 = ╱4e╱N╱ // 0x2957 @0x6
0x2951…295d at0007 = ╱44╱D╱ // 0x2958 @0x7
0x2951…295d at0008 = ╱53╱S╱ // 0x2959 @0x8
0x2951…295d at0009 = ╱49╱I╱ // 0x295a @0x9
0x2951…295d at000a = ╱44╱D╱ // 0x295b @0xa
0x2951…295d at000b = EOL // 0x295c @0xb
0x2951…295d }
0x295d…2971 b6c8 5010 IF LAST>B THEN EXEC RETSID
0x295d…2971 LineComalBin {
0x295d…2971 ptr = 0xb6c8 // 0x295d @0x0
0x295d…2971 lno = 0x1392 // 0x295f @0x2
0x295d…2971 at0004 = ╱82╱ IF ╱ // 0x2961 @0x4
0x295d…2971 at0005 = ╱4c╱L╱ // 0x2962 @0x5
0x295d…2971 at0006 = ╱41╱A╱ // 0x2963 @0x6
0x295d…2971 at0007 = ╱53╱S╱ // 0x2964 @0x7
0x295d…2971 at0008 = ╱54╱T╱ // 0x2965 @0x8
0x295d…2971 at0009 = ╱de╱>╱ // 0x2966 @0x9
0x295d…2971 at000a = ╱42╱B╱ // 0x2967 @0xa
0x295d…2971 at000b = ╱b6╱ THEN ╱ // 0x2968 @0xb
0x295d…2971 at000c = ╱9d╱ EXEC ╱ // 0x2969 @0xc
0x295d…2971 at000d = ╱52╱R╱ // 0x296a @0xd
0x295d…2971 at000e = ╱45╱E╱ // 0x296b @0xe
0x295d…2971 at000f = ╱54╱T╱ // 0x296c @0xf
0x295d…2971 at0010 = ╱53╱S╱ // 0x296d @0x10
0x295d…2971 at0011 = ╱49╱I╱ // 0x296e @0x11
0x295d…2971 at0012 = ╱44╱D╱ // 0x296f @0x12
0x295d…2971 at0013 = EOL // 0x2970 @0x13
0x295d…2971 }
0x2971…2983 b6da 5020 UNTIL LAST<18
0x2971…2983 LineComalBin {
0x2971…2983 ptr = 0xb6da // 0x2971 @0x0
0x2971…2983 lno = 0x139c // 0x2973 @0x2
0x2971…2983 at0004 = ╱98╱ UNTIL ╱ // 0x2975 @0x4
0x2971…2983 at0005 = ╱4c╱L╱ // 0x2976 @0x5
0x2971…2983 at0006 = ╱41╱A╱ // 0x2977 @0x6
0x2971…2983 at0007 = ╱53╱S╱ // 0x2978 @0x7
0x2971…2983 at0008 = ╱54╱T╱ // 0x2979 @0x8
0x2971…2983 at0009 = ╱dd╱<╱ // 0x297a @0x9
0x2971…2983 at000a = ╱31╱1╱ // 0x297b @0xa
0x2971…2983 at000b = ╱38╱8╱ // 0x297c @0xb
0x2971…2983 at000c = ╱fe00009005╱ // 0x297d @0xc
0x2971…2983 at0011 = EOL // 0x2982 @0x11
0x2971…2983 }
0x2983…2989 b6e0 5030 ENDIF
0x2983…2989 LineComalBin {
0x2983…2989 ptr = 0xb6e0 // 0x2983 @0x0
0x2983…2989 lno = 0x13a6 // 0x2985 @0x2
0x2983…2989 at0004 = ╱9b╱ ENDIF ╱ // 0x2987 @0x4
0x2983…2989 at0005 = EOL // 0x2988 @0x5
0x2983…2989 }
0x2989…2996 b6ed 5040 EXEC UDTRANS
0x2989…2996 LineComalBin {
0x2989…2996 ptr = 0xb6ed // 0x2989 @0x0
0x2989…2996 lno = 0x13b0 // 0x298b @0x2
0x2989…2996 at0004 = ╱9d╱ EXEC ╱ // 0x298d @0x4
0x2989…2996 at0005 = ╱55╱U╱ // 0x298e @0x5
0x2989…2996 at0006 = ╱44╱D╱ // 0x298f @0x6
0x2989…2996 at0007 = ╱54╱T╱ // 0x2990 @0x7
0x2989…2996 at0008 = ╱52╱R╱ // 0x2991 @0x8
0x2989…2996 at0009 = ╱41╱A╱ // 0x2992 @0x9
0x2989…2996 at000a = ╱4e╱N╱ // 0x2993 @0xa
0x2989…2996 at000b = ╱53╱S╱ // 0x2994 @0xb
0x2989…2996 at000c = EOL // 0x2995 @0xc
0x2989…2996 }
0x2996…29a4 b6fb 5050 EXEC AUTTRANS
0x2996…29a4 LineComalBin {
0x2996…29a4 ptr = 0xb6fb // 0x2996 @0x0
0x2996…29a4 lno = 0x13ba // 0x2998 @0x2
0x2996…29a4 at0004 = ╱9d╱ EXEC ╱ // 0x299a @0x4
0x2996…29a4 at0005 = ╱41╱A╱ // 0x299b @0x5
0x2996…29a4 at0006 = ╱55╱U╱ // 0x299c @0x6
0x2996…29a4 at0007 = ╱54╱T╱ // 0x299d @0x7
0x2996…29a4 at0008 = ╱54╱T╱ // 0x299e @0x8
0x2996…29a4 at0009 = ╱52╱R╱ // 0x299f @0x9
0x2996…29a4 at000a = ╱41╱A╱ // 0x29a0 @0xa
0x2996…29a4 at000b = ╱4e╱N╱ // 0x29a1 @0xb
0x2996…29a4 at000c = ╱53╱S╱ // 0x29a2 @0xc
0x2996…29a4 at000d = EOL // 0x29a3 @0xd
0x2996…29a4 }
0x29a4…29b2 b709 5060 EXEC UDATRANS
0x29a4…29b2 LineComalBin {
0x29a4…29b2 ptr = 0xb709 // 0x29a4 @0x0
0x29a4…29b2 lno = 0x13c4 // 0x29a6 @0x2
0x29a4…29b2 at0004 = ╱9d╱ EXEC ╱ // 0x29a8 @0x4
0x29a4…29b2 at0005 = ╱55╱U╱ // 0x29a9 @0x5
0x29a4…29b2 at0006 = ╱44╱D╱ // 0x29aa @0x6
0x29a4…29b2 at0007 = ╱41╱A╱ // 0x29ab @0x7
0x29a4…29b2 at0008 = ╱54╱T╱ // 0x29ac @0x8
0x29a4…29b2 at0009 = ╱52╱R╱ // 0x29ad @0x9
0x29a4…29b2 at000a = ╱41╱A╱ // 0x29ae @0xa
0x29a4…29b2 at000b = ╱4e╱N╱ // 0x29af @0xb
0x29a4…29b2 at000c = ╱53╱S╱ // 0x29b0 @0xc
0x29a4…29b2 at000d = EOL // 0x29b1 @0xd
0x29a4…29b2 }
0x29b2…29c3 b71a 5070 AT=AT+4
0x29b2…29c3 LineComalBin {
0x29b2…29c3 ptr = 0xb71a // 0x29b2 @0x0
0x29b2…29c3 lno = 0x13ce // 0x29b4 @0x2
0x29b2…29c3 at0004 = ╱41╱A╱ // 0x29b6 @0x4
0x29b2…29c3 at0005 = ╱54╱T╱ // 0x29b7 @0x5
0x29b2…29c3 at0006 = ╱dc╱=╱ // 0x29b8 @0x6
0x29b2…29c3 at0007 = ╱41╱A╱ // 0x29b9 @0x7
0x29b2…29c3 at0008 = ╱54╱T╱ // 0x29ba @0x8
0x29b2…29c3 at0009 = ╱e2╱+╱ // 0x29bb @0x9
0x29b2…29c3 at000a = ╱34╱4╱ // 0x29bc @0xa
0x29b2…29c3 at000b = ╱fe00008003╱ // 0x29bd @0xb
0x29b2…29c3 at0010 = EOL // 0x29c2 @0x10
0x29b2…29c3 }
0x29c3…29d2 b729 5080 IF AT<ATPLM THEN
0x29c3…29d2 LineComalBin {
0x29c3…29d2 ptr = 0xb729 // 0x29c3 @0x0
0x29c3…29d2 lno = 0x13d8 // 0x29c5 @0x2
0x29c3…29d2 at0004 = ╱9c╱ IF ╱ // 0x29c7 @0x4
0x29c3…29d2 at0005 = ╱41╱A╱ // 0x29c8 @0x5
0x29c3…29d2 at0006 = ╱54╱T╱ // 0x29c9 @0x6
0x29c3…29d2 at0007 = ╱dd╱<╱ // 0x29ca @0x7
0x29c3…29d2 at0008 = ╱41╱A╱ // 0x29cb @0x8
0x29c3…29d2 at0009 = ╱54╱T╱ // 0x29cc @0x9
0x29c3…29d2 at000a = ╱50╱P╱ // 0x29cd @0xa
0x29c3…29d2 at000b = ╱4c╱L╱ // 0x29ce @0xb
0x29c3…29d2 at000c = ╱4d╱M╱ // 0x29cf @0xc
0x29c3…29d2 at000d = ╱b6╱ THEN ╱ // 0x29d0 @0xd
0x29c3…29d2 at000e = EOL // 0x29d1 @0xe
0x29c3…29d2 }
0x29d2…29e5 b73c 5090 SIDE$(E,E)=" "
0x29d2…29e5 LineComalBin {
0x29d2…29e5 ptr = 0xb73c // 0x29d2 @0x0
0x29d2…29e5 lno = 0x13e2 // 0x29d4 @0x2
0x29d2…29e5 at0004 = ╱53╱S╱ // 0x29d6 @0x4
0x29d2…29e5 at0005 = ╱49╱I╱ // 0x29d7 @0x5
0x29d2…29e5 at0006 = ╱44╱D╱ // 0x29d8 @0x6
0x29d2…29e5 at0007 = ╱45╱E╱ // 0x29d9 @0x7
0x29d2…29e5 at0008 = ╱ef╱$╱ // 0x29da @0x8
0x29d2…29e5 at0009 = ╱ed╱(╱ // 0x29db @0x9
0x29d2…29e5 at000a = ╱45╱E╱ // 0x29dc @0xa
0x29d2…29e5 at000b = ╱ec╱,╱ // 0x29dd @0xb
0x29d2…29e5 at000c = ╱45╱E╱ // 0x29de @0xc
0x29d2…29e5 at000d = ╱ee╱)╱ // 0x29df @0xd
0x29d2…29e5 at000e = ╱dc╱=╱ // 0x29e0 @0xe
0x29d2…29e5 at000f = ╱22╱"╱ // 0x29e1 @0xf
0x29d2…29e5 at0010 = ╱20╱…╱ // 0x29e2 @0x10
0x29d2…29e5 at0011 = ╱22╱"╱ // 0x29e3 @0x11
0x29d2…29e5 at0012 = EOL // 0x29e4 @0x12
0x29d2…29e5 }
0x29e5…29fc b753 5100 PUT FIL1$,UT:SIDE$(E)
0x29e5…29fc LineComalBin {
0x29e5…29fc ptr = 0xb753 // 0x29e5 @0x0
0x29e5…29fc lno = 0x13ec // 0x29e7 @0x2
0x29e5…29fc at0004 = ╱aa╱ PUT ╱ // 0x29e9 @0x4
0x29e5…29fc at0005 = ╱46╱F╱ // 0x29ea @0x5
0x29e5…29fc at0006 = ╱49╱I╱ // 0x29eb @0x6
0x29e5…29fc at0007 = ╱4c╱L╱ // 0x29ec @0x7
0x29e5…29fc at0008 = ╱31╱1╱ // 0x29ed @0x8
0x29e5…29fc at0009 = ╱ef╱$╱ // 0x29ee @0x9
0x29e5…29fc at000a = ╱ec╱,╱ // 0x29ef @0xa
0x29e5…29fc at000b = ╱55╱U╱ // 0x29f0 @0xb
0x29e5…29fc at000c = ╱54╱T╱ // 0x29f1 @0xc
0x29e5…29fc at000d = ╱f0╱:╱ // 0x29f2 @0xd
0x29e5…29fc at000e = ╱53╱S╱ // 0x29f3 @0xe
0x29e5…29fc at000f = ╱49╱I╱ // 0x29f4 @0xf
0x29e5…29fc at0010 = ╱44╱D╱ // 0x29f5 @0x10
0x29e5…29fc at0011 = ╱45╱E╱ // 0x29f6 @0x11
0x29e5…29fc at0012 = ╱ef╱$╱ // 0x29f7 @0x12
0x29e5…29fc at0013 = ╱ed╱(╱ // 0x29f8 @0x13
0x29e5…29fc at0014 = ╱45╱E╱ // 0x29f9 @0x14
0x29e5…29fc at0015 = ╱ee╱)╱ // 0x29fa @0x15
0x29e5…29fc at0016 = EOL // 0x29fb @0x16
0x29e5…29fc }
0x29fc…2a02 b759 5110 ENDIF
0x29fc…2a02 LineComalBin {
0x29fc…2a02 ptr = 0xb759 // 0x29fc @0x0
0x29fc…2a02 lno = 0x13f6 // 0x29fe @0x2
0x29fc…2a02 at0004 = ╱9b╱ ENDIF ╱ // 0x2a00 @0x4
0x29fc…2a02 at0005 = EOL // 0x2a01 @0x5
0x29fc…2a02 }
0x2a02…2a08 b75f 5120 ELSE
0x2a02…2a08 LineComalBin {
0x2a02…2a08 ptr = 0xb75f // 0x2a02 @0x0
0x2a02…2a08 lno = 0x1400 // 0x2a04 @0x2
0x2a02…2a08 at0004 = ╱9a╱ ELSE ╱ // 0x2a06 @0x4
0x2a02…2a08 at0005 = EOL // 0x2a07 @0x5
0x2a02…2a08 }
0x2a08…2a28 b77f 5130 PRINT "Lønmodtager ikke bogført"
0x2a08…2a28 LineComalBin {
0x2a08…2a28 ptr = 0xb77f // 0x2a08 @0x0
0x2a08…2a28 lno = 0x140a // 0x2a0a @0x2
0x2a08…2a28 at0004 = ╱92╱ PRINT ╱ // 0x2a0c @0x4
0x2a08…2a28 at0005 = ╱22╱"╱ // 0x2a0d @0x5
0x2a08…2a28 at0006 = ╱4c╱L╱ // 0x2a0e @0x6
0x2a08…2a28 at0007 = ╱7c╱ø╱ // 0x2a0f @0x7
0x2a08…2a28 at0008 = ╱6e╱n╱ // 0x2a10 @0x8
0x2a08…2a28 at0009 = ╱6d╱m╱ // 0x2a11 @0x9
0x2a08…2a28 at000a = ╱6f╱o╱ // 0x2a12 @0xa
0x2a08…2a28 at000b = ╱64╱d╱ // 0x2a13 @0xb
0x2a08…2a28 at000c = ╱74╱t╱ // 0x2a14 @0xc
0x2a08…2a28 at000d = ╱61╱a╱ // 0x2a15 @0xd
0x2a08…2a28 at000e = ╱67╱g╱ // 0x2a16 @0xe
0x2a08…2a28 at000f = ╱65╱e╱ // 0x2a17 @0xf
0x2a08…2a28 at0010 = ╱72╱r╱ // 0x2a18 @0x10
0x2a08…2a28 at0011 = ╱20╱…╱ // 0x2a19 @0x11
0x2a08…2a28 at0012 = ╱69╱i╱ // 0x2a1a @0x12
0x2a08…2a28 at0013 = ╱6b╱k╱ // 0x2a1b @0x13
0x2a08…2a28 at0014 = ╱6b╱k╱ // 0x2a1c @0x14
0x2a08…2a28 at0015 = ╱65╱e╱ // 0x2a1d @0x15
0x2a08…2a28 at0016 = ╱20╱…╱ // 0x2a1e @0x16
0x2a08…2a28 at0017 = ╱62╱b╱ // 0x2a1f @0x17
0x2a08…2a28 at0018 = ╱6f╱o╱ // 0x2a20 @0x18
0x2a08…2a28 at0019 = ╱67╱g╱ // 0x2a21 @0x19
0x2a08…2a28 at001a = ╱66╱f╱ // 0x2a22 @0x1a
0x2a08…2a28 at001b = ╱7c╱ø╱ // 0x2a23 @0x1b
0x2a08…2a28 at001c = ╱72╱r╱ // 0x2a24 @0x1c
0x2a08…2a28 at001d = ╱74╱t╱ // 0x2a25 @0x1d
0x2a08…2a28 at001e = ╱22╱"╱ // 0x2a26 @0x1e
0x2a08…2a28 at001f = EOL // 0x2a27 @0x1f
0x2a08…2a28 }
0x2a28…2a3c b793 5140 INPUT "RETURN",LINE$
0x2a28…2a3c LineComalBin {
0x2a28…2a3c ptr = 0xb793 // 0x2a28 @0x0
0x2a28…2a3c lno = 0x1414 // 0x2a2a @0x2
0x2a28…2a3c at0004 = ╱91╱ INPUT ╱ // 0x2a2c @0x4
0x2a28…2a3c at0005 = ╱22╱"╱ // 0x2a2d @0x5
0x2a28…2a3c at0006 = ╱52╱R╱ // 0x2a2e @0x6
0x2a28…2a3c at0007 = ╱45╱E╱ // 0x2a2f @0x7
0x2a28…2a3c at0008 = ╱54╱T╱ // 0x2a30 @0x8
0x2a28…2a3c at0009 = ╱55╱U╱ // 0x2a31 @0x9
0x2a28…2a3c at000a = ╱52╱R╱ // 0x2a32 @0xa
0x2a28…2a3c at000b = ╱4e╱N╱ // 0x2a33 @0xb
0x2a28…2a3c at000c = ╱22╱"╱ // 0x2a34 @0xc
0x2a28…2a3c at000d = ╱ec╱,╱ // 0x2a35 @0xd
0x2a28…2a3c at000e = ╱4c╱L╱ // 0x2a36 @0xe
0x2a28…2a3c at000f = ╱49╱I╱ // 0x2a37 @0xf
0x2a28…2a3c at0010 = ╱4e╱N╱ // 0x2a38 @0x10
0x2a28…2a3c at0011 = ╱45╱E╱ // 0x2a39 @0x11
0x2a28…2a3c at0012 = ╱ef╱$╱ // 0x2a3a @0x12
0x2a28…2a3c at0013 = EOL // 0x2a3b @0x13
0x2a28…2a3c }
0x2a3c…2a42 b799 5150 ENDIF
0x2a3c…2a42 LineComalBin {
0x2a3c…2a42 ptr = 0xb799 // 0x2a3c @0x0
0x2a3c…2a42 lno = 0x141e // 0x2a3e @0x2
0x2a3c…2a42 at0004 = ╱9b╱ ENDIF ╱ // 0x2a40 @0x4
0x2a3c…2a42 at0005 = EOL // 0x2a41 @0x5
0x2a3c…2a42 }
0x2a42…2a48 b79f 5160 ELSE
0x2a42…2a48 LineComalBin {
0x2a42…2a48 ptr = 0xb79f // 0x2a42 @0x0
0x2a42…2a48 lno = 0x1428 // 0x2a44 @0x2
0x2a42…2a48 at0004 = ╱9a╱ ELSE ╱ // 0x2a46 @0x4
0x2a42…2a48 at0005 = EOL // 0x2a47 @0x5
0x2a42…2a48 }
0x2a48…2a67 b7be 5170 PRINT "Lønmodtager findes ikke"
0x2a48…2a67 LineComalBin {
0x2a48…2a67 ptr = 0xb7be // 0x2a48 @0x0
0x2a48…2a67 lno = 0x1432 // 0x2a4a @0x2
0x2a48…2a67 at0004 = ╱92╱ PRINT ╱ // 0x2a4c @0x4
0x2a48…2a67 at0005 = ╱22╱"╱ // 0x2a4d @0x5
0x2a48…2a67 at0006 = ╱4c╱L╱ // 0x2a4e @0x6
0x2a48…2a67 at0007 = ╱7c╱ø╱ // 0x2a4f @0x7
0x2a48…2a67 at0008 = ╱6e╱n╱ // 0x2a50 @0x8
0x2a48…2a67 at0009 = ╱6d╱m╱ // 0x2a51 @0x9
0x2a48…2a67 at000a = ╱6f╱o╱ // 0x2a52 @0xa
0x2a48…2a67 at000b = ╱64╱d╱ // 0x2a53 @0xb
0x2a48…2a67 at000c = ╱74╱t╱ // 0x2a54 @0xc
0x2a48…2a67 at000d = ╱61╱a╱ // 0x2a55 @0xd
0x2a48…2a67 at000e = ╱67╱g╱ // 0x2a56 @0xe
0x2a48…2a67 at000f = ╱65╱e╱ // 0x2a57 @0xf
0x2a48…2a67 at0010 = ╱72╱r╱ // 0x2a58 @0x10
0x2a48…2a67 at0011 = ╱20╱…╱ // 0x2a59 @0x11
0x2a48…2a67 at0012 = ╱66╱f╱ // 0x2a5a @0x12
0x2a48…2a67 at0013 = ╱69╱i╱ // 0x2a5b @0x13
0x2a48…2a67 at0014 = ╱6e╱n╱ // 0x2a5c @0x14
0x2a48…2a67 at0015 = ╱64╱d╱ // 0x2a5d @0x15
0x2a48…2a67 at0016 = ╱65╱e╱ // 0x2a5e @0x16
0x2a48…2a67 at0017 = ╱73╱s╱ // 0x2a5f @0x17
0x2a48…2a67 at0018 = ╱20╱…╱ // 0x2a60 @0x18
0x2a48…2a67 at0019 = ╱69╱i╱ // 0x2a61 @0x19
0x2a48…2a67 at001a = ╱6b╱k╱ // 0x2a62 @0x1a
0x2a48…2a67 at001b = ╱6b╱k╱ // 0x2a63 @0x1b
0x2a48…2a67 at001c = ╱65╱e╱ // 0x2a64 @0x1c
0x2a48…2a67 at001d = ╱22╱"╱ // 0x2a65 @0x1d
0x2a48…2a67 at001e = EOL // 0x2a66 @0x1e
0x2a48…2a67 }
0x2a67…2a7b b7d2 5180 INPUT "RETURN",LINE$
0x2a67…2a7b LineComalBin {
0x2a67…2a7b ptr = 0xb7d2 // 0x2a67 @0x0
0x2a67…2a7b lno = 0x143c // 0x2a69 @0x2
0x2a67…2a7b at0004 = ╱91╱ INPUT ╱ // 0x2a6b @0x4
0x2a67…2a7b at0005 = ╱22╱"╱ // 0x2a6c @0x5
0x2a67…2a7b at0006 = ╱52╱R╱ // 0x2a6d @0x6
0x2a67…2a7b at0007 = ╱45╱E╱ // 0x2a6e @0x7
0x2a67…2a7b at0008 = ╱54╱T╱ // 0x2a6f @0x8
0x2a67…2a7b at0009 = ╱55╱U╱ // 0x2a70 @0x9
0x2a67…2a7b at000a = ╱52╱R╱ // 0x2a71 @0xa
0x2a67…2a7b at000b = ╱4e╱N╱ // 0x2a72 @0xb
0x2a67…2a7b at000c = ╱22╱"╱ // 0x2a73 @0xc
0x2a67…2a7b at000d = ╱ec╱,╱ // 0x2a74 @0xd
0x2a67…2a7b at000e = ╱4c╱L╱ // 0x2a75 @0xe
0x2a67…2a7b at000f = ╱49╱I╱ // 0x2a76 @0xf
0x2a67…2a7b at0010 = ╱4e╱N╱ // 0x2a77 @0x10
0x2a67…2a7b at0011 = ╱45╱E╱ // 0x2a78 @0x11
0x2a67…2a7b at0012 = ╱ef╱$╱ // 0x2a79 @0x12
0x2a67…2a7b at0013 = EOL // 0x2a7a @0x13
0x2a67…2a7b }
0x2a7b…2a81 b7d8 5190 ENDIF
0x2a7b…2a81 LineComalBin {
0x2a7b…2a81 ptr = 0xb7d8 // 0x2a7b @0x0
0x2a7b…2a81 lno = 0x1446 // 0x2a7d @0x2
0x2a7b…2a81 at0004 = ╱9b╱ ENDIF ╱ // 0x2a7f @0x4
0x2a7b…2a81 at0005 = EOL // 0x2a80 @0x5
0x2a7b…2a81 }
0x2a81…2a87 b7de 5200 ENDIF
0x2a81…2a87 LineComalBin {
0x2a81…2a87 ptr = 0xb7de // 0x2a81 @0x0
0x2a81…2a87 lno = 0x1450 // 0x2a83 @0x2
0x2a81…2a87 at0004 = ╱9b╱ ENDIF ╱ // 0x2a85 @0x4
0x2a81…2a87 at0005 = EOL // 0x2a86 @0x5
0x2a81…2a87 }
0x2a87…2a93 b7ea 5210 UNTIL LMNR=B
0x2a87…2a93 LineComalBin {
0x2a87…2a93 ptr = 0xb7ea // 0x2a87 @0x0
0x2a87…2a93 lno = 0x145a // 0x2a89 @0x2
0x2a87…2a93 at0004 = ╱98╱ UNTIL ╱ // 0x2a8b @0x4
0x2a87…2a93 at0005 = ╱4c╱L╱ // 0x2a8c @0x5
0x2a87…2a93 at0006 = ╱4d╱M╱ // 0x2a8d @0x6
0x2a87…2a93 at0007 = ╱4e╱N╱ // 0x2a8e @0x7
0x2a87…2a93 at0008 = ╱52╱R╱ // 0x2a8f @0x8
0x2a87…2a93 at0009 = ╱dc╱=╱ // 0x2a90 @0x9
0x2a87…2a93 at000a = ╱42╱B╱ // 0x2a91 @0xa
0x2a87…2a93 at000b = EOL // 0x2a92 @0xb
0x2a87…2a93 }
0x2a93…2a9d b7f4 5220 CLOSE FIL$
0x2a93…2a9d LineComalBin {
0x2a93…2a9d ptr = 0xb7f4 // 0x2a93 @0x0
0x2a93…2a9d lno = 0x1464 // 0x2a95 @0x2
0x2a93…2a9d at0004 = ╱a8╱ CLOSE ╱ // 0x2a97 @0x4
0x2a93…2a9d at0005 = ╱46╱F╱ // 0x2a98 @0x5
0x2a93…2a9d at0006 = ╱49╱I╱ // 0x2a99 @0x6
0x2a93…2a9d at0007 = ╱4c╱L╱ // 0x2a9a @0x7
0x2a93…2a9d at0008 = ╱ef╱$╱ // 0x2a9b @0x8
0x2a93…2a9d at0009 = EOL // 0x2a9c @0x9
0x2a93…2a9d }
0x2a9d…2aa8 b7ff 5230 CLOSE FIL1$
0x2a9d…2aa8 LineComalBin {
0x2a9d…2aa8 ptr = 0xb7ff // 0x2a9d @0x0
0x2a9d…2aa8 lno = 0x146e // 0x2a9f @0x2
0x2a9d…2aa8 at0004 = ╱a8╱ CLOSE ╱ // 0x2aa1 @0x4
0x2a9d…2aa8 at0005 = ╱46╱F╱ // 0x2aa2 @0x5
0x2a9d…2aa8 at0006 = ╱49╱I╱ // 0x2aa3 @0x6
0x2a9d…2aa8 at0007 = ╱4c╱L╱ // 0x2aa4 @0x7
0x2a9d…2aa8 at0008 = ╱31╱1╱ // 0x2aa5 @0x8
0x2a9d…2aa8 at0009 = ╱ef╱$╱ // 0x2aa6 @0x9
0x2a9d…2aa8 at000a = EOL // 0x2aa7 @0xa
0x2a9d…2aa8 }
0x2aa8…2ab3 b80a 5240 CLOSE FIL5$
0x2aa8…2ab3 LineComalBin {
0x2aa8…2ab3 ptr = 0xb80a // 0x2aa8 @0x0
0x2aa8…2ab3 lno = 0x1478 // 0x2aaa @0x2
0x2aa8…2ab3 at0004 = ╱a8╱ CLOSE ╱ // 0x2aac @0x4
0x2aa8…2ab3 at0005 = ╱46╱F╱ // 0x2aad @0x5
0x2aa8…2ab3 at0006 = ╱49╱I╱ // 0x2aae @0x6
0x2aa8…2ab3 at0007 = ╱4c╱L╱ // 0x2aaf @0x7
0x2aa8…2ab3 at0008 = ╱35╱5╱ // 0x2ab0 @0x8
0x2aa8…2ab3 at0009 = ╱ef╱$╱ // 0x2ab1 @0x9
0x2aa8…2ab3 at000a = EOL // 0x2ab2 @0xa
0x2aa8…2ab3 }
0x2ab3…2ac9 0000 5250 CHAIN "P641210:STARTB"
0x2ab3…2ac9 LineComalBin {
0x2ab3…2ac9 ptr = 0x0000 // 0x2ab3 @0x0
0x2ab3…2ac9 lno = 0x1482 // 0x2ab5 @0x2
0x2ab3…2ac9 at0004 = ╱ac╱ CHAIN ╱ // 0x2ab7 @0x4
0x2ab3…2ac9 at0005 = ╱22╱"╱ // 0x2ab8 @0x5
0x2ab3…2ac9 at0006 = ╱50╱P╱ // 0x2ab9 @0x6
0x2ab3…2ac9 at0007 = ╱36╱6╱ // 0x2aba @0x7
0x2ab3…2ac9 at0008 = ╱34╱4╱ // 0x2abb @0x8
0x2ab3…2ac9 at0009 = ╱31╱1╱ // 0x2abc @0x9
0x2ab3…2ac9 at000a = ╱32╱2╱ // 0x2abd @0xa
0x2ab3…2ac9 at000b = ╱31╱1╱ // 0x2abe @0xb
0x2ab3…2ac9 at000c = ╱30╱0╱ // 0x2abf @0xc
0x2ab3…2ac9 at000d = ╱3a╱:╱ // 0x2ac0 @0xd
0x2ab3…2ac9 at000e = ╱53╱S╱ // 0x2ac1 @0xe
0x2ab3…2ac9 at000f = ╱54╱T╱ // 0x2ac2 @0xf
0x2ab3…2ac9 at0010 = ╱41╱A╱ // 0x2ac3 @0x10
0x2ab3…2ac9 at0011 = ╱52╱R╱ // 0x2ac4 @0x11
0x2ab3…2ac9 at0012 = ╱54╱T╱ // 0x2ac5 @0x12
0x2ab3…2ac9 at0013 = ╱42╱B╱ // 0x2ac6 @0x13
0x2ab3…2ac9 at0014 = ╱22╱"╱ // 0x2ac7 @0x14
0x2ab3…2ac9 at0015 = EOL // 0x2ac8 @0x15
0x2ab3…2ac9 }
0x2ac9…2ae0 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 ┆W Z B 0 E 1 G┆
0x2ae0…2afa dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ 2 V 3 W 9 ┆
0x2afa…2b00 (143,) 57 8d 20 b8 10 00 ┆W ┆