|
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: 18157 (0x46ed)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »KASRAP.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »KASRAP.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »KASRAP.B«
0100 DIM OP1$(12),OP2$(12),RES$(15),A1$(12),A2$(77),A3$(25),A4$(17),A5$(17) 0110 DIM A6$(17),A7$(25),A8$(12),A9$(E),B0$(25),DV$(10),B1$(12),B2$(12) 0120 DIM B3$(12),B4$(29),B5$(25),B6$(17),B7$(77),B8$(14),B9$(12),C0$(W) 0130 DIM C1$(20),C2$(17),C3$(12),C4$(12),C5$(E),A$(G),C6$(12),C7$(E),C8$(E) 0140 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8) 0150 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12),E2$(17),E3$(25),E4$(25) 0160 DIM E5$(18,10),E6$(E),E7$(6),E8(W),E9$(17),F0(W),F1$(E),F2$(E),F3$(12) 0170 DIM F4$(12),F5$(6,12),F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(E),G1(W) 0180 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25),O32$(12) 0190 DIM O33$(12),G12(18),E12$(17),E13$(17),E14$(17) 0200 PROC CA(G9,H0,H1,H2) 0210 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=B;FLAG=B;ART=G9-6*(G9>5) 0220 CALL "P641210:REGN" 0230 H2$=RES$ 0240 IF G9<>6 THEN IF FLAG THEN STOP 0250 ENDPROC 0260 PROC IN(H3) 0270 REPEAT 0280 CASE H3 OF 0290 STOP 0300 WHEN E 0310 REPEAT 0320 REPEAT 0330 CURSOR V,23 0340 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)"; 0350 PRINT B7$(E:12) 0360 CURSOR 8,23 0370 INPUT D5$ 0380 EXEC NR(D5$) 0390 UNTIL P=>-V AND H4=B 0400 IF P<>B AND H5=19 AND P<>-G AND P<>-V THEN 0410 CLEAR 0420 EXEC UH 0430 H5=E 0440 EXEC UL(H6,H7,I6,E4$,F4$,H8,H16) 0450 EXEC SY 0460 H5=H5+E 0470 ENDIF 0480 REPEAT 0490 H9=-E 0500 IF I2+V>R9 OR I2+F0(E)+G1(E)+W>S1 THEN 0510 REPEAT 0520 CURSOR V,23 0530 PRINT "Ikke plads til flere posteringer , tast RETURN "+B7$(E:30) 0540 CURSOR 50,23 0550 INPUT A$ 0560 EXEC NR(A$) 0570 UNTIL P=-E 0580 P=B 0590 ENDIF 0600 CASE P OF 0610 CURSOR E,H5+V 0620 PRINT USING "###":H5 0630 H7=P;P=-4;I0=H7;H3=G 0640 CURSOR 4,H5+V 0650 PRINT USING "#######":H7 0660 WHEN B 0670 H3=7;P=-4 0680 IF I1=G THEN H3=-E 0690 WHEN -E 0700 I0=I0+E;P=I0;H9=B 0710 WHEN -G 0720 REPEAT 0730 CURSOR V,23 0740 PRINT "Ny dato (ååmmdd)";B7$(E:54) 0750 CURSOR 11,23 0760 INPUT D5$ 0770 EXEC NR(D5$) 0780 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32 0790 J6=P 0800 EXEC UH 0810 WHEN -V 0820 IF I2>I3 THEN 0830 I0=I0-E;H5=H5-E 0840 EXEC SL(5) 0850 EXEC ÆN(1,F4$,H8) 0860 I2=I3;I4=I3-E 0870 ENDIF 0880 ENDCASE 0890 UNTIL H9=-E 0900 UNTIL P=-4 0910 WHEN G 0920 REPEAT 0930 REPEAT 0940 CURSOR V,23 0950 PRINT "Tekst"+B7$(E:27)+"(max 25 tegn)"+B7$(E:32) 0960 CURSOR W,23 0970 INPUT D4$ 0980 I5=LEN(D4$) 0990 UNTIL I5<=25 1000 IF I5<V THEN 1010 EXEC NR(D4$) 1020 ELSE 1030 P=20;H4=B 1040 ENDIF 1050 UNTIL P=>B AND P<21 AND H4=B AND P<>10 1060 E4$=B7$ 1070 IF P<>B THEN 1080 I6=P MOD 10 1090 IF I6=B THEN 1100 P=10;E3$=D4$;E4$=E3$ 1110 ELSE 1120 E4$=E5$(I6)+B7$(E:15) 1130 IF P>10 THEN 1140 REPEAT 1150 CURSOR V,23 1160 PRINT "Tekst";B7$(E:16);"(max 14 tegn)"+B7$(E:43) 1170 CURSOR W,23 1180 INPUT D4$ 1190 UNTIL LEN(D4$)<15 1200 E4$(12,25)=D4$;E3$=E4$ 1210 ENDIF 1220 ENDIF 1230 CURSOR 12,H5+V 1240 PRINT E4$ 1250 ENDIF 1260 H3=V;I7=P 1270 WHEN V 1280 REPEAT 1290 REPEAT 1300 CURSOR V,23 1310 PRINT "Konto (5 cifre)";B7$(E:54) 1320 CURSOR W,23 1330 INPUT D5$ 1340 EXEC NR(D5$) 1350 UNTIL H4=B AND (I8<>B AND I5=5) 1360 H6=P 1370 EXEC KN(I8,H6) 1380 CURSOR 15,23 1390 PRINT "(Navn:";B7$(E:27);"Er konto rigtig (J/N) " 1400 CURSOR 22,23 1410 PRINT B4$ 1420 REPEAT 1430 CURSOR 64,23 1440 INPUT A$ 1450 EXEC NR(A$) 1460 UNTIL P=-7 OR P=-8 1470 UNTIL P=-7 AND ((I9=B AND I1=E) OR I1<>E) 1480 IF I9=E THEN 1490 EXEC SL(5) 1500 H3=E;I0=I0-E 1510 ELSE 1520 CURSOR 37,H5+V 1530 H3=4 1540 IF I1=E THEN H3=-E 1550 PRINT USING "######":H6 1560 ENDIF 1570 WHEN 4 1580 REPEAT 1590 REPEAT 1600 CURSOR V,23 1610 PRINT "Entreprisekonto (5 cifre)";B7$(E:44) 1620 CURSOR 19,23 1630 INPUT D5$ 1640 EXEC NR(D5$) 1650 UNTIL H4=B AND (I8<>B AND I5=5) OR P=-E 1660 H16=1000000;I9=B 1670 IF P=-E THEN EXIT 1680 H16=P;B4$="Konto eksisterer ikke";F8$=B7$ 1690 EXEC FI(N11,M8,J12,(H16 DIV 100),J19,E13$) 1700 IF I9=B THEN 1710 FOR X=E TO J13+J14 1720 I9=B 1730 IF (H16 MOD 100)=N12(X) AND N13$(X)="0" THEN EXIT 1740 I9=E 1750 NEXT X 1760 IF I9=B THEN 1770 GET E12$,M8(J19,G)+E:B4$ 1780 EXEC FE(99,10,E12$) 1790 GET E14$,X:P9,E6$,F8$ 1800 EXEC FE(99,11,E14$) 1810 ENDIF 1820 ENDIF 1830 CURSOR E,23 1840 PRINT USING " ###### ":H16; 1850 PRINT B4$;" ";F8$;TAB(65);"Rigtig (J/N)" 1860 REPEAT 1870 CURSOR 71,23 1880 INPUT A$ 1890 EXEC NR(A$) 1900 UNTIL P=-7 OR P=-8 1910 UNTIL P=-7 AND ((I9=B AND I1=E) OR I1<>E) 1920 IF I9=E THEN 1930 EXEC SL(5) 1940 H3=E;I0=I0-E 1950 ELSE 1960 CURSOR 44,H5+V 1970 H3=5 1980 IF I1=E THEN H3=-E 1990 PRINT USING "######":H16 2000 ENDIF 2010 WHEN 5 2020 REPEAT 2030 REPEAT 2040 REPEAT 2050 CURSOR V,23 2060 PRINT "Beløb";B7$(E:14);"(Kredit indtastes med efterstillet minus)"; 2070 PRINT B7$(E:17) 2080 CURSOR 8,23 2090 INPUT F3$ 2100 UNTIL LEN(F3$)>B 2110 EXEC FO 2120 EXEC CA(6,F3$,B9$,B8$) 2130 UNTIL FLAG=B 2140 EXEC CA(4,F3$,B9$,B9$) 2150 UNTIL SI<>B AND FLAG=B 2160 F4$=F3$;SI=B 2170 EXEC SL(3) 2180 IF F3$(LEN(F3$))="+" THEN SI=E 2190 CURSOR 52+(SI=B)*11,H5+V 2200 EXEC TU(F4$,B8$,0,0) 2210 PRINT B8$ 2220 H3=6 2230 IF I1=E THEN H3=-E 2240 WHEN 6 2250 REPEAT 2260 CURSOR V,23 2270 PRINT "Kode (0:Annullering, 1:Kasse, 2:Bank, 3:Giro)"+B7$(E:30) 2280 CURSOR 7,23 2290 INPUT D5$ 2300 EXEC NR(D5$) 2310 UNTIL (P>B AND P<4) OR (P=B AND I1<>E) 2320 H8=P;H3=E 2330 IF H8=B THEN 2340 EXEC SL(5) 2350 I0=I0-E 2360 ELSE 2370 CURSOR 77,H5+V 2380 PRINT USING "##":H8 2390 IF I1<>E THEN 2400 EXEC ÆN(0,F4$,H8) 2410 H5=H5+E;I3=I2 2420 EXEC GP(D2$,I2,H6,J6,H7,I7,E3$,F4$,H8,H16) 2430 I2=I2+E;I4=I2-E 2440 ENDIF 2450 ENDIF 2460 IF I1=E THEN H3=-E 2470 WHEN 7 2480 P=-7 2490 IF I2+F0(E)+G1(E)+W<S1 THEN 2500 REPEAT 2510 CURSOR V,23 2520 PRINT "Ønskes afstemning J/N "+B7$(E:54) 2530 CURSOR 25,23 2540 INPUT A$ 2550 EXEC NR(A$) 2560 UNTIL P=-7 OR P=-8 2570 ENDIF 2580 EXEC SY 2590 J4=E 2600 IF P=-7 THEN 2610 J4=B 2620 FOR I=E TO 6 2630 REPEAT 2640 REPEAT 2650 CURSOR V,23 2660 PRINT J5$(I);B7$(E:60) 2670 CURSOR 17,23 2680 INPUT F3$ 2690 UNTIL LEN(F3$)>B 2700 EXEC FO 2710 EXEC CA(6,F3$,B9$,B8$) 2720 UNTIL FLAG=B 2730 F9$(I)=F3$ 2740 IF I MOD G=B THEN F9$(I)=F3$(E:LEN(F3$)-E)+"-" 2750 NEXT I 2760 ENDIF 2770 H3=-E 2780 ENDCASE 2790 UNTIL H3=-E 2800 ENDPROC 2810 PROC HK 2820 J7=M8(J9,G) 2830 GET D1$,J7:K0,F8$,A3$ 2840 EXEC FE(5,E,D1$) 2850 GET D1$,J7+E:A5$,C7$,C8$,K1,F6$,F7$ 2860 EXEC FE(5,G,D1$) 2870 ENDPROC 2880 PROC GP(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN) 2890 F1$=CHR(TK+48);D5$=CHR(KO+48) 2900 PUT FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN 2910 EXEC FE(10,E,FL$) 2920 IF TK>W AND TK<20 THEN 2930 PN=PN+E 2940 PUT FL$,PN:KT,TKS$ 2950 EXEC FE(10,G,FL$) 2960 ENDIF 2970 ENDPROC 2980 PROC GG(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN) 2990 GET FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN 3000 EXEC FE(11,E,FL$) 3010 TK=ORD(F1$)-48;KO=ORD(D5$)-48 3020 IF TK>W AND TK<20 THEN 3030 PN=PN+E 3040 GET FL$,PN:KT,TKS$ 3050 EXEC FE(11,G,FL$) 3060 ELSE 3070 TKS$=B7$ 3080 IF TK>B THEN TKS$=E5$(TK-10*(TK>20)) 3090 ENDIF 3100 ENDPROC 3110 PROC ÆN(K4,K5,K6) 3120 J3=B;B8$=K5$ 3130 IF B8$(LEN(B8$))="+" THEN J3=E 3140 J3=G*K6-J3 3150 EXEC CA(K4,F5$(J3),B8$,F5$(J3)) 3160 ENDPROC 3170 PROC RE 3180 K3=E;K2=E 3190 IF I2=E THEN EXIT 3200 REPEAT 3210 CLEAR 3220 EXEC UH 3230 IF K2=I2 THEN K2=E 3240 K3=K2;H5=E 3250 FOR I=E TO 18 3260 EXEC GG(D2$,K2,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3270 K2=K2+E 3280 IF G2(I)<>B THEN EXEC UL(G2(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3290 H5=H5+E 3300 IF K2=I2 THEN EXIT 3310 NEXT I 3320 K7=H5;K8=B 3330 REPEAT 3340 REPEAT 3350 CURSOR V,23 3360 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:"; 3370 PRINT "Ny post) " 3380 CURSOR 20,23 3390 INPUT D5$ 3400 EXEC NR(D5$) 3410 UNTIL (P=-8 OR P>-G AND P<K7) AND H4=B 3420 K9=P 3430 IF K9<E THEN EXIT 3440 K8=E 3450 REPEAT 3460 REPEAT 3470 CURSOR V,23 3480 PRINT "Linie:";K9;"Vælg ændring (0:Færdig,A:Annuller,1:Konto,"; 3490 PRINT "2:Entre,3:Beløb,4:Kode)" 3500 CURSOR 25,23 3510 INPUT D5$ 3520 EXEC NR(D5$) 3530 UNTIL (P=-V OR P>-E AND P<5) AND H4=B 3540 L0=P 3550 IF L0=B THEN EXIT 3560 H5=K9 3570 IF G2(K9)=B THEN 3580 CURSOR V,H5+V 3590 PRINT "Postering er annulleret" 3600 ELSE 3610 IF L0<>E THEN EXEC ÆN(1,G6$(K9),G7(K9)) 3620 IF L0=-V THEN 3630 EXEC SL(5) 3640 G2(K9)=B 3650 ELSE 3660 L0=L0+G;L1=L0;I1=E;H6=G2(K9);F4$=G6$(K9);H8=G7(K9);H16=G12(K9) 3670 EXEC IN(L0) 3680 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8;G12(K9)=H16 3690 IF L1<>V THEN EXEC ÆN(0,F4$,H8) 3700 ENDIF 3710 ENDIF 3720 UNTIL L0=-V OR L0=B 3730 UNTIL K9<E 3740 IF K8=E THEN 3750 FOR I=E TO 18 3760 EXEC GP(D2$,K3,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3770 K3=K3+E 3780 IF K3=K2 THEN EXIT 3790 NEXT I 3800 EXEC SY 3810 ENDIF 3820 UNTIL K9=B OR K9=-8 3830 IF K9=-8 THEN 3840 CLEAR 3850 EXEC UH 3860 H5=E;I1=G 3870 EXEC IN(1) 3880 ENDIF 3890 ENDPROC 3900 PROC SY 3910 E8(4)=L2;E8(8)=I0;F0(G)=I4;G1(E)=L3 3920 OPEN E2$,W 3930 EXEC FE(V,E,E2$) 3940 PUT E2$,G:E8(E),E8(G),E8(V),E8(4),E8(5),E8(6),E8(7),E8(8),E8(W) 3950 EXEC FE(V,G,E2$) 3960 PUT E2$,12:F0(E),F0(G),F0(V),F0(4),F0(5),F0(6),F0(7),F0(8),F0(W) 3970 EXEC FE(V,V,E2$) 3980 PUT E2$,13:G1(E),G1(G),G1(V),G1(4),G1(5),G1(6),G1(7),G1(8),G1(W) 3990 EXEC FE(V,4,E2$) 4000 PUT E2$,15:F5$(E),F5$(G),F5$(V) 4010 EXEC FE(V,5,E2$) 4020 PUT E2$,16:F5$(4),F5$(5),F5$(6) 4030 EXEC FE(V,6,E2$) 4040 CLOSE E2$ 4050 EXEC FE(V,7,E2$) 4060 ENDPROC 4070 PROC FI(L5,Q,L6,L7,L8,L9) 4080 M0=L6 DIV 16;L8=M0;I9=E;M1=L6 DIV 8;M2=L6 DIV 32 4090 REPEAT 4100 IF L7=L5(L8) OR M0=E THEN EXIT 4110 M0=(M0+E) DIV G;L8=L8+M0*(E-G*(L7<L5(L8))) 4120 IF L8<E THEN L8=E 4130 IF L8>M1 THEN L8=M1 4140 UNTIL M0=B 4150 IF L5(L8)>L7 THEN L8=L8-E*(L8>E) 4160 L8=M2+L8*G-E 4170 GET L9$,L8:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G) 4180 EXEC FE(E,E,L9$) 4190 GET L9$,L8+E:Q(5,E),Q(5,G),Q(6,E),Q(6,G),Q(7,E),Q(7,G),Q(8,E),Q(8,G) 4200 EXEC FE(E,G,L9$) 4210 FOR L8=E TO 8 4220 IF L7=Q(L8,E) THEN EXIT 4230 NEXT L8 4240 IF L8<>W THEN I9=B 4250 ENDPROC 4260 PROC IT(Z,M3,M4) 4270 M0=M3 DIV 32 4280 FOR I=E TO M0 4290 H=(I-E)*4+E 4300 GET M4$,I:Z(H),Z(H+E),Z(H+E),Z(H+G),Z(H+G),Z(H+V),Z(H+V) 4310 EXEC FE(5,E,M4$) 4320 NEXT I 4330 ENDPROC 4340 PROC KN(M5,M6) 4350 I9=E 4360 CASE M5 OF 4370 EXEC FI(M7,M8,M9,M6,N0,A6$) 4380 IF I9=B THEN 4390 EXEC HF 4400 B4$=B0$ 4410 ENDIF 4420 WHEN J1 4430 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN 4440 EXEC FI(N2,M8,N4,M6,N5,A4$) 4450 IF I9=B THEN 4460 EXEC HD 4470 B4$=A7$ 4480 ENDIF 4490 ENDIF 4500 WHEN J2 4510 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN 4520 EXEC FI(N7,M8,N8,M6,J9,B6$) 4530 IF I9=B THEN 4540 EXEC HK 4550 B4$=F8$ 4560 ENDIF 4570 ENDIF 4580 ENDCASE 4590 IF I9=E THEN 4600 B4$="Konto eksisterer ikke " 4610 ENDIF 4620 ENDPROC 4630 PROC SL(O0) 4640 CASE O0 OF 4650 STOP 4660 WHEN V 4670 CURSOR 50,H5+V 4680 PRINT B7$(E:28) 4690 WHEN 5 4700 CURSOR 4,H5+V 4710 PRINT B7$ 4720 ENDCASE 4730 ENDPROC 4740 PROC FO 4750 I5=LEN(F3$) 4760 IF I5=B THEN F3$="0+" 4770 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN F3$=F3$+"+" 4780 ENDPROC 4790 PROC UH 4800 CURSOR 35,E 4810 PRINT "Kasserapport";TAB(30);"Dato:" 4820 CURSOR 72,E 4830 PRINT J6 4840 CURSOR E,V 4850 PRINT " Nr Bilag Tekst";TAB(38);"Konto Entre. Debet Kredit"; 4860 PRINT " Kode" 4870 ENDPROC 4880 PROC UL(O1,O2,O3,O31,O4,O5,O11) 4890 O32$=O31$;O33$=O4$ 4900 CURSOR E,H5+V 4910 PRINT USING "###":H5; 4920 EXEC LU(O2,O3,O1,O32$,O33$,O5,O11) 4930 ENDPROC 4940 PROC FE(O6,O7,O8) 4950 IF STATUS(O8$)<>B THEN 4960 PRINT STATUS(O8$),O6,O7,O8$ 4970 STOP 4980 ENDIF 4990 ENDPROC 5000 PROC HD 5010 J7=M8(N5,G) 5020 GET D0$,J7:O9,A7$,A8$,A9$ 5030 EXEC FE(8,G,D0$) 5040 IF O9<>M8(N5,E) THEN STOP 5050 GET D0$,J7+E:B1$,B2$,B3$,P0,C5$ 5060 EXEC FE(8,V,D0$) 5070 GET D0$,J7+G:B5$,C0$,P1,P2 5080 EXEC FE(8,4,D0$) 5090 GET D0$,J7+V:C1$,C3$,C4$ 5100 EXEC FE(8,5,D0$) 5110 ENDPROC 5120 PROC TU(P3,P4,P5,P6) 5130 C6$=P3$;B8$=P4$ 5140 EXEC CA(5,C6$,B9$,B8$) 5150 P4$=B8$ 5160 IF P5=B THEN P4$=P4$(E:13) 5170 IF P5=E AND P4$(LEN(P4$))="+" THEN P4$(LEN(P4$))=" " 5180 IF P6=E THEN P4$=P4$(4:LEN(P4$)-V) 5190 ENDPROC 5200 PROC NR(P7) 5210 P=B;H4=B;I8=B;I5=LEN(P7$) 5220 CASE I5 OF 5230 FOR I=E TO I5 5240 P8=INT(ORD(P7$(I))-48) 5250 IF P8=>B AND P8<10 THEN 5260 P=P*10+P8 5270 ELSE 5280 H4=E 5290 ENDIF 5300 NEXT I 5310 I8=P DIV 10000;KTAL9=P DIV 1000 5320 IF KTAL9=J2 THEN I8=KTAL9 5330 WHEN B 5340 P=-E 5350 WHEN E 5360 CASE P7$ OF 5370 P=INT(ORD(P7$)-48) 5380 WHEN "d","D" 5390 P=-G 5400 WHEN "a","A" 5410 P=-V 5420 WHEN "j","J" 5430 P=-7 5440 WHEN "n","N" 5450 P=-8 5460 ENDCASE 5470 ENDCASE 5480 ENDPROC 5490 PROC HF 5500 J7=M8(N0,G) 5510 GET C9$,J7:P9,B0$ 5520 EXEC FE(V,G,C9$) 5530 IF P9<>M8(N0,E) THEN STOP 5540 GET C9$,J7+E:G0$,D7$,D8$ 5550 EXEC FE(V,V,C9$) 5560 GET C9$,J7+G:E6$,D9$,E0$ 5570 EXEC FE(V,4,C9$) 5580 ENDPROC 5590 PROC BF 5600 REPEAT 5610 CLEAR 5620 CURSOR 21,E 5630 PRINT "Kasserapport afstemning" 5640 CURSOR 66,E 5650 PRINT "Dato :";J6 5660 CURSOR 21,V 5670 PRINT "Differencer Indtastede saldi" 5680 FOR I=E TO 6 5690 EXEC CA(E,F5$(I),F9$(I),F3$) 5700 CURSOR E,I+4 5710 PRINT I;J5$(I) 5720 CURSOR 19,I+4 5730 EXEC TU(F3$,B8$,1,0) 5740 PRINT B8$ 5750 CURSOR 36,I+4 5760 EXEC TU(F9$(I),B8$,1,0) 5770 PRINT B8$ 5780 NEXT I 5790 CURSOR 4,12 5800 PRINT "Kontroller dine saldi !" 5810 REPEAT 5820 CURSOR 4,14 5830 PRINT "Hvilken er forkert (0:ingen,1-6)" 5840 CURSOR 25,14 5850 INPUT D5$ 5860 EXEC NR(D5$) 5870 UNTIL -E<P AND P<7 AND H4=B 5880 IF P<>B THEN 5890 REPEAT 5900 REPEAT 5910 CURSOR E,16 5920 PRINT P;J5$(P);" (tast ændret saldo)" 5930 CURSOR 19,16 5940 INPUT F3$ 5950 UNTIL LEN(F3$)>B 5960 EXEC FO 5970 EXEC CA(6,F3$,B9$,B8$) 5980 UNTIL FLAG=B 5990 F9$(P)=F3$ 6000 IF P MOD G=B THEN F9$(P)=F3$(E:LEN(F3$)-E)+"-" 6010 Q0=B 6020 ELSE 6030 FOR I=E TO 6 6040 EXEC CA(E,F5$(I),F9$(I),F3$) 6050 EXEC CA(4,F3$,B9$,B9$) 6060 IF SI<>B THEN EXIT 6070 NEXT I 6080 P=-7;Q0=-E 6090 IF SI=B THEN 6100 REPEAT 6110 CURSOR 4,16 6120 PRINT "Ønskes ændringer (J/N)" 6130 CURSOR 22,16 6140 INPUT A$ 6150 EXEC NR(A$) 6160 UNTIL (P=-7 OR P=-8) AND H4=B 6170 ENDIF 6180 IF P=-7 THEN 6190 EXEC RE 6200 Q0=B 6210 ENDIF 6220 ENDIF 6230 UNTIL Q0=-E 6240 ENDPROC 6250 PROC HU(Q1,Q2) 6260 EXEC DU(Q1,D6$) 6280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 6290 PRINT TAB(67);DV$;" " 6300 PRINT TAB(W);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$; 6310 PRINT TAB(61); 6320 PRINT USING "Side:####":Q2 6330 PRINT " " 6340 PRINT TAB(V);"Bilag";TAB(12);"Tekst";TAB(38);"Konto";TAB(45);"Entre."; 6350 PRINT TAB(57);"Debet";TAB(68);"Kredit";TAB(75);"Kode" 6360 PRINT TAB(V);A2$ 6370 ENDPROC 6380 PROC LU(Q3,Q4,Q5,Q6,Q7,Q8,Q15) 6390 R5=B 6400 IF Q7$(LEN(Q7$))="+" THEN R5=E 6410 IF Q3<>-E THEN PRINT USING "#######":Q3; 6420 IF Q4<10 AND Q4>B THEN Q6$=E5$(Q4)+B7$(E:15) 6430 IF Q4<>B THEN PRINT TAB(12);Q6$; 6440 PRINT TAB(37); 6450 PRINT USING "###### ######":Q5,Q15; 6460 EXEC TU(Q7$,B8$,0,0) 6470 PRINT TAB(52+11*(R5=B));B8$;TAB(77); 6480 PRINT USING "##":Q8 6490 ENDPROC 6500 PROC DU(Q9,R0) 6510 R1=Q9 6520 R0$=" " 6530 FOR J=8 TO E STEP -E 6540 R0$(J)="." 6550 IF J MOD V<>B THEN R0$(J)=CHR(R1 MOD 10+48);R1=R1 DIV 10 6560 NEXT J 6570 ENDPROC 6580 PROC UD(R2,R3) 6590 IF R3=36 OR R3=B THEN 6600 R2=R2+E 6610 EXEC HU(R4,R2) 6620 R3=B 6630 ENDIF 6640 R3=R3+E 6650 EXEC LU(H7,I7,H6,E3$,F4$,H8,H16) 6660 ENDPROC 6670 PROC MO(R6,R7) 6680 I5=LEN(R7$) 6690 R6$=R7$(E:I5-E)+"+" 6700 IF R7$(I5)="+" THEN R6$=R7$(E:I5-E)+"-" 6710 ENDIF 6720 ENDPROC 6730 PROC GB 6740 J7=L3;J7=J7+E 6750 EXEC GP(D3$,J7,H6,L4,H7,I7,E3$,F3$,1,H16) 6760 L3=J7 6770 ENDPROC 6780 PROC BU 6790 FOR I=R8 TO 36 6800 PRINT " " 6810 NEXT I 6820 PRINT " " 6830 PRINT TAB(V);A2$ 6840 EXEC TU(A1$,B8$,0,0) 6850 PRINT TAB(10);CHR(14);"Difference";CHR(15); 6860 PRINT TAB(45+11*(B8$(LEN(B8$))="-"));B8$ 6870 PRINT TAB(V);A2$ 6880 PRINT " " 6890 PRINT " " 6900 ENDPROC 6910 PROC UB 6920 CLEAR 6930 REPEAT 6940 CURSOR 8,13 6950 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$ 6960 UNTIL ORD(A$)=255 6965 OUTPUT P 6970 ENDPROC 6980 C2$="P641220:SYSTEM1" 6990 OPEN C2$,R 7000 EXEC FE(W,E,C2$) 7010 GET C2$,E:M9,N4,N8 7020 EXEC FE(W,G,C2$) 7030 GET C2$,G:R9,S0,S1 7040 EXEC FE(W,V,C2$) 7050 GET C2$,4:S2,S3,S4,N1 7060 EXEC FE(W,4,C2$) 7070 GET C2$,5:N6 7080 EXEC FE(W,5,C2$) 7090 GET C2$,6:S5,S6,S7 7100 EXEC FE(W,6,C2$) 7110 GET C2$,8:S8,S9,T0,J1 7120 EXEC FE(W,7,C2$) 7130 GET C2$,W:J2,J11,J12,J13 7140 EXEC FE(W,8,C2$) 7150 GET C2$,10:E7$ 7160 EXEC FE(W,W,C2$) 7170 GET C2$,11:A6$ 7180 EXEC FE(W,10,C2$) 7190 GET C2$,12:A4$ 7200 EXEC FE(W,11,C2$) 7210 GET C2$,13:B6$ 7220 EXEC FE(W,12,C2$) 7230 GET C2$,15:C9$ 7240 EXEC FE(W,13,C2$) 7250 GET C2$,16:D0$ 7260 EXEC FE(W,14,C2$) 7270 GET C2$,17:D1$ 7280 EXEC FE(W,15,C2$) 7290 GET C2$,19:D2$ 7300 EXEC FE(W,16,C2$) 7310 GET C2$,21:D3$ 7320 EXEC FE(W,17,C2$) 7330 GET C2$,36:E2$ 7340 EXEC FE(W,18,C2$) 7350 GET C2$,37:E12$ 7360 EXEC FE(99,E,C2$) 7370 GET C2$,38:E13$ 7380 EXEC FE(99,G,C2$) 7390 GET C2$,39:E14$ 7400 EXEC FE(99,V,C2$) 7410 GET C2$,43:J14,J15,J16 7420 EXEC FE(99,4,C2$) 7430 CLOSE C2$ 7440 EXEC FE(W,19,C2$) 7450 DIM M7(M9 DIV 8),N2(N4 DIV 8),N7(N8 DIV 8),N11(J12 DIV 8),N12(J13+J14) 7460 DIM M8(8,G),J5$(6,14),N13$(J13+J14) 7470 E2$=E7$+E2$ 7480 OPEN E2$,R 7490 EXEC FE(W,20,E2$) 7500 GET E2$,G:E8(E),E8(G),E8(V),E8(4),E8(5),E8(6),E8(7),E8(8),E8(W) 7510 EXEC FE(W,21,E2$) 7520 FOR I=E TO 6 7530 J=(I-E)*V+E 7540 GET E2$,I+5:E5$(J),E5$(J+E),E5$(J+G) 7550 EXEC FE(W,22,E2$) 7560 NEXT I 7570 GET E2$,12:F0(E),F0(G),F0(V),F0(4),F0(5),F0(6),F0(7),F0(8),F0(W) 7580 EXEC FE(W,23,E2$) 7590 GET E2$,13:G1(E),G1(G),G1(V),G1(4),G1(5),G1(6),G1(7),G1(8),G1(W) 7600 EXEC FE(W,24,E2$) 7610 GET E2$,15:F5$(E),F5$(G),F5$(V) 7620 EXEC FE(W,25,E2$) 7630 GET E2$,16:F5$(4),F5$(5),F5$(6) 7640 EXEC FE(W,26,E2$) 7650 GET E2$,20:DV$ 7660 EXEC FE(W,40,E2$) 7670 CLOSE E2$ 7680 EXEC FE(W,27,E2$) 7690 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$ 7700 D2$=E7$+D2$;D3$=E7$+D3$;E12$=E7$+E12$;E13$=E7$+E13$;E14$=E7$+E14$ 7710 OPEN E12$,R 7720 EXEC FE(99,5,E12$) 7730 OPEN E13$,R 7740 EXEC FE(99,6,E13$) 7750 OPEN E14$,R 7760 EXEC FE(99,7,E14$) 7770 OPEN A6$,R 7780 EXEC FE(W,28,A6$) 7790 OPEN A4$,R 7800 EXEC FE(W,29,A4$) 7810 OPEN B6$,R 7820 EXEC FE(W,30,B6$) 7830 OPEN C9$,R 7840 EXEC FE(W,31,C9$) 7850 OPEN D0$,R 7860 EXEC FE(W,32,D0$) 7870 OPEN D1$,R 7880 EXEC FE(W,33,D1$) 7890 OPEN D2$,W 7900 EXEC FE(W,34,D2$) 7910 EXEC IT(M7,M9,A6$) 7920 EXEC IT(N2,N4,A4$) 7930 EXEC IT(N7,N8,B6$) 7940 EXEC IT(N11,J12,E13$) 7950 FOR X=E TO J13+J14 7960 GET E14$,X:N12(X),N13$(X) 7970 EXEC FE(99,8,E14$) 7980 NEXT X 7990 J5$(E)="Kasse debet ";J5$(G)="Kasse kredit ";J5$(V)="Bank debet " 8000 J5$(4)="Bank kredit ";J5$(5)="Giro debet ";J5$(6)="Giro kredit " 8010 B7$=" ";B7$=B7$+B7$ 8020 B9$="0+";A1$="0+";A2$="--------------------------------------" 8030 I1=B;A2$=A2$+A2$;L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(G);L3=G1(E) 8040 H5=E;J6=R4;R8=B;L4=B;B8$="0+";I3=I4+E;I2=I3;K3=E;K2=E 8050 CLEAR 8060 EXEC UH 8070 EXEC IN(1) 8080 IF J4=B THEN 8090 EXEC BF 8100 EXEC UB 8110 OPEN D3$,W 8120 EXEC FE(W,37,D3$) 8130 FOR I=E TO I4 8140 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16) 8150 IF H6<>B THEN 8160 EXEC MO(F3$,F4$) 8170 EXEC GB 8180 EXEC CA(B,F3$,A1$,A1$) 8190 EXEC UD(L2,R8) 8200 ENDIF 8210 NEXT I 8220 EXEC CA(B,F5$(E),F5$(G),F3$) 8230 EXEC CA(B,F3$,A1$,A1$) 8240 H6=S5;I7=24;H7=L2;H8=B;H16=1000000 8250 EXEC GB 8260 I7=10;H7=-E;F4$=F3$;E3$="Samlet kassepostering" 8270 EXEC UD(L2,R8) 8280 EXEC CA(B,F5$(V),F5$(4),F3$) 8290 EXEC CA(B,F3$,A1$,A1$) 8300 I7=24;H7=L2;H6=S7 8310 EXEC GB 8320 F4$=F3$;I7=10;H7=-E;E3$="Samlet bankpostering" 8330 EXEC UD(L2,R8) 8340 EXEC CA(B,F5$(5),F5$(6),F3$) 8350 EXEC CA(B,F3$,A1$,A1$) 8360 I7=24;H7=L2;H6=S6 8370 EXEC GB 8380 E3$="Samlet giropostering";F4$=F3$;I7=10;H7=-E 8390 EXEC UD(L2,R8) 8400 EXEC CA(4,A1$,B9$,B9$) 8410 IF SI<>B THEN 8420 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport" 8430 EXEC MO(F3$,A1$) 8440 EXEC GB 8450 EXEC CA(B,F3$,A1$,A1$) 8460 F4$=F3$;H7=-E 8470 EXEC UD(L2,R8) 8480 ENDIF 8490 EXEC BU 8500 CLOSE D3$ 8510 EXEC FE(W,38,D3$) 8520 I4=B 8530 FOR I=E TO 6 8540 F5$(I)="0+" 8550 NEXT I 8560 ELSE 8570 REPEAT 8580 CURSOR V,23 8590 PRINT "Ønskes kontroludskrift J/N ";B7$(E:45) 8600 CURSOR 30,23 8610 INPUT A$ 8620 EXEC NR(A$) 8630 UNTIL P=-7 OR P=-8 8640 IF P=-7 THEN 8650 T1=L2 8660 EXEC UB 8670 FOR I=E TO I4 8680 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16) 8690 EXEC UD(T1,R8) 8700 EXEC CA(E,A1$,F4$,A1$) 8710 NEXT I 8720 I7=10;H7=-E;H8=B;H6=B 8730 FOR I=E TO 6 8740 E3$=J5$(I);F4$=F5$(I) 8750 EXEC UD(T1,R8) 8760 EXEC CA(B,A1$,F4$,A1$) 8770 NEXT I 8780 EXEC BU 8790 ENDIF 8800 ENDIF 8810 EXEC SY 8820 CLOSE D2$ 8830 EXEC FE(W,39,D2$) 8840 CLOSE 8850 OUTPUT T 8860 CHAIN "P641210:OPSTART"
0x0000…0070 (0,) 8dc7 0100 DIM OP1$(12),OP2$(12),RES$(15),A1$(12),A2$(77),A3$(25),A4$(17),A5$(17)
0x0000…0070 LineComalBin {
0x0000…0070 ptr = 0x8dc7 // 0x0 @0x0
0x0000…0070 lno = 0x0064 // 0x2 @0x2
0x0000…0070 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…0070 at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…0070 at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…0070 at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…0070 at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…0070 at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…0070 at000a = ╱31╱1╱ // 0xa @0xa
0x0000…0070 at000b = ╱32╱2╱ // 0xb @0xb
0x0000…0070 at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…0070 at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…0070 at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…0070 at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…0070 at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…0070 at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…0070 at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…0070 at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…0070 at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…0070 at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…0070 at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…0070 at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…0070 at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…0070 at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…0070 at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…0070 at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…0070 at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…0070 at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…0070 at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…0070 at0027 = ╱35╱5╱ // 0x27 @0x27
0x0000…0070 at0028 = ╱fe0000f004╱ // 0x28 @0x28
0x0000…0070 at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…0070 at002e = ╱ec╱,╱ // 0x2e @0x2e
0x0000…0070 at002f = ╱41╱A╱ // 0x2f @0x2f
0x0000…0070 at0030 = ╱31╱1╱ // 0x30 @0x30
0x0000…0070 at0031 = ╱ef╱$╱ // 0x31 @0x31
0x0000…0070 at0032 = ╱ed╱(╱ // 0x32 @0x32
0x0000…0070 at0033 = ╱31╱1╱ // 0x33 @0x33
0x0000…0070 at0034 = ╱32╱2╱ // 0x34 @0x34
0x0000…0070 at0035 = ╱fe0000c004╱ // 0x35 @0x35
0x0000…0070 at003a = ╱ee╱)╱ // 0x3a @0x3a
0x0000…0070 at003b = ╱ec╱,╱ // 0x3b @0x3b
0x0000…0070 at003c = ╱41╱A╱ // 0x3c @0x3c
0x0000…0070 at003d = ╱32╱2╱ // 0x3d @0x3d
0x0000…0070 at003e = ╱ef╱$╱ // 0x3e @0x3e
0x0000…0070 at003f = ╱ed╱(╱ // 0x3f @0x3f
0x0000…0070 at0040 = ╱37╱7╱ // 0x40 @0x40
0x0000…0070 at0041 = ╱37╱7╱ // 0x41 @0x41
0x0000…0070 at0042 = ╱fe00009a07╱ // 0x42 @0x42
0x0000…0070 at0047 = ╱ee╱)╱ // 0x47 @0x47
0x0000…0070 at0048 = ╱ec╱,╱ // 0x48 @0x48
0x0000…0070 at0049 = ╱41╱A╱ // 0x49 @0x49
0x0000…0070 at004a = ╱33╱3╱ // 0x4a @0x4a
0x0000…0070 at004b = ╱ef╱$╱ // 0x4b @0x4b
0x0000…0070 at004c = ╱ed╱(╱ // 0x4c @0x4c
0x0000…0070 at004d = ╱32╱2╱ // 0x4d @0x4d
0x0000…0070 at004e = ╱35╱5╱ // 0x4e @0x4e
0x0000…0070 at004f = ╱fe0000c805╱ // 0x4f @0x4f
0x0000…0070 at0054 = ╱ee╱)╱ // 0x54 @0x54
0x0000…0070 at0055 = ╱ec╱,╱ // 0x55 @0x55
0x0000…0070 at0056 = ╱41╱A╱ // 0x56 @0x56
0x0000…0070 at0057 = ╱34╱4╱ // 0x57 @0x57
0x0000…0070 at0058 = ╱ef╱$╱ // 0x58 @0x58
0x0000…0070 at0059 = ╱ed╱(╱ // 0x59 @0x59
0x0000…0070 at005a = ╱31╱1╱ // 0x5a @0x5a
0x0000…0070 at005b = ╱37╱7╱ // 0x5b @0x5b
0x0000…0070 at005c = ╱fe00008805╱ // 0x5c @0x5c
0x0000…0070 at0061 = ╱ee╱)╱ // 0x61 @0x61
0x0000…0070 at0062 = ╱ec╱,╱ // 0x62 @0x62
0x0000…0070 at0063 = ╱41╱A╱ // 0x63 @0x63
0x0000…0070 at0064 = ╱35╱5╱ // 0x64 @0x64
0x0000…0070 at0065 = ╱ef╱$╱ // 0x65 @0x65
0x0000…0070 at0066 = ╱ed╱(╱ // 0x66 @0x66
0x0000…0070 at0067 = ╱31╱1╱ // 0x67 @0x67
0x0000…0070 at0068 = ╱37╱7╱ // 0x68 @0x68
0x0000…0070 at0069 = ╱fe00008805╱ // 0x69 @0x69
0x0000…0070 at006e = ╱ee╱)╱ // 0x6e @0x6e
0x0000…0070 at006f = EOL // 0x6f @0x6f
0x0000…0070 }
0x0070…00d7 8e2e 0110 DIM A6$(17),A7$(25),A8$(12),A9$(E),B0$(25),DV$(10),B1$(12),B2$(12)
0x0070…00d7 LineComalBin {
0x0070…00d7 ptr = 0x8e2e // 0x70 @0x0
0x0070…00d7 lno = 0x006e // 0x72 @0x2
0x0070…00d7 at0004 = ╱87╱ DIM ╱ // 0x74 @0x4
0x0070…00d7 at0005 = ╱41╱A╱ // 0x75 @0x5
0x0070…00d7 at0006 = ╱36╱6╱ // 0x76 @0x6
0x0070…00d7 at0007 = ╱ef╱$╱ // 0x77 @0x7
0x0070…00d7 at0008 = ╱ed╱(╱ // 0x78 @0x8
0x0070…00d7 at0009 = ╱31╱1╱ // 0x79 @0x9
0x0070…00d7 at000a = ╱37╱7╱ // 0x7a @0xa
0x0070…00d7 at000b = ╱fe00008805╱ // 0x7b @0xb
0x0070…00d7 at0010 = ╱ee╱)╱ // 0x80 @0x10
0x0070…00d7 at0011 = ╱ec╱,╱ // 0x81 @0x11
0x0070…00d7 at0012 = ╱41╱A╱ // 0x82 @0x12
0x0070…00d7 at0013 = ╱37╱7╱ // 0x83 @0x13
0x0070…00d7 at0014 = ╱ef╱$╱ // 0x84 @0x14
0x0070…00d7 at0015 = ╱ed╱(╱ // 0x85 @0x15
0x0070…00d7 at0016 = ╱32╱2╱ // 0x86 @0x16
0x0070…00d7 at0017 = ╱35╱5╱ // 0x87 @0x17
0x0070…00d7 at0018 = ╱fe0000c805╱ // 0x88 @0x18
0x0070…00d7 at001d = ╱ee╱)╱ // 0x8d @0x1d
0x0070…00d7 at001e = ╱ec╱,╱ // 0x8e @0x1e
0x0070…00d7 at001f = ╱41╱A╱ // 0x8f @0x1f
0x0070…00d7 at0020 = ╱38╱8╱ // 0x90 @0x20
0x0070…00d7 at0021 = ╱ef╱$╱ // 0x91 @0x21
0x0070…00d7 at0022 = ╱ed╱(╱ // 0x92 @0x22
0x0070…00d7 at0023 = ╱31╱1╱ // 0x93 @0x23
0x0070…00d7 at0024 = ╱32╱2╱ // 0x94 @0x24
0x0070…00d7 at0025 = ╱fe0000c004╱ // 0x95 @0x25
0x0070…00d7 at002a = ╱ee╱)╱ // 0x9a @0x2a
0x0070…00d7 at002b = ╱ec╱,╱ // 0x9b @0x2b
0x0070…00d7 at002c = ╱41╱A╱ // 0x9c @0x2c
0x0070…00d7 at002d = ╱39╱9╱ // 0x9d @0x2d
0x0070…00d7 at002e = ╱ef╱$╱ // 0x9e @0x2e
0x0070…00d7 at002f = ╱ed╱(╱ // 0x9f @0x2f
0x0070…00d7 at0030 = ╱45╱E╱ // 0xa0 @0x30
0x0070…00d7 at0031 = ╱ee╱)╱ // 0xa1 @0x31
0x0070…00d7 at0032 = ╱ec╱,╱ // 0xa2 @0x32
0x0070…00d7 at0033 = ╱42╱B╱ // 0xa3 @0x33
0x0070…00d7 at0034 = ╱30╱0╱ // 0xa4 @0x34
0x0070…00d7 at0035 = ╱ef╱$╱ // 0xa5 @0x35
0x0070…00d7 at0036 = ╱ed╱(╱ // 0xa6 @0x36
0x0070…00d7 at0037 = ╱32╱2╱ // 0xa7 @0x37
0x0070…00d7 at0038 = ╱35╱5╱ // 0xa8 @0x38
0x0070…00d7 at0039 = ╱fe0000c805╱ // 0xa9 @0x39
0x0070…00d7 at003e = ╱ee╱)╱ // 0xae @0x3e
0x0070…00d7 at003f = ╱ec╱,╱ // 0xaf @0x3f
0x0070…00d7 at0040 = ╱44╱D╱ // 0xb0 @0x40
0x0070…00d7 at0041 = ╱56╱V╱ // 0xb1 @0x41
0x0070…00d7 at0042 = ╱ef╱$╱ // 0xb2 @0x42
0x0070…00d7 at0043 = ╱ed╱(╱ // 0xb3 @0x43
0x0070…00d7 at0044 = ╱31╱1╱ // 0xb4 @0x44
0x0070…00d7 at0045 = ╱30╱0╱ // 0xb5 @0x45
0x0070…00d7 at0046 = ╱fe0000a004╱ // 0xb6 @0x46
0x0070…00d7 at004b = ╱ee╱)╱ // 0xbb @0x4b
0x0070…00d7 at004c = ╱ec╱,╱ // 0xbc @0x4c
0x0070…00d7 at004d = ╱42╱B╱ // 0xbd @0x4d
0x0070…00d7 at004e = ╱31╱1╱ // 0xbe @0x4e
0x0070…00d7 at004f = ╱ef╱$╱ // 0xbf @0x4f
0x0070…00d7 at0050 = ╱ed╱(╱ // 0xc0 @0x50
0x0070…00d7 at0051 = ╱31╱1╱ // 0xc1 @0x51
0x0070…00d7 at0052 = ╱32╱2╱ // 0xc2 @0x52
0x0070…00d7 at0053 = ╱fe0000c004╱ // 0xc3 @0x53
0x0070…00d7 at0058 = ╱ee╱)╱ // 0xc8 @0x58
0x0070…00d7 at0059 = ╱ec╱,╱ // 0xc9 @0x59
0x0070…00d7 at005a = ╱42╱B╱ // 0xca @0x5a
0x0070…00d7 at005b = ╱32╱2╱ // 0xcb @0x5b
0x0070…00d7 at005c = ╱ef╱$╱ // 0xcc @0x5c
0x0070…00d7 at005d = ╱ed╱(╱ // 0xcd @0x5d
0x0070…00d7 at005e = ╱31╱1╱ // 0xce @0x5e
0x0070…00d7 at005f = ╱32╱2╱ // 0xcf @0x5f
0x0070…00d7 at0060 = ╱fe0000c004╱ // 0xd0 @0x60
0x0070…00d7 at0065 = ╱ee╱)╱ // 0xd5 @0x65
0x0070…00d7 at0066 = EOL // 0xd6 @0x66
0x0070…00d7 }
0x00d7…013e 8e95 0120 DIM B3$(12),B4$(29),B5$(25),B6$(17),B7$(77),B8$(14),B9$(12),C0$(W)
0x00d7…013e LineComalBin {
0x00d7…013e ptr = 0x8e95 // 0xd7 @0x0
0x00d7…013e lno = 0x0078 // 0xd9 @0x2
0x00d7…013e at0004 = ╱87╱ DIM ╱ // 0xdb @0x4
0x00d7…013e at0005 = ╱42╱B╱ // 0xdc @0x5
0x00d7…013e at0006 = ╱33╱3╱ // 0xdd @0x6
0x00d7…013e at0007 = ╱ef╱$╱ // 0xde @0x7
0x00d7…013e at0008 = ╱ed╱(╱ // 0xdf @0x8
0x00d7…013e at0009 = ╱31╱1╱ // 0xe0 @0x9
0x00d7…013e at000a = ╱32╱2╱ // 0xe1 @0xa
0x00d7…013e at000b = ╱fe0000c004╱ // 0xe2 @0xb
0x00d7…013e at0010 = ╱ee╱)╱ // 0xe7 @0x10
0x00d7…013e at0011 = ╱ec╱,╱ // 0xe8 @0x11
0x00d7…013e at0012 = ╱42╱B╱ // 0xe9 @0x12
0x00d7…013e at0013 = ╱34╱4╱ // 0xea @0x13
0x00d7…013e at0014 = ╱ef╱$╱ // 0xeb @0x14
0x00d7…013e at0015 = ╱ed╱(╱ // 0xec @0x15
0x00d7…013e at0016 = ╱32╱2╱ // 0xed @0x16
0x00d7…013e at0017 = ╱39╱9╱ // 0xee @0x17
0x00d7…013e at0018 = ╱fe0000e805╱ // 0xef @0x18
0x00d7…013e at001d = ╱ee╱)╱ // 0xf4 @0x1d
0x00d7…013e at001e = ╱ec╱,╱ // 0xf5 @0x1e
0x00d7…013e at001f = ╱42╱B╱ // 0xf6 @0x1f
0x00d7…013e at0020 = ╱35╱5╱ // 0xf7 @0x20
0x00d7…013e at0021 = ╱ef╱$╱ // 0xf8 @0x21
0x00d7…013e at0022 = ╱ed╱(╱ // 0xf9 @0x22
0x00d7…013e at0023 = ╱32╱2╱ // 0xfa @0x23
0x00d7…013e at0024 = ╱35╱5╱ // 0xfb @0x24
0x00d7…013e at0025 = ╱fe0000c805╱ // 0xfc @0x25
0x00d7…013e at002a = ╱ee╱)╱ // 0x101 @0x2a
0x00d7…013e at002b = ╱ec╱,╱ // 0x102 @0x2b
0x00d7…013e at002c = ╱42╱B╱ // 0x103 @0x2c
0x00d7…013e at002d = ╱36╱6╱ // 0x104 @0x2d
0x00d7…013e at002e = ╱ef╱$╱ // 0x105 @0x2e
0x00d7…013e at002f = ╱ed╱(╱ // 0x106 @0x2f
0x00d7…013e at0030 = ╱31╱1╱ // 0x107 @0x30
0x00d7…013e at0031 = ╱37╱7╱ // 0x108 @0x31
0x00d7…013e at0032 = ╱fe00008805╱ // 0x109 @0x32
0x00d7…013e at0037 = ╱ee╱)╱ // 0x10e @0x37
0x00d7…013e at0038 = ╱ec╱,╱ // 0x10f @0x38
0x00d7…013e at0039 = ╱42╱B╱ // 0x110 @0x39
0x00d7…013e at003a = ╱37╱7╱ // 0x111 @0x3a
0x00d7…013e at003b = ╱ef╱$╱ // 0x112 @0x3b
0x00d7…013e at003c = ╱ed╱(╱ // 0x113 @0x3c
0x00d7…013e at003d = ╱37╱7╱ // 0x114 @0x3d
0x00d7…013e at003e = ╱37╱7╱ // 0x115 @0x3e
0x00d7…013e at003f = ╱fe00009a07╱ // 0x116 @0x3f
0x00d7…013e at0044 = ╱ee╱)╱ // 0x11b @0x44
0x00d7…013e at0045 = ╱ec╱,╱ // 0x11c @0x45
0x00d7…013e at0046 = ╱42╱B╱ // 0x11d @0x46
0x00d7…013e at0047 = ╱38╱8╱ // 0x11e @0x47
0x00d7…013e at0048 = ╱ef╱$╱ // 0x11f @0x48
0x00d7…013e at0049 = ╱ed╱(╱ // 0x120 @0x49
0x00d7…013e at004a = ╱31╱1╱ // 0x121 @0x4a
0x00d7…013e at004b = ╱34╱4╱ // 0x122 @0x4b
0x00d7…013e at004c = ╱fe0000e004╱ // 0x123 @0x4c
0x00d7…013e at0051 = ╱ee╱)╱ // 0x128 @0x51
0x00d7…013e at0052 = ╱ec╱,╱ // 0x129 @0x52
0x00d7…013e at0053 = ╱42╱B╱ // 0x12a @0x53
0x00d7…013e at0054 = ╱39╱9╱ // 0x12b @0x54
0x00d7…013e at0055 = ╱ef╱$╱ // 0x12c @0x55
0x00d7…013e at0056 = ╱ed╱(╱ // 0x12d @0x56
0x00d7…013e at0057 = ╱31╱1╱ // 0x12e @0x57
0x00d7…013e at0058 = ╱32╱2╱ // 0x12f @0x58
0x00d7…013e at0059 = ╱fe0000c004╱ // 0x130 @0x59
0x00d7…013e at005e = ╱ee╱)╱ // 0x135 @0x5e
0x00d7…013e at005f = ╱ec╱,╱ // 0x136 @0x5f
0x00d7…013e at0060 = ╱43╱C╱ // 0x137 @0x60
0x00d7…013e at0061 = ╱30╱0╱ // 0x138 @0x61
0x00d7…013e at0062 = ╱ef╱$╱ // 0x139 @0x62
0x00d7…013e at0063 = ╱ed╱(╱ // 0x13a @0x63
0x00d7…013e at0064 = ╱57╱W╱ // 0x13b @0x64
0x00d7…013e at0065 = ╱ee╱)╱ // 0x13c @0x65
0x00d7…013e at0066 = EOL // 0x13d @0x66
0x00d7…013e }
0x013e…019f 8ef6 0130 DIM C1$(20),C2$(17),C3$(12),C4$(12),C5$(E),A$(G),C6$(12),C7$(E),C8$(E)
0x013e…019f LineComalBin {
0x013e…019f ptr = 0x8ef6 // 0x13e @0x0
0x013e…019f lno = 0x0082 // 0x140 @0x2
0x013e…019f at0004 = ╱87╱ DIM ╱ // 0x142 @0x4
0x013e…019f at0005 = ╱43╱C╱ // 0x143 @0x5
0x013e…019f at0006 = ╱31╱1╱ // 0x144 @0x6
0x013e…019f at0007 = ╱ef╱$╱ // 0x145 @0x7
0x013e…019f at0008 = ╱ed╱(╱ // 0x146 @0x8
0x013e…019f at0009 = ╱32╱2╱ // 0x147 @0x9
0x013e…019f at000a = ╱30╱0╱ // 0x148 @0xa
0x013e…019f at000b = ╱fe0000a005╱ // 0x149 @0xb
0x013e…019f at0010 = ╱ee╱)╱ // 0x14e @0x10
0x013e…019f at0011 = ╱ec╱,╱ // 0x14f @0x11
0x013e…019f at0012 = ╱43╱C╱ // 0x150 @0x12
0x013e…019f at0013 = ╱32╱2╱ // 0x151 @0x13
0x013e…019f at0014 = ╱ef╱$╱ // 0x152 @0x14
0x013e…019f at0015 = ╱ed╱(╱ // 0x153 @0x15
0x013e…019f at0016 = ╱31╱1╱ // 0x154 @0x16
0x013e…019f at0017 = ╱37╱7╱ // 0x155 @0x17
0x013e…019f at0018 = ╱fe00008805╱ // 0x156 @0x18
0x013e…019f at001d = ╱ee╱)╱ // 0x15b @0x1d
0x013e…019f at001e = ╱ec╱,╱ // 0x15c @0x1e
0x013e…019f at001f = ╱43╱C╱ // 0x15d @0x1f
0x013e…019f at0020 = ╱33╱3╱ // 0x15e @0x20
0x013e…019f at0021 = ╱ef╱$╱ // 0x15f @0x21
0x013e…019f at0022 = ╱ed╱(╱ // 0x160 @0x22
0x013e…019f at0023 = ╱31╱1╱ // 0x161 @0x23
0x013e…019f at0024 = ╱32╱2╱ // 0x162 @0x24
0x013e…019f at0025 = ╱fe0000c004╱ // 0x163 @0x25
0x013e…019f at002a = ╱ee╱)╱ // 0x168 @0x2a
0x013e…019f at002b = ╱ec╱,╱ // 0x169 @0x2b
0x013e…019f at002c = ╱43╱C╱ // 0x16a @0x2c
0x013e…019f at002d = ╱34╱4╱ // 0x16b @0x2d
0x013e…019f at002e = ╱ef╱$╱ // 0x16c @0x2e
0x013e…019f at002f = ╱ed╱(╱ // 0x16d @0x2f
0x013e…019f at0030 = ╱31╱1╱ // 0x16e @0x30
0x013e…019f at0031 = ╱32╱2╱ // 0x16f @0x31
0x013e…019f at0032 = ╱fe0000c004╱ // 0x170 @0x32
0x013e…019f at0037 = ╱ee╱)╱ // 0x175 @0x37
0x013e…019f at0038 = ╱ec╱,╱ // 0x176 @0x38
0x013e…019f at0039 = ╱43╱C╱ // 0x177 @0x39
0x013e…019f at003a = ╱35╱5╱ // 0x178 @0x3a
0x013e…019f at003b = ╱ef╱$╱ // 0x179 @0x3b
0x013e…019f at003c = ╱ed╱(╱ // 0x17a @0x3c
0x013e…019f at003d = ╱45╱E╱ // 0x17b @0x3d
0x013e…019f at003e = ╱ee╱)╱ // 0x17c @0x3e
0x013e…019f at003f = ╱ec╱,╱ // 0x17d @0x3f
0x013e…019f at0040 = ╱41╱A╱ // 0x17e @0x40
0x013e…019f at0041 = ╱ef╱$╱ // 0x17f @0x41
0x013e…019f at0042 = ╱ed╱(╱ // 0x180 @0x42
0x013e…019f at0043 = ╱47╱G╱ // 0x181 @0x43
0x013e…019f at0044 = ╱ee╱)╱ // 0x182 @0x44
0x013e…019f at0045 = ╱ec╱,╱ // 0x183 @0x45
0x013e…019f at0046 = ╱43╱C╱ // 0x184 @0x46
0x013e…019f at0047 = ╱36╱6╱ // 0x185 @0x47
0x013e…019f at0048 = ╱ef╱$╱ // 0x186 @0x48
0x013e…019f at0049 = ╱ed╱(╱ // 0x187 @0x49
0x013e…019f at004a = ╱31╱1╱ // 0x188 @0x4a
0x013e…019f at004b = ╱32╱2╱ // 0x189 @0x4b
0x013e…019f at004c = ╱fe0000c004╱ // 0x18a @0x4c
0x013e…019f at0051 = ╱ee╱)╱ // 0x18f @0x51
0x013e…019f at0052 = ╱ec╱,╱ // 0x190 @0x52
0x013e…019f at0053 = ╱43╱C╱ // 0x191 @0x53
0x013e…019f at0054 = ╱37╱7╱ // 0x192 @0x54
0x013e…019f at0055 = ╱ef╱$╱ // 0x193 @0x55
0x013e…019f at0056 = ╱ed╱(╱ // 0x194 @0x56
0x013e…019f at0057 = ╱45╱E╱ // 0x195 @0x57
0x013e…019f at0058 = ╱ee╱)╱ // 0x196 @0x58
0x013e…019f at0059 = ╱ec╱,╱ // 0x197 @0x59
0x013e…019f at005a = ╱43╱C╱ // 0x198 @0x5a
0x013e…019f at005b = ╱38╱8╱ // 0x199 @0x5b
0x013e…019f at005c = ╱ef╱$╱ // 0x19a @0x5c
0x013e…019f at005d = ╱ed╱(╱ // 0x19b @0x5d
0x013e…019f at005e = ╱45╱E╱ // 0x19c @0x5e
0x013e…019f at005f = ╱ee╱)╱ // 0x19d @0x5f
0x013e…019f at0060 = EOL // 0x19e @0x60
0x013e…019f }
0x019f…020a 8f61 0140 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8)
0x019f…020a LineComalBin {
0x019f…020a ptr = 0x8f61 // 0x19f @0x0
0x019f…020a lno = 0x008c // 0x1a1 @0x2
0x019f…020a at0004 = ╱87╱ DIM ╱ // 0x1a3 @0x4
0x019f…020a at0005 = ╱43╱C╱ // 0x1a4 @0x5
0x019f…020a at0006 = ╱39╱9╱ // 0x1a5 @0x6
0x019f…020a at0007 = ╱ef╱$╱ // 0x1a6 @0x7
0x019f…020a at0008 = ╱ed╱(╱ // 0x1a7 @0x8
0x019f…020a at0009 = ╱31╱1╱ // 0x1a8 @0x9
0x019f…020a at000a = ╱37╱7╱ // 0x1a9 @0xa
0x019f…020a at000b = ╱fe00008805╱ // 0x1aa @0xb
0x019f…020a at0010 = ╱ee╱)╱ // 0x1af @0x10
0x019f…020a at0011 = ╱ec╱,╱ // 0x1b0 @0x11
0x019f…020a at0012 = ╱44╱D╱ // 0x1b1 @0x12
0x019f…020a at0013 = ╱30╱0╱ // 0x1b2 @0x13
0x019f…020a at0014 = ╱ef╱$╱ // 0x1b3 @0x14
0x019f…020a at0015 = ╱ed╱(╱ // 0x1b4 @0x15
0x019f…020a at0016 = ╱31╱1╱ // 0x1b5 @0x16
0x019f…020a at0017 = ╱37╱7╱ // 0x1b6 @0x17
0x019f…020a at0018 = ╱fe00008805╱ // 0x1b7 @0x18
0x019f…020a at001d = ╱ee╱)╱ // 0x1bc @0x1d
0x019f…020a at001e = ╱ec╱,╱ // 0x1bd @0x1e
0x019f…020a at001f = ╱44╱D╱ // 0x1be @0x1f
0x019f…020a at0020 = ╱31╱1╱ // 0x1bf @0x20
0x019f…020a at0021 = ╱ef╱$╱ // 0x1c0 @0x21
0x019f…020a at0022 = ╱ed╱(╱ // 0x1c1 @0x22
0x019f…020a at0023 = ╱31╱1╱ // 0x1c2 @0x23
0x019f…020a at0024 = ╱37╱7╱ // 0x1c3 @0x24
0x019f…020a at0025 = ╱fe00008805╱ // 0x1c4 @0x25
0x019f…020a at002a = ╱ee╱)╱ // 0x1c9 @0x2a
0x019f…020a at002b = ╱ec╱,╱ // 0x1ca @0x2b
0x019f…020a at002c = ╱44╱D╱ // 0x1cb @0x2c
0x019f…020a at002d = ╱32╱2╱ // 0x1cc @0x2d
0x019f…020a at002e = ╱ef╱$╱ // 0x1cd @0x2e
0x019f…020a at002f = ╱ed╱(╱ // 0x1ce @0x2f
0x019f…020a at0030 = ╱31╱1╱ // 0x1cf @0x30
0x019f…020a at0031 = ╱37╱7╱ // 0x1d0 @0x31
0x019f…020a at0032 = ╱fe00008805╱ // 0x1d1 @0x32
0x019f…020a at0037 = ╱ee╱)╱ // 0x1d6 @0x37
0x019f…020a at0038 = ╱ec╱,╱ // 0x1d7 @0x38
0x019f…020a at0039 = ╱44╱D╱ // 0x1d8 @0x39
0x019f…020a at003a = ╱33╱3╱ // 0x1d9 @0x3a
0x019f…020a at003b = ╱ef╱$╱ // 0x1da @0x3b
0x019f…020a at003c = ╱ed╱(╱ // 0x1db @0x3c
0x019f…020a at003d = ╱31╱1╱ // 0x1dc @0x3d
0x019f…020a at003e = ╱37╱7╱ // 0x1dd @0x3e
0x019f…020a at003f = ╱fe00008805╱ // 0x1de @0x3f
0x019f…020a at0044 = ╱ee╱)╱ // 0x1e3 @0x44
0x019f…020a at0045 = ╱ec╱,╱ // 0x1e4 @0x45
0x019f…020a at0046 = ╱44╱D╱ // 0x1e5 @0x46
0x019f…020a at0047 = ╱34╱4╱ // 0x1e6 @0x47
0x019f…020a at0048 = ╱ef╱$╱ // 0x1e7 @0x48
0x019f…020a at0049 = ╱ed╱(╱ // 0x1e8 @0x49
0x019f…020a at004a = ╱32╱2╱ // 0x1e9 @0x4a
0x019f…020a at004b = ╱36╱6╱ // 0x1ea @0x4b
0x019f…020a at004c = ╱fe0000d005╱ // 0x1eb @0x4c
0x019f…020a at0051 = ╱ee╱)╱ // 0x1f0 @0x51
0x019f…020a at0052 = ╱ec╱,╱ // 0x1f1 @0x52
0x019f…020a at0053 = ╱44╱D╱ // 0x1f2 @0x53
0x019f…020a at0054 = ╱35╱5╱ // 0x1f3 @0x54
0x019f…020a at0055 = ╱ef╱$╱ // 0x1f4 @0x55
0x019f…020a at0056 = ╱ed╱(╱ // 0x1f5 @0x56
0x019f…020a at0057 = ╱37╱7╱ // 0x1f6 @0x57
0x019f…020a at0058 = ╱fe0000e003╱ // 0x1f7 @0x58
0x019f…020a at005d = ╱ee╱)╱ // 0x1fc @0x5d
0x019f…020a at005e = ╱ec╱,╱ // 0x1fd @0x5e
0x019f…020a at005f = ╱44╱D╱ // 0x1fe @0x5f
0x019f…020a at0060 = ╱36╱6╱ // 0x1ff @0x60
0x019f…020a at0061 = ╱ef╱$╱ // 0x200 @0x61
0x019f…020a at0062 = ╱ed╱(╱ // 0x201 @0x62
0x019f…020a at0063 = ╱38╱8╱ // 0x202 @0x63
0x019f…020a at0064 = ╱fe00008004╱ // 0x203 @0x64
0x019f…020a at0069 = ╱ee╱)╱ // 0x208 @0x69
0x019f…020a at006a = EOL // 0x209 @0x6a
0x019f…020a }
0x020a…0277 8fce 0150 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12),E2$(17),E3$(25),E4$(25)
0x020a…0277 LineComalBin {
0x020a…0277 ptr = 0x8fce // 0x20a @0x0
0x020a…0277 lno = 0x0096 // 0x20c @0x2
0x020a…0277 at0004 = ╱87╱ DIM ╱ // 0x20e @0x4
0x020a…0277 at0005 = ╱44╱D╱ // 0x20f @0x5
0x020a…0277 at0006 = ╱37╱7╱ // 0x210 @0x6
0x020a…0277 at0007 = ╱ef╱$╱ // 0x211 @0x7
0x020a…0277 at0008 = ╱ed╱(╱ // 0x212 @0x8
0x020a…0277 at0009 = ╱31╱1╱ // 0x213 @0x9
0x020a…0277 at000a = ╱32╱2╱ // 0x214 @0xa
0x020a…0277 at000b = ╱fe0000c004╱ // 0x215 @0xb
0x020a…0277 at0010 = ╱ee╱)╱ // 0x21a @0x10
0x020a…0277 at0011 = ╱ec╱,╱ // 0x21b @0x11
0x020a…0277 at0012 = ╱44╱D╱ // 0x21c @0x12
0x020a…0277 at0013 = ╱38╱8╱ // 0x21d @0x13
0x020a…0277 at0014 = ╱ef╱$╱ // 0x21e @0x14
0x020a…0277 at0015 = ╱ed╱(╱ // 0x21f @0x15
0x020a…0277 at0016 = ╱31╱1╱ // 0x220 @0x16
0x020a…0277 at0017 = ╱32╱2╱ // 0x221 @0x17
0x020a…0277 at0018 = ╱fe0000c004╱ // 0x222 @0x18
0x020a…0277 at001d = ╱ee╱)╱ // 0x227 @0x1d
0x020a…0277 at001e = ╱ec╱,╱ // 0x228 @0x1e
0x020a…0277 at001f = ╱44╱D╱ // 0x229 @0x1f
0x020a…0277 at0020 = ╱39╱9╱ // 0x22a @0x20
0x020a…0277 at0021 = ╱ef╱$╱ // 0x22b @0x21
0x020a…0277 at0022 = ╱ed╱(╱ // 0x22c @0x22
0x020a…0277 at0023 = ╱31╱1╱ // 0x22d @0x23
0x020a…0277 at0024 = ╱32╱2╱ // 0x22e @0x24
0x020a…0277 at0025 = ╱fe0000c004╱ // 0x22f @0x25
0x020a…0277 at002a = ╱ee╱)╱ // 0x234 @0x2a
0x020a…0277 at002b = ╱ec╱,╱ // 0x235 @0x2b
0x020a…0277 at002c = ╱45╱E╱ // 0x236 @0x2c
0x020a…0277 at002d = ╱30╱0╱ // 0x237 @0x2d
0x020a…0277 at002e = ╱ef╱$╱ // 0x238 @0x2e
0x020a…0277 at002f = ╱ed╱(╱ // 0x239 @0x2f
0x020a…0277 at0030 = ╱31╱1╱ // 0x23a @0x30
0x020a…0277 at0031 = ╱32╱2╱ // 0x23b @0x31
0x020a…0277 at0032 = ╱fe0000c004╱ // 0x23c @0x32
0x020a…0277 at0037 = ╱ee╱)╱ // 0x241 @0x37
0x020a…0277 at0038 = ╱ec╱,╱ // 0x242 @0x38
0x020a…0277 at0039 = ╱45╱E╱ // 0x243 @0x39
0x020a…0277 at003a = ╱31╱1╱ // 0x244 @0x3a
0x020a…0277 at003b = ╱ef╱$╱ // 0x245 @0x3b
0x020a…0277 at003c = ╱ed╱(╱ // 0x246 @0x3c
0x020a…0277 at003d = ╱31╱1╱ // 0x247 @0x3d
0x020a…0277 at003e = ╱32╱2╱ // 0x248 @0x3e
0x020a…0277 at003f = ╱fe0000c004╱ // 0x249 @0x3f
0x020a…0277 at0044 = ╱ee╱)╱ // 0x24e @0x44
0x020a…0277 at0045 = ╱ec╱,╱ // 0x24f @0x45
0x020a…0277 at0046 = ╱45╱E╱ // 0x250 @0x46
0x020a…0277 at0047 = ╱32╱2╱ // 0x251 @0x47
0x020a…0277 at0048 = ╱ef╱$╱ // 0x252 @0x48
0x020a…0277 at0049 = ╱ed╱(╱ // 0x253 @0x49
0x020a…0277 at004a = ╱31╱1╱ // 0x254 @0x4a
0x020a…0277 at004b = ╱37╱7╱ // 0x255 @0x4b
0x020a…0277 at004c = ╱fe00008805╱ // 0x256 @0x4c
0x020a…0277 at0051 = ╱ee╱)╱ // 0x25b @0x51
0x020a…0277 at0052 = ╱ec╱,╱ // 0x25c @0x52
0x020a…0277 at0053 = ╱45╱E╱ // 0x25d @0x53
0x020a…0277 at0054 = ╱33╱3╱ // 0x25e @0x54
0x020a…0277 at0055 = ╱ef╱$╱ // 0x25f @0x55
0x020a…0277 at0056 = ╱ed╱(╱ // 0x260 @0x56
0x020a…0277 at0057 = ╱32╱2╱ // 0x261 @0x57
0x020a…0277 at0058 = ╱35╱5╱ // 0x262 @0x58
0x020a…0277 at0059 = ╱fe0000c805╱ // 0x263 @0x59
0x020a…0277 at005e = ╱ee╱)╱ // 0x268 @0x5e
0x020a…0277 at005f = ╱ec╱,╱ // 0x269 @0x5f
0x020a…0277 at0060 = ╱45╱E╱ // 0x26a @0x60
0x020a…0277 at0061 = ╱34╱4╱ // 0x26b @0x61
0x020a…0277 at0062 = ╱ef╱$╱ // 0x26c @0x62
0x020a…0277 at0063 = ╱ed╱(╱ // 0x26d @0x63
0x020a…0277 at0064 = ╱32╱2╱ // 0x26e @0x64
0x020a…0277 at0065 = ╱35╱5╱ // 0x26f @0x65
0x020a…0277 at0066 = ╱fe0000c805╱ // 0x270 @0x66
0x020a…0277 at006b = ╱ee╱)╱ // 0x275 @0x6b
0x020a…0277 at006c = EOL // 0x276 @0x6c
0x020a…0277 }
0x0277…02d8 902f 0160 DIM E5$(18,10),E6$(E),E7$(6),E8(W),E9$(17),F0(W),F1$(E),F2$(E),F3$(12)
0x0277…02d8 LineComalBin {
0x0277…02d8 ptr = 0x902f // 0x277 @0x0
0x0277…02d8 lno = 0x00a0 // 0x279 @0x2
0x0277…02d8 at0004 = ╱87╱ DIM ╱ // 0x27b @0x4
0x0277…02d8 at0005 = ╱45╱E╱ // 0x27c @0x5
0x0277…02d8 at0006 = ╱35╱5╱ // 0x27d @0x6
0x0277…02d8 at0007 = ╱ef╱$╱ // 0x27e @0x7
0x0277…02d8 at0008 = ╱ed╱(╱ // 0x27f @0x8
0x0277…02d8 at0009 = ╱31╱1╱ // 0x280 @0x9
0x0277…02d8 at000a = ╱38╱8╱ // 0x281 @0xa
0x0277…02d8 at000b = ╱fe00009005╱ // 0x282 @0xb
0x0277…02d8 at0010 = ╱ec╱,╱ // 0x287 @0x10
0x0277…02d8 at0011 = ╱31╱1╱ // 0x288 @0x11
0x0277…02d8 at0012 = ╱30╱0╱ // 0x289 @0x12
0x0277…02d8 at0013 = ╱fe0000a004╱ // 0x28a @0x13
0x0277…02d8 at0018 = ╱ee╱)╱ // 0x28f @0x18
0x0277…02d8 at0019 = ╱ec╱,╱ // 0x290 @0x19
0x0277…02d8 at001a = ╱45╱E╱ // 0x291 @0x1a
0x0277…02d8 at001b = ╱36╱6╱ // 0x292 @0x1b
0x0277…02d8 at001c = ╱ef╱$╱ // 0x293 @0x1c
0x0277…02d8 at001d = ╱ed╱(╱ // 0x294 @0x1d
0x0277…02d8 at001e = ╱45╱E╱ // 0x295 @0x1e
0x0277…02d8 at001f = ╱ee╱)╱ // 0x296 @0x1f
0x0277…02d8 at0020 = ╱ec╱,╱ // 0x297 @0x20
0x0277…02d8 at0021 = ╱45╱E╱ // 0x298 @0x21
0x0277…02d8 at0022 = ╱37╱7╱ // 0x299 @0x22
0x0277…02d8 at0023 = ╱ef╱$╱ // 0x29a @0x23
0x0277…02d8 at0024 = ╱ed╱(╱ // 0x29b @0x24
0x0277…02d8 at0025 = ╱36╱6╱ // 0x29c @0x25
0x0277…02d8 at0026 = ╱fe0000c003╱ // 0x29d @0x26
0x0277…02d8 at002b = ╱ee╱)╱ // 0x2a2 @0x2b
0x0277…02d8 at002c = ╱ec╱,╱ // 0x2a3 @0x2c
0x0277…02d8 at002d = ╱45╱E╱ // 0x2a4 @0x2d
0x0277…02d8 at002e = ╱38╱8╱ // 0x2a5 @0x2e
0x0277…02d8 at002f = ╱ed╱(╱ // 0x2a6 @0x2f
0x0277…02d8 at0030 = ╱57╱W╱ // 0x2a7 @0x30
0x0277…02d8 at0031 = ╱ee╱)╱ // 0x2a8 @0x31
0x0277…02d8 at0032 = ╱ec╱,╱ // 0x2a9 @0x32
0x0277…02d8 at0033 = ╱45╱E╱ // 0x2aa @0x33
0x0277…02d8 at0034 = ╱39╱9╱ // 0x2ab @0x34
0x0277…02d8 at0035 = ╱ef╱$╱ // 0x2ac @0x35
0x0277…02d8 at0036 = ╱ed╱(╱ // 0x2ad @0x36
0x0277…02d8 at0037 = ╱31╱1╱ // 0x2ae @0x37
0x0277…02d8 at0038 = ╱37╱7╱ // 0x2af @0x38
0x0277…02d8 at0039 = ╱fe00008805╱ // 0x2b0 @0x39
0x0277…02d8 at003e = ╱ee╱)╱ // 0x2b5 @0x3e
0x0277…02d8 at003f = ╱ec╱,╱ // 0x2b6 @0x3f
0x0277…02d8 at0040 = ╱46╱F╱ // 0x2b7 @0x40
0x0277…02d8 at0041 = ╱30╱0╱ // 0x2b8 @0x41
0x0277…02d8 at0042 = ╱ed╱(╱ // 0x2b9 @0x42
0x0277…02d8 at0043 = ╱57╱W╱ // 0x2ba @0x43
0x0277…02d8 at0044 = ╱ee╱)╱ // 0x2bb @0x44
0x0277…02d8 at0045 = ╱ec╱,╱ // 0x2bc @0x45
0x0277…02d8 at0046 = ╱46╱F╱ // 0x2bd @0x46
0x0277…02d8 at0047 = ╱31╱1╱ // 0x2be @0x47
0x0277…02d8 at0048 = ╱ef╱$╱ // 0x2bf @0x48
0x0277…02d8 at0049 = ╱ed╱(╱ // 0x2c0 @0x49
0x0277…02d8 at004a = ╱45╱E╱ // 0x2c1 @0x4a
0x0277…02d8 at004b = ╱ee╱)╱ // 0x2c2 @0x4b
0x0277…02d8 at004c = ╱ec╱,╱ // 0x2c3 @0x4c
0x0277…02d8 at004d = ╱46╱F╱ // 0x2c4 @0x4d
0x0277…02d8 at004e = ╱32╱2╱ // 0x2c5 @0x4e
0x0277…02d8 at004f = ╱ef╱$╱ // 0x2c6 @0x4f
0x0277…02d8 at0050 = ╱ed╱(╱ // 0x2c7 @0x50
0x0277…02d8 at0051 = ╱45╱E╱ // 0x2c8 @0x51
0x0277…02d8 at0052 = ╱ee╱)╱ // 0x2c9 @0x52
0x0277…02d8 at0053 = ╱ec╱,╱ // 0x2ca @0x53
0x0277…02d8 at0054 = ╱46╱F╱ // 0x2cb @0x54
0x0277…02d8 at0055 = ╱33╱3╱ // 0x2cc @0x55
0x0277…02d8 at0056 = ╱ef╱$╱ // 0x2cd @0x56
0x0277…02d8 at0057 = ╱ed╱(╱ // 0x2ce @0x57
0x0277…02d8 at0058 = ╱31╱1╱ // 0x2cf @0x58
0x0277…02d8 at0059 = ╱32╱2╱ // 0x2d0 @0x59
0x0277…02d8 at005a = ╱fe0000c004╱ // 0x2d1 @0x5a
0x0277…02d8 at005f = ╱ee╱)╱ // 0x2d6 @0x5f
0x0277…02d8 at0060 = EOL // 0x2d7 @0x60
0x0277…02d8 }
0x02d8…0346 909d 0170 DIM F4$(12),F5$(6,12),F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(E),G1(W)
0x02d8…0346 LineComalBin {
0x02d8…0346 ptr = 0x909d // 0x2d8 @0x0
0x02d8…0346 lno = 0x00aa // 0x2da @0x2
0x02d8…0346 at0004 = ╱87╱ DIM ╱ // 0x2dc @0x4
0x02d8…0346 at0005 = ╱46╱F╱ // 0x2dd @0x5
0x02d8…0346 at0006 = ╱34╱4╱ // 0x2de @0x6
0x02d8…0346 at0007 = ╱ef╱$╱ // 0x2df @0x7
0x02d8…0346 at0008 = ╱ed╱(╱ // 0x2e0 @0x8
0x02d8…0346 at0009 = ╱31╱1╱ // 0x2e1 @0x9
0x02d8…0346 at000a = ╱32╱2╱ // 0x2e2 @0xa
0x02d8…0346 at000b = ╱fe0000c004╱ // 0x2e3 @0xb
0x02d8…0346 at0010 = ╱ee╱)╱ // 0x2e8 @0x10
0x02d8…0346 at0011 = ╱ec╱,╱ // 0x2e9 @0x11
0x02d8…0346 at0012 = ╱46╱F╱ // 0x2ea @0x12
0x02d8…0346 at0013 = ╱35╱5╱ // 0x2eb @0x13
0x02d8…0346 at0014 = ╱ef╱$╱ // 0x2ec @0x14
0x02d8…0346 at0015 = ╱ed╱(╱ // 0x2ed @0x15
0x02d8…0346 at0016 = ╱36╱6╱ // 0x2ee @0x16
0x02d8…0346 at0017 = ╱fe0000c003╱ // 0x2ef @0x17
0x02d8…0346 at001c = ╱ec╱,╱ // 0x2f4 @0x1c
0x02d8…0346 at001d = ╱31╱1╱ // 0x2f5 @0x1d
0x02d8…0346 at001e = ╱32╱2╱ // 0x2f6 @0x1e
0x02d8…0346 at001f = ╱fe0000c004╱ // 0x2f7 @0x1f
0x02d8…0346 at0024 = ╱ee╱)╱ // 0x2fc @0x24
0x02d8…0346 at0025 = ╱ec╱,╱ // 0x2fd @0x25
0x02d8…0346 at0026 = ╱46╱F╱ // 0x2fe @0x26
0x02d8…0346 at0027 = ╱36╱6╱ // 0x2ff @0x27
0x02d8…0346 at0028 = ╱ef╱$╱ // 0x300 @0x28
0x02d8…0346 at0029 = ╱ed╱(╱ // 0x301 @0x29
0x02d8…0346 at002a = ╱31╱1╱ // 0x302 @0x2a
0x02d8…0346 at002b = ╱32╱2╱ // 0x303 @0x2b
0x02d8…0346 at002c = ╱fe0000c004╱ // 0x304 @0x2c
0x02d8…0346 at0031 = ╱ee╱)╱ // 0x309 @0x31
0x02d8…0346 at0032 = ╱ec╱,╱ // 0x30a @0x32
0x02d8…0346 at0033 = ╱46╱F╱ // 0x30b @0x33
0x02d8…0346 at0034 = ╱37╱7╱ // 0x30c @0x34
0x02d8…0346 at0035 = ╱ef╱$╱ // 0x30d @0x35
0x02d8…0346 at0036 = ╱ed╱(╱ // 0x30e @0x36
0x02d8…0346 at0037 = ╱31╱1╱ // 0x30f @0x37
0x02d8…0346 at0038 = ╱32╱2╱ // 0x310 @0x38
0x02d8…0346 at0039 = ╱fe0000c004╱ // 0x311 @0x39
0x02d8…0346 at003e = ╱ee╱)╱ // 0x316 @0x3e
0x02d8…0346 at003f = ╱ec╱,╱ // 0x317 @0x3f
0x02d8…0346 at0040 = ╱46╱F╱ // 0x318 @0x40
0x02d8…0346 at0041 = ╱38╱8╱ // 0x319 @0x41
0x02d8…0346 at0042 = ╱ef╱$╱ // 0x31a @0x42
0x02d8…0346 at0043 = ╱ed╱(╱ // 0x31b @0x43
0x02d8…0346 at0044 = ╱32╱2╱ // 0x31c @0x44
0x02d8…0346 at0045 = ╱35╱5╱ // 0x31d @0x45
0x02d8…0346 at0046 = ╱fe0000c805╱ // 0x31e @0x46
0x02d8…0346 at004b = ╱ee╱)╱ // 0x323 @0x4b
0x02d8…0346 at004c = ╱ec╱,╱ // 0x324 @0x4c
0x02d8…0346 at004d = ╱46╱F╱ // 0x325 @0x4d
0x02d8…0346 at004e = ╱39╱9╱ // 0x326 @0x4e
0x02d8…0346 at004f = ╱ef╱$╱ // 0x327 @0x4f
0x02d8…0346 at0050 = ╱ed╱(╱ // 0x328 @0x50
0x02d8…0346 at0051 = ╱36╱6╱ // 0x329 @0x51
0x02d8…0346 at0052 = ╱fe0000c003╱ // 0x32a @0x52
0x02d8…0346 at0057 = ╱ec╱,╱ // 0x32f @0x57
0x02d8…0346 at0058 = ╱31╱1╱ // 0x330 @0x58
0x02d8…0346 at0059 = ╱32╱2╱ // 0x331 @0x59
0x02d8…0346 at005a = ╱fe0000c004╱ // 0x332 @0x5a
0x02d8…0346 at005f = ╱ee╱)╱ // 0x337 @0x5f
0x02d8…0346 at0060 = ╱ec╱,╱ // 0x338 @0x60
0x02d8…0346 at0061 = ╱47╱G╱ // 0x339 @0x61
0x02d8…0346 at0062 = ╱30╱0╱ // 0x33a @0x62
0x02d8…0346 at0063 = ╱ef╱$╱ // 0x33b @0x63
0x02d8…0346 at0064 = ╱ed╱(╱ // 0x33c @0x64
0x02d8…0346 at0065 = ╱45╱E╱ // 0x33d @0x65
0x02d8…0346 at0066 = ╱ee╱)╱ // 0x33e @0x66
0x02d8…0346 at0067 = ╱ec╱,╱ // 0x33f @0x67
0x02d8…0346 at0068 = ╱47╱G╱ // 0x340 @0x68
0x02d8…0346 at0069 = ╱31╱1╱ // 0x341 @0x69
0x02d8…0346 at006a = ╱ed╱(╱ // 0x342 @0x6a
0x02d8…0346 at006b = ╱57╱W╱ // 0x343 @0x6b
0x02d8…0346 at006c = ╱ee╱)╱ // 0x344 @0x6c
0x02d8…0346 at006d = EOL // 0x345 @0x6d
0x02d8…0346 }
0x0346…03bf 9116 0180 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25),O32$(12)
0x0346…03bf LineComalBin {
0x0346…03bf ptr = 0x9116 // 0x346 @0x0
0x0346…03bf lno = 0x00b4 // 0x348 @0x2
0x0346…03bf at0004 = ╱87╱ DIM ╱ // 0x34a @0x4
0x0346…03bf at0005 = ╱47╱G╱ // 0x34b @0x5
0x0346…03bf at0006 = ╱32╱2╱ // 0x34c @0x6
0x0346…03bf at0007 = ╱ed╱(╱ // 0x34d @0x7
0x0346…03bf at0008 = ╱31╱1╱ // 0x34e @0x8
0x0346…03bf at0009 = ╱38╱8╱ // 0x34f @0x9
0x0346…03bf at000a = ╱fe00009005╱ // 0x350 @0xa
0x0346…03bf at000f = ╱ee╱)╱ // 0x355 @0xf
0x0346…03bf at0010 = ╱ec╱,╱ // 0x356 @0x10
0x0346…03bf at0011 = ╱47╱G╱ // 0x357 @0x11
0x0346…03bf at0012 = ╱33╱3╱ // 0x358 @0x12
0x0346…03bf at0013 = ╱ed╱(╱ // 0x359 @0x13
0x0346…03bf at0014 = ╱31╱1╱ // 0x35a @0x14
0x0346…03bf at0015 = ╱38╱8╱ // 0x35b @0x15
0x0346…03bf at0016 = ╱fe00009005╱ // 0x35c @0x16
0x0346…03bf at001b = ╱ee╱)╱ // 0x361 @0x1b
0x0346…03bf at001c = ╱ec╱,╱ // 0x362 @0x1c
0x0346…03bf at001d = ╱47╱G╱ // 0x363 @0x1d
0x0346…03bf at001e = ╱34╱4╱ // 0x364 @0x1e
0x0346…03bf at001f = ╱ed╱(╱ // 0x365 @0x1f
0x0346…03bf at0020 = ╱31╱1╱ // 0x366 @0x20
0x0346…03bf at0021 = ╱38╱8╱ // 0x367 @0x21
0x0346…03bf at0022 = ╱fe00009005╱ // 0x368 @0x22
0x0346…03bf at0027 = ╱ee╱)╱ // 0x36d @0x27
0x0346…03bf at0028 = ╱ec╱,╱ // 0x36e @0x28
0x0346…03bf at0029 = ╱47╱G╱ // 0x36f @0x29
0x0346…03bf at002a = ╱35╱5╱ // 0x370 @0x2a
0x0346…03bf at002b = ╱ed╱(╱ // 0x371 @0x2b
0x0346…03bf at002c = ╱31╱1╱ // 0x372 @0x2c
0x0346…03bf at002d = ╱38╱8╱ // 0x373 @0x2d
0x0346…03bf at002e = ╱fe00009005╱ // 0x374 @0x2e
0x0346…03bf at0033 = ╱ee╱)╱ // 0x379 @0x33
0x0346…03bf at0034 = ╱ec╱,╱ // 0x37a @0x34
0x0346…03bf at0035 = ╱47╱G╱ // 0x37b @0x35
0x0346…03bf at0036 = ╱36╱6╱ // 0x37c @0x36
0x0346…03bf at0037 = ╱ef╱$╱ // 0x37d @0x37
0x0346…03bf at0038 = ╱ed╱(╱ // 0x37e @0x38
0x0346…03bf at0039 = ╱31╱1╱ // 0x37f @0x39
0x0346…03bf at003a = ╱38╱8╱ // 0x380 @0x3a
0x0346…03bf at003b = ╱fe00009005╱ // 0x381 @0x3b
0x0346…03bf at0040 = ╱ec╱,╱ // 0x386 @0x40
0x0346…03bf at0041 = ╱31╱1╱ // 0x387 @0x41
0x0346…03bf at0042 = ╱32╱2╱ // 0x388 @0x42
0x0346…03bf at0043 = ╱fe0000c004╱ // 0x389 @0x43
0x0346…03bf at0048 = ╱ee╱)╱ // 0x38e @0x48
0x0346…03bf at0049 = ╱ec╱,╱ // 0x38f @0x49
0x0346…03bf at004a = ╱47╱G╱ // 0x390 @0x4a
0x0346…03bf at004b = ╱37╱7╱ // 0x391 @0x4b
0x0346…03bf at004c = ╱ed╱(╱ // 0x392 @0x4c
0x0346…03bf at004d = ╱31╱1╱ // 0x393 @0x4d
0x0346…03bf at004e = ╱38╱8╱ // 0x394 @0x4e
0x0346…03bf at004f = ╱fe00009005╱ // 0x395 @0x4f
0x0346…03bf at0054 = ╱ee╱)╱ // 0x39a @0x54
0x0346…03bf at0055 = ╱ec╱,╱ // 0x39b @0x55
0x0346…03bf at0056 = ╱47╱G╱ // 0x39c @0x56
0x0346…03bf at0057 = ╱38╱8╱ // 0x39d @0x57
0x0346…03bf at0058 = ╱ef╱$╱ // 0x39e @0x58
0x0346…03bf at0059 = ╱ed╱(╱ // 0x39f @0x59
0x0346…03bf at005a = ╱31╱1╱ // 0x3a0 @0x5a
0x0346…03bf at005b = ╱38╱8╱ // 0x3a1 @0x5b
0x0346…03bf at005c = ╱fe00009005╱ // 0x3a2 @0x5c
0x0346…03bf at0061 = ╱ec╱,╱ // 0x3a7 @0x61
0x0346…03bf at0062 = ╱32╱2╱ // 0x3a8 @0x62
0x0346…03bf at0063 = ╱35╱5╱ // 0x3a9 @0x63
0x0346…03bf at0064 = ╱fe0000c805╱ // 0x3aa @0x64
0x0346…03bf at0069 = ╱ee╱)╱ // 0x3af @0x69
0x0346…03bf at006a = ╱ec╱,╱ // 0x3b0 @0x6a
0x0346…03bf at006b = ╱4f╱O╱ // 0x3b1 @0x6b
0x0346…03bf at006c = ╱33╱3╱ // 0x3b2 @0x6c
0x0346…03bf at006d = ╱32╱2╱ // 0x3b3 @0x6d
0x0346…03bf at006e = ╱ef╱$╱ // 0x3b4 @0x6e
0x0346…03bf at006f = ╱ed╱(╱ // 0x3b5 @0x6f
0x0346…03bf at0070 = ╱31╱1╱ // 0x3b6 @0x70
0x0346…03bf at0071 = ╱32╱2╱ // 0x3b7 @0x71
0x0346…03bf at0072 = ╱fe0000c004╱ // 0x3b8 @0x72
0x0346…03bf at0077 = ╱ee╱)╱ // 0x3bd @0x77
0x0346…03bf at0078 = EOL // 0x3be @0x78
0x0346…03bf }
0x03bf…0409 9160 0190 DIM O33$(12),G12(18),E12$(17),E13$(17),E14$(17)
0x03bf…0409 LineComalBin {
0x03bf…0409 ptr = 0x9160 // 0x3bf @0x0
0x03bf…0409 lno = 0x00be // 0x3c1 @0x2
0x03bf…0409 at0004 = ╱87╱ DIM ╱ // 0x3c3 @0x4
0x03bf…0409 at0005 = ╱4f╱O╱ // 0x3c4 @0x5
0x03bf…0409 at0006 = ╱33╱3╱ // 0x3c5 @0x6
0x03bf…0409 at0007 = ╱33╱3╱ // 0x3c6 @0x7
0x03bf…0409 at0008 = ╱ef╱$╱ // 0x3c7 @0x8
0x03bf…0409 at0009 = ╱ed╱(╱ // 0x3c8 @0x9
0x03bf…0409 at000a = ╱31╱1╱ // 0x3c9 @0xa
0x03bf…0409 at000b = ╱32╱2╱ // 0x3ca @0xb
0x03bf…0409 at000c = ╱fe0000c004╱ // 0x3cb @0xc
0x03bf…0409 at0011 = ╱ee╱)╱ // 0x3d0 @0x11
0x03bf…0409 at0012 = ╱ec╱,╱ // 0x3d1 @0x12
0x03bf…0409 at0013 = ╱47╱G╱ // 0x3d2 @0x13
0x03bf…0409 at0014 = ╱31╱1╱ // 0x3d3 @0x14
0x03bf…0409 at0015 = ╱32╱2╱ // 0x3d4 @0x15
0x03bf…0409 at0016 = ╱ed╱(╱ // 0x3d5 @0x16
0x03bf…0409 at0017 = ╱31╱1╱ // 0x3d6 @0x17
0x03bf…0409 at0018 = ╱38╱8╱ // 0x3d7 @0x18
0x03bf…0409 at0019 = ╱fe00009005╱ // 0x3d8 @0x19
0x03bf…0409 at001e = ╱ee╱)╱ // 0x3dd @0x1e
0x03bf…0409 at001f = ╱ec╱,╱ // 0x3de @0x1f
0x03bf…0409 at0020 = ╱45╱E╱ // 0x3df @0x20
0x03bf…0409 at0021 = ╱31╱1╱ // 0x3e0 @0x21
0x03bf…0409 at0022 = ╱32╱2╱ // 0x3e1 @0x22
0x03bf…0409 at0023 = ╱ef╱$╱ // 0x3e2 @0x23
0x03bf…0409 at0024 = ╱ed╱(╱ // 0x3e3 @0x24
0x03bf…0409 at0025 = ╱31╱1╱ // 0x3e4 @0x25
0x03bf…0409 at0026 = ╱37╱7╱ // 0x3e5 @0x26
0x03bf…0409 at0027 = ╱fe00008805╱ // 0x3e6 @0x27
0x03bf…0409 at002c = ╱ee╱)╱ // 0x3eb @0x2c
0x03bf…0409 at002d = ╱ec╱,╱ // 0x3ec @0x2d
0x03bf…0409 at002e = ╱45╱E╱ // 0x3ed @0x2e
0x03bf…0409 at002f = ╱31╱1╱ // 0x3ee @0x2f
0x03bf…0409 at0030 = ╱33╱3╱ // 0x3ef @0x30
0x03bf…0409 at0031 = ╱ef╱$╱ // 0x3f0 @0x31
0x03bf…0409 at0032 = ╱ed╱(╱ // 0x3f1 @0x32
0x03bf…0409 at0033 = ╱31╱1╱ // 0x3f2 @0x33
0x03bf…0409 at0034 = ╱37╱7╱ // 0x3f3 @0x34
0x03bf…0409 at0035 = ╱fe00008805╱ // 0x3f4 @0x35
0x03bf…0409 at003a = ╱ee╱)╱ // 0x3f9 @0x3a
0x03bf…0409 at003b = ╱ec╱,╱ // 0x3fa @0x3b
0x03bf…0409 at003c = ╱45╱E╱ // 0x3fb @0x3c
0x03bf…0409 at003d = ╱31╱1╱ // 0x3fc @0x3d
0x03bf…0409 at003e = ╱34╱4╱ // 0x3fd @0x3e
0x03bf…0409 at003f = ╱ef╱$╱ // 0x3fe @0x3f
0x03bf…0409 at0040 = ╱ed╱(╱ // 0x3ff @0x40
0x03bf…0409 at0041 = ╱31╱1╱ // 0x400 @0x41
0x03bf…0409 at0042 = ╱37╱7╱ // 0x401 @0x42
0x03bf…0409 at0043 = ╱fe00008805╱ // 0x402 @0x43
0x03bf…0409 at0048 = ╱ee╱)╱ // 0x407 @0x48
0x03bf…0409 at0049 = EOL // 0x408 @0x49
0x03bf…0409 }
0x0409…041e 9175 0200 PROC CA(G9,H0,H1,H2)
0x0409…041e LineComalBin {
0x0409…041e ptr = 0x9175 // 0x409 @0x0
0x0409…041e lno = 0x00c8 // 0x40b @0x2
0x0409…041e at0004 = ╱9e╱ PROC ╱ // 0x40d @0x4
0x0409…041e at0005 = ╱43╱C╱ // 0x40e @0x5
0x0409…041e at0006 = ╱41╱A╱ // 0x40f @0x6
0x0409…041e at0007 = ╱ed╱(╱ // 0x410 @0x7
0x0409…041e at0008 = ╱47╱G╱ // 0x411 @0x8
0x0409…041e at0009 = ╱39╱9╱ // 0x412 @0x9
0x0409…041e at000a = ╱ec╱,╱ // 0x413 @0xa
0x0409…041e at000b = ╱48╱H╱ // 0x414 @0xb
0x0409…041e at000c = ╱30╱0╱ // 0x415 @0xc
0x0409…041e at000d = ╱ec╱,╱ // 0x416 @0xd
0x0409…041e at000e = ╱48╱H╱ // 0x417 @0xe
0x0409…041e at000f = ╱31╱1╱ // 0x418 @0xf
0x0409…041e at0010 = ╱ec╱,╱ // 0x419 @0x10
0x0409…041e at0011 = ╱48╱H╱ // 0x41a @0x11
0x0409…041e at0012 = ╱32╱2╱ // 0x41b @0x12
0x0409…041e at0013 = ╱ee╱)╱ // 0x41c @0x13
0x0409…041e at0014 = EOL // 0x41d @0x14
0x0409…041e }
0x041e…0463 91ba 0210 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=B;FLAG=B;ART=G9-6*(G9>5)
0x041e…0463 LineComalBin {
0x041e…0463 ptr = 0x91ba // 0x41e @0x0
0x041e…0463 lno = 0x00d2 // 0x420 @0x2
0x041e…0463 at0004 = ╱4f╱O╱ // 0x422 @0x4
0x041e…0463 at0005 = ╱50╱P╱ // 0x423 @0x5
0x041e…0463 at0006 = ╱31╱1╱ // 0x424 @0x6
0x041e…0463 at0007 = ╱ef╱$╱ // 0x425 @0x7
0x041e…0463 at0008 = ╱dc╱=╱ // 0x426 @0x8
0x041e…0463 at0009 = ╱48╱H╱ // 0x427 @0x9
0x041e…0463 at000a = ╱30╱0╱ // 0x428 @0xa
0x041e…0463 at000b = ╱ef╱$╱ // 0x429 @0xb
0x041e…0463 at000c = ╱eb╱;╱ // 0x42a @0xc
0x041e…0463 at000d = ╱4f╱O╱ // 0x42b @0xd
0x041e…0463 at000e = ╱50╱P╱ // 0x42c @0xe
0x041e…0463 at000f = ╱32╱2╱ // 0x42d @0xf
0x041e…0463 at0010 = ╱ef╱$╱ // 0x42e @0x10
0x041e…0463 at0011 = ╱dc╱=╱ // 0x42f @0x11
0x041e…0463 at0012 = ╱48╱H╱ // 0x430 @0x12
0x041e…0463 at0013 = ╱31╱1╱ // 0x431 @0x13
0x041e…0463 at0014 = ╱ef╱$╱ // 0x432 @0x14
0x041e…0463 at0015 = ╱eb╱;╱ // 0x433 @0x15
0x041e…0463 at0016 = ╱52╱R╱ // 0x434 @0x16
0x041e…0463 at0017 = ╱45╱E╱ // 0x435 @0x17
0x041e…0463 at0018 = ╱53╱S╱ // 0x436 @0x18
0x041e…0463 at0019 = ╱ef╱$╱ // 0x437 @0x19
0x041e…0463 at001a = ╱dc╱=╱ // 0x438 @0x1a
0x041e…0463 at001b = ╱48╱H╱ // 0x439 @0x1b
0x041e…0463 at001c = ╱32╱2╱ // 0x43a @0x1c
0x041e…0463 at001d = ╱ef╱$╱ // 0x43b @0x1d
0x041e…0463 at001e = ╱eb╱;╱ // 0x43c @0x1e
0x041e…0463 at001f = ╱53╱S╱ // 0x43d @0x1f
0x041e…0463 at0020 = ╱49╱I╱ // 0x43e @0x20
0x041e…0463 at0021 = ╱dc╱=╱ // 0x43f @0x21
0x041e…0463 at0022 = ╱42╱B╱ // 0x440 @0x22
0x041e…0463 at0023 = ╱eb╱;╱ // 0x441 @0x23
0x041e…0463 at0024 = ╱46╱F╱ // 0x442 @0x24
0x041e…0463 at0025 = ╱4c╱L╱ // 0x443 @0x25
0x041e…0463 at0026 = ╱41╱A╱ // 0x444 @0x26
0x041e…0463 at0027 = ╱47╱G╱ // 0x445 @0x27
0x041e…0463 at0028 = ╱dc╱=╱ // 0x446 @0x28
0x041e…0463 at0029 = ╱42╱B╱ // 0x447 @0x29
0x041e…0463 at002a = ╱eb╱;╱ // 0x448 @0x2a
0x041e…0463 at002b = ╱41╱A╱ // 0x449 @0x2b
0x041e…0463 at002c = ╱52╱R╱ // 0x44a @0x2c
0x041e…0463 at002d = ╱54╱T╱ // 0x44b @0x2d
0x041e…0463 at002e = ╱dc╱=╱ // 0x44c @0x2e
0x041e…0463 at002f = ╱47╱G╱ // 0x44d @0x2f
0x041e…0463 at0030 = ╱39╱9╱ // 0x44e @0x30
0x041e…0463 at0031 = ╱e3╱-╱ // 0x44f @0x31
0x041e…0463 at0032 = ╱36╱6╱ // 0x450 @0x32
0x041e…0463 at0033 = ╱fe0000c003╱ // 0x451 @0x33
0x041e…0463 at0038 = ╱e4╱*╱ // 0x456 @0x38
0x041e…0463 at0039 = ╱ed╱(╱ // 0x457 @0x39
0x041e…0463 at003a = ╱47╱G╱ // 0x458 @0x3a
0x041e…0463 at003b = ╱39╱9╱ // 0x459 @0x3b
0x041e…0463 at003c = ╱de╱>╱ // 0x45a @0x3c
0x041e…0463 at003d = ╱35╱5╱ // 0x45b @0x3d
0x041e…0463 at003e = ╱fe0000a003╱ // 0x45c @0x3e
0x041e…0463 at0043 = ╱ee╱)╱ // 0x461 @0x43
0x041e…0463 at0044 = EOL // 0x462 @0x44
0x041e…0463 }
0x0463…0479 91d0 0220 CALL "P641210:REGN"
0x0463…0479 LineComalBin {
0x0463…0479 ptr = 0x91d0 // 0x463 @0x0
0x0463…0479 lno = 0x00dc // 0x465 @0x2
0x0463…0479 at0004 = ╱ad34fe╱ CALL ╱ // 0x467 @0x4
0x0463…0479 at0007 = ╱22╱"╱ // 0x46a @0x7
0x0463…0479 at0008 = ╱50╱P╱ // 0x46b @0x8
0x0463…0479 at0009 = ╱36╱6╱ // 0x46c @0x9
0x0463…0479 at000a = ╱34╱4╱ // 0x46d @0xa
0x0463…0479 at000b = ╱31╱1╱ // 0x46e @0xb
0x0463…0479 at000c = ╱32╱2╱ // 0x46f @0xc
0x0463…0479 at000d = ╱31╱1╱ // 0x470 @0xd
0x0463…0479 at000e = ╱30╱0╱ // 0x471 @0xe
0x0463…0479 at000f = ╱3a╱:╱ // 0x472 @0xf
0x0463…0479 at0010 = ╱52╱R╱ // 0x473 @0x10
0x0463…0479 at0011 = ╱45╱E╱ // 0x474 @0x11
0x0463…0479 at0012 = ╱47╱G╱ // 0x475 @0x12
0x0463…0479 at0013 = ╱4e╱N╱ // 0x476 @0x13
0x0463…0479 at0014 = ╱22╱"╱ // 0x477 @0x14
0x0463…0479 at0015 = EOL // 0x478 @0x15
0x0463…0479 }
0x0479…0486 91dd 0230 H2$=RES$
0x0479…0486 LineComalBin {
0x0479…0486 ptr = 0x91dd // 0x479 @0x0
0x0479…0486 lno = 0x00e6 // 0x47b @0x2
0x0479…0486 at0004 = ╱48╱H╱ // 0x47d @0x4
0x0479…0486 at0005 = ╱32╱2╱ // 0x47e @0x5
0x0479…0486 at0006 = ╱ef╱$╱ // 0x47f @0x6
0x0479…0486 at0007 = ╱dc╱=╱ // 0x480 @0x7
0x0479…0486 at0008 = ╱52╱R╱ // 0x481 @0x8
0x0479…0486 at0009 = ╱45╱E╱ // 0x482 @0x9
0x0479…0486 at000a = ╱53╱S╱ // 0x483 @0xa
0x0479…0486 at000b = ╱ef╱$╱ // 0x484 @0xb
0x0479…0486 at000c = EOL // 0x485 @0xc
0x0479…0486 }
0x0486…049d 91f4 0240 IF G9<>6 THEN IF FLAG THEN STOP
0x0486…049d LineComalBin {
0x0486…049d ptr = 0x91f4 // 0x486 @0x0
0x0486…049d lno = 0x00f0 // 0x488 @0x2
0x0486…049d at0004 = ╱82╱ IF ╱ // 0x48a @0x4
0x0486…049d at0005 = ╱47╱G╱ // 0x48b @0x5
0x0486…049d at0006 = ╱39╱9╱ // 0x48c @0x6
0x0486…049d at0007 = ╱e1╱<>╱ // 0x48d @0x7
0x0486…049d at0008 = ╱36╱6╱ // 0x48e @0x8
0x0486…049d at0009 = ╱fe0000c003╱ // 0x48f @0x9
0x0486…049d at000e = ╱b6╱ THEN ╱ // 0x494 @0xe
0x0486…049d at000f = ╱82╱ IF ╱ // 0x495 @0xf
0x0486…049d at0010 = ╱46╱F╱ // 0x496 @0x10
0x0486…049d at0011 = ╱4c╱L╱ // 0x497 @0x11
0x0486…049d at0012 = ╱41╱A╱ // 0x498 @0x12
0x0486…049d at0013 = ╱47╱G╱ // 0x499 @0x13
0x0486…049d at0014 = ╱b6╱ THEN ╱ // 0x49a @0x14
0x0486…049d at0015 = ╱8d╱ STOP ╱ // 0x49b @0x15
0x0486…049d at0016 = EOL // 0x49c @0x16
0x0486…049d }
0x049d…04a3 91fa 0250 ENDPROC
0x049d…04a3 LineComalBin {
0x049d…04a3 ptr = 0x91fa // 0x49d @0x0
0x049d…04a3 lno = 0x00fa // 0x49f @0x2
0x049d…04a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x4a1 @0x4
0x049d…04a3 at0005 = EOL // 0x4a2 @0x5
0x049d…04a3 }
0x04a3…04af 9206 0260 PROC IN(H3)
0x04a3…04af LineComalBin {
0x04a3…04af ptr = 0x9206 // 0x4a3 @0x0
0x04a3…04af lno = 0x0104 // 0x4a5 @0x2
0x04a3…04af at0004 = ╱9e╱ PROC ╱ // 0x4a7 @0x4
0x04a3…04af at0005 = ╱49╱I╱ // 0x4a8 @0x5
0x04a3…04af at0006 = ╱4e╱N╱ // 0x4a9 @0x6
0x04a3…04af at0007 = ╱ed╱(╱ // 0x4aa @0x7
0x04a3…04af at0008 = ╱48╱H╱ // 0x4ab @0x8
0x04a3…04af at0009 = ╱33╱3╱ // 0x4ac @0x9
0x04a3…04af at000a = ╱ee╱)╱ // 0x4ad @0xa
0x04a3…04af at000b = EOL // 0x4ae @0xb
0x04a3…04af }
0x04af…04b5 920c 0270 REPEAT
0x04af…04b5 LineComalBin {
0x04af…04b5 ptr = 0x920c // 0x4af @0x0
0x04af…04b5 lno = 0x010e // 0x4b1 @0x2
0x04af…04b5 at0004 = ╱97╱ REPEAT ╱ // 0x4b3 @0x4
0x04af…04b5 at0005 = EOL // 0x4b4 @0x5
0x04af…04b5 }
0x04b5…04bf 9216 0280 CASE H3 OF
0x04b5…04bf LineComalBin {
0x04b5…04bf ptr = 0x9216 // 0x4b5 @0x0
0x04b5…04bf lno = 0x0118 // 0x4b7 @0x2
0x04b5…04bf at0004 = ╱a201╱ CASE ╱ // 0x4b9 @0x4
0x04b5…04bf at0006 = ╱48╱H╱ // 0x4bb @0x6
0x04b5…04bf at0007 = ╱33╱3╱ // 0x4bc @0x7
0x04b5…04bf at0008 = ╱ba╱ OF ╱ // 0x4bd @0x8
0x04b5…04bf at0009 = EOL // 0x4be @0x9
0x04b5…04bf }
0x04bf…04c5 921c 0290 STOP
0x04bf…04c5 LineComalBin {
0x04bf…04c5 ptr = 0x921c // 0x4bf @0x0
0x04bf…04c5 lno = 0x0122 // 0x4c1 @0x2
0x04bf…04c5 at0004 = ╱8d╱ STOP ╱ // 0x4c3 @0x4
0x04bf…04c5 at0005 = EOL // 0x4c4 @0x5
0x04bf…04c5 }
0x04c5…04cd 9224 0300 WHEN E
0x04c5…04cd LineComalBin {
0x04c5…04cd ptr = 0x9224 // 0x4c5 @0x0
0x04c5…04cd lno = 0x012c // 0x4c7 @0x2
0x04c5…04cd at0004 = ╱a301╱ WHEN ╱ // 0x4c9 @0x4
0x04c5…04cd at0006 = ╱45╱E╱ // 0x4cb @0x6
0x04c5…04cd at0007 = EOL // 0x4cc @0x7
0x04c5…04cd }
0x04cd…04d3 922a 0310 REPEAT
0x04cd…04d3 LineComalBin {
0x04cd…04d3 ptr = 0x922a // 0x4cd @0x0
0x04cd…04d3 lno = 0x0136 // 0x4cf @0x2
0x04cd…04d3 at0004 = ╱97╱ REPEAT ╱ // 0x4d1 @0x4
0x04cd…04d3 at0005 = EOL // 0x4d2 @0x5
0x04cd…04d3 }
0x04d3…04d9 9230 0320 REPEAT
0x04d3…04d9 LineComalBin {
0x04d3…04d9 ptr = 0x9230 // 0x4d3 @0x0
0x04d3…04d9 lno = 0x0140 // 0x4d5 @0x2
0x04d3…04d9 at0004 = ╱97╱ REPEAT ╱ // 0x4d7 @0x4
0x04d3…04d9 at0005 = EOL // 0x4d8 @0x5
0x04d3…04d9 }
0x04d9…04e8 923f 0330 CURSOR V,23
0x04d9…04e8 LineComalBin {
0x04d9…04e8 ptr = 0x923f // 0x4d9 @0x0
0x04d9…04e8 lno = 0x014a // 0x4db @0x2
0x04d9…04e8 at0004 = ╱a1╱ CURSOR ╱ // 0x4dd @0x4
0x04d9…04e8 at0005 = ╱56╱V╱ // 0x4de @0x5
0x04d9…04e8 at0006 = ╱ec╱,╱ // 0x4df @0x6
0x04d9…04e8 at0007 = ╱32╱2╱ // 0x4e0 @0x7
0x04d9…04e8 at0008 = ╱33╱3╱ // 0x4e1 @0x8
0x04d9…04e8 at0009 = ╱fe0000b805╱ // 0x4e2 @0x9
0x04d9…04e8 at000e = EOL // 0x4e7 @0xe
0x04d9…04e8 }
0x04e8…0530 9287 0340 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)";
0x04e8…0530 LineComalBin {
0x04e8…0530 ptr = 0x9287 // 0x4e8 @0x0
0x04e8…0530 lno = 0x0154 // 0x4ea @0x2
0x04e8…0530 at0004 = ╱92╱ PRINT ╱ // 0x4ec @0x4
0x04e8…0530 at0005 = ╱22╱"╱ // 0x4ed @0x5
0x04e8…0530 at0006 = ╱42╱B╱ // 0x4ee @0x6
0x04e8…0530 at0007 = ╱69╱i╱ // 0x4ef @0x7
0x04e8…0530 at0008 = ╱6c╱l╱ // 0x4f0 @0x8
0x04e8…0530 at0009 = ╱61╱a╱ // 0x4f1 @0x9
0x04e8…0530 at000a = ╱67╱g╱ // 0x4f2 @0xa
0x04e8…0530 at000b = ╱20╱…╱ // 0x4f3 @0xb
0x04e8…0530 at000c = ╱20╱…╱ // 0x4f4 @0xc
0x04e8…0530 at000d = ╱20╱…╱ // 0x4f5 @0xd
0x04e8…0530 at000e = ╱20╱…╱ // 0x4f6 @0xe
0x04e8…0530 at000f = ╱20╱…╱ // 0x4f7 @0xf
0x04e8…0530 at0010 = ╱20╱…╱ // 0x4f8 @0x10
0x04e8…0530 at0011 = ╱28╱(╱ // 0x4f9 @0x11
0x04e8…0530 at0012 = ╱30╱0╱ // 0x4fa @0x12
0x04e8…0530 at0013 = ╱3a╱:╱ // 0x4fb @0x13
0x04e8…0530 at0014 = ╱46╱F╱ // 0x4fc @0x14
0x04e8…0530 at0015 = ╱7b╱æ╱ // 0x4fd @0x15
0x04e8…0530 at0016 = ╱72╱r╱ // 0x4fe @0x16
0x04e8…0530 at0017 = ╱64╱d╱ // 0x4ff @0x17
0x04e8…0530 at0018 = ╱69╱i╱ // 0x500 @0x18
0x04e8…0530 at0019 = ╱67╱g╱ // 0x501 @0x19
0x04e8…0530 at001a = ╱2c╱,╱ // 0x502 @0x1a
0x04e8…0530 at001b = ╱20╱…╱ // 0x503 @0x1b
0x04e8…0530 at001c = ╱52╱R╱ // 0x504 @0x1c
0x04e8…0530 at001d = ╱45╱E╱ // 0x505 @0x1d
0x04e8…0530 at001e = ╱54╱T╱ // 0x506 @0x1e
0x04e8…0530 at001f = ╱55╱U╱ // 0x507 @0x1f
0x04e8…0530 at0020 = ╱52╱R╱ // 0x508 @0x20
0x04e8…0530 at0021 = ╱4e╱N╱ // 0x509 @0x21
0x04e8…0530 at0022 = ╱3a╱:╱ // 0x50a @0x22
0x04e8…0530 at0023 = ╱41╱A╱ // 0x50b @0x23
0x04e8…0530 at0024 = ╱75╱u╱ // 0x50c @0x24
0x04e8…0530 at0025 = ╱74╱t╱ // 0x50d @0x25
0x04e8…0530 at0026 = ╱6f╱o╱ // 0x50e @0x26
0x04e8…0530 at0027 = ╱6d╱m╱ // 0x50f @0x27
0x04e8…0530 at0028 = ╱61╱a╱ // 0x510 @0x28
0x04e8…0530 at0029 = ╱74╱t╱ // 0x511 @0x29
0x04e8…0530 at002a = ╱69╱i╱ // 0x512 @0x2a
0x04e8…0530 at002b = ╱73╱s╱ // 0x513 @0x2b
0x04e8…0530 at002c = ╱6b╱k╱ // 0x514 @0x2c
0x04e8…0530 at002d = ╱2c╱,╱ // 0x515 @0x2d
0x04e8…0530 at002e = ╱20╱…╱ // 0x516 @0x2e
0x04e8…0530 at002f = ╱44╱D╱ // 0x517 @0x2f
0x04e8…0530 at0030 = ╱3a╱:╱ // 0x518 @0x30
0x04e8…0530 at0031 = ╱4e╱N╱ // 0x519 @0x31
0x04e8…0530 at0032 = ╱79╱y╱ // 0x51a @0x32
0x04e8…0530 at0033 = ╱20╱…╱ // 0x51b @0x33
0x04e8…0530 at0034 = ╱64╱d╱ // 0x51c @0x34
0x04e8…0530 at0035 = ╱61╱a╱ // 0x51d @0x35
0x04e8…0530 at0036 = ╱74╱t╱ // 0x51e @0x36
0x04e8…0530 at0037 = ╱6f╱o╱ // 0x51f @0x37
0x04e8…0530 at0038 = ╱2c╱,╱ // 0x520 @0x38
0x04e8…0530 at0039 = ╱20╱…╱ // 0x521 @0x39
0x04e8…0530 at003a = ╱41╱A╱ // 0x522 @0x3a
0x04e8…0530 at003b = ╱3a╱:╱ // 0x523 @0x3b
0x04e8…0530 at003c = ╱41╱A╱ // 0x524 @0x3c
0x04e8…0530 at003d = ╱6e╱n╱ // 0x525 @0x3d
0x04e8…0530 at003e = ╱6e╱n╱ // 0x526 @0x3e
0x04e8…0530 at003f = ╱75╱u╱ // 0x527 @0x3f
0x04e8…0530 at0040 = ╱6c╱l╱ // 0x528 @0x40
0x04e8…0530 at0041 = ╱6c╱l╱ // 0x529 @0x41
0x04e8…0530 at0042 = ╱65╱e╱ // 0x52a @0x42
0x04e8…0530 at0043 = ╱72╱r╱ // 0x52b @0x43
0x04e8…0530 at0044 = ╱29╱)╱ // 0x52c @0x44
0x04e8…0530 at0045 = ╱22╱"╱ // 0x52d @0x45
0x04e8…0530 at0046 = ╱eb╱;╱ // 0x52e @0x46
0x04e8…0530 at0047 = EOL // 0x52f @0x47
0x04e8…0530 }
0x0530…0544 929b 0350 PRINT B7$(E:12)
0x0530…0544 LineComalBin {
0x0530…0544 ptr = 0x929b // 0x530 @0x0
0x0530…0544 lno = 0x015e // 0x532 @0x2
0x0530…0544 at0004 = ╱92╱ PRINT ╱ // 0x534 @0x4
0x0530…0544 at0005 = ╱42╱B╱ // 0x535 @0x5
0x0530…0544 at0006 = ╱37╱7╱ // 0x536 @0x6
0x0530…0544 at0007 = ╱ef╱$╱ // 0x537 @0x7
0x0530…0544 at0008 = ╱ed╱(╱ // 0x538 @0x8
0x0530…0544 at0009 = ╱45╱E╱ // 0x539 @0x9
0x0530…0544 at000a = ╱f0╱:╱ // 0x53a @0xa
0x0530…0544 at000b = ╱31╱1╱ // 0x53b @0xb
0x0530…0544 at000c = ╱32╱2╱ // 0x53c @0xc
0x0530…0544 at000d = ╱fe0000c004╱ // 0x53d @0xd
0x0530…0544 at0012 = ╱ee╱)╱ // 0x542 @0x12
0x0530…0544 at0013 = EOL // 0x543 @0x13
0x0530…0544 }
0x0544…0558 92af 0360 CURSOR 8,23
0x0544…0558 LineComalBin {
0x0544…0558 ptr = 0x92af // 0x544 @0x0
0x0544…0558 lno = 0x0168 // 0x546 @0x2
0x0544…0558 at0004 = ╱a1╱ CURSOR ╱ // 0x548 @0x4
0x0544…0558 at0005 = ╱38╱8╱ // 0x549 @0x5
0x0544…0558 at0006 = ╱fe00008004╱ // 0x54a @0x6
0x0544…0558 at000b = ╱ec╱,╱ // 0x54f @0xb
0x0544…0558 at000c = ╱32╱2╱ // 0x550 @0xc
0x0544…0558 at000d = ╱33╱3╱ // 0x551 @0xd
0x0544…0558 at000e = ╱fe0000b805╱ // 0x552 @0xe
0x0544…0558 at0013 = EOL // 0x557 @0x13
0x0544…0558 }
0x0558…0561 92b8 0370 INPUT D5$
0x0558…0561 LineComalBin {
0x0558…0561 ptr = 0x92b8 // 0x558 @0x0
0x0558…0561 lno = 0x0172 // 0x55a @0x2
0x0558…0561 at0004 = ╱91╱ INPUT ╱ // 0x55c @0x4
0x0558…0561 at0005 = ╱44╱D╱ // 0x55d @0x5
0x0558…0561 at0006 = ╱35╱5╱ // 0x55e @0x6
0x0558…0561 at0007 = ╱ef╱$╱ // 0x55f @0x7
0x0558…0561 at0008 = EOL // 0x560 @0x8
0x0558…0561 }
0x0561…056e 92c5 0380 EXEC NR(D5$)
0x0561…056e LineComalBin {
0x0561…056e ptr = 0x92c5 // 0x561 @0x0
0x0561…056e lno = 0x017c // 0x563 @0x2
0x0561…056e at0004 = ╱9d╱ EXEC ╱ // 0x565 @0x4
0x0561…056e at0005 = ╱4e╱N╱ // 0x566 @0x5
0x0561…056e at0006 = ╱52╱R╱ // 0x567 @0x6
0x0561…056e at0007 = ╱ed╱(╱ // 0x568 @0x7
0x0561…056e at0008 = ╱44╱D╱ // 0x569 @0x8
0x0561…056e at0009 = ╱35╱5╱ // 0x56a @0x9
0x0561…056e at000a = ╱ef╱$╱ // 0x56b @0xa
0x0561…056e at000b = ╱ee╱)╱ // 0x56c @0xb
0x0561…056e at000c = EOL // 0x56d @0xc
0x0561…056e }
0x056e…057d 92d4 0390 UNTIL P=>-V AND H4=B
0x056e…057d LineComalBin {
0x056e…057d ptr = 0x92d4 // 0x56e @0x0
0x056e…057d lno = 0x0186 // 0x570 @0x2
0x056e…057d at0004 = ╱98╱ UNTIL ╱ // 0x572 @0x4
0x056e…057d at0005 = ╱50╱P╱ // 0x573 @0x5
0x056e…057d at0006 = ╱e0╱=>╱ // 0x574 @0x6
0x056e…057d at0007 = ╱e9╱-╱ // 0x575 @0x7
0x056e…057d at0008 = ╱56╱V╱ // 0x576 @0x8
0x056e…057d at0009 = ╱da╱ AND ╱ // 0x577 @0x9
0x056e…057d at000a = ╱48╱H╱ // 0x578 @0xa
0x056e…057d at000b = ╱34╱4╱ // 0x579 @0xb
0x056e…057d at000c = ╱dc╱=╱ // 0x57a @0xc
0x056e…057d at000d = ╱42╱B╱ // 0x57b @0xd
0x056e…057d at000e = EOL // 0x57c @0xe
0x056e…057d }
0x057d…059c 92f3 0400 IF P<>B AND H5=19 AND P<>-G AND P<>-V THEN
0x057d…059c LineComalBin {
0x057d…059c ptr = 0x92f3 // 0x57d @0x0
0x057d…059c lno = 0x0190 // 0x57f @0x2
0x057d…059c at0004 = ╱9c╱ IF ╱ // 0x581 @0x4
0x057d…059c at0005 = ╱50╱P╱ // 0x582 @0x5
0x057d…059c at0006 = ╱e1╱<>╱ // 0x583 @0x6
0x057d…059c at0007 = ╱42╱B╱ // 0x584 @0x7
0x057d…059c at0008 = ╱da╱ AND ╱ // 0x585 @0x8
0x057d…059c at0009 = ╱48╱H╱ // 0x586 @0x9
0x057d…059c at000a = ╱35╱5╱ // 0x587 @0xa
0x057d…059c at000b = ╱dc╱=╱ // 0x588 @0xb
0x057d…059c at000c = ╱31╱1╱ // 0x589 @0xc
0x057d…059c at000d = ╱39╱9╱ // 0x58a @0xd
0x057d…059c at000e = ╱fe00009805╱ // 0x58b @0xe
0x057d…059c at0013 = ╱da╱ AND ╱ // 0x590 @0x13
0x057d…059c at0014 = ╱50╱P╱ // 0x591 @0x14
0x057d…059c at0015 = ╱e1╱<>╱ // 0x592 @0x15
0x057d…059c at0016 = ╱e9╱-╱ // 0x593 @0x16
0x057d…059c at0017 = ╱47╱G╱ // 0x594 @0x17
0x057d…059c at0018 = ╱da╱ AND ╱ // 0x595 @0x18
0x057d…059c at0019 = ╱50╱P╱ // 0x596 @0x19
0x057d…059c at001a = ╱e1╱<>╱ // 0x597 @0x1a
0x057d…059c at001b = ╱e9╱-╱ // 0x598 @0x1b
0x057d…059c at001c = ╱56╱V╱ // 0x599 @0x1c
0x057d…059c at001d = ╱b6╱ THEN ╱ // 0x59a @0x1d
0x057d…059c at001e = EOL // 0x59b @0x1e
0x057d…059c }
0x059c…05a2 92f9 0410 CLEAR
0x059c…05a2 LineComalBin {
0x059c…05a2 ptr = 0x92f9 // 0x59c @0x0
0x059c…05a2 lno = 0x019a // 0x59e @0x2
0x059c…05a2 at0004 = ╱a0╱ CLEAR ╱ // 0x5a0 @0x4
0x059c…05a2 at0005 = EOL // 0x5a1 @0x5
0x059c…05a2 }
0x05a2…05aa 9301 0420 EXEC UH
0x05a2…05aa LineComalBin {
0x05a2…05aa ptr = 0x9301 // 0x5a2 @0x0
0x05a2…05aa lno = 0x01a4 // 0x5a4 @0x2
0x05a2…05aa at0004 = ╱9d╱ EXEC ╱ // 0x5a6 @0x4
0x05a2…05aa at0005 = ╱55╱U╱ // 0x5a7 @0x5
0x05a2…05aa at0006 = ╱48╱H╱ // 0x5a8 @0x6
0x05a2…05aa at0007 = EOL // 0x5a9 @0x7
0x05a2…05aa }
0x05aa…05b3 930a 0430 H5=E
0x05aa…05b3 LineComalBin {
0x05aa…05b3 ptr = 0x930a // 0x5aa @0x0
0x05aa…05b3 lno = 0x01ae // 0x5ac @0x2
0x05aa…05b3 at0004 = ╱48╱H╱ // 0x5ae @0x4
0x05aa…05b3 at0005 = ╱35╱5╱ // 0x5af @0x5
0x05aa…05b3 at0006 = ╱dc╱=╱ // 0x5b0 @0x6
0x05aa…05b3 at0007 = ╱45╱E╱ // 0x5b1 @0x7
0x05aa…05b3 at0008 = EOL // 0x5b2 @0x8
0x05aa…05b3 }
0x05b3…05d4 932b 0440 EXEC UL(H6,H7,I6,E4$,F4$,H8,H16)
0x05b3…05d4 LineComalBin {
0x05b3…05d4 ptr = 0x932b // 0x5b3 @0x0
0x05b3…05d4 lno = 0x01b8 // 0x5b5 @0x2
0x05b3…05d4 at0004 = ╱9d╱ EXEC ╱ // 0x5b7 @0x4
0x05b3…05d4 at0005 = ╱55╱U╱ // 0x5b8 @0x5
0x05b3…05d4 at0006 = ╱4c╱L╱ // 0x5b9 @0x6
0x05b3…05d4 at0007 = ╱ed╱(╱ // 0x5ba @0x7
0x05b3…05d4 at0008 = ╱48╱H╱ // 0x5bb @0x8
0x05b3…05d4 at0009 = ╱36╱6╱ // 0x5bc @0x9
0x05b3…05d4 at000a = ╱ec╱,╱ // 0x5bd @0xa
0x05b3…05d4 at000b = ╱48╱H╱ // 0x5be @0xb
0x05b3…05d4 at000c = ╱37╱7╱ // 0x5bf @0xc
0x05b3…05d4 at000d = ╱ec╱,╱ // 0x5c0 @0xd
0x05b3…05d4 at000e = ╱49╱I╱ // 0x5c1 @0xe
0x05b3…05d4 at000f = ╱36╱6╱ // 0x5c2 @0xf
0x05b3…05d4 at0010 = ╱ec╱,╱ // 0x5c3 @0x10
0x05b3…05d4 at0011 = ╱45╱E╱ // 0x5c4 @0x11
0x05b3…05d4 at0012 = ╱34╱4╱ // 0x5c5 @0x12
0x05b3…05d4 at0013 = ╱ef╱$╱ // 0x5c6 @0x13
0x05b3…05d4 at0014 = ╱ec╱,╱ // 0x5c7 @0x14
0x05b3…05d4 at0015 = ╱46╱F╱ // 0x5c8 @0x15
0x05b3…05d4 at0016 = ╱34╱4╱ // 0x5c9 @0x16
0x05b3…05d4 at0017 = ╱ef╱$╱ // 0x5ca @0x17
0x05b3…05d4 at0018 = ╱ec╱,╱ // 0x5cb @0x18
0x05b3…05d4 at0019 = ╱48╱H╱ // 0x5cc @0x19
0x05b3…05d4 at001a = ╱38╱8╱ // 0x5cd @0x1a
0x05b3…05d4 at001b = ╱ec╱,╱ // 0x5ce @0x1b
0x05b3…05d4 at001c = ╱48╱H╱ // 0x5cf @0x1c
0x05b3…05d4 at001d = ╱31╱1╱ // 0x5d0 @0x1d
0x05b3…05d4 at001e = ╱36╱6╱ // 0x5d1 @0x1e
0x05b3…05d4 at001f = ╱ee╱)╱ // 0x5d2 @0x1f
0x05b3…05d4 at0020 = EOL // 0x5d3 @0x20
0x05b3…05d4 }
0x05d4…05dc 9333 0450 EXEC SY
0x05d4…05dc LineComalBin {
0x05d4…05dc ptr = 0x9333 // 0x5d4 @0x0
0x05d4…05dc lno = 0x01c2 // 0x5d6 @0x2
0x05d4…05dc at0004 = ╱9d╱ EXEC ╱ // 0x5d8 @0x4
0x05d4…05dc at0005 = ╱53╱S╱ // 0x5d9 @0x5
0x05d4…05dc at0006 = ╱59╱Y╱ // 0x5da @0x6
0x05d4…05dc at0007 = EOL // 0x5db @0x7
0x05d4…05dc }
0x05dc…05e8 933f 0460 H5=H5+E
0x05dc…05e8 LineComalBin {
0x05dc…05e8 ptr = 0x933f // 0x5dc @0x0
0x05dc…05e8 lno = 0x01cc // 0x5de @0x2
0x05dc…05e8 at0004 = ╱48╱H╱ // 0x5e0 @0x4
0x05dc…05e8 at0005 = ╱35╱5╱ // 0x5e1 @0x5
0x05dc…05e8 at0006 = ╱dc╱=╱ // 0x5e2 @0x6
0x05dc…05e8 at0007 = ╱48╱H╱ // 0x5e3 @0x7
0x05dc…05e8 at0008 = ╱35╱5╱ // 0x5e4 @0x8
0x05dc…05e8 at0009 = ╱e2╱+╱ // 0x5e5 @0x9
0x05dc…05e8 at000a = ╱45╱E╱ // 0x5e6 @0xa
0x05dc…05e8 at000b = EOL // 0x5e7 @0xb
0x05dc…05e8 }
0x05e8…05ee 9345 0470 ENDIF
0x05e8…05ee LineComalBin {
0x05e8…05ee ptr = 0x9345 // 0x5e8 @0x0
0x05e8…05ee lno = 0x01d6 // 0x5ea @0x2
0x05e8…05ee at0004 = ╱9b╱ ENDIF ╱ // 0x5ec @0x4
0x05e8…05ee at0005 = EOL // 0x5ed @0x5
0x05e8…05ee }
0x05ee…05f4 934b 0480 REPEAT
0x05ee…05f4 LineComalBin {
0x05ee…05f4 ptr = 0x934b // 0x5ee @0x0
0x05ee…05f4 lno = 0x01e0 // 0x5f0 @0x2
0x05ee…05f4 at0004 = ╱97╱ REPEAT ╱ // 0x5f2 @0x4
0x05ee…05f4 at0005 = EOL // 0x5f3 @0x5
0x05ee…05f4 }
0x05f4…05fe 9355 0490 H9=-E
0x05f4…05fe LineComalBin {
0x05f4…05fe ptr = 0x9355 // 0x5f4 @0x0
0x05f4…05fe lno = 0x01ea // 0x5f6 @0x2
0x05f4…05fe at0004 = ╱48╱H╱ // 0x5f8 @0x4
0x05f4…05fe at0005 = ╱39╱9╱ // 0x5f9 @0x5
0x05f4…05fe at0006 = ╱dc╱=╱ // 0x5fa @0x6
0x05f4…05fe at0007 = ╱e9╱-╱ // 0x5fb @0x7
0x05f4…05fe at0008 = ╱45╱E╱ // 0x5fc @0x8
0x05f4…05fe at0009 = EOL // 0x5fd @0x9
0x05f4…05fe }
0x05fe…0620 9377 0500 IF I2+V>R9 OR I2+F0(E)+G1(E)+W>S1 THEN
0x05fe…0620 LineComalBin {
0x05fe…0620 ptr = 0x9377 // 0x5fe @0x0
0x05fe…0620 lno = 0x01f4 // 0x600 @0x2
0x05fe…0620 at0004 = ╱9c╱ IF ╱ // 0x602 @0x4
0x05fe…0620 at0005 = ╱49╱I╱ // 0x603 @0x5
0x05fe…0620 at0006 = ╱32╱2╱ // 0x604 @0x6
0x05fe…0620 at0007 = ╱e2╱+╱ // 0x605 @0x7
0x05fe…0620 at0008 = ╱56╱V╱ // 0x606 @0x8
0x05fe…0620 at0009 = ╱de╱>╱ // 0x607 @0x9
0x05fe…0620 at000a = ╱52╱R╱ // 0x608 @0xa
0x05fe…0620 at000b = ╱39╱9╱ // 0x609 @0xb
0x05fe…0620 at000c = ╱db╱ OR ╱ // 0x60a @0xc
0x05fe…0620 at000d = ╱49╱I╱ // 0x60b @0xd
0x05fe…0620 at000e = ╱32╱2╱ // 0x60c @0xe
0x05fe…0620 at000f = ╱e2╱+╱ // 0x60d @0xf
0x05fe…0620 at0010 = ╱46╱F╱ // 0x60e @0x10
0x05fe…0620 at0011 = ╱30╱0╱ // 0x60f @0x11
0x05fe…0620 at0012 = ╱ed╱(╱ // 0x610 @0x12
0x05fe…0620 at0013 = ╱45╱E╱ // 0x611 @0x13
0x05fe…0620 at0014 = ╱ee╱)╱ // 0x612 @0x14
0x05fe…0620 at0015 = ╱e2╱+╱ // 0x613 @0x15
0x05fe…0620 at0016 = ╱47╱G╱ // 0x614 @0x16
0x05fe…0620 at0017 = ╱31╱1╱ // 0x615 @0x17
0x05fe…0620 at0018 = ╱ed╱(╱ // 0x616 @0x18
0x05fe…0620 at0019 = ╱45╱E╱ // 0x617 @0x19
0x05fe…0620 at001a = ╱ee╱)╱ // 0x618 @0x1a
0x05fe…0620 at001b = ╱e2╱+╱ // 0x619 @0x1b
0x05fe…0620 at001c = ╱57╱W╱ // 0x61a @0x1c
0x05fe…0620 at001d = ╱de╱>╱ // 0x61b @0x1d
0x05fe…0620 at001e = ╱53╱S╱ // 0x61c @0x1e
0x05fe…0620 at001f = ╱31╱1╱ // 0x61d @0x1f
0x05fe…0620 at0020 = ╱b6╱ THEN ╱ // 0x61e @0x20
0x05fe…0620 at0021 = EOL // 0x61f @0x21
0x05fe…0620 }
0x0620…0626 937d 0510 REPEAT
0x0620…0626 LineComalBin {
0x0620…0626 ptr = 0x937d // 0x620 @0x0
0x0620…0626 lno = 0x01fe // 0x622 @0x2
0x0620…0626 at0004 = ╱97╱ REPEAT ╱ // 0x624 @0x4
0x0620…0626 at0005 = EOL // 0x625 @0x5
0x0620…0626 }
0x0626…0635 938c 0520 CURSOR V,23
0x0626…0635 LineComalBin {
0x0626…0635 ptr = 0x938c // 0x626 @0x0
0x0626…0635 lno = 0x0208 // 0x628 @0x2
0x0626…0635 at0004 = ╱a1╱ CURSOR ╱ // 0x62a @0x4
0x0626…0635 at0005 = ╱56╱V╱ // 0x62b @0x5
0x0626…0635 at0006 = ╱ec╱,╱ // 0x62c @0x6
0x0626…0635 at0007 = ╱32╱2╱ // 0x62d @0x7
0x0626…0635 at0008 = ╱33╱3╱ // 0x62e @0x8
0x0626…0635 at0009 = ╱fe0000b805╱ // 0x62f @0x9
0x0626…0635 at000e = EOL // 0x634 @0xe
0x0626…0635 }
0x0635…067b 93d2 0530 PRINT "Ikke plads til flere posteringer , tast RETURN "+B7$(E:30)
0x0635…067b LineComalBin {
0x0635…067b ptr = 0x93d2 // 0x635 @0x0
0x0635…067b lno = 0x0212 // 0x637 @0x2
0x0635…067b at0004 = ╱92╱ PRINT ╱ // 0x639 @0x4
0x0635…067b at0005 = ╱22╱"╱ // 0x63a @0x5
0x0635…067b at0006 = ╱49╱I╱ // 0x63b @0x6
0x0635…067b at0007 = ╱6b╱k╱ // 0x63c @0x7
0x0635…067b at0008 = ╱6b╱k╱ // 0x63d @0x8
0x0635…067b at0009 = ╱65╱e╱ // 0x63e @0x9
0x0635…067b at000a = ╱20╱…╱ // 0x63f @0xa
0x0635…067b at000b = ╱70╱p╱ // 0x640 @0xb
0x0635…067b at000c = ╱6c╱l╱ // 0x641 @0xc
0x0635…067b at000d = ╱61╱a╱ // 0x642 @0xd
0x0635…067b at000e = ╱64╱d╱ // 0x643 @0xe
0x0635…067b at000f = ╱73╱s╱ // 0x644 @0xf
0x0635…067b at0010 = ╱20╱…╱ // 0x645 @0x10
0x0635…067b at0011 = ╱74╱t╱ // 0x646 @0x11
0x0635…067b at0012 = ╱69╱i╱ // 0x647 @0x12
0x0635…067b at0013 = ╱6c╱l╱ // 0x648 @0x13
0x0635…067b at0014 = ╱20╱…╱ // 0x649 @0x14
0x0635…067b at0015 = ╱66╱f╱ // 0x64a @0x15
0x0635…067b at0016 = ╱6c╱l╱ // 0x64b @0x16
0x0635…067b at0017 = ╱65╱e╱ // 0x64c @0x17
0x0635…067b at0018 = ╱72╱r╱ // 0x64d @0x18
0x0635…067b at0019 = ╱65╱e╱ // 0x64e @0x19
0x0635…067b at001a = ╱20╱…╱ // 0x64f @0x1a
0x0635…067b at001b = ╱70╱p╱ // 0x650 @0x1b
0x0635…067b at001c = ╱6f╱o╱ // 0x651 @0x1c
0x0635…067b at001d = ╱73╱s╱ // 0x652 @0x1d
0x0635…067b at001e = ╱74╱t╱ // 0x653 @0x1e
0x0635…067b at001f = ╱65╱e╱ // 0x654 @0x1f
0x0635…067b at0020 = ╱72╱r╱ // 0x655 @0x20
0x0635…067b at0021 = ╱69╱i╱ // 0x656 @0x21
0x0635…067b at0022 = ╱6e╱n╱ // 0x657 @0x22
0x0635…067b at0023 = ╱67╱g╱ // 0x658 @0x23
0x0635…067b at0024 = ╱65╱e╱ // 0x659 @0x24
0x0635…067b at0025 = ╱72╱r╱ // 0x65a @0x25
0x0635…067b at0026 = ╱20╱…╱ // 0x65b @0x26
0x0635…067b at0027 = ╱2c╱,╱ // 0x65c @0x27
0x0635…067b at0028 = ╱20╱…╱ // 0x65d @0x28
0x0635…067b at0029 = ╱74╱t╱ // 0x65e @0x29
0x0635…067b at002a = ╱61╱a╱ // 0x65f @0x2a
0x0635…067b at002b = ╱73╱s╱ // 0x660 @0x2b
0x0635…067b at002c = ╱74╱t╱ // 0x661 @0x2c
0x0635…067b at002d = ╱20╱…╱ // 0x662 @0x2d
0x0635…067b at002e = ╱52╱R╱ // 0x663 @0x2e
0x0635…067b at002f = ╱45╱E╱ // 0x664 @0x2f
0x0635…067b at0030 = ╱54╱T╱ // 0x665 @0x30
0x0635…067b at0031 = ╱55╱U╱ // 0x666 @0x31
0x0635…067b at0032 = ╱52╱R╱ // 0x667 @0x32
0x0635…067b at0033 = ╱4e╱N╱ // 0x668 @0x33
0x0635…067b at0034 = ╱20╱…╱ // 0x669 @0x34
0x0635…067b at0035 = ╱22╱"╱ // 0x66a @0x35
0x0635…067b at0036 = ╱f1╱+╱ // 0x66b @0x36
0x0635…067b at0037 = ╱42╱B╱ // 0x66c @0x37
0x0635…067b at0038 = ╱37╱7╱ // 0x66d @0x38
0x0635…067b at0039 = ╱ef╱$╱ // 0x66e @0x39
0x0635…067b at003a = ╱ed╱(╱ // 0x66f @0x3a
0x0635…067b at003b = ╱45╱E╱ // 0x670 @0x3b
0x0635…067b at003c = ╱f0╱:╱ // 0x671 @0x3c
0x0635…067b at003d = ╱33╱3╱ // 0x672 @0x3d
0x0635…067b at003e = ╱30╱0╱ // 0x673 @0x3e
0x0635…067b at003f = ╱fe0000f005╱ // 0x674 @0x3f
0x0635…067b at0044 = ╱ee╱)╱ // 0x679 @0x44
0x0635…067b at0045 = EOL // 0x67a @0x45
0x0635…067b }
0x067b…0690 93e7 0540 CURSOR 50,23
0x067b…0690 LineComalBin {
0x067b…0690 ptr = 0x93e7 // 0x67b @0x0
0x067b…0690 lno = 0x021c // 0x67d @0x2
0x067b…0690 at0004 = ╱a1╱ CURSOR ╱ // 0x67f @0x4
0x067b…0690 at0005 = ╱35╱5╱ // 0x680 @0x5
0x067b…0690 at0006 = ╱30╱0╱ // 0x681 @0x6
0x067b…0690 at0007 = ╱fe0000c806╱ // 0x682 @0x7
0x067b…0690 at000c = ╱ec╱,╱ // 0x687 @0xc
0x067b…0690 at000d = ╱32╱2╱ // 0x688 @0xd
0x067b…0690 at000e = ╱33╱3╱ // 0x689 @0xe
0x067b…0690 at000f = ╱fe0000b805╱ // 0x68a @0xf
0x067b…0690 at0014 = EOL // 0x68f @0x14
0x067b…0690 }
0x0690…0698 93ef 0550 INPUT A$
0x0690…0698 LineComalBin {
0x0690…0698 ptr = 0x93ef // 0x690 @0x0
0x0690…0698 lno = 0x0226 // 0x692 @0x2
0x0690…0698 at0004 = ╱91╱ INPUT ╱ // 0x694 @0x4
0x0690…0698 at0005 = ╱41╱A╱ // 0x695 @0x5
0x0690…0698 at0006 = ╱ef╱$╱ // 0x696 @0x6
0x0690…0698 at0007 = EOL // 0x697 @0x7
0x0690…0698 }
0x0698…06a4 93fb 0560 EXEC NR(A$)
0x0698…06a4 LineComalBin {
0x0698…06a4 ptr = 0x93fb // 0x698 @0x0
0x0698…06a4 lno = 0x0230 // 0x69a @0x2
0x0698…06a4 at0004 = ╱9d╱ EXEC ╱ // 0x69c @0x4
0x0698…06a4 at0005 = ╱4e╱N╱ // 0x69d @0x5
0x0698…06a4 at0006 = ╱52╱R╱ // 0x69e @0x6
0x0698…06a4 at0007 = ╱ed╱(╱ // 0x69f @0x7
0x0698…06a4 at0008 = ╱41╱A╱ // 0x6a0 @0x8
0x0698…06a4 at0009 = ╱ef╱$╱ // 0x6a1 @0x9
0x0698…06a4 at000a = ╱ee╱)╱ // 0x6a2 @0xa
0x0698…06a4 at000b = EOL // 0x6a3 @0xb
0x0698…06a4 }
0x06a4…06ae 9405 0570 UNTIL P=-E
0x06a4…06ae LineComalBin {
0x06a4…06ae ptr = 0x9405 // 0x6a4 @0x0
0x06a4…06ae lno = 0x023a // 0x6a6 @0x2
0x06a4…06ae at0004 = ╱98╱ UNTIL ╱ // 0x6a8 @0x4
0x06a4…06ae at0005 = ╱50╱P╱ // 0x6a9 @0x5
0x06a4…06ae at0006 = ╱dc╱=╱ // 0x6aa @0x6
0x06a4…06ae at0007 = ╱e9╱-╱ // 0x6ab @0x7
0x06a4…06ae at0008 = ╱45╱E╱ // 0x6ac @0x8
0x06a4…06ae at0009 = EOL // 0x6ad @0x9
0x06a4…06ae }
0x06ae…06b6 940d 0580 P=B
0x06ae…06b6 LineComalBin {
0x06ae…06b6 ptr = 0x940d // 0x6ae @0x0
0x06ae…06b6 lno = 0x0244 // 0x6b0 @0x2
0x06ae…06b6 at0004 = ╱50╱P╱ // 0x6b2 @0x4
0x06ae…06b6 at0005 = ╱dc╱=╱ // 0x6b3 @0x5
0x06ae…06b6 at0006 = ╱42╱B╱ // 0x6b4 @0x6
0x06ae…06b6 at0007 = EOL // 0x6b5 @0x7
0x06ae…06b6 }
0x06b6…06bc 9413 0590 ENDIF
0x06b6…06bc LineComalBin {
0x06b6…06bc ptr = 0x9413 // 0x6b6 @0x0
0x06b6…06bc lno = 0x024e // 0x6b8 @0x2
0x06b6…06bc at0004 = ╱9b╱ ENDIF ╱ // 0x6ba @0x4
0x06b6…06bc at0005 = EOL // 0x6bb @0x5
0x06b6…06bc }
0x06bc…06c5 941c 0600 CASE P OF
0x06bc…06c5 LineComalBin {
0x06bc…06c5 ptr = 0x941c // 0x6bc @0x0
0x06bc…06c5 lno = 0x0258 // 0x6be @0x2
0x06bc…06c5 at0004 = ╱a201╱ CASE ╱ // 0x6c0 @0x4
0x06bc…06c5 at0006 = ╱50╱P╱ // 0x6c2 @0x6
0x06bc…06c5 at0007 = ╱ba╱ OF ╱ // 0x6c3 @0x7
0x06bc…06c5 at0008 = EOL // 0x6c4 @0x8
0x06bc…06c5 }
0x06c5…06d1 9428 0610 CURSOR E,H5+V
0x06c5…06d1 LineComalBin {
0x06c5…06d1 ptr = 0x9428 // 0x6c5 @0x0
0x06c5…06d1 lno = 0x0262 // 0x6c7 @0x2
0x06c5…06d1 at0004 = ╱a1╱ CURSOR ╱ // 0x6c9 @0x4
0x06c5…06d1 at0005 = ╱45╱E╱ // 0x6ca @0x5
0x06c5…06d1 at0006 = ╱ec╱,╱ // 0x6cb @0x6
0x06c5…06d1 at0007 = ╱48╱H╱ // 0x6cc @0x7
0x06c5…06d1 at0008 = ╱35╱5╱ // 0x6cd @0x8
0x06c5…06d1 at0009 = ╱e2╱+╱ // 0x6ce @0x9
0x06c5…06d1 at000a = ╱56╱V╱ // 0x6cf @0xa
0x06c5…06d1 at000b = EOL // 0x6d0 @0xb
0x06c5…06d1 }
0x06d1…06e0 9437 0620 PRINT USING "###":H5
0x06d1…06e0 LineComalBin {
0x06d1…06e0 ptr = 0x9437 // 0x6d1 @0x0
0x06d1…06e0 lno = 0x026c // 0x6d3 @0x2
0x06d1…06e0 at0004 = ╱92╱ PRINT ╱ // 0x6d5 @0x4
0x06d1…06e0 at0005 = ╱b9╱ USING ╱ // 0x6d6 @0x5
0x06d1…06e0 at0006 = ╱22╱"╱ // 0x6d7 @0x6
0x06d1…06e0 at0007 = ╱23╱#╱ // 0x6d8 @0x7
0x06d1…06e0 at0008 = ╱23╱#╱ // 0x6d9 @0x8
0x06d1…06e0 at0009 = ╱23╱#╱ // 0x6da @0x9
0x06d1…06e0 at000a = ╱22╱"╱ // 0x6db @0xa
0x06d1…06e0 at000b = ╱f0╱:╱ // 0x6dc @0xb
0x06d1…06e0 at000c = ╱48╱H╱ // 0x6dd @0xc
0x06d1…06e0 at000d = ╱35╱5╱ // 0x6de @0xd
0x06d1…06e0 at000e = EOL // 0x6df @0xe
0x06d1…06e0 }
0x06e0…06fe 9455 0630 H7=P;P=-4;I0=H7;H3=G
0x06e0…06fe LineComalBin {
0x06e0…06fe ptr = 0x9455 // 0x6e0 @0x0
0x06e0…06fe lno = 0x0276 // 0x6e2 @0x2
0x06e0…06fe at0004 = ╱48╱H╱ // 0x6e4 @0x4
0x06e0…06fe at0005 = ╱37╱7╱ // 0x6e5 @0x5
0x06e0…06fe at0006 = ╱dc╱=╱ // 0x6e6 @0x6
0x06e0…06fe at0007 = ╱50╱P╱ // 0x6e7 @0x7
0x06e0…06fe at0008 = ╱eb╱;╱ // 0x6e8 @0x8
0x06e0…06fe at0009 = ╱50╱P╱ // 0x6e9 @0x9
0x06e0…06fe at000a = ╱dc╱=╱ // 0x6ea @0xa
0x06e0…06fe at000b = ╱e9╱-╱ // 0x6eb @0xb
0x06e0…06fe at000c = ╱34╱4╱ // 0x6ec @0xc
0x06e0…06fe at000d = ╱fe00008003╱ // 0x6ed @0xd
0x06e0…06fe at0012 = ╱eb╱;╱ // 0x6f2 @0x12
0x06e0…06fe at0013 = ╱49╱I╱ // 0x6f3 @0x13
0x06e0…06fe at0014 = ╱30╱0╱ // 0x6f4 @0x14
0x06e0…06fe at0015 = ╱dc╱=╱ // 0x6f5 @0x15
0x06e0…06fe at0016 = ╱48╱H╱ // 0x6f6 @0x16
0x06e0…06fe at0017 = ╱37╱7╱ // 0x6f7 @0x17
0x06e0…06fe at0018 = ╱eb╱;╱ // 0x6f8 @0x18
0x06e0…06fe at0019 = ╱48╱H╱ // 0x6f9 @0x19
0x06e0…06fe at001a = ╱33╱3╱ // 0x6fa @0x1a
0x06e0…06fe at001b = ╱dc╱=╱ // 0x6fb @0x1b
0x06e0…06fe at001c = ╱47╱G╱ // 0x6fc @0x1c
0x06e0…06fe at001d = EOL // 0x6fd @0x1d
0x06e0…06fe }
0x06fe…070f 9466 0640 CURSOR 4,H5+V
0x06fe…070f LineComalBin {
0x06fe…070f ptr = 0x9466 // 0x6fe @0x0
0x06fe…070f lno = 0x0280 // 0x700 @0x2
0x06fe…070f at0004 = ╱a1╱ CURSOR ╱ // 0x702 @0x4
0x06fe…070f at0005 = ╱34╱4╱ // 0x703 @0x5
0x06fe…070f at0006 = ╱fe00008003╱ // 0x704 @0x6
0x06fe…070f at000b = ╱ec╱,╱ // 0x709 @0xb
0x06fe…070f at000c = ╱48╱H╱ // 0x70a @0xc
0x06fe…070f at000d = ╱35╱5╱ // 0x70b @0xd
0x06fe…070f at000e = ╱e2╱+╱ // 0x70c @0xe
0x06fe…070f at000f = ╱56╱V╱ // 0x70d @0xf
0x06fe…070f at0010 = EOL // 0x70e @0x10
0x06fe…070f }
0x070f…0722 9479 0650 PRINT USING "#######":H7
0x070f…0722 LineComalBin {
0x070f…0722 ptr = 0x9479 // 0x70f @0x0
0x070f…0722 lno = 0x028a // 0x711 @0x2
0x070f…0722 at0004 = ╱92╱ PRINT ╱ // 0x713 @0x4
0x070f…0722 at0005 = ╱b9╱ USING ╱ // 0x714 @0x5
0x070f…0722 at0006 = ╱22╱"╱ // 0x715 @0x6
0x070f…0722 at0007 = ╱23╱#╱ // 0x716 @0x7
0x070f…0722 at0008 = ╱23╱#╱ // 0x717 @0x8
0x070f…0722 at0009 = ╱23╱#╱ // 0x718 @0x9
0x070f…0722 at000a = ╱23╱#╱ // 0x719 @0xa
0x070f…0722 at000b = ╱23╱#╱ // 0x71a @0xb
0x070f…0722 at000c = ╱23╱#╱ // 0x71b @0xc
0x070f…0722 at000d = ╱23╱#╱ // 0x71c @0xd
0x070f…0722 at000e = ╱22╱"╱ // 0x71d @0xe
0x070f…0722 at000f = ╱f0╱:╱ // 0x71e @0xf
0x070f…0722 at0010 = ╱48╱H╱ // 0x71f @0x10
0x070f…0722 at0011 = ╱37╱7╱ // 0x720 @0x11
0x070f…0722 at0012 = EOL // 0x721 @0x12
0x070f…0722 }
0x0722…072a 9481 0660 WHEN B
0x0722…072a LineComalBin {
0x0722…072a ptr = 0x9481 // 0x722 @0x0
0x0722…072a lno = 0x0294 // 0x724 @0x2
0x0722…072a at0004 = ╱a301╱ WHEN ╱ // 0x726 @0x4
0x0722…072a at0006 = ╱42╱B╱ // 0x728 @0x6
0x0722…072a at0007 = EOL // 0x729 @0x7
0x0722…072a }
0x072a…0742 9499 0670 H3=7;P=-4
0x072a…0742 LineComalBin {
0x072a…0742 ptr = 0x9499 // 0x72a @0x0
0x072a…0742 lno = 0x029e // 0x72c @0x2
0x072a…0742 at0004 = ╱48╱H╱ // 0x72e @0x4
0x072a…0742 at0005 = ╱33╱3╱ // 0x72f @0x5
0x072a…0742 at0006 = ╱dc╱=╱ // 0x730 @0x6
0x072a…0742 at0007 = ╱37╱7╱ // 0x731 @0x7
0x072a…0742 at0008 = ╱fe0000e003╱ // 0x732 @0x8
0x072a…0742 at000d = ╱eb╱;╱ // 0x737 @0xd
0x072a…0742 at000e = ╱50╱P╱ // 0x738 @0xe
0x072a…0742 at000f = ╱dc╱=╱ // 0x739 @0xf
0x072a…0742 at0010 = ╱e9╱-╱ // 0x73a @0x10
0x072a…0742 at0011 = ╱34╱4╱ // 0x73b @0x11
0x072a…0742 at0012 = ╱fe00008003╱ // 0x73c @0x12
0x072a…0742 at0017 = EOL // 0x741 @0x17
0x072a…0742 }
0x0742…0752 94a9 0680 IF I1=G THEN H3=-E
0x0742…0752 LineComalBin {
0x0742…0752 ptr = 0x94a9 // 0x742 @0x0
0x0742…0752 lno = 0x02a8 // 0x744 @0x2
0x0742…0752 at0004 = ╱82╱ IF ╱ // 0x746 @0x4
0x0742…0752 at0005 = ╱49╱I╱ // 0x747 @0x5
0x0742…0752 at0006 = ╱31╱1╱ // 0x748 @0x6
0x0742…0752 at0007 = ╱dc╱=╱ // 0x749 @0x7
0x0742…0752 at0008 = ╱47╱G╱ // 0x74a @0x8
0x0742…0752 at0009 = ╱b6╱ THEN ╱ // 0x74b @0x9
0x0742…0752 at000a = ╱48╱H╱ // 0x74c @0xa
0x0742…0752 at000b = ╱33╱3╱ // 0x74d @0xb
0x0742…0752 at000c = ╱dc╱=╱ // 0x74e @0xc
0x0742…0752 at000d = ╱e9╱-╱ // 0x74f @0xd
0x0742…0752 at000e = ╱45╱E╱ // 0x750 @0xe
0x0742…0752 at000f = EOL // 0x751 @0xf
0x0742…0752 }
0x0752…075b 94b2 0690 WHEN -E
0x0752…075b LineComalBin {
0x0752…075b ptr = 0x94b2 // 0x752 @0x0
0x0752…075b lno = 0x02b2 // 0x754 @0x2
0x0752…075b at0004 = ╱a301╱ WHEN ╱ // 0x756 @0x4
0x0752…075b at0006 = ╱e9╱-╱ // 0x758 @0x6
0x0752…075b at0007 = ╱45╱E╱ // 0x759 @0x7
0x0752…075b at0008 = EOL // 0x75a @0x8
0x0752…075b }
0x075b…0771 94c8 0700 I0=I0+E;P=I0;H9=B
0x075b…0771 LineComalBin {
0x075b…0771 ptr = 0x94c8 // 0x75b @0x0
0x075b…0771 lno = 0x02bc // 0x75d @0x2
0x075b…0771 at0004 = ╱49╱I╱ // 0x75f @0x4
0x075b…0771 at0005 = ╱30╱0╱ // 0x760 @0x5
0x075b…0771 at0006 = ╱dc╱=╱ // 0x761 @0x6
0x075b…0771 at0007 = ╱49╱I╱ // 0x762 @0x7
0x075b…0771 at0008 = ╱30╱0╱ // 0x763 @0x8
0x075b…0771 at0009 = ╱e2╱+╱ // 0x764 @0x9
0x075b…0771 at000a = ╱45╱E╱ // 0x765 @0xa
0x075b…0771 at000b = ╱eb╱;╱ // 0x766 @0xb
0x075b…0771 at000c = ╱50╱P╱ // 0x767 @0xc
0x075b…0771 at000d = ╱dc╱=╱ // 0x768 @0xd
0x075b…0771 at000e = ╱49╱I╱ // 0x769 @0xe
0x075b…0771 at000f = ╱30╱0╱ // 0x76a @0xf
0x075b…0771 at0010 = ╱eb╱;╱ // 0x76b @0x10
0x075b…0771 at0011 = ╱48╱H╱ // 0x76c @0x11
0x075b…0771 at0012 = ╱39╱9╱ // 0x76d @0x12
0x075b…0771 at0013 = ╱dc╱=╱ // 0x76e @0x13
0x075b…0771 at0014 = ╱42╱B╱ // 0x76f @0x14
0x075b…0771 at0015 = EOL // 0x770 @0x15
0x075b…0771 }
0x0771…077a 94d1 0710 WHEN -G
0x0771…077a LineComalBin {
0x0771…077a ptr = 0x94d1 // 0x771 @0x0
0x0771…077a lno = 0x02c6 // 0x773 @0x2
0x0771…077a at0004 = ╱a301╱ WHEN ╱ // 0x775 @0x4
0x0771…077a at0006 = ╱e9╱-╱ // 0x777 @0x6
0x0771…077a at0007 = ╱47╱G╱ // 0x778 @0x7
0x0771…077a at0008 = EOL // 0x779 @0x8
0x0771…077a }
0x077a…0780 94d7 0720 REPEAT
0x077a…0780 LineComalBin {
0x077a…0780 ptr = 0x94d7 // 0x77a @0x0
0x077a…0780 lno = 0x02d0 // 0x77c @0x2
0x077a…0780 at0004 = ╱97╱ REPEAT ╱ // 0x77e @0x4
0x077a…0780 at0005 = EOL // 0x77f @0x5
0x077a…0780 }
0x0780…078f 94e6 0730 CURSOR V,23
0x0780…078f LineComalBin {
0x0780…078f ptr = 0x94e6 // 0x780 @0x0
0x0780…078f lno = 0x02da // 0x782 @0x2
0x0780…078f at0004 = ╱a1╱ CURSOR ╱ // 0x784 @0x4
0x0780…078f at0005 = ╱56╱V╱ // 0x785 @0x5
0x0780…078f at0006 = ╱ec╱,╱ // 0x786 @0x6
0x0780…078f at0007 = ╱32╱2╱ // 0x787 @0x7
0x0780…078f at0008 = ╱33╱3╱ // 0x788 @0x8
0x0780…078f at0009 = ╱fe0000b805╱ // 0x789 @0x9
0x0780…078f at000e = EOL // 0x78e @0xe
0x0780…078f }
0x078f…07bd 9514 0740 PRINT "Ny dato (ååmmdd)";B7$(E:54)
0x078f…07bd LineComalBin {
0x078f…07bd ptr = 0x9514 // 0x78f @0x0
0x078f…07bd lno = 0x02e4 // 0x791 @0x2
0x078f…07bd at0004 = ╱92╱ PRINT ╱ // 0x793 @0x4
0x078f…07bd at0005 = ╱22╱"╱ // 0x794 @0x5
0x078f…07bd at0006 = ╱4e╱N╱ // 0x795 @0x6
0x078f…07bd at0007 = ╱79╱y╱ // 0x796 @0x7
0x078f…07bd at0008 = ╱20╱…╱ // 0x797 @0x8
0x078f…07bd at0009 = ╱64╱d╱ // 0x798 @0x9
0x078f…07bd at000a = ╱61╱a╱ // 0x799 @0xa
0x078f…07bd at000b = ╱74╱t╱ // 0x79a @0xb
0x078f…07bd at000c = ╱6f╱o╱ // 0x79b @0xc
0x078f…07bd at000d = ╱20╱…╱ // 0x79c @0xd
0x078f…07bd at000e = ╱20╱…╱ // 0x79d @0xe
0x078f…07bd at000f = ╱20╱…╱ // 0x79e @0xf
0x078f…07bd at0010 = ╱20╱…╱ // 0x79f @0x10
0x078f…07bd at0011 = ╱20╱…╱ // 0x7a0 @0x11
0x078f…07bd at0012 = ╱20╱…╱ // 0x7a1 @0x12
0x078f…07bd at0013 = ╱20╱…╱ // 0x7a2 @0x13
0x078f…07bd at0014 = ╱20╱…╱ // 0x7a3 @0x14
0x078f…07bd at0015 = ╱28╱(╱ // 0x7a4 @0x15
0x078f…07bd at0016 = ╱7d╱å╱ // 0x7a5 @0x16
0x078f…07bd at0017 = ╱7d╱å╱ // 0x7a6 @0x17
0x078f…07bd at0018 = ╱6d╱m╱ // 0x7a7 @0x18
0x078f…07bd at0019 = ╱6d╱m╱ // 0x7a8 @0x19
0x078f…07bd at001a = ╱64╱d╱ // 0x7a9 @0x1a
0x078f…07bd at001b = ╱64╱d╱ // 0x7aa @0x1b
0x078f…07bd at001c = ╱29╱)╱ // 0x7ab @0x1c
0x078f…07bd at001d = ╱22╱"╱ // 0x7ac @0x1d
0x078f…07bd at001e = ╱eb╱;╱ // 0x7ad @0x1e
0x078f…07bd at001f = ╱42╱B╱ // 0x7ae @0x1f
0x078f…07bd at0020 = ╱37╱7╱ // 0x7af @0x20
0x078f…07bd at0021 = ╱ef╱$╱ // 0x7b0 @0x21
0x078f…07bd at0022 = ╱ed╱(╱ // 0x7b1 @0x22
0x078f…07bd at0023 = ╱45╱E╱ // 0x7b2 @0x23
0x078f…07bd at0024 = ╱f0╱:╱ // 0x7b3 @0x24
0x078f…07bd at0025 = ╱35╱5╱ // 0x7b4 @0x25
0x078f…07bd at0026 = ╱34╱4╱ // 0x7b5 @0x26
0x078f…07bd at0027 = ╱fe0000d806╱ // 0x7b6 @0x27
0x078f…07bd at002c = ╱ee╱)╱ // 0x7bb @0x2c
0x078f…07bd at002d = EOL // 0x7bc @0x2d
0x078f…07bd }
0x07bd…07d2 9529 0750 CURSOR 11,23
0x07bd…07d2 LineComalBin {
0x07bd…07d2 ptr = 0x9529 // 0x7bd @0x0
0x07bd…07d2 lno = 0x02ee // 0x7bf @0x2
0x07bd…07d2 at0004 = ╱a1╱ CURSOR ╱ // 0x7c1 @0x4
0x07bd…07d2 at0005 = ╱31╱1╱ // 0x7c2 @0x5
0x07bd…07d2 at0006 = ╱31╱1╱ // 0x7c3 @0x6
0x07bd…07d2 at0007 = ╱fe0000b004╱ // 0x7c4 @0x7
0x07bd…07d2 at000c = ╱ec╱,╱ // 0x7c9 @0xc
0x07bd…07d2 at000d = ╱32╱2╱ // 0x7ca @0xd
0x07bd…07d2 at000e = ╱33╱3╱ // 0x7cb @0xe
0x07bd…07d2 at000f = ╱fe0000b805╱ // 0x7cc @0xf
0x07bd…07d2 at0014 = EOL // 0x7d1 @0x14
0x07bd…07d2 }
0x07d2…07db (26,) 9532 0760 INPUT D5$
0x07d2…07db LineComalBin {
0x07d2…07db ptr = 0x9532 // 0x7d2 @0x0
0x07d2…07db lno = 0x02f8 // 0x7d4 @0x2
0x07d2…07db at0004 = ╱91╱ INPUT ╱ // 0x7d6 @0x4
0x07d2…07db at0005 = ╱44╱D╱ // 0x7d7 @0x5
0x07d2…07db at0006 = ╱35╱5╱ // 0x7d8 @0x6
0x07d2…07db at0007 = ╱ef╱$╱ // 0x7d9 @0x7
0x07d2…07db at0008 = EOL // 0x7da @0x8
0x07d2…07db }
0x07db…07e8 953f 0770 EXEC NR(D5$)
0x07db…07e8 LineComalBin {
0x07db…07e8 ptr = 0x953f // 0x7db @0x0
0x07db…07e8 lno = 0x0302 // 0x7dd @0x2
0x07db…07e8 at0004 = ╱9d╱ EXEC ╱ // 0x7df @0x4
0x07db…07e8 at0005 = ╱4e╱N╱ // 0x7e0 @0x5
0x07db…07e8 at0006 = ╱52╱R╱ // 0x7e1 @0x6
0x07db…07e8 at0007 = ╱ed╱(╱ // 0x7e2 @0x7
0x07db…07e8 at0008 = ╱44╱D╱ // 0x7e3 @0x8
0x07db…07e8 at0009 = ╱35╱5╱ // 0x7e4 @0x9
0x07db…07e8 at000a = ╱ef╱$╱ // 0x7e5 @0xa
0x07db…07e8 at000b = ╱ee╱)╱ // 0x7e6 @0xb
0x07db…07e8 at000c = EOL // 0x7e7 @0xc
0x07db…07e8 }
0x07e8…082b 9582 0780 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32
0x07e8…082b LineComalBin {
0x07e8…082b ptr = 0x9582 // 0x7e8 @0x0
0x07e8…082b lno = 0x030c // 0x7ea @0x2
0x07e8…082b at0004 = ╱98╱ UNTIL ╱ // 0x7ec @0x4
0x07e8…082b at0005 = ╱49╱I╱ // 0x7ed @0x5
0x07e8…082b at0006 = ╱38╱8╱ // 0x7ee @0x6
0x07e8…082b at0007 = ╱e0╱=>╱ // 0x7ef @0x7
0x07e8…082b at0008 = ╱38╱8╱ // 0x7f0 @0x8
0x07e8…082b at0009 = ╱30╱0╱ // 0x7f1 @0x9
0x07e8…082b at000a = ╱fe0000a007╱ // 0x7f2 @0xa
0x07e8…082b at000f = ╱da╱ AND ╱ // 0x7f7 @0xf
0x07e8…082b at0010 = ╱ed╱(╱ // 0x7f8 @0x10
0x07e8…082b at0011 = ╱50╱P╱ // 0x7f9 @0x11
0x07e8…082b at0012 = ╱e8╱ MOD ╱ // 0x7fa @0x12
0x07e8…082b at0013 = ╱31╱1╱ // 0x7fb @0x13
0x07e8…082b at0014 = ╱30╱0╱ // 0x7fc @0x14
0x07e8…082b at0015 = ╱30╱0╱ // 0x7fd @0x15
0x07e8…082b at0016 = ╱30╱0╱ // 0x7fe @0x16
0x07e8…082b at0017 = ╱30╱0╱ // 0x7ff @0x17
0x07e8…082b at0018 = ╱fe00409c0e╱ // 0x800 @0x18
0x07e8…082b at001d = ╱ee╱)╱ // 0x805 @0x1d
0x07e8…082b at001e = ╱e7╱ DIV ╱ // 0x806 @0x1e
0x07e8…082b at001f = ╱31╱1╱ // 0x807 @0x1f
0x07e8…082b at0020 = ╱30╱0╱ // 0x808 @0x20
0x07e8…082b at0021 = ╱30╱0╱ // 0x809 @0x21
0x07e8…082b at0022 = ╱fe0000c807╱ // 0x80a @0x22
0x07e8…082b at0027 = ╱dd╱<╱ // 0x80f @0x27
0x07e8…082b at0028 = ╱31╱1╱ // 0x810 @0x28
0x07e8…082b at0029 = ╱33╱3╱ // 0x811 @0x29
0x07e8…082b at002a = ╱fe0000d004╱ // 0x812 @0x2a
0x07e8…082b at002f = ╱da╱ AND ╱ // 0x817 @0x2f
0x07e8…082b at0030 = ╱50╱P╱ // 0x818 @0x30
0x07e8…082b at0031 = ╱e8╱ MOD ╱ // 0x819 @0x31
0x07e8…082b at0032 = ╱31╱1╱ // 0x81a @0x32
0x07e8…082b at0033 = ╱30╱0╱ // 0x81b @0x33
0x07e8…082b at0034 = ╱30╱0╱ // 0x81c @0x34
0x07e8…082b at0035 = ╱fe0000c807╱ // 0x81d @0x35
0x07e8…082b at003a = ╱dd╱<╱ // 0x822 @0x3a
0x07e8…082b at003b = ╱33╱3╱ // 0x823 @0x3b
0x07e8…082b at003c = ╱32╱2╱ // 0x824 @0x3c
0x07e8…082b at003d = ╱fe00008006╱ // 0x825 @0x3d
0x07e8…082b at0042 = EOL // 0x82a @0x42
0x07e8…082b }
0x082b…0834 958b 0790 J6=P
0x082b…0834 LineComalBin {
0x082b…0834 ptr = 0x958b // 0x82b @0x0
0x082b…0834 lno = 0x0316 // 0x82d @0x2
0x082b…0834 at0004 = ╱4a╱J╱ // 0x82f @0x4
0x082b…0834 at0005 = ╱36╱6╱ // 0x830 @0x5
0x082b…0834 at0006 = ╱dc╱=╱ // 0x831 @0x6
0x082b…0834 at0007 = ╱50╱P╱ // 0x832 @0x7
0x082b…0834 at0008 = EOL // 0x833 @0x8
0x082b…0834 }
0x0834…083c 9593 0800 EXEC UH
0x0834…083c LineComalBin {
0x0834…083c ptr = 0x9593 // 0x834 @0x0
0x0834…083c lno = 0x0320 // 0x836 @0x2
0x0834…083c at0004 = ╱9d╱ EXEC ╱ // 0x838 @0x4
0x0834…083c at0005 = ╱55╱U╱ // 0x839 @0x5
0x0834…083c at0006 = ╱48╱H╱ // 0x83a @0x6
0x0834…083c at0007 = EOL // 0x83b @0x7
0x0834…083c }
0x083c…0845 959c 0810 WHEN -V
0x083c…0845 LineComalBin {
0x083c…0845 ptr = 0x959c // 0x83c @0x0
0x083c…0845 lno = 0x032a // 0x83e @0x2
0x083c…0845 at0004 = ╱a301╱ WHEN ╱ // 0x840 @0x4
0x083c…0845 at0006 = ╱e9╱-╱ // 0x842 @0x6
0x083c…0845 at0007 = ╱56╱V╱ // 0x843 @0x7
0x083c…0845 at0008 = EOL // 0x844 @0x8
0x083c…0845 }
0x0845…0851 95a8 0820 IF I2>I3 THEN
0x0845…0851 LineComalBin {
0x0845…0851 ptr = 0x95a8 // 0x845 @0x0
0x0845…0851 lno = 0x0334 // 0x847 @0x2
0x0845…0851 at0004 = ╱9c╱ IF ╱ // 0x849 @0x4
0x0845…0851 at0005 = ╱49╱I╱ // 0x84a @0x5
0x0845…0851 at0006 = ╱32╱2╱ // 0x84b @0x6
0x0845…0851 at0007 = ╱de╱>╱ // 0x84c @0x7
0x0845…0851 at0008 = ╱49╱I╱ // 0x84d @0x8
0x0845…0851 at0009 = ╱33╱3╱ // 0x84e @0x9
0x0845…0851 at000a = ╱b6╱ THEN ╱ // 0x84f @0xa
0x0845…0851 at000b = EOL // 0x850 @0xb
0x0845…0851 }
0x0851…0865 95bc 0830 I0=I0-E;H5=H5-E
0x0851…0865 LineComalBin {
0x0851…0865 ptr = 0x95bc // 0x851 @0x0
0x0851…0865 lno = 0x033e // 0x853 @0x2
0x0851…0865 at0004 = ╱49╱I╱ // 0x855 @0x4
0x0851…0865 at0005 = ╱30╱0╱ // 0x856 @0x5
0x0851…0865 at0006 = ╱dc╱=╱ // 0x857 @0x6
0x0851…0865 at0007 = ╱49╱I╱ // 0x858 @0x7
0x0851…0865 at0008 = ╱30╱0╱ // 0x859 @0x8
0x0851…0865 at0009 = ╱e3╱-╱ // 0x85a @0x9
0x0851…0865 at000a = ╱45╱E╱ // 0x85b @0xa
0x0851…0865 at000b = ╱eb╱;╱ // 0x85c @0xb
0x0851…0865 at000c = ╱48╱H╱ // 0x85d @0xc
0x0851…0865 at000d = ╱35╱5╱ // 0x85e @0xd
0x0851…0865 at000e = ╱dc╱=╱ // 0x85f @0xe
0x0851…0865 at000f = ╱48╱H╱ // 0x860 @0xf
0x0851…0865 at0010 = ╱35╱5╱ // 0x861 @0x10
0x0851…0865 at0011 = ╱e3╱-╱ // 0x862 @0x11
0x0851…0865 at0012 = ╱45╱E╱ // 0x863 @0x12
0x0851…0865 at0013 = EOL // 0x864 @0x13
0x0851…0865 }
0x0865…0875 95cc 0840 EXEC SL(5)
0x0865…0875 LineComalBin {
0x0865…0875 ptr = 0x95cc // 0x865 @0x0
0x0865…0875 lno = 0x0348 // 0x867 @0x2
0x0865…0875 at0004 = ╱9d╱ EXEC ╱ // 0x869 @0x4
0x0865…0875 at0005 = ╱53╱S╱ // 0x86a @0x5
0x0865…0875 at0006 = ╱4c╱L╱ // 0x86b @0x6
0x0865…0875 at0007 = ╱ed╱(╱ // 0x86c @0x7
0x0865…0875 at0008 = ╱35╱5╱ // 0x86d @0x8
0x0865…0875 at0009 = ╱fe0000a003╱ // 0x86e @0x9
0x0865…0875 at000e = ╱ee╱)╱ // 0x873 @0xe
0x0865…0875 at000f = EOL // 0x874 @0xf
0x0865…0875 }
0x0875…088c 95e3 0850 EXEC ÆN(1,F4$,H8)
0x0875…088c LineComalBin {
0x0875…088c ptr = 0x95e3 // 0x875 @0x0
0x0875…088c lno = 0x0352 // 0x877 @0x2
0x0875…088c at0004 = ╱9d╱ EXEC ╱ // 0x879 @0x4
0x0875…088c at0005 = ╱5b╱Æ╱ // 0x87a @0x5
0x0875…088c at0006 = ╱4e╱N╱ // 0x87b @0x6
0x0875…088c at0007 = ╱ed╱(╱ // 0x87c @0x7
0x0875…088c at0008 = ╱31╱1╱ // 0x87d @0x8
0x0875…088c at0009 = ╱fe00008001╱ // 0x87e @0x9
0x0875…088c at000e = ╱ec╱,╱ // 0x883 @0xe
0x0875…088c at000f = ╱46╱F╱ // 0x884 @0xf
0x0875…088c at0010 = ╱34╱4╱ // 0x885 @0x10
0x0875…088c at0011 = ╱ef╱$╱ // 0x886 @0x11
0x0875…088c at0012 = ╱ec╱,╱ // 0x887 @0x12
0x0875…088c at0013 = ╱48╱H╱ // 0x888 @0x13
0x0875…088c at0014 = ╱38╱8╱ // 0x889 @0x14
0x0875…088c at0015 = ╱ee╱)╱ // 0x88a @0x15
0x0875…088c at0016 = EOL // 0x88b @0x16
0x0875…088c }
0x088c…089e 95f5 0860 I2=I3;I4=I3-E
0x088c…089e LineComalBin {
0x088c…089e ptr = 0x95f5 // 0x88c @0x0
0x088c…089e lno = 0x035c // 0x88e @0x2
0x088c…089e at0004 = ╱49╱I╱ // 0x890 @0x4
0x088c…089e at0005 = ╱32╱2╱ // 0x891 @0x5
0x088c…089e at0006 = ╱dc╱=╱ // 0x892 @0x6
0x088c…089e at0007 = ╱49╱I╱ // 0x893 @0x7
0x088c…089e at0008 = ╱33╱3╱ // 0x894 @0x8
0x088c…089e at0009 = ╱eb╱;╱ // 0x895 @0x9
0x088c…089e at000a = ╱49╱I╱ // 0x896 @0xa
0x088c…089e at000b = ╱34╱4╱ // 0x897 @0xb
0x088c…089e at000c = ╱dc╱=╱ // 0x898 @0xc
0x088c…089e at000d = ╱49╱I╱ // 0x899 @0xd
0x088c…089e at000e = ╱33╱3╱ // 0x89a @0xe
0x088c…089e at000f = ╱e3╱-╱ // 0x89b @0xf
0x088c…089e at0010 = ╱45╱E╱ // 0x89c @0x10
0x088c…089e at0011 = EOL // 0x89d @0x11
0x088c…089e }
0x089e…08a4 95fb 0870 ENDIF
0x089e…08a4 LineComalBin {
0x089e…08a4 ptr = 0x95fb // 0x89e @0x0
0x089e…08a4 lno = 0x0366 // 0x8a0 @0x2
0x089e…08a4 at0004 = ╱9b╱ ENDIF ╱ // 0x8a2 @0x4
0x089e…08a4 at0005 = EOL // 0x8a3 @0x5
0x089e…08a4 }
0x08a4…08aa 9601 0880 ENDCASE
0x08a4…08aa LineComalBin {
0x08a4…08aa ptr = 0x9601 // 0x8a4 @0x0
0x08a4…08aa lno = 0x0370 // 0x8a6 @0x2
0x08a4…08aa at0004 = ╱a4╱ ENDCASE ╱ // 0x8a8 @0x4
0x08a4…08aa at0005 = EOL // 0x8a9 @0x5
0x08a4…08aa }
0x08aa…08b5 960c 0890 UNTIL H9=-E
0x08aa…08b5 LineComalBin {
0x08aa…08b5 ptr = 0x960c // 0x8aa @0x0
0x08aa…08b5 lno = 0x037a // 0x8ac @0x2
0x08aa…08b5 at0004 = ╱98╱ UNTIL ╱ // 0x8ae @0x4
0x08aa…08b5 at0005 = ╱48╱H╱ // 0x8af @0x5
0x08aa…08b5 at0006 = ╱39╱9╱ // 0x8b0 @0x6
0x08aa…08b5 at0007 = ╱dc╱=╱ // 0x8b1 @0x7
0x08aa…08b5 at0008 = ╱e9╱-╱ // 0x8b2 @0x8
0x08aa…08b5 at0009 = ╱45╱E╱ // 0x8b3 @0x9
0x08aa…08b5 at000a = EOL // 0x8b4 @0xa
0x08aa…08b5 }
0x08b5…08c4 961b 0900 UNTIL P=-4
0x08b5…08c4 LineComalBin {
0x08b5…08c4 ptr = 0x961b // 0x8b5 @0x0
0x08b5…08c4 lno = 0x0384 // 0x8b7 @0x2
0x08b5…08c4 at0004 = ╱98╱ UNTIL ╱ // 0x8b9 @0x4
0x08b5…08c4 at0005 = ╱50╱P╱ // 0x8ba @0x5
0x08b5…08c4 at0006 = ╱dc╱=╱ // 0x8bb @0x6
0x08b5…08c4 at0007 = ╱e9╱-╱ // 0x8bc @0x7
0x08b5…08c4 at0008 = ╱34╱4╱ // 0x8bd @0x8
0x08b5…08c4 at0009 = ╱fe00008003╱ // 0x8be @0x9
0x08b5…08c4 at000e = EOL // 0x8c3 @0xe
0x08b5…08c4 }
0x08c4…08cc 9623 0910 WHEN G
0x08c4…08cc LineComalBin {
0x08c4…08cc ptr = 0x9623 // 0x8c4 @0x0
0x08c4…08cc lno = 0x038e // 0x8c6 @0x2
0x08c4…08cc at0004 = ╱a301╱ WHEN ╱ // 0x8c8 @0x4
0x08c4…08cc at0006 = ╱47╱G╱ // 0x8ca @0x6
0x08c4…08cc at0007 = EOL // 0x8cb @0x7
0x08c4…08cc }
0x08cc…08d2 9629 0920 REPEAT
0x08cc…08d2 LineComalBin {
0x08cc…08d2 ptr = 0x9629 // 0x8cc @0x0
0x08cc…08d2 lno = 0x0398 // 0x8ce @0x2
0x08cc…08d2 at0004 = ╱97╱ REPEAT ╱ // 0x8d0 @0x4
0x08cc…08d2 at0005 = EOL // 0x8d1 @0x5
0x08cc…08d2 }
0x08d2…08d8 962f 0930 REPEAT
0x08d2…08d8 LineComalBin {
0x08d2…08d8 ptr = 0x962f // 0x8d2 @0x0
0x08d2…08d8 lno = 0x03a2 // 0x8d4 @0x2
0x08d2…08d8 at0004 = ╱97╱ REPEAT ╱ // 0x8d6 @0x4
0x08d2…08d8 at0005 = EOL // 0x8d7 @0x5
0x08d2…08d8 }
0x08d8…08e7 963e 0940 CURSOR V,23
0x08d8…08e7 LineComalBin {
0x08d8…08e7 ptr = 0x963e // 0x8d8 @0x0
0x08d8…08e7 lno = 0x03ac // 0x8da @0x2
0x08d8…08e7 at0004 = ╱a1╱ CURSOR ╱ // 0x8dc @0x4
0x08d8…08e7 at0005 = ╱56╱V╱ // 0x8dd @0x5
0x08d8…08e7 at0006 = ╱ec╱,╱ // 0x8de @0x6
0x08d8…08e7 at0007 = ╱32╱2╱ // 0x8df @0x7
0x08d8…08e7 at0008 = ╱33╱3╱ // 0x8e0 @0x8
0x08d8…08e7 at0009 = ╱fe0000b805╱ // 0x8e1 @0x9
0x08d8…08e7 at000e = EOL // 0x8e6 @0xe
0x08d8…08e7 }
0x08e7…0922 9679 0950 PRINT "Tekst"+B7$(E:27)+"(max 25 tegn)"+B7$(E:32)
0x08e7…0922 LineComalBin {
0x08e7…0922 ptr = 0x9679 // 0x8e7 @0x0
0x08e7…0922 lno = 0x03b6 // 0x8e9 @0x2
0x08e7…0922 at0004 = ╱92╱ PRINT ╱ // 0x8eb @0x4
0x08e7…0922 at0005 = ╱22╱"╱ // 0x8ec @0x5
0x08e7…0922 at0006 = ╱54╱T╱ // 0x8ed @0x6
0x08e7…0922 at0007 = ╱65╱e╱ // 0x8ee @0x7
0x08e7…0922 at0008 = ╱6b╱k╱ // 0x8ef @0x8
0x08e7…0922 at0009 = ╱73╱s╱ // 0x8f0 @0x9
0x08e7…0922 at000a = ╱74╱t╱ // 0x8f1 @0xa
0x08e7…0922 at000b = ╱22╱"╱ // 0x8f2 @0xb
0x08e7…0922 at000c = ╱f1╱+╱ // 0x8f3 @0xc
0x08e7…0922 at000d = ╱42╱B╱ // 0x8f4 @0xd
0x08e7…0922 at000e = ╱37╱7╱ // 0x8f5 @0xe
0x08e7…0922 at000f = ╱ef╱$╱ // 0x8f6 @0xf
0x08e7…0922 at0010 = ╱ed╱(╱ // 0x8f7 @0x10
0x08e7…0922 at0011 = ╱45╱E╱ // 0x8f8 @0x11
0x08e7…0922 at0012 = ╱f0╱:╱ // 0x8f9 @0x12
0x08e7…0922 at0013 = ╱32╱2╱ // 0x8fa @0x13
0x08e7…0922 at0014 = ╱37╱7╱ // 0x8fb @0x14
0x08e7…0922 at0015 = ╱fe0000d805╱ // 0x8fc @0x15
0x08e7…0922 at001a = ╱ee╱)╱ // 0x901 @0x1a
0x08e7…0922 at001b = ╱f1╱+╱ // 0x902 @0x1b
0x08e7…0922 at001c = ╱22╱"╱ // 0x903 @0x1c
0x08e7…0922 at001d = ╱28╱(╱ // 0x904 @0x1d
0x08e7…0922 at001e = ╱6d╱m╱ // 0x905 @0x1e
0x08e7…0922 at001f = ╱61╱a╱ // 0x906 @0x1f
0x08e7…0922 at0020 = ╱78╱x╱ // 0x907 @0x20
0x08e7…0922 at0021 = ╱20╱…╱ // 0x908 @0x21
0x08e7…0922 at0022 = ╱32╱2╱ // 0x909 @0x22
0x08e7…0922 at0023 = ╱35╱5╱ // 0x90a @0x23
0x08e7…0922 at0024 = ╱20╱…╱ // 0x90b @0x24
0x08e7…0922 at0025 = ╱74╱t╱ // 0x90c @0x25
0x08e7…0922 at0026 = ╱65╱e╱ // 0x90d @0x26
0x08e7…0922 at0027 = ╱67╱g╱ // 0x90e @0x27
0x08e7…0922 at0028 = ╱6e╱n╱ // 0x90f @0x28
0x08e7…0922 at0029 = ╱29╱)╱ // 0x910 @0x29
0x08e7…0922 at002a = ╱22╱"╱ // 0x911 @0x2a
0x08e7…0922 at002b = ╱f1╱+╱ // 0x912 @0x2b
0x08e7…0922 at002c = ╱42╱B╱ // 0x913 @0x2c
0x08e7…0922 at002d = ╱37╱7╱ // 0x914 @0x2d
0x08e7…0922 at002e = ╱ef╱$╱ // 0x915 @0x2e
0x08e7…0922 at002f = ╱ed╱(╱ // 0x916 @0x2f
0x08e7…0922 at0030 = ╱45╱E╱ // 0x917 @0x30
0x08e7…0922 at0031 = ╱f0╱:╱ // 0x918 @0x31
0x08e7…0922 at0032 = ╱33╱3╱ // 0x919 @0x32
0x08e7…0922 at0033 = ╱32╱2╱ // 0x91a @0x33
0x08e7…0922 at0034 = ╱fe00008006╱ // 0x91b @0x34
0x08e7…0922 at0039 = ╱ee╱)╱ // 0x920 @0x39
0x08e7…0922 at003a = EOL // 0x921 @0x3a
0x08e7…0922 }
0x0922…0931 9688 0960 CURSOR W,23
0x0922…0931 LineComalBin {
0x0922…0931 ptr = 0x9688 // 0x922 @0x0
0x0922…0931 lno = 0x03c0 // 0x924 @0x2
0x0922…0931 at0004 = ╱a1╱ CURSOR ╱ // 0x926 @0x4
0x0922…0931 at0005 = ╱57╱W╱ // 0x927 @0x5
0x0922…0931 at0006 = ╱ec╱,╱ // 0x928 @0x6
0x0922…0931 at0007 = ╱32╱2╱ // 0x929 @0x7
0x0922…0931 at0008 = ╱33╱3╱ // 0x92a @0x8
0x0922…0931 at0009 = ╱fe0000b805╱ // 0x92b @0x9
0x0922…0931 at000e = EOL // 0x930 @0xe
0x0922…0931 }
0x0931…093a 9691 0970 INPUT D4$
0x0931…093a LineComalBin {
0x0931…093a ptr = 0x9691 // 0x931 @0x0
0x0931…093a lno = 0x03ca // 0x933 @0x2
0x0931…093a at0004 = ╱91╱ INPUT ╱ // 0x935 @0x4
0x0931…093a at0005 = ╱44╱D╱ // 0x936 @0x5
0x0931…093a at0006 = ╱34╱4╱ // 0x937 @0x6
0x0931…093a at0007 = ╱ef╱$╱ // 0x938 @0x7
0x0931…093a at0008 = EOL // 0x939 @0x8
0x0931…093a }
0x093a…0948 969f 0980 I5=LEN(D4$)
0x093a…0948 LineComalBin {
0x093a…0948 ptr = 0x969f // 0x93a @0x0
0x093a…0948 lno = 0x03d4 // 0x93c @0x2
0x093a…0948 at0004 = ╱49╱I╱ // 0x93e @0x4
0x093a…0948 at0005 = ╱35╱5╱ // 0x93f @0x5
0x093a…0948 at0006 = ╱dc╱=╱ // 0x940 @0x6
0x093a…0948 at0007 = ╱cc╱LEN╱ // 0x941 @0x7
0x093a…0948 at0008 = ╱ed╱(╱ // 0x942 @0x8
0x093a…0948 at0009 = ╱44╱D╱ // 0x943 @0x9
0x093a…0948 at000a = ╱34╱4╱ // 0x944 @0xa
0x093a…0948 at000b = ╱ef╱$╱ // 0x945 @0xb
0x093a…0948 at000c = ╱ee╱)╱ // 0x946 @0xc
0x093a…0948 at000d = EOL // 0x947 @0xd
0x093a…0948 }
0x0948…0958 96af 0990 UNTIL I5<=25
0x0948…0958 LineComalBin {
0x0948…0958 ptr = 0x96af // 0x948 @0x0
0x0948…0958 lno = 0x03de // 0x94a @0x2
0x0948…0958 at0004 = ╱98╱ UNTIL ╱ // 0x94c @0x4
0x0948…0958 at0005 = ╱49╱I╱ // 0x94d @0x5
0x0948…0958 at0006 = ╱35╱5╱ // 0x94e @0x6
0x0948…0958 at0007 = ╱df╱<=╱ // 0x94f @0x7
0x0948…0958 at0008 = ╱32╱2╱ // 0x950 @0x8
0x0948…0958 at0009 = ╱35╱5╱ // 0x951 @0x9
0x0948…0958 at000a = ╱fe0000c805╱ // 0x952 @0xa
0x0948…0958 at000f = EOL // 0x957 @0xf
0x0948…0958 }
0x0958…0963 96ba 1000 IF I5<V THEN
0x0958…0963 LineComalBin {
0x0958…0963 ptr = 0x96ba // 0x958 @0x0
0x0958…0963 lno = 0x03e8 // 0x95a @0x2
0x0958…0963 at0004 = ╱9c╱ IF ╱ // 0x95c @0x4
0x0958…0963 at0005 = ╱49╱I╱ // 0x95d @0x5
0x0958…0963 at0006 = ╱35╱5╱ // 0x95e @0x6
0x0958…0963 at0007 = ╱dd╱<╱ // 0x95f @0x7
0x0958…0963 at0008 = ╱56╱V╱ // 0x960 @0x8
0x0958…0963 at0009 = ╱b6╱ THEN ╱ // 0x961 @0x9
0x0958…0963 at000a = EOL // 0x962 @0xa
0x0958…0963 }
0x0963…0970 96c7 1010 EXEC NR(D4$)
0x0963…0970 LineComalBin {
0x0963…0970 ptr = 0x96c7 // 0x963 @0x0
0x0963…0970 lno = 0x03f2 // 0x965 @0x2
0x0963…0970 at0004 = ╱9d╱ EXEC ╱ // 0x967 @0x4
0x0963…0970 at0005 = ╱4e╱N╱ // 0x968 @0x5
0x0963…0970 at0006 = ╱52╱R╱ // 0x969 @0x6
0x0963…0970 at0007 = ╱ed╱(╱ // 0x96a @0x7
0x0963…0970 at0008 = ╱44╱D╱ // 0x96b @0x8
0x0963…0970 at0009 = ╱34╱4╱ // 0x96c @0x9
0x0963…0970 at000a = ╱ef╱$╱ // 0x96d @0xa
0x0963…0970 at000b = ╱ee╱)╱ // 0x96e @0xb
0x0963…0970 at000c = EOL // 0x96f @0xc
0x0963…0970 }
0x0970…0976 96cd 1020 ELSE
0x0970…0976 LineComalBin {
0x0970…0976 ptr = 0x96cd // 0x970 @0x0
0x0970…0976 lno = 0x03fc // 0x972 @0x2
0x0970…0976 at0004 = ╱9a╱ ELSE ╱ // 0x974 @0x4
0x0970…0976 at0005 = EOL // 0x975 @0x5
0x0970…0976 }
0x0976…0989 96e0 1030 P=20;H4=B
0x0976…0989 LineComalBin {
0x0976…0989 ptr = 0x96e0 // 0x976 @0x0
0x0976…0989 lno = 0x0406 // 0x978 @0x2
0x0976…0989 at0004 = ╱50╱P╱ // 0x97a @0x4
0x0976…0989 at0005 = ╱dc╱=╱ // 0x97b @0x5
0x0976…0989 at0006 = ╱32╱2╱ // 0x97c @0x6
0x0976…0989 at0007 = ╱30╱0╱ // 0x97d @0x7
0x0976…0989 at0008 = ╱fe0000a005╱ // 0x97e @0x8
0x0976…0989 at000d = ╱eb╱;╱ // 0x983 @0xd
0x0976…0989 at000e = ╱48╱H╱ // 0x984 @0xe
0x0976…0989 at000f = ╱34╱4╱ // 0x985 @0xf
0x0976…0989 at0010 = ╱dc╱=╱ // 0x986 @0x10
0x0976…0989 at0011 = ╱42╱B╱ // 0x987 @0x11
0x0976…0989 at0012 = EOL // 0x988 @0x12
0x0976…0989 }
0x0989…098f 96e6 1040 ENDIF
0x0989…098f LineComalBin {
0x0989…098f ptr = 0x96e6 // 0x989 @0x0
0x0989…098f lno = 0x0410 // 0x98b @0x2
0x0989…098f at0004 = ╱9b╱ ENDIF ╱ // 0x98d @0x4
0x0989…098f at0005 = EOL // 0x98e @0x5
0x0989…098f }
0x098f…09b1 9708 1050 UNTIL P=>B AND P<21 AND H4=B AND P<>10
0x098f…09b1 LineComalBin {
0x098f…09b1 ptr = 0x9708 // 0x98f @0x0
0x098f…09b1 lno = 0x041a // 0x991 @0x2
0x098f…09b1 at0004 = ╱98╱ UNTIL ╱ // 0x993 @0x4
0x098f…09b1 at0005 = ╱50╱P╱ // 0x994 @0x5
0x098f…09b1 at0006 = ╱e0╱=>╱ // 0x995 @0x6
0x098f…09b1 at0007 = ╱42╱B╱ // 0x996 @0x7
0x098f…09b1 at0008 = ╱da╱ AND ╱ // 0x997 @0x8
0x098f…09b1 at0009 = ╱50╱P╱ // 0x998 @0x9
0x098f…09b1 at000a = ╱dd╱<╱ // 0x999 @0xa
0x098f…09b1 at000b = ╱32╱2╱ // 0x99a @0xb
0x098f…09b1 at000c = ╱31╱1╱ // 0x99b @0xc
0x098f…09b1 at000d = ╱fe0000a805╱ // 0x99c @0xd
0x098f…09b1 at0012 = ╱da╱ AND ╱ // 0x9a1 @0x12
0x098f…09b1 at0013 = ╱48╱H╱ // 0x9a2 @0x13
0x098f…09b1 at0014 = ╱34╱4╱ // 0x9a3 @0x14
0x098f…09b1 at0015 = ╱dc╱=╱ // 0x9a4 @0x15
0x098f…09b1 at0016 = ╱42╱B╱ // 0x9a5 @0x16
0x098f…09b1 at0017 = ╱da╱ AND ╱ // 0x9a6 @0x17
0x098f…09b1 at0018 = ╱50╱P╱ // 0x9a7 @0x18
0x098f…09b1 at0019 = ╱e1╱<>╱ // 0x9a8 @0x19
0x098f…09b1 at001a = ╱31╱1╱ // 0x9a9 @0x1a
0x098f…09b1 at001b = ╱30╱0╱ // 0x9aa @0x1b
0x098f…09b1 at001c = ╱fe0000a004╱ // 0x9ab @0x1c
0x098f…09b1 at0021 = EOL // 0x9b0 @0x21
0x098f…09b1 }
0x09b1…09bd 9714 1060 E4$=B7$
0x09b1…09bd LineComalBin {
0x09b1…09bd ptr = 0x9714 // 0x9b1 @0x0
0x09b1…09bd lno = 0x0424 // 0x9b3 @0x2
0x09b1…09bd at0004 = ╱45╱E╱ // 0x9b5 @0x4
0x09b1…09bd at0005 = ╱34╱4╱ // 0x9b6 @0x5
0x09b1…09bd at0006 = ╱ef╱$╱ // 0x9b7 @0x6
0x09b1…09bd at0007 = ╱dc╱=╱ // 0x9b8 @0x7
0x09b1…09bd at0008 = ╱42╱B╱ // 0x9b9 @0x8
0x09b1…09bd at0009 = ╱37╱7╱ // 0x9ba @0x9
0x09b1…09bd at000a = ╱ef╱$╱ // 0x9bb @0xa
0x09b1…09bd at000b = EOL // 0x9bc @0xb
0x09b1…09bd }
0x09bd…09c7 971e 1070 IF P<>B THEN
0x09bd…09c7 LineComalBin {
0x09bd…09c7 ptr = 0x971e // 0x9bd @0x0
0x09bd…09c7 lno = 0x042e // 0x9bf @0x2
0x09bd…09c7 at0004 = ╱9c╱ IF ╱ // 0x9c1 @0x4
0x09bd…09c7 at0005 = ╱50╱P╱ // 0x9c2 @0x5
0x09bd…09c7 at0006 = ╱e1╱<>╱ // 0x9c3 @0x6
0x09bd…09c7 at0007 = ╱42╱B╱ // 0x9c4 @0x7
0x09bd…09c7 at0008 = ╱b6╱ THEN ╱ // 0x9c5 @0x8
0x09bd…09c7 at0009 = EOL // 0x9c6 @0x9
0x09bd…09c7 }
0x09c7…09d8 972f 1080 I6=P MOD 10
0x09c7…09d8 LineComalBin {
0x09c7…09d8 ptr = 0x972f // 0x9c7 @0x0
0x09c7…09d8 lno = 0x0438 // 0x9c9 @0x2
0x09c7…09d8 at0004 = ╱49╱I╱ // 0x9cb @0x4
0x09c7…09d8 at0005 = ╱36╱6╱ // 0x9cc @0x5
0x09c7…09d8 at0006 = ╱dc╱=╱ // 0x9cd @0x6
0x09c7…09d8 at0007 = ╱50╱P╱ // 0x9ce @0x7
0x09c7…09d8 at0008 = ╱e8╱ MOD ╱ // 0x9cf @0x8
0x09c7…09d8 at0009 = ╱31╱1╱ // 0x9d0 @0x9
0x09c7…09d8 at000a = ╱30╱0╱ // 0x9d1 @0xa
0x09c7…09d8 at000b = ╱fe0000a004╱ // 0x9d2 @0xb
0x09c7…09d8 at0010 = EOL // 0x9d7 @0x10
0x09c7…09d8 }
0x09d8…09e3 973a 1090 IF I6=B THEN
0x09d8…09e3 LineComalBin {
0x09d8…09e3 ptr = 0x973a // 0x9d8 @0x0
0x09d8…09e3 lno = 0x0442 // 0x9da @0x2
0x09d8…09e3 at0004 = ╱9c╱ IF ╱ // 0x9dc @0x4
0x09d8…09e3 at0005 = ╱49╱I╱ // 0x9dd @0x5
0x09d8…09e3 at0006 = ╱36╱6╱ // 0x9de @0x6
0x09d8…09e3 at0007 = ╱dc╱=╱ // 0x9df @0x7
0x09d8…09e3 at0008 = ╱42╱B╱ // 0x9e0 @0x8
0x09d8…09e3 at0009 = ╱b6╱ THEN ╱ // 0x9e1 @0x9
0x09d8…09e3 at000a = EOL // 0x9e2 @0xa
0x09d8…09e3 }
0x09e3…0a01 9758 1100 P=10;E3$=D4$;E4$=E3$
0x09e3…0a01 LineComalBin {
0x09e3…0a01 ptr = 0x9758 // 0x9e3 @0x0
0x09e3…0a01 lno = 0x044c // 0x9e5 @0x2
0x09e3…0a01 at0004 = ╱50╱P╱ // 0x9e7 @0x4
0x09e3…0a01 at0005 = ╱dc╱=╱ // 0x9e8 @0x5
0x09e3…0a01 at0006 = ╱31╱1╱ // 0x9e9 @0x6
0x09e3…0a01 at0007 = ╱30╱0╱ // 0x9ea @0x7
0x09e3…0a01 at0008 = ╱fe0000a004╱ // 0x9eb @0x8
0x09e3…0a01 at000d = ╱eb╱;╱ // 0x9f0 @0xd
0x09e3…0a01 at000e = ╱45╱E╱ // 0x9f1 @0xe
0x09e3…0a01 at000f = ╱33╱3╱ // 0x9f2 @0xf
0x09e3…0a01 at0010 = ╱ef╱$╱ // 0x9f3 @0x10
0x09e3…0a01 at0011 = ╱dc╱=╱ // 0x9f4 @0x11
0x09e3…0a01 at0012 = ╱44╱D╱ // 0x9f5 @0x12
0x09e3…0a01 at0013 = ╱34╱4╱ // 0x9f6 @0x13
0x09e3…0a01 at0014 = ╱ef╱$╱ // 0x9f7 @0x14
0x09e3…0a01 at0015 = ╱eb╱;╱ // 0x9f8 @0x15
0x09e3…0a01 at0016 = ╱45╱E╱ // 0x9f9 @0x16
0x09e3…0a01 at0017 = ╱34╱4╱ // 0x9fa @0x17
0x09e3…0a01 at0018 = ╱ef╱$╱ // 0x9fb @0x18
0x09e3…0a01 at0019 = ╱dc╱=╱ // 0x9fc @0x19
0x09e3…0a01 at001a = ╱45╱E╱ // 0x9fd @0x1a
0x09e3…0a01 at001b = ╱33╱3╱ // 0x9fe @0x1b
0x09e3…0a01 at001c = ╱ef╱$╱ // 0x9ff @0x1c
0x09e3…0a01 at001d = EOL // 0xa00 @0x1d
0x09e3…0a01 }
0x0a01…0a07 975e 1110 ELSE
0x0a01…0a07 LineComalBin {
0x0a01…0a07 ptr = 0x975e // 0xa01 @0x0
0x0a01…0a07 lno = 0x0456 // 0xa03 @0x2
0x0a01…0a07 at0004 = ╱9a╱ ELSE ╱ // 0xa05 @0x4
0x0a01…0a07 at0005 = EOL // 0xa06 @0x5
0x0a01…0a07 }
0x0a07…0a26 977d 1120 E4$=E5$(I6)+B7$(E:15)
0x0a07…0a26 LineComalBin {
0x0a07…0a26 ptr = 0x977d // 0xa07 @0x0
0x0a07…0a26 lno = 0x0460 // 0xa09 @0x2
0x0a07…0a26 at0004 = ╱45╱E╱ // 0xa0b @0x4
0x0a07…0a26 at0005 = ╱34╱4╱ // 0xa0c @0x5
0x0a07…0a26 at0006 = ╱ef╱$╱ // 0xa0d @0x6
0x0a07…0a26 at0007 = ╱dc╱=╱ // 0xa0e @0x7
0x0a07…0a26 at0008 = ╱45╱E╱ // 0xa0f @0x8
0x0a07…0a26 at0009 = ╱35╱5╱ // 0xa10 @0x9
0x0a07…0a26 at000a = ╱ef╱$╱ // 0xa11 @0xa
0x0a07…0a26 at000b = ╱ed╱(╱ // 0xa12 @0xb
0x0a07…0a26 at000c = ╱49╱I╱ // 0xa13 @0xc
0x0a07…0a26 at000d = ╱36╱6╱ // 0xa14 @0xd
0x0a07…0a26 at000e = ╱ee╱)╱ // 0xa15 @0xe
0x0a07…0a26 at000f = ╱f1╱+╱ // 0xa16 @0xf
0x0a07…0a26 at0010 = ╱42╱B╱ // 0xa17 @0x10
0x0a07…0a26 at0011 = ╱37╱7╱ // 0xa18 @0x11
0x0a07…0a26 at0012 = ╱ef╱$╱ // 0xa19 @0x12
0x0a07…0a26 at0013 = ╱ed╱(╱ // 0xa1a @0x13
0x0a07…0a26 at0014 = ╱45╱E╱ // 0xa1b @0x14
0x0a07…0a26 at0015 = ╱f0╱:╱ // 0xa1c @0x15
0x0a07…0a26 at0016 = ╱31╱1╱ // 0xa1d @0x16
0x0a07…0a26 at0017 = ╱35╱5╱ // 0xa1e @0x17
0x0a07…0a26 at0018 = ╱fe0000f004╱ // 0xa1f @0x18
0x0a07…0a26 at001d = ╱ee╱)╱ // 0xa24 @0x1d
0x0a07…0a26 at001e = EOL // 0xa25 @0x1e
0x0a07…0a26 }
0x0a26…0a36 978d 1130 IF P>10 THEN
0x0a26…0a36 LineComalBin {
0x0a26…0a36 ptr = 0x978d // 0xa26 @0x0
0x0a26…0a36 lno = 0x046a // 0xa28 @0x2
0x0a26…0a36 at0004 = ╱9c╱ IF ╱ // 0xa2a @0x4
0x0a26…0a36 at0005 = ╱50╱P╱ // 0xa2b @0x5
0x0a26…0a36 at0006 = ╱de╱>╱ // 0xa2c @0x6
0x0a26…0a36 at0007 = ╱31╱1╱ // 0xa2d @0x7
0x0a26…0a36 at0008 = ╱30╱0╱ // 0xa2e @0x8
0x0a26…0a36 at0009 = ╱fe0000a004╱ // 0xa2f @0x9
0x0a26…0a36 at000e = ╱b6╱ THEN ╱ // 0xa34 @0xe
0x0a26…0a36 at000f = EOL // 0xa35 @0xf
0x0a26…0a36 }
0x0a36…0a3c 9793 1140 REPEAT
0x0a36…0a3c LineComalBin {
0x0a36…0a3c ptr = 0x9793 // 0xa36 @0x0
0x0a36…0a3c lno = 0x0474 // 0xa38 @0x2
0x0a36…0a3c at0004 = ╱97╱ REPEAT ╱ // 0xa3a @0x4
0x0a36…0a3c at0005 = EOL // 0xa3b @0x5
0x0a36…0a3c }
0x0a3c…0a4b 97a2 1150 CURSOR V,23
0x0a3c…0a4b LineComalBin {
0x0a3c…0a4b ptr = 0x97a2 // 0xa3c @0x0
0x0a3c…0a4b lno = 0x047e // 0xa3e @0x2
0x0a3c…0a4b at0004 = ╱a1╱ CURSOR ╱ // 0xa40 @0x4
0x0a3c…0a4b at0005 = ╱56╱V╱ // 0xa41 @0x5
0x0a3c…0a4b at0006 = ╱ec╱,╱ // 0xa42 @0x6
0x0a3c…0a4b at0007 = ╱32╱2╱ // 0xa43 @0x7
0x0a3c…0a4b at0008 = ╱33╱3╱ // 0xa44 @0x8
0x0a3c…0a4b at0009 = ╱fe0000b805╱ // 0xa45 @0x9
0x0a3c…0a4b at000e = EOL // 0xa4a @0xe
0x0a3c…0a4b }
0x0a4b…0a86 97dd 1160 PRINT "Tekst";B7$(E:16);"(max 14 tegn)"+B7$(E:43)
0x0a4b…0a86 LineComalBin {
0x0a4b…0a86 ptr = 0x97dd // 0xa4b @0x0
0x0a4b…0a86 lno = 0x0488 // 0xa4d @0x2
0x0a4b…0a86 at0004 = ╱92╱ PRINT ╱ // 0xa4f @0x4
0x0a4b…0a86 at0005 = ╱22╱"╱ // 0xa50 @0x5
0x0a4b…0a86 at0006 = ╱54╱T╱ // 0xa51 @0x6
0x0a4b…0a86 at0007 = ╱65╱e╱ // 0xa52 @0x7
0x0a4b…0a86 at0008 = ╱6b╱k╱ // 0xa53 @0x8
0x0a4b…0a86 at0009 = ╱73╱s╱ // 0xa54 @0x9
0x0a4b…0a86 at000a = ╱74╱t╱ // 0xa55 @0xa
0x0a4b…0a86 at000b = ╱22╱"╱ // 0xa56 @0xb
0x0a4b…0a86 at000c = ╱eb╱;╱ // 0xa57 @0xc
0x0a4b…0a86 at000d = ╱42╱B╱ // 0xa58 @0xd
0x0a4b…0a86 at000e = ╱37╱7╱ // 0xa59 @0xe
0x0a4b…0a86 at000f = ╱ef╱$╱ // 0xa5a @0xf
0x0a4b…0a86 at0010 = ╱ed╱(╱ // 0xa5b @0x10
0x0a4b…0a86 at0011 = ╱45╱E╱ // 0xa5c @0x11
0x0a4b…0a86 at0012 = ╱f0╱:╱ // 0xa5d @0x12
0x0a4b…0a86 at0013 = ╱31╱1╱ // 0xa5e @0x13
0x0a4b…0a86 at0014 = ╱36╱6╱ // 0xa5f @0x14
0x0a4b…0a86 at0015 = ╱fe00008005╱ // 0xa60 @0x15
0x0a4b…0a86 at001a = ╱ee╱)╱ // 0xa65 @0x1a
0x0a4b…0a86 at001b = ╱eb╱;╱ // 0xa66 @0x1b
0x0a4b…0a86 at001c = ╱22╱"╱ // 0xa67 @0x1c
0x0a4b…0a86 at001d = ╱28╱(╱ // 0xa68 @0x1d
0x0a4b…0a86 at001e = ╱6d╱m╱ // 0xa69 @0x1e
0x0a4b…0a86 at001f = ╱61╱a╱ // 0xa6a @0x1f
0x0a4b…0a86 at0020 = ╱78╱x╱ // 0xa6b @0x20
0x0a4b…0a86 at0021 = ╱20╱…╱ // 0xa6c @0x21
0x0a4b…0a86 at0022 = ╱31╱1╱ // 0xa6d @0x22
0x0a4b…0a86 at0023 = ╱34╱4╱ // 0xa6e @0x23
0x0a4b…0a86 at0024 = ╱20╱…╱ // 0xa6f @0x24
0x0a4b…0a86 at0025 = ╱74╱t╱ // 0xa70 @0x25
0x0a4b…0a86 at0026 = ╱65╱e╱ // 0xa71 @0x26
0x0a4b…0a86 at0027 = ╱67╱g╱ // 0xa72 @0x27
0x0a4b…0a86 at0028 = ╱6e╱n╱ // 0xa73 @0x28
0x0a4b…0a86 at0029 = ╱29╱)╱ // 0xa74 @0x29
0x0a4b…0a86 at002a = ╱22╱"╱ // 0xa75 @0x2a
0x0a4b…0a86 at002b = ╱f1╱+╱ // 0xa76 @0x2b
0x0a4b…0a86 at002c = ╱42╱B╱ // 0xa77 @0x2c
0x0a4b…0a86 at002d = ╱37╱7╱ // 0xa78 @0x2d
0x0a4b…0a86 at002e = ╱ef╱$╱ // 0xa79 @0x2e
0x0a4b…0a86 at002f = ╱ed╱(╱ // 0xa7a @0x2f
0x0a4b…0a86 at0030 = ╱45╱E╱ // 0xa7b @0x30
0x0a4b…0a86 at0031 = ╱f0╱:╱ // 0xa7c @0x31
0x0a4b…0a86 at0032 = ╱34╱4╱ // 0xa7d @0x32
0x0a4b…0a86 at0033 = ╱33╱3╱ // 0xa7e @0x33
0x0a4b…0a86 at0034 = ╱fe0000ac06╱ // 0xa7f @0x34
0x0a4b…0a86 at0039 = ╱ee╱)╱ // 0xa84 @0x39
0x0a4b…0a86 at003a = EOL // 0xa85 @0x3a
0x0a4b…0a86 }
0x0a86…0a95 97ec 1170 CURSOR W,23
0x0a86…0a95 LineComalBin {
0x0a86…0a95 ptr = 0x97ec // 0xa86 @0x0
0x0a86…0a95 lno = 0x0492 // 0xa88 @0x2
0x0a86…0a95 at0004 = ╱a1╱ CURSOR ╱ // 0xa8a @0x4
0x0a86…0a95 at0005 = ╱57╱W╱ // 0xa8b @0x5
0x0a86…0a95 at0006 = ╱ec╱,╱ // 0xa8c @0x6
0x0a86…0a95 at0007 = ╱32╱2╱ // 0xa8d @0x7
0x0a86…0a95 at0008 = ╱33╱3╱ // 0xa8e @0x8
0x0a86…0a95 at0009 = ╱fe0000b805╱ // 0xa8f @0x9
0x0a86…0a95 at000e = EOL // 0xa94 @0xe
0x0a86…0a95 }
0x0a95…0a9e 97f5 1180 INPUT D4$
0x0a95…0a9e LineComalBin {
0x0a95…0a9e ptr = 0x97f5 // 0xa95 @0x0
0x0a95…0a9e lno = 0x049c // 0xa97 @0x2
0x0a95…0a9e at0004 = ╱91╱ INPUT ╱ // 0xa99 @0x4
0x0a95…0a9e at0005 = ╱44╱D╱ // 0xa9a @0x5
0x0a95…0a9e at0006 = ╱34╱4╱ // 0xa9b @0x6
0x0a95…0a9e at0007 = ╱ef╱$╱ // 0xa9c @0x7
0x0a95…0a9e at0008 = EOL // 0xa9d @0x8
0x0a95…0a9e }
0x0a9e…0ab2 9809 1190 UNTIL LEN(D4$)<15
0x0a9e…0ab2 LineComalBin {
0x0a9e…0ab2 ptr = 0x9809 // 0xa9e @0x0
0x0a9e…0ab2 lno = 0x04a6 // 0xaa0 @0x2
0x0a9e…0ab2 at0004 = ╱98╱ UNTIL ╱ // 0xaa2 @0x4
0x0a9e…0ab2 at0005 = ╱cc╱LEN╱ // 0xaa3 @0x5
0x0a9e…0ab2 at0006 = ╱ed╱(╱ // 0xaa4 @0x6
0x0a9e…0ab2 at0007 = ╱44╱D╱ // 0xaa5 @0x7
0x0a9e…0ab2 at0008 = ╱34╱4╱ // 0xaa6 @0x8
0x0a9e…0ab2 at0009 = ╱ef╱$╱ // 0xaa7 @0x9
0x0a9e…0ab2 at000a = ╱ee╱)╱ // 0xaa8 @0xa
0x0a9e…0ab2 at000b = ╱dd╱<╱ // 0xaa9 @0xb
0x0a9e…0ab2 at000c = ╱31╱1╱ // 0xaaa @0xc
0x0a9e…0ab2 at000d = ╱35╱5╱ // 0xaab @0xd
0x0a9e…0ab2 at000e = ╱fe0000f004╱ // 0xaac @0xe
0x0a9e…0ab2 at0013 = EOL // 0xab1 @0x13
0x0a9e…0ab2 }
0x0ab2…0ad7 982e 1200 E4$(12,25)=D4$;E3$=E4$
0x0ab2…0ad7 LineComalBin {
0x0ab2…0ad7 ptr = 0x982e // 0xab2 @0x0
0x0ab2…0ad7 lno = 0x04b0 // 0xab4 @0x2
0x0ab2…0ad7 at0004 = ╱45╱E╱ // 0xab6 @0x4
0x0ab2…0ad7 at0005 = ╱34╱4╱ // 0xab7 @0x5
0x0ab2…0ad7 at0006 = ╱ef╱$╱ // 0xab8 @0x6
0x0ab2…0ad7 at0007 = ╱ed╱(╱ // 0xab9 @0x7
0x0ab2…0ad7 at0008 = ╱31╱1╱ // 0xaba @0x8
0x0ab2…0ad7 at0009 = ╱32╱2╱ // 0xabb @0x9
0x0ab2…0ad7 at000a = ╱fe0000c004╱ // 0xabc @0xa
0x0ab2…0ad7 at000f = ╱ec╱,╱ // 0xac1 @0xf
0x0ab2…0ad7 at0010 = ╱32╱2╱ // 0xac2 @0x10
0x0ab2…0ad7 at0011 = ╱35╱5╱ // 0xac3 @0x11
0x0ab2…0ad7 at0012 = ╱fe0000c805╱ // 0xac4 @0x12
0x0ab2…0ad7 at0017 = ╱ee╱)╱ // 0xac9 @0x17
0x0ab2…0ad7 at0018 = ╱dc╱=╱ // 0xaca @0x18
0x0ab2…0ad7 at0019 = ╱44╱D╱ // 0xacb @0x19
0x0ab2…0ad7 at001a = ╱34╱4╱ // 0xacc @0x1a
0x0ab2…0ad7 at001b = ╱ef╱$╱ // 0xacd @0x1b
0x0ab2…0ad7 at001c = ╱eb╱;╱ // 0xace @0x1c
0x0ab2…0ad7 at001d = ╱45╱E╱ // 0xacf @0x1d
0x0ab2…0ad7 at001e = ╱33╱3╱ // 0xad0 @0x1e
0x0ab2…0ad7 at001f = ╱ef╱$╱ // 0xad1 @0x1f
0x0ab2…0ad7 at0020 = ╱dc╱=╱ // 0xad2 @0x20
0x0ab2…0ad7 at0021 = ╱45╱E╱ // 0xad3 @0x21
0x0ab2…0ad7 at0022 = ╱34╱4╱ // 0xad4 @0x22
0x0ab2…0ad7 at0023 = ╱ef╱$╱ // 0xad5 @0x23
0x0ab2…0ad7 at0024 = EOL // 0xad6 @0x24
0x0ab2…0ad7 }
0x0ad7…0add 9834 1210 ENDIF
0x0ad7…0add LineComalBin {
0x0ad7…0add ptr = 0x9834 // 0xad7 @0x0
0x0ad7…0add lno = 0x04ba // 0xad9 @0x2
0x0ad7…0add at0004 = ╱9b╱ ENDIF ╱ // 0xadb @0x4
0x0ad7…0add at0005 = EOL // 0xadc @0x5
0x0ad7…0add }
0x0add…0ae3 983a 1220 ENDIF
0x0add…0ae3 LineComalBin {
0x0add…0ae3 ptr = 0x983a // 0xadd @0x0
0x0add…0ae3 lno = 0x04c4 // 0xadf @0x2
0x0add…0ae3 at0004 = ╱9b╱ ENDIF ╱ // 0xae1 @0x4
0x0add…0ae3 at0005 = EOL // 0xae2 @0x5
0x0add…0ae3 }
0x0ae3…0af5 984c 1230 CURSOR 12,H5+V
0x0ae3…0af5 LineComalBin {
0x0ae3…0af5 ptr = 0x984c // 0xae3 @0x0
0x0ae3…0af5 lno = 0x04ce // 0xae5 @0x2
0x0ae3…0af5 at0004 = ╱a1╱ CURSOR ╱ // 0xae7 @0x4
0x0ae3…0af5 at0005 = ╱31╱1╱ // 0xae8 @0x5
0x0ae3…0af5 at0006 = ╱32╱2╱ // 0xae9 @0x6
0x0ae3…0af5 at0007 = ╱fe0000c004╱ // 0xaea @0x7
0x0ae3…0af5 at000c = ╱ec╱,╱ // 0xaef @0xc
0x0ae3…0af5 at000d = ╱48╱H╱ // 0xaf0 @0xd
0x0ae3…0af5 at000e = ╱35╱5╱ // 0xaf1 @0xe
0x0ae3…0af5 at000f = ╱e2╱+╱ // 0xaf2 @0xf
0x0ae3…0af5 at0010 = ╱56╱V╱ // 0xaf3 @0x10
0x0ae3…0af5 at0011 = EOL // 0xaf4 @0x11
0x0ae3…0af5 }
0x0af5…0afe 9855 1240 PRINT E4$
0x0af5…0afe LineComalBin {
0x0af5…0afe ptr = 0x9855 // 0xaf5 @0x0
0x0af5…0afe lno = 0x04d8 // 0xaf7 @0x2
0x0af5…0afe at0004 = ╱92╱ PRINT ╱ // 0xaf9 @0x4
0x0af5…0afe at0005 = ╱45╱E╱ // 0xafa @0x5
0x0af5…0afe at0006 = ╱34╱4╱ // 0xafb @0x6
0x0af5…0afe at0007 = ╱ef╱$╱ // 0xafc @0x7
0x0af5…0afe at0008 = EOL // 0xafd @0x8
0x0af5…0afe }
0x0afe…0b04 985b 1250 ENDIF
0x0afe…0b04 LineComalBin {
0x0afe…0b04 ptr = 0x985b // 0xafe @0x0
0x0afe…0b04 lno = 0x04e2 // 0xb00 @0x2
0x0afe…0b04 at0004 = ╱9b╱ ENDIF ╱ // 0xb02 @0x4
0x0afe…0b04 at0005 = EOL // 0xb03 @0x5
0x0afe…0b04 }
0x0b04…0b12 9869 1260 H3=V;I7=P
0x0b04…0b12 LineComalBin {
0x0b04…0b12 ptr = 0x9869 // 0xb04 @0x0
0x0b04…0b12 lno = 0x04ec // 0xb06 @0x2
0x0b04…0b12 at0004 = ╱48╱H╱ // 0xb08 @0x4
0x0b04…0b12 at0005 = ╱33╱3╱ // 0xb09 @0x5
0x0b04…0b12 at0006 = ╱dc╱=╱ // 0xb0a @0x6
0x0b04…0b12 at0007 = ╱56╱V╱ // 0xb0b @0x7
0x0b04…0b12 at0008 = ╱eb╱;╱ // 0xb0c @0x8
0x0b04…0b12 at0009 = ╱49╱I╱ // 0xb0d @0x9
0x0b04…0b12 at000a = ╱37╱7╱ // 0xb0e @0xa
0x0b04…0b12 at000b = ╱dc╱=╱ // 0xb0f @0xb
0x0b04…0b12 at000c = ╱50╱P╱ // 0xb10 @0xc
0x0b04…0b12 at000d = EOL // 0xb11 @0xd
0x0b04…0b12 }
0x0b12…0b1a 9871 1270 WHEN V
0x0b12…0b1a LineComalBin {
0x0b12…0b1a ptr = 0x9871 // 0xb12 @0x0
0x0b12…0b1a lno = 0x04f6 // 0xb14 @0x2
0x0b12…0b1a at0004 = ╱a301╱ WHEN ╱ // 0xb16 @0x4
0x0b12…0b1a at0006 = ╱56╱V╱ // 0xb18 @0x6
0x0b12…0b1a at0007 = EOL // 0xb19 @0x7
0x0b12…0b1a }
0x0b1a…0b20 9877 1280 REPEAT
0x0b1a…0b20 LineComalBin {
0x0b1a…0b20 ptr = 0x9877 // 0xb1a @0x0
0x0b1a…0b20 lno = 0x0500 // 0xb1c @0x2
0x0b1a…0b20 at0004 = ╱97╱ REPEAT ╱ // 0xb1e @0x4
0x0b1a…0b20 at0005 = EOL // 0xb1f @0x5
0x0b1a…0b20 }
0x0b20…0b26 987d 1290 REPEAT
0x0b20…0b26 LineComalBin {
0x0b20…0b26 ptr = 0x987d // 0xb20 @0x0
0x0b20…0b26 lno = 0x050a // 0xb22 @0x2
0x0b20…0b26 at0004 = ╱97╱ REPEAT ╱ // 0xb24 @0x4
0x0b20…0b26 at0005 = EOL // 0xb25 @0x5
0x0b20…0b26 }
0x0b26…0b35 988c 1300 CURSOR V,23
0x0b26…0b35 LineComalBin {
0x0b26…0b35 ptr = 0x988c // 0xb26 @0x0
0x0b26…0b35 lno = 0x0514 // 0xb28 @0x2
0x0b26…0b35 at0004 = ╱a1╱ CURSOR ╱ // 0xb2a @0x4
0x0b26…0b35 at0005 = ╱56╱V╱ // 0xb2b @0x5
0x0b26…0b35 at0006 = ╱ec╱,╱ // 0xb2c @0x6
0x0b26…0b35 at0007 = ╱32╱2╱ // 0xb2d @0x7
0x0b26…0b35 at0008 = ╱33╱3╱ // 0xb2e @0x8
0x0b26…0b35 at0009 = ╱fe0000b805╱ // 0xb2f @0x9
0x0b26…0b35 at000e = EOL // 0xb34 @0xe
0x0b26…0b35 }
0x0b35…0b63 98ba 1310 PRINT "Konto (5 cifre)";B7$(E:54)
0x0b35…0b63 LineComalBin {
0x0b35…0b63 ptr = 0x98ba // 0xb35 @0x0
0x0b35…0b63 lno = 0x051e // 0xb37 @0x2
0x0b35…0b63 at0004 = ╱92╱ PRINT ╱ // 0xb39 @0x4
0x0b35…0b63 at0005 = ╱22╱"╱ // 0xb3a @0x5
0x0b35…0b63 at0006 = ╱4b╱K╱ // 0xb3b @0x6
0x0b35…0b63 at0007 = ╱6f╱o╱ // 0xb3c @0x7
0x0b35…0b63 at0008 = ╱6e╱n╱ // 0xb3d @0x8
0x0b35…0b63 at0009 = ╱74╱t╱ // 0xb3e @0x9
0x0b35…0b63 at000a = ╱6f╱o╱ // 0xb3f @0xa
0x0b35…0b63 at000b = ╱20╱…╱ // 0xb40 @0xb
0x0b35…0b63 at000c = ╱20╱…╱ // 0xb41 @0xc
0x0b35…0b63 at000d = ╱20╱…╱ // 0xb42 @0xd
0x0b35…0b63 at000e = ╱20╱…╱ // 0xb43 @0xe
0x0b35…0b63 at000f = ╱20╱…╱ // 0xb44 @0xf
0x0b35…0b63 at0010 = ╱20╱…╱ // 0xb45 @0x10
0x0b35…0b63 at0011 = ╱20╱…╱ // 0xb46 @0x11
0x0b35…0b63 at0012 = ╱20╱…╱ // 0xb47 @0x12
0x0b35…0b63 at0013 = ╱20╱…╱ // 0xb48 @0x13
0x0b35…0b63 at0014 = ╱28╱(╱ // 0xb49 @0x14
0x0b35…0b63 at0015 = ╱35╱5╱ // 0xb4a @0x15
0x0b35…0b63 at0016 = ╱20╱…╱ // 0xb4b @0x16
0x0b35…0b63 at0017 = ╱63╱c╱ // 0xb4c @0x17
0x0b35…0b63 at0018 = ╱69╱i╱ // 0xb4d @0x18
0x0b35…0b63 at0019 = ╱66╱f╱ // 0xb4e @0x19
0x0b35…0b63 at001a = ╱72╱r╱ // 0xb4f @0x1a
0x0b35…0b63 at001b = ╱65╱e╱ // 0xb50 @0x1b
0x0b35…0b63 at001c = ╱29╱)╱ // 0xb51 @0x1c
0x0b35…0b63 at001d = ╱22╱"╱ // 0xb52 @0x1d
0x0b35…0b63 at001e = ╱eb╱;╱ // 0xb53 @0x1e
0x0b35…0b63 at001f = ╱42╱B╱ // 0xb54 @0x1f
0x0b35…0b63 at0020 = ╱37╱7╱ // 0xb55 @0x20
0x0b35…0b63 at0021 = ╱ef╱$╱ // 0xb56 @0x21
0x0b35…0b63 at0022 = ╱ed╱(╱ // 0xb57 @0x22
0x0b35…0b63 at0023 = ╱45╱E╱ // 0xb58 @0x23
0x0b35…0b63 at0024 = ╱f0╱:╱ // 0xb59 @0x24
0x0b35…0b63 at0025 = ╱35╱5╱ // 0xb5a @0x25
0x0b35…0b63 at0026 = ╱34╱4╱ // 0xb5b @0x26
0x0b35…0b63 at0027 = ╱fe0000d806╱ // 0xb5c @0x27
0x0b35…0b63 at002c = ╱ee╱)╱ // 0xb61 @0x2c
0x0b35…0b63 at002d = EOL // 0xb62 @0x2d
0x0b35…0b63 }
0x0b63…0b72 98c9 1320 CURSOR W,23
0x0b63…0b72 LineComalBin {
0x0b63…0b72 ptr = 0x98c9 // 0xb63 @0x0
0x0b63…0b72 lno = 0x0528 // 0xb65 @0x2
0x0b63…0b72 at0004 = ╱a1╱ CURSOR ╱ // 0xb67 @0x4
0x0b63…0b72 at0005 = ╱57╱W╱ // 0xb68 @0x5
0x0b63…0b72 at0006 = ╱ec╱,╱ // 0xb69 @0x6
0x0b63…0b72 at0007 = ╱32╱2╱ // 0xb6a @0x7
0x0b63…0b72 at0008 = ╱33╱3╱ // 0xb6b @0x8
0x0b63…0b72 at0009 = ╱fe0000b805╱ // 0xb6c @0x9
0x0b63…0b72 at000e = EOL // 0xb71 @0xe
0x0b63…0b72 }
0x0b72…0b7b 98d2 1330 INPUT D5$
0x0b72…0b7b LineComalBin {
0x0b72…0b7b ptr = 0x98d2 // 0xb72 @0x0
0x0b72…0b7b lno = 0x0532 // 0xb74 @0x2
0x0b72…0b7b at0004 = ╱91╱ INPUT ╱ // 0xb76 @0x4
0x0b72…0b7b at0005 = ╱44╱D╱ // 0xb77 @0x5
0x0b72…0b7b at0006 = ╱35╱5╱ // 0xb78 @0x6
0x0b72…0b7b at0007 = ╱ef╱$╱ // 0xb79 @0x7
0x0b72…0b7b at0008 = EOL // 0xb7a @0x8
0x0b72…0b7b }
0x0b7b…0b88 98df 1340 EXEC NR(D5$)
0x0b7b…0b88 LineComalBin {
0x0b7b…0b88 ptr = 0x98df // 0xb7b @0x0
0x0b7b…0b88 lno = 0x053c // 0xb7d @0x2
0x0b7b…0b88 at0004 = ╱9d╱ EXEC ╱ // 0xb7f @0x4
0x0b7b…0b88 at0005 = ╱4e╱N╱ // 0xb80 @0x5
0x0b7b…0b88 at0006 = ╱52╱R╱ // 0xb81 @0x6
0x0b7b…0b88 at0007 = ╱ed╱(╱ // 0xb82 @0x7
0x0b7b…0b88 at0008 = ╱44╱D╱ // 0xb83 @0x8
0x0b7b…0b88 at0009 = ╱35╱5╱ // 0xb84 @0x9
0x0b7b…0b88 at000a = ╱ef╱$╱ // 0xb85 @0xa
0x0b7b…0b88 at000b = ╱ee╱)╱ // 0xb86 @0xb
0x0b7b…0b88 at000c = EOL // 0xb87 @0xc
0x0b7b…0b88 }
0x0b88…0ba3 98fa 1350 UNTIL H4=B AND (I8<>B AND I5=5)
0x0b88…0ba3 LineComalBin {
0x0b88…0ba3 ptr = 0x98fa // 0xb88 @0x0
0x0b88…0ba3 lno = 0x0546 // 0xb8a @0x2
0x0b88…0ba3 at0004 = ╱98╱ UNTIL ╱ // 0xb8c @0x4
0x0b88…0ba3 at0005 = ╱48╱H╱ // 0xb8d @0x5
0x0b88…0ba3 at0006 = ╱34╱4╱ // 0xb8e @0x6
0x0b88…0ba3 at0007 = ╱dc╱=╱ // 0xb8f @0x7
0x0b88…0ba3 at0008 = ╱42╱B╱ // 0xb90 @0x8
0x0b88…0ba3 at0009 = ╱da╱ AND ╱ // 0xb91 @0x9
0x0b88…0ba3 at000a = ╱ed╱(╱ // 0xb92 @0xa
0x0b88…0ba3 at000b = ╱49╱I╱ // 0xb93 @0xb
0x0b88…0ba3 at000c = ╱38╱8╱ // 0xb94 @0xc
0x0b88…0ba3 at000d = ╱e1╱<>╱ // 0xb95 @0xd
0x0b88…0ba3 at000e = ╱42╱B╱ // 0xb96 @0xe
0x0b88…0ba3 at000f = ╱da╱ AND ╱ // 0xb97 @0xf
0x0b88…0ba3 at0010 = ╱49╱I╱ // 0xb98 @0x10
0x0b88…0ba3 at0011 = ╱35╱5╱ // 0xb99 @0x11
0x0b88…0ba3 at0012 = ╱dc╱=╱ // 0xb9a @0x12
0x0b88…0ba3 at0013 = ╱35╱5╱ // 0xb9b @0x13
0x0b88…0ba3 at0014 = ╱fe0000a003╱ // 0xb9c @0x14
0x0b88…0ba3 at0019 = ╱ee╱)╱ // 0xba1 @0x19
0x0b88…0ba3 at001a = EOL // 0xba2 @0x1a
0x0b88…0ba3 }
0x0ba3…0bac 9903 1360 H6=P
0x0ba3…0bac LineComalBin {
0x0ba3…0bac ptr = 0x9903 // 0xba3 @0x0
0x0ba3…0bac lno = 0x0550 // 0xba5 @0x2
0x0ba3…0bac at0004 = ╱48╱H╱ // 0xba7 @0x4
0x0ba3…0bac at0005 = ╱36╱6╱ // 0xba8 @0x5
0x0ba3…0bac at0006 = ╱dc╱=╱ // 0xba9 @0x6
0x0ba3…0bac at0007 = ╱50╱P╱ // 0xbaa @0x7
0x0ba3…0bac at0008 = EOL // 0xbab @0x8
0x0ba3…0bac }
0x0bac…0bbb 9912 1370 EXEC KN(I8,H6)
0x0bac…0bbb LineComalBin {
0x0bac…0bbb ptr = 0x9912 // 0xbac @0x0
0x0bac…0bbb lno = 0x055a // 0xbae @0x2
0x0bac…0bbb at0004 = ╱9d╱ EXEC ╱ // 0xbb0 @0x4
0x0bac…0bbb at0005 = ╱4b╱K╱ // 0xbb1 @0x5
0x0bac…0bbb at0006 = ╱4e╱N╱ // 0xbb2 @0x6
0x0bac…0bbb at0007 = ╱ed╱(╱ // 0xbb3 @0x7
0x0bac…0bbb at0008 = ╱49╱I╱ // 0xbb4 @0x8
0x0bac…0bbb at0009 = ╱38╱8╱ // 0xbb5 @0x9
0x0bac…0bbb at000a = ╱ec╱,╱ // 0xbb6 @0xa
0x0bac…0bbb at000b = ╱48╱H╱ // 0xbb7 @0xb
0x0bac…0bbb at000c = ╱36╱6╱ // 0xbb8 @0xc
0x0bac…0bbb at000d = ╱ee╱)╱ // 0xbb9 @0xd
0x0bac…0bbb at000e = EOL // 0xbba @0xe
0x0bac…0bbb }
0x0bbb…0bd0 (39,) 9927 1380 CURSOR 15,23
0x0bbb…0bd0 LineComalBin {
0x0bbb…0bd0 ptr = 0x9927 // 0xbbb @0x0
0x0bbb…0bd0 lno = 0x0564 // 0xbbd @0x2
0x0bbb…0bd0 at0004 = ╱a1╱ CURSOR ╱ // 0xbbf @0x4
0x0bbb…0bd0 at0005 = ╱31╱1╱ // 0xbc0 @0x5
0x0bbb…0bd0 at0006 = ╱35╱5╱ // 0xbc1 @0x6
0x0bbb…0bd0 at0007 = ╱fe0000f004╱ // 0xbc2 @0x7
0x0bbb…0bd0 at000c = ╱ec╱,╱ // 0xbc7 @0xc
0x0bbb…0bd0 at000d = ╱32╱2╱ // 0xbc8 @0xd
0x0bbb…0bd0 at000e = ╱33╱3╱ // 0xbc9 @0xe
0x0bbb…0bd0 at000f = ╱fe0000b805╱ // 0xbca @0xf
0x0bbb…0bd0 at0014 = EOL // 0xbcf @0x14
0x0bbb…0bd0 }
0x0bd0…0c10 9967 1390 PRINT "(Navn:";B7$(E:27);"Er konto rigtig (J/N) "
0x0bd0…0c10 LineComalBin {
0x0bd0…0c10 ptr = 0x9967 // 0xbd0 @0x0
0x0bd0…0c10 lno = 0x056e // 0xbd2 @0x2
0x0bd0…0c10 at0004 = ╱92╱ PRINT ╱ // 0xbd4 @0x4
0x0bd0…0c10 at0005 = ╱22╱"╱ // 0xbd5 @0x5
0x0bd0…0c10 at0006 = ╱28╱(╱ // 0xbd6 @0x6
0x0bd0…0c10 at0007 = ╱4e╱N╱ // 0xbd7 @0x7
0x0bd0…0c10 at0008 = ╱61╱a╱ // 0xbd8 @0x8
0x0bd0…0c10 at0009 = ╱76╱v╱ // 0xbd9 @0x9
0x0bd0…0c10 at000a = ╱6e╱n╱ // 0xbda @0xa
0x0bd0…0c10 at000b = ╱3a╱:╱ // 0xbdb @0xb
0x0bd0…0c10 at000c = ╱22╱"╱ // 0xbdc @0xc
0x0bd0…0c10 at000d = ╱eb╱;╱ // 0xbdd @0xd
0x0bd0…0c10 at000e = ╱42╱B╱ // 0xbde @0xe
0x0bd0…0c10 at000f = ╱37╱7╱ // 0xbdf @0xf
0x0bd0…0c10 at0010 = ╱ef╱$╱ // 0xbe0 @0x10
0x0bd0…0c10 at0011 = ╱ed╱(╱ // 0xbe1 @0x11
0x0bd0…0c10 at0012 = ╱45╱E╱ // 0xbe2 @0x12
0x0bd0…0c10 at0013 = ╱f0╱:╱ // 0xbe3 @0x13
0x0bd0…0c10 at0014 = ╱32╱2╱ // 0xbe4 @0x14
0x0bd0…0c10 at0015 = ╱37╱7╱ // 0xbe5 @0x15
0x0bd0…0c10 at0016 = ╱fe0000d805╱ // 0xbe6 @0x16
0x0bd0…0c10 at001b = ╱ee╱)╱ // 0xbeb @0x1b
0x0bd0…0c10 at001c = ╱eb╱;╱ // 0xbec @0x1c
0x0bd0…0c10 at001d = ╱22╱"╱ // 0xbed @0x1d
0x0bd0…0c10 at001e = ╱45╱E╱ // 0xbee @0x1e
0x0bd0…0c10 at001f = ╱72╱r╱ // 0xbef @0x1f
0x0bd0…0c10 at0020 = ╱20╱…╱ // 0xbf0 @0x20
0x0bd0…0c10 at0021 = ╱6b╱k╱ // 0xbf1 @0x21
0x0bd0…0c10 at0022 = ╱6f╱o╱ // 0xbf2 @0x22
0x0bd0…0c10 at0023 = ╱6e╱n╱ // 0xbf3 @0x23
0x0bd0…0c10 at0024 = ╱74╱t╱ // 0xbf4 @0x24
0x0bd0…0c10 at0025 = ╱6f╱o╱ // 0xbf5 @0x25
0x0bd0…0c10 at0026 = ╱20╱…╱ // 0xbf6 @0x26
0x0bd0…0c10 at0027 = ╱72╱r╱ // 0xbf7 @0x27
0x0bd0…0c10 at0028 = ╱69╱i╱ // 0xbf8 @0x28
0x0bd0…0c10 at0029 = ╱67╱g╱ // 0xbf9 @0x29
0x0bd0…0c10 at002a = ╱74╱t╱ // 0xbfa @0x2a
0x0bd0…0c10 at002b = ╱69╱i╱ // 0xbfb @0x2b
0x0bd0…0c10 at002c = ╱67╱g╱ // 0xbfc @0x2c
0x0bd0…0c10 at002d = ╱20╱…╱ // 0xbfd @0x2d
0x0bd0…0c10 at002e = ╱20╱…╱ // 0xbfe @0x2e
0x0bd0…0c10 at002f = ╱20╱…╱ // 0xbff @0x2f
0x0bd0…0c10 at0030 = ╱20╱…╱ // 0xc00 @0x30
0x0bd0…0c10 at0031 = ╱20╱…╱ // 0xc01 @0x31
0x0bd0…0c10 at0032 = ╱28╱(╱ // 0xc02 @0x32
0x0bd0…0c10 at0033 = ╱4a╱J╱ // 0xc03 @0x33
0x0bd0…0c10 at0034 = ╱2f╱/╱ // 0xc04 @0x34
0x0bd0…0c10 at0035 = ╱4e╱N╱ // 0xc05 @0x35
0x0bd0…0c10 at0036 = ╱29╱)╱ // 0xc06 @0x36
0x0bd0…0c10 at0037 = ╱20╱…╱ // 0xc07 @0x37
0x0bd0…0c10 at0038 = ╱20╱…╱ // 0xc08 @0x38
0x0bd0…0c10 at0039 = ╱20╱…╱ // 0xc09 @0x39
0x0bd0…0c10 at003a = ╱20╱…╱ // 0xc0a @0x3a
0x0bd0…0c10 at003b = ╱20╱…╱ // 0xc0b @0x3b
0x0bd0…0c10 at003c = ╱20╱…╱ // 0xc0c @0x3c
0x0bd0…0c10 at003d = ╱20╱…╱ // 0xc0d @0x3d
0x0bd0…0c10 at003e = ╱22╱"╱ // 0xc0e @0x3e
0x0bd0…0c10 at003f = EOL // 0xc0f @0x3f
0x0bd0…0c10 }
0x0c10…0c25 997c 1400 CURSOR 22,23
0x0c10…0c25 LineComalBin {
0x0c10…0c25 ptr = 0x997c // 0xc10 @0x0
0x0c10…0c25 lno = 0x0578 // 0xc12 @0x2
0x0c10…0c25 at0004 = ╱a1╱ CURSOR ╱ // 0xc14 @0x4
0x0c10…0c25 at0005 = ╱32╱2╱ // 0xc15 @0x5
0x0c10…0c25 at0006 = ╱32╱2╱ // 0xc16 @0x6
0x0c10…0c25 at0007 = ╱fe0000b005╱ // 0xc17 @0x7
0x0c10…0c25 at000c = ╱ec╱,╱ // 0xc1c @0xc
0x0c10…0c25 at000d = ╱32╱2╱ // 0xc1d @0xd
0x0c10…0c25 at000e = ╱33╱3╱ // 0xc1e @0xe
0x0c10…0c25 at000f = ╱fe0000b805╱ // 0xc1f @0xf
0x0c10…0c25 at0014 = EOL // 0xc24 @0x14
0x0c10…0c25 }
0x0c25…0c2e 9985 1410 PRINT B4$
0x0c25…0c2e LineComalBin {
0x0c25…0c2e ptr = 0x9985 // 0xc25 @0x0
0x0c25…0c2e lno = 0x0582 // 0xc27 @0x2
0x0c25…0c2e at0004 = ╱92╱ PRINT ╱ // 0xc29 @0x4
0x0c25…0c2e at0005 = ╱42╱B╱ // 0xc2a @0x5
0x0c25…0c2e at0006 = ╱34╱4╱ // 0xc2b @0x6
0x0c25…0c2e at0007 = ╱ef╱$╱ // 0xc2c @0x7
0x0c25…0c2e at0008 = EOL // 0xc2d @0x8
0x0c25…0c2e }
0x0c2e…0c34 998b 1420 REPEAT
0x0c2e…0c34 LineComalBin {
0x0c2e…0c34 ptr = 0x998b // 0xc2e @0x0
0x0c2e…0c34 lno = 0x058c // 0xc30 @0x2
0x0c2e…0c34 at0004 = ╱97╱ REPEAT ╱ // 0xc32 @0x4
0x0c2e…0c34 at0005 = EOL // 0xc33 @0x5
0x0c2e…0c34 }
0x0c34…0c49 99a0 1430 CURSOR 64,23
0x0c34…0c49 LineComalBin {
0x0c34…0c49 ptr = 0x99a0 // 0xc34 @0x0
0x0c34…0c49 lno = 0x0596 // 0xc36 @0x2
0x0c34…0c49 at0004 = ╱a1╱ CURSOR ╱ // 0xc38 @0x4
0x0c34…0c49 at0005 = ╱36╱6╱ // 0xc39 @0x5
0x0c34…0c49 at0006 = ╱34╱4╱ // 0xc3a @0x6
0x0c34…0c49 at0007 = ╱fe00008007╱ // 0xc3b @0x7
0x0c34…0c49 at000c = ╱ec╱,╱ // 0xc40 @0xc
0x0c34…0c49 at000d = ╱32╱2╱ // 0xc41 @0xd
0x0c34…0c49 at000e = ╱33╱3╱ // 0xc42 @0xe
0x0c34…0c49 at000f = ╱fe0000b805╱ // 0xc43 @0xf
0x0c34…0c49 at0014 = EOL // 0xc48 @0x14
0x0c34…0c49 }
0x0c49…0c51 99a8 1440 INPUT A$
0x0c49…0c51 LineComalBin {
0x0c49…0c51 ptr = 0x99a8 // 0xc49 @0x0
0x0c49…0c51 lno = 0x05a0 // 0xc4b @0x2
0x0c49…0c51 at0004 = ╱91╱ INPUT ╱ // 0xc4d @0x4
0x0c49…0c51 at0005 = ╱41╱A╱ // 0xc4e @0x5
0x0c49…0c51 at0006 = ╱ef╱$╱ // 0xc4f @0x6
0x0c49…0c51 at0007 = EOL // 0xc50 @0x7
0x0c49…0c51 }
0x0c51…0c5d 99b4 1450 EXEC NR(A$)
0x0c51…0c5d LineComalBin {
0x0c51…0c5d ptr = 0x99b4 // 0xc51 @0x0
0x0c51…0c5d lno = 0x05aa // 0xc53 @0x2
0x0c51…0c5d at0004 = ╱9d╱ EXEC ╱ // 0xc55 @0x4
0x0c51…0c5d at0005 = ╱4e╱N╱ // 0xc56 @0x5
0x0c51…0c5d at0006 = ╱52╱R╱ // 0xc57 @0x6
0x0c51…0c5d at0007 = ╱ed╱(╱ // 0xc58 @0x7
0x0c51…0c5d at0008 = ╱41╱A╱ // 0xc59 @0x8
0x0c51…0c5d at0009 = ╱ef╱$╱ // 0xc5a @0x9
0x0c51…0c5d at000a = ╱ee╱)╱ // 0xc5b @0xa
0x0c51…0c5d at000b = EOL // 0xc5c @0xb
0x0c51…0c5d }
0x0c5d…0c76 99cd 1460 UNTIL P=-7 OR P=-8
0x0c5d…0c76 LineComalBin {
0x0c5d…0c76 ptr = 0x99cd // 0xc5d @0x0
0x0c5d…0c76 lno = 0x05b4 // 0xc5f @0x2
0x0c5d…0c76 at0004 = ╱98╱ UNTIL ╱ // 0xc61 @0x4
0x0c5d…0c76 at0005 = ╱50╱P╱ // 0xc62 @0x5
0x0c5d…0c76 at0006 = ╱dc╱=╱ // 0xc63 @0x6
0x0c5d…0c76 at0007 = ╱e9╱-╱ // 0xc64 @0x7
0x0c5d…0c76 at0008 = ╱37╱7╱ // 0xc65 @0x8
0x0c5d…0c76 at0009 = ╱fe0000e003╱ // 0xc66 @0x9
0x0c5d…0c76 at000e = ╱db╱ OR ╱ // 0xc6b @0xe
0x0c5d…0c76 at000f = ╱50╱P╱ // 0xc6c @0xf
0x0c5d…0c76 at0010 = ╱dc╱=╱ // 0xc6d @0x10
0x0c5d…0c76 at0011 = ╱e9╱-╱ // 0xc6e @0x11
0x0c5d…0c76 at0012 = ╱38╱8╱ // 0xc6f @0x12
0x0c5d…0c76 at0013 = ╱fe00008004╱ // 0xc70 @0x13
0x0c5d…0c76 at0018 = EOL // 0xc75 @0x18
0x0c5d…0c76 }
0x0c76…0c98 99ef 1470 UNTIL P=-7 AND ((I9=B AND I1=E) OR I1<>E)
0x0c76…0c98 LineComalBin {
0x0c76…0c98 ptr = 0x99ef // 0xc76 @0x0
0x0c76…0c98 lno = 0x05be // 0xc78 @0x2
0x0c76…0c98 at0004 = ╱98╱ UNTIL ╱ // 0xc7a @0x4
0x0c76…0c98 at0005 = ╱50╱P╱ // 0xc7b @0x5
0x0c76…0c98 at0006 = ╱dc╱=╱ // 0xc7c @0x6
0x0c76…0c98 at0007 = ╱e9╱-╱ // 0xc7d @0x7
0x0c76…0c98 at0008 = ╱37╱7╱ // 0xc7e @0x8
0x0c76…0c98 at0009 = ╱fe0000e003╱ // 0xc7f @0x9
0x0c76…0c98 at000e = ╱da╱ AND ╱ // 0xc84 @0xe
0x0c76…0c98 at000f = ╱ed╱(╱ // 0xc85 @0xf
0x0c76…0c98 at0010 = ╱ed╱(╱ // 0xc86 @0x10
0x0c76…0c98 at0011 = ╱49╱I╱ // 0xc87 @0x11
0x0c76…0c98 at0012 = ╱39╱9╱ // 0xc88 @0x12
0x0c76…0c98 at0013 = ╱dc╱=╱ // 0xc89 @0x13
0x0c76…0c98 at0014 = ╱42╱B╱ // 0xc8a @0x14
0x0c76…0c98 at0015 = ╱da╱ AND ╱ // 0xc8b @0x15
0x0c76…0c98 at0016 = ╱49╱I╱ // 0xc8c @0x16
0x0c76…0c98 at0017 = ╱31╱1╱ // 0xc8d @0x17
0x0c76…0c98 at0018 = ╱dc╱=╱ // 0xc8e @0x18
0x0c76…0c98 at0019 = ╱45╱E╱ // 0xc8f @0x19
0x0c76…0c98 at001a = ╱ee╱)╱ // 0xc90 @0x1a
0x0c76…0c98 at001b = ╱db╱ OR ╱ // 0xc91 @0x1b
0x0c76…0c98 at001c = ╱49╱I╱ // 0xc92 @0x1c
0x0c76…0c98 at001d = ╱31╱1╱ // 0xc93 @0x1d
0x0c76…0c98 at001e = ╱e1╱<>╱ // 0xc94 @0x1e
0x0c76…0c98 at001f = ╱45╱E╱ // 0xc95 @0x1f
0x0c76…0c98 at0020 = ╱ee╱)╱ // 0xc96 @0x20
0x0c76…0c98 at0021 = EOL // 0xc97 @0x21
0x0c76…0c98 }
0x0c98…0ca3 99fa 1480 IF I9=E THEN
0x0c98…0ca3 LineComalBin {
0x0c98…0ca3 ptr = 0x99fa // 0xc98 @0x0
0x0c98…0ca3 lno = 0x05c8 // 0xc9a @0x2
0x0c98…0ca3 at0004 = ╱9c╱ IF ╱ // 0xc9c @0x4
0x0c98…0ca3 at0005 = ╱49╱I╱ // 0xc9d @0x5
0x0c98…0ca3 at0006 = ╱39╱9╱ // 0xc9e @0x6
0x0c98…0ca3 at0007 = ╱dc╱=╱ // 0xc9f @0x7
0x0c98…0ca3 at0008 = ╱45╱E╱ // 0xca0 @0x8
0x0c98…0ca3 at0009 = ╱b6╱ THEN ╱ // 0xca1 @0x9
0x0c98…0ca3 at000a = EOL // 0xca2 @0xa
0x0c98…0ca3 }
0x0ca3…0cb3 9a0a 1490 EXEC SL(5)
0x0ca3…0cb3 LineComalBin {
0x0ca3…0cb3 ptr = 0x9a0a // 0xca3 @0x0
0x0ca3…0cb3 lno = 0x05d2 // 0xca5 @0x2
0x0ca3…0cb3 at0004 = ╱9d╱ EXEC ╱ // 0xca7 @0x4
0x0ca3…0cb3 at0005 = ╱53╱S╱ // 0xca8 @0x5
0x0ca3…0cb3 at0006 = ╱4c╱L╱ // 0xca9 @0x6
0x0ca3…0cb3 at0007 = ╱ed╱(╱ // 0xcaa @0x7
0x0ca3…0cb3 at0008 = ╱35╱5╱ // 0xcab @0x8
0x0ca3…0cb3 at0009 = ╱fe0000a003╱ // 0xcac @0x9
0x0ca3…0cb3 at000e = ╱ee╱)╱ // 0xcb1 @0xe
0x0ca3…0cb3 at000f = EOL // 0xcb2 @0xf
0x0ca3…0cb3 }
0x0cb3…0cc4 9a1b 1500 H3=E;I0=I0-E
0x0cb3…0cc4 LineComalBin {
0x0cb3…0cc4 ptr = 0x9a1b // 0xcb3 @0x0
0x0cb3…0cc4 lno = 0x05dc // 0xcb5 @0x2
0x0cb3…0cc4 at0004 = ╱48╱H╱ // 0xcb7 @0x4
0x0cb3…0cc4 at0005 = ╱33╱3╱ // 0xcb8 @0x5
0x0cb3…0cc4 at0006 = ╱dc╱=╱ // 0xcb9 @0x6
0x0cb3…0cc4 at0007 = ╱45╱E╱ // 0xcba @0x7
0x0cb3…0cc4 at0008 = ╱eb╱;╱ // 0xcbb @0x8
0x0cb3…0cc4 at0009 = ╱49╱I╱ // 0xcbc @0x9
0x0cb3…0cc4 at000a = ╱30╱0╱ // 0xcbd @0xa
0x0cb3…0cc4 at000b = ╱dc╱=╱ // 0xcbe @0xb
0x0cb3…0cc4 at000c = ╱49╱I╱ // 0xcbf @0xc
0x0cb3…0cc4 at000d = ╱30╱0╱ // 0xcc0 @0xd
0x0cb3…0cc4 at000e = ╱e3╱-╱ // 0xcc1 @0xe
0x0cb3…0cc4 at000f = ╱45╱E╱ // 0xcc2 @0xf
0x0cb3…0cc4 at0010 = EOL // 0xcc3 @0x10
0x0cb3…0cc4 }
0x0cc4…0cca 9a21 1510 ELSE
0x0cc4…0cca LineComalBin {
0x0cc4…0cca ptr = 0x9a21 // 0xcc4 @0x0
0x0cc4…0cca lno = 0x05e6 // 0xcc6 @0x2
0x0cc4…0cca at0004 = ╱9a╱ ELSE ╱ // 0xcc8 @0x4
0x0cc4…0cca at0005 = EOL // 0xcc9 @0x5
0x0cc4…0cca }
0x0cca…0cdc 9a33 1520 CURSOR 37,H5+V
0x0cca…0cdc LineComalBin {
0x0cca…0cdc ptr = 0x9a33 // 0xcca @0x0
0x0cca…0cdc lno = 0x05f0 // 0xccc @0x2
0x0cca…0cdc at0004 = ╱a1╱ CURSOR ╱ // 0xcce @0x4
0x0cca…0cdc at0005 = ╱33╱3╱ // 0xccf @0x5
0x0cca…0cdc at0006 = ╱37╱7╱ // 0xcd0 @0x6
0x0cca…0cdc at0007 = ╱fe00009406╱ // 0xcd1 @0x7
0x0cca…0cdc at000c = ╱ec╱,╱ // 0xcd6 @0xc
0x0cca…0cdc at000d = ╱48╱H╱ // 0xcd7 @0xd
0x0cca…0cdc at000e = ╱35╱5╱ // 0xcd8 @0xe
0x0cca…0cdc at000f = ╱e2╱+╱ // 0xcd9 @0xf
0x0cca…0cdc at0010 = ╱56╱V╱ // 0xcda @0x10
0x0cca…0cdc at0011 = EOL // 0xcdb @0x11
0x0cca…0cdc }
0x0cdc…0cea 9a41 1530 H3=4
0x0cdc…0cea LineComalBin {
0x0cdc…0cea ptr = 0x9a41 // 0xcdc @0x0
0x0cdc…0cea lno = 0x05fa // 0xcde @0x2
0x0cdc…0cea at0004 = ╱48╱H╱ // 0xce0 @0x4
0x0cdc…0cea at0005 = ╱33╱3╱ // 0xce1 @0x5
0x0cdc…0cea at0006 = ╱dc╱=╱ // 0xce2 @0x6
0x0cdc…0cea at0007 = ╱34╱4╱ // 0xce3 @0x7
0x0cdc…0cea at0008 = ╱fe00008003╱ // 0xce4 @0x8
0x0cdc…0cea at000d = EOL // 0xce9 @0xd
0x0cdc…0cea }
0x0cea…0cfa 9a51 1540 IF I1=E THEN H3=-E
0x0cea…0cfa LineComalBin {
0x0cea…0cfa ptr = 0x9a51 // 0xcea @0x0
0x0cea…0cfa lno = 0x0604 // 0xcec @0x2
0x0cea…0cfa at0004 = ╱82╱ IF ╱ // 0xcee @0x4
0x0cea…0cfa at0005 = ╱49╱I╱ // 0xcef @0x5
0x0cea…0cfa at0006 = ╱31╱1╱ // 0xcf0 @0x6
0x0cea…0cfa at0007 = ╱dc╱=╱ // 0xcf1 @0x7
0x0cea…0cfa at0008 = ╱45╱E╱ // 0xcf2 @0x8
0x0cea…0cfa at0009 = ╱b6╱ THEN ╱ // 0xcf3 @0x9
0x0cea…0cfa at000a = ╱48╱H╱ // 0xcf4 @0xa
0x0cea…0cfa at000b = ╱33╱3╱ // 0xcf5 @0xb
0x0cea…0cfa at000c = ╱dc╱=╱ // 0xcf6 @0xc
0x0cea…0cfa at000d = ╱e9╱-╱ // 0xcf7 @0xd
0x0cea…0cfa at000e = ╱45╱E╱ // 0xcf8 @0xe
0x0cea…0cfa at000f = EOL // 0xcf9 @0xf
0x0cea…0cfa }
0x0cfa…0d0c 9a63 1550 PRINT USING "######":H6
0x0cfa…0d0c LineComalBin {
0x0cfa…0d0c ptr = 0x9a63 // 0xcfa @0x0
0x0cfa…0d0c lno = 0x060e // 0xcfc @0x2
0x0cfa…0d0c at0004 = ╱92╱ PRINT ╱ // 0xcfe @0x4
0x0cfa…0d0c at0005 = ╱b9╱ USING ╱ // 0xcff @0x5
0x0cfa…0d0c at0006 = ╱22╱"╱ // 0xd00 @0x6
0x0cfa…0d0c at0007 = ╱23╱#╱ // 0xd01 @0x7
0x0cfa…0d0c at0008 = ╱23╱#╱ // 0xd02 @0x8
0x0cfa…0d0c at0009 = ╱23╱#╱ // 0xd03 @0x9
0x0cfa…0d0c at000a = ╱23╱#╱ // 0xd04 @0xa
0x0cfa…0d0c at000b = ╱23╱#╱ // 0xd05 @0xb
0x0cfa…0d0c at000c = ╱23╱#╱ // 0xd06 @0xc
0x0cfa…0d0c at000d = ╱22╱"╱ // 0xd07 @0xd
0x0cfa…0d0c at000e = ╱f0╱:╱ // 0xd08 @0xe
0x0cfa…0d0c at000f = ╱48╱H╱ // 0xd09 @0xf
0x0cfa…0d0c at0010 = ╱36╱6╱ // 0xd0a @0x10
0x0cfa…0d0c at0011 = EOL // 0xd0b @0x11
0x0cfa…0d0c }
0x0d0c…0d12 9a69 1560 ENDIF
0x0d0c…0d12 LineComalBin {
0x0d0c…0d12 ptr = 0x9a69 // 0xd0c @0x0
0x0d0c…0d12 lno = 0x0618 // 0xd0e @0x2
0x0d0c…0d12 at0004 = ╱9b╱ ENDIF ╱ // 0xd10 @0x4
0x0d0c…0d12 at0005 = EOL // 0xd11 @0x5
0x0d0c…0d12 }
0x0d12…0d1f 9a76 1570 WHEN 4
0x0d12…0d1f LineComalBin {
0x0d12…0d1f ptr = 0x9a76 // 0xd12 @0x0
0x0d12…0d1f lno = 0x0622 // 0xd14 @0x2
0x0d12…0d1f at0004 = ╱a301╱ WHEN ╱ // 0xd16 @0x4
0x0d12…0d1f at0006 = ╱34╱4╱ // 0xd18 @0x6
0x0d12…0d1f at0007 = ╱fe00008003╱ // 0xd19 @0x7
0x0d12…0d1f at000c = EOL // 0xd1e @0xc
0x0d12…0d1f }
0x0d1f…0d25 9a7c 1580 REPEAT
0x0d1f…0d25 LineComalBin {
0x0d1f…0d25 ptr = 0x9a7c // 0xd1f @0x0
0x0d1f…0d25 lno = 0x062c // 0xd21 @0x2
0x0d1f…0d25 at0004 = ╱97╱ REPEAT ╱ // 0xd23 @0x4
0x0d1f…0d25 at0005 = EOL // 0xd24 @0x5
0x0d1f…0d25 }
0x0d25…0d2b 9a82 1590 REPEAT
0x0d25…0d2b LineComalBin {
0x0d25…0d2b ptr = 0x9a82 // 0xd25 @0x0
0x0d25…0d2b lno = 0x0636 // 0xd27 @0x2
0x0d25…0d2b at0004 = ╱97╱ REPEAT ╱ // 0xd29 @0x4
0x0d25…0d2b at0005 = EOL // 0xd2a @0x5
0x0d25…0d2b }
0x0d2b…0d3a 9a91 1600 CURSOR V,23
0x0d2b…0d3a LineComalBin {
0x0d2b…0d3a ptr = 0x9a91 // 0xd2b @0x0
0x0d2b…0d3a lno = 0x0640 // 0xd2d @0x2
0x0d2b…0d3a at0004 = ╱a1╱ CURSOR ╱ // 0xd2f @0x4
0x0d2b…0d3a at0005 = ╱56╱V╱ // 0xd30 @0x5
0x0d2b…0d3a at0006 = ╱ec╱,╱ // 0xd31 @0x6
0x0d2b…0d3a at0007 = ╱32╱2╱ // 0xd32 @0x7
0x0d2b…0d3a at0008 = ╱33╱3╱ // 0xd33 @0x8
0x0d2b…0d3a at0009 = ╱fe0000b805╱ // 0xd34 @0x9
0x0d2b…0d3a at000e = EOL // 0xd39 @0xe
0x0d2b…0d3a }
0x0d3a…0d72 9ac9 1610 PRINT "Entreprisekonto (5 cifre)";B7$(E:44)
0x0d3a…0d72 LineComalBin {
0x0d3a…0d72 ptr = 0x9ac9 // 0xd3a @0x0
0x0d3a…0d72 lno = 0x064a // 0xd3c @0x2
0x0d3a…0d72 at0004 = ╱92╱ PRINT ╱ // 0xd3e @0x4
0x0d3a…0d72 at0005 = ╱22╱"╱ // 0xd3f @0x5
0x0d3a…0d72 at0006 = ╱45╱E╱ // 0xd40 @0x6
0x0d3a…0d72 at0007 = ╱6e╱n╱ // 0xd41 @0x7
0x0d3a…0d72 at0008 = ╱74╱t╱ // 0xd42 @0x8
0x0d3a…0d72 at0009 = ╱72╱r╱ // 0xd43 @0x9
0x0d3a…0d72 at000a = ╱65╱e╱ // 0xd44 @0xa
0x0d3a…0d72 at000b = ╱70╱p╱ // 0xd45 @0xb
0x0d3a…0d72 at000c = ╱72╱r╱ // 0xd46 @0xc
0x0d3a…0d72 at000d = ╱69╱i╱ // 0xd47 @0xd
0x0d3a…0d72 at000e = ╱73╱s╱ // 0xd48 @0xe
0x0d3a…0d72 at000f = ╱65╱e╱ // 0xd49 @0xf
0x0d3a…0d72 at0010 = ╱6b╱k╱ // 0xd4a @0x10
0x0d3a…0d72 at0011 = ╱6f╱o╱ // 0xd4b @0x11
0x0d3a…0d72 at0012 = ╱6e╱n╱ // 0xd4c @0x12
0x0d3a…0d72 at0013 = ╱74╱t╱ // 0xd4d @0x13
0x0d3a…0d72 at0014 = ╱6f╱o╱ // 0xd4e @0x14
0x0d3a…0d72 at0015 = ╱20╱…╱ // 0xd4f @0x15
0x0d3a…0d72 at0016 = ╱20╱…╱ // 0xd50 @0x16
0x0d3a…0d72 at0017 = ╱20╱…╱ // 0xd51 @0x17
0x0d3a…0d72 at0018 = ╱20╱…╱ // 0xd52 @0x18
0x0d3a…0d72 at0019 = ╱20╱…╱ // 0xd53 @0x19
0x0d3a…0d72 at001a = ╱20╱…╱ // 0xd54 @0x1a
0x0d3a…0d72 at001b = ╱20╱…╱ // 0xd55 @0x1b
0x0d3a…0d72 at001c = ╱20╱…╱ // 0xd56 @0x1c
0x0d3a…0d72 at001d = ╱20╱…╱ // 0xd57 @0x1d
0x0d3a…0d72 at001e = ╱28╱(╱ // 0xd58 @0x1e
0x0d3a…0d72 at001f = ╱35╱5╱ // 0xd59 @0x1f
0x0d3a…0d72 at0020 = ╱20╱…╱ // 0xd5a @0x20
0x0d3a…0d72 at0021 = ╱63╱c╱ // 0xd5b @0x21
0x0d3a…0d72 at0022 = ╱69╱i╱ // 0xd5c @0x22
0x0d3a…0d72 at0023 = ╱66╱f╱ // 0xd5d @0x23
0x0d3a…0d72 at0024 = ╱72╱r╱ // 0xd5e @0x24
0x0d3a…0d72 at0025 = ╱65╱e╱ // 0xd5f @0x25
0x0d3a…0d72 at0026 = ╱29╱)╱ // 0xd60 @0x26
0x0d3a…0d72 at0027 = ╱22╱"╱ // 0xd61 @0x27
0x0d3a…0d72 at0028 = ╱eb╱;╱ // 0xd62 @0x28
0x0d3a…0d72 at0029 = ╱42╱B╱ // 0xd63 @0x29
0x0d3a…0d72 at002a = ╱37╱7╱ // 0xd64 @0x2a
0x0d3a…0d72 at002b = ╱ef╱$╱ // 0xd65 @0x2b
0x0d3a…0d72 at002c = ╱ed╱(╱ // 0xd66 @0x2c
0x0d3a…0d72 at002d = ╱45╱E╱ // 0xd67 @0x2d
0x0d3a…0d72 at002e = ╱f0╱:╱ // 0xd68 @0x2e
0x0d3a…0d72 at002f = ╱34╱4╱ // 0xd69 @0x2f
0x0d3a…0d72 at0030 = ╱34╱4╱ // 0xd6a @0x30
0x0d3a…0d72 at0031 = ╱fe0000b006╱ // 0xd6b @0x31
0x0d3a…0d72 at0036 = ╱ee╱)╱ // 0xd70 @0x36
0x0d3a…0d72 at0037 = EOL // 0xd71 @0x37
0x0d3a…0d72 }
0x0d72…0d87 9ade 1620 CURSOR 19,23
0x0d72…0d87 LineComalBin {
0x0d72…0d87 ptr = 0x9ade // 0xd72 @0x0
0x0d72…0d87 lno = 0x0654 // 0xd74 @0x2
0x0d72…0d87 at0004 = ╱a1╱ CURSOR ╱ // 0xd76 @0x4
0x0d72…0d87 at0005 = ╱31╱1╱ // 0xd77 @0x5
0x0d72…0d87 at0006 = ╱39╱9╱ // 0xd78 @0x6
0x0d72…0d87 at0007 = ╱fe00009805╱ // 0xd79 @0x7
0x0d72…0d87 at000c = ╱ec╱,╱ // 0xd7e @0xc
0x0d72…0d87 at000d = ╱32╱2╱ // 0xd7f @0xd
0x0d72…0d87 at000e = ╱33╱3╱ // 0xd80 @0xe
0x0d72…0d87 at000f = ╱fe0000b805╱ // 0xd81 @0xf
0x0d72…0d87 at0014 = EOL // 0xd86 @0x14
0x0d72…0d87 }
0x0d87…0d90 9ae7 1630 INPUT D5$
0x0d87…0d90 LineComalBin {
0x0d87…0d90 ptr = 0x9ae7 // 0xd87 @0x0
0x0d87…0d90 lno = 0x065e // 0xd89 @0x2
0x0d87…0d90 at0004 = ╱91╱ INPUT ╱ // 0xd8b @0x4
0x0d87…0d90 at0005 = ╱44╱D╱ // 0xd8c @0x5
0x0d87…0d90 at0006 = ╱35╱5╱ // 0xd8d @0x6
0x0d87…0d90 at0007 = ╱ef╱$╱ // 0xd8e @0x7
0x0d87…0d90 at0008 = EOL // 0xd8f @0x8
0x0d87…0d90 }
0x0d90…0d9d 9af4 1640 EXEC NR(D5$)
0x0d90…0d9d LineComalBin {
0x0d90…0d9d ptr = 0x9af4 // 0xd90 @0x0
0x0d90…0d9d lno = 0x0668 // 0xd92 @0x2
0x0d90…0d9d at0004 = ╱9d╱ EXEC ╱ // 0xd94 @0x4
0x0d90…0d9d at0005 = ╱4e╱N╱ // 0xd95 @0x5
0x0d90…0d9d at0006 = ╱52╱R╱ // 0xd96 @0x6
0x0d90…0d9d at0007 = ╱ed╱(╱ // 0xd97 @0x7
0x0d90…0d9d at0008 = ╱44╱D╱ // 0xd98 @0x8
0x0d90…0d9d at0009 = ╱35╱5╱ // 0xd99 @0x9
0x0d90…0d9d at000a = ╱ef╱$╱ // 0xd9a @0xa
0x0d90…0d9d at000b = ╱ee╱)╱ // 0xd9b @0xb
0x0d90…0d9d at000c = EOL // 0xd9c @0xc
0x0d90…0d9d }
0x0d9d…0dbd 9b14 1650 UNTIL H4=B AND (I8<>B AND I5=5) OR P=-E
0x0d9d…0dbd LineComalBin {
0x0d9d…0dbd ptr = 0x9b14 // 0xd9d @0x0
0x0d9d…0dbd lno = 0x0672 // 0xd9f @0x2
0x0d9d…0dbd at0004 = ╱98╱ UNTIL ╱ // 0xda1 @0x4
0x0d9d…0dbd at0005 = ╱48╱H╱ // 0xda2 @0x5
0x0d9d…0dbd at0006 = ╱34╱4╱ // 0xda3 @0x6
0x0d9d…0dbd at0007 = ╱dc╱=╱ // 0xda4 @0x7
0x0d9d…0dbd at0008 = ╱42╱B╱ // 0xda5 @0x8
0x0d9d…0dbd at0009 = ╱da╱ AND ╱ // 0xda6 @0x9
0x0d9d…0dbd at000a = ╱ed╱(╱ // 0xda7 @0xa
0x0d9d…0dbd at000b = ╱49╱I╱ // 0xda8 @0xb
0x0d9d…0dbd at000c = ╱38╱8╱ // 0xda9 @0xc
0x0d9d…0dbd at000d = ╱e1╱<>╱ // 0xdaa @0xd
0x0d9d…0dbd at000e = ╱42╱B╱ // 0xdab @0xe
0x0d9d…0dbd at000f = ╱da╱ AND ╱ // 0xdac @0xf
0x0d9d…0dbd at0010 = ╱49╱I╱ // 0xdad @0x10
0x0d9d…0dbd at0011 = ╱35╱5╱ // 0xdae @0x11
0x0d9d…0dbd at0012 = ╱dc╱=╱ // 0xdaf @0x12
0x0d9d…0dbd at0013 = ╱35╱5╱ // 0xdb0 @0x13
0x0d9d…0dbd at0014 = ╱fe0000a003╱ // 0xdb1 @0x14
0x0d9d…0dbd at0019 = ╱ee╱)╱ // 0xdb6 @0x19
0x0d9d…0dbd at001a = ╱db╱ OR ╱ // 0xdb7 @0x1a
0x0d9d…0dbd at001b = ╱50╱P╱ // 0xdb8 @0x1b
0x0d9d…0dbd at001c = ╱dc╱=╱ // 0xdb9 @0x1c
0x0d9d…0dbd at001d = ╱e9╱-╱ // 0xdba @0x1d
0x0d9d…0dbd at001e = ╱45╱E╱ // 0xdbb @0x1e
0x0d9d…0dbd at001f = EOL // 0xdbc @0x1f
0x0d9d…0dbd }
0x0dbd…0dd7 9b2e 1660 H16=1000000;I9=B
0x0dbd…0dd7 LineComalBin {
0x0dbd…0dd7 ptr = 0x9b2e // 0xdbd @0x0
0x0dbd…0dd7 lno = 0x067c // 0xdbf @0x2
0x0dbd…0dd7 at0004 = ╱48╱H╱ // 0xdc1 @0x4
0x0dbd…0dd7 at0005 = ╱31╱1╱ // 0xdc2 @0x5
0x0dbd…0dd7 at0006 = ╱36╱6╱ // 0xdc3 @0x6
0x0dbd…0dd7 at0007 = ╱dc╱=╱ // 0xdc4 @0x7
0x0dbd…0dd7 at0008 = ╱31╱1╱ // 0xdc5 @0x8
0x0dbd…0dd7 at0009 = ╱30╱0╱ // 0xdc6 @0x9
0x0dbd…0dd7 at000a = ╱30╱0╱ // 0xdc7 @0xa
0x0dbd…0dd7 at000b = ╱30╱0╱ // 0xdc8 @0xb
0x0dbd…0dd7 at000c = ╱30╱0╱ // 0xdc9 @0xc
0x0dbd…0dd7 at000d = ╱30╱0╱ // 0xdca @0xd
0x0dbd…0dd7 at000e = ╱30╱0╱ // 0xdcb @0xe
0x0dbd…0dd7 at000f = ╱fe0024f414╱ // 0xdcc @0xf
0x0dbd…0dd7 at0014 = ╱eb╱;╱ // 0xdd1 @0x14
0x0dbd…0dd7 at0015 = ╱49╱I╱ // 0xdd2 @0x15
0x0dbd…0dd7 at0016 = ╱39╱9╱ // 0xdd3 @0x16
0x0dbd…0dd7 at0017 = ╱dc╱=╱ // 0xdd4 @0x17
0x0dbd…0dd7 at0018 = ╱42╱B╱ // 0xdd5 @0x18
0x0dbd…0dd7 at0019 = EOL // 0xdd6 @0x19
0x0dbd…0dd7 }
0x0dd7…0de3 9b3a 1670 IF P=-E THEN EXIT
0x0dd7…0de3 LineComalBin {
0x0dd7…0de3 ptr = 0x9b3a // 0xdd7 @0x0
0x0dd7…0de3 lno = 0x0686 // 0xdd9 @0x2
0x0dd7…0de3 at0004 = ╱82╱ IF ╱ // 0xddb @0x4
0x0dd7…0de3 at0005 = ╱50╱P╱ // 0xddc @0x5
0x0dd7…0de3 at0006 = ╱dc╱=╱ // 0xddd @0x6
0x0dd7…0de3 at0007 = ╱e9╱-╱ // 0xdde @0x7
0x0dd7…0de3 at0008 = ╱45╱E╱ // 0xddf @0x8
0x0dd7…0de3 at0009 = ╱b6╱ THEN ╱ // 0xde0 @0x9
0x0dd7…0de3 at000a = ╱99╱ EXIT ╱ // 0xde1 @0xa
0x0dd7…0de3 at000b = EOL // 0xde2 @0xb
0x0dd7…0de3 }
0x0de3…0e11 9b68 1680 H16=P;B4$="Konto eksisterer ikke";F8$=B7$
0x0de3…0e11 LineComalBin {
0x0de3…0e11 ptr = 0x9b68 // 0xde3 @0x0
0x0de3…0e11 lno = 0x0690 // 0xde5 @0x2
0x0de3…0e11 at0004 = ╱48╱H╱ // 0xde7 @0x4
0x0de3…0e11 at0005 = ╱31╱1╱ // 0xde8 @0x5
0x0de3…0e11 at0006 = ╱36╱6╱ // 0xde9 @0x6
0x0de3…0e11 at0007 = ╱dc╱=╱ // 0xdea @0x7
0x0de3…0e11 at0008 = ╱50╱P╱ // 0xdeb @0x8
0x0de3…0e11 at0009 = ╱eb╱;╱ // 0xdec @0x9
0x0de3…0e11 at000a = ╱42╱B╱ // 0xded @0xa
0x0de3…0e11 at000b = ╱34╱4╱ // 0xdee @0xb
0x0de3…0e11 at000c = ╱ef╱$╱ // 0xdef @0xc
0x0de3…0e11 at000d = ╱dc╱=╱ // 0xdf0 @0xd
0x0de3…0e11 at000e = ╱22╱"╱ // 0xdf1 @0xe
0x0de3…0e11 at000f = ╱4b╱K╱ // 0xdf2 @0xf
0x0de3…0e11 at0010 = ╱6f╱o╱ // 0xdf3 @0x10
0x0de3…0e11 at0011 = ╱6e╱n╱ // 0xdf4 @0x11
0x0de3…0e11 at0012 = ╱74╱t╱ // 0xdf5 @0x12
0x0de3…0e11 at0013 = ╱6f╱o╱ // 0xdf6 @0x13
0x0de3…0e11 at0014 = ╱20╱…╱ // 0xdf7 @0x14
0x0de3…0e11 at0015 = ╱65╱e╱ // 0xdf8 @0x15
0x0de3…0e11 at0016 = ╱6b╱k╱ // 0xdf9 @0x16
0x0de3…0e11 at0017 = ╱73╱s╱ // 0xdfa @0x17
0x0de3…0e11 at0018 = ╱69╱i╱ // 0xdfb @0x18
0x0de3…0e11 at0019 = ╱73╱s╱ // 0xdfc @0x19
0x0de3…0e11 at001a = ╱74╱t╱ // 0xdfd @0x1a
0x0de3…0e11 at001b = ╱65╱e╱ // 0xdfe @0x1b
0x0de3…0e11 at001c = ╱72╱r╱ // 0xdff @0x1c
0x0de3…0e11 at001d = ╱65╱e╱ // 0xe00 @0x1d
0x0de3…0e11 at001e = ╱72╱r╱ // 0xe01 @0x1e
0x0de3…0e11 at001f = ╱20╱…╱ // 0xe02 @0x1f
0x0de3…0e11 at0020 = ╱69╱i╱ // 0xe03 @0x20
0x0de3…0e11 at0021 = ╱6b╱k╱ // 0xe04 @0x21
0x0de3…0e11 at0022 = ╱6b╱k╱ // 0xe05 @0x22
0x0de3…0e11 at0023 = ╱65╱e╱ // 0xe06 @0x23
0x0de3…0e11 at0024 = ╱22╱"╱ // 0xe07 @0x24
0x0de3…0e11 at0025 = ╱eb╱;╱ // 0xe08 @0x25
0x0de3…0e11 at0026 = ╱46╱F╱ // 0xe09 @0x26
0x0de3…0e11 at0027 = ╱38╱8╱ // 0xe0a @0x27
0x0de3…0e11 at0028 = ╱ef╱$╱ // 0xe0b @0x28
0x0de3…0e11 at0029 = ╱dc╱=╱ // 0xe0c @0x29
0x0de3…0e11 at002a = ╱42╱B╱ // 0xe0d @0x2a
0x0de3…0e11 at002b = ╱37╱7╱ // 0xe0e @0x2b
0x0de3…0e11 at002c = ╱ef╱$╱ // 0xe0f @0x2c
0x0de3…0e11 at002d = EOL // 0xe10 @0x2d
0x0de3…0e11 }
0x0e11…0e3d 9b94 1690 EXEC FI(N11,M8,J12,(H16 DIV 100),J19,E13$)
0x0e11…0e3d LineComalBin {
0x0e11…0e3d ptr = 0x9b94 // 0xe11 @0x0
0x0e11…0e3d lno = 0x069a // 0xe13 @0x2
0x0e11…0e3d at0004 = ╱9d╱ EXEC ╱ // 0xe15 @0x4
0x0e11…0e3d at0005 = ╱46╱F╱ // 0xe16 @0x5
0x0e11…0e3d at0006 = ╱49╱I╱ // 0xe17 @0x6
0x0e11…0e3d at0007 = ╱ed╱(╱ // 0xe18 @0x7
0x0e11…0e3d at0008 = ╱4e╱N╱ // 0xe19 @0x8
0x0e11…0e3d at0009 = ╱31╱1╱ // 0xe1a @0x9
0x0e11…0e3d at000a = ╱31╱1╱ // 0xe1b @0xa
0x0e11…0e3d at000b = ╱ec╱,╱ // 0xe1c @0xb
0x0e11…0e3d at000c = ╱4d╱M╱ // 0xe1d @0xc
0x0e11…0e3d at000d = ╱38╱8╱ // 0xe1e @0xd
0x0e11…0e3d at000e = ╱ec╱,╱ // 0xe1f @0xe
0x0e11…0e3d at000f = ╱4a╱J╱ // 0xe20 @0xf
0x0e11…0e3d at0010 = ╱31╱1╱ // 0xe21 @0x10
0x0e11…0e3d at0011 = ╱32╱2╱ // 0xe22 @0x11
0x0e11…0e3d at0012 = ╱ec╱,╱ // 0xe23 @0x12
0x0e11…0e3d at0013 = ╱ed╱(╱ // 0xe24 @0x13
0x0e11…0e3d at0014 = ╱48╱H╱ // 0xe25 @0x14
0x0e11…0e3d at0015 = ╱31╱1╱ // 0xe26 @0x15
0x0e11…0e3d at0016 = ╱36╱6╱ // 0xe27 @0x16
0x0e11…0e3d at0017 = ╱e7╱ DIV ╱ // 0xe28 @0x17
0x0e11…0e3d at0018 = ╱31╱1╱ // 0xe29 @0x18
0x0e11…0e3d at0019 = ╱30╱0╱ // 0xe2a @0x19
0x0e11…0e3d at001a = ╱30╱0╱ // 0xe2b @0x1a
0x0e11…0e3d at001b = ╱fe0000c807╱ // 0xe2c @0x1b
0x0e11…0e3d at0020 = ╱ee╱)╱ // 0xe31 @0x20
0x0e11…0e3d at0021 = ╱ec╱,╱ // 0xe32 @0x21
0x0e11…0e3d at0022 = ╱4a╱J╱ // 0xe33 @0x22
0x0e11…0e3d at0023 = ╱31╱1╱ // 0xe34 @0x23
0x0e11…0e3d at0024 = ╱39╱9╱ // 0xe35 @0x24
0x0e11…0e3d at0025 = ╱ec╱,╱ // 0xe36 @0x25
0x0e11…0e3d at0026 = ╱45╱E╱ // 0xe37 @0x26
0x0e11…0e3d at0027 = ╱31╱1╱ // 0xe38 @0x27
0x0e11…0e3d at0028 = ╱33╱3╱ // 0xe39 @0x28
0x0e11…0e3d at0029 = ╱ef╱$╱ // 0xe3a @0x29
0x0e11…0e3d at002a = ╱ee╱)╱ // 0xe3b @0x2a
0x0e11…0e3d at002b = EOL // 0xe3c @0x2b
0x0e11…0e3d }
0x0e3d…0e48 9b9f 1700 IF I9=B THEN
0x0e3d…0e48 LineComalBin {
0x0e3d…0e48 ptr = 0x9b9f // 0xe3d @0x0
0x0e3d…0e48 lno = 0x06a4 // 0xe3f @0x2
0x0e3d…0e48 at0004 = ╱9c╱ IF ╱ // 0xe41 @0x4
0x0e3d…0e48 at0005 = ╱49╱I╱ // 0xe42 @0x5
0x0e3d…0e48 at0006 = ╱39╱9╱ // 0xe43 @0x6
0x0e3d…0e48 at0007 = ╱dc╱=╱ // 0xe44 @0x7
0x0e3d…0e48 at0008 = ╱42╱B╱ // 0xe45 @0x8
0x0e3d…0e48 at0009 = ╱b6╱ THEN ╱ // 0xe46 @0x9
0x0e3d…0e48 at000a = EOL // 0xe47 @0xa
0x0e3d…0e48 }
0x0e48…0e59 9bb0 1710 FOR X=E TO J13+J14
0x0e48…0e59 LineComalBin {
0x0e48…0e59 ptr = 0x9bb0 // 0xe48 @0x0
0x0e48…0e59 lno = 0x06ae // 0xe4a @0x2
0x0e48…0e59 at0004 = ╱83╱ FOR ╱ // 0xe4c @0x4
0x0e48…0e59 at0005 = ╱58╱X╱ // 0xe4d @0x5
0x0e48…0e59 at0006 = ╱dc╱=╱ // 0xe4e @0x6
0x0e48…0e59 at0007 = ╱45╱E╱ // 0xe4f @0x7
0x0e48…0e59 at0008 = ╱b7╱ TO ╱ // 0xe50 @0x8
0x0e48…0e59 at0009 = ╱4a╱J╱ // 0xe51 @0x9
0x0e48…0e59 at000a = ╱31╱1╱ // 0xe52 @0xa
0x0e48…0e59 at000b = ╱33╱3╱ // 0xe53 @0xb
0x0e48…0e59 at000c = ╱e2╱+╱ // 0xe54 @0xc
0x0e48…0e59 at000d = ╱4a╱J╱ // 0xe55 @0xd
0x0e48…0e59 at000e = ╱31╱1╱ // 0xe56 @0xe
0x0e48…0e59 at000f = ╱34╱4╱ // 0xe57 @0xf
0x0e48…0e59 at0010 = EOL // 0xe58 @0x10
0x0e48…0e59 }
0x0e59…0e62 9bb9 1720 I9=B
0x0e59…0e62 LineComalBin {
0x0e59…0e62 ptr = 0x9bb9 // 0xe59 @0x0
0x0e59…0e62 lno = 0x06b8 // 0xe5b @0x2
0x0e59…0e62 at0004 = ╱49╱I╱ // 0xe5d @0x4
0x0e59…0e62 at0005 = ╱39╱9╱ // 0xe5e @0x5
0x0e59…0e62 at0006 = ╱dc╱=╱ // 0xe5f @0x6
0x0e59…0e62 at0007 = ╱42╱B╱ // 0xe60 @0x7
0x0e59…0e62 at0008 = EOL // 0xe61 @0x8
0x0e59…0e62 }
0x0e62…0e8b 9be2 1730 IF (H16 MOD 100)=N12(X) AND N13$(X)="0" THEN EXIT
0x0e62…0e8b LineComalBin {
0x0e62…0e8b ptr = 0x9be2 // 0xe62 @0x0
0x0e62…0e8b lno = 0x06c2 // 0xe64 @0x2
0x0e62…0e8b at0004 = ╱82╱ IF ╱ // 0xe66 @0x4
0x0e62…0e8b at0005 = ╱ed╱(╱ // 0xe67 @0x5
0x0e62…0e8b at0006 = ╱48╱H╱ // 0xe68 @0x6
0x0e62…0e8b at0007 = ╱31╱1╱ // 0xe69 @0x7
0x0e62…0e8b at0008 = ╱36╱6╱ // 0xe6a @0x8
0x0e62…0e8b at0009 = ╱e8╱ MOD ╱ // 0xe6b @0x9
0x0e62…0e8b at000a = ╱31╱1╱ // 0xe6c @0xa
0x0e62…0e8b at000b = ╱30╱0╱ // 0xe6d @0xb
0x0e62…0e8b at000c = ╱30╱0╱ // 0xe6e @0xc
0x0e62…0e8b at000d = ╱fe0000c807╱ // 0xe6f @0xd
0x0e62…0e8b at0012 = ╱ee╱)╱ // 0xe74 @0x12
0x0e62…0e8b at0013 = ╱dc╱=╱ // 0xe75 @0x13
0x0e62…0e8b at0014 = ╱4e╱N╱ // 0xe76 @0x14
0x0e62…0e8b at0015 = ╱31╱1╱ // 0xe77 @0x15
0x0e62…0e8b at0016 = ╱32╱2╱ // 0xe78 @0x16
0x0e62…0e8b at0017 = ╱ed╱(╱ // 0xe79 @0x17
0x0e62…0e8b at0018 = ╱58╱X╱ // 0xe7a @0x18
0x0e62…0e8b at0019 = ╱ee╱)╱ // 0xe7b @0x19
0x0e62…0e8b at001a = ╱da╱ AND ╱ // 0xe7c @0x1a
0x0e62…0e8b at001b = ╱4e╱N╱ // 0xe7d @0x1b
0x0e62…0e8b at001c = ╱31╱1╱ // 0xe7e @0x1c
0x0e62…0e8b at001d = ╱33╱3╱ // 0xe7f @0x1d
0x0e62…0e8b at001e = ╱ef╱$╱ // 0xe80 @0x1e
0x0e62…0e8b at001f = ╱ed╱(╱ // 0xe81 @0x1f
0x0e62…0e8b at0020 = ╱58╱X╱ // 0xe82 @0x20
0x0e62…0e8b at0021 = ╱ee╱)╱ // 0xe83 @0x21
0x0e62…0e8b at0022 = ╱dc╱=╱ // 0xe84 @0x22
0x0e62…0e8b at0023 = ╱22╱"╱ // 0xe85 @0x23
0x0e62…0e8b at0024 = ╱30╱0╱ // 0xe86 @0x24
0x0e62…0e8b at0025 = ╱22╱"╱ // 0xe87 @0x25
0x0e62…0e8b at0026 = ╱b6╱ THEN ╱ // 0xe88 @0x26
0x0e62…0e8b at0027 = ╱99╱ EXIT ╱ // 0xe89 @0x27
0x0e62…0e8b at0028 = EOL // 0xe8a @0x28
0x0e62…0e8b }
0x0e8b…0e94 9beb 1740 I9=E
0x0e8b…0e94 LineComalBin {
0x0e8b…0e94 ptr = 0x9beb // 0xe8b @0x0
0x0e8b…0e94 lno = 0x06cc // 0xe8d @0x2
0x0e8b…0e94 at0004 = ╱49╱I╱ // 0xe8f @0x4
0x0e8b…0e94 at0005 = ╱39╱9╱ // 0xe90 @0x5
0x0e8b…0e94 at0006 = ╱dc╱=╱ // 0xe91 @0x6
0x0e8b…0e94 at0007 = ╱45╱E╱ // 0xe92 @0x7
0x0e8b…0e94 at0008 = EOL // 0xe93 @0x8
0x0e8b…0e94 }
0x0e94…0e9b 9bf2 1750 NEXT X
0x0e94…0e9b LineComalBin {
0x0e94…0e9b ptr = 0x9bf2 // 0xe94 @0x0
0x0e94…0e9b lno = 0x06d6 // 0xe96 @0x2
0x0e94…0e9b at0004 = ╱84╱ NEXT ╱ // 0xe98 @0x4
0x0e94…0e9b at0005 = ╱58╱X╱ // 0xe99 @0x5
0x0e94…0e9b at0006 = EOL // 0xe9a @0x6
0x0e94…0e9b }
0x0e9b…0ea6 9bfd 1760 IF I9=B THEN
0x0e9b…0ea6 LineComalBin {
0x0e9b…0ea6 ptr = 0x9bfd // 0xe9b @0x0
0x0e9b…0ea6 lno = 0x06e0 // 0xe9d @0x2
0x0e9b…0ea6 at0004 = ╱9c╱ IF ╱ // 0xe9f @0x4
0x0e9b…0ea6 at0005 = ╱49╱I╱ // 0xea0 @0x5
0x0e9b…0ea6 at0006 = ╱39╱9╱ // 0xea1 @0x6
0x0e9b…0ea6 at0007 = ╱dc╱=╱ // 0xea2 @0x7
0x0e9b…0ea6 at0008 = ╱42╱B╱ // 0xea3 @0x8
0x0e9b…0ea6 at0009 = ╱b6╱ THEN ╱ // 0xea4 @0x9
0x0e9b…0ea6 at000a = EOL // 0xea5 @0xa
0x0e9b…0ea6 }
0x0ea6…0ec0 9c17 1770 GET E12$,M8(J19,G)+E:B4$
0x0ea6…0ec0 LineComalBin {
0x0ea6…0ec0 ptr = 0x9c17 // 0xea6 @0x0
0x0ea6…0ec0 lno = 0x06ea // 0xea8 @0x2
0x0ea6…0ec0 at0004 = ╱a9╱ GET ╱ // 0xeaa @0x4
0x0ea6…0ec0 at0005 = ╱45╱E╱ // 0xeab @0x5
0x0ea6…0ec0 at0006 = ╱31╱1╱ // 0xeac @0x6
0x0ea6…0ec0 at0007 = ╱32╱2╱ // 0xead @0x7
0x0ea6…0ec0 at0008 = ╱ef╱$╱ // 0xeae @0x8
0x0ea6…0ec0 at0009 = ╱ec╱,╱ // 0xeaf @0x9
0x0ea6…0ec0 at000a = ╱4d╱M╱ // 0xeb0 @0xa
0x0ea6…0ec0 at000b = ╱38╱8╱ // 0xeb1 @0xb
0x0ea6…0ec0 at000c = ╱ed╱(╱ // 0xeb2 @0xc
0x0ea6…0ec0 at000d = ╱4a╱J╱ // 0xeb3 @0xd
0x0ea6…0ec0 at000e = ╱31╱1╱ // 0xeb4 @0xe
0x0ea6…0ec0 at000f = ╱39╱9╱ // 0xeb5 @0xf
0x0ea6…0ec0 at0010 = ╱ec╱,╱ // 0xeb6 @0x10
0x0ea6…0ec0 at0011 = ╱47╱G╱ // 0xeb7 @0x11
0x0ea6…0ec0 at0012 = ╱ee╱)╱ // 0xeb8 @0x12
0x0ea6…0ec0 at0013 = ╱e2╱+╱ // 0xeb9 @0x13
0x0ea6…0ec0 at0014 = ╱45╱E╱ // 0xeba @0x14
0x0ea6…0ec0 at0015 = ╱f0╱:╱ // 0xebb @0x15
0x0ea6…0ec0 at0016 = ╱42╱B╱ // 0xebc @0x16
0x0ea6…0ec0 at0017 = ╱34╱4╱ // 0xebd @0x17
0x0ea6…0ec0 at0018 = ╱ef╱$╱ // 0xebe @0x18
0x0ea6…0ec0 at0019 = EOL // 0xebf @0x19
0x0ea6…0ec0 }
0x0ec0…0ede 9c35 1780 EXEC FE(99,10,E12$)
0x0ec0…0ede LineComalBin {
0x0ec0…0ede ptr = 0x9c35 // 0xec0 @0x0
0x0ec0…0ede lno = 0x06f4 // 0xec2 @0x2
0x0ec0…0ede at0004 = ╱9d╱ EXEC ╱ // 0xec4 @0x4
0x0ec0…0ede at0005 = ╱46╱F╱ // 0xec5 @0x5
0x0ec0…0ede at0006 = ╱45╱E╱ // 0xec6 @0x6
0x0ec0…0ede at0007 = ╱ed╱(╱ // 0xec7 @0x7
0x0ec0…0ede at0008 = ╱39╱9╱ // 0xec8 @0x8
0x0ec0…0ede at0009 = ╱39╱9╱ // 0xec9 @0x9
0x0ec0…0ede at000a = ╱fe0000c607╱ // 0xeca @0xa
0x0ec0…0ede at000f = ╱ec╱,╱ // 0xecf @0xf
0x0ec0…0ede at0010 = ╱31╱1╱ // 0xed0 @0x10
0x0ec0…0ede at0011 = ╱30╱0╱ // 0xed1 @0x11
0x0ec0…0ede at0012 = ╱fe0000a004╱ // 0xed2 @0x12
0x0ec0…0ede at0017 = ╱ec╱,╱ // 0xed7 @0x17
0x0ec0…0ede at0018 = ╱45╱E╱ // 0xed8 @0x18
0x0ec0…0ede at0019 = ╱31╱1╱ // 0xed9 @0x19
0x0ec0…0ede at001a = ╱32╱2╱ // 0xeda @0x1a
0x0ec0…0ede at001b = ╱ef╱$╱ // 0xedb @0x1b
0x0ec0…0ede at001c = ╱ee╱)╱ // 0xedc @0x1c
0x0ec0…0ede at001d = EOL // 0xedd @0x1d
0x0ec0…0ede }
0x0ede…0ef5 9c4c 1790 GET E14$,X:P9,E6$,F8$
0x0ede…0ef5 LineComalBin {
0x0ede…0ef5 ptr = 0x9c4c // 0xede @0x0
0x0ede…0ef5 lno = 0x06fe // 0xee0 @0x2
0x0ede…0ef5 at0004 = ╱a9╱ GET ╱ // 0xee2 @0x4
0x0ede…0ef5 at0005 = ╱45╱E╱ // 0xee3 @0x5
0x0ede…0ef5 at0006 = ╱31╱1╱ // 0xee4 @0x6
0x0ede…0ef5 at0007 = ╱34╱4╱ // 0xee5 @0x7
0x0ede…0ef5 at0008 = ╱ef╱$╱ // 0xee6 @0x8
0x0ede…0ef5 at0009 = ╱ec╱,╱ // 0xee7 @0x9
0x0ede…0ef5 at000a = ╱58╱X╱ // 0xee8 @0xa
0x0ede…0ef5 at000b = ╱f0╱:╱ // 0xee9 @0xb
0x0ede…0ef5 at000c = ╱50╱P╱ // 0xeea @0xc
0x0ede…0ef5 at000d = ╱39╱9╱ // 0xeeb @0xd
0x0ede…0ef5 at000e = ╱ec╱,╱ // 0xeec @0xe
0x0ede…0ef5 at000f = ╱45╱E╱ // 0xeed @0xf
0x0ede…0ef5 at0010 = ╱36╱6╱ // 0xeee @0x10
0x0ede…0ef5 at0011 = ╱ef╱$╱ // 0xeef @0x11
0x0ede…0ef5 at0012 = ╱ec╱,╱ // 0xef0 @0x12
0x0ede…0ef5 at0013 = ╱46╱F╱ // 0xef1 @0x13
0x0ede…0ef5 at0014 = ╱38╱8╱ // 0xef2 @0x14
0x0ede…0ef5 at0015 = ╱ef╱$╱ // 0xef3 @0x15
0x0ede…0ef5 at0016 = EOL // 0xef4 @0x16
0x0ede…0ef5 }
0x0ef5…0f13 9c6a 1800 EXEC FE(99,11,E14$)
0x0ef5…0f13 LineComalBin {
0x0ef5…0f13 ptr = 0x9c6a // 0xef5 @0x0
0x0ef5…0f13 lno = 0x0708 // 0xef7 @0x2
0x0ef5…0f13 at0004 = ╱9d╱ EXEC ╱ // 0xef9 @0x4
0x0ef5…0f13 at0005 = ╱46╱F╱ // 0xefa @0x5
0x0ef5…0f13 at0006 = ╱45╱E╱ // 0xefb @0x6
0x0ef5…0f13 at0007 = ╱ed╱(╱ // 0xefc @0x7
0x0ef5…0f13 at0008 = ╱39╱9╱ // 0xefd @0x8
0x0ef5…0f13 at0009 = ╱39╱9╱ // 0xefe @0x9
0x0ef5…0f13 at000a = ╱fe0000c607╱ // 0xeff @0xa
0x0ef5…0f13 at000f = ╱ec╱,╱ // 0xf04 @0xf
0x0ef5…0f13 at0010 = ╱31╱1╱ // 0xf05 @0x10
0x0ef5…0f13 at0011 = ╱31╱1╱ // 0xf06 @0x11
0x0ef5…0f13 at0012 = ╱fe0000b004╱ // 0xf07 @0x12
0x0ef5…0f13 at0017 = ╱ec╱,╱ // 0xf0c @0x17
0x0ef5…0f13 at0018 = ╱45╱E╱ // 0xf0d @0x18
0x0ef5…0f13 at0019 = ╱31╱1╱ // 0xf0e @0x19
0x0ef5…0f13 at001a = ╱34╱4╱ // 0xf0f @0x1a
0x0ef5…0f13 at001b = ╱ef╱$╱ // 0xf10 @0x1b
0x0ef5…0f13 at001c = ╱ee╱)╱ // 0xf11 @0x1c
0x0ef5…0f13 at001d = EOL // 0xf12 @0x1d
0x0ef5…0f13 }
0x0f13…0f19 9c70 1810 ENDIF
0x0f13…0f19 LineComalBin {
0x0f13…0f19 ptr = 0x9c70 // 0xf13 @0x0
0x0f13…0f19 lno = 0x0712 // 0xf15 @0x2
0x0f13…0f19 at0004 = ╱9b╱ ENDIF ╱ // 0xf17 @0x4
0x0f13…0f19 at0005 = EOL // 0xf18 @0x5
0x0f13…0f19 }
0x0f19…0f1f 9c76 1820 ENDIF
0x0f19…0f1f LineComalBin {
0x0f19…0f1f ptr = 0x9c76 // 0xf19 @0x0
0x0f19…0f1f lno = 0x071c // 0xf1b @0x2
0x0f19…0f1f at0004 = ╱9b╱ ENDIF ╱ // 0xf1d @0x4
0x0f19…0f1f at0005 = EOL // 0xf1e @0x5
0x0f19…0f1f }
0x0f1f…0f2e 9c85 1830 CURSOR E,23
0x0f1f…0f2e LineComalBin {
0x0f1f…0f2e ptr = 0x9c85 // 0xf1f @0x0
0x0f1f…0f2e lno = 0x0726 // 0xf21 @0x2
0x0f1f…0f2e at0004 = ╱a1╱ CURSOR ╱ // 0xf23 @0x4
0x0f1f…0f2e at0005 = ╱45╱E╱ // 0xf24 @0x5
0x0f1f…0f2e at0006 = ╱ec╱,╱ // 0xf25 @0x6
0x0f1f…0f2e at0007 = ╱32╱2╱ // 0xf26 @0x7
0x0f1f…0f2e at0008 = ╱33╱3╱ // 0xf27 @0x8
0x0f1f…0f2e at0009 = ╱fe0000b805╱ // 0xf28 @0x9
0x0f1f…0f2e at000e = EOL // 0xf2d @0xe
0x0f1f…0f2e }
0x0f2e…0f44 9c9b 1840 PRINT USING " ###### ":H16;
0x0f2e…0f44 LineComalBin {
0x0f2e…0f44 ptr = 0x9c9b // 0xf2e @0x0
0x0f2e…0f44 lno = 0x0730 // 0xf30 @0x2
0x0f2e…0f44 at0004 = ╱92╱ PRINT ╱ // 0xf32 @0x4
0x0f2e…0f44 at0005 = ╱b9╱ USING ╱ // 0xf33 @0x5
0x0f2e…0f44 at0006 = ╱22╱"╱ // 0xf34 @0x6
0x0f2e…0f44 at0007 = ╱20╱…╱ // 0xf35 @0x7
0x0f2e…0f44 at0008 = ╱23╱#╱ // 0xf36 @0x8
0x0f2e…0f44 at0009 = ╱23╱#╱ // 0xf37 @0x9
0x0f2e…0f44 at000a = ╱23╱#╱ // 0xf38 @0xa
0x0f2e…0f44 at000b = ╱23╱#╱ // 0xf39 @0xb
0x0f2e…0f44 at000c = ╱23╱#╱ // 0xf3a @0xc
0x0f2e…0f44 at000d = ╱23╱#╱ // 0xf3b @0xd
0x0f2e…0f44 at000e = ╱20╱…╱ // 0xf3c @0xe
0x0f2e…0f44 at000f = ╱22╱"╱ // 0xf3d @0xf
0x0f2e…0f44 at0010 = ╱f0╱:╱ // 0xf3e @0x10
0x0f2e…0f44 at0011 = ╱48╱H╱ // 0xf3f @0x11
0x0f2e…0f44 at0012 = ╱31╱1╱ // 0xf40 @0x12
0x0f2e…0f44 at0013 = ╱36╱6╱ // 0xf41 @0x13
0x0f2e…0f44 at0014 = ╱eb╱;╱ // 0xf42 @0x14
0x0f2e…0f44 at0015 = EOL // 0xf43 @0x15
0x0f2e…0f44 }
0x0f44…0f71 9cc8 1850 PRINT B4$;" ";F8$;TAB(65);"Rigtig (J/N)"
0x0f44…0f71 LineComalBin {
0x0f44…0f71 ptr = 0x9cc8 // 0xf44 @0x0
0x0f44…0f71 lno = 0x073a // 0xf46 @0x2
0x0f44…0f71 at0004 = ╱92╱ PRINT ╱ // 0xf48 @0x4
0x0f44…0f71 at0005 = ╱42╱B╱ // 0xf49 @0x5
0x0f44…0f71 at0006 = ╱34╱4╱ // 0xf4a @0x6
0x0f44…0f71 at0007 = ╱ef╱$╱ // 0xf4b @0x7
0x0f44…0f71 at0008 = ╱eb╱;╱ // 0xf4c @0x8
0x0f44…0f71 at0009 = ╱22╱"╱ // 0xf4d @0x9
0x0f44…0f71 at000a = ╱20╱…╱ // 0xf4e @0xa
0x0f44…0f71 at000b = ╱22╱"╱ // 0xf4f @0xb
0x0f44…0f71 at000c = ╱eb╱;╱ // 0xf50 @0xc
0x0f44…0f71 at000d = ╱46╱F╱ // 0xf51 @0xd
0x0f44…0f71 at000e = ╱38╱8╱ // 0xf52 @0xe
0x0f44…0f71 at000f = ╱ef╱$╱ // 0xf53 @0xf
0x0f44…0f71 at0010 = ╱eb╱;╱ // 0xf54 @0x10
0x0f44…0f71 at0011 = ╱d2╱TAB╱ // 0xf55 @0x11
0x0f44…0f71 at0012 = ╱ed╱(╱ // 0xf56 @0x12
0x0f44…0f71 at0013 = ╱36╱6╱ // 0xf57 @0x13
0x0f44…0f71 at0014 = ╱35╱5╱ // 0xf58 @0x14
0x0f44…0f71 at0015 = ╱fe00008207╱ // 0xf59 @0x15
0x0f44…0f71 at001a = ╱ee╱)╱ // 0xf5e @0x1a
0x0f44…0f71 at001b = ╱eb╱;╱ // 0xf5f @0x1b
0x0f44…0f71 at001c = ╱22╱"╱ // 0xf60 @0x1c
0x0f44…0f71 at001d = ╱52╱R╱ // 0xf61 @0x1d
0x0f44…0f71 at001e = ╱69╱i╱ // 0xf62 @0x1e
0x0f44…0f71 at001f = ╱67╱g╱ // 0xf63 @0x1f
0x0f44…0f71 at0020 = ╱74╱t╱ // 0xf64 @0x20
0x0f44…0f71 at0021 = ╱69╱i╱ // 0xf65 @0x21
0x0f44…0f71 at0022 = ╱67╱g╱ // 0xf66 @0x22
0x0f44…0f71 at0023 = ╱20╱…╱ // 0xf67 @0x23
0x0f44…0f71 at0024 = ╱20╱…╱ // 0xf68 @0x24
0x0f44…0f71 at0025 = ╱20╱…╱ // 0xf69 @0x25
0x0f44…0f71 at0026 = ╱28╱(╱ // 0xf6a @0x26
0x0f44…0f71 at0027 = ╱4a╱J╱ // 0xf6b @0x27
0x0f44…0f71 at0028 = ╱2f╱/╱ // 0xf6c @0x28
0x0f44…0f71 at0029 = ╱4e╱N╱ // 0xf6d @0x29
0x0f44…0f71 at002a = ╱29╱)╱ // 0xf6e @0x2a
0x0f44…0f71 at002b = ╱22╱"╱ // 0xf6f @0x2b
0x0f44…0f71 at002c = EOL // 0xf70 @0x2c
0x0f44…0f71 }
0x0f71…0f77 9cce 1860 REPEAT
0x0f71…0f77 LineComalBin {
0x0f71…0f77 ptr = 0x9cce // 0xf71 @0x0
0x0f71…0f77 lno = 0x0744 // 0xf73 @0x2
0x0f71…0f77 at0004 = ╱97╱ REPEAT ╱ // 0xf75 @0x4
0x0f71…0f77 at0005 = EOL // 0xf76 @0x5
0x0f71…0f77 }
0x0f77…0f8c 9ce3 1870 CURSOR 71,23
0x0f77…0f8c LineComalBin {
0x0f77…0f8c ptr = 0x9ce3 // 0xf77 @0x0
0x0f77…0f8c lno = 0x074e // 0xf79 @0x2
0x0f77…0f8c at0004 = ╱a1╱ CURSOR ╱ // 0xf7b @0x4
0x0f77…0f8c at0005 = ╱37╱7╱ // 0xf7c @0x5
0x0f77…0f8c at0006 = ╱31╱1╱ // 0xf7d @0x6
0x0f77…0f8c at0007 = ╱fe00008e07╱ // 0xf7e @0x7
0x0f77…0f8c at000c = ╱ec╱,╱ // 0xf83 @0xc
0x0f77…0f8c at000d = ╱32╱2╱ // 0xf84 @0xd
0x0f77…0f8c at000e = ╱33╱3╱ // 0xf85 @0xe
0x0f77…0f8c at000f = ╱fe0000b805╱ // 0xf86 @0xf
0x0f77…0f8c at0014 = EOL // 0xf8b @0x14
0x0f77…0f8c }
0x0f8c…0f94 9ceb 1880 INPUT A$
0x0f8c…0f94 LineComalBin {
0x0f8c…0f94 ptr = 0x9ceb // 0xf8c @0x0
0x0f8c…0f94 lno = 0x0758 // 0xf8e @0x2
0x0f8c…0f94 at0004 = ╱91╱ INPUT ╱ // 0xf90 @0x4
0x0f8c…0f94 at0005 = ╱41╱A╱ // 0xf91 @0x5
0x0f8c…0f94 at0006 = ╱ef╱$╱ // 0xf92 @0x6
0x0f8c…0f94 at0007 = EOL // 0xf93 @0x7
0x0f8c…0f94 }
0x0f94…0fa0 9cf7 1890 EXEC NR(A$)
0x0f94…0fa0 LineComalBin {
0x0f94…0fa0 ptr = 0x9cf7 // 0xf94 @0x0
0x0f94…0fa0 lno = 0x0762 // 0xf96 @0x2
0x0f94…0fa0 at0004 = ╱9d╱ EXEC ╱ // 0xf98 @0x4
0x0f94…0fa0 at0005 = ╱4e╱N╱ // 0xf99 @0x5
0x0f94…0fa0 at0006 = ╱52╱R╱ // 0xf9a @0x6
0x0f94…0fa0 at0007 = ╱ed╱(╱ // 0xf9b @0x7
0x0f94…0fa0 at0008 = ╱41╱A╱ // 0xf9c @0x8
0x0f94…0fa0 at0009 = ╱ef╱$╱ // 0xf9d @0x9
0x0f94…0fa0 at000a = ╱ee╱)╱ // 0xf9e @0xa
0x0f94…0fa0 at000b = EOL // 0xf9f @0xb
0x0f94…0fa0 }
0x0fa0…0fb9 9d10 1900 UNTIL P=-7 OR P=-8
0x0fa0…0fb9 LineComalBin {
0x0fa0…0fb9 ptr = 0x9d10 // 0xfa0 @0x0
0x0fa0…0fb9 lno = 0x076c // 0xfa2 @0x2
0x0fa0…0fb9 at0004 = ╱98╱ UNTIL ╱ // 0xfa4 @0x4
0x0fa0…0fb9 at0005 = ╱50╱P╱ // 0xfa5 @0x5
0x0fa0…0fb9 at0006 = ╱dc╱=╱ // 0xfa6 @0x6
0x0fa0…0fb9 at0007 = ╱e9╱-╱ // 0xfa7 @0x7
0x0fa0…0fb9 at0008 = ╱37╱7╱ // 0xfa8 @0x8
0x0fa0…0fb9 at0009 = ╱fe0000e003╱ // 0xfa9 @0x9
0x0fa0…0fb9 at000e = ╱db╱ OR ╱ // 0xfae @0xe
0x0fa0…0fb9 at000f = ╱50╱P╱ // 0xfaf @0xf
0x0fa0…0fb9 at0010 = ╱dc╱=╱ // 0xfb0 @0x10
0x0fa0…0fb9 at0011 = ╱e9╱-╱ // 0xfb1 @0x11
0x0fa0…0fb9 at0012 = ╱38╱8╱ // 0xfb2 @0x12
0x0fa0…0fb9 at0013 = ╱fe00008004╱ // 0xfb3 @0x13
0x0fa0…0fb9 at0018 = EOL // 0xfb8 @0x18
0x0fa0…0fb9 }
0x0fb9…0fdb 9d32 1910 UNTIL P=-7 AND ((I9=B AND I1=E) OR I1<>E)
0x0fb9…0fdb LineComalBin {
0x0fb9…0fdb ptr = 0x9d32 // 0xfb9 @0x0
0x0fb9…0fdb lno = 0x0776 // 0xfbb @0x2
0x0fb9…0fdb at0004 = ╱98╱ UNTIL ╱ // 0xfbd @0x4
0x0fb9…0fdb at0005 = ╱50╱P╱ // 0xfbe @0x5
0x0fb9…0fdb at0006 = ╱dc╱=╱ // 0xfbf @0x6
0x0fb9…0fdb at0007 = ╱e9╱-╱ // 0xfc0 @0x7
0x0fb9…0fdb at0008 = ╱37╱7╱ // 0xfc1 @0x8
0x0fb9…0fdb at0009 = ╱fe0000e003╱ // 0xfc2 @0x9
0x0fb9…0fdb at000e = ╱da╱ AND ╱ // 0xfc7 @0xe
0x0fb9…0fdb at000f = ╱ed╱(╱ // 0xfc8 @0xf
0x0fb9…0fdb at0010 = ╱ed╱(╱ // 0xfc9 @0x10
0x0fb9…0fdb at0011 = ╱49╱I╱ // 0xfca @0x11
0x0fb9…0fdb at0012 = ╱39╱9╱ // 0xfcb @0x12
0x0fb9…0fdb at0013 = ╱dc╱=╱ // 0xfcc @0x13
0x0fb9…0fdb at0014 = ╱42╱B╱ // 0xfcd @0x14
0x0fb9…0fdb at0015 = ╱da╱ AND ╱ // 0xfce @0x15
0x0fb9…0fdb at0016 = ╱49╱I╱ // 0xfcf @0x16
0x0fb9…0fdb at0017 = ╱31╱1╱ // 0xfd0 @0x17
0x0fb9…0fdb at0018 = ╱dc╱=╱ // 0xfd1 @0x18
0x0fb9…0fdb at0019 = ╱45╱E╱ // 0xfd2 @0x19
0x0fb9…0fdb at001a = ╱ee╱)╱ // 0xfd3 @0x1a
0x0fb9…0fdb at001b = ╱db╱ OR ╱ // 0xfd4 @0x1b
0x0fb9…0fdb at001c = ╱49╱I╱ // 0xfd5 @0x1c
0x0fb9…0fdb at001d = ╱31╱1╱ // 0xfd6 @0x1d
0x0fb9…0fdb at001e = ╱e1╱<>╱ // 0xfd7 @0x1e
0x0fb9…0fdb at001f = ╱45╱E╱ // 0xfd8 @0x1f
0x0fb9…0fdb at0020 = ╱ee╱)╱ // 0xfd9 @0x20
0x0fb9…0fdb at0021 = EOL // 0xfda @0x21
0x0fb9…0fdb }
0x0fdb…0fe6 9d3d 1920 IF I9=E THEN
0x0fdb…0fe6 LineComalBin {
0x0fdb…0fe6 ptr = 0x9d3d // 0xfdb @0x0
0x0fdb…0fe6 lno = 0x0780 // 0xfdd @0x2
0x0fdb…0fe6 at0004 = ╱9c╱ IF ╱ // 0xfdf @0x4
0x0fdb…0fe6 at0005 = ╱49╱I╱ // 0xfe0 @0x5
0x0fdb…0fe6 at0006 = ╱39╱9╱ // 0xfe1 @0x6
0x0fdb…0fe6 at0007 = ╱dc╱=╱ // 0xfe2 @0x7
0x0fdb…0fe6 at0008 = ╱45╱E╱ // 0xfe3 @0x8
0x0fdb…0fe6 at0009 = ╱b6╱ THEN ╱ // 0xfe4 @0x9
0x0fdb…0fe6 at000a = EOL // 0xfe5 @0xa
0x0fdb…0fe6 }
0x0fe6…0ff6 9d4d 1930 EXEC SL(5)
0x0fe6…0ff6 LineComalBin {
0x0fe6…0ff6 ptr = 0x9d4d // 0xfe6 @0x0
0x0fe6…0ff6 lno = 0x078a // 0xfe8 @0x2
0x0fe6…0ff6 at0004 = ╱9d╱ EXEC ╱ // 0xfea @0x4
0x0fe6…0ff6 at0005 = ╱53╱S╱ // 0xfeb @0x5
0x0fe6…0ff6 at0006 = ╱4c╱L╱ // 0xfec @0x6
0x0fe6…0ff6 at0007 = ╱ed╱(╱ // 0xfed @0x7
0x0fe6…0ff6 at0008 = ╱35╱5╱ // 0xfee @0x8
0x0fe6…0ff6 at0009 = ╱fe0000a003╱ // 0xfef @0x9
0x0fe6…0ff6 at000e = ╱ee╱)╱ // 0xff4 @0xe
0x0fe6…0ff6 at000f = EOL // 0xff5 @0xf
0x0fe6…0ff6 }
0x0ff6…1007 9d5e 1940 H3=E;I0=I0-E
0x0ff6…1007 LineComalBin {
0x0ff6…1007 ptr = 0x9d5e // 0xff6 @0x0
0x0ff6…1007 lno = 0x0794 // 0xff8 @0x2
0x0ff6…1007 at0004 = ╱48╱H╱ // 0xffa @0x4
0x0ff6…1007 at0005 = ╱33╱3╱ // 0xffb @0x5
0x0ff6…1007 at0006 = ╱dc╱=╱ // 0xffc @0x6
0x0ff6…1007 at0007 = ╱45╱E╱ // 0xffd @0x7
0x0ff6…1007 at0008 = ╱eb╱;╱ // 0xffe @0x8
0x0ff6…1007 at0009 = ╱49╱I╱ // 0xfff @0x9
0x0ff6…1007 at000a = ╱30╱0╱ // 0x1000 @0xa
0x0ff6…1007 at000b = ╱dc╱=╱ // 0x1001 @0xb
0x0ff6…1007 at000c = ╱49╱I╱ // 0x1002 @0xc
0x0ff6…1007 at000d = ╱30╱0╱ // 0x1003 @0xd
0x0ff6…1007 at000e = ╱e3╱-╱ // 0x1004 @0xe
0x0ff6…1007 at000f = ╱45╱E╱ // 0x1005 @0xf
0x0ff6…1007 at0010 = EOL // 0x1006 @0x10
0x0ff6…1007 }
0x1007…100d 9d64 1950 ELSE
0x1007…100d LineComalBin {
0x1007…100d ptr = 0x9d64 // 0x1007 @0x0
0x1007…100d lno = 0x079e // 0x1009 @0x2
0x1007…100d at0004 = ╱9a╱ ELSE ╱ // 0x100b @0x4
0x1007…100d at0005 = EOL // 0x100c @0x5
0x1007…100d }
0x100d…101f 9d76 1960 CURSOR 44,H5+V
0x100d…101f LineComalBin {
0x100d…101f ptr = 0x9d76 // 0x100d @0x0
0x100d…101f lno = 0x07a8 // 0x100f @0x2
0x100d…101f at0004 = ╱a1╱ CURSOR ╱ // 0x1011 @0x4
0x100d…101f at0005 = ╱34╱4╱ // 0x1012 @0x5
0x100d…101f at0006 = ╱34╱4╱ // 0x1013 @0x6
0x100d…101f at0007 = ╱fe0000b006╱ // 0x1014 @0x7
0x100d…101f at000c = ╱ec╱,╱ // 0x1019 @0xc
0x100d…101f at000d = ╱48╱H╱ // 0x101a @0xd
0x100d…101f at000e = ╱35╱5╱ // 0x101b @0xe
0x100d…101f at000f = ╱e2╱+╱ // 0x101c @0xf
0x100d…101f at0010 = ╱56╱V╱ // 0x101d @0x10
0x100d…101f at0011 = EOL // 0x101e @0x11
0x100d…101f }
0x101f…102d 9d84 1970 H3=5
0x101f…102d LineComalBin {
0x101f…102d ptr = 0x9d84 // 0x101f @0x0
0x101f…102d lno = 0x07b2 // 0x1021 @0x2
0x101f…102d at0004 = ╱48╱H╱ // 0x1023 @0x4
0x101f…102d at0005 = ╱33╱3╱ // 0x1024 @0x5
0x101f…102d at0006 = ╱dc╱=╱ // 0x1025 @0x6
0x101f…102d at0007 = ╱35╱5╱ // 0x1026 @0x7
0x101f…102d at0008 = ╱fe0000a003╱ // 0x1027 @0x8
0x101f…102d at000d = EOL // 0x102c @0xd
0x101f…102d }
0x102d…103d 9d94 1980 IF I1=E THEN H3=-E
0x102d…103d LineComalBin {
0x102d…103d ptr = 0x9d94 // 0x102d @0x0
0x102d…103d lno = 0x07bc // 0x102f @0x2
0x102d…103d at0004 = ╱82╱ IF ╱ // 0x1031 @0x4
0x102d…103d at0005 = ╱49╱I╱ // 0x1032 @0x5
0x102d…103d at0006 = ╱31╱1╱ // 0x1033 @0x6
0x102d…103d at0007 = ╱dc╱=╱ // 0x1034 @0x7
0x102d…103d at0008 = ╱45╱E╱ // 0x1035 @0x8
0x102d…103d at0009 = ╱b6╱ THEN ╱ // 0x1036 @0x9
0x102d…103d at000a = ╱48╱H╱ // 0x1037 @0xa
0x102d…103d at000b = ╱33╱3╱ // 0x1038 @0xb
0x102d…103d at000c = ╱dc╱=╱ // 0x1039 @0xc
0x102d…103d at000d = ╱e9╱-╱ // 0x103a @0xd
0x102d…103d at000e = ╱45╱E╱ // 0x103b @0xe
0x102d…103d at000f = EOL // 0x103c @0xf
0x102d…103d }
0x103d…1050 9da7 1990 PRINT USING "######":H16
0x103d…1050 LineComalBin {
0x103d…1050 ptr = 0x9da7 // 0x103d @0x0
0x103d…1050 lno = 0x07c6 // 0x103f @0x2
0x103d…1050 at0004 = ╱92╱ PRINT ╱ // 0x1041 @0x4
0x103d…1050 at0005 = ╱b9╱ USING ╱ // 0x1042 @0x5
0x103d…1050 at0006 = ╱22╱"╱ // 0x1043 @0x6
0x103d…1050 at0007 = ╱23╱#╱ // 0x1044 @0x7
0x103d…1050 at0008 = ╱23╱#╱ // 0x1045 @0x8
0x103d…1050 at0009 = ╱23╱#╱ // 0x1046 @0x9
0x103d…1050 at000a = ╱23╱#╱ // 0x1047 @0xa
0x103d…1050 at000b = ╱23╱#╱ // 0x1048 @0xb
0x103d…1050 at000c = ╱23╱#╱ // 0x1049 @0xc
0x103d…1050 at000d = ╱22╱"╱ // 0x104a @0xd
0x103d…1050 at000e = ╱f0╱:╱ // 0x104b @0xe
0x103d…1050 at000f = ╱48╱H╱ // 0x104c @0xf
0x103d…1050 at0010 = ╱31╱1╱ // 0x104d @0x10
0x103d…1050 at0011 = ╱36╱6╱ // 0x104e @0x11
0x103d…1050 at0012 = EOL // 0x104f @0x12
0x103d…1050 }
0x1050…1056 9dad 2000 ENDIF
0x1050…1056 LineComalBin {
0x1050…1056 ptr = 0x9dad // 0x1050 @0x0
0x1050…1056 lno = 0x07d0 // 0x1052 @0x2
0x1050…1056 at0004 = ╱9b╱ ENDIF ╱ // 0x1054 @0x4
0x1050…1056 at0005 = EOL // 0x1055 @0x5
0x1050…1056 }
0x1056…1063 9dba 2010 WHEN 5
0x1056…1063 LineComalBin {
0x1056…1063 ptr = 0x9dba // 0x1056 @0x0
0x1056…1063 lno = 0x07da // 0x1058 @0x2
0x1056…1063 at0004 = ╱a301╱ WHEN ╱ // 0x105a @0x4
0x1056…1063 at0006 = ╱35╱5╱ // 0x105c @0x6
0x1056…1063 at0007 = ╱fe0000a003╱ // 0x105d @0x7
0x1056…1063 at000c = EOL // 0x1062 @0xc
0x1056…1063 }
0x1063…1069 9dc0 2020 REPEAT
0x1063…1069 LineComalBin {
0x1063…1069 ptr = 0x9dc0 // 0x1063 @0x0
0x1063…1069 lno = 0x07e4 // 0x1065 @0x2
0x1063…1069 at0004 = ╱97╱ REPEAT ╱ // 0x1067 @0x4
0x1063…1069 at0005 = EOL // 0x1068 @0x5
0x1063…1069 }
0x1069…106f 9dc6 2030 REPEAT
0x1069…106f LineComalBin {
0x1069…106f ptr = 0x9dc6 // 0x1069 @0x0
0x1069…106f lno = 0x07ee // 0x106b @0x2
0x1069…106f at0004 = ╱97╱ REPEAT ╱ // 0x106d @0x4
0x1069…106f at0005 = EOL // 0x106e @0x5
0x1069…106f }
0x106f…1075 9dcc 2040 REPEAT
0x106f…1075 LineComalBin {
0x106f…1075 ptr = 0x9dcc // 0x106f @0x0
0x106f…1075 lno = 0x07f8 // 0x1071 @0x2
0x106f…1075 at0004 = ╱97╱ REPEAT ╱ // 0x1073 @0x4
0x106f…1075 at0005 = EOL // 0x1074 @0x5
0x106f…1075 }
0x1075…1084 9ddb 2050 CURSOR V,23
0x1075…1084 LineComalBin {
0x1075…1084 ptr = 0x9ddb // 0x1075 @0x0
0x1075…1084 lno = 0x0802 // 0x1077 @0x2
0x1075…1084 at0004 = ╱a1╱ CURSOR ╱ // 0x1079 @0x4
0x1075…1084 at0005 = ╱56╱V╱ // 0x107a @0x5
0x1075…1084 at0006 = ╱ec╱,╱ // 0x107b @0x6
0x1075…1084 at0007 = ╱32╱2╱ // 0x107c @0x7
0x1075…1084 at0008 = ╱33╱3╱ // 0x107d @0x8
0x1075…1084 at0009 = ╱fe0000b805╱ // 0x107e @0x9
0x1075…1084 at000e = EOL // 0x1083 @0xe
0x1075…1084 }
0x1084…10cd 9e24 2060 PRINT "Beløb";B7$(E:14);"(Kredit indtastes med efterstillet minus)";
0x1084…10cd LineComalBin {
0x1084…10cd ptr = 0x9e24 // 0x1084 @0x0
0x1084…10cd lno = 0x080c // 0x1086 @0x2
0x1084…10cd at0004 = ╱92╱ PRINT ╱ // 0x1088 @0x4
0x1084…10cd at0005 = ╱22╱"╱ // 0x1089 @0x5
0x1084…10cd at0006 = ╱42╱B╱ // 0x108a @0x6
0x1084…10cd at0007 = ╱65╱e╱ // 0x108b @0x7
0x1084…10cd at0008 = ╱6c╱l╱ // 0x108c @0x8
0x1084…10cd at0009 = ╱7c╱ø╱ // 0x108d @0x9
0x1084…10cd at000a = ╱62╱b╱ // 0x108e @0xa
0x1084…10cd at000b = ╱22╱"╱ // 0x108f @0xb
0x1084…10cd at000c = ╱eb╱;╱ // 0x1090 @0xc
0x1084…10cd at000d = ╱42╱B╱ // 0x1091 @0xd
0x1084…10cd at000e = ╱37╱7╱ // 0x1092 @0xe
0x1084…10cd at000f = ╱ef╱$╱ // 0x1093 @0xf
0x1084…10cd at0010 = ╱ed╱(╱ // 0x1094 @0x10
0x1084…10cd at0011 = ╱45╱E╱ // 0x1095 @0x11
0x1084…10cd at0012 = ╱f0╱:╱ // 0x1096 @0x12
0x1084…10cd at0013 = ╱31╱1╱ // 0x1097 @0x13
0x1084…10cd at0014 = ╱34╱4╱ // 0x1098 @0x14
0x1084…10cd at0015 = ╱fe0000e004╱ // 0x1099 @0x15
0x1084…10cd at001a = ╱ee╱)╱ // 0x109e @0x1a
0x1084…10cd at001b = ╱eb╱;╱ // 0x109f @0x1b
0x1084…10cd at001c = ╱22╱"╱ // 0x10a0 @0x1c
0x1084…10cd at001d = ╱28╱(╱ // 0x10a1 @0x1d
0x1084…10cd at001e = ╱4b╱K╱ // 0x10a2 @0x1e
0x1084…10cd at001f = ╱72╱r╱ // 0x10a3 @0x1f
0x1084…10cd at0020 = ╱65╱e╱ // 0x10a4 @0x20
0x1084…10cd at0021 = ╱64╱d╱ // 0x10a5 @0x21
0x1084…10cd at0022 = ╱69╱i╱ // 0x10a6 @0x22
0x1084…10cd at0023 = ╱74╱t╱ // 0x10a7 @0x23
0x1084…10cd at0024 = ╱20╱…╱ // 0x10a8 @0x24
0x1084…10cd at0025 = ╱69╱i╱ // 0x10a9 @0x25
0x1084…10cd at0026 = ╱6e╱n╱ // 0x10aa @0x26
0x1084…10cd at0027 = ╱64╱d╱ // 0x10ab @0x27
0x1084…10cd at0028 = ╱74╱t╱ // 0x10ac @0x28
0x1084…10cd at0029 = ╱61╱a╱ // 0x10ad @0x29
0x1084…10cd at002a = ╱73╱s╱ // 0x10ae @0x2a
0x1084…10cd at002b = ╱74╱t╱ // 0x10af @0x2b
0x1084…10cd at002c = ╱65╱e╱ // 0x10b0 @0x2c
0x1084…10cd at002d = ╱73╱s╱ // 0x10b1 @0x2d
0x1084…10cd at002e = ╱20╱…╱ // 0x10b2 @0x2e
0x1084…10cd at002f = ╱6d╱m╱ // 0x10b3 @0x2f
0x1084…10cd at0030 = ╱65╱e╱ // 0x10b4 @0x30
0x1084…10cd at0031 = ╱64╱d╱ // 0x10b5 @0x31
0x1084…10cd at0032 = ╱20╱…╱ // 0x10b6 @0x32
0x1084…10cd at0033 = ╱65╱e╱ // 0x10b7 @0x33
0x1084…10cd at0034 = ╱66╱f╱ // 0x10b8 @0x34
0x1084…10cd at0035 = ╱74╱t╱ // 0x10b9 @0x35
0x1084…10cd at0036 = ╱65╱e╱ // 0x10ba @0x36
0x1084…10cd at0037 = ╱72╱r╱ // 0x10bb @0x37
0x1084…10cd at0038 = ╱73╱s╱ // 0x10bc @0x38
0x1084…10cd at0039 = ╱74╱t╱ // 0x10bd @0x39
0x1084…10cd at003a = ╱69╱i╱ // 0x10be @0x3a
0x1084…10cd at003b = ╱6c╱l╱ // 0x10bf @0x3b
0x1084…10cd at003c = ╱6c╱l╱ // 0x10c0 @0x3c
0x1084…10cd at003d = ╱65╱e╱ // 0x10c1 @0x3d
0x1084…10cd at003e = ╱74╱t╱ // 0x10c2 @0x3e
0x1084…10cd at003f = ╱20╱…╱ // 0x10c3 @0x3f
0x1084…10cd at0040 = ╱6d╱m╱ // 0x10c4 @0x40
0x1084…10cd at0041 = ╱69╱i╱ // 0x10c5 @0x41
0x1084…10cd at0042 = ╱6e╱n╱ // 0x10c6 @0x42
0x1084…10cd at0043 = ╱75╱u╱ // 0x10c7 @0x43
0x1084…10cd at0044 = ╱73╱s╱ // 0x10c8 @0x44
0x1084…10cd at0045 = ╱29╱)╱ // 0x10c9 @0x45
0x1084…10cd at0046 = ╱22╱"╱ // 0x10ca @0x46
0x1084…10cd at0047 = ╱eb╱;╱ // 0x10cb @0x47
0x1084…10cd at0048 = EOL // 0x10cc @0x48
0x1084…10cd }
0x10cd…10e1 9e38 2070 PRINT B7$(E:17)
0x10cd…10e1 LineComalBin {
0x10cd…10e1 ptr = 0x9e38 // 0x10cd @0x0
0x10cd…10e1 lno = 0x0816 // 0x10cf @0x2
0x10cd…10e1 at0004 = ╱92╱ PRINT ╱ // 0x10d1 @0x4
0x10cd…10e1 at0005 = ╱42╱B╱ // 0x10d2 @0x5
0x10cd…10e1 at0006 = ╱37╱7╱ // 0x10d3 @0x6
0x10cd…10e1 at0007 = ╱ef╱$╱ // 0x10d4 @0x7
0x10cd…10e1 at0008 = ╱ed╱(╱ // 0x10d5 @0x8
0x10cd…10e1 at0009 = ╱45╱E╱ // 0x10d6 @0x9
0x10cd…10e1 at000a = ╱f0╱:╱ // 0x10d7 @0xa
0x10cd…10e1 at000b = ╱31╱1╱ // 0x10d8 @0xb
0x10cd…10e1 at000c = ╱37╱7╱ // 0x10d9 @0xc
0x10cd…10e1 at000d = ╱fe00008805╱ // 0x10da @0xd
0x10cd…10e1 at0012 = ╱ee╱)╱ // 0x10df @0x12
0x10cd…10e1 at0013 = EOL // 0x10e0 @0x13
0x10cd…10e1 }
0x10e1…10f5 9e4c 2080 CURSOR 8,23
0x10e1…10f5 LineComalBin {
0x10e1…10f5 ptr = 0x9e4c // 0x10e1 @0x0
0x10e1…10f5 lno = 0x0820 // 0x10e3 @0x2
0x10e1…10f5 at0004 = ╱a1╱ CURSOR ╱ // 0x10e5 @0x4
0x10e1…10f5 at0005 = ╱38╱8╱ // 0x10e6 @0x5
0x10e1…10f5 at0006 = ╱fe00008004╱ // 0x10e7 @0x6
0x10e1…10f5 at000b = ╱ec╱,╱ // 0x10ec @0xb
0x10e1…10f5 at000c = ╱32╱2╱ // 0x10ed @0xc
0x10e1…10f5 at000d = ╱33╱3╱ // 0x10ee @0xd
0x10e1…10f5 at000e = ╱fe0000b805╱ // 0x10ef @0xe
0x10e1…10f5 at0013 = EOL // 0x10f4 @0x13
0x10e1…10f5 }
0x10f5…10fe 9e55 2090 INPUT F3$
0x10f5…10fe LineComalBin {
0x10f5…10fe ptr = 0x9e55 // 0x10f5 @0x0
0x10f5…10fe lno = 0x082a // 0x10f7 @0x2
0x10f5…10fe at0004 = ╱91╱ INPUT ╱ // 0x10f9 @0x4
0x10f5…10fe at0005 = ╱46╱F╱ // 0x10fa @0x5
0x10f5…10fe at0006 = ╱33╱3╱ // 0x10fb @0x6
0x10f5…10fe at0007 = ╱ef╱$╱ // 0x10fc @0x7
0x10f5…10fe at0008 = EOL // 0x10fd @0x8
0x10f5…10fe }
0x10fe…110c 9e63 2100 UNTIL LEN(F3$)>B
0x10fe…110c LineComalBin {
0x10fe…110c ptr = 0x9e63 // 0x10fe @0x0
0x10fe…110c lno = 0x0834 // 0x1100 @0x2
0x10fe…110c at0004 = ╱98╱ UNTIL ╱ // 0x1102 @0x4
0x10fe…110c at0005 = ╱cc╱LEN╱ // 0x1103 @0x5
0x10fe…110c at0006 = ╱ed╱(╱ // 0x1104 @0x6
0x10fe…110c at0007 = ╱46╱F╱ // 0x1105 @0x7
0x10fe…110c at0008 = ╱33╱3╱ // 0x1106 @0x8
0x10fe…110c at0009 = ╱ef╱$╱ // 0x1107 @0x9
0x10fe…110c at000a = ╱ee╱)╱ // 0x1108 @0xa
0x10fe…110c at000b = ╱de╱>╱ // 0x1109 @0xb
0x10fe…110c at000c = ╱42╱B╱ // 0x110a @0xc
0x10fe…110c at000d = EOL // 0x110b @0xd
0x10fe…110c }
0x110c…1114 9e6b 2110 EXEC FO
0x110c…1114 LineComalBin {
0x110c…1114 ptr = 0x9e6b // 0x110c @0x0
0x110c…1114 lno = 0x083e // 0x110e @0x2
0x110c…1114 at0004 = ╱9d╱ EXEC ╱ // 0x1110 @0x4
0x110c…1114 at0005 = ╱46╱F╱ // 0x1111 @0x5
0x110c…1114 at0006 = ╱4f╱O╱ // 0x1112 @0x6
0x110c…1114 at0007 = EOL // 0x1113 @0x7
0x110c…1114 }
0x1114…1130 9e87 2120 EXEC CA(6,F3$,B9$,B8$)
0x1114…1130 LineComalBin {
0x1114…1130 ptr = 0x9e87 // 0x1114 @0x0
0x1114…1130 lno = 0x0848 // 0x1116 @0x2
0x1114…1130 at0004 = ╱9d╱ EXEC ╱ // 0x1118 @0x4
0x1114…1130 at0005 = ╱43╱C╱ // 0x1119 @0x5
0x1114…1130 at0006 = ╱41╱A╱ // 0x111a @0x6
0x1114…1130 at0007 = ╱ed╱(╱ // 0x111b @0x7
0x1114…1130 at0008 = ╱36╱6╱ // 0x111c @0x8
0x1114…1130 at0009 = ╱fe0000c003╱ // 0x111d @0x9
0x1114…1130 at000e = ╱ec╱,╱ // 0x1122 @0xe
0x1114…1130 at000f = ╱46╱F╱ // 0x1123 @0xf
0x1114…1130 at0010 = ╱33╱3╱ // 0x1124 @0x10
0x1114…1130 at0011 = ╱ef╱$╱ // 0x1125 @0x11
0x1114…1130 at0012 = ╱ec╱,╱ // 0x1126 @0x12
0x1114…1130 at0013 = ╱42╱B╱ // 0x1127 @0x13
0x1114…1130 at0014 = ╱39╱9╱ // 0x1128 @0x14
0x1114…1130 at0015 = ╱ef╱$╱ // 0x1129 @0x15
0x1114…1130 at0016 = ╱ec╱,╱ // 0x112a @0x16
0x1114…1130 at0017 = ╱42╱B╱ // 0x112b @0x17
0x1114…1130 at0018 = ╱38╱8╱ // 0x112c @0x18
0x1114…1130 at0019 = ╱ef╱$╱ // 0x112d @0x19
0x1114…1130 at001a = ╱ee╱)╱ // 0x112e @0x1a
0x1114…1130 at001b = EOL // 0x112f @0x1b
0x1114…1130 }
0x1130…113c 9e93 2130 UNTIL FLAG=B
0x1130…113c LineComalBin {
0x1130…113c ptr = 0x9e93 // 0x1130 @0x0
0x1130…113c lno = 0x0852 // 0x1132 @0x2
0x1130…113c at0004 = ╱98╱ UNTIL ╱ // 0x1134 @0x4
0x1130…113c at0005 = ╱46╱F╱ // 0x1135 @0x5
0x1130…113c at0006 = ╱4c╱L╱ // 0x1136 @0x6
0x1130…113c at0007 = ╱41╱A╱ // 0x1137 @0x7
0x1130…113c at0008 = ╱47╱G╱ // 0x1138 @0x8
0x1130…113c at0009 = ╱dc╱=╱ // 0x1139 @0x9
0x1130…113c at000a = ╱42╱B╱ // 0x113a @0xa
0x1130…113c at000b = EOL // 0x113b @0xb
0x1130…113c }
0x113c…1158 9eaf 2140 EXEC CA(4,F3$,B9$,B9$)
0x113c…1158 LineComalBin {
0x113c…1158 ptr = 0x9eaf // 0x113c @0x0
0x113c…1158 lno = 0x085c // 0x113e @0x2
0x113c…1158 at0004 = ╱9d╱ EXEC ╱ // 0x1140 @0x4
0x113c…1158 at0005 = ╱43╱C╱ // 0x1141 @0x5
0x113c…1158 at0006 = ╱41╱A╱ // 0x1142 @0x6
0x113c…1158 at0007 = ╱ed╱(╱ // 0x1143 @0x7
0x113c…1158 at0008 = ╱34╱4╱ // 0x1144 @0x8
0x113c…1158 at0009 = ╱fe00008003╱ // 0x1145 @0x9
0x113c…1158 at000e = ╱ec╱,╱ // 0x114a @0xe
0x113c…1158 at000f = ╱46╱F╱ // 0x114b @0xf
0x113c…1158 at0010 = ╱33╱3╱ // 0x114c @0x10
0x113c…1158 at0011 = ╱ef╱$╱ // 0x114d @0x11
0x113c…1158 at0012 = ╱ec╱,╱ // 0x114e @0x12
0x113c…1158 at0013 = ╱42╱B╱ // 0x114f @0x13
0x113c…1158 at0014 = ╱39╱9╱ // 0x1150 @0x14
0x113c…1158 at0015 = ╱ef╱$╱ // 0x1151 @0x15
0x113c…1158 at0016 = ╱ec╱,╱ // 0x1152 @0x16
0x113c…1158 at0017 = ╱42╱B╱ // 0x1153 @0x17
0x113c…1158 at0018 = ╱39╱9╱ // 0x1154 @0x18
0x113c…1158 at0019 = ╱ef╱$╱ // 0x1155 @0x19
0x113c…1158 at001a = ╱ee╱)╱ // 0x1156 @0x1a
0x113c…1158 at001b = EOL // 0x1157 @0x1b
0x113c…1158 }
0x1158…1169 9ec0 2150 UNTIL SI<>B AND FLAG=B
0x1158…1169 LineComalBin {
0x1158…1169 ptr = 0x9ec0 // 0x1158 @0x0
0x1158…1169 lno = 0x0866 // 0x115a @0x2
0x1158…1169 at0004 = ╱98╱ UNTIL ╱ // 0x115c @0x4
0x1158…1169 at0005 = ╱53╱S╱ // 0x115d @0x5
0x1158…1169 at0006 = ╱49╱I╱ // 0x115e @0x6
0x1158…1169 at0007 = ╱e1╱<>╱ // 0x115f @0x7
0x1158…1169 at0008 = ╱42╱B╱ // 0x1160 @0x8
0x1158…1169 at0009 = ╱da╱ AND ╱ // 0x1161 @0x9
0x1158…1169 at000a = ╱46╱F╱ // 0x1162 @0xa
0x1158…1169 at000b = ╱4c╱L╱ // 0x1163 @0xb
0x1158…1169 at000c = ╱41╱A╱ // 0x1164 @0xc
0x1158…1169 at000d = ╱47╱G╱ // 0x1165 @0xd
0x1158…1169 at000e = ╱dc╱=╱ // 0x1166 @0xe
0x1158…1169 at000f = ╱42╱B╱ // 0x1167 @0xf
0x1158…1169 at0010 = EOL // 0x1168 @0x10
0x1158…1169 }
0x1169…117a 9ed1 2160 F4$=F3$;SI=B
0x1169…117a LineComalBin {
0x1169…117a ptr = 0x9ed1 // 0x1169 @0x0
0x1169…117a lno = 0x0870 // 0x116b @0x2
0x1169…117a at0004 = ╱46╱F╱ // 0x116d @0x4
0x1169…117a at0005 = ╱34╱4╱ // 0x116e @0x5
0x1169…117a at0006 = ╱ef╱$╱ // 0x116f @0x6
0x1169…117a at0007 = ╱dc╱=╱ // 0x1170 @0x7
0x1169…117a at0008 = ╱46╱F╱ // 0x1171 @0x8
0x1169…117a at0009 = ╱33╱3╱ // 0x1172 @0x9
0x1169…117a at000a = ╱ef╱$╱ // 0x1173 @0xa
0x1169…117a at000b = ╱eb╱;╱ // 0x1174 @0xb
0x1169…117a at000c = ╱53╱S╱ // 0x1175 @0xc
0x1169…117a at000d = ╱49╱I╱ // 0x1176 @0xd
0x1169…117a at000e = ╱dc╱=╱ // 0x1177 @0xe
0x1169…117a at000f = ╱42╱B╱ // 0x1178 @0xf
0x1169…117a at0010 = EOL // 0x1179 @0x10
0x1169…117a }
0x117a…118a 9ee1 2170 EXEC SL(3)
0x117a…118a LineComalBin {
0x117a…118a ptr = 0x9ee1 // 0x117a @0x0
0x117a…118a lno = 0x087a // 0x117c @0x2
0x117a…118a at0004 = ╱9d╱ EXEC ╱ // 0x117e @0x4
0x117a…118a at0005 = ╱53╱S╱ // 0x117f @0x5
0x117a…118a at0006 = ╱4c╱L╱ // 0x1180 @0x6
0x117a…118a at0007 = ╱ed╱(╱ // 0x1181 @0x7
0x117a…118a at0008 = ╱33╱3╱ // 0x1182 @0x8
0x117a…118a at0009 = ╱fe0000c002╱ // 0x1183 @0x9
0x117a…118a at000e = ╱ee╱)╱ // 0x1188 @0xe
0x117a…118a at000f = EOL // 0x1189 @0xf
0x117a…118a }
0x118a…11a4 9efb 2180 IF F3$(LEN(F3$))="+" THEN SI=E
0x118a…11a4 LineComalBin {
0x118a…11a4 ptr = 0x9efb // 0x118a @0x0
0x118a…11a4 lno = 0x0884 // 0x118c @0x2
0x118a…11a4 at0004 = ╱82╱ IF ╱ // 0x118e @0x4
0x118a…11a4 at0005 = ╱46╱F╱ // 0x118f @0x5
0x118a…11a4 at0006 = ╱33╱3╱ // 0x1190 @0x6
0x118a…11a4 at0007 = ╱ef╱$╱ // 0x1191 @0x7
0x118a…11a4 at0008 = ╱ed╱(╱ // 0x1192 @0x8
0x118a…11a4 at0009 = ╱cc╱LEN╱ // 0x1193 @0x9
0x118a…11a4 at000a = ╱ed╱(╱ // 0x1194 @0xa
0x118a…11a4 at000b = ╱46╱F╱ // 0x1195 @0xb
0x118a…11a4 at000c = ╱33╱3╱ // 0x1196 @0xc
0x118a…11a4 at000d = ╱ef╱$╱ // 0x1197 @0xd
0x118a…11a4 at000e = ╱ee╱)╱ // 0x1198 @0xe
0x118a…11a4 at000f = ╱ee╱)╱ // 0x1199 @0xf
0x118a…11a4 at0010 = ╱dc╱=╱ // 0x119a @0x10
0x118a…11a4 at0011 = ╱22╱"╱ // 0x119b @0x11
0x118a…11a4 at0012 = ╱2b╱+╱ // 0x119c @0x12
0x118a…11a4 at0013 = ╱22╱"╱ // 0x119d @0x13
0x118a…11a4 at0014 = ╱b6╱ THEN ╱ // 0x119e @0x14
0x118a…11a4 at0015 = ╱53╱S╱ // 0x119f @0x15
0x118a…11a4 at0016 = ╱49╱I╱ // 0x11a0 @0x16
0x118a…11a4 at0017 = ╱dc╱=╱ // 0x11a1 @0x17
0x118a…11a4 at0018 = ╱45╱E╱ // 0x11a2 @0x18
0x118a…11a4 at0019 = EOL // 0x11a3 @0x19
0x118a…11a4 }
0x11a4…11c5 9f1c 2190 CURSOR 52+(SI=B)*11,H5+V
0x11a4…11c5 LineComalBin {
0x11a4…11c5 ptr = 0x9f1c // 0x11a4 @0x0
0x11a4…11c5 lno = 0x088e // 0x11a6 @0x2
0x11a4…11c5 at0004 = ╱a1╱ CURSOR ╱ // 0x11a8 @0x4
0x11a4…11c5 at0005 = ╱35╱5╱ // 0x11a9 @0x5
0x11a4…11c5 at0006 = ╱32╱2╱ // 0x11aa @0x6
0x11a4…11c5 at0007 = ╱fe0000d006╱ // 0x11ab @0x7
0x11a4…11c5 at000c = ╱e2╱+╱ // 0x11b0 @0xc
0x11a4…11c5 at000d = ╱ed╱(╱ // 0x11b1 @0xd
0x11a4…11c5 at000e = ╱53╱S╱ // 0x11b2 @0xe
0x11a4…11c5 at000f = ╱49╱I╱ // 0x11b3 @0xf
0x11a4…11c5 at0010 = ╱dc╱=╱ // 0x11b4 @0x10
0x11a4…11c5 at0011 = ╱42╱B╱ // 0x11b5 @0x11
0x11a4…11c5 at0012 = ╱ee╱)╱ // 0x11b6 @0x12
0x11a4…11c5 at0013 = ╱e4╱*╱ // 0x11b7 @0x13
0x11a4…11c5 at0014 = ╱31╱1╱ // 0x11b8 @0x14
0x11a4…11c5 at0015 = ╱31╱1╱ // 0x11b9 @0x15
0x11a4…11c5 at0016 = ╱fe0000b004╱ // 0x11ba @0x16
0x11a4…11c5 at001b = ╱ec╱,╱ // 0x11bf @0x1b
0x11a4…11c5 at001c = ╱48╱H╱ // 0x11c0 @0x1c
0x11a4…11c5 at001d = ╱35╱5╱ // 0x11c1 @0x1d
0x11a4…11c5 at001e = ╱e2╱+╱ // 0x11c2 @0x1e
0x11a4…11c5 at001f = ╱56╱V╱ // 0x11c3 @0x1f
0x11a4…11c5 at0020 = EOL // 0x11c4 @0x20
0x11a4…11c5 }
0x11c5…11e4 9f3b 2200 EXEC TU(F4$,B8$,0,0)
0x11c5…11e4 LineComalBin {
0x11c5…11e4 ptr = 0x9f3b // 0x11c5 @0x0
0x11c5…11e4 lno = 0x0898 // 0x11c7 @0x2
0x11c5…11e4 at0004 = ╱9d╱ EXEC ╱ // 0x11c9 @0x4
0x11c5…11e4 at0005 = ╱54╱T╱ // 0x11ca @0x5
0x11c5…11e4 at0006 = ╱55╱U╱ // 0x11cb @0x6
0x11c5…11e4 at0007 = ╱ed╱(╱ // 0x11cc @0x7
0x11c5…11e4 at0008 = ╱46╱F╱ // 0x11cd @0x8
0x11c5…11e4 at0009 = ╱34╱4╱ // 0x11ce @0x9
0x11c5…11e4 at000a = ╱ef╱$╱ // 0x11cf @0xa
0x11c5…11e4 at000b = ╱ec╱,╱ // 0x11d0 @0xb
0x11c5…11e4 at000c = ╱42╱B╱ // 0x11d1 @0xc
0x11c5…11e4 at000d = ╱38╱8╱ // 0x11d2 @0xd
0x11c5…11e4 at000e = ╱ef╱$╱ // 0x11d3 @0xe
0x11c5…11e4 at000f = ╱ec╱,╱ // 0x11d4 @0xf
0x11c5…11e4 at0010 = ╱30╱0╱ // 0x11d5 @0x10
0x11c5…11e4 at0011 = ╱fe00000000╱ // 0x11d6 @0x11
0x11c5…11e4 at0016 = ╱ec╱,╱ // 0x11db @0x16
0x11c5…11e4 at0017 = ╱30╱0╱ // 0x11dc @0x17
0x11c5…11e4 at0018 = ╱fe00000000╱ // 0x11dd @0x18
0x11c5…11e4 at001d = ╱ee╱)╱ // 0x11e2 @0x1d
0x11c5…11e4 at001e = EOL // 0x11e3 @0x1e
0x11c5…11e4 }
0x11e4…11ed 9f44 2210 PRINT B8$
0x11e4…11ed LineComalBin {
0x11e4…11ed ptr = 0x9f44 // 0x11e4 @0x0
0x11e4…11ed lno = 0x08a2 // 0x11e6 @0x2
0x11e4…11ed at0004 = ╱92╱ PRINT ╱ // 0x11e8 @0x4
0x11e4…11ed at0005 = ╱42╱B╱ // 0x11e9 @0x5
0x11e4…11ed at0006 = ╱38╱8╱ // 0x11ea @0x6
0x11e4…11ed at0007 = ╱ef╱$╱ // 0x11eb @0x7
0x11e4…11ed at0008 = EOL // 0x11ec @0x8
0x11e4…11ed }
0x11ed…11fb 9f52 2220 H3=6
0x11ed…11fb LineComalBin {
0x11ed…11fb ptr = 0x9f52 // 0x11ed @0x0
0x11ed…11fb lno = 0x08ac // 0x11ef @0x2
0x11ed…11fb at0004 = ╱48╱H╱ // 0x11f1 @0x4
0x11ed…11fb at0005 = ╱33╱3╱ // 0x11f2 @0x5
0x11ed…11fb at0006 = ╱dc╱=╱ // 0x11f3 @0x6
0x11ed…11fb at0007 = ╱36╱6╱ // 0x11f4 @0x7
0x11ed…11fb at0008 = ╱fe0000c003╱ // 0x11f5 @0x8
0x11ed…11fb at000d = EOL // 0x11fa @0xd
0x11ed…11fb }
0x11fb…120b 9f62 2230 IF I1=E THEN H3=-E
0x11fb…120b LineComalBin {
0x11fb…120b ptr = 0x9f62 // 0x11fb @0x0
0x11fb…120b lno = 0x08b6 // 0x11fd @0x2
0x11fb…120b at0004 = ╱82╱ IF ╱ // 0x11ff @0x4
0x11fb…120b at0005 = ╱49╱I╱ // 0x1200 @0x5
0x11fb…120b at0006 = ╱31╱1╱ // 0x1201 @0x6
0x11fb…120b at0007 = ╱dc╱=╱ // 0x1202 @0x7
0x11fb…120b at0008 = ╱45╱E╱ // 0x1203 @0x8
0x11fb…120b at0009 = ╱b6╱ THEN ╱ // 0x1204 @0x9
0x11fb…120b at000a = ╱48╱H╱ // 0x1205 @0xa
0x11fb…120b at000b = ╱33╱3╱ // 0x1206 @0xb
0x11fb…120b at000c = ╱dc╱=╱ // 0x1207 @0xc
0x11fb…120b at000d = ╱e9╱-╱ // 0x1208 @0xd
0x11fb…120b at000e = ╱45╱E╱ // 0x1209 @0xe
0x11fb…120b at000f = EOL // 0x120a @0xf
0x11fb…120b }
0x120b…1218 9f6f 2240 WHEN 6
0x120b…1218 LineComalBin {
0x120b…1218 ptr = 0x9f6f // 0x120b @0x0
0x120b…1218 lno = 0x08c0 // 0x120d @0x2
0x120b…1218 at0004 = ╱a301╱ WHEN ╱ // 0x120f @0x4
0x120b…1218 at0006 = ╱36╱6╱ // 0x1211 @0x6
0x120b…1218 at0007 = ╱fe0000c003╱ // 0x1212 @0x7
0x120b…1218 at000c = EOL // 0x1217 @0xc
0x120b…1218 }
0x1218…121e 9f75 2250 REPEAT
0x1218…121e LineComalBin {
0x1218…121e ptr = 0x9f75 // 0x1218 @0x0
0x1218…121e lno = 0x08ca // 0x121a @0x2
0x1218…121e at0004 = ╱97╱ REPEAT ╱ // 0x121c @0x4
0x1218…121e at0005 = EOL // 0x121d @0x5
0x1218…121e }
0x121e…122d 9f84 2260 CURSOR V,23
0x121e…122d LineComalBin {
0x121e…122d ptr = 0x9f84 // 0x121e @0x0
0x121e…122d lno = 0x08d4 // 0x1220 @0x2
0x121e…122d at0004 = ╱a1╱ CURSOR ╱ // 0x1222 @0x4
0x121e…122d at0005 = ╱56╱V╱ // 0x1223 @0x5
0x121e…122d at0006 = ╱ec╱,╱ // 0x1224 @0x6
0x121e…122d at0007 = ╱32╱2╱ // 0x1225 @0x7
0x121e…122d at0008 = ╱33╱3╱ // 0x1226 @0x8
0x121e…122d at0009 = ╱fe0000b805╱ // 0x1227 @0x9
0x121e…122d at000e = EOL // 0x122c @0xe
0x121e…122d }
0x122d…1273 9fca 2270 PRINT "Kode (0:Annullering, 1:Kasse, 2:Bank, 3:Giro)"+B7$(E:30)
0x122d…1273 LineComalBin {
0x122d…1273 ptr = 0x9fca // 0x122d @0x0
0x122d…1273 lno = 0x08de // 0x122f @0x2
0x122d…1273 at0004 = ╱92╱ PRINT ╱ // 0x1231 @0x4
0x122d…1273 at0005 = ╱22╱"╱ // 0x1232 @0x5
0x122d…1273 at0006 = ╱4b╱K╱ // 0x1233 @0x6
0x122d…1273 at0007 = ╱6f╱o╱ // 0x1234 @0x7
0x122d…1273 at0008 = ╱64╱d╱ // 0x1235 @0x8
0x122d…1273 at0009 = ╱65╱e╱ // 0x1236 @0x9
0x122d…1273 at000a = ╱20╱…╱ // 0x1237 @0xa
0x122d…1273 at000b = ╱20╱…╱ // 0x1238 @0xb
0x122d…1273 at000c = ╱20╱…╱ // 0x1239 @0xc
0x122d…1273 at000d = ╱28╱(╱ // 0x123a @0xd
0x122d…1273 at000e = ╱30╱0╱ // 0x123b @0xe
0x122d…1273 at000f = ╱3a╱:╱ // 0x123c @0xf
0x122d…1273 at0010 = ╱41╱A╱ // 0x123d @0x10
0x122d…1273 at0011 = ╱6e╱n╱ // 0x123e @0x11
0x122d…1273 at0012 = ╱6e╱n╱ // 0x123f @0x12
0x122d…1273 at0013 = ╱75╱u╱ // 0x1240 @0x13
0x122d…1273 at0014 = ╱6c╱l╱ // 0x1241 @0x14
0x122d…1273 at0015 = ╱6c╱l╱ // 0x1242 @0x15
0x122d…1273 at0016 = ╱65╱e╱ // 0x1243 @0x16
0x122d…1273 at0017 = ╱72╱r╱ // 0x1244 @0x17
0x122d…1273 at0018 = ╱69╱i╱ // 0x1245 @0x18
0x122d…1273 at0019 = ╱6e╱n╱ // 0x1246 @0x19
0x122d…1273 at001a = ╱67╱g╱ // 0x1247 @0x1a
0x122d…1273 at001b = ╱2c╱,╱ // 0x1248 @0x1b
0x122d…1273 at001c = ╱20╱…╱ // 0x1249 @0x1c
0x122d…1273 at001d = ╱31╱1╱ // 0x124a @0x1d
0x122d…1273 at001e = ╱3a╱:╱ // 0x124b @0x1e
0x122d…1273 at001f = ╱4b╱K╱ // 0x124c @0x1f
0x122d…1273 at0020 = ╱61╱a╱ // 0x124d @0x20
0x122d…1273 at0021 = ╱73╱s╱ // 0x124e @0x21
0x122d…1273 at0022 = ╱73╱s╱ // 0x124f @0x22
0x122d…1273 at0023 = ╱65╱e╱ // 0x1250 @0x23
0x122d…1273 at0024 = ╱2c╱,╱ // 0x1251 @0x24
0x122d…1273 at0025 = ╱20╱…╱ // 0x1252 @0x25
0x122d…1273 at0026 = ╱32╱2╱ // 0x1253 @0x26
0x122d…1273 at0027 = ╱3a╱:╱ // 0x1254 @0x27
0x122d…1273 at0028 = ╱42╱B╱ // 0x1255 @0x28
0x122d…1273 at0029 = ╱61╱a╱ // 0x1256 @0x29
0x122d…1273 at002a = ╱6e╱n╱ // 0x1257 @0x2a
0x122d…1273 at002b = ╱6b╱k╱ // 0x1258 @0x2b
0x122d…1273 at002c = ╱2c╱,╱ // 0x1259 @0x2c
0x122d…1273 at002d = ╱20╱…╱ // 0x125a @0x2d
0x122d…1273 at002e = ╱33╱3╱ // 0x125b @0x2e
0x122d…1273 at002f = ╱3a╱:╱ // 0x125c @0x2f
0x122d…1273 at0030 = ╱47╱G╱ // 0x125d @0x30
0x122d…1273 at0031 = ╱69╱i╱ // 0x125e @0x31
0x122d…1273 at0032 = ╱72╱r╱ // 0x125f @0x32
0x122d…1273 at0033 = ╱6f╱o╱ // 0x1260 @0x33
0x122d…1273 at0034 = ╱29╱)╱ // 0x1261 @0x34
0x122d…1273 at0035 = ╱22╱"╱ // 0x1262 @0x35
0x122d…1273 at0036 = ╱f1╱+╱ // 0x1263 @0x36
0x122d…1273 at0037 = ╱42╱B╱ // 0x1264 @0x37
0x122d…1273 at0038 = ╱37╱7╱ // 0x1265 @0x38
0x122d…1273 at0039 = ╱ef╱$╱ // 0x1266 @0x39
0x122d…1273 at003a = ╱ed╱(╱ // 0x1267 @0x3a
0x122d…1273 at003b = ╱45╱E╱ // 0x1268 @0x3b
0x122d…1273 at003c = ╱f0╱:╱ // 0x1269 @0x3c
0x122d…1273 at003d = ╱33╱3╱ // 0x126a @0x3d
0x122d…1273 at003e = ╱30╱0╱ // 0x126b @0x3e
0x122d…1273 at003f = ╱fe0000f005╱ // 0x126c @0x3f
0x122d…1273 at0044 = ╱ee╱)╱ // 0x1271 @0x44
0x122d…1273 at0045 = EOL // 0x1272 @0x45
0x122d…1273 }
0x1273…1287 9fde 2280 CURSOR 7,23
0x1273…1287 LineComalBin {
0x1273…1287 ptr = 0x9fde // 0x1273 @0x0
0x1273…1287 lno = 0x08e8 // 0x1275 @0x2
0x1273…1287 at0004 = ╱a1╱ CURSOR ╱ // 0x1277 @0x4
0x1273…1287 at0005 = ╱37╱7╱ // 0x1278 @0x5
0x1273…1287 at0006 = ╱fe0000e003╱ // 0x1279 @0x6
0x1273…1287 at000b = ╱ec╱,╱ // 0x127e @0xb
0x1273…1287 at000c = ╱32╱2╱ // 0x127f @0xc
0x1273…1287 at000d = ╱33╱3╱ // 0x1280 @0xd
0x1273…1287 at000e = ╱fe0000b805╱ // 0x1281 @0xe
0x1273…1287 at0013 = EOL // 0x1286 @0x13
0x1273…1287 }
0x1287…1290 9fe7 2290 INPUT D5$
0x1287…1290 LineComalBin {
0x1287…1290 ptr = 0x9fe7 // 0x1287 @0x0
0x1287…1290 lno = 0x08f2 // 0x1289 @0x2
0x1287…1290 at0004 = ╱91╱ INPUT ╱ // 0x128b @0x4
0x1287…1290 at0005 = ╱44╱D╱ // 0x128c @0x5
0x1287…1290 at0006 = ╱35╱5╱ // 0x128d @0x6
0x1287…1290 at0007 = ╱ef╱$╱ // 0x128e @0x7
0x1287…1290 at0008 = EOL // 0x128f @0x8
0x1287…1290 }
0x1290…129d 9ff4 2300 EXEC NR(D5$)
0x1290…129d LineComalBin {
0x1290…129d ptr = 0x9ff4 // 0x1290 @0x0
0x1290…129d lno = 0x08fc // 0x1292 @0x2
0x1290…129d at0004 = ╱9d╱ EXEC ╱ // 0x1294 @0x4
0x1290…129d at0005 = ╱4e╱N╱ // 0x1295 @0x5
0x1290…129d at0006 = ╱52╱R╱ // 0x1296 @0x6
0x1290…129d at0007 = ╱ed╱(╱ // 0x1297 @0x7
0x1290…129d at0008 = ╱44╱D╱ // 0x1298 @0x8
0x1290…129d at0009 = ╱35╱5╱ // 0x1299 @0x9
0x1290…129d at000a = ╱ef╱$╱ // 0x129a @0xa
0x1290…129d at000b = ╱ee╱)╱ // 0x129b @0xb
0x1290…129d at000c = EOL // 0x129c @0xc
0x1290…129d }
0x129d…12bc a013 2310 UNTIL (P>B AND P<4) OR (P=B AND I1<>E)
0x129d…12bc LineComalBin {
0x129d…12bc ptr = 0xa013 // 0x129d @0x0
0x129d…12bc lno = 0x0906 // 0x129f @0x2
0x129d…12bc at0004 = ╱98╱ UNTIL ╱ // 0x12a1 @0x4
0x129d…12bc at0005 = ╱ed╱(╱ // 0x12a2 @0x5
0x129d…12bc at0006 = ╱50╱P╱ // 0x12a3 @0x6
0x129d…12bc at0007 = ╱de╱>╱ // 0x12a4 @0x7
0x129d…12bc at0008 = ╱42╱B╱ // 0x12a5 @0x8
0x129d…12bc at0009 = ╱da╱ AND ╱ // 0x12a6 @0x9
0x129d…12bc at000a = ╱50╱P╱ // 0x12a7 @0xa
0x129d…12bc at000b = ╱dd╱<╱ // 0x12a8 @0xb
0x129d…12bc at000c = ╱34╱4╱ // 0x12a9 @0xc
0x129d…12bc at000d = ╱fe00008003╱ // 0x12aa @0xd
0x129d…12bc at0012 = ╱ee╱)╱ // 0x12af @0x12
0x129d…12bc at0013 = ╱db╱ OR ╱ // 0x12b0 @0x13
0x129d…12bc at0014 = ╱ed╱(╱ // 0x12b1 @0x14
0x129d…12bc at0015 = ╱50╱P╱ // 0x12b2 @0x15
0x129d…12bc at0016 = ╱dc╱=╱ // 0x12b3 @0x16
0x129d…12bc at0017 = ╱42╱B╱ // 0x12b4 @0x17
0x129d…12bc at0018 = ╱da╱ AND ╱ // 0x12b5 @0x18
0x129d…12bc at0019 = ╱49╱I╱ // 0x12b6 @0x19
0x129d…12bc at001a = ╱31╱1╱ // 0x12b7 @0x1a
0x129d…12bc at001b = ╱e1╱<>╱ // 0x12b8 @0x1b
0x129d…12bc at001c = ╱45╱E╱ // 0x12b9 @0x1c
0x129d…12bc at001d = ╱ee╱)╱ // 0x12ba @0x1d
0x129d…12bc at001e = EOL // 0x12bb @0x1e
0x129d…12bc }
0x12bc…12ca a021 2320 H8=P;H3=E
0x12bc…12ca LineComalBin {
0x12bc…12ca ptr = 0xa021 // 0x12bc @0x0
0x12bc…12ca lno = 0x0910 // 0x12be @0x2
0x12bc…12ca at0004 = ╱48╱H╱ // 0x12c0 @0x4
0x12bc…12ca at0005 = ╱38╱8╱ // 0x12c1 @0x5
0x12bc…12ca at0006 = ╱dc╱=╱ // 0x12c2 @0x6
0x12bc…12ca at0007 = ╱50╱P╱ // 0x12c3 @0x7
0x12bc…12ca at0008 = ╱eb╱;╱ // 0x12c4 @0x8
0x12bc…12ca at0009 = ╱48╱H╱ // 0x12c5 @0x9
0x12bc…12ca at000a = ╱33╱3╱ // 0x12c6 @0xa
0x12bc…12ca at000b = ╱dc╱=╱ // 0x12c7 @0xb
0x12bc…12ca at000c = ╱45╱E╱ // 0x12c8 @0xc
0x12bc…12ca at000d = EOL // 0x12c9 @0xd
0x12bc…12ca }
0x12ca…12d5 a02c 2330 IF H8=B THEN
0x12ca…12d5 LineComalBin {
0x12ca…12d5 ptr = 0xa02c // 0x12ca @0x0
0x12ca…12d5 lno = 0x091a // 0x12cc @0x2
0x12ca…12d5 at0004 = ╱9c╱ IF ╱ // 0x12ce @0x4
0x12ca…12d5 at0005 = ╱48╱H╱ // 0x12cf @0x5
0x12ca…12d5 at0006 = ╱38╱8╱ // 0x12d0 @0x6
0x12ca…12d5 at0007 = ╱dc╱=╱ // 0x12d1 @0x7
0x12ca…12d5 at0008 = ╱42╱B╱ // 0x12d2 @0x8
0x12ca…12d5 at0009 = ╱b6╱ THEN ╱ // 0x12d3 @0x9
0x12ca…12d5 at000a = EOL // 0x12d4 @0xa
0x12ca…12d5 }
0x12d5…12e5 a03c 2340 EXEC SL(5)
0x12d5…12e5 LineComalBin {
0x12d5…12e5 ptr = 0xa03c // 0x12d5 @0x0
0x12d5…12e5 lno = 0x0924 // 0x12d7 @0x2
0x12d5…12e5 at0004 = ╱9d╱ EXEC ╱ // 0x12d9 @0x4
0x12d5…12e5 at0005 = ╱53╱S╱ // 0x12da @0x5
0x12d5…12e5 at0006 = ╱4c╱L╱ // 0x12db @0x6
0x12d5…12e5 at0007 = ╱ed╱(╱ // 0x12dc @0x7
0x12d5…12e5 at0008 = ╱35╱5╱ // 0x12dd @0x8
0x12d5…12e5 at0009 = ╱fe0000a003╱ // 0x12de @0x9
0x12d5…12e5 at000e = ╱ee╱)╱ // 0x12e3 @0xe
0x12d5…12e5 at000f = EOL // 0x12e4 @0xf
0x12d5…12e5 }
0x12e5…12f1 a048 2350 I0=I0-E
0x12e5…12f1 LineComalBin {
0x12e5…12f1 ptr = 0xa048 // 0x12e5 @0x0
0x12e5…12f1 lno = 0x092e // 0x12e7 @0x2
0x12e5…12f1 at0004 = ╱49╱I╱ // 0x12e9 @0x4
0x12e5…12f1 at0005 = ╱30╱0╱ // 0x12ea @0x5
0x12e5…12f1 at0006 = ╱dc╱=╱ // 0x12eb @0x6
0x12e5…12f1 at0007 = ╱49╱I╱ // 0x12ec @0x7
0x12e5…12f1 at0008 = ╱30╱0╱ // 0x12ed @0x8
0x12e5…12f1 at0009 = ╱e3╱-╱ // 0x12ee @0x9
0x12e5…12f1 at000a = ╱45╱E╱ // 0x12ef @0xa
0x12e5…12f1 at000b = EOL // 0x12f0 @0xb
0x12e5…12f1 }
0x12f1…12f7 a04e 2360 ELSE
0x12f1…12f7 LineComalBin {
0x12f1…12f7 ptr = 0xa04e // 0x12f1 @0x0
0x12f1…12f7 lno = 0x0938 // 0x12f3 @0x2
0x12f1…12f7 at0004 = ╱9a╱ ELSE ╱ // 0x12f5 @0x4
0x12f1…12f7 at0005 = EOL // 0x12f6 @0x5
0x12f1…12f7 }
0x12f7…1309 a060 2370 CURSOR 77,H5+V
0x12f7…1309 LineComalBin {
0x12f7…1309 ptr = 0xa060 // 0x12f7 @0x0
0x12f7…1309 lno = 0x0942 // 0x12f9 @0x2
0x12f7…1309 at0004 = ╱a1╱ CURSOR ╱ // 0x12fb @0x4
0x12f7…1309 at0005 = ╱37╱7╱ // 0x12fc @0x5
0x12f7…1309 at0006 = ╱37╱7╱ // 0x12fd @0x6
0x12f7…1309 at0007 = ╱fe00009a07╱ // 0x12fe @0x7
0x12f7…1309 at000c = ╱ec╱,╱ // 0x1303 @0xc
0x12f7…1309 at000d = ╱48╱H╱ // 0x1304 @0xd
0x12f7…1309 at000e = ╱35╱5╱ // 0x1305 @0xe
0x12f7…1309 at000f = ╱e2╱+╱ // 0x1306 @0xf
0x12f7…1309 at0010 = ╱56╱V╱ // 0x1307 @0x10
0x12f7…1309 at0011 = EOL // 0x1308 @0x11
0x12f7…1309 }
0x1309…1317 a06e 2380 PRINT USING "##":H8
0x1309…1317 LineComalBin {
0x1309…1317 ptr = 0xa06e // 0x1309 @0x0
0x1309…1317 lno = 0x094c // 0x130b @0x2
0x1309…1317 at0004 = ╱92╱ PRINT ╱ // 0x130d @0x4
0x1309…1317 at0005 = ╱b9╱ USING ╱ // 0x130e @0x5
0x1309…1317 at0006 = ╱22╱"╱ // 0x130f @0x6
0x1309…1317 at0007 = ╱23╱#╱ // 0x1310 @0x7
0x1309…1317 at0008 = ╱23╱#╱ // 0x1311 @0x8
0x1309…1317 at0009 = ╱22╱"╱ // 0x1312 @0x9
0x1309…1317 at000a = ╱f0╱:╱ // 0x1313 @0xa
0x1309…1317 at000b = ╱48╱H╱ // 0x1314 @0xb
0x1309…1317 at000c = ╱38╱8╱ // 0x1315 @0xc
0x1309…1317 at000d = EOL // 0x1316 @0xd
0x1309…1317 }
0x1317…1322 a079 2390 IF I1<>E THEN
0x1317…1322 LineComalBin {
0x1317…1322 ptr = 0xa079 // 0x1317 @0x0
0x1317…1322 lno = 0x0956 // 0x1319 @0x2
0x1317…1322 at0004 = ╱9c╱ IF ╱ // 0x131b @0x4
0x1317…1322 at0005 = ╱49╱I╱ // 0x131c @0x5
0x1317…1322 at0006 = ╱31╱1╱ // 0x131d @0x6
0x1317…1322 at0007 = ╱e1╱<>╱ // 0x131e @0x7
0x1317…1322 at0008 = ╱45╱E╱ // 0x131f @0x8
0x1317…1322 at0009 = ╱b6╱ THEN ╱ // 0x1320 @0x9
0x1317…1322 at000a = EOL // 0x1321 @0xa
0x1317…1322 }
0x1322…1339 a090 2400 EXEC ÆN(0,F4$,H8)
0x1322…1339 LineComalBin {
0x1322…1339 ptr = 0xa090 // 0x1322 @0x0
0x1322…1339 lno = 0x0960 // 0x1324 @0x2
0x1322…1339 at0004 = ╱9d╱ EXEC ╱ // 0x1326 @0x4
0x1322…1339 at0005 = ╱5b╱Æ╱ // 0x1327 @0x5
0x1322…1339 at0006 = ╱4e╱N╱ // 0x1328 @0x6
0x1322…1339 at0007 = ╱ed╱(╱ // 0x1329 @0x7
0x1322…1339 at0008 = ╱30╱0╱ // 0x132a @0x8
0x1322…1339 at0009 = ╱fe00000000╱ // 0x132b @0x9
0x1322…1339 at000e = ╱ec╱,╱ // 0x1330 @0xe
0x1322…1339 at000f = ╱46╱F╱ // 0x1331 @0xf
0x1322…1339 at0010 = ╱34╱4╱ // 0x1332 @0x10
0x1322…1339 at0011 = ╱ef╱$╱ // 0x1333 @0x11
0x1322…1339 at0012 = ╱ec╱,╱ // 0x1334 @0x12
0x1322…1339 at0013 = ╱48╱H╱ // 0x1335 @0x13
0x1322…1339 at0014 = ╱38╱8╱ // 0x1336 @0x14
0x1322…1339 at0015 = ╱ee╱)╱ // 0x1337 @0x15
0x1322…1339 at0016 = EOL // 0x1338 @0x16
0x1322…1339 }
0x1339…134b a0a2 2410 H5=H5+E;I3=I2
0x1339…134b LineComalBin {
0x1339…134b ptr = 0xa0a2 // 0x1339 @0x0
0x1339…134b lno = 0x096a // 0x133b @0x2
0x1339…134b at0004 = ╱48╱H╱ // 0x133d @0x4
0x1339…134b at0005 = ╱35╱5╱ // 0x133e @0x5
0x1339…134b at0006 = ╱dc╱=╱ // 0x133f @0x6
0x1339…134b at0007 = ╱48╱H╱ // 0x1340 @0x7
0x1339…134b at0008 = ╱35╱5╱ // 0x1341 @0x8
0x1339…134b at0009 = ╱e2╱+╱ // 0x1342 @0x9
0x1339…134b at000a = ╱45╱E╱ // 0x1343 @0xa
0x1339…134b at000b = ╱eb╱;╱ // 0x1344 @0xb
0x1339…134b at000c = ╱49╱I╱ // 0x1345 @0xc
0x1339…134b at000d = ╱33╱3╱ // 0x1346 @0xd
0x1339…134b at000e = ╱dc╱=╱ // 0x1347 @0xe
0x1339…134b at000f = ╱49╱I╱ // 0x1348 @0xf
0x1339…134b at0010 = ╱32╱2╱ // 0x1349 @0x10
0x1339…134b at0011 = EOL // 0x134a @0x11
0x1339…134b }
0x134b…1376 a0cd 2420 EXEC GP(D2$,I2,H6,J6,H7,I7,E3$,F4$,H8,H16)
0x134b…1376 LineComalBin {
0x134b…1376 ptr = 0xa0cd // 0x134b @0x0
0x134b…1376 lno = 0x0974 // 0x134d @0x2
0x134b…1376 at0004 = ╱9d╱ EXEC ╱ // 0x134f @0x4
0x134b…1376 at0005 = ╱47╱G╱ // 0x1350 @0x5
0x134b…1376 at0006 = ╱50╱P╱ // 0x1351 @0x6
0x134b…1376 at0007 = ╱ed╱(╱ // 0x1352 @0x7
0x134b…1376 at0008 = ╱44╱D╱ // 0x1353 @0x8
0x134b…1376 at0009 = ╱32╱2╱ // 0x1354 @0x9
0x134b…1376 at000a = ╱ef╱$╱ // 0x1355 @0xa
0x134b…1376 at000b = ╱ec╱,╱ // 0x1356 @0xb
0x134b…1376 at000c = ╱49╱I╱ // 0x1357 @0xc
0x134b…1376 at000d = ╱32╱2╱ // 0x1358 @0xd
0x134b…1376 at000e = ╱ec╱,╱ // 0x1359 @0xe
0x134b…1376 at000f = ╱48╱H╱ // 0x135a @0xf
0x134b…1376 at0010 = ╱36╱6╱ // 0x135b @0x10
0x134b…1376 at0011 = ╱ec╱,╱ // 0x135c @0x11
0x134b…1376 at0012 = ╱4a╱J╱ // 0x135d @0x12
0x134b…1376 at0013 = ╱36╱6╱ // 0x135e @0x13
0x134b…1376 at0014 = ╱ec╱,╱ // 0x135f @0x14
0x134b…1376 at0015 = ╱48╱H╱ // 0x1360 @0x15
0x134b…1376 at0016 = ╱37╱7╱ // 0x1361 @0x16
0x134b…1376 at0017 = ╱ec╱,╱ // 0x1362 @0x17
0x134b…1376 at0018 = ╱49╱I╱ // 0x1363 @0x18
0x134b…1376 at0019 = ╱37╱7╱ // 0x1364 @0x19
0x134b…1376 at001a = ╱ec╱,╱ // 0x1365 @0x1a
0x134b…1376 at001b = ╱45╱E╱ // 0x1366 @0x1b
0x134b…1376 at001c = ╱33╱3╱ // 0x1367 @0x1c
0x134b…1376 at001d = ╱ef╱$╱ // 0x1368 @0x1d
0x134b…1376 at001e = ╱ec╱,╱ // 0x1369 @0x1e
0x134b…1376 at001f = ╱46╱F╱ // 0x136a @0x1f
0x134b…1376 at0020 = ╱34╱4╱ // 0x136b @0x20
0x134b…1376 at0021 = ╱ef╱$╱ // 0x136c @0x21
0x134b…1376 at0022 = ╱ec╱,╱ // 0x136d @0x22
0x134b…1376 at0023 = ╱48╱H╱ // 0x136e @0x23
0x134b…1376 at0024 = ╱38╱8╱ // 0x136f @0x24
0x134b…1376 at0025 = ╱ec╱,╱ // 0x1370 @0x25
0x134b…1376 at0026 = ╱48╱H╱ // 0x1371 @0x26
0x134b…1376 at0027 = ╱31╱1╱ // 0x1372 @0x27
0x134b…1376 at0028 = ╱36╱6╱ // 0x1373 @0x28
0x134b…1376 at0029 = ╱ee╱)╱ // 0x1374 @0x29
0x134b…1376 at002a = EOL // 0x1375 @0x2a
0x134b…1376 }
0x1376…138a a0e1 2430 I2=I2+E;I4=I2-E
0x1376…138a LineComalBin {
0x1376…138a ptr = 0xa0e1 // 0x1376 @0x0
0x1376…138a lno = 0x097e // 0x1378 @0x2
0x1376…138a at0004 = ╱49╱I╱ // 0x137a @0x4
0x1376…138a at0005 = ╱32╱2╱ // 0x137b @0x5
0x1376…138a at0006 = ╱dc╱=╱ // 0x137c @0x6
0x1376…138a at0007 = ╱49╱I╱ // 0x137d @0x7
0x1376…138a at0008 = ╱32╱2╱ // 0x137e @0x8
0x1376…138a at0009 = ╱e2╱+╱ // 0x137f @0x9
0x1376…138a at000a = ╱45╱E╱ // 0x1380 @0xa
0x1376…138a at000b = ╱eb╱;╱ // 0x1381 @0xb
0x1376…138a at000c = ╱49╱I╱ // 0x1382 @0xc
0x1376…138a at000d = ╱34╱4╱ // 0x1383 @0xd
0x1376…138a at000e = ╱dc╱=╱ // 0x1384 @0xe
0x1376…138a at000f = ╱49╱I╱ // 0x1385 @0xf
0x1376…138a at0010 = ╱32╱2╱ // 0x1386 @0x10
0x1376…138a at0011 = ╱e3╱-╱ // 0x1387 @0x11
0x1376…138a at0012 = ╱45╱E╱ // 0x1388 @0x12
0x1376…138a at0013 = EOL // 0x1389 @0x13
0x1376…138a }
0x138a…1390 a0e7 2440 ENDIF
0x138a…1390 LineComalBin {
0x138a…1390 ptr = 0xa0e7 // 0x138a @0x0
0x138a…1390 lno = 0x0988 // 0x138c @0x2
0x138a…1390 at0004 = ╱9b╱ ENDIF ╱ // 0x138e @0x4
0x138a…1390 at0005 = EOL // 0x138f @0x5
0x138a…1390 }
0x1390…1396 a0ed 2450 ENDIF
0x1390…1396 LineComalBin {
0x1390…1396 ptr = 0xa0ed // 0x1390 @0x0
0x1390…1396 lno = 0x0992 // 0x1392 @0x2
0x1390…1396 at0004 = ╱9b╱ ENDIF ╱ // 0x1394 @0x4
0x1390…1396 at0005 = EOL // 0x1395 @0x5
0x1390…1396 }
0x1396…13a6 a0fd 2460 IF I1=E THEN H3=-E
0x1396…13a6 LineComalBin {
0x1396…13a6 ptr = 0xa0fd // 0x1396 @0x0
0x1396…13a6 lno = 0x099c // 0x1398 @0x2
0x1396…13a6 at0004 = ╱82╱ IF ╱ // 0x139a @0x4
0x1396…13a6 at0005 = ╱49╱I╱ // 0x139b @0x5
0x1396…13a6 at0006 = ╱31╱1╱ // 0x139c @0x6
0x1396…13a6 at0007 = ╱dc╱=╱ // 0x139d @0x7
0x1396…13a6 at0008 = ╱45╱E╱ // 0x139e @0x8
0x1396…13a6 at0009 = ╱b6╱ THEN ╱ // 0x139f @0x9
0x1396…13a6 at000a = ╱48╱H╱ // 0x13a0 @0xa
0x1396…13a6 at000b = ╱33╱3╱ // 0x13a1 @0xb
0x1396…13a6 at000c = ╱dc╱=╱ // 0x13a2 @0xc
0x1396…13a6 at000d = ╱e9╱-╱ // 0x13a3 @0xd
0x1396…13a6 at000e = ╱45╱E╱ // 0x13a4 @0xe
0x1396…13a6 at000f = EOL // 0x13a5 @0xf
0x1396…13a6 }
0x13a6…13b3 a10a 2470 WHEN 7
0x13a6…13b3 LineComalBin {
0x13a6…13b3 ptr = 0xa10a // 0x13a6 @0x0
0x13a6…13b3 lno = 0x09a6 // 0x13a8 @0x2
0x13a6…13b3 at0004 = ╱a301╱ WHEN ╱ // 0x13aa @0x4
0x13a6…13b3 at0006 = ╱37╱7╱ // 0x13ac @0x6
0x13a6…13b3 at0007 = ╱fe0000e003╱ // 0x13ad @0x7
0x13a6…13b3 at000c = EOL // 0x13b2 @0xc
0x13a6…13b3 }
0x13b3…13c1 a118 2480 P=-7
0x13b3…13c1 LineComalBin {
0x13b3…13c1 ptr = 0xa118 // 0x13b3 @0x0
0x13b3…13c1 lno = 0x09b0 // 0x13b5 @0x2
0x13b3…13c1 at0004 = ╱50╱P╱ // 0x13b7 @0x4
0x13b3…13c1 at0005 = ╱dc╱=╱ // 0x13b8 @0x5
0x13b3…13c1 at0006 = ╱e9╱-╱ // 0x13b9 @0x6
0x13b3…13c1 at0007 = ╱37╱7╱ // 0x13ba @0x7
0x13b3…13c1 at0008 = ╱fe0000e003╱ // 0x13bb @0x8
0x13b3…13c1 at000d = EOL // 0x13c0 @0xd
0x13b3…13c1 }
0x13c1…13db a132 2490 IF I2+F0(E)+G1(E)+W<S1 THEN
0x13c1…13db LineComalBin {
0x13c1…13db ptr = 0xa132 // 0x13c1 @0x0
0x13c1…13db lno = 0x09ba // 0x13c3 @0x2
0x13c1…13db at0004 = ╱9c╱ IF ╱ // 0x13c5 @0x4
0x13c1…13db at0005 = ╱49╱I╱ // 0x13c6 @0x5
0x13c1…13db at0006 = ╱32╱2╱ // 0x13c7 @0x6
0x13c1…13db at0007 = ╱e2╱+╱ // 0x13c8 @0x7
0x13c1…13db at0008 = ╱46╱F╱ // 0x13c9 @0x8
0x13c1…13db at0009 = ╱30╱0╱ // 0x13ca @0x9
0x13c1…13db at000a = ╱ed╱(╱ // 0x13cb @0xa
0x13c1…13db at000b = ╱45╱E╱ // 0x13cc @0xb
0x13c1…13db at000c = ╱ee╱)╱ // 0x13cd @0xc
0x13c1…13db at000d = ╱e2╱+╱ // 0x13ce @0xd
0x13c1…13db at000e = ╱47╱G╱ // 0x13cf @0xe
0x13c1…13db at000f = ╱31╱1╱ // 0x13d0 @0xf
0x13c1…13db at0010 = ╱ed╱(╱ // 0x13d1 @0x10
0x13c1…13db at0011 = ╱45╱E╱ // 0x13d2 @0x11
0x13c1…13db at0012 = ╱ee╱)╱ // 0x13d3 @0x12
0x13c1…13db at0013 = ╱e2╱+╱ // 0x13d4 @0x13
0x13c1…13db at0014 = ╱57╱W╱ // 0x13d5 @0x14
0x13c1…13db at0015 = ╱dd╱<╱ // 0x13d6 @0x15
0x13c1…13db at0016 = ╱53╱S╱ // 0x13d7 @0x16
0x13c1…13db at0017 = ╱31╱1╱ // 0x13d8 @0x17
0x13c1…13db at0018 = ╱b6╱ THEN ╱ // 0x13d9 @0x18
0x13c1…13db at0019 = EOL // 0x13da @0x19
0x13c1…13db }
0x13db…13e1 a138 2500 REPEAT
0x13db…13e1 LineComalBin {
0x13db…13e1 ptr = 0xa138 // 0x13db @0x0
0x13db…13e1 lno = 0x09c4 // 0x13dd @0x2
0x13db…13e1 at0004 = ╱97╱ REPEAT ╱ // 0x13df @0x4
0x13db…13e1 at0005 = EOL // 0x13e0 @0x5
0x13db…13e1 }
0x13e1…13f0 a147 2510 CURSOR V,23
0x13e1…13f0 LineComalBin {
0x13e1…13f0 ptr = 0xa147 // 0x13e1 @0x0
0x13e1…13f0 lno = 0x09ce // 0x13e3 @0x2
0x13e1…13f0 at0004 = ╱a1╱ CURSOR ╱ // 0x13e5 @0x4
0x13e1…13f0 at0005 = ╱56╱V╱ // 0x13e6 @0x5
0x13e1…13f0 at0006 = ╱ec╱,╱ // 0x13e7 @0x6
0x13e1…13f0 at0007 = ╱32╱2╱ // 0x13e8 @0x7
0x13e1…13f0 at0008 = ╱33╱3╱ // 0x13e9 @0x8
0x13e1…13f0 at0009 = ╱fe0000b805╱ // 0x13ea @0x9
0x13e1…13f0 at000e = EOL // 0x13ef @0xe
0x13e1…13f0 }
0x13f0…141d a174 2520 PRINT "Ønskes afstemning J/N "+B7$(E:54)
0x13f0…141d LineComalBin {
0x13f0…141d ptr = 0xa174 // 0x13f0 @0x0
0x13f0…141d lno = 0x09d8 // 0x13f2 @0x2
0x13f0…141d at0004 = ╱92╱ PRINT ╱ // 0x13f4 @0x4
0x13f0…141d at0005 = ╱22╱"╱ // 0x13f5 @0x5
0x13f0…141d at0006 = ╱5c╱Ø╱ // 0x13f6 @0x6
0x13f0…141d at0007 = ╱6e╱n╱ // 0x13f7 @0x7
0x13f0…141d at0008 = ╱73╱s╱ // 0x13f8 @0x8
0x13f0…141d at0009 = ╱6b╱k╱ // 0x13f9 @0x9
0x13f0…141d at000a = ╱65╱e╱ // 0x13fa @0xa
0x13f0…141d at000b = ╱73╱s╱ // 0x13fb @0xb
0x13f0…141d at000c = ╱20╱…╱ // 0x13fc @0xc
0x13f0…141d at000d = ╱61╱a╱ // 0x13fd @0xd
0x13f0…141d at000e = ╱66╱f╱ // 0x13fe @0xe
0x13f0…141d at000f = ╱73╱s╱ // 0x13ff @0xf
0x13f0…141d at0010 = ╱74╱t╱ // 0x1400 @0x10
0x13f0…141d at0011 = ╱65╱e╱ // 0x1401 @0x11
0x13f0…141d at0012 = ╱6d╱m╱ // 0x1402 @0x12
0x13f0…141d at0013 = ╱6e╱n╱ // 0x1403 @0x13
0x13f0…141d at0014 = ╱69╱i╱ // 0x1404 @0x14
0x13f0…141d at0015 = ╱6e╱n╱ // 0x1405 @0x15
0x13f0…141d at0016 = ╱67╱g╱ // 0x1406 @0x16
0x13f0…141d at0017 = ╱20╱…╱ // 0x1407 @0x17
0x13f0…141d at0018 = ╱4a╱J╱ // 0x1408 @0x18
0x13f0…141d at0019 = ╱2f╱/╱ // 0x1409 @0x19
0x13f0…141d at001a = ╱4e╱N╱ // 0x140a @0x1a
0x13f0…141d at001b = ╱20╱…╱ // 0x140b @0x1b
0x13f0…141d at001c = ╱22╱"╱ // 0x140c @0x1c
0x13f0…141d at001d = ╱f1╱+╱ // 0x140d @0x1d
0x13f0…141d at001e = ╱42╱B╱ // 0x140e @0x1e
0x13f0…141d at001f = ╱37╱7╱ // 0x140f @0x1f
0x13f0…141d at0020 = ╱ef╱$╱ // 0x1410 @0x20
0x13f0…141d at0021 = ╱ed╱(╱ // 0x1411 @0x21
0x13f0…141d at0022 = ╱45╱E╱ // 0x1412 @0x22
0x13f0…141d at0023 = ╱f0╱:╱ // 0x1413 @0x23
0x13f0…141d at0024 = ╱35╱5╱ // 0x1414 @0x24
0x13f0…141d at0025 = ╱34╱4╱ // 0x1415 @0x25
0x13f0…141d at0026 = ╱fe0000d806╱ // 0x1416 @0x26
0x13f0…141d at002b = ╱ee╱)╱ // 0x141b @0x2b
0x13f0…141d at002c = EOL // 0x141c @0x2c
0x13f0…141d }
0x141d…1432 a189 2530 CURSOR 25,23
0x141d…1432 LineComalBin {
0x141d…1432 ptr = 0xa189 // 0x141d @0x0
0x141d…1432 lno = 0x09e2 // 0x141f @0x2
0x141d…1432 at0004 = ╱a1╱ CURSOR ╱ // 0x1421 @0x4
0x141d…1432 at0005 = ╱32╱2╱ // 0x1422 @0x5
0x141d…1432 at0006 = ╱35╱5╱ // 0x1423 @0x6
0x141d…1432 at0007 = ╱fe0000c805╱ // 0x1424 @0x7
0x141d…1432 at000c = ╱ec╱,╱ // 0x1429 @0xc
0x141d…1432 at000d = ╱32╱2╱ // 0x142a @0xd
0x141d…1432 at000e = ╱33╱3╱ // 0x142b @0xe
0x141d…1432 at000f = ╱fe0000b805╱ // 0x142c @0xf
0x141d…1432 at0014 = EOL // 0x1431 @0x14
0x141d…1432 }
0x1432…143a a191 2540 INPUT A$
0x1432…143a LineComalBin {
0x1432…143a ptr = 0xa191 // 0x1432 @0x0
0x1432…143a lno = 0x09ec // 0x1434 @0x2
0x1432…143a at0004 = ╱91╱ INPUT ╱ // 0x1436 @0x4
0x1432…143a at0005 = ╱41╱A╱ // 0x1437 @0x5
0x1432…143a at0006 = ╱ef╱$╱ // 0x1438 @0x6
0x1432…143a at0007 = EOL // 0x1439 @0x7
0x1432…143a }
0x143a…1446 a19d 2550 EXEC NR(A$)
0x143a…1446 LineComalBin {
0x143a…1446 ptr = 0xa19d // 0x143a @0x0
0x143a…1446 lno = 0x09f6 // 0x143c @0x2
0x143a…1446 at0004 = ╱9d╱ EXEC ╱ // 0x143e @0x4
0x143a…1446 at0005 = ╱4e╱N╱ // 0x143f @0x5
0x143a…1446 at0006 = ╱52╱R╱ // 0x1440 @0x6
0x143a…1446 at0007 = ╱ed╱(╱ // 0x1441 @0x7
0x143a…1446 at0008 = ╱41╱A╱ // 0x1442 @0x8
0x143a…1446 at0009 = ╱ef╱$╱ // 0x1443 @0x9
0x143a…1446 at000a = ╱ee╱)╱ // 0x1444 @0xa
0x143a…1446 at000b = EOL // 0x1445 @0xb
0x143a…1446 }
0x1446…145f a1b6 2560 UNTIL P=-7 OR P=-8
0x1446…145f LineComalBin {
0x1446…145f ptr = 0xa1b6 // 0x1446 @0x0
0x1446…145f lno = 0x0a00 // 0x1448 @0x2
0x1446…145f at0004 = ╱98╱ UNTIL ╱ // 0x144a @0x4
0x1446…145f at0005 = ╱50╱P╱ // 0x144b @0x5
0x1446…145f at0006 = ╱dc╱=╱ // 0x144c @0x6
0x1446…145f at0007 = ╱e9╱-╱ // 0x144d @0x7
0x1446…145f at0008 = ╱37╱7╱ // 0x144e @0x8
0x1446…145f at0009 = ╱fe0000e003╱ // 0x144f @0x9
0x1446…145f at000e = ╱db╱ OR ╱ // 0x1454 @0xe
0x1446…145f at000f = ╱50╱P╱ // 0x1455 @0xf
0x1446…145f at0010 = ╱dc╱=╱ // 0x1456 @0x10
0x1446…145f at0011 = ╱e9╱-╱ // 0x1457 @0x11
0x1446…145f at0012 = ╱38╱8╱ // 0x1458 @0x12
0x1446…145f at0013 = ╱fe00008004╱ // 0x1459 @0x13
0x1446…145f at0018 = EOL // 0x145e @0x18
0x1446…145f }
0x145f…1465 a1bc 2570 ENDIF
0x145f…1465 LineComalBin {
0x145f…1465 ptr = 0xa1bc // 0x145f @0x0
0x145f…1465 lno = 0x0a0a // 0x1461 @0x2
0x145f…1465 at0004 = ╱9b╱ ENDIF ╱ // 0x1463 @0x4
0x145f…1465 at0005 = EOL // 0x1464 @0x5
0x145f…1465 }
0x1465…146d a1c4 2580 EXEC SY
0x1465…146d LineComalBin {
0x1465…146d ptr = 0xa1c4 // 0x1465 @0x0
0x1465…146d lno = 0x0a14 // 0x1467 @0x2
0x1465…146d at0004 = ╱9d╱ EXEC ╱ // 0x1469 @0x4
0x1465…146d at0005 = ╱53╱S╱ // 0x146a @0x5
0x1465…146d at0006 = ╱59╱Y╱ // 0x146b @0x6
0x1465…146d at0007 = EOL // 0x146c @0x7
0x1465…146d }
0x146d…1476 a1cd 2590 J4=E
0x146d…1476 LineComalBin {
0x146d…1476 ptr = 0xa1cd // 0x146d @0x0
0x146d…1476 lno = 0x0a1e // 0x146f @0x2
0x146d…1476 at0004 = ╱4a╱J╱ // 0x1471 @0x4
0x146d…1476 at0005 = ╱34╱4╱ // 0x1472 @0x5
0x146d…1476 at0006 = ╱dc╱=╱ // 0x1473 @0x6
0x146d…1476 at0007 = ╱45╱E╱ // 0x1474 @0x7
0x146d…1476 at0008 = EOL // 0x1475 @0x8
0x146d…1476 }
0x1476…1486 a1dd 2600 IF P=-7 THEN
0x1476…1486 LineComalBin {
0x1476…1486 ptr = 0xa1dd // 0x1476 @0x0
0x1476…1486 lno = 0x0a28 // 0x1478 @0x2
0x1476…1486 at0004 = ╱9c╱ IF ╱ // 0x147a @0x4
0x1476…1486 at0005 = ╱50╱P╱ // 0x147b @0x5
0x1476…1486 at0006 = ╱dc╱=╱ // 0x147c @0x6
0x1476…1486 at0007 = ╱e9╱-╱ // 0x147d @0x7
0x1476…1486 at0008 = ╱37╱7╱ // 0x147e @0x8
0x1476…1486 at0009 = ╱fe0000e003╱ // 0x147f @0x9
0x1476…1486 at000e = ╱b6╱ THEN ╱ // 0x1484 @0xe
0x1476…1486 at000f = EOL // 0x1485 @0xf
0x1476…1486 }
0x1486…148f a1e6 2610 J4=B
0x1486…148f LineComalBin {
0x1486…148f ptr = 0xa1e6 // 0x1486 @0x0
0x1486…148f lno = 0x0a32 // 0x1488 @0x2
0x1486…148f at0004 = ╱4a╱J╱ // 0x148a @0x4
0x1486…148f at0005 = ╱34╱4╱ // 0x148b @0x5
0x1486…148f at0006 = ╱dc╱=╱ // 0x148c @0x6
0x1486…148f at0007 = ╱42╱B╱ // 0x148d @0x7
0x1486…148f at0008 = EOL // 0x148e @0x8
0x1486…148f }
0x148f…149f a1f6 2620 FOR I=E TO 6
0x148f…149f LineComalBin {
0x148f…149f ptr = 0xa1f6 // 0x148f @0x0
0x148f…149f lno = 0x0a3c // 0x1491 @0x2
0x148f…149f at0004 = ╱83╱ FOR ╱ // 0x1493 @0x4
0x148f…149f at0005 = ╱49╱I╱ // 0x1494 @0x5
0x148f…149f at0006 = ╱dc╱=╱ // 0x1495 @0x6
0x148f…149f at0007 = ╱45╱E╱ // 0x1496 @0x7
0x148f…149f at0008 = ╱b7╱ TO ╱ // 0x1497 @0x8
0x148f…149f at0009 = ╱36╱6╱ // 0x1498 @0x9
0x148f…149f at000a = ╱fe0000c003╱ // 0x1499 @0xa
0x148f…149f at000f = EOL // 0x149e @0xf
0x148f…149f }
0x149f…14a5 a1fc 2630 REPEAT
0x149f…14a5 LineComalBin {
0x149f…14a5 ptr = 0xa1fc // 0x149f @0x0
0x149f…14a5 lno = 0x0a46 // 0x14a1 @0x2
0x149f…14a5 at0004 = ╱97╱ REPEAT ╱ // 0x14a3 @0x4
0x149f…14a5 at0005 = EOL // 0x14a4 @0x5
0x149f…14a5 }
0x14a5…14ab a202 2640 REPEAT
0x14a5…14ab LineComalBin {
0x14a5…14ab ptr = 0xa202 // 0x14a5 @0x0
0x14a5…14ab lno = 0x0a50 // 0x14a7 @0x2
0x14a5…14ab at0004 = ╱97╱ REPEAT ╱ // 0x14a9 @0x4
0x14a5…14ab at0005 = EOL // 0x14aa @0x5
0x14a5…14ab }
0x14ab…14ba a211 2650 CURSOR V,23
0x14ab…14ba LineComalBin {
0x14ab…14ba ptr = 0xa211 // 0x14ab @0x0
0x14ab…14ba lno = 0x0a5a // 0x14ad @0x2
0x14ab…14ba at0004 = ╱a1╱ CURSOR ╱ // 0x14af @0x4
0x14ab…14ba at0005 = ╱56╱V╱ // 0x14b0 @0x5
0x14ab…14ba at0006 = ╱ec╱,╱ // 0x14b1 @0x6
0x14ab…14ba at0007 = ╱32╱2╱ // 0x14b2 @0x7
0x14ab…14ba at0008 = ╱33╱3╱ // 0x14b3 @0x8
0x14ab…14ba at0009 = ╱fe0000b805╱ // 0x14b4 @0x9
0x14ab…14ba at000e = EOL // 0x14b9 @0xe
0x14ab…14ba }
0x14ba…14d5 a22c 2660 PRINT J5$(I);B7$(E:60)
0x14ba…14d5 LineComalBin {
0x14ba…14d5 ptr = 0xa22c // 0x14ba @0x0
0x14ba…14d5 lno = 0x0a64 // 0x14bc @0x2
0x14ba…14d5 at0004 = ╱92╱ PRINT ╱ // 0x14be @0x4
0x14ba…14d5 at0005 = ╱4a╱J╱ // 0x14bf @0x5
0x14ba…14d5 at0006 = ╱35╱5╱ // 0x14c0 @0x6
0x14ba…14d5 at0007 = ╱ef╱$╱ // 0x14c1 @0x7
0x14ba…14d5 at0008 = ╱ed╱(╱ // 0x14c2 @0x8
0x14ba…14d5 at0009 = ╱49╱I╱ // 0x14c3 @0x9
0x14ba…14d5 at000a = ╱ee╱)╱ // 0x14c4 @0xa
0x14ba…14d5 at000b = ╱eb╱;╱ // 0x14c5 @0xb
0x14ba…14d5 at000c = ╱42╱B╱ // 0x14c6 @0xc
0x14ba…14d5 at000d = ╱37╱7╱ // 0x14c7 @0xd
0x14ba…14d5 at000e = ╱ef╱$╱ // 0x14c8 @0xe
0x14ba…14d5 at000f = ╱ed╱(╱ // 0x14c9 @0xf
0x14ba…14d5 at0010 = ╱45╱E╱ // 0x14ca @0x10
0x14ba…14d5 at0011 = ╱f0╱:╱ // 0x14cb @0x11
0x14ba…14d5 at0012 = ╱36╱6╱ // 0x14cc @0x12
0x14ba…14d5 at0013 = ╱30╱0╱ // 0x14cd @0x13
0x14ba…14d5 at0014 = ╱fe0000f006╱ // 0x14ce @0x14
0x14ba…14d5 at0019 = ╱ee╱)╱ // 0x14d3 @0x19
0x14ba…14d5 at001a = EOL // 0x14d4 @0x1a
0x14ba…14d5 }
0x14d5…14ea a241 2670 CURSOR 17,23
0x14d5…14ea LineComalBin {
0x14d5…14ea ptr = 0xa241 // 0x14d5 @0x0
0x14d5…14ea lno = 0x0a6e // 0x14d7 @0x2
0x14d5…14ea at0004 = ╱a1╱ CURSOR ╱ // 0x14d9 @0x4
0x14d5…14ea at0005 = ╱31╱1╱ // 0x14da @0x5
0x14d5…14ea at0006 = ╱37╱7╱ // 0x14db @0x6
0x14d5…14ea at0007 = ╱fe00008805╱ // 0x14dc @0x7
0x14d5…14ea at000c = ╱ec╱,╱ // 0x14e1 @0xc
0x14d5…14ea at000d = ╱32╱2╱ // 0x14e2 @0xd
0x14d5…14ea at000e = ╱33╱3╱ // 0x14e3 @0xe
0x14d5…14ea at000f = ╱fe0000b805╱ // 0x14e4 @0xf
0x14d5…14ea at0014 = EOL // 0x14e9 @0x14
0x14d5…14ea }
0x14ea…14f3 a24a 2680 INPUT F3$
0x14ea…14f3 LineComalBin {
0x14ea…14f3 ptr = 0xa24a // 0x14ea @0x0
0x14ea…14f3 lno = 0x0a78 // 0x14ec @0x2
0x14ea…14f3 at0004 = ╱91╱ INPUT ╱ // 0x14ee @0x4
0x14ea…14f3 at0005 = ╱46╱F╱ // 0x14ef @0x5
0x14ea…14f3 at0006 = ╱33╱3╱ // 0x14f0 @0x6
0x14ea…14f3 at0007 = ╱ef╱$╱ // 0x14f1 @0x7
0x14ea…14f3 at0008 = EOL // 0x14f2 @0x8
0x14ea…14f3 }
0x14f3…1501 a258 2690 UNTIL LEN(F3$)>B
0x14f3…1501 LineComalBin {
0x14f3…1501 ptr = 0xa258 // 0x14f3 @0x0
0x14f3…1501 lno = 0x0a82 // 0x14f5 @0x2
0x14f3…1501 at0004 = ╱98╱ UNTIL ╱ // 0x14f7 @0x4
0x14f3…1501 at0005 = ╱cc╱LEN╱ // 0x14f8 @0x5
0x14f3…1501 at0006 = ╱ed╱(╱ // 0x14f9 @0x6
0x14f3…1501 at0007 = ╱46╱F╱ // 0x14fa @0x7
0x14f3…1501 at0008 = ╱33╱3╱ // 0x14fb @0x8
0x14f3…1501 at0009 = ╱ef╱$╱ // 0x14fc @0x9
0x14f3…1501 at000a = ╱ee╱)╱ // 0x14fd @0xa
0x14f3…1501 at000b = ╱de╱>╱ // 0x14fe @0xb
0x14f3…1501 at000c = ╱42╱B╱ // 0x14ff @0xc
0x14f3…1501 at000d = EOL // 0x1500 @0xd
0x14f3…1501 }
0x1501…1509 a260 2700 EXEC FO
0x1501…1509 LineComalBin {
0x1501…1509 ptr = 0xa260 // 0x1501 @0x0
0x1501…1509 lno = 0x0a8c // 0x1503 @0x2
0x1501…1509 at0004 = ╱9d╱ EXEC ╱ // 0x1505 @0x4
0x1501…1509 at0005 = ╱46╱F╱ // 0x1506 @0x5
0x1501…1509 at0006 = ╱4f╱O╱ // 0x1507 @0x6
0x1501…1509 at0007 = EOL // 0x1508 @0x7
0x1501…1509 }
0x1509…1525 a27c 2710 EXEC CA(6,F3$,B9$,B8$)
0x1509…1525 LineComalBin {
0x1509…1525 ptr = 0xa27c // 0x1509 @0x0
0x1509…1525 lno = 0x0a96 // 0x150b @0x2
0x1509…1525 at0004 = ╱9d╱ EXEC ╱ // 0x150d @0x4
0x1509…1525 at0005 = ╱43╱C╱ // 0x150e @0x5
0x1509…1525 at0006 = ╱41╱A╱ // 0x150f @0x6
0x1509…1525 at0007 = ╱ed╱(╱ // 0x1510 @0x7
0x1509…1525 at0008 = ╱36╱6╱ // 0x1511 @0x8
0x1509…1525 at0009 = ╱fe0000c003╱ // 0x1512 @0x9
0x1509…1525 at000e = ╱ec╱,╱ // 0x1517 @0xe
0x1509…1525 at000f = ╱46╱F╱ // 0x1518 @0xf
0x1509…1525 at0010 = ╱33╱3╱ // 0x1519 @0x10
0x1509…1525 at0011 = ╱ef╱$╱ // 0x151a @0x11
0x1509…1525 at0012 = ╱ec╱,╱ // 0x151b @0x12
0x1509…1525 at0013 = ╱42╱B╱ // 0x151c @0x13
0x1509…1525 at0014 = ╱39╱9╱ // 0x151d @0x14
0x1509…1525 at0015 = ╱ef╱$╱ // 0x151e @0x15
0x1509…1525 at0016 = ╱ec╱,╱ // 0x151f @0x16
0x1509…1525 at0017 = ╱42╱B╱ // 0x1520 @0x17
0x1509…1525 at0018 = ╱38╱8╱ // 0x1521 @0x18
0x1509…1525 at0019 = ╱ef╱$╱ // 0x1522 @0x19
0x1509…1525 at001a = ╱ee╱)╱ // 0x1523 @0x1a
0x1509…1525 at001b = EOL // 0x1524 @0x1b
0x1509…1525 }
0x1525…1531 a288 2720 UNTIL FLAG=B
0x1525…1531 LineComalBin {
0x1525…1531 ptr = 0xa288 // 0x1525 @0x0
0x1525…1531 lno = 0x0aa0 // 0x1527 @0x2
0x1525…1531 at0004 = ╱98╱ UNTIL ╱ // 0x1529 @0x4
0x1525…1531 at0005 = ╱46╱F╱ // 0x152a @0x5
0x1525…1531 at0006 = ╱4c╱L╱ // 0x152b @0x6
0x1525…1531 at0007 = ╱41╱A╱ // 0x152c @0x7
0x1525…1531 at0008 = ╱47╱G╱ // 0x152d @0x8
0x1525…1531 at0009 = ╱dc╱=╱ // 0x152e @0x9
0x1525…1531 at000a = ╱42╱B╱ // 0x152f @0xa
0x1525…1531 at000b = EOL // 0x1530 @0xb
0x1525…1531 }
0x1531…1540 a297 2730 F9$(I)=F3$
0x1531…1540 LineComalBin {
0x1531…1540 ptr = 0xa297 // 0x1531 @0x0
0x1531…1540 lno = 0x0aaa // 0x1533 @0x2
0x1531…1540 at0004 = ╱46╱F╱ // 0x1535 @0x4
0x1531…1540 at0005 = ╱39╱9╱ // 0x1536 @0x5
0x1531…1540 at0006 = ╱ef╱$╱ // 0x1537 @0x6
0x1531…1540 at0007 = ╱ed╱(╱ // 0x1538 @0x7
0x1531…1540 at0008 = ╱49╱I╱ // 0x1539 @0x8
0x1531…1540 at0009 = ╱ee╱)╱ // 0x153a @0x9
0x1531…1540 at000a = ╱dc╱=╱ // 0x153b @0xa
0x1531…1540 at000b = ╱46╱F╱ // 0x153c @0xb
0x1531…1540 at000c = ╱33╱3╱ // 0x153d @0xc
0x1531…1540 at000d = ╱ef╱$╱ // 0x153e @0xd
0x1531…1540 at000e = EOL // 0x153f @0xe
0x1531…1540 }
0x1540…1566 a2bd 2740 IF I MOD G=B THEN F9$(I)=F3$(E:LEN(F3$)-E)+"-"
0x1540…1566 LineComalBin {
0x1540…1566 ptr = 0xa2bd // 0x1540 @0x0
0x1540…1566 lno = 0x0ab4 // 0x1542 @0x2
0x1540…1566 at0004 = ╱82╱ IF ╱ // 0x1544 @0x4
0x1540…1566 at0005 = ╱49╱I╱ // 0x1545 @0x5
0x1540…1566 at0006 = ╱e8╱ MOD ╱ // 0x1546 @0x6
0x1540…1566 at0007 = ╱47╱G╱ // 0x1547 @0x7
0x1540…1566 at0008 = ╱dc╱=╱ // 0x1548 @0x8
0x1540…1566 at0009 = ╱42╱B╱ // 0x1549 @0x9
0x1540…1566 at000a = ╱b6╱ THEN ╱ // 0x154a @0xa
0x1540…1566 at000b = ╱46╱F╱ // 0x154b @0xb
0x1540…1566 at000c = ╱39╱9╱ // 0x154c @0xc
0x1540…1566 at000d = ╱ef╱$╱ // 0x154d @0xd
0x1540…1566 at000e = ╱ed╱(╱ // 0x154e @0xe
0x1540…1566 at000f = ╱49╱I╱ // 0x154f @0xf
0x1540…1566 at0010 = ╱ee╱)╱ // 0x1550 @0x10
0x1540…1566 at0011 = ╱dc╱=╱ // 0x1551 @0x11
0x1540…1566 at0012 = ╱46╱F╱ // 0x1552 @0x12
0x1540…1566 at0013 = ╱33╱3╱ // 0x1553 @0x13
0x1540…1566 at0014 = ╱ef╱$╱ // 0x1554 @0x14
0x1540…1566 at0015 = ╱ed╱(╱ // 0x1555 @0x15
0x1540…1566 at0016 = ╱45╱E╱ // 0x1556 @0x16
0x1540…1566 at0017 = ╱f0╱:╱ // 0x1557 @0x17
0x1540…1566 at0018 = ╱cc╱LEN╱ // 0x1558 @0x18
0x1540…1566 at0019 = ╱ed╱(╱ // 0x1559 @0x19
0x1540…1566 at001a = ╱46╱F╱ // 0x155a @0x1a
0x1540…1566 at001b = ╱33╱3╱ // 0x155b @0x1b
0x1540…1566 at001c = ╱ef╱$╱ // 0x155c @0x1c
0x1540…1566 at001d = ╱ee╱)╱ // 0x155d @0x1d
0x1540…1566 at001e = ╱e3╱-╱ // 0x155e @0x1e
0x1540…1566 at001f = ╱45╱E╱ // 0x155f @0x1f
0x1540…1566 at0020 = ╱ee╱)╱ // 0x1560 @0x20
0x1540…1566 at0021 = ╱f1╱+╱ // 0x1561 @0x21
0x1540…1566 at0022 = ╱22╱"╱ // 0x1562 @0x22
0x1540…1566 at0023 = ╱2d╱-╱ // 0x1563 @0x23
0x1540…1566 at0024 = ╱22╱"╱ // 0x1564 @0x24
0x1540…1566 at0025 = EOL // 0x1565 @0x25
0x1540…1566 }
0x1566…156d a2c4 2750 NEXT I
0x1566…156d LineComalBin {
0x1566…156d ptr = 0xa2c4 // 0x1566 @0x0
0x1566…156d lno = 0x0abe // 0x1568 @0x2
0x1566…156d at0004 = ╱84╱ NEXT ╱ // 0x156a @0x4
0x1566…156d at0005 = ╱49╱I╱ // 0x156b @0x5
0x1566…156d at0006 = EOL // 0x156c @0x6
0x1566…156d }
0x156d…1573 a2ca 2760 ENDIF
0x156d…1573 LineComalBin {
0x156d…1573 ptr = 0xa2ca // 0x156d @0x0
0x156d…1573 lno = 0x0ac8 // 0x156f @0x2
0x156d…1573 at0004 = ╱9b╱ ENDIF ╱ // 0x1571 @0x4
0x156d…1573 at0005 = EOL // 0x1572 @0x5
0x156d…1573 }
0x1573…157d a2d4 2770 H3=-E
0x1573…157d LineComalBin {
0x1573…157d ptr = 0xa2d4 // 0x1573 @0x0
0x1573…157d lno = 0x0ad2 // 0x1575 @0x2
0x1573…157d at0004 = ╱48╱H╱ // 0x1577 @0x4
0x1573…157d at0005 = ╱33╱3╱ // 0x1578 @0x5
0x1573…157d at0006 = ╱dc╱=╱ // 0x1579 @0x6
0x1573…157d at0007 = ╱e9╱-╱ // 0x157a @0x7
0x1573…157d at0008 = ╱45╱E╱ // 0x157b @0x8
0x1573…157d at0009 = EOL // 0x157c @0x9
0x1573…157d }
0x157d…1583 a2da 2780 ENDCASE
0x157d…1583 LineComalBin {
0x157d…1583 ptr = 0xa2da // 0x157d @0x0
0x157d…1583 lno = 0x0adc // 0x157f @0x2
0x157d…1583 at0004 = ╱a4╱ ENDCASE ╱ // 0x1581 @0x4
0x157d…1583 at0005 = EOL // 0x1582 @0x5
0x157d…1583 }
0x1583…158e a2e5 2790 UNTIL H3=-E
0x1583…158e LineComalBin {
0x1583…158e ptr = 0xa2e5 // 0x1583 @0x0
0x1583…158e lno = 0x0ae6 // 0x1585 @0x2
0x1583…158e at0004 = ╱98╱ UNTIL ╱ // 0x1587 @0x4
0x1583…158e at0005 = ╱48╱H╱ // 0x1588 @0x5
0x1583…158e at0006 = ╱33╱3╱ // 0x1589 @0x6
0x1583…158e at0007 = ╱dc╱=╱ // 0x158a @0x7
0x1583…158e at0008 = ╱e9╱-╱ // 0x158b @0x8
0x1583…158e at0009 = ╱45╱E╱ // 0x158c @0x9
0x1583…158e at000a = EOL // 0x158d @0xa
0x1583…158e }
0x158e…1594 a2eb 2800 ENDPROC
0x158e…1594 LineComalBin {
0x158e…1594 ptr = 0xa2eb // 0x158e @0x0
0x158e…1594 lno = 0x0af0 // 0x1590 @0x2
0x158e…1594 at0004 = ╱9f╱ ENDPROC ╱ // 0x1592 @0x4
0x158e…1594 at0005 = EOL // 0x1593 @0x5
0x158e…1594 }
0x1594…159c a2f3 2810 PROC HK
0x1594…159c LineComalBin {
0x1594…159c ptr = 0xa2f3 // 0x1594 @0x0
0x1594…159c lno = 0x0afa // 0x1596 @0x2
0x1594…159c at0004 = ╱9e╱ PROC ╱ // 0x1598 @0x4
0x1594…159c at0005 = ╱48╱H╱ // 0x1599 @0x5
0x1594…159c at0006 = ╱4b╱K╱ // 0x159a @0x6
0x1594…159c at0007 = EOL // 0x159b @0x7
0x1594…159c }
0x159c…15ac a303 2820 J7=M8(J9,G)
0x159c…15ac LineComalBin {
0x159c…15ac ptr = 0xa303 // 0x159c @0x0
0x159c…15ac lno = 0x0b04 // 0x159e @0x2
0x159c…15ac at0004 = ╱4a╱J╱ // 0x15a0 @0x4
0x159c…15ac at0005 = ╱37╱7╱ // 0x15a1 @0x5
0x159c…15ac at0006 = ╱dc╱=╱ // 0x15a2 @0x6
0x159c…15ac at0007 = ╱4d╱M╱ // 0x15a3 @0x7
0x159c…15ac at0008 = ╱38╱8╱ // 0x15a4 @0x8
0x159c…15ac at0009 = ╱ed╱(╱ // 0x15a5 @0x9
0x159c…15ac at000a = ╱4a╱J╱ // 0x15a6 @0xa
0x159c…15ac at000b = ╱39╱9╱ // 0x15a7 @0xb
0x159c…15ac at000c = ╱ec╱,╱ // 0x15a8 @0xc
0x159c…15ac at000d = ╱47╱G╱ // 0x15a9 @0xd
0x159c…15ac at000e = ╱ee╱)╱ // 0x15aa @0xe
0x159c…15ac at000f = EOL // 0x15ab @0xf
0x159c…15ac }
0x15ac…15c3 a31a 2830 GET D1$,J7:K0,F8$,A3$
0x15ac…15c3 LineComalBin {
0x15ac…15c3 ptr = 0xa31a // 0x15ac @0x0
0x15ac…15c3 lno = 0x0b0e // 0x15ae @0x2
0x15ac…15c3 at0004 = ╱a9╱ GET ╱ // 0x15b0 @0x4
0x15ac…15c3 at0005 = ╱44╱D╱ // 0x15b1 @0x5
0x15ac…15c3 at0006 = ╱31╱1╱ // 0x15b2 @0x6
0x15ac…15c3 at0007 = ╱ef╱$╱ // 0x15b3 @0x7
0x15ac…15c3 at0008 = ╱ec╱,╱ // 0x15b4 @0x8
0x15ac…15c3 at0009 = ╱4a╱J╱ // 0x15b5 @0x9
0x15ac…15c3 at000a = ╱37╱7╱ // 0x15b6 @0xa
0x15ac…15c3 at000b = ╱f0╱:╱ // 0x15b7 @0xb
0x15ac…15c3 at000c = ╱4b╱K╱ // 0x15b8 @0xc
0x15ac…15c3 at000d = ╱30╱0╱ // 0x15b9 @0xd
0x15ac…15c3 at000e = ╱ec╱,╱ // 0x15ba @0xe
0x15ac…15c3 at000f = ╱46╱F╱ // 0x15bb @0xf
0x15ac…15c3 at0010 = ╱38╱8╱ // 0x15bc @0x10
0x15ac…15c3 at0011 = ╱ef╱$╱ // 0x15bd @0x11
0x15ac…15c3 at0012 = ╱ec╱,╱ // 0x15be @0x12
0x15ac…15c3 at0013 = ╱41╱A╱ // 0x15bf @0x13
0x15ac…15c3 at0014 = ╱33╱3╱ // 0x15c0 @0x14
0x15ac…15c3 at0015 = ╱ef╱$╱ // 0x15c1 @0x15
0x15ac…15c3 at0016 = EOL // 0x15c2 @0x16
0x15ac…15c3 }
0x15c3…15d9 a330 2840 EXEC FE(5,E,D1$)
0x15c3…15d9 LineComalBin {
0x15c3…15d9 ptr = 0xa330 // 0x15c3 @0x0
0x15c3…15d9 lno = 0x0b18 // 0x15c5 @0x2
0x15c3…15d9 at0004 = ╱9d╱ EXEC ╱ // 0x15c7 @0x4
0x15c3…15d9 at0005 = ╱46╱F╱ // 0x15c8 @0x5
0x15c3…15d9 at0006 = ╱45╱E╱ // 0x15c9 @0x6
0x15c3…15d9 at0007 = ╱ed╱(╱ // 0x15ca @0x7
0x15c3…15d9 at0008 = ╱35╱5╱ // 0x15cb @0x8
0x15c3…15d9 at0009 = ╱fe0000a003╱ // 0x15cc @0x9
0x15c3…15d9 at000e = ╱ec╱,╱ // 0x15d1 @0xe
0x15c3…15d9 at000f = ╱45╱E╱ // 0x15d2 @0xf
0x15c3…15d9 at0010 = ╱ec╱,╱ // 0x15d3 @0x10
0x15c3…15d9 at0011 = ╱44╱D╱ // 0x15d4 @0x11
0x15c3…15d9 at0012 = ╱31╱1╱ // 0x15d5 @0x12
0x15c3…15d9 at0013 = ╱ef╱$╱ // 0x15d6 @0x13
0x15c3…15d9 at0014 = ╱ee╱)╱ // 0x15d7 @0x14
0x15c3…15d9 at0015 = EOL // 0x15d8 @0x15
0x15c3…15d9 }
0x15d9…15fe a355 2850 GET D1$,J7+E:A5$,C7$,C8$,K1,F6$,F7$
0x15d9…15fe LineComalBin {
0x15d9…15fe ptr = 0xa355 // 0x15d9 @0x0
0x15d9…15fe lno = 0x0b22 // 0x15db @0x2
0x15d9…15fe at0004 = ╱a9╱ GET ╱ // 0x15dd @0x4
0x15d9…15fe at0005 = ╱44╱D╱ // 0x15de @0x5
0x15d9…15fe at0006 = ╱31╱1╱ // 0x15df @0x6
0x15d9…15fe at0007 = ╱ef╱$╱ // 0x15e0 @0x7
0x15d9…15fe at0008 = ╱ec╱,╱ // 0x15e1 @0x8
0x15d9…15fe at0009 = ╱4a╱J╱ // 0x15e2 @0x9
0x15d9…15fe at000a = ╱37╱7╱ // 0x15e3 @0xa
0x15d9…15fe at000b = ╱e2╱+╱ // 0x15e4 @0xb
0x15d9…15fe at000c = ╱45╱E╱ // 0x15e5 @0xc
0x15d9…15fe at000d = ╱f0╱:╱ // 0x15e6 @0xd
0x15d9…15fe at000e = ╱41╱A╱ // 0x15e7 @0xe
0x15d9…15fe at000f = ╱35╱5╱ // 0x15e8 @0xf
0x15d9…15fe at0010 = ╱ef╱$╱ // 0x15e9 @0x10
0x15d9…15fe at0011 = ╱ec╱,╱ // 0x15ea @0x11
0x15d9…15fe at0012 = ╱43╱C╱ // 0x15eb @0x12
0x15d9…15fe at0013 = ╱37╱7╱ // 0x15ec @0x13
0x15d9…15fe at0014 = ╱ef╱$╱ // 0x15ed @0x14
0x15d9…15fe at0015 = ╱ec╱,╱ // 0x15ee @0x15
0x15d9…15fe at0016 = ╱43╱C╱ // 0x15ef @0x16
0x15d9…15fe at0017 = ╱38╱8╱ // 0x15f0 @0x17
0x15d9…15fe at0018 = ╱ef╱$╱ // 0x15f1 @0x18
0x15d9…15fe at0019 = ╱ec╱,╱ // 0x15f2 @0x19
0x15d9…15fe at001a = ╱4b╱K╱ // 0x15f3 @0x1a
0x15d9…15fe at001b = ╱31╱1╱ // 0x15f4 @0x1b
0x15d9…15fe at001c = ╱ec╱,╱ // 0x15f5 @0x1c
0x15d9…15fe at001d = ╱46╱F╱ // 0x15f6 @0x1d
0x15d9…15fe at001e = ╱36╱6╱ // 0x15f7 @0x1e
0x15d9…15fe at001f = ╱ef╱$╱ // 0x15f8 @0x1f
0x15d9…15fe at0020 = ╱ec╱,╱ // 0x15f9 @0x20
0x15d9…15fe at0021 = ╱46╱F╱ // 0x15fa @0x21
0x15d9…15fe at0022 = ╱37╱7╱ // 0x15fb @0x22
0x15d9…15fe at0023 = ╱ef╱$╱ // 0x15fc @0x23
0x15d9…15fe at0024 = EOL // 0x15fd @0x24
0x15d9…15fe }
0x15fe…1614 a36b 2860 EXEC FE(5,G,D1$)
0x15fe…1614 LineComalBin {
0x15fe…1614 ptr = 0xa36b // 0x15fe @0x0
0x15fe…1614 lno = 0x0b2c // 0x1600 @0x2
0x15fe…1614 at0004 = ╱9d╱ EXEC ╱ // 0x1602 @0x4
0x15fe…1614 at0005 = ╱46╱F╱ // 0x1603 @0x5
0x15fe…1614 at0006 = ╱45╱E╱ // 0x1604 @0x6
0x15fe…1614 at0007 = ╱ed╱(╱ // 0x1605 @0x7
0x15fe…1614 at0008 = ╱35╱5╱ // 0x1606 @0x8
0x15fe…1614 at0009 = ╱fe0000a003╱ // 0x1607 @0x9
0x15fe…1614 at000e = ╱ec╱,╱ // 0x160c @0xe
0x15fe…1614 at000f = ╱47╱G╱ // 0x160d @0xf
0x15fe…1614 at0010 = ╱ec╱,╱ // 0x160e @0x10
0x15fe…1614 at0011 = ╱44╱D╱ // 0x160f @0x11
0x15fe…1614 at0012 = ╱31╱1╱ // 0x1610 @0x12
0x15fe…1614 at0013 = ╱ef╱$╱ // 0x1611 @0x13
0x15fe…1614 at0014 = ╱ee╱)╱ // 0x1612 @0x14
0x15fe…1614 at0015 = EOL // 0x1613 @0x15
0x15fe…1614 }
0x1614…161a a371 2870 ENDPROC
0x1614…161a LineComalBin {
0x1614…161a ptr = 0xa371 // 0x1614 @0x0
0x1614…161a lno = 0x0b36 // 0x1616 @0x2
0x1614…161a at0004 = ╱9f╱ ENDPROC ╱ // 0x1618 @0x4
0x1614…161a at0005 = EOL // 0x1619 @0x5
0x1614…161a }
0x161a…1642 a399 2880 PROC GP(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN)
0x161a…1642 LineComalBin {
0x161a…1642 ptr = 0xa399 // 0x161a @0x0
0x161a…1642 lno = 0x0b40 // 0x161c @0x2
0x161a…1642 at0004 = ╱9e╱ PROC ╱ // 0x161e @0x4
0x161a…1642 at0005 = ╱47╱G╱ // 0x161f @0x5
0x161a…1642 at0006 = ╱50╱P╱ // 0x1620 @0x6
0x161a…1642 at0007 = ╱ed╱(╱ // 0x1621 @0x7
0x161a…1642 at0008 = ╱46╱F╱ // 0x1622 @0x8
0x161a…1642 at0009 = ╱4c╱L╱ // 0x1623 @0x9
0x161a…1642 at000a = ╱ec╱,╱ // 0x1624 @0xa
0x161a…1642 at000b = ╱50╱P╱ // 0x1625 @0xb
0x161a…1642 at000c = ╱4e╱N╱ // 0x1626 @0xc
0x161a…1642 at000d = ╱ec╱,╱ // 0x1627 @0xd
0x161a…1642 at000e = ╱4b╱K╱ // 0x1628 @0xe
0x161a…1642 at000f = ╱54╱T╱ // 0x1629 @0xf
0x161a…1642 at0010 = ╱ec╱,╱ // 0x162a @0x10
0x161a…1642 at0011 = ╱44╱D╱ // 0x162b @0x11
0x161a…1642 at0012 = ╱54╱T╱ // 0x162c @0x12
0x161a…1642 at0013 = ╱ec╱,╱ // 0x162d @0x13
0x161a…1642 at0014 = ╱42╱B╱ // 0x162e @0x14
0x161a…1642 at0015 = ╱4e╱N╱ // 0x162f @0x15
0x161a…1642 at0016 = ╱ec╱,╱ // 0x1630 @0x16
0x161a…1642 at0017 = ╱54╱T╱ // 0x1631 @0x17
0x161a…1642 at0018 = ╱4b╱K╱ // 0x1632 @0x18
0x161a…1642 at0019 = ╱ec╱,╱ // 0x1633 @0x19
0x161a…1642 at001a = ╱54╱T╱ // 0x1634 @0x1a
0x161a…1642 at001b = ╱4b╱K╱ // 0x1635 @0x1b
0x161a…1642 at001c = ╱53╱S╱ // 0x1636 @0x1c
0x161a…1642 at001d = ╱ec╱,╱ // 0x1637 @0x1d
0x161a…1642 at001e = ╱42╱B╱ // 0x1638 @0x1e
0x161a…1642 at001f = ╱4c╱L╱ // 0x1639 @0x1f
0x161a…1642 at0020 = ╱ec╱,╱ // 0x163a @0x20
0x161a…1642 at0021 = ╱4b╱K╱ // 0x163b @0x21
0x161a…1642 at0022 = ╱4f╱O╱ // 0x163c @0x22
0x161a…1642 at0023 = ╱ec╱,╱ // 0x163d @0x23
0x161a…1642 at0024 = ╱45╱E╱ // 0x163e @0x24
0x161a…1642 at0025 = ╱4e╱N╱ // 0x163f @0x25
0x161a…1642 at0026 = ╱ee╱)╱ // 0x1640 @0x26
0x161a…1642 at0027 = EOL // 0x1641 @0x27
0x161a…1642 }
0x1642…166a (74,) a3c1 2890 F1$=CHR(TK+48);D5$=CHR(KO+48)
0x1642…166a LineComalBin {
0x1642…166a ptr = 0xa3c1 // 0x1642 @0x0
0x1642…166a lno = 0x0b4a // 0x1644 @0x2
0x1642…166a at0004 = ╱46╱F╱ // 0x1646 @0x4
0x1642…166a at0005 = ╱31╱1╱ // 0x1647 @0x5
0x1642…166a at0006 = ╱ef╱$╱ // 0x1648 @0x6
0x1642…166a at0007 = ╱dc╱=╱ // 0x1649 @0x7
0x1642…166a at0008 = ╱cf╱CHR╱ // 0x164a @0x8
0x1642…166a at0009 = ╱ed╱(╱ // 0x164b @0x9
0x1642…166a at000a = ╱54╱T╱ // 0x164c @0xa
0x1642…166a at000b = ╱4b╱K╱ // 0x164d @0xb
0x1642…166a at000c = ╱e2╱+╱ // 0x164e @0xc
0x1642…166a at000d = ╱34╱4╱ // 0x164f @0xd
0x1642…166a at000e = ╱38╱8╱ // 0x1650 @0xe
0x1642…166a at000f = ╱fe0000c006╱ // 0x1651 @0xf
0x1642…166a at0014 = ╱ee╱)╱ // 0x1656 @0x14
0x1642…166a at0015 = ╱eb╱;╱ // 0x1657 @0x15
0x1642…166a at0016 = ╱44╱D╱ // 0x1658 @0x16
0x1642…166a at0017 = ╱35╱5╱ // 0x1659 @0x17
0x1642…166a at0018 = ╱ef╱$╱ // 0x165a @0x18
0x1642…166a at0019 = ╱dc╱=╱ // 0x165b @0x19
0x1642…166a at001a = ╱cf╱CHR╱ // 0x165c @0x1a
0x1642…166a at001b = ╱ed╱(╱ // 0x165d @0x1b
0x1642…166a at001c = ╱4b╱K╱ // 0x165e @0x1c
0x1642…166a at001d = ╱4f╱O╱ // 0x165f @0x1d
0x1642…166a at001e = ╱e2╱+╱ // 0x1660 @0x1e
0x1642…166a at001f = ╱34╱4╱ // 0x1661 @0x1f
0x1642…166a at0020 = ╱38╱8╱ // 0x1662 @0x20
0x1642…166a at0021 = ╱fe0000c006╱ // 0x1663 @0x21
0x1642…166a at0026 = ╱ee╱)╱ // 0x1668 @0x26
0x1642…166a at0027 = EOL // 0x1669 @0x27
0x1642…166a }
0x166a…168e a3e5 2900 PUT FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN
0x166a…168e LineComalBin {
0x166a…168e ptr = 0xa3e5 // 0x166a @0x0
0x166a…168e lno = 0x0b54 // 0x166c @0x2
0x166a…168e at0004 = ╱aa╱ PUT ╱ // 0x166e @0x4
0x166a…168e at0005 = ╱46╱F╱ // 0x166f @0x5
0x166a…168e at0006 = ╱4c╱L╱ // 0x1670 @0x6
0x166a…168e at0007 = ╱ef╱$╱ // 0x1671 @0x7
0x166a…168e at0008 = ╱ec╱,╱ // 0x1672 @0x8
0x166a…168e at0009 = ╱50╱P╱ // 0x1673 @0x9
0x166a…168e at000a = ╱4e╱N╱ // 0x1674 @0xa
0x166a…168e at000b = ╱f0╱:╱ // 0x1675 @0xb
0x166a…168e at000c = ╱4b╱K╱ // 0x1676 @0xc
0x166a…168e at000d = ╱54╱T╱ // 0x1677 @0xd
0x166a…168e at000e = ╱ec╱,╱ // 0x1678 @0xe
0x166a…168e at000f = ╱44╱D╱ // 0x1679 @0xf
0x166a…168e at0010 = ╱54╱T╱ // 0x167a @0x10
0x166a…168e at0011 = ╱ec╱,╱ // 0x167b @0x11
0x166a…168e at0012 = ╱42╱B╱ // 0x167c @0x12
0x166a…168e at0013 = ╱4e╱N╱ // 0x167d @0x13
0x166a…168e at0014 = ╱ec╱,╱ // 0x167e @0x14
0x166a…168e at0015 = ╱46╱F╱ // 0x167f @0x15
0x166a…168e at0016 = ╱31╱1╱ // 0x1680 @0x16
0x166a…168e at0017 = ╱ef╱$╱ // 0x1681 @0x17
0x166a…168e at0018 = ╱ec╱,╱ // 0x1682 @0x18
0x166a…168e at0019 = ╱42╱B╱ // 0x1683 @0x19
0x166a…168e at001a = ╱4c╱L╱ // 0x1684 @0x1a
0x166a…168e at001b = ╱ef╱$╱ // 0x1685 @0x1b
0x166a…168e at001c = ╱ec╱,╱ // 0x1686 @0x1c
0x166a…168e at001d = ╱44╱D╱ // 0x1687 @0x1d
0x166a…168e at001e = ╱35╱5╱ // 0x1688 @0x1e
0x166a…168e at001f = ╱ef╱$╱ // 0x1689 @0x1f
0x166a…168e at0020 = ╱ec╱,╱ // 0x168a @0x20
0x166a…168e at0021 = ╱45╱E╱ // 0x168b @0x21
0x166a…168e at0022 = ╱4e╱N╱ // 0x168c @0x22
0x166a…168e at0023 = EOL // 0x168d @0x23
0x166a…168e }
0x168e…16a5 a3fc 2910 EXEC FE(10,E,FL$)
0x168e…16a5 LineComalBin {
0x168e…16a5 ptr = 0xa3fc // 0x168e @0x0
0x168e…16a5 lno = 0x0b5e // 0x1690 @0x2
0x168e…16a5 at0004 = ╱9d╱ EXEC ╱ // 0x1692 @0x4
0x168e…16a5 at0005 = ╱46╱F╱ // 0x1693 @0x5
0x168e…16a5 at0006 = ╱45╱E╱ // 0x1694 @0x6
0x168e…16a5 at0007 = ╱ed╱(╱ // 0x1695 @0x7
0x168e…16a5 at0008 = ╱31╱1╱ // 0x1696 @0x8
0x168e…16a5 at0009 = ╱30╱0╱ // 0x1697 @0x9
0x168e…16a5 at000a = ╱fe0000a004╱ // 0x1698 @0xa
0x168e…16a5 at000f = ╱ec╱,╱ // 0x169d @0xf
0x168e…16a5 at0010 = ╱45╱E╱ // 0x169e @0x10
0x168e…16a5 at0011 = ╱ec╱,╱ // 0x169f @0x11
0x168e…16a5 at0012 = ╱46╱F╱ // 0x16a0 @0x12
0x168e…16a5 at0013 = ╱4c╱L╱ // 0x16a1 @0x13
0x168e…16a5 at0014 = ╱ef╱$╱ // 0x16a2 @0x14
0x168e…16a5 at0015 = ╱ee╱)╱ // 0x16a3 @0x15
0x168e…16a5 at0016 = EOL // 0x16a4 @0x16
0x168e…16a5 }
0x16a5…16bb a412 2920 IF TK>W AND TK<20 THEN
0x16a5…16bb LineComalBin {
0x16a5…16bb ptr = 0xa412 // 0x16a5 @0x0
0x16a5…16bb lno = 0x0b68 // 0x16a7 @0x2
0x16a5…16bb at0004 = ╱9c╱ IF ╱ // 0x16a9 @0x4
0x16a5…16bb at0005 = ╱54╱T╱ // 0x16aa @0x5
0x16a5…16bb at0006 = ╱4b╱K╱ // 0x16ab @0x6
0x16a5…16bb at0007 = ╱de╱>╱ // 0x16ac @0x7
0x16a5…16bb at0008 = ╱57╱W╱ // 0x16ad @0x8
0x16a5…16bb at0009 = ╱da╱ AND ╱ // 0x16ae @0x9
0x16a5…16bb at000a = ╱54╱T╱ // 0x16af @0xa
0x16a5…16bb at000b = ╱4b╱K╱ // 0x16b0 @0xb
0x16a5…16bb at000c = ╱dd╱<╱ // 0x16b1 @0xc
0x16a5…16bb at000d = ╱32╱2╱ // 0x16b2 @0xd
0x16a5…16bb at000e = ╱30╱0╱ // 0x16b3 @0xe
0x16a5…16bb at000f = ╱fe0000a005╱ // 0x16b4 @0xf
0x16a5…16bb at0014 = ╱b6╱ THEN ╱ // 0x16b9 @0x14
0x16a5…16bb at0015 = EOL // 0x16ba @0x15
0x16a5…16bb }
0x16bb…16c7 a41e 2930 PN=PN+E
0x16bb…16c7 LineComalBin {
0x16bb…16c7 ptr = 0xa41e // 0x16bb @0x0
0x16bb…16c7 lno = 0x0b72 // 0x16bd @0x2
0x16bb…16c7 at0004 = ╱50╱P╱ // 0x16bf @0x4
0x16bb…16c7 at0005 = ╱4e╱N╱ // 0x16c0 @0x5
0x16bb…16c7 at0006 = ╱dc╱=╱ // 0x16c1 @0x6
0x16bb…16c7 at0007 = ╱50╱P╱ // 0x16c2 @0x7
0x16bb…16c7 at0008 = ╱4e╱N╱ // 0x16c3 @0x8
0x16bb…16c7 at0009 = ╱e2╱+╱ // 0x16c4 @0x9
0x16bb…16c7 at000a = ╱45╱E╱ // 0x16c5 @0xa
0x16bb…16c7 at000b = EOL // 0x16c6 @0xb
0x16bb…16c7 }
0x16c7…16db a432 2940 PUT FL$,PN:KT,TKS$
0x16c7…16db LineComalBin {
0x16c7…16db ptr = 0xa432 // 0x16c7 @0x0
0x16c7…16db lno = 0x0b7c // 0x16c9 @0x2
0x16c7…16db at0004 = ╱aa╱ PUT ╱ // 0x16cb @0x4
0x16c7…16db at0005 = ╱46╱F╱ // 0x16cc @0x5
0x16c7…16db at0006 = ╱4c╱L╱ // 0x16cd @0x6
0x16c7…16db at0007 = ╱ef╱$╱ // 0x16ce @0x7
0x16c7…16db at0008 = ╱ec╱,╱ // 0x16cf @0x8
0x16c7…16db at0009 = ╱50╱P╱ // 0x16d0 @0x9
0x16c7…16db at000a = ╱4e╱N╱ // 0x16d1 @0xa
0x16c7…16db at000b = ╱f0╱:╱ // 0x16d2 @0xb
0x16c7…16db at000c = ╱4b╱K╱ // 0x16d3 @0xc
0x16c7…16db at000d = ╱54╱T╱ // 0x16d4 @0xd
0x16c7…16db at000e = ╱ec╱,╱ // 0x16d5 @0xe
0x16c7…16db at000f = ╱54╱T╱ // 0x16d6 @0xf
0x16c7…16db at0010 = ╱4b╱K╱ // 0x16d7 @0x10
0x16c7…16db at0011 = ╱53╱S╱ // 0x16d8 @0x11
0x16c7…16db at0012 = ╱ef╱$╱ // 0x16d9 @0x12
0x16c7…16db at0013 = EOL // 0x16da @0x13
0x16c7…16db }
0x16db…16f2 a449 2950 EXEC FE(10,G,FL$)
0x16db…16f2 LineComalBin {
0x16db…16f2 ptr = 0xa449 // 0x16db @0x0
0x16db…16f2 lno = 0x0b86 // 0x16dd @0x2
0x16db…16f2 at0004 = ╱9d╱ EXEC ╱ // 0x16df @0x4
0x16db…16f2 at0005 = ╱46╱F╱ // 0x16e0 @0x5
0x16db…16f2 at0006 = ╱45╱E╱ // 0x16e1 @0x6
0x16db…16f2 at0007 = ╱ed╱(╱ // 0x16e2 @0x7
0x16db…16f2 at0008 = ╱31╱1╱ // 0x16e3 @0x8
0x16db…16f2 at0009 = ╱30╱0╱ // 0x16e4 @0x9
0x16db…16f2 at000a = ╱fe0000a004╱ // 0x16e5 @0xa
0x16db…16f2 at000f = ╱ec╱,╱ // 0x16ea @0xf
0x16db…16f2 at0010 = ╱47╱G╱ // 0x16eb @0x10
0x16db…16f2 at0011 = ╱ec╱,╱ // 0x16ec @0x11
0x16db…16f2 at0012 = ╱46╱F╱ // 0x16ed @0x12
0x16db…16f2 at0013 = ╱4c╱L╱ // 0x16ee @0x13
0x16db…16f2 at0014 = ╱ef╱$╱ // 0x16ef @0x14
0x16db…16f2 at0015 = ╱ee╱)╱ // 0x16f0 @0x15
0x16db…16f2 at0016 = EOL // 0x16f1 @0x16
0x16db…16f2 }
0x16f2…16f8 a44f 2960 ENDIF
0x16f2…16f8 LineComalBin {
0x16f2…16f8 ptr = 0xa44f // 0x16f2 @0x0
0x16f2…16f8 lno = 0x0b90 // 0x16f4 @0x2
0x16f2…16f8 at0004 = ╱9b╱ ENDIF ╱ // 0x16f6 @0x4
0x16f2…16f8 at0005 = EOL // 0x16f7 @0x5
0x16f2…16f8 }
0x16f8…16fe a455 2970 ENDPROC
0x16f8…16fe LineComalBin {
0x16f8…16fe ptr = 0xa455 // 0x16f8 @0x0
0x16f8…16fe lno = 0x0b9a // 0x16fa @0x2
0x16f8…16fe at0004 = ╱9f╱ ENDPROC ╱ // 0x16fc @0x4
0x16f8…16fe at0005 = EOL // 0x16fd @0x5
0x16f8…16fe }
0x16fe…1726 a47d 2980 PROC GG(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN)
0x16fe…1726 LineComalBin {
0x16fe…1726 ptr = 0xa47d // 0x16fe @0x0
0x16fe…1726 lno = 0x0ba4 // 0x1700 @0x2
0x16fe…1726 at0004 = ╱9e╱ PROC ╱ // 0x1702 @0x4
0x16fe…1726 at0005 = ╱47╱G╱ // 0x1703 @0x5
0x16fe…1726 at0006 = ╱47╱G╱ // 0x1704 @0x6
0x16fe…1726 at0007 = ╱ed╱(╱ // 0x1705 @0x7
0x16fe…1726 at0008 = ╱46╱F╱ // 0x1706 @0x8
0x16fe…1726 at0009 = ╱4c╱L╱ // 0x1707 @0x9
0x16fe…1726 at000a = ╱ec╱,╱ // 0x1708 @0xa
0x16fe…1726 at000b = ╱50╱P╱ // 0x1709 @0xb
0x16fe…1726 at000c = ╱4e╱N╱ // 0x170a @0xc
0x16fe…1726 at000d = ╱ec╱,╱ // 0x170b @0xd
0x16fe…1726 at000e = ╱4b╱K╱ // 0x170c @0xe
0x16fe…1726 at000f = ╱54╱T╱ // 0x170d @0xf
0x16fe…1726 at0010 = ╱ec╱,╱ // 0x170e @0x10
0x16fe…1726 at0011 = ╱44╱D╱ // 0x170f @0x11
0x16fe…1726 at0012 = ╱54╱T╱ // 0x1710 @0x12
0x16fe…1726 at0013 = ╱ec╱,╱ // 0x1711 @0x13
0x16fe…1726 at0014 = ╱42╱B╱ // 0x1712 @0x14
0x16fe…1726 at0015 = ╱4e╱N╱ // 0x1713 @0x15
0x16fe…1726 at0016 = ╱ec╱,╱ // 0x1714 @0x16
0x16fe…1726 at0017 = ╱54╱T╱ // 0x1715 @0x17
0x16fe…1726 at0018 = ╱4b╱K╱ // 0x1716 @0x18
0x16fe…1726 at0019 = ╱ec╱,╱ // 0x1717 @0x19
0x16fe…1726 at001a = ╱54╱T╱ // 0x1718 @0x1a
0x16fe…1726 at001b = ╱4b╱K╱ // 0x1719 @0x1b
0x16fe…1726 at001c = ╱53╱S╱ // 0x171a @0x1c
0x16fe…1726 at001d = ╱ec╱,╱ // 0x171b @0x1d
0x16fe…1726 at001e = ╱42╱B╱ // 0x171c @0x1e
0x16fe…1726 at001f = ╱4c╱L╱ // 0x171d @0x1f
0x16fe…1726 at0020 = ╱ec╱,╱ // 0x171e @0x20
0x16fe…1726 at0021 = ╱4b╱K╱ // 0x171f @0x21
0x16fe…1726 at0022 = ╱4f╱O╱ // 0x1720 @0x22
0x16fe…1726 at0023 = ╱ec╱,╱ // 0x1721 @0x23
0x16fe…1726 at0024 = ╱45╱E╱ // 0x1722 @0x24
0x16fe…1726 at0025 = ╱4e╱N╱ // 0x1723 @0x25
0x16fe…1726 at0026 = ╱ee╱)╱ // 0x1724 @0x26
0x16fe…1726 at0027 = EOL // 0x1725 @0x27
0x16fe…1726 }
0x1726…174a a4a1 2990 GET FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN
0x1726…174a LineComalBin {
0x1726…174a ptr = 0xa4a1 // 0x1726 @0x0
0x1726…174a lno = 0x0bae // 0x1728 @0x2
0x1726…174a at0004 = ╱a9╱ GET ╱ // 0x172a @0x4
0x1726…174a at0005 = ╱46╱F╱ // 0x172b @0x5
0x1726…174a at0006 = ╱4c╱L╱ // 0x172c @0x6
0x1726…174a at0007 = ╱ef╱$╱ // 0x172d @0x7
0x1726…174a at0008 = ╱ec╱,╱ // 0x172e @0x8
0x1726…174a at0009 = ╱50╱P╱ // 0x172f @0x9
0x1726…174a at000a = ╱4e╱N╱ // 0x1730 @0xa
0x1726…174a at000b = ╱f0╱:╱ // 0x1731 @0xb
0x1726…174a at000c = ╱4b╱K╱ // 0x1732 @0xc
0x1726…174a at000d = ╱54╱T╱ // 0x1733 @0xd
0x1726…174a at000e = ╱ec╱,╱ // 0x1734 @0xe
0x1726…174a at000f = ╱44╱D╱ // 0x1735 @0xf
0x1726…174a at0010 = ╱54╱T╱ // 0x1736 @0x10
0x1726…174a at0011 = ╱ec╱,╱ // 0x1737 @0x11
0x1726…174a at0012 = ╱42╱B╱ // 0x1738 @0x12
0x1726…174a at0013 = ╱4e╱N╱ // 0x1739 @0x13
0x1726…174a at0014 = ╱ec╱,╱ // 0x173a @0x14
0x1726…174a at0015 = ╱46╱F╱ // 0x173b @0x15
0x1726…174a at0016 = ╱31╱1╱ // 0x173c @0x16
0x1726…174a at0017 = ╱ef╱$╱ // 0x173d @0x17
0x1726…174a at0018 = ╱ec╱,╱ // 0x173e @0x18
0x1726…174a at0019 = ╱42╱B╱ // 0x173f @0x19
0x1726…174a at001a = ╱4c╱L╱ // 0x1740 @0x1a
0x1726…174a at001b = ╱ef╱$╱ // 0x1741 @0x1b
0x1726…174a at001c = ╱ec╱,╱ // 0x1742 @0x1c
0x1726…174a at001d = ╱44╱D╱ // 0x1743 @0x1d
0x1726…174a at001e = ╱35╱5╱ // 0x1744 @0x1e
0x1726…174a at001f = ╱ef╱$╱ // 0x1745 @0x1f
0x1726…174a at0020 = ╱ec╱,╱ // 0x1746 @0x20
0x1726…174a at0021 = ╱45╱E╱ // 0x1747 @0x21
0x1726…174a at0022 = ╱4e╱N╱ // 0x1748 @0x22
0x1726…174a at0023 = EOL // 0x1749 @0x23
0x1726…174a }
0x174a…1761 a4b8 3000 EXEC FE(11,E,FL$)
0x174a…1761 LineComalBin {
0x174a…1761 ptr = 0xa4b8 // 0x174a @0x0
0x174a…1761 lno = 0x0bb8 // 0x174c @0x2
0x174a…1761 at0004 = ╱9d╱ EXEC ╱ // 0x174e @0x4
0x174a…1761 at0005 = ╱46╱F╱ // 0x174f @0x5
0x174a…1761 at0006 = ╱45╱E╱ // 0x1750 @0x6
0x174a…1761 at0007 = ╱ed╱(╱ // 0x1751 @0x7
0x174a…1761 at0008 = ╱31╱1╱ // 0x1752 @0x8
0x174a…1761 at0009 = ╱31╱1╱ // 0x1753 @0x9
0x174a…1761 at000a = ╱fe0000b004╱ // 0x1754 @0xa
0x174a…1761 at000f = ╱ec╱,╱ // 0x1759 @0xf
0x174a…1761 at0010 = ╱45╱E╱ // 0x175a @0x10
0x174a…1761 at0011 = ╱ec╱,╱ // 0x175b @0x11
0x174a…1761 at0012 = ╱46╱F╱ // 0x175c @0x12
0x174a…1761 at0013 = ╱4c╱L╱ // 0x175d @0x13
0x174a…1761 at0014 = ╱ef╱$╱ // 0x175e @0x14
0x174a…1761 at0015 = ╱ee╱)╱ // 0x175f @0x15
0x174a…1761 at0016 = EOL // 0x1760 @0x16
0x174a…1761 }
0x1761…1789 a4e0 3010 TK=ORD(F1$)-48;KO=ORD(D5$)-48
0x1761…1789 LineComalBin {
0x1761…1789 ptr = 0xa4e0 // 0x1761 @0x0
0x1761…1789 lno = 0x0bc2 // 0x1763 @0x2
0x1761…1789 at0004 = ╱54╱T╱ // 0x1765 @0x4
0x1761…1789 at0005 = ╱4b╱K╱ // 0x1766 @0x5
0x1761…1789 at0006 = ╱dc╱=╱ // 0x1767 @0x6
0x1761…1789 at0007 = ╱cd╱ORD╱ // 0x1768 @0x7
0x1761…1789 at0008 = ╱ed╱(╱ // 0x1769 @0x8
0x1761…1789 at0009 = ╱46╱F╱ // 0x176a @0x9
0x1761…1789 at000a = ╱31╱1╱ // 0x176b @0xa
0x1761…1789 at000b = ╱ef╱$╱ // 0x176c @0xb
0x1761…1789 at000c = ╱ee╱)╱ // 0x176d @0xc
0x1761…1789 at000d = ╱e3╱-╱ // 0x176e @0xd
0x1761…1789 at000e = ╱34╱4╱ // 0x176f @0xe
0x1761…1789 at000f = ╱38╱8╱ // 0x1770 @0xf
0x1761…1789 at0010 = ╱fe0000c006╱ // 0x1771 @0x10
0x1761…1789 at0015 = ╱eb╱;╱ // 0x1776 @0x15
0x1761…1789 at0016 = ╱4b╱K╱ // 0x1777 @0x16
0x1761…1789 at0017 = ╱4f╱O╱ // 0x1778 @0x17
0x1761…1789 at0018 = ╱dc╱=╱ // 0x1779 @0x18
0x1761…1789 at0019 = ╱cd╱ORD╱ // 0x177a @0x19
0x1761…1789 at001a = ╱ed╱(╱ // 0x177b @0x1a
0x1761…1789 at001b = ╱44╱D╱ // 0x177c @0x1b
0x1761…1789 at001c = ╱35╱5╱ // 0x177d @0x1c
0x1761…1789 at001d = ╱ef╱$╱ // 0x177e @0x1d
0x1761…1789 at001e = ╱ee╱)╱ // 0x177f @0x1e
0x1761…1789 at001f = ╱e3╱-╱ // 0x1780 @0x1f
0x1761…1789 at0020 = ╱34╱4╱ // 0x1781 @0x20
0x1761…1789 at0021 = ╱38╱8╱ // 0x1782 @0x21
0x1761…1789 at0022 = ╱fe0000c006╱ // 0x1783 @0x22
0x1761…1789 at0027 = EOL // 0x1788 @0x27
0x1761…1789 }
0x1789…179f a4f6 3020 IF TK>W AND TK<20 THEN
0x1789…179f LineComalBin {
0x1789…179f ptr = 0xa4f6 // 0x1789 @0x0
0x1789…179f lno = 0x0bcc // 0x178b @0x2
0x1789…179f at0004 = ╱9c╱ IF ╱ // 0x178d @0x4
0x1789…179f at0005 = ╱54╱T╱ // 0x178e @0x5
0x1789…179f at0006 = ╱4b╱K╱ // 0x178f @0x6
0x1789…179f at0007 = ╱de╱>╱ // 0x1790 @0x7
0x1789…179f at0008 = ╱57╱W╱ // 0x1791 @0x8
0x1789…179f at0009 = ╱da╱ AND ╱ // 0x1792 @0x9
0x1789…179f at000a = ╱54╱T╱ // 0x1793 @0xa
0x1789…179f at000b = ╱4b╱K╱ // 0x1794 @0xb
0x1789…179f at000c = ╱dd╱<╱ // 0x1795 @0xc
0x1789…179f at000d = ╱32╱2╱ // 0x1796 @0xd
0x1789…179f at000e = ╱30╱0╱ // 0x1797 @0xe
0x1789…179f at000f = ╱fe0000a005╱ // 0x1798 @0xf
0x1789…179f at0014 = ╱b6╱ THEN ╱ // 0x179d @0x14
0x1789…179f at0015 = EOL // 0x179e @0x15
0x1789…179f }
0x179f…17ab a502 3030 PN=PN+E
0x179f…17ab LineComalBin {
0x179f…17ab ptr = 0xa502 // 0x179f @0x0
0x179f…17ab lno = 0x0bd6 // 0x17a1 @0x2
0x179f…17ab at0004 = ╱50╱P╱ // 0x17a3 @0x4
0x179f…17ab at0005 = ╱4e╱N╱ // 0x17a4 @0x5
0x179f…17ab at0006 = ╱dc╱=╱ // 0x17a5 @0x6
0x179f…17ab at0007 = ╱50╱P╱ // 0x17a6 @0x7
0x179f…17ab at0008 = ╱4e╱N╱ // 0x17a7 @0x8
0x179f…17ab at0009 = ╱e2╱+╱ // 0x17a8 @0x9
0x179f…17ab at000a = ╱45╱E╱ // 0x17a9 @0xa
0x179f…17ab at000b = EOL // 0x17aa @0xb
0x179f…17ab }
0x17ab…17bf a516 3040 GET FL$,PN:KT,TKS$
0x17ab…17bf LineComalBin {
0x17ab…17bf ptr = 0xa516 // 0x17ab @0x0
0x17ab…17bf lno = 0x0be0 // 0x17ad @0x2
0x17ab…17bf at0004 = ╱a9╱ GET ╱ // 0x17af @0x4
0x17ab…17bf at0005 = ╱46╱F╱ // 0x17b0 @0x5
0x17ab…17bf at0006 = ╱4c╱L╱ // 0x17b1 @0x6
0x17ab…17bf at0007 = ╱ef╱$╱ // 0x17b2 @0x7
0x17ab…17bf at0008 = ╱ec╱,╱ // 0x17b3 @0x8
0x17ab…17bf at0009 = ╱50╱P╱ // 0x17b4 @0x9
0x17ab…17bf at000a = ╱4e╱N╱ // 0x17b5 @0xa
0x17ab…17bf at000b = ╱f0╱:╱ // 0x17b6 @0xb
0x17ab…17bf at000c = ╱4b╱K╱ // 0x17b7 @0xc
0x17ab…17bf at000d = ╱54╱T╱ // 0x17b8 @0xd
0x17ab…17bf at000e = ╱ec╱,╱ // 0x17b9 @0xe
0x17ab…17bf at000f = ╱54╱T╱ // 0x17ba @0xf
0x17ab…17bf at0010 = ╱4b╱K╱ // 0x17bb @0x10
0x17ab…17bf at0011 = ╱53╱S╱ // 0x17bc @0x11
0x17ab…17bf at0012 = ╱ef╱$╱ // 0x17bd @0x12
0x17ab…17bf at0013 = EOL // 0x17be @0x13
0x17ab…17bf }
0x17bf…17d6 a52d 3050 EXEC FE(11,G,FL$)
0x17bf…17d6 LineComalBin {
0x17bf…17d6 ptr = 0xa52d // 0x17bf @0x0
0x17bf…17d6 lno = 0x0bea // 0x17c1 @0x2
0x17bf…17d6 at0004 = ╱9d╱ EXEC ╱ // 0x17c3 @0x4
0x17bf…17d6 at0005 = ╱46╱F╱ // 0x17c4 @0x5
0x17bf…17d6 at0006 = ╱45╱E╱ // 0x17c5 @0x6
0x17bf…17d6 at0007 = ╱ed╱(╱ // 0x17c6 @0x7
0x17bf…17d6 at0008 = ╱31╱1╱ // 0x17c7 @0x8
0x17bf…17d6 at0009 = ╱31╱1╱ // 0x17c8 @0x9
0x17bf…17d6 at000a = ╱fe0000b004╱ // 0x17c9 @0xa
0x17bf…17d6 at000f = ╱ec╱,╱ // 0x17ce @0xf
0x17bf…17d6 at0010 = ╱47╱G╱ // 0x17cf @0x10
0x17bf…17d6 at0011 = ╱ec╱,╱ // 0x17d0 @0x11
0x17bf…17d6 at0012 = ╱46╱F╱ // 0x17d1 @0x12
0x17bf…17d6 at0013 = ╱4c╱L╱ // 0x17d2 @0x13
0x17bf…17d6 at0014 = ╱ef╱$╱ // 0x17d3 @0x14
0x17bf…17d6 at0015 = ╱ee╱)╱ // 0x17d4 @0x15
0x17bf…17d6 at0016 = EOL // 0x17d5 @0x16
0x17bf…17d6 }
0x17d6…17dc a533 3060 ELSE
0x17d6…17dc LineComalBin {
0x17d6…17dc ptr = 0xa533 // 0x17d6 @0x0
0x17d6…17dc lno = 0x0bf4 // 0x17d8 @0x2
0x17d6…17dc at0004 = ╱9a╱ ELSE ╱ // 0x17da @0x4
0x17d6…17dc at0005 = EOL // 0x17db @0x5
0x17d6…17dc }
0x17dc…17e9 a540 3070 TKS$=B7$
0x17dc…17e9 LineComalBin {
0x17dc…17e9 ptr = 0xa540 // 0x17dc @0x0
0x17dc…17e9 lno = 0x0bfe // 0x17de @0x2
0x17dc…17e9 at0004 = ╱54╱T╱ // 0x17e0 @0x4
0x17dc…17e9 at0005 = ╱4b╱K╱ // 0x17e1 @0x5
0x17dc…17e9 at0006 = ╱53╱S╱ // 0x17e2 @0x6
0x17dc…17e9 at0007 = ╱ef╱$╱ // 0x17e3 @0x7
0x17dc…17e9 at0008 = ╱dc╱=╱ // 0x17e4 @0x8
0x17dc…17e9 at0009 = ╱42╱B╱ // 0x17e5 @0x9
0x17dc…17e9 at000a = ╱37╱7╱ // 0x17e6 @0xa
0x17dc…17e9 at000b = ╱ef╱$╱ // 0x17e7 @0xb
0x17dc…17e9 at000c = EOL // 0x17e8 @0xc
0x17dc…17e9 }
0x17e9…1815 a56c 3080 IF TK>B THEN TKS$=E5$(TK-10*(TK>20))
0x17e9…1815 LineComalBin {
0x17e9…1815 ptr = 0xa56c // 0x17e9 @0x0
0x17e9…1815 lno = 0x0c08 // 0x17eb @0x2
0x17e9…1815 at0004 = ╱82╱ IF ╱ // 0x17ed @0x4
0x17e9…1815 at0005 = ╱54╱T╱ // 0x17ee @0x5
0x17e9…1815 at0006 = ╱4b╱K╱ // 0x17ef @0x6
0x17e9…1815 at0007 = ╱de╱>╱ // 0x17f0 @0x7
0x17e9…1815 at0008 = ╱42╱B╱ // 0x17f1 @0x8
0x17e9…1815 at0009 = ╱b6╱ THEN ╱ // 0x17f2 @0x9
0x17e9…1815 at000a = ╱54╱T╱ // 0x17f3 @0xa
0x17e9…1815 at000b = ╱4b╱K╱ // 0x17f4 @0xb
0x17e9…1815 at000c = ╱53╱S╱ // 0x17f5 @0xc
0x17e9…1815 at000d = ╱ef╱$╱ // 0x17f6 @0xd
0x17e9…1815 at000e = ╱dc╱=╱ // 0x17f7 @0xe
0x17e9…1815 at000f = ╱45╱E╱ // 0x17f8 @0xf
0x17e9…1815 at0010 = ╱35╱5╱ // 0x17f9 @0x10
0x17e9…1815 at0011 = ╱ef╱$╱ // 0x17fa @0x11
0x17e9…1815 at0012 = ╱ed╱(╱ // 0x17fb @0x12
0x17e9…1815 at0013 = ╱54╱T╱ // 0x17fc @0x13
0x17e9…1815 at0014 = ╱4b╱K╱ // 0x17fd @0x14
0x17e9…1815 at0015 = ╱e3╱-╱ // 0x17fe @0x15
0x17e9…1815 at0016 = ╱31╱1╱ // 0x17ff @0x16
0x17e9…1815 at0017 = ╱30╱0╱ // 0x1800 @0x17
0x17e9…1815 at0018 = ╱fe0000a004╱ // 0x1801 @0x18
0x17e9…1815 at001d = ╱e4╱*╱ // 0x1806 @0x1d
0x17e9…1815 at001e = ╱ed╱(╱ // 0x1807 @0x1e
0x17e9…1815 at001f = ╱54╱T╱ // 0x1808 @0x1f
0x17e9…1815 at0020 = ╱4b╱K╱ // 0x1809 @0x20
0x17e9…1815 at0021 = ╱de╱>╱ // 0x180a @0x21
0x17e9…1815 at0022 = ╱32╱2╱ // 0x180b @0x22
0x17e9…1815 at0023 = ╱30╱0╱ // 0x180c @0x23
0x17e9…1815 at0024 = ╱fe0000a005╱ // 0x180d @0x24
0x17e9…1815 at0029 = ╱ee╱)╱ // 0x1812 @0x29
0x17e9…1815 at002a = ╱ee╱)╱ // 0x1813 @0x2a
0x17e9…1815 at002b = EOL // 0x1814 @0x2b
0x17e9…1815 }
0x1815…181b a572 3090 ENDIF
0x1815…181b LineComalBin {
0x1815…181b ptr = 0xa572 // 0x1815 @0x0
0x1815…181b lno = 0x0c12 // 0x1817 @0x2
0x1815…181b at0004 = ╱9b╱ ENDIF ╱ // 0x1819 @0x4
0x1815…181b at0005 = EOL // 0x181a @0x5
0x1815…181b }
0x181b…1821 a578 3100 ENDPROC
0x181b…1821 LineComalBin {
0x181b…1821 ptr = 0xa578 // 0x181b @0x0
0x181b…1821 lno = 0x0c1c // 0x181d @0x2
0x181b…1821 at0004 = ╱9f╱ ENDPROC ╱ // 0x181f @0x4
0x181b…1821 at0005 = EOL // 0x1820 @0x5
0x181b…1821 }
0x1821…1833 a58a 3110 PROC ÆN(K4,K5,K6)
0x1821…1833 LineComalBin {
0x1821…1833 ptr = 0xa58a // 0x1821 @0x0
0x1821…1833 lno = 0x0c26 // 0x1823 @0x2
0x1821…1833 at0004 = ╱9e╱ PROC ╱ // 0x1825 @0x4
0x1821…1833 at0005 = ╱5b╱Æ╱ // 0x1826 @0x5
0x1821…1833 at0006 = ╱4e╱N╱ // 0x1827 @0x6
0x1821…1833 at0007 = ╱ed╱(╱ // 0x1828 @0x7
0x1821…1833 at0008 = ╱4b╱K╱ // 0x1829 @0x8
0x1821…1833 at0009 = ╱34╱4╱ // 0x182a @0x9
0x1821…1833 at000a = ╱ec╱,╱ // 0x182b @0xa
0x1821…1833 at000b = ╱4b╱K╱ // 0x182c @0xb
0x1821…1833 at000c = ╱35╱5╱ // 0x182d @0xc
0x1821…1833 at000d = ╱ec╱,╱ // 0x182e @0xd
0x1821…1833 at000e = ╱4b╱K╱ // 0x182f @0xe
0x1821…1833 at000f = ╱36╱6╱ // 0x1830 @0xf
0x1821…1833 at0010 = ╱ee╱)╱ // 0x1831 @0x10
0x1821…1833 at0011 = EOL // 0x1832 @0x11
0x1821…1833 }
0x1833…1844 a59b 3120 J3=B;B8$=K5$
0x1833…1844 LineComalBin {
0x1833…1844 ptr = 0xa59b // 0x1833 @0x0
0x1833…1844 lno = 0x0c30 // 0x1835 @0x2
0x1833…1844 at0004 = ╱4a╱J╱ // 0x1837 @0x4
0x1833…1844 at0005 = ╱33╱3╱ // 0x1838 @0x5
0x1833…1844 at0006 = ╱dc╱=╱ // 0x1839 @0x6
0x1833…1844 at0007 = ╱42╱B╱ // 0x183a @0x7
0x1833…1844 at0008 = ╱eb╱;╱ // 0x183b @0x8
0x1833…1844 at0009 = ╱42╱B╱ // 0x183c @0x9
0x1833…1844 at000a = ╱38╱8╱ // 0x183d @0xa
0x1833…1844 at000b = ╱ef╱$╱ // 0x183e @0xb
0x1833…1844 at000c = ╱dc╱=╱ // 0x183f @0xc
0x1833…1844 at000d = ╱4b╱K╱ // 0x1840 @0xd
0x1833…1844 at000e = ╱35╱5╱ // 0x1841 @0xe
0x1833…1844 at000f = ╱ef╱$╱ // 0x1842 @0xf
0x1833…1844 at0010 = EOL // 0x1843 @0x10
0x1833…1844 }
0x1844…185e a5b5 3130 IF B8$(LEN(B8$))="+" THEN J3=E
0x1844…185e LineComalBin {
0x1844…185e ptr = 0xa5b5 // 0x1844 @0x0
0x1844…185e lno = 0x0c3a // 0x1846 @0x2
0x1844…185e at0004 = ╱82╱ IF ╱ // 0x1848 @0x4
0x1844…185e at0005 = ╱42╱B╱ // 0x1849 @0x5
0x1844…185e at0006 = ╱38╱8╱ // 0x184a @0x6
0x1844…185e at0007 = ╱ef╱$╱ // 0x184b @0x7
0x1844…185e at0008 = ╱ed╱(╱ // 0x184c @0x8
0x1844…185e at0009 = ╱cc╱LEN╱ // 0x184d @0x9
0x1844…185e at000a = ╱ed╱(╱ // 0x184e @0xa
0x1844…185e at000b = ╱42╱B╱ // 0x184f @0xb
0x1844…185e at000c = ╱38╱8╱ // 0x1850 @0xc
0x1844…185e at000d = ╱ef╱$╱ // 0x1851 @0xd
0x1844…185e at000e = ╱ee╱)╱ // 0x1852 @0xe
0x1844…185e at000f = ╱ee╱)╱ // 0x1853 @0xf
0x1844…185e at0010 = ╱dc╱=╱ // 0x1854 @0x10
0x1844…185e at0011 = ╱22╱"╱ // 0x1855 @0x11
0x1844…185e at0012 = ╱2b╱+╱ // 0x1856 @0x12
0x1844…185e at0013 = ╱22╱"╱ // 0x1857 @0x13
0x1844…185e at0014 = ╱b6╱ THEN ╱ // 0x1858 @0x14
0x1844…185e at0015 = ╱4a╱J╱ // 0x1859 @0x15
0x1844…185e at0016 = ╱33╱3╱ // 0x185a @0x16
0x1844…185e at0017 = ╱dc╱=╱ // 0x185b @0x17
0x1844…185e at0018 = ╱45╱E╱ // 0x185c @0x18
0x1844…185e at0019 = EOL // 0x185d @0x19
0x1844…185e }
0x185e…186d a5c4 3140 J3=G*K6-J3
0x185e…186d LineComalBin {
0x185e…186d ptr = 0xa5c4 // 0x185e @0x0
0x185e…186d lno = 0x0c44 // 0x1860 @0x2
0x185e…186d at0004 = ╱4a╱J╱ // 0x1862 @0x4
0x185e…186d at0005 = ╱33╱3╱ // 0x1863 @0x5
0x185e…186d at0006 = ╱dc╱=╱ // 0x1864 @0x6
0x185e…186d at0007 = ╱47╱G╱ // 0x1865 @0x7
0x185e…186d at0008 = ╱e4╱*╱ // 0x1866 @0x8
0x185e…186d at0009 = ╱4b╱K╱ // 0x1867 @0x9
0x185e…186d at000a = ╱36╱6╱ // 0x1868 @0xa
0x185e…186d at000b = ╱e3╱-╱ // 0x1869 @0xb
0x185e…186d at000c = ╱4a╱J╱ // 0x186a @0xc
0x185e…186d at000d = ╱33╱3╱ // 0x186b @0xd
0x185e…186d at000e = EOL // 0x186c @0xe
0x185e…186d }
0x186d…188d a5e4 3150 EXEC CA(K4,F5$(J3),B8$,F5$(J3))
0x186d…188d LineComalBin {
0x186d…188d ptr = 0xa5e4 // 0x186d @0x0
0x186d…188d lno = 0x0c4e // 0x186f @0x2
0x186d…188d at0004 = ╱9d╱ EXEC ╱ // 0x1871 @0x4
0x186d…188d at0005 = ╱43╱C╱ // 0x1872 @0x5
0x186d…188d at0006 = ╱41╱A╱ // 0x1873 @0x6
0x186d…188d at0007 = ╱ed╱(╱ // 0x1874 @0x7
0x186d…188d at0008 = ╱4b╱K╱ // 0x1875 @0x8
0x186d…188d at0009 = ╱34╱4╱ // 0x1876 @0x9
0x186d…188d at000a = ╱ec╱,╱ // 0x1877 @0xa
0x186d…188d at000b = ╱46╱F╱ // 0x1878 @0xb
0x186d…188d at000c = ╱35╱5╱ // 0x1879 @0xc
0x186d…188d at000d = ╱ef╱$╱ // 0x187a @0xd
0x186d…188d at000e = ╱ed╱(╱ // 0x187b @0xe
0x186d…188d at000f = ╱4a╱J╱ // 0x187c @0xf
0x186d…188d at0010 = ╱33╱3╱ // 0x187d @0x10
0x186d…188d at0011 = ╱ee╱)╱ // 0x187e @0x11
0x186d…188d at0012 = ╱ec╱,╱ // 0x187f @0x12
0x186d…188d at0013 = ╱42╱B╱ // 0x1880 @0x13
0x186d…188d at0014 = ╱38╱8╱ // 0x1881 @0x14
0x186d…188d at0015 = ╱ef╱$╱ // 0x1882 @0x15
0x186d…188d at0016 = ╱ec╱,╱ // 0x1883 @0x16
0x186d…188d at0017 = ╱46╱F╱ // 0x1884 @0x17
0x186d…188d at0018 = ╱35╱5╱ // 0x1885 @0x18
0x186d…188d at0019 = ╱ef╱$╱ // 0x1886 @0x19
0x186d…188d at001a = ╱ed╱(╱ // 0x1887 @0x1a
0x186d…188d at001b = ╱4a╱J╱ // 0x1888 @0x1b
0x186d…188d at001c = ╱33╱3╱ // 0x1889 @0x1c
0x186d…188d at001d = ╱ee╱)╱ // 0x188a @0x1d
0x186d…188d at001e = ╱ee╱)╱ // 0x188b @0x1e
0x186d…188d at001f = EOL // 0x188c @0x1f
0x186d…188d }
0x188d…1893 a5ea 3160 ENDPROC
0x188d…1893 LineComalBin {
0x188d…1893 ptr = 0xa5ea // 0x188d @0x0
0x188d…1893 lno = 0x0c58 // 0x188f @0x2
0x188d…1893 at0004 = ╱9f╱ ENDPROC ╱ // 0x1891 @0x4
0x188d…1893 at0005 = EOL // 0x1892 @0x5
0x188d…1893 }
0x1893…189b a5f2 3170 PROC RE
0x1893…189b LineComalBin {
0x1893…189b ptr = 0xa5f2 // 0x1893 @0x0
0x1893…189b lno = 0x0c62 // 0x1895 @0x2
0x1893…189b at0004 = ╱9e╱ PROC ╱ // 0x1897 @0x4
0x1893…189b at0005 = ╱52╱R╱ // 0x1898 @0x5
0x1893…189b at0006 = ╱45╱E╱ // 0x1899 @0x6
0x1893…189b at0007 = EOL // 0x189a @0x7
0x1893…189b }
0x189b…18a9 a600 3180 K3=E;K2=E
0x189b…18a9 LineComalBin {
0x189b…18a9 ptr = 0xa600 // 0x189b @0x0
0x189b…18a9 lno = 0x0c6c // 0x189d @0x2
0x189b…18a9 at0004 = ╱4b╱K╱ // 0x189f @0x4
0x189b…18a9 at0005 = ╱33╱3╱ // 0x18a0 @0x5
0x189b…18a9 at0006 = ╱dc╱=╱ // 0x18a1 @0x6
0x189b…18a9 at0007 = ╱45╱E╱ // 0x18a2 @0x7
0x189b…18a9 at0008 = ╱eb╱;╱ // 0x18a3 @0x8
0x189b…18a9 at0009 = ╱4b╱K╱ // 0x18a4 @0x9
0x189b…18a9 at000a = ╱32╱2╱ // 0x18a5 @0xa
0x189b…18a9 at000b = ╱dc╱=╱ // 0x18a6 @0xb
0x189b…18a9 at000c = ╱45╱E╱ // 0x18a7 @0xc
0x189b…18a9 at000d = EOL // 0x18a8 @0xd
0x189b…18a9 }
0x18a9…18b5 a60c 3190 IF I2=E THEN EXIT
0x18a9…18b5 LineComalBin {
0x18a9…18b5 ptr = 0xa60c // 0x18a9 @0x0
0x18a9…18b5 lno = 0x0c76 // 0x18ab @0x2
0x18a9…18b5 at0004 = ╱82╱ IF ╱ // 0x18ad @0x4
0x18a9…18b5 at0005 = ╱49╱I╱ // 0x18ae @0x5
0x18a9…18b5 at0006 = ╱32╱2╱ // 0x18af @0x6
0x18a9…18b5 at0007 = ╱dc╱=╱ // 0x18b0 @0x7
0x18a9…18b5 at0008 = ╱45╱E╱ // 0x18b1 @0x8
0x18a9…18b5 at0009 = ╱b6╱ THEN ╱ // 0x18b2 @0x9
0x18a9…18b5 at000a = ╱99╱ EXIT ╱ // 0x18b3 @0xa
0x18a9…18b5 at000b = EOL // 0x18b4 @0xb
0x18a9…18b5 }
0x18b5…18bb a612 3200 REPEAT
0x18b5…18bb LineComalBin {
0x18b5…18bb ptr = 0xa612 // 0x18b5 @0x0
0x18b5…18bb lno = 0x0c80 // 0x18b7 @0x2
0x18b5…18bb at0004 = ╱97╱ REPEAT ╱ // 0x18b9 @0x4
0x18b5…18bb at0005 = EOL // 0x18ba @0x5
0x18b5…18bb }
0x18bb…18c1 a618 3210 CLEAR
0x18bb…18c1 LineComalBin {
0x18bb…18c1 ptr = 0xa618 // 0x18bb @0x0
0x18bb…18c1 lno = 0x0c8a // 0x18bd @0x2
0x18bb…18c1 at0004 = ╱a0╱ CLEAR ╱ // 0x18bf @0x4
0x18bb…18c1 at0005 = EOL // 0x18c0 @0x5
0x18bb…18c1 }
0x18c1…18c9 a620 3220 EXEC UH
0x18c1…18c9 LineComalBin {
0x18c1…18c9 ptr = 0xa620 // 0x18c1 @0x0
0x18c1…18c9 lno = 0x0c94 // 0x18c3 @0x2
0x18c1…18c9 at0004 = ╱9d╱ EXEC ╱ // 0x18c5 @0x4
0x18c1…18c9 at0005 = ╱55╱U╱ // 0x18c6 @0x5
0x18c1…18c9 at0006 = ╱48╱H╱ // 0x18c7 @0x6
0x18c1…18c9 at0007 = EOL // 0x18c8 @0x7
0x18c1…18c9 }
0x18c9…18d9 a630 3230 IF K2=I2 THEN K2=E
0x18c9…18d9 LineComalBin {
0x18c9…18d9 ptr = 0xa630 // 0x18c9 @0x0
0x18c9…18d9 lno = 0x0c9e // 0x18cb @0x2
0x18c9…18d9 at0004 = ╱82╱ IF ╱ // 0x18cd @0x4
0x18c9…18d9 at0005 = ╱4b╱K╱ // 0x18ce @0x5
0x18c9…18d9 at0006 = ╱32╱2╱ // 0x18cf @0x6
0x18c9…18d9 at0007 = ╱dc╱=╱ // 0x18d0 @0x7
0x18c9…18d9 at0008 = ╱49╱I╱ // 0x18d1 @0x8
0x18c9…18d9 at0009 = ╱32╱2╱ // 0x18d2 @0x9
0x18c9…18d9 at000a = ╱b6╱ THEN ╱ // 0x18d3 @0xa
0x18c9…18d9 at000b = ╱4b╱K╱ // 0x18d4 @0xb
0x18c9…18d9 at000c = ╱32╱2╱ // 0x18d5 @0xc
0x18c9…18d9 at000d = ╱dc╱=╱ // 0x18d6 @0xd
0x18c9…18d9 at000e = ╱45╱E╱ // 0x18d7 @0xe
0x18c9…18d9 at000f = EOL // 0x18d8 @0xf
0x18c9…18d9 }
0x18d9…18e8 a63f 3240 K3=K2;H5=E
0x18d9…18e8 LineComalBin {
0x18d9…18e8 ptr = 0xa63f // 0x18d9 @0x0
0x18d9…18e8 lno = 0x0ca8 // 0x18db @0x2
0x18d9…18e8 at0004 = ╱4b╱K╱ // 0x18dd @0x4
0x18d9…18e8 at0005 = ╱33╱3╱ // 0x18de @0x5
0x18d9…18e8 at0006 = ╱dc╱=╱ // 0x18df @0x6
0x18d9…18e8 at0007 = ╱4b╱K╱ // 0x18e0 @0x7
0x18d9…18e8 at0008 = ╱32╱2╱ // 0x18e1 @0x8
0x18d9…18e8 at0009 = ╱eb╱;╱ // 0x18e2 @0x9
0x18d9…18e8 at000a = ╱48╱H╱ // 0x18e3 @0xa
0x18d9…18e8 at000b = ╱35╱5╱ // 0x18e4 @0xb
0x18d9…18e8 at000c = ╱dc╱=╱ // 0x18e5 @0xc
0x18d9…18e8 at000d = ╱45╱E╱ // 0x18e6 @0xd
0x18d9…18e8 at000e = EOL // 0x18e7 @0xe
0x18d9…18e8 }
0x18e8…18f9 a650 3250 FOR I=E TO 18
0x18e8…18f9 LineComalBin {
0x18e8…18f9 ptr = 0xa650 // 0x18e8 @0x0
0x18e8…18f9 lno = 0x0cb2 // 0x18ea @0x2
0x18e8…18f9 at0004 = ╱83╱ FOR ╱ // 0x18ec @0x4
0x18e8…18f9 at0005 = ╱49╱I╱ // 0x18ed @0x5
0x18e8…18f9 at0006 = ╱dc╱=╱ // 0x18ee @0x6
0x18e8…18f9 at0007 = ╱45╱E╱ // 0x18ef @0x7
0x18e8…18f9 at0008 = ╱b7╱ TO ╱ // 0x18f0 @0x8
0x18e8…18f9 at0009 = ╱31╱1╱ // 0x18f1 @0x9
0x18e8…18f9 at000a = ╱38╱8╱ // 0x18f2 @0xa
0x18e8…18f9 at000b = ╱fe00009005╱ // 0x18f3 @0xb
0x18e8…18f9 at0010 = EOL // 0x18f8 @0x10
0x18e8…18f9 }
0x18f9…193c a693 3260 EXEC GG(D2$,K2,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))
0x18f9…193c LineComalBin {
0x18f9…193c ptr = 0xa693 // 0x18f9 @0x0
0x18f9…193c lno = 0x0cbc // 0x18fb @0x2
0x18f9…193c at0004 = ╱9d╱ EXEC ╱ // 0x18fd @0x4
0x18f9…193c at0005 = ╱47╱G╱ // 0x18fe @0x5
0x18f9…193c at0006 = ╱47╱G╱ // 0x18ff @0x6
0x18f9…193c at0007 = ╱ed╱(╱ // 0x1900 @0x7
0x18f9…193c at0008 = ╱44╱D╱ // 0x1901 @0x8
0x18f9…193c at0009 = ╱32╱2╱ // 0x1902 @0x9
0x18f9…193c at000a = ╱ef╱$╱ // 0x1903 @0xa
0x18f9…193c at000b = ╱ec╱,╱ // 0x1904 @0xb
0x18f9…193c at000c = ╱4b╱K╱ // 0x1905 @0xc
0x18f9…193c at000d = ╱32╱2╱ // 0x1906 @0xd
0x18f9…193c at000e = ╱ec╱,╱ // 0x1907 @0xe
0x18f9…193c at000f = ╱47╱G╱ // 0x1908 @0xf
0x18f9…193c at0010 = ╱32╱2╱ // 0x1909 @0x10
0x18f9…193c at0011 = ╱ed╱(╱ // 0x190a @0x11
0x18f9…193c at0012 = ╱49╱I╱ // 0x190b @0x12
0x18f9…193c at0013 = ╱ee╱)╱ // 0x190c @0x13
0x18f9…193c at0014 = ╱ec╱,╱ // 0x190d @0x14
0x18f9…193c at0015 = ╱47╱G╱ // 0x190e @0x15
0x18f9…193c at0016 = ╱33╱3╱ // 0x190f @0x16
0x18f9…193c at0017 = ╱ed╱(╱ // 0x1910 @0x17
0x18f9…193c at0018 = ╱49╱I╱ // 0x1911 @0x18
0x18f9…193c at0019 = ╱ee╱)╱ // 0x1912 @0x19
0x18f9…193c at001a = ╱ec╱,╱ // 0x1913 @0x1a
0x18f9…193c at001b = ╱47╱G╱ // 0x1914 @0x1b
0x18f9…193c at001c = ╱34╱4╱ // 0x1915 @0x1c
0x18f9…193c at001d = ╱ed╱(╱ // 0x1916 @0x1d
0x18f9…193c at001e = ╱49╱I╱ // 0x1917 @0x1e
0x18f9…193c at001f = ╱ee╱)╱ // 0x1918 @0x1f
0x18f9…193c at0020 = ╱ec╱,╱ // 0x1919 @0x20
0x18f9…193c at0021 = ╱47╱G╱ // 0x191a @0x21
0x18f9…193c at0022 = ╱35╱5╱ // 0x191b @0x22
0x18f9…193c at0023 = ╱ed╱(╱ // 0x191c @0x23
0x18f9…193c at0024 = ╱49╱I╱ // 0x191d @0x24
0x18f9…193c at0025 = ╱ee╱)╱ // 0x191e @0x25
0x18f9…193c at0026 = ╱ec╱,╱ // 0x191f @0x26
0x18f9…193c at0027 = ╱47╱G╱ // 0x1920 @0x27
0x18f9…193c at0028 = ╱38╱8╱ // 0x1921 @0x28
0x18f9…193c at0029 = ╱ef╱$╱ // 0x1922 @0x29
0x18f9…193c at002a = ╱ed╱(╱ // 0x1923 @0x2a
0x18f9…193c at002b = ╱49╱I╱ // 0x1924 @0x2b
0x18f9…193c at002c = ╱ee╱)╱ // 0x1925 @0x2c
0x18f9…193c at002d = ╱ec╱,╱ // 0x1926 @0x2d
0x18f9…193c at002e = ╱47╱G╱ // 0x1927 @0x2e
0x18f9…193c at002f = ╱36╱6╱ // 0x1928 @0x2f
0x18f9…193c at0030 = ╱ef╱$╱ // 0x1929 @0x30
0x18f9…193c at0031 = ╱ed╱(╱ // 0x192a @0x31
0x18f9…193c at0032 = ╱49╱I╱ // 0x192b @0x32
0x18f9…193c at0033 = ╱ee╱)╱ // 0x192c @0x33
0x18f9…193c at0034 = ╱ec╱,╱ // 0x192d @0x34
0x18f9…193c at0035 = ╱47╱G╱ // 0x192e @0x35
0x18f9…193c at0036 = ╱37╱7╱ // 0x192f @0x36
0x18f9…193c at0037 = ╱ed╱(╱ // 0x1930 @0x37
0x18f9…193c at0038 = ╱49╱I╱ // 0x1931 @0x38
0x18f9…193c at0039 = ╱ee╱)╱ // 0x1932 @0x39
0x18f9…193c at003a = ╱ec╱,╱ // 0x1933 @0x3a
0x18f9…193c at003b = ╱47╱G╱ // 0x1934 @0x3b
0x18f9…193c at003c = ╱31╱1╱ // 0x1935 @0x3c
0x18f9…193c at003d = ╱32╱2╱ // 0x1936 @0x3d
0x18f9…193c at003e = ╱ed╱(╱ // 0x1937 @0x3e
0x18f9…193c at003f = ╱49╱I╱ // 0x1938 @0x3f
0x18f9…193c at0040 = ╱ee╱)╱ // 0x1939 @0x40
0x18f9…193c at0041 = ╱ee╱)╱ // 0x193a @0x41
0x18f9…193c at0042 = EOL // 0x193b @0x42
0x18f9…193c }
0x193c…1948 a69f 3270 K2=K2+E
0x193c…1948 LineComalBin {
0x193c…1948 ptr = 0xa69f // 0x193c @0x0
0x193c…1948 lno = 0x0cc6 // 0x193e @0x2
0x193c…1948 at0004 = ╱4b╱K╱ // 0x1940 @0x4
0x193c…1948 at0005 = ╱32╱2╱ // 0x1941 @0x5
0x193c…1948 at0006 = ╱dc╱=╱ // 0x1942 @0x6
0x193c…1948 at0007 = ╱4b╱K╱ // 0x1943 @0x7
0x193c…1948 at0008 = ╱32╱2╱ // 0x1944 @0x8
0x193c…1948 at0009 = ╱e2╱+╱ // 0x1945 @0x9
0x193c…1948 at000a = ╱45╱E╱ // 0x1946 @0xa
0x193c…1948 at000b = EOL // 0x1947 @0xb
0x193c…1948 }
0x1948…1987 a6de 3280 IF G2(I)<>B THEN EXEC UL(G2(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))
0x1948…1987 LineComalBin {
0x1948…1987 ptr = 0xa6de // 0x1948 @0x0
0x1948…1987 lno = 0x0cd0 // 0x194a @0x2
0x1948…1987 at0004 = ╱82╱ IF ╱ // 0x194c @0x4
0x1948…1987 at0005 = ╱47╱G╱ // 0x194d @0x5
0x1948…1987 at0006 = ╱32╱2╱ // 0x194e @0x6
0x1948…1987 at0007 = ╱ed╱(╱ // 0x194f @0x7
0x1948…1987 at0008 = ╱49╱I╱ // 0x1950 @0x8
0x1948…1987 at0009 = ╱ee╱)╱ // 0x1951 @0x9
0x1948…1987 at000a = ╱e1╱<>╱ // 0x1952 @0xa
0x1948…1987 at000b = ╱42╱B╱ // 0x1953 @0xb
0x1948…1987 at000c = ╱b6╱ THEN ╱ // 0x1954 @0xc
0x1948…1987 at000d = ╱9d╱ EXEC ╱ // 0x1955 @0xd
0x1948…1987 at000e = ╱55╱U╱ // 0x1956 @0xe
0x1948…1987 at000f = ╱4c╱L╱ // 0x1957 @0xf
0x1948…1987 at0010 = ╱ed╱(╱ // 0x1958 @0x10
0x1948…1987 at0011 = ╱47╱G╱ // 0x1959 @0x11
0x1948…1987 at0012 = ╱32╱2╱ // 0x195a @0x12
0x1948…1987 at0013 = ╱ed╱(╱ // 0x195b @0x13
0x1948…1987 at0014 = ╱49╱I╱ // 0x195c @0x14
0x1948…1987 at0015 = ╱ee╱)╱ // 0x195d @0x15
0x1948…1987 at0016 = ╱ec╱,╱ // 0x195e @0x16
0x1948…1987 at0017 = ╱47╱G╱ // 0x195f @0x17
0x1948…1987 at0018 = ╱34╱4╱ // 0x1960 @0x18
0x1948…1987 at0019 = ╱ed╱(╱ // 0x1961 @0x19
0x1948…1987 at001a = ╱49╱I╱ // 0x1962 @0x1a
0x1948…1987 at001b = ╱ee╱)╱ // 0x1963 @0x1b
0x1948…1987 at001c = ╱ec╱,╱ // 0x1964 @0x1c
0x1948…1987 at001d = ╱47╱G╱ // 0x1965 @0x1d
0x1948…1987 at001e = ╱35╱5╱ // 0x1966 @0x1e
0x1948…1987 at001f = ╱ed╱(╱ // 0x1967 @0x1f
0x1948…1987 at0020 = ╱49╱I╱ // 0x1968 @0x20
0x1948…1987 at0021 = ╱ee╱)╱ // 0x1969 @0x21
0x1948…1987 at0022 = ╱ec╱,╱ // 0x196a @0x22
0x1948…1987 at0023 = ╱47╱G╱ // 0x196b @0x23
0x1948…1987 at0024 = ╱38╱8╱ // 0x196c @0x24
0x1948…1987 at0025 = ╱ef╱$╱ // 0x196d @0x25
0x1948…1987 at0026 = ╱ed╱(╱ // 0x196e @0x26
0x1948…1987 at0027 = ╱49╱I╱ // 0x196f @0x27
0x1948…1987 at0028 = ╱ee╱)╱ // 0x1970 @0x28
0x1948…1987 at0029 = ╱ec╱,╱ // 0x1971 @0x29
0x1948…1987 at002a = ╱47╱G╱ // 0x1972 @0x2a
0x1948…1987 at002b = ╱36╱6╱ // 0x1973 @0x2b
0x1948…1987 at002c = ╱ef╱$╱ // 0x1974 @0x2c
0x1948…1987 at002d = ╱ed╱(╱ // 0x1975 @0x2d
0x1948…1987 at002e = ╱49╱I╱ // 0x1976 @0x2e
0x1948…1987 at002f = ╱ee╱)╱ // 0x1977 @0x2f
0x1948…1987 at0030 = ╱ec╱,╱ // 0x1978 @0x30
0x1948…1987 at0031 = ╱47╱G╱ // 0x1979 @0x31
0x1948…1987 at0032 = ╱37╱7╱ // 0x197a @0x32
0x1948…1987 at0033 = ╱ed╱(╱ // 0x197b @0x33
0x1948…1987 at0034 = ╱49╱I╱ // 0x197c @0x34
0x1948…1987 at0035 = ╱ee╱)╱ // 0x197d @0x35
0x1948…1987 at0036 = ╱ec╱,╱ // 0x197e @0x36
0x1948…1987 at0037 = ╱47╱G╱ // 0x197f @0x37
0x1948…1987 at0038 = ╱31╱1╱ // 0x1980 @0x38
0x1948…1987 at0039 = ╱32╱2╱ // 0x1981 @0x39
0x1948…1987 at003a = ╱ed╱(╱ // 0x1982 @0x3a
0x1948…1987 at003b = ╱49╱I╱ // 0x1983 @0x3b
0x1948…1987 at003c = ╱ee╱)╱ // 0x1984 @0x3c
0x1948…1987 at003d = ╱ee╱)╱ // 0x1985 @0x3d
0x1948…1987 at003e = EOL // 0x1986 @0x3e
0x1948…1987 }
0x1987…1993 a6ea 3290 H5=H5+E
0x1987…1993 LineComalBin {
0x1987…1993 ptr = 0xa6ea // 0x1987 @0x0
0x1987…1993 lno = 0x0cda // 0x1989 @0x2
0x1987…1993 at0004 = ╱48╱H╱ // 0x198b @0x4
0x1987…1993 at0005 = ╱35╱5╱ // 0x198c @0x5
0x1987…1993 at0006 = ╱dc╱=╱ // 0x198d @0x6
0x1987…1993 at0007 = ╱48╱H╱ // 0x198e @0x7
0x1987…1993 at0008 = ╱35╱5╱ // 0x198f @0x8
0x1987…1993 at0009 = ╱e2╱+╱ // 0x1990 @0x9
0x1987…1993 at000a = ╱45╱E╱ // 0x1991 @0xa
0x1987…1993 at000b = EOL // 0x1992 @0xb
0x1987…1993 }
0x1993…19a0 a6f7 3300 IF K2=I2 THEN EXIT
0x1993…19a0 LineComalBin {
0x1993…19a0 ptr = 0xa6f7 // 0x1993 @0x0
0x1993…19a0 lno = 0x0ce4 // 0x1995 @0x2
0x1993…19a0 at0004 = ╱82╱ IF ╱ // 0x1997 @0x4
0x1993…19a0 at0005 = ╱4b╱K╱ // 0x1998 @0x5
0x1993…19a0 at0006 = ╱32╱2╱ // 0x1999 @0x6
0x1993…19a0 at0007 = ╱dc╱=╱ // 0x199a @0x7
0x1993…19a0 at0008 = ╱49╱I╱ // 0x199b @0x8
0x1993…19a0 at0009 = ╱32╱2╱ // 0x199c @0x9
0x1993…19a0 at000a = ╱b6╱ THEN ╱ // 0x199d @0xa
0x1993…19a0 at000b = ╱99╱ EXIT ╱ // 0x199e @0xb
0x1993…19a0 at000c = EOL // 0x199f @0xc
0x1993…19a0 }
0x19a0…19a7 a6fe 3310 NEXT I
0x19a0…19a7 LineComalBin {
0x19a0…19a7 ptr = 0xa6fe // 0x19a0 @0x0
0x19a0…19a7 lno = 0x0cee // 0x19a2 @0x2
0x19a0…19a7 at0004 = ╱84╱ NEXT ╱ // 0x19a4 @0x4
0x19a0…19a7 at0005 = ╱49╱I╱ // 0x19a5 @0x5
0x19a0…19a7 at0006 = EOL // 0x19a6 @0x6
0x19a0…19a7 }
0x19a7…19b6 a70d 3320 K7=H5;K8=B
0x19a7…19b6 LineComalBin {
0x19a7…19b6 ptr = 0xa70d // 0x19a7 @0x0
0x19a7…19b6 lno = 0x0cf8 // 0x19a9 @0x2
0x19a7…19b6 at0004 = ╱4b╱K╱ // 0x19ab @0x4
0x19a7…19b6 at0005 = ╱37╱7╱ // 0x19ac @0x5
0x19a7…19b6 at0006 = ╱dc╱=╱ // 0x19ad @0x6
0x19a7…19b6 at0007 = ╱48╱H╱ // 0x19ae @0x7
0x19a7…19b6 at0008 = ╱35╱5╱ // 0x19af @0x8
0x19a7…19b6 at0009 = ╱eb╱;╱ // 0x19b0 @0x9
0x19a7…19b6 at000a = ╱4b╱K╱ // 0x19b1 @0xa
0x19a7…19b6 at000b = ╱38╱8╱ // 0x19b2 @0xb
0x19a7…19b6 at000c = ╱dc╱=╱ // 0x19b3 @0xc
0x19a7…19b6 at000d = ╱42╱B╱ // 0x19b4 @0xd
0x19a7…19b6 at000e = EOL // 0x19b5 @0xe
0x19a7…19b6 }
0x19b6…19bc a713 3330 REPEAT
0x19b6…19bc LineComalBin {
0x19b6…19bc ptr = 0xa713 // 0x19b6 @0x0
0x19b6…19bc lno = 0x0d02 // 0x19b8 @0x2
0x19b6…19bc at0004 = ╱97╱ REPEAT ╱ // 0x19ba @0x4
0x19b6…19bc at0005 = EOL // 0x19bb @0x5
0x19b6…19bc }
0x19bc…19c2 a719 3340 REPEAT
0x19bc…19c2 LineComalBin {
0x19bc…19c2 ptr = 0xa719 // 0x19bc @0x0
0x19bc…19c2 lno = 0x0d0c // 0x19be @0x2
0x19bc…19c2 at0004 = ╱97╱ REPEAT ╱ // 0x19c0 @0x4
0x19bc…19c2 at0005 = EOL // 0x19c1 @0x5
0x19bc…19c2 }
0x19c2…19d1 a728 3350 CURSOR V,23
0x19c2…19d1 LineComalBin {
0x19c2…19d1 ptr = 0xa728 // 0x19c2 @0x0
0x19c2…19d1 lno = 0x0d16 // 0x19c4 @0x2
0x19c2…19d1 at0004 = ╱a1╱ CURSOR ╱ // 0x19c6 @0x4
0x19c2…19d1 at0005 = ╱56╱V╱ // 0x19c7 @0x5
0x19c2…19d1 at0006 = ╱ec╱,╱ // 0x19c8 @0x6
0x19c2…19d1 at0007 = ╱32╱2╱ // 0x19c9 @0x7
0x19c2…19d1 at0008 = ╱33╱3╱ // 0x19ca @0x8
0x19c2…19d1 at0009 = ╱fe0000b805╱ // 0x19cb @0x9
0x19c2…19d1 at000e = EOL // 0x19d0 @0xe
0x19c2…19d1 }
0x19d1…1a19 a770 3360 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:";
0x19d1…1a19 LineComalBin {
0x19d1…1a19 ptr = 0xa770 // 0x19d1 @0x0
0x19d1…1a19 lno = 0x0d20 // 0x19d3 @0x2
0x19d1…1a19 at0004 = ╱92╱ PRINT ╱ // 0x19d5 @0x4
0x19d1…1a19 at0005 = ╱22╱"╱ // 0x19d6 @0x5
0x19d1…1a19 at0006 = ╱5c╱Ø╱ // 0x19d7 @0x6
0x19d1…1a19 at0007 = ╱6e╱n╱ // 0x19d8 @0x7
0x19d1…1a19 at0008 = ╱73╱s╱ // 0x19d9 @0x8
0x19d1…1a19 at0009 = ╱6b╱k╱ // 0x19da @0x9
0x19d1…1a19 at000a = ╱65╱e╱ // 0x19db @0xa
0x19d1…1a19 at000b = ╱73╱s╱ // 0x19dc @0xb
0x19d1…1a19 at000c = ╱20╱…╱ // 0x19dd @0xc
0x19d1…1a19 at000d = ╱7b╱æ╱ // 0x19de @0xd
0x19d1…1a19 at000e = ╱6e╱n╱ // 0x19df @0xe
0x19d1…1a19 at000f = ╱64╱d╱ // 0x19e0 @0xf
0x19d1…1a19 at0010 = ╱72╱r╱ // 0x19e1 @0x10
0x19d1…1a19 at0011 = ╱69╱i╱ // 0x19e2 @0x11
0x19d1…1a19 at0012 = ╱6e╱n╱ // 0x19e3 @0x12
0x19d1…1a19 at0013 = ╱67╱g╱ // 0x19e4 @0x13
0x19d1…1a19 at0014 = ╱65╱e╱ // 0x19e5 @0x14
0x19d1…1a19 at0015 = ╱72╱r╱ // 0x19e6 @0x15
0x19d1…1a19 at0016 = ╱20╱…╱ // 0x19e7 @0x16
0x19d1…1a19 at0017 = ╱20╱…╱ // 0x19e8 @0x17
0x19d1…1a19 at0018 = ╱20╱…╱ // 0x19e9 @0x18
0x19d1…1a19 at0019 = ╱20╱…╱ // 0x19ea @0x19
0x19d1…1a19 at001a = ╱28╱(╱ // 0x19eb @0x1a
0x19d1…1a19 at001b = ╱31╱1╱ // 0x19ec @0x1b
0x19d1…1a19 at001c = ╱2d╱-╱ // 0x19ed @0x1c
0x19d1…1a19 at001d = ╱31╱1╱ // 0x19ee @0x1d
0x19d1…1a19 at001e = ╱38╱8╱ // 0x19ef @0x1e
0x19d1…1a19 at001f = ╱3a╱:╱ // 0x19f0 @0x1f
0x19d1…1a19 at0020 = ╱4c╱L╱ // 0x19f1 @0x20
0x19d1…1a19 at0021 = ╱69╱i╱ // 0x19f2 @0x21
0x19d1…1a19 at0022 = ╱6e╱n╱ // 0x19f3 @0x22
0x19d1…1a19 at0023 = ╱69╱i╱ // 0x19f4 @0x23
0x19d1…1a19 at0024 = ╱65╱e╱ // 0x19f5 @0x24
0x19d1…1a19 at0025 = ╱6e╱n╱ // 0x19f6 @0x25
0x19d1…1a19 at0026 = ╱72╱r╱ // 0x19f7 @0x26
0x19d1…1a19 at0027 = ╱2c╱,╱ // 0x19f8 @0x27
0x19d1…1a19 at0028 = ╱20╱…╱ // 0x19f9 @0x28
0x19d1…1a19 at0029 = ╱30╱0╱ // 0x19fa @0x29
0x19d1…1a19 at002a = ╱3a╱:╱ // 0x19fb @0x2a
0x19d1…1a19 at002b = ╱46╱F╱ // 0x19fc @0x2b
0x19d1…1a19 at002c = ╱7b╱æ╱ // 0x19fd @0x2c
0x19d1…1a19 at002d = ╱72╱r╱ // 0x19fe @0x2d
0x19d1…1a19 at002e = ╱64╱d╱ // 0x19ff @0x2e
0x19d1…1a19 at002f = ╱69╱i╱ // 0x1a00 @0x2f
0x19d1…1a19 at0030 = ╱67╱g╱ // 0x1a01 @0x30
0x19d1…1a19 at0031 = ╱2c╱,╱ // 0x1a02 @0x31
0x19d1…1a19 at0032 = ╱20╱…╱ // 0x1a03 @0x32
0x19d1…1a19 at0033 = ╱52╱R╱ // 0x1a04 @0x33
0x19d1…1a19 at0034 = ╱45╱E╱ // 0x1a05 @0x34
0x19d1…1a19 at0035 = ╱54╱T╱ // 0x1a06 @0x35
0x19d1…1a19 at0036 = ╱55╱U╱ // 0x1a07 @0x36
0x19d1…1a19 at0037 = ╱52╱R╱ // 0x1a08 @0x37
0x19d1…1a19 at0038 = ╱4e╱N╱ // 0x1a09 @0x38
0x19d1…1a19 at0039 = ╱3a╱:╱ // 0x1a0a @0x39
0x19d1…1a19 at003a = ╱4e╱N╱ // 0x1a0b @0x3a
0x19d1…1a19 at003b = ╱79╱y╱ // 0x1a0c @0x3b
0x19d1…1a19 at003c = ╱20╱…╱ // 0x1a0d @0x3c
0x19d1…1a19 at003d = ╱73╱s╱ // 0x1a0e @0x3d
0x19d1…1a19 at003e = ╱69╱i╱ // 0x1a0f @0x3e
0x19d1…1a19 at003f = ╱64╱d╱ // 0x1a10 @0x3f
0x19d1…1a19 at0040 = ╱65╱e╱ // 0x1a11 @0x40
0x19d1…1a19 at0041 = ╱2c╱,╱ // 0x1a12 @0x41
0x19d1…1a19 at0042 = ╱20╱…╱ // 0x1a13 @0x42
0x19d1…1a19 at0043 = ╱4e╱N╱ // 0x1a14 @0x43
0x19d1…1a19 at0044 = ╱3a╱:╱ // 0x1a15 @0x44
0x19d1…1a19 at0045 = ╱22╱"╱ // 0x1a16 @0x45
0x19d1…1a19 at0046 = ╱eb╱;╱ // 0x1a17 @0x46
0x19d1…1a19 at0047 = EOL // 0x1a18 @0x47
0x19d1…1a19 }
0x1a19…1a2f a786 3370 PRINT "Ny post) "
0x1a19…1a2f LineComalBin {
0x1a19…1a2f ptr = 0xa786 // 0x1a19 @0x0
0x1a19…1a2f lno = 0x0d2a // 0x1a1b @0x2
0x1a19…1a2f at0004 = ╱92╱ PRINT ╱ // 0x1a1d @0x4
0x1a19…1a2f at0005 = ╱22╱"╱ // 0x1a1e @0x5
0x1a19…1a2f at0006 = ╱4e╱N╱ // 0x1a1f @0x6
0x1a19…1a2f at0007 = ╱79╱y╱ // 0x1a20 @0x7
0x1a19…1a2f at0008 = ╱20╱…╱ // 0x1a21 @0x8
0x1a19…1a2f at0009 = ╱70╱p╱ // 0x1a22 @0x9
0x1a19…1a2f at000a = ╱6f╱o╱ // 0x1a23 @0xa
0x1a19…1a2f at000b = ╱73╱s╱ // 0x1a24 @0xb
0x1a19…1a2f at000c = ╱74╱t╱ // 0x1a25 @0xc
0x1a19…1a2f at000d = ╱29╱)╱ // 0x1a26 @0xd
0x1a19…1a2f at000e = ╱20╱…╱ // 0x1a27 @0xe
0x1a19…1a2f at000f = ╱20╱…╱ // 0x1a28 @0xf
0x1a19…1a2f at0010 = ╱20╱…╱ // 0x1a29 @0x10
0x1a19…1a2f at0011 = ╱20╱…╱ // 0x1a2a @0x11
0x1a19…1a2f at0012 = ╱20╱…╱ // 0x1a2b @0x12
0x1a19…1a2f at0013 = ╱20╱…╱ // 0x1a2c @0x13
0x1a19…1a2f at0014 = ╱22╱"╱ // 0x1a2d @0x14
0x1a19…1a2f at0015 = EOL // 0x1a2e @0x15
0x1a19…1a2f }
0x1a2f…1a44 a79b 3380 CURSOR 20,23
0x1a2f…1a44 LineComalBin {
0x1a2f…1a44 ptr = 0xa79b // 0x1a2f @0x0
0x1a2f…1a44 lno = 0x0d34 // 0x1a31 @0x2
0x1a2f…1a44 at0004 = ╱a1╱ CURSOR ╱ // 0x1a33 @0x4
0x1a2f…1a44 at0005 = ╱32╱2╱ // 0x1a34 @0x5
0x1a2f…1a44 at0006 = ╱30╱0╱ // 0x1a35 @0x6
0x1a2f…1a44 at0007 = ╱fe0000a005╱ // 0x1a36 @0x7
0x1a2f…1a44 at000c = ╱ec╱,╱ // 0x1a3b @0xc
0x1a2f…1a44 at000d = ╱32╱2╱ // 0x1a3c @0xd
0x1a2f…1a44 at000e = ╱33╱3╱ // 0x1a3d @0xe
0x1a2f…1a44 at000f = ╱fe0000b805╱ // 0x1a3e @0xf
0x1a2f…1a44 at0014 = EOL // 0x1a43 @0x14
0x1a2f…1a44 }
0x1a44…1a4d a7a4 3390 INPUT D5$
0x1a44…1a4d LineComalBin {
0x1a44…1a4d ptr = 0xa7a4 // 0x1a44 @0x0
0x1a44…1a4d lno = 0x0d3e // 0x1a46 @0x2
0x1a44…1a4d at0004 = ╱91╱ INPUT ╱ // 0x1a48 @0x4
0x1a44…1a4d at0005 = ╱44╱D╱ // 0x1a49 @0x5
0x1a44…1a4d at0006 = ╱35╱5╱ // 0x1a4a @0x6
0x1a44…1a4d at0007 = ╱ef╱$╱ // 0x1a4b @0x7
0x1a44…1a4d at0008 = EOL // 0x1a4c @0x8
0x1a44…1a4d }
0x1a4d…1a5a a7b1 3400 EXEC NR(D5$)
0x1a4d…1a5a LineComalBin {
0x1a4d…1a5a ptr = 0xa7b1 // 0x1a4d @0x0
0x1a4d…1a5a lno = 0x0d48 // 0x1a4f @0x2
0x1a4d…1a5a at0004 = ╱9d╱ EXEC ╱ // 0x1a51 @0x4
0x1a4d…1a5a at0005 = ╱4e╱N╱ // 0x1a52 @0x5
0x1a4d…1a5a at0006 = ╱52╱R╱ // 0x1a53 @0x6
0x1a4d…1a5a at0007 = ╱ed╱(╱ // 0x1a54 @0x7
0x1a4d…1a5a at0008 = ╱44╱D╱ // 0x1a55 @0x8
0x1a4d…1a5a at0009 = ╱35╱5╱ // 0x1a56 @0x9
0x1a4d…1a5a at000a = ╱ef╱$╱ // 0x1a57 @0xa
0x1a4d…1a5a at000b = ╱ee╱)╱ // 0x1a58 @0xb
0x1a4d…1a5a at000c = EOL // 0x1a59 @0xc
0x1a4d…1a5a }
0x1a5a…1a7a a7d1 3410 UNTIL (P=-8 OR P>-G AND P<K7) AND H4=B
0x1a5a…1a7a LineComalBin {
0x1a5a…1a7a ptr = 0xa7d1 // 0x1a5a @0x0
0x1a5a…1a7a lno = 0x0d52 // 0x1a5c @0x2
0x1a5a…1a7a at0004 = ╱98╱ UNTIL ╱ // 0x1a5e @0x4
0x1a5a…1a7a at0005 = ╱ed╱(╱ // 0x1a5f @0x5
0x1a5a…1a7a at0006 = ╱50╱P╱ // 0x1a60 @0x6
0x1a5a…1a7a at0007 = ╱dc╱=╱ // 0x1a61 @0x7
0x1a5a…1a7a at0008 = ╱e9╱-╱ // 0x1a62 @0x8
0x1a5a…1a7a at0009 = ╱38╱8╱ // 0x1a63 @0x9
0x1a5a…1a7a at000a = ╱fe00008004╱ // 0x1a64 @0xa
0x1a5a…1a7a at000f = ╱db╱ OR ╱ // 0x1a69 @0xf
0x1a5a…1a7a at0010 = ╱50╱P╱ // 0x1a6a @0x10
0x1a5a…1a7a at0011 = ╱de╱>╱ // 0x1a6b @0x11
0x1a5a…1a7a at0012 = ╱e9╱-╱ // 0x1a6c @0x12
0x1a5a…1a7a at0013 = ╱47╱G╱ // 0x1a6d @0x13
0x1a5a…1a7a at0014 = ╱da╱ AND ╱ // 0x1a6e @0x14
0x1a5a…1a7a at0015 = ╱50╱P╱ // 0x1a6f @0x15
0x1a5a…1a7a at0016 = ╱dd╱<╱ // 0x1a70 @0x16
0x1a5a…1a7a at0017 = ╱4b╱K╱ // 0x1a71 @0x17
0x1a5a…1a7a at0018 = ╱37╱7╱ // 0x1a72 @0x18
0x1a5a…1a7a at0019 = ╱ee╱)╱ // 0x1a73 @0x19
0x1a5a…1a7a at001a = ╱da╱ AND ╱ // 0x1a74 @0x1a
0x1a5a…1a7a at001b = ╱48╱H╱ // 0x1a75 @0x1b
0x1a5a…1a7a at001c = ╱34╱4╱ // 0x1a76 @0x1c
0x1a5a…1a7a at001d = ╱dc╱=╱ // 0x1a77 @0x1d
0x1a5a…1a7a at001e = ╱42╱B╱ // 0x1a78 @0x1e
0x1a5a…1a7a at001f = EOL // 0x1a79 @0x1f
0x1a5a…1a7a }
0x1a7a…1a83 a7da 3420 K9=P
0x1a7a…1a83 LineComalBin {
0x1a7a…1a83 ptr = 0xa7da // 0x1a7a @0x0
0x1a7a…1a83 lno = 0x0d5c // 0x1a7c @0x2
0x1a7a…1a83 at0004 = ╱4b╱K╱ // 0x1a7e @0x4
0x1a7a…1a83 at0005 = ╱39╱9╱ // 0x1a7f @0x5
0x1a7a…1a83 at0006 = ╱dc╱=╱ // 0x1a80 @0x6
0x1a7a…1a83 at0007 = ╱50╱P╱ // 0x1a81 @0x7
0x1a7a…1a83 at0008 = EOL // 0x1a82 @0x8
0x1a7a…1a83 }
0x1a83…1a8f a7e6 3430 IF K9<E THEN EXIT
0x1a83…1a8f LineComalBin {
0x1a83…1a8f ptr = 0xa7e6 // 0x1a83 @0x0
0x1a83…1a8f lno = 0x0d66 // 0x1a85 @0x2
0x1a83…1a8f at0004 = ╱82╱ IF ╱ // 0x1a87 @0x4
0x1a83…1a8f at0005 = ╱4b╱K╱ // 0x1a88 @0x5
0x1a83…1a8f at0006 = ╱39╱9╱ // 0x1a89 @0x6
0x1a83…1a8f at0007 = ╱dd╱<╱ // 0x1a8a @0x7
0x1a83…1a8f at0008 = ╱45╱E╱ // 0x1a8b @0x8
0x1a83…1a8f at0009 = ╱b6╱ THEN ╱ // 0x1a8c @0x9
0x1a83…1a8f at000a = ╱99╱ EXIT ╱ // 0x1a8d @0xa
0x1a83…1a8f at000b = EOL // 0x1a8e @0xb
0x1a83…1a8f }
0x1a8f…1a98 a7ef 3440 K8=E
0x1a8f…1a98 LineComalBin {
0x1a8f…1a98 ptr = 0xa7ef // 0x1a8f @0x0
0x1a8f…1a98 lno = 0x0d70 // 0x1a91 @0x2
0x1a8f…1a98 at0004 = ╱4b╱K╱ // 0x1a93 @0x4
0x1a8f…1a98 at0005 = ╱38╱8╱ // 0x1a94 @0x5
0x1a8f…1a98 at0006 = ╱dc╱=╱ // 0x1a95 @0x6
0x1a8f…1a98 at0007 = ╱45╱E╱ // 0x1a96 @0x7
0x1a8f…1a98 at0008 = EOL // 0x1a97 @0x8
0x1a8f…1a98 }
0x1a98…1a9e a7f5 3450 REPEAT
0x1a98…1a9e LineComalBin {
0x1a98…1a9e ptr = 0xa7f5 // 0x1a98 @0x0
0x1a98…1a9e lno = 0x0d7a // 0x1a9a @0x2
0x1a98…1a9e at0004 = ╱97╱ REPEAT ╱ // 0x1a9c @0x4
0x1a98…1a9e at0005 = EOL // 0x1a9d @0x5
0x1a98…1a9e }
0x1a9e…1aa4 a7fb 3460 REPEAT
0x1a9e…1aa4 LineComalBin {
0x1a9e…1aa4 ptr = 0xa7fb // 0x1a9e @0x0
0x1a9e…1aa4 lno = 0x0d84 // 0x1aa0 @0x2
0x1a9e…1aa4 at0004 = ╱97╱ REPEAT ╱ // 0x1aa2 @0x4
0x1a9e…1aa4 at0005 = EOL // 0x1aa3 @0x5
0x1a9e…1aa4 }
0x1aa4…1ab3 a80a 3470 CURSOR V,23
0x1aa4…1ab3 LineComalBin {
0x1aa4…1ab3 ptr = 0xa80a // 0x1aa4 @0x0
0x1aa4…1ab3 lno = 0x0d8e // 0x1aa6 @0x2
0x1aa4…1ab3 at0004 = ╱a1╱ CURSOR ╱ // 0x1aa8 @0x4
0x1aa4…1ab3 at0005 = ╱56╱V╱ // 0x1aa9 @0x5
0x1aa4…1ab3 at0006 = ╱ec╱,╱ // 0x1aaa @0x6
0x1aa4…1ab3 at0007 = ╱32╱2╱ // 0x1aab @0x7
0x1aa4…1ab3 at0008 = ╱33╱3╱ // 0x1aac @0x8
0x1aa4…1ab3 at0009 = ╱fe0000b805╱ // 0x1aad @0x9
0x1aa4…1ab3 at000e = EOL // 0x1ab2 @0xe
0x1aa4…1ab3 }
0x1ab3…1af4 a84b 3480 PRINT "Linie:";K9;"Vælg ændring (0:Færdig,A:Annuller,1:Konto,";
0x1ab3…1af4 LineComalBin {
0x1ab3…1af4 ptr = 0xa84b // 0x1ab3 @0x0
0x1ab3…1af4 lno = 0x0d98 // 0x1ab5 @0x2
0x1ab3…1af4 at0004 = ╱92╱ PRINT ╱ // 0x1ab7 @0x4
0x1ab3…1af4 at0005 = ╱22╱"╱ // 0x1ab8 @0x5
0x1ab3…1af4 at0006 = ╱4c╱L╱ // 0x1ab9 @0x6
0x1ab3…1af4 at0007 = ╱69╱i╱ // 0x1aba @0x7
0x1ab3…1af4 at0008 = ╱6e╱n╱ // 0x1abb @0x8
0x1ab3…1af4 at0009 = ╱69╱i╱ // 0x1abc @0x9
0x1ab3…1af4 at000a = ╱65╱e╱ // 0x1abd @0xa
0x1ab3…1af4 at000b = ╱3a╱:╱ // 0x1abe @0xb
0x1ab3…1af4 at000c = ╱22╱"╱ // 0x1abf @0xc
0x1ab3…1af4 at000d = ╱eb╱;╱ // 0x1ac0 @0xd
0x1ab3…1af4 at000e = ╱4b╱K╱ // 0x1ac1 @0xe
0x1ab3…1af4 at000f = ╱39╱9╱ // 0x1ac2 @0xf
0x1ab3…1af4 at0010 = ╱eb╱;╱ // 0x1ac3 @0x10
0x1ab3…1af4 at0011 = ╱22╱"╱ // 0x1ac4 @0x11
0x1ab3…1af4 at0012 = ╱56╱V╱ // 0x1ac5 @0x12
0x1ab3…1af4 at0013 = ╱7b╱æ╱ // 0x1ac6 @0x13
0x1ab3…1af4 at0014 = ╱6c╱l╱ // 0x1ac7 @0x14
0x1ab3…1af4 at0015 = ╱67╱g╱ // 0x1ac8 @0x15
0x1ab3…1af4 at0016 = ╱20╱…╱ // 0x1ac9 @0x16
0x1ab3…1af4 at0017 = ╱7b╱æ╱ // 0x1aca @0x17
0x1ab3…1af4 at0018 = ╱6e╱n╱ // 0x1acb @0x18
0x1ab3…1af4 at0019 = ╱64╱d╱ // 0x1acc @0x19
0x1ab3…1af4 at001a = ╱72╱r╱ // 0x1acd @0x1a
0x1ab3…1af4 at001b = ╱69╱i╱ // 0x1ace @0x1b
0x1ab3…1af4 at001c = ╱6e╱n╱ // 0x1acf @0x1c
0x1ab3…1af4 at001d = ╱67╱g╱ // 0x1ad0 @0x1d
0x1ab3…1af4 at001e = ╱20╱…╱ // 0x1ad1 @0x1e
0x1ab3…1af4 at001f = ╱20╱…╱ // 0x1ad2 @0x1f
0x1ab3…1af4 at0020 = ╱20╱…╱ // 0x1ad3 @0x20
0x1ab3…1af4 at0021 = ╱28╱(╱ // 0x1ad4 @0x21
0x1ab3…1af4 at0022 = ╱30╱0╱ // 0x1ad5 @0x22
0x1ab3…1af4 at0023 = ╱3a╱:╱ // 0x1ad6 @0x23
0x1ab3…1af4 at0024 = ╱46╱F╱ // 0x1ad7 @0x24
0x1ab3…1af4 at0025 = ╱7b╱æ╱ // 0x1ad8 @0x25
0x1ab3…1af4 at0026 = ╱72╱r╱ // 0x1ad9 @0x26
0x1ab3…1af4 at0027 = ╱64╱d╱ // 0x1ada @0x27
0x1ab3…1af4 at0028 = ╱69╱i╱ // 0x1adb @0x28
0x1ab3…1af4 at0029 = ╱67╱g╱ // 0x1adc @0x29
0x1ab3…1af4 at002a = ╱2c╱,╱ // 0x1add @0x2a
0x1ab3…1af4 at002b = ╱41╱A╱ // 0x1ade @0x2b
0x1ab3…1af4 at002c = ╱3a╱:╱ // 0x1adf @0x2c
0x1ab3…1af4 at002d = ╱41╱A╱ // 0x1ae0 @0x2d
0x1ab3…1af4 at002e = ╱6e╱n╱ // 0x1ae1 @0x2e
0x1ab3…1af4 at002f = ╱6e╱n╱ // 0x1ae2 @0x2f
0x1ab3…1af4 at0030 = ╱75╱u╱ // 0x1ae3 @0x30
0x1ab3…1af4 at0031 = ╱6c╱l╱ // 0x1ae4 @0x31
0x1ab3…1af4 at0032 = ╱6c╱l╱ // 0x1ae5 @0x32
0x1ab3…1af4 at0033 = ╱65╱e╱ // 0x1ae6 @0x33
0x1ab3…1af4 at0034 = ╱72╱r╱ // 0x1ae7 @0x34
0x1ab3…1af4 at0035 = ╱2c╱,╱ // 0x1ae8 @0x35
0x1ab3…1af4 at0036 = ╱31╱1╱ // 0x1ae9 @0x36
0x1ab3…1af4 at0037 = ╱3a╱:╱ // 0x1aea @0x37
0x1ab3…1af4 at0038 = ╱4b╱K╱ // 0x1aeb @0x38
0x1ab3…1af4 at0039 = ╱6f╱o╱ // 0x1aec @0x39
0x1ab3…1af4 at003a = ╱6e╱n╱ // 0x1aed @0x3a
0x1ab3…1af4 at003b = ╱74╱t╱ // 0x1aee @0x3b
0x1ab3…1af4 at003c = ╱6f╱o╱ // 0x1aef @0x3c
0x1ab3…1af4 at003d = ╱2c╱,╱ // 0x1af0 @0x3d
0x1ab3…1af4 at003e = ╱22╱"╱ // 0x1af1 @0x3e
0x1ab3…1af4 at003f = ╱eb╱;╱ // 0x1af2 @0x3f
0x1ab3…1af4 at0040 = EOL // 0x1af3 @0x40
0x1ab3…1af4 }
0x1af4…1b13 a86a 3490 PRINT "2:Entre,3:Beløb,4:Kode)"
0x1af4…1b13 LineComalBin {
0x1af4…1b13 ptr = 0xa86a // 0x1af4 @0x0
0x1af4…1b13 lno = 0x0da2 // 0x1af6 @0x2
0x1af4…1b13 at0004 = ╱92╱ PRINT ╱ // 0x1af8 @0x4
0x1af4…1b13 at0005 = ╱22╱"╱ // 0x1af9 @0x5
0x1af4…1b13 at0006 = ╱32╱2╱ // 0x1afa @0x6
0x1af4…1b13 at0007 = ╱3a╱:╱ // 0x1afb @0x7
0x1af4…1b13 at0008 = ╱45╱E╱ // 0x1afc @0x8
0x1af4…1b13 at0009 = ╱6e╱n╱ // 0x1afd @0x9
0x1af4…1b13 at000a = ╱74╱t╱ // 0x1afe @0xa
0x1af4…1b13 at000b = ╱72╱r╱ // 0x1aff @0xb
0x1af4…1b13 at000c = ╱65╱e╱ // 0x1b00 @0xc
0x1af4…1b13 at000d = ╱2c╱,╱ // 0x1b01 @0xd
0x1af4…1b13 at000e = ╱33╱3╱ // 0x1b02 @0xe
0x1af4…1b13 at000f = ╱3a╱:╱ // 0x1b03 @0xf
0x1af4…1b13 at0010 = ╱42╱B╱ // 0x1b04 @0x10
0x1af4…1b13 at0011 = ╱65╱e╱ // 0x1b05 @0x11
0x1af4…1b13 at0012 = ╱6c╱l╱ // 0x1b06 @0x12
0x1af4…1b13 at0013 = ╱7c╱ø╱ // 0x1b07 @0x13
0x1af4…1b13 at0014 = ╱62╱b╱ // 0x1b08 @0x14
0x1af4…1b13 at0015 = ╱2c╱,╱ // 0x1b09 @0x15
0x1af4…1b13 at0016 = ╱34╱4╱ // 0x1b0a @0x16
0x1af4…1b13 at0017 = ╱3a╱:╱ // 0x1b0b @0x17
0x1af4…1b13 at0018 = ╱4b╱K╱ // 0x1b0c @0x18
0x1af4…1b13 at0019 = ╱6f╱o╱ // 0x1b0d @0x19
0x1af4…1b13 at001a = ╱64╱d╱ // 0x1b0e @0x1a
0x1af4…1b13 at001b = ╱65╱e╱ // 0x1b0f @0x1b
0x1af4…1b13 at001c = ╱29╱)╱ // 0x1b10 @0x1c
0x1af4…1b13 at001d = ╱22╱"╱ // 0x1b11 @0x1d
0x1af4…1b13 at001e = EOL // 0x1b12 @0x1e
0x1af4…1b13 }
0x1b13…1b28 a87f 3500 CURSOR 25,23
0x1b13…1b28 LineComalBin {
0x1b13…1b28 ptr = 0xa87f // 0x1b13 @0x0
0x1b13…1b28 lno = 0x0dac // 0x1b15 @0x2
0x1b13…1b28 at0004 = ╱a1╱ CURSOR ╱ // 0x1b17 @0x4
0x1b13…1b28 at0005 = ╱32╱2╱ // 0x1b18 @0x5
0x1b13…1b28 at0006 = ╱35╱5╱ // 0x1b19 @0x6
0x1b13…1b28 at0007 = ╱fe0000c805╱ // 0x1b1a @0x7
0x1b13…1b28 at000c = ╱ec╱,╱ // 0x1b1f @0xc
0x1b13…1b28 at000d = ╱32╱2╱ // 0x1b20 @0xd
0x1b13…1b28 at000e = ╱33╱3╱ // 0x1b21 @0xe
0x1b13…1b28 at000f = ╱fe0000b805╱ // 0x1b22 @0xf
0x1b13…1b28 at0014 = EOL // 0x1b27 @0x14
0x1b13…1b28 }
0x1b28…1b31 a888 3510 INPUT D5$
0x1b28…1b31 LineComalBin {
0x1b28…1b31 ptr = 0xa888 // 0x1b28 @0x0
0x1b28…1b31 lno = 0x0db6 // 0x1b2a @0x2
0x1b28…1b31 at0004 = ╱91╱ INPUT ╱ // 0x1b2c @0x4
0x1b28…1b31 at0005 = ╱44╱D╱ // 0x1b2d @0x5
0x1b28…1b31 at0006 = ╱35╱5╱ // 0x1b2e @0x6
0x1b28…1b31 at0007 = ╱ef╱$╱ // 0x1b2f @0x7
0x1b28…1b31 at0008 = EOL // 0x1b30 @0x8
0x1b28…1b31 }
0x1b31…1b3e a895 3520 EXEC NR(D5$)
0x1b31…1b3e LineComalBin {
0x1b31…1b3e ptr = 0xa895 // 0x1b31 @0x0
0x1b31…1b3e lno = 0x0dc0 // 0x1b33 @0x2
0x1b31…1b3e at0004 = ╱9d╱ EXEC ╱ // 0x1b35 @0x4
0x1b31…1b3e at0005 = ╱4e╱N╱ // 0x1b36 @0x5
0x1b31…1b3e at0006 = ╱52╱R╱ // 0x1b37 @0x6
0x1b31…1b3e at0007 = ╱ed╱(╱ // 0x1b38 @0x7
0x1b31…1b3e at0008 = ╱44╱D╱ // 0x1b39 @0x8
0x1b31…1b3e at0009 = ╱35╱5╱ // 0x1b3a @0x9
0x1b31…1b3e at000a = ╱ef╱$╱ // 0x1b3b @0xa
0x1b31…1b3e at000b = ╱ee╱)╱ // 0x1b3c @0xb
0x1b31…1b3e at000c = EOL // 0x1b3d @0xc
0x1b31…1b3e }
0x1b3e…1b5d a8b4 3530 UNTIL (P=-V OR P>-E AND P<5) AND H4=B
0x1b3e…1b5d LineComalBin {
0x1b3e…1b5d ptr = 0xa8b4 // 0x1b3e @0x0
0x1b3e…1b5d lno = 0x0dca // 0x1b40 @0x2
0x1b3e…1b5d at0004 = ╱98╱ UNTIL ╱ // 0x1b42 @0x4
0x1b3e…1b5d at0005 = ╱ed╱(╱ // 0x1b43 @0x5
0x1b3e…1b5d at0006 = ╱50╱P╱ // 0x1b44 @0x6
0x1b3e…1b5d at0007 = ╱dc╱=╱ // 0x1b45 @0x7
0x1b3e…1b5d at0008 = ╱e9╱-╱ // 0x1b46 @0x8
0x1b3e…1b5d at0009 = ╱56╱V╱ // 0x1b47 @0x9
0x1b3e…1b5d at000a = ╱db╱ OR ╱ // 0x1b48 @0xa
0x1b3e…1b5d at000b = ╱50╱P╱ // 0x1b49 @0xb
0x1b3e…1b5d at000c = ╱de╱>╱ // 0x1b4a @0xc
0x1b3e…1b5d at000d = ╱e9╱-╱ // 0x1b4b @0xd
0x1b3e…1b5d at000e = ╱45╱E╱ // 0x1b4c @0xe
0x1b3e…1b5d at000f = ╱da╱ AND ╱ // 0x1b4d @0xf
0x1b3e…1b5d at0010 = ╱50╱P╱ // 0x1b4e @0x10
0x1b3e…1b5d at0011 = ╱dd╱<╱ // 0x1b4f @0x11
0x1b3e…1b5d at0012 = ╱35╱5╱ // 0x1b50 @0x12
0x1b3e…1b5d at0013 = ╱fe0000a003╱ // 0x1b51 @0x13
0x1b3e…1b5d at0018 = ╱ee╱)╱ // 0x1b56 @0x18
0x1b3e…1b5d at0019 = ╱da╱ AND ╱ // 0x1b57 @0x19
0x1b3e…1b5d at001a = ╱48╱H╱ // 0x1b58 @0x1a
0x1b3e…1b5d at001b = ╱34╱4╱ // 0x1b59 @0x1b
0x1b3e…1b5d at001c = ╱dc╱=╱ // 0x1b5a @0x1c
0x1b3e…1b5d at001d = ╱42╱B╱ // 0x1b5b @0x1d
0x1b3e…1b5d at001e = EOL // 0x1b5c @0x1e
0x1b3e…1b5d }
0x1b5d…1b66 a8bd 3540 L0=P
0x1b5d…1b66 LineComalBin {
0x1b5d…1b66 ptr = 0xa8bd // 0x1b5d @0x0
0x1b5d…1b66 lno = 0x0dd4 // 0x1b5f @0x2
0x1b5d…1b66 at0004 = ╱4c╱L╱ // 0x1b61 @0x4
0x1b5d…1b66 at0005 = ╱30╱0╱ // 0x1b62 @0x5
0x1b5d…1b66 at0006 = ╱dc╱=╱ // 0x1b63 @0x6
0x1b5d…1b66 at0007 = ╱50╱P╱ // 0x1b64 @0x7
0x1b5d…1b66 at0008 = EOL // 0x1b65 @0x8
0x1b5d…1b66 }
0x1b66…1b72 a8c9 3550 IF L0=B THEN EXIT
0x1b66…1b72 LineComalBin {
0x1b66…1b72 ptr = 0xa8c9 // 0x1b66 @0x0
0x1b66…1b72 lno = 0x0dde // 0x1b68 @0x2
0x1b66…1b72 at0004 = ╱82╱ IF ╱ // 0x1b6a @0x4
0x1b66…1b72 at0005 = ╱4c╱L╱ // 0x1b6b @0x5
0x1b66…1b72 at0006 = ╱30╱0╱ // 0x1b6c @0x6
0x1b66…1b72 at0007 = ╱dc╱=╱ // 0x1b6d @0x7
0x1b66…1b72 at0008 = ╱42╱B╱ // 0x1b6e @0x8
0x1b66…1b72 at0009 = ╱b6╱ THEN ╱ // 0x1b6f @0x9
0x1b66…1b72 at000a = ╱99╱ EXIT ╱ // 0x1b70 @0xa
0x1b66…1b72 at000b = EOL // 0x1b71 @0xb
0x1b66…1b72 }
0x1b72…1b7c a8d3 3560 H5=K9
0x1b72…1b7c LineComalBin {
0x1b72…1b7c ptr = 0xa8d3 // 0x1b72 @0x0
0x1b72…1b7c lno = 0x0de8 // 0x1b74 @0x2
0x1b72…1b7c at0004 = ╱48╱H╱ // 0x1b76 @0x4
0x1b72…1b7c at0005 = ╱35╱5╱ // 0x1b77 @0x5
0x1b72…1b7c at0006 = ╱dc╱=╱ // 0x1b78 @0x6
0x1b72…1b7c at0007 = ╱4b╱K╱ // 0x1b79 @0x7
0x1b72…1b7c at0008 = ╱39╱9╱ // 0x1b7a @0x8
0x1b72…1b7c at0009 = EOL // 0x1b7b @0x9
0x1b72…1b7c }
0x1b7c…1b8b a8e2 3570 IF G2(K9)=B THEN
0x1b7c…1b8b LineComalBin {
0x1b7c…1b8b ptr = 0xa8e2 // 0x1b7c @0x0
0x1b7c…1b8b lno = 0x0df2 // 0x1b7e @0x2
0x1b7c…1b8b at0004 = ╱9c╱ IF ╱ // 0x1b80 @0x4
0x1b7c…1b8b at0005 = ╱47╱G╱ // 0x1b81 @0x5
0x1b7c…1b8b at0006 = ╱32╱2╱ // 0x1b82 @0x6
0x1b7c…1b8b at0007 = ╱ed╱(╱ // 0x1b83 @0x7
0x1b7c…1b8b at0008 = ╱4b╱K╱ // 0x1b84 @0x8
0x1b7c…1b8b at0009 = ╱39╱9╱ // 0x1b85 @0x9
0x1b7c…1b8b at000a = ╱ee╱)╱ // 0x1b86 @0xa
0x1b7c…1b8b at000b = ╱dc╱=╱ // 0x1b87 @0xb
0x1b7c…1b8b at000c = ╱42╱B╱ // 0x1b88 @0xc
0x1b7c…1b8b at000d = ╱b6╱ THEN ╱ // 0x1b89 @0xd
0x1b7c…1b8b at000e = EOL // 0x1b8a @0xe
0x1b7c…1b8b }
0x1b8b…1b97 a8ee 3580 CURSOR V,H5+V
0x1b8b…1b97 LineComalBin {
0x1b8b…1b97 ptr = 0xa8ee // 0x1b8b @0x0
0x1b8b…1b97 lno = 0x0dfc // 0x1b8d @0x2
0x1b8b…1b97 at0004 = ╱a1╱ CURSOR ╱ // 0x1b8f @0x4
0x1b8b…1b97 at0005 = ╱56╱V╱ // 0x1b90 @0x5
0x1b8b…1b97 at0006 = ╱ec╱,╱ // 0x1b91 @0x6
0x1b8b…1b97 at0007 = ╱48╱H╱ // 0x1b92 @0x7
0x1b8b…1b97 at0008 = ╱35╱5╱ // 0x1b93 @0x8
0x1b8b…1b97 at0009 = ╱e2╱+╱ // 0x1b94 @0x9
0x1b8b…1b97 at000a = ╱56╱V╱ // 0x1b95 @0xa
0x1b8b…1b97 at000b = EOL // 0x1b96 @0xb
0x1b8b…1b97 }
0x1b97…1bb6 a90d 3590 PRINT "Postering er annulleret"
0x1b97…1bb6 LineComalBin {
0x1b97…1bb6 ptr = 0xa90d // 0x1b97 @0x0
0x1b97…1bb6 lno = 0x0e06 // 0x1b99 @0x2
0x1b97…1bb6 at0004 = ╱92╱ PRINT ╱ // 0x1b9b @0x4
0x1b97…1bb6 at0005 = ╱22╱"╱ // 0x1b9c @0x5
0x1b97…1bb6 at0006 = ╱50╱P╱ // 0x1b9d @0x6
0x1b97…1bb6 at0007 = ╱6f╱o╱ // 0x1b9e @0x7
0x1b97…1bb6 at0008 = ╱73╱s╱ // 0x1b9f @0x8
0x1b97…1bb6 at0009 = ╱74╱t╱ // 0x1ba0 @0x9
0x1b97…1bb6 at000a = ╱65╱e╱ // 0x1ba1 @0xa
0x1b97…1bb6 at000b = ╱72╱r╱ // 0x1ba2 @0xb
0x1b97…1bb6 at000c = ╱69╱i╱ // 0x1ba3 @0xc
0x1b97…1bb6 at000d = ╱6e╱n╱ // 0x1ba4 @0xd
0x1b97…1bb6 at000e = ╱67╱g╱ // 0x1ba5 @0xe
0x1b97…1bb6 at000f = ╱20╱…╱ // 0x1ba6 @0xf
0x1b97…1bb6 at0010 = ╱65╱e╱ // 0x1ba7 @0x10
0x1b97…1bb6 at0011 = ╱72╱r╱ // 0x1ba8 @0x11
0x1b97…1bb6 at0012 = ╱20╱…╱ // 0x1ba9 @0x12
0x1b97…1bb6 at0013 = ╱61╱a╱ // 0x1baa @0x13
0x1b97…1bb6 at0014 = ╱6e╱n╱ // 0x1bab @0x14
0x1b97…1bb6 at0015 = ╱6e╱n╱ // 0x1bac @0x15
0x1b97…1bb6 at0016 = ╱75╱u╱ // 0x1bad @0x16
0x1b97…1bb6 at0017 = ╱6c╱l╱ // 0x1bae @0x17
0x1b97…1bb6 at0018 = ╱6c╱l╱ // 0x1baf @0x18
0x1b97…1bb6 at0019 = ╱65╱e╱ // 0x1bb0 @0x19
0x1b97…1bb6 at001a = ╱72╱r╱ // 0x1bb1 @0x1a
0x1b97…1bb6 at001b = ╱65╱e╱ // 0x1bb2 @0x1b
0x1b97…1bb6 at001c = ╱74╱t╱ // 0x1bb3 @0x1c
0x1b97…1bb6 at001d = ╱22╱"╱ // 0x1bb4 @0x1d
0x1b97…1bb6 at001e = EOL // 0x1bb5 @0x1e
0x1b97…1bb6 }
0x1bb6…1bbc a913 3600 ELSE
0x1bb6…1bbc LineComalBin {
0x1bb6…1bbc ptr = 0xa913 // 0x1bb6 @0x0
0x1bb6…1bbc lno = 0x0e10 // 0x1bb8 @0x2
0x1bb6…1bbc at0004 = ╱9a╱ ELSE ╱ // 0x1bba @0x4
0x1bb6…1bbc at0005 = EOL // 0x1bbb @0x5
0x1bb6…1bbc }
0x1bbc…1be1 a938 3610 IF L0<>E THEN EXEC ÆN(1,G6$(K9),G7(K9))
0x1bbc…1be1 LineComalBin {
0x1bbc…1be1 ptr = 0xa938 // 0x1bbc @0x0
0x1bbc…1be1 lno = 0x0e1a // 0x1bbe @0x2
0x1bbc…1be1 at0004 = ╱82╱ IF ╱ // 0x1bc0 @0x4
0x1bbc…1be1 at0005 = ╱4c╱L╱ // 0x1bc1 @0x5
0x1bbc…1be1 at0006 = ╱30╱0╱ // 0x1bc2 @0x6
0x1bbc…1be1 at0007 = ╱e1╱<>╱ // 0x1bc3 @0x7
0x1bbc…1be1 at0008 = ╱45╱E╱ // 0x1bc4 @0x8
0x1bbc…1be1 at0009 = ╱b6╱ THEN ╱ // 0x1bc5 @0x9
0x1bbc…1be1 at000a = ╱9d╱ EXEC ╱ // 0x1bc6 @0xa
0x1bbc…1be1 at000b = ╱5b╱Æ╱ // 0x1bc7 @0xb
0x1bbc…1be1 at000c = ╱4e╱N╱ // 0x1bc8 @0xc
0x1bbc…1be1 at000d = ╱ed╱(╱ // 0x1bc9 @0xd
0x1bbc…1be1 at000e = ╱31╱1╱ // 0x1bca @0xe
0x1bbc…1be1 at000f = ╱fe00008001╱ // 0x1bcb @0xf
0x1bbc…1be1 at0014 = ╱ec╱,╱ // 0x1bd0 @0x14
0x1bbc…1be1 at0015 = ╱47╱G╱ // 0x1bd1 @0x15
0x1bbc…1be1 at0016 = ╱36╱6╱ // 0x1bd2 @0x16
0x1bbc…1be1 at0017 = ╱ef╱$╱ // 0x1bd3 @0x17
0x1bbc…1be1 at0018 = ╱ed╱(╱ // 0x1bd4 @0x18
0x1bbc…1be1 at0019 = ╱4b╱K╱ // 0x1bd5 @0x19
0x1bbc…1be1 at001a = ╱39╱9╱ // 0x1bd6 @0x1a
0x1bbc…1be1 at001b = ╱ee╱)╱ // 0x1bd7 @0x1b
0x1bbc…1be1 at001c = ╱ec╱,╱ // 0x1bd8 @0x1c
0x1bbc…1be1 at001d = ╱47╱G╱ // 0x1bd9 @0x1d
0x1bbc…1be1 at001e = ╱37╱7╱ // 0x1bda @0x1e
0x1bbc…1be1 at001f = ╱ed╱(╱ // 0x1bdb @0x1f
0x1bbc…1be1 at0020 = ╱4b╱K╱ // 0x1bdc @0x20
0x1bbc…1be1 at0021 = ╱39╱9╱ // 0x1bdd @0x21
0x1bbc…1be1 at0022 = ╱ee╱)╱ // 0x1bde @0x22
0x1bbc…1be1 at0023 = ╱ee╱)╱ // 0x1bdf @0x23
0x1bbc…1be1 at0024 = EOL // 0x1be0 @0x24
0x1bbc…1be1 }
0x1be1…1bed a944 3620 IF L0=-V THEN
0x1be1…1bed LineComalBin {
0x1be1…1bed ptr = 0xa944 // 0x1be1 @0x0
0x1be1…1bed lno = 0x0e24 // 0x1be3 @0x2
0x1be1…1bed at0004 = ╱9c╱ IF ╱ // 0x1be5 @0x4
0x1be1…1bed at0005 = ╱4c╱L╱ // 0x1be6 @0x5
0x1be1…1bed at0006 = ╱30╱0╱ // 0x1be7 @0x6
0x1be1…1bed at0007 = ╱dc╱=╱ // 0x1be8 @0x7
0x1be1…1bed at0008 = ╱e9╱-╱ // 0x1be9 @0x8
0x1be1…1bed at0009 = ╱56╱V╱ // 0x1bea @0x9
0x1be1…1bed at000a = ╱b6╱ THEN ╱ // 0x1beb @0xa
0x1be1…1bed at000b = EOL // 0x1bec @0xb
0x1be1…1bed }
0x1bed…1bfd a954 3630 EXEC SL(5)
0x1bed…1bfd LineComalBin {
0x1bed…1bfd ptr = 0xa954 // 0x1bed @0x0
0x1bed…1bfd lno = 0x0e2e // 0x1bef @0x2
0x1bed…1bfd at0004 = ╱9d╱ EXEC ╱ // 0x1bf1 @0x4
0x1bed…1bfd at0005 = ╱53╱S╱ // 0x1bf2 @0x5
0x1bed…1bfd at0006 = ╱4c╱L╱ // 0x1bf3 @0x6
0x1bed…1bfd at0007 = ╱ed╱(╱ // 0x1bf4 @0x7
0x1bed…1bfd at0008 = ╱35╱5╱ // 0x1bf5 @0x8
0x1bed…1bfd at0009 = ╱fe0000a003╱ // 0x1bf6 @0x9
0x1bed…1bfd at000e = ╱ee╱)╱ // 0x1bfb @0xe
0x1bed…1bfd at000f = EOL // 0x1bfc @0xf
0x1bed…1bfd }
0x1bfd…1c0a a961 3640 G2(K9)=B
0x1bfd…1c0a LineComalBin {
0x1bfd…1c0a ptr = 0xa961 // 0x1bfd @0x0
0x1bfd…1c0a lno = 0x0e38 // 0x1bff @0x2
0x1bfd…1c0a at0004 = ╱47╱G╱ // 0x1c01 @0x4
0x1bfd…1c0a at0005 = ╱32╱2╱ // 0x1c02 @0x5
0x1bfd…1c0a at0006 = ╱ed╱(╱ // 0x1c03 @0x6
0x1bfd…1c0a at0007 = ╱4b╱K╱ // 0x1c04 @0x7
0x1bfd…1c0a at0008 = ╱39╱9╱ // 0x1c05 @0x8
0x1bfd…1c0a at0009 = ╱ee╱)╱ // 0x1c06 @0x9
0x1bfd…1c0a at000a = ╱dc╱=╱ // 0x1c07 @0xa
0x1bfd…1c0a at000b = ╱42╱B╱ // 0x1c08 @0xb
0x1bfd…1c0a at000c = EOL // 0x1c09 @0xc
0x1bfd…1c0a }
0x1c0a…1c10 a967 3650 ELSE
0x1c0a…1c10 LineComalBin {
0x1c0a…1c10 ptr = 0xa967 // 0x1c0a @0x0
0x1c0a…1c10 lno = 0x0e42 // 0x1c0c @0x2
0x1c0a…1c10 at0004 = ╱9a╱ ELSE ╱ // 0x1c0e @0x4
0x1c0a…1c10 at0005 = EOL // 0x1c0f @0x5
0x1c0a…1c10 }
0x1c10…1c53 a9aa 3660 L0=L0+G;L1=L0;I1=E;H6=G2(K9);F4$=G6$(K9);H8=G7(K9);H16=G12(K9)
0x1c10…1c53 LineComalBin {
0x1c10…1c53 ptr = 0xa9aa // 0x1c10 @0x0
0x1c10…1c53 lno = 0x0e4c // 0x1c12 @0x2
0x1c10…1c53 at0004 = ╱4c╱L╱ // 0x1c14 @0x4
0x1c10…1c53 at0005 = ╱30╱0╱ // 0x1c15 @0x5
0x1c10…1c53 at0006 = ╱dc╱=╱ // 0x1c16 @0x6
0x1c10…1c53 at0007 = ╱4c╱L╱ // 0x1c17 @0x7
0x1c10…1c53 at0008 = ╱30╱0╱ // 0x1c18 @0x8
0x1c10…1c53 at0009 = ╱e2╱+╱ // 0x1c19 @0x9
0x1c10…1c53 at000a = ╱47╱G╱ // 0x1c1a @0xa
0x1c10…1c53 at000b = ╱eb╱;╱ // 0x1c1b @0xb
0x1c10…1c53 at000c = ╱4c╱L╱ // 0x1c1c @0xc
0x1c10…1c53 at000d = ╱31╱1╱ // 0x1c1d @0xd
0x1c10…1c53 at000e = ╱dc╱=╱ // 0x1c1e @0xe
0x1c10…1c53 at000f = ╱4c╱L╱ // 0x1c1f @0xf
0x1c10…1c53 at0010 = ╱30╱0╱ // 0x1c20 @0x10
0x1c10…1c53 at0011 = ╱eb╱;╱ // 0x1c21 @0x11
0x1c10…1c53 at0012 = ╱49╱I╱ // 0x1c22 @0x12
0x1c10…1c53 at0013 = ╱31╱1╱ // 0x1c23 @0x13
0x1c10…1c53 at0014 = ╱dc╱=╱ // 0x1c24 @0x14
0x1c10…1c53 at0015 = ╱45╱E╱ // 0x1c25 @0x15
0x1c10…1c53 at0016 = ╱eb╱;╱ // 0x1c26 @0x16
0x1c10…1c53 at0017 = ╱48╱H╱ // 0x1c27 @0x17
0x1c10…1c53 at0018 = ╱36╱6╱ // 0x1c28 @0x18
0x1c10…1c53 at0019 = ╱dc╱=╱ // 0x1c29 @0x19
0x1c10…1c53 at001a = ╱47╱G╱ // 0x1c2a @0x1a
0x1c10…1c53 at001b = ╱32╱2╱ // 0x1c2b @0x1b
0x1c10…1c53 at001c = ╱ed╱(╱ // 0x1c2c @0x1c
0x1c10…1c53 at001d = ╱4b╱K╱ // 0x1c2d @0x1d
0x1c10…1c53 at001e = ╱39╱9╱ // 0x1c2e @0x1e
0x1c10…1c53 at001f = ╱ee╱)╱ // 0x1c2f @0x1f
0x1c10…1c53 at0020 = ╱eb╱;╱ // 0x1c30 @0x20
0x1c10…1c53 at0021 = ╱46╱F╱ // 0x1c31 @0x21
0x1c10…1c53 at0022 = ╱34╱4╱ // 0x1c32 @0x22
0x1c10…1c53 at0023 = ╱ef╱$╱ // 0x1c33 @0x23
0x1c10…1c53 at0024 = ╱dc╱=╱ // 0x1c34 @0x24
0x1c10…1c53 at0025 = ╱47╱G╱ // 0x1c35 @0x25
0x1c10…1c53 at0026 = ╱36╱6╱ // 0x1c36 @0x26
0x1c10…1c53 at0027 = ╱ef╱$╱ // 0x1c37 @0x27
0x1c10…1c53 at0028 = ╱ed╱(╱ // 0x1c38 @0x28
0x1c10…1c53 at0029 = ╱4b╱K╱ // 0x1c39 @0x29
0x1c10…1c53 at002a = ╱39╱9╱ // 0x1c3a @0x2a
0x1c10…1c53 at002b = ╱ee╱)╱ // 0x1c3b @0x2b
0x1c10…1c53 at002c = ╱eb╱;╱ // 0x1c3c @0x2c
0x1c10…1c53 at002d = ╱48╱H╱ // 0x1c3d @0x2d
0x1c10…1c53 at002e = ╱38╱8╱ // 0x1c3e @0x2e
0x1c10…1c53 at002f = ╱dc╱=╱ // 0x1c3f @0x2f
0x1c10…1c53 at0030 = ╱47╱G╱ // 0x1c40 @0x30
0x1c10…1c53 at0031 = ╱37╱7╱ // 0x1c41 @0x31
0x1c10…1c53 at0032 = ╱ed╱(╱ // 0x1c42 @0x32
0x1c10…1c53 at0033 = ╱4b╱K╱ // 0x1c43 @0x33
0x1c10…1c53 at0034 = ╱39╱9╱ // 0x1c44 @0x34
0x1c10…1c53 at0035 = ╱ee╱)╱ // 0x1c45 @0x35
0x1c10…1c53 at0036 = ╱eb╱;╱ // 0x1c46 @0x36
0x1c10…1c53 at0037 = ╱48╱H╱ // 0x1c47 @0x37
0x1c10…1c53 at0038 = ╱31╱1╱ // 0x1c48 @0x38
0x1c10…1c53 at0039 = ╱36╱6╱ // 0x1c49 @0x39
0x1c10…1c53 at003a = ╱dc╱=╱ // 0x1c4a @0x3a
0x1c10…1c53 at003b = ╱47╱G╱ // 0x1c4b @0x3b
0x1c10…1c53 at003c = ╱31╱1╱ // 0x1c4c @0x3c
0x1c10…1c53 at003d = ╱32╱2╱ // 0x1c4d @0x3d
0x1c10…1c53 at003e = ╱ed╱(╱ // 0x1c4e @0x3e
0x1c10…1c53 at003f = ╱4b╱K╱ // 0x1c4f @0x3f
0x1c10…1c53 at0040 = ╱39╱9╱ // 0x1c50 @0x40
0x1c10…1c53 at0041 = ╱ee╱)╱ // 0x1c51 @0x41
0x1c10…1c53 at0042 = EOL // 0x1c52 @0x42
0x1c10…1c53 }
0x1c53…1c5f a9b6 3670 EXEC IN(L0)
0x1c53…1c5f LineComalBin {
0x1c53…1c5f ptr = 0xa9b6 // 0x1c53 @0x0
0x1c53…1c5f lno = 0x0e56 // 0x1c55 @0x2
0x1c53…1c5f at0004 = ╱9d╱ EXEC ╱ // 0x1c57 @0x4
0x1c53…1c5f at0005 = ╱49╱I╱ // 0x1c58 @0x5
0x1c53…1c5f at0006 = ╱4e╱N╱ // 0x1c59 @0x6
0x1c53…1c5f at0007 = ╱ed╱(╱ // 0x1c5a @0x7
0x1c53…1c5f at0008 = ╱4c╱L╱ // 0x1c5b @0x8
0x1c53…1c5f at0009 = ╱30╱0╱ // 0x1c5c @0x9
0x1c53…1c5f at000a = ╱ee╱)╱ // 0x1c5d @0xa
0x1c53…1c5f at000b = EOL // 0x1c5e @0xb
0x1c53…1c5f }
0x1c5f…1c8f a9e6 3680 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8;G12(K9)=H16
0x1c5f…1c8f LineComalBin {
0x1c5f…1c8f ptr = 0xa9e6 // 0x1c5f @0x0
0x1c5f…1c8f lno = 0x0e60 // 0x1c61 @0x2
0x1c5f…1c8f at0004 = ╱47╱G╱ // 0x1c63 @0x4
0x1c5f…1c8f at0005 = ╱32╱2╱ // 0x1c64 @0x5
0x1c5f…1c8f at0006 = ╱ed╱(╱ // 0x1c65 @0x6
0x1c5f…1c8f at0007 = ╱4b╱K╱ // 0x1c66 @0x7
0x1c5f…1c8f at0008 = ╱39╱9╱ // 0x1c67 @0x8
0x1c5f…1c8f at0009 = ╱ee╱)╱ // 0x1c68 @0x9
0x1c5f…1c8f at000a = ╱dc╱=╱ // 0x1c69 @0xa
0x1c5f…1c8f at000b = ╱48╱H╱ // 0x1c6a @0xb
0x1c5f…1c8f at000c = ╱36╱6╱ // 0x1c6b @0xc
0x1c5f…1c8f at000d = ╱eb╱;╱ // 0x1c6c @0xd
0x1c5f…1c8f at000e = ╱47╱G╱ // 0x1c6d @0xe
0x1c5f…1c8f at000f = ╱36╱6╱ // 0x1c6e @0xf
0x1c5f…1c8f at0010 = ╱ef╱$╱ // 0x1c6f @0x10
0x1c5f…1c8f at0011 = ╱ed╱(╱ // 0x1c70 @0x11
0x1c5f…1c8f at0012 = ╱4b╱K╱ // 0x1c71 @0x12
0x1c5f…1c8f at0013 = ╱39╱9╱ // 0x1c72 @0x13
0x1c5f…1c8f at0014 = ╱ee╱)╱ // 0x1c73 @0x14
0x1c5f…1c8f at0015 = ╱dc╱=╱ // 0x1c74 @0x15
0x1c5f…1c8f at0016 = ╱46╱F╱ // 0x1c75 @0x16
0x1c5f…1c8f at0017 = ╱34╱4╱ // 0x1c76 @0x17
0x1c5f…1c8f at0018 = ╱ef╱$╱ // 0x1c77 @0x18
0x1c5f…1c8f at0019 = ╱eb╱;╱ // 0x1c78 @0x19
0x1c5f…1c8f at001a = ╱47╱G╱ // 0x1c79 @0x1a
0x1c5f…1c8f at001b = ╱37╱7╱ // 0x1c7a @0x1b
0x1c5f…1c8f at001c = ╱ed╱(╱ // 0x1c7b @0x1c
0x1c5f…1c8f at001d = ╱4b╱K╱ // 0x1c7c @0x1d
0x1c5f…1c8f at001e = ╱39╱9╱ // 0x1c7d @0x1e
0x1c5f…1c8f at001f = ╱ee╱)╱ // 0x1c7e @0x1f
0x1c5f…1c8f at0020 = ╱dc╱=╱ // 0x1c7f @0x20
0x1c5f…1c8f at0021 = ╱48╱H╱ // 0x1c80 @0x21
0x1c5f…1c8f at0022 = ╱38╱8╱ // 0x1c81 @0x22
0x1c5f…1c8f at0023 = ╱eb╱;╱ // 0x1c82 @0x23
0x1c5f…1c8f at0024 = ╱47╱G╱ // 0x1c83 @0x24
0x1c5f…1c8f at0025 = ╱31╱1╱ // 0x1c84 @0x25
0x1c5f…1c8f at0026 = ╱32╱2╱ // 0x1c85 @0x26
0x1c5f…1c8f at0027 = ╱ed╱(╱ // 0x1c86 @0x27
0x1c5f…1c8f at0028 = ╱4b╱K╱ // 0x1c87 @0x28
0x1c5f…1c8f at0029 = ╱39╱9╱ // 0x1c88 @0x29
0x1c5f…1c8f at002a = ╱ee╱)╱ // 0x1c89 @0x2a
0x1c5f…1c8f at002b = ╱dc╱=╱ // 0x1c8a @0x2b
0x1c5f…1c8f at002c = ╱48╱H╱ // 0x1c8b @0x2c
0x1c5f…1c8f at002d = ╱31╱1╱ // 0x1c8c @0x2d
0x1c5f…1c8f at002e = ╱36╱6╱ // 0x1c8d @0x2e
0x1c5f…1c8f at002f = EOL // 0x1c8e @0x2f
0x1c5f…1c8f }
0x1c8f…1cac aa03 3690 IF L1<>V THEN EXEC ÆN(0,F4$,H8)
0x1c8f…1cac LineComalBin {
0x1c8f…1cac ptr = 0xaa03 // 0x1c8f @0x0
0x1c8f…1cac lno = 0x0e6a // 0x1c91 @0x2
0x1c8f…1cac at0004 = ╱82╱ IF ╱ // 0x1c93 @0x4
0x1c8f…1cac at0005 = ╱4c╱L╱ // 0x1c94 @0x5
0x1c8f…1cac at0006 = ╱31╱1╱ // 0x1c95 @0x6
0x1c8f…1cac at0007 = ╱e1╱<>╱ // 0x1c96 @0x7
0x1c8f…1cac at0008 = ╱56╱V╱ // 0x1c97 @0x8
0x1c8f…1cac at0009 = ╱b6╱ THEN ╱ // 0x1c98 @0x9
0x1c8f…1cac at000a = ╱9d╱ EXEC ╱ // 0x1c99 @0xa
0x1c8f…1cac at000b = ╱5b╱Æ╱ // 0x1c9a @0xb
0x1c8f…1cac at000c = ╱4e╱N╱ // 0x1c9b @0xc
0x1c8f…1cac at000d = ╱ed╱(╱ // 0x1c9c @0xd
0x1c8f…1cac at000e = ╱30╱0╱ // 0x1c9d @0xe
0x1c8f…1cac at000f = ╱fe00000000╱ // 0x1c9e @0xf
0x1c8f…1cac at0014 = ╱ec╱,╱ // 0x1ca3 @0x14
0x1c8f…1cac at0015 = ╱46╱F╱ // 0x1ca4 @0x15
0x1c8f…1cac at0016 = ╱34╱4╱ // 0x1ca5 @0x16
0x1c8f…1cac at0017 = ╱ef╱$╱ // 0x1ca6 @0x17
0x1c8f…1cac at0018 = ╱ec╱,╱ // 0x1ca7 @0x18
0x1c8f…1cac at0019 = ╱48╱H╱ // 0x1ca8 @0x19
0x1c8f…1cac at001a = ╱38╱8╱ // 0x1ca9 @0x1a
0x1c8f…1cac at001b = ╱ee╱)╱ // 0x1caa @0x1b
0x1c8f…1cac at001c = EOL // 0x1cab @0x1c
0x1c8f…1cac }
0x1cac…1cb2 aa09 3700 ENDIF
0x1cac…1cb2 LineComalBin {
0x1cac…1cb2 ptr = 0xaa09 // 0x1cac @0x0
0x1cac…1cb2 lno = 0x0e74 // 0x1cae @0x2
0x1cac…1cb2 at0004 = ╱9b╱ ENDIF ╱ // 0x1cb0 @0x4
0x1cac…1cb2 at0005 = EOL // 0x1cb1 @0x5
0x1cac…1cb2 }
0x1cb2…1cb8 aa0f 3710 ENDIF
0x1cb2…1cb8 LineComalBin {
0x1cb2…1cb8 ptr = 0xaa0f // 0x1cb2 @0x0
0x1cb2…1cb8 lno = 0x0e7e // 0x1cb4 @0x2
0x1cb2…1cb8 at0004 = ╱9b╱ ENDIF ╱ // 0x1cb6 @0x4
0x1cb2…1cb8 at0005 = EOL // 0x1cb7 @0x5
0x1cb2…1cb8 }
0x1cb8…1cc8 aa1f 3720 UNTIL L0=-V OR L0=B
0x1cb8…1cc8 LineComalBin {
0x1cb8…1cc8 ptr = 0xaa1f // 0x1cb8 @0x0
0x1cb8…1cc8 lno = 0x0e88 // 0x1cba @0x2
0x1cb8…1cc8 at0004 = ╱98╱ UNTIL ╱ // 0x1cbc @0x4
0x1cb8…1cc8 at0005 = ╱4c╱L╱ // 0x1cbd @0x5
0x1cb8…1cc8 at0006 = ╱30╱0╱ // 0x1cbe @0x6
0x1cb8…1cc8 at0007 = ╱dc╱=╱ // 0x1cbf @0x7
0x1cb8…1cc8 at0008 = ╱e9╱-╱ // 0x1cc0 @0x8
0x1cb8…1cc8 at0009 = ╱56╱V╱ // 0x1cc1 @0x9
0x1cb8…1cc8 at000a = ╱db╱ OR ╱ // 0x1cc2 @0xa
0x1cb8…1cc8 at000b = ╱4c╱L╱ // 0x1cc3 @0xb
0x1cb8…1cc8 at000c = ╱30╱0╱ // 0x1cc4 @0xc
0x1cb8…1cc8 at000d = ╱dc╱=╱ // 0x1cc5 @0xd
0x1cb8…1cc8 at000e = ╱42╱B╱ // 0x1cc6 @0xe
0x1cb8…1cc8 at000f = EOL // 0x1cc7 @0xf
0x1cb8…1cc8 }
0x1cc8…1cd2 aa29 3730 UNTIL K9<E
0x1cc8…1cd2 LineComalBin {
0x1cc8…1cd2 ptr = 0xaa29 // 0x1cc8 @0x0
0x1cc8…1cd2 lno = 0x0e92 // 0x1cca @0x2
0x1cc8…1cd2 at0004 = ╱98╱ UNTIL ╱ // 0x1ccc @0x4
0x1cc8…1cd2 at0005 = ╱4b╱K╱ // 0x1ccd @0x5
0x1cc8…1cd2 at0006 = ╱39╱9╱ // 0x1cce @0x6
0x1cc8…1cd2 at0007 = ╱dd╱<╱ // 0x1ccf @0x7
0x1cc8…1cd2 at0008 = ╱45╱E╱ // 0x1cd0 @0x8
0x1cc8…1cd2 at0009 = EOL // 0x1cd1 @0x9
0x1cc8…1cd2 }
0x1cd2…1cdd aa34 3740 IF K8=E THEN
0x1cd2…1cdd LineComalBin {
0x1cd2…1cdd ptr = 0xaa34 // 0x1cd2 @0x0
0x1cd2…1cdd lno = 0x0e9c // 0x1cd4 @0x2
0x1cd2…1cdd at0004 = ╱9c╱ IF ╱ // 0x1cd6 @0x4
0x1cd2…1cdd at0005 = ╱4b╱K╱ // 0x1cd7 @0x5
0x1cd2…1cdd at0006 = ╱38╱8╱ // 0x1cd8 @0x6
0x1cd2…1cdd at0007 = ╱dc╱=╱ // 0x1cd9 @0x7
0x1cd2…1cdd at0008 = ╱45╱E╱ // 0x1cda @0x8
0x1cd2…1cdd at0009 = ╱b6╱ THEN ╱ // 0x1cdb @0x9
0x1cd2…1cdd at000a = EOL // 0x1cdc @0xa
0x1cd2…1cdd }
0x1cdd…1cee aa45 3750 FOR I=E TO 18
0x1cdd…1cee LineComalBin {
0x1cdd…1cee ptr = 0xaa45 // 0x1cdd @0x0
0x1cdd…1cee lno = 0x0ea6 // 0x1cdf @0x2
0x1cdd…1cee at0004 = ╱83╱ FOR ╱ // 0x1ce1 @0x4
0x1cdd…1cee at0005 = ╱49╱I╱ // 0x1ce2 @0x5
0x1cdd…1cee at0006 = ╱dc╱=╱ // 0x1ce3 @0x6
0x1cdd…1cee at0007 = ╱45╱E╱ // 0x1ce4 @0x7
0x1cdd…1cee at0008 = ╱b7╱ TO ╱ // 0x1ce5 @0x8
0x1cdd…1cee at0009 = ╱31╱1╱ // 0x1ce6 @0x9
0x1cdd…1cee at000a = ╱38╱8╱ // 0x1ce7 @0xa
0x1cdd…1cee at000b = ╱fe00009005╱ // 0x1ce8 @0xb
0x1cdd…1cee at0010 = EOL // 0x1ced @0x10
0x1cdd…1cee }
0x1cee…1d31 aa88 3760 EXEC GP(D2$,K3,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))
0x1cee…1d31 LineComalBin {
0x1cee…1d31 ptr = 0xaa88 // 0x1cee @0x0
0x1cee…1d31 lno = 0x0eb0 // 0x1cf0 @0x2
0x1cee…1d31 at0004 = ╱9d╱ EXEC ╱ // 0x1cf2 @0x4
0x1cee…1d31 at0005 = ╱47╱G╱ // 0x1cf3 @0x5
0x1cee…1d31 at0006 = ╱50╱P╱ // 0x1cf4 @0x6
0x1cee…1d31 at0007 = ╱ed╱(╱ // 0x1cf5 @0x7
0x1cee…1d31 at0008 = ╱44╱D╱ // 0x1cf6 @0x8
0x1cee…1d31 at0009 = ╱32╱2╱ // 0x1cf7 @0x9
0x1cee…1d31 at000a = ╱ef╱$╱ // 0x1cf8 @0xa
0x1cee…1d31 at000b = ╱ec╱,╱ // 0x1cf9 @0xb
0x1cee…1d31 at000c = ╱4b╱K╱ // 0x1cfa @0xc
0x1cee…1d31 at000d = ╱33╱3╱ // 0x1cfb @0xd
0x1cee…1d31 at000e = ╱ec╱,╱ // 0x1cfc @0xe
0x1cee…1d31 at000f = ╱47╱G╱ // 0x1cfd @0xf
0x1cee…1d31 at0010 = ╱32╱2╱ // 0x1cfe @0x10
0x1cee…1d31 at0011 = ╱ed╱(╱ // 0x1cff @0x11
0x1cee…1d31 at0012 = ╱49╱I╱ // 0x1d00 @0x12
0x1cee…1d31 at0013 = ╱ee╱)╱ // 0x1d01 @0x13
0x1cee…1d31 at0014 = ╱ec╱,╱ // 0x1d02 @0x14
0x1cee…1d31 at0015 = ╱47╱G╱ // 0x1d03 @0x15
0x1cee…1d31 at0016 = ╱33╱3╱ // 0x1d04 @0x16
0x1cee…1d31 at0017 = ╱ed╱(╱ // 0x1d05 @0x17
0x1cee…1d31 at0018 = ╱49╱I╱ // 0x1d06 @0x18
0x1cee…1d31 at0019 = ╱ee╱)╱ // 0x1d07 @0x19
0x1cee…1d31 at001a = ╱ec╱,╱ // 0x1d08 @0x1a
0x1cee…1d31 at001b = ╱47╱G╱ // 0x1d09 @0x1b
0x1cee…1d31 at001c = ╱34╱4╱ // 0x1d0a @0x1c
0x1cee…1d31 at001d = ╱ed╱(╱ // 0x1d0b @0x1d
0x1cee…1d31 at001e = ╱49╱I╱ // 0x1d0c @0x1e
0x1cee…1d31 at001f = ╱ee╱)╱ // 0x1d0d @0x1f
0x1cee…1d31 at0020 = ╱ec╱,╱ // 0x1d0e @0x20
0x1cee…1d31 at0021 = ╱47╱G╱ // 0x1d0f @0x21
0x1cee…1d31 at0022 = ╱35╱5╱ // 0x1d10 @0x22
0x1cee…1d31 at0023 = ╱ed╱(╱ // 0x1d11 @0x23
0x1cee…1d31 at0024 = ╱49╱I╱ // 0x1d12 @0x24
0x1cee…1d31 at0025 = ╱ee╱)╱ // 0x1d13 @0x25
0x1cee…1d31 at0026 = ╱ec╱,╱ // 0x1d14 @0x26
0x1cee…1d31 at0027 = ╱47╱G╱ // 0x1d15 @0x27
0x1cee…1d31 at0028 = ╱38╱8╱ // 0x1d16 @0x28
0x1cee…1d31 at0029 = ╱ef╱$╱ // 0x1d17 @0x29
0x1cee…1d31 at002a = ╱ed╱(╱ // 0x1d18 @0x2a
0x1cee…1d31 at002b = ╱49╱I╱ // 0x1d19 @0x2b
0x1cee…1d31 at002c = ╱ee╱)╱ // 0x1d1a @0x2c
0x1cee…1d31 at002d = ╱ec╱,╱ // 0x1d1b @0x2d
0x1cee…1d31 at002e = ╱47╱G╱ // 0x1d1c @0x2e
0x1cee…1d31 at002f = ╱36╱6╱ // 0x1d1d @0x2f
0x1cee…1d31 at0030 = ╱ef╱$╱ // 0x1d1e @0x30
0x1cee…1d31 at0031 = ╱ed╱(╱ // 0x1d1f @0x31
0x1cee…1d31 at0032 = ╱49╱I╱ // 0x1d20 @0x32
0x1cee…1d31 at0033 = ╱ee╱)╱ // 0x1d21 @0x33
0x1cee…1d31 at0034 = ╱ec╱,╱ // 0x1d22 @0x34
0x1cee…1d31 at0035 = ╱47╱G╱ // 0x1d23 @0x35
0x1cee…1d31 at0036 = ╱37╱7╱ // 0x1d24 @0x36
0x1cee…1d31 at0037 = ╱ed╱(╱ // 0x1d25 @0x37
0x1cee…1d31 at0038 = ╱49╱I╱ // 0x1d26 @0x38
0x1cee…1d31 at0039 = ╱ee╱)╱ // 0x1d27 @0x39
0x1cee…1d31 at003a = ╱ec╱,╱ // 0x1d28 @0x3a
0x1cee…1d31 at003b = ╱47╱G╱ // 0x1d29 @0x3b
0x1cee…1d31 at003c = ╱31╱1╱ // 0x1d2a @0x3c
0x1cee…1d31 at003d = ╱32╱2╱ // 0x1d2b @0x3d
0x1cee…1d31 at003e = ╱ed╱(╱ // 0x1d2c @0x3e
0x1cee…1d31 at003f = ╱49╱I╱ // 0x1d2d @0x3f
0x1cee…1d31 at0040 = ╱ee╱)╱ // 0x1d2e @0x40
0x1cee…1d31 at0041 = ╱ee╱)╱ // 0x1d2f @0x41
0x1cee…1d31 at0042 = EOL // 0x1d30 @0x42
0x1cee…1d31 }
0x1d31…1d3d aa94 3770 K3=K3+E
0x1d31…1d3d LineComalBin {
0x1d31…1d3d ptr = 0xaa94 // 0x1d31 @0x0
0x1d31…1d3d lno = 0x0eba // 0x1d33 @0x2
0x1d31…1d3d at0004 = ╱4b╱K╱ // 0x1d35 @0x4
0x1d31…1d3d at0005 = ╱33╱3╱ // 0x1d36 @0x5
0x1d31…1d3d at0006 = ╱dc╱=╱ // 0x1d37 @0x6
0x1d31…1d3d at0007 = ╱4b╱K╱ // 0x1d38 @0x7
0x1d31…1d3d at0008 = ╱33╱3╱ // 0x1d39 @0x8
0x1d31…1d3d at0009 = ╱e2╱+╱ // 0x1d3a @0x9
0x1d31…1d3d at000a = ╱45╱E╱ // 0x1d3b @0xa
0x1d31…1d3d at000b = EOL // 0x1d3c @0xb
0x1d31…1d3d }
0x1d3d…1d4a aaa1 3780 IF K3=K2 THEN EXIT
0x1d3d…1d4a LineComalBin {
0x1d3d…1d4a ptr = 0xaaa1 // 0x1d3d @0x0
0x1d3d…1d4a lno = 0x0ec4 // 0x1d3f @0x2
0x1d3d…1d4a at0004 = ╱82╱ IF ╱ // 0x1d41 @0x4
0x1d3d…1d4a at0005 = ╱4b╱K╱ // 0x1d42 @0x5
0x1d3d…1d4a at0006 = ╱33╱3╱ // 0x1d43 @0x6
0x1d3d…1d4a at0007 = ╱dc╱=╱ // 0x1d44 @0x7
0x1d3d…1d4a at0008 = ╱4b╱K╱ // 0x1d45 @0x8
0x1d3d…1d4a at0009 = ╱32╱2╱ // 0x1d46 @0x9
0x1d3d…1d4a at000a = ╱b6╱ THEN ╱ // 0x1d47 @0xa
0x1d3d…1d4a at000b = ╱99╱ EXIT ╱ // 0x1d48 @0xb
0x1d3d…1d4a at000c = EOL // 0x1d49 @0xc
0x1d3d…1d4a }
0x1d4a…1d51 aaa8 3790 NEXT I
0x1d4a…1d51 LineComalBin {
0x1d4a…1d51 ptr = 0xaaa8 // 0x1d4a @0x0
0x1d4a…1d51 lno = 0x0ece // 0x1d4c @0x2
0x1d4a…1d51 at0004 = ╱84╱ NEXT ╱ // 0x1d4e @0x4
0x1d4a…1d51 at0005 = ╱49╱I╱ // 0x1d4f @0x5
0x1d4a…1d51 at0006 = EOL // 0x1d50 @0x6
0x1d4a…1d51 }
0x1d51…1d59 aab0 3800 EXEC SY
0x1d51…1d59 LineComalBin {
0x1d51…1d59 ptr = 0xaab0 // 0x1d51 @0x0
0x1d51…1d59 lno = 0x0ed8 // 0x1d53 @0x2
0x1d51…1d59 at0004 = ╱9d╱ EXEC ╱ // 0x1d55 @0x4
0x1d51…1d59 at0005 = ╱53╱S╱ // 0x1d56 @0x5
0x1d51…1d59 at0006 = ╱59╱Y╱ // 0x1d57 @0x6
0x1d51…1d59 at0007 = EOL // 0x1d58 @0x7
0x1d51…1d59 }
0x1d59…1d5f aab6 3810 ENDIF
0x1d59…1d5f LineComalBin {
0x1d59…1d5f ptr = 0xaab6 // 0x1d59 @0x0
0x1d59…1d5f lno = 0x0ee2 // 0x1d5b @0x2
0x1d59…1d5f at0004 = ╱9b╱ ENDIF ╱ // 0x1d5d @0x4
0x1d59…1d5f at0005 = EOL // 0x1d5e @0x5
0x1d59…1d5f }
0x1d5f…1d74 aacb 3820 UNTIL K9=B OR K9=-8
0x1d5f…1d74 LineComalBin {
0x1d5f…1d74 ptr = 0xaacb // 0x1d5f @0x0
0x1d5f…1d74 lno = 0x0eec // 0x1d61 @0x2
0x1d5f…1d74 at0004 = ╱98╱ UNTIL ╱ // 0x1d63 @0x4
0x1d5f…1d74 at0005 = ╱4b╱K╱ // 0x1d64 @0x5
0x1d5f…1d74 at0006 = ╱39╱9╱ // 0x1d65 @0x6
0x1d5f…1d74 at0007 = ╱dc╱=╱ // 0x1d66 @0x7
0x1d5f…1d74 at0008 = ╱42╱B╱ // 0x1d67 @0x8
0x1d5f…1d74 at0009 = ╱db╱ OR ╱ // 0x1d68 @0x9
0x1d5f…1d74 at000a = ╱4b╱K╱ // 0x1d69 @0xa
0x1d5f…1d74 at000b = ╱39╱9╱ // 0x1d6a @0xb
0x1d5f…1d74 at000c = ╱dc╱=╱ // 0x1d6b @0xc
0x1d5f…1d74 at000d = ╱e9╱-╱ // 0x1d6c @0xd
0x1d5f…1d74 at000e = ╱38╱8╱ // 0x1d6d @0xe
0x1d5f…1d74 at000f = ╱fe00008004╱ // 0x1d6e @0xf
0x1d5f…1d74 at0014 = EOL // 0x1d73 @0x14
0x1d5f…1d74 }
0x1d74…1d85 aadc 3830 IF K9=-8 THEN
0x1d74…1d85 LineComalBin {
0x1d74…1d85 ptr = 0xaadc // 0x1d74 @0x0
0x1d74…1d85 lno = 0x0ef6 // 0x1d76 @0x2
0x1d74…1d85 at0004 = ╱9c╱ IF ╱ // 0x1d78 @0x4
0x1d74…1d85 at0005 = ╱4b╱K╱ // 0x1d79 @0x5
0x1d74…1d85 at0006 = ╱39╱9╱ // 0x1d7a @0x6
0x1d74…1d85 at0007 = ╱dc╱=╱ // 0x1d7b @0x7
0x1d74…1d85 at0008 = ╱e9╱-╱ // 0x1d7c @0x8
0x1d74…1d85 at0009 = ╱38╱8╱ // 0x1d7d @0x9
0x1d74…1d85 at000a = ╱fe00008004╱ // 0x1d7e @0xa
0x1d74…1d85 at000f = ╱b6╱ THEN ╱ // 0x1d83 @0xf
0x1d74…1d85 at0010 = EOL // 0x1d84 @0x10
0x1d74…1d85 }
0x1d85…1d8b aae2 3840 CLEAR
0x1d85…1d8b LineComalBin {
0x1d85…1d8b ptr = 0xaae2 // 0x1d85 @0x0
0x1d85…1d8b lno = 0x0f00 // 0x1d87 @0x2
0x1d85…1d8b at0004 = ╱a0╱ CLEAR ╱ // 0x1d89 @0x4
0x1d85…1d8b at0005 = EOL // 0x1d8a @0x5
0x1d85…1d8b }
0x1d8b…1d93 aaea 3850 EXEC UH
0x1d8b…1d93 LineComalBin {
0x1d8b…1d93 ptr = 0xaaea // 0x1d8b @0x0
0x1d8b…1d93 lno = 0x0f0a // 0x1d8d @0x2
0x1d8b…1d93 at0004 = ╱9d╱ EXEC ╱ // 0x1d8f @0x4
0x1d8b…1d93 at0005 = ╱55╱U╱ // 0x1d90 @0x5
0x1d8b…1d93 at0006 = ╱48╱H╱ // 0x1d91 @0x6
0x1d8b…1d93 at0007 = EOL // 0x1d92 @0x7
0x1d8b…1d93 }
0x1d93…1da1 aaf8 3860 H5=E;I1=G
0x1d93…1da1 LineComalBin {
0x1d93…1da1 ptr = 0xaaf8 // 0x1d93 @0x0
0x1d93…1da1 lno = 0x0f14 // 0x1d95 @0x2
0x1d93…1da1 at0004 = ╱48╱H╱ // 0x1d97 @0x4
0x1d93…1da1 at0005 = ╱35╱5╱ // 0x1d98 @0x5
0x1d93…1da1 at0006 = ╱dc╱=╱ // 0x1d99 @0x6
0x1d93…1da1 at0007 = ╱45╱E╱ // 0x1d9a @0x7
0x1d93…1da1 at0008 = ╱eb╱;╱ // 0x1d9b @0x8
0x1d93…1da1 at0009 = ╱49╱I╱ // 0x1d9c @0x9
0x1d93…1da1 at000a = ╱31╱1╱ // 0x1d9d @0xa
0x1d93…1da1 at000b = ╱dc╱=╱ // 0x1d9e @0xb
0x1d93…1da1 at000c = ╱47╱G╱ // 0x1d9f @0xc
0x1d93…1da1 at000d = EOL // 0x1da0 @0xd
0x1d93…1da1 }
0x1da1…1db1 ab08 3870 EXEC IN(1)
0x1da1…1db1 LineComalBin {
0x1da1…1db1 ptr = 0xab08 // 0x1da1 @0x0
0x1da1…1db1 lno = 0x0f1e // 0x1da3 @0x2
0x1da1…1db1 at0004 = ╱9d╱ EXEC ╱ // 0x1da5 @0x4
0x1da1…1db1 at0005 = ╱49╱I╱ // 0x1da6 @0x5
0x1da1…1db1 at0006 = ╱4e╱N╱ // 0x1da7 @0x6
0x1da1…1db1 at0007 = ╱ed╱(╱ // 0x1da8 @0x7
0x1da1…1db1 at0008 = ╱31╱1╱ // 0x1da9 @0x8
0x1da1…1db1 at0009 = ╱fe00008001╱ // 0x1daa @0x9
0x1da1…1db1 at000e = ╱ee╱)╱ // 0x1daf @0xe
0x1da1…1db1 at000f = EOL // 0x1db0 @0xf
0x1da1…1db1 }
0x1db1…1db7 ab0e 3880 ENDIF
0x1db1…1db7 LineComalBin {
0x1db1…1db7 ptr = 0xab0e // 0x1db1 @0x0
0x1db1…1db7 lno = 0x0f28 // 0x1db3 @0x2
0x1db1…1db7 at0004 = ╱9b╱ ENDIF ╱ // 0x1db5 @0x4
0x1db1…1db7 at0005 = EOL // 0x1db6 @0x5
0x1db1…1db7 }
0x1db7…1dbd ab14 3890 ENDPROC
0x1db7…1dbd LineComalBin {
0x1db7…1dbd ptr = 0xab14 // 0x1db7 @0x0
0x1db7…1dbd lno = 0x0f32 // 0x1db9 @0x2
0x1db7…1dbd at0004 = ╱9f╱ ENDPROC ╱ // 0x1dbb @0x4
0x1db7…1dbd at0005 = EOL // 0x1dbc @0x5
0x1db7…1dbd }
0x1dbd…1dc5 ab1c 3900 PROC SY
0x1dbd…1dc5 LineComalBin {
0x1dbd…1dc5 ptr = 0xab1c // 0x1dbd @0x0
0x1dbd…1dc5 lno = 0x0f3c // 0x1dbf @0x2
0x1dbd…1dc5 at0004 = ╱9e╱ PROC ╱ // 0x1dc1 @0x4
0x1dbd…1dc5 at0005 = ╱53╱S╱ // 0x1dc2 @0x5
0x1dbd…1dc5 at0006 = ╱59╱Y╱ // 0x1dc3 @0x6
0x1dbd…1dc5 at0007 = EOL // 0x1dc4 @0x7
0x1dbd…1dc5 }
0x1dc5…1df7 ab4e 3910 E8(4)=L2;E8(8)=I0;F0(G)=I4;G1(E)=L3
0x1dc5…1df7 LineComalBin {
0x1dc5…1df7 ptr = 0xab4e // 0x1dc5 @0x0
0x1dc5…1df7 lno = 0x0f46 // 0x1dc7 @0x2
0x1dc5…1df7 at0004 = ╱45╱E╱ // 0x1dc9 @0x4
0x1dc5…1df7 at0005 = ╱38╱8╱ // 0x1dca @0x5
0x1dc5…1df7 at0006 = ╱ed╱(╱ // 0x1dcb @0x6
0x1dc5…1df7 at0007 = ╱34╱4╱ // 0x1dcc @0x7
0x1dc5…1df7 at0008 = ╱fe00008003╱ // 0x1dcd @0x8
0x1dc5…1df7 at000d = ╱ee╱)╱ // 0x1dd2 @0xd
0x1dc5…1df7 at000e = ╱dc╱=╱ // 0x1dd3 @0xe
0x1dc5…1df7 at000f = ╱4c╱L╱ // 0x1dd4 @0xf
0x1dc5…1df7 at0010 = ╱32╱2╱ // 0x1dd5 @0x10
0x1dc5…1df7 at0011 = ╱eb╱;╱ // 0x1dd6 @0x11
0x1dc5…1df7 at0012 = ╱45╱E╱ // 0x1dd7 @0x12
0x1dc5…1df7 at0013 = ╱38╱8╱ // 0x1dd8 @0x13
0x1dc5…1df7 at0014 = ╱ed╱(╱ // 0x1dd9 @0x14
0x1dc5…1df7 at0015 = ╱38╱8╱ // 0x1dda @0x15
0x1dc5…1df7 at0016 = ╱fe00008004╱ // 0x1ddb @0x16
0x1dc5…1df7 at001b = ╱ee╱)╱ // 0x1de0 @0x1b
0x1dc5…1df7 at001c = ╱dc╱=╱ // 0x1de1 @0x1c
0x1dc5…1df7 at001d = ╱49╱I╱ // 0x1de2 @0x1d
0x1dc5…1df7 at001e = ╱30╱0╱ // 0x1de3 @0x1e
0x1dc5…1df7 at001f = ╱eb╱;╱ // 0x1de4 @0x1f
0x1dc5…1df7 at0020 = ╱46╱F╱ // 0x1de5 @0x20
0x1dc5…1df7 at0021 = ╱30╱0╱ // 0x1de6 @0x21
0x1dc5…1df7 at0022 = ╱ed╱(╱ // 0x1de7 @0x22
0x1dc5…1df7 at0023 = ╱47╱G╱ // 0x1de8 @0x23
0x1dc5…1df7 at0024 = ╱ee╱)╱ // 0x1de9 @0x24
0x1dc5…1df7 at0025 = ╱dc╱=╱ // 0x1dea @0x25
0x1dc5…1df7 at0026 = ╱49╱I╱ // 0x1deb @0x26
0x1dc5…1df7 at0027 = ╱34╱4╱ // 0x1dec @0x27
0x1dc5…1df7 at0028 = ╱eb╱;╱ // 0x1ded @0x28
0x1dc5…1df7 at0029 = ╱47╱G╱ // 0x1dee @0x29
0x1dc5…1df7 at002a = ╱31╱1╱ // 0x1def @0x2a
0x1dc5…1df7 at002b = ╱ed╱(╱ // 0x1df0 @0x2b
0x1dc5…1df7 at002c = ╱45╱E╱ // 0x1df1 @0x2c
0x1dc5…1df7 at002d = ╱ee╱)╱ // 0x1df2 @0x2d
0x1dc5…1df7 at002e = ╱dc╱=╱ // 0x1df3 @0x2e
0x1dc5…1df7 at002f = ╱4c╱L╱ // 0x1df4 @0x2f
0x1dc5…1df7 at0030 = ╱33╱3╱ // 0x1df5 @0x30
0x1dc5…1df7 at0031 = EOL // 0x1df6 @0x31
0x1dc5…1df7 }
0x1df7…1e02 ab59 3920 OPEN E2$,W
0x1df7…1e02 LineComalBin {
0x1df7…1e02 ptr = 0xab59 // 0x1df7 @0x0
0x1df7…1e02 lno = 0x0f50 // 0x1df9 @0x2
0x1df7…1e02 at0004 = ╱a7╱ OPEN ╱ // 0x1dfb @0x4
0x1df7…1e02 at0005 = ╱45╱E╱ // 0x1dfc @0x5
0x1df7…1e02 at0006 = ╱32╱2╱ // 0x1dfd @0x6
0x1df7…1e02 at0007 = ╱ef╱$╱ // 0x1dfe @0x7
0x1df7…1e02 at0008 = ╱ec╱,╱ // 0x1dff @0x8
0x1df7…1e02 at0009 = ╱57╱W╱ // 0x1e00 @0x9
0x1df7…1e02 at000a = EOL // 0x1e01 @0xa
0x1df7…1e02 }
0x1e02…1e13 ab6a 3930 EXEC FE(V,E,E2$)
0x1e02…1e13 LineComalBin {
0x1e02…1e13 ptr = 0xab6a // 0x1e02 @0x0
0x1e02…1e13 lno = 0x0f5a // 0x1e04 @0x2
0x1e02…1e13 at0004 = ╱9d╱ EXEC ╱ // 0x1e06 @0x4
0x1e02…1e13 at0005 = ╱46╱F╱ // 0x1e07 @0x5
0x1e02…1e13 at0006 = ╱45╱E╱ // 0x1e08 @0x6
0x1e02…1e13 at0007 = ╱ed╱(╱ // 0x1e09 @0x7
0x1e02…1e13 at0008 = ╱56╱V╱ // 0x1e0a @0x8
0x1e02…1e13 at0009 = ╱ec╱,╱ // 0x1e0b @0x9
0x1e02…1e13 at000a = ╱45╱E╱ // 0x1e0c @0xa
0x1e02…1e13 at000b = ╱ec╱,╱ // 0x1e0d @0xb
0x1e02…1e13 at000c = ╱45╱E╱ // 0x1e0e @0xc
0x1e02…1e13 at000d = ╱32╱2╱ // 0x1e0f @0xd
0x1e02…1e13 at000e = ╱ef╱$╱ // 0x1e10 @0xe
0x1e02…1e13 at000f = ╱ee╱)╱ // 0x1e11 @0xf
0x1e02…1e13 at0010 = EOL // 0x1e12 @0x10
0x1e02…1e13 }
0x1e13…1e6d abc4 3940 PUT E2$,G:E8(E),E8(G),E8(V),E8(4),E8(5),E8(6),E8(7),E8(8),E8(W)
0x1e13…1e6d LineComalBin {
0x1e13…1e6d ptr = 0xabc4 // 0x1e13 @0x0
0x1e13…1e6d lno = 0x0f64 // 0x1e15 @0x2
0x1e13…1e6d at0004 = ╱aa╱ PUT ╱ // 0x1e17 @0x4
0x1e13…1e6d at0005 = ╱45╱E╱ // 0x1e18 @0x5
0x1e13…1e6d at0006 = ╱32╱2╱ // 0x1e19 @0x6
0x1e13…1e6d at0007 = ╱ef╱$╱ // 0x1e1a @0x7
0x1e13…1e6d at0008 = ╱ec╱,╱ // 0x1e1b @0x8
0x1e13…1e6d at0009 = ╱47╱G╱ // 0x1e1c @0x9
0x1e13…1e6d at000a = ╱f0╱:╱ // 0x1e1d @0xa
0x1e13…1e6d at000b = ╱45╱E╱ // 0x1e1e @0xb
0x1e13…1e6d at000c = ╱38╱8╱ // 0x1e1f @0xc
0x1e13…1e6d at000d = ╱ed╱(╱ // 0x1e20 @0xd
0x1e13…1e6d at000e = ╱45╱E╱ // 0x1e21 @0xe
0x1e13…1e6d at000f = ╱ee╱)╱ // 0x1e22 @0xf
0x1e13…1e6d at0010 = ╱ec╱,╱ // 0x1e23 @0x10
0x1e13…1e6d at0011 = ╱45╱E╱ // 0x1e24 @0x11
0x1e13…1e6d at0012 = ╱38╱8╱ // 0x1e25 @0x12
0x1e13…1e6d at0013 = ╱ed╱(╱ // 0x1e26 @0x13
0x1e13…1e6d at0014 = ╱47╱G╱ // 0x1e27 @0x14
0x1e13…1e6d at0015 = ╱ee╱)╱ // 0x1e28 @0x15
0x1e13…1e6d at0016 = ╱ec╱,╱ // 0x1e29 @0x16
0x1e13…1e6d at0017 = ╱45╱E╱ // 0x1e2a @0x17
0x1e13…1e6d at0018 = ╱38╱8╱ // 0x1e2b @0x18
0x1e13…1e6d at0019 = ╱ed╱(╱ // 0x1e2c @0x19
0x1e13…1e6d at001a = ╱56╱V╱ // 0x1e2d @0x1a
0x1e13…1e6d at001b = ╱ee╱)╱ // 0x1e2e @0x1b
0x1e13…1e6d at001c = ╱ec╱,╱ // 0x1e2f @0x1c
0x1e13…1e6d at001d = ╱45╱E╱ // 0x1e30 @0x1d
0x1e13…1e6d at001e = ╱38╱8╱ // 0x1e31 @0x1e
0x1e13…1e6d at001f = ╱ed╱(╱ // 0x1e32 @0x1f
0x1e13…1e6d at0020 = ╱34╱4╱ // 0x1e33 @0x20
0x1e13…1e6d at0021 = ╱fe00008003╱ // 0x1e34 @0x21
0x1e13…1e6d at0026 = ╱ee╱)╱ // 0x1e39 @0x26
0x1e13…1e6d at0027 = ╱ec╱,╱ // 0x1e3a @0x27
0x1e13…1e6d at0028 = ╱45╱E╱ // 0x1e3b @0x28
0x1e13…1e6d at0029 = ╱38╱8╱ // 0x1e3c @0x29
0x1e13…1e6d at002a = ╱ed╱(╱ // 0x1e3d @0x2a
0x1e13…1e6d at002b = ╱35╱5╱ // 0x1e3e @0x2b
0x1e13…1e6d at002c = ╱fe0000a003╱ // 0x1e3f @0x2c
0x1e13…1e6d at0031 = ╱ee╱)╱ // 0x1e44 @0x31
0x1e13…1e6d at0032 = ╱ec╱,╱ // 0x1e45 @0x32
0x1e13…1e6d at0033 = ╱45╱E╱ // 0x1e46 @0x33
0x1e13…1e6d at0034 = ╱38╱8╱ // 0x1e47 @0x34
0x1e13…1e6d at0035 = ╱ed╱(╱ // 0x1e48 @0x35
0x1e13…1e6d at0036 = ╱36╱6╱ // 0x1e49 @0x36
0x1e13…1e6d at0037 = ╱fe0000c003╱ // 0x1e4a @0x37
0x1e13…1e6d at003c = ╱ee╱)╱ // 0x1e4f @0x3c
0x1e13…1e6d at003d = ╱ec╱,╱ // 0x1e50 @0x3d
0x1e13…1e6d at003e = ╱45╱E╱ // 0x1e51 @0x3e
0x1e13…1e6d at003f = ╱38╱8╱ // 0x1e52 @0x3f
0x1e13…1e6d at0040 = ╱ed╱(╱ // 0x1e53 @0x40
0x1e13…1e6d at0041 = ╱37╱7╱ // 0x1e54 @0x41
0x1e13…1e6d at0042 = ╱fe0000e003╱ // 0x1e55 @0x42
0x1e13…1e6d at0047 = ╱ee╱)╱ // 0x1e5a @0x47
0x1e13…1e6d at0048 = ╱ec╱,╱ // 0x1e5b @0x48
0x1e13…1e6d at0049 = ╱45╱E╱ // 0x1e5c @0x49
0x1e13…1e6d at004a = ╱38╱8╱ // 0x1e5d @0x4a
0x1e13…1e6d at004b = ╱ed╱(╱ // 0x1e5e @0x4b
0x1e13…1e6d at004c = ╱38╱8╱ // 0x1e5f @0x4c
0x1e13…1e6d at004d = ╱fe00008004╱ // 0x1e60 @0x4d
0x1e13…1e6d at0052 = ╱ee╱)╱ // 0x1e65 @0x52
0x1e13…1e6d at0053 = ╱ec╱,╱ // 0x1e66 @0x53
0x1e13…1e6d at0054 = ╱45╱E╱ // 0x1e67 @0x54
0x1e13…1e6d at0055 = ╱38╱8╱ // 0x1e68 @0x55
0x1e13…1e6d at0056 = ╱ed╱(╱ // 0x1e69 @0x56
0x1e13…1e6d at0057 = ╱57╱W╱ // 0x1e6a @0x57
0x1e13…1e6d at0058 = ╱ee╱)╱ // 0x1e6b @0x58
0x1e13…1e6d at0059 = EOL // 0x1e6c @0x59
0x1e13…1e6d }
0x1e6d…1e7e abd5 3950 EXEC FE(V,G,E2$)
0x1e6d…1e7e LineComalBin {
0x1e6d…1e7e ptr = 0xabd5 // 0x1e6d @0x0
0x1e6d…1e7e lno = 0x0f6e // 0x1e6f @0x2
0x1e6d…1e7e at0004 = ╱9d╱ EXEC ╱ // 0x1e71 @0x4
0x1e6d…1e7e at0005 = ╱46╱F╱ // 0x1e72 @0x5
0x1e6d…1e7e at0006 = ╱45╱E╱ // 0x1e73 @0x6
0x1e6d…1e7e at0007 = ╱ed╱(╱ // 0x1e74 @0x7
0x1e6d…1e7e at0008 = ╱56╱V╱ // 0x1e75 @0x8
0x1e6d…1e7e at0009 = ╱ec╱,╱ // 0x1e76 @0x9
0x1e6d…1e7e at000a = ╱47╱G╱ // 0x1e77 @0xa
0x1e6d…1e7e at000b = ╱ec╱,╱ // 0x1e78 @0xb
0x1e6d…1e7e at000c = ╱45╱E╱ // 0x1e79 @0xc
0x1e6d…1e7e at000d = ╱32╱2╱ // 0x1e7a @0xd
0x1e6d…1e7e at000e = ╱ef╱$╱ // 0x1e7b @0xe
0x1e6d…1e7e at000f = ╱ee╱)╱ // 0x1e7c @0xf
0x1e6d…1e7e at0010 = EOL // 0x1e7d @0x10
0x1e6d…1e7e }
0x1e7e…1ede ac35 3960 PUT E2$,12:F0(E),F0(G),F0(V),F0(4),F0(5),F0(6),F0(7),F0(8),F0(W)
0x1e7e…1ede LineComalBin {
0x1e7e…1ede ptr = 0xac35 // 0x1e7e @0x0
0x1e7e…1ede lno = 0x0f78 // 0x1e80 @0x2
0x1e7e…1ede at0004 = ╱aa╱ PUT ╱ // 0x1e82 @0x4
0x1e7e…1ede at0005 = ╱45╱E╱ // 0x1e83 @0x5
0x1e7e…1ede at0006 = ╱32╱2╱ // 0x1e84 @0x6
0x1e7e…1ede at0007 = ╱ef╱$╱ // 0x1e85 @0x7
0x1e7e…1ede at0008 = ╱ec╱,╱ // 0x1e86 @0x8
0x1e7e…1ede at0009 = ╱31╱1╱ // 0x1e87 @0x9
0x1e7e…1ede at000a = ╱32╱2╱ // 0x1e88 @0xa
0x1e7e…1ede at000b = ╱fe0000c004╱ // 0x1e89 @0xb
0x1e7e…1ede at0010 = ╱f0╱:╱ // 0x1e8e @0x10
0x1e7e…1ede at0011 = ╱46╱F╱ // 0x1e8f @0x11
0x1e7e…1ede at0012 = ╱30╱0╱ // 0x1e90 @0x12
0x1e7e…1ede at0013 = ╱ed╱(╱ // 0x1e91 @0x13
0x1e7e…1ede at0014 = ╱45╱E╱ // 0x1e92 @0x14
0x1e7e…1ede at0015 = ╱ee╱)╱ // 0x1e93 @0x15
0x1e7e…1ede at0016 = ╱ec╱,╱ // 0x1e94 @0x16
0x1e7e…1ede at0017 = ╱46╱F╱ // 0x1e95 @0x17
0x1e7e…1ede at0018 = ╱30╱0╱ // 0x1e96 @0x18
0x1e7e…1ede at0019 = ╱ed╱(╱ // 0x1e97 @0x19
0x1e7e…1ede at001a = ╱47╱G╱ // 0x1e98 @0x1a
0x1e7e…1ede at001b = ╱ee╱)╱ // 0x1e99 @0x1b
0x1e7e…1ede at001c = ╱ec╱,╱ // 0x1e9a @0x1c
0x1e7e…1ede at001d = ╱46╱F╱ // 0x1e9b @0x1d
0x1e7e…1ede at001e = ╱30╱0╱ // 0x1e9c @0x1e
0x1e7e…1ede at001f = ╱ed╱(╱ // 0x1e9d @0x1f
0x1e7e…1ede at0020 = ╱56╱V╱ // 0x1e9e @0x20
0x1e7e…1ede at0021 = ╱ee╱)╱ // 0x1e9f @0x21
0x1e7e…1ede at0022 = ╱ec╱,╱ // 0x1ea0 @0x22
0x1e7e…1ede at0023 = ╱46╱F╱ // 0x1ea1 @0x23
0x1e7e…1ede at0024 = ╱30╱0╱ // 0x1ea2 @0x24
0x1e7e…1ede at0025 = ╱ed╱(╱ // 0x1ea3 @0x25
0x1e7e…1ede at0026 = ╱34╱4╱ // 0x1ea4 @0x26
0x1e7e…1ede at0027 = ╱fe00008003╱ // 0x1ea5 @0x27
0x1e7e…1ede at002c = ╱ee╱)╱ // 0x1eaa @0x2c
0x1e7e…1ede at002d = ╱ec╱,╱ // 0x1eab @0x2d
0x1e7e…1ede at002e = ╱46╱F╱ // 0x1eac @0x2e
0x1e7e…1ede at002f = ╱30╱0╱ // 0x1ead @0x2f
0x1e7e…1ede at0030 = ╱ed╱(╱ // 0x1eae @0x30
0x1e7e…1ede at0031 = ╱35╱5╱ // 0x1eaf @0x31
0x1e7e…1ede at0032 = ╱fe0000a003╱ // 0x1eb0 @0x32
0x1e7e…1ede at0037 = ╱ee╱)╱ // 0x1eb5 @0x37
0x1e7e…1ede at0038 = ╱ec╱,╱ // 0x1eb6 @0x38
0x1e7e…1ede at0039 = ╱46╱F╱ // 0x1eb7 @0x39
0x1e7e…1ede at003a = ╱30╱0╱ // 0x1eb8 @0x3a
0x1e7e…1ede at003b = ╱ed╱(╱ // 0x1eb9 @0x3b
0x1e7e…1ede at003c = ╱36╱6╱ // 0x1eba @0x3c
0x1e7e…1ede at003d = ╱fe0000c003╱ // 0x1ebb @0x3d
0x1e7e…1ede at0042 = ╱ee╱)╱ // 0x1ec0 @0x42
0x1e7e…1ede at0043 = ╱ec╱,╱ // 0x1ec1 @0x43
0x1e7e…1ede at0044 = ╱46╱F╱ // 0x1ec2 @0x44
0x1e7e…1ede at0045 = ╱30╱0╱ // 0x1ec3 @0x45
0x1e7e…1ede at0046 = ╱ed╱(╱ // 0x1ec4 @0x46
0x1e7e…1ede at0047 = ╱37╱7╱ // 0x1ec5 @0x47
0x1e7e…1ede at0048 = ╱fe0000e003╱ // 0x1ec6 @0x48
0x1e7e…1ede at004d = ╱ee╱)╱ // 0x1ecb @0x4d
0x1e7e…1ede at004e = ╱ec╱,╱ // 0x1ecc @0x4e
0x1e7e…1ede at004f = ╱46╱F╱ // 0x1ecd @0x4f
0x1e7e…1ede at0050 = ╱30╱0╱ // 0x1ece @0x50
0x1e7e…1ede at0051 = ╱ed╱(╱ // 0x1ecf @0x51
0x1e7e…1ede at0052 = ╱38╱8╱ // 0x1ed0 @0x52
0x1e7e…1ede at0053 = ╱fe00008004╱ // 0x1ed1 @0x53
0x1e7e…1ede at0058 = ╱ee╱)╱ // 0x1ed6 @0x58
0x1e7e…1ede at0059 = ╱ec╱,╱ // 0x1ed7 @0x59
0x1e7e…1ede at005a = ╱46╱F╱ // 0x1ed8 @0x5a
0x1e7e…1ede at005b = ╱30╱0╱ // 0x1ed9 @0x5b
0x1e7e…1ede at005c = ╱ed╱(╱ // 0x1eda @0x5c
0x1e7e…1ede at005d = ╱57╱W╱ // 0x1edb @0x5d
0x1e7e…1ede at005e = ╱ee╱)╱ // 0x1edc @0x5e
0x1e7e…1ede at005f = EOL // 0x1edd @0x5f
0x1e7e…1ede }
0x1ede…1eef ac46 3970 EXEC FE(V,V,E2$)
0x1ede…1eef LineComalBin {
0x1ede…1eef ptr = 0xac46 // 0x1ede @0x0
0x1ede…1eef lno = 0x0f82 // 0x1ee0 @0x2
0x1ede…1eef at0004 = ╱9d╱ EXEC ╱ // 0x1ee2 @0x4
0x1ede…1eef at0005 = ╱46╱F╱ // 0x1ee3 @0x5
0x1ede…1eef at0006 = ╱45╱E╱ // 0x1ee4 @0x6
0x1ede…1eef at0007 = ╱ed╱(╱ // 0x1ee5 @0x7
0x1ede…1eef at0008 = ╱56╱V╱ // 0x1ee6 @0x8
0x1ede…1eef at0009 = ╱ec╱,╱ // 0x1ee7 @0x9
0x1ede…1eef at000a = ╱56╱V╱ // 0x1ee8 @0xa
0x1ede…1eef at000b = ╱ec╱,╱ // 0x1ee9 @0xb
0x1ede…1eef at000c = ╱45╱E╱ // 0x1eea @0xc
0x1ede…1eef at000d = ╱32╱2╱ // 0x1eeb @0xd
0x1ede…1eef at000e = ╱ef╱$╱ // 0x1eec @0xe
0x1ede…1eef at000f = ╱ee╱)╱ // 0x1eed @0xf
0x1ede…1eef at0010 = EOL // 0x1eee @0x10
0x1ede…1eef }
0x1eef…1f4f aca6 3980 PUT E2$,13:G1(E),G1(G),G1(V),G1(4),G1(5),G1(6),G1(7),G1(8),G1(W)
0x1eef…1f4f LineComalBin {
0x1eef…1f4f ptr = 0xaca6 // 0x1eef @0x0
0x1eef…1f4f lno = 0x0f8c // 0x1ef1 @0x2
0x1eef…1f4f at0004 = ╱aa╱ PUT ╱ // 0x1ef3 @0x4
0x1eef…1f4f at0005 = ╱45╱E╱ // 0x1ef4 @0x5
0x1eef…1f4f at0006 = ╱32╱2╱ // 0x1ef5 @0x6
0x1eef…1f4f at0007 = ╱ef╱$╱ // 0x1ef6 @0x7
0x1eef…1f4f at0008 = ╱ec╱,╱ // 0x1ef7 @0x8
0x1eef…1f4f at0009 = ╱31╱1╱ // 0x1ef8 @0x9
0x1eef…1f4f at000a = ╱33╱3╱ // 0x1ef9 @0xa
0x1eef…1f4f at000b = ╱fe0000d004╱ // 0x1efa @0xb
0x1eef…1f4f at0010 = ╱f0╱:╱ // 0x1eff @0x10
0x1eef…1f4f at0011 = ╱47╱G╱ // 0x1f00 @0x11
0x1eef…1f4f at0012 = ╱31╱1╱ // 0x1f01 @0x12
0x1eef…1f4f at0013 = ╱ed╱(╱ // 0x1f02 @0x13
0x1eef…1f4f at0014 = ╱45╱E╱ // 0x1f03 @0x14
0x1eef…1f4f at0015 = ╱ee╱)╱ // 0x1f04 @0x15
0x1eef…1f4f at0016 = ╱ec╱,╱ // 0x1f05 @0x16
0x1eef…1f4f at0017 = ╱47╱G╱ // 0x1f06 @0x17
0x1eef…1f4f at0018 = ╱31╱1╱ // 0x1f07 @0x18
0x1eef…1f4f at0019 = ╱ed╱(╱ // 0x1f08 @0x19
0x1eef…1f4f at001a = ╱47╱G╱ // 0x1f09 @0x1a
0x1eef…1f4f at001b = ╱ee╱)╱ // 0x1f0a @0x1b
0x1eef…1f4f at001c = ╱ec╱,╱ // 0x1f0b @0x1c
0x1eef…1f4f at001d = ╱47╱G╱ // 0x1f0c @0x1d
0x1eef…1f4f at001e = ╱31╱1╱ // 0x1f0d @0x1e
0x1eef…1f4f at001f = ╱ed╱(╱ // 0x1f0e @0x1f
0x1eef…1f4f at0020 = ╱56╱V╱ // 0x1f0f @0x20
0x1eef…1f4f at0021 = ╱ee╱)╱ // 0x1f10 @0x21
0x1eef…1f4f at0022 = ╱ec╱,╱ // 0x1f11 @0x22
0x1eef…1f4f at0023 = ╱47╱G╱ // 0x1f12 @0x23
0x1eef…1f4f at0024 = ╱31╱1╱ // 0x1f13 @0x24
0x1eef…1f4f at0025 = ╱ed╱(╱ // 0x1f14 @0x25
0x1eef…1f4f at0026 = ╱34╱4╱ // 0x1f15 @0x26
0x1eef…1f4f at0027 = ╱fe00008003╱ // 0x1f16 @0x27
0x1eef…1f4f at002c = ╱ee╱)╱ // 0x1f1b @0x2c
0x1eef…1f4f at002d = ╱ec╱,╱ // 0x1f1c @0x2d
0x1eef…1f4f at002e = ╱47╱G╱ // 0x1f1d @0x2e
0x1eef…1f4f at002f = ╱31╱1╱ // 0x1f1e @0x2f
0x1eef…1f4f at0030 = ╱ed╱(╱ // 0x1f1f @0x30
0x1eef…1f4f at0031 = ╱35╱5╱ // 0x1f20 @0x31
0x1eef…1f4f at0032 = ╱fe0000a003╱ // 0x1f21 @0x32
0x1eef…1f4f at0037 = ╱ee╱)╱ // 0x1f26 @0x37
0x1eef…1f4f at0038 = ╱ec╱,╱ // 0x1f27 @0x38
0x1eef…1f4f at0039 = ╱47╱G╱ // 0x1f28 @0x39
0x1eef…1f4f at003a = ╱31╱1╱ // 0x1f29 @0x3a
0x1eef…1f4f at003b = ╱ed╱(╱ // 0x1f2a @0x3b
0x1eef…1f4f at003c = ╱36╱6╱ // 0x1f2b @0x3c
0x1eef…1f4f at003d = ╱fe0000c003╱ // 0x1f2c @0x3d
0x1eef…1f4f at0042 = ╱ee╱)╱ // 0x1f31 @0x42
0x1eef…1f4f at0043 = ╱ec╱,╱ // 0x1f32 @0x43
0x1eef…1f4f at0044 = ╱47╱G╱ // 0x1f33 @0x44
0x1eef…1f4f at0045 = ╱31╱1╱ // 0x1f34 @0x45
0x1eef…1f4f at0046 = ╱ed╱(╱ // 0x1f35 @0x46
0x1eef…1f4f at0047 = ╱37╱7╱ // 0x1f36 @0x47
0x1eef…1f4f at0048 = ╱fe0000e003╱ // 0x1f37 @0x48
0x1eef…1f4f at004d = ╱ee╱)╱ // 0x1f3c @0x4d
0x1eef…1f4f at004e = ╱ec╱,╱ // 0x1f3d @0x4e
0x1eef…1f4f at004f = ╱47╱G╱ // 0x1f3e @0x4f
0x1eef…1f4f at0050 = ╱31╱1╱ // 0x1f3f @0x50
0x1eef…1f4f at0051 = ╱ed╱(╱ // 0x1f40 @0x51
0x1eef…1f4f at0052 = ╱38╱8╱ // 0x1f41 @0x52
0x1eef…1f4f at0053 = ╱fe00008004╱ // 0x1f42 @0x53
0x1eef…1f4f at0058 = ╱ee╱)╱ // 0x1f47 @0x58
0x1eef…1f4f at0059 = ╱ec╱,╱ // 0x1f48 @0x59
0x1eef…1f4f at005a = ╱47╱G╱ // 0x1f49 @0x5a
0x1eef…1f4f at005b = ╱31╱1╱ // 0x1f4a @0x5b
0x1eef…1f4f at005c = ╱ed╱(╱ // 0x1f4b @0x5c
0x1eef…1f4f at005d = ╱57╱W╱ // 0x1f4c @0x5d
0x1eef…1f4f at005e = ╱ee╱)╱ // 0x1f4d @0x5e
0x1eef…1f4f at005f = EOL // 0x1f4e @0x5f
0x1eef…1f4f }
0x1f4f…1f65 acbc 3990 EXEC FE(V,4,E2$)
0x1f4f…1f65 LineComalBin {
0x1f4f…1f65 ptr = 0xacbc // 0x1f4f @0x0
0x1f4f…1f65 lno = 0x0f96 // 0x1f51 @0x2
0x1f4f…1f65 at0004 = ╱9d╱ EXEC ╱ // 0x1f53 @0x4
0x1f4f…1f65 at0005 = ╱46╱F╱ // 0x1f54 @0x5
0x1f4f…1f65 at0006 = ╱45╱E╱ // 0x1f55 @0x6
0x1f4f…1f65 at0007 = ╱ed╱(╱ // 0x1f56 @0x7
0x1f4f…1f65 at0008 = ╱56╱V╱ // 0x1f57 @0x8
0x1f4f…1f65 at0009 = ╱ec╱,╱ // 0x1f58 @0x9
0x1f4f…1f65 at000a = ╱34╱4╱ // 0x1f59 @0xa
0x1f4f…1f65 at000b = ╱fe00008003╱ // 0x1f5a @0xb
0x1f4f…1f65 at0010 = ╱ec╱,╱ // 0x1f5f @0x10
0x1f4f…1f65 at0011 = ╱45╱E╱ // 0x1f60 @0x11
0x1f4f…1f65 at0012 = ╱32╱2╱ // 0x1f61 @0x12
0x1f4f…1f65 at0013 = ╱ef╱$╱ // 0x1f62 @0x13
0x1f4f…1f65 at0014 = ╱ee╱)╱ // 0x1f63 @0x14
0x1f4f…1f65 at0015 = EOL // 0x1f64 @0x15
0x1f4f…1f65 }
0x1f65…1f8b ace2 4000 PUT E2$,15:F5$(E),F5$(G),F5$(V)
0x1f65…1f8b LineComalBin {
0x1f65…1f8b ptr = 0xace2 // 0x1f65 @0x0
0x1f65…1f8b lno = 0x0fa0 // 0x1f67 @0x2
0x1f65…1f8b at0004 = ╱aa╱ PUT ╱ // 0x1f69 @0x4
0x1f65…1f8b at0005 = ╱45╱E╱ // 0x1f6a @0x5
0x1f65…1f8b at0006 = ╱32╱2╱ // 0x1f6b @0x6
0x1f65…1f8b at0007 = ╱ef╱$╱ // 0x1f6c @0x7
0x1f65…1f8b at0008 = ╱ec╱,╱ // 0x1f6d @0x8
0x1f65…1f8b at0009 = ╱31╱1╱ // 0x1f6e @0x9
0x1f65…1f8b at000a = ╱35╱5╱ // 0x1f6f @0xa
0x1f65…1f8b at000b = ╱fe0000f004╱ // 0x1f70 @0xb
0x1f65…1f8b at0010 = ╱f0╱:╱ // 0x1f75 @0x10
0x1f65…1f8b at0011 = ╱46╱F╱ // 0x1f76 @0x11
0x1f65…1f8b at0012 = ╱35╱5╱ // 0x1f77 @0x12
0x1f65…1f8b at0013 = ╱ef╱$╱ // 0x1f78 @0x13
0x1f65…1f8b at0014 = ╱ed╱(╱ // 0x1f79 @0x14
0x1f65…1f8b at0015 = ╱45╱E╱ // 0x1f7a @0x15
0x1f65…1f8b at0016 = ╱ee╱)╱ // 0x1f7b @0x16
0x1f65…1f8b at0017 = ╱ec╱,╱ // 0x1f7c @0x17
0x1f65…1f8b at0018 = ╱46╱F╱ // 0x1f7d @0x18
0x1f65…1f8b at0019 = ╱35╱5╱ // 0x1f7e @0x19
0x1f65…1f8b at001a = ╱ef╱$╱ // 0x1f7f @0x1a
0x1f65…1f8b at001b = ╱ed╱(╱ // 0x1f80 @0x1b
0x1f65…1f8b at001c = ╱47╱G╱ // 0x1f81 @0x1c
0x1f65…1f8b at001d = ╱ee╱)╱ // 0x1f82 @0x1d
0x1f65…1f8b at001e = ╱ec╱,╱ // 0x1f83 @0x1e
0x1f65…1f8b at001f = ╱46╱F╱ // 0x1f84 @0x1f
0x1f65…1f8b at0020 = ╱35╱5╱ // 0x1f85 @0x20
0x1f65…1f8b at0021 = ╱ef╱$╱ // 0x1f86 @0x21
0x1f65…1f8b at0022 = ╱ed╱(╱ // 0x1f87 @0x22
0x1f65…1f8b at0023 = ╱56╱V╱ // 0x1f88 @0x23
0x1f65…1f8b at0024 = ╱ee╱)╱ // 0x1f89 @0x24
0x1f65…1f8b at0025 = EOL // 0x1f8a @0x25
0x1f65…1f8b }
0x1f8b…1fa1 acf8 4010 EXEC FE(V,5,E2$)
0x1f8b…1fa1 LineComalBin {
0x1f8b…1fa1 ptr = 0xacf8 // 0x1f8b @0x0
0x1f8b…1fa1 lno = 0x0faa // 0x1f8d @0x2
0x1f8b…1fa1 at0004 = ╱9d╱ EXEC ╱ // 0x1f8f @0x4
0x1f8b…1fa1 at0005 = ╱46╱F╱ // 0x1f90 @0x5
0x1f8b…1fa1 at0006 = ╱45╱E╱ // 0x1f91 @0x6
0x1f8b…1fa1 at0007 = ╱ed╱(╱ // 0x1f92 @0x7
0x1f8b…1fa1 at0008 = ╱56╱V╱ // 0x1f93 @0x8
0x1f8b…1fa1 at0009 = ╱ec╱,╱ // 0x1f94 @0x9
0x1f8b…1fa1 at000a = ╱35╱5╱ // 0x1f95 @0xa
0x1f8b…1fa1 at000b = ╱fe0000a003╱ // 0x1f96 @0xb
0x1f8b…1fa1 at0010 = ╱ec╱,╱ // 0x1f9b @0x10
0x1f8b…1fa1 at0011 = ╱45╱E╱ // 0x1f9c @0x11
0x1f8b…1fa1 at0012 = ╱32╱2╱ // 0x1f9d @0x12
0x1f8b…1fa1 at0013 = ╱ef╱$╱ // 0x1f9e @0x13
0x1f8b…1fa1 at0014 = ╱ee╱)╱ // 0x1f9f @0x14
0x1f8b…1fa1 at0015 = EOL // 0x1fa0 @0x15
0x1f8b…1fa1 }
0x1fa1…1fd6 ad2d 4020 PUT E2$,16:F5$(4),F5$(5),F5$(6)
0x1fa1…1fd6 LineComalBin {
0x1fa1…1fd6 ptr = 0xad2d // 0x1fa1 @0x0
0x1fa1…1fd6 lno = 0x0fb4 // 0x1fa3 @0x2
0x1fa1…1fd6 at0004 = ╱aa╱ PUT ╱ // 0x1fa5 @0x4
0x1fa1…1fd6 at0005 = ╱45╱E╱ // 0x1fa6 @0x5
0x1fa1…1fd6 at0006 = ╱32╱2╱ // 0x1fa7 @0x6
0x1fa1…1fd6 at0007 = ╱ef╱$╱ // 0x1fa8 @0x7
0x1fa1…1fd6 at0008 = ╱ec╱,╱ // 0x1fa9 @0x8
0x1fa1…1fd6 at0009 = ╱31╱1╱ // 0x1faa @0x9
0x1fa1…1fd6 at000a = ╱36╱6╱ // 0x1fab @0xa
0x1fa1…1fd6 at000b = ╱fe00008005╱ // 0x1fac @0xb
0x1fa1…1fd6 at0010 = ╱f0╱:╱ // 0x1fb1 @0x10
0x1fa1…1fd6 at0011 = ╱46╱F╱ // 0x1fb2 @0x11
0x1fa1…1fd6 at0012 = ╱35╱5╱ // 0x1fb3 @0x12
0x1fa1…1fd6 at0013 = ╱ef╱$╱ // 0x1fb4 @0x13
0x1fa1…1fd6 at0014 = ╱ed╱(╱ // 0x1fb5 @0x14
0x1fa1…1fd6 at0015 = ╱34╱4╱ // 0x1fb6 @0x15
0x1fa1…1fd6 at0016 = ╱fe00008003╱ // 0x1fb7 @0x16
0x1fa1…1fd6 at001b = ╱ee╱)╱ // 0x1fbc @0x1b
0x1fa1…1fd6 at001c = ╱ec╱,╱ // 0x1fbd @0x1c
0x1fa1…1fd6 at001d = ╱46╱F╱ // 0x1fbe @0x1d
0x1fa1…1fd6 at001e = ╱35╱5╱ // 0x1fbf @0x1e
0x1fa1…1fd6 at001f = ╱ef╱$╱ // 0x1fc0 @0x1f
0x1fa1…1fd6 at0020 = ╱ed╱(╱ // 0x1fc1 @0x20
0x1fa1…1fd6 at0021 = ╱35╱5╱ // 0x1fc2 @0x21
0x1fa1…1fd6 at0022 = ╱fe0000a003╱ // 0x1fc3 @0x22
0x1fa1…1fd6 at0027 = ╱ee╱)╱ // 0x1fc8 @0x27
0x1fa1…1fd6 at0028 = ╱ec╱,╱ // 0x1fc9 @0x28
0x1fa1…1fd6 at0029 = ╱46╱F╱ // 0x1fca @0x29
0x1fa1…1fd6 at002a = ╱35╱5╱ // 0x1fcb @0x2a
0x1fa1…1fd6 at002b = ╱ef╱$╱ // 0x1fcc @0x2b
0x1fa1…1fd6 at002c = ╱ed╱(╱ // 0x1fcd @0x2c
0x1fa1…1fd6 at002d = ╱36╱6╱ // 0x1fce @0x2d
0x1fa1…1fd6 at002e = ╱fe0000c003╱ // 0x1fcf @0x2e
0x1fa1…1fd6 at0033 = ╱ee╱)╱ // 0x1fd4 @0x33
0x1fa1…1fd6 at0034 = EOL // 0x1fd5 @0x34
0x1fa1…1fd6 }
0x1fd6…1fec ad43 4030 EXEC FE(V,6,E2$)
0x1fd6…1fec LineComalBin {
0x1fd6…1fec ptr = 0xad43 // 0x1fd6 @0x0
0x1fd6…1fec lno = 0x0fbe // 0x1fd8 @0x2
0x1fd6…1fec at0004 = ╱9d╱ EXEC ╱ // 0x1fda @0x4
0x1fd6…1fec at0005 = ╱46╱F╱ // 0x1fdb @0x5
0x1fd6…1fec at0006 = ╱45╱E╱ // 0x1fdc @0x6
0x1fd6…1fec at0007 = ╱ed╱(╱ // 0x1fdd @0x7
0x1fd6…1fec at0008 = ╱56╱V╱ // 0x1fde @0x8
0x1fd6…1fec at0009 = ╱ec╱,╱ // 0x1fdf @0x9
0x1fd6…1fec at000a = ╱36╱6╱ // 0x1fe0 @0xa
0x1fd6…1fec at000b = ╱fe0000c003╱ // 0x1fe1 @0xb
0x1fd6…1fec at0010 = ╱ec╱,╱ // 0x1fe6 @0x10
0x1fd6…1fec at0011 = ╱45╱E╱ // 0x1fe7 @0x11
0x1fd6…1fec at0012 = ╱32╱2╱ // 0x1fe8 @0x12
0x1fd6…1fec at0013 = ╱ef╱$╱ // 0x1fe9 @0x13
0x1fd6…1fec at0014 = ╱ee╱)╱ // 0x1fea @0x14
0x1fd6…1fec at0015 = EOL // 0x1feb @0x15
0x1fd6…1fec }
0x1fec…1ff5 ad4c 4040 CLOSE E2$
0x1fec…1ff5 LineComalBin {
0x1fec…1ff5 ptr = 0xad4c // 0x1fec @0x0
0x1fec…1ff5 lno = 0x0fc8 // 0x1fee @0x2
0x1fec…1ff5 at0004 = ╱a8╱ CLOSE ╱ // 0x1ff0 @0x4
0x1fec…1ff5 at0005 = ╱45╱E╱ // 0x1ff1 @0x5
0x1fec…1ff5 at0006 = ╱32╱2╱ // 0x1ff2 @0x6
0x1fec…1ff5 at0007 = ╱ef╱$╱ // 0x1ff3 @0x7
0x1fec…1ff5 at0008 = EOL // 0x1ff4 @0x8
0x1fec…1ff5 }
0x1ff5…200b ad62 4050 EXEC FE(V,7,E2$)
0x1ff5…200b LineComalBin {
0x1ff5…200b ptr = 0xad62 // 0x1ff5 @0x0
0x1ff5…200b lno = 0x0fd2 // 0x1ff7 @0x2
0x1ff5…200b at0004 = ╱9d╱ EXEC ╱ // 0x1ff9 @0x4
0x1ff5…200b at0005 = ╱46╱F╱ // 0x1ffa @0x5
0x1ff5…200b at0006 = ╱45╱E╱ // 0x1ffb @0x6
0x1ff5…200b at0007 = ╱ed╱(╱ // 0x1ffc @0x7
0x1ff5…200b at0008 = ╱56╱V╱ // 0x1ffd @0x8
0x1ff5…200b at0009 = ╱ec╱,╱ // 0x1ffe @0x9
0x1ff5…200b at000a = ╱37╱7╱ // 0x1fff @0xa
0x1ff5…200b at000b = ╱fe0000e003╱ // 0x2000 @0xb
0x1ff5…200b at0010 = ╱ec╱,╱ // 0x2005 @0x10
0x1ff5…200b at0011 = ╱45╱E╱ // 0x2006 @0x11
0x1ff5…200b at0012 = ╱32╱2╱ // 0x2007 @0x12
0x1ff5…200b at0013 = ╱ef╱$╱ // 0x2008 @0x13
0x1ff5…200b at0014 = ╱ee╱)╱ // 0x2009 @0x14
0x1ff5…200b at0015 = EOL // 0x200a @0x15
0x1ff5…200b }
0x200b…2011 ad68 4060 ENDPROC
0x200b…2011 LineComalBin {
0x200b…2011 ptr = 0xad68 // 0x200b @0x0
0x200b…2011 lno = 0x0fdc // 0x200d @0x2
0x200b…2011 at0004 = ╱9f╱ ENDPROC ╱ // 0x200f @0x4
0x200b…2011 at0005 = EOL // 0x2010 @0x5
0x200b…2011 }
0x2011…202b ad82 4070 PROC FI(L5,Q,L6,L7,L8,L9)
0x2011…202b LineComalBin {
0x2011…202b ptr = 0xad82 // 0x2011 @0x0
0x2011…202b lno = 0x0fe6 // 0x2013 @0x2
0x2011…202b at0004 = ╱9e╱ PROC ╱ // 0x2015 @0x4
0x2011…202b at0005 = ╱46╱F╱ // 0x2016 @0x5
0x2011…202b at0006 = ╱49╱I╱ // 0x2017 @0x6
0x2011…202b at0007 = ╱ed╱(╱ // 0x2018 @0x7
0x2011…202b at0008 = ╱4c╱L╱ // 0x2019 @0x8
0x2011…202b at0009 = ╱35╱5╱ // 0x201a @0x9
0x2011…202b at000a = ╱ec╱,╱ // 0x201b @0xa
0x2011…202b at000b = ╱51╱Q╱ // 0x201c @0xb
0x2011…202b at000c = ╱ec╱,╱ // 0x201d @0xc
0x2011…202b at000d = ╱4c╱L╱ // 0x201e @0xd
0x2011…202b at000e = ╱36╱6╱ // 0x201f @0xe
0x2011…202b at000f = ╱ec╱,╱ // 0x2020 @0xf
0x2011…202b at0010 = ╱4c╱L╱ // 0x2021 @0x10
0x2011…202b at0011 = ╱37╱7╱ // 0x2022 @0x11
0x2011…202b at0012 = ╱ec╱,╱ // 0x2023 @0x12
0x2011…202b at0013 = ╱4c╱L╱ // 0x2024 @0x13
0x2011…202b at0014 = ╱38╱8╱ // 0x2025 @0x14
0x2011…202b at0015 = ╱ec╱,╱ // 0x2026 @0x15
0x2011…202b at0016 = ╱4c╱L╱ // 0x2027 @0x16
0x2011…202b at0017 = ╱39╱9╱ // 0x2028 @0x17
0x2011…202b at0018 = ╱ee╱)╱ // 0x2029 @0x18
0x2011…202b at0019 = EOL // 0x202a @0x19
0x2011…202b }
0x202b…2063 adba 4080 M0=L6 DIV 16;L8=M0;I9=E;M1=L6 DIV 8;M2=L6 DIV 32
0x202b…2063 LineComalBin {
0x202b…2063 ptr = 0xadba // 0x202b @0x0
0x202b…2063 lno = 0x0ff0 // 0x202d @0x2
0x202b…2063 at0004 = ╱4d╱M╱ // 0x202f @0x4
0x202b…2063 at0005 = ╱30╱0╱ // 0x2030 @0x5
0x202b…2063 at0006 = ╱dc╱=╱ // 0x2031 @0x6
0x202b…2063 at0007 = ╱4c╱L╱ // 0x2032 @0x7
0x202b…2063 at0008 = ╱36╱6╱ // 0x2033 @0x8
0x202b…2063 at0009 = ╱e7╱ DIV ╱ // 0x2034 @0x9
0x202b…2063 at000a = ╱31╱1╱ // 0x2035 @0xa
0x202b…2063 at000b = ╱36╱6╱ // 0x2036 @0xb
0x202b…2063 at000c = ╱fe00008005╱ // 0x2037 @0xc
0x202b…2063 at0011 = ╱eb╱;╱ // 0x203c @0x11
0x202b…2063 at0012 = ╱4c╱L╱ // 0x203d @0x12
0x202b…2063 at0013 = ╱38╱8╱ // 0x203e @0x13
0x202b…2063 at0014 = ╱dc╱=╱ // 0x203f @0x14
0x202b…2063 at0015 = ╱4d╱M╱ // 0x2040 @0x15
0x202b…2063 at0016 = ╱30╱0╱ // 0x2041 @0x16
0x202b…2063 at0017 = ╱eb╱;╱ // 0x2042 @0x17
0x202b…2063 at0018 = ╱49╱I╱ // 0x2043 @0x18
0x202b…2063 at0019 = ╱39╱9╱ // 0x2044 @0x19
0x202b…2063 at001a = ╱dc╱=╱ // 0x2045 @0x1a
0x202b…2063 at001b = ╱45╱E╱ // 0x2046 @0x1b
0x202b…2063 at001c = ╱eb╱;╱ // 0x2047 @0x1c
0x202b…2063 at001d = ╱4d╱M╱ // 0x2048 @0x1d
0x202b…2063 at001e = ╱31╱1╱ // 0x2049 @0x1e
0x202b…2063 at001f = ╱dc╱=╱ // 0x204a @0x1f
0x202b…2063 at0020 = ╱4c╱L╱ // 0x204b @0x20
0x202b…2063 at0021 = ╱36╱6╱ // 0x204c @0x21
0x202b…2063 at0022 = ╱e7╱ DIV ╱ // 0x204d @0x22
0x202b…2063 at0023 = ╱38╱8╱ // 0x204e @0x23
0x202b…2063 at0024 = ╱fe00008004╱ // 0x204f @0x24
0x202b…2063 at0029 = ╱eb╱;╱ // 0x2054 @0x29
0x202b…2063 at002a = ╱4d╱M╱ // 0x2055 @0x2a
0x202b…2063 at002b = ╱32╱2╱ // 0x2056 @0x2b
0x202b…2063 at002c = ╱dc╱=╱ // 0x2057 @0x2c
0x202b…2063 at002d = ╱4c╱L╱ // 0x2058 @0x2d
0x202b…2063 at002e = ╱36╱6╱ // 0x2059 @0x2e
0x202b…2063 at002f = ╱e7╱ DIV ╱ // 0x205a @0x2f
0x202b…2063 at0030 = ╱33╱3╱ // 0x205b @0x30
0x202b…2063 at0031 = ╱32╱2╱ // 0x205c @0x31
0x202b…2063 at0032 = ╱fe00008006╱ // 0x205d @0x32
0x202b…2063 at0037 = EOL // 0x2062 @0x37
0x202b…2063 }
0x2063…2069 adc0 4090 REPEAT
0x2063…2069 LineComalBin {
0x2063…2069 ptr = 0xadc0 // 0x2063 @0x0
0x2063…2069 lno = 0x0ffa // 0x2065 @0x2
0x2063…2069 at0004 = ╱97╱ REPEAT ╱ // 0x2067 @0x4
0x2063…2069 at0005 = EOL // 0x2068 @0x5
0x2063…2069 }
0x2069…207f add6 4100 IF L7=L5(L8) OR M0=E THEN EXIT
0x2069…207f LineComalBin {
0x2069…207f ptr = 0xadd6 // 0x2069 @0x0
0x2069…207f lno = 0x1004 // 0x206b @0x2
0x2069…207f at0004 = ╱82╱ IF ╱ // 0x206d @0x4
0x2069…207f at0005 = ╱4c╱L╱ // 0x206e @0x5
0x2069…207f at0006 = ╱37╱7╱ // 0x206f @0x6
0x2069…207f at0007 = ╱dc╱=╱ // 0x2070 @0x7
0x2069…207f at0008 = ╱4c╱L╱ // 0x2071 @0x8
0x2069…207f at0009 = ╱35╱5╱ // 0x2072 @0x9
0x2069…207f at000a = ╱ed╱(╱ // 0x2073 @0xa
0x2069…207f at000b = ╱4c╱L╱ // 0x2074 @0xb
0x2069…207f at000c = ╱38╱8╱ // 0x2075 @0xc
0x2069…207f at000d = ╱ee╱)╱ // 0x2076 @0xd
0x2069…207f at000e = ╱db╱ OR ╱ // 0x2077 @0xe
0x2069…207f at000f = ╱4d╱M╱ // 0x2078 @0xf
0x2069…207f at0010 = ╱30╱0╱ // 0x2079 @0x10
0x2069…207f at0011 = ╱dc╱=╱ // 0x207a @0x11
0x2069…207f at0012 = ╱45╱E╱ // 0x207b @0x12
0x2069…207f at0013 = ╱b6╱ THEN ╱ // 0x207c @0x13
0x2069…207f at0014 = ╱99╱ EXIT ╱ // 0x207d @0x14
0x2069…207f at0015 = EOL // 0x207e @0x15
0x2069…207f }
0x207f…20aa ae01 4110 M0=(M0+E) DIV G;L8=L8+M0*(E-G*(L7<L5(L8)))
0x207f…20aa LineComalBin {
0x207f…20aa ptr = 0xae01 // 0x207f @0x0
0x207f…20aa lno = 0x100e // 0x2081 @0x2
0x207f…20aa at0004 = ╱4d╱M╱ // 0x2083 @0x4
0x207f…20aa at0005 = ╱30╱0╱ // 0x2084 @0x5
0x207f…20aa at0006 = ╱dc╱=╱ // 0x2085 @0x6
0x207f…20aa at0007 = ╱ed╱(╱ // 0x2086 @0x7
0x207f…20aa at0008 = ╱4d╱M╱ // 0x2087 @0x8
0x207f…20aa at0009 = ╱30╱0╱ // 0x2088 @0x9
0x207f…20aa at000a = ╱e2╱+╱ // 0x2089 @0xa
0x207f…20aa at000b = ╱45╱E╱ // 0x208a @0xb
0x207f…20aa at000c = ╱ee╱)╱ // 0x208b @0xc
0x207f…20aa at000d = ╱e7╱ DIV ╱ // 0x208c @0xd
0x207f…20aa at000e = ╱47╱G╱ // 0x208d @0xe
0x207f…20aa at000f = ╱eb╱;╱ // 0x208e @0xf
0x207f…20aa at0010 = ╱4c╱L╱ // 0x208f @0x10
0x207f…20aa at0011 = ╱38╱8╱ // 0x2090 @0x11
0x207f…20aa at0012 = ╱dc╱=╱ // 0x2091 @0x12
0x207f…20aa at0013 = ╱4c╱L╱ // 0x2092 @0x13
0x207f…20aa at0014 = ╱38╱8╱ // 0x2093 @0x14
0x207f…20aa at0015 = ╱e2╱+╱ // 0x2094 @0x15
0x207f…20aa at0016 = ╱4d╱M╱ // 0x2095 @0x16
0x207f…20aa at0017 = ╱30╱0╱ // 0x2096 @0x17
0x207f…20aa at0018 = ╱e4╱*╱ // 0x2097 @0x18
0x207f…20aa at0019 = ╱ed╱(╱ // 0x2098 @0x19
0x207f…20aa at001a = ╱45╱E╱ // 0x2099 @0x1a
0x207f…20aa at001b = ╱e3╱-╱ // 0x209a @0x1b
0x207f…20aa at001c = ╱47╱G╱ // 0x209b @0x1c
0x207f…20aa at001d = ╱e4╱*╱ // 0x209c @0x1d
0x207f…20aa at001e = ╱ed╱(╱ // 0x209d @0x1e
0x207f…20aa at001f = ╱4c╱L╱ // 0x209e @0x1f
0x207f…20aa at0020 = ╱37╱7╱ // 0x209f @0x20
0x207f…20aa at0021 = ╱dd╱<╱ // 0x20a0 @0x21
0x207f…20aa at0022 = ╱4c╱L╱ // 0x20a1 @0x22
0x207f…20aa at0023 = ╱35╱5╱ // 0x20a2 @0x23
0x207f…20aa at0024 = ╱ed╱(╱ // 0x20a3 @0x24
0x207f…20aa at0025 = ╱4c╱L╱ // 0x20a4 @0x25
0x207f…20aa at0026 = ╱38╱8╱ // 0x20a5 @0x26
0x207f…20aa at0027 = ╱ee╱)╱ // 0x20a6 @0x27
0x207f…20aa at0028 = ╱ee╱)╱ // 0x20a7 @0x28
0x207f…20aa at0029 = ╱ee╱)╱ // 0x20a8 @0x29
0x207f…20aa at002a = EOL // 0x20a9 @0x2a
0x207f…20aa }
0x20aa…20b9 ae10 4120 IF L8<E THEN L8=E
0x20aa…20b9 LineComalBin {
0x20aa…20b9 ptr = 0xae10 // 0x20aa @0x0
0x20aa…20b9 lno = 0x1018 // 0x20ac @0x2
0x20aa…20b9 at0004 = ╱82╱ IF ╱ // 0x20ae @0x4
0x20aa…20b9 at0005 = ╱4c╱L╱ // 0x20af @0x5
0x20aa…20b9 at0006 = ╱38╱8╱ // 0x20b0 @0x6
0x20aa…20b9 at0007 = ╱dd╱<╱ // 0x20b1 @0x7
0x20aa…20b9 at0008 = ╱45╱E╱ // 0x20b2 @0x8
0x20aa…20b9 at0009 = ╱b6╱ THEN ╱ // 0x20b3 @0x9
0x20aa…20b9 at000a = ╱4c╱L╱ // 0x20b4 @0xa
0x20aa…20b9 at000b = ╱38╱8╱ // 0x20b5 @0xb
0x20aa…20b9 at000c = ╱dc╱=╱ // 0x20b6 @0xc
0x20aa…20b9 at000d = ╱45╱E╱ // 0x20b7 @0xd
0x20aa…20b9 at000e = EOL // 0x20b8 @0xe
0x20aa…20b9 }
0x20b9…20ca ae21 4130 IF L8>M1 THEN L8=M1
0x20b9…20ca LineComalBin {
0x20b9…20ca ptr = 0xae21 // 0x20b9 @0x0
0x20b9…20ca lno = 0x1022 // 0x20bb @0x2
0x20b9…20ca at0004 = ╱82╱ IF ╱ // 0x20bd @0x4
0x20b9…20ca at0005 = ╱4c╱L╱ // 0x20be @0x5
0x20b9…20ca at0006 = ╱38╱8╱ // 0x20bf @0x6
0x20b9…20ca at0007 = ╱de╱>╱ // 0x20c0 @0x7
0x20b9…20ca at0008 = ╱4d╱M╱ // 0x20c1 @0x8
0x20b9…20ca at0009 = ╱31╱1╱ // 0x20c2 @0x9
0x20b9…20ca at000a = ╱b6╱ THEN ╱ // 0x20c3 @0xa
0x20b9…20ca at000b = ╱4c╱L╱ // 0x20c4 @0xb
0x20b9…20ca at000c = ╱38╱8╱ // 0x20c5 @0xc
0x20b9…20ca at000d = ╱dc╱=╱ // 0x20c6 @0xd
0x20b9…20ca at000e = ╱4d╱M╱ // 0x20c7 @0xe
0x20b9…20ca at000f = ╱31╱1╱ // 0x20c8 @0xf
0x20b9…20ca at0010 = EOL // 0x20c9 @0x10
0x20b9…20ca }
0x20ca…20d4 ae2b 4140 UNTIL M0=B
0x20ca…20d4 LineComalBin {
0x20ca…20d4 ptr = 0xae2b // 0x20ca @0x0
0x20ca…20d4 lno = 0x102c // 0x20cc @0x2
0x20ca…20d4 at0004 = ╱98╱ UNTIL ╱ // 0x20ce @0x4
0x20ca…20d4 at0005 = ╱4d╱M╱ // 0x20cf @0x5
0x20ca…20d4 at0006 = ╱30╱0╱ // 0x20d0 @0x6
0x20ca…20d4 at0007 = ╱dc╱=╱ // 0x20d1 @0x7
0x20ca…20d4 at0008 = ╱42╱B╱ // 0x20d2 @0x8
0x20ca…20d4 at0009 = EOL // 0x20d3 @0x9
0x20ca…20d4 }
0x20d4…20f2 ae49 4150 IF L5(L8)>L7 THEN L8=L8-E*(L8>E)
0x20d4…20f2 LineComalBin {
0x20d4…20f2 ptr = 0xae49 // 0x20d4 @0x0
0x20d4…20f2 lno = 0x1036 // 0x20d6 @0x2
0x20d4…20f2 at0004 = ╱82╱ IF ╱ // 0x20d8 @0x4
0x20d4…20f2 at0005 = ╱4c╱L╱ // 0x20d9 @0x5
0x20d4…20f2 at0006 = ╱35╱5╱ // 0x20da @0x6
0x20d4…20f2 at0007 = ╱ed╱(╱ // 0x20db @0x7
0x20d4…20f2 at0008 = ╱4c╱L╱ // 0x20dc @0x8
0x20d4…20f2 at0009 = ╱38╱8╱ // 0x20dd @0x9
0x20d4…20f2 at000a = ╱ee╱)╱ // 0x20de @0xa
0x20d4…20f2 at000b = ╱de╱>╱ // 0x20df @0xb
0x20d4…20f2 at000c = ╱4c╱L╱ // 0x20e0 @0xc
0x20d4…20f2 at000d = ╱37╱7╱ // 0x20e1 @0xd
0x20d4…20f2 at000e = ╱b6╱ THEN ╱ // 0x20e2 @0xe
0x20d4…20f2 at000f = ╱4c╱L╱ // 0x20e3 @0xf
0x20d4…20f2 at0010 = ╱38╱8╱ // 0x20e4 @0x10
0x20d4…20f2 at0011 = ╱dc╱=╱ // 0x20e5 @0x11
0x20d4…20f2 at0012 = ╱4c╱L╱ // 0x20e6 @0x12
0x20d4…20f2 at0013 = ╱38╱8╱ // 0x20e7 @0x13
0x20d4…20f2 at0014 = ╱e3╱-╱ // 0x20e8 @0x14
0x20d4…20f2 at0015 = ╱45╱E╱ // 0x20e9 @0x15
0x20d4…20f2 at0016 = ╱e4╱*╱ // 0x20ea @0x16
0x20d4…20f2 at0017 = ╱ed╱(╱ // 0x20eb @0x17
0x20d4…20f2 at0018 = ╱4c╱L╱ // 0x20ec @0x18
0x20d4…20f2 at0019 = ╱38╱8╱ // 0x20ed @0x19
0x20d4…20f2 at001a = ╱de╱>╱ // 0x20ee @0x1a
0x20d4…20f2 at001b = ╱45╱E╱ // 0x20ef @0x1b
0x20d4…20f2 at001c = ╱ee╱)╱ // 0x20f0 @0x1c
0x20d4…20f2 at001d = EOL // 0x20f1 @0x1d
0x20d4…20f2 }
0x20f2…2103 ae5a 4160 L8=M2+L8*G-E
0x20f2…2103 LineComalBin {
0x20f2…2103 ptr = 0xae5a // 0x20f2 @0x0
0x20f2…2103 lno = 0x1040 // 0x20f4 @0x2
0x20f2…2103 at0004 = ╱4c╱L╱ // 0x20f6 @0x4
0x20f2…2103 at0005 = ╱38╱8╱ // 0x20f7 @0x5
0x20f2…2103 at0006 = ╱dc╱=╱ // 0x20f8 @0x6
0x20f2…2103 at0007 = ╱4d╱M╱ // 0x20f9 @0x7
0x20f2…2103 at0008 = ╱32╱2╱ // 0x20fa @0x8
0x20f2…2103 at0009 = ╱e2╱+╱ // 0x20fb @0x9
0x20f2…2103 at000a = ╱4c╱L╱ // 0x20fc @0xa
0x20f2…2103 at000b = ╱38╱8╱ // 0x20fd @0xb
0x20f2…2103 at000c = ╱e4╱*╱ // 0x20fe @0xc
0x20f2…2103 at000d = ╱47╱G╱ // 0x20ff @0xd
0x20f2…2103 at000e = ╱e3╱-╱ // 0x2100 @0xe
0x20f2…2103 at000f = ╱45╱E╱ // 0x2101 @0xf
0x20f2…2103 at0010 = EOL // 0x2102 @0x10
0x20f2…2103 }
0x2103…2151 aea8 4170 GET L9$,L8:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G)
0x2103…2151 LineComalBin {
0x2103…2151 ptr = 0xaea8 // 0x2103 @0x0
0x2103…2151 lno = 0x104a // 0x2105 @0x2
0x2103…2151 at0004 = ╱a9╱ GET ╱ // 0x2107 @0x4
0x2103…2151 at0005 = ╱4c╱L╱ // 0x2108 @0x5
0x2103…2151 at0006 = ╱39╱9╱ // 0x2109 @0x6
0x2103…2151 at0007 = ╱ef╱$╱ // 0x210a @0x7
0x2103…2151 at0008 = ╱ec╱,╱ // 0x210b @0x8
0x2103…2151 at0009 = ╱4c╱L╱ // 0x210c @0x9
0x2103…2151 at000a = ╱38╱8╱ // 0x210d @0xa
0x2103…2151 at000b = ╱f0╱:╱ // 0x210e @0xb
0x2103…2151 at000c = ╱51╱Q╱ // 0x210f @0xc
0x2103…2151 at000d = ╱ed╱(╱ // 0x2110 @0xd
0x2103…2151 at000e = ╱45╱E╱ // 0x2111 @0xe
0x2103…2151 at000f = ╱ec╱,╱ // 0x2112 @0xf
0x2103…2151 at0010 = ╱45╱E╱ // 0x2113 @0x10
0x2103…2151 at0011 = ╱ee╱)╱ // 0x2114 @0x11
0x2103…2151 at0012 = ╱ec╱,╱ // 0x2115 @0x12
0x2103…2151 at0013 = ╱51╱Q╱ // 0x2116 @0x13
0x2103…2151 at0014 = ╱ed╱(╱ // 0x2117 @0x14
0x2103…2151 at0015 = ╱45╱E╱ // 0x2118 @0x15
0x2103…2151 at0016 = ╱ec╱,╱ // 0x2119 @0x16
0x2103…2151 at0017 = ╱47╱G╱ // 0x211a @0x17
0x2103…2151 at0018 = ╱ee╱)╱ // 0x211b @0x18
0x2103…2151 at0019 = ╱ec╱,╱ // 0x211c @0x19
0x2103…2151 at001a = ╱51╱Q╱ // 0x211d @0x1a
0x2103…2151 at001b = ╱ed╱(╱ // 0x211e @0x1b
0x2103…2151 at001c = ╱47╱G╱ // 0x211f @0x1c
0x2103…2151 at001d = ╱ec╱,╱ // 0x2120 @0x1d
0x2103…2151 at001e = ╱45╱E╱ // 0x2121 @0x1e
0x2103…2151 at001f = ╱ee╱)╱ // 0x2122 @0x1f
0x2103…2151 at0020 = ╱ec╱,╱ // 0x2123 @0x20
0x2103…2151 at0021 = ╱51╱Q╱ // 0x2124 @0x21
0x2103…2151 at0022 = ╱ed╱(╱ // 0x2125 @0x22
0x2103…2151 at0023 = ╱47╱G╱ // 0x2126 @0x23
0x2103…2151 at0024 = ╱ec╱,╱ // 0x2127 @0x24
0x2103…2151 at0025 = ╱47╱G╱ // 0x2128 @0x25
0x2103…2151 at0026 = ╱ee╱)╱ // 0x2129 @0x26
0x2103…2151 at0027 = ╱ec╱,╱ // 0x212a @0x27
0x2103…2151 at0028 = ╱51╱Q╱ // 0x212b @0x28
0x2103…2151 at0029 = ╱ed╱(╱ // 0x212c @0x29
0x2103…2151 at002a = ╱56╱V╱ // 0x212d @0x2a
0x2103…2151 at002b = ╱ec╱,╱ // 0x212e @0x2b
0x2103…2151 at002c = ╱45╱E╱ // 0x212f @0x2c
0x2103…2151 at002d = ╱ee╱)╱ // 0x2130 @0x2d
0x2103…2151 at002e = ╱ec╱,╱ // 0x2131 @0x2e
0x2103…2151 at002f = ╱51╱Q╱ // 0x2132 @0x2f
0x2103…2151 at0030 = ╱ed╱(╱ // 0x2133 @0x30
0x2103…2151 at0031 = ╱56╱V╱ // 0x2134 @0x31
0x2103…2151 at0032 = ╱ec╱,╱ // 0x2135 @0x32
0x2103…2151 at0033 = ╱47╱G╱ // 0x2136 @0x33
0x2103…2151 at0034 = ╱ee╱)╱ // 0x2137 @0x34
0x2103…2151 at0035 = ╱ec╱,╱ // 0x2138 @0x35
0x2103…2151 at0036 = ╱51╱Q╱ // 0x2139 @0x36
0x2103…2151 at0037 = ╱ed╱(╱ // 0x213a @0x37
0x2103…2151 at0038 = ╱34╱4╱ // 0x213b @0x38
0x2103…2151 at0039 = ╱fe00008003╱ // 0x213c @0x39
0x2103…2151 at003e = ╱ec╱,╱ // 0x2141 @0x3e
0x2103…2151 at003f = ╱45╱E╱ // 0x2142 @0x3f
0x2103…2151 at0040 = ╱ee╱)╱ // 0x2143 @0x40
0x2103…2151 at0041 = ╱ec╱,╱ // 0x2144 @0x41
0x2103…2151 at0042 = ╱51╱Q╱ // 0x2145 @0x42
0x2103…2151 at0043 = ╱ed╱(╱ // 0x2146 @0x43
0x2103…2151 at0044 = ╱34╱4╱ // 0x2147 @0x44
0x2103…2151 at0045 = ╱fe00008003╱ // 0x2148 @0x45
0x2103…2151 at004a = ╱ec╱,╱ // 0x214d @0x4a
0x2103…2151 at004b = ╱47╱G╱ // 0x214e @0x4b
0x2103…2151 at004c = ╱ee╱)╱ // 0x214f @0x4c
0x2103…2151 at004d = EOL // 0x2150 @0x4d
0x2103…2151 }
0x2151…2162 aeb9 4180 EXEC FE(E,E,L9$)
0x2151…2162 LineComalBin {
0x2151…2162 ptr = 0xaeb9 // 0x2151 @0x0
0x2151…2162 lno = 0x1054 // 0x2153 @0x2
0x2151…2162 at0004 = ╱9d╱ EXEC ╱ // 0x2155 @0x4
0x2151…2162 at0005 = ╱46╱F╱ // 0x2156 @0x5
0x2151…2162 at0006 = ╱45╱E╱ // 0x2157 @0x6
0x2151…2162 at0007 = ╱ed╱(╱ // 0x2158 @0x7
0x2151…2162 at0008 = ╱45╱E╱ // 0x2159 @0x8
0x2151…2162 at0009 = ╱ec╱,╱ // 0x215a @0x9
0x2151…2162 at000a = ╱45╱E╱ // 0x215b @0xa
0x2151…2162 at000b = ╱ec╱,╱ // 0x215c @0xb
0x2151…2162 at000c = ╱4c╱L╱ // 0x215d @0xc
0x2151…2162 at000d = ╱39╱9╱ // 0x215e @0xd
0x2151…2162 at000e = ╱ef╱$╱ // 0x215f @0xe
0x2151…2162 at000f = ╱ee╱)╱ // 0x2160 @0xf
0x2151…2162 at0010 = EOL // 0x2161 @0x10
0x2151…2162 }
0x2162…21d0 af27 4190 GET L9$,L8+E:Q(5,E),Q(5,G),Q(6,E),Q(6,G),Q(7,E),Q(7,G),Q(8,E),Q(8,G)
0x2162…21d0 LineComalBin {
0x2162…21d0 ptr = 0xaf27 // 0x2162 @0x0
0x2162…21d0 lno = 0x105e // 0x2164 @0x2
0x2162…21d0 at0004 = ╱a9╱ GET ╱ // 0x2166 @0x4
0x2162…21d0 at0005 = ╱4c╱L╱ // 0x2167 @0x5
0x2162…21d0 at0006 = ╱39╱9╱ // 0x2168 @0x6
0x2162…21d0 at0007 = ╱ef╱$╱ // 0x2169 @0x7
0x2162…21d0 at0008 = ╱ec╱,╱ // 0x216a @0x8
0x2162…21d0 at0009 = ╱4c╱L╱ // 0x216b @0x9
0x2162…21d0 at000a = ╱38╱8╱ // 0x216c @0xa
0x2162…21d0 at000b = ╱e2╱+╱ // 0x216d @0xb
0x2162…21d0 at000c = ╱45╱E╱ // 0x216e @0xc
0x2162…21d0 at000d = ╱f0╱:╱ // 0x216f @0xd
0x2162…21d0 at000e = ╱51╱Q╱ // 0x2170 @0xe
0x2162…21d0 at000f = ╱ed╱(╱ // 0x2171 @0xf
0x2162…21d0 at0010 = ╱35╱5╱ // 0x2172 @0x10
0x2162…21d0 at0011 = ╱fe0000a003╱ // 0x2173 @0x11
0x2162…21d0 at0016 = ╱ec╱,╱ // 0x2178 @0x16
0x2162…21d0 at0017 = ╱45╱E╱ // 0x2179 @0x17
0x2162…21d0 at0018 = ╱ee╱)╱ // 0x217a @0x18
0x2162…21d0 at0019 = ╱ec╱,╱ // 0x217b @0x19
0x2162…21d0 at001a = ╱51╱Q╱ // 0x217c @0x1a
0x2162…21d0 at001b = ╱ed╱(╱ // 0x217d @0x1b
0x2162…21d0 at001c = ╱35╱5╱ // 0x217e @0x1c
0x2162…21d0 at001d = ╱fe0000a003╱ // 0x217f @0x1d
0x2162…21d0 at0022 = ╱ec╱,╱ // 0x2184 @0x22
0x2162…21d0 at0023 = ╱47╱G╱ // 0x2185 @0x23
0x2162…21d0 at0024 = ╱ee╱)╱ // 0x2186 @0x24
0x2162…21d0 at0025 = ╱ec╱,╱ // 0x2187 @0x25
0x2162…21d0 at0026 = ╱51╱Q╱ // 0x2188 @0x26
0x2162…21d0 at0027 = ╱ed╱(╱ // 0x2189 @0x27
0x2162…21d0 at0028 = ╱36╱6╱ // 0x218a @0x28
0x2162…21d0 at0029 = ╱fe0000c003╱ // 0x218b @0x29
0x2162…21d0 at002e = ╱ec╱,╱ // 0x2190 @0x2e
0x2162…21d0 at002f = ╱45╱E╱ // 0x2191 @0x2f
0x2162…21d0 at0030 = ╱ee╱)╱ // 0x2192 @0x30
0x2162…21d0 at0031 = ╱ec╱,╱ // 0x2193 @0x31
0x2162…21d0 at0032 = ╱51╱Q╱ // 0x2194 @0x32
0x2162…21d0 at0033 = ╱ed╱(╱ // 0x2195 @0x33
0x2162…21d0 at0034 = ╱36╱6╱ // 0x2196 @0x34
0x2162…21d0 at0035 = ╱fe0000c003╱ // 0x2197 @0x35
0x2162…21d0 at003a = ╱ec╱,╱ // 0x219c @0x3a
0x2162…21d0 at003b = ╱47╱G╱ // 0x219d @0x3b
0x2162…21d0 at003c = ╱ee╱)╱ // 0x219e @0x3c
0x2162…21d0 at003d = ╱ec╱,╱ // 0x219f @0x3d
0x2162…21d0 at003e = ╱51╱Q╱ // 0x21a0 @0x3e
0x2162…21d0 at003f = ╱ed╱(╱ // 0x21a1 @0x3f
0x2162…21d0 at0040 = ╱37╱7╱ // 0x21a2 @0x40
0x2162…21d0 at0041 = ╱fe0000e003╱ // 0x21a3 @0x41
0x2162…21d0 at0046 = ╱ec╱,╱ // 0x21a8 @0x46
0x2162…21d0 at0047 = ╱45╱E╱ // 0x21a9 @0x47
0x2162…21d0 at0048 = ╱ee╱)╱ // 0x21aa @0x48
0x2162…21d0 at0049 = ╱ec╱,╱ // 0x21ab @0x49
0x2162…21d0 at004a = ╱51╱Q╱ // 0x21ac @0x4a
0x2162…21d0 at004b = ╱ed╱(╱ // 0x21ad @0x4b
0x2162…21d0 at004c = ╱37╱7╱ // 0x21ae @0x4c
0x2162…21d0 at004d = ╱fe0000e003╱ // 0x21af @0x4d
0x2162…21d0 at0052 = ╱ec╱,╱ // 0x21b4 @0x52
0x2162…21d0 at0053 = ╱47╱G╱ // 0x21b5 @0x53
0x2162…21d0 at0054 = ╱ee╱)╱ // 0x21b6 @0x54
0x2162…21d0 at0055 = ╱ec╱,╱ // 0x21b7 @0x55
0x2162…21d0 at0056 = ╱51╱Q╱ // 0x21b8 @0x56
0x2162…21d0 at0057 = ╱ed╱(╱ // 0x21b9 @0x57
0x2162…21d0 at0058 = ╱38╱8╱ // 0x21ba @0x58
0x2162…21d0 at0059 = ╱fe00008004╱ // 0x21bb @0x59
0x2162…21d0 at005e = ╱ec╱,╱ // 0x21c0 @0x5e
0x2162…21d0 at005f = ╱45╱E╱ // 0x21c1 @0x5f
0x2162…21d0 at0060 = ╱ee╱)╱ // 0x21c2 @0x60
0x2162…21d0 at0061 = ╱ec╱,╱ // 0x21c3 @0x61
0x2162…21d0 at0062 = ╱51╱Q╱ // 0x21c4 @0x62
0x2162…21d0 at0063 = ╱ed╱(╱ // 0x21c5 @0x63
0x2162…21d0 at0064 = ╱38╱8╱ // 0x21c6 @0x64
0x2162…21d0 at0065 = ╱fe00008004╱ // 0x21c7 @0x65
0x2162…21d0 at006a = ╱ec╱,╱ // 0x21cc @0x6a
0x2162…21d0 at006b = ╱47╱G╱ // 0x21cd @0x6b
0x2162…21d0 at006c = ╱ee╱)╱ // 0x21ce @0x6c
0x2162…21d0 at006d = EOL // 0x21cf @0x6d
0x2162…21d0 }
0x21d0…21e1 af38 4200 EXEC FE(E,G,L9$)
0x21d0…21e1 LineComalBin {
0x21d0…21e1 ptr = 0xaf38 // 0x21d0 @0x0
0x21d0…21e1 lno = 0x1068 // 0x21d2 @0x2
0x21d0…21e1 at0004 = ╱9d╱ EXEC ╱ // 0x21d4 @0x4
0x21d0…21e1 at0005 = ╱46╱F╱ // 0x21d5 @0x5
0x21d0…21e1 at0006 = ╱45╱E╱ // 0x21d6 @0x6
0x21d0…21e1 at0007 = ╱ed╱(╱ // 0x21d7 @0x7
0x21d0…21e1 at0008 = ╱45╱E╱ // 0x21d8 @0x8
0x21d0…21e1 at0009 = ╱ec╱,╱ // 0x21d9 @0x9
0x21d0…21e1 at000a = ╱47╱G╱ // 0x21da @0xa
0x21d0…21e1 at000b = ╱ec╱,╱ // 0x21db @0xb
0x21d0…21e1 at000c = ╱4c╱L╱ // 0x21dc @0xc
0x21d0…21e1 at000d = ╱39╱9╱ // 0x21dd @0xd
0x21d0…21e1 at000e = ╱ef╱$╱ // 0x21de @0xe
0x21d0…21e1 at000f = ╱ee╱)╱ // 0x21df @0xf
0x21d0…21e1 at0010 = EOL // 0x21e0 @0x10
0x21d0…21e1 }
0x21e1…21f2 af49 4210 FOR L8=E TO 8
0x21e1…21f2 LineComalBin {
0x21e1…21f2 ptr = 0xaf49 // 0x21e1 @0x0
0x21e1…21f2 lno = 0x1072 // 0x21e3 @0x2
0x21e1…21f2 at0004 = ╱83╱ FOR ╱ // 0x21e5 @0x4
0x21e1…21f2 at0005 = ╱4c╱L╱ // 0x21e6 @0x5
0x21e1…21f2 at0006 = ╱38╱8╱ // 0x21e7 @0x6
0x21e1…21f2 at0007 = ╱dc╱=╱ // 0x21e8 @0x7
0x21e1…21f2 at0008 = ╱45╱E╱ // 0x21e9 @0x8
0x21e1…21f2 at0009 = ╱b7╱ TO ╱ // 0x21ea @0x9
0x21e1…21f2 at000a = ╱38╱8╱ // 0x21eb @0xa
0x21e1…21f2 at000b = ╱fe00008004╱ // 0x21ec @0xb
0x21e1…21f2 at0010 = EOL // 0x21f1 @0x10
0x21e1…21f2 }
0x21f2…2204 af5b 4220 IF L7=Q(L8,E) THEN EXIT
0x21f2…2204 LineComalBin {
0x21f2…2204 ptr = 0xaf5b // 0x21f2 @0x0
0x21f2…2204 lno = 0x107c // 0x21f4 @0x2
0x21f2…2204 at0004 = ╱82╱ IF ╱ // 0x21f6 @0x4
0x21f2…2204 at0005 = ╱4c╱L╱ // 0x21f7 @0x5
0x21f2…2204 at0006 = ╱37╱7╱ // 0x21f8 @0x6
0x21f2…2204 at0007 = ╱dc╱=╱ // 0x21f9 @0x7
0x21f2…2204 at0008 = ╱51╱Q╱ // 0x21fa @0x8
0x21f2…2204 at0009 = ╱ed╱(╱ // 0x21fb @0x9
0x21f2…2204 at000a = ╱4c╱L╱ // 0x21fc @0xa
0x21f2…2204 at000b = ╱38╱8╱ // 0x21fd @0xb
0x21f2…2204 at000c = ╱ec╱,╱ // 0x21fe @0xc
0x21f2…2204 at000d = ╱45╱E╱ // 0x21ff @0xd
0x21f2…2204 at000e = ╱ee╱)╱ // 0x2200 @0xe
0x21f2…2204 at000f = ╱b6╱ THEN ╱ // 0x2201 @0xf
0x21f2…2204 at0010 = ╱99╱ EXIT ╱ // 0x2202 @0x10
0x21f2…2204 at0011 = EOL // 0x2203 @0x11
0x21f2…2204 }
0x2204…220c af63 4230 NEXT L8
0x2204…220c LineComalBin {
0x2204…220c ptr = 0xaf63 // 0x2204 @0x0
0x2204…220c lno = 0x1086 // 0x2206 @0x2
0x2204…220c at0004 = ╱84╱ NEXT ╱ // 0x2208 @0x4
0x2204…220c at0005 = ╱4c╱L╱ // 0x2209 @0x5
0x2204…220c at0006 = ╱38╱8╱ // 0x220a @0x6
0x2204…220c at0007 = EOL // 0x220b @0x7
0x2204…220c }
0x220c…221b af72 4240 IF L8<>W THEN I9=B
0x220c…221b LineComalBin {
0x220c…221b ptr = 0xaf72 // 0x220c @0x0
0x220c…221b lno = 0x1090 // 0x220e @0x2
0x220c…221b at0004 = ╱82╱ IF ╱ // 0x2210 @0x4
0x220c…221b at0005 = ╱4c╱L╱ // 0x2211 @0x5
0x220c…221b at0006 = ╱38╱8╱ // 0x2212 @0x6
0x220c…221b at0007 = ╱e1╱<>╱ // 0x2213 @0x7
0x220c…221b at0008 = ╱57╱W╱ // 0x2214 @0x8
0x220c…221b at0009 = ╱b6╱ THEN ╱ // 0x2215 @0x9
0x220c…221b at000a = ╱49╱I╱ // 0x2216 @0xa
0x220c…221b at000b = ╱39╱9╱ // 0x2217 @0xb
0x220c…221b at000c = ╱dc╱=╱ // 0x2218 @0xc
0x220c…221b at000d = ╱42╱B╱ // 0x2219 @0xd
0x220c…221b at000e = EOL // 0x221a @0xe
0x220c…221b }
0x221b…2221 af78 4250 ENDPROC
0x221b…2221 LineComalBin {
0x221b…2221 ptr = 0xaf78 // 0x221b @0x0
0x221b…2221 lno = 0x109a // 0x221d @0x2
0x221b…2221 at0004 = ╱9f╱ ENDPROC ╱ // 0x221f @0x4
0x221b…2221 at0005 = EOL // 0x2220 @0x5
0x221b…2221 }
0x2221…2232 af89 4260 PROC IT(Z,M3,M4)
0x2221…2232 LineComalBin {
0x2221…2232 ptr = 0xaf89 // 0x2221 @0x0
0x2221…2232 lno = 0x10a4 // 0x2223 @0x2
0x2221…2232 at0004 = ╱9e╱ PROC ╱ // 0x2225 @0x4
0x2221…2232 at0005 = ╱49╱I╱ // 0x2226 @0x5
0x2221…2232 at0006 = ╱54╱T╱ // 0x2227 @0x6
0x2221…2232 at0007 = ╱ed╱(╱ // 0x2228 @0x7
0x2221…2232 at0008 = ╱5a╱Z╱ // 0x2229 @0x8
0x2221…2232 at0009 = ╱ec╱,╱ // 0x222a @0x9
0x2221…2232 at000a = ╱4d╱M╱ // 0x222b @0xa
0x2221…2232 at000b = ╱33╱3╱ // 0x222c @0xb
0x2221…2232 at000c = ╱ec╱,╱ // 0x222d @0xc
0x2221…2232 at000d = ╱4d╱M╱ // 0x222e @0xd
0x2221…2232 at000e = ╱34╱4╱ // 0x222f @0xe
0x2221…2232 at000f = ╱ee╱)╱ // 0x2230 @0xf
0x2221…2232 at0010 = EOL // 0x2231 @0x10
0x2221…2232 }
0x2232…2244 af9b 4270 M0=M3 DIV 32
0x2232…2244 LineComalBin {
0x2232…2244 ptr = 0xaf9b // 0x2232 @0x0
0x2232…2244 lno = 0x10ae // 0x2234 @0x2
0x2232…2244 at0004 = ╱4d╱M╱ // 0x2236 @0x4
0x2232…2244 at0005 = ╱30╱0╱ // 0x2237 @0x5
0x2232…2244 at0006 = ╱dc╱=╱ // 0x2238 @0x6
0x2232…2244 at0007 = ╱4d╱M╱ // 0x2239 @0x7
0x2232…2244 at0008 = ╱33╱3╱ // 0x223a @0x8
0x2232…2244 at0009 = ╱e7╱ DIV ╱ // 0x223b @0x9
0x2232…2244 at000a = ╱33╱3╱ // 0x223c @0xa
0x2232…2244 at000b = ╱32╱2╱ // 0x223d @0xb
0x2232…2244 at000c = ╱fe00008006╱ // 0x223e @0xc
0x2232…2244 at0011 = EOL // 0x2243 @0x11
0x2232…2244 }
0x2244…2250 afa7 4280 FOR I=E TO M0
0x2244…2250 LineComalBin {
0x2244…2250 ptr = 0xafa7 // 0x2244 @0x0
0x2244…2250 lno = 0x10b8 // 0x2246 @0x2
0x2244…2250 at0004 = ╱83╱ FOR ╱ // 0x2248 @0x4
0x2244…2250 at0005 = ╱49╱I╱ // 0x2249 @0x5
0x2244…2250 at0006 = ╱dc╱=╱ // 0x224a @0x6
0x2244…2250 at0007 = ╱45╱E╱ // 0x224b @0x7
0x2244…2250 at0008 = ╱b7╱ TO ╱ // 0x224c @0x8
0x2244…2250 at0009 = ╱4d╱M╱ // 0x224d @0x9
0x2244…2250 at000a = ╱30╱0╱ // 0x224e @0xa
0x2244…2250 at000b = EOL // 0x224f @0xb
0x2244…2250 }
0x2250…2265 afbc 4290 H=(I-E)*4+E
0x2250…2265 LineComalBin {
0x2250…2265 ptr = 0xafbc // 0x2250 @0x0
0x2250…2265 lno = 0x10c2 // 0x2252 @0x2
0x2250…2265 at0004 = ╱48╱H╱ // 0x2254 @0x4
0x2250…2265 at0005 = ╱dc╱=╱ // 0x2255 @0x5
0x2250…2265 at0006 = ╱ed╱(╱ // 0x2256 @0x6
0x2250…2265 at0007 = ╱49╱I╱ // 0x2257 @0x7
0x2250…2265 at0008 = ╱e3╱-╱ // 0x2258 @0x8
0x2250…2265 at0009 = ╱45╱E╱ // 0x2259 @0x9
0x2250…2265 at000a = ╱ee╱)╱ // 0x225a @0xa
0x2250…2265 at000b = ╱e4╱*╱ // 0x225b @0xb
0x2250…2265 at000c = ╱34╱4╱ // 0x225c @0xc
0x2250…2265 at000d = ╱fe00008003╱ // 0x225d @0xd
0x2250…2265 at0012 = ╱e2╱+╱ // 0x2262 @0x12
0x2250…2265 at0013 = ╱45╱E╱ // 0x2263 @0x13
0x2250…2265 at0014 = EOL // 0x2264 @0x14
0x2250…2265 }
0x2265…229f aff6 4300 GET M4$,I:Z(H),Z(H+E),Z(H+E),Z(H+G),Z(H+G),Z(H+V),Z(H+V)
0x2265…229f LineComalBin {
0x2265…229f ptr = 0xaff6 // 0x2265 @0x0
0x2265…229f lno = 0x10cc // 0x2267 @0x2
0x2265…229f at0004 = ╱a9╱ GET ╱ // 0x2269 @0x4
0x2265…229f at0005 = ╱4d╱M╱ // 0x226a @0x5
0x2265…229f at0006 = ╱34╱4╱ // 0x226b @0x6
0x2265…229f at0007 = ╱ef╱$╱ // 0x226c @0x7
0x2265…229f at0008 = ╱ec╱,╱ // 0x226d @0x8
0x2265…229f at0009 = ╱49╱I╱ // 0x226e @0x9
0x2265…229f at000a = ╱f0╱:╱ // 0x226f @0xa
0x2265…229f at000b = ╱5a╱Z╱ // 0x2270 @0xb
0x2265…229f at000c = ╱ed╱(╱ // 0x2271 @0xc
0x2265…229f at000d = ╱48╱H╱ // 0x2272 @0xd
0x2265…229f at000e = ╱ee╱)╱ // 0x2273 @0xe
0x2265…229f at000f = ╱ec╱,╱ // 0x2274 @0xf
0x2265…229f at0010 = ╱5a╱Z╱ // 0x2275 @0x10
0x2265…229f at0011 = ╱ed╱(╱ // 0x2276 @0x11
0x2265…229f at0012 = ╱48╱H╱ // 0x2277 @0x12
0x2265…229f at0013 = ╱e2╱+╱ // 0x2278 @0x13
0x2265…229f at0014 = ╱45╱E╱ // 0x2279 @0x14
0x2265…229f at0015 = ╱ee╱)╱ // 0x227a @0x15
0x2265…229f at0016 = ╱ec╱,╱ // 0x227b @0x16
0x2265…229f at0017 = ╱5a╱Z╱ // 0x227c @0x17
0x2265…229f at0018 = ╱ed╱(╱ // 0x227d @0x18
0x2265…229f at0019 = ╱48╱H╱ // 0x227e @0x19
0x2265…229f at001a = ╱e2╱+╱ // 0x227f @0x1a
0x2265…229f at001b = ╱45╱E╱ // 0x2280 @0x1b
0x2265…229f at001c = ╱ee╱)╱ // 0x2281 @0x1c
0x2265…229f at001d = ╱ec╱,╱ // 0x2282 @0x1d
0x2265…229f at001e = ╱5a╱Z╱ // 0x2283 @0x1e
0x2265…229f at001f = ╱ed╱(╱ // 0x2284 @0x1f
0x2265…229f at0020 = ╱48╱H╱ // 0x2285 @0x20
0x2265…229f at0021 = ╱e2╱+╱ // 0x2286 @0x21
0x2265…229f at0022 = ╱47╱G╱ // 0x2287 @0x22
0x2265…229f at0023 = ╱ee╱)╱ // 0x2288 @0x23
0x2265…229f at0024 = ╱ec╱,╱ // 0x2289 @0x24
0x2265…229f at0025 = ╱5a╱Z╱ // 0x228a @0x25
0x2265…229f at0026 = ╱ed╱(╱ // 0x228b @0x26
0x2265…229f at0027 = ╱48╱H╱ // 0x228c @0x27
0x2265…229f at0028 = ╱e2╱+╱ // 0x228d @0x28
0x2265…229f at0029 = ╱47╱G╱ // 0x228e @0x29
0x2265…229f at002a = ╱ee╱)╱ // 0x228f @0x2a
0x2265…229f at002b = ╱ec╱,╱ // 0x2290 @0x2b
0x2265…229f at002c = ╱5a╱Z╱ // 0x2291 @0x2c
0x2265…229f at002d = ╱ed╱(╱ // 0x2292 @0x2d
0x2265…229f at002e = ╱48╱H╱ // 0x2293 @0x2e
0x2265…229f at002f = ╱e2╱+╱ // 0x2294 @0x2f
0x2265…229f at0030 = ╱56╱V╱ // 0x2295 @0x30
0x2265…229f at0031 = ╱ee╱)╱ // 0x2296 @0x31
0x2265…229f at0032 = ╱ec╱,╱ // 0x2297 @0x32
0x2265…229f at0033 = ╱5a╱Z╱ // 0x2298 @0x33
0x2265…229f at0034 = ╱ed╱(╱ // 0x2299 @0x34
0x2265…229f at0035 = ╱48╱H╱ // 0x229a @0x35
0x2265…229f at0036 = ╱e2╱+╱ // 0x229b @0x36
0x2265…229f at0037 = ╱56╱V╱ // 0x229c @0x37
0x2265…229f at0038 = ╱ee╱)╱ // 0x229d @0x38
0x2265…229f at0039 = EOL // 0x229e @0x39
0x2265…229f }
0x229f…22b5 b00c 4310 EXEC FE(5,E,M4$)
0x229f…22b5 LineComalBin {
0x229f…22b5 ptr = 0xb00c // 0x229f @0x0
0x229f…22b5 lno = 0x10d6 // 0x22a1 @0x2
0x229f…22b5 at0004 = ╱9d╱ EXEC ╱ // 0x22a3 @0x4
0x229f…22b5 at0005 = ╱46╱F╱ // 0x22a4 @0x5
0x229f…22b5 at0006 = ╱45╱E╱ // 0x22a5 @0x6
0x229f…22b5 at0007 = ╱ed╱(╱ // 0x22a6 @0x7
0x229f…22b5 at0008 = ╱35╱5╱ // 0x22a7 @0x8
0x229f…22b5 at0009 = ╱fe0000a003╱ // 0x22a8 @0x9
0x229f…22b5 at000e = ╱ec╱,╱ // 0x22ad @0xe
0x229f…22b5 at000f = ╱45╱E╱ // 0x22ae @0xf
0x229f…22b5 at0010 = ╱ec╱,╱ // 0x22af @0x10
0x229f…22b5 at0011 = ╱4d╱M╱ // 0x22b0 @0x11
0x229f…22b5 at0012 = ╱34╱4╱ // 0x22b1 @0x12
0x229f…22b5 at0013 = ╱ef╱$╱ // 0x22b2 @0x13
0x229f…22b5 at0014 = ╱ee╱)╱ // 0x22b3 @0x14
0x229f…22b5 at0015 = EOL // 0x22b4 @0x15
0x229f…22b5 }
0x22b5…22bc b013 4320 NEXT I
0x22b5…22bc LineComalBin {
0x22b5…22bc ptr = 0xb013 // 0x22b5 @0x0
0x22b5…22bc lno = 0x10e0 // 0x22b7 @0x2
0x22b5…22bc at0004 = ╱84╱ NEXT ╱ // 0x22b9 @0x4
0x22b5…22bc at0005 = ╱49╱I╱ // 0x22ba @0x5
0x22b5…22bc at0006 = EOL // 0x22bb @0x6
0x22b5…22bc }
0x22bc…22c2 b019 4330 ENDPROC
0x22bc…22c2 LineComalBin {
0x22bc…22c2 ptr = 0xb019 // 0x22bc @0x0
0x22bc…22c2 lno = 0x10ea // 0x22be @0x2
0x22bc…22c2 at0004 = ╱9f╱ ENDPROC ╱ // 0x22c0 @0x4
0x22bc…22c2 at0005 = EOL // 0x22c1 @0x5
0x22bc…22c2 }
0x22c2…22d1 b028 4340 PROC KN(M5,M6)
0x22c2…22d1 LineComalBin {
0x22c2…22d1 ptr = 0xb028 // 0x22c2 @0x0
0x22c2…22d1 lno = 0x10f4 // 0x22c4 @0x2
0x22c2…22d1 at0004 = ╱9e╱ PROC ╱ // 0x22c6 @0x4
0x22c2…22d1 at0005 = ╱4b╱K╱ // 0x22c7 @0x5
0x22c2…22d1 at0006 = ╱4e╱N╱ // 0x22c8 @0x6
0x22c2…22d1 at0007 = ╱ed╱(╱ // 0x22c9 @0x7
0x22c2…22d1 at0008 = ╱4d╱M╱ // 0x22ca @0x8
0x22c2…22d1 at0009 = ╱35╱5╱ // 0x22cb @0x9
0x22c2…22d1 at000a = ╱ec╱,╱ // 0x22cc @0xa
0x22c2…22d1 at000b = ╱4d╱M╱ // 0x22cd @0xb
0x22c2…22d1 at000c = ╱36╱6╱ // 0x22ce @0xc
0x22c2…22d1 at000d = ╱ee╱)╱ // 0x22cf @0xd
0x22c2…22d1 at000e = EOL // 0x22d0 @0xe
0x22c2…22d1 }
0x22d1…22da b031 4350 I9=E
0x22d1…22da LineComalBin {
0x22d1…22da ptr = 0xb031 // 0x22d1 @0x0
0x22d1…22da lno = 0x10fe // 0x22d3 @0x2
0x22d1…22da at0004 = ╱49╱I╱ // 0x22d5 @0x4
0x22d1…22da at0005 = ╱39╱9╱ // 0x22d6 @0x5
0x22d1…22da at0006 = ╱dc╱=╱ // 0x22d7 @0x6
0x22d1…22da at0007 = ╱45╱E╱ // 0x22d8 @0x7
0x22d1…22da at0008 = EOL // 0x22d9 @0x8
0x22d1…22da }
0x22da…22e4 b03b 4360 CASE M5 OF
0x22da…22e4 LineComalBin {
0x22da…22e4 ptr = 0xb03b // 0x22da @0x0
0x22da…22e4 lno = 0x1108 // 0x22dc @0x2
0x22da…22e4 at0004 = ╱a201╱ CASE ╱ // 0x22de @0x4
0x22da…22e4 at0006 = ╱4d╱M╱ // 0x22e0 @0x6
0x22da…22e4 at0007 = ╱35╱5╱ // 0x22e1 @0x7
0x22da…22e4 at0008 = ╱ba╱ OF ╱ // 0x22e2 @0x8
0x22da…22e4 at0009 = EOL // 0x22e3 @0x9
0x22da…22e4 }
0x22e4…2300 (116,) b057 4370 EXEC FI(M7,M8,M9,M6,N0,A6$)
0x22e4…2300 LineComalBin {
0x22e4…2300 ptr = 0xb057 // 0x22e4 @0x0
0x22e4…2300 lno = 0x1112 // 0x22e6 @0x2
0x22e4…2300 at0004 = ╱9d╱ EXEC ╱ // 0x22e8 @0x4
0x22e4…2300 at0005 = ╱46╱F╱ // 0x22e9 @0x5
0x22e4…2300 at0006 = ╱49╱I╱ // 0x22ea @0x6
0x22e4…2300 at0007 = ╱ed╱(╱ // 0x22eb @0x7
0x22e4…2300 at0008 = ╱4d╱M╱ // 0x22ec @0x8
0x22e4…2300 at0009 = ╱37╱7╱ // 0x22ed @0x9
0x22e4…2300 at000a = ╱ec╱,╱ // 0x22ee @0xa
0x22e4…2300 at000b = ╱4d╱M╱ // 0x22ef @0xb
0x22e4…2300 at000c = ╱38╱8╱ // 0x22f0 @0xc
0x22e4…2300 at000d = ╱ec╱,╱ // 0x22f1 @0xd
0x22e4…2300 at000e = ╱4d╱M╱ // 0x22f2 @0xe
0x22e4…2300 at000f = ╱39╱9╱ // 0x22f3 @0xf
0x22e4…2300 at0010 = ╱ec╱,╱ // 0x22f4 @0x10
0x22e4…2300 at0011 = ╱4d╱M╱ // 0x22f5 @0x11
0x22e4…2300 at0012 = ╱36╱6╱ // 0x22f6 @0x12
0x22e4…2300 at0013 = ╱ec╱,╱ // 0x22f7 @0x13
0x22e4…2300 at0014 = ╱4e╱N╱ // 0x22f8 @0x14
0x22e4…2300 at0015 = ╱30╱0╱ // 0x22f9 @0x15
0x22e4…2300 at0016 = ╱ec╱,╱ // 0x22fa @0x16
0x22e4…2300 at0017 = ╱41╱A╱ // 0x22fb @0x17
0x22e4…2300 at0018 = ╱36╱6╱ // 0x22fc @0x18
0x22e4…2300 at0019 = ╱ef╱$╱ // 0x22fd @0x19
0x22e4…2300 at001a = ╱ee╱)╱ // 0x22fe @0x1a
0x22e4…2300 at001b = EOL // 0x22ff @0x1b
0x22e4…2300 }
0x2300…230b b062 4380 IF I9=B THEN
0x2300…230b LineComalBin {
0x2300…230b ptr = 0xb062 // 0x2300 @0x0
0x2300…230b lno = 0x111c // 0x2302 @0x2
0x2300…230b at0004 = ╱9c╱ IF ╱ // 0x2304 @0x4
0x2300…230b at0005 = ╱49╱I╱ // 0x2305 @0x5
0x2300…230b at0006 = ╱39╱9╱ // 0x2306 @0x6
0x2300…230b at0007 = ╱dc╱=╱ // 0x2307 @0x7
0x2300…230b at0008 = ╱42╱B╱ // 0x2308 @0x8
0x2300…230b at0009 = ╱b6╱ THEN ╱ // 0x2309 @0x9
0x2300…230b at000a = EOL // 0x230a @0xa
0x2300…230b }
0x230b…2313 b06a 4390 EXEC HF
0x230b…2313 LineComalBin {
0x230b…2313 ptr = 0xb06a // 0x230b @0x0
0x230b…2313 lno = 0x1126 // 0x230d @0x2
0x230b…2313 at0004 = ╱9d╱ EXEC ╱ // 0x230f @0x4
0x230b…2313 at0005 = ╱48╱H╱ // 0x2310 @0x5
0x230b…2313 at0006 = ╱46╱F╱ // 0x2311 @0x6
0x230b…2313 at0007 = EOL // 0x2312 @0x7
0x230b…2313 }
0x2313…231f b076 4400 B4$=B0$
0x2313…231f LineComalBin {
0x2313…231f ptr = 0xb076 // 0x2313 @0x0
0x2313…231f lno = 0x1130 // 0x2315 @0x2
0x2313…231f at0004 = ╱42╱B╱ // 0x2317 @0x4
0x2313…231f at0005 = ╱34╱4╱ // 0x2318 @0x5
0x2313…231f at0006 = ╱ef╱$╱ // 0x2319 @0x6
0x2313…231f at0007 = ╱dc╱=╱ // 0x231a @0x7
0x2313…231f at0008 = ╱42╱B╱ // 0x231b @0x8
0x2313…231f at0009 = ╱30╱0╱ // 0x231c @0x9
0x2313…231f at000a = ╱ef╱$╱ // 0x231d @0xa
0x2313…231f at000b = EOL // 0x231e @0xb
0x2313…231f }
0x231f…2325 b07c 4410 ENDIF
0x231f…2325 LineComalBin {
0x231f…2325 ptr = 0xb07c // 0x231f @0x0
0x231f…2325 lno = 0x113a // 0x2321 @0x2
0x231f…2325 at0004 = ╱9b╱ ENDIF ╱ // 0x2323 @0x4
0x231f…2325 at0005 = EOL // 0x2324 @0x5
0x231f…2325 }
0x2325…232e b085 4420 WHEN J1
0x2325…232e LineComalBin {
0x2325…232e ptr = 0xb085 // 0x2325 @0x0
0x2325…232e lno = 0x1144 // 0x2327 @0x2
0x2325…232e at0004 = ╱a301╱ WHEN ╱ // 0x2329 @0x4
0x2325…232e at0006 = ╱4a╱J╱ // 0x232b @0x6
0x2325…232e at0007 = ╱31╱1╱ // 0x232c @0x7
0x2325…232e at0008 = EOL // 0x232d @0x8
0x2325…232e }
0x232e…235c b0b3 4430 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN
0x232e…235c LineComalBin {
0x232e…235c ptr = 0xb0b3 // 0x232e @0x0
0x232e…235c lno = 0x114e // 0x2330 @0x2
0x232e…235c at0004 = ╱9c╱ IF ╱ // 0x2332 @0x4
0x232e…235c at0005 = ╱d9╱ NOT ╱ // 0x2333 @0x5
0x232e…235c at0006 = ╱ed╱(╱ // 0x2334 @0x6
0x232e…235c at0007 = ╱4d╱M╱ // 0x2335 @0x7
0x232e…235c at0008 = ╱35╱5╱ // 0x2336 @0x8
0x232e…235c at0009 = ╱e4╱*╱ // 0x2337 @0x9
0x232e…235c at000a = ╱31╱1╱ // 0x2338 @0xa
0x232e…235c at000b = ╱30╱0╱ // 0x2339 @0xb
0x232e…235c at000c = ╱30╱0╱ // 0x233a @0xc
0x232e…235c at000d = ╱30╱0╱ // 0x233b @0xd
0x232e…235c at000e = ╱30╱0╱ // 0x233c @0xe
0x232e…235c at000f = ╱fe00409c0e╱ // 0x233d @0xf
0x232e…235c at0014 = ╱df╱<=╱ // 0x2342 @0x14
0x232e…235c at0015 = ╱4d╱M╱ // 0x2343 @0x15
0x232e…235c at0016 = ╱36╱6╱ // 0x2344 @0x16
0x232e…235c at0017 = ╱da╱ AND ╱ // 0x2345 @0x17
0x232e…235c at0018 = ╱4d╱M╱ // 0x2346 @0x18
0x232e…235c at0019 = ╱35╱5╱ // 0x2347 @0x19
0x232e…235c at001a = ╱e4╱*╱ // 0x2348 @0x1a
0x232e…235c at001b = ╱31╱1╱ // 0x2349 @0x1b
0x232e…235c at001c = ╱30╱0╱ // 0x234a @0x1c
0x232e…235c at001d = ╱30╱0╱ // 0x234b @0x1d
0x232e…235c at001e = ╱30╱0╱ // 0x234c @0x1e
0x232e…235c at001f = ╱30╱0╱ // 0x234d @0x1f
0x232e…235c at0020 = ╱fe00409c0e╱ // 0x234e @0x20
0x232e…235c at0025 = ╱e2╱+╱ // 0x2353 @0x25
0x232e…235c at0026 = ╱4e╱N╱ // 0x2354 @0x26
0x232e…235c at0027 = ╱31╱1╱ // 0x2355 @0x27
0x232e…235c at0028 = ╱e0╱=>╱ // 0x2356 @0x28
0x232e…235c at0029 = ╱4d╱M╱ // 0x2357 @0x29
0x232e…235c at002a = ╱36╱6╱ // 0x2358 @0x2a
0x232e…235c at002b = ╱ee╱)╱ // 0x2359 @0x2b
0x232e…235c at002c = ╱b6╱ THEN ╱ // 0x235a @0x2c
0x232e…235c at002d = EOL // 0x235b @0x2d
0x232e…235c }
0x235c…2378 b0cf 4440 EXEC FI(N2,M8,N4,M6,N5,A4$)
0x235c…2378 LineComalBin {
0x235c…2378 ptr = 0xb0cf // 0x235c @0x0
0x235c…2378 lno = 0x1158 // 0x235e @0x2
0x235c…2378 at0004 = ╱9d╱ EXEC ╱ // 0x2360 @0x4
0x235c…2378 at0005 = ╱46╱F╱ // 0x2361 @0x5
0x235c…2378 at0006 = ╱49╱I╱ // 0x2362 @0x6
0x235c…2378 at0007 = ╱ed╱(╱ // 0x2363 @0x7
0x235c…2378 at0008 = ╱4e╱N╱ // 0x2364 @0x8
0x235c…2378 at0009 = ╱32╱2╱ // 0x2365 @0x9
0x235c…2378 at000a = ╱ec╱,╱ // 0x2366 @0xa
0x235c…2378 at000b = ╱4d╱M╱ // 0x2367 @0xb
0x235c…2378 at000c = ╱38╱8╱ // 0x2368 @0xc
0x235c…2378 at000d = ╱ec╱,╱ // 0x2369 @0xd
0x235c…2378 at000e = ╱4e╱N╱ // 0x236a @0xe
0x235c…2378 at000f = ╱34╱4╱ // 0x236b @0xf
0x235c…2378 at0010 = ╱ec╱,╱ // 0x236c @0x10
0x235c…2378 at0011 = ╱4d╱M╱ // 0x236d @0x11
0x235c…2378 at0012 = ╱36╱6╱ // 0x236e @0x12
0x235c…2378 at0013 = ╱ec╱,╱ // 0x236f @0x13
0x235c…2378 at0014 = ╱4e╱N╱ // 0x2370 @0x14
0x235c…2378 at0015 = ╱35╱5╱ // 0x2371 @0x15
0x235c…2378 at0016 = ╱ec╱,╱ // 0x2372 @0x16
0x235c…2378 at0017 = ╱41╱A╱ // 0x2373 @0x17
0x235c…2378 at0018 = ╱34╱4╱ // 0x2374 @0x18
0x235c…2378 at0019 = ╱ef╱$╱ // 0x2375 @0x19
0x235c…2378 at001a = ╱ee╱)╱ // 0x2376 @0x1a
0x235c…2378 at001b = EOL // 0x2377 @0x1b
0x235c…2378 }
0x2378…2383 b0da 4450 IF I9=B THEN
0x2378…2383 LineComalBin {
0x2378…2383 ptr = 0xb0da // 0x2378 @0x0
0x2378…2383 lno = 0x1162 // 0x237a @0x2
0x2378…2383 at0004 = ╱9c╱ IF ╱ // 0x237c @0x4
0x2378…2383 at0005 = ╱49╱I╱ // 0x237d @0x5
0x2378…2383 at0006 = ╱39╱9╱ // 0x237e @0x6
0x2378…2383 at0007 = ╱dc╱=╱ // 0x237f @0x7
0x2378…2383 at0008 = ╱42╱B╱ // 0x2380 @0x8
0x2378…2383 at0009 = ╱b6╱ THEN ╱ // 0x2381 @0x9
0x2378…2383 at000a = EOL // 0x2382 @0xa
0x2378…2383 }
0x2383…238b b0e2 4460 EXEC HD
0x2383…238b LineComalBin {
0x2383…238b ptr = 0xb0e2 // 0x2383 @0x0
0x2383…238b lno = 0x116c // 0x2385 @0x2
0x2383…238b at0004 = ╱9d╱ EXEC ╱ // 0x2387 @0x4
0x2383…238b at0005 = ╱48╱H╱ // 0x2388 @0x5
0x2383…238b at0006 = ╱44╱D╱ // 0x2389 @0x6
0x2383…238b at0007 = EOL // 0x238a @0x7
0x2383…238b }
0x238b…2397 b0ee 4470 B4$=A7$
0x238b…2397 LineComalBin {
0x238b…2397 ptr = 0xb0ee // 0x238b @0x0
0x238b…2397 lno = 0x1176 // 0x238d @0x2
0x238b…2397 at0004 = ╱42╱B╱ // 0x238f @0x4
0x238b…2397 at0005 = ╱34╱4╱ // 0x2390 @0x5
0x238b…2397 at0006 = ╱ef╱$╱ // 0x2391 @0x6
0x238b…2397 at0007 = ╱dc╱=╱ // 0x2392 @0x7
0x238b…2397 at0008 = ╱41╱A╱ // 0x2393 @0x8
0x238b…2397 at0009 = ╱37╱7╱ // 0x2394 @0x9
0x238b…2397 at000a = ╱ef╱$╱ // 0x2395 @0xa
0x238b…2397 at000b = EOL // 0x2396 @0xb
0x238b…2397 }
0x2397…239d b0f4 4480 ENDIF
0x2397…239d LineComalBin {
0x2397…239d ptr = 0xb0f4 // 0x2397 @0x0
0x2397…239d lno = 0x1180 // 0x2399 @0x2
0x2397…239d at0004 = ╱9b╱ ENDIF ╱ // 0x239b @0x4
0x2397…239d at0005 = EOL // 0x239c @0x5
0x2397…239d }
0x239d…23a3 b0fa 4490 ENDIF
0x239d…23a3 LineComalBin {
0x239d…23a3 ptr = 0xb0fa // 0x239d @0x0
0x239d…23a3 lno = 0x118a // 0x239f @0x2
0x239d…23a3 at0004 = ╱9b╱ ENDIF ╱ // 0x23a1 @0x4
0x239d…23a3 at0005 = EOL // 0x23a2 @0x5
0x239d…23a3 }
0x23a3…23ac b103 4500 WHEN J2
0x23a3…23ac LineComalBin {
0x23a3…23ac ptr = 0xb103 // 0x23a3 @0x0
0x23a3…23ac lno = 0x1194 // 0x23a5 @0x2
0x23a3…23ac at0004 = ╱a301╱ WHEN ╱ // 0x23a7 @0x4
0x23a3…23ac at0006 = ╱4a╱J╱ // 0x23a9 @0x6
0x23a3…23ac at0007 = ╱32╱2╱ // 0x23aa @0x7
0x23a3…23ac at0008 = EOL // 0x23ab @0x8
0x23a3…23ac }
0x23ac…23d8 b12f 4510 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN
0x23ac…23d8 LineComalBin {
0x23ac…23d8 ptr = 0xb12f // 0x23ac @0x0
0x23ac…23d8 lno = 0x119e // 0x23ae @0x2
0x23ac…23d8 at0004 = ╱9c╱ IF ╱ // 0x23b0 @0x4
0x23ac…23d8 at0005 = ╱d9╱ NOT ╱ // 0x23b1 @0x5
0x23ac…23d8 at0006 = ╱ed╱(╱ // 0x23b2 @0x6
0x23ac…23d8 at0007 = ╱4d╱M╱ // 0x23b3 @0x7
0x23ac…23d8 at0008 = ╱35╱5╱ // 0x23b4 @0x8
0x23ac…23d8 at0009 = ╱e4╱*╱ // 0x23b5 @0x9
0x23ac…23d8 at000a = ╱31╱1╱ // 0x23b6 @0xa
0x23ac…23d8 at000b = ╱30╱0╱ // 0x23b7 @0xb
0x23ac…23d8 at000c = ╱30╱0╱ // 0x23b8 @0xc
0x23ac…23d8 at000d = ╱30╱0╱ // 0x23b9 @0xd
0x23ac…23d8 at000e = ╱fe0000fa0a╱ // 0x23ba @0xe
0x23ac…23d8 at0013 = ╱df╱<=╱ // 0x23bf @0x13
0x23ac…23d8 at0014 = ╱4d╱M╱ // 0x23c0 @0x14
0x23ac…23d8 at0015 = ╱36╱6╱ // 0x23c1 @0x15
0x23ac…23d8 at0016 = ╱da╱ AND ╱ // 0x23c2 @0x16
0x23ac…23d8 at0017 = ╱4d╱M╱ // 0x23c3 @0x17
0x23ac…23d8 at0018 = ╱35╱5╱ // 0x23c4 @0x18
0x23ac…23d8 at0019 = ╱e4╱*╱ // 0x23c5 @0x19
0x23ac…23d8 at001a = ╱31╱1╱ // 0x23c6 @0x1a
0x23ac…23d8 at001b = ╱30╱0╱ // 0x23c7 @0x1b
0x23ac…23d8 at001c = ╱30╱0╱ // 0x23c8 @0x1c
0x23ac…23d8 at001d = ╱30╱0╱ // 0x23c9 @0x1d
0x23ac…23d8 at001e = ╱fe0000fa0a╱ // 0x23ca @0x1e
0x23ac…23d8 at0023 = ╱e2╱+╱ // 0x23cf @0x23
0x23ac…23d8 at0024 = ╱4e╱N╱ // 0x23d0 @0x24
0x23ac…23d8 at0025 = ╱36╱6╱ // 0x23d1 @0x25
0x23ac…23d8 at0026 = ╱e0╱=>╱ // 0x23d2 @0x26
0x23ac…23d8 at0027 = ╱4d╱M╱ // 0x23d3 @0x27
0x23ac…23d8 at0028 = ╱36╱6╱ // 0x23d4 @0x28
0x23ac…23d8 at0029 = ╱ee╱)╱ // 0x23d5 @0x29
0x23ac…23d8 at002a = ╱b6╱ THEN ╱ // 0x23d6 @0x2a
0x23ac…23d8 at002b = EOL // 0x23d7 @0x2b
0x23ac…23d8 }
0x23d8…23f4 b14b 4520 EXEC FI(N7,M8,N8,M6,J9,B6$)
0x23d8…23f4 LineComalBin {
0x23d8…23f4 ptr = 0xb14b // 0x23d8 @0x0
0x23d8…23f4 lno = 0x11a8 // 0x23da @0x2
0x23d8…23f4 at0004 = ╱9d╱ EXEC ╱ // 0x23dc @0x4
0x23d8…23f4 at0005 = ╱46╱F╱ // 0x23dd @0x5
0x23d8…23f4 at0006 = ╱49╱I╱ // 0x23de @0x6
0x23d8…23f4 at0007 = ╱ed╱(╱ // 0x23df @0x7
0x23d8…23f4 at0008 = ╱4e╱N╱ // 0x23e0 @0x8
0x23d8…23f4 at0009 = ╱37╱7╱ // 0x23e1 @0x9
0x23d8…23f4 at000a = ╱ec╱,╱ // 0x23e2 @0xa
0x23d8…23f4 at000b = ╱4d╱M╱ // 0x23e3 @0xb
0x23d8…23f4 at000c = ╱38╱8╱ // 0x23e4 @0xc
0x23d8…23f4 at000d = ╱ec╱,╱ // 0x23e5 @0xd
0x23d8…23f4 at000e = ╱4e╱N╱ // 0x23e6 @0xe
0x23d8…23f4 at000f = ╱38╱8╱ // 0x23e7 @0xf
0x23d8…23f4 at0010 = ╱ec╱,╱ // 0x23e8 @0x10
0x23d8…23f4 at0011 = ╱4d╱M╱ // 0x23e9 @0x11
0x23d8…23f4 at0012 = ╱36╱6╱ // 0x23ea @0x12
0x23d8…23f4 at0013 = ╱ec╱,╱ // 0x23eb @0x13
0x23d8…23f4 at0014 = ╱4a╱J╱ // 0x23ec @0x14
0x23d8…23f4 at0015 = ╱39╱9╱ // 0x23ed @0x15
0x23d8…23f4 at0016 = ╱ec╱,╱ // 0x23ee @0x16
0x23d8…23f4 at0017 = ╱42╱B╱ // 0x23ef @0x17
0x23d8…23f4 at0018 = ╱36╱6╱ // 0x23f0 @0x18
0x23d8…23f4 at0019 = ╱ef╱$╱ // 0x23f1 @0x19
0x23d8…23f4 at001a = ╱ee╱)╱ // 0x23f2 @0x1a
0x23d8…23f4 at001b = EOL // 0x23f3 @0x1b
0x23d8…23f4 }
0x23f4…23ff b156 4530 IF I9=B THEN
0x23f4…23ff LineComalBin {
0x23f4…23ff ptr = 0xb156 // 0x23f4 @0x0
0x23f4…23ff lno = 0x11b2 // 0x23f6 @0x2
0x23f4…23ff at0004 = ╱9c╱ IF ╱ // 0x23f8 @0x4
0x23f4…23ff at0005 = ╱49╱I╱ // 0x23f9 @0x5
0x23f4…23ff at0006 = ╱39╱9╱ // 0x23fa @0x6
0x23f4…23ff at0007 = ╱dc╱=╱ // 0x23fb @0x7
0x23f4…23ff at0008 = ╱42╱B╱ // 0x23fc @0x8
0x23f4…23ff at0009 = ╱b6╱ THEN ╱ // 0x23fd @0x9
0x23f4…23ff at000a = EOL // 0x23fe @0xa
0x23f4…23ff }
0x23ff…2407 b15e 4540 EXEC HK
0x23ff…2407 LineComalBin {
0x23ff…2407 ptr = 0xb15e // 0x23ff @0x0
0x23ff…2407 lno = 0x11bc // 0x2401 @0x2
0x23ff…2407 at0004 = ╱9d╱ EXEC ╱ // 0x2403 @0x4
0x23ff…2407 at0005 = ╱48╱H╱ // 0x2404 @0x5
0x23ff…2407 at0006 = ╱4b╱K╱ // 0x2405 @0x6
0x23ff…2407 at0007 = EOL // 0x2406 @0x7
0x23ff…2407 }
0x2407…2413 b16a 4550 B4$=F8$
0x2407…2413 LineComalBin {
0x2407…2413 ptr = 0xb16a // 0x2407 @0x0
0x2407…2413 lno = 0x11c6 // 0x2409 @0x2
0x2407…2413 at0004 = ╱42╱B╱ // 0x240b @0x4
0x2407…2413 at0005 = ╱34╱4╱ // 0x240c @0x5
0x2407…2413 at0006 = ╱ef╱$╱ // 0x240d @0x6
0x2407…2413 at0007 = ╱dc╱=╱ // 0x240e @0x7
0x2407…2413 at0008 = ╱46╱F╱ // 0x240f @0x8
0x2407…2413 at0009 = ╱38╱8╱ // 0x2410 @0x9
0x2407…2413 at000a = ╱ef╱$╱ // 0x2411 @0xa
0x2407…2413 at000b = EOL // 0x2412 @0xb
0x2407…2413 }
0x2413…2419 b170 4560 ENDIF
0x2413…2419 LineComalBin {
0x2413…2419 ptr = 0xb170 // 0x2413 @0x0
0x2413…2419 lno = 0x11d0 // 0x2415 @0x2
0x2413…2419 at0004 = ╱9b╱ ENDIF ╱ // 0x2417 @0x4
0x2413…2419 at0005 = EOL // 0x2418 @0x5
0x2413…2419 }
0x2419…241f b176 4570 ENDIF
0x2419…241f LineComalBin {
0x2419…241f ptr = 0xb176 // 0x2419 @0x0
0x2419…241f lno = 0x11da // 0x241b @0x2
0x2419…241f at0004 = ╱9b╱ ENDIF ╱ // 0x241d @0x4
0x2419…241f at0005 = EOL // 0x241e @0x5
0x2419…241f }
0x241f…2425 b17c 4580 ENDCASE
0x241f…2425 LineComalBin {
0x241f…2425 ptr = 0xb17c // 0x241f @0x0
0x241f…2425 lno = 0x11e4 // 0x2421 @0x2
0x241f…2425 at0004 = ╱a4╱ ENDCASE ╱ // 0x2423 @0x4
0x241f…2425 at0005 = EOL // 0x2424 @0x5
0x241f…2425 }
0x2425…2430 b187 4590 IF I9=E THEN
0x2425…2430 LineComalBin {
0x2425…2430 ptr = 0xb187 // 0x2425 @0x0
0x2425…2430 lno = 0x11ee // 0x2427 @0x2
0x2425…2430 at0004 = ╱9c╱ IF ╱ // 0x2429 @0x4
0x2425…2430 at0005 = ╱49╱I╱ // 0x242a @0x5
0x2425…2430 at0006 = ╱39╱9╱ // 0x242b @0x6
0x2425…2430 at0007 = ╱dc╱=╱ // 0x242c @0x7
0x2425…2430 at0008 = ╱45╱E╱ // 0x242d @0x8
0x2425…2430 at0009 = ╱b6╱ THEN ╱ // 0x242e @0x9
0x2425…2430 at000a = EOL // 0x242f @0xa
0x2425…2430 }
0x2430…2454 b1ab 4600 B4$="Konto eksisterer ikke "
0x2430…2454 LineComalBin {
0x2430…2454 ptr = 0xb1ab // 0x2430 @0x0
0x2430…2454 lno = 0x11f8 // 0x2432 @0x2
0x2430…2454 at0004 = ╱42╱B╱ // 0x2434 @0x4
0x2430…2454 at0005 = ╱34╱4╱ // 0x2435 @0x5
0x2430…2454 at0006 = ╱ef╱$╱ // 0x2436 @0x6
0x2430…2454 at0007 = ╱dc╱=╱ // 0x2437 @0x7
0x2430…2454 at0008 = ╱22╱"╱ // 0x2438 @0x8
0x2430…2454 at0009 = ╱4b╱K╱ // 0x2439 @0x9
0x2430…2454 at000a = ╱6f╱o╱ // 0x243a @0xa
0x2430…2454 at000b = ╱6e╱n╱ // 0x243b @0xb
0x2430…2454 at000c = ╱74╱t╱ // 0x243c @0xc
0x2430…2454 at000d = ╱6f╱o╱ // 0x243d @0xd
0x2430…2454 at000e = ╱20╱…╱ // 0x243e @0xe
0x2430…2454 at000f = ╱65╱e╱ // 0x243f @0xf
0x2430…2454 at0010 = ╱6b╱k╱ // 0x2440 @0x10
0x2430…2454 at0011 = ╱73╱s╱ // 0x2441 @0x11
0x2430…2454 at0012 = ╱69╱i╱ // 0x2442 @0x12
0x2430…2454 at0013 = ╱73╱s╱ // 0x2443 @0x13
0x2430…2454 at0014 = ╱74╱t╱ // 0x2444 @0x14
0x2430…2454 at0015 = ╱65╱e╱ // 0x2445 @0x15
0x2430…2454 at0016 = ╱72╱r╱ // 0x2446 @0x16
0x2430…2454 at0017 = ╱65╱e╱ // 0x2447 @0x17
0x2430…2454 at0018 = ╱72╱r╱ // 0x2448 @0x18
0x2430…2454 at0019 = ╱20╱…╱ // 0x2449 @0x19
0x2430…2454 at001a = ╱69╱i╱ // 0x244a @0x1a
0x2430…2454 at001b = ╱6b╱k╱ // 0x244b @0x1b
0x2430…2454 at001c = ╱6b╱k╱ // 0x244c @0x1c
0x2430…2454 at001d = ╱65╱e╱ // 0x244d @0x1d
0x2430…2454 at001e = ╱20╱…╱ // 0x244e @0x1e
0x2430…2454 at001f = ╱20╱…╱ // 0x244f @0x1f
0x2430…2454 at0020 = ╱20╱…╱ // 0x2450 @0x20
0x2430…2454 at0021 = ╱20╱…╱ // 0x2451 @0x21
0x2430…2454 at0022 = ╱22╱"╱ // 0x2452 @0x22
0x2430…2454 at0023 = EOL // 0x2453 @0x23
0x2430…2454 }
0x2454…245a b1b1 4610 ENDIF
0x2454…245a LineComalBin {
0x2454…245a ptr = 0xb1b1 // 0x2454 @0x0
0x2454…245a lno = 0x1202 // 0x2456 @0x2
0x2454…245a at0004 = ╱9b╱ ENDIF ╱ // 0x2458 @0x4
0x2454…245a at0005 = EOL // 0x2459 @0x5
0x2454…245a }
0x245a…2460 b1b7 4620 ENDPROC
0x245a…2460 LineComalBin {
0x245a…2460 ptr = 0xb1b7 // 0x245a @0x0
0x245a…2460 lno = 0x120c // 0x245c @0x2
0x245a…2460 at0004 = ╱9f╱ ENDPROC ╱ // 0x245e @0x4
0x245a…2460 at0005 = EOL // 0x245f @0x5
0x245a…2460 }
0x2460…246c b1c3 4630 PROC SL(O0)
0x2460…246c LineComalBin {
0x2460…246c ptr = 0xb1c3 // 0x2460 @0x0
0x2460…246c lno = 0x1216 // 0x2462 @0x2
0x2460…246c at0004 = ╱9e╱ PROC ╱ // 0x2464 @0x4
0x2460…246c at0005 = ╱53╱S╱ // 0x2465 @0x5
0x2460…246c at0006 = ╱4c╱L╱ // 0x2466 @0x6
0x2460…246c at0007 = ╱ed╱(╱ // 0x2467 @0x7
0x2460…246c at0008 = ╱4f╱O╱ // 0x2468 @0x8
0x2460…246c at0009 = ╱30╱0╱ // 0x2469 @0x9
0x2460…246c at000a = ╱ee╱)╱ // 0x246a @0xa
0x2460…246c at000b = EOL // 0x246b @0xb
0x2460…246c }
0x246c…2476 b1cd 4640 CASE O0 OF
0x246c…2476 LineComalBin {
0x246c…2476 ptr = 0xb1cd // 0x246c @0x0
0x246c…2476 lno = 0x1220 // 0x246e @0x2
0x246c…2476 at0004 = ╱a201╱ CASE ╱ // 0x2470 @0x4
0x246c…2476 at0006 = ╱4f╱O╱ // 0x2472 @0x6
0x246c…2476 at0007 = ╱30╱0╱ // 0x2473 @0x7
0x246c…2476 at0008 = ╱ba╱ OF ╱ // 0x2474 @0x8
0x246c…2476 at0009 = EOL // 0x2475 @0x9
0x246c…2476 }
0x2476…247c b1d3 4650 STOP
0x2476…247c LineComalBin {
0x2476…247c ptr = 0xb1d3 // 0x2476 @0x0
0x2476…247c lno = 0x122a // 0x2478 @0x2
0x2476…247c at0004 = ╱8d╱ STOP ╱ // 0x247a @0x4
0x2476…247c at0005 = EOL // 0x247b @0x5
0x2476…247c }
0x247c…2484 b1db 4660 WHEN V
0x247c…2484 LineComalBin {
0x247c…2484 ptr = 0xb1db // 0x247c @0x0
0x247c…2484 lno = 0x1234 // 0x247e @0x2
0x247c…2484 at0004 = ╱a301╱ WHEN ╱ // 0x2480 @0x4
0x247c…2484 at0006 = ╱56╱V╱ // 0x2482 @0x6
0x247c…2484 at0007 = EOL // 0x2483 @0x7
0x247c…2484 }
0x2484…2496 b1ed 4670 CURSOR 50,H5+V
0x2484…2496 LineComalBin {
0x2484…2496 ptr = 0xb1ed // 0x2484 @0x0
0x2484…2496 lno = 0x123e // 0x2486 @0x2
0x2484…2496 at0004 = ╱a1╱ CURSOR ╱ // 0x2488 @0x4
0x2484…2496 at0005 = ╱35╱5╱ // 0x2489 @0x5
0x2484…2496 at0006 = ╱30╱0╱ // 0x248a @0x6
0x2484…2496 at0007 = ╱fe0000c806╱ // 0x248b @0x7
0x2484…2496 at000c = ╱ec╱,╱ // 0x2490 @0xc
0x2484…2496 at000d = ╱48╱H╱ // 0x2491 @0xd
0x2484…2496 at000e = ╱35╱5╱ // 0x2492 @0xe
0x2484…2496 at000f = ╱e2╱+╱ // 0x2493 @0xf
0x2484…2496 at0010 = ╱56╱V╱ // 0x2494 @0x10
0x2484…2496 at0011 = EOL // 0x2495 @0x11
0x2484…2496 }
0x2496…24aa b201 4680 PRINT B7$(E:28)
0x2496…24aa LineComalBin {
0x2496…24aa ptr = 0xb201 // 0x2496 @0x0
0x2496…24aa lno = 0x1248 // 0x2498 @0x2
0x2496…24aa at0004 = ╱92╱ PRINT ╱ // 0x249a @0x4
0x2496…24aa at0005 = ╱42╱B╱ // 0x249b @0x5
0x2496…24aa at0006 = ╱37╱7╱ // 0x249c @0x6
0x2496…24aa at0007 = ╱ef╱$╱ // 0x249d @0x7
0x2496…24aa at0008 = ╱ed╱(╱ // 0x249e @0x8
0x2496…24aa at0009 = ╱45╱E╱ // 0x249f @0x9
0x2496…24aa at000a = ╱f0╱:╱ // 0x24a0 @0xa
0x2496…24aa at000b = ╱32╱2╱ // 0x24a1 @0xb
0x2496…24aa at000c = ╱38╱8╱ // 0x24a2 @0xc
0x2496…24aa at000d = ╱fe0000e005╱ // 0x24a3 @0xd
0x2496…24aa at0012 = ╱ee╱)╱ // 0x24a8 @0x12
0x2496…24aa at0013 = EOL // 0x24a9 @0x13
0x2496…24aa }
0x24aa…24b7 b20e 4690 WHEN 5
0x24aa…24b7 LineComalBin {
0x24aa…24b7 ptr = 0xb20e // 0x24aa @0x0
0x24aa…24b7 lno = 0x1252 // 0x24ac @0x2
0x24aa…24b7 at0004 = ╱a301╱ WHEN ╱ // 0x24ae @0x4
0x24aa…24b7 at0006 = ╱35╱5╱ // 0x24b0 @0x6
0x24aa…24b7 at0007 = ╱fe0000a003╱ // 0x24b1 @0x7
0x24aa…24b7 at000c = EOL // 0x24b6 @0xc
0x24aa…24b7 }
0x24b7…24c8 b21f 4700 CURSOR 4,H5+V
0x24b7…24c8 LineComalBin {
0x24b7…24c8 ptr = 0xb21f // 0x24b7 @0x0
0x24b7…24c8 lno = 0x125c // 0x24b9 @0x2
0x24b7…24c8 at0004 = ╱a1╱ CURSOR ╱ // 0x24bb @0x4
0x24b7…24c8 at0005 = ╱34╱4╱ // 0x24bc @0x5
0x24b7…24c8 at0006 = ╱fe00008003╱ // 0x24bd @0x6
0x24b7…24c8 at000b = ╱ec╱,╱ // 0x24c2 @0xb
0x24b7…24c8 at000c = ╱48╱H╱ // 0x24c3 @0xc
0x24b7…24c8 at000d = ╱35╱5╱ // 0x24c4 @0xd
0x24b7…24c8 at000e = ╱e2╱+╱ // 0x24c5 @0xe
0x24b7…24c8 at000f = ╱56╱V╱ // 0x24c6 @0xf
0x24b7…24c8 at0010 = EOL // 0x24c7 @0x10
0x24b7…24c8 }
0x24c8…24d1 b228 4710 PRINT B7$
0x24c8…24d1 LineComalBin {
0x24c8…24d1 ptr = 0xb228 // 0x24c8 @0x0
0x24c8…24d1 lno = 0x1266 // 0x24ca @0x2
0x24c8…24d1 at0004 = ╱92╱ PRINT ╱ // 0x24cc @0x4
0x24c8…24d1 at0005 = ╱42╱B╱ // 0x24cd @0x5
0x24c8…24d1 at0006 = ╱37╱7╱ // 0x24ce @0x6
0x24c8…24d1 at0007 = ╱ef╱$╱ // 0x24cf @0x7
0x24c8…24d1 at0008 = EOL // 0x24d0 @0x8
0x24c8…24d1 }
0x24d1…24d7 b22e 4720 ENDCASE
0x24d1…24d7 LineComalBin {
0x24d1…24d7 ptr = 0xb22e // 0x24d1 @0x0
0x24d1…24d7 lno = 0x1270 // 0x24d3 @0x2
0x24d1…24d7 at0004 = ╱a4╱ ENDCASE ╱ // 0x24d5 @0x4
0x24d1…24d7 at0005 = EOL // 0x24d6 @0x5
0x24d1…24d7 }
0x24d7…24dd b234 4730 ENDPROC
0x24d7…24dd LineComalBin {
0x24d7…24dd ptr = 0xb234 // 0x24d7 @0x0
0x24d7…24dd lno = 0x127a // 0x24d9 @0x2
0x24d7…24dd at0004 = ╱9f╱ ENDPROC ╱ // 0x24db @0x4
0x24d7…24dd at0005 = EOL // 0x24dc @0x5
0x24d7…24dd }
0x24dd…24e5 b23c 4740 PROC FO
0x24dd…24e5 LineComalBin {
0x24dd…24e5 ptr = 0xb23c // 0x24dd @0x0
0x24dd…24e5 lno = 0x1284 // 0x24df @0x2
0x24dd…24e5 at0004 = ╱9e╱ PROC ╱ // 0x24e1 @0x4
0x24dd…24e5 at0005 = ╱46╱F╱ // 0x24e2 @0x5
0x24dd…24e5 at0006 = ╱4f╱O╱ // 0x24e3 @0x6
0x24dd…24e5 at0007 = EOL // 0x24e4 @0x7
0x24dd…24e5 }
0x24e5…24f3 b24a 4750 I5=LEN(F3$)
0x24e5…24f3 LineComalBin {
0x24e5…24f3 ptr = 0xb24a // 0x24e5 @0x0
0x24e5…24f3 lno = 0x128e // 0x24e7 @0x2
0x24e5…24f3 at0004 = ╱49╱I╱ // 0x24e9 @0x4
0x24e5…24f3 at0005 = ╱35╱5╱ // 0x24ea @0x5
0x24e5…24f3 at0006 = ╱dc╱=╱ // 0x24eb @0x6
0x24e5…24f3 at0007 = ╱cc╱LEN╱ // 0x24ec @0x7
0x24e5…24f3 at0008 = ╱ed╱(╱ // 0x24ed @0x8
0x24e5…24f3 at0009 = ╱46╱F╱ // 0x24ee @0x9
0x24e5…24f3 at000a = ╱33╱3╱ // 0x24ef @0xa
0x24e5…24f3 at000b = ╱ef╱$╱ // 0x24f0 @0xb
0x24e5…24f3 at000c = ╱ee╱)╱ // 0x24f1 @0xc
0x24e5…24f3 at000d = EOL // 0x24f2 @0xd
0x24e5…24f3 }
0x24f3…2506 b25d 4760 IF I5=B THEN F3$="0+"
0x24f3…2506 LineComalBin {
0x24f3…2506 ptr = 0xb25d // 0x24f3 @0x0
0x24f3…2506 lno = 0x1298 // 0x24f5 @0x2
0x24f3…2506 at0004 = ╱82╱ IF ╱ // 0x24f7 @0x4
0x24f3…2506 at0005 = ╱49╱I╱ // 0x24f8 @0x5
0x24f3…2506 at0006 = ╱35╱5╱ // 0x24f9 @0x6
0x24f3…2506 at0007 = ╱dc╱=╱ // 0x24fa @0x7
0x24f3…2506 at0008 = ╱42╱B╱ // 0x24fb @0x8
0x24f3…2506 at0009 = ╱b6╱ THEN ╱ // 0x24fc @0x9
0x24f3…2506 at000a = ╱46╱F╱ // 0x24fd @0xa
0x24f3…2506 at000b = ╱33╱3╱ // 0x24fe @0xb
0x24f3…2506 at000c = ╱ef╱$╱ // 0x24ff @0xc
0x24f3…2506 at000d = ╱dc╱=╱ // 0x2500 @0xd
0x24f3…2506 at000e = ╱22╱"╱ // 0x2501 @0xe
0x24f3…2506 at000f = ╱30╱0╱ // 0x2502 @0xf
0x24f3…2506 at0010 = ╱2b╱+╱ // 0x2503 @0x10
0x24f3…2506 at0011 = ╱22╱"╱ // 0x2504 @0x11
0x24f3…2506 at0012 = EOL // 0x2505 @0x12
0x24f3…2506 }
0x2506…252f b286 4770 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN F3$=F3$+"+"
0x2506…252f LineComalBin {
0x2506…252f ptr = 0xb286 // 0x2506 @0x0
0x2506…252f lno = 0x12a2 // 0x2508 @0x2
0x2506…252f at0004 = ╱82╱ IF ╱ // 0x250a @0x4
0x2506…252f at0005 = ╱46╱F╱ // 0x250b @0x5
0x2506…252f at0006 = ╱33╱3╱ // 0x250c @0x6
0x2506…252f at0007 = ╱ef╱$╱ // 0x250d @0x7
0x2506…252f at0008 = ╱ed╱(╱ // 0x250e @0x8
0x2506…252f at0009 = ╱49╱I╱ // 0x250f @0x9
0x2506…252f at000a = ╱35╱5╱ // 0x2510 @0xa
0x2506…252f at000b = ╱ee╱)╱ // 0x2511 @0xb
0x2506…252f at000c = ╱e1╱<>╱ // 0x2512 @0xc
0x2506…252f at000d = ╱22╱"╱ // 0x2513 @0xd
0x2506…252f at000e = ╱2b╱+╱ // 0x2514 @0xe
0x2506…252f at000f = ╱22╱"╱ // 0x2515 @0xf
0x2506…252f at0010 = ╱da╱ AND ╱ // 0x2516 @0x10
0x2506…252f at0011 = ╱46╱F╱ // 0x2517 @0x11
0x2506…252f at0012 = ╱33╱3╱ // 0x2518 @0x12
0x2506…252f at0013 = ╱ef╱$╱ // 0x2519 @0x13
0x2506…252f at0014 = ╱ed╱(╱ // 0x251a @0x14
0x2506…252f at0015 = ╱49╱I╱ // 0x251b @0x15
0x2506…252f at0016 = ╱35╱5╱ // 0x251c @0x16
0x2506…252f at0017 = ╱ee╱)╱ // 0x251d @0x17
0x2506…252f at0018 = ╱e1╱<>╱ // 0x251e @0x18
0x2506…252f at0019 = ╱22╱"╱ // 0x251f @0x19
0x2506…252f at001a = ╱2d╱-╱ // 0x2520 @0x1a
0x2506…252f at001b = ╱22╱"╱ // 0x2521 @0x1b
0x2506…252f at001c = ╱b6╱ THEN ╱ // 0x2522 @0x1c
0x2506…252f at001d = ╱46╱F╱ // 0x2523 @0x1d
0x2506…252f at001e = ╱33╱3╱ // 0x2524 @0x1e
0x2506…252f at001f = ╱ef╱$╱ // 0x2525 @0x1f
0x2506…252f at0020 = ╱dc╱=╱ // 0x2526 @0x20
0x2506…252f at0021 = ╱46╱F╱ // 0x2527 @0x21
0x2506…252f at0022 = ╱33╱3╱ // 0x2528 @0x22
0x2506…252f at0023 = ╱ef╱$╱ // 0x2529 @0x23
0x2506…252f at0024 = ╱f1╱+╱ // 0x252a @0x24
0x2506…252f at0025 = ╱22╱"╱ // 0x252b @0x25
0x2506…252f at0026 = ╱2b╱+╱ // 0x252c @0x26
0x2506…252f at0027 = ╱22╱"╱ // 0x252d @0x27
0x2506…252f at0028 = EOL // 0x252e @0x28
0x2506…252f }
0x252f…2535 b28c 4780 ENDPROC
0x252f…2535 LineComalBin {
0x252f…2535 ptr = 0xb28c // 0x252f @0x0
0x252f…2535 lno = 0x12ac // 0x2531 @0x2
0x252f…2535 at0004 = ╱9f╱ ENDPROC ╱ // 0x2533 @0x4
0x252f…2535 at0005 = EOL // 0x2534 @0x5
0x252f…2535 }
0x2535…253d b294 4790 PROC UH
0x2535…253d LineComalBin {
0x2535…253d ptr = 0xb294 // 0x2535 @0x0
0x2535…253d lno = 0x12b6 // 0x2537 @0x2
0x2535…253d at0004 = ╱9e╱ PROC ╱ // 0x2539 @0x4
0x2535…253d at0005 = ╱55╱U╱ // 0x253a @0x5
0x2535…253d at0006 = ╱48╱H╱ // 0x253b @0x6
0x2535…253d at0007 = EOL // 0x253c @0x7
0x2535…253d }
0x253d…254c b2a3 4800 CURSOR 35,E
0x253d…254c LineComalBin {
0x253d…254c ptr = 0xb2a3 // 0x253d @0x0
0x253d…254c lno = 0x12c0 // 0x253f @0x2
0x253d…254c at0004 = ╱a1╱ CURSOR ╱ // 0x2541 @0x4
0x253d…254c at0005 = ╱33╱3╱ // 0x2542 @0x5
0x253d…254c at0006 = ╱35╱5╱ // 0x2543 @0x6
0x253d…254c at0007 = ╱fe00008c06╱ // 0x2544 @0x7
0x253d…254c at000c = ╱ec╱,╱ // 0x2549 @0xc
0x253d…254c at000d = ╱45╱E╱ // 0x254a @0xd
0x253d…254c at000e = EOL // 0x254b @0xe
0x253d…254c }
0x254c…2573 (124,) b2ca 4810 PRINT "Kasserapport";TAB(30);"Dato:"
0x254c…2573 LineComalBin {
0x254c…2573 ptr = 0xb2ca // 0x254c @0x0
0x254c…2573 lno = 0x12ca // 0x254e @0x2
0x254c…2573 at0004 = ╱92╱ PRINT ╱ // 0x2550 @0x4
0x254c…2573 at0005 = ╱22╱"╱ // 0x2551 @0x5
0x254c…2573 at0006 = ╱4b╱K╱ // 0x2552 @0x6
0x254c…2573 at0007 = ╱61╱a╱ // 0x2553 @0x7
0x254c…2573 at0008 = ╱73╱s╱ // 0x2554 @0x8
0x254c…2573 at0009 = ╱73╱s╱ // 0x2555 @0x9
0x254c…2573 at000a = ╱65╱e╱ // 0x2556 @0xa
0x254c…2573 at000b = ╱72╱r╱ // 0x2557 @0xb
0x254c…2573 at000c = ╱61╱a╱ // 0x2558 @0xc
0x254c…2573 at000d = ╱70╱p╱ // 0x2559 @0xd
0x254c…2573 at000e = ╱70╱p╱ // 0x255a @0xe
0x254c…2573 at000f = ╱6f╱o╱ // 0x255b @0xf
0x254c…2573 at0010 = ╱72╱r╱ // 0x255c @0x10
0x254c…2573 at0011 = ╱74╱t╱ // 0x255d @0x11
0x254c…2573 at0012 = ╱22╱"╱ // 0x255e @0x12
0x254c…2573 at0013 = ╱eb╱;╱ // 0x255f @0x13
0x254c…2573 at0014 = ╱d2╱TAB╱ // 0x2560 @0x14
0x254c…2573 at0015 = ╱ed╱(╱ // 0x2561 @0x15
0x254c…2573 at0016 = ╱33╱3╱ // 0x2562 @0x16
0x254c…2573 at0017 = ╱30╱0╱ // 0x2563 @0x17
0x254c…2573 at0018 = ╱fe0000f005╱ // 0x2564 @0x18
0x254c…2573 at001d = ╱ee╱)╱ // 0x2569 @0x1d
0x254c…2573 at001e = ╱eb╱;╱ // 0x256a @0x1e
0x254c…2573 at001f = ╱22╱"╱ // 0x256b @0x1f
0x254c…2573 at0020 = ╱44╱D╱ // 0x256c @0x20
0x254c…2573 at0021 = ╱61╱a╱ // 0x256d @0x21
0x254c…2573 at0022 = ╱74╱t╱ // 0x256e @0x22
0x254c…2573 at0023 = ╱6f╱o╱ // 0x256f @0x23
0x254c…2573 at0024 = ╱3a╱:╱ // 0x2570 @0x24
0x254c…2573 at0025 = ╱22╱"╱ // 0x2571 @0x25
0x254c…2573 at0026 = EOL // 0x2572 @0x26
0x254c…2573 }
0x2573…2582 b2d9 4820 CURSOR 72,E
0x2573…2582 LineComalBin {
0x2573…2582 ptr = 0xb2d9 // 0x2573 @0x0
0x2573…2582 lno = 0x12d4 // 0x2575 @0x2
0x2573…2582 at0004 = ╱a1╱ CURSOR ╱ // 0x2577 @0x4
0x2573…2582 at0005 = ╱37╱7╱ // 0x2578 @0x5
0x2573…2582 at0006 = ╱32╱2╱ // 0x2579 @0x6
0x2573…2582 at0007 = ╱fe00009007╱ // 0x257a @0x7
0x2573…2582 at000c = ╱ec╱,╱ // 0x257f @0xc
0x2573…2582 at000d = ╱45╱E╱ // 0x2580 @0xd
0x2573…2582 at000e = EOL // 0x2581 @0xe
0x2573…2582 }
0x2582…258a b2e1 4830 PRINT J6
0x2582…258a LineComalBin {
0x2582…258a ptr = 0xb2e1 // 0x2582 @0x0
0x2582…258a lno = 0x12de // 0x2584 @0x2
0x2582…258a at0004 = ╱92╱ PRINT ╱ // 0x2586 @0x4
0x2582…258a at0005 = ╱4a╱J╱ // 0x2587 @0x5
0x2582…258a at0006 = ╱36╱6╱ // 0x2588 @0x6
0x2582…258a at0007 = EOL // 0x2589 @0x7
0x2582…258a }
0x258a…2593 b2ea 4840 CURSOR E,V
0x258a…2593 LineComalBin {
0x258a…2593 ptr = 0xb2ea // 0x258a @0x0
0x258a…2593 lno = 0x12e8 // 0x258c @0x2
0x258a…2593 at0004 = ╱a1╱ CURSOR ╱ // 0x258e @0x4
0x258a…2593 at0005 = ╱45╱E╱ // 0x258f @0x5
0x258a…2593 at0006 = ╱ec╱,╱ // 0x2590 @0x6
0x258a…2593 at0007 = ╱56╱V╱ // 0x2591 @0x7
0x258a…2593 at0008 = EOL // 0x2592 @0x8
0x258a…2593 }
0x2593…25de b335 4850 PRINT " Nr Bilag Tekst";TAB(38);"Konto Entre. Debet Kredit";
0x2593…25de LineComalBin {
0x2593…25de ptr = 0xb335 // 0x2593 @0x0
0x2593…25de lno = 0x12f2 // 0x2595 @0x2
0x2593…25de at0004 = ╱92╱ PRINT ╱ // 0x2597 @0x4
0x2593…25de at0005 = ╱22╱"╱ // 0x2598 @0x5
0x2593…25de at0006 = ╱20╱…╱ // 0x2599 @0x6
0x2593…25de at0007 = ╱4e╱N╱ // 0x259a @0x7
0x2593…25de at0008 = ╱72╱r╱ // 0x259b @0x8
0x2593…25de at0009 = ╱20╱…╱ // 0x259c @0x9
0x2593…25de at000a = ╱20╱…╱ // 0x259d @0xa
0x2593…25de at000b = ╱42╱B╱ // 0x259e @0xb
0x2593…25de at000c = ╱69╱i╱ // 0x259f @0xc
0x2593…25de at000d = ╱6c╱l╱ // 0x25a0 @0xd
0x2593…25de at000e = ╱61╱a╱ // 0x25a1 @0xe
0x2593…25de at000f = ╱67╱g╱ // 0x25a2 @0xf
0x2593…25de at0010 = ╱20╱…╱ // 0x25a3 @0x10
0x2593…25de at0011 = ╱54╱T╱ // 0x25a4 @0x11
0x2593…25de at0012 = ╱65╱e╱ // 0x25a5 @0x12
0x2593…25de at0013 = ╱6b╱k╱ // 0x25a6 @0x13
0x2593…25de at0014 = ╱73╱s╱ // 0x25a7 @0x14
0x2593…25de at0015 = ╱74╱t╱ // 0x25a8 @0x15
0x2593…25de at0016 = ╱22╱"╱ // 0x25a9 @0x16
0x2593…25de at0017 = ╱eb╱;╱ // 0x25aa @0x17
0x2593…25de at0018 = ╱d2╱TAB╱ // 0x25ab @0x18
0x2593…25de at0019 = ╱ed╱(╱ // 0x25ac @0x19
0x2593…25de at001a = ╱33╱3╱ // 0x25ad @0x1a
0x2593…25de at001b = ╱38╱8╱ // 0x25ae @0x1b
0x2593…25de at001c = ╱fe00009806╱ // 0x25af @0x1c
0x2593…25de at0021 = ╱ee╱)╱ // 0x25b4 @0x21
0x2593…25de at0022 = ╱eb╱;╱ // 0x25b5 @0x22
0x2593…25de at0023 = ╱22╱"╱ // 0x25b6 @0x23
0x2593…25de at0024 = ╱4b╱K╱ // 0x25b7 @0x24
0x2593…25de at0025 = ╱6f╱o╱ // 0x25b8 @0x25
0x2593…25de at0026 = ╱6e╱n╱ // 0x25b9 @0x26
0x2593…25de at0027 = ╱74╱t╱ // 0x25ba @0x27
0x2593…25de at0028 = ╱6f╱o╱ // 0x25bb @0x28
0x2593…25de at0029 = ╱20╱…╱ // 0x25bc @0x29
0x2593…25de at002a = ╱20╱…╱ // 0x25bd @0x2a
0x2593…25de at002b = ╱45╱E╱ // 0x25be @0x2b
0x2593…25de at002c = ╱6e╱n╱ // 0x25bf @0x2c
0x2593…25de at002d = ╱74╱t╱ // 0x25c0 @0x2d
0x2593…25de at002e = ╱72╱r╱ // 0x25c1 @0x2e
0x2593…25de at002f = ╱65╱e╱ // 0x25c2 @0x2f
0x2593…25de at0030 = ╱2e╱.╱ // 0x25c3 @0x30
0x2593…25de at0031 = ╱20╱…╱ // 0x25c4 @0x31
0x2593…25de at0032 = ╱20╱…╱ // 0x25c5 @0x32
0x2593…25de at0033 = ╱20╱…╱ // 0x25c6 @0x33
0x2593…25de at0034 = ╱20╱…╱ // 0x25c7 @0x34
0x2593…25de at0035 = ╱20╱…╱ // 0x25c8 @0x35
0x2593…25de at0036 = ╱20╱…╱ // 0x25c9 @0x36
0x2593…25de at0037 = ╱44╱D╱ // 0x25ca @0x37
0x2593…25de at0038 = ╱65╱e╱ // 0x25cb @0x38
0x2593…25de at0039 = ╱62╱b╱ // 0x25cc @0x39
0x2593…25de at003a = ╱65╱e╱ // 0x25cd @0x3a
0x2593…25de at003b = ╱74╱t╱ // 0x25ce @0x3b
0x2593…25de at003c = ╱20╱…╱ // 0x25cf @0x3c
0x2593…25de at003d = ╱20╱…╱ // 0x25d0 @0x3d
0x2593…25de at003e = ╱20╱…╱ // 0x25d1 @0x3e
0x2593…25de at003f = ╱20╱…╱ // 0x25d2 @0x3f
0x2593…25de at0040 = ╱20╱…╱ // 0x25d3 @0x40
0x2593…25de at0041 = ╱20╱…╱ // 0x25d4 @0x41
0x2593…25de at0042 = ╱4b╱K╱ // 0x25d5 @0x42
0x2593…25de at0043 = ╱72╱r╱ // 0x25d6 @0x43
0x2593…25de at0044 = ╱65╱e╱ // 0x25d7 @0x44
0x2593…25de at0045 = ╱64╱d╱ // 0x25d8 @0x45
0x2593…25de at0046 = ╱69╱i╱ // 0x25d9 @0x46
0x2593…25de at0047 = ╱74╱t╱ // 0x25da @0x47
0x2593…25de at0048 = ╱22╱"╱ // 0x25db @0x48
0x2593…25de at0049 = ╱eb╱;╱ // 0x25dc @0x49
0x2593…25de at004a = EOL // 0x25dd @0x4a
0x2593…25de }
0x25de…25ec b343 4860 PRINT " Kode"
0x25de…25ec LineComalBin {
0x25de…25ec ptr = 0xb343 // 0x25de @0x0
0x25de…25ec lno = 0x12fc // 0x25e0 @0x2
0x25de…25ec at0004 = ╱92╱ PRINT ╱ // 0x25e2 @0x4
0x25de…25ec at0005 = ╱22╱"╱ // 0x25e3 @0x5
0x25de…25ec at0006 = ╱20╱…╱ // 0x25e4 @0x6
0x25de…25ec at0007 = ╱20╱…╱ // 0x25e5 @0x7
0x25de…25ec at0008 = ╱4b╱K╱ // 0x25e6 @0x8
0x25de…25ec at0009 = ╱6f╱o╱ // 0x25e7 @0x9
0x25de…25ec at000a = ╱64╱d╱ // 0x25e8 @0xa
0x25de…25ec at000b = ╱65╱e╱ // 0x25e9 @0xb
0x25de…25ec at000c = ╱22╱"╱ // 0x25ea @0xc
0x25de…25ec at000d = EOL // 0x25eb @0xd
0x25de…25ec }
0x25ec…25f2 b349 4870 ENDPROC
0x25ec…25f2 LineComalBin {
0x25ec…25f2 ptr = 0xb349 // 0x25ec @0x0
0x25ec…25f2 lno = 0x1306 // 0x25ee @0x2
0x25ec…25f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x25f0 @0x4
0x25ec…25f2 at0005 = EOL // 0x25f1 @0x5
0x25ec…25f2 }
0x25f2…2612 b369 4880 PROC UL(O1,O2,O3,O31,O4,O5,O11)
0x25f2…2612 LineComalBin {
0x25f2…2612 ptr = 0xb369 // 0x25f2 @0x0
0x25f2…2612 lno = 0x1310 // 0x25f4 @0x2
0x25f2…2612 at0004 = ╱9e╱ PROC ╱ // 0x25f6 @0x4
0x25f2…2612 at0005 = ╱55╱U╱ // 0x25f7 @0x5
0x25f2…2612 at0006 = ╱4c╱L╱ // 0x25f8 @0x6
0x25f2…2612 at0007 = ╱ed╱(╱ // 0x25f9 @0x7
0x25f2…2612 at0008 = ╱4f╱O╱ // 0x25fa @0x8
0x25f2…2612 at0009 = ╱31╱1╱ // 0x25fb @0x9
0x25f2…2612 at000a = ╱ec╱,╱ // 0x25fc @0xa
0x25f2…2612 at000b = ╱4f╱O╱ // 0x25fd @0xb
0x25f2…2612 at000c = ╱32╱2╱ // 0x25fe @0xc
0x25f2…2612 at000d = ╱ec╱,╱ // 0x25ff @0xd
0x25f2…2612 at000e = ╱4f╱O╱ // 0x2600 @0xe
0x25f2…2612 at000f = ╱33╱3╱ // 0x2601 @0xf
0x25f2…2612 at0010 = ╱ec╱,╱ // 0x2602 @0x10
0x25f2…2612 at0011 = ╱4f╱O╱ // 0x2603 @0x11
0x25f2…2612 at0012 = ╱33╱3╱ // 0x2604 @0x12
0x25f2…2612 at0013 = ╱31╱1╱ // 0x2605 @0x13
0x25f2…2612 at0014 = ╱ec╱,╱ // 0x2606 @0x14
0x25f2…2612 at0015 = ╱4f╱O╱ // 0x2607 @0x15
0x25f2…2612 at0016 = ╱34╱4╱ // 0x2608 @0x16
0x25f2…2612 at0017 = ╱ec╱,╱ // 0x2609 @0x17
0x25f2…2612 at0018 = ╱4f╱O╱ // 0x260a @0x18
0x25f2…2612 at0019 = ╱35╱5╱ // 0x260b @0x19
0x25f2…2612 at001a = ╱ec╱,╱ // 0x260c @0x1a
0x25f2…2612 at001b = ╱4f╱O╱ // 0x260d @0x1b
0x25f2…2612 at001c = ╱31╱1╱ // 0x260e @0x1c
0x25f2…2612 at001d = ╱31╱1╱ // 0x260f @0x1d
0x25f2…2612 at001e = ╱ee╱)╱ // 0x2610 @0x1e
0x25f2…2612 at001f = EOL // 0x2611 @0x1f
0x25f2…2612 }
0x2612…2629 b380 4890 O32$=O31$;O33$=O4$
0x2612…2629 LineComalBin {
0x2612…2629 ptr = 0xb380 // 0x2612 @0x0
0x2612…2629 lno = 0x131a // 0x2614 @0x2
0x2612…2629 at0004 = ╱4f╱O╱ // 0x2616 @0x4
0x2612…2629 at0005 = ╱33╱3╱ // 0x2617 @0x5
0x2612…2629 at0006 = ╱32╱2╱ // 0x2618 @0x6
0x2612…2629 at0007 = ╱ef╱$╱ // 0x2619 @0x7
0x2612…2629 at0008 = ╱dc╱=╱ // 0x261a @0x8
0x2612…2629 at0009 = ╱4f╱O╱ // 0x261b @0x9
0x2612…2629 at000a = ╱33╱3╱ // 0x261c @0xa
0x2612…2629 at000b = ╱31╱1╱ // 0x261d @0xb
0x2612…2629 at000c = ╱ef╱$╱ // 0x261e @0xc
0x2612…2629 at000d = ╱eb╱;╱ // 0x261f @0xd
0x2612…2629 at000e = ╱4f╱O╱ // 0x2620 @0xe
0x2612…2629 at000f = ╱33╱3╱ // 0x2621 @0xf
0x2612…2629 at0010 = ╱33╱3╱ // 0x2622 @0x10
0x2612…2629 at0011 = ╱ef╱$╱ // 0x2623 @0x11
0x2612…2629 at0012 = ╱dc╱=╱ // 0x2624 @0x12
0x2612…2629 at0013 = ╱4f╱O╱ // 0x2625 @0x13
0x2612…2629 at0014 = ╱34╱4╱ // 0x2626 @0x14
0x2612…2629 at0015 = ╱ef╱$╱ // 0x2627 @0x15
0x2612…2629 at0016 = EOL // 0x2628 @0x16
0x2612…2629 }
0x2629…2635 b38c 4900 CURSOR E,H5+V
0x2629…2635 LineComalBin {
0x2629…2635 ptr = 0xb38c // 0x2629 @0x0
0x2629…2635 lno = 0x1324 // 0x262b @0x2
0x2629…2635 at0004 = ╱a1╱ CURSOR ╱ // 0x262d @0x4
0x2629…2635 at0005 = ╱45╱E╱ // 0x262e @0x5
0x2629…2635 at0006 = ╱ec╱,╱ // 0x262f @0x6
0x2629…2635 at0007 = ╱48╱H╱ // 0x2630 @0x7
0x2629…2635 at0008 = ╱35╱5╱ // 0x2631 @0x8
0x2629…2635 at0009 = ╱e2╱+╱ // 0x2632 @0x9
0x2629…2635 at000a = ╱56╱V╱ // 0x2633 @0xa
0x2629…2635 at000b = EOL // 0x2634 @0xb
0x2629…2635 }
0x2635…2645 b39c 4910 PRINT USING "###":H5;
0x2635…2645 LineComalBin {
0x2635…2645 ptr = 0xb39c // 0x2635 @0x0
0x2635…2645 lno = 0x132e // 0x2637 @0x2
0x2635…2645 at0004 = ╱92╱ PRINT ╱ // 0x2639 @0x4
0x2635…2645 at0005 = ╱b9╱ USING ╱ // 0x263a @0x5
0x2635…2645 at0006 = ╱22╱"╱ // 0x263b @0x6
0x2635…2645 at0007 = ╱23╱#╱ // 0x263c @0x7
0x2635…2645 at0008 = ╱23╱#╱ // 0x263d @0x8
0x2635…2645 at0009 = ╱23╱#╱ // 0x263e @0x9
0x2635…2645 at000a = ╱22╱"╱ // 0x263f @0xa
0x2635…2645 at000b = ╱f0╱:╱ // 0x2640 @0xb
0x2635…2645 at000c = ╱48╱H╱ // 0x2641 @0xc
0x2635…2645 at000d = ╱35╱5╱ // 0x2642 @0xd
0x2635…2645 at000e = ╱eb╱;╱ // 0x2643 @0xe
0x2635…2645 at000f = EOL // 0x2644 @0xf
0x2635…2645 }
0x2645…2668 b3bf 4920 EXEC LU(O2,O3,O1,O32$,O33$,O5,O11)
0x2645…2668 LineComalBin {
0x2645…2668 ptr = 0xb3bf // 0x2645 @0x0
0x2645…2668 lno = 0x1338 // 0x2647 @0x2
0x2645…2668 at0004 = ╱9d╱ EXEC ╱ // 0x2649 @0x4
0x2645…2668 at0005 = ╱4c╱L╱ // 0x264a @0x5
0x2645…2668 at0006 = ╱55╱U╱ // 0x264b @0x6
0x2645…2668 at0007 = ╱ed╱(╱ // 0x264c @0x7
0x2645…2668 at0008 = ╱4f╱O╱ // 0x264d @0x8
0x2645…2668 at0009 = ╱32╱2╱ // 0x264e @0x9
0x2645…2668 at000a = ╱ec╱,╱ // 0x264f @0xa
0x2645…2668 at000b = ╱4f╱O╱ // 0x2650 @0xb
0x2645…2668 at000c = ╱33╱3╱ // 0x2651 @0xc
0x2645…2668 at000d = ╱ec╱,╱ // 0x2652 @0xd
0x2645…2668 at000e = ╱4f╱O╱ // 0x2653 @0xe
0x2645…2668 at000f = ╱31╱1╱ // 0x2654 @0xf
0x2645…2668 at0010 = ╱ec╱,╱ // 0x2655 @0x10
0x2645…2668 at0011 = ╱4f╱O╱ // 0x2656 @0x11
0x2645…2668 at0012 = ╱33╱3╱ // 0x2657 @0x12
0x2645…2668 at0013 = ╱32╱2╱ // 0x2658 @0x13
0x2645…2668 at0014 = ╱ef╱$╱ // 0x2659 @0x14
0x2645…2668 at0015 = ╱ec╱,╱ // 0x265a @0x15
0x2645…2668 at0016 = ╱4f╱O╱ // 0x265b @0x16
0x2645…2668 at0017 = ╱33╱3╱ // 0x265c @0x17
0x2645…2668 at0018 = ╱33╱3╱ // 0x265d @0x18
0x2645…2668 at0019 = ╱ef╱$╱ // 0x265e @0x19
0x2645…2668 at001a = ╱ec╱,╱ // 0x265f @0x1a
0x2645…2668 at001b = ╱4f╱O╱ // 0x2660 @0x1b
0x2645…2668 at001c = ╱35╱5╱ // 0x2661 @0x1c
0x2645…2668 at001d = ╱ec╱,╱ // 0x2662 @0x1d
0x2645…2668 at001e = ╱4f╱O╱ // 0x2663 @0x1e
0x2645…2668 at001f = ╱31╱1╱ // 0x2664 @0x1f
0x2645…2668 at0020 = ╱31╱1╱ // 0x2665 @0x20
0x2645…2668 at0021 = ╱ee╱)╱ // 0x2666 @0x21
0x2645…2668 at0022 = EOL // 0x2667 @0x22
0x2645…2668 }
0x2668…266e b3c5 4930 ENDPROC
0x2668…266e LineComalBin {
0x2668…266e ptr = 0xb3c5 // 0x2668 @0x0
0x2668…266e lno = 0x1342 // 0x266a @0x2
0x2668…266e at0004 = ╱9f╱ ENDPROC ╱ // 0x266c @0x4
0x2668…266e at0005 = EOL // 0x266d @0x5
0x2668…266e }
0x266e…2680 b3d7 4940 PROC FE(O6,O7,O8)
0x266e…2680 LineComalBin {
0x266e…2680 ptr = 0xb3d7 // 0x266e @0x0
0x266e…2680 lno = 0x134c // 0x2670 @0x2
0x266e…2680 at0004 = ╱9e╱ PROC ╱ // 0x2672 @0x4
0x266e…2680 at0005 = ╱46╱F╱ // 0x2673 @0x5
0x266e…2680 at0006 = ╱45╱E╱ // 0x2674 @0x6
0x266e…2680 at0007 = ╱ed╱(╱ // 0x2675 @0x7
0x266e…2680 at0008 = ╱4f╱O╱ // 0x2676 @0x8
0x266e…2680 at0009 = ╱36╱6╱ // 0x2677 @0x9
0x266e…2680 at000a = ╱ec╱,╱ // 0x2678 @0xa
0x266e…2680 at000b = ╱4f╱O╱ // 0x2679 @0xb
0x266e…2680 at000c = ╱37╱7╱ // 0x267a @0xc
0x266e…2680 at000d = ╱ec╱,╱ // 0x267b @0xd
0x266e…2680 at000e = ╱4f╱O╱ // 0x267c @0xe
0x266e…2680 at000f = ╱38╱8╱ // 0x267d @0xf
0x266e…2680 at0010 = ╱ee╱)╱ // 0x267e @0x10
0x266e…2680 at0011 = EOL // 0x267f @0x11
0x266e…2680 }
0x2680…268f (128,) b3e6 4950 IF STATUS(O8$)<>B THEN
0x2680…268f LineComalBin {
0x2680…268f ptr = 0xb3e6 // 0x2680 @0x0
0x2680…268f lno = 0x1356 // 0x2682 @0x2
0x2680…268f at0004 = ╱9c╱ IF ╱ // 0x2684 @0x4
0x2680…268f at0005 = ╱ce╱STATUS╱ // 0x2685 @0x5
0x2680…268f at0006 = ╱ed╱(╱ // 0x2686 @0x6
0x2680…268f at0007 = ╱4f╱O╱ // 0x2687 @0x7
0x2680…268f at0008 = ╱38╱8╱ // 0x2688 @0x8
0x2680…268f at0009 = ╱ef╱$╱ // 0x2689 @0x9
0x2680…268f at000a = ╱ee╱)╱ // 0x268a @0xa
0x2680…268f at000b = ╱e1╱<>╱ // 0x268b @0xb
0x2680…268f at000c = ╱42╱B╱ // 0x268c @0xc
0x2680…268f at000d = ╱b6╱ THEN ╱ // 0x268d @0xd
0x2680…268f at000e = EOL // 0x268e @0xe
0x2680…268f }
0x268f…26a5 b3fc 4960 PRINT STATUS(O8$),O6,O7,O8$
0x268f…26a5 LineComalBin {
0x268f…26a5 ptr = 0xb3fc // 0x268f @0x0
0x268f…26a5 lno = 0x1360 // 0x2691 @0x2
0x268f…26a5 at0004 = ╱92╱ PRINT ╱ // 0x2693 @0x4
0x268f…26a5 at0005 = ╱ce╱STATUS╱ // 0x2694 @0x5
0x268f…26a5 at0006 = ╱ed╱(╱ // 0x2695 @0x6
0x268f…26a5 at0007 = ╱4f╱O╱ // 0x2696 @0x7
0x268f…26a5 at0008 = ╱38╱8╱ // 0x2697 @0x8
0x268f…26a5 at0009 = ╱ef╱$╱ // 0x2698 @0x9
0x268f…26a5 at000a = ╱ee╱)╱ // 0x2699 @0xa
0x268f…26a5 at000b = ╱ec╱,╱ // 0x269a @0xb
0x268f…26a5 at000c = ╱4f╱O╱ // 0x269b @0xc
0x268f…26a5 at000d = ╱36╱6╱ // 0x269c @0xd
0x268f…26a5 at000e = ╱ec╱,╱ // 0x269d @0xe
0x268f…26a5 at000f = ╱4f╱O╱ // 0x269e @0xf
0x268f…26a5 at0010 = ╱37╱7╱ // 0x269f @0x10
0x268f…26a5 at0011 = ╱ec╱,╱ // 0x26a0 @0x11
0x268f…26a5 at0012 = ╱4f╱O╱ // 0x26a1 @0x12
0x268f…26a5 at0013 = ╱38╱8╱ // 0x26a2 @0x13
0x268f…26a5 at0014 = ╱ef╱$╱ // 0x26a3 @0x14
0x268f…26a5 at0015 = EOL // 0x26a4 @0x15
0x268f…26a5 }
0x26a5…26ab b402 4970 STOP
0x26a5…26ab LineComalBin {
0x26a5…26ab ptr = 0xb402 // 0x26a5 @0x0
0x26a5…26ab lno = 0x136a // 0x26a7 @0x2
0x26a5…26ab at0004 = ╱8d╱ STOP ╱ // 0x26a9 @0x4
0x26a5…26ab at0005 = EOL // 0x26aa @0x5
0x26a5…26ab }
0x26ab…26b1 b408 4980 ENDIF
0x26ab…26b1 LineComalBin {
0x26ab…26b1 ptr = 0xb408 // 0x26ab @0x0
0x26ab…26b1 lno = 0x1374 // 0x26ad @0x2
0x26ab…26b1 at0004 = ╱9b╱ ENDIF ╱ // 0x26af @0x4
0x26ab…26b1 at0005 = EOL // 0x26b0 @0x5
0x26ab…26b1 }
0x26b1…26b7 b40e 4990 ENDPROC
0x26b1…26b7 LineComalBin {
0x26b1…26b7 ptr = 0xb40e // 0x26b1 @0x0
0x26b1…26b7 lno = 0x137e // 0x26b3 @0x2
0x26b1…26b7 at0004 = ╱9f╱ ENDPROC ╱ // 0x26b5 @0x4
0x26b1…26b7 at0005 = EOL // 0x26b6 @0x5
0x26b1…26b7 }
0x26b7…26bf b416 5000 PROC HD
0x26b7…26bf LineComalBin {
0x26b7…26bf ptr = 0xb416 // 0x26b7 @0x0
0x26b7…26bf lno = 0x1388 // 0x26b9 @0x2
0x26b7…26bf at0004 = ╱9e╱ PROC ╱ // 0x26bb @0x4
0x26b7…26bf at0005 = ╱48╱H╱ // 0x26bc @0x5
0x26b7…26bf at0006 = ╱44╱D╱ // 0x26bd @0x6
0x26b7…26bf at0007 = EOL // 0x26be @0x7
0x26b7…26bf }
0x26bf…26cf b426 5010 J7=M8(N5,G)
0x26bf…26cf LineComalBin {
0x26bf…26cf ptr = 0xb426 // 0x26bf @0x0
0x26bf…26cf lno = 0x1392 // 0x26c1 @0x2
0x26bf…26cf at0004 = ╱4a╱J╱ // 0x26c3 @0x4
0x26bf…26cf at0005 = ╱37╱7╱ // 0x26c4 @0x5
0x26bf…26cf at0006 = ╱dc╱=╱ // 0x26c5 @0x6
0x26bf…26cf at0007 = ╱4d╱M╱ // 0x26c6 @0x7
0x26bf…26cf at0008 = ╱38╱8╱ // 0x26c7 @0x8
0x26bf…26cf at0009 = ╱ed╱(╱ // 0x26c8 @0x9
0x26bf…26cf at000a = ╱4e╱N╱ // 0x26c9 @0xa
0x26bf…26cf at000b = ╱35╱5╱ // 0x26ca @0xb
0x26bf…26cf at000c = ╱ec╱,╱ // 0x26cb @0xc
0x26bf…26cf at000d = ╱47╱G╱ // 0x26cc @0xd
0x26bf…26cf at000e = ╱ee╱)╱ // 0x26cd @0xe
0x26bf…26cf at000f = EOL // 0x26ce @0xf
0x26bf…26cf }
0x26cf…26ea b441 5020 GET D0$,J7:O9,A7$,A8$,A9$
0x26cf…26ea LineComalBin {
0x26cf…26ea ptr = 0xb441 // 0x26cf @0x0
0x26cf…26ea lno = 0x139c // 0x26d1 @0x2
0x26cf…26ea at0004 = ╱a9╱ GET ╱ // 0x26d3 @0x4
0x26cf…26ea at0005 = ╱44╱D╱ // 0x26d4 @0x5
0x26cf…26ea at0006 = ╱30╱0╱ // 0x26d5 @0x6
0x26cf…26ea at0007 = ╱ef╱$╱ // 0x26d6 @0x7
0x26cf…26ea at0008 = ╱ec╱,╱ // 0x26d7 @0x8
0x26cf…26ea at0009 = ╱4a╱J╱ // 0x26d8 @0x9
0x26cf…26ea at000a = ╱37╱7╱ // 0x26d9 @0xa
0x26cf…26ea at000b = ╱f0╱:╱ // 0x26da @0xb
0x26cf…26ea at000c = ╱4f╱O╱ // 0x26db @0xc
0x26cf…26ea at000d = ╱39╱9╱ // 0x26dc @0xd
0x26cf…26ea at000e = ╱ec╱,╱ // 0x26dd @0xe
0x26cf…26ea at000f = ╱41╱A╱ // 0x26de @0xf
0x26cf…26ea at0010 = ╱37╱7╱ // 0x26df @0x10
0x26cf…26ea at0011 = ╱ef╱$╱ // 0x26e0 @0x11
0x26cf…26ea at0012 = ╱ec╱,╱ // 0x26e1 @0x12
0x26cf…26ea at0013 = ╱41╱A╱ // 0x26e2 @0x13
0x26cf…26ea at0014 = ╱38╱8╱ // 0x26e3 @0x14
0x26cf…26ea at0015 = ╱ef╱$╱ // 0x26e4 @0x15
0x26cf…26ea at0016 = ╱ec╱,╱ // 0x26e5 @0x16
0x26cf…26ea at0017 = ╱41╱A╱ // 0x26e6 @0x17
0x26cf…26ea at0018 = ╱39╱9╱ // 0x26e7 @0x18
0x26cf…26ea at0019 = ╱ef╱$╱ // 0x26e8 @0x19
0x26cf…26ea at001a = EOL // 0x26e9 @0x1a
0x26cf…26ea }
0x26ea…2700 b457 5030 EXEC FE(8,G,D0$)
0x26ea…2700 LineComalBin {
0x26ea…2700 ptr = 0xb457 // 0x26ea @0x0
0x26ea…2700 lno = 0x13a6 // 0x26ec @0x2
0x26ea…2700 at0004 = ╱9d╱ EXEC ╱ // 0x26ee @0x4
0x26ea…2700 at0005 = ╱46╱F╱ // 0x26ef @0x5
0x26ea…2700 at0006 = ╱45╱E╱ // 0x26f0 @0x6
0x26ea…2700 at0007 = ╱ed╱(╱ // 0x26f1 @0x7
0x26ea…2700 at0008 = ╱38╱8╱ // 0x26f2 @0x8
0x26ea…2700 at0009 = ╱fe00008004╱ // 0x26f3 @0x9
0x26ea…2700 at000e = ╱ec╱,╱ // 0x26f8 @0xe
0x26ea…2700 at000f = ╱47╱G╱ // 0x26f9 @0xf
0x26ea…2700 at0010 = ╱ec╱,╱ // 0x26fa @0x10
0x26ea…2700 at0011 = ╱44╱D╱ // 0x26fb @0x11
0x26ea…2700 at0012 = ╱30╱0╱ // 0x26fc @0x12
0x26ea…2700 at0013 = ╱ef╱$╱ // 0x26fd @0x13
0x26ea…2700 at0014 = ╱ee╱)╱ // 0x26fe @0x14
0x26ea…2700 at0015 = EOL // 0x26ff @0x15
0x26ea…2700 }
0x2700…2713 b46a 5040 IF O9<>M8(N5,E) THEN STOP
0x2700…2713 LineComalBin {
0x2700…2713 ptr = 0xb46a // 0x2700 @0x0
0x2700…2713 lno = 0x13b0 // 0x2702 @0x2
0x2700…2713 at0004 = ╱82╱ IF ╱ // 0x2704 @0x4
0x2700…2713 at0005 = ╱4f╱O╱ // 0x2705 @0x5
0x2700…2713 at0006 = ╱39╱9╱ // 0x2706 @0x6
0x2700…2713 at0007 = ╱e1╱<>╱ // 0x2707 @0x7
0x2700…2713 at0008 = ╱4d╱M╱ // 0x2708 @0x8
0x2700…2713 at0009 = ╱38╱8╱ // 0x2709 @0x9
0x2700…2713 at000a = ╱ed╱(╱ // 0x270a @0xa
0x2700…2713 at000b = ╱4e╱N╱ // 0x270b @0xb
0x2700…2713 at000c = ╱35╱5╱ // 0x270c @0xc
0x2700…2713 at000d = ╱ec╱,╱ // 0x270d @0xd
0x2700…2713 at000e = ╱45╱E╱ // 0x270e @0xe
0x2700…2713 at000f = ╱ee╱)╱ // 0x270f @0xf
0x2700…2713 at0010 = ╱b6╱ THEN ╱ // 0x2710 @0x10
0x2700…2713 at0011 = ╱8d╱ STOP ╱ // 0x2711 @0x11
0x2700…2713 at0012 = EOL // 0x2712 @0x12
0x2700…2713 }
0x2713…2734 b48b 5050 GET D0$,J7+E:B1$,B2$,B3$,P0,C5$
0x2713…2734 LineComalBin {
0x2713…2734 ptr = 0xb48b // 0x2713 @0x0
0x2713…2734 lno = 0x13ba // 0x2715 @0x2
0x2713…2734 at0004 = ╱a9╱ GET ╱ // 0x2717 @0x4
0x2713…2734 at0005 = ╱44╱D╱ // 0x2718 @0x5
0x2713…2734 at0006 = ╱30╱0╱ // 0x2719 @0x6
0x2713…2734 at0007 = ╱ef╱$╱ // 0x271a @0x7
0x2713…2734 at0008 = ╱ec╱,╱ // 0x271b @0x8
0x2713…2734 at0009 = ╱4a╱J╱ // 0x271c @0x9
0x2713…2734 at000a = ╱37╱7╱ // 0x271d @0xa
0x2713…2734 at000b = ╱e2╱+╱ // 0x271e @0xb
0x2713…2734 at000c = ╱45╱E╱ // 0x271f @0xc
0x2713…2734 at000d = ╱f0╱:╱ // 0x2720 @0xd
0x2713…2734 at000e = ╱42╱B╱ // 0x2721 @0xe
0x2713…2734 at000f = ╱31╱1╱ // 0x2722 @0xf
0x2713…2734 at0010 = ╱ef╱$╱ // 0x2723 @0x10
0x2713…2734 at0011 = ╱ec╱,╱ // 0x2724 @0x11
0x2713…2734 at0012 = ╱42╱B╱ // 0x2725 @0x12
0x2713…2734 at0013 = ╱32╱2╱ // 0x2726 @0x13
0x2713…2734 at0014 = ╱ef╱$╱ // 0x2727 @0x14
0x2713…2734 at0015 = ╱ec╱,╱ // 0x2728 @0x15
0x2713…2734 at0016 = ╱42╱B╱ // 0x2729 @0x16
0x2713…2734 at0017 = ╱33╱3╱ // 0x272a @0x17
0x2713…2734 at0018 = ╱ef╱$╱ // 0x272b @0x18
0x2713…2734 at0019 = ╱ec╱,╱ // 0x272c @0x19
0x2713…2734 at001a = ╱50╱P╱ // 0x272d @0x1a
0x2713…2734 at001b = ╱30╱0╱ // 0x272e @0x1b
0x2713…2734 at001c = ╱ec╱,╱ // 0x272f @0x1c
0x2713…2734 at001d = ╱43╱C╱ // 0x2730 @0x1d
0x2713…2734 at001e = ╱35╱5╱ // 0x2731 @0x1e
0x2713…2734 at001f = ╱ef╱$╱ // 0x2732 @0x1f
0x2713…2734 at0020 = EOL // 0x2733 @0x20
0x2713…2734 }
0x2734…274a b4a1 5060 EXEC FE(8,V,D0$)
0x2734…274a LineComalBin {
0x2734…274a ptr = 0xb4a1 // 0x2734 @0x0
0x2734…274a lno = 0x13c4 // 0x2736 @0x2
0x2734…274a at0004 = ╱9d╱ EXEC ╱ // 0x2738 @0x4
0x2734…274a at0005 = ╱46╱F╱ // 0x2739 @0x5
0x2734…274a at0006 = ╱45╱E╱ // 0x273a @0x6
0x2734…274a at0007 = ╱ed╱(╱ // 0x273b @0x7
0x2734…274a at0008 = ╱38╱8╱ // 0x273c @0x8
0x2734…274a at0009 = ╱fe00008004╱ // 0x273d @0x9
0x2734…274a at000e = ╱ec╱,╱ // 0x2742 @0xe
0x2734…274a at000f = ╱56╱V╱ // 0x2743 @0xf
0x2734…274a at0010 = ╱ec╱,╱ // 0x2744 @0x10
0x2734…274a at0011 = ╱44╱D╱ // 0x2745 @0x11
0x2734…274a at0012 = ╱30╱0╱ // 0x2746 @0x12
0x2734…274a at0013 = ╱ef╱$╱ // 0x2747 @0x13
0x2734…274a at0014 = ╱ee╱)╱ // 0x2748 @0x14
0x2734…274a at0015 = EOL // 0x2749 @0x15
0x2734…274a }
0x274a…2766 b4bd 5070 GET D0$,J7+G:B5$,C0$,P1,P2
0x274a…2766 LineComalBin {
0x274a…2766 ptr = 0xb4bd // 0x274a @0x0
0x274a…2766 lno = 0x13ce // 0x274c @0x2
0x274a…2766 at0004 = ╱a9╱ GET ╱ // 0x274e @0x4
0x274a…2766 at0005 = ╱44╱D╱ // 0x274f @0x5
0x274a…2766 at0006 = ╱30╱0╱ // 0x2750 @0x6
0x274a…2766 at0007 = ╱ef╱$╱ // 0x2751 @0x7
0x274a…2766 at0008 = ╱ec╱,╱ // 0x2752 @0x8
0x274a…2766 at0009 = ╱4a╱J╱ // 0x2753 @0x9
0x274a…2766 at000a = ╱37╱7╱ // 0x2754 @0xa
0x274a…2766 at000b = ╱e2╱+╱ // 0x2755 @0xb
0x274a…2766 at000c = ╱47╱G╱ // 0x2756 @0xc
0x274a…2766 at000d = ╱f0╱:╱ // 0x2757 @0xd
0x274a…2766 at000e = ╱42╱B╱ // 0x2758 @0xe
0x274a…2766 at000f = ╱35╱5╱ // 0x2759 @0xf
0x274a…2766 at0010 = ╱ef╱$╱ // 0x275a @0x10
0x274a…2766 at0011 = ╱ec╱,╱ // 0x275b @0x11
0x274a…2766 at0012 = ╱43╱C╱ // 0x275c @0x12
0x274a…2766 at0013 = ╱30╱0╱ // 0x275d @0x13
0x274a…2766 at0014 = ╱ef╱$╱ // 0x275e @0x14
0x274a…2766 at0015 = ╱ec╱,╱ // 0x275f @0x15
0x274a…2766 at0016 = ╱50╱P╱ // 0x2760 @0x16
0x274a…2766 at0017 = ╱31╱1╱ // 0x2761 @0x17
0x274a…2766 at0018 = ╱ec╱,╱ // 0x2762 @0x18
0x274a…2766 at0019 = ╱50╱P╱ // 0x2763 @0x19
0x274a…2766 at001a = ╱32╱2╱ // 0x2764 @0x1a
0x274a…2766 at001b = EOL // 0x2765 @0x1b
0x274a…2766 }
0x2766…2781 b4d8 5080 EXEC FE(8,4,D0$)
0x2766…2781 LineComalBin {
0x2766…2781 ptr = 0xb4d8 // 0x2766 @0x0
0x2766…2781 lno = 0x13d8 // 0x2768 @0x2
0x2766…2781 at0004 = ╱9d╱ EXEC ╱ // 0x276a @0x4
0x2766…2781 at0005 = ╱46╱F╱ // 0x276b @0x5
0x2766…2781 at0006 = ╱45╱E╱ // 0x276c @0x6
0x2766…2781 at0007 = ╱ed╱(╱ // 0x276d @0x7
0x2766…2781 at0008 = ╱38╱8╱ // 0x276e @0x8
0x2766…2781 at0009 = ╱fe00008004╱ // 0x276f @0x9
0x2766…2781 at000e = ╱ec╱,╱ // 0x2774 @0xe
0x2766…2781 at000f = ╱34╱4╱ // 0x2775 @0xf
0x2766…2781 at0010 = ╱fe00008003╱ // 0x2776 @0x10
0x2766…2781 at0015 = ╱ec╱,╱ // 0x277b @0x15
0x2766…2781 at0016 = ╱44╱D╱ // 0x277c @0x16
0x2766…2781 at0017 = ╱30╱0╱ // 0x277d @0x17
0x2766…2781 at0018 = ╱ef╱$╱ // 0x277e @0x18
0x2766…2781 at0019 = ╱ee╱)╱ // 0x277f @0x19
0x2766…2781 at001a = EOL // 0x2780 @0x1a
0x2766…2781 }
0x2781…279b b4f2 5090 GET D0$,J7+V:C1$,C3$,C4$
0x2781…279b LineComalBin {
0x2781…279b ptr = 0xb4f2 // 0x2781 @0x0
0x2781…279b lno = 0x13e2 // 0x2783 @0x2
0x2781…279b at0004 = ╱a9╱ GET ╱ // 0x2785 @0x4
0x2781…279b at0005 = ╱44╱D╱ // 0x2786 @0x5
0x2781…279b at0006 = ╱30╱0╱ // 0x2787 @0x6
0x2781…279b at0007 = ╱ef╱$╱ // 0x2788 @0x7
0x2781…279b at0008 = ╱ec╱,╱ // 0x2789 @0x8
0x2781…279b at0009 = ╱4a╱J╱ // 0x278a @0x9
0x2781…279b at000a = ╱37╱7╱ // 0x278b @0xa
0x2781…279b at000b = ╱e2╱+╱ // 0x278c @0xb
0x2781…279b at000c = ╱56╱V╱ // 0x278d @0xc
0x2781…279b at000d = ╱f0╱:╱ // 0x278e @0xd
0x2781…279b at000e = ╱43╱C╱ // 0x278f @0xe
0x2781…279b at000f = ╱31╱1╱ // 0x2790 @0xf
0x2781…279b at0010 = ╱ef╱$╱ // 0x2791 @0x10
0x2781…279b at0011 = ╱ec╱,╱ // 0x2792 @0x11
0x2781…279b at0012 = ╱43╱C╱ // 0x2793 @0x12
0x2781…279b at0013 = ╱33╱3╱ // 0x2794 @0x13
0x2781…279b at0014 = ╱ef╱$╱ // 0x2795 @0x14
0x2781…279b at0015 = ╱ec╱,╱ // 0x2796 @0x15
0x2781…279b at0016 = ╱43╱C╱ // 0x2797 @0x16
0x2781…279b at0017 = ╱34╱4╱ // 0x2798 @0x17
0x2781…279b at0018 = ╱ef╱$╱ // 0x2799 @0x18
0x2781…279b at0019 = EOL // 0x279a @0x19
0x2781…279b }
0x279b…27b6 b50d 5100 EXEC FE(8,5,D0$)
0x279b…27b6 LineComalBin {
0x279b…27b6 ptr = 0xb50d // 0x279b @0x0
0x279b…27b6 lno = 0x13ec // 0x279d @0x2
0x279b…27b6 at0004 = ╱9d╱ EXEC ╱ // 0x279f @0x4
0x279b…27b6 at0005 = ╱46╱F╱ // 0x27a0 @0x5
0x279b…27b6 at0006 = ╱45╱E╱ // 0x27a1 @0x6
0x279b…27b6 at0007 = ╱ed╱(╱ // 0x27a2 @0x7
0x279b…27b6 at0008 = ╱38╱8╱ // 0x27a3 @0x8
0x279b…27b6 at0009 = ╱fe00008004╱ // 0x27a4 @0x9
0x279b…27b6 at000e = ╱ec╱,╱ // 0x27a9 @0xe
0x279b…27b6 at000f = ╱35╱5╱ // 0x27aa @0xf
0x279b…27b6 at0010 = ╱fe0000a003╱ // 0x27ab @0x10
0x279b…27b6 at0015 = ╱ec╱,╱ // 0x27b0 @0x15
0x279b…27b6 at0016 = ╱44╱D╱ // 0x27b1 @0x16
0x279b…27b6 at0017 = ╱30╱0╱ // 0x27b2 @0x17
0x279b…27b6 at0018 = ╱ef╱$╱ // 0x27b3 @0x18
0x279b…27b6 at0019 = ╱ee╱)╱ // 0x27b4 @0x19
0x279b…27b6 at001a = EOL // 0x27b5 @0x1a
0x279b…27b6 }
0x27b6…27bc b513 5110 ENDPROC
0x27b6…27bc LineComalBin {
0x27b6…27bc ptr = 0xb513 // 0x27b6 @0x0
0x27b6…27bc lno = 0x13f6 // 0x27b8 @0x2
0x27b6…27bc at0004 = ╱9f╱ ENDPROC ╱ // 0x27ba @0x4
0x27b6…27bc at0005 = EOL // 0x27bb @0x5
0x27b6…27bc }
0x27bc…27d1 b528 5120 PROC TU(P3,P4,P5,P6)
0x27bc…27d1 LineComalBin {
0x27bc…27d1 ptr = 0xb528 // 0x27bc @0x0
0x27bc…27d1 lno = 0x1400 // 0x27be @0x2
0x27bc…27d1 at0004 = ╱9e╱ PROC ╱ // 0x27c0 @0x4
0x27bc…27d1 at0005 = ╱54╱T╱ // 0x27c1 @0x5
0x27bc…27d1 at0006 = ╱55╱U╱ // 0x27c2 @0x6
0x27bc…27d1 at0007 = ╱ed╱(╱ // 0x27c3 @0x7
0x27bc…27d1 at0008 = ╱50╱P╱ // 0x27c4 @0x8
0x27bc…27d1 at0009 = ╱33╱3╱ // 0x27c5 @0x9
0x27bc…27d1 at000a = ╱ec╱,╱ // 0x27c6 @0xa
0x27bc…27d1 at000b = ╱50╱P╱ // 0x27c7 @0xb
0x27bc…27d1 at000c = ╱34╱4╱ // 0x27c8 @0xc
0x27bc…27d1 at000d = ╱ec╱,╱ // 0x27c9 @0xd
0x27bc…27d1 at000e = ╱50╱P╱ // 0x27ca @0xe
0x27bc…27d1 at000f = ╱35╱5╱ // 0x27cb @0xf
0x27bc…27d1 at0010 = ╱ec╱,╱ // 0x27cc @0x10
0x27bc…27d1 at0011 = ╱50╱P╱ // 0x27cd @0x11
0x27bc…27d1 at0012 = ╱36╱6╱ // 0x27ce @0x12
0x27bc…27d1 at0013 = ╱ee╱)╱ // 0x27cf @0x13
0x27bc…27d1 at0014 = EOL // 0x27d0 @0x14
0x27bc…27d1 }
0x27d1…27e5 b53c 5130 C6$=P3$;B8$=P4$
0x27d1…27e5 LineComalBin {
0x27d1…27e5 ptr = 0xb53c // 0x27d1 @0x0
0x27d1…27e5 lno = 0x140a // 0x27d3 @0x2
0x27d1…27e5 at0004 = ╱43╱C╱ // 0x27d5 @0x4
0x27d1…27e5 at0005 = ╱36╱6╱ // 0x27d6 @0x5
0x27d1…27e5 at0006 = ╱ef╱$╱ // 0x27d7 @0x6
0x27d1…27e5 at0007 = ╱dc╱=╱ // 0x27d8 @0x7
0x27d1…27e5 at0008 = ╱50╱P╱ // 0x27d9 @0x8
0x27d1…27e5 at0009 = ╱33╱3╱ // 0x27da @0x9
0x27d1…27e5 at000a = ╱ef╱$╱ // 0x27db @0xa
0x27d1…27e5 at000b = ╱eb╱;╱ // 0x27dc @0xb
0x27d1…27e5 at000c = ╱42╱B╱ // 0x27dd @0xc
0x27d1…27e5 at000d = ╱38╱8╱ // 0x27de @0xd
0x27d1…27e5 at000e = ╱ef╱$╱ // 0x27df @0xe
0x27d1…27e5 at000f = ╱dc╱=╱ // 0x27e0 @0xf
0x27d1…27e5 at0010 = ╱50╱P╱ // 0x27e1 @0x10
0x27d1…27e5 at0011 = ╱34╱4╱ // 0x27e2 @0x11
0x27d1…27e5 at0012 = ╱ef╱$╱ // 0x27e3 @0x12
0x27d1…27e5 at0013 = EOL // 0x27e4 @0x13
0x27d1…27e5 }
0x27e5…2801 b558 5140 EXEC CA(5,C6$,B9$,B8$)
0x27e5…2801 LineComalBin {
0x27e5…2801 ptr = 0xb558 // 0x27e5 @0x0
0x27e5…2801 lno = 0x1414 // 0x27e7 @0x2
0x27e5…2801 at0004 = ╱9d╱ EXEC ╱ // 0x27e9 @0x4
0x27e5…2801 at0005 = ╱43╱C╱ // 0x27ea @0x5
0x27e5…2801 at0006 = ╱41╱A╱ // 0x27eb @0x6
0x27e5…2801 at0007 = ╱ed╱(╱ // 0x27ec @0x7
0x27e5…2801 at0008 = ╱35╱5╱ // 0x27ed @0x8
0x27e5…2801 at0009 = ╱fe0000a003╱ // 0x27ee @0x9
0x27e5…2801 at000e = ╱ec╱,╱ // 0x27f3 @0xe
0x27e5…2801 at000f = ╱43╱C╱ // 0x27f4 @0xf
0x27e5…2801 at0010 = ╱36╱6╱ // 0x27f5 @0x10
0x27e5…2801 at0011 = ╱ef╱$╱ // 0x27f6 @0x11
0x27e5…2801 at0012 = ╱ec╱,╱ // 0x27f7 @0x12
0x27e5…2801 at0013 = ╱42╱B╱ // 0x27f8 @0x13
0x27e5…2801 at0014 = ╱39╱9╱ // 0x27f9 @0x14
0x27e5…2801 at0015 = ╱ef╱$╱ // 0x27fa @0x15
0x27e5…2801 at0016 = ╱ec╱,╱ // 0x27fb @0x16
0x27e5…2801 at0017 = ╱42╱B╱ // 0x27fc @0x17
0x27e5…2801 at0018 = ╱38╱8╱ // 0x27fd @0x18
0x27e5…2801 at0019 = ╱ef╱$╱ // 0x27fe @0x19
0x27e5…2801 at001a = ╱ee╱)╱ // 0x27ff @0x1a
0x27e5…2801 at001b = EOL // 0x2800 @0x1b
0x27e5…2801 }
0x2801…280d (133,) b564 5150 P4$=B8$
0x2801…280d LineComalBin {
0x2801…280d ptr = 0xb564 // 0x2801 @0x0
0x2801…280d lno = 0x141e // 0x2803 @0x2
0x2801…280d at0004 = ╱50╱P╱ // 0x2805 @0x4
0x2801…280d at0005 = ╱34╱4╱ // 0x2806 @0x5
0x2801…280d at0006 = ╱ef╱$╱ // 0x2807 @0x6
0x2801…280d at0007 = ╱dc╱=╱ // 0x2808 @0x7
0x2801…280d at0008 = ╱42╱B╱ // 0x2809 @0x8
0x2801…280d at0009 = ╱38╱8╱ // 0x280a @0x9
0x2801…280d at000a = ╱ef╱$╱ // 0x280b @0xa
0x2801…280d at000b = EOL // 0x280c @0xb
0x2801…280d }
0x280d…282a b581 5160 IF P5=B THEN P4$=P4$(E:13)
0x280d…282a LineComalBin {
0x280d…282a ptr = 0xb581 // 0x280d @0x0
0x280d…282a lno = 0x1428 // 0x280f @0x2
0x280d…282a at0004 = ╱82╱ IF ╱ // 0x2811 @0x4
0x280d…282a at0005 = ╱50╱P╱ // 0x2812 @0x5
0x280d…282a at0006 = ╱35╱5╱ // 0x2813 @0x6
0x280d…282a at0007 = ╱dc╱=╱ // 0x2814 @0x7
0x280d…282a at0008 = ╱42╱B╱ // 0x2815 @0x8
0x280d…282a at0009 = ╱b6╱ THEN ╱ // 0x2816 @0x9
0x280d…282a at000a = ╱50╱P╱ // 0x2817 @0xa
0x280d…282a at000b = ╱34╱4╱ // 0x2818 @0xb
0x280d…282a at000c = ╱ef╱$╱ // 0x2819 @0xc
0x280d…282a at000d = ╱dc╱=╱ // 0x281a @0xd
0x280d…282a at000e = ╱50╱P╱ // 0x281b @0xe
0x280d…282a at000f = ╱34╱4╱ // 0x281c @0xf
0x280d…282a at0010 = ╱ef╱$╱ // 0x281d @0x10
0x280d…282a at0011 = ╱ed╱(╱ // 0x281e @0x11
0x280d…282a at0012 = ╱45╱E╱ // 0x281f @0x12
0x280d…282a at0013 = ╱f0╱:╱ // 0x2820 @0x13
0x280d…282a at0014 = ╱31╱1╱ // 0x2821 @0x14
0x280d…282a at0015 = ╱33╱3╱ // 0x2822 @0x15
0x280d…282a at0016 = ╱fe0000d004╱ // 0x2823 @0x16
0x280d…282a at001b = ╱ee╱)╱ // 0x2828 @0x1b
0x280d…282a at001c = EOL // 0x2829 @0x1c
0x280d…282a }
0x282a…2854 b5ab 5170 IF P5=E AND P4$(LEN(P4$))="+" THEN P4$(LEN(P4$))=" "
0x282a…2854 LineComalBin {
0x282a…2854 ptr = 0xb5ab // 0x282a @0x0
0x282a…2854 lno = 0x1432 // 0x282c @0x2
0x282a…2854 at0004 = ╱82╱ IF ╱ // 0x282e @0x4
0x282a…2854 at0005 = ╱50╱P╱ // 0x282f @0x5
0x282a…2854 at0006 = ╱35╱5╱ // 0x2830 @0x6
0x282a…2854 at0007 = ╱dc╱=╱ // 0x2831 @0x7
0x282a…2854 at0008 = ╱45╱E╱ // 0x2832 @0x8
0x282a…2854 at0009 = ╱da╱ AND ╱ // 0x2833 @0x9
0x282a…2854 at000a = ╱50╱P╱ // 0x2834 @0xa
0x282a…2854 at000b = ╱34╱4╱ // 0x2835 @0xb
0x282a…2854 at000c = ╱ef╱$╱ // 0x2836 @0xc
0x282a…2854 at000d = ╱ed╱(╱ // 0x2837 @0xd
0x282a…2854 at000e = ╱cc╱LEN╱ // 0x2838 @0xe
0x282a…2854 at000f = ╱ed╱(╱ // 0x2839 @0xf
0x282a…2854 at0010 = ╱50╱P╱ // 0x283a @0x10
0x282a…2854 at0011 = ╱34╱4╱ // 0x283b @0x11
0x282a…2854 at0012 = ╱ef╱$╱ // 0x283c @0x12
0x282a…2854 at0013 = ╱ee╱)╱ // 0x283d @0x13
0x282a…2854 at0014 = ╱ee╱)╱ // 0x283e @0x14
0x282a…2854 at0015 = ╱dc╱=╱ // 0x283f @0x15
0x282a…2854 at0016 = ╱22╱"╱ // 0x2840 @0x16
0x282a…2854 at0017 = ╱2b╱+╱ // 0x2841 @0x17
0x282a…2854 at0018 = ╱22╱"╱ // 0x2842 @0x18
0x282a…2854 at0019 = ╱b6╱ THEN ╱ // 0x2843 @0x19
0x282a…2854 at001a = ╱50╱P╱ // 0x2844 @0x1a
0x282a…2854 at001b = ╱34╱4╱ // 0x2845 @0x1b
0x282a…2854 at001c = ╱ef╱$╱ // 0x2846 @0x1c
0x282a…2854 at001d = ╱ed╱(╱ // 0x2847 @0x1d
0x282a…2854 at001e = ╱cc╱LEN╱ // 0x2848 @0x1e
0x282a…2854 at001f = ╱ed╱(╱ // 0x2849 @0x1f
0x282a…2854 at0020 = ╱50╱P╱ // 0x284a @0x20
0x282a…2854 at0021 = ╱34╱4╱ // 0x284b @0x21
0x282a…2854 at0022 = ╱ef╱$╱ // 0x284c @0x22
0x282a…2854 at0023 = ╱ee╱)╱ // 0x284d @0x23
0x282a…2854 at0024 = ╱ee╱)╱ // 0x284e @0x24
0x282a…2854 at0025 = ╱dc╱=╱ // 0x284f @0x25
0x282a…2854 at0026 = ╱22╱"╱ // 0x2850 @0x26
0x282a…2854 at0027 = ╱20╱…╱ // 0x2851 @0x27
0x282a…2854 at0028 = ╱22╱"╱ // 0x2852 @0x28
0x282a…2854 at0029 = EOL // 0x2853 @0x29
0x282a…2854 }
0x2854…2877 b5ce 5180 IF P6=E THEN P4$=P4$(4:LEN(P4$)-V)
0x2854…2877 LineComalBin {
0x2854…2877 ptr = 0xb5ce // 0x2854 @0x0
0x2854…2877 lno = 0x143c // 0x2856 @0x2
0x2854…2877 at0004 = ╱82╱ IF ╱ // 0x2858 @0x4
0x2854…2877 at0005 = ╱50╱P╱ // 0x2859 @0x5
0x2854…2877 at0006 = ╱36╱6╱ // 0x285a @0x6
0x2854…2877 at0007 = ╱dc╱=╱ // 0x285b @0x7
0x2854…2877 at0008 = ╱45╱E╱ // 0x285c @0x8
0x2854…2877 at0009 = ╱b6╱ THEN ╱ // 0x285d @0x9
0x2854…2877 at000a = ╱50╱P╱ // 0x285e @0xa
0x2854…2877 at000b = ╱34╱4╱ // 0x285f @0xb
0x2854…2877 at000c = ╱ef╱$╱ // 0x2860 @0xc
0x2854…2877 at000d = ╱dc╱=╱ // 0x2861 @0xd
0x2854…2877 at000e = ╱50╱P╱ // 0x2862 @0xe
0x2854…2877 at000f = ╱34╱4╱ // 0x2863 @0xf
0x2854…2877 at0010 = ╱ef╱$╱ // 0x2864 @0x10
0x2854…2877 at0011 = ╱ed╱(╱ // 0x2865 @0x11
0x2854…2877 at0012 = ╱34╱4╱ // 0x2866 @0x12
0x2854…2877 at0013 = ╱fe00008003╱ // 0x2867 @0x13
0x2854…2877 at0018 = ╱f0╱:╱ // 0x286c @0x18
0x2854…2877 at0019 = ╱cc╱LEN╱ // 0x286d @0x19
0x2854…2877 at001a = ╱ed╱(╱ // 0x286e @0x1a
0x2854…2877 at001b = ╱50╱P╱ // 0x286f @0x1b
0x2854…2877 at001c = ╱34╱4╱ // 0x2870 @0x1c
0x2854…2877 at001d = ╱ef╱$╱ // 0x2871 @0x1d
0x2854…2877 at001e = ╱ee╱)╱ // 0x2872 @0x1e
0x2854…2877 at001f = ╱e3╱-╱ // 0x2873 @0x1f
0x2854…2877 at0020 = ╱56╱V╱ // 0x2874 @0x20
0x2854…2877 at0021 = ╱ee╱)╱ // 0x2875 @0x21
0x2854…2877 at0022 = EOL // 0x2876 @0x22
0x2854…2877 }
0x2877…287d b5d4 5190 ENDPROC
0x2877…287d LineComalBin {
0x2877…287d ptr = 0xb5d4 // 0x2877 @0x0
0x2877…287d lno = 0x1446 // 0x2879 @0x2
0x2877…287d at0004 = ╱9f╱ ENDPROC ╱ // 0x287b @0x4
0x2877…287d at0005 = EOL // 0x287c @0x5
0x2877…287d }
0x287d…2889 b5e0 5200 PROC NR(P7)
0x287d…2889 LineComalBin {
0x287d…2889 ptr = 0xb5e0 // 0x287d @0x0
0x287d…2889 lno = 0x1450 // 0x287f @0x2
0x287d…2889 at0004 = ╱9e╱ PROC ╱ // 0x2881 @0x4
0x287d…2889 at0005 = ╱4e╱N╱ // 0x2882 @0x5
0x287d…2889 at0006 = ╱52╱R╱ // 0x2883 @0x6
0x287d…2889 at0007 = ╱ed╱(╱ // 0x2884 @0x7
0x287d…2889 at0008 = ╱50╱P╱ // 0x2885 @0x8
0x287d…2889 at0009 = ╱37╱7╱ // 0x2886 @0x9
0x287d…2889 at000a = ╱ee╱)╱ // 0x2887 @0xa
0x287d…2889 at000b = EOL // 0x2888 @0xb
0x287d…2889 }
0x2889…28a5 b5fc 5210 P=B;H4=B;I8=B;I5=LEN(P7$)
0x2889…28a5 LineComalBin {
0x2889…28a5 ptr = 0xb5fc // 0x2889 @0x0
0x2889…28a5 lno = 0x145a // 0x288b @0x2
0x2889…28a5 at0004 = ╱50╱P╱ // 0x288d @0x4
0x2889…28a5 at0005 = ╱dc╱=╱ // 0x288e @0x5
0x2889…28a5 at0006 = ╱42╱B╱ // 0x288f @0x6
0x2889…28a5 at0007 = ╱eb╱;╱ // 0x2890 @0x7
0x2889…28a5 at0008 = ╱48╱H╱ // 0x2891 @0x8
0x2889…28a5 at0009 = ╱34╱4╱ // 0x2892 @0x9
0x2889…28a5 at000a = ╱dc╱=╱ // 0x2893 @0xa
0x2889…28a5 at000b = ╱42╱B╱ // 0x2894 @0xb
0x2889…28a5 at000c = ╱eb╱;╱ // 0x2895 @0xc
0x2889…28a5 at000d = ╱49╱I╱ // 0x2896 @0xd
0x2889…28a5 at000e = ╱38╱8╱ // 0x2897 @0xe
0x2889…28a5 at000f = ╱dc╱=╱ // 0x2898 @0xf
0x2889…28a5 at0010 = ╱42╱B╱ // 0x2899 @0x10
0x2889…28a5 at0011 = ╱eb╱;╱ // 0x289a @0x11
0x2889…28a5 at0012 = ╱49╱I╱ // 0x289b @0x12
0x2889…28a5 at0013 = ╱35╱5╱ // 0x289c @0x13
0x2889…28a5 at0014 = ╱dc╱=╱ // 0x289d @0x14
0x2889…28a5 at0015 = ╱cc╱LEN╱ // 0x289e @0x15
0x2889…28a5 at0016 = ╱ed╱(╱ // 0x289f @0x16
0x2889…28a5 at0017 = ╱50╱P╱ // 0x28a0 @0x17
0x2889…28a5 at0018 = ╱37╱7╱ // 0x28a1 @0x18
0x2889…28a5 at0019 = ╱ef╱$╱ // 0x28a2 @0x19
0x2889…28a5 at001a = ╱ee╱)╱ // 0x28a3 @0x1a
0x2889…28a5 at001b = EOL // 0x28a4 @0x1b
0x2889…28a5 }
0x28a5…28af b606 5220 CASE I5 OF
0x28a5…28af LineComalBin {
0x28a5…28af ptr = 0xb606 // 0x28a5 @0x0
0x28a5…28af lno = 0x1464 // 0x28a7 @0x2
0x28a5…28af at0004 = ╱a201╱ CASE ╱ // 0x28a9 @0x4
0x28a5…28af at0006 = ╱49╱I╱ // 0x28ab @0x6
0x28a5…28af at0007 = ╱35╱5╱ // 0x28ac @0x7
0x28a5…28af at0008 = ╱ba╱ OF ╱ // 0x28ad @0x8
0x28a5…28af at0009 = EOL // 0x28ae @0x9
0x28a5…28af }
0x28af…28bb b612 5230 FOR I=E TO I5
0x28af…28bb LineComalBin {
0x28af…28bb ptr = 0xb612 // 0x28af @0x0
0x28af…28bb lno = 0x146e // 0x28b1 @0x2
0x28af…28bb at0004 = ╱83╱ FOR ╱ // 0x28b3 @0x4
0x28af…28bb at0005 = ╱49╱I╱ // 0x28b4 @0x5
0x28af…28bb at0006 = ╱dc╱=╱ // 0x28b5 @0x6
0x28af…28bb at0007 = ╱45╱E╱ // 0x28b6 @0x7
0x28af…28bb at0008 = ╱b7╱ TO ╱ // 0x28b7 @0x8
0x28af…28bb at0009 = ╱49╱I╱ // 0x28b8 @0x9
0x28af…28bb at000a = ╱35╱5╱ // 0x28b9 @0xa
0x28af…28bb at000b = EOL // 0x28ba @0xb
0x28af…28bb }
0x28bb…28d7 b62e 5240 P8=INT(ORD(P7$(I))-48)
0x28bb…28d7 LineComalBin {
0x28bb…28d7 ptr = 0xb62e // 0x28bb @0x0
0x28bb…28d7 lno = 0x1478 // 0x28bd @0x2
0x28bb…28d7 at0004 = ╱50╱P╱ // 0x28bf @0x4
0x28bb…28d7 at0005 = ╱38╱8╱ // 0x28c0 @0x5
0x28bb…28d7 at0006 = ╱dc╱=╱ // 0x28c1 @0x6
0x28bb…28d7 at0007 = ╱c6╱INT╱ // 0x28c2 @0x7
0x28bb…28d7 at0008 = ╱ed╱(╱ // 0x28c3 @0x8
0x28bb…28d7 at0009 = ╱cd╱ORD╱ // 0x28c4 @0x9
0x28bb…28d7 at000a = ╱ed╱(╱ // 0x28c5 @0xa
0x28bb…28d7 at000b = ╱50╱P╱ // 0x28c6 @0xb
0x28bb…28d7 at000c = ╱37╱7╱ // 0x28c7 @0xc
0x28bb…28d7 at000d = ╱ef╱$╱ // 0x28c8 @0xd
0x28bb…28d7 at000e = ╱ed╱(╱ // 0x28c9 @0xe
0x28bb…28d7 at000f = ╱49╱I╱ // 0x28ca @0xf
0x28bb…28d7 at0010 = ╱ee╱)╱ // 0x28cb @0x10
0x28bb…28d7 at0011 = ╱ee╱)╱ // 0x28cc @0x11
0x28bb…28d7 at0012 = ╱e3╱-╱ // 0x28cd @0x12
0x28bb…28d7 at0013 = ╱34╱4╱ // 0x28ce @0x13
0x28bb…28d7 at0014 = ╱38╱8╱ // 0x28cf @0x14
0x28bb…28d7 at0015 = ╱fe0000c006╱ // 0x28d0 @0x15
0x28bb…28d7 at001a = ╱ee╱)╱ // 0x28d5 @0x1a
0x28bb…28d7 at001b = EOL // 0x28d6 @0x1b
0x28bb…28d7 }
0x28d7…28ed b644 5250 IF P8=>B AND P8<10 THEN
0x28d7…28ed LineComalBin {
0x28d7…28ed ptr = 0xb644 // 0x28d7 @0x0
0x28d7…28ed lno = 0x1482 // 0x28d9 @0x2
0x28d7…28ed at0004 = ╱9c╱ IF ╱ // 0x28db @0x4
0x28d7…28ed at0005 = ╱50╱P╱ // 0x28dc @0x5
0x28d7…28ed at0006 = ╱38╱8╱ // 0x28dd @0x6
0x28d7…28ed at0007 = ╱e0╱=>╱ // 0x28de @0x7
0x28d7…28ed at0008 = ╱42╱B╱ // 0x28df @0x8
0x28d7…28ed at0009 = ╱da╱ AND ╱ // 0x28e0 @0x9
0x28d7…28ed at000a = ╱50╱P╱ // 0x28e1 @0xa
0x28d7…28ed at000b = ╱38╱8╱ // 0x28e2 @0xb
0x28d7…28ed at000c = ╱dd╱<╱ // 0x28e3 @0xc
0x28d7…28ed at000d = ╱31╱1╱ // 0x28e4 @0xd
0x28d7…28ed at000e = ╱30╱0╱ // 0x28e5 @0xe
0x28d7…28ed at000f = ╱fe0000a004╱ // 0x28e6 @0xf
0x28d7…28ed at0014 = ╱b6╱ THEN ╱ // 0x28eb @0x14
0x28d7…28ed at0015 = EOL // 0x28ec @0x15
0x28d7…28ed }
0x28ed…2900 b657 5260 P=P*10+P8
0x28ed…2900 LineComalBin {
0x28ed…2900 ptr = 0xb657 // 0x28ed @0x0
0x28ed…2900 lno = 0x148c // 0x28ef @0x2
0x28ed…2900 at0004 = ╱50╱P╱ // 0x28f1 @0x4
0x28ed…2900 at0005 = ╱dc╱=╱ // 0x28f2 @0x5
0x28ed…2900 at0006 = ╱50╱P╱ // 0x28f3 @0x6
0x28ed…2900 at0007 = ╱e4╱*╱ // 0x28f4 @0x7
0x28ed…2900 at0008 = ╱31╱1╱ // 0x28f5 @0x8
0x28ed…2900 at0009 = ╱30╱0╱ // 0x28f6 @0x9
0x28ed…2900 at000a = ╱fe0000a004╱ // 0x28f7 @0xa
0x28ed…2900 at000f = ╱e2╱+╱ // 0x28fc @0xf
0x28ed…2900 at0010 = ╱50╱P╱ // 0x28fd @0x10
0x28ed…2900 at0011 = ╱38╱8╱ // 0x28fe @0x11
0x28ed…2900 at0012 = EOL // 0x28ff @0x12
0x28ed…2900 }
0x2900…2906 b65d 5270 ELSE
0x2900…2906 LineComalBin {
0x2900…2906 ptr = 0xb65d // 0x2900 @0x0
0x2900…2906 lno = 0x1496 // 0x2902 @0x2
0x2900…2906 at0004 = ╱9a╱ ELSE ╱ // 0x2904 @0x4
0x2900…2906 at0005 = EOL // 0x2905 @0x5
0x2900…2906 }
0x2906…290f b666 5280 H4=E
0x2906…290f LineComalBin {
0x2906…290f ptr = 0xb666 // 0x2906 @0x0
0x2906…290f lno = 0x14a0 // 0x2908 @0x2
0x2906…290f at0004 = ╱48╱H╱ // 0x290a @0x4
0x2906…290f at0005 = ╱34╱4╱ // 0x290b @0x5
0x2906…290f at0006 = ╱dc╱=╱ // 0x290c @0x6
0x2906…290f at0007 = ╱45╱E╱ // 0x290d @0x7
0x2906…290f at0008 = EOL // 0x290e @0x8
0x2906…290f }
0x290f…2915 b66c 5290 ENDIF
0x290f…2915 LineComalBin {
0x290f…2915 ptr = 0xb66c // 0x290f @0x0
0x290f…2915 lno = 0x14aa // 0x2911 @0x2
0x290f…2915 at0004 = ╱9b╱ ENDIF ╱ // 0x2913 @0x4
0x290f…2915 at0005 = EOL // 0x2914 @0x5
0x290f…2915 }
0x2915…291c b673 5300 NEXT I
0x2915…291c LineComalBin {
0x2915…291c ptr = 0xb673 // 0x2915 @0x0
0x2915…291c lno = 0x14b4 // 0x2917 @0x2
0x2915…291c at0004 = ╱84╱ NEXT ╱ // 0x2919 @0x4
0x2915…291c at0005 = ╱49╱I╱ // 0x291a @0x5
0x2915…291c at0006 = EOL // 0x291b @0x6
0x2915…291c }
0x291c…2942 b699 5310 I8=P DIV 10000;KTAL9=P DIV 1000
0x291c…2942 LineComalBin {
0x291c…2942 ptr = 0xb699 // 0x291c @0x0
0x291c…2942 lno = 0x14be // 0x291e @0x2
0x291c…2942 at0004 = ╱49╱I╱ // 0x2920 @0x4
0x291c…2942 at0005 = ╱38╱8╱ // 0x2921 @0x5
0x291c…2942 at0006 = ╱dc╱=╱ // 0x2922 @0x6
0x291c…2942 at0007 = ╱50╱P╱ // 0x2923 @0x7
0x291c…2942 at0008 = ╱e7╱ DIV ╱ // 0x2924 @0x8
0x291c…2942 at0009 = ╱31╱1╱ // 0x2925 @0x9
0x291c…2942 at000a = ╱30╱0╱ // 0x2926 @0xa
0x291c…2942 at000b = ╱30╱0╱ // 0x2927 @0xb
0x291c…2942 at000c = ╱30╱0╱ // 0x2928 @0xc
0x291c…2942 at000d = ╱30╱0╱ // 0x2929 @0xd
0x291c…2942 at000e = ╱fe00409c0e╱ // 0x292a @0xe
0x291c…2942 at0013 = ╱eb╱;╱ // 0x292f @0x13
0x291c…2942 at0014 = ╱4b╱K╱ // 0x2930 @0x14
0x291c…2942 at0015 = ╱54╱T╱ // 0x2931 @0x15
0x291c…2942 at0016 = ╱41╱A╱ // 0x2932 @0x16
0x291c…2942 at0017 = ╱4c╱L╱ // 0x2933 @0x17
0x291c…2942 at0018 = ╱39╱9╱ // 0x2934 @0x18
0x291c…2942 at0019 = ╱dc╱=╱ // 0x2935 @0x19
0x291c…2942 at001a = ╱50╱P╱ // 0x2936 @0x1a
0x291c…2942 at001b = ╱e7╱ DIV ╱ // 0x2937 @0x1b
0x291c…2942 at001c = ╱31╱1╱ // 0x2938 @0x1c
0x291c…2942 at001d = ╱30╱0╱ // 0x2939 @0x1d
0x291c…2942 at001e = ╱30╱0╱ // 0x293a @0x1e
0x291c…2942 at001f = ╱30╱0╱ // 0x293b @0x1f
0x291c…2942 at0020 = ╱fe0000fa0a╱ // 0x293c @0x20
0x291c…2942 at0025 = EOL // 0x2941 @0x25
0x291c…2942 }
0x2942…2959 b6b0 5320 IF KTAL9=J2 THEN I8=KTAL9
0x2942…2959 LineComalBin {
0x2942…2959 ptr = 0xb6b0 // 0x2942 @0x0
0x2942…2959 lno = 0x14c8 // 0x2944 @0x2
0x2942…2959 at0004 = ╱82╱ IF ╱ // 0x2946 @0x4
0x2942…2959 at0005 = ╱4b╱K╱ // 0x2947 @0x5
0x2942…2959 at0006 = ╱54╱T╱ // 0x2948 @0x6
0x2942…2959 at0007 = ╱41╱A╱ // 0x2949 @0x7
0x2942…2959 at0008 = ╱4c╱L╱ // 0x294a @0x8
0x2942…2959 at0009 = ╱39╱9╱ // 0x294b @0x9
0x2942…2959 at000a = ╱dc╱=╱ // 0x294c @0xa
0x2942…2959 at000b = ╱4a╱J╱ // 0x294d @0xb
0x2942…2959 at000c = ╱32╱2╱ // 0x294e @0xc
0x2942…2959 at000d = ╱b6╱ THEN ╱ // 0x294f @0xd
0x2942…2959 at000e = ╱49╱I╱ // 0x2950 @0xe
0x2942…2959 at000f = ╱38╱8╱ // 0x2951 @0xf
0x2942…2959 at0010 = ╱dc╱=╱ // 0x2952 @0x10
0x2942…2959 at0011 = ╱4b╱K╱ // 0x2953 @0x11
0x2942…2959 at0012 = ╱54╱T╱ // 0x2954 @0x12
0x2942…2959 at0013 = ╱41╱A╱ // 0x2955 @0x13
0x2942…2959 at0014 = ╱4c╱L╱ // 0x2956 @0x14
0x2942…2959 at0015 = ╱39╱9╱ // 0x2957 @0x15
0x2942…2959 at0016 = EOL // 0x2958 @0x16
0x2942…2959 }
0x2959…2961 b6b8 5330 WHEN B
0x2959…2961 LineComalBin {
0x2959…2961 ptr = 0xb6b8 // 0x2959 @0x0
0x2959…2961 lno = 0x14d2 // 0x295b @0x2
0x2959…2961 at0004 = ╱a301╱ WHEN ╱ // 0x295d @0x4
0x2959…2961 at0006 = ╱42╱B╱ // 0x295f @0x6
0x2959…2961 at0007 = EOL // 0x2960 @0x7
0x2959…2961 }
0x2961…296a b6c1 5340 P=-E
0x2961…296a LineComalBin {
0x2961…296a ptr = 0xb6c1 // 0x2961 @0x0
0x2961…296a lno = 0x14dc // 0x2963 @0x2
0x2961…296a at0004 = ╱50╱P╱ // 0x2965 @0x4
0x2961…296a at0005 = ╱dc╱=╱ // 0x2966 @0x5
0x2961…296a at0006 = ╱e9╱-╱ // 0x2967 @0x6
0x2961…296a at0007 = ╱45╱E╱ // 0x2968 @0x7
0x2961…296a at0008 = EOL // 0x2969 @0x8
0x2961…296a }
0x296a…2972 b6c9 5350 WHEN E
0x296a…2972 LineComalBin {
0x296a…2972 ptr = 0xb6c9 // 0x296a @0x0
0x296a…2972 lno = 0x14e6 // 0x296c @0x2
0x296a…2972 at0004 = ╱a301╱ WHEN ╱ // 0x296e @0x4
0x296a…2972 at0006 = ╱45╱E╱ // 0x2970 @0x6
0x296a…2972 at0007 = EOL // 0x2971 @0x7
0x296a…2972 }
0x2972…297d b6d4 5360 CASE P7$ OF
0x2972…297d LineComalBin {
0x2972…297d ptr = 0xb6d4 // 0x2972 @0x0
0x2972…297d lno = 0x14f0 // 0x2974 @0x2
0x2972…297d at0004 = ╱a200╱ CASE ╱ // 0x2976 @0x4
0x2972…297d at0006 = ╱50╱P╱ // 0x2978 @0x6
0x2972…297d at0007 = ╱37╱7╱ // 0x2979 @0x7
0x2972…297d at0008 = ╱ef╱$╱ // 0x297a @0x8
0x2972…297d at0009 = ╱ba╱ OF ╱ // 0x297b @0x9
0x2972…297d at000a = EOL // 0x297c @0xa
0x2972…297d }
0x297d…2995 b6ec 5370 P=INT(ORD(P7$)-48)
0x297d…2995 LineComalBin {
0x297d…2995 ptr = 0xb6ec // 0x297d @0x0
0x297d…2995 lno = 0x14fa // 0x297f @0x2
0x297d…2995 at0004 = ╱50╱P╱ // 0x2981 @0x4
0x297d…2995 at0005 = ╱dc╱=╱ // 0x2982 @0x5
0x297d…2995 at0006 = ╱c6╱INT╱ // 0x2983 @0x6
0x297d…2995 at0007 = ╱ed╱(╱ // 0x2984 @0x7
0x297d…2995 at0008 = ╱cd╱ORD╱ // 0x2985 @0x8
0x297d…2995 at0009 = ╱ed╱(╱ // 0x2986 @0x9
0x297d…2995 at000a = ╱50╱P╱ // 0x2987 @0xa
0x297d…2995 at000b = ╱37╱7╱ // 0x2988 @0xb
0x297d…2995 at000c = ╱ef╱$╱ // 0x2989 @0xc
0x297d…2995 at000d = ╱ee╱)╱ // 0x298a @0xd
0x297d…2995 at000e = ╱e3╱-╱ // 0x298b @0xe
0x297d…2995 at000f = ╱34╱4╱ // 0x298c @0xf
0x297d…2995 at0010 = ╱38╱8╱ // 0x298d @0x10
0x297d…2995 at0011 = ╱fe0000c006╱ // 0x298e @0x11
0x297d…2995 at0016 = ╱ee╱)╱ // 0x2993 @0x16
0x297d…2995 at0017 = EOL // 0x2994 @0x17
0x297d…2995 }
0x2995…29a3 b6fa 5380 WHEN "d","D"
0x2995…29a3 LineComalBin {
0x2995…29a3 ptr = 0xb6fa // 0x2995 @0x0
0x2995…29a3 lno = 0x1504 // 0x2997 @0x2
0x2995…29a3 at0004 = ╱a300╱ WHEN ╱ // 0x2999 @0x4
0x2995…29a3 at0006 = ╱22╱"╱ // 0x299b @0x6
0x2995…29a3 at0007 = ╱64╱d╱ // 0x299c @0x7
0x2995…29a3 at0008 = ╱22╱"╱ // 0x299d @0x8
0x2995…29a3 at0009 = ╱ec╱,╱ // 0x299e @0x9
0x2995…29a3 at000a = ╱22╱"╱ // 0x299f @0xa
0x2995…29a3 at000b = ╱44╱D╱ // 0x29a0 @0xb
0x2995…29a3 at000c = ╱22╱"╱ // 0x29a1 @0xc
0x2995…29a3 at000d = EOL // 0x29a2 @0xd
0x2995…29a3 }
0x29a3…29ac b703 5390 P=-G
0x29a3…29ac LineComalBin {
0x29a3…29ac ptr = 0xb703 // 0x29a3 @0x0
0x29a3…29ac lno = 0x150e // 0x29a5 @0x2
0x29a3…29ac at0004 = ╱50╱P╱ // 0x29a7 @0x4
0x29a3…29ac at0005 = ╱dc╱=╱ // 0x29a8 @0x5
0x29a3…29ac at0006 = ╱e9╱-╱ // 0x29a9 @0x6
0x29a3…29ac at0007 = ╱47╱G╱ // 0x29aa @0x7
0x29a3…29ac at0008 = EOL // 0x29ab @0x8
0x29a3…29ac }
0x29ac…29ba b711 5400 WHEN "a","A"
0x29ac…29ba LineComalBin {
0x29ac…29ba ptr = 0xb711 // 0x29ac @0x0
0x29ac…29ba lno = 0x1518 // 0x29ae @0x2
0x29ac…29ba at0004 = ╱a300╱ WHEN ╱ // 0x29b0 @0x4
0x29ac…29ba at0006 = ╱22╱"╱ // 0x29b2 @0x6
0x29ac…29ba at0007 = ╱61╱a╱ // 0x29b3 @0x7
0x29ac…29ba at0008 = ╱22╱"╱ // 0x29b4 @0x8
0x29ac…29ba at0009 = ╱ec╱,╱ // 0x29b5 @0x9
0x29ac…29ba at000a = ╱22╱"╱ // 0x29b6 @0xa
0x29ac…29ba at000b = ╱41╱A╱ // 0x29b7 @0xb
0x29ac…29ba at000c = ╱22╱"╱ // 0x29b8 @0xc
0x29ac…29ba at000d = EOL // 0x29b9 @0xd
0x29ac…29ba }
0x29ba…29c3 b71a 5410 P=-V
0x29ba…29c3 LineComalBin {
0x29ba…29c3 ptr = 0xb71a // 0x29ba @0x0
0x29ba…29c3 lno = 0x1522 // 0x29bc @0x2
0x29ba…29c3 at0004 = ╱50╱P╱ // 0x29be @0x4
0x29ba…29c3 at0005 = ╱dc╱=╱ // 0x29bf @0x5
0x29ba…29c3 at0006 = ╱e9╱-╱ // 0x29c0 @0x6
0x29ba…29c3 at0007 = ╱56╱V╱ // 0x29c1 @0x7
0x29ba…29c3 at0008 = EOL // 0x29c2 @0x8
0x29ba…29c3 }
0x29c3…29d1 b728 5420 WHEN "j","J"
0x29c3…29d1 LineComalBin {
0x29c3…29d1 ptr = 0xb728 // 0x29c3 @0x0
0x29c3…29d1 lno = 0x152c // 0x29c5 @0x2
0x29c3…29d1 at0004 = ╱a300╱ WHEN ╱ // 0x29c7 @0x4
0x29c3…29d1 at0006 = ╱22╱"╱ // 0x29c9 @0x6
0x29c3…29d1 at0007 = ╱6a╱j╱ // 0x29ca @0x7
0x29c3…29d1 at0008 = ╱22╱"╱ // 0x29cb @0x8
0x29c3…29d1 at0009 = ╱ec╱,╱ // 0x29cc @0x9
0x29c3…29d1 at000a = ╱22╱"╱ // 0x29cd @0xa
0x29c3…29d1 at000b = ╱4a╱J╱ // 0x29ce @0xb
0x29c3…29d1 at000c = ╱22╱"╱ // 0x29cf @0xc
0x29c3…29d1 at000d = EOL // 0x29d0 @0xd
0x29c3…29d1 }
0x29d1…29df b736 5430 P=-7
0x29d1…29df LineComalBin {
0x29d1…29df ptr = 0xb736 // 0x29d1 @0x0
0x29d1…29df lno = 0x1536 // 0x29d3 @0x2
0x29d1…29df at0004 = ╱50╱P╱ // 0x29d5 @0x4
0x29d1…29df at0005 = ╱dc╱=╱ // 0x29d6 @0x5
0x29d1…29df at0006 = ╱e9╱-╱ // 0x29d7 @0x6
0x29d1…29df at0007 = ╱37╱7╱ // 0x29d8 @0x7
0x29d1…29df at0008 = ╱fe0000e003╱ // 0x29d9 @0x8
0x29d1…29df at000d = EOL // 0x29de @0xd
0x29d1…29df }
0x29df…29ed b744 5440 WHEN "n","N"
0x29df…29ed LineComalBin {
0x29df…29ed ptr = 0xb744 // 0x29df @0x0
0x29df…29ed lno = 0x1540 // 0x29e1 @0x2
0x29df…29ed at0004 = ╱a300╱ WHEN ╱ // 0x29e3 @0x4
0x29df…29ed at0006 = ╱22╱"╱ // 0x29e5 @0x6
0x29df…29ed at0007 = ╱6e╱n╱ // 0x29e6 @0x7
0x29df…29ed at0008 = ╱22╱"╱ // 0x29e7 @0x8
0x29df…29ed at0009 = ╱ec╱,╱ // 0x29e8 @0x9
0x29df…29ed at000a = ╱22╱"╱ // 0x29e9 @0xa
0x29df…29ed at000b = ╱4e╱N╱ // 0x29ea @0xb
0x29df…29ed at000c = ╱22╱"╱ // 0x29eb @0xc
0x29df…29ed at000d = EOL // 0x29ec @0xd
0x29df…29ed }
0x29ed…29fb b752 5450 P=-8
0x29ed…29fb LineComalBin {
0x29ed…29fb ptr = 0xb752 // 0x29ed @0x0
0x29ed…29fb lno = 0x154a // 0x29ef @0x2
0x29ed…29fb at0004 = ╱50╱P╱ // 0x29f1 @0x4
0x29ed…29fb at0005 = ╱dc╱=╱ // 0x29f2 @0x5
0x29ed…29fb at0006 = ╱e9╱-╱ // 0x29f3 @0x6
0x29ed…29fb at0007 = ╱38╱8╱ // 0x29f4 @0x7
0x29ed…29fb at0008 = ╱fe00008004╱ // 0x29f5 @0x8
0x29ed…29fb at000d = EOL // 0x29fa @0xd
0x29ed…29fb }
0x29fb…2a01 b758 5460 ENDCASE
0x29fb…2a01 LineComalBin {
0x29fb…2a01 ptr = 0xb758 // 0x29fb @0x0
0x29fb…2a01 lno = 0x1554 // 0x29fd @0x2
0x29fb…2a01 at0004 = ╱a4╱ ENDCASE ╱ // 0x29ff @0x4
0x29fb…2a01 at0005 = EOL // 0x2a00 @0x5
0x29fb…2a01 }
0x2a01…2a07 b75e 5470 ENDCASE
0x2a01…2a07 LineComalBin {
0x2a01…2a07 ptr = 0xb75e // 0x2a01 @0x0
0x2a01…2a07 lno = 0x155e // 0x2a03 @0x2
0x2a01…2a07 at0004 = ╱a4╱ ENDCASE ╱ // 0x2a05 @0x4
0x2a01…2a07 at0005 = EOL // 0x2a06 @0x5
0x2a01…2a07 }
0x2a07…2a0d b764 5480 ENDPROC
0x2a07…2a0d LineComalBin {
0x2a07…2a0d ptr = 0xb764 // 0x2a07 @0x0
0x2a07…2a0d lno = 0x1568 // 0x2a09 @0x2
0x2a07…2a0d at0004 = ╱9f╱ ENDPROC ╱ // 0x2a0b @0x4
0x2a07…2a0d at0005 = EOL // 0x2a0c @0x5
0x2a07…2a0d }
0x2a0d…2a15 b76c 5490 PROC HF
0x2a0d…2a15 LineComalBin {
0x2a0d…2a15 ptr = 0xb76c // 0x2a0d @0x0
0x2a0d…2a15 lno = 0x1572 // 0x2a0f @0x2
0x2a0d…2a15 at0004 = ╱9e╱ PROC ╱ // 0x2a11 @0x4
0x2a0d…2a15 at0005 = ╱48╱H╱ // 0x2a12 @0x5
0x2a0d…2a15 at0006 = ╱46╱F╱ // 0x2a13 @0x6
0x2a0d…2a15 at0007 = EOL // 0x2a14 @0x7
0x2a0d…2a15 }
0x2a15…2a25 b77c 5500 J7=M8(N0,G)
0x2a15…2a25 LineComalBin {
0x2a15…2a25 ptr = 0xb77c // 0x2a15 @0x0
0x2a15…2a25 lno = 0x157c // 0x2a17 @0x2
0x2a15…2a25 at0004 = ╱4a╱J╱ // 0x2a19 @0x4
0x2a15…2a25 at0005 = ╱37╱7╱ // 0x2a1a @0x5
0x2a15…2a25 at0006 = ╱dc╱=╱ // 0x2a1b @0x6
0x2a15…2a25 at0007 = ╱4d╱M╱ // 0x2a1c @0x7
0x2a15…2a25 at0008 = ╱38╱8╱ // 0x2a1d @0x8
0x2a15…2a25 at0009 = ╱ed╱(╱ // 0x2a1e @0x9
0x2a15…2a25 at000a = ╱4e╱N╱ // 0x2a1f @0xa
0x2a15…2a25 at000b = ╱30╱0╱ // 0x2a20 @0xb
0x2a15…2a25 at000c = ╱ec╱,╱ // 0x2a21 @0xc
0x2a15…2a25 at000d = ╱47╱G╱ // 0x2a22 @0xd
0x2a15…2a25 at000e = ╱ee╱)╱ // 0x2a23 @0xe
0x2a15…2a25 at000f = EOL // 0x2a24 @0xf
0x2a15…2a25 }
0x2a25…2a38 b78f 5510 GET C9$,J7:P9,B0$
0x2a25…2a38 LineComalBin {
0x2a25…2a38 ptr = 0xb78f // 0x2a25 @0x0
0x2a25…2a38 lno = 0x1586 // 0x2a27 @0x2
0x2a25…2a38 at0004 = ╱a9╱ GET ╱ // 0x2a29 @0x4
0x2a25…2a38 at0005 = ╱43╱C╱ // 0x2a2a @0x5
0x2a25…2a38 at0006 = ╱39╱9╱ // 0x2a2b @0x6
0x2a25…2a38 at0007 = ╱ef╱$╱ // 0x2a2c @0x7
0x2a25…2a38 at0008 = ╱ec╱,╱ // 0x2a2d @0x8
0x2a25…2a38 at0009 = ╱4a╱J╱ // 0x2a2e @0x9
0x2a25…2a38 at000a = ╱37╱7╱ // 0x2a2f @0xa
0x2a25…2a38 at000b = ╱f0╱:╱ // 0x2a30 @0xb
0x2a25…2a38 at000c = ╱50╱P╱ // 0x2a31 @0xc
0x2a25…2a38 at000d = ╱39╱9╱ // 0x2a32 @0xd
0x2a25…2a38 at000e = ╱ec╱,╱ // 0x2a33 @0xe
0x2a25…2a38 at000f = ╱42╱B╱ // 0x2a34 @0xf
0x2a25…2a38 at0010 = ╱30╱0╱ // 0x2a35 @0x10
0x2a25…2a38 at0011 = ╱ef╱$╱ // 0x2a36 @0x11
0x2a25…2a38 at0012 = EOL // 0x2a37 @0x12
0x2a25…2a38 }
0x2a38…2a49 b7a0 5520 EXEC FE(V,G,C9$)
0x2a38…2a49 LineComalBin {
0x2a38…2a49 ptr = 0xb7a0 // 0x2a38 @0x0
0x2a38…2a49 lno = 0x1590 // 0x2a3a @0x2
0x2a38…2a49 at0004 = ╱9d╱ EXEC ╱ // 0x2a3c @0x4
0x2a38…2a49 at0005 = ╱46╱F╱ // 0x2a3d @0x5
0x2a38…2a49 at0006 = ╱45╱E╱ // 0x2a3e @0x6
0x2a38…2a49 at0007 = ╱ed╱(╱ // 0x2a3f @0x7
0x2a38…2a49 at0008 = ╱56╱V╱ // 0x2a40 @0x8
0x2a38…2a49 at0009 = ╱ec╱,╱ // 0x2a41 @0x9
0x2a38…2a49 at000a = ╱47╱G╱ // 0x2a42 @0xa
0x2a38…2a49 at000b = ╱ec╱,╱ // 0x2a43 @0xb
0x2a38…2a49 at000c = ╱43╱C╱ // 0x2a44 @0xc
0x2a38…2a49 at000d = ╱39╱9╱ // 0x2a45 @0xd
0x2a38…2a49 at000e = ╱ef╱$╱ // 0x2a46 @0xe
0x2a38…2a49 at000f = ╱ee╱)╱ // 0x2a47 @0xf
0x2a38…2a49 at0010 = EOL // 0x2a48 @0x10
0x2a38…2a49 }
0x2a49…2a5c b7b3 5530 IF P9<>M8(N0,E) THEN STOP
0x2a49…2a5c LineComalBin {
0x2a49…2a5c ptr = 0xb7b3 // 0x2a49 @0x0
0x2a49…2a5c lno = 0x159a // 0x2a4b @0x2
0x2a49…2a5c at0004 = ╱82╱ IF ╱ // 0x2a4d @0x4
0x2a49…2a5c at0005 = ╱50╱P╱ // 0x2a4e @0x5
0x2a49…2a5c at0006 = ╱39╱9╱ // 0x2a4f @0x6
0x2a49…2a5c at0007 = ╱e1╱<>╱ // 0x2a50 @0x7
0x2a49…2a5c at0008 = ╱4d╱M╱ // 0x2a51 @0x8
0x2a49…2a5c at0009 = ╱38╱8╱ // 0x2a52 @0x9
0x2a49…2a5c at000a = ╱ed╱(╱ // 0x2a53 @0xa
0x2a49…2a5c at000b = ╱4e╱N╱ // 0x2a54 @0xb
0x2a49…2a5c at000c = ╱30╱0╱ // 0x2a55 @0xc
0x2a49…2a5c at000d = ╱ec╱,╱ // 0x2a56 @0xd
0x2a49…2a5c at000e = ╱45╱E╱ // 0x2a57 @0xe
0x2a49…2a5c at000f = ╱ee╱)╱ // 0x2a58 @0xf
0x2a49…2a5c at0010 = ╱b6╱ THEN ╱ // 0x2a59 @0x10
0x2a49…2a5c at0011 = ╱8d╱ STOP ╱ // 0x2a5a @0x11
0x2a49…2a5c at0012 = EOL // 0x2a5b @0x12
0x2a49…2a5c }
0x2a5c…2a76 b7cd 5540 GET C9$,J7+E:G0$,D7$,D8$
0x2a5c…2a76 LineComalBin {
0x2a5c…2a76 ptr = 0xb7cd // 0x2a5c @0x0
0x2a5c…2a76 lno = 0x15a4 // 0x2a5e @0x2
0x2a5c…2a76 at0004 = ╱a9╱ GET ╱ // 0x2a60 @0x4
0x2a5c…2a76 at0005 = ╱43╱C╱ // 0x2a61 @0x5
0x2a5c…2a76 at0006 = ╱39╱9╱ // 0x2a62 @0x6
0x2a5c…2a76 at0007 = ╱ef╱$╱ // 0x2a63 @0x7
0x2a5c…2a76 at0008 = ╱ec╱,╱ // 0x2a64 @0x8
0x2a5c…2a76 at0009 = ╱4a╱J╱ // 0x2a65 @0x9
0x2a5c…2a76 at000a = ╱37╱7╱ // 0x2a66 @0xa
0x2a5c…2a76 at000b = ╱e2╱+╱ // 0x2a67 @0xb
0x2a5c…2a76 at000c = ╱45╱E╱ // 0x2a68 @0xc
0x2a5c…2a76 at000d = ╱f0╱:╱ // 0x2a69 @0xd
0x2a5c…2a76 at000e = ╱47╱G╱ // 0x2a6a @0xe
0x2a5c…2a76 at000f = ╱30╱0╱ // 0x2a6b @0xf
0x2a5c…2a76 at0010 = ╱ef╱$╱ // 0x2a6c @0x10
0x2a5c…2a76 at0011 = ╱ec╱,╱ // 0x2a6d @0x11
0x2a5c…2a76 at0012 = ╱44╱D╱ // 0x2a6e @0x12
0x2a5c…2a76 at0013 = ╱37╱7╱ // 0x2a6f @0x13
0x2a5c…2a76 at0014 = ╱ef╱$╱ // 0x2a70 @0x14
0x2a5c…2a76 at0015 = ╱ec╱,╱ // 0x2a71 @0x15
0x2a5c…2a76 at0016 = ╱44╱D╱ // 0x2a72 @0x16
0x2a5c…2a76 at0017 = ╱38╱8╱ // 0x2a73 @0x17
0x2a5c…2a76 at0018 = ╱ef╱$╱ // 0x2a74 @0x18
0x2a5c…2a76 at0019 = EOL // 0x2a75 @0x19
0x2a5c…2a76 }
0x2a76…2a87 b7de 5550 EXEC FE(V,V,C9$)
0x2a76…2a87 LineComalBin {
0x2a76…2a87 ptr = 0xb7de // 0x2a76 @0x0
0x2a76…2a87 lno = 0x15ae // 0x2a78 @0x2
0x2a76…2a87 at0004 = ╱9d╱ EXEC ╱ // 0x2a7a @0x4
0x2a76…2a87 at0005 = ╱46╱F╱ // 0x2a7b @0x5
0x2a76…2a87 at0006 = ╱45╱E╱ // 0x2a7c @0x6
0x2a76…2a87 at0007 = ╱ed╱(╱ // 0x2a7d @0x7
0x2a76…2a87 at0008 = ╱56╱V╱ // 0x2a7e @0x8
0x2a76…2a87 at0009 = ╱ec╱,╱ // 0x2a7f @0x9
0x2a76…2a87 at000a = ╱56╱V╱ // 0x2a80 @0xa
0x2a76…2a87 at000b = ╱ec╱,╱ // 0x2a81 @0xb
0x2a76…2a87 at000c = ╱43╱C╱ // 0x2a82 @0xc
0x2a76…2a87 at000d = ╱39╱9╱ // 0x2a83 @0xd
0x2a76…2a87 at000e = ╱ef╱$╱ // 0x2a84 @0xe
0x2a76…2a87 at000f = ╱ee╱)╱ // 0x2a85 @0xf
0x2a76…2a87 at0010 = EOL // 0x2a86 @0x10
0x2a76…2a87 }
0x2a87…2aa1 b7f8 5560 GET C9$,J7+G:E6$,D9$,E0$
0x2a87…2aa1 LineComalBin {
0x2a87…2aa1 ptr = 0xb7f8 // 0x2a87 @0x0
0x2a87…2aa1 lno = 0x15b8 // 0x2a89 @0x2
0x2a87…2aa1 at0004 = ╱a9╱ GET ╱ // 0x2a8b @0x4
0x2a87…2aa1 at0005 = ╱43╱C╱ // 0x2a8c @0x5
0x2a87…2aa1 at0006 = ╱39╱9╱ // 0x2a8d @0x6
0x2a87…2aa1 at0007 = ╱ef╱$╱ // 0x2a8e @0x7
0x2a87…2aa1 at0008 = ╱ec╱,╱ // 0x2a8f @0x8
0x2a87…2aa1 at0009 = ╱4a╱J╱ // 0x2a90 @0x9
0x2a87…2aa1 at000a = ╱37╱7╱ // 0x2a91 @0xa
0x2a87…2aa1 at000b = ╱e2╱+╱ // 0x2a92 @0xb
0x2a87…2aa1 at000c = ╱47╱G╱ // 0x2a93 @0xc
0x2a87…2aa1 at000d = ╱f0╱:╱ // 0x2a94 @0xd
0x2a87…2aa1 at000e = ╱45╱E╱ // 0x2a95 @0xe
0x2a87…2aa1 at000f = ╱36╱6╱ // 0x2a96 @0xf
0x2a87…2aa1 at0010 = ╱ef╱$╱ // 0x2a97 @0x10
0x2a87…2aa1 at0011 = ╱ec╱,╱ // 0x2a98 @0x11
0x2a87…2aa1 at0012 = ╱44╱D╱ // 0x2a99 @0x12
0x2a87…2aa1 at0013 = ╱39╱9╱ // 0x2a9a @0x13
0x2a87…2aa1 at0014 = ╱ef╱$╱ // 0x2a9b @0x14
0x2a87…2aa1 at0015 = ╱ec╱,╱ // 0x2a9c @0x15
0x2a87…2aa1 at0016 = ╱45╱E╱ // 0x2a9d @0x16
0x2a87…2aa1 at0017 = ╱30╱0╱ // 0x2a9e @0x17
0x2a87…2aa1 at0018 = ╱ef╱$╱ // 0x2a9f @0x18
0x2a87…2aa1 at0019 = EOL // 0x2aa0 @0x19
0x2a87…2aa1 }
0x2aa1…2ab7 b80e 5570 EXEC FE(V,4,C9$)
0x2aa1…2ab7 LineComalBin {
0x2aa1…2ab7 ptr = 0xb80e // 0x2aa1 @0x0
0x2aa1…2ab7 lno = 0x15c2 // 0x2aa3 @0x2
0x2aa1…2ab7 at0004 = ╱9d╱ EXEC ╱ // 0x2aa5 @0x4
0x2aa1…2ab7 at0005 = ╱46╱F╱ // 0x2aa6 @0x5
0x2aa1…2ab7 at0006 = ╱45╱E╱ // 0x2aa7 @0x6
0x2aa1…2ab7 at0007 = ╱ed╱(╱ // 0x2aa8 @0x7
0x2aa1…2ab7 at0008 = ╱56╱V╱ // 0x2aa9 @0x8
0x2aa1…2ab7 at0009 = ╱ec╱,╱ // 0x2aaa @0x9
0x2aa1…2ab7 at000a = ╱34╱4╱ // 0x2aab @0xa
0x2aa1…2ab7 at000b = ╱fe00008003╱ // 0x2aac @0xb
0x2aa1…2ab7 at0010 = ╱ec╱,╱ // 0x2ab1 @0x10
0x2aa1…2ab7 at0011 = ╱43╱C╱ // 0x2ab2 @0x11
0x2aa1…2ab7 at0012 = ╱39╱9╱ // 0x2ab3 @0x12
0x2aa1…2ab7 at0013 = ╱ef╱$╱ // 0x2ab4 @0x13
0x2aa1…2ab7 at0014 = ╱ee╱)╱ // 0x2ab5 @0x14
0x2aa1…2ab7 at0015 = EOL // 0x2ab6 @0x15
0x2aa1…2ab7 }
0x2ab7…2abd b814 5580 ENDPROC
0x2ab7…2abd LineComalBin {
0x2ab7…2abd ptr = 0xb814 // 0x2ab7 @0x0
0x2ab7…2abd lno = 0x15cc // 0x2ab9 @0x2
0x2ab7…2abd at0004 = ╱9f╱ ENDPROC ╱ // 0x2abb @0x4
0x2ab7…2abd at0005 = EOL // 0x2abc @0x5
0x2ab7…2abd }
0x2abd…2ac5 b81c 5590 PROC BF
0x2abd…2ac5 LineComalBin {
0x2abd…2ac5 ptr = 0xb81c // 0x2abd @0x0
0x2abd…2ac5 lno = 0x15d6 // 0x2abf @0x2
0x2abd…2ac5 at0004 = ╱9e╱ PROC ╱ // 0x2ac1 @0x4
0x2abd…2ac5 at0005 = ╱42╱B╱ // 0x2ac2 @0x5
0x2abd…2ac5 at0006 = ╱46╱F╱ // 0x2ac3 @0x6
0x2abd…2ac5 at0007 = EOL // 0x2ac4 @0x7
0x2abd…2ac5 }
0x2ac5…2acb b822 5600 REPEAT
0x2ac5…2acb LineComalBin {
0x2ac5…2acb ptr = 0xb822 // 0x2ac5 @0x0
0x2ac5…2acb lno = 0x15e0 // 0x2ac7 @0x2
0x2ac5…2acb at0004 = ╱97╱ REPEAT ╱ // 0x2ac9 @0x4
0x2ac5…2acb at0005 = EOL // 0x2aca @0x5
0x2ac5…2acb }
0x2acb…2ad1 b828 5610 CLEAR
0x2acb…2ad1 LineComalBin {
0x2acb…2ad1 ptr = 0xb828 // 0x2acb @0x0
0x2acb…2ad1 lno = 0x15ea // 0x2acd @0x2
0x2acb…2ad1 at0004 = ╱a0╱ CLEAR ╱ // 0x2acf @0x4
0x2acb…2ad1 at0005 = EOL // 0x2ad0 @0x5
0x2acb…2ad1 }
0x2ad1…2ae0 b837 5620 CURSOR 21,E
0x2ad1…2ae0 LineComalBin {
0x2ad1…2ae0 ptr = 0xb837 // 0x2ad1 @0x0
0x2ad1…2ae0 lno = 0x15f4 // 0x2ad3 @0x2
0x2ad1…2ae0 at0004 = ╱a1╱ CURSOR ╱ // 0x2ad5 @0x4
0x2ad1…2ae0 at0005 = ╱32╱2╱ // 0x2ad6 @0x5
0x2ad1…2ae0 at0006 = ╱31╱1╱ // 0x2ad7 @0x6
0x2ad1…2ae0 at0007 = ╱fe0000a805╱ // 0x2ad8 @0x7
0x2ad1…2ae0 at000c = ╱ec╱,╱ // 0x2add @0xc
0x2ad1…2ae0 at000d = ╱45╱E╱ // 0x2ade @0xd
0x2ad1…2ae0 at000e = EOL // 0x2adf @0xe
0x2ad1…2ae0 }
0x2ae0…2aff b856 5630 PRINT "Kasserapport afstemning"
0x2ae0…2aff LineComalBin {
0x2ae0…2aff ptr = 0xb856 // 0x2ae0 @0x0
0x2ae0…2aff lno = 0x15fe // 0x2ae2 @0x2
0x2ae0…2aff at0004 = ╱92╱ PRINT ╱ // 0x2ae4 @0x4
0x2ae0…2aff at0005 = ╱22╱"╱ // 0x2ae5 @0x5
0x2ae0…2aff at0006 = ╱4b╱K╱ // 0x2ae6 @0x6
0x2ae0…2aff at0007 = ╱61╱a╱ // 0x2ae7 @0x7
0x2ae0…2aff at0008 = ╱73╱s╱ // 0x2ae8 @0x8
0x2ae0…2aff at0009 = ╱73╱s╱ // 0x2ae9 @0x9
0x2ae0…2aff at000a = ╱65╱e╱ // 0x2aea @0xa
0x2ae0…2aff at000b = ╱72╱r╱ // 0x2aeb @0xb
0x2ae0…2aff at000c = ╱61╱a╱ // 0x2aec @0xc
0x2ae0…2aff at000d = ╱70╱p╱ // 0x2aed @0xd
0x2ae0…2aff at000e = ╱70╱p╱ // 0x2aee @0xe
0x2ae0…2aff at000f = ╱6f╱o╱ // 0x2aef @0xf
0x2ae0…2aff at0010 = ╱72╱r╱ // 0x2af0 @0x10
0x2ae0…2aff at0011 = ╱74╱t╱ // 0x2af1 @0x11
0x2ae0…2aff at0012 = ╱20╱…╱ // 0x2af2 @0x12
0x2ae0…2aff at0013 = ╱61╱a╱ // 0x2af3 @0x13
0x2ae0…2aff at0014 = ╱66╱f╱ // 0x2af4 @0x14
0x2ae0…2aff at0015 = ╱73╱s╱ // 0x2af5 @0x15
0x2ae0…2aff at0016 = ╱74╱t╱ // 0x2af6 @0x16
0x2ae0…2aff at0017 = ╱65╱e╱ // 0x2af7 @0x17
0x2ae0…2aff at0018 = ╱6d╱m╱ // 0x2af8 @0x18
0x2ae0…2aff at0019 = ╱6e╱n╱ // 0x2af9 @0x19
0x2ae0…2aff at001a = ╱69╱i╱ // 0x2afa @0x1a
0x2ae0…2aff at001b = ╱6e╱n╱ // 0x2afb @0x1b
0x2ae0…2aff at001c = ╱67╱g╱ // 0x2afc @0x1c
0x2ae0…2aff at001d = ╱22╱"╱ // 0x2afd @0x1d
0x2ae0…2aff at001e = EOL // 0x2afe @0x1e
0x2ae0…2aff }
0x2aff…2b0e b865 5640 CURSOR 66,E
0x2aff…2b0e LineComalBin {
0x2aff…2b0e ptr = 0xb865 // 0x2aff @0x0
0x2aff…2b0e lno = 0x1608 // 0x2b01 @0x2
0x2aff…2b0e at0004 = ╱a1╱ CURSOR ╱ // 0x2b03 @0x4
0x2aff…2b0e at0005 = ╱36╱6╱ // 0x2b04 @0x5
0x2aff…2b0e at0006 = ╱36╱6╱ // 0x2b05 @0x6
0x2aff…2b0e at0007 = ╱fe00008407╱ // 0x2b06 @0x7
0x2aff…2b0e at000c = ╱ec╱,╱ // 0x2b0b @0xc
0x2aff…2b0e at000d = ╱45╱E╱ // 0x2b0c @0xd
0x2aff…2b0e at000e = EOL // 0x2b0d @0xe
0x2aff…2b0e }
0x2b0e…2b1f b876 5650 PRINT "Dato :";J6
0x2b0e…2b1f LineComalBin {
0x2b0e…2b1f ptr = 0xb876 // 0x2b0e @0x0
0x2b0e…2b1f lno = 0x1612 // 0x2b10 @0x2
0x2b0e…2b1f at0004 = ╱92╱ PRINT ╱ // 0x2b12 @0x4
0x2b0e…2b1f at0005 = ╱22╱"╱ // 0x2b13 @0x5
0x2b0e…2b1f at0006 = ╱44╱D╱ // 0x2b14 @0x6
0x2b0e…2b1f at0007 = ╱61╱a╱ // 0x2b15 @0x7
0x2b0e…2b1f at0008 = ╱74╱t╱ // 0x2b16 @0x8
0x2b0e…2b1f at0009 = ╱6f╱o╱ // 0x2b17 @0x9
0x2b0e…2b1f at000a = ╱20╱…╱ // 0x2b18 @0xa
0x2b0e…2b1f at000b = ╱3a╱:╱ // 0x2b19 @0xb
0x2b0e…2b1f at000c = ╱22╱"╱ // 0x2b1a @0xc
0x2b0e…2b1f at000d = ╱eb╱;╱ // 0x2b1b @0xd
0x2b0e…2b1f at000e = ╱4a╱J╱ // 0x2b1c @0xe
0x2b0e…2b1f at000f = ╱36╱6╱ // 0x2b1d @0xf
0x2b0e…2b1f at0010 = EOL // 0x2b1e @0x10
0x2b0e…2b1f }
0x2b1f…2b2e b885 5660 CURSOR 21,V
0x2b1f…2b2e LineComalBin {
0x2b1f…2b2e ptr = 0xb885 // 0x2b1f @0x0
0x2b1f…2b2e lno = 0x161c // 0x2b21 @0x2
0x2b1f…2b2e at0004 = ╱a1╱ CURSOR ╱ // 0x2b23 @0x4
0x2b1f…2b2e at0005 = ╱32╱2╱ // 0x2b24 @0x5
0x2b1f…2b2e at0006 = ╱31╱1╱ // 0x2b25 @0x6
0x2b1f…2b2e at0007 = ╱fe0000a805╱ // 0x2b26 @0x7
0x2b1f…2b2e at000c = ╱ec╱,╱ // 0x2b2b @0xc
0x2b1f…2b2e at000d = ╱56╱V╱ // 0x2b2c @0xd
0x2b1f…2b2e at000e = EOL // 0x2b2d @0xe
0x2b1f…2b2e }
0x2b2e…2b54 b8ab 5670 PRINT "Differencer Indtastede saldi"
0x2b2e…2b54 LineComalBin {
0x2b2e…2b54 ptr = 0xb8ab // 0x2b2e @0x0
0x2b2e…2b54 lno = 0x1626 // 0x2b30 @0x2
0x2b2e…2b54 at0004 = ╱92╱ PRINT ╱ // 0x2b32 @0x4
0x2b2e…2b54 at0005 = ╱22╱"╱ // 0x2b33 @0x5
0x2b2e…2b54 at0006 = ╱44╱D╱ // 0x2b34 @0x6
0x2b2e…2b54 at0007 = ╱69╱i╱ // 0x2b35 @0x7
0x2b2e…2b54 at0008 = ╱66╱f╱ // 0x2b36 @0x8
0x2b2e…2b54 at0009 = ╱66╱f╱ // 0x2b37 @0x9
0x2b2e…2b54 at000a = ╱65╱e╱ // 0x2b38 @0xa
0x2b2e…2b54 at000b = ╱72╱r╱ // 0x2b39 @0xb
0x2b2e…2b54 at000c = ╱65╱e╱ // 0x2b3a @0xc
0x2b2e…2b54 at000d = ╱6e╱n╱ // 0x2b3b @0xd
0x2b2e…2b54 at000e = ╱63╱c╱ // 0x2b3c @0xe
0x2b2e…2b54 at000f = ╱65╱e╱ // 0x2b3d @0xf
0x2b2e…2b54 at0010 = ╱72╱r╱ // 0x2b3e @0x10
0x2b2e…2b54 at0011 = ╱20╱…╱ // 0x2b3f @0x11
0x2b2e…2b54 at0012 = ╱20╱…╱ // 0x2b40 @0x12
0x2b2e…2b54 at0013 = ╱20╱…╱ // 0x2b41 @0x13
0x2b2e…2b54 at0014 = ╱49╱I╱ // 0x2b42 @0x14
0x2b2e…2b54 at0015 = ╱6e╱n╱ // 0x2b43 @0x15
0x2b2e…2b54 at0016 = ╱64╱d╱ // 0x2b44 @0x16
0x2b2e…2b54 at0017 = ╱74╱t╱ // 0x2b45 @0x17
0x2b2e…2b54 at0018 = ╱61╱a╱ // 0x2b46 @0x18
0x2b2e…2b54 at0019 = ╱73╱s╱ // 0x2b47 @0x19
0x2b2e…2b54 at001a = ╱74╱t╱ // 0x2b48 @0x1a
0x2b2e…2b54 at001b = ╱65╱e╱ // 0x2b49 @0x1b
0x2b2e…2b54 at001c = ╱64╱d╱ // 0x2b4a @0x1c
0x2b2e…2b54 at001d = ╱65╱e╱ // 0x2b4b @0x1d
0x2b2e…2b54 at001e = ╱20╱…╱ // 0x2b4c @0x1e
0x2b2e…2b54 at001f = ╱73╱s╱ // 0x2b4d @0x1f
0x2b2e…2b54 at0020 = ╱61╱a╱ // 0x2b4e @0x20
0x2b2e…2b54 at0021 = ╱6c╱l╱ // 0x2b4f @0x21
0x2b2e…2b54 at0022 = ╱64╱d╱ // 0x2b50 @0x22
0x2b2e…2b54 at0023 = ╱69╱i╱ // 0x2b51 @0x23
0x2b2e…2b54 at0024 = ╱22╱"╱ // 0x2b52 @0x24
0x2b2e…2b54 at0025 = EOL // 0x2b53 @0x25
0x2b2e…2b54 }
0x2b54…2b64 b8bb 5680 FOR I=E TO 6
0x2b54…2b64 LineComalBin {
0x2b54…2b64 ptr = 0xb8bb // 0x2b54 @0x0
0x2b54…2b64 lno = 0x1630 // 0x2b56 @0x2
0x2b54…2b64 at0004 = ╱83╱ FOR ╱ // 0x2b58 @0x4
0x2b54…2b64 at0005 = ╱49╱I╱ // 0x2b59 @0x5
0x2b54…2b64 at0006 = ╱dc╱=╱ // 0x2b5a @0x6
0x2b54…2b64 at0007 = ╱45╱E╱ // 0x2b5b @0x7
0x2b54…2b64 at0008 = ╱b7╱ TO ╱ // 0x2b5c @0x8
0x2b54…2b64 at0009 = ╱36╱6╱ // 0x2b5d @0x9
0x2b54…2b64 at000a = ╱fe0000c003╱ // 0x2b5e @0xa
0x2b54…2b64 at000f = EOL // 0x2b63 @0xf
0x2b54…2b64 }
0x2b64…2b81 b8d8 5690 EXEC CA(E,F5$(I),F9$(I),F3$)
0x2b64…2b81 LineComalBin {
0x2b64…2b81 ptr = 0xb8d8 // 0x2b64 @0x0
0x2b64…2b81 lno = 0x163a // 0x2b66 @0x2
0x2b64…2b81 at0004 = ╱9d╱ EXEC ╱ // 0x2b68 @0x4
0x2b64…2b81 at0005 = ╱43╱C╱ // 0x2b69 @0x5
0x2b64…2b81 at0006 = ╱41╱A╱ // 0x2b6a @0x6
0x2b64…2b81 at0007 = ╱ed╱(╱ // 0x2b6b @0x7
0x2b64…2b81 at0008 = ╱45╱E╱ // 0x2b6c @0x8
0x2b64…2b81 at0009 = ╱ec╱,╱ // 0x2b6d @0x9
0x2b64…2b81 at000a = ╱46╱F╱ // 0x2b6e @0xa
0x2b64…2b81 at000b = ╱35╱5╱ // 0x2b6f @0xb
0x2b64…2b81 at000c = ╱ef╱$╱ // 0x2b70 @0xc
0x2b64…2b81 at000d = ╱ed╱(╱ // 0x2b71 @0xd
0x2b64…2b81 at000e = ╱49╱I╱ // 0x2b72 @0xe
0x2b64…2b81 at000f = ╱ee╱)╱ // 0x2b73 @0xf
0x2b64…2b81 at0010 = ╱ec╱,╱ // 0x2b74 @0x10
0x2b64…2b81 at0011 = ╱46╱F╱ // 0x2b75 @0x11
0x2b64…2b81 at0012 = ╱39╱9╱ // 0x2b76 @0x12
0x2b64…2b81 at0013 = ╱ef╱$╱ // 0x2b77 @0x13
0x2b64…2b81 at0014 = ╱ed╱(╱ // 0x2b78 @0x14
0x2b64…2b81 at0015 = ╱49╱I╱ // 0x2b79 @0x15
0x2b64…2b81 at0016 = ╱ee╱)╱ // 0x2b7a @0x16
0x2b64…2b81 at0017 = ╱ec╱,╱ // 0x2b7b @0x17
0x2b64…2b81 at0018 = ╱46╱F╱ // 0x2b7c @0x18
0x2b64…2b81 at0019 = ╱33╱3╱ // 0x2b7d @0x19
0x2b64…2b81 at001a = ╱ef╱$╱ // 0x2b7e @0x1a
0x2b64…2b81 at001b = ╱ee╱)╱ // 0x2b7f @0x1b
0x2b64…2b81 at001c = EOL // 0x2b80 @0x1c
0x2b64…2b81 }
0x2b81…2b91 b8e8 5700 CURSOR E,I+4
0x2b81…2b91 LineComalBin {
0x2b81…2b91 ptr = 0xb8e8 // 0x2b81 @0x0
0x2b81…2b91 lno = 0x1644 // 0x2b83 @0x2
0x2b81…2b91 at0004 = ╱a1╱ CURSOR ╱ // 0x2b85 @0x4
0x2b81…2b91 at0005 = ╱45╱E╱ // 0x2b86 @0x5
0x2b81…2b91 at0006 = ╱ec╱,╱ // 0x2b87 @0x6
0x2b81…2b91 at0007 = ╱49╱I╱ // 0x2b88 @0x7
0x2b81…2b91 at0008 = ╱e2╱+╱ // 0x2b89 @0x8
0x2b81…2b91 at0009 = ╱34╱4╱ // 0x2b8a @0x9
0x2b81…2b91 at000a = ╱fe00008003╱ // 0x2b8b @0xa
0x2b81…2b91 at000f = EOL // 0x2b90 @0xf
0x2b81…2b91 }
0x2b91…2b9f b8f6 5710 PRINT I;J5$(I)
0x2b91…2b9f LineComalBin {
0x2b91…2b9f ptr = 0xb8f6 // 0x2b91 @0x0
0x2b91…2b9f lno = 0x164e // 0x2b93 @0x2
0x2b91…2b9f at0004 = ╱92╱ PRINT ╱ // 0x2b95 @0x4
0x2b91…2b9f at0005 = ╱49╱I╱ // 0x2b96 @0x5
0x2b91…2b9f at0006 = ╱eb╱;╱ // 0x2b97 @0x6
0x2b91…2b9f at0007 = ╱4a╱J╱ // 0x2b98 @0x7
0x2b91…2b9f at0008 = ╱35╱5╱ // 0x2b99 @0x8
0x2b91…2b9f at0009 = ╱ef╱$╱ // 0x2b9a @0x9
0x2b91…2b9f at000a = ╱ed╱(╱ // 0x2b9b @0xa
0x2b91…2b9f at000b = ╱49╱I╱ // 0x2b9c @0xb
0x2b91…2b9f at000c = ╱ee╱)╱ // 0x2b9d @0xc
0x2b91…2b9f at000d = EOL // 0x2b9e @0xd
0x2b91…2b9f }
0x2b9f…2bb5 b90c 5720 CURSOR 19,I+4
0x2b9f…2bb5 LineComalBin {
0x2b9f…2bb5 ptr = 0xb90c // 0x2b9f @0x0
0x2b9f…2bb5 lno = 0x1658 // 0x2ba1 @0x2
0x2b9f…2bb5 at0004 = ╱a1╱ CURSOR ╱ // 0x2ba3 @0x4
0x2b9f…2bb5 at0005 = ╱31╱1╱ // 0x2ba4 @0x5
0x2b9f…2bb5 at0006 = ╱39╱9╱ // 0x2ba5 @0x6
0x2b9f…2bb5 at0007 = ╱fe00009805╱ // 0x2ba6 @0x7
0x2b9f…2bb5 at000c = ╱ec╱,╱ // 0x2bab @0xc
0x2b9f…2bb5 at000d = ╱49╱I╱ // 0x2bac @0xd
0x2b9f…2bb5 at000e = ╱e2╱+╱ // 0x2bad @0xe
0x2b9f…2bb5 at000f = ╱34╱4╱ // 0x2bae @0xf
0x2b9f…2bb5 at0010 = ╱fe00008003╱ // 0x2baf @0x10
0x2b9f…2bb5 at0015 = EOL // 0x2bb4 @0x15
0x2b9f…2bb5 }
0x2bb5…2bd4 b92b 5730 EXEC TU(F3$,B8$,1,0)
0x2bb5…2bd4 LineComalBin {
0x2bb5…2bd4 ptr = 0xb92b // 0x2bb5 @0x0
0x2bb5…2bd4 lno = 0x1662 // 0x2bb7 @0x2
0x2bb5…2bd4 at0004 = ╱9d╱ EXEC ╱ // 0x2bb9 @0x4
0x2bb5…2bd4 at0005 = ╱54╱T╱ // 0x2bba @0x5
0x2bb5…2bd4 at0006 = ╱55╱U╱ // 0x2bbb @0x6
0x2bb5…2bd4 at0007 = ╱ed╱(╱ // 0x2bbc @0x7
0x2bb5…2bd4 at0008 = ╱46╱F╱ // 0x2bbd @0x8
0x2bb5…2bd4 at0009 = ╱33╱3╱ // 0x2bbe @0x9
0x2bb5…2bd4 at000a = ╱ef╱$╱ // 0x2bbf @0xa
0x2bb5…2bd4 at000b = ╱ec╱,╱ // 0x2bc0 @0xb
0x2bb5…2bd4 at000c = ╱42╱B╱ // 0x2bc1 @0xc
0x2bb5…2bd4 at000d = ╱38╱8╱ // 0x2bc2 @0xd
0x2bb5…2bd4 at000e = ╱ef╱$╱ // 0x2bc3 @0xe
0x2bb5…2bd4 at000f = ╱ec╱,╱ // 0x2bc4 @0xf
0x2bb5…2bd4 at0010 = ╱31╱1╱ // 0x2bc5 @0x10
0x2bb5…2bd4 at0011 = ╱fe00008001╱ // 0x2bc6 @0x11
0x2bb5…2bd4 at0016 = ╱ec╱,╱ // 0x2bcb @0x16
0x2bb5…2bd4 at0017 = ╱30╱0╱ // 0x2bcc @0x17
0x2bb5…2bd4 at0018 = ╱fe00000000╱ // 0x2bcd @0x18
0x2bb5…2bd4 at001d = ╱ee╱)╱ // 0x2bd2 @0x1d
0x2bb5…2bd4 at001e = EOL // 0x2bd3 @0x1e
0x2bb5…2bd4 }
0x2bd4…2bdd b934 5740 PRINT B8$
0x2bd4…2bdd LineComalBin {
0x2bd4…2bdd ptr = 0xb934 // 0x2bd4 @0x0
0x2bd4…2bdd lno = 0x166c // 0x2bd6 @0x2
0x2bd4…2bdd at0004 = ╱92╱ PRINT ╱ // 0x2bd8 @0x4
0x2bd4…2bdd at0005 = ╱42╱B╱ // 0x2bd9 @0x5
0x2bd4…2bdd at0006 = ╱38╱8╱ // 0x2bda @0x6
0x2bd4…2bdd at0007 = ╱ef╱$╱ // 0x2bdb @0x7
0x2bd4…2bdd at0008 = EOL // 0x2bdc @0x8
0x2bd4…2bdd }
0x2bdd…2bf3 b94a 5750 CURSOR 36,I+4
0x2bdd…2bf3 LineComalBin {
0x2bdd…2bf3 ptr = 0xb94a // 0x2bdd @0x0
0x2bdd…2bf3 lno = 0x1676 // 0x2bdf @0x2
0x2bdd…2bf3 at0004 = ╱a1╱ CURSOR ╱ // 0x2be1 @0x4
0x2bdd…2bf3 at0005 = ╱33╱3╱ // 0x2be2 @0x5
0x2bdd…2bf3 at0006 = ╱36╱6╱ // 0x2be3 @0x6
0x2bdd…2bf3 at0007 = ╱fe00009006╱ // 0x2be4 @0x7
0x2bdd…2bf3 at000c = ╱ec╱,╱ // 0x2be9 @0xc
0x2bdd…2bf3 at000d = ╱49╱I╱ // 0x2bea @0xd
0x2bdd…2bf3 at000e = ╱e2╱+╱ // 0x2beb @0xe
0x2bdd…2bf3 at000f = ╱34╱4╱ // 0x2bec @0xf
0x2bdd…2bf3 at0010 = ╱fe00008003╱ // 0x2bed @0x10
0x2bdd…2bf3 at0015 = EOL // 0x2bf2 @0x15
0x2bdd…2bf3 }
0x2bf3…2c15 b96c 5760 EXEC TU(F9$(I),B8$,1,0)
0x2bf3…2c15 LineComalBin {
0x2bf3…2c15 ptr = 0xb96c // 0x2bf3 @0x0
0x2bf3…2c15 lno = 0x1680 // 0x2bf5 @0x2
0x2bf3…2c15 at0004 = ╱9d╱ EXEC ╱ // 0x2bf7 @0x4
0x2bf3…2c15 at0005 = ╱54╱T╱ // 0x2bf8 @0x5
0x2bf3…2c15 at0006 = ╱55╱U╱ // 0x2bf9 @0x6
0x2bf3…2c15 at0007 = ╱ed╱(╱ // 0x2bfa @0x7
0x2bf3…2c15 at0008 = ╱46╱F╱ // 0x2bfb @0x8
0x2bf3…2c15 at0009 = ╱39╱9╱ // 0x2bfc @0x9
0x2bf3…2c15 at000a = ╱ef╱$╱ // 0x2bfd @0xa
0x2bf3…2c15 at000b = ╱ed╱(╱ // 0x2bfe @0xb
0x2bf3…2c15 at000c = ╱49╱I╱ // 0x2bff @0xc
0x2bf3…2c15 at000d = ╱ee╱)╱ // 0x2c00 @0xd
0x2bf3…2c15 at000e = ╱ec╱,╱ // 0x2c01 @0xe
0x2bf3…2c15 at000f = ╱42╱B╱ // 0x2c02 @0xf
0x2bf3…2c15 at0010 = ╱38╱8╱ // 0x2c03 @0x10
0x2bf3…2c15 at0011 = ╱ef╱$╱ // 0x2c04 @0x11
0x2bf3…2c15 at0012 = ╱ec╱,╱ // 0x2c05 @0x12
0x2bf3…2c15 at0013 = ╱31╱1╱ // 0x2c06 @0x13
0x2bf3…2c15 at0014 = ╱fe00008001╱ // 0x2c07 @0x14
0x2bf3…2c15 at0019 = ╱ec╱,╱ // 0x2c0c @0x19
0x2bf3…2c15 at001a = ╱30╱0╱ // 0x2c0d @0x1a
0x2bf3…2c15 at001b = ╱fe00000000╱ // 0x2c0e @0x1b
0x2bf3…2c15 at0020 = ╱ee╱)╱ // 0x2c13 @0x20
0x2bf3…2c15 at0021 = EOL // 0x2c14 @0x21
0x2bf3…2c15 }
0x2c15…2c1e b975 5770 PRINT B8$
0x2c15…2c1e LineComalBin {
0x2c15…2c1e ptr = 0xb975 // 0x2c15 @0x0
0x2c15…2c1e lno = 0x168a // 0x2c17 @0x2
0x2c15…2c1e at0004 = ╱92╱ PRINT ╱ // 0x2c19 @0x4
0x2c15…2c1e at0005 = ╱42╱B╱ // 0x2c1a @0x5
0x2c15…2c1e at0006 = ╱38╱8╱ // 0x2c1b @0x6
0x2c15…2c1e at0007 = ╱ef╱$╱ // 0x2c1c @0x7
0x2c15…2c1e at0008 = EOL // 0x2c1d @0x8
0x2c15…2c1e }
0x2c1e…2c25 b97c 5780 NEXT I
0x2c1e…2c25 LineComalBin {
0x2c1e…2c25 ptr = 0xb97c // 0x2c1e @0x0
0x2c1e…2c25 lno = 0x1694 // 0x2c20 @0x2
0x2c1e…2c25 at0004 = ╱84╱ NEXT ╱ // 0x2c22 @0x4
0x2c1e…2c25 at0005 = ╱49╱I╱ // 0x2c23 @0x5
0x2c1e…2c25 at0006 = EOL // 0x2c24 @0x6
0x2c1e…2c25 }
0x2c25…2c39 b990 5790 CURSOR 4,12
0x2c25…2c39 LineComalBin {
0x2c25…2c39 ptr = 0xb990 // 0x2c25 @0x0
0x2c25…2c39 lno = 0x169e // 0x2c27 @0x2
0x2c25…2c39 at0004 = ╱a1╱ CURSOR ╱ // 0x2c29 @0x4
0x2c25…2c39 at0005 = ╱34╱4╱ // 0x2c2a @0x5
0x2c25…2c39 at0006 = ╱fe00008003╱ // 0x2c2b @0x6
0x2c25…2c39 at000b = ╱ec╱,╱ // 0x2c30 @0xb
0x2c25…2c39 at000c = ╱31╱1╱ // 0x2c31 @0xc
0x2c25…2c39 at000d = ╱32╱2╱ // 0x2c32 @0xd
0x2c25…2c39 at000e = ╱fe0000c004╱ // 0x2c33 @0xe
0x2c25…2c39 at0013 = EOL // 0x2c38 @0x13
0x2c25…2c39 }
0x2c39…2c58 b9af 5800 PRINT "Kontroller dine saldi !"
0x2c39…2c58 LineComalBin {
0x2c39…2c58 ptr = 0xb9af // 0x2c39 @0x0
0x2c39…2c58 lno = 0x16a8 // 0x2c3b @0x2
0x2c39…2c58 at0004 = ╱92╱ PRINT ╱ // 0x2c3d @0x4
0x2c39…2c58 at0005 = ╱22╱"╱ // 0x2c3e @0x5
0x2c39…2c58 at0006 = ╱4b╱K╱ // 0x2c3f @0x6
0x2c39…2c58 at0007 = ╱6f╱o╱ // 0x2c40 @0x7
0x2c39…2c58 at0008 = ╱6e╱n╱ // 0x2c41 @0x8
0x2c39…2c58 at0009 = ╱74╱t╱ // 0x2c42 @0x9
0x2c39…2c58 at000a = ╱72╱r╱ // 0x2c43 @0xa
0x2c39…2c58 at000b = ╱6f╱o╱ // 0x2c44 @0xb
0x2c39…2c58 at000c = ╱6c╱l╱ // 0x2c45 @0xc
0x2c39…2c58 at000d = ╱6c╱l╱ // 0x2c46 @0xd
0x2c39…2c58 at000e = ╱65╱e╱ // 0x2c47 @0xe
0x2c39…2c58 at000f = ╱72╱r╱ // 0x2c48 @0xf
0x2c39…2c58 at0010 = ╱20╱…╱ // 0x2c49 @0x10
0x2c39…2c58 at0011 = ╱64╱d╱ // 0x2c4a @0x11
0x2c39…2c58 at0012 = ╱69╱i╱ // 0x2c4b @0x12
0x2c39…2c58 at0013 = ╱6e╱n╱ // 0x2c4c @0x13
0x2c39…2c58 at0014 = ╱65╱e╱ // 0x2c4d @0x14
0x2c39…2c58 at0015 = ╱20╱…╱ // 0x2c4e @0x15
0x2c39…2c58 at0016 = ╱73╱s╱ // 0x2c4f @0x16
0x2c39…2c58 at0017 = ╱61╱a╱ // 0x2c50 @0x17
0x2c39…2c58 at0018 = ╱6c╱l╱ // 0x2c51 @0x18
0x2c39…2c58 at0019 = ╱64╱d╱ // 0x2c52 @0x19
0x2c39…2c58 at001a = ╱69╱i╱ // 0x2c53 @0x1a
0x2c39…2c58 at001b = ╱20╱…╱ // 0x2c54 @0x1b
0x2c39…2c58 at001c = ╱21╱!╱ // 0x2c55 @0x1c
0x2c39…2c58 at001d = ╱22╱"╱ // 0x2c56 @0x1d
0x2c39…2c58 at001e = EOL // 0x2c57 @0x1e
0x2c39…2c58 }
0x2c58…2c5e b9b5 5810 REPEAT
0x2c58…2c5e LineComalBin {
0x2c58…2c5e ptr = 0xb9b5 // 0x2c58 @0x0
0x2c58…2c5e lno = 0x16b2 // 0x2c5a @0x2
0x2c58…2c5e at0004 = ╱97╱ REPEAT ╱ // 0x2c5c @0x4
0x2c58…2c5e at0005 = EOL // 0x2c5d @0x5
0x2c58…2c5e }
0x2c5e…2c72 b9c9 5820 CURSOR 4,14
0x2c5e…2c72 LineComalBin {
0x2c5e…2c72 ptr = 0xb9c9 // 0x2c5e @0x0
0x2c5e…2c72 lno = 0x16bc // 0x2c60 @0x2
0x2c5e…2c72 at0004 = ╱a1╱ CURSOR ╱ // 0x2c62 @0x4
0x2c5e…2c72 at0005 = ╱34╱4╱ // 0x2c63 @0x5
0x2c5e…2c72 at0006 = ╱fe00008003╱ // 0x2c64 @0x6
0x2c5e…2c72 at000b = ╱ec╱,╱ // 0x2c69 @0xb
0x2c5e…2c72 at000c = ╱31╱1╱ // 0x2c6a @0xc
0x2c5e…2c72 at000d = ╱34╱4╱ // 0x2c6b @0xd
0x2c5e…2c72 at000e = ╱fe0000e004╱ // 0x2c6c @0xe
0x2c5e…2c72 at0013 = EOL // 0x2c71 @0x13
0x2c5e…2c72 }
0x2c72…2c9e b9f5 5830 PRINT "Hvilken er forkert (0:ingen,1-6)"
0x2c72…2c9e LineComalBin {
0x2c72…2c9e ptr = 0xb9f5 // 0x2c72 @0x0
0x2c72…2c9e lno = 0x16c6 // 0x2c74 @0x2
0x2c72…2c9e at0004 = ╱92╱ PRINT ╱ // 0x2c76 @0x4
0x2c72…2c9e at0005 = ╱22╱"╱ // 0x2c77 @0x5
0x2c72…2c9e at0006 = ╱48╱H╱ // 0x2c78 @0x6
0x2c72…2c9e at0007 = ╱76╱v╱ // 0x2c79 @0x7
0x2c72…2c9e at0008 = ╱69╱i╱ // 0x2c7a @0x8
0x2c72…2c9e at0009 = ╱6c╱l╱ // 0x2c7b @0x9
0x2c72…2c9e at000a = ╱6b╱k╱ // 0x2c7c @0xa
0x2c72…2c9e at000b = ╱65╱e╱ // 0x2c7d @0xb
0x2c72…2c9e at000c = ╱6e╱n╱ // 0x2c7e @0xc
0x2c72…2c9e at000d = ╱20╱…╱ // 0x2c7f @0xd
0x2c72…2c9e at000e = ╱65╱e╱ // 0x2c80 @0xe
0x2c72…2c9e at000f = ╱72╱r╱ // 0x2c81 @0xf
0x2c72…2c9e at0010 = ╱20╱…╱ // 0x2c82 @0x10
0x2c72…2c9e at0011 = ╱66╱f╱ // 0x2c83 @0x11
0x2c72…2c9e at0012 = ╱6f╱o╱ // 0x2c84 @0x12
0x2c72…2c9e at0013 = ╱72╱r╱ // 0x2c85 @0x13
0x2c72…2c9e at0014 = ╱6b╱k╱ // 0x2c86 @0x14
0x2c72…2c9e at0015 = ╱65╱e╱ // 0x2c87 @0x15
0x2c72…2c9e at0016 = ╱72╱r╱ // 0x2c88 @0x16
0x2c72…2c9e at0017 = ╱74╱t╱ // 0x2c89 @0x17
0x2c72…2c9e at0018 = ╱20╱…╱ // 0x2c8a @0x18
0x2c72…2c9e at0019 = ╱20╱…╱ // 0x2c8b @0x19
0x2c72…2c9e at001a = ╱20╱…╱ // 0x2c8c @0x1a
0x2c72…2c9e at001b = ╱20╱…╱ // 0x2c8d @0x1b
0x2c72…2c9e at001c = ╱20╱…╱ // 0x2c8e @0x1c
0x2c72…2c9e at001d = ╱28╱(╱ // 0x2c8f @0x1d
0x2c72…2c9e at001e = ╱30╱0╱ // 0x2c90 @0x1e
0x2c72…2c9e at001f = ╱3a╱:╱ // 0x2c91 @0x1f
0x2c72…2c9e at0020 = ╱69╱i╱ // 0x2c92 @0x20
0x2c72…2c9e at0021 = ╱6e╱n╱ // 0x2c93 @0x21
0x2c72…2c9e at0022 = ╱67╱g╱ // 0x2c94 @0x22
0x2c72…2c9e at0023 = ╱65╱e╱ // 0x2c95 @0x23
0x2c72…2c9e at0024 = ╱6e╱n╱ // 0x2c96 @0x24
0x2c72…2c9e at0025 = ╱2c╱,╱ // 0x2c97 @0x25
0x2c72…2c9e at0026 = ╱31╱1╱ // 0x2c98 @0x26
0x2c72…2c9e at0027 = ╱2d╱-╱ // 0x2c99 @0x27
0x2c72…2c9e at0028 = ╱36╱6╱ // 0x2c9a @0x28
0x2c72…2c9e at0029 = ╱29╱)╱ // 0x2c9b @0x29
0x2c72…2c9e at002a = ╱22╱"╱ // 0x2c9c @0x2a
0x2c72…2c9e at002b = EOL // 0x2c9d @0x2b
0x2c72…2c9e }
0x2c9e…2cb3 ba0a 5840 CURSOR 25,14
0x2c9e…2cb3 LineComalBin {
0x2c9e…2cb3 ptr = 0xba0a // 0x2c9e @0x0
0x2c9e…2cb3 lno = 0x16d0 // 0x2ca0 @0x2
0x2c9e…2cb3 at0004 = ╱a1╱ CURSOR ╱ // 0x2ca2 @0x4
0x2c9e…2cb3 at0005 = ╱32╱2╱ // 0x2ca3 @0x5
0x2c9e…2cb3 at0006 = ╱35╱5╱ // 0x2ca4 @0x6
0x2c9e…2cb3 at0007 = ╱fe0000c805╱ // 0x2ca5 @0x7
0x2c9e…2cb3 at000c = ╱ec╱,╱ // 0x2caa @0xc
0x2c9e…2cb3 at000d = ╱31╱1╱ // 0x2cab @0xd
0x2c9e…2cb3 at000e = ╱34╱4╱ // 0x2cac @0xe
0x2c9e…2cb3 at000f = ╱fe0000e004╱ // 0x2cad @0xf
0x2c9e…2cb3 at0014 = EOL // 0x2cb2 @0x14
0x2c9e…2cb3 }
0x2cb3…2cbc ba13 5850 INPUT D5$
0x2cb3…2cbc LineComalBin {
0x2cb3…2cbc ptr = 0xba13 // 0x2cb3 @0x0
0x2cb3…2cbc lno = 0x16da // 0x2cb5 @0x2
0x2cb3…2cbc at0004 = ╱91╱ INPUT ╱ // 0x2cb7 @0x4
0x2cb3…2cbc at0005 = ╱44╱D╱ // 0x2cb8 @0x5
0x2cb3…2cbc at0006 = ╱35╱5╱ // 0x2cb9 @0x6
0x2cb3…2cbc at0007 = ╱ef╱$╱ // 0x2cba @0x7
0x2cb3…2cbc at0008 = EOL // 0x2cbb @0x8
0x2cb3…2cbc }
0x2cbc…2cc9 ba20 5860 EXEC NR(D5$)
0x2cbc…2cc9 LineComalBin {
0x2cbc…2cc9 ptr = 0xba20 // 0x2cbc @0x0
0x2cbc…2cc9 lno = 0x16e4 // 0x2cbe @0x2
0x2cbc…2cc9 at0004 = ╱9d╱ EXEC ╱ // 0x2cc0 @0x4
0x2cbc…2cc9 at0005 = ╱4e╱N╱ // 0x2cc1 @0x5
0x2cbc…2cc9 at0006 = ╱52╱R╱ // 0x2cc2 @0x6
0x2cbc…2cc9 at0007 = ╱ed╱(╱ // 0x2cc3 @0x7
0x2cbc…2cc9 at0008 = ╱44╱D╱ // 0x2cc4 @0x8
0x2cbc…2cc9 at0009 = ╱35╱5╱ // 0x2cc5 @0x9
0x2cbc…2cc9 at000a = ╱ef╱$╱ // 0x2cc6 @0xa
0x2cbc…2cc9 at000b = ╱ee╱)╱ // 0x2cc7 @0xb
0x2cbc…2cc9 at000c = EOL // 0x2cc8 @0xc
0x2cbc…2cc9 }
0x2cc9…2ce1 ba38 5870 UNTIL -E<P AND P<7 AND H4=B
0x2cc9…2ce1 LineComalBin {
0x2cc9…2ce1 ptr = 0xba38 // 0x2cc9 @0x0
0x2cc9…2ce1 lno = 0x16ee // 0x2ccb @0x2
0x2cc9…2ce1 at0004 = ╱98╱ UNTIL ╱ // 0x2ccd @0x4
0x2cc9…2ce1 at0005 = ╱e9╱-╱ // 0x2cce @0x5
0x2cc9…2ce1 at0006 = ╱45╱E╱ // 0x2ccf @0x6
0x2cc9…2ce1 at0007 = ╱dd╱<╱ // 0x2cd0 @0x7
0x2cc9…2ce1 at0008 = ╱50╱P╱ // 0x2cd1 @0x8
0x2cc9…2ce1 at0009 = ╱da╱ AND ╱ // 0x2cd2 @0x9
0x2cc9…2ce1 at000a = ╱50╱P╱ // 0x2cd3 @0xa
0x2cc9…2ce1 at000b = ╱dd╱<╱ // 0x2cd4 @0xb
0x2cc9…2ce1 at000c = ╱37╱7╱ // 0x2cd5 @0xc
0x2cc9…2ce1 at000d = ╱fe0000e003╱ // 0x2cd6 @0xd
0x2cc9…2ce1 at0012 = ╱da╱ AND ╱ // 0x2cdb @0x12
0x2cc9…2ce1 at0013 = ╱48╱H╱ // 0x2cdc @0x13
0x2cc9…2ce1 at0014 = ╱34╱4╱ // 0x2cdd @0x14
0x2cc9…2ce1 at0015 = ╱dc╱=╱ // 0x2cde @0x15
0x2cc9…2ce1 at0016 = ╱42╱B╱ // 0x2cdf @0x16
0x2cc9…2ce1 at0017 = EOL // 0x2ce0 @0x17
0x2cc9…2ce1 }
0x2ce1…2ceb ba42 5880 IF P<>B THEN
0x2ce1…2ceb LineComalBin {
0x2ce1…2ceb ptr = 0xba42 // 0x2ce1 @0x0
0x2ce1…2ceb lno = 0x16f8 // 0x2ce3 @0x2
0x2ce1…2ceb at0004 = ╱9c╱ IF ╱ // 0x2ce5 @0x4
0x2ce1…2ceb at0005 = ╱50╱P╱ // 0x2ce6 @0x5
0x2ce1…2ceb at0006 = ╱e1╱<>╱ // 0x2ce7 @0x6
0x2ce1…2ceb at0007 = ╱42╱B╱ // 0x2ce8 @0x7
0x2ce1…2ceb at0008 = ╱b6╱ THEN ╱ // 0x2ce9 @0x8
0x2ce1…2ceb at0009 = EOL // 0x2cea @0x9
0x2ce1…2ceb }
0x2ceb…2cf1 ba48 5890 REPEAT
0x2ceb…2cf1 LineComalBin {
0x2ceb…2cf1 ptr = 0xba48 // 0x2ceb @0x0
0x2ceb…2cf1 lno = 0x1702 // 0x2ced @0x2
0x2ceb…2cf1 at0004 = ╱97╱ REPEAT ╱ // 0x2cef @0x4
0x2ceb…2cf1 at0005 = EOL // 0x2cf0 @0x5
0x2ceb…2cf1 }
0x2cf1…2cf7 ba4e 5900 REPEAT
0x2cf1…2cf7 LineComalBin {
0x2cf1…2cf7 ptr = 0xba4e // 0x2cf1 @0x0
0x2cf1…2cf7 lno = 0x170c // 0x2cf3 @0x2
0x2cf1…2cf7 at0004 = ╱97╱ REPEAT ╱ // 0x2cf5 @0x4
0x2cf1…2cf7 at0005 = EOL // 0x2cf6 @0x5
0x2cf1…2cf7 }
0x2cf7…2d06 ba5d 5910 CURSOR E,16
0x2cf7…2d06 LineComalBin {
0x2cf7…2d06 ptr = 0xba5d // 0x2cf7 @0x0
0x2cf7…2d06 lno = 0x1716 // 0x2cf9 @0x2
0x2cf7…2d06 at0004 = ╱a1╱ CURSOR ╱ // 0x2cfb @0x4
0x2cf7…2d06 at0005 = ╱45╱E╱ // 0x2cfc @0x5
0x2cf7…2d06 at0006 = ╱ec╱,╱ // 0x2cfd @0x6
0x2cf7…2d06 at0007 = ╱31╱1╱ // 0x2cfe @0x7
0x2cf7…2d06 at0008 = ╱36╱6╱ // 0x2cff @0x8
0x2cf7…2d06 at0009 = ╱fe00008005╱ // 0x2d00 @0x9
0x2cf7…2d06 at000e = EOL // 0x2d05 @0xe
0x2cf7…2d06 }
0x2d06…2d38 ba8f 5920 PRINT P;J5$(P);" (tast ændret saldo)"
0x2d06…2d38 LineComalBin {
0x2d06…2d38 ptr = 0xba8f // 0x2d06 @0x0
0x2d06…2d38 lno = 0x1720 // 0x2d08 @0x2
0x2d06…2d38 at0004 = ╱92╱ PRINT ╱ // 0x2d0a @0x4
0x2d06…2d38 at0005 = ╱50╱P╱ // 0x2d0b @0x5
0x2d06…2d38 at0006 = ╱eb╱;╱ // 0x2d0c @0x6
0x2d06…2d38 at0007 = ╱4a╱J╱ // 0x2d0d @0x7
0x2d06…2d38 at0008 = ╱35╱5╱ // 0x2d0e @0x8
0x2d06…2d38 at0009 = ╱ef╱$╱ // 0x2d0f @0x9
0x2d06…2d38 at000a = ╱ed╱(╱ // 0x2d10 @0xa
0x2d06…2d38 at000b = ╱50╱P╱ // 0x2d11 @0xb
0x2d06…2d38 at000c = ╱ee╱)╱ // 0x2d12 @0xc
0x2d06…2d38 at000d = ╱eb╱;╱ // 0x2d13 @0xd
0x2d06…2d38 at000e = ╱22╱"╱ // 0x2d14 @0xe
0x2d06…2d38 at000f = ╱20╱…╱ // 0x2d15 @0xf
0x2d06…2d38 at0010 = ╱20╱…╱ // 0x2d16 @0x10
0x2d06…2d38 at0011 = ╱20╱…╱ // 0x2d17 @0x11
0x2d06…2d38 at0012 = ╱20╱…╱ // 0x2d18 @0x12
0x2d06…2d38 at0013 = ╱20╱…╱ // 0x2d19 @0x13
0x2d06…2d38 at0014 = ╱20╱…╱ // 0x2d1a @0x14
0x2d06…2d38 at0015 = ╱20╱…╱ // 0x2d1b @0x15
0x2d06…2d38 at0016 = ╱20╱…╱ // 0x2d1c @0x16
0x2d06…2d38 at0017 = ╱20╱…╱ // 0x2d1d @0x17
0x2d06…2d38 at0018 = ╱20╱…╱ // 0x2d1e @0x18
0x2d06…2d38 at0019 = ╱20╱…╱ // 0x2d1f @0x19
0x2d06…2d38 at001a = ╱20╱…╱ // 0x2d20 @0x1a
0x2d06…2d38 at001b = ╱20╱…╱ // 0x2d21 @0x1b
0x2d06…2d38 at001c = ╱20╱…╱ // 0x2d22 @0x1c
0x2d06…2d38 at001d = ╱28╱(╱ // 0x2d23 @0x1d
0x2d06…2d38 at001e = ╱74╱t╱ // 0x2d24 @0x1e
0x2d06…2d38 at001f = ╱61╱a╱ // 0x2d25 @0x1f
0x2d06…2d38 at0020 = ╱73╱s╱ // 0x2d26 @0x20
0x2d06…2d38 at0021 = ╱74╱t╱ // 0x2d27 @0x21
0x2d06…2d38 at0022 = ╱20╱…╱ // 0x2d28 @0x22
0x2d06…2d38 at0023 = ╱7b╱æ╱ // 0x2d29 @0x23
0x2d06…2d38 at0024 = ╱6e╱n╱ // 0x2d2a @0x24
0x2d06…2d38 at0025 = ╱64╱d╱ // 0x2d2b @0x25
0x2d06…2d38 at0026 = ╱72╱r╱ // 0x2d2c @0x26
0x2d06…2d38 at0027 = ╱65╱e╱ // 0x2d2d @0x27
0x2d06…2d38 at0028 = ╱74╱t╱ // 0x2d2e @0x28
0x2d06…2d38 at0029 = ╱20╱…╱ // 0x2d2f @0x29
0x2d06…2d38 at002a = ╱73╱s╱ // 0x2d30 @0x2a
0x2d06…2d38 at002b = ╱61╱a╱ // 0x2d31 @0x2b
0x2d06…2d38 at002c = ╱6c╱l╱ // 0x2d32 @0x2c
0x2d06…2d38 at002d = ╱64╱d╱ // 0x2d33 @0x2d
0x2d06…2d38 at002e = ╱6f╱o╱ // 0x2d34 @0x2e
0x2d06…2d38 at002f = ╱29╱)╱ // 0x2d35 @0x2f
0x2d06…2d38 at0030 = ╱22╱"╱ // 0x2d36 @0x30
0x2d06…2d38 at0031 = EOL // 0x2d37 @0x31
0x2d06…2d38 }
0x2d38…2d4d baa4 5930 CURSOR 19,16
0x2d38…2d4d LineComalBin {
0x2d38…2d4d ptr = 0xbaa4 // 0x2d38 @0x0
0x2d38…2d4d lno = 0x172a // 0x2d3a @0x2
0x2d38…2d4d at0004 = ╱a1╱ CURSOR ╱ // 0x2d3c @0x4
0x2d38…2d4d at0005 = ╱31╱1╱ // 0x2d3d @0x5
0x2d38…2d4d at0006 = ╱39╱9╱ // 0x2d3e @0x6
0x2d38…2d4d at0007 = ╱fe00009805╱ // 0x2d3f @0x7
0x2d38…2d4d at000c = ╱ec╱,╱ // 0x2d44 @0xc
0x2d38…2d4d at000d = ╱31╱1╱ // 0x2d45 @0xd
0x2d38…2d4d at000e = ╱36╱6╱ // 0x2d46 @0xe
0x2d38…2d4d at000f = ╱fe00008005╱ // 0x2d47 @0xf
0x2d38…2d4d at0014 = EOL // 0x2d4c @0x14
0x2d38…2d4d }
0x2d4d…2d56 baad 5940 INPUT F3$
0x2d4d…2d56 LineComalBin {
0x2d4d…2d56 ptr = 0xbaad // 0x2d4d @0x0
0x2d4d…2d56 lno = 0x1734 // 0x2d4f @0x2
0x2d4d…2d56 at0004 = ╱91╱ INPUT ╱ // 0x2d51 @0x4
0x2d4d…2d56 at0005 = ╱46╱F╱ // 0x2d52 @0x5
0x2d4d…2d56 at0006 = ╱33╱3╱ // 0x2d53 @0x6
0x2d4d…2d56 at0007 = ╱ef╱$╱ // 0x2d54 @0x7
0x2d4d…2d56 at0008 = EOL // 0x2d55 @0x8
0x2d4d…2d56 }
0x2d56…2d64 babb 5950 UNTIL LEN(F3$)>B
0x2d56…2d64 LineComalBin {
0x2d56…2d64 ptr = 0xbabb // 0x2d56 @0x0
0x2d56…2d64 lno = 0x173e // 0x2d58 @0x2
0x2d56…2d64 at0004 = ╱98╱ UNTIL ╱ // 0x2d5a @0x4
0x2d56…2d64 at0005 = ╱cc╱LEN╱ // 0x2d5b @0x5
0x2d56…2d64 at0006 = ╱ed╱(╱ // 0x2d5c @0x6
0x2d56…2d64 at0007 = ╱46╱F╱ // 0x2d5d @0x7
0x2d56…2d64 at0008 = ╱33╱3╱ // 0x2d5e @0x8
0x2d56…2d64 at0009 = ╱ef╱$╱ // 0x2d5f @0x9
0x2d56…2d64 at000a = ╱ee╱)╱ // 0x2d60 @0xa
0x2d56…2d64 at000b = ╱de╱>╱ // 0x2d61 @0xb
0x2d56…2d64 at000c = ╱42╱B╱ // 0x2d62 @0xc
0x2d56…2d64 at000d = EOL // 0x2d63 @0xd
0x2d56…2d64 }
0x2d64…2d6c bac3 5960 EXEC FO
0x2d64…2d6c LineComalBin {
0x2d64…2d6c ptr = 0xbac3 // 0x2d64 @0x0
0x2d64…2d6c lno = 0x1748 // 0x2d66 @0x2
0x2d64…2d6c at0004 = ╱9d╱ EXEC ╱ // 0x2d68 @0x4
0x2d64…2d6c at0005 = ╱46╱F╱ // 0x2d69 @0x5
0x2d64…2d6c at0006 = ╱4f╱O╱ // 0x2d6a @0x6
0x2d64…2d6c at0007 = EOL // 0x2d6b @0x7
0x2d64…2d6c }
0x2d6c…2d88 badf 5970 EXEC CA(6,F3$,B9$,B8$)
0x2d6c…2d88 LineComalBin {
0x2d6c…2d88 ptr = 0xbadf // 0x2d6c @0x0
0x2d6c…2d88 lno = 0x1752 // 0x2d6e @0x2
0x2d6c…2d88 at0004 = ╱9d╱ EXEC ╱ // 0x2d70 @0x4
0x2d6c…2d88 at0005 = ╱43╱C╱ // 0x2d71 @0x5
0x2d6c…2d88 at0006 = ╱41╱A╱ // 0x2d72 @0x6
0x2d6c…2d88 at0007 = ╱ed╱(╱ // 0x2d73 @0x7
0x2d6c…2d88 at0008 = ╱36╱6╱ // 0x2d74 @0x8
0x2d6c…2d88 at0009 = ╱fe0000c003╱ // 0x2d75 @0x9
0x2d6c…2d88 at000e = ╱ec╱,╱ // 0x2d7a @0xe
0x2d6c…2d88 at000f = ╱46╱F╱ // 0x2d7b @0xf
0x2d6c…2d88 at0010 = ╱33╱3╱ // 0x2d7c @0x10
0x2d6c…2d88 at0011 = ╱ef╱$╱ // 0x2d7d @0x11
0x2d6c…2d88 at0012 = ╱ec╱,╱ // 0x2d7e @0x12
0x2d6c…2d88 at0013 = ╱42╱B╱ // 0x2d7f @0x13
0x2d6c…2d88 at0014 = ╱39╱9╱ // 0x2d80 @0x14
0x2d6c…2d88 at0015 = ╱ef╱$╱ // 0x2d81 @0x15
0x2d6c…2d88 at0016 = ╱ec╱,╱ // 0x2d82 @0x16
0x2d6c…2d88 at0017 = ╱42╱B╱ // 0x2d83 @0x17
0x2d6c…2d88 at0018 = ╱38╱8╱ // 0x2d84 @0x18
0x2d6c…2d88 at0019 = ╱ef╱$╱ // 0x2d85 @0x19
0x2d6c…2d88 at001a = ╱ee╱)╱ // 0x2d86 @0x1a
0x2d6c…2d88 at001b = EOL // 0x2d87 @0x1b
0x2d6c…2d88 }
0x2d88…2d94 baeb 5980 UNTIL FLAG=B
0x2d88…2d94 LineComalBin {
0x2d88…2d94 ptr = 0xbaeb // 0x2d88 @0x0
0x2d88…2d94 lno = 0x175c // 0x2d8a @0x2
0x2d88…2d94 at0004 = ╱98╱ UNTIL ╱ // 0x2d8c @0x4
0x2d88…2d94 at0005 = ╱46╱F╱ // 0x2d8d @0x5
0x2d88…2d94 at0006 = ╱4c╱L╱ // 0x2d8e @0x6
0x2d88…2d94 at0007 = ╱41╱A╱ // 0x2d8f @0x7
0x2d88…2d94 at0008 = ╱47╱G╱ // 0x2d90 @0x8
0x2d88…2d94 at0009 = ╱dc╱=╱ // 0x2d91 @0x9
0x2d88…2d94 at000a = ╱42╱B╱ // 0x2d92 @0xa
0x2d88…2d94 at000b = EOL // 0x2d93 @0xb
0x2d88…2d94 }
0x2d94…2da3 bafa 5990 F9$(P)=F3$
0x2d94…2da3 LineComalBin {
0x2d94…2da3 ptr = 0xbafa // 0x2d94 @0x0
0x2d94…2da3 lno = 0x1766 // 0x2d96 @0x2
0x2d94…2da3 at0004 = ╱46╱F╱ // 0x2d98 @0x4
0x2d94…2da3 at0005 = ╱39╱9╱ // 0x2d99 @0x5
0x2d94…2da3 at0006 = ╱ef╱$╱ // 0x2d9a @0x6
0x2d94…2da3 at0007 = ╱ed╱(╱ // 0x2d9b @0x7
0x2d94…2da3 at0008 = ╱50╱P╱ // 0x2d9c @0x8
0x2d94…2da3 at0009 = ╱ee╱)╱ // 0x2d9d @0x9
0x2d94…2da3 at000a = ╱dc╱=╱ // 0x2d9e @0xa
0x2d94…2da3 at000b = ╱46╱F╱ // 0x2d9f @0xb
0x2d94…2da3 at000c = ╱33╱3╱ // 0x2da0 @0xc
0x2d94…2da3 at000d = ╱ef╱$╱ // 0x2da1 @0xd
0x2d94…2da3 at000e = EOL // 0x2da2 @0xe
0x2d94…2da3 }
0x2da3…2dc9 bb20 6000 IF P MOD G=B THEN F9$(P)=F3$(E:LEN(F3$)-E)+"-"
0x2da3…2dc9 LineComalBin {
0x2da3…2dc9 ptr = 0xbb20 // 0x2da3 @0x0
0x2da3…2dc9 lno = 0x1770 // 0x2da5 @0x2
0x2da3…2dc9 at0004 = ╱82╱ IF ╱ // 0x2da7 @0x4
0x2da3…2dc9 at0005 = ╱50╱P╱ // 0x2da8 @0x5
0x2da3…2dc9 at0006 = ╱e8╱ MOD ╱ // 0x2da9 @0x6
0x2da3…2dc9 at0007 = ╱47╱G╱ // 0x2daa @0x7
0x2da3…2dc9 at0008 = ╱dc╱=╱ // 0x2dab @0x8
0x2da3…2dc9 at0009 = ╱42╱B╱ // 0x2dac @0x9
0x2da3…2dc9 at000a = ╱b6╱ THEN ╱ // 0x2dad @0xa
0x2da3…2dc9 at000b = ╱46╱F╱ // 0x2dae @0xb
0x2da3…2dc9 at000c = ╱39╱9╱ // 0x2daf @0xc
0x2da3…2dc9 at000d = ╱ef╱$╱ // 0x2db0 @0xd
0x2da3…2dc9 at000e = ╱ed╱(╱ // 0x2db1 @0xe
0x2da3…2dc9 at000f = ╱50╱P╱ // 0x2db2 @0xf
0x2da3…2dc9 at0010 = ╱ee╱)╱ // 0x2db3 @0x10
0x2da3…2dc9 at0011 = ╱dc╱=╱ // 0x2db4 @0x11
0x2da3…2dc9 at0012 = ╱46╱F╱ // 0x2db5 @0x12
0x2da3…2dc9 at0013 = ╱33╱3╱ // 0x2db6 @0x13
0x2da3…2dc9 at0014 = ╱ef╱$╱ // 0x2db7 @0x14
0x2da3…2dc9 at0015 = ╱ed╱(╱ // 0x2db8 @0x15
0x2da3…2dc9 at0016 = ╱45╱E╱ // 0x2db9 @0x16
0x2da3…2dc9 at0017 = ╱f0╱:╱ // 0x2dba @0x17
0x2da3…2dc9 at0018 = ╱cc╱LEN╱ // 0x2dbb @0x18
0x2da3…2dc9 at0019 = ╱ed╱(╱ // 0x2dbc @0x19
0x2da3…2dc9 at001a = ╱46╱F╱ // 0x2dbd @0x1a
0x2da3…2dc9 at001b = ╱33╱3╱ // 0x2dbe @0x1b
0x2da3…2dc9 at001c = ╱ef╱$╱ // 0x2dbf @0x1c
0x2da3…2dc9 at001d = ╱ee╱)╱ // 0x2dc0 @0x1d
0x2da3…2dc9 at001e = ╱e3╱-╱ // 0x2dc1 @0x1e
0x2da3…2dc9 at001f = ╱45╱E╱ // 0x2dc2 @0x1f
0x2da3…2dc9 at0020 = ╱ee╱)╱ // 0x2dc3 @0x20
0x2da3…2dc9 at0021 = ╱f1╱+╱ // 0x2dc4 @0x21
0x2da3…2dc9 at0022 = ╱22╱"╱ // 0x2dc5 @0x22
0x2da3…2dc9 at0023 = ╱2d╱-╱ // 0x2dc6 @0x23
0x2da3…2dc9 at0024 = ╱22╱"╱ // 0x2dc7 @0x24
0x2da3…2dc9 at0025 = EOL // 0x2dc8 @0x25
0x2da3…2dc9 }
0x2dc9…2dd2 bb29 6010 Q0=B
0x2dc9…2dd2 LineComalBin {
0x2dc9…2dd2 ptr = 0xbb29 // 0x2dc9 @0x0
0x2dc9…2dd2 lno = 0x177a // 0x2dcb @0x2
0x2dc9…2dd2 at0004 = ╱51╱Q╱ // 0x2dcd @0x4
0x2dc9…2dd2 at0005 = ╱30╱0╱ // 0x2dce @0x5
0x2dc9…2dd2 at0006 = ╱dc╱=╱ // 0x2dcf @0x6
0x2dc9…2dd2 at0007 = ╱42╱B╱ // 0x2dd0 @0x7
0x2dc9…2dd2 at0008 = EOL // 0x2dd1 @0x8
0x2dc9…2dd2 }
0x2dd2…2dd8 bb2f 6020 ELSE
0x2dd2…2dd8 LineComalBin {
0x2dd2…2dd8 ptr = 0xbb2f // 0x2dd2 @0x0
0x2dd2…2dd8 lno = 0x1784 // 0x2dd4 @0x2
0x2dd2…2dd8 at0004 = ╱9a╱ ELSE ╱ // 0x2dd6 @0x4
0x2dd2…2dd8 at0005 = EOL // 0x2dd7 @0x5
0x2dd2…2dd8 }
0x2dd8…2de8 bb3f 6030 FOR I=E TO 6
0x2dd8…2de8 LineComalBin {
0x2dd8…2de8 ptr = 0xbb3f // 0x2dd8 @0x0
0x2dd8…2de8 lno = 0x178e // 0x2dda @0x2
0x2dd8…2de8 at0004 = ╱83╱ FOR ╱ // 0x2ddc @0x4
0x2dd8…2de8 at0005 = ╱49╱I╱ // 0x2ddd @0x5
0x2dd8…2de8 at0006 = ╱dc╱=╱ // 0x2dde @0x6
0x2dd8…2de8 at0007 = ╱45╱E╱ // 0x2ddf @0x7
0x2dd8…2de8 at0008 = ╱b7╱ TO ╱ // 0x2de0 @0x8
0x2dd8…2de8 at0009 = ╱36╱6╱ // 0x2de1 @0x9
0x2dd8…2de8 at000a = ╱fe0000c003╱ // 0x2de2 @0xa
0x2dd8…2de8 at000f = EOL // 0x2de7 @0xf
0x2dd8…2de8 }
0x2de8…2e05 bb5c 6040 EXEC CA(E,F5$(I),F9$(I),F3$)
0x2de8…2e05 LineComalBin {
0x2de8…2e05 ptr = 0xbb5c // 0x2de8 @0x0
0x2de8…2e05 lno = 0x1798 // 0x2dea @0x2
0x2de8…2e05 at0004 = ╱9d╱ EXEC ╱ // 0x2dec @0x4
0x2de8…2e05 at0005 = ╱43╱C╱ // 0x2ded @0x5
0x2de8…2e05 at0006 = ╱41╱A╱ // 0x2dee @0x6
0x2de8…2e05 at0007 = ╱ed╱(╱ // 0x2def @0x7
0x2de8…2e05 at0008 = ╱45╱E╱ // 0x2df0 @0x8
0x2de8…2e05 at0009 = ╱ec╱,╱ // 0x2df1 @0x9
0x2de8…2e05 at000a = ╱46╱F╱ // 0x2df2 @0xa
0x2de8…2e05 at000b = ╱35╱5╱ // 0x2df3 @0xb
0x2de8…2e05 at000c = ╱ef╱$╱ // 0x2df4 @0xc
0x2de8…2e05 at000d = ╱ed╱(╱ // 0x2df5 @0xd
0x2de8…2e05 at000e = ╱49╱I╱ // 0x2df6 @0xe
0x2de8…2e05 at000f = ╱ee╱)╱ // 0x2df7 @0xf
0x2de8…2e05 at0010 = ╱ec╱,╱ // 0x2df8 @0x10
0x2de8…2e05 at0011 = ╱46╱F╱ // 0x2df9 @0x11
0x2de8…2e05 at0012 = ╱39╱9╱ // 0x2dfa @0x12
0x2de8…2e05 at0013 = ╱ef╱$╱ // 0x2dfb @0x13
0x2de8…2e05 at0014 = ╱ed╱(╱ // 0x2dfc @0x14
0x2de8…2e05 at0015 = ╱49╱I╱ // 0x2dfd @0x15
0x2de8…2e05 at0016 = ╱ee╱)╱ // 0x2dfe @0x16
0x2de8…2e05 at0017 = ╱ec╱,╱ // 0x2dff @0x17
0x2de8…2e05 at0018 = ╱46╱F╱ // 0x2e00 @0x18
0x2de8…2e05 at0019 = ╱33╱3╱ // 0x2e01 @0x19
0x2de8…2e05 at001a = ╱ef╱$╱ // 0x2e02 @0x1a
0x2de8…2e05 at001b = ╱ee╱)╱ // 0x2e03 @0x1b
0x2de8…2e05 at001c = EOL // 0x2e04 @0x1c
0x2de8…2e05 }
0x2e05…2e21 (153,) bb78 6050 EXEC CA(4,F3$,B9$,B9$)
0x2e05…2e21 LineComalBin {
0x2e05…2e21 ptr = 0xbb78 // 0x2e05 @0x0
0x2e05…2e21 lno = 0x17a2 // 0x2e07 @0x2
0x2e05…2e21 at0004 = ╱9d╱ EXEC ╱ // 0x2e09 @0x4
0x2e05…2e21 at0005 = ╱43╱C╱ // 0x2e0a @0x5
0x2e05…2e21 at0006 = ╱41╱A╱ // 0x2e0b @0x6
0x2e05…2e21 at0007 = ╱ed╱(╱ // 0x2e0c @0x7
0x2e05…2e21 at0008 = ╱34╱4╱ // 0x2e0d @0x8
0x2e05…2e21 at0009 = ╱fe00008003╱ // 0x2e0e @0x9
0x2e05…2e21 at000e = ╱ec╱,╱ // 0x2e13 @0xe
0x2e05…2e21 at000f = ╱46╱F╱ // 0x2e14 @0xf
0x2e05…2e21 at0010 = ╱33╱3╱ // 0x2e15 @0x10
0x2e05…2e21 at0011 = ╱ef╱$╱ // 0x2e16 @0x11
0x2e05…2e21 at0012 = ╱ec╱,╱ // 0x2e17 @0x12
0x2e05…2e21 at0013 = ╱42╱B╱ // 0x2e18 @0x13
0x2e05…2e21 at0014 = ╱39╱9╱ // 0x2e19 @0x14
0x2e05…2e21 at0015 = ╱ef╱$╱ // 0x2e1a @0x15
0x2e05…2e21 at0016 = ╱ec╱,╱ // 0x2e1b @0x16
0x2e05…2e21 at0017 = ╱42╱B╱ // 0x2e1c @0x17
0x2e05…2e21 at0018 = ╱39╱9╱ // 0x2e1d @0x18
0x2e05…2e21 at0019 = ╱ef╱$╱ // 0x2e1e @0x19
0x2e05…2e21 at001a = ╱ee╱)╱ // 0x2e1f @0x1a
0x2e05…2e21 at001b = EOL // 0x2e20 @0x1b
0x2e05…2e21 }
0x2e21…2e2d bb84 6060 IF SI<>B THEN EXIT
0x2e21…2e2d LineComalBin {
0x2e21…2e2d ptr = 0xbb84 // 0x2e21 @0x0
0x2e21…2e2d lno = 0x17ac // 0x2e23 @0x2
0x2e21…2e2d at0004 = ╱82╱ IF ╱ // 0x2e25 @0x4
0x2e21…2e2d at0005 = ╱53╱S╱ // 0x2e26 @0x5
0x2e21…2e2d at0006 = ╱49╱I╱ // 0x2e27 @0x6
0x2e21…2e2d at0007 = ╱e1╱<>╱ // 0x2e28 @0x7
0x2e21…2e2d at0008 = ╱42╱B╱ // 0x2e29 @0x8
0x2e21…2e2d at0009 = ╱b6╱ THEN ╱ // 0x2e2a @0x9
0x2e21…2e2d at000a = ╱99╱ EXIT ╱ // 0x2e2b @0xa
0x2e21…2e2d at000b = EOL // 0x2e2c @0xb
0x2e21…2e2d }
0x2e2d…2e34 bb8b 6070 NEXT I
0x2e2d…2e34 LineComalBin {
0x2e2d…2e34 ptr = 0xbb8b // 0x2e2d @0x0
0x2e2d…2e34 lno = 0x17b6 // 0x2e2f @0x2
0x2e2d…2e34 at0004 = ╱84╱ NEXT ╱ // 0x2e31 @0x4
0x2e2d…2e34 at0005 = ╱49╱I╱ // 0x2e32 @0x5
0x2e2d…2e34 at0006 = EOL // 0x2e33 @0x6
0x2e2d…2e34 }
0x2e34…2e48 bb9f 6080 P=-7;Q0=-E
0x2e34…2e48 LineComalBin {
0x2e34…2e48 ptr = 0xbb9f // 0x2e34 @0x0
0x2e34…2e48 lno = 0x17c0 // 0x2e36 @0x2
0x2e34…2e48 at0004 = ╱50╱P╱ // 0x2e38 @0x4
0x2e34…2e48 at0005 = ╱dc╱=╱ // 0x2e39 @0x5
0x2e34…2e48 at0006 = ╱e9╱-╱ // 0x2e3a @0x6
0x2e34…2e48 at0007 = ╱37╱7╱ // 0x2e3b @0x7
0x2e34…2e48 at0008 = ╱fe0000e003╱ // 0x2e3c @0x8
0x2e34…2e48 at000d = ╱eb╱;╱ // 0x2e41 @0xd
0x2e34…2e48 at000e = ╱51╱Q╱ // 0x2e42 @0xe
0x2e34…2e48 at000f = ╱30╱0╱ // 0x2e43 @0xf
0x2e34…2e48 at0010 = ╱dc╱=╱ // 0x2e44 @0x10
0x2e34…2e48 at0011 = ╱e9╱-╱ // 0x2e45 @0x11
0x2e34…2e48 at0012 = ╱45╱E╱ // 0x2e46 @0x12
0x2e34…2e48 at0013 = EOL // 0x2e47 @0x13
0x2e34…2e48 }
0x2e48…2e53 bbaa 6090 IF SI=B THEN
0x2e48…2e53 LineComalBin {
0x2e48…2e53 ptr = 0xbbaa // 0x2e48 @0x0
0x2e48…2e53 lno = 0x17ca // 0x2e4a @0x2
0x2e48…2e53 at0004 = ╱9c╱ IF ╱ // 0x2e4c @0x4
0x2e48…2e53 at0005 = ╱53╱S╱ // 0x2e4d @0x5
0x2e48…2e53 at0006 = ╱49╱I╱ // 0x2e4e @0x6
0x2e48…2e53 at0007 = ╱dc╱=╱ // 0x2e4f @0x7
0x2e48…2e53 at0008 = ╱42╱B╱ // 0x2e50 @0x8
0x2e48…2e53 at0009 = ╱b6╱ THEN ╱ // 0x2e51 @0x9
0x2e48…2e53 at000a = EOL // 0x2e52 @0xa
0x2e48…2e53 }
0x2e53…2e59 bbb0 6100 REPEAT
0x2e53…2e59 LineComalBin {
0x2e53…2e59 ptr = 0xbbb0 // 0x2e53 @0x0
0x2e53…2e59 lno = 0x17d4 // 0x2e55 @0x2
0x2e53…2e59 at0004 = ╱97╱ REPEAT ╱ // 0x2e57 @0x4
0x2e53…2e59 at0005 = EOL // 0x2e58 @0x5
0x2e53…2e59 }
0x2e59…2e6d bbc4 6110 CURSOR 4,16
0x2e59…2e6d LineComalBin {
0x2e59…2e6d ptr = 0xbbc4 // 0x2e59 @0x0
0x2e59…2e6d lno = 0x17de // 0x2e5b @0x2
0x2e59…2e6d at0004 = ╱a1╱ CURSOR ╱ // 0x2e5d @0x4
0x2e59…2e6d at0005 = ╱34╱4╱ // 0x2e5e @0x5
0x2e59…2e6d at0006 = ╱fe00008003╱ // 0x2e5f @0x6
0x2e59…2e6d at000b = ╱ec╱,╱ // 0x2e64 @0xb
0x2e59…2e6d at000c = ╱31╱1╱ // 0x2e65 @0xc
0x2e59…2e6d at000d = ╱36╱6╱ // 0x2e66 @0xd
0x2e59…2e6d at000e = ╱fe00008005╱ // 0x2e67 @0xe
0x2e59…2e6d at0013 = EOL // 0x2e6c @0x13
0x2e59…2e6d }
0x2e6d…2e8f bbe6 6120 PRINT "Ønskes ændringer (J/N)"
0x2e6d…2e8f LineComalBin {
0x2e6d…2e8f ptr = 0xbbe6 // 0x2e6d @0x0
0x2e6d…2e8f lno = 0x17e8 // 0x2e6f @0x2
0x2e6d…2e8f at0004 = ╱92╱ PRINT ╱ // 0x2e71 @0x4
0x2e6d…2e8f at0005 = ╱22╱"╱ // 0x2e72 @0x5
0x2e6d…2e8f at0006 = ╱5c╱Ø╱ // 0x2e73 @0x6
0x2e6d…2e8f at0007 = ╱6e╱n╱ // 0x2e74 @0x7
0x2e6d…2e8f at0008 = ╱73╱s╱ // 0x2e75 @0x8
0x2e6d…2e8f at0009 = ╱6b╱k╱ // 0x2e76 @0x9
0x2e6d…2e8f at000a = ╱65╱e╱ // 0x2e77 @0xa
0x2e6d…2e8f at000b = ╱73╱s╱ // 0x2e78 @0xb
0x2e6d…2e8f at000c = ╱20╱…╱ // 0x2e79 @0xc
0x2e6d…2e8f at000d = ╱7b╱æ╱ // 0x2e7a @0xd
0x2e6d…2e8f at000e = ╱6e╱n╱ // 0x2e7b @0xe
0x2e6d…2e8f at000f = ╱64╱d╱ // 0x2e7c @0xf
0x2e6d…2e8f at0010 = ╱72╱r╱ // 0x2e7d @0x10
0x2e6d…2e8f at0011 = ╱69╱i╱ // 0x2e7e @0x11
0x2e6d…2e8f at0012 = ╱6e╱n╱ // 0x2e7f @0x12
0x2e6d…2e8f at0013 = ╱67╱g╱ // 0x2e80 @0x13
0x2e6d…2e8f at0014 = ╱65╱e╱ // 0x2e81 @0x14
0x2e6d…2e8f at0015 = ╱72╱r╱ // 0x2e82 @0x15
0x2e6d…2e8f at0016 = ╱20╱…╱ // 0x2e83 @0x16
0x2e6d…2e8f at0017 = ╱20╱…╱ // 0x2e84 @0x17
0x2e6d…2e8f at0018 = ╱20╱…╱ // 0x2e85 @0x18
0x2e6d…2e8f at0019 = ╱20╱…╱ // 0x2e86 @0x19
0x2e6d…2e8f at001a = ╱20╱…╱ // 0x2e87 @0x1a
0x2e6d…2e8f at001b = ╱28╱(╱ // 0x2e88 @0x1b
0x2e6d…2e8f at001c = ╱4a╱J╱ // 0x2e89 @0x1c
0x2e6d…2e8f at001d = ╱2f╱/╱ // 0x2e8a @0x1d
0x2e6d…2e8f at001e = ╱4e╱N╱ // 0x2e8b @0x1e
0x2e6d…2e8f at001f = ╱29╱)╱ // 0x2e8c @0x1f
0x2e6d…2e8f at0020 = ╱22╱"╱ // 0x2e8d @0x20
0x2e6d…2e8f at0021 = EOL // 0x2e8e @0x21
0x2e6d…2e8f }
0x2e8f…2ea4 bbfb 6130 CURSOR 22,16
0x2e8f…2ea4 LineComalBin {
0x2e8f…2ea4 ptr = 0xbbfb // 0x2e8f @0x0
0x2e8f…2ea4 lno = 0x17f2 // 0x2e91 @0x2
0x2e8f…2ea4 at0004 = ╱a1╱ CURSOR ╱ // 0x2e93 @0x4
0x2e8f…2ea4 at0005 = ╱32╱2╱ // 0x2e94 @0x5
0x2e8f…2ea4 at0006 = ╱32╱2╱ // 0x2e95 @0x6
0x2e8f…2ea4 at0007 = ╱fe0000b005╱ // 0x2e96 @0x7
0x2e8f…2ea4 at000c = ╱ec╱,╱ // 0x2e9b @0xc
0x2e8f…2ea4 at000d = ╱31╱1╱ // 0x2e9c @0xd
0x2e8f…2ea4 at000e = ╱36╱6╱ // 0x2e9d @0xe
0x2e8f…2ea4 at000f = ╱fe00008005╱ // 0x2e9e @0xf
0x2e8f…2ea4 at0014 = EOL // 0x2ea3 @0x14
0x2e8f…2ea4 }
0x2ea4…2eac bc03 6140 INPUT A$
0x2ea4…2eac LineComalBin {
0x2ea4…2eac ptr = 0xbc03 // 0x2ea4 @0x0
0x2ea4…2eac lno = 0x17fc // 0x2ea6 @0x2
0x2ea4…2eac at0004 = ╱91╱ INPUT ╱ // 0x2ea8 @0x4
0x2ea4…2eac at0005 = ╱41╱A╱ // 0x2ea9 @0x5
0x2ea4…2eac at0006 = ╱ef╱$╱ // 0x2eaa @0x6
0x2ea4…2eac at0007 = EOL // 0x2eab @0x7
0x2ea4…2eac }
0x2eac…2eb8 bc0f 6150 EXEC NR(A$)
0x2eac…2eb8 LineComalBin {
0x2eac…2eb8 ptr = 0xbc0f // 0x2eac @0x0
0x2eac…2eb8 lno = 0x1806 // 0x2eae @0x2
0x2eac…2eb8 at0004 = ╱9d╱ EXEC ╱ // 0x2eb0 @0x4
0x2eac…2eb8 at0005 = ╱4e╱N╱ // 0x2eb1 @0x5
0x2eac…2eb8 at0006 = ╱52╱R╱ // 0x2eb2 @0x6
0x2eac…2eb8 at0007 = ╱ed╱(╱ // 0x2eb3 @0x7
0x2eac…2eb8 at0008 = ╱41╱A╱ // 0x2eb4 @0x8
0x2eac…2eb8 at0009 = ╱ef╱$╱ // 0x2eb5 @0x9
0x2eac…2eb8 at000a = ╱ee╱)╱ // 0x2eb6 @0xa
0x2eac…2eb8 at000b = EOL // 0x2eb7 @0xb
0x2eac…2eb8 }
0x2eb8…2ed8 bc2f 6160 UNTIL (P=-7 OR P=-8) AND H4=B
0x2eb8…2ed8 LineComalBin {
0x2eb8…2ed8 ptr = 0xbc2f // 0x2eb8 @0x0
0x2eb8…2ed8 lno = 0x1810 // 0x2eba @0x2
0x2eb8…2ed8 at0004 = ╱98╱ UNTIL ╱ // 0x2ebc @0x4
0x2eb8…2ed8 at0005 = ╱ed╱(╱ // 0x2ebd @0x5
0x2eb8…2ed8 at0006 = ╱50╱P╱ // 0x2ebe @0x6
0x2eb8…2ed8 at0007 = ╱dc╱=╱ // 0x2ebf @0x7
0x2eb8…2ed8 at0008 = ╱e9╱-╱ // 0x2ec0 @0x8
0x2eb8…2ed8 at0009 = ╱37╱7╱ // 0x2ec1 @0x9
0x2eb8…2ed8 at000a = ╱fe0000e003╱ // 0x2ec2 @0xa
0x2eb8…2ed8 at000f = ╱db╱ OR ╱ // 0x2ec7 @0xf
0x2eb8…2ed8 at0010 = ╱50╱P╱ // 0x2ec8 @0x10
0x2eb8…2ed8 at0011 = ╱dc╱=╱ // 0x2ec9 @0x11
0x2eb8…2ed8 at0012 = ╱e9╱-╱ // 0x2eca @0x12
0x2eb8…2ed8 at0013 = ╱38╱8╱ // 0x2ecb @0x13
0x2eb8…2ed8 at0014 = ╱fe00008004╱ // 0x2ecc @0x14
0x2eb8…2ed8 at0019 = ╱ee╱)╱ // 0x2ed1 @0x19
0x2eb8…2ed8 at001a = ╱da╱ AND ╱ // 0x2ed2 @0x1a
0x2eb8…2ed8 at001b = ╱48╱H╱ // 0x2ed3 @0x1b
0x2eb8…2ed8 at001c = ╱34╱4╱ // 0x2ed4 @0x1c
0x2eb8…2ed8 at001d = ╱dc╱=╱ // 0x2ed5 @0x1d
0x2eb8…2ed8 at001e = ╱42╱B╱ // 0x2ed6 @0x1e
0x2eb8…2ed8 at001f = EOL // 0x2ed7 @0x1f
0x2eb8…2ed8 }
0x2ed8…2ede bc35 6170 ENDIF
0x2ed8…2ede LineComalBin {
0x2ed8…2ede ptr = 0xbc35 // 0x2ed8 @0x0
0x2ed8…2ede lno = 0x181a // 0x2eda @0x2
0x2ed8…2ede at0004 = ╱9b╱ ENDIF ╱ // 0x2edc @0x4
0x2ed8…2ede at0005 = EOL // 0x2edd @0x5
0x2ed8…2ede }
0x2ede…2eee bc45 6180 IF P=-7 THEN
0x2ede…2eee LineComalBin {
0x2ede…2eee ptr = 0xbc45 // 0x2ede @0x0
0x2ede…2eee lno = 0x1824 // 0x2ee0 @0x2
0x2ede…2eee at0004 = ╱9c╱ IF ╱ // 0x2ee2 @0x4
0x2ede…2eee at0005 = ╱50╱P╱ // 0x2ee3 @0x5
0x2ede…2eee at0006 = ╱dc╱=╱ // 0x2ee4 @0x6
0x2ede…2eee at0007 = ╱e9╱-╱ // 0x2ee5 @0x7
0x2ede…2eee at0008 = ╱37╱7╱ // 0x2ee6 @0x8
0x2ede…2eee at0009 = ╱fe0000e003╱ // 0x2ee7 @0x9
0x2ede…2eee at000e = ╱b6╱ THEN ╱ // 0x2eec @0xe
0x2ede…2eee at000f = EOL // 0x2eed @0xf
0x2ede…2eee }
0x2eee…2ef6 bc4d 6190 EXEC RE
0x2eee…2ef6 LineComalBin {
0x2eee…2ef6 ptr = 0xbc4d // 0x2eee @0x0
0x2eee…2ef6 lno = 0x182e // 0x2ef0 @0x2
0x2eee…2ef6 at0004 = ╱9d╱ EXEC ╱ // 0x2ef2 @0x4
0x2eee…2ef6 at0005 = ╱52╱R╱ // 0x2ef3 @0x5
0x2eee…2ef6 at0006 = ╱45╱E╱ // 0x2ef4 @0x6
0x2eee…2ef6 at0007 = EOL // 0x2ef5 @0x7
0x2eee…2ef6 }
0x2ef6…2eff bc56 6200 Q0=B
0x2ef6…2eff LineComalBin {
0x2ef6…2eff ptr = 0xbc56 // 0x2ef6 @0x0
0x2ef6…2eff lno = 0x1838 // 0x2ef8 @0x2
0x2ef6…2eff at0004 = ╱51╱Q╱ // 0x2efa @0x4
0x2ef6…2eff at0005 = ╱30╱0╱ // 0x2efb @0x5
0x2ef6…2eff at0006 = ╱dc╱=╱ // 0x2efc @0x6
0x2ef6…2eff at0007 = ╱42╱B╱ // 0x2efd @0x7
0x2ef6…2eff at0008 = EOL // 0x2efe @0x8
0x2ef6…2eff }
0x2eff…2f05 bc5c 6210 ENDIF
0x2eff…2f05 LineComalBin {
0x2eff…2f05 ptr = 0xbc5c // 0x2eff @0x0
0x2eff…2f05 lno = 0x1842 // 0x2f01 @0x2
0x2eff…2f05 at0004 = ╱9b╱ ENDIF ╱ // 0x2f03 @0x4
0x2eff…2f05 at0005 = EOL // 0x2f04 @0x5
0x2eff…2f05 }
0x2f05…2f0b bc62 6220 ENDIF
0x2f05…2f0b LineComalBin {
0x2f05…2f0b ptr = 0xbc62 // 0x2f05 @0x0
0x2f05…2f0b lno = 0x184c // 0x2f07 @0x2
0x2f05…2f0b at0004 = ╱9b╱ ENDIF ╱ // 0x2f09 @0x4
0x2f05…2f0b at0005 = EOL // 0x2f0a @0x5
0x2f05…2f0b }
0x2f0b…2f16 bc6d 6230 UNTIL Q0=-E
0x2f0b…2f16 LineComalBin {
0x2f0b…2f16 ptr = 0xbc6d // 0x2f0b @0x0
0x2f0b…2f16 lno = 0x1856 // 0x2f0d @0x2
0x2f0b…2f16 at0004 = ╱98╱ UNTIL ╱ // 0x2f0f @0x4
0x2f0b…2f16 at0005 = ╱51╱Q╱ // 0x2f10 @0x5
0x2f0b…2f16 at0006 = ╱30╱0╱ // 0x2f11 @0x6
0x2f0b…2f16 at0007 = ╱dc╱=╱ // 0x2f12 @0x7
0x2f0b…2f16 at0008 = ╱e9╱-╱ // 0x2f13 @0x8
0x2f0b…2f16 at0009 = ╱45╱E╱ // 0x2f14 @0x9
0x2f0b…2f16 at000a = EOL // 0x2f15 @0xa
0x2f0b…2f16 }
0x2f16…2f1c bc73 6240 ENDPROC
0x2f16…2f1c LineComalBin {
0x2f16…2f1c ptr = 0xbc73 // 0x2f16 @0x0
0x2f16…2f1c lno = 0x1860 // 0x2f18 @0x2
0x2f16…2f1c at0004 = ╱9f╱ ENDPROC ╱ // 0x2f1a @0x4
0x2f16…2f1c at0005 = EOL // 0x2f1b @0x5
0x2f16…2f1c }
0x2f1c…2f2b bc82 6250 PROC HU(Q1,Q2)
0x2f1c…2f2b LineComalBin {
0x2f1c…2f2b ptr = 0xbc82 // 0x2f1c @0x0
0x2f1c…2f2b lno = 0x186a // 0x2f1e @0x2
0x2f1c…2f2b at0004 = ╱9e╱ PROC ╱ // 0x2f20 @0x4
0x2f1c…2f2b at0005 = ╱48╱H╱ // 0x2f21 @0x5
0x2f1c…2f2b at0006 = ╱55╱U╱ // 0x2f22 @0x6
0x2f1c…2f2b at0007 = ╱ed╱(╱ // 0x2f23 @0x7
0x2f1c…2f2b at0008 = ╱51╱Q╱ // 0x2f24 @0x8
0x2f1c…2f2b at0009 = ╱31╱1╱ // 0x2f25 @0x9
0x2f1c…2f2b at000a = ╱ec╱,╱ // 0x2f26 @0xa
0x2f1c…2f2b at000b = ╱51╱Q╱ // 0x2f27 @0xb
0x2f1c…2f2b at000c = ╱32╱2╱ // 0x2f28 @0xc
0x2f1c…2f2b at000d = ╱ee╱)╱ // 0x2f29 @0xd
0x2f1c…2f2b at000e = EOL // 0x2f2a @0xe
0x2f1c…2f2b }
0x2f2b…2f3b bc92 6260 EXEC DU(Q1,D6$)
0x2f2b…2f3b LineComalBin {
0x2f2b…2f3b ptr = 0xbc92 // 0x2f2b @0x0
0x2f2b…2f3b lno = 0x1874 // 0x2f2d @0x2
0x2f2b…2f3b at0004 = ╱9d╱ EXEC ╱ // 0x2f2f @0x4
0x2f2b…2f3b at0005 = ╱44╱D╱ // 0x2f30 @0x5
0x2f2b…2f3b at0006 = ╱55╱U╱ // 0x2f31 @0x6
0x2f2b…2f3b at0007 = ╱ed╱(╱ // 0x2f32 @0x7
0x2f2b…2f3b at0008 = ╱51╱Q╱ // 0x2f33 @0x8
0x2f2b…2f3b at0009 = ╱31╱1╱ // 0x2f34 @0x9
0x2f2b…2f3b at000a = ╱ec╱,╱ // 0x2f35 @0xa
0x2f2b…2f3b at000b = ╱44╱D╱ // 0x2f36 @0xb
0x2f2b…2f3b at000c = ╱36╱6╱ // 0x2f37 @0xc
0x2f2b…2f3b at000d = ╱ef╱$╱ // 0x2f38 @0xd
0x2f2b…2f3b at000e = ╱ee╱)╱ // 0x2f39 @0xe
0x2f2b…2f3b at000f = EOL // 0x2f3a @0xf
0x2f2b…2f3b }
0x2f3b…2f8e bce5 6280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x2f3b…2f8e LineComalBin {
0x2f3b…2f8e ptr = 0xbce5 // 0x2f3b @0x0
0x2f3b…2f8e lno = 0x1888 // 0x2f3d @0x2
0x2f3b…2f8e at0004 = ╱82╱ IF ╱ // 0x2f3f @0x4
0x2f3b…2f8e at0005 = ╱52╱R╱ // 0x2f40 @0x5
0x2f3b…2f8e at0006 = ╱33╱3╱ // 0x2f41 @0x6
0x2f3b…2f8e at0007 = ╱dc╱=╱ // 0x2f42 @0x7
0x2f3b…2f8e at0008 = ╱33╱3╱ // 0x2f43 @0x8
0x2f3b…2f8e at0009 = ╱36╱6╱ // 0x2f44 @0x9
0x2f3b…2f8e at000a = ╱fe00009006╱ // 0x2f45 @0xa
0x2f3b…2f8e at000f = ╱b6╱ THEN ╱ // 0x2f4a @0xf
0x2f3b…2f8e at0010 = ╱92╱ PRINT ╱ // 0x2f4b @0x10
0x2f3b…2f8e at0011 = ╱cf╱CHR╱ // 0x2f4c @0x11
0x2f3b…2f8e at0012 = ╱ed╱(╱ // 0x2f4d @0x12
0x2f3b…2f8e at0013 = ╱31╱1╱ // 0x2f4e @0x13
0x2f3b…2f8e at0014 = ╱30╱0╱ // 0x2f4f @0x14
0x2f3b…2f8e at0015 = ╱fe0000a004╱ // 0x2f50 @0x15
0x2f3b…2f8e at001a = ╱ee╱)╱ // 0x2f55 @0x1a
0x2f3b…2f8e at001b = ╱eb╱;╱ // 0x2f56 @0x1b
0x2f3b…2f8e at001c = ╱cf╱CHR╱ // 0x2f57 @0x1c
0x2f3b…2f8e at001d = ╱ed╱(╱ // 0x2f58 @0x1d
0x2f3b…2f8e at001e = ╱31╱1╱ // 0x2f59 @0x1e
0x2f3b…2f8e at001f = ╱30╱0╱ // 0x2f5a @0x1f
0x2f3b…2f8e at0020 = ╱fe0000a004╱ // 0x2f5b @0x20
0x2f3b…2f8e at0025 = ╱ee╱)╱ // 0x2f60 @0x25
0x2f3b…2f8e at0026 = ╱eb╱;╱ // 0x2f61 @0x26
0x2f3b…2f8e at0027 = ╱cf╱CHR╱ // 0x2f62 @0x27
0x2f3b…2f8e at0028 = ╱ed╱(╱ // 0x2f63 @0x28
0x2f3b…2f8e at0029 = ╱31╱1╱ // 0x2f64 @0x29
0x2f3b…2f8e at002a = ╱30╱0╱ // 0x2f65 @0x2a
0x2f3b…2f8e at002b = ╱fe0000a004╱ // 0x2f66 @0x2b
0x2f3b…2f8e at0030 = ╱ee╱)╱ // 0x2f6b @0x30
0x2f3b…2f8e at0031 = ╱eb╱;╱ // 0x2f6c @0x31
0x2f3b…2f8e at0032 = ╱cf╱CHR╱ // 0x2f6d @0x32
0x2f3b…2f8e at0033 = ╱ed╱(╱ // 0x2f6e @0x33
0x2f3b…2f8e at0034 = ╱31╱1╱ // 0x2f6f @0x34
0x2f3b…2f8e at0035 = ╱30╱0╱ // 0x2f70 @0x35
0x2f3b…2f8e at0036 = ╱fe0000a004╱ // 0x2f71 @0x36
0x2f3b…2f8e at003b = ╱ee╱)╱ // 0x2f76 @0x3b
0x2f3b…2f8e at003c = ╱eb╱;╱ // 0x2f77 @0x3c
0x2f3b…2f8e at003d = ╱cf╱CHR╱ // 0x2f78 @0x3d
0x2f3b…2f8e at003e = ╱ed╱(╱ // 0x2f79 @0x3e
0x2f3b…2f8e at003f = ╱31╱1╱ // 0x2f7a @0x3f
0x2f3b…2f8e at0040 = ╱30╱0╱ // 0x2f7b @0x40
0x2f3b…2f8e at0041 = ╱fe0000a004╱ // 0x2f7c @0x41
0x2f3b…2f8e at0046 = ╱ee╱)╱ // 0x2f81 @0x46
0x2f3b…2f8e at0047 = ╱eb╱;╱ // 0x2f82 @0x47
0x2f3b…2f8e at0048 = ╱cf╱CHR╱ // 0x2f83 @0x48
0x2f3b…2f8e at0049 = ╱ed╱(╱ // 0x2f84 @0x49
0x2f3b…2f8e at004a = ╱31╱1╱ // 0x2f85 @0x4a
0x2f3b…2f8e at004b = ╱30╱0╱ // 0x2f86 @0x4b
0x2f3b…2f8e at004c = ╱fe0000a004╱ // 0x2f87 @0x4c
0x2f3b…2f8e at0051 = ╱ee╱)╱ // 0x2f8c @0x51
0x2f3b…2f8e at0052 = EOL // 0x2f8d @0x52
0x2f3b…2f8e }
0x2f8e…2fa6 bcfd 6290 PRINT TAB(67);DV$;" "
0x2f8e…2fa6 LineComalBin {
0x2f8e…2fa6 ptr = 0xbcfd // 0x2f8e @0x0
0x2f8e…2fa6 lno = 0x1892 // 0x2f90 @0x2
0x2f8e…2fa6 at0004 = ╱92╱ PRINT ╱ // 0x2f92 @0x4
0x2f8e…2fa6 at0005 = ╱d2╱TAB╱ // 0x2f93 @0x5
0x2f8e…2fa6 at0006 = ╱ed╱(╱ // 0x2f94 @0x6
0x2f8e…2fa6 at0007 = ╱36╱6╱ // 0x2f95 @0x7
0x2f8e…2fa6 at0008 = ╱37╱7╱ // 0x2f96 @0x8
0x2f8e…2fa6 at0009 = ╱fe00008607╱ // 0x2f97 @0x9
0x2f8e…2fa6 at000e = ╱ee╱)╱ // 0x2f9c @0xe
0x2f8e…2fa6 at000f = ╱eb╱;╱ // 0x2f9d @0xf
0x2f8e…2fa6 at0010 = ╱44╱D╱ // 0x2f9e @0x10
0x2f8e…2fa6 at0011 = ╱56╱V╱ // 0x2f9f @0x11
0x2f8e…2fa6 at0012 = ╱ef╱$╱ // 0x2fa0 @0x12
0x2f8e…2fa6 at0013 = ╱eb╱;╱ // 0x2fa1 @0x13
0x2f8e…2fa6 at0014 = ╱22╱"╱ // 0x2fa2 @0x14
0x2f8e…2fa6 at0015 = ╱20╱…╱ // 0x2fa3 @0x15
0x2f8e…2fa6 at0016 = ╱22╱"╱ // 0x2fa4 @0x16
0x2f8e…2fa6 at0017 = EOL // 0x2fa5 @0x17
0x2f8e…2fa6 }
0x2fa6…2fed bd44 6300 PRINT TAB(W);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$;
0x2fa6…2fed LineComalBin {
0x2fa6…2fed ptr = 0xbd44 // 0x2fa6 @0x0
0x2fa6…2fed lno = 0x189c // 0x2fa8 @0x2
0x2fa6…2fed at0004 = ╱92╱ PRINT ╱ // 0x2faa @0x4
0x2fa6…2fed at0005 = ╱d2╱TAB╱ // 0x2fab @0x5
0x2fa6…2fed at0006 = ╱ed╱(╱ // 0x2fac @0x6
0x2fa6…2fed at0007 = ╱57╱W╱ // 0x2fad @0x7
0x2fa6…2fed at0008 = ╱ee╱)╱ // 0x2fae @0x8
0x2fa6…2fed at0009 = ╱eb╱;╱ // 0x2faf @0x9
0x2fa6…2fed at000a = ╱cf╱CHR╱ // 0x2fb0 @0xa
0x2fa6…2fed at000b = ╱ed╱(╱ // 0x2fb1 @0xb
0x2fa6…2fed at000c = ╱31╱1╱ // 0x2fb2 @0xc
0x2fa6…2fed at000d = ╱34╱4╱ // 0x2fb3 @0xd
0x2fa6…2fed at000e = ╱fe0000e004╱ // 0x2fb4 @0xe
0x2fa6…2fed at0013 = ╱ee╱)╱ // 0x2fb9 @0x13
0x2fa6…2fed at0014 = ╱eb╱;╱ // 0x2fba @0x14
0x2fa6…2fed at0015 = ╱22╱"╱ // 0x2fbb @0x15
0x2fa6…2fed at0016 = ╱4b╱K╱ // 0x2fbc @0x16
0x2fa6…2fed at0017 = ╱61╱a╱ // 0x2fbd @0x17
0x2fa6…2fed at0018 = ╱73╱s╱ // 0x2fbe @0x18
0x2fa6…2fed at0019 = ╱73╱s╱ // 0x2fbf @0x19
0x2fa6…2fed at001a = ╱65╱e╱ // 0x2fc0 @0x1a
0x2fa6…2fed at001b = ╱72╱r╱ // 0x2fc1 @0x1b
0x2fa6…2fed at001c = ╱61╱a╱ // 0x2fc2 @0x1c
0x2fa6…2fed at001d = ╱70╱p╱ // 0x2fc3 @0x1d
0x2fa6…2fed at001e = ╱70╱p╱ // 0x2fc4 @0x1e
0x2fa6…2fed at001f = ╱6f╱o╱ // 0x2fc5 @0x1f
0x2fa6…2fed at0020 = ╱72╱r╱ // 0x2fc6 @0x20
0x2fa6…2fed at0021 = ╱74╱t╱ // 0x2fc7 @0x21
0x2fa6…2fed at0022 = ╱22╱"╱ // 0x2fc8 @0x22
0x2fa6…2fed at0023 = ╱eb╱;╱ // 0x2fc9 @0x23
0x2fa6…2fed at0024 = ╱cf╱CHR╱ // 0x2fca @0x24
0x2fa6…2fed at0025 = ╱ed╱(╱ // 0x2fcb @0x25
0x2fa6…2fed at0026 = ╱31╱1╱ // 0x2fcc @0x26
0x2fa6…2fed at0027 = ╱35╱5╱ // 0x2fcd @0x27
0x2fa6…2fed at0028 = ╱fe0000f004╱ // 0x2fce @0x28
0x2fa6…2fed at002d = ╱ee╱)╱ // 0x2fd3 @0x2d
0x2fa6…2fed at002e = ╱eb╱;╱ // 0x2fd4 @0x2e
0x2fa6…2fed at002f = ╱d2╱TAB╱ // 0x2fd5 @0x2f
0x2fa6…2fed at0030 = ╱ed╱(╱ // 0x2fd6 @0x30
0x2fa6…2fed at0031 = ╱34╱4╱ // 0x2fd7 @0x31
0x2fa6…2fed at0032 = ╱34╱4╱ // 0x2fd8 @0x32
0x2fa6…2fed at0033 = ╱fe0000b006╱ // 0x2fd9 @0x33
0x2fa6…2fed at0038 = ╱ee╱)╱ // 0x2fde @0x38
0x2fa6…2fed at0039 = ╱eb╱;╱ // 0x2fdf @0x39
0x2fa6…2fed at003a = ╱22╱"╱ // 0x2fe0 @0x3a
0x2fa6…2fed at003b = ╱44╱D╱ // 0x2fe1 @0x3b
0x2fa6…2fed at003c = ╱61╱a╱ // 0x2fe2 @0x3c
0x2fa6…2fed at003d = ╱74╱t╱ // 0x2fe3 @0x3d
0x2fa6…2fed at003e = ╱6f╱o╱ // 0x2fe4 @0x3e
0x2fa6…2fed at003f = ╱3a╱:╱ // 0x2fe5 @0x3f
0x2fa6…2fed at0040 = ╱22╱"╱ // 0x2fe6 @0x40
0x2fa6…2fed at0041 = ╱eb╱;╱ // 0x2fe7 @0x41
0x2fa6…2fed at0042 = ╱44╱D╱ // 0x2fe8 @0x42
0x2fa6…2fed at0043 = ╱36╱6╱ // 0x2fe9 @0x43
0x2fa6…2fed at0044 = ╱ef╱$╱ // 0x2fea @0x44
0x2fa6…2fed at0045 = ╱eb╱;╱ // 0x2feb @0x45
0x2fa6…2fed at0046 = EOL // 0x2fec @0x46
0x2fa6…2fed }
0x2fed…2ffe bd55 6310 PRINT TAB(61);
0x2fed…2ffe LineComalBin {
0x2fed…2ffe ptr = 0xbd55 // 0x2fed @0x0
0x2fed…2ffe lno = 0x18a6 // 0x2fef @0x2
0x2fed…2ffe at0004 = ╱92╱ PRINT ╱ // 0x2ff1 @0x4
0x2fed…2ffe at0005 = ╱d2╱TAB╱ // 0x2ff2 @0x5
0x2fed…2ffe at0006 = ╱ed╱(╱ // 0x2ff3 @0x6
0x2fed…2ffe at0007 = ╱36╱6╱ // 0x2ff4 @0x7
0x2fed…2ffe at0008 = ╱31╱1╱ // 0x2ff5 @0x8
0x2fed…2ffe at0009 = ╱fe0000f406╱ // 0x2ff6 @0x9
0x2fed…2ffe at000e = ╱ee╱)╱ // 0x2ffb @0xe
0x2fed…2ffe at000f = ╱eb╱;╱ // 0x2ffc @0xf
0x2fed…2ffe at0010 = EOL // 0x2ffd @0x10
0x2fed…2ffe }
0x2ffe…3013 bd6a 6320 PRINT USING "Side:####":Q2
0x2ffe…3013 LineComalBin {
0x2ffe…3013 ptr = 0xbd6a // 0x2ffe @0x0
0x2ffe…3013 lno = 0x18b0 // 0x3000 @0x2
0x2ffe…3013 at0004 = ╱92╱ PRINT ╱ // 0x3002 @0x4
0x2ffe…3013 at0005 = ╱b9╱ USING ╱ // 0x3003 @0x5
0x2ffe…3013 at0006 = ╱22╱"╱ // 0x3004 @0x6
0x2ffe…3013 at0007 = ╱53╱S╱ // 0x3005 @0x7
0x2ffe…3013 at0008 = ╱69╱i╱ // 0x3006 @0x8
0x2ffe…3013 at0009 = ╱64╱d╱ // 0x3007 @0x9
0x2ffe…3013 at000a = ╱65╱e╱ // 0x3008 @0xa
0x2ffe…3013 at000b = ╱3a╱:╱ // 0x3009 @0xb
0x2ffe…3013 at000c = ╱23╱#╱ // 0x300a @0xc
0x2ffe…3013 at000d = ╱23╱#╱ // 0x300b @0xd
0x2ffe…3013 at000e = ╱23╱#╱ // 0x300c @0xe
0x2ffe…3013 at000f = ╱23╱#╱ // 0x300d @0xf
0x2ffe…3013 at0010 = ╱22╱"╱ // 0x300e @0x10
0x2ffe…3013 at0011 = ╱f0╱:╱ // 0x300f @0x11
0x2ffe…3013 at0012 = ╱51╱Q╱ // 0x3010 @0x12
0x2ffe…3013 at0013 = ╱32╱2╱ // 0x3011 @0x13
0x2ffe…3013 at0014 = EOL // 0x3012 @0x14
0x2ffe…3013 }
0x3013…301c bd73 6330 PRINT " "
0x3013…301c LineComalBin {
0x3013…301c ptr = 0xbd73 // 0x3013 @0x0
0x3013…301c lno = 0x18ba // 0x3015 @0x2
0x3013…301c at0004 = ╱92╱ PRINT ╱ // 0x3017 @0x4
0x3013…301c at0005 = ╱22╱"╱ // 0x3018 @0x5
0x3013…301c at0006 = ╱20╱…╱ // 0x3019 @0x6
0x3013…301c at0007 = ╱22╱"╱ // 0x301a @0x7
0x3013…301c at0008 = EOL // 0x301b @0x8
0x3013…301c }
0x301c…3069 bdc0 6340 PRINT TAB(V);"Bilag";TAB(12);"Tekst";TAB(38);"Konto";TAB(45);"Entre.";
0x301c…3069 LineComalBin {
0x301c…3069 ptr = 0xbdc0 // 0x301c @0x0
0x301c…3069 lno = 0x18c4 // 0x301e @0x2
0x301c…3069 at0004 = ╱92╱ PRINT ╱ // 0x3020 @0x4
0x301c…3069 at0005 = ╱d2╱TAB╱ // 0x3021 @0x5
0x301c…3069 at0006 = ╱ed╱(╱ // 0x3022 @0x6
0x301c…3069 at0007 = ╱56╱V╱ // 0x3023 @0x7
0x301c…3069 at0008 = ╱ee╱)╱ // 0x3024 @0x8
0x301c…3069 at0009 = ╱eb╱;╱ // 0x3025 @0x9
0x301c…3069 at000a = ╱22╱"╱ // 0x3026 @0xa
0x301c…3069 at000b = ╱42╱B╱ // 0x3027 @0xb
0x301c…3069 at000c = ╱69╱i╱ // 0x3028 @0xc
0x301c…3069 at000d = ╱6c╱l╱ // 0x3029 @0xd
0x301c…3069 at000e = ╱61╱a╱ // 0x302a @0xe
0x301c…3069 at000f = ╱67╱g╱ // 0x302b @0xf
0x301c…3069 at0010 = ╱22╱"╱ // 0x302c @0x10
0x301c…3069 at0011 = ╱eb╱;╱ // 0x302d @0x11
0x301c…3069 at0012 = ╱d2╱TAB╱ // 0x302e @0x12
0x301c…3069 at0013 = ╱ed╱(╱ // 0x302f @0x13
0x301c…3069 at0014 = ╱31╱1╱ // 0x3030 @0x14
0x301c…3069 at0015 = ╱32╱2╱ // 0x3031 @0x15
0x301c…3069 at0016 = ╱fe0000c004╱ // 0x3032 @0x16
0x301c…3069 at001b = ╱ee╱)╱ // 0x3037 @0x1b
0x301c…3069 at001c = ╱eb╱;╱ // 0x3038 @0x1c
0x301c…3069 at001d = ╱22╱"╱ // 0x3039 @0x1d
0x301c…3069 at001e = ╱54╱T╱ // 0x303a @0x1e
0x301c…3069 at001f = ╱65╱e╱ // 0x303b @0x1f
0x301c…3069 at0020 = ╱6b╱k╱ // 0x303c @0x20
0x301c…3069 at0021 = ╱73╱s╱ // 0x303d @0x21
0x301c…3069 at0022 = ╱74╱t╱ // 0x303e @0x22
0x301c…3069 at0023 = ╱22╱"╱ // 0x303f @0x23
0x301c…3069 at0024 = ╱eb╱;╱ // 0x3040 @0x24
0x301c…3069 at0025 = ╱d2╱TAB╱ // 0x3041 @0x25
0x301c…3069 at0026 = ╱ed╱(╱ // 0x3042 @0x26
0x301c…3069 at0027 = ╱33╱3╱ // 0x3043 @0x27
0x301c…3069 at0028 = ╱38╱8╱ // 0x3044 @0x28
0x301c…3069 at0029 = ╱fe00009806╱ // 0x3045 @0x29
0x301c…3069 at002e = ╱ee╱)╱ // 0x304a @0x2e
0x301c…3069 at002f = ╱eb╱;╱ // 0x304b @0x2f
0x301c…3069 at0030 = ╱22╱"╱ // 0x304c @0x30
0x301c…3069 at0031 = ╱4b╱K╱ // 0x304d @0x31
0x301c…3069 at0032 = ╱6f╱o╱ // 0x304e @0x32
0x301c…3069 at0033 = ╱6e╱n╱ // 0x304f @0x33
0x301c…3069 at0034 = ╱74╱t╱ // 0x3050 @0x34
0x301c…3069 at0035 = ╱6f╱o╱ // 0x3051 @0x35
0x301c…3069 at0036 = ╱22╱"╱ // 0x3052 @0x36
0x301c…3069 at0037 = ╱eb╱;╱ // 0x3053 @0x37
0x301c…3069 at0038 = ╱d2╱TAB╱ // 0x3054 @0x38
0x301c…3069 at0039 = ╱ed╱(╱ // 0x3055 @0x39
0x301c…3069 at003a = ╱34╱4╱ // 0x3056 @0x3a
0x301c…3069 at003b = ╱35╱5╱ // 0x3057 @0x3b
0x301c…3069 at003c = ╱fe0000b406╱ // 0x3058 @0x3c
0x301c…3069 at0041 = ╱ee╱)╱ // 0x305d @0x41
0x301c…3069 at0042 = ╱eb╱;╱ // 0x305e @0x42
0x301c…3069 at0043 = ╱22╱"╱ // 0x305f @0x43
0x301c…3069 at0044 = ╱45╱E╱ // 0x3060 @0x44
0x301c…3069 at0045 = ╱6e╱n╱ // 0x3061 @0x45
0x301c…3069 at0046 = ╱74╱t╱ // 0x3062 @0x46
0x301c…3069 at0047 = ╱72╱r╱ // 0x3063 @0x47
0x301c…3069 at0048 = ╱65╱e╱ // 0x3064 @0x48
0x301c…3069 at0049 = ╱2e╱.╱ // 0x3065 @0x49
0x301c…3069 at004a = ╱22╱"╱ // 0x3066 @0x4a
0x301c…3069 at004b = ╱eb╱;╱ // 0x3067 @0x4b
0x301c…3069 at004c = EOL // 0x3068 @0x4c
0x301c…3069 }
0x3069…30a7 bdfe 6350 PRINT TAB(57);"Debet";TAB(68);"Kredit";TAB(75);"Kode"
0x3069…30a7 LineComalBin {
0x3069…30a7 ptr = 0xbdfe // 0x3069 @0x0
0x3069…30a7 lno = 0x18ce // 0x306b @0x2
0x3069…30a7 at0004 = ╱92╱ PRINT ╱ // 0x306d @0x4
0x3069…30a7 at0005 = ╱d2╱TAB╱ // 0x306e @0x5
0x3069…30a7 at0006 = ╱ed╱(╱ // 0x306f @0x6
0x3069…30a7 at0007 = ╱35╱5╱ // 0x3070 @0x7
0x3069…30a7 at0008 = ╱37╱7╱ // 0x3071 @0x8
0x3069…30a7 at0009 = ╱fe0000e406╱ // 0x3072 @0x9
0x3069…30a7 at000e = ╱ee╱)╱ // 0x3077 @0xe
0x3069…30a7 at000f = ╱eb╱;╱ // 0x3078 @0xf
0x3069…30a7 at0010 = ╱22╱"╱ // 0x3079 @0x10
0x3069…30a7 at0011 = ╱44╱D╱ // 0x307a @0x11
0x3069…30a7 at0012 = ╱65╱e╱ // 0x307b @0x12
0x3069…30a7 at0013 = ╱62╱b╱ // 0x307c @0x13
0x3069…30a7 at0014 = ╱65╱e╱ // 0x307d @0x14
0x3069…30a7 at0015 = ╱74╱t╱ // 0x307e @0x15
0x3069…30a7 at0016 = ╱22╱"╱ // 0x307f @0x16
0x3069…30a7 at0017 = ╱eb╱;╱ // 0x3080 @0x17
0x3069…30a7 at0018 = ╱d2╱TAB╱ // 0x3081 @0x18
0x3069…30a7 at0019 = ╱ed╱(╱ // 0x3082 @0x19
0x3069…30a7 at001a = ╱36╱6╱ // 0x3083 @0x1a
0x3069…30a7 at001b = ╱38╱8╱ // 0x3084 @0x1b
0x3069…30a7 at001c = ╱fe00008807╱ // 0x3085 @0x1c
0x3069…30a7 at0021 = ╱ee╱)╱ // 0x308a @0x21
0x3069…30a7 at0022 = ╱eb╱;╱ // 0x308b @0x22
0x3069…30a7 at0023 = ╱22╱"╱ // 0x308c @0x23
0x3069…30a7 at0024 = ╱4b╱K╱ // 0x308d @0x24
0x3069…30a7 at0025 = ╱72╱r╱ // 0x308e @0x25
0x3069…30a7 at0026 = ╱65╱e╱ // 0x308f @0x26
0x3069…30a7 at0027 = ╱64╱d╱ // 0x3090 @0x27
0x3069…30a7 at0028 = ╱69╱i╱ // 0x3091 @0x28
0x3069…30a7 at0029 = ╱74╱t╱ // 0x3092 @0x29
0x3069…30a7 at002a = ╱22╱"╱ // 0x3093 @0x2a
0x3069…30a7 at002b = ╱eb╱;╱ // 0x3094 @0x2b
0x3069…30a7 at002c = ╱d2╱TAB╱ // 0x3095 @0x2c
0x3069…30a7 at002d = ╱ed╱(╱ // 0x3096 @0x2d
0x3069…30a7 at002e = ╱37╱7╱ // 0x3097 @0x2e
0x3069…30a7 at002f = ╱35╱5╱ // 0x3098 @0x2f
0x3069…30a7 at0030 = ╱fe00009607╱ // 0x3099 @0x30
0x3069…30a7 at0035 = ╱ee╱)╱ // 0x309e @0x35
0x3069…30a7 at0036 = ╱eb╱;╱ // 0x309f @0x36
0x3069…30a7 at0037 = ╱22╱"╱ // 0x30a0 @0x37
0x3069…30a7 at0038 = ╱4b╱K╱ // 0x30a1 @0x38
0x3069…30a7 at0039 = ╱6f╱o╱ // 0x30a2 @0x39
0x3069…30a7 at003a = ╱64╱d╱ // 0x30a3 @0x3a
0x3069…30a7 at003b = ╱65╱e╱ // 0x30a4 @0x3b
0x3069…30a7 at003c = ╱22╱"╱ // 0x30a5 @0x3c
0x3069…30a7 at003d = EOL // 0x30a6 @0x3d
0x3069…30a7 }
0x30a7…30b5 be0c 6360 PRINT TAB(V);A2$
0x30a7…30b5 LineComalBin {
0x30a7…30b5 ptr = 0xbe0c // 0x30a7 @0x0
0x30a7…30b5 lno = 0x18d8 // 0x30a9 @0x2
0x30a7…30b5 at0004 = ╱92╱ PRINT ╱ // 0x30ab @0x4
0x30a7…30b5 at0005 = ╱d2╱TAB╱ // 0x30ac @0x5
0x30a7…30b5 at0006 = ╱ed╱(╱ // 0x30ad @0x6
0x30a7…30b5 at0007 = ╱56╱V╱ // 0x30ae @0x7
0x30a7…30b5 at0008 = ╱ee╱)╱ // 0x30af @0x8
0x30a7…30b5 at0009 = ╱eb╱;╱ // 0x30b0 @0x9
0x30a7…30b5 at000a = ╱41╱A╱ // 0x30b1 @0xa
0x30a7…30b5 at000b = ╱32╱2╱ // 0x30b2 @0xb
0x30a7…30b5 at000c = ╱ef╱$╱ // 0x30b3 @0xc
0x30a7…30b5 at000d = EOL // 0x30b4 @0xd
0x30a7…30b5 }
0x30b5…30bb be12 6370 ENDPROC
0x30b5…30bb LineComalBin {
0x30b5…30bb ptr = 0xbe12 // 0x30b5 @0x0
0x30b5…30bb lno = 0x18e2 // 0x30b7 @0x2
0x30b5…30bb at0004 = ╱9f╱ ENDPROC ╱ // 0x30b9 @0x4
0x30b5…30bb at0005 = EOL // 0x30ba @0x5
0x30b5…30bb }
0x30bb…30da be31 6380 PROC LU(Q3,Q4,Q5,Q6,Q7,Q8,Q15)
0x30bb…30da LineComalBin {
0x30bb…30da ptr = 0xbe31 // 0x30bb @0x0
0x30bb…30da lno = 0x18ec // 0x30bd @0x2
0x30bb…30da at0004 = ╱9e╱ PROC ╱ // 0x30bf @0x4
0x30bb…30da at0005 = ╱4c╱L╱ // 0x30c0 @0x5
0x30bb…30da at0006 = ╱55╱U╱ // 0x30c1 @0x6
0x30bb…30da at0007 = ╱ed╱(╱ // 0x30c2 @0x7
0x30bb…30da at0008 = ╱51╱Q╱ // 0x30c3 @0x8
0x30bb…30da at0009 = ╱33╱3╱ // 0x30c4 @0x9
0x30bb…30da at000a = ╱ec╱,╱ // 0x30c5 @0xa
0x30bb…30da at000b = ╱51╱Q╱ // 0x30c6 @0xb
0x30bb…30da at000c = ╱34╱4╱ // 0x30c7 @0xc
0x30bb…30da at000d = ╱ec╱,╱ // 0x30c8 @0xd
0x30bb…30da at000e = ╱51╱Q╱ // 0x30c9 @0xe
0x30bb…30da at000f = ╱35╱5╱ // 0x30ca @0xf
0x30bb…30da at0010 = ╱ec╱,╱ // 0x30cb @0x10
0x30bb…30da at0011 = ╱51╱Q╱ // 0x30cc @0x11
0x30bb…30da at0012 = ╱36╱6╱ // 0x30cd @0x12
0x30bb…30da at0013 = ╱ec╱,╱ // 0x30ce @0x13
0x30bb…30da at0014 = ╱51╱Q╱ // 0x30cf @0x14
0x30bb…30da at0015 = ╱37╱7╱ // 0x30d0 @0x15
0x30bb…30da at0016 = ╱ec╱,╱ // 0x30d1 @0x16
0x30bb…30da at0017 = ╱51╱Q╱ // 0x30d2 @0x17
0x30bb…30da at0018 = ╱38╱8╱ // 0x30d3 @0x18
0x30bb…30da at0019 = ╱ec╱,╱ // 0x30d4 @0x19
0x30bb…30da at001a = ╱51╱Q╱ // 0x30d5 @0x1a
0x30bb…30da at001b = ╱31╱1╱ // 0x30d6 @0x1b
0x30bb…30da at001c = ╱35╱5╱ // 0x30d7 @0x1c
0x30bb…30da at001d = ╱ee╱)╱ // 0x30d8 @0x1d
0x30bb…30da at001e = EOL // 0x30d9 @0x1e
0x30bb…30da }
0x30da…30e3 be3a 6390 R5=B
0x30da…30e3 LineComalBin {
0x30da…30e3 ptr = 0xbe3a // 0x30da @0x0
0x30da…30e3 lno = 0x18f6 // 0x30dc @0x2
0x30da…30e3 at0004 = ╱52╱R╱ // 0x30de @0x4
0x30da…30e3 at0005 = ╱35╱5╱ // 0x30df @0x5
0x30da…30e3 at0006 = ╱dc╱=╱ // 0x30e0 @0x6
0x30da…30e3 at0007 = ╱42╱B╱ // 0x30e1 @0x7
0x30da…30e3 at0008 = EOL // 0x30e2 @0x8
0x30da…30e3 }
0x30e3…30fd be54 6400 IF Q7$(LEN(Q7$))="+" THEN R5=E
0x30e3…30fd LineComalBin {
0x30e3…30fd ptr = 0xbe54 // 0x30e3 @0x0
0x30e3…30fd lno = 0x1900 // 0x30e5 @0x2
0x30e3…30fd at0004 = ╱82╱ IF ╱ // 0x30e7 @0x4
0x30e3…30fd at0005 = ╱51╱Q╱ // 0x30e8 @0x5
0x30e3…30fd at0006 = ╱37╱7╱ // 0x30e9 @0x6
0x30e3…30fd at0007 = ╱ef╱$╱ // 0x30ea @0x7
0x30e3…30fd at0008 = ╱ed╱(╱ // 0x30eb @0x8
0x30e3…30fd at0009 = ╱cc╱LEN╱ // 0x30ec @0x9
0x30e3…30fd at000a = ╱ed╱(╱ // 0x30ed @0xa
0x30e3…30fd at000b = ╱51╱Q╱ // 0x30ee @0xb
0x30e3…30fd at000c = ╱37╱7╱ // 0x30ef @0xc
0x30e3…30fd at000d = ╱ef╱$╱ // 0x30f0 @0xd
0x30e3…30fd at000e = ╱ee╱)╱ // 0x30f1 @0xe
0x30e3…30fd at000f = ╱ee╱)╱ // 0x30f2 @0xf
0x30e3…30fd at0010 = ╱dc╱=╱ // 0x30f3 @0x10
0x30e3…30fd at0011 = ╱22╱"╱ // 0x30f4 @0x11
0x30e3…30fd at0012 = ╱2b╱+╱ // 0x30f5 @0x12
0x30e3…30fd at0013 = ╱22╱"╱ // 0x30f6 @0x13
0x30e3…30fd at0014 = ╱b6╱ THEN ╱ // 0x30f7 @0x14
0x30e3…30fd at0015 = ╱52╱R╱ // 0x30f8 @0x15
0x30e3…30fd at0016 = ╱35╱5╱ // 0x30f9 @0x16
0x30e3…30fd at0017 = ╱dc╱=╱ // 0x30fa @0x17
0x30e3…30fd at0018 = ╱45╱E╱ // 0x30fb @0x18
0x30e3…30fd at0019 = EOL // 0x30fc @0x19
0x30e3…30fd }
0x30fd…3118 be6f 6410 IF Q3<>-E THEN PRINT USING "#######":Q3;
0x30fd…3118 LineComalBin {
0x30fd…3118 ptr = 0xbe6f // 0x30fd @0x0
0x30fd…3118 lno = 0x190a // 0x30ff @0x2
0x30fd…3118 at0004 = ╱82╱ IF ╱ // 0x3101 @0x4
0x30fd…3118 at0005 = ╱51╱Q╱ // 0x3102 @0x5
0x30fd…3118 at0006 = ╱33╱3╱ // 0x3103 @0x6
0x30fd…3118 at0007 = ╱e1╱<>╱ // 0x3104 @0x7
0x30fd…3118 at0008 = ╱e9╱-╱ // 0x3105 @0x8
0x30fd…3118 at0009 = ╱45╱E╱ // 0x3106 @0x9
0x30fd…3118 at000a = ╱b6╱ THEN ╱ // 0x3107 @0xa
0x30fd…3118 at000b = ╱92╱ PRINT ╱ // 0x3108 @0xb
0x30fd…3118 at000c = ╱b9╱ USING ╱ // 0x3109 @0xc
0x30fd…3118 at000d = ╱22╱"╱ // 0x310a @0xd
0x30fd…3118 at000e = ╱23╱#╱ // 0x310b @0xe
0x30fd…3118 at000f = ╱23╱#╱ // 0x310c @0xf
0x30fd…3118 at0010 = ╱23╱#╱ // 0x310d @0x10
0x30fd…3118 at0011 = ╱23╱#╱ // 0x310e @0x11
0x30fd…3118 at0012 = ╱23╱#╱ // 0x310f @0x12
0x30fd…3118 at0013 = ╱23╱#╱ // 0x3110 @0x13
0x30fd…3118 at0014 = ╱23╱#╱ // 0x3111 @0x14
0x30fd…3118 at0015 = ╱22╱"╱ // 0x3112 @0x15
0x30fd…3118 at0016 = ╱f0╱:╱ // 0x3113 @0x16
0x30fd…3118 at0017 = ╱51╱Q╱ // 0x3114 @0x17
0x30fd…3118 at0018 = ╱33╱3╱ // 0x3115 @0x18
0x30fd…3118 at0019 = ╱eb╱;╱ // 0x3116 @0x19
0x30fd…3118 at001a = EOL // 0x3117 @0x1a
0x30fd…3118 }
0x3118…3148 be9f 6420 IF Q4<10 AND Q4>B THEN Q6$=E5$(Q4)+B7$(E:15)
0x3118…3148 LineComalBin {
0x3118…3148 ptr = 0xbe9f // 0x3118 @0x0
0x3118…3148 lno = 0x1914 // 0x311a @0x2
0x3118…3148 at0004 = ╱82╱ IF ╱ // 0x311c @0x4
0x3118…3148 at0005 = ╱51╱Q╱ // 0x311d @0x5
0x3118…3148 at0006 = ╱34╱4╱ // 0x311e @0x6
0x3118…3148 at0007 = ╱dd╱<╱ // 0x311f @0x7
0x3118…3148 at0008 = ╱31╱1╱ // 0x3120 @0x8
0x3118…3148 at0009 = ╱30╱0╱ // 0x3121 @0x9
0x3118…3148 at000a = ╱fe0000a004╱ // 0x3122 @0xa
0x3118…3148 at000f = ╱da╱ AND ╱ // 0x3127 @0xf
0x3118…3148 at0010 = ╱51╱Q╱ // 0x3128 @0x10
0x3118…3148 at0011 = ╱34╱4╱ // 0x3129 @0x11
0x3118…3148 at0012 = ╱de╱>╱ // 0x312a @0x12
0x3118…3148 at0013 = ╱42╱B╱ // 0x312b @0x13
0x3118…3148 at0014 = ╱b6╱ THEN ╱ // 0x312c @0x14
0x3118…3148 at0015 = ╱51╱Q╱ // 0x312d @0x15
0x3118…3148 at0016 = ╱36╱6╱ // 0x312e @0x16
0x3118…3148 at0017 = ╱ef╱$╱ // 0x312f @0x17
0x3118…3148 at0018 = ╱dc╱=╱ // 0x3130 @0x18
0x3118…3148 at0019 = ╱45╱E╱ // 0x3131 @0x19
0x3118…3148 at001a = ╱35╱5╱ // 0x3132 @0x1a
0x3118…3148 at001b = ╱ef╱$╱ // 0x3133 @0x1b
0x3118…3148 at001c = ╱ed╱(╱ // 0x3134 @0x1c
0x3118…3148 at001d = ╱51╱Q╱ // 0x3135 @0x1d
0x3118…3148 at001e = ╱34╱4╱ // 0x3136 @0x1e
0x3118…3148 at001f = ╱ee╱)╱ // 0x3137 @0x1f
0x3118…3148 at0020 = ╱f1╱+╱ // 0x3138 @0x20
0x3118…3148 at0021 = ╱42╱B╱ // 0x3139 @0x21
0x3118…3148 at0022 = ╱37╱7╱ // 0x313a @0x22
0x3118…3148 at0023 = ╱ef╱$╱ // 0x313b @0x23
0x3118…3148 at0024 = ╱ed╱(╱ // 0x313c @0x24
0x3118…3148 at0025 = ╱45╱E╱ // 0x313d @0x25
0x3118…3148 at0026 = ╱f0╱:╱ // 0x313e @0x26
0x3118…3148 at0027 = ╱31╱1╱ // 0x313f @0x27
0x3118…3148 at0028 = ╱35╱5╱ // 0x3140 @0x28
0x3118…3148 at0029 = ╱fe0000f004╱ // 0x3141 @0x29
0x3118…3148 at002e = ╱ee╱)╱ // 0x3146 @0x2e
0x3118…3148 at002f = EOL // 0x3147 @0x2f
0x3118…3148 }
0x3148…3163 beba 6430 IF Q4<>B THEN PRINT TAB(12);Q6$;
0x3148…3163 LineComalBin {
0x3148…3163 ptr = 0xbeba // 0x3148 @0x0
0x3148…3163 lno = 0x191e // 0x314a @0x2
0x3148…3163 at0004 = ╱82╱ IF ╱ // 0x314c @0x4
0x3148…3163 at0005 = ╱51╱Q╱ // 0x314d @0x5
0x3148…3163 at0006 = ╱34╱4╱ // 0x314e @0x6
0x3148…3163 at0007 = ╱e1╱<>╱ // 0x314f @0x7
0x3148…3163 at0008 = ╱42╱B╱ // 0x3150 @0x8
0x3148…3163 at0009 = ╱b6╱ THEN ╱ // 0x3151 @0x9
0x3148…3163 at000a = ╱92╱ PRINT ╱ // 0x3152 @0xa
0x3148…3163 at000b = ╱d2╱TAB╱ // 0x3153 @0xb
0x3148…3163 at000c = ╱ed╱(╱ // 0x3154 @0xc
0x3148…3163 at000d = ╱31╱1╱ // 0x3155 @0xd
0x3148…3163 at000e = ╱32╱2╱ // 0x3156 @0xe
0x3148…3163 at000f = ╱fe0000c004╱ // 0x3157 @0xf
0x3148…3163 at0014 = ╱ee╱)╱ // 0x315c @0x14
0x3148…3163 at0015 = ╱eb╱;╱ // 0x315d @0x15
0x3148…3163 at0016 = ╱51╱Q╱ // 0x315e @0x16
0x3148…3163 at0017 = ╱36╱6╱ // 0x315f @0x17
0x3148…3163 at0018 = ╱ef╱$╱ // 0x3160 @0x18
0x3148…3163 at0019 = ╱eb╱;╱ // 0x3161 @0x19
0x3148…3163 at001a = EOL // 0x3162 @0x1a
0x3148…3163 }
0x3163…3174 becb 6440 PRINT TAB(37);
0x3163…3174 LineComalBin {
0x3163…3174 ptr = 0xbecb // 0x3163 @0x0
0x3163…3174 lno = 0x1928 // 0x3165 @0x2
0x3163…3174 at0004 = ╱92╱ PRINT ╱ // 0x3167 @0x4
0x3163…3174 at0005 = ╱d2╱TAB╱ // 0x3168 @0x5
0x3163…3174 at0006 = ╱ed╱(╱ // 0x3169 @0x6
0x3163…3174 at0007 = ╱33╱3╱ // 0x316a @0x7
0x3163…3174 at0008 = ╱37╱7╱ // 0x316b @0x8
0x3163…3174 at0009 = ╱fe00009406╱ // 0x316c @0x9
0x3163…3174 at000e = ╱ee╱)╱ // 0x3171 @0xe
0x3163…3174 at000f = ╱eb╱;╱ // 0x3172 @0xf
0x3163…3174 at0010 = EOL // 0x3173 @0x10
0x3163…3174 }
0x3174…3192 bee9 6450 PRINT USING "###### ######":Q5,Q15;
0x3174…3192 LineComalBin {
0x3174…3192 ptr = 0xbee9 // 0x3174 @0x0
0x3174…3192 lno = 0x1932 // 0x3176 @0x2
0x3174…3192 at0004 = ╱92╱ PRINT ╱ // 0x3178 @0x4
0x3174…3192 at0005 = ╱b9╱ USING ╱ // 0x3179 @0x5
0x3174…3192 at0006 = ╱22╱"╱ // 0x317a @0x6
0x3174…3192 at0007 = ╱23╱#╱ // 0x317b @0x7
0x3174…3192 at0008 = ╱23╱#╱ // 0x317c @0x8
0x3174…3192 at0009 = ╱23╱#╱ // 0x317d @0x9
0x3174…3192 at000a = ╱23╱#╱ // 0x317e @0xa
0x3174…3192 at000b = ╱23╱#╱ // 0x317f @0xb
0x3174…3192 at000c = ╱23╱#╱ // 0x3180 @0xc
0x3174…3192 at000d = ╱20╱…╱ // 0x3181 @0xd
0x3174…3192 at000e = ╱23╱#╱ // 0x3182 @0xe
0x3174…3192 at000f = ╱23╱#╱ // 0x3183 @0xf
0x3174…3192 at0010 = ╱23╱#╱ // 0x3184 @0x10
0x3174…3192 at0011 = ╱23╱#╱ // 0x3185 @0x11
0x3174…3192 at0012 = ╱23╱#╱ // 0x3186 @0x12
0x3174…3192 at0013 = ╱23╱#╱ // 0x3187 @0x13
0x3174…3192 at0014 = ╱22╱"╱ // 0x3188 @0x14
0x3174…3192 at0015 = ╱f0╱:╱ // 0x3189 @0x15
0x3174…3192 at0016 = ╱51╱Q╱ // 0x318a @0x16
0x3174…3192 at0017 = ╱35╱5╱ // 0x318b @0x17
0x3174…3192 at0018 = ╱ec╱,╱ // 0x318c @0x18
0x3174…3192 at0019 = ╱51╱Q╱ // 0x318d @0x19
0x3174…3192 at001a = ╱31╱1╱ // 0x318e @0x1a
0x3174…3192 at001b = ╱35╱5╱ // 0x318f @0x1b
0x3174…3192 at001c = ╱eb╱;╱ // 0x3190 @0x1c
0x3174…3192 at001d = EOL // 0x3191 @0x1d
0x3174…3192 }
0x3192…31b1 bf08 6460 EXEC TU(Q7$,B8$,0,0)
0x3192…31b1 LineComalBin {
0x3192…31b1 ptr = 0xbf08 // 0x3192 @0x0
0x3192…31b1 lno = 0x193c // 0x3194 @0x2
0x3192…31b1 at0004 = ╱9d╱ EXEC ╱ // 0x3196 @0x4
0x3192…31b1 at0005 = ╱54╱T╱ // 0x3197 @0x5
0x3192…31b1 at0006 = ╱55╱U╱ // 0x3198 @0x6
0x3192…31b1 at0007 = ╱ed╱(╱ // 0x3199 @0x7
0x3192…31b1 at0008 = ╱51╱Q╱ // 0x319a @0x8
0x3192…31b1 at0009 = ╱37╱7╱ // 0x319b @0x9
0x3192…31b1 at000a = ╱ef╱$╱ // 0x319c @0xa
0x3192…31b1 at000b = ╱ec╱,╱ // 0x319d @0xb
0x3192…31b1 at000c = ╱42╱B╱ // 0x319e @0xc
0x3192…31b1 at000d = ╱38╱8╱ // 0x319f @0xd
0x3192…31b1 at000e = ╱ef╱$╱ // 0x31a0 @0xe
0x3192…31b1 at000f = ╱ec╱,╱ // 0x31a1 @0xf
0x3192…31b1 at0010 = ╱30╱0╱ // 0x31a2 @0x10
0x3192…31b1 at0011 = ╱fe00000000╱ // 0x31a3 @0x11
0x3192…31b1 at0016 = ╱ec╱,╱ // 0x31a8 @0x16
0x3192…31b1 at0017 = ╱30╱0╱ // 0x31a9 @0x17
0x3192…31b1 at0018 = ╱fe00000000╱ // 0x31aa @0x18
0x3192…31b1 at001d = ╱ee╱)╱ // 0x31af @0x1d
0x3192…31b1 at001e = EOL // 0x31b0 @0x1e
0x3192…31b1 }
0x31b1…31e0 bf37 6470 PRINT TAB(52+11*(R5=B));B8$;TAB(77);
0x31b1…31e0 LineComalBin {
0x31b1…31e0 ptr = 0xbf37 // 0x31b1 @0x0
0x31b1…31e0 lno = 0x1946 // 0x31b3 @0x2
0x31b1…31e0 at0004 = ╱92╱ PRINT ╱ // 0x31b5 @0x4
0x31b1…31e0 at0005 = ╱d2╱TAB╱ // 0x31b6 @0x5
0x31b1…31e0 at0006 = ╱ed╱(╱ // 0x31b7 @0x6
0x31b1…31e0 at0007 = ╱35╱5╱ // 0x31b8 @0x7
0x31b1…31e0 at0008 = ╱32╱2╱ // 0x31b9 @0x8
0x31b1…31e0 at0009 = ╱fe0000d006╱ // 0x31ba @0x9
0x31b1…31e0 at000e = ╱e2╱+╱ // 0x31bf @0xe
0x31b1…31e0 at000f = ╱31╱1╱ // 0x31c0 @0xf
0x31b1…31e0 at0010 = ╱31╱1╱ // 0x31c1 @0x10
0x31b1…31e0 at0011 = ╱fe0000b004╱ // 0x31c2 @0x11
0x31b1…31e0 at0016 = ╱e4╱*╱ // 0x31c7 @0x16
0x31b1…31e0 at0017 = ╱ed╱(╱ // 0x31c8 @0x17
0x31b1…31e0 at0018 = ╱52╱R╱ // 0x31c9 @0x18
0x31b1…31e0 at0019 = ╱35╱5╱ // 0x31ca @0x19
0x31b1…31e0 at001a = ╱dc╱=╱ // 0x31cb @0x1a
0x31b1…31e0 at001b = ╱42╱B╱ // 0x31cc @0x1b
0x31b1…31e0 at001c = ╱ee╱)╱ // 0x31cd @0x1c
0x31b1…31e0 at001d = ╱ee╱)╱ // 0x31ce @0x1d
0x31b1…31e0 at001e = ╱eb╱;╱ // 0x31cf @0x1e
0x31b1…31e0 at001f = ╱42╱B╱ // 0x31d0 @0x1f
0x31b1…31e0 at0020 = ╱38╱8╱ // 0x31d1 @0x20
0x31b1…31e0 at0021 = ╱ef╱$╱ // 0x31d2 @0x21
0x31b1…31e0 at0022 = ╱eb╱;╱ // 0x31d3 @0x22
0x31b1…31e0 at0023 = ╱d2╱TAB╱ // 0x31d4 @0x23
0x31b1…31e0 at0024 = ╱ed╱(╱ // 0x31d5 @0x24
0x31b1…31e0 at0025 = ╱37╱7╱ // 0x31d6 @0x25
0x31b1…31e0 at0026 = ╱37╱7╱ // 0x31d7 @0x26
0x31b1…31e0 at0027 = ╱fe00009a07╱ // 0x31d8 @0x27
0x31b1…31e0 at002c = ╱ee╱)╱ // 0x31dd @0x2c
0x31b1…31e0 at002d = ╱eb╱;╱ // 0x31de @0x2d
0x31b1…31e0 at002e = EOL // 0x31df @0x2e
0x31b1…31e0 }
0x31e0…31ee bf45 6480 PRINT USING "##":Q8
0x31e0…31ee LineComalBin {
0x31e0…31ee ptr = 0xbf45 // 0x31e0 @0x0
0x31e0…31ee lno = 0x1950 // 0x31e2 @0x2
0x31e0…31ee at0004 = ╱92╱ PRINT ╱ // 0x31e4 @0x4
0x31e0…31ee at0005 = ╱b9╱ USING ╱ // 0x31e5 @0x5
0x31e0…31ee at0006 = ╱22╱"╱ // 0x31e6 @0x6
0x31e0…31ee at0007 = ╱23╱#╱ // 0x31e7 @0x7
0x31e0…31ee at0008 = ╱23╱#╱ // 0x31e8 @0x8
0x31e0…31ee at0009 = ╱22╱"╱ // 0x31e9 @0x9
0x31e0…31ee at000a = ╱f0╱:╱ // 0x31ea @0xa
0x31e0…31ee at000b = ╱51╱Q╱ // 0x31eb @0xb
0x31e0…31ee at000c = ╱38╱8╱ // 0x31ec @0xc
0x31e0…31ee at000d = EOL // 0x31ed @0xd
0x31e0…31ee }
0x31ee…31f4 (166,) bf4b 6490 ENDPROC
0x31ee…31f4 LineComalBin {
0x31ee…31f4 ptr = 0xbf4b // 0x31ee @0x0
0x31ee…31f4 lno = 0x195a // 0x31f0 @0x2
0x31ee…31f4 at0004 = ╱9f╱ ENDPROC ╱ // 0x31f2 @0x4
0x31ee…31f4 at0005 = EOL // 0x31f3 @0x5
0x31ee…31f4 }
0x31f4…3203 bf5a 6500 PROC DU(Q9,R0)
0x31f4…3203 LineComalBin {
0x31f4…3203 ptr = 0xbf5a // 0x31f4 @0x0
0x31f4…3203 lno = 0x1964 // 0x31f6 @0x2
0x31f4…3203 at0004 = ╱9e╱ PROC ╱ // 0x31f8 @0x4
0x31f4…3203 at0005 = ╱44╱D╱ // 0x31f9 @0x5
0x31f4…3203 at0006 = ╱55╱U╱ // 0x31fa @0x6
0x31f4…3203 at0007 = ╱ed╱(╱ // 0x31fb @0x7
0x31f4…3203 at0008 = ╱51╱Q╱ // 0x31fc @0x8
0x31f4…3203 at0009 = ╱39╱9╱ // 0x31fd @0x9
0x31f4…3203 at000a = ╱ec╱,╱ // 0x31fe @0xa
0x31f4…3203 at000b = ╱52╱R╱ // 0x31ff @0xb
0x31f4…3203 at000c = ╱30╱0╱ // 0x3200 @0xc
0x31f4…3203 at000d = ╱ee╱)╱ // 0x3201 @0xd
0x31f4…3203 at000e = EOL // 0x3202 @0xe
0x31f4…3203 }
0x3203…320d bf64 6510 R1=Q9
0x3203…320d LineComalBin {
0x3203…320d ptr = 0xbf64 // 0x3203 @0x0
0x3203…320d lno = 0x196e // 0x3205 @0x2
0x3203…320d at0004 = ╱52╱R╱ // 0x3207 @0x4
0x3203…320d at0005 = ╱31╱1╱ // 0x3208 @0x5
0x3203…320d at0006 = ╱dc╱=╱ // 0x3209 @0x6
0x3203…320d at0007 = ╱51╱Q╱ // 0x320a @0x7
0x3203…320d at0008 = ╱39╱9╱ // 0x320b @0x8
0x3203…320d at0009 = EOL // 0x320c @0x9
0x3203…320d }
0x320d…3220 bf77 6520 R0$=" "
0x320d…3220 LineComalBin {
0x320d…3220 ptr = 0xbf77 // 0x320d @0x0
0x320d…3220 lno = 0x1978 // 0x320f @0x2
0x320d…3220 at0004 = ╱52╱R╱ // 0x3211 @0x4
0x320d…3220 at0005 = ╱30╱0╱ // 0x3212 @0x5
0x320d…3220 at0006 = ╱ef╱$╱ // 0x3213 @0x6
0x320d…3220 at0007 = ╱dc╱=╱ // 0x3214 @0x7
0x320d…3220 at0008 = ╱22╱"╱ // 0x3215 @0x8
0x320d…3220 at0009 = ╱20╱…╱ // 0x3216 @0x9
0x320d…3220 at000a = ╱20╱…╱ // 0x3217 @0xa
0x320d…3220 at000b = ╱20╱…╱ // 0x3218 @0xb
0x320d…3220 at000c = ╱20╱…╱ // 0x3219 @0xc
0x320d…3220 at000d = ╱20╱…╱ // 0x321a @0xd
0x320d…3220 at000e = ╱20╱…╱ // 0x321b @0xe
0x320d…3220 at000f = ╱20╱…╱ // 0x321c @0xf
0x320d…3220 at0010 = ╱20╱…╱ // 0x321d @0x10
0x320d…3220 at0011 = ╱22╱"╱ // 0x321e @0x11
0x320d…3220 at0012 = EOL // 0x321f @0x12
0x320d…3220 }
0x3220…3233 bf8a 6530 FOR J=8 TO E STEP -E
0x3220…3233 LineComalBin {
0x3220…3233 ptr = 0xbf8a // 0x3220 @0x0
0x3220…3233 lno = 0x1982 // 0x3222 @0x2
0x3220…3233 at0004 = ╱83╱ FOR ╱ // 0x3224 @0x4
0x3220…3233 at0005 = ╱4a╱J╱ // 0x3225 @0x5
0x3220…3233 at0006 = ╱dc╱=╱ // 0x3226 @0x6
0x3220…3233 at0007 = ╱38╱8╱ // 0x3227 @0x7
0x3220…3233 at0008 = ╱fe00008004╱ // 0x3228 @0x8
0x3220…3233 at000d = ╱b7╱ TO ╱ // 0x322d @0xd
0x3220…3233 at000e = ╱45╱E╱ // 0x322e @0xe
0x3220…3233 at000f = ╱b8╱ STEP ╱ // 0x322f @0xf
0x3220…3233 at0010 = ╱e9╱-╱ // 0x3230 @0x10
0x3220…3233 at0011 = ╱45╱E╱ // 0x3231 @0x11
0x3220…3233 at0012 = EOL // 0x3232 @0x12
0x3220…3233 }
0x3233…3242 bf99 6540 R0$(J)="."
0x3233…3242 LineComalBin {
0x3233…3242 ptr = 0xbf99 // 0x3233 @0x0
0x3233…3242 lno = 0x198c // 0x3235 @0x2
0x3233…3242 at0004 = ╱52╱R╱ // 0x3237 @0x4
0x3233…3242 at0005 = ╱30╱0╱ // 0x3238 @0x5
0x3233…3242 at0006 = ╱ef╱$╱ // 0x3239 @0x6
0x3233…3242 at0007 = ╱ed╱(╱ // 0x323a @0x7
0x3233…3242 at0008 = ╱4a╱J╱ // 0x323b @0x8
0x3233…3242 at0009 = ╱ee╱)╱ // 0x323c @0x9
0x3233…3242 at000a = ╱dc╱=╱ // 0x323d @0xa
0x3233…3242 at000b = ╱22╱"╱ // 0x323e @0xb
0x3233…3242 at000c = ╱2e╱.╱ // 0x323f @0xc
0x3233…3242 at000d = ╱22╱"╱ // 0x3240 @0xd
0x3233…3242 at000e = EOL // 0x3241 @0xe
0x3233…3242 }
0x3242…3278 bfcf 6550 IF J MOD V<>B THEN R0$(J)=CHR(R1 MOD 10+48);R1=R1 DIV 10
0x3242…3278 LineComalBin {
0x3242…3278 ptr = 0xbfcf // 0x3242 @0x0
0x3242…3278 lno = 0x1996 // 0x3244 @0x2
0x3242…3278 at0004 = ╱82╱ IF ╱ // 0x3246 @0x4
0x3242…3278 at0005 = ╱4a╱J╱ // 0x3247 @0x5
0x3242…3278 at0006 = ╱e8╱ MOD ╱ // 0x3248 @0x6
0x3242…3278 at0007 = ╱56╱V╱ // 0x3249 @0x7
0x3242…3278 at0008 = ╱e1╱<>╱ // 0x324a @0x8
0x3242…3278 at0009 = ╱42╱B╱ // 0x324b @0x9
0x3242…3278 at000a = ╱b6╱ THEN ╱ // 0x324c @0xa
0x3242…3278 at000b = ╱52╱R╱ // 0x324d @0xb
0x3242…3278 at000c = ╱30╱0╱ // 0x324e @0xc
0x3242…3278 at000d = ╱ef╱$╱ // 0x324f @0xd
0x3242…3278 at000e = ╱ed╱(╱ // 0x3250 @0xe
0x3242…3278 at000f = ╱4a╱J╱ // 0x3251 @0xf
0x3242…3278 at0010 = ╱ee╱)╱ // 0x3252 @0x10
0x3242…3278 at0011 = ╱dc╱=╱ // 0x3253 @0x11
0x3242…3278 at0012 = ╱cf╱CHR╱ // 0x3254 @0x12
0x3242…3278 at0013 = ╱ed╱(╱ // 0x3255 @0x13
0x3242…3278 at0014 = ╱52╱R╱ // 0x3256 @0x14
0x3242…3278 at0015 = ╱31╱1╱ // 0x3257 @0x15
0x3242…3278 at0016 = ╱e8╱ MOD ╱ // 0x3258 @0x16
0x3242…3278 at0017 = ╱31╱1╱ // 0x3259 @0x17
0x3242…3278 at0018 = ╱30╱0╱ // 0x325a @0x18
0x3242…3278 at0019 = ╱fe0000a004╱ // 0x325b @0x19
0x3242…3278 at001e = ╱e2╱+╱ // 0x3260 @0x1e
0x3242…3278 at001f = ╱34╱4╱ // 0x3261 @0x1f
0x3242…3278 at0020 = ╱38╱8╱ // 0x3262 @0x20
0x3242…3278 at0021 = ╱fe0000c006╱ // 0x3263 @0x21
0x3242…3278 at0026 = ╱ee╱)╱ // 0x3268 @0x26
0x3242…3278 at0027 = ╱eb╱;╱ // 0x3269 @0x27
0x3242…3278 at0028 = ╱52╱R╱ // 0x326a @0x28
0x3242…3278 at0029 = ╱31╱1╱ // 0x326b @0x29
0x3242…3278 at002a = ╱dc╱=╱ // 0x326c @0x2a
0x3242…3278 at002b = ╱52╱R╱ // 0x326d @0x2b
0x3242…3278 at002c = ╱31╱1╱ // 0x326e @0x2c
0x3242…3278 at002d = ╱e7╱ DIV ╱ // 0x326f @0x2d
0x3242…3278 at002e = ╱31╱1╱ // 0x3270 @0x2e
0x3242…3278 at002f = ╱30╱0╱ // 0x3271 @0x2f
0x3242…3278 at0030 = ╱fe0000a004╱ // 0x3272 @0x30
0x3242…3278 at0035 = EOL // 0x3277 @0x35
0x3242…3278 }
0x3278…327f bfd6 6560 NEXT J
0x3278…327f LineComalBin {
0x3278…327f ptr = 0xbfd6 // 0x3278 @0x0
0x3278…327f lno = 0x19a0 // 0x327a @0x2
0x3278…327f at0004 = ╱84╱ NEXT ╱ // 0x327c @0x4
0x3278…327f at0005 = ╱4a╱J╱ // 0x327d @0x5
0x3278…327f at0006 = EOL // 0x327e @0x6
0x3278…327f }
0x327f…3285 bfdc 6570 ENDPROC
0x327f…3285 LineComalBin {
0x327f…3285 ptr = 0xbfdc // 0x327f @0x0
0x327f…3285 lno = 0x19aa // 0x3281 @0x2
0x327f…3285 at0004 = ╱9f╱ ENDPROC ╱ // 0x3283 @0x4
0x327f…3285 at0005 = EOL // 0x3284 @0x5
0x327f…3285 }
0x3285…3294 bfeb 6580 PROC UD(R2,R3)
0x3285…3294 LineComalBin {
0x3285…3294 ptr = 0xbfeb // 0x3285 @0x0
0x3285…3294 lno = 0x19b4 // 0x3287 @0x2
0x3285…3294 at0004 = ╱9e╱ PROC ╱ // 0x3289 @0x4
0x3285…3294 at0005 = ╱55╱U╱ // 0x328a @0x5
0x3285…3294 at0006 = ╱44╱D╱ // 0x328b @0x6
0x3285…3294 at0007 = ╱ed╱(╱ // 0x328c @0x7
0x3285…3294 at0008 = ╱52╱R╱ // 0x328d @0x8
0x3285…3294 at0009 = ╱32╱2╱ // 0x328e @0x9
0x3285…3294 at000a = ╱ec╱,╱ // 0x328f @0xa
0x3285…3294 at000b = ╱52╱R╱ // 0x3290 @0xb
0x3285…3294 at000c = ╱33╱3╱ // 0x3291 @0xc
0x3285…3294 at000d = ╱ee╱)╱ // 0x3292 @0xd
0x3285…3294 at000e = EOL // 0x3293 @0xe
0x3285…3294 }
0x3294…32aa c001 6590 IF R3=36 OR R3=B THEN
0x3294…32aa LineComalBin {
0x3294…32aa ptr = 0xc001 // 0x3294 @0x0
0x3294…32aa lno = 0x19be // 0x3296 @0x2
0x3294…32aa at0004 = ╱9c╱ IF ╱ // 0x3298 @0x4
0x3294…32aa at0005 = ╱52╱R╱ // 0x3299 @0x5
0x3294…32aa at0006 = ╱33╱3╱ // 0x329a @0x6
0x3294…32aa at0007 = ╱dc╱=╱ // 0x329b @0x7
0x3294…32aa at0008 = ╱33╱3╱ // 0x329c @0x8
0x3294…32aa at0009 = ╱36╱6╱ // 0x329d @0x9
0x3294…32aa at000a = ╱fe00009006╱ // 0x329e @0xa
0x3294…32aa at000f = ╱db╱ OR ╱ // 0x32a3 @0xf
0x3294…32aa at0010 = ╱52╱R╱ // 0x32a4 @0x10
0x3294…32aa at0011 = ╱33╱3╱ // 0x32a5 @0x11
0x3294…32aa at0012 = ╱dc╱=╱ // 0x32a6 @0x12
0x3294…32aa at0013 = ╱42╱B╱ // 0x32a7 @0x13
0x3294…32aa at0014 = ╱b6╱ THEN ╱ // 0x32a8 @0x14
0x3294…32aa at0015 = EOL // 0x32a9 @0x15
0x3294…32aa }
0x32aa…32b6 c00d 6600 R2=R2+E
0x32aa…32b6 LineComalBin {
0x32aa…32b6 ptr = 0xc00d // 0x32aa @0x0
0x32aa…32b6 lno = 0x19c8 // 0x32ac @0x2
0x32aa…32b6 at0004 = ╱52╱R╱ // 0x32ae @0x4
0x32aa…32b6 at0005 = ╱32╱2╱ // 0x32af @0x5
0x32aa…32b6 at0006 = ╱dc╱=╱ // 0x32b0 @0x6
0x32aa…32b6 at0007 = ╱52╱R╱ // 0x32b1 @0x7
0x32aa…32b6 at0008 = ╱32╱2╱ // 0x32b2 @0x8
0x32aa…32b6 at0009 = ╱e2╱+╱ // 0x32b3 @0x9
0x32aa…32b6 at000a = ╱45╱E╱ // 0x32b4 @0xa
0x32aa…32b6 at000b = EOL // 0x32b5 @0xb
0x32aa…32b6 }
0x32b6…32c5 c01c 6610 EXEC HU(R4,R2)
0x32b6…32c5 LineComalBin {
0x32b6…32c5 ptr = 0xc01c // 0x32b6 @0x0
0x32b6…32c5 lno = 0x19d2 // 0x32b8 @0x2
0x32b6…32c5 at0004 = ╱9d╱ EXEC ╱ // 0x32ba @0x4
0x32b6…32c5 at0005 = ╱48╱H╱ // 0x32bb @0x5
0x32b6…32c5 at0006 = ╱55╱U╱ // 0x32bc @0x6
0x32b6…32c5 at0007 = ╱ed╱(╱ // 0x32bd @0x7
0x32b6…32c5 at0008 = ╱52╱R╱ // 0x32be @0x8
0x32b6…32c5 at0009 = ╱34╱4╱ // 0x32bf @0x9
0x32b6…32c5 at000a = ╱ec╱,╱ // 0x32c0 @0xa
0x32b6…32c5 at000b = ╱52╱R╱ // 0x32c1 @0xb
0x32b6…32c5 at000c = ╱32╱2╱ // 0x32c2 @0xc
0x32b6…32c5 at000d = ╱ee╱)╱ // 0x32c3 @0xd
0x32b6…32c5 at000e = EOL // 0x32c4 @0xe
0x32b6…32c5 }
0x32c5…32ce c025 6620 R3=B
0x32c5…32ce LineComalBin {
0x32c5…32ce ptr = 0xc025 // 0x32c5 @0x0
0x32c5…32ce lno = 0x19dc // 0x32c7 @0x2
0x32c5…32ce at0004 = ╱52╱R╱ // 0x32c9 @0x4
0x32c5…32ce at0005 = ╱33╱3╱ // 0x32ca @0x5
0x32c5…32ce at0006 = ╱dc╱=╱ // 0x32cb @0x6
0x32c5…32ce at0007 = ╱42╱B╱ // 0x32cc @0x7
0x32c5…32ce at0008 = EOL // 0x32cd @0x8
0x32c5…32ce }
0x32ce…32d4 c02b 6630 ENDIF
0x32ce…32d4 LineComalBin {
0x32ce…32d4 ptr = 0xc02b // 0x32ce @0x0
0x32ce…32d4 lno = 0x19e6 // 0x32d0 @0x2
0x32ce…32d4 at0004 = ╱9b╱ ENDIF ╱ // 0x32d2 @0x4
0x32ce…32d4 at0005 = EOL // 0x32d3 @0x5
0x32ce…32d4 }
0x32d4…32e0 c037 6640 R3=R3+E
0x32d4…32e0 LineComalBin {
0x32d4…32e0 ptr = 0xc037 // 0x32d4 @0x0
0x32d4…32e0 lno = 0x19f0 // 0x32d6 @0x2
0x32d4…32e0 at0004 = ╱52╱R╱ // 0x32d8 @0x4
0x32d4…32e0 at0005 = ╱33╱3╱ // 0x32d9 @0x5
0x32d4…32e0 at0006 = ╱dc╱=╱ // 0x32da @0x6
0x32d4…32e0 at0007 = ╱52╱R╱ // 0x32db @0x7
0x32d4…32e0 at0008 = ╱33╱3╱ // 0x32dc @0x8
0x32d4…32e0 at0009 = ╱e2╱+╱ // 0x32dd @0x9
0x32d4…32e0 at000a = ╱45╱E╱ // 0x32de @0xa
0x32d4…32e0 at000b = EOL // 0x32df @0xb
0x32d4…32e0 }
0x32e0…3301 c058 6650 EXEC LU(H7,I7,H6,E3$,F4$,H8,H16)
0x32e0…3301 LineComalBin {
0x32e0…3301 ptr = 0xc058 // 0x32e0 @0x0
0x32e0…3301 lno = 0x19fa // 0x32e2 @0x2
0x32e0…3301 at0004 = ╱9d╱ EXEC ╱ // 0x32e4 @0x4
0x32e0…3301 at0005 = ╱4c╱L╱ // 0x32e5 @0x5
0x32e0…3301 at0006 = ╱55╱U╱ // 0x32e6 @0x6
0x32e0…3301 at0007 = ╱ed╱(╱ // 0x32e7 @0x7
0x32e0…3301 at0008 = ╱48╱H╱ // 0x32e8 @0x8
0x32e0…3301 at0009 = ╱37╱7╱ // 0x32e9 @0x9
0x32e0…3301 at000a = ╱ec╱,╱ // 0x32ea @0xa
0x32e0…3301 at000b = ╱49╱I╱ // 0x32eb @0xb
0x32e0…3301 at000c = ╱37╱7╱ // 0x32ec @0xc
0x32e0…3301 at000d = ╱ec╱,╱ // 0x32ed @0xd
0x32e0…3301 at000e = ╱48╱H╱ // 0x32ee @0xe
0x32e0…3301 at000f = ╱36╱6╱ // 0x32ef @0xf
0x32e0…3301 at0010 = ╱ec╱,╱ // 0x32f0 @0x10
0x32e0…3301 at0011 = ╱45╱E╱ // 0x32f1 @0x11
0x32e0…3301 at0012 = ╱33╱3╱ // 0x32f2 @0x12
0x32e0…3301 at0013 = ╱ef╱$╱ // 0x32f3 @0x13
0x32e0…3301 at0014 = ╱ec╱,╱ // 0x32f4 @0x14
0x32e0…3301 at0015 = ╱46╱F╱ // 0x32f5 @0x15
0x32e0…3301 at0016 = ╱34╱4╱ // 0x32f6 @0x16
0x32e0…3301 at0017 = ╱ef╱$╱ // 0x32f7 @0x17
0x32e0…3301 at0018 = ╱ec╱,╱ // 0x32f8 @0x18
0x32e0…3301 at0019 = ╱48╱H╱ // 0x32f9 @0x19
0x32e0…3301 at001a = ╱38╱8╱ // 0x32fa @0x1a
0x32e0…3301 at001b = ╱ec╱,╱ // 0x32fb @0x1b
0x32e0…3301 at001c = ╱48╱H╱ // 0x32fc @0x1c
0x32e0…3301 at001d = ╱31╱1╱ // 0x32fd @0x1d
0x32e0…3301 at001e = ╱36╱6╱ // 0x32fe @0x1e
0x32e0…3301 at001f = ╱ee╱)╱ // 0x32ff @0x1f
0x32e0…3301 at0020 = EOL // 0x3300 @0x20
0x32e0…3301 }
0x3301…3307 c05e 6660 ENDPROC
0x3301…3307 LineComalBin {
0x3301…3307 ptr = 0xc05e // 0x3301 @0x0
0x3301…3307 lno = 0x1a04 // 0x3303 @0x2
0x3301…3307 at0004 = ╱9f╱ ENDPROC ╱ // 0x3305 @0x4
0x3301…3307 at0005 = EOL // 0x3306 @0x5
0x3301…3307 }
0x3307…3316 c06d 6670 PROC MO(R6,R7)
0x3307…3316 LineComalBin {
0x3307…3316 ptr = 0xc06d // 0x3307 @0x0
0x3307…3316 lno = 0x1a0e // 0x3309 @0x2
0x3307…3316 at0004 = ╱9e╱ PROC ╱ // 0x330b @0x4
0x3307…3316 at0005 = ╱4d╱M╱ // 0x330c @0x5
0x3307…3316 at0006 = ╱4f╱O╱ // 0x330d @0x6
0x3307…3316 at0007 = ╱ed╱(╱ // 0x330e @0x7
0x3307…3316 at0008 = ╱52╱R╱ // 0x330f @0x8
0x3307…3316 at0009 = ╱36╱6╱ // 0x3310 @0x9
0x3307…3316 at000a = ╱ec╱,╱ // 0x3311 @0xa
0x3307…3316 at000b = ╱52╱R╱ // 0x3312 @0xb
0x3307…3316 at000c = ╱37╱7╱ // 0x3313 @0xc
0x3307…3316 at000d = ╱ee╱)╱ // 0x3314 @0xd
0x3307…3316 at000e = EOL // 0x3315 @0xe
0x3307…3316 }
0x3316…3324 c07b 6680 I5=LEN(R7$)
0x3316…3324 LineComalBin {
0x3316…3324 ptr = 0xc07b // 0x3316 @0x0
0x3316…3324 lno = 0x1a18 // 0x3318 @0x2
0x3316…3324 at0004 = ╱49╱I╱ // 0x331a @0x4
0x3316…3324 at0005 = ╱35╱5╱ // 0x331b @0x5
0x3316…3324 at0006 = ╱dc╱=╱ // 0x331c @0x6
0x3316…3324 at0007 = ╱cc╱LEN╱ // 0x331d @0x7
0x3316…3324 at0008 = ╱ed╱(╱ // 0x331e @0x8
0x3316…3324 at0009 = ╱52╱R╱ // 0x331f @0x9
0x3316…3324 at000a = ╱37╱7╱ // 0x3320 @0xa
0x3316…3324 at000b = ╱ef╱$╱ // 0x3321 @0xb
0x3316…3324 at000c = ╱ee╱)╱ // 0x3322 @0xc
0x3316…3324 at000d = EOL // 0x3323 @0xd
0x3316…3324 }
0x3324…333c c093 6690 R6$=R7$(E:I5-E)+"+"
0x3324…333c LineComalBin {
0x3324…333c ptr = 0xc093 // 0x3324 @0x0
0x3324…333c lno = 0x1a22 // 0x3326 @0x2
0x3324…333c at0004 = ╱52╱R╱ // 0x3328 @0x4
0x3324…333c at0005 = ╱36╱6╱ // 0x3329 @0x5
0x3324…333c at0006 = ╱ef╱$╱ // 0x332a @0x6
0x3324…333c at0007 = ╱dc╱=╱ // 0x332b @0x7
0x3324…333c at0008 = ╱52╱R╱ // 0x332c @0x8
0x3324…333c at0009 = ╱37╱7╱ // 0x332d @0x9
0x3324…333c at000a = ╱ef╱$╱ // 0x332e @0xa
0x3324…333c at000b = ╱ed╱(╱ // 0x332f @0xb
0x3324…333c at000c = ╱45╱E╱ // 0x3330 @0xc
0x3324…333c at000d = ╱f0╱:╱ // 0x3331 @0xd
0x3324…333c at000e = ╱49╱I╱ // 0x3332 @0xe
0x3324…333c at000f = ╱35╱5╱ // 0x3333 @0xf
0x3324…333c at0010 = ╱e3╱-╱ // 0x3334 @0x10
0x3324…333c at0011 = ╱45╱E╱ // 0x3335 @0x11
0x3324…333c at0012 = ╱ee╱)╱ // 0x3336 @0x12
0x3324…333c at0013 = ╱f1╱+╱ // 0x3337 @0x13
0x3324…333c at0014 = ╱22╱"╱ // 0x3338 @0x14
0x3324…333c at0015 = ╱2b╱+╱ // 0x3339 @0x15
0x3324…333c at0016 = ╱22╱"╱ // 0x333a @0x16
0x3324…333c at0017 = EOL // 0x333b @0x17
0x3324…333c }
0x333c…3361 c0b8 6700 IF R7$(I5)="+" THEN R6$=R7$(E:I5-E)+"-"
0x333c…3361 LineComalBin {
0x333c…3361 ptr = 0xc0b8 // 0x333c @0x0
0x333c…3361 lno = 0x1a2c // 0x333e @0x2
0x333c…3361 at0004 = ╱82╱ IF ╱ // 0x3340 @0x4
0x333c…3361 at0005 = ╱52╱R╱ // 0x3341 @0x5
0x333c…3361 at0006 = ╱37╱7╱ // 0x3342 @0x6
0x333c…3361 at0007 = ╱ef╱$╱ // 0x3343 @0x7
0x333c…3361 at0008 = ╱ed╱(╱ // 0x3344 @0x8
0x333c…3361 at0009 = ╱49╱I╱ // 0x3345 @0x9
0x333c…3361 at000a = ╱35╱5╱ // 0x3346 @0xa
0x333c…3361 at000b = ╱ee╱)╱ // 0x3347 @0xb
0x333c…3361 at000c = ╱dc╱=╱ // 0x3348 @0xc
0x333c…3361 at000d = ╱22╱"╱ // 0x3349 @0xd
0x333c…3361 at000e = ╱2b╱+╱ // 0x334a @0xe
0x333c…3361 at000f = ╱22╱"╱ // 0x334b @0xf
0x333c…3361 at0010 = ╱b6╱ THEN ╱ // 0x334c @0x10
0x333c…3361 at0011 = ╱52╱R╱ // 0x334d @0x11
0x333c…3361 at0012 = ╱36╱6╱ // 0x334e @0x12
0x333c…3361 at0013 = ╱ef╱$╱ // 0x334f @0x13
0x333c…3361 at0014 = ╱dc╱=╱ // 0x3350 @0x14
0x333c…3361 at0015 = ╱52╱R╱ // 0x3351 @0x15
0x333c…3361 at0016 = ╱37╱7╱ // 0x3352 @0x16
0x333c…3361 at0017 = ╱ef╱$╱ // 0x3353 @0x17
0x333c…3361 at0018 = ╱ed╱(╱ // 0x3354 @0x18
0x333c…3361 at0019 = ╱45╱E╱ // 0x3355 @0x19
0x333c…3361 at001a = ╱f0╱:╱ // 0x3356 @0x1a
0x333c…3361 at001b = ╱49╱I╱ // 0x3357 @0x1b
0x333c…3361 at001c = ╱35╱5╱ // 0x3358 @0x1c
0x333c…3361 at001d = ╱e3╱-╱ // 0x3359 @0x1d
0x333c…3361 at001e = ╱45╱E╱ // 0x335a @0x1e
0x333c…3361 at001f = ╱ee╱)╱ // 0x335b @0x1f
0x333c…3361 at0020 = ╱f1╱+╱ // 0x335c @0x20
0x333c…3361 at0021 = ╱22╱"╱ // 0x335d @0x21
0x333c…3361 at0022 = ╱2d╱-╱ // 0x335e @0x22
0x333c…3361 at0023 = ╱22╱"╱ // 0x335f @0x23
0x333c…3361 at0024 = EOL // 0x3360 @0x24
0x333c…3361 }
0x3361…3367 c0be 6710 ENDIF
0x3361…3367 LineComalBin {
0x3361…3367 ptr = 0xc0be // 0x3361 @0x0
0x3361…3367 lno = 0x1a36 // 0x3363 @0x2
0x3361…3367 at0004 = ╱9b╱ ENDIF ╱ // 0x3365 @0x4
0x3361…3367 at0005 = EOL // 0x3366 @0x5
0x3361…3367 }
0x3367…336d c0c4 6720 ENDPROC
0x3367…336d LineComalBin {
0x3367…336d ptr = 0xc0c4 // 0x3367 @0x0
0x3367…336d lno = 0x1a40 // 0x3369 @0x2
0x3367…336d at0004 = ╱9f╱ ENDPROC ╱ // 0x336b @0x4
0x3367…336d at0005 = EOL // 0x336c @0x5
0x3367…336d }
0x336d…3375 c0cc 6730 PROC GB
0x336d…3375 LineComalBin {
0x336d…3375 ptr = 0xc0cc // 0x336d @0x0
0x336d…3375 lno = 0x1a4a // 0x336f @0x2
0x336d…3375 at0004 = ╱9e╱ PROC ╱ // 0x3371 @0x4
0x336d…3375 at0005 = ╱47╱G╱ // 0x3372 @0x5
0x336d…3375 at0006 = ╱42╱B╱ // 0x3373 @0x6
0x336d…3375 at0007 = EOL // 0x3374 @0x7
0x336d…3375 }
0x3375…3387 c0de 6740 J7=L3;J7=J7+E
0x3375…3387 LineComalBin {
0x3375…3387 ptr = 0xc0de // 0x3375 @0x0
0x3375…3387 lno = 0x1a54 // 0x3377 @0x2
0x3375…3387 at0004 = ╱4a╱J╱ // 0x3379 @0x4
0x3375…3387 at0005 = ╱37╱7╱ // 0x337a @0x5
0x3375…3387 at0006 = ╱dc╱=╱ // 0x337b @0x6
0x3375…3387 at0007 = ╱4c╱L╱ // 0x337c @0x7
0x3375…3387 at0008 = ╱33╱3╱ // 0x337d @0x8
0x3375…3387 at0009 = ╱eb╱;╱ // 0x337e @0x9
0x3375…3387 at000a = ╱4a╱J╱ // 0x337f @0xa
0x3375…3387 at000b = ╱37╱7╱ // 0x3380 @0xb
0x3375…3387 at000c = ╱dc╱=╱ // 0x3381 @0xc
0x3375…3387 at000d = ╱4a╱J╱ // 0x3382 @0xd
0x3375…3387 at000e = ╱37╱7╱ // 0x3383 @0xe
0x3375…3387 at000f = ╱e2╱+╱ // 0x3384 @0xf
0x3375…3387 at0010 = ╱45╱E╱ // 0x3385 @0x10
0x3375…3387 at0011 = EOL // 0x3386 @0x11
0x3375…3387 }
0x3387…33b6 c10d 6750 EXEC GP(D3$,J7,H6,L4,H7,I7,E3$,F3$,1,H16)
0x3387…33b6 LineComalBin {
0x3387…33b6 ptr = 0xc10d // 0x3387 @0x0
0x3387…33b6 lno = 0x1a5e // 0x3389 @0x2
0x3387…33b6 at0004 = ╱9d╱ EXEC ╱ // 0x338b @0x4
0x3387…33b6 at0005 = ╱47╱G╱ // 0x338c @0x5
0x3387…33b6 at0006 = ╱50╱P╱ // 0x338d @0x6
0x3387…33b6 at0007 = ╱ed╱(╱ // 0x338e @0x7
0x3387…33b6 at0008 = ╱44╱D╱ // 0x338f @0x8
0x3387…33b6 at0009 = ╱33╱3╱ // 0x3390 @0x9
0x3387…33b6 at000a = ╱ef╱$╱ // 0x3391 @0xa
0x3387…33b6 at000b = ╱ec╱,╱ // 0x3392 @0xb
0x3387…33b6 at000c = ╱4a╱J╱ // 0x3393 @0xc
0x3387…33b6 at000d = ╱37╱7╱ // 0x3394 @0xd
0x3387…33b6 at000e = ╱ec╱,╱ // 0x3395 @0xe
0x3387…33b6 at000f = ╱48╱H╱ // 0x3396 @0xf
0x3387…33b6 at0010 = ╱36╱6╱ // 0x3397 @0x10
0x3387…33b6 at0011 = ╱ec╱,╱ // 0x3398 @0x11
0x3387…33b6 at0012 = ╱4c╱L╱ // 0x3399 @0x12
0x3387…33b6 at0013 = ╱34╱4╱ // 0x339a @0x13
0x3387…33b6 at0014 = ╱ec╱,╱ // 0x339b @0x14
0x3387…33b6 at0015 = ╱48╱H╱ // 0x339c @0x15
0x3387…33b6 at0016 = ╱37╱7╱ // 0x339d @0x16
0x3387…33b6 at0017 = ╱ec╱,╱ // 0x339e @0x17
0x3387…33b6 at0018 = ╱49╱I╱ // 0x339f @0x18
0x3387…33b6 at0019 = ╱37╱7╱ // 0x33a0 @0x19
0x3387…33b6 at001a = ╱ec╱,╱ // 0x33a1 @0x1a
0x3387…33b6 at001b = ╱45╱E╱ // 0x33a2 @0x1b
0x3387…33b6 at001c = ╱33╱3╱ // 0x33a3 @0x1c
0x3387…33b6 at001d = ╱ef╱$╱ // 0x33a4 @0x1d
0x3387…33b6 at001e = ╱ec╱,╱ // 0x33a5 @0x1e
0x3387…33b6 at001f = ╱46╱F╱ // 0x33a6 @0x1f
0x3387…33b6 at0020 = ╱33╱3╱ // 0x33a7 @0x20
0x3387…33b6 at0021 = ╱ef╱$╱ // 0x33a8 @0x21
0x3387…33b6 at0022 = ╱ec╱,╱ // 0x33a9 @0x22
0x3387…33b6 at0023 = ╱31╱1╱ // 0x33aa @0x23
0x3387…33b6 at0024 = ╱fe00008001╱ // 0x33ab @0x24
0x3387…33b6 at0029 = ╱ec╱,╱ // 0x33b0 @0x29
0x3387…33b6 at002a = ╱48╱H╱ // 0x33b1 @0x2a
0x3387…33b6 at002b = ╱31╱1╱ // 0x33b2 @0x2b
0x3387…33b6 at002c = ╱36╱6╱ // 0x33b3 @0x2c
0x3387…33b6 at002d = ╱ee╱)╱ // 0x33b4 @0x2d
0x3387…33b6 at002e = EOL // 0x33b5 @0x2e
0x3387…33b6 }
0x33b6…33c0 c117 6760 L3=J7
0x33b6…33c0 LineComalBin {
0x33b6…33c0 ptr = 0xc117 // 0x33b6 @0x0
0x33b6…33c0 lno = 0x1a68 // 0x33b8 @0x2
0x33b6…33c0 at0004 = ╱4c╱L╱ // 0x33ba @0x4
0x33b6…33c0 at0005 = ╱33╱3╱ // 0x33bb @0x5
0x33b6…33c0 at0006 = ╱dc╱=╱ // 0x33bc @0x6
0x33b6…33c0 at0007 = ╱4a╱J╱ // 0x33bd @0x7
0x33b6…33c0 at0008 = ╱37╱7╱ // 0x33be @0x8
0x33b6…33c0 at0009 = EOL // 0x33bf @0x9
0x33b6…33c0 }
0x33c0…33c6 c11d 6770 ENDPROC
0x33c0…33c6 LineComalBin {
0x33c0…33c6 ptr = 0xc11d // 0x33c0 @0x0
0x33c0…33c6 lno = 0x1a72 // 0x33c2 @0x2
0x33c0…33c6 at0004 = ╱9f╱ ENDPROC ╱ // 0x33c4 @0x4
0x33c0…33c6 at0005 = EOL // 0x33c5 @0x5
0x33c0…33c6 }
0x33c6…33ce c125 6780 PROC BU
0x33c6…33ce LineComalBin {
0x33c6…33ce ptr = 0xc125 // 0x33c6 @0x0
0x33c6…33ce lno = 0x1a7c // 0x33c8 @0x2
0x33c6…33ce at0004 = ╱9e╱ PROC ╱ // 0x33ca @0x4
0x33c6…33ce at0005 = ╱42╱B╱ // 0x33cb @0x5
0x33c6…33ce at0006 = ╱55╱U╱ // 0x33cc @0x6
0x33c6…33ce at0007 = EOL // 0x33cd @0x7
0x33c6…33ce }
0x33ce…33e0 c137 6790 FOR I=R8 TO 36
0x33ce…33e0 LineComalBin {
0x33ce…33e0 ptr = 0xc137 // 0x33ce @0x0
0x33ce…33e0 lno = 0x1a86 // 0x33d0 @0x2
0x33ce…33e0 at0004 = ╱83╱ FOR ╱ // 0x33d2 @0x4
0x33ce…33e0 at0005 = ╱49╱I╱ // 0x33d3 @0x5
0x33ce…33e0 at0006 = ╱dc╱=╱ // 0x33d4 @0x6
0x33ce…33e0 at0007 = ╱52╱R╱ // 0x33d5 @0x7
0x33ce…33e0 at0008 = ╱38╱8╱ // 0x33d6 @0x8
0x33ce…33e0 at0009 = ╱b7╱ TO ╱ // 0x33d7 @0x9
0x33ce…33e0 at000a = ╱33╱3╱ // 0x33d8 @0xa
0x33ce…33e0 at000b = ╱36╱6╱ // 0x33d9 @0xb
0x33ce…33e0 at000c = ╱fe00009006╱ // 0x33da @0xc
0x33ce…33e0 at0011 = EOL // 0x33df @0x11
0x33ce…33e0 }
0x33e0…33e9 c140 6800 PRINT " "
0x33e0…33e9 LineComalBin {
0x33e0…33e9 ptr = 0xc140 // 0x33e0 @0x0
0x33e0…33e9 lno = 0x1a90 // 0x33e2 @0x2
0x33e0…33e9 at0004 = ╱92╱ PRINT ╱ // 0x33e4 @0x4
0x33e0…33e9 at0005 = ╱22╱"╱ // 0x33e5 @0x5
0x33e0…33e9 at0006 = ╱20╱…╱ // 0x33e6 @0x6
0x33e0…33e9 at0007 = ╱22╱"╱ // 0x33e7 @0x7
0x33e0…33e9 at0008 = EOL // 0x33e8 @0x8
0x33e0…33e9 }
0x33e9…33f0 c147 6810 NEXT I
0x33e9…33f0 LineComalBin {
0x33e9…33f0 ptr = 0xc147 // 0x33e9 @0x0
0x33e9…33f0 lno = 0x1a9a // 0x33eb @0x2
0x33e9…33f0 at0004 = ╱84╱ NEXT ╱ // 0x33ed @0x4
0x33e9…33f0 at0005 = ╱49╱I╱ // 0x33ee @0x5
0x33e9…33f0 at0006 = EOL // 0x33ef @0x6
0x33e9…33f0 }
0x33f0…33f9 c150 6820 PRINT " "
0x33f0…33f9 LineComalBin {
0x33f0…33f9 ptr = 0xc150 // 0x33f0 @0x0
0x33f0…33f9 lno = 0x1aa4 // 0x33f2 @0x2
0x33f0…33f9 at0004 = ╱92╱ PRINT ╱ // 0x33f4 @0x4
0x33f0…33f9 at0005 = ╱22╱"╱ // 0x33f5 @0x5
0x33f0…33f9 at0006 = ╱20╱…╱ // 0x33f6 @0x6
0x33f0…33f9 at0007 = ╱22╱"╱ // 0x33f7 @0x7
0x33f0…33f9 at0008 = EOL // 0x33f8 @0x8
0x33f0…33f9 }
0x33f9…3407 c15e 6830 PRINT TAB(V);A2$
0x33f9…3407 LineComalBin {
0x33f9…3407 ptr = 0xc15e // 0x33f9 @0x0
0x33f9…3407 lno = 0x1aae // 0x33fb @0x2
0x33f9…3407 at0004 = ╱92╱ PRINT ╱ // 0x33fd @0x4
0x33f9…3407 at0005 = ╱d2╱TAB╱ // 0x33fe @0x5
0x33f9…3407 at0006 = ╱ed╱(╱ // 0x33ff @0x6
0x33f9…3407 at0007 = ╱56╱V╱ // 0x3400 @0x7
0x33f9…3407 at0008 = ╱ee╱)╱ // 0x3401 @0x8
0x33f9…3407 at0009 = ╱eb╱;╱ // 0x3402 @0x9
0x33f9…3407 at000a = ╱41╱A╱ // 0x3403 @0xa
0x33f9…3407 at000b = ╱32╱2╱ // 0x3404 @0xb
0x33f9…3407 at000c = ╱ef╱$╱ // 0x3405 @0xc
0x33f9…3407 at000d = EOL // 0x3406 @0xd
0x33f9…3407 }
0x3407…3426 c17d 6840 EXEC TU(A1$,B8$,0,0)
0x3407…3426 LineComalBin {
0x3407…3426 ptr = 0xc17d // 0x3407 @0x0
0x3407…3426 lno = 0x1ab8 // 0x3409 @0x2
0x3407…3426 at0004 = ╱9d╱ EXEC ╱ // 0x340b @0x4
0x3407…3426 at0005 = ╱54╱T╱ // 0x340c @0x5
0x3407…3426 at0006 = ╱55╱U╱ // 0x340d @0x6
0x3407…3426 at0007 = ╱ed╱(╱ // 0x340e @0x7
0x3407…3426 at0008 = ╱41╱A╱ // 0x340f @0x8
0x3407…3426 at0009 = ╱31╱1╱ // 0x3410 @0x9
0x3407…3426 at000a = ╱ef╱$╱ // 0x3411 @0xa
0x3407…3426 at000b = ╱ec╱,╱ // 0x3412 @0xb
0x3407…3426 at000c = ╱42╱B╱ // 0x3413 @0xc
0x3407…3426 at000d = ╱38╱8╱ // 0x3414 @0xd
0x3407…3426 at000e = ╱ef╱$╱ // 0x3415 @0xe
0x3407…3426 at000f = ╱ec╱,╱ // 0x3416 @0xf
0x3407…3426 at0010 = ╱30╱0╱ // 0x3417 @0x10
0x3407…3426 at0011 = ╱fe00000000╱ // 0x3418 @0x11
0x3407…3426 at0016 = ╱ec╱,╱ // 0x341d @0x16
0x3407…3426 at0017 = ╱30╱0╱ // 0x341e @0x17
0x3407…3426 at0018 = ╱fe00000000╱ // 0x341f @0x18
0x3407…3426 at001d = ╱ee╱)╱ // 0x3424 @0x1d
0x3407…3426 at001e = EOL // 0x3425 @0x1e
0x3407…3426 }
0x3426…345a c1b1 6850 PRINT TAB(10);CHR(14);"Difference";CHR(15);
0x3426…345a LineComalBin {
0x3426…345a ptr = 0xc1b1 // 0x3426 @0x0
0x3426…345a lno = 0x1ac2 // 0x3428 @0x2
0x3426…345a at0004 = ╱92╱ PRINT ╱ // 0x342a @0x4
0x3426…345a at0005 = ╱d2╱TAB╱ // 0x342b @0x5
0x3426…345a at0006 = ╱ed╱(╱ // 0x342c @0x6
0x3426…345a at0007 = ╱31╱1╱ // 0x342d @0x7
0x3426…345a at0008 = ╱30╱0╱ // 0x342e @0x8
0x3426…345a at0009 = ╱fe0000a004╱ // 0x342f @0x9
0x3426…345a at000e = ╱ee╱)╱ // 0x3434 @0xe
0x3426…345a at000f = ╱eb╱;╱ // 0x3435 @0xf
0x3426…345a at0010 = ╱cf╱CHR╱ // 0x3436 @0x10
0x3426…345a at0011 = ╱ed╱(╱ // 0x3437 @0x11
0x3426…345a at0012 = ╱31╱1╱ // 0x3438 @0x12
0x3426…345a at0013 = ╱34╱4╱ // 0x3439 @0x13
0x3426…345a at0014 = ╱fe0000e004╱ // 0x343a @0x14
0x3426…345a at0019 = ╱ee╱)╱ // 0x343f @0x19
0x3426…345a at001a = ╱eb╱;╱ // 0x3440 @0x1a
0x3426…345a at001b = ╱22╱"╱ // 0x3441 @0x1b
0x3426…345a at001c = ╱44╱D╱ // 0x3442 @0x1c
0x3426…345a at001d = ╱69╱i╱ // 0x3443 @0x1d
0x3426…345a at001e = ╱66╱f╱ // 0x3444 @0x1e
0x3426…345a at001f = ╱66╱f╱ // 0x3445 @0x1f
0x3426…345a at0020 = ╱65╱e╱ // 0x3446 @0x20
0x3426…345a at0021 = ╱72╱r╱ // 0x3447 @0x21
0x3426…345a at0022 = ╱65╱e╱ // 0x3448 @0x22
0x3426…345a at0023 = ╱6e╱n╱ // 0x3449 @0x23
0x3426…345a at0024 = ╱63╱c╱ // 0x344a @0x24
0x3426…345a at0025 = ╱65╱e╱ // 0x344b @0x25
0x3426…345a at0026 = ╱22╱"╱ // 0x344c @0x26
0x3426…345a at0027 = ╱eb╱;╱ // 0x344d @0x27
0x3426…345a at0028 = ╱cf╱CHR╱ // 0x344e @0x28
0x3426…345a at0029 = ╱ed╱(╱ // 0x344f @0x29
0x3426…345a at002a = ╱31╱1╱ // 0x3450 @0x2a
0x3426…345a at002b = ╱35╱5╱ // 0x3451 @0x2b
0x3426…345a at002c = ╱fe0000f004╱ // 0x3452 @0x2c
0x3426…345a at0031 = ╱ee╱)╱ // 0x3457 @0x31
0x3426…345a at0032 = ╱eb╱;╱ // 0x3458 @0x32
0x3426…345a at0033 = EOL // 0x3459 @0x33
0x3426…345a }
0x345a…3488 c1df 6860 PRINT TAB(45+11*(B8$(LEN(B8$))="-"));B8$
0x345a…3488 LineComalBin {
0x345a…3488 ptr = 0xc1df // 0x345a @0x0
0x345a…3488 lno = 0x1acc // 0x345c @0x2
0x345a…3488 at0004 = ╱92╱ PRINT ╱ // 0x345e @0x4
0x345a…3488 at0005 = ╱d2╱TAB╱ // 0x345f @0x5
0x345a…3488 at0006 = ╱ed╱(╱ // 0x3460 @0x6
0x345a…3488 at0007 = ╱34╱4╱ // 0x3461 @0x7
0x345a…3488 at0008 = ╱35╱5╱ // 0x3462 @0x8
0x345a…3488 at0009 = ╱fe0000b406╱ // 0x3463 @0x9
0x345a…3488 at000e = ╱e2╱+╱ // 0x3468 @0xe
0x345a…3488 at000f = ╱31╱1╱ // 0x3469 @0xf
0x345a…3488 at0010 = ╱31╱1╱ // 0x346a @0x10
0x345a…3488 at0011 = ╱fe0000b004╱ // 0x346b @0x11
0x345a…3488 at0016 = ╱e4╱*╱ // 0x3470 @0x16
0x345a…3488 at0017 = ╱ed╱(╱ // 0x3471 @0x17
0x345a…3488 at0018 = ╱42╱B╱ // 0x3472 @0x18
0x345a…3488 at0019 = ╱38╱8╱ // 0x3473 @0x19
0x345a…3488 at001a = ╱ef╱$╱ // 0x3474 @0x1a
0x345a…3488 at001b = ╱ed╱(╱ // 0x3475 @0x1b
0x345a…3488 at001c = ╱cc╱LEN╱ // 0x3476 @0x1c
0x345a…3488 at001d = ╱ed╱(╱ // 0x3477 @0x1d
0x345a…3488 at001e = ╱42╱B╱ // 0x3478 @0x1e
0x345a…3488 at001f = ╱38╱8╱ // 0x3479 @0x1f
0x345a…3488 at0020 = ╱ef╱$╱ // 0x347a @0x20
0x345a…3488 at0021 = ╱ee╱)╱ // 0x347b @0x21
0x345a…3488 at0022 = ╱ee╱)╱ // 0x347c @0x22
0x345a…3488 at0023 = ╱dc╱=╱ // 0x347d @0x23
0x345a…3488 at0024 = ╱22╱"╱ // 0x347e @0x24
0x345a…3488 at0025 = ╱2d╱-╱ // 0x347f @0x25
0x345a…3488 at0026 = ╱22╱"╱ // 0x3480 @0x26
0x345a…3488 at0027 = ╱ee╱)╱ // 0x3481 @0x27
0x345a…3488 at0028 = ╱ee╱)╱ // 0x3482 @0x28
0x345a…3488 at0029 = ╱eb╱;╱ // 0x3483 @0x29
0x345a…3488 at002a = ╱42╱B╱ // 0x3484 @0x2a
0x345a…3488 at002b = ╱38╱8╱ // 0x3485 @0x2b
0x345a…3488 at002c = ╱ef╱$╱ // 0x3486 @0x2c
0x345a…3488 at002d = EOL // 0x3487 @0x2d
0x345a…3488 }
0x3488…3496 c1ed 6870 PRINT TAB(V);A2$
0x3488…3496 LineComalBin {
0x3488…3496 ptr = 0xc1ed // 0x3488 @0x0
0x3488…3496 lno = 0x1ad6 // 0x348a @0x2
0x3488…3496 at0004 = ╱92╱ PRINT ╱ // 0x348c @0x4
0x3488…3496 at0005 = ╱d2╱TAB╱ // 0x348d @0x5
0x3488…3496 at0006 = ╱ed╱(╱ // 0x348e @0x6
0x3488…3496 at0007 = ╱56╱V╱ // 0x348f @0x7
0x3488…3496 at0008 = ╱ee╱)╱ // 0x3490 @0x8
0x3488…3496 at0009 = ╱eb╱;╱ // 0x3491 @0x9
0x3488…3496 at000a = ╱41╱A╱ // 0x3492 @0xa
0x3488…3496 at000b = ╱32╱2╱ // 0x3493 @0xb
0x3488…3496 at000c = ╱ef╱$╱ // 0x3494 @0xc
0x3488…3496 at000d = EOL // 0x3495 @0xd
0x3488…3496 }
0x3496…349f c1f6 6880 PRINT " "
0x3496…349f LineComalBin {
0x3496…349f ptr = 0xc1f6 // 0x3496 @0x0
0x3496…349f lno = 0x1ae0 // 0x3498 @0x2
0x3496…349f at0004 = ╱92╱ PRINT ╱ // 0x349a @0x4
0x3496…349f at0005 = ╱22╱"╱ // 0x349b @0x5
0x3496…349f at0006 = ╱20╱…╱ // 0x349c @0x6
0x3496…349f at0007 = ╱22╱"╱ // 0x349d @0x7
0x3496…349f at0008 = EOL // 0x349e @0x8
0x3496…349f }
0x349f…34a8 c1ff 6890 PRINT " "
0x349f…34a8 LineComalBin {
0x349f…34a8 ptr = 0xc1ff // 0x349f @0x0
0x349f…34a8 lno = 0x1aea // 0x34a1 @0x2
0x349f…34a8 at0004 = ╱92╱ PRINT ╱ // 0x34a3 @0x4
0x349f…34a8 at0005 = ╱22╱"╱ // 0x34a4 @0x5
0x349f…34a8 at0006 = ╱20╱…╱ // 0x34a5 @0x6
0x349f…34a8 at0007 = ╱22╱"╱ // 0x34a6 @0x7
0x349f…34a8 at0008 = EOL // 0x34a7 @0x8
0x349f…34a8 }
0x34a8…34ae c205 6900 ENDPROC
0x34a8…34ae LineComalBin {
0x34a8…34ae ptr = 0xc205 // 0x34a8 @0x0
0x34a8…34ae lno = 0x1af4 // 0x34aa @0x2
0x34a8…34ae at0004 = ╱9f╱ ENDPROC ╱ // 0x34ac @0x4
0x34a8…34ae at0005 = EOL // 0x34ad @0x5
0x34a8…34ae }
0x34ae…34b6 c20d 6910 PROC UB
0x34ae…34b6 LineComalBin {
0x34ae…34b6 ptr = 0xc20d // 0x34ae @0x0
0x34ae…34b6 lno = 0x1afe // 0x34b0 @0x2
0x34ae…34b6 at0004 = ╱9e╱ PROC ╱ // 0x34b2 @0x4
0x34ae…34b6 at0005 = ╱55╱U╱ // 0x34b3 @0x5
0x34ae…34b6 at0006 = ╱42╱B╱ // 0x34b4 @0x6
0x34ae…34b6 at0007 = EOL // 0x34b5 @0x7
0x34ae…34b6 }
0x34b6…34bc c213 6920 CLEAR
0x34b6…34bc LineComalBin {
0x34b6…34bc ptr = 0xc213 // 0x34b6 @0x0
0x34b6…34bc lno = 0x1b08 // 0x34b8 @0x2
0x34b6…34bc at0004 = ╱a0╱ CLEAR ╱ // 0x34ba @0x4
0x34b6…34bc at0005 = EOL // 0x34bb @0x5
0x34b6…34bc }
0x34bc…34c2 c219 6930 REPEAT
0x34bc…34c2 LineComalBin {
0x34bc…34c2 ptr = 0xc219 // 0x34bc @0x0
0x34bc…34c2 lno = 0x1b12 // 0x34be @0x2
0x34bc…34c2 at0004 = ╱97╱ REPEAT ╱ // 0x34c0 @0x4
0x34bc…34c2 at0005 = EOL // 0x34c1 @0x5
0x34bc…34c2 }
0x34c2…34d6 c22d 6940 CURSOR 8,13
0x34c2…34d6 LineComalBin {
0x34c2…34d6 ptr = 0xc22d // 0x34c2 @0x0
0x34c2…34d6 lno = 0x1b1c // 0x34c4 @0x2
0x34c2…34d6 at0004 = ╱a1╱ CURSOR ╱ // 0x34c6 @0x4
0x34c2…34d6 at0005 = ╱38╱8╱ // 0x34c7 @0x5
0x34c2…34d6 at0006 = ╱fe00008004╱ // 0x34c8 @0x6
0x34c2…34d6 at000b = ╱ec╱,╱ // 0x34cd @0xb
0x34c2…34d6 at000c = ╱31╱1╱ // 0x34ce @0xc
0x34c2…34d6 at000d = ╱33╱3╱ // 0x34cf @0xd
0x34c2…34d6 at000e = ╱fe0000d004╱ // 0x34d0 @0xe
0x34c2…34d6 at0013 = EOL // 0x34d5 @0x13
0x34c2…34d6 }
0x34d6…3519 c270 6950 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$
0x34d6…3519 LineComalBin {
0x34d6…3519 ptr = 0xc270 // 0x34d6 @0x0
0x34d6…3519 lno = 0x1b26 // 0x34d8 @0x2
0x34d6…3519 at0004 = ╱91╱ INPUT ╱ // 0x34da @0x4
0x34d6…3519 at0005 = ╱22╱"╱ // 0x34db @0x5
0x34d6…3519 at0006 = ╱4d╱M╱ // 0x34dc @0x6
0x34d6…3519 at0007 = ╱6f╱o╱ // 0x34dd @0x7
0x34d6…3519 at0008 = ╱6e╱n╱ // 0x34de @0x8
0x34d6…3519 at0009 = ╱74╱t╱ // 0x34df @0x9
0x34d6…3519 at000a = ╱65╱e╱ // 0x34e0 @0xa
0x34d6…3519 at000b = ╱72╱r╱ // 0x34e1 @0xb
0x34d6…3519 at000c = ╱20╱…╱ // 0x34e2 @0xc
0x34d6…3519 at000d = ╱70╱p╱ // 0x34e3 @0xd
0x34d6…3519 at000e = ╱61╱a╱ // 0x34e4 @0xe
0x34d6…3519 at000f = ╱70╱p╱ // 0x34e5 @0xf
0x34d6…3519 at0010 = ╱69╱i╱ // 0x34e6 @0x10
0x34d6…3519 at0011 = ╱72╱r╱ // 0x34e7 @0x11
0x34d6…3519 at0012 = ╱20╱…╱ // 0x34e8 @0x12
0x34d6…3519 at0013 = ╱74╱t╱ // 0x34e9 @0x13
0x34d6…3519 at0014 = ╱69╱i╱ // 0x34ea @0x14
0x34d6…3519 at0015 = ╱6c╱l╱ // 0x34eb @0x15
0x34d6…3519 at0016 = ╱20╱…╱ // 0x34ec @0x16
0x34d6…3519 at0017 = ╱75╱u╱ // 0x34ed @0x17
0x34d6…3519 at0018 = ╱64╱d╱ // 0x34ee @0x18
0x34d6…3519 at0019 = ╱73╱s╱ // 0x34ef @0x19
0x34d6…3519 at001a = ╱6b╱k╱ // 0x34f0 @0x1a
0x34d6…3519 at001b = ╱72╱r╱ // 0x34f1 @0x1b
0x34d6…3519 at001c = ╱69╱i╱ // 0x34f2 @0x1c
0x34d6…3519 at001d = ╱66╱f╱ // 0x34f3 @0x1d
0x34d6…3519 at001e = ╱74╱t╱ // 0x34f4 @0x1e
0x34d6…3519 at001f = ╱20╱…╱ // 0x34f5 @0x1f
0x34d6…3519 at0020 = ╱61╱a╱ // 0x34f6 @0x20
0x34d6…3519 at0021 = ╱66╱f╱ // 0x34f7 @0x21
0x34d6…3519 at0022 = ╱20╱…╱ // 0x34f8 @0x22
0x34d6…3519 at0023 = ╱6b╱k╱ // 0x34f9 @0x23
0x34d6…3519 at0024 = ╱61╱a╱ // 0x34fa @0x24
0x34d6…3519 at0025 = ╱73╱s╱ // 0x34fb @0x25
0x34d6…3519 at0026 = ╱73╱s╱ // 0x34fc @0x26
0x34d6…3519 at0027 = ╱65╱e╱ // 0x34fd @0x27
0x34d6…3519 at0028 = ╱72╱r╱ // 0x34fe @0x28
0x34d6…3519 at0029 = ╱61╱a╱ // 0x34ff @0x29
0x34d6…3519 at002a = ╱70╱p╱ // 0x3500 @0x2a
0x34d6…3519 at002b = ╱70╱p╱ // 0x3501 @0x2b
0x34d6…3519 at002c = ╱6f╱o╱ // 0x3502 @0x2c
0x34d6…3519 at002d = ╱72╱r╱ // 0x3503 @0x2d
0x34d6…3519 at002e = ╱74╱t╱ // 0x3504 @0x2e
0x34d6…3519 at002f = ╱20╱…╱ // 0x3505 @0x2f
0x34d6…3519 at0030 = ╱6f╱o╱ // 0x3506 @0x30
0x34d6…3519 at0031 = ╱67╱g╱ // 0x3507 @0x31
0x34d6…3519 at0032 = ╱20╱…╱ // 0x3508 @0x32
0x34d6…3519 at0033 = ╱74╱t╱ // 0x3509 @0x33
0x34d6…3519 at0034 = ╱61╱a╱ // 0x350a @0x34
0x34d6…3519 at0035 = ╱73╱s╱ // 0x350b @0x35
0x34d6…3519 at0036 = ╱74╱t╱ // 0x350c @0x36
0x34d6…3519 at0037 = ╱20╱…╱ // 0x350d @0x37
0x34d6…3519 at0038 = ╱52╱R╱ // 0x350e @0x38
0x34d6…3519 at0039 = ╱45╱E╱ // 0x350f @0x39
0x34d6…3519 at003a = ╱54╱T╱ // 0x3510 @0x3a
0x34d6…3519 at003b = ╱55╱U╱ // 0x3511 @0x3b
0x34d6…3519 at003c = ╱52╱R╱ // 0x3512 @0x3c
0x34d6…3519 at003d = ╱4e╱N╱ // 0x3513 @0x3d
0x34d6…3519 at003e = ╱22╱"╱ // 0x3514 @0x3e
0x34d6…3519 at003f = ╱ec╱,╱ // 0x3515 @0x3f
0x34d6…3519 at0040 = ╱41╱A╱ // 0x3516 @0x40
0x34d6…3519 at0041 = ╱ef╱$╱ // 0x3517 @0x41
0x34d6…3519 at0042 = EOL // 0x3518 @0x42
0x34d6…3519 }
0x3519…352d c284 6960 UNTIL ORD(A$)=255
0x3519…352d LineComalBin {
0x3519…352d ptr = 0xc284 // 0x3519 @0x0
0x3519…352d lno = 0x1b30 // 0x351b @0x2
0x3519…352d at0004 = ╱98╱ UNTIL ╱ // 0x351d @0x4
0x3519…352d at0005 = ╱cd╱ORD╱ // 0x351e @0x5
0x3519…352d at0006 = ╱ed╱(╱ // 0x351f @0x6
0x3519…352d at0007 = ╱41╱A╱ // 0x3520 @0x7
0x3519…352d at0008 = ╱ef╱$╱ // 0x3521 @0x8
0x3519…352d at0009 = ╱ee╱)╱ // 0x3522 @0x9
0x3519…352d at000a = ╱dc╱=╱ // 0x3523 @0xa
0x3519…352d at000b = ╱32╱2╱ // 0x3524 @0xb
0x3519…352d at000c = ╱35╱5╱ // 0x3525 @0xc
0x3519…352d at000d = ╱35╱5╱ // 0x3526 @0xd
0x3519…352d at000e = ╱fe0000ff08╱ // 0x3527 @0xe
0x3519…352d at0013 = EOL // 0x352c @0x13
0x3519…352d }
0x352d…3534 c28b 6965 OUTPUT P
0x352d…3534 LineComalBin {
0x352d…3534 ptr = 0xc28b // 0x352d @0x0
0x352d…3534 lno = 0x1b35 // 0x352f @0x2
0x352d…3534 at0004 = ╱a5╱ OUTPUT ╱ // 0x3531 @0x4
0x352d…3534 at0005 = ╱50╱P╱ // 0x3532 @0x5
0x352d…3534 at0006 = EOL // 0x3533 @0x6
0x352d…3534 }
0x3534…353a c291 6970 ENDPROC
0x3534…353a LineComalBin {
0x3534…353a ptr = 0xc291 // 0x3534 @0x0
0x3534…353a lno = 0x1b3a // 0x3536 @0x2
0x3534…353a at0004 = ╱9f╱ ENDPROC ╱ // 0x3538 @0x4
0x3534…353a at0005 = EOL // 0x3539 @0x5
0x3534…353a }
0x353a…3554 c2ab 6980 C2$="P641220:SYSTEM1"
0x353a…3554 LineComalBin {
0x353a…3554 ptr = 0xc2ab // 0x353a @0x0
0x353a…3554 lno = 0x1b44 // 0x353c @0x2
0x353a…3554 at0004 = ╱43╱C╱ // 0x353e @0x4
0x353a…3554 at0005 = ╱32╱2╱ // 0x353f @0x5
0x353a…3554 at0006 = ╱ef╱$╱ // 0x3540 @0x6
0x353a…3554 at0007 = ╱dc╱=╱ // 0x3541 @0x7
0x353a…3554 at0008 = ╱22╱"╱ // 0x3542 @0x8
0x353a…3554 at0009 = ╱50╱P╱ // 0x3543 @0x9
0x353a…3554 at000a = ╱36╱6╱ // 0x3544 @0xa
0x353a…3554 at000b = ╱34╱4╱ // 0x3545 @0xb
0x353a…3554 at000c = ╱31╱1╱ // 0x3546 @0xc
0x353a…3554 at000d = ╱32╱2╱ // 0x3547 @0xd
0x353a…3554 at000e = ╱32╱2╱ // 0x3548 @0xe
0x353a…3554 at000f = ╱30╱0╱ // 0x3549 @0xf
0x353a…3554 at0010 = ╱3a╱:╱ // 0x354a @0x10
0x353a…3554 at0011 = ╱53╱S╱ // 0x354b @0x11
0x353a…3554 at0012 = ╱59╱Y╱ // 0x354c @0x12
0x353a…3554 at0013 = ╱53╱S╱ // 0x354d @0x13
0x353a…3554 at0014 = ╱54╱T╱ // 0x354e @0x14
0x353a…3554 at0015 = ╱45╱E╱ // 0x354f @0x15
0x353a…3554 at0016 = ╱4d╱M╱ // 0x3550 @0x16
0x353a…3554 at0017 = ╱31╱1╱ // 0x3551 @0x17
0x353a…3554 at0018 = ╱22╱"╱ // 0x3552 @0x18
0x353a…3554 at0019 = EOL // 0x3553 @0x19
0x353a…3554 }
0x3554…355f c2b6 6990 OPEN C2$,R
0x3554…355f LineComalBin {
0x3554…355f ptr = 0xc2b6 // 0x3554 @0x0
0x3554…355f lno = 0x1b4e // 0x3556 @0x2
0x3554…355f at0004 = ╱a7╱ OPEN ╱ // 0x3558 @0x4
0x3554…355f at0005 = ╱43╱C╱ // 0x3559 @0x5
0x3554…355f at0006 = ╱32╱2╱ // 0x355a @0x6
0x3554…355f at0007 = ╱ef╱$╱ // 0x355b @0x7
0x3554…355f at0008 = ╱ec╱,╱ // 0x355c @0x8
0x3554…355f at0009 = ╱52╱R╱ // 0x355d @0x9
0x3554…355f at000a = EOL // 0x355e @0xa
0x3554…355f }
0x355f…3570 c2c7 7000 EXEC FE(W,E,C2$)
0x355f…3570 LineComalBin {
0x355f…3570 ptr = 0xc2c7 // 0x355f @0x0
0x355f…3570 lno = 0x1b58 // 0x3561 @0x2
0x355f…3570 at0004 = ╱9d╱ EXEC ╱ // 0x3563 @0x4
0x355f…3570 at0005 = ╱46╱F╱ // 0x3564 @0x5
0x355f…3570 at0006 = ╱45╱E╱ // 0x3565 @0x6
0x355f…3570 at0007 = ╱ed╱(╱ // 0x3566 @0x7
0x355f…3570 at0008 = ╱57╱W╱ // 0x3567 @0x8
0x355f…3570 at0009 = ╱ec╱,╱ // 0x3568 @0x9
0x355f…3570 at000a = ╱45╱E╱ // 0x3569 @0xa
0x355f…3570 at000b = ╱ec╱,╱ // 0x356a @0xb
0x355f…3570 at000c = ╱43╱C╱ // 0x356b @0xc
0x355f…3570 at000d = ╱32╱2╱ // 0x356c @0xd
0x355f…3570 at000e = ╱ef╱$╱ // 0x356d @0xe
0x355f…3570 at000f = ╱ee╱)╱ // 0x356e @0xf
0x355f…3570 at0010 = EOL // 0x356f @0x10
0x355f…3570 }
0x3570…3584 c2db 7010 GET C2$,E:M9,N4,N8
0x3570…3584 LineComalBin {
0x3570…3584 ptr = 0xc2db // 0x3570 @0x0
0x3570…3584 lno = 0x1b62 // 0x3572 @0x2
0x3570…3584 at0004 = ╱a9╱ GET ╱ // 0x3574 @0x4
0x3570…3584 at0005 = ╱43╱C╱ // 0x3575 @0x5
0x3570…3584 at0006 = ╱32╱2╱ // 0x3576 @0x6
0x3570…3584 at0007 = ╱ef╱$╱ // 0x3577 @0x7
0x3570…3584 at0008 = ╱ec╱,╱ // 0x3578 @0x8
0x3570…3584 at0009 = ╱45╱E╱ // 0x3579 @0x9
0x3570…3584 at000a = ╱f0╱:╱ // 0x357a @0xa
0x3570…3584 at000b = ╱4d╱M╱ // 0x357b @0xb
0x3570…3584 at000c = ╱39╱9╱ // 0x357c @0xc
0x3570…3584 at000d = ╱ec╱,╱ // 0x357d @0xd
0x3570…3584 at000e = ╱4e╱N╱ // 0x357e @0xe
0x3570…3584 at000f = ╱34╱4╱ // 0x357f @0xf
0x3570…3584 at0010 = ╱ec╱,╱ // 0x3580 @0x10
0x3570…3584 at0011 = ╱4e╱N╱ // 0x3581 @0x11
0x3570…3584 at0012 = ╱38╱8╱ // 0x3582 @0x12
0x3570…3584 at0013 = EOL // 0x3583 @0x13
0x3570…3584 }
0x3584…3595 c2ec 7020 EXEC FE(W,G,C2$)
0x3584…3595 LineComalBin {
0x3584…3595 ptr = 0xc2ec // 0x3584 @0x0
0x3584…3595 lno = 0x1b6c // 0x3586 @0x2
0x3584…3595 at0004 = ╱9d╱ EXEC ╱ // 0x3588 @0x4
0x3584…3595 at0005 = ╱46╱F╱ // 0x3589 @0x5
0x3584…3595 at0006 = ╱45╱E╱ // 0x358a @0x6
0x3584…3595 at0007 = ╱ed╱(╱ // 0x358b @0x7
0x3584…3595 at0008 = ╱57╱W╱ // 0x358c @0x8
0x3584…3595 at0009 = ╱ec╱,╱ // 0x358d @0x9
0x3584…3595 at000a = ╱47╱G╱ // 0x358e @0xa
0x3584…3595 at000b = ╱ec╱,╱ // 0x358f @0xb
0x3584…3595 at000c = ╱43╱C╱ // 0x3590 @0xc
0x3584…3595 at000d = ╱32╱2╱ // 0x3591 @0xd
0x3584…3595 at000e = ╱ef╱$╱ // 0x3592 @0xe
0x3584…3595 at000f = ╱ee╱)╱ // 0x3593 @0xf
0x3584…3595 at0010 = EOL // 0x3594 @0x10
0x3584…3595 }
0x3595…35a9 c300 7030 GET C2$,G:R9,S0,S1
0x3595…35a9 LineComalBin {
0x3595…35a9 ptr = 0xc300 // 0x3595 @0x0
0x3595…35a9 lno = 0x1b76 // 0x3597 @0x2
0x3595…35a9 at0004 = ╱a9╱ GET ╱ // 0x3599 @0x4
0x3595…35a9 at0005 = ╱43╱C╱ // 0x359a @0x5
0x3595…35a9 at0006 = ╱32╱2╱ // 0x359b @0x6
0x3595…35a9 at0007 = ╱ef╱$╱ // 0x359c @0x7
0x3595…35a9 at0008 = ╱ec╱,╱ // 0x359d @0x8
0x3595…35a9 at0009 = ╱47╱G╱ // 0x359e @0x9
0x3595…35a9 at000a = ╱f0╱:╱ // 0x359f @0xa
0x3595…35a9 at000b = ╱52╱R╱ // 0x35a0 @0xb
0x3595…35a9 at000c = ╱39╱9╱ // 0x35a1 @0xc
0x3595…35a9 at000d = ╱ec╱,╱ // 0x35a2 @0xd
0x3595…35a9 at000e = ╱53╱S╱ // 0x35a3 @0xe
0x3595…35a9 at000f = ╱30╱0╱ // 0x35a4 @0xf
0x3595…35a9 at0010 = ╱ec╱,╱ // 0x35a5 @0x10
0x3595…35a9 at0011 = ╱53╱S╱ // 0x35a6 @0x11
0x3595…35a9 at0012 = ╱31╱1╱ // 0x35a7 @0x12
0x3595…35a9 at0013 = EOL // 0x35a8 @0x13
0x3595…35a9 }
0x35a9…35ba c311 7040 EXEC FE(W,V,C2$)
0x35a9…35ba LineComalBin {
0x35a9…35ba ptr = 0xc311 // 0x35a9 @0x0
0x35a9…35ba lno = 0x1b80 // 0x35ab @0x2
0x35a9…35ba at0004 = ╱9d╱ EXEC ╱ // 0x35ad @0x4
0x35a9…35ba at0005 = ╱46╱F╱ // 0x35ae @0x5
0x35a9…35ba at0006 = ╱45╱E╱ // 0x35af @0x6
0x35a9…35ba at0007 = ╱ed╱(╱ // 0x35b0 @0x7
0x35a9…35ba at0008 = ╱57╱W╱ // 0x35b1 @0x8
0x35a9…35ba at0009 = ╱ec╱,╱ // 0x35b2 @0x9
0x35a9…35ba at000a = ╱56╱V╱ // 0x35b3 @0xa
0x35a9…35ba at000b = ╱ec╱,╱ // 0x35b4 @0xb
0x35a9…35ba at000c = ╱43╱C╱ // 0x35b5 @0xc
0x35a9…35ba at000d = ╱32╱2╱ // 0x35b6 @0xd
0x35a9…35ba at000e = ╱ef╱$╱ // 0x35b7 @0xe
0x35a9…35ba at000f = ╱ee╱)╱ // 0x35b8 @0xf
0x35a9…35ba at0010 = EOL // 0x35b9 @0x10
0x35a9…35ba }
0x35ba…35d6 c32d 7050 GET C2$,4:S2,S3,S4,N1
0x35ba…35d6 LineComalBin {
0x35ba…35d6 ptr = 0xc32d // 0x35ba @0x0
0x35ba…35d6 lno = 0x1b8a // 0x35bc @0x2
0x35ba…35d6 at0004 = ╱a9╱ GET ╱ // 0x35be @0x4
0x35ba…35d6 at0005 = ╱43╱C╱ // 0x35bf @0x5
0x35ba…35d6 at0006 = ╱32╱2╱ // 0x35c0 @0x6
0x35ba…35d6 at0007 = ╱ef╱$╱ // 0x35c1 @0x7
0x35ba…35d6 at0008 = ╱ec╱,╱ // 0x35c2 @0x8
0x35ba…35d6 at0009 = ╱34╱4╱ // 0x35c3 @0x9
0x35ba…35d6 at000a = ╱fe00008003╱ // 0x35c4 @0xa
0x35ba…35d6 at000f = ╱f0╱:╱ // 0x35c9 @0xf
0x35ba…35d6 at0010 = ╱53╱S╱ // 0x35ca @0x10
0x35ba…35d6 at0011 = ╱32╱2╱ // 0x35cb @0x11
0x35ba…35d6 at0012 = ╱ec╱,╱ // 0x35cc @0x12
0x35ba…35d6 at0013 = ╱53╱S╱ // 0x35cd @0x13
0x35ba…35d6 at0014 = ╱33╱3╱ // 0x35ce @0x14
0x35ba…35d6 at0015 = ╱ec╱,╱ // 0x35cf @0x15
0x35ba…35d6 at0016 = ╱53╱S╱ // 0x35d0 @0x16
0x35ba…35d6 at0017 = ╱34╱4╱ // 0x35d1 @0x17
0x35ba…35d6 at0018 = ╱ec╱,╱ // 0x35d2 @0x18
0x35ba…35d6 at0019 = ╱4e╱N╱ // 0x35d3 @0x19
0x35ba…35d6 at001a = ╱31╱1╱ // 0x35d4 @0x1a
0x35ba…35d6 at001b = EOL // 0x35d5 @0x1b
0x35ba…35d6 }
0x35d6…35ec c343 7060 EXEC FE(W,4,C2$)
0x35d6…35ec LineComalBin {
0x35d6…35ec ptr = 0xc343 // 0x35d6 @0x0
0x35d6…35ec lno = 0x1b94 // 0x35d8 @0x2
0x35d6…35ec at0004 = ╱9d╱ EXEC ╱ // 0x35da @0x4
0x35d6…35ec at0005 = ╱46╱F╱ // 0x35db @0x5
0x35d6…35ec at0006 = ╱45╱E╱ // 0x35dc @0x6
0x35d6…35ec at0007 = ╱ed╱(╱ // 0x35dd @0x7
0x35d6…35ec at0008 = ╱57╱W╱ // 0x35de @0x8
0x35d6…35ec at0009 = ╱ec╱,╱ // 0x35df @0x9
0x35d6…35ec at000a = ╱34╱4╱ // 0x35e0 @0xa
0x35d6…35ec at000b = ╱fe00008003╱ // 0x35e1 @0xb
0x35d6…35ec at0010 = ╱ec╱,╱ // 0x35e6 @0x10
0x35d6…35ec at0011 = ╱43╱C╱ // 0x35e7 @0x11
0x35d6…35ec at0012 = ╱32╱2╱ // 0x35e8 @0x12
0x35d6…35ec at0013 = ╱ef╱$╱ // 0x35e9 @0x13
0x35d6…35ec at0014 = ╱ee╱)╱ // 0x35ea @0x14
0x35d6…35ec at0015 = EOL // 0x35eb @0x15
0x35d6…35ec }
0x35ec…35ff c356 7070 GET C2$,5:N6
0x35ec…35ff LineComalBin {
0x35ec…35ff ptr = 0xc356 // 0x35ec @0x0
0x35ec…35ff lno = 0x1b9e // 0x35ee @0x2
0x35ec…35ff at0004 = ╱a9╱ GET ╱ // 0x35f0 @0x4
0x35ec…35ff at0005 = ╱43╱C╱ // 0x35f1 @0x5
0x35ec…35ff at0006 = ╱32╱2╱ // 0x35f2 @0x6
0x35ec…35ff at0007 = ╱ef╱$╱ // 0x35f3 @0x7
0x35ec…35ff at0008 = ╱ec╱,╱ // 0x35f4 @0x8
0x35ec…35ff at0009 = ╱35╱5╱ // 0x35f5 @0x9
0x35ec…35ff at000a = ╱fe0000a003╱ // 0x35f6 @0xa
0x35ec…35ff at000f = ╱f0╱:╱ // 0x35fb @0xf
0x35ec…35ff at0010 = ╱4e╱N╱ // 0x35fc @0x10
0x35ec…35ff at0011 = ╱36╱6╱ // 0x35fd @0x11
0x35ec…35ff at0012 = EOL // 0x35fe @0x12
0x35ec…35ff }
0x35ff…3615 c36c 7080 EXEC FE(W,5,C2$)
0x35ff…3615 LineComalBin {
0x35ff…3615 ptr = 0xc36c // 0x35ff @0x0
0x35ff…3615 lno = 0x1ba8 // 0x3601 @0x2
0x35ff…3615 at0004 = ╱9d╱ EXEC ╱ // 0x3603 @0x4
0x35ff…3615 at0005 = ╱46╱F╱ // 0x3604 @0x5
0x35ff…3615 at0006 = ╱45╱E╱ // 0x3605 @0x6
0x35ff…3615 at0007 = ╱ed╱(╱ // 0x3606 @0x7
0x35ff…3615 at0008 = ╱57╱W╱ // 0x3607 @0x8
0x35ff…3615 at0009 = ╱ec╱,╱ // 0x3608 @0x9
0x35ff…3615 at000a = ╱35╱5╱ // 0x3609 @0xa
0x35ff…3615 at000b = ╱fe0000a003╱ // 0x360a @0xb
0x35ff…3615 at0010 = ╱ec╱,╱ // 0x360f @0x10
0x35ff…3615 at0011 = ╱43╱C╱ // 0x3610 @0x11
0x35ff…3615 at0012 = ╱32╱2╱ // 0x3611 @0x12
0x35ff…3615 at0013 = ╱ef╱$╱ // 0x3612 @0x13
0x35ff…3615 at0014 = ╱ee╱)╱ // 0x3613 @0x14
0x35ff…3615 at0015 = EOL // 0x3614 @0x15
0x35ff…3615 }
0x3615…362e c385 7090 GET C2$,6:S5,S6,S7
0x3615…362e LineComalBin {
0x3615…362e ptr = 0xc385 // 0x3615 @0x0
0x3615…362e lno = 0x1bb2 // 0x3617 @0x2
0x3615…362e at0004 = ╱a9╱ GET ╱ // 0x3619 @0x4
0x3615…362e at0005 = ╱43╱C╱ // 0x361a @0x5
0x3615…362e at0006 = ╱32╱2╱ // 0x361b @0x6
0x3615…362e at0007 = ╱ef╱$╱ // 0x361c @0x7
0x3615…362e at0008 = ╱ec╱,╱ // 0x361d @0x8
0x3615…362e at0009 = ╱36╱6╱ // 0x361e @0x9
0x3615…362e at000a = ╱fe0000c003╱ // 0x361f @0xa
0x3615…362e at000f = ╱f0╱:╱ // 0x3624 @0xf
0x3615…362e at0010 = ╱53╱S╱ // 0x3625 @0x10
0x3615…362e at0011 = ╱35╱5╱ // 0x3626 @0x11
0x3615…362e at0012 = ╱ec╱,╱ // 0x3627 @0x12
0x3615…362e at0013 = ╱53╱S╱ // 0x3628 @0x13
0x3615…362e at0014 = ╱36╱6╱ // 0x3629 @0x14
0x3615…362e at0015 = ╱ec╱,╱ // 0x362a @0x15
0x3615…362e at0016 = ╱53╱S╱ // 0x362b @0x16
0x3615…362e at0017 = ╱37╱7╱ // 0x362c @0x17
0x3615…362e at0018 = EOL // 0x362d @0x18
0x3615…362e }
0x362e…3644 c39b 7100 EXEC FE(W,6,C2$)
0x362e…3644 LineComalBin {
0x362e…3644 ptr = 0xc39b // 0x362e @0x0
0x362e…3644 lno = 0x1bbc // 0x3630 @0x2
0x362e…3644 at0004 = ╱9d╱ EXEC ╱ // 0x3632 @0x4
0x362e…3644 at0005 = ╱46╱F╱ // 0x3633 @0x5
0x362e…3644 at0006 = ╱45╱E╱ // 0x3634 @0x6
0x362e…3644 at0007 = ╱ed╱(╱ // 0x3635 @0x7
0x362e…3644 at0008 = ╱57╱W╱ // 0x3636 @0x8
0x362e…3644 at0009 = ╱ec╱,╱ // 0x3637 @0x9
0x362e…3644 at000a = ╱36╱6╱ // 0x3638 @0xa
0x362e…3644 at000b = ╱fe0000c003╱ // 0x3639 @0xb
0x362e…3644 at0010 = ╱ec╱,╱ // 0x363e @0x10
0x362e…3644 at0011 = ╱43╱C╱ // 0x363f @0x11
0x362e…3644 at0012 = ╱32╱2╱ // 0x3640 @0x12
0x362e…3644 at0013 = ╱ef╱$╱ // 0x3641 @0x13
0x362e…3644 at0014 = ╱ee╱)╱ // 0x3642 @0x14
0x362e…3644 at0015 = EOL // 0x3643 @0x15
0x362e…3644 }
0x3644…3660 c3b7 7110 GET C2$,8:S8,S9,T0,J1
0x3644…3660 LineComalBin {
0x3644…3660 ptr = 0xc3b7 // 0x3644 @0x0
0x3644…3660 lno = 0x1bc6 // 0x3646 @0x2
0x3644…3660 at0004 = ╱a9╱ GET ╱ // 0x3648 @0x4
0x3644…3660 at0005 = ╱43╱C╱ // 0x3649 @0x5
0x3644…3660 at0006 = ╱32╱2╱ // 0x364a @0x6
0x3644…3660 at0007 = ╱ef╱$╱ // 0x364b @0x7
0x3644…3660 at0008 = ╱ec╱,╱ // 0x364c @0x8
0x3644…3660 at0009 = ╱38╱8╱ // 0x364d @0x9
0x3644…3660 at000a = ╱fe00008004╱ // 0x364e @0xa
0x3644…3660 at000f = ╱f0╱:╱ // 0x3653 @0xf
0x3644…3660 at0010 = ╱53╱S╱ // 0x3654 @0x10
0x3644…3660 at0011 = ╱38╱8╱ // 0x3655 @0x11
0x3644…3660 at0012 = ╱ec╱,╱ // 0x3656 @0x12
0x3644…3660 at0013 = ╱53╱S╱ // 0x3657 @0x13
0x3644…3660 at0014 = ╱39╱9╱ // 0x3658 @0x14
0x3644…3660 at0015 = ╱ec╱,╱ // 0x3659 @0x15
0x3644…3660 at0016 = ╱54╱T╱ // 0x365a @0x16
0x3644…3660 at0017 = ╱30╱0╱ // 0x365b @0x17
0x3644…3660 at0018 = ╱ec╱,╱ // 0x365c @0x18
0x3644…3660 at0019 = ╱4a╱J╱ // 0x365d @0x19
0x3644…3660 at001a = ╱31╱1╱ // 0x365e @0x1a
0x3644…3660 at001b = EOL // 0x365f @0x1b
0x3644…3660 }
0x3660…3676 c3cd 7120 EXEC FE(W,7,C2$)
0x3660…3676 LineComalBin {
0x3660…3676 ptr = 0xc3cd // 0x3660 @0x0
0x3660…3676 lno = 0x1bd0 // 0x3662 @0x2
0x3660…3676 at0004 = ╱9d╱ EXEC ╱ // 0x3664 @0x4
0x3660…3676 at0005 = ╱46╱F╱ // 0x3665 @0x5
0x3660…3676 at0006 = ╱45╱E╱ // 0x3666 @0x6
0x3660…3676 at0007 = ╱ed╱(╱ // 0x3667 @0x7
0x3660…3676 at0008 = ╱57╱W╱ // 0x3668 @0x8
0x3660…3676 at0009 = ╱ec╱,╱ // 0x3669 @0x9
0x3660…3676 at000a = ╱37╱7╱ // 0x366a @0xa
0x3660…3676 at000b = ╱fe0000e003╱ // 0x366b @0xb
0x3660…3676 at0010 = ╱ec╱,╱ // 0x3670 @0x10
0x3660…3676 at0011 = ╱43╱C╱ // 0x3671 @0x11
0x3660…3676 at0012 = ╱32╱2╱ // 0x3672 @0x12
0x3660…3676 at0013 = ╱ef╱$╱ // 0x3673 @0x13
0x3660…3676 at0014 = ╱ee╱)╱ // 0x3674 @0x14
0x3660…3676 at0015 = EOL // 0x3675 @0x15
0x3660…3676 }
0x3676…3690 c3e7 7130 GET C2$,W:J2,J11,J12,J13
0x3676…3690 LineComalBin {
0x3676…3690 ptr = 0xc3e7 // 0x3676 @0x0
0x3676…3690 lno = 0x1bda // 0x3678 @0x2
0x3676…3690 at0004 = ╱a9╱ GET ╱ // 0x367a @0x4
0x3676…3690 at0005 = ╱43╱C╱ // 0x367b @0x5
0x3676…3690 at0006 = ╱32╱2╱ // 0x367c @0x6
0x3676…3690 at0007 = ╱ef╱$╱ // 0x367d @0x7
0x3676…3690 at0008 = ╱ec╱,╱ // 0x367e @0x8
0x3676…3690 at0009 = ╱57╱W╱ // 0x367f @0x9
0x3676…3690 at000a = ╱f0╱:╱ // 0x3680 @0xa
0x3676…3690 at000b = ╱4a╱J╱ // 0x3681 @0xb
0x3676…3690 at000c = ╱32╱2╱ // 0x3682 @0xc
0x3676…3690 at000d = ╱ec╱,╱ // 0x3683 @0xd
0x3676…3690 at000e = ╱4a╱J╱ // 0x3684 @0xe
0x3676…3690 at000f = ╱31╱1╱ // 0x3685 @0xf
0x3676…3690 at0010 = ╱31╱1╱ // 0x3686 @0x10
0x3676…3690 at0011 = ╱ec╱,╱ // 0x3687 @0x11
0x3676…3690 at0012 = ╱4a╱J╱ // 0x3688 @0x12
0x3676…3690 at0013 = ╱31╱1╱ // 0x3689 @0x13
0x3676…3690 at0014 = ╱32╱2╱ // 0x368a @0x14
0x3676…3690 at0015 = ╱ec╱,╱ // 0x368b @0x15
0x3676…3690 at0016 = ╱4a╱J╱ // 0x368c @0x16
0x3676…3690 at0017 = ╱31╱1╱ // 0x368d @0x17
0x3676…3690 at0018 = ╱33╱3╱ // 0x368e @0x18
0x3676…3690 at0019 = EOL // 0x368f @0x19
0x3676…3690 }
0x3690…36a6 c3fd 7140 EXEC FE(W,8,C2$)
0x3690…36a6 LineComalBin {
0x3690…36a6 ptr = 0xc3fd // 0x3690 @0x0
0x3690…36a6 lno = 0x1be4 // 0x3692 @0x2
0x3690…36a6 at0004 = ╱9d╱ EXEC ╱ // 0x3694 @0x4
0x3690…36a6 at0005 = ╱46╱F╱ // 0x3695 @0x5
0x3690…36a6 at0006 = ╱45╱E╱ // 0x3696 @0x6
0x3690…36a6 at0007 = ╱ed╱(╱ // 0x3697 @0x7
0x3690…36a6 at0008 = ╱57╱W╱ // 0x3698 @0x8
0x3690…36a6 at0009 = ╱ec╱,╱ // 0x3699 @0x9
0x3690…36a6 at000a = ╱38╱8╱ // 0x369a @0xa
0x3690…36a6 at000b = ╱fe00008004╱ // 0x369b @0xb
0x3690…36a6 at0010 = ╱ec╱,╱ // 0x36a0 @0x10
0x3690…36a6 at0011 = ╱43╱C╱ // 0x36a1 @0x11
0x3690…36a6 at0012 = ╱32╱2╱ // 0x36a2 @0x12
0x3690…36a6 at0013 = ╱ef╱$╱ // 0x36a3 @0x13
0x3690…36a6 at0014 = ╱ee╱)╱ // 0x36a4 @0x14
0x3690…36a6 at0015 = EOL // 0x36a5 @0x15
0x3690…36a6 }
0x36a6…36bb c412 7150 GET C2$,10:E7$
0x36a6…36bb LineComalBin {
0x36a6…36bb ptr = 0xc412 // 0x36a6 @0x0
0x36a6…36bb lno = 0x1bee // 0x36a8 @0x2
0x36a6…36bb at0004 = ╱a9╱ GET ╱ // 0x36aa @0x4
0x36a6…36bb at0005 = ╱43╱C╱ // 0x36ab @0x5
0x36a6…36bb at0006 = ╱32╱2╱ // 0x36ac @0x6
0x36a6…36bb at0007 = ╱ef╱$╱ // 0x36ad @0x7
0x36a6…36bb at0008 = ╱ec╱,╱ // 0x36ae @0x8
0x36a6…36bb at0009 = ╱31╱1╱ // 0x36af @0x9
0x36a6…36bb at000a = ╱30╱0╱ // 0x36b0 @0xa
0x36a6…36bb at000b = ╱fe0000a004╱ // 0x36b1 @0xb
0x36a6…36bb at0010 = ╱f0╱:╱ // 0x36b6 @0x10
0x36a6…36bb at0011 = ╱45╱E╱ // 0x36b7 @0x11
0x36a6…36bb at0012 = ╱37╱7╱ // 0x36b8 @0x12
0x36a6…36bb at0013 = ╱ef╱$╱ // 0x36b9 @0x13
0x36a6…36bb at0014 = EOL // 0x36ba @0x14
0x36a6…36bb }
0x36bb…36cc c423 7160 EXEC FE(W,W,C2$)
0x36bb…36cc LineComalBin {
0x36bb…36cc ptr = 0xc423 // 0x36bb @0x0
0x36bb…36cc lno = 0x1bf8 // 0x36bd @0x2
0x36bb…36cc at0004 = ╱9d╱ EXEC ╱ // 0x36bf @0x4
0x36bb…36cc at0005 = ╱46╱F╱ // 0x36c0 @0x5
0x36bb…36cc at0006 = ╱45╱E╱ // 0x36c1 @0x6
0x36bb…36cc at0007 = ╱ed╱(╱ // 0x36c2 @0x7
0x36bb…36cc at0008 = ╱57╱W╱ // 0x36c3 @0x8
0x36bb…36cc at0009 = ╱ec╱,╱ // 0x36c4 @0x9
0x36bb…36cc at000a = ╱57╱W╱ // 0x36c5 @0xa
0x36bb…36cc at000b = ╱ec╱,╱ // 0x36c6 @0xb
0x36bb…36cc at000c = ╱43╱C╱ // 0x36c7 @0xc
0x36bb…36cc at000d = ╱32╱2╱ // 0x36c8 @0xd
0x36bb…36cc at000e = ╱ef╱$╱ // 0x36c9 @0xe
0x36bb…36cc at000f = ╱ee╱)╱ // 0x36ca @0xf
0x36bb…36cc at0010 = EOL // 0x36cb @0x10
0x36bb…36cc }
0x36cc…36e1 c438 7170 GET C2$,11:A6$
0x36cc…36e1 LineComalBin {
0x36cc…36e1 ptr = 0xc438 // 0x36cc @0x0
0x36cc…36e1 lno = 0x1c02 // 0x36ce @0x2
0x36cc…36e1 at0004 = ╱a9╱ GET ╱ // 0x36d0 @0x4
0x36cc…36e1 at0005 = ╱43╱C╱ // 0x36d1 @0x5
0x36cc…36e1 at0006 = ╱32╱2╱ // 0x36d2 @0x6
0x36cc…36e1 at0007 = ╱ef╱$╱ // 0x36d3 @0x7
0x36cc…36e1 at0008 = ╱ec╱,╱ // 0x36d4 @0x8
0x36cc…36e1 at0009 = ╱31╱1╱ // 0x36d5 @0x9
0x36cc…36e1 at000a = ╱31╱1╱ // 0x36d6 @0xa
0x36cc…36e1 at000b = ╱fe0000b004╱ // 0x36d7 @0xb
0x36cc…36e1 at0010 = ╱f0╱:╱ // 0x36dc @0x10
0x36cc…36e1 at0011 = ╱41╱A╱ // 0x36dd @0x11
0x36cc…36e1 at0012 = ╱36╱6╱ // 0x36de @0x12
0x36cc…36e1 at0013 = ╱ef╱$╱ // 0x36df @0x13
0x36cc…36e1 at0014 = EOL // 0x36e0 @0x14
0x36cc…36e1 }
0x36e1…36f8 c44f 7180 EXEC FE(W,10,C2$)
0x36e1…36f8 LineComalBin {
0x36e1…36f8 ptr = 0xc44f // 0x36e1 @0x0
0x36e1…36f8 lno = 0x1c0c // 0x36e3 @0x2
0x36e1…36f8 at0004 = ╱9d╱ EXEC ╱ // 0x36e5 @0x4
0x36e1…36f8 at0005 = ╱46╱F╱ // 0x36e6 @0x5
0x36e1…36f8 at0006 = ╱45╱E╱ // 0x36e7 @0x6
0x36e1…36f8 at0007 = ╱ed╱(╱ // 0x36e8 @0x7
0x36e1…36f8 at0008 = ╱57╱W╱ // 0x36e9 @0x8
0x36e1…36f8 at0009 = ╱ec╱,╱ // 0x36ea @0x9
0x36e1…36f8 at000a = ╱31╱1╱ // 0x36eb @0xa
0x36e1…36f8 at000b = ╱30╱0╱ // 0x36ec @0xb
0x36e1…36f8 at000c = ╱fe0000a004╱ // 0x36ed @0xc
0x36e1…36f8 at0011 = ╱ec╱,╱ // 0x36f2 @0x11
0x36e1…36f8 at0012 = ╱43╱C╱ // 0x36f3 @0x12
0x36e1…36f8 at0013 = ╱32╱2╱ // 0x36f4 @0x13
0x36e1…36f8 at0014 = ╱ef╱$╱ // 0x36f5 @0x14
0x36e1…36f8 at0015 = ╱ee╱)╱ // 0x36f6 @0x15
0x36e1…36f8 at0016 = EOL // 0x36f7 @0x16
0x36e1…36f8 }
0x36f8…370d c464 7190 GET C2$,12:A4$
0x36f8…370d LineComalBin {
0x36f8…370d ptr = 0xc464 // 0x36f8 @0x0
0x36f8…370d lno = 0x1c16 // 0x36fa @0x2
0x36f8…370d at0004 = ╱a9╱ GET ╱ // 0x36fc @0x4
0x36f8…370d at0005 = ╱43╱C╱ // 0x36fd @0x5
0x36f8…370d at0006 = ╱32╱2╱ // 0x36fe @0x6
0x36f8…370d at0007 = ╱ef╱$╱ // 0x36ff @0x7
0x36f8…370d at0008 = ╱ec╱,╱ // 0x3700 @0x8
0x36f8…370d at0009 = ╱31╱1╱ // 0x3701 @0x9
0x36f8…370d at000a = ╱32╱2╱ // 0x3702 @0xa
0x36f8…370d at000b = ╱fe0000c004╱ // 0x3703 @0xb
0x36f8…370d at0010 = ╱f0╱:╱ // 0x3708 @0x10
0x36f8…370d at0011 = ╱41╱A╱ // 0x3709 @0x11
0x36f8…370d at0012 = ╱34╱4╱ // 0x370a @0x12
0x36f8…370d at0013 = ╱ef╱$╱ // 0x370b @0x13
0x36f8…370d at0014 = EOL // 0x370c @0x14
0x36f8…370d }
0x370d…3724 c47b 7200 EXEC FE(W,11,C2$)
0x370d…3724 LineComalBin {
0x370d…3724 ptr = 0xc47b // 0x370d @0x0
0x370d…3724 lno = 0x1c20 // 0x370f @0x2
0x370d…3724 at0004 = ╱9d╱ EXEC ╱ // 0x3711 @0x4
0x370d…3724 at0005 = ╱46╱F╱ // 0x3712 @0x5
0x370d…3724 at0006 = ╱45╱E╱ // 0x3713 @0x6
0x370d…3724 at0007 = ╱ed╱(╱ // 0x3714 @0x7
0x370d…3724 at0008 = ╱57╱W╱ // 0x3715 @0x8
0x370d…3724 at0009 = ╱ec╱,╱ // 0x3716 @0x9
0x370d…3724 at000a = ╱31╱1╱ // 0x3717 @0xa
0x370d…3724 at000b = ╱31╱1╱ // 0x3718 @0xb
0x370d…3724 at000c = ╱fe0000b004╱ // 0x3719 @0xc
0x370d…3724 at0011 = ╱ec╱,╱ // 0x371e @0x11
0x370d…3724 at0012 = ╱43╱C╱ // 0x371f @0x12
0x370d…3724 at0013 = ╱32╱2╱ // 0x3720 @0x13
0x370d…3724 at0014 = ╱ef╱$╱ // 0x3721 @0x14
0x370d…3724 at0015 = ╱ee╱)╱ // 0x3722 @0x15
0x370d…3724 at0016 = EOL // 0x3723 @0x16
0x370d…3724 }
0x3724…3739 c490 7210 GET C2$,13:B6$
0x3724…3739 LineComalBin {
0x3724…3739 ptr = 0xc490 // 0x3724 @0x0
0x3724…3739 lno = 0x1c2a // 0x3726 @0x2
0x3724…3739 at0004 = ╱a9╱ GET ╱ // 0x3728 @0x4
0x3724…3739 at0005 = ╱43╱C╱ // 0x3729 @0x5
0x3724…3739 at0006 = ╱32╱2╱ // 0x372a @0x6
0x3724…3739 at0007 = ╱ef╱$╱ // 0x372b @0x7
0x3724…3739 at0008 = ╱ec╱,╱ // 0x372c @0x8
0x3724…3739 at0009 = ╱31╱1╱ // 0x372d @0x9
0x3724…3739 at000a = ╱33╱3╱ // 0x372e @0xa
0x3724…3739 at000b = ╱fe0000d004╱ // 0x372f @0xb
0x3724…3739 at0010 = ╱f0╱:╱ // 0x3734 @0x10
0x3724…3739 at0011 = ╱42╱B╱ // 0x3735 @0x11
0x3724…3739 at0012 = ╱36╱6╱ // 0x3736 @0x12
0x3724…3739 at0013 = ╱ef╱$╱ // 0x3737 @0x13
0x3724…3739 at0014 = EOL // 0x3738 @0x14
0x3724…3739 }
0x3739…3750 c4a7 7220 EXEC FE(W,12,C2$)
0x3739…3750 LineComalBin {
0x3739…3750 ptr = 0xc4a7 // 0x3739 @0x0
0x3739…3750 lno = 0x1c34 // 0x373b @0x2
0x3739…3750 at0004 = ╱9d╱ EXEC ╱ // 0x373d @0x4
0x3739…3750 at0005 = ╱46╱F╱ // 0x373e @0x5
0x3739…3750 at0006 = ╱45╱E╱ // 0x373f @0x6
0x3739…3750 at0007 = ╱ed╱(╱ // 0x3740 @0x7
0x3739…3750 at0008 = ╱57╱W╱ // 0x3741 @0x8
0x3739…3750 at0009 = ╱ec╱,╱ // 0x3742 @0x9
0x3739…3750 at000a = ╱31╱1╱ // 0x3743 @0xa
0x3739…3750 at000b = ╱32╱2╱ // 0x3744 @0xb
0x3739…3750 at000c = ╱fe0000c004╱ // 0x3745 @0xc
0x3739…3750 at0011 = ╱ec╱,╱ // 0x374a @0x11
0x3739…3750 at0012 = ╱43╱C╱ // 0x374b @0x12
0x3739…3750 at0013 = ╱32╱2╱ // 0x374c @0x13
0x3739…3750 at0014 = ╱ef╱$╱ // 0x374d @0x14
0x3739…3750 at0015 = ╱ee╱)╱ // 0x374e @0x15
0x3739…3750 at0016 = EOL // 0x374f @0x16
0x3739…3750 }
0x3750…3765 c4bc 7230 GET C2$,15:C9$
0x3750…3765 LineComalBin {
0x3750…3765 ptr = 0xc4bc // 0x3750 @0x0
0x3750…3765 lno = 0x1c3e // 0x3752 @0x2
0x3750…3765 at0004 = ╱a9╱ GET ╱ // 0x3754 @0x4
0x3750…3765 at0005 = ╱43╱C╱ // 0x3755 @0x5
0x3750…3765 at0006 = ╱32╱2╱ // 0x3756 @0x6
0x3750…3765 at0007 = ╱ef╱$╱ // 0x3757 @0x7
0x3750…3765 at0008 = ╱ec╱,╱ // 0x3758 @0x8
0x3750…3765 at0009 = ╱31╱1╱ // 0x3759 @0x9
0x3750…3765 at000a = ╱35╱5╱ // 0x375a @0xa
0x3750…3765 at000b = ╱fe0000f004╱ // 0x375b @0xb
0x3750…3765 at0010 = ╱f0╱:╱ // 0x3760 @0x10
0x3750…3765 at0011 = ╱43╱C╱ // 0x3761 @0x11
0x3750…3765 at0012 = ╱39╱9╱ // 0x3762 @0x12
0x3750…3765 at0013 = ╱ef╱$╱ // 0x3763 @0x13
0x3750…3765 at0014 = EOL // 0x3764 @0x14
0x3750…3765 }
0x3765…377c c4d3 7240 EXEC FE(W,13,C2$)
0x3765…377c LineComalBin {
0x3765…377c ptr = 0xc4d3 // 0x3765 @0x0
0x3765…377c lno = 0x1c48 // 0x3767 @0x2
0x3765…377c at0004 = ╱9d╱ EXEC ╱ // 0x3769 @0x4
0x3765…377c at0005 = ╱46╱F╱ // 0x376a @0x5
0x3765…377c at0006 = ╱45╱E╱ // 0x376b @0x6
0x3765…377c at0007 = ╱ed╱(╱ // 0x376c @0x7
0x3765…377c at0008 = ╱57╱W╱ // 0x376d @0x8
0x3765…377c at0009 = ╱ec╱,╱ // 0x376e @0x9
0x3765…377c at000a = ╱31╱1╱ // 0x376f @0xa
0x3765…377c at000b = ╱33╱3╱ // 0x3770 @0xb
0x3765…377c at000c = ╱fe0000d004╱ // 0x3771 @0xc
0x3765…377c at0011 = ╱ec╱,╱ // 0x3776 @0x11
0x3765…377c at0012 = ╱43╱C╱ // 0x3777 @0x12
0x3765…377c at0013 = ╱32╱2╱ // 0x3778 @0x13
0x3765…377c at0014 = ╱ef╱$╱ // 0x3779 @0x14
0x3765…377c at0015 = ╱ee╱)╱ // 0x377a @0x15
0x3765…377c at0016 = EOL // 0x377b @0x16
0x3765…377c }
0x377c…3791 c4e8 7250 GET C2$,16:D0$
0x377c…3791 LineComalBin {
0x377c…3791 ptr = 0xc4e8 // 0x377c @0x0
0x377c…3791 lno = 0x1c52 // 0x377e @0x2
0x377c…3791 at0004 = ╱a9╱ GET ╱ // 0x3780 @0x4
0x377c…3791 at0005 = ╱43╱C╱ // 0x3781 @0x5
0x377c…3791 at0006 = ╱32╱2╱ // 0x3782 @0x6
0x377c…3791 at0007 = ╱ef╱$╱ // 0x3783 @0x7
0x377c…3791 at0008 = ╱ec╱,╱ // 0x3784 @0x8
0x377c…3791 at0009 = ╱31╱1╱ // 0x3785 @0x9
0x377c…3791 at000a = ╱36╱6╱ // 0x3786 @0xa
0x377c…3791 at000b = ╱fe00008005╱ // 0x3787 @0xb
0x377c…3791 at0010 = ╱f0╱:╱ // 0x378c @0x10
0x377c…3791 at0011 = ╱44╱D╱ // 0x378d @0x11
0x377c…3791 at0012 = ╱30╱0╱ // 0x378e @0x12
0x377c…3791 at0013 = ╱ef╱$╱ // 0x378f @0x13
0x377c…3791 at0014 = EOL // 0x3790 @0x14
0x377c…3791 }
0x3791…37a8 c4ff 7260 EXEC FE(W,14,C2$)
0x3791…37a8 LineComalBin {
0x3791…37a8 ptr = 0xc4ff // 0x3791 @0x0
0x3791…37a8 lno = 0x1c5c // 0x3793 @0x2
0x3791…37a8 at0004 = ╱9d╱ EXEC ╱ // 0x3795 @0x4
0x3791…37a8 at0005 = ╱46╱F╱ // 0x3796 @0x5
0x3791…37a8 at0006 = ╱45╱E╱ // 0x3797 @0x6
0x3791…37a8 at0007 = ╱ed╱(╱ // 0x3798 @0x7
0x3791…37a8 at0008 = ╱57╱W╱ // 0x3799 @0x8
0x3791…37a8 at0009 = ╱ec╱,╱ // 0x379a @0x9
0x3791…37a8 at000a = ╱31╱1╱ // 0x379b @0xa
0x3791…37a8 at000b = ╱34╱4╱ // 0x379c @0xb
0x3791…37a8 at000c = ╱fe0000e004╱ // 0x379d @0xc
0x3791…37a8 at0011 = ╱ec╱,╱ // 0x37a2 @0x11
0x3791…37a8 at0012 = ╱43╱C╱ // 0x37a3 @0x12
0x3791…37a8 at0013 = ╱32╱2╱ // 0x37a4 @0x13
0x3791…37a8 at0014 = ╱ef╱$╱ // 0x37a5 @0x14
0x3791…37a8 at0015 = ╱ee╱)╱ // 0x37a6 @0x15
0x3791…37a8 at0016 = EOL // 0x37a7 @0x16
0x3791…37a8 }
0x37a8…37bd c514 7270 GET C2$,17:D1$
0x37a8…37bd LineComalBin {
0x37a8…37bd ptr = 0xc514 // 0x37a8 @0x0
0x37a8…37bd lno = 0x1c66 // 0x37aa @0x2
0x37a8…37bd at0004 = ╱a9╱ GET ╱ // 0x37ac @0x4
0x37a8…37bd at0005 = ╱43╱C╱ // 0x37ad @0x5
0x37a8…37bd at0006 = ╱32╱2╱ // 0x37ae @0x6
0x37a8…37bd at0007 = ╱ef╱$╱ // 0x37af @0x7
0x37a8…37bd at0008 = ╱ec╱,╱ // 0x37b0 @0x8
0x37a8…37bd at0009 = ╱31╱1╱ // 0x37b1 @0x9
0x37a8…37bd at000a = ╱37╱7╱ // 0x37b2 @0xa
0x37a8…37bd at000b = ╱fe00008805╱ // 0x37b3 @0xb
0x37a8…37bd at0010 = ╱f0╱:╱ // 0x37b8 @0x10
0x37a8…37bd at0011 = ╱44╱D╱ // 0x37b9 @0x11
0x37a8…37bd at0012 = ╱31╱1╱ // 0x37ba @0x12
0x37a8…37bd at0013 = ╱ef╱$╱ // 0x37bb @0x13
0x37a8…37bd at0014 = EOL // 0x37bc @0x14
0x37a8…37bd }
0x37bd…37d4 c52b 7280 EXEC FE(W,15,C2$)
0x37bd…37d4 LineComalBin {
0x37bd…37d4 ptr = 0xc52b // 0x37bd @0x0
0x37bd…37d4 lno = 0x1c70 // 0x37bf @0x2
0x37bd…37d4 at0004 = ╱9d╱ EXEC ╱ // 0x37c1 @0x4
0x37bd…37d4 at0005 = ╱46╱F╱ // 0x37c2 @0x5
0x37bd…37d4 at0006 = ╱45╱E╱ // 0x37c3 @0x6
0x37bd…37d4 at0007 = ╱ed╱(╱ // 0x37c4 @0x7
0x37bd…37d4 at0008 = ╱57╱W╱ // 0x37c5 @0x8
0x37bd…37d4 at0009 = ╱ec╱,╱ // 0x37c6 @0x9
0x37bd…37d4 at000a = ╱31╱1╱ // 0x37c7 @0xa
0x37bd…37d4 at000b = ╱35╱5╱ // 0x37c8 @0xb
0x37bd…37d4 at000c = ╱fe0000f004╱ // 0x37c9 @0xc
0x37bd…37d4 at0011 = ╱ec╱,╱ // 0x37ce @0x11
0x37bd…37d4 at0012 = ╱43╱C╱ // 0x37cf @0x12
0x37bd…37d4 at0013 = ╱32╱2╱ // 0x37d0 @0x13
0x37bd…37d4 at0014 = ╱ef╱$╱ // 0x37d1 @0x14
0x37bd…37d4 at0015 = ╱ee╱)╱ // 0x37d2 @0x15
0x37bd…37d4 at0016 = EOL // 0x37d3 @0x16
0x37bd…37d4 }
0x37d4…37e9 c540 7290 GET C2$,19:D2$
0x37d4…37e9 LineComalBin {
0x37d4…37e9 ptr = 0xc540 // 0x37d4 @0x0
0x37d4…37e9 lno = 0x1c7a // 0x37d6 @0x2
0x37d4…37e9 at0004 = ╱a9╱ GET ╱ // 0x37d8 @0x4
0x37d4…37e9 at0005 = ╱43╱C╱ // 0x37d9 @0x5
0x37d4…37e9 at0006 = ╱32╱2╱ // 0x37da @0x6
0x37d4…37e9 at0007 = ╱ef╱$╱ // 0x37db @0x7
0x37d4…37e9 at0008 = ╱ec╱,╱ // 0x37dc @0x8
0x37d4…37e9 at0009 = ╱31╱1╱ // 0x37dd @0x9
0x37d4…37e9 at000a = ╱39╱9╱ // 0x37de @0xa
0x37d4…37e9 at000b = ╱fe00009805╱ // 0x37df @0xb
0x37d4…37e9 at0010 = ╱f0╱:╱ // 0x37e4 @0x10
0x37d4…37e9 at0011 = ╱44╱D╱ // 0x37e5 @0x11
0x37d4…37e9 at0012 = ╱32╱2╱ // 0x37e6 @0x12
0x37d4…37e9 at0013 = ╱ef╱$╱ // 0x37e7 @0x13
0x37d4…37e9 at0014 = EOL // 0x37e8 @0x14
0x37d4…37e9 }
0x37e9…3800 c557 7300 EXEC FE(W,16,C2$)
0x37e9…3800 LineComalBin {
0x37e9…3800 ptr = 0xc557 // 0x37e9 @0x0
0x37e9…3800 lno = 0x1c84 // 0x37eb @0x2
0x37e9…3800 at0004 = ╱9d╱ EXEC ╱ // 0x37ed @0x4
0x37e9…3800 at0005 = ╱46╱F╱ // 0x37ee @0x5
0x37e9…3800 at0006 = ╱45╱E╱ // 0x37ef @0x6
0x37e9…3800 at0007 = ╱ed╱(╱ // 0x37f0 @0x7
0x37e9…3800 at0008 = ╱57╱W╱ // 0x37f1 @0x8
0x37e9…3800 at0009 = ╱ec╱,╱ // 0x37f2 @0x9
0x37e9…3800 at000a = ╱31╱1╱ // 0x37f3 @0xa
0x37e9…3800 at000b = ╱36╱6╱ // 0x37f4 @0xb
0x37e9…3800 at000c = ╱fe00008005╱ // 0x37f5 @0xc
0x37e9…3800 at0011 = ╱ec╱,╱ // 0x37fa @0x11
0x37e9…3800 at0012 = ╱43╱C╱ // 0x37fb @0x12
0x37e9…3800 at0013 = ╱32╱2╱ // 0x37fc @0x13
0x37e9…3800 at0014 = ╱ef╱$╱ // 0x37fd @0x14
0x37e9…3800 at0015 = ╱ee╱)╱ // 0x37fe @0x15
0x37e9…3800 at0016 = EOL // 0x37ff @0x16
0x37e9…3800 }
0x3800…3815 c56c 7310 GET C2$,21:D3$
0x3800…3815 LineComalBin {
0x3800…3815 ptr = 0xc56c // 0x3800 @0x0
0x3800…3815 lno = 0x1c8e // 0x3802 @0x2
0x3800…3815 at0004 = ╱a9╱ GET ╱ // 0x3804 @0x4
0x3800…3815 at0005 = ╱43╱C╱ // 0x3805 @0x5
0x3800…3815 at0006 = ╱32╱2╱ // 0x3806 @0x6
0x3800…3815 at0007 = ╱ef╱$╱ // 0x3807 @0x7
0x3800…3815 at0008 = ╱ec╱,╱ // 0x3808 @0x8
0x3800…3815 at0009 = ╱32╱2╱ // 0x3809 @0x9
0x3800…3815 at000a = ╱31╱1╱ // 0x380a @0xa
0x3800…3815 at000b = ╱fe0000a805╱ // 0x380b @0xb
0x3800…3815 at0010 = ╱f0╱:╱ // 0x3810 @0x10
0x3800…3815 at0011 = ╱44╱D╱ // 0x3811 @0x11
0x3800…3815 at0012 = ╱33╱3╱ // 0x3812 @0x12
0x3800…3815 at0013 = ╱ef╱$╱ // 0x3813 @0x13
0x3800…3815 at0014 = EOL // 0x3814 @0x14
0x3800…3815 }
0x3815…382c c583 7320 EXEC FE(W,17,C2$)
0x3815…382c LineComalBin {
0x3815…382c ptr = 0xc583 // 0x3815 @0x0
0x3815…382c lno = 0x1c98 // 0x3817 @0x2
0x3815…382c at0004 = ╱9d╱ EXEC ╱ // 0x3819 @0x4
0x3815…382c at0005 = ╱46╱F╱ // 0x381a @0x5
0x3815…382c at0006 = ╱45╱E╱ // 0x381b @0x6
0x3815…382c at0007 = ╱ed╱(╱ // 0x381c @0x7
0x3815…382c at0008 = ╱57╱W╱ // 0x381d @0x8
0x3815…382c at0009 = ╱ec╱,╱ // 0x381e @0x9
0x3815…382c at000a = ╱31╱1╱ // 0x381f @0xa
0x3815…382c at000b = ╱37╱7╱ // 0x3820 @0xb
0x3815…382c at000c = ╱fe00008805╱ // 0x3821 @0xc
0x3815…382c at0011 = ╱ec╱,╱ // 0x3826 @0x11
0x3815…382c at0012 = ╱43╱C╱ // 0x3827 @0x12
0x3815…382c at0013 = ╱32╱2╱ // 0x3828 @0x13
0x3815…382c at0014 = ╱ef╱$╱ // 0x3829 @0x14
0x3815…382c at0015 = ╱ee╱)╱ // 0x382a @0x15
0x3815…382c at0016 = EOL // 0x382b @0x16
0x3815…382c }
0x382c…3841 c598 7330 GET C2$,36:E2$
0x382c…3841 LineComalBin {
0x382c…3841 ptr = 0xc598 // 0x382c @0x0
0x382c…3841 lno = 0x1ca2 // 0x382e @0x2
0x382c…3841 at0004 = ╱a9╱ GET ╱ // 0x3830 @0x4
0x382c…3841 at0005 = ╱43╱C╱ // 0x3831 @0x5
0x382c…3841 at0006 = ╱32╱2╱ // 0x3832 @0x6
0x382c…3841 at0007 = ╱ef╱$╱ // 0x3833 @0x7
0x382c…3841 at0008 = ╱ec╱,╱ // 0x3834 @0x8
0x382c…3841 at0009 = ╱33╱3╱ // 0x3835 @0x9
0x382c…3841 at000a = ╱36╱6╱ // 0x3836 @0xa
0x382c…3841 at000b = ╱fe00009006╱ // 0x3837 @0xb
0x382c…3841 at0010 = ╱f0╱:╱ // 0x383c @0x10
0x382c…3841 at0011 = ╱45╱E╱ // 0x383d @0x11
0x382c…3841 at0012 = ╱32╱2╱ // 0x383e @0x12
0x382c…3841 at0013 = ╱ef╱$╱ // 0x383f @0x13
0x382c…3841 at0014 = EOL // 0x3840 @0x14
0x382c…3841 }
0x3841…3858 c5af 7340 EXEC FE(W,18,C2$)
0x3841…3858 LineComalBin {
0x3841…3858 ptr = 0xc5af // 0x3841 @0x0
0x3841…3858 lno = 0x1cac // 0x3843 @0x2
0x3841…3858 at0004 = ╱9d╱ EXEC ╱ // 0x3845 @0x4
0x3841…3858 at0005 = ╱46╱F╱ // 0x3846 @0x5
0x3841…3858 at0006 = ╱45╱E╱ // 0x3847 @0x6
0x3841…3858 at0007 = ╱ed╱(╱ // 0x3848 @0x7
0x3841…3858 at0008 = ╱57╱W╱ // 0x3849 @0x8
0x3841…3858 at0009 = ╱ec╱,╱ // 0x384a @0x9
0x3841…3858 at000a = ╱31╱1╱ // 0x384b @0xa
0x3841…3858 at000b = ╱38╱8╱ // 0x384c @0xb
0x3841…3858 at000c = ╱fe00009005╱ // 0x384d @0xc
0x3841…3858 at0011 = ╱ec╱,╱ // 0x3852 @0x11
0x3841…3858 at0012 = ╱43╱C╱ // 0x3853 @0x12
0x3841…3858 at0013 = ╱32╱2╱ // 0x3854 @0x13
0x3841…3858 at0014 = ╱ef╱$╱ // 0x3855 @0x14
0x3841…3858 at0015 = ╱ee╱)╱ // 0x3856 @0x15
0x3841…3858 at0016 = EOL // 0x3857 @0x16
0x3841…3858 }
0x3858…386e c5c5 7350 GET C2$,37:E12$
0x3858…386e LineComalBin {
0x3858…386e ptr = 0xc5c5 // 0x3858 @0x0
0x3858…386e lno = 0x1cb6 // 0x385a @0x2
0x3858…386e at0004 = ╱a9╱ GET ╱ // 0x385c @0x4
0x3858…386e at0005 = ╱43╱C╱ // 0x385d @0x5
0x3858…386e at0006 = ╱32╱2╱ // 0x385e @0x6
0x3858…386e at0007 = ╱ef╱$╱ // 0x385f @0x7
0x3858…386e at0008 = ╱ec╱,╱ // 0x3860 @0x8
0x3858…386e at0009 = ╱33╱3╱ // 0x3861 @0x9
0x3858…386e at000a = ╱37╱7╱ // 0x3862 @0xa
0x3858…386e at000b = ╱fe00009406╱ // 0x3863 @0xb
0x3858…386e at0010 = ╱f0╱:╱ // 0x3868 @0x10
0x3858…386e at0011 = ╱45╱E╱ // 0x3869 @0x11
0x3858…386e at0012 = ╱31╱1╱ // 0x386a @0x12
0x3858…386e at0013 = ╱32╱2╱ // 0x386b @0x13
0x3858…386e at0014 = ╱ef╱$╱ // 0x386c @0x14
0x3858…386e at0015 = EOL // 0x386d @0x15
0x3858…386e }
0x386e…3885 c5dc 7360 EXEC FE(99,E,C2$)
0x386e…3885 LineComalBin {
0x386e…3885 ptr = 0xc5dc // 0x386e @0x0
0x386e…3885 lno = 0x1cc0 // 0x3870 @0x2
0x386e…3885 at0004 = ╱9d╱ EXEC ╱ // 0x3872 @0x4
0x386e…3885 at0005 = ╱46╱F╱ // 0x3873 @0x5
0x386e…3885 at0006 = ╱45╱E╱ // 0x3874 @0x6
0x386e…3885 at0007 = ╱ed╱(╱ // 0x3875 @0x7
0x386e…3885 at0008 = ╱39╱9╱ // 0x3876 @0x8
0x386e…3885 at0009 = ╱39╱9╱ // 0x3877 @0x9
0x386e…3885 at000a = ╱fe0000c607╱ // 0x3878 @0xa
0x386e…3885 at000f = ╱ec╱,╱ // 0x387d @0xf
0x386e…3885 at0010 = ╱45╱E╱ // 0x387e @0x10
0x386e…3885 at0011 = ╱ec╱,╱ // 0x387f @0x11
0x386e…3885 at0012 = ╱43╱C╱ // 0x3880 @0x12
0x386e…3885 at0013 = ╱32╱2╱ // 0x3881 @0x13
0x386e…3885 at0014 = ╱ef╱$╱ // 0x3882 @0x14
0x386e…3885 at0015 = ╱ee╱)╱ // 0x3883 @0x15
0x386e…3885 at0016 = EOL // 0x3884 @0x16
0x386e…3885 }
0x3885…389b c5f2 7370 GET C2$,38:E13$
0x3885…389b LineComalBin {
0x3885…389b ptr = 0xc5f2 // 0x3885 @0x0
0x3885…389b lno = 0x1cca // 0x3887 @0x2
0x3885…389b at0004 = ╱a9╱ GET ╱ // 0x3889 @0x4
0x3885…389b at0005 = ╱43╱C╱ // 0x388a @0x5
0x3885…389b at0006 = ╱32╱2╱ // 0x388b @0x6
0x3885…389b at0007 = ╱ef╱$╱ // 0x388c @0x7
0x3885…389b at0008 = ╱ec╱,╱ // 0x388d @0x8
0x3885…389b at0009 = ╱33╱3╱ // 0x388e @0x9
0x3885…389b at000a = ╱38╱8╱ // 0x388f @0xa
0x3885…389b at000b = ╱fe00009806╱ // 0x3890 @0xb
0x3885…389b at0010 = ╱f0╱:╱ // 0x3895 @0x10
0x3885…389b at0011 = ╱45╱E╱ // 0x3896 @0x11
0x3885…389b at0012 = ╱31╱1╱ // 0x3897 @0x12
0x3885…389b at0013 = ╱33╱3╱ // 0x3898 @0x13
0x3885…389b at0014 = ╱ef╱$╱ // 0x3899 @0x14
0x3885…389b at0015 = EOL // 0x389a @0x15
0x3885…389b }
0x389b…38b2 c609 7380 EXEC FE(99,G,C2$)
0x389b…38b2 LineComalBin {
0x389b…38b2 ptr = 0xc609 // 0x389b @0x0
0x389b…38b2 lno = 0x1cd4 // 0x389d @0x2
0x389b…38b2 at0004 = ╱9d╱ EXEC ╱ // 0x389f @0x4
0x389b…38b2 at0005 = ╱46╱F╱ // 0x38a0 @0x5
0x389b…38b2 at0006 = ╱45╱E╱ // 0x38a1 @0x6
0x389b…38b2 at0007 = ╱ed╱(╱ // 0x38a2 @0x7
0x389b…38b2 at0008 = ╱39╱9╱ // 0x38a3 @0x8
0x389b…38b2 at0009 = ╱39╱9╱ // 0x38a4 @0x9
0x389b…38b2 at000a = ╱fe0000c607╱ // 0x38a5 @0xa
0x389b…38b2 at000f = ╱ec╱,╱ // 0x38aa @0xf
0x389b…38b2 at0010 = ╱47╱G╱ // 0x38ab @0x10
0x389b…38b2 at0011 = ╱ec╱,╱ // 0x38ac @0x11
0x389b…38b2 at0012 = ╱43╱C╱ // 0x38ad @0x12
0x389b…38b2 at0013 = ╱32╱2╱ // 0x38ae @0x13
0x389b…38b2 at0014 = ╱ef╱$╱ // 0x38af @0x14
0x389b…38b2 at0015 = ╱ee╱)╱ // 0x38b0 @0x15
0x389b…38b2 at0016 = EOL // 0x38b1 @0x16
0x389b…38b2 }
0x38b2…38c8 c61f 7390 GET C2$,39:E14$
0x38b2…38c8 LineComalBin {
0x38b2…38c8 ptr = 0xc61f // 0x38b2 @0x0
0x38b2…38c8 lno = 0x1cde // 0x38b4 @0x2
0x38b2…38c8 at0004 = ╱a9╱ GET ╱ // 0x38b6 @0x4
0x38b2…38c8 at0005 = ╱43╱C╱ // 0x38b7 @0x5
0x38b2…38c8 at0006 = ╱32╱2╱ // 0x38b8 @0x6
0x38b2…38c8 at0007 = ╱ef╱$╱ // 0x38b9 @0x7
0x38b2…38c8 at0008 = ╱ec╱,╱ // 0x38ba @0x8
0x38b2…38c8 at0009 = ╱33╱3╱ // 0x38bb @0x9
0x38b2…38c8 at000a = ╱39╱9╱ // 0x38bc @0xa
0x38b2…38c8 at000b = ╱fe00009c06╱ // 0x38bd @0xb
0x38b2…38c8 at0010 = ╱f0╱:╱ // 0x38c2 @0x10
0x38b2…38c8 at0011 = ╱45╱E╱ // 0x38c3 @0x11
0x38b2…38c8 at0012 = ╱31╱1╱ // 0x38c4 @0x12
0x38b2…38c8 at0013 = ╱34╱4╱ // 0x38c5 @0x13
0x38b2…38c8 at0014 = ╱ef╱$╱ // 0x38c6 @0x14
0x38b2…38c8 at0015 = EOL // 0x38c7 @0x15
0x38b2…38c8 }
0x38c8…38df c636 7400 EXEC FE(99,V,C2$)
0x38c8…38df LineComalBin {
0x38c8…38df ptr = 0xc636 // 0x38c8 @0x0
0x38c8…38df lno = 0x1ce8 // 0x38ca @0x2
0x38c8…38df at0004 = ╱9d╱ EXEC ╱ // 0x38cc @0x4
0x38c8…38df at0005 = ╱46╱F╱ // 0x38cd @0x5
0x38c8…38df at0006 = ╱45╱E╱ // 0x38ce @0x6
0x38c8…38df at0007 = ╱ed╱(╱ // 0x38cf @0x7
0x38c8…38df at0008 = ╱39╱9╱ // 0x38d0 @0x8
0x38c8…38df at0009 = ╱39╱9╱ // 0x38d1 @0x9
0x38c8…38df at000a = ╱fe0000c607╱ // 0x38d2 @0xa
0x38c8…38df at000f = ╱ec╱,╱ // 0x38d7 @0xf
0x38c8…38df at0010 = ╱56╱V╱ // 0x38d8 @0x10
0x38c8…38df at0011 = ╱ec╱,╱ // 0x38d9 @0x11
0x38c8…38df at0012 = ╱43╱C╱ // 0x38da @0x12
0x38c8…38df at0013 = ╱32╱2╱ // 0x38db @0x13
0x38c8…38df at0014 = ╱ef╱$╱ // 0x38dc @0x14
0x38c8…38df at0015 = ╱ee╱)╱ // 0x38dd @0x15
0x38c8…38df at0016 = EOL // 0x38de @0x16
0x38c8…38df }
0x38df…38fc c653 7410 GET C2$,43:J14,J15,J16
0x38df…38fc LineComalBin {
0x38df…38fc ptr = 0xc653 // 0x38df @0x0
0x38df…38fc lno = 0x1cf2 // 0x38e1 @0x2
0x38df…38fc at0004 = ╱a9╱ GET ╱ // 0x38e3 @0x4
0x38df…38fc at0005 = ╱43╱C╱ // 0x38e4 @0x5
0x38df…38fc at0006 = ╱32╱2╱ // 0x38e5 @0x6
0x38df…38fc at0007 = ╱ef╱$╱ // 0x38e6 @0x7
0x38df…38fc at0008 = ╱ec╱,╱ // 0x38e7 @0x8
0x38df…38fc at0009 = ╱34╱4╱ // 0x38e8 @0x9
0x38df…38fc at000a = ╱33╱3╱ // 0x38e9 @0xa
0x38df…38fc at000b = ╱fe0000ac06╱ // 0x38ea @0xb
0x38df…38fc at0010 = ╱f0╱:╱ // 0x38ef @0x10
0x38df…38fc at0011 = ╱4a╱J╱ // 0x38f0 @0x11
0x38df…38fc at0012 = ╱31╱1╱ // 0x38f1 @0x12
0x38df…38fc at0013 = ╱34╱4╱ // 0x38f2 @0x13
0x38df…38fc at0014 = ╱ec╱,╱ // 0x38f3 @0x14
0x38df…38fc at0015 = ╱4a╱J╱ // 0x38f4 @0x15
0x38df…38fc at0016 = ╱31╱1╱ // 0x38f5 @0x16
0x38df…38fc at0017 = ╱35╱5╱ // 0x38f6 @0x17
0x38df…38fc at0018 = ╱ec╱,╱ // 0x38f7 @0x18
0x38df…38fc at0019 = ╱4a╱J╱ // 0x38f8 @0x19
0x38df…38fc at001a = ╱31╱1╱ // 0x38f9 @0x1a
0x38df…38fc at001b = ╱36╱6╱ // 0x38fa @0x1b
0x38df…38fc at001c = EOL // 0x38fb @0x1c
0x38df…38fc }
0x38fc…3918 c66f 7420 EXEC FE(99,4,C2$)
0x38fc…3918 LineComalBin {
0x38fc…3918 ptr = 0xc66f // 0x38fc @0x0
0x38fc…3918 lno = 0x1cfc // 0x38fe @0x2
0x38fc…3918 at0004 = ╱9d╱ EXEC ╱ // 0x3900 @0x4
0x38fc…3918 at0005 = ╱46╱F╱ // 0x3901 @0x5
0x38fc…3918 at0006 = ╱45╱E╱ // 0x3902 @0x6
0x38fc…3918 at0007 = ╱ed╱(╱ // 0x3903 @0x7
0x38fc…3918 at0008 = ╱39╱9╱ // 0x3904 @0x8
0x38fc…3918 at0009 = ╱39╱9╱ // 0x3905 @0x9
0x38fc…3918 at000a = ╱fe0000c607╱ // 0x3906 @0xa
0x38fc…3918 at000f = ╱ec╱,╱ // 0x390b @0xf
0x38fc…3918 at0010 = ╱34╱4╱ // 0x390c @0x10
0x38fc…3918 at0011 = ╱fe00008003╱ // 0x390d @0x11
0x38fc…3918 at0016 = ╱ec╱,╱ // 0x3912 @0x16
0x38fc…3918 at0017 = ╱43╱C╱ // 0x3913 @0x17
0x38fc…3918 at0018 = ╱32╱2╱ // 0x3914 @0x18
0x38fc…3918 at0019 = ╱ef╱$╱ // 0x3915 @0x19
0x38fc…3918 at001a = ╱ee╱)╱ // 0x3916 @0x1a
0x38fc…3918 at001b = EOL // 0x3917 @0x1b
0x38fc…3918 }
0x3918…3921 c678 7430 CLOSE C2$
0x3918…3921 LineComalBin {
0x3918…3921 ptr = 0xc678 // 0x3918 @0x0
0x3918…3921 lno = 0x1d06 // 0x391a @0x2
0x3918…3921 at0004 = ╱a8╱ CLOSE ╱ // 0x391c @0x4
0x3918…3921 at0005 = ╱43╱C╱ // 0x391d @0x5
0x3918…3921 at0006 = ╱32╱2╱ // 0x391e @0x6
0x3918…3921 at0007 = ╱ef╱$╱ // 0x391f @0x7
0x3918…3921 at0008 = EOL // 0x3920 @0x8
0x3918…3921 }
0x3921…3938 c68f 7440 EXEC FE(W,19,C2$)
0x3921…3938 LineComalBin {
0x3921…3938 ptr = 0xc68f // 0x3921 @0x0
0x3921…3938 lno = 0x1d10 // 0x3923 @0x2
0x3921…3938 at0004 = ╱9d╱ EXEC ╱ // 0x3925 @0x4
0x3921…3938 at0005 = ╱46╱F╱ // 0x3926 @0x5
0x3921…3938 at0006 = ╱45╱E╱ // 0x3927 @0x6
0x3921…3938 at0007 = ╱ed╱(╱ // 0x3928 @0x7
0x3921…3938 at0008 = ╱57╱W╱ // 0x3929 @0x8
0x3921…3938 at0009 = ╱ec╱,╱ // 0x392a @0x9
0x3921…3938 at000a = ╱31╱1╱ // 0x392b @0xa
0x3921…3938 at000b = ╱39╱9╱ // 0x392c @0xb
0x3921…3938 at000c = ╱fe00009805╱ // 0x392d @0xc
0x3921…3938 at0011 = ╱ec╱,╱ // 0x3932 @0x11
0x3921…3938 at0012 = ╱43╱C╱ // 0x3933 @0x12
0x3921…3938 at0013 = ╱32╱2╱ // 0x3934 @0x13
0x3921…3938 at0014 = ╱ef╱$╱ // 0x3935 @0x14
0x3921…3938 at0015 = ╱ee╱)╱ // 0x3936 @0x15
0x3921…3938 at0016 = EOL // 0x3937 @0x16
0x3921…3938 }
0x3938…3984 c6db 7450 DIM M7(M9 DIV 8),N2(N4 DIV 8),N7(N8 DIV 8),N11(J12 DIV 8),N12(J13+J14)
0x3938…3984 LineComalBin {
0x3938…3984 ptr = 0xc6db // 0x3938 @0x0
0x3938…3984 lno = 0x1d1a // 0x393a @0x2
0x3938…3984 at0004 = ╱87╱ DIM ╱ // 0x393c @0x4
0x3938…3984 at0005 = ╱4d╱M╱ // 0x393d @0x5
0x3938…3984 at0006 = ╱37╱7╱ // 0x393e @0x6
0x3938…3984 at0007 = ╱ed╱(╱ // 0x393f @0x7
0x3938…3984 at0008 = ╱4d╱M╱ // 0x3940 @0x8
0x3938…3984 at0009 = ╱39╱9╱ // 0x3941 @0x9
0x3938…3984 at000a = ╱e7╱ DIV ╱ // 0x3942 @0xa
0x3938…3984 at000b = ╱38╱8╱ // 0x3943 @0xb
0x3938…3984 at000c = ╱fe00008004╱ // 0x3944 @0xc
0x3938…3984 at0011 = ╱ee╱)╱ // 0x3949 @0x11
0x3938…3984 at0012 = ╱ec╱,╱ // 0x394a @0x12
0x3938…3984 at0013 = ╱4e╱N╱ // 0x394b @0x13
0x3938…3984 at0014 = ╱32╱2╱ // 0x394c @0x14
0x3938…3984 at0015 = ╱ed╱(╱ // 0x394d @0x15
0x3938…3984 at0016 = ╱4e╱N╱ // 0x394e @0x16
0x3938…3984 at0017 = ╱34╱4╱ // 0x394f @0x17
0x3938…3984 at0018 = ╱e7╱ DIV ╱ // 0x3950 @0x18
0x3938…3984 at0019 = ╱38╱8╱ // 0x3951 @0x19
0x3938…3984 at001a = ╱fe00008004╱ // 0x3952 @0x1a
0x3938…3984 at001f = ╱ee╱)╱ // 0x3957 @0x1f
0x3938…3984 at0020 = ╱ec╱,╱ // 0x3958 @0x20
0x3938…3984 at0021 = ╱4e╱N╱ // 0x3959 @0x21
0x3938…3984 at0022 = ╱37╱7╱ // 0x395a @0x22
0x3938…3984 at0023 = ╱ed╱(╱ // 0x395b @0x23
0x3938…3984 at0024 = ╱4e╱N╱ // 0x395c @0x24
0x3938…3984 at0025 = ╱38╱8╱ // 0x395d @0x25
0x3938…3984 at0026 = ╱e7╱ DIV ╱ // 0x395e @0x26
0x3938…3984 at0027 = ╱38╱8╱ // 0x395f @0x27
0x3938…3984 at0028 = ╱fe00008004╱ // 0x3960 @0x28
0x3938…3984 at002d = ╱ee╱)╱ // 0x3965 @0x2d
0x3938…3984 at002e = ╱ec╱,╱ // 0x3966 @0x2e
0x3938…3984 at002f = ╱4e╱N╱ // 0x3967 @0x2f
0x3938…3984 at0030 = ╱31╱1╱ // 0x3968 @0x30
0x3938…3984 at0031 = ╱31╱1╱ // 0x3969 @0x31
0x3938…3984 at0032 = ╱ed╱(╱ // 0x396a @0x32
0x3938…3984 at0033 = ╱4a╱J╱ // 0x396b @0x33
0x3938…3984 at0034 = ╱31╱1╱ // 0x396c @0x34
0x3938…3984 at0035 = ╱32╱2╱ // 0x396d @0x35
0x3938…3984 at0036 = ╱e7╱ DIV ╱ // 0x396e @0x36
0x3938…3984 at0037 = ╱38╱8╱ // 0x396f @0x37
0x3938…3984 at0038 = ╱fe00008004╱ // 0x3970 @0x38
0x3938…3984 at003d = ╱ee╱)╱ // 0x3975 @0x3d
0x3938…3984 at003e = ╱ec╱,╱ // 0x3976 @0x3e
0x3938…3984 at003f = ╱4e╱N╱ // 0x3977 @0x3f
0x3938…3984 at0040 = ╱31╱1╱ // 0x3978 @0x40
0x3938…3984 at0041 = ╱32╱2╱ // 0x3979 @0x41
0x3938…3984 at0042 = ╱ed╱(╱ // 0x397a @0x42
0x3938…3984 at0043 = ╱4a╱J╱ // 0x397b @0x43
0x3938…3984 at0044 = ╱31╱1╱ // 0x397c @0x44
0x3938…3984 at0045 = ╱33╱3╱ // 0x397d @0x45
0x3938…3984 at0046 = ╱e2╱+╱ // 0x397e @0x46
0x3938…3984 at0047 = ╱4a╱J╱ // 0x397f @0x47
0x3938…3984 at0048 = ╱31╱1╱ // 0x3980 @0x48
0x3938…3984 at0049 = ╱34╱4╱ // 0x3981 @0x49
0x3938…3984 at004a = ╱ee╱)╱ // 0x3982 @0x4a
0x3938…3984 at004b = EOL // 0x3983 @0x4b
0x3938…3984 }
0x3984…39b8 c70f 7460 DIM M8(8,G),J5$(6,14),N13$(J13+J14)
0x3984…39b8 LineComalBin {
0x3984…39b8 ptr = 0xc70f // 0x3984 @0x0
0x3984…39b8 lno = 0x1d24 // 0x3986 @0x2
0x3984…39b8 at0004 = ╱87╱ DIM ╱ // 0x3988 @0x4
0x3984…39b8 at0005 = ╱4d╱M╱ // 0x3989 @0x5
0x3984…39b8 at0006 = ╱38╱8╱ // 0x398a @0x6
0x3984…39b8 at0007 = ╱ed╱(╱ // 0x398b @0x7
0x3984…39b8 at0008 = ╱38╱8╱ // 0x398c @0x8
0x3984…39b8 at0009 = ╱fe00008004╱ // 0x398d @0x9
0x3984…39b8 at000e = ╱ec╱,╱ // 0x3992 @0xe
0x3984…39b8 at000f = ╱47╱G╱ // 0x3993 @0xf
0x3984…39b8 at0010 = ╱ee╱)╱ // 0x3994 @0x10
0x3984…39b8 at0011 = ╱ec╱,╱ // 0x3995 @0x11
0x3984…39b8 at0012 = ╱4a╱J╱ // 0x3996 @0x12
0x3984…39b8 at0013 = ╱35╱5╱ // 0x3997 @0x13
0x3984…39b8 at0014 = ╱ef╱$╱ // 0x3998 @0x14
0x3984…39b8 at0015 = ╱ed╱(╱ // 0x3999 @0x15
0x3984…39b8 at0016 = ╱36╱6╱ // 0x399a @0x16
0x3984…39b8 at0017 = ╱fe0000c003╱ // 0x399b @0x17
0x3984…39b8 at001c = ╱ec╱,╱ // 0x39a0 @0x1c
0x3984…39b8 at001d = ╱31╱1╱ // 0x39a1 @0x1d
0x3984…39b8 at001e = ╱34╱4╱ // 0x39a2 @0x1e
0x3984…39b8 at001f = ╱fe0000e004╱ // 0x39a3 @0x1f
0x3984…39b8 at0024 = ╱ee╱)╱ // 0x39a8 @0x24
0x3984…39b8 at0025 = ╱ec╱,╱ // 0x39a9 @0x25
0x3984…39b8 at0026 = ╱4e╱N╱ // 0x39aa @0x26
0x3984…39b8 at0027 = ╱31╱1╱ // 0x39ab @0x27
0x3984…39b8 at0028 = ╱33╱3╱ // 0x39ac @0x28
0x3984…39b8 at0029 = ╱ef╱$╱ // 0x39ad @0x29
0x3984…39b8 at002a = ╱ed╱(╱ // 0x39ae @0x2a
0x3984…39b8 at002b = ╱4a╱J╱ // 0x39af @0x2b
0x3984…39b8 at002c = ╱31╱1╱ // 0x39b0 @0x2c
0x3984…39b8 at002d = ╱33╱3╱ // 0x39b1 @0x2d
0x3984…39b8 at002e = ╱e2╱+╱ // 0x39b2 @0x2e
0x3984…39b8 at002f = ╱4a╱J╱ // 0x39b3 @0x2f
0x3984…39b8 at0030 = ╱31╱1╱ // 0x39b4 @0x30
0x3984…39b8 at0031 = ╱34╱4╱ // 0x39b5 @0x31
0x3984…39b8 at0032 = ╱ee╱)╱ // 0x39b6 @0x32
0x3984…39b8 at0033 = EOL // 0x39b7 @0x33
0x3984…39b8 }
0x39b8…39c8 c71f 7470 E2$=E7$+E2$
0x39b8…39c8 LineComalBin {
0x39b8…39c8 ptr = 0xc71f // 0x39b8 @0x0
0x39b8…39c8 lno = 0x1d2e // 0x39ba @0x2
0x39b8…39c8 at0004 = ╱45╱E╱ // 0x39bc @0x4
0x39b8…39c8 at0005 = ╱32╱2╱ // 0x39bd @0x5
0x39b8…39c8 at0006 = ╱ef╱$╱ // 0x39be @0x6
0x39b8…39c8 at0007 = ╱dc╱=╱ // 0x39bf @0x7
0x39b8…39c8 at0008 = ╱45╱E╱ // 0x39c0 @0x8
0x39b8…39c8 at0009 = ╱37╱7╱ // 0x39c1 @0x9
0x39b8…39c8 at000a = ╱ef╱$╱ // 0x39c2 @0xa
0x39b8…39c8 at000b = ╱f1╱+╱ // 0x39c3 @0xb
0x39b8…39c8 at000c = ╱45╱E╱ // 0x39c4 @0xc
0x39b8…39c8 at000d = ╱32╱2╱ // 0x39c5 @0xd
0x39b8…39c8 at000e = ╱ef╱$╱ // 0x39c6 @0xe
0x39b8…39c8 at000f = EOL // 0x39c7 @0xf
0x39b8…39c8 }
0x39c8…39d3 c72a 7480 OPEN E2$,R
0x39c8…39d3 LineComalBin {
0x39c8…39d3 ptr = 0xc72a // 0x39c8 @0x0
0x39c8…39d3 lno = 0x1d38 // 0x39ca @0x2
0x39c8…39d3 at0004 = ╱a7╱ OPEN ╱ // 0x39cc @0x4
0x39c8…39d3 at0005 = ╱45╱E╱ // 0x39cd @0x5
0x39c8…39d3 at0006 = ╱32╱2╱ // 0x39ce @0x6
0x39c8…39d3 at0007 = ╱ef╱$╱ // 0x39cf @0x7
0x39c8…39d3 at0008 = ╱ec╱,╱ // 0x39d0 @0x8
0x39c8…39d3 at0009 = ╱52╱R╱ // 0x39d1 @0x9
0x39c8…39d3 at000a = EOL // 0x39d2 @0xa
0x39c8…39d3 }
0x39d3…39ea c741 7490 EXEC FE(W,20,E2$)
0x39d3…39ea LineComalBin {
0x39d3…39ea ptr = 0xc741 // 0x39d3 @0x0
0x39d3…39ea lno = 0x1d42 // 0x39d5 @0x2
0x39d3…39ea at0004 = ╱9d╱ EXEC ╱ // 0x39d7 @0x4
0x39d3…39ea at0005 = ╱46╱F╱ // 0x39d8 @0x5
0x39d3…39ea at0006 = ╱45╱E╱ // 0x39d9 @0x6
0x39d3…39ea at0007 = ╱ed╱(╱ // 0x39da @0x7
0x39d3…39ea at0008 = ╱57╱W╱ // 0x39db @0x8
0x39d3…39ea at0009 = ╱ec╱,╱ // 0x39dc @0x9
0x39d3…39ea at000a = ╱32╱2╱ // 0x39dd @0xa
0x39d3…39ea at000b = ╱30╱0╱ // 0x39de @0xb
0x39d3…39ea at000c = ╱fe0000a005╱ // 0x39df @0xc
0x39d3…39ea at0011 = ╱ec╱,╱ // 0x39e4 @0x11
0x39d3…39ea at0012 = ╱45╱E╱ // 0x39e5 @0x12
0x39d3…39ea at0013 = ╱32╱2╱ // 0x39e6 @0x13
0x39d3…39ea at0014 = ╱ef╱$╱ // 0x39e7 @0x14
0x39d3…39ea at0015 = ╱ee╱)╱ // 0x39e8 @0x15
0x39d3…39ea at0016 = EOL // 0x39e9 @0x16
0x39d3…39ea }
0x39ea…3a44 c79b 7500 GET E2$,G:E8(E),E8(G),E8(V),E8(4),E8(5),E8(6),E8(7),E8(8),E8(W)
0x39ea…3a44 LineComalBin {
0x39ea…3a44 ptr = 0xc79b // 0x39ea @0x0
0x39ea…3a44 lno = 0x1d4c // 0x39ec @0x2
0x39ea…3a44 at0004 = ╱a9╱ GET ╱ // 0x39ee @0x4
0x39ea…3a44 at0005 = ╱45╱E╱ // 0x39ef @0x5
0x39ea…3a44 at0006 = ╱32╱2╱ // 0x39f0 @0x6
0x39ea…3a44 at0007 = ╱ef╱$╱ // 0x39f1 @0x7
0x39ea…3a44 at0008 = ╱ec╱,╱ // 0x39f2 @0x8
0x39ea…3a44 at0009 = ╱47╱G╱ // 0x39f3 @0x9
0x39ea…3a44 at000a = ╱f0╱:╱ // 0x39f4 @0xa
0x39ea…3a44 at000b = ╱45╱E╱ // 0x39f5 @0xb
0x39ea…3a44 at000c = ╱38╱8╱ // 0x39f6 @0xc
0x39ea…3a44 at000d = ╱ed╱(╱ // 0x39f7 @0xd
0x39ea…3a44 at000e = ╱45╱E╱ // 0x39f8 @0xe
0x39ea…3a44 at000f = ╱ee╱)╱ // 0x39f9 @0xf
0x39ea…3a44 at0010 = ╱ec╱,╱ // 0x39fa @0x10
0x39ea…3a44 at0011 = ╱45╱E╱ // 0x39fb @0x11
0x39ea…3a44 at0012 = ╱38╱8╱ // 0x39fc @0x12
0x39ea…3a44 at0013 = ╱ed╱(╱ // 0x39fd @0x13
0x39ea…3a44 at0014 = ╱47╱G╱ // 0x39fe @0x14
0x39ea…3a44 at0015 = ╱ee╱)╱ // 0x39ff @0x15
0x39ea…3a44 at0016 = ╱ec╱,╱ // 0x3a00 @0x16
0x39ea…3a44 at0017 = ╱45╱E╱ // 0x3a01 @0x17
0x39ea…3a44 at0018 = ╱38╱8╱ // 0x3a02 @0x18
0x39ea…3a44 at0019 = ╱ed╱(╱ // 0x3a03 @0x19
0x39ea…3a44 at001a = ╱56╱V╱ // 0x3a04 @0x1a
0x39ea…3a44 at001b = ╱ee╱)╱ // 0x3a05 @0x1b
0x39ea…3a44 at001c = ╱ec╱,╱ // 0x3a06 @0x1c
0x39ea…3a44 at001d = ╱45╱E╱ // 0x3a07 @0x1d
0x39ea…3a44 at001e = ╱38╱8╱ // 0x3a08 @0x1e
0x39ea…3a44 at001f = ╱ed╱(╱ // 0x3a09 @0x1f
0x39ea…3a44 at0020 = ╱34╱4╱ // 0x3a0a @0x20
0x39ea…3a44 at0021 = ╱fe00008003╱ // 0x3a0b @0x21
0x39ea…3a44 at0026 = ╱ee╱)╱ // 0x3a10 @0x26
0x39ea…3a44 at0027 = ╱ec╱,╱ // 0x3a11 @0x27
0x39ea…3a44 at0028 = ╱45╱E╱ // 0x3a12 @0x28
0x39ea…3a44 at0029 = ╱38╱8╱ // 0x3a13 @0x29
0x39ea…3a44 at002a = ╱ed╱(╱ // 0x3a14 @0x2a
0x39ea…3a44 at002b = ╱35╱5╱ // 0x3a15 @0x2b
0x39ea…3a44 at002c = ╱fe0000a003╱ // 0x3a16 @0x2c
0x39ea…3a44 at0031 = ╱ee╱)╱ // 0x3a1b @0x31
0x39ea…3a44 at0032 = ╱ec╱,╱ // 0x3a1c @0x32
0x39ea…3a44 at0033 = ╱45╱E╱ // 0x3a1d @0x33
0x39ea…3a44 at0034 = ╱38╱8╱ // 0x3a1e @0x34
0x39ea…3a44 at0035 = ╱ed╱(╱ // 0x3a1f @0x35
0x39ea…3a44 at0036 = ╱36╱6╱ // 0x3a20 @0x36
0x39ea…3a44 at0037 = ╱fe0000c003╱ // 0x3a21 @0x37
0x39ea…3a44 at003c = ╱ee╱)╱ // 0x3a26 @0x3c
0x39ea…3a44 at003d = ╱ec╱,╱ // 0x3a27 @0x3d
0x39ea…3a44 at003e = ╱45╱E╱ // 0x3a28 @0x3e
0x39ea…3a44 at003f = ╱38╱8╱ // 0x3a29 @0x3f
0x39ea…3a44 at0040 = ╱ed╱(╱ // 0x3a2a @0x40
0x39ea…3a44 at0041 = ╱37╱7╱ // 0x3a2b @0x41
0x39ea…3a44 at0042 = ╱fe0000e003╱ // 0x3a2c @0x42
0x39ea…3a44 at0047 = ╱ee╱)╱ // 0x3a31 @0x47
0x39ea…3a44 at0048 = ╱ec╱,╱ // 0x3a32 @0x48
0x39ea…3a44 at0049 = ╱45╱E╱ // 0x3a33 @0x49
0x39ea…3a44 at004a = ╱38╱8╱ // 0x3a34 @0x4a
0x39ea…3a44 at004b = ╱ed╱(╱ // 0x3a35 @0x4b
0x39ea…3a44 at004c = ╱38╱8╱ // 0x3a36 @0x4c
0x39ea…3a44 at004d = ╱fe00008004╱ // 0x3a37 @0x4d
0x39ea…3a44 at0052 = ╱ee╱)╱ // 0x3a3c @0x52
0x39ea…3a44 at0053 = ╱ec╱,╱ // 0x3a3d @0x53
0x39ea…3a44 at0054 = ╱45╱E╱ // 0x3a3e @0x54
0x39ea…3a44 at0055 = ╱38╱8╱ // 0x3a3f @0x55
0x39ea…3a44 at0056 = ╱ed╱(╱ // 0x3a40 @0x56
0x39ea…3a44 at0057 = ╱57╱W╱ // 0x3a41 @0x57
0x39ea…3a44 at0058 = ╱ee╱)╱ // 0x3a42 @0x58
0x39ea…3a44 at0059 = EOL // 0x3a43 @0x59
0x39ea…3a44 }
0x3a44…3a5b c7b2 7510 EXEC FE(W,21,E2$)
0x3a44…3a5b LineComalBin {
0x3a44…3a5b ptr = 0xc7b2 // 0x3a44 @0x0
0x3a44…3a5b lno = 0x1d56 // 0x3a46 @0x2
0x3a44…3a5b at0004 = ╱9d╱ EXEC ╱ // 0x3a48 @0x4
0x3a44…3a5b at0005 = ╱46╱F╱ // 0x3a49 @0x5
0x3a44…3a5b at0006 = ╱45╱E╱ // 0x3a4a @0x6
0x3a44…3a5b at0007 = ╱ed╱(╱ // 0x3a4b @0x7
0x3a44…3a5b at0008 = ╱57╱W╱ // 0x3a4c @0x8
0x3a44…3a5b at0009 = ╱ec╱,╱ // 0x3a4d @0x9
0x3a44…3a5b at000a = ╱32╱2╱ // 0x3a4e @0xa
0x3a44…3a5b at000b = ╱31╱1╱ // 0x3a4f @0xb
0x3a44…3a5b at000c = ╱fe0000a805╱ // 0x3a50 @0xc
0x3a44…3a5b at0011 = ╱ec╱,╱ // 0x3a55 @0x11
0x3a44…3a5b at0012 = ╱45╱E╱ // 0x3a56 @0x12
0x3a44…3a5b at0013 = ╱32╱2╱ // 0x3a57 @0x13
0x3a44…3a5b at0014 = ╱ef╱$╱ // 0x3a58 @0x14
0x3a44…3a5b at0015 = ╱ee╱)╱ // 0x3a59 @0x15
0x3a44…3a5b at0016 = EOL // 0x3a5a @0x16
0x3a44…3a5b }
0x3a5b…3a6b c7c2 7520 FOR I=E TO 6
0x3a5b…3a6b LineComalBin {
0x3a5b…3a6b ptr = 0xc7c2 // 0x3a5b @0x0
0x3a5b…3a6b lno = 0x1d60 // 0x3a5d @0x2
0x3a5b…3a6b at0004 = ╱83╱ FOR ╱ // 0x3a5f @0x4
0x3a5b…3a6b at0005 = ╱49╱I╱ // 0x3a60 @0x5
0x3a5b…3a6b at0006 = ╱dc╱=╱ // 0x3a61 @0x6
0x3a5b…3a6b at0007 = ╱45╱E╱ // 0x3a62 @0x7
0x3a5b…3a6b at0008 = ╱b7╱ TO ╱ // 0x3a63 @0x8
0x3a5b…3a6b at0009 = ╱36╱6╱ // 0x3a64 @0x9
0x3a5b…3a6b at000a = ╱fe0000c003╱ // 0x3a65 @0xa
0x3a5b…3a6b at000f = EOL // 0x3a6a @0xf
0x3a5b…3a6b }
0x3a6b…3a7b c7d2 7530 J=(I-E)*V+E
0x3a6b…3a7b LineComalBin {
0x3a6b…3a7b ptr = 0xc7d2 // 0x3a6b @0x0
0x3a6b…3a7b lno = 0x1d6a // 0x3a6d @0x2
0x3a6b…3a7b at0004 = ╱4a╱J╱ // 0x3a6f @0x4
0x3a6b…3a7b at0005 = ╱dc╱=╱ // 0x3a70 @0x5
0x3a6b…3a7b at0006 = ╱ed╱(╱ // 0x3a71 @0x6
0x3a6b…3a7b at0007 = ╱49╱I╱ // 0x3a72 @0x7
0x3a6b…3a7b at0008 = ╱e3╱-╱ // 0x3a73 @0x8
0x3a6b…3a7b at0009 = ╱45╱E╱ // 0x3a74 @0x9
0x3a6b…3a7b at000a = ╱ee╱)╱ // 0x3a75 @0xa
0x3a6b…3a7b at000b = ╱e4╱*╱ // 0x3a76 @0xb
0x3a6b…3a7b at000c = ╱56╱V╱ // 0x3a77 @0xc
0x3a6b…3a7b at000d = ╱e2╱+╱ // 0x3a78 @0xd
0x3a6b…3a7b at000e = ╱45╱E╱ // 0x3a79 @0xe
0x3a6b…3a7b at000f = EOL // 0x3a7a @0xf
0x3a6b…3a7b }
0x3a7b…3aa6 c7fd 7540 GET E2$,I+5:E5$(J),E5$(J+E),E5$(J+G)
0x3a7b…3aa6 LineComalBin {
0x3a7b…3aa6 ptr = 0xc7fd // 0x3a7b @0x0
0x3a7b…3aa6 lno = 0x1d74 // 0x3a7d @0x2
0x3a7b…3aa6 at0004 = ╱a9╱ GET ╱ // 0x3a7f @0x4
0x3a7b…3aa6 at0005 = ╱45╱E╱ // 0x3a80 @0x5
0x3a7b…3aa6 at0006 = ╱32╱2╱ // 0x3a81 @0x6
0x3a7b…3aa6 at0007 = ╱ef╱$╱ // 0x3a82 @0x7
0x3a7b…3aa6 at0008 = ╱ec╱,╱ // 0x3a83 @0x8
0x3a7b…3aa6 at0009 = ╱49╱I╱ // 0x3a84 @0x9
0x3a7b…3aa6 at000a = ╱e2╱+╱ // 0x3a85 @0xa
0x3a7b…3aa6 at000b = ╱35╱5╱ // 0x3a86 @0xb
0x3a7b…3aa6 at000c = ╱fe0000a003╱ // 0x3a87 @0xc
0x3a7b…3aa6 at0011 = ╱f0╱:╱ // 0x3a8c @0x11
0x3a7b…3aa6 at0012 = ╱45╱E╱ // 0x3a8d @0x12
0x3a7b…3aa6 at0013 = ╱35╱5╱ // 0x3a8e @0x13
0x3a7b…3aa6 at0014 = ╱ef╱$╱ // 0x3a8f @0x14
0x3a7b…3aa6 at0015 = ╱ed╱(╱ // 0x3a90 @0x15
0x3a7b…3aa6 at0016 = ╱4a╱J╱ // 0x3a91 @0x16
0x3a7b…3aa6 at0017 = ╱ee╱)╱ // 0x3a92 @0x17
0x3a7b…3aa6 at0018 = ╱ec╱,╱ // 0x3a93 @0x18
0x3a7b…3aa6 at0019 = ╱45╱E╱ // 0x3a94 @0x19
0x3a7b…3aa6 at001a = ╱35╱5╱ // 0x3a95 @0x1a
0x3a7b…3aa6 at001b = ╱ef╱$╱ // 0x3a96 @0x1b
0x3a7b…3aa6 at001c = ╱ed╱(╱ // 0x3a97 @0x1c
0x3a7b…3aa6 at001d = ╱4a╱J╱ // 0x3a98 @0x1d
0x3a7b…3aa6 at001e = ╱e2╱+╱ // 0x3a99 @0x1e
0x3a7b…3aa6 at001f = ╱45╱E╱ // 0x3a9a @0x1f
0x3a7b…3aa6 at0020 = ╱ee╱)╱ // 0x3a9b @0x20
0x3a7b…3aa6 at0021 = ╱ec╱,╱ // 0x3a9c @0x21
0x3a7b…3aa6 at0022 = ╱45╱E╱ // 0x3a9d @0x22
0x3a7b…3aa6 at0023 = ╱35╱5╱ // 0x3a9e @0x23
0x3a7b…3aa6 at0024 = ╱ef╱$╱ // 0x3a9f @0x24
0x3a7b…3aa6 at0025 = ╱ed╱(╱ // 0x3aa0 @0x25
0x3a7b…3aa6 at0026 = ╱4a╱J╱ // 0x3aa1 @0x26
0x3a7b…3aa6 at0027 = ╱e2╱+╱ // 0x3aa2 @0x27
0x3a7b…3aa6 at0028 = ╱47╱G╱ // 0x3aa3 @0x28
0x3a7b…3aa6 at0029 = ╱ee╱)╱ // 0x3aa4 @0x29
0x3a7b…3aa6 at002a = EOL // 0x3aa5 @0x2a
0x3a7b…3aa6 }
0x3aa6…3abd c814 7550 EXEC FE(W,22,E2$)
0x3aa6…3abd LineComalBin {
0x3aa6…3abd ptr = 0xc814 // 0x3aa6 @0x0
0x3aa6…3abd lno = 0x1d7e // 0x3aa8 @0x2
0x3aa6…3abd at0004 = ╱9d╱ EXEC ╱ // 0x3aaa @0x4
0x3aa6…3abd at0005 = ╱46╱F╱ // 0x3aab @0x5
0x3aa6…3abd at0006 = ╱45╱E╱ // 0x3aac @0x6
0x3aa6…3abd at0007 = ╱ed╱(╱ // 0x3aad @0x7
0x3aa6…3abd at0008 = ╱57╱W╱ // 0x3aae @0x8
0x3aa6…3abd at0009 = ╱ec╱,╱ // 0x3aaf @0x9
0x3aa6…3abd at000a = ╱32╱2╱ // 0x3ab0 @0xa
0x3aa6…3abd at000b = ╱32╱2╱ // 0x3ab1 @0xb
0x3aa6…3abd at000c = ╱fe0000b005╱ // 0x3ab2 @0xc
0x3aa6…3abd at0011 = ╱ec╱,╱ // 0x3ab7 @0x11
0x3aa6…3abd at0012 = ╱45╱E╱ // 0x3ab8 @0x12
0x3aa6…3abd at0013 = ╱32╱2╱ // 0x3ab9 @0x13
0x3aa6…3abd at0014 = ╱ef╱$╱ // 0x3aba @0x14
0x3aa6…3abd at0015 = ╱ee╱)╱ // 0x3abb @0x15
0x3aa6…3abd at0016 = EOL // 0x3abc @0x16
0x3aa6…3abd }
0x3abd…3ac4 c81b 7560 NEXT I
0x3abd…3ac4 LineComalBin {
0x3abd…3ac4 ptr = 0xc81b // 0x3abd @0x0
0x3abd…3ac4 lno = 0x1d88 // 0x3abf @0x2
0x3abd…3ac4 at0004 = ╱84╱ NEXT ╱ // 0x3ac1 @0x4
0x3abd…3ac4 at0005 = ╱49╱I╱ // 0x3ac2 @0x5
0x3abd…3ac4 at0006 = EOL // 0x3ac3 @0x6
0x3abd…3ac4 }
0x3ac4…3b24 c87b 7570 GET E2$,12:F0(E),F0(G),F0(V),F0(4),F0(5),F0(6),F0(7),F0(8),F0(W)
0x3ac4…3b24 LineComalBin {
0x3ac4…3b24 ptr = 0xc87b // 0x3ac4 @0x0
0x3ac4…3b24 lno = 0x1d92 // 0x3ac6 @0x2
0x3ac4…3b24 at0004 = ╱a9╱ GET ╱ // 0x3ac8 @0x4
0x3ac4…3b24 at0005 = ╱45╱E╱ // 0x3ac9 @0x5
0x3ac4…3b24 at0006 = ╱32╱2╱ // 0x3aca @0x6
0x3ac4…3b24 at0007 = ╱ef╱$╱ // 0x3acb @0x7
0x3ac4…3b24 at0008 = ╱ec╱,╱ // 0x3acc @0x8
0x3ac4…3b24 at0009 = ╱31╱1╱ // 0x3acd @0x9
0x3ac4…3b24 at000a = ╱32╱2╱ // 0x3ace @0xa
0x3ac4…3b24 at000b = ╱fe0000c004╱ // 0x3acf @0xb
0x3ac4…3b24 at0010 = ╱f0╱:╱ // 0x3ad4 @0x10
0x3ac4…3b24 at0011 = ╱46╱F╱ // 0x3ad5 @0x11
0x3ac4…3b24 at0012 = ╱30╱0╱ // 0x3ad6 @0x12
0x3ac4…3b24 at0013 = ╱ed╱(╱ // 0x3ad7 @0x13
0x3ac4…3b24 at0014 = ╱45╱E╱ // 0x3ad8 @0x14
0x3ac4…3b24 at0015 = ╱ee╱)╱ // 0x3ad9 @0x15
0x3ac4…3b24 at0016 = ╱ec╱,╱ // 0x3ada @0x16
0x3ac4…3b24 at0017 = ╱46╱F╱ // 0x3adb @0x17
0x3ac4…3b24 at0018 = ╱30╱0╱ // 0x3adc @0x18
0x3ac4…3b24 at0019 = ╱ed╱(╱ // 0x3add @0x19
0x3ac4…3b24 at001a = ╱47╱G╱ // 0x3ade @0x1a
0x3ac4…3b24 at001b = ╱ee╱)╱ // 0x3adf @0x1b
0x3ac4…3b24 at001c = ╱ec╱,╱ // 0x3ae0 @0x1c
0x3ac4…3b24 at001d = ╱46╱F╱ // 0x3ae1 @0x1d
0x3ac4…3b24 at001e = ╱30╱0╱ // 0x3ae2 @0x1e
0x3ac4…3b24 at001f = ╱ed╱(╱ // 0x3ae3 @0x1f
0x3ac4…3b24 at0020 = ╱56╱V╱ // 0x3ae4 @0x20
0x3ac4…3b24 at0021 = ╱ee╱)╱ // 0x3ae5 @0x21
0x3ac4…3b24 at0022 = ╱ec╱,╱ // 0x3ae6 @0x22
0x3ac4…3b24 at0023 = ╱46╱F╱ // 0x3ae7 @0x23
0x3ac4…3b24 at0024 = ╱30╱0╱ // 0x3ae8 @0x24
0x3ac4…3b24 at0025 = ╱ed╱(╱ // 0x3ae9 @0x25
0x3ac4…3b24 at0026 = ╱34╱4╱ // 0x3aea @0x26
0x3ac4…3b24 at0027 = ╱fe00008003╱ // 0x3aeb @0x27
0x3ac4…3b24 at002c = ╱ee╱)╱ // 0x3af0 @0x2c
0x3ac4…3b24 at002d = ╱ec╱,╱ // 0x3af1 @0x2d
0x3ac4…3b24 at002e = ╱46╱F╱ // 0x3af2 @0x2e
0x3ac4…3b24 at002f = ╱30╱0╱ // 0x3af3 @0x2f
0x3ac4…3b24 at0030 = ╱ed╱(╱ // 0x3af4 @0x30
0x3ac4…3b24 at0031 = ╱35╱5╱ // 0x3af5 @0x31
0x3ac4…3b24 at0032 = ╱fe0000a003╱ // 0x3af6 @0x32
0x3ac4…3b24 at0037 = ╱ee╱)╱ // 0x3afb @0x37
0x3ac4…3b24 at0038 = ╱ec╱,╱ // 0x3afc @0x38
0x3ac4…3b24 at0039 = ╱46╱F╱ // 0x3afd @0x39
0x3ac4…3b24 at003a = ╱30╱0╱ // 0x3afe @0x3a
0x3ac4…3b24 at003b = ╱ed╱(╱ // 0x3aff @0x3b
0x3ac4…3b24 at003c = ╱36╱6╱ // 0x3b00 @0x3c
0x3ac4…3b24 at003d = ╱fe0000c003╱ // 0x3b01 @0x3d
0x3ac4…3b24 at0042 = ╱ee╱)╱ // 0x3b06 @0x42
0x3ac4…3b24 at0043 = ╱ec╱,╱ // 0x3b07 @0x43
0x3ac4…3b24 at0044 = ╱46╱F╱ // 0x3b08 @0x44
0x3ac4…3b24 at0045 = ╱30╱0╱ // 0x3b09 @0x45
0x3ac4…3b24 at0046 = ╱ed╱(╱ // 0x3b0a @0x46
0x3ac4…3b24 at0047 = ╱37╱7╱ // 0x3b0b @0x47
0x3ac4…3b24 at0048 = ╱fe0000e003╱ // 0x3b0c @0x48
0x3ac4…3b24 at004d = ╱ee╱)╱ // 0x3b11 @0x4d
0x3ac4…3b24 at004e = ╱ec╱,╱ // 0x3b12 @0x4e
0x3ac4…3b24 at004f = ╱46╱F╱ // 0x3b13 @0x4f
0x3ac4…3b24 at0050 = ╱30╱0╱ // 0x3b14 @0x50
0x3ac4…3b24 at0051 = ╱ed╱(╱ // 0x3b15 @0x51
0x3ac4…3b24 at0052 = ╱38╱8╱ // 0x3b16 @0x52
0x3ac4…3b24 at0053 = ╱fe00008004╱ // 0x3b17 @0x53
0x3ac4…3b24 at0058 = ╱ee╱)╱ // 0x3b1c @0x58
0x3ac4…3b24 at0059 = ╱ec╱,╱ // 0x3b1d @0x59
0x3ac4…3b24 at005a = ╱46╱F╱ // 0x3b1e @0x5a
0x3ac4…3b24 at005b = ╱30╱0╱ // 0x3b1f @0x5b
0x3ac4…3b24 at005c = ╱ed╱(╱ // 0x3b20 @0x5c
0x3ac4…3b24 at005d = ╱57╱W╱ // 0x3b21 @0x5d
0x3ac4…3b24 at005e = ╱ee╱)╱ // 0x3b22 @0x5e
0x3ac4…3b24 at005f = EOL // 0x3b23 @0x5f
0x3ac4…3b24 }
0x3b24…3b3b c892 7580 EXEC FE(W,23,E2$)
0x3b24…3b3b LineComalBin {
0x3b24…3b3b ptr = 0xc892 // 0x3b24 @0x0
0x3b24…3b3b lno = 0x1d9c // 0x3b26 @0x2
0x3b24…3b3b at0004 = ╱9d╱ EXEC ╱ // 0x3b28 @0x4
0x3b24…3b3b at0005 = ╱46╱F╱ // 0x3b29 @0x5
0x3b24…3b3b at0006 = ╱45╱E╱ // 0x3b2a @0x6
0x3b24…3b3b at0007 = ╱ed╱(╱ // 0x3b2b @0x7
0x3b24…3b3b at0008 = ╱57╱W╱ // 0x3b2c @0x8
0x3b24…3b3b at0009 = ╱ec╱,╱ // 0x3b2d @0x9
0x3b24…3b3b at000a = ╱32╱2╱ // 0x3b2e @0xa
0x3b24…3b3b at000b = ╱33╱3╱ // 0x3b2f @0xb
0x3b24…3b3b at000c = ╱fe0000b805╱ // 0x3b30 @0xc
0x3b24…3b3b at0011 = ╱ec╱,╱ // 0x3b35 @0x11
0x3b24…3b3b at0012 = ╱45╱E╱ // 0x3b36 @0x12
0x3b24…3b3b at0013 = ╱32╱2╱ // 0x3b37 @0x13
0x3b24…3b3b at0014 = ╱ef╱$╱ // 0x3b38 @0x14
0x3b24…3b3b at0015 = ╱ee╱)╱ // 0x3b39 @0x15
0x3b24…3b3b at0016 = EOL // 0x3b3a @0x16
0x3b24…3b3b }
0x3b3b…3b9b c8f2 7590 GET E2$,13:G1(E),G1(G),G1(V),G1(4),G1(5),G1(6),G1(7),G1(8),G1(W)
0x3b3b…3b9b LineComalBin {
0x3b3b…3b9b ptr = 0xc8f2 // 0x3b3b @0x0
0x3b3b…3b9b lno = 0x1da6 // 0x3b3d @0x2
0x3b3b…3b9b at0004 = ╱a9╱ GET ╱ // 0x3b3f @0x4
0x3b3b…3b9b at0005 = ╱45╱E╱ // 0x3b40 @0x5
0x3b3b…3b9b at0006 = ╱32╱2╱ // 0x3b41 @0x6
0x3b3b…3b9b at0007 = ╱ef╱$╱ // 0x3b42 @0x7
0x3b3b…3b9b at0008 = ╱ec╱,╱ // 0x3b43 @0x8
0x3b3b…3b9b at0009 = ╱31╱1╱ // 0x3b44 @0x9
0x3b3b…3b9b at000a = ╱33╱3╱ // 0x3b45 @0xa
0x3b3b…3b9b at000b = ╱fe0000d004╱ // 0x3b46 @0xb
0x3b3b…3b9b at0010 = ╱f0╱:╱ // 0x3b4b @0x10
0x3b3b…3b9b at0011 = ╱47╱G╱ // 0x3b4c @0x11
0x3b3b…3b9b at0012 = ╱31╱1╱ // 0x3b4d @0x12
0x3b3b…3b9b at0013 = ╱ed╱(╱ // 0x3b4e @0x13
0x3b3b…3b9b at0014 = ╱45╱E╱ // 0x3b4f @0x14
0x3b3b…3b9b at0015 = ╱ee╱)╱ // 0x3b50 @0x15
0x3b3b…3b9b at0016 = ╱ec╱,╱ // 0x3b51 @0x16
0x3b3b…3b9b at0017 = ╱47╱G╱ // 0x3b52 @0x17
0x3b3b…3b9b at0018 = ╱31╱1╱ // 0x3b53 @0x18
0x3b3b…3b9b at0019 = ╱ed╱(╱ // 0x3b54 @0x19
0x3b3b…3b9b at001a = ╱47╱G╱ // 0x3b55 @0x1a
0x3b3b…3b9b at001b = ╱ee╱)╱ // 0x3b56 @0x1b
0x3b3b…3b9b at001c = ╱ec╱,╱ // 0x3b57 @0x1c
0x3b3b…3b9b at001d = ╱47╱G╱ // 0x3b58 @0x1d
0x3b3b…3b9b at001e = ╱31╱1╱ // 0x3b59 @0x1e
0x3b3b…3b9b at001f = ╱ed╱(╱ // 0x3b5a @0x1f
0x3b3b…3b9b at0020 = ╱56╱V╱ // 0x3b5b @0x20
0x3b3b…3b9b at0021 = ╱ee╱)╱ // 0x3b5c @0x21
0x3b3b…3b9b at0022 = ╱ec╱,╱ // 0x3b5d @0x22
0x3b3b…3b9b at0023 = ╱47╱G╱ // 0x3b5e @0x23
0x3b3b…3b9b at0024 = ╱31╱1╱ // 0x3b5f @0x24
0x3b3b…3b9b at0025 = ╱ed╱(╱ // 0x3b60 @0x25
0x3b3b…3b9b at0026 = ╱34╱4╱ // 0x3b61 @0x26
0x3b3b…3b9b at0027 = ╱fe00008003╱ // 0x3b62 @0x27
0x3b3b…3b9b at002c = ╱ee╱)╱ // 0x3b67 @0x2c
0x3b3b…3b9b at002d = ╱ec╱,╱ // 0x3b68 @0x2d
0x3b3b…3b9b at002e = ╱47╱G╱ // 0x3b69 @0x2e
0x3b3b…3b9b at002f = ╱31╱1╱ // 0x3b6a @0x2f
0x3b3b…3b9b at0030 = ╱ed╱(╱ // 0x3b6b @0x30
0x3b3b…3b9b at0031 = ╱35╱5╱ // 0x3b6c @0x31
0x3b3b…3b9b at0032 = ╱fe0000a003╱ // 0x3b6d @0x32
0x3b3b…3b9b at0037 = ╱ee╱)╱ // 0x3b72 @0x37
0x3b3b…3b9b at0038 = ╱ec╱,╱ // 0x3b73 @0x38
0x3b3b…3b9b at0039 = ╱47╱G╱ // 0x3b74 @0x39
0x3b3b…3b9b at003a = ╱31╱1╱ // 0x3b75 @0x3a
0x3b3b…3b9b at003b = ╱ed╱(╱ // 0x3b76 @0x3b
0x3b3b…3b9b at003c = ╱36╱6╱ // 0x3b77 @0x3c
0x3b3b…3b9b at003d = ╱fe0000c003╱ // 0x3b78 @0x3d
0x3b3b…3b9b at0042 = ╱ee╱)╱ // 0x3b7d @0x42
0x3b3b…3b9b at0043 = ╱ec╱,╱ // 0x3b7e @0x43
0x3b3b…3b9b at0044 = ╱47╱G╱ // 0x3b7f @0x44
0x3b3b…3b9b at0045 = ╱31╱1╱ // 0x3b80 @0x45
0x3b3b…3b9b at0046 = ╱ed╱(╱ // 0x3b81 @0x46
0x3b3b…3b9b at0047 = ╱37╱7╱ // 0x3b82 @0x47
0x3b3b…3b9b at0048 = ╱fe0000e003╱ // 0x3b83 @0x48
0x3b3b…3b9b at004d = ╱ee╱)╱ // 0x3b88 @0x4d
0x3b3b…3b9b at004e = ╱ec╱,╱ // 0x3b89 @0x4e
0x3b3b…3b9b at004f = ╱47╱G╱ // 0x3b8a @0x4f
0x3b3b…3b9b at0050 = ╱31╱1╱ // 0x3b8b @0x50
0x3b3b…3b9b at0051 = ╱ed╱(╱ // 0x3b8c @0x51
0x3b3b…3b9b at0052 = ╱38╱8╱ // 0x3b8d @0x52
0x3b3b…3b9b at0053 = ╱fe00008004╱ // 0x3b8e @0x53
0x3b3b…3b9b at0058 = ╱ee╱)╱ // 0x3b93 @0x58
0x3b3b…3b9b at0059 = ╱ec╱,╱ // 0x3b94 @0x59
0x3b3b…3b9b at005a = ╱47╱G╱ // 0x3b95 @0x5a
0x3b3b…3b9b at005b = ╱31╱1╱ // 0x3b96 @0x5b
0x3b3b…3b9b at005c = ╱ed╱(╱ // 0x3b97 @0x5c
0x3b3b…3b9b at005d = ╱57╱W╱ // 0x3b98 @0x5d
0x3b3b…3b9b at005e = ╱ee╱)╱ // 0x3b99 @0x5e
0x3b3b…3b9b at005f = EOL // 0x3b9a @0x5f
0x3b3b…3b9b }
0x3b9b…3bb2 c909 7600 EXEC FE(W,24,E2$)
0x3b9b…3bb2 LineComalBin {
0x3b9b…3bb2 ptr = 0xc909 // 0x3b9b @0x0
0x3b9b…3bb2 lno = 0x1db0 // 0x3b9d @0x2
0x3b9b…3bb2 at0004 = ╱9d╱ EXEC ╱ // 0x3b9f @0x4
0x3b9b…3bb2 at0005 = ╱46╱F╱ // 0x3ba0 @0x5
0x3b9b…3bb2 at0006 = ╱45╱E╱ // 0x3ba1 @0x6
0x3b9b…3bb2 at0007 = ╱ed╱(╱ // 0x3ba2 @0x7
0x3b9b…3bb2 at0008 = ╱57╱W╱ // 0x3ba3 @0x8
0x3b9b…3bb2 at0009 = ╱ec╱,╱ // 0x3ba4 @0x9
0x3b9b…3bb2 at000a = ╱32╱2╱ // 0x3ba5 @0xa
0x3b9b…3bb2 at000b = ╱34╱4╱ // 0x3ba6 @0xb
0x3b9b…3bb2 at000c = ╱fe0000c005╱ // 0x3ba7 @0xc
0x3b9b…3bb2 at0011 = ╱ec╱,╱ // 0x3bac @0x11
0x3b9b…3bb2 at0012 = ╱45╱E╱ // 0x3bad @0x12
0x3b9b…3bb2 at0013 = ╱32╱2╱ // 0x3bae @0x13
0x3b9b…3bb2 at0014 = ╱ef╱$╱ // 0x3baf @0x14
0x3b9b…3bb2 at0015 = ╱ee╱)╱ // 0x3bb0 @0x15
0x3b9b…3bb2 at0016 = EOL // 0x3bb1 @0x16
0x3b9b…3bb2 }
0x3bb2…3bd8 c92f 7610 GET E2$,15:F5$(E),F5$(G),F5$(V)
0x3bb2…3bd8 LineComalBin {
0x3bb2…3bd8 ptr = 0xc92f // 0x3bb2 @0x0
0x3bb2…3bd8 lno = 0x1dba // 0x3bb4 @0x2
0x3bb2…3bd8 at0004 = ╱a9╱ GET ╱ // 0x3bb6 @0x4
0x3bb2…3bd8 at0005 = ╱45╱E╱ // 0x3bb7 @0x5
0x3bb2…3bd8 at0006 = ╱32╱2╱ // 0x3bb8 @0x6
0x3bb2…3bd8 at0007 = ╱ef╱$╱ // 0x3bb9 @0x7
0x3bb2…3bd8 at0008 = ╱ec╱,╱ // 0x3bba @0x8
0x3bb2…3bd8 at0009 = ╱31╱1╱ // 0x3bbb @0x9
0x3bb2…3bd8 at000a = ╱35╱5╱ // 0x3bbc @0xa
0x3bb2…3bd8 at000b = ╱fe0000f004╱ // 0x3bbd @0xb
0x3bb2…3bd8 at0010 = ╱f0╱:╱ // 0x3bc2 @0x10
0x3bb2…3bd8 at0011 = ╱46╱F╱ // 0x3bc3 @0x11
0x3bb2…3bd8 at0012 = ╱35╱5╱ // 0x3bc4 @0x12
0x3bb2…3bd8 at0013 = ╱ef╱$╱ // 0x3bc5 @0x13
0x3bb2…3bd8 at0014 = ╱ed╱(╱ // 0x3bc6 @0x14
0x3bb2…3bd8 at0015 = ╱45╱E╱ // 0x3bc7 @0x15
0x3bb2…3bd8 at0016 = ╱ee╱)╱ // 0x3bc8 @0x16
0x3bb2…3bd8 at0017 = ╱ec╱,╱ // 0x3bc9 @0x17
0x3bb2…3bd8 at0018 = ╱46╱F╱ // 0x3bca @0x18
0x3bb2…3bd8 at0019 = ╱35╱5╱ // 0x3bcb @0x19
0x3bb2…3bd8 at001a = ╱ef╱$╱ // 0x3bcc @0x1a
0x3bb2…3bd8 at001b = ╱ed╱(╱ // 0x3bcd @0x1b
0x3bb2…3bd8 at001c = ╱47╱G╱ // 0x3bce @0x1c
0x3bb2…3bd8 at001d = ╱ee╱)╱ // 0x3bcf @0x1d
0x3bb2…3bd8 at001e = ╱ec╱,╱ // 0x3bd0 @0x1e
0x3bb2…3bd8 at001f = ╱46╱F╱ // 0x3bd1 @0x1f
0x3bb2…3bd8 at0020 = ╱35╱5╱ // 0x3bd2 @0x20
0x3bb2…3bd8 at0021 = ╱ef╱$╱ // 0x3bd3 @0x21
0x3bb2…3bd8 at0022 = ╱ed╱(╱ // 0x3bd4 @0x22
0x3bb2…3bd8 at0023 = ╱56╱V╱ // 0x3bd5 @0x23
0x3bb2…3bd8 at0024 = ╱ee╱)╱ // 0x3bd6 @0x24
0x3bb2…3bd8 at0025 = EOL // 0x3bd7 @0x25
0x3bb2…3bd8 }
0x3bd8…3bef c946 7620 EXEC FE(W,25,E2$)
0x3bd8…3bef LineComalBin {
0x3bd8…3bef ptr = 0xc946 // 0x3bd8 @0x0
0x3bd8…3bef lno = 0x1dc4 // 0x3bda @0x2
0x3bd8…3bef at0004 = ╱9d╱ EXEC ╱ // 0x3bdc @0x4
0x3bd8…3bef at0005 = ╱46╱F╱ // 0x3bdd @0x5
0x3bd8…3bef at0006 = ╱45╱E╱ // 0x3bde @0x6
0x3bd8…3bef at0007 = ╱ed╱(╱ // 0x3bdf @0x7
0x3bd8…3bef at0008 = ╱57╱W╱ // 0x3be0 @0x8
0x3bd8…3bef at0009 = ╱ec╱,╱ // 0x3be1 @0x9
0x3bd8…3bef at000a = ╱32╱2╱ // 0x3be2 @0xa
0x3bd8…3bef at000b = ╱35╱5╱ // 0x3be3 @0xb
0x3bd8…3bef at000c = ╱fe0000c805╱ // 0x3be4 @0xc
0x3bd8…3bef at0011 = ╱ec╱,╱ // 0x3be9 @0x11
0x3bd8…3bef at0012 = ╱45╱E╱ // 0x3bea @0x12
0x3bd8…3bef at0013 = ╱32╱2╱ // 0x3beb @0x13
0x3bd8…3bef at0014 = ╱ef╱$╱ // 0x3bec @0x14
0x3bd8…3bef at0015 = ╱ee╱)╱ // 0x3bed @0x15
0x3bd8…3bef at0016 = EOL // 0x3bee @0x16
0x3bd8…3bef }
0x3bef…3c24 c97b 7630 GET E2$,16:F5$(4),F5$(5),F5$(6)
0x3bef…3c24 LineComalBin {
0x3bef…3c24 ptr = 0xc97b // 0x3bef @0x0
0x3bef…3c24 lno = 0x1dce // 0x3bf1 @0x2
0x3bef…3c24 at0004 = ╱a9╱ GET ╱ // 0x3bf3 @0x4
0x3bef…3c24 at0005 = ╱45╱E╱ // 0x3bf4 @0x5
0x3bef…3c24 at0006 = ╱32╱2╱ // 0x3bf5 @0x6
0x3bef…3c24 at0007 = ╱ef╱$╱ // 0x3bf6 @0x7
0x3bef…3c24 at0008 = ╱ec╱,╱ // 0x3bf7 @0x8
0x3bef…3c24 at0009 = ╱31╱1╱ // 0x3bf8 @0x9
0x3bef…3c24 at000a = ╱36╱6╱ // 0x3bf9 @0xa
0x3bef…3c24 at000b = ╱fe00008005╱ // 0x3bfa @0xb
0x3bef…3c24 at0010 = ╱f0╱:╱ // 0x3bff @0x10
0x3bef…3c24 at0011 = ╱46╱F╱ // 0x3c00 @0x11
0x3bef…3c24 at0012 = ╱35╱5╱ // 0x3c01 @0x12
0x3bef…3c24 at0013 = ╱ef╱$╱ // 0x3c02 @0x13
0x3bef…3c24 at0014 = ╱ed╱(╱ // 0x3c03 @0x14
0x3bef…3c24 at0015 = ╱34╱4╱ // 0x3c04 @0x15
0x3bef…3c24 at0016 = ╱fe00008003╱ // 0x3c05 @0x16
0x3bef…3c24 at001b = ╱ee╱)╱ // 0x3c0a @0x1b
0x3bef…3c24 at001c = ╱ec╱,╱ // 0x3c0b @0x1c
0x3bef…3c24 at001d = ╱46╱F╱ // 0x3c0c @0x1d
0x3bef…3c24 at001e = ╱35╱5╱ // 0x3c0d @0x1e
0x3bef…3c24 at001f = ╱ef╱$╱ // 0x3c0e @0x1f
0x3bef…3c24 at0020 = ╱ed╱(╱ // 0x3c0f @0x20
0x3bef…3c24 at0021 = ╱35╱5╱ // 0x3c10 @0x21
0x3bef…3c24 at0022 = ╱fe0000a003╱ // 0x3c11 @0x22
0x3bef…3c24 at0027 = ╱ee╱)╱ // 0x3c16 @0x27
0x3bef…3c24 at0028 = ╱ec╱,╱ // 0x3c17 @0x28
0x3bef…3c24 at0029 = ╱46╱F╱ // 0x3c18 @0x29
0x3bef…3c24 at002a = ╱35╱5╱ // 0x3c19 @0x2a
0x3bef…3c24 at002b = ╱ef╱$╱ // 0x3c1a @0x2b
0x3bef…3c24 at002c = ╱ed╱(╱ // 0x3c1b @0x2c
0x3bef…3c24 at002d = ╱36╱6╱ // 0x3c1c @0x2d
0x3bef…3c24 at002e = ╱fe0000c003╱ // 0x3c1d @0x2e
0x3bef…3c24 at0033 = ╱ee╱)╱ // 0x3c22 @0x33
0x3bef…3c24 at0034 = EOL // 0x3c23 @0x34
0x3bef…3c24 }
0x3c24…3c3b c992 7640 EXEC FE(W,26,E2$)
0x3c24…3c3b LineComalBin {
0x3c24…3c3b ptr = 0xc992 // 0x3c24 @0x0
0x3c24…3c3b lno = 0x1dd8 // 0x3c26 @0x2
0x3c24…3c3b at0004 = ╱9d╱ EXEC ╱ // 0x3c28 @0x4
0x3c24…3c3b at0005 = ╱46╱F╱ // 0x3c29 @0x5
0x3c24…3c3b at0006 = ╱45╱E╱ // 0x3c2a @0x6
0x3c24…3c3b at0007 = ╱ed╱(╱ // 0x3c2b @0x7
0x3c24…3c3b at0008 = ╱57╱W╱ // 0x3c2c @0x8
0x3c24…3c3b at0009 = ╱ec╱,╱ // 0x3c2d @0x9
0x3c24…3c3b at000a = ╱32╱2╱ // 0x3c2e @0xa
0x3c24…3c3b at000b = ╱36╱6╱ // 0x3c2f @0xb
0x3c24…3c3b at000c = ╱fe0000d005╱ // 0x3c30 @0xc
0x3c24…3c3b at0011 = ╱ec╱,╱ // 0x3c35 @0x11
0x3c24…3c3b at0012 = ╱45╱E╱ // 0x3c36 @0x12
0x3c24…3c3b at0013 = ╱32╱2╱ // 0x3c37 @0x13
0x3c24…3c3b at0014 = ╱ef╱$╱ // 0x3c38 @0x14
0x3c24…3c3b at0015 = ╱ee╱)╱ // 0x3c39 @0x15
0x3c24…3c3b at0016 = EOL // 0x3c3a @0x16
0x3c24…3c3b }
0x3c3b…3c50 c9a7 7650 GET E2$,20:DV$
0x3c3b…3c50 LineComalBin {
0x3c3b…3c50 ptr = 0xc9a7 // 0x3c3b @0x0
0x3c3b…3c50 lno = 0x1de2 // 0x3c3d @0x2
0x3c3b…3c50 at0004 = ╱a9╱ GET ╱ // 0x3c3f @0x4
0x3c3b…3c50 at0005 = ╱45╱E╱ // 0x3c40 @0x5
0x3c3b…3c50 at0006 = ╱32╱2╱ // 0x3c41 @0x6
0x3c3b…3c50 at0007 = ╱ef╱$╱ // 0x3c42 @0x7
0x3c3b…3c50 at0008 = ╱ec╱,╱ // 0x3c43 @0x8
0x3c3b…3c50 at0009 = ╱32╱2╱ // 0x3c44 @0x9
0x3c3b…3c50 at000a = ╱30╱0╱ // 0x3c45 @0xa
0x3c3b…3c50 at000b = ╱fe0000a005╱ // 0x3c46 @0xb
0x3c3b…3c50 at0010 = ╱f0╱:╱ // 0x3c4b @0x10
0x3c3b…3c50 at0011 = ╱44╱D╱ // 0x3c4c @0x11
0x3c3b…3c50 at0012 = ╱56╱V╱ // 0x3c4d @0x12
0x3c3b…3c50 at0013 = ╱ef╱$╱ // 0x3c4e @0x13
0x3c3b…3c50 at0014 = EOL // 0x3c4f @0x14
0x3c3b…3c50 }
0x3c50…3c67 c9be 7660 EXEC FE(W,40,E2$)
0x3c50…3c67 LineComalBin {
0x3c50…3c67 ptr = 0xc9be // 0x3c50 @0x0
0x3c50…3c67 lno = 0x1dec // 0x3c52 @0x2
0x3c50…3c67 at0004 = ╱9d╱ EXEC ╱ // 0x3c54 @0x4
0x3c50…3c67 at0005 = ╱46╱F╱ // 0x3c55 @0x5
0x3c50…3c67 at0006 = ╱45╱E╱ // 0x3c56 @0x6
0x3c50…3c67 at0007 = ╱ed╱(╱ // 0x3c57 @0x7
0x3c50…3c67 at0008 = ╱57╱W╱ // 0x3c58 @0x8
0x3c50…3c67 at0009 = ╱ec╱,╱ // 0x3c59 @0x9
0x3c50…3c67 at000a = ╱34╱4╱ // 0x3c5a @0xa
0x3c50…3c67 at000b = ╱30╱0╱ // 0x3c5b @0xb
0x3c50…3c67 at000c = ╱fe0000a006╱ // 0x3c5c @0xc
0x3c50…3c67 at0011 = ╱ec╱,╱ // 0x3c61 @0x11
0x3c50…3c67 at0012 = ╱45╱E╱ // 0x3c62 @0x12
0x3c50…3c67 at0013 = ╱32╱2╱ // 0x3c63 @0x13
0x3c50…3c67 at0014 = ╱ef╱$╱ // 0x3c64 @0x14
0x3c50…3c67 at0015 = ╱ee╱)╱ // 0x3c65 @0x15
0x3c50…3c67 at0016 = EOL // 0x3c66 @0x16
0x3c50…3c67 }
0x3c67…3c70 c9c7 7670 CLOSE E2$
0x3c67…3c70 LineComalBin {
0x3c67…3c70 ptr = 0xc9c7 // 0x3c67 @0x0
0x3c67…3c70 lno = 0x1df6 // 0x3c69 @0x2
0x3c67…3c70 at0004 = ╱a8╱ CLOSE ╱ // 0x3c6b @0x4
0x3c67…3c70 at0005 = ╱45╱E╱ // 0x3c6c @0x5
0x3c67…3c70 at0006 = ╱32╱2╱ // 0x3c6d @0x6
0x3c67…3c70 at0007 = ╱ef╱$╱ // 0x3c6e @0x7
0x3c67…3c70 at0008 = EOL // 0x3c6f @0x8
0x3c67…3c70 }
0x3c70…3c87 c9de 7680 EXEC FE(W,27,E2$)
0x3c70…3c87 LineComalBin {
0x3c70…3c87 ptr = 0xc9de // 0x3c70 @0x0
0x3c70…3c87 lno = 0x1e00 // 0x3c72 @0x2
0x3c70…3c87 at0004 = ╱9d╱ EXEC ╱ // 0x3c74 @0x4
0x3c70…3c87 at0005 = ╱46╱F╱ // 0x3c75 @0x5
0x3c70…3c87 at0006 = ╱45╱E╱ // 0x3c76 @0x6
0x3c70…3c87 at0007 = ╱ed╱(╱ // 0x3c77 @0x7
0x3c70…3c87 at0008 = ╱57╱W╱ // 0x3c78 @0x8
0x3c70…3c87 at0009 = ╱ec╱,╱ // 0x3c79 @0x9
0x3c70…3c87 at000a = ╱32╱2╱ // 0x3c7a @0xa
0x3c70…3c87 at000b = ╱37╱7╱ // 0x3c7b @0xb
0x3c70…3c87 at000c = ╱fe0000d805╱ // 0x3c7c @0xc
0x3c70…3c87 at0011 = ╱ec╱,╱ // 0x3c81 @0x11
0x3c70…3c87 at0012 = ╱45╱E╱ // 0x3c82 @0x12
0x3c70…3c87 at0013 = ╱32╱2╱ // 0x3c83 @0x13
0x3c70…3c87 at0014 = ╱ef╱$╱ // 0x3c84 @0x14
0x3c70…3c87 at0015 = ╱ee╱)╱ // 0x3c85 @0x15
0x3c70…3c87 at0016 = EOL // 0x3c86 @0x16
0x3c70…3c87 }
0x3c87…3cd3 ca2a 7690 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$
0x3c87…3cd3 LineComalBin {
0x3c87…3cd3 ptr = 0xca2a // 0x3c87 @0x0
0x3c87…3cd3 lno = 0x1e0a // 0x3c89 @0x2
0x3c87…3cd3 at0004 = ╱41╱A╱ // 0x3c8b @0x4
0x3c87…3cd3 at0005 = ╱36╱6╱ // 0x3c8c @0x5
0x3c87…3cd3 at0006 = ╱ef╱$╱ // 0x3c8d @0x6
0x3c87…3cd3 at0007 = ╱dc╱=╱ // 0x3c8e @0x7
0x3c87…3cd3 at0008 = ╱45╱E╱ // 0x3c8f @0x8
0x3c87…3cd3 at0009 = ╱37╱7╱ // 0x3c90 @0x9
0x3c87…3cd3 at000a = ╱ef╱$╱ // 0x3c91 @0xa
0x3c87…3cd3 at000b = ╱f1╱+╱ // 0x3c92 @0xb
0x3c87…3cd3 at000c = ╱41╱A╱ // 0x3c93 @0xc
0x3c87…3cd3 at000d = ╱36╱6╱ // 0x3c94 @0xd
0x3c87…3cd3 at000e = ╱ef╱$╱ // 0x3c95 @0xe
0x3c87…3cd3 at000f = ╱eb╱;╱ // 0x3c96 @0xf
0x3c87…3cd3 at0010 = ╱41╱A╱ // 0x3c97 @0x10
0x3c87…3cd3 at0011 = ╱34╱4╱ // 0x3c98 @0x11
0x3c87…3cd3 at0012 = ╱ef╱$╱ // 0x3c99 @0x12
0x3c87…3cd3 at0013 = ╱dc╱=╱ // 0x3c9a @0x13
0x3c87…3cd3 at0014 = ╱45╱E╱ // 0x3c9b @0x14
0x3c87…3cd3 at0015 = ╱37╱7╱ // 0x3c9c @0x15
0x3c87…3cd3 at0016 = ╱ef╱$╱ // 0x3c9d @0x16
0x3c87…3cd3 at0017 = ╱f1╱+╱ // 0x3c9e @0x17
0x3c87…3cd3 at0018 = ╱41╱A╱ // 0x3c9f @0x18
0x3c87…3cd3 at0019 = ╱34╱4╱ // 0x3ca0 @0x19
0x3c87…3cd3 at001a = ╱ef╱$╱ // 0x3ca1 @0x1a
0x3c87…3cd3 at001b = ╱eb╱;╱ // 0x3ca2 @0x1b
0x3c87…3cd3 at001c = ╱42╱B╱ // 0x3ca3 @0x1c
0x3c87…3cd3 at001d = ╱36╱6╱ // 0x3ca4 @0x1d
0x3c87…3cd3 at001e = ╱ef╱$╱ // 0x3ca5 @0x1e
0x3c87…3cd3 at001f = ╱dc╱=╱ // 0x3ca6 @0x1f
0x3c87…3cd3 at0020 = ╱45╱E╱ // 0x3ca7 @0x20
0x3c87…3cd3 at0021 = ╱37╱7╱ // 0x3ca8 @0x21
0x3c87…3cd3 at0022 = ╱ef╱$╱ // 0x3ca9 @0x22
0x3c87…3cd3 at0023 = ╱f1╱+╱ // 0x3caa @0x23
0x3c87…3cd3 at0024 = ╱42╱B╱ // 0x3cab @0x24
0x3c87…3cd3 at0025 = ╱36╱6╱ // 0x3cac @0x25
0x3c87…3cd3 at0026 = ╱ef╱$╱ // 0x3cad @0x26
0x3c87…3cd3 at0027 = ╱eb╱;╱ // 0x3cae @0x27
0x3c87…3cd3 at0028 = ╱43╱C╱ // 0x3caf @0x28
0x3c87…3cd3 at0029 = ╱39╱9╱ // 0x3cb0 @0x29
0x3c87…3cd3 at002a = ╱ef╱$╱ // 0x3cb1 @0x2a
0x3c87…3cd3 at002b = ╱dc╱=╱ // 0x3cb2 @0x2b
0x3c87…3cd3 at002c = ╱45╱E╱ // 0x3cb3 @0x2c
0x3c87…3cd3 at002d = ╱37╱7╱ // 0x3cb4 @0x2d
0x3c87…3cd3 at002e = ╱ef╱$╱ // 0x3cb5 @0x2e
0x3c87…3cd3 at002f = ╱f1╱+╱ // 0x3cb6 @0x2f
0x3c87…3cd3 at0030 = ╱43╱C╱ // 0x3cb7 @0x30
0x3c87…3cd3 at0031 = ╱39╱9╱ // 0x3cb8 @0x31
0x3c87…3cd3 at0032 = ╱ef╱$╱ // 0x3cb9 @0x32
0x3c87…3cd3 at0033 = ╱eb╱;╱ // 0x3cba @0x33
0x3c87…3cd3 at0034 = ╱44╱D╱ // 0x3cbb @0x34
0x3c87…3cd3 at0035 = ╱30╱0╱ // 0x3cbc @0x35
0x3c87…3cd3 at0036 = ╱ef╱$╱ // 0x3cbd @0x36
0x3c87…3cd3 at0037 = ╱dc╱=╱ // 0x3cbe @0x37
0x3c87…3cd3 at0038 = ╱45╱E╱ // 0x3cbf @0x38
0x3c87…3cd3 at0039 = ╱37╱7╱ // 0x3cc0 @0x39
0x3c87…3cd3 at003a = ╱ef╱$╱ // 0x3cc1 @0x3a
0x3c87…3cd3 at003b = ╱f1╱+╱ // 0x3cc2 @0x3b
0x3c87…3cd3 at003c = ╱44╱D╱ // 0x3cc3 @0x3c
0x3c87…3cd3 at003d = ╱30╱0╱ // 0x3cc4 @0x3d
0x3c87…3cd3 at003e = ╱ef╱$╱ // 0x3cc5 @0x3e
0x3c87…3cd3 at003f = ╱eb╱;╱ // 0x3cc6 @0x3f
0x3c87…3cd3 at0040 = ╱44╱D╱ // 0x3cc7 @0x40
0x3c87…3cd3 at0041 = ╱31╱1╱ // 0x3cc8 @0x41
0x3c87…3cd3 at0042 = ╱ef╱$╱ // 0x3cc9 @0x42
0x3c87…3cd3 at0043 = ╱dc╱=╱ // 0x3cca @0x43
0x3c87…3cd3 at0044 = ╱45╱E╱ // 0x3ccb @0x44
0x3c87…3cd3 at0045 = ╱37╱7╱ // 0x3ccc @0x45
0x3c87…3cd3 at0046 = ╱ef╱$╱ // 0x3ccd @0x46
0x3c87…3cd3 at0047 = ╱f1╱+╱ // 0x3cce @0x47
0x3c87…3cd3 at0048 = ╱44╱D╱ // 0x3ccf @0x48
0x3c87…3cd3 at0049 = ╱31╱1╱ // 0x3cd0 @0x49
0x3c87…3cd3 at004a = ╱ef╱$╱ // 0x3cd1 @0x4a
0x3c87…3cd3 at004b = EOL // 0x3cd2 @0x4b
0x3c87…3cd3 }
0x3cd3…3d19 ca70 7700 D2$=E7$+D2$;D3$=E7$+D3$;E12$=E7$+E12$;E13$=E7$+E13$;E14$=E7$+E14$
0x3cd3…3d19 LineComalBin {
0x3cd3…3d19 ptr = 0xca70 // 0x3cd3 @0x0
0x3cd3…3d19 lno = 0x1e14 // 0x3cd5 @0x2
0x3cd3…3d19 at0004 = ╱44╱D╱ // 0x3cd7 @0x4
0x3cd3…3d19 at0005 = ╱32╱2╱ // 0x3cd8 @0x5
0x3cd3…3d19 at0006 = ╱ef╱$╱ // 0x3cd9 @0x6
0x3cd3…3d19 at0007 = ╱dc╱=╱ // 0x3cda @0x7
0x3cd3…3d19 at0008 = ╱45╱E╱ // 0x3cdb @0x8
0x3cd3…3d19 at0009 = ╱37╱7╱ // 0x3cdc @0x9
0x3cd3…3d19 at000a = ╱ef╱$╱ // 0x3cdd @0xa
0x3cd3…3d19 at000b = ╱f1╱+╱ // 0x3cde @0xb
0x3cd3…3d19 at000c = ╱44╱D╱ // 0x3cdf @0xc
0x3cd3…3d19 at000d = ╱32╱2╱ // 0x3ce0 @0xd
0x3cd3…3d19 at000e = ╱ef╱$╱ // 0x3ce1 @0xe
0x3cd3…3d19 at000f = ╱eb╱;╱ // 0x3ce2 @0xf
0x3cd3…3d19 at0010 = ╱44╱D╱ // 0x3ce3 @0x10
0x3cd3…3d19 at0011 = ╱33╱3╱ // 0x3ce4 @0x11
0x3cd3…3d19 at0012 = ╱ef╱$╱ // 0x3ce5 @0x12
0x3cd3…3d19 at0013 = ╱dc╱=╱ // 0x3ce6 @0x13
0x3cd3…3d19 at0014 = ╱45╱E╱ // 0x3ce7 @0x14
0x3cd3…3d19 at0015 = ╱37╱7╱ // 0x3ce8 @0x15
0x3cd3…3d19 at0016 = ╱ef╱$╱ // 0x3ce9 @0x16
0x3cd3…3d19 at0017 = ╱f1╱+╱ // 0x3cea @0x17
0x3cd3…3d19 at0018 = ╱44╱D╱ // 0x3ceb @0x18
0x3cd3…3d19 at0019 = ╱33╱3╱ // 0x3cec @0x19
0x3cd3…3d19 at001a = ╱ef╱$╱ // 0x3ced @0x1a
0x3cd3…3d19 at001b = ╱eb╱;╱ // 0x3cee @0x1b
0x3cd3…3d19 at001c = ╱45╱E╱ // 0x3cef @0x1c
0x3cd3…3d19 at001d = ╱31╱1╱ // 0x3cf0 @0x1d
0x3cd3…3d19 at001e = ╱32╱2╱ // 0x3cf1 @0x1e
0x3cd3…3d19 at001f = ╱ef╱$╱ // 0x3cf2 @0x1f
0x3cd3…3d19 at0020 = ╱dc╱=╱ // 0x3cf3 @0x20
0x3cd3…3d19 at0021 = ╱45╱E╱ // 0x3cf4 @0x21
0x3cd3…3d19 at0022 = ╱37╱7╱ // 0x3cf5 @0x22
0x3cd3…3d19 at0023 = ╱ef╱$╱ // 0x3cf6 @0x23
0x3cd3…3d19 at0024 = ╱f1╱+╱ // 0x3cf7 @0x24
0x3cd3…3d19 at0025 = ╱45╱E╱ // 0x3cf8 @0x25
0x3cd3…3d19 at0026 = ╱31╱1╱ // 0x3cf9 @0x26
0x3cd3…3d19 at0027 = ╱32╱2╱ // 0x3cfa @0x27
0x3cd3…3d19 at0028 = ╱ef╱$╱ // 0x3cfb @0x28
0x3cd3…3d19 at0029 = ╱eb╱;╱ // 0x3cfc @0x29
0x3cd3…3d19 at002a = ╱45╱E╱ // 0x3cfd @0x2a
0x3cd3…3d19 at002b = ╱31╱1╱ // 0x3cfe @0x2b
0x3cd3…3d19 at002c = ╱33╱3╱ // 0x3cff @0x2c
0x3cd3…3d19 at002d = ╱ef╱$╱ // 0x3d00 @0x2d
0x3cd3…3d19 at002e = ╱dc╱=╱ // 0x3d01 @0x2e
0x3cd3…3d19 at002f = ╱45╱E╱ // 0x3d02 @0x2f
0x3cd3…3d19 at0030 = ╱37╱7╱ // 0x3d03 @0x30
0x3cd3…3d19 at0031 = ╱ef╱$╱ // 0x3d04 @0x31
0x3cd3…3d19 at0032 = ╱f1╱+╱ // 0x3d05 @0x32
0x3cd3…3d19 at0033 = ╱45╱E╱ // 0x3d06 @0x33
0x3cd3…3d19 at0034 = ╱31╱1╱ // 0x3d07 @0x34
0x3cd3…3d19 at0035 = ╱33╱3╱ // 0x3d08 @0x35
0x3cd3…3d19 at0036 = ╱ef╱$╱ // 0x3d09 @0x36
0x3cd3…3d19 at0037 = ╱eb╱;╱ // 0x3d0a @0x37
0x3cd3…3d19 at0038 = ╱45╱E╱ // 0x3d0b @0x38
0x3cd3…3d19 at0039 = ╱31╱1╱ // 0x3d0c @0x39
0x3cd3…3d19 at003a = ╱34╱4╱ // 0x3d0d @0x3a
0x3cd3…3d19 at003b = ╱ef╱$╱ // 0x3d0e @0x3b
0x3cd3…3d19 at003c = ╱dc╱=╱ // 0x3d0f @0x3c
0x3cd3…3d19 at003d = ╱45╱E╱ // 0x3d10 @0x3d
0x3cd3…3d19 at003e = ╱37╱7╱ // 0x3d11 @0x3e
0x3cd3…3d19 at003f = ╱ef╱$╱ // 0x3d12 @0x3f
0x3cd3…3d19 at0040 = ╱f1╱+╱ // 0x3d13 @0x40
0x3cd3…3d19 at0041 = ╱45╱E╱ // 0x3d14 @0x41
0x3cd3…3d19 at0042 = ╱31╱1╱ // 0x3d15 @0x42
0x3cd3…3d19 at0043 = ╱34╱4╱ // 0x3d16 @0x43
0x3cd3…3d19 at0044 = ╱ef╱$╱ // 0x3d17 @0x44
0x3cd3…3d19 at0045 = EOL // 0x3d18 @0x45
0x3cd3…3d19 }
0x3d19…3d25 ca7c 7710 OPEN E12$,R
0x3d19…3d25 LineComalBin {
0x3d19…3d25 ptr = 0xca7c // 0x3d19 @0x0
0x3d19…3d25 lno = 0x1e1e // 0x3d1b @0x2
0x3d19…3d25 at0004 = ╱a7╱ OPEN ╱ // 0x3d1d @0x4
0x3d19…3d25 at0005 = ╱45╱E╱ // 0x3d1e @0x5
0x3d19…3d25 at0006 = ╱31╱1╱ // 0x3d1f @0x6
0x3d19…3d25 at0007 = ╱32╱2╱ // 0x3d20 @0x7
0x3d19…3d25 at0008 = ╱ef╱$╱ // 0x3d21 @0x8
0x3d19…3d25 at0009 = ╱ec╱,╱ // 0x3d22 @0x9
0x3d19…3d25 at000a = ╱52╱R╱ // 0x3d23 @0xa
0x3d19…3d25 at000b = EOL // 0x3d24 @0xb
0x3d19…3d25 }
0x3d25…3d42 ca99 7720 EXEC FE(99,5,E12$)
0x3d25…3d42 LineComalBin {
0x3d25…3d42 ptr = 0xca99 // 0x3d25 @0x0
0x3d25…3d42 lno = 0x1e28 // 0x3d27 @0x2
0x3d25…3d42 at0004 = ╱9d╱ EXEC ╱ // 0x3d29 @0x4
0x3d25…3d42 at0005 = ╱46╱F╱ // 0x3d2a @0x5
0x3d25…3d42 at0006 = ╱45╱E╱ // 0x3d2b @0x6
0x3d25…3d42 at0007 = ╱ed╱(╱ // 0x3d2c @0x7
0x3d25…3d42 at0008 = ╱39╱9╱ // 0x3d2d @0x8
0x3d25…3d42 at0009 = ╱39╱9╱ // 0x3d2e @0x9
0x3d25…3d42 at000a = ╱fe0000c607╱ // 0x3d2f @0xa
0x3d25…3d42 at000f = ╱ec╱,╱ // 0x3d34 @0xf
0x3d25…3d42 at0010 = ╱35╱5╱ // 0x3d35 @0x10
0x3d25…3d42 at0011 = ╱fe0000a003╱ // 0x3d36 @0x11
0x3d25…3d42 at0016 = ╱ec╱,╱ // 0x3d3b @0x16
0x3d25…3d42 at0017 = ╱45╱E╱ // 0x3d3c @0x17
0x3d25…3d42 at0018 = ╱31╱1╱ // 0x3d3d @0x18
0x3d25…3d42 at0019 = ╱32╱2╱ // 0x3d3e @0x19
0x3d25…3d42 at001a = ╱ef╱$╱ // 0x3d3f @0x1a
0x3d25…3d42 at001b = ╱ee╱)╱ // 0x3d40 @0x1b
0x3d25…3d42 at001c = EOL // 0x3d41 @0x1c
0x3d25…3d42 }
0x3d42…3d4e caa5 7730 OPEN E13$,R
0x3d42…3d4e LineComalBin {
0x3d42…3d4e ptr = 0xcaa5 // 0x3d42 @0x0
0x3d42…3d4e lno = 0x1e32 // 0x3d44 @0x2
0x3d42…3d4e at0004 = ╱a7╱ OPEN ╱ // 0x3d46 @0x4
0x3d42…3d4e at0005 = ╱45╱E╱ // 0x3d47 @0x5
0x3d42…3d4e at0006 = ╱31╱1╱ // 0x3d48 @0x6
0x3d42…3d4e at0007 = ╱33╱3╱ // 0x3d49 @0x7
0x3d42…3d4e at0008 = ╱ef╱$╱ // 0x3d4a @0x8
0x3d42…3d4e at0009 = ╱ec╱,╱ // 0x3d4b @0x9
0x3d42…3d4e at000a = ╱52╱R╱ // 0x3d4c @0xa
0x3d42…3d4e at000b = EOL // 0x3d4d @0xb
0x3d42…3d4e }
0x3d4e…3d6b cac2 7740 EXEC FE(99,6,E13$)
0x3d4e…3d6b LineComalBin {
0x3d4e…3d6b ptr = 0xcac2 // 0x3d4e @0x0
0x3d4e…3d6b lno = 0x1e3c // 0x3d50 @0x2
0x3d4e…3d6b at0004 = ╱9d╱ EXEC ╱ // 0x3d52 @0x4
0x3d4e…3d6b at0005 = ╱46╱F╱ // 0x3d53 @0x5
0x3d4e…3d6b at0006 = ╱45╱E╱ // 0x3d54 @0x6
0x3d4e…3d6b at0007 = ╱ed╱(╱ // 0x3d55 @0x7
0x3d4e…3d6b at0008 = ╱39╱9╱ // 0x3d56 @0x8
0x3d4e…3d6b at0009 = ╱39╱9╱ // 0x3d57 @0x9
0x3d4e…3d6b at000a = ╱fe0000c607╱ // 0x3d58 @0xa
0x3d4e…3d6b at000f = ╱ec╱,╱ // 0x3d5d @0xf
0x3d4e…3d6b at0010 = ╱36╱6╱ // 0x3d5e @0x10
0x3d4e…3d6b at0011 = ╱fe0000c003╱ // 0x3d5f @0x11
0x3d4e…3d6b at0016 = ╱ec╱,╱ // 0x3d64 @0x16
0x3d4e…3d6b at0017 = ╱45╱E╱ // 0x3d65 @0x17
0x3d4e…3d6b at0018 = ╱31╱1╱ // 0x3d66 @0x18
0x3d4e…3d6b at0019 = ╱33╱3╱ // 0x3d67 @0x19
0x3d4e…3d6b at001a = ╱ef╱$╱ // 0x3d68 @0x1a
0x3d4e…3d6b at001b = ╱ee╱)╱ // 0x3d69 @0x1b
0x3d4e…3d6b at001c = EOL // 0x3d6a @0x1c
0x3d4e…3d6b }
0x3d6b…3d77 cace 7750 OPEN E14$,R
0x3d6b…3d77 LineComalBin {
0x3d6b…3d77 ptr = 0xcace // 0x3d6b @0x0
0x3d6b…3d77 lno = 0x1e46 // 0x3d6d @0x2
0x3d6b…3d77 at0004 = ╱a7╱ OPEN ╱ // 0x3d6f @0x4
0x3d6b…3d77 at0005 = ╱45╱E╱ // 0x3d70 @0x5
0x3d6b…3d77 at0006 = ╱31╱1╱ // 0x3d71 @0x6
0x3d6b…3d77 at0007 = ╱34╱4╱ // 0x3d72 @0x7
0x3d6b…3d77 at0008 = ╱ef╱$╱ // 0x3d73 @0x8
0x3d6b…3d77 at0009 = ╱ec╱,╱ // 0x3d74 @0x9
0x3d6b…3d77 at000a = ╱52╱R╱ // 0x3d75 @0xa
0x3d6b…3d77 at000b = EOL // 0x3d76 @0xb
0x3d6b…3d77 }
0x3d77…3d94 caeb 7760 EXEC FE(99,7,E14$)
0x3d77…3d94 LineComalBin {
0x3d77…3d94 ptr = 0xcaeb // 0x3d77 @0x0
0x3d77…3d94 lno = 0x1e50 // 0x3d79 @0x2
0x3d77…3d94 at0004 = ╱9d╱ EXEC ╱ // 0x3d7b @0x4
0x3d77…3d94 at0005 = ╱46╱F╱ // 0x3d7c @0x5
0x3d77…3d94 at0006 = ╱45╱E╱ // 0x3d7d @0x6
0x3d77…3d94 at0007 = ╱ed╱(╱ // 0x3d7e @0x7
0x3d77…3d94 at0008 = ╱39╱9╱ // 0x3d7f @0x8
0x3d77…3d94 at0009 = ╱39╱9╱ // 0x3d80 @0x9
0x3d77…3d94 at000a = ╱fe0000c607╱ // 0x3d81 @0xa
0x3d77…3d94 at000f = ╱ec╱,╱ // 0x3d86 @0xf
0x3d77…3d94 at0010 = ╱37╱7╱ // 0x3d87 @0x10
0x3d77…3d94 at0011 = ╱fe0000e003╱ // 0x3d88 @0x11
0x3d77…3d94 at0016 = ╱ec╱,╱ // 0x3d8d @0x16
0x3d77…3d94 at0017 = ╱45╱E╱ // 0x3d8e @0x17
0x3d77…3d94 at0018 = ╱31╱1╱ // 0x3d8f @0x18
0x3d77…3d94 at0019 = ╱34╱4╱ // 0x3d90 @0x19
0x3d77…3d94 at001a = ╱ef╱$╱ // 0x3d91 @0x1a
0x3d77…3d94 at001b = ╱ee╱)╱ // 0x3d92 @0x1b
0x3d77…3d94 at001c = EOL // 0x3d93 @0x1c
0x3d77…3d94 }
0x3d94…3d9f caf6 7770 OPEN A6$,R
0x3d94…3d9f LineComalBin {
0x3d94…3d9f ptr = 0xcaf6 // 0x3d94 @0x0
0x3d94…3d9f lno = 0x1e5a // 0x3d96 @0x2
0x3d94…3d9f at0004 = ╱a7╱ OPEN ╱ // 0x3d98 @0x4
0x3d94…3d9f at0005 = ╱41╱A╱ // 0x3d99 @0x5
0x3d94…3d9f at0006 = ╱36╱6╱ // 0x3d9a @0x6
0x3d94…3d9f at0007 = ╱ef╱$╱ // 0x3d9b @0x7
0x3d94…3d9f at0008 = ╱ec╱,╱ // 0x3d9c @0x8
0x3d94…3d9f at0009 = ╱52╱R╱ // 0x3d9d @0x9
0x3d94…3d9f at000a = EOL // 0x3d9e @0xa
0x3d94…3d9f }
0x3d9f…3db6 cb0d 7780 EXEC FE(W,28,A6$)
0x3d9f…3db6 LineComalBin {
0x3d9f…3db6 ptr = 0xcb0d // 0x3d9f @0x0
0x3d9f…3db6 lno = 0x1e64 // 0x3da1 @0x2
0x3d9f…3db6 at0004 = ╱9d╱ EXEC ╱ // 0x3da3 @0x4
0x3d9f…3db6 at0005 = ╱46╱F╱ // 0x3da4 @0x5
0x3d9f…3db6 at0006 = ╱45╱E╱ // 0x3da5 @0x6
0x3d9f…3db6 at0007 = ╱ed╱(╱ // 0x3da6 @0x7
0x3d9f…3db6 at0008 = ╱57╱W╱ // 0x3da7 @0x8
0x3d9f…3db6 at0009 = ╱ec╱,╱ // 0x3da8 @0x9
0x3d9f…3db6 at000a = ╱32╱2╱ // 0x3da9 @0xa
0x3d9f…3db6 at000b = ╱38╱8╱ // 0x3daa @0xb
0x3d9f…3db6 at000c = ╱fe0000e005╱ // 0x3dab @0xc
0x3d9f…3db6 at0011 = ╱ec╱,╱ // 0x3db0 @0x11
0x3d9f…3db6 at0012 = ╱41╱A╱ // 0x3db1 @0x12
0x3d9f…3db6 at0013 = ╱36╱6╱ // 0x3db2 @0x13
0x3d9f…3db6 at0014 = ╱ef╱$╱ // 0x3db3 @0x14
0x3d9f…3db6 at0015 = ╱ee╱)╱ // 0x3db4 @0x15
0x3d9f…3db6 at0016 = EOL // 0x3db5 @0x16
0x3d9f…3db6 }
0x3db6…3dc1 cb18 7790 OPEN A4$,R
0x3db6…3dc1 LineComalBin {
0x3db6…3dc1 ptr = 0xcb18 // 0x3db6 @0x0
0x3db6…3dc1 lno = 0x1e6e // 0x3db8 @0x2
0x3db6…3dc1 at0004 = ╱a7╱ OPEN ╱ // 0x3dba @0x4
0x3db6…3dc1 at0005 = ╱41╱A╱ // 0x3dbb @0x5
0x3db6…3dc1 at0006 = ╱34╱4╱ // 0x3dbc @0x6
0x3db6…3dc1 at0007 = ╱ef╱$╱ // 0x3dbd @0x7
0x3db6…3dc1 at0008 = ╱ec╱,╱ // 0x3dbe @0x8
0x3db6…3dc1 at0009 = ╱52╱R╱ // 0x3dbf @0x9
0x3db6…3dc1 at000a = EOL // 0x3dc0 @0xa
0x3db6…3dc1 }
0x3dc1…3dd8 cb2f 7800 EXEC FE(W,29,A4$)
0x3dc1…3dd8 LineComalBin {
0x3dc1…3dd8 ptr = 0xcb2f // 0x3dc1 @0x0
0x3dc1…3dd8 lno = 0x1e78 // 0x3dc3 @0x2
0x3dc1…3dd8 at0004 = ╱9d╱ EXEC ╱ // 0x3dc5 @0x4
0x3dc1…3dd8 at0005 = ╱46╱F╱ // 0x3dc6 @0x5
0x3dc1…3dd8 at0006 = ╱45╱E╱ // 0x3dc7 @0x6
0x3dc1…3dd8 at0007 = ╱ed╱(╱ // 0x3dc8 @0x7
0x3dc1…3dd8 at0008 = ╱57╱W╱ // 0x3dc9 @0x8
0x3dc1…3dd8 at0009 = ╱ec╱,╱ // 0x3dca @0x9
0x3dc1…3dd8 at000a = ╱32╱2╱ // 0x3dcb @0xa
0x3dc1…3dd8 at000b = ╱39╱9╱ // 0x3dcc @0xb
0x3dc1…3dd8 at000c = ╱fe0000e805╱ // 0x3dcd @0xc
0x3dc1…3dd8 at0011 = ╱ec╱,╱ // 0x3dd2 @0x11
0x3dc1…3dd8 at0012 = ╱41╱A╱ // 0x3dd3 @0x12
0x3dc1…3dd8 at0013 = ╱34╱4╱ // 0x3dd4 @0x13
0x3dc1…3dd8 at0014 = ╱ef╱$╱ // 0x3dd5 @0x14
0x3dc1…3dd8 at0015 = ╱ee╱)╱ // 0x3dd6 @0x15
0x3dc1…3dd8 at0016 = EOL // 0x3dd7 @0x16
0x3dc1…3dd8 }
0x3dd8…3de3 cb3a 7810 OPEN B6$,R
0x3dd8…3de3 LineComalBin {
0x3dd8…3de3 ptr = 0xcb3a // 0x3dd8 @0x0
0x3dd8…3de3 lno = 0x1e82 // 0x3dda @0x2
0x3dd8…3de3 at0004 = ╱a7╱ OPEN ╱ // 0x3ddc @0x4
0x3dd8…3de3 at0005 = ╱42╱B╱ // 0x3ddd @0x5
0x3dd8…3de3 at0006 = ╱36╱6╱ // 0x3dde @0x6
0x3dd8…3de3 at0007 = ╱ef╱$╱ // 0x3ddf @0x7
0x3dd8…3de3 at0008 = ╱ec╱,╱ // 0x3de0 @0x8
0x3dd8…3de3 at0009 = ╱52╱R╱ // 0x3de1 @0x9
0x3dd8…3de3 at000a = EOL // 0x3de2 @0xa
0x3dd8…3de3 }
0x3de3…3dfa cb51 7820 EXEC FE(W,30,B6$)
0x3de3…3dfa LineComalBin {
0x3de3…3dfa ptr = 0xcb51 // 0x3de3 @0x0
0x3de3…3dfa lno = 0x1e8c // 0x3de5 @0x2
0x3de3…3dfa at0004 = ╱9d╱ EXEC ╱ // 0x3de7 @0x4
0x3de3…3dfa at0005 = ╱46╱F╱ // 0x3de8 @0x5
0x3de3…3dfa at0006 = ╱45╱E╱ // 0x3de9 @0x6
0x3de3…3dfa at0007 = ╱ed╱(╱ // 0x3dea @0x7
0x3de3…3dfa at0008 = ╱57╱W╱ // 0x3deb @0x8
0x3de3…3dfa at0009 = ╱ec╱,╱ // 0x3dec @0x9
0x3de3…3dfa at000a = ╱33╱3╱ // 0x3ded @0xa
0x3de3…3dfa at000b = ╱30╱0╱ // 0x3dee @0xb
0x3de3…3dfa at000c = ╱fe0000f005╱ // 0x3def @0xc
0x3de3…3dfa at0011 = ╱ec╱,╱ // 0x3df4 @0x11
0x3de3…3dfa at0012 = ╱42╱B╱ // 0x3df5 @0x12
0x3de3…3dfa at0013 = ╱36╱6╱ // 0x3df6 @0x13
0x3de3…3dfa at0014 = ╱ef╱$╱ // 0x3df7 @0x14
0x3de3…3dfa at0015 = ╱ee╱)╱ // 0x3df8 @0x15
0x3de3…3dfa at0016 = EOL // 0x3df9 @0x16
0x3de3…3dfa }
0x3dfa…3e05 cb5c 7830 OPEN C9$,R
0x3dfa…3e05 LineComalBin {
0x3dfa…3e05 ptr = 0xcb5c // 0x3dfa @0x0
0x3dfa…3e05 lno = 0x1e96 // 0x3dfc @0x2
0x3dfa…3e05 at0004 = ╱a7╱ OPEN ╱ // 0x3dfe @0x4
0x3dfa…3e05 at0005 = ╱43╱C╱ // 0x3dff @0x5
0x3dfa…3e05 at0006 = ╱39╱9╱ // 0x3e00 @0x6
0x3dfa…3e05 at0007 = ╱ef╱$╱ // 0x3e01 @0x7
0x3dfa…3e05 at0008 = ╱ec╱,╱ // 0x3e02 @0x8
0x3dfa…3e05 at0009 = ╱52╱R╱ // 0x3e03 @0x9
0x3dfa…3e05 at000a = EOL // 0x3e04 @0xa
0x3dfa…3e05 }
0x3e05…3e1c cb73 7840 EXEC FE(W,31,C9$)
0x3e05…3e1c LineComalBin {
0x3e05…3e1c ptr = 0xcb73 // 0x3e05 @0x0
0x3e05…3e1c lno = 0x1ea0 // 0x3e07 @0x2
0x3e05…3e1c at0004 = ╱9d╱ EXEC ╱ // 0x3e09 @0x4
0x3e05…3e1c at0005 = ╱46╱F╱ // 0x3e0a @0x5
0x3e05…3e1c at0006 = ╱45╱E╱ // 0x3e0b @0x6
0x3e05…3e1c at0007 = ╱ed╱(╱ // 0x3e0c @0x7
0x3e05…3e1c at0008 = ╱57╱W╱ // 0x3e0d @0x8
0x3e05…3e1c at0009 = ╱ec╱,╱ // 0x3e0e @0x9
0x3e05…3e1c at000a = ╱33╱3╱ // 0x3e0f @0xa
0x3e05…3e1c at000b = ╱31╱1╱ // 0x3e10 @0xb
0x3e05…3e1c at000c = ╱fe0000f805╱ // 0x3e11 @0xc
0x3e05…3e1c at0011 = ╱ec╱,╱ // 0x3e16 @0x11
0x3e05…3e1c at0012 = ╱43╱C╱ // 0x3e17 @0x12
0x3e05…3e1c at0013 = ╱39╱9╱ // 0x3e18 @0x13
0x3e05…3e1c at0014 = ╱ef╱$╱ // 0x3e19 @0x14
0x3e05…3e1c at0015 = ╱ee╱)╱ // 0x3e1a @0x15
0x3e05…3e1c at0016 = EOL // 0x3e1b @0x16
0x3e05…3e1c }
0x3e1c…3e27 cb7e 7850 OPEN D0$,R
0x3e1c…3e27 LineComalBin {
0x3e1c…3e27 ptr = 0xcb7e // 0x3e1c @0x0
0x3e1c…3e27 lno = 0x1eaa // 0x3e1e @0x2
0x3e1c…3e27 at0004 = ╱a7╱ OPEN ╱ // 0x3e20 @0x4
0x3e1c…3e27 at0005 = ╱44╱D╱ // 0x3e21 @0x5
0x3e1c…3e27 at0006 = ╱30╱0╱ // 0x3e22 @0x6
0x3e1c…3e27 at0007 = ╱ef╱$╱ // 0x3e23 @0x7
0x3e1c…3e27 at0008 = ╱ec╱,╱ // 0x3e24 @0x8
0x3e1c…3e27 at0009 = ╱52╱R╱ // 0x3e25 @0x9
0x3e1c…3e27 at000a = EOL // 0x3e26 @0xa
0x3e1c…3e27 }
0x3e27…3e3e cb95 7860 EXEC FE(W,32,D0$)
0x3e27…3e3e LineComalBin {
0x3e27…3e3e ptr = 0xcb95 // 0x3e27 @0x0
0x3e27…3e3e lno = 0x1eb4 // 0x3e29 @0x2
0x3e27…3e3e at0004 = ╱9d╱ EXEC ╱ // 0x3e2b @0x4
0x3e27…3e3e at0005 = ╱46╱F╱ // 0x3e2c @0x5
0x3e27…3e3e at0006 = ╱45╱E╱ // 0x3e2d @0x6
0x3e27…3e3e at0007 = ╱ed╱(╱ // 0x3e2e @0x7
0x3e27…3e3e at0008 = ╱57╱W╱ // 0x3e2f @0x8
0x3e27…3e3e at0009 = ╱ec╱,╱ // 0x3e30 @0x9
0x3e27…3e3e at000a = ╱33╱3╱ // 0x3e31 @0xa
0x3e27…3e3e at000b = ╱32╱2╱ // 0x3e32 @0xb
0x3e27…3e3e at000c = ╱fe00008006╱ // 0x3e33 @0xc
0x3e27…3e3e at0011 = ╱ec╱,╱ // 0x3e38 @0x11
0x3e27…3e3e at0012 = ╱44╱D╱ // 0x3e39 @0x12
0x3e27…3e3e at0013 = ╱30╱0╱ // 0x3e3a @0x13
0x3e27…3e3e at0014 = ╱ef╱$╱ // 0x3e3b @0x14
0x3e27…3e3e at0015 = ╱ee╱)╱ // 0x3e3c @0x15
0x3e27…3e3e at0016 = EOL // 0x3e3d @0x16
0x3e27…3e3e }
0x3e3e…3e49 cba0 7870 OPEN D1$,R
0x3e3e…3e49 LineComalBin {
0x3e3e…3e49 ptr = 0xcba0 // 0x3e3e @0x0
0x3e3e…3e49 lno = 0x1ebe // 0x3e40 @0x2
0x3e3e…3e49 at0004 = ╱a7╱ OPEN ╱ // 0x3e42 @0x4
0x3e3e…3e49 at0005 = ╱44╱D╱ // 0x3e43 @0x5
0x3e3e…3e49 at0006 = ╱31╱1╱ // 0x3e44 @0x6
0x3e3e…3e49 at0007 = ╱ef╱$╱ // 0x3e45 @0x7
0x3e3e…3e49 at0008 = ╱ec╱,╱ // 0x3e46 @0x8
0x3e3e…3e49 at0009 = ╱52╱R╱ // 0x3e47 @0x9
0x3e3e…3e49 at000a = EOL // 0x3e48 @0xa
0x3e3e…3e49 }
0x3e49…3e60 cbb7 7880 EXEC FE(W,33,D1$)
0x3e49…3e60 LineComalBin {
0x3e49…3e60 ptr = 0xcbb7 // 0x3e49 @0x0
0x3e49…3e60 lno = 0x1ec8 // 0x3e4b @0x2
0x3e49…3e60 at0004 = ╱9d╱ EXEC ╱ // 0x3e4d @0x4
0x3e49…3e60 at0005 = ╱46╱F╱ // 0x3e4e @0x5
0x3e49…3e60 at0006 = ╱45╱E╱ // 0x3e4f @0x6
0x3e49…3e60 at0007 = ╱ed╱(╱ // 0x3e50 @0x7
0x3e49…3e60 at0008 = ╱57╱W╱ // 0x3e51 @0x8
0x3e49…3e60 at0009 = ╱ec╱,╱ // 0x3e52 @0x9
0x3e49…3e60 at000a = ╱33╱3╱ // 0x3e53 @0xa
0x3e49…3e60 at000b = ╱33╱3╱ // 0x3e54 @0xb
0x3e49…3e60 at000c = ╱fe00008406╱ // 0x3e55 @0xc
0x3e49…3e60 at0011 = ╱ec╱,╱ // 0x3e5a @0x11
0x3e49…3e60 at0012 = ╱44╱D╱ // 0x3e5b @0x12
0x3e49…3e60 at0013 = ╱31╱1╱ // 0x3e5c @0x13
0x3e49…3e60 at0014 = ╱ef╱$╱ // 0x3e5d @0x14
0x3e49…3e60 at0015 = ╱ee╱)╱ // 0x3e5e @0x15
0x3e49…3e60 at0016 = EOL // 0x3e5f @0x16
0x3e49…3e60 }
0x3e60…3e6b cbc2 7890 OPEN D2$,W
0x3e60…3e6b LineComalBin {
0x3e60…3e6b ptr = 0xcbc2 // 0x3e60 @0x0
0x3e60…3e6b lno = 0x1ed2 // 0x3e62 @0x2
0x3e60…3e6b at0004 = ╱a7╱ OPEN ╱ // 0x3e64 @0x4
0x3e60…3e6b at0005 = ╱44╱D╱ // 0x3e65 @0x5
0x3e60…3e6b at0006 = ╱32╱2╱ // 0x3e66 @0x6
0x3e60…3e6b at0007 = ╱ef╱$╱ // 0x3e67 @0x7
0x3e60…3e6b at0008 = ╱ec╱,╱ // 0x3e68 @0x8
0x3e60…3e6b at0009 = ╱57╱W╱ // 0x3e69 @0x9
0x3e60…3e6b at000a = EOL // 0x3e6a @0xa
0x3e60…3e6b }
0x3e6b…3e82 cbd9 7900 EXEC FE(W,34,D2$)
0x3e6b…3e82 LineComalBin {
0x3e6b…3e82 ptr = 0xcbd9 // 0x3e6b @0x0
0x3e6b…3e82 lno = 0x1edc // 0x3e6d @0x2
0x3e6b…3e82 at0004 = ╱9d╱ EXEC ╱ // 0x3e6f @0x4
0x3e6b…3e82 at0005 = ╱46╱F╱ // 0x3e70 @0x5
0x3e6b…3e82 at0006 = ╱45╱E╱ // 0x3e71 @0x6
0x3e6b…3e82 at0007 = ╱ed╱(╱ // 0x3e72 @0x7
0x3e6b…3e82 at0008 = ╱57╱W╱ // 0x3e73 @0x8
0x3e6b…3e82 at0009 = ╱ec╱,╱ // 0x3e74 @0x9
0x3e6b…3e82 at000a = ╱33╱3╱ // 0x3e75 @0xa
0x3e6b…3e82 at000b = ╱34╱4╱ // 0x3e76 @0xb
0x3e6b…3e82 at000c = ╱fe00008806╱ // 0x3e77 @0xc
0x3e6b…3e82 at0011 = ╱ec╱,╱ // 0x3e7c @0x11
0x3e6b…3e82 at0012 = ╱44╱D╱ // 0x3e7d @0x12
0x3e6b…3e82 at0013 = ╱32╱2╱ // 0x3e7e @0x13
0x3e6b…3e82 at0014 = ╱ef╱$╱ // 0x3e7f @0x14
0x3e6b…3e82 at0015 = ╱ee╱)╱ // 0x3e80 @0x15
0x3e6b…3e82 at0016 = EOL // 0x3e81 @0x16
0x3e6b…3e82 }
0x3e82…3e95 cbec 7910 EXEC IT(M7,M9,A6$)
0x3e82…3e95 LineComalBin {
0x3e82…3e95 ptr = 0xcbec // 0x3e82 @0x0
0x3e82…3e95 lno = 0x1ee6 // 0x3e84 @0x2
0x3e82…3e95 at0004 = ╱9d╱ EXEC ╱ // 0x3e86 @0x4
0x3e82…3e95 at0005 = ╱49╱I╱ // 0x3e87 @0x5
0x3e82…3e95 at0006 = ╱54╱T╱ // 0x3e88 @0x6
0x3e82…3e95 at0007 = ╱ed╱(╱ // 0x3e89 @0x7
0x3e82…3e95 at0008 = ╱4d╱M╱ // 0x3e8a @0x8
0x3e82…3e95 at0009 = ╱37╱7╱ // 0x3e8b @0x9
0x3e82…3e95 at000a = ╱ec╱,╱ // 0x3e8c @0xa
0x3e82…3e95 at000b = ╱4d╱M╱ // 0x3e8d @0xb
0x3e82…3e95 at000c = ╱39╱9╱ // 0x3e8e @0xc
0x3e82…3e95 at000d = ╱ec╱,╱ // 0x3e8f @0xd
0x3e82…3e95 at000e = ╱41╱A╱ // 0x3e90 @0xe
0x3e82…3e95 at000f = ╱36╱6╱ // 0x3e91 @0xf
0x3e82…3e95 at0010 = ╱ef╱$╱ // 0x3e92 @0x10
0x3e82…3e95 at0011 = ╱ee╱)╱ // 0x3e93 @0x11
0x3e82…3e95 at0012 = EOL // 0x3e94 @0x12
0x3e82…3e95 }
0x3e95…3ea8 cbff 7920 EXEC IT(N2,N4,A4$)
0x3e95…3ea8 LineComalBin {
0x3e95…3ea8 ptr = 0xcbff // 0x3e95 @0x0
0x3e95…3ea8 lno = 0x1ef0 // 0x3e97 @0x2
0x3e95…3ea8 at0004 = ╱9d╱ EXEC ╱ // 0x3e99 @0x4
0x3e95…3ea8 at0005 = ╱49╱I╱ // 0x3e9a @0x5
0x3e95…3ea8 at0006 = ╱54╱T╱ // 0x3e9b @0x6
0x3e95…3ea8 at0007 = ╱ed╱(╱ // 0x3e9c @0x7
0x3e95…3ea8 at0008 = ╱4e╱N╱ // 0x3e9d @0x8
0x3e95…3ea8 at0009 = ╱32╱2╱ // 0x3e9e @0x9
0x3e95…3ea8 at000a = ╱ec╱,╱ // 0x3e9f @0xa
0x3e95…3ea8 at000b = ╱4e╱N╱ // 0x3ea0 @0xb
0x3e95…3ea8 at000c = ╱34╱4╱ // 0x3ea1 @0xc
0x3e95…3ea8 at000d = ╱ec╱,╱ // 0x3ea2 @0xd
0x3e95…3ea8 at000e = ╱41╱A╱ // 0x3ea3 @0xe
0x3e95…3ea8 at000f = ╱34╱4╱ // 0x3ea4 @0xf
0x3e95…3ea8 at0010 = ╱ef╱$╱ // 0x3ea5 @0x10
0x3e95…3ea8 at0011 = ╱ee╱)╱ // 0x3ea6 @0x11
0x3e95…3ea8 at0012 = EOL // 0x3ea7 @0x12
0x3e95…3ea8 }
0x3ea8…3ebb cc12 7930 EXEC IT(N7,N8,B6$)
0x3ea8…3ebb LineComalBin {
0x3ea8…3ebb ptr = 0xcc12 // 0x3ea8 @0x0
0x3ea8…3ebb lno = 0x1efa // 0x3eaa @0x2
0x3ea8…3ebb at0004 = ╱9d╱ EXEC ╱ // 0x3eac @0x4
0x3ea8…3ebb at0005 = ╱49╱I╱ // 0x3ead @0x5
0x3ea8…3ebb at0006 = ╱54╱T╱ // 0x3eae @0x6
0x3ea8…3ebb at0007 = ╱ed╱(╱ // 0x3eaf @0x7
0x3ea8…3ebb at0008 = ╱4e╱N╱ // 0x3eb0 @0x8
0x3ea8…3ebb at0009 = ╱37╱7╱ // 0x3eb1 @0x9
0x3ea8…3ebb at000a = ╱ec╱,╱ // 0x3eb2 @0xa
0x3ea8…3ebb at000b = ╱4e╱N╱ // 0x3eb3 @0xb
0x3ea8…3ebb at000c = ╱38╱8╱ // 0x3eb4 @0xc
0x3ea8…3ebb at000d = ╱ec╱,╱ // 0x3eb5 @0xd
0x3ea8…3ebb at000e = ╱42╱B╱ // 0x3eb6 @0xe
0x3ea8…3ebb at000f = ╱36╱6╱ // 0x3eb7 @0xf
0x3ea8…3ebb at0010 = ╱ef╱$╱ // 0x3eb8 @0x10
0x3ea8…3ebb at0011 = ╱ee╱)╱ // 0x3eb9 @0x11
0x3ea8…3ebb at0012 = EOL // 0x3eba @0x12
0x3ea8…3ebb }
0x3ebb…3ed1 cc28 7940 EXEC IT(N11,J12,E13$)
0x3ebb…3ed1 LineComalBin {
0x3ebb…3ed1 ptr = 0xcc28 // 0x3ebb @0x0
0x3ebb…3ed1 lno = 0x1f04 // 0x3ebd @0x2
0x3ebb…3ed1 at0004 = ╱9d╱ EXEC ╱ // 0x3ebf @0x4
0x3ebb…3ed1 at0005 = ╱49╱I╱ // 0x3ec0 @0x5
0x3ebb…3ed1 at0006 = ╱54╱T╱ // 0x3ec1 @0x6
0x3ebb…3ed1 at0007 = ╱ed╱(╱ // 0x3ec2 @0x7
0x3ebb…3ed1 at0008 = ╱4e╱N╱ // 0x3ec3 @0x8
0x3ebb…3ed1 at0009 = ╱31╱1╱ // 0x3ec4 @0x9
0x3ebb…3ed1 at000a = ╱31╱1╱ // 0x3ec5 @0xa
0x3ebb…3ed1 at000b = ╱ec╱,╱ // 0x3ec6 @0xb
0x3ebb…3ed1 at000c = ╱4a╱J╱ // 0x3ec7 @0xc
0x3ebb…3ed1 at000d = ╱31╱1╱ // 0x3ec8 @0xd
0x3ebb…3ed1 at000e = ╱32╱2╱ // 0x3ec9 @0xe
0x3ebb…3ed1 at000f = ╱ec╱,╱ // 0x3eca @0xf
0x3ebb…3ed1 at0010 = ╱45╱E╱ // 0x3ecb @0x10
0x3ebb…3ed1 at0011 = ╱31╱1╱ // 0x3ecc @0x11
0x3ebb…3ed1 at0012 = ╱33╱3╱ // 0x3ecd @0x12
0x3ebb…3ed1 at0013 = ╱ef╱$╱ // 0x3ece @0x13
0x3ebb…3ed1 at0014 = ╱ee╱)╱ // 0x3ecf @0x14
0x3ebb…3ed1 at0015 = EOL // 0x3ed0 @0x15
0x3ebb…3ed1 }
0x3ed1…3ee2 cc39 7950 FOR X=E TO J13+J14
0x3ed1…3ee2 LineComalBin {
0x3ed1…3ee2 ptr = 0xcc39 // 0x3ed1 @0x0
0x3ed1…3ee2 lno = 0x1f0e // 0x3ed3 @0x2
0x3ed1…3ee2 at0004 = ╱83╱ FOR ╱ // 0x3ed5 @0x4
0x3ed1…3ee2 at0005 = ╱58╱X╱ // 0x3ed6 @0x5
0x3ed1…3ee2 at0006 = ╱dc╱=╱ // 0x3ed7 @0x6
0x3ed1…3ee2 at0007 = ╱45╱E╱ // 0x3ed8 @0x7
0x3ed1…3ee2 at0008 = ╱b7╱ TO ╱ // 0x3ed9 @0x8
0x3ed1…3ee2 at0009 = ╱4a╱J╱ // 0x3eda @0x9
0x3ed1…3ee2 at000a = ╱31╱1╱ // 0x3edb @0xa
0x3ed1…3ee2 at000b = ╱33╱3╱ // 0x3edc @0xb
0x3ed1…3ee2 at000c = ╱e2╱+╱ // 0x3edd @0xc
0x3ed1…3ee2 at000d = ╱4a╱J╱ // 0x3ede @0xd
0x3ed1…3ee2 at000e = ╱31╱1╱ // 0x3edf @0xe
0x3ed1…3ee2 at000f = ╱34╱4╱ // 0x3ee0 @0xf
0x3ed1…3ee2 at0010 = EOL // 0x3ee1 @0x10
0x3ed1…3ee2 }
0x3ee2…3efd cc54 7960 GET E14$,X:N12(X),N13$(X)
0x3ee2…3efd LineComalBin {
0x3ee2…3efd ptr = 0xcc54 // 0x3ee2 @0x0
0x3ee2…3efd lno = 0x1f18 // 0x3ee4 @0x2
0x3ee2…3efd at0004 = ╱a9╱ GET ╱ // 0x3ee6 @0x4
0x3ee2…3efd at0005 = ╱45╱E╱ // 0x3ee7 @0x5
0x3ee2…3efd at0006 = ╱31╱1╱ // 0x3ee8 @0x6
0x3ee2…3efd at0007 = ╱34╱4╱ // 0x3ee9 @0x7
0x3ee2…3efd at0008 = ╱ef╱$╱ // 0x3eea @0x8
0x3ee2…3efd at0009 = ╱ec╱,╱ // 0x3eeb @0x9
0x3ee2…3efd at000a = ╱58╱X╱ // 0x3eec @0xa
0x3ee2…3efd at000b = ╱f0╱:╱ // 0x3eed @0xb
0x3ee2…3efd at000c = ╱4e╱N╱ // 0x3eee @0xc
0x3ee2…3efd at000d = ╱31╱1╱ // 0x3eef @0xd
0x3ee2…3efd at000e = ╱32╱2╱ // 0x3ef0 @0xe
0x3ee2…3efd at000f = ╱ed╱(╱ // 0x3ef1 @0xf
0x3ee2…3efd at0010 = ╱58╱X╱ // 0x3ef2 @0x10
0x3ee2…3efd at0011 = ╱ee╱)╱ // 0x3ef3 @0x11
0x3ee2…3efd at0012 = ╱ec╱,╱ // 0x3ef4 @0x12
0x3ee2…3efd at0013 = ╱4e╱N╱ // 0x3ef5 @0x13
0x3ee2…3efd at0014 = ╱31╱1╱ // 0x3ef6 @0x14
0x3ee2…3efd at0015 = ╱33╱3╱ // 0x3ef7 @0x15
0x3ee2…3efd at0016 = ╱ef╱$╱ // 0x3ef8 @0x16
0x3ee2…3efd at0017 = ╱ed╱(╱ // 0x3ef9 @0x17
0x3ee2…3efd at0018 = ╱58╱X╱ // 0x3efa @0x18
0x3ee2…3efd at0019 = ╱ee╱)╱ // 0x3efb @0x19
0x3ee2…3efd at001a = EOL // 0x3efc @0x1a
0x3ee2…3efd }
0x3efd…3f1a cc71 7970 EXEC FE(99,8,E14$)
0x3efd…3f1a LineComalBin {
0x3efd…3f1a ptr = 0xcc71 // 0x3efd @0x0
0x3efd…3f1a lno = 0x1f22 // 0x3eff @0x2
0x3efd…3f1a at0004 = ╱9d╱ EXEC ╱ // 0x3f01 @0x4
0x3efd…3f1a at0005 = ╱46╱F╱ // 0x3f02 @0x5
0x3efd…3f1a at0006 = ╱45╱E╱ // 0x3f03 @0x6
0x3efd…3f1a at0007 = ╱ed╱(╱ // 0x3f04 @0x7
0x3efd…3f1a at0008 = ╱39╱9╱ // 0x3f05 @0x8
0x3efd…3f1a at0009 = ╱39╱9╱ // 0x3f06 @0x9
0x3efd…3f1a at000a = ╱fe0000c607╱ // 0x3f07 @0xa
0x3efd…3f1a at000f = ╱ec╱,╱ // 0x3f0c @0xf
0x3efd…3f1a at0010 = ╱38╱8╱ // 0x3f0d @0x10
0x3efd…3f1a at0011 = ╱fe00008004╱ // 0x3f0e @0x11
0x3efd…3f1a at0016 = ╱ec╱,╱ // 0x3f13 @0x16
0x3efd…3f1a at0017 = ╱45╱E╱ // 0x3f14 @0x17
0x3efd…3f1a at0018 = ╱31╱1╱ // 0x3f15 @0x18
0x3efd…3f1a at0019 = ╱34╱4╱ // 0x3f16 @0x19
0x3efd…3f1a at001a = ╱ef╱$╱ // 0x3f17 @0x1a
0x3efd…3f1a at001b = ╱ee╱)╱ // 0x3f18 @0x1b
0x3efd…3f1a at001c = EOL // 0x3f19 @0x1c
0x3efd…3f1a }
0x3f1a…3f21 cc78 7980 NEXT X
0x3f1a…3f21 LineComalBin {
0x3f1a…3f21 ptr = 0xcc78 // 0x3f1a @0x0
0x3f1a…3f21 lno = 0x1f2c // 0x3f1c @0x2
0x3f1a…3f21 at0004 = ╱84╱ NEXT ╱ // 0x3f1e @0x4
0x3f1a…3f21 at0005 = ╱58╱X╱ // 0x3f1f @0x5
0x3f1a…3f21 at0006 = EOL // 0x3f20 @0x6
0x3f1a…3f21 }
0x3f21…3f6d ccc4 7990 J5$(E)="Kasse debet ";J5$(G)="Kasse kredit ";J5$(V)="Bank debet "
0x3f21…3f6d LineComalBin {
0x3f21…3f6d ptr = 0xccc4 // 0x3f21 @0x0
0x3f21…3f6d lno = 0x1f36 // 0x3f23 @0x2
0x3f21…3f6d at0004 = ╱4a╱J╱ // 0x3f25 @0x4
0x3f21…3f6d at0005 = ╱35╱5╱ // 0x3f26 @0x5
0x3f21…3f6d at0006 = ╱ef╱$╱ // 0x3f27 @0x6
0x3f21…3f6d at0007 = ╱ed╱(╱ // 0x3f28 @0x7
0x3f21…3f6d at0008 = ╱45╱E╱ // 0x3f29 @0x8
0x3f21…3f6d at0009 = ╱ee╱)╱ // 0x3f2a @0x9
0x3f21…3f6d at000a = ╱dc╱=╱ // 0x3f2b @0xa
0x3f21…3f6d at000b = ╱22╱"╱ // 0x3f2c @0xb
0x3f21…3f6d at000c = ╱4b╱K╱ // 0x3f2d @0xc
0x3f21…3f6d at000d = ╱61╱a╱ // 0x3f2e @0xd
0x3f21…3f6d at000e = ╱73╱s╱ // 0x3f2f @0xe
0x3f21…3f6d at000f = ╱73╱s╱ // 0x3f30 @0xf
0x3f21…3f6d at0010 = ╱65╱e╱ // 0x3f31 @0x10
0x3f21…3f6d at0011 = ╱20╱…╱ // 0x3f32 @0x11
0x3f21…3f6d at0012 = ╱64╱d╱ // 0x3f33 @0x12
0x3f21…3f6d at0013 = ╱65╱e╱ // 0x3f34 @0x13
0x3f21…3f6d at0014 = ╱62╱b╱ // 0x3f35 @0x14
0x3f21…3f6d at0015 = ╱65╱e╱ // 0x3f36 @0x15
0x3f21…3f6d at0016 = ╱74╱t╱ // 0x3f37 @0x16
0x3f21…3f6d at0017 = ╱20╱…╱ // 0x3f38 @0x17
0x3f21…3f6d at0018 = ╱20╱…╱ // 0x3f39 @0x18
0x3f21…3f6d at0019 = ╱20╱…╱ // 0x3f3a @0x19
0x3f21…3f6d at001a = ╱22╱"╱ // 0x3f3b @0x1a
0x3f21…3f6d at001b = ╱eb╱;╱ // 0x3f3c @0x1b
0x3f21…3f6d at001c = ╱4a╱J╱ // 0x3f3d @0x1c
0x3f21…3f6d at001d = ╱35╱5╱ // 0x3f3e @0x1d
0x3f21…3f6d at001e = ╱ef╱$╱ // 0x3f3f @0x1e
0x3f21…3f6d at001f = ╱ed╱(╱ // 0x3f40 @0x1f
0x3f21…3f6d at0020 = ╱47╱G╱ // 0x3f41 @0x20
0x3f21…3f6d at0021 = ╱ee╱)╱ // 0x3f42 @0x21
0x3f21…3f6d at0022 = ╱dc╱=╱ // 0x3f43 @0x22
0x3f21…3f6d at0023 = ╱22╱"╱ // 0x3f44 @0x23
0x3f21…3f6d at0024 = ╱4b╱K╱ // 0x3f45 @0x24
0x3f21…3f6d at0025 = ╱61╱a╱ // 0x3f46 @0x25
0x3f21…3f6d at0026 = ╱73╱s╱ // 0x3f47 @0x26
0x3f21…3f6d at0027 = ╱73╱s╱ // 0x3f48 @0x27
0x3f21…3f6d at0028 = ╱65╱e╱ // 0x3f49 @0x28
0x3f21…3f6d at0029 = ╱20╱…╱ // 0x3f4a @0x29
0x3f21…3f6d at002a = ╱6b╱k╱ // 0x3f4b @0x2a
0x3f21…3f6d at002b = ╱72╱r╱ // 0x3f4c @0x2b
0x3f21…3f6d at002c = ╱65╱e╱ // 0x3f4d @0x2c
0x3f21…3f6d at002d = ╱64╱d╱ // 0x3f4e @0x2d
0x3f21…3f6d at002e = ╱69╱i╱ // 0x3f4f @0x2e
0x3f21…3f6d at002f = ╱74╱t╱ // 0x3f50 @0x2f
0x3f21…3f6d at0030 = ╱20╱…╱ // 0x3f51 @0x30
0x3f21…3f6d at0031 = ╱20╱…╱ // 0x3f52 @0x31
0x3f21…3f6d at0032 = ╱22╱"╱ // 0x3f53 @0x32
0x3f21…3f6d at0033 = ╱eb╱;╱ // 0x3f54 @0x33
0x3f21…3f6d at0034 = ╱4a╱J╱ // 0x3f55 @0x34
0x3f21…3f6d at0035 = ╱35╱5╱ // 0x3f56 @0x35
0x3f21…3f6d at0036 = ╱ef╱$╱ // 0x3f57 @0x36
0x3f21…3f6d at0037 = ╱ed╱(╱ // 0x3f58 @0x37
0x3f21…3f6d at0038 = ╱56╱V╱ // 0x3f59 @0x38
0x3f21…3f6d at0039 = ╱ee╱)╱ // 0x3f5a @0x39
0x3f21…3f6d at003a = ╱dc╱=╱ // 0x3f5b @0x3a
0x3f21…3f6d at003b = ╱22╱"╱ // 0x3f5c @0x3b
0x3f21…3f6d at003c = ╱42╱B╱ // 0x3f5d @0x3c
0x3f21…3f6d at003d = ╱61╱a╱ // 0x3f5e @0x3d
0x3f21…3f6d at003e = ╱6e╱n╱ // 0x3f5f @0x3e
0x3f21…3f6d at003f = ╱6b╱k╱ // 0x3f60 @0x3f
0x3f21…3f6d at0040 = ╱20╱…╱ // 0x3f61 @0x40
0x3f21…3f6d at0041 = ╱20╱…╱ // 0x3f62 @0x41
0x3f21…3f6d at0042 = ╱64╱d╱ // 0x3f63 @0x42
0x3f21…3f6d at0043 = ╱65╱e╱ // 0x3f64 @0x43
0x3f21…3f6d at0044 = ╱62╱b╱ // 0x3f65 @0x44
0x3f21…3f6d at0045 = ╱65╱e╱ // 0x3f66 @0x45
0x3f21…3f6d at0046 = ╱74╱t╱ // 0x3f67 @0x46
0x3f21…3f6d at0047 = ╱20╱…╱ // 0x3f68 @0x47
0x3f21…3f6d at0048 = ╱20╱…╱ // 0x3f69 @0x48
0x3f21…3f6d at0049 = ╱20╱…╱ // 0x3f6a @0x49
0x3f21…3f6d at004a = ╱22╱"╱ // 0x3f6b @0x4a
0x3f21…3f6d at004b = EOL // 0x3f6c @0x4b
0x3f21…3f6d }
0x3f6d…3fc8 cd1f 8000 J5$(4)="Bank kredit ";J5$(5)="Giro debet ";J5$(6)="Giro kredit "
0x3f6d…3fc8 LineComalBin {
0x3f6d…3fc8 ptr = 0xcd1f // 0x3f6d @0x0
0x3f6d…3fc8 lno = 0x1f40 // 0x3f6f @0x2
0x3f6d…3fc8 at0004 = ╱4a╱J╱ // 0x3f71 @0x4
0x3f6d…3fc8 at0005 = ╱35╱5╱ // 0x3f72 @0x5
0x3f6d…3fc8 at0006 = ╱ef╱$╱ // 0x3f73 @0x6
0x3f6d…3fc8 at0007 = ╱ed╱(╱ // 0x3f74 @0x7
0x3f6d…3fc8 at0008 = ╱34╱4╱ // 0x3f75 @0x8
0x3f6d…3fc8 at0009 = ╱fe00008003╱ // 0x3f76 @0x9
0x3f6d…3fc8 at000e = ╱ee╱)╱ // 0x3f7b @0xe
0x3f6d…3fc8 at000f = ╱dc╱=╱ // 0x3f7c @0xf
0x3f6d…3fc8 at0010 = ╱22╱"╱ // 0x3f7d @0x10
0x3f6d…3fc8 at0011 = ╱42╱B╱ // 0x3f7e @0x11
0x3f6d…3fc8 at0012 = ╱61╱a╱ // 0x3f7f @0x12
0x3f6d…3fc8 at0013 = ╱6e╱n╱ // 0x3f80 @0x13
0x3f6d…3fc8 at0014 = ╱6b╱k╱ // 0x3f81 @0x14
0x3f6d…3fc8 at0015 = ╱20╱…╱ // 0x3f82 @0x15
0x3f6d…3fc8 at0016 = ╱20╱…╱ // 0x3f83 @0x16
0x3f6d…3fc8 at0017 = ╱6b╱k╱ // 0x3f84 @0x17
0x3f6d…3fc8 at0018 = ╱72╱r╱ // 0x3f85 @0x18
0x3f6d…3fc8 at0019 = ╱65╱e╱ // 0x3f86 @0x19
0x3f6d…3fc8 at001a = ╱64╱d╱ // 0x3f87 @0x1a
0x3f6d…3fc8 at001b = ╱69╱i╱ // 0x3f88 @0x1b
0x3f6d…3fc8 at001c = ╱74╱t╱ // 0x3f89 @0x1c
0x3f6d…3fc8 at001d = ╱20╱…╱ // 0x3f8a @0x1d
0x3f6d…3fc8 at001e = ╱20╱…╱ // 0x3f8b @0x1e
0x3f6d…3fc8 at001f = ╱22╱"╱ // 0x3f8c @0x1f
0x3f6d…3fc8 at0020 = ╱eb╱;╱ // 0x3f8d @0x20
0x3f6d…3fc8 at0021 = ╱4a╱J╱ // 0x3f8e @0x21
0x3f6d…3fc8 at0022 = ╱35╱5╱ // 0x3f8f @0x22
0x3f6d…3fc8 at0023 = ╱ef╱$╱ // 0x3f90 @0x23
0x3f6d…3fc8 at0024 = ╱ed╱(╱ // 0x3f91 @0x24
0x3f6d…3fc8 at0025 = ╱35╱5╱ // 0x3f92 @0x25
0x3f6d…3fc8 at0026 = ╱fe0000a003╱ // 0x3f93 @0x26
0x3f6d…3fc8 at002b = ╱ee╱)╱ // 0x3f98 @0x2b
0x3f6d…3fc8 at002c = ╱dc╱=╱ // 0x3f99 @0x2c
0x3f6d…3fc8 at002d = ╱22╱"╱ // 0x3f9a @0x2d
0x3f6d…3fc8 at002e = ╱47╱G╱ // 0x3f9b @0x2e
0x3f6d…3fc8 at002f = ╱69╱i╱ // 0x3f9c @0x2f
0x3f6d…3fc8 at0030 = ╱72╱r╱ // 0x3f9d @0x30
0x3f6d…3fc8 at0031 = ╱6f╱o╱ // 0x3f9e @0x31
0x3f6d…3fc8 at0032 = ╱20╱…╱ // 0x3f9f @0x32
0x3f6d…3fc8 at0033 = ╱20╱…╱ // 0x3fa0 @0x33
0x3f6d…3fc8 at0034 = ╱64╱d╱ // 0x3fa1 @0x34
0x3f6d…3fc8 at0035 = ╱65╱e╱ // 0x3fa2 @0x35
0x3f6d…3fc8 at0036 = ╱62╱b╱ // 0x3fa3 @0x36
0x3f6d…3fc8 at0037 = ╱65╱e╱ // 0x3fa4 @0x37
0x3f6d…3fc8 at0038 = ╱74╱t╱ // 0x3fa5 @0x38
0x3f6d…3fc8 at0039 = ╱20╱…╱ // 0x3fa6 @0x39
0x3f6d…3fc8 at003a = ╱20╱…╱ // 0x3fa7 @0x3a
0x3f6d…3fc8 at003b = ╱20╱…╱ // 0x3fa8 @0x3b
0x3f6d…3fc8 at003c = ╱22╱"╱ // 0x3fa9 @0x3c
0x3f6d…3fc8 at003d = ╱eb╱;╱ // 0x3faa @0x3d
0x3f6d…3fc8 at003e = ╱4a╱J╱ // 0x3fab @0x3e
0x3f6d…3fc8 at003f = ╱35╱5╱ // 0x3fac @0x3f
0x3f6d…3fc8 at0040 = ╱ef╱$╱ // 0x3fad @0x40
0x3f6d…3fc8 at0041 = ╱ed╱(╱ // 0x3fae @0x41
0x3f6d…3fc8 at0042 = ╱36╱6╱ // 0x3faf @0x42
0x3f6d…3fc8 at0043 = ╱fe0000c003╱ // 0x3fb0 @0x43
0x3f6d…3fc8 at0048 = ╱ee╱)╱ // 0x3fb5 @0x48
0x3f6d…3fc8 at0049 = ╱dc╱=╱ // 0x3fb6 @0x49
0x3f6d…3fc8 at004a = ╱22╱"╱ // 0x3fb7 @0x4a
0x3f6d…3fc8 at004b = ╱47╱G╱ // 0x3fb8 @0x4b
0x3f6d…3fc8 at004c = ╱69╱i╱ // 0x3fb9 @0x4c
0x3f6d…3fc8 at004d = ╱72╱r╱ // 0x3fba @0x4d
0x3f6d…3fc8 at004e = ╱6f╱o╱ // 0x3fbb @0x4e
0x3f6d…3fc8 at004f = ╱20╱…╱ // 0x3fbc @0x4f
0x3f6d…3fc8 at0050 = ╱20╱…╱ // 0x3fbd @0x50
0x3f6d…3fc8 at0051 = ╱6b╱k╱ // 0x3fbe @0x51
0x3f6d…3fc8 at0052 = ╱72╱r╱ // 0x3fbf @0x52
0x3f6d…3fc8 at0053 = ╱65╱e╱ // 0x3fc0 @0x53
0x3f6d…3fc8 at0054 = ╱64╱d╱ // 0x3fc1 @0x54
0x3f6d…3fc8 at0055 = ╱69╱i╱ // 0x3fc2 @0x55
0x3f6d…3fc8 at0056 = ╱74╱t╱ // 0x3fc3 @0x56
0x3f6d…3fc8 at0057 = ╱20╱…╱ // 0x3fc4 @0x57
0x3f6d…3fc8 at0058 = ╱20╱…╱ // 0x3fc5 @0x58
0x3f6d…3fc8 at0059 = ╱22╱"╱ // 0x3fc6 @0x59
0x3f6d…3fc8 at005a = EOL // 0x3fc7 @0x5a
0x3f6d…3fc8 }
0x3fc8…4007 cd5e 8010 B7$=" ";B7$=B7$+B7$
0x3fc8…4007 LineComalBin {
0x3fc8…4007 ptr = 0xcd5e // 0x3fc8 @0x0
0x3fc8…4007 lno = 0x1f4a // 0x3fca @0x2
0x3fc8…4007 at0004 = ╱42╱B╱ // 0x3fcc @0x4
0x3fc8…4007 at0005 = ╱37╱7╱ // 0x3fcd @0x5
0x3fc8…4007 at0006 = ╱ef╱$╱ // 0x3fce @0x6
0x3fc8…4007 at0007 = ╱dc╱=╱ // 0x3fcf @0x7
0x3fc8…4007 at0008 = ╱22╱"╱ // 0x3fd0 @0x8
0x3fc8…4007 at0009 = ╱20╱…╱ // 0x3fd1 @0x9
0x3fc8…4007 at000a = ╱20╱…╱ // 0x3fd2 @0xa
0x3fc8…4007 at000b = ╱20╱…╱ // 0x3fd3 @0xb
0x3fc8…4007 at000c = ╱20╱…╱ // 0x3fd4 @0xc
0x3fc8…4007 at000d = ╱20╱…╱ // 0x3fd5 @0xd
0x3fc8…4007 at000e = ╱20╱…╱ // 0x3fd6 @0xe
0x3fc8…4007 at000f = ╱20╱…╱ // 0x3fd7 @0xf
0x3fc8…4007 at0010 = ╱20╱…╱ // 0x3fd8 @0x10
0x3fc8…4007 at0011 = ╱20╱…╱ // 0x3fd9 @0x11
0x3fc8…4007 at0012 = ╱20╱…╱ // 0x3fda @0x12
0x3fc8…4007 at0013 = ╱20╱…╱ // 0x3fdb @0x13
0x3fc8…4007 at0014 = ╱20╱…╱ // 0x3fdc @0x14
0x3fc8…4007 at0015 = ╱20╱…╱ // 0x3fdd @0x15
0x3fc8…4007 at0016 = ╱20╱…╱ // 0x3fde @0x16
0x3fc8…4007 at0017 = ╱20╱…╱ // 0x3fdf @0x17
0x3fc8…4007 at0018 = ╱20╱…╱ // 0x3fe0 @0x18
0x3fc8…4007 at0019 = ╱20╱…╱ // 0x3fe1 @0x19
0x3fc8…4007 at001a = ╱20╱…╱ // 0x3fe2 @0x1a
0x3fc8…4007 at001b = ╱20╱…╱ // 0x3fe3 @0x1b
0x3fc8…4007 at001c = ╱20╱…╱ // 0x3fe4 @0x1c
0x3fc8…4007 at001d = ╱20╱…╱ // 0x3fe5 @0x1d
0x3fc8…4007 at001e = ╱20╱…╱ // 0x3fe6 @0x1e
0x3fc8…4007 at001f = ╱20╱…╱ // 0x3fe7 @0x1f
0x3fc8…4007 at0020 = ╱20╱…╱ // 0x3fe8 @0x20
0x3fc8…4007 at0021 = ╱20╱…╱ // 0x3fe9 @0x21
0x3fc8…4007 at0022 = ╱20╱…╱ // 0x3fea @0x22
0x3fc8…4007 at0023 = ╱20╱…╱ // 0x3feb @0x23
0x3fc8…4007 at0024 = ╱20╱…╱ // 0x3fec @0x24
0x3fc8…4007 at0025 = ╱20╱…╱ // 0x3fed @0x25
0x3fc8…4007 at0026 = ╱20╱…╱ // 0x3fee @0x26
0x3fc8…4007 at0027 = ╱20╱…╱ // 0x3fef @0x27
0x3fc8…4007 at0028 = ╱20╱…╱ // 0x3ff0 @0x28
0x3fc8…4007 at0029 = ╱20╱…╱ // 0x3ff1 @0x29
0x3fc8…4007 at002a = ╱20╱…╱ // 0x3ff2 @0x2a
0x3fc8…4007 at002b = ╱20╱…╱ // 0x3ff3 @0x2b
0x3fc8…4007 at002c = ╱20╱…╱ // 0x3ff4 @0x2c
0x3fc8…4007 at002d = ╱20╱…╱ // 0x3ff5 @0x2d
0x3fc8…4007 at002e = ╱20╱…╱ // 0x3ff6 @0x2e
0x3fc8…4007 at002f = ╱20╱…╱ // 0x3ff7 @0x2f
0x3fc8…4007 at0030 = ╱20╱…╱ // 0x3ff8 @0x30
0x3fc8…4007 at0031 = ╱22╱"╱ // 0x3ff9 @0x31
0x3fc8…4007 at0032 = ╱eb╱;╱ // 0x3ffa @0x32
0x3fc8…4007 at0033 = ╱42╱B╱ // 0x3ffb @0x33
0x3fc8…4007 at0034 = ╱37╱7╱ // 0x3ffc @0x34
0x3fc8…4007 at0035 = ╱ef╱$╱ // 0x3ffd @0x35
0x3fc8…4007 at0036 = ╱dc╱=╱ // 0x3ffe @0x36
0x3fc8…4007 at0037 = ╱42╱B╱ // 0x3fff @0x37
0x3fc8…4007 at0038 = ╱37╱7╱ // 0x4000 @0x38
0x3fc8…4007 at0039 = ╱ef╱$╱ // 0x4001 @0x39
0x3fc8…4007 at003a = ╱f1╱+╱ // 0x4002 @0x3a
0x3fc8…4007 at003b = ╱42╱B╱ // 0x4003 @0x3b
0x3fc8…4007 at003c = ╱37╱7╱ // 0x4004 @0x3c
0x3fc8…4007 at003d = ╱ef╱$╱ // 0x4005 @0x3d
0x3fc8…4007 at003e = EOL // 0x4006 @0x3e
0x3fc8…4007 }
0x4007…404a cda1 8020 B9$="0+";A1$="0+";A2$="--------------------------------------"
0x4007…404a LineComalBin {
0x4007…404a ptr = 0xcda1 // 0x4007 @0x0
0x4007…404a lno = 0x1f54 // 0x4009 @0x2
0x4007…404a at0004 = ╱42╱B╱ // 0x400b @0x4
0x4007…404a at0005 = ╱39╱9╱ // 0x400c @0x5
0x4007…404a at0006 = ╱ef╱$╱ // 0x400d @0x6
0x4007…404a at0007 = ╱dc╱=╱ // 0x400e @0x7
0x4007…404a at0008 = ╱22╱"╱ // 0x400f @0x8
0x4007…404a at0009 = ╱30╱0╱ // 0x4010 @0x9
0x4007…404a at000a = ╱2b╱+╱ // 0x4011 @0xa
0x4007…404a at000b = ╱22╱"╱ // 0x4012 @0xb
0x4007…404a at000c = ╱eb╱;╱ // 0x4013 @0xc
0x4007…404a at000d = ╱41╱A╱ // 0x4014 @0xd
0x4007…404a at000e = ╱31╱1╱ // 0x4015 @0xe
0x4007…404a at000f = ╱ef╱$╱ // 0x4016 @0xf
0x4007…404a at0010 = ╱dc╱=╱ // 0x4017 @0x10
0x4007…404a at0011 = ╱22╱"╱ // 0x4018 @0x11
0x4007…404a at0012 = ╱30╱0╱ // 0x4019 @0x12
0x4007…404a at0013 = ╱2b╱+╱ // 0x401a @0x13
0x4007…404a at0014 = ╱22╱"╱ // 0x401b @0x14
0x4007…404a at0015 = ╱eb╱;╱ // 0x401c @0x15
0x4007…404a at0016 = ╱41╱A╱ // 0x401d @0x16
0x4007…404a at0017 = ╱32╱2╱ // 0x401e @0x17
0x4007…404a at0018 = ╱ef╱$╱ // 0x401f @0x18
0x4007…404a at0019 = ╱dc╱=╱ // 0x4020 @0x19
0x4007…404a at001a = ╱22╱"╱ // 0x4021 @0x1a
0x4007…404a at001b = ╱2d╱-╱ // 0x4022 @0x1b
0x4007…404a at001c = ╱2d╱-╱ // 0x4023 @0x1c
0x4007…404a at001d = ╱2d╱-╱ // 0x4024 @0x1d
0x4007…404a at001e = ╱2d╱-╱ // 0x4025 @0x1e
0x4007…404a at001f = ╱2d╱-╱ // 0x4026 @0x1f
0x4007…404a at0020 = ╱2d╱-╱ // 0x4027 @0x20
0x4007…404a at0021 = ╱2d╱-╱ // 0x4028 @0x21
0x4007…404a at0022 = ╱2d╱-╱ // 0x4029 @0x22
0x4007…404a at0023 = ╱2d╱-╱ // 0x402a @0x23
0x4007…404a at0024 = ╱2d╱-╱ // 0x402b @0x24
0x4007…404a at0025 = ╱2d╱-╱ // 0x402c @0x25
0x4007…404a at0026 = ╱2d╱-╱ // 0x402d @0x26
0x4007…404a at0027 = ╱2d╱-╱ // 0x402e @0x27
0x4007…404a at0028 = ╱2d╱-╱ // 0x402f @0x28
0x4007…404a at0029 = ╱2d╱-╱ // 0x4030 @0x29
0x4007…404a at002a = ╱2d╱-╱ // 0x4031 @0x2a
0x4007…404a at002b = ╱2d╱-╱ // 0x4032 @0x2b
0x4007…404a at002c = ╱2d╱-╱ // 0x4033 @0x2c
0x4007…404a at002d = ╱2d╱-╱ // 0x4034 @0x2d
0x4007…404a at002e = ╱2d╱-╱ // 0x4035 @0x2e
0x4007…404a at002f = ╱2d╱-╱ // 0x4036 @0x2f
0x4007…404a at0030 = ╱2d╱-╱ // 0x4037 @0x30
0x4007…404a at0031 = ╱2d╱-╱ // 0x4038 @0x31
0x4007…404a at0032 = ╱2d╱-╱ // 0x4039 @0x32
0x4007…404a at0033 = ╱2d╱-╱ // 0x403a @0x33
0x4007…404a at0034 = ╱2d╱-╱ // 0x403b @0x34
0x4007…404a at0035 = ╱2d╱-╱ // 0x403c @0x35
0x4007…404a at0036 = ╱2d╱-╱ // 0x403d @0x36
0x4007…404a at0037 = ╱2d╱-╱ // 0x403e @0x37
0x4007…404a at0038 = ╱2d╱-╱ // 0x403f @0x38
0x4007…404a at0039 = ╱2d╱-╱ // 0x4040 @0x39
0x4007…404a at003a = ╱2d╱-╱ // 0x4041 @0x3a
0x4007…404a at003b = ╱2d╱-╱ // 0x4042 @0x3b
0x4007…404a at003c = ╱2d╱-╱ // 0x4043 @0x3c
0x4007…404a at003d = ╱2d╱-╱ // 0x4044 @0x3d
0x4007…404a at003e = ╱2d╱-╱ // 0x4045 @0x3e
0x4007…404a at003f = ╱2d╱-╱ // 0x4046 @0x3f
0x4007…404a at0040 = ╱2d╱-╱ // 0x4047 @0x40
0x4007…404a at0041 = ╱22╱"╱ // 0x4048 @0x41
0x4007…404a at0042 = EOL // 0x4049 @0x42
0x4007…404a }
0x404a…409b cdf2 8030 I1=B;A2$=A2$+A2$;L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(G);L3=G1(E)
0x404a…409b LineComalBin {
0x404a…409b ptr = 0xcdf2 // 0x404a @0x0
0x404a…409b lno = 0x1f5e // 0x404c @0x2
0x404a…409b at0004 = ╱49╱I╱ // 0x404e @0x4
0x404a…409b at0005 = ╱31╱1╱ // 0x404f @0x5
0x404a…409b at0006 = ╱dc╱=╱ // 0x4050 @0x6
0x404a…409b at0007 = ╱42╱B╱ // 0x4051 @0x7
0x404a…409b at0008 = ╱eb╱;╱ // 0x4052 @0x8
0x404a…409b at0009 = ╱41╱A╱ // 0x4053 @0x9
0x404a…409b at000a = ╱32╱2╱ // 0x4054 @0xa
0x404a…409b at000b = ╱ef╱$╱ // 0x4055 @0xb
0x404a…409b at000c = ╱dc╱=╱ // 0x4056 @0xc
0x404a…409b at000d = ╱41╱A╱ // 0x4057 @0xd
0x404a…409b at000e = ╱32╱2╱ // 0x4058 @0xe
0x404a…409b at000f = ╱ef╱$╱ // 0x4059 @0xf
0x404a…409b at0010 = ╱f1╱+╱ // 0x405a @0x10
0x404a…409b at0011 = ╱41╱A╱ // 0x405b @0x11
0x404a…409b at0012 = ╱32╱2╱ // 0x405c @0x12
0x404a…409b at0013 = ╱ef╱$╱ // 0x405d @0x13
0x404a…409b at0014 = ╱eb╱;╱ // 0x405e @0x14
0x404a…409b at0015 = ╱4c╱L╱ // 0x405f @0x15
0x404a…409b at0016 = ╱32╱2╱ // 0x4060 @0x16
0x404a…409b at0017 = ╱dc╱=╱ // 0x4061 @0x17
0x404a…409b at0018 = ╱45╱E╱ // 0x4062 @0x18
0x404a…409b at0019 = ╱38╱8╱ // 0x4063 @0x19
0x404a…409b at001a = ╱ed╱(╱ // 0x4064 @0x1a
0x404a…409b at001b = ╱34╱4╱ // 0x4065 @0x1b
0x404a…409b at001c = ╱fe00008003╱ // 0x4066 @0x1c
0x404a…409b at0021 = ╱ee╱)╱ // 0x406b @0x21
0x404a…409b at0022 = ╱eb╱;╱ // 0x406c @0x22
0x404a…409b at0023 = ╱52╱R╱ // 0x406d @0x23
0x404a…409b at0024 = ╱34╱4╱ // 0x406e @0x24
0x404a…409b at0025 = ╱dc╱=╱ // 0x406f @0x25
0x404a…409b at0026 = ╱45╱E╱ // 0x4070 @0x26
0x404a…409b at0027 = ╱38╱8╱ // 0x4071 @0x27
0x404a…409b at0028 = ╱ed╱(╱ // 0x4072 @0x28
0x404a…409b at0029 = ╱37╱7╱ // 0x4073 @0x29
0x404a…409b at002a = ╱fe0000e003╱ // 0x4074 @0x2a
0x404a…409b at002f = ╱ee╱)╱ // 0x4079 @0x2f
0x404a…409b at0030 = ╱eb╱;╱ // 0x407a @0x30
0x404a…409b at0031 = ╱49╱I╱ // 0x407b @0x31
0x404a…409b at0032 = ╱30╱0╱ // 0x407c @0x32
0x404a…409b at0033 = ╱dc╱=╱ // 0x407d @0x33
0x404a…409b at0034 = ╱45╱E╱ // 0x407e @0x34
0x404a…409b at0035 = ╱38╱8╱ // 0x407f @0x35
0x404a…409b at0036 = ╱ed╱(╱ // 0x4080 @0x36
0x404a…409b at0037 = ╱38╱8╱ // 0x4081 @0x37
0x404a…409b at0038 = ╱fe00008004╱ // 0x4082 @0x38
0x404a…409b at003d = ╱ee╱)╱ // 0x4087 @0x3d
0x404a…409b at003e = ╱eb╱;╱ // 0x4088 @0x3e
0x404a…409b at003f = ╱49╱I╱ // 0x4089 @0x3f
0x404a…409b at0040 = ╱34╱4╱ // 0x408a @0x40
0x404a…409b at0041 = ╱dc╱=╱ // 0x408b @0x41
0x404a…409b at0042 = ╱46╱F╱ // 0x408c @0x42
0x404a…409b at0043 = ╱30╱0╱ // 0x408d @0x43
0x404a…409b at0044 = ╱ed╱(╱ // 0x408e @0x44
0x404a…409b at0045 = ╱47╱G╱ // 0x408f @0x45
0x404a…409b at0046 = ╱ee╱)╱ // 0x4090 @0x46
0x404a…409b at0047 = ╱eb╱;╱ // 0x4091 @0x47
0x404a…409b at0048 = ╱4c╱L╱ // 0x4092 @0x48
0x404a…409b at0049 = ╱33╱3╱ // 0x4093 @0x49
0x404a…409b at004a = ╱dc╱=╱ // 0x4094 @0x4a
0x404a…409b at004b = ╱47╱G╱ // 0x4095 @0x4b
0x404a…409b at004c = ╱31╱1╱ // 0x4096 @0x4c
0x404a…409b at004d = ╱ed╱(╱ // 0x4097 @0x4d
0x404a…409b at004e = ╱45╱E╱ // 0x4098 @0x4e
0x404a…409b at004f = ╱ee╱)╱ // 0x4099 @0x4f
0x404a…409b at0050 = EOL // 0x409a @0x50
0x404a…409b }
0x409b…40d5 ce2c 8040 H5=E;J6=R4;R8=B;L4=B;B8$="0+";I3=I4+E;I2=I3;K3=E;K2=E
0x409b…40d5 LineComalBin {
0x409b…40d5 ptr = 0xce2c // 0x409b @0x0
0x409b…40d5 lno = 0x1f68 // 0x409d @0x2
0x409b…40d5 at0004 = ╱48╱H╱ // 0x409f @0x4
0x409b…40d5 at0005 = ╱35╱5╱ // 0x40a0 @0x5
0x409b…40d5 at0006 = ╱dc╱=╱ // 0x40a1 @0x6
0x409b…40d5 at0007 = ╱45╱E╱ // 0x40a2 @0x7
0x409b…40d5 at0008 = ╱eb╱;╱ // 0x40a3 @0x8
0x409b…40d5 at0009 = ╱4a╱J╱ // 0x40a4 @0x9
0x409b…40d5 at000a = ╱36╱6╱ // 0x40a5 @0xa
0x409b…40d5 at000b = ╱dc╱=╱ // 0x40a6 @0xb
0x409b…40d5 at000c = ╱52╱R╱ // 0x40a7 @0xc
0x409b…40d5 at000d = ╱34╱4╱ // 0x40a8 @0xd
0x409b…40d5 at000e = ╱eb╱;╱ // 0x40a9 @0xe
0x409b…40d5 at000f = ╱52╱R╱ // 0x40aa @0xf
0x409b…40d5 at0010 = ╱38╱8╱ // 0x40ab @0x10
0x409b…40d5 at0011 = ╱dc╱=╱ // 0x40ac @0x11
0x409b…40d5 at0012 = ╱42╱B╱ // 0x40ad @0x12
0x409b…40d5 at0013 = ╱eb╱;╱ // 0x40ae @0x13
0x409b…40d5 at0014 = ╱4c╱L╱ // 0x40af @0x14
0x409b…40d5 at0015 = ╱34╱4╱ // 0x40b0 @0x15
0x409b…40d5 at0016 = ╱dc╱=╱ // 0x40b1 @0x16
0x409b…40d5 at0017 = ╱42╱B╱ // 0x40b2 @0x17
0x409b…40d5 at0018 = ╱eb╱;╱ // 0x40b3 @0x18
0x409b…40d5 at0019 = ╱42╱B╱ // 0x40b4 @0x19
0x409b…40d5 at001a = ╱38╱8╱ // 0x40b5 @0x1a
0x409b…40d5 at001b = ╱ef╱$╱ // 0x40b6 @0x1b
0x409b…40d5 at001c = ╱dc╱=╱ // 0x40b7 @0x1c
0x409b…40d5 at001d = ╱22╱"╱ // 0x40b8 @0x1d
0x409b…40d5 at001e = ╱30╱0╱ // 0x40b9 @0x1e
0x409b…40d5 at001f = ╱2b╱+╱ // 0x40ba @0x1f
0x409b…40d5 at0020 = ╱22╱"╱ // 0x40bb @0x20
0x409b…40d5 at0021 = ╱eb╱;╱ // 0x40bc @0x21
0x409b…40d5 at0022 = ╱49╱I╱ // 0x40bd @0x22
0x409b…40d5 at0023 = ╱33╱3╱ // 0x40be @0x23
0x409b…40d5 at0024 = ╱dc╱=╱ // 0x40bf @0x24
0x409b…40d5 at0025 = ╱49╱I╱ // 0x40c0 @0x25
0x409b…40d5 at0026 = ╱34╱4╱ // 0x40c1 @0x26
0x409b…40d5 at0027 = ╱e2╱+╱ // 0x40c2 @0x27
0x409b…40d5 at0028 = ╱45╱E╱ // 0x40c3 @0x28
0x409b…40d5 at0029 = ╱eb╱;╱ // 0x40c4 @0x29
0x409b…40d5 at002a = ╱49╱I╱ // 0x40c5 @0x2a
0x409b…40d5 at002b = ╱32╱2╱ // 0x40c6 @0x2b
0x409b…40d5 at002c = ╱dc╱=╱ // 0x40c7 @0x2c
0x409b…40d5 at002d = ╱49╱I╱ // 0x40c8 @0x2d
0x409b…40d5 at002e = ╱33╱3╱ // 0x40c9 @0x2e
0x409b…40d5 at002f = ╱eb╱;╱ // 0x40ca @0x2f
0x409b…40d5 at0030 = ╱4b╱K╱ // 0x40cb @0x30
0x409b…40d5 at0031 = ╱33╱3╱ // 0x40cc @0x31
0x409b…40d5 at0032 = ╱dc╱=╱ // 0x40cd @0x32
0x409b…40d5 at0033 = ╱45╱E╱ // 0x40ce @0x33
0x409b…40d5 at0034 = ╱eb╱;╱ // 0x40cf @0x34
0x409b…40d5 at0035 = ╱4b╱K╱ // 0x40d0 @0x35
0x409b…40d5 at0036 = ╱32╱2╱ // 0x40d1 @0x36
0x409b…40d5 at0037 = ╱dc╱=╱ // 0x40d2 @0x37
0x409b…40d5 at0038 = ╱45╱E╱ // 0x40d3 @0x38
0x409b…40d5 at0039 = EOL // 0x40d4 @0x39
0x409b…40d5 }
0x40d5…40db ce32 8050 CLEAR
0x40d5…40db LineComalBin {
0x40d5…40db ptr = 0xce32 // 0x40d5 @0x0
0x40d5…40db lno = 0x1f72 // 0x40d7 @0x2
0x40d5…40db at0004 = ╱a0╱ CLEAR ╱ // 0x40d9 @0x4
0x40d5…40db at0005 = EOL // 0x40da @0x5
0x40d5…40db }
0x40db…40e3 ce3a 8060 EXEC UH
0x40db…40e3 LineComalBin {
0x40db…40e3 ptr = 0xce3a // 0x40db @0x0
0x40db…40e3 lno = 0x1f7c // 0x40dd @0x2
0x40db…40e3 at0004 = ╱9d╱ EXEC ╱ // 0x40df @0x4
0x40db…40e3 at0005 = ╱55╱U╱ // 0x40e0 @0x5
0x40db…40e3 at0006 = ╱48╱H╱ // 0x40e1 @0x6
0x40db…40e3 at0007 = EOL // 0x40e2 @0x7
0x40db…40e3 }
0x40e3…40f3 ce4a 8070 EXEC IN(1)
0x40e3…40f3 LineComalBin {
0x40e3…40f3 ptr = 0xce4a // 0x40e3 @0x0
0x40e3…40f3 lno = 0x1f86 // 0x40e5 @0x2
0x40e3…40f3 at0004 = ╱9d╱ EXEC ╱ // 0x40e7 @0x4
0x40e3…40f3 at0005 = ╱49╱I╱ // 0x40e8 @0x5
0x40e3…40f3 at0006 = ╱4e╱N╱ // 0x40e9 @0x6
0x40e3…40f3 at0007 = ╱ed╱(╱ // 0x40ea @0x7
0x40e3…40f3 at0008 = ╱31╱1╱ // 0x40eb @0x8
0x40e3…40f3 at0009 = ╱fe00008001╱ // 0x40ec @0x9
0x40e3…40f3 at000e = ╱ee╱)╱ // 0x40f1 @0xe
0x40e3…40f3 at000f = EOL // 0x40f2 @0xf
0x40e3…40f3 }
0x40f3…40fe ce55 8080 IF J4=B THEN
0x40f3…40fe LineComalBin {
0x40f3…40fe ptr = 0xce55 // 0x40f3 @0x0
0x40f3…40fe lno = 0x1f90 // 0x40f5 @0x2
0x40f3…40fe at0004 = ╱9c╱ IF ╱ // 0x40f7 @0x4
0x40f3…40fe at0005 = ╱4a╱J╱ // 0x40f8 @0x5
0x40f3…40fe at0006 = ╱34╱4╱ // 0x40f9 @0x6
0x40f3…40fe at0007 = ╱dc╱=╱ // 0x40fa @0x7
0x40f3…40fe at0008 = ╱42╱B╱ // 0x40fb @0x8
0x40f3…40fe at0009 = ╱b6╱ THEN ╱ // 0x40fc @0x9
0x40f3…40fe at000a = EOL // 0x40fd @0xa
0x40f3…40fe }
0x40fe…4106 ce5d 8090 EXEC BF
0x40fe…4106 LineComalBin {
0x40fe…4106 ptr = 0xce5d // 0x40fe @0x0
0x40fe…4106 lno = 0x1f9a // 0x4100 @0x2
0x40fe…4106 at0004 = ╱9d╱ EXEC ╱ // 0x4102 @0x4
0x40fe…4106 at0005 = ╱42╱B╱ // 0x4103 @0x5
0x40fe…4106 at0006 = ╱46╱F╱ // 0x4104 @0x6
0x40fe…4106 at0007 = EOL // 0x4105 @0x7
0x40fe…4106 }
0x4106…410e ce65 8100 EXEC UB
0x4106…410e LineComalBin {
0x4106…410e ptr = 0xce65 // 0x4106 @0x0
0x4106…410e lno = 0x1fa4 // 0x4108 @0x2
0x4106…410e at0004 = ╱9d╱ EXEC ╱ // 0x410a @0x4
0x4106…410e at0005 = ╱55╱U╱ // 0x410b @0x5
0x4106…410e at0006 = ╱42╱B╱ // 0x410c @0x6
0x4106…410e at0007 = EOL // 0x410d @0x7
0x4106…410e }
0x410e…4119 ce70 8110 OPEN D3$,W
0x410e…4119 LineComalBin {
0x410e…4119 ptr = 0xce70 // 0x410e @0x0
0x410e…4119 lno = 0x1fae // 0x4110 @0x2
0x410e…4119 at0004 = ╱a7╱ OPEN ╱ // 0x4112 @0x4
0x410e…4119 at0005 = ╱44╱D╱ // 0x4113 @0x5
0x410e…4119 at0006 = ╱33╱3╱ // 0x4114 @0x6
0x410e…4119 at0007 = ╱ef╱$╱ // 0x4115 @0x7
0x410e…4119 at0008 = ╱ec╱,╱ // 0x4116 @0x8
0x410e…4119 at0009 = ╱57╱W╱ // 0x4117 @0x9
0x410e…4119 at000a = EOL // 0x4118 @0xa
0x410e…4119 }
0x4119…4130 ce87 8120 EXEC FE(W,37,D3$)
0x4119…4130 LineComalBin {
0x4119…4130 ptr = 0xce87 // 0x4119 @0x0
0x4119…4130 lno = 0x1fb8 // 0x411b @0x2
0x4119…4130 at0004 = ╱9d╱ EXEC ╱ // 0x411d @0x4
0x4119…4130 at0005 = ╱46╱F╱ // 0x411e @0x5
0x4119…4130 at0006 = ╱45╱E╱ // 0x411f @0x6
0x4119…4130 at0007 = ╱ed╱(╱ // 0x4120 @0x7
0x4119…4130 at0008 = ╱57╱W╱ // 0x4121 @0x8
0x4119…4130 at0009 = ╱ec╱,╱ // 0x4122 @0x9
0x4119…4130 at000a = ╱33╱3╱ // 0x4123 @0xa
0x4119…4130 at000b = ╱37╱7╱ // 0x4124 @0xb
0x4119…4130 at000c = ╱fe00009406╱ // 0x4125 @0xc
0x4119…4130 at0011 = ╱ec╱,╱ // 0x412a @0x11
0x4119…4130 at0012 = ╱44╱D╱ // 0x412b @0x12
0x4119…4130 at0013 = ╱33╱3╱ // 0x412c @0x13
0x4119…4130 at0014 = ╱ef╱$╱ // 0x412d @0x14
0x4119…4130 at0015 = ╱ee╱)╱ // 0x412e @0x15
0x4119…4130 at0016 = EOL // 0x412f @0x16
0x4119…4130 }
0x4130…413c ce93 8130 FOR I=E TO I4
0x4130…413c LineComalBin {
0x4130…413c ptr = 0xce93 // 0x4130 @0x0
0x4130…413c lno = 0x1fc2 // 0x4132 @0x2
0x4130…413c at0004 = ╱83╱ FOR ╱ // 0x4134 @0x4
0x4130…413c at0005 = ╱49╱I╱ // 0x4135 @0x5
0x4130…413c at0006 = ╱dc╱=╱ // 0x4136 @0x6
0x4130…413c at0007 = ╱45╱E╱ // 0x4137 @0x7
0x4130…413c at0008 = ╱b7╱ TO ╱ // 0x4138 @0x8
0x4130…413c at0009 = ╱49╱I╱ // 0x4139 @0x9
0x4130…413c at000a = ╱34╱4╱ // 0x413a @0xa
0x4130…413c at000b = EOL // 0x413b @0xb
0x4130…413c }
0x413c…4166 cebd 8140 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16)
0x413c…4166 LineComalBin {
0x413c…4166 ptr = 0xcebd // 0x413c @0x0
0x413c…4166 lno = 0x1fcc // 0x413e @0x2
0x413c…4166 at0004 = ╱9d╱ EXEC ╱ // 0x4140 @0x4
0x413c…4166 at0005 = ╱47╱G╱ // 0x4141 @0x5
0x413c…4166 at0006 = ╱47╱G╱ // 0x4142 @0x6
0x413c…4166 at0007 = ╱ed╱(╱ // 0x4143 @0x7
0x413c…4166 at0008 = ╱44╱D╱ // 0x4144 @0x8
0x413c…4166 at0009 = ╱32╱2╱ // 0x4145 @0x9
0x413c…4166 at000a = ╱ef╱$╱ // 0x4146 @0xa
0x413c…4166 at000b = ╱ec╱,╱ // 0x4147 @0xb
0x413c…4166 at000c = ╱49╱I╱ // 0x4148 @0xc
0x413c…4166 at000d = ╱ec╱,╱ // 0x4149 @0xd
0x413c…4166 at000e = ╱48╱H╱ // 0x414a @0xe
0x413c…4166 at000f = ╱36╱6╱ // 0x414b @0xf
0x413c…4166 at0010 = ╱ec╱,╱ // 0x414c @0x10
0x413c…4166 at0011 = ╱4c╱L╱ // 0x414d @0x11
0x413c…4166 at0012 = ╱34╱4╱ // 0x414e @0x12
0x413c…4166 at0013 = ╱ec╱,╱ // 0x414f @0x13
0x413c…4166 at0014 = ╱48╱H╱ // 0x4150 @0x14
0x413c…4166 at0015 = ╱37╱7╱ // 0x4151 @0x15
0x413c…4166 at0016 = ╱ec╱,╱ // 0x4152 @0x16
0x413c…4166 at0017 = ╱49╱I╱ // 0x4153 @0x17
0x413c…4166 at0018 = ╱37╱7╱ // 0x4154 @0x18
0x413c…4166 at0019 = ╱ec╱,╱ // 0x4155 @0x19
0x413c…4166 at001a = ╱45╱E╱ // 0x4156 @0x1a
0x413c…4166 at001b = ╱33╱3╱ // 0x4157 @0x1b
0x413c…4166 at001c = ╱ef╱$╱ // 0x4158 @0x1c
0x413c…4166 at001d = ╱ec╱,╱ // 0x4159 @0x1d
0x413c…4166 at001e = ╱46╱F╱ // 0x415a @0x1e
0x413c…4166 at001f = ╱34╱4╱ // 0x415b @0x1f
0x413c…4166 at0020 = ╱ef╱$╱ // 0x415c @0x20
0x413c…4166 at0021 = ╱ec╱,╱ // 0x415d @0x21
0x413c…4166 at0022 = ╱48╱H╱ // 0x415e @0x22
0x413c…4166 at0023 = ╱38╱8╱ // 0x415f @0x23
0x413c…4166 at0024 = ╱ec╱,╱ // 0x4160 @0x24
0x413c…4166 at0025 = ╱48╱H╱ // 0x4161 @0x25
0x413c…4166 at0026 = ╱31╱1╱ // 0x4162 @0x26
0x413c…4166 at0027 = ╱36╱6╱ // 0x4163 @0x27
0x413c…4166 at0028 = ╱ee╱)╱ // 0x4164 @0x28
0x413c…4166 at0029 = EOL // 0x4165 @0x29
0x413c…4166 }
0x4166…4171 cec8 8150 IF H6<>B THEN
0x4166…4171 LineComalBin {
0x4166…4171 ptr = 0xcec8 // 0x4166 @0x0
0x4166…4171 lno = 0x1fd6 // 0x4168 @0x2
0x4166…4171 at0004 = ╱9c╱ IF ╱ // 0x416a @0x4
0x4166…4171 at0005 = ╱48╱H╱ // 0x416b @0x5
0x4166…4171 at0006 = ╱36╱6╱ // 0x416c @0x6
0x4166…4171 at0007 = ╱e1╱<>╱ // 0x416d @0x7
0x4166…4171 at0008 = ╱42╱B╱ // 0x416e @0x8
0x4166…4171 at0009 = ╱b6╱ THEN ╱ // 0x416f @0x9
0x4166…4171 at000a = EOL // 0x4170 @0xa
0x4166…4171 }
0x4171…4182 ced9 8160 EXEC MO(F3$,F4$)
0x4171…4182 LineComalBin {
0x4171…4182 ptr = 0xced9 // 0x4171 @0x0
0x4171…4182 lno = 0x1fe0 // 0x4173 @0x2
0x4171…4182 at0004 = ╱9d╱ EXEC ╱ // 0x4175 @0x4
0x4171…4182 at0005 = ╱4d╱M╱ // 0x4176 @0x5
0x4171…4182 at0006 = ╱4f╱O╱ // 0x4177 @0x6
0x4171…4182 at0007 = ╱ed╱(╱ // 0x4178 @0x7
0x4171…4182 at0008 = ╱46╱F╱ // 0x4179 @0x8
0x4171…4182 at0009 = ╱33╱3╱ // 0x417a @0x9
0x4171…4182 at000a = ╱ef╱$╱ // 0x417b @0xa
0x4171…4182 at000b = ╱ec╱,╱ // 0x417c @0xb
0x4171…4182 at000c = ╱46╱F╱ // 0x417d @0xc
0x4171…4182 at000d = ╱34╱4╱ // 0x417e @0xd
0x4171…4182 at000e = ╱ef╱$╱ // 0x417f @0xe
0x4171…4182 at000f = ╱ee╱)╱ // 0x4180 @0xf
0x4171…4182 at0010 = EOL // 0x4181 @0x10
0x4171…4182 }
0x4182…418a cee1 8170 EXEC GB
0x4182…418a LineComalBin {
0x4182…418a ptr = 0xcee1 // 0x4182 @0x0
0x4182…418a lno = 0x1fea // 0x4184 @0x2
0x4182…418a at0004 = ╱9d╱ EXEC ╱ // 0x4186 @0x4
0x4182…418a at0005 = ╱47╱G╱ // 0x4187 @0x5
0x4182…418a at0006 = ╱42╱B╱ // 0x4188 @0x6
0x4182…418a at0007 = EOL // 0x4189 @0x7
0x4182…418a }
0x418a…41a1 cef8 8180 EXEC CA(B,F3$,A1$,A1$)
0x418a…41a1 LineComalBin {
0x418a…41a1 ptr = 0xcef8 // 0x418a @0x0
0x418a…41a1 lno = 0x1ff4 // 0x418c @0x2
0x418a…41a1 at0004 = ╱9d╱ EXEC ╱ // 0x418e @0x4
0x418a…41a1 at0005 = ╱43╱C╱ // 0x418f @0x5
0x418a…41a1 at0006 = ╱41╱A╱ // 0x4190 @0x6
0x418a…41a1 at0007 = ╱ed╱(╱ // 0x4191 @0x7
0x418a…41a1 at0008 = ╱42╱B╱ // 0x4192 @0x8
0x418a…41a1 at0009 = ╱ec╱,╱ // 0x4193 @0x9
0x418a…41a1 at000a = ╱46╱F╱ // 0x4194 @0xa
0x418a…41a1 at000b = ╱33╱3╱ // 0x4195 @0xb
0x418a…41a1 at000c = ╱ef╱$╱ // 0x4196 @0xc
0x418a…41a1 at000d = ╱ec╱,╱ // 0x4197 @0xd
0x418a…41a1 at000e = ╱41╱A╱ // 0x4198 @0xe
0x418a…41a1 at000f = ╱31╱1╱ // 0x4199 @0xf
0x418a…41a1 at0010 = ╱ef╱$╱ // 0x419a @0x10
0x418a…41a1 at0011 = ╱ec╱,╱ // 0x419b @0x11
0x418a…41a1 at0012 = ╱41╱A╱ // 0x419c @0x12
0x418a…41a1 at0013 = ╱31╱1╱ // 0x419d @0x13
0x418a…41a1 at0014 = ╱ef╱$╱ // 0x419e @0x14
0x418a…41a1 at0015 = ╱ee╱)╱ // 0x419f @0x15
0x418a…41a1 at0016 = EOL // 0x41a0 @0x16
0x418a…41a1 }
0x41a1…41b0 cf07 8190 EXEC UD(L2,R8)
0x41a1…41b0 LineComalBin {
0x41a1…41b0 ptr = 0xcf07 // 0x41a1 @0x0
0x41a1…41b0 lno = 0x1ffe // 0x41a3 @0x2
0x41a1…41b0 at0004 = ╱9d╱ EXEC ╱ // 0x41a5 @0x4
0x41a1…41b0 at0005 = ╱55╱U╱ // 0x41a6 @0x5
0x41a1…41b0 at0006 = ╱44╱D╱ // 0x41a7 @0x6
0x41a1…41b0 at0007 = ╱ed╱(╱ // 0x41a8 @0x7
0x41a1…41b0 at0008 = ╱4c╱L╱ // 0x41a9 @0x8
0x41a1…41b0 at0009 = ╱32╱2╱ // 0x41aa @0x9
0x41a1…41b0 at000a = ╱ec╱,╱ // 0x41ab @0xa
0x41a1…41b0 at000b = ╱52╱R╱ // 0x41ac @0xb
0x41a1…41b0 at000c = ╱38╱8╱ // 0x41ad @0xc
0x41a1…41b0 at000d = ╱ee╱)╱ // 0x41ae @0xd
0x41a1…41b0 at000e = EOL // 0x41af @0xe
0x41a1…41b0 }
0x41b0…41b6 cf0d 8200 ENDIF
0x41b0…41b6 LineComalBin {
0x41b0…41b6 ptr = 0xcf0d // 0x41b0 @0x0
0x41b0…41b6 lno = 0x2008 // 0x41b2 @0x2
0x41b0…41b6 at0004 = ╱9b╱ ENDIF ╱ // 0x41b4 @0x4
0x41b0…41b6 at0005 = EOL // 0x41b5 @0x5
0x41b0…41b6 }
0x41b6…41bd cf14 8210 NEXT I
0x41b6…41bd LineComalBin {
0x41b6…41bd ptr = 0xcf14 // 0x41b6 @0x0
0x41b6…41bd lno = 0x2012 // 0x41b8 @0x2
0x41b6…41bd at0004 = ╱84╱ NEXT ╱ // 0x41ba @0x4
0x41b6…41bd at0005 = ╱49╱I╱ // 0x41bb @0x5
0x41b6…41bd at0006 = EOL // 0x41bc @0x6
0x41b6…41bd }
0x41bd…41da cf31 8220 EXEC CA(B,F5$(E),F5$(G),F3$)
0x41bd…41da LineComalBin {
0x41bd…41da ptr = 0xcf31 // 0x41bd @0x0
0x41bd…41da lno = 0x201c // 0x41bf @0x2
0x41bd…41da at0004 = ╱9d╱ EXEC ╱ // 0x41c1 @0x4
0x41bd…41da at0005 = ╱43╱C╱ // 0x41c2 @0x5
0x41bd…41da at0006 = ╱41╱A╱ // 0x41c3 @0x6
0x41bd…41da at0007 = ╱ed╱(╱ // 0x41c4 @0x7
0x41bd…41da at0008 = ╱42╱B╱ // 0x41c5 @0x8
0x41bd…41da at0009 = ╱ec╱,╱ // 0x41c6 @0x9
0x41bd…41da at000a = ╱46╱F╱ // 0x41c7 @0xa
0x41bd…41da at000b = ╱35╱5╱ // 0x41c8 @0xb
0x41bd…41da at000c = ╱ef╱$╱ // 0x41c9 @0xc
0x41bd…41da at000d = ╱ed╱(╱ // 0x41ca @0xd
0x41bd…41da at000e = ╱45╱E╱ // 0x41cb @0xe
0x41bd…41da at000f = ╱ee╱)╱ // 0x41cc @0xf
0x41bd…41da at0010 = ╱ec╱,╱ // 0x41cd @0x10
0x41bd…41da at0011 = ╱46╱F╱ // 0x41ce @0x11
0x41bd…41da at0012 = ╱35╱5╱ // 0x41cf @0x12
0x41bd…41da at0013 = ╱ef╱$╱ // 0x41d0 @0x13
0x41bd…41da at0014 = ╱ed╱(╱ // 0x41d1 @0x14
0x41bd…41da at0015 = ╱47╱G╱ // 0x41d2 @0x15
0x41bd…41da at0016 = ╱ee╱)╱ // 0x41d3 @0x16
0x41bd…41da at0017 = ╱ec╱,╱ // 0x41d4 @0x17
0x41bd…41da at0018 = ╱46╱F╱ // 0x41d5 @0x18
0x41bd…41da at0019 = ╱33╱3╱ // 0x41d6 @0x19
0x41bd…41da at001a = ╱ef╱$╱ // 0x41d7 @0x1a
0x41bd…41da at001b = ╱ee╱)╱ // 0x41d8 @0x1b
0x41bd…41da at001c = EOL // 0x41d9 @0x1c
0x41bd…41da }
0x41da…41f1 cf48 8230 EXEC CA(B,F3$,A1$,A1$)
0x41da…41f1 LineComalBin {
0x41da…41f1 ptr = 0xcf48 // 0x41da @0x0
0x41da…41f1 lno = 0x2026 // 0x41dc @0x2
0x41da…41f1 at0004 = ╱9d╱ EXEC ╱ // 0x41de @0x4
0x41da…41f1 at0005 = ╱43╱C╱ // 0x41df @0x5
0x41da…41f1 at0006 = ╱41╱A╱ // 0x41e0 @0x6
0x41da…41f1 at0007 = ╱ed╱(╱ // 0x41e1 @0x7
0x41da…41f1 at0008 = ╱42╱B╱ // 0x41e2 @0x8
0x41da…41f1 at0009 = ╱ec╱,╱ // 0x41e3 @0x9
0x41da…41f1 at000a = ╱46╱F╱ // 0x41e4 @0xa
0x41da…41f1 at000b = ╱33╱3╱ // 0x41e5 @0xb
0x41da…41f1 at000c = ╱ef╱$╱ // 0x41e6 @0xc
0x41da…41f1 at000d = ╱ec╱,╱ // 0x41e7 @0xd
0x41da…41f1 at000e = ╱41╱A╱ // 0x41e8 @0xe
0x41da…41f1 at000f = ╱31╱1╱ // 0x41e9 @0xf
0x41da…41f1 at0010 = ╱ef╱$╱ // 0x41ea @0x10
0x41da…41f1 at0011 = ╱ec╱,╱ // 0x41eb @0x11
0x41da…41f1 at0012 = ╱41╱A╱ // 0x41ec @0x12
0x41da…41f1 at0013 = ╱31╱1╱ // 0x41ed @0x13
0x41da…41f1 at0014 = ╱ef╱$╱ // 0x41ee @0x14
0x41da…41f1 at0015 = ╱ee╱)╱ // 0x41ef @0x15
0x41da…41f1 at0016 = EOL // 0x41f0 @0x16
0x41da…41f1 }
0x41f1…4222 cf79 8240 H6=S5;I7=24;H7=L2;H8=B;H16=1000000
0x41f1…4222 LineComalBin {
0x41f1…4222 ptr = 0xcf79 // 0x41f1 @0x0
0x41f1…4222 lno = 0x2030 // 0x41f3 @0x2
0x41f1…4222 at0004 = ╱48╱H╱ // 0x41f5 @0x4
0x41f1…4222 at0005 = ╱36╱6╱ // 0x41f6 @0x5
0x41f1…4222 at0006 = ╱dc╱=╱ // 0x41f7 @0x6
0x41f1…4222 at0007 = ╱53╱S╱ // 0x41f8 @0x7
0x41f1…4222 at0008 = ╱35╱5╱ // 0x41f9 @0x8
0x41f1…4222 at0009 = ╱eb╱;╱ // 0x41fa @0x9
0x41f1…4222 at000a = ╱49╱I╱ // 0x41fb @0xa
0x41f1…4222 at000b = ╱37╱7╱ // 0x41fc @0xb
0x41f1…4222 at000c = ╱dc╱=╱ // 0x41fd @0xc
0x41f1…4222 at000d = ╱32╱2╱ // 0x41fe @0xd
0x41f1…4222 at000e = ╱34╱4╱ // 0x41ff @0xe
0x41f1…4222 at000f = ╱fe0000c005╱ // 0x4200 @0xf
0x41f1…4222 at0014 = ╱eb╱;╱ // 0x4205 @0x14
0x41f1…4222 at0015 = ╱48╱H╱ // 0x4206 @0x15
0x41f1…4222 at0016 = ╱37╱7╱ // 0x4207 @0x16
0x41f1…4222 at0017 = ╱dc╱=╱ // 0x4208 @0x17
0x41f1…4222 at0018 = ╱4c╱L╱ // 0x4209 @0x18
0x41f1…4222 at0019 = ╱32╱2╱ // 0x420a @0x19
0x41f1…4222 at001a = ╱eb╱;╱ // 0x420b @0x1a
0x41f1…4222 at001b = ╱48╱H╱ // 0x420c @0x1b
0x41f1…4222 at001c = ╱38╱8╱ // 0x420d @0x1c
0x41f1…4222 at001d = ╱dc╱=╱ // 0x420e @0x1d
0x41f1…4222 at001e = ╱42╱B╱ // 0x420f @0x1e
0x41f1…4222 at001f = ╱eb╱;╱ // 0x4210 @0x1f
0x41f1…4222 at0020 = ╱48╱H╱ // 0x4211 @0x20
0x41f1…4222 at0021 = ╱31╱1╱ // 0x4212 @0x21
0x41f1…4222 at0022 = ╱36╱6╱ // 0x4213 @0x22
0x41f1…4222 at0023 = ╱dc╱=╱ // 0x4214 @0x23
0x41f1…4222 at0024 = ╱31╱1╱ // 0x4215 @0x24
0x41f1…4222 at0025 = ╱30╱0╱ // 0x4216 @0x25
0x41f1…4222 at0026 = ╱30╱0╱ // 0x4217 @0x26
0x41f1…4222 at0027 = ╱30╱0╱ // 0x4218 @0x27
0x41f1…4222 at0028 = ╱30╱0╱ // 0x4219 @0x28
0x41f1…4222 at0029 = ╱30╱0╱ // 0x421a @0x29
0x41f1…4222 at002a = ╱30╱0╱ // 0x421b @0x2a
0x41f1…4222 at002b = ╱fe0024f414╱ // 0x421c @0x2b
0x41f1…4222 at0030 = EOL // 0x4221 @0x30
0x41f1…4222 }
0x4222…422a cf81 8250 EXEC GB
0x4222…422a LineComalBin {
0x4222…422a ptr = 0xcf81 // 0x4222 @0x0
0x4222…422a lno = 0x203a // 0x4224 @0x2
0x4222…422a at0004 = ╱9d╱ EXEC ╱ // 0x4226 @0x4
0x4222…422a at0005 = ╱47╱G╱ // 0x4227 @0x5
0x4222…422a at0006 = ╱42╱B╱ // 0x4228 @0x6
0x4222…422a at0007 = EOL // 0x4229 @0x7
0x4222…422a }
0x422a…4263 cfba 8260 I7=10;H7=-E;F4$=F3$;E3$="Samlet kassepostering"
0x422a…4263 LineComalBin {
0x422a…4263 ptr = 0xcfba // 0x422a @0x0
0x422a…4263 lno = 0x2044 // 0x422c @0x2
0x422a…4263 at0004 = ╱49╱I╱ // 0x422e @0x4
0x422a…4263 at0005 = ╱37╱7╱ // 0x422f @0x5
0x422a…4263 at0006 = ╱dc╱=╱ // 0x4230 @0x6
0x422a…4263 at0007 = ╱31╱1╱ // 0x4231 @0x7
0x422a…4263 at0008 = ╱30╱0╱ // 0x4232 @0x8
0x422a…4263 at0009 = ╱fe0000a004╱ // 0x4233 @0x9
0x422a…4263 at000e = ╱eb╱;╱ // 0x4238 @0xe
0x422a…4263 at000f = ╱48╱H╱ // 0x4239 @0xf
0x422a…4263 at0010 = ╱37╱7╱ // 0x423a @0x10
0x422a…4263 at0011 = ╱dc╱=╱ // 0x423b @0x11
0x422a…4263 at0012 = ╱e9╱-╱ // 0x423c @0x12
0x422a…4263 at0013 = ╱45╱E╱ // 0x423d @0x13
0x422a…4263 at0014 = ╱eb╱;╱ // 0x423e @0x14
0x422a…4263 at0015 = ╱46╱F╱ // 0x423f @0x15
0x422a…4263 at0016 = ╱34╱4╱ // 0x4240 @0x16
0x422a…4263 at0017 = ╱ef╱$╱ // 0x4241 @0x17
0x422a…4263 at0018 = ╱dc╱=╱ // 0x4242 @0x18
0x422a…4263 at0019 = ╱46╱F╱ // 0x4243 @0x19
0x422a…4263 at001a = ╱33╱3╱ // 0x4244 @0x1a
0x422a…4263 at001b = ╱ef╱$╱ // 0x4245 @0x1b
0x422a…4263 at001c = ╱eb╱;╱ // 0x4246 @0x1c
0x422a…4263 at001d = ╱45╱E╱ // 0x4247 @0x1d
0x422a…4263 at001e = ╱33╱3╱ // 0x4248 @0x1e
0x422a…4263 at001f = ╱ef╱$╱ // 0x4249 @0x1f
0x422a…4263 at0020 = ╱dc╱=╱ // 0x424a @0x20
0x422a…4263 at0021 = ╱22╱"╱ // 0x424b @0x21
0x422a…4263 at0022 = ╱53╱S╱ // 0x424c @0x22
0x422a…4263 at0023 = ╱61╱a╱ // 0x424d @0x23
0x422a…4263 at0024 = ╱6d╱m╱ // 0x424e @0x24
0x422a…4263 at0025 = ╱6c╱l╱ // 0x424f @0x25
0x422a…4263 at0026 = ╱65╱e╱ // 0x4250 @0x26
0x422a…4263 at0027 = ╱74╱t╱ // 0x4251 @0x27
0x422a…4263 at0028 = ╱20╱…╱ // 0x4252 @0x28
0x422a…4263 at0029 = ╱6b╱k╱ // 0x4253 @0x29
0x422a…4263 at002a = ╱61╱a╱ // 0x4254 @0x2a
0x422a…4263 at002b = ╱73╱s╱ // 0x4255 @0x2b
0x422a…4263 at002c = ╱73╱s╱ // 0x4256 @0x2c
0x422a…4263 at002d = ╱65╱e╱ // 0x4257 @0x2d
0x422a…4263 at002e = ╱70╱p╱ // 0x4258 @0x2e
0x422a…4263 at002f = ╱6f╱o╱ // 0x4259 @0x2f
0x422a…4263 at0030 = ╱73╱s╱ // 0x425a @0x30
0x422a…4263 at0031 = ╱74╱t╱ // 0x425b @0x31
0x422a…4263 at0032 = ╱65╱e╱ // 0x425c @0x32
0x422a…4263 at0033 = ╱72╱r╱ // 0x425d @0x33
0x422a…4263 at0034 = ╱69╱i╱ // 0x425e @0x34
0x422a…4263 at0035 = ╱6e╱n╱ // 0x425f @0x35
0x422a…4263 at0036 = ╱67╱g╱ // 0x4260 @0x36
0x422a…4263 at0037 = ╱22╱"╱ // 0x4261 @0x37
0x422a…4263 at0038 = EOL // 0x4262 @0x38
0x422a…4263 }
0x4263…4272 cfc9 8270 EXEC UD(L2,R8)
0x4263…4272 LineComalBin {
0x4263…4272 ptr = 0xcfc9 // 0x4263 @0x0
0x4263…4272 lno = 0x204e // 0x4265 @0x2
0x4263…4272 at0004 = ╱9d╱ EXEC ╱ // 0x4267 @0x4
0x4263…4272 at0005 = ╱55╱U╱ // 0x4268 @0x5
0x4263…4272 at0006 = ╱44╱D╱ // 0x4269 @0x6
0x4263…4272 at0007 = ╱ed╱(╱ // 0x426a @0x7
0x4263…4272 at0008 = ╱4c╱L╱ // 0x426b @0x8
0x4263…4272 at0009 = ╱32╱2╱ // 0x426c @0x9
0x4263…4272 at000a = ╱ec╱,╱ // 0x426d @0xa
0x4263…4272 at000b = ╱52╱R╱ // 0x426e @0xb
0x4263…4272 at000c = ╱38╱8╱ // 0x426f @0xc
0x4263…4272 at000d = ╱ee╱)╱ // 0x4270 @0xd
0x4263…4272 at000e = EOL // 0x4271 @0xe
0x4263…4272 }
0x4272…4294 cfeb 8280 EXEC CA(B,F5$(V),F5$(4),F3$)
0x4272…4294 LineComalBin {
0x4272…4294 ptr = 0xcfeb // 0x4272 @0x0
0x4272…4294 lno = 0x2058 // 0x4274 @0x2
0x4272…4294 at0004 = ╱9d╱ EXEC ╱ // 0x4276 @0x4
0x4272…4294 at0005 = ╱43╱C╱ // 0x4277 @0x5
0x4272…4294 at0006 = ╱41╱A╱ // 0x4278 @0x6
0x4272…4294 at0007 = ╱ed╱(╱ // 0x4279 @0x7
0x4272…4294 at0008 = ╱42╱B╱ // 0x427a @0x8
0x4272…4294 at0009 = ╱ec╱,╱ // 0x427b @0x9
0x4272…4294 at000a = ╱46╱F╱ // 0x427c @0xa
0x4272…4294 at000b = ╱35╱5╱ // 0x427d @0xb
0x4272…4294 at000c = ╱ef╱$╱ // 0x427e @0xc
0x4272…4294 at000d = ╱ed╱(╱ // 0x427f @0xd
0x4272…4294 at000e = ╱56╱V╱ // 0x4280 @0xe
0x4272…4294 at000f = ╱ee╱)╱ // 0x4281 @0xf
0x4272…4294 at0010 = ╱ec╱,╱ // 0x4282 @0x10
0x4272…4294 at0011 = ╱46╱F╱ // 0x4283 @0x11
0x4272…4294 at0012 = ╱35╱5╱ // 0x4284 @0x12
0x4272…4294 at0013 = ╱ef╱$╱ // 0x4285 @0x13
0x4272…4294 at0014 = ╱ed╱(╱ // 0x4286 @0x14
0x4272…4294 at0015 = ╱34╱4╱ // 0x4287 @0x15
0x4272…4294 at0016 = ╱fe00008003╱ // 0x4288 @0x16
0x4272…4294 at001b = ╱ee╱)╱ // 0x428d @0x1b
0x4272…4294 at001c = ╱ec╱,╱ // 0x428e @0x1c
0x4272…4294 at001d = ╱46╱F╱ // 0x428f @0x1d
0x4272…4294 at001e = ╱33╱3╱ // 0x4290 @0x1e
0x4272…4294 at001f = ╱ef╱$╱ // 0x4291 @0x1f
0x4272…4294 at0020 = ╱ee╱)╱ // 0x4292 @0x20
0x4272…4294 at0021 = EOL // 0x4293 @0x21
0x4272…4294 }
0x4294…42ab d002 8290 EXEC CA(B,F3$,A1$,A1$)
0x4294…42ab LineComalBin {
0x4294…42ab ptr = 0xd002 // 0x4294 @0x0
0x4294…42ab lno = 0x2062 // 0x4296 @0x2
0x4294…42ab at0004 = ╱9d╱ EXEC ╱ // 0x4298 @0x4
0x4294…42ab at0005 = ╱43╱C╱ // 0x4299 @0x5
0x4294…42ab at0006 = ╱41╱A╱ // 0x429a @0x6
0x4294…42ab at0007 = ╱ed╱(╱ // 0x429b @0x7
0x4294…42ab at0008 = ╱42╱B╱ // 0x429c @0x8
0x4294…42ab at0009 = ╱ec╱,╱ // 0x429d @0x9
0x4294…42ab at000a = ╱46╱F╱ // 0x429e @0xa
0x4294…42ab at000b = ╱33╱3╱ // 0x429f @0xb
0x4294…42ab at000c = ╱ef╱$╱ // 0x42a0 @0xc
0x4294…42ab at000d = ╱ec╱,╱ // 0x42a1 @0xd
0x4294…42ab at000e = ╱41╱A╱ // 0x42a2 @0xe
0x4294…42ab at000f = ╱31╱1╱ // 0x42a3 @0xf
0x4294…42ab at0010 = ╱ef╱$╱ // 0x42a4 @0x10
0x4294…42ab at0011 = ╱ec╱,╱ // 0x42a5 @0x11
0x4294…42ab at0012 = ╱41╱A╱ // 0x42a6 @0x12
0x4294…42ab at0013 = ╱31╱1╱ // 0x42a7 @0x13
0x4294…42ab at0014 = ╱ef╱$╱ // 0x42a8 @0x14
0x4294…42ab at0015 = ╱ee╱)╱ // 0x42a9 @0x15
0x4294…42ab at0016 = EOL // 0x42aa @0x16
0x4294…42ab }
0x42ab…42c6 d01d 8300 I7=24;H7=L2;H6=S7
0x42ab…42c6 LineComalBin {
0x42ab…42c6 ptr = 0xd01d // 0x42ab @0x0
0x42ab…42c6 lno = 0x206c // 0x42ad @0x2
0x42ab…42c6 at0004 = ╱49╱I╱ // 0x42af @0x4
0x42ab…42c6 at0005 = ╱37╱7╱ // 0x42b0 @0x5
0x42ab…42c6 at0006 = ╱dc╱=╱ // 0x42b1 @0x6
0x42ab…42c6 at0007 = ╱32╱2╱ // 0x42b2 @0x7
0x42ab…42c6 at0008 = ╱34╱4╱ // 0x42b3 @0x8
0x42ab…42c6 at0009 = ╱fe0000c005╱ // 0x42b4 @0x9
0x42ab…42c6 at000e = ╱eb╱;╱ // 0x42b9 @0xe
0x42ab…42c6 at000f = ╱48╱H╱ // 0x42ba @0xf
0x42ab…42c6 at0010 = ╱37╱7╱ // 0x42bb @0x10
0x42ab…42c6 at0011 = ╱dc╱=╱ // 0x42bc @0x11
0x42ab…42c6 at0012 = ╱4c╱L╱ // 0x42bd @0x12
0x42ab…42c6 at0013 = ╱32╱2╱ // 0x42be @0x13
0x42ab…42c6 at0014 = ╱eb╱;╱ // 0x42bf @0x14
0x42ab…42c6 at0015 = ╱48╱H╱ // 0x42c0 @0x15
0x42ab…42c6 at0016 = ╱36╱6╱ // 0x42c1 @0x16
0x42ab…42c6 at0017 = ╱dc╱=╱ // 0x42c2 @0x17
0x42ab…42c6 at0018 = ╱53╱S╱ // 0x42c3 @0x18
0x42ab…42c6 at0019 = ╱37╱7╱ // 0x42c4 @0x19
0x42ab…42c6 at001a = EOL // 0x42c5 @0x1a
0x42ab…42c6 }
0x42c6…42ce (222,) d025 8310 EXEC GB
0x42c6…42ce LineComalBin {
0x42c6…42ce ptr = 0xd025 // 0x42c6 @0x0
0x42c6…42ce lno = 0x2076 // 0x42c8 @0x2
0x42c6…42ce at0004 = ╱9d╱ EXEC ╱ // 0x42ca @0x4
0x42c6…42ce at0005 = ╱47╱G╱ // 0x42cb @0x5
0x42c6…42ce at0006 = ╱42╱B╱ // 0x42cc @0x6
0x42c6…42ce at0007 = EOL // 0x42cd @0x7
0x42c6…42ce }
0x42ce…4306 d05d 8320 F4$=F3$;I7=10;H7=-E;E3$="Samlet bankpostering"
0x42ce…4306 LineComalBin {
0x42ce…4306 ptr = 0xd05d // 0x42ce @0x0
0x42ce…4306 lno = 0x2080 // 0x42d0 @0x2
0x42ce…4306 at0004 = ╱46╱F╱ // 0x42d2 @0x4
0x42ce…4306 at0005 = ╱34╱4╱ // 0x42d3 @0x5
0x42ce…4306 at0006 = ╱ef╱$╱ // 0x42d4 @0x6
0x42ce…4306 at0007 = ╱dc╱=╱ // 0x42d5 @0x7
0x42ce…4306 at0008 = ╱46╱F╱ // 0x42d6 @0x8
0x42ce…4306 at0009 = ╱33╱3╱ // 0x42d7 @0x9
0x42ce…4306 at000a = ╱ef╱$╱ // 0x42d8 @0xa
0x42ce…4306 at000b = ╱eb╱;╱ // 0x42d9 @0xb
0x42ce…4306 at000c = ╱49╱I╱ // 0x42da @0xc
0x42ce…4306 at000d = ╱37╱7╱ // 0x42db @0xd
0x42ce…4306 at000e = ╱dc╱=╱ // 0x42dc @0xe
0x42ce…4306 at000f = ╱31╱1╱ // 0x42dd @0xf
0x42ce…4306 at0010 = ╱30╱0╱ // 0x42de @0x10
0x42ce…4306 at0011 = ╱fe0000a004╱ // 0x42df @0x11
0x42ce…4306 at0016 = ╱eb╱;╱ // 0x42e4 @0x16
0x42ce…4306 at0017 = ╱48╱H╱ // 0x42e5 @0x17
0x42ce…4306 at0018 = ╱37╱7╱ // 0x42e6 @0x18
0x42ce…4306 at0019 = ╱dc╱=╱ // 0x42e7 @0x19
0x42ce…4306 at001a = ╱e9╱-╱ // 0x42e8 @0x1a
0x42ce…4306 at001b = ╱45╱E╱ // 0x42e9 @0x1b
0x42ce…4306 at001c = ╱eb╱;╱ // 0x42ea @0x1c
0x42ce…4306 at001d = ╱45╱E╱ // 0x42eb @0x1d
0x42ce…4306 at001e = ╱33╱3╱ // 0x42ec @0x1e
0x42ce…4306 at001f = ╱ef╱$╱ // 0x42ed @0x1f
0x42ce…4306 at0020 = ╱dc╱=╱ // 0x42ee @0x20
0x42ce…4306 at0021 = ╱22╱"╱ // 0x42ef @0x21
0x42ce…4306 at0022 = ╱53╱S╱ // 0x42f0 @0x22
0x42ce…4306 at0023 = ╱61╱a╱ // 0x42f1 @0x23
0x42ce…4306 at0024 = ╱6d╱m╱ // 0x42f2 @0x24
0x42ce…4306 at0025 = ╱6c╱l╱ // 0x42f3 @0x25
0x42ce…4306 at0026 = ╱65╱e╱ // 0x42f4 @0x26
0x42ce…4306 at0027 = ╱74╱t╱ // 0x42f5 @0x27
0x42ce…4306 at0028 = ╱20╱…╱ // 0x42f6 @0x28
0x42ce…4306 at0029 = ╱62╱b╱ // 0x42f7 @0x29
0x42ce…4306 at002a = ╱61╱a╱ // 0x42f8 @0x2a
0x42ce…4306 at002b = ╱6e╱n╱ // 0x42f9 @0x2b
0x42ce…4306 at002c = ╱6b╱k╱ // 0x42fa @0x2c
0x42ce…4306 at002d = ╱70╱p╱ // 0x42fb @0x2d
0x42ce…4306 at002e = ╱6f╱o╱ // 0x42fc @0x2e
0x42ce…4306 at002f = ╱73╱s╱ // 0x42fd @0x2f
0x42ce…4306 at0030 = ╱74╱t╱ // 0x42fe @0x30
0x42ce…4306 at0031 = ╱65╱e╱ // 0x42ff @0x31
0x42ce…4306 at0032 = ╱72╱r╱ // 0x4300 @0x32
0x42ce…4306 at0033 = ╱69╱i╱ // 0x4301 @0x33
0x42ce…4306 at0034 = ╱6e╱n╱ // 0x4302 @0x34
0x42ce…4306 at0035 = ╱67╱g╱ // 0x4303 @0x35
0x42ce…4306 at0036 = ╱22╱"╱ // 0x4304 @0x36
0x42ce…4306 at0037 = EOL // 0x4305 @0x37
0x42ce…4306 }
0x4306…4315 d06c 8330 EXEC UD(L2,R8)
0x4306…4315 LineComalBin {
0x4306…4315 ptr = 0xd06c // 0x4306 @0x0
0x4306…4315 lno = 0x208a // 0x4308 @0x2
0x4306…4315 at0004 = ╱9d╱ EXEC ╱ // 0x430a @0x4
0x4306…4315 at0005 = ╱55╱U╱ // 0x430b @0x5
0x4306…4315 at0006 = ╱44╱D╱ // 0x430c @0x6
0x4306…4315 at0007 = ╱ed╱(╱ // 0x430d @0x7
0x4306…4315 at0008 = ╱4c╱L╱ // 0x430e @0x8
0x4306…4315 at0009 = ╱32╱2╱ // 0x430f @0x9
0x4306…4315 at000a = ╱ec╱,╱ // 0x4310 @0xa
0x4306…4315 at000b = ╱52╱R╱ // 0x4311 @0xb
0x4306…4315 at000c = ╱38╱8╱ // 0x4312 @0xc
0x4306…4315 at000d = ╱ee╱)╱ // 0x4313 @0xd
0x4306…4315 at000e = EOL // 0x4314 @0xe
0x4306…4315 }
0x4315…433c d093 8340 EXEC CA(B,F5$(5),F5$(6),F3$)
0x4315…433c LineComalBin {
0x4315…433c ptr = 0xd093 // 0x4315 @0x0
0x4315…433c lno = 0x2094 // 0x4317 @0x2
0x4315…433c at0004 = ╱9d╱ EXEC ╱ // 0x4319 @0x4
0x4315…433c at0005 = ╱43╱C╱ // 0x431a @0x5
0x4315…433c at0006 = ╱41╱A╱ // 0x431b @0x6
0x4315…433c at0007 = ╱ed╱(╱ // 0x431c @0x7
0x4315…433c at0008 = ╱42╱B╱ // 0x431d @0x8
0x4315…433c at0009 = ╱ec╱,╱ // 0x431e @0x9
0x4315…433c at000a = ╱46╱F╱ // 0x431f @0xa
0x4315…433c at000b = ╱35╱5╱ // 0x4320 @0xb
0x4315…433c at000c = ╱ef╱$╱ // 0x4321 @0xc
0x4315…433c at000d = ╱ed╱(╱ // 0x4322 @0xd
0x4315…433c at000e = ╱35╱5╱ // 0x4323 @0xe
0x4315…433c at000f = ╱fe0000a003╱ // 0x4324 @0xf
0x4315…433c at0014 = ╱ee╱)╱ // 0x4329 @0x14
0x4315…433c at0015 = ╱ec╱,╱ // 0x432a @0x15
0x4315…433c at0016 = ╱46╱F╱ // 0x432b @0x16
0x4315…433c at0017 = ╱35╱5╱ // 0x432c @0x17
0x4315…433c at0018 = ╱ef╱$╱ // 0x432d @0x18
0x4315…433c at0019 = ╱ed╱(╱ // 0x432e @0x19
0x4315…433c at001a = ╱36╱6╱ // 0x432f @0x1a
0x4315…433c at001b = ╱fe0000c003╱ // 0x4330 @0x1b
0x4315…433c at0020 = ╱ee╱)╱ // 0x4335 @0x20
0x4315…433c at0021 = ╱ec╱,╱ // 0x4336 @0x21
0x4315…433c at0022 = ╱46╱F╱ // 0x4337 @0x22
0x4315…433c at0023 = ╱33╱3╱ // 0x4338 @0x23
0x4315…433c at0024 = ╱ef╱$╱ // 0x4339 @0x24
0x4315…433c at0025 = ╱ee╱)╱ // 0x433a @0x25
0x4315…433c at0026 = EOL // 0x433b @0x26
0x4315…433c }
0x433c…4353 d0aa 8350 EXEC CA(B,F3$,A1$,A1$)
0x433c…4353 LineComalBin {
0x433c…4353 ptr = 0xd0aa // 0x433c @0x0
0x433c…4353 lno = 0x209e // 0x433e @0x2
0x433c…4353 at0004 = ╱9d╱ EXEC ╱ // 0x4340 @0x4
0x433c…4353 at0005 = ╱43╱C╱ // 0x4341 @0x5
0x433c…4353 at0006 = ╱41╱A╱ // 0x4342 @0x6
0x433c…4353 at0007 = ╱ed╱(╱ // 0x4343 @0x7
0x433c…4353 at0008 = ╱42╱B╱ // 0x4344 @0x8
0x433c…4353 at0009 = ╱ec╱,╱ // 0x4345 @0x9
0x433c…4353 at000a = ╱46╱F╱ // 0x4346 @0xa
0x433c…4353 at000b = ╱33╱3╱ // 0x4347 @0xb
0x433c…4353 at000c = ╱ef╱$╱ // 0x4348 @0xc
0x433c…4353 at000d = ╱ec╱,╱ // 0x4349 @0xd
0x433c…4353 at000e = ╱41╱A╱ // 0x434a @0xe
0x433c…4353 at000f = ╱31╱1╱ // 0x434b @0xf
0x433c…4353 at0010 = ╱ef╱$╱ // 0x434c @0x10
0x433c…4353 at0011 = ╱ec╱,╱ // 0x434d @0x11
0x433c…4353 at0012 = ╱41╱A╱ // 0x434e @0x12
0x433c…4353 at0013 = ╱31╱1╱ // 0x434f @0x13
0x433c…4353 at0014 = ╱ef╱$╱ // 0x4350 @0x14
0x433c…4353 at0015 = ╱ee╱)╱ // 0x4351 @0x15
0x433c…4353 at0016 = EOL // 0x4352 @0x16
0x433c…4353 }
0x4353…436e d0c5 8360 I7=24;H7=L2;H6=S6
0x4353…436e LineComalBin {
0x4353…436e ptr = 0xd0c5 // 0x4353 @0x0
0x4353…436e lno = 0x20a8 // 0x4355 @0x2
0x4353…436e at0004 = ╱49╱I╱ // 0x4357 @0x4
0x4353…436e at0005 = ╱37╱7╱ // 0x4358 @0x5
0x4353…436e at0006 = ╱dc╱=╱ // 0x4359 @0x6
0x4353…436e at0007 = ╱32╱2╱ // 0x435a @0x7
0x4353…436e at0008 = ╱34╱4╱ // 0x435b @0x8
0x4353…436e at0009 = ╱fe0000c005╱ // 0x435c @0x9
0x4353…436e at000e = ╱eb╱;╱ // 0x4361 @0xe
0x4353…436e at000f = ╱48╱H╱ // 0x4362 @0xf
0x4353…436e at0010 = ╱37╱7╱ // 0x4363 @0x10
0x4353…436e at0011 = ╱dc╱=╱ // 0x4364 @0x11
0x4353…436e at0012 = ╱4c╱L╱ // 0x4365 @0x12
0x4353…436e at0013 = ╱32╱2╱ // 0x4366 @0x13
0x4353…436e at0014 = ╱eb╱;╱ // 0x4367 @0x14
0x4353…436e at0015 = ╱48╱H╱ // 0x4368 @0x15
0x4353…436e at0016 = ╱36╱6╱ // 0x4369 @0x16
0x4353…436e at0017 = ╱dc╱=╱ // 0x436a @0x17
0x4353…436e at0018 = ╱53╱S╱ // 0x436b @0x18
0x4353…436e at0019 = ╱36╱6╱ // 0x436c @0x19
0x4353…436e at001a = EOL // 0x436d @0x1a
0x4353…436e }
0x436e…4376 d0cd 8370 EXEC GB
0x436e…4376 LineComalBin {
0x436e…4376 ptr = 0xd0cd // 0x436e @0x0
0x436e…4376 lno = 0x20b2 // 0x4370 @0x2
0x436e…4376 at0004 = ╱9d╱ EXEC ╱ // 0x4372 @0x4
0x436e…4376 at0005 = ╱47╱G╱ // 0x4373 @0x5
0x436e…4376 at0006 = ╱42╱B╱ // 0x4374 @0x6
0x436e…4376 at0007 = EOL // 0x4375 @0x7
0x436e…4376 }
0x4376…43ae d105 8380 E3$="Samlet giropostering";F4$=F3$;I7=10;H7=-E
0x4376…43ae LineComalBin {
0x4376…43ae ptr = 0xd105 // 0x4376 @0x0
0x4376…43ae lno = 0x20bc // 0x4378 @0x2
0x4376…43ae at0004 = ╱45╱E╱ // 0x437a @0x4
0x4376…43ae at0005 = ╱33╱3╱ // 0x437b @0x5
0x4376…43ae at0006 = ╱ef╱$╱ // 0x437c @0x6
0x4376…43ae at0007 = ╱dc╱=╱ // 0x437d @0x7
0x4376…43ae at0008 = ╱22╱"╱ // 0x437e @0x8
0x4376…43ae at0009 = ╱53╱S╱ // 0x437f @0x9
0x4376…43ae at000a = ╱61╱a╱ // 0x4380 @0xa
0x4376…43ae at000b = ╱6d╱m╱ // 0x4381 @0xb
0x4376…43ae at000c = ╱6c╱l╱ // 0x4382 @0xc
0x4376…43ae at000d = ╱65╱e╱ // 0x4383 @0xd
0x4376…43ae at000e = ╱74╱t╱ // 0x4384 @0xe
0x4376…43ae at000f = ╱20╱…╱ // 0x4385 @0xf
0x4376…43ae at0010 = ╱67╱g╱ // 0x4386 @0x10
0x4376…43ae at0011 = ╱69╱i╱ // 0x4387 @0x11
0x4376…43ae at0012 = ╱72╱r╱ // 0x4388 @0x12
0x4376…43ae at0013 = ╱6f╱o╱ // 0x4389 @0x13
0x4376…43ae at0014 = ╱70╱p╱ // 0x438a @0x14
0x4376…43ae at0015 = ╱6f╱o╱ // 0x438b @0x15
0x4376…43ae at0016 = ╱73╱s╱ // 0x438c @0x16
0x4376…43ae at0017 = ╱74╱t╱ // 0x438d @0x17
0x4376…43ae at0018 = ╱65╱e╱ // 0x438e @0x18
0x4376…43ae at0019 = ╱72╱r╱ // 0x438f @0x19
0x4376…43ae at001a = ╱69╱i╱ // 0x4390 @0x1a
0x4376…43ae at001b = ╱6e╱n╱ // 0x4391 @0x1b
0x4376…43ae at001c = ╱67╱g╱ // 0x4392 @0x1c
0x4376…43ae at001d = ╱22╱"╱ // 0x4393 @0x1d
0x4376…43ae at001e = ╱eb╱;╱ // 0x4394 @0x1e
0x4376…43ae at001f = ╱46╱F╱ // 0x4395 @0x1f
0x4376…43ae at0020 = ╱34╱4╱ // 0x4396 @0x20
0x4376…43ae at0021 = ╱ef╱$╱ // 0x4397 @0x21
0x4376…43ae at0022 = ╱dc╱=╱ // 0x4398 @0x22
0x4376…43ae at0023 = ╱46╱F╱ // 0x4399 @0x23
0x4376…43ae at0024 = ╱33╱3╱ // 0x439a @0x24
0x4376…43ae at0025 = ╱ef╱$╱ // 0x439b @0x25
0x4376…43ae at0026 = ╱eb╱;╱ // 0x439c @0x26
0x4376…43ae at0027 = ╱49╱I╱ // 0x439d @0x27
0x4376…43ae at0028 = ╱37╱7╱ // 0x439e @0x28
0x4376…43ae at0029 = ╱dc╱=╱ // 0x439f @0x29
0x4376…43ae at002a = ╱31╱1╱ // 0x43a0 @0x2a
0x4376…43ae at002b = ╱30╱0╱ // 0x43a1 @0x2b
0x4376…43ae at002c = ╱fe0000a004╱ // 0x43a2 @0x2c
0x4376…43ae at0031 = ╱eb╱;╱ // 0x43a7 @0x31
0x4376…43ae at0032 = ╱48╱H╱ // 0x43a8 @0x32
0x4376…43ae at0033 = ╱37╱7╱ // 0x43a9 @0x33
0x4376…43ae at0034 = ╱dc╱=╱ // 0x43aa @0x34
0x4376…43ae at0035 = ╱e9╱-╱ // 0x43ab @0x35
0x4376…43ae at0036 = ╱45╱E╱ // 0x43ac @0x36
0x4376…43ae at0037 = EOL // 0x43ad @0x37
0x4376…43ae }
0x43ae…43bd d114 8390 EXEC UD(L2,R8)
0x43ae…43bd LineComalBin {
0x43ae…43bd ptr = 0xd114 // 0x43ae @0x0
0x43ae…43bd lno = 0x20c6 // 0x43b0 @0x2
0x43ae…43bd at0004 = ╱9d╱ EXEC ╱ // 0x43b2 @0x4
0x43ae…43bd at0005 = ╱55╱U╱ // 0x43b3 @0x5
0x43ae…43bd at0006 = ╱44╱D╱ // 0x43b4 @0x6
0x43ae…43bd at0007 = ╱ed╱(╱ // 0x43b5 @0x7
0x43ae…43bd at0008 = ╱4c╱L╱ // 0x43b6 @0x8
0x43ae…43bd at0009 = ╱32╱2╱ // 0x43b7 @0x9
0x43ae…43bd at000a = ╱ec╱,╱ // 0x43b8 @0xa
0x43ae…43bd at000b = ╱52╱R╱ // 0x43b9 @0xb
0x43ae…43bd at000c = ╱38╱8╱ // 0x43ba @0xc
0x43ae…43bd at000d = ╱ee╱)╱ // 0x43bb @0xd
0x43ae…43bd at000e = EOL // 0x43bc @0xe
0x43ae…43bd }
0x43bd…43d9 d130 8400 EXEC CA(4,A1$,B9$,B9$)
0x43bd…43d9 LineComalBin {
0x43bd…43d9 ptr = 0xd130 // 0x43bd @0x0
0x43bd…43d9 lno = 0x20d0 // 0x43bf @0x2
0x43bd…43d9 at0004 = ╱9d╱ EXEC ╱ // 0x43c1 @0x4
0x43bd…43d9 at0005 = ╱43╱C╱ // 0x43c2 @0x5
0x43bd…43d9 at0006 = ╱41╱A╱ // 0x43c3 @0x6
0x43bd…43d9 at0007 = ╱ed╱(╱ // 0x43c4 @0x7
0x43bd…43d9 at0008 = ╱34╱4╱ // 0x43c5 @0x8
0x43bd…43d9 at0009 = ╱fe00008003╱ // 0x43c6 @0x9
0x43bd…43d9 at000e = ╱ec╱,╱ // 0x43cb @0xe
0x43bd…43d9 at000f = ╱41╱A╱ // 0x43cc @0xf
0x43bd…43d9 at0010 = ╱31╱1╱ // 0x43cd @0x10
0x43bd…43d9 at0011 = ╱ef╱$╱ // 0x43ce @0x11
0x43bd…43d9 at0012 = ╱ec╱,╱ // 0x43cf @0x12
0x43bd…43d9 at0013 = ╱42╱B╱ // 0x43d0 @0x13
0x43bd…43d9 at0014 = ╱39╱9╱ // 0x43d1 @0x14
0x43bd…43d9 at0015 = ╱ef╱$╱ // 0x43d2 @0x15
0x43bd…43d9 at0016 = ╱ec╱,╱ // 0x43d3 @0x16
0x43bd…43d9 at0017 = ╱42╱B╱ // 0x43d4 @0x17
0x43bd…43d9 at0018 = ╱39╱9╱ // 0x43d5 @0x18
0x43bd…43d9 at0019 = ╱ef╱$╱ // 0x43d6 @0x19
0x43bd…43d9 at001a = ╱ee╱)╱ // 0x43d7 @0x1a
0x43bd…43d9 at001b = EOL // 0x43d8 @0x1b
0x43bd…43d9 }
0x43d9…43e4 d13b 8410 IF SI<>B THEN
0x43d9…43e4 LineComalBin {
0x43d9…43e4 ptr = 0xd13b // 0x43d9 @0x0
0x43d9…43e4 lno = 0x20da // 0x43db @0x2
0x43d9…43e4 at0004 = ╱9c╱ IF ╱ // 0x43dd @0x4
0x43d9…43e4 at0005 = ╱53╱S╱ // 0x43de @0x5
0x43d9…43e4 at0006 = ╱49╱I╱ // 0x43df @0x6
0x43d9…43e4 at0007 = ╱e1╱<>╱ // 0x43e0 @0x7
0x43d9…43e4 at0008 = ╱42╱B╱ // 0x43e1 @0x8
0x43d9…43e4 at0009 = ╱b6╱ THEN ╱ // 0x43e2 @0x9
0x43d9…43e4 at000a = EOL // 0x43e3 @0xa
0x43d9…43e4 }
0x43e4…441d d174 8420 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport"
0x43e4…441d LineComalBin {
0x43e4…441d ptr = 0xd174 // 0x43e4 @0x0
0x43e4…441d lno = 0x20e4 // 0x43e6 @0x2
0x43e4…441d at0004 = ╱49╱I╱ // 0x43e8 @0x4
0x43e4…441d at0005 = ╱37╱7╱ // 0x43e9 @0x5
0x43e4…441d at0006 = ╱dc╱=╱ // 0x43ea @0x6
0x43e4…441d at0007 = ╱31╱1╱ // 0x43eb @0x7
0x43e4…441d at0008 = ╱30╱0╱ // 0x43ec @0x8
0x43e4…441d at0009 = ╱fe0000a004╱ // 0x43ed @0x9
0x43e4…441d at000e = ╱eb╱;╱ // 0x43f2 @0xe
0x43e4…441d at000f = ╱48╱H╱ // 0x43f3 @0xf
0x43e4…441d at0010 = ╱37╱7╱ // 0x43f4 @0x10
0x43e4…441d at0011 = ╱dc╱=╱ // 0x43f5 @0x11
0x43e4…441d at0012 = ╱4c╱L╱ // 0x43f6 @0x12
0x43e4…441d at0013 = ╱32╱2╱ // 0x43f7 @0x13
0x43e4…441d at0014 = ╱eb╱;╱ // 0x43f8 @0x14
0x43e4…441d at0015 = ╱48╱H╱ // 0x43f9 @0x15
0x43e4…441d at0016 = ╱36╱6╱ // 0x43fa @0x16
0x43e4…441d at0017 = ╱dc╱=╱ // 0x43fb @0x17
0x43e4…441d at0018 = ╱54╱T╱ // 0x43fc @0x18
0x43e4…441d at0019 = ╱30╱0╱ // 0x43fd @0x19
0x43e4…441d at001a = ╱eb╱;╱ // 0x43fe @0x1a
0x43e4…441d at001b = ╱45╱E╱ // 0x43ff @0x1b
0x43e4…441d at001c = ╱33╱3╱ // 0x4400 @0x1c
0x43e4…441d at001d = ╱ef╱$╱ // 0x4401 @0x1d
0x43e4…441d at001e = ╱dc╱=╱ // 0x4402 @0x1e
0x43e4…441d at001f = ╱22╱"╱ // 0x4403 @0x1f
0x43e4…441d at0020 = ╱44╱D╱ // 0x4404 @0x20
0x43e4…441d at0021 = ╱69╱i╱ // 0x4405 @0x21
0x43e4…441d at0022 = ╱66╱f╱ // 0x4406 @0x22
0x43e4…441d at0023 = ╱66╱f╱ // 0x4407 @0x23
0x43e4…441d at0024 = ╱65╱e╱ // 0x4408 @0x24
0x43e4…441d at0025 = ╱72╱r╱ // 0x4409 @0x25
0x43e4…441d at0026 = ╱65╱e╱ // 0x440a @0x26
0x43e4…441d at0027 = ╱6e╱n╱ // 0x440b @0x27
0x43e4…441d at0028 = ╱63╱c╱ // 0x440c @0x28
0x43e4…441d at0029 = ╱65╱e╱ // 0x440d @0x29
0x43e4…441d at002a = ╱20╱…╱ // 0x440e @0x2a
0x43e4…441d at002b = ╱6b╱k╱ // 0x440f @0x2b
0x43e4…441d at002c = ╱61╱a╱ // 0x4410 @0x2c
0x43e4…441d at002d = ╱73╱s╱ // 0x4411 @0x2d
0x43e4…441d at002e = ╱73╱s╱ // 0x4412 @0x2e
0x43e4…441d at002f = ╱65╱e╱ // 0x4413 @0x2f
0x43e4…441d at0030 = ╱72╱r╱ // 0x4414 @0x30
0x43e4…441d at0031 = ╱61╱a╱ // 0x4415 @0x31
0x43e4…441d at0032 = ╱70╱p╱ // 0x4416 @0x32
0x43e4…441d at0033 = ╱70╱p╱ // 0x4417 @0x33
0x43e4…441d at0034 = ╱6f╱o╱ // 0x4418 @0x34
0x43e4…441d at0035 = ╱72╱r╱ // 0x4419 @0x35
0x43e4…441d at0036 = ╱74╱t╱ // 0x441a @0x36
0x43e4…441d at0037 = ╱22╱"╱ // 0x441b @0x37
0x43e4…441d at0038 = EOL // 0x441c @0x38
0x43e4…441d }
0x441d…442e d185 8430 EXEC MO(F3$,A1$)
0x441d…442e LineComalBin {
0x441d…442e ptr = 0xd185 // 0x441d @0x0
0x441d…442e lno = 0x20ee // 0x441f @0x2
0x441d…442e at0004 = ╱9d╱ EXEC ╱ // 0x4421 @0x4
0x441d…442e at0005 = ╱4d╱M╱ // 0x4422 @0x5
0x441d…442e at0006 = ╱4f╱O╱ // 0x4423 @0x6
0x441d…442e at0007 = ╱ed╱(╱ // 0x4424 @0x7
0x441d…442e at0008 = ╱46╱F╱ // 0x4425 @0x8
0x441d…442e at0009 = ╱33╱3╱ // 0x4426 @0x9
0x441d…442e at000a = ╱ef╱$╱ // 0x4427 @0xa
0x441d…442e at000b = ╱ec╱,╱ // 0x4428 @0xb
0x441d…442e at000c = ╱41╱A╱ // 0x4429 @0xc
0x441d…442e at000d = ╱31╱1╱ // 0x442a @0xd
0x441d…442e at000e = ╱ef╱$╱ // 0x442b @0xe
0x441d…442e at000f = ╱ee╱)╱ // 0x442c @0xf
0x441d…442e at0010 = EOL // 0x442d @0x10
0x441d…442e }
0x442e…4436 d18d 8440 EXEC GB
0x442e…4436 LineComalBin {
0x442e…4436 ptr = 0xd18d // 0x442e @0x0
0x442e…4436 lno = 0x20f8 // 0x4430 @0x2
0x442e…4436 at0004 = ╱9d╱ EXEC ╱ // 0x4432 @0x4
0x442e…4436 at0005 = ╱47╱G╱ // 0x4433 @0x5
0x442e…4436 at0006 = ╱42╱B╱ // 0x4434 @0x6
0x442e…4436 at0007 = EOL // 0x4435 @0x7
0x442e…4436 }
0x4436…444d d1a4 8450 EXEC CA(B,F3$,A1$,A1$)
0x4436…444d LineComalBin {
0x4436…444d ptr = 0xd1a4 // 0x4436 @0x0
0x4436…444d lno = 0x2102 // 0x4438 @0x2
0x4436…444d at0004 = ╱9d╱ EXEC ╱ // 0x443a @0x4
0x4436…444d at0005 = ╱43╱C╱ // 0x443b @0x5
0x4436…444d at0006 = ╱41╱A╱ // 0x443c @0x6
0x4436…444d at0007 = ╱ed╱(╱ // 0x443d @0x7
0x4436…444d at0008 = ╱42╱B╱ // 0x443e @0x8
0x4436…444d at0009 = ╱ec╱,╱ // 0x443f @0x9
0x4436…444d at000a = ╱46╱F╱ // 0x4440 @0xa
0x4436…444d at000b = ╱33╱3╱ // 0x4441 @0xb
0x4436…444d at000c = ╱ef╱$╱ // 0x4442 @0xc
0x4436…444d at000d = ╱ec╱,╱ // 0x4443 @0xd
0x4436…444d at000e = ╱41╱A╱ // 0x4444 @0xe
0x4436…444d at000f = ╱31╱1╱ // 0x4445 @0xf
0x4436…444d at0010 = ╱ef╱$╱ // 0x4446 @0x10
0x4436…444d at0011 = ╱ec╱,╱ // 0x4447 @0x11
0x4436…444d at0012 = ╱41╱A╱ // 0x4448 @0x12
0x4436…444d at0013 = ╱31╱1╱ // 0x4449 @0x13
0x4436…444d at0014 = ╱ef╱$╱ // 0x444a @0x14
0x4436…444d at0015 = ╱ee╱)╱ // 0x444b @0x15
0x4436…444d at0016 = EOL // 0x444c @0x16
0x4436…444d }
0x444d…445f d1b6 8460 F4$=F3$;H7=-E
0x444d…445f LineComalBin {
0x444d…445f ptr = 0xd1b6 // 0x444d @0x0
0x444d…445f lno = 0x210c // 0x444f @0x2
0x444d…445f at0004 = ╱46╱F╱ // 0x4451 @0x4
0x444d…445f at0005 = ╱34╱4╱ // 0x4452 @0x5
0x444d…445f at0006 = ╱ef╱$╱ // 0x4453 @0x6
0x444d…445f at0007 = ╱dc╱=╱ // 0x4454 @0x7
0x444d…445f at0008 = ╱46╱F╱ // 0x4455 @0x8
0x444d…445f at0009 = ╱33╱3╱ // 0x4456 @0x9
0x444d…445f at000a = ╱ef╱$╱ // 0x4457 @0xa
0x444d…445f at000b = ╱eb╱;╱ // 0x4458 @0xb
0x444d…445f at000c = ╱48╱H╱ // 0x4459 @0xc
0x444d…445f at000d = ╱37╱7╱ // 0x445a @0xd
0x444d…445f at000e = ╱dc╱=╱ // 0x445b @0xe
0x444d…445f at000f = ╱e9╱-╱ // 0x445c @0xf
0x444d…445f at0010 = ╱45╱E╱ // 0x445d @0x10
0x444d…445f at0011 = EOL // 0x445e @0x11
0x444d…445f }
0x445f…446e d1c5 8470 EXEC UD(L2,R8)
0x445f…446e LineComalBin {
0x445f…446e ptr = 0xd1c5 // 0x445f @0x0
0x445f…446e lno = 0x2116 // 0x4461 @0x2
0x445f…446e at0004 = ╱9d╱ EXEC ╱ // 0x4463 @0x4
0x445f…446e at0005 = ╱55╱U╱ // 0x4464 @0x5
0x445f…446e at0006 = ╱44╱D╱ // 0x4465 @0x6
0x445f…446e at0007 = ╱ed╱(╱ // 0x4466 @0x7
0x445f…446e at0008 = ╱4c╱L╱ // 0x4467 @0x8
0x445f…446e at0009 = ╱32╱2╱ // 0x4468 @0x9
0x445f…446e at000a = ╱ec╱,╱ // 0x4469 @0xa
0x445f…446e at000b = ╱52╱R╱ // 0x446a @0xb
0x445f…446e at000c = ╱38╱8╱ // 0x446b @0xc
0x445f…446e at000d = ╱ee╱)╱ // 0x446c @0xd
0x445f…446e at000e = EOL // 0x446d @0xe
0x445f…446e }
0x446e…4474 d1cb 8480 ENDIF
0x446e…4474 LineComalBin {
0x446e…4474 ptr = 0xd1cb // 0x446e @0x0
0x446e…4474 lno = 0x2120 // 0x4470 @0x2
0x446e…4474 at0004 = ╱9b╱ ENDIF ╱ // 0x4472 @0x4
0x446e…4474 at0005 = EOL // 0x4473 @0x5
0x446e…4474 }
0x4474…447c d1d3 8490 EXEC BU
0x4474…447c LineComalBin {
0x4474…447c ptr = 0xd1d3 // 0x4474 @0x0
0x4474…447c lno = 0x212a // 0x4476 @0x2
0x4474…447c at0004 = ╱9d╱ EXEC ╱ // 0x4478 @0x4
0x4474…447c at0005 = ╱42╱B╱ // 0x4479 @0x5
0x4474…447c at0006 = ╱55╱U╱ // 0x447a @0x6
0x4474…447c at0007 = EOL // 0x447b @0x7
0x4474…447c }
0x447c…4485 d1dc 8500 CLOSE D3$
0x447c…4485 LineComalBin {
0x447c…4485 ptr = 0xd1dc // 0x447c @0x0
0x447c…4485 lno = 0x2134 // 0x447e @0x2
0x447c…4485 at0004 = ╱a8╱ CLOSE ╱ // 0x4480 @0x4
0x447c…4485 at0005 = ╱44╱D╱ // 0x4481 @0x5
0x447c…4485 at0006 = ╱33╱3╱ // 0x4482 @0x6
0x447c…4485 at0007 = ╱ef╱$╱ // 0x4483 @0x7
0x447c…4485 at0008 = EOL // 0x4484 @0x8
0x447c…4485 }
0x4485…449c d1f3 8510 EXEC FE(W,38,D3$)
0x4485…449c LineComalBin {
0x4485…449c ptr = 0xd1f3 // 0x4485 @0x0
0x4485…449c lno = 0x213e // 0x4487 @0x2
0x4485…449c at0004 = ╱9d╱ EXEC ╱ // 0x4489 @0x4
0x4485…449c at0005 = ╱46╱F╱ // 0x448a @0x5
0x4485…449c at0006 = ╱45╱E╱ // 0x448b @0x6
0x4485…449c at0007 = ╱ed╱(╱ // 0x448c @0x7
0x4485…449c at0008 = ╱57╱W╱ // 0x448d @0x8
0x4485…449c at0009 = ╱ec╱,╱ // 0x448e @0x9
0x4485…449c at000a = ╱33╱3╱ // 0x448f @0xa
0x4485…449c at000b = ╱38╱8╱ // 0x4490 @0xb
0x4485…449c at000c = ╱fe00009806╱ // 0x4491 @0xc
0x4485…449c at0011 = ╱ec╱,╱ // 0x4496 @0x11
0x4485…449c at0012 = ╱44╱D╱ // 0x4497 @0x12
0x4485…449c at0013 = ╱33╱3╱ // 0x4498 @0x13
0x4485…449c at0014 = ╱ef╱$╱ // 0x4499 @0x14
0x4485…449c at0015 = ╱ee╱)╱ // 0x449a @0x15
0x4485…449c at0016 = EOL // 0x449b @0x16
0x4485…449c }
0x449c…44a5 d1fc 8520 I4=B
0x449c…44a5 LineComalBin {
0x449c…44a5 ptr = 0xd1fc // 0x449c @0x0
0x449c…44a5 lno = 0x2148 // 0x449e @0x2
0x449c…44a5 at0004 = ╱49╱I╱ // 0x44a0 @0x4
0x449c…44a5 at0005 = ╱34╱4╱ // 0x44a1 @0x5
0x449c…44a5 at0006 = ╱dc╱=╱ // 0x44a2 @0x6
0x449c…44a5 at0007 = ╱42╱B╱ // 0x44a3 @0x7
0x449c…44a5 at0008 = EOL // 0x44a4 @0x8
0x449c…44a5 }
0x44a5…44b5 d20c 8530 FOR I=E TO 6
0x44a5…44b5 LineComalBin {
0x44a5…44b5 ptr = 0xd20c // 0x44a5 @0x0
0x44a5…44b5 lno = 0x2152 // 0x44a7 @0x2
0x44a5…44b5 at0004 = ╱83╱ FOR ╱ // 0x44a9 @0x4
0x44a5…44b5 at0005 = ╱49╱I╱ // 0x44aa @0x5
0x44a5…44b5 at0006 = ╱dc╱=╱ // 0x44ab @0x6
0x44a5…44b5 at0007 = ╱45╱E╱ // 0x44ac @0x7
0x44a5…44b5 at0008 = ╱b7╱ TO ╱ // 0x44ad @0x8
0x44a5…44b5 at0009 = ╱36╱6╱ // 0x44ae @0x9
0x44a5…44b5 at000a = ╱fe0000c003╱ // 0x44af @0xa
0x44a5…44b5 at000f = EOL // 0x44b4 @0xf
0x44a5…44b5 }
0x44b5…44c5 d21c 8540 F5$(I)="0+"
0x44b5…44c5 LineComalBin {
0x44b5…44c5 ptr = 0xd21c // 0x44b5 @0x0
0x44b5…44c5 lno = 0x215c // 0x44b7 @0x2
0x44b5…44c5 at0004 = ╱46╱F╱ // 0x44b9 @0x4
0x44b5…44c5 at0005 = ╱35╱5╱ // 0x44ba @0x5
0x44b5…44c5 at0006 = ╱ef╱$╱ // 0x44bb @0x6
0x44b5…44c5 at0007 = ╱ed╱(╱ // 0x44bc @0x7
0x44b5…44c5 at0008 = ╱49╱I╱ // 0x44bd @0x8
0x44b5…44c5 at0009 = ╱ee╱)╱ // 0x44be @0x9
0x44b5…44c5 at000a = ╱dc╱=╱ // 0x44bf @0xa
0x44b5…44c5 at000b = ╱22╱"╱ // 0x44c0 @0xb
0x44b5…44c5 at000c = ╱30╱0╱ // 0x44c1 @0xc
0x44b5…44c5 at000d = ╱2b╱+╱ // 0x44c2 @0xd
0x44b5…44c5 at000e = ╱22╱"╱ // 0x44c3 @0xe
0x44b5…44c5 at000f = EOL // 0x44c4 @0xf
0x44b5…44c5 }
0x44c5…44cc d223 8550 NEXT I
0x44c5…44cc LineComalBin {
0x44c5…44cc ptr = 0xd223 // 0x44c5 @0x0
0x44c5…44cc lno = 0x2166 // 0x44c7 @0x2
0x44c5…44cc at0004 = ╱84╱ NEXT ╱ // 0x44c9 @0x4
0x44c5…44cc at0005 = ╱49╱I╱ // 0x44ca @0x5
0x44c5…44cc at0006 = EOL // 0x44cb @0x6
0x44c5…44cc }
0x44cc…44d2 d229 8560 ELSE
0x44cc…44d2 LineComalBin {
0x44cc…44d2 ptr = 0xd229 // 0x44cc @0x0
0x44cc…44d2 lno = 0x2170 // 0x44ce @0x2
0x44cc…44d2 at0004 = ╱9a╱ ELSE ╱ // 0x44d0 @0x4
0x44cc…44d2 at0005 = EOL // 0x44d1 @0x5
0x44cc…44d2 }
0x44d2…44d8 d22f 8570 REPEAT
0x44d2…44d8 LineComalBin {
0x44d2…44d8 ptr = 0xd22f // 0x44d2 @0x0
0x44d2…44d8 lno = 0x217a // 0x44d4 @0x2
0x44d2…44d8 at0004 = ╱97╱ REPEAT ╱ // 0x44d6 @0x4
0x44d2…44d8 at0005 = EOL // 0x44d7 @0x5
0x44d2…44d8 }
0x44d8…44e7 d23e 8580 CURSOR V,23
0x44d8…44e7 LineComalBin {
0x44d8…44e7 ptr = 0xd23e // 0x44d8 @0x0
0x44d8…44e7 lno = 0x2184 // 0x44da @0x2
0x44d8…44e7 at0004 = ╱a1╱ CURSOR ╱ // 0x44dc @0x4
0x44d8…44e7 at0005 = ╱56╱V╱ // 0x44dd @0x5
0x44d8…44e7 at0006 = ╱ec╱,╱ // 0x44de @0x6
0x44d8…44e7 at0007 = ╱32╱2╱ // 0x44df @0x7
0x44d8…44e7 at0008 = ╱33╱3╱ // 0x44e0 @0x8
0x44d8…44e7 at0009 = ╱fe0000b805╱ // 0x44e1 @0x9
0x44d8…44e7 at000e = EOL // 0x44e6 @0xe
0x44d8…44e7 }
0x44e7…4519 d270 8590 PRINT "Ønskes kontroludskrift J/N ";B7$(E:45)
0x44e7…4519 LineComalBin {
0x44e7…4519 ptr = 0xd270 // 0x44e7 @0x0
0x44e7…4519 lno = 0x218e // 0x44e9 @0x2
0x44e7…4519 at0004 = ╱92╱ PRINT ╱ // 0x44eb @0x4
0x44e7…4519 at0005 = ╱22╱"╱ // 0x44ec @0x5
0x44e7…4519 at0006 = ╱5c╱Ø╱ // 0x44ed @0x6
0x44e7…4519 at0007 = ╱6e╱n╱ // 0x44ee @0x7
0x44e7…4519 at0008 = ╱73╱s╱ // 0x44ef @0x8
0x44e7…4519 at0009 = ╱6b╱k╱ // 0x44f0 @0x9
0x44e7…4519 at000a = ╱65╱e╱ // 0x44f1 @0xa
0x44e7…4519 at000b = ╱73╱s╱ // 0x44f2 @0xb
0x44e7…4519 at000c = ╱20╱…╱ // 0x44f3 @0xc
0x44e7…4519 at000d = ╱6b╱k╱ // 0x44f4 @0xd
0x44e7…4519 at000e = ╱6f╱o╱ // 0x44f5 @0xe
0x44e7…4519 at000f = ╱6e╱n╱ // 0x44f6 @0xf
0x44e7…4519 at0010 = ╱74╱t╱ // 0x44f7 @0x10
0x44e7…4519 at0011 = ╱72╱r╱ // 0x44f8 @0x11
0x44e7…4519 at0012 = ╱6f╱o╱ // 0x44f9 @0x12
0x44e7…4519 at0013 = ╱6c╱l╱ // 0x44fa @0x13
0x44e7…4519 at0014 = ╱75╱u╱ // 0x44fb @0x14
0x44e7…4519 at0015 = ╱64╱d╱ // 0x44fc @0x15
0x44e7…4519 at0016 = ╱73╱s╱ // 0x44fd @0x16
0x44e7…4519 at0017 = ╱6b╱k╱ // 0x44fe @0x17
0x44e7…4519 at0018 = ╱72╱r╱ // 0x44ff @0x18
0x44e7…4519 at0019 = ╱69╱i╱ // 0x4500 @0x19
0x44e7…4519 at001a = ╱66╱f╱ // 0x4501 @0x1a
0x44e7…4519 at001b = ╱74╱t╱ // 0x4502 @0x1b
0x44e7…4519 at001c = ╱20╱…╱ // 0x4503 @0x1c
0x44e7…4519 at001d = ╱4a╱J╱ // 0x4504 @0x1d
0x44e7…4519 at001e = ╱2f╱/╱ // 0x4505 @0x1e
0x44e7…4519 at001f = ╱4e╱N╱ // 0x4506 @0x1f
0x44e7…4519 at0020 = ╱20╱…╱ // 0x4507 @0x20
0x44e7…4519 at0021 = ╱22╱"╱ // 0x4508 @0x21
0x44e7…4519 at0022 = ╱eb╱;╱ // 0x4509 @0x22
0x44e7…4519 at0023 = ╱42╱B╱ // 0x450a @0x23
0x44e7…4519 at0024 = ╱37╱7╱ // 0x450b @0x24
0x44e7…4519 at0025 = ╱ef╱$╱ // 0x450c @0x25
0x44e7…4519 at0026 = ╱ed╱(╱ // 0x450d @0x26
0x44e7…4519 at0027 = ╱45╱E╱ // 0x450e @0x27
0x44e7…4519 at0028 = ╱f0╱:╱ // 0x450f @0x28
0x44e7…4519 at0029 = ╱34╱4╱ // 0x4510 @0x29
0x44e7…4519 at002a = ╱35╱5╱ // 0x4511 @0x2a
0x44e7…4519 at002b = ╱fe0000b406╱ // 0x4512 @0x2b
0x44e7…4519 at0030 = ╱ee╱)╱ // 0x4517 @0x30
0x44e7…4519 at0031 = EOL // 0x4518 @0x31
0x44e7…4519 }
0x4519…452e d285 8600 CURSOR 30,23
0x4519…452e LineComalBin {
0x4519…452e ptr = 0xd285 // 0x4519 @0x0
0x4519…452e lno = 0x2198 // 0x451b @0x2
0x4519…452e at0004 = ╱a1╱ CURSOR ╱ // 0x451d @0x4
0x4519…452e at0005 = ╱33╱3╱ // 0x451e @0x5
0x4519…452e at0006 = ╱30╱0╱ // 0x451f @0x6
0x4519…452e at0007 = ╱fe0000f005╱ // 0x4520 @0x7
0x4519…452e at000c = ╱ec╱,╱ // 0x4525 @0xc
0x4519…452e at000d = ╱32╱2╱ // 0x4526 @0xd
0x4519…452e at000e = ╱33╱3╱ // 0x4527 @0xe
0x4519…452e at000f = ╱fe0000b805╱ // 0x4528 @0xf
0x4519…452e at0014 = EOL // 0x452d @0x14
0x4519…452e }
0x452e…4536 (230,) d28d 8610 INPUT A$
0x452e…4536 LineComalBin {
0x452e…4536 ptr = 0xd28d // 0x452e @0x0
0x452e…4536 lno = 0x21a2 // 0x4530 @0x2
0x452e…4536 at0004 = ╱91╱ INPUT ╱ // 0x4532 @0x4
0x452e…4536 at0005 = ╱41╱A╱ // 0x4533 @0x5
0x452e…4536 at0006 = ╱ef╱$╱ // 0x4534 @0x6
0x452e…4536 at0007 = EOL // 0x4535 @0x7
0x452e…4536 }
0x4536…4542 d299 8620 EXEC NR(A$)
0x4536…4542 LineComalBin {
0x4536…4542 ptr = 0xd299 // 0x4536 @0x0
0x4536…4542 lno = 0x21ac // 0x4538 @0x2
0x4536…4542 at0004 = ╱9d╱ EXEC ╱ // 0x453a @0x4
0x4536…4542 at0005 = ╱4e╱N╱ // 0x453b @0x5
0x4536…4542 at0006 = ╱52╱R╱ // 0x453c @0x6
0x4536…4542 at0007 = ╱ed╱(╱ // 0x453d @0x7
0x4536…4542 at0008 = ╱41╱A╱ // 0x453e @0x8
0x4536…4542 at0009 = ╱ef╱$╱ // 0x453f @0x9
0x4536…4542 at000a = ╱ee╱)╱ // 0x4540 @0xa
0x4536…4542 at000b = EOL // 0x4541 @0xb
0x4536…4542 }
0x4542…455b d2b2 8630 UNTIL P=-7 OR P=-8
0x4542…455b LineComalBin {
0x4542…455b ptr = 0xd2b2 // 0x4542 @0x0
0x4542…455b lno = 0x21b6 // 0x4544 @0x2
0x4542…455b at0004 = ╱98╱ UNTIL ╱ // 0x4546 @0x4
0x4542…455b at0005 = ╱50╱P╱ // 0x4547 @0x5
0x4542…455b at0006 = ╱dc╱=╱ // 0x4548 @0x6
0x4542…455b at0007 = ╱e9╱-╱ // 0x4549 @0x7
0x4542…455b at0008 = ╱37╱7╱ // 0x454a @0x8
0x4542…455b at0009 = ╱fe0000e003╱ // 0x454b @0x9
0x4542…455b at000e = ╱db╱ OR ╱ // 0x4550 @0xe
0x4542…455b at000f = ╱50╱P╱ // 0x4551 @0xf
0x4542…455b at0010 = ╱dc╱=╱ // 0x4552 @0x10
0x4542…455b at0011 = ╱e9╱-╱ // 0x4553 @0x11
0x4542…455b at0012 = ╱38╱8╱ // 0x4554 @0x12
0x4542…455b at0013 = ╱fe00008004╱ // 0x4555 @0x13
0x4542…455b at0018 = EOL // 0x455a @0x18
0x4542…455b }
0x455b…456b d2c2 8640 IF P=-7 THEN
0x455b…456b LineComalBin {
0x455b…456b ptr = 0xd2c2 // 0x455b @0x0
0x455b…456b lno = 0x21c0 // 0x455d @0x2
0x455b…456b at0004 = ╱9c╱ IF ╱ // 0x455f @0x4
0x455b…456b at0005 = ╱50╱P╱ // 0x4560 @0x5
0x455b…456b at0006 = ╱dc╱=╱ // 0x4561 @0x6
0x455b…456b at0007 = ╱e9╱-╱ // 0x4562 @0x7
0x455b…456b at0008 = ╱37╱7╱ // 0x4563 @0x8
0x455b…456b at0009 = ╱fe0000e003╱ // 0x4564 @0x9
0x455b…456b at000e = ╱b6╱ THEN ╱ // 0x4569 @0xe
0x455b…456b at000f = EOL // 0x456a @0xf
0x455b…456b }
0x456b…4575 d2cc 8650 T1=L2
0x456b…4575 LineComalBin {
0x456b…4575 ptr = 0xd2cc // 0x456b @0x0
0x456b…4575 lno = 0x21ca // 0x456d @0x2
0x456b…4575 at0004 = ╱54╱T╱ // 0x456f @0x4
0x456b…4575 at0005 = ╱31╱1╱ // 0x4570 @0x5
0x456b…4575 at0006 = ╱dc╱=╱ // 0x4571 @0x6
0x456b…4575 at0007 = ╱4c╱L╱ // 0x4572 @0x7
0x456b…4575 at0008 = ╱32╱2╱ // 0x4573 @0x8
0x456b…4575 at0009 = EOL // 0x4574 @0x9
0x456b…4575 }
0x4575…457d d2d4 8660 EXEC UB
0x4575…457d LineComalBin {
0x4575…457d ptr = 0xd2d4 // 0x4575 @0x0
0x4575…457d lno = 0x21d4 // 0x4577 @0x2
0x4575…457d at0004 = ╱9d╱ EXEC ╱ // 0x4579 @0x4
0x4575…457d at0005 = ╱55╱U╱ // 0x457a @0x5
0x4575…457d at0006 = ╱42╱B╱ // 0x457b @0x6
0x4575…457d at0007 = EOL // 0x457c @0x7
0x4575…457d }
0x457d…4589 d2e0 8670 FOR I=E TO I4
0x457d…4589 LineComalBin {
0x457d…4589 ptr = 0xd2e0 // 0x457d @0x0
0x457d…4589 lno = 0x21de // 0x457f @0x2
0x457d…4589 at0004 = ╱83╱ FOR ╱ // 0x4581 @0x4
0x457d…4589 at0005 = ╱49╱I╱ // 0x4582 @0x5
0x457d…4589 at0006 = ╱dc╱=╱ // 0x4583 @0x6
0x457d…4589 at0007 = ╱45╱E╱ // 0x4584 @0x7
0x457d…4589 at0008 = ╱b7╱ TO ╱ // 0x4585 @0x8
0x457d…4589 at0009 = ╱49╱I╱ // 0x4586 @0x9
0x457d…4589 at000a = ╱34╱4╱ // 0x4587 @0xa
0x457d…4589 at000b = EOL // 0x4588 @0xb
0x457d…4589 }
0x4589…45b3 d30a 8680 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16)
0x4589…45b3 LineComalBin {
0x4589…45b3 ptr = 0xd30a // 0x4589 @0x0
0x4589…45b3 lno = 0x21e8 // 0x458b @0x2
0x4589…45b3 at0004 = ╱9d╱ EXEC ╱ // 0x458d @0x4
0x4589…45b3 at0005 = ╱47╱G╱ // 0x458e @0x5
0x4589…45b3 at0006 = ╱47╱G╱ // 0x458f @0x6
0x4589…45b3 at0007 = ╱ed╱(╱ // 0x4590 @0x7
0x4589…45b3 at0008 = ╱44╱D╱ // 0x4591 @0x8
0x4589…45b3 at0009 = ╱32╱2╱ // 0x4592 @0x9
0x4589…45b3 at000a = ╱ef╱$╱ // 0x4593 @0xa
0x4589…45b3 at000b = ╱ec╱,╱ // 0x4594 @0xb
0x4589…45b3 at000c = ╱49╱I╱ // 0x4595 @0xc
0x4589…45b3 at000d = ╱ec╱,╱ // 0x4596 @0xd
0x4589…45b3 at000e = ╱48╱H╱ // 0x4597 @0xe
0x4589…45b3 at000f = ╱36╱6╱ // 0x4598 @0xf
0x4589…45b3 at0010 = ╱ec╱,╱ // 0x4599 @0x10
0x4589…45b3 at0011 = ╱4c╱L╱ // 0x459a @0x11
0x4589…45b3 at0012 = ╱34╱4╱ // 0x459b @0x12
0x4589…45b3 at0013 = ╱ec╱,╱ // 0x459c @0x13
0x4589…45b3 at0014 = ╱48╱H╱ // 0x459d @0x14
0x4589…45b3 at0015 = ╱37╱7╱ // 0x459e @0x15
0x4589…45b3 at0016 = ╱ec╱,╱ // 0x459f @0x16
0x4589…45b3 at0017 = ╱49╱I╱ // 0x45a0 @0x17
0x4589…45b3 at0018 = ╱37╱7╱ // 0x45a1 @0x18
0x4589…45b3 at0019 = ╱ec╱,╱ // 0x45a2 @0x19
0x4589…45b3 at001a = ╱45╱E╱ // 0x45a3 @0x1a
0x4589…45b3 at001b = ╱33╱3╱ // 0x45a4 @0x1b
0x4589…45b3 at001c = ╱ef╱$╱ // 0x45a5 @0x1c
0x4589…45b3 at001d = ╱ec╱,╱ // 0x45a6 @0x1d
0x4589…45b3 at001e = ╱46╱F╱ // 0x45a7 @0x1e
0x4589…45b3 at001f = ╱34╱4╱ // 0x45a8 @0x1f
0x4589…45b3 at0020 = ╱ef╱$╱ // 0x45a9 @0x20
0x4589…45b3 at0021 = ╱ec╱,╱ // 0x45aa @0x21
0x4589…45b3 at0022 = ╱48╱H╱ // 0x45ab @0x22
0x4589…45b3 at0023 = ╱38╱8╱ // 0x45ac @0x23
0x4589…45b3 at0024 = ╱ec╱,╱ // 0x45ad @0x24
0x4589…45b3 at0025 = ╱48╱H╱ // 0x45ae @0x25
0x4589…45b3 at0026 = ╱31╱1╱ // 0x45af @0x26
0x4589…45b3 at0027 = ╱36╱6╱ // 0x45b0 @0x27
0x4589…45b3 at0028 = ╱ee╱)╱ // 0x45b1 @0x28
0x4589…45b3 at0029 = EOL // 0x45b2 @0x29
0x4589…45b3 }
0x45b3…45c2 d319 8690 EXEC UD(T1,R8)
0x45b3…45c2 LineComalBin {
0x45b3…45c2 ptr = 0xd319 // 0x45b3 @0x0
0x45b3…45c2 lno = 0x21f2 // 0x45b5 @0x2
0x45b3…45c2 at0004 = ╱9d╱ EXEC ╱ // 0x45b7 @0x4
0x45b3…45c2 at0005 = ╱55╱U╱ // 0x45b8 @0x5
0x45b3…45c2 at0006 = ╱44╱D╱ // 0x45b9 @0x6
0x45b3…45c2 at0007 = ╱ed╱(╱ // 0x45ba @0x7
0x45b3…45c2 at0008 = ╱54╱T╱ // 0x45bb @0x8
0x45b3…45c2 at0009 = ╱31╱1╱ // 0x45bc @0x9
0x45b3…45c2 at000a = ╱ec╱,╱ // 0x45bd @0xa
0x45b3…45c2 at000b = ╱52╱R╱ // 0x45be @0xb
0x45b3…45c2 at000c = ╱38╱8╱ // 0x45bf @0xc
0x45b3…45c2 at000d = ╱ee╱)╱ // 0x45c0 @0xd
0x45b3…45c2 at000e = EOL // 0x45c1 @0xe
0x45b3…45c2 }
0x45c2…45d9 d330 8700 EXEC CA(E,A1$,F4$,A1$)
0x45c2…45d9 LineComalBin {
0x45c2…45d9 ptr = 0xd330 // 0x45c2 @0x0
0x45c2…45d9 lno = 0x21fc // 0x45c4 @0x2
0x45c2…45d9 at0004 = ╱9d╱ EXEC ╱ // 0x45c6 @0x4
0x45c2…45d9 at0005 = ╱43╱C╱ // 0x45c7 @0x5
0x45c2…45d9 at0006 = ╱41╱A╱ // 0x45c8 @0x6
0x45c2…45d9 at0007 = ╱ed╱(╱ // 0x45c9 @0x7
0x45c2…45d9 at0008 = ╱45╱E╱ // 0x45ca @0x8
0x45c2…45d9 at0009 = ╱ec╱,╱ // 0x45cb @0x9
0x45c2…45d9 at000a = ╱41╱A╱ // 0x45cc @0xa
0x45c2…45d9 at000b = ╱31╱1╱ // 0x45cd @0xb
0x45c2…45d9 at000c = ╱ef╱$╱ // 0x45ce @0xc
0x45c2…45d9 at000d = ╱ec╱,╱ // 0x45cf @0xd
0x45c2…45d9 at000e = ╱46╱F╱ // 0x45d0 @0xe
0x45c2…45d9 at000f = ╱34╱4╱ // 0x45d1 @0xf
0x45c2…45d9 at0010 = ╱ef╱$╱ // 0x45d2 @0x10
0x45c2…45d9 at0011 = ╱ec╱,╱ // 0x45d3 @0x11
0x45c2…45d9 at0012 = ╱41╱A╱ // 0x45d4 @0x12
0x45c2…45d9 at0013 = ╱31╱1╱ // 0x45d5 @0x13
0x45c2…45d9 at0014 = ╱ef╱$╱ // 0x45d6 @0x14
0x45c2…45d9 at0015 = ╱ee╱)╱ // 0x45d7 @0x15
0x45c2…45d9 at0016 = EOL // 0x45d8 @0x16
0x45c2…45d9 }
0x45d9…45e0 d337 8710 NEXT I
0x45d9…45e0 LineComalBin {
0x45d9…45e0 ptr = 0xd337 // 0x45d9 @0x0
0x45d9…45e0 lno = 0x2206 // 0x45db @0x2
0x45d9…45e0 at0004 = ╱84╱ NEXT ╱ // 0x45dd @0x4
0x45d9…45e0 at0005 = ╱49╱I╱ // 0x45de @0x5
0x45d9…45e0 at0006 = EOL // 0x45df @0x6
0x45d9…45e0 }
0x45e0…45ff d356 8720 I7=10;H7=-E;H8=B;H6=B
0x45e0…45ff LineComalBin {
0x45e0…45ff ptr = 0xd356 // 0x45e0 @0x0
0x45e0…45ff lno = 0x2210 // 0x45e2 @0x2
0x45e0…45ff at0004 = ╱49╱I╱ // 0x45e4 @0x4
0x45e0…45ff at0005 = ╱37╱7╱ // 0x45e5 @0x5
0x45e0…45ff at0006 = ╱dc╱=╱ // 0x45e6 @0x6
0x45e0…45ff at0007 = ╱31╱1╱ // 0x45e7 @0x7
0x45e0…45ff at0008 = ╱30╱0╱ // 0x45e8 @0x8
0x45e0…45ff at0009 = ╱fe0000a004╱ // 0x45e9 @0x9
0x45e0…45ff at000e = ╱eb╱;╱ // 0x45ee @0xe
0x45e0…45ff at000f = ╱48╱H╱ // 0x45ef @0xf
0x45e0…45ff at0010 = ╱37╱7╱ // 0x45f0 @0x10
0x45e0…45ff at0011 = ╱dc╱=╱ // 0x45f1 @0x11
0x45e0…45ff at0012 = ╱e9╱-╱ // 0x45f2 @0x12
0x45e0…45ff at0013 = ╱45╱E╱ // 0x45f3 @0x13
0x45e0…45ff at0014 = ╱eb╱;╱ // 0x45f4 @0x14
0x45e0…45ff at0015 = ╱48╱H╱ // 0x45f5 @0x15
0x45e0…45ff at0016 = ╱38╱8╱ // 0x45f6 @0x16
0x45e0…45ff at0017 = ╱dc╱=╱ // 0x45f7 @0x17
0x45e0…45ff at0018 = ╱42╱B╱ // 0x45f8 @0x18
0x45e0…45ff at0019 = ╱eb╱;╱ // 0x45f9 @0x19
0x45e0…45ff at001a = ╱48╱H╱ // 0x45fa @0x1a
0x45e0…45ff at001b = ╱36╱6╱ // 0x45fb @0x1b
0x45e0…45ff at001c = ╱dc╱=╱ // 0x45fc @0x1c
0x45e0…45ff at001d = ╱42╱B╱ // 0x45fd @0x1d
0x45e0…45ff at001e = EOL // 0x45fe @0x1e
0x45e0…45ff }
0x45ff…460f d366 8730 FOR I=E TO 6
0x45ff…460f LineComalBin {
0x45ff…460f ptr = 0xd366 // 0x45ff @0x0
0x45ff…460f lno = 0x221a // 0x4601 @0x2
0x45ff…460f at0004 = ╱83╱ FOR ╱ // 0x4603 @0x4
0x45ff…460f at0005 = ╱49╱I╱ // 0x4604 @0x5
0x45ff…460f at0006 = ╱dc╱=╱ // 0x4605 @0x6
0x45ff…460f at0007 = ╱45╱E╱ // 0x4606 @0x7
0x45ff…460f at0008 = ╱b7╱ TO ╱ // 0x4607 @0x8
0x45ff…460f at0009 = ╱36╱6╱ // 0x4608 @0x9
0x45ff…460f at000a = ╱fe0000c003╱ // 0x4609 @0xa
0x45ff…460f at000f = EOL // 0x460e @0xf
0x45ff…460f }
0x460f…4629 d380 8740 E3$=J5$(I);F4$=F5$(I)
0x460f…4629 LineComalBin {
0x460f…4629 ptr = 0xd380 // 0x460f @0x0
0x460f…4629 lno = 0x2224 // 0x4611 @0x2
0x460f…4629 at0004 = ╱45╱E╱ // 0x4613 @0x4
0x460f…4629 at0005 = ╱33╱3╱ // 0x4614 @0x5
0x460f…4629 at0006 = ╱ef╱$╱ // 0x4615 @0x6
0x460f…4629 at0007 = ╱dc╱=╱ // 0x4616 @0x7
0x460f…4629 at0008 = ╱4a╱J╱ // 0x4617 @0x8
0x460f…4629 at0009 = ╱35╱5╱ // 0x4618 @0x9
0x460f…4629 at000a = ╱ef╱$╱ // 0x4619 @0xa
0x460f…4629 at000b = ╱ed╱(╱ // 0x461a @0xb
0x460f…4629 at000c = ╱49╱I╱ // 0x461b @0xc
0x460f…4629 at000d = ╱ee╱)╱ // 0x461c @0xd
0x460f…4629 at000e = ╱eb╱;╱ // 0x461d @0xe
0x460f…4629 at000f = ╱46╱F╱ // 0x461e @0xf
0x460f…4629 at0010 = ╱34╱4╱ // 0x461f @0x10
0x460f…4629 at0011 = ╱ef╱$╱ // 0x4620 @0x11
0x460f…4629 at0012 = ╱dc╱=╱ // 0x4621 @0x12
0x460f…4629 at0013 = ╱46╱F╱ // 0x4622 @0x13
0x460f…4629 at0014 = ╱35╱5╱ // 0x4623 @0x14
0x460f…4629 at0015 = ╱ef╱$╱ // 0x4624 @0x15
0x460f…4629 at0016 = ╱ed╱(╱ // 0x4625 @0x16
0x460f…4629 at0017 = ╱49╱I╱ // 0x4626 @0x17
0x460f…4629 at0018 = ╱ee╱)╱ // 0x4627 @0x18
0x460f…4629 at0019 = EOL // 0x4628 @0x19
0x460f…4629 }
0x4629…4638 d38f 8750 EXEC UD(T1,R8)
0x4629…4638 LineComalBin {
0x4629…4638 ptr = 0xd38f // 0x4629 @0x0
0x4629…4638 lno = 0x222e // 0x462b @0x2
0x4629…4638 at0004 = ╱9d╱ EXEC ╱ // 0x462d @0x4
0x4629…4638 at0005 = ╱55╱U╱ // 0x462e @0x5
0x4629…4638 at0006 = ╱44╱D╱ // 0x462f @0x6
0x4629…4638 at0007 = ╱ed╱(╱ // 0x4630 @0x7
0x4629…4638 at0008 = ╱54╱T╱ // 0x4631 @0x8
0x4629…4638 at0009 = ╱31╱1╱ // 0x4632 @0x9
0x4629…4638 at000a = ╱ec╱,╱ // 0x4633 @0xa
0x4629…4638 at000b = ╱52╱R╱ // 0x4634 @0xb
0x4629…4638 at000c = ╱38╱8╱ // 0x4635 @0xc
0x4629…4638 at000d = ╱ee╱)╱ // 0x4636 @0xd
0x4629…4638 at000e = EOL // 0x4637 @0xe
0x4629…4638 }
0x4638…464f d3a6 8760 EXEC CA(B,A1$,F4$,A1$)
0x4638…464f LineComalBin {
0x4638…464f ptr = 0xd3a6 // 0x4638 @0x0
0x4638…464f lno = 0x2238 // 0x463a @0x2
0x4638…464f at0004 = ╱9d╱ EXEC ╱ // 0x463c @0x4
0x4638…464f at0005 = ╱43╱C╱ // 0x463d @0x5
0x4638…464f at0006 = ╱41╱A╱ // 0x463e @0x6
0x4638…464f at0007 = ╱ed╱(╱ // 0x463f @0x7
0x4638…464f at0008 = ╱42╱B╱ // 0x4640 @0x8
0x4638…464f at0009 = ╱ec╱,╱ // 0x4641 @0x9
0x4638…464f at000a = ╱41╱A╱ // 0x4642 @0xa
0x4638…464f at000b = ╱31╱1╱ // 0x4643 @0xb
0x4638…464f at000c = ╱ef╱$╱ // 0x4644 @0xc
0x4638…464f at000d = ╱ec╱,╱ // 0x4645 @0xd
0x4638…464f at000e = ╱46╱F╱ // 0x4646 @0xe
0x4638…464f at000f = ╱34╱4╱ // 0x4647 @0xf
0x4638…464f at0010 = ╱ef╱$╱ // 0x4648 @0x10
0x4638…464f at0011 = ╱ec╱,╱ // 0x4649 @0x11
0x4638…464f at0012 = ╱41╱A╱ // 0x464a @0x12
0x4638…464f at0013 = ╱31╱1╱ // 0x464b @0x13
0x4638…464f at0014 = ╱ef╱$╱ // 0x464c @0x14
0x4638…464f at0015 = ╱ee╱)╱ // 0x464d @0x15
0x4638…464f at0016 = EOL // 0x464e @0x16
0x4638…464f }
0x464f…4656 d3ad 8770 NEXT I
0x464f…4656 LineComalBin {
0x464f…4656 ptr = 0xd3ad // 0x464f @0x0
0x464f…4656 lno = 0x2242 // 0x4651 @0x2
0x464f…4656 at0004 = ╱84╱ NEXT ╱ // 0x4653 @0x4
0x464f…4656 at0005 = ╱49╱I╱ // 0x4654 @0x5
0x464f…4656 at0006 = EOL // 0x4655 @0x6
0x464f…4656 }
0x4656…465e d3b5 8780 EXEC BU
0x4656…465e LineComalBin {
0x4656…465e ptr = 0xd3b5 // 0x4656 @0x0
0x4656…465e lno = 0x224c // 0x4658 @0x2
0x4656…465e at0004 = ╱9d╱ EXEC ╱ // 0x465a @0x4
0x4656…465e at0005 = ╱42╱B╱ // 0x465b @0x5
0x4656…465e at0006 = ╱55╱U╱ // 0x465c @0x6
0x4656…465e at0007 = EOL // 0x465d @0x7
0x4656…465e }
0x465e…4664 d3bb 8790 ENDIF
0x465e…4664 LineComalBin {
0x465e…4664 ptr = 0xd3bb // 0x465e @0x0
0x465e…4664 lno = 0x2256 // 0x4660 @0x2
0x465e…4664 at0004 = ╱9b╱ ENDIF ╱ // 0x4662 @0x4
0x465e…4664 at0005 = EOL // 0x4663 @0x5
0x465e…4664 }
0x4664…466a d3c1 8800 ENDIF
0x4664…466a LineComalBin {
0x4664…466a ptr = 0xd3c1 // 0x4664 @0x0
0x4664…466a lno = 0x2260 // 0x4666 @0x2
0x4664…466a at0004 = ╱9b╱ ENDIF ╱ // 0x4668 @0x4
0x4664…466a at0005 = EOL // 0x4669 @0x5
0x4664…466a }
0x466a…4672 d3c9 8810 EXEC SY
0x466a…4672 LineComalBin {
0x466a…4672 ptr = 0xd3c9 // 0x466a @0x0
0x466a…4672 lno = 0x226a // 0x466c @0x2
0x466a…4672 at0004 = ╱9d╱ EXEC ╱ // 0x466e @0x4
0x466a…4672 at0005 = ╱53╱S╱ // 0x466f @0x5
0x466a…4672 at0006 = ╱59╱Y╱ // 0x4670 @0x6
0x466a…4672 at0007 = EOL // 0x4671 @0x7
0x466a…4672 }
0x4672…467b d3d2 8820 CLOSE D2$
0x4672…467b LineComalBin {
0x4672…467b ptr = 0xd3d2 // 0x4672 @0x0
0x4672…467b lno = 0x2274 // 0x4674 @0x2
0x4672…467b at0004 = ╱a8╱ CLOSE ╱ // 0x4676 @0x4
0x4672…467b at0005 = ╱44╱D╱ // 0x4677 @0x5
0x4672…467b at0006 = ╱32╱2╱ // 0x4678 @0x6
0x4672…467b at0007 = ╱ef╱$╱ // 0x4679 @0x7
0x4672…467b at0008 = EOL // 0x467a @0x8
0x4672…467b }
0x467b…4692 d3e9 8830 EXEC FE(W,39,D2$)
0x467b…4692 LineComalBin {
0x467b…4692 ptr = 0xd3e9 // 0x467b @0x0
0x467b…4692 lno = 0x227e // 0x467d @0x2
0x467b…4692 at0004 = ╱9d╱ EXEC ╱ // 0x467f @0x4
0x467b…4692 at0005 = ╱46╱F╱ // 0x4680 @0x5
0x467b…4692 at0006 = ╱45╱E╱ // 0x4681 @0x6
0x467b…4692 at0007 = ╱ed╱(╱ // 0x4682 @0x7
0x467b…4692 at0008 = ╱57╱W╱ // 0x4683 @0x8
0x467b…4692 at0009 = ╱ec╱,╱ // 0x4684 @0x9
0x467b…4692 at000a = ╱33╱3╱ // 0x4685 @0xa
0x467b…4692 at000b = ╱39╱9╱ // 0x4686 @0xb
0x467b…4692 at000c = ╱fe00009c06╱ // 0x4687 @0xc
0x467b…4692 at0011 = ╱ec╱,╱ // 0x468c @0x11
0x467b…4692 at0012 = ╱44╱D╱ // 0x468d @0x12
0x467b…4692 at0013 = ╱32╱2╱ // 0x468e @0x13
0x467b…4692 at0014 = ╱ef╱$╱ // 0x468f @0x14
0x467b…4692 at0015 = ╱ee╱)╱ // 0x4690 @0x15
0x467b…4692 at0016 = EOL // 0x4691 @0x16
0x467b…4692 }
0x4692…4698 d3ef 8840 CLOSE
0x4692…4698 LineComalBin {
0x4692…4698 ptr = 0xd3ef // 0x4692 @0x0
0x4692…4698 lno = 0x2288 // 0x4694 @0x2
0x4692…4698 at0004 = ╱a8╱ CLOSE ╱ // 0x4696 @0x4
0x4692…4698 at0005 = EOL // 0x4697 @0x5
0x4692…4698 }
0x4698…469f d3f6 8850 OUTPUT T
0x4698…469f LineComalBin {
0x4698…469f ptr = 0xd3f6 // 0x4698 @0x0
0x4698…469f lno = 0x2292 // 0x469a @0x2
0x4698…469f at0004 = ╱a5╱ OUTPUT ╱ // 0x469c @0x4
0x4698…469f at0005 = ╱54╱T╱ // 0x469d @0x5
0x4698…469f at0006 = EOL // 0x469e @0x6
0x4698…469f }
0x469f…46b6 0000 8860 CHAIN "P641210:OPSTART"
0x469f…46b6 LineComalBin {
0x469f…46b6 ptr = 0x0000 // 0x469f @0x0
0x469f…46b6 lno = 0x229c // 0x46a1 @0x2
0x469f…46b6 at0004 = ╱ac╱ CHAIN ╱ // 0x46a3 @0x4
0x469f…46b6 at0005 = ╱22╱"╱ // 0x46a4 @0x5
0x469f…46b6 at0006 = ╱50╱P╱ // 0x46a5 @0x6
0x469f…46b6 at0007 = ╱36╱6╱ // 0x46a6 @0x7
0x469f…46b6 at0008 = ╱34╱4╱ // 0x46a7 @0x8
0x469f…46b6 at0009 = ╱31╱1╱ // 0x46a8 @0x9
0x469f…46b6 at000a = ╱32╱2╱ // 0x46a9 @0xa
0x469f…46b6 at000b = ╱31╱1╱ // 0x46aa @0xb
0x469f…46b6 at000c = ╱30╱0╱ // 0x46ab @0xc
0x469f…46b6 at000d = ╱3a╱:╱ // 0x46ac @0xd
0x469f…46b6 at000e = ╱4f╱O╱ // 0x46ad @0xe
0x469f…46b6 at000f = ╱50╱P╱ // 0x46ae @0xf
0x469f…46b6 at0010 = ╱53╱S╱ // 0x46af @0x10
0x469f…46b6 at0011 = ╱54╱T╱ // 0x46b0 @0x11
0x469f…46b6 at0012 = ╱41╱A╱ // 0x46b1 @0x12
0x469f…46b6 at0013 = ╱52╱R╱ // 0x46b2 @0x13
0x469f…46b6 at0014 = ╱54╱T╱ // 0x46b3 @0x14
0x469f…46b6 at0015 = ╱22╱"╱ // 0x46b4 @0x15
0x469f…46b6 at0016 = EOL // 0x46b5 @0x16
0x469f…46b6 }
0x46b6…46c0 57 8d 5a 00 42 dc 30 fe 00 00 ┆W Z B 0 ┆
0x46c0…46e0 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc ┆ E 1 G 2 V 3 W ┆
0x46e0…46e7 39 fe 00 00 90 04 ff ┆9 ┆
0x46e7…46ed (236,) 57 8d 0d d4 10 00 ┆W ┆