|
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: 17254 (0x4366)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »PSTERING.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »PSTERING.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »PSTERING.B«
0100 DIM A1$(29),A2$(25),N$(6),A3$(25),A4$(E),A5(W),A6(W) 0110 DIM A7(W),A8$(17),A9$(17),B0$(17),B1$(17),B2$(17),B3$(10),B4$(17) 0120 DIM B5$(17),B6$(12),B7$(8),B8$(E),B9$(12),C0$(E),C1$(25) 0130 DIM C2$(17),C3$(W,10),C4$(14),C5$(12),C6(36),C7(36),C8(36) 0140 DIM C9$(36,25),A$(G),D0$(12),OP1$(12),OP2$(12),D1$(76),D2$(17) 0150 DIM RES$(15),D3$(8),D4$(V),D5$(26),D6$(26),D7$(6),D8$(12) 0160 DIM D9$(17),E0$(12),E1$(12),E2$(76),E3(36),E4$(36,12),E5$(17) 0170 DIM E6$(17),E7$(17),E8(36) 0180 PROC CA(E9,F0,F1,F2) 0190 OP1$=F0$;OP2$=F1$;RES$=F2$;SI=B;FLAG=B;ART=E9-6*(E9>5) 0200 CALL "P641210:REGN" 0210 F2$=RES$ 0220 IF E9<>6 THEN IF FLAG<>B THEN STOP 0230 ENDPROC 0240 PROC KTNV(F3,F4) 0250 F5=E 0260 CASE F3 OF 0270 EXEC FINDPOST1(F6,F7,F8,F4,F9,D9$) 0280 IF F5=B THEN 0290 EXEC HENTPOST 0300 A2$=A3$ 0310 IF INT(ORD(A4$)-48)<>B THEN F5=E 0320 ENDIF 0330 WHEN G0 0340 IF G0*10000+G1<F4 THEN 0350 EXEC FINDPOST1(G2,F7,G3,F4,F9,E5$) 0360 IF F5=B THEN EXEC HENTDPOST(F9,F4,F7,A8$,A2$) 0370 ENDIF 0380 WHEN G4 0390 IF G4*1000+G5<F4 THEN 0400 EXEC FINDPOST1(G6,F7,G7,F4,F9,C2$) 0410 IF F5=B THEN EXEC HENTDPOST(F9,F4,F7,A9$,A2$) 0420 ENDIF 0430 ENDCASE 0440 IF F5=E THEN A2$="Konto eksisterer ikke " 0450 ENDPROC 0460 PROC HENTDPOST(G8,G9,H0,H1,H2) 0470 S=H0(G8,G) 0480 GET H1$,S:G9,H2$ 0490 EXEC FE(8,G,H1$) 0500 IF G9<>H0(G8,E) THEN STOP 0510 ENDPROC 0520 PROC HENTPOST 0530 S=F7(F9,G) 0540 GET D2$,S:H3,A3$ 0550 EXEC FE(V,G,D2$) 0560 IF H3<>F7(F9,E) THEN STOP 0570 GET D2$,S+G:A4$ 0580 EXEC FE(V,4,D2$) 0590 ENDPROC 0600 PROC FINDPOST1(H4,Q,H5,H6,H7,H8) 0610 H9=H5 DIV 16;H7=H9;F5=E;I0=H5 DIV 8;I1=H5 DIV 32 0620 REPEAT 0630 IF H6=H4(H7) OR H9=E THEN EXIT 0640 H9=(H9+E) DIV G;H7=H7+H9*(E-G*(H6<H4(H7))) 0650 IF H7<E THEN H7=E 0660 IF H7>I0 THEN H7=I0 0670 UNTIL H9=B 0680 IF H4(H7)>H6 THEN H7=H7-E*(H7>E) 0690 H7=I1+H7*G-E 0700 GET H8$,H7:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G) 0710 EXEC FE(E,E,H8$) 0711 GET H8$,H7+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) 0712 EXEC FE(99,E,H8$) 0720 FOR H7=E TO 8 0730 IF H6=Q(H7,E) THEN EXIT 0740 NEXT H7 0750 IF H7<W THEN F5=B 0760 ENDPROC 0770 PROC INDTAB1(Z,I2,I3) 0780 H9=I2 DIV 32 0790 FOR I=E TO H9 0800 H=(I-E)*4+E 0810 GET I3$,I:Z(H),Z(H+E),Z(H+E),Z(H+G),Z(H+G),Z(H+V),Z(H+V) 0820 EXEC FE(G,E,I3$) 0830 NEXT I 0840 ENDPROC 0850 PROC DATOUD(I4,I5) 0860 I6=I4;I5$=" " 0870 FOR J=8 TO E STEP -E 0880 IF J MOD V=B THEN 0890 I5$(J)="." 0900 ELSE 0910 I5$(J)=CHR(I6 MOD 10+48);I6=I6 DIV 10 0920 ENDIF 0930 NEXT J 0940 ENDPROC 0950 PROC PGETUD(I7) 0960 IF I8<G THEN EXIT 0970 I=E;B6$="0+" 0980 CLEAR 0990 REPEAT 1000 CURSOR 8,13 1010 INPUT "Monter papir til udskrift af posteringsark og tast RETURN",A$ 1020 UNTIL ORD(A$)=255 1025 OUTPUT P 1030 REPEAT 1040 EXEC DATOUD(I9,B7$) 1060 PRINT TAB(67);B3$;" " 1070 PRINT TAB(W);CHR(14);"Posteringsark";CHR(15);TAB(44);"Dato:";B7$; 1080 PRINT TAB(61); 1090 PRINT USING "Side:####":I7 1100 I7=I7+E 1110 PRINT " " 1111 PRINT TAB(43);"Debet";TAB(70);"Kredit" 1120 PRINT TAB(V);"Bilag Tekst";TAB(39);"Konto Entre Beløb Konto "; 1121 PRINT " Entre" 1130 PRINT TAB(V);D1$ 1140 J0=E 1150 REPEAT 1160 GET B0$,I:J1,J2,J3,B8$,E0$,C0$,J4 1170 EXEC FE(V,G,B0$) 1180 J5=ORD(B8$)-48;J6=ORD(C0$)-48;I=I+E 1190 IF J5>W THEN 1200 GET B0$,I:J1,C1$ 1210 EXEC FE(V,V,B0$) 1220 I=I+E 1230 ELSE 1240 C1$=E2$(E:25) 1250 IF J5>B THEN C1$(E:10)=C3$(J5) 1260 ENDIF 1270 IF J6=B THEN 1280 EXEC CA(E,B6$,E0$,B6$) 1290 GET B0$,I:J7,J2,J3,B8$,E1$,C0$,J8 1300 EXEC FE(V,4,B0$) 1310 I=I+E 1320 IF J5>W THEN I=I+E 1330 ELSE 1340 IF E0$(LEN(E0$))="-" THEN 1350 J7=J1;J1=100000;J8=J4;J4=1000000 1360 ELSE 1370 J7=100000;J8=1000000 1380 ENDIF 1390 ENDIF 1400 EXEC CA(B,B6$,E0$,B6$) 1410 PRINT USING "####### ":J3; 1420 PRINT C1$;TAB(38); 1430 PRINT USING "###### ###### ":J1,J4; 1440 EXEC TUD(E0$,C4$,B,B) 1450 PRINT C4$; 1460 PRINT USING " ###### ######":J7,J8 1470 J0=J0+E 1480 UNTIL J0=37 OR I=I8 1490 IF J0=37 AND I<>I8 THEN 1500 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 1510 ELSE 1520 FOR J0=J0 TO 38 1530 PRINT " " 1540 NEXT J0 1550 PRINT TAB(V);D1$ 1560 EXEC TUD(B6$,C4$,E,B) 1570 PRINT TAB(27);CHR(14);"Difference";CHR(15);TAB(44);C4$ 1580 PRINT TAB(V);D1$ 1590 PRINT " " 1610 OUTPUT T 1620 ENDIF 1630 UNTIL I=I8 1640 ENDPROC 1650 PROC PPUT 1660 C0$=CHR(J6+48) 1670 IF J6=B THEN 1680 J9=I8;B8$=CHR(J5+48) 1690 PUT B0$,I8:J1,K0,J3,B8$,E0$,C0$,J4 1700 EXEC FE(G,G,B0$) 1710 I8=I8+E 1720 IF J5>W THEN 1730 PUT B0$,I8:J1,C1$ 1740 EXEC FE(G,V,B0$) 1750 I8=I8+E 1760 ENDIF 1770 PUT B0$,I8:J7,K0,J3,B8$,E1$,C0$,J8 1780 EXEC FE(G,4,B0$) 1790 I8=I8+E 1800 IF J5>W THEN 1810 PUT B0$,I8:J7,C1$ 1820 EXEC FE(G,5,B0$) 1830 I8=I8+E 1840 ENDIF 1850 ELSE 1860 FOR I=E TO K1 1870 IF C6(I)<>B THEN 1880 B8$=CHR(C8(I)+48) 1890 PUT B0$,I8:C6(I),C7(I),E3(I),B8$,E4$(I),C0$,E8(I) 1900 EXEC FE(G,6,B0$) 1910 I8=I8+E 1920 IF C8(I)>W THEN 1930 PUT B0$,I8:C6(I),C9$(I) 1940 EXEC FE(G,7,B0$) 1950 I8=I8+E 1960 ENDIF 1970 ENDIF 1980 NEXT I 1990 J9=I8;K1=B;K2=B;K3=I8-E 2000 EXEC SYSGEM 2010 ENDIF 2020 ENDPROC 2030 PROC SYSGEM 2040 A5(5)=K4;A5(8)=K5;A6(E)=K3;A7(E)=K6 2050 OPEN B2$,W 2060 EXEC FE(7,E,B2$) 2070 PUT B2$,G:A5(E),A5(G),A5(V),A5(4),A5(5),A5(6),A5(7),A5(8),A5(W) 2080 EXEC FE(7,G,B2$) 2090 PUT B2$,12:A6(E),A6(G),A6(V),A6(4),A6(5),A6(6),A6(7),A6(8),A6(W) 2100 EXEC FE(7,V,B2$) 2110 PUT B2$,13:A7(E),A7(G),A7(V),A7(4),A7(5),A7(6),A7(7),A7(8),A7(W) 2120 EXEC FE(7,4,B2$) 2130 CLOSE B2$ 2140 EXEC FE(7,5,B2$) 2150 ENDPROC 2160 PROC KNOK 2170 EXEC KTNV(K7,P) 2180 CURSOR 25,23 2190 PRINT A2$;E2$(E:30-LEN(A2$)) 2200 REPEAT 2210 CURSOR 55,23 2220 PRINT "Rigtig konto (J/N) " 2230 CURSOR 75,23 2240 INPUT A$ 2250 EXEC NRTEST(A$) 2260 UNTIL P=-7 OR P=-8 2270 ENDPROC 2280 PROC ENTKOOK(K8) 2290 A1$="Konto eksisterer ikke";A3$=E2$ 2300 EXEC FINDPOST1(K9,F7,L0,(K8 DIV 100),F9,E6$) 2310 IF F5=B THEN 2320 FOR L1=E TO L2+L3 2330 F5=B 2340 IF (K8 MOD 100)=L4(L1) AND L5$(L1)="0" THEN EXIT 2350 F5=E 2360 NEXT L1 2370 IF F5=B THEN 2380 GET B4$,F7(F9,G)+E:A1$ 2390 EXEC FE(99,10,B4$) 2400 GET E7$,L1:H3,A4$,A3$ 2410 EXEC FE(99,11,E7$) 2420 ENDIF 2430 ENDIF 2440 CURSOR E,23 2450 PRINT USING " ###### ":K8; 2460 PRINT A1$;" ";A3$;TAB(65);"Rigtig (J/N)" 2470 REPEAT 2480 CURSOR 71,23 2490 INPUT A$ 2500 EXEC NRTEST(A$) 2510 UNTIL P=-7 OR P=-8 2520 ENDPROC 2530 PROC KNUD(L6) 2540 IF F5=E THEN 2550 CURSOR G,L7+V 2560 PRINT E2$ 2570 IF J6=B THEN K5=K5-E 2580 L8=E 2590 ELSE 2600 CURSOR 38+7*(L8=4)+28*(L8=6)+35*(L8=7),L7+V 2610 PRINT USING "######":L6 2620 L7=L7+E*(L8=7);L8=4-V*(L8=7)+E*(L8=4)+V*(L8=6) 2630 ENDIF 2640 ENDPROC 2650 PROC TUD(L9,M0,M1,M2) 2660 EXEC CA(5,L9$,D0$,M0$) 2670 IF M1=B THEN M0$=M0$(E:13) 2680 IF M1=E AND M0$(LEN(M0$))="+" THEN M0$(LEN(M0$))=" " 2690 IF M2=E THEN M0$=M0$(V:LEN(M0$)-V) 2700 ENDPROC 2710 PROC FE(M3,M4,M5) 2720 IF STATUS(M5$)<>B THEN 2730 PRINT STATUS(M5$),M3,M4,M5$ 2740 STOP 2750 ENDIF 2760 ENDPROC 2770 PROC PSLET(M6) 2780 IF J6=B THEN 2790 IF J9=I8 THEN 2800 REPEAT 2810 CURSOR V,23 2820 PRINT "Posteringen kan ikke annuleres, tast RETURN"+E2$(E:34) 2830 CURSOR 48,23 2840 INPUT A$ 2850 EXEC NRTEST(A$) 2860 UNTIL P=-E 2870 ELSE 2880 L7=L7-E;K5=K5-E 2890 CURSOR V,L7+V 2900 PRINT E2$ 2910 FOR I=J9 TO I8-E 2920 PUT B0$,I:B 2930 EXEC FE(E,G,B0$) 2940 NEXT I 2950 I8=J9 2960 ENDIF 2970 ELSE 2980 IF K1>B THEN 2990 IF M6=E THEN 3000 CURSOR V,(P-E) MOD 18+4 3010 ELSE 3020 P=K1;L7=L7-E 3030 CURSOR V,L7+V 3040 ENDIF 3050 IF C8(P)>W THEN K2=K2-E 3060 PRINT E2$ 3070 EXEC CA(E,B6$,E4$(P),B6$) 3080 C6(P),E8(P),C7(P),E3(P),C8(P)=B;C9$(P)=E2$(E:25);E4$(P)="0+" 3090 IF M6=B THEN K1=K1-E;K2=K2-E 3100 ENDIF 3110 ENDIF 3120 ENDPROC 3130 PROC NRTEST(M7) 3140 P,M8,K7=B;M9=LEN(M7$) 3150 CASE M9 OF 3160 FOR I=E TO M9 3170 N0=INT(ORD(M7$(I))-48) 3180 IF N0=>B AND N0<=W THEN 3190 P=P*10+N0 3200 ELSE 3210 M8=E 3220 ENDIF 3230 NEXT I 3240 K7=P DIV 10000;N1=P DIV 1000 3250 IF G4=N1 THEN K7=N1 3260 WHEN B 3270 P=-E 3280 WHEN E 3290 CASE M7$ OF 3300 P=INT(ORD(M7$)-48) 3310 WHEN "d","D" 3320 P=-G 3330 WHEN "A","a" 3340 P=-V 3350 WHEN "M","m" 3360 P=-4 3370 WHEN "J","j" 3380 P=-7 3390 WHEN "N","n" 3400 P=-8 3410 ENDCASE 3420 ENDCASE 3430 ENDPROC 3440 PROC FORTEGN 3450 M9=LEN(D8$) 3460 IF M9=B THEN D8$="0+";M9=G 3470 IF D8$(M9)<>"+" AND D8$(M9)<>"-" THEN 3480 D8$=D8$+"+" 3490 ELSE 3500 D8$(M9)="+" 3510 ENDIF 3520 ENDPROC 3530 PROC UDHOVED 3540 CURSOR G,E 3550 EXEC DATOUD(K0,B7$) 3560 PRINT TAB(20);"Posteringsark";E2$(E:25);"Dato:";B7$ 3570 CURSOR G,V 3580 PRINT "Nr Bilag Tekst";E2$(E:21);"Debet Entre Beløb K"; 3590 PRINT "redit Entre" 3600 ENDPROC 3610 PROC UDLINIE 3620 CURSOR E,4 3630 PRINT USING "### ####### ":L7,J3; 3640 IF J5<>B THEN PRINT D6$ 3650 CURSOR 38,4 3660 PRINT USING "###### ###### ":J1,J4; 3670 EXEC TUD(E0$,C4$,B,B) 3680 PRINT C4$; 3690 PRINT USING " ###### ######":J7,J8 3700 ENDPROC 3710 PROC NYDATO 3720 REPEAT 3730 CURSOR V,23 3740 PRINT "Ny dato (ÅÅMMDD)"+E2$(E:51) 3750 CURSOR 11,23 3760 INPUT B7$ 3770 EXEC NRTEST(B7$) 3780 UNTIL K7>79 AND (P DIV 100) MOD 100<13 AND P MOD 100<32 3790 K0=P 3800 ENDPROC 3810 B5$="P641220:SYSTEM1" 3820 REPEAT 3830 P=-E 3840 OPEN B5$,R 3850 IF STATUS(B5$)<>B THEN 3860 CLEAR 3870 CURSOR 25,13 3880 INPUT "Isæt plade nr. 20 ,tast RETURN",A$ 3890 EXEC NRTEST(A$) 3900 P=B 3910 ENDIF 3920 UNTIL P=-E 3930 GET B5$,E:F8,G3,G7 3940 EXEC FE(W,E,B5$) 3950 GET B5$,G:N2,N3,N4 3960 EXEC FE(W,G,B5$) 3970 GET B5$,4:N5,N6,N7,G1 3980 EXEC FE(W,V,B5$) 3990 GET B5$,5:G5 4000 EXEC FE(W,4,B5$) 4010 GET B5$,8:N8,N9,O0,G0 4020 EXEC FE(W,5,B5$) 4030 GET B5$,W:G4,O1,L0,L3 4040 EXEC FE(W,6,B5$) 4050 GET B5$,10:N$ 4060 EXEC FE(W,7,B5$) 4070 GET B5$,11:D9$ 4080 EXEC FE(W,8,B5$) 4090 GET B5$,12:E5$ 4100 EXEC FE(W,W,B5$) 4110 GET B5$,13:C2$ 4120 EXEC FE(W,10,B5$) 4130 GET B5$,15:D2$ 4140 EXEC FE(W,11,B5$) 4150 GET B5$,16:A8$ 4160 EXEC FE(W,12,B5$) 4170 GET B5$,17:A9$ 4180 EXEC FE(W,13,B5$) 4190 GET B5$,20:B0$ 4200 EXEC FE(W,14,B5$) 4210 GET B5$,21:B1$ 4220 EXEC FE(W,15,B5$) 4230 GET B5$,36:B2$ 4240 EXEC FE(W,16,B5$) 4250 GET B5$,37:B4$ 4260 EXEC FE(99,E,B5$) 4270 GET B5$,38:E6$ 4280 EXEC FE(99,G,B5$) 4290 GET B5$,39:E7$ 4300 EXEC FE(99,V,B5$) 4310 GET B5$,43:L2 4320 EXEC FE(99,4,B5$) 4330 CLOSE B5$ 4340 EXEC FE(W,17,B5$) 4350 DIM F6(F8 DIV 8),G2(G3 DIV 8),G6(G7 DIV 8) 4360 DIM F7(8,G),K9(L0 DIV 8) 4370 DIM L4(L3+L2),L5$(L3+L2) 4380 D9$=N$+D9$;E5$=N$+E5$;C2$=N$+C2$;D2$=N$+D2$;A8$=N$+A8$;A9$=N$+A9$ 4390 B0$=N$+B0$;B1$=N$+B1$;B2$=N$+B2$;B4$=N$+B4$;E6$=N$+E6$ 4400 E7$=N$+E7$ 4410 OPEN B2$,R 4420 EXEC FE(W,18,B2$) 4430 GET B2$,G:A5(E),A5(G),A5(V),A5(4),A5(5),A5(6),A5(7),A5(8),A5(W) 4440 EXEC FE(W,19,B2$) 4450 FOR I=E TO V 4460 H=(I-E)*V+E 4470 GET B2$,I+5:C3$(H),C3$(H+E),C3$(H+G) 4480 EXEC FE(W,20,B2$) 4490 NEXT I 4500 GET B2$,12:A6(E),A6(G),A6(V),A6(4),A6(5),A6(6),A6(7),A6(8),A6(W) 4510 EXEC FE(W,21,B2$) 4520 GET B2$,13:A7(E),A7(G),A7(V),A7(4),A7(5),A7(6),A7(7),A7(8),A7(W) 4530 EXEC FE(W,22,B2$) 4540 GET B2$,20:B3$ 4550 EXEC FE(W,35,B2$) 4560 CLOSE B2$ 4570 EXEC FE(W,23,B2$) 4580 OPEN D9$,R 4590 EXEC FE(W,24,D9$) 4600 OPEN E5$,R 4610 EXEC FE(W,25,E5$) 4620 OPEN C2$,R 4630 EXEC FE(W,26,C2$) 4640 OPEN D2$,R 4650 EXEC FE(W,27,D2$) 4660 OPEN A8$,R 4670 EXEC FE(W,28,A8$) 4680 OPEN A9$,R 4690 EXEC FE(W,29,A9$) 4700 OPEN B0$,W 4710 EXEC FE(W,30,B0$) 4720 OPEN B4$,R 4730 EXEC FE(99,5,B4$) 4740 OPEN E6$,R 4750 EXEC FE(99,6,E6$) 4760 OPEN E7$,R 4770 EXEC FE(99,7,E7$) 4780 K4=A5(5);I9=A5(7);K5=A5(8);K3=A6(E);K6=A7(E) 4790 EXEC INDTAB1(F6,F8,D9$) 4800 EXEC INDTAB1(G2,G3,E5$) 4810 EXEC INDTAB1(G6,G7,C2$) 4820 EXEC INDTAB1(K9,L0,E6$) 4830 FOR O2=E TO L3+L2 4840 GET E7$,O2:L4(O2),L5$(O2) 4850 EXEC FE(99,8,E7$) 4860 NEXT O2 4870 E2$=" " 4880 E2$=E2$+" " 4890 D0$="0+";K0=I9;I8=K3+E;J9=I8;K1=B;L7=E;J6=B 4900 L8=E;B6$="0+";D1$="---------------------------------------" 4910 D1$=D1$+D1$;K2=B 4920 CLEAR 4930 EXEC UDHOVED 4940 REPEAT 4950 CASE L8 OF 4960 STOP 4970 WHEN E 4980 REPEAT 4990 REPEAT 5000 CURSOR V,23 5010 PRINT "Bilag (0:færdig,RETURN:automatisk,A:annuller,D:ny dato,"; 5020 PRINT "M:afslut multi)" 5030 CURSOR 8,23 5040 INPUT D3$ 5050 EXEC NRTEST(D3$) 5060 UNTIL P=>-4 AND M8=B AND M9<=6 5070 O3=I8+K2 5080 IF (O3>N3-V OR K1=35 OR O3+A7(E)+A6(G)>N4-V) THEN 5090 IF P<>-V THEN P=B 5100 ENDIF 5110 IF P<>B AND P>-G AND L7=19 THEN 5120 CLEAR 5130 EXEC UDHOVED 5140 L7=E 5150 EXEC SYSGEM 5160 EXEC UDLINIE 5170 L7=L7+E 5180 ENDIF 5190 REPEAT 5200 O4=-E 5210 CASE P OF 5220 J3,K5=P;P=-W;L8=G 5230 CURSOR E,L7+V 5240 PRINT USING "### #######":L7,J3 5250 WHEN B 5260 IF J6=B THEN 5270 IF I8>N3-V OR O3+A7(E)+A6(G)>N4-V THEN 5280 REPEAT 5290 CURSOR V,23 5300 PRINT "Ikke plads til flere posteringer , tast RETURN";E2$(E:30) 5310 CURSOR 50,23 5320 INPUT A$ 5330 EXEC NRTEST(A$) 5340 UNTIL P=-E 5350 ENDIF 5360 P=-W;L8=8 5370 ELSE 5380 IF O3>N3-V OR K1=35 OR O3+A7(E)+A6(G)>N4-V THEN 5390 EXEC CA(4,D0$,B6$,D0$) 5400 IF SI<>B THEN 5410 EXEC TUD(B6$,C4$,E,B) 5420 REPEAT 5430 CURSOR V,23 5440 PRINT "Ikke plads til flere posteringer,";C4$;" på differencekonto"; 5450 PRINT ",RETURN" 5460 CURSOR 76,23 5470 INPUT A$ 5480 EXEC NRTEST(A$) 5490 UNTIL P=-E 5500 K1=K1+E;K2=K2+G 5510 IF B6$(LEN(B6$))="+" THEN 5520 E4$(K1)=B6$(E:LEN(B6$)-E)+"-" 5530 ELSE 5540 E4$(K1)=B6$(E:LEN(B6$)-E)+"+" 5550 ENDIF 5560 EXEC CA(B,B6$,E4$(K1),B6$) 5570 C6(K1)=O0;C8(K1)=10;C7(K1)=K0;E3(K1)=J3 5580 C9$(K1)="Difference multipostering";E8(K1)=1000000 5590 ENDIF 5600 O4=B;P=-4 5610 ELSE 5620 REPEAT 5630 CURSOR V,23 5640 PRINT "Multipostering ikke afsluttet , tast RETURN"+E2$(E:34) 5650 CURSOR 46,23 5660 INPUT A$ 5670 EXEC NRTEST(A$) 5680 UNTIL P=-E 5690 ENDIF 5700 ENDIF 5710 WHEN -E 5720 IF J6=B THEN K5=K5+E 5730 P=K5;O4=B 5740 WHEN -G 5750 EXEC NYDATO 5760 EXEC UDHOVED 5770 WHEN -V 5780 EXEC PSLET(0) 5790 WHEN -4 5800 IF J6=B THEN EXIT 5810 EXEC CA(4,D0$,B6$,D0$) 5820 IF SI<>B THEN 5830 REPEAT 5840 EXEC TUD(B6$,C4$,E,B) 5850 REPEAT 5860 CURSOR V,23 5870 PRINT "Multipostering kan ikke afsluttes , difference :";C4$;" tas"; 5880 PRINT "t RETURN " 5890 CURSOR 79,23 5900 INPUT A$ 5910 EXEC NRTEST(A$) 5920 UNTIL P=-E 5930 CLEAR 5940 O2=E 5950 REPEAT 5960 EXEC UDHOVED 5970 REPEAT 5980 IF E3(O2)<>B AND LEN(E4$(O2))>B THEN 5990 EXEC CA(5,E4$(O2),D0$,C4$) 6000 CURSOR E,(O2-E) MOD 18+4 6010 PRINT USING "### ####### ":O2,E3(O2); 6020 IF C8(O2)>W THEN 6030 PRINT C9$(O2); 6040 ELSE 6050 IF C8(O2)<>B THEN PRINT C3$(C8(O2)); 6060 ENDIF 6070 LOG=B 6080 CURSOR 38,(O2-E) MOD 18+4 6090 IF E4$(O2,LEN(E4$(O2)))="-" THEN LOG=E 6100 PRINT USING "###### ######":C6(O2)+100000*(LOG=E),E8(O2)+100000*(LOG=E); 6110 PRINT C4$(E:13); 6120 PRINT USING " ###### ######":C6(O2)+100000*(LOG=B);E8(O2)+100000*(LOG=B) 6130 ENDIF 6140 O2=O2+E 6150 UNTIL O2=K1+E OR O2 MOD 19=B 6160 REPEAT 6170 REPEAT 6180 CURSOR V,23 6190 PRINT "Type (1-36:Annulering,0:færdig,N:ny post,RETURN:ny sid"; 6200 PRINT "e)"+E2$(E:10) 6210 CURSOR 8,23 6220 INPUT D4$ 6230 EXEC NRTEST(D4$) 6240 UNTIL (P<37 AND P>-G) OR P=-8 6250 CASE P OF 6260 IF P<=K1 AND P<O2 THEN EXEC PSLET(1) 6270 WHEN B 6280 EXEC CA(4,D0$,B6$,D0$) 6290 IF SI<>B THEN 6300 P=-G 6310 ELSE 6320 EXEC PPUT 6330 J6=B 6340 ENDIF 6350 WHEN -E 6360 IF K1>18 AND O2<K1 THEN 6370 CLEAR 6380 ELSE 6390 P=E 6400 ENDIF 6410 WHEN -8 6420 P=B 6430 L7=(O2-E) MOD 18+E 6440 ENDCASE 6450 UNTIL P<E AND P>-V 6460 UNTIL P=B OR P=-G 6470 UNTIL P=B 6480 ELSE 6490 EXEC PPUT 6500 J6=B 6510 ENDIF 6520 ENDCASE 6530 UNTIL O4=-E 6540 UNTIL P=-W 6550 WHEN G 6560 REPEAT 6570 REPEAT 6580 CURSOR V,23 6590 PRINT "Tekst (max 25 tegn,0-19:tekstkode)"; 6600 PRINT E2$(E:14) 6610 CURSOR 10,23 6620 INPUT D5$ 6630 UNTIL LEN(D5$)<26 6640 IF LEN(D5$)<V THEN 6650 EXEC NRTEST(D5$) 6660 ELSE 6670 P=20;M8=B 6680 ENDIF 6690 UNTIL P=>B AND P<21 AND M8=B AND P<>10 6700 IF P<>B THEN 6710 O5=P MOD 10 6720 IF P=20 THEN 6730 P=10;C1$=D5$;D6$=C1$ 6740 ELSE 6750 D6$=C3$(O5)+E2$(E:15) 6760 IF P>10 THEN 6770 REPEAT 6780 CURSOR V,23 6790 PRINT "Tekst (max 14 tegn)"+E2$(E:42) 6800 CURSOR 10,23 6810 INPUT D5$ 6820 UNTIL LEN(D5$)<15 6830 D6$(12,25)=D5$;C1$=D6$ 6840 ENDIF 6850 ENDIF 6860 CURSOR 13,L7+V 6870 PRINT D6$ 6880 ENDIF 6890 J5=P;L8=V 6900 WHEN V 6910 REPEAT 6920 REPEAT 6930 CURSOR V,23 6940 PRINT "Debet-konto (RETURN:overspringes)"+E2$(E:34) 6950 CURSOR 16,23 6960 INPUT D7$ 6970 EXEC NRTEST(D7$) 6980 UNTIL (((K7<10 AND K7>B) OR K7=G4) AND M8=B) OR P=-E 6990 IF P=-E THEN 7000 J1=100000;J6,O6=E;F5=B 7010 ELSE 7020 O6=B;J1=P 7030 EXEC KNOK 7040 ENDIF 7050 UNTIL P=-E OR P=-7 7060 EXEC KNUD(J1) 7070 WHEN 4 7080 J4=1000000;F5=B 7090 IF J1<>100000 THEN 7100 REPEAT 7110 REPEAT 7120 CURSOR V,23 7130 PRINT "Debet-entreprisekonto (RETURN:overspringes)";E2$(E:25) 7140 CURSOR 25,23 7150 INPUT D7$ 7160 EXEC NRTEST(D7$) 7170 UNTIL M9=5 AND M8=B OR P=-E 7180 J4=1000000;F5=B 7190 IF P=-E THEN EXIT 7200 J4=P 7210 EXEC ENTKOOK(J4) 7220 UNTIL P=-7 7230 ENDIF 7240 EXEC KNUD(J4) 7250 WHEN 5 7260 REPEAT 7270 REPEAT 7280 CURSOR V,23 7290 PRINT "Beløb"+E2$(E:71) 7300 CURSOR 10,23 7310 INPUT D8$ 7320 EXEC FORTEGN 7330 EXEC CA(6,D8$,D0$,C4$) 7340 UNTIL FLAG=B 7350 EXEC CA(4,D8$,D0$,D0$) 7360 UNTIL SI<>B 7370 E1$=D8$(E:LEN(D8$)-E)+"-";E0$=D8$;L8=6 7380 EXEC TUD(D8$,C4$,B,B) 7390 CURSOR 51,L7+V 7400 PRINT C4$ 7410 WHEN 6 7420 REPEAT 7430 REPEAT 7440 CURSOR V,23 7450 PRINT "Kredit-konto (RETURN:overspringes,A:annuller)"; 7460 PRINT " " 7470 CURSOR 17,23 7480 INPUT D7$ 7490 EXEC NRTEST(D7$) 7500 UNTIL (((K7<10 AND K7>B) OR K7=G4) AND M8=B) OR P=-E OR P=-V 7510 IF P=-E THEN 7520 IF O6=B THEN 7530 P,F5=B;J7=100000;J6=E;K1=K1+E;K2=K2+E;C6(K1)=J1 7540 C7(K1)=K0;E3(K1)=J3;C8(K1)=J5;E4$(K1)=E0$ 7550 EXEC CA(B,B6$,E0$,B6$) 7560 C9$(K1)=E2$(E:25);E8(K1)=J4 7570 IF J5>W THEN C9$(K1)=C1$;K2=K2+E 7580 EXEC KNUD(J7) 7590 ENDIF 7600 ELSE 7610 IF P=-V THEN 7620 F5=E 7630 EXEC KNUD(P) 7640 ELSE 7650 O7=J6+O6 7660 CASE O7 OF 7670 STOP 7680 WHEN B 7690 J7=P 7700 EXEC KNOK 7710 IF P=-7 THEN EXEC KNUD(J7) 7750 WHEN E 7760 REPEAT 7770 CURSOR V,23 7780 PRINT "Multipostering ikke afsluttet , tast RETURN"+E2$(E:34) 7790 CURSOR 46,23 7800 INPUT A$ 7810 EXEC NRTEST(A$) 7820 UNTIL P=-E 7830 WHEN G 7840 J7=P 7850 EXEC KNOK 7860 IF P=-7 THEN 7870 EXEC KNUD(J7) 7880 IF F5=B THEN 7890 EXEC CA(B,B6$,E1$,B6$) 7900 K1=K1+E;K2=K2+E;C6(K1)=J7;C7(K1)=K0;E3(K1)=J3 7910 C8(K1)=J5;E4$(K1)=E1$;C9$(K1)=E2$(E:25) 7920 E4$(K1)=E1$ 7930 IF J5>W THEN C9$(K1)=C1$;K2=K2+E 7940 ENDIF 7950 ENDIF 7960 ENDCASE 7970 ENDIF 7980 ENDIF 7990 UNTIL P=B OR P=-V OR P=-7 8000 WHEN 7 8010 J8=1000000;F5=B 8020 IF J7<>100000 THEN 8030 REPEAT 8040 REPEAT 8050 CURSOR V,23 8060 PRINT "Kredit-entreprisekonto (RETURN:overspringes)";E2$(E:24) 8070 CURSOR 26,23 8080 INPUT D7$ 8090 EXEC NRTEST(D7$) 8100 UNTIL M9=5 AND M8=B OR P=-E 8110 J8=1000000;F5=B 8120 IF P=-E THEN EXIT 8130 J8=P 8140 EXEC ENTKOOK(J8) 8150 UNTIL P=-7 8160 ENDIF 8170 EXEC KNUD(J8) 8180 IF J6+O6=G AND F5=B THEN E8(K1)=J8 8185 IF J6+O6=B THEN EXEC PPUT 8190 WHEN 8 8200 REPEAT 8210 CURSOR V,23 8220 PRINT "Ønskes afslutning (J/N)"+E2$(E:54) 8230 CURSOR 27,23 8240 INPUT A$ 8250 EXEC NRTEST(A$) 8260 UNTIL P=-7 OR P=-8 8270 IF P=-7 THEN 8280 OPEN B1$,W 8290 EXEC FE(W,32,B1$) 8300 FOR I=E TO I8-E 8310 GET B0$,I:J1,J2,J3,B8$,E0$,C0$,J4 8320 EXEC FE(W,33,B0$) 8330 K6=K6+E;C0$="2" 8340 PUT B1$,K6:J1,J2,J3,B8$,E0$,C0$,J4 8350 EXEC FE(W,34,B1$) 8360 IF ORD(B8$)-48>W THEN 8370 I=I+E;K6=K6+E 8380 GET B0$,I:J1,C1$ 8390 EXEC FE(W,35,B0$) 8400 PUT B1$,K6:J1,C1$ 8410 EXEC FE(W,36,B1$) 8420 ENDIF 8430 NEXT I 8440 CLOSE B1$ 8450 EXEC FE(W,38,B1$) 8460 EXEC PGETUD(K4) 8470 K3=B 8480 ELSE 8490 REPEAT 8500 CURSOR V,23 8510 PRINT "Ønskes kontroludskrift (J/N)"+E2$(E:49) 8520 CURSOR 31,23 8530 INPUT A$ 8540 EXEC NRTEST(A$) 8550 UNTIL P=-7 OR P=-8 8560 IF P=-7 THEN EXEC PGETUD(1) 8570 K3=I8-E 8580 ENDIF 8590 L8=-E 8600 ENDCASE 8610 UNTIL L8=-E 8620 CLOSE B0$ 8630 EXEC FE(W,40,B0$) 8640 CLOSE 8650 EXEC SYSGEM 8660 OUTPUT T 8670 CHAIN "P641210:OPSTART"
0x0000…004a (0,) 8da1 0100 DIM A1$(29),A2$(25),N$(6),A3$(25),A4$(E),A5(W),A6(W)
0x0000…004a LineComalBin {
0x0000…004a ptr = 0x8da1 // 0x0 @0x0
0x0000…004a lno = 0x0064 // 0x2 @0x2
0x0000…004a at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…004a at0005 = ╱41╱A╱ // 0x5 @0x5
0x0000…004a at0006 = ╱31╱1╱ // 0x6 @0x6
0x0000…004a at0007 = ╱ef╱$╱ // 0x7 @0x7
0x0000…004a at0008 = ╱ed╱(╱ // 0x8 @0x8
0x0000…004a at0009 = ╱32╱2╱ // 0x9 @0x9
0x0000…004a at000a = ╱39╱9╱ // 0xa @0xa
0x0000…004a at000b = ╱fe0000e805╱ // 0xb @0xb
0x0000…004a at0010 = ╱ee╱)╱ // 0x10 @0x10
0x0000…004a at0011 = ╱ec╱,╱ // 0x11 @0x11
0x0000…004a at0012 = ╱41╱A╱ // 0x12 @0x12
0x0000…004a at0013 = ╱32╱2╱ // 0x13 @0x13
0x0000…004a at0014 = ╱ef╱$╱ // 0x14 @0x14
0x0000…004a at0015 = ╱ed╱(╱ // 0x15 @0x15
0x0000…004a at0016 = ╱32╱2╱ // 0x16 @0x16
0x0000…004a at0017 = ╱35╱5╱ // 0x17 @0x17
0x0000…004a at0018 = ╱fe0000c805╱ // 0x18 @0x18
0x0000…004a at001d = ╱ee╱)╱ // 0x1d @0x1d
0x0000…004a at001e = ╱ec╱,╱ // 0x1e @0x1e
0x0000…004a at001f = ╱4e╱N╱ // 0x1f @0x1f
0x0000…004a at0020 = ╱ef╱$╱ // 0x20 @0x20
0x0000…004a at0021 = ╱ed╱(╱ // 0x21 @0x21
0x0000…004a at0022 = ╱36╱6╱ // 0x22 @0x22
0x0000…004a at0023 = ╱fe0000c003╱ // 0x23 @0x23
0x0000…004a at0028 = ╱ee╱)╱ // 0x28 @0x28
0x0000…004a at0029 = ╱ec╱,╱ // 0x29 @0x29
0x0000…004a at002a = ╱41╱A╱ // 0x2a @0x2a
0x0000…004a at002b = ╱33╱3╱ // 0x2b @0x2b
0x0000…004a at002c = ╱ef╱$╱ // 0x2c @0x2c
0x0000…004a at002d = ╱ed╱(╱ // 0x2d @0x2d
0x0000…004a at002e = ╱32╱2╱ // 0x2e @0x2e
0x0000…004a at002f = ╱35╱5╱ // 0x2f @0x2f
0x0000…004a at0030 = ╱fe0000c805╱ // 0x30 @0x30
0x0000…004a at0035 = ╱ee╱)╱ // 0x35 @0x35
0x0000…004a at0036 = ╱ec╱,╱ // 0x36 @0x36
0x0000…004a at0037 = ╱41╱A╱ // 0x37 @0x37
0x0000…004a at0038 = ╱34╱4╱ // 0x38 @0x38
0x0000…004a at0039 = ╱ef╱$╱ // 0x39 @0x39
0x0000…004a at003a = ╱ed╱(╱ // 0x3a @0x3a
0x0000…004a at003b = ╱45╱E╱ // 0x3b @0x3b
0x0000…004a at003c = ╱ee╱)╱ // 0x3c @0x3c
0x0000…004a at003d = ╱ec╱,╱ // 0x3d @0x3d
0x0000…004a at003e = ╱41╱A╱ // 0x3e @0x3e
0x0000…004a at003f = ╱35╱5╱ // 0x3f @0x3f
0x0000…004a at0040 = ╱ed╱(╱ // 0x40 @0x40
0x0000…004a at0041 = ╱57╱W╱ // 0x41 @0x41
0x0000…004a at0042 = ╱ee╱)╱ // 0x42 @0x42
0x0000…004a at0043 = ╱ec╱,╱ // 0x43 @0x43
0x0000…004a at0044 = ╱41╱A╱ // 0x44 @0x44
0x0000…004a at0045 = ╱36╱6╱ // 0x45 @0x45
0x0000…004a at0046 = ╱ed╱(╱ // 0x46 @0x46
0x0000…004a at0047 = ╱57╱W╱ // 0x47 @0x47
0x0000…004a at0048 = ╱ee╱)╱ // 0x48 @0x48
0x0000…004a at0049 = EOL // 0x49 @0x49
0x0000…004a }
0x004a…00b0 8e07 0110 DIM A7(W),A8$(17),A9$(17),B0$(17),B1$(17),B2$(17),B3$(10),B4$(17)
0x004a…00b0 LineComalBin {
0x004a…00b0 ptr = 0x8e07 // 0x4a @0x0
0x004a…00b0 lno = 0x006e // 0x4c @0x2
0x004a…00b0 at0004 = ╱87╱ DIM ╱ // 0x4e @0x4
0x004a…00b0 at0005 = ╱41╱A╱ // 0x4f @0x5
0x004a…00b0 at0006 = ╱37╱7╱ // 0x50 @0x6
0x004a…00b0 at0007 = ╱ed╱(╱ // 0x51 @0x7
0x004a…00b0 at0008 = ╱57╱W╱ // 0x52 @0x8
0x004a…00b0 at0009 = ╱ee╱)╱ // 0x53 @0x9
0x004a…00b0 at000a = ╱ec╱,╱ // 0x54 @0xa
0x004a…00b0 at000b = ╱41╱A╱ // 0x55 @0xb
0x004a…00b0 at000c = ╱38╱8╱ // 0x56 @0xc
0x004a…00b0 at000d = ╱ef╱$╱ // 0x57 @0xd
0x004a…00b0 at000e = ╱ed╱(╱ // 0x58 @0xe
0x004a…00b0 at000f = ╱31╱1╱ // 0x59 @0xf
0x004a…00b0 at0010 = ╱37╱7╱ // 0x5a @0x10
0x004a…00b0 at0011 = ╱fe00008805╱ // 0x5b @0x11
0x004a…00b0 at0016 = ╱ee╱)╱ // 0x60 @0x16
0x004a…00b0 at0017 = ╱ec╱,╱ // 0x61 @0x17
0x004a…00b0 at0018 = ╱41╱A╱ // 0x62 @0x18
0x004a…00b0 at0019 = ╱39╱9╱ // 0x63 @0x19
0x004a…00b0 at001a = ╱ef╱$╱ // 0x64 @0x1a
0x004a…00b0 at001b = ╱ed╱(╱ // 0x65 @0x1b
0x004a…00b0 at001c = ╱31╱1╱ // 0x66 @0x1c
0x004a…00b0 at001d = ╱37╱7╱ // 0x67 @0x1d
0x004a…00b0 at001e = ╱fe00008805╱ // 0x68 @0x1e
0x004a…00b0 at0023 = ╱ee╱)╱ // 0x6d @0x23
0x004a…00b0 at0024 = ╱ec╱,╱ // 0x6e @0x24
0x004a…00b0 at0025 = ╱42╱B╱ // 0x6f @0x25
0x004a…00b0 at0026 = ╱30╱0╱ // 0x70 @0x26
0x004a…00b0 at0027 = ╱ef╱$╱ // 0x71 @0x27
0x004a…00b0 at0028 = ╱ed╱(╱ // 0x72 @0x28
0x004a…00b0 at0029 = ╱31╱1╱ // 0x73 @0x29
0x004a…00b0 at002a = ╱37╱7╱ // 0x74 @0x2a
0x004a…00b0 at002b = ╱fe00008805╱ // 0x75 @0x2b
0x004a…00b0 at0030 = ╱ee╱)╱ // 0x7a @0x30
0x004a…00b0 at0031 = ╱ec╱,╱ // 0x7b @0x31
0x004a…00b0 at0032 = ╱42╱B╱ // 0x7c @0x32
0x004a…00b0 at0033 = ╱31╱1╱ // 0x7d @0x33
0x004a…00b0 at0034 = ╱ef╱$╱ // 0x7e @0x34
0x004a…00b0 at0035 = ╱ed╱(╱ // 0x7f @0x35
0x004a…00b0 at0036 = ╱31╱1╱ // 0x80 @0x36
0x004a…00b0 at0037 = ╱37╱7╱ // 0x81 @0x37
0x004a…00b0 at0038 = ╱fe00008805╱ // 0x82 @0x38
0x004a…00b0 at003d = ╱ee╱)╱ // 0x87 @0x3d
0x004a…00b0 at003e = ╱ec╱,╱ // 0x88 @0x3e
0x004a…00b0 at003f = ╱42╱B╱ // 0x89 @0x3f
0x004a…00b0 at0040 = ╱32╱2╱ // 0x8a @0x40
0x004a…00b0 at0041 = ╱ef╱$╱ // 0x8b @0x41
0x004a…00b0 at0042 = ╱ed╱(╱ // 0x8c @0x42
0x004a…00b0 at0043 = ╱31╱1╱ // 0x8d @0x43
0x004a…00b0 at0044 = ╱37╱7╱ // 0x8e @0x44
0x004a…00b0 at0045 = ╱fe00008805╱ // 0x8f @0x45
0x004a…00b0 at004a = ╱ee╱)╱ // 0x94 @0x4a
0x004a…00b0 at004b = ╱ec╱,╱ // 0x95 @0x4b
0x004a…00b0 at004c = ╱42╱B╱ // 0x96 @0x4c
0x004a…00b0 at004d = ╱33╱3╱ // 0x97 @0x4d
0x004a…00b0 at004e = ╱ef╱$╱ // 0x98 @0x4e
0x004a…00b0 at004f = ╱ed╱(╱ // 0x99 @0x4f
0x004a…00b0 at0050 = ╱31╱1╱ // 0x9a @0x50
0x004a…00b0 at0051 = ╱30╱0╱ // 0x9b @0x51
0x004a…00b0 at0052 = ╱fe0000a004╱ // 0x9c @0x52
0x004a…00b0 at0057 = ╱ee╱)╱ // 0xa1 @0x57
0x004a…00b0 at0058 = ╱ec╱,╱ // 0xa2 @0x58
0x004a…00b0 at0059 = ╱42╱B╱ // 0xa3 @0x59
0x004a…00b0 at005a = ╱34╱4╱ // 0xa4 @0x5a
0x004a…00b0 at005b = ╱ef╱$╱ // 0xa5 @0x5b
0x004a…00b0 at005c = ╱ed╱(╱ // 0xa6 @0x5c
0x004a…00b0 at005d = ╱31╱1╱ // 0xa7 @0x5d
0x004a…00b0 at005e = ╱37╱7╱ // 0xa8 @0x5e
0x004a…00b0 at005f = ╱fe00008805╱ // 0xa9 @0x5f
0x004a…00b0 at0064 = ╱ee╱)╱ // 0xae @0x64
0x004a…00b0 at0065 = EOL // 0xaf @0x65
0x004a…00b0 }
0x00b0…0103 8e5a 0120 DIM B5$(17),B6$(12),B7$(8),B8$(E),B9$(12),C0$(E),C1$(25)
0x00b0…0103 LineComalBin {
0x00b0…0103 ptr = 0x8e5a // 0xb0 @0x0
0x00b0…0103 lno = 0x0078 // 0xb2 @0x2
0x00b0…0103 at0004 = ╱87╱ DIM ╱ // 0xb4 @0x4
0x00b0…0103 at0005 = ╱42╱B╱ // 0xb5 @0x5
0x00b0…0103 at0006 = ╱35╱5╱ // 0xb6 @0x6
0x00b0…0103 at0007 = ╱ef╱$╱ // 0xb7 @0x7
0x00b0…0103 at0008 = ╱ed╱(╱ // 0xb8 @0x8
0x00b0…0103 at0009 = ╱31╱1╱ // 0xb9 @0x9
0x00b0…0103 at000a = ╱37╱7╱ // 0xba @0xa
0x00b0…0103 at000b = ╱fe00008805╱ // 0xbb @0xb
0x00b0…0103 at0010 = ╱ee╱)╱ // 0xc0 @0x10
0x00b0…0103 at0011 = ╱ec╱,╱ // 0xc1 @0x11
0x00b0…0103 at0012 = ╱42╱B╱ // 0xc2 @0x12
0x00b0…0103 at0013 = ╱36╱6╱ // 0xc3 @0x13
0x00b0…0103 at0014 = ╱ef╱$╱ // 0xc4 @0x14
0x00b0…0103 at0015 = ╱ed╱(╱ // 0xc5 @0x15
0x00b0…0103 at0016 = ╱31╱1╱ // 0xc6 @0x16
0x00b0…0103 at0017 = ╱32╱2╱ // 0xc7 @0x17
0x00b0…0103 at0018 = ╱fe0000c004╱ // 0xc8 @0x18
0x00b0…0103 at001d = ╱ee╱)╱ // 0xcd @0x1d
0x00b0…0103 at001e = ╱ec╱,╱ // 0xce @0x1e
0x00b0…0103 at001f = ╱42╱B╱ // 0xcf @0x1f
0x00b0…0103 at0020 = ╱37╱7╱ // 0xd0 @0x20
0x00b0…0103 at0021 = ╱ef╱$╱ // 0xd1 @0x21
0x00b0…0103 at0022 = ╱ed╱(╱ // 0xd2 @0x22
0x00b0…0103 at0023 = ╱38╱8╱ // 0xd3 @0x23
0x00b0…0103 at0024 = ╱fe00008004╱ // 0xd4 @0x24
0x00b0…0103 at0029 = ╱ee╱)╱ // 0xd9 @0x29
0x00b0…0103 at002a = ╱ec╱,╱ // 0xda @0x2a
0x00b0…0103 at002b = ╱42╱B╱ // 0xdb @0x2b
0x00b0…0103 at002c = ╱38╱8╱ // 0xdc @0x2c
0x00b0…0103 at002d = ╱ef╱$╱ // 0xdd @0x2d
0x00b0…0103 at002e = ╱ed╱(╱ // 0xde @0x2e
0x00b0…0103 at002f = ╱45╱E╱ // 0xdf @0x2f
0x00b0…0103 at0030 = ╱ee╱)╱ // 0xe0 @0x30
0x00b0…0103 at0031 = ╱ec╱,╱ // 0xe1 @0x31
0x00b0…0103 at0032 = ╱42╱B╱ // 0xe2 @0x32
0x00b0…0103 at0033 = ╱39╱9╱ // 0xe3 @0x33
0x00b0…0103 at0034 = ╱ef╱$╱ // 0xe4 @0x34
0x00b0…0103 at0035 = ╱ed╱(╱ // 0xe5 @0x35
0x00b0…0103 at0036 = ╱31╱1╱ // 0xe6 @0x36
0x00b0…0103 at0037 = ╱32╱2╱ // 0xe7 @0x37
0x00b0…0103 at0038 = ╱fe0000c004╱ // 0xe8 @0x38
0x00b0…0103 at003d = ╱ee╱)╱ // 0xed @0x3d
0x00b0…0103 at003e = ╱ec╱,╱ // 0xee @0x3e
0x00b0…0103 at003f = ╱43╱C╱ // 0xef @0x3f
0x00b0…0103 at0040 = ╱30╱0╱ // 0xf0 @0x40
0x00b0…0103 at0041 = ╱ef╱$╱ // 0xf1 @0x41
0x00b0…0103 at0042 = ╱ed╱(╱ // 0xf2 @0x42
0x00b0…0103 at0043 = ╱45╱E╱ // 0xf3 @0x43
0x00b0…0103 at0044 = ╱ee╱)╱ // 0xf4 @0x44
0x00b0…0103 at0045 = ╱ec╱,╱ // 0xf5 @0x45
0x00b0…0103 at0046 = ╱43╱C╱ // 0xf6 @0x46
0x00b0…0103 at0047 = ╱31╱1╱ // 0xf7 @0x47
0x00b0…0103 at0048 = ╱ef╱$╱ // 0xf8 @0x48
0x00b0…0103 at0049 = ╱ed╱(╱ // 0xf9 @0x49
0x00b0…0103 at004a = ╱32╱2╱ // 0xfa @0x4a
0x00b0…0103 at004b = ╱35╱5╱ // 0xfb @0x4b
0x00b0…0103 at004c = ╱fe0000c805╱ // 0xfc @0x4c
0x00b0…0103 at0051 = ╱ee╱)╱ // 0x101 @0x51
0x00b0…0103 at0052 = EOL // 0x102 @0x52
0x00b0…0103 }
0x0103…0162 8eb9 0130 DIM C2$(17),C3$(W,10),C4$(14),C5$(12),C6(36),C7(36),C8(36)
0x0103…0162 LineComalBin {
0x0103…0162 ptr = 0x8eb9 // 0x103 @0x0
0x0103…0162 lno = 0x0082 // 0x105 @0x2
0x0103…0162 at0004 = ╱87╱ DIM ╱ // 0x107 @0x4
0x0103…0162 at0005 = ╱43╱C╱ // 0x108 @0x5
0x0103…0162 at0006 = ╱32╱2╱ // 0x109 @0x6
0x0103…0162 at0007 = ╱ef╱$╱ // 0x10a @0x7
0x0103…0162 at0008 = ╱ed╱(╱ // 0x10b @0x8
0x0103…0162 at0009 = ╱31╱1╱ // 0x10c @0x9
0x0103…0162 at000a = ╱37╱7╱ // 0x10d @0xa
0x0103…0162 at000b = ╱fe00008805╱ // 0x10e @0xb
0x0103…0162 at0010 = ╱ee╱)╱ // 0x113 @0x10
0x0103…0162 at0011 = ╱ec╱,╱ // 0x114 @0x11
0x0103…0162 at0012 = ╱43╱C╱ // 0x115 @0x12
0x0103…0162 at0013 = ╱33╱3╱ // 0x116 @0x13
0x0103…0162 at0014 = ╱ef╱$╱ // 0x117 @0x14
0x0103…0162 at0015 = ╱ed╱(╱ // 0x118 @0x15
0x0103…0162 at0016 = ╱57╱W╱ // 0x119 @0x16
0x0103…0162 at0017 = ╱ec╱,╱ // 0x11a @0x17
0x0103…0162 at0018 = ╱31╱1╱ // 0x11b @0x18
0x0103…0162 at0019 = ╱30╱0╱ // 0x11c @0x19
0x0103…0162 at001a = ╱fe0000a004╱ // 0x11d @0x1a
0x0103…0162 at001f = ╱ee╱)╱ // 0x122 @0x1f
0x0103…0162 at0020 = ╱ec╱,╱ // 0x123 @0x20
0x0103…0162 at0021 = ╱43╱C╱ // 0x124 @0x21
0x0103…0162 at0022 = ╱34╱4╱ // 0x125 @0x22
0x0103…0162 at0023 = ╱ef╱$╱ // 0x126 @0x23
0x0103…0162 at0024 = ╱ed╱(╱ // 0x127 @0x24
0x0103…0162 at0025 = ╱31╱1╱ // 0x128 @0x25
0x0103…0162 at0026 = ╱34╱4╱ // 0x129 @0x26
0x0103…0162 at0027 = ╱fe0000e004╱ // 0x12a @0x27
0x0103…0162 at002c = ╱ee╱)╱ // 0x12f @0x2c
0x0103…0162 at002d = ╱ec╱,╱ // 0x130 @0x2d
0x0103…0162 at002e = ╱43╱C╱ // 0x131 @0x2e
0x0103…0162 at002f = ╱35╱5╱ // 0x132 @0x2f
0x0103…0162 at0030 = ╱ef╱$╱ // 0x133 @0x30
0x0103…0162 at0031 = ╱ed╱(╱ // 0x134 @0x31
0x0103…0162 at0032 = ╱31╱1╱ // 0x135 @0x32
0x0103…0162 at0033 = ╱32╱2╱ // 0x136 @0x33
0x0103…0162 at0034 = ╱fe0000c004╱ // 0x137 @0x34
0x0103…0162 at0039 = ╱ee╱)╱ // 0x13c @0x39
0x0103…0162 at003a = ╱ec╱,╱ // 0x13d @0x3a
0x0103…0162 at003b = ╱43╱C╱ // 0x13e @0x3b
0x0103…0162 at003c = ╱36╱6╱ // 0x13f @0x3c
0x0103…0162 at003d = ╱ed╱(╱ // 0x140 @0x3d
0x0103…0162 at003e = ╱33╱3╱ // 0x141 @0x3e
0x0103…0162 at003f = ╱36╱6╱ // 0x142 @0x3f
0x0103…0162 at0040 = ╱fe00009006╱ // 0x143 @0x40
0x0103…0162 at0045 = ╱ee╱)╱ // 0x148 @0x45
0x0103…0162 at0046 = ╱ec╱,╱ // 0x149 @0x46
0x0103…0162 at0047 = ╱43╱C╱ // 0x14a @0x47
0x0103…0162 at0048 = ╱37╱7╱ // 0x14b @0x48
0x0103…0162 at0049 = ╱ed╱(╱ // 0x14c @0x49
0x0103…0162 at004a = ╱33╱3╱ // 0x14d @0x4a
0x0103…0162 at004b = ╱36╱6╱ // 0x14e @0x4b
0x0103…0162 at004c = ╱fe00009006╱ // 0x14f @0x4c
0x0103…0162 at0051 = ╱ee╱)╱ // 0x154 @0x51
0x0103…0162 at0052 = ╱ec╱,╱ // 0x155 @0x52
0x0103…0162 at0053 = ╱43╱C╱ // 0x156 @0x53
0x0103…0162 at0054 = ╱38╱8╱ // 0x157 @0x54
0x0103…0162 at0055 = ╱ed╱(╱ // 0x158 @0x55
0x0103…0162 at0056 = ╱33╱3╱ // 0x159 @0x56
0x0103…0162 at0057 = ╱36╱6╱ // 0x15a @0x57
0x0103…0162 at0058 = ╱fe00009006╱ // 0x15b @0x58
0x0103…0162 at005d = ╱ee╱)╱ // 0x160 @0x5d
0x0103…0162 at005e = EOL // 0x161 @0x5e
0x0103…0162 }
0x0162…01c5 8f1c 0140 DIM C9$(36,25),A$(G),D0$(12),OP1$(12),OP2$(12),D1$(76),D2$(17)
0x0162…01c5 LineComalBin {
0x0162…01c5 ptr = 0x8f1c // 0x162 @0x0
0x0162…01c5 lno = 0x008c // 0x164 @0x2
0x0162…01c5 at0004 = ╱87╱ DIM ╱ // 0x166 @0x4
0x0162…01c5 at0005 = ╱43╱C╱ // 0x167 @0x5
0x0162…01c5 at0006 = ╱39╱9╱ // 0x168 @0x6
0x0162…01c5 at0007 = ╱ef╱$╱ // 0x169 @0x7
0x0162…01c5 at0008 = ╱ed╱(╱ // 0x16a @0x8
0x0162…01c5 at0009 = ╱33╱3╱ // 0x16b @0x9
0x0162…01c5 at000a = ╱36╱6╱ // 0x16c @0xa
0x0162…01c5 at000b = ╱fe00009006╱ // 0x16d @0xb
0x0162…01c5 at0010 = ╱ec╱,╱ // 0x172 @0x10
0x0162…01c5 at0011 = ╱32╱2╱ // 0x173 @0x11
0x0162…01c5 at0012 = ╱35╱5╱ // 0x174 @0x12
0x0162…01c5 at0013 = ╱fe0000c805╱ // 0x175 @0x13
0x0162…01c5 at0018 = ╱ee╱)╱ // 0x17a @0x18
0x0162…01c5 at0019 = ╱ec╱,╱ // 0x17b @0x19
0x0162…01c5 at001a = ╱41╱A╱ // 0x17c @0x1a
0x0162…01c5 at001b = ╱ef╱$╱ // 0x17d @0x1b
0x0162…01c5 at001c = ╱ed╱(╱ // 0x17e @0x1c
0x0162…01c5 at001d = ╱47╱G╱ // 0x17f @0x1d
0x0162…01c5 at001e = ╱ee╱)╱ // 0x180 @0x1e
0x0162…01c5 at001f = ╱ec╱,╱ // 0x181 @0x1f
0x0162…01c5 at0020 = ╱44╱D╱ // 0x182 @0x20
0x0162…01c5 at0021 = ╱30╱0╱ // 0x183 @0x21
0x0162…01c5 at0022 = ╱ef╱$╱ // 0x184 @0x22
0x0162…01c5 at0023 = ╱ed╱(╱ // 0x185 @0x23
0x0162…01c5 at0024 = ╱31╱1╱ // 0x186 @0x24
0x0162…01c5 at0025 = ╱32╱2╱ // 0x187 @0x25
0x0162…01c5 at0026 = ╱fe0000c004╱ // 0x188 @0x26
0x0162…01c5 at002b = ╱ee╱)╱ // 0x18d @0x2b
0x0162…01c5 at002c = ╱ec╱,╱ // 0x18e @0x2c
0x0162…01c5 at002d = ╱4f╱O╱ // 0x18f @0x2d
0x0162…01c5 at002e = ╱50╱P╱ // 0x190 @0x2e
0x0162…01c5 at002f = ╱31╱1╱ // 0x191 @0x2f
0x0162…01c5 at0030 = ╱ef╱$╱ // 0x192 @0x30
0x0162…01c5 at0031 = ╱ed╱(╱ // 0x193 @0x31
0x0162…01c5 at0032 = ╱31╱1╱ // 0x194 @0x32
0x0162…01c5 at0033 = ╱32╱2╱ // 0x195 @0x33
0x0162…01c5 at0034 = ╱fe0000c004╱ // 0x196 @0x34
0x0162…01c5 at0039 = ╱ee╱)╱ // 0x19b @0x39
0x0162…01c5 at003a = ╱ec╱,╱ // 0x19c @0x3a
0x0162…01c5 at003b = ╱4f╱O╱ // 0x19d @0x3b
0x0162…01c5 at003c = ╱50╱P╱ // 0x19e @0x3c
0x0162…01c5 at003d = ╱32╱2╱ // 0x19f @0x3d
0x0162…01c5 at003e = ╱ef╱$╱ // 0x1a0 @0x3e
0x0162…01c5 at003f = ╱ed╱(╱ // 0x1a1 @0x3f
0x0162…01c5 at0040 = ╱31╱1╱ // 0x1a2 @0x40
0x0162…01c5 at0041 = ╱32╱2╱ // 0x1a3 @0x41
0x0162…01c5 at0042 = ╱fe0000c004╱ // 0x1a4 @0x42
0x0162…01c5 at0047 = ╱ee╱)╱ // 0x1a9 @0x47
0x0162…01c5 at0048 = ╱ec╱,╱ // 0x1aa @0x48
0x0162…01c5 at0049 = ╱44╱D╱ // 0x1ab @0x49
0x0162…01c5 at004a = ╱31╱1╱ // 0x1ac @0x4a
0x0162…01c5 at004b = ╱ef╱$╱ // 0x1ad @0x4b
0x0162…01c5 at004c = ╱ed╱(╱ // 0x1ae @0x4c
0x0162…01c5 at004d = ╱37╱7╱ // 0x1af @0x4d
0x0162…01c5 at004e = ╱36╱6╱ // 0x1b0 @0x4e
0x0162…01c5 at004f = ╱fe00009807╱ // 0x1b1 @0x4f
0x0162…01c5 at0054 = ╱ee╱)╱ // 0x1b6 @0x54
0x0162…01c5 at0055 = ╱ec╱,╱ // 0x1b7 @0x55
0x0162…01c5 at0056 = ╱44╱D╱ // 0x1b8 @0x56
0x0162…01c5 at0057 = ╱32╱2╱ // 0x1b9 @0x57
0x0162…01c5 at0058 = ╱ef╱$╱ // 0x1ba @0x58
0x0162…01c5 at0059 = ╱ed╱(╱ // 0x1bb @0x59
0x0162…01c5 at005a = ╱31╱1╱ // 0x1bc @0x5a
0x0162…01c5 at005b = ╱37╱7╱ // 0x1bd @0x5b
0x0162…01c5 at005c = ╱fe00008805╱ // 0x1be @0x5c
0x0162…01c5 at0061 = ╱ee╱)╱ // 0x1c3 @0x61
0x0162…01c5 at0062 = EOL // 0x1c4 @0x62
0x0162…01c5 }
0x01c5…021e 8f75 0150 DIM RES$(15),D3$(8),D4$(V),D5$(26),D6$(26),D7$(6),D8$(12)
0x01c5…021e LineComalBin {
0x01c5…021e ptr = 0x8f75 // 0x1c5 @0x0
0x01c5…021e lno = 0x0096 // 0x1c7 @0x2
0x01c5…021e at0004 = ╱87╱ DIM ╱ // 0x1c9 @0x4
0x01c5…021e at0005 = ╱52╱R╱ // 0x1ca @0x5
0x01c5…021e at0006 = ╱45╱E╱ // 0x1cb @0x6
0x01c5…021e at0007 = ╱53╱S╱ // 0x1cc @0x7
0x01c5…021e at0008 = ╱ef╱$╱ // 0x1cd @0x8
0x01c5…021e at0009 = ╱ed╱(╱ // 0x1ce @0x9
0x01c5…021e at000a = ╱31╱1╱ // 0x1cf @0xa
0x01c5…021e at000b = ╱35╱5╱ // 0x1d0 @0xb
0x01c5…021e at000c = ╱fe0000f004╱ // 0x1d1 @0xc
0x01c5…021e at0011 = ╱ee╱)╱ // 0x1d6 @0x11
0x01c5…021e at0012 = ╱ec╱,╱ // 0x1d7 @0x12
0x01c5…021e at0013 = ╱44╱D╱ // 0x1d8 @0x13
0x01c5…021e at0014 = ╱33╱3╱ // 0x1d9 @0x14
0x01c5…021e at0015 = ╱ef╱$╱ // 0x1da @0x15
0x01c5…021e at0016 = ╱ed╱(╱ // 0x1db @0x16
0x01c5…021e at0017 = ╱38╱8╱ // 0x1dc @0x17
0x01c5…021e at0018 = ╱fe00008004╱ // 0x1dd @0x18
0x01c5…021e at001d = ╱ee╱)╱ // 0x1e2 @0x1d
0x01c5…021e at001e = ╱ec╱,╱ // 0x1e3 @0x1e
0x01c5…021e at001f = ╱44╱D╱ // 0x1e4 @0x1f
0x01c5…021e at0020 = ╱34╱4╱ // 0x1e5 @0x20
0x01c5…021e at0021 = ╱ef╱$╱ // 0x1e6 @0x21
0x01c5…021e at0022 = ╱ed╱(╱ // 0x1e7 @0x22
0x01c5…021e at0023 = ╱56╱V╱ // 0x1e8 @0x23
0x01c5…021e at0024 = ╱ee╱)╱ // 0x1e9 @0x24
0x01c5…021e at0025 = ╱ec╱,╱ // 0x1ea @0x25
0x01c5…021e at0026 = ╱44╱D╱ // 0x1eb @0x26
0x01c5…021e at0027 = ╱35╱5╱ // 0x1ec @0x27
0x01c5…021e at0028 = ╱ef╱$╱ // 0x1ed @0x28
0x01c5…021e at0029 = ╱ed╱(╱ // 0x1ee @0x29
0x01c5…021e at002a = ╱32╱2╱ // 0x1ef @0x2a
0x01c5…021e at002b = ╱36╱6╱ // 0x1f0 @0x2b
0x01c5…021e at002c = ╱fe0000d005╱ // 0x1f1 @0x2c
0x01c5…021e at0031 = ╱ee╱)╱ // 0x1f6 @0x31
0x01c5…021e at0032 = ╱ec╱,╱ // 0x1f7 @0x32
0x01c5…021e at0033 = ╱44╱D╱ // 0x1f8 @0x33
0x01c5…021e at0034 = ╱36╱6╱ // 0x1f9 @0x34
0x01c5…021e at0035 = ╱ef╱$╱ // 0x1fa @0x35
0x01c5…021e at0036 = ╱ed╱(╱ // 0x1fb @0x36
0x01c5…021e at0037 = ╱32╱2╱ // 0x1fc @0x37
0x01c5…021e at0038 = ╱36╱6╱ // 0x1fd @0x38
0x01c5…021e at0039 = ╱fe0000d005╱ // 0x1fe @0x39
0x01c5…021e at003e = ╱ee╱)╱ // 0x203 @0x3e
0x01c5…021e at003f = ╱ec╱,╱ // 0x204 @0x3f
0x01c5…021e at0040 = ╱44╱D╱ // 0x205 @0x40
0x01c5…021e at0041 = ╱37╱7╱ // 0x206 @0x41
0x01c5…021e at0042 = ╱ef╱$╱ // 0x207 @0x42
0x01c5…021e at0043 = ╱ed╱(╱ // 0x208 @0x43
0x01c5…021e at0044 = ╱36╱6╱ // 0x209 @0x44
0x01c5…021e at0045 = ╱fe0000c003╱ // 0x20a @0x45
0x01c5…021e at004a = ╱ee╱)╱ // 0x20f @0x4a
0x01c5…021e at004b = ╱ec╱,╱ // 0x210 @0x4b
0x01c5…021e at004c = ╱44╱D╱ // 0x211 @0x4c
0x01c5…021e at004d = ╱38╱8╱ // 0x212 @0x4d
0x01c5…021e at004e = ╱ef╱$╱ // 0x213 @0x4e
0x01c5…021e at004f = ╱ed╱(╱ // 0x214 @0x4f
0x01c5…021e at0050 = ╱31╱1╱ // 0x215 @0x50
0x01c5…021e at0051 = ╱32╱2╱ // 0x216 @0x51
0x01c5…021e at0052 = ╱fe0000c004╱ // 0x217 @0x52
0x01c5…021e at0057 = ╱ee╱)╱ // 0x21c @0x57
0x01c5…021e at0058 = EOL // 0x21d @0x58
0x01c5…021e }
0x021e…0285 8fdc 0160 DIM D9$(17),E0$(12),E1$(12),E2$(76),E3(36),E4$(36,12),E5$(17)
0x021e…0285 LineComalBin {
0x021e…0285 ptr = 0x8fdc // 0x21e @0x0
0x021e…0285 lno = 0x00a0 // 0x220 @0x2
0x021e…0285 at0004 = ╱87╱ DIM ╱ // 0x222 @0x4
0x021e…0285 at0005 = ╱44╱D╱ // 0x223 @0x5
0x021e…0285 at0006 = ╱39╱9╱ // 0x224 @0x6
0x021e…0285 at0007 = ╱ef╱$╱ // 0x225 @0x7
0x021e…0285 at0008 = ╱ed╱(╱ // 0x226 @0x8
0x021e…0285 at0009 = ╱31╱1╱ // 0x227 @0x9
0x021e…0285 at000a = ╱37╱7╱ // 0x228 @0xa
0x021e…0285 at000b = ╱fe00008805╱ // 0x229 @0xb
0x021e…0285 at0010 = ╱ee╱)╱ // 0x22e @0x10
0x021e…0285 at0011 = ╱ec╱,╱ // 0x22f @0x11
0x021e…0285 at0012 = ╱45╱E╱ // 0x230 @0x12
0x021e…0285 at0013 = ╱30╱0╱ // 0x231 @0x13
0x021e…0285 at0014 = ╱ef╱$╱ // 0x232 @0x14
0x021e…0285 at0015 = ╱ed╱(╱ // 0x233 @0x15
0x021e…0285 at0016 = ╱31╱1╱ // 0x234 @0x16
0x021e…0285 at0017 = ╱32╱2╱ // 0x235 @0x17
0x021e…0285 at0018 = ╱fe0000c004╱ // 0x236 @0x18
0x021e…0285 at001d = ╱ee╱)╱ // 0x23b @0x1d
0x021e…0285 at001e = ╱ec╱,╱ // 0x23c @0x1e
0x021e…0285 at001f = ╱45╱E╱ // 0x23d @0x1f
0x021e…0285 at0020 = ╱31╱1╱ // 0x23e @0x20
0x021e…0285 at0021 = ╱ef╱$╱ // 0x23f @0x21
0x021e…0285 at0022 = ╱ed╱(╱ // 0x240 @0x22
0x021e…0285 at0023 = ╱31╱1╱ // 0x241 @0x23
0x021e…0285 at0024 = ╱32╱2╱ // 0x242 @0x24
0x021e…0285 at0025 = ╱fe0000c004╱ // 0x243 @0x25
0x021e…0285 at002a = ╱ee╱)╱ // 0x248 @0x2a
0x021e…0285 at002b = ╱ec╱,╱ // 0x249 @0x2b
0x021e…0285 at002c = ╱45╱E╱ // 0x24a @0x2c
0x021e…0285 at002d = ╱32╱2╱ // 0x24b @0x2d
0x021e…0285 at002e = ╱ef╱$╱ // 0x24c @0x2e
0x021e…0285 at002f = ╱ed╱(╱ // 0x24d @0x2f
0x021e…0285 at0030 = ╱37╱7╱ // 0x24e @0x30
0x021e…0285 at0031 = ╱36╱6╱ // 0x24f @0x31
0x021e…0285 at0032 = ╱fe00009807╱ // 0x250 @0x32
0x021e…0285 at0037 = ╱ee╱)╱ // 0x255 @0x37
0x021e…0285 at0038 = ╱ec╱,╱ // 0x256 @0x38
0x021e…0285 at0039 = ╱45╱E╱ // 0x257 @0x39
0x021e…0285 at003a = ╱33╱3╱ // 0x258 @0x3a
0x021e…0285 at003b = ╱ed╱(╱ // 0x259 @0x3b
0x021e…0285 at003c = ╱33╱3╱ // 0x25a @0x3c
0x021e…0285 at003d = ╱36╱6╱ // 0x25b @0x3d
0x021e…0285 at003e = ╱fe00009006╱ // 0x25c @0x3e
0x021e…0285 at0043 = ╱ee╱)╱ // 0x261 @0x43
0x021e…0285 at0044 = ╱ec╱,╱ // 0x262 @0x44
0x021e…0285 at0045 = ╱45╱E╱ // 0x263 @0x45
0x021e…0285 at0046 = ╱34╱4╱ // 0x264 @0x46
0x021e…0285 at0047 = ╱ef╱$╱ // 0x265 @0x47
0x021e…0285 at0048 = ╱ed╱(╱ // 0x266 @0x48
0x021e…0285 at0049 = ╱33╱3╱ // 0x267 @0x49
0x021e…0285 at004a = ╱36╱6╱ // 0x268 @0x4a
0x021e…0285 at004b = ╱fe00009006╱ // 0x269 @0x4b
0x021e…0285 at0050 = ╱ec╱,╱ // 0x26e @0x50
0x021e…0285 at0051 = ╱31╱1╱ // 0x26f @0x51
0x021e…0285 at0052 = ╱32╱2╱ // 0x270 @0x52
0x021e…0285 at0053 = ╱fe0000c004╱ // 0x271 @0x53
0x021e…0285 at0058 = ╱ee╱)╱ // 0x276 @0x58
0x021e…0285 at0059 = ╱ec╱,╱ // 0x277 @0x59
0x021e…0285 at005a = ╱45╱E╱ // 0x278 @0x5a
0x021e…0285 at005b = ╱35╱5╱ // 0x279 @0x5b
0x021e…0285 at005c = ╱ef╱$╱ // 0x27a @0x5c
0x021e…0285 at005d = ╱ed╱(╱ // 0x27b @0x5d
0x021e…0285 at005e = ╱31╱1╱ // 0x27c @0x5e
0x021e…0285 at005f = ╱37╱7╱ // 0x27d @0x5f
0x021e…0285 at0060 = ╱fe00008805╱ // 0x27e @0x60
0x021e…0285 at0065 = ╱ee╱)╱ // 0x283 @0x65
0x021e…0285 at0066 = EOL // 0x284 @0x66
0x021e…0285 }
0x0285…02b0 9007 0170 DIM E6$(17),E7$(17),E8(36)
0x0285…02b0 LineComalBin {
0x0285…02b0 ptr = 0x9007 // 0x285 @0x0
0x0285…02b0 lno = 0x00aa // 0x287 @0x2
0x0285…02b0 at0004 = ╱87╱ DIM ╱ // 0x289 @0x4
0x0285…02b0 at0005 = ╱45╱E╱ // 0x28a @0x5
0x0285…02b0 at0006 = ╱36╱6╱ // 0x28b @0x6
0x0285…02b0 at0007 = ╱ef╱$╱ // 0x28c @0x7
0x0285…02b0 at0008 = ╱ed╱(╱ // 0x28d @0x8
0x0285…02b0 at0009 = ╱31╱1╱ // 0x28e @0x9
0x0285…02b0 at000a = ╱37╱7╱ // 0x28f @0xa
0x0285…02b0 at000b = ╱fe00008805╱ // 0x290 @0xb
0x0285…02b0 at0010 = ╱ee╱)╱ // 0x295 @0x10
0x0285…02b0 at0011 = ╱ec╱,╱ // 0x296 @0x11
0x0285…02b0 at0012 = ╱45╱E╱ // 0x297 @0x12
0x0285…02b0 at0013 = ╱37╱7╱ // 0x298 @0x13
0x0285…02b0 at0014 = ╱ef╱$╱ // 0x299 @0x14
0x0285…02b0 at0015 = ╱ed╱(╱ // 0x29a @0x15
0x0285…02b0 at0016 = ╱31╱1╱ // 0x29b @0x16
0x0285…02b0 at0017 = ╱37╱7╱ // 0x29c @0x17
0x0285…02b0 at0018 = ╱fe00008805╱ // 0x29d @0x18
0x0285…02b0 at001d = ╱ee╱)╱ // 0x2a2 @0x1d
0x0285…02b0 at001e = ╱ec╱,╱ // 0x2a3 @0x1e
0x0285…02b0 at001f = ╱45╱E╱ // 0x2a4 @0x1f
0x0285…02b0 at0020 = ╱38╱8╱ // 0x2a5 @0x20
0x0285…02b0 at0021 = ╱ed╱(╱ // 0x2a6 @0x21
0x0285…02b0 at0022 = ╱33╱3╱ // 0x2a7 @0x22
0x0285…02b0 at0023 = ╱36╱6╱ // 0x2a8 @0x23
0x0285…02b0 at0024 = ╱fe00009006╱ // 0x2a9 @0x24
0x0285…02b0 at0029 = ╱ee╱)╱ // 0x2ae @0x29
0x0285…02b0 at002a = EOL // 0x2af @0x2a
0x0285…02b0 }
0x02b0…02c5 901c 0180 PROC CA(E9,F0,F1,F2)
0x02b0…02c5 LineComalBin {
0x02b0…02c5 ptr = 0x901c // 0x2b0 @0x0
0x02b0…02c5 lno = 0x00b4 // 0x2b2 @0x2
0x02b0…02c5 at0004 = ╱9e╱ PROC ╱ // 0x2b4 @0x4
0x02b0…02c5 at0005 = ╱43╱C╱ // 0x2b5 @0x5
0x02b0…02c5 at0006 = ╱41╱A╱ // 0x2b6 @0x6
0x02b0…02c5 at0007 = ╱ed╱(╱ // 0x2b7 @0x7
0x02b0…02c5 at0008 = ╱45╱E╱ // 0x2b8 @0x8
0x02b0…02c5 at0009 = ╱39╱9╱ // 0x2b9 @0x9
0x02b0…02c5 at000a = ╱ec╱,╱ // 0x2ba @0xa
0x02b0…02c5 at000b = ╱46╱F╱ // 0x2bb @0xb
0x02b0…02c5 at000c = ╱30╱0╱ // 0x2bc @0xc
0x02b0…02c5 at000d = ╱ec╱,╱ // 0x2bd @0xd
0x02b0…02c5 at000e = ╱46╱F╱ // 0x2be @0xe
0x02b0…02c5 at000f = ╱31╱1╱ // 0x2bf @0xf
0x02b0…02c5 at0010 = ╱ec╱,╱ // 0x2c0 @0x10
0x02b0…02c5 at0011 = ╱46╱F╱ // 0x2c1 @0x11
0x02b0…02c5 at0012 = ╱32╱2╱ // 0x2c2 @0x12
0x02b0…02c5 at0013 = ╱ee╱)╱ // 0x2c3 @0x13
0x02b0…02c5 at0014 = EOL // 0x2c4 @0x14
0x02b0…02c5 }
0x02c5…030a 9061 0190 OP1$=F0$;OP2$=F1$;RES$=F2$;SI=B;FLAG=B;ART=E9-6*(E9>5)
0x02c5…030a LineComalBin {
0x02c5…030a ptr = 0x9061 // 0x2c5 @0x0
0x02c5…030a lno = 0x00be // 0x2c7 @0x2
0x02c5…030a at0004 = ╱4f╱O╱ // 0x2c9 @0x4
0x02c5…030a at0005 = ╱50╱P╱ // 0x2ca @0x5
0x02c5…030a at0006 = ╱31╱1╱ // 0x2cb @0x6
0x02c5…030a at0007 = ╱ef╱$╱ // 0x2cc @0x7
0x02c5…030a at0008 = ╱dc╱=╱ // 0x2cd @0x8
0x02c5…030a at0009 = ╱46╱F╱ // 0x2ce @0x9
0x02c5…030a at000a = ╱30╱0╱ // 0x2cf @0xa
0x02c5…030a at000b = ╱ef╱$╱ // 0x2d0 @0xb
0x02c5…030a at000c = ╱eb╱;╱ // 0x2d1 @0xc
0x02c5…030a at000d = ╱4f╱O╱ // 0x2d2 @0xd
0x02c5…030a at000e = ╱50╱P╱ // 0x2d3 @0xe
0x02c5…030a at000f = ╱32╱2╱ // 0x2d4 @0xf
0x02c5…030a at0010 = ╱ef╱$╱ // 0x2d5 @0x10
0x02c5…030a at0011 = ╱dc╱=╱ // 0x2d6 @0x11
0x02c5…030a at0012 = ╱46╱F╱ // 0x2d7 @0x12
0x02c5…030a at0013 = ╱31╱1╱ // 0x2d8 @0x13
0x02c5…030a at0014 = ╱ef╱$╱ // 0x2d9 @0x14
0x02c5…030a at0015 = ╱eb╱;╱ // 0x2da @0x15
0x02c5…030a at0016 = ╱52╱R╱ // 0x2db @0x16
0x02c5…030a at0017 = ╱45╱E╱ // 0x2dc @0x17
0x02c5…030a at0018 = ╱53╱S╱ // 0x2dd @0x18
0x02c5…030a at0019 = ╱ef╱$╱ // 0x2de @0x19
0x02c5…030a at001a = ╱dc╱=╱ // 0x2df @0x1a
0x02c5…030a at001b = ╱46╱F╱ // 0x2e0 @0x1b
0x02c5…030a at001c = ╱32╱2╱ // 0x2e1 @0x1c
0x02c5…030a at001d = ╱ef╱$╱ // 0x2e2 @0x1d
0x02c5…030a at001e = ╱eb╱;╱ // 0x2e3 @0x1e
0x02c5…030a at001f = ╱53╱S╱ // 0x2e4 @0x1f
0x02c5…030a at0020 = ╱49╱I╱ // 0x2e5 @0x20
0x02c5…030a at0021 = ╱dc╱=╱ // 0x2e6 @0x21
0x02c5…030a at0022 = ╱42╱B╱ // 0x2e7 @0x22
0x02c5…030a at0023 = ╱eb╱;╱ // 0x2e8 @0x23
0x02c5…030a at0024 = ╱46╱F╱ // 0x2e9 @0x24
0x02c5…030a at0025 = ╱4c╱L╱ // 0x2ea @0x25
0x02c5…030a at0026 = ╱41╱A╱ // 0x2eb @0x26
0x02c5…030a at0027 = ╱47╱G╱ // 0x2ec @0x27
0x02c5…030a at0028 = ╱dc╱=╱ // 0x2ed @0x28
0x02c5…030a at0029 = ╱42╱B╱ // 0x2ee @0x29
0x02c5…030a at002a = ╱eb╱;╱ // 0x2ef @0x2a
0x02c5…030a at002b = ╱41╱A╱ // 0x2f0 @0x2b
0x02c5…030a at002c = ╱52╱R╱ // 0x2f1 @0x2c
0x02c5…030a at002d = ╱54╱T╱ // 0x2f2 @0x2d
0x02c5…030a at002e = ╱dc╱=╱ // 0x2f3 @0x2e
0x02c5…030a at002f = ╱45╱E╱ // 0x2f4 @0x2f
0x02c5…030a at0030 = ╱39╱9╱ // 0x2f5 @0x30
0x02c5…030a at0031 = ╱e3╱-╱ // 0x2f6 @0x31
0x02c5…030a at0032 = ╱36╱6╱ // 0x2f7 @0x32
0x02c5…030a at0033 = ╱fe0000c003╱ // 0x2f8 @0x33
0x02c5…030a at0038 = ╱e4╱*╱ // 0x2fd @0x38
0x02c5…030a at0039 = ╱ed╱(╱ // 0x2fe @0x39
0x02c5…030a at003a = ╱45╱E╱ // 0x2ff @0x3a
0x02c5…030a at003b = ╱39╱9╱ // 0x300 @0x3b
0x02c5…030a at003c = ╱de╱>╱ // 0x301 @0x3c
0x02c5…030a at003d = ╱35╱5╱ // 0x302 @0x3d
0x02c5…030a at003e = ╱fe0000a003╱ // 0x303 @0x3e
0x02c5…030a at0043 = ╱ee╱)╱ // 0x308 @0x43
0x02c5…030a at0044 = EOL // 0x309 @0x44
0x02c5…030a }
0x030a…0320 9077 0200 CALL "P641210:REGN"
0x030a…0320 LineComalBin {
0x030a…0320 ptr = 0x9077 // 0x30a @0x0
0x030a…0320 lno = 0x00c8 // 0x30c @0x2
0x030a…0320 at0004 = ╱adc004╱ CALL ╱ // 0x30e @0x4
0x030a…0320 at0007 = ╱22╱"╱ // 0x311 @0x7
0x030a…0320 at0008 = ╱50╱P╱ // 0x312 @0x8
0x030a…0320 at0009 = ╱36╱6╱ // 0x313 @0x9
0x030a…0320 at000a = ╱34╱4╱ // 0x314 @0xa
0x030a…0320 at000b = ╱31╱1╱ // 0x315 @0xb
0x030a…0320 at000c = ╱32╱2╱ // 0x316 @0xc
0x030a…0320 at000d = ╱31╱1╱ // 0x317 @0xd
0x030a…0320 at000e = ╱30╱0╱ // 0x318 @0xe
0x030a…0320 at000f = ╱3a╱:╱ // 0x319 @0xf
0x030a…0320 at0010 = ╱52╱R╱ // 0x31a @0x10
0x030a…0320 at0011 = ╱45╱E╱ // 0x31b @0x11
0x030a…0320 at0012 = ╱47╱G╱ // 0x31c @0x12
0x030a…0320 at0013 = ╱4e╱N╱ // 0x31d @0x13
0x030a…0320 at0014 = ╱22╱"╱ // 0x31e @0x14
0x030a…0320 at0015 = EOL // 0x31f @0x15
0x030a…0320 }
0x0320…032d 9084 0210 F2$=RES$
0x0320…032d LineComalBin {
0x0320…032d ptr = 0x9084 // 0x320 @0x0
0x0320…032d lno = 0x00d2 // 0x322 @0x2
0x0320…032d at0004 = ╱46╱F╱ // 0x324 @0x4
0x0320…032d at0005 = ╱32╱2╱ // 0x325 @0x5
0x0320…032d at0006 = ╱ef╱$╱ // 0x326 @0x6
0x0320…032d at0007 = ╱dc╱=╱ // 0x327 @0x7
0x0320…032d at0008 = ╱52╱R╱ // 0x328 @0x8
0x0320…032d at0009 = ╱45╱E╱ // 0x329 @0x9
0x0320…032d at000a = ╱53╱S╱ // 0x32a @0xa
0x0320…032d at000b = ╱ef╱$╱ // 0x32b @0xb
0x0320…032d at000c = EOL // 0x32c @0xc
0x0320…032d }
0x032d…0346 909d 0220 IF E9<>6 THEN IF FLAG<>B THEN STOP
0x032d…0346 LineComalBin {
0x032d…0346 ptr = 0x909d // 0x32d @0x0
0x032d…0346 lno = 0x00dc // 0x32f @0x2
0x032d…0346 at0004 = ╱82╱ IF ╱ // 0x331 @0x4
0x032d…0346 at0005 = ╱45╱E╱ // 0x332 @0x5
0x032d…0346 at0006 = ╱39╱9╱ // 0x333 @0x6
0x032d…0346 at0007 = ╱e1╱<>╱ // 0x334 @0x7
0x032d…0346 at0008 = ╱36╱6╱ // 0x335 @0x8
0x032d…0346 at0009 = ╱fe0000c003╱ // 0x336 @0x9
0x032d…0346 at000e = ╱b6╱ THEN ╱ // 0x33b @0xe
0x032d…0346 at000f = ╱82╱ IF ╱ // 0x33c @0xf
0x032d…0346 at0010 = ╱46╱F╱ // 0x33d @0x10
0x032d…0346 at0011 = ╱4c╱L╱ // 0x33e @0x11
0x032d…0346 at0012 = ╱41╱A╱ // 0x33f @0x12
0x032d…0346 at0013 = ╱47╱G╱ // 0x340 @0x13
0x032d…0346 at0014 = ╱e1╱<>╱ // 0x341 @0x14
0x032d…0346 at0015 = ╱42╱B╱ // 0x342 @0x15
0x032d…0346 at0016 = ╱b6╱ THEN ╱ // 0x343 @0x16
0x032d…0346 at0017 = ╱8d╱ STOP ╱ // 0x344 @0x17
0x032d…0346 at0018 = EOL // 0x345 @0x18
0x032d…0346 }
0x0346…034c 90a3 0230 ENDPROC
0x0346…034c LineComalBin {
0x0346…034c ptr = 0x90a3 // 0x346 @0x0
0x0346…034c lno = 0x00e6 // 0x348 @0x2
0x0346…034c at0004 = ╱9f╱ ENDPROC ╱ // 0x34a @0x4
0x0346…034c at0005 = EOL // 0x34b @0x5
0x0346…034c }
0x034c…035d 90b4 0240 PROC KTNV(F3,F4)
0x034c…035d LineComalBin {
0x034c…035d ptr = 0x90b4 // 0x34c @0x0
0x034c…035d lno = 0x00f0 // 0x34e @0x2
0x034c…035d at0004 = ╱9e╱ PROC ╱ // 0x350 @0x4
0x034c…035d at0005 = ╱4b╱K╱ // 0x351 @0x5
0x034c…035d at0006 = ╱54╱T╱ // 0x352 @0x6
0x034c…035d at0007 = ╱4e╱N╱ // 0x353 @0x7
0x034c…035d at0008 = ╱56╱V╱ // 0x354 @0x8
0x034c…035d at0009 = ╱ed╱(╱ // 0x355 @0x9
0x034c…035d at000a = ╱46╱F╱ // 0x356 @0xa
0x034c…035d at000b = ╱33╱3╱ // 0x357 @0xb
0x034c…035d at000c = ╱ec╱,╱ // 0x358 @0xc
0x034c…035d at000d = ╱46╱F╱ // 0x359 @0xd
0x034c…035d at000e = ╱34╱4╱ // 0x35a @0xe
0x034c…035d at000f = ╱ee╱)╱ // 0x35b @0xf
0x034c…035d at0010 = EOL // 0x35c @0x10
0x034c…035d }
0x035d…0366 90bd 0250 F5=E
0x035d…0366 LineComalBin {
0x035d…0366 ptr = 0x90bd // 0x35d @0x0
0x035d…0366 lno = 0x00fa // 0x35f @0x2
0x035d…0366 at0004 = ╱46╱F╱ // 0x361 @0x4
0x035d…0366 at0005 = ╱35╱5╱ // 0x362 @0x5
0x035d…0366 at0006 = ╱dc╱=╱ // 0x363 @0x6
0x035d…0366 at0007 = ╱45╱E╱ // 0x364 @0x7
0x035d…0366 at0008 = EOL // 0x365 @0x8
0x035d…0366 }
0x0366…0370 90c7 0260 CASE F3 OF
0x0366…0370 LineComalBin {
0x0366…0370 ptr = 0x90c7 // 0x366 @0x0
0x0366…0370 lno = 0x0104 // 0x368 @0x2
0x0366…0370 at0004 = ╱a201╱ CASE ╱ // 0x36a @0x4
0x0366…0370 at0006 = ╱46╱F╱ // 0x36c @0x6
0x0366…0370 at0007 = ╱33╱3╱ // 0x36d @0x7
0x0366…0370 at0008 = ╱ba╱ OF ╱ // 0x36e @0x8
0x0366…0370 at0009 = EOL // 0x36f @0x9
0x0366…0370 }
0x0370…0393 90ea 0270 EXEC FINDPOST1(F6,F7,F8,F4,F9,D9$)
0x0370…0393 LineComalBin {
0x0370…0393 ptr = 0x90ea // 0x370 @0x0
0x0370…0393 lno = 0x010e // 0x372 @0x2
0x0370…0393 at0004 = ╱9d╱ EXEC ╱ // 0x374 @0x4
0x0370…0393 at0005 = ╱46╱F╱ // 0x375 @0x5
0x0370…0393 at0006 = ╱49╱I╱ // 0x376 @0x6
0x0370…0393 at0007 = ╱4e╱N╱ // 0x377 @0x7
0x0370…0393 at0008 = ╱44╱D╱ // 0x378 @0x8
0x0370…0393 at0009 = ╱50╱P╱ // 0x379 @0x9
0x0370…0393 at000a = ╱4f╱O╱ // 0x37a @0xa
0x0370…0393 at000b = ╱53╱S╱ // 0x37b @0xb
0x0370…0393 at000c = ╱54╱T╱ // 0x37c @0xc
0x0370…0393 at000d = ╱31╱1╱ // 0x37d @0xd
0x0370…0393 at000e = ╱ed╱(╱ // 0x37e @0xe
0x0370…0393 at000f = ╱46╱F╱ // 0x37f @0xf
0x0370…0393 at0010 = ╱36╱6╱ // 0x380 @0x10
0x0370…0393 at0011 = ╱ec╱,╱ // 0x381 @0x11
0x0370…0393 at0012 = ╱46╱F╱ // 0x382 @0x12
0x0370…0393 at0013 = ╱37╱7╱ // 0x383 @0x13
0x0370…0393 at0014 = ╱ec╱,╱ // 0x384 @0x14
0x0370…0393 at0015 = ╱46╱F╱ // 0x385 @0x15
0x0370…0393 at0016 = ╱38╱8╱ // 0x386 @0x16
0x0370…0393 at0017 = ╱ec╱,╱ // 0x387 @0x17
0x0370…0393 at0018 = ╱46╱F╱ // 0x388 @0x18
0x0370…0393 at0019 = ╱34╱4╱ // 0x389 @0x19
0x0370…0393 at001a = ╱ec╱,╱ // 0x38a @0x1a
0x0370…0393 at001b = ╱46╱F╱ // 0x38b @0x1b
0x0370…0393 at001c = ╱39╱9╱ // 0x38c @0x1c
0x0370…0393 at001d = ╱ec╱,╱ // 0x38d @0x1d
0x0370…0393 at001e = ╱44╱D╱ // 0x38e @0x1e
0x0370…0393 at001f = ╱39╱9╱ // 0x38f @0x1f
0x0370…0393 at0020 = ╱ef╱$╱ // 0x390 @0x20
0x0370…0393 at0021 = ╱ee╱)╱ // 0x391 @0x21
0x0370…0393 at0022 = EOL // 0x392 @0x22
0x0370…0393 }
0x0393…039e 90f5 0280 IF F5=B THEN
0x0393…039e LineComalBin {
0x0393…039e ptr = 0x90f5 // 0x393 @0x0
0x0393…039e lno = 0x0118 // 0x395 @0x2
0x0393…039e at0004 = ╱9c╱ IF ╱ // 0x397 @0x4
0x0393…039e at0005 = ╱46╱F╱ // 0x398 @0x5
0x0393…039e at0006 = ╱35╱5╱ // 0x399 @0x6
0x0393…039e at0007 = ╱dc╱=╱ // 0x39a @0x7
0x0393…039e at0008 = ╱42╱B╱ // 0x39b @0x8
0x0393…039e at0009 = ╱b6╱ THEN ╱ // 0x39c @0x9
0x0393…039e at000a = EOL // 0x39d @0xa
0x0393…039e }
0x039e…03ac 9103 0290 EXEC HENTPOST
0x039e…03ac LineComalBin {
0x039e…03ac ptr = 0x9103 // 0x39e @0x0
0x039e…03ac lno = 0x0122 // 0x3a0 @0x2
0x039e…03ac at0004 = ╱9d╱ EXEC ╱ // 0x3a2 @0x4
0x039e…03ac at0005 = ╱48╱H╱ // 0x3a3 @0x5
0x039e…03ac at0006 = ╱45╱E╱ // 0x3a4 @0x6
0x039e…03ac at0007 = ╱4e╱N╱ // 0x3a5 @0x7
0x039e…03ac at0008 = ╱54╱T╱ // 0x3a6 @0x8
0x039e…03ac at0009 = ╱50╱P╱ // 0x3a7 @0x9
0x039e…03ac at000a = ╱4f╱O╱ // 0x3a8 @0xa
0x039e…03ac at000b = ╱53╱S╱ // 0x3a9 @0xb
0x039e…03ac at000c = ╱54╱T╱ // 0x3aa @0xc
0x039e…03ac at000d = EOL // 0x3ab @0xd
0x039e…03ac }
0x03ac…03b8 910f 0300 A2$=A3$
0x03ac…03b8 LineComalBin {
0x03ac…03b8 ptr = 0x910f // 0x3ac @0x0
0x03ac…03b8 lno = 0x012c // 0x3ae @0x2
0x03ac…03b8 at0004 = ╱41╱A╱ // 0x3b0 @0x4
0x03ac…03b8 at0005 = ╱32╱2╱ // 0x3b1 @0x5
0x03ac…03b8 at0006 = ╱ef╱$╱ // 0x3b2 @0x6
0x03ac…03b8 at0007 = ╱dc╱=╱ // 0x3b3 @0x7
0x03ac…03b8 at0008 = ╱41╱A╱ // 0x3b4 @0x8
0x03ac…03b8 at0009 = ╱33╱3╱ // 0x3b5 @0x9
0x03ac…03b8 at000a = ╱ef╱$╱ // 0x3b6 @0xa
0x03ac…03b8 at000b = EOL // 0x3b7 @0xb
0x03ac…03b8 }
0x03b8…03d6 912d 0310 IF INT(ORD(A4$)-48)<>B THEN F5=E
0x03b8…03d6 LineComalBin {
0x03b8…03d6 ptr = 0x912d // 0x3b8 @0x0
0x03b8…03d6 lno = 0x0136 // 0x3ba @0x2
0x03b8…03d6 at0004 = ╱82╱ IF ╱ // 0x3bc @0x4
0x03b8…03d6 at0005 = ╱c6╱INT╱ // 0x3bd @0x5
0x03b8…03d6 at0006 = ╱ed╱(╱ // 0x3be @0x6
0x03b8…03d6 at0007 = ╱cd╱ORD╱ // 0x3bf @0x7
0x03b8…03d6 at0008 = ╱ed╱(╱ // 0x3c0 @0x8
0x03b8…03d6 at0009 = ╱41╱A╱ // 0x3c1 @0x9
0x03b8…03d6 at000a = ╱34╱4╱ // 0x3c2 @0xa
0x03b8…03d6 at000b = ╱ef╱$╱ // 0x3c3 @0xb
0x03b8…03d6 at000c = ╱ee╱)╱ // 0x3c4 @0xc
0x03b8…03d6 at000d = ╱e3╱-╱ // 0x3c5 @0xd
0x03b8…03d6 at000e = ╱34╱4╱ // 0x3c6 @0xe
0x03b8…03d6 at000f = ╱38╱8╱ // 0x3c7 @0xf
0x03b8…03d6 at0010 = ╱fe0000c006╱ // 0x3c8 @0x10
0x03b8…03d6 at0015 = ╱ee╱)╱ // 0x3cd @0x15
0x03b8…03d6 at0016 = ╱e1╱<>╱ // 0x3ce @0x16
0x03b8…03d6 at0017 = ╱42╱B╱ // 0x3cf @0x17
0x03b8…03d6 at0018 = ╱b6╱ THEN ╱ // 0x3d0 @0x18
0x03b8…03d6 at0019 = ╱46╱F╱ // 0x3d1 @0x19
0x03b8…03d6 at001a = ╱35╱5╱ // 0x3d2 @0x1a
0x03b8…03d6 at001b = ╱dc╱=╱ // 0x3d3 @0x1b
0x03b8…03d6 at001c = ╱45╱E╱ // 0x3d4 @0x1c
0x03b8…03d6 at001d = EOL // 0x3d5 @0x1d
0x03b8…03d6 }
0x03d6…03dc 9133 0320 ENDIF
0x03d6…03dc LineComalBin {
0x03d6…03dc ptr = 0x9133 // 0x3d6 @0x0
0x03d6…03dc lno = 0x0140 // 0x3d8 @0x2
0x03d6…03dc at0004 = ╱9b╱ ENDIF ╱ // 0x3da @0x4
0x03d6…03dc at0005 = EOL // 0x3db @0x5
0x03d6…03dc }
0x03dc…03e5 913c 0330 WHEN G0
0x03dc…03e5 LineComalBin {
0x03dc…03e5 ptr = 0x913c // 0x3dc @0x0
0x03dc…03e5 lno = 0x014a // 0x3de @0x2
0x03dc…03e5 at0004 = ╱a301╱ WHEN ╱ // 0x3e0 @0x4
0x03dc…03e5 at0006 = ╱47╱G╱ // 0x3e2 @0x6
0x03dc…03e5 at0007 = ╱30╱0╱ // 0x3e3 @0x7
0x03dc…03e5 at0008 = EOL // 0x3e4 @0x8
0x03dc…03e5 }
0x03e5…03ff 9156 0340 IF G0*10000+G1<F4 THEN
0x03e5…03ff LineComalBin {
0x03e5…03ff ptr = 0x9156 // 0x3e5 @0x0
0x03e5…03ff lno = 0x0154 // 0x3e7 @0x2
0x03e5…03ff at0004 = ╱9c╱ IF ╱ // 0x3e9 @0x4
0x03e5…03ff at0005 = ╱47╱G╱ // 0x3ea @0x5
0x03e5…03ff at0006 = ╱30╱0╱ // 0x3eb @0x6
0x03e5…03ff at0007 = ╱e4╱*╱ // 0x3ec @0x7
0x03e5…03ff at0008 = ╱31╱1╱ // 0x3ed @0x8
0x03e5…03ff at0009 = ╱30╱0╱ // 0x3ee @0x9
0x03e5…03ff at000a = ╱30╱0╱ // 0x3ef @0xa
0x03e5…03ff at000b = ╱30╱0╱ // 0x3f0 @0xb
0x03e5…03ff at000c = ╱30╱0╱ // 0x3f1 @0xc
0x03e5…03ff at000d = ╱fe00409c0e╱ // 0x3f2 @0xd
0x03e5…03ff at0012 = ╱e2╱+╱ // 0x3f7 @0x12
0x03e5…03ff at0013 = ╱47╱G╱ // 0x3f8 @0x13
0x03e5…03ff at0014 = ╱31╱1╱ // 0x3f9 @0x14
0x03e5…03ff at0015 = ╱dd╱<╱ // 0x3fa @0x15
0x03e5…03ff at0016 = ╱46╱F╱ // 0x3fb @0x16
0x03e5…03ff at0017 = ╱34╱4╱ // 0x3fc @0x17
0x03e5…03ff at0018 = ╱b6╱ THEN ╱ // 0x3fd @0x18
0x03e5…03ff at0019 = EOL // 0x3fe @0x19
0x03e5…03ff }
0x03ff…0422 9179 0350 EXEC FINDPOST1(G2,F7,G3,F4,F9,E5$)
0x03ff…0422 LineComalBin {
0x03ff…0422 ptr = 0x9179 // 0x3ff @0x0
0x03ff…0422 lno = 0x015e // 0x401 @0x2
0x03ff…0422 at0004 = ╱9d╱ EXEC ╱ // 0x403 @0x4
0x03ff…0422 at0005 = ╱46╱F╱ // 0x404 @0x5
0x03ff…0422 at0006 = ╱49╱I╱ // 0x405 @0x6
0x03ff…0422 at0007 = ╱4e╱N╱ // 0x406 @0x7
0x03ff…0422 at0008 = ╱44╱D╱ // 0x407 @0x8
0x03ff…0422 at0009 = ╱50╱P╱ // 0x408 @0x9
0x03ff…0422 at000a = ╱4f╱O╱ // 0x409 @0xa
0x03ff…0422 at000b = ╱53╱S╱ // 0x40a @0xb
0x03ff…0422 at000c = ╱54╱T╱ // 0x40b @0xc
0x03ff…0422 at000d = ╱31╱1╱ // 0x40c @0xd
0x03ff…0422 at000e = ╱ed╱(╱ // 0x40d @0xe
0x03ff…0422 at000f = ╱47╱G╱ // 0x40e @0xf
0x03ff…0422 at0010 = ╱32╱2╱ // 0x40f @0x10
0x03ff…0422 at0011 = ╱ec╱,╱ // 0x410 @0x11
0x03ff…0422 at0012 = ╱46╱F╱ // 0x411 @0x12
0x03ff…0422 at0013 = ╱37╱7╱ // 0x412 @0x13
0x03ff…0422 at0014 = ╱ec╱,╱ // 0x413 @0x14
0x03ff…0422 at0015 = ╱47╱G╱ // 0x414 @0x15
0x03ff…0422 at0016 = ╱33╱3╱ // 0x415 @0x16
0x03ff…0422 at0017 = ╱ec╱,╱ // 0x416 @0x17
0x03ff…0422 at0018 = ╱46╱F╱ // 0x417 @0x18
0x03ff…0422 at0019 = ╱34╱4╱ // 0x418 @0x19
0x03ff…0422 at001a = ╱ec╱,╱ // 0x419 @0x1a
0x03ff…0422 at001b = ╱46╱F╱ // 0x41a @0x1b
0x03ff…0422 at001c = ╱39╱9╱ // 0x41b @0x1c
0x03ff…0422 at001d = ╱ec╱,╱ // 0x41c @0x1d
0x03ff…0422 at001e = ╱45╱E╱ // 0x41d @0x1e
0x03ff…0422 at001f = ╱35╱5╱ // 0x41e @0x1f
0x03ff…0422 at0020 = ╱ef╱$╱ // 0x41f @0x20
0x03ff…0422 at0021 = ╱ee╱)╱ // 0x420 @0x21
0x03ff…0422 at0022 = EOL // 0x421 @0x22
0x03ff…0422 }
0x0422…0449 91a0 0360 IF F5=B THEN EXEC HENTDPOST(F9,F4,F7,A8$,A2$)
0x0422…0449 LineComalBin {
0x0422…0449 ptr = 0x91a0 // 0x422 @0x0
0x0422…0449 lno = 0x0168 // 0x424 @0x2
0x0422…0449 at0004 = ╱82╱ IF ╱ // 0x426 @0x4
0x0422…0449 at0005 = ╱46╱F╱ // 0x427 @0x5
0x0422…0449 at0006 = ╱35╱5╱ // 0x428 @0x6
0x0422…0449 at0007 = ╱dc╱=╱ // 0x429 @0x7
0x0422…0449 at0008 = ╱42╱B╱ // 0x42a @0x8
0x0422…0449 at0009 = ╱b6╱ THEN ╱ // 0x42b @0x9
0x0422…0449 at000a = ╱9d╱ EXEC ╱ // 0x42c @0xa
0x0422…0449 at000b = ╱48╱H╱ // 0x42d @0xb
0x0422…0449 at000c = ╱45╱E╱ // 0x42e @0xc
0x0422…0449 at000d = ╱4e╱N╱ // 0x42f @0xd
0x0422…0449 at000e = ╱54╱T╱ // 0x430 @0xe
0x0422…0449 at000f = ╱44╱D╱ // 0x431 @0xf
0x0422…0449 at0010 = ╱50╱P╱ // 0x432 @0x10
0x0422…0449 at0011 = ╱4f╱O╱ // 0x433 @0x11
0x0422…0449 at0012 = ╱53╱S╱ // 0x434 @0x12
0x0422…0449 at0013 = ╱54╱T╱ // 0x435 @0x13
0x0422…0449 at0014 = ╱ed╱(╱ // 0x436 @0x14
0x0422…0449 at0015 = ╱46╱F╱ // 0x437 @0x15
0x0422…0449 at0016 = ╱39╱9╱ // 0x438 @0x16
0x0422…0449 at0017 = ╱ec╱,╱ // 0x439 @0x17
0x0422…0449 at0018 = ╱46╱F╱ // 0x43a @0x18
0x0422…0449 at0019 = ╱34╱4╱ // 0x43b @0x19
0x0422…0449 at001a = ╱ec╱,╱ // 0x43c @0x1a
0x0422…0449 at001b = ╱46╱F╱ // 0x43d @0x1b
0x0422…0449 at001c = ╱37╱7╱ // 0x43e @0x1c
0x0422…0449 at001d = ╱ec╱,╱ // 0x43f @0x1d
0x0422…0449 at001e = ╱41╱A╱ // 0x440 @0x1e
0x0422…0449 at001f = ╱38╱8╱ // 0x441 @0x1f
0x0422…0449 at0020 = ╱ef╱$╱ // 0x442 @0x20
0x0422…0449 at0021 = ╱ec╱,╱ // 0x443 @0x21
0x0422…0449 at0022 = ╱41╱A╱ // 0x444 @0x22
0x0422…0449 at0023 = ╱32╱2╱ // 0x445 @0x23
0x0422…0449 at0024 = ╱ef╱$╱ // 0x446 @0x24
0x0422…0449 at0025 = ╱ee╱)╱ // 0x447 @0x25
0x0422…0449 at0026 = EOL // 0x448 @0x26
0x0422…0449 }
0x0449…044f 91a6 0370 ENDIF
0x0449…044f LineComalBin {
0x0449…044f ptr = 0x91a6 // 0x449 @0x0
0x0449…044f lno = 0x0172 // 0x44b @0x2
0x0449…044f at0004 = ╱9b╱ ENDIF ╱ // 0x44d @0x4
0x0449…044f at0005 = EOL // 0x44e @0x5
0x0449…044f }
0x044f…0458 91af 0380 WHEN G4
0x044f…0458 LineComalBin {
0x044f…0458 ptr = 0x91af // 0x44f @0x0
0x044f…0458 lno = 0x017c // 0x451 @0x2
0x044f…0458 at0004 = ╱a301╱ WHEN ╱ // 0x453 @0x4
0x044f…0458 at0006 = ╱47╱G╱ // 0x455 @0x6
0x044f…0458 at0007 = ╱34╱4╱ // 0x456 @0x7
0x044f…0458 at0008 = EOL // 0x457 @0x8
0x044f…0458 }
0x0458…0471 91c8 0390 IF G4*1000+G5<F4 THEN
0x0458…0471 LineComalBin {
0x0458…0471 ptr = 0x91c8 // 0x458 @0x0
0x0458…0471 lno = 0x0186 // 0x45a @0x2
0x0458…0471 at0004 = ╱9c╱ IF ╱ // 0x45c @0x4
0x0458…0471 at0005 = ╱47╱G╱ // 0x45d @0x5
0x0458…0471 at0006 = ╱34╱4╱ // 0x45e @0x6
0x0458…0471 at0007 = ╱e4╱*╱ // 0x45f @0x7
0x0458…0471 at0008 = ╱31╱1╱ // 0x460 @0x8
0x0458…0471 at0009 = ╱30╱0╱ // 0x461 @0x9
0x0458…0471 at000a = ╱30╱0╱ // 0x462 @0xa
0x0458…0471 at000b = ╱30╱0╱ // 0x463 @0xb
0x0458…0471 at000c = ╱fe0000fa0a╱ // 0x464 @0xc
0x0458…0471 at0011 = ╱e2╱+╱ // 0x469 @0x11
0x0458…0471 at0012 = ╱47╱G╱ // 0x46a @0x12
0x0458…0471 at0013 = ╱35╱5╱ // 0x46b @0x13
0x0458…0471 at0014 = ╱dd╱<╱ // 0x46c @0x14
0x0458…0471 at0015 = ╱46╱F╱ // 0x46d @0x15
0x0458…0471 at0016 = ╱34╱4╱ // 0x46e @0x16
0x0458…0471 at0017 = ╱b6╱ THEN ╱ // 0x46f @0x17
0x0458…0471 at0018 = EOL // 0x470 @0x18
0x0458…0471 }
0x0471…0494 91eb 0400 EXEC FINDPOST1(G6,F7,G7,F4,F9,C2$)
0x0471…0494 LineComalBin {
0x0471…0494 ptr = 0x91eb // 0x471 @0x0
0x0471…0494 lno = 0x0190 // 0x473 @0x2
0x0471…0494 at0004 = ╱9d╱ EXEC ╱ // 0x475 @0x4
0x0471…0494 at0005 = ╱46╱F╱ // 0x476 @0x5
0x0471…0494 at0006 = ╱49╱I╱ // 0x477 @0x6
0x0471…0494 at0007 = ╱4e╱N╱ // 0x478 @0x7
0x0471…0494 at0008 = ╱44╱D╱ // 0x479 @0x8
0x0471…0494 at0009 = ╱50╱P╱ // 0x47a @0x9
0x0471…0494 at000a = ╱4f╱O╱ // 0x47b @0xa
0x0471…0494 at000b = ╱53╱S╱ // 0x47c @0xb
0x0471…0494 at000c = ╱54╱T╱ // 0x47d @0xc
0x0471…0494 at000d = ╱31╱1╱ // 0x47e @0xd
0x0471…0494 at000e = ╱ed╱(╱ // 0x47f @0xe
0x0471…0494 at000f = ╱47╱G╱ // 0x480 @0xf
0x0471…0494 at0010 = ╱36╱6╱ // 0x481 @0x10
0x0471…0494 at0011 = ╱ec╱,╱ // 0x482 @0x11
0x0471…0494 at0012 = ╱46╱F╱ // 0x483 @0x12
0x0471…0494 at0013 = ╱37╱7╱ // 0x484 @0x13
0x0471…0494 at0014 = ╱ec╱,╱ // 0x485 @0x14
0x0471…0494 at0015 = ╱47╱G╱ // 0x486 @0x15
0x0471…0494 at0016 = ╱37╱7╱ // 0x487 @0x16
0x0471…0494 at0017 = ╱ec╱,╱ // 0x488 @0x17
0x0471…0494 at0018 = ╱46╱F╱ // 0x489 @0x18
0x0471…0494 at0019 = ╱34╱4╱ // 0x48a @0x19
0x0471…0494 at001a = ╱ec╱,╱ // 0x48b @0x1a
0x0471…0494 at001b = ╱46╱F╱ // 0x48c @0x1b
0x0471…0494 at001c = ╱39╱9╱ // 0x48d @0x1c
0x0471…0494 at001d = ╱ec╱,╱ // 0x48e @0x1d
0x0471…0494 at001e = ╱43╱C╱ // 0x48f @0x1e
0x0471…0494 at001f = ╱32╱2╱ // 0x490 @0x1f
0x0471…0494 at0020 = ╱ef╱$╱ // 0x491 @0x20
0x0471…0494 at0021 = ╱ee╱)╱ // 0x492 @0x21
0x0471…0494 at0022 = EOL // 0x493 @0x22
0x0471…0494 }
0x0494…04bb 9212 0410 IF F5=B THEN EXEC HENTDPOST(F9,F4,F7,A9$,A2$)
0x0494…04bb LineComalBin {
0x0494…04bb ptr = 0x9212 // 0x494 @0x0
0x0494…04bb lno = 0x019a // 0x496 @0x2
0x0494…04bb at0004 = ╱82╱ IF ╱ // 0x498 @0x4
0x0494…04bb at0005 = ╱46╱F╱ // 0x499 @0x5
0x0494…04bb at0006 = ╱35╱5╱ // 0x49a @0x6
0x0494…04bb at0007 = ╱dc╱=╱ // 0x49b @0x7
0x0494…04bb at0008 = ╱42╱B╱ // 0x49c @0x8
0x0494…04bb at0009 = ╱b6╱ THEN ╱ // 0x49d @0x9
0x0494…04bb at000a = ╱9d╱ EXEC ╱ // 0x49e @0xa
0x0494…04bb at000b = ╱48╱H╱ // 0x49f @0xb
0x0494…04bb at000c = ╱45╱E╱ // 0x4a0 @0xc
0x0494…04bb at000d = ╱4e╱N╱ // 0x4a1 @0xd
0x0494…04bb at000e = ╱54╱T╱ // 0x4a2 @0xe
0x0494…04bb at000f = ╱44╱D╱ // 0x4a3 @0xf
0x0494…04bb at0010 = ╱50╱P╱ // 0x4a4 @0x10
0x0494…04bb at0011 = ╱4f╱O╱ // 0x4a5 @0x11
0x0494…04bb at0012 = ╱53╱S╱ // 0x4a6 @0x12
0x0494…04bb at0013 = ╱54╱T╱ // 0x4a7 @0x13
0x0494…04bb at0014 = ╱ed╱(╱ // 0x4a8 @0x14
0x0494…04bb at0015 = ╱46╱F╱ // 0x4a9 @0x15
0x0494…04bb at0016 = ╱39╱9╱ // 0x4aa @0x16
0x0494…04bb at0017 = ╱ec╱,╱ // 0x4ab @0x17
0x0494…04bb at0018 = ╱46╱F╱ // 0x4ac @0x18
0x0494…04bb at0019 = ╱34╱4╱ // 0x4ad @0x19
0x0494…04bb at001a = ╱ec╱,╱ // 0x4ae @0x1a
0x0494…04bb at001b = ╱46╱F╱ // 0x4af @0x1b
0x0494…04bb at001c = ╱37╱7╱ // 0x4b0 @0x1c
0x0494…04bb at001d = ╱ec╱,╱ // 0x4b1 @0x1d
0x0494…04bb at001e = ╱41╱A╱ // 0x4b2 @0x1e
0x0494…04bb at001f = ╱39╱9╱ // 0x4b3 @0x1f
0x0494…04bb at0020 = ╱ef╱$╱ // 0x4b4 @0x20
0x0494…04bb at0021 = ╱ec╱,╱ // 0x4b5 @0x21
0x0494…04bb at0022 = ╱41╱A╱ // 0x4b6 @0x22
0x0494…04bb at0023 = ╱32╱2╱ // 0x4b7 @0x23
0x0494…04bb at0024 = ╱ef╱$╱ // 0x4b8 @0x24
0x0494…04bb at0025 = ╱ee╱)╱ // 0x4b9 @0x25
0x0494…04bb at0026 = EOL // 0x4ba @0x26
0x0494…04bb }
0x04bb…04c1 9218 0420 ENDIF
0x04bb…04c1 LineComalBin {
0x04bb…04c1 ptr = 0x9218 // 0x4bb @0x0
0x04bb…04c1 lno = 0x01a4 // 0x4bd @0x2
0x04bb…04c1 at0004 = ╱9b╱ ENDIF ╱ // 0x4bf @0x4
0x04bb…04c1 at0005 = EOL // 0x4c0 @0x5
0x04bb…04c1 }
0x04c1…04c7 921e 0430 ENDCASE
0x04c1…04c7 LineComalBin {
0x04c1…04c7 ptr = 0x921e // 0x4c1 @0x0
0x04c1…04c7 lno = 0x01ae // 0x4c3 @0x2
0x04c1…04c7 at0004 = ╱a4╱ ENDCASE ╱ // 0x4c5 @0x4
0x04c1…04c7 at0005 = EOL // 0x4c6 @0x5
0x04c1…04c7 }
0x04c7…04f1 9248 0440 IF F5=E THEN A2$="Konto eksisterer ikke "
0x04c7…04f1 LineComalBin {
0x04c7…04f1 ptr = 0x9248 // 0x4c7 @0x0
0x04c7…04f1 lno = 0x01b8 // 0x4c9 @0x2
0x04c7…04f1 at0004 = ╱82╱ IF ╱ // 0x4cb @0x4
0x04c7…04f1 at0005 = ╱46╱F╱ // 0x4cc @0x5
0x04c7…04f1 at0006 = ╱35╱5╱ // 0x4cd @0x6
0x04c7…04f1 at0007 = ╱dc╱=╱ // 0x4ce @0x7
0x04c7…04f1 at0008 = ╱45╱E╱ // 0x4cf @0x8
0x04c7…04f1 at0009 = ╱b6╱ THEN ╱ // 0x4d0 @0x9
0x04c7…04f1 at000a = ╱41╱A╱ // 0x4d1 @0xa
0x04c7…04f1 at000b = ╱32╱2╱ // 0x4d2 @0xb
0x04c7…04f1 at000c = ╱ef╱$╱ // 0x4d3 @0xc
0x04c7…04f1 at000d = ╱dc╱=╱ // 0x4d4 @0xd
0x04c7…04f1 at000e = ╱22╱"╱ // 0x4d5 @0xe
0x04c7…04f1 at000f = ╱4b╱K╱ // 0x4d6 @0xf
0x04c7…04f1 at0010 = ╱6f╱o╱ // 0x4d7 @0x10
0x04c7…04f1 at0011 = ╱6e╱n╱ // 0x4d8 @0x11
0x04c7…04f1 at0012 = ╱74╱t╱ // 0x4d9 @0x12
0x04c7…04f1 at0013 = ╱6f╱o╱ // 0x4da @0x13
0x04c7…04f1 at0014 = ╱20╱…╱ // 0x4db @0x14
0x04c7…04f1 at0015 = ╱65╱e╱ // 0x4dc @0x15
0x04c7…04f1 at0016 = ╱6b╱k╱ // 0x4dd @0x16
0x04c7…04f1 at0017 = ╱73╱s╱ // 0x4de @0x17
0x04c7…04f1 at0018 = ╱69╱i╱ // 0x4df @0x18
0x04c7…04f1 at0019 = ╱73╱s╱ // 0x4e0 @0x19
0x04c7…04f1 at001a = ╱74╱t╱ // 0x4e1 @0x1a
0x04c7…04f1 at001b = ╱65╱e╱ // 0x4e2 @0x1b
0x04c7…04f1 at001c = ╱72╱r╱ // 0x4e3 @0x1c
0x04c7…04f1 at001d = ╱65╱e╱ // 0x4e4 @0x1d
0x04c7…04f1 at001e = ╱72╱r╱ // 0x4e5 @0x1e
0x04c7…04f1 at001f = ╱20╱…╱ // 0x4e6 @0x1f
0x04c7…04f1 at0020 = ╱69╱i╱ // 0x4e7 @0x20
0x04c7…04f1 at0021 = ╱6b╱k╱ // 0x4e8 @0x21
0x04c7…04f1 at0022 = ╱6b╱k╱ // 0x4e9 @0x22
0x04c7…04f1 at0023 = ╱65╱e╱ // 0x4ea @0x23
0x04c7…04f1 at0024 = ╱20╱…╱ // 0x4eb @0x24
0x04c7…04f1 at0025 = ╱20╱…╱ // 0x4ec @0x25
0x04c7…04f1 at0026 = ╱20╱…╱ // 0x4ed @0x26
0x04c7…04f1 at0027 = ╱20╱…╱ // 0x4ee @0x27
0x04c7…04f1 at0028 = ╱22╱"╱ // 0x4ef @0x28
0x04c7…04f1 at0029 = EOL // 0x4f0 @0x29
0x04c7…04f1 }
0x04f1…04f7 924e 0450 ENDPROC
0x04f1…04f7 LineComalBin {
0x04f1…04f7 ptr = 0x924e // 0x4f1 @0x0
0x04f1…04f7 lno = 0x01c2 // 0x4f3 @0x2
0x04f1…04f7 at0004 = ╱9f╱ ENDPROC ╱ // 0x4f5 @0x4
0x04f1…04f7 at0005 = EOL // 0x4f6 @0x5
0x04f1…04f7 }
0x04f7…0516 926d 0460 PROC HENTDPOST(G8,G9,H0,H1,H2)
0x04f7…0516 LineComalBin {
0x04f7…0516 ptr = 0x926d // 0x4f7 @0x0
0x04f7…0516 lno = 0x01cc // 0x4f9 @0x2
0x04f7…0516 at0004 = ╱9e╱ PROC ╱ // 0x4fb @0x4
0x04f7…0516 at0005 = ╱48╱H╱ // 0x4fc @0x5
0x04f7…0516 at0006 = ╱45╱E╱ // 0x4fd @0x6
0x04f7…0516 at0007 = ╱4e╱N╱ // 0x4fe @0x7
0x04f7…0516 at0008 = ╱54╱T╱ // 0x4ff @0x8
0x04f7…0516 at0009 = ╱44╱D╱ // 0x500 @0x9
0x04f7…0516 at000a = ╱50╱P╱ // 0x501 @0xa
0x04f7…0516 at000b = ╱4f╱O╱ // 0x502 @0xb
0x04f7…0516 at000c = ╱53╱S╱ // 0x503 @0xc
0x04f7…0516 at000d = ╱54╱T╱ // 0x504 @0xd
0x04f7…0516 at000e = ╱ed╱(╱ // 0x505 @0xe
0x04f7…0516 at000f = ╱47╱G╱ // 0x506 @0xf
0x04f7…0516 at0010 = ╱38╱8╱ // 0x507 @0x10
0x04f7…0516 at0011 = ╱ec╱,╱ // 0x508 @0x11
0x04f7…0516 at0012 = ╱47╱G╱ // 0x509 @0x12
0x04f7…0516 at0013 = ╱39╱9╱ // 0x50a @0x13
0x04f7…0516 at0014 = ╱ec╱,╱ // 0x50b @0x14
0x04f7…0516 at0015 = ╱48╱H╱ // 0x50c @0x15
0x04f7…0516 at0016 = ╱30╱0╱ // 0x50d @0x16
0x04f7…0516 at0017 = ╱ec╱,╱ // 0x50e @0x17
0x04f7…0516 at0018 = ╱48╱H╱ // 0x50f @0x18
0x04f7…0516 at0019 = ╱31╱1╱ // 0x510 @0x19
0x04f7…0516 at001a = ╱ec╱,╱ // 0x511 @0x1a
0x04f7…0516 at001b = ╱48╱H╱ // 0x512 @0x1b
0x04f7…0516 at001c = ╱32╱2╱ // 0x513 @0x1c
0x04f7…0516 at001d = ╱ee╱)╱ // 0x514 @0x1d
0x04f7…0516 at001e = EOL // 0x515 @0x1e
0x04f7…0516 }
0x0516…0525 927c 0470 S=H0(G8,G)
0x0516…0525 LineComalBin {
0x0516…0525 ptr = 0x927c // 0x516 @0x0
0x0516…0525 lno = 0x01d6 // 0x518 @0x2
0x0516…0525 at0004 = ╱53╱S╱ // 0x51a @0x4
0x0516…0525 at0005 = ╱dc╱=╱ // 0x51b @0x5
0x0516…0525 at0006 = ╱48╱H╱ // 0x51c @0x6
0x0516…0525 at0007 = ╱30╱0╱ // 0x51d @0x7
0x0516…0525 at0008 = ╱ed╱(╱ // 0x51e @0x8
0x0516…0525 at0009 = ╱47╱G╱ // 0x51f @0x9
0x0516…0525 at000a = ╱38╱8╱ // 0x520 @0xa
0x0516…0525 at000b = ╱ec╱,╱ // 0x521 @0xb
0x0516…0525 at000c = ╱47╱G╱ // 0x522 @0xc
0x0516…0525 at000d = ╱ee╱)╱ // 0x523 @0xd
0x0516…0525 at000e = EOL // 0x524 @0xe
0x0516…0525 }
0x0525…0537 928e 0480 GET H1$,S:G9,H2$
0x0525…0537 LineComalBin {
0x0525…0537 ptr = 0x928e // 0x525 @0x0
0x0525…0537 lno = 0x01e0 // 0x527 @0x2
0x0525…0537 at0004 = ╱a9╱ GET ╱ // 0x529 @0x4
0x0525…0537 at0005 = ╱48╱H╱ // 0x52a @0x5
0x0525…0537 at0006 = ╱31╱1╱ // 0x52b @0x6
0x0525…0537 at0007 = ╱ef╱$╱ // 0x52c @0x7
0x0525…0537 at0008 = ╱ec╱,╱ // 0x52d @0x8
0x0525…0537 at0009 = ╱53╱S╱ // 0x52e @0x9
0x0525…0537 at000a = ╱f0╱:╱ // 0x52f @0xa
0x0525…0537 at000b = ╱47╱G╱ // 0x530 @0xb
0x0525…0537 at000c = ╱39╱9╱ // 0x531 @0xc
0x0525…0537 at000d = ╱ec╱,╱ // 0x532 @0xd
0x0525…0537 at000e = ╱48╱H╱ // 0x533 @0xe
0x0525…0537 at000f = ╱32╱2╱ // 0x534 @0xf
0x0525…0537 at0010 = ╱ef╱$╱ // 0x535 @0x10
0x0525…0537 at0011 = EOL // 0x536 @0x11
0x0525…0537 }
0x0537…054d 92a4 0490 EXEC FE(8,G,H1$)
0x0537…054d LineComalBin {
0x0537…054d ptr = 0x92a4 // 0x537 @0x0
0x0537…054d lno = 0x01ea // 0x539 @0x2
0x0537…054d at0004 = ╱9d╱ EXEC ╱ // 0x53b @0x4
0x0537…054d at0005 = ╱46╱F╱ // 0x53c @0x5
0x0537…054d at0006 = ╱45╱E╱ // 0x53d @0x6
0x0537…054d at0007 = ╱ed╱(╱ // 0x53e @0x7
0x0537…054d at0008 = ╱38╱8╱ // 0x53f @0x8
0x0537…054d at0009 = ╱fe00008004╱ // 0x540 @0x9
0x0537…054d at000e = ╱ec╱,╱ // 0x545 @0xe
0x0537…054d at000f = ╱47╱G╱ // 0x546 @0xf
0x0537…054d at0010 = ╱ec╱,╱ // 0x547 @0x10
0x0537…054d at0011 = ╱48╱H╱ // 0x548 @0x11
0x0537…054d at0012 = ╱31╱1╱ // 0x549 @0x12
0x0537…054d at0013 = ╱ef╱$╱ // 0x54a @0x13
0x0537…054d at0014 = ╱ee╱)╱ // 0x54b @0x14
0x0537…054d at0015 = EOL // 0x54c @0x15
0x0537…054d }
0x054d…0560 92b7 0500 IF G9<>H0(G8,E) THEN STOP
0x054d…0560 LineComalBin {
0x054d…0560 ptr = 0x92b7 // 0x54d @0x0
0x054d…0560 lno = 0x01f4 // 0x54f @0x2
0x054d…0560 at0004 = ╱82╱ IF ╱ // 0x551 @0x4
0x054d…0560 at0005 = ╱47╱G╱ // 0x552 @0x5
0x054d…0560 at0006 = ╱39╱9╱ // 0x553 @0x6
0x054d…0560 at0007 = ╱e1╱<>╱ // 0x554 @0x7
0x054d…0560 at0008 = ╱48╱H╱ // 0x555 @0x8
0x054d…0560 at0009 = ╱30╱0╱ // 0x556 @0x9
0x054d…0560 at000a = ╱ed╱(╱ // 0x557 @0xa
0x054d…0560 at000b = ╱47╱G╱ // 0x558 @0xb
0x054d…0560 at000c = ╱38╱8╱ // 0x559 @0xc
0x054d…0560 at000d = ╱ec╱,╱ // 0x55a @0xd
0x054d…0560 at000e = ╱45╱E╱ // 0x55b @0xe
0x054d…0560 at000f = ╱ee╱)╱ // 0x55c @0xf
0x054d…0560 at0010 = ╱b6╱ THEN ╱ // 0x55d @0x10
0x054d…0560 at0011 = ╱8d╱ STOP ╱ // 0x55e @0x11
0x054d…0560 at0012 = EOL // 0x55f @0x12
0x054d…0560 }
0x0560…0566 92bd 0510 ENDPROC
0x0560…0566 LineComalBin {
0x0560…0566 ptr = 0x92bd // 0x560 @0x0
0x0560…0566 lno = 0x01fe // 0x562 @0x2
0x0560…0566 at0004 = ╱9f╱ ENDPROC ╱ // 0x564 @0x4
0x0560…0566 at0005 = EOL // 0x565 @0x5
0x0560…0566 }
0x0566…0574 92cb 0520 PROC HENTPOST
0x0566…0574 LineComalBin {
0x0566…0574 ptr = 0x92cb // 0x566 @0x0
0x0566…0574 lno = 0x0208 // 0x568 @0x2
0x0566…0574 at0004 = ╱9e╱ PROC ╱ // 0x56a @0x4
0x0566…0574 at0005 = ╱48╱H╱ // 0x56b @0x5
0x0566…0574 at0006 = ╱45╱E╱ // 0x56c @0x6
0x0566…0574 at0007 = ╱4e╱N╱ // 0x56d @0x7
0x0566…0574 at0008 = ╱54╱T╱ // 0x56e @0x8
0x0566…0574 at0009 = ╱50╱P╱ // 0x56f @0x9
0x0566…0574 at000a = ╱4f╱O╱ // 0x570 @0xa
0x0566…0574 at000b = ╱53╱S╱ // 0x571 @0xb
0x0566…0574 at000c = ╱54╱T╱ // 0x572 @0xc
0x0566…0574 at000d = EOL // 0x573 @0xd
0x0566…0574 }
0x0574…0583 92da 0530 S=F7(F9,G)
0x0574…0583 LineComalBin {
0x0574…0583 ptr = 0x92da // 0x574 @0x0
0x0574…0583 lno = 0x0212 // 0x576 @0x2
0x0574…0583 at0004 = ╱53╱S╱ // 0x578 @0x4
0x0574…0583 at0005 = ╱dc╱=╱ // 0x579 @0x5
0x0574…0583 at0006 = ╱46╱F╱ // 0x57a @0x6
0x0574…0583 at0007 = ╱37╱7╱ // 0x57b @0x7
0x0574…0583 at0008 = ╱ed╱(╱ // 0x57c @0x8
0x0574…0583 at0009 = ╱46╱F╱ // 0x57d @0x9
0x0574…0583 at000a = ╱39╱9╱ // 0x57e @0xa
0x0574…0583 at000b = ╱ec╱,╱ // 0x57f @0xb
0x0574…0583 at000c = ╱47╱G╱ // 0x580 @0xc
0x0574…0583 at000d = ╱ee╱)╱ // 0x581 @0xd
0x0574…0583 at000e = EOL // 0x582 @0xe
0x0574…0583 }
0x0583…0595 92ec 0540 GET D2$,S:H3,A3$
0x0583…0595 LineComalBin {
0x0583…0595 ptr = 0x92ec // 0x583 @0x0
0x0583…0595 lno = 0x021c // 0x585 @0x2
0x0583…0595 at0004 = ╱a9╱ GET ╱ // 0x587 @0x4
0x0583…0595 at0005 = ╱44╱D╱ // 0x588 @0x5
0x0583…0595 at0006 = ╱32╱2╱ // 0x589 @0x6
0x0583…0595 at0007 = ╱ef╱$╱ // 0x58a @0x7
0x0583…0595 at0008 = ╱ec╱,╱ // 0x58b @0x8
0x0583…0595 at0009 = ╱53╱S╱ // 0x58c @0x9
0x0583…0595 at000a = ╱f0╱:╱ // 0x58d @0xa
0x0583…0595 at000b = ╱48╱H╱ // 0x58e @0xb
0x0583…0595 at000c = ╱33╱3╱ // 0x58f @0xc
0x0583…0595 at000d = ╱ec╱,╱ // 0x590 @0xd
0x0583…0595 at000e = ╱41╱A╱ // 0x591 @0xe
0x0583…0595 at000f = ╱33╱3╱ // 0x592 @0xf
0x0583…0595 at0010 = ╱ef╱$╱ // 0x593 @0x10
0x0583…0595 at0011 = EOL // 0x594 @0x11
0x0583…0595 }
0x0595…05a6 92fd 0550 EXEC FE(V,G,D2$)
0x0595…05a6 LineComalBin {
0x0595…05a6 ptr = 0x92fd // 0x595 @0x0
0x0595…05a6 lno = 0x0226 // 0x597 @0x2
0x0595…05a6 at0004 = ╱9d╱ EXEC ╱ // 0x599 @0x4
0x0595…05a6 at0005 = ╱46╱F╱ // 0x59a @0x5
0x0595…05a6 at0006 = ╱45╱E╱ // 0x59b @0x6
0x0595…05a6 at0007 = ╱ed╱(╱ // 0x59c @0x7
0x0595…05a6 at0008 = ╱56╱V╱ // 0x59d @0x8
0x0595…05a6 at0009 = ╱ec╱,╱ // 0x59e @0x9
0x0595…05a6 at000a = ╱47╱G╱ // 0x59f @0xa
0x0595…05a6 at000b = ╱ec╱,╱ // 0x5a0 @0xb
0x0595…05a6 at000c = ╱44╱D╱ // 0x5a1 @0xc
0x0595…05a6 at000d = ╱32╱2╱ // 0x5a2 @0xd
0x0595…05a6 at000e = ╱ef╱$╱ // 0x5a3 @0xe
0x0595…05a6 at000f = ╱ee╱)╱ // 0x5a4 @0xf
0x0595…05a6 at0010 = EOL // 0x5a5 @0x10
0x0595…05a6 }
0x05a6…05b9 9310 0560 IF H3<>F7(F9,E) THEN STOP
0x05a6…05b9 LineComalBin {
0x05a6…05b9 ptr = 0x9310 // 0x5a6 @0x0
0x05a6…05b9 lno = 0x0230 // 0x5a8 @0x2
0x05a6…05b9 at0004 = ╱82╱ IF ╱ // 0x5aa @0x4
0x05a6…05b9 at0005 = ╱48╱H╱ // 0x5ab @0x5
0x05a6…05b9 at0006 = ╱33╱3╱ // 0x5ac @0x6
0x05a6…05b9 at0007 = ╱e1╱<>╱ // 0x5ad @0x7
0x05a6…05b9 at0008 = ╱46╱F╱ // 0x5ae @0x8
0x05a6…05b9 at0009 = ╱37╱7╱ // 0x5af @0x9
0x05a6…05b9 at000a = ╱ed╱(╱ // 0x5b0 @0xa
0x05a6…05b9 at000b = ╱46╱F╱ // 0x5b1 @0xb
0x05a6…05b9 at000c = ╱39╱9╱ // 0x5b2 @0xc
0x05a6…05b9 at000d = ╱ec╱,╱ // 0x5b3 @0xd
0x05a6…05b9 at000e = ╱45╱E╱ // 0x5b4 @0xe
0x05a6…05b9 at000f = ╱ee╱)╱ // 0x5b5 @0xf
0x05a6…05b9 at0010 = ╱b6╱ THEN ╱ // 0x5b6 @0x10
0x05a6…05b9 at0011 = ╱8d╱ STOP ╱ // 0x5b7 @0x11
0x05a6…05b9 at0012 = EOL // 0x5b8 @0x12
0x05a6…05b9 }
0x05b9…05ca 9321 0570 GET D2$,S+G:A4$
0x05b9…05ca LineComalBin {
0x05b9…05ca ptr = 0x9321 // 0x5b9 @0x0
0x05b9…05ca lno = 0x023a // 0x5bb @0x2
0x05b9…05ca at0004 = ╱a9╱ GET ╱ // 0x5bd @0x4
0x05b9…05ca at0005 = ╱44╱D╱ // 0x5be @0x5
0x05b9…05ca at0006 = ╱32╱2╱ // 0x5bf @0x6
0x05b9…05ca at0007 = ╱ef╱$╱ // 0x5c0 @0x7
0x05b9…05ca at0008 = ╱ec╱,╱ // 0x5c1 @0x8
0x05b9…05ca at0009 = ╱53╱S╱ // 0x5c2 @0x9
0x05b9…05ca at000a = ╱e2╱+╱ // 0x5c3 @0xa
0x05b9…05ca at000b = ╱47╱G╱ // 0x5c4 @0xb
0x05b9…05ca at000c = ╱f0╱:╱ // 0x5c5 @0xc
0x05b9…05ca at000d = ╱41╱A╱ // 0x5c6 @0xd
0x05b9…05ca at000e = ╱34╱4╱ // 0x5c7 @0xe
0x05b9…05ca at000f = ╱ef╱$╱ // 0x5c8 @0xf
0x05b9…05ca at0010 = EOL // 0x5c9 @0x10
0x05b9…05ca }
0x05ca…05e0 9337 0580 EXEC FE(V,4,D2$)
0x05ca…05e0 LineComalBin {
0x05ca…05e0 ptr = 0x9337 // 0x5ca @0x0
0x05ca…05e0 lno = 0x0244 // 0x5cc @0x2
0x05ca…05e0 at0004 = ╱9d╱ EXEC ╱ // 0x5ce @0x4
0x05ca…05e0 at0005 = ╱46╱F╱ // 0x5cf @0x5
0x05ca…05e0 at0006 = ╱45╱E╱ // 0x5d0 @0x6
0x05ca…05e0 at0007 = ╱ed╱(╱ // 0x5d1 @0x7
0x05ca…05e0 at0008 = ╱56╱V╱ // 0x5d2 @0x8
0x05ca…05e0 at0009 = ╱ec╱,╱ // 0x5d3 @0x9
0x05ca…05e0 at000a = ╱34╱4╱ // 0x5d4 @0xa
0x05ca…05e0 at000b = ╱fe00008003╱ // 0x5d5 @0xb
0x05ca…05e0 at0010 = ╱ec╱,╱ // 0x5da @0x10
0x05ca…05e0 at0011 = ╱44╱D╱ // 0x5db @0x11
0x05ca…05e0 at0012 = ╱32╱2╱ // 0x5dc @0x12
0x05ca…05e0 at0013 = ╱ef╱$╱ // 0x5dd @0x13
0x05ca…05e0 at0014 = ╱ee╱)╱ // 0x5de @0x14
0x05ca…05e0 at0015 = EOL // 0x5df @0x15
0x05ca…05e0 }
0x05e0…05e6 933d 0590 ENDPROC
0x05e0…05e6 LineComalBin {
0x05e0…05e6 ptr = 0x933d // 0x5e0 @0x0
0x05e0…05e6 lno = 0x024e // 0x5e2 @0x2
0x05e0…05e6 at0004 = ╱9f╱ ENDPROC ╱ // 0x5e4 @0x4
0x05e0…05e6 at0005 = EOL // 0x5e5 @0x5
0x05e0…05e6 }
0x05e6…0607 935e 0600 PROC FINDPOST1(H4,Q,H5,H6,H7,H8)
0x05e6…0607 LineComalBin {
0x05e6…0607 ptr = 0x935e // 0x5e6 @0x0
0x05e6…0607 lno = 0x0258 // 0x5e8 @0x2
0x05e6…0607 at0004 = ╱9e╱ PROC ╱ // 0x5ea @0x4
0x05e6…0607 at0005 = ╱46╱F╱ // 0x5eb @0x5
0x05e6…0607 at0006 = ╱49╱I╱ // 0x5ec @0x6
0x05e6…0607 at0007 = ╱4e╱N╱ // 0x5ed @0x7
0x05e6…0607 at0008 = ╱44╱D╱ // 0x5ee @0x8
0x05e6…0607 at0009 = ╱50╱P╱ // 0x5ef @0x9
0x05e6…0607 at000a = ╱4f╱O╱ // 0x5f0 @0xa
0x05e6…0607 at000b = ╱53╱S╱ // 0x5f1 @0xb
0x05e6…0607 at000c = ╱54╱T╱ // 0x5f2 @0xc
0x05e6…0607 at000d = ╱31╱1╱ // 0x5f3 @0xd
0x05e6…0607 at000e = ╱ed╱(╱ // 0x5f4 @0xe
0x05e6…0607 at000f = ╱48╱H╱ // 0x5f5 @0xf
0x05e6…0607 at0010 = ╱34╱4╱ // 0x5f6 @0x10
0x05e6…0607 at0011 = ╱ec╱,╱ // 0x5f7 @0x11
0x05e6…0607 at0012 = ╱51╱Q╱ // 0x5f8 @0x12
0x05e6…0607 at0013 = ╱ec╱,╱ // 0x5f9 @0x13
0x05e6…0607 at0014 = ╱48╱H╱ // 0x5fa @0x14
0x05e6…0607 at0015 = ╱35╱5╱ // 0x5fb @0x15
0x05e6…0607 at0016 = ╱ec╱,╱ // 0x5fc @0x16
0x05e6…0607 at0017 = ╱48╱H╱ // 0x5fd @0x17
0x05e6…0607 at0018 = ╱36╱6╱ // 0x5fe @0x18
0x05e6…0607 at0019 = ╱ec╱,╱ // 0x5ff @0x19
0x05e6…0607 at001a = ╱48╱H╱ // 0x600 @0x1a
0x05e6…0607 at001b = ╱37╱7╱ // 0x601 @0x1b
0x05e6…0607 at001c = ╱ec╱,╱ // 0x602 @0x1c
0x05e6…0607 at001d = ╱48╱H╱ // 0x603 @0x1d
0x05e6…0607 at001e = ╱38╱8╱ // 0x604 @0x1e
0x05e6…0607 at001f = ╱ee╱)╱ // 0x605 @0x1f
0x05e6…0607 at0020 = EOL // 0x606 @0x20
0x05e6…0607 }
0x0607…063f 9396 0610 H9=H5 DIV 16;H7=H9;F5=E;I0=H5 DIV 8;I1=H5 DIV 32
0x0607…063f LineComalBin {
0x0607…063f ptr = 0x9396 // 0x607 @0x0
0x0607…063f lno = 0x0262 // 0x609 @0x2
0x0607…063f at0004 = ╱48╱H╱ // 0x60b @0x4
0x0607…063f at0005 = ╱39╱9╱ // 0x60c @0x5
0x0607…063f at0006 = ╱dc╱=╱ // 0x60d @0x6
0x0607…063f at0007 = ╱48╱H╱ // 0x60e @0x7
0x0607…063f at0008 = ╱35╱5╱ // 0x60f @0x8
0x0607…063f at0009 = ╱e7╱ DIV ╱ // 0x610 @0x9
0x0607…063f at000a = ╱31╱1╱ // 0x611 @0xa
0x0607…063f at000b = ╱36╱6╱ // 0x612 @0xb
0x0607…063f at000c = ╱fe00008005╱ // 0x613 @0xc
0x0607…063f at0011 = ╱eb╱;╱ // 0x618 @0x11
0x0607…063f at0012 = ╱48╱H╱ // 0x619 @0x12
0x0607…063f at0013 = ╱37╱7╱ // 0x61a @0x13
0x0607…063f at0014 = ╱dc╱=╱ // 0x61b @0x14
0x0607…063f at0015 = ╱48╱H╱ // 0x61c @0x15
0x0607…063f at0016 = ╱39╱9╱ // 0x61d @0x16
0x0607…063f at0017 = ╱eb╱;╱ // 0x61e @0x17
0x0607…063f at0018 = ╱46╱F╱ // 0x61f @0x18
0x0607…063f at0019 = ╱35╱5╱ // 0x620 @0x19
0x0607…063f at001a = ╱dc╱=╱ // 0x621 @0x1a
0x0607…063f at001b = ╱45╱E╱ // 0x622 @0x1b
0x0607…063f at001c = ╱eb╱;╱ // 0x623 @0x1c
0x0607…063f at001d = ╱49╱I╱ // 0x624 @0x1d
0x0607…063f at001e = ╱30╱0╱ // 0x625 @0x1e
0x0607…063f at001f = ╱dc╱=╱ // 0x626 @0x1f
0x0607…063f at0020 = ╱48╱H╱ // 0x627 @0x20
0x0607…063f at0021 = ╱35╱5╱ // 0x628 @0x21
0x0607…063f at0022 = ╱e7╱ DIV ╱ // 0x629 @0x22
0x0607…063f at0023 = ╱38╱8╱ // 0x62a @0x23
0x0607…063f at0024 = ╱fe00008004╱ // 0x62b @0x24
0x0607…063f at0029 = ╱eb╱;╱ // 0x630 @0x29
0x0607…063f at002a = ╱49╱I╱ // 0x631 @0x2a
0x0607…063f at002b = ╱31╱1╱ // 0x632 @0x2b
0x0607…063f at002c = ╱dc╱=╱ // 0x633 @0x2c
0x0607…063f at002d = ╱48╱H╱ // 0x634 @0x2d
0x0607…063f at002e = ╱35╱5╱ // 0x635 @0x2e
0x0607…063f at002f = ╱e7╱ DIV ╱ // 0x636 @0x2f
0x0607…063f at0030 = ╱33╱3╱ // 0x637 @0x30
0x0607…063f at0031 = ╱32╱2╱ // 0x638 @0x31
0x0607…063f at0032 = ╱fe00008006╱ // 0x639 @0x32
0x0607…063f at0037 = EOL // 0x63e @0x37
0x0607…063f }
0x063f…0645 939c 0620 REPEAT
0x063f…0645 LineComalBin {
0x063f…0645 ptr = 0x939c // 0x63f @0x0
0x063f…0645 lno = 0x026c // 0x641 @0x2
0x063f…0645 at0004 = ╱97╱ REPEAT ╱ // 0x643 @0x4
0x063f…0645 at0005 = EOL // 0x644 @0x5
0x063f…0645 }
0x0645…065b 93b2 0630 IF H6=H4(H7) OR H9=E THEN EXIT
0x0645…065b LineComalBin {
0x0645…065b ptr = 0x93b2 // 0x645 @0x0
0x0645…065b lno = 0x0276 // 0x647 @0x2
0x0645…065b at0004 = ╱82╱ IF ╱ // 0x649 @0x4
0x0645…065b at0005 = ╱48╱H╱ // 0x64a @0x5
0x0645…065b at0006 = ╱36╱6╱ // 0x64b @0x6
0x0645…065b at0007 = ╱dc╱=╱ // 0x64c @0x7
0x0645…065b at0008 = ╱48╱H╱ // 0x64d @0x8
0x0645…065b at0009 = ╱34╱4╱ // 0x64e @0x9
0x0645…065b at000a = ╱ed╱(╱ // 0x64f @0xa
0x0645…065b at000b = ╱48╱H╱ // 0x650 @0xb
0x0645…065b at000c = ╱37╱7╱ // 0x651 @0xc
0x0645…065b at000d = ╱ee╱)╱ // 0x652 @0xd
0x0645…065b at000e = ╱db╱ OR ╱ // 0x653 @0xe
0x0645…065b at000f = ╱48╱H╱ // 0x654 @0xf
0x0645…065b at0010 = ╱39╱9╱ // 0x655 @0x10
0x0645…065b at0011 = ╱dc╱=╱ // 0x656 @0x11
0x0645…065b at0012 = ╱45╱E╱ // 0x657 @0x12
0x0645…065b at0013 = ╱b6╱ THEN ╱ // 0x658 @0x13
0x0645…065b at0014 = ╱99╱ EXIT ╱ // 0x659 @0x14
0x0645…065b at0015 = EOL // 0x65a @0x15
0x0645…065b }
0x065b…0686 93dd 0640 H9=(H9+E) DIV G;H7=H7+H9*(E-G*(H6<H4(H7)))
0x065b…0686 LineComalBin {
0x065b…0686 ptr = 0x93dd // 0x65b @0x0
0x065b…0686 lno = 0x0280 // 0x65d @0x2
0x065b…0686 at0004 = ╱48╱H╱ // 0x65f @0x4
0x065b…0686 at0005 = ╱39╱9╱ // 0x660 @0x5
0x065b…0686 at0006 = ╱dc╱=╱ // 0x661 @0x6
0x065b…0686 at0007 = ╱ed╱(╱ // 0x662 @0x7
0x065b…0686 at0008 = ╱48╱H╱ // 0x663 @0x8
0x065b…0686 at0009 = ╱39╱9╱ // 0x664 @0x9
0x065b…0686 at000a = ╱e2╱+╱ // 0x665 @0xa
0x065b…0686 at000b = ╱45╱E╱ // 0x666 @0xb
0x065b…0686 at000c = ╱ee╱)╱ // 0x667 @0xc
0x065b…0686 at000d = ╱e7╱ DIV ╱ // 0x668 @0xd
0x065b…0686 at000e = ╱47╱G╱ // 0x669 @0xe
0x065b…0686 at000f = ╱eb╱;╱ // 0x66a @0xf
0x065b…0686 at0010 = ╱48╱H╱ // 0x66b @0x10
0x065b…0686 at0011 = ╱37╱7╱ // 0x66c @0x11
0x065b…0686 at0012 = ╱dc╱=╱ // 0x66d @0x12
0x065b…0686 at0013 = ╱48╱H╱ // 0x66e @0x13
0x065b…0686 at0014 = ╱37╱7╱ // 0x66f @0x14
0x065b…0686 at0015 = ╱e2╱+╱ // 0x670 @0x15
0x065b…0686 at0016 = ╱48╱H╱ // 0x671 @0x16
0x065b…0686 at0017 = ╱39╱9╱ // 0x672 @0x17
0x065b…0686 at0018 = ╱e4╱*╱ // 0x673 @0x18
0x065b…0686 at0019 = ╱ed╱(╱ // 0x674 @0x19
0x065b…0686 at001a = ╱45╱E╱ // 0x675 @0x1a
0x065b…0686 at001b = ╱e3╱-╱ // 0x676 @0x1b
0x065b…0686 at001c = ╱47╱G╱ // 0x677 @0x1c
0x065b…0686 at001d = ╱e4╱*╱ // 0x678 @0x1d
0x065b…0686 at001e = ╱ed╱(╱ // 0x679 @0x1e
0x065b…0686 at001f = ╱48╱H╱ // 0x67a @0x1f
0x065b…0686 at0020 = ╱36╱6╱ // 0x67b @0x20
0x065b…0686 at0021 = ╱dd╱<╱ // 0x67c @0x21
0x065b…0686 at0022 = ╱48╱H╱ // 0x67d @0x22
0x065b…0686 at0023 = ╱34╱4╱ // 0x67e @0x23
0x065b…0686 at0024 = ╱ed╱(╱ // 0x67f @0x24
0x065b…0686 at0025 = ╱48╱H╱ // 0x680 @0x25
0x065b…0686 at0026 = ╱37╱7╱ // 0x681 @0x26
0x065b…0686 at0027 = ╱ee╱)╱ // 0x682 @0x27
0x065b…0686 at0028 = ╱ee╱)╱ // 0x683 @0x28
0x065b…0686 at0029 = ╱ee╱)╱ // 0x684 @0x29
0x065b…0686 at002a = EOL // 0x685 @0x2a
0x065b…0686 }
0x0686…0695 93ec 0650 IF H7<E THEN H7=E
0x0686…0695 LineComalBin {
0x0686…0695 ptr = 0x93ec // 0x686 @0x0
0x0686…0695 lno = 0x028a // 0x688 @0x2
0x0686…0695 at0004 = ╱82╱ IF ╱ // 0x68a @0x4
0x0686…0695 at0005 = ╱48╱H╱ // 0x68b @0x5
0x0686…0695 at0006 = ╱37╱7╱ // 0x68c @0x6
0x0686…0695 at0007 = ╱dd╱<╱ // 0x68d @0x7
0x0686…0695 at0008 = ╱45╱E╱ // 0x68e @0x8
0x0686…0695 at0009 = ╱b6╱ THEN ╱ // 0x68f @0x9
0x0686…0695 at000a = ╱48╱H╱ // 0x690 @0xa
0x0686…0695 at000b = ╱37╱7╱ // 0x691 @0xb
0x0686…0695 at000c = ╱dc╱=╱ // 0x692 @0xc
0x0686…0695 at000d = ╱45╱E╱ // 0x693 @0xd
0x0686…0695 at000e = EOL // 0x694 @0xe
0x0686…0695 }
0x0695…06a6 93fd 0660 IF H7>I0 THEN H7=I0
0x0695…06a6 LineComalBin {
0x0695…06a6 ptr = 0x93fd // 0x695 @0x0
0x0695…06a6 lno = 0x0294 // 0x697 @0x2
0x0695…06a6 at0004 = ╱82╱ IF ╱ // 0x699 @0x4
0x0695…06a6 at0005 = ╱48╱H╱ // 0x69a @0x5
0x0695…06a6 at0006 = ╱37╱7╱ // 0x69b @0x6
0x0695…06a6 at0007 = ╱de╱>╱ // 0x69c @0x7
0x0695…06a6 at0008 = ╱49╱I╱ // 0x69d @0x8
0x0695…06a6 at0009 = ╱30╱0╱ // 0x69e @0x9
0x0695…06a6 at000a = ╱b6╱ THEN ╱ // 0x69f @0xa
0x0695…06a6 at000b = ╱48╱H╱ // 0x6a0 @0xb
0x0695…06a6 at000c = ╱37╱7╱ // 0x6a1 @0xc
0x0695…06a6 at000d = ╱dc╱=╱ // 0x6a2 @0xd
0x0695…06a6 at000e = ╱49╱I╱ // 0x6a3 @0xe
0x0695…06a6 at000f = ╱30╱0╱ // 0x6a4 @0xf
0x0695…06a6 at0010 = EOL // 0x6a5 @0x10
0x0695…06a6 }
0x06a6…06b0 9407 0670 UNTIL H9=B
0x06a6…06b0 LineComalBin {
0x06a6…06b0 ptr = 0x9407 // 0x6a6 @0x0
0x06a6…06b0 lno = 0x029e // 0x6a8 @0x2
0x06a6…06b0 at0004 = ╱98╱ UNTIL ╱ // 0x6aa @0x4
0x06a6…06b0 at0005 = ╱48╱H╱ // 0x6ab @0x5
0x06a6…06b0 at0006 = ╱39╱9╱ // 0x6ac @0x6
0x06a6…06b0 at0007 = ╱dc╱=╱ // 0x6ad @0x7
0x06a6…06b0 at0008 = ╱42╱B╱ // 0x6ae @0x8
0x06a6…06b0 at0009 = EOL // 0x6af @0x9
0x06a6…06b0 }
0x06b0…06ce 9425 0680 IF H4(H7)>H6 THEN H7=H7-E*(H7>E)
0x06b0…06ce LineComalBin {
0x06b0…06ce ptr = 0x9425 // 0x6b0 @0x0
0x06b0…06ce lno = 0x02a8 // 0x6b2 @0x2
0x06b0…06ce at0004 = ╱82╱ IF ╱ // 0x6b4 @0x4
0x06b0…06ce at0005 = ╱48╱H╱ // 0x6b5 @0x5
0x06b0…06ce at0006 = ╱34╱4╱ // 0x6b6 @0x6
0x06b0…06ce at0007 = ╱ed╱(╱ // 0x6b7 @0x7
0x06b0…06ce at0008 = ╱48╱H╱ // 0x6b8 @0x8
0x06b0…06ce at0009 = ╱37╱7╱ // 0x6b9 @0x9
0x06b0…06ce at000a = ╱ee╱)╱ // 0x6ba @0xa
0x06b0…06ce at000b = ╱de╱>╱ // 0x6bb @0xb
0x06b0…06ce at000c = ╱48╱H╱ // 0x6bc @0xc
0x06b0…06ce at000d = ╱36╱6╱ // 0x6bd @0xd
0x06b0…06ce at000e = ╱b6╱ THEN ╱ // 0x6be @0xe
0x06b0…06ce at000f = ╱48╱H╱ // 0x6bf @0xf
0x06b0…06ce at0010 = ╱37╱7╱ // 0x6c0 @0x10
0x06b0…06ce at0011 = ╱dc╱=╱ // 0x6c1 @0x11
0x06b0…06ce at0012 = ╱48╱H╱ // 0x6c2 @0x12
0x06b0…06ce at0013 = ╱37╱7╱ // 0x6c3 @0x13
0x06b0…06ce at0014 = ╱e3╱-╱ // 0x6c4 @0x14
0x06b0…06ce at0015 = ╱45╱E╱ // 0x6c5 @0x15
0x06b0…06ce at0016 = ╱e4╱*╱ // 0x6c6 @0x16
0x06b0…06ce at0017 = ╱ed╱(╱ // 0x6c7 @0x17
0x06b0…06ce at0018 = ╱48╱H╱ // 0x6c8 @0x18
0x06b0…06ce at0019 = ╱37╱7╱ // 0x6c9 @0x19
0x06b0…06ce at001a = ╱de╱>╱ // 0x6ca @0x1a
0x06b0…06ce at001b = ╱45╱E╱ // 0x6cb @0x1b
0x06b0…06ce at001c = ╱ee╱)╱ // 0x6cc @0x1c
0x06b0…06ce at001d = EOL // 0x6cd @0x1d
0x06b0…06ce }
0x06ce…06df 9436 0690 H7=I1+H7*G-E
0x06ce…06df LineComalBin {
0x06ce…06df ptr = 0x9436 // 0x6ce @0x0
0x06ce…06df lno = 0x02b2 // 0x6d0 @0x2
0x06ce…06df at0004 = ╱48╱H╱ // 0x6d2 @0x4
0x06ce…06df at0005 = ╱37╱7╱ // 0x6d3 @0x5
0x06ce…06df at0006 = ╱dc╱=╱ // 0x6d4 @0x6
0x06ce…06df at0007 = ╱49╱I╱ // 0x6d5 @0x7
0x06ce…06df at0008 = ╱31╱1╱ // 0x6d6 @0x8
0x06ce…06df at0009 = ╱e2╱+╱ // 0x6d7 @0x9
0x06ce…06df at000a = ╱48╱H╱ // 0x6d8 @0xa
0x06ce…06df at000b = ╱37╱7╱ // 0x6d9 @0xb
0x06ce…06df at000c = ╱e4╱*╱ // 0x6da @0xc
0x06ce…06df at000d = ╱47╱G╱ // 0x6db @0xd
0x06ce…06df at000e = ╱e3╱-╱ // 0x6dc @0xe
0x06ce…06df at000f = ╱45╱E╱ // 0x6dd @0xf
0x06ce…06df at0010 = EOL // 0x6de @0x10
0x06ce…06df }
0x06df…072d 9484 0700 GET H8$,H7:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G)
0x06df…072d LineComalBin {
0x06df…072d ptr = 0x9484 // 0x6df @0x0
0x06df…072d lno = 0x02bc // 0x6e1 @0x2
0x06df…072d at0004 = ╱a9╱ GET ╱ // 0x6e3 @0x4
0x06df…072d at0005 = ╱48╱H╱ // 0x6e4 @0x5
0x06df…072d at0006 = ╱38╱8╱ // 0x6e5 @0x6
0x06df…072d at0007 = ╱ef╱$╱ // 0x6e6 @0x7
0x06df…072d at0008 = ╱ec╱,╱ // 0x6e7 @0x8
0x06df…072d at0009 = ╱48╱H╱ // 0x6e8 @0x9
0x06df…072d at000a = ╱37╱7╱ // 0x6e9 @0xa
0x06df…072d at000b = ╱f0╱:╱ // 0x6ea @0xb
0x06df…072d at000c = ╱51╱Q╱ // 0x6eb @0xc
0x06df…072d at000d = ╱ed╱(╱ // 0x6ec @0xd
0x06df…072d at000e = ╱45╱E╱ // 0x6ed @0xe
0x06df…072d at000f = ╱ec╱,╱ // 0x6ee @0xf
0x06df…072d at0010 = ╱45╱E╱ // 0x6ef @0x10
0x06df…072d at0011 = ╱ee╱)╱ // 0x6f0 @0x11
0x06df…072d at0012 = ╱ec╱,╱ // 0x6f1 @0x12
0x06df…072d at0013 = ╱51╱Q╱ // 0x6f2 @0x13
0x06df…072d at0014 = ╱ed╱(╱ // 0x6f3 @0x14
0x06df…072d at0015 = ╱45╱E╱ // 0x6f4 @0x15
0x06df…072d at0016 = ╱ec╱,╱ // 0x6f5 @0x16
0x06df…072d at0017 = ╱47╱G╱ // 0x6f6 @0x17
0x06df…072d at0018 = ╱ee╱)╱ // 0x6f7 @0x18
0x06df…072d at0019 = ╱ec╱,╱ // 0x6f8 @0x19
0x06df…072d at001a = ╱51╱Q╱ // 0x6f9 @0x1a
0x06df…072d at001b = ╱ed╱(╱ // 0x6fa @0x1b
0x06df…072d at001c = ╱47╱G╱ // 0x6fb @0x1c
0x06df…072d at001d = ╱ec╱,╱ // 0x6fc @0x1d
0x06df…072d at001e = ╱45╱E╱ // 0x6fd @0x1e
0x06df…072d at001f = ╱ee╱)╱ // 0x6fe @0x1f
0x06df…072d at0020 = ╱ec╱,╱ // 0x6ff @0x20
0x06df…072d at0021 = ╱51╱Q╱ // 0x700 @0x21
0x06df…072d at0022 = ╱ed╱(╱ // 0x701 @0x22
0x06df…072d at0023 = ╱47╱G╱ // 0x702 @0x23
0x06df…072d at0024 = ╱ec╱,╱ // 0x703 @0x24
0x06df…072d at0025 = ╱47╱G╱ // 0x704 @0x25
0x06df…072d at0026 = ╱ee╱)╱ // 0x705 @0x26
0x06df…072d at0027 = ╱ec╱,╱ // 0x706 @0x27
0x06df…072d at0028 = ╱51╱Q╱ // 0x707 @0x28
0x06df…072d at0029 = ╱ed╱(╱ // 0x708 @0x29
0x06df…072d at002a = ╱56╱V╱ // 0x709 @0x2a
0x06df…072d at002b = ╱ec╱,╱ // 0x70a @0x2b
0x06df…072d at002c = ╱45╱E╱ // 0x70b @0x2c
0x06df…072d at002d = ╱ee╱)╱ // 0x70c @0x2d
0x06df…072d at002e = ╱ec╱,╱ // 0x70d @0x2e
0x06df…072d at002f = ╱51╱Q╱ // 0x70e @0x2f
0x06df…072d at0030 = ╱ed╱(╱ // 0x70f @0x30
0x06df…072d at0031 = ╱56╱V╱ // 0x710 @0x31
0x06df…072d at0032 = ╱ec╱,╱ // 0x711 @0x32
0x06df…072d at0033 = ╱47╱G╱ // 0x712 @0x33
0x06df…072d at0034 = ╱ee╱)╱ // 0x713 @0x34
0x06df…072d at0035 = ╱ec╱,╱ // 0x714 @0x35
0x06df…072d at0036 = ╱51╱Q╱ // 0x715 @0x36
0x06df…072d at0037 = ╱ed╱(╱ // 0x716 @0x37
0x06df…072d at0038 = ╱34╱4╱ // 0x717 @0x38
0x06df…072d at0039 = ╱fe00008003╱ // 0x718 @0x39
0x06df…072d at003e = ╱ec╱,╱ // 0x71d @0x3e
0x06df…072d at003f = ╱45╱E╱ // 0x71e @0x3f
0x06df…072d at0040 = ╱ee╱)╱ // 0x71f @0x40
0x06df…072d at0041 = ╱ec╱,╱ // 0x720 @0x41
0x06df…072d at0042 = ╱51╱Q╱ // 0x721 @0x42
0x06df…072d at0043 = ╱ed╱(╱ // 0x722 @0x43
0x06df…072d at0044 = ╱34╱4╱ // 0x723 @0x44
0x06df…072d at0045 = ╱fe00008003╱ // 0x724 @0x45
0x06df…072d at004a = ╱ec╱,╱ // 0x729 @0x4a
0x06df…072d at004b = ╱47╱G╱ // 0x72a @0x4b
0x06df…072d at004c = ╱ee╱)╱ // 0x72b @0x4c
0x06df…072d at004d = EOL // 0x72c @0x4d
0x06df…072d }
0x072d…073e 9495 0710 EXEC FE(E,E,H8$)
0x072d…073e LineComalBin {
0x072d…073e ptr = 0x9495 // 0x72d @0x0
0x072d…073e lno = 0x02c6 // 0x72f @0x2
0x072d…073e at0004 = ╱9d╱ EXEC ╱ // 0x731 @0x4
0x072d…073e at0005 = ╱46╱F╱ // 0x732 @0x5
0x072d…073e at0006 = ╱45╱E╱ // 0x733 @0x6
0x072d…073e at0007 = ╱ed╱(╱ // 0x734 @0x7
0x072d…073e at0008 = ╱45╱E╱ // 0x735 @0x8
0x072d…073e at0009 = ╱ec╱,╱ // 0x736 @0x9
0x072d…073e at000a = ╱45╱E╱ // 0x737 @0xa
0x072d…073e at000b = ╱ec╱,╱ // 0x738 @0xb
0x072d…073e at000c = ╱48╱H╱ // 0x739 @0xc
0x072d…073e at000d = ╱38╱8╱ // 0x73a @0xd
0x072d…073e at000e = ╱ef╱$╱ // 0x73b @0xe
0x072d…073e at000f = ╱ee╱)╱ // 0x73c @0xf
0x072d…073e at0010 = EOL // 0x73d @0x10
0x072d…073e }
0x073e…07ac 9503 0711 GET H8$,H7+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)
0x073e…07ac LineComalBin {
0x073e…07ac ptr = 0x9503 // 0x73e @0x0
0x073e…07ac lno = 0x02c7 // 0x740 @0x2
0x073e…07ac at0004 = ╱a9╱ GET ╱ // 0x742 @0x4
0x073e…07ac at0005 = ╱48╱H╱ // 0x743 @0x5
0x073e…07ac at0006 = ╱38╱8╱ // 0x744 @0x6
0x073e…07ac at0007 = ╱ef╱$╱ // 0x745 @0x7
0x073e…07ac at0008 = ╱ec╱,╱ // 0x746 @0x8
0x073e…07ac at0009 = ╱48╱H╱ // 0x747 @0x9
0x073e…07ac at000a = ╱37╱7╱ // 0x748 @0xa
0x073e…07ac at000b = ╱e2╱+╱ // 0x749 @0xb
0x073e…07ac at000c = ╱45╱E╱ // 0x74a @0xc
0x073e…07ac at000d = ╱f0╱:╱ // 0x74b @0xd
0x073e…07ac at000e = ╱51╱Q╱ // 0x74c @0xe
0x073e…07ac at000f = ╱ed╱(╱ // 0x74d @0xf
0x073e…07ac at0010 = ╱35╱5╱ // 0x74e @0x10
0x073e…07ac at0011 = ╱fe0000a003╱ // 0x74f @0x11
0x073e…07ac at0016 = ╱ec╱,╱ // 0x754 @0x16
0x073e…07ac at0017 = ╱45╱E╱ // 0x755 @0x17
0x073e…07ac at0018 = ╱ee╱)╱ // 0x756 @0x18
0x073e…07ac at0019 = ╱ec╱,╱ // 0x757 @0x19
0x073e…07ac at001a = ╱51╱Q╱ // 0x758 @0x1a
0x073e…07ac at001b = ╱ed╱(╱ // 0x759 @0x1b
0x073e…07ac at001c = ╱35╱5╱ // 0x75a @0x1c
0x073e…07ac at001d = ╱fe0000a003╱ // 0x75b @0x1d
0x073e…07ac at0022 = ╱ec╱,╱ // 0x760 @0x22
0x073e…07ac at0023 = ╱47╱G╱ // 0x761 @0x23
0x073e…07ac at0024 = ╱ee╱)╱ // 0x762 @0x24
0x073e…07ac at0025 = ╱ec╱,╱ // 0x763 @0x25
0x073e…07ac at0026 = ╱51╱Q╱ // 0x764 @0x26
0x073e…07ac at0027 = ╱ed╱(╱ // 0x765 @0x27
0x073e…07ac at0028 = ╱36╱6╱ // 0x766 @0x28
0x073e…07ac at0029 = ╱fe0000c003╱ // 0x767 @0x29
0x073e…07ac at002e = ╱ec╱,╱ // 0x76c @0x2e
0x073e…07ac at002f = ╱45╱E╱ // 0x76d @0x2f
0x073e…07ac at0030 = ╱ee╱)╱ // 0x76e @0x30
0x073e…07ac at0031 = ╱ec╱,╱ // 0x76f @0x31
0x073e…07ac at0032 = ╱51╱Q╱ // 0x770 @0x32
0x073e…07ac at0033 = ╱ed╱(╱ // 0x771 @0x33
0x073e…07ac at0034 = ╱36╱6╱ // 0x772 @0x34
0x073e…07ac at0035 = ╱fe0000c003╱ // 0x773 @0x35
0x073e…07ac at003a = ╱ec╱,╱ // 0x778 @0x3a
0x073e…07ac at003b = ╱47╱G╱ // 0x779 @0x3b
0x073e…07ac at003c = ╱ee╱)╱ // 0x77a @0x3c
0x073e…07ac at003d = ╱ec╱,╱ // 0x77b @0x3d
0x073e…07ac at003e = ╱51╱Q╱ // 0x77c @0x3e
0x073e…07ac at003f = ╱ed╱(╱ // 0x77d @0x3f
0x073e…07ac at0040 = ╱37╱7╱ // 0x77e @0x40
0x073e…07ac at0041 = ╱fe0000e003╱ // 0x77f @0x41
0x073e…07ac at0046 = ╱ec╱,╱ // 0x784 @0x46
0x073e…07ac at0047 = ╱45╱E╱ // 0x785 @0x47
0x073e…07ac at0048 = ╱ee╱)╱ // 0x786 @0x48
0x073e…07ac at0049 = ╱ec╱,╱ // 0x787 @0x49
0x073e…07ac at004a = ╱51╱Q╱ // 0x788 @0x4a
0x073e…07ac at004b = ╱ed╱(╱ // 0x789 @0x4b
0x073e…07ac at004c = ╱37╱7╱ // 0x78a @0x4c
0x073e…07ac at004d = ╱fe0000e003╱ // 0x78b @0x4d
0x073e…07ac at0052 = ╱ec╱,╱ // 0x790 @0x52
0x073e…07ac at0053 = ╱47╱G╱ // 0x791 @0x53
0x073e…07ac at0054 = ╱ee╱)╱ // 0x792 @0x54
0x073e…07ac at0055 = ╱ec╱,╱ // 0x793 @0x55
0x073e…07ac at0056 = ╱51╱Q╱ // 0x794 @0x56
0x073e…07ac at0057 = ╱ed╱(╱ // 0x795 @0x57
0x073e…07ac at0058 = ╱38╱8╱ // 0x796 @0x58
0x073e…07ac at0059 = ╱fe00008004╱ // 0x797 @0x59
0x073e…07ac at005e = ╱ec╱,╱ // 0x79c @0x5e
0x073e…07ac at005f = ╱45╱E╱ // 0x79d @0x5f
0x073e…07ac at0060 = ╱ee╱)╱ // 0x79e @0x60
0x073e…07ac at0061 = ╱ec╱,╱ // 0x79f @0x61
0x073e…07ac at0062 = ╱51╱Q╱ // 0x7a0 @0x62
0x073e…07ac at0063 = ╱ed╱(╱ // 0x7a1 @0x63
0x073e…07ac at0064 = ╱38╱8╱ // 0x7a2 @0x64
0x073e…07ac at0065 = ╱fe00008004╱ // 0x7a3 @0x65
0x073e…07ac at006a = ╱ec╱,╱ // 0x7a8 @0x6a
0x073e…07ac at006b = ╱47╱G╱ // 0x7a9 @0x6b
0x073e…07ac at006c = ╱ee╱)╱ // 0x7aa @0x6c
0x073e…07ac at006d = EOL // 0x7ab @0x6d
0x073e…07ac }
0x07ac…07c3 951a 0712 EXEC FE(99,E,H8$)
0x07ac…07c3 LineComalBin {
0x07ac…07c3 ptr = 0x951a // 0x7ac @0x0
0x07ac…07c3 lno = 0x02c8 // 0x7ae @0x2
0x07ac…07c3 at0004 = ╱9d╱ EXEC ╱ // 0x7b0 @0x4
0x07ac…07c3 at0005 = ╱46╱F╱ // 0x7b1 @0x5
0x07ac…07c3 at0006 = ╱45╱E╱ // 0x7b2 @0x6
0x07ac…07c3 at0007 = ╱ed╱(╱ // 0x7b3 @0x7
0x07ac…07c3 at0008 = ╱39╱9╱ // 0x7b4 @0x8
0x07ac…07c3 at0009 = ╱39╱9╱ // 0x7b5 @0x9
0x07ac…07c3 at000a = ╱fe0000c607╱ // 0x7b6 @0xa
0x07ac…07c3 at000f = ╱ec╱,╱ // 0x7bb @0xf
0x07ac…07c3 at0010 = ╱45╱E╱ // 0x7bc @0x10
0x07ac…07c3 at0011 = ╱ec╱,╱ // 0x7bd @0x11
0x07ac…07c3 at0012 = ╱48╱H╱ // 0x7be @0x12
0x07ac…07c3 at0013 = ╱38╱8╱ // 0x7bf @0x13
0x07ac…07c3 at0014 = ╱ef╱$╱ // 0x7c0 @0x14
0x07ac…07c3 at0015 = ╱ee╱)╱ // 0x7c1 @0x15
0x07ac…07c3 at0016 = EOL // 0x7c2 @0x16
0x07ac…07c3 }
0x07c3…07d4 952b 0720 FOR H7=E TO 8
0x07c3…07d4 LineComalBin {
0x07c3…07d4 ptr = 0x952b // 0x7c3 @0x0
0x07c3…07d4 lno = 0x02d0 // 0x7c5 @0x2
0x07c3…07d4 at0004 = ╱83╱ FOR ╱ // 0x7c7 @0x4
0x07c3…07d4 at0005 = ╱48╱H╱ // 0x7c8 @0x5
0x07c3…07d4 at0006 = ╱37╱7╱ // 0x7c9 @0x6
0x07c3…07d4 at0007 = ╱dc╱=╱ // 0x7ca @0x7
0x07c3…07d4 at0008 = ╱45╱E╱ // 0x7cb @0x8
0x07c3…07d4 at0009 = ╱b7╱ TO ╱ // 0x7cc @0x9
0x07c3…07d4 at000a = ╱38╱8╱ // 0x7cd @0xa
0x07c3…07d4 at000b = ╱fe00008004╱ // 0x7ce @0xb
0x07c3…07d4 at0010 = EOL // 0x7d3 @0x10
0x07c3…07d4 }
0x07d4…07e6 953d 0730 IF H6=Q(H7,E) THEN EXIT
0x07d4…07e6 LineComalBin {
0x07d4…07e6 ptr = 0x953d // 0x7d4 @0x0
0x07d4…07e6 lno = 0x02da // 0x7d6 @0x2
0x07d4…07e6 at0004 = ╱82╱ IF ╱ // 0x7d8 @0x4
0x07d4…07e6 at0005 = ╱48╱H╱ // 0x7d9 @0x5
0x07d4…07e6 at0006 = ╱36╱6╱ // 0x7da @0x6
0x07d4…07e6 at0007 = ╱dc╱=╱ // 0x7db @0x7
0x07d4…07e6 at0008 = ╱51╱Q╱ // 0x7dc @0x8
0x07d4…07e6 at0009 = ╱ed╱(╱ // 0x7dd @0x9
0x07d4…07e6 at000a = ╱48╱H╱ // 0x7de @0xa
0x07d4…07e6 at000b = ╱37╱7╱ // 0x7df @0xb
0x07d4…07e6 at000c = ╱ec╱,╱ // 0x7e0 @0xc
0x07d4…07e6 at000d = ╱45╱E╱ // 0x7e1 @0xd
0x07d4…07e6 at000e = ╱ee╱)╱ // 0x7e2 @0xe
0x07d4…07e6 at000f = ╱b6╱ THEN ╱ // 0x7e3 @0xf
0x07d4…07e6 at0010 = ╱99╱ EXIT ╱ // 0x7e4 @0x10
0x07d4…07e6 at0011 = EOL // 0x7e5 @0x11
0x07d4…07e6 }
0x07e6…07ee 9545 0740 NEXT H7
0x07e6…07ee LineComalBin {
0x07e6…07ee ptr = 0x9545 // 0x7e6 @0x0
0x07e6…07ee lno = 0x02e4 // 0x7e8 @0x2
0x07e6…07ee at0004 = ╱84╱ NEXT ╱ // 0x7ea @0x4
0x07e6…07ee at0005 = ╱48╱H╱ // 0x7eb @0x5
0x07e6…07ee at0006 = ╱37╱7╱ // 0x7ec @0x6
0x07e6…07ee at0007 = EOL // 0x7ed @0x7
0x07e6…07ee }
0x07ee…07fd 9554 0750 IF H7<W THEN F5=B
0x07ee…07fd LineComalBin {
0x07ee…07fd ptr = 0x9554 // 0x7ee @0x0
0x07ee…07fd lno = 0x02ee // 0x7f0 @0x2
0x07ee…07fd at0004 = ╱82╱ IF ╱ // 0x7f2 @0x4
0x07ee…07fd at0005 = ╱48╱H╱ // 0x7f3 @0x5
0x07ee…07fd at0006 = ╱37╱7╱ // 0x7f4 @0x6
0x07ee…07fd at0007 = ╱dd╱<╱ // 0x7f5 @0x7
0x07ee…07fd at0008 = ╱57╱W╱ // 0x7f6 @0x8
0x07ee…07fd at0009 = ╱b6╱ THEN ╱ // 0x7f7 @0x9
0x07ee…07fd at000a = ╱46╱F╱ // 0x7f8 @0xa
0x07ee…07fd at000b = ╱35╱5╱ // 0x7f9 @0xb
0x07ee…07fd at000c = ╱dc╱=╱ // 0x7fa @0xc
0x07ee…07fd at000d = ╱42╱B╱ // 0x7fb @0xd
0x07ee…07fd at000e = EOL // 0x7fc @0xe
0x07ee…07fd }
0x07fd…0803 955a 0760 ENDPROC
0x07fd…0803 LineComalBin {
0x07fd…0803 ptr = 0x955a // 0x7fd @0x0
0x07fd…0803 lno = 0x02f8 // 0x7ff @0x2
0x07fd…0803 at0004 = ╱9f╱ ENDPROC ╱ // 0x801 @0x4
0x07fd…0803 at0005 = EOL // 0x802 @0x5
0x07fd…0803 }
0x0803…0819 9570 0770 PROC INDTAB1(Z,I2,I3)
0x0803…0819 LineComalBin {
0x0803…0819 ptr = 0x9570 // 0x803 @0x0
0x0803…0819 lno = 0x0302 // 0x805 @0x2
0x0803…0819 at0004 = ╱9e╱ PROC ╱ // 0x807 @0x4
0x0803…0819 at0005 = ╱49╱I╱ // 0x808 @0x5
0x0803…0819 at0006 = ╱4e╱N╱ // 0x809 @0x6
0x0803…0819 at0007 = ╱44╱D╱ // 0x80a @0x7
0x0803…0819 at0008 = ╱54╱T╱ // 0x80b @0x8
0x0803…0819 at0009 = ╱41╱A╱ // 0x80c @0x9
0x0803…0819 at000a = ╱42╱B╱ // 0x80d @0xa
0x0803…0819 at000b = ╱31╱1╱ // 0x80e @0xb
0x0803…0819 at000c = ╱ed╱(╱ // 0x80f @0xc
0x0803…0819 at000d = ╱5a╱Z╱ // 0x810 @0xd
0x0803…0819 at000e = ╱ec╱,╱ // 0x811 @0xe
0x0803…0819 at000f = ╱49╱I╱ // 0x812 @0xf
0x0803…0819 at0010 = ╱32╱2╱ // 0x813 @0x10
0x0803…0819 at0011 = ╱ec╱,╱ // 0x814 @0x11
0x0803…0819 at0012 = ╱49╱I╱ // 0x815 @0x12
0x0803…0819 at0013 = ╱33╱3╱ // 0x816 @0x13
0x0803…0819 at0014 = ╱ee╱)╱ // 0x817 @0x14
0x0803…0819 at0015 = EOL // 0x818 @0x15
0x0803…0819 }
0x0819…082b 9582 0780 H9=I2 DIV 32
0x0819…082b LineComalBin {
0x0819…082b ptr = 0x9582 // 0x819 @0x0
0x0819…082b lno = 0x030c // 0x81b @0x2
0x0819…082b at0004 = ╱48╱H╱ // 0x81d @0x4
0x0819…082b at0005 = ╱39╱9╱ // 0x81e @0x5
0x0819…082b at0006 = ╱dc╱=╱ // 0x81f @0x6
0x0819…082b at0007 = ╱49╱I╱ // 0x820 @0x7
0x0819…082b at0008 = ╱32╱2╱ // 0x821 @0x8
0x0819…082b at0009 = ╱e7╱ DIV ╱ // 0x822 @0x9
0x0819…082b at000a = ╱33╱3╱ // 0x823 @0xa
0x0819…082b at000b = ╱32╱2╱ // 0x824 @0xb
0x0819…082b at000c = ╱fe00008006╱ // 0x825 @0xc
0x0819…082b at0011 = EOL // 0x82a @0x11
0x0819…082b }
0x082b…0837 958e 0790 FOR I=E TO H9
0x082b…0837 LineComalBin {
0x082b…0837 ptr = 0x958e // 0x82b @0x0
0x082b…0837 lno = 0x0316 // 0x82d @0x2
0x082b…0837 at0004 = ╱83╱ FOR ╱ // 0x82f @0x4
0x082b…0837 at0005 = ╱49╱I╱ // 0x830 @0x5
0x082b…0837 at0006 = ╱dc╱=╱ // 0x831 @0x6
0x082b…0837 at0007 = ╱45╱E╱ // 0x832 @0x7
0x082b…0837 at0008 = ╱b7╱ TO ╱ // 0x833 @0x8
0x082b…0837 at0009 = ╱48╱H╱ // 0x834 @0x9
0x082b…0837 at000a = ╱39╱9╱ // 0x835 @0xa
0x082b…0837 at000b = EOL // 0x836 @0xb
0x082b…0837 }
0x0837…084c 95a3 0800 H=(I-E)*4+E
0x0837…084c LineComalBin {
0x0837…084c ptr = 0x95a3 // 0x837 @0x0
0x0837…084c lno = 0x0320 // 0x839 @0x2
0x0837…084c at0004 = ╱48╱H╱ // 0x83b @0x4
0x0837…084c at0005 = ╱dc╱=╱ // 0x83c @0x5
0x0837…084c at0006 = ╱ed╱(╱ // 0x83d @0x6
0x0837…084c at0007 = ╱49╱I╱ // 0x83e @0x7
0x0837…084c at0008 = ╱e3╱-╱ // 0x83f @0x8
0x0837…084c at0009 = ╱45╱E╱ // 0x840 @0x9
0x0837…084c at000a = ╱ee╱)╱ // 0x841 @0xa
0x0837…084c at000b = ╱e4╱*╱ // 0x842 @0xb
0x0837…084c at000c = ╱34╱4╱ // 0x843 @0xc
0x0837…084c at000d = ╱fe00008003╱ // 0x844 @0xd
0x0837…084c at0012 = ╱e2╱+╱ // 0x849 @0x12
0x0837…084c at0013 = ╱45╱E╱ // 0x84a @0x13
0x0837…084c at0014 = EOL // 0x84b @0x14
0x0837…084c }
0x084c…0886 95dd 0810 GET I3$,I:Z(H),Z(H+E),Z(H+E),Z(H+G),Z(H+G),Z(H+V),Z(H+V)
0x084c…0886 LineComalBin {
0x084c…0886 ptr = 0x95dd // 0x84c @0x0
0x084c…0886 lno = 0x032a // 0x84e @0x2
0x084c…0886 at0004 = ╱a9╱ GET ╱ // 0x850 @0x4
0x084c…0886 at0005 = ╱49╱I╱ // 0x851 @0x5
0x084c…0886 at0006 = ╱33╱3╱ // 0x852 @0x6
0x084c…0886 at0007 = ╱ef╱$╱ // 0x853 @0x7
0x084c…0886 at0008 = ╱ec╱,╱ // 0x854 @0x8
0x084c…0886 at0009 = ╱49╱I╱ // 0x855 @0x9
0x084c…0886 at000a = ╱f0╱:╱ // 0x856 @0xa
0x084c…0886 at000b = ╱5a╱Z╱ // 0x857 @0xb
0x084c…0886 at000c = ╱ed╱(╱ // 0x858 @0xc
0x084c…0886 at000d = ╱48╱H╱ // 0x859 @0xd
0x084c…0886 at000e = ╱ee╱)╱ // 0x85a @0xe
0x084c…0886 at000f = ╱ec╱,╱ // 0x85b @0xf
0x084c…0886 at0010 = ╱5a╱Z╱ // 0x85c @0x10
0x084c…0886 at0011 = ╱ed╱(╱ // 0x85d @0x11
0x084c…0886 at0012 = ╱48╱H╱ // 0x85e @0x12
0x084c…0886 at0013 = ╱e2╱+╱ // 0x85f @0x13
0x084c…0886 at0014 = ╱45╱E╱ // 0x860 @0x14
0x084c…0886 at0015 = ╱ee╱)╱ // 0x861 @0x15
0x084c…0886 at0016 = ╱ec╱,╱ // 0x862 @0x16
0x084c…0886 at0017 = ╱5a╱Z╱ // 0x863 @0x17
0x084c…0886 at0018 = ╱ed╱(╱ // 0x864 @0x18
0x084c…0886 at0019 = ╱48╱H╱ // 0x865 @0x19
0x084c…0886 at001a = ╱e2╱+╱ // 0x866 @0x1a
0x084c…0886 at001b = ╱45╱E╱ // 0x867 @0x1b
0x084c…0886 at001c = ╱ee╱)╱ // 0x868 @0x1c
0x084c…0886 at001d = ╱ec╱,╱ // 0x869 @0x1d
0x084c…0886 at001e = ╱5a╱Z╱ // 0x86a @0x1e
0x084c…0886 at001f = ╱ed╱(╱ // 0x86b @0x1f
0x084c…0886 at0020 = ╱48╱H╱ // 0x86c @0x20
0x084c…0886 at0021 = ╱e2╱+╱ // 0x86d @0x21
0x084c…0886 at0022 = ╱47╱G╱ // 0x86e @0x22
0x084c…0886 at0023 = ╱ee╱)╱ // 0x86f @0x23
0x084c…0886 at0024 = ╱ec╱,╱ // 0x870 @0x24
0x084c…0886 at0025 = ╱5a╱Z╱ // 0x871 @0x25
0x084c…0886 at0026 = ╱ed╱(╱ // 0x872 @0x26
0x084c…0886 at0027 = ╱48╱H╱ // 0x873 @0x27
0x084c…0886 at0028 = ╱e2╱+╱ // 0x874 @0x28
0x084c…0886 at0029 = ╱47╱G╱ // 0x875 @0x29
0x084c…0886 at002a = ╱ee╱)╱ // 0x876 @0x2a
0x084c…0886 at002b = ╱ec╱,╱ // 0x877 @0x2b
0x084c…0886 at002c = ╱5a╱Z╱ // 0x878 @0x2c
0x084c…0886 at002d = ╱ed╱(╱ // 0x879 @0x2d
0x084c…0886 at002e = ╱48╱H╱ // 0x87a @0x2e
0x084c…0886 at002f = ╱e2╱+╱ // 0x87b @0x2f
0x084c…0886 at0030 = ╱56╱V╱ // 0x87c @0x30
0x084c…0886 at0031 = ╱ee╱)╱ // 0x87d @0x31
0x084c…0886 at0032 = ╱ec╱,╱ // 0x87e @0x32
0x084c…0886 at0033 = ╱5a╱Z╱ // 0x87f @0x33
0x084c…0886 at0034 = ╱ed╱(╱ // 0x880 @0x34
0x084c…0886 at0035 = ╱48╱H╱ // 0x881 @0x35
0x084c…0886 at0036 = ╱e2╱+╱ // 0x882 @0x36
0x084c…0886 at0037 = ╱56╱V╱ // 0x883 @0x37
0x084c…0886 at0038 = ╱ee╱)╱ // 0x884 @0x38
0x084c…0886 at0039 = EOL // 0x885 @0x39
0x084c…0886 }
0x0886…0897 95ee 0820 EXEC FE(G,E,I3$)
0x0886…0897 LineComalBin {
0x0886…0897 ptr = 0x95ee // 0x886 @0x0
0x0886…0897 lno = 0x0334 // 0x888 @0x2
0x0886…0897 at0004 = ╱9d╱ EXEC ╱ // 0x88a @0x4
0x0886…0897 at0005 = ╱46╱F╱ // 0x88b @0x5
0x0886…0897 at0006 = ╱45╱E╱ // 0x88c @0x6
0x0886…0897 at0007 = ╱ed╱(╱ // 0x88d @0x7
0x0886…0897 at0008 = ╱47╱G╱ // 0x88e @0x8
0x0886…0897 at0009 = ╱ec╱,╱ // 0x88f @0x9
0x0886…0897 at000a = ╱45╱E╱ // 0x890 @0xa
0x0886…0897 at000b = ╱ec╱,╱ // 0x891 @0xb
0x0886…0897 at000c = ╱49╱I╱ // 0x892 @0xc
0x0886…0897 at000d = ╱33╱3╱ // 0x893 @0xd
0x0886…0897 at000e = ╱ef╱$╱ // 0x894 @0xe
0x0886…0897 at000f = ╱ee╱)╱ // 0x895 @0xf
0x0886…0897 at0010 = EOL // 0x896 @0x10
0x0886…0897 }
0x0897…089e 95f5 0830 NEXT I
0x0897…089e LineComalBin {
0x0897…089e ptr = 0x95f5 // 0x897 @0x0
0x0897…089e lno = 0x033e // 0x899 @0x2
0x0897…089e at0004 = ╱84╱ NEXT ╱ // 0x89b @0x4
0x0897…089e at0005 = ╱49╱I╱ // 0x89c @0x5
0x0897…089e at0006 = EOL // 0x89d @0x6
0x0897…089e }
0x089e…08a4 95fb 0840 ENDPROC
0x089e…08a4 LineComalBin {
0x089e…08a4 ptr = 0x95fb // 0x89e @0x0
0x089e…08a4 lno = 0x0348 // 0x8a0 @0x2
0x089e…08a4 at0004 = ╱9f╱ ENDPROC ╱ // 0x8a2 @0x4
0x089e…08a4 at0005 = EOL // 0x8a3 @0x5
0x089e…08a4 }
0x08a4…08b7 960e 0850 PROC DATOUD(I4,I5)
0x08a4…08b7 LineComalBin {
0x08a4…08b7 ptr = 0x960e // 0x8a4 @0x0
0x08a4…08b7 lno = 0x0352 // 0x8a6 @0x2
0x08a4…08b7 at0004 = ╱9e╱ PROC ╱ // 0x8a8 @0x4
0x08a4…08b7 at0005 = ╱44╱D╱ // 0x8a9 @0x5
0x08a4…08b7 at0006 = ╱41╱A╱ // 0x8aa @0x6
0x08a4…08b7 at0007 = ╱54╱T╱ // 0x8ab @0x7
0x08a4…08b7 at0008 = ╱4f╱O╱ // 0x8ac @0x8
0x08a4…08b7 at0009 = ╱55╱U╱ // 0x8ad @0x9
0x08a4…08b7 at000a = ╱44╱D╱ // 0x8ae @0xa
0x08a4…08b7 at000b = ╱ed╱(╱ // 0x8af @0xb
0x08a4…08b7 at000c = ╱49╱I╱ // 0x8b0 @0xc
0x08a4…08b7 at000d = ╱34╱4╱ // 0x8b1 @0xd
0x08a4…08b7 at000e = ╱ec╱,╱ // 0x8b2 @0xe
0x08a4…08b7 at000f = ╱49╱I╱ // 0x8b3 @0xf
0x08a4…08b7 at0010 = ╱35╱5╱ // 0x8b4 @0x10
0x08a4…08b7 at0011 = ╱ee╱)╱ // 0x8b5 @0x11
0x08a4…08b7 at0012 = EOL // 0x8b6 @0x12
0x08a4…08b7 }
0x08b7…08d0 9627 0860 I6=I4;I5$=" "
0x08b7…08d0 LineComalBin {
0x08b7…08d0 ptr = 0x9627 // 0x8b7 @0x0
0x08b7…08d0 lno = 0x035c // 0x8b9 @0x2
0x08b7…08d0 at0004 = ╱49╱I╱ // 0x8bb @0x4
0x08b7…08d0 at0005 = ╱36╱6╱ // 0x8bc @0x5
0x08b7…08d0 at0006 = ╱dc╱=╱ // 0x8bd @0x6
0x08b7…08d0 at0007 = ╱49╱I╱ // 0x8be @0x7
0x08b7…08d0 at0008 = ╱34╱4╱ // 0x8bf @0x8
0x08b7…08d0 at0009 = ╱eb╱;╱ // 0x8c0 @0x9
0x08b7…08d0 at000a = ╱49╱I╱ // 0x8c1 @0xa
0x08b7…08d0 at000b = ╱35╱5╱ // 0x8c2 @0xb
0x08b7…08d0 at000c = ╱ef╱$╱ // 0x8c3 @0xc
0x08b7…08d0 at000d = ╱dc╱=╱ // 0x8c4 @0xd
0x08b7…08d0 at000e = ╱22╱"╱ // 0x8c5 @0xe
0x08b7…08d0 at000f = ╱20╱…╱ // 0x8c6 @0xf
0x08b7…08d0 at0010 = ╱20╱…╱ // 0x8c7 @0x10
0x08b7…08d0 at0011 = ╱20╱…╱ // 0x8c8 @0x11
0x08b7…08d0 at0012 = ╱20╱…╱ // 0x8c9 @0x12
0x08b7…08d0 at0013 = ╱20╱…╱ // 0x8ca @0x13
0x08b7…08d0 at0014 = ╱20╱…╱ // 0x8cb @0x14
0x08b7…08d0 at0015 = ╱20╱…╱ // 0x8cc @0x15
0x08b7…08d0 at0016 = ╱20╱…╱ // 0x8cd @0x16
0x08b7…08d0 at0017 = ╱22╱"╱ // 0x8ce @0x17
0x08b7…08d0 at0018 = EOL // 0x8cf @0x18
0x08b7…08d0 }
0x08d0…08e3 963a 0870 FOR J=8 TO E STEP -E
0x08d0…08e3 LineComalBin {
0x08d0…08e3 ptr = 0x963a // 0x8d0 @0x0
0x08d0…08e3 lno = 0x0366 // 0x8d2 @0x2
0x08d0…08e3 at0004 = ╱83╱ FOR ╱ // 0x8d4 @0x4
0x08d0…08e3 at0005 = ╱4a╱J╱ // 0x8d5 @0x5
0x08d0…08e3 at0006 = ╱dc╱=╱ // 0x8d6 @0x6
0x08d0…08e3 at0007 = ╱38╱8╱ // 0x8d7 @0x7
0x08d0…08e3 at0008 = ╱fe00008004╱ // 0x8d8 @0x8
0x08d0…08e3 at000d = ╱b7╱ TO ╱ // 0x8dd @0xd
0x08d0…08e3 at000e = ╱45╱E╱ // 0x8de @0xe
0x08d0…08e3 at000f = ╱b8╱ STEP ╱ // 0x8df @0xf
0x08d0…08e3 at0010 = ╱e9╱-╱ // 0x8e0 @0x10
0x08d0…08e3 at0011 = ╱45╱E╱ // 0x8e1 @0x11
0x08d0…08e3 at0012 = EOL // 0x8e2 @0x12
0x08d0…08e3 }
0x08e3…08ef 9646 0880 IF J MOD V=B THEN
0x08e3…08ef LineComalBin {
0x08e3…08ef ptr = 0x9646 // 0x8e3 @0x0
0x08e3…08ef lno = 0x0370 // 0x8e5 @0x2
0x08e3…08ef at0004 = ╱9c╱ IF ╱ // 0x8e7 @0x4
0x08e3…08ef at0005 = ╱4a╱J╱ // 0x8e8 @0x5
0x08e3…08ef at0006 = ╱e8╱ MOD ╱ // 0x8e9 @0x6
0x08e3…08ef at0007 = ╱56╱V╱ // 0x8ea @0x7
0x08e3…08ef at0008 = ╱dc╱=╱ // 0x8eb @0x8
0x08e3…08ef at0009 = ╱42╱B╱ // 0x8ec @0x9
0x08e3…08ef at000a = ╱b6╱ THEN ╱ // 0x8ed @0xa
0x08e3…08ef at000b = EOL // 0x8ee @0xb
0x08e3…08ef }
0x08ef…08fe 9655 0890 I5$(J)="."
0x08ef…08fe LineComalBin {
0x08ef…08fe ptr = 0x9655 // 0x8ef @0x0
0x08ef…08fe lno = 0x037a // 0x8f1 @0x2
0x08ef…08fe at0004 = ╱49╱I╱ // 0x8f3 @0x4
0x08ef…08fe at0005 = ╱35╱5╱ // 0x8f4 @0x5
0x08ef…08fe at0006 = ╱ef╱$╱ // 0x8f5 @0x6
0x08ef…08fe at0007 = ╱ed╱(╱ // 0x8f6 @0x7
0x08ef…08fe at0008 = ╱4a╱J╱ // 0x8f7 @0x8
0x08ef…08fe at0009 = ╱ee╱)╱ // 0x8f8 @0x9
0x08ef…08fe at000a = ╱dc╱=╱ // 0x8f9 @0xa
0x08ef…08fe at000b = ╱22╱"╱ // 0x8fa @0xb
0x08ef…08fe at000c = ╱2e╱.╱ // 0x8fb @0xc
0x08ef…08fe at000d = ╱22╱"╱ // 0x8fc @0xd
0x08ef…08fe at000e = EOL // 0x8fd @0xe
0x08ef…08fe }
0x08fe…0904 965b 0900 ELSE
0x08fe…0904 LineComalBin {
0x08fe…0904 ptr = 0x965b // 0x8fe @0x0
0x08fe…0904 lno = 0x0384 // 0x900 @0x2
0x08fe…0904 at0004 = ╱9a╱ ELSE ╱ // 0x902 @0x4
0x08fe…0904 at0005 = EOL // 0x903 @0x5
0x08fe…0904 }
0x0904…0933 968a 0910 I5$(J)=CHR(I6 MOD 10+48);I6=I6 DIV 10
0x0904…0933 LineComalBin {
0x0904…0933 ptr = 0x968a // 0x904 @0x0
0x0904…0933 lno = 0x038e // 0x906 @0x2
0x0904…0933 at0004 = ╱49╱I╱ // 0x908 @0x4
0x0904…0933 at0005 = ╱35╱5╱ // 0x909 @0x5
0x0904…0933 at0006 = ╱ef╱$╱ // 0x90a @0x6
0x0904…0933 at0007 = ╱ed╱(╱ // 0x90b @0x7
0x0904…0933 at0008 = ╱4a╱J╱ // 0x90c @0x8
0x0904…0933 at0009 = ╱ee╱)╱ // 0x90d @0x9
0x0904…0933 at000a = ╱dc╱=╱ // 0x90e @0xa
0x0904…0933 at000b = ╱cf╱CHR╱ // 0x90f @0xb
0x0904…0933 at000c = ╱ed╱(╱ // 0x910 @0xc
0x0904…0933 at000d = ╱49╱I╱ // 0x911 @0xd
0x0904…0933 at000e = ╱36╱6╱ // 0x912 @0xe
0x0904…0933 at000f = ╱e8╱ MOD ╱ // 0x913 @0xf
0x0904…0933 at0010 = ╱31╱1╱ // 0x914 @0x10
0x0904…0933 at0011 = ╱30╱0╱ // 0x915 @0x11
0x0904…0933 at0012 = ╱fe0000a004╱ // 0x916 @0x12
0x0904…0933 at0017 = ╱e2╱+╱ // 0x91b @0x17
0x0904…0933 at0018 = ╱34╱4╱ // 0x91c @0x18
0x0904…0933 at0019 = ╱38╱8╱ // 0x91d @0x19
0x0904…0933 at001a = ╱fe0000c006╱ // 0x91e @0x1a
0x0904…0933 at001f = ╱ee╱)╱ // 0x923 @0x1f
0x0904…0933 at0020 = ╱eb╱;╱ // 0x924 @0x20
0x0904…0933 at0021 = ╱49╱I╱ // 0x925 @0x21
0x0904…0933 at0022 = ╱36╱6╱ // 0x926 @0x22
0x0904…0933 at0023 = ╱dc╱=╱ // 0x927 @0x23
0x0904…0933 at0024 = ╱49╱I╱ // 0x928 @0x24
0x0904…0933 at0025 = ╱36╱6╱ // 0x929 @0x25
0x0904…0933 at0026 = ╱e7╱ DIV ╱ // 0x92a @0x26
0x0904…0933 at0027 = ╱31╱1╱ // 0x92b @0x27
0x0904…0933 at0028 = ╱30╱0╱ // 0x92c @0x28
0x0904…0933 at0029 = ╱fe0000a004╱ // 0x92d @0x29
0x0904…0933 at002e = EOL // 0x932 @0x2e
0x0904…0933 }
0x0933…0939 9690 0920 ENDIF
0x0933…0939 LineComalBin {
0x0933…0939 ptr = 0x9690 // 0x933 @0x0
0x0933…0939 lno = 0x0398 // 0x935 @0x2
0x0933…0939 at0004 = ╱9b╱ ENDIF ╱ // 0x937 @0x4
0x0933…0939 at0005 = EOL // 0x938 @0x5
0x0933…0939 }
0x0939…0940 9697 0930 NEXT J
0x0939…0940 LineComalBin {
0x0939…0940 ptr = 0x9697 // 0x939 @0x0
0x0939…0940 lno = 0x03a2 // 0x93b @0x2
0x0939…0940 at0004 = ╱84╱ NEXT ╱ // 0x93d @0x4
0x0939…0940 at0005 = ╱4a╱J╱ // 0x93e @0x5
0x0939…0940 at0006 = EOL // 0x93f @0x6
0x0939…0940 }
0x0940…0946 969d 0940 ENDPROC
0x0940…0946 LineComalBin {
0x0940…0946 ptr = 0x969d // 0x940 @0x0
0x0940…0946 lno = 0x03ac // 0x942 @0x2
0x0940…0946 at0004 = ╱9f╱ ENDPROC ╱ // 0x944 @0x4
0x0940…0946 at0005 = EOL // 0x945 @0x5
0x0940…0946 }
0x0946…0956 96ad 0950 PROC PGETUD(I7)
0x0946…0956 LineComalBin {
0x0946…0956 ptr = 0x96ad // 0x946 @0x0
0x0946…0956 lno = 0x03b6 // 0x948 @0x2
0x0946…0956 at0004 = ╱9e╱ PROC ╱ // 0x94a @0x4
0x0946…0956 at0005 = ╱50╱P╱ // 0x94b @0x5
0x0946…0956 at0006 = ╱47╱G╱ // 0x94c @0x6
0x0946…0956 at0007 = ╱45╱E╱ // 0x94d @0x7
0x0946…0956 at0008 = ╱54╱T╱ // 0x94e @0x8
0x0946…0956 at0009 = ╱55╱U╱ // 0x94f @0x9
0x0946…0956 at000a = ╱44╱D╱ // 0x950 @0xa
0x0946…0956 at000b = ╱ed╱(╱ // 0x951 @0xb
0x0946…0956 at000c = ╱49╱I╱ // 0x952 @0xc
0x0946…0956 at000d = ╱37╱7╱ // 0x953 @0xd
0x0946…0956 at000e = ╱ee╱)╱ // 0x954 @0xe
0x0946…0956 at000f = EOL // 0x955 @0xf
0x0946…0956 }
0x0956…0962 96b9 0960 IF I8<G THEN EXIT
0x0956…0962 LineComalBin {
0x0956…0962 ptr = 0x96b9 // 0x956 @0x0
0x0956…0962 lno = 0x03c0 // 0x958 @0x2
0x0956…0962 at0004 = ╱82╱ IF ╱ // 0x95a @0x4
0x0956…0962 at0005 = ╱49╱I╱ // 0x95b @0x5
0x0956…0962 at0006 = ╱38╱8╱ // 0x95c @0x6
0x0956…0962 at0007 = ╱dd╱<╱ // 0x95d @0x7
0x0956…0962 at0008 = ╱47╱G╱ // 0x95e @0x8
0x0956…0962 at0009 = ╱b6╱ THEN ╱ // 0x95f @0x9
0x0956…0962 at000a = ╱99╱ EXIT ╱ // 0x960 @0xa
0x0956…0962 at000b = EOL // 0x961 @0xb
0x0956…0962 }
0x0962…0973 96ca 0970 I=E;B6$="0+"
0x0962…0973 LineComalBin {
0x0962…0973 ptr = 0x96ca // 0x962 @0x0
0x0962…0973 lno = 0x03ca // 0x964 @0x2
0x0962…0973 at0004 = ╱49╱I╱ // 0x966 @0x4
0x0962…0973 at0005 = ╱dc╱=╱ // 0x967 @0x5
0x0962…0973 at0006 = ╱45╱E╱ // 0x968 @0x6
0x0962…0973 at0007 = ╱eb╱;╱ // 0x969 @0x7
0x0962…0973 at0008 = ╱42╱B╱ // 0x96a @0x8
0x0962…0973 at0009 = ╱36╱6╱ // 0x96b @0x9
0x0962…0973 at000a = ╱ef╱$╱ // 0x96c @0xa
0x0962…0973 at000b = ╱dc╱=╱ // 0x96d @0xb
0x0962…0973 at000c = ╱22╱"╱ // 0x96e @0xc
0x0962…0973 at000d = ╱30╱0╱ // 0x96f @0xd
0x0962…0973 at000e = ╱2b╱+╱ // 0x970 @0xe
0x0962…0973 at000f = ╱22╱"╱ // 0x971 @0xf
0x0962…0973 at0010 = EOL // 0x972 @0x10
0x0962…0973 }
0x0973…0979 96d0 0980 CLEAR
0x0973…0979 LineComalBin {
0x0973…0979 ptr = 0x96d0 // 0x973 @0x0
0x0973…0979 lno = 0x03d4 // 0x975 @0x2
0x0973…0979 at0004 = ╱a0╱ CLEAR ╱ // 0x977 @0x4
0x0973…0979 at0005 = EOL // 0x978 @0x5
0x0973…0979 }
0x0979…097f 96d6 0990 REPEAT
0x0979…097f LineComalBin {
0x0979…097f ptr = 0x96d6 // 0x979 @0x0
0x0979…097f lno = 0x03de // 0x97b @0x2
0x0979…097f at0004 = ╱97╱ REPEAT ╱ // 0x97d @0x4
0x0979…097f at0005 = EOL // 0x97e @0x5
0x0979…097f }
0x097f…0993 96ea 1000 CURSOR 8,13
0x097f…0993 LineComalBin {
0x097f…0993 ptr = 0x96ea // 0x97f @0x0
0x097f…0993 lno = 0x03e8 // 0x981 @0x2
0x097f…0993 at0004 = ╱a1╱ CURSOR ╱ // 0x983 @0x4
0x097f…0993 at0005 = ╱38╱8╱ // 0x984 @0x5
0x097f…0993 at0006 = ╱fe00008004╱ // 0x985 @0x6
0x097f…0993 at000b = ╱ec╱,╱ // 0x98a @0xb
0x097f…0993 at000c = ╱31╱1╱ // 0x98b @0xc
0x097f…0993 at000d = ╱33╱3╱ // 0x98c @0xd
0x097f…0993 at000e = ╱fe0000d004╱ // 0x98d @0xe
0x097f…0993 at0013 = EOL // 0x992 @0x13
0x097f…0993 }
0x0993…09d7 972e 1010 INPUT "Monter papir til udskrift af posteringsark og tast RETURN",A$
0x0993…09d7 LineComalBin {
0x0993…09d7 ptr = 0x972e // 0x993 @0x0
0x0993…09d7 lno = 0x03f2 // 0x995 @0x2
0x0993…09d7 at0004 = ╱91╱ INPUT ╱ // 0x997 @0x4
0x0993…09d7 at0005 = ╱22╱"╱ // 0x998 @0x5
0x0993…09d7 at0006 = ╱4d╱M╱ // 0x999 @0x6
0x0993…09d7 at0007 = ╱6f╱o╱ // 0x99a @0x7
0x0993…09d7 at0008 = ╱6e╱n╱ // 0x99b @0x8
0x0993…09d7 at0009 = ╱74╱t╱ // 0x99c @0x9
0x0993…09d7 at000a = ╱65╱e╱ // 0x99d @0xa
0x0993…09d7 at000b = ╱72╱r╱ // 0x99e @0xb
0x0993…09d7 at000c = ╱20╱…╱ // 0x99f @0xc
0x0993…09d7 at000d = ╱70╱p╱ // 0x9a0 @0xd
0x0993…09d7 at000e = ╱61╱a╱ // 0x9a1 @0xe
0x0993…09d7 at000f = ╱70╱p╱ // 0x9a2 @0xf
0x0993…09d7 at0010 = ╱69╱i╱ // 0x9a3 @0x10
0x0993…09d7 at0011 = ╱72╱r╱ // 0x9a4 @0x11
0x0993…09d7 at0012 = ╱20╱…╱ // 0x9a5 @0x12
0x0993…09d7 at0013 = ╱74╱t╱ // 0x9a6 @0x13
0x0993…09d7 at0014 = ╱69╱i╱ // 0x9a7 @0x14
0x0993…09d7 at0015 = ╱6c╱l╱ // 0x9a8 @0x15
0x0993…09d7 at0016 = ╱20╱…╱ // 0x9a9 @0x16
0x0993…09d7 at0017 = ╱75╱u╱ // 0x9aa @0x17
0x0993…09d7 at0018 = ╱64╱d╱ // 0x9ab @0x18
0x0993…09d7 at0019 = ╱73╱s╱ // 0x9ac @0x19
0x0993…09d7 at001a = ╱6b╱k╱ // 0x9ad @0x1a
0x0993…09d7 at001b = ╱72╱r╱ // 0x9ae @0x1b
0x0993…09d7 at001c = ╱69╱i╱ // 0x9af @0x1c
0x0993…09d7 at001d = ╱66╱f╱ // 0x9b0 @0x1d
0x0993…09d7 at001e = ╱74╱t╱ // 0x9b1 @0x1e
0x0993…09d7 at001f = ╱20╱…╱ // 0x9b2 @0x1f
0x0993…09d7 at0020 = ╱61╱a╱ // 0x9b3 @0x20
0x0993…09d7 at0021 = ╱66╱f╱ // 0x9b4 @0x21
0x0993…09d7 at0022 = ╱20╱…╱ // 0x9b5 @0x22
0x0993…09d7 at0023 = ╱70╱p╱ // 0x9b6 @0x23
0x0993…09d7 at0024 = ╱6f╱o╱ // 0x9b7 @0x24
0x0993…09d7 at0025 = ╱73╱s╱ // 0x9b8 @0x25
0x0993…09d7 at0026 = ╱74╱t╱ // 0x9b9 @0x26
0x0993…09d7 at0027 = ╱65╱e╱ // 0x9ba @0x27
0x0993…09d7 at0028 = ╱72╱r╱ // 0x9bb @0x28
0x0993…09d7 at0029 = ╱69╱i╱ // 0x9bc @0x29
0x0993…09d7 at002a = ╱6e╱n╱ // 0x9bd @0x2a
0x0993…09d7 at002b = ╱67╱g╱ // 0x9be @0x2b
0x0993…09d7 at002c = ╱73╱s╱ // 0x9bf @0x2c
0x0993…09d7 at002d = ╱61╱a╱ // 0x9c0 @0x2d
0x0993…09d7 at002e = ╱72╱r╱ // 0x9c1 @0x2e
0x0993…09d7 at002f = ╱6b╱k╱ // 0x9c2 @0x2f
0x0993…09d7 at0030 = ╱20╱…╱ // 0x9c3 @0x30
0x0993…09d7 at0031 = ╱6f╱o╱ // 0x9c4 @0x31
0x0993…09d7 at0032 = ╱67╱g╱ // 0x9c5 @0x32
0x0993…09d7 at0033 = ╱20╱…╱ // 0x9c6 @0x33
0x0993…09d7 at0034 = ╱74╱t╱ // 0x9c7 @0x34
0x0993…09d7 at0035 = ╱61╱a╱ // 0x9c8 @0x35
0x0993…09d7 at0036 = ╱73╱s╱ // 0x9c9 @0x36
0x0993…09d7 at0037 = ╱74╱t╱ // 0x9ca @0x37
0x0993…09d7 at0038 = ╱20╱…╱ // 0x9cb @0x38
0x0993…09d7 at0039 = ╱52╱R╱ // 0x9cc @0x39
0x0993…09d7 at003a = ╱45╱E╱ // 0x9cd @0x3a
0x0993…09d7 at003b = ╱54╱T╱ // 0x9ce @0x3b
0x0993…09d7 at003c = ╱55╱U╱ // 0x9cf @0x3c
0x0993…09d7 at003d = ╱52╱R╱ // 0x9d0 @0x3d
0x0993…09d7 at003e = ╱4e╱N╱ // 0x9d1 @0x3e
0x0993…09d7 at003f = ╱22╱"╱ // 0x9d2 @0x3f
0x0993…09d7 at0040 = ╱ec╱,╱ // 0x9d3 @0x40
0x0993…09d7 at0041 = ╱41╱A╱ // 0x9d4 @0x41
0x0993…09d7 at0042 = ╱ef╱$╱ // 0x9d5 @0x42
0x0993…09d7 at0043 = EOL // 0x9d6 @0x43
0x0993…09d7 }
0x09d7…09eb 9742 1020 UNTIL ORD(A$)=255
0x09d7…09eb LineComalBin {
0x09d7…09eb ptr = 0x9742 // 0x9d7 @0x0
0x09d7…09eb lno = 0x03fc // 0x9d9 @0x2
0x09d7…09eb at0004 = ╱98╱ UNTIL ╱ // 0x9db @0x4
0x09d7…09eb at0005 = ╱cd╱ORD╱ // 0x9dc @0x5
0x09d7…09eb at0006 = ╱ed╱(╱ // 0x9dd @0x6
0x09d7…09eb at0007 = ╱41╱A╱ // 0x9de @0x7
0x09d7…09eb at0008 = ╱ef╱$╱ // 0x9df @0x8
0x09d7…09eb at0009 = ╱ee╱)╱ // 0x9e0 @0x9
0x09d7…09eb at000a = ╱dc╱=╱ // 0x9e1 @0xa
0x09d7…09eb at000b = ╱32╱2╱ // 0x9e2 @0xb
0x09d7…09eb at000c = ╱35╱5╱ // 0x9e3 @0xc
0x09d7…09eb at000d = ╱35╱5╱ // 0x9e4 @0xd
0x09d7…09eb at000e = ╱fe0000ff08╱ // 0x9e5 @0xe
0x09d7…09eb at0013 = EOL // 0x9ea @0x13
0x09d7…09eb }
0x09eb…09f2 9749 1025 OUTPUT P
0x09eb…09f2 LineComalBin {
0x09eb…09f2 ptr = 0x9749 // 0x9eb @0x0
0x09eb…09f2 lno = 0x0401 // 0x9ed @0x2
0x09eb…09f2 at0004 = ╱a5╱ OUTPUT ╱ // 0x9ef @0x4
0x09eb…09f2 at0005 = ╱50╱P╱ // 0x9f0 @0x5
0x09eb…09f2 at0006 = EOL // 0x9f1 @0x6
0x09eb…09f2 }
0x09f2…09f8 974f 1030 REPEAT
0x09f2…09f8 LineComalBin {
0x09f2…09f8 ptr = 0x974f // 0x9f2 @0x0
0x09f2…09f8 lno = 0x0406 // 0x9f4 @0x2
0x09f2…09f8 at0004 = ╱97╱ REPEAT ╱ // 0x9f6 @0x4
0x09f2…09f8 at0005 = EOL // 0x9f7 @0x5
0x09f2…09f8 }
0x09f8…0a0c 9763 1040 EXEC DATOUD(I9,B7$)
0x09f8…0a0c LineComalBin {
0x09f8…0a0c ptr = 0x9763 // 0x9f8 @0x0
0x09f8…0a0c lno = 0x0410 // 0x9fa @0x2
0x09f8…0a0c at0004 = ╱9d╱ EXEC ╱ // 0x9fc @0x4
0x09f8…0a0c at0005 = ╱44╱D╱ // 0x9fd @0x5
0x09f8…0a0c at0006 = ╱41╱A╱ // 0x9fe @0x6
0x09f8…0a0c at0007 = ╱54╱T╱ // 0x9ff @0x7
0x09f8…0a0c at0008 = ╱4f╱O╱ // 0xa00 @0x8
0x09f8…0a0c at0009 = ╱55╱U╱ // 0xa01 @0x9
0x09f8…0a0c at000a = ╱44╱D╱ // 0xa02 @0xa
0x09f8…0a0c at000b = ╱ed╱(╱ // 0xa03 @0xb
0x09f8…0a0c at000c = ╱49╱I╱ // 0xa04 @0xc
0x09f8…0a0c at000d = ╱39╱9╱ // 0xa05 @0xd
0x09f8…0a0c at000e = ╱ec╱,╱ // 0xa06 @0xe
0x09f8…0a0c at000f = ╱42╱B╱ // 0xa07 @0xf
0x09f8…0a0c at0010 = ╱37╱7╱ // 0xa08 @0x10
0x09f8…0a0c at0011 = ╱ef╱$╱ // 0xa09 @0x11
0x09f8…0a0c at0012 = ╱ee╱)╱ // 0xa0a @0x12
0x09f8…0a0c at0013 = EOL // 0xa0b @0x13
0x09f8…0a0c }
0x0a0c…0a24 977b 1060 PRINT TAB(67);B3$;" "
0x0a0c…0a24 LineComalBin {
0x0a0c…0a24 ptr = 0x977b // 0xa0c @0x0
0x0a0c…0a24 lno = 0x0424 // 0xa0e @0x2
0x0a0c…0a24 at0004 = ╱92╱ PRINT ╱ // 0xa10 @0x4
0x0a0c…0a24 at0005 = ╱d2╱TAB╱ // 0xa11 @0x5
0x0a0c…0a24 at0006 = ╱ed╱(╱ // 0xa12 @0x6
0x0a0c…0a24 at0007 = ╱36╱6╱ // 0xa13 @0x7
0x0a0c…0a24 at0008 = ╱37╱7╱ // 0xa14 @0x8
0x0a0c…0a24 at0009 = ╱fe00008607╱ // 0xa15 @0x9
0x0a0c…0a24 at000e = ╱ee╱)╱ // 0xa1a @0xe
0x0a0c…0a24 at000f = ╱eb╱;╱ // 0xa1b @0xf
0x0a0c…0a24 at0010 = ╱42╱B╱ // 0xa1c @0x10
0x0a0c…0a24 at0011 = ╱33╱3╱ // 0xa1d @0x11
0x0a0c…0a24 at0012 = ╱ef╱$╱ // 0xa1e @0x12
0x0a0c…0a24 at0013 = ╱eb╱;╱ // 0xa1f @0x13
0x0a0c…0a24 at0014 = ╱22╱"╱ // 0xa20 @0x14
0x0a0c…0a24 at0015 = ╱20╱…╱ // 0xa21 @0x15
0x0a0c…0a24 at0016 = ╱22╱"╱ // 0xa22 @0x16
0x0a0c…0a24 at0017 = EOL // 0xa23 @0x17
0x0a0c…0a24 }
0x0a24…0a6c 97c3 1070 PRINT TAB(W);CHR(14);"Posteringsark";CHR(15);TAB(44);"Dato:";B7$;
0x0a24…0a6c LineComalBin {
0x0a24…0a6c ptr = 0x97c3 // 0xa24 @0x0
0x0a24…0a6c lno = 0x042e // 0xa26 @0x2
0x0a24…0a6c at0004 = ╱92╱ PRINT ╱ // 0xa28 @0x4
0x0a24…0a6c at0005 = ╱d2╱TAB╱ // 0xa29 @0x5
0x0a24…0a6c at0006 = ╱ed╱(╱ // 0xa2a @0x6
0x0a24…0a6c at0007 = ╱57╱W╱ // 0xa2b @0x7
0x0a24…0a6c at0008 = ╱ee╱)╱ // 0xa2c @0x8
0x0a24…0a6c at0009 = ╱eb╱;╱ // 0xa2d @0x9
0x0a24…0a6c at000a = ╱cf╱CHR╱ // 0xa2e @0xa
0x0a24…0a6c at000b = ╱ed╱(╱ // 0xa2f @0xb
0x0a24…0a6c at000c = ╱31╱1╱ // 0xa30 @0xc
0x0a24…0a6c at000d = ╱34╱4╱ // 0xa31 @0xd
0x0a24…0a6c at000e = ╱fe0000e004╱ // 0xa32 @0xe
0x0a24…0a6c at0013 = ╱ee╱)╱ // 0xa37 @0x13
0x0a24…0a6c at0014 = ╱eb╱;╱ // 0xa38 @0x14
0x0a24…0a6c at0015 = ╱22╱"╱ // 0xa39 @0x15
0x0a24…0a6c at0016 = ╱50╱P╱ // 0xa3a @0x16
0x0a24…0a6c at0017 = ╱6f╱o╱ // 0xa3b @0x17
0x0a24…0a6c at0018 = ╱73╱s╱ // 0xa3c @0x18
0x0a24…0a6c at0019 = ╱74╱t╱ // 0xa3d @0x19
0x0a24…0a6c at001a = ╱65╱e╱ // 0xa3e @0x1a
0x0a24…0a6c at001b = ╱72╱r╱ // 0xa3f @0x1b
0x0a24…0a6c at001c = ╱69╱i╱ // 0xa40 @0x1c
0x0a24…0a6c at001d = ╱6e╱n╱ // 0xa41 @0x1d
0x0a24…0a6c at001e = ╱67╱g╱ // 0xa42 @0x1e
0x0a24…0a6c at001f = ╱73╱s╱ // 0xa43 @0x1f
0x0a24…0a6c at0020 = ╱61╱a╱ // 0xa44 @0x20
0x0a24…0a6c at0021 = ╱72╱r╱ // 0xa45 @0x21
0x0a24…0a6c at0022 = ╱6b╱k╱ // 0xa46 @0x22
0x0a24…0a6c at0023 = ╱22╱"╱ // 0xa47 @0x23
0x0a24…0a6c at0024 = ╱eb╱;╱ // 0xa48 @0x24
0x0a24…0a6c at0025 = ╱cf╱CHR╱ // 0xa49 @0x25
0x0a24…0a6c at0026 = ╱ed╱(╱ // 0xa4a @0x26
0x0a24…0a6c at0027 = ╱31╱1╱ // 0xa4b @0x27
0x0a24…0a6c at0028 = ╱35╱5╱ // 0xa4c @0x28
0x0a24…0a6c at0029 = ╱fe0000f004╱ // 0xa4d @0x29
0x0a24…0a6c at002e = ╱ee╱)╱ // 0xa52 @0x2e
0x0a24…0a6c at002f = ╱eb╱;╱ // 0xa53 @0x2f
0x0a24…0a6c at0030 = ╱d2╱TAB╱ // 0xa54 @0x30
0x0a24…0a6c at0031 = ╱ed╱(╱ // 0xa55 @0x31
0x0a24…0a6c at0032 = ╱34╱4╱ // 0xa56 @0x32
0x0a24…0a6c at0033 = ╱34╱4╱ // 0xa57 @0x33
0x0a24…0a6c at0034 = ╱fe0000b006╱ // 0xa58 @0x34
0x0a24…0a6c at0039 = ╱ee╱)╱ // 0xa5d @0x39
0x0a24…0a6c at003a = ╱eb╱;╱ // 0xa5e @0x3a
0x0a24…0a6c at003b = ╱22╱"╱ // 0xa5f @0x3b
0x0a24…0a6c at003c = ╱44╱D╱ // 0xa60 @0x3c
0x0a24…0a6c at003d = ╱61╱a╱ // 0xa61 @0x3d
0x0a24…0a6c at003e = ╱74╱t╱ // 0xa62 @0x3e
0x0a24…0a6c at003f = ╱6f╱o╱ // 0xa63 @0x3f
0x0a24…0a6c at0040 = ╱3a╱:╱ // 0xa64 @0x40
0x0a24…0a6c at0041 = ╱22╱"╱ // 0xa65 @0x41
0x0a24…0a6c at0042 = ╱eb╱;╱ // 0xa66 @0x42
0x0a24…0a6c at0043 = ╱42╱B╱ // 0xa67 @0x43
0x0a24…0a6c at0044 = ╱37╱7╱ // 0xa68 @0x44
0x0a24…0a6c at0045 = ╱ef╱$╱ // 0xa69 @0x45
0x0a24…0a6c at0046 = ╱eb╱;╱ // 0xa6a @0x46
0x0a24…0a6c at0047 = EOL // 0xa6b @0x47
0x0a24…0a6c }
0x0a6c…0a7d 97d4 1080 PRINT TAB(61);
0x0a6c…0a7d LineComalBin {
0x0a6c…0a7d ptr = 0x97d4 // 0xa6c @0x0
0x0a6c…0a7d lno = 0x0438 // 0xa6e @0x2
0x0a6c…0a7d at0004 = ╱92╱ PRINT ╱ // 0xa70 @0x4
0x0a6c…0a7d at0005 = ╱d2╱TAB╱ // 0xa71 @0x5
0x0a6c…0a7d at0006 = ╱ed╱(╱ // 0xa72 @0x6
0x0a6c…0a7d at0007 = ╱36╱6╱ // 0xa73 @0x7
0x0a6c…0a7d at0008 = ╱31╱1╱ // 0xa74 @0x8
0x0a6c…0a7d at0009 = ╱fe0000f406╱ // 0xa75 @0x9
0x0a6c…0a7d at000e = ╱ee╱)╱ // 0xa7a @0xe
0x0a6c…0a7d at000f = ╱eb╱;╱ // 0xa7b @0xf
0x0a6c…0a7d at0010 = EOL // 0xa7c @0x10
0x0a6c…0a7d }
0x0a7d…0a92 97e9 1090 PRINT USING "Side:####":I7
0x0a7d…0a92 LineComalBin {
0x0a7d…0a92 ptr = 0x97e9 // 0xa7d @0x0
0x0a7d…0a92 lno = 0x0442 // 0xa7f @0x2
0x0a7d…0a92 at0004 = ╱92╱ PRINT ╱ // 0xa81 @0x4
0x0a7d…0a92 at0005 = ╱b9╱ USING ╱ // 0xa82 @0x5
0x0a7d…0a92 at0006 = ╱22╱"╱ // 0xa83 @0x6
0x0a7d…0a92 at0007 = ╱53╱S╱ // 0xa84 @0x7
0x0a7d…0a92 at0008 = ╱69╱i╱ // 0xa85 @0x8
0x0a7d…0a92 at0009 = ╱64╱d╱ // 0xa86 @0x9
0x0a7d…0a92 at000a = ╱65╱e╱ // 0xa87 @0xa
0x0a7d…0a92 at000b = ╱3a╱:╱ // 0xa88 @0xb
0x0a7d…0a92 at000c = ╱23╱#╱ // 0xa89 @0xc
0x0a7d…0a92 at000d = ╱23╱#╱ // 0xa8a @0xd
0x0a7d…0a92 at000e = ╱23╱#╱ // 0xa8b @0xe
0x0a7d…0a92 at000f = ╱23╱#╱ // 0xa8c @0xf
0x0a7d…0a92 at0010 = ╱22╱"╱ // 0xa8d @0x10
0x0a7d…0a92 at0011 = ╱f0╱:╱ // 0xa8e @0x11
0x0a7d…0a92 at0012 = ╱49╱I╱ // 0xa8f @0x12
0x0a7d…0a92 at0013 = ╱37╱7╱ // 0xa90 @0x13
0x0a7d…0a92 at0014 = EOL // 0xa91 @0x14
0x0a7d…0a92 }
0x0a92…0a9e 97f5 1100 I7=I7+E
0x0a92…0a9e LineComalBin {
0x0a92…0a9e ptr = 0x97f5 // 0xa92 @0x0
0x0a92…0a9e lno = 0x044c // 0xa94 @0x2
0x0a92…0a9e at0004 = ╱49╱I╱ // 0xa96 @0x4
0x0a92…0a9e at0005 = ╱37╱7╱ // 0xa97 @0x5
0x0a92…0a9e at0006 = ╱dc╱=╱ // 0xa98 @0x6
0x0a92…0a9e at0007 = ╱49╱I╱ // 0xa99 @0x7
0x0a92…0a9e at0008 = ╱37╱7╱ // 0xa9a @0x8
0x0a92…0a9e at0009 = ╱e2╱+╱ // 0xa9b @0x9
0x0a92…0a9e at000a = ╱45╱E╱ // 0xa9c @0xa
0x0a92…0a9e at000b = EOL // 0xa9d @0xb
0x0a92…0a9e }
0x0a9e…0aa7 97fe 1110 PRINT " "
0x0a9e…0aa7 LineComalBin {
0x0a9e…0aa7 ptr = 0x97fe // 0xa9e @0x0
0x0a9e…0aa7 lno = 0x0456 // 0xaa0 @0x2
0x0a9e…0aa7 at0004 = ╱92╱ PRINT ╱ // 0xaa2 @0x4
0x0a9e…0aa7 at0005 = ╱22╱"╱ // 0xaa3 @0x5
0x0a9e…0aa7 at0006 = ╱20╱…╱ // 0xaa4 @0x6
0x0a9e…0aa7 at0007 = ╱22╱"╱ // 0xaa5 @0x7
0x0a9e…0aa7 at0008 = EOL // 0xaa6 @0x8
0x0a9e…0aa7 }
0x0aa7…0ad3 982a 1111 PRINT TAB(43);"Debet";TAB(70);"Kredit"
0x0aa7…0ad3 LineComalBin {
0x0aa7…0ad3 ptr = 0x982a // 0xaa7 @0x0
0x0aa7…0ad3 lno = 0x0457 // 0xaa9 @0x2
0x0aa7…0ad3 at0004 = ╱92╱ PRINT ╱ // 0xaab @0x4
0x0aa7…0ad3 at0005 = ╱d2╱TAB╱ // 0xaac @0x5
0x0aa7…0ad3 at0006 = ╱ed╱(╱ // 0xaad @0x6
0x0aa7…0ad3 at0007 = ╱34╱4╱ // 0xaae @0x7
0x0aa7…0ad3 at0008 = ╱33╱3╱ // 0xaaf @0x8
0x0aa7…0ad3 at0009 = ╱fe0000ac06╱ // 0xab0 @0x9
0x0aa7…0ad3 at000e = ╱ee╱)╱ // 0xab5 @0xe
0x0aa7…0ad3 at000f = ╱eb╱;╱ // 0xab6 @0xf
0x0aa7…0ad3 at0010 = ╱22╱"╱ // 0xab7 @0x10
0x0aa7…0ad3 at0011 = ╱44╱D╱ // 0xab8 @0x11
0x0aa7…0ad3 at0012 = ╱65╱e╱ // 0xab9 @0x12
0x0aa7…0ad3 at0013 = ╱62╱b╱ // 0xaba @0x13
0x0aa7…0ad3 at0014 = ╱65╱e╱ // 0xabb @0x14
0x0aa7…0ad3 at0015 = ╱74╱t╱ // 0xabc @0x15
0x0aa7…0ad3 at0016 = ╱22╱"╱ // 0xabd @0x16
0x0aa7…0ad3 at0017 = ╱eb╱;╱ // 0xabe @0x17
0x0aa7…0ad3 at0018 = ╱d2╱TAB╱ // 0xabf @0x18
0x0aa7…0ad3 at0019 = ╱ed╱(╱ // 0xac0 @0x19
0x0aa7…0ad3 at001a = ╱37╱7╱ // 0xac1 @0x1a
0x0aa7…0ad3 at001b = ╱30╱0╱ // 0xac2 @0x1b
0x0aa7…0ad3 at001c = ╱fe00008c07╱ // 0xac3 @0x1c
0x0aa7…0ad3 at0021 = ╱ee╱)╱ // 0xac8 @0x21
0x0aa7…0ad3 at0022 = ╱eb╱;╱ // 0xac9 @0x22
0x0aa7…0ad3 at0023 = ╱22╱"╱ // 0xaca @0x23
0x0aa7…0ad3 at0024 = ╱4b╱K╱ // 0xacb @0x24
0x0aa7…0ad3 at0025 = ╱72╱r╱ // 0xacc @0x25
0x0aa7…0ad3 at0026 = ╱65╱e╱ // 0xacd @0x26
0x0aa7…0ad3 at0027 = ╱64╱d╱ // 0xace @0x27
0x0aa7…0ad3 at0028 = ╱69╱i╱ // 0xacf @0x28
0x0aa7…0ad3 at0029 = ╱74╱t╱ // 0xad0 @0x29
0x0aa7…0ad3 at002a = ╱22╱"╱ // 0xad1 @0x2a
0x0aa7…0ad3 at002b = EOL // 0xad2 @0x2b
0x0aa7…0ad3 }
0x0ad3…0b1c 9873 1120 PRINT TAB(V);"Bilag Tekst";TAB(39);"Konto Entre Beløb Konto ";
0x0ad3…0b1c LineComalBin {
0x0ad3…0b1c ptr = 0x9873 // 0xad3 @0x0
0x0ad3…0b1c lno = 0x0460 // 0xad5 @0x2
0x0ad3…0b1c at0004 = ╱92╱ PRINT ╱ // 0xad7 @0x4
0x0ad3…0b1c at0005 = ╱d2╱TAB╱ // 0xad8 @0x5
0x0ad3…0b1c at0006 = ╱ed╱(╱ // 0xad9 @0x6
0x0ad3…0b1c at0007 = ╱56╱V╱ // 0xada @0x7
0x0ad3…0b1c at0008 = ╱ee╱)╱ // 0xadb @0x8
0x0ad3…0b1c at0009 = ╱eb╱;╱ // 0xadc @0x9
0x0ad3…0b1c at000a = ╱22╱"╱ // 0xadd @0xa
0x0ad3…0b1c at000b = ╱42╱B╱ // 0xade @0xb
0x0ad3…0b1c at000c = ╱69╱i╱ // 0xadf @0xc
0x0ad3…0b1c at000d = ╱6c╱l╱ // 0xae0 @0xd
0x0ad3…0b1c at000e = ╱61╱a╱ // 0xae1 @0xe
0x0ad3…0b1c at000f = ╱67╱g╱ // 0xae2 @0xf
0x0ad3…0b1c at0010 = ╱20╱…╱ // 0xae3 @0x10
0x0ad3…0b1c at0011 = ╱54╱T╱ // 0xae4 @0x11
0x0ad3…0b1c at0012 = ╱65╱e╱ // 0xae5 @0x12
0x0ad3…0b1c at0013 = ╱6b╱k╱ // 0xae6 @0x13
0x0ad3…0b1c at0014 = ╱73╱s╱ // 0xae7 @0x14
0x0ad3…0b1c at0015 = ╱74╱t╱ // 0xae8 @0x15
0x0ad3…0b1c at0016 = ╱22╱"╱ // 0xae9 @0x16
0x0ad3…0b1c at0017 = ╱eb╱;╱ // 0xaea @0x17
0x0ad3…0b1c at0018 = ╱d2╱TAB╱ // 0xaeb @0x18
0x0ad3…0b1c at0019 = ╱ed╱(╱ // 0xaec @0x19
0x0ad3…0b1c at001a = ╱33╱3╱ // 0xaed @0x1a
0x0ad3…0b1c at001b = ╱39╱9╱ // 0xaee @0x1b
0x0ad3…0b1c at001c = ╱fe00009c06╱ // 0xaef @0x1c
0x0ad3…0b1c at0021 = ╱ee╱)╱ // 0xaf4 @0x21
0x0ad3…0b1c at0022 = ╱eb╱;╱ // 0xaf5 @0x22
0x0ad3…0b1c at0023 = ╱22╱"╱ // 0xaf6 @0x23
0x0ad3…0b1c at0024 = ╱4b╱K╱ // 0xaf7 @0x24
0x0ad3…0b1c at0025 = ╱6f╱o╱ // 0xaf8 @0x25
0x0ad3…0b1c at0026 = ╱6e╱n╱ // 0xaf9 @0x26
0x0ad3…0b1c at0027 = ╱74╱t╱ // 0xafa @0x27
0x0ad3…0b1c at0028 = ╱6f╱o╱ // 0xafb @0x28
0x0ad3…0b1c at0029 = ╱20╱…╱ // 0xafc @0x29
0x0ad3…0b1c at002a = ╱20╱…╱ // 0xafd @0x2a
0x0ad3…0b1c at002b = ╱45╱E╱ // 0xafe @0x2b
0x0ad3…0b1c at002c = ╱6e╱n╱ // 0xaff @0x2c
0x0ad3…0b1c at002d = ╱74╱t╱ // 0xb00 @0x2d
0x0ad3…0b1c at002e = ╱72╱r╱ // 0xb01 @0x2e
0x0ad3…0b1c at002f = ╱65╱e╱ // 0xb02 @0x2f
0x0ad3…0b1c at0030 = ╱20╱…╱ // 0xb03 @0x30
0x0ad3…0b1c at0031 = ╱20╱…╱ // 0xb04 @0x31
0x0ad3…0b1c at0032 = ╱20╱…╱ // 0xb05 @0x32
0x0ad3…0b1c at0033 = ╱20╱…╱ // 0xb06 @0x33
0x0ad3…0b1c at0034 = ╱20╱…╱ // 0xb07 @0x34
0x0ad3…0b1c at0035 = ╱42╱B╱ // 0xb08 @0x35
0x0ad3…0b1c at0036 = ╱65╱e╱ // 0xb09 @0x36
0x0ad3…0b1c at0037 = ╱6c╱l╱ // 0xb0a @0x37
0x0ad3…0b1c at0038 = ╱7c╱ø╱ // 0xb0b @0x38
0x0ad3…0b1c at0039 = ╱62╱b╱ // 0xb0c @0x39
0x0ad3…0b1c at003a = ╱20╱…╱ // 0xb0d @0x3a
0x0ad3…0b1c at003b = ╱20╱…╱ // 0xb0e @0x3b
0x0ad3…0b1c at003c = ╱20╱…╱ // 0xb0f @0x3c
0x0ad3…0b1c at003d = ╱20╱…╱ // 0xb10 @0x3d
0x0ad3…0b1c at003e = ╱20╱…╱ // 0xb11 @0x3e
0x0ad3…0b1c at003f = ╱20╱…╱ // 0xb12 @0x3f
0x0ad3…0b1c at0040 = ╱4b╱K╱ // 0xb13 @0x40
0x0ad3…0b1c at0041 = ╱6f╱o╱ // 0xb14 @0x41
0x0ad3…0b1c at0042 = ╱6e╱n╱ // 0xb15 @0x42
0x0ad3…0b1c at0043 = ╱74╱t╱ // 0xb16 @0x43
0x0ad3…0b1c at0044 = ╱6f╱o╱ // 0xb17 @0x44
0x0ad3…0b1c at0045 = ╱20╱…╱ // 0xb18 @0x45
0x0ad3…0b1c at0046 = ╱22╱"╱ // 0xb19 @0x46
0x0ad3…0b1c at0047 = ╱eb╱;╱ // 0xb1a @0x47
0x0ad3…0b1c at0048 = EOL // 0xb1b @0x48
0x0ad3…0b1c }
0x0b1c…0b2a 9881 1121 PRINT " Entre"
0x0b1c…0b2a LineComalBin {
0x0b1c…0b2a ptr = 0x9881 // 0xb1c @0x0
0x0b1c…0b2a lno = 0x0461 // 0xb1e @0x2
0x0b1c…0b2a at0004 = ╱92╱ PRINT ╱ // 0xb20 @0x4
0x0b1c…0b2a at0005 = ╱22╱"╱ // 0xb21 @0x5
0x0b1c…0b2a at0006 = ╱20╱…╱ // 0xb22 @0x6
0x0b1c…0b2a at0007 = ╱45╱E╱ // 0xb23 @0x7
0x0b1c…0b2a at0008 = ╱6e╱n╱ // 0xb24 @0x8
0x0b1c…0b2a at0009 = ╱74╱t╱ // 0xb25 @0x9
0x0b1c…0b2a at000a = ╱72╱r╱ // 0xb26 @0xa
0x0b1c…0b2a at000b = ╱65╱e╱ // 0xb27 @0xb
0x0b1c…0b2a at000c = ╱22╱"╱ // 0xb28 @0xc
0x0b1c…0b2a at000d = EOL // 0xb29 @0xd
0x0b1c…0b2a }
0x0b2a…0b38 988f 1130 PRINT TAB(V);D1$
0x0b2a…0b38 LineComalBin {
0x0b2a…0b38 ptr = 0x988f // 0xb2a @0x0
0x0b2a…0b38 lno = 0x046a // 0xb2c @0x2
0x0b2a…0b38 at0004 = ╱92╱ PRINT ╱ // 0xb2e @0x4
0x0b2a…0b38 at0005 = ╱d2╱TAB╱ // 0xb2f @0x5
0x0b2a…0b38 at0006 = ╱ed╱(╱ // 0xb30 @0x6
0x0b2a…0b38 at0007 = ╱56╱V╱ // 0xb31 @0x7
0x0b2a…0b38 at0008 = ╱ee╱)╱ // 0xb32 @0x8
0x0b2a…0b38 at0009 = ╱eb╱;╱ // 0xb33 @0x9
0x0b2a…0b38 at000a = ╱44╱D╱ // 0xb34 @0xa
0x0b2a…0b38 at000b = ╱31╱1╱ // 0xb35 @0xb
0x0b2a…0b38 at000c = ╱ef╱$╱ // 0xb36 @0xc
0x0b2a…0b38 at000d = EOL // 0xb37 @0xd
0x0b2a…0b38 }
0x0b38…0b41 9898 1140 J0=E
0x0b38…0b41 LineComalBin {
0x0b38…0b41 ptr = 0x9898 // 0xb38 @0x0
0x0b38…0b41 lno = 0x0474 // 0xb3a @0x2
0x0b38…0b41 at0004 = ╱4a╱J╱ // 0xb3c @0x4
0x0b38…0b41 at0005 = ╱30╱0╱ // 0xb3d @0x5
0x0b38…0b41 at0006 = ╱dc╱=╱ // 0xb3e @0x6
0x0b38…0b41 at0007 = ╱45╱E╱ // 0xb3f @0x7
0x0b38…0b41 at0008 = EOL // 0xb40 @0x8
0x0b38…0b41 }
0x0b41…0b47 989e 1150 REPEAT
0x0b41…0b47 LineComalBin {
0x0b41…0b47 ptr = 0x989e // 0xb41 @0x0
0x0b41…0b47 lno = 0x047e // 0xb43 @0x2
0x0b41…0b47 at0004 = ╱97╱ REPEAT ╱ // 0xb45 @0x4
0x0b41…0b47 at0005 = EOL // 0xb46 @0x5
0x0b41…0b47 }
0x0b47…0b6a 98c1 1160 GET B0$,I:J1,J2,J3,B8$,E0$,C0$,J4
0x0b47…0b6a LineComalBin {
0x0b47…0b6a ptr = 0x98c1 // 0xb47 @0x0
0x0b47…0b6a lno = 0x0488 // 0xb49 @0x2
0x0b47…0b6a at0004 = ╱a9╱ GET ╱ // 0xb4b @0x4
0x0b47…0b6a at0005 = ╱42╱B╱ // 0xb4c @0x5
0x0b47…0b6a at0006 = ╱30╱0╱ // 0xb4d @0x6
0x0b47…0b6a at0007 = ╱ef╱$╱ // 0xb4e @0x7
0x0b47…0b6a at0008 = ╱ec╱,╱ // 0xb4f @0x8
0x0b47…0b6a at0009 = ╱49╱I╱ // 0xb50 @0x9
0x0b47…0b6a at000a = ╱f0╱:╱ // 0xb51 @0xa
0x0b47…0b6a at000b = ╱4a╱J╱ // 0xb52 @0xb
0x0b47…0b6a at000c = ╱31╱1╱ // 0xb53 @0xc
0x0b47…0b6a at000d = ╱ec╱,╱ // 0xb54 @0xd
0x0b47…0b6a at000e = ╱4a╱J╱ // 0xb55 @0xe
0x0b47…0b6a at000f = ╱32╱2╱ // 0xb56 @0xf
0x0b47…0b6a at0010 = ╱ec╱,╱ // 0xb57 @0x10
0x0b47…0b6a at0011 = ╱4a╱J╱ // 0xb58 @0x11
0x0b47…0b6a at0012 = ╱33╱3╱ // 0xb59 @0x12
0x0b47…0b6a at0013 = ╱ec╱,╱ // 0xb5a @0x13
0x0b47…0b6a at0014 = ╱42╱B╱ // 0xb5b @0x14
0x0b47…0b6a at0015 = ╱38╱8╱ // 0xb5c @0x15
0x0b47…0b6a at0016 = ╱ef╱$╱ // 0xb5d @0x16
0x0b47…0b6a at0017 = ╱ec╱,╱ // 0xb5e @0x17
0x0b47…0b6a at0018 = ╱45╱E╱ // 0xb5f @0x18
0x0b47…0b6a at0019 = ╱30╱0╱ // 0xb60 @0x19
0x0b47…0b6a at001a = ╱ef╱$╱ // 0xb61 @0x1a
0x0b47…0b6a at001b = ╱ec╱,╱ // 0xb62 @0x1b
0x0b47…0b6a at001c = ╱43╱C╱ // 0xb63 @0x1c
0x0b47…0b6a at001d = ╱30╱0╱ // 0xb64 @0x1d
0x0b47…0b6a at001e = ╱ef╱$╱ // 0xb65 @0x1e
0x0b47…0b6a at001f = ╱ec╱,╱ // 0xb66 @0x1f
0x0b47…0b6a at0020 = ╱4a╱J╱ // 0xb67 @0x20
0x0b47…0b6a at0021 = ╱34╱4╱ // 0xb68 @0x21
0x0b47…0b6a at0022 = EOL // 0xb69 @0x22
0x0b47…0b6a }
0x0b6a…0b7b 98d2 1170 EXEC FE(V,G,B0$)
0x0b6a…0b7b LineComalBin {
0x0b6a…0b7b ptr = 0x98d2 // 0xb6a @0x0
0x0b6a…0b7b lno = 0x0492 // 0xb6c @0x2
0x0b6a…0b7b at0004 = ╱9d╱ EXEC ╱ // 0xb6e @0x4
0x0b6a…0b7b at0005 = ╱46╱F╱ // 0xb6f @0x5
0x0b6a…0b7b at0006 = ╱45╱E╱ // 0xb70 @0x6
0x0b6a…0b7b at0007 = ╱ed╱(╱ // 0xb71 @0x7
0x0b6a…0b7b at0008 = ╱56╱V╱ // 0xb72 @0x8
0x0b6a…0b7b at0009 = ╱ec╱,╱ // 0xb73 @0x9
0x0b6a…0b7b at000a = ╱47╱G╱ // 0xb74 @0xa
0x0b6a…0b7b at000b = ╱ec╱,╱ // 0xb75 @0xb
0x0b6a…0b7b at000c = ╱42╱B╱ // 0xb76 @0xc
0x0b6a…0b7b at000d = ╱30╱0╱ // 0xb77 @0xd
0x0b6a…0b7b at000e = ╱ef╱$╱ // 0xb78 @0xe
0x0b6a…0b7b at000f = ╱ee╱)╱ // 0xb79 @0xf
0x0b6a…0b7b at0010 = EOL // 0xb7a @0x10
0x0b6a…0b7b }
0x0b7b…0ba9 9900 1180 J5=ORD(B8$)-48;J6=ORD(C0$)-48;I=I+E
0x0b7b…0ba9 LineComalBin {
0x0b7b…0ba9 ptr = 0x9900 // 0xb7b @0x0
0x0b7b…0ba9 lno = 0x049c // 0xb7d @0x2
0x0b7b…0ba9 at0004 = ╱4a╱J╱ // 0xb7f @0x4
0x0b7b…0ba9 at0005 = ╱35╱5╱ // 0xb80 @0x5
0x0b7b…0ba9 at0006 = ╱dc╱=╱ // 0xb81 @0x6
0x0b7b…0ba9 at0007 = ╱cd╱ORD╱ // 0xb82 @0x7
0x0b7b…0ba9 at0008 = ╱ed╱(╱ // 0xb83 @0x8
0x0b7b…0ba9 at0009 = ╱42╱B╱ // 0xb84 @0x9
0x0b7b…0ba9 at000a = ╱38╱8╱ // 0xb85 @0xa
0x0b7b…0ba9 at000b = ╱ef╱$╱ // 0xb86 @0xb
0x0b7b…0ba9 at000c = ╱ee╱)╱ // 0xb87 @0xc
0x0b7b…0ba9 at000d = ╱e3╱-╱ // 0xb88 @0xd
0x0b7b…0ba9 at000e = ╱34╱4╱ // 0xb89 @0xe
0x0b7b…0ba9 at000f = ╱38╱8╱ // 0xb8a @0xf
0x0b7b…0ba9 at0010 = ╱fe0000c006╱ // 0xb8b @0x10
0x0b7b…0ba9 at0015 = ╱eb╱;╱ // 0xb90 @0x15
0x0b7b…0ba9 at0016 = ╱4a╱J╱ // 0xb91 @0x16
0x0b7b…0ba9 at0017 = ╱36╱6╱ // 0xb92 @0x17
0x0b7b…0ba9 at0018 = ╱dc╱=╱ // 0xb93 @0x18
0x0b7b…0ba9 at0019 = ╱cd╱ORD╱ // 0xb94 @0x19
0x0b7b…0ba9 at001a = ╱ed╱(╱ // 0xb95 @0x1a
0x0b7b…0ba9 at001b = ╱43╱C╱ // 0xb96 @0x1b
0x0b7b…0ba9 at001c = ╱30╱0╱ // 0xb97 @0x1c
0x0b7b…0ba9 at001d = ╱ef╱$╱ // 0xb98 @0x1d
0x0b7b…0ba9 at001e = ╱ee╱)╱ // 0xb99 @0x1e
0x0b7b…0ba9 at001f = ╱e3╱-╱ // 0xb9a @0x1f
0x0b7b…0ba9 at0020 = ╱34╱4╱ // 0xb9b @0x20
0x0b7b…0ba9 at0021 = ╱38╱8╱ // 0xb9c @0x21
0x0b7b…0ba9 at0022 = ╱fe0000c006╱ // 0xb9d @0x22
0x0b7b…0ba9 at0027 = ╱eb╱;╱ // 0xba2 @0x27
0x0b7b…0ba9 at0028 = ╱49╱I╱ // 0xba3 @0x28
0x0b7b…0ba9 at0029 = ╱dc╱=╱ // 0xba4 @0x29
0x0b7b…0ba9 at002a = ╱49╱I╱ // 0xba5 @0x2a
0x0b7b…0ba9 at002b = ╱e2╱+╱ // 0xba6 @0x2b
0x0b7b…0ba9 at002c = ╱45╱E╱ // 0xba7 @0x2c
0x0b7b…0ba9 at002d = EOL // 0xba8 @0x2d
0x0b7b…0ba9 }
0x0ba9…0bb4 990b 1190 IF J5>W THEN
0x0ba9…0bb4 LineComalBin {
0x0ba9…0bb4 ptr = 0x990b // 0xba9 @0x0
0x0ba9…0bb4 lno = 0x04a6 // 0xbab @0x2
0x0ba9…0bb4 at0004 = ╱9c╱ IF ╱ // 0xbad @0x4
0x0ba9…0bb4 at0005 = ╱4a╱J╱ // 0xbae @0x5
0x0ba9…0bb4 at0006 = ╱35╱5╱ // 0xbaf @0x6
0x0ba9…0bb4 at0007 = ╱de╱>╱ // 0xbb0 @0x7
0x0ba9…0bb4 at0008 = ╱57╱W╱ // 0xbb1 @0x8
0x0ba9…0bb4 at0009 = ╱b6╱ THEN ╱ // 0xbb2 @0x9
0x0ba9…0bb4 at000a = EOL // 0xbb3 @0xa
0x0ba9…0bb4 }
0x0bb4…0bc6 991d 1200 GET B0$,I:J1,C1$
0x0bb4…0bc6 LineComalBin {
0x0bb4…0bc6 ptr = 0x991d // 0xbb4 @0x0
0x0bb4…0bc6 lno = 0x04b0 // 0xbb6 @0x2
0x0bb4…0bc6 at0004 = ╱a9╱ GET ╱ // 0xbb8 @0x4
0x0bb4…0bc6 at0005 = ╱42╱B╱ // 0xbb9 @0x5
0x0bb4…0bc6 at0006 = ╱30╱0╱ // 0xbba @0x6
0x0bb4…0bc6 at0007 = ╱ef╱$╱ // 0xbbb @0x7
0x0bb4…0bc6 at0008 = ╱ec╱,╱ // 0xbbc @0x8
0x0bb4…0bc6 at0009 = ╱49╱I╱ // 0xbbd @0x9
0x0bb4…0bc6 at000a = ╱f0╱:╱ // 0xbbe @0xa
0x0bb4…0bc6 at000b = ╱4a╱J╱ // 0xbbf @0xb
0x0bb4…0bc6 at000c = ╱31╱1╱ // 0xbc0 @0xc
0x0bb4…0bc6 at000d = ╱ec╱,╱ // 0xbc1 @0xd
0x0bb4…0bc6 at000e = ╱43╱C╱ // 0xbc2 @0xe
0x0bb4…0bc6 at000f = ╱31╱1╱ // 0xbc3 @0xf
0x0bb4…0bc6 at0010 = ╱ef╱$╱ // 0xbc4 @0x10
0x0bb4…0bc6 at0011 = EOL // 0xbc5 @0x11
0x0bb4…0bc6 }
0x0bc6…0bd7 992e 1210 EXEC FE(V,V,B0$)
0x0bc6…0bd7 LineComalBin {
0x0bc6…0bd7 ptr = 0x992e // 0xbc6 @0x0
0x0bc6…0bd7 lno = 0x04ba // 0xbc8 @0x2
0x0bc6…0bd7 at0004 = ╱9d╱ EXEC ╱ // 0xbca @0x4
0x0bc6…0bd7 at0005 = ╱46╱F╱ // 0xbcb @0x5
0x0bc6…0bd7 at0006 = ╱45╱E╱ // 0xbcc @0x6
0x0bc6…0bd7 at0007 = ╱ed╱(╱ // 0xbcd @0x7
0x0bc6…0bd7 at0008 = ╱56╱V╱ // 0xbce @0x8
0x0bc6…0bd7 at0009 = ╱ec╱,╱ // 0xbcf @0x9
0x0bc6…0bd7 at000a = ╱56╱V╱ // 0xbd0 @0xa
0x0bc6…0bd7 at000b = ╱ec╱,╱ // 0xbd1 @0xb
0x0bc6…0bd7 at000c = ╱42╱B╱ // 0xbd2 @0xc
0x0bc6…0bd7 at000d = ╱30╱0╱ // 0xbd3 @0xd
0x0bc6…0bd7 at000e = ╱ef╱$╱ // 0xbd4 @0xe
0x0bc6…0bd7 at000f = ╱ee╱)╱ // 0xbd5 @0xf
0x0bc6…0bd7 at0010 = EOL // 0xbd6 @0x10
0x0bc6…0bd7 }
0x0bd7…0be1 9938 1220 I=I+E
0x0bd7…0be1 LineComalBin {
0x0bd7…0be1 ptr = 0x9938 // 0xbd7 @0x0
0x0bd7…0be1 lno = 0x04c4 // 0xbd9 @0x2
0x0bd7…0be1 at0004 = ╱49╱I╱ // 0xbdb @0x4
0x0bd7…0be1 at0005 = ╱dc╱=╱ // 0xbdc @0x5
0x0bd7…0be1 at0006 = ╱49╱I╱ // 0xbdd @0x6
0x0bd7…0be1 at0007 = ╱e2╱+╱ // 0xbde @0x7
0x0bd7…0be1 at0008 = ╱45╱E╱ // 0xbdf @0x8
0x0bd7…0be1 at0009 = EOL // 0xbe0 @0x9
0x0bd7…0be1 }
0x0be1…0be7 993e 1230 ELSE
0x0be1…0be7 LineComalBin {
0x0be1…0be7 ptr = 0x993e // 0xbe1 @0x0
0x0be1…0be7 lno = 0x04ce // 0xbe3 @0x2
0x0be1…0be7 at0004 = ╱9a╱ ELSE ╱ // 0xbe5 @0x4
0x0be1…0be7 at0005 = EOL // 0xbe6 @0x5
0x0be1…0be7 }
0x0be7…0bfe 9955 1240 C1$=E2$(E:25)
0x0be7…0bfe LineComalBin {
0x0be7…0bfe ptr = 0x9955 // 0xbe7 @0x0
0x0be7…0bfe lno = 0x04d8 // 0xbe9 @0x2
0x0be7…0bfe at0004 = ╱43╱C╱ // 0xbeb @0x4
0x0be7…0bfe at0005 = ╱31╱1╱ // 0xbec @0x5
0x0be7…0bfe at0006 = ╱ef╱$╱ // 0xbed @0x6
0x0be7…0bfe at0007 = ╱dc╱=╱ // 0xbee @0x7
0x0be7…0bfe at0008 = ╱45╱E╱ // 0xbef @0x8
0x0be7…0bfe at0009 = ╱32╱2╱ // 0xbf0 @0x9
0x0be7…0bfe at000a = ╱ef╱$╱ // 0xbf1 @0xa
0x0be7…0bfe at000b = ╱ed╱(╱ // 0xbf2 @0xb
0x0be7…0bfe at000c = ╱45╱E╱ // 0xbf3 @0xc
0x0be7…0bfe at000d = ╱f0╱:╱ // 0xbf4 @0xd
0x0be7…0bfe at000e = ╱32╱2╱ // 0xbf5 @0xe
0x0be7…0bfe at000f = ╱35╱5╱ // 0xbf6 @0xf
0x0be7…0bfe at0010 = ╱fe0000c805╱ // 0xbf7 @0x10
0x0be7…0bfe at0015 = ╱ee╱)╱ // 0xbfc @0x15
0x0be7…0bfe at0016 = EOL // 0xbfd @0x16
0x0be7…0bfe }
0x0bfe…0c1f 9976 1250 IF J5>B THEN C1$(E:10)=C3$(J5)
0x0bfe…0c1f LineComalBin {
0x0bfe…0c1f ptr = 0x9976 // 0xbfe @0x0
0x0bfe…0c1f lno = 0x04e2 // 0xc00 @0x2
0x0bfe…0c1f at0004 = ╱82╱ IF ╱ // 0xc02 @0x4
0x0bfe…0c1f at0005 = ╱4a╱J╱ // 0xc03 @0x5
0x0bfe…0c1f at0006 = ╱35╱5╱ // 0xc04 @0x6
0x0bfe…0c1f at0007 = ╱de╱>╱ // 0xc05 @0x7
0x0bfe…0c1f at0008 = ╱42╱B╱ // 0xc06 @0x8
0x0bfe…0c1f at0009 = ╱b6╱ THEN ╱ // 0xc07 @0x9
0x0bfe…0c1f at000a = ╱43╱C╱ // 0xc08 @0xa
0x0bfe…0c1f at000b = ╱31╱1╱ // 0xc09 @0xb
0x0bfe…0c1f at000c = ╱ef╱$╱ // 0xc0a @0xc
0x0bfe…0c1f at000d = ╱ed╱(╱ // 0xc0b @0xd
0x0bfe…0c1f at000e = ╱45╱E╱ // 0xc0c @0xe
0x0bfe…0c1f at000f = ╱f0╱:╱ // 0xc0d @0xf
0x0bfe…0c1f at0010 = ╱31╱1╱ // 0xc0e @0x10
0x0bfe…0c1f at0011 = ╱30╱0╱ // 0xc0f @0x11
0x0bfe…0c1f at0012 = ╱fe0000a004╱ // 0xc10 @0x12
0x0bfe…0c1f at0017 = ╱ee╱)╱ // 0xc15 @0x17
0x0bfe…0c1f at0018 = ╱dc╱=╱ // 0xc16 @0x18
0x0bfe…0c1f at0019 = ╱43╱C╱ // 0xc17 @0x19
0x0bfe…0c1f at001a = ╱33╱3╱ // 0xc18 @0x1a
0x0bfe…0c1f at001b = ╱ef╱$╱ // 0xc19 @0x1b
0x0bfe…0c1f at001c = ╱ed╱(╱ // 0xc1a @0x1c
0x0bfe…0c1f at001d = ╱4a╱J╱ // 0xc1b @0x1d
0x0bfe…0c1f at001e = ╱35╱5╱ // 0xc1c @0x1e
0x0bfe…0c1f at001f = ╱ee╱)╱ // 0xc1d @0x1f
0x0bfe…0c1f at0020 = EOL // 0xc1e @0x20
0x0bfe…0c1f }
0x0c1f…0c25 997c 1260 ENDIF
0x0c1f…0c25 LineComalBin {
0x0c1f…0c25 ptr = 0x997c // 0xc1f @0x0
0x0c1f…0c25 lno = 0x04ec // 0xc21 @0x2
0x0c1f…0c25 at0004 = ╱9b╱ ENDIF ╱ // 0xc23 @0x4
0x0c1f…0c25 at0005 = EOL // 0xc24 @0x5
0x0c1f…0c25 }
0x0c25…0c30 9987 1270 IF J6=B THEN
0x0c25…0c30 LineComalBin {
0x0c25…0c30 ptr = 0x9987 // 0xc25 @0x0
0x0c25…0c30 lno = 0x04f6 // 0xc27 @0x2
0x0c25…0c30 at0004 = ╱9c╱ IF ╱ // 0xc29 @0x4
0x0c25…0c30 at0005 = ╱4a╱J╱ // 0xc2a @0x5
0x0c25…0c30 at0006 = ╱36╱6╱ // 0xc2b @0x6
0x0c25…0c30 at0007 = ╱dc╱=╱ // 0xc2c @0x7
0x0c25…0c30 at0008 = ╱42╱B╱ // 0xc2d @0x8
0x0c25…0c30 at0009 = ╱b6╱ THEN ╱ // 0xc2e @0x9
0x0c25…0c30 at000a = EOL // 0xc2f @0xa
0x0c25…0c30 }
0x0c30…0c47 999e 1280 EXEC CA(E,B6$,E0$,B6$)
0x0c30…0c47 LineComalBin {
0x0c30…0c47 ptr = 0x999e // 0xc30 @0x0
0x0c30…0c47 lno = 0x0500 // 0xc32 @0x2
0x0c30…0c47 at0004 = ╱9d╱ EXEC ╱ // 0xc34 @0x4
0x0c30…0c47 at0005 = ╱43╱C╱ // 0xc35 @0x5
0x0c30…0c47 at0006 = ╱41╱A╱ // 0xc36 @0x6
0x0c30…0c47 at0007 = ╱ed╱(╱ // 0xc37 @0x7
0x0c30…0c47 at0008 = ╱45╱E╱ // 0xc38 @0x8
0x0c30…0c47 at0009 = ╱ec╱,╱ // 0xc39 @0x9
0x0c30…0c47 at000a = ╱42╱B╱ // 0xc3a @0xa
0x0c30…0c47 at000b = ╱36╱6╱ // 0xc3b @0xb
0x0c30…0c47 at000c = ╱ef╱$╱ // 0xc3c @0xc
0x0c30…0c47 at000d = ╱ec╱,╱ // 0xc3d @0xd
0x0c30…0c47 at000e = ╱45╱E╱ // 0xc3e @0xe
0x0c30…0c47 at000f = ╱30╱0╱ // 0xc3f @0xf
0x0c30…0c47 at0010 = ╱ef╱$╱ // 0xc40 @0x10
0x0c30…0c47 at0011 = ╱ec╱,╱ // 0xc41 @0x11
0x0c30…0c47 at0012 = ╱42╱B╱ // 0xc42 @0x12
0x0c30…0c47 at0013 = ╱36╱6╱ // 0xc43 @0x13
0x0c30…0c47 at0014 = ╱ef╱$╱ // 0xc44 @0x14
0x0c30…0c47 at0015 = ╱ee╱)╱ // 0xc45 @0x15
0x0c30…0c47 at0016 = EOL // 0xc46 @0x16
0x0c30…0c47 }
0x0c47…0c6a 99c1 1290 GET B0$,I:J7,J2,J3,B8$,E1$,C0$,J8
0x0c47…0c6a LineComalBin {
0x0c47…0c6a ptr = 0x99c1 // 0xc47 @0x0
0x0c47…0c6a lno = 0x050a // 0xc49 @0x2
0x0c47…0c6a at0004 = ╱a9╱ GET ╱ // 0xc4b @0x4
0x0c47…0c6a at0005 = ╱42╱B╱ // 0xc4c @0x5
0x0c47…0c6a at0006 = ╱30╱0╱ // 0xc4d @0x6
0x0c47…0c6a at0007 = ╱ef╱$╱ // 0xc4e @0x7
0x0c47…0c6a at0008 = ╱ec╱,╱ // 0xc4f @0x8
0x0c47…0c6a at0009 = ╱49╱I╱ // 0xc50 @0x9
0x0c47…0c6a at000a = ╱f0╱:╱ // 0xc51 @0xa
0x0c47…0c6a at000b = ╱4a╱J╱ // 0xc52 @0xb
0x0c47…0c6a at000c = ╱37╱7╱ // 0xc53 @0xc
0x0c47…0c6a at000d = ╱ec╱,╱ // 0xc54 @0xd
0x0c47…0c6a at000e = ╱4a╱J╱ // 0xc55 @0xe
0x0c47…0c6a at000f = ╱32╱2╱ // 0xc56 @0xf
0x0c47…0c6a at0010 = ╱ec╱,╱ // 0xc57 @0x10
0x0c47…0c6a at0011 = ╱4a╱J╱ // 0xc58 @0x11
0x0c47…0c6a at0012 = ╱33╱3╱ // 0xc59 @0x12
0x0c47…0c6a at0013 = ╱ec╱,╱ // 0xc5a @0x13
0x0c47…0c6a at0014 = ╱42╱B╱ // 0xc5b @0x14
0x0c47…0c6a at0015 = ╱38╱8╱ // 0xc5c @0x15
0x0c47…0c6a at0016 = ╱ef╱$╱ // 0xc5d @0x16
0x0c47…0c6a at0017 = ╱ec╱,╱ // 0xc5e @0x17
0x0c47…0c6a at0018 = ╱45╱E╱ // 0xc5f @0x18
0x0c47…0c6a at0019 = ╱31╱1╱ // 0xc60 @0x19
0x0c47…0c6a at001a = ╱ef╱$╱ // 0xc61 @0x1a
0x0c47…0c6a at001b = ╱ec╱,╱ // 0xc62 @0x1b
0x0c47…0c6a at001c = ╱43╱C╱ // 0xc63 @0x1c
0x0c47…0c6a at001d = ╱30╱0╱ // 0xc64 @0x1d
0x0c47…0c6a at001e = ╱ef╱$╱ // 0xc65 @0x1e
0x0c47…0c6a at001f = ╱ec╱,╱ // 0xc66 @0x1f
0x0c47…0c6a at0020 = ╱4a╱J╱ // 0xc67 @0x20
0x0c47…0c6a at0021 = ╱38╱8╱ // 0xc68 @0x21
0x0c47…0c6a at0022 = EOL // 0xc69 @0x22
0x0c47…0c6a }
0x0c6a…0c80 99d7 1300 EXEC FE(V,4,B0$)
0x0c6a…0c80 LineComalBin {
0x0c6a…0c80 ptr = 0x99d7 // 0xc6a @0x0
0x0c6a…0c80 lno = 0x0514 // 0xc6c @0x2
0x0c6a…0c80 at0004 = ╱9d╱ EXEC ╱ // 0xc6e @0x4
0x0c6a…0c80 at0005 = ╱46╱F╱ // 0xc6f @0x5
0x0c6a…0c80 at0006 = ╱45╱E╱ // 0xc70 @0x6
0x0c6a…0c80 at0007 = ╱ed╱(╱ // 0xc71 @0x7
0x0c6a…0c80 at0008 = ╱56╱V╱ // 0xc72 @0x8
0x0c6a…0c80 at0009 = ╱ec╱,╱ // 0xc73 @0x9
0x0c6a…0c80 at000a = ╱34╱4╱ // 0xc74 @0xa
0x0c6a…0c80 at000b = ╱fe00008003╱ // 0xc75 @0xb
0x0c6a…0c80 at0010 = ╱ec╱,╱ // 0xc7a @0x10
0x0c6a…0c80 at0011 = ╱42╱B╱ // 0xc7b @0x11
0x0c6a…0c80 at0012 = ╱30╱0╱ // 0xc7c @0x12
0x0c6a…0c80 at0013 = ╱ef╱$╱ // 0xc7d @0x13
0x0c6a…0c80 at0014 = ╱ee╱)╱ // 0xc7e @0x14
0x0c6a…0c80 at0015 = EOL // 0xc7f @0x15
0x0c6a…0c80 }
0x0c80…0c8a 99e1 1310 I=I+E
0x0c80…0c8a LineComalBin {
0x0c80…0c8a ptr = 0x99e1 // 0xc80 @0x0
0x0c80…0c8a lno = 0x051e // 0xc82 @0x2
0x0c80…0c8a at0004 = ╱49╱I╱ // 0xc84 @0x4
0x0c80…0c8a at0005 = ╱dc╱=╱ // 0xc85 @0x5
0x0c80…0c8a at0006 = ╱49╱I╱ // 0xc86 @0x6
0x0c80…0c8a at0007 = ╱e2╱+╱ // 0xc87 @0x7
0x0c80…0c8a at0008 = ╱45╱E╱ // 0xc88 @0x8
0x0c80…0c8a at0009 = EOL // 0xc89 @0x9
0x0c80…0c8a }
0x0c8a…0c9a 99f1 1320 IF J5>W THEN I=I+E
0x0c8a…0c9a LineComalBin {
0x0c8a…0c9a ptr = 0x99f1 // 0xc8a @0x0
0x0c8a…0c9a lno = 0x0528 // 0xc8c @0x2
0x0c8a…0c9a at0004 = ╱82╱ IF ╱ // 0xc8e @0x4
0x0c8a…0c9a at0005 = ╱4a╱J╱ // 0xc8f @0x5
0x0c8a…0c9a at0006 = ╱35╱5╱ // 0xc90 @0x6
0x0c8a…0c9a at0007 = ╱de╱>╱ // 0xc91 @0x7
0x0c8a…0c9a at0008 = ╱57╱W╱ // 0xc92 @0x8
0x0c8a…0c9a at0009 = ╱b6╱ THEN ╱ // 0xc93 @0x9
0x0c8a…0c9a at000a = ╱49╱I╱ // 0xc94 @0xa
0x0c8a…0c9a at000b = ╱dc╱=╱ // 0xc95 @0xb
0x0c8a…0c9a at000c = ╱49╱I╱ // 0xc96 @0xc
0x0c8a…0c9a at000d = ╱e2╱+╱ // 0xc97 @0xd
0x0c8a…0c9a at000e = ╱45╱E╱ // 0xc98 @0xe
0x0c8a…0c9a at000f = EOL // 0xc99 @0xf
0x0c8a…0c9a }
0x0c9a…0ca0 99f7 1330 ELSE
0x0c9a…0ca0 LineComalBin {
0x0c9a…0ca0 ptr = 0x99f7 // 0xc9a @0x0
0x0c9a…0ca0 lno = 0x0532 // 0xc9c @0x2
0x0c9a…0ca0 at0004 = ╱9a╱ ELSE ╱ // 0xc9e @0x4
0x0c9a…0ca0 at0005 = EOL // 0xc9f @0x5
0x0c9a…0ca0 }
0x0ca0…0cb6 9a0d 1340 IF E0$(LEN(E0$))="-" THEN
0x0ca0…0cb6 LineComalBin {
0x0ca0…0cb6 ptr = 0x9a0d // 0xca0 @0x0
0x0ca0…0cb6 lno = 0x053c // 0xca2 @0x2
0x0ca0…0cb6 at0004 = ╱9c╱ IF ╱ // 0xca4 @0x4
0x0ca0…0cb6 at0005 = ╱45╱E╱ // 0xca5 @0x5
0x0ca0…0cb6 at0006 = ╱30╱0╱ // 0xca6 @0x6
0x0ca0…0cb6 at0007 = ╱ef╱$╱ // 0xca7 @0x7
0x0ca0…0cb6 at0008 = ╱ed╱(╱ // 0xca8 @0x8
0x0ca0…0cb6 at0009 = ╱cc╱LEN╱ // 0xca9 @0x9
0x0ca0…0cb6 at000a = ╱ed╱(╱ // 0xcaa @0xa
0x0ca0…0cb6 at000b = ╱45╱E╱ // 0xcab @0xb
0x0ca0…0cb6 at000c = ╱30╱0╱ // 0xcac @0xc
0x0ca0…0cb6 at000d = ╱ef╱$╱ // 0xcad @0xd
0x0ca0…0cb6 at000e = ╱ee╱)╱ // 0xcae @0xe
0x0ca0…0cb6 at000f = ╱ee╱)╱ // 0xcaf @0xf
0x0ca0…0cb6 at0010 = ╱dc╱=╱ // 0xcb0 @0x10
0x0ca0…0cb6 at0011 = ╱22╱"╱ // 0xcb1 @0x11
0x0ca0…0cb6 at0012 = ╱2d╱-╱ // 0xcb2 @0x12
0x0ca0…0cb6 at0013 = ╱22╱"╱ // 0xcb3 @0x13
0x0ca0…0cb6 at0014 = ╱b6╱ THEN ╱ // 0xcb4 @0x14
0x0ca0…0cb6 at0015 = EOL // 0xcb5 @0x15
0x0ca0…0cb6 }
0x0cb6…0ce5 9a3c 1350 J7=J1;J1=100000;J8=J4;J4=1000000
0x0cb6…0ce5 LineComalBin {
0x0cb6…0ce5 ptr = 0x9a3c // 0xcb6 @0x0
0x0cb6…0ce5 lno = 0x0546 // 0xcb8 @0x2
0x0cb6…0ce5 at0004 = ╱4a╱J╱ // 0xcba @0x4
0x0cb6…0ce5 at0005 = ╱37╱7╱ // 0xcbb @0x5
0x0cb6…0ce5 at0006 = ╱dc╱=╱ // 0xcbc @0x6
0x0cb6…0ce5 at0007 = ╱4a╱J╱ // 0xcbd @0x7
0x0cb6…0ce5 at0008 = ╱31╱1╱ // 0xcbe @0x8
0x0cb6…0ce5 at0009 = ╱eb╱;╱ // 0xcbf @0x9
0x0cb6…0ce5 at000a = ╱4a╱J╱ // 0xcc0 @0xa
0x0cb6…0ce5 at000b = ╱31╱1╱ // 0xcc1 @0xb
0x0cb6…0ce5 at000c = ╱dc╱=╱ // 0xcc2 @0xc
0x0cb6…0ce5 at000d = ╱31╱1╱ // 0xcc3 @0xd
0x0cb6…0ce5 at000e = ╱30╱0╱ // 0xcc4 @0xe
0x0cb6…0ce5 at000f = ╱30╱0╱ // 0xcc5 @0xf
0x0cb6…0ce5 at0010 = ╱30╱0╱ // 0xcc6 @0x10
0x0cb6…0ce5 at0011 = ╱30╱0╱ // 0xcc7 @0x11
0x0cb6…0ce5 at0012 = ╱30╱0╱ // 0xcc8 @0x12
0x0cb6…0ce5 at0013 = ╱fe0050c311╱ // 0xcc9 @0x13
0x0cb6…0ce5 at0018 = ╱eb╱;╱ // 0xcce @0x18
0x0cb6…0ce5 at0019 = ╱4a╱J╱ // 0xccf @0x19
0x0cb6…0ce5 at001a = ╱38╱8╱ // 0xcd0 @0x1a
0x0cb6…0ce5 at001b = ╱dc╱=╱ // 0xcd1 @0x1b
0x0cb6…0ce5 at001c = ╱4a╱J╱ // 0xcd2 @0x1c
0x0cb6…0ce5 at001d = ╱34╱4╱ // 0xcd3 @0x1d
0x0cb6…0ce5 at001e = ╱eb╱;╱ // 0xcd4 @0x1e
0x0cb6…0ce5 at001f = ╱4a╱J╱ // 0xcd5 @0x1f
0x0cb6…0ce5 at0020 = ╱34╱4╱ // 0xcd6 @0x20
0x0cb6…0ce5 at0021 = ╱dc╱=╱ // 0xcd7 @0x21
0x0cb6…0ce5 at0022 = ╱31╱1╱ // 0xcd8 @0x22
0x0cb6…0ce5 at0023 = ╱30╱0╱ // 0xcd9 @0x23
0x0cb6…0ce5 at0024 = ╱30╱0╱ // 0xcda @0x24
0x0cb6…0ce5 at0025 = ╱30╱0╱ // 0xcdb @0x25
0x0cb6…0ce5 at0026 = ╱30╱0╱ // 0xcdc @0x26
0x0cb6…0ce5 at0027 = ╱30╱0╱ // 0xcdd @0x27
0x0cb6…0ce5 at0028 = ╱30╱0╱ // 0xcde @0x28
0x0cb6…0ce5 at0029 = ╱fe0024f414╱ // 0xcdf @0x29
0x0cb6…0ce5 at002e = EOL // 0xce4 @0x2e
0x0cb6…0ce5 }
0x0ce5…0ceb 9a42 1360 ELSE
0x0ce5…0ceb LineComalBin {
0x0ce5…0ceb ptr = 0x9a42 // 0xce5 @0x0
0x0ce5…0ceb lno = 0x0550 // 0xce7 @0x2
0x0ce5…0ceb at0004 = ╱9a╱ ELSE ╱ // 0xce9 @0x4
0x0ce5…0ceb at0005 = EOL // 0xcea @0x5
0x0ce5…0ceb }
0x0ceb…0d0e 9a65 1370 J7=100000;J8=1000000
0x0ceb…0d0e LineComalBin {
0x0ceb…0d0e ptr = 0x9a65 // 0xceb @0x0
0x0ceb…0d0e lno = 0x055a // 0xced @0x2
0x0ceb…0d0e at0004 = ╱4a╱J╱ // 0xcef @0x4
0x0ceb…0d0e at0005 = ╱37╱7╱ // 0xcf0 @0x5
0x0ceb…0d0e at0006 = ╱dc╱=╱ // 0xcf1 @0x6
0x0ceb…0d0e at0007 = ╱31╱1╱ // 0xcf2 @0x7
0x0ceb…0d0e at0008 = ╱30╱0╱ // 0xcf3 @0x8
0x0ceb…0d0e at0009 = ╱30╱0╱ // 0xcf4 @0x9
0x0ceb…0d0e at000a = ╱30╱0╱ // 0xcf5 @0xa
0x0ceb…0d0e at000b = ╱30╱0╱ // 0xcf6 @0xb
0x0ceb…0d0e at000c = ╱30╱0╱ // 0xcf7 @0xc
0x0ceb…0d0e at000d = ╱fe0050c311╱ // 0xcf8 @0xd
0x0ceb…0d0e at0012 = ╱eb╱;╱ // 0xcfd @0x12
0x0ceb…0d0e at0013 = ╱4a╱J╱ // 0xcfe @0x13
0x0ceb…0d0e at0014 = ╱38╱8╱ // 0xcff @0x14
0x0ceb…0d0e at0015 = ╱dc╱=╱ // 0xd00 @0x15
0x0ceb…0d0e at0016 = ╱31╱1╱ // 0xd01 @0x16
0x0ceb…0d0e at0017 = ╱30╱0╱ // 0xd02 @0x17
0x0ceb…0d0e at0018 = ╱30╱0╱ // 0xd03 @0x18
0x0ceb…0d0e at0019 = ╱30╱0╱ // 0xd04 @0x19
0x0ceb…0d0e at001a = ╱30╱0╱ // 0xd05 @0x1a
0x0ceb…0d0e at001b = ╱30╱0╱ // 0xd06 @0x1b
0x0ceb…0d0e at001c = ╱30╱0╱ // 0xd07 @0x1c
0x0ceb…0d0e at001d = ╱fe0024f414╱ // 0xd08 @0x1d
0x0ceb…0d0e at0022 = EOL // 0xd0d @0x22
0x0ceb…0d0e }
0x0d0e…0d14 9a6b 1380 ENDIF
0x0d0e…0d14 LineComalBin {
0x0d0e…0d14 ptr = 0x9a6b // 0xd0e @0x0
0x0d0e…0d14 lno = 0x0564 // 0xd10 @0x2
0x0d0e…0d14 at0004 = ╱9b╱ ENDIF ╱ // 0xd12 @0x4
0x0d0e…0d14 at0005 = EOL // 0xd13 @0x5
0x0d0e…0d14 }
0x0d14…0d1a 9a71 1390 ENDIF
0x0d14…0d1a LineComalBin {
0x0d14…0d1a ptr = 0x9a71 // 0xd14 @0x0
0x0d14…0d1a lno = 0x056e // 0xd16 @0x2
0x0d14…0d1a at0004 = ╱9b╱ ENDIF ╱ // 0xd18 @0x4
0x0d14…0d1a at0005 = EOL // 0xd19 @0x5
0x0d14…0d1a }
0x0d1a…0d31 9a88 1400 EXEC CA(B,B6$,E0$,B6$)
0x0d1a…0d31 LineComalBin {
0x0d1a…0d31 ptr = 0x9a88 // 0xd1a @0x0
0x0d1a…0d31 lno = 0x0578 // 0xd1c @0x2
0x0d1a…0d31 at0004 = ╱9d╱ EXEC ╱ // 0xd1e @0x4
0x0d1a…0d31 at0005 = ╱43╱C╱ // 0xd1f @0x5
0x0d1a…0d31 at0006 = ╱41╱A╱ // 0xd20 @0x6
0x0d1a…0d31 at0007 = ╱ed╱(╱ // 0xd21 @0x7
0x0d1a…0d31 at0008 = ╱42╱B╱ // 0xd22 @0x8
0x0d1a…0d31 at0009 = ╱ec╱,╱ // 0xd23 @0x9
0x0d1a…0d31 at000a = ╱42╱B╱ // 0xd24 @0xa
0x0d1a…0d31 at000b = ╱36╱6╱ // 0xd25 @0xb
0x0d1a…0d31 at000c = ╱ef╱$╱ // 0xd26 @0xc
0x0d1a…0d31 at000d = ╱ec╱,╱ // 0xd27 @0xd
0x0d1a…0d31 at000e = ╱45╱E╱ // 0xd28 @0xe
0x0d1a…0d31 at000f = ╱30╱0╱ // 0xd29 @0xf
0x0d1a…0d31 at0010 = ╱ef╱$╱ // 0xd2a @0x10
0x0d1a…0d31 at0011 = ╱ec╱,╱ // 0xd2b @0x11
0x0d1a…0d31 at0012 = ╱42╱B╱ // 0xd2c @0x12
0x0d1a…0d31 at0013 = ╱36╱6╱ // 0xd2d @0x13
0x0d1a…0d31 at0014 = ╱ef╱$╱ // 0xd2e @0x14
0x0d1a…0d31 at0015 = ╱ee╱)╱ // 0xd2f @0x15
0x0d1a…0d31 at0016 = EOL // 0xd30 @0x16
0x0d1a…0d31 }
0x0d31…0d46 9a9d 1410 PRINT USING "####### ":J3;
0x0d31…0d46 LineComalBin {
0x0d31…0d46 ptr = 0x9a9d // 0xd31 @0x0
0x0d31…0d46 lno = 0x0582 // 0xd33 @0x2
0x0d31…0d46 at0004 = ╱92╱ PRINT ╱ // 0xd35 @0x4
0x0d31…0d46 at0005 = ╱b9╱ USING ╱ // 0xd36 @0x5
0x0d31…0d46 at0006 = ╱22╱"╱ // 0xd37 @0x6
0x0d31…0d46 at0007 = ╱23╱#╱ // 0xd38 @0x7
0x0d31…0d46 at0008 = ╱23╱#╱ // 0xd39 @0x8
0x0d31…0d46 at0009 = ╱23╱#╱ // 0xd3a @0x9
0x0d31…0d46 at000a = ╱23╱#╱ // 0xd3b @0xa
0x0d31…0d46 at000b = ╱23╱#╱ // 0xd3c @0xb
0x0d31…0d46 at000c = ╱23╱#╱ // 0xd3d @0xc
0x0d31…0d46 at000d = ╱23╱#╱ // 0xd3e @0xd
0x0d31…0d46 at000e = ╱20╱…╱ // 0xd3f @0xe
0x0d31…0d46 at000f = ╱22╱"╱ // 0xd40 @0xf
0x0d31…0d46 at0010 = ╱f0╱:╱ // 0xd41 @0x10
0x0d31…0d46 at0011 = ╱4a╱J╱ // 0xd42 @0x11
0x0d31…0d46 at0012 = ╱33╱3╱ // 0xd43 @0x12
0x0d31…0d46 at0013 = ╱eb╱;╱ // 0xd44 @0x13
0x0d31…0d46 at0014 = EOL // 0xd45 @0x14
0x0d31…0d46 }
0x0d46…0d5b 9ab2 1420 PRINT C1$;TAB(38);
0x0d46…0d5b LineComalBin {
0x0d46…0d5b ptr = 0x9ab2 // 0xd46 @0x0
0x0d46…0d5b lno = 0x058c // 0xd48 @0x2
0x0d46…0d5b at0004 = ╱92╱ PRINT ╱ // 0xd4a @0x4
0x0d46…0d5b at0005 = ╱43╱C╱ // 0xd4b @0x5
0x0d46…0d5b at0006 = ╱31╱1╱ // 0xd4c @0x6
0x0d46…0d5b at0007 = ╱ef╱$╱ // 0xd4d @0x7
0x0d46…0d5b at0008 = ╱eb╱;╱ // 0xd4e @0x8
0x0d46…0d5b at0009 = ╱d2╱TAB╱ // 0xd4f @0x9
0x0d46…0d5b at000a = ╱ed╱(╱ // 0xd50 @0xa
0x0d46…0d5b at000b = ╱33╱3╱ // 0xd51 @0xb
0x0d46…0d5b at000c = ╱38╱8╱ // 0xd52 @0xc
0x0d46…0d5b at000d = ╱fe00009806╱ // 0xd53 @0xd
0x0d46…0d5b at0012 = ╱ee╱)╱ // 0xd58 @0x12
0x0d46…0d5b at0013 = ╱eb╱;╱ // 0xd59 @0x13
0x0d46…0d5b at0014 = EOL // 0xd5a @0x14
0x0d46…0d5b }
0x0d5b…0d79 9ad0 1430 PRINT USING "###### ###### ":J1,J4;
0x0d5b…0d79 LineComalBin {
0x0d5b…0d79 ptr = 0x9ad0 // 0xd5b @0x0
0x0d5b…0d79 lno = 0x0596 // 0xd5d @0x2
0x0d5b…0d79 at0004 = ╱92╱ PRINT ╱ // 0xd5f @0x4
0x0d5b…0d79 at0005 = ╱b9╱ USING ╱ // 0xd60 @0x5
0x0d5b…0d79 at0006 = ╱22╱"╱ // 0xd61 @0x6
0x0d5b…0d79 at0007 = ╱23╱#╱ // 0xd62 @0x7
0x0d5b…0d79 at0008 = ╱23╱#╱ // 0xd63 @0x8
0x0d5b…0d79 at0009 = ╱23╱#╱ // 0xd64 @0x9
0x0d5b…0d79 at000a = ╱23╱#╱ // 0xd65 @0xa
0x0d5b…0d79 at000b = ╱23╱#╱ // 0xd66 @0xb
0x0d5b…0d79 at000c = ╱23╱#╱ // 0xd67 @0xc
0x0d5b…0d79 at000d = ╱20╱…╱ // 0xd68 @0xd
0x0d5b…0d79 at000e = ╱23╱#╱ // 0xd69 @0xe
0x0d5b…0d79 at000f = ╱23╱#╱ // 0xd6a @0xf
0x0d5b…0d79 at0010 = ╱23╱#╱ // 0xd6b @0x10
0x0d5b…0d79 at0011 = ╱23╱#╱ // 0xd6c @0x11
0x0d5b…0d79 at0012 = ╱23╱#╱ // 0xd6d @0x12
0x0d5b…0d79 at0013 = ╱23╱#╱ // 0xd6e @0x13
0x0d5b…0d79 at0014 = ╱20╱…╱ // 0xd6f @0x14
0x0d5b…0d79 at0015 = ╱22╱"╱ // 0xd70 @0x15
0x0d5b…0d79 at0016 = ╱f0╱:╱ // 0xd71 @0x16
0x0d5b…0d79 at0017 = ╱4a╱J╱ // 0xd72 @0x17
0x0d5b…0d79 at0018 = ╱31╱1╱ // 0xd73 @0x18
0x0d5b…0d79 at0019 = ╱ec╱,╱ // 0xd74 @0x19
0x0d5b…0d79 at001a = ╱4a╱J╱ // 0xd75 @0x1a
0x0d5b…0d79 at001b = ╱34╱4╱ // 0xd76 @0x1b
0x0d5b…0d79 at001c = ╱eb╱;╱ // 0xd77 @0x1c
0x0d5b…0d79 at001d = EOL // 0xd78 @0x1d
0x0d5b…0d79 }
0x0d79…0d8f 9ae6 1440 EXEC TUD(E0$,C4$,B,B)
0x0d79…0d8f LineComalBin {
0x0d79…0d8f ptr = 0x9ae6 // 0xd79 @0x0
0x0d79…0d8f lno = 0x05a0 // 0xd7b @0x2
0x0d79…0d8f at0004 = ╱9d╱ EXEC ╱ // 0xd7d @0x4
0x0d79…0d8f at0005 = ╱54╱T╱ // 0xd7e @0x5
0x0d79…0d8f at0006 = ╱55╱U╱ // 0xd7f @0x6
0x0d79…0d8f at0007 = ╱44╱D╱ // 0xd80 @0x7
0x0d79…0d8f at0008 = ╱ed╱(╱ // 0xd81 @0x8
0x0d79…0d8f at0009 = ╱45╱E╱ // 0xd82 @0x9
0x0d79…0d8f at000a = ╱30╱0╱ // 0xd83 @0xa
0x0d79…0d8f at000b = ╱ef╱$╱ // 0xd84 @0xb
0x0d79…0d8f at000c = ╱ec╱,╱ // 0xd85 @0xc
0x0d79…0d8f at000d = ╱43╱C╱ // 0xd86 @0xd
0x0d79…0d8f at000e = ╱34╱4╱ // 0xd87 @0xe
0x0d79…0d8f at000f = ╱ef╱$╱ // 0xd88 @0xf
0x0d79…0d8f at0010 = ╱ec╱,╱ // 0xd89 @0x10
0x0d79…0d8f at0011 = ╱42╱B╱ // 0xd8a @0x11
0x0d79…0d8f at0012 = ╱ec╱,╱ // 0xd8b @0x12
0x0d79…0d8f at0013 = ╱42╱B╱ // 0xd8c @0x13
0x0d79…0d8f at0014 = ╱ee╱)╱ // 0xd8d @0x14
0x0d79…0d8f at0015 = EOL // 0xd8e @0x15
0x0d79…0d8f }
0x0d8f…0d99 9af0 1450 PRINT C4$;
0x0d8f…0d99 LineComalBin {
0x0d8f…0d99 ptr = 0x9af0 // 0xd8f @0x0
0x0d8f…0d99 lno = 0x05aa // 0xd91 @0x2
0x0d8f…0d99 at0004 = ╱92╱ PRINT ╱ // 0xd93 @0x4
0x0d8f…0d99 at0005 = ╱43╱C╱ // 0xd94 @0x5
0x0d8f…0d99 at0006 = ╱34╱4╱ // 0xd95 @0x6
0x0d8f…0d99 at0007 = ╱ef╱$╱ // 0xd96 @0x7
0x0d8f…0d99 at0008 = ╱eb╱;╱ // 0xd97 @0x8
0x0d8f…0d99 at0009 = EOL // 0xd98 @0x9
0x0d8f…0d99 }
0x0d99…0db6 9b0d 1460 PRINT USING " ###### ######":J7,J8
0x0d99…0db6 LineComalBin {
0x0d99…0db6 ptr = 0x9b0d // 0xd99 @0x0
0x0d99…0db6 lno = 0x05b4 // 0xd9b @0x2
0x0d99…0db6 at0004 = ╱92╱ PRINT ╱ // 0xd9d @0x4
0x0d99…0db6 at0005 = ╱b9╱ USING ╱ // 0xd9e @0x5
0x0d99…0db6 at0006 = ╱22╱"╱ // 0xd9f @0x6
0x0d99…0db6 at0007 = ╱20╱…╱ // 0xda0 @0x7
0x0d99…0db6 at0008 = ╱23╱#╱ // 0xda1 @0x8
0x0d99…0db6 at0009 = ╱23╱#╱ // 0xda2 @0x9
0x0d99…0db6 at000a = ╱23╱#╱ // 0xda3 @0xa
0x0d99…0db6 at000b = ╱23╱#╱ // 0xda4 @0xb
0x0d99…0db6 at000c = ╱23╱#╱ // 0xda5 @0xc
0x0d99…0db6 at000d = ╱23╱#╱ // 0xda6 @0xd
0x0d99…0db6 at000e = ╱20╱…╱ // 0xda7 @0xe
0x0d99…0db6 at000f = ╱23╱#╱ // 0xda8 @0xf
0x0d99…0db6 at0010 = ╱23╱#╱ // 0xda9 @0x10
0x0d99…0db6 at0011 = ╱23╱#╱ // 0xdaa @0x11
0x0d99…0db6 at0012 = ╱23╱#╱ // 0xdab @0x12
0x0d99…0db6 at0013 = ╱23╱#╱ // 0xdac @0x13
0x0d99…0db6 at0014 = ╱23╱#╱ // 0xdad @0x14
0x0d99…0db6 at0015 = ╱22╱"╱ // 0xdae @0x15
0x0d99…0db6 at0016 = ╱f0╱:╱ // 0xdaf @0x16
0x0d99…0db6 at0017 = ╱4a╱J╱ // 0xdb0 @0x17
0x0d99…0db6 at0018 = ╱37╱7╱ // 0xdb1 @0x18
0x0d99…0db6 at0019 = ╱ec╱,╱ // 0xdb2 @0x19
0x0d99…0db6 at001a = ╱4a╱J╱ // 0xdb3 @0x1a
0x0d99…0db6 at001b = ╱38╱8╱ // 0xdb4 @0x1b
0x0d99…0db6 at001c = EOL // 0xdb5 @0x1c
0x0d99…0db6 }
0x0db6…0dc2 9b19 1470 J0=J0+E
0x0db6…0dc2 LineComalBin {
0x0db6…0dc2 ptr = 0x9b19 // 0xdb6 @0x0
0x0db6…0dc2 lno = 0x05be // 0xdb8 @0x2
0x0db6…0dc2 at0004 = ╱4a╱J╱ // 0xdba @0x4
0x0db6…0dc2 at0005 = ╱30╱0╱ // 0xdbb @0x5
0x0db6…0dc2 at0006 = ╱dc╱=╱ // 0xdbc @0x6
0x0db6…0dc2 at0007 = ╱4a╱J╱ // 0xdbd @0x7
0x0db6…0dc2 at0008 = ╱30╱0╱ // 0xdbe @0x8
0x0db6…0dc2 at0009 = ╱e2╱+╱ // 0xdbf @0x9
0x0db6…0dc2 at000a = ╱45╱E╱ // 0xdc0 @0xa
0x0db6…0dc2 at000b = EOL // 0xdc1 @0xb
0x0db6…0dc2 }
0x0dc2…0dd7 9b2e 1480 UNTIL J0=37 OR I=I8
0x0dc2…0dd7 LineComalBin {
0x0dc2…0dd7 ptr = 0x9b2e // 0xdc2 @0x0
0x0dc2…0dd7 lno = 0x05c8 // 0xdc4 @0x2
0x0dc2…0dd7 at0004 = ╱98╱ UNTIL ╱ // 0xdc6 @0x4
0x0dc2…0dd7 at0005 = ╱4a╱J╱ // 0xdc7 @0x5
0x0dc2…0dd7 at0006 = ╱30╱0╱ // 0xdc8 @0x6
0x0dc2…0dd7 at0007 = ╱dc╱=╱ // 0xdc9 @0x7
0x0dc2…0dd7 at0008 = ╱33╱3╱ // 0xdca @0x8
0x0dc2…0dd7 at0009 = ╱37╱7╱ // 0xdcb @0x9
0x0dc2…0dd7 at000a = ╱fe00009406╱ // 0xdcc @0xa
0x0dc2…0dd7 at000f = ╱db╱ OR ╱ // 0xdd1 @0xf
0x0dc2…0dd7 at0010 = ╱49╱I╱ // 0xdd2 @0x10
0x0dc2…0dd7 at0011 = ╱dc╱=╱ // 0xdd3 @0x11
0x0dc2…0dd7 at0012 = ╱49╱I╱ // 0xdd4 @0x12
0x0dc2…0dd7 at0013 = ╱38╱8╱ // 0xdd5 @0x13
0x0dc2…0dd7 at0014 = EOL // 0xdd6 @0x14
0x0dc2…0dd7 }
0x0dd7…0ded 9b44 1490 IF J0=37 AND I<>I8 THEN
0x0dd7…0ded LineComalBin {
0x0dd7…0ded ptr = 0x9b44 // 0xdd7 @0x0
0x0dd7…0ded lno = 0x05d2 // 0xdd9 @0x2
0x0dd7…0ded at0004 = ╱9c╱ IF ╱ // 0xddb @0x4
0x0dd7…0ded at0005 = ╱4a╱J╱ // 0xddc @0x5
0x0dd7…0ded at0006 = ╱30╱0╱ // 0xddd @0x6
0x0dd7…0ded at0007 = ╱dc╱=╱ // 0xdde @0x7
0x0dd7…0ded at0008 = ╱33╱3╱ // 0xddf @0x8
0x0dd7…0ded at0009 = ╱37╱7╱ // 0xde0 @0x9
0x0dd7…0ded at000a = ╱fe00009406╱ // 0xde1 @0xa
0x0dd7…0ded at000f = ╱da╱ AND ╱ // 0xde6 @0xf
0x0dd7…0ded at0010 = ╱49╱I╱ // 0xde7 @0x10
0x0dd7…0ded at0011 = ╱e1╱<>╱ // 0xde8 @0x11
0x0dd7…0ded at0012 = ╱49╱I╱ // 0xde9 @0x12
0x0dd7…0ded at0013 = ╱38╱8╱ // 0xdea @0x13
0x0dd7…0ded at0014 = ╱b6╱ THEN ╱ // 0xdeb @0x14
0x0dd7…0ded at0015 = EOL // 0xdec @0x15
0x0dd7…0ded }
0x0ded…0e29 9b80 1500 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x0ded…0e29 LineComalBin {
0x0ded…0e29 ptr = 0x9b80 // 0xded @0x0
0x0ded…0e29 lno = 0x05dc // 0xdef @0x2
0x0ded…0e29 at0004 = ╱92╱ PRINT ╱ // 0xdf1 @0x4
0x0ded…0e29 at0005 = ╱cf╱CHR╱ // 0xdf2 @0x5
0x0ded…0e29 at0006 = ╱ed╱(╱ // 0xdf3 @0x6
0x0ded…0e29 at0007 = ╱31╱1╱ // 0xdf4 @0x7
0x0ded…0e29 at0008 = ╱30╱0╱ // 0xdf5 @0x8
0x0ded…0e29 at0009 = ╱fe0000a004╱ // 0xdf6 @0x9
0x0ded…0e29 at000e = ╱ee╱)╱ // 0xdfb @0xe
0x0ded…0e29 at000f = ╱eb╱;╱ // 0xdfc @0xf
0x0ded…0e29 at0010 = ╱cf╱CHR╱ // 0xdfd @0x10
0x0ded…0e29 at0011 = ╱ed╱(╱ // 0xdfe @0x11
0x0ded…0e29 at0012 = ╱31╱1╱ // 0xdff @0x12
0x0ded…0e29 at0013 = ╱30╱0╱ // 0xe00 @0x13
0x0ded…0e29 at0014 = ╱fe0000a004╱ // 0xe01 @0x14
0x0ded…0e29 at0019 = ╱ee╱)╱ // 0xe06 @0x19
0x0ded…0e29 at001a = ╱eb╱;╱ // 0xe07 @0x1a
0x0ded…0e29 at001b = ╱cf╱CHR╱ // 0xe08 @0x1b
0x0ded…0e29 at001c = ╱ed╱(╱ // 0xe09 @0x1c
0x0ded…0e29 at001d = ╱31╱1╱ // 0xe0a @0x1d
0x0ded…0e29 at001e = ╱30╱0╱ // 0xe0b @0x1e
0x0ded…0e29 at001f = ╱fe0000a004╱ // 0xe0c @0x1f
0x0ded…0e29 at0024 = ╱ee╱)╱ // 0xe11 @0x24
0x0ded…0e29 at0025 = ╱eb╱;╱ // 0xe12 @0x25
0x0ded…0e29 at0026 = ╱cf╱CHR╱ // 0xe13 @0x26
0x0ded…0e29 at0027 = ╱ed╱(╱ // 0xe14 @0x27
0x0ded…0e29 at0028 = ╱31╱1╱ // 0xe15 @0x28
0x0ded…0e29 at0029 = ╱30╱0╱ // 0xe16 @0x29
0x0ded…0e29 at002a = ╱fe0000a004╱ // 0xe17 @0x2a
0x0ded…0e29 at002f = ╱ee╱)╱ // 0xe1c @0x2f
0x0ded…0e29 at0030 = ╱eb╱;╱ // 0xe1d @0x30
0x0ded…0e29 at0031 = ╱cf╱CHR╱ // 0xe1e @0x31
0x0ded…0e29 at0032 = ╱ed╱(╱ // 0xe1f @0x32
0x0ded…0e29 at0033 = ╱31╱1╱ // 0xe20 @0x33
0x0ded…0e29 at0034 = ╱30╱0╱ // 0xe21 @0x34
0x0ded…0e29 at0035 = ╱fe0000a004╱ // 0xe22 @0x35
0x0ded…0e29 at003a = ╱ee╱)╱ // 0xe27 @0x3a
0x0ded…0e29 at003b = EOL // 0xe28 @0x3b
0x0ded…0e29 }
0x0e29…0e2f 9b86 1510 ELSE
0x0e29…0e2f LineComalBin {
0x0e29…0e2f ptr = 0x9b86 // 0xe29 @0x0
0x0e29…0e2f lno = 0x05e6 // 0xe2b @0x2
0x0e29…0e2f at0004 = ╱9a╱ ELSE ╱ // 0xe2d @0x4
0x0e29…0e2f at0005 = EOL // 0xe2e @0x5
0x0e29…0e2f }
0x0e2f…0e42 9b99 1520 FOR J0=J0 TO 38
0x0e2f…0e42 LineComalBin {
0x0e2f…0e42 ptr = 0x9b99 // 0xe2f @0x0
0x0e2f…0e42 lno = 0x05f0 // 0xe31 @0x2
0x0e2f…0e42 at0004 = ╱83╱ FOR ╱ // 0xe33 @0x4
0x0e2f…0e42 at0005 = ╱4a╱J╱ // 0xe34 @0x5
0x0e2f…0e42 at0006 = ╱30╱0╱ // 0xe35 @0x6
0x0e2f…0e42 at0007 = ╱dc╱=╱ // 0xe36 @0x7
0x0e2f…0e42 at0008 = ╱4a╱J╱ // 0xe37 @0x8
0x0e2f…0e42 at0009 = ╱30╱0╱ // 0xe38 @0x9
0x0e2f…0e42 at000a = ╱b7╱ TO ╱ // 0xe39 @0xa
0x0e2f…0e42 at000b = ╱33╱3╱ // 0xe3a @0xb
0x0e2f…0e42 at000c = ╱38╱8╱ // 0xe3b @0xc
0x0e2f…0e42 at000d = ╱fe00009806╱ // 0xe3c @0xd
0x0e2f…0e42 at0012 = EOL // 0xe41 @0x12
0x0e2f…0e42 }
0x0e42…0e4b 9ba2 1530 PRINT " "
0x0e42…0e4b LineComalBin {
0x0e42…0e4b ptr = 0x9ba2 // 0xe42 @0x0
0x0e42…0e4b lno = 0x05fa // 0xe44 @0x2
0x0e42…0e4b at0004 = ╱92╱ PRINT ╱ // 0xe46 @0x4
0x0e42…0e4b at0005 = ╱22╱"╱ // 0xe47 @0x5
0x0e42…0e4b at0006 = ╱20╱…╱ // 0xe48 @0x6
0x0e42…0e4b at0007 = ╱22╱"╱ // 0xe49 @0x7
0x0e42…0e4b at0008 = EOL // 0xe4a @0x8
0x0e42…0e4b }
0x0e4b…0e53 9baa 1540 NEXT J0
0x0e4b…0e53 LineComalBin {
0x0e4b…0e53 ptr = 0x9baa // 0xe4b @0x0
0x0e4b…0e53 lno = 0x0604 // 0xe4d @0x2
0x0e4b…0e53 at0004 = ╱84╱ NEXT ╱ // 0xe4f @0x4
0x0e4b…0e53 at0005 = ╱4a╱J╱ // 0xe50 @0x5
0x0e4b…0e53 at0006 = ╱30╱0╱ // 0xe51 @0x6
0x0e4b…0e53 at0007 = EOL // 0xe52 @0x7
0x0e4b…0e53 }
0x0e53…0e61 9bb8 1550 PRINT TAB(V);D1$
0x0e53…0e61 LineComalBin {
0x0e53…0e61 ptr = 0x9bb8 // 0xe53 @0x0
0x0e53…0e61 lno = 0x060e // 0xe55 @0x2
0x0e53…0e61 at0004 = ╱92╱ PRINT ╱ // 0xe57 @0x4
0x0e53…0e61 at0005 = ╱d2╱TAB╱ // 0xe58 @0x5
0x0e53…0e61 at0006 = ╱ed╱(╱ // 0xe59 @0x6
0x0e53…0e61 at0007 = ╱56╱V╱ // 0xe5a @0x7
0x0e53…0e61 at0008 = ╱ee╱)╱ // 0xe5b @0x8
0x0e53…0e61 at0009 = ╱eb╱;╱ // 0xe5c @0x9
0x0e53…0e61 at000a = ╱44╱D╱ // 0xe5d @0xa
0x0e53…0e61 at000b = ╱31╱1╱ // 0xe5e @0xb
0x0e53…0e61 at000c = ╱ef╱$╱ // 0xe5f @0xc
0x0e53…0e61 at000d = EOL // 0xe60 @0xd
0x0e53…0e61 }
0x0e61…0e77 9bce 1560 EXEC TUD(B6$,C4$,E,B)
0x0e61…0e77 LineComalBin {
0x0e61…0e77 ptr = 0x9bce // 0xe61 @0x0
0x0e61…0e77 lno = 0x0618 // 0xe63 @0x2
0x0e61…0e77 at0004 = ╱9d╱ EXEC ╱ // 0xe65 @0x4
0x0e61…0e77 at0005 = ╱54╱T╱ // 0xe66 @0x5
0x0e61…0e77 at0006 = ╱55╱U╱ // 0xe67 @0x6
0x0e61…0e77 at0007 = ╱44╱D╱ // 0xe68 @0x7
0x0e61…0e77 at0008 = ╱ed╱(╱ // 0xe69 @0x8
0x0e61…0e77 at0009 = ╱42╱B╱ // 0xe6a @0x9
0x0e61…0e77 at000a = ╱36╱6╱ // 0xe6b @0xa
0x0e61…0e77 at000b = ╱ef╱$╱ // 0xe6c @0xb
0x0e61…0e77 at000c = ╱ec╱,╱ // 0xe6d @0xc
0x0e61…0e77 at000d = ╱43╱C╱ // 0xe6e @0xd
0x0e61…0e77 at000e = ╱34╱4╱ // 0xe6f @0xe
0x0e61…0e77 at000f = ╱ef╱$╱ // 0xe70 @0xf
0x0e61…0e77 at0010 = ╱ec╱,╱ // 0xe71 @0x10
0x0e61…0e77 at0011 = ╱45╱E╱ // 0xe72 @0x11
0x0e61…0e77 at0012 = ╱ec╱,╱ // 0xe73 @0x12
0x0e61…0e77 at0013 = ╱42╱B╱ // 0xe74 @0x13
0x0e61…0e77 at0014 = ╱ee╱)╱ // 0xe75 @0x14
0x0e61…0e77 at0015 = EOL // 0xe76 @0x15
0x0e61…0e77 }
0x0e77…0eb9 9c10 1570 PRINT TAB(27);CHR(14);"Difference";CHR(15);TAB(44);C4$
0x0e77…0eb9 LineComalBin {
0x0e77…0eb9 ptr = 0x9c10 // 0xe77 @0x0
0x0e77…0eb9 lno = 0x0622 // 0xe79 @0x2
0x0e77…0eb9 at0004 = ╱92╱ PRINT ╱ // 0xe7b @0x4
0x0e77…0eb9 at0005 = ╱d2╱TAB╱ // 0xe7c @0x5
0x0e77…0eb9 at0006 = ╱ed╱(╱ // 0xe7d @0x6
0x0e77…0eb9 at0007 = ╱32╱2╱ // 0xe7e @0x7
0x0e77…0eb9 at0008 = ╱37╱7╱ // 0xe7f @0x8
0x0e77…0eb9 at0009 = ╱fe0000d805╱ // 0xe80 @0x9
0x0e77…0eb9 at000e = ╱ee╱)╱ // 0xe85 @0xe
0x0e77…0eb9 at000f = ╱eb╱;╱ // 0xe86 @0xf
0x0e77…0eb9 at0010 = ╱cf╱CHR╱ // 0xe87 @0x10
0x0e77…0eb9 at0011 = ╱ed╱(╱ // 0xe88 @0x11
0x0e77…0eb9 at0012 = ╱31╱1╱ // 0xe89 @0x12
0x0e77…0eb9 at0013 = ╱34╱4╱ // 0xe8a @0x13
0x0e77…0eb9 at0014 = ╱fe0000e004╱ // 0xe8b @0x14
0x0e77…0eb9 at0019 = ╱ee╱)╱ // 0xe90 @0x19
0x0e77…0eb9 at001a = ╱eb╱;╱ // 0xe91 @0x1a
0x0e77…0eb9 at001b = ╱22╱"╱ // 0xe92 @0x1b
0x0e77…0eb9 at001c = ╱44╱D╱ // 0xe93 @0x1c
0x0e77…0eb9 at001d = ╱69╱i╱ // 0xe94 @0x1d
0x0e77…0eb9 at001e = ╱66╱f╱ // 0xe95 @0x1e
0x0e77…0eb9 at001f = ╱66╱f╱ // 0xe96 @0x1f
0x0e77…0eb9 at0020 = ╱65╱e╱ // 0xe97 @0x20
0x0e77…0eb9 at0021 = ╱72╱r╱ // 0xe98 @0x21
0x0e77…0eb9 at0022 = ╱65╱e╱ // 0xe99 @0x22
0x0e77…0eb9 at0023 = ╱6e╱n╱ // 0xe9a @0x23
0x0e77…0eb9 at0024 = ╱63╱c╱ // 0xe9b @0x24
0x0e77…0eb9 at0025 = ╱65╱e╱ // 0xe9c @0x25
0x0e77…0eb9 at0026 = ╱22╱"╱ // 0xe9d @0x26
0x0e77…0eb9 at0027 = ╱eb╱;╱ // 0xe9e @0x27
0x0e77…0eb9 at0028 = ╱cf╱CHR╱ // 0xe9f @0x28
0x0e77…0eb9 at0029 = ╱ed╱(╱ // 0xea0 @0x29
0x0e77…0eb9 at002a = ╱31╱1╱ // 0xea1 @0x2a
0x0e77…0eb9 at002b = ╱35╱5╱ // 0xea2 @0x2b
0x0e77…0eb9 at002c = ╱fe0000f004╱ // 0xea3 @0x2c
0x0e77…0eb9 at0031 = ╱ee╱)╱ // 0xea8 @0x31
0x0e77…0eb9 at0032 = ╱eb╱;╱ // 0xea9 @0x32
0x0e77…0eb9 at0033 = ╱d2╱TAB╱ // 0xeaa @0x33
0x0e77…0eb9 at0034 = ╱ed╱(╱ // 0xeab @0x34
0x0e77…0eb9 at0035 = ╱34╱4╱ // 0xeac @0x35
0x0e77…0eb9 at0036 = ╱34╱4╱ // 0xead @0x36
0x0e77…0eb9 at0037 = ╱fe0000b006╱ // 0xeae @0x37
0x0e77…0eb9 at003c = ╱ee╱)╱ // 0xeb3 @0x3c
0x0e77…0eb9 at003d = ╱eb╱;╱ // 0xeb4 @0x3d
0x0e77…0eb9 at003e = ╱43╱C╱ // 0xeb5 @0x3e
0x0e77…0eb9 at003f = ╱34╱4╱ // 0xeb6 @0x3f
0x0e77…0eb9 at0040 = ╱ef╱$╱ // 0xeb7 @0x40
0x0e77…0eb9 at0041 = EOL // 0xeb8 @0x41
0x0e77…0eb9 }
0x0eb9…0ec7 9c1e 1580 PRINT TAB(V);D1$
0x0eb9…0ec7 LineComalBin {
0x0eb9…0ec7 ptr = 0x9c1e // 0xeb9 @0x0
0x0eb9…0ec7 lno = 0x062c // 0xebb @0x2
0x0eb9…0ec7 at0004 = ╱92╱ PRINT ╱ // 0xebd @0x4
0x0eb9…0ec7 at0005 = ╱d2╱TAB╱ // 0xebe @0x5
0x0eb9…0ec7 at0006 = ╱ed╱(╱ // 0xebf @0x6
0x0eb9…0ec7 at0007 = ╱56╱V╱ // 0xec0 @0x7
0x0eb9…0ec7 at0008 = ╱ee╱)╱ // 0xec1 @0x8
0x0eb9…0ec7 at0009 = ╱eb╱;╱ // 0xec2 @0x9
0x0eb9…0ec7 at000a = ╱44╱D╱ // 0xec3 @0xa
0x0eb9…0ec7 at000b = ╱31╱1╱ // 0xec4 @0xb
0x0eb9…0ec7 at000c = ╱ef╱$╱ // 0xec5 @0xc
0x0eb9…0ec7 at000d = EOL // 0xec6 @0xd
0x0eb9…0ec7 }
0x0ec7…0ed0 9c27 1590 PRINT " "
0x0ec7…0ed0 LineComalBin {
0x0ec7…0ed0 ptr = 0x9c27 // 0xec7 @0x0
0x0ec7…0ed0 lno = 0x0636 // 0xec9 @0x2
0x0ec7…0ed0 at0004 = ╱92╱ PRINT ╱ // 0xecb @0x4
0x0ec7…0ed0 at0005 = ╱22╱"╱ // 0xecc @0x5
0x0ec7…0ed0 at0006 = ╱20╱…╱ // 0xecd @0x6
0x0ec7…0ed0 at0007 = ╱22╱"╱ // 0xece @0x7
0x0ec7…0ed0 at0008 = EOL // 0xecf @0x8
0x0ec7…0ed0 }
0x0ed0…0ed7 9c2e 1610 OUTPUT T
0x0ed0…0ed7 LineComalBin {
0x0ed0…0ed7 ptr = 0x9c2e // 0xed0 @0x0
0x0ed0…0ed7 lno = 0x064a // 0xed2 @0x2
0x0ed0…0ed7 at0004 = ╱a5╱ OUTPUT ╱ // 0xed4 @0x4
0x0ed0…0ed7 at0005 = ╱54╱T╱ // 0xed5 @0x5
0x0ed0…0ed7 at0006 = EOL // 0xed6 @0x6
0x0ed0…0ed7 }
0x0ed7…0edd 9c34 1620 ENDIF
0x0ed7…0edd LineComalBin {
0x0ed7…0edd ptr = 0x9c34 // 0xed7 @0x0
0x0ed7…0edd lno = 0x0654 // 0xed9 @0x2
0x0ed7…0edd at0004 = ╱9b╱ ENDIF ╱ // 0xedb @0x4
0x0ed7…0edd at0005 = EOL // 0xedc @0x5
0x0ed7…0edd }
0x0edd…0ee7 9c3e 1630 UNTIL I=I8
0x0edd…0ee7 LineComalBin {
0x0edd…0ee7 ptr = 0x9c3e // 0xedd @0x0
0x0edd…0ee7 lno = 0x065e // 0xedf @0x2
0x0edd…0ee7 at0004 = ╱98╱ UNTIL ╱ // 0xee1 @0x4
0x0edd…0ee7 at0005 = ╱49╱I╱ // 0xee2 @0x5
0x0edd…0ee7 at0006 = ╱dc╱=╱ // 0xee3 @0x6
0x0edd…0ee7 at0007 = ╱49╱I╱ // 0xee4 @0x7
0x0edd…0ee7 at0008 = ╱38╱8╱ // 0xee5 @0x8
0x0edd…0ee7 at0009 = EOL // 0xee6 @0x9
0x0edd…0ee7 }
0x0ee7…0eed 9c44 1640 ENDPROC
0x0ee7…0eed LineComalBin {
0x0ee7…0eed ptr = 0x9c44 // 0xee7 @0x0
0x0ee7…0eed lno = 0x0668 // 0xee9 @0x2
0x0ee7…0eed at0004 = ╱9f╱ ENDPROC ╱ // 0xeeb @0x4
0x0ee7…0eed at0005 = EOL // 0xeec @0x5
0x0ee7…0eed }
0x0eed…0ef7 9c4e 1650 PROC PPUT
0x0eed…0ef7 LineComalBin {
0x0eed…0ef7 ptr = 0x9c4e // 0xeed @0x0
0x0eed…0ef7 lno = 0x0672 // 0xeef @0x2
0x0eed…0ef7 at0004 = ╱9e╱ PROC ╱ // 0xef1 @0x4
0x0eed…0ef7 at0005 = ╱50╱P╱ // 0xef2 @0x5
0x0eed…0ef7 at0006 = ╱50╱P╱ // 0xef3 @0x6
0x0eed…0ef7 at0007 = ╱55╱U╱ // 0xef4 @0x7
0x0eed…0ef7 at0008 = ╱54╱T╱ // 0xef5 @0x8
0x0eed…0ef7 at0009 = EOL // 0xef6 @0x9
0x0eed…0ef7 }
0x0ef7…0f0d 9c64 1660 C0$=CHR(J6+48)
0x0ef7…0f0d LineComalBin {
0x0ef7…0f0d ptr = 0x9c64 // 0xef7 @0x0
0x0ef7…0f0d lno = 0x067c // 0xef9 @0x2
0x0ef7…0f0d at0004 = ╱43╱C╱ // 0xefb @0x4
0x0ef7…0f0d at0005 = ╱30╱0╱ // 0xefc @0x5
0x0ef7…0f0d at0006 = ╱ef╱$╱ // 0xefd @0x6
0x0ef7…0f0d at0007 = ╱dc╱=╱ // 0xefe @0x7
0x0ef7…0f0d at0008 = ╱cf╱CHR╱ // 0xeff @0x8
0x0ef7…0f0d at0009 = ╱ed╱(╱ // 0xf00 @0x9
0x0ef7…0f0d at000a = ╱4a╱J╱ // 0xf01 @0xa
0x0ef7…0f0d at000b = ╱36╱6╱ // 0xf02 @0xb
0x0ef7…0f0d at000c = ╱e2╱+╱ // 0xf03 @0xc
0x0ef7…0f0d at000d = ╱34╱4╱ // 0xf04 @0xd
0x0ef7…0f0d at000e = ╱38╱8╱ // 0xf05 @0xe
0x0ef7…0f0d at000f = ╱fe0000c006╱ // 0xf06 @0xf
0x0ef7…0f0d at0014 = ╱ee╱)╱ // 0xf0b @0x14
0x0ef7…0f0d at0015 = EOL // 0xf0c @0x15
0x0ef7…0f0d }
0x0f0d…0f18 9c6f 1670 IF J6=B THEN
0x0f0d…0f18 LineComalBin {
0x0f0d…0f18 ptr = 0x9c6f // 0xf0d @0x0
0x0f0d…0f18 lno = 0x0686 // 0xf0f @0x2
0x0f0d…0f18 at0004 = ╱9c╱ IF ╱ // 0xf11 @0x4
0x0f0d…0f18 at0005 = ╱4a╱J╱ // 0xf12 @0x5
0x0f0d…0f18 at0006 = ╱36╱6╱ // 0xf13 @0x6
0x0f0d…0f18 at0007 = ╱dc╱=╱ // 0xf14 @0x7
0x0f0d…0f18 at0008 = ╱42╱B╱ // 0xf15 @0x8
0x0f0d…0f18 at0009 = ╱b6╱ THEN ╱ // 0xf16 @0x9
0x0f0d…0f18 at000a = EOL // 0xf17 @0xa
0x0f0d…0f18 }
0x0f18…0f34 9c8b 1680 J9=I8;B8$=CHR(J5+48)
0x0f18…0f34 LineComalBin {
0x0f18…0f34 ptr = 0x9c8b // 0xf18 @0x0
0x0f18…0f34 lno = 0x0690 // 0xf1a @0x2
0x0f18…0f34 at0004 = ╱4a╱J╱ // 0xf1c @0x4
0x0f18…0f34 at0005 = ╱39╱9╱ // 0xf1d @0x5
0x0f18…0f34 at0006 = ╱dc╱=╱ // 0xf1e @0x6
0x0f18…0f34 at0007 = ╱49╱I╱ // 0xf1f @0x7
0x0f18…0f34 at0008 = ╱38╱8╱ // 0xf20 @0x8
0x0f18…0f34 at0009 = ╱eb╱;╱ // 0xf21 @0x9
0x0f18…0f34 at000a = ╱42╱B╱ // 0xf22 @0xa
0x0f18…0f34 at000b = ╱38╱8╱ // 0xf23 @0xb
0x0f18…0f34 at000c = ╱ef╱$╱ // 0xf24 @0xc
0x0f18…0f34 at000d = ╱dc╱=╱ // 0xf25 @0xd
0x0f18…0f34 at000e = ╱cf╱CHR╱ // 0xf26 @0xe
0x0f18…0f34 at000f = ╱ed╱(╱ // 0xf27 @0xf
0x0f18…0f34 at0010 = ╱4a╱J╱ // 0xf28 @0x10
0x0f18…0f34 at0011 = ╱35╱5╱ // 0xf29 @0x11
0x0f18…0f34 at0012 = ╱e2╱+╱ // 0xf2a @0x12
0x0f18…0f34 at0013 = ╱34╱4╱ // 0xf2b @0x13
0x0f18…0f34 at0014 = ╱38╱8╱ // 0xf2c @0x14
0x0f18…0f34 at0015 = ╱fe0000c006╱ // 0xf2d @0x15
0x0f18…0f34 at001a = ╱ee╱)╱ // 0xf32 @0x1a
0x0f18…0f34 at001b = EOL // 0xf33 @0x1b
0x0f18…0f34 }
0x0f34…0f58 9caf 1690 PUT B0$,I8:J1,K0,J3,B8$,E0$,C0$,J4
0x0f34…0f58 LineComalBin {
0x0f34…0f58 ptr = 0x9caf // 0xf34 @0x0
0x0f34…0f58 lno = 0x069a // 0xf36 @0x2
0x0f34…0f58 at0004 = ╱aa╱ PUT ╱ // 0xf38 @0x4
0x0f34…0f58 at0005 = ╱42╱B╱ // 0xf39 @0x5
0x0f34…0f58 at0006 = ╱30╱0╱ // 0xf3a @0x6
0x0f34…0f58 at0007 = ╱ef╱$╱ // 0xf3b @0x7
0x0f34…0f58 at0008 = ╱ec╱,╱ // 0xf3c @0x8
0x0f34…0f58 at0009 = ╱49╱I╱ // 0xf3d @0x9
0x0f34…0f58 at000a = ╱38╱8╱ // 0xf3e @0xa
0x0f34…0f58 at000b = ╱f0╱:╱ // 0xf3f @0xb
0x0f34…0f58 at000c = ╱4a╱J╱ // 0xf40 @0xc
0x0f34…0f58 at000d = ╱31╱1╱ // 0xf41 @0xd
0x0f34…0f58 at000e = ╱ec╱,╱ // 0xf42 @0xe
0x0f34…0f58 at000f = ╱4b╱K╱ // 0xf43 @0xf
0x0f34…0f58 at0010 = ╱30╱0╱ // 0xf44 @0x10
0x0f34…0f58 at0011 = ╱ec╱,╱ // 0xf45 @0x11
0x0f34…0f58 at0012 = ╱4a╱J╱ // 0xf46 @0x12
0x0f34…0f58 at0013 = ╱33╱3╱ // 0xf47 @0x13
0x0f34…0f58 at0014 = ╱ec╱,╱ // 0xf48 @0x14
0x0f34…0f58 at0015 = ╱42╱B╱ // 0xf49 @0x15
0x0f34…0f58 at0016 = ╱38╱8╱ // 0xf4a @0x16
0x0f34…0f58 at0017 = ╱ef╱$╱ // 0xf4b @0x17
0x0f34…0f58 at0018 = ╱ec╱,╱ // 0xf4c @0x18
0x0f34…0f58 at0019 = ╱45╱E╱ // 0xf4d @0x19
0x0f34…0f58 at001a = ╱30╱0╱ // 0xf4e @0x1a
0x0f34…0f58 at001b = ╱ef╱$╱ // 0xf4f @0x1b
0x0f34…0f58 at001c = ╱ec╱,╱ // 0xf50 @0x1c
0x0f34…0f58 at001d = ╱43╱C╱ // 0xf51 @0x1d
0x0f34…0f58 at001e = ╱30╱0╱ // 0xf52 @0x1e
0x0f34…0f58 at001f = ╱ef╱$╱ // 0xf53 @0x1f
0x0f34…0f58 at0020 = ╱ec╱,╱ // 0xf54 @0x20
0x0f34…0f58 at0021 = ╱4a╱J╱ // 0xf55 @0x21
0x0f34…0f58 at0022 = ╱34╱4╱ // 0xf56 @0x22
0x0f34…0f58 at0023 = EOL // 0xf57 @0x23
0x0f34…0f58 }
0x0f58…0f69 9cc0 1700 EXEC FE(G,G,B0$)
0x0f58…0f69 LineComalBin {
0x0f58…0f69 ptr = 0x9cc0 // 0xf58 @0x0
0x0f58…0f69 lno = 0x06a4 // 0xf5a @0x2
0x0f58…0f69 at0004 = ╱9d╱ EXEC ╱ // 0xf5c @0x4
0x0f58…0f69 at0005 = ╱46╱F╱ // 0xf5d @0x5
0x0f58…0f69 at0006 = ╱45╱E╱ // 0xf5e @0x6
0x0f58…0f69 at0007 = ╱ed╱(╱ // 0xf5f @0x7
0x0f58…0f69 at0008 = ╱47╱G╱ // 0xf60 @0x8
0x0f58…0f69 at0009 = ╱ec╱,╱ // 0xf61 @0x9
0x0f58…0f69 at000a = ╱47╱G╱ // 0xf62 @0xa
0x0f58…0f69 at000b = ╱ec╱,╱ // 0xf63 @0xb
0x0f58…0f69 at000c = ╱42╱B╱ // 0xf64 @0xc
0x0f58…0f69 at000d = ╱30╱0╱ // 0xf65 @0xd
0x0f58…0f69 at000e = ╱ef╱$╱ // 0xf66 @0xe
0x0f58…0f69 at000f = ╱ee╱)╱ // 0xf67 @0xf
0x0f58…0f69 at0010 = EOL // 0xf68 @0x10
0x0f58…0f69 }
0x0f69…0f75 9ccc 1710 I8=I8+E
0x0f69…0f75 LineComalBin {
0x0f69…0f75 ptr = 0x9ccc // 0xf69 @0x0
0x0f69…0f75 lno = 0x06ae // 0xf6b @0x2
0x0f69…0f75 at0004 = ╱49╱I╱ // 0xf6d @0x4
0x0f69…0f75 at0005 = ╱38╱8╱ // 0xf6e @0x5
0x0f69…0f75 at0006 = ╱dc╱=╱ // 0xf6f @0x6
0x0f69…0f75 at0007 = ╱49╱I╱ // 0xf70 @0x7
0x0f69…0f75 at0008 = ╱38╱8╱ // 0xf71 @0x8
0x0f69…0f75 at0009 = ╱e2╱+╱ // 0xf72 @0x9
0x0f69…0f75 at000a = ╱45╱E╱ // 0xf73 @0xa
0x0f69…0f75 at000b = EOL // 0xf74 @0xb
0x0f69…0f75 }
0x0f75…0f80 9cd7 1720 IF J5>W THEN
0x0f75…0f80 LineComalBin {
0x0f75…0f80 ptr = 0x9cd7 // 0xf75 @0x0
0x0f75…0f80 lno = 0x06b8 // 0xf77 @0x2
0x0f75…0f80 at0004 = ╱9c╱ IF ╱ // 0xf79 @0x4
0x0f75…0f80 at0005 = ╱4a╱J╱ // 0xf7a @0x5
0x0f75…0f80 at0006 = ╱35╱5╱ // 0xf7b @0x6
0x0f75…0f80 at0007 = ╱de╱>╱ // 0xf7c @0x7
0x0f75…0f80 at0008 = ╱57╱W╱ // 0xf7d @0x8
0x0f75…0f80 at0009 = ╱b6╱ THEN ╱ // 0xf7e @0x9
0x0f75…0f80 at000a = EOL // 0xf7f @0xa
0x0f75…0f80 }
0x0f80…0f93 9cea 1730 PUT B0$,I8:J1,C1$
0x0f80…0f93 LineComalBin {
0x0f80…0f93 ptr = 0x9cea // 0xf80 @0x0
0x0f80…0f93 lno = 0x06c2 // 0xf82 @0x2
0x0f80…0f93 at0004 = ╱aa╱ PUT ╱ // 0xf84 @0x4
0x0f80…0f93 at0005 = ╱42╱B╱ // 0xf85 @0x5
0x0f80…0f93 at0006 = ╱30╱0╱ // 0xf86 @0x6
0x0f80…0f93 at0007 = ╱ef╱$╱ // 0xf87 @0x7
0x0f80…0f93 at0008 = ╱ec╱,╱ // 0xf88 @0x8
0x0f80…0f93 at0009 = ╱49╱I╱ // 0xf89 @0x9
0x0f80…0f93 at000a = ╱38╱8╱ // 0xf8a @0xa
0x0f80…0f93 at000b = ╱f0╱:╱ // 0xf8b @0xb
0x0f80…0f93 at000c = ╱4a╱J╱ // 0xf8c @0xc
0x0f80…0f93 at000d = ╱31╱1╱ // 0xf8d @0xd
0x0f80…0f93 at000e = ╱ec╱,╱ // 0xf8e @0xe
0x0f80…0f93 at000f = ╱43╱C╱ // 0xf8f @0xf
0x0f80…0f93 at0010 = ╱31╱1╱ // 0xf90 @0x10
0x0f80…0f93 at0011 = ╱ef╱$╱ // 0xf91 @0x11
0x0f80…0f93 at0012 = EOL // 0xf92 @0x12
0x0f80…0f93 }
0x0f93…0fa4 9cfb 1740 EXEC FE(G,V,B0$)
0x0f93…0fa4 LineComalBin {
0x0f93…0fa4 ptr = 0x9cfb // 0xf93 @0x0
0x0f93…0fa4 lno = 0x06cc // 0xf95 @0x2
0x0f93…0fa4 at0004 = ╱9d╱ EXEC ╱ // 0xf97 @0x4
0x0f93…0fa4 at0005 = ╱46╱F╱ // 0xf98 @0x5
0x0f93…0fa4 at0006 = ╱45╱E╱ // 0xf99 @0x6
0x0f93…0fa4 at0007 = ╱ed╱(╱ // 0xf9a @0x7
0x0f93…0fa4 at0008 = ╱47╱G╱ // 0xf9b @0x8
0x0f93…0fa4 at0009 = ╱ec╱,╱ // 0xf9c @0x9
0x0f93…0fa4 at000a = ╱56╱V╱ // 0xf9d @0xa
0x0f93…0fa4 at000b = ╱ec╱,╱ // 0xf9e @0xb
0x0f93…0fa4 at000c = ╱42╱B╱ // 0xf9f @0xc
0x0f93…0fa4 at000d = ╱30╱0╱ // 0xfa0 @0xd
0x0f93…0fa4 at000e = ╱ef╱$╱ // 0xfa1 @0xe
0x0f93…0fa4 at000f = ╱ee╱)╱ // 0xfa2 @0xf
0x0f93…0fa4 at0010 = EOL // 0xfa3 @0x10
0x0f93…0fa4 }
0x0fa4…0fb0 (52,) 9d07 1750 I8=I8+E
0x0fa4…0fb0 LineComalBin {
0x0fa4…0fb0 ptr = 0x9d07 // 0xfa4 @0x0
0x0fa4…0fb0 lno = 0x06d6 // 0xfa6 @0x2
0x0fa4…0fb0 at0004 = ╱49╱I╱ // 0xfa8 @0x4
0x0fa4…0fb0 at0005 = ╱38╱8╱ // 0xfa9 @0x5
0x0fa4…0fb0 at0006 = ╱dc╱=╱ // 0xfaa @0x6
0x0fa4…0fb0 at0007 = ╱49╱I╱ // 0xfab @0x7
0x0fa4…0fb0 at0008 = ╱38╱8╱ // 0xfac @0x8
0x0fa4…0fb0 at0009 = ╱e2╱+╱ // 0xfad @0x9
0x0fa4…0fb0 at000a = ╱45╱E╱ // 0xfae @0xa
0x0fa4…0fb0 at000b = EOL // 0xfaf @0xb
0x0fa4…0fb0 }
0x0fb0…0fb6 9d0d 1760 ENDIF
0x0fb0…0fb6 LineComalBin {
0x0fb0…0fb6 ptr = 0x9d0d // 0xfb0 @0x0
0x0fb0…0fb6 lno = 0x06e0 // 0xfb2 @0x2
0x0fb0…0fb6 at0004 = ╱9b╱ ENDIF ╱ // 0xfb4 @0x4
0x0fb0…0fb6 at0005 = EOL // 0xfb5 @0x5
0x0fb0…0fb6 }
0x0fb6…0fda 9d31 1770 PUT B0$,I8:J7,K0,J3,B8$,E1$,C0$,J8
0x0fb6…0fda LineComalBin {
0x0fb6…0fda ptr = 0x9d31 // 0xfb6 @0x0
0x0fb6…0fda lno = 0x06ea // 0xfb8 @0x2
0x0fb6…0fda at0004 = ╱aa╱ PUT ╱ // 0xfba @0x4
0x0fb6…0fda at0005 = ╱42╱B╱ // 0xfbb @0x5
0x0fb6…0fda at0006 = ╱30╱0╱ // 0xfbc @0x6
0x0fb6…0fda at0007 = ╱ef╱$╱ // 0xfbd @0x7
0x0fb6…0fda at0008 = ╱ec╱,╱ // 0xfbe @0x8
0x0fb6…0fda at0009 = ╱49╱I╱ // 0xfbf @0x9
0x0fb6…0fda at000a = ╱38╱8╱ // 0xfc0 @0xa
0x0fb6…0fda at000b = ╱f0╱:╱ // 0xfc1 @0xb
0x0fb6…0fda at000c = ╱4a╱J╱ // 0xfc2 @0xc
0x0fb6…0fda at000d = ╱37╱7╱ // 0xfc3 @0xd
0x0fb6…0fda at000e = ╱ec╱,╱ // 0xfc4 @0xe
0x0fb6…0fda at000f = ╱4b╱K╱ // 0xfc5 @0xf
0x0fb6…0fda at0010 = ╱30╱0╱ // 0xfc6 @0x10
0x0fb6…0fda at0011 = ╱ec╱,╱ // 0xfc7 @0x11
0x0fb6…0fda at0012 = ╱4a╱J╱ // 0xfc8 @0x12
0x0fb6…0fda at0013 = ╱33╱3╱ // 0xfc9 @0x13
0x0fb6…0fda at0014 = ╱ec╱,╱ // 0xfca @0x14
0x0fb6…0fda at0015 = ╱42╱B╱ // 0xfcb @0x15
0x0fb6…0fda at0016 = ╱38╱8╱ // 0xfcc @0x16
0x0fb6…0fda at0017 = ╱ef╱$╱ // 0xfcd @0x17
0x0fb6…0fda at0018 = ╱ec╱,╱ // 0xfce @0x18
0x0fb6…0fda at0019 = ╱45╱E╱ // 0xfcf @0x19
0x0fb6…0fda at001a = ╱31╱1╱ // 0xfd0 @0x1a
0x0fb6…0fda at001b = ╱ef╱$╱ // 0xfd1 @0x1b
0x0fb6…0fda at001c = ╱ec╱,╱ // 0xfd2 @0x1c
0x0fb6…0fda at001d = ╱43╱C╱ // 0xfd3 @0x1d
0x0fb6…0fda at001e = ╱30╱0╱ // 0xfd4 @0x1e
0x0fb6…0fda at001f = ╱ef╱$╱ // 0xfd5 @0x1f
0x0fb6…0fda at0020 = ╱ec╱,╱ // 0xfd6 @0x20
0x0fb6…0fda at0021 = ╱4a╱J╱ // 0xfd7 @0x21
0x0fb6…0fda at0022 = ╱38╱8╱ // 0xfd8 @0x22
0x0fb6…0fda at0023 = EOL // 0xfd9 @0x23
0x0fb6…0fda }
0x0fda…0ff0 9d47 1780 EXEC FE(G,4,B0$)
0x0fda…0ff0 LineComalBin {
0x0fda…0ff0 ptr = 0x9d47 // 0xfda @0x0
0x0fda…0ff0 lno = 0x06f4 // 0xfdc @0x2
0x0fda…0ff0 at0004 = ╱9d╱ EXEC ╱ // 0xfde @0x4
0x0fda…0ff0 at0005 = ╱46╱F╱ // 0xfdf @0x5
0x0fda…0ff0 at0006 = ╱45╱E╱ // 0xfe0 @0x6
0x0fda…0ff0 at0007 = ╱ed╱(╱ // 0xfe1 @0x7
0x0fda…0ff0 at0008 = ╱47╱G╱ // 0xfe2 @0x8
0x0fda…0ff0 at0009 = ╱ec╱,╱ // 0xfe3 @0x9
0x0fda…0ff0 at000a = ╱34╱4╱ // 0xfe4 @0xa
0x0fda…0ff0 at000b = ╱fe00008003╱ // 0xfe5 @0xb
0x0fda…0ff0 at0010 = ╱ec╱,╱ // 0xfea @0x10
0x0fda…0ff0 at0011 = ╱42╱B╱ // 0xfeb @0x11
0x0fda…0ff0 at0012 = ╱30╱0╱ // 0xfec @0x12
0x0fda…0ff0 at0013 = ╱ef╱$╱ // 0xfed @0x13
0x0fda…0ff0 at0014 = ╱ee╱)╱ // 0xfee @0x14
0x0fda…0ff0 at0015 = EOL // 0xfef @0x15
0x0fda…0ff0 }
0x0ff0…0ffc 9d53 1790 I8=I8+E
0x0ff0…0ffc LineComalBin {
0x0ff0…0ffc ptr = 0x9d53 // 0xff0 @0x0
0x0ff0…0ffc lno = 0x06fe // 0xff2 @0x2
0x0ff0…0ffc at0004 = ╱49╱I╱ // 0xff4 @0x4
0x0ff0…0ffc at0005 = ╱38╱8╱ // 0xff5 @0x5
0x0ff0…0ffc at0006 = ╱dc╱=╱ // 0xff6 @0x6
0x0ff0…0ffc at0007 = ╱49╱I╱ // 0xff7 @0x7
0x0ff0…0ffc at0008 = ╱38╱8╱ // 0xff8 @0x8
0x0ff0…0ffc at0009 = ╱e2╱+╱ // 0xff9 @0x9
0x0ff0…0ffc at000a = ╱45╱E╱ // 0xffa @0xa
0x0ff0…0ffc at000b = EOL // 0xffb @0xb
0x0ff0…0ffc }
0x0ffc…1007 9d5e 1800 IF J5>W THEN
0x0ffc…1007 LineComalBin {
0x0ffc…1007 ptr = 0x9d5e // 0xffc @0x0
0x0ffc…1007 lno = 0x0708 // 0xffe @0x2
0x0ffc…1007 at0004 = ╱9c╱ IF ╱ // 0x1000 @0x4
0x0ffc…1007 at0005 = ╱4a╱J╱ // 0x1001 @0x5
0x0ffc…1007 at0006 = ╱35╱5╱ // 0x1002 @0x6
0x0ffc…1007 at0007 = ╱de╱>╱ // 0x1003 @0x7
0x0ffc…1007 at0008 = ╱57╱W╱ // 0x1004 @0x8
0x0ffc…1007 at0009 = ╱b6╱ THEN ╱ // 0x1005 @0x9
0x0ffc…1007 at000a = EOL // 0x1006 @0xa
0x0ffc…1007 }
0x1007…101a 9d71 1810 PUT B0$,I8:J7,C1$
0x1007…101a LineComalBin {
0x1007…101a ptr = 0x9d71 // 0x1007 @0x0
0x1007…101a lno = 0x0712 // 0x1009 @0x2
0x1007…101a at0004 = ╱aa╱ PUT ╱ // 0x100b @0x4
0x1007…101a at0005 = ╱42╱B╱ // 0x100c @0x5
0x1007…101a at0006 = ╱30╱0╱ // 0x100d @0x6
0x1007…101a at0007 = ╱ef╱$╱ // 0x100e @0x7
0x1007…101a at0008 = ╱ec╱,╱ // 0x100f @0x8
0x1007…101a at0009 = ╱49╱I╱ // 0x1010 @0x9
0x1007…101a at000a = ╱38╱8╱ // 0x1011 @0xa
0x1007…101a at000b = ╱f0╱:╱ // 0x1012 @0xb
0x1007…101a at000c = ╱4a╱J╱ // 0x1013 @0xc
0x1007…101a at000d = ╱37╱7╱ // 0x1014 @0xd
0x1007…101a at000e = ╱ec╱,╱ // 0x1015 @0xe
0x1007…101a at000f = ╱43╱C╱ // 0x1016 @0xf
0x1007…101a at0010 = ╱31╱1╱ // 0x1017 @0x10
0x1007…101a at0011 = ╱ef╱$╱ // 0x1018 @0x11
0x1007…101a at0012 = EOL // 0x1019 @0x12
0x1007…101a }
0x101a…1030 9d87 1820 EXEC FE(G,5,B0$)
0x101a…1030 LineComalBin {
0x101a…1030 ptr = 0x9d87 // 0x101a @0x0
0x101a…1030 lno = 0x071c // 0x101c @0x2
0x101a…1030 at0004 = ╱9d╱ EXEC ╱ // 0x101e @0x4
0x101a…1030 at0005 = ╱46╱F╱ // 0x101f @0x5
0x101a…1030 at0006 = ╱45╱E╱ // 0x1020 @0x6
0x101a…1030 at0007 = ╱ed╱(╱ // 0x1021 @0x7
0x101a…1030 at0008 = ╱47╱G╱ // 0x1022 @0x8
0x101a…1030 at0009 = ╱ec╱,╱ // 0x1023 @0x9
0x101a…1030 at000a = ╱35╱5╱ // 0x1024 @0xa
0x101a…1030 at000b = ╱fe0000a003╱ // 0x1025 @0xb
0x101a…1030 at0010 = ╱ec╱,╱ // 0x102a @0x10
0x101a…1030 at0011 = ╱42╱B╱ // 0x102b @0x11
0x101a…1030 at0012 = ╱30╱0╱ // 0x102c @0x12
0x101a…1030 at0013 = ╱ef╱$╱ // 0x102d @0x13
0x101a…1030 at0014 = ╱ee╱)╱ // 0x102e @0x14
0x101a…1030 at0015 = EOL // 0x102f @0x15
0x101a…1030 }
0x1030…103c 9d93 1830 I8=I8+E
0x1030…103c LineComalBin {
0x1030…103c ptr = 0x9d93 // 0x1030 @0x0
0x1030…103c lno = 0x0726 // 0x1032 @0x2
0x1030…103c at0004 = ╱49╱I╱ // 0x1034 @0x4
0x1030…103c at0005 = ╱38╱8╱ // 0x1035 @0x5
0x1030…103c at0006 = ╱dc╱=╱ // 0x1036 @0x6
0x1030…103c at0007 = ╱49╱I╱ // 0x1037 @0x7
0x1030…103c at0008 = ╱38╱8╱ // 0x1038 @0x8
0x1030…103c at0009 = ╱e2╱+╱ // 0x1039 @0x9
0x1030…103c at000a = ╱45╱E╱ // 0x103a @0xa
0x1030…103c at000b = EOL // 0x103b @0xb
0x1030…103c }
0x103c…1042 9d99 1840 ENDIF
0x103c…1042 LineComalBin {
0x103c…1042 ptr = 0x9d99 // 0x103c @0x0
0x103c…1042 lno = 0x0730 // 0x103e @0x2
0x103c…1042 at0004 = ╱9b╱ ENDIF ╱ // 0x1040 @0x4
0x103c…1042 at0005 = EOL // 0x1041 @0x5
0x103c…1042 }
0x1042…1048 9d9f 1850 ELSE
0x1042…1048 LineComalBin {
0x1042…1048 ptr = 0x9d9f // 0x1042 @0x0
0x1042…1048 lno = 0x073a // 0x1044 @0x2
0x1042…1048 at0004 = ╱9a╱ ELSE ╱ // 0x1046 @0x4
0x1042…1048 at0005 = EOL // 0x1047 @0x5
0x1042…1048 }
0x1048…1054 9dab 1860 FOR I=E TO K1
0x1048…1054 LineComalBin {
0x1048…1054 ptr = 0x9dab // 0x1048 @0x0
0x1048…1054 lno = 0x0744 // 0x104a @0x2
0x1048…1054 at0004 = ╱83╱ FOR ╱ // 0x104c @0x4
0x1048…1054 at0005 = ╱49╱I╱ // 0x104d @0x5
0x1048…1054 at0006 = ╱dc╱=╱ // 0x104e @0x6
0x1048…1054 at0007 = ╱45╱E╱ // 0x104f @0x7
0x1048…1054 at0008 = ╱b7╱ TO ╱ // 0x1050 @0x8
0x1048…1054 at0009 = ╱4b╱K╱ // 0x1051 @0x9
0x1048…1054 at000a = ╱31╱1╱ // 0x1052 @0xa
0x1048…1054 at000b = EOL // 0x1053 @0xb
0x1048…1054 }
0x1054…1062 9db9 1870 IF C6(I)<>B THEN
0x1054…1062 LineComalBin {
0x1054…1062 ptr = 0x9db9 // 0x1054 @0x0
0x1054…1062 lno = 0x074e // 0x1056 @0x2
0x1054…1062 at0004 = ╱9c╱ IF ╱ // 0x1058 @0x4
0x1054…1062 at0005 = ╱43╱C╱ // 0x1059 @0x5
0x1054…1062 at0006 = ╱36╱6╱ // 0x105a @0x6
0x1054…1062 at0007 = ╱ed╱(╱ // 0x105b @0x7
0x1054…1062 at0008 = ╱49╱I╱ // 0x105c @0x8
0x1054…1062 at0009 = ╱ee╱)╱ // 0x105d @0x9
0x1054…1062 at000a = ╱e1╱<>╱ // 0x105e @0xa
0x1054…1062 at000b = ╱42╱B╱ // 0x105f @0xb
0x1054…1062 at000c = ╱b6╱ THEN ╱ // 0x1060 @0xc
0x1054…1062 at000d = EOL // 0x1061 @0xd
0x1054…1062 }
0x1062…107b 9dd2 1880 B8$=CHR(C8(I)+48)
0x1062…107b LineComalBin {
0x1062…107b ptr = 0x9dd2 // 0x1062 @0x0
0x1062…107b lno = 0x0758 // 0x1064 @0x2
0x1062…107b at0004 = ╱42╱B╱ // 0x1066 @0x4
0x1062…107b at0005 = ╱38╱8╱ // 0x1067 @0x5
0x1062…107b at0006 = ╱ef╱$╱ // 0x1068 @0x6
0x1062…107b at0007 = ╱dc╱=╱ // 0x1069 @0x7
0x1062…107b at0008 = ╱cf╱CHR╱ // 0x106a @0x8
0x1062…107b at0009 = ╱ed╱(╱ // 0x106b @0x9
0x1062…107b at000a = ╱43╱C╱ // 0x106c @0xa
0x1062…107b at000b = ╱38╱8╱ // 0x106d @0xb
0x1062…107b at000c = ╱ed╱(╱ // 0x106e @0xc
0x1062…107b at000d = ╱49╱I╱ // 0x106f @0xd
0x1062…107b at000e = ╱ee╱)╱ // 0x1070 @0xe
0x1062…107b at000f = ╱e2╱+╱ // 0x1071 @0xf
0x1062…107b at0010 = ╱34╱4╱ // 0x1072 @0x10
0x1062…107b at0011 = ╱38╱8╱ // 0x1073 @0x11
0x1062…107b at0012 = ╱fe0000c006╱ // 0x1074 @0x12
0x1062…107b at0017 = ╱ee╱)╱ // 0x1079 @0x17
0x1062…107b at0018 = EOL // 0x107a @0x18
0x1062…107b }
0x107b…10ae 9e05 1890 PUT B0$,I8:C6(I),C7(I),E3(I),B8$,E4$(I),C0$,E8(I)
0x107b…10ae LineComalBin {
0x107b…10ae ptr = 0x9e05 // 0x107b @0x0
0x107b…10ae lno = 0x0762 // 0x107d @0x2
0x107b…10ae at0004 = ╱aa╱ PUT ╱ // 0x107f @0x4
0x107b…10ae at0005 = ╱42╱B╱ // 0x1080 @0x5
0x107b…10ae at0006 = ╱30╱0╱ // 0x1081 @0x6
0x107b…10ae at0007 = ╱ef╱$╱ // 0x1082 @0x7
0x107b…10ae at0008 = ╱ec╱,╱ // 0x1083 @0x8
0x107b…10ae at0009 = ╱49╱I╱ // 0x1084 @0x9
0x107b…10ae at000a = ╱38╱8╱ // 0x1085 @0xa
0x107b…10ae at000b = ╱f0╱:╱ // 0x1086 @0xb
0x107b…10ae at000c = ╱43╱C╱ // 0x1087 @0xc
0x107b…10ae at000d = ╱36╱6╱ // 0x1088 @0xd
0x107b…10ae at000e = ╱ed╱(╱ // 0x1089 @0xe
0x107b…10ae at000f = ╱49╱I╱ // 0x108a @0xf
0x107b…10ae at0010 = ╱ee╱)╱ // 0x108b @0x10
0x107b…10ae at0011 = ╱ec╱,╱ // 0x108c @0x11
0x107b…10ae at0012 = ╱43╱C╱ // 0x108d @0x12
0x107b…10ae at0013 = ╱37╱7╱ // 0x108e @0x13
0x107b…10ae at0014 = ╱ed╱(╱ // 0x108f @0x14
0x107b…10ae at0015 = ╱49╱I╱ // 0x1090 @0x15
0x107b…10ae at0016 = ╱ee╱)╱ // 0x1091 @0x16
0x107b…10ae at0017 = ╱ec╱,╱ // 0x1092 @0x17
0x107b…10ae at0018 = ╱45╱E╱ // 0x1093 @0x18
0x107b…10ae at0019 = ╱33╱3╱ // 0x1094 @0x19
0x107b…10ae at001a = ╱ed╱(╱ // 0x1095 @0x1a
0x107b…10ae at001b = ╱49╱I╱ // 0x1096 @0x1b
0x107b…10ae at001c = ╱ee╱)╱ // 0x1097 @0x1c
0x107b…10ae at001d = ╱ec╱,╱ // 0x1098 @0x1d
0x107b…10ae at001e = ╱42╱B╱ // 0x1099 @0x1e
0x107b…10ae at001f = ╱38╱8╱ // 0x109a @0x1f
0x107b…10ae at0020 = ╱ef╱$╱ // 0x109b @0x20
0x107b…10ae at0021 = ╱ec╱,╱ // 0x109c @0x21
0x107b…10ae at0022 = ╱45╱E╱ // 0x109d @0x22
0x107b…10ae at0023 = ╱34╱4╱ // 0x109e @0x23
0x107b…10ae at0024 = ╱ef╱$╱ // 0x109f @0x24
0x107b…10ae at0025 = ╱ed╱(╱ // 0x10a0 @0x25
0x107b…10ae at0026 = ╱49╱I╱ // 0x10a1 @0x26
0x107b…10ae at0027 = ╱ee╱)╱ // 0x10a2 @0x27
0x107b…10ae at0028 = ╱ec╱,╱ // 0x10a3 @0x28
0x107b…10ae at0029 = ╱43╱C╱ // 0x10a4 @0x29
0x107b…10ae at002a = ╱30╱0╱ // 0x10a5 @0x2a
0x107b…10ae at002b = ╱ef╱$╱ // 0x10a6 @0x2b
0x107b…10ae at002c = ╱ec╱,╱ // 0x10a7 @0x2c
0x107b…10ae at002d = ╱45╱E╱ // 0x10a8 @0x2d
0x107b…10ae at002e = ╱38╱8╱ // 0x10a9 @0x2e
0x107b…10ae at002f = ╱ed╱(╱ // 0x10aa @0x2f
0x107b…10ae at0030 = ╱49╱I╱ // 0x10ab @0x30
0x107b…10ae at0031 = ╱ee╱)╱ // 0x10ac @0x31
0x107b…10ae at0032 = EOL // 0x10ad @0x32
0x107b…10ae }
0x10ae…10c4 9e1b 1900 EXEC FE(G,6,B0$)
0x10ae…10c4 LineComalBin {
0x10ae…10c4 ptr = 0x9e1b // 0x10ae @0x0
0x10ae…10c4 lno = 0x076c // 0x10b0 @0x2
0x10ae…10c4 at0004 = ╱9d╱ EXEC ╱ // 0x10b2 @0x4
0x10ae…10c4 at0005 = ╱46╱F╱ // 0x10b3 @0x5
0x10ae…10c4 at0006 = ╱45╱E╱ // 0x10b4 @0x6
0x10ae…10c4 at0007 = ╱ed╱(╱ // 0x10b5 @0x7
0x10ae…10c4 at0008 = ╱47╱G╱ // 0x10b6 @0x8
0x10ae…10c4 at0009 = ╱ec╱,╱ // 0x10b7 @0x9
0x10ae…10c4 at000a = ╱36╱6╱ // 0x10b8 @0xa
0x10ae…10c4 at000b = ╱fe0000c003╱ // 0x10b9 @0xb
0x10ae…10c4 at0010 = ╱ec╱,╱ // 0x10be @0x10
0x10ae…10c4 at0011 = ╱42╱B╱ // 0x10bf @0x11
0x10ae…10c4 at0012 = ╱30╱0╱ // 0x10c0 @0x12
0x10ae…10c4 at0013 = ╱ef╱$╱ // 0x10c1 @0x13
0x10ae…10c4 at0014 = ╱ee╱)╱ // 0x10c2 @0x14
0x10ae…10c4 at0015 = EOL // 0x10c3 @0x15
0x10ae…10c4 }
0x10c4…10d0 9e27 1910 I8=I8+E
0x10c4…10d0 LineComalBin {
0x10c4…10d0 ptr = 0x9e27 // 0x10c4 @0x0
0x10c4…10d0 lno = 0x0776 // 0x10c6 @0x2
0x10c4…10d0 at0004 = ╱49╱I╱ // 0x10c8 @0x4
0x10c4…10d0 at0005 = ╱38╱8╱ // 0x10c9 @0x5
0x10c4…10d0 at0006 = ╱dc╱=╱ // 0x10ca @0x6
0x10c4…10d0 at0007 = ╱49╱I╱ // 0x10cb @0x7
0x10c4…10d0 at0008 = ╱38╱8╱ // 0x10cc @0x8
0x10c4…10d0 at0009 = ╱e2╱+╱ // 0x10cd @0x9
0x10c4…10d0 at000a = ╱45╱E╱ // 0x10ce @0xa
0x10c4…10d0 at000b = EOL // 0x10cf @0xb
0x10c4…10d0 }
0x10d0…10de 9e35 1920 IF C8(I)>W THEN
0x10d0…10de LineComalBin {
0x10d0…10de ptr = 0x9e35 // 0x10d0 @0x0
0x10d0…10de lno = 0x0780 // 0x10d2 @0x2
0x10d0…10de at0004 = ╱9c╱ IF ╱ // 0x10d4 @0x4
0x10d0…10de at0005 = ╱43╱C╱ // 0x10d5 @0x5
0x10d0…10de at0006 = ╱38╱8╱ // 0x10d6 @0x6
0x10d0…10de at0007 = ╱ed╱(╱ // 0x10d7 @0x7
0x10d0…10de at0008 = ╱49╱I╱ // 0x10d8 @0x8
0x10d0…10de at0009 = ╱ee╱)╱ // 0x10d9 @0x9
0x10d0…10de at000a = ╱de╱>╱ // 0x10da @0xa
0x10d0…10de at000b = ╱57╱W╱ // 0x10db @0xb
0x10d0…10de at000c = ╱b6╱ THEN ╱ // 0x10dc @0xc
0x10d0…10de at000d = EOL // 0x10dd @0xd
0x10d0…10de }
0x10de…10f7 9e4e 1930 PUT B0$,I8:C6(I),C9$(I)
0x10de…10f7 LineComalBin {
0x10de…10f7 ptr = 0x9e4e // 0x10de @0x0
0x10de…10f7 lno = 0x078a // 0x10e0 @0x2
0x10de…10f7 at0004 = ╱aa╱ PUT ╱ // 0x10e2 @0x4
0x10de…10f7 at0005 = ╱42╱B╱ // 0x10e3 @0x5
0x10de…10f7 at0006 = ╱30╱0╱ // 0x10e4 @0x6
0x10de…10f7 at0007 = ╱ef╱$╱ // 0x10e5 @0x7
0x10de…10f7 at0008 = ╱ec╱,╱ // 0x10e6 @0x8
0x10de…10f7 at0009 = ╱49╱I╱ // 0x10e7 @0x9
0x10de…10f7 at000a = ╱38╱8╱ // 0x10e8 @0xa
0x10de…10f7 at000b = ╱f0╱:╱ // 0x10e9 @0xb
0x10de…10f7 at000c = ╱43╱C╱ // 0x10ea @0xc
0x10de…10f7 at000d = ╱36╱6╱ // 0x10eb @0xd
0x10de…10f7 at000e = ╱ed╱(╱ // 0x10ec @0xe
0x10de…10f7 at000f = ╱49╱I╱ // 0x10ed @0xf
0x10de…10f7 at0010 = ╱ee╱)╱ // 0x10ee @0x10
0x10de…10f7 at0011 = ╱ec╱,╱ // 0x10ef @0x11
0x10de…10f7 at0012 = ╱43╱C╱ // 0x10f0 @0x12
0x10de…10f7 at0013 = ╱39╱9╱ // 0x10f1 @0x13
0x10de…10f7 at0014 = ╱ef╱$╱ // 0x10f2 @0x14
0x10de…10f7 at0015 = ╱ed╱(╱ // 0x10f3 @0x15
0x10de…10f7 at0016 = ╱49╱I╱ // 0x10f4 @0x16
0x10de…10f7 at0017 = ╱ee╱)╱ // 0x10f5 @0x17
0x10de…10f7 at0018 = EOL // 0x10f6 @0x18
0x10de…10f7 }
0x10f7…110d 9e64 1940 EXEC FE(G,7,B0$)
0x10f7…110d LineComalBin {
0x10f7…110d ptr = 0x9e64 // 0x10f7 @0x0
0x10f7…110d lno = 0x0794 // 0x10f9 @0x2
0x10f7…110d at0004 = ╱9d╱ EXEC ╱ // 0x10fb @0x4
0x10f7…110d at0005 = ╱46╱F╱ // 0x10fc @0x5
0x10f7…110d at0006 = ╱45╱E╱ // 0x10fd @0x6
0x10f7…110d at0007 = ╱ed╱(╱ // 0x10fe @0x7
0x10f7…110d at0008 = ╱47╱G╱ // 0x10ff @0x8
0x10f7…110d at0009 = ╱ec╱,╱ // 0x1100 @0x9
0x10f7…110d at000a = ╱37╱7╱ // 0x1101 @0xa
0x10f7…110d at000b = ╱fe0000e003╱ // 0x1102 @0xb
0x10f7…110d at0010 = ╱ec╱,╱ // 0x1107 @0x10
0x10f7…110d at0011 = ╱42╱B╱ // 0x1108 @0x11
0x10f7…110d at0012 = ╱30╱0╱ // 0x1109 @0x12
0x10f7…110d at0013 = ╱ef╱$╱ // 0x110a @0x13
0x10f7…110d at0014 = ╱ee╱)╱ // 0x110b @0x14
0x10f7…110d at0015 = EOL // 0x110c @0x15
0x10f7…110d }
0x110d…1119 9e70 1950 I8=I8+E
0x110d…1119 LineComalBin {
0x110d…1119 ptr = 0x9e70 // 0x110d @0x0
0x110d…1119 lno = 0x079e // 0x110f @0x2
0x110d…1119 at0004 = ╱49╱I╱ // 0x1111 @0x4
0x110d…1119 at0005 = ╱38╱8╱ // 0x1112 @0x5
0x110d…1119 at0006 = ╱dc╱=╱ // 0x1113 @0x6
0x110d…1119 at0007 = ╱49╱I╱ // 0x1114 @0x7
0x110d…1119 at0008 = ╱38╱8╱ // 0x1115 @0x8
0x110d…1119 at0009 = ╱e2╱+╱ // 0x1116 @0x9
0x110d…1119 at000a = ╱45╱E╱ // 0x1117 @0xa
0x110d…1119 at000b = EOL // 0x1118 @0xb
0x110d…1119 }
0x1119…111f 9e76 1960 ENDIF
0x1119…111f LineComalBin {
0x1119…111f ptr = 0x9e76 // 0x1119 @0x0
0x1119…111f lno = 0x07a8 // 0x111b @0x2
0x1119…111f at0004 = ╱9b╱ ENDIF ╱ // 0x111d @0x4
0x1119…111f at0005 = EOL // 0x111e @0x5
0x1119…111f }
0x111f…1125 9e7c 1970 ENDIF
0x111f…1125 LineComalBin {
0x111f…1125 ptr = 0x9e7c // 0x111f @0x0
0x111f…1125 lno = 0x07b2 // 0x1121 @0x2
0x111f…1125 at0004 = ╱9b╱ ENDIF ╱ // 0x1123 @0x4
0x111f…1125 at0005 = EOL // 0x1124 @0x5
0x111f…1125 }
0x1125…112c (57,) 9e83 1980 NEXT I
0x1125…112c LineComalBin {
0x1125…112c ptr = 0x9e83 // 0x1125 @0x0
0x1125…112c lno = 0x07bc // 0x1127 @0x2
0x1125…112c at0004 = ╱84╱ NEXT ╱ // 0x1129 @0x4
0x1125…112c at0005 = ╱49╱I╱ // 0x112a @0x5
0x1125…112c at0006 = EOL // 0x112b @0x6
0x1125…112c }
0x112c…1148 9e9f 1990 J9=I8;K1=B;K2=B;K3=I8-E
0x112c…1148 LineComalBin {
0x112c…1148 ptr = 0x9e9f // 0x112c @0x0
0x112c…1148 lno = 0x07c6 // 0x112e @0x2
0x112c…1148 at0004 = ╱4a╱J╱ // 0x1130 @0x4
0x112c…1148 at0005 = ╱39╱9╱ // 0x1131 @0x5
0x112c…1148 at0006 = ╱dc╱=╱ // 0x1132 @0x6
0x112c…1148 at0007 = ╱49╱I╱ // 0x1133 @0x7
0x112c…1148 at0008 = ╱38╱8╱ // 0x1134 @0x8
0x112c…1148 at0009 = ╱eb╱;╱ // 0x1135 @0x9
0x112c…1148 at000a = ╱4b╱K╱ // 0x1136 @0xa
0x112c…1148 at000b = ╱31╱1╱ // 0x1137 @0xb
0x112c…1148 at000c = ╱dc╱=╱ // 0x1138 @0xc
0x112c…1148 at000d = ╱42╱B╱ // 0x1139 @0xd
0x112c…1148 at000e = ╱eb╱;╱ // 0x113a @0xe
0x112c…1148 at000f = ╱4b╱K╱ // 0x113b @0xf
0x112c…1148 at0010 = ╱32╱2╱ // 0x113c @0x10
0x112c…1148 at0011 = ╱dc╱=╱ // 0x113d @0x11
0x112c…1148 at0012 = ╱42╱B╱ // 0x113e @0x12
0x112c…1148 at0013 = ╱eb╱;╱ // 0x113f @0x13
0x112c…1148 at0014 = ╱4b╱K╱ // 0x1140 @0x14
0x112c…1148 at0015 = ╱33╱3╱ // 0x1141 @0x15
0x112c…1148 at0016 = ╱dc╱=╱ // 0x1142 @0x16
0x112c…1148 at0017 = ╱49╱I╱ // 0x1143 @0x17
0x112c…1148 at0018 = ╱38╱8╱ // 0x1144 @0x18
0x112c…1148 at0019 = ╱e3╱-╱ // 0x1145 @0x19
0x112c…1148 at001a = ╱45╱E╱ // 0x1146 @0x1a
0x112c…1148 at001b = EOL // 0x1147 @0x1b
0x112c…1148 }
0x1148…1154 9eab 2000 EXEC SYSGEM
0x1148…1154 LineComalBin {
0x1148…1154 ptr = 0x9eab // 0x1148 @0x0
0x1148…1154 lno = 0x07d0 // 0x114a @0x2
0x1148…1154 at0004 = ╱9d╱ EXEC ╱ // 0x114c @0x4
0x1148…1154 at0005 = ╱53╱S╱ // 0x114d @0x5
0x1148…1154 at0006 = ╱59╱Y╱ // 0x114e @0x6
0x1148…1154 at0007 = ╱53╱S╱ // 0x114f @0x7
0x1148…1154 at0008 = ╱47╱G╱ // 0x1150 @0x8
0x1148…1154 at0009 = ╱45╱E╱ // 0x1151 @0x9
0x1148…1154 at000a = ╱4d╱M╱ // 0x1152 @0xa
0x1148…1154 at000b = EOL // 0x1153 @0xb
0x1148…1154 }
0x1154…115a 9eb1 2010 ENDIF
0x1154…115a LineComalBin {
0x1154…115a ptr = 0x9eb1 // 0x1154 @0x0
0x1154…115a lno = 0x07da // 0x1156 @0x2
0x1154…115a at0004 = ╱9b╱ ENDIF ╱ // 0x1158 @0x4
0x1154…115a at0005 = EOL // 0x1159 @0x5
0x1154…115a }
0x115a…1160 9eb7 2020 ENDPROC
0x115a…1160 LineComalBin {
0x115a…1160 ptr = 0x9eb7 // 0x115a @0x0
0x115a…1160 lno = 0x07e4 // 0x115c @0x2
0x115a…1160 at0004 = ╱9f╱ ENDPROC ╱ // 0x115e @0x4
0x115a…1160 at0005 = EOL // 0x115f @0x5
0x115a…1160 }
0x1160…116c 9ec3 2030 PROC SYSGEM
0x1160…116c LineComalBin {
0x1160…116c ptr = 0x9ec3 // 0x1160 @0x0
0x1160…116c lno = 0x07ee // 0x1162 @0x2
0x1160…116c at0004 = ╱9e╱ PROC ╱ // 0x1164 @0x4
0x1160…116c at0005 = ╱53╱S╱ // 0x1165 @0x5
0x1160…116c at0006 = ╱59╱Y╱ // 0x1166 @0x6
0x1160…116c at0007 = ╱53╱S╱ // 0x1167 @0x7
0x1160…116c at0008 = ╱47╱G╱ // 0x1168 @0x8
0x1160…116c at0009 = ╱45╱E╱ // 0x1169 @0x9
0x1160…116c at000a = ╱4d╱M╱ // 0x116a @0xa
0x1160…116c at000b = EOL // 0x116b @0xb
0x1160…116c }
0x116c…119e 9ef5 2040 A5(5)=K4;A5(8)=K5;A6(E)=K3;A7(E)=K6
0x116c…119e LineComalBin {
0x116c…119e ptr = 0x9ef5 // 0x116c @0x0
0x116c…119e lno = 0x07f8 // 0x116e @0x2
0x116c…119e at0004 = ╱41╱A╱ // 0x1170 @0x4
0x116c…119e at0005 = ╱35╱5╱ // 0x1171 @0x5
0x116c…119e at0006 = ╱ed╱(╱ // 0x1172 @0x6
0x116c…119e at0007 = ╱35╱5╱ // 0x1173 @0x7
0x116c…119e at0008 = ╱fe0000a003╱ // 0x1174 @0x8
0x116c…119e at000d = ╱ee╱)╱ // 0x1179 @0xd
0x116c…119e at000e = ╱dc╱=╱ // 0x117a @0xe
0x116c…119e at000f = ╱4b╱K╱ // 0x117b @0xf
0x116c…119e at0010 = ╱34╱4╱ // 0x117c @0x10
0x116c…119e at0011 = ╱eb╱;╱ // 0x117d @0x11
0x116c…119e at0012 = ╱41╱A╱ // 0x117e @0x12
0x116c…119e at0013 = ╱35╱5╱ // 0x117f @0x13
0x116c…119e at0014 = ╱ed╱(╱ // 0x1180 @0x14
0x116c…119e at0015 = ╱38╱8╱ // 0x1181 @0x15
0x116c…119e at0016 = ╱fe00008004╱ // 0x1182 @0x16
0x116c…119e at001b = ╱ee╱)╱ // 0x1187 @0x1b
0x116c…119e at001c = ╱dc╱=╱ // 0x1188 @0x1c
0x116c…119e at001d = ╱4b╱K╱ // 0x1189 @0x1d
0x116c…119e at001e = ╱35╱5╱ // 0x118a @0x1e
0x116c…119e at001f = ╱eb╱;╱ // 0x118b @0x1f
0x116c…119e at0020 = ╱41╱A╱ // 0x118c @0x20
0x116c…119e at0021 = ╱36╱6╱ // 0x118d @0x21
0x116c…119e at0022 = ╱ed╱(╱ // 0x118e @0x22
0x116c…119e at0023 = ╱45╱E╱ // 0x118f @0x23
0x116c…119e at0024 = ╱ee╱)╱ // 0x1190 @0x24
0x116c…119e at0025 = ╱dc╱=╱ // 0x1191 @0x25
0x116c…119e at0026 = ╱4b╱K╱ // 0x1192 @0x26
0x116c…119e at0027 = ╱33╱3╱ // 0x1193 @0x27
0x116c…119e at0028 = ╱eb╱;╱ // 0x1194 @0x28
0x116c…119e at0029 = ╱41╱A╱ // 0x1195 @0x29
0x116c…119e at002a = ╱37╱7╱ // 0x1196 @0x2a
0x116c…119e at002b = ╱ed╱(╱ // 0x1197 @0x2b
0x116c…119e at002c = ╱45╱E╱ // 0x1198 @0x2c
0x116c…119e at002d = ╱ee╱)╱ // 0x1199 @0x2d
0x116c…119e at002e = ╱dc╱=╱ // 0x119a @0x2e
0x116c…119e at002f = ╱4b╱K╱ // 0x119b @0x2f
0x116c…119e at0030 = ╱36╱6╱ // 0x119c @0x30
0x116c…119e at0031 = EOL // 0x119d @0x31
0x116c…119e }
0x119e…11a9 9f00 2050 OPEN B2$,W
0x119e…11a9 LineComalBin {
0x119e…11a9 ptr = 0x9f00 // 0x119e @0x0
0x119e…11a9 lno = 0x0802 // 0x11a0 @0x2
0x119e…11a9 at0004 = ╱a7╱ OPEN ╱ // 0x11a2 @0x4
0x119e…11a9 at0005 = ╱42╱B╱ // 0x11a3 @0x5
0x119e…11a9 at0006 = ╱32╱2╱ // 0x11a4 @0x6
0x119e…11a9 at0007 = ╱ef╱$╱ // 0x11a5 @0x7
0x119e…11a9 at0008 = ╱ec╱,╱ // 0x11a6 @0x8
0x119e…11a9 at0009 = ╱57╱W╱ // 0x11a7 @0x9
0x119e…11a9 at000a = EOL // 0x11a8 @0xa
0x119e…11a9 }
0x11a9…11bf 9f16 2060 EXEC FE(7,E,B2$)
0x11a9…11bf LineComalBin {
0x11a9…11bf ptr = 0x9f16 // 0x11a9 @0x0
0x11a9…11bf lno = 0x080c // 0x11ab @0x2
0x11a9…11bf at0004 = ╱9d╱ EXEC ╱ // 0x11ad @0x4
0x11a9…11bf at0005 = ╱46╱F╱ // 0x11ae @0x5
0x11a9…11bf at0006 = ╱45╱E╱ // 0x11af @0x6
0x11a9…11bf at0007 = ╱ed╱(╱ // 0x11b0 @0x7
0x11a9…11bf at0008 = ╱37╱7╱ // 0x11b1 @0x8
0x11a9…11bf at0009 = ╱fe0000e003╱ // 0x11b2 @0x9
0x11a9…11bf at000e = ╱ec╱,╱ // 0x11b7 @0xe
0x11a9…11bf at000f = ╱45╱E╱ // 0x11b8 @0xf
0x11a9…11bf at0010 = ╱ec╱,╱ // 0x11b9 @0x10
0x11a9…11bf at0011 = ╱42╱B╱ // 0x11ba @0x11
0x11a9…11bf at0012 = ╱32╱2╱ // 0x11bb @0x12
0x11a9…11bf at0013 = ╱ef╱$╱ // 0x11bc @0x13
0x11a9…11bf at0014 = ╱ee╱)╱ // 0x11bd @0x14
0x11a9…11bf at0015 = EOL // 0x11be @0x15
0x11a9…11bf }
0x11bf…1219 (59,) 9f70 2070 PUT B2$,G:A5(E),A5(G),A5(V),A5(4),A5(5),A5(6),A5(7),A5(8),A5(W)
0x11bf…1219 LineComalBin {
0x11bf…1219 ptr = 0x9f70 // 0x11bf @0x0
0x11bf…1219 lno = 0x0816 // 0x11c1 @0x2
0x11bf…1219 at0004 = ╱aa╱ PUT ╱ // 0x11c3 @0x4
0x11bf…1219 at0005 = ╱42╱B╱ // 0x11c4 @0x5
0x11bf…1219 at0006 = ╱32╱2╱ // 0x11c5 @0x6
0x11bf…1219 at0007 = ╱ef╱$╱ // 0x11c6 @0x7
0x11bf…1219 at0008 = ╱ec╱,╱ // 0x11c7 @0x8
0x11bf…1219 at0009 = ╱47╱G╱ // 0x11c8 @0x9
0x11bf…1219 at000a = ╱f0╱:╱ // 0x11c9 @0xa
0x11bf…1219 at000b = ╱41╱A╱ // 0x11ca @0xb
0x11bf…1219 at000c = ╱35╱5╱ // 0x11cb @0xc
0x11bf…1219 at000d = ╱ed╱(╱ // 0x11cc @0xd
0x11bf…1219 at000e = ╱45╱E╱ // 0x11cd @0xe
0x11bf…1219 at000f = ╱ee╱)╱ // 0x11ce @0xf
0x11bf…1219 at0010 = ╱ec╱,╱ // 0x11cf @0x10
0x11bf…1219 at0011 = ╱41╱A╱ // 0x11d0 @0x11
0x11bf…1219 at0012 = ╱35╱5╱ // 0x11d1 @0x12
0x11bf…1219 at0013 = ╱ed╱(╱ // 0x11d2 @0x13
0x11bf…1219 at0014 = ╱47╱G╱ // 0x11d3 @0x14
0x11bf…1219 at0015 = ╱ee╱)╱ // 0x11d4 @0x15
0x11bf…1219 at0016 = ╱ec╱,╱ // 0x11d5 @0x16
0x11bf…1219 at0017 = ╱41╱A╱ // 0x11d6 @0x17
0x11bf…1219 at0018 = ╱35╱5╱ // 0x11d7 @0x18
0x11bf…1219 at0019 = ╱ed╱(╱ // 0x11d8 @0x19
0x11bf…1219 at001a = ╱56╱V╱ // 0x11d9 @0x1a
0x11bf…1219 at001b = ╱ee╱)╱ // 0x11da @0x1b
0x11bf…1219 at001c = ╱ec╱,╱ // 0x11db @0x1c
0x11bf…1219 at001d = ╱41╱A╱ // 0x11dc @0x1d
0x11bf…1219 at001e = ╱35╱5╱ // 0x11dd @0x1e
0x11bf…1219 at001f = ╱ed╱(╱ // 0x11de @0x1f
0x11bf…1219 at0020 = ╱34╱4╱ // 0x11df @0x20
0x11bf…1219 at0021 = ╱fe00008003╱ // 0x11e0 @0x21
0x11bf…1219 at0026 = ╱ee╱)╱ // 0x11e5 @0x26
0x11bf…1219 at0027 = ╱ec╱,╱ // 0x11e6 @0x27
0x11bf…1219 at0028 = ╱41╱A╱ // 0x11e7 @0x28
0x11bf…1219 at0029 = ╱35╱5╱ // 0x11e8 @0x29
0x11bf…1219 at002a = ╱ed╱(╱ // 0x11e9 @0x2a
0x11bf…1219 at002b = ╱35╱5╱ // 0x11ea @0x2b
0x11bf…1219 at002c = ╱fe0000a003╱ // 0x11eb @0x2c
0x11bf…1219 at0031 = ╱ee╱)╱ // 0x11f0 @0x31
0x11bf…1219 at0032 = ╱ec╱,╱ // 0x11f1 @0x32
0x11bf…1219 at0033 = ╱41╱A╱ // 0x11f2 @0x33
0x11bf…1219 at0034 = ╱35╱5╱ // 0x11f3 @0x34
0x11bf…1219 at0035 = ╱ed╱(╱ // 0x11f4 @0x35
0x11bf…1219 at0036 = ╱36╱6╱ // 0x11f5 @0x36
0x11bf…1219 at0037 = ╱fe0000c003╱ // 0x11f6 @0x37
0x11bf…1219 at003c = ╱ee╱)╱ // 0x11fb @0x3c
0x11bf…1219 at003d = ╱ec╱,╱ // 0x11fc @0x3d
0x11bf…1219 at003e = ╱41╱A╱ // 0x11fd @0x3e
0x11bf…1219 at003f = ╱35╱5╱ // 0x11fe @0x3f
0x11bf…1219 at0040 = ╱ed╱(╱ // 0x11ff @0x40
0x11bf…1219 at0041 = ╱37╱7╱ // 0x1200 @0x41
0x11bf…1219 at0042 = ╱fe0000e003╱ // 0x1201 @0x42
0x11bf…1219 at0047 = ╱ee╱)╱ // 0x1206 @0x47
0x11bf…1219 at0048 = ╱ec╱,╱ // 0x1207 @0x48
0x11bf…1219 at0049 = ╱41╱A╱ // 0x1208 @0x49
0x11bf…1219 at004a = ╱35╱5╱ // 0x1209 @0x4a
0x11bf…1219 at004b = ╱ed╱(╱ // 0x120a @0x4b
0x11bf…1219 at004c = ╱38╱8╱ // 0x120b @0x4c
0x11bf…1219 at004d = ╱fe00008004╱ // 0x120c @0x4d
0x11bf…1219 at0052 = ╱ee╱)╱ // 0x1211 @0x52
0x11bf…1219 at0053 = ╱ec╱,╱ // 0x1212 @0x53
0x11bf…1219 at0054 = ╱41╱A╱ // 0x1213 @0x54
0x11bf…1219 at0055 = ╱35╱5╱ // 0x1214 @0x55
0x11bf…1219 at0056 = ╱ed╱(╱ // 0x1215 @0x56
0x11bf…1219 at0057 = ╱57╱W╱ // 0x1216 @0x57
0x11bf…1219 at0058 = ╱ee╱)╱ // 0x1217 @0x58
0x11bf…1219 at0059 = EOL // 0x1218 @0x59
0x11bf…1219 }
0x1219…122f 9f86 2080 EXEC FE(7,G,B2$)
0x1219…122f LineComalBin {
0x1219…122f ptr = 0x9f86 // 0x1219 @0x0
0x1219…122f lno = 0x0820 // 0x121b @0x2
0x1219…122f at0004 = ╱9d╱ EXEC ╱ // 0x121d @0x4
0x1219…122f at0005 = ╱46╱F╱ // 0x121e @0x5
0x1219…122f at0006 = ╱45╱E╱ // 0x121f @0x6
0x1219…122f at0007 = ╱ed╱(╱ // 0x1220 @0x7
0x1219…122f at0008 = ╱37╱7╱ // 0x1221 @0x8
0x1219…122f at0009 = ╱fe0000e003╱ // 0x1222 @0x9
0x1219…122f at000e = ╱ec╱,╱ // 0x1227 @0xe
0x1219…122f at000f = ╱47╱G╱ // 0x1228 @0xf
0x1219…122f at0010 = ╱ec╱,╱ // 0x1229 @0x10
0x1219…122f at0011 = ╱42╱B╱ // 0x122a @0x11
0x1219…122f at0012 = ╱32╱2╱ // 0x122b @0x12
0x1219…122f at0013 = ╱ef╱$╱ // 0x122c @0x13
0x1219…122f at0014 = ╱ee╱)╱ // 0x122d @0x14
0x1219…122f at0015 = EOL // 0x122e @0x15
0x1219…122f }
0x122f…128f 9fe6 2090 PUT B2$,12:A6(E),A6(G),A6(V),A6(4),A6(5),A6(6),A6(7),A6(8),A6(W)
0x122f…128f LineComalBin {
0x122f…128f ptr = 0x9fe6 // 0x122f @0x0
0x122f…128f lno = 0x082a // 0x1231 @0x2
0x122f…128f at0004 = ╱aa╱ PUT ╱ // 0x1233 @0x4
0x122f…128f at0005 = ╱42╱B╱ // 0x1234 @0x5
0x122f…128f at0006 = ╱32╱2╱ // 0x1235 @0x6
0x122f…128f at0007 = ╱ef╱$╱ // 0x1236 @0x7
0x122f…128f at0008 = ╱ec╱,╱ // 0x1237 @0x8
0x122f…128f at0009 = ╱31╱1╱ // 0x1238 @0x9
0x122f…128f at000a = ╱32╱2╱ // 0x1239 @0xa
0x122f…128f at000b = ╱fe0000c004╱ // 0x123a @0xb
0x122f…128f at0010 = ╱f0╱:╱ // 0x123f @0x10
0x122f…128f at0011 = ╱41╱A╱ // 0x1240 @0x11
0x122f…128f at0012 = ╱36╱6╱ // 0x1241 @0x12
0x122f…128f at0013 = ╱ed╱(╱ // 0x1242 @0x13
0x122f…128f at0014 = ╱45╱E╱ // 0x1243 @0x14
0x122f…128f at0015 = ╱ee╱)╱ // 0x1244 @0x15
0x122f…128f at0016 = ╱ec╱,╱ // 0x1245 @0x16
0x122f…128f at0017 = ╱41╱A╱ // 0x1246 @0x17
0x122f…128f at0018 = ╱36╱6╱ // 0x1247 @0x18
0x122f…128f at0019 = ╱ed╱(╱ // 0x1248 @0x19
0x122f…128f at001a = ╱47╱G╱ // 0x1249 @0x1a
0x122f…128f at001b = ╱ee╱)╱ // 0x124a @0x1b
0x122f…128f at001c = ╱ec╱,╱ // 0x124b @0x1c
0x122f…128f at001d = ╱41╱A╱ // 0x124c @0x1d
0x122f…128f at001e = ╱36╱6╱ // 0x124d @0x1e
0x122f…128f at001f = ╱ed╱(╱ // 0x124e @0x1f
0x122f…128f at0020 = ╱56╱V╱ // 0x124f @0x20
0x122f…128f at0021 = ╱ee╱)╱ // 0x1250 @0x21
0x122f…128f at0022 = ╱ec╱,╱ // 0x1251 @0x22
0x122f…128f at0023 = ╱41╱A╱ // 0x1252 @0x23
0x122f…128f at0024 = ╱36╱6╱ // 0x1253 @0x24
0x122f…128f at0025 = ╱ed╱(╱ // 0x1254 @0x25
0x122f…128f at0026 = ╱34╱4╱ // 0x1255 @0x26
0x122f…128f at0027 = ╱fe00008003╱ // 0x1256 @0x27
0x122f…128f at002c = ╱ee╱)╱ // 0x125b @0x2c
0x122f…128f at002d = ╱ec╱,╱ // 0x125c @0x2d
0x122f…128f at002e = ╱41╱A╱ // 0x125d @0x2e
0x122f…128f at002f = ╱36╱6╱ // 0x125e @0x2f
0x122f…128f at0030 = ╱ed╱(╱ // 0x125f @0x30
0x122f…128f at0031 = ╱35╱5╱ // 0x1260 @0x31
0x122f…128f at0032 = ╱fe0000a003╱ // 0x1261 @0x32
0x122f…128f at0037 = ╱ee╱)╱ // 0x1266 @0x37
0x122f…128f at0038 = ╱ec╱,╱ // 0x1267 @0x38
0x122f…128f at0039 = ╱41╱A╱ // 0x1268 @0x39
0x122f…128f at003a = ╱36╱6╱ // 0x1269 @0x3a
0x122f…128f at003b = ╱ed╱(╱ // 0x126a @0x3b
0x122f…128f at003c = ╱36╱6╱ // 0x126b @0x3c
0x122f…128f at003d = ╱fe0000c003╱ // 0x126c @0x3d
0x122f…128f at0042 = ╱ee╱)╱ // 0x1271 @0x42
0x122f…128f at0043 = ╱ec╱,╱ // 0x1272 @0x43
0x122f…128f at0044 = ╱41╱A╱ // 0x1273 @0x44
0x122f…128f at0045 = ╱36╱6╱ // 0x1274 @0x45
0x122f…128f at0046 = ╱ed╱(╱ // 0x1275 @0x46
0x122f…128f at0047 = ╱37╱7╱ // 0x1276 @0x47
0x122f…128f at0048 = ╱fe0000e003╱ // 0x1277 @0x48
0x122f…128f at004d = ╱ee╱)╱ // 0x127c @0x4d
0x122f…128f at004e = ╱ec╱,╱ // 0x127d @0x4e
0x122f…128f at004f = ╱41╱A╱ // 0x127e @0x4f
0x122f…128f at0050 = ╱36╱6╱ // 0x127f @0x50
0x122f…128f at0051 = ╱ed╱(╱ // 0x1280 @0x51
0x122f…128f at0052 = ╱38╱8╱ // 0x1281 @0x52
0x122f…128f at0053 = ╱fe00008004╱ // 0x1282 @0x53
0x122f…128f at0058 = ╱ee╱)╱ // 0x1287 @0x58
0x122f…128f at0059 = ╱ec╱,╱ // 0x1288 @0x59
0x122f…128f at005a = ╱41╱A╱ // 0x1289 @0x5a
0x122f…128f at005b = ╱36╱6╱ // 0x128a @0x5b
0x122f…128f at005c = ╱ed╱(╱ // 0x128b @0x5c
0x122f…128f at005d = ╱57╱W╱ // 0x128c @0x5d
0x122f…128f at005e = ╱ee╱)╱ // 0x128d @0x5e
0x122f…128f at005f = EOL // 0x128e @0x5f
0x122f…128f }
0x128f…12a5 9ffc 2100 EXEC FE(7,V,B2$)
0x128f…12a5 LineComalBin {
0x128f…12a5 ptr = 0x9ffc // 0x128f @0x0
0x128f…12a5 lno = 0x0834 // 0x1291 @0x2
0x128f…12a5 at0004 = ╱9d╱ EXEC ╱ // 0x1293 @0x4
0x128f…12a5 at0005 = ╱46╱F╱ // 0x1294 @0x5
0x128f…12a5 at0006 = ╱45╱E╱ // 0x1295 @0x6
0x128f…12a5 at0007 = ╱ed╱(╱ // 0x1296 @0x7
0x128f…12a5 at0008 = ╱37╱7╱ // 0x1297 @0x8
0x128f…12a5 at0009 = ╱fe0000e003╱ // 0x1298 @0x9
0x128f…12a5 at000e = ╱ec╱,╱ // 0x129d @0xe
0x128f…12a5 at000f = ╱56╱V╱ // 0x129e @0xf
0x128f…12a5 at0010 = ╱ec╱,╱ // 0x129f @0x10
0x128f…12a5 at0011 = ╱42╱B╱ // 0x12a0 @0x11
0x128f…12a5 at0012 = ╱32╱2╱ // 0x12a1 @0x12
0x128f…12a5 at0013 = ╱ef╱$╱ // 0x12a2 @0x13
0x128f…12a5 at0014 = ╱ee╱)╱ // 0x12a3 @0x14
0x128f…12a5 at0015 = EOL // 0x12a4 @0x15
0x128f…12a5 }
0x12a5…1305 a05c 2110 PUT B2$,13:A7(E),A7(G),A7(V),A7(4),A7(5),A7(6),A7(7),A7(8),A7(W)
0x12a5…1305 LineComalBin {
0x12a5…1305 ptr = 0xa05c // 0x12a5 @0x0
0x12a5…1305 lno = 0x083e // 0x12a7 @0x2
0x12a5…1305 at0004 = ╱aa╱ PUT ╱ // 0x12a9 @0x4
0x12a5…1305 at0005 = ╱42╱B╱ // 0x12aa @0x5
0x12a5…1305 at0006 = ╱32╱2╱ // 0x12ab @0x6
0x12a5…1305 at0007 = ╱ef╱$╱ // 0x12ac @0x7
0x12a5…1305 at0008 = ╱ec╱,╱ // 0x12ad @0x8
0x12a5…1305 at0009 = ╱31╱1╱ // 0x12ae @0x9
0x12a5…1305 at000a = ╱33╱3╱ // 0x12af @0xa
0x12a5…1305 at000b = ╱fe0000d004╱ // 0x12b0 @0xb
0x12a5…1305 at0010 = ╱f0╱:╱ // 0x12b5 @0x10
0x12a5…1305 at0011 = ╱41╱A╱ // 0x12b6 @0x11
0x12a5…1305 at0012 = ╱37╱7╱ // 0x12b7 @0x12
0x12a5…1305 at0013 = ╱ed╱(╱ // 0x12b8 @0x13
0x12a5…1305 at0014 = ╱45╱E╱ // 0x12b9 @0x14
0x12a5…1305 at0015 = ╱ee╱)╱ // 0x12ba @0x15
0x12a5…1305 at0016 = ╱ec╱,╱ // 0x12bb @0x16
0x12a5…1305 at0017 = ╱41╱A╱ // 0x12bc @0x17
0x12a5…1305 at0018 = ╱37╱7╱ // 0x12bd @0x18
0x12a5…1305 at0019 = ╱ed╱(╱ // 0x12be @0x19
0x12a5…1305 at001a = ╱47╱G╱ // 0x12bf @0x1a
0x12a5…1305 at001b = ╱ee╱)╱ // 0x12c0 @0x1b
0x12a5…1305 at001c = ╱ec╱,╱ // 0x12c1 @0x1c
0x12a5…1305 at001d = ╱41╱A╱ // 0x12c2 @0x1d
0x12a5…1305 at001e = ╱37╱7╱ // 0x12c3 @0x1e
0x12a5…1305 at001f = ╱ed╱(╱ // 0x12c4 @0x1f
0x12a5…1305 at0020 = ╱56╱V╱ // 0x12c5 @0x20
0x12a5…1305 at0021 = ╱ee╱)╱ // 0x12c6 @0x21
0x12a5…1305 at0022 = ╱ec╱,╱ // 0x12c7 @0x22
0x12a5…1305 at0023 = ╱41╱A╱ // 0x12c8 @0x23
0x12a5…1305 at0024 = ╱37╱7╱ // 0x12c9 @0x24
0x12a5…1305 at0025 = ╱ed╱(╱ // 0x12ca @0x25
0x12a5…1305 at0026 = ╱34╱4╱ // 0x12cb @0x26
0x12a5…1305 at0027 = ╱fe00008003╱ // 0x12cc @0x27
0x12a5…1305 at002c = ╱ee╱)╱ // 0x12d1 @0x2c
0x12a5…1305 at002d = ╱ec╱,╱ // 0x12d2 @0x2d
0x12a5…1305 at002e = ╱41╱A╱ // 0x12d3 @0x2e
0x12a5…1305 at002f = ╱37╱7╱ // 0x12d4 @0x2f
0x12a5…1305 at0030 = ╱ed╱(╱ // 0x12d5 @0x30
0x12a5…1305 at0031 = ╱35╱5╱ // 0x12d6 @0x31
0x12a5…1305 at0032 = ╱fe0000a003╱ // 0x12d7 @0x32
0x12a5…1305 at0037 = ╱ee╱)╱ // 0x12dc @0x37
0x12a5…1305 at0038 = ╱ec╱,╱ // 0x12dd @0x38
0x12a5…1305 at0039 = ╱41╱A╱ // 0x12de @0x39
0x12a5…1305 at003a = ╱37╱7╱ // 0x12df @0x3a
0x12a5…1305 at003b = ╱ed╱(╱ // 0x12e0 @0x3b
0x12a5…1305 at003c = ╱36╱6╱ // 0x12e1 @0x3c
0x12a5…1305 at003d = ╱fe0000c003╱ // 0x12e2 @0x3d
0x12a5…1305 at0042 = ╱ee╱)╱ // 0x12e7 @0x42
0x12a5…1305 at0043 = ╱ec╱,╱ // 0x12e8 @0x43
0x12a5…1305 at0044 = ╱41╱A╱ // 0x12e9 @0x44
0x12a5…1305 at0045 = ╱37╱7╱ // 0x12ea @0x45
0x12a5…1305 at0046 = ╱ed╱(╱ // 0x12eb @0x46
0x12a5…1305 at0047 = ╱37╱7╱ // 0x12ec @0x47
0x12a5…1305 at0048 = ╱fe0000e003╱ // 0x12ed @0x48
0x12a5…1305 at004d = ╱ee╱)╱ // 0x12f2 @0x4d
0x12a5…1305 at004e = ╱ec╱,╱ // 0x12f3 @0x4e
0x12a5…1305 at004f = ╱41╱A╱ // 0x12f4 @0x4f
0x12a5…1305 at0050 = ╱37╱7╱ // 0x12f5 @0x50
0x12a5…1305 at0051 = ╱ed╱(╱ // 0x12f6 @0x51
0x12a5…1305 at0052 = ╱38╱8╱ // 0x12f7 @0x52
0x12a5…1305 at0053 = ╱fe00008004╱ // 0x12f8 @0x53
0x12a5…1305 at0058 = ╱ee╱)╱ // 0x12fd @0x58
0x12a5…1305 at0059 = ╱ec╱,╱ // 0x12fe @0x59
0x12a5…1305 at005a = ╱41╱A╱ // 0x12ff @0x5a
0x12a5…1305 at005b = ╱37╱7╱ // 0x1300 @0x5b
0x12a5…1305 at005c = ╱ed╱(╱ // 0x1301 @0x5c
0x12a5…1305 at005d = ╱57╱W╱ // 0x1302 @0x5d
0x12a5…1305 at005e = ╱ee╱)╱ // 0x1303 @0x5e
0x12a5…1305 at005f = EOL // 0x1304 @0x5f
0x12a5…1305 }
0x1305…1320 a077 2120 EXEC FE(7,4,B2$)
0x1305…1320 LineComalBin {
0x1305…1320 ptr = 0xa077 // 0x1305 @0x0
0x1305…1320 lno = 0x0848 // 0x1307 @0x2
0x1305…1320 at0004 = ╱9d╱ EXEC ╱ // 0x1309 @0x4
0x1305…1320 at0005 = ╱46╱F╱ // 0x130a @0x5
0x1305…1320 at0006 = ╱45╱E╱ // 0x130b @0x6
0x1305…1320 at0007 = ╱ed╱(╱ // 0x130c @0x7
0x1305…1320 at0008 = ╱37╱7╱ // 0x130d @0x8
0x1305…1320 at0009 = ╱fe0000e003╱ // 0x130e @0x9
0x1305…1320 at000e = ╱ec╱,╱ // 0x1313 @0xe
0x1305…1320 at000f = ╱34╱4╱ // 0x1314 @0xf
0x1305…1320 at0010 = ╱fe00008003╱ // 0x1315 @0x10
0x1305…1320 at0015 = ╱ec╱,╱ // 0x131a @0x15
0x1305…1320 at0016 = ╱42╱B╱ // 0x131b @0x16
0x1305…1320 at0017 = ╱32╱2╱ // 0x131c @0x17
0x1305…1320 at0018 = ╱ef╱$╱ // 0x131d @0x18
0x1305…1320 at0019 = ╱ee╱)╱ // 0x131e @0x19
0x1305…1320 at001a = EOL // 0x131f @0x1a
0x1305…1320 }
0x1320…1329 a080 2130 CLOSE B2$
0x1320…1329 LineComalBin {
0x1320…1329 ptr = 0xa080 // 0x1320 @0x0
0x1320…1329 lno = 0x0852 // 0x1322 @0x2
0x1320…1329 at0004 = ╱a8╱ CLOSE ╱ // 0x1324 @0x4
0x1320…1329 at0005 = ╱42╱B╱ // 0x1325 @0x5
0x1320…1329 at0006 = ╱32╱2╱ // 0x1326 @0x6
0x1320…1329 at0007 = ╱ef╱$╱ // 0x1327 @0x7
0x1320…1329 at0008 = EOL // 0x1328 @0x8
0x1320…1329 }
0x1329…1344 a09b 2140 EXEC FE(7,5,B2$)
0x1329…1344 LineComalBin {
0x1329…1344 ptr = 0xa09b // 0x1329 @0x0
0x1329…1344 lno = 0x085c // 0x132b @0x2
0x1329…1344 at0004 = ╱9d╱ EXEC ╱ // 0x132d @0x4
0x1329…1344 at0005 = ╱46╱F╱ // 0x132e @0x5
0x1329…1344 at0006 = ╱45╱E╱ // 0x132f @0x6
0x1329…1344 at0007 = ╱ed╱(╱ // 0x1330 @0x7
0x1329…1344 at0008 = ╱37╱7╱ // 0x1331 @0x8
0x1329…1344 at0009 = ╱fe0000e003╱ // 0x1332 @0x9
0x1329…1344 at000e = ╱ec╱,╱ // 0x1337 @0xe
0x1329…1344 at000f = ╱35╱5╱ // 0x1338 @0xf
0x1329…1344 at0010 = ╱fe0000a003╱ // 0x1339 @0x10
0x1329…1344 at0015 = ╱ec╱,╱ // 0x133e @0x15
0x1329…1344 at0016 = ╱42╱B╱ // 0x133f @0x16
0x1329…1344 at0017 = ╱32╱2╱ // 0x1340 @0x17
0x1329…1344 at0018 = ╱ef╱$╱ // 0x1341 @0x18
0x1329…1344 at0019 = ╱ee╱)╱ // 0x1342 @0x19
0x1329…1344 at001a = EOL // 0x1343 @0x1a
0x1329…1344 }
0x1344…134a a0a1 2150 ENDPROC
0x1344…134a LineComalBin {
0x1344…134a ptr = 0xa0a1 // 0x1344 @0x0
0x1344…134a lno = 0x0866 // 0x1346 @0x2
0x1344…134a at0004 = ╱9f╱ ENDPROC ╱ // 0x1348 @0x4
0x1344…134a at0005 = EOL // 0x1349 @0x5
0x1344…134a }
0x134a…1354 a0ab 2160 PROC KNOK
0x134a…1354 LineComalBin {
0x134a…1354 ptr = 0xa0ab // 0x134a @0x0
0x134a…1354 lno = 0x0870 // 0x134c @0x2
0x134a…1354 at0004 = ╱9e╱ PROC ╱ // 0x134e @0x4
0x134a…1354 at0005 = ╱4b╱K╱ // 0x134f @0x5
0x134a…1354 at0006 = ╱4e╱N╱ // 0x1350 @0x6
0x134a…1354 at0007 = ╱4f╱O╱ // 0x1351 @0x7
0x134a…1354 at0008 = ╱4b╱K╱ // 0x1352 @0x8
0x134a…1354 at0009 = EOL // 0x1353 @0x9
0x134a…1354 }
0x1354…1364 a0bb 2170 EXEC KTNV(K7,P)
0x1354…1364 LineComalBin {
0x1354…1364 ptr = 0xa0bb // 0x1354 @0x0
0x1354…1364 lno = 0x087a // 0x1356 @0x2
0x1354…1364 at0004 = ╱9d╱ EXEC ╱ // 0x1358 @0x4
0x1354…1364 at0005 = ╱4b╱K╱ // 0x1359 @0x5
0x1354…1364 at0006 = ╱54╱T╱ // 0x135a @0x6
0x1354…1364 at0007 = ╱4e╱N╱ // 0x135b @0x7
0x1354…1364 at0008 = ╱56╱V╱ // 0x135c @0x8
0x1354…1364 at0009 = ╱ed╱(╱ // 0x135d @0x9
0x1354…1364 at000a = ╱4b╱K╱ // 0x135e @0xa
0x1354…1364 at000b = ╱37╱7╱ // 0x135f @0xb
0x1354…1364 at000c = ╱ec╱,╱ // 0x1360 @0xc
0x1354…1364 at000d = ╱50╱P╱ // 0x1361 @0xd
0x1354…1364 at000e = ╱ee╱)╱ // 0x1362 @0xe
0x1354…1364 at000f = EOL // 0x1363 @0xf
0x1354…1364 }
0x1364…1379 a0d0 2180 CURSOR 25,23
0x1364…1379 LineComalBin {
0x1364…1379 ptr = 0xa0d0 // 0x1364 @0x0
0x1364…1379 lno = 0x0884 // 0x1366 @0x2
0x1364…1379 at0004 = ╱a1╱ CURSOR ╱ // 0x1368 @0x4
0x1364…1379 at0005 = ╱32╱2╱ // 0x1369 @0x5
0x1364…1379 at0006 = ╱35╱5╱ // 0x136a @0x6
0x1364…1379 at0007 = ╱fe0000c805╱ // 0x136b @0x7
0x1364…1379 at000c = ╱ec╱,╱ // 0x1370 @0xc
0x1364…1379 at000d = ╱32╱2╱ // 0x1371 @0xd
0x1364…1379 at000e = ╱33╱3╱ // 0x1372 @0xe
0x1364…1379 at000f = ╱fe0000b805╱ // 0x1373 @0xf
0x1364…1379 at0014 = EOL // 0x1378 @0x14
0x1364…1379 }
0x1379…1398 a0ef 2190 PRINT A2$;E2$(E:30-LEN(A2$))
0x1379…1398 LineComalBin {
0x1379…1398 ptr = 0xa0ef // 0x1379 @0x0
0x1379…1398 lno = 0x088e // 0x137b @0x2
0x1379…1398 at0004 = ╱92╱ PRINT ╱ // 0x137d @0x4
0x1379…1398 at0005 = ╱41╱A╱ // 0x137e @0x5
0x1379…1398 at0006 = ╱32╱2╱ // 0x137f @0x6
0x1379…1398 at0007 = ╱ef╱$╱ // 0x1380 @0x7
0x1379…1398 at0008 = ╱eb╱;╱ // 0x1381 @0x8
0x1379…1398 at0009 = ╱45╱E╱ // 0x1382 @0x9
0x1379…1398 at000a = ╱32╱2╱ // 0x1383 @0xa
0x1379…1398 at000b = ╱ef╱$╱ // 0x1384 @0xb
0x1379…1398 at000c = ╱ed╱(╱ // 0x1385 @0xc
0x1379…1398 at000d = ╱45╱E╱ // 0x1386 @0xd
0x1379…1398 at000e = ╱f0╱:╱ // 0x1387 @0xe
0x1379…1398 at000f = ╱33╱3╱ // 0x1388 @0xf
0x1379…1398 at0010 = ╱30╱0╱ // 0x1389 @0x10
0x1379…1398 at0011 = ╱fe0000f005╱ // 0x138a @0x11
0x1379…1398 at0016 = ╱e3╱-╱ // 0x138f @0x16
0x1379…1398 at0017 = ╱cc╱LEN╱ // 0x1390 @0x17
0x1379…1398 at0018 = ╱ed╱(╱ // 0x1391 @0x18
0x1379…1398 at0019 = ╱41╱A╱ // 0x1392 @0x19
0x1379…1398 at001a = ╱32╱2╱ // 0x1393 @0x1a
0x1379…1398 at001b = ╱ef╱$╱ // 0x1394 @0x1b
0x1379…1398 at001c = ╱ee╱)╱ // 0x1395 @0x1c
0x1379…1398 at001d = ╱ee╱)╱ // 0x1396 @0x1d
0x1379…1398 at001e = EOL // 0x1397 @0x1e
0x1379…1398 }
0x1398…139e a0f5 2200 REPEAT
0x1398…139e LineComalBin {
0x1398…139e ptr = 0xa0f5 // 0x1398 @0x0
0x1398…139e lno = 0x0898 // 0x139a @0x2
0x1398…139e at0004 = ╱97╱ REPEAT ╱ // 0x139c @0x4
0x1398…139e at0005 = EOL // 0x139d @0x5
0x1398…139e }
0x139e…13b3 a10a 2210 CURSOR 55,23
0x139e…13b3 LineComalBin {
0x139e…13b3 ptr = 0xa10a // 0x139e @0x0
0x139e…13b3 lno = 0x08a2 // 0x13a0 @0x2
0x139e…13b3 at0004 = ╱a1╱ CURSOR ╱ // 0x13a2 @0x4
0x139e…13b3 at0005 = ╱35╱5╱ // 0x13a3 @0x5
0x139e…13b3 at0006 = ╱35╱5╱ // 0x13a4 @0x6
0x139e…13b3 at0007 = ╱fe0000dc06╱ // 0x13a5 @0x7
0x139e…13b3 at000c = ╱ec╱,╱ // 0x13aa @0xc
0x139e…13b3 at000d = ╱32╱2╱ // 0x13ab @0xd
0x139e…13b3 at000e = ╱33╱3╱ // 0x13ac @0xe
0x139e…13b3 at000f = ╱fe0000b805╱ // 0x13ad @0xf
0x139e…13b3 at0014 = EOL // 0x13b2 @0x14
0x139e…13b3 }
0x13b3…13cf a126 2220 PRINT "Rigtig konto (J/N) "
0x13b3…13cf LineComalBin {
0x13b3…13cf ptr = 0xa126 // 0x13b3 @0x0
0x13b3…13cf lno = 0x08ac // 0x13b5 @0x2
0x13b3…13cf at0004 = ╱92╱ PRINT ╱ // 0x13b7 @0x4
0x13b3…13cf at0005 = ╱22╱"╱ // 0x13b8 @0x5
0x13b3…13cf at0006 = ╱52╱R╱ // 0x13b9 @0x6
0x13b3…13cf at0007 = ╱69╱i╱ // 0x13ba @0x7
0x13b3…13cf at0008 = ╱67╱g╱ // 0x13bb @0x8
0x13b3…13cf at0009 = ╱74╱t╱ // 0x13bc @0x9
0x13b3…13cf at000a = ╱69╱i╱ // 0x13bd @0xa
0x13b3…13cf at000b = ╱67╱g╱ // 0x13be @0xb
0x13b3…13cf at000c = ╱20╱…╱ // 0x13bf @0xc
0x13b3…13cf at000d = ╱6b╱k╱ // 0x13c0 @0xd
0x13b3…13cf at000e = ╱6f╱o╱ // 0x13c1 @0xe
0x13b3…13cf at000f = ╱6e╱n╱ // 0x13c2 @0xf
0x13b3…13cf at0010 = ╱74╱t╱ // 0x13c3 @0x10
0x13b3…13cf at0011 = ╱6f╱o╱ // 0x13c4 @0x11
0x13b3…13cf at0012 = ╱20╱…╱ // 0x13c5 @0x12
0x13b3…13cf at0013 = ╱28╱(╱ // 0x13c6 @0x13
0x13b3…13cf at0014 = ╱4a╱J╱ // 0x13c7 @0x14
0x13b3…13cf at0015 = ╱2f╱/╱ // 0x13c8 @0x15
0x13b3…13cf at0016 = ╱4e╱N╱ // 0x13c9 @0x16
0x13b3…13cf at0017 = ╱29╱)╱ // 0x13ca @0x17
0x13b3…13cf at0018 = ╱20╱…╱ // 0x13cb @0x18
0x13b3…13cf at0019 = ╱20╱…╱ // 0x13cc @0x19
0x13b3…13cf at001a = ╱22╱"╱ // 0x13cd @0x1a
0x13b3…13cf at001b = EOL // 0x13ce @0x1b
0x13b3…13cf }
0x13cf…13e4 a13b 2230 CURSOR 75,23
0x13cf…13e4 LineComalBin {
0x13cf…13e4 ptr = 0xa13b // 0x13cf @0x0
0x13cf…13e4 lno = 0x08b6 // 0x13d1 @0x2
0x13cf…13e4 at0004 = ╱a1╱ CURSOR ╱ // 0x13d3 @0x4
0x13cf…13e4 at0005 = ╱37╱7╱ // 0x13d4 @0x5
0x13cf…13e4 at0006 = ╱35╱5╱ // 0x13d5 @0x6
0x13cf…13e4 at0007 = ╱fe00009607╱ // 0x13d6 @0x7
0x13cf…13e4 at000c = ╱ec╱,╱ // 0x13db @0xc
0x13cf…13e4 at000d = ╱32╱2╱ // 0x13dc @0xd
0x13cf…13e4 at000e = ╱33╱3╱ // 0x13dd @0xe
0x13cf…13e4 at000f = ╱fe0000b805╱ // 0x13de @0xf
0x13cf…13e4 at0014 = EOL // 0x13e3 @0x14
0x13cf…13e4 }
0x13e4…13ec a143 2240 INPUT A$
0x13e4…13ec LineComalBin {
0x13e4…13ec ptr = 0xa143 // 0x13e4 @0x0
0x13e4…13ec lno = 0x08c0 // 0x13e6 @0x2
0x13e4…13ec at0004 = ╱91╱ INPUT ╱ // 0x13e8 @0x4
0x13e4…13ec at0005 = ╱41╱A╱ // 0x13e9 @0x5
0x13e4…13ec at0006 = ╱ef╱$╱ // 0x13ea @0x6
0x13e4…13ec at0007 = EOL // 0x13eb @0x7
0x13e4…13ec }
0x13ec…13fc a153 2250 EXEC NRTEST(A$)
0x13ec…13fc LineComalBin {
0x13ec…13fc ptr = 0xa153 // 0x13ec @0x0
0x13ec…13fc lno = 0x08ca // 0x13ee @0x2
0x13ec…13fc at0004 = ╱9d╱ EXEC ╱ // 0x13f0 @0x4
0x13ec…13fc at0005 = ╱4e╱N╱ // 0x13f1 @0x5
0x13ec…13fc at0006 = ╱52╱R╱ // 0x13f2 @0x6
0x13ec…13fc at0007 = ╱54╱T╱ // 0x13f3 @0x7
0x13ec…13fc at0008 = ╱45╱E╱ // 0x13f4 @0x8
0x13ec…13fc at0009 = ╱53╱S╱ // 0x13f5 @0x9
0x13ec…13fc at000a = ╱54╱T╱ // 0x13f6 @0xa
0x13ec…13fc at000b = ╱ed╱(╱ // 0x13f7 @0xb
0x13ec…13fc at000c = ╱41╱A╱ // 0x13f8 @0xc
0x13ec…13fc at000d = ╱ef╱$╱ // 0x13f9 @0xd
0x13ec…13fc at000e = ╱ee╱)╱ // 0x13fa @0xe
0x13ec…13fc at000f = EOL // 0x13fb @0xf
0x13ec…13fc }
0x13fc…1415 a16c 2260 UNTIL P=-7 OR P=-8
0x13fc…1415 LineComalBin {
0x13fc…1415 ptr = 0xa16c // 0x13fc @0x0
0x13fc…1415 lno = 0x08d4 // 0x13fe @0x2
0x13fc…1415 at0004 = ╱98╱ UNTIL ╱ // 0x1400 @0x4
0x13fc…1415 at0005 = ╱50╱P╱ // 0x1401 @0x5
0x13fc…1415 at0006 = ╱dc╱=╱ // 0x1402 @0x6
0x13fc…1415 at0007 = ╱e9╱-╱ // 0x1403 @0x7
0x13fc…1415 at0008 = ╱37╱7╱ // 0x1404 @0x8
0x13fc…1415 at0009 = ╱fe0000e003╱ // 0x1405 @0x9
0x13fc…1415 at000e = ╱db╱ OR ╱ // 0x140a @0xe
0x13fc…1415 at000f = ╱50╱P╱ // 0x140b @0xf
0x13fc…1415 at0010 = ╱dc╱=╱ // 0x140c @0x10
0x13fc…1415 at0011 = ╱e9╱-╱ // 0x140d @0x11
0x13fc…1415 at0012 = ╱38╱8╱ // 0x140e @0x12
0x13fc…1415 at0013 = ╱fe00008004╱ // 0x140f @0x13
0x13fc…1415 at0018 = EOL // 0x1414 @0x18
0x13fc…1415 }
0x1415…141b a172 2270 ENDPROC
0x1415…141b LineComalBin {
0x1415…141b ptr = 0xa172 // 0x1415 @0x0
0x1415…141b lno = 0x08de // 0x1417 @0x2
0x1415…141b at0004 = ╱9f╱ ENDPROC ╱ // 0x1419 @0x4
0x1415…141b at0005 = EOL // 0x141a @0x5
0x1415…141b }
0x141b…142c a183 2280 PROC ENTKOOK(K8)
0x141b…142c LineComalBin {
0x141b…142c ptr = 0xa183 // 0x141b @0x0
0x141b…142c lno = 0x08e8 // 0x141d @0x2
0x141b…142c at0004 = ╱9e╱ PROC ╱ // 0x141f @0x4
0x141b…142c at0005 = ╱45╱E╱ // 0x1420 @0x5
0x141b…142c at0006 = ╱4e╱N╱ // 0x1421 @0x6
0x141b…142c at0007 = ╱54╱T╱ // 0x1422 @0x7
0x141b…142c at0008 = ╱4b╱K╱ // 0x1423 @0x8
0x141b…142c at0009 = ╱4f╱O╱ // 0x1424 @0x9
0x141b…142c at000a = ╱4f╱O╱ // 0x1425 @0xa
0x141b…142c at000b = ╱4b╱K╱ // 0x1426 @0xb
0x141b…142c at000c = ╱ed╱(╱ // 0x1427 @0xc
0x141b…142c at000d = ╱4b╱K╱ // 0x1428 @0xd
0x141b…142c at000e = ╱38╱8╱ // 0x1429 @0xe
0x141b…142c at000f = ╱ee╱)╱ // 0x142a @0xf
0x141b…142c at0010 = EOL // 0x142b @0x10
0x141b…142c }
0x142c…1454 a1ab 2290 A1$="Konto eksisterer ikke";A3$=E2$
0x142c…1454 LineComalBin {
0x142c…1454 ptr = 0xa1ab // 0x142c @0x0
0x142c…1454 lno = 0x08f2 // 0x142e @0x2
0x142c…1454 at0004 = ╱41╱A╱ // 0x1430 @0x4
0x142c…1454 at0005 = ╱31╱1╱ // 0x1431 @0x5
0x142c…1454 at0006 = ╱ef╱$╱ // 0x1432 @0x6
0x142c…1454 at0007 = ╱dc╱=╱ // 0x1433 @0x7
0x142c…1454 at0008 = ╱22╱"╱ // 0x1434 @0x8
0x142c…1454 at0009 = ╱4b╱K╱ // 0x1435 @0x9
0x142c…1454 at000a = ╱6f╱o╱ // 0x1436 @0xa
0x142c…1454 at000b = ╱6e╱n╱ // 0x1437 @0xb
0x142c…1454 at000c = ╱74╱t╱ // 0x1438 @0xc
0x142c…1454 at000d = ╱6f╱o╱ // 0x1439 @0xd
0x142c…1454 at000e = ╱20╱…╱ // 0x143a @0xe
0x142c…1454 at000f = ╱65╱e╱ // 0x143b @0xf
0x142c…1454 at0010 = ╱6b╱k╱ // 0x143c @0x10
0x142c…1454 at0011 = ╱73╱s╱ // 0x143d @0x11
0x142c…1454 at0012 = ╱69╱i╱ // 0x143e @0x12
0x142c…1454 at0013 = ╱73╱s╱ // 0x143f @0x13
0x142c…1454 at0014 = ╱74╱t╱ // 0x1440 @0x14
0x142c…1454 at0015 = ╱65╱e╱ // 0x1441 @0x15
0x142c…1454 at0016 = ╱72╱r╱ // 0x1442 @0x16
0x142c…1454 at0017 = ╱65╱e╱ // 0x1443 @0x17
0x142c…1454 at0018 = ╱72╱r╱ // 0x1444 @0x18
0x142c…1454 at0019 = ╱20╱…╱ // 0x1445 @0x19
0x142c…1454 at001a = ╱69╱i╱ // 0x1446 @0x1a
0x142c…1454 at001b = ╱6b╱k╱ // 0x1447 @0x1b
0x142c…1454 at001c = ╱6b╱k╱ // 0x1448 @0x1c
0x142c…1454 at001d = ╱65╱e╱ // 0x1449 @0x1d
0x142c…1454 at001e = ╱22╱"╱ // 0x144a @0x1e
0x142c…1454 at001f = ╱eb╱;╱ // 0x144b @0x1f
0x142c…1454 at0020 = ╱41╱A╱ // 0x144c @0x20
0x142c…1454 at0021 = ╱33╱3╱ // 0x144d @0x21
0x142c…1454 at0022 = ╱ef╱$╱ // 0x144e @0x22
0x142c…1454 at0023 = ╱dc╱=╱ // 0x144f @0x23
0x142c…1454 at0024 = ╱45╱E╱ // 0x1450 @0x24
0x142c…1454 at0025 = ╱32╱2╱ // 0x1451 @0x25
0x142c…1454 at0026 = ╱ef╱$╱ // 0x1452 @0x26
0x142c…1454 at0027 = EOL // 0x1453 @0x27
0x142c…1454 }
0x1454…1482 a1d9 2300 EXEC FINDPOST1(K9,F7,L0,(K8 DIV 100),F9,E6$)
0x1454…1482 LineComalBin {
0x1454…1482 ptr = 0xa1d9 // 0x1454 @0x0
0x1454…1482 lno = 0x08fc // 0x1456 @0x2
0x1454…1482 at0004 = ╱9d╱ EXEC ╱ // 0x1458 @0x4
0x1454…1482 at0005 = ╱46╱F╱ // 0x1459 @0x5
0x1454…1482 at0006 = ╱49╱I╱ // 0x145a @0x6
0x1454…1482 at0007 = ╱4e╱N╱ // 0x145b @0x7
0x1454…1482 at0008 = ╱44╱D╱ // 0x145c @0x8
0x1454…1482 at0009 = ╱50╱P╱ // 0x145d @0x9
0x1454…1482 at000a = ╱4f╱O╱ // 0x145e @0xa
0x1454…1482 at000b = ╱53╱S╱ // 0x145f @0xb
0x1454…1482 at000c = ╱54╱T╱ // 0x1460 @0xc
0x1454…1482 at000d = ╱31╱1╱ // 0x1461 @0xd
0x1454…1482 at000e = ╱ed╱(╱ // 0x1462 @0xe
0x1454…1482 at000f = ╱4b╱K╱ // 0x1463 @0xf
0x1454…1482 at0010 = ╱39╱9╱ // 0x1464 @0x10
0x1454…1482 at0011 = ╱ec╱,╱ // 0x1465 @0x11
0x1454…1482 at0012 = ╱46╱F╱ // 0x1466 @0x12
0x1454…1482 at0013 = ╱37╱7╱ // 0x1467 @0x13
0x1454…1482 at0014 = ╱ec╱,╱ // 0x1468 @0x14
0x1454…1482 at0015 = ╱4c╱L╱ // 0x1469 @0x15
0x1454…1482 at0016 = ╱30╱0╱ // 0x146a @0x16
0x1454…1482 at0017 = ╱ec╱,╱ // 0x146b @0x17
0x1454…1482 at0018 = ╱ed╱(╱ // 0x146c @0x18
0x1454…1482 at0019 = ╱4b╱K╱ // 0x146d @0x19
0x1454…1482 at001a = ╱38╱8╱ // 0x146e @0x1a
0x1454…1482 at001b = ╱e7╱ DIV ╱ // 0x146f @0x1b
0x1454…1482 at001c = ╱31╱1╱ // 0x1470 @0x1c
0x1454…1482 at001d = ╱30╱0╱ // 0x1471 @0x1d
0x1454…1482 at001e = ╱30╱0╱ // 0x1472 @0x1e
0x1454…1482 at001f = ╱fe0000c807╱ // 0x1473 @0x1f
0x1454…1482 at0024 = ╱ee╱)╱ // 0x1478 @0x24
0x1454…1482 at0025 = ╱ec╱,╱ // 0x1479 @0x25
0x1454…1482 at0026 = ╱46╱F╱ // 0x147a @0x26
0x1454…1482 at0027 = ╱39╱9╱ // 0x147b @0x27
0x1454…1482 at0028 = ╱ec╱,╱ // 0x147c @0x28
0x1454…1482 at0029 = ╱45╱E╱ // 0x147d @0x29
0x1454…1482 at002a = ╱36╱6╱ // 0x147e @0x2a
0x1454…1482 at002b = ╱ef╱$╱ // 0x147f @0x2b
0x1454…1482 at002c = ╱ee╱)╱ // 0x1480 @0x2c
0x1454…1482 at002d = EOL // 0x1481 @0x2d
0x1454…1482 }
0x1482…148d a1e4 2310 IF F5=B THEN
0x1482…148d LineComalBin {
0x1482…148d ptr = 0xa1e4 // 0x1482 @0x0
0x1482…148d lno = 0x0906 // 0x1484 @0x2
0x1482…148d at0004 = ╱9c╱ IF ╱ // 0x1486 @0x4
0x1482…148d at0005 = ╱46╱F╱ // 0x1487 @0x5
0x1482…148d at0006 = ╱35╱5╱ // 0x1488 @0x6
0x1482…148d at0007 = ╱dc╱=╱ // 0x1489 @0x7
0x1482…148d at0008 = ╱42╱B╱ // 0x148a @0x8
0x1482…148d at0009 = ╱b6╱ THEN ╱ // 0x148b @0x9
0x1482…148d at000a = EOL // 0x148c @0xa
0x1482…148d }
0x148d…149d a1f4 2320 FOR L1=E TO L2+L3
0x148d…149d LineComalBin {
0x148d…149d ptr = 0xa1f4 // 0x148d @0x0
0x148d…149d lno = 0x0910 // 0x148f @0x2
0x148d…149d at0004 = ╱83╱ FOR ╱ // 0x1491 @0x4
0x148d…149d at0005 = ╱4c╱L╱ // 0x1492 @0x5
0x148d…149d at0006 = ╱31╱1╱ // 0x1493 @0x6
0x148d…149d at0007 = ╱dc╱=╱ // 0x1494 @0x7
0x148d…149d at0008 = ╱45╱E╱ // 0x1495 @0x8
0x148d…149d at0009 = ╱b7╱ TO ╱ // 0x1496 @0x9
0x148d…149d at000a = ╱4c╱L╱ // 0x1497 @0xa
0x148d…149d at000b = ╱32╱2╱ // 0x1498 @0xb
0x148d…149d at000c = ╱e2╱+╱ // 0x1499 @0xc
0x148d…149d at000d = ╱4c╱L╱ // 0x149a @0xd
0x148d…149d at000e = ╱33╱3╱ // 0x149b @0xe
0x148d…149d at000f = EOL // 0x149c @0xf
0x148d…149d }
0x149d…14a6 a1fd 2330 F5=B
0x149d…14a6 LineComalBin {
0x149d…14a6 ptr = 0xa1fd // 0x149d @0x0
0x149d…14a6 lno = 0x091a // 0x149f @0x2
0x149d…14a6 at0004 = ╱46╱F╱ // 0x14a1 @0x4
0x149d…14a6 at0005 = ╱35╱5╱ // 0x14a2 @0x5
0x149d…14a6 at0006 = ╱dc╱=╱ // 0x14a3 @0x6
0x149d…14a6 at0007 = ╱42╱B╱ // 0x14a4 @0x7
0x149d…14a6 at0008 = EOL // 0x14a5 @0x8
0x149d…14a6 }
0x14a6…14ce a225 2340 IF (K8 MOD 100)=L4(L1) AND L5$(L1)="0" THEN EXIT
0x14a6…14ce LineComalBin {
0x14a6…14ce ptr = 0xa225 // 0x14a6 @0x0
0x14a6…14ce lno = 0x0924 // 0x14a8 @0x2
0x14a6…14ce at0004 = ╱82╱ IF ╱ // 0x14aa @0x4
0x14a6…14ce at0005 = ╱ed╱(╱ // 0x14ab @0x5
0x14a6…14ce at0006 = ╱4b╱K╱ // 0x14ac @0x6
0x14a6…14ce at0007 = ╱38╱8╱ // 0x14ad @0x7
0x14a6…14ce at0008 = ╱e8╱ MOD ╱ // 0x14ae @0x8
0x14a6…14ce at0009 = ╱31╱1╱ // 0x14af @0x9
0x14a6…14ce at000a = ╱30╱0╱ // 0x14b0 @0xa
0x14a6…14ce at000b = ╱30╱0╱ // 0x14b1 @0xb
0x14a6…14ce at000c = ╱fe0000c807╱ // 0x14b2 @0xc
0x14a6…14ce at0011 = ╱ee╱)╱ // 0x14b7 @0x11
0x14a6…14ce at0012 = ╱dc╱=╱ // 0x14b8 @0x12
0x14a6…14ce at0013 = ╱4c╱L╱ // 0x14b9 @0x13
0x14a6…14ce at0014 = ╱34╱4╱ // 0x14ba @0x14
0x14a6…14ce at0015 = ╱ed╱(╱ // 0x14bb @0x15
0x14a6…14ce at0016 = ╱4c╱L╱ // 0x14bc @0x16
0x14a6…14ce at0017 = ╱31╱1╱ // 0x14bd @0x17
0x14a6…14ce at0018 = ╱ee╱)╱ // 0x14be @0x18
0x14a6…14ce at0019 = ╱da╱ AND ╱ // 0x14bf @0x19
0x14a6…14ce at001a = ╱4c╱L╱ // 0x14c0 @0x1a
0x14a6…14ce at001b = ╱35╱5╱ // 0x14c1 @0x1b
0x14a6…14ce at001c = ╱ef╱$╱ // 0x14c2 @0x1c
0x14a6…14ce at001d = ╱ed╱(╱ // 0x14c3 @0x1d
0x14a6…14ce at001e = ╱4c╱L╱ // 0x14c4 @0x1e
0x14a6…14ce at001f = ╱31╱1╱ // 0x14c5 @0x1f
0x14a6…14ce at0020 = ╱ee╱)╱ // 0x14c6 @0x20
0x14a6…14ce at0021 = ╱dc╱=╱ // 0x14c7 @0x21
0x14a6…14ce at0022 = ╱22╱"╱ // 0x14c8 @0x22
0x14a6…14ce at0023 = ╱30╱0╱ // 0x14c9 @0x23
0x14a6…14ce at0024 = ╱22╱"╱ // 0x14ca @0x24
0x14a6…14ce at0025 = ╱b6╱ THEN ╱ // 0x14cb @0x25
0x14a6…14ce at0026 = ╱99╱ EXIT ╱ // 0x14cc @0x26
0x14a6…14ce at0027 = EOL // 0x14cd @0x27
0x14a6…14ce }
0x14ce…14d7 a22e 2350 F5=E
0x14ce…14d7 LineComalBin {
0x14ce…14d7 ptr = 0xa22e // 0x14ce @0x0
0x14ce…14d7 lno = 0x092e // 0x14d0 @0x2
0x14ce…14d7 at0004 = ╱46╱F╱ // 0x14d2 @0x4
0x14ce…14d7 at0005 = ╱35╱5╱ // 0x14d3 @0x5
0x14ce…14d7 at0006 = ╱dc╱=╱ // 0x14d4 @0x6
0x14ce…14d7 at0007 = ╱45╱E╱ // 0x14d5 @0x7
0x14ce…14d7 at0008 = EOL // 0x14d6 @0x8
0x14ce…14d7 }
0x14d7…14df a236 2360 NEXT L1
0x14d7…14df LineComalBin {
0x14d7…14df ptr = 0xa236 // 0x14d7 @0x0
0x14d7…14df lno = 0x0938 // 0x14d9 @0x2
0x14d7…14df at0004 = ╱84╱ NEXT ╱ // 0x14db @0x4
0x14d7…14df at0005 = ╱4c╱L╱ // 0x14dc @0x5
0x14d7…14df at0006 = ╱31╱1╱ // 0x14dd @0x6
0x14d7…14df at0007 = EOL // 0x14de @0x7
0x14d7…14df }
0x14df…14ea a241 2370 IF F5=B THEN
0x14df…14ea LineComalBin {
0x14df…14ea ptr = 0xa241 // 0x14df @0x0
0x14df…14ea lno = 0x0942 // 0x14e1 @0x2
0x14df…14ea at0004 = ╱9c╱ IF ╱ // 0x14e3 @0x4
0x14df…14ea at0005 = ╱46╱F╱ // 0x14e4 @0x5
0x14df…14ea at0006 = ╱35╱5╱ // 0x14e5 @0x6
0x14df…14ea at0007 = ╱dc╱=╱ // 0x14e6 @0x7
0x14df…14ea at0008 = ╱42╱B╱ // 0x14e7 @0x8
0x14df…14ea at0009 = ╱b6╱ THEN ╱ // 0x14e8 @0x9
0x14df…14ea at000a = EOL // 0x14e9 @0xa
0x14df…14ea }
0x14ea…1502 a259 2380 GET B4$,F7(F9,G)+E:A1$
0x14ea…1502 LineComalBin {
0x14ea…1502 ptr = 0xa259 // 0x14ea @0x0
0x14ea…1502 lno = 0x094c // 0x14ec @0x2
0x14ea…1502 at0004 = ╱a9╱ GET ╱ // 0x14ee @0x4
0x14ea…1502 at0005 = ╱42╱B╱ // 0x14ef @0x5
0x14ea…1502 at0006 = ╱34╱4╱ // 0x14f0 @0x6
0x14ea…1502 at0007 = ╱ef╱$╱ // 0x14f1 @0x7
0x14ea…1502 at0008 = ╱ec╱,╱ // 0x14f2 @0x8
0x14ea…1502 at0009 = ╱46╱F╱ // 0x14f3 @0x9
0x14ea…1502 at000a = ╱37╱7╱ // 0x14f4 @0xa
0x14ea…1502 at000b = ╱ed╱(╱ // 0x14f5 @0xb
0x14ea…1502 at000c = ╱46╱F╱ // 0x14f6 @0xc
0x14ea…1502 at000d = ╱39╱9╱ // 0x14f7 @0xd
0x14ea…1502 at000e = ╱ec╱,╱ // 0x14f8 @0xe
0x14ea…1502 at000f = ╱47╱G╱ // 0x14f9 @0xf
0x14ea…1502 at0010 = ╱ee╱)╱ // 0x14fa @0x10
0x14ea…1502 at0011 = ╱e2╱+╱ // 0x14fb @0x11
0x14ea…1502 at0012 = ╱45╱E╱ // 0x14fc @0x12
0x14ea…1502 at0013 = ╱f0╱:╱ // 0x14fd @0x13
0x14ea…1502 at0014 = ╱41╱A╱ // 0x14fe @0x14
0x14ea…1502 at0015 = ╱31╱1╱ // 0x14ff @0x15
0x14ea…1502 at0016 = ╱ef╱$╱ // 0x1500 @0x16
0x14ea…1502 at0017 = EOL // 0x1501 @0x17
0x14ea…1502 }
0x1502…151f a276 2390 EXEC FE(99,10,B4$)
0x1502…151f LineComalBin {
0x1502…151f ptr = 0xa276 // 0x1502 @0x0
0x1502…151f lno = 0x0956 // 0x1504 @0x2
0x1502…151f at0004 = ╱9d╱ EXEC ╱ // 0x1506 @0x4
0x1502…151f at0005 = ╱46╱F╱ // 0x1507 @0x5
0x1502…151f at0006 = ╱45╱E╱ // 0x1508 @0x6
0x1502…151f at0007 = ╱ed╱(╱ // 0x1509 @0x7
0x1502…151f at0008 = ╱39╱9╱ // 0x150a @0x8
0x1502…151f at0009 = ╱39╱9╱ // 0x150b @0x9
0x1502…151f at000a = ╱fe0000c607╱ // 0x150c @0xa
0x1502…151f at000f = ╱ec╱,╱ // 0x1511 @0xf
0x1502…151f at0010 = ╱31╱1╱ // 0x1512 @0x10
0x1502…151f at0011 = ╱30╱0╱ // 0x1513 @0x11
0x1502…151f at0012 = ╱fe0000a004╱ // 0x1514 @0x12
0x1502…151f at0017 = ╱ec╱,╱ // 0x1519 @0x17
0x1502…151f at0018 = ╱42╱B╱ // 0x151a @0x18
0x1502…151f at0019 = ╱34╱4╱ // 0x151b @0x19
0x1502…151f at001a = ╱ef╱$╱ // 0x151c @0x1a
0x1502…151f at001b = ╱ee╱)╱ // 0x151d @0x1b
0x1502…151f at001c = EOL // 0x151e @0x1c
0x1502…151f }
0x151f…1536 a28d 2400 GET E7$,L1:H3,A4$,A3$
0x151f…1536 LineComalBin {
0x151f…1536 ptr = 0xa28d // 0x151f @0x0
0x151f…1536 lno = 0x0960 // 0x1521 @0x2
0x151f…1536 at0004 = ╱a9╱ GET ╱ // 0x1523 @0x4
0x151f…1536 at0005 = ╱45╱E╱ // 0x1524 @0x5
0x151f…1536 at0006 = ╱37╱7╱ // 0x1525 @0x6
0x151f…1536 at0007 = ╱ef╱$╱ // 0x1526 @0x7
0x151f…1536 at0008 = ╱ec╱,╱ // 0x1527 @0x8
0x151f…1536 at0009 = ╱4c╱L╱ // 0x1528 @0x9
0x151f…1536 at000a = ╱31╱1╱ // 0x1529 @0xa
0x151f…1536 at000b = ╱f0╱:╱ // 0x152a @0xb
0x151f…1536 at000c = ╱48╱H╱ // 0x152b @0xc
0x151f…1536 at000d = ╱33╱3╱ // 0x152c @0xd
0x151f…1536 at000e = ╱ec╱,╱ // 0x152d @0xe
0x151f…1536 at000f = ╱41╱A╱ // 0x152e @0xf
0x151f…1536 at0010 = ╱34╱4╱ // 0x152f @0x10
0x151f…1536 at0011 = ╱ef╱$╱ // 0x1530 @0x11
0x151f…1536 at0012 = ╱ec╱,╱ // 0x1531 @0x12
0x151f…1536 at0013 = ╱41╱A╱ // 0x1532 @0x13
0x151f…1536 at0014 = ╱33╱3╱ // 0x1533 @0x14
0x151f…1536 at0015 = ╱ef╱$╱ // 0x1534 @0x15
0x151f…1536 at0016 = EOL // 0x1535 @0x16
0x151f…1536 }
0x1536…1553 a2aa 2410 EXEC FE(99,11,E7$)
0x1536…1553 LineComalBin {
0x1536…1553 ptr = 0xa2aa // 0x1536 @0x0
0x1536…1553 lno = 0x096a // 0x1538 @0x2
0x1536…1553 at0004 = ╱9d╱ EXEC ╱ // 0x153a @0x4
0x1536…1553 at0005 = ╱46╱F╱ // 0x153b @0x5
0x1536…1553 at0006 = ╱45╱E╱ // 0x153c @0x6
0x1536…1553 at0007 = ╱ed╱(╱ // 0x153d @0x7
0x1536…1553 at0008 = ╱39╱9╱ // 0x153e @0x8
0x1536…1553 at0009 = ╱39╱9╱ // 0x153f @0x9
0x1536…1553 at000a = ╱fe0000c607╱ // 0x1540 @0xa
0x1536…1553 at000f = ╱ec╱,╱ // 0x1545 @0xf
0x1536…1553 at0010 = ╱31╱1╱ // 0x1546 @0x10
0x1536…1553 at0011 = ╱31╱1╱ // 0x1547 @0x11
0x1536…1553 at0012 = ╱fe0000b004╱ // 0x1548 @0x12
0x1536…1553 at0017 = ╱ec╱,╱ // 0x154d @0x17
0x1536…1553 at0018 = ╱45╱E╱ // 0x154e @0x18
0x1536…1553 at0019 = ╱37╱7╱ // 0x154f @0x19
0x1536…1553 at001a = ╱ef╱$╱ // 0x1550 @0x1a
0x1536…1553 at001b = ╱ee╱)╱ // 0x1551 @0x1b
0x1536…1553 at001c = EOL // 0x1552 @0x1c
0x1536…1553 }
0x1553…1559 a2b0 2420 ENDIF
0x1553…1559 LineComalBin {
0x1553…1559 ptr = 0xa2b0 // 0x1553 @0x0
0x1553…1559 lno = 0x0974 // 0x1555 @0x2
0x1553…1559 at0004 = ╱9b╱ ENDIF ╱ // 0x1557 @0x4
0x1553…1559 at0005 = EOL // 0x1558 @0x5
0x1553…1559 }
0x1559…155f a2b6 2430 ENDIF
0x1559…155f LineComalBin {
0x1559…155f ptr = 0xa2b6 // 0x1559 @0x0
0x1559…155f lno = 0x097e // 0x155b @0x2
0x1559…155f at0004 = ╱9b╱ ENDIF ╱ // 0x155d @0x4
0x1559…155f at0005 = EOL // 0x155e @0x5
0x1559…155f }
0x155f…156e a2c5 2440 CURSOR E,23
0x155f…156e LineComalBin {
0x155f…156e ptr = 0xa2c5 // 0x155f @0x0
0x155f…156e lno = 0x0988 // 0x1561 @0x2
0x155f…156e at0004 = ╱a1╱ CURSOR ╱ // 0x1563 @0x4
0x155f…156e at0005 = ╱45╱E╱ // 0x1564 @0x5
0x155f…156e at0006 = ╱ec╱,╱ // 0x1565 @0x6
0x155f…156e at0007 = ╱32╱2╱ // 0x1566 @0x7
0x155f…156e at0008 = ╱33╱3╱ // 0x1567 @0x8
0x155f…156e at0009 = ╱fe0000b805╱ // 0x1568 @0x9
0x155f…156e at000e = EOL // 0x156d @0xe
0x155f…156e }
0x156e…1583 a2da 2450 PRINT USING " ###### ":K8;
0x156e…1583 LineComalBin {
0x156e…1583 ptr = 0xa2da // 0x156e @0x0
0x156e…1583 lno = 0x0992 // 0x1570 @0x2
0x156e…1583 at0004 = ╱92╱ PRINT ╱ // 0x1572 @0x4
0x156e…1583 at0005 = ╱b9╱ USING ╱ // 0x1573 @0x5
0x156e…1583 at0006 = ╱22╱"╱ // 0x1574 @0x6
0x156e…1583 at0007 = ╱20╱…╱ // 0x1575 @0x7
0x156e…1583 at0008 = ╱23╱#╱ // 0x1576 @0x8
0x156e…1583 at0009 = ╱23╱#╱ // 0x1577 @0x9
0x156e…1583 at000a = ╱23╱#╱ // 0x1578 @0xa
0x156e…1583 at000b = ╱23╱#╱ // 0x1579 @0xb
0x156e…1583 at000c = ╱23╱#╱ // 0x157a @0xc
0x156e…1583 at000d = ╱23╱#╱ // 0x157b @0xd
0x156e…1583 at000e = ╱20╱…╱ // 0x157c @0xe
0x156e…1583 at000f = ╱22╱"╱ // 0x157d @0xf
0x156e…1583 at0010 = ╱f0╱:╱ // 0x157e @0x10
0x156e…1583 at0011 = ╱4b╱K╱ // 0x157f @0x11
0x156e…1583 at0012 = ╱38╱8╱ // 0x1580 @0x12
0x156e…1583 at0013 = ╱eb╱;╱ // 0x1581 @0x13
0x156e…1583 at0014 = EOL // 0x1582 @0x14
0x156e…1583 }
0x1583…15b0 a307 2460 PRINT A1$;" ";A3$;TAB(65);"Rigtig (J/N)"
0x1583…15b0 LineComalBin {
0x1583…15b0 ptr = 0xa307 // 0x1583 @0x0
0x1583…15b0 lno = 0x099c // 0x1585 @0x2
0x1583…15b0 at0004 = ╱92╱ PRINT ╱ // 0x1587 @0x4
0x1583…15b0 at0005 = ╱41╱A╱ // 0x1588 @0x5
0x1583…15b0 at0006 = ╱31╱1╱ // 0x1589 @0x6
0x1583…15b0 at0007 = ╱ef╱$╱ // 0x158a @0x7
0x1583…15b0 at0008 = ╱eb╱;╱ // 0x158b @0x8
0x1583…15b0 at0009 = ╱22╱"╱ // 0x158c @0x9
0x1583…15b0 at000a = ╱20╱…╱ // 0x158d @0xa
0x1583…15b0 at000b = ╱22╱"╱ // 0x158e @0xb
0x1583…15b0 at000c = ╱eb╱;╱ // 0x158f @0xc
0x1583…15b0 at000d = ╱41╱A╱ // 0x1590 @0xd
0x1583…15b0 at000e = ╱33╱3╱ // 0x1591 @0xe
0x1583…15b0 at000f = ╱ef╱$╱ // 0x1592 @0xf
0x1583…15b0 at0010 = ╱eb╱;╱ // 0x1593 @0x10
0x1583…15b0 at0011 = ╱d2╱TAB╱ // 0x1594 @0x11
0x1583…15b0 at0012 = ╱ed╱(╱ // 0x1595 @0x12
0x1583…15b0 at0013 = ╱36╱6╱ // 0x1596 @0x13
0x1583…15b0 at0014 = ╱35╱5╱ // 0x1597 @0x14
0x1583…15b0 at0015 = ╱fe00008207╱ // 0x1598 @0x15
0x1583…15b0 at001a = ╱ee╱)╱ // 0x159d @0x1a
0x1583…15b0 at001b = ╱eb╱;╱ // 0x159e @0x1b
0x1583…15b0 at001c = ╱22╱"╱ // 0x159f @0x1c
0x1583…15b0 at001d = ╱52╱R╱ // 0x15a0 @0x1d
0x1583…15b0 at001e = ╱69╱i╱ // 0x15a1 @0x1e
0x1583…15b0 at001f = ╱67╱g╱ // 0x15a2 @0x1f
0x1583…15b0 at0020 = ╱74╱t╱ // 0x15a3 @0x20
0x1583…15b0 at0021 = ╱69╱i╱ // 0x15a4 @0x21
0x1583…15b0 at0022 = ╱67╱g╱ // 0x15a5 @0x22
0x1583…15b0 at0023 = ╱20╱…╱ // 0x15a6 @0x23
0x1583…15b0 at0024 = ╱20╱…╱ // 0x15a7 @0x24
0x1583…15b0 at0025 = ╱20╱…╱ // 0x15a8 @0x25
0x1583…15b0 at0026 = ╱28╱(╱ // 0x15a9 @0x26
0x1583…15b0 at0027 = ╱4a╱J╱ // 0x15aa @0x27
0x1583…15b0 at0028 = ╱2f╱/╱ // 0x15ab @0x28
0x1583…15b0 at0029 = ╱4e╱N╱ // 0x15ac @0x29
0x1583…15b0 at002a = ╱29╱)╱ // 0x15ad @0x2a
0x1583…15b0 at002b = ╱22╱"╱ // 0x15ae @0x2b
0x1583…15b0 at002c = EOL // 0x15af @0x2c
0x1583…15b0 }
0x15b0…15b6 a30d 2470 REPEAT
0x15b0…15b6 LineComalBin {
0x15b0…15b6 ptr = 0xa30d // 0x15b0 @0x0
0x15b0…15b6 lno = 0x09a6 // 0x15b2 @0x2
0x15b0…15b6 at0004 = ╱97╱ REPEAT ╱ // 0x15b4 @0x4
0x15b0…15b6 at0005 = EOL // 0x15b5 @0x5
0x15b0…15b6 }
0x15b6…15cb a322 2480 CURSOR 71,23
0x15b6…15cb LineComalBin {
0x15b6…15cb ptr = 0xa322 // 0x15b6 @0x0
0x15b6…15cb lno = 0x09b0 // 0x15b8 @0x2
0x15b6…15cb at0004 = ╱a1╱ CURSOR ╱ // 0x15ba @0x4
0x15b6…15cb at0005 = ╱37╱7╱ // 0x15bb @0x5
0x15b6…15cb at0006 = ╱31╱1╱ // 0x15bc @0x6
0x15b6…15cb at0007 = ╱fe00008e07╱ // 0x15bd @0x7
0x15b6…15cb at000c = ╱ec╱,╱ // 0x15c2 @0xc
0x15b6…15cb at000d = ╱32╱2╱ // 0x15c3 @0xd
0x15b6…15cb at000e = ╱33╱3╱ // 0x15c4 @0xe
0x15b6…15cb at000f = ╱fe0000b805╱ // 0x15c5 @0xf
0x15b6…15cb at0014 = EOL // 0x15ca @0x14
0x15b6…15cb }
0x15cb…15d3 a32a 2490 INPUT A$
0x15cb…15d3 LineComalBin {
0x15cb…15d3 ptr = 0xa32a // 0x15cb @0x0
0x15cb…15d3 lno = 0x09ba // 0x15cd @0x2
0x15cb…15d3 at0004 = ╱91╱ INPUT ╱ // 0x15cf @0x4
0x15cb…15d3 at0005 = ╱41╱A╱ // 0x15d0 @0x5
0x15cb…15d3 at0006 = ╱ef╱$╱ // 0x15d1 @0x6
0x15cb…15d3 at0007 = EOL // 0x15d2 @0x7
0x15cb…15d3 }
0x15d3…15e3 a33a 2500 EXEC NRTEST(A$)
0x15d3…15e3 LineComalBin {
0x15d3…15e3 ptr = 0xa33a // 0x15d3 @0x0
0x15d3…15e3 lno = 0x09c4 // 0x15d5 @0x2
0x15d3…15e3 at0004 = ╱9d╱ EXEC ╱ // 0x15d7 @0x4
0x15d3…15e3 at0005 = ╱4e╱N╱ // 0x15d8 @0x5
0x15d3…15e3 at0006 = ╱52╱R╱ // 0x15d9 @0x6
0x15d3…15e3 at0007 = ╱54╱T╱ // 0x15da @0x7
0x15d3…15e3 at0008 = ╱45╱E╱ // 0x15db @0x8
0x15d3…15e3 at0009 = ╱53╱S╱ // 0x15dc @0x9
0x15d3…15e3 at000a = ╱54╱T╱ // 0x15dd @0xa
0x15d3…15e3 at000b = ╱ed╱(╱ // 0x15de @0xb
0x15d3…15e3 at000c = ╱41╱A╱ // 0x15df @0xc
0x15d3…15e3 at000d = ╱ef╱$╱ // 0x15e0 @0xd
0x15d3…15e3 at000e = ╱ee╱)╱ // 0x15e1 @0xe
0x15d3…15e3 at000f = EOL // 0x15e2 @0xf
0x15d3…15e3 }
0x15e3…15fc a353 2510 UNTIL P=-7 OR P=-8
0x15e3…15fc LineComalBin {
0x15e3…15fc ptr = 0xa353 // 0x15e3 @0x0
0x15e3…15fc lno = 0x09ce // 0x15e5 @0x2
0x15e3…15fc at0004 = ╱98╱ UNTIL ╱ // 0x15e7 @0x4
0x15e3…15fc at0005 = ╱50╱P╱ // 0x15e8 @0x5
0x15e3…15fc at0006 = ╱dc╱=╱ // 0x15e9 @0x6
0x15e3…15fc at0007 = ╱e9╱-╱ // 0x15ea @0x7
0x15e3…15fc at0008 = ╱37╱7╱ // 0x15eb @0x8
0x15e3…15fc at0009 = ╱fe0000e003╱ // 0x15ec @0x9
0x15e3…15fc at000e = ╱db╱ OR ╱ // 0x15f1 @0xe
0x15e3…15fc at000f = ╱50╱P╱ // 0x15f2 @0xf
0x15e3…15fc at0010 = ╱dc╱=╱ // 0x15f3 @0x10
0x15e3…15fc at0011 = ╱e9╱-╱ // 0x15f4 @0x11
0x15e3…15fc at0012 = ╱38╱8╱ // 0x15f5 @0x12
0x15e3…15fc at0013 = ╱fe00008004╱ // 0x15f6 @0x13
0x15e3…15fc at0018 = EOL // 0x15fb @0x18
0x15e3…15fc }
0x15fc…1602 a359 2520 ENDPROC
0x15fc…1602 LineComalBin {
0x15fc…1602 ptr = 0xa359 // 0x15fc @0x0
0x15fc…1602 lno = 0x09d8 // 0x15fe @0x2
0x15fc…1602 at0004 = ╱9f╱ ENDPROC ╱ // 0x1600 @0x4
0x15fc…1602 at0005 = EOL // 0x1601 @0x5
0x15fc…1602 }
0x1602…1610 a367 2530 PROC KNUD(L6)
0x1602…1610 LineComalBin {
0x1602…1610 ptr = 0xa367 // 0x1602 @0x0
0x1602…1610 lno = 0x09e2 // 0x1604 @0x2
0x1602…1610 at0004 = ╱9e╱ PROC ╱ // 0x1606 @0x4
0x1602…1610 at0005 = ╱4b╱K╱ // 0x1607 @0x5
0x1602…1610 at0006 = ╱4e╱N╱ // 0x1608 @0x6
0x1602…1610 at0007 = ╱55╱U╱ // 0x1609 @0x7
0x1602…1610 at0008 = ╱44╱D╱ // 0x160a @0x8
0x1602…1610 at0009 = ╱ed╱(╱ // 0x160b @0x9
0x1602…1610 at000a = ╱4c╱L╱ // 0x160c @0xa
0x1602…1610 at000b = ╱36╱6╱ // 0x160d @0xb
0x1602…1610 at000c = ╱ee╱)╱ // 0x160e @0xc
0x1602…1610 at000d = EOL // 0x160f @0xd
0x1602…1610 }
0x1610…161b a372 2540 IF F5=E THEN
0x1610…161b LineComalBin {
0x1610…161b ptr = 0xa372 // 0x1610 @0x0
0x1610…161b lno = 0x09ec // 0x1612 @0x2
0x1610…161b at0004 = ╱9c╱ IF ╱ // 0x1614 @0x4
0x1610…161b at0005 = ╱46╱F╱ // 0x1615 @0x5
0x1610…161b at0006 = ╱35╱5╱ // 0x1616 @0x6
0x1610…161b at0007 = ╱dc╱=╱ // 0x1617 @0x7
0x1610…161b at0008 = ╱45╱E╱ // 0x1618 @0x8
0x1610…161b at0009 = ╱b6╱ THEN ╱ // 0x1619 @0x9
0x1610…161b at000a = EOL // 0x161a @0xa
0x1610…161b }
0x161b…1627 a37e 2550 CURSOR G,L7+V
0x161b…1627 LineComalBin {
0x161b…1627 ptr = 0xa37e // 0x161b @0x0
0x161b…1627 lno = 0x09f6 // 0x161d @0x2
0x161b…1627 at0004 = ╱a1╱ CURSOR ╱ // 0x161f @0x4
0x161b…1627 at0005 = ╱47╱G╱ // 0x1620 @0x5
0x161b…1627 at0006 = ╱ec╱,╱ // 0x1621 @0x6
0x161b…1627 at0007 = ╱4c╱L╱ // 0x1622 @0x7
0x161b…1627 at0008 = ╱37╱7╱ // 0x1623 @0x8
0x161b…1627 at0009 = ╱e2╱+╱ // 0x1624 @0x9
0x161b…1627 at000a = ╱56╱V╱ // 0x1625 @0xa
0x161b…1627 at000b = EOL // 0x1626 @0xb
0x161b…1627 }
0x1627…1630 a387 2560 PRINT E2$
0x1627…1630 LineComalBin {
0x1627…1630 ptr = 0xa387 // 0x1627 @0x0
0x1627…1630 lno = 0x0a00 // 0x1629 @0x2
0x1627…1630 at0004 = ╱92╱ PRINT ╱ // 0x162b @0x4
0x1627…1630 at0005 = ╱45╱E╱ // 0x162c @0x5
0x1627…1630 at0006 = ╱32╱2╱ // 0x162d @0x6
0x1627…1630 at0007 = ╱ef╱$╱ // 0x162e @0x7
0x1627…1630 at0008 = EOL // 0x162f @0x8
0x1627…1630 }
0x1630…1642 a399 2570 IF J6=B THEN K5=K5-E
0x1630…1642 LineComalBin {
0x1630…1642 ptr = 0xa399 // 0x1630 @0x0
0x1630…1642 lno = 0x0a0a // 0x1632 @0x2
0x1630…1642 at0004 = ╱82╱ IF ╱ // 0x1634 @0x4
0x1630…1642 at0005 = ╱4a╱J╱ // 0x1635 @0x5
0x1630…1642 at0006 = ╱36╱6╱ // 0x1636 @0x6
0x1630…1642 at0007 = ╱dc╱=╱ // 0x1637 @0x7
0x1630…1642 at0008 = ╱42╱B╱ // 0x1638 @0x8
0x1630…1642 at0009 = ╱b6╱ THEN ╱ // 0x1639 @0x9
0x1630…1642 at000a = ╱4b╱K╱ // 0x163a @0xa
0x1630…1642 at000b = ╱35╱5╱ // 0x163b @0xb
0x1630…1642 at000c = ╱dc╱=╱ // 0x163c @0xc
0x1630…1642 at000d = ╱4b╱K╱ // 0x163d @0xd
0x1630…1642 at000e = ╱35╱5╱ // 0x163e @0xe
0x1630…1642 at000f = ╱e3╱-╱ // 0x163f @0xf
0x1630…1642 at0010 = ╱45╱E╱ // 0x1640 @0x10
0x1630…1642 at0011 = EOL // 0x1641 @0x11
0x1630…1642 }
0x1642…164b (74,) a3a2 2580 L8=E
0x1642…164b LineComalBin {
0x1642…164b ptr = 0xa3a2 // 0x1642 @0x0
0x1642…164b lno = 0x0a14 // 0x1644 @0x2
0x1642…164b at0004 = ╱4c╱L╱ // 0x1646 @0x4
0x1642…164b at0005 = ╱38╱8╱ // 0x1647 @0x5
0x1642…164b at0006 = ╱dc╱=╱ // 0x1648 @0x6
0x1642…164b at0007 = ╱45╱E╱ // 0x1649 @0x7
0x1642…164b at0008 = EOL // 0x164a @0x8
0x1642…164b }
0x164b…1651 a3a8 2590 ELSE
0x164b…1651 LineComalBin {
0x164b…1651 ptr = 0xa3a8 // 0x164b @0x0
0x164b…1651 lno = 0x0a1e // 0x164d @0x2
0x164b…1651 at0004 = ╱9a╱ ELSE ╱ // 0x164f @0x4
0x164b…1651 at0005 = EOL // 0x1650 @0x5
0x164b…1651 }
0x1651…169e a3f5 2600 CURSOR 38+7*(L8=4)+28*(L8=6)+35*(L8=7),L7+V
0x1651…169e LineComalBin {
0x1651…169e ptr = 0xa3f5 // 0x1651 @0x0
0x1651…169e lno = 0x0a28 // 0x1653 @0x2
0x1651…169e at0004 = ╱a1╱ CURSOR ╱ // 0x1655 @0x4
0x1651…169e at0005 = ╱33╱3╱ // 0x1656 @0x5
0x1651…169e at0006 = ╱38╱8╱ // 0x1657 @0x6
0x1651…169e at0007 = ╱fe00009806╱ // 0x1658 @0x7
0x1651…169e at000c = ╱e2╱+╱ // 0x165d @0xc
0x1651…169e at000d = ╱37╱7╱ // 0x165e @0xd
0x1651…169e at000e = ╱fe0000e003╱ // 0x165f @0xe
0x1651…169e at0013 = ╱e4╱*╱ // 0x1664 @0x13
0x1651…169e at0014 = ╱ed╱(╱ // 0x1665 @0x14
0x1651…169e at0015 = ╱4c╱L╱ // 0x1666 @0x15
0x1651…169e at0016 = ╱38╱8╱ // 0x1667 @0x16
0x1651…169e at0017 = ╱dc╱=╱ // 0x1668 @0x17
0x1651…169e at0018 = ╱34╱4╱ // 0x1669 @0x18
0x1651…169e at0019 = ╱fe00008003╱ // 0x166a @0x19
0x1651…169e at001e = ╱ee╱)╱ // 0x166f @0x1e
0x1651…169e at001f = ╱e2╱+╱ // 0x1670 @0x1f
0x1651…169e at0020 = ╱32╱2╱ // 0x1671 @0x20
0x1651…169e at0021 = ╱38╱8╱ // 0x1672 @0x21
0x1651…169e at0022 = ╱fe0000e005╱ // 0x1673 @0x22
0x1651…169e at0027 = ╱e4╱*╱ // 0x1678 @0x27
0x1651…169e at0028 = ╱ed╱(╱ // 0x1679 @0x28
0x1651…169e at0029 = ╱4c╱L╱ // 0x167a @0x29
0x1651…169e at002a = ╱38╱8╱ // 0x167b @0x2a
0x1651…169e at002b = ╱dc╱=╱ // 0x167c @0x2b
0x1651…169e at002c = ╱36╱6╱ // 0x167d @0x2c
0x1651…169e at002d = ╱fe0000c003╱ // 0x167e @0x2d
0x1651…169e at0032 = ╱ee╱)╱ // 0x1683 @0x32
0x1651…169e at0033 = ╱e2╱+╱ // 0x1684 @0x33
0x1651…169e at0034 = ╱33╱3╱ // 0x1685 @0x34
0x1651…169e at0035 = ╱35╱5╱ // 0x1686 @0x35
0x1651…169e at0036 = ╱fe00008c06╱ // 0x1687 @0x36
0x1651…169e at003b = ╱e4╱*╱ // 0x168c @0x3b
0x1651…169e at003c = ╱ed╱(╱ // 0x168d @0x3c
0x1651…169e at003d = ╱4c╱L╱ // 0x168e @0x3d
0x1651…169e at003e = ╱38╱8╱ // 0x168f @0x3e
0x1651…169e at003f = ╱dc╱=╱ // 0x1690 @0x3f
0x1651…169e at0040 = ╱37╱7╱ // 0x1691 @0x40
0x1651…169e at0041 = ╱fe0000e003╱ // 0x1692 @0x41
0x1651…169e at0046 = ╱ee╱)╱ // 0x1697 @0x46
0x1651…169e at0047 = ╱ec╱,╱ // 0x1698 @0x47
0x1651…169e at0048 = ╱4c╱L╱ // 0x1699 @0x48
0x1651…169e at0049 = ╱37╱7╱ // 0x169a @0x49
0x1651…169e at004a = ╱e2╱+╱ // 0x169b @0x4a
0x1651…169e at004b = ╱56╱V╱ // 0x169c @0x4b
0x1651…169e at004c = EOL // 0x169d @0x4c
0x1651…169e }
0x169e…16b0 a407 2610 PRINT USING "######":L6
0x169e…16b0 LineComalBin {
0x169e…16b0 ptr = 0xa407 // 0x169e @0x0
0x169e…16b0 lno = 0x0a32 // 0x16a0 @0x2
0x169e…16b0 at0004 = ╱92╱ PRINT ╱ // 0x16a2 @0x4
0x169e…16b0 at0005 = ╱b9╱ USING ╱ // 0x16a3 @0x5
0x169e…16b0 at0006 = ╱22╱"╱ // 0x16a4 @0x6
0x169e…16b0 at0007 = ╱23╱#╱ // 0x16a5 @0x7
0x169e…16b0 at0008 = ╱23╱#╱ // 0x16a6 @0x8
0x169e…16b0 at0009 = ╱23╱#╱ // 0x16a7 @0x9
0x169e…16b0 at000a = ╱23╱#╱ // 0x16a8 @0xa
0x169e…16b0 at000b = ╱23╱#╱ // 0x16a9 @0xb
0x169e…16b0 at000c = ╱23╱#╱ // 0x16aa @0xc
0x169e…16b0 at000d = ╱22╱"╱ // 0x16ab @0xd
0x169e…16b0 at000e = ╱f0╱:╱ // 0x16ac @0xe
0x169e…16b0 at000f = ╱4c╱L╱ // 0x16ad @0xf
0x169e…16b0 at0010 = ╱36╱6╱ // 0x16ae @0x10
0x169e…16b0 at0011 = EOL // 0x16af @0x11
0x169e…16b0 }
0x16b0…16fc a453 2620 L7=L7+E*(L8=7);L8=4-V*(L8=7)+E*(L8=4)+V*(L8=6)
0x16b0…16fc LineComalBin {
0x16b0…16fc ptr = 0xa453 // 0x16b0 @0x0
0x16b0…16fc lno = 0x0a3c // 0x16b2 @0x2
0x16b0…16fc at0004 = ╱4c╱L╱ // 0x16b4 @0x4
0x16b0…16fc at0005 = ╱37╱7╱ // 0x16b5 @0x5
0x16b0…16fc at0006 = ╱dc╱=╱ // 0x16b6 @0x6
0x16b0…16fc at0007 = ╱4c╱L╱ // 0x16b7 @0x7
0x16b0…16fc at0008 = ╱37╱7╱ // 0x16b8 @0x8
0x16b0…16fc at0009 = ╱e2╱+╱ // 0x16b9 @0x9
0x16b0…16fc at000a = ╱45╱E╱ // 0x16ba @0xa
0x16b0…16fc at000b = ╱e4╱*╱ // 0x16bb @0xb
0x16b0…16fc at000c = ╱ed╱(╱ // 0x16bc @0xc
0x16b0…16fc at000d = ╱4c╱L╱ // 0x16bd @0xd
0x16b0…16fc at000e = ╱38╱8╱ // 0x16be @0xe
0x16b0…16fc at000f = ╱dc╱=╱ // 0x16bf @0xf
0x16b0…16fc at0010 = ╱37╱7╱ // 0x16c0 @0x10
0x16b0…16fc at0011 = ╱fe0000e003╱ // 0x16c1 @0x11
0x16b0…16fc at0016 = ╱ee╱)╱ // 0x16c6 @0x16
0x16b0…16fc at0017 = ╱eb╱;╱ // 0x16c7 @0x17
0x16b0…16fc at0018 = ╱4c╱L╱ // 0x16c8 @0x18
0x16b0…16fc at0019 = ╱38╱8╱ // 0x16c9 @0x19
0x16b0…16fc at001a = ╱dc╱=╱ // 0x16ca @0x1a
0x16b0…16fc at001b = ╱34╱4╱ // 0x16cb @0x1b
0x16b0…16fc at001c = ╱fe00008003╱ // 0x16cc @0x1c
0x16b0…16fc at0021 = ╱e3╱-╱ // 0x16d1 @0x21
0x16b0…16fc at0022 = ╱56╱V╱ // 0x16d2 @0x22
0x16b0…16fc at0023 = ╱e4╱*╱ // 0x16d3 @0x23
0x16b0…16fc at0024 = ╱ed╱(╱ // 0x16d4 @0x24
0x16b0…16fc at0025 = ╱4c╱L╱ // 0x16d5 @0x25
0x16b0…16fc at0026 = ╱38╱8╱ // 0x16d6 @0x26
0x16b0…16fc at0027 = ╱dc╱=╱ // 0x16d7 @0x27
0x16b0…16fc at0028 = ╱37╱7╱ // 0x16d8 @0x28
0x16b0…16fc at0029 = ╱fe0000e003╱ // 0x16d9 @0x29
0x16b0…16fc at002e = ╱ee╱)╱ // 0x16de @0x2e
0x16b0…16fc at002f = ╱e2╱+╱ // 0x16df @0x2f
0x16b0…16fc at0030 = ╱45╱E╱ // 0x16e0 @0x30
0x16b0…16fc at0031 = ╱e4╱*╱ // 0x16e1 @0x31
0x16b0…16fc at0032 = ╱ed╱(╱ // 0x16e2 @0x32
0x16b0…16fc at0033 = ╱4c╱L╱ // 0x16e3 @0x33
0x16b0…16fc at0034 = ╱38╱8╱ // 0x16e4 @0x34
0x16b0…16fc at0035 = ╱dc╱=╱ // 0x16e5 @0x35
0x16b0…16fc at0036 = ╱34╱4╱ // 0x16e6 @0x36
0x16b0…16fc at0037 = ╱fe00008003╱ // 0x16e7 @0x37
0x16b0…16fc at003c = ╱ee╱)╱ // 0x16ec @0x3c
0x16b0…16fc at003d = ╱e2╱+╱ // 0x16ed @0x3d
0x16b0…16fc at003e = ╱56╱V╱ // 0x16ee @0x3e
0x16b0…16fc at003f = ╱e4╱*╱ // 0x16ef @0x3f
0x16b0…16fc at0040 = ╱ed╱(╱ // 0x16f0 @0x40
0x16b0…16fc at0041 = ╱4c╱L╱ // 0x16f1 @0x41
0x16b0…16fc at0042 = ╱38╱8╱ // 0x16f2 @0x42
0x16b0…16fc at0043 = ╱dc╱=╱ // 0x16f3 @0x43
0x16b0…16fc at0044 = ╱36╱6╱ // 0x16f4 @0x44
0x16b0…16fc at0045 = ╱fe0000c003╱ // 0x16f5 @0x45
0x16b0…16fc at004a = ╱ee╱)╱ // 0x16fa @0x4a
0x16b0…16fc at004b = EOL // 0x16fb @0x4b
0x16b0…16fc }
0x16fc…1702 a459 2630 ENDIF
0x16fc…1702 LineComalBin {
0x16fc…1702 ptr = 0xa459 // 0x16fc @0x0
0x16fc…1702 lno = 0x0a46 // 0x16fe @0x2
0x16fc…1702 at0004 = ╱9b╱ ENDIF ╱ // 0x1700 @0x4
0x16fc…1702 at0005 = EOL // 0x1701 @0x5
0x16fc…1702 }
0x1702…1708 a45f 2640 ENDPROC
0x1702…1708 LineComalBin {
0x1702…1708 ptr = 0xa45f // 0x1702 @0x0
0x1702…1708 lno = 0x0a50 // 0x1704 @0x2
0x1702…1708 at0004 = ╱9f╱ ENDPROC ╱ // 0x1706 @0x4
0x1702…1708 at0005 = EOL // 0x1707 @0x5
0x1702…1708 }
0x1708…171e a475 2650 PROC TUD(L9,M0,M1,M2)
0x1708…171e LineComalBin {
0x1708…171e ptr = 0xa475 // 0x1708 @0x0
0x1708…171e lno = 0x0a5a // 0x170a @0x2
0x1708…171e at0004 = ╱9e╱ PROC ╱ // 0x170c @0x4
0x1708…171e at0005 = ╱54╱T╱ // 0x170d @0x5
0x1708…171e at0006 = ╱55╱U╱ // 0x170e @0x6
0x1708…171e at0007 = ╱44╱D╱ // 0x170f @0x7
0x1708…171e at0008 = ╱ed╱(╱ // 0x1710 @0x8
0x1708…171e at0009 = ╱4c╱L╱ // 0x1711 @0x9
0x1708…171e at000a = ╱39╱9╱ // 0x1712 @0xa
0x1708…171e at000b = ╱ec╱,╱ // 0x1713 @0xb
0x1708…171e at000c = ╱4d╱M╱ // 0x1714 @0xc
0x1708…171e at000d = ╱30╱0╱ // 0x1715 @0xd
0x1708…171e at000e = ╱ec╱,╱ // 0x1716 @0xe
0x1708…171e at000f = ╱4d╱M╱ // 0x1717 @0xf
0x1708…171e at0010 = ╱31╱1╱ // 0x1718 @0x10
0x1708…171e at0011 = ╱ec╱,╱ // 0x1719 @0x11
0x1708…171e at0012 = ╱4d╱M╱ // 0x171a @0x12
0x1708…171e at0013 = ╱32╱2╱ // 0x171b @0x13
0x1708…171e at0014 = ╱ee╱)╱ // 0x171c @0x14
0x1708…171e at0015 = EOL // 0x171d @0x15
0x1708…171e }
0x171e…173a a491 2660 EXEC CA(5,L9$,D0$,M0$)
0x171e…173a LineComalBin {
0x171e…173a ptr = 0xa491 // 0x171e @0x0
0x171e…173a lno = 0x0a64 // 0x1720 @0x2
0x171e…173a at0004 = ╱9d╱ EXEC ╱ // 0x1722 @0x4
0x171e…173a at0005 = ╱43╱C╱ // 0x1723 @0x5
0x171e…173a at0006 = ╱41╱A╱ // 0x1724 @0x6
0x171e…173a at0007 = ╱ed╱(╱ // 0x1725 @0x7
0x171e…173a at0008 = ╱35╱5╱ // 0x1726 @0x8
0x171e…173a at0009 = ╱fe0000a003╱ // 0x1727 @0x9
0x171e…173a at000e = ╱ec╱,╱ // 0x172c @0xe
0x171e…173a at000f = ╱4c╱L╱ // 0x172d @0xf
0x171e…173a at0010 = ╱39╱9╱ // 0x172e @0x10
0x171e…173a at0011 = ╱ef╱$╱ // 0x172f @0x11
0x171e…173a at0012 = ╱ec╱,╱ // 0x1730 @0x12
0x171e…173a at0013 = ╱44╱D╱ // 0x1731 @0x13
0x171e…173a at0014 = ╱30╱0╱ // 0x1732 @0x14
0x171e…173a at0015 = ╱ef╱$╱ // 0x1733 @0x15
0x171e…173a at0016 = ╱ec╱,╱ // 0x1734 @0x16
0x171e…173a at0017 = ╱4d╱M╱ // 0x1735 @0x17
0x171e…173a at0018 = ╱30╱0╱ // 0x1736 @0x18
0x171e…173a at0019 = ╱ef╱$╱ // 0x1737 @0x19
0x171e…173a at001a = ╱ee╱)╱ // 0x1738 @0x1a
0x171e…173a at001b = EOL // 0x1739 @0x1b
0x171e…173a }
0x173a…1757 a4ae 2670 IF M1=B THEN M0$=M0$(E:13)
0x173a…1757 LineComalBin {
0x173a…1757 ptr = 0xa4ae // 0x173a @0x0
0x173a…1757 lno = 0x0a6e // 0x173c @0x2
0x173a…1757 at0004 = ╱82╱ IF ╱ // 0x173e @0x4
0x173a…1757 at0005 = ╱4d╱M╱ // 0x173f @0x5
0x173a…1757 at0006 = ╱31╱1╱ // 0x1740 @0x6
0x173a…1757 at0007 = ╱dc╱=╱ // 0x1741 @0x7
0x173a…1757 at0008 = ╱42╱B╱ // 0x1742 @0x8
0x173a…1757 at0009 = ╱b6╱ THEN ╱ // 0x1743 @0x9
0x173a…1757 at000a = ╱4d╱M╱ // 0x1744 @0xa
0x173a…1757 at000b = ╱30╱0╱ // 0x1745 @0xb
0x173a…1757 at000c = ╱ef╱$╱ // 0x1746 @0xc
0x173a…1757 at000d = ╱dc╱=╱ // 0x1747 @0xd
0x173a…1757 at000e = ╱4d╱M╱ // 0x1748 @0xe
0x173a…1757 at000f = ╱30╱0╱ // 0x1749 @0xf
0x173a…1757 at0010 = ╱ef╱$╱ // 0x174a @0x10
0x173a…1757 at0011 = ╱ed╱(╱ // 0x174b @0x11
0x173a…1757 at0012 = ╱45╱E╱ // 0x174c @0x12
0x173a…1757 at0013 = ╱f0╱:╱ // 0x174d @0x13
0x173a…1757 at0014 = ╱31╱1╱ // 0x174e @0x14
0x173a…1757 at0015 = ╱33╱3╱ // 0x174f @0x15
0x173a…1757 at0016 = ╱fe0000d004╱ // 0x1750 @0x16
0x173a…1757 at001b = ╱ee╱)╱ // 0x1755 @0x1b
0x173a…1757 at001c = EOL // 0x1756 @0x1c
0x173a…1757 }
0x1757…1781 a4d8 2680 IF M1=E AND M0$(LEN(M0$))="+" THEN M0$(LEN(M0$))=" "
0x1757…1781 LineComalBin {
0x1757…1781 ptr = 0xa4d8 // 0x1757 @0x0
0x1757…1781 lno = 0x0a78 // 0x1759 @0x2
0x1757…1781 at0004 = ╱82╱ IF ╱ // 0x175b @0x4
0x1757…1781 at0005 = ╱4d╱M╱ // 0x175c @0x5
0x1757…1781 at0006 = ╱31╱1╱ // 0x175d @0x6
0x1757…1781 at0007 = ╱dc╱=╱ // 0x175e @0x7
0x1757…1781 at0008 = ╱45╱E╱ // 0x175f @0x8
0x1757…1781 at0009 = ╱da╱ AND ╱ // 0x1760 @0x9
0x1757…1781 at000a = ╱4d╱M╱ // 0x1761 @0xa
0x1757…1781 at000b = ╱30╱0╱ // 0x1762 @0xb
0x1757…1781 at000c = ╱ef╱$╱ // 0x1763 @0xc
0x1757…1781 at000d = ╱ed╱(╱ // 0x1764 @0xd
0x1757…1781 at000e = ╱cc╱LEN╱ // 0x1765 @0xe
0x1757…1781 at000f = ╱ed╱(╱ // 0x1766 @0xf
0x1757…1781 at0010 = ╱4d╱M╱ // 0x1767 @0x10
0x1757…1781 at0011 = ╱30╱0╱ // 0x1768 @0x11
0x1757…1781 at0012 = ╱ef╱$╱ // 0x1769 @0x12
0x1757…1781 at0013 = ╱ee╱)╱ // 0x176a @0x13
0x1757…1781 at0014 = ╱ee╱)╱ // 0x176b @0x14
0x1757…1781 at0015 = ╱dc╱=╱ // 0x176c @0x15
0x1757…1781 at0016 = ╱22╱"╱ // 0x176d @0x16
0x1757…1781 at0017 = ╱2b╱+╱ // 0x176e @0x17
0x1757…1781 at0018 = ╱22╱"╱ // 0x176f @0x18
0x1757…1781 at0019 = ╱b6╱ THEN ╱ // 0x1770 @0x19
0x1757…1781 at001a = ╱4d╱M╱ // 0x1771 @0x1a
0x1757…1781 at001b = ╱30╱0╱ // 0x1772 @0x1b
0x1757…1781 at001c = ╱ef╱$╱ // 0x1773 @0x1c
0x1757…1781 at001d = ╱ed╱(╱ // 0x1774 @0x1d
0x1757…1781 at001e = ╱cc╱LEN╱ // 0x1775 @0x1e
0x1757…1781 at001f = ╱ed╱(╱ // 0x1776 @0x1f
0x1757…1781 at0020 = ╱4d╱M╱ // 0x1777 @0x20
0x1757…1781 at0021 = ╱30╱0╱ // 0x1778 @0x21
0x1757…1781 at0022 = ╱ef╱$╱ // 0x1779 @0x22
0x1757…1781 at0023 = ╱ee╱)╱ // 0x177a @0x23
0x1757…1781 at0024 = ╱ee╱)╱ // 0x177b @0x24
0x1757…1781 at0025 = ╱dc╱=╱ // 0x177c @0x25
0x1757…1781 at0026 = ╱22╱"╱ // 0x177d @0x26
0x1757…1781 at0027 = ╱20╱…╱ // 0x177e @0x27
0x1757…1781 at0028 = ╱22╱"╱ // 0x177f @0x28
0x1757…1781 at0029 = EOL // 0x1780 @0x29
0x1757…1781 }
0x1781…179f a4f6 2690 IF M2=E THEN M0$=M0$(V:LEN(M0$)-V)
0x1781…179f LineComalBin {
0x1781…179f ptr = 0xa4f6 // 0x1781 @0x0
0x1781…179f lno = 0x0a82 // 0x1783 @0x2
0x1781…179f at0004 = ╱82╱ IF ╱ // 0x1785 @0x4
0x1781…179f at0005 = ╱4d╱M╱ // 0x1786 @0x5
0x1781…179f at0006 = ╱32╱2╱ // 0x1787 @0x6
0x1781…179f at0007 = ╱dc╱=╱ // 0x1788 @0x7
0x1781…179f at0008 = ╱45╱E╱ // 0x1789 @0x8
0x1781…179f at0009 = ╱b6╱ THEN ╱ // 0x178a @0x9
0x1781…179f at000a = ╱4d╱M╱ // 0x178b @0xa
0x1781…179f at000b = ╱30╱0╱ // 0x178c @0xb
0x1781…179f at000c = ╱ef╱$╱ // 0x178d @0xc
0x1781…179f at000d = ╱dc╱=╱ // 0x178e @0xd
0x1781…179f at000e = ╱4d╱M╱ // 0x178f @0xe
0x1781…179f at000f = ╱30╱0╱ // 0x1790 @0xf
0x1781…179f at0010 = ╱ef╱$╱ // 0x1791 @0x10
0x1781…179f at0011 = ╱ed╱(╱ // 0x1792 @0x11
0x1781…179f at0012 = ╱56╱V╱ // 0x1793 @0x12
0x1781…179f at0013 = ╱f0╱:╱ // 0x1794 @0x13
0x1781…179f at0014 = ╱cc╱LEN╱ // 0x1795 @0x14
0x1781…179f at0015 = ╱ed╱(╱ // 0x1796 @0x15
0x1781…179f at0016 = ╱4d╱M╱ // 0x1797 @0x16
0x1781…179f at0017 = ╱30╱0╱ // 0x1798 @0x17
0x1781…179f at0018 = ╱ef╱$╱ // 0x1799 @0x18
0x1781…179f at0019 = ╱ee╱)╱ // 0x179a @0x19
0x1781…179f at001a = ╱e3╱-╱ // 0x179b @0x1a
0x1781…179f at001b = ╱56╱V╱ // 0x179c @0x1b
0x1781…179f at001c = ╱ee╱)╱ // 0x179d @0x1c
0x1781…179f at001d = EOL // 0x179e @0x1d
0x1781…179f }
0x179f…17a5 a4fc 2700 ENDPROC
0x179f…17a5 LineComalBin {
0x179f…17a5 ptr = 0xa4fc // 0x179f @0x0
0x179f…17a5 lno = 0x0a8c // 0x17a1 @0x2
0x179f…17a5 at0004 = ╱9f╱ ENDPROC ╱ // 0x17a3 @0x4
0x179f…17a5 at0005 = EOL // 0x17a4 @0x5
0x179f…17a5 }
0x17a5…17b7 a50e 2710 PROC FE(M3,M4,M5)
0x17a5…17b7 LineComalBin {
0x17a5…17b7 ptr = 0xa50e // 0x17a5 @0x0
0x17a5…17b7 lno = 0x0a96 // 0x17a7 @0x2
0x17a5…17b7 at0004 = ╱9e╱ PROC ╱ // 0x17a9 @0x4
0x17a5…17b7 at0005 = ╱46╱F╱ // 0x17aa @0x5
0x17a5…17b7 at0006 = ╱45╱E╱ // 0x17ab @0x6
0x17a5…17b7 at0007 = ╱ed╱(╱ // 0x17ac @0x7
0x17a5…17b7 at0008 = ╱4d╱M╱ // 0x17ad @0x8
0x17a5…17b7 at0009 = ╱33╱3╱ // 0x17ae @0x9
0x17a5…17b7 at000a = ╱ec╱,╱ // 0x17af @0xa
0x17a5…17b7 at000b = ╱4d╱M╱ // 0x17b0 @0xb
0x17a5…17b7 at000c = ╱34╱4╱ // 0x17b1 @0xc
0x17a5…17b7 at000d = ╱ec╱,╱ // 0x17b2 @0xd
0x17a5…17b7 at000e = ╱4d╱M╱ // 0x17b3 @0xe
0x17a5…17b7 at000f = ╱35╱5╱ // 0x17b4 @0xf
0x17a5…17b7 at0010 = ╱ee╱)╱ // 0x17b5 @0x10
0x17a5…17b7 at0011 = EOL // 0x17b6 @0x11
0x17a5…17b7 }
0x17b7…17c6 a51d 2720 IF STATUS(M5$)<>B THEN
0x17b7…17c6 LineComalBin {
0x17b7…17c6 ptr = 0xa51d // 0x17b7 @0x0
0x17b7…17c6 lno = 0x0aa0 // 0x17b9 @0x2
0x17b7…17c6 at0004 = ╱9c╱ IF ╱ // 0x17bb @0x4
0x17b7…17c6 at0005 = ╱ce╱STATUS╱ // 0x17bc @0x5
0x17b7…17c6 at0006 = ╱ed╱(╱ // 0x17bd @0x6
0x17b7…17c6 at0007 = ╱4d╱M╱ // 0x17be @0x7
0x17b7…17c6 at0008 = ╱35╱5╱ // 0x17bf @0x8
0x17b7…17c6 at0009 = ╱ef╱$╱ // 0x17c0 @0x9
0x17b7…17c6 at000a = ╱ee╱)╱ // 0x17c1 @0xa
0x17b7…17c6 at000b = ╱e1╱<>╱ // 0x17c2 @0xb
0x17b7…17c6 at000c = ╱42╱B╱ // 0x17c3 @0xc
0x17b7…17c6 at000d = ╱b6╱ THEN ╱ // 0x17c4 @0xd
0x17b7…17c6 at000e = EOL // 0x17c5 @0xe
0x17b7…17c6 }
0x17c6…17dc a533 2730 PRINT STATUS(M5$),M3,M4,M5$
0x17c6…17dc LineComalBin {
0x17c6…17dc ptr = 0xa533 // 0x17c6 @0x0
0x17c6…17dc lno = 0x0aaa // 0x17c8 @0x2
0x17c6…17dc at0004 = ╱92╱ PRINT ╱ // 0x17ca @0x4
0x17c6…17dc at0005 = ╱ce╱STATUS╱ // 0x17cb @0x5
0x17c6…17dc at0006 = ╱ed╱(╱ // 0x17cc @0x6
0x17c6…17dc at0007 = ╱4d╱M╱ // 0x17cd @0x7
0x17c6…17dc at0008 = ╱35╱5╱ // 0x17ce @0x8
0x17c6…17dc at0009 = ╱ef╱$╱ // 0x17cf @0x9
0x17c6…17dc at000a = ╱ee╱)╱ // 0x17d0 @0xa
0x17c6…17dc at000b = ╱ec╱,╱ // 0x17d1 @0xb
0x17c6…17dc at000c = ╱4d╱M╱ // 0x17d2 @0xc
0x17c6…17dc at000d = ╱33╱3╱ // 0x17d3 @0xd
0x17c6…17dc at000e = ╱ec╱,╱ // 0x17d4 @0xe
0x17c6…17dc at000f = ╱4d╱M╱ // 0x17d5 @0xf
0x17c6…17dc at0010 = ╱34╱4╱ // 0x17d6 @0x10
0x17c6…17dc at0011 = ╱ec╱,╱ // 0x17d7 @0x11
0x17c6…17dc at0012 = ╱4d╱M╱ // 0x17d8 @0x12
0x17c6…17dc at0013 = ╱35╱5╱ // 0x17d9 @0x13
0x17c6…17dc at0014 = ╱ef╱$╱ // 0x17da @0x14
0x17c6…17dc at0015 = EOL // 0x17db @0x15
0x17c6…17dc }
0x17dc…17e2 a539 2740 STOP
0x17dc…17e2 LineComalBin {
0x17dc…17e2 ptr = 0xa539 // 0x17dc @0x0
0x17dc…17e2 lno = 0x0ab4 // 0x17de @0x2
0x17dc…17e2 at0004 = ╱8d╱ STOP ╱ // 0x17e0 @0x4
0x17dc…17e2 at0005 = EOL // 0x17e1 @0x5
0x17dc…17e2 }
0x17e2…17e8 a53f 2750 ENDIF
0x17e2…17e8 LineComalBin {
0x17e2…17e8 ptr = 0xa53f // 0x17e2 @0x0
0x17e2…17e8 lno = 0x0abe // 0x17e4 @0x2
0x17e2…17e8 at0004 = ╱9b╱ ENDIF ╱ // 0x17e6 @0x4
0x17e2…17e8 at0005 = EOL // 0x17e7 @0x5
0x17e2…17e8 }
0x17e8…17ee a545 2760 ENDPROC
0x17e8…17ee LineComalBin {
0x17e8…17ee ptr = 0xa545 // 0x17e8 @0x0
0x17e8…17ee lno = 0x0ac8 // 0x17ea @0x2
0x17e8…17ee at0004 = ╱9f╱ ENDPROC ╱ // 0x17ec @0x4
0x17e8…17ee at0005 = EOL // 0x17ed @0x5
0x17e8…17ee }
0x17ee…17fd a554 2770 PROC PSLET(M6)
0x17ee…17fd LineComalBin {
0x17ee…17fd ptr = 0xa554 // 0x17ee @0x0
0x17ee…17fd lno = 0x0ad2 // 0x17f0 @0x2
0x17ee…17fd at0004 = ╱9e╱ PROC ╱ // 0x17f2 @0x4
0x17ee…17fd at0005 = ╱50╱P╱ // 0x17f3 @0x5
0x17ee…17fd at0006 = ╱53╱S╱ // 0x17f4 @0x6
0x17ee…17fd at0007 = ╱4c╱L╱ // 0x17f5 @0x7
0x17ee…17fd at0008 = ╱45╱E╱ // 0x17f6 @0x8
0x17ee…17fd at0009 = ╱54╱T╱ // 0x17f7 @0x9
0x17ee…17fd at000a = ╱ed╱(╱ // 0x17f8 @0xa
0x17ee…17fd at000b = ╱4d╱M╱ // 0x17f9 @0xb
0x17ee…17fd at000c = ╱36╱6╱ // 0x17fa @0xc
0x17ee…17fd at000d = ╱ee╱)╱ // 0x17fb @0xd
0x17ee…17fd at000e = EOL // 0x17fc @0xe
0x17ee…17fd }
0x17fd…1808 a55f 2780 IF J6=B THEN
0x17fd…1808 LineComalBin {
0x17fd…1808 ptr = 0xa55f // 0x17fd @0x0
0x17fd…1808 lno = 0x0adc // 0x17ff @0x2
0x17fd…1808 at0004 = ╱9c╱ IF ╱ // 0x1801 @0x4
0x17fd…1808 at0005 = ╱4a╱J╱ // 0x1802 @0x5
0x17fd…1808 at0006 = ╱36╱6╱ // 0x1803 @0x6
0x17fd…1808 at0007 = ╱dc╱=╱ // 0x1804 @0x7
0x17fd…1808 at0008 = ╱42╱B╱ // 0x1805 @0x8
0x17fd…1808 at0009 = ╱b6╱ THEN ╱ // 0x1806 @0x9
0x17fd…1808 at000a = EOL // 0x1807 @0xa
0x17fd…1808 }
0x1808…1814 a56b 2790 IF J9=I8 THEN
0x1808…1814 LineComalBin {
0x1808…1814 ptr = 0xa56b // 0x1808 @0x0
0x1808…1814 lno = 0x0ae6 // 0x180a @0x2
0x1808…1814 at0004 = ╱9c╱ IF ╱ // 0x180c @0x4
0x1808…1814 at0005 = ╱4a╱J╱ // 0x180d @0x5
0x1808…1814 at0006 = ╱39╱9╱ // 0x180e @0x6
0x1808…1814 at0007 = ╱dc╱=╱ // 0x180f @0x7
0x1808…1814 at0008 = ╱49╱I╱ // 0x1810 @0x8
0x1808…1814 at0009 = ╱38╱8╱ // 0x1811 @0x9
0x1808…1814 at000a = ╱b6╱ THEN ╱ // 0x1812 @0xa
0x1808…1814 at000b = EOL // 0x1813 @0xb
0x1808…1814 }
0x1814…181a a571 2800 REPEAT
0x1814…181a LineComalBin {
0x1814…181a ptr = 0xa571 // 0x1814 @0x0
0x1814…181a lno = 0x0af0 // 0x1816 @0x2
0x1814…181a at0004 = ╱97╱ REPEAT ╱ // 0x1818 @0x4
0x1814…181a at0005 = EOL // 0x1819 @0x5
0x1814…181a }
0x181a…1829 a580 2810 CURSOR V,23
0x181a…1829 LineComalBin {
0x181a…1829 ptr = 0xa580 // 0x181a @0x0
0x181a…1829 lno = 0x0afa // 0x181c @0x2
0x181a…1829 at0004 = ╱a1╱ CURSOR ╱ // 0x181e @0x4
0x181a…1829 at0005 = ╱56╱V╱ // 0x181f @0x5
0x181a…1829 at0006 = ╱ec╱,╱ // 0x1820 @0x6
0x181a…1829 at0007 = ╱32╱2╱ // 0x1821 @0x7
0x181a…1829 at0008 = ╱33╱3╱ // 0x1822 @0x8
0x181a…1829 at0009 = ╱fe0000b805╱ // 0x1823 @0x9
0x181a…1829 at000e = EOL // 0x1828 @0xe
0x181a…1829 }
0x1829…186b a5c2 2820 PRINT "Posteringen kan ikke annuleres, tast RETURN"+E2$(E:34)
0x1829…186b LineComalBin {
0x1829…186b ptr = 0xa5c2 // 0x1829 @0x0
0x1829…186b lno = 0x0b04 // 0x182b @0x2
0x1829…186b at0004 = ╱92╱ PRINT ╱ // 0x182d @0x4
0x1829…186b at0005 = ╱22╱"╱ // 0x182e @0x5
0x1829…186b at0006 = ╱50╱P╱ // 0x182f @0x6
0x1829…186b at0007 = ╱6f╱o╱ // 0x1830 @0x7
0x1829…186b at0008 = ╱73╱s╱ // 0x1831 @0x8
0x1829…186b at0009 = ╱74╱t╱ // 0x1832 @0x9
0x1829…186b at000a = ╱65╱e╱ // 0x1833 @0xa
0x1829…186b at000b = ╱72╱r╱ // 0x1834 @0xb
0x1829…186b at000c = ╱69╱i╱ // 0x1835 @0xc
0x1829…186b at000d = ╱6e╱n╱ // 0x1836 @0xd
0x1829…186b at000e = ╱67╱g╱ // 0x1837 @0xe
0x1829…186b at000f = ╱65╱e╱ // 0x1838 @0xf
0x1829…186b at0010 = ╱6e╱n╱ // 0x1839 @0x10
0x1829…186b at0011 = ╱20╱…╱ // 0x183a @0x11
0x1829…186b at0012 = ╱6b╱k╱ // 0x183b @0x12
0x1829…186b at0013 = ╱61╱a╱ // 0x183c @0x13
0x1829…186b at0014 = ╱6e╱n╱ // 0x183d @0x14
0x1829…186b at0015 = ╱20╱…╱ // 0x183e @0x15
0x1829…186b at0016 = ╱69╱i╱ // 0x183f @0x16
0x1829…186b at0017 = ╱6b╱k╱ // 0x1840 @0x17
0x1829…186b at0018 = ╱6b╱k╱ // 0x1841 @0x18
0x1829…186b at0019 = ╱65╱e╱ // 0x1842 @0x19
0x1829…186b at001a = ╱20╱…╱ // 0x1843 @0x1a
0x1829…186b at001b = ╱61╱a╱ // 0x1844 @0x1b
0x1829…186b at001c = ╱6e╱n╱ // 0x1845 @0x1c
0x1829…186b at001d = ╱6e╱n╱ // 0x1846 @0x1d
0x1829…186b at001e = ╱75╱u╱ // 0x1847 @0x1e
0x1829…186b at001f = ╱6c╱l╱ // 0x1848 @0x1f
0x1829…186b at0020 = ╱65╱e╱ // 0x1849 @0x20
0x1829…186b at0021 = ╱72╱r╱ // 0x184a @0x21
0x1829…186b at0022 = ╱65╱e╱ // 0x184b @0x22
0x1829…186b at0023 = ╱73╱s╱ // 0x184c @0x23
0x1829…186b at0024 = ╱2c╱,╱ // 0x184d @0x24
0x1829…186b at0025 = ╱20╱…╱ // 0x184e @0x25
0x1829…186b at0026 = ╱74╱t╱ // 0x184f @0x26
0x1829…186b at0027 = ╱61╱a╱ // 0x1850 @0x27
0x1829…186b at0028 = ╱73╱s╱ // 0x1851 @0x28
0x1829…186b at0029 = ╱74╱t╱ // 0x1852 @0x29
0x1829…186b at002a = ╱20╱…╱ // 0x1853 @0x2a
0x1829…186b at002b = ╱52╱R╱ // 0x1854 @0x2b
0x1829…186b at002c = ╱45╱E╱ // 0x1855 @0x2c
0x1829…186b at002d = ╱54╱T╱ // 0x1856 @0x2d
0x1829…186b at002e = ╱55╱U╱ // 0x1857 @0x2e
0x1829…186b at002f = ╱52╱R╱ // 0x1858 @0x2f
0x1829…186b at0030 = ╱4e╱N╱ // 0x1859 @0x30
0x1829…186b at0031 = ╱22╱"╱ // 0x185a @0x31
0x1829…186b at0032 = ╱f1╱+╱ // 0x185b @0x32
0x1829…186b at0033 = ╱45╱E╱ // 0x185c @0x33
0x1829…186b at0034 = ╱32╱2╱ // 0x185d @0x34
0x1829…186b at0035 = ╱ef╱$╱ // 0x185e @0x35
0x1829…186b at0036 = ╱ed╱(╱ // 0x185f @0x36
0x1829…186b at0037 = ╱45╱E╱ // 0x1860 @0x37
0x1829…186b at0038 = ╱f0╱:╱ // 0x1861 @0x38
0x1829…186b at0039 = ╱33╱3╱ // 0x1862 @0x39
0x1829…186b at003a = ╱34╱4╱ // 0x1863 @0x3a
0x1829…186b at003b = ╱fe00008806╱ // 0x1864 @0x3b
0x1829…186b at0040 = ╱ee╱)╱ // 0x1869 @0x40
0x1829…186b at0041 = EOL // 0x186a @0x41
0x1829…186b }
0x186b…1880 a5d7 2830 CURSOR 48,23
0x186b…1880 LineComalBin {
0x186b…1880 ptr = 0xa5d7 // 0x186b @0x0
0x186b…1880 lno = 0x0b0e // 0x186d @0x2
0x186b…1880 at0004 = ╱a1╱ CURSOR ╱ // 0x186f @0x4
0x186b…1880 at0005 = ╱34╱4╱ // 0x1870 @0x5
0x186b…1880 at0006 = ╱38╱8╱ // 0x1871 @0x6
0x186b…1880 at0007 = ╱fe0000c006╱ // 0x1872 @0x7
0x186b…1880 at000c = ╱ec╱,╱ // 0x1877 @0xc
0x186b…1880 at000d = ╱32╱2╱ // 0x1878 @0xd
0x186b…1880 at000e = ╱33╱3╱ // 0x1879 @0xe
0x186b…1880 at000f = ╱fe0000b805╱ // 0x187a @0xf
0x186b…1880 at0014 = EOL // 0x187f @0x14
0x186b…1880 }
0x1880…1888 a5df 2840 INPUT A$
0x1880…1888 LineComalBin {
0x1880…1888 ptr = 0xa5df // 0x1880 @0x0
0x1880…1888 lno = 0x0b18 // 0x1882 @0x2
0x1880…1888 at0004 = ╱91╱ INPUT ╱ // 0x1884 @0x4
0x1880…1888 at0005 = ╱41╱A╱ // 0x1885 @0x5
0x1880…1888 at0006 = ╱ef╱$╱ // 0x1886 @0x6
0x1880…1888 at0007 = EOL // 0x1887 @0x7
0x1880…1888 }
0x1888…1898 a5ef 2850 EXEC NRTEST(A$)
0x1888…1898 LineComalBin {
0x1888…1898 ptr = 0xa5ef // 0x1888 @0x0
0x1888…1898 lno = 0x0b22 // 0x188a @0x2
0x1888…1898 at0004 = ╱9d╱ EXEC ╱ // 0x188c @0x4
0x1888…1898 at0005 = ╱4e╱N╱ // 0x188d @0x5
0x1888…1898 at0006 = ╱52╱R╱ // 0x188e @0x6
0x1888…1898 at0007 = ╱54╱T╱ // 0x188f @0x7
0x1888…1898 at0008 = ╱45╱E╱ // 0x1890 @0x8
0x1888…1898 at0009 = ╱53╱S╱ // 0x1891 @0x9
0x1888…1898 at000a = ╱54╱T╱ // 0x1892 @0xa
0x1888…1898 at000b = ╱ed╱(╱ // 0x1893 @0xb
0x1888…1898 at000c = ╱41╱A╱ // 0x1894 @0xc
0x1888…1898 at000d = ╱ef╱$╱ // 0x1895 @0xd
0x1888…1898 at000e = ╱ee╱)╱ // 0x1896 @0xe
0x1888…1898 at000f = EOL // 0x1897 @0xf
0x1888…1898 }
0x1898…18a2 a5f9 2860 UNTIL P=-E
0x1898…18a2 LineComalBin {
0x1898…18a2 ptr = 0xa5f9 // 0x1898 @0x0
0x1898…18a2 lno = 0x0b2c // 0x189a @0x2
0x1898…18a2 at0004 = ╱98╱ UNTIL ╱ // 0x189c @0x4
0x1898…18a2 at0005 = ╱50╱P╱ // 0x189d @0x5
0x1898…18a2 at0006 = ╱dc╱=╱ // 0x189e @0x6
0x1898…18a2 at0007 = ╱e9╱-╱ // 0x189f @0x7
0x1898…18a2 at0008 = ╱45╱E╱ // 0x18a0 @0x8
0x1898…18a2 at0009 = EOL // 0x18a1 @0x9
0x1898…18a2 }
0x18a2…18a8 a5ff 2870 ELSE
0x18a2…18a8 LineComalBin {
0x18a2…18a8 ptr = 0xa5ff // 0x18a2 @0x0
0x18a2…18a8 lno = 0x0b36 // 0x18a4 @0x2
0x18a2…18a8 at0004 = ╱9a╱ ELSE ╱ // 0x18a6 @0x4
0x18a2…18a8 at0005 = EOL // 0x18a7 @0x5
0x18a2…18a8 }
0x18a8…18bc a613 2880 L7=L7-E;K5=K5-E
0x18a8…18bc LineComalBin {
0x18a8…18bc ptr = 0xa613 // 0x18a8 @0x0
0x18a8…18bc lno = 0x0b40 // 0x18aa @0x2
0x18a8…18bc at0004 = ╱4c╱L╱ // 0x18ac @0x4
0x18a8…18bc at0005 = ╱37╱7╱ // 0x18ad @0x5
0x18a8…18bc at0006 = ╱dc╱=╱ // 0x18ae @0x6
0x18a8…18bc at0007 = ╱4c╱L╱ // 0x18af @0x7
0x18a8…18bc at0008 = ╱37╱7╱ // 0x18b0 @0x8
0x18a8…18bc at0009 = ╱e3╱-╱ // 0x18b1 @0x9
0x18a8…18bc at000a = ╱45╱E╱ // 0x18b2 @0xa
0x18a8…18bc at000b = ╱eb╱;╱ // 0x18b3 @0xb
0x18a8…18bc at000c = ╱4b╱K╱ // 0x18b4 @0xc
0x18a8…18bc at000d = ╱35╱5╱ // 0x18b5 @0xd
0x18a8…18bc at000e = ╱dc╱=╱ // 0x18b6 @0xe
0x18a8…18bc at000f = ╱4b╱K╱ // 0x18b7 @0xf
0x18a8…18bc at0010 = ╱35╱5╱ // 0x18b8 @0x10
0x18a8…18bc at0011 = ╱e3╱-╱ // 0x18b9 @0x11
0x18a8…18bc at0012 = ╱45╱E╱ // 0x18ba @0x12
0x18a8…18bc at0013 = EOL // 0x18bb @0x13
0x18a8…18bc }
0x18bc…18c8 a61f 2890 CURSOR V,L7+V
0x18bc…18c8 LineComalBin {
0x18bc…18c8 ptr = 0xa61f // 0x18bc @0x0
0x18bc…18c8 lno = 0x0b4a // 0x18be @0x2
0x18bc…18c8 at0004 = ╱a1╱ CURSOR ╱ // 0x18c0 @0x4
0x18bc…18c8 at0005 = ╱56╱V╱ // 0x18c1 @0x5
0x18bc…18c8 at0006 = ╱ec╱,╱ // 0x18c2 @0x6
0x18bc…18c8 at0007 = ╱4c╱L╱ // 0x18c3 @0x7
0x18bc…18c8 at0008 = ╱37╱7╱ // 0x18c4 @0x8
0x18bc…18c8 at0009 = ╱e2╱+╱ // 0x18c5 @0x9
0x18bc…18c8 at000a = ╱56╱V╱ // 0x18c6 @0xa
0x18bc…18c8 at000b = EOL // 0x18c7 @0xb
0x18bc…18c8 }
0x18c8…18d1 a628 2900 PRINT E2$
0x18c8…18d1 LineComalBin {
0x18c8…18d1 ptr = 0xa628 // 0x18c8 @0x0
0x18c8…18d1 lno = 0x0b54 // 0x18ca @0x2
0x18c8…18d1 at0004 = ╱92╱ PRINT ╱ // 0x18cc @0x4
0x18c8…18d1 at0005 = ╱45╱E╱ // 0x18cd @0x5
0x18c8…18d1 at0006 = ╱32╱2╱ // 0x18ce @0x6
0x18c8…18d1 at0007 = ╱ef╱$╱ // 0x18cf @0x7
0x18c8…18d1 at0008 = EOL // 0x18d0 @0x8
0x18c8…18d1 }
0x18d1…18e0 a637 2910 FOR I=J9 TO I8-E
0x18d1…18e0 LineComalBin {
0x18d1…18e0 ptr = 0xa637 // 0x18d1 @0x0
0x18d1…18e0 lno = 0x0b5e // 0x18d3 @0x2
0x18d1…18e0 at0004 = ╱83╱ FOR ╱ // 0x18d5 @0x4
0x18d1…18e0 at0005 = ╱49╱I╱ // 0x18d6 @0x5
0x18d1…18e0 at0006 = ╱dc╱=╱ // 0x18d7 @0x6
0x18d1…18e0 at0007 = ╱4a╱J╱ // 0x18d8 @0x7
0x18d1…18e0 at0008 = ╱39╱9╱ // 0x18d9 @0x8
0x18d1…18e0 at0009 = ╱b7╱ TO ╱ // 0x18da @0x9
0x18d1…18e0 at000a = ╱49╱I╱ // 0x18db @0xa
0x18d1…18e0 at000b = ╱38╱8╱ // 0x18dc @0xb
0x18d1…18e0 at000c = ╱e3╱-╱ // 0x18dd @0xc
0x18d1…18e0 at000d = ╱45╱E╱ // 0x18de @0xd
0x18d1…18e0 at000e = EOL // 0x18df @0xe
0x18d1…18e0 }
0x18e0…18ed a644 2920 PUT B0$,I:B
0x18e0…18ed LineComalBin {
0x18e0…18ed ptr = 0xa644 // 0x18e0 @0x0
0x18e0…18ed lno = 0x0b68 // 0x18e2 @0x2
0x18e0…18ed at0004 = ╱aa╱ PUT ╱ // 0x18e4 @0x4
0x18e0…18ed at0005 = ╱42╱B╱ // 0x18e5 @0x5
0x18e0…18ed at0006 = ╱30╱0╱ // 0x18e6 @0x6
0x18e0…18ed at0007 = ╱ef╱$╱ // 0x18e7 @0x7
0x18e0…18ed at0008 = ╱ec╱,╱ // 0x18e8 @0x8
0x18e0…18ed at0009 = ╱49╱I╱ // 0x18e9 @0x9
0x18e0…18ed at000a = ╱f0╱:╱ // 0x18ea @0xa
0x18e0…18ed at000b = ╱42╱B╱ // 0x18eb @0xb
0x18e0…18ed at000c = EOL // 0x18ec @0xc
0x18e0…18ed }
0x18ed…18fe a655 2930 EXEC FE(E,G,B0$)
0x18ed…18fe LineComalBin {
0x18ed…18fe ptr = 0xa655 // 0x18ed @0x0
0x18ed…18fe lno = 0x0b72 // 0x18ef @0x2
0x18ed…18fe at0004 = ╱9d╱ EXEC ╱ // 0x18f1 @0x4
0x18ed…18fe at0005 = ╱46╱F╱ // 0x18f2 @0x5
0x18ed…18fe at0006 = ╱45╱E╱ // 0x18f3 @0x6
0x18ed…18fe at0007 = ╱ed╱(╱ // 0x18f4 @0x7
0x18ed…18fe at0008 = ╱45╱E╱ // 0x18f5 @0x8
0x18ed…18fe at0009 = ╱ec╱,╱ // 0x18f6 @0x9
0x18ed…18fe at000a = ╱47╱G╱ // 0x18f7 @0xa
0x18ed…18fe at000b = ╱ec╱,╱ // 0x18f8 @0xb
0x18ed…18fe at000c = ╱42╱B╱ // 0x18f9 @0xc
0x18ed…18fe at000d = ╱30╱0╱ // 0x18fa @0xd
0x18ed…18fe at000e = ╱ef╱$╱ // 0x18fb @0xe
0x18ed…18fe at000f = ╱ee╱)╱ // 0x18fc @0xf
0x18ed…18fe at0010 = EOL // 0x18fd @0x10
0x18ed…18fe }
0x18fe…1905 a65c 2940 NEXT I
0x18fe…1905 LineComalBin {
0x18fe…1905 ptr = 0xa65c // 0x18fe @0x0
0x18fe…1905 lno = 0x0b7c // 0x1900 @0x2
0x18fe…1905 at0004 = ╱84╱ NEXT ╱ // 0x1902 @0x4
0x18fe…1905 at0005 = ╱49╱I╱ // 0x1903 @0x5
0x18fe…1905 at0006 = EOL // 0x1904 @0x6
0x18fe…1905 }
0x1905…190f a666 2950 I8=J9
0x1905…190f LineComalBin {
0x1905…190f ptr = 0xa666 // 0x1905 @0x0
0x1905…190f lno = 0x0b86 // 0x1907 @0x2
0x1905…190f at0004 = ╱49╱I╱ // 0x1909 @0x4
0x1905…190f at0005 = ╱38╱8╱ // 0x190a @0x5
0x1905…190f at0006 = ╱dc╱=╱ // 0x190b @0x6
0x1905…190f at0007 = ╱4a╱J╱ // 0x190c @0x7
0x1905…190f at0008 = ╱39╱9╱ // 0x190d @0x8
0x1905…190f at0009 = EOL // 0x190e @0x9
0x1905…190f }
0x190f…1915 a66c 2960 ENDIF
0x190f…1915 LineComalBin {
0x190f…1915 ptr = 0xa66c // 0x190f @0x0
0x190f…1915 lno = 0x0b90 // 0x1911 @0x2
0x190f…1915 at0004 = ╱9b╱ ENDIF ╱ // 0x1913 @0x4
0x190f…1915 at0005 = EOL // 0x1914 @0x5
0x190f…1915 }
0x1915…191b a672 2970 ELSE
0x1915…191b LineComalBin {
0x1915…191b ptr = 0xa672 // 0x1915 @0x0
0x1915…191b lno = 0x0b9a // 0x1917 @0x2
0x1915…191b at0004 = ╱9a╱ ELSE ╱ // 0x1919 @0x4
0x1915…191b at0005 = EOL // 0x191a @0x5
0x1915…191b }
0x191b…1926 a67d 2980 IF K1>B THEN
0x191b…1926 LineComalBin {
0x191b…1926 ptr = 0xa67d // 0x191b @0x0
0x191b…1926 lno = 0x0ba4 // 0x191d @0x2
0x191b…1926 at0004 = ╱9c╱ IF ╱ // 0x191f @0x4
0x191b…1926 at0005 = ╱4b╱K╱ // 0x1920 @0x5
0x191b…1926 at0006 = ╱31╱1╱ // 0x1921 @0x6
0x191b…1926 at0007 = ╱de╱>╱ // 0x1922 @0x7
0x191b…1926 at0008 = ╱42╱B╱ // 0x1923 @0x8
0x191b…1926 at0009 = ╱b6╱ THEN ╱ // 0x1924 @0x9
0x191b…1926 at000a = EOL // 0x1925 @0xa
0x191b…1926 }
0x1926…1931 a688 2990 IF M6=E THEN
0x1926…1931 LineComalBin {
0x1926…1931 ptr = 0xa688 // 0x1926 @0x0
0x1926…1931 lno = 0x0bae // 0x1928 @0x2
0x1926…1931 at0004 = ╱9c╱ IF ╱ // 0x192a @0x4
0x1926…1931 at0005 = ╱4d╱M╱ // 0x192b @0x5
0x1926…1931 at0006 = ╱36╱6╱ // 0x192c @0x6
0x1926…1931 at0007 = ╱dc╱=╱ // 0x192d @0x7
0x1926…1931 at0008 = ╱45╱E╱ // 0x192e @0x8
0x1926…1931 at0009 = ╱b6╱ THEN ╱ // 0x192f @0x9
0x1926…1931 at000a = EOL // 0x1930 @0xa
0x1926…1931 }
0x1931…194d a6a4 3000 CURSOR V,(P-E) MOD 18+4
0x1931…194d LineComalBin {
0x1931…194d ptr = 0xa6a4 // 0x1931 @0x0
0x1931…194d lno = 0x0bb8 // 0x1933 @0x2
0x1931…194d at0004 = ╱a1╱ CURSOR ╱ // 0x1935 @0x4
0x1931…194d at0005 = ╱56╱V╱ // 0x1936 @0x5
0x1931…194d at0006 = ╱ec╱,╱ // 0x1937 @0x6
0x1931…194d at0007 = ╱ed╱(╱ // 0x1938 @0x7
0x1931…194d at0008 = ╱50╱P╱ // 0x1939 @0x8
0x1931…194d at0009 = ╱e3╱-╱ // 0x193a @0x9
0x1931…194d at000a = ╱45╱E╱ // 0x193b @0xa
0x1931…194d at000b = ╱ee╱)╱ // 0x193c @0xb
0x1931…194d at000c = ╱e8╱ MOD ╱ // 0x193d @0xc
0x1931…194d at000d = ╱31╱1╱ // 0x193e @0xd
0x1931…194d at000e = ╱38╱8╱ // 0x193f @0xe
0x1931…194d at000f = ╱fe00009005╱ // 0x1940 @0xf
0x1931…194d at0014 = ╱e2╱+╱ // 0x1945 @0x14
0x1931…194d at0015 = ╱34╱4╱ // 0x1946 @0x15
0x1931…194d at0016 = ╱fe00008003╱ // 0x1947 @0x16
0x1931…194d at001b = EOL // 0x194c @0x1b
0x1931…194d }
0x194d…1953 a6aa 3010 ELSE
0x194d…1953 LineComalBin {
0x194d…1953 ptr = 0xa6aa // 0x194d @0x0
0x194d…1953 lno = 0x0bc2 // 0x194f @0x2
0x194d…1953 at0004 = ╱9a╱ ELSE ╱ // 0x1951 @0x4
0x194d…1953 at0005 = EOL // 0x1952 @0x5
0x194d…1953 }
0x1953…1964 a6bb 3020 P=K1;L7=L7-E
0x1953…1964 LineComalBin {
0x1953…1964 ptr = 0xa6bb // 0x1953 @0x0
0x1953…1964 lno = 0x0bcc // 0x1955 @0x2
0x1953…1964 at0004 = ╱50╱P╱ // 0x1957 @0x4
0x1953…1964 at0005 = ╱dc╱=╱ // 0x1958 @0x5
0x1953…1964 at0006 = ╱4b╱K╱ // 0x1959 @0x6
0x1953…1964 at0007 = ╱31╱1╱ // 0x195a @0x7
0x1953…1964 at0008 = ╱eb╱;╱ // 0x195b @0x8
0x1953…1964 at0009 = ╱4c╱L╱ // 0x195c @0x9
0x1953…1964 at000a = ╱37╱7╱ // 0x195d @0xa
0x1953…1964 at000b = ╱dc╱=╱ // 0x195e @0xb
0x1953…1964 at000c = ╱4c╱L╱ // 0x195f @0xc
0x1953…1964 at000d = ╱37╱7╱ // 0x1960 @0xd
0x1953…1964 at000e = ╱e3╱-╱ // 0x1961 @0xe
0x1953…1964 at000f = ╱45╱E╱ // 0x1962 @0xf
0x1953…1964 at0010 = EOL // 0x1963 @0x10
0x1953…1964 }
0x1964…1970 a6c7 3030 CURSOR V,L7+V
0x1964…1970 LineComalBin {
0x1964…1970 ptr = 0xa6c7 // 0x1964 @0x0
0x1964…1970 lno = 0x0bd6 // 0x1966 @0x2
0x1964…1970 at0004 = ╱a1╱ CURSOR ╱ // 0x1968 @0x4
0x1964…1970 at0005 = ╱56╱V╱ // 0x1969 @0x5
0x1964…1970 at0006 = ╱ec╱,╱ // 0x196a @0x6
0x1964…1970 at0007 = ╱4c╱L╱ // 0x196b @0x7
0x1964…1970 at0008 = ╱37╱7╱ // 0x196c @0x8
0x1964…1970 at0009 = ╱e2╱+╱ // 0x196d @0x9
0x1964…1970 at000a = ╱56╱V╱ // 0x196e @0xa
0x1964…1970 at000b = EOL // 0x196f @0xb
0x1964…1970 }
0x1970…1976 a6cd 3040 ENDIF
0x1970…1976 LineComalBin {
0x1970…1976 ptr = 0xa6cd // 0x1970 @0x0
0x1970…1976 lno = 0x0be0 // 0x1972 @0x2
0x1970…1976 at0004 = ╱9b╱ ENDIF ╱ // 0x1974 @0x4
0x1970…1976 at0005 = EOL // 0x1975 @0x5
0x1970…1976 }
0x1976…198b a6e2 3050 IF C8(P)>W THEN K2=K2-E
0x1976…198b LineComalBin {
0x1976…198b ptr = 0xa6e2 // 0x1976 @0x0
0x1976…198b lno = 0x0bea // 0x1978 @0x2
0x1976…198b at0004 = ╱82╱ IF ╱ // 0x197a @0x4
0x1976…198b at0005 = ╱43╱C╱ // 0x197b @0x5
0x1976…198b at0006 = ╱38╱8╱ // 0x197c @0x6
0x1976…198b at0007 = ╱ed╱(╱ // 0x197d @0x7
0x1976…198b at0008 = ╱50╱P╱ // 0x197e @0x8
0x1976…198b at0009 = ╱ee╱)╱ // 0x197f @0x9
0x1976…198b at000a = ╱de╱>╱ // 0x1980 @0xa
0x1976…198b at000b = ╱57╱W╱ // 0x1981 @0xb
0x1976…198b at000c = ╱b6╱ THEN ╱ // 0x1982 @0xc
0x1976…198b at000d = ╱4b╱K╱ // 0x1983 @0xd
0x1976…198b at000e = ╱32╱2╱ // 0x1984 @0xe
0x1976…198b at000f = ╱dc╱=╱ // 0x1985 @0xf
0x1976…198b at0010 = ╱4b╱K╱ // 0x1986 @0x10
0x1976…198b at0011 = ╱32╱2╱ // 0x1987 @0x11
0x1976…198b at0012 = ╱e3╱-╱ // 0x1988 @0x12
0x1976…198b at0013 = ╱45╱E╱ // 0x1989 @0x13
0x1976…198b at0014 = EOL // 0x198a @0x14
0x1976…198b }
0x198b…1994 a6eb 3060 PRINT E2$
0x198b…1994 LineComalBin {
0x198b…1994 ptr = 0xa6eb // 0x198b @0x0
0x198b…1994 lno = 0x0bf4 // 0x198d @0x2
0x198b…1994 at0004 = ╱92╱ PRINT ╱ // 0x198f @0x4
0x198b…1994 at0005 = ╱45╱E╱ // 0x1990 @0x5
0x198b…1994 at0006 = ╱32╱2╱ // 0x1991 @0x6
0x198b…1994 at0007 = ╱ef╱$╱ // 0x1992 @0x7
0x198b…1994 at0008 = EOL // 0x1993 @0x8
0x198b…1994 }
0x1994…19ae a705 3070 EXEC CA(E,B6$,E4$(P),B6$)
0x1994…19ae LineComalBin {
0x1994…19ae ptr = 0xa705 // 0x1994 @0x0
0x1994…19ae lno = 0x0bfe // 0x1996 @0x2
0x1994…19ae at0004 = ╱9d╱ EXEC ╱ // 0x1998 @0x4
0x1994…19ae at0005 = ╱43╱C╱ // 0x1999 @0x5
0x1994…19ae at0006 = ╱41╱A╱ // 0x199a @0x6
0x1994…19ae at0007 = ╱ed╱(╱ // 0x199b @0x7
0x1994…19ae at0008 = ╱45╱E╱ // 0x199c @0x8
0x1994…19ae at0009 = ╱ec╱,╱ // 0x199d @0x9
0x1994…19ae at000a = ╱42╱B╱ // 0x199e @0xa
0x1994…19ae at000b = ╱36╱6╱ // 0x199f @0xb
0x1994…19ae at000c = ╱ef╱$╱ // 0x19a0 @0xc
0x1994…19ae at000d = ╱ec╱,╱ // 0x19a1 @0xd
0x1994…19ae at000e = ╱45╱E╱ // 0x19a2 @0xe
0x1994…19ae at000f = ╱34╱4╱ // 0x19a3 @0xf
0x1994…19ae at0010 = ╱ef╱$╱ // 0x19a4 @0x10
0x1994…19ae at0011 = ╱ed╱(╱ // 0x19a5 @0x11
0x1994…19ae at0012 = ╱50╱P╱ // 0x19a6 @0x12
0x1994…19ae at0013 = ╱ee╱)╱ // 0x19a7 @0x13
0x1994…19ae at0014 = ╱ec╱,╱ // 0x19a8 @0x14
0x1994…19ae at0015 = ╱42╱B╱ // 0x19a9 @0x15
0x1994…19ae at0016 = ╱36╱6╱ // 0x19aa @0x16
0x1994…19ae at0017 = ╱ef╱$╱ // 0x19ab @0x17
0x1994…19ae at0018 = ╱ee╱)╱ // 0x19ac @0x18
0x1994…19ae at0019 = EOL // 0x19ad @0x19
0x1994…19ae }
0x19ae…19f4 a74b 3080 C6(P),E8(P),C7(P),E3(P),C8(P)=B;C9$(P)=E2$(E:25);E4$(P)="0+"
0x19ae…19f4 LineComalBin {
0x19ae…19f4 ptr = 0xa74b // 0x19ae @0x0
0x19ae…19f4 lno = 0x0c08 // 0x19b0 @0x2
0x19ae…19f4 at0004 = ╱43╱C╱ // 0x19b2 @0x4
0x19ae…19f4 at0005 = ╱36╱6╱ // 0x19b3 @0x5
0x19ae…19f4 at0006 = ╱ed╱(╱ // 0x19b4 @0x6
0x19ae…19f4 at0007 = ╱50╱P╱ // 0x19b5 @0x7
0x19ae…19f4 at0008 = ╱ee╱)╱ // 0x19b6 @0x8
0x19ae…19f4 at0009 = ╱ec╱,╱ // 0x19b7 @0x9
0x19ae…19f4 at000a = ╱45╱E╱ // 0x19b8 @0xa
0x19ae…19f4 at000b = ╱38╱8╱ // 0x19b9 @0xb
0x19ae…19f4 at000c = ╱ed╱(╱ // 0x19ba @0xc
0x19ae…19f4 at000d = ╱50╱P╱ // 0x19bb @0xd
0x19ae…19f4 at000e = ╱ee╱)╱ // 0x19bc @0xe
0x19ae…19f4 at000f = ╱ec╱,╱ // 0x19bd @0xf
0x19ae…19f4 at0010 = ╱43╱C╱ // 0x19be @0x10
0x19ae…19f4 at0011 = ╱37╱7╱ // 0x19bf @0x11
0x19ae…19f4 at0012 = ╱ed╱(╱ // 0x19c0 @0x12
0x19ae…19f4 at0013 = ╱50╱P╱ // 0x19c1 @0x13
0x19ae…19f4 at0014 = ╱ee╱)╱ // 0x19c2 @0x14
0x19ae…19f4 at0015 = ╱ec╱,╱ // 0x19c3 @0x15
0x19ae…19f4 at0016 = ╱45╱E╱ // 0x19c4 @0x16
0x19ae…19f4 at0017 = ╱33╱3╱ // 0x19c5 @0x17
0x19ae…19f4 at0018 = ╱ed╱(╱ // 0x19c6 @0x18
0x19ae…19f4 at0019 = ╱50╱P╱ // 0x19c7 @0x19
0x19ae…19f4 at001a = ╱ee╱)╱ // 0x19c8 @0x1a
0x19ae…19f4 at001b = ╱ec╱,╱ // 0x19c9 @0x1b
0x19ae…19f4 at001c = ╱43╱C╱ // 0x19ca @0x1c
0x19ae…19f4 at001d = ╱38╱8╱ // 0x19cb @0x1d
0x19ae…19f4 at001e = ╱ed╱(╱ // 0x19cc @0x1e
0x19ae…19f4 at001f = ╱50╱P╱ // 0x19cd @0x1f
0x19ae…19f4 at0020 = ╱ee╱)╱ // 0x19ce @0x20
0x19ae…19f4 at0021 = ╱dc╱=╱ // 0x19cf @0x21
0x19ae…19f4 at0022 = ╱42╱B╱ // 0x19d0 @0x22
0x19ae…19f4 at0023 = ╱eb╱;╱ // 0x19d1 @0x23
0x19ae…19f4 at0024 = ╱43╱C╱ // 0x19d2 @0x24
0x19ae…19f4 at0025 = ╱39╱9╱ // 0x19d3 @0x25
0x19ae…19f4 at0026 = ╱ef╱$╱ // 0x19d4 @0x26
0x19ae…19f4 at0027 = ╱ed╱(╱ // 0x19d5 @0x27
0x19ae…19f4 at0028 = ╱50╱P╱ // 0x19d6 @0x28
0x19ae…19f4 at0029 = ╱ee╱)╱ // 0x19d7 @0x29
0x19ae…19f4 at002a = ╱dc╱=╱ // 0x19d8 @0x2a
0x19ae…19f4 at002b = ╱45╱E╱ // 0x19d9 @0x2b
0x19ae…19f4 at002c = ╱32╱2╱ // 0x19da @0x2c
0x19ae…19f4 at002d = ╱ef╱$╱ // 0x19db @0x2d
0x19ae…19f4 at002e = ╱ed╱(╱ // 0x19dc @0x2e
0x19ae…19f4 at002f = ╱45╱E╱ // 0x19dd @0x2f
0x19ae…19f4 at0030 = ╱f0╱:╱ // 0x19de @0x30
0x19ae…19f4 at0031 = ╱32╱2╱ // 0x19df @0x31
0x19ae…19f4 at0032 = ╱35╱5╱ // 0x19e0 @0x32
0x19ae…19f4 at0033 = ╱fe0000c805╱ // 0x19e1 @0x33
0x19ae…19f4 at0038 = ╱ee╱)╱ // 0x19e6 @0x38
0x19ae…19f4 at0039 = ╱eb╱;╱ // 0x19e7 @0x39
0x19ae…19f4 at003a = ╱45╱E╱ // 0x19e8 @0x3a
0x19ae…19f4 at003b = ╱34╱4╱ // 0x19e9 @0x3b
0x19ae…19f4 at003c = ╱ef╱$╱ // 0x19ea @0x3c
0x19ae…19f4 at003d = ╱ed╱(╱ // 0x19eb @0x3d
0x19ae…19f4 at003e = ╱50╱P╱ // 0x19ec @0x3e
0x19ae…19f4 at003f = ╱ee╱)╱ // 0x19ed @0x3f
0x19ae…19f4 at0040 = ╱dc╱=╱ // 0x19ee @0x40
0x19ae…19f4 at0041 = ╱22╱"╱ // 0x19ef @0x41
0x19ae…19f4 at0042 = ╱30╱0╱ // 0x19f0 @0x42
0x19ae…19f4 at0043 = ╱2b╱+╱ // 0x19f1 @0x43
0x19ae…19f4 at0044 = ╱22╱"╱ // 0x19f2 @0x44
0x19ae…19f4 at0045 = EOL // 0x19f3 @0x45
0x19ae…19f4 }
0x19f4…1a0e a765 3090 IF M6=B THEN K1=K1-E;K2=K2-E
0x19f4…1a0e LineComalBin {
0x19f4…1a0e ptr = 0xa765 // 0x19f4 @0x0
0x19f4…1a0e lno = 0x0c12 // 0x19f6 @0x2
0x19f4…1a0e at0004 = ╱82╱ IF ╱ // 0x19f8 @0x4
0x19f4…1a0e at0005 = ╱4d╱M╱ // 0x19f9 @0x5
0x19f4…1a0e at0006 = ╱36╱6╱ // 0x19fa @0x6
0x19f4…1a0e at0007 = ╱dc╱=╱ // 0x19fb @0x7
0x19f4…1a0e at0008 = ╱42╱B╱ // 0x19fc @0x8
0x19f4…1a0e at0009 = ╱b6╱ THEN ╱ // 0x19fd @0x9
0x19f4…1a0e at000a = ╱4b╱K╱ // 0x19fe @0xa
0x19f4…1a0e at000b = ╱31╱1╱ // 0x19ff @0xb
0x19f4…1a0e at000c = ╱dc╱=╱ // 0x1a00 @0xc
0x19f4…1a0e at000d = ╱4b╱K╱ // 0x1a01 @0xd
0x19f4…1a0e at000e = ╱31╱1╱ // 0x1a02 @0xe
0x19f4…1a0e at000f = ╱e3╱-╱ // 0x1a03 @0xf
0x19f4…1a0e at0010 = ╱45╱E╱ // 0x1a04 @0x10
0x19f4…1a0e at0011 = ╱eb╱;╱ // 0x1a05 @0x11
0x19f4…1a0e at0012 = ╱4b╱K╱ // 0x1a06 @0x12
0x19f4…1a0e at0013 = ╱32╱2╱ // 0x1a07 @0x13
0x19f4…1a0e at0014 = ╱dc╱=╱ // 0x1a08 @0x14
0x19f4…1a0e at0015 = ╱4b╱K╱ // 0x1a09 @0x15
0x19f4…1a0e at0016 = ╱32╱2╱ // 0x1a0a @0x16
0x19f4…1a0e at0017 = ╱e3╱-╱ // 0x1a0b @0x17
0x19f4…1a0e at0018 = ╱45╱E╱ // 0x1a0c @0x18
0x19f4…1a0e at0019 = EOL // 0x1a0d @0x19
0x19f4…1a0e }
0x1a0e…1a14 a76b 3100 ENDIF
0x1a0e…1a14 LineComalBin {
0x1a0e…1a14 ptr = 0xa76b // 0x1a0e @0x0
0x1a0e…1a14 lno = 0x0c1c // 0x1a10 @0x2
0x1a0e…1a14 at0004 = ╱9b╱ ENDIF ╱ // 0x1a12 @0x4
0x1a0e…1a14 at0005 = EOL // 0x1a13 @0x5
0x1a0e…1a14 }
0x1a14…1a1a a771 3110 ENDIF
0x1a14…1a1a LineComalBin {
0x1a14…1a1a ptr = 0xa771 // 0x1a14 @0x0
0x1a14…1a1a lno = 0x0c26 // 0x1a16 @0x2
0x1a14…1a1a at0004 = ╱9b╱ ENDIF ╱ // 0x1a18 @0x4
0x1a14…1a1a at0005 = EOL // 0x1a19 @0x5
0x1a14…1a1a }
0x1a1a…1a20 a777 3120 ENDPROC
0x1a1a…1a20 LineComalBin {
0x1a1a…1a20 ptr = 0xa777 // 0x1a1a @0x0
0x1a1a…1a20 lno = 0x0c30 // 0x1a1c @0x2
0x1a1a…1a20 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a1e @0x4
0x1a1a…1a20 at0005 = EOL // 0x1a1f @0x5
0x1a1a…1a20 }
0x1a20…1a30 a787 3130 PROC NRTEST(M7)
0x1a20…1a30 LineComalBin {
0x1a20…1a30 ptr = 0xa787 // 0x1a20 @0x0
0x1a20…1a30 lno = 0x0c3a // 0x1a22 @0x2
0x1a20…1a30 at0004 = ╱9e╱ PROC ╱ // 0x1a24 @0x4
0x1a20…1a30 at0005 = ╱4e╱N╱ // 0x1a25 @0x5
0x1a20…1a30 at0006 = ╱52╱R╱ // 0x1a26 @0x6
0x1a20…1a30 at0007 = ╱54╱T╱ // 0x1a27 @0x7
0x1a20…1a30 at0008 = ╱45╱E╱ // 0x1a28 @0x8
0x1a20…1a30 at0009 = ╱53╱S╱ // 0x1a29 @0x9
0x1a20…1a30 at000a = ╱54╱T╱ // 0x1a2a @0xa
0x1a20…1a30 at000b = ╱ed╱(╱ // 0x1a2b @0xb
0x1a20…1a30 at000c = ╱4d╱M╱ // 0x1a2c @0xc
0x1a20…1a30 at000d = ╱37╱7╱ // 0x1a2d @0xd
0x1a20…1a30 at000e = ╱ee╱)╱ // 0x1a2e @0xe
0x1a20…1a30 at000f = EOL // 0x1a2f @0xf
0x1a20…1a30 }
0x1a30…1a48 a79f 3140 P,M8,K7=B;M9=LEN(M7$)
0x1a30…1a48 LineComalBin {
0x1a30…1a48 ptr = 0xa79f // 0x1a30 @0x0
0x1a30…1a48 lno = 0x0c44 // 0x1a32 @0x2
0x1a30…1a48 at0004 = ╱50╱P╱ // 0x1a34 @0x4
0x1a30…1a48 at0005 = ╱ec╱,╱ // 0x1a35 @0x5
0x1a30…1a48 at0006 = ╱4d╱M╱ // 0x1a36 @0x6
0x1a30…1a48 at0007 = ╱38╱8╱ // 0x1a37 @0x7
0x1a30…1a48 at0008 = ╱ec╱,╱ // 0x1a38 @0x8
0x1a30…1a48 at0009 = ╱4b╱K╱ // 0x1a39 @0x9
0x1a30…1a48 at000a = ╱37╱7╱ // 0x1a3a @0xa
0x1a30…1a48 at000b = ╱dc╱=╱ // 0x1a3b @0xb
0x1a30…1a48 at000c = ╱42╱B╱ // 0x1a3c @0xc
0x1a30…1a48 at000d = ╱eb╱;╱ // 0x1a3d @0xd
0x1a30…1a48 at000e = ╱4d╱M╱ // 0x1a3e @0xe
0x1a30…1a48 at000f = ╱39╱9╱ // 0x1a3f @0xf
0x1a30…1a48 at0010 = ╱dc╱=╱ // 0x1a40 @0x10
0x1a30…1a48 at0011 = ╱cc╱LEN╱ // 0x1a41 @0x11
0x1a30…1a48 at0012 = ╱ed╱(╱ // 0x1a42 @0x12
0x1a30…1a48 at0013 = ╱4d╱M╱ // 0x1a43 @0x13
0x1a30…1a48 at0014 = ╱37╱7╱ // 0x1a44 @0x14
0x1a30…1a48 at0015 = ╱ef╱$╱ // 0x1a45 @0x15
0x1a30…1a48 at0016 = ╱ee╱)╱ // 0x1a46 @0x16
0x1a30…1a48 at0017 = EOL // 0x1a47 @0x17
0x1a30…1a48 }
0x1a48…1a52 a7a9 3150 CASE M9 OF
0x1a48…1a52 LineComalBin {
0x1a48…1a52 ptr = 0xa7a9 // 0x1a48 @0x0
0x1a48…1a52 lno = 0x0c4e // 0x1a4a @0x2
0x1a48…1a52 at0004 = ╱a201╱ CASE ╱ // 0x1a4c @0x4
0x1a48…1a52 at0006 = ╱4d╱M╱ // 0x1a4e @0x6
0x1a48…1a52 at0007 = ╱39╱9╱ // 0x1a4f @0x7
0x1a48…1a52 at0008 = ╱ba╱ OF ╱ // 0x1a50 @0x8
0x1a48…1a52 at0009 = EOL // 0x1a51 @0x9
0x1a48…1a52 }
0x1a52…1a5e a7b5 3160 FOR I=E TO M9
0x1a52…1a5e LineComalBin {
0x1a52…1a5e ptr = 0xa7b5 // 0x1a52 @0x0
0x1a52…1a5e lno = 0x0c58 // 0x1a54 @0x2
0x1a52…1a5e at0004 = ╱83╱ FOR ╱ // 0x1a56 @0x4
0x1a52…1a5e at0005 = ╱49╱I╱ // 0x1a57 @0x5
0x1a52…1a5e at0006 = ╱dc╱=╱ // 0x1a58 @0x6
0x1a52…1a5e at0007 = ╱45╱E╱ // 0x1a59 @0x7
0x1a52…1a5e at0008 = ╱b7╱ TO ╱ // 0x1a5a @0x8
0x1a52…1a5e at0009 = ╱4d╱M╱ // 0x1a5b @0x9
0x1a52…1a5e at000a = ╱39╱9╱ // 0x1a5c @0xa
0x1a52…1a5e at000b = EOL // 0x1a5d @0xb
0x1a52…1a5e }
0x1a5e…1a7a a7d1 3170 N0=INT(ORD(M7$(I))-48)
0x1a5e…1a7a LineComalBin {
0x1a5e…1a7a ptr = 0xa7d1 // 0x1a5e @0x0
0x1a5e…1a7a lno = 0x0c62 // 0x1a60 @0x2
0x1a5e…1a7a at0004 = ╱4e╱N╱ // 0x1a62 @0x4
0x1a5e…1a7a at0005 = ╱30╱0╱ // 0x1a63 @0x5
0x1a5e…1a7a at0006 = ╱dc╱=╱ // 0x1a64 @0x6
0x1a5e…1a7a at0007 = ╱c6╱INT╱ // 0x1a65 @0x7
0x1a5e…1a7a at0008 = ╱ed╱(╱ // 0x1a66 @0x8
0x1a5e…1a7a at0009 = ╱cd╱ORD╱ // 0x1a67 @0x9
0x1a5e…1a7a at000a = ╱ed╱(╱ // 0x1a68 @0xa
0x1a5e…1a7a at000b = ╱4d╱M╱ // 0x1a69 @0xb
0x1a5e…1a7a at000c = ╱37╱7╱ // 0x1a6a @0xc
0x1a5e…1a7a at000d = ╱ef╱$╱ // 0x1a6b @0xd
0x1a5e…1a7a at000e = ╱ed╱(╱ // 0x1a6c @0xe
0x1a5e…1a7a at000f = ╱49╱I╱ // 0x1a6d @0xf
0x1a5e…1a7a at0010 = ╱ee╱)╱ // 0x1a6e @0x10
0x1a5e…1a7a at0011 = ╱ee╱)╱ // 0x1a6f @0x11
0x1a5e…1a7a at0012 = ╱e3╱-╱ // 0x1a70 @0x12
0x1a5e…1a7a at0013 = ╱34╱4╱ // 0x1a71 @0x13
0x1a5e…1a7a at0014 = ╱38╱8╱ // 0x1a72 @0x14
0x1a5e…1a7a at0015 = ╱fe0000c006╱ // 0x1a73 @0x15
0x1a5e…1a7a at001a = ╱ee╱)╱ // 0x1a78 @0x1a
0x1a5e…1a7a at001b = EOL // 0x1a79 @0x1b
0x1a5e…1a7a }
0x1a7a…1a8a a7e1 3180 IF N0=>B AND N0<=W THEN
0x1a7a…1a8a LineComalBin {
0x1a7a…1a8a ptr = 0xa7e1 // 0x1a7a @0x0
0x1a7a…1a8a lno = 0x0c6c // 0x1a7c @0x2
0x1a7a…1a8a at0004 = ╱9c╱ IF ╱ // 0x1a7e @0x4
0x1a7a…1a8a at0005 = ╱4e╱N╱ // 0x1a7f @0x5
0x1a7a…1a8a at0006 = ╱30╱0╱ // 0x1a80 @0x6
0x1a7a…1a8a at0007 = ╱e0╱=>╱ // 0x1a81 @0x7
0x1a7a…1a8a at0008 = ╱42╱B╱ // 0x1a82 @0x8
0x1a7a…1a8a at0009 = ╱da╱ AND ╱ // 0x1a83 @0x9
0x1a7a…1a8a at000a = ╱4e╱N╱ // 0x1a84 @0xa
0x1a7a…1a8a at000b = ╱30╱0╱ // 0x1a85 @0xb
0x1a7a…1a8a at000c = ╱df╱<=╱ // 0x1a86 @0xc
0x1a7a…1a8a at000d = ╱57╱W╱ // 0x1a87 @0xd
0x1a7a…1a8a at000e = ╱b6╱ THEN ╱ // 0x1a88 @0xe
0x1a7a…1a8a at000f = EOL // 0x1a89 @0xf
0x1a7a…1a8a }
0x1a8a…1a9d a7f4 3190 P=P*10+N0
0x1a8a…1a9d LineComalBin {
0x1a8a…1a9d ptr = 0xa7f4 // 0x1a8a @0x0
0x1a8a…1a9d lno = 0x0c76 // 0x1a8c @0x2
0x1a8a…1a9d at0004 = ╱50╱P╱ // 0x1a8e @0x4
0x1a8a…1a9d at0005 = ╱dc╱=╱ // 0x1a8f @0x5
0x1a8a…1a9d at0006 = ╱50╱P╱ // 0x1a90 @0x6
0x1a8a…1a9d at0007 = ╱e4╱*╱ // 0x1a91 @0x7
0x1a8a…1a9d at0008 = ╱31╱1╱ // 0x1a92 @0x8
0x1a8a…1a9d at0009 = ╱30╱0╱ // 0x1a93 @0x9
0x1a8a…1a9d at000a = ╱fe0000a004╱ // 0x1a94 @0xa
0x1a8a…1a9d at000f = ╱e2╱+╱ // 0x1a99 @0xf
0x1a8a…1a9d at0010 = ╱4e╱N╱ // 0x1a9a @0x10
0x1a8a…1a9d at0011 = ╱30╱0╱ // 0x1a9b @0x11
0x1a8a…1a9d at0012 = EOL // 0x1a9c @0x12
0x1a8a…1a9d }
0x1a9d…1aa3 a7fa 3200 ELSE
0x1a9d…1aa3 LineComalBin {
0x1a9d…1aa3 ptr = 0xa7fa // 0x1a9d @0x0
0x1a9d…1aa3 lno = 0x0c80 // 0x1a9f @0x2
0x1a9d…1aa3 at0004 = ╱9a╱ ELSE ╱ // 0x1aa1 @0x4
0x1a9d…1aa3 at0005 = EOL // 0x1aa2 @0x5
0x1a9d…1aa3 }
0x1aa3…1aac a803 3210 M8=E
0x1aa3…1aac LineComalBin {
0x1aa3…1aac ptr = 0xa803 // 0x1aa3 @0x0
0x1aa3…1aac lno = 0x0c8a // 0x1aa5 @0x2
0x1aa3…1aac at0004 = ╱4d╱M╱ // 0x1aa7 @0x4
0x1aa3…1aac at0005 = ╱38╱8╱ // 0x1aa8 @0x5
0x1aa3…1aac at0006 = ╱dc╱=╱ // 0x1aa9 @0x6
0x1aa3…1aac at0007 = ╱45╱E╱ // 0x1aaa @0x7
0x1aa3…1aac at0008 = EOL // 0x1aab @0x8
0x1aa3…1aac }
0x1aac…1ab2 a809 3220 ENDIF
0x1aac…1ab2 LineComalBin {
0x1aac…1ab2 ptr = 0xa809 // 0x1aac @0x0
0x1aac…1ab2 lno = 0x0c94 // 0x1aae @0x2
0x1aac…1ab2 at0004 = ╱9b╱ ENDIF ╱ // 0x1ab0 @0x4
0x1aac…1ab2 at0005 = EOL // 0x1ab1 @0x5
0x1aac…1ab2 }
0x1ab2…1ab9 a810 3230 NEXT I
0x1ab2…1ab9 LineComalBin {
0x1ab2…1ab9 ptr = 0xa810 // 0x1ab2 @0x0
0x1ab2…1ab9 lno = 0x0c9e // 0x1ab4 @0x2
0x1ab2…1ab9 at0004 = ╱84╱ NEXT ╱ // 0x1ab6 @0x4
0x1ab2…1ab9 at0005 = ╱49╱I╱ // 0x1ab7 @0x5
0x1ab2…1ab9 at0006 = EOL // 0x1ab8 @0x6
0x1ab2…1ab9 }
0x1ab9…1adc a833 3240 K7=P DIV 10000;N1=P DIV 1000
0x1ab9…1adc LineComalBin {
0x1ab9…1adc ptr = 0xa833 // 0x1ab9 @0x0
0x1ab9…1adc lno = 0x0ca8 // 0x1abb @0x2
0x1ab9…1adc at0004 = ╱4b╱K╱ // 0x1abd @0x4
0x1ab9…1adc at0005 = ╱37╱7╱ // 0x1abe @0x5
0x1ab9…1adc at0006 = ╱dc╱=╱ // 0x1abf @0x6
0x1ab9…1adc at0007 = ╱50╱P╱ // 0x1ac0 @0x7
0x1ab9…1adc at0008 = ╱e7╱ DIV ╱ // 0x1ac1 @0x8
0x1ab9…1adc at0009 = ╱31╱1╱ // 0x1ac2 @0x9
0x1ab9…1adc at000a = ╱30╱0╱ // 0x1ac3 @0xa
0x1ab9…1adc at000b = ╱30╱0╱ // 0x1ac4 @0xb
0x1ab9…1adc at000c = ╱30╱0╱ // 0x1ac5 @0xc
0x1ab9…1adc at000d = ╱30╱0╱ // 0x1ac6 @0xd
0x1ab9…1adc at000e = ╱fe00409c0e╱ // 0x1ac7 @0xe
0x1ab9…1adc at0013 = ╱eb╱;╱ // 0x1acc @0x13
0x1ab9…1adc at0014 = ╱4e╱N╱ // 0x1acd @0x14
0x1ab9…1adc at0015 = ╱31╱1╱ // 0x1ace @0x15
0x1ab9…1adc at0016 = ╱dc╱=╱ // 0x1acf @0x16
0x1ab9…1adc at0017 = ╱50╱P╱ // 0x1ad0 @0x17
0x1ab9…1adc at0018 = ╱e7╱ DIV ╱ // 0x1ad1 @0x18
0x1ab9…1adc at0019 = ╱31╱1╱ // 0x1ad2 @0x19
0x1ab9…1adc at001a = ╱30╱0╱ // 0x1ad3 @0x1a
0x1ab9…1adc at001b = ╱30╱0╱ // 0x1ad4 @0x1b
0x1ab9…1adc at001c = ╱30╱0╱ // 0x1ad5 @0x1c
0x1ab9…1adc at001d = ╱fe0000fa0a╱ // 0x1ad6 @0x1d
0x1ab9…1adc at0022 = EOL // 0x1adb @0x22
0x1ab9…1adc }
0x1adc…1aed a844 3250 IF G4=N1 THEN K7=N1
0x1adc…1aed LineComalBin {
0x1adc…1aed ptr = 0xa844 // 0x1adc @0x0
0x1adc…1aed lno = 0x0cb2 // 0x1ade @0x2
0x1adc…1aed at0004 = ╱82╱ IF ╱ // 0x1ae0 @0x4
0x1adc…1aed at0005 = ╱47╱G╱ // 0x1ae1 @0x5
0x1adc…1aed at0006 = ╱34╱4╱ // 0x1ae2 @0x6
0x1adc…1aed at0007 = ╱dc╱=╱ // 0x1ae3 @0x7
0x1adc…1aed at0008 = ╱4e╱N╱ // 0x1ae4 @0x8
0x1adc…1aed at0009 = ╱31╱1╱ // 0x1ae5 @0x9
0x1adc…1aed at000a = ╱b6╱ THEN ╱ // 0x1ae6 @0xa
0x1adc…1aed at000b = ╱4b╱K╱ // 0x1ae7 @0xb
0x1adc…1aed at000c = ╱37╱7╱ // 0x1ae8 @0xc
0x1adc…1aed at000d = ╱dc╱=╱ // 0x1ae9 @0xd
0x1adc…1aed at000e = ╱4e╱N╱ // 0x1aea @0xe
0x1adc…1aed at000f = ╱31╱1╱ // 0x1aeb @0xf
0x1adc…1aed at0010 = EOL // 0x1aec @0x10
0x1adc…1aed }
0x1aed…1af5 a84c 3260 WHEN B
0x1aed…1af5 LineComalBin {
0x1aed…1af5 ptr = 0xa84c // 0x1aed @0x0
0x1aed…1af5 lno = 0x0cbc // 0x1aef @0x2
0x1aed…1af5 at0004 = ╱a301╱ WHEN ╱ // 0x1af1 @0x4
0x1aed…1af5 at0006 = ╱42╱B╱ // 0x1af3 @0x6
0x1aed…1af5 at0007 = EOL // 0x1af4 @0x7
0x1aed…1af5 }
0x1af5…1afe a855 3270 P=-E
0x1af5…1afe LineComalBin {
0x1af5…1afe ptr = 0xa855 // 0x1af5 @0x0
0x1af5…1afe lno = 0x0cc6 // 0x1af7 @0x2
0x1af5…1afe at0004 = ╱50╱P╱ // 0x1af9 @0x4
0x1af5…1afe at0005 = ╱dc╱=╱ // 0x1afa @0x5
0x1af5…1afe at0006 = ╱e9╱-╱ // 0x1afb @0x6
0x1af5…1afe at0007 = ╱45╱E╱ // 0x1afc @0x7
0x1af5…1afe at0008 = EOL // 0x1afd @0x8
0x1af5…1afe }
0x1afe…1b06 a85d 3280 WHEN E
0x1afe…1b06 LineComalBin {
0x1afe…1b06 ptr = 0xa85d // 0x1afe @0x0
0x1afe…1b06 lno = 0x0cd0 // 0x1b00 @0x2
0x1afe…1b06 at0004 = ╱a301╱ WHEN ╱ // 0x1b02 @0x4
0x1afe…1b06 at0006 = ╱45╱E╱ // 0x1b04 @0x6
0x1afe…1b06 at0007 = EOL // 0x1b05 @0x7
0x1afe…1b06 }
0x1b06…1b11 a868 3290 CASE M7$ OF
0x1b06…1b11 LineComalBin {
0x1b06…1b11 ptr = 0xa868 // 0x1b06 @0x0
0x1b06…1b11 lno = 0x0cda // 0x1b08 @0x2
0x1b06…1b11 at0004 = ╱a200╱ CASE ╱ // 0x1b0a @0x4
0x1b06…1b11 at0006 = ╱4d╱M╱ // 0x1b0c @0x6
0x1b06…1b11 at0007 = ╱37╱7╱ // 0x1b0d @0x7
0x1b06…1b11 at0008 = ╱ef╱$╱ // 0x1b0e @0x8
0x1b06…1b11 at0009 = ╱ba╱ OF ╱ // 0x1b0f @0x9
0x1b06…1b11 at000a = EOL // 0x1b10 @0xa
0x1b06…1b11 }
0x1b11…1b29 a880 3300 P=INT(ORD(M7$)-48)
0x1b11…1b29 LineComalBin {
0x1b11…1b29 ptr = 0xa880 // 0x1b11 @0x0
0x1b11…1b29 lno = 0x0ce4 // 0x1b13 @0x2
0x1b11…1b29 at0004 = ╱50╱P╱ // 0x1b15 @0x4
0x1b11…1b29 at0005 = ╱dc╱=╱ // 0x1b16 @0x5
0x1b11…1b29 at0006 = ╱c6╱INT╱ // 0x1b17 @0x6
0x1b11…1b29 at0007 = ╱ed╱(╱ // 0x1b18 @0x7
0x1b11…1b29 at0008 = ╱cd╱ORD╱ // 0x1b19 @0x8
0x1b11…1b29 at0009 = ╱ed╱(╱ // 0x1b1a @0x9
0x1b11…1b29 at000a = ╱4d╱M╱ // 0x1b1b @0xa
0x1b11…1b29 at000b = ╱37╱7╱ // 0x1b1c @0xb
0x1b11…1b29 at000c = ╱ef╱$╱ // 0x1b1d @0xc
0x1b11…1b29 at000d = ╱ee╱)╱ // 0x1b1e @0xd
0x1b11…1b29 at000e = ╱e3╱-╱ // 0x1b1f @0xe
0x1b11…1b29 at000f = ╱34╱4╱ // 0x1b20 @0xf
0x1b11…1b29 at0010 = ╱38╱8╱ // 0x1b21 @0x10
0x1b11…1b29 at0011 = ╱fe0000c006╱ // 0x1b22 @0x11
0x1b11…1b29 at0016 = ╱ee╱)╱ // 0x1b27 @0x16
0x1b11…1b29 at0017 = EOL // 0x1b28 @0x17
0x1b11…1b29 }
0x1b29…1b37 a88e 3310 WHEN "d","D"
0x1b29…1b37 LineComalBin {
0x1b29…1b37 ptr = 0xa88e // 0x1b29 @0x0
0x1b29…1b37 lno = 0x0cee // 0x1b2b @0x2
0x1b29…1b37 at0004 = ╱a300╱ WHEN ╱ // 0x1b2d @0x4
0x1b29…1b37 at0006 = ╱22╱"╱ // 0x1b2f @0x6
0x1b29…1b37 at0007 = ╱64╱d╱ // 0x1b30 @0x7
0x1b29…1b37 at0008 = ╱22╱"╱ // 0x1b31 @0x8
0x1b29…1b37 at0009 = ╱ec╱,╱ // 0x1b32 @0x9
0x1b29…1b37 at000a = ╱22╱"╱ // 0x1b33 @0xa
0x1b29…1b37 at000b = ╱44╱D╱ // 0x1b34 @0xb
0x1b29…1b37 at000c = ╱22╱"╱ // 0x1b35 @0xc
0x1b29…1b37 at000d = EOL // 0x1b36 @0xd
0x1b29…1b37 }
0x1b37…1b40 a897 3320 P=-G
0x1b37…1b40 LineComalBin {
0x1b37…1b40 ptr = 0xa897 // 0x1b37 @0x0
0x1b37…1b40 lno = 0x0cf8 // 0x1b39 @0x2
0x1b37…1b40 at0004 = ╱50╱P╱ // 0x1b3b @0x4
0x1b37…1b40 at0005 = ╱dc╱=╱ // 0x1b3c @0x5
0x1b37…1b40 at0006 = ╱e9╱-╱ // 0x1b3d @0x6
0x1b37…1b40 at0007 = ╱47╱G╱ // 0x1b3e @0x7
0x1b37…1b40 at0008 = EOL // 0x1b3f @0x8
0x1b37…1b40 }
0x1b40…1b4e a8a5 3330 WHEN "A","a"
0x1b40…1b4e LineComalBin {
0x1b40…1b4e ptr = 0xa8a5 // 0x1b40 @0x0
0x1b40…1b4e lno = 0x0d02 // 0x1b42 @0x2
0x1b40…1b4e at0004 = ╱a300╱ WHEN ╱ // 0x1b44 @0x4
0x1b40…1b4e at0006 = ╱22╱"╱ // 0x1b46 @0x6
0x1b40…1b4e at0007 = ╱41╱A╱ // 0x1b47 @0x7
0x1b40…1b4e at0008 = ╱22╱"╱ // 0x1b48 @0x8
0x1b40…1b4e at0009 = ╱ec╱,╱ // 0x1b49 @0x9
0x1b40…1b4e at000a = ╱22╱"╱ // 0x1b4a @0xa
0x1b40…1b4e at000b = ╱61╱a╱ // 0x1b4b @0xb
0x1b40…1b4e at000c = ╱22╱"╱ // 0x1b4c @0xc
0x1b40…1b4e at000d = EOL // 0x1b4d @0xd
0x1b40…1b4e }
0x1b4e…1b57 a8ae 3340 P=-V
0x1b4e…1b57 LineComalBin {
0x1b4e…1b57 ptr = 0xa8ae // 0x1b4e @0x0
0x1b4e…1b57 lno = 0x0d0c // 0x1b50 @0x2
0x1b4e…1b57 at0004 = ╱50╱P╱ // 0x1b52 @0x4
0x1b4e…1b57 at0005 = ╱dc╱=╱ // 0x1b53 @0x5
0x1b4e…1b57 at0006 = ╱e9╱-╱ // 0x1b54 @0x6
0x1b4e…1b57 at0007 = ╱56╱V╱ // 0x1b55 @0x7
0x1b4e…1b57 at0008 = EOL // 0x1b56 @0x8
0x1b4e…1b57 }
0x1b57…1b65 a8bc 3350 WHEN "M","m"
0x1b57…1b65 LineComalBin {
0x1b57…1b65 ptr = 0xa8bc // 0x1b57 @0x0
0x1b57…1b65 lno = 0x0d16 // 0x1b59 @0x2
0x1b57…1b65 at0004 = ╱a300╱ WHEN ╱ // 0x1b5b @0x4
0x1b57…1b65 at0006 = ╱22╱"╱ // 0x1b5d @0x6
0x1b57…1b65 at0007 = ╱4d╱M╱ // 0x1b5e @0x7
0x1b57…1b65 at0008 = ╱22╱"╱ // 0x1b5f @0x8
0x1b57…1b65 at0009 = ╱ec╱,╱ // 0x1b60 @0x9
0x1b57…1b65 at000a = ╱22╱"╱ // 0x1b61 @0xa
0x1b57…1b65 at000b = ╱6d╱m╱ // 0x1b62 @0xb
0x1b57…1b65 at000c = ╱22╱"╱ // 0x1b63 @0xc
0x1b57…1b65 at000d = EOL // 0x1b64 @0xd
0x1b57…1b65 }
0x1b65…1b73 a8ca 3360 P=-4
0x1b65…1b73 LineComalBin {
0x1b65…1b73 ptr = 0xa8ca // 0x1b65 @0x0
0x1b65…1b73 lno = 0x0d20 // 0x1b67 @0x2
0x1b65…1b73 at0004 = ╱50╱P╱ // 0x1b69 @0x4
0x1b65…1b73 at0005 = ╱dc╱=╱ // 0x1b6a @0x5
0x1b65…1b73 at0006 = ╱e9╱-╱ // 0x1b6b @0x6
0x1b65…1b73 at0007 = ╱34╱4╱ // 0x1b6c @0x7
0x1b65…1b73 at0008 = ╱fe00008003╱ // 0x1b6d @0x8
0x1b65…1b73 at000d = EOL // 0x1b72 @0xd
0x1b65…1b73 }
0x1b73…1b81 a8d8 3370 WHEN "J","j"
0x1b73…1b81 LineComalBin {
0x1b73…1b81 ptr = 0xa8d8 // 0x1b73 @0x0
0x1b73…1b81 lno = 0x0d2a // 0x1b75 @0x2
0x1b73…1b81 at0004 = ╱a300╱ WHEN ╱ // 0x1b77 @0x4
0x1b73…1b81 at0006 = ╱22╱"╱ // 0x1b79 @0x6
0x1b73…1b81 at0007 = ╱4a╱J╱ // 0x1b7a @0x7
0x1b73…1b81 at0008 = ╱22╱"╱ // 0x1b7b @0x8
0x1b73…1b81 at0009 = ╱ec╱,╱ // 0x1b7c @0x9
0x1b73…1b81 at000a = ╱22╱"╱ // 0x1b7d @0xa
0x1b73…1b81 at000b = ╱6a╱j╱ // 0x1b7e @0xb
0x1b73…1b81 at000c = ╱22╱"╱ // 0x1b7f @0xc
0x1b73…1b81 at000d = EOL // 0x1b80 @0xd
0x1b73…1b81 }
0x1b81…1b8f a8e6 3380 P=-7
0x1b81…1b8f LineComalBin {
0x1b81…1b8f ptr = 0xa8e6 // 0x1b81 @0x0
0x1b81…1b8f lno = 0x0d34 // 0x1b83 @0x2
0x1b81…1b8f at0004 = ╱50╱P╱ // 0x1b85 @0x4
0x1b81…1b8f at0005 = ╱dc╱=╱ // 0x1b86 @0x5
0x1b81…1b8f at0006 = ╱e9╱-╱ // 0x1b87 @0x6
0x1b81…1b8f at0007 = ╱37╱7╱ // 0x1b88 @0x7
0x1b81…1b8f at0008 = ╱fe0000e003╱ // 0x1b89 @0x8
0x1b81…1b8f at000d = EOL // 0x1b8e @0xd
0x1b81…1b8f }
0x1b8f…1b9d a8f4 3390 WHEN "N","n"
0x1b8f…1b9d LineComalBin {
0x1b8f…1b9d ptr = 0xa8f4 // 0x1b8f @0x0
0x1b8f…1b9d lno = 0x0d3e // 0x1b91 @0x2
0x1b8f…1b9d at0004 = ╱a300╱ WHEN ╱ // 0x1b93 @0x4
0x1b8f…1b9d at0006 = ╱22╱"╱ // 0x1b95 @0x6
0x1b8f…1b9d at0007 = ╱4e╱N╱ // 0x1b96 @0x7
0x1b8f…1b9d at0008 = ╱22╱"╱ // 0x1b97 @0x8
0x1b8f…1b9d at0009 = ╱ec╱,╱ // 0x1b98 @0x9
0x1b8f…1b9d at000a = ╱22╱"╱ // 0x1b99 @0xa
0x1b8f…1b9d at000b = ╱6e╱n╱ // 0x1b9a @0xb
0x1b8f…1b9d at000c = ╱22╱"╱ // 0x1b9b @0xc
0x1b8f…1b9d at000d = EOL // 0x1b9c @0xd
0x1b8f…1b9d }
0x1b9d…1bab a902 3400 P=-8
0x1b9d…1bab LineComalBin {
0x1b9d…1bab ptr = 0xa902 // 0x1b9d @0x0
0x1b9d…1bab lno = 0x0d48 // 0x1b9f @0x2
0x1b9d…1bab at0004 = ╱50╱P╱ // 0x1ba1 @0x4
0x1b9d…1bab at0005 = ╱dc╱=╱ // 0x1ba2 @0x5
0x1b9d…1bab at0006 = ╱e9╱-╱ // 0x1ba3 @0x6
0x1b9d…1bab at0007 = ╱38╱8╱ // 0x1ba4 @0x7
0x1b9d…1bab at0008 = ╱fe00008004╱ // 0x1ba5 @0x8
0x1b9d…1bab at000d = EOL // 0x1baa @0xd
0x1b9d…1bab }
0x1bab…1bb1 a908 3410 ENDCASE
0x1bab…1bb1 LineComalBin {
0x1bab…1bb1 ptr = 0xa908 // 0x1bab @0x0
0x1bab…1bb1 lno = 0x0d52 // 0x1bad @0x2
0x1bab…1bb1 at0004 = ╱a4╱ ENDCASE ╱ // 0x1baf @0x4
0x1bab…1bb1 at0005 = EOL // 0x1bb0 @0x5
0x1bab…1bb1 }
0x1bb1…1bb7 a90e 3420 ENDCASE
0x1bb1…1bb7 LineComalBin {
0x1bb1…1bb7 ptr = 0xa90e // 0x1bb1 @0x0
0x1bb1…1bb7 lno = 0x0d5c // 0x1bb3 @0x2
0x1bb1…1bb7 at0004 = ╱a4╱ ENDCASE ╱ // 0x1bb5 @0x4
0x1bb1…1bb7 at0005 = EOL // 0x1bb6 @0x5
0x1bb1…1bb7 }
0x1bb7…1bbd a914 3430 ENDPROC
0x1bb7…1bbd LineComalBin {
0x1bb7…1bbd ptr = 0xa914 // 0x1bb7 @0x0
0x1bb7…1bbd lno = 0x0d66 // 0x1bb9 @0x2
0x1bb7…1bbd at0004 = ╱9f╱ ENDPROC ╱ // 0x1bbb @0x4
0x1bb7…1bbd at0005 = EOL // 0x1bbc @0x5
0x1bb7…1bbd }
0x1bbd…1bca a921 3440 PROC FORTEGN
0x1bbd…1bca LineComalBin {
0x1bbd…1bca ptr = 0xa921 // 0x1bbd @0x0
0x1bbd…1bca lno = 0x0d70 // 0x1bbf @0x2
0x1bbd…1bca at0004 = ╱9e╱ PROC ╱ // 0x1bc1 @0x4
0x1bbd…1bca at0005 = ╱46╱F╱ // 0x1bc2 @0x5
0x1bbd…1bca at0006 = ╱4f╱O╱ // 0x1bc3 @0x6
0x1bbd…1bca at0007 = ╱52╱R╱ // 0x1bc4 @0x7
0x1bbd…1bca at0008 = ╱54╱T╱ // 0x1bc5 @0x8
0x1bbd…1bca at0009 = ╱45╱E╱ // 0x1bc6 @0x9
0x1bbd…1bca at000a = ╱47╱G╱ // 0x1bc7 @0xa
0x1bbd…1bca at000b = ╱4e╱N╱ // 0x1bc8 @0xb
0x1bbd…1bca at000c = EOL // 0x1bc9 @0xc
0x1bbd…1bca }
0x1bca…1bd8 a92f 3450 M9=LEN(D8$)
0x1bca…1bd8 LineComalBin {
0x1bca…1bd8 ptr = 0xa92f // 0x1bca @0x0
0x1bca…1bd8 lno = 0x0d7a // 0x1bcc @0x2
0x1bca…1bd8 at0004 = ╱4d╱M╱ // 0x1bce @0x4
0x1bca…1bd8 at0005 = ╱39╱9╱ // 0x1bcf @0x5
0x1bca…1bd8 at0006 = ╱dc╱=╱ // 0x1bd0 @0x6
0x1bca…1bd8 at0007 = ╱cc╱LEN╱ // 0x1bd1 @0x7
0x1bca…1bd8 at0008 = ╱ed╱(╱ // 0x1bd2 @0x8
0x1bca…1bd8 at0009 = ╱44╱D╱ // 0x1bd3 @0x9
0x1bca…1bd8 at000a = ╱38╱8╱ // 0x1bd4 @0xa
0x1bca…1bd8 at000b = ╱ef╱$╱ // 0x1bd5 @0xb
0x1bca…1bd8 at000c = ╱ee╱)╱ // 0x1bd6 @0xc
0x1bca…1bd8 at000d = EOL // 0x1bd7 @0xd
0x1bca…1bd8 }
0x1bd8…1bf0 a947 3460 IF M9=B THEN D8$="0+";M9=G
0x1bd8…1bf0 LineComalBin {
0x1bd8…1bf0 ptr = 0xa947 // 0x1bd8 @0x0
0x1bd8…1bf0 lno = 0x0d84 // 0x1bda @0x2
0x1bd8…1bf0 at0004 = ╱82╱ IF ╱ // 0x1bdc @0x4
0x1bd8…1bf0 at0005 = ╱4d╱M╱ // 0x1bdd @0x5
0x1bd8…1bf0 at0006 = ╱39╱9╱ // 0x1bde @0x6
0x1bd8…1bf0 at0007 = ╱dc╱=╱ // 0x1bdf @0x7
0x1bd8…1bf0 at0008 = ╱42╱B╱ // 0x1be0 @0x8
0x1bd8…1bf0 at0009 = ╱b6╱ THEN ╱ // 0x1be1 @0x9
0x1bd8…1bf0 at000a = ╱44╱D╱ // 0x1be2 @0xa
0x1bd8…1bf0 at000b = ╱38╱8╱ // 0x1be3 @0xb
0x1bd8…1bf0 at000c = ╱ef╱$╱ // 0x1be4 @0xc
0x1bd8…1bf0 at000d = ╱dc╱=╱ // 0x1be5 @0xd
0x1bd8…1bf0 at000e = ╱22╱"╱ // 0x1be6 @0xe
0x1bd8…1bf0 at000f = ╱30╱0╱ // 0x1be7 @0xf
0x1bd8…1bf0 at0010 = ╱2b╱+╱ // 0x1be8 @0x10
0x1bd8…1bf0 at0011 = ╱22╱"╱ // 0x1be9 @0x11
0x1bd8…1bf0 at0012 = ╱eb╱;╱ // 0x1bea @0x12
0x1bd8…1bf0 at0013 = ╱4d╱M╱ // 0x1beb @0x13
0x1bd8…1bf0 at0014 = ╱39╱9╱ // 0x1bec @0x14
0x1bd8…1bf0 at0015 = ╱dc╱=╱ // 0x1bed @0x15
0x1bd8…1bf0 at0016 = ╱47╱G╱ // 0x1bee @0x16
0x1bd8…1bf0 at0017 = EOL // 0x1bef @0x17
0x1bd8…1bf0 }
0x1bf0…1c0e a965 3470 IF D8$(M9)<>"+" AND D8$(M9)<>"-" THEN
0x1bf0…1c0e LineComalBin {
0x1bf0…1c0e ptr = 0xa965 // 0x1bf0 @0x0
0x1bf0…1c0e lno = 0x0d8e // 0x1bf2 @0x2
0x1bf0…1c0e at0004 = ╱9c╱ IF ╱ // 0x1bf4 @0x4
0x1bf0…1c0e at0005 = ╱44╱D╱ // 0x1bf5 @0x5
0x1bf0…1c0e at0006 = ╱38╱8╱ // 0x1bf6 @0x6
0x1bf0…1c0e at0007 = ╱ef╱$╱ // 0x1bf7 @0x7
0x1bf0…1c0e at0008 = ╱ed╱(╱ // 0x1bf8 @0x8
0x1bf0…1c0e at0009 = ╱4d╱M╱ // 0x1bf9 @0x9
0x1bf0…1c0e at000a = ╱39╱9╱ // 0x1bfa @0xa
0x1bf0…1c0e at000b = ╱ee╱)╱ // 0x1bfb @0xb
0x1bf0…1c0e at000c = ╱e1╱<>╱ // 0x1bfc @0xc
0x1bf0…1c0e at000d = ╱22╱"╱ // 0x1bfd @0xd
0x1bf0…1c0e at000e = ╱2b╱+╱ // 0x1bfe @0xe
0x1bf0…1c0e at000f = ╱22╱"╱ // 0x1bff @0xf
0x1bf0…1c0e at0010 = ╱da╱ AND ╱ // 0x1c00 @0x10
0x1bf0…1c0e at0011 = ╱44╱D╱ // 0x1c01 @0x11
0x1bf0…1c0e at0012 = ╱38╱8╱ // 0x1c02 @0x12
0x1bf0…1c0e at0013 = ╱ef╱$╱ // 0x1c03 @0x13
0x1bf0…1c0e at0014 = ╱ed╱(╱ // 0x1c04 @0x14
0x1bf0…1c0e at0015 = ╱4d╱M╱ // 0x1c05 @0x15
0x1bf0…1c0e at0016 = ╱39╱9╱ // 0x1c06 @0x16
0x1bf0…1c0e at0017 = ╱ee╱)╱ // 0x1c07 @0x17
0x1bf0…1c0e at0018 = ╱e1╱<>╱ // 0x1c08 @0x18
0x1bf0…1c0e at0019 = ╱22╱"╱ // 0x1c09 @0x19
0x1bf0…1c0e at001a = ╱2d╱-╱ // 0x1c0a @0x1a
0x1bf0…1c0e at001b = ╱22╱"╱ // 0x1c0b @0x1b
0x1bf0…1c0e at001c = ╱b6╱ THEN ╱ // 0x1c0c @0x1c
0x1bf0…1c0e at001d = EOL // 0x1c0d @0x1d
0x1bf0…1c0e }
0x1c0e…1c1e a975 3480 D8$=D8$+"+"
0x1c0e…1c1e LineComalBin {
0x1c0e…1c1e ptr = 0xa975 // 0x1c0e @0x0
0x1c0e…1c1e lno = 0x0d98 // 0x1c10 @0x2
0x1c0e…1c1e at0004 = ╱44╱D╱ // 0x1c12 @0x4
0x1c0e…1c1e at0005 = ╱38╱8╱ // 0x1c13 @0x5
0x1c0e…1c1e at0006 = ╱ef╱$╱ // 0x1c14 @0x6
0x1c0e…1c1e at0007 = ╱dc╱=╱ // 0x1c15 @0x7
0x1c0e…1c1e at0008 = ╱44╱D╱ // 0x1c16 @0x8
0x1c0e…1c1e at0009 = ╱38╱8╱ // 0x1c17 @0x9
0x1c0e…1c1e at000a = ╱ef╱$╱ // 0x1c18 @0xa
0x1c0e…1c1e at000b = ╱f1╱+╱ // 0x1c19 @0xb
0x1c0e…1c1e at000c = ╱22╱"╱ // 0x1c1a @0xc
0x1c0e…1c1e at000d = ╱2b╱+╱ // 0x1c1b @0xd
0x1c0e…1c1e at000e = ╱22╱"╱ // 0x1c1c @0xe
0x1c0e…1c1e at000f = EOL // 0x1c1d @0xf
0x1c0e…1c1e }
0x1c1e…1c24 a97b 3490 ELSE
0x1c1e…1c24 LineComalBin {
0x1c1e…1c24 ptr = 0xa97b // 0x1c1e @0x0
0x1c1e…1c24 lno = 0x0da2 // 0x1c20 @0x2
0x1c1e…1c24 at0004 = ╱9a╱ ELSE ╱ // 0x1c22 @0x4
0x1c1e…1c24 at0005 = EOL // 0x1c23 @0x5
0x1c1e…1c24 }
0x1c24…1c34 a98b 3500 D8$(M9)="+"
0x1c24…1c34 LineComalBin {
0x1c24…1c34 ptr = 0xa98b // 0x1c24 @0x0
0x1c24…1c34 lno = 0x0dac // 0x1c26 @0x2
0x1c24…1c34 at0004 = ╱44╱D╱ // 0x1c28 @0x4
0x1c24…1c34 at0005 = ╱38╱8╱ // 0x1c29 @0x5
0x1c24…1c34 at0006 = ╱ef╱$╱ // 0x1c2a @0x6
0x1c24…1c34 at0007 = ╱ed╱(╱ // 0x1c2b @0x7
0x1c24…1c34 at0008 = ╱4d╱M╱ // 0x1c2c @0x8
0x1c24…1c34 at0009 = ╱39╱9╱ // 0x1c2d @0x9
0x1c24…1c34 at000a = ╱ee╱)╱ // 0x1c2e @0xa
0x1c24…1c34 at000b = ╱dc╱=╱ // 0x1c2f @0xb
0x1c24…1c34 at000c = ╱22╱"╱ // 0x1c30 @0xc
0x1c24…1c34 at000d = ╱2b╱+╱ // 0x1c31 @0xd
0x1c24…1c34 at000e = ╱22╱"╱ // 0x1c32 @0xe
0x1c24…1c34 at000f = EOL // 0x1c33 @0xf
0x1c24…1c34 }
0x1c34…1c3a a991 3510 ENDIF
0x1c34…1c3a LineComalBin {
0x1c34…1c3a ptr = 0xa991 // 0x1c34 @0x0
0x1c34…1c3a lno = 0x0db6 // 0x1c36 @0x2
0x1c34…1c3a at0004 = ╱9b╱ ENDIF ╱ // 0x1c38 @0x4
0x1c34…1c3a at0005 = EOL // 0x1c39 @0x5
0x1c34…1c3a }
0x1c3a…1c40 a997 3520 ENDPROC
0x1c3a…1c40 LineComalBin {
0x1c3a…1c40 ptr = 0xa997 // 0x1c3a @0x0
0x1c3a…1c40 lno = 0x0dc0 // 0x1c3c @0x2
0x1c3a…1c40 at0004 = ╱9f╱ ENDPROC ╱ // 0x1c3e @0x4
0x1c3a…1c40 at0005 = EOL // 0x1c3f @0x5
0x1c3a…1c40 }
0x1c40…1c4d a9a4 3530 PROC UDHOVED
0x1c40…1c4d LineComalBin {
0x1c40…1c4d ptr = 0xa9a4 // 0x1c40 @0x0
0x1c40…1c4d lno = 0x0dca // 0x1c42 @0x2
0x1c40…1c4d at0004 = ╱9e╱ PROC ╱ // 0x1c44 @0x4
0x1c40…1c4d at0005 = ╱55╱U╱ // 0x1c45 @0x5
0x1c40…1c4d at0006 = ╱44╱D╱ // 0x1c46 @0x6
0x1c40…1c4d at0007 = ╱48╱H╱ // 0x1c47 @0x7
0x1c40…1c4d at0008 = ╱4f╱O╱ // 0x1c48 @0x8
0x1c40…1c4d at0009 = ╱56╱V╱ // 0x1c49 @0x9
0x1c40…1c4d at000a = ╱45╱E╱ // 0x1c4a @0xa
0x1c40…1c4d at000b = ╱44╱D╱ // 0x1c4b @0xb
0x1c40…1c4d at000c = EOL // 0x1c4c @0xc
0x1c40…1c4d }
0x1c4d…1c56 a9ad 3540 CURSOR G,E
0x1c4d…1c56 LineComalBin {
0x1c4d…1c56 ptr = 0xa9ad // 0x1c4d @0x0
0x1c4d…1c56 lno = 0x0dd4 // 0x1c4f @0x2
0x1c4d…1c56 at0004 = ╱a1╱ CURSOR ╱ // 0x1c51 @0x4
0x1c4d…1c56 at0005 = ╱47╱G╱ // 0x1c52 @0x5
0x1c4d…1c56 at0006 = ╱ec╱,╱ // 0x1c53 @0x6
0x1c4d…1c56 at0007 = ╱45╱E╱ // 0x1c54 @0x7
0x1c4d…1c56 at0008 = EOL // 0x1c55 @0x8
0x1c4d…1c56 }
0x1c56…1c6a a9c1 3550 EXEC DATOUD(K0,B7$)
0x1c56…1c6a LineComalBin {
0x1c56…1c6a ptr = 0xa9c1 // 0x1c56 @0x0
0x1c56…1c6a lno = 0x0dde // 0x1c58 @0x2
0x1c56…1c6a at0004 = ╱9d╱ EXEC ╱ // 0x1c5a @0x4
0x1c56…1c6a at0005 = ╱44╱D╱ // 0x1c5b @0x5
0x1c56…1c6a at0006 = ╱41╱A╱ // 0x1c5c @0x6
0x1c56…1c6a at0007 = ╱54╱T╱ // 0x1c5d @0x7
0x1c56…1c6a at0008 = ╱4f╱O╱ // 0x1c5e @0x8
0x1c56…1c6a at0009 = ╱55╱U╱ // 0x1c5f @0x9
0x1c56…1c6a at000a = ╱44╱D╱ // 0x1c60 @0xa
0x1c56…1c6a at000b = ╱ed╱(╱ // 0x1c61 @0xb
0x1c56…1c6a at000c = ╱4b╱K╱ // 0x1c62 @0xc
0x1c56…1c6a at000d = ╱30╱0╱ // 0x1c63 @0xd
0x1c56…1c6a at000e = ╱ec╱,╱ // 0x1c64 @0xe
0x1c56…1c6a at000f = ╱42╱B╱ // 0x1c65 @0xf
0x1c56…1c6a at0010 = ╱37╱7╱ // 0x1c66 @0x10
0x1c56…1c6a at0011 = ╱ef╱$╱ // 0x1c67 @0x11
0x1c56…1c6a at0012 = ╱ee╱)╱ // 0x1c68 @0x12
0x1c56…1c6a at0013 = EOL // 0x1c69 @0x13
0x1c56…1c6a }
0x1c6a…1ca5 a9fc 3560 PRINT TAB(20);"Posteringsark";E2$(E:25);"Dato:";B7$
0x1c6a…1ca5 LineComalBin {
0x1c6a…1ca5 ptr = 0xa9fc // 0x1c6a @0x0
0x1c6a…1ca5 lno = 0x0de8 // 0x1c6c @0x2
0x1c6a…1ca5 at0004 = ╱92╱ PRINT ╱ // 0x1c6e @0x4
0x1c6a…1ca5 at0005 = ╱d2╱TAB╱ // 0x1c6f @0x5
0x1c6a…1ca5 at0006 = ╱ed╱(╱ // 0x1c70 @0x6
0x1c6a…1ca5 at0007 = ╱32╱2╱ // 0x1c71 @0x7
0x1c6a…1ca5 at0008 = ╱30╱0╱ // 0x1c72 @0x8
0x1c6a…1ca5 at0009 = ╱fe0000a005╱ // 0x1c73 @0x9
0x1c6a…1ca5 at000e = ╱ee╱)╱ // 0x1c78 @0xe
0x1c6a…1ca5 at000f = ╱eb╱;╱ // 0x1c79 @0xf
0x1c6a…1ca5 at0010 = ╱22╱"╱ // 0x1c7a @0x10
0x1c6a…1ca5 at0011 = ╱50╱P╱ // 0x1c7b @0x11
0x1c6a…1ca5 at0012 = ╱6f╱o╱ // 0x1c7c @0x12
0x1c6a…1ca5 at0013 = ╱73╱s╱ // 0x1c7d @0x13
0x1c6a…1ca5 at0014 = ╱74╱t╱ // 0x1c7e @0x14
0x1c6a…1ca5 at0015 = ╱65╱e╱ // 0x1c7f @0x15
0x1c6a…1ca5 at0016 = ╱72╱r╱ // 0x1c80 @0x16
0x1c6a…1ca5 at0017 = ╱69╱i╱ // 0x1c81 @0x17
0x1c6a…1ca5 at0018 = ╱6e╱n╱ // 0x1c82 @0x18
0x1c6a…1ca5 at0019 = ╱67╱g╱ // 0x1c83 @0x19
0x1c6a…1ca5 at001a = ╱73╱s╱ // 0x1c84 @0x1a
0x1c6a…1ca5 at001b = ╱61╱a╱ // 0x1c85 @0x1b
0x1c6a…1ca5 at001c = ╱72╱r╱ // 0x1c86 @0x1c
0x1c6a…1ca5 at001d = ╱6b╱k╱ // 0x1c87 @0x1d
0x1c6a…1ca5 at001e = ╱22╱"╱ // 0x1c88 @0x1e
0x1c6a…1ca5 at001f = ╱eb╱;╱ // 0x1c89 @0x1f
0x1c6a…1ca5 at0020 = ╱45╱E╱ // 0x1c8a @0x20
0x1c6a…1ca5 at0021 = ╱32╱2╱ // 0x1c8b @0x21
0x1c6a…1ca5 at0022 = ╱ef╱$╱ // 0x1c8c @0x22
0x1c6a…1ca5 at0023 = ╱ed╱(╱ // 0x1c8d @0x23
0x1c6a…1ca5 at0024 = ╱45╱E╱ // 0x1c8e @0x24
0x1c6a…1ca5 at0025 = ╱f0╱:╱ // 0x1c8f @0x25
0x1c6a…1ca5 at0026 = ╱32╱2╱ // 0x1c90 @0x26
0x1c6a…1ca5 at0027 = ╱35╱5╱ // 0x1c91 @0x27
0x1c6a…1ca5 at0028 = ╱fe0000c805╱ // 0x1c92 @0x28
0x1c6a…1ca5 at002d = ╱ee╱)╱ // 0x1c97 @0x2d
0x1c6a…1ca5 at002e = ╱eb╱;╱ // 0x1c98 @0x2e
0x1c6a…1ca5 at002f = ╱22╱"╱ // 0x1c99 @0x2f
0x1c6a…1ca5 at0030 = ╱44╱D╱ // 0x1c9a @0x30
0x1c6a…1ca5 at0031 = ╱61╱a╱ // 0x1c9b @0x31
0x1c6a…1ca5 at0032 = ╱74╱t╱ // 0x1c9c @0x32
0x1c6a…1ca5 at0033 = ╱6f╱o╱ // 0x1c9d @0x33
0x1c6a…1ca5 at0034 = ╱3a╱:╱ // 0x1c9e @0x34
0x1c6a…1ca5 at0035 = ╱22╱"╱ // 0x1c9f @0x35
0x1c6a…1ca5 at0036 = ╱eb╱;╱ // 0x1ca0 @0x36
0x1c6a…1ca5 at0037 = ╱42╱B╱ // 0x1ca1 @0x37
0x1c6a…1ca5 at0038 = ╱37╱7╱ // 0x1ca2 @0x38
0x1c6a…1ca5 at0039 = ╱ef╱$╱ // 0x1ca3 @0x39
0x1c6a…1ca5 at003a = EOL // 0x1ca4 @0x3a
0x1c6a…1ca5 }
0x1ca5…1cae aa05 3570 CURSOR G,V
0x1ca5…1cae LineComalBin {
0x1ca5…1cae ptr = 0xaa05 // 0x1ca5 @0x0
0x1ca5…1cae lno = 0x0df2 // 0x1ca7 @0x2
0x1ca5…1cae at0004 = ╱a1╱ CURSOR ╱ // 0x1ca9 @0x4
0x1ca5…1cae at0005 = ╱47╱G╱ // 0x1caa @0x5
0x1ca5…1cae at0006 = ╱ec╱,╱ // 0x1cab @0x6
0x1ca5…1cae at0007 = ╱56╱V╱ // 0x1cac @0x7
0x1ca5…1cae at0008 = EOL // 0x1cad @0x8
0x1ca5…1cae }
0x1cae…1cf5 aa4c 3580 PRINT "Nr Bilag Tekst";E2$(E:21);"Debet Entre Beløb K";
0x1cae…1cf5 LineComalBin {
0x1cae…1cf5 ptr = 0xaa4c // 0x1cae @0x0
0x1cae…1cf5 lno = 0x0dfc // 0x1cb0 @0x2
0x1cae…1cf5 at0004 = ╱92╱ PRINT ╱ // 0x1cb2 @0x4
0x1cae…1cf5 at0005 = ╱22╱"╱ // 0x1cb3 @0x5
0x1cae…1cf5 at0006 = ╱4e╱N╱ // 0x1cb4 @0x6
0x1cae…1cf5 at0007 = ╱72╱r╱ // 0x1cb5 @0x7
0x1cae…1cf5 at0008 = ╱20╱…╱ // 0x1cb6 @0x8
0x1cae…1cf5 at0009 = ╱20╱…╱ // 0x1cb7 @0x9
0x1cae…1cf5 at000a = ╱20╱…╱ // 0x1cb8 @0xa
0x1cae…1cf5 at000b = ╱42╱B╱ // 0x1cb9 @0xb
0x1cae…1cf5 at000c = ╱69╱i╱ // 0x1cba @0xc
0x1cae…1cf5 at000d = ╱6c╱l╱ // 0x1cbb @0xd
0x1cae…1cf5 at000e = ╱61╱a╱ // 0x1cbc @0xe
0x1cae…1cf5 at000f = ╱67╱g╱ // 0x1cbd @0xf
0x1cae…1cf5 at0010 = ╱20╱…╱ // 0x1cbe @0x10
0x1cae…1cf5 at0011 = ╱54╱T╱ // 0x1cbf @0x11
0x1cae…1cf5 at0012 = ╱65╱e╱ // 0x1cc0 @0x12
0x1cae…1cf5 at0013 = ╱6b╱k╱ // 0x1cc1 @0x13
0x1cae…1cf5 at0014 = ╱73╱s╱ // 0x1cc2 @0x14
0x1cae…1cf5 at0015 = ╱74╱t╱ // 0x1cc3 @0x15
0x1cae…1cf5 at0016 = ╱22╱"╱ // 0x1cc4 @0x16
0x1cae…1cf5 at0017 = ╱eb╱;╱ // 0x1cc5 @0x17
0x1cae…1cf5 at0018 = ╱45╱E╱ // 0x1cc6 @0x18
0x1cae…1cf5 at0019 = ╱32╱2╱ // 0x1cc7 @0x19
0x1cae…1cf5 at001a = ╱ef╱$╱ // 0x1cc8 @0x1a
0x1cae…1cf5 at001b = ╱ed╱(╱ // 0x1cc9 @0x1b
0x1cae…1cf5 at001c = ╱45╱E╱ // 0x1cca @0x1c
0x1cae…1cf5 at001d = ╱f0╱:╱ // 0x1ccb @0x1d
0x1cae…1cf5 at001e = ╱32╱2╱ // 0x1ccc @0x1e
0x1cae…1cf5 at001f = ╱31╱1╱ // 0x1ccd @0x1f
0x1cae…1cf5 at0020 = ╱fe0000a805╱ // 0x1cce @0x20
0x1cae…1cf5 at0025 = ╱ee╱)╱ // 0x1cd3 @0x25
0x1cae…1cf5 at0026 = ╱eb╱;╱ // 0x1cd4 @0x26
0x1cae…1cf5 at0027 = ╱22╱"╱ // 0x1cd5 @0x27
0x1cae…1cf5 at0028 = ╱44╱D╱ // 0x1cd6 @0x28
0x1cae…1cf5 at0029 = ╱65╱e╱ // 0x1cd7 @0x29
0x1cae…1cf5 at002a = ╱62╱b╱ // 0x1cd8 @0x2a
0x1cae…1cf5 at002b = ╱65╱e╱ // 0x1cd9 @0x2b
0x1cae…1cf5 at002c = ╱74╱t╱ // 0x1cda @0x2c
0x1cae…1cf5 at002d = ╱20╱…╱ // 0x1cdb @0x2d
0x1cae…1cf5 at002e = ╱20╱…╱ // 0x1cdc @0x2e
0x1cae…1cf5 at002f = ╱45╱E╱ // 0x1cdd @0x2f
0x1cae…1cf5 at0030 = ╱6e╱n╱ // 0x1cde @0x30
0x1cae…1cf5 at0031 = ╱74╱t╱ // 0x1cdf @0x31
0x1cae…1cf5 at0032 = ╱72╱r╱ // 0x1ce0 @0x32
0x1cae…1cf5 at0033 = ╱65╱e╱ // 0x1ce1 @0x33
0x1cae…1cf5 at0034 = ╱20╱…╱ // 0x1ce2 @0x34
0x1cae…1cf5 at0035 = ╱20╱…╱ // 0x1ce3 @0x35
0x1cae…1cf5 at0036 = ╱20╱…╱ // 0x1ce4 @0x36
0x1cae…1cf5 at0037 = ╱20╱…╱ // 0x1ce5 @0x37
0x1cae…1cf5 at0038 = ╱20╱…╱ // 0x1ce6 @0x38
0x1cae…1cf5 at0039 = ╱20╱…╱ // 0x1ce7 @0x39
0x1cae…1cf5 at003a = ╱42╱B╱ // 0x1ce8 @0x3a
0x1cae…1cf5 at003b = ╱65╱e╱ // 0x1ce9 @0x3b
0x1cae…1cf5 at003c = ╱6c╱l╱ // 0x1cea @0x3c
0x1cae…1cf5 at003d = ╱7c╱ø╱ // 0x1ceb @0x3d
0x1cae…1cf5 at003e = ╱62╱b╱ // 0x1cec @0x3e
0x1cae…1cf5 at003f = ╱20╱…╱ // 0x1ced @0x3f
0x1cae…1cf5 at0040 = ╱20╱…╱ // 0x1cee @0x40
0x1cae…1cf5 at0041 = ╱20╱…╱ // 0x1cef @0x41
0x1cae…1cf5 at0042 = ╱20╱…╱ // 0x1cf0 @0x42
0x1cae…1cf5 at0043 = ╱4b╱K╱ // 0x1cf1 @0x43
0x1cae…1cf5 at0044 = ╱22╱"╱ // 0x1cf2 @0x44
0x1cae…1cf5 at0045 = ╱eb╱;╱ // 0x1cf3 @0x45
0x1cae…1cf5 at0046 = EOL // 0x1cf4 @0x46
0x1cae…1cf5 }
0x1cf5…1d09 aa60 3590 PRINT "redit Entre"
0x1cf5…1d09 LineComalBin {
0x1cf5…1d09 ptr = 0xaa60 // 0x1cf5 @0x0
0x1cf5…1d09 lno = 0x0e06 // 0x1cf7 @0x2
0x1cf5…1d09 at0004 = ╱92╱ PRINT ╱ // 0x1cf9 @0x4
0x1cf5…1d09 at0005 = ╱22╱"╱ // 0x1cfa @0x5
0x1cf5…1d09 at0006 = ╱72╱r╱ // 0x1cfb @0x6
0x1cf5…1d09 at0007 = ╱65╱e╱ // 0x1cfc @0x7
0x1cf5…1d09 at0008 = ╱64╱d╱ // 0x1cfd @0x8
0x1cf5…1d09 at0009 = ╱69╱i╱ // 0x1cfe @0x9
0x1cf5…1d09 at000a = ╱74╱t╱ // 0x1cff @0xa
0x1cf5…1d09 at000b = ╱20╱…╱ // 0x1d00 @0xb
0x1cf5…1d09 at000c = ╱20╱…╱ // 0x1d01 @0xc
0x1cf5…1d09 at000d = ╱45╱E╱ // 0x1d02 @0xd
0x1cf5…1d09 at000e = ╱6e╱n╱ // 0x1d03 @0xe
0x1cf5…1d09 at000f = ╱74╱t╱ // 0x1d04 @0xf
0x1cf5…1d09 at0010 = ╱72╱r╱ // 0x1d05 @0x10
0x1cf5…1d09 at0011 = ╱65╱e╱ // 0x1d06 @0x11
0x1cf5…1d09 at0012 = ╱22╱"╱ // 0x1d07 @0x12
0x1cf5…1d09 at0013 = EOL // 0x1d08 @0x13
0x1cf5…1d09 }
0x1d09…1d0f aa66 3600 ENDPROC
0x1d09…1d0f LineComalBin {
0x1d09…1d0f ptr = 0xaa66 // 0x1d09 @0x0
0x1d09…1d0f lno = 0x0e10 // 0x1d0b @0x2
0x1d09…1d0f at0004 = ╱9f╱ ENDPROC ╱ // 0x1d0d @0x4
0x1d09…1d0f at0005 = EOL // 0x1d0e @0x5
0x1d09…1d0f }
0x1d0f…1d1c aa73 3610 PROC UDLINIE
0x1d0f…1d1c LineComalBin {
0x1d0f…1d1c ptr = 0xaa73 // 0x1d0f @0x0
0x1d0f…1d1c lno = 0x0e1a // 0x1d11 @0x2
0x1d0f…1d1c at0004 = ╱9e╱ PROC ╱ // 0x1d13 @0x4
0x1d0f…1d1c at0005 = ╱55╱U╱ // 0x1d14 @0x5
0x1d0f…1d1c at0006 = ╱44╱D╱ // 0x1d15 @0x6
0x1d0f…1d1c at0007 = ╱4c╱L╱ // 0x1d16 @0x7
0x1d0f…1d1c at0008 = ╱49╱I╱ // 0x1d17 @0x8
0x1d0f…1d1c at0009 = ╱4e╱N╱ // 0x1d18 @0x9
0x1d0f…1d1c at000a = ╱49╱I╱ // 0x1d19 @0xa
0x1d0f…1d1c at000b = ╱45╱E╱ // 0x1d1a @0xb
0x1d0f…1d1c at000c = EOL // 0x1d1b @0xc
0x1d0f…1d1c }
0x1d1c…1d2a aa81 3620 CURSOR E,4
0x1d1c…1d2a LineComalBin {
0x1d1c…1d2a ptr = 0xaa81 // 0x1d1c @0x0
0x1d1c…1d2a lno = 0x0e24 // 0x1d1e @0x2
0x1d1c…1d2a at0004 = ╱a1╱ CURSOR ╱ // 0x1d20 @0x4
0x1d1c…1d2a at0005 = ╱45╱E╱ // 0x1d21 @0x5
0x1d1c…1d2a at0006 = ╱ec╱,╱ // 0x1d22 @0x6
0x1d1c…1d2a at0007 = ╱34╱4╱ // 0x1d23 @0x7
0x1d1c…1d2a at0008 = ╱fe00008003╱ // 0x1d24 @0x8
0x1d1c…1d2a at000d = EOL // 0x1d29 @0xd
0x1d1c…1d2a }
0x1d2a…1d46 aa9d 3630 PRINT USING "### ####### ":L7,J3;
0x1d2a…1d46 LineComalBin {
0x1d2a…1d46 ptr = 0xaa9d // 0x1d2a @0x0
0x1d2a…1d46 lno = 0x0e2e // 0x1d2c @0x2
0x1d2a…1d46 at0004 = ╱92╱ PRINT ╱ // 0x1d2e @0x4
0x1d2a…1d46 at0005 = ╱b9╱ USING ╱ // 0x1d2f @0x5
0x1d2a…1d46 at0006 = ╱22╱"╱ // 0x1d30 @0x6
0x1d2a…1d46 at0007 = ╱23╱#╱ // 0x1d31 @0x7
0x1d2a…1d46 at0008 = ╱23╱#╱ // 0x1d32 @0x8
0x1d2a…1d46 at0009 = ╱23╱#╱ // 0x1d33 @0x9
0x1d2a…1d46 at000a = ╱20╱…╱ // 0x1d34 @0xa
0x1d2a…1d46 at000b = ╱23╱#╱ // 0x1d35 @0xb
0x1d2a…1d46 at000c = ╱23╱#╱ // 0x1d36 @0xc
0x1d2a…1d46 at000d = ╱23╱#╱ // 0x1d37 @0xd
0x1d2a…1d46 at000e = ╱23╱#╱ // 0x1d38 @0xe
0x1d2a…1d46 at000f = ╱23╱#╱ // 0x1d39 @0xf
0x1d2a…1d46 at0010 = ╱23╱#╱ // 0x1d3a @0x10
0x1d2a…1d46 at0011 = ╱23╱#╱ // 0x1d3b @0x11
0x1d2a…1d46 at0012 = ╱20╱…╱ // 0x1d3c @0x12
0x1d2a…1d46 at0013 = ╱22╱"╱ // 0x1d3d @0x13
0x1d2a…1d46 at0014 = ╱f0╱:╱ // 0x1d3e @0x14
0x1d2a…1d46 at0015 = ╱4c╱L╱ // 0x1d3f @0x15
0x1d2a…1d46 at0016 = ╱37╱7╱ // 0x1d40 @0x16
0x1d2a…1d46 at0017 = ╱ec╱,╱ // 0x1d41 @0x17
0x1d2a…1d46 at0018 = ╱4a╱J╱ // 0x1d42 @0x18
0x1d2a…1d46 at0019 = ╱33╱3╱ // 0x1d43 @0x19
0x1d2a…1d46 at001a = ╱eb╱;╱ // 0x1d44 @0x1a
0x1d2a…1d46 at001b = EOL // 0x1d45 @0x1b
0x1d2a…1d46 }
0x1d46…1d55 aaac 3640 IF J5<>B THEN PRINT D6$
0x1d46…1d55 LineComalBin {
0x1d46…1d55 ptr = 0xaaac // 0x1d46 @0x0
0x1d46…1d55 lno = 0x0e38 // 0x1d48 @0x2
0x1d46…1d55 at0004 = ╱82╱ IF ╱ // 0x1d4a @0x4
0x1d46…1d55 at0005 = ╱4a╱J╱ // 0x1d4b @0x5
0x1d46…1d55 at0006 = ╱35╱5╱ // 0x1d4c @0x6
0x1d46…1d55 at0007 = ╱e1╱<>╱ // 0x1d4d @0x7
0x1d46…1d55 at0008 = ╱42╱B╱ // 0x1d4e @0x8
0x1d46…1d55 at0009 = ╱b6╱ THEN ╱ // 0x1d4f @0x9
0x1d46…1d55 at000a = ╱92╱ PRINT ╱ // 0x1d50 @0xa
0x1d46…1d55 at000b = ╱44╱D╱ // 0x1d51 @0xb
0x1d46…1d55 at000c = ╱36╱6╱ // 0x1d52 @0xc
0x1d46…1d55 at000d = ╱ef╱$╱ // 0x1d53 @0xd
0x1d46…1d55 at000e = EOL // 0x1d54 @0xe
0x1d46…1d55 }
0x1d55…1d69 aac0 3650 CURSOR 38,4
0x1d55…1d69 LineComalBin {
0x1d55…1d69 ptr = 0xaac0 // 0x1d55 @0x0
0x1d55…1d69 lno = 0x0e42 // 0x1d57 @0x2
0x1d55…1d69 at0004 = ╱a1╱ CURSOR ╱ // 0x1d59 @0x4
0x1d55…1d69 at0005 = ╱33╱3╱ // 0x1d5a @0x5
0x1d55…1d69 at0006 = ╱38╱8╱ // 0x1d5b @0x6
0x1d55…1d69 at0007 = ╱fe00009806╱ // 0x1d5c @0x7
0x1d55…1d69 at000c = ╱ec╱,╱ // 0x1d61 @0xc
0x1d55…1d69 at000d = ╱34╱4╱ // 0x1d62 @0xd
0x1d55…1d69 at000e = ╱fe00008003╱ // 0x1d63 @0xe
0x1d55…1d69 at0013 = EOL // 0x1d68 @0x13
0x1d55…1d69 }
0x1d69…1d87 aade 3660 PRINT USING "###### ###### ":J1,J4;
0x1d69…1d87 LineComalBin {
0x1d69…1d87 ptr = 0xaade // 0x1d69 @0x0
0x1d69…1d87 lno = 0x0e4c // 0x1d6b @0x2
0x1d69…1d87 at0004 = ╱92╱ PRINT ╱ // 0x1d6d @0x4
0x1d69…1d87 at0005 = ╱b9╱ USING ╱ // 0x1d6e @0x5
0x1d69…1d87 at0006 = ╱22╱"╱ // 0x1d6f @0x6
0x1d69…1d87 at0007 = ╱23╱#╱ // 0x1d70 @0x7
0x1d69…1d87 at0008 = ╱23╱#╱ // 0x1d71 @0x8
0x1d69…1d87 at0009 = ╱23╱#╱ // 0x1d72 @0x9
0x1d69…1d87 at000a = ╱23╱#╱ // 0x1d73 @0xa
0x1d69…1d87 at000b = ╱23╱#╱ // 0x1d74 @0xb
0x1d69…1d87 at000c = ╱23╱#╱ // 0x1d75 @0xc
0x1d69…1d87 at000d = ╱20╱…╱ // 0x1d76 @0xd
0x1d69…1d87 at000e = ╱23╱#╱ // 0x1d77 @0xe
0x1d69…1d87 at000f = ╱23╱#╱ // 0x1d78 @0xf
0x1d69…1d87 at0010 = ╱23╱#╱ // 0x1d79 @0x10
0x1d69…1d87 at0011 = ╱23╱#╱ // 0x1d7a @0x11
0x1d69…1d87 at0012 = ╱23╱#╱ // 0x1d7b @0x12
0x1d69…1d87 at0013 = ╱23╱#╱ // 0x1d7c @0x13
0x1d69…1d87 at0014 = ╱20╱…╱ // 0x1d7d @0x14
0x1d69…1d87 at0015 = ╱22╱"╱ // 0x1d7e @0x15
0x1d69…1d87 at0016 = ╱f0╱:╱ // 0x1d7f @0x16
0x1d69…1d87 at0017 = ╱4a╱J╱ // 0x1d80 @0x17
0x1d69…1d87 at0018 = ╱31╱1╱ // 0x1d81 @0x18
0x1d69…1d87 at0019 = ╱ec╱,╱ // 0x1d82 @0x19
0x1d69…1d87 at001a = ╱4a╱J╱ // 0x1d83 @0x1a
0x1d69…1d87 at001b = ╱34╱4╱ // 0x1d84 @0x1b
0x1d69…1d87 at001c = ╱eb╱;╱ // 0x1d85 @0x1c
0x1d69…1d87 at001d = EOL // 0x1d86 @0x1d
0x1d69…1d87 }
0x1d87…1d9d aaf4 3670 EXEC TUD(E0$,C4$,B,B)
0x1d87…1d9d LineComalBin {
0x1d87…1d9d ptr = 0xaaf4 // 0x1d87 @0x0
0x1d87…1d9d lno = 0x0e56 // 0x1d89 @0x2
0x1d87…1d9d at0004 = ╱9d╱ EXEC ╱ // 0x1d8b @0x4
0x1d87…1d9d at0005 = ╱54╱T╱ // 0x1d8c @0x5
0x1d87…1d9d at0006 = ╱55╱U╱ // 0x1d8d @0x6
0x1d87…1d9d at0007 = ╱44╱D╱ // 0x1d8e @0x7
0x1d87…1d9d at0008 = ╱ed╱(╱ // 0x1d8f @0x8
0x1d87…1d9d at0009 = ╱45╱E╱ // 0x1d90 @0x9
0x1d87…1d9d at000a = ╱30╱0╱ // 0x1d91 @0xa
0x1d87…1d9d at000b = ╱ef╱$╱ // 0x1d92 @0xb
0x1d87…1d9d at000c = ╱ec╱,╱ // 0x1d93 @0xc
0x1d87…1d9d at000d = ╱43╱C╱ // 0x1d94 @0xd
0x1d87…1d9d at000e = ╱34╱4╱ // 0x1d95 @0xe
0x1d87…1d9d at000f = ╱ef╱$╱ // 0x1d96 @0xf
0x1d87…1d9d at0010 = ╱ec╱,╱ // 0x1d97 @0x10
0x1d87…1d9d at0011 = ╱42╱B╱ // 0x1d98 @0x11
0x1d87…1d9d at0012 = ╱ec╱,╱ // 0x1d99 @0x12
0x1d87…1d9d at0013 = ╱42╱B╱ // 0x1d9a @0x13
0x1d87…1d9d at0014 = ╱ee╱)╱ // 0x1d9b @0x14
0x1d87…1d9d at0015 = EOL // 0x1d9c @0x15
0x1d87…1d9d }
0x1d9d…1da7 aafe 3680 PRINT C4$;
0x1d9d…1da7 LineComalBin {
0x1d9d…1da7 ptr = 0xaafe // 0x1d9d @0x0
0x1d9d…1da7 lno = 0x0e60 // 0x1d9f @0x2
0x1d9d…1da7 at0004 = ╱92╱ PRINT ╱ // 0x1da1 @0x4
0x1d9d…1da7 at0005 = ╱43╱C╱ // 0x1da2 @0x5
0x1d9d…1da7 at0006 = ╱34╱4╱ // 0x1da3 @0x6
0x1d9d…1da7 at0007 = ╱ef╱$╱ // 0x1da4 @0x7
0x1d9d…1da7 at0008 = ╱eb╱;╱ // 0x1da5 @0x8
0x1d9d…1da7 at0009 = EOL // 0x1da6 @0x9
0x1d9d…1da7 }
0x1da7…1dc5 ab1c 3690 PRINT USING " ###### ######":J7,J8
0x1da7…1dc5 LineComalBin {
0x1da7…1dc5 ptr = 0xab1c // 0x1da7 @0x0
0x1da7…1dc5 lno = 0x0e6a // 0x1da9 @0x2
0x1da7…1dc5 at0004 = ╱92╱ PRINT ╱ // 0x1dab @0x4
0x1da7…1dc5 at0005 = ╱b9╱ USING ╱ // 0x1dac @0x5
0x1da7…1dc5 at0006 = ╱22╱"╱ // 0x1dad @0x6
0x1da7…1dc5 at0007 = ╱20╱…╱ // 0x1dae @0x7
0x1da7…1dc5 at0008 = ╱20╱…╱ // 0x1daf @0x8
0x1da7…1dc5 at0009 = ╱23╱#╱ // 0x1db0 @0x9
0x1da7…1dc5 at000a = ╱23╱#╱ // 0x1db1 @0xa
0x1da7…1dc5 at000b = ╱23╱#╱ // 0x1db2 @0xb
0x1da7…1dc5 at000c = ╱23╱#╱ // 0x1db3 @0xc
0x1da7…1dc5 at000d = ╱23╱#╱ // 0x1db4 @0xd
0x1da7…1dc5 at000e = ╱23╱#╱ // 0x1db5 @0xe
0x1da7…1dc5 at000f = ╱20╱…╱ // 0x1db6 @0xf
0x1da7…1dc5 at0010 = ╱23╱#╱ // 0x1db7 @0x10
0x1da7…1dc5 at0011 = ╱23╱#╱ // 0x1db8 @0x11
0x1da7…1dc5 at0012 = ╱23╱#╱ // 0x1db9 @0x12
0x1da7…1dc5 at0013 = ╱23╱#╱ // 0x1dba @0x13
0x1da7…1dc5 at0014 = ╱23╱#╱ // 0x1dbb @0x14
0x1da7…1dc5 at0015 = ╱23╱#╱ // 0x1dbc @0x15
0x1da7…1dc5 at0016 = ╱22╱"╱ // 0x1dbd @0x16
0x1da7…1dc5 at0017 = ╱f0╱:╱ // 0x1dbe @0x17
0x1da7…1dc5 at0018 = ╱4a╱J╱ // 0x1dbf @0x18
0x1da7…1dc5 at0019 = ╱37╱7╱ // 0x1dc0 @0x19
0x1da7…1dc5 at001a = ╱ec╱,╱ // 0x1dc1 @0x1a
0x1da7…1dc5 at001b = ╱4a╱J╱ // 0x1dc2 @0x1b
0x1da7…1dc5 at001c = ╱38╱8╱ // 0x1dc3 @0x1c
0x1da7…1dc5 at001d = EOL // 0x1dc4 @0x1d
0x1da7…1dc5 }
0x1dc5…1dcb ab22 3700 ENDPROC
0x1dc5…1dcb LineComalBin {
0x1dc5…1dcb ptr = 0xab22 // 0x1dc5 @0x0
0x1dc5…1dcb lno = 0x0e74 // 0x1dc7 @0x2
0x1dc5…1dcb at0004 = ╱9f╱ ENDPROC ╱ // 0x1dc9 @0x4
0x1dc5…1dcb at0005 = EOL // 0x1dca @0x5
0x1dc5…1dcb }
0x1dcb…1dd7 ab2e 3710 PROC NYDATO
0x1dcb…1dd7 LineComalBin {
0x1dcb…1dd7 ptr = 0xab2e // 0x1dcb @0x0
0x1dcb…1dd7 lno = 0x0e7e // 0x1dcd @0x2
0x1dcb…1dd7 at0004 = ╱9e╱ PROC ╱ // 0x1dcf @0x4
0x1dcb…1dd7 at0005 = ╱4e╱N╱ // 0x1dd0 @0x5
0x1dcb…1dd7 at0006 = ╱59╱Y╱ // 0x1dd1 @0x6
0x1dcb…1dd7 at0007 = ╱44╱D╱ // 0x1dd2 @0x7
0x1dcb…1dd7 at0008 = ╱41╱A╱ // 0x1dd3 @0x8
0x1dcb…1dd7 at0009 = ╱54╱T╱ // 0x1dd4 @0x9
0x1dcb…1dd7 at000a = ╱4f╱O╱ // 0x1dd5 @0xa
0x1dcb…1dd7 at000b = EOL // 0x1dd6 @0xb
0x1dcb…1dd7 }
0x1dd7…1ddd ab34 3720 REPEAT
0x1dd7…1ddd LineComalBin {
0x1dd7…1ddd ptr = 0xab34 // 0x1dd7 @0x0
0x1dd7…1ddd lno = 0x0e88 // 0x1dd9 @0x2
0x1dd7…1ddd at0004 = ╱97╱ REPEAT ╱ // 0x1ddb @0x4
0x1dd7…1ddd at0005 = EOL // 0x1ddc @0x5
0x1dd7…1ddd }
0x1ddd…1dec ab43 3730 CURSOR V,23
0x1ddd…1dec LineComalBin {
0x1ddd…1dec ptr = 0xab43 // 0x1ddd @0x0
0x1ddd…1dec lno = 0x0e92 // 0x1ddf @0x2
0x1ddd…1dec at0004 = ╱a1╱ CURSOR ╱ // 0x1de1 @0x4
0x1ddd…1dec at0005 = ╱56╱V╱ // 0x1de2 @0x5
0x1ddd…1dec at0006 = ╱ec╱,╱ // 0x1de3 @0x6
0x1ddd…1dec at0007 = ╱32╱2╱ // 0x1de4 @0x7
0x1ddd…1dec at0008 = ╱33╱3╱ // 0x1de5 @0x8
0x1ddd…1dec at0009 = ╱fe0000b805╱ // 0x1de6 @0x9
0x1ddd…1dec at000e = EOL // 0x1deb @0xe
0x1ddd…1dec }
0x1dec…1e1d ab74 3740 PRINT "Ny dato (ÅÅMMDD)"+E2$(E:51)
0x1dec…1e1d LineComalBin {
0x1dec…1e1d ptr = 0xab74 // 0x1dec @0x0
0x1dec…1e1d lno = 0x0e9c // 0x1dee @0x2
0x1dec…1e1d at0004 = ╱92╱ PRINT ╱ // 0x1df0 @0x4
0x1dec…1e1d at0005 = ╱22╱"╱ // 0x1df1 @0x5
0x1dec…1e1d at0006 = ╱4e╱N╱ // 0x1df2 @0x6
0x1dec…1e1d at0007 = ╱79╱y╱ // 0x1df3 @0x7
0x1dec…1e1d at0008 = ╱20╱…╱ // 0x1df4 @0x8
0x1dec…1e1d at0009 = ╱64╱d╱ // 0x1df5 @0x9
0x1dec…1e1d at000a = ╱61╱a╱ // 0x1df6 @0xa
0x1dec…1e1d at000b = ╱74╱t╱ // 0x1df7 @0xb
0x1dec…1e1d at000c = ╱6f╱o╱ // 0x1df8 @0xc
0x1dec…1e1d at000d = ╱20╱…╱ // 0x1df9 @0xd
0x1dec…1e1d at000e = ╱20╱…╱ // 0x1dfa @0xe
0x1dec…1e1d at000f = ╱20╱…╱ // 0x1dfb @0xf
0x1dec…1e1d at0010 = ╱20╱…╱ // 0x1dfc @0x10
0x1dec…1e1d at0011 = ╱20╱…╱ // 0x1dfd @0x11
0x1dec…1e1d at0012 = ╱20╱…╱ // 0x1dfe @0x12
0x1dec…1e1d at0013 = ╱20╱…╱ // 0x1dff @0x13
0x1dec…1e1d at0014 = ╱20╱…╱ // 0x1e00 @0x14
0x1dec…1e1d at0015 = ╱20╱…╱ // 0x1e01 @0x15
0x1dec…1e1d at0016 = ╱20╱…╱ // 0x1e02 @0x16
0x1dec…1e1d at0017 = ╱20╱…╱ // 0x1e03 @0x17
0x1dec…1e1d at0018 = ╱28╱(╱ // 0x1e04 @0x18
0x1dec…1e1d at0019 = ╱5d╱Å╱ // 0x1e05 @0x19
0x1dec…1e1d at001a = ╱5d╱Å╱ // 0x1e06 @0x1a
0x1dec…1e1d at001b = ╱4d╱M╱ // 0x1e07 @0x1b
0x1dec…1e1d at001c = ╱4d╱M╱ // 0x1e08 @0x1c
0x1dec…1e1d at001d = ╱44╱D╱ // 0x1e09 @0x1d
0x1dec…1e1d at001e = ╱44╱D╱ // 0x1e0a @0x1e
0x1dec…1e1d at001f = ╱29╱)╱ // 0x1e0b @0x1f
0x1dec…1e1d at0020 = ╱22╱"╱ // 0x1e0c @0x20
0x1dec…1e1d at0021 = ╱f1╱+╱ // 0x1e0d @0x21
0x1dec…1e1d at0022 = ╱45╱E╱ // 0x1e0e @0x22
0x1dec…1e1d at0023 = ╱32╱2╱ // 0x1e0f @0x23
0x1dec…1e1d at0024 = ╱ef╱$╱ // 0x1e10 @0x24
0x1dec…1e1d at0025 = ╱ed╱(╱ // 0x1e11 @0x25
0x1dec…1e1d at0026 = ╱45╱E╱ // 0x1e12 @0x26
0x1dec…1e1d at0027 = ╱f0╱:╱ // 0x1e13 @0x27
0x1dec…1e1d at0028 = ╱35╱5╱ // 0x1e14 @0x28
0x1dec…1e1d at0029 = ╱31╱1╱ // 0x1e15 @0x29
0x1dec…1e1d at002a = ╱fe0000cc06╱ // 0x1e16 @0x2a
0x1dec…1e1d at002f = ╱ee╱)╱ // 0x1e1b @0x2f
0x1dec…1e1d at0030 = EOL // 0x1e1c @0x30
0x1dec…1e1d }
0x1e1d…1e32 ab89 3750 CURSOR 11,23
0x1e1d…1e32 LineComalBin {
0x1e1d…1e32 ptr = 0xab89 // 0x1e1d @0x0
0x1e1d…1e32 lno = 0x0ea6 // 0x1e1f @0x2
0x1e1d…1e32 at0004 = ╱a1╱ CURSOR ╱ // 0x1e21 @0x4
0x1e1d…1e32 at0005 = ╱31╱1╱ // 0x1e22 @0x5
0x1e1d…1e32 at0006 = ╱31╱1╱ // 0x1e23 @0x6
0x1e1d…1e32 at0007 = ╱fe0000b004╱ // 0x1e24 @0x7
0x1e1d…1e32 at000c = ╱ec╱,╱ // 0x1e29 @0xc
0x1e1d…1e32 at000d = ╱32╱2╱ // 0x1e2a @0xd
0x1e1d…1e32 at000e = ╱33╱3╱ // 0x1e2b @0xe
0x1e1d…1e32 at000f = ╱fe0000b805╱ // 0x1e2c @0xf
0x1e1d…1e32 at0014 = EOL // 0x1e31 @0x14
0x1e1d…1e32 }
0x1e32…1e3b ab92 3760 INPUT B7$
0x1e32…1e3b LineComalBin {
0x1e32…1e3b ptr = 0xab92 // 0x1e32 @0x0
0x1e32…1e3b lno = 0x0eb0 // 0x1e34 @0x2
0x1e32…1e3b at0004 = ╱91╱ INPUT ╱ // 0x1e36 @0x4
0x1e32…1e3b at0005 = ╱42╱B╱ // 0x1e37 @0x5
0x1e32…1e3b at0006 = ╱37╱7╱ // 0x1e38 @0x6
0x1e32…1e3b at0007 = ╱ef╱$╱ // 0x1e39 @0x7
0x1e32…1e3b at0008 = EOL // 0x1e3a @0x8
0x1e32…1e3b }
0x1e3b…1e4c aba3 3770 EXEC NRTEST(B7$)
0x1e3b…1e4c LineComalBin {
0x1e3b…1e4c ptr = 0xaba3 // 0x1e3b @0x0
0x1e3b…1e4c lno = 0x0eba // 0x1e3d @0x2
0x1e3b…1e4c at0004 = ╱9d╱ EXEC ╱ // 0x1e3f @0x4
0x1e3b…1e4c at0005 = ╱4e╱N╱ // 0x1e40 @0x5
0x1e3b…1e4c at0006 = ╱52╱R╱ // 0x1e41 @0x6
0x1e3b…1e4c at0007 = ╱54╱T╱ // 0x1e42 @0x7
0x1e3b…1e4c at0008 = ╱45╱E╱ // 0x1e43 @0x8
0x1e3b…1e4c at0009 = ╱53╱S╱ // 0x1e44 @0x9
0x1e3b…1e4c at000a = ╱54╱T╱ // 0x1e45 @0xa
0x1e3b…1e4c at000b = ╱ed╱(╱ // 0x1e46 @0xb
0x1e3b…1e4c at000c = ╱42╱B╱ // 0x1e47 @0xc
0x1e3b…1e4c at000d = ╱37╱7╱ // 0x1e48 @0xd
0x1e3b…1e4c at000e = ╱ef╱$╱ // 0x1e49 @0xe
0x1e3b…1e4c at000f = ╱ee╱)╱ // 0x1e4a @0xf
0x1e3b…1e4c at0010 = EOL // 0x1e4b @0x10
0x1e3b…1e4c }
0x1e4c…1e8d abe4 3780 UNTIL K7>79 AND (P DIV 100) MOD 100<13 AND P MOD 100<32
0x1e4c…1e8d LineComalBin {
0x1e4c…1e8d ptr = 0xabe4 // 0x1e4c @0x0
0x1e4c…1e8d lno = 0x0ec4 // 0x1e4e @0x2
0x1e4c…1e8d at0004 = ╱98╱ UNTIL ╱ // 0x1e50 @0x4
0x1e4c…1e8d at0005 = ╱4b╱K╱ // 0x1e51 @0x5
0x1e4c…1e8d at0006 = ╱37╱7╱ // 0x1e52 @0x6
0x1e4c…1e8d at0007 = ╱de╱>╱ // 0x1e53 @0x7
0x1e4c…1e8d at0008 = ╱37╱7╱ // 0x1e54 @0x8
0x1e4c…1e8d at0009 = ╱39╱9╱ // 0x1e55 @0x9
0x1e4c…1e8d at000a = ╱fe00009e07╱ // 0x1e56 @0xa
0x1e4c…1e8d at000f = ╱da╱ AND ╱ // 0x1e5b @0xf
0x1e4c…1e8d at0010 = ╱ed╱(╱ // 0x1e5c @0x10
0x1e4c…1e8d at0011 = ╱50╱P╱ // 0x1e5d @0x11
0x1e4c…1e8d at0012 = ╱e7╱ DIV ╱ // 0x1e5e @0x12
0x1e4c…1e8d at0013 = ╱31╱1╱ // 0x1e5f @0x13
0x1e4c…1e8d at0014 = ╱30╱0╱ // 0x1e60 @0x14
0x1e4c…1e8d at0015 = ╱30╱0╱ // 0x1e61 @0x15
0x1e4c…1e8d at0016 = ╱fe0000c807╱ // 0x1e62 @0x16
0x1e4c…1e8d at001b = ╱ee╱)╱ // 0x1e67 @0x1b
0x1e4c…1e8d at001c = ╱e8╱ MOD ╱ // 0x1e68 @0x1c
0x1e4c…1e8d at001d = ╱31╱1╱ // 0x1e69 @0x1d
0x1e4c…1e8d at001e = ╱30╱0╱ // 0x1e6a @0x1e
0x1e4c…1e8d at001f = ╱30╱0╱ // 0x1e6b @0x1f
0x1e4c…1e8d at0020 = ╱fe0000c807╱ // 0x1e6c @0x20
0x1e4c…1e8d at0025 = ╱dd╱<╱ // 0x1e71 @0x25
0x1e4c…1e8d at0026 = ╱31╱1╱ // 0x1e72 @0x26
0x1e4c…1e8d at0027 = ╱33╱3╱ // 0x1e73 @0x27
0x1e4c…1e8d at0028 = ╱fe0000d004╱ // 0x1e74 @0x28
0x1e4c…1e8d at002d = ╱da╱ AND ╱ // 0x1e79 @0x2d
0x1e4c…1e8d at002e = ╱50╱P╱ // 0x1e7a @0x2e
0x1e4c…1e8d at002f = ╱e8╱ MOD ╱ // 0x1e7b @0x2f
0x1e4c…1e8d at0030 = ╱31╱1╱ // 0x1e7c @0x30
0x1e4c…1e8d at0031 = ╱30╱0╱ // 0x1e7d @0x31
0x1e4c…1e8d at0032 = ╱30╱0╱ // 0x1e7e @0x32
0x1e4c…1e8d at0033 = ╱fe0000c807╱ // 0x1e7f @0x33
0x1e4c…1e8d at0038 = ╱dd╱<╱ // 0x1e84 @0x38
0x1e4c…1e8d at0039 = ╱33╱3╱ // 0x1e85 @0x39
0x1e4c…1e8d at003a = ╱32╱2╱ // 0x1e86 @0x3a
0x1e4c…1e8d at003b = ╱fe00008006╱ // 0x1e87 @0x3b
0x1e4c…1e8d at0040 = EOL // 0x1e8c @0x40
0x1e4c…1e8d }
0x1e8d…1e96 abed 3790 K0=P
0x1e8d…1e96 LineComalBin {
0x1e8d…1e96 ptr = 0xabed // 0x1e8d @0x0
0x1e8d…1e96 lno = 0x0ece // 0x1e8f @0x2
0x1e8d…1e96 at0004 = ╱4b╱K╱ // 0x1e91 @0x4
0x1e8d…1e96 at0005 = ╱30╱0╱ // 0x1e92 @0x5
0x1e8d…1e96 at0006 = ╱dc╱=╱ // 0x1e93 @0x6
0x1e8d…1e96 at0007 = ╱50╱P╱ // 0x1e94 @0x7
0x1e8d…1e96 at0008 = EOL // 0x1e95 @0x8
0x1e8d…1e96 }
0x1e96…1e9c abf3 3800 ENDPROC
0x1e96…1e9c LineComalBin {
0x1e96…1e9c ptr = 0xabf3 // 0x1e96 @0x0
0x1e96…1e9c lno = 0x0ed8 // 0x1e98 @0x2
0x1e96…1e9c at0004 = ╱9f╱ ENDPROC ╱ // 0x1e9a @0x4
0x1e96…1e9c at0005 = EOL // 0x1e9b @0x5
0x1e96…1e9c }
0x1e9c…1eb6 ac0d 3810 B5$="P641220:SYSTEM1"
0x1e9c…1eb6 LineComalBin {
0x1e9c…1eb6 ptr = 0xac0d // 0x1e9c @0x0
0x1e9c…1eb6 lno = 0x0ee2 // 0x1e9e @0x2
0x1e9c…1eb6 at0004 = ╱42╱B╱ // 0x1ea0 @0x4
0x1e9c…1eb6 at0005 = ╱35╱5╱ // 0x1ea1 @0x5
0x1e9c…1eb6 at0006 = ╱ef╱$╱ // 0x1ea2 @0x6
0x1e9c…1eb6 at0007 = ╱dc╱=╱ // 0x1ea3 @0x7
0x1e9c…1eb6 at0008 = ╱22╱"╱ // 0x1ea4 @0x8
0x1e9c…1eb6 at0009 = ╱50╱P╱ // 0x1ea5 @0x9
0x1e9c…1eb6 at000a = ╱36╱6╱ // 0x1ea6 @0xa
0x1e9c…1eb6 at000b = ╱34╱4╱ // 0x1ea7 @0xb
0x1e9c…1eb6 at000c = ╱31╱1╱ // 0x1ea8 @0xc
0x1e9c…1eb6 at000d = ╱32╱2╱ // 0x1ea9 @0xd
0x1e9c…1eb6 at000e = ╱32╱2╱ // 0x1eaa @0xe
0x1e9c…1eb6 at000f = ╱30╱0╱ // 0x1eab @0xf
0x1e9c…1eb6 at0010 = ╱3a╱:╱ // 0x1eac @0x10
0x1e9c…1eb6 at0011 = ╱53╱S╱ // 0x1ead @0x11
0x1e9c…1eb6 at0012 = ╱59╱Y╱ // 0x1eae @0x12
0x1e9c…1eb6 at0013 = ╱53╱S╱ // 0x1eaf @0x13
0x1e9c…1eb6 at0014 = ╱54╱T╱ // 0x1eb0 @0x14
0x1e9c…1eb6 at0015 = ╱45╱E╱ // 0x1eb1 @0x15
0x1e9c…1eb6 at0016 = ╱4d╱M╱ // 0x1eb2 @0x16
0x1e9c…1eb6 at0017 = ╱31╱1╱ // 0x1eb3 @0x17
0x1e9c…1eb6 at0018 = ╱22╱"╱ // 0x1eb4 @0x18
0x1e9c…1eb6 at0019 = EOL // 0x1eb5 @0x19
0x1e9c…1eb6 }
0x1eb6…1ebc ac13 3820 REPEAT
0x1eb6…1ebc LineComalBin {
0x1eb6…1ebc ptr = 0xac13 // 0x1eb6 @0x0
0x1eb6…1ebc lno = 0x0eec // 0x1eb8 @0x2
0x1eb6…1ebc at0004 = ╱97╱ REPEAT ╱ // 0x1eba @0x4
0x1eb6…1ebc at0005 = EOL // 0x1ebb @0x5
0x1eb6…1ebc }
0x1ebc…1ec5 ac1c 3830 P=-E
0x1ebc…1ec5 LineComalBin {
0x1ebc…1ec5 ptr = 0xac1c // 0x1ebc @0x0
0x1ebc…1ec5 lno = 0x0ef6 // 0x1ebe @0x2
0x1ebc…1ec5 at0004 = ╱50╱P╱ // 0x1ec0 @0x4
0x1ebc…1ec5 at0005 = ╱dc╱=╱ // 0x1ec1 @0x5
0x1ebc…1ec5 at0006 = ╱e9╱-╱ // 0x1ec2 @0x6
0x1ebc…1ec5 at0007 = ╱45╱E╱ // 0x1ec3 @0x7
0x1ebc…1ec5 at0008 = EOL // 0x1ec4 @0x8
0x1ebc…1ec5 }
0x1ec5…1ed0 ac27 3840 OPEN B5$,R
0x1ec5…1ed0 LineComalBin {
0x1ec5…1ed0 ptr = 0xac27 // 0x1ec5 @0x0
0x1ec5…1ed0 lno = 0x0f00 // 0x1ec7 @0x2
0x1ec5…1ed0 at0004 = ╱a7╱ OPEN ╱ // 0x1ec9 @0x4
0x1ec5…1ed0 at0005 = ╱42╱B╱ // 0x1eca @0x5
0x1ec5…1ed0 at0006 = ╱35╱5╱ // 0x1ecb @0x6
0x1ec5…1ed0 at0007 = ╱ef╱$╱ // 0x1ecc @0x7
0x1ec5…1ed0 at0008 = ╱ec╱,╱ // 0x1ecd @0x8
0x1ec5…1ed0 at0009 = ╱52╱R╱ // 0x1ece @0x9
0x1ec5…1ed0 at000a = EOL // 0x1ecf @0xa
0x1ec5…1ed0 }
0x1ed0…1edf ac36 3850 IF STATUS(B5$)<>B THEN
0x1ed0…1edf LineComalBin {
0x1ed0…1edf ptr = 0xac36 // 0x1ed0 @0x0
0x1ed0…1edf lno = 0x0f0a // 0x1ed2 @0x2
0x1ed0…1edf at0004 = ╱9c╱ IF ╱ // 0x1ed4 @0x4
0x1ed0…1edf at0005 = ╱ce╱STATUS╱ // 0x1ed5 @0x5
0x1ed0…1edf at0006 = ╱ed╱(╱ // 0x1ed6 @0x6
0x1ed0…1edf at0007 = ╱42╱B╱ // 0x1ed7 @0x7
0x1ed0…1edf at0008 = ╱35╱5╱ // 0x1ed8 @0x8
0x1ed0…1edf at0009 = ╱ef╱$╱ // 0x1ed9 @0x9
0x1ed0…1edf at000a = ╱ee╱)╱ // 0x1eda @0xa
0x1ed0…1edf at000b = ╱e1╱<>╱ // 0x1edb @0xb
0x1ed0…1edf at000c = ╱42╱B╱ // 0x1edc @0xc
0x1ed0…1edf at000d = ╱b6╱ THEN ╱ // 0x1edd @0xd
0x1ed0…1edf at000e = EOL // 0x1ede @0xe
0x1ed0…1edf }
0x1edf…1ee5 ac3c 3860 CLEAR
0x1edf…1ee5 LineComalBin {
0x1edf…1ee5 ptr = 0xac3c // 0x1edf @0x0
0x1edf…1ee5 lno = 0x0f14 // 0x1ee1 @0x2
0x1edf…1ee5 at0004 = ╱a0╱ CLEAR ╱ // 0x1ee3 @0x4
0x1edf…1ee5 at0005 = EOL // 0x1ee4 @0x5
0x1edf…1ee5 }
0x1ee5…1efa ac51 3870 CURSOR 25,13
0x1ee5…1efa LineComalBin {
0x1ee5…1efa ptr = 0xac51 // 0x1ee5 @0x0
0x1ee5…1efa lno = 0x0f1e // 0x1ee7 @0x2
0x1ee5…1efa at0004 = ╱a1╱ CURSOR ╱ // 0x1ee9 @0x4
0x1ee5…1efa at0005 = ╱32╱2╱ // 0x1eea @0x5
0x1ee5…1efa at0006 = ╱35╱5╱ // 0x1eeb @0x6
0x1ee5…1efa at0007 = ╱fe0000c805╱ // 0x1eec @0x7
0x1ee5…1efa at000c = ╱ec╱,╱ // 0x1ef1 @0xc
0x1ee5…1efa at000d = ╱31╱1╱ // 0x1ef2 @0xd
0x1ee5…1efa at000e = ╱33╱3╱ // 0x1ef3 @0xe
0x1ee5…1efa at000f = ╱fe0000d004╱ // 0x1ef4 @0xf
0x1ee5…1efa at0014 = EOL // 0x1ef9 @0x14
0x1ee5…1efa }
0x1efa…1f23 ac7a 3880 INPUT "Isæt plade nr. 20 ,tast RETURN",A$
0x1efa…1f23 LineComalBin {
0x1efa…1f23 ptr = 0xac7a // 0x1efa @0x0
0x1efa…1f23 lno = 0x0f28 // 0x1efc @0x2
0x1efa…1f23 at0004 = ╱91╱ INPUT ╱ // 0x1efe @0x4
0x1efa…1f23 at0005 = ╱22╱"╱ // 0x1eff @0x5
0x1efa…1f23 at0006 = ╱49╱I╱ // 0x1f00 @0x6
0x1efa…1f23 at0007 = ╱73╱s╱ // 0x1f01 @0x7
0x1efa…1f23 at0008 = ╱7b╱æ╱ // 0x1f02 @0x8
0x1efa…1f23 at0009 = ╱74╱t╱ // 0x1f03 @0x9
0x1efa…1f23 at000a = ╱20╱…╱ // 0x1f04 @0xa
0x1efa…1f23 at000b = ╱70╱p╱ // 0x1f05 @0xb
0x1efa…1f23 at000c = ╱6c╱l╱ // 0x1f06 @0xc
0x1efa…1f23 at000d = ╱61╱a╱ // 0x1f07 @0xd
0x1efa…1f23 at000e = ╱64╱d╱ // 0x1f08 @0xe
0x1efa…1f23 at000f = ╱65╱e╱ // 0x1f09 @0xf
0x1efa…1f23 at0010 = ╱20╱…╱ // 0x1f0a @0x10
0x1efa…1f23 at0011 = ╱6e╱n╱ // 0x1f0b @0x11
0x1efa…1f23 at0012 = ╱72╱r╱ // 0x1f0c @0x12
0x1efa…1f23 at0013 = ╱2e╱.╱ // 0x1f0d @0x13
0x1efa…1f23 at0014 = ╱20╱…╱ // 0x1f0e @0x14
0x1efa…1f23 at0015 = ╱32╱2╱ // 0x1f0f @0x15
0x1efa…1f23 at0016 = ╱30╱0╱ // 0x1f10 @0x16
0x1efa…1f23 at0017 = ╱20╱…╱ // 0x1f11 @0x17
0x1efa…1f23 at0018 = ╱2c╱,╱ // 0x1f12 @0x18
0x1efa…1f23 at0019 = ╱74╱t╱ // 0x1f13 @0x19
0x1efa…1f23 at001a = ╱61╱a╱ // 0x1f14 @0x1a
0x1efa…1f23 at001b = ╱73╱s╱ // 0x1f15 @0x1b
0x1efa…1f23 at001c = ╱74╱t╱ // 0x1f16 @0x1c
0x1efa…1f23 at001d = ╱20╱…╱ // 0x1f17 @0x1d
0x1efa…1f23 at001e = ╱52╱R╱ // 0x1f18 @0x1e
0x1efa…1f23 at001f = ╱45╱E╱ // 0x1f19 @0x1f
0x1efa…1f23 at0020 = ╱54╱T╱ // 0x1f1a @0x20
0x1efa…1f23 at0021 = ╱55╱U╱ // 0x1f1b @0x21
0x1efa…1f23 at0022 = ╱52╱R╱ // 0x1f1c @0x22
0x1efa…1f23 at0023 = ╱4e╱N╱ // 0x1f1d @0x23
0x1efa…1f23 at0024 = ╱22╱"╱ // 0x1f1e @0x24
0x1efa…1f23 at0025 = ╱ec╱,╱ // 0x1f1f @0x25
0x1efa…1f23 at0026 = ╱41╱A╱ // 0x1f20 @0x26
0x1efa…1f23 at0027 = ╱ef╱$╱ // 0x1f21 @0x27
0x1efa…1f23 at0028 = EOL // 0x1f22 @0x28
0x1efa…1f23 }
0x1f23…1f33 ac8a 3890 EXEC NRTEST(A$)
0x1f23…1f33 LineComalBin {
0x1f23…1f33 ptr = 0xac8a // 0x1f23 @0x0
0x1f23…1f33 lno = 0x0f32 // 0x1f25 @0x2
0x1f23…1f33 at0004 = ╱9d╱ EXEC ╱ // 0x1f27 @0x4
0x1f23…1f33 at0005 = ╱4e╱N╱ // 0x1f28 @0x5
0x1f23…1f33 at0006 = ╱52╱R╱ // 0x1f29 @0x6
0x1f23…1f33 at0007 = ╱54╱T╱ // 0x1f2a @0x7
0x1f23…1f33 at0008 = ╱45╱E╱ // 0x1f2b @0x8
0x1f23…1f33 at0009 = ╱53╱S╱ // 0x1f2c @0x9
0x1f23…1f33 at000a = ╱54╱T╱ // 0x1f2d @0xa
0x1f23…1f33 at000b = ╱ed╱(╱ // 0x1f2e @0xb
0x1f23…1f33 at000c = ╱41╱A╱ // 0x1f2f @0xc
0x1f23…1f33 at000d = ╱ef╱$╱ // 0x1f30 @0xd
0x1f23…1f33 at000e = ╱ee╱)╱ // 0x1f31 @0xe
0x1f23…1f33 at000f = EOL // 0x1f32 @0xf
0x1f23…1f33 }
0x1f33…1f3b ac92 3900 P=B
0x1f33…1f3b LineComalBin {
0x1f33…1f3b ptr = 0xac92 // 0x1f33 @0x0
0x1f33…1f3b lno = 0x0f3c // 0x1f35 @0x2
0x1f33…1f3b at0004 = ╱50╱P╱ // 0x1f37 @0x4
0x1f33…1f3b at0005 = ╱dc╱=╱ // 0x1f38 @0x5
0x1f33…1f3b at0006 = ╱42╱B╱ // 0x1f39 @0x6
0x1f33…1f3b at0007 = EOL // 0x1f3a @0x7
0x1f33…1f3b }
0x1f3b…1f41 ac98 3910 ENDIF
0x1f3b…1f41 LineComalBin {
0x1f3b…1f41 ptr = 0xac98 // 0x1f3b @0x0
0x1f3b…1f41 lno = 0x0f46 // 0x1f3d @0x2
0x1f3b…1f41 at0004 = ╱9b╱ ENDIF ╱ // 0x1f3f @0x4
0x1f3b…1f41 at0005 = EOL // 0x1f40 @0x5
0x1f3b…1f41 }
0x1f41…1f4b aca2 3920 UNTIL P=-E
0x1f41…1f4b LineComalBin {
0x1f41…1f4b ptr = 0xaca2 // 0x1f41 @0x0
0x1f41…1f4b lno = 0x0f50 // 0x1f43 @0x2
0x1f41…1f4b at0004 = ╱98╱ UNTIL ╱ // 0x1f45 @0x4
0x1f41…1f4b at0005 = ╱50╱P╱ // 0x1f46 @0x5
0x1f41…1f4b at0006 = ╱dc╱=╱ // 0x1f47 @0x6
0x1f41…1f4b at0007 = ╱e9╱-╱ // 0x1f48 @0x7
0x1f41…1f4b at0008 = ╱45╱E╱ // 0x1f49 @0x8
0x1f41…1f4b at0009 = EOL // 0x1f4a @0x9
0x1f41…1f4b }
0x1f4b…1f5f acb6 3930 GET B5$,E:F8,G3,G7
0x1f4b…1f5f LineComalBin {
0x1f4b…1f5f ptr = 0xacb6 // 0x1f4b @0x0
0x1f4b…1f5f lno = 0x0f5a // 0x1f4d @0x2
0x1f4b…1f5f at0004 = ╱a9╱ GET ╱ // 0x1f4f @0x4
0x1f4b…1f5f at0005 = ╱42╱B╱ // 0x1f50 @0x5
0x1f4b…1f5f at0006 = ╱35╱5╱ // 0x1f51 @0x6
0x1f4b…1f5f at0007 = ╱ef╱$╱ // 0x1f52 @0x7
0x1f4b…1f5f at0008 = ╱ec╱,╱ // 0x1f53 @0x8
0x1f4b…1f5f at0009 = ╱45╱E╱ // 0x1f54 @0x9
0x1f4b…1f5f at000a = ╱f0╱:╱ // 0x1f55 @0xa
0x1f4b…1f5f at000b = ╱46╱F╱ // 0x1f56 @0xb
0x1f4b…1f5f at000c = ╱38╱8╱ // 0x1f57 @0xc
0x1f4b…1f5f at000d = ╱ec╱,╱ // 0x1f58 @0xd
0x1f4b…1f5f at000e = ╱47╱G╱ // 0x1f59 @0xe
0x1f4b…1f5f at000f = ╱33╱3╱ // 0x1f5a @0xf
0x1f4b…1f5f at0010 = ╱ec╱,╱ // 0x1f5b @0x10
0x1f4b…1f5f at0011 = ╱47╱G╱ // 0x1f5c @0x11
0x1f4b…1f5f at0012 = ╱37╱7╱ // 0x1f5d @0x12
0x1f4b…1f5f at0013 = EOL // 0x1f5e @0x13
0x1f4b…1f5f }
0x1f5f…1f70 acc7 3940 EXEC FE(W,E,B5$)
0x1f5f…1f70 LineComalBin {
0x1f5f…1f70 ptr = 0xacc7 // 0x1f5f @0x0
0x1f5f…1f70 lno = 0x0f64 // 0x1f61 @0x2
0x1f5f…1f70 at0004 = ╱9d╱ EXEC ╱ // 0x1f63 @0x4
0x1f5f…1f70 at0005 = ╱46╱F╱ // 0x1f64 @0x5
0x1f5f…1f70 at0006 = ╱45╱E╱ // 0x1f65 @0x6
0x1f5f…1f70 at0007 = ╱ed╱(╱ // 0x1f66 @0x7
0x1f5f…1f70 at0008 = ╱57╱W╱ // 0x1f67 @0x8
0x1f5f…1f70 at0009 = ╱ec╱,╱ // 0x1f68 @0x9
0x1f5f…1f70 at000a = ╱45╱E╱ // 0x1f69 @0xa
0x1f5f…1f70 at000b = ╱ec╱,╱ // 0x1f6a @0xb
0x1f5f…1f70 at000c = ╱42╱B╱ // 0x1f6b @0xc
0x1f5f…1f70 at000d = ╱35╱5╱ // 0x1f6c @0xd
0x1f5f…1f70 at000e = ╱ef╱$╱ // 0x1f6d @0xe
0x1f5f…1f70 at000f = ╱ee╱)╱ // 0x1f6e @0xf
0x1f5f…1f70 at0010 = EOL // 0x1f6f @0x10
0x1f5f…1f70 }
0x1f70…1f84 acdb 3950 GET B5$,G:N2,N3,N4
0x1f70…1f84 LineComalBin {
0x1f70…1f84 ptr = 0xacdb // 0x1f70 @0x0
0x1f70…1f84 lno = 0x0f6e // 0x1f72 @0x2
0x1f70…1f84 at0004 = ╱a9╱ GET ╱ // 0x1f74 @0x4
0x1f70…1f84 at0005 = ╱42╱B╱ // 0x1f75 @0x5
0x1f70…1f84 at0006 = ╱35╱5╱ // 0x1f76 @0x6
0x1f70…1f84 at0007 = ╱ef╱$╱ // 0x1f77 @0x7
0x1f70…1f84 at0008 = ╱ec╱,╱ // 0x1f78 @0x8
0x1f70…1f84 at0009 = ╱47╱G╱ // 0x1f79 @0x9
0x1f70…1f84 at000a = ╱f0╱:╱ // 0x1f7a @0xa
0x1f70…1f84 at000b = ╱4e╱N╱ // 0x1f7b @0xb
0x1f70…1f84 at000c = ╱32╱2╱ // 0x1f7c @0xc
0x1f70…1f84 at000d = ╱ec╱,╱ // 0x1f7d @0xd
0x1f70…1f84 at000e = ╱4e╱N╱ // 0x1f7e @0xe
0x1f70…1f84 at000f = ╱33╱3╱ // 0x1f7f @0xf
0x1f70…1f84 at0010 = ╱ec╱,╱ // 0x1f80 @0x10
0x1f70…1f84 at0011 = ╱4e╱N╱ // 0x1f81 @0x11
0x1f70…1f84 at0012 = ╱34╱4╱ // 0x1f82 @0x12
0x1f70…1f84 at0013 = EOL // 0x1f83 @0x13
0x1f70…1f84 }
0x1f84…1f95 acec 3960 EXEC FE(W,G,B5$)
0x1f84…1f95 LineComalBin {
0x1f84…1f95 ptr = 0xacec // 0x1f84 @0x0
0x1f84…1f95 lno = 0x0f78 // 0x1f86 @0x2
0x1f84…1f95 at0004 = ╱9d╱ EXEC ╱ // 0x1f88 @0x4
0x1f84…1f95 at0005 = ╱46╱F╱ // 0x1f89 @0x5
0x1f84…1f95 at0006 = ╱45╱E╱ // 0x1f8a @0x6
0x1f84…1f95 at0007 = ╱ed╱(╱ // 0x1f8b @0x7
0x1f84…1f95 at0008 = ╱57╱W╱ // 0x1f8c @0x8
0x1f84…1f95 at0009 = ╱ec╱,╱ // 0x1f8d @0x9
0x1f84…1f95 at000a = ╱47╱G╱ // 0x1f8e @0xa
0x1f84…1f95 at000b = ╱ec╱,╱ // 0x1f8f @0xb
0x1f84…1f95 at000c = ╱42╱B╱ // 0x1f90 @0xc
0x1f84…1f95 at000d = ╱35╱5╱ // 0x1f91 @0xd
0x1f84…1f95 at000e = ╱ef╱$╱ // 0x1f92 @0xe
0x1f84…1f95 at000f = ╱ee╱)╱ // 0x1f93 @0xf
0x1f84…1f95 at0010 = EOL // 0x1f94 @0x10
0x1f84…1f95 }
0x1f95…1fb1 (105,) ad08 3970 GET B5$,4:N5,N6,N7,G1
0x1f95…1fb1 LineComalBin {
0x1f95…1fb1 ptr = 0xad08 // 0x1f95 @0x0
0x1f95…1fb1 lno = 0x0f82 // 0x1f97 @0x2
0x1f95…1fb1 at0004 = ╱a9╱ GET ╱ // 0x1f99 @0x4
0x1f95…1fb1 at0005 = ╱42╱B╱ // 0x1f9a @0x5
0x1f95…1fb1 at0006 = ╱35╱5╱ // 0x1f9b @0x6
0x1f95…1fb1 at0007 = ╱ef╱$╱ // 0x1f9c @0x7
0x1f95…1fb1 at0008 = ╱ec╱,╱ // 0x1f9d @0x8
0x1f95…1fb1 at0009 = ╱34╱4╱ // 0x1f9e @0x9
0x1f95…1fb1 at000a = ╱fe00008003╱ // 0x1f9f @0xa
0x1f95…1fb1 at000f = ╱f0╱:╱ // 0x1fa4 @0xf
0x1f95…1fb1 at0010 = ╱4e╱N╱ // 0x1fa5 @0x10
0x1f95…1fb1 at0011 = ╱35╱5╱ // 0x1fa6 @0x11
0x1f95…1fb1 at0012 = ╱ec╱,╱ // 0x1fa7 @0x12
0x1f95…1fb1 at0013 = ╱4e╱N╱ // 0x1fa8 @0x13
0x1f95…1fb1 at0014 = ╱36╱6╱ // 0x1fa9 @0x14
0x1f95…1fb1 at0015 = ╱ec╱,╱ // 0x1faa @0x15
0x1f95…1fb1 at0016 = ╱4e╱N╱ // 0x1fab @0x16
0x1f95…1fb1 at0017 = ╱37╱7╱ // 0x1fac @0x17
0x1f95…1fb1 at0018 = ╱ec╱,╱ // 0x1fad @0x18
0x1f95…1fb1 at0019 = ╱47╱G╱ // 0x1fae @0x19
0x1f95…1fb1 at001a = ╱31╱1╱ // 0x1faf @0x1a
0x1f95…1fb1 at001b = EOL // 0x1fb0 @0x1b
0x1f95…1fb1 }
0x1fb1…1fc2 ad19 3980 EXEC FE(W,V,B5$)
0x1fb1…1fc2 LineComalBin {
0x1fb1…1fc2 ptr = 0xad19 // 0x1fb1 @0x0
0x1fb1…1fc2 lno = 0x0f8c // 0x1fb3 @0x2
0x1fb1…1fc2 at0004 = ╱9d╱ EXEC ╱ // 0x1fb5 @0x4
0x1fb1…1fc2 at0005 = ╱46╱F╱ // 0x1fb6 @0x5
0x1fb1…1fc2 at0006 = ╱45╱E╱ // 0x1fb7 @0x6
0x1fb1…1fc2 at0007 = ╱ed╱(╱ // 0x1fb8 @0x7
0x1fb1…1fc2 at0008 = ╱57╱W╱ // 0x1fb9 @0x8
0x1fb1…1fc2 at0009 = ╱ec╱,╱ // 0x1fba @0x9
0x1fb1…1fc2 at000a = ╱56╱V╱ // 0x1fbb @0xa
0x1fb1…1fc2 at000b = ╱ec╱,╱ // 0x1fbc @0xb
0x1fb1…1fc2 at000c = ╱42╱B╱ // 0x1fbd @0xc
0x1fb1…1fc2 at000d = ╱35╱5╱ // 0x1fbe @0xd
0x1fb1…1fc2 at000e = ╱ef╱$╱ // 0x1fbf @0xe
0x1fb1…1fc2 at000f = ╱ee╱)╱ // 0x1fc0 @0xf
0x1fb1…1fc2 at0010 = EOL // 0x1fc1 @0x10
0x1fb1…1fc2 }
0x1fc2…1fd5 ad2c 3990 GET B5$,5:G5
0x1fc2…1fd5 LineComalBin {
0x1fc2…1fd5 ptr = 0xad2c // 0x1fc2 @0x0
0x1fc2…1fd5 lno = 0x0f96 // 0x1fc4 @0x2
0x1fc2…1fd5 at0004 = ╱a9╱ GET ╱ // 0x1fc6 @0x4
0x1fc2…1fd5 at0005 = ╱42╱B╱ // 0x1fc7 @0x5
0x1fc2…1fd5 at0006 = ╱35╱5╱ // 0x1fc8 @0x6
0x1fc2…1fd5 at0007 = ╱ef╱$╱ // 0x1fc9 @0x7
0x1fc2…1fd5 at0008 = ╱ec╱,╱ // 0x1fca @0x8
0x1fc2…1fd5 at0009 = ╱35╱5╱ // 0x1fcb @0x9
0x1fc2…1fd5 at000a = ╱fe0000a003╱ // 0x1fcc @0xa
0x1fc2…1fd5 at000f = ╱f0╱:╱ // 0x1fd1 @0xf
0x1fc2…1fd5 at0010 = ╱47╱G╱ // 0x1fd2 @0x10
0x1fc2…1fd5 at0011 = ╱35╱5╱ // 0x1fd3 @0x11
0x1fc2…1fd5 at0012 = EOL // 0x1fd4 @0x12
0x1fc2…1fd5 }
0x1fd5…1feb ad42 4000 EXEC FE(W,4,B5$)
0x1fd5…1feb LineComalBin {
0x1fd5…1feb ptr = 0xad42 // 0x1fd5 @0x0
0x1fd5…1feb lno = 0x0fa0 // 0x1fd7 @0x2
0x1fd5…1feb at0004 = ╱9d╱ EXEC ╱ // 0x1fd9 @0x4
0x1fd5…1feb at0005 = ╱46╱F╱ // 0x1fda @0x5
0x1fd5…1feb at0006 = ╱45╱E╱ // 0x1fdb @0x6
0x1fd5…1feb at0007 = ╱ed╱(╱ // 0x1fdc @0x7
0x1fd5…1feb at0008 = ╱57╱W╱ // 0x1fdd @0x8
0x1fd5…1feb at0009 = ╱ec╱,╱ // 0x1fde @0x9
0x1fd5…1feb at000a = ╱34╱4╱ // 0x1fdf @0xa
0x1fd5…1feb at000b = ╱fe00008003╱ // 0x1fe0 @0xb
0x1fd5…1feb at0010 = ╱ec╱,╱ // 0x1fe5 @0x10
0x1fd5…1feb at0011 = ╱42╱B╱ // 0x1fe6 @0x11
0x1fd5…1feb at0012 = ╱35╱5╱ // 0x1fe7 @0x12
0x1fd5…1feb at0013 = ╱ef╱$╱ // 0x1fe8 @0x13
0x1fd5…1feb at0014 = ╱ee╱)╱ // 0x1fe9 @0x14
0x1fd5…1feb at0015 = EOL // 0x1fea @0x15
0x1fd5…1feb }
0x1feb…2007 ad5e 4010 GET B5$,8:N8,N9,O0,G0
0x1feb…2007 LineComalBin {
0x1feb…2007 ptr = 0xad5e // 0x1feb @0x0
0x1feb…2007 lno = 0x0faa // 0x1fed @0x2
0x1feb…2007 at0004 = ╱a9╱ GET ╱ // 0x1fef @0x4
0x1feb…2007 at0005 = ╱42╱B╱ // 0x1ff0 @0x5
0x1feb…2007 at0006 = ╱35╱5╱ // 0x1ff1 @0x6
0x1feb…2007 at0007 = ╱ef╱$╱ // 0x1ff2 @0x7
0x1feb…2007 at0008 = ╱ec╱,╱ // 0x1ff3 @0x8
0x1feb…2007 at0009 = ╱38╱8╱ // 0x1ff4 @0x9
0x1feb…2007 at000a = ╱fe00008004╱ // 0x1ff5 @0xa
0x1feb…2007 at000f = ╱f0╱:╱ // 0x1ffa @0xf
0x1feb…2007 at0010 = ╱4e╱N╱ // 0x1ffb @0x10
0x1feb…2007 at0011 = ╱38╱8╱ // 0x1ffc @0x11
0x1feb…2007 at0012 = ╱ec╱,╱ // 0x1ffd @0x12
0x1feb…2007 at0013 = ╱4e╱N╱ // 0x1ffe @0x13
0x1feb…2007 at0014 = ╱39╱9╱ // 0x1fff @0x14
0x1feb…2007 at0015 = ╱ec╱,╱ // 0x2000 @0x15
0x1feb…2007 at0016 = ╱4f╱O╱ // 0x2001 @0x16
0x1feb…2007 at0017 = ╱30╱0╱ // 0x2002 @0x17
0x1feb…2007 at0018 = ╱ec╱,╱ // 0x2003 @0x18
0x1feb…2007 at0019 = ╱47╱G╱ // 0x2004 @0x19
0x1feb…2007 at001a = ╱30╱0╱ // 0x2005 @0x1a
0x1feb…2007 at001b = EOL // 0x2006 @0x1b
0x1feb…2007 }
0x2007…201d ad74 4020 EXEC FE(W,5,B5$)
0x2007…201d LineComalBin {
0x2007…201d ptr = 0xad74 // 0x2007 @0x0
0x2007…201d lno = 0x0fb4 // 0x2009 @0x2
0x2007…201d at0004 = ╱9d╱ EXEC ╱ // 0x200b @0x4
0x2007…201d at0005 = ╱46╱F╱ // 0x200c @0x5
0x2007…201d at0006 = ╱45╱E╱ // 0x200d @0x6
0x2007…201d at0007 = ╱ed╱(╱ // 0x200e @0x7
0x2007…201d at0008 = ╱57╱W╱ // 0x200f @0x8
0x2007…201d at0009 = ╱ec╱,╱ // 0x2010 @0x9
0x2007…201d at000a = ╱35╱5╱ // 0x2011 @0xa
0x2007…201d at000b = ╱fe0000a003╱ // 0x2012 @0xb
0x2007…201d at0010 = ╱ec╱,╱ // 0x2017 @0x10
0x2007…201d at0011 = ╱42╱B╱ // 0x2018 @0x11
0x2007…201d at0012 = ╱35╱5╱ // 0x2019 @0x12
0x2007…201d at0013 = ╱ef╱$╱ // 0x201a @0x13
0x2007…201d at0014 = ╱ee╱)╱ // 0x201b @0x14
0x2007…201d at0015 = EOL // 0x201c @0x15
0x2007…201d }
0x201d…2034 ad8b 4030 GET B5$,W:G4,O1,L0,L3
0x201d…2034 LineComalBin {
0x201d…2034 ptr = 0xad8b // 0x201d @0x0
0x201d…2034 lno = 0x0fbe // 0x201f @0x2
0x201d…2034 at0004 = ╱a9╱ GET ╱ // 0x2021 @0x4
0x201d…2034 at0005 = ╱42╱B╱ // 0x2022 @0x5
0x201d…2034 at0006 = ╱35╱5╱ // 0x2023 @0x6
0x201d…2034 at0007 = ╱ef╱$╱ // 0x2024 @0x7
0x201d…2034 at0008 = ╱ec╱,╱ // 0x2025 @0x8
0x201d…2034 at0009 = ╱57╱W╱ // 0x2026 @0x9
0x201d…2034 at000a = ╱f0╱:╱ // 0x2027 @0xa
0x201d…2034 at000b = ╱47╱G╱ // 0x2028 @0xb
0x201d…2034 at000c = ╱34╱4╱ // 0x2029 @0xc
0x201d…2034 at000d = ╱ec╱,╱ // 0x202a @0xd
0x201d…2034 at000e = ╱4f╱O╱ // 0x202b @0xe
0x201d…2034 at000f = ╱31╱1╱ // 0x202c @0xf
0x201d…2034 at0010 = ╱ec╱,╱ // 0x202d @0x10
0x201d…2034 at0011 = ╱4c╱L╱ // 0x202e @0x11
0x201d…2034 at0012 = ╱30╱0╱ // 0x202f @0x12
0x201d…2034 at0013 = ╱ec╱,╱ // 0x2030 @0x13
0x201d…2034 at0014 = ╱4c╱L╱ // 0x2031 @0x14
0x201d…2034 at0015 = ╱33╱3╱ // 0x2032 @0x15
0x201d…2034 at0016 = EOL // 0x2033 @0x16
0x201d…2034 }
0x2034…204a ada1 4040 EXEC FE(W,6,B5$)
0x2034…204a LineComalBin {
0x2034…204a ptr = 0xada1 // 0x2034 @0x0
0x2034…204a lno = 0x0fc8 // 0x2036 @0x2
0x2034…204a at0004 = ╱9d╱ EXEC ╱ // 0x2038 @0x4
0x2034…204a at0005 = ╱46╱F╱ // 0x2039 @0x5
0x2034…204a at0006 = ╱45╱E╱ // 0x203a @0x6
0x2034…204a at0007 = ╱ed╱(╱ // 0x203b @0x7
0x2034…204a at0008 = ╱57╱W╱ // 0x203c @0x8
0x2034…204a at0009 = ╱ec╱,╱ // 0x203d @0x9
0x2034…204a at000a = ╱36╱6╱ // 0x203e @0xa
0x2034…204a at000b = ╱fe0000c003╱ // 0x203f @0xb
0x2034…204a at0010 = ╱ec╱,╱ // 0x2044 @0x10
0x2034…204a at0011 = ╱42╱B╱ // 0x2045 @0x11
0x2034…204a at0012 = ╱35╱5╱ // 0x2046 @0x12
0x2034…204a at0013 = ╱ef╱$╱ // 0x2047 @0x13
0x2034…204a at0014 = ╱ee╱)╱ // 0x2048 @0x14
0x2034…204a at0015 = EOL // 0x2049 @0x15
0x2034…204a }
0x204a…205e adb5 4050 GET B5$,10:N$
0x204a…205e LineComalBin {
0x204a…205e ptr = 0xadb5 // 0x204a @0x0
0x204a…205e lno = 0x0fd2 // 0x204c @0x2
0x204a…205e at0004 = ╱a9╱ GET ╱ // 0x204e @0x4
0x204a…205e at0005 = ╱42╱B╱ // 0x204f @0x5
0x204a…205e at0006 = ╱35╱5╱ // 0x2050 @0x6
0x204a…205e at0007 = ╱ef╱$╱ // 0x2051 @0x7
0x204a…205e at0008 = ╱ec╱,╱ // 0x2052 @0x8
0x204a…205e at0009 = ╱31╱1╱ // 0x2053 @0x9
0x204a…205e at000a = ╱30╱0╱ // 0x2054 @0xa
0x204a…205e at000b = ╱fe0000a004╱ // 0x2055 @0xb
0x204a…205e at0010 = ╱f0╱:╱ // 0x205a @0x10
0x204a…205e at0011 = ╱4e╱N╱ // 0x205b @0x11
0x204a…205e at0012 = ╱ef╱$╱ // 0x205c @0x12
0x204a…205e at0013 = EOL // 0x205d @0x13
0x204a…205e }
0x205e…2074 adcb 4060 EXEC FE(W,7,B5$)
0x205e…2074 LineComalBin {
0x205e…2074 ptr = 0xadcb // 0x205e @0x0
0x205e…2074 lno = 0x0fdc // 0x2060 @0x2
0x205e…2074 at0004 = ╱9d╱ EXEC ╱ // 0x2062 @0x4
0x205e…2074 at0005 = ╱46╱F╱ // 0x2063 @0x5
0x205e…2074 at0006 = ╱45╱E╱ // 0x2064 @0x6
0x205e…2074 at0007 = ╱ed╱(╱ // 0x2065 @0x7
0x205e…2074 at0008 = ╱57╱W╱ // 0x2066 @0x8
0x205e…2074 at0009 = ╱ec╱,╱ // 0x2067 @0x9
0x205e…2074 at000a = ╱37╱7╱ // 0x2068 @0xa
0x205e…2074 at000b = ╱fe0000e003╱ // 0x2069 @0xb
0x205e…2074 at0010 = ╱ec╱,╱ // 0x206e @0x10
0x205e…2074 at0011 = ╱42╱B╱ // 0x206f @0x11
0x205e…2074 at0012 = ╱35╱5╱ // 0x2070 @0x12
0x205e…2074 at0013 = ╱ef╱$╱ // 0x2071 @0x13
0x205e…2074 at0014 = ╱ee╱)╱ // 0x2072 @0x14
0x205e…2074 at0015 = EOL // 0x2073 @0x15
0x205e…2074 }
0x2074…2089 ade0 4070 GET B5$,11:D9$
0x2074…2089 LineComalBin {
0x2074…2089 ptr = 0xade0 // 0x2074 @0x0
0x2074…2089 lno = 0x0fe6 // 0x2076 @0x2
0x2074…2089 at0004 = ╱a9╱ GET ╱ // 0x2078 @0x4
0x2074…2089 at0005 = ╱42╱B╱ // 0x2079 @0x5
0x2074…2089 at0006 = ╱35╱5╱ // 0x207a @0x6
0x2074…2089 at0007 = ╱ef╱$╱ // 0x207b @0x7
0x2074…2089 at0008 = ╱ec╱,╱ // 0x207c @0x8
0x2074…2089 at0009 = ╱31╱1╱ // 0x207d @0x9
0x2074…2089 at000a = ╱31╱1╱ // 0x207e @0xa
0x2074…2089 at000b = ╱fe0000b004╱ // 0x207f @0xb
0x2074…2089 at0010 = ╱f0╱:╱ // 0x2084 @0x10
0x2074…2089 at0011 = ╱44╱D╱ // 0x2085 @0x11
0x2074…2089 at0012 = ╱39╱9╱ // 0x2086 @0x12
0x2074…2089 at0013 = ╱ef╱$╱ // 0x2087 @0x13
0x2074…2089 at0014 = EOL // 0x2088 @0x14
0x2074…2089 }
0x2089…209f adf6 4080 EXEC FE(W,8,B5$)
0x2089…209f LineComalBin {
0x2089…209f ptr = 0xadf6 // 0x2089 @0x0
0x2089…209f lno = 0x0ff0 // 0x208b @0x2
0x2089…209f at0004 = ╱9d╱ EXEC ╱ // 0x208d @0x4
0x2089…209f at0005 = ╱46╱F╱ // 0x208e @0x5
0x2089…209f at0006 = ╱45╱E╱ // 0x208f @0x6
0x2089…209f at0007 = ╱ed╱(╱ // 0x2090 @0x7
0x2089…209f at0008 = ╱57╱W╱ // 0x2091 @0x8
0x2089…209f at0009 = ╱ec╱,╱ // 0x2092 @0x9
0x2089…209f at000a = ╱38╱8╱ // 0x2093 @0xa
0x2089…209f at000b = ╱fe00008004╱ // 0x2094 @0xb
0x2089…209f at0010 = ╱ec╱,╱ // 0x2099 @0x10
0x2089…209f at0011 = ╱42╱B╱ // 0x209a @0x11
0x2089…209f at0012 = ╱35╱5╱ // 0x209b @0x12
0x2089…209f at0013 = ╱ef╱$╱ // 0x209c @0x13
0x2089…209f at0014 = ╱ee╱)╱ // 0x209d @0x14
0x2089…209f at0015 = EOL // 0x209e @0x15
0x2089…209f }
0x209f…20b4 ae0b 4090 GET B5$,12:E5$
0x209f…20b4 LineComalBin {
0x209f…20b4 ptr = 0xae0b // 0x209f @0x0
0x209f…20b4 lno = 0x0ffa // 0x20a1 @0x2
0x209f…20b4 at0004 = ╱a9╱ GET ╱ // 0x20a3 @0x4
0x209f…20b4 at0005 = ╱42╱B╱ // 0x20a4 @0x5
0x209f…20b4 at0006 = ╱35╱5╱ // 0x20a5 @0x6
0x209f…20b4 at0007 = ╱ef╱$╱ // 0x20a6 @0x7
0x209f…20b4 at0008 = ╱ec╱,╱ // 0x20a7 @0x8
0x209f…20b4 at0009 = ╱31╱1╱ // 0x20a8 @0x9
0x209f…20b4 at000a = ╱32╱2╱ // 0x20a9 @0xa
0x209f…20b4 at000b = ╱fe0000c004╱ // 0x20aa @0xb
0x209f…20b4 at0010 = ╱f0╱:╱ // 0x20af @0x10
0x209f…20b4 at0011 = ╱45╱E╱ // 0x20b0 @0x11
0x209f…20b4 at0012 = ╱35╱5╱ // 0x20b1 @0x12
0x209f…20b4 at0013 = ╱ef╱$╱ // 0x20b2 @0x13
0x209f…20b4 at0014 = EOL // 0x20b3 @0x14
0x209f…20b4 }
0x20b4…20c5 ae1c 4100 EXEC FE(W,W,B5$)
0x20b4…20c5 LineComalBin {
0x20b4…20c5 ptr = 0xae1c // 0x20b4 @0x0
0x20b4…20c5 lno = 0x1004 // 0x20b6 @0x2
0x20b4…20c5 at0004 = ╱9d╱ EXEC ╱ // 0x20b8 @0x4
0x20b4…20c5 at0005 = ╱46╱F╱ // 0x20b9 @0x5
0x20b4…20c5 at0006 = ╱45╱E╱ // 0x20ba @0x6
0x20b4…20c5 at0007 = ╱ed╱(╱ // 0x20bb @0x7
0x20b4…20c5 at0008 = ╱57╱W╱ // 0x20bc @0x8
0x20b4…20c5 at0009 = ╱ec╱,╱ // 0x20bd @0x9
0x20b4…20c5 at000a = ╱57╱W╱ // 0x20be @0xa
0x20b4…20c5 at000b = ╱ec╱,╱ // 0x20bf @0xb
0x20b4…20c5 at000c = ╱42╱B╱ // 0x20c0 @0xc
0x20b4…20c5 at000d = ╱35╱5╱ // 0x20c1 @0xd
0x20b4…20c5 at000e = ╱ef╱$╱ // 0x20c2 @0xe
0x20b4…20c5 at000f = ╱ee╱)╱ // 0x20c3 @0xf
0x20b4…20c5 at0010 = EOL // 0x20c4 @0x10
0x20b4…20c5 }
0x20c5…20da ae31 4110 GET B5$,13:C2$
0x20c5…20da LineComalBin {
0x20c5…20da ptr = 0xae31 // 0x20c5 @0x0
0x20c5…20da lno = 0x100e // 0x20c7 @0x2
0x20c5…20da at0004 = ╱a9╱ GET ╱ // 0x20c9 @0x4
0x20c5…20da at0005 = ╱42╱B╱ // 0x20ca @0x5
0x20c5…20da at0006 = ╱35╱5╱ // 0x20cb @0x6
0x20c5…20da at0007 = ╱ef╱$╱ // 0x20cc @0x7
0x20c5…20da at0008 = ╱ec╱,╱ // 0x20cd @0x8
0x20c5…20da at0009 = ╱31╱1╱ // 0x20ce @0x9
0x20c5…20da at000a = ╱33╱3╱ // 0x20cf @0xa
0x20c5…20da at000b = ╱fe0000d004╱ // 0x20d0 @0xb
0x20c5…20da at0010 = ╱f0╱:╱ // 0x20d5 @0x10
0x20c5…20da at0011 = ╱43╱C╱ // 0x20d6 @0x11
0x20c5…20da at0012 = ╱32╱2╱ // 0x20d7 @0x12
0x20c5…20da at0013 = ╱ef╱$╱ // 0x20d8 @0x13
0x20c5…20da at0014 = EOL // 0x20d9 @0x14
0x20c5…20da }
0x20da…20f1 ae48 4120 EXEC FE(W,10,B5$)
0x20da…20f1 LineComalBin {
0x20da…20f1 ptr = 0xae48 // 0x20da @0x0
0x20da…20f1 lno = 0x1018 // 0x20dc @0x2
0x20da…20f1 at0004 = ╱9d╱ EXEC ╱ // 0x20de @0x4
0x20da…20f1 at0005 = ╱46╱F╱ // 0x20df @0x5
0x20da…20f1 at0006 = ╱45╱E╱ // 0x20e0 @0x6
0x20da…20f1 at0007 = ╱ed╱(╱ // 0x20e1 @0x7
0x20da…20f1 at0008 = ╱57╱W╱ // 0x20e2 @0x8
0x20da…20f1 at0009 = ╱ec╱,╱ // 0x20e3 @0x9
0x20da…20f1 at000a = ╱31╱1╱ // 0x20e4 @0xa
0x20da…20f1 at000b = ╱30╱0╱ // 0x20e5 @0xb
0x20da…20f1 at000c = ╱fe0000a004╱ // 0x20e6 @0xc
0x20da…20f1 at0011 = ╱ec╱,╱ // 0x20eb @0x11
0x20da…20f1 at0012 = ╱42╱B╱ // 0x20ec @0x12
0x20da…20f1 at0013 = ╱35╱5╱ // 0x20ed @0x13
0x20da…20f1 at0014 = ╱ef╱$╱ // 0x20ee @0x14
0x20da…20f1 at0015 = ╱ee╱)╱ // 0x20ef @0x15
0x20da…20f1 at0016 = EOL // 0x20f0 @0x16
0x20da…20f1 }
0x20f1…2106 ae5d 4130 GET B5$,15:D2$
0x20f1…2106 LineComalBin {
0x20f1…2106 ptr = 0xae5d // 0x20f1 @0x0
0x20f1…2106 lno = 0x1022 // 0x20f3 @0x2
0x20f1…2106 at0004 = ╱a9╱ GET ╱ // 0x20f5 @0x4
0x20f1…2106 at0005 = ╱42╱B╱ // 0x20f6 @0x5
0x20f1…2106 at0006 = ╱35╱5╱ // 0x20f7 @0x6
0x20f1…2106 at0007 = ╱ef╱$╱ // 0x20f8 @0x7
0x20f1…2106 at0008 = ╱ec╱,╱ // 0x20f9 @0x8
0x20f1…2106 at0009 = ╱31╱1╱ // 0x20fa @0x9
0x20f1…2106 at000a = ╱35╱5╱ // 0x20fb @0xa
0x20f1…2106 at000b = ╱fe0000f004╱ // 0x20fc @0xb
0x20f1…2106 at0010 = ╱f0╱:╱ // 0x2101 @0x10
0x20f1…2106 at0011 = ╱44╱D╱ // 0x2102 @0x11
0x20f1…2106 at0012 = ╱32╱2╱ // 0x2103 @0x12
0x20f1…2106 at0013 = ╱ef╱$╱ // 0x2104 @0x13
0x20f1…2106 at0014 = EOL // 0x2105 @0x14
0x20f1…2106 }
0x2106…211d ae74 4140 EXEC FE(W,11,B5$)
0x2106…211d LineComalBin {
0x2106…211d ptr = 0xae74 // 0x2106 @0x0
0x2106…211d lno = 0x102c // 0x2108 @0x2
0x2106…211d at0004 = ╱9d╱ EXEC ╱ // 0x210a @0x4
0x2106…211d at0005 = ╱46╱F╱ // 0x210b @0x5
0x2106…211d at0006 = ╱45╱E╱ // 0x210c @0x6
0x2106…211d at0007 = ╱ed╱(╱ // 0x210d @0x7
0x2106…211d at0008 = ╱57╱W╱ // 0x210e @0x8
0x2106…211d at0009 = ╱ec╱,╱ // 0x210f @0x9
0x2106…211d at000a = ╱31╱1╱ // 0x2110 @0xa
0x2106…211d at000b = ╱31╱1╱ // 0x2111 @0xb
0x2106…211d at000c = ╱fe0000b004╱ // 0x2112 @0xc
0x2106…211d at0011 = ╱ec╱,╱ // 0x2117 @0x11
0x2106…211d at0012 = ╱42╱B╱ // 0x2118 @0x12
0x2106…211d at0013 = ╱35╱5╱ // 0x2119 @0x13
0x2106…211d at0014 = ╱ef╱$╱ // 0x211a @0x14
0x2106…211d at0015 = ╱ee╱)╱ // 0x211b @0x15
0x2106…211d at0016 = EOL // 0x211c @0x16
0x2106…211d }
0x211d…2132 ae89 4150 GET B5$,16:A8$
0x211d…2132 LineComalBin {
0x211d…2132 ptr = 0xae89 // 0x211d @0x0
0x211d…2132 lno = 0x1036 // 0x211f @0x2
0x211d…2132 at0004 = ╱a9╱ GET ╱ // 0x2121 @0x4
0x211d…2132 at0005 = ╱42╱B╱ // 0x2122 @0x5
0x211d…2132 at0006 = ╱35╱5╱ // 0x2123 @0x6
0x211d…2132 at0007 = ╱ef╱$╱ // 0x2124 @0x7
0x211d…2132 at0008 = ╱ec╱,╱ // 0x2125 @0x8
0x211d…2132 at0009 = ╱31╱1╱ // 0x2126 @0x9
0x211d…2132 at000a = ╱36╱6╱ // 0x2127 @0xa
0x211d…2132 at000b = ╱fe00008005╱ // 0x2128 @0xb
0x211d…2132 at0010 = ╱f0╱:╱ // 0x212d @0x10
0x211d…2132 at0011 = ╱41╱A╱ // 0x212e @0x11
0x211d…2132 at0012 = ╱38╱8╱ // 0x212f @0x12
0x211d…2132 at0013 = ╱ef╱$╱ // 0x2130 @0x13
0x211d…2132 at0014 = EOL // 0x2131 @0x14
0x211d…2132 }
0x2132…2149 aea0 4160 EXEC FE(W,12,B5$)
0x2132…2149 LineComalBin {
0x2132…2149 ptr = 0xaea0 // 0x2132 @0x0
0x2132…2149 lno = 0x1040 // 0x2134 @0x2
0x2132…2149 at0004 = ╱9d╱ EXEC ╱ // 0x2136 @0x4
0x2132…2149 at0005 = ╱46╱F╱ // 0x2137 @0x5
0x2132…2149 at0006 = ╱45╱E╱ // 0x2138 @0x6
0x2132…2149 at0007 = ╱ed╱(╱ // 0x2139 @0x7
0x2132…2149 at0008 = ╱57╱W╱ // 0x213a @0x8
0x2132…2149 at0009 = ╱ec╱,╱ // 0x213b @0x9
0x2132…2149 at000a = ╱31╱1╱ // 0x213c @0xa
0x2132…2149 at000b = ╱32╱2╱ // 0x213d @0xb
0x2132…2149 at000c = ╱fe0000c004╱ // 0x213e @0xc
0x2132…2149 at0011 = ╱ec╱,╱ // 0x2143 @0x11
0x2132…2149 at0012 = ╱42╱B╱ // 0x2144 @0x12
0x2132…2149 at0013 = ╱35╱5╱ // 0x2145 @0x13
0x2132…2149 at0014 = ╱ef╱$╱ // 0x2146 @0x14
0x2132…2149 at0015 = ╱ee╱)╱ // 0x2147 @0x15
0x2132…2149 at0016 = EOL // 0x2148 @0x16
0x2132…2149 }
0x2149…215e aeb5 4170 GET B5$,17:A9$
0x2149…215e LineComalBin {
0x2149…215e ptr = 0xaeb5 // 0x2149 @0x0
0x2149…215e lno = 0x104a // 0x214b @0x2
0x2149…215e at0004 = ╱a9╱ GET ╱ // 0x214d @0x4
0x2149…215e at0005 = ╱42╱B╱ // 0x214e @0x5
0x2149…215e at0006 = ╱35╱5╱ // 0x214f @0x6
0x2149…215e at0007 = ╱ef╱$╱ // 0x2150 @0x7
0x2149…215e at0008 = ╱ec╱,╱ // 0x2151 @0x8
0x2149…215e at0009 = ╱31╱1╱ // 0x2152 @0x9
0x2149…215e at000a = ╱37╱7╱ // 0x2153 @0xa
0x2149…215e at000b = ╱fe00008805╱ // 0x2154 @0xb
0x2149…215e at0010 = ╱f0╱:╱ // 0x2159 @0x10
0x2149…215e at0011 = ╱41╱A╱ // 0x215a @0x11
0x2149…215e at0012 = ╱39╱9╱ // 0x215b @0x12
0x2149…215e at0013 = ╱ef╱$╱ // 0x215c @0x13
0x2149…215e at0014 = EOL // 0x215d @0x14
0x2149…215e }
0x215e…2175 aecc 4180 EXEC FE(W,13,B5$)
0x215e…2175 LineComalBin {
0x215e…2175 ptr = 0xaecc // 0x215e @0x0
0x215e…2175 lno = 0x1054 // 0x2160 @0x2
0x215e…2175 at0004 = ╱9d╱ EXEC ╱ // 0x2162 @0x4
0x215e…2175 at0005 = ╱46╱F╱ // 0x2163 @0x5
0x215e…2175 at0006 = ╱45╱E╱ // 0x2164 @0x6
0x215e…2175 at0007 = ╱ed╱(╱ // 0x2165 @0x7
0x215e…2175 at0008 = ╱57╱W╱ // 0x2166 @0x8
0x215e…2175 at0009 = ╱ec╱,╱ // 0x2167 @0x9
0x215e…2175 at000a = ╱31╱1╱ // 0x2168 @0xa
0x215e…2175 at000b = ╱33╱3╱ // 0x2169 @0xb
0x215e…2175 at000c = ╱fe0000d004╱ // 0x216a @0xc
0x215e…2175 at0011 = ╱ec╱,╱ // 0x216f @0x11
0x215e…2175 at0012 = ╱42╱B╱ // 0x2170 @0x12
0x215e…2175 at0013 = ╱35╱5╱ // 0x2171 @0x13
0x215e…2175 at0014 = ╱ef╱$╱ // 0x2172 @0x14
0x215e…2175 at0015 = ╱ee╱)╱ // 0x2173 @0x15
0x215e…2175 at0016 = EOL // 0x2174 @0x16
0x215e…2175 }
0x2175…218a aee1 4190 GET B5$,20:B0$
0x2175…218a LineComalBin {
0x2175…218a ptr = 0xaee1 // 0x2175 @0x0
0x2175…218a lno = 0x105e // 0x2177 @0x2
0x2175…218a at0004 = ╱a9╱ GET ╱ // 0x2179 @0x4
0x2175…218a at0005 = ╱42╱B╱ // 0x217a @0x5
0x2175…218a at0006 = ╱35╱5╱ // 0x217b @0x6
0x2175…218a at0007 = ╱ef╱$╱ // 0x217c @0x7
0x2175…218a at0008 = ╱ec╱,╱ // 0x217d @0x8
0x2175…218a at0009 = ╱32╱2╱ // 0x217e @0x9
0x2175…218a at000a = ╱30╱0╱ // 0x217f @0xa
0x2175…218a at000b = ╱fe0000a005╱ // 0x2180 @0xb
0x2175…218a at0010 = ╱f0╱:╱ // 0x2185 @0x10
0x2175…218a at0011 = ╱42╱B╱ // 0x2186 @0x11
0x2175…218a at0012 = ╱30╱0╱ // 0x2187 @0x12
0x2175…218a at0013 = ╱ef╱$╱ // 0x2188 @0x13
0x2175…218a at0014 = EOL // 0x2189 @0x14
0x2175…218a }
0x218a…21a1 aef8 4200 EXEC FE(W,14,B5$)
0x218a…21a1 LineComalBin {
0x218a…21a1 ptr = 0xaef8 // 0x218a @0x0
0x218a…21a1 lno = 0x1068 // 0x218c @0x2
0x218a…21a1 at0004 = ╱9d╱ EXEC ╱ // 0x218e @0x4
0x218a…21a1 at0005 = ╱46╱F╱ // 0x218f @0x5
0x218a…21a1 at0006 = ╱45╱E╱ // 0x2190 @0x6
0x218a…21a1 at0007 = ╱ed╱(╱ // 0x2191 @0x7
0x218a…21a1 at0008 = ╱57╱W╱ // 0x2192 @0x8
0x218a…21a1 at0009 = ╱ec╱,╱ // 0x2193 @0x9
0x218a…21a1 at000a = ╱31╱1╱ // 0x2194 @0xa
0x218a…21a1 at000b = ╱34╱4╱ // 0x2195 @0xb
0x218a…21a1 at000c = ╱fe0000e004╱ // 0x2196 @0xc
0x218a…21a1 at0011 = ╱ec╱,╱ // 0x219b @0x11
0x218a…21a1 at0012 = ╱42╱B╱ // 0x219c @0x12
0x218a…21a1 at0013 = ╱35╱5╱ // 0x219d @0x13
0x218a…21a1 at0014 = ╱ef╱$╱ // 0x219e @0x14
0x218a…21a1 at0015 = ╱ee╱)╱ // 0x219f @0x15
0x218a…21a1 at0016 = EOL // 0x21a0 @0x16
0x218a…21a1 }
0x21a1…21b6 af0d 4210 GET B5$,21:B1$
0x21a1…21b6 LineComalBin {
0x21a1…21b6 ptr = 0xaf0d // 0x21a1 @0x0
0x21a1…21b6 lno = 0x1072 // 0x21a3 @0x2
0x21a1…21b6 at0004 = ╱a9╱ GET ╱ // 0x21a5 @0x4
0x21a1…21b6 at0005 = ╱42╱B╱ // 0x21a6 @0x5
0x21a1…21b6 at0006 = ╱35╱5╱ // 0x21a7 @0x6
0x21a1…21b6 at0007 = ╱ef╱$╱ // 0x21a8 @0x7
0x21a1…21b6 at0008 = ╱ec╱,╱ // 0x21a9 @0x8
0x21a1…21b6 at0009 = ╱32╱2╱ // 0x21aa @0x9
0x21a1…21b6 at000a = ╱31╱1╱ // 0x21ab @0xa
0x21a1…21b6 at000b = ╱fe0000a805╱ // 0x21ac @0xb
0x21a1…21b6 at0010 = ╱f0╱:╱ // 0x21b1 @0x10
0x21a1…21b6 at0011 = ╱42╱B╱ // 0x21b2 @0x11
0x21a1…21b6 at0012 = ╱31╱1╱ // 0x21b3 @0x12
0x21a1…21b6 at0013 = ╱ef╱$╱ // 0x21b4 @0x13
0x21a1…21b6 at0014 = EOL // 0x21b5 @0x14
0x21a1…21b6 }
0x21b6…21cd af24 4220 EXEC FE(W,15,B5$)
0x21b6…21cd LineComalBin {
0x21b6…21cd ptr = 0xaf24 // 0x21b6 @0x0
0x21b6…21cd lno = 0x107c // 0x21b8 @0x2
0x21b6…21cd at0004 = ╱9d╱ EXEC ╱ // 0x21ba @0x4
0x21b6…21cd at0005 = ╱46╱F╱ // 0x21bb @0x5
0x21b6…21cd at0006 = ╱45╱E╱ // 0x21bc @0x6
0x21b6…21cd at0007 = ╱ed╱(╱ // 0x21bd @0x7
0x21b6…21cd at0008 = ╱57╱W╱ // 0x21be @0x8
0x21b6…21cd at0009 = ╱ec╱,╱ // 0x21bf @0x9
0x21b6…21cd at000a = ╱31╱1╱ // 0x21c0 @0xa
0x21b6…21cd at000b = ╱35╱5╱ // 0x21c1 @0xb
0x21b6…21cd at000c = ╱fe0000f004╱ // 0x21c2 @0xc
0x21b6…21cd at0011 = ╱ec╱,╱ // 0x21c7 @0x11
0x21b6…21cd at0012 = ╱42╱B╱ // 0x21c8 @0x12
0x21b6…21cd at0013 = ╱35╱5╱ // 0x21c9 @0x13
0x21b6…21cd at0014 = ╱ef╱$╱ // 0x21ca @0x14
0x21b6…21cd at0015 = ╱ee╱)╱ // 0x21cb @0x15
0x21b6…21cd at0016 = EOL // 0x21cc @0x16
0x21b6…21cd }
0x21cd…21e2 af39 4230 GET B5$,36:B2$
0x21cd…21e2 LineComalBin {
0x21cd…21e2 ptr = 0xaf39 // 0x21cd @0x0
0x21cd…21e2 lno = 0x1086 // 0x21cf @0x2
0x21cd…21e2 at0004 = ╱a9╱ GET ╱ // 0x21d1 @0x4
0x21cd…21e2 at0005 = ╱42╱B╱ // 0x21d2 @0x5
0x21cd…21e2 at0006 = ╱35╱5╱ // 0x21d3 @0x6
0x21cd…21e2 at0007 = ╱ef╱$╱ // 0x21d4 @0x7
0x21cd…21e2 at0008 = ╱ec╱,╱ // 0x21d5 @0x8
0x21cd…21e2 at0009 = ╱33╱3╱ // 0x21d6 @0x9
0x21cd…21e2 at000a = ╱36╱6╱ // 0x21d7 @0xa
0x21cd…21e2 at000b = ╱fe00009006╱ // 0x21d8 @0xb
0x21cd…21e2 at0010 = ╱f0╱:╱ // 0x21dd @0x10
0x21cd…21e2 at0011 = ╱42╱B╱ // 0x21de @0x11
0x21cd…21e2 at0012 = ╱32╱2╱ // 0x21df @0x12
0x21cd…21e2 at0013 = ╱ef╱$╱ // 0x21e0 @0x13
0x21cd…21e2 at0014 = EOL // 0x21e1 @0x14
0x21cd…21e2 }
0x21e2…21f9 af50 4240 EXEC FE(W,16,B5$)
0x21e2…21f9 LineComalBin {
0x21e2…21f9 ptr = 0xaf50 // 0x21e2 @0x0
0x21e2…21f9 lno = 0x1090 // 0x21e4 @0x2
0x21e2…21f9 at0004 = ╱9d╱ EXEC ╱ // 0x21e6 @0x4
0x21e2…21f9 at0005 = ╱46╱F╱ // 0x21e7 @0x5
0x21e2…21f9 at0006 = ╱45╱E╱ // 0x21e8 @0x6
0x21e2…21f9 at0007 = ╱ed╱(╱ // 0x21e9 @0x7
0x21e2…21f9 at0008 = ╱57╱W╱ // 0x21ea @0x8
0x21e2…21f9 at0009 = ╱ec╱,╱ // 0x21eb @0x9
0x21e2…21f9 at000a = ╱31╱1╱ // 0x21ec @0xa
0x21e2…21f9 at000b = ╱36╱6╱ // 0x21ed @0xb
0x21e2…21f9 at000c = ╱fe00008005╱ // 0x21ee @0xc
0x21e2…21f9 at0011 = ╱ec╱,╱ // 0x21f3 @0x11
0x21e2…21f9 at0012 = ╱42╱B╱ // 0x21f4 @0x12
0x21e2…21f9 at0013 = ╱35╱5╱ // 0x21f5 @0x13
0x21e2…21f9 at0014 = ╱ef╱$╱ // 0x21f6 @0x14
0x21e2…21f9 at0015 = ╱ee╱)╱ // 0x21f7 @0x15
0x21e2…21f9 at0016 = EOL // 0x21f8 @0x16
0x21e2…21f9 }
0x21f9…220e af65 4250 GET B5$,37:B4$
0x21f9…220e LineComalBin {
0x21f9…220e ptr = 0xaf65 // 0x21f9 @0x0
0x21f9…220e lno = 0x109a // 0x21fb @0x2
0x21f9…220e at0004 = ╱a9╱ GET ╱ // 0x21fd @0x4
0x21f9…220e at0005 = ╱42╱B╱ // 0x21fe @0x5
0x21f9…220e at0006 = ╱35╱5╱ // 0x21ff @0x6
0x21f9…220e at0007 = ╱ef╱$╱ // 0x2200 @0x7
0x21f9…220e at0008 = ╱ec╱,╱ // 0x2201 @0x8
0x21f9…220e at0009 = ╱33╱3╱ // 0x2202 @0x9
0x21f9…220e at000a = ╱37╱7╱ // 0x2203 @0xa
0x21f9…220e at000b = ╱fe00009406╱ // 0x2204 @0xb
0x21f9…220e at0010 = ╱f0╱:╱ // 0x2209 @0x10
0x21f9…220e at0011 = ╱42╱B╱ // 0x220a @0x11
0x21f9…220e at0012 = ╱34╱4╱ // 0x220b @0x12
0x21f9…220e at0013 = ╱ef╱$╱ // 0x220c @0x13
0x21f9…220e at0014 = EOL // 0x220d @0x14
0x21f9…220e }
0x220e…2225 af7c 4260 EXEC FE(99,E,B5$)
0x220e…2225 LineComalBin {
0x220e…2225 ptr = 0xaf7c // 0x220e @0x0
0x220e…2225 lno = 0x10a4 // 0x2210 @0x2
0x220e…2225 at0004 = ╱9d╱ EXEC ╱ // 0x2212 @0x4
0x220e…2225 at0005 = ╱46╱F╱ // 0x2213 @0x5
0x220e…2225 at0006 = ╱45╱E╱ // 0x2214 @0x6
0x220e…2225 at0007 = ╱ed╱(╱ // 0x2215 @0x7
0x220e…2225 at0008 = ╱39╱9╱ // 0x2216 @0x8
0x220e…2225 at0009 = ╱39╱9╱ // 0x2217 @0x9
0x220e…2225 at000a = ╱fe0000c607╱ // 0x2218 @0xa
0x220e…2225 at000f = ╱ec╱,╱ // 0x221d @0xf
0x220e…2225 at0010 = ╱45╱E╱ // 0x221e @0x10
0x220e…2225 at0011 = ╱ec╱,╱ // 0x221f @0x11
0x220e…2225 at0012 = ╱42╱B╱ // 0x2220 @0x12
0x220e…2225 at0013 = ╱35╱5╱ // 0x2221 @0x13
0x220e…2225 at0014 = ╱ef╱$╱ // 0x2222 @0x14
0x220e…2225 at0015 = ╱ee╱)╱ // 0x2223 @0x15
0x220e…2225 at0016 = EOL // 0x2224 @0x16
0x220e…2225 }
0x2225…223a af91 4270 GET B5$,38:E6$
0x2225…223a LineComalBin {
0x2225…223a ptr = 0xaf91 // 0x2225 @0x0
0x2225…223a lno = 0x10ae // 0x2227 @0x2
0x2225…223a at0004 = ╱a9╱ GET ╱ // 0x2229 @0x4
0x2225…223a at0005 = ╱42╱B╱ // 0x222a @0x5
0x2225…223a at0006 = ╱35╱5╱ // 0x222b @0x6
0x2225…223a at0007 = ╱ef╱$╱ // 0x222c @0x7
0x2225…223a at0008 = ╱ec╱,╱ // 0x222d @0x8
0x2225…223a at0009 = ╱33╱3╱ // 0x222e @0x9
0x2225…223a at000a = ╱38╱8╱ // 0x222f @0xa
0x2225…223a at000b = ╱fe00009806╱ // 0x2230 @0xb
0x2225…223a at0010 = ╱f0╱:╱ // 0x2235 @0x10
0x2225…223a at0011 = ╱45╱E╱ // 0x2236 @0x11
0x2225…223a at0012 = ╱36╱6╱ // 0x2237 @0x12
0x2225…223a at0013 = ╱ef╱$╱ // 0x2238 @0x13
0x2225…223a at0014 = EOL // 0x2239 @0x14
0x2225…223a }
0x223a…2251 afa8 4280 EXEC FE(99,G,B5$)
0x223a…2251 LineComalBin {
0x223a…2251 ptr = 0xafa8 // 0x223a @0x0
0x223a…2251 lno = 0x10b8 // 0x223c @0x2
0x223a…2251 at0004 = ╱9d╱ EXEC ╱ // 0x223e @0x4
0x223a…2251 at0005 = ╱46╱F╱ // 0x223f @0x5
0x223a…2251 at0006 = ╱45╱E╱ // 0x2240 @0x6
0x223a…2251 at0007 = ╱ed╱(╱ // 0x2241 @0x7
0x223a…2251 at0008 = ╱39╱9╱ // 0x2242 @0x8
0x223a…2251 at0009 = ╱39╱9╱ // 0x2243 @0x9
0x223a…2251 at000a = ╱fe0000c607╱ // 0x2244 @0xa
0x223a…2251 at000f = ╱ec╱,╱ // 0x2249 @0xf
0x223a…2251 at0010 = ╱47╱G╱ // 0x224a @0x10
0x223a…2251 at0011 = ╱ec╱,╱ // 0x224b @0x11
0x223a…2251 at0012 = ╱42╱B╱ // 0x224c @0x12
0x223a…2251 at0013 = ╱35╱5╱ // 0x224d @0x13
0x223a…2251 at0014 = ╱ef╱$╱ // 0x224e @0x14
0x223a…2251 at0015 = ╱ee╱)╱ // 0x224f @0x15
0x223a…2251 at0016 = EOL // 0x2250 @0x16
0x223a…2251 }
0x2251…2266 afbd 4290 GET B5$,39:E7$
0x2251…2266 LineComalBin {
0x2251…2266 ptr = 0xafbd // 0x2251 @0x0
0x2251…2266 lno = 0x10c2 // 0x2253 @0x2
0x2251…2266 at0004 = ╱a9╱ GET ╱ // 0x2255 @0x4
0x2251…2266 at0005 = ╱42╱B╱ // 0x2256 @0x5
0x2251…2266 at0006 = ╱35╱5╱ // 0x2257 @0x6
0x2251…2266 at0007 = ╱ef╱$╱ // 0x2258 @0x7
0x2251…2266 at0008 = ╱ec╱,╱ // 0x2259 @0x8
0x2251…2266 at0009 = ╱33╱3╱ // 0x225a @0x9
0x2251…2266 at000a = ╱39╱9╱ // 0x225b @0xa
0x2251…2266 at000b = ╱fe00009c06╱ // 0x225c @0xb
0x2251…2266 at0010 = ╱f0╱:╱ // 0x2261 @0x10
0x2251…2266 at0011 = ╱45╱E╱ // 0x2262 @0x11
0x2251…2266 at0012 = ╱37╱7╱ // 0x2263 @0x12
0x2251…2266 at0013 = ╱ef╱$╱ // 0x2264 @0x13
0x2251…2266 at0014 = EOL // 0x2265 @0x14
0x2251…2266 }
0x2266…227d afd4 4300 EXEC FE(99,V,B5$)
0x2266…227d LineComalBin {
0x2266…227d ptr = 0xafd4 // 0x2266 @0x0
0x2266…227d lno = 0x10cc // 0x2268 @0x2
0x2266…227d at0004 = ╱9d╱ EXEC ╱ // 0x226a @0x4
0x2266…227d at0005 = ╱46╱F╱ // 0x226b @0x5
0x2266…227d at0006 = ╱45╱E╱ // 0x226c @0x6
0x2266…227d at0007 = ╱ed╱(╱ // 0x226d @0x7
0x2266…227d at0008 = ╱39╱9╱ // 0x226e @0x8
0x2266…227d at0009 = ╱39╱9╱ // 0x226f @0x9
0x2266…227d at000a = ╱fe0000c607╱ // 0x2270 @0xa
0x2266…227d at000f = ╱ec╱,╱ // 0x2275 @0xf
0x2266…227d at0010 = ╱56╱V╱ // 0x2276 @0x10
0x2266…227d at0011 = ╱ec╱,╱ // 0x2277 @0x11
0x2266…227d at0012 = ╱42╱B╱ // 0x2278 @0x12
0x2266…227d at0013 = ╱35╱5╱ // 0x2279 @0x13
0x2266…227d at0014 = ╱ef╱$╱ // 0x227a @0x14
0x2266…227d at0015 = ╱ee╱)╱ // 0x227b @0x15
0x2266…227d at0016 = EOL // 0x227c @0x16
0x2266…227d }
0x227d…2291 afe8 4310 GET B5$,43:L2
0x227d…2291 LineComalBin {
0x227d…2291 ptr = 0xafe8 // 0x227d @0x0
0x227d…2291 lno = 0x10d6 // 0x227f @0x2
0x227d…2291 at0004 = ╱a9╱ GET ╱ // 0x2281 @0x4
0x227d…2291 at0005 = ╱42╱B╱ // 0x2282 @0x5
0x227d…2291 at0006 = ╱35╱5╱ // 0x2283 @0x6
0x227d…2291 at0007 = ╱ef╱$╱ // 0x2284 @0x7
0x227d…2291 at0008 = ╱ec╱,╱ // 0x2285 @0x8
0x227d…2291 at0009 = ╱34╱4╱ // 0x2286 @0x9
0x227d…2291 at000a = ╱33╱3╱ // 0x2287 @0xa
0x227d…2291 at000b = ╱fe0000ac06╱ // 0x2288 @0xb
0x227d…2291 at0010 = ╱f0╱:╱ // 0x228d @0x10
0x227d…2291 at0011 = ╱4c╱L╱ // 0x228e @0x11
0x227d…2291 at0012 = ╱32╱2╱ // 0x228f @0x12
0x227d…2291 at0013 = EOL // 0x2290 @0x13
0x227d…2291 }
0x2291…22ad b004 4320 EXEC FE(99,4,B5$)
0x2291…22ad LineComalBin {
0x2291…22ad ptr = 0xb004 // 0x2291 @0x0
0x2291…22ad lno = 0x10e0 // 0x2293 @0x2
0x2291…22ad at0004 = ╱9d╱ EXEC ╱ // 0x2295 @0x4
0x2291…22ad at0005 = ╱46╱F╱ // 0x2296 @0x5
0x2291…22ad at0006 = ╱45╱E╱ // 0x2297 @0x6
0x2291…22ad at0007 = ╱ed╱(╱ // 0x2298 @0x7
0x2291…22ad at0008 = ╱39╱9╱ // 0x2299 @0x8
0x2291…22ad at0009 = ╱39╱9╱ // 0x229a @0x9
0x2291…22ad at000a = ╱fe0000c607╱ // 0x229b @0xa
0x2291…22ad at000f = ╱ec╱,╱ // 0x22a0 @0xf
0x2291…22ad at0010 = ╱34╱4╱ // 0x22a1 @0x10
0x2291…22ad at0011 = ╱fe00008003╱ // 0x22a2 @0x11
0x2291…22ad at0016 = ╱ec╱,╱ // 0x22a7 @0x16
0x2291…22ad at0017 = ╱42╱B╱ // 0x22a8 @0x17
0x2291…22ad at0018 = ╱35╱5╱ // 0x22a9 @0x18
0x2291…22ad at0019 = ╱ef╱$╱ // 0x22aa @0x19
0x2291…22ad at001a = ╱ee╱)╱ // 0x22ab @0x1a
0x2291…22ad at001b = EOL // 0x22ac @0x1b
0x2291…22ad }
0x22ad…22b6 b00d 4330 CLOSE B5$
0x22ad…22b6 LineComalBin {
0x22ad…22b6 ptr = 0xb00d // 0x22ad @0x0
0x22ad…22b6 lno = 0x10ea // 0x22af @0x2
0x22ad…22b6 at0004 = ╱a8╱ CLOSE ╱ // 0x22b1 @0x4
0x22ad…22b6 at0005 = ╱42╱B╱ // 0x22b2 @0x5
0x22ad…22b6 at0006 = ╱35╱5╱ // 0x22b3 @0x6
0x22ad…22b6 at0007 = ╱ef╱$╱ // 0x22b4 @0x7
0x22ad…22b6 at0008 = EOL // 0x22b5 @0x8
0x22ad…22b6 }
0x22b6…22cd b024 4340 EXEC FE(W,17,B5$)
0x22b6…22cd LineComalBin {
0x22b6…22cd ptr = 0xb024 // 0x22b6 @0x0
0x22b6…22cd lno = 0x10f4 // 0x22b8 @0x2
0x22b6…22cd at0004 = ╱9d╱ EXEC ╱ // 0x22ba @0x4
0x22b6…22cd at0005 = ╱46╱F╱ // 0x22bb @0x5
0x22b6…22cd at0006 = ╱45╱E╱ // 0x22bc @0x6
0x22b6…22cd at0007 = ╱ed╱(╱ // 0x22bd @0x7
0x22b6…22cd at0008 = ╱57╱W╱ // 0x22be @0x8
0x22b6…22cd at0009 = ╱ec╱,╱ // 0x22bf @0x9
0x22b6…22cd at000a = ╱31╱1╱ // 0x22c0 @0xa
0x22b6…22cd at000b = ╱37╱7╱ // 0x22c1 @0xb
0x22b6…22cd at000c = ╱fe00008805╱ // 0x22c2 @0xc
0x22b6…22cd at0011 = ╱ec╱,╱ // 0x22c7 @0x11
0x22b6…22cd at0012 = ╱42╱B╱ // 0x22c8 @0x12
0x22b6…22cd at0013 = ╱35╱5╱ // 0x22c9 @0x13
0x22b6…22cd at0014 = ╱ef╱$╱ // 0x22ca @0x14
0x22b6…22cd at0015 = ╱ee╱)╱ // 0x22cb @0x15
0x22b6…22cd at0016 = EOL // 0x22cc @0x16
0x22b6…22cd }
0x22cd…22fc b053 4350 DIM F6(F8 DIV 8),G2(G3 DIV 8),G6(G7 DIV 8)
0x22cd…22fc LineComalBin {
0x22cd…22fc ptr = 0xb053 // 0x22cd @0x0
0x22cd…22fc lno = 0x10fe // 0x22cf @0x2
0x22cd…22fc at0004 = ╱87╱ DIM ╱ // 0x22d1 @0x4
0x22cd…22fc at0005 = ╱46╱F╱ // 0x22d2 @0x5
0x22cd…22fc at0006 = ╱36╱6╱ // 0x22d3 @0x6
0x22cd…22fc at0007 = ╱ed╱(╱ // 0x22d4 @0x7
0x22cd…22fc at0008 = ╱46╱F╱ // 0x22d5 @0x8
0x22cd…22fc at0009 = ╱38╱8╱ // 0x22d6 @0x9
0x22cd…22fc at000a = ╱e7╱ DIV ╱ // 0x22d7 @0xa
0x22cd…22fc at000b = ╱38╱8╱ // 0x22d8 @0xb
0x22cd…22fc at000c = ╱fe00008004╱ // 0x22d9 @0xc
0x22cd…22fc at0011 = ╱ee╱)╱ // 0x22de @0x11
0x22cd…22fc at0012 = ╱ec╱,╱ // 0x22df @0x12
0x22cd…22fc at0013 = ╱47╱G╱ // 0x22e0 @0x13
0x22cd…22fc at0014 = ╱32╱2╱ // 0x22e1 @0x14
0x22cd…22fc at0015 = ╱ed╱(╱ // 0x22e2 @0x15
0x22cd…22fc at0016 = ╱47╱G╱ // 0x22e3 @0x16
0x22cd…22fc at0017 = ╱33╱3╱ // 0x22e4 @0x17
0x22cd…22fc at0018 = ╱e7╱ DIV ╱ // 0x22e5 @0x18
0x22cd…22fc at0019 = ╱38╱8╱ // 0x22e6 @0x19
0x22cd…22fc at001a = ╱fe00008004╱ // 0x22e7 @0x1a
0x22cd…22fc at001f = ╱ee╱)╱ // 0x22ec @0x1f
0x22cd…22fc at0020 = ╱ec╱,╱ // 0x22ed @0x20
0x22cd…22fc at0021 = ╱47╱G╱ // 0x22ee @0x21
0x22cd…22fc at0022 = ╱36╱6╱ // 0x22ef @0x22
0x22cd…22fc at0023 = ╱ed╱(╱ // 0x22f0 @0x23
0x22cd…22fc at0024 = ╱47╱G╱ // 0x22f1 @0x24
0x22cd…22fc at0025 = ╱37╱7╱ // 0x22f2 @0x25
0x22cd…22fc at0026 = ╱e7╱ DIV ╱ // 0x22f3 @0x26
0x22cd…22fc at0027 = ╱38╱8╱ // 0x22f4 @0x27
0x22cd…22fc at0028 = ╱fe00008004╱ // 0x22f5 @0x28
0x22cd…22fc at002d = ╱ee╱)╱ // 0x22fa @0x2d
0x22cd…22fc at002e = EOL // 0x22fb @0x2e
0x22cd…22fc }
0x22fc…231c b073 4360 DIM F7(8,G),K9(L0 DIV 8)
0x22fc…231c LineComalBin {
0x22fc…231c ptr = 0xb073 // 0x22fc @0x0
0x22fc…231c lno = 0x1108 // 0x22fe @0x2
0x22fc…231c at0004 = ╱87╱ DIM ╱ // 0x2300 @0x4
0x22fc…231c at0005 = ╱46╱F╱ // 0x2301 @0x5
0x22fc…231c at0006 = ╱37╱7╱ // 0x2302 @0x6
0x22fc…231c at0007 = ╱ed╱(╱ // 0x2303 @0x7
0x22fc…231c at0008 = ╱38╱8╱ // 0x2304 @0x8
0x22fc…231c at0009 = ╱fe00008004╱ // 0x2305 @0x9
0x22fc…231c at000e = ╱ec╱,╱ // 0x230a @0xe
0x22fc…231c at000f = ╱47╱G╱ // 0x230b @0xf
0x22fc…231c at0010 = ╱ee╱)╱ // 0x230c @0x10
0x22fc…231c at0011 = ╱ec╱,╱ // 0x230d @0x11
0x22fc…231c at0012 = ╱4b╱K╱ // 0x230e @0x12
0x22fc…231c at0013 = ╱39╱9╱ // 0x230f @0x13
0x22fc…231c at0014 = ╱ed╱(╱ // 0x2310 @0x14
0x22fc…231c at0015 = ╱4c╱L╱ // 0x2311 @0x15
0x22fc…231c at0016 = ╱30╱0╱ // 0x2312 @0x16
0x22fc…231c at0017 = ╱e7╱ DIV ╱ // 0x2313 @0x17
0x22fc…231c at0018 = ╱38╱8╱ // 0x2314 @0x18
0x22fc…231c at0019 = ╱fe00008004╱ // 0x2315 @0x19
0x22fc…231c at001e = ╱ee╱)╱ // 0x231a @0x1e
0x22fc…231c at001f = EOL // 0x231b @0x1f
0x22fc…231c }
0x231c…2336 b08d 4370 DIM L4(L3+L2),L5$(L3+L2)
0x231c…2336 LineComalBin {
0x231c…2336 ptr = 0xb08d // 0x231c @0x0
0x231c…2336 lno = 0x1112 // 0x231e @0x2
0x231c…2336 at0004 = ╱87╱ DIM ╱ // 0x2320 @0x4
0x231c…2336 at0005 = ╱4c╱L╱ // 0x2321 @0x5
0x231c…2336 at0006 = ╱34╱4╱ // 0x2322 @0x6
0x231c…2336 at0007 = ╱ed╱(╱ // 0x2323 @0x7
0x231c…2336 at0008 = ╱4c╱L╱ // 0x2324 @0x8
0x231c…2336 at0009 = ╱33╱3╱ // 0x2325 @0x9
0x231c…2336 at000a = ╱e2╱+╱ // 0x2326 @0xa
0x231c…2336 at000b = ╱4c╱L╱ // 0x2327 @0xb
0x231c…2336 at000c = ╱32╱2╱ // 0x2328 @0xc
0x231c…2336 at000d = ╱ee╱)╱ // 0x2329 @0xd
0x231c…2336 at000e = ╱ec╱,╱ // 0x232a @0xe
0x231c…2336 at000f = ╱4c╱L╱ // 0x232b @0xf
0x231c…2336 at0010 = ╱35╱5╱ // 0x232c @0x10
0x231c…2336 at0011 = ╱ef╱$╱ // 0x232d @0x11
0x231c…2336 at0012 = ╱ed╱(╱ // 0x232e @0x12
0x231c…2336 at0013 = ╱4c╱L╱ // 0x232f @0x13
0x231c…2336 at0014 = ╱33╱3╱ // 0x2330 @0x14
0x231c…2336 at0015 = ╱e2╱+╱ // 0x2331 @0x15
0x231c…2336 at0016 = ╱4c╱L╱ // 0x2332 @0x16
0x231c…2336 at0017 = ╱32╱2╱ // 0x2333 @0x17
0x231c…2336 at0018 = ╱ee╱)╱ // 0x2334 @0x18
0x231c…2336 at0019 = EOL // 0x2335 @0x19
0x231c…2336 }
0x2336…237c b0d3 4380 D9$=N$+D9$;E5$=N$+E5$;C2$=N$+C2$;D2$=N$+D2$;A8$=N$+A8$;A9$=N$+A9$
0x2336…237c LineComalBin {
0x2336…237c ptr = 0xb0d3 // 0x2336 @0x0
0x2336…237c lno = 0x111c // 0x2338 @0x2
0x2336…237c at0004 = ╱44╱D╱ // 0x233a @0x4
0x2336…237c at0005 = ╱39╱9╱ // 0x233b @0x5
0x2336…237c at0006 = ╱ef╱$╱ // 0x233c @0x6
0x2336…237c at0007 = ╱dc╱=╱ // 0x233d @0x7
0x2336…237c at0008 = ╱4e╱N╱ // 0x233e @0x8
0x2336…237c at0009 = ╱ef╱$╱ // 0x233f @0x9
0x2336…237c at000a = ╱f1╱+╱ // 0x2340 @0xa
0x2336…237c at000b = ╱44╱D╱ // 0x2341 @0xb
0x2336…237c at000c = ╱39╱9╱ // 0x2342 @0xc
0x2336…237c at000d = ╱ef╱$╱ // 0x2343 @0xd
0x2336…237c at000e = ╱eb╱;╱ // 0x2344 @0xe
0x2336…237c at000f = ╱45╱E╱ // 0x2345 @0xf
0x2336…237c at0010 = ╱35╱5╱ // 0x2346 @0x10
0x2336…237c at0011 = ╱ef╱$╱ // 0x2347 @0x11
0x2336…237c at0012 = ╱dc╱=╱ // 0x2348 @0x12
0x2336…237c at0013 = ╱4e╱N╱ // 0x2349 @0x13
0x2336…237c at0014 = ╱ef╱$╱ // 0x234a @0x14
0x2336…237c at0015 = ╱f1╱+╱ // 0x234b @0x15
0x2336…237c at0016 = ╱45╱E╱ // 0x234c @0x16
0x2336…237c at0017 = ╱35╱5╱ // 0x234d @0x17
0x2336…237c at0018 = ╱ef╱$╱ // 0x234e @0x18
0x2336…237c at0019 = ╱eb╱;╱ // 0x234f @0x19
0x2336…237c at001a = ╱43╱C╱ // 0x2350 @0x1a
0x2336…237c at001b = ╱32╱2╱ // 0x2351 @0x1b
0x2336…237c at001c = ╱ef╱$╱ // 0x2352 @0x1c
0x2336…237c at001d = ╱dc╱=╱ // 0x2353 @0x1d
0x2336…237c at001e = ╱4e╱N╱ // 0x2354 @0x1e
0x2336…237c at001f = ╱ef╱$╱ // 0x2355 @0x1f
0x2336…237c at0020 = ╱f1╱+╱ // 0x2356 @0x20
0x2336…237c at0021 = ╱43╱C╱ // 0x2357 @0x21
0x2336…237c at0022 = ╱32╱2╱ // 0x2358 @0x22
0x2336…237c at0023 = ╱ef╱$╱ // 0x2359 @0x23
0x2336…237c at0024 = ╱eb╱;╱ // 0x235a @0x24
0x2336…237c at0025 = ╱44╱D╱ // 0x235b @0x25
0x2336…237c at0026 = ╱32╱2╱ // 0x235c @0x26
0x2336…237c at0027 = ╱ef╱$╱ // 0x235d @0x27
0x2336…237c at0028 = ╱dc╱=╱ // 0x235e @0x28
0x2336…237c at0029 = ╱4e╱N╱ // 0x235f @0x29
0x2336…237c at002a = ╱ef╱$╱ // 0x2360 @0x2a
0x2336…237c at002b = ╱f1╱+╱ // 0x2361 @0x2b
0x2336…237c at002c = ╱44╱D╱ // 0x2362 @0x2c
0x2336…237c at002d = ╱32╱2╱ // 0x2363 @0x2d
0x2336…237c at002e = ╱ef╱$╱ // 0x2364 @0x2e
0x2336…237c at002f = ╱eb╱;╱ // 0x2365 @0x2f
0x2336…237c at0030 = ╱41╱A╱ // 0x2366 @0x30
0x2336…237c at0031 = ╱38╱8╱ // 0x2367 @0x31
0x2336…237c at0032 = ╱ef╱$╱ // 0x2368 @0x32
0x2336…237c at0033 = ╱dc╱=╱ // 0x2369 @0x33
0x2336…237c at0034 = ╱4e╱N╱ // 0x236a @0x34
0x2336…237c at0035 = ╱ef╱$╱ // 0x236b @0x35
0x2336…237c at0036 = ╱f1╱+╱ // 0x236c @0x36
0x2336…237c at0037 = ╱41╱A╱ // 0x236d @0x37
0x2336…237c at0038 = ╱38╱8╱ // 0x236e @0x38
0x2336…237c at0039 = ╱ef╱$╱ // 0x236f @0x39
0x2336…237c at003a = ╱eb╱;╱ // 0x2370 @0x3a
0x2336…237c at003b = ╱41╱A╱ // 0x2371 @0x3b
0x2336…237c at003c = ╱39╱9╱ // 0x2372 @0x3c
0x2336…237c at003d = ╱ef╱$╱ // 0x2373 @0x3d
0x2336…237c at003e = ╱dc╱=╱ // 0x2374 @0x3e
0x2336…237c at003f = ╱4e╱N╱ // 0x2375 @0x3f
0x2336…237c at0040 = ╱ef╱$╱ // 0x2376 @0x40
0x2336…237c at0041 = ╱f1╱+╱ // 0x2377 @0x41
0x2336…237c at0042 = ╱41╱A╱ // 0x2378 @0x42
0x2336…237c at0043 = ╱39╱9╱ // 0x2379 @0x43
0x2336…237c at0044 = ╱ef╱$╱ // 0x237a @0x44
0x2336…237c at0045 = EOL // 0x237b @0x45
0x2336…237c }
0x237c…23b7 b10e 4390 B0$=N$+B0$;B1$=N$+B1$;B2$=N$+B2$;B4$=N$+B4$;E6$=N$+E6$
0x237c…23b7 LineComalBin {
0x237c…23b7 ptr = 0xb10e // 0x237c @0x0
0x237c…23b7 lno = 0x1126 // 0x237e @0x2
0x237c…23b7 at0004 = ╱42╱B╱ // 0x2380 @0x4
0x237c…23b7 at0005 = ╱30╱0╱ // 0x2381 @0x5
0x237c…23b7 at0006 = ╱ef╱$╱ // 0x2382 @0x6
0x237c…23b7 at0007 = ╱dc╱=╱ // 0x2383 @0x7
0x237c…23b7 at0008 = ╱4e╱N╱ // 0x2384 @0x8
0x237c…23b7 at0009 = ╱ef╱$╱ // 0x2385 @0x9
0x237c…23b7 at000a = ╱f1╱+╱ // 0x2386 @0xa
0x237c…23b7 at000b = ╱42╱B╱ // 0x2387 @0xb
0x237c…23b7 at000c = ╱30╱0╱ // 0x2388 @0xc
0x237c…23b7 at000d = ╱ef╱$╱ // 0x2389 @0xd
0x237c…23b7 at000e = ╱eb╱;╱ // 0x238a @0xe
0x237c…23b7 at000f = ╱42╱B╱ // 0x238b @0xf
0x237c…23b7 at0010 = ╱31╱1╱ // 0x238c @0x10
0x237c…23b7 at0011 = ╱ef╱$╱ // 0x238d @0x11
0x237c…23b7 at0012 = ╱dc╱=╱ // 0x238e @0x12
0x237c…23b7 at0013 = ╱4e╱N╱ // 0x238f @0x13
0x237c…23b7 at0014 = ╱ef╱$╱ // 0x2390 @0x14
0x237c…23b7 at0015 = ╱f1╱+╱ // 0x2391 @0x15
0x237c…23b7 at0016 = ╱42╱B╱ // 0x2392 @0x16
0x237c…23b7 at0017 = ╱31╱1╱ // 0x2393 @0x17
0x237c…23b7 at0018 = ╱ef╱$╱ // 0x2394 @0x18
0x237c…23b7 at0019 = ╱eb╱;╱ // 0x2395 @0x19
0x237c…23b7 at001a = ╱42╱B╱ // 0x2396 @0x1a
0x237c…23b7 at001b = ╱32╱2╱ // 0x2397 @0x1b
0x237c…23b7 at001c = ╱ef╱$╱ // 0x2398 @0x1c
0x237c…23b7 at001d = ╱dc╱=╱ // 0x2399 @0x1d
0x237c…23b7 at001e = ╱4e╱N╱ // 0x239a @0x1e
0x237c…23b7 at001f = ╱ef╱$╱ // 0x239b @0x1f
0x237c…23b7 at0020 = ╱f1╱+╱ // 0x239c @0x20
0x237c…23b7 at0021 = ╱42╱B╱ // 0x239d @0x21
0x237c…23b7 at0022 = ╱32╱2╱ // 0x239e @0x22
0x237c…23b7 at0023 = ╱ef╱$╱ // 0x239f @0x23
0x237c…23b7 at0024 = ╱eb╱;╱ // 0x23a0 @0x24
0x237c…23b7 at0025 = ╱42╱B╱ // 0x23a1 @0x25
0x237c…23b7 at0026 = ╱34╱4╱ // 0x23a2 @0x26
0x237c…23b7 at0027 = ╱ef╱$╱ // 0x23a3 @0x27
0x237c…23b7 at0028 = ╱dc╱=╱ // 0x23a4 @0x28
0x237c…23b7 at0029 = ╱4e╱N╱ // 0x23a5 @0x29
0x237c…23b7 at002a = ╱ef╱$╱ // 0x23a6 @0x2a
0x237c…23b7 at002b = ╱f1╱+╱ // 0x23a7 @0x2b
0x237c…23b7 at002c = ╱42╱B╱ // 0x23a8 @0x2c
0x237c…23b7 at002d = ╱34╱4╱ // 0x23a9 @0x2d
0x237c…23b7 at002e = ╱ef╱$╱ // 0x23aa @0x2e
0x237c…23b7 at002f = ╱eb╱;╱ // 0x23ab @0x2f
0x237c…23b7 at0030 = ╱45╱E╱ // 0x23ac @0x30
0x237c…23b7 at0031 = ╱36╱6╱ // 0x23ad @0x31
0x237c…23b7 at0032 = ╱ef╱$╱ // 0x23ae @0x32
0x237c…23b7 at0033 = ╱dc╱=╱ // 0x23af @0x33
0x237c…23b7 at0034 = ╱4e╱N╱ // 0x23b0 @0x34
0x237c…23b7 at0035 = ╱ef╱$╱ // 0x23b1 @0x35
0x237c…23b7 at0036 = ╱f1╱+╱ // 0x23b2 @0x36
0x237c…23b7 at0037 = ╱45╱E╱ // 0x23b3 @0x37
0x237c…23b7 at0038 = ╱36╱6╱ // 0x23b4 @0x38
0x237c…23b7 at0039 = ╱ef╱$╱ // 0x23b5 @0x39
0x237c…23b7 at003a = EOL // 0x23b6 @0x3a
0x237c…23b7 }
0x23b7…23c6 b11d 4400 E7$=N$+E7$
0x23b7…23c6 LineComalBin {
0x23b7…23c6 ptr = 0xb11d // 0x23b7 @0x0
0x23b7…23c6 lno = 0x1130 // 0x23b9 @0x2
0x23b7…23c6 at0004 = ╱45╱E╱ // 0x23bb @0x4
0x23b7…23c6 at0005 = ╱37╱7╱ // 0x23bc @0x5
0x23b7…23c6 at0006 = ╱ef╱$╱ // 0x23bd @0x6
0x23b7…23c6 at0007 = ╱dc╱=╱ // 0x23be @0x7
0x23b7…23c6 at0008 = ╱4e╱N╱ // 0x23bf @0x8
0x23b7…23c6 at0009 = ╱ef╱$╱ // 0x23c0 @0x9
0x23b7…23c6 at000a = ╱f1╱+╱ // 0x23c1 @0xa
0x23b7…23c6 at000b = ╱45╱E╱ // 0x23c2 @0xb
0x23b7…23c6 at000c = ╱37╱7╱ // 0x23c3 @0xc
0x23b7…23c6 at000d = ╱ef╱$╱ // 0x23c4 @0xd
0x23b7…23c6 at000e = EOL // 0x23c5 @0xe
0x23b7…23c6 }
0x23c6…23d1 b128 4410 OPEN B2$,R
0x23c6…23d1 LineComalBin {
0x23c6…23d1 ptr = 0xb128 // 0x23c6 @0x0
0x23c6…23d1 lno = 0x113a // 0x23c8 @0x2
0x23c6…23d1 at0004 = ╱a7╱ OPEN ╱ // 0x23ca @0x4
0x23c6…23d1 at0005 = ╱42╱B╱ // 0x23cb @0x5
0x23c6…23d1 at0006 = ╱32╱2╱ // 0x23cc @0x6
0x23c6…23d1 at0007 = ╱ef╱$╱ // 0x23cd @0x7
0x23c6…23d1 at0008 = ╱ec╱,╱ // 0x23ce @0x8
0x23c6…23d1 at0009 = ╱52╱R╱ // 0x23cf @0x9
0x23c6…23d1 at000a = EOL // 0x23d0 @0xa
0x23c6…23d1 }
0x23d1…23e8 b13f 4420 EXEC FE(W,18,B2$)
0x23d1…23e8 LineComalBin {
0x23d1…23e8 ptr = 0xb13f // 0x23d1 @0x0
0x23d1…23e8 lno = 0x1144 // 0x23d3 @0x2
0x23d1…23e8 at0004 = ╱9d╱ EXEC ╱ // 0x23d5 @0x4
0x23d1…23e8 at0005 = ╱46╱F╱ // 0x23d6 @0x5
0x23d1…23e8 at0006 = ╱45╱E╱ // 0x23d7 @0x6
0x23d1…23e8 at0007 = ╱ed╱(╱ // 0x23d8 @0x7
0x23d1…23e8 at0008 = ╱57╱W╱ // 0x23d9 @0x8
0x23d1…23e8 at0009 = ╱ec╱,╱ // 0x23da @0x9
0x23d1…23e8 at000a = ╱31╱1╱ // 0x23db @0xa
0x23d1…23e8 at000b = ╱38╱8╱ // 0x23dc @0xb
0x23d1…23e8 at000c = ╱fe00009005╱ // 0x23dd @0xc
0x23d1…23e8 at0011 = ╱ec╱,╱ // 0x23e2 @0x11
0x23d1…23e8 at0012 = ╱42╱B╱ // 0x23e3 @0x12
0x23d1…23e8 at0013 = ╱32╱2╱ // 0x23e4 @0x13
0x23d1…23e8 at0014 = ╱ef╱$╱ // 0x23e5 @0x14
0x23d1…23e8 at0015 = ╱ee╱)╱ // 0x23e6 @0x15
0x23d1…23e8 at0016 = EOL // 0x23e7 @0x16
0x23d1…23e8 }
0x23e8…2442 b199 4430 GET B2$,G:A5(E),A5(G),A5(V),A5(4),A5(5),A5(6),A5(7),A5(8),A5(W)
0x23e8…2442 LineComalBin {
0x23e8…2442 ptr = 0xb199 // 0x23e8 @0x0
0x23e8…2442 lno = 0x114e // 0x23ea @0x2
0x23e8…2442 at0004 = ╱a9╱ GET ╱ // 0x23ec @0x4
0x23e8…2442 at0005 = ╱42╱B╱ // 0x23ed @0x5
0x23e8…2442 at0006 = ╱32╱2╱ // 0x23ee @0x6
0x23e8…2442 at0007 = ╱ef╱$╱ // 0x23ef @0x7
0x23e8…2442 at0008 = ╱ec╱,╱ // 0x23f0 @0x8
0x23e8…2442 at0009 = ╱47╱G╱ // 0x23f1 @0x9
0x23e8…2442 at000a = ╱f0╱:╱ // 0x23f2 @0xa
0x23e8…2442 at000b = ╱41╱A╱ // 0x23f3 @0xb
0x23e8…2442 at000c = ╱35╱5╱ // 0x23f4 @0xc
0x23e8…2442 at000d = ╱ed╱(╱ // 0x23f5 @0xd
0x23e8…2442 at000e = ╱45╱E╱ // 0x23f6 @0xe
0x23e8…2442 at000f = ╱ee╱)╱ // 0x23f7 @0xf
0x23e8…2442 at0010 = ╱ec╱,╱ // 0x23f8 @0x10
0x23e8…2442 at0011 = ╱41╱A╱ // 0x23f9 @0x11
0x23e8…2442 at0012 = ╱35╱5╱ // 0x23fa @0x12
0x23e8…2442 at0013 = ╱ed╱(╱ // 0x23fb @0x13
0x23e8…2442 at0014 = ╱47╱G╱ // 0x23fc @0x14
0x23e8…2442 at0015 = ╱ee╱)╱ // 0x23fd @0x15
0x23e8…2442 at0016 = ╱ec╱,╱ // 0x23fe @0x16
0x23e8…2442 at0017 = ╱41╱A╱ // 0x23ff @0x17
0x23e8…2442 at0018 = ╱35╱5╱ // 0x2400 @0x18
0x23e8…2442 at0019 = ╱ed╱(╱ // 0x2401 @0x19
0x23e8…2442 at001a = ╱56╱V╱ // 0x2402 @0x1a
0x23e8…2442 at001b = ╱ee╱)╱ // 0x2403 @0x1b
0x23e8…2442 at001c = ╱ec╱,╱ // 0x2404 @0x1c
0x23e8…2442 at001d = ╱41╱A╱ // 0x2405 @0x1d
0x23e8…2442 at001e = ╱35╱5╱ // 0x2406 @0x1e
0x23e8…2442 at001f = ╱ed╱(╱ // 0x2407 @0x1f
0x23e8…2442 at0020 = ╱34╱4╱ // 0x2408 @0x20
0x23e8…2442 at0021 = ╱fe00008003╱ // 0x2409 @0x21
0x23e8…2442 at0026 = ╱ee╱)╱ // 0x240e @0x26
0x23e8…2442 at0027 = ╱ec╱,╱ // 0x240f @0x27
0x23e8…2442 at0028 = ╱41╱A╱ // 0x2410 @0x28
0x23e8…2442 at0029 = ╱35╱5╱ // 0x2411 @0x29
0x23e8…2442 at002a = ╱ed╱(╱ // 0x2412 @0x2a
0x23e8…2442 at002b = ╱35╱5╱ // 0x2413 @0x2b
0x23e8…2442 at002c = ╱fe0000a003╱ // 0x2414 @0x2c
0x23e8…2442 at0031 = ╱ee╱)╱ // 0x2419 @0x31
0x23e8…2442 at0032 = ╱ec╱,╱ // 0x241a @0x32
0x23e8…2442 at0033 = ╱41╱A╱ // 0x241b @0x33
0x23e8…2442 at0034 = ╱35╱5╱ // 0x241c @0x34
0x23e8…2442 at0035 = ╱ed╱(╱ // 0x241d @0x35
0x23e8…2442 at0036 = ╱36╱6╱ // 0x241e @0x36
0x23e8…2442 at0037 = ╱fe0000c003╱ // 0x241f @0x37
0x23e8…2442 at003c = ╱ee╱)╱ // 0x2424 @0x3c
0x23e8…2442 at003d = ╱ec╱,╱ // 0x2425 @0x3d
0x23e8…2442 at003e = ╱41╱A╱ // 0x2426 @0x3e
0x23e8…2442 at003f = ╱35╱5╱ // 0x2427 @0x3f
0x23e8…2442 at0040 = ╱ed╱(╱ // 0x2428 @0x40
0x23e8…2442 at0041 = ╱37╱7╱ // 0x2429 @0x41
0x23e8…2442 at0042 = ╱fe0000e003╱ // 0x242a @0x42
0x23e8…2442 at0047 = ╱ee╱)╱ // 0x242f @0x47
0x23e8…2442 at0048 = ╱ec╱,╱ // 0x2430 @0x48
0x23e8…2442 at0049 = ╱41╱A╱ // 0x2431 @0x49
0x23e8…2442 at004a = ╱35╱5╱ // 0x2432 @0x4a
0x23e8…2442 at004b = ╱ed╱(╱ // 0x2433 @0x4b
0x23e8…2442 at004c = ╱38╱8╱ // 0x2434 @0x4c
0x23e8…2442 at004d = ╱fe00008004╱ // 0x2435 @0x4d
0x23e8…2442 at0052 = ╱ee╱)╱ // 0x243a @0x52
0x23e8…2442 at0053 = ╱ec╱,╱ // 0x243b @0x53
0x23e8…2442 at0054 = ╱41╱A╱ // 0x243c @0x54
0x23e8…2442 at0055 = ╱35╱5╱ // 0x243d @0x55
0x23e8…2442 at0056 = ╱ed╱(╱ // 0x243e @0x56
0x23e8…2442 at0057 = ╱57╱W╱ // 0x243f @0x57
0x23e8…2442 at0058 = ╱ee╱)╱ // 0x2440 @0x58
0x23e8…2442 at0059 = EOL // 0x2441 @0x59
0x23e8…2442 }
0x2442…2459 b1b0 4440 EXEC FE(W,19,B2$)
0x2442…2459 LineComalBin {
0x2442…2459 ptr = 0xb1b0 // 0x2442 @0x0
0x2442…2459 lno = 0x1158 // 0x2444 @0x2
0x2442…2459 at0004 = ╱9d╱ EXEC ╱ // 0x2446 @0x4
0x2442…2459 at0005 = ╱46╱F╱ // 0x2447 @0x5
0x2442…2459 at0006 = ╱45╱E╱ // 0x2448 @0x6
0x2442…2459 at0007 = ╱ed╱(╱ // 0x2449 @0x7
0x2442…2459 at0008 = ╱57╱W╱ // 0x244a @0x8
0x2442…2459 at0009 = ╱ec╱,╱ // 0x244b @0x9
0x2442…2459 at000a = ╱31╱1╱ // 0x244c @0xa
0x2442…2459 at000b = ╱39╱9╱ // 0x244d @0xb
0x2442…2459 at000c = ╱fe00009805╱ // 0x244e @0xc
0x2442…2459 at0011 = ╱ec╱,╱ // 0x2453 @0x11
0x2442…2459 at0012 = ╱42╱B╱ // 0x2454 @0x12
0x2442…2459 at0013 = ╱32╱2╱ // 0x2455 @0x13
0x2442…2459 at0014 = ╱ef╱$╱ // 0x2456 @0x14
0x2442…2459 at0015 = ╱ee╱)╱ // 0x2457 @0x15
0x2442…2459 at0016 = EOL // 0x2458 @0x16
0x2442…2459 }
0x2459…2464 b1bb 4450 FOR I=E TO V
0x2459…2464 LineComalBin {
0x2459…2464 ptr = 0xb1bb // 0x2459 @0x0
0x2459…2464 lno = 0x1162 // 0x245b @0x2
0x2459…2464 at0004 = ╱83╱ FOR ╱ // 0x245d @0x4
0x2459…2464 at0005 = ╱49╱I╱ // 0x245e @0x5
0x2459…2464 at0006 = ╱dc╱=╱ // 0x245f @0x6
0x2459…2464 at0007 = ╱45╱E╱ // 0x2460 @0x7
0x2459…2464 at0008 = ╱b7╱ TO ╱ // 0x2461 @0x8
0x2459…2464 at0009 = ╱56╱V╱ // 0x2462 @0x9
0x2459…2464 at000a = EOL // 0x2463 @0xa
0x2459…2464 }
0x2464…2474 b1cb 4460 H=(I-E)*V+E
0x2464…2474 LineComalBin {
0x2464…2474 ptr = 0xb1cb // 0x2464 @0x0
0x2464…2474 lno = 0x116c // 0x2466 @0x2
0x2464…2474 at0004 = ╱48╱H╱ // 0x2468 @0x4
0x2464…2474 at0005 = ╱dc╱=╱ // 0x2469 @0x5
0x2464…2474 at0006 = ╱ed╱(╱ // 0x246a @0x6
0x2464…2474 at0007 = ╱49╱I╱ // 0x246b @0x7
0x2464…2474 at0008 = ╱e3╱-╱ // 0x246c @0x8
0x2464…2474 at0009 = ╱45╱E╱ // 0x246d @0x9
0x2464…2474 at000a = ╱ee╱)╱ // 0x246e @0xa
0x2464…2474 at000b = ╱e4╱*╱ // 0x246f @0xb
0x2464…2474 at000c = ╱56╱V╱ // 0x2470 @0xc
0x2464…2474 at000d = ╱e2╱+╱ // 0x2471 @0xd
0x2464…2474 at000e = ╱45╱E╱ // 0x2472 @0xe
0x2464…2474 at000f = EOL // 0x2473 @0xf
0x2464…2474 }
0x2474…249f b1f6 4470 GET B2$,I+5:C3$(H),C3$(H+E),C3$(H+G)
0x2474…249f LineComalBin {
0x2474…249f ptr = 0xb1f6 // 0x2474 @0x0
0x2474…249f lno = 0x1176 // 0x2476 @0x2
0x2474…249f at0004 = ╱a9╱ GET ╱ // 0x2478 @0x4
0x2474…249f at0005 = ╱42╱B╱ // 0x2479 @0x5
0x2474…249f at0006 = ╱32╱2╱ // 0x247a @0x6
0x2474…249f at0007 = ╱ef╱$╱ // 0x247b @0x7
0x2474…249f at0008 = ╱ec╱,╱ // 0x247c @0x8
0x2474…249f at0009 = ╱49╱I╱ // 0x247d @0x9
0x2474…249f at000a = ╱e2╱+╱ // 0x247e @0xa
0x2474…249f at000b = ╱35╱5╱ // 0x247f @0xb
0x2474…249f at000c = ╱fe0000a003╱ // 0x2480 @0xc
0x2474…249f at0011 = ╱f0╱:╱ // 0x2485 @0x11
0x2474…249f at0012 = ╱43╱C╱ // 0x2486 @0x12
0x2474…249f at0013 = ╱33╱3╱ // 0x2487 @0x13
0x2474…249f at0014 = ╱ef╱$╱ // 0x2488 @0x14
0x2474…249f at0015 = ╱ed╱(╱ // 0x2489 @0x15
0x2474…249f at0016 = ╱48╱H╱ // 0x248a @0x16
0x2474…249f at0017 = ╱ee╱)╱ // 0x248b @0x17
0x2474…249f at0018 = ╱ec╱,╱ // 0x248c @0x18
0x2474…249f at0019 = ╱43╱C╱ // 0x248d @0x19
0x2474…249f at001a = ╱33╱3╱ // 0x248e @0x1a
0x2474…249f at001b = ╱ef╱$╱ // 0x248f @0x1b
0x2474…249f at001c = ╱ed╱(╱ // 0x2490 @0x1c
0x2474…249f at001d = ╱48╱H╱ // 0x2491 @0x1d
0x2474…249f at001e = ╱e2╱+╱ // 0x2492 @0x1e
0x2474…249f at001f = ╱45╱E╱ // 0x2493 @0x1f
0x2474…249f at0020 = ╱ee╱)╱ // 0x2494 @0x20
0x2474…249f at0021 = ╱ec╱,╱ // 0x2495 @0x21
0x2474…249f at0022 = ╱43╱C╱ // 0x2496 @0x22
0x2474…249f at0023 = ╱33╱3╱ // 0x2497 @0x23
0x2474…249f at0024 = ╱ef╱$╱ // 0x2498 @0x24
0x2474…249f at0025 = ╱ed╱(╱ // 0x2499 @0x25
0x2474…249f at0026 = ╱48╱H╱ // 0x249a @0x26
0x2474…249f at0027 = ╱e2╱+╱ // 0x249b @0x27
0x2474…249f at0028 = ╱47╱G╱ // 0x249c @0x28
0x2474…249f at0029 = ╱ee╱)╱ // 0x249d @0x29
0x2474…249f at002a = EOL // 0x249e @0x2a
0x2474…249f }
0x249f…24b6 b20d 4480 EXEC FE(W,20,B2$)
0x249f…24b6 LineComalBin {
0x249f…24b6 ptr = 0xb20d // 0x249f @0x0
0x249f…24b6 lno = 0x1180 // 0x24a1 @0x2
0x249f…24b6 at0004 = ╱9d╱ EXEC ╱ // 0x24a3 @0x4
0x249f…24b6 at0005 = ╱46╱F╱ // 0x24a4 @0x5
0x249f…24b6 at0006 = ╱45╱E╱ // 0x24a5 @0x6
0x249f…24b6 at0007 = ╱ed╱(╱ // 0x24a6 @0x7
0x249f…24b6 at0008 = ╱57╱W╱ // 0x24a7 @0x8
0x249f…24b6 at0009 = ╱ec╱,╱ // 0x24a8 @0x9
0x249f…24b6 at000a = ╱32╱2╱ // 0x24a9 @0xa
0x249f…24b6 at000b = ╱30╱0╱ // 0x24aa @0xb
0x249f…24b6 at000c = ╱fe0000a005╱ // 0x24ab @0xc
0x249f…24b6 at0011 = ╱ec╱,╱ // 0x24b0 @0x11
0x249f…24b6 at0012 = ╱42╱B╱ // 0x24b1 @0x12
0x249f…24b6 at0013 = ╱32╱2╱ // 0x24b2 @0x13
0x249f…24b6 at0014 = ╱ef╱$╱ // 0x24b3 @0x14
0x249f…24b6 at0015 = ╱ee╱)╱ // 0x24b4 @0x15
0x249f…24b6 at0016 = EOL // 0x24b5 @0x16
0x249f…24b6 }
0x24b6…24bd b214 4490 NEXT I
0x24b6…24bd LineComalBin {
0x24b6…24bd ptr = 0xb214 // 0x24b6 @0x0
0x24b6…24bd lno = 0x118a // 0x24b8 @0x2
0x24b6…24bd at0004 = ╱84╱ NEXT ╱ // 0x24ba @0x4
0x24b6…24bd at0005 = ╱49╱I╱ // 0x24bb @0x5
0x24b6…24bd at0006 = EOL // 0x24bc @0x6
0x24b6…24bd }
0x24bd…251d b274 4500 GET B2$,12:A6(E),A6(G),A6(V),A6(4),A6(5),A6(6),A6(7),A6(8),A6(W)
0x24bd…251d LineComalBin {
0x24bd…251d ptr = 0xb274 // 0x24bd @0x0
0x24bd…251d lno = 0x1194 // 0x24bf @0x2
0x24bd…251d at0004 = ╱a9╱ GET ╱ // 0x24c1 @0x4
0x24bd…251d at0005 = ╱42╱B╱ // 0x24c2 @0x5
0x24bd…251d at0006 = ╱32╱2╱ // 0x24c3 @0x6
0x24bd…251d at0007 = ╱ef╱$╱ // 0x24c4 @0x7
0x24bd…251d at0008 = ╱ec╱,╱ // 0x24c5 @0x8
0x24bd…251d at0009 = ╱31╱1╱ // 0x24c6 @0x9
0x24bd…251d at000a = ╱32╱2╱ // 0x24c7 @0xa
0x24bd…251d at000b = ╱fe0000c004╱ // 0x24c8 @0xb
0x24bd…251d at0010 = ╱f0╱:╱ // 0x24cd @0x10
0x24bd…251d at0011 = ╱41╱A╱ // 0x24ce @0x11
0x24bd…251d at0012 = ╱36╱6╱ // 0x24cf @0x12
0x24bd…251d at0013 = ╱ed╱(╱ // 0x24d0 @0x13
0x24bd…251d at0014 = ╱45╱E╱ // 0x24d1 @0x14
0x24bd…251d at0015 = ╱ee╱)╱ // 0x24d2 @0x15
0x24bd…251d at0016 = ╱ec╱,╱ // 0x24d3 @0x16
0x24bd…251d at0017 = ╱41╱A╱ // 0x24d4 @0x17
0x24bd…251d at0018 = ╱36╱6╱ // 0x24d5 @0x18
0x24bd…251d at0019 = ╱ed╱(╱ // 0x24d6 @0x19
0x24bd…251d at001a = ╱47╱G╱ // 0x24d7 @0x1a
0x24bd…251d at001b = ╱ee╱)╱ // 0x24d8 @0x1b
0x24bd…251d at001c = ╱ec╱,╱ // 0x24d9 @0x1c
0x24bd…251d at001d = ╱41╱A╱ // 0x24da @0x1d
0x24bd…251d at001e = ╱36╱6╱ // 0x24db @0x1e
0x24bd…251d at001f = ╱ed╱(╱ // 0x24dc @0x1f
0x24bd…251d at0020 = ╱56╱V╱ // 0x24dd @0x20
0x24bd…251d at0021 = ╱ee╱)╱ // 0x24de @0x21
0x24bd…251d at0022 = ╱ec╱,╱ // 0x24df @0x22
0x24bd…251d at0023 = ╱41╱A╱ // 0x24e0 @0x23
0x24bd…251d at0024 = ╱36╱6╱ // 0x24e1 @0x24
0x24bd…251d at0025 = ╱ed╱(╱ // 0x24e2 @0x25
0x24bd…251d at0026 = ╱34╱4╱ // 0x24e3 @0x26
0x24bd…251d at0027 = ╱fe00008003╱ // 0x24e4 @0x27
0x24bd…251d at002c = ╱ee╱)╱ // 0x24e9 @0x2c
0x24bd…251d at002d = ╱ec╱,╱ // 0x24ea @0x2d
0x24bd…251d at002e = ╱41╱A╱ // 0x24eb @0x2e
0x24bd…251d at002f = ╱36╱6╱ // 0x24ec @0x2f
0x24bd…251d at0030 = ╱ed╱(╱ // 0x24ed @0x30
0x24bd…251d at0031 = ╱35╱5╱ // 0x24ee @0x31
0x24bd…251d at0032 = ╱fe0000a003╱ // 0x24ef @0x32
0x24bd…251d at0037 = ╱ee╱)╱ // 0x24f4 @0x37
0x24bd…251d at0038 = ╱ec╱,╱ // 0x24f5 @0x38
0x24bd…251d at0039 = ╱41╱A╱ // 0x24f6 @0x39
0x24bd…251d at003a = ╱36╱6╱ // 0x24f7 @0x3a
0x24bd…251d at003b = ╱ed╱(╱ // 0x24f8 @0x3b
0x24bd…251d at003c = ╱36╱6╱ // 0x24f9 @0x3c
0x24bd…251d at003d = ╱fe0000c003╱ // 0x24fa @0x3d
0x24bd…251d at0042 = ╱ee╱)╱ // 0x24ff @0x42
0x24bd…251d at0043 = ╱ec╱,╱ // 0x2500 @0x43
0x24bd…251d at0044 = ╱41╱A╱ // 0x2501 @0x44
0x24bd…251d at0045 = ╱36╱6╱ // 0x2502 @0x45
0x24bd…251d at0046 = ╱ed╱(╱ // 0x2503 @0x46
0x24bd…251d at0047 = ╱37╱7╱ // 0x2504 @0x47
0x24bd…251d at0048 = ╱fe0000e003╱ // 0x2505 @0x48
0x24bd…251d at004d = ╱ee╱)╱ // 0x250a @0x4d
0x24bd…251d at004e = ╱ec╱,╱ // 0x250b @0x4e
0x24bd…251d at004f = ╱41╱A╱ // 0x250c @0x4f
0x24bd…251d at0050 = ╱36╱6╱ // 0x250d @0x50
0x24bd…251d at0051 = ╱ed╱(╱ // 0x250e @0x51
0x24bd…251d at0052 = ╱38╱8╱ // 0x250f @0x52
0x24bd…251d at0053 = ╱fe00008004╱ // 0x2510 @0x53
0x24bd…251d at0058 = ╱ee╱)╱ // 0x2515 @0x58
0x24bd…251d at0059 = ╱ec╱,╱ // 0x2516 @0x59
0x24bd…251d at005a = ╱41╱A╱ // 0x2517 @0x5a
0x24bd…251d at005b = ╱36╱6╱ // 0x2518 @0x5b
0x24bd…251d at005c = ╱ed╱(╱ // 0x2519 @0x5c
0x24bd…251d at005d = ╱57╱W╱ // 0x251a @0x5d
0x24bd…251d at005e = ╱ee╱)╱ // 0x251b @0x5e
0x24bd…251d at005f = EOL // 0x251c @0x5f
0x24bd…251d }
0x251d…2534 b28b 4510 EXEC FE(W,21,B2$)
0x251d…2534 LineComalBin {
0x251d…2534 ptr = 0xb28b // 0x251d @0x0
0x251d…2534 lno = 0x119e // 0x251f @0x2
0x251d…2534 at0004 = ╱9d╱ EXEC ╱ // 0x2521 @0x4
0x251d…2534 at0005 = ╱46╱F╱ // 0x2522 @0x5
0x251d…2534 at0006 = ╱45╱E╱ // 0x2523 @0x6
0x251d…2534 at0007 = ╱ed╱(╱ // 0x2524 @0x7
0x251d…2534 at0008 = ╱57╱W╱ // 0x2525 @0x8
0x251d…2534 at0009 = ╱ec╱,╱ // 0x2526 @0x9
0x251d…2534 at000a = ╱32╱2╱ // 0x2527 @0xa
0x251d…2534 at000b = ╱31╱1╱ // 0x2528 @0xb
0x251d…2534 at000c = ╱fe0000a805╱ // 0x2529 @0xc
0x251d…2534 at0011 = ╱ec╱,╱ // 0x252e @0x11
0x251d…2534 at0012 = ╱42╱B╱ // 0x252f @0x12
0x251d…2534 at0013 = ╱32╱2╱ // 0x2530 @0x13
0x251d…2534 at0014 = ╱ef╱$╱ // 0x2531 @0x14
0x251d…2534 at0015 = ╱ee╱)╱ // 0x2532 @0x15
0x251d…2534 at0016 = EOL // 0x2533 @0x16
0x251d…2534 }
0x2534…2594 b2eb 4520 GET B2$,13:A7(E),A7(G),A7(V),A7(4),A7(5),A7(6),A7(7),A7(8),A7(W)
0x2534…2594 LineComalBin {
0x2534…2594 ptr = 0xb2eb // 0x2534 @0x0
0x2534…2594 lno = 0x11a8 // 0x2536 @0x2
0x2534…2594 at0004 = ╱a9╱ GET ╱ // 0x2538 @0x4
0x2534…2594 at0005 = ╱42╱B╱ // 0x2539 @0x5
0x2534…2594 at0006 = ╱32╱2╱ // 0x253a @0x6
0x2534…2594 at0007 = ╱ef╱$╱ // 0x253b @0x7
0x2534…2594 at0008 = ╱ec╱,╱ // 0x253c @0x8
0x2534…2594 at0009 = ╱31╱1╱ // 0x253d @0x9
0x2534…2594 at000a = ╱33╱3╱ // 0x253e @0xa
0x2534…2594 at000b = ╱fe0000d004╱ // 0x253f @0xb
0x2534…2594 at0010 = ╱f0╱:╱ // 0x2544 @0x10
0x2534…2594 at0011 = ╱41╱A╱ // 0x2545 @0x11
0x2534…2594 at0012 = ╱37╱7╱ // 0x2546 @0x12
0x2534…2594 at0013 = ╱ed╱(╱ // 0x2547 @0x13
0x2534…2594 at0014 = ╱45╱E╱ // 0x2548 @0x14
0x2534…2594 at0015 = ╱ee╱)╱ // 0x2549 @0x15
0x2534…2594 at0016 = ╱ec╱,╱ // 0x254a @0x16
0x2534…2594 at0017 = ╱41╱A╱ // 0x254b @0x17
0x2534…2594 at0018 = ╱37╱7╱ // 0x254c @0x18
0x2534…2594 at0019 = ╱ed╱(╱ // 0x254d @0x19
0x2534…2594 at001a = ╱47╱G╱ // 0x254e @0x1a
0x2534…2594 at001b = ╱ee╱)╱ // 0x254f @0x1b
0x2534…2594 at001c = ╱ec╱,╱ // 0x2550 @0x1c
0x2534…2594 at001d = ╱41╱A╱ // 0x2551 @0x1d
0x2534…2594 at001e = ╱37╱7╱ // 0x2552 @0x1e
0x2534…2594 at001f = ╱ed╱(╱ // 0x2553 @0x1f
0x2534…2594 at0020 = ╱56╱V╱ // 0x2554 @0x20
0x2534…2594 at0021 = ╱ee╱)╱ // 0x2555 @0x21
0x2534…2594 at0022 = ╱ec╱,╱ // 0x2556 @0x22
0x2534…2594 at0023 = ╱41╱A╱ // 0x2557 @0x23
0x2534…2594 at0024 = ╱37╱7╱ // 0x2558 @0x24
0x2534…2594 at0025 = ╱ed╱(╱ // 0x2559 @0x25
0x2534…2594 at0026 = ╱34╱4╱ // 0x255a @0x26
0x2534…2594 at0027 = ╱fe00008003╱ // 0x255b @0x27
0x2534…2594 at002c = ╱ee╱)╱ // 0x2560 @0x2c
0x2534…2594 at002d = ╱ec╱,╱ // 0x2561 @0x2d
0x2534…2594 at002e = ╱41╱A╱ // 0x2562 @0x2e
0x2534…2594 at002f = ╱37╱7╱ // 0x2563 @0x2f
0x2534…2594 at0030 = ╱ed╱(╱ // 0x2564 @0x30
0x2534…2594 at0031 = ╱35╱5╱ // 0x2565 @0x31
0x2534…2594 at0032 = ╱fe0000a003╱ // 0x2566 @0x32
0x2534…2594 at0037 = ╱ee╱)╱ // 0x256b @0x37
0x2534…2594 at0038 = ╱ec╱,╱ // 0x256c @0x38
0x2534…2594 at0039 = ╱41╱A╱ // 0x256d @0x39
0x2534…2594 at003a = ╱37╱7╱ // 0x256e @0x3a
0x2534…2594 at003b = ╱ed╱(╱ // 0x256f @0x3b
0x2534…2594 at003c = ╱36╱6╱ // 0x2570 @0x3c
0x2534…2594 at003d = ╱fe0000c003╱ // 0x2571 @0x3d
0x2534…2594 at0042 = ╱ee╱)╱ // 0x2576 @0x42
0x2534…2594 at0043 = ╱ec╱,╱ // 0x2577 @0x43
0x2534…2594 at0044 = ╱41╱A╱ // 0x2578 @0x44
0x2534…2594 at0045 = ╱37╱7╱ // 0x2579 @0x45
0x2534…2594 at0046 = ╱ed╱(╱ // 0x257a @0x46
0x2534…2594 at0047 = ╱37╱7╱ // 0x257b @0x47
0x2534…2594 at0048 = ╱fe0000e003╱ // 0x257c @0x48
0x2534…2594 at004d = ╱ee╱)╱ // 0x2581 @0x4d
0x2534…2594 at004e = ╱ec╱,╱ // 0x2582 @0x4e
0x2534…2594 at004f = ╱41╱A╱ // 0x2583 @0x4f
0x2534…2594 at0050 = ╱37╱7╱ // 0x2584 @0x50
0x2534…2594 at0051 = ╱ed╱(╱ // 0x2585 @0x51
0x2534…2594 at0052 = ╱38╱8╱ // 0x2586 @0x52
0x2534…2594 at0053 = ╱fe00008004╱ // 0x2587 @0x53
0x2534…2594 at0058 = ╱ee╱)╱ // 0x258c @0x58
0x2534…2594 at0059 = ╱ec╱,╱ // 0x258d @0x59
0x2534…2594 at005a = ╱41╱A╱ // 0x258e @0x5a
0x2534…2594 at005b = ╱37╱7╱ // 0x258f @0x5b
0x2534…2594 at005c = ╱ed╱(╱ // 0x2590 @0x5c
0x2534…2594 at005d = ╱57╱W╱ // 0x2591 @0x5d
0x2534…2594 at005e = ╱ee╱)╱ // 0x2592 @0x5e
0x2534…2594 at005f = EOL // 0x2593 @0x5f
0x2534…2594 }
0x2594…25ab b302 4530 EXEC FE(W,22,B2$)
0x2594…25ab LineComalBin {
0x2594…25ab ptr = 0xb302 // 0x2594 @0x0
0x2594…25ab lno = 0x11b2 // 0x2596 @0x2
0x2594…25ab at0004 = ╱9d╱ EXEC ╱ // 0x2598 @0x4
0x2594…25ab at0005 = ╱46╱F╱ // 0x2599 @0x5
0x2594…25ab at0006 = ╱45╱E╱ // 0x259a @0x6
0x2594…25ab at0007 = ╱ed╱(╱ // 0x259b @0x7
0x2594…25ab at0008 = ╱57╱W╱ // 0x259c @0x8
0x2594…25ab at0009 = ╱ec╱,╱ // 0x259d @0x9
0x2594…25ab at000a = ╱32╱2╱ // 0x259e @0xa
0x2594…25ab at000b = ╱32╱2╱ // 0x259f @0xb
0x2594…25ab at000c = ╱fe0000b005╱ // 0x25a0 @0xc
0x2594…25ab at0011 = ╱ec╱,╱ // 0x25a5 @0x11
0x2594…25ab at0012 = ╱42╱B╱ // 0x25a6 @0x12
0x2594…25ab at0013 = ╱32╱2╱ // 0x25a7 @0x13
0x2594…25ab at0014 = ╱ef╱$╱ // 0x25a8 @0x14
0x2594…25ab at0015 = ╱ee╱)╱ // 0x25a9 @0x15
0x2594…25ab at0016 = EOL // 0x25aa @0x16
0x2594…25ab }
0x25ab…25c0 b317 4540 GET B2$,20:B3$
0x25ab…25c0 LineComalBin {
0x25ab…25c0 ptr = 0xb317 // 0x25ab @0x0
0x25ab…25c0 lno = 0x11bc // 0x25ad @0x2
0x25ab…25c0 at0004 = ╱a9╱ GET ╱ // 0x25af @0x4
0x25ab…25c0 at0005 = ╱42╱B╱ // 0x25b0 @0x5
0x25ab…25c0 at0006 = ╱32╱2╱ // 0x25b1 @0x6
0x25ab…25c0 at0007 = ╱ef╱$╱ // 0x25b2 @0x7
0x25ab…25c0 at0008 = ╱ec╱,╱ // 0x25b3 @0x8
0x25ab…25c0 at0009 = ╱32╱2╱ // 0x25b4 @0x9
0x25ab…25c0 at000a = ╱30╱0╱ // 0x25b5 @0xa
0x25ab…25c0 at000b = ╱fe0000a005╱ // 0x25b6 @0xb
0x25ab…25c0 at0010 = ╱f0╱:╱ // 0x25bb @0x10
0x25ab…25c0 at0011 = ╱42╱B╱ // 0x25bc @0x11
0x25ab…25c0 at0012 = ╱33╱3╱ // 0x25bd @0x12
0x25ab…25c0 at0013 = ╱ef╱$╱ // 0x25be @0x13
0x25ab…25c0 at0014 = EOL // 0x25bf @0x14
0x25ab…25c0 }
0x25c0…25d7 b32e 4550 EXEC FE(W,35,B2$)
0x25c0…25d7 LineComalBin {
0x25c0…25d7 ptr = 0xb32e // 0x25c0 @0x0
0x25c0…25d7 lno = 0x11c6 // 0x25c2 @0x2
0x25c0…25d7 at0004 = ╱9d╱ EXEC ╱ // 0x25c4 @0x4
0x25c0…25d7 at0005 = ╱46╱F╱ // 0x25c5 @0x5
0x25c0…25d7 at0006 = ╱45╱E╱ // 0x25c6 @0x6
0x25c0…25d7 at0007 = ╱ed╱(╱ // 0x25c7 @0x7
0x25c0…25d7 at0008 = ╱57╱W╱ // 0x25c8 @0x8
0x25c0…25d7 at0009 = ╱ec╱,╱ // 0x25c9 @0x9
0x25c0…25d7 at000a = ╱33╱3╱ // 0x25ca @0xa
0x25c0…25d7 at000b = ╱35╱5╱ // 0x25cb @0xb
0x25c0…25d7 at000c = ╱fe00008c06╱ // 0x25cc @0xc
0x25c0…25d7 at0011 = ╱ec╱,╱ // 0x25d1 @0x11
0x25c0…25d7 at0012 = ╱42╱B╱ // 0x25d2 @0x12
0x25c0…25d7 at0013 = ╱32╱2╱ // 0x25d3 @0x13
0x25c0…25d7 at0014 = ╱ef╱$╱ // 0x25d4 @0x14
0x25c0…25d7 at0015 = ╱ee╱)╱ // 0x25d5 @0x15
0x25c0…25d7 at0016 = EOL // 0x25d6 @0x16
0x25c0…25d7 }
0x25d7…25e0 b337 4560 CLOSE B2$
0x25d7…25e0 LineComalBin {
0x25d7…25e0 ptr = 0xb337 // 0x25d7 @0x0
0x25d7…25e0 lno = 0x11d0 // 0x25d9 @0x2
0x25d7…25e0 at0004 = ╱a8╱ CLOSE ╱ // 0x25db @0x4
0x25d7…25e0 at0005 = ╱42╱B╱ // 0x25dc @0x5
0x25d7…25e0 at0006 = ╱32╱2╱ // 0x25dd @0x6
0x25d7…25e0 at0007 = ╱ef╱$╱ // 0x25de @0x7
0x25d7…25e0 at0008 = EOL // 0x25df @0x8
0x25d7…25e0 }
0x25e0…25f7 b34e 4570 EXEC FE(W,23,B2$)
0x25e0…25f7 LineComalBin {
0x25e0…25f7 ptr = 0xb34e // 0x25e0 @0x0
0x25e0…25f7 lno = 0x11da // 0x25e2 @0x2
0x25e0…25f7 at0004 = ╱9d╱ EXEC ╱ // 0x25e4 @0x4
0x25e0…25f7 at0005 = ╱46╱F╱ // 0x25e5 @0x5
0x25e0…25f7 at0006 = ╱45╱E╱ // 0x25e6 @0x6
0x25e0…25f7 at0007 = ╱ed╱(╱ // 0x25e7 @0x7
0x25e0…25f7 at0008 = ╱57╱W╱ // 0x25e8 @0x8
0x25e0…25f7 at0009 = ╱ec╱,╱ // 0x25e9 @0x9
0x25e0…25f7 at000a = ╱32╱2╱ // 0x25ea @0xa
0x25e0…25f7 at000b = ╱33╱3╱ // 0x25eb @0xb
0x25e0…25f7 at000c = ╱fe0000b805╱ // 0x25ec @0xc
0x25e0…25f7 at0011 = ╱ec╱,╱ // 0x25f1 @0x11
0x25e0…25f7 at0012 = ╱42╱B╱ // 0x25f2 @0x12
0x25e0…25f7 at0013 = ╱32╱2╱ // 0x25f3 @0x13
0x25e0…25f7 at0014 = ╱ef╱$╱ // 0x25f4 @0x14
0x25e0…25f7 at0015 = ╱ee╱)╱ // 0x25f5 @0x15
0x25e0…25f7 at0016 = EOL // 0x25f6 @0x16
0x25e0…25f7 }
0x25f7…2602 b359 4580 OPEN D9$,R
0x25f7…2602 LineComalBin {
0x25f7…2602 ptr = 0xb359 // 0x25f7 @0x0
0x25f7…2602 lno = 0x11e4 // 0x25f9 @0x2
0x25f7…2602 at0004 = ╱a7╱ OPEN ╱ // 0x25fb @0x4
0x25f7…2602 at0005 = ╱44╱D╱ // 0x25fc @0x5
0x25f7…2602 at0006 = ╱39╱9╱ // 0x25fd @0x6
0x25f7…2602 at0007 = ╱ef╱$╱ // 0x25fe @0x7
0x25f7…2602 at0008 = ╱ec╱,╱ // 0x25ff @0x8
0x25f7…2602 at0009 = ╱52╱R╱ // 0x2600 @0x9
0x25f7…2602 at000a = EOL // 0x2601 @0xa
0x25f7…2602 }
0x2602…2619 b370 4590 EXEC FE(W,24,D9$)
0x2602…2619 LineComalBin {
0x2602…2619 ptr = 0xb370 // 0x2602 @0x0
0x2602…2619 lno = 0x11ee // 0x2604 @0x2
0x2602…2619 at0004 = ╱9d╱ EXEC ╱ // 0x2606 @0x4
0x2602…2619 at0005 = ╱46╱F╱ // 0x2607 @0x5
0x2602…2619 at0006 = ╱45╱E╱ // 0x2608 @0x6
0x2602…2619 at0007 = ╱ed╱(╱ // 0x2609 @0x7
0x2602…2619 at0008 = ╱57╱W╱ // 0x260a @0x8
0x2602…2619 at0009 = ╱ec╱,╱ // 0x260b @0x9
0x2602…2619 at000a = ╱32╱2╱ // 0x260c @0xa
0x2602…2619 at000b = ╱34╱4╱ // 0x260d @0xb
0x2602…2619 at000c = ╱fe0000c005╱ // 0x260e @0xc
0x2602…2619 at0011 = ╱ec╱,╱ // 0x2613 @0x11
0x2602…2619 at0012 = ╱44╱D╱ // 0x2614 @0x12
0x2602…2619 at0013 = ╱39╱9╱ // 0x2615 @0x13
0x2602…2619 at0014 = ╱ef╱$╱ // 0x2616 @0x14
0x2602…2619 at0015 = ╱ee╱)╱ // 0x2617 @0x15
0x2602…2619 at0016 = EOL // 0x2618 @0x16
0x2602…2619 }
0x2619…2624 b37b 4600 OPEN E5$,R
0x2619…2624 LineComalBin {
0x2619…2624 ptr = 0xb37b // 0x2619 @0x0
0x2619…2624 lno = 0x11f8 // 0x261b @0x2
0x2619…2624 at0004 = ╱a7╱ OPEN ╱ // 0x261d @0x4
0x2619…2624 at0005 = ╱45╱E╱ // 0x261e @0x5
0x2619…2624 at0006 = ╱35╱5╱ // 0x261f @0x6
0x2619…2624 at0007 = ╱ef╱$╱ // 0x2620 @0x7
0x2619…2624 at0008 = ╱ec╱,╱ // 0x2621 @0x8
0x2619…2624 at0009 = ╱52╱R╱ // 0x2622 @0x9
0x2619…2624 at000a = EOL // 0x2623 @0xa
0x2619…2624 }
0x2624…263b b392 4610 EXEC FE(W,25,E5$)
0x2624…263b LineComalBin {
0x2624…263b ptr = 0xb392 // 0x2624 @0x0
0x2624…263b lno = 0x1202 // 0x2626 @0x2
0x2624…263b at0004 = ╱9d╱ EXEC ╱ // 0x2628 @0x4
0x2624…263b at0005 = ╱46╱F╱ // 0x2629 @0x5
0x2624…263b at0006 = ╱45╱E╱ // 0x262a @0x6
0x2624…263b at0007 = ╱ed╱(╱ // 0x262b @0x7
0x2624…263b at0008 = ╱57╱W╱ // 0x262c @0x8
0x2624…263b at0009 = ╱ec╱,╱ // 0x262d @0x9
0x2624…263b at000a = ╱32╱2╱ // 0x262e @0xa
0x2624…263b at000b = ╱35╱5╱ // 0x262f @0xb
0x2624…263b at000c = ╱fe0000c805╱ // 0x2630 @0xc
0x2624…263b at0011 = ╱ec╱,╱ // 0x2635 @0x11
0x2624…263b at0012 = ╱45╱E╱ // 0x2636 @0x12
0x2624…263b at0013 = ╱35╱5╱ // 0x2637 @0x13
0x2624…263b at0014 = ╱ef╱$╱ // 0x2638 @0x14
0x2624…263b at0015 = ╱ee╱)╱ // 0x2639 @0x15
0x2624…263b at0016 = EOL // 0x263a @0x16
0x2624…263b }
0x263b…2646 b39d 4620 OPEN C2$,R
0x263b…2646 LineComalBin {
0x263b…2646 ptr = 0xb39d // 0x263b @0x0
0x263b…2646 lno = 0x120c // 0x263d @0x2
0x263b…2646 at0004 = ╱a7╱ OPEN ╱ // 0x263f @0x4
0x263b…2646 at0005 = ╱43╱C╱ // 0x2640 @0x5
0x263b…2646 at0006 = ╱32╱2╱ // 0x2641 @0x6
0x263b…2646 at0007 = ╱ef╱$╱ // 0x2642 @0x7
0x263b…2646 at0008 = ╱ec╱,╱ // 0x2643 @0x8
0x263b…2646 at0009 = ╱52╱R╱ // 0x2644 @0x9
0x263b…2646 at000a = EOL // 0x2645 @0xa
0x263b…2646 }
0x2646…265d b3b4 4630 EXEC FE(W,26,C2$)
0x2646…265d LineComalBin {
0x2646…265d ptr = 0xb3b4 // 0x2646 @0x0
0x2646…265d lno = 0x1216 // 0x2648 @0x2
0x2646…265d at0004 = ╱9d╱ EXEC ╱ // 0x264a @0x4
0x2646…265d at0005 = ╱46╱F╱ // 0x264b @0x5
0x2646…265d at0006 = ╱45╱E╱ // 0x264c @0x6
0x2646…265d at0007 = ╱ed╱(╱ // 0x264d @0x7
0x2646…265d at0008 = ╱57╱W╱ // 0x264e @0x8
0x2646…265d at0009 = ╱ec╱,╱ // 0x264f @0x9
0x2646…265d at000a = ╱32╱2╱ // 0x2650 @0xa
0x2646…265d at000b = ╱36╱6╱ // 0x2651 @0xb
0x2646…265d at000c = ╱fe0000d005╱ // 0x2652 @0xc
0x2646…265d at0011 = ╱ec╱,╱ // 0x2657 @0x11
0x2646…265d at0012 = ╱43╱C╱ // 0x2658 @0x12
0x2646…265d at0013 = ╱32╱2╱ // 0x2659 @0x13
0x2646…265d at0014 = ╱ef╱$╱ // 0x265a @0x14
0x2646…265d at0015 = ╱ee╱)╱ // 0x265b @0x15
0x2646…265d at0016 = EOL // 0x265c @0x16
0x2646…265d }
0x265d…2668 b3bf 4640 OPEN D2$,R
0x265d…2668 LineComalBin {
0x265d…2668 ptr = 0xb3bf // 0x265d @0x0
0x265d…2668 lno = 0x1220 // 0x265f @0x2
0x265d…2668 at0004 = ╱a7╱ OPEN ╱ // 0x2661 @0x4
0x265d…2668 at0005 = ╱44╱D╱ // 0x2662 @0x5
0x265d…2668 at0006 = ╱32╱2╱ // 0x2663 @0x6
0x265d…2668 at0007 = ╱ef╱$╱ // 0x2664 @0x7
0x265d…2668 at0008 = ╱ec╱,╱ // 0x2665 @0x8
0x265d…2668 at0009 = ╱52╱R╱ // 0x2666 @0x9
0x265d…2668 at000a = EOL // 0x2667 @0xa
0x265d…2668 }
0x2668…267f b3d6 4650 EXEC FE(W,27,D2$)
0x2668…267f LineComalBin {
0x2668…267f ptr = 0xb3d6 // 0x2668 @0x0
0x2668…267f lno = 0x122a // 0x266a @0x2
0x2668…267f at0004 = ╱9d╱ EXEC ╱ // 0x266c @0x4
0x2668…267f at0005 = ╱46╱F╱ // 0x266d @0x5
0x2668…267f at0006 = ╱45╱E╱ // 0x266e @0x6
0x2668…267f at0007 = ╱ed╱(╱ // 0x266f @0x7
0x2668…267f at0008 = ╱57╱W╱ // 0x2670 @0x8
0x2668…267f at0009 = ╱ec╱,╱ // 0x2671 @0x9
0x2668…267f at000a = ╱32╱2╱ // 0x2672 @0xa
0x2668…267f at000b = ╱37╱7╱ // 0x2673 @0xb
0x2668…267f at000c = ╱fe0000d805╱ // 0x2674 @0xc
0x2668…267f at0011 = ╱ec╱,╱ // 0x2679 @0x11
0x2668…267f at0012 = ╱44╱D╱ // 0x267a @0x12
0x2668…267f at0013 = ╱32╱2╱ // 0x267b @0x13
0x2668…267f at0014 = ╱ef╱$╱ // 0x267c @0x14
0x2668…267f at0015 = ╱ee╱)╱ // 0x267d @0x15
0x2668…267f at0016 = EOL // 0x267e @0x16
0x2668…267f }
0x267f…268a b3e1 4660 OPEN A8$,R
0x267f…268a LineComalBin {
0x267f…268a ptr = 0xb3e1 // 0x267f @0x0
0x267f…268a lno = 0x1234 // 0x2681 @0x2
0x267f…268a at0004 = ╱a7╱ OPEN ╱ // 0x2683 @0x4
0x267f…268a at0005 = ╱41╱A╱ // 0x2684 @0x5
0x267f…268a at0006 = ╱38╱8╱ // 0x2685 @0x6
0x267f…268a at0007 = ╱ef╱$╱ // 0x2686 @0x7
0x267f…268a at0008 = ╱ec╱,╱ // 0x2687 @0x8
0x267f…268a at0009 = ╱52╱R╱ // 0x2688 @0x9
0x267f…268a at000a = EOL // 0x2689 @0xa
0x267f…268a }
0x268a…26a1 b3f8 4670 EXEC FE(W,28,A8$)
0x268a…26a1 LineComalBin {
0x268a…26a1 ptr = 0xb3f8 // 0x268a @0x0
0x268a…26a1 lno = 0x123e // 0x268c @0x2
0x268a…26a1 at0004 = ╱9d╱ EXEC ╱ // 0x268e @0x4
0x268a…26a1 at0005 = ╱46╱F╱ // 0x268f @0x5
0x268a…26a1 at0006 = ╱45╱E╱ // 0x2690 @0x6
0x268a…26a1 at0007 = ╱ed╱(╱ // 0x2691 @0x7
0x268a…26a1 at0008 = ╱57╱W╱ // 0x2692 @0x8
0x268a…26a1 at0009 = ╱ec╱,╱ // 0x2693 @0x9
0x268a…26a1 at000a = ╱32╱2╱ // 0x2694 @0xa
0x268a…26a1 at000b = ╱38╱8╱ // 0x2695 @0xb
0x268a…26a1 at000c = ╱fe0000e005╱ // 0x2696 @0xc
0x268a…26a1 at0011 = ╱ec╱,╱ // 0x269b @0x11
0x268a…26a1 at0012 = ╱41╱A╱ // 0x269c @0x12
0x268a…26a1 at0013 = ╱38╱8╱ // 0x269d @0x13
0x268a…26a1 at0014 = ╱ef╱$╱ // 0x269e @0x14
0x268a…26a1 at0015 = ╱ee╱)╱ // 0x269f @0x15
0x268a…26a1 at0016 = EOL // 0x26a0 @0x16
0x268a…26a1 }
0x26a1…26ac b403 4680 OPEN A9$,R
0x26a1…26ac LineComalBin {
0x26a1…26ac ptr = 0xb403 // 0x26a1 @0x0
0x26a1…26ac lno = 0x1248 // 0x26a3 @0x2
0x26a1…26ac at0004 = ╱a7╱ OPEN ╱ // 0x26a5 @0x4
0x26a1…26ac at0005 = ╱41╱A╱ // 0x26a6 @0x5
0x26a1…26ac at0006 = ╱39╱9╱ // 0x26a7 @0x6
0x26a1…26ac at0007 = ╱ef╱$╱ // 0x26a8 @0x7
0x26a1…26ac at0008 = ╱ec╱,╱ // 0x26a9 @0x8
0x26a1…26ac at0009 = ╱52╱R╱ // 0x26aa @0x9
0x26a1…26ac at000a = EOL // 0x26ab @0xa
0x26a1…26ac }
0x26ac…26c3 b41a 4690 EXEC FE(W,29,A9$)
0x26ac…26c3 LineComalBin {
0x26ac…26c3 ptr = 0xb41a // 0x26ac @0x0
0x26ac…26c3 lno = 0x1252 // 0x26ae @0x2
0x26ac…26c3 at0004 = ╱9d╱ EXEC ╱ // 0x26b0 @0x4
0x26ac…26c3 at0005 = ╱46╱F╱ // 0x26b1 @0x5
0x26ac…26c3 at0006 = ╱45╱E╱ // 0x26b2 @0x6
0x26ac…26c3 at0007 = ╱ed╱(╱ // 0x26b3 @0x7
0x26ac…26c3 at0008 = ╱57╱W╱ // 0x26b4 @0x8
0x26ac…26c3 at0009 = ╱ec╱,╱ // 0x26b5 @0x9
0x26ac…26c3 at000a = ╱32╱2╱ // 0x26b6 @0xa
0x26ac…26c3 at000b = ╱39╱9╱ // 0x26b7 @0xb
0x26ac…26c3 at000c = ╱fe0000e805╱ // 0x26b8 @0xc
0x26ac…26c3 at0011 = ╱ec╱,╱ // 0x26bd @0x11
0x26ac…26c3 at0012 = ╱41╱A╱ // 0x26be @0x12
0x26ac…26c3 at0013 = ╱39╱9╱ // 0x26bf @0x13
0x26ac…26c3 at0014 = ╱ef╱$╱ // 0x26c0 @0x14
0x26ac…26c3 at0015 = ╱ee╱)╱ // 0x26c1 @0x15
0x26ac…26c3 at0016 = EOL // 0x26c2 @0x16
0x26ac…26c3 }
0x26c3…26ce b425 4700 OPEN B0$,W
0x26c3…26ce LineComalBin {
0x26c3…26ce ptr = 0xb425 // 0x26c3 @0x0
0x26c3…26ce lno = 0x125c // 0x26c5 @0x2
0x26c3…26ce at0004 = ╱a7╱ OPEN ╱ // 0x26c7 @0x4
0x26c3…26ce at0005 = ╱42╱B╱ // 0x26c8 @0x5
0x26c3…26ce at0006 = ╱30╱0╱ // 0x26c9 @0x6
0x26c3…26ce at0007 = ╱ef╱$╱ // 0x26ca @0x7
0x26c3…26ce at0008 = ╱ec╱,╱ // 0x26cb @0x8
0x26c3…26ce at0009 = ╱57╱W╱ // 0x26cc @0x9
0x26c3…26ce at000a = EOL // 0x26cd @0xa
0x26c3…26ce }
0x26ce…26e5 b43c 4710 EXEC FE(W,30,B0$)
0x26ce…26e5 LineComalBin {
0x26ce…26e5 ptr = 0xb43c // 0x26ce @0x0
0x26ce…26e5 lno = 0x1266 // 0x26d0 @0x2
0x26ce…26e5 at0004 = ╱9d╱ EXEC ╱ // 0x26d2 @0x4
0x26ce…26e5 at0005 = ╱46╱F╱ // 0x26d3 @0x5
0x26ce…26e5 at0006 = ╱45╱E╱ // 0x26d4 @0x6
0x26ce…26e5 at0007 = ╱ed╱(╱ // 0x26d5 @0x7
0x26ce…26e5 at0008 = ╱57╱W╱ // 0x26d6 @0x8
0x26ce…26e5 at0009 = ╱ec╱,╱ // 0x26d7 @0x9
0x26ce…26e5 at000a = ╱33╱3╱ // 0x26d8 @0xa
0x26ce…26e5 at000b = ╱30╱0╱ // 0x26d9 @0xb
0x26ce…26e5 at000c = ╱fe0000f005╱ // 0x26da @0xc
0x26ce…26e5 at0011 = ╱ec╱,╱ // 0x26df @0x11
0x26ce…26e5 at0012 = ╱42╱B╱ // 0x26e0 @0x12
0x26ce…26e5 at0013 = ╱30╱0╱ // 0x26e1 @0x13
0x26ce…26e5 at0014 = ╱ef╱$╱ // 0x26e2 @0x14
0x26ce…26e5 at0015 = ╱ee╱)╱ // 0x26e3 @0x15
0x26ce…26e5 at0016 = EOL // 0x26e4 @0x16
0x26ce…26e5 }
0x26e5…26f0 b447 4720 OPEN B4$,R
0x26e5…26f0 LineComalBin {
0x26e5…26f0 ptr = 0xb447 // 0x26e5 @0x0
0x26e5…26f0 lno = 0x1270 // 0x26e7 @0x2
0x26e5…26f0 at0004 = ╱a7╱ OPEN ╱ // 0x26e9 @0x4
0x26e5…26f0 at0005 = ╱42╱B╱ // 0x26ea @0x5
0x26e5…26f0 at0006 = ╱34╱4╱ // 0x26eb @0x6
0x26e5…26f0 at0007 = ╱ef╱$╱ // 0x26ec @0x7
0x26e5…26f0 at0008 = ╱ec╱,╱ // 0x26ed @0x8
0x26e5…26f0 at0009 = ╱52╱R╱ // 0x26ee @0x9
0x26e5…26f0 at000a = EOL // 0x26ef @0xa
0x26e5…26f0 }
0x26f0…270c b463 4730 EXEC FE(99,5,B4$)
0x26f0…270c LineComalBin {
0x26f0…270c ptr = 0xb463 // 0x26f0 @0x0
0x26f0…270c lno = 0x127a // 0x26f2 @0x2
0x26f0…270c at0004 = ╱9d╱ EXEC ╱ // 0x26f4 @0x4
0x26f0…270c at0005 = ╱46╱F╱ // 0x26f5 @0x5
0x26f0…270c at0006 = ╱45╱E╱ // 0x26f6 @0x6
0x26f0…270c at0007 = ╱ed╱(╱ // 0x26f7 @0x7
0x26f0…270c at0008 = ╱39╱9╱ // 0x26f8 @0x8
0x26f0…270c at0009 = ╱39╱9╱ // 0x26f9 @0x9
0x26f0…270c at000a = ╱fe0000c607╱ // 0x26fa @0xa
0x26f0…270c at000f = ╱ec╱,╱ // 0x26ff @0xf
0x26f0…270c at0010 = ╱35╱5╱ // 0x2700 @0x10
0x26f0…270c at0011 = ╱fe0000a003╱ // 0x2701 @0x11
0x26f0…270c at0016 = ╱ec╱,╱ // 0x2706 @0x16
0x26f0…270c at0017 = ╱42╱B╱ // 0x2707 @0x17
0x26f0…270c at0018 = ╱34╱4╱ // 0x2708 @0x18
0x26f0…270c at0019 = ╱ef╱$╱ // 0x2709 @0x19
0x26f0…270c at001a = ╱ee╱)╱ // 0x270a @0x1a
0x26f0…270c at001b = EOL // 0x270b @0x1b
0x26f0…270c }
0x270c…2717 b46e 4740 OPEN E6$,R
0x270c…2717 LineComalBin {
0x270c…2717 ptr = 0xb46e // 0x270c @0x0
0x270c…2717 lno = 0x1284 // 0x270e @0x2
0x270c…2717 at0004 = ╱a7╱ OPEN ╱ // 0x2710 @0x4
0x270c…2717 at0005 = ╱45╱E╱ // 0x2711 @0x5
0x270c…2717 at0006 = ╱36╱6╱ // 0x2712 @0x6
0x270c…2717 at0007 = ╱ef╱$╱ // 0x2713 @0x7
0x270c…2717 at0008 = ╱ec╱,╱ // 0x2714 @0x8
0x270c…2717 at0009 = ╱52╱R╱ // 0x2715 @0x9
0x270c…2717 at000a = EOL // 0x2716 @0xa
0x270c…2717 }
0x2717…2733 b48a 4750 EXEC FE(99,6,E6$)
0x2717…2733 LineComalBin {
0x2717…2733 ptr = 0xb48a // 0x2717 @0x0
0x2717…2733 lno = 0x128e // 0x2719 @0x2
0x2717…2733 at0004 = ╱9d╱ EXEC ╱ // 0x271b @0x4
0x2717…2733 at0005 = ╱46╱F╱ // 0x271c @0x5
0x2717…2733 at0006 = ╱45╱E╱ // 0x271d @0x6
0x2717…2733 at0007 = ╱ed╱(╱ // 0x271e @0x7
0x2717…2733 at0008 = ╱39╱9╱ // 0x271f @0x8
0x2717…2733 at0009 = ╱39╱9╱ // 0x2720 @0x9
0x2717…2733 at000a = ╱fe0000c607╱ // 0x2721 @0xa
0x2717…2733 at000f = ╱ec╱,╱ // 0x2726 @0xf
0x2717…2733 at0010 = ╱36╱6╱ // 0x2727 @0x10
0x2717…2733 at0011 = ╱fe0000c003╱ // 0x2728 @0x11
0x2717…2733 at0016 = ╱ec╱,╱ // 0x272d @0x16
0x2717…2733 at0017 = ╱45╱E╱ // 0x272e @0x17
0x2717…2733 at0018 = ╱36╱6╱ // 0x272f @0x18
0x2717…2733 at0019 = ╱ef╱$╱ // 0x2730 @0x19
0x2717…2733 at001a = ╱ee╱)╱ // 0x2731 @0x1a
0x2717…2733 at001b = EOL // 0x2732 @0x1b
0x2717…2733 }
0x2733…273e b495 4760 OPEN E7$,R
0x2733…273e LineComalBin {
0x2733…273e ptr = 0xb495 // 0x2733 @0x0
0x2733…273e lno = 0x1298 // 0x2735 @0x2
0x2733…273e at0004 = ╱a7╱ OPEN ╱ // 0x2737 @0x4
0x2733…273e at0005 = ╱45╱E╱ // 0x2738 @0x5
0x2733…273e at0006 = ╱37╱7╱ // 0x2739 @0x6
0x2733…273e at0007 = ╱ef╱$╱ // 0x273a @0x7
0x2733…273e at0008 = ╱ec╱,╱ // 0x273b @0x8
0x2733…273e at0009 = ╱52╱R╱ // 0x273c @0x9
0x2733…273e at000a = EOL // 0x273d @0xa
0x2733…273e }
0x273e…275a b4b1 4770 EXEC FE(99,7,E7$)
0x273e…275a LineComalBin {
0x273e…275a ptr = 0xb4b1 // 0x273e @0x0
0x273e…275a lno = 0x12a2 // 0x2740 @0x2
0x273e…275a at0004 = ╱9d╱ EXEC ╱ // 0x2742 @0x4
0x273e…275a at0005 = ╱46╱F╱ // 0x2743 @0x5
0x273e…275a at0006 = ╱45╱E╱ // 0x2744 @0x6
0x273e…275a at0007 = ╱ed╱(╱ // 0x2745 @0x7
0x273e…275a at0008 = ╱39╱9╱ // 0x2746 @0x8
0x273e…275a at0009 = ╱39╱9╱ // 0x2747 @0x9
0x273e…275a at000a = ╱fe0000c607╱ // 0x2748 @0xa
0x273e…275a at000f = ╱ec╱,╱ // 0x274d @0xf
0x273e…275a at0010 = ╱37╱7╱ // 0x274e @0x10
0x273e…275a at0011 = ╱fe0000e003╱ // 0x274f @0x11
0x273e…275a at0016 = ╱ec╱,╱ // 0x2754 @0x16
0x273e…275a at0017 = ╱45╱E╱ // 0x2755 @0x17
0x273e…275a at0018 = ╱37╱7╱ // 0x2756 @0x18
0x273e…275a at0019 = ╱ef╱$╱ // 0x2757 @0x19
0x273e…275a at001a = ╱ee╱)╱ // 0x2758 @0x1a
0x273e…275a at001b = EOL // 0x2759 @0x1b
0x273e…275a }
0x275a…279a b4f1 4780 K4=A5(5);I9=A5(7);K5=A5(8);K3=A6(E);K6=A7(E)
0x275a…279a LineComalBin {
0x275a…279a ptr = 0xb4f1 // 0x275a @0x0
0x275a…279a lno = 0x12ac // 0x275c @0x2
0x275a…279a at0004 = ╱4b╱K╱ // 0x275e @0x4
0x275a…279a at0005 = ╱34╱4╱ // 0x275f @0x5
0x275a…279a at0006 = ╱dc╱=╱ // 0x2760 @0x6
0x275a…279a at0007 = ╱41╱A╱ // 0x2761 @0x7
0x275a…279a at0008 = ╱35╱5╱ // 0x2762 @0x8
0x275a…279a at0009 = ╱ed╱(╱ // 0x2763 @0x9
0x275a…279a at000a = ╱35╱5╱ // 0x2764 @0xa
0x275a…279a at000b = ╱fe0000a003╱ // 0x2765 @0xb
0x275a…279a at0010 = ╱ee╱)╱ // 0x276a @0x10
0x275a…279a at0011 = ╱eb╱;╱ // 0x276b @0x11
0x275a…279a at0012 = ╱49╱I╱ // 0x276c @0x12
0x275a…279a at0013 = ╱39╱9╱ // 0x276d @0x13
0x275a…279a at0014 = ╱dc╱=╱ // 0x276e @0x14
0x275a…279a at0015 = ╱41╱A╱ // 0x276f @0x15
0x275a…279a at0016 = ╱35╱5╱ // 0x2770 @0x16
0x275a…279a at0017 = ╱ed╱(╱ // 0x2771 @0x17
0x275a…279a at0018 = ╱37╱7╱ // 0x2772 @0x18
0x275a…279a at0019 = ╱fe0000e003╱ // 0x2773 @0x19
0x275a…279a at001e = ╱ee╱)╱ // 0x2778 @0x1e
0x275a…279a at001f = ╱eb╱;╱ // 0x2779 @0x1f
0x275a…279a at0020 = ╱4b╱K╱ // 0x277a @0x20
0x275a…279a at0021 = ╱35╱5╱ // 0x277b @0x21
0x275a…279a at0022 = ╱dc╱=╱ // 0x277c @0x22
0x275a…279a at0023 = ╱41╱A╱ // 0x277d @0x23
0x275a…279a at0024 = ╱35╱5╱ // 0x277e @0x24
0x275a…279a at0025 = ╱ed╱(╱ // 0x277f @0x25
0x275a…279a at0026 = ╱38╱8╱ // 0x2780 @0x26
0x275a…279a at0027 = ╱fe00008004╱ // 0x2781 @0x27
0x275a…279a at002c = ╱ee╱)╱ // 0x2786 @0x2c
0x275a…279a at002d = ╱eb╱;╱ // 0x2787 @0x2d
0x275a…279a at002e = ╱4b╱K╱ // 0x2788 @0x2e
0x275a…279a at002f = ╱33╱3╱ // 0x2789 @0x2f
0x275a…279a at0030 = ╱dc╱=╱ // 0x278a @0x30
0x275a…279a at0031 = ╱41╱A╱ // 0x278b @0x31
0x275a…279a at0032 = ╱36╱6╱ // 0x278c @0x32
0x275a…279a at0033 = ╱ed╱(╱ // 0x278d @0x33
0x275a…279a at0034 = ╱45╱E╱ // 0x278e @0x34
0x275a…279a at0035 = ╱ee╱)╱ // 0x278f @0x35
0x275a…279a at0036 = ╱eb╱;╱ // 0x2790 @0x36
0x275a…279a at0037 = ╱4b╱K╱ // 0x2791 @0x37
0x275a…279a at0038 = ╱36╱6╱ // 0x2792 @0x38
0x275a…279a at0039 = ╱dc╱=╱ // 0x2793 @0x39
0x275a…279a at003a = ╱41╱A╱ // 0x2794 @0x3a
0x275a…279a at003b = ╱37╱7╱ // 0x2795 @0x3b
0x275a…279a at003c = ╱ed╱(╱ // 0x2796 @0x3c
0x275a…279a at003d = ╱45╱E╱ // 0x2797 @0x3d
0x275a…279a at003e = ╱ee╱)╱ // 0x2798 @0x3e
0x275a…279a at003f = EOL // 0x2799 @0x3f
0x275a…279a }
0x279a…27b2 b509 4790 EXEC INDTAB1(F6,F8,D9$)
0x279a…27b2 LineComalBin {
0x279a…27b2 ptr = 0xb509 // 0x279a @0x0
0x279a…27b2 lno = 0x12b6 // 0x279c @0x2
0x279a…27b2 at0004 = ╱9d╱ EXEC ╱ // 0x279e @0x4
0x279a…27b2 at0005 = ╱49╱I╱ // 0x279f @0x5
0x279a…27b2 at0006 = ╱4e╱N╱ // 0x27a0 @0x6
0x279a…27b2 at0007 = ╱44╱D╱ // 0x27a1 @0x7
0x279a…27b2 at0008 = ╱54╱T╱ // 0x27a2 @0x8
0x279a…27b2 at0009 = ╱41╱A╱ // 0x27a3 @0x9
0x279a…27b2 at000a = ╱42╱B╱ // 0x27a4 @0xa
0x279a…27b2 at000b = ╱31╱1╱ // 0x27a5 @0xb
0x279a…27b2 at000c = ╱ed╱(╱ // 0x27a6 @0xc
0x279a…27b2 at000d = ╱46╱F╱ // 0x27a7 @0xd
0x279a…27b2 at000e = ╱36╱6╱ // 0x27a8 @0xe
0x279a…27b2 at000f = ╱ec╱,╱ // 0x27a9 @0xf
0x279a…27b2 at0010 = ╱46╱F╱ // 0x27aa @0x10
0x279a…27b2 at0011 = ╱38╱8╱ // 0x27ab @0x11
0x279a…27b2 at0012 = ╱ec╱,╱ // 0x27ac @0x12
0x279a…27b2 at0013 = ╱44╱D╱ // 0x27ad @0x13
0x279a…27b2 at0014 = ╱39╱9╱ // 0x27ae @0x14
0x279a…27b2 at0015 = ╱ef╱$╱ // 0x27af @0x15
0x279a…27b2 at0016 = ╱ee╱)╱ // 0x27b0 @0x16
0x279a…27b2 at0017 = EOL // 0x27b1 @0x17
0x279a…27b2 }
0x27b2…27ca b521 4800 EXEC INDTAB1(G2,G3,E5$)
0x27b2…27ca LineComalBin {
0x27b2…27ca ptr = 0xb521 // 0x27b2 @0x0
0x27b2…27ca lno = 0x12c0 // 0x27b4 @0x2
0x27b2…27ca at0004 = ╱9d╱ EXEC ╱ // 0x27b6 @0x4
0x27b2…27ca at0005 = ╱49╱I╱ // 0x27b7 @0x5
0x27b2…27ca at0006 = ╱4e╱N╱ // 0x27b8 @0x6
0x27b2…27ca at0007 = ╱44╱D╱ // 0x27b9 @0x7
0x27b2…27ca at0008 = ╱54╱T╱ // 0x27ba @0x8
0x27b2…27ca at0009 = ╱41╱A╱ // 0x27bb @0x9
0x27b2…27ca at000a = ╱42╱B╱ // 0x27bc @0xa
0x27b2…27ca at000b = ╱31╱1╱ // 0x27bd @0xb
0x27b2…27ca at000c = ╱ed╱(╱ // 0x27be @0xc
0x27b2…27ca at000d = ╱47╱G╱ // 0x27bf @0xd
0x27b2…27ca at000e = ╱32╱2╱ // 0x27c0 @0xe
0x27b2…27ca at000f = ╱ec╱,╱ // 0x27c1 @0xf
0x27b2…27ca at0010 = ╱47╱G╱ // 0x27c2 @0x10
0x27b2…27ca at0011 = ╱33╱3╱ // 0x27c3 @0x11
0x27b2…27ca at0012 = ╱ec╱,╱ // 0x27c4 @0x12
0x27b2…27ca at0013 = ╱45╱E╱ // 0x27c5 @0x13
0x27b2…27ca at0014 = ╱35╱5╱ // 0x27c6 @0x14
0x27b2…27ca at0015 = ╱ef╱$╱ // 0x27c7 @0x15
0x27b2…27ca at0016 = ╱ee╱)╱ // 0x27c8 @0x16
0x27b2…27ca at0017 = EOL // 0x27c9 @0x17
0x27b2…27ca }
0x27ca…27e2 b539 4810 EXEC INDTAB1(G6,G7,C2$)
0x27ca…27e2 LineComalBin {
0x27ca…27e2 ptr = 0xb539 // 0x27ca @0x0
0x27ca…27e2 lno = 0x12ca // 0x27cc @0x2
0x27ca…27e2 at0004 = ╱9d╱ EXEC ╱ // 0x27ce @0x4
0x27ca…27e2 at0005 = ╱49╱I╱ // 0x27cf @0x5
0x27ca…27e2 at0006 = ╱4e╱N╱ // 0x27d0 @0x6
0x27ca…27e2 at0007 = ╱44╱D╱ // 0x27d1 @0x7
0x27ca…27e2 at0008 = ╱54╱T╱ // 0x27d2 @0x8
0x27ca…27e2 at0009 = ╱41╱A╱ // 0x27d3 @0x9
0x27ca…27e2 at000a = ╱42╱B╱ // 0x27d4 @0xa
0x27ca…27e2 at000b = ╱31╱1╱ // 0x27d5 @0xb
0x27ca…27e2 at000c = ╱ed╱(╱ // 0x27d6 @0xc
0x27ca…27e2 at000d = ╱47╱G╱ // 0x27d7 @0xd
0x27ca…27e2 at000e = ╱36╱6╱ // 0x27d8 @0xe
0x27ca…27e2 at000f = ╱ec╱,╱ // 0x27d9 @0xf
0x27ca…27e2 at0010 = ╱47╱G╱ // 0x27da @0x10
0x27ca…27e2 at0011 = ╱37╱7╱ // 0x27db @0x11
0x27ca…27e2 at0012 = ╱ec╱,╱ // 0x27dc @0x12
0x27ca…27e2 at0013 = ╱43╱C╱ // 0x27dd @0x13
0x27ca…27e2 at0014 = ╱32╱2╱ // 0x27de @0x14
0x27ca…27e2 at0015 = ╱ef╱$╱ // 0x27df @0x15
0x27ca…27e2 at0016 = ╱ee╱)╱ // 0x27e0 @0x16
0x27ca…27e2 at0017 = EOL // 0x27e1 @0x17
0x27ca…27e2 }
0x27e2…27fa b551 4820 EXEC INDTAB1(K9,L0,E6$)
0x27e2…27fa LineComalBin {
0x27e2…27fa ptr = 0xb551 // 0x27e2 @0x0
0x27e2…27fa lno = 0x12d4 // 0x27e4 @0x2
0x27e2…27fa at0004 = ╱9d╱ EXEC ╱ // 0x27e6 @0x4
0x27e2…27fa at0005 = ╱49╱I╱ // 0x27e7 @0x5
0x27e2…27fa at0006 = ╱4e╱N╱ // 0x27e8 @0x6
0x27e2…27fa at0007 = ╱44╱D╱ // 0x27e9 @0x7
0x27e2…27fa at0008 = ╱54╱T╱ // 0x27ea @0x8
0x27e2…27fa at0009 = ╱41╱A╱ // 0x27eb @0x9
0x27e2…27fa at000a = ╱42╱B╱ // 0x27ec @0xa
0x27e2…27fa at000b = ╱31╱1╱ // 0x27ed @0xb
0x27e2…27fa at000c = ╱ed╱(╱ // 0x27ee @0xc
0x27e2…27fa at000d = ╱4b╱K╱ // 0x27ef @0xd
0x27e2…27fa at000e = ╱39╱9╱ // 0x27f0 @0xe
0x27e2…27fa at000f = ╱ec╱,╱ // 0x27f1 @0xf
0x27e2…27fa at0010 = ╱4c╱L╱ // 0x27f2 @0x10
0x27e2…27fa at0011 = ╱30╱0╱ // 0x27f3 @0x11
0x27e2…27fa at0012 = ╱ec╱,╱ // 0x27f4 @0x12
0x27e2…27fa at0013 = ╱45╱E╱ // 0x27f5 @0x13
0x27e2…27fa at0014 = ╱36╱6╱ // 0x27f6 @0x14
0x27e2…27fa at0015 = ╱ef╱$╱ // 0x27f7 @0x15
0x27e2…27fa at0016 = ╱ee╱)╱ // 0x27f8 @0x16
0x27e2…27fa at0017 = EOL // 0x27f9 @0x17
0x27e2…27fa }
0x27fa…280a b561 4830 FOR O2=E TO L3+L2
0x27fa…280a LineComalBin {
0x27fa…280a ptr = 0xb561 // 0x27fa @0x0
0x27fa…280a lno = 0x12de // 0x27fc @0x2
0x27fa…280a at0004 = ╱83╱ FOR ╱ // 0x27fe @0x4
0x27fa…280a at0005 = ╱4f╱O╱ // 0x27ff @0x5
0x27fa…280a at0006 = ╱32╱2╱ // 0x2800 @0x6
0x27fa…280a at0007 = ╱dc╱=╱ // 0x2801 @0x7
0x27fa…280a at0008 = ╱45╱E╱ // 0x2802 @0x8
0x27fa…280a at0009 = ╱b7╱ TO ╱ // 0x2803 @0x9
0x27fa…280a at000a = ╱4c╱L╱ // 0x2804 @0xa
0x27fa…280a at000b = ╱33╱3╱ // 0x2805 @0xb
0x27fa…280a at000c = ╱e2╱+╱ // 0x2806 @0xc
0x27fa…280a at000d = ╱4c╱L╱ // 0x2807 @0xd
0x27fa…280a at000e = ╱32╱2╱ // 0x2808 @0xe
0x27fa…280a at000f = EOL // 0x2809 @0xf
0x27fa…280a }
0x280a…2825 b57c 4840 GET E7$,O2:L4(O2),L5$(O2)
0x280a…2825 LineComalBin {
0x280a…2825 ptr = 0xb57c // 0x280a @0x0
0x280a…2825 lno = 0x12e8 // 0x280c @0x2
0x280a…2825 at0004 = ╱a9╱ GET ╱ // 0x280e @0x4
0x280a…2825 at0005 = ╱45╱E╱ // 0x280f @0x5
0x280a…2825 at0006 = ╱37╱7╱ // 0x2810 @0x6
0x280a…2825 at0007 = ╱ef╱$╱ // 0x2811 @0x7
0x280a…2825 at0008 = ╱ec╱,╱ // 0x2812 @0x8
0x280a…2825 at0009 = ╱4f╱O╱ // 0x2813 @0x9
0x280a…2825 at000a = ╱32╱2╱ // 0x2814 @0xa
0x280a…2825 at000b = ╱f0╱:╱ // 0x2815 @0xb
0x280a…2825 at000c = ╱4c╱L╱ // 0x2816 @0xc
0x280a…2825 at000d = ╱34╱4╱ // 0x2817 @0xd
0x280a…2825 at000e = ╱ed╱(╱ // 0x2818 @0xe
0x280a…2825 at000f = ╱4f╱O╱ // 0x2819 @0xf
0x280a…2825 at0010 = ╱32╱2╱ // 0x281a @0x10
0x280a…2825 at0011 = ╱ee╱)╱ // 0x281b @0x11
0x280a…2825 at0012 = ╱ec╱,╱ // 0x281c @0x12
0x280a…2825 at0013 = ╱4c╱L╱ // 0x281d @0x13
0x280a…2825 at0014 = ╱35╱5╱ // 0x281e @0x14
0x280a…2825 at0015 = ╱ef╱$╱ // 0x281f @0x15
0x280a…2825 at0016 = ╱ed╱(╱ // 0x2820 @0x16
0x280a…2825 at0017 = ╱4f╱O╱ // 0x2821 @0x17
0x280a…2825 at0018 = ╱32╱2╱ // 0x2822 @0x18
0x280a…2825 at0019 = ╱ee╱)╱ // 0x2823 @0x19
0x280a…2825 at001a = EOL // 0x2824 @0x1a
0x280a…2825 }
0x2825…2841 b598 4850 EXEC FE(99,8,E7$)
0x2825…2841 LineComalBin {
0x2825…2841 ptr = 0xb598 // 0x2825 @0x0
0x2825…2841 lno = 0x12f2 // 0x2827 @0x2
0x2825…2841 at0004 = ╱9d╱ EXEC ╱ // 0x2829 @0x4
0x2825…2841 at0005 = ╱46╱F╱ // 0x282a @0x5
0x2825…2841 at0006 = ╱45╱E╱ // 0x282b @0x6
0x2825…2841 at0007 = ╱ed╱(╱ // 0x282c @0x7
0x2825…2841 at0008 = ╱39╱9╱ // 0x282d @0x8
0x2825…2841 at0009 = ╱39╱9╱ // 0x282e @0x9
0x2825…2841 at000a = ╱fe0000c607╱ // 0x282f @0xa
0x2825…2841 at000f = ╱ec╱,╱ // 0x2834 @0xf
0x2825…2841 at0010 = ╱38╱8╱ // 0x2835 @0x10
0x2825…2841 at0011 = ╱fe00008004╱ // 0x2836 @0x11
0x2825…2841 at0016 = ╱ec╱,╱ // 0x283b @0x16
0x2825…2841 at0017 = ╱45╱E╱ // 0x283c @0x17
0x2825…2841 at0018 = ╱37╱7╱ // 0x283d @0x18
0x2825…2841 at0019 = ╱ef╱$╱ // 0x283e @0x19
0x2825…2841 at001a = ╱ee╱)╱ // 0x283f @0x1a
0x2825…2841 at001b = EOL // 0x2840 @0x1b
0x2825…2841 }
0x2841…2849 b5a0 4860 NEXT O2
0x2841…2849 LineComalBin {
0x2841…2849 ptr = 0xb5a0 // 0x2841 @0x0
0x2841…2849 lno = 0x12fc // 0x2843 @0x2
0x2841…2849 at0004 = ╱84╱ NEXT ╱ // 0x2845 @0x4
0x2841…2849 at0005 = ╱4f╱O╱ // 0x2846 @0x5
0x2841…2849 at0006 = ╱32╱2╱ // 0x2847 @0x6
0x2841…2849 at0007 = EOL // 0x2848 @0x7
0x2841…2849 }
0x2849…2892 b5e9 4870 E2$=" "
0x2849…2892 LineComalBin {
0x2849…2892 ptr = 0xb5e9 // 0x2849 @0x0
0x2849…2892 lno = 0x1306 // 0x284b @0x2
0x2849…2892 at0004 = ╱45╱E╱ // 0x284d @0x4
0x2849…2892 at0005 = ╱32╱2╱ // 0x284e @0x5
0x2849…2892 at0006 = ╱ef╱$╱ // 0x284f @0x6
0x2849…2892 at0007 = ╱dc╱=╱ // 0x2850 @0x7
0x2849…2892 at0008 = ╱22╱"╱ // 0x2851 @0x8
0x2849…2892 at0009 = ╱20╱…╱ // 0x2852 @0x9
0x2849…2892 at000a = ╱20╱…╱ // 0x2853 @0xa
0x2849…2892 at000b = ╱20╱…╱ // 0x2854 @0xb
0x2849…2892 at000c = ╱20╱…╱ // 0x2855 @0xc
0x2849…2892 at000d = ╱20╱…╱ // 0x2856 @0xd
0x2849…2892 at000e = ╱20╱…╱ // 0x2857 @0xe
0x2849…2892 at000f = ╱20╱…╱ // 0x2858 @0xf
0x2849…2892 at0010 = ╱20╱…╱ // 0x2859 @0x10
0x2849…2892 at0011 = ╱20╱…╱ // 0x285a @0x11
0x2849…2892 at0012 = ╱20╱…╱ // 0x285b @0x12
0x2849…2892 at0013 = ╱20╱…╱ // 0x285c @0x13
0x2849…2892 at0014 = ╱20╱…╱ // 0x285d @0x14
0x2849…2892 at0015 = ╱20╱…╱ // 0x285e @0x15
0x2849…2892 at0016 = ╱20╱…╱ // 0x285f @0x16
0x2849…2892 at0017 = ╱20╱…╱ // 0x2860 @0x17
0x2849…2892 at0018 = ╱20╱…╱ // 0x2861 @0x18
0x2849…2892 at0019 = ╱20╱…╱ // 0x2862 @0x19
0x2849…2892 at001a = ╱20╱…╱ // 0x2863 @0x1a
0x2849…2892 at001b = ╱20╱…╱ // 0x2864 @0x1b
0x2849…2892 at001c = ╱20╱…╱ // 0x2865 @0x1c
0x2849…2892 at001d = ╱20╱…╱ // 0x2866 @0x1d
0x2849…2892 at001e = ╱20╱…╱ // 0x2867 @0x1e
0x2849…2892 at001f = ╱20╱…╱ // 0x2868 @0x1f
0x2849…2892 at0020 = ╱20╱…╱ // 0x2869 @0x20
0x2849…2892 at0021 = ╱20╱…╱ // 0x286a @0x21
0x2849…2892 at0022 = ╱20╱…╱ // 0x286b @0x22
0x2849…2892 at0023 = ╱20╱…╱ // 0x286c @0x23
0x2849…2892 at0024 = ╱20╱…╱ // 0x286d @0x24
0x2849…2892 at0025 = ╱20╱…╱ // 0x286e @0x25
0x2849…2892 at0026 = ╱20╱…╱ // 0x286f @0x26
0x2849…2892 at0027 = ╱20╱…╱ // 0x2870 @0x27
0x2849…2892 at0028 = ╱20╱…╱ // 0x2871 @0x28
0x2849…2892 at0029 = ╱20╱…╱ // 0x2872 @0x29
0x2849…2892 at002a = ╱20╱…╱ // 0x2873 @0x2a
0x2849…2892 at002b = ╱20╱…╱ // 0x2874 @0x2b
0x2849…2892 at002c = ╱20╱…╱ // 0x2875 @0x2c
0x2849…2892 at002d = ╱20╱…╱ // 0x2876 @0x2d
0x2849…2892 at002e = ╱20╱…╱ // 0x2877 @0x2e
0x2849…2892 at002f = ╱20╱…╱ // 0x2878 @0x2f
0x2849…2892 at0030 = ╱20╱…╱ // 0x2879 @0x30
0x2849…2892 at0031 = ╱20╱…╱ // 0x287a @0x31
0x2849…2892 at0032 = ╱20╱…╱ // 0x287b @0x32
0x2849…2892 at0033 = ╱20╱…╱ // 0x287c @0x33
0x2849…2892 at0034 = ╱20╱…╱ // 0x287d @0x34
0x2849…2892 at0035 = ╱20╱…╱ // 0x287e @0x35
0x2849…2892 at0036 = ╱20╱…╱ // 0x287f @0x36
0x2849…2892 at0037 = ╱20╱…╱ // 0x2880 @0x37
0x2849…2892 at0038 = ╱20╱…╱ // 0x2881 @0x38
0x2849…2892 at0039 = ╱20╱…╱ // 0x2882 @0x39
0x2849…2892 at003a = ╱20╱…╱ // 0x2883 @0x3a
0x2849…2892 at003b = ╱20╱…╱ // 0x2884 @0x3b
0x2849…2892 at003c = ╱20╱…╱ // 0x2885 @0x3c
0x2849…2892 at003d = ╱20╱…╱ // 0x2886 @0x3d
0x2849…2892 at003e = ╱20╱…╱ // 0x2887 @0x3e
0x2849…2892 at003f = ╱20╱…╱ // 0x2888 @0x3f
0x2849…2892 at0040 = ╱20╱…╱ // 0x2889 @0x40
0x2849…2892 at0041 = ╱20╱…╱ // 0x288a @0x41
0x2849…2892 at0042 = ╱20╱…╱ // 0x288b @0x42
0x2849…2892 at0043 = ╱20╱…╱ // 0x288c @0x43
0x2849…2892 at0044 = ╱20╱…╱ // 0x288d @0x44
0x2849…2892 at0045 = ╱20╱…╱ // 0x288e @0x45
0x2849…2892 at0046 = ╱20╱…╱ // 0x288f @0x46
0x2849…2892 at0047 = ╱22╱"╱ // 0x2890 @0x47
0x2849…2892 at0048 = EOL // 0x2891 @0x48
0x2849…2892 }
0x2892…28af b606 4880 E2$=E2$+" "
0x2892…28af LineComalBin {
0x2892…28af ptr = 0xb606 // 0x2892 @0x0
0x2892…28af lno = 0x1310 // 0x2894 @0x2
0x2892…28af at0004 = ╱45╱E╱ // 0x2896 @0x4
0x2892…28af at0005 = ╱32╱2╱ // 0x2897 @0x5
0x2892…28af at0006 = ╱ef╱$╱ // 0x2898 @0x6
0x2892…28af at0007 = ╱dc╱=╱ // 0x2899 @0x7
0x2892…28af at0008 = ╱45╱E╱ // 0x289a @0x8
0x2892…28af at0009 = ╱32╱2╱ // 0x289b @0x9
0x2892…28af at000a = ╱ef╱$╱ // 0x289c @0xa
0x2892…28af at000b = ╱f1╱+╱ // 0x289d @0xb
0x2892…28af at000c = ╱22╱"╱ // 0x289e @0xc
0x2892…28af at000d = ╱20╱…╱ // 0x289f @0xd
0x2892…28af at000e = ╱20╱…╱ // 0x28a0 @0xe
0x2892…28af at000f = ╱20╱…╱ // 0x28a1 @0xf
0x2892…28af at0010 = ╱20╱…╱ // 0x28a2 @0x10
0x2892…28af at0011 = ╱20╱…╱ // 0x28a3 @0x11
0x2892…28af at0012 = ╱20╱…╱ // 0x28a4 @0x12
0x2892…28af at0013 = ╱20╱…╱ // 0x28a5 @0x13
0x2892…28af at0014 = ╱20╱…╱ // 0x28a6 @0x14
0x2892…28af at0015 = ╱20╱…╱ // 0x28a7 @0x15
0x2892…28af at0016 = ╱20╱…╱ // 0x28a8 @0x16
0x2892…28af at0017 = ╱20╱…╱ // 0x28a9 @0x17
0x2892…28af at0018 = ╱20╱…╱ // 0x28aa @0x18
0x2892…28af at0019 = ╱20╱…╱ // 0x28ab @0x19
0x2892…28af at001a = ╱20╱…╱ // 0x28ac @0x1a
0x2892…28af at001b = ╱22╱"╱ // 0x28ad @0x1b
0x2892…28af at001c = EOL // 0x28ae @0x1c
0x2892…28af }
0x28af…28df b636 4890 D0$="0+";K0=I9;I8=K3+E;J9=I8;K1=B;L7=E;J6=B
0x28af…28df LineComalBin {
0x28af…28df ptr = 0xb636 // 0x28af @0x0
0x28af…28df lno = 0x131a // 0x28b1 @0x2
0x28af…28df at0004 = ╱44╱D╱ // 0x28b3 @0x4
0x28af…28df at0005 = ╱30╱0╱ // 0x28b4 @0x5
0x28af…28df at0006 = ╱ef╱$╱ // 0x28b5 @0x6
0x28af…28df at0007 = ╱dc╱=╱ // 0x28b6 @0x7
0x28af…28df at0008 = ╱22╱"╱ // 0x28b7 @0x8
0x28af…28df at0009 = ╱30╱0╱ // 0x28b8 @0x9
0x28af…28df at000a = ╱2b╱+╱ // 0x28b9 @0xa
0x28af…28df at000b = ╱22╱"╱ // 0x28ba @0xb
0x28af…28df at000c = ╱eb╱;╱ // 0x28bb @0xc
0x28af…28df at000d = ╱4b╱K╱ // 0x28bc @0xd
0x28af…28df at000e = ╱30╱0╱ // 0x28bd @0xe
0x28af…28df at000f = ╱dc╱=╱ // 0x28be @0xf
0x28af…28df at0010 = ╱49╱I╱ // 0x28bf @0x10
0x28af…28df at0011 = ╱39╱9╱ // 0x28c0 @0x11
0x28af…28df at0012 = ╱eb╱;╱ // 0x28c1 @0x12
0x28af…28df at0013 = ╱49╱I╱ // 0x28c2 @0x13
0x28af…28df at0014 = ╱38╱8╱ // 0x28c3 @0x14
0x28af…28df at0015 = ╱dc╱=╱ // 0x28c4 @0x15
0x28af…28df at0016 = ╱4b╱K╱ // 0x28c5 @0x16
0x28af…28df at0017 = ╱33╱3╱ // 0x28c6 @0x17
0x28af…28df at0018 = ╱e2╱+╱ // 0x28c7 @0x18
0x28af…28df at0019 = ╱45╱E╱ // 0x28c8 @0x19
0x28af…28df at001a = ╱eb╱;╱ // 0x28c9 @0x1a
0x28af…28df at001b = ╱4a╱J╱ // 0x28ca @0x1b
0x28af…28df at001c = ╱39╱9╱ // 0x28cb @0x1c
0x28af…28df at001d = ╱dc╱=╱ // 0x28cc @0x1d
0x28af…28df at001e = ╱49╱I╱ // 0x28cd @0x1e
0x28af…28df at001f = ╱38╱8╱ // 0x28ce @0x1f
0x28af…28df at0020 = ╱eb╱;╱ // 0x28cf @0x20
0x28af…28df at0021 = ╱4b╱K╱ // 0x28d0 @0x21
0x28af…28df at0022 = ╱31╱1╱ // 0x28d1 @0x22
0x28af…28df at0023 = ╱dc╱=╱ // 0x28d2 @0x23
0x28af…28df at0024 = ╱42╱B╱ // 0x28d3 @0x24
0x28af…28df at0025 = ╱eb╱;╱ // 0x28d4 @0x25
0x28af…28df at0026 = ╱4c╱L╱ // 0x28d5 @0x26
0x28af…28df at0027 = ╱37╱7╱ // 0x28d6 @0x27
0x28af…28df at0028 = ╱dc╱=╱ // 0x28d7 @0x28
0x28af…28df at0029 = ╱45╱E╱ // 0x28d8 @0x29
0x28af…28df at002a = ╱eb╱;╱ // 0x28d9 @0x2a
0x28af…28df at002b = ╱4a╱J╱ // 0x28da @0x2b
0x28af…28df at002c = ╱36╱6╱ // 0x28db @0x2c
0x28af…28df at002d = ╱dc╱=╱ // 0x28dc @0x2d
0x28af…28df at002e = ╱42╱B╱ // 0x28dd @0x2e
0x28af…28df at002f = EOL // 0x28de @0x2f
0x28af…28df }
0x28df…291f b676 4900 L8=E;B6$="0+";D1$="---------------------------------------"
0x28df…291f LineComalBin {
0x28df…291f ptr = 0xb676 // 0x28df @0x0
0x28df…291f lno = 0x1324 // 0x28e1 @0x2
0x28df…291f at0004 = ╱4c╱L╱ // 0x28e3 @0x4
0x28df…291f at0005 = ╱38╱8╱ // 0x28e4 @0x5
0x28df…291f at0006 = ╱dc╱=╱ // 0x28e5 @0x6
0x28df…291f at0007 = ╱45╱E╱ // 0x28e6 @0x7
0x28df…291f at0008 = ╱eb╱;╱ // 0x28e7 @0x8
0x28df…291f at0009 = ╱42╱B╱ // 0x28e8 @0x9
0x28df…291f at000a = ╱36╱6╱ // 0x28e9 @0xa
0x28df…291f at000b = ╱ef╱$╱ // 0x28ea @0xb
0x28df…291f at000c = ╱dc╱=╱ // 0x28eb @0xc
0x28df…291f at000d = ╱22╱"╱ // 0x28ec @0xd
0x28df…291f at000e = ╱30╱0╱ // 0x28ed @0xe
0x28df…291f at000f = ╱2b╱+╱ // 0x28ee @0xf
0x28df…291f at0010 = ╱22╱"╱ // 0x28ef @0x10
0x28df…291f at0011 = ╱eb╱;╱ // 0x28f0 @0x11
0x28df…291f at0012 = ╱44╱D╱ // 0x28f1 @0x12
0x28df…291f at0013 = ╱31╱1╱ // 0x28f2 @0x13
0x28df…291f at0014 = ╱ef╱$╱ // 0x28f3 @0x14
0x28df…291f at0015 = ╱dc╱=╱ // 0x28f4 @0x15
0x28df…291f at0016 = ╱22╱"╱ // 0x28f5 @0x16
0x28df…291f at0017 = ╱2d╱-╱ // 0x28f6 @0x17
0x28df…291f at0018 = ╱2d╱-╱ // 0x28f7 @0x18
0x28df…291f at0019 = ╱2d╱-╱ // 0x28f8 @0x19
0x28df…291f at001a = ╱2d╱-╱ // 0x28f9 @0x1a
0x28df…291f at001b = ╱2d╱-╱ // 0x28fa @0x1b
0x28df…291f at001c = ╱2d╱-╱ // 0x28fb @0x1c
0x28df…291f at001d = ╱2d╱-╱ // 0x28fc @0x1d
0x28df…291f at001e = ╱2d╱-╱ // 0x28fd @0x1e
0x28df…291f at001f = ╱2d╱-╱ // 0x28fe @0x1f
0x28df…291f at0020 = ╱2d╱-╱ // 0x28ff @0x20
0x28df…291f at0021 = ╱2d╱-╱ // 0x2900 @0x21
0x28df…291f at0022 = ╱2d╱-╱ // 0x2901 @0x22
0x28df…291f at0023 = ╱2d╱-╱ // 0x2902 @0x23
0x28df…291f at0024 = ╱2d╱-╱ // 0x2903 @0x24
0x28df…291f at0025 = ╱2d╱-╱ // 0x2904 @0x25
0x28df…291f at0026 = ╱2d╱-╱ // 0x2905 @0x26
0x28df…291f at0027 = ╱2d╱-╱ // 0x2906 @0x27
0x28df…291f at0028 = ╱2d╱-╱ // 0x2907 @0x28
0x28df…291f at0029 = ╱2d╱-╱ // 0x2908 @0x29
0x28df…291f at002a = ╱2d╱-╱ // 0x2909 @0x2a
0x28df…291f at002b = ╱2d╱-╱ // 0x290a @0x2b
0x28df…291f at002c = ╱2d╱-╱ // 0x290b @0x2c
0x28df…291f at002d = ╱2d╱-╱ // 0x290c @0x2d
0x28df…291f at002e = ╱2d╱-╱ // 0x290d @0x2e
0x28df…291f at002f = ╱2d╱-╱ // 0x290e @0x2f
0x28df…291f at0030 = ╱2d╱-╱ // 0x290f @0x30
0x28df…291f at0031 = ╱2d╱-╱ // 0x2910 @0x31
0x28df…291f at0032 = ╱2d╱-╱ // 0x2911 @0x32
0x28df…291f at0033 = ╱2d╱-╱ // 0x2912 @0x33
0x28df…291f at0034 = ╱2d╱-╱ // 0x2913 @0x34
0x28df…291f at0035 = ╱2d╱-╱ // 0x2914 @0x35
0x28df…291f at0036 = ╱2d╱-╱ // 0x2915 @0x36
0x28df…291f at0037 = ╱2d╱-╱ // 0x2916 @0x37
0x28df…291f at0038 = ╱2d╱-╱ // 0x2917 @0x38
0x28df…291f at0039 = ╱2d╱-╱ // 0x2918 @0x39
0x28df…291f at003a = ╱2d╱-╱ // 0x2919 @0x3a
0x28df…291f at003b = ╱2d╱-╱ // 0x291a @0x3b
0x28df…291f at003c = ╱2d╱-╱ // 0x291b @0x3c
0x28df…291f at003d = ╱2d╱-╱ // 0x291c @0x3d
0x28df…291f at003e = ╱22╱"╱ // 0x291d @0x3e
0x28df…291f at003f = EOL // 0x291e @0x3f
0x28df…291f }
0x291f…2934 b68b 4910 D1$=D1$+D1$;K2=B
0x291f…2934 LineComalBin {
0x291f…2934 ptr = 0xb68b // 0x291f @0x0
0x291f…2934 lno = 0x132e // 0x2921 @0x2
0x291f…2934 at0004 = ╱44╱D╱ // 0x2923 @0x4
0x291f…2934 at0005 = ╱31╱1╱ // 0x2924 @0x5
0x291f…2934 at0006 = ╱ef╱$╱ // 0x2925 @0x6
0x291f…2934 at0007 = ╱dc╱=╱ // 0x2926 @0x7
0x291f…2934 at0008 = ╱44╱D╱ // 0x2927 @0x8
0x291f…2934 at0009 = ╱31╱1╱ // 0x2928 @0x9
0x291f…2934 at000a = ╱ef╱$╱ // 0x2929 @0xa
0x291f…2934 at000b = ╱f1╱+╱ // 0x292a @0xb
0x291f…2934 at000c = ╱44╱D╱ // 0x292b @0xc
0x291f…2934 at000d = ╱31╱1╱ // 0x292c @0xd
0x291f…2934 at000e = ╱ef╱$╱ // 0x292d @0xe
0x291f…2934 at000f = ╱eb╱;╱ // 0x292e @0xf
0x291f…2934 at0010 = ╱4b╱K╱ // 0x292f @0x10
0x291f…2934 at0011 = ╱32╱2╱ // 0x2930 @0x11
0x291f…2934 at0012 = ╱dc╱=╱ // 0x2931 @0x12
0x291f…2934 at0013 = ╱42╱B╱ // 0x2932 @0x13
0x291f…2934 at0014 = EOL // 0x2933 @0x14
0x291f…2934 }
0x2934…293a b691 4920 CLEAR
0x2934…293a LineComalBin {
0x2934…293a ptr = 0xb691 // 0x2934 @0x0
0x2934…293a lno = 0x1338 // 0x2936 @0x2
0x2934…293a at0004 = ╱a0╱ CLEAR ╱ // 0x2938 @0x4
0x2934…293a at0005 = EOL // 0x2939 @0x5
0x2934…293a }
0x293a…2947 b69e 4930 EXEC UDHOVED
0x293a…2947 LineComalBin {
0x293a…2947 ptr = 0xb69e // 0x293a @0x0
0x293a…2947 lno = 0x1342 // 0x293c @0x2
0x293a…2947 at0004 = ╱9d╱ EXEC ╱ // 0x293e @0x4
0x293a…2947 at0005 = ╱55╱U╱ // 0x293f @0x5
0x293a…2947 at0006 = ╱44╱D╱ // 0x2940 @0x6
0x293a…2947 at0007 = ╱48╱H╱ // 0x2941 @0x7
0x293a…2947 at0008 = ╱4f╱O╱ // 0x2942 @0x8
0x293a…2947 at0009 = ╱56╱V╱ // 0x2943 @0x9
0x293a…2947 at000a = ╱45╱E╱ // 0x2944 @0xa
0x293a…2947 at000b = ╱44╱D╱ // 0x2945 @0xb
0x293a…2947 at000c = EOL // 0x2946 @0xc
0x293a…2947 }
0x2947…294d b6a4 4940 REPEAT
0x2947…294d LineComalBin {
0x2947…294d ptr = 0xb6a4 // 0x2947 @0x0
0x2947…294d lno = 0x134c // 0x2949 @0x2
0x2947…294d at0004 = ╱97╱ REPEAT ╱ // 0x294b @0x4
0x2947…294d at0005 = EOL // 0x294c @0x5
0x2947…294d }
0x294d…2957 b6ae 4950 CASE L8 OF
0x294d…2957 LineComalBin {
0x294d…2957 ptr = 0xb6ae // 0x294d @0x0
0x294d…2957 lno = 0x1356 // 0x294f @0x2
0x294d…2957 at0004 = ╱a201╱ CASE ╱ // 0x2951 @0x4
0x294d…2957 at0006 = ╱4c╱L╱ // 0x2953 @0x6
0x294d…2957 at0007 = ╱38╱8╱ // 0x2954 @0x7
0x294d…2957 at0008 = ╱ba╱ OF ╱ // 0x2955 @0x8
0x294d…2957 at0009 = EOL // 0x2956 @0x9
0x294d…2957 }
0x2957…295d b6b4 4960 STOP
0x2957…295d LineComalBin {
0x2957…295d ptr = 0xb6b4 // 0x2957 @0x0
0x2957…295d lno = 0x1360 // 0x2959 @0x2
0x2957…295d at0004 = ╱8d╱ STOP ╱ // 0x295b @0x4
0x2957…295d at0005 = EOL // 0x295c @0x5
0x2957…295d }
0x295d…2965 b6bc 4970 WHEN E
0x295d…2965 LineComalBin {
0x295d…2965 ptr = 0xb6bc // 0x295d @0x0
0x295d…2965 lno = 0x136a // 0x295f @0x2
0x295d…2965 at0004 = ╱a301╱ WHEN ╱ // 0x2961 @0x4
0x295d…2965 at0006 = ╱45╱E╱ // 0x2963 @0x6
0x295d…2965 at0007 = EOL // 0x2964 @0x7
0x295d…2965 }
0x2965…296b b6c2 4980 REPEAT
0x2965…296b LineComalBin {
0x2965…296b ptr = 0xb6c2 // 0x2965 @0x0
0x2965…296b lno = 0x1374 // 0x2967 @0x2
0x2965…296b at0004 = ╱97╱ REPEAT ╱ // 0x2969 @0x4
0x2965…296b at0005 = EOL // 0x296a @0x5
0x2965…296b }
0x296b…2971 b6c8 4990 REPEAT
0x296b…2971 LineComalBin {
0x296b…2971 ptr = 0xb6c8 // 0x296b @0x0
0x296b…2971 lno = 0x137e // 0x296d @0x2
0x296b…2971 at0004 = ╱97╱ REPEAT ╱ // 0x296f @0x4
0x296b…2971 at0005 = EOL // 0x2970 @0x5
0x296b…2971 }
0x2971…2980 b6d7 5000 CURSOR V,23
0x2971…2980 LineComalBin {
0x2971…2980 ptr = 0xb6d7 // 0x2971 @0x0
0x2971…2980 lno = 0x1388 // 0x2973 @0x2
0x2971…2980 at0004 = ╱a1╱ CURSOR ╱ // 0x2975 @0x4
0x2971…2980 at0005 = ╱56╱V╱ // 0x2976 @0x5
0x2971…2980 at0006 = ╱ec╱,╱ // 0x2977 @0x6
0x2971…2980 at0007 = ╱32╱2╱ // 0x2978 @0x7
0x2971…2980 at0008 = ╱33╱3╱ // 0x2979 @0x8
0x2971…2980 at0009 = ╱fe0000b805╱ // 0x297a @0x9
0x2971…2980 at000e = EOL // 0x297f @0xe
0x2971…2980 }
0x2980…29c7 b71e 5010 PRINT "Bilag (0:færdig,RETURN:automatisk,A:annuller,D:ny dato,";
0x2980…29c7 LineComalBin {
0x2980…29c7 ptr = 0xb71e // 0x2980 @0x0
0x2980…29c7 lno = 0x1392 // 0x2982 @0x2
0x2980…29c7 at0004 = ╱92╱ PRINT ╱ // 0x2984 @0x4
0x2980…29c7 at0005 = ╱22╱"╱ // 0x2985 @0x5
0x2980…29c7 at0006 = ╱42╱B╱ // 0x2986 @0x6
0x2980…29c7 at0007 = ╱69╱i╱ // 0x2987 @0x7
0x2980…29c7 at0008 = ╱6c╱l╱ // 0x2988 @0x8
0x2980…29c7 at0009 = ╱61╱a╱ // 0x2989 @0x9
0x2980…29c7 at000a = ╱67╱g╱ // 0x298a @0xa
0x2980…29c7 at000b = ╱20╱…╱ // 0x298b @0xb
0x2980…29c7 at000c = ╱20╱…╱ // 0x298c @0xc
0x2980…29c7 at000d = ╱20╱…╱ // 0x298d @0xd
0x2980…29c7 at000e = ╱20╱…╱ // 0x298e @0xe
0x2980…29c7 at000f = ╱20╱…╱ // 0x298f @0xf
0x2980…29c7 at0010 = ╱20╱…╱ // 0x2990 @0x10
0x2980…29c7 at0011 = ╱20╱…╱ // 0x2991 @0x11
0x2980…29c7 at0012 = ╱20╱…╱ // 0x2992 @0x12
0x2980…29c7 at0013 = ╱28╱(╱ // 0x2993 @0x13
0x2980…29c7 at0014 = ╱30╱0╱ // 0x2994 @0x14
0x2980…29c7 at0015 = ╱3a╱:╱ // 0x2995 @0x15
0x2980…29c7 at0016 = ╱66╱f╱ // 0x2996 @0x16
0x2980…29c7 at0017 = ╱7b╱æ╱ // 0x2997 @0x17
0x2980…29c7 at0018 = ╱72╱r╱ // 0x2998 @0x18
0x2980…29c7 at0019 = ╱64╱d╱ // 0x2999 @0x19
0x2980…29c7 at001a = ╱69╱i╱ // 0x299a @0x1a
0x2980…29c7 at001b = ╱67╱g╱ // 0x299b @0x1b
0x2980…29c7 at001c = ╱2c╱,╱ // 0x299c @0x1c
0x2980…29c7 at001d = ╱52╱R╱ // 0x299d @0x1d
0x2980…29c7 at001e = ╱45╱E╱ // 0x299e @0x1e
0x2980…29c7 at001f = ╱54╱T╱ // 0x299f @0x1f
0x2980…29c7 at0020 = ╱55╱U╱ // 0x29a0 @0x20
0x2980…29c7 at0021 = ╱52╱R╱ // 0x29a1 @0x21
0x2980…29c7 at0022 = ╱4e╱N╱ // 0x29a2 @0x22
0x2980…29c7 at0023 = ╱3a╱:╱ // 0x29a3 @0x23
0x2980…29c7 at0024 = ╱61╱a╱ // 0x29a4 @0x24
0x2980…29c7 at0025 = ╱75╱u╱ // 0x29a5 @0x25
0x2980…29c7 at0026 = ╱74╱t╱ // 0x29a6 @0x26
0x2980…29c7 at0027 = ╱6f╱o╱ // 0x29a7 @0x27
0x2980…29c7 at0028 = ╱6d╱m╱ // 0x29a8 @0x28
0x2980…29c7 at0029 = ╱61╱a╱ // 0x29a9 @0x29
0x2980…29c7 at002a = ╱74╱t╱ // 0x29aa @0x2a
0x2980…29c7 at002b = ╱69╱i╱ // 0x29ab @0x2b
0x2980…29c7 at002c = ╱73╱s╱ // 0x29ac @0x2c
0x2980…29c7 at002d = ╱6b╱k╱ // 0x29ad @0x2d
0x2980…29c7 at002e = ╱2c╱,╱ // 0x29ae @0x2e
0x2980…29c7 at002f = ╱41╱A╱ // 0x29af @0x2f
0x2980…29c7 at0030 = ╱3a╱:╱ // 0x29b0 @0x30
0x2980…29c7 at0031 = ╱61╱a╱ // 0x29b1 @0x31
0x2980…29c7 at0032 = ╱6e╱n╱ // 0x29b2 @0x32
0x2980…29c7 at0033 = ╱6e╱n╱ // 0x29b3 @0x33
0x2980…29c7 at0034 = ╱75╱u╱ // 0x29b4 @0x34
0x2980…29c7 at0035 = ╱6c╱l╱ // 0x29b5 @0x35
0x2980…29c7 at0036 = ╱6c╱l╱ // 0x29b6 @0x36
0x2980…29c7 at0037 = ╱65╱e╱ // 0x29b7 @0x37
0x2980…29c7 at0038 = ╱72╱r╱ // 0x29b8 @0x38
0x2980…29c7 at0039 = ╱2c╱,╱ // 0x29b9 @0x39
0x2980…29c7 at003a = ╱44╱D╱ // 0x29ba @0x3a
0x2980…29c7 at003b = ╱3a╱:╱ // 0x29bb @0x3b
0x2980…29c7 at003c = ╱6e╱n╱ // 0x29bc @0x3c
0x2980…29c7 at003d = ╱79╱y╱ // 0x29bd @0x3d
0x2980…29c7 at003e = ╱20╱…╱ // 0x29be @0x3e
0x2980…29c7 at003f = ╱64╱d╱ // 0x29bf @0x3f
0x2980…29c7 at0040 = ╱61╱a╱ // 0x29c0 @0x40
0x2980…29c7 at0041 = ╱74╱t╱ // 0x29c1 @0x41
0x2980…29c7 at0042 = ╱6f╱o╱ // 0x29c2 @0x42
0x2980…29c7 at0043 = ╱2c╱,╱ // 0x29c3 @0x43
0x2980…29c7 at0044 = ╱22╱"╱ // 0x29c4 @0x44
0x2980…29c7 at0045 = ╱eb╱;╱ // 0x29c5 @0x45
0x2980…29c7 at0046 = EOL // 0x29c6 @0x46
0x2980…29c7 }
0x29c7…29de b735 5020 PRINT "M:afslut multi)"
0x29c7…29de LineComalBin {
0x29c7…29de ptr = 0xb735 // 0x29c7 @0x0
0x29c7…29de lno = 0x139c // 0x29c9 @0x2
0x29c7…29de at0004 = ╱92╱ PRINT ╱ // 0x29cb @0x4
0x29c7…29de at0005 = ╱22╱"╱ // 0x29cc @0x5
0x29c7…29de at0006 = ╱4d╱M╱ // 0x29cd @0x6
0x29c7…29de at0007 = ╱3a╱:╱ // 0x29ce @0x7
0x29c7…29de at0008 = ╱61╱a╱ // 0x29cf @0x8
0x29c7…29de at0009 = ╱66╱f╱ // 0x29d0 @0x9
0x29c7…29de at000a = ╱73╱s╱ // 0x29d1 @0xa
0x29c7…29de at000b = ╱6c╱l╱ // 0x29d2 @0xb
0x29c7…29de at000c = ╱75╱u╱ // 0x29d3 @0xc
0x29c7…29de at000d = ╱74╱t╱ // 0x29d4 @0xd
0x29c7…29de at000e = ╱20╱…╱ // 0x29d5 @0xe
0x29c7…29de at000f = ╱6d╱m╱ // 0x29d6 @0xf
0x29c7…29de at0010 = ╱75╱u╱ // 0x29d7 @0x10
0x29c7…29de at0011 = ╱6c╱l╱ // 0x29d8 @0x11
0x29c7…29de at0012 = ╱74╱t╱ // 0x29d9 @0x12
0x29c7…29de at0013 = ╱69╱i╱ // 0x29da @0x13
0x29c7…29de at0014 = ╱29╱)╱ // 0x29db @0x14
0x29c7…29de at0015 = ╱22╱"╱ // 0x29dc @0x15
0x29c7…29de at0016 = EOL // 0x29dd @0x16
0x29c7…29de }
0x29de…29f2 b749 5030 CURSOR 8,23
0x29de…29f2 LineComalBin {
0x29de…29f2 ptr = 0xb749 // 0x29de @0x0
0x29de…29f2 lno = 0x13a6 // 0x29e0 @0x2
0x29de…29f2 at0004 = ╱a1╱ CURSOR ╱ // 0x29e2 @0x4
0x29de…29f2 at0005 = ╱38╱8╱ // 0x29e3 @0x5
0x29de…29f2 at0006 = ╱fe00008004╱ // 0x29e4 @0x6
0x29de…29f2 at000b = ╱ec╱,╱ // 0x29e9 @0xb
0x29de…29f2 at000c = ╱32╱2╱ // 0x29ea @0xc
0x29de…29f2 at000d = ╱33╱3╱ // 0x29eb @0xd
0x29de…29f2 at000e = ╱fe0000b805╱ // 0x29ec @0xe
0x29de…29f2 at0013 = EOL // 0x29f1 @0x13
0x29de…29f2 }
0x29f2…29fb b752 5040 INPUT D3$
0x29f2…29fb LineComalBin {
0x29f2…29fb ptr = 0xb752 // 0x29f2 @0x0
0x29f2…29fb lno = 0x13b0 // 0x29f4 @0x2
0x29f2…29fb at0004 = ╱91╱ INPUT ╱ // 0x29f6 @0x4
0x29f2…29fb at0005 = ╱44╱D╱ // 0x29f7 @0x5
0x29f2…29fb at0006 = ╱33╱3╱ // 0x29f8 @0x6
0x29f2…29fb at0007 = ╱ef╱$╱ // 0x29f9 @0x7
0x29f2…29fb at0008 = EOL // 0x29fa @0x8
0x29f2…29fb }
0x29fb…2a0c b763 5050 EXEC NRTEST(D3$)
0x29fb…2a0c LineComalBin {
0x29fb…2a0c ptr = 0xb763 // 0x29fb @0x0
0x29fb…2a0c lno = 0x13ba // 0x29fd @0x2
0x29fb…2a0c at0004 = ╱9d╱ EXEC ╱ // 0x29ff @0x4
0x29fb…2a0c at0005 = ╱4e╱N╱ // 0x2a00 @0x5
0x29fb…2a0c at0006 = ╱52╱R╱ // 0x2a01 @0x6
0x29fb…2a0c at0007 = ╱54╱T╱ // 0x2a02 @0x7
0x29fb…2a0c at0008 = ╱45╱E╱ // 0x2a03 @0x8
0x29fb…2a0c at0009 = ╱53╱S╱ // 0x2a04 @0x9
0x29fb…2a0c at000a = ╱54╱T╱ // 0x2a05 @0xa
0x29fb…2a0c at000b = ╱ed╱(╱ // 0x2a06 @0xb
0x29fb…2a0c at000c = ╱44╱D╱ // 0x2a07 @0xc
0x29fb…2a0c at000d = ╱33╱3╱ // 0x2a08 @0xd
0x29fb…2a0c at000e = ╱ef╱$╱ // 0x2a09 @0xe
0x29fb…2a0c at000f = ╱ee╱)╱ // 0x2a0a @0xf
0x29fb…2a0c at0010 = EOL // 0x2a0b @0x10
0x29fb…2a0c }
0x2a0c…2a2a b781 5060 UNTIL P=>-4 AND M8=B AND M9<=6
0x2a0c…2a2a LineComalBin {
0x2a0c…2a2a ptr = 0xb781 // 0x2a0c @0x0
0x2a0c…2a2a lno = 0x13c4 // 0x2a0e @0x2
0x2a0c…2a2a at0004 = ╱98╱ UNTIL ╱ // 0x2a10 @0x4
0x2a0c…2a2a at0005 = ╱50╱P╱ // 0x2a11 @0x5
0x2a0c…2a2a at0006 = ╱e0╱=>╱ // 0x2a12 @0x6
0x2a0c…2a2a at0007 = ╱e9╱-╱ // 0x2a13 @0x7
0x2a0c…2a2a at0008 = ╱34╱4╱ // 0x2a14 @0x8
0x2a0c…2a2a at0009 = ╱fe00008003╱ // 0x2a15 @0x9
0x2a0c…2a2a at000e = ╱da╱ AND ╱ // 0x2a1a @0xe
0x2a0c…2a2a at000f = ╱4d╱M╱ // 0x2a1b @0xf
0x2a0c…2a2a at0010 = ╱38╱8╱ // 0x2a1c @0x10
0x2a0c…2a2a at0011 = ╱dc╱=╱ // 0x2a1d @0x11
0x2a0c…2a2a at0012 = ╱42╱B╱ // 0x2a1e @0x12
0x2a0c…2a2a at0013 = ╱da╱ AND ╱ // 0x2a1f @0x13
0x2a0c…2a2a at0014 = ╱4d╱M╱ // 0x2a20 @0x14
0x2a0c…2a2a at0015 = ╱39╱9╱ // 0x2a21 @0x15
0x2a0c…2a2a at0016 = ╱df╱<=╱ // 0x2a22 @0x16
0x2a0c…2a2a at0017 = ╱36╱6╱ // 0x2a23 @0x17
0x2a0c…2a2a at0018 = ╱fe0000c003╱ // 0x2a24 @0x18
0x2a0c…2a2a at001d = EOL // 0x2a29 @0x1d
0x2a0c…2a2a }
0x2a2a…2a37 b78e 5070 O3=I8+K2
0x2a2a…2a37 LineComalBin {
0x2a2a…2a37 ptr = 0xb78e // 0x2a2a @0x0
0x2a2a…2a37 lno = 0x13ce // 0x2a2c @0x2
0x2a2a…2a37 at0004 = ╱4f╱O╱ // 0x2a2e @0x4
0x2a2a…2a37 at0005 = ╱33╱3╱ // 0x2a2f @0x5
0x2a2a…2a37 at0006 = ╱dc╱=╱ // 0x2a30 @0x6
0x2a2a…2a37 at0007 = ╱49╱I╱ // 0x2a31 @0x7
0x2a2a…2a37 at0008 = ╱38╱8╱ // 0x2a32 @0x8
0x2a2a…2a37 at0009 = ╱e2╱+╱ // 0x2a33 @0x9
0x2a2a…2a37 at000a = ╱4b╱K╱ // 0x2a34 @0xa
0x2a2a…2a37 at000b = ╱32╱2╱ // 0x2a35 @0xb
0x2a2a…2a37 at000c = EOL // 0x2a36 @0xc
0x2a2a…2a37 }
0x2a37…2a66 b7bd 5080 IF (O3>N3-V OR K1=35 OR O3+A7(E)+A6(G)>N4-V) THEN
0x2a37…2a66 LineComalBin {
0x2a37…2a66 ptr = 0xb7bd // 0x2a37 @0x0
0x2a37…2a66 lno = 0x13d8 // 0x2a39 @0x2
0x2a37…2a66 at0004 = ╱9c╱ IF ╱ // 0x2a3b @0x4
0x2a37…2a66 at0005 = ╱ed╱(╱ // 0x2a3c @0x5
0x2a37…2a66 at0006 = ╱4f╱O╱ // 0x2a3d @0x6
0x2a37…2a66 at0007 = ╱33╱3╱ // 0x2a3e @0x7
0x2a37…2a66 at0008 = ╱de╱>╱ // 0x2a3f @0x8
0x2a37…2a66 at0009 = ╱4e╱N╱ // 0x2a40 @0x9
0x2a37…2a66 at000a = ╱33╱3╱ // 0x2a41 @0xa
0x2a37…2a66 at000b = ╱e3╱-╱ // 0x2a42 @0xb
0x2a37…2a66 at000c = ╱56╱V╱ // 0x2a43 @0xc
0x2a37…2a66 at000d = ╱db╱ OR ╱ // 0x2a44 @0xd
0x2a37…2a66 at000e = ╱4b╱K╱ // 0x2a45 @0xe
0x2a37…2a66 at000f = ╱31╱1╱ // 0x2a46 @0xf
0x2a37…2a66 at0010 = ╱dc╱=╱ // 0x2a47 @0x10
0x2a37…2a66 at0011 = ╱33╱3╱ // 0x2a48 @0x11
0x2a37…2a66 at0012 = ╱35╱5╱ // 0x2a49 @0x12
0x2a37…2a66 at0013 = ╱fe00008c06╱ // 0x2a4a @0x13
0x2a37…2a66 at0018 = ╱db╱ OR ╱ // 0x2a4f @0x18
0x2a37…2a66 at0019 = ╱4f╱O╱ // 0x2a50 @0x19
0x2a37…2a66 at001a = ╱33╱3╱ // 0x2a51 @0x1a
0x2a37…2a66 at001b = ╱e2╱+╱ // 0x2a52 @0x1b
0x2a37…2a66 at001c = ╱41╱A╱ // 0x2a53 @0x1c
0x2a37…2a66 at001d = ╱37╱7╱ // 0x2a54 @0x1d
0x2a37…2a66 at001e = ╱ed╱(╱ // 0x2a55 @0x1e
0x2a37…2a66 at001f = ╱45╱E╱ // 0x2a56 @0x1f
0x2a37…2a66 at0020 = ╱ee╱)╱ // 0x2a57 @0x20
0x2a37…2a66 at0021 = ╱e2╱+╱ // 0x2a58 @0x21
0x2a37…2a66 at0022 = ╱41╱A╱ // 0x2a59 @0x22
0x2a37…2a66 at0023 = ╱36╱6╱ // 0x2a5a @0x23
0x2a37…2a66 at0024 = ╱ed╱(╱ // 0x2a5b @0x24
0x2a37…2a66 at0025 = ╱47╱G╱ // 0x2a5c @0x25
0x2a37…2a66 at0026 = ╱ee╱)╱ // 0x2a5d @0x26
0x2a37…2a66 at0027 = ╱de╱>╱ // 0x2a5e @0x27
0x2a37…2a66 at0028 = ╱4e╱N╱ // 0x2a5f @0x28
0x2a37…2a66 at0029 = ╱34╱4╱ // 0x2a60 @0x29
0x2a37…2a66 at002a = ╱e3╱-╱ // 0x2a61 @0x2a
0x2a37…2a66 at002b = ╱56╱V╱ // 0x2a62 @0x2b
0x2a37…2a66 at002c = ╱ee╱)╱ // 0x2a63 @0x2c
0x2a37…2a66 at002d = ╱b6╱ THEN ╱ // 0x2a64 @0x2d
0x2a37…2a66 at002e = EOL // 0x2a65 @0x2e
0x2a37…2a66 }
0x2a66…2a74 b7cb 5090 IF P<>-V THEN P=B
0x2a66…2a74 LineComalBin {
0x2a66…2a74 ptr = 0xb7cb // 0x2a66 @0x0
0x2a66…2a74 lno = 0x13e2 // 0x2a68 @0x2
0x2a66…2a74 at0004 = ╱82╱ IF ╱ // 0x2a6a @0x4
0x2a66…2a74 at0005 = ╱50╱P╱ // 0x2a6b @0x5
0x2a66…2a74 at0006 = ╱e1╱<>╱ // 0x2a6c @0x6
0x2a66…2a74 at0007 = ╱e9╱-╱ // 0x2a6d @0x7
0x2a66…2a74 at0008 = ╱56╱V╱ // 0x2a6e @0x8
0x2a66…2a74 at0009 = ╱b6╱ THEN ╱ // 0x2a6f @0x9
0x2a66…2a74 at000a = ╱50╱P╱ // 0x2a70 @0xa
0x2a66…2a74 at000b = ╱dc╱=╱ // 0x2a71 @0xb
0x2a66…2a74 at000c = ╱42╱B╱ // 0x2a72 @0xc
0x2a66…2a74 at000d = EOL // 0x2a73 @0xd
0x2a66…2a74 }
0x2a74…2a7a b7d1 5100 ENDIF
0x2a74…2a7a LineComalBin {
0x2a74…2a7a ptr = 0xb7d1 // 0x2a74 @0x0
0x2a74…2a7a lno = 0x13ec // 0x2a76 @0x2
0x2a74…2a7a at0004 = ╱9b╱ ENDIF ╱ // 0x2a78 @0x4
0x2a74…2a7a at0005 = EOL // 0x2a79 @0x5
0x2a74…2a7a }
0x2a7a…2a94 b7eb 5110 IF P<>B AND P>-G AND L7=19 THEN
0x2a7a…2a94 LineComalBin {
0x2a7a…2a94 ptr = 0xb7eb // 0x2a7a @0x0
0x2a7a…2a94 lno = 0x13f6 // 0x2a7c @0x2
0x2a7a…2a94 at0004 = ╱9c╱ IF ╱ // 0x2a7e @0x4
0x2a7a…2a94 at0005 = ╱50╱P╱ // 0x2a7f @0x5
0x2a7a…2a94 at0006 = ╱e1╱<>╱ // 0x2a80 @0x6
0x2a7a…2a94 at0007 = ╱42╱B╱ // 0x2a81 @0x7
0x2a7a…2a94 at0008 = ╱da╱ AND ╱ // 0x2a82 @0x8
0x2a7a…2a94 at0009 = ╱50╱P╱ // 0x2a83 @0x9
0x2a7a…2a94 at000a = ╱de╱>╱ // 0x2a84 @0xa
0x2a7a…2a94 at000b = ╱e9╱-╱ // 0x2a85 @0xb
0x2a7a…2a94 at000c = ╱47╱G╱ // 0x2a86 @0xc
0x2a7a…2a94 at000d = ╱da╱ AND ╱ // 0x2a87 @0xd
0x2a7a…2a94 at000e = ╱4c╱L╱ // 0x2a88 @0xe
0x2a7a…2a94 at000f = ╱37╱7╱ // 0x2a89 @0xf
0x2a7a…2a94 at0010 = ╱dc╱=╱ // 0x2a8a @0x10
0x2a7a…2a94 at0011 = ╱31╱1╱ // 0x2a8b @0x11
0x2a7a…2a94 at0012 = ╱39╱9╱ // 0x2a8c @0x12
0x2a7a…2a94 at0013 = ╱fe00009805╱ // 0x2a8d @0x13
0x2a7a…2a94 at0018 = ╱b6╱ THEN ╱ // 0x2a92 @0x18
0x2a7a…2a94 at0019 = EOL // 0x2a93 @0x19
0x2a7a…2a94 }
0x2a94…2a9a b7f1 5120 CLEAR
0x2a94…2a9a LineComalBin {
0x2a94…2a9a ptr = 0xb7f1 // 0x2a94 @0x0
0x2a94…2a9a lno = 0x1400 // 0x2a96 @0x2
0x2a94…2a9a at0004 = ╱a0╱ CLEAR ╱ // 0x2a98 @0x4
0x2a94…2a9a at0005 = EOL // 0x2a99 @0x5
0x2a94…2a9a }
0x2a9a…2aa7 b7fe 5130 EXEC UDHOVED
0x2a9a…2aa7 LineComalBin {
0x2a9a…2aa7 ptr = 0xb7fe // 0x2a9a @0x0
0x2a9a…2aa7 lno = 0x140a // 0x2a9c @0x2
0x2a9a…2aa7 at0004 = ╱9d╱ EXEC ╱ // 0x2a9e @0x4
0x2a9a…2aa7 at0005 = ╱55╱U╱ // 0x2a9f @0x5
0x2a9a…2aa7 at0006 = ╱44╱D╱ // 0x2aa0 @0x6
0x2a9a…2aa7 at0007 = ╱48╱H╱ // 0x2aa1 @0x7
0x2a9a…2aa7 at0008 = ╱4f╱O╱ // 0x2aa2 @0x8
0x2a9a…2aa7 at0009 = ╱56╱V╱ // 0x2aa3 @0x9
0x2a9a…2aa7 at000a = ╱45╱E╱ // 0x2aa4 @0xa
0x2a9a…2aa7 at000b = ╱44╱D╱ // 0x2aa5 @0xb
0x2a9a…2aa7 at000c = EOL // 0x2aa6 @0xc
0x2a9a…2aa7 }
0x2aa7…2ab0 b807 5140 L7=E
0x2aa7…2ab0 LineComalBin {
0x2aa7…2ab0 ptr = 0xb807 // 0x2aa7 @0x0
0x2aa7…2ab0 lno = 0x1414 // 0x2aa9 @0x2
0x2aa7…2ab0 at0004 = ╱4c╱L╱ // 0x2aab @0x4
0x2aa7…2ab0 at0005 = ╱37╱7╱ // 0x2aac @0x5
0x2aa7…2ab0 at0006 = ╱dc╱=╱ // 0x2aad @0x6
0x2aa7…2ab0 at0007 = ╱45╱E╱ // 0x2aae @0x7
0x2aa7…2ab0 at0008 = EOL // 0x2aaf @0x8
0x2aa7…2ab0 }
0x2ab0…2abc b813 5150 EXEC SYSGEM
0x2ab0…2abc LineComalBin {
0x2ab0…2abc ptr = 0xb813 // 0x2ab0 @0x0
0x2ab0…2abc lno = 0x141e // 0x2ab2 @0x2
0x2ab0…2abc at0004 = ╱9d╱ EXEC ╱ // 0x2ab4 @0x4
0x2ab0…2abc at0005 = ╱53╱S╱ // 0x2ab5 @0x5
0x2ab0…2abc at0006 = ╱59╱Y╱ // 0x2ab6 @0x6
0x2ab0…2abc at0007 = ╱53╱S╱ // 0x2ab7 @0x7
0x2ab0…2abc at0008 = ╱47╱G╱ // 0x2ab8 @0x8
0x2ab0…2abc at0009 = ╱45╱E╱ // 0x2ab9 @0x9
0x2ab0…2abc at000a = ╱4d╱M╱ // 0x2aba @0xa
0x2ab0…2abc at000b = EOL // 0x2abb @0xb
0x2ab0…2abc }
0x2abc…2ac9 b820 5160 EXEC UDLINIE
0x2abc…2ac9 LineComalBin {
0x2abc…2ac9 ptr = 0xb820 // 0x2abc @0x0
0x2abc…2ac9 lno = 0x1428 // 0x2abe @0x2
0x2abc…2ac9 at0004 = ╱9d╱ EXEC ╱ // 0x2ac0 @0x4
0x2abc…2ac9 at0005 = ╱55╱U╱ // 0x2ac1 @0x5
0x2abc…2ac9 at0006 = ╱44╱D╱ // 0x2ac2 @0x6
0x2abc…2ac9 at0007 = ╱4c╱L╱ // 0x2ac3 @0x7
0x2abc…2ac9 at0008 = ╱49╱I╱ // 0x2ac4 @0x8
0x2abc…2ac9 at0009 = ╱4e╱N╱ // 0x2ac5 @0x9
0x2abc…2ac9 at000a = ╱49╱I╱ // 0x2ac6 @0xa
0x2abc…2ac9 at000b = ╱45╱E╱ // 0x2ac7 @0xb
0x2abc…2ac9 at000c = EOL // 0x2ac8 @0xc
0x2abc…2ac9 }
0x2ac9…2ad5 b82c 5170 L7=L7+E
0x2ac9…2ad5 LineComalBin {
0x2ac9…2ad5 ptr = 0xb82c // 0x2ac9 @0x0
0x2ac9…2ad5 lno = 0x1432 // 0x2acb @0x2
0x2ac9…2ad5 at0004 = ╱4c╱L╱ // 0x2acd @0x4
0x2ac9…2ad5 at0005 = ╱37╱7╱ // 0x2ace @0x5
0x2ac9…2ad5 at0006 = ╱dc╱=╱ // 0x2acf @0x6
0x2ac9…2ad5 at0007 = ╱4c╱L╱ // 0x2ad0 @0x7
0x2ac9…2ad5 at0008 = ╱37╱7╱ // 0x2ad1 @0x8
0x2ac9…2ad5 at0009 = ╱e2╱+╱ // 0x2ad2 @0x9
0x2ac9…2ad5 at000a = ╱45╱E╱ // 0x2ad3 @0xa
0x2ac9…2ad5 at000b = EOL // 0x2ad4 @0xb
0x2ac9…2ad5 }
0x2ad5…2adb b832 5180 ENDIF
0x2ad5…2adb LineComalBin {
0x2ad5…2adb ptr = 0xb832 // 0x2ad5 @0x0
0x2ad5…2adb lno = 0x143c // 0x2ad7 @0x2
0x2ad5…2adb at0004 = ╱9b╱ ENDIF ╱ // 0x2ad9 @0x4
0x2ad5…2adb at0005 = EOL // 0x2ada @0x5
0x2ad5…2adb }
0x2adb…2ae1 b838 5190 REPEAT
0x2adb…2ae1 LineComalBin {
0x2adb…2ae1 ptr = 0xb838 // 0x2adb @0x0
0x2adb…2ae1 lno = 0x1446 // 0x2add @0x2
0x2adb…2ae1 at0004 = ╱97╱ REPEAT ╱ // 0x2adf @0x4
0x2adb…2ae1 at0005 = EOL // 0x2ae0 @0x5
0x2adb…2ae1 }
0x2ae1…2aeb b842 5200 O4=-E
0x2ae1…2aeb LineComalBin {
0x2ae1…2aeb ptr = 0xb842 // 0x2ae1 @0x0
0x2ae1…2aeb lno = 0x1450 // 0x2ae3 @0x2
0x2ae1…2aeb at0004 = ╱4f╱O╱ // 0x2ae5 @0x4
0x2ae1…2aeb at0005 = ╱34╱4╱ // 0x2ae6 @0x5
0x2ae1…2aeb at0006 = ╱dc╱=╱ // 0x2ae7 @0x6
0x2ae1…2aeb at0007 = ╱e9╱-╱ // 0x2ae8 @0x7
0x2ae1…2aeb at0008 = ╱45╱E╱ // 0x2ae9 @0x8
0x2ae1…2aeb at0009 = EOL // 0x2aea @0x9
0x2ae1…2aeb }
0x2aeb…2af4 b84b 5210 CASE P OF
0x2aeb…2af4 LineComalBin {
0x2aeb…2af4 ptr = 0xb84b // 0x2aeb @0x0
0x2aeb…2af4 lno = 0x145a // 0x2aed @0x2
0x2aeb…2af4 at0004 = ╱a201╱ CASE ╱ // 0x2aef @0x4
0x2aeb…2af4 at0006 = ╱50╱P╱ // 0x2af1 @0x6
0x2aeb…2af4 at0007 = ╱ba╱ OF ╱ // 0x2af2 @0x7
0x2aeb…2af4 at0008 = EOL // 0x2af3 @0x8
0x2aeb…2af4 }
0x2af4…2b0a b861 5220 J3,K5=P;P=-W;L8=G
0x2af4…2b0a LineComalBin {
0x2af4…2b0a ptr = 0xb861 // 0x2af4 @0x0
0x2af4…2b0a lno = 0x1464 // 0x2af6 @0x2
0x2af4…2b0a at0004 = ╱4a╱J╱ // 0x2af8 @0x4
0x2af4…2b0a at0005 = ╱33╱3╱ // 0x2af9 @0x5
0x2af4…2b0a at0006 = ╱ec╱,╱ // 0x2afa @0x6
0x2af4…2b0a at0007 = ╱4b╱K╱ // 0x2afb @0x7
0x2af4…2b0a at0008 = ╱35╱5╱ // 0x2afc @0x8
0x2af4…2b0a at0009 = ╱dc╱=╱ // 0x2afd @0x9
0x2af4…2b0a at000a = ╱50╱P╱ // 0x2afe @0xa
0x2af4…2b0a at000b = ╱eb╱;╱ // 0x2aff @0xb
0x2af4…2b0a at000c = ╱50╱P╱ // 0x2b00 @0xc
0x2af4…2b0a at000d = ╱dc╱=╱ // 0x2b01 @0xd
0x2af4…2b0a at000e = ╱e9╱-╱ // 0x2b02 @0xe
0x2af4…2b0a at000f = ╱57╱W╱ // 0x2b03 @0xf
0x2af4…2b0a at0010 = ╱eb╱;╱ // 0x2b04 @0x10
0x2af4…2b0a at0011 = ╱4c╱L╱ // 0x2b05 @0x11
0x2af4…2b0a at0012 = ╱38╱8╱ // 0x2b06 @0x12
0x2af4…2b0a at0013 = ╱dc╱=╱ // 0x2b07 @0x13
0x2af4…2b0a at0014 = ╱47╱G╱ // 0x2b08 @0x14
0x2af4…2b0a at0015 = EOL // 0x2b09 @0x15
0x2af4…2b0a }
0x2b0a…2b16 b86d 5230 CURSOR E,L7+V
0x2b0a…2b16 LineComalBin {
0x2b0a…2b16 ptr = 0xb86d // 0x2b0a @0x0
0x2b0a…2b16 lno = 0x146e // 0x2b0c @0x2
0x2b0a…2b16 at0004 = ╱a1╱ CURSOR ╱ // 0x2b0e @0x4
0x2b0a…2b16 at0005 = ╱45╱E╱ // 0x2b0f @0x5
0x2b0a…2b16 at0006 = ╱ec╱,╱ // 0x2b10 @0x6
0x2b0a…2b16 at0007 = ╱4c╱L╱ // 0x2b11 @0x7
0x2b0a…2b16 at0008 = ╱37╱7╱ // 0x2b12 @0x8
0x2b0a…2b16 at0009 = ╱e2╱+╱ // 0x2b13 @0x9
0x2b0a…2b16 at000a = ╱56╱V╱ // 0x2b14 @0xa
0x2b0a…2b16 at000b = EOL // 0x2b15 @0xb
0x2b0a…2b16 }
0x2b16…2b30 b887 5240 PRINT USING "### #######":L7,J3
0x2b16…2b30 LineComalBin {
0x2b16…2b30 ptr = 0xb887 // 0x2b16 @0x0
0x2b16…2b30 lno = 0x1478 // 0x2b18 @0x2
0x2b16…2b30 at0004 = ╱92╱ PRINT ╱ // 0x2b1a @0x4
0x2b16…2b30 at0005 = ╱b9╱ USING ╱ // 0x2b1b @0x5
0x2b16…2b30 at0006 = ╱22╱"╱ // 0x2b1c @0x6
0x2b16…2b30 at0007 = ╱23╱#╱ // 0x2b1d @0x7
0x2b16…2b30 at0008 = ╱23╱#╱ // 0x2b1e @0x8
0x2b16…2b30 at0009 = ╱23╱#╱ // 0x2b1f @0x9
0x2b16…2b30 at000a = ╱20╱…╱ // 0x2b20 @0xa
0x2b16…2b30 at000b = ╱23╱#╱ // 0x2b21 @0xb
0x2b16…2b30 at000c = ╱23╱#╱ // 0x2b22 @0xc
0x2b16…2b30 at000d = ╱23╱#╱ // 0x2b23 @0xd
0x2b16…2b30 at000e = ╱23╱#╱ // 0x2b24 @0xe
0x2b16…2b30 at000f = ╱23╱#╱ // 0x2b25 @0xf
0x2b16…2b30 at0010 = ╱23╱#╱ // 0x2b26 @0x10
0x2b16…2b30 at0011 = ╱23╱#╱ // 0x2b27 @0x11
0x2b16…2b30 at0012 = ╱22╱"╱ // 0x2b28 @0x12
0x2b16…2b30 at0013 = ╱f0╱:╱ // 0x2b29 @0x13
0x2b16…2b30 at0014 = ╱4c╱L╱ // 0x2b2a @0x14
0x2b16…2b30 at0015 = ╱37╱7╱ // 0x2b2b @0x15
0x2b16…2b30 at0016 = ╱ec╱,╱ // 0x2b2c @0x16
0x2b16…2b30 at0017 = ╱4a╱J╱ // 0x2b2d @0x17
0x2b16…2b30 at0018 = ╱33╱3╱ // 0x2b2e @0x18
0x2b16…2b30 at0019 = EOL // 0x2b2f @0x19
0x2b16…2b30 }
0x2b30…2b38 b88f 5250 WHEN B
0x2b30…2b38 LineComalBin {
0x2b30…2b38 ptr = 0xb88f // 0x2b30 @0x0
0x2b30…2b38 lno = 0x1482 // 0x2b32 @0x2
0x2b30…2b38 at0004 = ╱a301╱ WHEN ╱ // 0x2b34 @0x4
0x2b30…2b38 at0006 = ╱42╱B╱ // 0x2b36 @0x6
0x2b30…2b38 at0007 = EOL // 0x2b37 @0x7
0x2b30…2b38 }
0x2b38…2b43 b89a 5260 IF J6=B THEN
0x2b38…2b43 LineComalBin {
0x2b38…2b43 ptr = 0xb89a // 0x2b38 @0x0
0x2b38…2b43 lno = 0x148c // 0x2b3a @0x2
0x2b38…2b43 at0004 = ╱9c╱ IF ╱ // 0x2b3c @0x4
0x2b38…2b43 at0005 = ╱4a╱J╱ // 0x2b3d @0x5
0x2b38…2b43 at0006 = ╱36╱6╱ // 0x2b3e @0x6
0x2b38…2b43 at0007 = ╱dc╱=╱ // 0x2b3f @0x7
0x2b38…2b43 at0008 = ╱42╱B╱ // 0x2b40 @0x8
0x2b38…2b43 at0009 = ╱b6╱ THEN ╱ // 0x2b41 @0x9
0x2b38…2b43 at000a = EOL // 0x2b42 @0xa
0x2b38…2b43 }
0x2b43…2b65 b8bc 5270 IF I8>N3-V OR O3+A7(E)+A6(G)>N4-V THEN
0x2b43…2b65 LineComalBin {
0x2b43…2b65 ptr = 0xb8bc // 0x2b43 @0x0
0x2b43…2b65 lno = 0x1496 // 0x2b45 @0x2
0x2b43…2b65 at0004 = ╱9c╱ IF ╱ // 0x2b47 @0x4
0x2b43…2b65 at0005 = ╱49╱I╱ // 0x2b48 @0x5
0x2b43…2b65 at0006 = ╱38╱8╱ // 0x2b49 @0x6
0x2b43…2b65 at0007 = ╱de╱>╱ // 0x2b4a @0x7
0x2b43…2b65 at0008 = ╱4e╱N╱ // 0x2b4b @0x8
0x2b43…2b65 at0009 = ╱33╱3╱ // 0x2b4c @0x9
0x2b43…2b65 at000a = ╱e3╱-╱ // 0x2b4d @0xa
0x2b43…2b65 at000b = ╱56╱V╱ // 0x2b4e @0xb
0x2b43…2b65 at000c = ╱db╱ OR ╱ // 0x2b4f @0xc
0x2b43…2b65 at000d = ╱4f╱O╱ // 0x2b50 @0xd
0x2b43…2b65 at000e = ╱33╱3╱ // 0x2b51 @0xe
0x2b43…2b65 at000f = ╱e2╱+╱ // 0x2b52 @0xf
0x2b43…2b65 at0010 = ╱41╱A╱ // 0x2b53 @0x10
0x2b43…2b65 at0011 = ╱37╱7╱ // 0x2b54 @0x11
0x2b43…2b65 at0012 = ╱ed╱(╱ // 0x2b55 @0x12
0x2b43…2b65 at0013 = ╱45╱E╱ // 0x2b56 @0x13
0x2b43…2b65 at0014 = ╱ee╱)╱ // 0x2b57 @0x14
0x2b43…2b65 at0015 = ╱e2╱+╱ // 0x2b58 @0x15
0x2b43…2b65 at0016 = ╱41╱A╱ // 0x2b59 @0x16
0x2b43…2b65 at0017 = ╱36╱6╱ // 0x2b5a @0x17
0x2b43…2b65 at0018 = ╱ed╱(╱ // 0x2b5b @0x18
0x2b43…2b65 at0019 = ╱47╱G╱ // 0x2b5c @0x19
0x2b43…2b65 at001a = ╱ee╱)╱ // 0x2b5d @0x1a
0x2b43…2b65 at001b = ╱de╱>╱ // 0x2b5e @0x1b
0x2b43…2b65 at001c = ╱4e╱N╱ // 0x2b5f @0x1c
0x2b43…2b65 at001d = ╱34╱4╱ // 0x2b60 @0x1d
0x2b43…2b65 at001e = ╱e3╱-╱ // 0x2b61 @0x1e
0x2b43…2b65 at001f = ╱56╱V╱ // 0x2b62 @0x1f
0x2b43…2b65 at0020 = ╱b6╱ THEN ╱ // 0x2b63 @0x20
0x2b43…2b65 at0021 = EOL // 0x2b64 @0x21
0x2b43…2b65 }
0x2b65…2b6b b8c2 5280 REPEAT
0x2b65…2b6b LineComalBin {
0x2b65…2b6b ptr = 0xb8c2 // 0x2b65 @0x0
0x2b65…2b6b lno = 0x14a0 // 0x2b67 @0x2
0x2b65…2b6b at0004 = ╱97╱ REPEAT ╱ // 0x2b69 @0x4
0x2b65…2b6b at0005 = EOL // 0x2b6a @0x5
0x2b65…2b6b }
0x2b6b…2b7a b8d1 5290 CURSOR V,23
0x2b6b…2b7a LineComalBin {
0x2b6b…2b7a ptr = 0xb8d1 // 0x2b6b @0x0
0x2b6b…2b7a lno = 0x14aa // 0x2b6d @0x2
0x2b6b…2b7a at0004 = ╱a1╱ CURSOR ╱ // 0x2b6f @0x4
0x2b6b…2b7a at0005 = ╱56╱V╱ // 0x2b70 @0x5
0x2b6b…2b7a at0006 = ╱ec╱,╱ // 0x2b71 @0x6
0x2b6b…2b7a at0007 = ╱32╱2╱ // 0x2b72 @0x7
0x2b6b…2b7a at0008 = ╱33╱3╱ // 0x2b73 @0x8
0x2b6b…2b7a at0009 = ╱fe0000b805╱ // 0x2b74 @0x9
0x2b6b…2b7a at000e = EOL // 0x2b79 @0xe
0x2b6b…2b7a }
0x2b7a…2bbf b916 5300 PRINT "Ikke plads til flere posteringer , tast RETURN";E2$(E:30)
0x2b7a…2bbf LineComalBin {
0x2b7a…2bbf ptr = 0xb916 // 0x2b7a @0x0
0x2b7a…2bbf lno = 0x14b4 // 0x2b7c @0x2
0x2b7a…2bbf at0004 = ╱92╱ PRINT ╱ // 0x2b7e @0x4
0x2b7a…2bbf at0005 = ╱22╱"╱ // 0x2b7f @0x5
0x2b7a…2bbf at0006 = ╱49╱I╱ // 0x2b80 @0x6
0x2b7a…2bbf at0007 = ╱6b╱k╱ // 0x2b81 @0x7
0x2b7a…2bbf at0008 = ╱6b╱k╱ // 0x2b82 @0x8
0x2b7a…2bbf at0009 = ╱65╱e╱ // 0x2b83 @0x9
0x2b7a…2bbf at000a = ╱20╱…╱ // 0x2b84 @0xa
0x2b7a…2bbf at000b = ╱70╱p╱ // 0x2b85 @0xb
0x2b7a…2bbf at000c = ╱6c╱l╱ // 0x2b86 @0xc
0x2b7a…2bbf at000d = ╱61╱a╱ // 0x2b87 @0xd
0x2b7a…2bbf at000e = ╱64╱d╱ // 0x2b88 @0xe
0x2b7a…2bbf at000f = ╱73╱s╱ // 0x2b89 @0xf
0x2b7a…2bbf at0010 = ╱20╱…╱ // 0x2b8a @0x10
0x2b7a…2bbf at0011 = ╱74╱t╱ // 0x2b8b @0x11
0x2b7a…2bbf at0012 = ╱69╱i╱ // 0x2b8c @0x12
0x2b7a…2bbf at0013 = ╱6c╱l╱ // 0x2b8d @0x13
0x2b7a…2bbf at0014 = ╱20╱…╱ // 0x2b8e @0x14
0x2b7a…2bbf at0015 = ╱66╱f╱ // 0x2b8f @0x15
0x2b7a…2bbf at0016 = ╱6c╱l╱ // 0x2b90 @0x16
0x2b7a…2bbf at0017 = ╱65╱e╱ // 0x2b91 @0x17
0x2b7a…2bbf at0018 = ╱72╱r╱ // 0x2b92 @0x18
0x2b7a…2bbf at0019 = ╱65╱e╱ // 0x2b93 @0x19
0x2b7a…2bbf at001a = ╱20╱…╱ // 0x2b94 @0x1a
0x2b7a…2bbf at001b = ╱70╱p╱ // 0x2b95 @0x1b
0x2b7a…2bbf at001c = ╱6f╱o╱ // 0x2b96 @0x1c
0x2b7a…2bbf at001d = ╱73╱s╱ // 0x2b97 @0x1d
0x2b7a…2bbf at001e = ╱74╱t╱ // 0x2b98 @0x1e
0x2b7a…2bbf at001f = ╱65╱e╱ // 0x2b99 @0x1f
0x2b7a…2bbf at0020 = ╱72╱r╱ // 0x2b9a @0x20
0x2b7a…2bbf at0021 = ╱69╱i╱ // 0x2b9b @0x21
0x2b7a…2bbf at0022 = ╱6e╱n╱ // 0x2b9c @0x22
0x2b7a…2bbf at0023 = ╱67╱g╱ // 0x2b9d @0x23
0x2b7a…2bbf at0024 = ╱65╱e╱ // 0x2b9e @0x24
0x2b7a…2bbf at0025 = ╱72╱r╱ // 0x2b9f @0x25
0x2b7a…2bbf at0026 = ╱20╱…╱ // 0x2ba0 @0x26
0x2b7a…2bbf at0027 = ╱2c╱,╱ // 0x2ba1 @0x27
0x2b7a…2bbf at0028 = ╱20╱…╱ // 0x2ba2 @0x28
0x2b7a…2bbf at0029 = ╱74╱t╱ // 0x2ba3 @0x29
0x2b7a…2bbf at002a = ╱61╱a╱ // 0x2ba4 @0x2a
0x2b7a…2bbf at002b = ╱73╱s╱ // 0x2ba5 @0x2b
0x2b7a…2bbf at002c = ╱74╱t╱ // 0x2ba6 @0x2c
0x2b7a…2bbf at002d = ╱20╱…╱ // 0x2ba7 @0x2d
0x2b7a…2bbf at002e = ╱52╱R╱ // 0x2ba8 @0x2e
0x2b7a…2bbf at002f = ╱45╱E╱ // 0x2ba9 @0x2f
0x2b7a…2bbf at0030 = ╱54╱T╱ // 0x2baa @0x30
0x2b7a…2bbf at0031 = ╱55╱U╱ // 0x2bab @0x31
0x2b7a…2bbf at0032 = ╱52╱R╱ // 0x2bac @0x32
0x2b7a…2bbf at0033 = ╱4e╱N╱ // 0x2bad @0x33
0x2b7a…2bbf at0034 = ╱22╱"╱ // 0x2bae @0x34
0x2b7a…2bbf at0035 = ╱eb╱;╱ // 0x2baf @0x35
0x2b7a…2bbf at0036 = ╱45╱E╱ // 0x2bb0 @0x36
0x2b7a…2bbf at0037 = ╱32╱2╱ // 0x2bb1 @0x37
0x2b7a…2bbf at0038 = ╱ef╱$╱ // 0x2bb2 @0x38
0x2b7a…2bbf at0039 = ╱ed╱(╱ // 0x2bb3 @0x39
0x2b7a…2bbf at003a = ╱45╱E╱ // 0x2bb4 @0x3a
0x2b7a…2bbf at003b = ╱f0╱:╱ // 0x2bb5 @0x3b
0x2b7a…2bbf at003c = ╱33╱3╱ // 0x2bb6 @0x3c
0x2b7a…2bbf at003d = ╱30╱0╱ // 0x2bb7 @0x3d
0x2b7a…2bbf at003e = ╱fe0000f005╱ // 0x2bb8 @0x3e
0x2b7a…2bbf at0043 = ╱ee╱)╱ // 0x2bbd @0x43
0x2b7a…2bbf at0044 = EOL // 0x2bbe @0x44
0x2b7a…2bbf }
0x2bbf…2bd4 b92b 5310 CURSOR 50,23
0x2bbf…2bd4 LineComalBin {
0x2bbf…2bd4 ptr = 0xb92b // 0x2bbf @0x0
0x2bbf…2bd4 lno = 0x14be // 0x2bc1 @0x2
0x2bbf…2bd4 at0004 = ╱a1╱ CURSOR ╱ // 0x2bc3 @0x4
0x2bbf…2bd4 at0005 = ╱35╱5╱ // 0x2bc4 @0x5
0x2bbf…2bd4 at0006 = ╱30╱0╱ // 0x2bc5 @0x6
0x2bbf…2bd4 at0007 = ╱fe0000c806╱ // 0x2bc6 @0x7
0x2bbf…2bd4 at000c = ╱ec╱,╱ // 0x2bcb @0xc
0x2bbf…2bd4 at000d = ╱32╱2╱ // 0x2bcc @0xd
0x2bbf…2bd4 at000e = ╱33╱3╱ // 0x2bcd @0xe
0x2bbf…2bd4 at000f = ╱fe0000b805╱ // 0x2bce @0xf
0x2bbf…2bd4 at0014 = EOL // 0x2bd3 @0x14
0x2bbf…2bd4 }
0x2bd4…2bdc b933 5320 INPUT A$
0x2bd4…2bdc LineComalBin {
0x2bd4…2bdc ptr = 0xb933 // 0x2bd4 @0x0
0x2bd4…2bdc lno = 0x14c8 // 0x2bd6 @0x2
0x2bd4…2bdc at0004 = ╱91╱ INPUT ╱ // 0x2bd8 @0x4
0x2bd4…2bdc at0005 = ╱41╱A╱ // 0x2bd9 @0x5
0x2bd4…2bdc at0006 = ╱ef╱$╱ // 0x2bda @0x6
0x2bd4…2bdc at0007 = EOL // 0x2bdb @0x7
0x2bd4…2bdc }
0x2bdc…2bec b943 5330 EXEC NRTEST(A$)
0x2bdc…2bec LineComalBin {
0x2bdc…2bec ptr = 0xb943 // 0x2bdc @0x0
0x2bdc…2bec lno = 0x14d2 // 0x2bde @0x2
0x2bdc…2bec at0004 = ╱9d╱ EXEC ╱ // 0x2be0 @0x4
0x2bdc…2bec at0005 = ╱4e╱N╱ // 0x2be1 @0x5
0x2bdc…2bec at0006 = ╱52╱R╱ // 0x2be2 @0x6
0x2bdc…2bec at0007 = ╱54╱T╱ // 0x2be3 @0x7
0x2bdc…2bec at0008 = ╱45╱E╱ // 0x2be4 @0x8
0x2bdc…2bec at0009 = ╱53╱S╱ // 0x2be5 @0x9
0x2bdc…2bec at000a = ╱54╱T╱ // 0x2be6 @0xa
0x2bdc…2bec at000b = ╱ed╱(╱ // 0x2be7 @0xb
0x2bdc…2bec at000c = ╱41╱A╱ // 0x2be8 @0xc
0x2bdc…2bec at000d = ╱ef╱$╱ // 0x2be9 @0xd
0x2bdc…2bec at000e = ╱ee╱)╱ // 0x2bea @0xe
0x2bdc…2bec at000f = EOL // 0x2beb @0xf
0x2bdc…2bec }
0x2bec…2bf6 b94d 5340 UNTIL P=-E
0x2bec…2bf6 LineComalBin {
0x2bec…2bf6 ptr = 0xb94d // 0x2bec @0x0
0x2bec…2bf6 lno = 0x14dc // 0x2bee @0x2
0x2bec…2bf6 at0004 = ╱98╱ UNTIL ╱ // 0x2bf0 @0x4
0x2bec…2bf6 at0005 = ╱50╱P╱ // 0x2bf1 @0x5
0x2bec…2bf6 at0006 = ╱dc╱=╱ // 0x2bf2 @0x6
0x2bec…2bf6 at0007 = ╱e9╱-╱ // 0x2bf3 @0x7
0x2bec…2bf6 at0008 = ╱45╱E╱ // 0x2bf4 @0x8
0x2bec…2bf6 at0009 = EOL // 0x2bf5 @0x9
0x2bec…2bf6 }
0x2bf6…2bfc b953 5350 ENDIF
0x2bf6…2bfc LineComalBin {
0x2bf6…2bfc ptr = 0xb953 // 0x2bf6 @0x0
0x2bf6…2bfc lno = 0x14e6 // 0x2bf8 @0x2
0x2bf6…2bfc at0004 = ╱9b╱ ENDIF ╱ // 0x2bfa @0x4
0x2bf6…2bfc at0005 = EOL // 0x2bfb @0x5
0x2bf6…2bfc }
0x2bfc…2c0f b966 5360 P=-W;L8=8
0x2bfc…2c0f LineComalBin {
0x2bfc…2c0f ptr = 0xb966 // 0x2bfc @0x0
0x2bfc…2c0f lno = 0x14f0 // 0x2bfe @0x2
0x2bfc…2c0f at0004 = ╱50╱P╱ // 0x2c00 @0x4
0x2bfc…2c0f at0005 = ╱dc╱=╱ // 0x2c01 @0x5
0x2bfc…2c0f at0006 = ╱e9╱-╱ // 0x2c02 @0x6
0x2bfc…2c0f at0007 = ╱57╱W╱ // 0x2c03 @0x7
0x2bfc…2c0f at0008 = ╱eb╱;╱ // 0x2c04 @0x8
0x2bfc…2c0f at0009 = ╱4c╱L╱ // 0x2c05 @0x9
0x2bfc…2c0f at000a = ╱38╱8╱ // 0x2c06 @0xa
0x2bfc…2c0f at000b = ╱dc╱=╱ // 0x2c07 @0xb
0x2bfc…2c0f at000c = ╱38╱8╱ // 0x2c08 @0xc
0x2bfc…2c0f at000d = ╱fe00008004╱ // 0x2c09 @0xd
0x2bfc…2c0f at0012 = EOL // 0x2c0e @0x12
0x2bfc…2c0f }
0x2c0f…2c15 b96c 5370 ELSE
0x2c0f…2c15 LineComalBin {
0x2c0f…2c15 ptr = 0xb96c // 0x2c0f @0x0
0x2c0f…2c15 lno = 0x14fa // 0x2c11 @0x2
0x2c0f…2c15 at0004 = ╱9a╱ ELSE ╱ // 0x2c13 @0x4
0x2c0f…2c15 at0005 = EOL // 0x2c14 @0x5
0x2c0f…2c15 }
0x2c15…2c42 b999 5380 IF O3>N3-V OR K1=35 OR O3+A7(E)+A6(G)>N4-V THEN
0x2c15…2c42 LineComalBin {
0x2c15…2c42 ptr = 0xb999 // 0x2c15 @0x0
0x2c15…2c42 lno = 0x1504 // 0x2c17 @0x2
0x2c15…2c42 at0004 = ╱9c╱ IF ╱ // 0x2c19 @0x4
0x2c15…2c42 at0005 = ╱4f╱O╱ // 0x2c1a @0x5
0x2c15…2c42 at0006 = ╱33╱3╱ // 0x2c1b @0x6
0x2c15…2c42 at0007 = ╱de╱>╱ // 0x2c1c @0x7
0x2c15…2c42 at0008 = ╱4e╱N╱ // 0x2c1d @0x8
0x2c15…2c42 at0009 = ╱33╱3╱ // 0x2c1e @0x9
0x2c15…2c42 at000a = ╱e3╱-╱ // 0x2c1f @0xa
0x2c15…2c42 at000b = ╱56╱V╱ // 0x2c20 @0xb
0x2c15…2c42 at000c = ╱db╱ OR ╱ // 0x2c21 @0xc
0x2c15…2c42 at000d = ╱4b╱K╱ // 0x2c22 @0xd
0x2c15…2c42 at000e = ╱31╱1╱ // 0x2c23 @0xe
0x2c15…2c42 at000f = ╱dc╱=╱ // 0x2c24 @0xf
0x2c15…2c42 at0010 = ╱33╱3╱ // 0x2c25 @0x10
0x2c15…2c42 at0011 = ╱35╱5╱ // 0x2c26 @0x11
0x2c15…2c42 at0012 = ╱fe00008c06╱ // 0x2c27 @0x12
0x2c15…2c42 at0017 = ╱db╱ OR ╱ // 0x2c2c @0x17
0x2c15…2c42 at0018 = ╱4f╱O╱ // 0x2c2d @0x18
0x2c15…2c42 at0019 = ╱33╱3╱ // 0x2c2e @0x19
0x2c15…2c42 at001a = ╱e2╱+╱ // 0x2c2f @0x1a
0x2c15…2c42 at001b = ╱41╱A╱ // 0x2c30 @0x1b
0x2c15…2c42 at001c = ╱37╱7╱ // 0x2c31 @0x1c
0x2c15…2c42 at001d = ╱ed╱(╱ // 0x2c32 @0x1d
0x2c15…2c42 at001e = ╱45╱E╱ // 0x2c33 @0x1e
0x2c15…2c42 at001f = ╱ee╱)╱ // 0x2c34 @0x1f
0x2c15…2c42 at0020 = ╱e2╱+╱ // 0x2c35 @0x20
0x2c15…2c42 at0021 = ╱41╱A╱ // 0x2c36 @0x21
0x2c15…2c42 at0022 = ╱36╱6╱ // 0x2c37 @0x22
0x2c15…2c42 at0023 = ╱ed╱(╱ // 0x2c38 @0x23
0x2c15…2c42 at0024 = ╱47╱G╱ // 0x2c39 @0x24
0x2c15…2c42 at0025 = ╱ee╱)╱ // 0x2c3a @0x25
0x2c15…2c42 at0026 = ╱de╱>╱ // 0x2c3b @0x26
0x2c15…2c42 at0027 = ╱4e╱N╱ // 0x2c3c @0x27
0x2c15…2c42 at0028 = ╱34╱4╱ // 0x2c3d @0x28
0x2c15…2c42 at0029 = ╱e3╱-╱ // 0x2c3e @0x29
0x2c15…2c42 at002a = ╱56╱V╱ // 0x2c3f @0x2a
0x2c15…2c42 at002b = ╱b6╱ THEN ╱ // 0x2c40 @0x2b
0x2c15…2c42 at002c = EOL // 0x2c41 @0x2c
0x2c15…2c42 }
0x2c42…2c5e b9b5 5390 EXEC CA(4,D0$,B6$,D0$)
0x2c42…2c5e LineComalBin {
0x2c42…2c5e ptr = 0xb9b5 // 0x2c42 @0x0
0x2c42…2c5e lno = 0x150e // 0x2c44 @0x2
0x2c42…2c5e at0004 = ╱9d╱ EXEC ╱ // 0x2c46 @0x4
0x2c42…2c5e at0005 = ╱43╱C╱ // 0x2c47 @0x5
0x2c42…2c5e at0006 = ╱41╱A╱ // 0x2c48 @0x6
0x2c42…2c5e at0007 = ╱ed╱(╱ // 0x2c49 @0x7
0x2c42…2c5e at0008 = ╱34╱4╱ // 0x2c4a @0x8
0x2c42…2c5e at0009 = ╱fe00008003╱ // 0x2c4b @0x9
0x2c42…2c5e at000e = ╱ec╱,╱ // 0x2c50 @0xe
0x2c42…2c5e at000f = ╱44╱D╱ // 0x2c51 @0xf
0x2c42…2c5e at0010 = ╱30╱0╱ // 0x2c52 @0x10
0x2c42…2c5e at0011 = ╱ef╱$╱ // 0x2c53 @0x11
0x2c42…2c5e at0012 = ╱ec╱,╱ // 0x2c54 @0x12
0x2c42…2c5e at0013 = ╱42╱B╱ // 0x2c55 @0x13
0x2c42…2c5e at0014 = ╱36╱6╱ // 0x2c56 @0x14
0x2c42…2c5e at0015 = ╱ef╱$╱ // 0x2c57 @0x15
0x2c42…2c5e at0016 = ╱ec╱,╱ // 0x2c58 @0x16
0x2c42…2c5e at0017 = ╱44╱D╱ // 0x2c59 @0x17
0x2c42…2c5e at0018 = ╱30╱0╱ // 0x2c5a @0x18
0x2c42…2c5e at0019 = ╱ef╱$╱ // 0x2c5b @0x19
0x2c42…2c5e at001a = ╱ee╱)╱ // 0x2c5c @0x1a
0x2c42…2c5e at001b = EOL // 0x2c5d @0x1b
0x2c42…2c5e }
0x2c5e…2c69 b9c0 5400 IF SI<>B THEN
0x2c5e…2c69 LineComalBin {
0x2c5e…2c69 ptr = 0xb9c0 // 0x2c5e @0x0
0x2c5e…2c69 lno = 0x1518 // 0x2c60 @0x2
0x2c5e…2c69 at0004 = ╱9c╱ IF ╱ // 0x2c62 @0x4
0x2c5e…2c69 at0005 = ╱53╱S╱ // 0x2c63 @0x5
0x2c5e…2c69 at0006 = ╱49╱I╱ // 0x2c64 @0x6
0x2c5e…2c69 at0007 = ╱e1╱<>╱ // 0x2c65 @0x7
0x2c5e…2c69 at0008 = ╱42╱B╱ // 0x2c66 @0x8
0x2c5e…2c69 at0009 = ╱b6╱ THEN ╱ // 0x2c67 @0x9
0x2c5e…2c69 at000a = EOL // 0x2c68 @0xa
0x2c5e…2c69 }
0x2c69…2c7f b9d6 5410 EXEC TUD(B6$,C4$,E,B)
0x2c69…2c7f LineComalBin {
0x2c69…2c7f ptr = 0xb9d6 // 0x2c69 @0x0
0x2c69…2c7f lno = 0x1522 // 0x2c6b @0x2
0x2c69…2c7f at0004 = ╱9d╱ EXEC ╱ // 0x2c6d @0x4
0x2c69…2c7f at0005 = ╱54╱T╱ // 0x2c6e @0x5
0x2c69…2c7f at0006 = ╱55╱U╱ // 0x2c6f @0x6
0x2c69…2c7f at0007 = ╱44╱D╱ // 0x2c70 @0x7
0x2c69…2c7f at0008 = ╱ed╱(╱ // 0x2c71 @0x8
0x2c69…2c7f at0009 = ╱42╱B╱ // 0x2c72 @0x9
0x2c69…2c7f at000a = ╱36╱6╱ // 0x2c73 @0xa
0x2c69…2c7f at000b = ╱ef╱$╱ // 0x2c74 @0xb
0x2c69…2c7f at000c = ╱ec╱,╱ // 0x2c75 @0xc
0x2c69…2c7f at000d = ╱43╱C╱ // 0x2c76 @0xd
0x2c69…2c7f at000e = ╱34╱4╱ // 0x2c77 @0xe
0x2c69…2c7f at000f = ╱ef╱$╱ // 0x2c78 @0xf
0x2c69…2c7f at0010 = ╱ec╱,╱ // 0x2c79 @0x10
0x2c69…2c7f at0011 = ╱45╱E╱ // 0x2c7a @0x11
0x2c69…2c7f at0012 = ╱ec╱,╱ // 0x2c7b @0x12
0x2c69…2c7f at0013 = ╱42╱B╱ // 0x2c7c @0x13
0x2c69…2c7f at0014 = ╱ee╱)╱ // 0x2c7d @0x14
0x2c69…2c7f at0015 = EOL // 0x2c7e @0x15
0x2c69…2c7f }
0x2c7f…2c85 b9dc 5420 REPEAT
0x2c7f…2c85 LineComalBin {
0x2c7f…2c85 ptr = 0xb9dc // 0x2c7f @0x0
0x2c7f…2c85 lno = 0x152c // 0x2c81 @0x2
0x2c7f…2c85 at0004 = ╱97╱ REPEAT ╱ // 0x2c83 @0x4
0x2c7f…2c85 at0005 = EOL // 0x2c84 @0x5
0x2c7f…2c85 }
0x2c85…2c94 b9eb 5430 CURSOR V,23
0x2c85…2c94 LineComalBin {
0x2c85…2c94 ptr = 0xb9eb // 0x2c85 @0x0
0x2c85…2c94 lno = 0x1536 // 0x2c87 @0x2
0x2c85…2c94 at0004 = ╱a1╱ CURSOR ╱ // 0x2c89 @0x4
0x2c85…2c94 at0005 = ╱56╱V╱ // 0x2c8a @0x5
0x2c85…2c94 at0006 = ╱ec╱,╱ // 0x2c8b @0x6
0x2c85…2c94 at0007 = ╱32╱2╱ // 0x2c8c @0x7
0x2c85…2c94 at0008 = ╱33╱3╱ // 0x2c8d @0x8
0x2c85…2c94 at0009 = ╱fe0000b805╱ // 0x2c8e @0x9
0x2c85…2c94 at000e = EOL // 0x2c93 @0xe
0x2c85…2c94 }
0x2c94…2cd8 ba2f 5440 PRINT "Ikke plads til flere posteringer,";C4$;" på differencekonto";
0x2c94…2cd8 LineComalBin {
0x2c94…2cd8 ptr = 0xba2f // 0x2c94 @0x0
0x2c94…2cd8 lno = 0x1540 // 0x2c96 @0x2
0x2c94…2cd8 at0004 = ╱92╱ PRINT ╱ // 0x2c98 @0x4
0x2c94…2cd8 at0005 = ╱22╱"╱ // 0x2c99 @0x5
0x2c94…2cd8 at0006 = ╱49╱I╱ // 0x2c9a @0x6
0x2c94…2cd8 at0007 = ╱6b╱k╱ // 0x2c9b @0x7
0x2c94…2cd8 at0008 = ╱6b╱k╱ // 0x2c9c @0x8
0x2c94…2cd8 at0009 = ╱65╱e╱ // 0x2c9d @0x9
0x2c94…2cd8 at000a = ╱20╱…╱ // 0x2c9e @0xa
0x2c94…2cd8 at000b = ╱70╱p╱ // 0x2c9f @0xb
0x2c94…2cd8 at000c = ╱6c╱l╱ // 0x2ca0 @0xc
0x2c94…2cd8 at000d = ╱61╱a╱ // 0x2ca1 @0xd
0x2c94…2cd8 at000e = ╱64╱d╱ // 0x2ca2 @0xe
0x2c94…2cd8 at000f = ╱73╱s╱ // 0x2ca3 @0xf
0x2c94…2cd8 at0010 = ╱20╱…╱ // 0x2ca4 @0x10
0x2c94…2cd8 at0011 = ╱74╱t╱ // 0x2ca5 @0x11
0x2c94…2cd8 at0012 = ╱69╱i╱ // 0x2ca6 @0x12
0x2c94…2cd8 at0013 = ╱6c╱l╱ // 0x2ca7 @0x13
0x2c94…2cd8 at0014 = ╱20╱…╱ // 0x2ca8 @0x14
0x2c94…2cd8 at0015 = ╱66╱f╱ // 0x2ca9 @0x15
0x2c94…2cd8 at0016 = ╱6c╱l╱ // 0x2caa @0x16
0x2c94…2cd8 at0017 = ╱65╱e╱ // 0x2cab @0x17
0x2c94…2cd8 at0018 = ╱72╱r╱ // 0x2cac @0x18
0x2c94…2cd8 at0019 = ╱65╱e╱ // 0x2cad @0x19
0x2c94…2cd8 at001a = ╱20╱…╱ // 0x2cae @0x1a
0x2c94…2cd8 at001b = ╱70╱p╱ // 0x2caf @0x1b
0x2c94…2cd8 at001c = ╱6f╱o╱ // 0x2cb0 @0x1c
0x2c94…2cd8 at001d = ╱73╱s╱ // 0x2cb1 @0x1d
0x2c94…2cd8 at001e = ╱74╱t╱ // 0x2cb2 @0x1e
0x2c94…2cd8 at001f = ╱65╱e╱ // 0x2cb3 @0x1f
0x2c94…2cd8 at0020 = ╱72╱r╱ // 0x2cb4 @0x20
0x2c94…2cd8 at0021 = ╱69╱i╱ // 0x2cb5 @0x21
0x2c94…2cd8 at0022 = ╱6e╱n╱ // 0x2cb6 @0x22
0x2c94…2cd8 at0023 = ╱67╱g╱ // 0x2cb7 @0x23
0x2c94…2cd8 at0024 = ╱65╱e╱ // 0x2cb8 @0x24
0x2c94…2cd8 at0025 = ╱72╱r╱ // 0x2cb9 @0x25
0x2c94…2cd8 at0026 = ╱2c╱,╱ // 0x2cba @0x26
0x2c94…2cd8 at0027 = ╱22╱"╱ // 0x2cbb @0x27
0x2c94…2cd8 at0028 = ╱eb╱;╱ // 0x2cbc @0x28
0x2c94…2cd8 at0029 = ╱43╱C╱ // 0x2cbd @0x29
0x2c94…2cd8 at002a = ╱34╱4╱ // 0x2cbe @0x2a
0x2c94…2cd8 at002b = ╱ef╱$╱ // 0x2cbf @0x2b
0x2c94…2cd8 at002c = ╱eb╱;╱ // 0x2cc0 @0x2c
0x2c94…2cd8 at002d = ╱22╱"╱ // 0x2cc1 @0x2d
0x2c94…2cd8 at002e = ╱20╱…╱ // 0x2cc2 @0x2e
0x2c94…2cd8 at002f = ╱70╱p╱ // 0x2cc3 @0x2f
0x2c94…2cd8 at0030 = ╱7d╱å╱ // 0x2cc4 @0x30
0x2c94…2cd8 at0031 = ╱20╱…╱ // 0x2cc5 @0x31
0x2c94…2cd8 at0032 = ╱64╱d╱ // 0x2cc6 @0x32
0x2c94…2cd8 at0033 = ╱69╱i╱ // 0x2cc7 @0x33
0x2c94…2cd8 at0034 = ╱66╱f╱ // 0x2cc8 @0x34
0x2c94…2cd8 at0035 = ╱66╱f╱ // 0x2cc9 @0x35
0x2c94…2cd8 at0036 = ╱65╱e╱ // 0x2cca @0x36
0x2c94…2cd8 at0037 = ╱72╱r╱ // 0x2ccb @0x37
0x2c94…2cd8 at0038 = ╱65╱e╱ // 0x2ccc @0x38
0x2c94…2cd8 at0039 = ╱6e╱n╱ // 0x2ccd @0x39
0x2c94…2cd8 at003a = ╱63╱c╱ // 0x2cce @0x3a
0x2c94…2cd8 at003b = ╱65╱e╱ // 0x2ccf @0x3b
0x2c94…2cd8 at003c = ╱6b╱k╱ // 0x2cd0 @0x3c
0x2c94…2cd8 at003d = ╱6f╱o╱ // 0x2cd1 @0x3d
0x2c94…2cd8 at003e = ╱6e╱n╱ // 0x2cd2 @0x3e
0x2c94…2cd8 at003f = ╱74╱t╱ // 0x2cd3 @0x3f
0x2c94…2cd8 at0040 = ╱6f╱o╱ // 0x2cd4 @0x40
0x2c94…2cd8 at0041 = ╱22╱"╱ // 0x2cd5 @0x41
0x2c94…2cd8 at0042 = ╱eb╱;╱ // 0x2cd6 @0x42
0x2c94…2cd8 at0043 = EOL // 0x2cd7 @0x43
0x2c94…2cd8 }
0x2cd8…2ce7 ba3e 5450 PRINT ",RETURN"
0x2cd8…2ce7 LineComalBin {
0x2cd8…2ce7 ptr = 0xba3e // 0x2cd8 @0x0
0x2cd8…2ce7 lno = 0x154a // 0x2cda @0x2
0x2cd8…2ce7 at0004 = ╱92╱ PRINT ╱ // 0x2cdc @0x4
0x2cd8…2ce7 at0005 = ╱22╱"╱ // 0x2cdd @0x5
0x2cd8…2ce7 at0006 = ╱2c╱,╱ // 0x2cde @0x6
0x2cd8…2ce7 at0007 = ╱52╱R╱ // 0x2cdf @0x7
0x2cd8…2ce7 at0008 = ╱45╱E╱ // 0x2ce0 @0x8
0x2cd8…2ce7 at0009 = ╱54╱T╱ // 0x2ce1 @0x9
0x2cd8…2ce7 at000a = ╱55╱U╱ // 0x2ce2 @0xa
0x2cd8…2ce7 at000b = ╱52╱R╱ // 0x2ce3 @0xb
0x2cd8…2ce7 at000c = ╱4e╱N╱ // 0x2ce4 @0xc
0x2cd8…2ce7 at000d = ╱22╱"╱ // 0x2ce5 @0xd
0x2cd8…2ce7 at000e = EOL // 0x2ce6 @0xe
0x2cd8…2ce7 }
0x2ce7…2cfc ba53 5460 CURSOR 76,23
0x2ce7…2cfc LineComalBin {
0x2ce7…2cfc ptr = 0xba53 // 0x2ce7 @0x0
0x2ce7…2cfc lno = 0x1554 // 0x2ce9 @0x2
0x2ce7…2cfc at0004 = ╱a1╱ CURSOR ╱ // 0x2ceb @0x4
0x2ce7…2cfc at0005 = ╱37╱7╱ // 0x2cec @0x5
0x2ce7…2cfc at0006 = ╱36╱6╱ // 0x2ced @0x6
0x2ce7…2cfc at0007 = ╱fe00009807╱ // 0x2cee @0x7
0x2ce7…2cfc at000c = ╱ec╱,╱ // 0x2cf3 @0xc
0x2ce7…2cfc at000d = ╱32╱2╱ // 0x2cf4 @0xd
0x2ce7…2cfc at000e = ╱33╱3╱ // 0x2cf5 @0xe
0x2ce7…2cfc at000f = ╱fe0000b805╱ // 0x2cf6 @0xf
0x2ce7…2cfc at0014 = EOL // 0x2cfb @0x14
0x2ce7…2cfc }
0x2cfc…2d04 ba5b 5470 INPUT A$
0x2cfc…2d04 LineComalBin {
0x2cfc…2d04 ptr = 0xba5b // 0x2cfc @0x0
0x2cfc…2d04 lno = 0x155e // 0x2cfe @0x2
0x2cfc…2d04 at0004 = ╱91╱ INPUT ╱ // 0x2d00 @0x4
0x2cfc…2d04 at0005 = ╱41╱A╱ // 0x2d01 @0x5
0x2cfc…2d04 at0006 = ╱ef╱$╱ // 0x2d02 @0x6
0x2cfc…2d04 at0007 = EOL // 0x2d03 @0x7
0x2cfc…2d04 }
0x2d04…2d14 ba6b 5480 EXEC NRTEST(A$)
0x2d04…2d14 LineComalBin {
0x2d04…2d14 ptr = 0xba6b // 0x2d04 @0x0
0x2d04…2d14 lno = 0x1568 // 0x2d06 @0x2
0x2d04…2d14 at0004 = ╱9d╱ EXEC ╱ // 0x2d08 @0x4
0x2d04…2d14 at0005 = ╱4e╱N╱ // 0x2d09 @0x5
0x2d04…2d14 at0006 = ╱52╱R╱ // 0x2d0a @0x6
0x2d04…2d14 at0007 = ╱54╱T╱ // 0x2d0b @0x7
0x2d04…2d14 at0008 = ╱45╱E╱ // 0x2d0c @0x8
0x2d04…2d14 at0009 = ╱53╱S╱ // 0x2d0d @0x9
0x2d04…2d14 at000a = ╱54╱T╱ // 0x2d0e @0xa
0x2d04…2d14 at000b = ╱ed╱(╱ // 0x2d0f @0xb
0x2d04…2d14 at000c = ╱41╱A╱ // 0x2d10 @0xc
0x2d04…2d14 at000d = ╱ef╱$╱ // 0x2d11 @0xd
0x2d04…2d14 at000e = ╱ee╱)╱ // 0x2d12 @0xe
0x2d04…2d14 at000f = EOL // 0x2d13 @0xf
0x2d04…2d14 }
0x2d14…2d1e ba75 5490 UNTIL P=-E
0x2d14…2d1e LineComalBin {
0x2d14…2d1e ptr = 0xba75 // 0x2d14 @0x0
0x2d14…2d1e lno = 0x1572 // 0x2d16 @0x2
0x2d14…2d1e at0004 = ╱98╱ UNTIL ╱ // 0x2d18 @0x4
0x2d14…2d1e at0005 = ╱50╱P╱ // 0x2d19 @0x5
0x2d14…2d1e at0006 = ╱dc╱=╱ // 0x2d1a @0x6
0x2d14…2d1e at0007 = ╱e9╱-╱ // 0x2d1b @0x7
0x2d14…2d1e at0008 = ╱45╱E╱ // 0x2d1c @0x8
0x2d14…2d1e at0009 = EOL // 0x2d1d @0x9
0x2d14…2d1e }
0x2d1e…2d32 (150,) ba89 5500 K1=K1+E;K2=K2+G
0x2d1e…2d32 LineComalBin {
0x2d1e…2d32 ptr = 0xba89 // 0x2d1e @0x0
0x2d1e…2d32 lno = 0x157c // 0x2d20 @0x2
0x2d1e…2d32 at0004 = ╱4b╱K╱ // 0x2d22 @0x4
0x2d1e…2d32 at0005 = ╱31╱1╱ // 0x2d23 @0x5
0x2d1e…2d32 at0006 = ╱dc╱=╱ // 0x2d24 @0x6
0x2d1e…2d32 at0007 = ╱4b╱K╱ // 0x2d25 @0x7
0x2d1e…2d32 at0008 = ╱31╱1╱ // 0x2d26 @0x8
0x2d1e…2d32 at0009 = ╱e2╱+╱ // 0x2d27 @0x9
0x2d1e…2d32 at000a = ╱45╱E╱ // 0x2d28 @0xa
0x2d1e…2d32 at000b = ╱eb╱;╱ // 0x2d29 @0xb
0x2d1e…2d32 at000c = ╱4b╱K╱ // 0x2d2a @0xc
0x2d1e…2d32 at000d = ╱32╱2╱ // 0x2d2b @0xd
0x2d1e…2d32 at000e = ╱dc╱=╱ // 0x2d2c @0xe
0x2d1e…2d32 at000f = ╱4b╱K╱ // 0x2d2d @0xf
0x2d1e…2d32 at0010 = ╱32╱2╱ // 0x2d2e @0x10
0x2d1e…2d32 at0011 = ╱e2╱+╱ // 0x2d2f @0x11
0x2d1e…2d32 at0012 = ╱47╱G╱ // 0x2d30 @0x12
0x2d1e…2d32 at0013 = EOL // 0x2d31 @0x13
0x2d1e…2d32 }
0x2d32…2d48 ba9f 5510 IF B6$(LEN(B6$))="+" THEN
0x2d32…2d48 LineComalBin {
0x2d32…2d48 ptr = 0xba9f // 0x2d32 @0x0
0x2d32…2d48 lno = 0x1586 // 0x2d34 @0x2
0x2d32…2d48 at0004 = ╱9c╱ IF ╱ // 0x2d36 @0x4
0x2d32…2d48 at0005 = ╱42╱B╱ // 0x2d37 @0x5
0x2d32…2d48 at0006 = ╱36╱6╱ // 0x2d38 @0x6
0x2d32…2d48 at0007 = ╱ef╱$╱ // 0x2d39 @0x7
0x2d32…2d48 at0008 = ╱ed╱(╱ // 0x2d3a @0x8
0x2d32…2d48 at0009 = ╱cc╱LEN╱ // 0x2d3b @0x9
0x2d32…2d48 at000a = ╱ed╱(╱ // 0x2d3c @0xa
0x2d32…2d48 at000b = ╱42╱B╱ // 0x2d3d @0xb
0x2d32…2d48 at000c = ╱36╱6╱ // 0x2d3e @0xc
0x2d32…2d48 at000d = ╱ef╱$╱ // 0x2d3f @0xd
0x2d32…2d48 at000e = ╱ee╱)╱ // 0x2d40 @0xe
0x2d32…2d48 at000f = ╱ee╱)╱ // 0x2d41 @0xf
0x2d32…2d48 at0010 = ╱dc╱=╱ // 0x2d42 @0x10
0x2d32…2d48 at0011 = ╱22╱"╱ // 0x2d43 @0x11
0x2d32…2d48 at0012 = ╱2b╱+╱ // 0x2d44 @0x12
0x2d32…2d48 at0013 = ╱22╱"╱ // 0x2d45 @0x13
0x2d32…2d48 at0014 = ╱b6╱ THEN ╱ // 0x2d46 @0x14
0x2d32…2d48 at0015 = EOL // 0x2d47 @0x15
0x2d32…2d48 }
0x2d48…2d68 babf 5520 E4$(K1)=B6$(E:LEN(B6$)-E)+"-"
0x2d48…2d68 LineComalBin {
0x2d48…2d68 ptr = 0xbabf // 0x2d48 @0x0
0x2d48…2d68 lno = 0x1590 // 0x2d4a @0x2
0x2d48…2d68 at0004 = ╱45╱E╱ // 0x2d4c @0x4
0x2d48…2d68 at0005 = ╱34╱4╱ // 0x2d4d @0x5
0x2d48…2d68 at0006 = ╱ef╱$╱ // 0x2d4e @0x6
0x2d48…2d68 at0007 = ╱ed╱(╱ // 0x2d4f @0x7
0x2d48…2d68 at0008 = ╱4b╱K╱ // 0x2d50 @0x8
0x2d48…2d68 at0009 = ╱31╱1╱ // 0x2d51 @0x9
0x2d48…2d68 at000a = ╱ee╱)╱ // 0x2d52 @0xa
0x2d48…2d68 at000b = ╱dc╱=╱ // 0x2d53 @0xb
0x2d48…2d68 at000c = ╱42╱B╱ // 0x2d54 @0xc
0x2d48…2d68 at000d = ╱36╱6╱ // 0x2d55 @0xd
0x2d48…2d68 at000e = ╱ef╱$╱ // 0x2d56 @0xe
0x2d48…2d68 at000f = ╱ed╱(╱ // 0x2d57 @0xf
0x2d48…2d68 at0010 = ╱45╱E╱ // 0x2d58 @0x10
0x2d48…2d68 at0011 = ╱f0╱:╱ // 0x2d59 @0x11
0x2d48…2d68 at0012 = ╱cc╱LEN╱ // 0x2d5a @0x12
0x2d48…2d68 at0013 = ╱ed╱(╱ // 0x2d5b @0x13
0x2d48…2d68 at0014 = ╱42╱B╱ // 0x2d5c @0x14
0x2d48…2d68 at0015 = ╱36╱6╱ // 0x2d5d @0x15
0x2d48…2d68 at0016 = ╱ef╱$╱ // 0x2d5e @0x16
0x2d48…2d68 at0017 = ╱ee╱)╱ // 0x2d5f @0x17
0x2d48…2d68 at0018 = ╱e3╱-╱ // 0x2d60 @0x18
0x2d48…2d68 at0019 = ╱45╱E╱ // 0x2d61 @0x19
0x2d48…2d68 at001a = ╱ee╱)╱ // 0x2d62 @0x1a
0x2d48…2d68 at001b = ╱f1╱+╱ // 0x2d63 @0x1b
0x2d48…2d68 at001c = ╱22╱"╱ // 0x2d64 @0x1c
0x2d48…2d68 at001d = ╱2d╱-╱ // 0x2d65 @0x1d
0x2d48…2d68 at001e = ╱22╱"╱ // 0x2d66 @0x1e
0x2d48…2d68 at001f = EOL // 0x2d67 @0x1f
0x2d48…2d68 }
0x2d68…2d6e bac5 5530 ELSE
0x2d68…2d6e LineComalBin {
0x2d68…2d6e ptr = 0xbac5 // 0x2d68 @0x0
0x2d68…2d6e lno = 0x159a // 0x2d6a @0x2
0x2d68…2d6e at0004 = ╱9a╱ ELSE ╱ // 0x2d6c @0x4
0x2d68…2d6e at0005 = EOL // 0x2d6d @0x5
0x2d68…2d6e }
0x2d6e…2d8e bae5 5540 E4$(K1)=B6$(E:LEN(B6$)-E)+"+"
0x2d6e…2d8e LineComalBin {
0x2d6e…2d8e ptr = 0xbae5 // 0x2d6e @0x0
0x2d6e…2d8e lno = 0x15a4 // 0x2d70 @0x2
0x2d6e…2d8e at0004 = ╱45╱E╱ // 0x2d72 @0x4
0x2d6e…2d8e at0005 = ╱34╱4╱ // 0x2d73 @0x5
0x2d6e…2d8e at0006 = ╱ef╱$╱ // 0x2d74 @0x6
0x2d6e…2d8e at0007 = ╱ed╱(╱ // 0x2d75 @0x7
0x2d6e…2d8e at0008 = ╱4b╱K╱ // 0x2d76 @0x8
0x2d6e…2d8e at0009 = ╱31╱1╱ // 0x2d77 @0x9
0x2d6e…2d8e at000a = ╱ee╱)╱ // 0x2d78 @0xa
0x2d6e…2d8e at000b = ╱dc╱=╱ // 0x2d79 @0xb
0x2d6e…2d8e at000c = ╱42╱B╱ // 0x2d7a @0xc
0x2d6e…2d8e at000d = ╱36╱6╱ // 0x2d7b @0xd
0x2d6e…2d8e at000e = ╱ef╱$╱ // 0x2d7c @0xe
0x2d6e…2d8e at000f = ╱ed╱(╱ // 0x2d7d @0xf
0x2d6e…2d8e at0010 = ╱45╱E╱ // 0x2d7e @0x10
0x2d6e…2d8e at0011 = ╱f0╱:╱ // 0x2d7f @0x11
0x2d6e…2d8e at0012 = ╱cc╱LEN╱ // 0x2d80 @0x12
0x2d6e…2d8e at0013 = ╱ed╱(╱ // 0x2d81 @0x13
0x2d6e…2d8e at0014 = ╱42╱B╱ // 0x2d82 @0x14
0x2d6e…2d8e at0015 = ╱36╱6╱ // 0x2d83 @0x15
0x2d6e…2d8e at0016 = ╱ef╱$╱ // 0x2d84 @0x16
0x2d6e…2d8e at0017 = ╱ee╱)╱ // 0x2d85 @0x17
0x2d6e…2d8e at0018 = ╱e3╱-╱ // 0x2d86 @0x18
0x2d6e…2d8e at0019 = ╱45╱E╱ // 0x2d87 @0x19
0x2d6e…2d8e at001a = ╱ee╱)╱ // 0x2d88 @0x1a
0x2d6e…2d8e at001b = ╱f1╱+╱ // 0x2d89 @0x1b
0x2d6e…2d8e at001c = ╱22╱"╱ // 0x2d8a @0x1c
0x2d6e…2d8e at001d = ╱2b╱+╱ // 0x2d8b @0x1d
0x2d6e…2d8e at001e = ╱22╱"╱ // 0x2d8c @0x1e
0x2d6e…2d8e at001f = EOL // 0x2d8d @0x1f
0x2d6e…2d8e }
0x2d8e…2d94 baeb 5550 ENDIF
0x2d8e…2d94 LineComalBin {
0x2d8e…2d94 ptr = 0xbaeb // 0x2d8e @0x0
0x2d8e…2d94 lno = 0x15ae // 0x2d90 @0x2
0x2d8e…2d94 at0004 = ╱9b╱ ENDIF ╱ // 0x2d92 @0x4
0x2d8e…2d94 at0005 = EOL // 0x2d93 @0x5
0x2d8e…2d94 }
0x2d94…2daf bb06 5560 EXEC CA(B,B6$,E4$(K1),B6$)
0x2d94…2daf LineComalBin {
0x2d94…2daf ptr = 0xbb06 // 0x2d94 @0x0
0x2d94…2daf lno = 0x15b8 // 0x2d96 @0x2
0x2d94…2daf at0004 = ╱9d╱ EXEC ╱ // 0x2d98 @0x4
0x2d94…2daf at0005 = ╱43╱C╱ // 0x2d99 @0x5
0x2d94…2daf at0006 = ╱41╱A╱ // 0x2d9a @0x6
0x2d94…2daf at0007 = ╱ed╱(╱ // 0x2d9b @0x7
0x2d94…2daf at0008 = ╱42╱B╱ // 0x2d9c @0x8
0x2d94…2daf at0009 = ╱ec╱,╱ // 0x2d9d @0x9
0x2d94…2daf at000a = ╱42╱B╱ // 0x2d9e @0xa
0x2d94…2daf at000b = ╱36╱6╱ // 0x2d9f @0xb
0x2d94…2daf at000c = ╱ef╱$╱ // 0x2da0 @0xc
0x2d94…2daf at000d = ╱ec╱,╱ // 0x2da1 @0xd
0x2d94…2daf at000e = ╱45╱E╱ // 0x2da2 @0xe
0x2d94…2daf at000f = ╱34╱4╱ // 0x2da3 @0xf
0x2d94…2daf at0010 = ╱ef╱$╱ // 0x2da4 @0x10
0x2d94…2daf at0011 = ╱ed╱(╱ // 0x2da5 @0x11
0x2d94…2daf at0012 = ╱4b╱K╱ // 0x2da6 @0x12
0x2d94…2daf at0013 = ╱31╱1╱ // 0x2da7 @0x13
0x2d94…2daf at0014 = ╱ee╱)╱ // 0x2da8 @0x14
0x2d94…2daf at0015 = ╱ec╱,╱ // 0x2da9 @0x15
0x2d94…2daf at0016 = ╱42╱B╱ // 0x2daa @0x16
0x2d94…2daf at0017 = ╱36╱6╱ // 0x2dab @0x17
0x2d94…2daf at0018 = ╱ef╱$╱ // 0x2dac @0x18
0x2d94…2daf at0019 = ╱ee╱)╱ // 0x2dad @0x19
0x2d94…2daf at001a = EOL // 0x2dae @0x1a
0x2d94…2daf }
0x2daf…2de0 bb37 5570 C6(K1)=O0;C8(K1)=10;C7(K1)=K0;E3(K1)=J3
0x2daf…2de0 LineComalBin {
0x2daf…2de0 ptr = 0xbb37 // 0x2daf @0x0
0x2daf…2de0 lno = 0x15c2 // 0x2db1 @0x2
0x2daf…2de0 at0004 = ╱43╱C╱ // 0x2db3 @0x4
0x2daf…2de0 at0005 = ╱36╱6╱ // 0x2db4 @0x5
0x2daf…2de0 at0006 = ╱ed╱(╱ // 0x2db5 @0x6
0x2daf…2de0 at0007 = ╱4b╱K╱ // 0x2db6 @0x7
0x2daf…2de0 at0008 = ╱31╱1╱ // 0x2db7 @0x8
0x2daf…2de0 at0009 = ╱ee╱)╱ // 0x2db8 @0x9
0x2daf…2de0 at000a = ╱dc╱=╱ // 0x2db9 @0xa
0x2daf…2de0 at000b = ╱4f╱O╱ // 0x2dba @0xb
0x2daf…2de0 at000c = ╱30╱0╱ // 0x2dbb @0xc
0x2daf…2de0 at000d = ╱eb╱;╱ // 0x2dbc @0xd
0x2daf…2de0 at000e = ╱43╱C╱ // 0x2dbd @0xe
0x2daf…2de0 at000f = ╱38╱8╱ // 0x2dbe @0xf
0x2daf…2de0 at0010 = ╱ed╱(╱ // 0x2dbf @0x10
0x2daf…2de0 at0011 = ╱4b╱K╱ // 0x2dc0 @0x11
0x2daf…2de0 at0012 = ╱31╱1╱ // 0x2dc1 @0x12
0x2daf…2de0 at0013 = ╱ee╱)╱ // 0x2dc2 @0x13
0x2daf…2de0 at0014 = ╱dc╱=╱ // 0x2dc3 @0x14
0x2daf…2de0 at0015 = ╱31╱1╱ // 0x2dc4 @0x15
0x2daf…2de0 at0016 = ╱30╱0╱ // 0x2dc5 @0x16
0x2daf…2de0 at0017 = ╱fe0000a004╱ // 0x2dc6 @0x17
0x2daf…2de0 at001c = ╱eb╱;╱ // 0x2dcb @0x1c
0x2daf…2de0 at001d = ╱43╱C╱ // 0x2dcc @0x1d
0x2daf…2de0 at001e = ╱37╱7╱ // 0x2dcd @0x1e
0x2daf…2de0 at001f = ╱ed╱(╱ // 0x2dce @0x1f
0x2daf…2de0 at0020 = ╱4b╱K╱ // 0x2dcf @0x20
0x2daf…2de0 at0021 = ╱31╱1╱ // 0x2dd0 @0x21
0x2daf…2de0 at0022 = ╱ee╱)╱ // 0x2dd1 @0x22
0x2daf…2de0 at0023 = ╱dc╱=╱ // 0x2dd2 @0x23
0x2daf…2de0 at0024 = ╱4b╱K╱ // 0x2dd3 @0x24
0x2daf…2de0 at0025 = ╱30╱0╱ // 0x2dd4 @0x25
0x2daf…2de0 at0026 = ╱eb╱;╱ // 0x2dd5 @0x26
0x2daf…2de0 at0027 = ╱45╱E╱ // 0x2dd6 @0x27
0x2daf…2de0 at0028 = ╱33╱3╱ // 0x2dd7 @0x28
0x2daf…2de0 at0029 = ╱ed╱(╱ // 0x2dd8 @0x29
0x2daf…2de0 at002a = ╱4b╱K╱ // 0x2dd9 @0x2a
0x2daf…2de0 at002b = ╱31╱1╱ // 0x2dda @0x2b
0x2daf…2de0 at002c = ╱ee╱)╱ // 0x2ddb @0x2c
0x2daf…2de0 at002d = ╱dc╱=╱ // 0x2ddc @0x2d
0x2daf…2de0 at002e = ╱4a╱J╱ // 0x2ddd @0x2e
0x2daf…2de0 at002f = ╱33╱3╱ // 0x2dde @0x2f
0x2daf…2de0 at0030 = EOL // 0x2ddf @0x30
0x2daf…2de0 }
0x2de0…2e1c bb73 5580 C9$(K1)="Difference multipostering";E8(K1)=1000000
0x2de0…2e1c LineComalBin {
0x2de0…2e1c ptr = 0xbb73 // 0x2de0 @0x0
0x2de0…2e1c lno = 0x15cc // 0x2de2 @0x2
0x2de0…2e1c at0004 = ╱43╱C╱ // 0x2de4 @0x4
0x2de0…2e1c at0005 = ╱39╱9╱ // 0x2de5 @0x5
0x2de0…2e1c at0006 = ╱ef╱$╱ // 0x2de6 @0x6
0x2de0…2e1c at0007 = ╱ed╱(╱ // 0x2de7 @0x7
0x2de0…2e1c at0008 = ╱4b╱K╱ // 0x2de8 @0x8
0x2de0…2e1c at0009 = ╱31╱1╱ // 0x2de9 @0x9
0x2de0…2e1c at000a = ╱ee╱)╱ // 0x2dea @0xa
0x2de0…2e1c at000b = ╱dc╱=╱ // 0x2deb @0xb
0x2de0…2e1c at000c = ╱22╱"╱ // 0x2dec @0xc
0x2de0…2e1c at000d = ╱44╱D╱ // 0x2ded @0xd
0x2de0…2e1c at000e = ╱69╱i╱ // 0x2dee @0xe
0x2de0…2e1c at000f = ╱66╱f╱ // 0x2def @0xf
0x2de0…2e1c at0010 = ╱66╱f╱ // 0x2df0 @0x10
0x2de0…2e1c at0011 = ╱65╱e╱ // 0x2df1 @0x11
0x2de0…2e1c at0012 = ╱72╱r╱ // 0x2df2 @0x12
0x2de0…2e1c at0013 = ╱65╱e╱ // 0x2df3 @0x13
0x2de0…2e1c at0014 = ╱6e╱n╱ // 0x2df4 @0x14
0x2de0…2e1c at0015 = ╱63╱c╱ // 0x2df5 @0x15
0x2de0…2e1c at0016 = ╱65╱e╱ // 0x2df6 @0x16
0x2de0…2e1c at0017 = ╱20╱…╱ // 0x2df7 @0x17
0x2de0…2e1c at0018 = ╱6d╱m╱ // 0x2df8 @0x18
0x2de0…2e1c at0019 = ╱75╱u╱ // 0x2df9 @0x19
0x2de0…2e1c at001a = ╱6c╱l╱ // 0x2dfa @0x1a
0x2de0…2e1c at001b = ╱74╱t╱ // 0x2dfb @0x1b
0x2de0…2e1c at001c = ╱69╱i╱ // 0x2dfc @0x1c
0x2de0…2e1c at001d = ╱70╱p╱ // 0x2dfd @0x1d
0x2de0…2e1c at001e = ╱6f╱o╱ // 0x2dfe @0x1e
0x2de0…2e1c at001f = ╱73╱s╱ // 0x2dff @0x1f
0x2de0…2e1c at0020 = ╱74╱t╱ // 0x2e00 @0x20
0x2de0…2e1c at0021 = ╱65╱e╱ // 0x2e01 @0x21
0x2de0…2e1c at0022 = ╱72╱r╱ // 0x2e02 @0x22
0x2de0…2e1c at0023 = ╱69╱i╱ // 0x2e03 @0x23
0x2de0…2e1c at0024 = ╱6e╱n╱ // 0x2e04 @0x24
0x2de0…2e1c at0025 = ╱67╱g╱ // 0x2e05 @0x25
0x2de0…2e1c at0026 = ╱22╱"╱ // 0x2e06 @0x26
0x2de0…2e1c at0027 = ╱eb╱;╱ // 0x2e07 @0x27
0x2de0…2e1c at0028 = ╱45╱E╱ // 0x2e08 @0x28
0x2de0…2e1c at0029 = ╱38╱8╱ // 0x2e09 @0x29
0x2de0…2e1c at002a = ╱ed╱(╱ // 0x2e0a @0x2a
0x2de0…2e1c at002b = ╱4b╱K╱ // 0x2e0b @0x2b
0x2de0…2e1c at002c = ╱31╱1╱ // 0x2e0c @0x2c
0x2de0…2e1c at002d = ╱ee╱)╱ // 0x2e0d @0x2d
0x2de0…2e1c at002e = ╱dc╱=╱ // 0x2e0e @0x2e
0x2de0…2e1c at002f = ╱31╱1╱ // 0x2e0f @0x2f
0x2de0…2e1c at0030 = ╱30╱0╱ // 0x2e10 @0x30
0x2de0…2e1c at0031 = ╱30╱0╱ // 0x2e11 @0x31
0x2de0…2e1c at0032 = ╱30╱0╱ // 0x2e12 @0x32
0x2de0…2e1c at0033 = ╱30╱0╱ // 0x2e13 @0x33
0x2de0…2e1c at0034 = ╱30╱0╱ // 0x2e14 @0x34
0x2de0…2e1c at0035 = ╱30╱0╱ // 0x2e15 @0x35
0x2de0…2e1c at0036 = ╱fe0024f414╱ // 0x2e16 @0x36
0x2de0…2e1c at003b = EOL // 0x2e1b @0x3b
0x2de0…2e1c }
0x2e1c…2e22 bb79 5590 ENDIF
0x2e1c…2e22 LineComalBin {
0x2e1c…2e22 ptr = 0xbb79 // 0x2e1c @0x0
0x2e1c…2e22 lno = 0x15d6 // 0x2e1e @0x2
0x2e1c…2e22 at0004 = ╱9b╱ ENDIF ╱ // 0x2e20 @0x4
0x2e1c…2e22 at0005 = EOL // 0x2e21 @0x5
0x2e1c…2e22 }
0x2e22…2e35 bb8c 5600 O4=B;P=-4
0x2e22…2e35 LineComalBin {
0x2e22…2e35 ptr = 0xbb8c // 0x2e22 @0x0
0x2e22…2e35 lno = 0x15e0 // 0x2e24 @0x2
0x2e22…2e35 at0004 = ╱4f╱O╱ // 0x2e26 @0x4
0x2e22…2e35 at0005 = ╱34╱4╱ // 0x2e27 @0x5
0x2e22…2e35 at0006 = ╱dc╱=╱ // 0x2e28 @0x6
0x2e22…2e35 at0007 = ╱42╱B╱ // 0x2e29 @0x7
0x2e22…2e35 at0008 = ╱eb╱;╱ // 0x2e2a @0x8
0x2e22…2e35 at0009 = ╱50╱P╱ // 0x2e2b @0x9
0x2e22…2e35 at000a = ╱dc╱=╱ // 0x2e2c @0xa
0x2e22…2e35 at000b = ╱e9╱-╱ // 0x2e2d @0xb
0x2e22…2e35 at000c = ╱34╱4╱ // 0x2e2e @0xc
0x2e22…2e35 at000d = ╱fe00008003╱ // 0x2e2f @0xd
0x2e22…2e35 at0012 = EOL // 0x2e34 @0x12
0x2e22…2e35 }
0x2e35…2e3b bb92 5610 ELSE
0x2e35…2e3b LineComalBin {
0x2e35…2e3b ptr = 0xbb92 // 0x2e35 @0x0
0x2e35…2e3b lno = 0x15ea // 0x2e37 @0x2
0x2e35…2e3b at0004 = ╱9a╱ ELSE ╱ // 0x2e39 @0x4
0x2e35…2e3b at0005 = EOL // 0x2e3a @0x5
0x2e35…2e3b }
0x2e3b…2e41 bb98 5620 REPEAT
0x2e3b…2e41 LineComalBin {
0x2e3b…2e41 ptr = 0xbb98 // 0x2e3b @0x0
0x2e3b…2e41 lno = 0x15f4 // 0x2e3d @0x2
0x2e3b…2e41 at0004 = ╱97╱ REPEAT ╱ // 0x2e3f @0x4
0x2e3b…2e41 at0005 = EOL // 0x2e40 @0x5
0x2e3b…2e41 }
0x2e41…2e50 bba7 5630 CURSOR V,23
0x2e41…2e50 LineComalBin {
0x2e41…2e50 ptr = 0xbba7 // 0x2e41 @0x0
0x2e41…2e50 lno = 0x15fe // 0x2e43 @0x2
0x2e41…2e50 at0004 = ╱a1╱ CURSOR ╱ // 0x2e45 @0x4
0x2e41…2e50 at0005 = ╱56╱V╱ // 0x2e46 @0x5
0x2e41…2e50 at0006 = ╱ec╱,╱ // 0x2e47 @0x6
0x2e41…2e50 at0007 = ╱32╱2╱ // 0x2e48 @0x7
0x2e41…2e50 at0008 = ╱33╱3╱ // 0x2e49 @0x8
0x2e41…2e50 at0009 = ╱fe0000b805╱ // 0x2e4a @0x9
0x2e41…2e50 at000e = EOL // 0x2e4f @0xe
0x2e41…2e50 }
0x2e50…2e92 bbe9 5640 PRINT "Multipostering ikke afsluttet , tast RETURN"+E2$(E:34)
0x2e50…2e92 LineComalBin {
0x2e50…2e92 ptr = 0xbbe9 // 0x2e50 @0x0
0x2e50…2e92 lno = 0x1608 // 0x2e52 @0x2
0x2e50…2e92 at0004 = ╱92╱ PRINT ╱ // 0x2e54 @0x4
0x2e50…2e92 at0005 = ╱22╱"╱ // 0x2e55 @0x5
0x2e50…2e92 at0006 = ╱4d╱M╱ // 0x2e56 @0x6
0x2e50…2e92 at0007 = ╱75╱u╱ // 0x2e57 @0x7
0x2e50…2e92 at0008 = ╱6c╱l╱ // 0x2e58 @0x8
0x2e50…2e92 at0009 = ╱74╱t╱ // 0x2e59 @0x9
0x2e50…2e92 at000a = ╱69╱i╱ // 0x2e5a @0xa
0x2e50…2e92 at000b = ╱70╱p╱ // 0x2e5b @0xb
0x2e50…2e92 at000c = ╱6f╱o╱ // 0x2e5c @0xc
0x2e50…2e92 at000d = ╱73╱s╱ // 0x2e5d @0xd
0x2e50…2e92 at000e = ╱74╱t╱ // 0x2e5e @0xe
0x2e50…2e92 at000f = ╱65╱e╱ // 0x2e5f @0xf
0x2e50…2e92 at0010 = ╱72╱r╱ // 0x2e60 @0x10
0x2e50…2e92 at0011 = ╱69╱i╱ // 0x2e61 @0x11
0x2e50…2e92 at0012 = ╱6e╱n╱ // 0x2e62 @0x12
0x2e50…2e92 at0013 = ╱67╱g╱ // 0x2e63 @0x13
0x2e50…2e92 at0014 = ╱20╱…╱ // 0x2e64 @0x14
0x2e50…2e92 at0015 = ╱69╱i╱ // 0x2e65 @0x15
0x2e50…2e92 at0016 = ╱6b╱k╱ // 0x2e66 @0x16
0x2e50…2e92 at0017 = ╱6b╱k╱ // 0x2e67 @0x17
0x2e50…2e92 at0018 = ╱65╱e╱ // 0x2e68 @0x18
0x2e50…2e92 at0019 = ╱20╱…╱ // 0x2e69 @0x19
0x2e50…2e92 at001a = ╱61╱a╱ // 0x2e6a @0x1a
0x2e50…2e92 at001b = ╱66╱f╱ // 0x2e6b @0x1b
0x2e50…2e92 at001c = ╱73╱s╱ // 0x2e6c @0x1c
0x2e50…2e92 at001d = ╱6c╱l╱ // 0x2e6d @0x1d
0x2e50…2e92 at001e = ╱75╱u╱ // 0x2e6e @0x1e
0x2e50…2e92 at001f = ╱74╱t╱ // 0x2e6f @0x1f
0x2e50…2e92 at0020 = ╱74╱t╱ // 0x2e70 @0x20
0x2e50…2e92 at0021 = ╱65╱e╱ // 0x2e71 @0x21
0x2e50…2e92 at0022 = ╱74╱t╱ // 0x2e72 @0x22
0x2e50…2e92 at0023 = ╱20╱…╱ // 0x2e73 @0x23
0x2e50…2e92 at0024 = ╱2c╱,╱ // 0x2e74 @0x24
0x2e50…2e92 at0025 = ╱20╱…╱ // 0x2e75 @0x25
0x2e50…2e92 at0026 = ╱74╱t╱ // 0x2e76 @0x26
0x2e50…2e92 at0027 = ╱61╱a╱ // 0x2e77 @0x27
0x2e50…2e92 at0028 = ╱73╱s╱ // 0x2e78 @0x28
0x2e50…2e92 at0029 = ╱74╱t╱ // 0x2e79 @0x29
0x2e50…2e92 at002a = ╱20╱…╱ // 0x2e7a @0x2a
0x2e50…2e92 at002b = ╱52╱R╱ // 0x2e7b @0x2b
0x2e50…2e92 at002c = ╱45╱E╱ // 0x2e7c @0x2c
0x2e50…2e92 at002d = ╱54╱T╱ // 0x2e7d @0x2d
0x2e50…2e92 at002e = ╱55╱U╱ // 0x2e7e @0x2e
0x2e50…2e92 at002f = ╱52╱R╱ // 0x2e7f @0x2f
0x2e50…2e92 at0030 = ╱4e╱N╱ // 0x2e80 @0x30
0x2e50…2e92 at0031 = ╱22╱"╱ // 0x2e81 @0x31
0x2e50…2e92 at0032 = ╱f1╱+╱ // 0x2e82 @0x32
0x2e50…2e92 at0033 = ╱45╱E╱ // 0x2e83 @0x33
0x2e50…2e92 at0034 = ╱32╱2╱ // 0x2e84 @0x34
0x2e50…2e92 at0035 = ╱ef╱$╱ // 0x2e85 @0x35
0x2e50…2e92 at0036 = ╱ed╱(╱ // 0x2e86 @0x36
0x2e50…2e92 at0037 = ╱45╱E╱ // 0x2e87 @0x37
0x2e50…2e92 at0038 = ╱f0╱:╱ // 0x2e88 @0x38
0x2e50…2e92 at0039 = ╱33╱3╱ // 0x2e89 @0x39
0x2e50…2e92 at003a = ╱34╱4╱ // 0x2e8a @0x3a
0x2e50…2e92 at003b = ╱fe00008806╱ // 0x2e8b @0x3b
0x2e50…2e92 at0040 = ╱ee╱)╱ // 0x2e90 @0x40
0x2e50…2e92 at0041 = EOL // 0x2e91 @0x41
0x2e50…2e92 }
0x2e92…2ea7 bbfe 5650 CURSOR 46,23
0x2e92…2ea7 LineComalBin {
0x2e92…2ea7 ptr = 0xbbfe // 0x2e92 @0x0
0x2e92…2ea7 lno = 0x1612 // 0x2e94 @0x2
0x2e92…2ea7 at0004 = ╱a1╱ CURSOR ╱ // 0x2e96 @0x4
0x2e92…2ea7 at0005 = ╱34╱4╱ // 0x2e97 @0x5
0x2e92…2ea7 at0006 = ╱36╱6╱ // 0x2e98 @0x6
0x2e92…2ea7 at0007 = ╱fe0000b806╱ // 0x2e99 @0x7
0x2e92…2ea7 at000c = ╱ec╱,╱ // 0x2e9e @0xc
0x2e92…2ea7 at000d = ╱32╱2╱ // 0x2e9f @0xd
0x2e92…2ea7 at000e = ╱33╱3╱ // 0x2ea0 @0xe
0x2e92…2ea7 at000f = ╱fe0000b805╱ // 0x2ea1 @0xf
0x2e92…2ea7 at0014 = EOL // 0x2ea6 @0x14
0x2e92…2ea7 }
0x2ea7…2eaf bc06 5660 INPUT A$
0x2ea7…2eaf LineComalBin {
0x2ea7…2eaf ptr = 0xbc06 // 0x2ea7 @0x0
0x2ea7…2eaf lno = 0x161c // 0x2ea9 @0x2
0x2ea7…2eaf at0004 = ╱91╱ INPUT ╱ // 0x2eab @0x4
0x2ea7…2eaf at0005 = ╱41╱A╱ // 0x2eac @0x5
0x2ea7…2eaf at0006 = ╱ef╱$╱ // 0x2ead @0x6
0x2ea7…2eaf at0007 = EOL // 0x2eae @0x7
0x2ea7…2eaf }
0x2eaf…2ebf bc16 5670 EXEC NRTEST(A$)
0x2eaf…2ebf LineComalBin {
0x2eaf…2ebf ptr = 0xbc16 // 0x2eaf @0x0
0x2eaf…2ebf lno = 0x1626 // 0x2eb1 @0x2
0x2eaf…2ebf at0004 = ╱9d╱ EXEC ╱ // 0x2eb3 @0x4
0x2eaf…2ebf at0005 = ╱4e╱N╱ // 0x2eb4 @0x5
0x2eaf…2ebf at0006 = ╱52╱R╱ // 0x2eb5 @0x6
0x2eaf…2ebf at0007 = ╱54╱T╱ // 0x2eb6 @0x7
0x2eaf…2ebf at0008 = ╱45╱E╱ // 0x2eb7 @0x8
0x2eaf…2ebf at0009 = ╱53╱S╱ // 0x2eb8 @0x9
0x2eaf…2ebf at000a = ╱54╱T╱ // 0x2eb9 @0xa
0x2eaf…2ebf at000b = ╱ed╱(╱ // 0x2eba @0xb
0x2eaf…2ebf at000c = ╱41╱A╱ // 0x2ebb @0xc
0x2eaf…2ebf at000d = ╱ef╱$╱ // 0x2ebc @0xd
0x2eaf…2ebf at000e = ╱ee╱)╱ // 0x2ebd @0xe
0x2eaf…2ebf at000f = EOL // 0x2ebe @0xf
0x2eaf…2ebf }
0x2ebf…2ec9 bc20 5680 UNTIL P=-E
0x2ebf…2ec9 LineComalBin {
0x2ebf…2ec9 ptr = 0xbc20 // 0x2ebf @0x0
0x2ebf…2ec9 lno = 0x1630 // 0x2ec1 @0x2
0x2ebf…2ec9 at0004 = ╱98╱ UNTIL ╱ // 0x2ec3 @0x4
0x2ebf…2ec9 at0005 = ╱50╱P╱ // 0x2ec4 @0x5
0x2ebf…2ec9 at0006 = ╱dc╱=╱ // 0x2ec5 @0x6
0x2ebf…2ec9 at0007 = ╱e9╱-╱ // 0x2ec6 @0x7
0x2ebf…2ec9 at0008 = ╱45╱E╱ // 0x2ec7 @0x8
0x2ebf…2ec9 at0009 = EOL // 0x2ec8 @0x9
0x2ebf…2ec9 }
0x2ec9…2ecf bc26 5690 ENDIF
0x2ec9…2ecf LineComalBin {
0x2ec9…2ecf ptr = 0xbc26 // 0x2ec9 @0x0
0x2ec9…2ecf lno = 0x163a // 0x2ecb @0x2
0x2ec9…2ecf at0004 = ╱9b╱ ENDIF ╱ // 0x2ecd @0x4
0x2ec9…2ecf at0005 = EOL // 0x2ece @0x5
0x2ec9…2ecf }
0x2ecf…2ed5 bc2c 5700 ENDIF
0x2ecf…2ed5 LineComalBin {
0x2ecf…2ed5 ptr = 0xbc2c // 0x2ecf @0x0
0x2ecf…2ed5 lno = 0x1644 // 0x2ed1 @0x2
0x2ecf…2ed5 at0004 = ╱9b╱ ENDIF ╱ // 0x2ed3 @0x4
0x2ecf…2ed5 at0005 = EOL // 0x2ed4 @0x5
0x2ecf…2ed5 }
0x2ed5…2ede bc35 5710 WHEN -E
0x2ed5…2ede LineComalBin {
0x2ed5…2ede ptr = 0xbc35 // 0x2ed5 @0x0
0x2ed5…2ede lno = 0x164e // 0x2ed7 @0x2
0x2ed5…2ede at0004 = ╱a301╱ WHEN ╱ // 0x2ed9 @0x4
0x2ed5…2ede at0006 = ╱e9╱-╱ // 0x2edb @0x6
0x2ed5…2ede at0007 = ╱45╱E╱ // 0x2edc @0x7
0x2ed5…2ede at0008 = EOL // 0x2edd @0x8
0x2ed5…2ede }
0x2ede…2ef0 bc47 5720 IF J6=B THEN K5=K5+E
0x2ede…2ef0 LineComalBin {
0x2ede…2ef0 ptr = 0xbc47 // 0x2ede @0x0
0x2ede…2ef0 lno = 0x1658 // 0x2ee0 @0x2
0x2ede…2ef0 at0004 = ╱82╱ IF ╱ // 0x2ee2 @0x4
0x2ede…2ef0 at0005 = ╱4a╱J╱ // 0x2ee3 @0x5
0x2ede…2ef0 at0006 = ╱36╱6╱ // 0x2ee4 @0x6
0x2ede…2ef0 at0007 = ╱dc╱=╱ // 0x2ee5 @0x7
0x2ede…2ef0 at0008 = ╱42╱B╱ // 0x2ee6 @0x8
0x2ede…2ef0 at0009 = ╱b6╱ THEN ╱ // 0x2ee7 @0x9
0x2ede…2ef0 at000a = ╱4b╱K╱ // 0x2ee8 @0xa
0x2ede…2ef0 at000b = ╱35╱5╱ // 0x2ee9 @0xb
0x2ede…2ef0 at000c = ╱dc╱=╱ // 0x2eea @0xc
0x2ede…2ef0 at000d = ╱4b╱K╱ // 0x2eeb @0xd
0x2ede…2ef0 at000e = ╱35╱5╱ // 0x2eec @0xe
0x2ede…2ef0 at000f = ╱e2╱+╱ // 0x2eed @0xf
0x2ede…2ef0 at0010 = ╱45╱E╱ // 0x2eee @0x10
0x2ede…2ef0 at0011 = EOL // 0x2eef @0x11
0x2ede…2ef0 }
0x2ef0…2efe bc55 5730 P=K5;O4=B
0x2ef0…2efe LineComalBin {
0x2ef0…2efe ptr = 0xbc55 // 0x2ef0 @0x0
0x2ef0…2efe lno = 0x1662 // 0x2ef2 @0x2
0x2ef0…2efe at0004 = ╱50╱P╱ // 0x2ef4 @0x4
0x2ef0…2efe at0005 = ╱dc╱=╱ // 0x2ef5 @0x5
0x2ef0…2efe at0006 = ╱4b╱K╱ // 0x2ef6 @0x6
0x2ef0…2efe at0007 = ╱35╱5╱ // 0x2ef7 @0x7
0x2ef0…2efe at0008 = ╱eb╱;╱ // 0x2ef8 @0x8
0x2ef0…2efe at0009 = ╱4f╱O╱ // 0x2ef9 @0x9
0x2ef0…2efe at000a = ╱34╱4╱ // 0x2efa @0xa
0x2ef0…2efe at000b = ╱dc╱=╱ // 0x2efb @0xb
0x2ef0…2efe at000c = ╱42╱B╱ // 0x2efc @0xc
0x2ef0…2efe at000d = EOL // 0x2efd @0xd
0x2ef0…2efe }
0x2efe…2f07 bc5e 5740 WHEN -G
0x2efe…2f07 LineComalBin {
0x2efe…2f07 ptr = 0xbc5e // 0x2efe @0x0
0x2efe…2f07 lno = 0x166c // 0x2f00 @0x2
0x2efe…2f07 at0004 = ╱a301╱ WHEN ╱ // 0x2f02 @0x4
0x2efe…2f07 at0006 = ╱e9╱-╱ // 0x2f04 @0x6
0x2efe…2f07 at0007 = ╱47╱G╱ // 0x2f05 @0x7
0x2efe…2f07 at0008 = EOL // 0x2f06 @0x8
0x2efe…2f07 }
0x2f07…2f13 bc6a 5750 EXEC NYDATO
0x2f07…2f13 LineComalBin {
0x2f07…2f13 ptr = 0xbc6a // 0x2f07 @0x0
0x2f07…2f13 lno = 0x1676 // 0x2f09 @0x2
0x2f07…2f13 at0004 = ╱9d╱ EXEC ╱ // 0x2f0b @0x4
0x2f07…2f13 at0005 = ╱4e╱N╱ // 0x2f0c @0x5
0x2f07…2f13 at0006 = ╱59╱Y╱ // 0x2f0d @0x6
0x2f07…2f13 at0007 = ╱44╱D╱ // 0x2f0e @0x7
0x2f07…2f13 at0008 = ╱41╱A╱ // 0x2f0f @0x8
0x2f07…2f13 at0009 = ╱54╱T╱ // 0x2f10 @0x9
0x2f07…2f13 at000a = ╱4f╱O╱ // 0x2f11 @0xa
0x2f07…2f13 at000b = EOL // 0x2f12 @0xb
0x2f07…2f13 }
0x2f13…2f20 bc77 5760 EXEC UDHOVED
0x2f13…2f20 LineComalBin {
0x2f13…2f20 ptr = 0xbc77 // 0x2f13 @0x0
0x2f13…2f20 lno = 0x1680 // 0x2f15 @0x2
0x2f13…2f20 at0004 = ╱9d╱ EXEC ╱ // 0x2f17 @0x4
0x2f13…2f20 at0005 = ╱55╱U╱ // 0x2f18 @0x5
0x2f13…2f20 at0006 = ╱44╱D╱ // 0x2f19 @0x6
0x2f13…2f20 at0007 = ╱48╱H╱ // 0x2f1a @0x7
0x2f13…2f20 at0008 = ╱4f╱O╱ // 0x2f1b @0x8
0x2f13…2f20 at0009 = ╱56╱V╱ // 0x2f1c @0x9
0x2f13…2f20 at000a = ╱45╱E╱ // 0x2f1d @0xa
0x2f13…2f20 at000b = ╱44╱D╱ // 0x2f1e @0xb
0x2f13…2f20 at000c = EOL // 0x2f1f @0xc
0x2f13…2f20 }
0x2f20…2f29 bc80 5770 WHEN -V
0x2f20…2f29 LineComalBin {
0x2f20…2f29 ptr = 0xbc80 // 0x2f20 @0x0
0x2f20…2f29 lno = 0x168a // 0x2f22 @0x2
0x2f20…2f29 at0004 = ╱a301╱ WHEN ╱ // 0x2f24 @0x4
0x2f20…2f29 at0006 = ╱e9╱-╱ // 0x2f26 @0x6
0x2f20…2f29 at0007 = ╱56╱V╱ // 0x2f27 @0x7
0x2f20…2f29 at0008 = EOL // 0x2f28 @0x8
0x2f20…2f29 }
0x2f29…2f3c bc93 5780 EXEC PSLET(0)
0x2f29…2f3c LineComalBin {
0x2f29…2f3c ptr = 0xbc93 // 0x2f29 @0x0
0x2f29…2f3c lno = 0x1694 // 0x2f2b @0x2
0x2f29…2f3c at0004 = ╱9d╱ EXEC ╱ // 0x2f2d @0x4
0x2f29…2f3c at0005 = ╱50╱P╱ // 0x2f2e @0x5
0x2f29…2f3c at0006 = ╱53╱S╱ // 0x2f2f @0x6
0x2f29…2f3c at0007 = ╱4c╱L╱ // 0x2f30 @0x7
0x2f29…2f3c at0008 = ╱45╱E╱ // 0x2f31 @0x8
0x2f29…2f3c at0009 = ╱54╱T╱ // 0x2f32 @0x9
0x2f29…2f3c at000a = ╱ed╱(╱ // 0x2f33 @0xa
0x2f29…2f3c at000b = ╱30╱0╱ // 0x2f34 @0xb
0x2f29…2f3c at000c = ╱fe00000000╱ // 0x2f35 @0xc
0x2f29…2f3c at0011 = ╱ee╱)╱ // 0x2f3a @0x11
0x2f29…2f3c at0012 = EOL // 0x2f3b @0x12
0x2f29…2f3c }
0x2f3c…2f4a bca1 5790 WHEN -4
0x2f3c…2f4a LineComalBin {
0x2f3c…2f4a ptr = 0xbca1 // 0x2f3c @0x0
0x2f3c…2f4a lno = 0x169e // 0x2f3e @0x2
0x2f3c…2f4a at0004 = ╱a301╱ WHEN ╱ // 0x2f40 @0x4
0x2f3c…2f4a at0006 = ╱e9╱-╱ // 0x2f42 @0x6
0x2f3c…2f4a at0007 = ╱34╱4╱ // 0x2f43 @0x7
0x2f3c…2f4a at0008 = ╱fe00008003╱ // 0x2f44 @0x8
0x2f3c…2f4a at000d = EOL // 0x2f49 @0xd
0x2f3c…2f4a }
0x2f4a…2f56 bcad 5800 IF J6=B THEN EXIT
0x2f4a…2f56 LineComalBin {
0x2f4a…2f56 ptr = 0xbcad // 0x2f4a @0x0
0x2f4a…2f56 lno = 0x16a8 // 0x2f4c @0x2
0x2f4a…2f56 at0004 = ╱82╱ IF ╱ // 0x2f4e @0x4
0x2f4a…2f56 at0005 = ╱4a╱J╱ // 0x2f4f @0x5
0x2f4a…2f56 at0006 = ╱36╱6╱ // 0x2f50 @0x6
0x2f4a…2f56 at0007 = ╱dc╱=╱ // 0x2f51 @0x7
0x2f4a…2f56 at0008 = ╱42╱B╱ // 0x2f52 @0x8
0x2f4a…2f56 at0009 = ╱b6╱ THEN ╱ // 0x2f53 @0x9
0x2f4a…2f56 at000a = ╱99╱ EXIT ╱ // 0x2f54 @0xa
0x2f4a…2f56 at000b = EOL // 0x2f55 @0xb
0x2f4a…2f56 }
0x2f56…2f72 bcc9 5810 EXEC CA(4,D0$,B6$,D0$)
0x2f56…2f72 LineComalBin {
0x2f56…2f72 ptr = 0xbcc9 // 0x2f56 @0x0
0x2f56…2f72 lno = 0x16b2 // 0x2f58 @0x2
0x2f56…2f72 at0004 = ╱9d╱ EXEC ╱ // 0x2f5a @0x4
0x2f56…2f72 at0005 = ╱43╱C╱ // 0x2f5b @0x5
0x2f56…2f72 at0006 = ╱41╱A╱ // 0x2f5c @0x6
0x2f56…2f72 at0007 = ╱ed╱(╱ // 0x2f5d @0x7
0x2f56…2f72 at0008 = ╱34╱4╱ // 0x2f5e @0x8
0x2f56…2f72 at0009 = ╱fe00008003╱ // 0x2f5f @0x9
0x2f56…2f72 at000e = ╱ec╱,╱ // 0x2f64 @0xe
0x2f56…2f72 at000f = ╱44╱D╱ // 0x2f65 @0xf
0x2f56…2f72 at0010 = ╱30╱0╱ // 0x2f66 @0x10
0x2f56…2f72 at0011 = ╱ef╱$╱ // 0x2f67 @0x11
0x2f56…2f72 at0012 = ╱ec╱,╱ // 0x2f68 @0x12
0x2f56…2f72 at0013 = ╱42╱B╱ // 0x2f69 @0x13
0x2f56…2f72 at0014 = ╱36╱6╱ // 0x2f6a @0x14
0x2f56…2f72 at0015 = ╱ef╱$╱ // 0x2f6b @0x15
0x2f56…2f72 at0016 = ╱ec╱,╱ // 0x2f6c @0x16
0x2f56…2f72 at0017 = ╱44╱D╱ // 0x2f6d @0x17
0x2f56…2f72 at0018 = ╱30╱0╱ // 0x2f6e @0x18
0x2f56…2f72 at0019 = ╱ef╱$╱ // 0x2f6f @0x19
0x2f56…2f72 at001a = ╱ee╱)╱ // 0x2f70 @0x1a
0x2f56…2f72 at001b = EOL // 0x2f71 @0x1b
0x2f56…2f72 }
0x2f72…2f7d bcd4 5820 IF SI<>B THEN
0x2f72…2f7d LineComalBin {
0x2f72…2f7d ptr = 0xbcd4 // 0x2f72 @0x0
0x2f72…2f7d lno = 0x16bc // 0x2f74 @0x2
0x2f72…2f7d at0004 = ╱9c╱ IF ╱ // 0x2f76 @0x4
0x2f72…2f7d at0005 = ╱53╱S╱ // 0x2f77 @0x5
0x2f72…2f7d at0006 = ╱49╱I╱ // 0x2f78 @0x6
0x2f72…2f7d at0007 = ╱e1╱<>╱ // 0x2f79 @0x7
0x2f72…2f7d at0008 = ╱42╱B╱ // 0x2f7a @0x8
0x2f72…2f7d at0009 = ╱b6╱ THEN ╱ // 0x2f7b @0x9
0x2f72…2f7d at000a = EOL // 0x2f7c @0xa
0x2f72…2f7d }
0x2f7d…2f83 bcda 5830 REPEAT
0x2f7d…2f83 LineComalBin {
0x2f7d…2f83 ptr = 0xbcda // 0x2f7d @0x0
0x2f7d…2f83 lno = 0x16c6 // 0x2f7f @0x2
0x2f7d…2f83 at0004 = ╱97╱ REPEAT ╱ // 0x2f81 @0x4
0x2f7d…2f83 at0005 = EOL // 0x2f82 @0x5
0x2f7d…2f83 }
0x2f83…2f99 bcf0 5840 EXEC TUD(B6$,C4$,E,B)
0x2f83…2f99 LineComalBin {
0x2f83…2f99 ptr = 0xbcf0 // 0x2f83 @0x0
0x2f83…2f99 lno = 0x16d0 // 0x2f85 @0x2
0x2f83…2f99 at0004 = ╱9d╱ EXEC ╱ // 0x2f87 @0x4
0x2f83…2f99 at0005 = ╱54╱T╱ // 0x2f88 @0x5
0x2f83…2f99 at0006 = ╱55╱U╱ // 0x2f89 @0x6
0x2f83…2f99 at0007 = ╱44╱D╱ // 0x2f8a @0x7
0x2f83…2f99 at0008 = ╱ed╱(╱ // 0x2f8b @0x8
0x2f83…2f99 at0009 = ╱42╱B╱ // 0x2f8c @0x9
0x2f83…2f99 at000a = ╱36╱6╱ // 0x2f8d @0xa
0x2f83…2f99 at000b = ╱ef╱$╱ // 0x2f8e @0xb
0x2f83…2f99 at000c = ╱ec╱,╱ // 0x2f8f @0xc
0x2f83…2f99 at000d = ╱43╱C╱ // 0x2f90 @0xd
0x2f83…2f99 at000e = ╱34╱4╱ // 0x2f91 @0xe
0x2f83…2f99 at000f = ╱ef╱$╱ // 0x2f92 @0xf
0x2f83…2f99 at0010 = ╱ec╱,╱ // 0x2f93 @0x10
0x2f83…2f99 at0011 = ╱45╱E╱ // 0x2f94 @0x11
0x2f83…2f99 at0012 = ╱ec╱,╱ // 0x2f95 @0x12
0x2f83…2f99 at0013 = ╱42╱B╱ // 0x2f96 @0x13
0x2f83…2f99 at0014 = ╱ee╱)╱ // 0x2f97 @0x14
0x2f83…2f99 at0015 = EOL // 0x2f98 @0x15
0x2f83…2f99 }
0x2f99…2f9f bcf6 5850 REPEAT
0x2f99…2f9f LineComalBin {
0x2f99…2f9f ptr = 0xbcf6 // 0x2f99 @0x0
0x2f99…2f9f lno = 0x16da // 0x2f9b @0x2
0x2f99…2f9f at0004 = ╱97╱ REPEAT ╱ // 0x2f9d @0x4
0x2f99…2f9f at0005 = EOL // 0x2f9e @0x5
0x2f99…2f9f }
0x2f9f…2fae bd05 5860 CURSOR V,23
0x2f9f…2fae LineComalBin {
0x2f9f…2fae ptr = 0xbd05 // 0x2f9f @0x0
0x2f9f…2fae lno = 0x16e4 // 0x2fa1 @0x2
0x2f9f…2fae at0004 = ╱a1╱ CURSOR ╱ // 0x2fa3 @0x4
0x2f9f…2fae at0005 = ╱56╱V╱ // 0x2fa4 @0x5
0x2f9f…2fae at0006 = ╱ec╱,╱ // 0x2fa5 @0x6
0x2f9f…2fae at0007 = ╱32╱2╱ // 0x2fa6 @0x7
0x2f9f…2fae at0008 = ╱33╱3╱ // 0x2fa7 @0x8
0x2f9f…2fae at0009 = ╱fe0000b805╱ // 0x2fa8 @0x9
0x2f9f…2fae at000e = EOL // 0x2fad @0xe
0x2f9f…2fae }
0x2fae…2ff2 bd49 5870 PRINT "Multipostering kan ikke afsluttes , difference :";C4$;" tas";
0x2fae…2ff2 LineComalBin {
0x2fae…2ff2 ptr = 0xbd49 // 0x2fae @0x0
0x2fae…2ff2 lno = 0x16ee // 0x2fb0 @0x2
0x2fae…2ff2 at0004 = ╱92╱ PRINT ╱ // 0x2fb2 @0x4
0x2fae…2ff2 at0005 = ╱22╱"╱ // 0x2fb3 @0x5
0x2fae…2ff2 at0006 = ╱4d╱M╱ // 0x2fb4 @0x6
0x2fae…2ff2 at0007 = ╱75╱u╱ // 0x2fb5 @0x7
0x2fae…2ff2 at0008 = ╱6c╱l╱ // 0x2fb6 @0x8
0x2fae…2ff2 at0009 = ╱74╱t╱ // 0x2fb7 @0x9
0x2fae…2ff2 at000a = ╱69╱i╱ // 0x2fb8 @0xa
0x2fae…2ff2 at000b = ╱70╱p╱ // 0x2fb9 @0xb
0x2fae…2ff2 at000c = ╱6f╱o╱ // 0x2fba @0xc
0x2fae…2ff2 at000d = ╱73╱s╱ // 0x2fbb @0xd
0x2fae…2ff2 at000e = ╱74╱t╱ // 0x2fbc @0xe
0x2fae…2ff2 at000f = ╱65╱e╱ // 0x2fbd @0xf
0x2fae…2ff2 at0010 = ╱72╱r╱ // 0x2fbe @0x10
0x2fae…2ff2 at0011 = ╱69╱i╱ // 0x2fbf @0x11
0x2fae…2ff2 at0012 = ╱6e╱n╱ // 0x2fc0 @0x12
0x2fae…2ff2 at0013 = ╱67╱g╱ // 0x2fc1 @0x13
0x2fae…2ff2 at0014 = ╱20╱…╱ // 0x2fc2 @0x14
0x2fae…2ff2 at0015 = ╱6b╱k╱ // 0x2fc3 @0x15
0x2fae…2ff2 at0016 = ╱61╱a╱ // 0x2fc4 @0x16
0x2fae…2ff2 at0017 = ╱6e╱n╱ // 0x2fc5 @0x17
0x2fae…2ff2 at0018 = ╱20╱…╱ // 0x2fc6 @0x18
0x2fae…2ff2 at0019 = ╱69╱i╱ // 0x2fc7 @0x19
0x2fae…2ff2 at001a = ╱6b╱k╱ // 0x2fc8 @0x1a
0x2fae…2ff2 at001b = ╱6b╱k╱ // 0x2fc9 @0x1b
0x2fae…2ff2 at001c = ╱65╱e╱ // 0x2fca @0x1c
0x2fae…2ff2 at001d = ╱20╱…╱ // 0x2fcb @0x1d
0x2fae…2ff2 at001e = ╱61╱a╱ // 0x2fcc @0x1e
0x2fae…2ff2 at001f = ╱66╱f╱ // 0x2fcd @0x1f
0x2fae…2ff2 at0020 = ╱73╱s╱ // 0x2fce @0x20
0x2fae…2ff2 at0021 = ╱6c╱l╱ // 0x2fcf @0x21
0x2fae…2ff2 at0022 = ╱75╱u╱ // 0x2fd0 @0x22
0x2fae…2ff2 at0023 = ╱74╱t╱ // 0x2fd1 @0x23
0x2fae…2ff2 at0024 = ╱74╱t╱ // 0x2fd2 @0x24
0x2fae…2ff2 at0025 = ╱65╱e╱ // 0x2fd3 @0x25
0x2fae…2ff2 at0026 = ╱73╱s╱ // 0x2fd4 @0x26
0x2fae…2ff2 at0027 = ╱20╱…╱ // 0x2fd5 @0x27
0x2fae…2ff2 at0028 = ╱2c╱,╱ // 0x2fd6 @0x28
0x2fae…2ff2 at0029 = ╱20╱…╱ // 0x2fd7 @0x29
0x2fae…2ff2 at002a = ╱64╱d╱ // 0x2fd8 @0x2a
0x2fae…2ff2 at002b = ╱69╱i╱ // 0x2fd9 @0x2b
0x2fae…2ff2 at002c = ╱66╱f╱ // 0x2fda @0x2c
0x2fae…2ff2 at002d = ╱66╱f╱ // 0x2fdb @0x2d
0x2fae…2ff2 at002e = ╱65╱e╱ // 0x2fdc @0x2e
0x2fae…2ff2 at002f = ╱72╱r╱ // 0x2fdd @0x2f
0x2fae…2ff2 at0030 = ╱65╱e╱ // 0x2fde @0x30
0x2fae…2ff2 at0031 = ╱6e╱n╱ // 0x2fdf @0x31
0x2fae…2ff2 at0032 = ╱63╱c╱ // 0x2fe0 @0x32
0x2fae…2ff2 at0033 = ╱65╱e╱ // 0x2fe1 @0x33
0x2fae…2ff2 at0034 = ╱20╱…╱ // 0x2fe2 @0x34
0x2fae…2ff2 at0035 = ╱3a╱:╱ // 0x2fe3 @0x35
0x2fae…2ff2 at0036 = ╱22╱"╱ // 0x2fe4 @0x36
0x2fae…2ff2 at0037 = ╱eb╱;╱ // 0x2fe5 @0x37
0x2fae…2ff2 at0038 = ╱43╱C╱ // 0x2fe6 @0x38
0x2fae…2ff2 at0039 = ╱34╱4╱ // 0x2fe7 @0x39
0x2fae…2ff2 at003a = ╱ef╱$╱ // 0x2fe8 @0x3a
0x2fae…2ff2 at003b = ╱eb╱;╱ // 0x2fe9 @0x3b
0x2fae…2ff2 at003c = ╱22╱"╱ // 0x2fea @0x3c
0x2fae…2ff2 at003d = ╱20╱…╱ // 0x2feb @0x3d
0x2fae…2ff2 at003e = ╱74╱t╱ // 0x2fec @0x3e
0x2fae…2ff2 at003f = ╱61╱a╱ // 0x2fed @0x3f
0x2fae…2ff2 at0040 = ╱73╱s╱ // 0x2fee @0x40
0x2fae…2ff2 at0041 = ╱22╱"╱ // 0x2fef @0x41
0x2fae…2ff2 at0042 = ╱eb╱;╱ // 0x2ff0 @0x42
0x2fae…2ff2 at0043 = EOL // 0x2ff1 @0x43
0x2fae…2ff2 }
0x2ff2…3004 bd5b 5880 PRINT "t RETURN "
0x2ff2…3004 LineComalBin {
0x2ff2…3004 ptr = 0xbd5b // 0x2ff2 @0x0
0x2ff2…3004 lno = 0x16f8 // 0x2ff4 @0x2
0x2ff2…3004 at0004 = ╱92╱ PRINT ╱ // 0x2ff6 @0x4
0x2ff2…3004 at0005 = ╱22╱"╱ // 0x2ff7 @0x5
0x2ff2…3004 at0006 = ╱74╱t╱ // 0x2ff8 @0x6
0x2ff2…3004 at0007 = ╱20╱…╱ // 0x2ff9 @0x7
0x2ff2…3004 at0008 = ╱52╱R╱ // 0x2ffa @0x8
0x2ff2…3004 at0009 = ╱45╱E╱ // 0x2ffb @0x9
0x2ff2…3004 at000a = ╱54╱T╱ // 0x2ffc @0xa
0x2ff2…3004 at000b = ╱55╱U╱ // 0x2ffd @0xb
0x2ff2…3004 at000c = ╱52╱R╱ // 0x2ffe @0xc
0x2ff2…3004 at000d = ╱4e╱N╱ // 0x2fff @0xd
0x2ff2…3004 at000e = ╱20╱…╱ // 0x3000 @0xe
0x2ff2…3004 at000f = ╱20╱…╱ // 0x3001 @0xf
0x2ff2…3004 at0010 = ╱22╱"╱ // 0x3002 @0x10
0x2ff2…3004 at0011 = EOL // 0x3003 @0x11
0x2ff2…3004 }
0x3004…3019 bd70 5890 CURSOR 79,23
0x3004…3019 LineComalBin {
0x3004…3019 ptr = 0xbd70 // 0x3004 @0x0
0x3004…3019 lno = 0x1702 // 0x3006 @0x2
0x3004…3019 at0004 = ╱a1╱ CURSOR ╱ // 0x3008 @0x4
0x3004…3019 at0005 = ╱37╱7╱ // 0x3009 @0x5
0x3004…3019 at0006 = ╱39╱9╱ // 0x300a @0x6
0x3004…3019 at0007 = ╱fe00009e07╱ // 0x300b @0x7
0x3004…3019 at000c = ╱ec╱,╱ // 0x3010 @0xc
0x3004…3019 at000d = ╱32╱2╱ // 0x3011 @0xd
0x3004…3019 at000e = ╱33╱3╱ // 0x3012 @0xe
0x3004…3019 at000f = ╱fe0000b805╱ // 0x3013 @0xf
0x3004…3019 at0014 = EOL // 0x3018 @0x14
0x3004…3019 }
0x3019…3021 bd78 5900 INPUT A$
0x3019…3021 LineComalBin {
0x3019…3021 ptr = 0xbd78 // 0x3019 @0x0
0x3019…3021 lno = 0x170c // 0x301b @0x2
0x3019…3021 at0004 = ╱91╱ INPUT ╱ // 0x301d @0x4
0x3019…3021 at0005 = ╱41╱A╱ // 0x301e @0x5
0x3019…3021 at0006 = ╱ef╱$╱ // 0x301f @0x6
0x3019…3021 at0007 = EOL // 0x3020 @0x7
0x3019…3021 }
0x3021…3031 bd88 5910 EXEC NRTEST(A$)
0x3021…3031 LineComalBin {
0x3021…3031 ptr = 0xbd88 // 0x3021 @0x0
0x3021…3031 lno = 0x1716 // 0x3023 @0x2
0x3021…3031 at0004 = ╱9d╱ EXEC ╱ // 0x3025 @0x4
0x3021…3031 at0005 = ╱4e╱N╱ // 0x3026 @0x5
0x3021…3031 at0006 = ╱52╱R╱ // 0x3027 @0x6
0x3021…3031 at0007 = ╱54╱T╱ // 0x3028 @0x7
0x3021…3031 at0008 = ╱45╱E╱ // 0x3029 @0x8
0x3021…3031 at0009 = ╱53╱S╱ // 0x302a @0x9
0x3021…3031 at000a = ╱54╱T╱ // 0x302b @0xa
0x3021…3031 at000b = ╱ed╱(╱ // 0x302c @0xb
0x3021…3031 at000c = ╱41╱A╱ // 0x302d @0xc
0x3021…3031 at000d = ╱ef╱$╱ // 0x302e @0xd
0x3021…3031 at000e = ╱ee╱)╱ // 0x302f @0xe
0x3021…3031 at000f = EOL // 0x3030 @0xf
0x3021…3031 }
0x3031…303b bd92 5920 UNTIL P=-E
0x3031…303b LineComalBin {
0x3031…303b ptr = 0xbd92 // 0x3031 @0x0
0x3031…303b lno = 0x1720 // 0x3033 @0x2
0x3031…303b at0004 = ╱98╱ UNTIL ╱ // 0x3035 @0x4
0x3031…303b at0005 = ╱50╱P╱ // 0x3036 @0x5
0x3031…303b at0006 = ╱dc╱=╱ // 0x3037 @0x6
0x3031…303b at0007 = ╱e9╱-╱ // 0x3038 @0x7
0x3031…303b at0008 = ╱45╱E╱ // 0x3039 @0x8
0x3031…303b at0009 = EOL // 0x303a @0x9
0x3031…303b }
0x303b…3041 bd98 5930 CLEAR
0x303b…3041 LineComalBin {
0x303b…3041 ptr = 0xbd98 // 0x303b @0x0
0x303b…3041 lno = 0x172a // 0x303d @0x2
0x303b…3041 at0004 = ╱a0╱ CLEAR ╱ // 0x303f @0x4
0x303b…3041 at0005 = EOL // 0x3040 @0x5
0x303b…3041 }
0x3041…304a bda1 5940 O2=E
0x3041…304a LineComalBin {
0x3041…304a ptr = 0xbda1 // 0x3041 @0x0
0x3041…304a lno = 0x1734 // 0x3043 @0x2
0x3041…304a at0004 = ╱4f╱O╱ // 0x3045 @0x4
0x3041…304a at0005 = ╱32╱2╱ // 0x3046 @0x5
0x3041…304a at0006 = ╱dc╱=╱ // 0x3047 @0x6
0x3041…304a at0007 = ╱45╱E╱ // 0x3048 @0x7
0x3041…304a at0008 = EOL // 0x3049 @0x8
0x3041…304a }
0x304a…3050 bda7 5950 REPEAT
0x304a…3050 LineComalBin {
0x304a…3050 ptr = 0xbda7 // 0x304a @0x0
0x304a…3050 lno = 0x173e // 0x304c @0x2
0x304a…3050 at0004 = ╱97╱ REPEAT ╱ // 0x304e @0x4
0x304a…3050 at0005 = EOL // 0x304f @0x5
0x304a…3050 }
0x3050…305d bdb4 5960 EXEC UDHOVED
0x3050…305d LineComalBin {
0x3050…305d ptr = 0xbdb4 // 0x3050 @0x0
0x3050…305d lno = 0x1748 // 0x3052 @0x2
0x3050…305d at0004 = ╱9d╱ EXEC ╱ // 0x3054 @0x4
0x3050…305d at0005 = ╱55╱U╱ // 0x3055 @0x5
0x3050…305d at0006 = ╱44╱D╱ // 0x3056 @0x6
0x3050…305d at0007 = ╱48╱H╱ // 0x3057 @0x7
0x3050…305d at0008 = ╱4f╱O╱ // 0x3058 @0x8
0x3050…305d at0009 = ╱56╱V╱ // 0x3059 @0x9
0x3050…305d at000a = ╱45╱E╱ // 0x305a @0xa
0x3050…305d at000b = ╱44╱D╱ // 0x305b @0xb
0x3050…305d at000c = EOL // 0x305c @0xc
0x3050…305d }
0x305d…3063 bdba 5970 REPEAT
0x305d…3063 LineComalBin {
0x305d…3063 ptr = 0xbdba // 0x305d @0x0
0x305d…3063 lno = 0x1752 // 0x305f @0x2
0x305d…3063 at0004 = ╱97╱ REPEAT ╱ // 0x3061 @0x4
0x305d…3063 at0005 = EOL // 0x3062 @0x5
0x305d…3063 }
0x3063…307f bdd6 5980 IF E3(O2)<>B AND LEN(E4$(O2))>B THEN
0x3063…307f LineComalBin {
0x3063…307f ptr = 0xbdd6 // 0x3063 @0x0
0x3063…307f lno = 0x175c // 0x3065 @0x2
0x3063…307f at0004 = ╱9c╱ IF ╱ // 0x3067 @0x4
0x3063…307f at0005 = ╱45╱E╱ // 0x3068 @0x5
0x3063…307f at0006 = ╱33╱3╱ // 0x3069 @0x6
0x3063…307f at0007 = ╱ed╱(╱ // 0x306a @0x7
0x3063…307f at0008 = ╱4f╱O╱ // 0x306b @0x8
0x3063…307f at0009 = ╱32╱2╱ // 0x306c @0x9
0x3063…307f at000a = ╱ee╱)╱ // 0x306d @0xa
0x3063…307f at000b = ╱e1╱<>╱ // 0x306e @0xb
0x3063…307f at000c = ╱42╱B╱ // 0x306f @0xc
0x3063…307f at000d = ╱da╱ AND ╱ // 0x3070 @0xd
0x3063…307f at000e = ╱cc╱LEN╱ // 0x3071 @0xe
0x3063…307f at000f = ╱ed╱(╱ // 0x3072 @0xf
0x3063…307f at0010 = ╱45╱E╱ // 0x3073 @0x10
0x3063…307f at0011 = ╱34╱4╱ // 0x3074 @0x11
0x3063…307f at0012 = ╱ef╱$╱ // 0x3075 @0x12
0x3063…307f at0013 = ╱ed╱(╱ // 0x3076 @0x13
0x3063…307f at0014 = ╱4f╱O╱ // 0x3077 @0x14
0x3063…307f at0015 = ╱32╱2╱ // 0x3078 @0x15
0x3063…307f at0016 = ╱ee╱)╱ // 0x3079 @0x16
0x3063…307f at0017 = ╱ee╱)╱ // 0x307a @0x17
0x3063…307f at0018 = ╱de╱>╱ // 0x307b @0x18
0x3063…307f at0019 = ╱42╱B╱ // 0x307c @0x19
0x3063…307f at001a = ╱b6╱ THEN ╱ // 0x307d @0x1a
0x3063…307f at001b = EOL // 0x307e @0x1b
0x3063…307f }
0x307f…309f bdf6 5990 EXEC CA(5,E4$(O2),D0$,C4$)
0x307f…309f LineComalBin {
0x307f…309f ptr = 0xbdf6 // 0x307f @0x0
0x307f…309f lno = 0x1766 // 0x3081 @0x2
0x307f…309f at0004 = ╱9d╱ EXEC ╱ // 0x3083 @0x4
0x307f…309f at0005 = ╱43╱C╱ // 0x3084 @0x5
0x307f…309f at0006 = ╱41╱A╱ // 0x3085 @0x6
0x307f…309f at0007 = ╱ed╱(╱ // 0x3086 @0x7
0x307f…309f at0008 = ╱35╱5╱ // 0x3087 @0x8
0x307f…309f at0009 = ╱fe0000a003╱ // 0x3088 @0x9
0x307f…309f at000e = ╱ec╱,╱ // 0x308d @0xe
0x307f…309f at000f = ╱45╱E╱ // 0x308e @0xf
0x307f…309f at0010 = ╱34╱4╱ // 0x308f @0x10
0x307f…309f at0011 = ╱ef╱$╱ // 0x3090 @0x11
0x307f…309f at0012 = ╱ed╱(╱ // 0x3091 @0x12
0x307f…309f at0013 = ╱4f╱O╱ // 0x3092 @0x13
0x307f…309f at0014 = ╱32╱2╱ // 0x3093 @0x14
0x307f…309f at0015 = ╱ee╱)╱ // 0x3094 @0x15
0x307f…309f at0016 = ╱ec╱,╱ // 0x3095 @0x16
0x307f…309f at0017 = ╱44╱D╱ // 0x3096 @0x17
0x307f…309f at0018 = ╱30╱0╱ // 0x3097 @0x18
0x307f…309f at0019 = ╱ef╱$╱ // 0x3098 @0x19
0x307f…309f at001a = ╱ec╱,╱ // 0x3099 @0x1a
0x307f…309f at001b = ╱43╱C╱ // 0x309a @0x1b
0x307f…309f at001c = ╱34╱4╱ // 0x309b @0x1c
0x307f…309f at001d = ╱ef╱$╱ // 0x309c @0x1d
0x307f…309f at001e = ╱ee╱)╱ // 0x309d @0x1e
0x307f…309f at001f = EOL // 0x309e @0x1f
0x307f…309f }
0x309f…30bc be13 6000 CURSOR E,(O2-E) MOD 18+4
0x309f…30bc LineComalBin {
0x309f…30bc ptr = 0xbe13 // 0x309f @0x0
0x309f…30bc lno = 0x1770 // 0x30a1 @0x2
0x309f…30bc at0004 = ╱a1╱ CURSOR ╱ // 0x30a3 @0x4
0x309f…30bc at0005 = ╱45╱E╱ // 0x30a4 @0x5
0x309f…30bc at0006 = ╱ec╱,╱ // 0x30a5 @0x6
0x309f…30bc at0007 = ╱ed╱(╱ // 0x30a6 @0x7
0x309f…30bc at0008 = ╱4f╱O╱ // 0x30a7 @0x8
0x309f…30bc at0009 = ╱32╱2╱ // 0x30a8 @0x9
0x309f…30bc at000a = ╱e3╱-╱ // 0x30a9 @0xa
0x309f…30bc at000b = ╱45╱E╱ // 0x30aa @0xb
0x309f…30bc at000c = ╱ee╱)╱ // 0x30ab @0xc
0x309f…30bc at000d = ╱e8╱ MOD ╱ // 0x30ac @0xd
0x309f…30bc at000e = ╱31╱1╱ // 0x30ad @0xe
0x309f…30bc at000f = ╱38╱8╱ // 0x30ae @0xf
0x309f…30bc at0010 = ╱fe00009005╱ // 0x30af @0x10
0x309f…30bc at0015 = ╱e2╱+╱ // 0x30b4 @0x15
0x309f…30bc at0016 = ╱34╱4╱ // 0x30b5 @0x16
0x309f…30bc at0017 = ╱fe00008003╱ // 0x30b6 @0x17
0x309f…30bc at001c = EOL // 0x30bb @0x1c
0x309f…30bc }
0x30bc…30dc be33 6010 PRINT USING "### ####### ":O2,E3(O2);
0x30bc…30dc LineComalBin {
0x30bc…30dc ptr = 0xbe33 // 0x30bc @0x0
0x30bc…30dc lno = 0x177a // 0x30be @0x2
0x30bc…30dc at0004 = ╱92╱ PRINT ╱ // 0x30c0 @0x4
0x30bc…30dc at0005 = ╱b9╱ USING ╱ // 0x30c1 @0x5
0x30bc…30dc at0006 = ╱22╱"╱ // 0x30c2 @0x6
0x30bc…30dc at0007 = ╱23╱#╱ // 0x30c3 @0x7
0x30bc…30dc at0008 = ╱23╱#╱ // 0x30c4 @0x8
0x30bc…30dc at0009 = ╱23╱#╱ // 0x30c5 @0x9
0x30bc…30dc at000a = ╱20╱…╱ // 0x30c6 @0xa
0x30bc…30dc at000b = ╱23╱#╱ // 0x30c7 @0xb
0x30bc…30dc at000c = ╱23╱#╱ // 0x30c8 @0xc
0x30bc…30dc at000d = ╱23╱#╱ // 0x30c9 @0xd
0x30bc…30dc at000e = ╱23╱#╱ // 0x30ca @0xe
0x30bc…30dc at000f = ╱23╱#╱ // 0x30cb @0xf
0x30bc…30dc at0010 = ╱23╱#╱ // 0x30cc @0x10
0x30bc…30dc at0011 = ╱23╱#╱ // 0x30cd @0x11
0x30bc…30dc at0012 = ╱20╱…╱ // 0x30ce @0x12
0x30bc…30dc at0013 = ╱22╱"╱ // 0x30cf @0x13
0x30bc…30dc at0014 = ╱f0╱:╱ // 0x30d0 @0x14
0x30bc…30dc at0015 = ╱4f╱O╱ // 0x30d1 @0x15
0x30bc…30dc at0016 = ╱32╱2╱ // 0x30d2 @0x16
0x30bc…30dc at0017 = ╱ec╱,╱ // 0x30d3 @0x17
0x30bc…30dc at0018 = ╱45╱E╱ // 0x30d4 @0x18
0x30bc…30dc at0019 = ╱33╱3╱ // 0x30d5 @0x19
0x30bc…30dc at001a = ╱ed╱(╱ // 0x30d6 @0x1a
0x30bc…30dc at001b = ╱4f╱O╱ // 0x30d7 @0x1b
0x30bc…30dc at001c = ╱32╱2╱ // 0x30d8 @0x1c
0x30bc…30dc at001d = ╱ee╱)╱ // 0x30d9 @0x1d
0x30bc…30dc at001e = ╱eb╱;╱ // 0x30da @0x1e
0x30bc…30dc at001f = EOL // 0x30db @0x1f
0x30bc…30dc }
0x30dc…30eb be42 6020 IF C8(O2)>W THEN
0x30dc…30eb LineComalBin {
0x30dc…30eb ptr = 0xbe42 // 0x30dc @0x0
0x30dc…30eb lno = 0x1784 // 0x30de @0x2
0x30dc…30eb at0004 = ╱9c╱ IF ╱ // 0x30e0 @0x4
0x30dc…30eb at0005 = ╱43╱C╱ // 0x30e1 @0x5
0x30dc…30eb at0006 = ╱38╱8╱ // 0x30e2 @0x6
0x30dc…30eb at0007 = ╱ed╱(╱ // 0x30e3 @0x7
0x30dc…30eb at0008 = ╱4f╱O╱ // 0x30e4 @0x8
0x30dc…30eb at0009 = ╱32╱2╱ // 0x30e5 @0x9
0x30dc…30eb at000a = ╱ee╱)╱ // 0x30e6 @0xa
0x30dc…30eb at000b = ╱de╱>╱ // 0x30e7 @0xb
0x30dc…30eb at000c = ╱57╱W╱ // 0x30e8 @0xc
0x30dc…30eb at000d = ╱b6╱ THEN ╱ // 0x30e9 @0xd
0x30dc…30eb at000e = EOL // 0x30ea @0xe
0x30dc…30eb }
0x30eb…30f9 be50 6030 PRINT C9$(O2);
0x30eb…30f9 LineComalBin {
0x30eb…30f9 ptr = 0xbe50 // 0x30eb @0x0
0x30eb…30f9 lno = 0x178e // 0x30ed @0x2
0x30eb…30f9 at0004 = ╱92╱ PRINT ╱ // 0x30ef @0x4
0x30eb…30f9 at0005 = ╱43╱C╱ // 0x30f0 @0x5
0x30eb…30f9 at0006 = ╱39╱9╱ // 0x30f1 @0x6
0x30eb…30f9 at0007 = ╱ef╱$╱ // 0x30f2 @0x7
0x30eb…30f9 at0008 = ╱ed╱(╱ // 0x30f3 @0x8
0x30eb…30f9 at0009 = ╱4f╱O╱ // 0x30f4 @0x9
0x30eb…30f9 at000a = ╱32╱2╱ // 0x30f5 @0xa
0x30eb…30f9 at000b = ╱ee╱)╱ // 0x30f6 @0xb
0x30eb…30f9 at000c = ╱eb╱;╱ // 0x30f7 @0xc
0x30eb…30f9 at000d = EOL // 0x30f8 @0xd
0x30eb…30f9 }
0x30f9…30ff be56 6040 ELSE
0x30f9…30ff LineComalBin {
0x30f9…30ff ptr = 0xbe56 // 0x30f9 @0x0
0x30f9…30ff lno = 0x1798 // 0x30fb @0x2
0x30f9…30ff at0004 = ╱9a╱ ELSE ╱ // 0x30fd @0x4
0x30f9…30ff at0005 = EOL // 0x30fe @0x5
0x30f9…30ff }
0x30ff…311b be72 6050 IF C8(O2)<>B THEN PRINT C3$(C8(O2));
0x30ff…311b LineComalBin {
0x30ff…311b ptr = 0xbe72 // 0x30ff @0x0
0x30ff…311b lno = 0x17a2 // 0x3101 @0x2
0x30ff…311b at0004 = ╱82╱ IF ╱ // 0x3103 @0x4
0x30ff…311b at0005 = ╱43╱C╱ // 0x3104 @0x5
0x30ff…311b at0006 = ╱38╱8╱ // 0x3105 @0x6
0x30ff…311b at0007 = ╱ed╱(╱ // 0x3106 @0x7
0x30ff…311b at0008 = ╱4f╱O╱ // 0x3107 @0x8
0x30ff…311b at0009 = ╱32╱2╱ // 0x3108 @0x9
0x30ff…311b at000a = ╱ee╱)╱ // 0x3109 @0xa
0x30ff…311b at000b = ╱e1╱<>╱ // 0x310a @0xb
0x30ff…311b at000c = ╱42╱B╱ // 0x310b @0xc
0x30ff…311b at000d = ╱b6╱ THEN ╱ // 0x310c @0xd
0x30ff…311b at000e = ╱92╱ PRINT ╱ // 0x310d @0xe
0x30ff…311b at000f = ╱43╱C╱ // 0x310e @0xf
0x30ff…311b at0010 = ╱33╱3╱ // 0x310f @0x10
0x30ff…311b at0011 = ╱ef╱$╱ // 0x3110 @0x11
0x30ff…311b at0012 = ╱ed╱(╱ // 0x3111 @0x12
0x30ff…311b at0013 = ╱43╱C╱ // 0x3112 @0x13
0x30ff…311b at0014 = ╱38╱8╱ // 0x3113 @0x14
0x30ff…311b at0015 = ╱ed╱(╱ // 0x3114 @0x15
0x30ff…311b at0016 = ╱4f╱O╱ // 0x3115 @0x16
0x30ff…311b at0017 = ╱32╱2╱ // 0x3116 @0x17
0x30ff…311b at0018 = ╱ee╱)╱ // 0x3117 @0x18
0x30ff…311b at0019 = ╱ee╱)╱ // 0x3118 @0x19
0x30ff…311b at001a = ╱eb╱;╱ // 0x3119 @0x1a
0x30ff…311b at001b = EOL // 0x311a @0x1b
0x30ff…311b }
0x311b…3121 be78 6060 ENDIF
0x311b…3121 LineComalBin {
0x311b…3121 ptr = 0xbe78 // 0x311b @0x0
0x311b…3121 lno = 0x17ac // 0x311d @0x2
0x311b…3121 at0004 = ╱9b╱ ENDIF ╱ // 0x311f @0x4
0x311b…3121 at0005 = EOL // 0x3120 @0x5
0x311b…3121 }
0x3121…312b be82 6070 LOG=B
0x3121…312b LineComalBin {
0x3121…312b ptr = 0xbe82 // 0x3121 @0x0
0x3121…312b lno = 0x17b6 // 0x3123 @0x2
0x3121…312b at0004 = ╱4c╱L╱ // 0x3125 @0x4
0x3121…312b at0005 = ╱4f╱O╱ // 0x3126 @0x5
0x3121…312b at0006 = ╱47╱G╱ // 0x3127 @0x6
0x3121…312b at0007 = ╱dc╱=╱ // 0x3128 @0x7
0x3121…312b at0008 = ╱42╱B╱ // 0x3129 @0x8
0x3121…312b at0009 = EOL // 0x312a @0x9
0x3121…312b }
0x312b…314e bea5 6080 CURSOR 38,(O2-E) MOD 18+4
0x312b…314e LineComalBin {
0x312b…314e ptr = 0xbea5 // 0x312b @0x0
0x312b…314e lno = 0x17c0 // 0x312d @0x2
0x312b…314e at0004 = ╱a1╱ CURSOR ╱ // 0x312f @0x4
0x312b…314e at0005 = ╱33╱3╱ // 0x3130 @0x5
0x312b…314e at0006 = ╱38╱8╱ // 0x3131 @0x6
0x312b…314e at0007 = ╱fe00009806╱ // 0x3132 @0x7
0x312b…314e at000c = ╱ec╱,╱ // 0x3137 @0xc
0x312b…314e at000d = ╱ed╱(╱ // 0x3138 @0xd
0x312b…314e at000e = ╱4f╱O╱ // 0x3139 @0xe
0x312b…314e at000f = ╱32╱2╱ // 0x313a @0xf
0x312b…314e at0010 = ╱e3╱-╱ // 0x313b @0x10
0x312b…314e at0011 = ╱45╱E╱ // 0x313c @0x11
0x312b…314e at0012 = ╱ee╱)╱ // 0x313d @0x12
0x312b…314e at0013 = ╱e8╱ MOD ╱ // 0x313e @0x13
0x312b…314e at0014 = ╱31╱1╱ // 0x313f @0x14
0x312b…314e at0015 = ╱38╱8╱ // 0x3140 @0x15
0x312b…314e at0016 = ╱fe00009005╱ // 0x3141 @0x16
0x312b…314e at001b = ╱e2╱+╱ // 0x3146 @0x1b
0x312b…314e at001c = ╱34╱4╱ // 0x3147 @0x1c
0x312b…314e at001d = ╱fe00008003╱ // 0x3148 @0x1d
0x312b…314e at0022 = EOL // 0x314d @0x22
0x312b…314e }
0x314e…3170 bec7 6090 IF E4$(O2,LEN(E4$(O2)))="-" THEN LOG=E
0x314e…3170 LineComalBin {
0x314e…3170 ptr = 0xbec7 // 0x314e @0x0
0x314e…3170 lno = 0x17ca // 0x3150 @0x2
0x314e…3170 at0004 = ╱82╱ IF ╱ // 0x3152 @0x4
0x314e…3170 at0005 = ╱45╱E╱ // 0x3153 @0x5
0x314e…3170 at0006 = ╱34╱4╱ // 0x3154 @0x6
0x314e…3170 at0007 = ╱ef╱$╱ // 0x3155 @0x7
0x314e…3170 at0008 = ╱ed╱(╱ // 0x3156 @0x8
0x314e…3170 at0009 = ╱4f╱O╱ // 0x3157 @0x9
0x314e…3170 at000a = ╱32╱2╱ // 0x3158 @0xa
0x314e…3170 at000b = ╱ec╱,╱ // 0x3159 @0xb
0x314e…3170 at000c = ╱cc╱LEN╱ // 0x315a @0xc
0x314e…3170 at000d = ╱ed╱(╱ // 0x315b @0xd
0x314e…3170 at000e = ╱45╱E╱ // 0x315c @0xe
0x314e…3170 at000f = ╱34╱4╱ // 0x315d @0xf
0x314e…3170 at0010 = ╱ef╱$╱ // 0x315e @0x10
0x314e…3170 at0011 = ╱ed╱(╱ // 0x315f @0x11
0x314e…3170 at0012 = ╱4f╱O╱ // 0x3160 @0x12
0x314e…3170 at0013 = ╱32╱2╱ // 0x3161 @0x13
0x314e…3170 at0014 = ╱ee╱)╱ // 0x3162 @0x14
0x314e…3170 at0015 = ╱ee╱)╱ // 0x3163 @0x15
0x314e…3170 at0016 = ╱ee╱)╱ // 0x3164 @0x16
0x314e…3170 at0017 = ╱dc╱=╱ // 0x3165 @0x17
0x314e…3170 at0018 = ╱22╱"╱ // 0x3166 @0x18
0x314e…3170 at0019 = ╱2d╱-╱ // 0x3167 @0x19
0x314e…3170 at001a = ╱22╱"╱ // 0x3168 @0x1a
0x314e…3170 at001b = ╱b6╱ THEN ╱ // 0x3169 @0x1b
0x314e…3170 at001c = ╱4c╱L╱ // 0x316a @0x1c
0x314e…3170 at001d = ╱4f╱O╱ // 0x316b @0x1d
0x314e…3170 at001e = ╱47╱G╱ // 0x316c @0x1e
0x314e…3170 at001f = ╱dc╱=╱ // 0x316d @0x1f
0x314e…3170 at0020 = ╱45╱E╱ // 0x316e @0x20
0x314e…3170 at0021 = EOL // 0x316f @0x21
0x314e…3170 }
0x3170…31bd bf14 6100 PRINT USING "###### ######":C6(O2)+100000*(LOG=E),E8(O2)+100000*(LOG=E);
0x3170…31bd LineComalBin {
0x3170…31bd ptr = 0xbf14 // 0x3170 @0x0
0x3170…31bd lno = 0x17d4 // 0x3172 @0x2
0x3170…31bd at0004 = ╱92╱ PRINT ╱ // 0x3174 @0x4
0x3170…31bd at0005 = ╱b9╱ USING ╱ // 0x3175 @0x5
0x3170…31bd at0006 = ╱22╱"╱ // 0x3176 @0x6
0x3170…31bd at0007 = ╱23╱#╱ // 0x3177 @0x7
0x3170…31bd at0008 = ╱23╱#╱ // 0x3178 @0x8
0x3170…31bd at0009 = ╱23╱#╱ // 0x3179 @0x9
0x3170…31bd at000a = ╱23╱#╱ // 0x317a @0xa
0x3170…31bd at000b = ╱23╱#╱ // 0x317b @0xb
0x3170…31bd at000c = ╱23╱#╱ // 0x317c @0xc
0x3170…31bd at000d = ╱20╱…╱ // 0x317d @0xd
0x3170…31bd at000e = ╱23╱#╱ // 0x317e @0xe
0x3170…31bd at000f = ╱23╱#╱ // 0x317f @0xf
0x3170…31bd at0010 = ╱23╱#╱ // 0x3180 @0x10
0x3170…31bd at0011 = ╱23╱#╱ // 0x3181 @0x11
0x3170…31bd at0012 = ╱23╱#╱ // 0x3182 @0x12
0x3170…31bd at0013 = ╱23╱#╱ // 0x3183 @0x13
0x3170…31bd at0014 = ╱22╱"╱ // 0x3184 @0x14
0x3170…31bd at0015 = ╱f0╱:╱ // 0x3185 @0x15
0x3170…31bd at0016 = ╱43╱C╱ // 0x3186 @0x16
0x3170…31bd at0017 = ╱36╱6╱ // 0x3187 @0x17
0x3170…31bd at0018 = ╱ed╱(╱ // 0x3188 @0x18
0x3170…31bd at0019 = ╱4f╱O╱ // 0x3189 @0x19
0x3170…31bd at001a = ╱32╱2╱ // 0x318a @0x1a
0x3170…31bd at001b = ╱ee╱)╱ // 0x318b @0x1b
0x3170…31bd at001c = ╱e2╱+╱ // 0x318c @0x1c
0x3170…31bd at001d = ╱31╱1╱ // 0x318d @0x1d
0x3170…31bd at001e = ╱30╱0╱ // 0x318e @0x1e
0x3170…31bd at001f = ╱30╱0╱ // 0x318f @0x1f
0x3170…31bd at0020 = ╱30╱0╱ // 0x3190 @0x20
0x3170…31bd at0021 = ╱30╱0╱ // 0x3191 @0x21
0x3170…31bd at0022 = ╱30╱0╱ // 0x3192 @0x22
0x3170…31bd at0023 = ╱fe0050c311╱ // 0x3193 @0x23
0x3170…31bd at0028 = ╱e4╱*╱ // 0x3198 @0x28
0x3170…31bd at0029 = ╱ed╱(╱ // 0x3199 @0x29
0x3170…31bd at002a = ╱4c╱L╱ // 0x319a @0x2a
0x3170…31bd at002b = ╱4f╱O╱ // 0x319b @0x2b
0x3170…31bd at002c = ╱47╱G╱ // 0x319c @0x2c
0x3170…31bd at002d = ╱dc╱=╱ // 0x319d @0x2d
0x3170…31bd at002e = ╱45╱E╱ // 0x319e @0x2e
0x3170…31bd at002f = ╱ee╱)╱ // 0x319f @0x2f
0x3170…31bd at0030 = ╱ec╱,╱ // 0x31a0 @0x30
0x3170…31bd at0031 = ╱45╱E╱ // 0x31a1 @0x31
0x3170…31bd at0032 = ╱38╱8╱ // 0x31a2 @0x32
0x3170…31bd at0033 = ╱ed╱(╱ // 0x31a3 @0x33
0x3170…31bd at0034 = ╱4f╱O╱ // 0x31a4 @0x34
0x3170…31bd at0035 = ╱32╱2╱ // 0x31a5 @0x35
0x3170…31bd at0036 = ╱ee╱)╱ // 0x31a6 @0x36
0x3170…31bd at0037 = ╱e2╱+╱ // 0x31a7 @0x37
0x3170…31bd at0038 = ╱31╱1╱ // 0x31a8 @0x38
0x3170…31bd at0039 = ╱30╱0╱ // 0x31a9 @0x39
0x3170…31bd at003a = ╱30╱0╱ // 0x31aa @0x3a
0x3170…31bd at003b = ╱30╱0╱ // 0x31ab @0x3b
0x3170…31bd at003c = ╱30╱0╱ // 0x31ac @0x3c
0x3170…31bd at003d = ╱30╱0╱ // 0x31ad @0x3d
0x3170…31bd at003e = ╱fe0050c311╱ // 0x31ae @0x3e
0x3170…31bd at0043 = ╱e4╱*╱ // 0x31b3 @0x43
0x3170…31bd at0044 = ╱ed╱(╱ // 0x31b4 @0x44
0x3170…31bd at0045 = ╱4c╱L╱ // 0x31b5 @0x45
0x3170…31bd at0046 = ╱4f╱O╱ // 0x31b6 @0x46
0x3170…31bd at0047 = ╱47╱G╱ // 0x31b7 @0x47
0x3170…31bd at0048 = ╱dc╱=╱ // 0x31b8 @0x48
0x3170…31bd at0049 = ╱45╱E╱ // 0x31b9 @0x49
0x3170…31bd at004a = ╱ee╱)╱ // 0x31ba @0x4a
0x3170…31bd at004b = ╱eb╱;╱ // 0x31bb @0x4b
0x3170…31bd at004c = EOL // 0x31bc @0x4c
0x3170…31bd }
0x31bd…31d2 bf29 6110 PRINT C4$(E:13);
0x31bd…31d2 LineComalBin {
0x31bd…31d2 ptr = 0xbf29 // 0x31bd @0x0
0x31bd…31d2 lno = 0x17de // 0x31bf @0x2
0x31bd…31d2 at0004 = ╱92╱ PRINT ╱ // 0x31c1 @0x4
0x31bd…31d2 at0005 = ╱43╱C╱ // 0x31c2 @0x5
0x31bd…31d2 at0006 = ╱34╱4╱ // 0x31c3 @0x6
0x31bd…31d2 at0007 = ╱ef╱$╱ // 0x31c4 @0x7
0x31bd…31d2 at0008 = ╱ed╱(╱ // 0x31c5 @0x8
0x31bd…31d2 at0009 = ╱45╱E╱ // 0x31c6 @0x9
0x31bd…31d2 at000a = ╱f0╱:╱ // 0x31c7 @0xa
0x31bd…31d2 at000b = ╱31╱1╱ // 0x31c8 @0xb
0x31bd…31d2 at000c = ╱33╱3╱ // 0x31c9 @0xc
0x31bd…31d2 at000d = ╱fe0000d004╱ // 0x31ca @0xd
0x31bd…31d2 at0012 = ╱ee╱)╱ // 0x31cf @0x12
0x31bd…31d2 at0013 = ╱eb╱;╱ // 0x31d0 @0x13
0x31bd…31d2 at0014 = EOL // 0x31d1 @0x14
0x31bd…31d2 }
0x31d2…321f bf76 6120 PRINT USING " ###### ######":C6(O2)+100000*(LOG=B);E8(O2)+100000*(LOG=B)
0x31d2…321f LineComalBin {
0x31d2…321f ptr = 0xbf76 // 0x31d2 @0x0
0x31d2…321f lno = 0x17e8 // 0x31d4 @0x2
0x31d2…321f at0004 = ╱92╱ PRINT ╱ // 0x31d6 @0x4
0x31d2…321f at0005 = ╱b9╱ USING ╱ // 0x31d7 @0x5
0x31d2…321f at0006 = ╱22╱"╱ // 0x31d8 @0x6
0x31d2…321f at0007 = ╱20╱…╱ // 0x31d9 @0x7
0x31d2…321f at0008 = ╱23╱#╱ // 0x31da @0x8
0x31d2…321f at0009 = ╱23╱#╱ // 0x31db @0x9
0x31d2…321f at000a = ╱23╱#╱ // 0x31dc @0xa
0x31d2…321f at000b = ╱23╱#╱ // 0x31dd @0xb
0x31d2…321f at000c = ╱23╱#╱ // 0x31de @0xc
0x31d2…321f at000d = ╱23╱#╱ // 0x31df @0xd
0x31d2…321f at000e = ╱20╱…╱ // 0x31e0 @0xe
0x31d2…321f at000f = ╱23╱#╱ // 0x31e1 @0xf
0x31d2…321f at0010 = ╱23╱#╱ // 0x31e2 @0x10
0x31d2…321f at0011 = ╱23╱#╱ // 0x31e3 @0x11
0x31d2…321f at0012 = ╱23╱#╱ // 0x31e4 @0x12
0x31d2…321f at0013 = ╱23╱#╱ // 0x31e5 @0x13
0x31d2…321f at0014 = ╱23╱#╱ // 0x31e6 @0x14
0x31d2…321f at0015 = ╱22╱"╱ // 0x31e7 @0x15
0x31d2…321f at0016 = ╱f0╱:╱ // 0x31e8 @0x16
0x31d2…321f at0017 = ╱43╱C╱ // 0x31e9 @0x17
0x31d2…321f at0018 = ╱36╱6╱ // 0x31ea @0x18
0x31d2…321f at0019 = ╱ed╱(╱ // 0x31eb @0x19
0x31d2…321f at001a = ╱4f╱O╱ // 0x31ec @0x1a
0x31d2…321f at001b = ╱32╱2╱ // 0x31ed @0x1b
0x31d2…321f at001c = ╱ee╱)╱ // 0x31ee @0x1c
0x31d2…321f at001d = ╱e2╱+╱ // 0x31ef @0x1d
0x31d2…321f at001e = ╱31╱1╱ // 0x31f0 @0x1e
0x31d2…321f at001f = ╱30╱0╱ // 0x31f1 @0x1f
0x31d2…321f at0020 = ╱30╱0╱ // 0x31f2 @0x20
0x31d2…321f at0021 = ╱30╱0╱ // 0x31f3 @0x21
0x31d2…321f at0022 = ╱30╱0╱ // 0x31f4 @0x22
0x31d2…321f at0023 = ╱30╱0╱ // 0x31f5 @0x23
0x31d2…321f at0024 = ╱fe0050c311╱ // 0x31f6 @0x24
0x31d2…321f at0029 = ╱e4╱*╱ // 0x31fb @0x29
0x31d2…321f at002a = ╱ed╱(╱ // 0x31fc @0x2a
0x31d2…321f at002b = ╱4c╱L╱ // 0x31fd @0x2b
0x31d2…321f at002c = ╱4f╱O╱ // 0x31fe @0x2c
0x31d2…321f at002d = ╱47╱G╱ // 0x31ff @0x2d
0x31d2…321f at002e = ╱dc╱=╱ // 0x3200 @0x2e
0x31d2…321f at002f = ╱42╱B╱ // 0x3201 @0x2f
0x31d2…321f at0030 = ╱ee╱)╱ // 0x3202 @0x30
0x31d2…321f at0031 = ╱eb╱;╱ // 0x3203 @0x31
0x31d2…321f at0032 = ╱45╱E╱ // 0x3204 @0x32
0x31d2…321f at0033 = ╱38╱8╱ // 0x3205 @0x33
0x31d2…321f at0034 = ╱ed╱(╱ // 0x3206 @0x34
0x31d2…321f at0035 = ╱4f╱O╱ // 0x3207 @0x35
0x31d2…321f at0036 = ╱32╱2╱ // 0x3208 @0x36
0x31d2…321f at0037 = ╱ee╱)╱ // 0x3209 @0x37
0x31d2…321f at0038 = ╱e2╱+╱ // 0x320a @0x38
0x31d2…321f at0039 = ╱31╱1╱ // 0x320b @0x39
0x31d2…321f at003a = ╱30╱0╱ // 0x320c @0x3a
0x31d2…321f at003b = ╱30╱0╱ // 0x320d @0x3b
0x31d2…321f at003c = ╱30╱0╱ // 0x320e @0x3c
0x31d2…321f at003d = ╱30╱0╱ // 0x320f @0x3d
0x31d2…321f at003e = ╱30╱0╱ // 0x3210 @0x3e
0x31d2…321f at003f = ╱fe0050c311╱ // 0x3211 @0x3f
0x31d2…321f at0044 = ╱e4╱*╱ // 0x3216 @0x44
0x31d2…321f at0045 = ╱ed╱(╱ // 0x3217 @0x45
0x31d2…321f at0046 = ╱4c╱L╱ // 0x3218 @0x46
0x31d2…321f at0047 = ╱4f╱O╱ // 0x3219 @0x47
0x31d2…321f at0048 = ╱47╱G╱ // 0x321a @0x48
0x31d2…321f at0049 = ╱dc╱=╱ // 0x321b @0x49
0x31d2…321f at004a = ╱42╱B╱ // 0x321c @0x4a
0x31d2…321f at004b = ╱ee╱)╱ // 0x321d @0x4b
0x31d2…321f at004c = EOL // 0x321e @0x4c
0x31d2…321f }
0x321f…3225 bf7c 6130 ENDIF
0x321f…3225 LineComalBin {
0x321f…3225 ptr = 0xbf7c // 0x321f @0x0
0x321f…3225 lno = 0x17f2 // 0x3221 @0x2
0x321f…3225 at0004 = ╱9b╱ ENDIF ╱ // 0x3223 @0x4
0x321f…3225 at0005 = EOL // 0x3224 @0x5
0x321f…3225 }
0x3225…3231 bf88 6140 O2=O2+E
0x3225…3231 LineComalBin {
0x3225…3231 ptr = 0xbf88 // 0x3225 @0x0
0x3225…3231 lno = 0x17fc // 0x3227 @0x2
0x3225…3231 at0004 = ╱4f╱O╱ // 0x3229 @0x4
0x3225…3231 at0005 = ╱32╱2╱ // 0x322a @0x5
0x3225…3231 at0006 = ╱dc╱=╱ // 0x322b @0x6
0x3225…3231 at0007 = ╱4f╱O╱ // 0x322c @0x7
0x3225…3231 at0008 = ╱32╱2╱ // 0x322d @0x8
0x3225…3231 at0009 = ╱e2╱+╱ // 0x322e @0x9
0x3225…3231 at000a = ╱45╱E╱ // 0x322f @0xa
0x3225…3231 at000b = EOL // 0x3230 @0xb
0x3225…3231 }
0x3231…324b bfa2 6150 UNTIL O2=K1+E OR O2 MOD 19=B
0x3231…324b LineComalBin {
0x3231…324b ptr = 0xbfa2 // 0x3231 @0x0
0x3231…324b lno = 0x1806 // 0x3233 @0x2
0x3231…324b at0004 = ╱98╱ UNTIL ╱ // 0x3235 @0x4
0x3231…324b at0005 = ╱4f╱O╱ // 0x3236 @0x5
0x3231…324b at0006 = ╱32╱2╱ // 0x3237 @0x6
0x3231…324b at0007 = ╱dc╱=╱ // 0x3238 @0x7
0x3231…324b at0008 = ╱4b╱K╱ // 0x3239 @0x8
0x3231…324b at0009 = ╱31╱1╱ // 0x323a @0x9
0x3231…324b at000a = ╱e2╱+╱ // 0x323b @0xa
0x3231…324b at000b = ╱45╱E╱ // 0x323c @0xb
0x3231…324b at000c = ╱db╱ OR ╱ // 0x323d @0xc
0x3231…324b at000d = ╱4f╱O╱ // 0x323e @0xd
0x3231…324b at000e = ╱32╱2╱ // 0x323f @0xe
0x3231…324b at000f = ╱e8╱ MOD ╱ // 0x3240 @0xf
0x3231…324b at0010 = ╱31╱1╱ // 0x3241 @0x10
0x3231…324b at0011 = ╱39╱9╱ // 0x3242 @0x11
0x3231…324b at0012 = ╱fe00009805╱ // 0x3243 @0x12
0x3231…324b at0017 = ╱dc╱=╱ // 0x3248 @0x17
0x3231…324b at0018 = ╱42╱B╱ // 0x3249 @0x18
0x3231…324b at0019 = EOL // 0x324a @0x19
0x3231…324b }
0x324b…3251 bfa8 6160 REPEAT
0x324b…3251 LineComalBin {
0x324b…3251 ptr = 0xbfa8 // 0x324b @0x0
0x324b…3251 lno = 0x1810 // 0x324d @0x2
0x324b…3251 at0004 = ╱97╱ REPEAT ╱ // 0x324f @0x4
0x324b…3251 at0005 = EOL // 0x3250 @0x5
0x324b…3251 }
0x3251…3257 bfae 6170 REPEAT
0x3251…3257 LineComalBin {
0x3251…3257 ptr = 0xbfae // 0x3251 @0x0
0x3251…3257 lno = 0x181a // 0x3253 @0x2
0x3251…3257 at0004 = ╱97╱ REPEAT ╱ // 0x3255 @0x4
0x3251…3257 at0005 = EOL // 0x3256 @0x5
0x3251…3257 }
0x3257…3266 bfbd 6180 CURSOR V,23
0x3257…3266 LineComalBin {
0x3257…3266 ptr = 0xbfbd // 0x3257 @0x0
0x3257…3266 lno = 0x1824 // 0x3259 @0x2
0x3257…3266 at0004 = ╱a1╱ CURSOR ╱ // 0x325b @0x4
0x3257…3266 at0005 = ╱56╱V╱ // 0x325c @0x5
0x3257…3266 at0006 = ╱ec╱,╱ // 0x325d @0x6
0x3257…3266 at0007 = ╱32╱2╱ // 0x325e @0x7
0x3257…3266 at0008 = ╱33╱3╱ // 0x325f @0x8
0x3257…3266 at0009 = ╱fe0000b805╱ // 0x3260 @0x9
0x3257…3266 at000e = EOL // 0x3265 @0xe
0x3257…3266 }
0x3266…32aa c001 6190 PRINT "Type (1-36:Annulering,0:færdig,N:ny post,RETURN:ny sid";
0x3266…32aa LineComalBin {
0x3266…32aa ptr = 0xc001 // 0x3266 @0x0
0x3266…32aa lno = 0x182e // 0x3268 @0x2
0x3266…32aa at0004 = ╱92╱ PRINT ╱ // 0x326a @0x4
0x3266…32aa at0005 = ╱22╱"╱ // 0x326b @0x5
0x3266…32aa at0006 = ╱54╱T╱ // 0x326c @0x6
0x3266…32aa at0007 = ╱79╱y╱ // 0x326d @0x7
0x3266…32aa at0008 = ╱70╱p╱ // 0x326e @0x8
0x3266…32aa at0009 = ╱65╱e╱ // 0x326f @0x9
0x3266…32aa at000a = ╱20╱…╱ // 0x3270 @0xa
0x3266…32aa at000b = ╱20╱…╱ // 0x3271 @0xb
0x3266…32aa at000c = ╱20╱…╱ // 0x3272 @0xc
0x3266…32aa at000d = ╱20╱…╱ // 0x3273 @0xd
0x3266…32aa at000e = ╱20╱…╱ // 0x3274 @0xe
0x3266…32aa at000f = ╱20╱…╱ // 0x3275 @0xf
0x3266…32aa at0010 = ╱28╱(╱ // 0x3276 @0x10
0x3266…32aa at0011 = ╱31╱1╱ // 0x3277 @0x11
0x3266…32aa at0012 = ╱2d╱-╱ // 0x3278 @0x12
0x3266…32aa at0013 = ╱33╱3╱ // 0x3279 @0x13
0x3266…32aa at0014 = ╱36╱6╱ // 0x327a @0x14
0x3266…32aa at0015 = ╱3a╱:╱ // 0x327b @0x15
0x3266…32aa at0016 = ╱41╱A╱ // 0x327c @0x16
0x3266…32aa at0017 = ╱6e╱n╱ // 0x327d @0x17
0x3266…32aa at0018 = ╱6e╱n╱ // 0x327e @0x18
0x3266…32aa at0019 = ╱75╱u╱ // 0x327f @0x19
0x3266…32aa at001a = ╱6c╱l╱ // 0x3280 @0x1a
0x3266…32aa at001b = ╱65╱e╱ // 0x3281 @0x1b
0x3266…32aa at001c = ╱72╱r╱ // 0x3282 @0x1c
0x3266…32aa at001d = ╱69╱i╱ // 0x3283 @0x1d
0x3266…32aa at001e = ╱6e╱n╱ // 0x3284 @0x1e
0x3266…32aa at001f = ╱67╱g╱ // 0x3285 @0x1f
0x3266…32aa at0020 = ╱2c╱,╱ // 0x3286 @0x20
0x3266…32aa at0021 = ╱30╱0╱ // 0x3287 @0x21
0x3266…32aa at0022 = ╱3a╱:╱ // 0x3288 @0x22
0x3266…32aa at0023 = ╱66╱f╱ // 0x3289 @0x23
0x3266…32aa at0024 = ╱7b╱æ╱ // 0x328a @0x24
0x3266…32aa at0025 = ╱72╱r╱ // 0x328b @0x25
0x3266…32aa at0026 = ╱64╱d╱ // 0x328c @0x26
0x3266…32aa at0027 = ╱69╱i╱ // 0x328d @0x27
0x3266…32aa at0028 = ╱67╱g╱ // 0x328e @0x28
0x3266…32aa at0029 = ╱2c╱,╱ // 0x328f @0x29
0x3266…32aa at002a = ╱4e╱N╱ // 0x3290 @0x2a
0x3266…32aa at002b = ╱3a╱:╱ // 0x3291 @0x2b
0x3266…32aa at002c = ╱6e╱n╱ // 0x3292 @0x2c
0x3266…32aa at002d = ╱79╱y╱ // 0x3293 @0x2d
0x3266…32aa at002e = ╱20╱…╱ // 0x3294 @0x2e
0x3266…32aa at002f = ╱70╱p╱ // 0x3295 @0x2f
0x3266…32aa at0030 = ╱6f╱o╱ // 0x3296 @0x30
0x3266…32aa at0031 = ╱73╱s╱ // 0x3297 @0x31
0x3266…32aa at0032 = ╱74╱t╱ // 0x3298 @0x32
0x3266…32aa at0033 = ╱2c╱,╱ // 0x3299 @0x33
0x3266…32aa at0034 = ╱52╱R╱ // 0x329a @0x34
0x3266…32aa at0035 = ╱45╱E╱ // 0x329b @0x35
0x3266…32aa at0036 = ╱54╱T╱ // 0x329c @0x36
0x3266…32aa at0037 = ╱55╱U╱ // 0x329d @0x37
0x3266…32aa at0038 = ╱52╱R╱ // 0x329e @0x38
0x3266…32aa at0039 = ╱4e╱N╱ // 0x329f @0x39
0x3266…32aa at003a = ╱3a╱:╱ // 0x32a0 @0x3a
0x3266…32aa at003b = ╱6e╱n╱ // 0x32a1 @0x3b
0x3266…32aa at003c = ╱79╱y╱ // 0x32a2 @0x3c
0x3266…32aa at003d = ╱20╱…╱ // 0x32a3 @0x3d
0x3266…32aa at003e = ╱73╱s╱ // 0x32a4 @0x3e
0x3266…32aa at003f = ╱69╱i╱ // 0x32a5 @0x3f
0x3266…32aa at0040 = ╱64╱d╱ // 0x32a6 @0x40
0x3266…32aa at0041 = ╱22╱"╱ // 0x32a7 @0x41
0x3266…32aa at0042 = ╱eb╱;╱ // 0x32a8 @0x42
0x3266…32aa at0043 = EOL // 0x32a9 @0x43
0x3266…32aa }
0x32aa…32c3 c01a 6200 PRINT "e)"+E2$(E:10)
0x32aa…32c3 LineComalBin {
0x32aa…32c3 ptr = 0xc01a // 0x32aa @0x0
0x32aa…32c3 lno = 0x1838 // 0x32ac @0x2
0x32aa…32c3 at0004 = ╱92╱ PRINT ╱ // 0x32ae @0x4
0x32aa…32c3 at0005 = ╱22╱"╱ // 0x32af @0x5
0x32aa…32c3 at0006 = ╱65╱e╱ // 0x32b0 @0x6
0x32aa…32c3 at0007 = ╱29╱)╱ // 0x32b1 @0x7
0x32aa…32c3 at0008 = ╱22╱"╱ // 0x32b2 @0x8
0x32aa…32c3 at0009 = ╱f1╱+╱ // 0x32b3 @0x9
0x32aa…32c3 at000a = ╱45╱E╱ // 0x32b4 @0xa
0x32aa…32c3 at000b = ╱32╱2╱ // 0x32b5 @0xb
0x32aa…32c3 at000c = ╱ef╱$╱ // 0x32b6 @0xc
0x32aa…32c3 at000d = ╱ed╱(╱ // 0x32b7 @0xd
0x32aa…32c3 at000e = ╱45╱E╱ // 0x32b8 @0xe
0x32aa…32c3 at000f = ╱f0╱:╱ // 0x32b9 @0xf
0x32aa…32c3 at0010 = ╱31╱1╱ // 0x32ba @0x10
0x32aa…32c3 at0011 = ╱30╱0╱ // 0x32bb @0x11
0x32aa…32c3 at0012 = ╱fe0000a004╱ // 0x32bc @0x12
0x32aa…32c3 at0017 = ╱ee╱)╱ // 0x32c1 @0x17
0x32aa…32c3 at0018 = EOL // 0x32c2 @0x18
0x32aa…32c3 }
0x32c3…32d7 c02e 6210 CURSOR 8,23
0x32c3…32d7 LineComalBin {
0x32c3…32d7 ptr = 0xc02e // 0x32c3 @0x0
0x32c3…32d7 lno = 0x1842 // 0x32c5 @0x2
0x32c3…32d7 at0004 = ╱a1╱ CURSOR ╱ // 0x32c7 @0x4
0x32c3…32d7 at0005 = ╱38╱8╱ // 0x32c8 @0x5
0x32c3…32d7 at0006 = ╱fe00008004╱ // 0x32c9 @0x6
0x32c3…32d7 at000b = ╱ec╱,╱ // 0x32ce @0xb
0x32c3…32d7 at000c = ╱32╱2╱ // 0x32cf @0xc
0x32c3…32d7 at000d = ╱33╱3╱ // 0x32d0 @0xd
0x32c3…32d7 at000e = ╱fe0000b805╱ // 0x32d1 @0xe
0x32c3…32d7 at0013 = EOL // 0x32d6 @0x13
0x32c3…32d7 }
0x32d7…32e0 c037 6220 INPUT D4$
0x32d7…32e0 LineComalBin {
0x32d7…32e0 ptr = 0xc037 // 0x32d7 @0x0
0x32d7…32e0 lno = 0x184c // 0x32d9 @0x2
0x32d7…32e0 at0004 = ╱91╱ INPUT ╱ // 0x32db @0x4
0x32d7…32e0 at0005 = ╱44╱D╱ // 0x32dc @0x5
0x32d7…32e0 at0006 = ╱34╱4╱ // 0x32dd @0x6
0x32d7…32e0 at0007 = ╱ef╱$╱ // 0x32de @0x7
0x32d7…32e0 at0008 = EOL // 0x32df @0x8
0x32d7…32e0 }
0x32e0…32f1 c048 6230 EXEC NRTEST(D4$)
0x32e0…32f1 LineComalBin {
0x32e0…32f1 ptr = 0xc048 // 0x32e0 @0x0
0x32e0…32f1 lno = 0x1856 // 0x32e2 @0x2
0x32e0…32f1 at0004 = ╱9d╱ EXEC ╱ // 0x32e4 @0x4
0x32e0…32f1 at0005 = ╱4e╱N╱ // 0x32e5 @0x5
0x32e0…32f1 at0006 = ╱52╱R╱ // 0x32e6 @0x6
0x32e0…32f1 at0007 = ╱54╱T╱ // 0x32e7 @0x7
0x32e0…32f1 at0008 = ╱45╱E╱ // 0x32e8 @0x8
0x32e0…32f1 at0009 = ╱53╱S╱ // 0x32e9 @0x9
0x32e0…32f1 at000a = ╱54╱T╱ // 0x32ea @0xa
0x32e0…32f1 at000b = ╱ed╱(╱ // 0x32eb @0xb
0x32e0…32f1 at000c = ╱44╱D╱ // 0x32ec @0xc
0x32e0…32f1 at000d = ╱34╱4╱ // 0x32ed @0xd
0x32e0…32f1 at000e = ╱ef╱$╱ // 0x32ee @0xe
0x32e0…32f1 at000f = ╱ee╱)╱ // 0x32ef @0xf
0x32e0…32f1 at0010 = EOL // 0x32f0 @0x10
0x32e0…32f1 }
0x32f1…3311 c068 6240 UNTIL (P<37 AND P>-G) OR P=-8
0x32f1…3311 LineComalBin {
0x32f1…3311 ptr = 0xc068 // 0x32f1 @0x0
0x32f1…3311 lno = 0x1860 // 0x32f3 @0x2
0x32f1…3311 at0004 = ╱98╱ UNTIL ╱ // 0x32f5 @0x4
0x32f1…3311 at0005 = ╱ed╱(╱ // 0x32f6 @0x5
0x32f1…3311 at0006 = ╱50╱P╱ // 0x32f7 @0x6
0x32f1…3311 at0007 = ╱dd╱<╱ // 0x32f8 @0x7
0x32f1…3311 at0008 = ╱33╱3╱ // 0x32f9 @0x8
0x32f1…3311 at0009 = ╱37╱7╱ // 0x32fa @0x9
0x32f1…3311 at000a = ╱fe00009406╱ // 0x32fb @0xa
0x32f1…3311 at000f = ╱da╱ AND ╱ // 0x3300 @0xf
0x32f1…3311 at0010 = ╱50╱P╱ // 0x3301 @0x10
0x32f1…3311 at0011 = ╱de╱>╱ // 0x3302 @0x11
0x32f1…3311 at0012 = ╱e9╱-╱ // 0x3303 @0x12
0x32f1…3311 at0013 = ╱47╱G╱ // 0x3304 @0x13
0x32f1…3311 at0014 = ╱ee╱)╱ // 0x3305 @0x14
0x32f1…3311 at0015 = ╱db╱ OR ╱ // 0x3306 @0x15
0x32f1…3311 at0016 = ╱50╱P╱ // 0x3307 @0x16
0x32f1…3311 at0017 = ╱dc╱=╱ // 0x3308 @0x17
0x32f1…3311 at0018 = ╱e9╱-╱ // 0x3309 @0x18
0x32f1…3311 at0019 = ╱38╱8╱ // 0x330a @0x19
0x32f1…3311 at001a = ╱fe00008004╱ // 0x330b @0x1a
0x32f1…3311 at001f = EOL // 0x3310 @0x1f
0x32f1…3311 }
0x3311…331a c071 6250 CASE P OF
0x3311…331a LineComalBin {
0x3311…331a ptr = 0xc071 // 0x3311 @0x0
0x3311…331a lno = 0x186a // 0x3313 @0x2
0x3311…331a at0004 = ╱a201╱ CASE ╱ // 0x3315 @0x4
0x3311…331a at0006 = ╱50╱P╱ // 0x3317 @0x6
0x3311…331a at0007 = ╱ba╱ OF ╱ // 0x3318 @0x7
0x3311…331a at0008 = EOL // 0x3319 @0x8
0x3311…331a }
0x331a…3338 c08f 6260 IF P<=K1 AND P<O2 THEN EXEC PSLET(1)
0x331a…3338 LineComalBin {
0x331a…3338 ptr = 0xc08f // 0x331a @0x0
0x331a…3338 lno = 0x1874 // 0x331c @0x2
0x331a…3338 at0004 = ╱82╱ IF ╱ // 0x331e @0x4
0x331a…3338 at0005 = ╱50╱P╱ // 0x331f @0x5
0x331a…3338 at0006 = ╱df╱<=╱ // 0x3320 @0x6
0x331a…3338 at0007 = ╱4b╱K╱ // 0x3321 @0x7
0x331a…3338 at0008 = ╱31╱1╱ // 0x3322 @0x8
0x331a…3338 at0009 = ╱da╱ AND ╱ // 0x3323 @0x9
0x331a…3338 at000a = ╱50╱P╱ // 0x3324 @0xa
0x331a…3338 at000b = ╱dd╱<╱ // 0x3325 @0xb
0x331a…3338 at000c = ╱4f╱O╱ // 0x3326 @0xc
0x331a…3338 at000d = ╱32╱2╱ // 0x3327 @0xd
0x331a…3338 at000e = ╱b6╱ THEN ╱ // 0x3328 @0xe
0x331a…3338 at000f = ╱9d╱ EXEC ╱ // 0x3329 @0xf
0x331a…3338 at0010 = ╱50╱P╱ // 0x332a @0x10
0x331a…3338 at0011 = ╱53╱S╱ // 0x332b @0x11
0x331a…3338 at0012 = ╱4c╱L╱ // 0x332c @0x12
0x331a…3338 at0013 = ╱45╱E╱ // 0x332d @0x13
0x331a…3338 at0014 = ╱54╱T╱ // 0x332e @0x14
0x331a…3338 at0015 = ╱ed╱(╱ // 0x332f @0x15
0x331a…3338 at0016 = ╱31╱1╱ // 0x3330 @0x16
0x331a…3338 at0017 = ╱fe00008001╱ // 0x3331 @0x17
0x331a…3338 at001c = ╱ee╱)╱ // 0x3336 @0x1c
0x331a…3338 at001d = EOL // 0x3337 @0x1d
0x331a…3338 }
0x3338…3340 c097 6270 WHEN B
0x3338…3340 LineComalBin {
0x3338…3340 ptr = 0xc097 // 0x3338 @0x0
0x3338…3340 lno = 0x187e // 0x333a @0x2
0x3338…3340 at0004 = ╱a301╱ WHEN ╱ // 0x333c @0x4
0x3338…3340 at0006 = ╱42╱B╱ // 0x333e @0x6
0x3338…3340 at0007 = EOL // 0x333f @0x7
0x3338…3340 }
0x3340…335c c0b3 6280 EXEC CA(4,D0$,B6$,D0$)
0x3340…335c LineComalBin {
0x3340…335c ptr = 0xc0b3 // 0x3340 @0x0
0x3340…335c lno = 0x1888 // 0x3342 @0x2
0x3340…335c at0004 = ╱9d╱ EXEC ╱ // 0x3344 @0x4
0x3340…335c at0005 = ╱43╱C╱ // 0x3345 @0x5
0x3340…335c at0006 = ╱41╱A╱ // 0x3346 @0x6
0x3340…335c at0007 = ╱ed╱(╱ // 0x3347 @0x7
0x3340…335c at0008 = ╱34╱4╱ // 0x3348 @0x8
0x3340…335c at0009 = ╱fe00008003╱ // 0x3349 @0x9
0x3340…335c at000e = ╱ec╱,╱ // 0x334e @0xe
0x3340…335c at000f = ╱44╱D╱ // 0x334f @0xf
0x3340…335c at0010 = ╱30╱0╱ // 0x3350 @0x10
0x3340…335c at0011 = ╱ef╱$╱ // 0x3351 @0x11
0x3340…335c at0012 = ╱ec╱,╱ // 0x3352 @0x12
0x3340…335c at0013 = ╱42╱B╱ // 0x3353 @0x13
0x3340…335c at0014 = ╱36╱6╱ // 0x3354 @0x14
0x3340…335c at0015 = ╱ef╱$╱ // 0x3355 @0x15
0x3340…335c at0016 = ╱ec╱,╱ // 0x3356 @0x16
0x3340…335c at0017 = ╱44╱D╱ // 0x3357 @0x17
0x3340…335c at0018 = ╱30╱0╱ // 0x3358 @0x18
0x3340…335c at0019 = ╱ef╱$╱ // 0x3359 @0x19
0x3340…335c at001a = ╱ee╱)╱ // 0x335a @0x1a
0x3340…335c at001b = EOL // 0x335b @0x1b
0x3340…335c }
0x335c…3367 c0be 6290 IF SI<>B THEN
0x335c…3367 LineComalBin {
0x335c…3367 ptr = 0xc0be // 0x335c @0x0
0x335c…3367 lno = 0x1892 // 0x335e @0x2
0x335c…3367 at0004 = ╱9c╱ IF ╱ // 0x3360 @0x4
0x335c…3367 at0005 = ╱53╱S╱ // 0x3361 @0x5
0x335c…3367 at0006 = ╱49╱I╱ // 0x3362 @0x6
0x335c…3367 at0007 = ╱e1╱<>╱ // 0x3363 @0x7
0x335c…3367 at0008 = ╱42╱B╱ // 0x3364 @0x8
0x335c…3367 at0009 = ╱b6╱ THEN ╱ // 0x3365 @0x9
0x335c…3367 at000a = EOL // 0x3366 @0xa
0x335c…3367 }
0x3367…3370 c0c7 6300 P=-G
0x3367…3370 LineComalBin {
0x3367…3370 ptr = 0xc0c7 // 0x3367 @0x0
0x3367…3370 lno = 0x189c // 0x3369 @0x2
0x3367…3370 at0004 = ╱50╱P╱ // 0x336b @0x4
0x3367…3370 at0005 = ╱dc╱=╱ // 0x336c @0x5
0x3367…3370 at0006 = ╱e9╱-╱ // 0x336d @0x6
0x3367…3370 at0007 = ╱47╱G╱ // 0x336e @0x7
0x3367…3370 at0008 = EOL // 0x336f @0x8
0x3367…3370 }
0x3370…3376 c0cd 6310 ELSE
0x3370…3376 LineComalBin {
0x3370…3376 ptr = 0xc0cd // 0x3370 @0x0
0x3370…3376 lno = 0x18a6 // 0x3372 @0x2
0x3370…3376 at0004 = ╱9a╱ ELSE ╱ // 0x3374 @0x4
0x3370…3376 at0005 = EOL // 0x3375 @0x5
0x3370…3376 }
0x3376…3380 c0d7 6320 EXEC PPUT
0x3376…3380 LineComalBin {
0x3376…3380 ptr = 0xc0d7 // 0x3376 @0x0
0x3376…3380 lno = 0x18b0 // 0x3378 @0x2
0x3376…3380 at0004 = ╱9d╱ EXEC ╱ // 0x337a @0x4
0x3376…3380 at0005 = ╱50╱P╱ // 0x337b @0x5
0x3376…3380 at0006 = ╱50╱P╱ // 0x337c @0x6
0x3376…3380 at0007 = ╱55╱U╱ // 0x337d @0x7
0x3376…3380 at0008 = ╱54╱T╱ // 0x337e @0x8
0x3376…3380 at0009 = EOL // 0x337f @0x9
0x3376…3380 }
0x3380…3389 c0e0 6330 J6=B
0x3380…3389 LineComalBin {
0x3380…3389 ptr = 0xc0e0 // 0x3380 @0x0
0x3380…3389 lno = 0x18ba // 0x3382 @0x2
0x3380…3389 at0004 = ╱4a╱J╱ // 0x3384 @0x4
0x3380…3389 at0005 = ╱36╱6╱ // 0x3385 @0x5
0x3380…3389 at0006 = ╱dc╱=╱ // 0x3386 @0x6
0x3380…3389 at0007 = ╱42╱B╱ // 0x3387 @0x7
0x3380…3389 at0008 = EOL // 0x3388 @0x8
0x3380…3389 }
0x3389…338f c0e6 6340 ENDIF
0x3389…338f LineComalBin {
0x3389…338f ptr = 0xc0e6 // 0x3389 @0x0
0x3389…338f lno = 0x18c4 // 0x338b @0x2
0x3389…338f at0004 = ╱9b╱ ENDIF ╱ // 0x338d @0x4
0x3389…338f at0005 = EOL // 0x338e @0x5
0x3389…338f }
0x338f…3398 c0ef 6350 WHEN -E
0x338f…3398 LineComalBin {
0x338f…3398 ptr = 0xc0ef // 0x338f @0x0
0x338f…3398 lno = 0x18ce // 0x3391 @0x2
0x338f…3398 at0004 = ╱a301╱ WHEN ╱ // 0x3393 @0x4
0x338f…3398 at0006 = ╱e9╱-╱ // 0x3395 @0x6
0x338f…3398 at0007 = ╱45╱E╱ // 0x3396 @0x7
0x338f…3398 at0008 = EOL // 0x3397 @0x8
0x338f…3398 }
0x3398…33af c106 6360 IF K1>18 AND O2<K1 THEN
0x3398…33af LineComalBin {
0x3398…33af ptr = 0xc106 // 0x3398 @0x0
0x3398…33af lno = 0x18d8 // 0x339a @0x2
0x3398…33af at0004 = ╱9c╱ IF ╱ // 0x339c @0x4
0x3398…33af at0005 = ╱4b╱K╱ // 0x339d @0x5
0x3398…33af at0006 = ╱31╱1╱ // 0x339e @0x6
0x3398…33af at0007 = ╱de╱>╱ // 0x339f @0x7
0x3398…33af at0008 = ╱31╱1╱ // 0x33a0 @0x8
0x3398…33af at0009 = ╱38╱8╱ // 0x33a1 @0x9
0x3398…33af at000a = ╱fe00009005╱ // 0x33a2 @0xa
0x3398…33af at000f = ╱da╱ AND ╱ // 0x33a7 @0xf
0x3398…33af at0010 = ╱4f╱O╱ // 0x33a8 @0x10
0x3398…33af at0011 = ╱32╱2╱ // 0x33a9 @0x11
0x3398…33af at0012 = ╱dd╱<╱ // 0x33aa @0x12
0x3398…33af at0013 = ╱4b╱K╱ // 0x33ab @0x13
0x3398…33af at0014 = ╱31╱1╱ // 0x33ac @0x14
0x3398…33af at0015 = ╱b6╱ THEN ╱ // 0x33ad @0x15
0x3398…33af at0016 = EOL // 0x33ae @0x16
0x3398…33af }
0x33af…33b5 c10c 6370 CLEAR
0x33af…33b5 LineComalBin {
0x33af…33b5 ptr = 0xc10c // 0x33af @0x0
0x33af…33b5 lno = 0x18e2 // 0x33b1 @0x2
0x33af…33b5 at0004 = ╱a0╱ CLEAR ╱ // 0x33b3 @0x4
0x33af…33b5 at0005 = EOL // 0x33b4 @0x5
0x33af…33b5 }
0x33b5…33bb c112 6380 ELSE
0x33b5…33bb LineComalBin {
0x33b5…33bb ptr = 0xc112 // 0x33b5 @0x0
0x33b5…33bb lno = 0x18ec // 0x33b7 @0x2
0x33b5…33bb at0004 = ╱9a╱ ELSE ╱ // 0x33b9 @0x4
0x33b5…33bb at0005 = EOL // 0x33ba @0x5
0x33b5…33bb }
0x33bb…33c3 c11a 6390 P=E
0x33bb…33c3 LineComalBin {
0x33bb…33c3 ptr = 0xc11a // 0x33bb @0x0
0x33bb…33c3 lno = 0x18f6 // 0x33bd @0x2
0x33bb…33c3 at0004 = ╱50╱P╱ // 0x33bf @0x4
0x33bb…33c3 at0005 = ╱dc╱=╱ // 0x33c0 @0x5
0x33bb…33c3 at0006 = ╱45╱E╱ // 0x33c1 @0x6
0x33bb…33c3 at0007 = EOL // 0x33c2 @0x7
0x33bb…33c3 }
0x33c3…33c9 c120 6400 ENDIF
0x33c3…33c9 LineComalBin {
0x33c3…33c9 ptr = 0xc120 // 0x33c3 @0x0
0x33c3…33c9 lno = 0x1900 // 0x33c5 @0x2
0x33c3…33c9 at0004 = ╱9b╱ ENDIF ╱ // 0x33c7 @0x4
0x33c3…33c9 at0005 = EOL // 0x33c8 @0x5
0x33c3…33c9 }
0x33c9…33d7 c12e 6410 WHEN -8
0x33c9…33d7 LineComalBin {
0x33c9…33d7 ptr = 0xc12e // 0x33c9 @0x0
0x33c9…33d7 lno = 0x190a // 0x33cb @0x2
0x33c9…33d7 at0004 = ╱a301╱ WHEN ╱ // 0x33cd @0x4
0x33c9…33d7 at0006 = ╱e9╱-╱ // 0x33cf @0x6
0x33c9…33d7 at0007 = ╱38╱8╱ // 0x33d0 @0x7
0x33c9…33d7 at0008 = ╱fe00008004╱ // 0x33d1 @0x8
0x33c9…33d7 at000d = EOL // 0x33d6 @0xd
0x33c9…33d7 }
0x33d7…33df c136 6420 P=B
0x33d7…33df LineComalBin {
0x33d7…33df ptr = 0xc136 // 0x33d7 @0x0
0x33d7…33df lno = 0x1914 // 0x33d9 @0x2
0x33d7…33df at0004 = ╱50╱P╱ // 0x33db @0x4
0x33d7…33df at0005 = ╱dc╱=╱ // 0x33dc @0x5
0x33d7…33df at0006 = ╱42╱B╱ // 0x33dd @0x6
0x33d7…33df at0007 = EOL // 0x33de @0x7
0x33d7…33df }
0x33df…33f7 c14e 6430 L7=(O2-E) MOD 18+E
0x33df…33f7 LineComalBin {
0x33df…33f7 ptr = 0xc14e // 0x33df @0x0
0x33df…33f7 lno = 0x191e // 0x33e1 @0x2
0x33df…33f7 at0004 = ╱4c╱L╱ // 0x33e3 @0x4
0x33df…33f7 at0005 = ╱37╱7╱ // 0x33e4 @0x5
0x33df…33f7 at0006 = ╱dc╱=╱ // 0x33e5 @0x6
0x33df…33f7 at0007 = ╱ed╱(╱ // 0x33e6 @0x7
0x33df…33f7 at0008 = ╱4f╱O╱ // 0x33e7 @0x8
0x33df…33f7 at0009 = ╱32╱2╱ // 0x33e8 @0x9
0x33df…33f7 at000a = ╱e3╱-╱ // 0x33e9 @0xa
0x33df…33f7 at000b = ╱45╱E╱ // 0x33ea @0xb
0x33df…33f7 at000c = ╱ee╱)╱ // 0x33eb @0xc
0x33df…33f7 at000d = ╱e8╱ MOD ╱ // 0x33ec @0xd
0x33df…33f7 at000e = ╱31╱1╱ // 0x33ed @0xe
0x33df…33f7 at000f = ╱38╱8╱ // 0x33ee @0xf
0x33df…33f7 at0010 = ╱fe00009005╱ // 0x33ef @0x10
0x33df…33f7 at0015 = ╱e2╱+╱ // 0x33f4 @0x15
0x33df…33f7 at0016 = ╱45╱E╱ // 0x33f5 @0x16
0x33df…33f7 at0017 = EOL // 0x33f6 @0x17
0x33df…33f7 }
0x33f7…33fd c154 6440 ENDCASE
0x33f7…33fd LineComalBin {
0x33f7…33fd ptr = 0xc154 // 0x33f7 @0x0
0x33f7…33fd lno = 0x1928 // 0x33f9 @0x2
0x33f7…33fd at0004 = ╱a4╱ ENDCASE ╱ // 0x33fb @0x4
0x33f7…33fd at0005 = EOL // 0x33fc @0x5
0x33f7…33fd }
0x33fd…340b c162 6450 UNTIL P<E AND P>-V
0x33fd…340b LineComalBin {
0x33fd…340b ptr = 0xc162 // 0x33fd @0x0
0x33fd…340b lno = 0x1932 // 0x33ff @0x2
0x33fd…340b at0004 = ╱98╱ UNTIL ╱ // 0x3401 @0x4
0x33fd…340b at0005 = ╱50╱P╱ // 0x3402 @0x5
0x33fd…340b at0006 = ╱dd╱<╱ // 0x3403 @0x6
0x33fd…340b at0007 = ╱45╱E╱ // 0x3404 @0x7
0x33fd…340b at0008 = ╱da╱ AND ╱ // 0x3405 @0x8
0x33fd…340b at0009 = ╱50╱P╱ // 0x3406 @0x9
0x33fd…340b at000a = ╱de╱>╱ // 0x3407 @0xa
0x33fd…340b at000b = ╱e9╱-╱ // 0x3408 @0xb
0x33fd…340b at000c = ╱56╱V╱ // 0x3409 @0xc
0x33fd…340b at000d = EOL // 0x340a @0xd
0x33fd…340b }
0x340b…3419 c170 6460 UNTIL P=B OR P=-G
0x340b…3419 LineComalBin {
0x340b…3419 ptr = 0xc170 // 0x340b @0x0
0x340b…3419 lno = 0x193c // 0x340d @0x2
0x340b…3419 at0004 = ╱98╱ UNTIL ╱ // 0x340f @0x4
0x340b…3419 at0005 = ╱50╱P╱ // 0x3410 @0x5
0x340b…3419 at0006 = ╱dc╱=╱ // 0x3411 @0x6
0x340b…3419 at0007 = ╱42╱B╱ // 0x3412 @0x7
0x340b…3419 at0008 = ╱db╱ OR ╱ // 0x3413 @0x8
0x340b…3419 at0009 = ╱50╱P╱ // 0x3414 @0x9
0x340b…3419 at000a = ╱dc╱=╱ // 0x3415 @0xa
0x340b…3419 at000b = ╱e9╱-╱ // 0x3416 @0xb
0x340b…3419 at000c = ╱47╱G╱ // 0x3417 @0xc
0x340b…3419 at000d = EOL // 0x3418 @0xd
0x340b…3419 }
0x3419…3422 c179 6470 UNTIL P=B
0x3419…3422 LineComalBin {
0x3419…3422 ptr = 0xc179 // 0x3419 @0x0
0x3419…3422 lno = 0x1946 // 0x341b @0x2
0x3419…3422 at0004 = ╱98╱ UNTIL ╱ // 0x341d @0x4
0x3419…3422 at0005 = ╱50╱P╱ // 0x341e @0x5
0x3419…3422 at0006 = ╱dc╱=╱ // 0x341f @0x6
0x3419…3422 at0007 = ╱42╱B╱ // 0x3420 @0x7
0x3419…3422 at0008 = EOL // 0x3421 @0x8
0x3419…3422 }
0x3422…3428 c17f 6480 ELSE
0x3422…3428 LineComalBin {
0x3422…3428 ptr = 0xc17f // 0x3422 @0x0
0x3422…3428 lno = 0x1950 // 0x3424 @0x2
0x3422…3428 at0004 = ╱9a╱ ELSE ╱ // 0x3426 @0x4
0x3422…3428 at0005 = EOL // 0x3427 @0x5
0x3422…3428 }
0x3428…3432 c189 6490 EXEC PPUT
0x3428…3432 LineComalBin {
0x3428…3432 ptr = 0xc189 // 0x3428 @0x0
0x3428…3432 lno = 0x195a // 0x342a @0x2
0x3428…3432 at0004 = ╱9d╱ EXEC ╱ // 0x342c @0x4
0x3428…3432 at0005 = ╱50╱P╱ // 0x342d @0x5
0x3428…3432 at0006 = ╱50╱P╱ // 0x342e @0x6
0x3428…3432 at0007 = ╱55╱U╱ // 0x342f @0x7
0x3428…3432 at0008 = ╱54╱T╱ // 0x3430 @0x8
0x3428…3432 at0009 = EOL // 0x3431 @0x9
0x3428…3432 }
0x3432…343b c192 6500 J6=B
0x3432…343b LineComalBin {
0x3432…343b ptr = 0xc192 // 0x3432 @0x0
0x3432…343b lno = 0x1964 // 0x3434 @0x2
0x3432…343b at0004 = ╱4a╱J╱ // 0x3436 @0x4
0x3432…343b at0005 = ╱36╱6╱ // 0x3437 @0x5
0x3432…343b at0006 = ╱dc╱=╱ // 0x3438 @0x6
0x3432…343b at0007 = ╱42╱B╱ // 0x3439 @0x7
0x3432…343b at0008 = EOL // 0x343a @0x8
0x3432…343b }
0x343b…3441 c198 6510 ENDIF
0x343b…3441 LineComalBin {
0x343b…3441 ptr = 0xc198 // 0x343b @0x0
0x343b…3441 lno = 0x196e // 0x343d @0x2
0x343b…3441 at0004 = ╱9b╱ ENDIF ╱ // 0x343f @0x4
0x343b…3441 at0005 = EOL // 0x3440 @0x5
0x343b…3441 }
0x3441…3447 c19e 6520 ENDCASE
0x3441…3447 LineComalBin {
0x3441…3447 ptr = 0xc19e // 0x3441 @0x0
0x3441…3447 lno = 0x1978 // 0x3443 @0x2
0x3441…3447 at0004 = ╱a4╱ ENDCASE ╱ // 0x3445 @0x4
0x3441…3447 at0005 = EOL // 0x3446 @0x5
0x3441…3447 }
0x3447…3452 c1a9 6530 UNTIL O4=-E
0x3447…3452 LineComalBin {
0x3447…3452 ptr = 0xc1a9 // 0x3447 @0x0
0x3447…3452 lno = 0x1982 // 0x3449 @0x2
0x3447…3452 at0004 = ╱98╱ UNTIL ╱ // 0x344b @0x4
0x3447…3452 at0005 = ╱4f╱O╱ // 0x344c @0x5
0x3447…3452 at0006 = ╱34╱4╱ // 0x344d @0x6
0x3447…3452 at0007 = ╱dc╱=╱ // 0x344e @0x7
0x3447…3452 at0008 = ╱e9╱-╱ // 0x344f @0x8
0x3447…3452 at0009 = ╱45╱E╱ // 0x3450 @0x9
0x3447…3452 at000a = EOL // 0x3451 @0xa
0x3447…3452 }
0x3452…345c c1b3 6540 UNTIL P=-W
0x3452…345c LineComalBin {
0x3452…345c ptr = 0xc1b3 // 0x3452 @0x0
0x3452…345c lno = 0x198c // 0x3454 @0x2
0x3452…345c at0004 = ╱98╱ UNTIL ╱ // 0x3456 @0x4
0x3452…345c at0005 = ╱50╱P╱ // 0x3457 @0x5
0x3452…345c at0006 = ╱dc╱=╱ // 0x3458 @0x6
0x3452…345c at0007 = ╱e9╱-╱ // 0x3459 @0x7
0x3452…345c at0008 = ╱57╱W╱ // 0x345a @0x8
0x3452…345c at0009 = EOL // 0x345b @0x9
0x3452…345c }
0x345c…3464 c1bb 6550 WHEN G
0x345c…3464 LineComalBin {
0x345c…3464 ptr = 0xc1bb // 0x345c @0x0
0x345c…3464 lno = 0x1996 // 0x345e @0x2
0x345c…3464 at0004 = ╱a301╱ WHEN ╱ // 0x3460 @0x4
0x345c…3464 at0006 = ╱47╱G╱ // 0x3462 @0x6
0x345c…3464 at0007 = EOL // 0x3463 @0x7
0x345c…3464 }
0x3464…346a c1c1 6560 REPEAT
0x3464…346a LineComalBin {
0x3464…346a ptr = 0xc1c1 // 0x3464 @0x0
0x3464…346a lno = 0x19a0 // 0x3466 @0x2
0x3464…346a at0004 = ╱97╱ REPEAT ╱ // 0x3468 @0x4
0x3464…346a at0005 = EOL // 0x3469 @0x5
0x3464…346a }
0x346a…3470 c1c7 6570 REPEAT
0x346a…3470 LineComalBin {
0x346a…3470 ptr = 0xc1c7 // 0x346a @0x0
0x346a…3470 lno = 0x19aa // 0x346c @0x2
0x346a…3470 at0004 = ╱97╱ REPEAT ╱ // 0x346e @0x4
0x346a…3470 at0005 = EOL // 0x346f @0x5
0x346a…3470 }
0x3470…347f c1d6 6580 CURSOR V,23
0x3470…347f LineComalBin {
0x3470…347f ptr = 0xc1d6 // 0x3470 @0x0
0x3470…347f lno = 0x19b4 // 0x3472 @0x2
0x3470…347f at0004 = ╱a1╱ CURSOR ╱ // 0x3474 @0x4
0x3470…347f at0005 = ╱56╱V╱ // 0x3475 @0x5
0x3470…347f at0006 = ╱ec╱,╱ // 0x3476 @0x6
0x3470…347f at0007 = ╱32╱2╱ // 0x3477 @0x7
0x3470…347f at0008 = ╱33╱3╱ // 0x3478 @0x8
0x3470…347f at0009 = ╱fe0000b805╱ // 0x3479 @0x9
0x3470…347f at000e = EOL // 0x347e @0xe
0x3470…347f }
0x347f…34c7 c21e 6590 PRINT "Tekst (max 25 tegn,0-19:tekstkode)";
0x347f…34c7 LineComalBin {
0x347f…34c7 ptr = 0xc21e // 0x347f @0x0
0x347f…34c7 lno = 0x19be // 0x3481 @0x2
0x347f…34c7 at0004 = ╱92╱ PRINT ╱ // 0x3483 @0x4
0x347f…34c7 at0005 = ╱22╱"╱ // 0x3484 @0x5
0x347f…34c7 at0006 = ╱54╱T╱ // 0x3485 @0x6
0x347f…34c7 at0007 = ╱65╱e╱ // 0x3486 @0x7
0x347f…34c7 at0008 = ╱6b╱k╱ // 0x3487 @0x8
0x347f…34c7 at0009 = ╱73╱s╱ // 0x3488 @0x9
0x347f…34c7 at000a = ╱74╱t╱ // 0x3489 @0xa
0x347f…34c7 at000b = ╱20╱…╱ // 0x348a @0xb
0x347f…34c7 at000c = ╱20╱…╱ // 0x348b @0xc
0x347f…34c7 at000d = ╱20╱…╱ // 0x348c @0xd
0x347f…34c7 at000e = ╱20╱…╱ // 0x348d @0xe
0x347f…34c7 at000f = ╱20╱…╱ // 0x348e @0xf
0x347f…34c7 at0010 = ╱20╱…╱ // 0x348f @0x10
0x347f…34c7 at0011 = ╱20╱…╱ // 0x3490 @0x11
0x347f…34c7 at0012 = ╱20╱…╱ // 0x3491 @0x12
0x347f…34c7 at0013 = ╱20╱…╱ // 0x3492 @0x13
0x347f…34c7 at0014 = ╱20╱…╱ // 0x3493 @0x14
0x347f…34c7 at0015 = ╱20╱…╱ // 0x3494 @0x15
0x347f…34c7 at0016 = ╱20╱…╱ // 0x3495 @0x16
0x347f…34c7 at0017 = ╱20╱…╱ // 0x3496 @0x17
0x347f…34c7 at0018 = ╱20╱…╱ // 0x3497 @0x18
0x347f…34c7 at0019 = ╱20╱…╱ // 0x3498 @0x19
0x347f…34c7 at001a = ╱20╱…╱ // 0x3499 @0x1a
0x347f…34c7 at001b = ╱20╱…╱ // 0x349a @0x1b
0x347f…34c7 at001c = ╱20╱…╱ // 0x349b @0x1c
0x347f…34c7 at001d = ╱20╱…╱ // 0x349c @0x1d
0x347f…34c7 at001e = ╱20╱…╱ // 0x349d @0x1e
0x347f…34c7 at001f = ╱20╱…╱ // 0x349e @0x1f
0x347f…34c7 at0020 = ╱20╱…╱ // 0x349f @0x20
0x347f…34c7 at0021 = ╱20╱…╱ // 0x34a0 @0x21
0x347f…34c7 at0022 = ╱20╱…╱ // 0x34a1 @0x22
0x347f…34c7 at0023 = ╱20╱…╱ // 0x34a2 @0x23
0x347f…34c7 at0024 = ╱20╱…╱ // 0x34a3 @0x24
0x347f…34c7 at0025 = ╱20╱…╱ // 0x34a4 @0x25
0x347f…34c7 at0026 = ╱20╱…╱ // 0x34a5 @0x26
0x347f…34c7 at0027 = ╱20╱…╱ // 0x34a6 @0x27
0x347f…34c7 at0028 = ╱20╱…╱ // 0x34a7 @0x28
0x347f…34c7 at0029 = ╱28╱(╱ // 0x34a8 @0x29
0x347f…34c7 at002a = ╱6d╱m╱ // 0x34a9 @0x2a
0x347f…34c7 at002b = ╱61╱a╱ // 0x34aa @0x2b
0x347f…34c7 at002c = ╱78╱x╱ // 0x34ab @0x2c
0x347f…34c7 at002d = ╱20╱…╱ // 0x34ac @0x2d
0x347f…34c7 at002e = ╱32╱2╱ // 0x34ad @0x2e
0x347f…34c7 at002f = ╱35╱5╱ // 0x34ae @0x2f
0x347f…34c7 at0030 = ╱20╱…╱ // 0x34af @0x30
0x347f…34c7 at0031 = ╱74╱t╱ // 0x34b0 @0x31
0x347f…34c7 at0032 = ╱65╱e╱ // 0x34b1 @0x32
0x347f…34c7 at0033 = ╱67╱g╱ // 0x34b2 @0x33
0x347f…34c7 at0034 = ╱6e╱n╱ // 0x34b3 @0x34
0x347f…34c7 at0035 = ╱2c╱,╱ // 0x34b4 @0x35
0x347f…34c7 at0036 = ╱30╱0╱ // 0x34b5 @0x36
0x347f…34c7 at0037 = ╱2d╱-╱ // 0x34b6 @0x37
0x347f…34c7 at0038 = ╱31╱1╱ // 0x34b7 @0x38
0x347f…34c7 at0039 = ╱39╱9╱ // 0x34b8 @0x39
0x347f…34c7 at003a = ╱3a╱:╱ // 0x34b9 @0x3a
0x347f…34c7 at003b = ╱74╱t╱ // 0x34ba @0x3b
0x347f…34c7 at003c = ╱65╱e╱ // 0x34bb @0x3c
0x347f…34c7 at003d = ╱6b╱k╱ // 0x34bc @0x3d
0x347f…34c7 at003e = ╱73╱s╱ // 0x34bd @0x3e
0x347f…34c7 at003f = ╱74╱t╱ // 0x34be @0x3f
0x347f…34c7 at0040 = ╱6b╱k╱ // 0x34bf @0x40
0x347f…34c7 at0041 = ╱6f╱o╱ // 0x34c0 @0x41
0x347f…34c7 at0042 = ╱64╱d╱ // 0x34c1 @0x42
0x347f…34c7 at0043 = ╱65╱e╱ // 0x34c2 @0x43
0x347f…34c7 at0044 = ╱29╱)╱ // 0x34c3 @0x44
0x347f…34c7 at0045 = ╱22╱"╱ // 0x34c4 @0x45
0x347f…34c7 at0046 = ╱eb╱;╱ // 0x34c5 @0x46
0x347f…34c7 at0047 = EOL // 0x34c6 @0x47
0x347f…34c7 }
0x34c7…34db c232 6600 PRINT E2$(E:14)
0x34c7…34db LineComalBin {
0x34c7…34db ptr = 0xc232 // 0x34c7 @0x0
0x34c7…34db lno = 0x19c8 // 0x34c9 @0x2
0x34c7…34db at0004 = ╱92╱ PRINT ╱ // 0x34cb @0x4
0x34c7…34db at0005 = ╱45╱E╱ // 0x34cc @0x5
0x34c7…34db at0006 = ╱32╱2╱ // 0x34cd @0x6
0x34c7…34db at0007 = ╱ef╱$╱ // 0x34ce @0x7
0x34c7…34db at0008 = ╱ed╱(╱ // 0x34cf @0x8
0x34c7…34db at0009 = ╱45╱E╱ // 0x34d0 @0x9
0x34c7…34db at000a = ╱f0╱:╱ // 0x34d1 @0xa
0x34c7…34db at000b = ╱31╱1╱ // 0x34d2 @0xb
0x34c7…34db at000c = ╱34╱4╱ // 0x34d3 @0xc
0x34c7…34db at000d = ╱fe0000e004╱ // 0x34d4 @0xd
0x34c7…34db at0012 = ╱ee╱)╱ // 0x34d9 @0x12
0x34c7…34db at0013 = EOL // 0x34da @0x13
0x34c7…34db }
0x34db…34f0 c247 6610 CURSOR 10,23
0x34db…34f0 LineComalBin {
0x34db…34f0 ptr = 0xc247 // 0x34db @0x0
0x34db…34f0 lno = 0x19d2 // 0x34dd @0x2
0x34db…34f0 at0004 = ╱a1╱ CURSOR ╱ // 0x34df @0x4
0x34db…34f0 at0005 = ╱31╱1╱ // 0x34e0 @0x5
0x34db…34f0 at0006 = ╱30╱0╱ // 0x34e1 @0x6
0x34db…34f0 at0007 = ╱fe0000a004╱ // 0x34e2 @0x7
0x34db…34f0 at000c = ╱ec╱,╱ // 0x34e7 @0xc
0x34db…34f0 at000d = ╱32╱2╱ // 0x34e8 @0xd
0x34db…34f0 at000e = ╱33╱3╱ // 0x34e9 @0xe
0x34db…34f0 at000f = ╱fe0000b805╱ // 0x34ea @0xf
0x34db…34f0 at0014 = EOL // 0x34ef @0x14
0x34db…34f0 }
0x34f0…34f9 (176,) c250 6620 INPUT D5$
0x34f0…34f9 LineComalBin {
0x34f0…34f9 ptr = 0xc250 // 0x34f0 @0x0
0x34f0…34f9 lno = 0x19dc // 0x34f2 @0x2
0x34f0…34f9 at0004 = ╱91╱ INPUT ╱ // 0x34f4 @0x4
0x34f0…34f9 at0005 = ╱44╱D╱ // 0x34f5 @0x5
0x34f0…34f9 at0006 = ╱35╱5╱ // 0x34f6 @0x6
0x34f0…34f9 at0007 = ╱ef╱$╱ // 0x34f7 @0x7
0x34f0…34f9 at0008 = EOL // 0x34f8 @0x8
0x34f0…34f9 }
0x34f9…350d c264 6630 UNTIL LEN(D5$)<26
0x34f9…350d LineComalBin {
0x34f9…350d ptr = 0xc264 // 0x34f9 @0x0
0x34f9…350d lno = 0x19e6 // 0x34fb @0x2
0x34f9…350d at0004 = ╱98╱ UNTIL ╱ // 0x34fd @0x4
0x34f9…350d at0005 = ╱cc╱LEN╱ // 0x34fe @0x5
0x34f9…350d at0006 = ╱ed╱(╱ // 0x34ff @0x6
0x34f9…350d at0007 = ╱44╱D╱ // 0x3500 @0x7
0x34f9…350d at0008 = ╱35╱5╱ // 0x3501 @0x8
0x34f9…350d at0009 = ╱ef╱$╱ // 0x3502 @0x9
0x34f9…350d at000a = ╱ee╱)╱ // 0x3503 @0xa
0x34f9…350d at000b = ╱dd╱<╱ // 0x3504 @0xb
0x34f9…350d at000c = ╱32╱2╱ // 0x3505 @0xc
0x34f9…350d at000d = ╱36╱6╱ // 0x3506 @0xd
0x34f9…350d at000e = ╱fe0000d005╱ // 0x3507 @0xe
0x34f9…350d at0013 = EOL // 0x350c @0x13
0x34f9…350d }
0x350d…351c c273 6640 IF LEN(D5$)<V THEN
0x350d…351c LineComalBin {
0x350d…351c ptr = 0xc273 // 0x350d @0x0
0x350d…351c lno = 0x19f0 // 0x350f @0x2
0x350d…351c at0004 = ╱9c╱ IF ╱ // 0x3511 @0x4
0x350d…351c at0005 = ╱cc╱LEN╱ // 0x3512 @0x5
0x350d…351c at0006 = ╱ed╱(╱ // 0x3513 @0x6
0x350d…351c at0007 = ╱44╱D╱ // 0x3514 @0x7
0x350d…351c at0008 = ╱35╱5╱ // 0x3515 @0x8
0x350d…351c at0009 = ╱ef╱$╱ // 0x3516 @0x9
0x350d…351c at000a = ╱ee╱)╱ // 0x3517 @0xa
0x350d…351c at000b = ╱dd╱<╱ // 0x3518 @0xb
0x350d…351c at000c = ╱56╱V╱ // 0x3519 @0xc
0x350d…351c at000d = ╱b6╱ THEN ╱ // 0x351a @0xd
0x350d…351c at000e = EOL // 0x351b @0xe
0x350d…351c }
0x351c…352d c284 6650 EXEC NRTEST(D5$)
0x351c…352d LineComalBin {
0x351c…352d ptr = 0xc284 // 0x351c @0x0
0x351c…352d lno = 0x19fa // 0x351e @0x2
0x351c…352d at0004 = ╱9d╱ EXEC ╱ // 0x3520 @0x4
0x351c…352d at0005 = ╱4e╱N╱ // 0x3521 @0x5
0x351c…352d at0006 = ╱52╱R╱ // 0x3522 @0x6
0x351c…352d at0007 = ╱54╱T╱ // 0x3523 @0x7
0x351c…352d at0008 = ╱45╱E╱ // 0x3524 @0x8
0x351c…352d at0009 = ╱53╱S╱ // 0x3525 @0x9
0x351c…352d at000a = ╱54╱T╱ // 0x3526 @0xa
0x351c…352d at000b = ╱ed╱(╱ // 0x3527 @0xb
0x351c…352d at000c = ╱44╱D╱ // 0x3528 @0xc
0x351c…352d at000d = ╱35╱5╱ // 0x3529 @0xd
0x351c…352d at000e = ╱ef╱$╱ // 0x352a @0xe
0x351c…352d at000f = ╱ee╱)╱ // 0x352b @0xf
0x351c…352d at0010 = EOL // 0x352c @0x10
0x351c…352d }
0x352d…3533 c28a 6660 ELSE
0x352d…3533 LineComalBin {
0x352d…3533 ptr = 0xc28a // 0x352d @0x0
0x352d…3533 lno = 0x1a04 // 0x352f @0x2
0x352d…3533 at0004 = ╱9a╱ ELSE ╱ // 0x3531 @0x4
0x352d…3533 at0005 = EOL // 0x3532 @0x5
0x352d…3533 }
0x3533…3546 c29d 6670 P=20;M8=B
0x3533…3546 LineComalBin {
0x3533…3546 ptr = 0xc29d // 0x3533 @0x0
0x3533…3546 lno = 0x1a0e // 0x3535 @0x2
0x3533…3546 at0004 = ╱50╱P╱ // 0x3537 @0x4
0x3533…3546 at0005 = ╱dc╱=╱ // 0x3538 @0x5
0x3533…3546 at0006 = ╱32╱2╱ // 0x3539 @0x6
0x3533…3546 at0007 = ╱30╱0╱ // 0x353a @0x7
0x3533…3546 at0008 = ╱fe0000a005╱ // 0x353b @0x8
0x3533…3546 at000d = ╱eb╱;╱ // 0x3540 @0xd
0x3533…3546 at000e = ╱4d╱M╱ // 0x3541 @0xe
0x3533…3546 at000f = ╱38╱8╱ // 0x3542 @0xf
0x3533…3546 at0010 = ╱dc╱=╱ // 0x3543 @0x10
0x3533…3546 at0011 = ╱42╱B╱ // 0x3544 @0x11
0x3533…3546 at0012 = EOL // 0x3545 @0x12
0x3533…3546 }
0x3546…354c c2a3 6680 ENDIF
0x3546…354c LineComalBin {
0x3546…354c ptr = 0xc2a3 // 0x3546 @0x0
0x3546…354c lno = 0x1a18 // 0x3548 @0x2
0x3546…354c at0004 = ╱9b╱ ENDIF ╱ // 0x354a @0x4
0x3546…354c at0005 = EOL // 0x354b @0x5
0x3546…354c }
0x354c…356e c2c5 6690 UNTIL P=>B AND P<21 AND M8=B AND P<>10
0x354c…356e LineComalBin {
0x354c…356e ptr = 0xc2c5 // 0x354c @0x0
0x354c…356e lno = 0x1a22 // 0x354e @0x2
0x354c…356e at0004 = ╱98╱ UNTIL ╱ // 0x3550 @0x4
0x354c…356e at0005 = ╱50╱P╱ // 0x3551 @0x5
0x354c…356e at0006 = ╱e0╱=>╱ // 0x3552 @0x6
0x354c…356e at0007 = ╱42╱B╱ // 0x3553 @0x7
0x354c…356e at0008 = ╱da╱ AND ╱ // 0x3554 @0x8
0x354c…356e at0009 = ╱50╱P╱ // 0x3555 @0x9
0x354c…356e at000a = ╱dd╱<╱ // 0x3556 @0xa
0x354c…356e at000b = ╱32╱2╱ // 0x3557 @0xb
0x354c…356e at000c = ╱31╱1╱ // 0x3558 @0xc
0x354c…356e at000d = ╱fe0000a805╱ // 0x3559 @0xd
0x354c…356e at0012 = ╱da╱ AND ╱ // 0x355e @0x12
0x354c…356e at0013 = ╱4d╱M╱ // 0x355f @0x13
0x354c…356e at0014 = ╱38╱8╱ // 0x3560 @0x14
0x354c…356e at0015 = ╱dc╱=╱ // 0x3561 @0x15
0x354c…356e at0016 = ╱42╱B╱ // 0x3562 @0x16
0x354c…356e at0017 = ╱da╱ AND ╱ // 0x3563 @0x17
0x354c…356e at0018 = ╱50╱P╱ // 0x3564 @0x18
0x354c…356e at0019 = ╱e1╱<>╱ // 0x3565 @0x19
0x354c…356e at001a = ╱31╱1╱ // 0x3566 @0x1a
0x354c…356e at001b = ╱30╱0╱ // 0x3567 @0x1b
0x354c…356e at001c = ╱fe0000a004╱ // 0x3568 @0x1c
0x354c…356e at0021 = EOL // 0x356d @0x21
0x354c…356e }
0x356e…3578 c2cf 6700 IF P<>B THEN
0x356e…3578 LineComalBin {
0x356e…3578 ptr = 0xc2cf // 0x356e @0x0
0x356e…3578 lno = 0x1a2c // 0x3570 @0x2
0x356e…3578 at0004 = ╱9c╱ IF ╱ // 0x3572 @0x4
0x356e…3578 at0005 = ╱50╱P╱ // 0x3573 @0x5
0x356e…3578 at0006 = ╱e1╱<>╱ // 0x3574 @0x6
0x356e…3578 at0007 = ╱42╱B╱ // 0x3575 @0x7
0x356e…3578 at0008 = ╱b6╱ THEN ╱ // 0x3576 @0x8
0x356e…3578 at0009 = EOL // 0x3577 @0x9
0x356e…3578 }
0x3578…3589 c2e0 6710 O5=P MOD 10
0x3578…3589 LineComalBin {
0x3578…3589 ptr = 0xc2e0 // 0x3578 @0x0
0x3578…3589 lno = 0x1a36 // 0x357a @0x2
0x3578…3589 at0004 = ╱4f╱O╱ // 0x357c @0x4
0x3578…3589 at0005 = ╱35╱5╱ // 0x357d @0x5
0x3578…3589 at0006 = ╱dc╱=╱ // 0x357e @0x6
0x3578…3589 at0007 = ╱50╱P╱ // 0x357f @0x7
0x3578…3589 at0008 = ╱e8╱ MOD ╱ // 0x3580 @0x8
0x3578…3589 at0009 = ╱31╱1╱ // 0x3581 @0x9
0x3578…3589 at000a = ╱30╱0╱ // 0x3582 @0xa
0x3578…3589 at000b = ╱fe0000a004╱ // 0x3583 @0xb
0x3578…3589 at0010 = EOL // 0x3588 @0x10
0x3578…3589 }
0x3589…3599 c2f0 6720 IF P=20 THEN
0x3589…3599 LineComalBin {
0x3589…3599 ptr = 0xc2f0 // 0x3589 @0x0
0x3589…3599 lno = 0x1a40 // 0x358b @0x2
0x3589…3599 at0004 = ╱9c╱ IF ╱ // 0x358d @0x4
0x3589…3599 at0005 = ╱50╱P╱ // 0x358e @0x5
0x3589…3599 at0006 = ╱dc╱=╱ // 0x358f @0x6
0x3589…3599 at0007 = ╱32╱2╱ // 0x3590 @0x7
0x3589…3599 at0008 = ╱30╱0╱ // 0x3591 @0x8
0x3589…3599 at0009 = ╱fe0000a005╱ // 0x3592 @0x9
0x3589…3599 at000e = ╱b6╱ THEN ╱ // 0x3597 @0xe
0x3589…3599 at000f = EOL // 0x3598 @0xf
0x3589…3599 }
0x3599…35b7 c30e 6730 P=10;C1$=D5$;D6$=C1$
0x3599…35b7 LineComalBin {
0x3599…35b7 ptr = 0xc30e // 0x3599 @0x0
0x3599…35b7 lno = 0x1a4a // 0x359b @0x2
0x3599…35b7 at0004 = ╱50╱P╱ // 0x359d @0x4
0x3599…35b7 at0005 = ╱dc╱=╱ // 0x359e @0x5
0x3599…35b7 at0006 = ╱31╱1╱ // 0x359f @0x6
0x3599…35b7 at0007 = ╱30╱0╱ // 0x35a0 @0x7
0x3599…35b7 at0008 = ╱fe0000a004╱ // 0x35a1 @0x8
0x3599…35b7 at000d = ╱eb╱;╱ // 0x35a6 @0xd
0x3599…35b7 at000e = ╱43╱C╱ // 0x35a7 @0xe
0x3599…35b7 at000f = ╱31╱1╱ // 0x35a8 @0xf
0x3599…35b7 at0010 = ╱ef╱$╱ // 0x35a9 @0x10
0x3599…35b7 at0011 = ╱dc╱=╱ // 0x35aa @0x11
0x3599…35b7 at0012 = ╱44╱D╱ // 0x35ab @0x12
0x3599…35b7 at0013 = ╱35╱5╱ // 0x35ac @0x13
0x3599…35b7 at0014 = ╱ef╱$╱ // 0x35ad @0x14
0x3599…35b7 at0015 = ╱eb╱;╱ // 0x35ae @0x15
0x3599…35b7 at0016 = ╱44╱D╱ // 0x35af @0x16
0x3599…35b7 at0017 = ╱36╱6╱ // 0x35b0 @0x17
0x3599…35b7 at0018 = ╱ef╱$╱ // 0x35b1 @0x18
0x3599…35b7 at0019 = ╱dc╱=╱ // 0x35b2 @0x19
0x3599…35b7 at001a = ╱43╱C╱ // 0x35b3 @0x1a
0x3599…35b7 at001b = ╱31╱1╱ // 0x35b4 @0x1b
0x3599…35b7 at001c = ╱ef╱$╱ // 0x35b5 @0x1c
0x3599…35b7 at001d = EOL // 0x35b6 @0x1d
0x3599…35b7 }
0x35b7…35bd c314 6740 ELSE
0x35b7…35bd LineComalBin {
0x35b7…35bd ptr = 0xc314 // 0x35b7 @0x0
0x35b7…35bd lno = 0x1a54 // 0x35b9 @0x2
0x35b7…35bd at0004 = ╱9a╱ ELSE ╱ // 0x35bb @0x4
0x35b7…35bd at0005 = EOL // 0x35bc @0x5
0x35b7…35bd }
0x35bd…35dc c333 6750 D6$=C3$(O5)+E2$(E:15)
0x35bd…35dc LineComalBin {
0x35bd…35dc ptr = 0xc333 // 0x35bd @0x0
0x35bd…35dc lno = 0x1a5e // 0x35bf @0x2
0x35bd…35dc at0004 = ╱44╱D╱ // 0x35c1 @0x4
0x35bd…35dc at0005 = ╱36╱6╱ // 0x35c2 @0x5
0x35bd…35dc at0006 = ╱ef╱$╱ // 0x35c3 @0x6
0x35bd…35dc at0007 = ╱dc╱=╱ // 0x35c4 @0x7
0x35bd…35dc at0008 = ╱43╱C╱ // 0x35c5 @0x8
0x35bd…35dc at0009 = ╱33╱3╱ // 0x35c6 @0x9
0x35bd…35dc at000a = ╱ef╱$╱ // 0x35c7 @0xa
0x35bd…35dc at000b = ╱ed╱(╱ // 0x35c8 @0xb
0x35bd…35dc at000c = ╱4f╱O╱ // 0x35c9 @0xc
0x35bd…35dc at000d = ╱35╱5╱ // 0x35ca @0xd
0x35bd…35dc at000e = ╱ee╱)╱ // 0x35cb @0xe
0x35bd…35dc at000f = ╱f1╱+╱ // 0x35cc @0xf
0x35bd…35dc at0010 = ╱45╱E╱ // 0x35cd @0x10
0x35bd…35dc at0011 = ╱32╱2╱ // 0x35ce @0x11
0x35bd…35dc at0012 = ╱ef╱$╱ // 0x35cf @0x12
0x35bd…35dc at0013 = ╱ed╱(╱ // 0x35d0 @0x13
0x35bd…35dc at0014 = ╱45╱E╱ // 0x35d1 @0x14
0x35bd…35dc at0015 = ╱f0╱:╱ // 0x35d2 @0x15
0x35bd…35dc at0016 = ╱31╱1╱ // 0x35d3 @0x16
0x35bd…35dc at0017 = ╱35╱5╱ // 0x35d4 @0x17
0x35bd…35dc at0018 = ╱fe0000f004╱ // 0x35d5 @0x18
0x35bd…35dc at001d = ╱ee╱)╱ // 0x35da @0x1d
0x35bd…35dc at001e = EOL // 0x35db @0x1e
0x35bd…35dc }
0x35dc…35ec c343 6760 IF P>10 THEN
0x35dc…35ec LineComalBin {
0x35dc…35ec ptr = 0xc343 // 0x35dc @0x0
0x35dc…35ec lno = 0x1a68 // 0x35de @0x2
0x35dc…35ec at0004 = ╱9c╱ IF ╱ // 0x35e0 @0x4
0x35dc…35ec at0005 = ╱50╱P╱ // 0x35e1 @0x5
0x35dc…35ec at0006 = ╱de╱>╱ // 0x35e2 @0x6
0x35dc…35ec at0007 = ╱31╱1╱ // 0x35e3 @0x7
0x35dc…35ec at0008 = ╱30╱0╱ // 0x35e4 @0x8
0x35dc…35ec at0009 = ╱fe0000a004╱ // 0x35e5 @0x9
0x35dc…35ec at000e = ╱b6╱ THEN ╱ // 0x35ea @0xe
0x35dc…35ec at000f = EOL // 0x35eb @0xf
0x35dc…35ec }
0x35ec…35f2 c349 6770 REPEAT
0x35ec…35f2 LineComalBin {
0x35ec…35f2 ptr = 0xc349 // 0x35ec @0x0
0x35ec…35f2 lno = 0x1a72 // 0x35ee @0x2
0x35ec…35f2 at0004 = ╱97╱ REPEAT ╱ // 0x35f0 @0x4
0x35ec…35f2 at0005 = EOL // 0x35f1 @0x5
0x35ec…35f2 }
0x35f2…3601 c358 6780 CURSOR V,23
0x35f2…3601 LineComalBin {
0x35f2…3601 ptr = 0xc358 // 0x35f2 @0x0
0x35f2…3601 lno = 0x1a7c // 0x35f4 @0x2
0x35f2…3601 at0004 = ╱a1╱ CURSOR ╱ // 0x35f6 @0x4
0x35f2…3601 at0005 = ╱56╱V╱ // 0x35f7 @0x5
0x35f2…3601 at0006 = ╱ec╱,╱ // 0x35f8 @0x6
0x35f2…3601 at0007 = ╱32╱2╱ // 0x35f9 @0x7
0x35f2…3601 at0008 = ╱33╱3╱ // 0x35fa @0x8
0x35f2…3601 at0009 = ╱fe0000b805╱ // 0x35fb @0x9
0x35f2…3601 at000e = EOL // 0x3600 @0xe
0x35f2…3601 }
0x3601…363b c392 6790 PRINT "Tekst (max 14 tegn)"+E2$(E:42)
0x3601…363b LineComalBin {
0x3601…363b ptr = 0xc392 // 0x3601 @0x0
0x3601…363b lno = 0x1a86 // 0x3603 @0x2
0x3601…363b at0004 = ╱92╱ PRINT ╱ // 0x3605 @0x4
0x3601…363b at0005 = ╱22╱"╱ // 0x3606 @0x5
0x3601…363b at0006 = ╱54╱T╱ // 0x3607 @0x6
0x3601…363b at0007 = ╱65╱e╱ // 0x3608 @0x7
0x3601…363b at0008 = ╱6b╱k╱ // 0x3609 @0x8
0x3601…363b at0009 = ╱73╱s╱ // 0x360a @0x9
0x3601…363b at000a = ╱74╱t╱ // 0x360b @0xa
0x3601…363b at000b = ╱20╱…╱ // 0x360c @0xb
0x3601…363b at000c = ╱20╱…╱ // 0x360d @0xc
0x3601…363b at000d = ╱20╱…╱ // 0x360e @0xd
0x3601…363b at000e = ╱20╱…╱ // 0x360f @0xe
0x3601…363b at000f = ╱20╱…╱ // 0x3610 @0xf
0x3601…363b at0010 = ╱20╱…╱ // 0x3611 @0x10
0x3601…363b at0011 = ╱20╱…╱ // 0x3612 @0x11
0x3601…363b at0012 = ╱20╱…╱ // 0x3613 @0x12
0x3601…363b at0013 = ╱20╱…╱ // 0x3614 @0x13
0x3601…363b at0014 = ╱20╱…╱ // 0x3615 @0x14
0x3601…363b at0015 = ╱20╱…╱ // 0x3616 @0x15
0x3601…363b at0016 = ╱20╱…╱ // 0x3617 @0x16
0x3601…363b at0017 = ╱20╱…╱ // 0x3618 @0x17
0x3601…363b at0018 = ╱20╱…╱ // 0x3619 @0x18
0x3601…363b at0019 = ╱20╱…╱ // 0x361a @0x19
0x3601…363b at001a = ╱20╱…╱ // 0x361b @0x1a
0x3601…363b at001b = ╱20╱…╱ // 0x361c @0x1b
0x3601…363b at001c = ╱28╱(╱ // 0x361d @0x1c
0x3601…363b at001d = ╱6d╱m╱ // 0x361e @0x1d
0x3601…363b at001e = ╱61╱a╱ // 0x361f @0x1e
0x3601…363b at001f = ╱78╱x╱ // 0x3620 @0x1f
0x3601…363b at0020 = ╱20╱…╱ // 0x3621 @0x20
0x3601…363b at0021 = ╱31╱1╱ // 0x3622 @0x21
0x3601…363b at0022 = ╱34╱4╱ // 0x3623 @0x22
0x3601…363b at0023 = ╱20╱…╱ // 0x3624 @0x23
0x3601…363b at0024 = ╱74╱t╱ // 0x3625 @0x24
0x3601…363b at0025 = ╱65╱e╱ // 0x3626 @0x25
0x3601…363b at0026 = ╱67╱g╱ // 0x3627 @0x26
0x3601…363b at0027 = ╱6e╱n╱ // 0x3628 @0x27
0x3601…363b at0028 = ╱29╱)╱ // 0x3629 @0x28
0x3601…363b at0029 = ╱22╱"╱ // 0x362a @0x29
0x3601…363b at002a = ╱f1╱+╱ // 0x362b @0x2a
0x3601…363b at002b = ╱45╱E╱ // 0x362c @0x2b
0x3601…363b at002c = ╱32╱2╱ // 0x362d @0x2c
0x3601…363b at002d = ╱ef╱$╱ // 0x362e @0x2d
0x3601…363b at002e = ╱ed╱(╱ // 0x362f @0x2e
0x3601…363b at002f = ╱45╱E╱ // 0x3630 @0x2f
0x3601…363b at0030 = ╱f0╱:╱ // 0x3631 @0x30
0x3601…363b at0031 = ╱34╱4╱ // 0x3632 @0x31
0x3601…363b at0032 = ╱32╱2╱ // 0x3633 @0x32
0x3601…363b at0033 = ╱fe0000a806╱ // 0x3634 @0x33
0x3601…363b at0038 = ╱ee╱)╱ // 0x3639 @0x38
0x3601…363b at0039 = EOL // 0x363a @0x39
0x3601…363b }
0x363b…3650 c3a7 6800 CURSOR 10,23
0x363b…3650 LineComalBin {
0x363b…3650 ptr = 0xc3a7 // 0x363b @0x0
0x363b…3650 lno = 0x1a90 // 0x363d @0x2
0x363b…3650 at0004 = ╱a1╱ CURSOR ╱ // 0x363f @0x4
0x363b…3650 at0005 = ╱31╱1╱ // 0x3640 @0x5
0x363b…3650 at0006 = ╱30╱0╱ // 0x3641 @0x6
0x363b…3650 at0007 = ╱fe0000a004╱ // 0x3642 @0x7
0x363b…3650 at000c = ╱ec╱,╱ // 0x3647 @0xc
0x363b…3650 at000d = ╱32╱2╱ // 0x3648 @0xd
0x363b…3650 at000e = ╱33╱3╱ // 0x3649 @0xe
0x363b…3650 at000f = ╱fe0000b805╱ // 0x364a @0xf
0x363b…3650 at0014 = EOL // 0x364f @0x14
0x363b…3650 }
0x3650…3659 c3b0 6810 INPUT D5$
0x3650…3659 LineComalBin {
0x3650…3659 ptr = 0xc3b0 // 0x3650 @0x0
0x3650…3659 lno = 0x1a9a // 0x3652 @0x2
0x3650…3659 at0004 = ╱91╱ INPUT ╱ // 0x3654 @0x4
0x3650…3659 at0005 = ╱44╱D╱ // 0x3655 @0x5
0x3650…3659 at0006 = ╱35╱5╱ // 0x3656 @0x6
0x3650…3659 at0007 = ╱ef╱$╱ // 0x3657 @0x7
0x3650…3659 at0008 = EOL // 0x3658 @0x8
0x3650…3659 }
0x3659…366d c3c4 6820 UNTIL LEN(D5$)<15
0x3659…366d LineComalBin {
0x3659…366d ptr = 0xc3c4 // 0x3659 @0x0
0x3659…366d lno = 0x1aa4 // 0x365b @0x2
0x3659…366d at0004 = ╱98╱ UNTIL ╱ // 0x365d @0x4
0x3659…366d at0005 = ╱cc╱LEN╱ // 0x365e @0x5
0x3659…366d at0006 = ╱ed╱(╱ // 0x365f @0x6
0x3659…366d at0007 = ╱44╱D╱ // 0x3660 @0x7
0x3659…366d at0008 = ╱35╱5╱ // 0x3661 @0x8
0x3659…366d at0009 = ╱ef╱$╱ // 0x3662 @0x9
0x3659…366d at000a = ╱ee╱)╱ // 0x3663 @0xa
0x3659…366d at000b = ╱dd╱<╱ // 0x3664 @0xb
0x3659…366d at000c = ╱31╱1╱ // 0x3665 @0xc
0x3659…366d at000d = ╱35╱5╱ // 0x3666 @0xd
0x3659…366d at000e = ╱fe0000f004╱ // 0x3667 @0xe
0x3659…366d at0013 = EOL // 0x366c @0x13
0x3659…366d }
0x366d…3692 c3e9 6830 D6$(12,25)=D5$;C1$=D6$
0x366d…3692 LineComalBin {
0x366d…3692 ptr = 0xc3e9 // 0x366d @0x0
0x366d…3692 lno = 0x1aae // 0x366f @0x2
0x366d…3692 at0004 = ╱44╱D╱ // 0x3671 @0x4
0x366d…3692 at0005 = ╱36╱6╱ // 0x3672 @0x5
0x366d…3692 at0006 = ╱ef╱$╱ // 0x3673 @0x6
0x366d…3692 at0007 = ╱ed╱(╱ // 0x3674 @0x7
0x366d…3692 at0008 = ╱31╱1╱ // 0x3675 @0x8
0x366d…3692 at0009 = ╱32╱2╱ // 0x3676 @0x9
0x366d…3692 at000a = ╱fe0000c004╱ // 0x3677 @0xa
0x366d…3692 at000f = ╱ec╱,╱ // 0x367c @0xf
0x366d…3692 at0010 = ╱32╱2╱ // 0x367d @0x10
0x366d…3692 at0011 = ╱35╱5╱ // 0x367e @0x11
0x366d…3692 at0012 = ╱fe0000c805╱ // 0x367f @0x12
0x366d…3692 at0017 = ╱ee╱)╱ // 0x3684 @0x17
0x366d…3692 at0018 = ╱dc╱=╱ // 0x3685 @0x18
0x366d…3692 at0019 = ╱44╱D╱ // 0x3686 @0x19
0x366d…3692 at001a = ╱35╱5╱ // 0x3687 @0x1a
0x366d…3692 at001b = ╱ef╱$╱ // 0x3688 @0x1b
0x366d…3692 at001c = ╱eb╱;╱ // 0x3689 @0x1c
0x366d…3692 at001d = ╱43╱C╱ // 0x368a @0x1d
0x366d…3692 at001e = ╱31╱1╱ // 0x368b @0x1e
0x366d…3692 at001f = ╱ef╱$╱ // 0x368c @0x1f
0x366d…3692 at0020 = ╱dc╱=╱ // 0x368d @0x20
0x366d…3692 at0021 = ╱44╱D╱ // 0x368e @0x21
0x366d…3692 at0022 = ╱36╱6╱ // 0x368f @0x22
0x366d…3692 at0023 = ╱ef╱$╱ // 0x3690 @0x23
0x366d…3692 at0024 = EOL // 0x3691 @0x24
0x366d…3692 }
0x3692…3698 c3ef 6840 ENDIF
0x3692…3698 LineComalBin {
0x3692…3698 ptr = 0xc3ef // 0x3692 @0x0
0x3692…3698 lno = 0x1ab8 // 0x3694 @0x2
0x3692…3698 at0004 = ╱9b╱ ENDIF ╱ // 0x3696 @0x4
0x3692…3698 at0005 = EOL // 0x3697 @0x5
0x3692…3698 }
0x3698…369e c3f5 6850 ENDIF
0x3698…369e LineComalBin {
0x3698…369e ptr = 0xc3f5 // 0x3698 @0x0
0x3698…369e lno = 0x1ac2 // 0x369a @0x2
0x3698…369e at0004 = ╱9b╱ ENDIF ╱ // 0x369c @0x4
0x3698…369e at0005 = EOL // 0x369d @0x5
0x3698…369e }
0x369e…36b0 c407 6860 CURSOR 13,L7+V
0x369e…36b0 LineComalBin {
0x369e…36b0 ptr = 0xc407 // 0x369e @0x0
0x369e…36b0 lno = 0x1acc // 0x36a0 @0x2
0x369e…36b0 at0004 = ╱a1╱ CURSOR ╱ // 0x36a2 @0x4
0x369e…36b0 at0005 = ╱31╱1╱ // 0x36a3 @0x5
0x369e…36b0 at0006 = ╱33╱3╱ // 0x36a4 @0x6
0x369e…36b0 at0007 = ╱fe0000d004╱ // 0x36a5 @0x7
0x369e…36b0 at000c = ╱ec╱,╱ // 0x36aa @0xc
0x369e…36b0 at000d = ╱4c╱L╱ // 0x36ab @0xd
0x369e…36b0 at000e = ╱37╱7╱ // 0x36ac @0xe
0x369e…36b0 at000f = ╱e2╱+╱ // 0x36ad @0xf
0x369e…36b0 at0010 = ╱56╱V╱ // 0x36ae @0x10
0x369e…36b0 at0011 = EOL // 0x36af @0x11
0x369e…36b0 }
0x36b0…36b9 c410 6870 PRINT D6$
0x36b0…36b9 LineComalBin {
0x36b0…36b9 ptr = 0xc410 // 0x36b0 @0x0
0x36b0…36b9 lno = 0x1ad6 // 0x36b2 @0x2
0x36b0…36b9 at0004 = ╱92╱ PRINT ╱ // 0x36b4 @0x4
0x36b0…36b9 at0005 = ╱44╱D╱ // 0x36b5 @0x5
0x36b0…36b9 at0006 = ╱36╱6╱ // 0x36b6 @0x6
0x36b0…36b9 at0007 = ╱ef╱$╱ // 0x36b7 @0x7
0x36b0…36b9 at0008 = EOL // 0x36b8 @0x8
0x36b0…36b9 }
0x36b9…36bf c416 6880 ENDIF
0x36b9…36bf LineComalBin {
0x36b9…36bf ptr = 0xc416 // 0x36b9 @0x0
0x36b9…36bf lno = 0x1ae0 // 0x36bb @0x2
0x36b9…36bf at0004 = ╱9b╱ ENDIF ╱ // 0x36bd @0x4
0x36b9…36bf at0005 = EOL // 0x36be @0x5
0x36b9…36bf }
0x36bf…36cd c424 6890 J5=P;L8=V
0x36bf…36cd LineComalBin {
0x36bf…36cd ptr = 0xc424 // 0x36bf @0x0
0x36bf…36cd lno = 0x1aea // 0x36c1 @0x2
0x36bf…36cd at0004 = ╱4a╱J╱ // 0x36c3 @0x4
0x36bf…36cd at0005 = ╱35╱5╱ // 0x36c4 @0x5
0x36bf…36cd at0006 = ╱dc╱=╱ // 0x36c5 @0x6
0x36bf…36cd at0007 = ╱50╱P╱ // 0x36c6 @0x7
0x36bf…36cd at0008 = ╱eb╱;╱ // 0x36c7 @0x8
0x36bf…36cd at0009 = ╱4c╱L╱ // 0x36c8 @0x9
0x36bf…36cd at000a = ╱38╱8╱ // 0x36c9 @0xa
0x36bf…36cd at000b = ╱dc╱=╱ // 0x36ca @0xb
0x36bf…36cd at000c = ╱56╱V╱ // 0x36cb @0xc
0x36bf…36cd at000d = EOL // 0x36cc @0xd
0x36bf…36cd }
0x36cd…36d5 c42c 6900 WHEN V
0x36cd…36d5 LineComalBin {
0x36cd…36d5 ptr = 0xc42c // 0x36cd @0x0
0x36cd…36d5 lno = 0x1af4 // 0x36cf @0x2
0x36cd…36d5 at0004 = ╱a301╱ WHEN ╱ // 0x36d1 @0x4
0x36cd…36d5 at0006 = ╱56╱V╱ // 0x36d3 @0x6
0x36cd…36d5 at0007 = EOL // 0x36d4 @0x7
0x36cd…36d5 }
0x36d5…36db c432 6910 REPEAT
0x36d5…36db LineComalBin {
0x36d5…36db ptr = 0xc432 // 0x36d5 @0x0
0x36d5…36db lno = 0x1afe // 0x36d7 @0x2
0x36d5…36db at0004 = ╱97╱ REPEAT ╱ // 0x36d9 @0x4
0x36d5…36db at0005 = EOL // 0x36da @0x5
0x36d5…36db }
0x36db…36e1 c438 6920 REPEAT
0x36db…36e1 LineComalBin {
0x36db…36e1 ptr = 0xc438 // 0x36db @0x0
0x36db…36e1 lno = 0x1b08 // 0x36dd @0x2
0x36db…36e1 at0004 = ╱97╱ REPEAT ╱ // 0x36df @0x4
0x36db…36e1 at0005 = EOL // 0x36e0 @0x5
0x36db…36e1 }
0x36e1…36f0 c447 6930 CURSOR V,23
0x36e1…36f0 LineComalBin {
0x36e1…36f0 ptr = 0xc447 // 0x36e1 @0x0
0x36e1…36f0 lno = 0x1b12 // 0x36e3 @0x2
0x36e1…36f0 at0004 = ╱a1╱ CURSOR ╱ // 0x36e5 @0x4
0x36e1…36f0 at0005 = ╱56╱V╱ // 0x36e6 @0x5
0x36e1…36f0 at0006 = ╱ec╱,╱ // 0x36e7 @0x6
0x36e1…36f0 at0007 = ╱32╱2╱ // 0x36e8 @0x7
0x36e1…36f0 at0008 = ╱33╱3╱ // 0x36e9 @0x8
0x36e1…36f0 at0009 = ╱fe0000b805╱ // 0x36ea @0x9
0x36e1…36f0 at000e = EOL // 0x36ef @0xe
0x36e1…36f0 }
0x36f0…3732 c489 6940 PRINT "Debet-konto (RETURN:overspringes)"+E2$(E:34)
0x36f0…3732 LineComalBin {
0x36f0…3732 ptr = 0xc489 // 0x36f0 @0x0
0x36f0…3732 lno = 0x1b1c // 0x36f2 @0x2
0x36f0…3732 at0004 = ╱92╱ PRINT ╱ // 0x36f4 @0x4
0x36f0…3732 at0005 = ╱22╱"╱ // 0x36f5 @0x5
0x36f0…3732 at0006 = ╱44╱D╱ // 0x36f6 @0x6
0x36f0…3732 at0007 = ╱65╱e╱ // 0x36f7 @0x7
0x36f0…3732 at0008 = ╱62╱b╱ // 0x36f8 @0x8
0x36f0…3732 at0009 = ╱65╱e╱ // 0x36f9 @0x9
0x36f0…3732 at000a = ╱74╱t╱ // 0x36fa @0xa
0x36f0…3732 at000b = ╱2d╱-╱ // 0x36fb @0xb
0x36f0…3732 at000c = ╱6b╱k╱ // 0x36fc @0xc
0x36f0…3732 at000d = ╱6f╱o╱ // 0x36fd @0xd
0x36f0…3732 at000e = ╱6e╱n╱ // 0x36fe @0xe
0x36f0…3732 at000f = ╱74╱t╱ // 0x36ff @0xf
0x36f0…3732 at0010 = ╱6f╱o╱ // 0x3700 @0x10
0x36f0…3732 at0011 = ╱20╱…╱ // 0x3701 @0x11
0x36f0…3732 at0012 = ╱20╱…╱ // 0x3702 @0x12
0x36f0…3732 at0013 = ╱20╱…╱ // 0x3703 @0x13
0x36f0…3732 at0014 = ╱20╱…╱ // 0x3704 @0x14
0x36f0…3732 at0015 = ╱20╱…╱ // 0x3705 @0x15
0x36f0…3732 at0016 = ╱20╱…╱ // 0x3706 @0x16
0x36f0…3732 at0017 = ╱20╱…╱ // 0x3707 @0x17
0x36f0…3732 at0018 = ╱20╱…╱ // 0x3708 @0x18
0x36f0…3732 at0019 = ╱20╱…╱ // 0x3709 @0x19
0x36f0…3732 at001a = ╱20╱…╱ // 0x370a @0x1a
0x36f0…3732 at001b = ╱20╱…╱ // 0x370b @0x1b
0x36f0…3732 at001c = ╱28╱(╱ // 0x370c @0x1c
0x36f0…3732 at001d = ╱52╱R╱ // 0x370d @0x1d
0x36f0…3732 at001e = ╱45╱E╱ // 0x370e @0x1e
0x36f0…3732 at001f = ╱54╱T╱ // 0x370f @0x1f
0x36f0…3732 at0020 = ╱55╱U╱ // 0x3710 @0x20
0x36f0…3732 at0021 = ╱52╱R╱ // 0x3711 @0x21
0x36f0…3732 at0022 = ╱4e╱N╱ // 0x3712 @0x22
0x36f0…3732 at0023 = ╱3a╱:╱ // 0x3713 @0x23
0x36f0…3732 at0024 = ╱6f╱o╱ // 0x3714 @0x24
0x36f0…3732 at0025 = ╱76╱v╱ // 0x3715 @0x25
0x36f0…3732 at0026 = ╱65╱e╱ // 0x3716 @0x26
0x36f0…3732 at0027 = ╱72╱r╱ // 0x3717 @0x27
0x36f0…3732 at0028 = ╱73╱s╱ // 0x3718 @0x28
0x36f0…3732 at0029 = ╱70╱p╱ // 0x3719 @0x29
0x36f0…3732 at002a = ╱72╱r╱ // 0x371a @0x2a
0x36f0…3732 at002b = ╱69╱i╱ // 0x371b @0x2b
0x36f0…3732 at002c = ╱6e╱n╱ // 0x371c @0x2c
0x36f0…3732 at002d = ╱67╱g╱ // 0x371d @0x2d
0x36f0…3732 at002e = ╱65╱e╱ // 0x371e @0x2e
0x36f0…3732 at002f = ╱73╱s╱ // 0x371f @0x2f
0x36f0…3732 at0030 = ╱29╱)╱ // 0x3720 @0x30
0x36f0…3732 at0031 = ╱22╱"╱ // 0x3721 @0x31
0x36f0…3732 at0032 = ╱f1╱+╱ // 0x3722 @0x32
0x36f0…3732 at0033 = ╱45╱E╱ // 0x3723 @0x33
0x36f0…3732 at0034 = ╱32╱2╱ // 0x3724 @0x34
0x36f0…3732 at0035 = ╱ef╱$╱ // 0x3725 @0x35
0x36f0…3732 at0036 = ╱ed╱(╱ // 0x3726 @0x36
0x36f0…3732 at0037 = ╱45╱E╱ // 0x3727 @0x37
0x36f0…3732 at0038 = ╱f0╱:╱ // 0x3728 @0x38
0x36f0…3732 at0039 = ╱33╱3╱ // 0x3729 @0x39
0x36f0…3732 at003a = ╱34╱4╱ // 0x372a @0x3a
0x36f0…3732 at003b = ╱fe00008806╱ // 0x372b @0x3b
0x36f0…3732 at0040 = ╱ee╱)╱ // 0x3730 @0x40
0x36f0…3732 at0041 = EOL // 0x3731 @0x41
0x36f0…3732 }
0x3732…3747 c49e 6950 CURSOR 16,23
0x3732…3747 LineComalBin {
0x3732…3747 ptr = 0xc49e // 0x3732 @0x0
0x3732…3747 lno = 0x1b26 // 0x3734 @0x2
0x3732…3747 at0004 = ╱a1╱ CURSOR ╱ // 0x3736 @0x4
0x3732…3747 at0005 = ╱31╱1╱ // 0x3737 @0x5
0x3732…3747 at0006 = ╱36╱6╱ // 0x3738 @0x6
0x3732…3747 at0007 = ╱fe00008005╱ // 0x3739 @0x7
0x3732…3747 at000c = ╱ec╱,╱ // 0x373e @0xc
0x3732…3747 at000d = ╱32╱2╱ // 0x373f @0xd
0x3732…3747 at000e = ╱33╱3╱ // 0x3740 @0xe
0x3732…3747 at000f = ╱fe0000b805╱ // 0x3741 @0xf
0x3732…3747 at0014 = EOL // 0x3746 @0x14
0x3732…3747 }
0x3747…3750 c4a7 6960 INPUT D7$
0x3747…3750 LineComalBin {
0x3747…3750 ptr = 0xc4a7 // 0x3747 @0x0
0x3747…3750 lno = 0x1b30 // 0x3749 @0x2
0x3747…3750 at0004 = ╱91╱ INPUT ╱ // 0x374b @0x4
0x3747…3750 at0005 = ╱44╱D╱ // 0x374c @0x5
0x3747…3750 at0006 = ╱37╱7╱ // 0x374d @0x6
0x3747…3750 at0007 = ╱ef╱$╱ // 0x374e @0x7
0x3747…3750 at0008 = EOL // 0x374f @0x8
0x3747…3750 }
0x3750…3761 c4b8 6970 EXEC NRTEST(D7$)
0x3750…3761 LineComalBin {
0x3750…3761 ptr = 0xc4b8 // 0x3750 @0x0
0x3750…3761 lno = 0x1b3a // 0x3752 @0x2
0x3750…3761 at0004 = ╱9d╱ EXEC ╱ // 0x3754 @0x4
0x3750…3761 at0005 = ╱4e╱N╱ // 0x3755 @0x5
0x3750…3761 at0006 = ╱52╱R╱ // 0x3756 @0x6
0x3750…3761 at0007 = ╱54╱T╱ // 0x3757 @0x7
0x3750…3761 at0008 = ╱45╱E╱ // 0x3758 @0x8
0x3750…3761 at0009 = ╱53╱S╱ // 0x3759 @0x9
0x3750…3761 at000a = ╱54╱T╱ // 0x375a @0xa
0x3750…3761 at000b = ╱ed╱(╱ // 0x375b @0xb
0x3750…3761 at000c = ╱44╱D╱ // 0x375c @0xc
0x3750…3761 at000d = ╱37╱7╱ // 0x375d @0xd
0x3750…3761 at000e = ╱ef╱$╱ // 0x375e @0xe
0x3750…3761 at000f = ╱ee╱)╱ // 0x375f @0xf
0x3750…3761 at0010 = EOL // 0x3760 @0x10
0x3750…3761 }
0x3761…378c c4e3 6980 UNTIL (((K7<10 AND K7>B) OR K7=G4) AND M8=B) OR P=-E
0x3761…378c LineComalBin {
0x3761…378c ptr = 0xc4e3 // 0x3761 @0x0
0x3761…378c lno = 0x1b44 // 0x3763 @0x2
0x3761…378c at0004 = ╱98╱ UNTIL ╱ // 0x3765 @0x4
0x3761…378c at0005 = ╱ed╱(╱ // 0x3766 @0x5
0x3761…378c at0006 = ╱ed╱(╱ // 0x3767 @0x6
0x3761…378c at0007 = ╱ed╱(╱ // 0x3768 @0x7
0x3761…378c at0008 = ╱4b╱K╱ // 0x3769 @0x8
0x3761…378c at0009 = ╱37╱7╱ // 0x376a @0x9
0x3761…378c at000a = ╱dd╱<╱ // 0x376b @0xa
0x3761…378c at000b = ╱31╱1╱ // 0x376c @0xb
0x3761…378c at000c = ╱30╱0╱ // 0x376d @0xc
0x3761…378c at000d = ╱fe0000a004╱ // 0x376e @0xd
0x3761…378c at0012 = ╱da╱ AND ╱ // 0x3773 @0x12
0x3761…378c at0013 = ╱4b╱K╱ // 0x3774 @0x13
0x3761…378c at0014 = ╱37╱7╱ // 0x3775 @0x14
0x3761…378c at0015 = ╱de╱>╱ // 0x3776 @0x15
0x3761…378c at0016 = ╱42╱B╱ // 0x3777 @0x16
0x3761…378c at0017 = ╱ee╱)╱ // 0x3778 @0x17
0x3761…378c at0018 = ╱db╱ OR ╱ // 0x3779 @0x18
0x3761…378c at0019 = ╱4b╱K╱ // 0x377a @0x19
0x3761…378c at001a = ╱37╱7╱ // 0x377b @0x1a
0x3761…378c at001b = ╱dc╱=╱ // 0x377c @0x1b
0x3761…378c at001c = ╱47╱G╱ // 0x377d @0x1c
0x3761…378c at001d = ╱34╱4╱ // 0x377e @0x1d
0x3761…378c at001e = ╱ee╱)╱ // 0x377f @0x1e
0x3761…378c at001f = ╱da╱ AND ╱ // 0x3780 @0x1f
0x3761…378c at0020 = ╱4d╱M╱ // 0x3781 @0x20
0x3761…378c at0021 = ╱38╱8╱ // 0x3782 @0x21
0x3761…378c at0022 = ╱dc╱=╱ // 0x3783 @0x22
0x3761…378c at0023 = ╱42╱B╱ // 0x3784 @0x23
0x3761…378c at0024 = ╱ee╱)╱ // 0x3785 @0x24
0x3761…378c at0025 = ╱db╱ OR ╱ // 0x3786 @0x25
0x3761…378c at0026 = ╱50╱P╱ // 0x3787 @0x26
0x3761…378c at0027 = ╱dc╱=╱ // 0x3788 @0x27
0x3761…378c at0028 = ╱e9╱-╱ // 0x3789 @0x28
0x3761…378c at0029 = ╱45╱E╱ // 0x378a @0x29
0x3761…378c at002a = EOL // 0x378b @0x2a
0x3761…378c }
0x378c…3797 c4ee 6990 IF P=-E THEN
0x378c…3797 LineComalBin {
0x378c…3797 ptr = 0xc4ee // 0x378c @0x0
0x378c…3797 lno = 0x1b4e // 0x378e @0x2
0x378c…3797 at0004 = ╱9c╱ IF ╱ // 0x3790 @0x4
0x378c…3797 at0005 = ╱50╱P╱ // 0x3791 @0x5
0x378c…3797 at0006 = ╱dc╱=╱ // 0x3792 @0x6
0x378c…3797 at0007 = ╱e9╱-╱ // 0x3793 @0x7
0x378c…3797 at0008 = ╱45╱E╱ // 0x3794 @0x8
0x378c…3797 at0009 = ╱b6╱ THEN ╱ // 0x3795 @0x9
0x378c…3797 at000a = EOL // 0x3796 @0xa
0x378c…3797 }
0x3797…37b7 c50e 7000 J1=100000;J6,O6=E;F5=B
0x3797…37b7 LineComalBin {
0x3797…37b7 ptr = 0xc50e // 0x3797 @0x0
0x3797…37b7 lno = 0x1b58 // 0x3799 @0x2
0x3797…37b7 at0004 = ╱4a╱J╱ // 0x379b @0x4
0x3797…37b7 at0005 = ╱31╱1╱ // 0x379c @0x5
0x3797…37b7 at0006 = ╱dc╱=╱ // 0x379d @0x6
0x3797…37b7 at0007 = ╱31╱1╱ // 0x379e @0x7
0x3797…37b7 at0008 = ╱30╱0╱ // 0x379f @0x8
0x3797…37b7 at0009 = ╱30╱0╱ // 0x37a0 @0x9
0x3797…37b7 at000a = ╱30╱0╱ // 0x37a1 @0xa
0x3797…37b7 at000b = ╱30╱0╱ // 0x37a2 @0xb
0x3797…37b7 at000c = ╱30╱0╱ // 0x37a3 @0xc
0x3797…37b7 at000d = ╱fe0050c311╱ // 0x37a4 @0xd
0x3797…37b7 at0012 = ╱eb╱;╱ // 0x37a9 @0x12
0x3797…37b7 at0013 = ╱4a╱J╱ // 0x37aa @0x13
0x3797…37b7 at0014 = ╱36╱6╱ // 0x37ab @0x14
0x3797…37b7 at0015 = ╱ec╱,╱ // 0x37ac @0x15
0x3797…37b7 at0016 = ╱4f╱O╱ // 0x37ad @0x16
0x3797…37b7 at0017 = ╱36╱6╱ // 0x37ae @0x17
0x3797…37b7 at0018 = ╱dc╱=╱ // 0x37af @0x18
0x3797…37b7 at0019 = ╱45╱E╱ // 0x37b0 @0x19
0x3797…37b7 at001a = ╱eb╱;╱ // 0x37b1 @0x1a
0x3797…37b7 at001b = ╱46╱F╱ // 0x37b2 @0x1b
0x3797…37b7 at001c = ╱35╱5╱ // 0x37b3 @0x1c
0x3797…37b7 at001d = ╱dc╱=╱ // 0x37b4 @0x1d
0x3797…37b7 at001e = ╱42╱B╱ // 0x37b5 @0x1e
0x3797…37b7 at001f = EOL // 0x37b6 @0x1f
0x3797…37b7 }
0x37b7…37bd c514 7010 ELSE
0x37b7…37bd LineComalBin {
0x37b7…37bd ptr = 0xc514 // 0x37b7 @0x0
0x37b7…37bd lno = 0x1b62 // 0x37b9 @0x2
0x37b7…37bd at0004 = ╱9a╱ ELSE ╱ // 0x37bb @0x4
0x37b7…37bd at0005 = EOL // 0x37bc @0x5
0x37b7…37bd }
0x37bd…37cb c522 7020 O6=B;J1=P
0x37bd…37cb LineComalBin {
0x37bd…37cb ptr = 0xc522 // 0x37bd @0x0
0x37bd…37cb lno = 0x1b6c // 0x37bf @0x2
0x37bd…37cb at0004 = ╱4f╱O╱ // 0x37c1 @0x4
0x37bd…37cb at0005 = ╱36╱6╱ // 0x37c2 @0x5
0x37bd…37cb at0006 = ╱dc╱=╱ // 0x37c3 @0x6
0x37bd…37cb at0007 = ╱42╱B╱ // 0x37c4 @0x7
0x37bd…37cb at0008 = ╱eb╱;╱ // 0x37c5 @0x8
0x37bd…37cb at0009 = ╱4a╱J╱ // 0x37c6 @0x9
0x37bd…37cb at000a = ╱31╱1╱ // 0x37c7 @0xa
0x37bd…37cb at000b = ╱dc╱=╱ // 0x37c8 @0xb
0x37bd…37cb at000c = ╱50╱P╱ // 0x37c9 @0xc
0x37bd…37cb at000d = EOL // 0x37ca @0xd
0x37bd…37cb }
0x37cb…37d5 c52c 7030 EXEC KNOK
0x37cb…37d5 LineComalBin {
0x37cb…37d5 ptr = 0xc52c // 0x37cb @0x0
0x37cb…37d5 lno = 0x1b76 // 0x37cd @0x2
0x37cb…37d5 at0004 = ╱9d╱ EXEC ╱ // 0x37cf @0x4
0x37cb…37d5 at0005 = ╱4b╱K╱ // 0x37d0 @0x5
0x37cb…37d5 at0006 = ╱4e╱N╱ // 0x37d1 @0x6
0x37cb…37d5 at0007 = ╱4f╱O╱ // 0x37d2 @0x7
0x37cb…37d5 at0008 = ╱4b╱K╱ // 0x37d3 @0x8
0x37cb…37d5 at0009 = EOL // 0x37d4 @0x9
0x37cb…37d5 }
0x37d5…37db c532 7040 ENDIF
0x37d5…37db LineComalBin {
0x37d5…37db ptr = 0xc532 // 0x37d5 @0x0
0x37d5…37db lno = 0x1b80 // 0x37d7 @0x2
0x37d5…37db at0004 = ╱9b╱ ENDIF ╱ // 0x37d9 @0x4
0x37d5…37db at0005 = EOL // 0x37da @0x5
0x37d5…37db }
0x37db…37ef c546 7050 UNTIL P=-E OR P=-7
0x37db…37ef LineComalBin {
0x37db…37ef ptr = 0xc546 // 0x37db @0x0
0x37db…37ef lno = 0x1b8a // 0x37dd @0x2
0x37db…37ef at0004 = ╱98╱ UNTIL ╱ // 0x37df @0x4
0x37db…37ef at0005 = ╱50╱P╱ // 0x37e0 @0x5
0x37db…37ef at0006 = ╱dc╱=╱ // 0x37e1 @0x6
0x37db…37ef at0007 = ╱e9╱-╱ // 0x37e2 @0x7
0x37db…37ef at0008 = ╱45╱E╱ // 0x37e3 @0x8
0x37db…37ef at0009 = ╱db╱ OR ╱ // 0x37e4 @0x9
0x37db…37ef at000a = ╱50╱P╱ // 0x37e5 @0xa
0x37db…37ef at000b = ╱dc╱=╱ // 0x37e6 @0xb
0x37db…37ef at000c = ╱e9╱-╱ // 0x37e7 @0xc
0x37db…37ef at000d = ╱37╱7╱ // 0x37e8 @0xd
0x37db…37ef at000e = ╱fe0000e003╱ // 0x37e9 @0xe
0x37db…37ef at0013 = EOL // 0x37ee @0x13
0x37db…37ef }
0x37ef…37fd c554 7060 EXEC KNUD(J1)
0x37ef…37fd LineComalBin {
0x37ef…37fd ptr = 0xc554 // 0x37ef @0x0
0x37ef…37fd lno = 0x1b94 // 0x37f1 @0x2
0x37ef…37fd at0004 = ╱9d╱ EXEC ╱ // 0x37f3 @0x4
0x37ef…37fd at0005 = ╱4b╱K╱ // 0x37f4 @0x5
0x37ef…37fd at0006 = ╱4e╱N╱ // 0x37f5 @0x6
0x37ef…37fd at0007 = ╱55╱U╱ // 0x37f6 @0x7
0x37ef…37fd at0008 = ╱44╱D╱ // 0x37f7 @0x8
0x37ef…37fd at0009 = ╱ed╱(╱ // 0x37f8 @0x9
0x37ef…37fd at000a = ╱4a╱J╱ // 0x37f9 @0xa
0x37ef…37fd at000b = ╱31╱1╱ // 0x37fa @0xb
0x37ef…37fd at000c = ╱ee╱)╱ // 0x37fb @0xc
0x37ef…37fd at000d = EOL // 0x37fc @0xd
0x37ef…37fd }
0x37fd…380a c561 7070 WHEN 4
0x37fd…380a LineComalBin {
0x37fd…380a ptr = 0xc561 // 0x37fd @0x0
0x37fd…380a lno = 0x1b9e // 0x37ff @0x2
0x37fd…380a at0004 = ╱a301╱ WHEN ╱ // 0x3801 @0x4
0x37fd…380a at0006 = ╱34╱4╱ // 0x3803 @0x6
0x37fd…380a at0007 = ╱fe00008003╱ // 0x3804 @0x7
0x37fd…380a at000c = EOL // 0x3809 @0xc
0x37fd…380a }
0x380a…3823 c57a 7080 J4=1000000;F5=B
0x380a…3823 LineComalBin {
0x380a…3823 ptr = 0xc57a // 0x380a @0x0
0x380a…3823 lno = 0x1ba8 // 0x380c @0x2
0x380a…3823 at0004 = ╱4a╱J╱ // 0x380e @0x4
0x380a…3823 at0005 = ╱34╱4╱ // 0x380f @0x5
0x380a…3823 at0006 = ╱dc╱=╱ // 0x3810 @0x6
0x380a…3823 at0007 = ╱31╱1╱ // 0x3811 @0x7
0x380a…3823 at0008 = ╱30╱0╱ // 0x3812 @0x8
0x380a…3823 at0009 = ╱30╱0╱ // 0x3813 @0x9
0x380a…3823 at000a = ╱30╱0╱ // 0x3814 @0xa
0x380a…3823 at000b = ╱30╱0╱ // 0x3815 @0xb
0x380a…3823 at000c = ╱30╱0╱ // 0x3816 @0xc
0x380a…3823 at000d = ╱30╱0╱ // 0x3817 @0xd
0x380a…3823 at000e = ╱fe0024f414╱ // 0x3818 @0xe
0x380a…3823 at0013 = ╱eb╱;╱ // 0x381d @0x13
0x380a…3823 at0014 = ╱46╱F╱ // 0x381e @0x14
0x380a…3823 at0015 = ╱35╱5╱ // 0x381f @0x15
0x380a…3823 at0016 = ╱dc╱=╱ // 0x3820 @0x16
0x380a…3823 at0017 = ╱42╱B╱ // 0x3821 @0x17
0x380a…3823 at0018 = EOL // 0x3822 @0x18
0x380a…3823 }
0x3823…3838 c58f 7090 IF J1<>100000 THEN
0x3823…3838 LineComalBin {
0x3823…3838 ptr = 0xc58f // 0x3823 @0x0
0x3823…3838 lno = 0x1bb2 // 0x3825 @0x2
0x3823…3838 at0004 = ╱9c╱ IF ╱ // 0x3827 @0x4
0x3823…3838 at0005 = ╱4a╱J╱ // 0x3828 @0x5
0x3823…3838 at0006 = ╱31╱1╱ // 0x3829 @0x6
0x3823…3838 at0007 = ╱e1╱<>╱ // 0x382a @0x7
0x3823…3838 at0008 = ╱31╱1╱ // 0x382b @0x8
0x3823…3838 at0009 = ╱30╱0╱ // 0x382c @0x9
0x3823…3838 at000a = ╱30╱0╱ // 0x382d @0xa
0x3823…3838 at000b = ╱30╱0╱ // 0x382e @0xb
0x3823…3838 at000c = ╱30╱0╱ // 0x382f @0xc
0x3823…3838 at000d = ╱30╱0╱ // 0x3830 @0xd
0x3823…3838 at000e = ╱fe0050c311╱ // 0x3831 @0xe
0x3823…3838 at0013 = ╱b6╱ THEN ╱ // 0x3836 @0x13
0x3823…3838 at0014 = EOL // 0x3837 @0x14
0x3823…3838 }
0x3838…383e c595 7100 REPEAT
0x3838…383e LineComalBin {
0x3838…383e ptr = 0xc595 // 0x3838 @0x0
0x3838…383e lno = 0x1bbc // 0x383a @0x2
0x3838…383e at0004 = ╱97╱ REPEAT ╱ // 0x383c @0x4
0x3838…383e at0005 = EOL // 0x383d @0x5
0x3838…383e }
0x383e…3844 c59b 7110 REPEAT
0x383e…3844 LineComalBin {
0x383e…3844 ptr = 0xc59b // 0x383e @0x0
0x383e…3844 lno = 0x1bc6 // 0x3840 @0x2
0x383e…3844 at0004 = ╱97╱ REPEAT ╱ // 0x3842 @0x4
0x383e…3844 at0005 = EOL // 0x3843 @0x5
0x383e…3844 }
0x3844…3853 c5aa 7120 CURSOR V,23
0x3844…3853 LineComalBin {
0x3844…3853 ptr = 0xc5aa // 0x3844 @0x0
0x3844…3853 lno = 0x1bd0 // 0x3846 @0x2
0x3844…3853 at0004 = ╱a1╱ CURSOR ╱ // 0x3848 @0x4
0x3844…3853 at0005 = ╱56╱V╱ // 0x3849 @0x5
0x3844…3853 at0006 = ╱ec╱,╱ // 0x384a @0x6
0x3844…3853 at0007 = ╱32╱2╱ // 0x384b @0x7
0x3844…3853 at0008 = ╱33╱3╱ // 0x384c @0x8
0x3844…3853 at0009 = ╱fe0000b805╱ // 0x384d @0x9
0x3844…3853 at000e = EOL // 0x3852 @0xe
0x3844…3853 }
0x3853…389b c5f2 7130 PRINT "Debet-entreprisekonto (RETURN:overspringes)";E2$(E:25)
0x3853…389b LineComalBin {
0x3853…389b ptr = 0xc5f2 // 0x3853 @0x0
0x3853…389b lno = 0x1bda // 0x3855 @0x2
0x3853…389b at0004 = ╱92╱ PRINT ╱ // 0x3857 @0x4
0x3853…389b at0005 = ╱22╱"╱ // 0x3858 @0x5
0x3853…389b at0006 = ╱44╱D╱ // 0x3859 @0x6
0x3853…389b at0007 = ╱65╱e╱ // 0x385a @0x7
0x3853…389b at0008 = ╱62╱b╱ // 0x385b @0x8
0x3853…389b at0009 = ╱65╱e╱ // 0x385c @0x9
0x3853…389b at000a = ╱74╱t╱ // 0x385d @0xa
0x3853…389b at000b = ╱2d╱-╱ // 0x385e @0xb
0x3853…389b at000c = ╱65╱e╱ // 0x385f @0xc
0x3853…389b at000d = ╱6e╱n╱ // 0x3860 @0xd
0x3853…389b at000e = ╱74╱t╱ // 0x3861 @0xe
0x3853…389b at000f = ╱72╱r╱ // 0x3862 @0xf
0x3853…389b at0010 = ╱65╱e╱ // 0x3863 @0x10
0x3853…389b at0011 = ╱70╱p╱ // 0x3864 @0x11
0x3853…389b at0012 = ╱72╱r╱ // 0x3865 @0x12
0x3853…389b at0013 = ╱69╱i╱ // 0x3866 @0x13
0x3853…389b at0014 = ╱73╱s╱ // 0x3867 @0x14
0x3853…389b at0015 = ╱65╱e╱ // 0x3868 @0x15
0x3853…389b at0016 = ╱6b╱k╱ // 0x3869 @0x16
0x3853…389b at0017 = ╱6f╱o╱ // 0x386a @0x17
0x3853…389b at0018 = ╱6e╱n╱ // 0x386b @0x18
0x3853…389b at0019 = ╱74╱t╱ // 0x386c @0x19
0x3853…389b at001a = ╱6f╱o╱ // 0x386d @0x1a
0x3853…389b at001b = ╱20╱…╱ // 0x386e @0x1b
0x3853…389b at001c = ╱20╱…╱ // 0x386f @0x1c
0x3853…389b at001d = ╱20╱…╱ // 0x3870 @0x1d
0x3853…389b at001e = ╱20╱…╱ // 0x3871 @0x1e
0x3853…389b at001f = ╱20╱…╱ // 0x3872 @0x1f
0x3853…389b at0020 = ╱20╱…╱ // 0x3873 @0x20
0x3853…389b at0021 = ╱20╱…╱ // 0x3874 @0x21
0x3853…389b at0022 = ╱28╱(╱ // 0x3875 @0x22
0x3853…389b at0023 = ╱52╱R╱ // 0x3876 @0x23
0x3853…389b at0024 = ╱45╱E╱ // 0x3877 @0x24
0x3853…389b at0025 = ╱54╱T╱ // 0x3878 @0x25
0x3853…389b at0026 = ╱55╱U╱ // 0x3879 @0x26
0x3853…389b at0027 = ╱52╱R╱ // 0x387a @0x27
0x3853…389b at0028 = ╱4e╱N╱ // 0x387b @0x28
0x3853…389b at0029 = ╱3a╱:╱ // 0x387c @0x29
0x3853…389b at002a = ╱6f╱o╱ // 0x387d @0x2a
0x3853…389b at002b = ╱76╱v╱ // 0x387e @0x2b
0x3853…389b at002c = ╱65╱e╱ // 0x387f @0x2c
0x3853…389b at002d = ╱72╱r╱ // 0x3880 @0x2d
0x3853…389b at002e = ╱73╱s╱ // 0x3881 @0x2e
0x3853…389b at002f = ╱70╱p╱ // 0x3882 @0x2f
0x3853…389b at0030 = ╱72╱r╱ // 0x3883 @0x30
0x3853…389b at0031 = ╱69╱i╱ // 0x3884 @0x31
0x3853…389b at0032 = ╱6e╱n╱ // 0x3885 @0x32
0x3853…389b at0033 = ╱67╱g╱ // 0x3886 @0x33
0x3853…389b at0034 = ╱65╱e╱ // 0x3887 @0x34
0x3853…389b at0035 = ╱73╱s╱ // 0x3888 @0x35
0x3853…389b at0036 = ╱29╱)╱ // 0x3889 @0x36
0x3853…389b at0037 = ╱22╱"╱ // 0x388a @0x37
0x3853…389b at0038 = ╱eb╱;╱ // 0x388b @0x38
0x3853…389b at0039 = ╱45╱E╱ // 0x388c @0x39
0x3853…389b at003a = ╱32╱2╱ // 0x388d @0x3a
0x3853…389b at003b = ╱ef╱$╱ // 0x388e @0x3b
0x3853…389b at003c = ╱ed╱(╱ // 0x388f @0x3c
0x3853…389b at003d = ╱45╱E╱ // 0x3890 @0x3d
0x3853…389b at003e = ╱f0╱:╱ // 0x3891 @0x3e
0x3853…389b at003f = ╱32╱2╱ // 0x3892 @0x3f
0x3853…389b at0040 = ╱35╱5╱ // 0x3893 @0x40
0x3853…389b at0041 = ╱fe0000c805╱ // 0x3894 @0x41
0x3853…389b at0046 = ╱ee╱)╱ // 0x3899 @0x46
0x3853…389b at0047 = EOL // 0x389a @0x47
0x3853…389b }
0x389b…38b0 c607 7140 CURSOR 25,23
0x389b…38b0 LineComalBin {
0x389b…38b0 ptr = 0xc607 // 0x389b @0x0
0x389b…38b0 lno = 0x1be4 // 0x389d @0x2
0x389b…38b0 at0004 = ╱a1╱ CURSOR ╱ // 0x389f @0x4
0x389b…38b0 at0005 = ╱32╱2╱ // 0x38a0 @0x5
0x389b…38b0 at0006 = ╱35╱5╱ // 0x38a1 @0x6
0x389b…38b0 at0007 = ╱fe0000c805╱ // 0x38a2 @0x7
0x389b…38b0 at000c = ╱ec╱,╱ // 0x38a7 @0xc
0x389b…38b0 at000d = ╱32╱2╱ // 0x38a8 @0xd
0x389b…38b0 at000e = ╱33╱3╱ // 0x38a9 @0xe
0x389b…38b0 at000f = ╱fe0000b805╱ // 0x38aa @0xf
0x389b…38b0 at0014 = EOL // 0x38af @0x14
0x389b…38b0 }
0x38b0…38b9 c610 7150 INPUT D7$
0x38b0…38b9 LineComalBin {
0x38b0…38b9 ptr = 0xc610 // 0x38b0 @0x0
0x38b0…38b9 lno = 0x1bee // 0x38b2 @0x2
0x38b0…38b9 at0004 = ╱91╱ INPUT ╱ // 0x38b4 @0x4
0x38b0…38b9 at0005 = ╱44╱D╱ // 0x38b5 @0x5
0x38b0…38b9 at0006 = ╱37╱7╱ // 0x38b6 @0x6
0x38b0…38b9 at0007 = ╱ef╱$╱ // 0x38b7 @0x7
0x38b0…38b9 at0008 = EOL // 0x38b8 @0x8
0x38b0…38b9 }
0x38b9…38ca c621 7160 EXEC NRTEST(D7$)
0x38b9…38ca LineComalBin {
0x38b9…38ca ptr = 0xc621 // 0x38b9 @0x0
0x38b9…38ca lno = 0x1bf8 // 0x38bb @0x2
0x38b9…38ca at0004 = ╱9d╱ EXEC ╱ // 0x38bd @0x4
0x38b9…38ca at0005 = ╱4e╱N╱ // 0x38be @0x5
0x38b9…38ca at0006 = ╱52╱R╱ // 0x38bf @0x6
0x38b9…38ca at0007 = ╱54╱T╱ // 0x38c0 @0x7
0x38b9…38ca at0008 = ╱45╱E╱ // 0x38c1 @0x8
0x38b9…38ca at0009 = ╱53╱S╱ // 0x38c2 @0x9
0x38b9…38ca at000a = ╱54╱T╱ // 0x38c3 @0xa
0x38b9…38ca at000b = ╱ed╱(╱ // 0x38c4 @0xb
0x38b9…38ca at000c = ╱44╱D╱ // 0x38c5 @0xc
0x38b9…38ca at000d = ╱37╱7╱ // 0x38c6 @0xd
0x38b9…38ca at000e = ╱ef╱$╱ // 0x38c7 @0xe
0x38b9…38ca at000f = ╱ee╱)╱ // 0x38c8 @0xf
0x38b9…38ca at0010 = EOL // 0x38c9 @0x10
0x38b9…38ca }
0x38ca…38e3 c63a 7170 UNTIL M9=5 AND M8=B OR P=-E
0x38ca…38e3 LineComalBin {
0x38ca…38e3 ptr = 0xc63a // 0x38ca @0x0
0x38ca…38e3 lno = 0x1c02 // 0x38cc @0x2
0x38ca…38e3 at0004 = ╱98╱ UNTIL ╱ // 0x38ce @0x4
0x38ca…38e3 at0005 = ╱4d╱M╱ // 0x38cf @0x5
0x38ca…38e3 at0006 = ╱39╱9╱ // 0x38d0 @0x6
0x38ca…38e3 at0007 = ╱dc╱=╱ // 0x38d1 @0x7
0x38ca…38e3 at0008 = ╱35╱5╱ // 0x38d2 @0x8
0x38ca…38e3 at0009 = ╱fe0000a003╱ // 0x38d3 @0x9
0x38ca…38e3 at000e = ╱da╱ AND ╱ // 0x38d8 @0xe
0x38ca…38e3 at000f = ╱4d╱M╱ // 0x38d9 @0xf
0x38ca…38e3 at0010 = ╱38╱8╱ // 0x38da @0x10
0x38ca…38e3 at0011 = ╱dc╱=╱ // 0x38db @0x11
0x38ca…38e3 at0012 = ╱42╱B╱ // 0x38dc @0x12
0x38ca…38e3 at0013 = ╱db╱ OR ╱ // 0x38dd @0x13
0x38ca…38e3 at0014 = ╱50╱P╱ // 0x38de @0x14
0x38ca…38e3 at0015 = ╱dc╱=╱ // 0x38df @0x15
0x38ca…38e3 at0016 = ╱e9╱-╱ // 0x38e0 @0x16
0x38ca…38e3 at0017 = ╱45╱E╱ // 0x38e1 @0x17
0x38ca…38e3 at0018 = EOL // 0x38e2 @0x18
0x38ca…38e3 }
0x38e3…38fc c653 7180 J4=1000000;F5=B
0x38e3…38fc LineComalBin {
0x38e3…38fc ptr = 0xc653 // 0x38e3 @0x0
0x38e3…38fc lno = 0x1c0c // 0x38e5 @0x2
0x38e3…38fc at0004 = ╱4a╱J╱ // 0x38e7 @0x4
0x38e3…38fc at0005 = ╱34╱4╱ // 0x38e8 @0x5
0x38e3…38fc at0006 = ╱dc╱=╱ // 0x38e9 @0x6
0x38e3…38fc at0007 = ╱31╱1╱ // 0x38ea @0x7
0x38e3…38fc at0008 = ╱30╱0╱ // 0x38eb @0x8
0x38e3…38fc at0009 = ╱30╱0╱ // 0x38ec @0x9
0x38e3…38fc at000a = ╱30╱0╱ // 0x38ed @0xa
0x38e3…38fc at000b = ╱30╱0╱ // 0x38ee @0xb
0x38e3…38fc at000c = ╱30╱0╱ // 0x38ef @0xc
0x38e3…38fc at000d = ╱30╱0╱ // 0x38f0 @0xd
0x38e3…38fc at000e = ╱fe0024f414╱ // 0x38f1 @0xe
0x38e3…38fc at0013 = ╱eb╱;╱ // 0x38f6 @0x13
0x38e3…38fc at0014 = ╱46╱F╱ // 0x38f7 @0x14
0x38e3…38fc at0015 = ╱35╱5╱ // 0x38f8 @0x15
0x38e3…38fc at0016 = ╱dc╱=╱ // 0x38f9 @0x16
0x38e3…38fc at0017 = ╱42╱B╱ // 0x38fa @0x17
0x38e3…38fc at0018 = EOL // 0x38fb @0x18
0x38e3…38fc }
0x38fc…3908 c65f 7190 IF P=-E THEN EXIT
0x38fc…3908 LineComalBin {
0x38fc…3908 ptr = 0xc65f // 0x38fc @0x0
0x38fc…3908 lno = 0x1c16 // 0x38fe @0x2
0x38fc…3908 at0004 = ╱82╱ IF ╱ // 0x3900 @0x4
0x38fc…3908 at0005 = ╱50╱P╱ // 0x3901 @0x5
0x38fc…3908 at0006 = ╱dc╱=╱ // 0x3902 @0x6
0x38fc…3908 at0007 = ╱e9╱-╱ // 0x3903 @0x7
0x38fc…3908 at0008 = ╱45╱E╱ // 0x3904 @0x8
0x38fc…3908 at0009 = ╱b6╱ THEN ╱ // 0x3905 @0x9
0x38fc…3908 at000a = ╱99╱ EXIT ╱ // 0x3906 @0xa
0x38fc…3908 at000b = EOL // 0x3907 @0xb
0x38fc…3908 }
0x3908…3911 c668 7200 J4=P
0x3908…3911 LineComalBin {
0x3908…3911 ptr = 0xc668 // 0x3908 @0x0
0x3908…3911 lno = 0x1c20 // 0x390a @0x2
0x3908…3911 at0004 = ╱4a╱J╱ // 0x390c @0x4
0x3908…3911 at0005 = ╱34╱4╱ // 0x390d @0x5
0x3908…3911 at0006 = ╱dc╱=╱ // 0x390e @0x6
0x3908…3911 at0007 = ╱50╱P╱ // 0x390f @0x7
0x3908…3911 at0008 = EOL // 0x3910 @0x8
0x3908…3911 }
0x3911…3922 c679 7210 EXEC ENTKOOK(J4)
0x3911…3922 LineComalBin {
0x3911…3922 ptr = 0xc679 // 0x3911 @0x0
0x3911…3922 lno = 0x1c2a // 0x3913 @0x2
0x3911…3922 at0004 = ╱9d╱ EXEC ╱ // 0x3915 @0x4
0x3911…3922 at0005 = ╱45╱E╱ // 0x3916 @0x5
0x3911…3922 at0006 = ╱4e╱N╱ // 0x3917 @0x6
0x3911…3922 at0007 = ╱54╱T╱ // 0x3918 @0x7
0x3911…3922 at0008 = ╱4b╱K╱ // 0x3919 @0x8
0x3911…3922 at0009 = ╱4f╱O╱ // 0x391a @0x9
0x3911…3922 at000a = ╱4f╱O╱ // 0x391b @0xa
0x3911…3922 at000b = ╱4b╱K╱ // 0x391c @0xb
0x3911…3922 at000c = ╱ed╱(╱ // 0x391d @0xc
0x3911…3922 at000d = ╱4a╱J╱ // 0x391e @0xd
0x3911…3922 at000e = ╱34╱4╱ // 0x391f @0xe
0x3911…3922 at000f = ╱ee╱)╱ // 0x3920 @0xf
0x3911…3922 at0010 = EOL // 0x3921 @0x10
0x3911…3922 }
0x3922…3931 c688 7220 UNTIL P=-7
0x3922…3931 LineComalBin {
0x3922…3931 ptr = 0xc688 // 0x3922 @0x0
0x3922…3931 lno = 0x1c34 // 0x3924 @0x2
0x3922…3931 at0004 = ╱98╱ UNTIL ╱ // 0x3926 @0x4
0x3922…3931 at0005 = ╱50╱P╱ // 0x3927 @0x5
0x3922…3931 at0006 = ╱dc╱=╱ // 0x3928 @0x6
0x3922…3931 at0007 = ╱e9╱-╱ // 0x3929 @0x7
0x3922…3931 at0008 = ╱37╱7╱ // 0x392a @0x8
0x3922…3931 at0009 = ╱fe0000e003╱ // 0x392b @0x9
0x3922…3931 at000e = EOL // 0x3930 @0xe
0x3922…3931 }
0x3931…3937 c68e 7230 ENDIF
0x3931…3937 LineComalBin {
0x3931…3937 ptr = 0xc68e // 0x3931 @0x0
0x3931…3937 lno = 0x1c3e // 0x3933 @0x2
0x3931…3937 at0004 = ╱9b╱ ENDIF ╱ // 0x3935 @0x4
0x3931…3937 at0005 = EOL // 0x3936 @0x5
0x3931…3937 }
0x3937…3945 c69c 7240 EXEC KNUD(J4)
0x3937…3945 LineComalBin {
0x3937…3945 ptr = 0xc69c // 0x3937 @0x0
0x3937…3945 lno = 0x1c48 // 0x3939 @0x2
0x3937…3945 at0004 = ╱9d╱ EXEC ╱ // 0x393b @0x4
0x3937…3945 at0005 = ╱4b╱K╱ // 0x393c @0x5
0x3937…3945 at0006 = ╱4e╱N╱ // 0x393d @0x6
0x3937…3945 at0007 = ╱55╱U╱ // 0x393e @0x7
0x3937…3945 at0008 = ╱44╱D╱ // 0x393f @0x8
0x3937…3945 at0009 = ╱ed╱(╱ // 0x3940 @0x9
0x3937…3945 at000a = ╱4a╱J╱ // 0x3941 @0xa
0x3937…3945 at000b = ╱34╱4╱ // 0x3942 @0xb
0x3937…3945 at000c = ╱ee╱)╱ // 0x3943 @0xc
0x3937…3945 at000d = EOL // 0x3944 @0xd
0x3937…3945 }
0x3945…3952 c6a9 7250 WHEN 5
0x3945…3952 LineComalBin {
0x3945…3952 ptr = 0xc6a9 // 0x3945 @0x0
0x3945…3952 lno = 0x1c52 // 0x3947 @0x2
0x3945…3952 at0004 = ╱a301╱ WHEN ╱ // 0x3949 @0x4
0x3945…3952 at0006 = ╱35╱5╱ // 0x394b @0x6
0x3945…3952 at0007 = ╱fe0000a003╱ // 0x394c @0x7
0x3945…3952 at000c = EOL // 0x3951 @0xc
0x3945…3952 }
0x3952…3958 c6af 7260 REPEAT
0x3952…3958 LineComalBin {
0x3952…3958 ptr = 0xc6af // 0x3952 @0x0
0x3952…3958 lno = 0x1c5c // 0x3954 @0x2
0x3952…3958 at0004 = ╱97╱ REPEAT ╱ // 0x3956 @0x4
0x3952…3958 at0005 = EOL // 0x3957 @0x5
0x3952…3958 }
0x3958…395e c6b5 7270 REPEAT
0x3958…395e LineComalBin {
0x3958…395e ptr = 0xc6b5 // 0x3958 @0x0
0x3958…395e lno = 0x1c66 // 0x395a @0x2
0x3958…395e at0004 = ╱97╱ REPEAT ╱ // 0x395c @0x4
0x3958…395e at0005 = EOL // 0x395d @0x5
0x3958…395e }
0x395e…396d c6c4 7280 CURSOR V,23
0x395e…396d LineComalBin {
0x395e…396d ptr = 0xc6c4 // 0x395e @0x0
0x395e…396d lno = 0x1c70 // 0x3960 @0x2
0x395e…396d at0004 = ╱a1╱ CURSOR ╱ // 0x3962 @0x4
0x395e…396d at0005 = ╱56╱V╱ // 0x3963 @0x5
0x395e…396d at0006 = ╱ec╱,╱ // 0x3964 @0x6
0x395e…396d at0007 = ╱32╱2╱ // 0x3965 @0x7
0x395e…396d at0008 = ╱33╱3╱ // 0x3966 @0x8
0x395e…396d at0009 = ╱fe0000b805╱ // 0x3967 @0x9
0x395e…396d at000e = EOL // 0x396c @0xe
0x395e…396d }
0x396d…3989 c6e0 7290 PRINT "Beløb"+E2$(E:71)
0x396d…3989 LineComalBin {
0x396d…3989 ptr = 0xc6e0 // 0x396d @0x0
0x396d…3989 lno = 0x1c7a // 0x396f @0x2
0x396d…3989 at0004 = ╱92╱ PRINT ╱ // 0x3971 @0x4
0x396d…3989 at0005 = ╱22╱"╱ // 0x3972 @0x5
0x396d…3989 at0006 = ╱42╱B╱ // 0x3973 @0x6
0x396d…3989 at0007 = ╱65╱e╱ // 0x3974 @0x7
0x396d…3989 at0008 = ╱6c╱l╱ // 0x3975 @0x8
0x396d…3989 at0009 = ╱7c╱ø╱ // 0x3976 @0x9
0x396d…3989 at000a = ╱62╱b╱ // 0x3977 @0xa
0x396d…3989 at000b = ╱22╱"╱ // 0x3978 @0xb
0x396d…3989 at000c = ╱f1╱+╱ // 0x3979 @0xc
0x396d…3989 at000d = ╱45╱E╱ // 0x397a @0xd
0x396d…3989 at000e = ╱32╱2╱ // 0x397b @0xe
0x396d…3989 at000f = ╱ef╱$╱ // 0x397c @0xf
0x396d…3989 at0010 = ╱ed╱(╱ // 0x397d @0x10
0x396d…3989 at0011 = ╱45╱E╱ // 0x397e @0x11
0x396d…3989 at0012 = ╱f0╱:╱ // 0x397f @0x12
0x396d…3989 at0013 = ╱37╱7╱ // 0x3980 @0x13
0x396d…3989 at0014 = ╱31╱1╱ // 0x3981 @0x14
0x396d…3989 at0015 = ╱fe00008e07╱ // 0x3982 @0x15
0x396d…3989 at001a = ╱ee╱)╱ // 0x3987 @0x1a
0x396d…3989 at001b = EOL // 0x3988 @0x1b
0x396d…3989 }
0x3989…399e c6f5 7300 CURSOR 10,23
0x3989…399e LineComalBin {
0x3989…399e ptr = 0xc6f5 // 0x3989 @0x0
0x3989…399e lno = 0x1c84 // 0x398b @0x2
0x3989…399e at0004 = ╱a1╱ CURSOR ╱ // 0x398d @0x4
0x3989…399e at0005 = ╱31╱1╱ // 0x398e @0x5
0x3989…399e at0006 = ╱30╱0╱ // 0x398f @0x6
0x3989…399e at0007 = ╱fe0000a004╱ // 0x3990 @0x7
0x3989…399e at000c = ╱ec╱,╱ // 0x3995 @0xc
0x3989…399e at000d = ╱32╱2╱ // 0x3996 @0xd
0x3989…399e at000e = ╱33╱3╱ // 0x3997 @0xe
0x3989…399e at000f = ╱fe0000b805╱ // 0x3998 @0xf
0x3989…399e at0014 = EOL // 0x399d @0x14
0x3989…399e }
0x399e…39a7 c6fe 7310 INPUT D8$
0x399e…39a7 LineComalBin {
0x399e…39a7 ptr = 0xc6fe // 0x399e @0x0
0x399e…39a7 lno = 0x1c8e // 0x39a0 @0x2
0x399e…39a7 at0004 = ╱91╱ INPUT ╱ // 0x39a2 @0x4
0x399e…39a7 at0005 = ╱44╱D╱ // 0x39a3 @0x5
0x399e…39a7 at0006 = ╱38╱8╱ // 0x39a4 @0x6
0x399e…39a7 at0007 = ╱ef╱$╱ // 0x39a5 @0x7
0x399e…39a7 at0008 = EOL // 0x39a6 @0x8
0x399e…39a7 }
0x39a7…39b4 c70b 7320 EXEC FORTEGN
0x39a7…39b4 LineComalBin {
0x39a7…39b4 ptr = 0xc70b // 0x39a7 @0x0
0x39a7…39b4 lno = 0x1c98 // 0x39a9 @0x2
0x39a7…39b4 at0004 = ╱9d╱ EXEC ╱ // 0x39ab @0x4
0x39a7…39b4 at0005 = ╱46╱F╱ // 0x39ac @0x5
0x39a7…39b4 at0006 = ╱4f╱O╱ // 0x39ad @0x6
0x39a7…39b4 at0007 = ╱52╱R╱ // 0x39ae @0x7
0x39a7…39b4 at0008 = ╱54╱T╱ // 0x39af @0x8
0x39a7…39b4 at0009 = ╱45╱E╱ // 0x39b0 @0x9
0x39a7…39b4 at000a = ╱47╱G╱ // 0x39b1 @0xa
0x39a7…39b4 at000b = ╱4e╱N╱ // 0x39b2 @0xb
0x39a7…39b4 at000c = EOL // 0x39b3 @0xc
0x39a7…39b4 }
0x39b4…39d0 c727 7330 EXEC CA(6,D8$,D0$,C4$)
0x39b4…39d0 LineComalBin {
0x39b4…39d0 ptr = 0xc727 // 0x39b4 @0x0
0x39b4…39d0 lno = 0x1ca2 // 0x39b6 @0x2
0x39b4…39d0 at0004 = ╱9d╱ EXEC ╱ // 0x39b8 @0x4
0x39b4…39d0 at0005 = ╱43╱C╱ // 0x39b9 @0x5
0x39b4…39d0 at0006 = ╱41╱A╱ // 0x39ba @0x6
0x39b4…39d0 at0007 = ╱ed╱(╱ // 0x39bb @0x7
0x39b4…39d0 at0008 = ╱36╱6╱ // 0x39bc @0x8
0x39b4…39d0 at0009 = ╱fe0000c003╱ // 0x39bd @0x9
0x39b4…39d0 at000e = ╱ec╱,╱ // 0x39c2 @0xe
0x39b4…39d0 at000f = ╱44╱D╱ // 0x39c3 @0xf
0x39b4…39d0 at0010 = ╱38╱8╱ // 0x39c4 @0x10
0x39b4…39d0 at0011 = ╱ef╱$╱ // 0x39c5 @0x11
0x39b4…39d0 at0012 = ╱ec╱,╱ // 0x39c6 @0x12
0x39b4…39d0 at0013 = ╱44╱D╱ // 0x39c7 @0x13
0x39b4…39d0 at0014 = ╱30╱0╱ // 0x39c8 @0x14
0x39b4…39d0 at0015 = ╱ef╱$╱ // 0x39c9 @0x15
0x39b4…39d0 at0016 = ╱ec╱,╱ // 0x39ca @0x16
0x39b4…39d0 at0017 = ╱43╱C╱ // 0x39cb @0x17
0x39b4…39d0 at0018 = ╱34╱4╱ // 0x39cc @0x18
0x39b4…39d0 at0019 = ╱ef╱$╱ // 0x39cd @0x19
0x39b4…39d0 at001a = ╱ee╱)╱ // 0x39ce @0x1a
0x39b4…39d0 at001b = EOL // 0x39cf @0x1b
0x39b4…39d0 }
0x39d0…39dc c733 7340 UNTIL FLAG=B
0x39d0…39dc LineComalBin {
0x39d0…39dc ptr = 0xc733 // 0x39d0 @0x0
0x39d0…39dc lno = 0x1cac // 0x39d2 @0x2
0x39d0…39dc at0004 = ╱98╱ UNTIL ╱ // 0x39d4 @0x4
0x39d0…39dc at0005 = ╱46╱F╱ // 0x39d5 @0x5
0x39d0…39dc at0006 = ╱4c╱L╱ // 0x39d6 @0x6
0x39d0…39dc at0007 = ╱41╱A╱ // 0x39d7 @0x7
0x39d0…39dc at0008 = ╱47╱G╱ // 0x39d8 @0x8
0x39d0…39dc at0009 = ╱dc╱=╱ // 0x39d9 @0x9
0x39d0…39dc at000a = ╱42╱B╱ // 0x39da @0xa
0x39d0…39dc at000b = EOL // 0x39db @0xb
0x39d0…39dc }
0x39dc…39f8 c74f 7350 EXEC CA(4,D8$,D0$,D0$)
0x39dc…39f8 LineComalBin {
0x39dc…39f8 ptr = 0xc74f // 0x39dc @0x0
0x39dc…39f8 lno = 0x1cb6 // 0x39de @0x2
0x39dc…39f8 at0004 = ╱9d╱ EXEC ╱ // 0x39e0 @0x4
0x39dc…39f8 at0005 = ╱43╱C╱ // 0x39e1 @0x5
0x39dc…39f8 at0006 = ╱41╱A╱ // 0x39e2 @0x6
0x39dc…39f8 at0007 = ╱ed╱(╱ // 0x39e3 @0x7
0x39dc…39f8 at0008 = ╱34╱4╱ // 0x39e4 @0x8
0x39dc…39f8 at0009 = ╱fe00008003╱ // 0x39e5 @0x9
0x39dc…39f8 at000e = ╱ec╱,╱ // 0x39ea @0xe
0x39dc…39f8 at000f = ╱44╱D╱ // 0x39eb @0xf
0x39dc…39f8 at0010 = ╱38╱8╱ // 0x39ec @0x10
0x39dc…39f8 at0011 = ╱ef╱$╱ // 0x39ed @0x11
0x39dc…39f8 at0012 = ╱ec╱,╱ // 0x39ee @0x12
0x39dc…39f8 at0013 = ╱44╱D╱ // 0x39ef @0x13
0x39dc…39f8 at0014 = ╱30╱0╱ // 0x39f0 @0x14
0x39dc…39f8 at0015 = ╱ef╱$╱ // 0x39f1 @0x15
0x39dc…39f8 at0016 = ╱ec╱,╱ // 0x39f2 @0x16
0x39dc…39f8 at0017 = ╱44╱D╱ // 0x39f3 @0x17
0x39dc…39f8 at0018 = ╱30╱0╱ // 0x39f4 @0x18
0x39dc…39f8 at0019 = ╱ef╱$╱ // 0x39f5 @0x19
0x39dc…39f8 at001a = ╱ee╱)╱ // 0x39f6 @0x1a
0x39dc…39f8 at001b = EOL // 0x39f7 @0x1b
0x39dc…39f8 }
0x39f8…3a02 c759 7360 UNTIL SI<>B
0x39f8…3a02 LineComalBin {
0x39f8…3a02 ptr = 0xc759 // 0x39f8 @0x0
0x39f8…3a02 lno = 0x1cc0 // 0x39fa @0x2
0x39f8…3a02 at0004 = ╱98╱ UNTIL ╱ // 0x39fc @0x4
0x39f8…3a02 at0005 = ╱53╱S╱ // 0x39fd @0x5
0x39f8…3a02 at0006 = ╱49╱I╱ // 0x39fe @0x6
0x39f8…3a02 at0007 = ╱e1╱<>╱ // 0x39ff @0x7
0x39f8…3a02 at0008 = ╱42╱B╱ // 0x3a00 @0x8
0x39f8…3a02 at0009 = EOL // 0x3a01 @0x9
0x39f8…3a02 }
0x3a02…3a30 c787 7370 E1$=D8$(E:LEN(D8$)-E)+"-";E0$=D8$;L8=6
0x3a02…3a30 LineComalBin {
0x3a02…3a30 ptr = 0xc787 // 0x3a02 @0x0
0x3a02…3a30 lno = 0x1cca // 0x3a04 @0x2
0x3a02…3a30 at0004 = ╱45╱E╱ // 0x3a06 @0x4
0x3a02…3a30 at0005 = ╱31╱1╱ // 0x3a07 @0x5
0x3a02…3a30 at0006 = ╱ef╱$╱ // 0x3a08 @0x6
0x3a02…3a30 at0007 = ╱dc╱=╱ // 0x3a09 @0x7
0x3a02…3a30 at0008 = ╱44╱D╱ // 0x3a0a @0x8
0x3a02…3a30 at0009 = ╱38╱8╱ // 0x3a0b @0x9
0x3a02…3a30 at000a = ╱ef╱$╱ // 0x3a0c @0xa
0x3a02…3a30 at000b = ╱ed╱(╱ // 0x3a0d @0xb
0x3a02…3a30 at000c = ╱45╱E╱ // 0x3a0e @0xc
0x3a02…3a30 at000d = ╱f0╱:╱ // 0x3a0f @0xd
0x3a02…3a30 at000e = ╱cc╱LEN╱ // 0x3a10 @0xe
0x3a02…3a30 at000f = ╱ed╱(╱ // 0x3a11 @0xf
0x3a02…3a30 at0010 = ╱44╱D╱ // 0x3a12 @0x10
0x3a02…3a30 at0011 = ╱38╱8╱ // 0x3a13 @0x11
0x3a02…3a30 at0012 = ╱ef╱$╱ // 0x3a14 @0x12
0x3a02…3a30 at0013 = ╱ee╱)╱ // 0x3a15 @0x13
0x3a02…3a30 at0014 = ╱e3╱-╱ // 0x3a16 @0x14
0x3a02…3a30 at0015 = ╱45╱E╱ // 0x3a17 @0x15
0x3a02…3a30 at0016 = ╱ee╱)╱ // 0x3a18 @0x16
0x3a02…3a30 at0017 = ╱f1╱+╱ // 0x3a19 @0x17
0x3a02…3a30 at0018 = ╱22╱"╱ // 0x3a1a @0x18
0x3a02…3a30 at0019 = ╱2d╱-╱ // 0x3a1b @0x19
0x3a02…3a30 at001a = ╱22╱"╱ // 0x3a1c @0x1a
0x3a02…3a30 at001b = ╱eb╱;╱ // 0x3a1d @0x1b
0x3a02…3a30 at001c = ╱45╱E╱ // 0x3a1e @0x1c
0x3a02…3a30 at001d = ╱30╱0╱ // 0x3a1f @0x1d
0x3a02…3a30 at001e = ╱ef╱$╱ // 0x3a20 @0x1e
0x3a02…3a30 at001f = ╱dc╱=╱ // 0x3a21 @0x1f
0x3a02…3a30 at0020 = ╱44╱D╱ // 0x3a22 @0x20
0x3a02…3a30 at0021 = ╱38╱8╱ // 0x3a23 @0x21
0x3a02…3a30 at0022 = ╱ef╱$╱ // 0x3a24 @0x22
0x3a02…3a30 at0023 = ╱eb╱;╱ // 0x3a25 @0x23
0x3a02…3a30 at0024 = ╱4c╱L╱ // 0x3a26 @0x24
0x3a02…3a30 at0025 = ╱38╱8╱ // 0x3a27 @0x25
0x3a02…3a30 at0026 = ╱dc╱=╱ // 0x3a28 @0x26
0x3a02…3a30 at0027 = ╱36╱6╱ // 0x3a29 @0x27
0x3a02…3a30 at0028 = ╱fe0000c003╱ // 0x3a2a @0x28
0x3a02…3a30 at002d = EOL // 0x3a2f @0x2d
0x3a02…3a30 }
0x3a30…3a46 c79d 7380 EXEC TUD(D8$,C4$,B,B)
0x3a30…3a46 LineComalBin {
0x3a30…3a46 ptr = 0xc79d // 0x3a30 @0x0
0x3a30…3a46 lno = 0x1cd4 // 0x3a32 @0x2
0x3a30…3a46 at0004 = ╱9d╱ EXEC ╱ // 0x3a34 @0x4
0x3a30…3a46 at0005 = ╱54╱T╱ // 0x3a35 @0x5
0x3a30…3a46 at0006 = ╱55╱U╱ // 0x3a36 @0x6
0x3a30…3a46 at0007 = ╱44╱D╱ // 0x3a37 @0x7
0x3a30…3a46 at0008 = ╱ed╱(╱ // 0x3a38 @0x8
0x3a30…3a46 at0009 = ╱44╱D╱ // 0x3a39 @0x9
0x3a30…3a46 at000a = ╱38╱8╱ // 0x3a3a @0xa
0x3a30…3a46 at000b = ╱ef╱$╱ // 0x3a3b @0xb
0x3a30…3a46 at000c = ╱ec╱,╱ // 0x3a3c @0xc
0x3a30…3a46 at000d = ╱43╱C╱ // 0x3a3d @0xd
0x3a30…3a46 at000e = ╱34╱4╱ // 0x3a3e @0xe
0x3a30…3a46 at000f = ╱ef╱$╱ // 0x3a3f @0xf
0x3a30…3a46 at0010 = ╱ec╱,╱ // 0x3a40 @0x10
0x3a30…3a46 at0011 = ╱42╱B╱ // 0x3a41 @0x11
0x3a30…3a46 at0012 = ╱ec╱,╱ // 0x3a42 @0x12
0x3a30…3a46 at0013 = ╱42╱B╱ // 0x3a43 @0x13
0x3a30…3a46 at0014 = ╱ee╱)╱ // 0x3a44 @0x14
0x3a30…3a46 at0015 = EOL // 0x3a45 @0x15
0x3a30…3a46 }
0x3a46…3a58 c7af 7390 CURSOR 51,L7+V
0x3a46…3a58 LineComalBin {
0x3a46…3a58 ptr = 0xc7af // 0x3a46 @0x0
0x3a46…3a58 lno = 0x1cde // 0x3a48 @0x2
0x3a46…3a58 at0004 = ╱a1╱ CURSOR ╱ // 0x3a4a @0x4
0x3a46…3a58 at0005 = ╱35╱5╱ // 0x3a4b @0x5
0x3a46…3a58 at0006 = ╱31╱1╱ // 0x3a4c @0x6
0x3a46…3a58 at0007 = ╱fe0000cc06╱ // 0x3a4d @0x7
0x3a46…3a58 at000c = ╱ec╱,╱ // 0x3a52 @0xc
0x3a46…3a58 at000d = ╱4c╱L╱ // 0x3a53 @0xd
0x3a46…3a58 at000e = ╱37╱7╱ // 0x3a54 @0xe
0x3a46…3a58 at000f = ╱e2╱+╱ // 0x3a55 @0xf
0x3a46…3a58 at0010 = ╱56╱V╱ // 0x3a56 @0x10
0x3a46…3a58 at0011 = EOL // 0x3a57 @0x11
0x3a46…3a58 }
0x3a58…3a61 c7b8 7400 PRINT C4$
0x3a58…3a61 LineComalBin {
0x3a58…3a61 ptr = 0xc7b8 // 0x3a58 @0x0
0x3a58…3a61 lno = 0x1ce8 // 0x3a5a @0x2
0x3a58…3a61 at0004 = ╱92╱ PRINT ╱ // 0x3a5c @0x4
0x3a58…3a61 at0005 = ╱43╱C╱ // 0x3a5d @0x5
0x3a58…3a61 at0006 = ╱34╱4╱ // 0x3a5e @0x6
0x3a58…3a61 at0007 = ╱ef╱$╱ // 0x3a5f @0x7
0x3a58…3a61 at0008 = EOL // 0x3a60 @0x8
0x3a58…3a61 }
0x3a61…3a6e c7c5 7410 WHEN 6
0x3a61…3a6e LineComalBin {
0x3a61…3a6e ptr = 0xc7c5 // 0x3a61 @0x0
0x3a61…3a6e lno = 0x1cf2 // 0x3a63 @0x2
0x3a61…3a6e at0004 = ╱a301╱ WHEN ╱ // 0x3a65 @0x4
0x3a61…3a6e at0006 = ╱36╱6╱ // 0x3a67 @0x6
0x3a61…3a6e at0007 = ╱fe0000c003╱ // 0x3a68 @0x7
0x3a61…3a6e at000c = EOL // 0x3a6d @0xc
0x3a61…3a6e }
0x3a6e…3a74 c7cb 7420 REPEAT
0x3a6e…3a74 LineComalBin {
0x3a6e…3a74 ptr = 0xc7cb // 0x3a6e @0x0
0x3a6e…3a74 lno = 0x1cfc // 0x3a70 @0x2
0x3a6e…3a74 at0004 = ╱97╱ REPEAT ╱ // 0x3a72 @0x4
0x3a6e…3a74 at0005 = EOL // 0x3a73 @0x5
0x3a6e…3a74 }
0x3a74…3a7a c7d1 7430 REPEAT
0x3a74…3a7a LineComalBin {
0x3a74…3a7a ptr = 0xc7d1 // 0x3a74 @0x0
0x3a74…3a7a lno = 0x1d06 // 0x3a76 @0x2
0x3a74…3a7a at0004 = ╱97╱ REPEAT ╱ // 0x3a78 @0x4
0x3a74…3a7a at0005 = EOL // 0x3a79 @0x5
0x3a74…3a7a }
0x3a7a…3a89 c7e0 7440 CURSOR V,23
0x3a7a…3a89 LineComalBin {
0x3a7a…3a89 ptr = 0xc7e0 // 0x3a7a @0x0
0x3a7a…3a89 lno = 0x1d10 // 0x3a7c @0x2
0x3a7a…3a89 at0004 = ╱a1╱ CURSOR ╱ // 0x3a7e @0x4
0x3a7a…3a89 at0005 = ╱56╱V╱ // 0x3a7f @0x5
0x3a7a…3a89 at0006 = ╱ec╱,╱ // 0x3a80 @0x6
0x3a7a…3a89 at0007 = ╱32╱2╱ // 0x3a81 @0x7
0x3a7a…3a89 at0008 = ╱33╱3╱ // 0x3a82 @0x8
0x3a7a…3a89 at0009 = ╱fe0000b805╱ // 0x3a83 @0x9
0x3a7a…3a89 at000e = EOL // 0x3a88 @0xe
0x3a7a…3a89 }
0x3a89…3ac9 c820 7450 PRINT "Kredit-konto (RETURN:overspringes,A:annuller)";
0x3a89…3ac9 LineComalBin {
0x3a89…3ac9 ptr = 0xc820 // 0x3a89 @0x0
0x3a89…3ac9 lno = 0x1d1a // 0x3a8b @0x2
0x3a89…3ac9 at0004 = ╱92╱ PRINT ╱ // 0x3a8d @0x4
0x3a89…3ac9 at0005 = ╱22╱"╱ // 0x3a8e @0x5
0x3a89…3ac9 at0006 = ╱4b╱K╱ // 0x3a8f @0x6
0x3a89…3ac9 at0007 = ╱72╱r╱ // 0x3a90 @0x7
0x3a89…3ac9 at0008 = ╱65╱e╱ // 0x3a91 @0x8
0x3a89…3ac9 at0009 = ╱64╱d╱ // 0x3a92 @0x9
0x3a89…3ac9 at000a = ╱69╱i╱ // 0x3a93 @0xa
0x3a89…3ac9 at000b = ╱74╱t╱ // 0x3a94 @0xb
0x3a89…3ac9 at000c = ╱2d╱-╱ // 0x3a95 @0xc
0x3a89…3ac9 at000d = ╱6b╱k╱ // 0x3a96 @0xd
0x3a89…3ac9 at000e = ╱6f╱o╱ // 0x3a97 @0xe
0x3a89…3ac9 at000f = ╱6e╱n╱ // 0x3a98 @0xf
0x3a89…3ac9 at0010 = ╱74╱t╱ // 0x3a99 @0x10
0x3a89…3ac9 at0011 = ╱6f╱o╱ // 0x3a9a @0x11
0x3a89…3ac9 at0012 = ╱20╱…╱ // 0x3a9b @0x12
0x3a89…3ac9 at0013 = ╱20╱…╱ // 0x3a9c @0x13
0x3a89…3ac9 at0014 = ╱20╱…╱ // 0x3a9d @0x14
0x3a89…3ac9 at0015 = ╱20╱…╱ // 0x3a9e @0x15
0x3a89…3ac9 at0016 = ╱20╱…╱ // 0x3a9f @0x16
0x3a89…3ac9 at0017 = ╱20╱…╱ // 0x3aa0 @0x17
0x3a89…3ac9 at0018 = ╱20╱…╱ // 0x3aa1 @0x18
0x3a89…3ac9 at0019 = ╱20╱…╱ // 0x3aa2 @0x19
0x3a89…3ac9 at001a = ╱20╱…╱ // 0x3aa3 @0x1a
0x3a89…3ac9 at001b = ╱20╱…╱ // 0x3aa4 @0x1b
0x3a89…3ac9 at001c = ╱20╱…╱ // 0x3aa5 @0x1c
0x3a89…3ac9 at001d = ╱28╱(╱ // 0x3aa6 @0x1d
0x3a89…3ac9 at001e = ╱52╱R╱ // 0x3aa7 @0x1e
0x3a89…3ac9 at001f = ╱45╱E╱ // 0x3aa8 @0x1f
0x3a89…3ac9 at0020 = ╱54╱T╱ // 0x3aa9 @0x20
0x3a89…3ac9 at0021 = ╱55╱U╱ // 0x3aaa @0x21
0x3a89…3ac9 at0022 = ╱52╱R╱ // 0x3aab @0x22
0x3a89…3ac9 at0023 = ╱4e╱N╱ // 0x3aac @0x23
0x3a89…3ac9 at0024 = ╱3a╱:╱ // 0x3aad @0x24
0x3a89…3ac9 at0025 = ╱6f╱o╱ // 0x3aae @0x25
0x3a89…3ac9 at0026 = ╱76╱v╱ // 0x3aaf @0x26
0x3a89…3ac9 at0027 = ╱65╱e╱ // 0x3ab0 @0x27
0x3a89…3ac9 at0028 = ╱72╱r╱ // 0x3ab1 @0x28
0x3a89…3ac9 at0029 = ╱73╱s╱ // 0x3ab2 @0x29
0x3a89…3ac9 at002a = ╱70╱p╱ // 0x3ab3 @0x2a
0x3a89…3ac9 at002b = ╱72╱r╱ // 0x3ab4 @0x2b
0x3a89…3ac9 at002c = ╱69╱i╱ // 0x3ab5 @0x2c
0x3a89…3ac9 at002d = ╱6e╱n╱ // 0x3ab6 @0x2d
0x3a89…3ac9 at002e = ╱67╱g╱ // 0x3ab7 @0x2e
0x3a89…3ac9 at002f = ╱65╱e╱ // 0x3ab8 @0x2f
0x3a89…3ac9 at0030 = ╱73╱s╱ // 0x3ab9 @0x30
0x3a89…3ac9 at0031 = ╱2c╱,╱ // 0x3aba @0x31
0x3a89…3ac9 at0032 = ╱41╱A╱ // 0x3abb @0x32
0x3a89…3ac9 at0033 = ╱3a╱:╱ // 0x3abc @0x33
0x3a89…3ac9 at0034 = ╱61╱a╱ // 0x3abd @0x34
0x3a89…3ac9 at0035 = ╱6e╱n╱ // 0x3abe @0x35
0x3a89…3ac9 at0036 = ╱6e╱n╱ // 0x3abf @0x36
0x3a89…3ac9 at0037 = ╱75╱u╱ // 0x3ac0 @0x37
0x3a89…3ac9 at0038 = ╱6c╱l╱ // 0x3ac1 @0x38
0x3a89…3ac9 at0039 = ╱6c╱l╱ // 0x3ac2 @0x39
0x3a89…3ac9 at003a = ╱65╱e╱ // 0x3ac3 @0x3a
0x3a89…3ac9 at003b = ╱72╱r╱ // 0x3ac4 @0x3b
0x3a89…3ac9 at003c = ╱29╱)╱ // 0x3ac5 @0x3c
0x3a89…3ac9 at003d = ╱22╱"╱ // 0x3ac6 @0x3d
0x3a89…3ac9 at003e = ╱eb╱;╱ // 0x3ac7 @0x3e
0x3a89…3ac9 at003f = EOL // 0x3ac8 @0x3f
0x3a89…3ac9 }
0x3ac9…3ae6 c83d 7460 PRINT " "
0x3ac9…3ae6 LineComalBin {
0x3ac9…3ae6 ptr = 0xc83d // 0x3ac9 @0x0
0x3ac9…3ae6 lno = 0x1d24 // 0x3acb @0x2
0x3ac9…3ae6 at0004 = ╱92╱ PRINT ╱ // 0x3acd @0x4
0x3ac9…3ae6 at0005 = ╱22╱"╱ // 0x3ace @0x5
0x3ac9…3ae6 at0006 = ╱20╱…╱ // 0x3acf @0x6
0x3ac9…3ae6 at0007 = ╱20╱…╱ // 0x3ad0 @0x7
0x3ac9…3ae6 at0008 = ╱20╱…╱ // 0x3ad1 @0x8
0x3ac9…3ae6 at0009 = ╱20╱…╱ // 0x3ad2 @0x9
0x3ac9…3ae6 at000a = ╱20╱…╱ // 0x3ad3 @0xa
0x3ac9…3ae6 at000b = ╱20╱…╱ // 0x3ad4 @0xb
0x3ac9…3ae6 at000c = ╱20╱…╱ // 0x3ad5 @0xc
0x3ac9…3ae6 at000d = ╱20╱…╱ // 0x3ad6 @0xd
0x3ac9…3ae6 at000e = ╱20╱…╱ // 0x3ad7 @0xe
0x3ac9…3ae6 at000f = ╱20╱…╱ // 0x3ad8 @0xf
0x3ac9…3ae6 at0010 = ╱20╱…╱ // 0x3ad9 @0x10
0x3ac9…3ae6 at0011 = ╱20╱…╱ // 0x3ada @0x11
0x3ac9…3ae6 at0012 = ╱20╱…╱ // 0x3adb @0x12
0x3ac9…3ae6 at0013 = ╱20╱…╱ // 0x3adc @0x13
0x3ac9…3ae6 at0014 = ╱20╱…╱ // 0x3add @0x14
0x3ac9…3ae6 at0015 = ╱20╱…╱ // 0x3ade @0x15
0x3ac9…3ae6 at0016 = ╱20╱…╱ // 0x3adf @0x16
0x3ac9…3ae6 at0017 = ╱20╱…╱ // 0x3ae0 @0x17
0x3ac9…3ae6 at0018 = ╱20╱…╱ // 0x3ae1 @0x18
0x3ac9…3ae6 at0019 = ╱20╱…╱ // 0x3ae2 @0x19
0x3ac9…3ae6 at001a = ╱20╱…╱ // 0x3ae3 @0x1a
0x3ac9…3ae6 at001b = ╱22╱"╱ // 0x3ae4 @0x1b
0x3ac9…3ae6 at001c = EOL // 0x3ae5 @0x1c
0x3ac9…3ae6 }
0x3ae6…3afb c852 7470 CURSOR 17,23
0x3ae6…3afb LineComalBin {
0x3ae6…3afb ptr = 0xc852 // 0x3ae6 @0x0
0x3ae6…3afb lno = 0x1d2e // 0x3ae8 @0x2
0x3ae6…3afb at0004 = ╱a1╱ CURSOR ╱ // 0x3aea @0x4
0x3ae6…3afb at0005 = ╱31╱1╱ // 0x3aeb @0x5
0x3ae6…3afb at0006 = ╱37╱7╱ // 0x3aec @0x6
0x3ae6…3afb at0007 = ╱fe00008805╱ // 0x3aed @0x7
0x3ae6…3afb at000c = ╱ec╱,╱ // 0x3af2 @0xc
0x3ae6…3afb at000d = ╱32╱2╱ // 0x3af3 @0xd
0x3ae6…3afb at000e = ╱33╱3╱ // 0x3af4 @0xe
0x3ae6…3afb at000f = ╱fe0000b805╱ // 0x3af5 @0xf
0x3ae6…3afb at0014 = EOL // 0x3afa @0x14
0x3ae6…3afb }
0x3afb…3b04 c85b 7480 INPUT D7$
0x3afb…3b04 LineComalBin {
0x3afb…3b04 ptr = 0xc85b // 0x3afb @0x0
0x3afb…3b04 lno = 0x1d38 // 0x3afd @0x2
0x3afb…3b04 at0004 = ╱91╱ INPUT ╱ // 0x3aff @0x4
0x3afb…3b04 at0005 = ╱44╱D╱ // 0x3b00 @0x5
0x3afb…3b04 at0006 = ╱37╱7╱ // 0x3b01 @0x6
0x3afb…3b04 at0007 = ╱ef╱$╱ // 0x3b02 @0x7
0x3afb…3b04 at0008 = EOL // 0x3b03 @0x8
0x3afb…3b04 }
0x3b04…3b15 c86c 7490 EXEC NRTEST(D7$)
0x3b04…3b15 LineComalBin {
0x3b04…3b15 ptr = 0xc86c // 0x3b04 @0x0
0x3b04…3b15 lno = 0x1d42 // 0x3b06 @0x2
0x3b04…3b15 at0004 = ╱9d╱ EXEC ╱ // 0x3b08 @0x4
0x3b04…3b15 at0005 = ╱4e╱N╱ // 0x3b09 @0x5
0x3b04…3b15 at0006 = ╱52╱R╱ // 0x3b0a @0x6
0x3b04…3b15 at0007 = ╱54╱T╱ // 0x3b0b @0x7
0x3b04…3b15 at0008 = ╱45╱E╱ // 0x3b0c @0x8
0x3b04…3b15 at0009 = ╱53╱S╱ // 0x3b0d @0x9
0x3b04…3b15 at000a = ╱54╱T╱ // 0x3b0e @0xa
0x3b04…3b15 at000b = ╱ed╱(╱ // 0x3b0f @0xb
0x3b04…3b15 at000c = ╱44╱D╱ // 0x3b10 @0xc
0x3b04…3b15 at000d = ╱37╱7╱ // 0x3b11 @0xd
0x3b04…3b15 at000e = ╱ef╱$╱ // 0x3b12 @0xe
0x3b04…3b15 at000f = ╱ee╱)╱ // 0x3b13 @0xf
0x3b04…3b15 at0010 = EOL // 0x3b14 @0x10
0x3b04…3b15 }
0x3b15…3b45 c89c 7500 UNTIL (((K7<10 AND K7>B) OR K7=G4) AND M8=B) OR P=-E OR P=-V
0x3b15…3b45 LineComalBin {
0x3b15…3b45 ptr = 0xc89c // 0x3b15 @0x0
0x3b15…3b45 lno = 0x1d4c // 0x3b17 @0x2
0x3b15…3b45 at0004 = ╱98╱ UNTIL ╱ // 0x3b19 @0x4
0x3b15…3b45 at0005 = ╱ed╱(╱ // 0x3b1a @0x5
0x3b15…3b45 at0006 = ╱ed╱(╱ // 0x3b1b @0x6
0x3b15…3b45 at0007 = ╱ed╱(╱ // 0x3b1c @0x7
0x3b15…3b45 at0008 = ╱4b╱K╱ // 0x3b1d @0x8
0x3b15…3b45 at0009 = ╱37╱7╱ // 0x3b1e @0x9
0x3b15…3b45 at000a = ╱dd╱<╱ // 0x3b1f @0xa
0x3b15…3b45 at000b = ╱31╱1╱ // 0x3b20 @0xb
0x3b15…3b45 at000c = ╱30╱0╱ // 0x3b21 @0xc
0x3b15…3b45 at000d = ╱fe0000a004╱ // 0x3b22 @0xd
0x3b15…3b45 at0012 = ╱da╱ AND ╱ // 0x3b27 @0x12
0x3b15…3b45 at0013 = ╱4b╱K╱ // 0x3b28 @0x13
0x3b15…3b45 at0014 = ╱37╱7╱ // 0x3b29 @0x14
0x3b15…3b45 at0015 = ╱de╱>╱ // 0x3b2a @0x15
0x3b15…3b45 at0016 = ╱42╱B╱ // 0x3b2b @0x16
0x3b15…3b45 at0017 = ╱ee╱)╱ // 0x3b2c @0x17
0x3b15…3b45 at0018 = ╱db╱ OR ╱ // 0x3b2d @0x18
0x3b15…3b45 at0019 = ╱4b╱K╱ // 0x3b2e @0x19
0x3b15…3b45 at001a = ╱37╱7╱ // 0x3b2f @0x1a
0x3b15…3b45 at001b = ╱dc╱=╱ // 0x3b30 @0x1b
0x3b15…3b45 at001c = ╱47╱G╱ // 0x3b31 @0x1c
0x3b15…3b45 at001d = ╱34╱4╱ // 0x3b32 @0x1d
0x3b15…3b45 at001e = ╱ee╱)╱ // 0x3b33 @0x1e
0x3b15…3b45 at001f = ╱da╱ AND ╱ // 0x3b34 @0x1f
0x3b15…3b45 at0020 = ╱4d╱M╱ // 0x3b35 @0x20
0x3b15…3b45 at0021 = ╱38╱8╱ // 0x3b36 @0x21
0x3b15…3b45 at0022 = ╱dc╱=╱ // 0x3b37 @0x22
0x3b15…3b45 at0023 = ╱42╱B╱ // 0x3b38 @0x23
0x3b15…3b45 at0024 = ╱ee╱)╱ // 0x3b39 @0x24
0x3b15…3b45 at0025 = ╱db╱ OR ╱ // 0x3b3a @0x25
0x3b15…3b45 at0026 = ╱50╱P╱ // 0x3b3b @0x26
0x3b15…3b45 at0027 = ╱dc╱=╱ // 0x3b3c @0x27
0x3b15…3b45 at0028 = ╱e9╱-╱ // 0x3b3d @0x28
0x3b15…3b45 at0029 = ╱45╱E╱ // 0x3b3e @0x29
0x3b15…3b45 at002a = ╱db╱ OR ╱ // 0x3b3f @0x2a
0x3b15…3b45 at002b = ╱50╱P╱ // 0x3b40 @0x2b
0x3b15…3b45 at002c = ╱dc╱=╱ // 0x3b41 @0x2c
0x3b15…3b45 at002d = ╱e9╱-╱ // 0x3b42 @0x2d
0x3b15…3b45 at002e = ╱56╱V╱ // 0x3b43 @0x2e
0x3b15…3b45 at002f = EOL // 0x3b44 @0x2f
0x3b15…3b45 }
0x3b45…3b50 c8a7 7510 IF P=-E THEN
0x3b45…3b50 LineComalBin {
0x3b45…3b50 ptr = 0xc8a7 // 0x3b45 @0x0
0x3b45…3b50 lno = 0x1d56 // 0x3b47 @0x2
0x3b45…3b50 at0004 = ╱9c╱ IF ╱ // 0x3b49 @0x4
0x3b45…3b50 at0005 = ╱50╱P╱ // 0x3b4a @0x5
0x3b45…3b50 at0006 = ╱dc╱=╱ // 0x3b4b @0x6
0x3b45…3b50 at0007 = ╱e9╱-╱ // 0x3b4c @0x7
0x3b45…3b50 at0008 = ╱45╱E╱ // 0x3b4d @0x8
0x3b45…3b50 at0009 = ╱b6╱ THEN ╱ // 0x3b4e @0x9
0x3b45…3b50 at000a = EOL // 0x3b4f @0xa
0x3b45…3b50 }
0x3b50…3b5b c8b2 7520 IF O6=B THEN
0x3b50…3b5b LineComalBin {
0x3b50…3b5b ptr = 0xc8b2 // 0x3b50 @0x0
0x3b50…3b5b lno = 0x1d60 // 0x3b52 @0x2
0x3b50…3b5b at0004 = ╱9c╱ IF ╱ // 0x3b54 @0x4
0x3b50…3b5b at0005 = ╱4f╱O╱ // 0x3b55 @0x5
0x3b50…3b5b at0006 = ╱36╱6╱ // 0x3b56 @0x6
0x3b50…3b5b at0007 = ╱dc╱=╱ // 0x3b57 @0x7
0x3b50…3b5b at0008 = ╱42╱B╱ // 0x3b58 @0x8
0x3b50…3b5b at0009 = ╱b6╱ THEN ╱ // 0x3b59 @0x9
0x3b50…3b5b at000a = EOL // 0x3b5a @0xa
0x3b50…3b5b }
0x3b5b…3b94 c8eb 7530 P,F5=B;J7=100000;J6=E;K1=K1+E;K2=K2+E;C6(K1)=J1
0x3b5b…3b94 LineComalBin {
0x3b5b…3b94 ptr = 0xc8eb // 0x3b5b @0x0
0x3b5b…3b94 lno = 0x1d6a // 0x3b5d @0x2
0x3b5b…3b94 at0004 = ╱50╱P╱ // 0x3b5f @0x4
0x3b5b…3b94 at0005 = ╱ec╱,╱ // 0x3b60 @0x5
0x3b5b…3b94 at0006 = ╱46╱F╱ // 0x3b61 @0x6
0x3b5b…3b94 at0007 = ╱35╱5╱ // 0x3b62 @0x7
0x3b5b…3b94 at0008 = ╱dc╱=╱ // 0x3b63 @0x8
0x3b5b…3b94 at0009 = ╱42╱B╱ // 0x3b64 @0x9
0x3b5b…3b94 at000a = ╱eb╱;╱ // 0x3b65 @0xa
0x3b5b…3b94 at000b = ╱4a╱J╱ // 0x3b66 @0xb
0x3b5b…3b94 at000c = ╱37╱7╱ // 0x3b67 @0xc
0x3b5b…3b94 at000d = ╱dc╱=╱ // 0x3b68 @0xd
0x3b5b…3b94 at000e = ╱31╱1╱ // 0x3b69 @0xe
0x3b5b…3b94 at000f = ╱30╱0╱ // 0x3b6a @0xf
0x3b5b…3b94 at0010 = ╱30╱0╱ // 0x3b6b @0x10
0x3b5b…3b94 at0011 = ╱30╱0╱ // 0x3b6c @0x11
0x3b5b…3b94 at0012 = ╱30╱0╱ // 0x3b6d @0x12
0x3b5b…3b94 at0013 = ╱30╱0╱ // 0x3b6e @0x13
0x3b5b…3b94 at0014 = ╱fe0050c311╱ // 0x3b6f @0x14
0x3b5b…3b94 at0019 = ╱eb╱;╱ // 0x3b74 @0x19
0x3b5b…3b94 at001a = ╱4a╱J╱ // 0x3b75 @0x1a
0x3b5b…3b94 at001b = ╱36╱6╱ // 0x3b76 @0x1b
0x3b5b…3b94 at001c = ╱dc╱=╱ // 0x3b77 @0x1c
0x3b5b…3b94 at001d = ╱45╱E╱ // 0x3b78 @0x1d
0x3b5b…3b94 at001e = ╱eb╱;╱ // 0x3b79 @0x1e
0x3b5b…3b94 at001f = ╱4b╱K╱ // 0x3b7a @0x1f
0x3b5b…3b94 at0020 = ╱31╱1╱ // 0x3b7b @0x20
0x3b5b…3b94 at0021 = ╱dc╱=╱ // 0x3b7c @0x21
0x3b5b…3b94 at0022 = ╱4b╱K╱ // 0x3b7d @0x22
0x3b5b…3b94 at0023 = ╱31╱1╱ // 0x3b7e @0x23
0x3b5b…3b94 at0024 = ╱e2╱+╱ // 0x3b7f @0x24
0x3b5b…3b94 at0025 = ╱45╱E╱ // 0x3b80 @0x25
0x3b5b…3b94 at0026 = ╱eb╱;╱ // 0x3b81 @0x26
0x3b5b…3b94 at0027 = ╱4b╱K╱ // 0x3b82 @0x27
0x3b5b…3b94 at0028 = ╱32╱2╱ // 0x3b83 @0x28
0x3b5b…3b94 at0029 = ╱dc╱=╱ // 0x3b84 @0x29
0x3b5b…3b94 at002a = ╱4b╱K╱ // 0x3b85 @0x2a
0x3b5b…3b94 at002b = ╱32╱2╱ // 0x3b86 @0x2b
0x3b5b…3b94 at002c = ╱e2╱+╱ // 0x3b87 @0x2c
0x3b5b…3b94 at002d = ╱45╱E╱ // 0x3b88 @0x2d
0x3b5b…3b94 at002e = ╱eb╱;╱ // 0x3b89 @0x2e
0x3b5b…3b94 at002f = ╱43╱C╱ // 0x3b8a @0x2f
0x3b5b…3b94 at0030 = ╱36╱6╱ // 0x3b8b @0x30
0x3b5b…3b94 at0031 = ╱ed╱(╱ // 0x3b8c @0x31
0x3b5b…3b94 at0032 = ╱4b╱K╱ // 0x3b8d @0x32
0x3b5b…3b94 at0033 = ╱31╱1╱ // 0x3b8e @0x33
0x3b5b…3b94 at0034 = ╱ee╱)╱ // 0x3b8f @0x34
0x3b5b…3b94 at0035 = ╱dc╱=╱ // 0x3b90 @0x35
0x3b5b…3b94 at0036 = ╱4a╱J╱ // 0x3b91 @0x36
0x3b5b…3b94 at0037 = ╱31╱1╱ // 0x3b92 @0x37
0x3b5b…3b94 at0038 = EOL // 0x3b93 @0x38
0x3b5b…3b94 }
0x3b94…3bc2 c919 7540 C7(K1)=K0;E3(K1)=J3;C8(K1)=J5;E4$(K1)=E0$
0x3b94…3bc2 LineComalBin {
0x3b94…3bc2 ptr = 0xc919 // 0x3b94 @0x0
0x3b94…3bc2 lno = 0x1d74 // 0x3b96 @0x2
0x3b94…3bc2 at0004 = ╱43╱C╱ // 0x3b98 @0x4
0x3b94…3bc2 at0005 = ╱37╱7╱ // 0x3b99 @0x5
0x3b94…3bc2 at0006 = ╱ed╱(╱ // 0x3b9a @0x6
0x3b94…3bc2 at0007 = ╱4b╱K╱ // 0x3b9b @0x7
0x3b94…3bc2 at0008 = ╱31╱1╱ // 0x3b9c @0x8
0x3b94…3bc2 at0009 = ╱ee╱)╱ // 0x3b9d @0x9
0x3b94…3bc2 at000a = ╱dc╱=╱ // 0x3b9e @0xa
0x3b94…3bc2 at000b = ╱4b╱K╱ // 0x3b9f @0xb
0x3b94…3bc2 at000c = ╱30╱0╱ // 0x3ba0 @0xc
0x3b94…3bc2 at000d = ╱eb╱;╱ // 0x3ba1 @0xd
0x3b94…3bc2 at000e = ╱45╱E╱ // 0x3ba2 @0xe
0x3b94…3bc2 at000f = ╱33╱3╱ // 0x3ba3 @0xf
0x3b94…3bc2 at0010 = ╱ed╱(╱ // 0x3ba4 @0x10
0x3b94…3bc2 at0011 = ╱4b╱K╱ // 0x3ba5 @0x11
0x3b94…3bc2 at0012 = ╱31╱1╱ // 0x3ba6 @0x12
0x3b94…3bc2 at0013 = ╱ee╱)╱ // 0x3ba7 @0x13
0x3b94…3bc2 at0014 = ╱dc╱=╱ // 0x3ba8 @0x14
0x3b94…3bc2 at0015 = ╱4a╱J╱ // 0x3ba9 @0x15
0x3b94…3bc2 at0016 = ╱33╱3╱ // 0x3baa @0x16
0x3b94…3bc2 at0017 = ╱eb╱;╱ // 0x3bab @0x17
0x3b94…3bc2 at0018 = ╱43╱C╱ // 0x3bac @0x18
0x3b94…3bc2 at0019 = ╱38╱8╱ // 0x3bad @0x19
0x3b94…3bc2 at001a = ╱ed╱(╱ // 0x3bae @0x1a
0x3b94…3bc2 at001b = ╱4b╱K╱ // 0x3baf @0x1b
0x3b94…3bc2 at001c = ╱31╱1╱ // 0x3bb0 @0x1c
0x3b94…3bc2 at001d = ╱ee╱)╱ // 0x3bb1 @0x1d
0x3b94…3bc2 at001e = ╱dc╱=╱ // 0x3bb2 @0x1e
0x3b94…3bc2 at001f = ╱4a╱J╱ // 0x3bb3 @0x1f
0x3b94…3bc2 at0020 = ╱35╱5╱ // 0x3bb4 @0x20
0x3b94…3bc2 at0021 = ╱eb╱;╱ // 0x3bb5 @0x21
0x3b94…3bc2 at0022 = ╱45╱E╱ // 0x3bb6 @0x22
0x3b94…3bc2 at0023 = ╱34╱4╱ // 0x3bb7 @0x23
0x3b94…3bc2 at0024 = ╱ef╱$╱ // 0x3bb8 @0x24
0x3b94…3bc2 at0025 = ╱ed╱(╱ // 0x3bb9 @0x25
0x3b94…3bc2 at0026 = ╱4b╱K╱ // 0x3bba @0x26
0x3b94…3bc2 at0027 = ╱31╱1╱ // 0x3bbb @0x27
0x3b94…3bc2 at0028 = ╱ee╱)╱ // 0x3bbc @0x28
0x3b94…3bc2 at0029 = ╱dc╱=╱ // 0x3bbd @0x29
0x3b94…3bc2 at002a = ╱45╱E╱ // 0x3bbe @0x2a
0x3b94…3bc2 at002b = ╱30╱0╱ // 0x3bbf @0x2b
0x3b94…3bc2 at002c = ╱ef╱$╱ // 0x3bc0 @0x2c
0x3b94…3bc2 at002d = EOL // 0x3bc1 @0x2d
0x3b94…3bc2 }
0x3bc2…3bd9 c930 7550 EXEC CA(B,B6$,E0$,B6$)
0x3bc2…3bd9 LineComalBin {
0x3bc2…3bd9 ptr = 0xc930 // 0x3bc2 @0x0
0x3bc2…3bd9 lno = 0x1d7e // 0x3bc4 @0x2
0x3bc2…3bd9 at0004 = ╱9d╱ EXEC ╱ // 0x3bc6 @0x4
0x3bc2…3bd9 at0005 = ╱43╱C╱ // 0x3bc7 @0x5
0x3bc2…3bd9 at0006 = ╱41╱A╱ // 0x3bc8 @0x6
0x3bc2…3bd9 at0007 = ╱ed╱(╱ // 0x3bc9 @0x7
0x3bc2…3bd9 at0008 = ╱42╱B╱ // 0x3bca @0x8
0x3bc2…3bd9 at0009 = ╱ec╱,╱ // 0x3bcb @0x9
0x3bc2…3bd9 at000a = ╱42╱B╱ // 0x3bcc @0xa
0x3bc2…3bd9 at000b = ╱36╱6╱ // 0x3bcd @0xb
0x3bc2…3bd9 at000c = ╱ef╱$╱ // 0x3bce @0xc
0x3bc2…3bd9 at000d = ╱ec╱,╱ // 0x3bcf @0xd
0x3bc2…3bd9 at000e = ╱45╱E╱ // 0x3bd0 @0xe
0x3bc2…3bd9 at000f = ╱30╱0╱ // 0x3bd1 @0xf
0x3bc2…3bd9 at0010 = ╱ef╱$╱ // 0x3bd2 @0x10
0x3bc2…3bd9 at0011 = ╱ec╱,╱ // 0x3bd3 @0x11
0x3bc2…3bd9 at0012 = ╱42╱B╱ // 0x3bd4 @0x12
0x3bc2…3bd9 at0013 = ╱36╱6╱ // 0x3bd5 @0x13
0x3bc2…3bd9 at0014 = ╱ef╱$╱ // 0x3bd6 @0x14
0x3bc2…3bd9 at0015 = ╱ee╱)╱ // 0x3bd7 @0x15
0x3bc2…3bd9 at0016 = EOL // 0x3bd8 @0x16
0x3bc2…3bd9 }
0x3bd9…3bfe c955 7560 C9$(K1)=E2$(E:25);E8(K1)=J4
0x3bd9…3bfe LineComalBin {
0x3bd9…3bfe ptr = 0xc955 // 0x3bd9 @0x0
0x3bd9…3bfe lno = 0x1d88 // 0x3bdb @0x2
0x3bd9…3bfe at0004 = ╱43╱C╱ // 0x3bdd @0x4
0x3bd9…3bfe at0005 = ╱39╱9╱ // 0x3bde @0x5
0x3bd9…3bfe at0006 = ╱ef╱$╱ // 0x3bdf @0x6
0x3bd9…3bfe at0007 = ╱ed╱(╱ // 0x3be0 @0x7
0x3bd9…3bfe at0008 = ╱4b╱K╱ // 0x3be1 @0x8
0x3bd9…3bfe at0009 = ╱31╱1╱ // 0x3be2 @0x9
0x3bd9…3bfe at000a = ╱ee╱)╱ // 0x3be3 @0xa
0x3bd9…3bfe at000b = ╱dc╱=╱ // 0x3be4 @0xb
0x3bd9…3bfe at000c = ╱45╱E╱ // 0x3be5 @0xc
0x3bd9…3bfe at000d = ╱32╱2╱ // 0x3be6 @0xd
0x3bd9…3bfe at000e = ╱ef╱$╱ // 0x3be7 @0xe
0x3bd9…3bfe at000f = ╱ed╱(╱ // 0x3be8 @0xf
0x3bd9…3bfe at0010 = ╱45╱E╱ // 0x3be9 @0x10
0x3bd9…3bfe at0011 = ╱f0╱:╱ // 0x3bea @0x11
0x3bd9…3bfe at0012 = ╱32╱2╱ // 0x3beb @0x12
0x3bd9…3bfe at0013 = ╱35╱5╱ // 0x3bec @0x13
0x3bd9…3bfe at0014 = ╱fe0000c805╱ // 0x3bed @0x14
0x3bd9…3bfe at0019 = ╱ee╱)╱ // 0x3bf2 @0x19
0x3bd9…3bfe at001a = ╱eb╱;╱ // 0x3bf3 @0x1a
0x3bd9…3bfe at001b = ╱45╱E╱ // 0x3bf4 @0x1b
0x3bd9…3bfe at001c = ╱38╱8╱ // 0x3bf5 @0x1c
0x3bd9…3bfe at001d = ╱ed╱(╱ // 0x3bf6 @0x1d
0x3bd9…3bfe at001e = ╱4b╱K╱ // 0x3bf7 @0x1e
0x3bd9…3bfe at001f = ╱31╱1╱ // 0x3bf8 @0x1f
0x3bd9…3bfe at0020 = ╱ee╱)╱ // 0x3bf9 @0x20
0x3bd9…3bfe at0021 = ╱dc╱=╱ // 0x3bfa @0x21
0x3bd9…3bfe at0022 = ╱4a╱J╱ // 0x3bfb @0x22
0x3bd9…3bfe at0023 = ╱34╱4╱ // 0x3bfc @0x23
0x3bd9…3bfe at0024 = EOL // 0x3bfd @0x24
0x3bd9…3bfe }
0x3bfe…3c1c c973 7570 IF J5>W THEN C9$(K1)=C1$;K2=K2+E
0x3bfe…3c1c LineComalBin {
0x3bfe…3c1c ptr = 0xc973 // 0x3bfe @0x0
0x3bfe…3c1c lno = 0x1d92 // 0x3c00 @0x2
0x3bfe…3c1c at0004 = ╱82╱ IF ╱ // 0x3c02 @0x4
0x3bfe…3c1c at0005 = ╱4a╱J╱ // 0x3c03 @0x5
0x3bfe…3c1c at0006 = ╱35╱5╱ // 0x3c04 @0x6
0x3bfe…3c1c at0007 = ╱de╱>╱ // 0x3c05 @0x7
0x3bfe…3c1c at0008 = ╱57╱W╱ // 0x3c06 @0x8
0x3bfe…3c1c at0009 = ╱b6╱ THEN ╱ // 0x3c07 @0x9
0x3bfe…3c1c at000a = ╱43╱C╱ // 0x3c08 @0xa
0x3bfe…3c1c at000b = ╱39╱9╱ // 0x3c09 @0xb
0x3bfe…3c1c at000c = ╱ef╱$╱ // 0x3c0a @0xc
0x3bfe…3c1c at000d = ╱ed╱(╱ // 0x3c0b @0xd
0x3bfe…3c1c at000e = ╱4b╱K╱ // 0x3c0c @0xe
0x3bfe…3c1c at000f = ╱31╱1╱ // 0x3c0d @0xf
0x3bfe…3c1c at0010 = ╱ee╱)╱ // 0x3c0e @0x10
0x3bfe…3c1c at0011 = ╱dc╱=╱ // 0x3c0f @0x11
0x3bfe…3c1c at0012 = ╱43╱C╱ // 0x3c10 @0x12
0x3bfe…3c1c at0013 = ╱31╱1╱ // 0x3c11 @0x13
0x3bfe…3c1c at0014 = ╱ef╱$╱ // 0x3c12 @0x14
0x3bfe…3c1c at0015 = ╱eb╱;╱ // 0x3c13 @0x15
0x3bfe…3c1c at0016 = ╱4b╱K╱ // 0x3c14 @0x16
0x3bfe…3c1c at0017 = ╱32╱2╱ // 0x3c15 @0x17
0x3bfe…3c1c at0018 = ╱dc╱=╱ // 0x3c16 @0x18
0x3bfe…3c1c at0019 = ╱4b╱K╱ // 0x3c17 @0x19
0x3bfe…3c1c at001a = ╱32╱2╱ // 0x3c18 @0x1a
0x3bfe…3c1c at001b = ╱e2╱+╱ // 0x3c19 @0x1b
0x3bfe…3c1c at001c = ╱45╱E╱ // 0x3c1a @0x1c
0x3bfe…3c1c at001d = EOL // 0x3c1b @0x1d
0x3bfe…3c1c }
0x3c1c…3c2a c981 7580 EXEC KNUD(J7)
0x3c1c…3c2a LineComalBin {
0x3c1c…3c2a ptr = 0xc981 // 0x3c1c @0x0
0x3c1c…3c2a lno = 0x1d9c // 0x3c1e @0x2
0x3c1c…3c2a at0004 = ╱9d╱ EXEC ╱ // 0x3c20 @0x4
0x3c1c…3c2a at0005 = ╱4b╱K╱ // 0x3c21 @0x5
0x3c1c…3c2a at0006 = ╱4e╱N╱ // 0x3c22 @0x6
0x3c1c…3c2a at0007 = ╱55╱U╱ // 0x3c23 @0x7
0x3c1c…3c2a at0008 = ╱44╱D╱ // 0x3c24 @0x8
0x3c1c…3c2a at0009 = ╱ed╱(╱ // 0x3c25 @0x9
0x3c1c…3c2a at000a = ╱4a╱J╱ // 0x3c26 @0xa
0x3c1c…3c2a at000b = ╱37╱7╱ // 0x3c27 @0xb
0x3c1c…3c2a at000c = ╱ee╱)╱ // 0x3c28 @0xc
0x3c1c…3c2a at000d = EOL // 0x3c29 @0xd
0x3c1c…3c2a }
0x3c2a…3c30 c987 7590 ENDIF
0x3c2a…3c30 LineComalBin {
0x3c2a…3c30 ptr = 0xc987 // 0x3c2a @0x0
0x3c2a…3c30 lno = 0x1da6 // 0x3c2c @0x2
0x3c2a…3c30 at0004 = ╱9b╱ ENDIF ╱ // 0x3c2e @0x4
0x3c2a…3c30 at0005 = EOL // 0x3c2f @0x5
0x3c2a…3c30 }
0x3c30…3c36 c98d 7600 ELSE
0x3c30…3c36 LineComalBin {
0x3c30…3c36 ptr = 0xc98d // 0x3c30 @0x0
0x3c30…3c36 lno = 0x1db0 // 0x3c32 @0x2
0x3c30…3c36 at0004 = ╱9a╱ ELSE ╱ // 0x3c34 @0x4
0x3c30…3c36 at0005 = EOL // 0x3c35 @0x5
0x3c30…3c36 }
0x3c36…3c41 c998 7610 IF P=-V THEN
0x3c36…3c41 LineComalBin {
0x3c36…3c41 ptr = 0xc998 // 0x3c36 @0x0
0x3c36…3c41 lno = 0x1dba // 0x3c38 @0x2
0x3c36…3c41 at0004 = ╱9c╱ IF ╱ // 0x3c3a @0x4
0x3c36…3c41 at0005 = ╱50╱P╱ // 0x3c3b @0x5
0x3c36…3c41 at0006 = ╱dc╱=╱ // 0x3c3c @0x6
0x3c36…3c41 at0007 = ╱e9╱-╱ // 0x3c3d @0x7
0x3c36…3c41 at0008 = ╱56╱V╱ // 0x3c3e @0x8
0x3c36…3c41 at0009 = ╱b6╱ THEN ╱ // 0x3c3f @0x9
0x3c36…3c41 at000a = EOL // 0x3c40 @0xa
0x3c36…3c41 }
0x3c41…3c4a c9a1 7620 F5=E
0x3c41…3c4a LineComalBin {
0x3c41…3c4a ptr = 0xc9a1 // 0x3c41 @0x0
0x3c41…3c4a lno = 0x1dc4 // 0x3c43 @0x2
0x3c41…3c4a at0004 = ╱46╱F╱ // 0x3c45 @0x4
0x3c41…3c4a at0005 = ╱35╱5╱ // 0x3c46 @0x5
0x3c41…3c4a at0006 = ╱dc╱=╱ // 0x3c47 @0x6
0x3c41…3c4a at0007 = ╱45╱E╱ // 0x3c48 @0x7
0x3c41…3c4a at0008 = EOL // 0x3c49 @0x8
0x3c41…3c4a }
0x3c4a…3c57 c9ae 7630 EXEC KNUD(P)
0x3c4a…3c57 LineComalBin {
0x3c4a…3c57 ptr = 0xc9ae // 0x3c4a @0x0
0x3c4a…3c57 lno = 0x1dce // 0x3c4c @0x2
0x3c4a…3c57 at0004 = ╱9d╱ EXEC ╱ // 0x3c4e @0x4
0x3c4a…3c57 at0005 = ╱4b╱K╱ // 0x3c4f @0x5
0x3c4a…3c57 at0006 = ╱4e╱N╱ // 0x3c50 @0x6
0x3c4a…3c57 at0007 = ╱55╱U╱ // 0x3c51 @0x7
0x3c4a…3c57 at0008 = ╱44╱D╱ // 0x3c52 @0x8
0x3c4a…3c57 at0009 = ╱ed╱(╱ // 0x3c53 @0x9
0x3c4a…3c57 at000a = ╱50╱P╱ // 0x3c54 @0xa
0x3c4a…3c57 at000b = ╱ee╱)╱ // 0x3c55 @0xb
0x3c4a…3c57 at000c = EOL // 0x3c56 @0xc
0x3c4a…3c57 }
0x3c57…3c5d c9b4 7640 ELSE
0x3c57…3c5d LineComalBin {
0x3c57…3c5d ptr = 0xc9b4 // 0x3c57 @0x0
0x3c57…3c5d lno = 0x1dd8 // 0x3c59 @0x2
0x3c57…3c5d at0004 = ╱9a╱ ELSE ╱ // 0x3c5b @0x4
0x3c57…3c5d at0005 = EOL // 0x3c5c @0x5
0x3c57…3c5d }
0x3c5d…3c6a c9c1 7650 O7=J6+O6
0x3c5d…3c6a LineComalBin {
0x3c5d…3c6a ptr = 0xc9c1 // 0x3c5d @0x0
0x3c5d…3c6a lno = 0x1de2 // 0x3c5f @0x2
0x3c5d…3c6a at0004 = ╱4f╱O╱ // 0x3c61 @0x4
0x3c5d…3c6a at0005 = ╱37╱7╱ // 0x3c62 @0x5
0x3c5d…3c6a at0006 = ╱dc╱=╱ // 0x3c63 @0x6
0x3c5d…3c6a at0007 = ╱4a╱J╱ // 0x3c64 @0x7
0x3c5d…3c6a at0008 = ╱36╱6╱ // 0x3c65 @0x8
0x3c5d…3c6a at0009 = ╱e2╱+╱ // 0x3c66 @0x9
0x3c5d…3c6a at000a = ╱4f╱O╱ // 0x3c67 @0xa
0x3c5d…3c6a at000b = ╱36╱6╱ // 0x3c68 @0xb
0x3c5d…3c6a at000c = EOL // 0x3c69 @0xc
0x3c5d…3c6a }
0x3c6a…3c74 c9cb 7660 CASE O7 OF
0x3c6a…3c74 LineComalBin {
0x3c6a…3c74 ptr = 0xc9cb // 0x3c6a @0x0
0x3c6a…3c74 lno = 0x1dec // 0x3c6c @0x2
0x3c6a…3c74 at0004 = ╱a201╱ CASE ╱ // 0x3c6e @0x4
0x3c6a…3c74 at0006 = ╱4f╱O╱ // 0x3c70 @0x6
0x3c6a…3c74 at0007 = ╱37╱7╱ // 0x3c71 @0x7
0x3c6a…3c74 at0008 = ╱ba╱ OF ╱ // 0x3c72 @0x8
0x3c6a…3c74 at0009 = EOL // 0x3c73 @0x9
0x3c6a…3c74 }
0x3c74…3c7a c9d1 7670 STOP
0x3c74…3c7a LineComalBin {
0x3c74…3c7a ptr = 0xc9d1 // 0x3c74 @0x0
0x3c74…3c7a lno = 0x1df6 // 0x3c76 @0x2
0x3c74…3c7a at0004 = ╱8d╱ STOP ╱ // 0x3c78 @0x4
0x3c74…3c7a at0005 = EOL // 0x3c79 @0x5
0x3c74…3c7a }
0x3c7a…3c82 c9d9 7680 WHEN B
0x3c7a…3c82 LineComalBin {
0x3c7a…3c82 ptr = 0xc9d9 // 0x3c7a @0x0
0x3c7a…3c82 lno = 0x1e00 // 0x3c7c @0x2
0x3c7a…3c82 at0004 = ╱a301╱ WHEN ╱ // 0x3c7e @0x4
0x3c7a…3c82 at0006 = ╱42╱B╱ // 0x3c80 @0x6
0x3c7a…3c82 at0007 = EOL // 0x3c81 @0x7
0x3c7a…3c82 }
0x3c82…3c8b c9e2 7690 J7=P
0x3c82…3c8b LineComalBin {
0x3c82…3c8b ptr = 0xc9e2 // 0x3c82 @0x0
0x3c82…3c8b lno = 0x1e0a // 0x3c84 @0x2
0x3c82…3c8b at0004 = ╱4a╱J╱ // 0x3c86 @0x4
0x3c82…3c8b at0005 = ╱37╱7╱ // 0x3c87 @0x5
0x3c82…3c8b at0006 = ╱dc╱=╱ // 0x3c88 @0x6
0x3c82…3c8b at0007 = ╱50╱P╱ // 0x3c89 @0x7
0x3c82…3c8b at0008 = EOL // 0x3c8a @0x8
0x3c82…3c8b }
0x3c8b…3c95 c9ec 7700 EXEC KNOK
0x3c8b…3c95 LineComalBin {
0x3c8b…3c95 ptr = 0xc9ec // 0x3c8b @0x0
0x3c8b…3c95 lno = 0x1e14 // 0x3c8d @0x2
0x3c8b…3c95 at0004 = ╱9d╱ EXEC ╱ // 0x3c8f @0x4
0x3c8b…3c95 at0005 = ╱4b╱K╱ // 0x3c90 @0x5
0x3c8b…3c95 at0006 = ╱4e╱N╱ // 0x3c91 @0x6
0x3c8b…3c95 at0007 = ╱4f╱O╱ // 0x3c92 @0x7
0x3c8b…3c95 at0008 = ╱4b╱K╱ // 0x3c93 @0x8
0x3c8b…3c95 at0009 = EOL // 0x3c94 @0x9
0x3c8b…3c95 }
0x3c95…3cae ca05 7710 IF P=-7 THEN EXEC KNUD(J7)
0x3c95…3cae LineComalBin {
0x3c95…3cae ptr = 0xca05 // 0x3c95 @0x0
0x3c95…3cae lno = 0x1e1e // 0x3c97 @0x2
0x3c95…3cae at0004 = ╱82╱ IF ╱ // 0x3c99 @0x4
0x3c95…3cae at0005 = ╱50╱P╱ // 0x3c9a @0x5
0x3c95…3cae at0006 = ╱dc╱=╱ // 0x3c9b @0x6
0x3c95…3cae at0007 = ╱e9╱-╱ // 0x3c9c @0x7
0x3c95…3cae at0008 = ╱37╱7╱ // 0x3c9d @0x8
0x3c95…3cae at0009 = ╱fe0000e003╱ // 0x3c9e @0x9
0x3c95…3cae at000e = ╱b6╱ THEN ╱ // 0x3ca3 @0xe
0x3c95…3cae at000f = ╱9d╱ EXEC ╱ // 0x3ca4 @0xf
0x3c95…3cae at0010 = ╱4b╱K╱ // 0x3ca5 @0x10
0x3c95…3cae at0011 = ╱4e╱N╱ // 0x3ca6 @0x11
0x3c95…3cae at0012 = ╱55╱U╱ // 0x3ca7 @0x12
0x3c95…3cae at0013 = ╱44╱D╱ // 0x3ca8 @0x13
0x3c95…3cae at0014 = ╱ed╱(╱ // 0x3ca9 @0x14
0x3c95…3cae at0015 = ╱4a╱J╱ // 0x3caa @0x15
0x3c95…3cae at0016 = ╱37╱7╱ // 0x3cab @0x16
0x3c95…3cae at0017 = ╱ee╱)╱ // 0x3cac @0x17
0x3c95…3cae at0018 = EOL // 0x3cad @0x18
0x3c95…3cae }
0x3cae…3cb6 ca0d 7750 WHEN E
0x3cae…3cb6 LineComalBin {
0x3cae…3cb6 ptr = 0xca0d // 0x3cae @0x0
0x3cae…3cb6 lno = 0x1e46 // 0x3cb0 @0x2
0x3cae…3cb6 at0004 = ╱a301╱ WHEN ╱ // 0x3cb2 @0x4
0x3cae…3cb6 at0006 = ╱45╱E╱ // 0x3cb4 @0x6
0x3cae…3cb6 at0007 = EOL // 0x3cb5 @0x7
0x3cae…3cb6 }
0x3cb6…3cbc ca13 7760 REPEAT
0x3cb6…3cbc LineComalBin {
0x3cb6…3cbc ptr = 0xca13 // 0x3cb6 @0x0
0x3cb6…3cbc lno = 0x1e50 // 0x3cb8 @0x2
0x3cb6…3cbc at0004 = ╱97╱ REPEAT ╱ // 0x3cba @0x4
0x3cb6…3cbc at0005 = EOL // 0x3cbb @0x5
0x3cb6…3cbc }
0x3cbc…3ccb ca22 7770 CURSOR V,23
0x3cbc…3ccb LineComalBin {
0x3cbc…3ccb ptr = 0xca22 // 0x3cbc @0x0
0x3cbc…3ccb lno = 0x1e5a // 0x3cbe @0x2
0x3cbc…3ccb at0004 = ╱a1╱ CURSOR ╱ // 0x3cc0 @0x4
0x3cbc…3ccb at0005 = ╱56╱V╱ // 0x3cc1 @0x5
0x3cbc…3ccb at0006 = ╱ec╱,╱ // 0x3cc2 @0x6
0x3cbc…3ccb at0007 = ╱32╱2╱ // 0x3cc3 @0x7
0x3cbc…3ccb at0008 = ╱33╱3╱ // 0x3cc4 @0x8
0x3cbc…3ccb at0009 = ╱fe0000b805╱ // 0x3cc5 @0x9
0x3cbc…3ccb at000e = EOL // 0x3cca @0xe
0x3cbc…3ccb }
0x3ccb…3d0d ca64 7780 PRINT "Multipostering ikke afsluttet , tast RETURN"+E2$(E:34)
0x3ccb…3d0d LineComalBin {
0x3ccb…3d0d ptr = 0xca64 // 0x3ccb @0x0
0x3ccb…3d0d lno = 0x1e64 // 0x3ccd @0x2
0x3ccb…3d0d at0004 = ╱92╱ PRINT ╱ // 0x3ccf @0x4
0x3ccb…3d0d at0005 = ╱22╱"╱ // 0x3cd0 @0x5
0x3ccb…3d0d at0006 = ╱4d╱M╱ // 0x3cd1 @0x6
0x3ccb…3d0d at0007 = ╱75╱u╱ // 0x3cd2 @0x7
0x3ccb…3d0d at0008 = ╱6c╱l╱ // 0x3cd3 @0x8
0x3ccb…3d0d at0009 = ╱74╱t╱ // 0x3cd4 @0x9
0x3ccb…3d0d at000a = ╱69╱i╱ // 0x3cd5 @0xa
0x3ccb…3d0d at000b = ╱70╱p╱ // 0x3cd6 @0xb
0x3ccb…3d0d at000c = ╱6f╱o╱ // 0x3cd7 @0xc
0x3ccb…3d0d at000d = ╱73╱s╱ // 0x3cd8 @0xd
0x3ccb…3d0d at000e = ╱74╱t╱ // 0x3cd9 @0xe
0x3ccb…3d0d at000f = ╱65╱e╱ // 0x3cda @0xf
0x3ccb…3d0d at0010 = ╱72╱r╱ // 0x3cdb @0x10
0x3ccb…3d0d at0011 = ╱69╱i╱ // 0x3cdc @0x11
0x3ccb…3d0d at0012 = ╱6e╱n╱ // 0x3cdd @0x12
0x3ccb…3d0d at0013 = ╱67╱g╱ // 0x3cde @0x13
0x3ccb…3d0d at0014 = ╱20╱…╱ // 0x3cdf @0x14
0x3ccb…3d0d at0015 = ╱69╱i╱ // 0x3ce0 @0x15
0x3ccb…3d0d at0016 = ╱6b╱k╱ // 0x3ce1 @0x16
0x3ccb…3d0d at0017 = ╱6b╱k╱ // 0x3ce2 @0x17
0x3ccb…3d0d at0018 = ╱65╱e╱ // 0x3ce3 @0x18
0x3ccb…3d0d at0019 = ╱20╱…╱ // 0x3ce4 @0x19
0x3ccb…3d0d at001a = ╱61╱a╱ // 0x3ce5 @0x1a
0x3ccb…3d0d at001b = ╱66╱f╱ // 0x3ce6 @0x1b
0x3ccb…3d0d at001c = ╱73╱s╱ // 0x3ce7 @0x1c
0x3ccb…3d0d at001d = ╱6c╱l╱ // 0x3ce8 @0x1d
0x3ccb…3d0d at001e = ╱75╱u╱ // 0x3ce9 @0x1e
0x3ccb…3d0d at001f = ╱74╱t╱ // 0x3cea @0x1f
0x3ccb…3d0d at0020 = ╱74╱t╱ // 0x3ceb @0x20
0x3ccb…3d0d at0021 = ╱65╱e╱ // 0x3cec @0x21
0x3ccb…3d0d at0022 = ╱74╱t╱ // 0x3ced @0x22
0x3ccb…3d0d at0023 = ╱20╱…╱ // 0x3cee @0x23
0x3ccb…3d0d at0024 = ╱2c╱,╱ // 0x3cef @0x24
0x3ccb…3d0d at0025 = ╱20╱…╱ // 0x3cf0 @0x25
0x3ccb…3d0d at0026 = ╱74╱t╱ // 0x3cf1 @0x26
0x3ccb…3d0d at0027 = ╱61╱a╱ // 0x3cf2 @0x27
0x3ccb…3d0d at0028 = ╱73╱s╱ // 0x3cf3 @0x28
0x3ccb…3d0d at0029 = ╱74╱t╱ // 0x3cf4 @0x29
0x3ccb…3d0d at002a = ╱20╱…╱ // 0x3cf5 @0x2a
0x3ccb…3d0d at002b = ╱52╱R╱ // 0x3cf6 @0x2b
0x3ccb…3d0d at002c = ╱45╱E╱ // 0x3cf7 @0x2c
0x3ccb…3d0d at002d = ╱54╱T╱ // 0x3cf8 @0x2d
0x3ccb…3d0d at002e = ╱55╱U╱ // 0x3cf9 @0x2e
0x3ccb…3d0d at002f = ╱52╱R╱ // 0x3cfa @0x2f
0x3ccb…3d0d at0030 = ╱4e╱N╱ // 0x3cfb @0x30
0x3ccb…3d0d at0031 = ╱22╱"╱ // 0x3cfc @0x31
0x3ccb…3d0d at0032 = ╱f1╱+╱ // 0x3cfd @0x32
0x3ccb…3d0d at0033 = ╱45╱E╱ // 0x3cfe @0x33
0x3ccb…3d0d at0034 = ╱32╱2╱ // 0x3cff @0x34
0x3ccb…3d0d at0035 = ╱ef╱$╱ // 0x3d00 @0x35
0x3ccb…3d0d at0036 = ╱ed╱(╱ // 0x3d01 @0x36
0x3ccb…3d0d at0037 = ╱45╱E╱ // 0x3d02 @0x37
0x3ccb…3d0d at0038 = ╱f0╱:╱ // 0x3d03 @0x38
0x3ccb…3d0d at0039 = ╱33╱3╱ // 0x3d04 @0x39
0x3ccb…3d0d at003a = ╱34╱4╱ // 0x3d05 @0x3a
0x3ccb…3d0d at003b = ╱fe00008806╱ // 0x3d06 @0x3b
0x3ccb…3d0d at0040 = ╱ee╱)╱ // 0x3d0b @0x40
0x3ccb…3d0d at0041 = EOL // 0x3d0c @0x41
0x3ccb…3d0d }
0x3d0d…3d22 ca79 7790 CURSOR 46,23
0x3d0d…3d22 LineComalBin {
0x3d0d…3d22 ptr = 0xca79 // 0x3d0d @0x0
0x3d0d…3d22 lno = 0x1e6e // 0x3d0f @0x2
0x3d0d…3d22 at0004 = ╱a1╱ CURSOR ╱ // 0x3d11 @0x4
0x3d0d…3d22 at0005 = ╱34╱4╱ // 0x3d12 @0x5
0x3d0d…3d22 at0006 = ╱36╱6╱ // 0x3d13 @0x6
0x3d0d…3d22 at0007 = ╱fe0000b806╱ // 0x3d14 @0x7
0x3d0d…3d22 at000c = ╱ec╱,╱ // 0x3d19 @0xc
0x3d0d…3d22 at000d = ╱32╱2╱ // 0x3d1a @0xd
0x3d0d…3d22 at000e = ╱33╱3╱ // 0x3d1b @0xe
0x3d0d…3d22 at000f = ╱fe0000b805╱ // 0x3d1c @0xf
0x3d0d…3d22 at0014 = EOL // 0x3d21 @0x14
0x3d0d…3d22 }
0x3d22…3d2a ca81 7800 INPUT A$
0x3d22…3d2a LineComalBin {
0x3d22…3d2a ptr = 0xca81 // 0x3d22 @0x0
0x3d22…3d2a lno = 0x1e78 // 0x3d24 @0x2
0x3d22…3d2a at0004 = ╱91╱ INPUT ╱ // 0x3d26 @0x4
0x3d22…3d2a at0005 = ╱41╱A╱ // 0x3d27 @0x5
0x3d22…3d2a at0006 = ╱ef╱$╱ // 0x3d28 @0x6
0x3d22…3d2a at0007 = EOL // 0x3d29 @0x7
0x3d22…3d2a }
0x3d2a…3d3a ca91 7810 EXEC NRTEST(A$)
0x3d2a…3d3a LineComalBin {
0x3d2a…3d3a ptr = 0xca91 // 0x3d2a @0x0
0x3d2a…3d3a lno = 0x1e82 // 0x3d2c @0x2
0x3d2a…3d3a at0004 = ╱9d╱ EXEC ╱ // 0x3d2e @0x4
0x3d2a…3d3a at0005 = ╱4e╱N╱ // 0x3d2f @0x5
0x3d2a…3d3a at0006 = ╱52╱R╱ // 0x3d30 @0x6
0x3d2a…3d3a at0007 = ╱54╱T╱ // 0x3d31 @0x7
0x3d2a…3d3a at0008 = ╱45╱E╱ // 0x3d32 @0x8
0x3d2a…3d3a at0009 = ╱53╱S╱ // 0x3d33 @0x9
0x3d2a…3d3a at000a = ╱54╱T╱ // 0x3d34 @0xa
0x3d2a…3d3a at000b = ╱ed╱(╱ // 0x3d35 @0xb
0x3d2a…3d3a at000c = ╱41╱A╱ // 0x3d36 @0xc
0x3d2a…3d3a at000d = ╱ef╱$╱ // 0x3d37 @0xd
0x3d2a…3d3a at000e = ╱ee╱)╱ // 0x3d38 @0xe
0x3d2a…3d3a at000f = EOL // 0x3d39 @0xf
0x3d2a…3d3a }
0x3d3a…3d44 ca9b 7820 UNTIL P=-E
0x3d3a…3d44 LineComalBin {
0x3d3a…3d44 ptr = 0xca9b // 0x3d3a @0x0
0x3d3a…3d44 lno = 0x1e8c // 0x3d3c @0x2
0x3d3a…3d44 at0004 = ╱98╱ UNTIL ╱ // 0x3d3e @0x4
0x3d3a…3d44 at0005 = ╱50╱P╱ // 0x3d3f @0x5
0x3d3a…3d44 at0006 = ╱dc╱=╱ // 0x3d40 @0x6
0x3d3a…3d44 at0007 = ╱e9╱-╱ // 0x3d41 @0x7
0x3d3a…3d44 at0008 = ╱45╱E╱ // 0x3d42 @0x8
0x3d3a…3d44 at0009 = EOL // 0x3d43 @0x9
0x3d3a…3d44 }
0x3d44…3d4c caa3 7830 WHEN G
0x3d44…3d4c LineComalBin {
0x3d44…3d4c ptr = 0xcaa3 // 0x3d44 @0x0
0x3d44…3d4c lno = 0x1e96 // 0x3d46 @0x2
0x3d44…3d4c at0004 = ╱a301╱ WHEN ╱ // 0x3d48 @0x4
0x3d44…3d4c at0006 = ╱47╱G╱ // 0x3d4a @0x6
0x3d44…3d4c at0007 = EOL // 0x3d4b @0x7
0x3d44…3d4c }
0x3d4c…3d55 caac 7840 J7=P
0x3d4c…3d55 LineComalBin {
0x3d4c…3d55 ptr = 0xcaac // 0x3d4c @0x0
0x3d4c…3d55 lno = 0x1ea0 // 0x3d4e @0x2
0x3d4c…3d55 at0004 = ╱4a╱J╱ // 0x3d50 @0x4
0x3d4c…3d55 at0005 = ╱37╱7╱ // 0x3d51 @0x5
0x3d4c…3d55 at0006 = ╱dc╱=╱ // 0x3d52 @0x6
0x3d4c…3d55 at0007 = ╱50╱P╱ // 0x3d53 @0x7
0x3d4c…3d55 at0008 = EOL // 0x3d54 @0x8
0x3d4c…3d55 }
0x3d55…3d5f cab6 7850 EXEC KNOK
0x3d55…3d5f LineComalBin {
0x3d55…3d5f ptr = 0xcab6 // 0x3d55 @0x0
0x3d55…3d5f lno = 0x1eaa // 0x3d57 @0x2
0x3d55…3d5f at0004 = ╱9d╱ EXEC ╱ // 0x3d59 @0x4
0x3d55…3d5f at0005 = ╱4b╱K╱ // 0x3d5a @0x5
0x3d55…3d5f at0006 = ╱4e╱N╱ // 0x3d5b @0x6
0x3d55…3d5f at0007 = ╱4f╱O╱ // 0x3d5c @0x7
0x3d55…3d5f at0008 = ╱4b╱K╱ // 0x3d5d @0x8
0x3d55…3d5f at0009 = EOL // 0x3d5e @0x9
0x3d55…3d5f }
0x3d5f…3d6f cac6 7860 IF P=-7 THEN
0x3d5f…3d6f LineComalBin {
0x3d5f…3d6f ptr = 0xcac6 // 0x3d5f @0x0
0x3d5f…3d6f lno = 0x1eb4 // 0x3d61 @0x2
0x3d5f…3d6f at0004 = ╱9c╱ IF ╱ // 0x3d63 @0x4
0x3d5f…3d6f at0005 = ╱50╱P╱ // 0x3d64 @0x5
0x3d5f…3d6f at0006 = ╱dc╱=╱ // 0x3d65 @0x6
0x3d5f…3d6f at0007 = ╱e9╱-╱ // 0x3d66 @0x7
0x3d5f…3d6f at0008 = ╱37╱7╱ // 0x3d67 @0x8
0x3d5f…3d6f at0009 = ╱fe0000e003╱ // 0x3d68 @0x9
0x3d5f…3d6f at000e = ╱b6╱ THEN ╱ // 0x3d6d @0xe
0x3d5f…3d6f at000f = EOL // 0x3d6e @0xf
0x3d5f…3d6f }
0x3d6f…3d7d cad4 7870 EXEC KNUD(J7)
0x3d6f…3d7d LineComalBin {
0x3d6f…3d7d ptr = 0xcad4 // 0x3d6f @0x0
0x3d6f…3d7d lno = 0x1ebe // 0x3d71 @0x2
0x3d6f…3d7d at0004 = ╱9d╱ EXEC ╱ // 0x3d73 @0x4
0x3d6f…3d7d at0005 = ╱4b╱K╱ // 0x3d74 @0x5
0x3d6f…3d7d at0006 = ╱4e╱N╱ // 0x3d75 @0x6
0x3d6f…3d7d at0007 = ╱55╱U╱ // 0x3d76 @0x7
0x3d6f…3d7d at0008 = ╱44╱D╱ // 0x3d77 @0x8
0x3d6f…3d7d at0009 = ╱ed╱(╱ // 0x3d78 @0x9
0x3d6f…3d7d at000a = ╱4a╱J╱ // 0x3d79 @0xa
0x3d6f…3d7d at000b = ╱37╱7╱ // 0x3d7a @0xb
0x3d6f…3d7d at000c = ╱ee╱)╱ // 0x3d7b @0xc
0x3d6f…3d7d at000d = EOL // 0x3d7c @0xd
0x3d6f…3d7d }
0x3d7d…3d88 cadf 7880 IF F5=B THEN
0x3d7d…3d88 LineComalBin {
0x3d7d…3d88 ptr = 0xcadf // 0x3d7d @0x0
0x3d7d…3d88 lno = 0x1ec8 // 0x3d7f @0x2
0x3d7d…3d88 at0004 = ╱9c╱ IF ╱ // 0x3d81 @0x4
0x3d7d…3d88 at0005 = ╱46╱F╱ // 0x3d82 @0x5
0x3d7d…3d88 at0006 = ╱35╱5╱ // 0x3d83 @0x6
0x3d7d…3d88 at0007 = ╱dc╱=╱ // 0x3d84 @0x7
0x3d7d…3d88 at0008 = ╱42╱B╱ // 0x3d85 @0x8
0x3d7d…3d88 at0009 = ╱b6╱ THEN ╱ // 0x3d86 @0x9
0x3d7d…3d88 at000a = EOL // 0x3d87 @0xa
0x3d7d…3d88 }
0x3d88…3d9f caf6 7890 EXEC CA(B,B6$,E1$,B6$)
0x3d88…3d9f LineComalBin {
0x3d88…3d9f ptr = 0xcaf6 // 0x3d88 @0x0
0x3d88…3d9f lno = 0x1ed2 // 0x3d8a @0x2
0x3d88…3d9f at0004 = ╱9d╱ EXEC ╱ // 0x3d8c @0x4
0x3d88…3d9f at0005 = ╱43╱C╱ // 0x3d8d @0x5
0x3d88…3d9f at0006 = ╱41╱A╱ // 0x3d8e @0x6
0x3d88…3d9f at0007 = ╱ed╱(╱ // 0x3d8f @0x7
0x3d88…3d9f at0008 = ╱42╱B╱ // 0x3d90 @0x8
0x3d88…3d9f at0009 = ╱ec╱,╱ // 0x3d91 @0x9
0x3d88…3d9f at000a = ╱42╱B╱ // 0x3d92 @0xa
0x3d88…3d9f at000b = ╱36╱6╱ // 0x3d93 @0xb
0x3d88…3d9f at000c = ╱ef╱$╱ // 0x3d94 @0xc
0x3d88…3d9f at000d = ╱ec╱,╱ // 0x3d95 @0xd
0x3d88…3d9f at000e = ╱45╱E╱ // 0x3d96 @0xe
0x3d88…3d9f at000f = ╱31╱1╱ // 0x3d97 @0xf
0x3d88…3d9f at0010 = ╱ef╱$╱ // 0x3d98 @0x10
0x3d88…3d9f at0011 = ╱ec╱,╱ // 0x3d99 @0x11
0x3d88…3d9f at0012 = ╱42╱B╱ // 0x3d9a @0x12
0x3d88…3d9f at0013 = ╱36╱6╱ // 0x3d9b @0x13
0x3d88…3d9f at0014 = ╱ef╱$╱ // 0x3d9c @0x14
0x3d88…3d9f at0015 = ╱ee╱)╱ // 0x3d9d @0x15
0x3d88…3d9f at0016 = EOL // 0x3d9e @0x16
0x3d88…3d9f }
0x3d9f…3dd1 cb28 7900 K1=K1+E;K2=K2+E;C6(K1)=J7;C7(K1)=K0;E3(K1)=J3
0x3d9f…3dd1 LineComalBin {
0x3d9f…3dd1 ptr = 0xcb28 // 0x3d9f @0x0
0x3d9f…3dd1 lno = 0x1edc // 0x3da1 @0x2
0x3d9f…3dd1 at0004 = ╱4b╱K╱ // 0x3da3 @0x4
0x3d9f…3dd1 at0005 = ╱31╱1╱ // 0x3da4 @0x5
0x3d9f…3dd1 at0006 = ╱dc╱=╱ // 0x3da5 @0x6
0x3d9f…3dd1 at0007 = ╱4b╱K╱ // 0x3da6 @0x7
0x3d9f…3dd1 at0008 = ╱31╱1╱ // 0x3da7 @0x8
0x3d9f…3dd1 at0009 = ╱e2╱+╱ // 0x3da8 @0x9
0x3d9f…3dd1 at000a = ╱45╱E╱ // 0x3da9 @0xa
0x3d9f…3dd1 at000b = ╱eb╱;╱ // 0x3daa @0xb
0x3d9f…3dd1 at000c = ╱4b╱K╱ // 0x3dab @0xc
0x3d9f…3dd1 at000d = ╱32╱2╱ // 0x3dac @0xd
0x3d9f…3dd1 at000e = ╱dc╱=╱ // 0x3dad @0xe
0x3d9f…3dd1 at000f = ╱4b╱K╱ // 0x3dae @0xf
0x3d9f…3dd1 at0010 = ╱32╱2╱ // 0x3daf @0x10
0x3d9f…3dd1 at0011 = ╱e2╱+╱ // 0x3db0 @0x11
0x3d9f…3dd1 at0012 = ╱45╱E╱ // 0x3db1 @0x12
0x3d9f…3dd1 at0013 = ╱eb╱;╱ // 0x3db2 @0x13
0x3d9f…3dd1 at0014 = ╱43╱C╱ // 0x3db3 @0x14
0x3d9f…3dd1 at0015 = ╱36╱6╱ // 0x3db4 @0x15
0x3d9f…3dd1 at0016 = ╱ed╱(╱ // 0x3db5 @0x16
0x3d9f…3dd1 at0017 = ╱4b╱K╱ // 0x3db6 @0x17
0x3d9f…3dd1 at0018 = ╱31╱1╱ // 0x3db7 @0x18
0x3d9f…3dd1 at0019 = ╱ee╱)╱ // 0x3db8 @0x19
0x3d9f…3dd1 at001a = ╱dc╱=╱ // 0x3db9 @0x1a
0x3d9f…3dd1 at001b = ╱4a╱J╱ // 0x3dba @0x1b
0x3d9f…3dd1 at001c = ╱37╱7╱ // 0x3dbb @0x1c
0x3d9f…3dd1 at001d = ╱eb╱;╱ // 0x3dbc @0x1d
0x3d9f…3dd1 at001e = ╱43╱C╱ // 0x3dbd @0x1e
0x3d9f…3dd1 at001f = ╱37╱7╱ // 0x3dbe @0x1f
0x3d9f…3dd1 at0020 = ╱ed╱(╱ // 0x3dbf @0x20
0x3d9f…3dd1 at0021 = ╱4b╱K╱ // 0x3dc0 @0x21
0x3d9f…3dd1 at0022 = ╱31╱1╱ // 0x3dc1 @0x22
0x3d9f…3dd1 at0023 = ╱ee╱)╱ // 0x3dc2 @0x23
0x3d9f…3dd1 at0024 = ╱dc╱=╱ // 0x3dc3 @0x24
0x3d9f…3dd1 at0025 = ╱4b╱K╱ // 0x3dc4 @0x25
0x3d9f…3dd1 at0026 = ╱30╱0╱ // 0x3dc5 @0x26
0x3d9f…3dd1 at0027 = ╱eb╱;╱ // 0x3dc6 @0x27
0x3d9f…3dd1 at0028 = ╱45╱E╱ // 0x3dc7 @0x28
0x3d9f…3dd1 at0029 = ╱33╱3╱ // 0x3dc8 @0x29
0x3d9f…3dd1 at002a = ╱ed╱(╱ // 0x3dc9 @0x2a
0x3d9f…3dd1 at002b = ╱4b╱K╱ // 0x3dca @0x2b
0x3d9f…3dd1 at002c = ╱31╱1╱ // 0x3dcb @0x2c
0x3d9f…3dd1 at002d = ╱ee╱)╱ // 0x3dcc @0x2d
0x3d9f…3dd1 at002e = ╱dc╱=╱ // 0x3dcd @0x2e
0x3d9f…3dd1 at002f = ╱4a╱J╱ // 0x3dce @0x2f
0x3d9f…3dd1 at0030 = ╱33╱3╱ // 0x3dcf @0x30
0x3d9f…3dd1 at0031 = EOL // 0x3dd0 @0x31
0x3d9f…3dd1 }
0x3dd1…3e02 cb59 7910 C8(K1)=J5;E4$(K1)=E1$;C9$(K1)=E2$(E:25)
0x3dd1…3e02 LineComalBin {
0x3dd1…3e02 ptr = 0xcb59 // 0x3dd1 @0x0
0x3dd1…3e02 lno = 0x1ee6 // 0x3dd3 @0x2
0x3dd1…3e02 at0004 = ╱43╱C╱ // 0x3dd5 @0x4
0x3dd1…3e02 at0005 = ╱38╱8╱ // 0x3dd6 @0x5
0x3dd1…3e02 at0006 = ╱ed╱(╱ // 0x3dd7 @0x6
0x3dd1…3e02 at0007 = ╱4b╱K╱ // 0x3dd8 @0x7
0x3dd1…3e02 at0008 = ╱31╱1╱ // 0x3dd9 @0x8
0x3dd1…3e02 at0009 = ╱ee╱)╱ // 0x3dda @0x9
0x3dd1…3e02 at000a = ╱dc╱=╱ // 0x3ddb @0xa
0x3dd1…3e02 at000b = ╱4a╱J╱ // 0x3ddc @0xb
0x3dd1…3e02 at000c = ╱35╱5╱ // 0x3ddd @0xc
0x3dd1…3e02 at000d = ╱eb╱;╱ // 0x3dde @0xd
0x3dd1…3e02 at000e = ╱45╱E╱ // 0x3ddf @0xe
0x3dd1…3e02 at000f = ╱34╱4╱ // 0x3de0 @0xf
0x3dd1…3e02 at0010 = ╱ef╱$╱ // 0x3de1 @0x10
0x3dd1…3e02 at0011 = ╱ed╱(╱ // 0x3de2 @0x11
0x3dd1…3e02 at0012 = ╱4b╱K╱ // 0x3de3 @0x12
0x3dd1…3e02 at0013 = ╱31╱1╱ // 0x3de4 @0x13
0x3dd1…3e02 at0014 = ╱ee╱)╱ // 0x3de5 @0x14
0x3dd1…3e02 at0015 = ╱dc╱=╱ // 0x3de6 @0x15
0x3dd1…3e02 at0016 = ╱45╱E╱ // 0x3de7 @0x16
0x3dd1…3e02 at0017 = ╱31╱1╱ // 0x3de8 @0x17
0x3dd1…3e02 at0018 = ╱ef╱$╱ // 0x3de9 @0x18
0x3dd1…3e02 at0019 = ╱eb╱;╱ // 0x3dea @0x19
0x3dd1…3e02 at001a = ╱43╱C╱ // 0x3deb @0x1a
0x3dd1…3e02 at001b = ╱39╱9╱ // 0x3dec @0x1b
0x3dd1…3e02 at001c = ╱ef╱$╱ // 0x3ded @0x1c
0x3dd1…3e02 at001d = ╱ed╱(╱ // 0x3dee @0x1d
0x3dd1…3e02 at001e = ╱4b╱K╱ // 0x3def @0x1e
0x3dd1…3e02 at001f = ╱31╱1╱ // 0x3df0 @0x1f
0x3dd1…3e02 at0020 = ╱ee╱)╱ // 0x3df1 @0x20
0x3dd1…3e02 at0021 = ╱dc╱=╱ // 0x3df2 @0x21
0x3dd1…3e02 at0022 = ╱45╱E╱ // 0x3df3 @0x22
0x3dd1…3e02 at0023 = ╱32╱2╱ // 0x3df4 @0x23
0x3dd1…3e02 at0024 = ╱ef╱$╱ // 0x3df5 @0x24
0x3dd1…3e02 at0025 = ╱ed╱(╱ // 0x3df6 @0x25
0x3dd1…3e02 at0026 = ╱45╱E╱ // 0x3df7 @0x26
0x3dd1…3e02 at0027 = ╱f0╱:╱ // 0x3df8 @0x27
0x3dd1…3e02 at0028 = ╱32╱2╱ // 0x3df9 @0x28
0x3dd1…3e02 at0029 = ╱35╱5╱ // 0x3dfa @0x29
0x3dd1…3e02 at002a = ╱fe0000c805╱ // 0x3dfb @0x2a
0x3dd1…3e02 at002f = ╱ee╱)╱ // 0x3e00 @0x2f
0x3dd1…3e02 at0030 = EOL // 0x3e01 @0x30
0x3dd1…3e02 }
0x3e02…3e12 cb69 7920 E4$(K1)=E1$
0x3e02…3e12 LineComalBin {
0x3e02…3e12 ptr = 0xcb69 // 0x3e02 @0x0
0x3e02…3e12 lno = 0x1ef0 // 0x3e04 @0x2
0x3e02…3e12 at0004 = ╱45╱E╱ // 0x3e06 @0x4
0x3e02…3e12 at0005 = ╱34╱4╱ // 0x3e07 @0x5
0x3e02…3e12 at0006 = ╱ef╱$╱ // 0x3e08 @0x6
0x3e02…3e12 at0007 = ╱ed╱(╱ // 0x3e09 @0x7
0x3e02…3e12 at0008 = ╱4b╱K╱ // 0x3e0a @0x8
0x3e02…3e12 at0009 = ╱31╱1╱ // 0x3e0b @0x9
0x3e02…3e12 at000a = ╱ee╱)╱ // 0x3e0c @0xa
0x3e02…3e12 at000b = ╱dc╱=╱ // 0x3e0d @0xb
0x3e02…3e12 at000c = ╱45╱E╱ // 0x3e0e @0xc
0x3e02…3e12 at000d = ╱31╱1╱ // 0x3e0f @0xd
0x3e02…3e12 at000e = ╱ef╱$╱ // 0x3e10 @0xe
0x3e02…3e12 at000f = EOL // 0x3e11 @0xf
0x3e02…3e12 }
0x3e12…3e30 cb87 7930 IF J5>W THEN C9$(K1)=C1$;K2=K2+E
0x3e12…3e30 LineComalBin {
0x3e12…3e30 ptr = 0xcb87 // 0x3e12 @0x0
0x3e12…3e30 lno = 0x1efa // 0x3e14 @0x2
0x3e12…3e30 at0004 = ╱82╱ IF ╱ // 0x3e16 @0x4
0x3e12…3e30 at0005 = ╱4a╱J╱ // 0x3e17 @0x5
0x3e12…3e30 at0006 = ╱35╱5╱ // 0x3e18 @0x6
0x3e12…3e30 at0007 = ╱de╱>╱ // 0x3e19 @0x7
0x3e12…3e30 at0008 = ╱57╱W╱ // 0x3e1a @0x8
0x3e12…3e30 at0009 = ╱b6╱ THEN ╱ // 0x3e1b @0x9
0x3e12…3e30 at000a = ╱43╱C╱ // 0x3e1c @0xa
0x3e12…3e30 at000b = ╱39╱9╱ // 0x3e1d @0xb
0x3e12…3e30 at000c = ╱ef╱$╱ // 0x3e1e @0xc
0x3e12…3e30 at000d = ╱ed╱(╱ // 0x3e1f @0xd
0x3e12…3e30 at000e = ╱4b╱K╱ // 0x3e20 @0xe
0x3e12…3e30 at000f = ╱31╱1╱ // 0x3e21 @0xf
0x3e12…3e30 at0010 = ╱ee╱)╱ // 0x3e22 @0x10
0x3e12…3e30 at0011 = ╱dc╱=╱ // 0x3e23 @0x11
0x3e12…3e30 at0012 = ╱43╱C╱ // 0x3e24 @0x12
0x3e12…3e30 at0013 = ╱31╱1╱ // 0x3e25 @0x13
0x3e12…3e30 at0014 = ╱ef╱$╱ // 0x3e26 @0x14
0x3e12…3e30 at0015 = ╱eb╱;╱ // 0x3e27 @0x15
0x3e12…3e30 at0016 = ╱4b╱K╱ // 0x3e28 @0x16
0x3e12…3e30 at0017 = ╱32╱2╱ // 0x3e29 @0x17
0x3e12…3e30 at0018 = ╱dc╱=╱ // 0x3e2a @0x18
0x3e12…3e30 at0019 = ╱4b╱K╱ // 0x3e2b @0x19
0x3e12…3e30 at001a = ╱32╱2╱ // 0x3e2c @0x1a
0x3e12…3e30 at001b = ╱e2╱+╱ // 0x3e2d @0x1b
0x3e12…3e30 at001c = ╱45╱E╱ // 0x3e2e @0x1c
0x3e12…3e30 at001d = EOL // 0x3e2f @0x1d
0x3e12…3e30 }
0x3e30…3e36 cb8d 7940 ENDIF
0x3e30…3e36 LineComalBin {
0x3e30…3e36 ptr = 0xcb8d // 0x3e30 @0x0
0x3e30…3e36 lno = 0x1f04 // 0x3e32 @0x2
0x3e30…3e36 at0004 = ╱9b╱ ENDIF ╱ // 0x3e34 @0x4
0x3e30…3e36 at0005 = EOL // 0x3e35 @0x5
0x3e30…3e36 }
0x3e36…3e3c cb93 7950 ENDIF
0x3e36…3e3c LineComalBin {
0x3e36…3e3c ptr = 0xcb93 // 0x3e36 @0x0
0x3e36…3e3c lno = 0x1f0e // 0x3e38 @0x2
0x3e36…3e3c at0004 = ╱9b╱ ENDIF ╱ // 0x3e3a @0x4
0x3e36…3e3c at0005 = EOL // 0x3e3b @0x5
0x3e36…3e3c }
0x3e3c…3e42 cb99 7960 ENDCASE
0x3e3c…3e42 LineComalBin {
0x3e3c…3e42 ptr = 0xcb99 // 0x3e3c @0x0
0x3e3c…3e42 lno = 0x1f18 // 0x3e3e @0x2
0x3e3c…3e42 at0004 = ╱a4╱ ENDCASE ╱ // 0x3e40 @0x4
0x3e3c…3e42 at0005 = EOL // 0x3e41 @0x5
0x3e3c…3e42 }
0x3e42…3e48 cb9f 7970 ENDIF
0x3e42…3e48 LineComalBin {
0x3e42…3e48 ptr = 0xcb9f // 0x3e42 @0x0
0x3e42…3e48 lno = 0x1f22 // 0x3e44 @0x2
0x3e42…3e48 at0004 = ╱9b╱ ENDIF ╱ // 0x3e46 @0x4
0x3e42…3e48 at0005 = EOL // 0x3e47 @0x5
0x3e42…3e48 }
0x3e48…3e4e cba5 7980 ENDIF
0x3e48…3e4e LineComalBin {
0x3e48…3e4e ptr = 0xcba5 // 0x3e48 @0x0
0x3e48…3e4e lno = 0x1f2c // 0x3e4a @0x2
0x3e48…3e4e at0004 = ╱9b╱ ENDIF ╱ // 0x3e4c @0x4
0x3e48…3e4e at0005 = EOL // 0x3e4d @0x5
0x3e48…3e4e }
0x3e4e…3e66 cbbd 7990 UNTIL P=B OR P=-V OR P=-7
0x3e4e…3e66 LineComalBin {
0x3e4e…3e66 ptr = 0xcbbd // 0x3e4e @0x0
0x3e4e…3e66 lno = 0x1f36 // 0x3e50 @0x2
0x3e4e…3e66 at0004 = ╱98╱ UNTIL ╱ // 0x3e52 @0x4
0x3e4e…3e66 at0005 = ╱50╱P╱ // 0x3e53 @0x5
0x3e4e…3e66 at0006 = ╱dc╱=╱ // 0x3e54 @0x6
0x3e4e…3e66 at0007 = ╱42╱B╱ // 0x3e55 @0x7
0x3e4e…3e66 at0008 = ╱db╱ OR ╱ // 0x3e56 @0x8
0x3e4e…3e66 at0009 = ╱50╱P╱ // 0x3e57 @0x9
0x3e4e…3e66 at000a = ╱dc╱=╱ // 0x3e58 @0xa
0x3e4e…3e66 at000b = ╱e9╱-╱ // 0x3e59 @0xb
0x3e4e…3e66 at000c = ╱56╱V╱ // 0x3e5a @0xc
0x3e4e…3e66 at000d = ╱db╱ OR ╱ // 0x3e5b @0xd
0x3e4e…3e66 at000e = ╱50╱P╱ // 0x3e5c @0xe
0x3e4e…3e66 at000f = ╱dc╱=╱ // 0x3e5d @0xf
0x3e4e…3e66 at0010 = ╱e9╱-╱ // 0x3e5e @0x10
0x3e4e…3e66 at0011 = ╱37╱7╱ // 0x3e5f @0x11
0x3e4e…3e66 at0012 = ╱fe0000e003╱ // 0x3e60 @0x12
0x3e4e…3e66 at0017 = EOL // 0x3e65 @0x17
0x3e4e…3e66 }
0x3e66…3e73 cbca 8000 WHEN 7
0x3e66…3e73 LineComalBin {
0x3e66…3e73 ptr = 0xcbca // 0x3e66 @0x0
0x3e66…3e73 lno = 0x1f40 // 0x3e68 @0x2
0x3e66…3e73 at0004 = ╱a301╱ WHEN ╱ // 0x3e6a @0x4
0x3e66…3e73 at0006 = ╱37╱7╱ // 0x3e6c @0x6
0x3e66…3e73 at0007 = ╱fe0000e003╱ // 0x3e6d @0x7
0x3e66…3e73 at000c = EOL // 0x3e72 @0xc
0x3e66…3e73 }
0x3e73…3e8c cbe3 8010 J8=1000000;F5=B
0x3e73…3e8c LineComalBin {
0x3e73…3e8c ptr = 0xcbe3 // 0x3e73 @0x0
0x3e73…3e8c lno = 0x1f4a // 0x3e75 @0x2
0x3e73…3e8c at0004 = ╱4a╱J╱ // 0x3e77 @0x4
0x3e73…3e8c at0005 = ╱38╱8╱ // 0x3e78 @0x5
0x3e73…3e8c at0006 = ╱dc╱=╱ // 0x3e79 @0x6
0x3e73…3e8c at0007 = ╱31╱1╱ // 0x3e7a @0x7
0x3e73…3e8c at0008 = ╱30╱0╱ // 0x3e7b @0x8
0x3e73…3e8c at0009 = ╱30╱0╱ // 0x3e7c @0x9
0x3e73…3e8c at000a = ╱30╱0╱ // 0x3e7d @0xa
0x3e73…3e8c at000b = ╱30╱0╱ // 0x3e7e @0xb
0x3e73…3e8c at000c = ╱30╱0╱ // 0x3e7f @0xc
0x3e73…3e8c at000d = ╱30╱0╱ // 0x3e80 @0xd
0x3e73…3e8c at000e = ╱fe0024f414╱ // 0x3e81 @0xe
0x3e73…3e8c at0013 = ╱eb╱;╱ // 0x3e86 @0x13
0x3e73…3e8c at0014 = ╱46╱F╱ // 0x3e87 @0x14
0x3e73…3e8c at0015 = ╱35╱5╱ // 0x3e88 @0x15
0x3e73…3e8c at0016 = ╱dc╱=╱ // 0x3e89 @0x16
0x3e73…3e8c at0017 = ╱42╱B╱ // 0x3e8a @0x17
0x3e73…3e8c at0018 = EOL // 0x3e8b @0x18
0x3e73…3e8c }
0x3e8c…3ea1 cbf8 8020 IF J7<>100000 THEN
0x3e8c…3ea1 LineComalBin {
0x3e8c…3ea1 ptr = 0xcbf8 // 0x3e8c @0x0
0x3e8c…3ea1 lno = 0x1f54 // 0x3e8e @0x2
0x3e8c…3ea1 at0004 = ╱9c╱ IF ╱ // 0x3e90 @0x4
0x3e8c…3ea1 at0005 = ╱4a╱J╱ // 0x3e91 @0x5
0x3e8c…3ea1 at0006 = ╱37╱7╱ // 0x3e92 @0x6
0x3e8c…3ea1 at0007 = ╱e1╱<>╱ // 0x3e93 @0x7
0x3e8c…3ea1 at0008 = ╱31╱1╱ // 0x3e94 @0x8
0x3e8c…3ea1 at0009 = ╱30╱0╱ // 0x3e95 @0x9
0x3e8c…3ea1 at000a = ╱30╱0╱ // 0x3e96 @0xa
0x3e8c…3ea1 at000b = ╱30╱0╱ // 0x3e97 @0xb
0x3e8c…3ea1 at000c = ╱30╱0╱ // 0x3e98 @0xc
0x3e8c…3ea1 at000d = ╱30╱0╱ // 0x3e99 @0xd
0x3e8c…3ea1 at000e = ╱fe0050c311╱ // 0x3e9a @0xe
0x3e8c…3ea1 at0013 = ╱b6╱ THEN ╱ // 0x3e9f @0x13
0x3e8c…3ea1 at0014 = EOL // 0x3ea0 @0x14
0x3e8c…3ea1 }
0x3ea1…3ea7 cbfe 8030 REPEAT
0x3ea1…3ea7 LineComalBin {
0x3ea1…3ea7 ptr = 0xcbfe // 0x3ea1 @0x0
0x3ea1…3ea7 lno = 0x1f5e // 0x3ea3 @0x2
0x3ea1…3ea7 at0004 = ╱97╱ REPEAT ╱ // 0x3ea5 @0x4
0x3ea1…3ea7 at0005 = EOL // 0x3ea6 @0x5
0x3ea1…3ea7 }
0x3ea7…3ead cc04 8040 REPEAT
0x3ea7…3ead LineComalBin {
0x3ea7…3ead ptr = 0xcc04 // 0x3ea7 @0x0
0x3ea7…3ead lno = 0x1f68 // 0x3ea9 @0x2
0x3ea7…3ead at0004 = ╱97╱ REPEAT ╱ // 0x3eab @0x4
0x3ea7…3ead at0005 = EOL // 0x3eac @0x5
0x3ea7…3ead }
0x3ead…3ebc cc13 8050 CURSOR V,23
0x3ead…3ebc LineComalBin {
0x3ead…3ebc ptr = 0xcc13 // 0x3ead @0x0
0x3ead…3ebc lno = 0x1f72 // 0x3eaf @0x2
0x3ead…3ebc at0004 = ╱a1╱ CURSOR ╱ // 0x3eb1 @0x4
0x3ead…3ebc at0005 = ╱56╱V╱ // 0x3eb2 @0x5
0x3ead…3ebc at0006 = ╱ec╱,╱ // 0x3eb3 @0x6
0x3ead…3ebc at0007 = ╱32╱2╱ // 0x3eb4 @0x7
0x3ead…3ebc at0008 = ╱33╱3╱ // 0x3eb5 @0x8
0x3ead…3ebc at0009 = ╱fe0000b805╱ // 0x3eb6 @0x9
0x3ead…3ebc at000e = EOL // 0x3ebb @0xe
0x3ead…3ebc }
0x3ebc…3f05 cc5c 8060 PRINT "Kredit-entreprisekonto (RETURN:overspringes)";E2$(E:24)
0x3ebc…3f05 LineComalBin {
0x3ebc…3f05 ptr = 0xcc5c // 0x3ebc @0x0
0x3ebc…3f05 lno = 0x1f7c // 0x3ebe @0x2
0x3ebc…3f05 at0004 = ╱92╱ PRINT ╱ // 0x3ec0 @0x4
0x3ebc…3f05 at0005 = ╱22╱"╱ // 0x3ec1 @0x5
0x3ebc…3f05 at0006 = ╱4b╱K╱ // 0x3ec2 @0x6
0x3ebc…3f05 at0007 = ╱72╱r╱ // 0x3ec3 @0x7
0x3ebc…3f05 at0008 = ╱65╱e╱ // 0x3ec4 @0x8
0x3ebc…3f05 at0009 = ╱64╱d╱ // 0x3ec5 @0x9
0x3ebc…3f05 at000a = ╱69╱i╱ // 0x3ec6 @0xa
0x3ebc…3f05 at000b = ╱74╱t╱ // 0x3ec7 @0xb
0x3ebc…3f05 at000c = ╱2d╱-╱ // 0x3ec8 @0xc
0x3ebc…3f05 at000d = ╱65╱e╱ // 0x3ec9 @0xd
0x3ebc…3f05 at000e = ╱6e╱n╱ // 0x3eca @0xe
0x3ebc…3f05 at000f = ╱74╱t╱ // 0x3ecb @0xf
0x3ebc…3f05 at0010 = ╱72╱r╱ // 0x3ecc @0x10
0x3ebc…3f05 at0011 = ╱65╱e╱ // 0x3ecd @0x11
0x3ebc…3f05 at0012 = ╱70╱p╱ // 0x3ece @0x12
0x3ebc…3f05 at0013 = ╱72╱r╱ // 0x3ecf @0x13
0x3ebc…3f05 at0014 = ╱69╱i╱ // 0x3ed0 @0x14
0x3ebc…3f05 at0015 = ╱73╱s╱ // 0x3ed1 @0x15
0x3ebc…3f05 at0016 = ╱65╱e╱ // 0x3ed2 @0x16
0x3ebc…3f05 at0017 = ╱6b╱k╱ // 0x3ed3 @0x17
0x3ebc…3f05 at0018 = ╱6f╱o╱ // 0x3ed4 @0x18
0x3ebc…3f05 at0019 = ╱6e╱n╱ // 0x3ed5 @0x19
0x3ebc…3f05 at001a = ╱74╱t╱ // 0x3ed6 @0x1a
0x3ebc…3f05 at001b = ╱6f╱o╱ // 0x3ed7 @0x1b
0x3ebc…3f05 at001c = ╱20╱…╱ // 0x3ed8 @0x1c
0x3ebc…3f05 at001d = ╱20╱…╱ // 0x3ed9 @0x1d
0x3ebc…3f05 at001e = ╱20╱…╱ // 0x3eda @0x1e
0x3ebc…3f05 at001f = ╱20╱…╱ // 0x3edb @0x1f
0x3ebc…3f05 at0020 = ╱20╱…╱ // 0x3edc @0x20
0x3ebc…3f05 at0021 = ╱20╱…╱ // 0x3edd @0x21
0x3ebc…3f05 at0022 = ╱20╱…╱ // 0x3ede @0x22
0x3ebc…3f05 at0023 = ╱28╱(╱ // 0x3edf @0x23
0x3ebc…3f05 at0024 = ╱52╱R╱ // 0x3ee0 @0x24
0x3ebc…3f05 at0025 = ╱45╱E╱ // 0x3ee1 @0x25
0x3ebc…3f05 at0026 = ╱54╱T╱ // 0x3ee2 @0x26
0x3ebc…3f05 at0027 = ╱55╱U╱ // 0x3ee3 @0x27
0x3ebc…3f05 at0028 = ╱52╱R╱ // 0x3ee4 @0x28
0x3ebc…3f05 at0029 = ╱4e╱N╱ // 0x3ee5 @0x29
0x3ebc…3f05 at002a = ╱3a╱:╱ // 0x3ee6 @0x2a
0x3ebc…3f05 at002b = ╱6f╱o╱ // 0x3ee7 @0x2b
0x3ebc…3f05 at002c = ╱76╱v╱ // 0x3ee8 @0x2c
0x3ebc…3f05 at002d = ╱65╱e╱ // 0x3ee9 @0x2d
0x3ebc…3f05 at002e = ╱72╱r╱ // 0x3eea @0x2e
0x3ebc…3f05 at002f = ╱73╱s╱ // 0x3eeb @0x2f
0x3ebc…3f05 at0030 = ╱70╱p╱ // 0x3eec @0x30
0x3ebc…3f05 at0031 = ╱72╱r╱ // 0x3eed @0x31
0x3ebc…3f05 at0032 = ╱69╱i╱ // 0x3eee @0x32
0x3ebc…3f05 at0033 = ╱6e╱n╱ // 0x3eef @0x33
0x3ebc…3f05 at0034 = ╱67╱g╱ // 0x3ef0 @0x34
0x3ebc…3f05 at0035 = ╱65╱e╱ // 0x3ef1 @0x35
0x3ebc…3f05 at0036 = ╱73╱s╱ // 0x3ef2 @0x36
0x3ebc…3f05 at0037 = ╱29╱)╱ // 0x3ef3 @0x37
0x3ebc…3f05 at0038 = ╱22╱"╱ // 0x3ef4 @0x38
0x3ebc…3f05 at0039 = ╱eb╱;╱ // 0x3ef5 @0x39
0x3ebc…3f05 at003a = ╱45╱E╱ // 0x3ef6 @0x3a
0x3ebc…3f05 at003b = ╱32╱2╱ // 0x3ef7 @0x3b
0x3ebc…3f05 at003c = ╱ef╱$╱ // 0x3ef8 @0x3c
0x3ebc…3f05 at003d = ╱ed╱(╱ // 0x3ef9 @0x3d
0x3ebc…3f05 at003e = ╱45╱E╱ // 0x3efa @0x3e
0x3ebc…3f05 at003f = ╱f0╱:╱ // 0x3efb @0x3f
0x3ebc…3f05 at0040 = ╱32╱2╱ // 0x3efc @0x40
0x3ebc…3f05 at0041 = ╱34╱4╱ // 0x3efd @0x41
0x3ebc…3f05 at0042 = ╱fe0000c005╱ // 0x3efe @0x42
0x3ebc…3f05 at0047 = ╱ee╱)╱ // 0x3f03 @0x47
0x3ebc…3f05 at0048 = EOL // 0x3f04 @0x48
0x3ebc…3f05 }
0x3f05…3f1a cc71 8070 CURSOR 26,23
0x3f05…3f1a LineComalBin {
0x3f05…3f1a ptr = 0xcc71 // 0x3f05 @0x0
0x3f05…3f1a lno = 0x1f86 // 0x3f07 @0x2
0x3f05…3f1a at0004 = ╱a1╱ CURSOR ╱ // 0x3f09 @0x4
0x3f05…3f1a at0005 = ╱32╱2╱ // 0x3f0a @0x5
0x3f05…3f1a at0006 = ╱36╱6╱ // 0x3f0b @0x6
0x3f05…3f1a at0007 = ╱fe0000d005╱ // 0x3f0c @0x7
0x3f05…3f1a at000c = ╱ec╱,╱ // 0x3f11 @0xc
0x3f05…3f1a at000d = ╱32╱2╱ // 0x3f12 @0xd
0x3f05…3f1a at000e = ╱33╱3╱ // 0x3f13 @0xe
0x3f05…3f1a at000f = ╱fe0000b805╱ // 0x3f14 @0xf
0x3f05…3f1a at0014 = EOL // 0x3f19 @0x14
0x3f05…3f1a }
0x3f1a…3f23 cc7a 8080 INPUT D7$
0x3f1a…3f23 LineComalBin {
0x3f1a…3f23 ptr = 0xcc7a // 0x3f1a @0x0
0x3f1a…3f23 lno = 0x1f90 // 0x3f1c @0x2
0x3f1a…3f23 at0004 = ╱91╱ INPUT ╱ // 0x3f1e @0x4
0x3f1a…3f23 at0005 = ╱44╱D╱ // 0x3f1f @0x5
0x3f1a…3f23 at0006 = ╱37╱7╱ // 0x3f20 @0x6
0x3f1a…3f23 at0007 = ╱ef╱$╱ // 0x3f21 @0x7
0x3f1a…3f23 at0008 = EOL // 0x3f22 @0x8
0x3f1a…3f23 }
0x3f23…3f34 cc8b 8090 EXEC NRTEST(D7$)
0x3f23…3f34 LineComalBin {
0x3f23…3f34 ptr = 0xcc8b // 0x3f23 @0x0
0x3f23…3f34 lno = 0x1f9a // 0x3f25 @0x2
0x3f23…3f34 at0004 = ╱9d╱ EXEC ╱ // 0x3f27 @0x4
0x3f23…3f34 at0005 = ╱4e╱N╱ // 0x3f28 @0x5
0x3f23…3f34 at0006 = ╱52╱R╱ // 0x3f29 @0x6
0x3f23…3f34 at0007 = ╱54╱T╱ // 0x3f2a @0x7
0x3f23…3f34 at0008 = ╱45╱E╱ // 0x3f2b @0x8
0x3f23…3f34 at0009 = ╱53╱S╱ // 0x3f2c @0x9
0x3f23…3f34 at000a = ╱54╱T╱ // 0x3f2d @0xa
0x3f23…3f34 at000b = ╱ed╱(╱ // 0x3f2e @0xb
0x3f23…3f34 at000c = ╱44╱D╱ // 0x3f2f @0xc
0x3f23…3f34 at000d = ╱37╱7╱ // 0x3f30 @0xd
0x3f23…3f34 at000e = ╱ef╱$╱ // 0x3f31 @0xe
0x3f23…3f34 at000f = ╱ee╱)╱ // 0x3f32 @0xf
0x3f23…3f34 at0010 = EOL // 0x3f33 @0x10
0x3f23…3f34 }
0x3f34…3f4d cca4 8100 UNTIL M9=5 AND M8=B OR P=-E
0x3f34…3f4d LineComalBin {
0x3f34…3f4d ptr = 0xcca4 // 0x3f34 @0x0
0x3f34…3f4d lno = 0x1fa4 // 0x3f36 @0x2
0x3f34…3f4d at0004 = ╱98╱ UNTIL ╱ // 0x3f38 @0x4
0x3f34…3f4d at0005 = ╱4d╱M╱ // 0x3f39 @0x5
0x3f34…3f4d at0006 = ╱39╱9╱ // 0x3f3a @0x6
0x3f34…3f4d at0007 = ╱dc╱=╱ // 0x3f3b @0x7
0x3f34…3f4d at0008 = ╱35╱5╱ // 0x3f3c @0x8
0x3f34…3f4d at0009 = ╱fe0000a003╱ // 0x3f3d @0x9
0x3f34…3f4d at000e = ╱da╱ AND ╱ // 0x3f42 @0xe
0x3f34…3f4d at000f = ╱4d╱M╱ // 0x3f43 @0xf
0x3f34…3f4d at0010 = ╱38╱8╱ // 0x3f44 @0x10
0x3f34…3f4d at0011 = ╱dc╱=╱ // 0x3f45 @0x11
0x3f34…3f4d at0012 = ╱42╱B╱ // 0x3f46 @0x12
0x3f34…3f4d at0013 = ╱db╱ OR ╱ // 0x3f47 @0x13
0x3f34…3f4d at0014 = ╱50╱P╱ // 0x3f48 @0x14
0x3f34…3f4d at0015 = ╱dc╱=╱ // 0x3f49 @0x15
0x3f34…3f4d at0016 = ╱e9╱-╱ // 0x3f4a @0x16
0x3f34…3f4d at0017 = ╱45╱E╱ // 0x3f4b @0x17
0x3f34…3f4d at0018 = EOL // 0x3f4c @0x18
0x3f34…3f4d }
0x3f4d…3f66 ccbd 8110 J8=1000000;F5=B
0x3f4d…3f66 LineComalBin {
0x3f4d…3f66 ptr = 0xccbd // 0x3f4d @0x0
0x3f4d…3f66 lno = 0x1fae // 0x3f4f @0x2
0x3f4d…3f66 at0004 = ╱4a╱J╱ // 0x3f51 @0x4
0x3f4d…3f66 at0005 = ╱38╱8╱ // 0x3f52 @0x5
0x3f4d…3f66 at0006 = ╱dc╱=╱ // 0x3f53 @0x6
0x3f4d…3f66 at0007 = ╱31╱1╱ // 0x3f54 @0x7
0x3f4d…3f66 at0008 = ╱30╱0╱ // 0x3f55 @0x8
0x3f4d…3f66 at0009 = ╱30╱0╱ // 0x3f56 @0x9
0x3f4d…3f66 at000a = ╱30╱0╱ // 0x3f57 @0xa
0x3f4d…3f66 at000b = ╱30╱0╱ // 0x3f58 @0xb
0x3f4d…3f66 at000c = ╱30╱0╱ // 0x3f59 @0xc
0x3f4d…3f66 at000d = ╱30╱0╱ // 0x3f5a @0xd
0x3f4d…3f66 at000e = ╱fe0024f414╱ // 0x3f5b @0xe
0x3f4d…3f66 at0013 = ╱eb╱;╱ // 0x3f60 @0x13
0x3f4d…3f66 at0014 = ╱46╱F╱ // 0x3f61 @0x14
0x3f4d…3f66 at0015 = ╱35╱5╱ // 0x3f62 @0x15
0x3f4d…3f66 at0016 = ╱dc╱=╱ // 0x3f63 @0x16
0x3f4d…3f66 at0017 = ╱42╱B╱ // 0x3f64 @0x17
0x3f4d…3f66 at0018 = EOL // 0x3f65 @0x18
0x3f4d…3f66 }
0x3f66…3f72 ccc9 8120 IF P=-E THEN EXIT
0x3f66…3f72 LineComalBin {
0x3f66…3f72 ptr = 0xccc9 // 0x3f66 @0x0
0x3f66…3f72 lno = 0x1fb8 // 0x3f68 @0x2
0x3f66…3f72 at0004 = ╱82╱ IF ╱ // 0x3f6a @0x4
0x3f66…3f72 at0005 = ╱50╱P╱ // 0x3f6b @0x5
0x3f66…3f72 at0006 = ╱dc╱=╱ // 0x3f6c @0x6
0x3f66…3f72 at0007 = ╱e9╱-╱ // 0x3f6d @0x7
0x3f66…3f72 at0008 = ╱45╱E╱ // 0x3f6e @0x8
0x3f66…3f72 at0009 = ╱b6╱ THEN ╱ // 0x3f6f @0x9
0x3f66…3f72 at000a = ╱99╱ EXIT ╱ // 0x3f70 @0xa
0x3f66…3f72 at000b = EOL // 0x3f71 @0xb
0x3f66…3f72 }
0x3f72…3f7b ccd2 8130 J8=P
0x3f72…3f7b LineComalBin {
0x3f72…3f7b ptr = 0xccd2 // 0x3f72 @0x0
0x3f72…3f7b lno = 0x1fc2 // 0x3f74 @0x2
0x3f72…3f7b at0004 = ╱4a╱J╱ // 0x3f76 @0x4
0x3f72…3f7b at0005 = ╱38╱8╱ // 0x3f77 @0x5
0x3f72…3f7b at0006 = ╱dc╱=╱ // 0x3f78 @0x6
0x3f72…3f7b at0007 = ╱50╱P╱ // 0x3f79 @0x7
0x3f72…3f7b at0008 = EOL // 0x3f7a @0x8
0x3f72…3f7b }
0x3f7b…3f8c cce3 8140 EXEC ENTKOOK(J8)
0x3f7b…3f8c LineComalBin {
0x3f7b…3f8c ptr = 0xcce3 // 0x3f7b @0x0
0x3f7b…3f8c lno = 0x1fcc // 0x3f7d @0x2
0x3f7b…3f8c at0004 = ╱9d╱ EXEC ╱ // 0x3f7f @0x4
0x3f7b…3f8c at0005 = ╱45╱E╱ // 0x3f80 @0x5
0x3f7b…3f8c at0006 = ╱4e╱N╱ // 0x3f81 @0x6
0x3f7b…3f8c at0007 = ╱54╱T╱ // 0x3f82 @0x7
0x3f7b…3f8c at0008 = ╱4b╱K╱ // 0x3f83 @0x8
0x3f7b…3f8c at0009 = ╱4f╱O╱ // 0x3f84 @0x9
0x3f7b…3f8c at000a = ╱4f╱O╱ // 0x3f85 @0xa
0x3f7b…3f8c at000b = ╱4b╱K╱ // 0x3f86 @0xb
0x3f7b…3f8c at000c = ╱ed╱(╱ // 0x3f87 @0xc
0x3f7b…3f8c at000d = ╱4a╱J╱ // 0x3f88 @0xd
0x3f7b…3f8c at000e = ╱38╱8╱ // 0x3f89 @0xe
0x3f7b…3f8c at000f = ╱ee╱)╱ // 0x3f8a @0xf
0x3f7b…3f8c at0010 = EOL // 0x3f8b @0x10
0x3f7b…3f8c }
0x3f8c…3f9b ccf2 8150 UNTIL P=-7
0x3f8c…3f9b LineComalBin {
0x3f8c…3f9b ptr = 0xccf2 // 0x3f8c @0x0
0x3f8c…3f9b lno = 0x1fd6 // 0x3f8e @0x2
0x3f8c…3f9b at0004 = ╱98╱ UNTIL ╱ // 0x3f90 @0x4
0x3f8c…3f9b at0005 = ╱50╱P╱ // 0x3f91 @0x5
0x3f8c…3f9b at0006 = ╱dc╱=╱ // 0x3f92 @0x6
0x3f8c…3f9b at0007 = ╱e9╱-╱ // 0x3f93 @0x7
0x3f8c…3f9b at0008 = ╱37╱7╱ // 0x3f94 @0x8
0x3f8c…3f9b at0009 = ╱fe0000e003╱ // 0x3f95 @0x9
0x3f8c…3f9b at000e = EOL // 0x3f9a @0xe
0x3f8c…3f9b }
0x3f9b…3fa1 ccf8 8160 ENDIF
0x3f9b…3fa1 LineComalBin {
0x3f9b…3fa1 ptr = 0xccf8 // 0x3f9b @0x0
0x3f9b…3fa1 lno = 0x1fe0 // 0x3f9d @0x2
0x3f9b…3fa1 at0004 = ╱9b╱ ENDIF ╱ // 0x3f9f @0x4
0x3f9b…3fa1 at0005 = EOL // 0x3fa0 @0x5
0x3f9b…3fa1 }
0x3fa1…3faf cd06 8170 EXEC KNUD(J8)
0x3fa1…3faf LineComalBin {
0x3fa1…3faf ptr = 0xcd06 // 0x3fa1 @0x0
0x3fa1…3faf lno = 0x1fea // 0x3fa3 @0x2
0x3fa1…3faf at0004 = ╱9d╱ EXEC ╱ // 0x3fa5 @0x4
0x3fa1…3faf at0005 = ╱4b╱K╱ // 0x3fa6 @0x5
0x3fa1…3faf at0006 = ╱4e╱N╱ // 0x3fa7 @0x6
0x3fa1…3faf at0007 = ╱55╱U╱ // 0x3fa8 @0x7
0x3fa1…3faf at0008 = ╱44╱D╱ // 0x3fa9 @0x8
0x3fa1…3faf at0009 = ╱ed╱(╱ // 0x3faa @0x9
0x3fa1…3faf at000a = ╱4a╱J╱ // 0x3fab @0xa
0x3fa1…3faf at000b = ╱38╱8╱ // 0x3fac @0xb
0x3fa1…3faf at000c = ╱ee╱)╱ // 0x3fad @0xc
0x3fa1…3faf at000d = EOL // 0x3fae @0xd
0x3fa1…3faf }
0x3faf…3fcb cd22 8180 IF J6+O6=G AND F5=B THEN E8(K1)=J8
0x3faf…3fcb LineComalBin {
0x3faf…3fcb ptr = 0xcd22 // 0x3faf @0x0
0x3faf…3fcb lno = 0x1ff4 // 0x3fb1 @0x2
0x3faf…3fcb at0004 = ╱82╱ IF ╱ // 0x3fb3 @0x4
0x3faf…3fcb at0005 = ╱4a╱J╱ // 0x3fb4 @0x5
0x3faf…3fcb at0006 = ╱36╱6╱ // 0x3fb5 @0x6
0x3faf…3fcb at0007 = ╱e2╱+╱ // 0x3fb6 @0x7
0x3faf…3fcb at0008 = ╱4f╱O╱ // 0x3fb7 @0x8
0x3faf…3fcb at0009 = ╱36╱6╱ // 0x3fb8 @0x9
0x3faf…3fcb at000a = ╱dc╱=╱ // 0x3fb9 @0xa
0x3faf…3fcb at000b = ╱47╱G╱ // 0x3fba @0xb
0x3faf…3fcb at000c = ╱da╱ AND ╱ // 0x3fbb @0xc
0x3faf…3fcb at000d = ╱46╱F╱ // 0x3fbc @0xd
0x3faf…3fcb at000e = ╱35╱5╱ // 0x3fbd @0xe
0x3faf…3fcb at000f = ╱dc╱=╱ // 0x3fbe @0xf
0x3faf…3fcb at0010 = ╱42╱B╱ // 0x3fbf @0x10
0x3faf…3fcb at0011 = ╱b6╱ THEN ╱ // 0x3fc0 @0x11
0x3faf…3fcb at0012 = ╱45╱E╱ // 0x3fc1 @0x12
0x3faf…3fcb at0013 = ╱38╱8╱ // 0x3fc2 @0x13
0x3faf…3fcb at0014 = ╱ed╱(╱ // 0x3fc3 @0x14
0x3faf…3fcb at0015 = ╱4b╱K╱ // 0x3fc4 @0x15
0x3faf…3fcb at0016 = ╱31╱1╱ // 0x3fc5 @0x16
0x3faf…3fcb at0017 = ╱ee╱)╱ // 0x3fc6 @0x17
0x3faf…3fcb at0018 = ╱dc╱=╱ // 0x3fc7 @0x18
0x3faf…3fcb at0019 = ╱4a╱J╱ // 0x3fc8 @0x19
0x3faf…3fcb at001a = ╱38╱8╱ // 0x3fc9 @0x1a
0x3faf…3fcb at001b = EOL // 0x3fca @0x1b
0x3faf…3fcb }
0x3fcb…3fde cd35 8185 IF J6+O6=B THEN EXEC PPUT
0x3fcb…3fde LineComalBin {
0x3fcb…3fde ptr = 0xcd35 // 0x3fcb @0x0
0x3fcb…3fde lno = 0x1ff9 // 0x3fcd @0x2
0x3fcb…3fde at0004 = ╱82╱ IF ╱ // 0x3fcf @0x4
0x3fcb…3fde at0005 = ╱4a╱J╱ // 0x3fd0 @0x5
0x3fcb…3fde at0006 = ╱36╱6╱ // 0x3fd1 @0x6
0x3fcb…3fde at0007 = ╱e2╱+╱ // 0x3fd2 @0x7
0x3fcb…3fde at0008 = ╱4f╱O╱ // 0x3fd3 @0x8
0x3fcb…3fde at0009 = ╱36╱6╱ // 0x3fd4 @0x9
0x3fcb…3fde at000a = ╱dc╱=╱ // 0x3fd5 @0xa
0x3fcb…3fde at000b = ╱42╱B╱ // 0x3fd6 @0xb
0x3fcb…3fde at000c = ╱b6╱ THEN ╱ // 0x3fd7 @0xc
0x3fcb…3fde at000d = ╱9d╱ EXEC ╱ // 0x3fd8 @0xd
0x3fcb…3fde at000e = ╱50╱P╱ // 0x3fd9 @0xe
0x3fcb…3fde at000f = ╱50╱P╱ // 0x3fda @0xf
0x3fcb…3fde at0010 = ╱55╱U╱ // 0x3fdb @0x10
0x3fcb…3fde at0011 = ╱54╱T╱ // 0x3fdc @0x11
0x3fcb…3fde at0012 = EOL // 0x3fdd @0x12
0x3fcb…3fde }
0x3fde…3feb cd42 8190 WHEN 8
0x3fde…3feb LineComalBin {
0x3fde…3feb ptr = 0xcd42 // 0x3fde @0x0
0x3fde…3feb lno = 0x1ffe // 0x3fe0 @0x2
0x3fde…3feb at0004 = ╱a301╱ WHEN ╱ // 0x3fe2 @0x4
0x3fde…3feb at0006 = ╱38╱8╱ // 0x3fe4 @0x6
0x3fde…3feb at0007 = ╱fe00008004╱ // 0x3fe5 @0x7
0x3fde…3feb at000c = EOL // 0x3fea @0xc
0x3fde…3feb }
0x3feb…3ff1 cd48 8200 REPEAT
0x3feb…3ff1 LineComalBin {
0x3feb…3ff1 ptr = 0xcd48 // 0x3feb @0x0
0x3feb…3ff1 lno = 0x2008 // 0x3fed @0x2
0x3feb…3ff1 at0004 = ╱97╱ REPEAT ╱ // 0x3fef @0x4
0x3feb…3ff1 at0005 = EOL // 0x3ff0 @0x5
0x3feb…3ff1 }
0x3ff1…4000 cd57 8210 CURSOR V,23
0x3ff1…4000 LineComalBin {
0x3ff1…4000 ptr = 0xcd57 // 0x3ff1 @0x0
0x3ff1…4000 lno = 0x2012 // 0x3ff3 @0x2
0x3ff1…4000 at0004 = ╱a1╱ CURSOR ╱ // 0x3ff5 @0x4
0x3ff1…4000 at0005 = ╱56╱V╱ // 0x3ff6 @0x5
0x3ff1…4000 at0006 = ╱ec╱,╱ // 0x3ff7 @0x6
0x3ff1…4000 at0007 = ╱32╱2╱ // 0x3ff8 @0x7
0x3ff1…4000 at0008 = ╱33╱3╱ // 0x3ff9 @0x8
0x3ff1…4000 at0009 = ╱fe0000b805╱ // 0x3ffa @0x9
0x3ff1…4000 at000e = EOL // 0x3fff @0xe
0x3ff1…4000 }
0x4000…402e cd85 8220 PRINT "Ønskes afslutning (J/N)"+E2$(E:54)
0x4000…402e LineComalBin {
0x4000…402e ptr = 0xcd85 // 0x4000 @0x0
0x4000…402e lno = 0x201c // 0x4002 @0x2
0x4000…402e at0004 = ╱92╱ PRINT ╱ // 0x4004 @0x4
0x4000…402e at0005 = ╱22╱"╱ // 0x4005 @0x5
0x4000…402e at0006 = ╱5c╱Ø╱ // 0x4006 @0x6
0x4000…402e at0007 = ╱6e╱n╱ // 0x4007 @0x7
0x4000…402e at0008 = ╱73╱s╱ // 0x4008 @0x8
0x4000…402e at0009 = ╱6b╱k╱ // 0x4009 @0x9
0x4000…402e at000a = ╱65╱e╱ // 0x400a @0xa
0x4000…402e at000b = ╱73╱s╱ // 0x400b @0xb
0x4000…402e at000c = ╱20╱…╱ // 0x400c @0xc
0x4000…402e at000d = ╱61╱a╱ // 0x400d @0xd
0x4000…402e at000e = ╱66╱f╱ // 0x400e @0xe
0x4000…402e at000f = ╱73╱s╱ // 0x400f @0xf
0x4000…402e at0010 = ╱6c╱l╱ // 0x4010 @0x10
0x4000…402e at0011 = ╱75╱u╱ // 0x4011 @0x11
0x4000…402e at0012 = ╱74╱t╱ // 0x4012 @0x12
0x4000…402e at0013 = ╱6e╱n╱ // 0x4013 @0x13
0x4000…402e at0014 = ╱69╱i╱ // 0x4014 @0x14
0x4000…402e at0015 = ╱6e╱n╱ // 0x4015 @0x15
0x4000…402e at0016 = ╱67╱g╱ // 0x4016 @0x16
0x4000…402e at0017 = ╱20╱…╱ // 0x4017 @0x17
0x4000…402e at0018 = ╱28╱(╱ // 0x4018 @0x18
0x4000…402e at0019 = ╱4a╱J╱ // 0x4019 @0x19
0x4000…402e at001a = ╱2f╱/╱ // 0x401a @0x1a
0x4000…402e at001b = ╱4e╱N╱ // 0x401b @0x1b
0x4000…402e at001c = ╱29╱)╱ // 0x401c @0x1c
0x4000…402e at001d = ╱22╱"╱ // 0x401d @0x1d
0x4000…402e at001e = ╱f1╱+╱ // 0x401e @0x1e
0x4000…402e at001f = ╱45╱E╱ // 0x401f @0x1f
0x4000…402e at0020 = ╱32╱2╱ // 0x4020 @0x20
0x4000…402e at0021 = ╱ef╱$╱ // 0x4021 @0x21
0x4000…402e at0022 = ╱ed╱(╱ // 0x4022 @0x22
0x4000…402e at0023 = ╱45╱E╱ // 0x4023 @0x23
0x4000…402e at0024 = ╱f0╱:╱ // 0x4024 @0x24
0x4000…402e at0025 = ╱35╱5╱ // 0x4025 @0x25
0x4000…402e at0026 = ╱34╱4╱ // 0x4026 @0x26
0x4000…402e at0027 = ╱fe0000d806╱ // 0x4027 @0x27
0x4000…402e at002c = ╱ee╱)╱ // 0x402c @0x2c
0x4000…402e at002d = EOL // 0x402d @0x2d
0x4000…402e }
0x402e…4043 cd9a 8230 CURSOR 27,23
0x402e…4043 LineComalBin {
0x402e…4043 ptr = 0xcd9a // 0x402e @0x0
0x402e…4043 lno = 0x2026 // 0x4030 @0x2
0x402e…4043 at0004 = ╱a1╱ CURSOR ╱ // 0x4032 @0x4
0x402e…4043 at0005 = ╱32╱2╱ // 0x4033 @0x5
0x402e…4043 at0006 = ╱37╱7╱ // 0x4034 @0x6
0x402e…4043 at0007 = ╱fe0000d805╱ // 0x4035 @0x7
0x402e…4043 at000c = ╱ec╱,╱ // 0x403a @0xc
0x402e…4043 at000d = ╱32╱2╱ // 0x403b @0xd
0x402e…4043 at000e = ╱33╱3╱ // 0x403c @0xe
0x402e…4043 at000f = ╱fe0000b805╱ // 0x403d @0xf
0x402e…4043 at0014 = EOL // 0x4042 @0x14
0x402e…4043 }
0x4043…404b cda2 8240 INPUT A$
0x4043…404b LineComalBin {
0x4043…404b ptr = 0xcda2 // 0x4043 @0x0
0x4043…404b lno = 0x2030 // 0x4045 @0x2
0x4043…404b at0004 = ╱91╱ INPUT ╱ // 0x4047 @0x4
0x4043…404b at0005 = ╱41╱A╱ // 0x4048 @0x5
0x4043…404b at0006 = ╱ef╱$╱ // 0x4049 @0x6
0x4043…404b at0007 = EOL // 0x404a @0x7
0x4043…404b }
0x404b…405b cdb2 8250 EXEC NRTEST(A$)
0x404b…405b LineComalBin {
0x404b…405b ptr = 0xcdb2 // 0x404b @0x0
0x404b…405b lno = 0x203a // 0x404d @0x2
0x404b…405b at0004 = ╱9d╱ EXEC ╱ // 0x404f @0x4
0x404b…405b at0005 = ╱4e╱N╱ // 0x4050 @0x5
0x404b…405b at0006 = ╱52╱R╱ // 0x4051 @0x6
0x404b…405b at0007 = ╱54╱T╱ // 0x4052 @0x7
0x404b…405b at0008 = ╱45╱E╱ // 0x4053 @0x8
0x404b…405b at0009 = ╱53╱S╱ // 0x4054 @0x9
0x404b…405b at000a = ╱54╱T╱ // 0x4055 @0xa
0x404b…405b at000b = ╱ed╱(╱ // 0x4056 @0xb
0x404b…405b at000c = ╱41╱A╱ // 0x4057 @0xc
0x404b…405b at000d = ╱ef╱$╱ // 0x4058 @0xd
0x404b…405b at000e = ╱ee╱)╱ // 0x4059 @0xe
0x404b…405b at000f = EOL // 0x405a @0xf
0x404b…405b }
0x405b…4074 cdcb 8260 UNTIL P=-7 OR P=-8
0x405b…4074 LineComalBin {
0x405b…4074 ptr = 0xcdcb // 0x405b @0x0
0x405b…4074 lno = 0x2044 // 0x405d @0x2
0x405b…4074 at0004 = ╱98╱ UNTIL ╱ // 0x405f @0x4
0x405b…4074 at0005 = ╱50╱P╱ // 0x4060 @0x5
0x405b…4074 at0006 = ╱dc╱=╱ // 0x4061 @0x6
0x405b…4074 at0007 = ╱e9╱-╱ // 0x4062 @0x7
0x405b…4074 at0008 = ╱37╱7╱ // 0x4063 @0x8
0x405b…4074 at0009 = ╱fe0000e003╱ // 0x4064 @0x9
0x405b…4074 at000e = ╱db╱ OR ╱ // 0x4069 @0xe
0x405b…4074 at000f = ╱50╱P╱ // 0x406a @0xf
0x405b…4074 at0010 = ╱dc╱=╱ // 0x406b @0x10
0x405b…4074 at0011 = ╱e9╱-╱ // 0x406c @0x11
0x405b…4074 at0012 = ╱38╱8╱ // 0x406d @0x12
0x405b…4074 at0013 = ╱fe00008004╱ // 0x406e @0x13
0x405b…4074 at0018 = EOL // 0x4073 @0x18
0x405b…4074 }
0x4074…4084 cddb 8270 IF P=-7 THEN
0x4074…4084 LineComalBin {
0x4074…4084 ptr = 0xcddb // 0x4074 @0x0
0x4074…4084 lno = 0x204e // 0x4076 @0x2
0x4074…4084 at0004 = ╱9c╱ IF ╱ // 0x4078 @0x4
0x4074…4084 at0005 = ╱50╱P╱ // 0x4079 @0x5
0x4074…4084 at0006 = ╱dc╱=╱ // 0x407a @0x6
0x4074…4084 at0007 = ╱e9╱-╱ // 0x407b @0x7
0x4074…4084 at0008 = ╱37╱7╱ // 0x407c @0x8
0x4074…4084 at0009 = ╱fe0000e003╱ // 0x407d @0x9
0x4074…4084 at000e = ╱b6╱ THEN ╱ // 0x4082 @0xe
0x4074…4084 at000f = EOL // 0x4083 @0xf
0x4074…4084 }
0x4084…408f cde6 8280 OPEN B1$,W
0x4084…408f LineComalBin {
0x4084…408f ptr = 0xcde6 // 0x4084 @0x0
0x4084…408f lno = 0x2058 // 0x4086 @0x2
0x4084…408f at0004 = ╱a7╱ OPEN ╱ // 0x4088 @0x4
0x4084…408f at0005 = ╱42╱B╱ // 0x4089 @0x5
0x4084…408f at0006 = ╱31╱1╱ // 0x408a @0x6
0x4084…408f at0007 = ╱ef╱$╱ // 0x408b @0x7
0x4084…408f at0008 = ╱ec╱,╱ // 0x408c @0x8
0x4084…408f at0009 = ╱57╱W╱ // 0x408d @0x9
0x4084…408f at000a = EOL // 0x408e @0xa
0x4084…408f }
0x408f…40a6 cdfd 8290 EXEC FE(W,32,B1$)
0x408f…40a6 LineComalBin {
0x408f…40a6 ptr = 0xcdfd // 0x408f @0x0
0x408f…40a6 lno = 0x2062 // 0x4091 @0x2
0x408f…40a6 at0004 = ╱9d╱ EXEC ╱ // 0x4093 @0x4
0x408f…40a6 at0005 = ╱46╱F╱ // 0x4094 @0x5
0x408f…40a6 at0006 = ╱45╱E╱ // 0x4095 @0x6
0x408f…40a6 at0007 = ╱ed╱(╱ // 0x4096 @0x7
0x408f…40a6 at0008 = ╱57╱W╱ // 0x4097 @0x8
0x408f…40a6 at0009 = ╱ec╱,╱ // 0x4098 @0x9
0x408f…40a6 at000a = ╱33╱3╱ // 0x4099 @0xa
0x408f…40a6 at000b = ╱32╱2╱ // 0x409a @0xb
0x408f…40a6 at000c = ╱fe00008006╱ // 0x409b @0xc
0x408f…40a6 at0011 = ╱ec╱,╱ // 0x40a0 @0x11
0x408f…40a6 at0012 = ╱42╱B╱ // 0x40a1 @0x12
0x408f…40a6 at0013 = ╱31╱1╱ // 0x40a2 @0x13
0x408f…40a6 at0014 = ╱ef╱$╱ // 0x40a3 @0x14
0x408f…40a6 at0015 = ╱ee╱)╱ // 0x40a4 @0x15
0x408f…40a6 at0016 = EOL // 0x40a5 @0x16
0x408f…40a6 }
0x40a6…40b4 ce0b 8300 FOR I=E TO I8-E
0x40a6…40b4 LineComalBin {
0x40a6…40b4 ptr = 0xce0b // 0x40a6 @0x0
0x40a6…40b4 lno = 0x206c // 0x40a8 @0x2
0x40a6…40b4 at0004 = ╱83╱ FOR ╱ // 0x40aa @0x4
0x40a6…40b4 at0005 = ╱49╱I╱ // 0x40ab @0x5
0x40a6…40b4 at0006 = ╱dc╱=╱ // 0x40ac @0x6
0x40a6…40b4 at0007 = ╱45╱E╱ // 0x40ad @0x7
0x40a6…40b4 at0008 = ╱b7╱ TO ╱ // 0x40ae @0x8
0x40a6…40b4 at0009 = ╱49╱I╱ // 0x40af @0x9
0x40a6…40b4 at000a = ╱38╱8╱ // 0x40b0 @0xa
0x40a6…40b4 at000b = ╱e3╱-╱ // 0x40b1 @0xb
0x40a6…40b4 at000c = ╱45╱E╱ // 0x40b2 @0xc
0x40a6…40b4 at000d = EOL // 0x40b3 @0xd
0x40a6…40b4 }
0x40b4…40d7 ce2e 8310 GET B0$,I:J1,J2,J3,B8$,E0$,C0$,J4
0x40b4…40d7 LineComalBin {
0x40b4…40d7 ptr = 0xce2e // 0x40b4 @0x0
0x40b4…40d7 lno = 0x2076 // 0x40b6 @0x2
0x40b4…40d7 at0004 = ╱a9╱ GET ╱ // 0x40b8 @0x4
0x40b4…40d7 at0005 = ╱42╱B╱ // 0x40b9 @0x5
0x40b4…40d7 at0006 = ╱30╱0╱ // 0x40ba @0x6
0x40b4…40d7 at0007 = ╱ef╱$╱ // 0x40bb @0x7
0x40b4…40d7 at0008 = ╱ec╱,╱ // 0x40bc @0x8
0x40b4…40d7 at0009 = ╱49╱I╱ // 0x40bd @0x9
0x40b4…40d7 at000a = ╱f0╱:╱ // 0x40be @0xa
0x40b4…40d7 at000b = ╱4a╱J╱ // 0x40bf @0xb
0x40b4…40d7 at000c = ╱31╱1╱ // 0x40c0 @0xc
0x40b4…40d7 at000d = ╱ec╱,╱ // 0x40c1 @0xd
0x40b4…40d7 at000e = ╱4a╱J╱ // 0x40c2 @0xe
0x40b4…40d7 at000f = ╱32╱2╱ // 0x40c3 @0xf
0x40b4…40d7 at0010 = ╱ec╱,╱ // 0x40c4 @0x10
0x40b4…40d7 at0011 = ╱4a╱J╱ // 0x40c5 @0x11
0x40b4…40d7 at0012 = ╱33╱3╱ // 0x40c6 @0x12
0x40b4…40d7 at0013 = ╱ec╱,╱ // 0x40c7 @0x13
0x40b4…40d7 at0014 = ╱42╱B╱ // 0x40c8 @0x14
0x40b4…40d7 at0015 = ╱38╱8╱ // 0x40c9 @0x15
0x40b4…40d7 at0016 = ╱ef╱$╱ // 0x40ca @0x16
0x40b4…40d7 at0017 = ╱ec╱,╱ // 0x40cb @0x17
0x40b4…40d7 at0018 = ╱45╱E╱ // 0x40cc @0x18
0x40b4…40d7 at0019 = ╱30╱0╱ // 0x40cd @0x19
0x40b4…40d7 at001a = ╱ef╱$╱ // 0x40ce @0x1a
0x40b4…40d7 at001b = ╱ec╱,╱ // 0x40cf @0x1b
0x40b4…40d7 at001c = ╱43╱C╱ // 0x40d0 @0x1c
0x40b4…40d7 at001d = ╱30╱0╱ // 0x40d1 @0x1d
0x40b4…40d7 at001e = ╱ef╱$╱ // 0x40d2 @0x1e
0x40b4…40d7 at001f = ╱ec╱,╱ // 0x40d3 @0x1f
0x40b4…40d7 at0020 = ╱4a╱J╱ // 0x40d4 @0x20
0x40b4…40d7 at0021 = ╱34╱4╱ // 0x40d5 @0x21
0x40b4…40d7 at0022 = EOL // 0x40d6 @0x22
0x40b4…40d7 }
0x40d7…40ee ce45 8320 EXEC FE(W,33,B0$)
0x40d7…40ee LineComalBin {
0x40d7…40ee ptr = 0xce45 // 0x40d7 @0x0
0x40d7…40ee lno = 0x2080 // 0x40d9 @0x2
0x40d7…40ee at0004 = ╱9d╱ EXEC ╱ // 0x40db @0x4
0x40d7…40ee at0005 = ╱46╱F╱ // 0x40dc @0x5
0x40d7…40ee at0006 = ╱45╱E╱ // 0x40dd @0x6
0x40d7…40ee at0007 = ╱ed╱(╱ // 0x40de @0x7
0x40d7…40ee at0008 = ╱57╱W╱ // 0x40df @0x8
0x40d7…40ee at0009 = ╱ec╱,╱ // 0x40e0 @0x9
0x40d7…40ee at000a = ╱33╱3╱ // 0x40e1 @0xa
0x40d7…40ee at000b = ╱33╱3╱ // 0x40e2 @0xb
0x40d7…40ee at000c = ╱fe00008406╱ // 0x40e3 @0xc
0x40d7…40ee at0011 = ╱ec╱,╱ // 0x40e8 @0x11
0x40d7…40ee at0012 = ╱42╱B╱ // 0x40e9 @0x12
0x40d7…40ee at0013 = ╱30╱0╱ // 0x40ea @0x13
0x40d7…40ee at0014 = ╱ef╱$╱ // 0x40eb @0x14
0x40d7…40ee at0015 = ╱ee╱)╱ // 0x40ec @0x15
0x40d7…40ee at0016 = EOL // 0x40ed @0x16
0x40d7…40ee }
0x40ee…4102 ce59 8330 K6=K6+E;C0$="2"
0x40ee…4102 LineComalBin {
0x40ee…4102 ptr = 0xce59 // 0x40ee @0x0
0x40ee…4102 lno = 0x208a // 0x40f0 @0x2
0x40ee…4102 at0004 = ╱4b╱K╱ // 0x40f2 @0x4
0x40ee…4102 at0005 = ╱36╱6╱ // 0x40f3 @0x5
0x40ee…4102 at0006 = ╱dc╱=╱ // 0x40f4 @0x6
0x40ee…4102 at0007 = ╱4b╱K╱ // 0x40f5 @0x7
0x40ee…4102 at0008 = ╱36╱6╱ // 0x40f6 @0x8
0x40ee…4102 at0009 = ╱e2╱+╱ // 0x40f7 @0x9
0x40ee…4102 at000a = ╱45╱E╱ // 0x40f8 @0xa
0x40ee…4102 at000b = ╱eb╱;╱ // 0x40f9 @0xb
0x40ee…4102 at000c = ╱43╱C╱ // 0x40fa @0xc
0x40ee…4102 at000d = ╱30╱0╱ // 0x40fb @0xd
0x40ee…4102 at000e = ╱ef╱$╱ // 0x40fc @0xe
0x40ee…4102 at000f = ╱dc╱=╱ // 0x40fd @0xf
0x40ee…4102 at0010 = ╱22╱"╱ // 0x40fe @0x10
0x40ee…4102 at0011 = ╱32╱2╱ // 0x40ff @0x11
0x40ee…4102 at0012 = ╱22╱"╱ // 0x4100 @0x12
0x40ee…4102 at0013 = EOL // 0x4101 @0x13
0x40ee…4102 }
0x4102…4126 ce7d 8340 PUT B1$,K6:J1,J2,J3,B8$,E0$,C0$,J4
0x4102…4126 LineComalBin {
0x4102…4126 ptr = 0xce7d // 0x4102 @0x0
0x4102…4126 lno = 0x2094 // 0x4104 @0x2
0x4102…4126 at0004 = ╱aa╱ PUT ╱ // 0x4106 @0x4
0x4102…4126 at0005 = ╱42╱B╱ // 0x4107 @0x5
0x4102…4126 at0006 = ╱31╱1╱ // 0x4108 @0x6
0x4102…4126 at0007 = ╱ef╱$╱ // 0x4109 @0x7
0x4102…4126 at0008 = ╱ec╱,╱ // 0x410a @0x8
0x4102…4126 at0009 = ╱4b╱K╱ // 0x410b @0x9
0x4102…4126 at000a = ╱36╱6╱ // 0x410c @0xa
0x4102…4126 at000b = ╱f0╱:╱ // 0x410d @0xb
0x4102…4126 at000c = ╱4a╱J╱ // 0x410e @0xc
0x4102…4126 at000d = ╱31╱1╱ // 0x410f @0xd
0x4102…4126 at000e = ╱ec╱,╱ // 0x4110 @0xe
0x4102…4126 at000f = ╱4a╱J╱ // 0x4111 @0xf
0x4102…4126 at0010 = ╱32╱2╱ // 0x4112 @0x10
0x4102…4126 at0011 = ╱ec╱,╱ // 0x4113 @0x11
0x4102…4126 at0012 = ╱4a╱J╱ // 0x4114 @0x12
0x4102…4126 at0013 = ╱33╱3╱ // 0x4115 @0x13
0x4102…4126 at0014 = ╱ec╱,╱ // 0x4116 @0x14
0x4102…4126 at0015 = ╱42╱B╱ // 0x4117 @0x15
0x4102…4126 at0016 = ╱38╱8╱ // 0x4118 @0x16
0x4102…4126 at0017 = ╱ef╱$╱ // 0x4119 @0x17
0x4102…4126 at0018 = ╱ec╱,╱ // 0x411a @0x18
0x4102…4126 at0019 = ╱45╱E╱ // 0x411b @0x19
0x4102…4126 at001a = ╱30╱0╱ // 0x411c @0x1a
0x4102…4126 at001b = ╱ef╱$╱ // 0x411d @0x1b
0x4102…4126 at001c = ╱ec╱,╱ // 0x411e @0x1c
0x4102…4126 at001d = ╱43╱C╱ // 0x411f @0x1d
0x4102…4126 at001e = ╱30╱0╱ // 0x4120 @0x1e
0x4102…4126 at001f = ╱ef╱$╱ // 0x4121 @0x1f
0x4102…4126 at0020 = ╱ec╱,╱ // 0x4122 @0x20
0x4102…4126 at0021 = ╱4a╱J╱ // 0x4123 @0x21
0x4102…4126 at0022 = ╱34╱4╱ // 0x4124 @0x22
0x4102…4126 at0023 = EOL // 0x4125 @0x23
0x4102…4126 }
0x4126…413d ce94 8350 EXEC FE(W,34,B1$)
0x4126…413d LineComalBin {
0x4126…413d ptr = 0xce94 // 0x4126 @0x0
0x4126…413d lno = 0x209e // 0x4128 @0x2
0x4126…413d at0004 = ╱9d╱ EXEC ╱ // 0x412a @0x4
0x4126…413d at0005 = ╱46╱F╱ // 0x412b @0x5
0x4126…413d at0006 = ╱45╱E╱ // 0x412c @0x6
0x4126…413d at0007 = ╱ed╱(╱ // 0x412d @0x7
0x4126…413d at0008 = ╱57╱W╱ // 0x412e @0x8
0x4126…413d at0009 = ╱ec╱,╱ // 0x412f @0x9
0x4126…413d at000a = ╱33╱3╱ // 0x4130 @0xa
0x4126…413d at000b = ╱34╱4╱ // 0x4131 @0xb
0x4126…413d at000c = ╱fe00008806╱ // 0x4132 @0xc
0x4126…413d at0011 = ╱ec╱,╱ // 0x4137 @0x11
0x4126…413d at0012 = ╱42╱B╱ // 0x4138 @0x12
0x4126…413d at0013 = ╱31╱1╱ // 0x4139 @0x13
0x4126…413d at0014 = ╱ef╱$╱ // 0x413a @0x14
0x4126…413d at0015 = ╱ee╱)╱ // 0x413b @0x15
0x4126…413d at0016 = EOL // 0x413c @0x16
0x4126…413d }
0x413d…4154 ceab 8360 IF ORD(B8$)-48>W THEN
0x413d…4154 LineComalBin {
0x413d…4154 ptr = 0xceab // 0x413d @0x0
0x413d…4154 lno = 0x20a8 // 0x413f @0x2
0x413d…4154 at0004 = ╱9c╱ IF ╱ // 0x4141 @0x4
0x413d…4154 at0005 = ╱cd╱ORD╱ // 0x4142 @0x5
0x413d…4154 at0006 = ╱ed╱(╱ // 0x4143 @0x6
0x413d…4154 at0007 = ╱42╱B╱ // 0x4144 @0x7
0x413d…4154 at0008 = ╱38╱8╱ // 0x4145 @0x8
0x413d…4154 at0009 = ╱ef╱$╱ // 0x4146 @0x9
0x413d…4154 at000a = ╱ee╱)╱ // 0x4147 @0xa
0x413d…4154 at000b = ╱e3╱-╱ // 0x4148 @0xb
0x413d…4154 at000c = ╱34╱4╱ // 0x4149 @0xc
0x413d…4154 at000d = ╱38╱8╱ // 0x414a @0xd
0x413d…4154 at000e = ╱fe0000c006╱ // 0x414b @0xe
0x413d…4154 at0013 = ╱de╱>╱ // 0x4150 @0x13
0x413d…4154 at0014 = ╱57╱W╱ // 0x4151 @0x14
0x413d…4154 at0015 = ╱b6╱ THEN ╱ // 0x4152 @0x15
0x413d…4154 at0016 = EOL // 0x4153 @0x16
0x413d…4154 }
0x4154…4166 cebd 8370 I=I+E;K6=K6+E
0x4154…4166 LineComalBin {
0x4154…4166 ptr = 0xcebd // 0x4154 @0x0
0x4154…4166 lno = 0x20b2 // 0x4156 @0x2
0x4154…4166 at0004 = ╱49╱I╱ // 0x4158 @0x4
0x4154…4166 at0005 = ╱dc╱=╱ // 0x4159 @0x5
0x4154…4166 at0006 = ╱49╱I╱ // 0x415a @0x6
0x4154…4166 at0007 = ╱e2╱+╱ // 0x415b @0x7
0x4154…4166 at0008 = ╱45╱E╱ // 0x415c @0x8
0x4154…4166 at0009 = ╱eb╱;╱ // 0x415d @0x9
0x4154…4166 at000a = ╱4b╱K╱ // 0x415e @0xa
0x4154…4166 at000b = ╱36╱6╱ // 0x415f @0xb
0x4154…4166 at000c = ╱dc╱=╱ // 0x4160 @0xc
0x4154…4166 at000d = ╱4b╱K╱ // 0x4161 @0xd
0x4154…4166 at000e = ╱36╱6╱ // 0x4162 @0xe
0x4154…4166 at000f = ╱e2╱+╱ // 0x4163 @0xf
0x4154…4166 at0010 = ╱45╱E╱ // 0x4164 @0x10
0x4154…4166 at0011 = EOL // 0x4165 @0x11
0x4154…4166 }
0x4166…4178 cecf 8380 GET B0$,I:J1,C1$
0x4166…4178 LineComalBin {
0x4166…4178 ptr = 0xcecf // 0x4166 @0x0
0x4166…4178 lno = 0x20bc // 0x4168 @0x2
0x4166…4178 at0004 = ╱a9╱ GET ╱ // 0x416a @0x4
0x4166…4178 at0005 = ╱42╱B╱ // 0x416b @0x5
0x4166…4178 at0006 = ╱30╱0╱ // 0x416c @0x6
0x4166…4178 at0007 = ╱ef╱$╱ // 0x416d @0x7
0x4166…4178 at0008 = ╱ec╱,╱ // 0x416e @0x8
0x4166…4178 at0009 = ╱49╱I╱ // 0x416f @0x9
0x4166…4178 at000a = ╱f0╱:╱ // 0x4170 @0xa
0x4166…4178 at000b = ╱4a╱J╱ // 0x4171 @0xb
0x4166…4178 at000c = ╱31╱1╱ // 0x4172 @0xc
0x4166…4178 at000d = ╱ec╱,╱ // 0x4173 @0xd
0x4166…4178 at000e = ╱43╱C╱ // 0x4174 @0xe
0x4166…4178 at000f = ╱31╱1╱ // 0x4175 @0xf
0x4166…4178 at0010 = ╱ef╱$╱ // 0x4176 @0x10
0x4166…4178 at0011 = EOL // 0x4177 @0x11
0x4166…4178 }
0x4178…418f cee6 8390 EXEC FE(W,35,B0$)
0x4178…418f LineComalBin {
0x4178…418f ptr = 0xcee6 // 0x4178 @0x0
0x4178…418f lno = 0x20c6 // 0x417a @0x2
0x4178…418f at0004 = ╱9d╱ EXEC ╱ // 0x417c @0x4
0x4178…418f at0005 = ╱46╱F╱ // 0x417d @0x5
0x4178…418f at0006 = ╱45╱E╱ // 0x417e @0x6
0x4178…418f at0007 = ╱ed╱(╱ // 0x417f @0x7
0x4178…418f at0008 = ╱57╱W╱ // 0x4180 @0x8
0x4178…418f at0009 = ╱ec╱,╱ // 0x4181 @0x9
0x4178…418f at000a = ╱33╱3╱ // 0x4182 @0xa
0x4178…418f at000b = ╱35╱5╱ // 0x4183 @0xb
0x4178…418f at000c = ╱fe00008c06╱ // 0x4184 @0xc
0x4178…418f at0011 = ╱ec╱,╱ // 0x4189 @0x11
0x4178…418f at0012 = ╱42╱B╱ // 0x418a @0x12
0x4178…418f at0013 = ╱30╱0╱ // 0x418b @0x13
0x4178…418f at0014 = ╱ef╱$╱ // 0x418c @0x14
0x4178…418f at0015 = ╱ee╱)╱ // 0x418d @0x15
0x4178…418f at0016 = EOL // 0x418e @0x16
0x4178…418f }
0x418f…41a2 cef9 8400 PUT B1$,K6:J1,C1$
0x418f…41a2 LineComalBin {
0x418f…41a2 ptr = 0xcef9 // 0x418f @0x0
0x418f…41a2 lno = 0x20d0 // 0x4191 @0x2
0x418f…41a2 at0004 = ╱aa╱ PUT ╱ // 0x4193 @0x4
0x418f…41a2 at0005 = ╱42╱B╱ // 0x4194 @0x5
0x418f…41a2 at0006 = ╱31╱1╱ // 0x4195 @0x6
0x418f…41a2 at0007 = ╱ef╱$╱ // 0x4196 @0x7
0x418f…41a2 at0008 = ╱ec╱,╱ // 0x4197 @0x8
0x418f…41a2 at0009 = ╱4b╱K╱ // 0x4198 @0x9
0x418f…41a2 at000a = ╱36╱6╱ // 0x4199 @0xa
0x418f…41a2 at000b = ╱f0╱:╱ // 0x419a @0xb
0x418f…41a2 at000c = ╱4a╱J╱ // 0x419b @0xc
0x418f…41a2 at000d = ╱31╱1╱ // 0x419c @0xd
0x418f…41a2 at000e = ╱ec╱,╱ // 0x419d @0xe
0x418f…41a2 at000f = ╱43╱C╱ // 0x419e @0xf
0x418f…41a2 at0010 = ╱31╱1╱ // 0x419f @0x10
0x418f…41a2 at0011 = ╱ef╱$╱ // 0x41a0 @0x11
0x418f…41a2 at0012 = EOL // 0x41a1 @0x12
0x418f…41a2 }
0x41a2…41b9 cf10 8410 EXEC FE(W,36,B1$)
0x41a2…41b9 LineComalBin {
0x41a2…41b9 ptr = 0xcf10 // 0x41a2 @0x0
0x41a2…41b9 lno = 0x20da // 0x41a4 @0x2
0x41a2…41b9 at0004 = ╱9d╱ EXEC ╱ // 0x41a6 @0x4
0x41a2…41b9 at0005 = ╱46╱F╱ // 0x41a7 @0x5
0x41a2…41b9 at0006 = ╱45╱E╱ // 0x41a8 @0x6
0x41a2…41b9 at0007 = ╱ed╱(╱ // 0x41a9 @0x7
0x41a2…41b9 at0008 = ╱57╱W╱ // 0x41aa @0x8
0x41a2…41b9 at0009 = ╱ec╱,╱ // 0x41ab @0x9
0x41a2…41b9 at000a = ╱33╱3╱ // 0x41ac @0xa
0x41a2…41b9 at000b = ╱36╱6╱ // 0x41ad @0xb
0x41a2…41b9 at000c = ╱fe00009006╱ // 0x41ae @0xc
0x41a2…41b9 at0011 = ╱ec╱,╱ // 0x41b3 @0x11
0x41a2…41b9 at0012 = ╱42╱B╱ // 0x41b4 @0x12
0x41a2…41b9 at0013 = ╱31╱1╱ // 0x41b5 @0x13
0x41a2…41b9 at0014 = ╱ef╱$╱ // 0x41b6 @0x14
0x41a2…41b9 at0015 = ╱ee╱)╱ // 0x41b7 @0x15
0x41a2…41b9 at0016 = EOL // 0x41b8 @0x16
0x41a2…41b9 }
0x41b9…41bf cf16 8420 ENDIF
0x41b9…41bf LineComalBin {
0x41b9…41bf ptr = 0xcf16 // 0x41b9 @0x0
0x41b9…41bf lno = 0x20e4 // 0x41bb @0x2
0x41b9…41bf at0004 = ╱9b╱ ENDIF ╱ // 0x41bd @0x4
0x41b9…41bf at0005 = EOL // 0x41be @0x5
0x41b9…41bf }
0x41bf…41c6 cf1d 8430 NEXT I
0x41bf…41c6 LineComalBin {
0x41bf…41c6 ptr = 0xcf1d // 0x41bf @0x0
0x41bf…41c6 lno = 0x20ee // 0x41c1 @0x2
0x41bf…41c6 at0004 = ╱84╱ NEXT ╱ // 0x41c3 @0x4
0x41bf…41c6 at0005 = ╱49╱I╱ // 0x41c4 @0x5
0x41bf…41c6 at0006 = EOL // 0x41c5 @0x6
0x41bf…41c6 }
0x41c6…41cf cf26 8440 CLOSE B1$
0x41c6…41cf LineComalBin {
0x41c6…41cf ptr = 0xcf26 // 0x41c6 @0x0
0x41c6…41cf lno = 0x20f8 // 0x41c8 @0x2
0x41c6…41cf at0004 = ╱a8╱ CLOSE ╱ // 0x41ca @0x4
0x41c6…41cf at0005 = ╱42╱B╱ // 0x41cb @0x5
0x41c6…41cf at0006 = ╱31╱1╱ // 0x41cc @0x6
0x41c6…41cf at0007 = ╱ef╱$╱ // 0x41cd @0x7
0x41c6…41cf at0008 = EOL // 0x41ce @0x8
0x41c6…41cf }
0x41cf…41e6 cf3d 8450 EXEC FE(W,38,B1$)
0x41cf…41e6 LineComalBin {
0x41cf…41e6 ptr = 0xcf3d // 0x41cf @0x0
0x41cf…41e6 lno = 0x2102 // 0x41d1 @0x2
0x41cf…41e6 at0004 = ╱9d╱ EXEC ╱ // 0x41d3 @0x4
0x41cf…41e6 at0005 = ╱46╱F╱ // 0x41d4 @0x5
0x41cf…41e6 at0006 = ╱45╱E╱ // 0x41d5 @0x6
0x41cf…41e6 at0007 = ╱ed╱(╱ // 0x41d6 @0x7
0x41cf…41e6 at0008 = ╱57╱W╱ // 0x41d7 @0x8
0x41cf…41e6 at0009 = ╱ec╱,╱ // 0x41d8 @0x9
0x41cf…41e6 at000a = ╱33╱3╱ // 0x41d9 @0xa
0x41cf…41e6 at000b = ╱38╱8╱ // 0x41da @0xb
0x41cf…41e6 at000c = ╱fe00009806╱ // 0x41db @0xc
0x41cf…41e6 at0011 = ╱ec╱,╱ // 0x41e0 @0x11
0x41cf…41e6 at0012 = ╱42╱B╱ // 0x41e1 @0x12
0x41cf…41e6 at0013 = ╱31╱1╱ // 0x41e2 @0x13
0x41cf…41e6 at0014 = ╱ef╱$╱ // 0x41e3 @0x14
0x41cf…41e6 at0015 = ╱ee╱)╱ // 0x41e4 @0x15
0x41cf…41e6 at0016 = EOL // 0x41e5 @0x16
0x41cf…41e6 }
0x41e6…41f6 cf4d 8460 EXEC PGETUD(K4)
0x41e6…41f6 LineComalBin {
0x41e6…41f6 ptr = 0xcf4d // 0x41e6 @0x0
0x41e6…41f6 lno = 0x210c // 0x41e8 @0x2
0x41e6…41f6 at0004 = ╱9d╱ EXEC ╱ // 0x41ea @0x4
0x41e6…41f6 at0005 = ╱50╱P╱ // 0x41eb @0x5
0x41e6…41f6 at0006 = ╱47╱G╱ // 0x41ec @0x6
0x41e6…41f6 at0007 = ╱45╱E╱ // 0x41ed @0x7
0x41e6…41f6 at0008 = ╱54╱T╱ // 0x41ee @0x8
0x41e6…41f6 at0009 = ╱55╱U╱ // 0x41ef @0x9
0x41e6…41f6 at000a = ╱44╱D╱ // 0x41f0 @0xa
0x41e6…41f6 at000b = ╱ed╱(╱ // 0x41f1 @0xb
0x41e6…41f6 at000c = ╱4b╱K╱ // 0x41f2 @0xc
0x41e6…41f6 at000d = ╱34╱4╱ // 0x41f3 @0xd
0x41e6…41f6 at000e = ╱ee╱)╱ // 0x41f4 @0xe
0x41e6…41f6 at000f = EOL // 0x41f5 @0xf
0x41e6…41f6 }
0x41f6…41ff cf56 8470 K3=B
0x41f6…41ff LineComalBin {
0x41f6…41ff ptr = 0xcf56 // 0x41f6 @0x0
0x41f6…41ff lno = 0x2116 // 0x41f8 @0x2
0x41f6…41ff at0004 = ╱4b╱K╱ // 0x41fa @0x4
0x41f6…41ff at0005 = ╱33╱3╱ // 0x41fb @0x5
0x41f6…41ff at0006 = ╱dc╱=╱ // 0x41fc @0x6
0x41f6…41ff at0007 = ╱42╱B╱ // 0x41fd @0x7
0x41f6…41ff at0008 = EOL // 0x41fe @0x8
0x41f6…41ff }
0x41ff…4205 cf5c 8480 ELSE
0x41ff…4205 LineComalBin {
0x41ff…4205 ptr = 0xcf5c // 0x41ff @0x0
0x41ff…4205 lno = 0x2120 // 0x4201 @0x2
0x41ff…4205 at0004 = ╱9a╱ ELSE ╱ // 0x4203 @0x4
0x41ff…4205 at0005 = EOL // 0x4204 @0x5
0x41ff…4205 }
0x4205…420b cf62 8490 REPEAT
0x4205…420b LineComalBin {
0x4205…420b ptr = 0xcf62 // 0x4205 @0x0
0x4205…420b lno = 0x212a // 0x4207 @0x2
0x4205…420b at0004 = ╱97╱ REPEAT ╱ // 0x4209 @0x4
0x4205…420b at0005 = EOL // 0x420a @0x5
0x4205…420b }
0x420b…421a cf71 8500 CURSOR V,23
0x420b…421a LineComalBin {
0x420b…421a ptr = 0xcf71 // 0x420b @0x0
0x420b…421a lno = 0x2134 // 0x420d @0x2
0x420b…421a at0004 = ╱a1╱ CURSOR ╱ // 0x420f @0x4
0x420b…421a at0005 = ╱56╱V╱ // 0x4210 @0x5
0x420b…421a at0006 = ╱ec╱,╱ // 0x4211 @0x6
0x420b…421a at0007 = ╱32╱2╱ // 0x4212 @0x7
0x420b…421a at0008 = ╱33╱3╱ // 0x4213 @0x8
0x420b…421a at0009 = ╱fe0000b805╱ // 0x4214 @0x9
0x420b…421a at000e = EOL // 0x4219 @0xe
0x420b…421a }
0x421a…424d cfa4 8510 PRINT "Ønskes kontroludskrift (J/N)"+E2$(E:49)
0x421a…424d LineComalBin {
0x421a…424d ptr = 0xcfa4 // 0x421a @0x0
0x421a…424d lno = 0x213e // 0x421c @0x2
0x421a…424d at0004 = ╱92╱ PRINT ╱ // 0x421e @0x4
0x421a…424d at0005 = ╱22╱"╱ // 0x421f @0x5
0x421a…424d at0006 = ╱5c╱Ø╱ // 0x4220 @0x6
0x421a…424d at0007 = ╱6e╱n╱ // 0x4221 @0x7
0x421a…424d at0008 = ╱73╱s╱ // 0x4222 @0x8
0x421a…424d at0009 = ╱6b╱k╱ // 0x4223 @0x9
0x421a…424d at000a = ╱65╱e╱ // 0x4224 @0xa
0x421a…424d at000b = ╱73╱s╱ // 0x4225 @0xb
0x421a…424d at000c = ╱20╱…╱ // 0x4226 @0xc
0x421a…424d at000d = ╱6b╱k╱ // 0x4227 @0xd
0x421a…424d at000e = ╱6f╱o╱ // 0x4228 @0xe
0x421a…424d at000f = ╱6e╱n╱ // 0x4229 @0xf
0x421a…424d at0010 = ╱74╱t╱ // 0x422a @0x10
0x421a…424d at0011 = ╱72╱r╱ // 0x422b @0x11
0x421a…424d at0012 = ╱6f╱o╱ // 0x422c @0x12
0x421a…424d at0013 = ╱6c╱l╱ // 0x422d @0x13
0x421a…424d at0014 = ╱75╱u╱ // 0x422e @0x14
0x421a…424d at0015 = ╱64╱d╱ // 0x422f @0x15
0x421a…424d at0016 = ╱73╱s╱ // 0x4230 @0x16
0x421a…424d at0017 = ╱6b╱k╱ // 0x4231 @0x17
0x421a…424d at0018 = ╱72╱r╱ // 0x4232 @0x18
0x421a…424d at0019 = ╱69╱i╱ // 0x4233 @0x19
0x421a…424d at001a = ╱66╱f╱ // 0x4234 @0x1a
0x421a…424d at001b = ╱74╱t╱ // 0x4235 @0x1b
0x421a…424d at001c = ╱20╱…╱ // 0x4236 @0x1c
0x421a…424d at001d = ╱28╱(╱ // 0x4237 @0x1d
0x421a…424d at001e = ╱4a╱J╱ // 0x4238 @0x1e
0x421a…424d at001f = ╱2f╱/╱ // 0x4239 @0x1f
0x421a…424d at0020 = ╱4e╱N╱ // 0x423a @0x20
0x421a…424d at0021 = ╱29╱)╱ // 0x423b @0x21
0x421a…424d at0022 = ╱22╱"╱ // 0x423c @0x22
0x421a…424d at0023 = ╱f1╱+╱ // 0x423d @0x23
0x421a…424d at0024 = ╱45╱E╱ // 0x423e @0x24
0x421a…424d at0025 = ╱32╱2╱ // 0x423f @0x25
0x421a…424d at0026 = ╱ef╱$╱ // 0x4240 @0x26
0x421a…424d at0027 = ╱ed╱(╱ // 0x4241 @0x27
0x421a…424d at0028 = ╱45╱E╱ // 0x4242 @0x28
0x421a…424d at0029 = ╱f0╱:╱ // 0x4243 @0x29
0x421a…424d at002a = ╱34╱4╱ // 0x4244 @0x2a
0x421a…424d at002b = ╱39╱9╱ // 0x4245 @0x2b
0x421a…424d at002c = ╱fe0000c406╱ // 0x4246 @0x2c
0x421a…424d at0031 = ╱ee╱)╱ // 0x424b @0x31
0x421a…424d at0032 = EOL // 0x424c @0x32
0x421a…424d }
0x424d…4262 cfb9 8520 CURSOR 31,23
0x424d…4262 LineComalBin {
0x424d…4262 ptr = 0xcfb9 // 0x424d @0x0
0x424d…4262 lno = 0x2148 // 0x424f @0x2
0x424d…4262 at0004 = ╱a1╱ CURSOR ╱ // 0x4251 @0x4
0x424d…4262 at0005 = ╱33╱3╱ // 0x4252 @0x5
0x424d…4262 at0006 = ╱31╱1╱ // 0x4253 @0x6
0x424d…4262 at0007 = ╱fe0000f805╱ // 0x4254 @0x7
0x424d…4262 at000c = ╱ec╱,╱ // 0x4259 @0xc
0x424d…4262 at000d = ╱32╱2╱ // 0x425a @0xd
0x424d…4262 at000e = ╱33╱3╱ // 0x425b @0xe
0x424d…4262 at000f = ╱fe0000b805╱ // 0x425c @0xf
0x424d…4262 at0014 = EOL // 0x4261 @0x14
0x424d…4262 }
0x4262…426a cfc1 8530 INPUT A$
0x4262…426a LineComalBin {
0x4262…426a ptr = 0xcfc1 // 0x4262 @0x0
0x4262…426a lno = 0x2152 // 0x4264 @0x2
0x4262…426a at0004 = ╱91╱ INPUT ╱ // 0x4266 @0x4
0x4262…426a at0005 = ╱41╱A╱ // 0x4267 @0x5
0x4262…426a at0006 = ╱ef╱$╱ // 0x4268 @0x6
0x4262…426a at0007 = EOL // 0x4269 @0x7
0x4262…426a }
0x426a…427a cfd1 8540 EXEC NRTEST(A$)
0x426a…427a LineComalBin {
0x426a…427a ptr = 0xcfd1 // 0x426a @0x0
0x426a…427a lno = 0x215c // 0x426c @0x2
0x426a…427a at0004 = ╱9d╱ EXEC ╱ // 0x426e @0x4
0x426a…427a at0005 = ╱4e╱N╱ // 0x426f @0x5
0x426a…427a at0006 = ╱52╱R╱ // 0x4270 @0x6
0x426a…427a at0007 = ╱54╱T╱ // 0x4271 @0x7
0x426a…427a at0008 = ╱45╱E╱ // 0x4272 @0x8
0x426a…427a at0009 = ╱53╱S╱ // 0x4273 @0x9
0x426a…427a at000a = ╱54╱T╱ // 0x4274 @0xa
0x426a…427a at000b = ╱ed╱(╱ // 0x4275 @0xb
0x426a…427a at000c = ╱41╱A╱ // 0x4276 @0xc
0x426a…427a at000d = ╱ef╱$╱ // 0x4277 @0xd
0x426a…427a at000e = ╱ee╱)╱ // 0x4278 @0xe
0x426a…427a at000f = EOL // 0x4279 @0xf
0x426a…427a }
0x427a…4293 cfea 8550 UNTIL P=-7 OR P=-8
0x427a…4293 LineComalBin {
0x427a…4293 ptr = 0xcfea // 0x427a @0x0
0x427a…4293 lno = 0x2166 // 0x427c @0x2
0x427a…4293 at0004 = ╱98╱ UNTIL ╱ // 0x427e @0x4
0x427a…4293 at0005 = ╱50╱P╱ // 0x427f @0x5
0x427a…4293 at0006 = ╱dc╱=╱ // 0x4280 @0x6
0x427a…4293 at0007 = ╱e9╱-╱ // 0x4281 @0x7
0x427a…4293 at0008 = ╱37╱7╱ // 0x4282 @0x8
0x427a…4293 at0009 = ╱fe0000e003╱ // 0x4283 @0x9
0x427a…4293 at000e = ╱db╱ OR ╱ // 0x4288 @0xe
0x427a…4293 at000f = ╱50╱P╱ // 0x4289 @0xf
0x427a…4293 at0010 = ╱dc╱=╱ // 0x428a @0x10
0x427a…4293 at0011 = ╱e9╱-╱ // 0x428b @0x11
0x427a…4293 at0012 = ╱38╱8╱ // 0x428c @0x12
0x427a…4293 at0013 = ╱fe00008004╱ // 0x428d @0x13
0x427a…4293 at0018 = EOL // 0x4292 @0x18
0x427a…4293 }
0x4293…42b2 d009 8560 IF P=-7 THEN EXEC PGETUD(1)
0x4293…42b2 LineComalBin {
0x4293…42b2 ptr = 0xd009 // 0x4293 @0x0
0x4293…42b2 lno = 0x2170 // 0x4295 @0x2
0x4293…42b2 at0004 = ╱82╱ IF ╱ // 0x4297 @0x4
0x4293…42b2 at0005 = ╱50╱P╱ // 0x4298 @0x5
0x4293…42b2 at0006 = ╱dc╱=╱ // 0x4299 @0x6
0x4293…42b2 at0007 = ╱e9╱-╱ // 0x429a @0x7
0x4293…42b2 at0008 = ╱37╱7╱ // 0x429b @0x8
0x4293…42b2 at0009 = ╱fe0000e003╱ // 0x429c @0x9
0x4293…42b2 at000e = ╱b6╱ THEN ╱ // 0x42a1 @0xe
0x4293…42b2 at000f = ╱9d╱ EXEC ╱ // 0x42a2 @0xf
0x4293…42b2 at0010 = ╱50╱P╱ // 0x42a3 @0x10
0x4293…42b2 at0011 = ╱47╱G╱ // 0x42a4 @0x11
0x4293…42b2 at0012 = ╱45╱E╱ // 0x42a5 @0x12
0x4293…42b2 at0013 = ╱54╱T╱ // 0x42a6 @0x13
0x4293…42b2 at0014 = ╱55╱U╱ // 0x42a7 @0x14
0x4293…42b2 at0015 = ╱44╱D╱ // 0x42a8 @0x15
0x4293…42b2 at0016 = ╱ed╱(╱ // 0x42a9 @0x16
0x4293…42b2 at0017 = ╱31╱1╱ // 0x42aa @0x17
0x4293…42b2 at0018 = ╱fe00008001╱ // 0x42ab @0x18
0x4293…42b2 at001d = ╱ee╱)╱ // 0x42b0 @0x1d
0x4293…42b2 at001e = EOL // 0x42b1 @0x1e
0x4293…42b2 }
0x42b2…42be d015 8570 K3=I8-E
0x42b2…42be LineComalBin {
0x42b2…42be ptr = 0xd015 // 0x42b2 @0x0
0x42b2…42be lno = 0x217a // 0x42b4 @0x2
0x42b2…42be at0004 = ╱4b╱K╱ // 0x42b6 @0x4
0x42b2…42be at0005 = ╱33╱3╱ // 0x42b7 @0x5
0x42b2…42be at0006 = ╱dc╱=╱ // 0x42b8 @0x6
0x42b2…42be at0007 = ╱49╱I╱ // 0x42b9 @0x7
0x42b2…42be at0008 = ╱38╱8╱ // 0x42ba @0x8
0x42b2…42be at0009 = ╱e3╱-╱ // 0x42bb @0x9
0x42b2…42be at000a = ╱45╱E╱ // 0x42bc @0xa
0x42b2…42be at000b = EOL // 0x42bd @0xb
0x42b2…42be }
0x42be…42c4 d01b 8580 ENDIF
0x42be…42c4 LineComalBin {
0x42be…42c4 ptr = 0xd01b // 0x42be @0x0
0x42be…42c4 lno = 0x2184 // 0x42c0 @0x2
0x42be…42c4 at0004 = ╱9b╱ ENDIF ╱ // 0x42c2 @0x4
0x42be…42c4 at0005 = EOL // 0x42c3 @0x5
0x42be…42c4 }
0x42c4…42ce d025 8590 L8=-E
0x42c4…42ce LineComalBin {
0x42c4…42ce ptr = 0xd025 // 0x42c4 @0x0
0x42c4…42ce lno = 0x218e // 0x42c6 @0x2
0x42c4…42ce at0004 = ╱4c╱L╱ // 0x42c8 @0x4
0x42c4…42ce at0005 = ╱38╱8╱ // 0x42c9 @0x5
0x42c4…42ce at0006 = ╱dc╱=╱ // 0x42ca @0x6
0x42c4…42ce at0007 = ╱e9╱-╱ // 0x42cb @0x7
0x42c4…42ce at0008 = ╱45╱E╱ // 0x42cc @0x8
0x42c4…42ce at0009 = EOL // 0x42cd @0x9
0x42c4…42ce }
0x42ce…42d4 d02b 8600 ENDCASE
0x42ce…42d4 LineComalBin {
0x42ce…42d4 ptr = 0xd02b // 0x42ce @0x0
0x42ce…42d4 lno = 0x2198 // 0x42d0 @0x2
0x42ce…42d4 at0004 = ╱a4╱ ENDCASE ╱ // 0x42d2 @0x4
0x42ce…42d4 at0005 = EOL // 0x42d3 @0x5
0x42ce…42d4 }
0x42d4…42df d036 8610 UNTIL L8=-E
0x42d4…42df LineComalBin {
0x42d4…42df ptr = 0xd036 // 0x42d4 @0x0
0x42d4…42df lno = 0x21a2 // 0x42d6 @0x2
0x42d4…42df at0004 = ╱98╱ UNTIL ╱ // 0x42d8 @0x4
0x42d4…42df at0005 = ╱4c╱L╱ // 0x42d9 @0x5
0x42d4…42df at0006 = ╱38╱8╱ // 0x42da @0x6
0x42d4…42df at0007 = ╱dc╱=╱ // 0x42db @0x7
0x42d4…42df at0008 = ╱e9╱-╱ // 0x42dc @0x8
0x42d4…42df at0009 = ╱45╱E╱ // 0x42dd @0x9
0x42d4…42df at000a = EOL // 0x42de @0xa
0x42d4…42df }
0x42df…42e8 d03f 8620 CLOSE B0$
0x42df…42e8 LineComalBin {
0x42df…42e8 ptr = 0xd03f // 0x42df @0x0
0x42df…42e8 lno = 0x21ac // 0x42e1 @0x2
0x42df…42e8 at0004 = ╱a8╱ CLOSE ╱ // 0x42e3 @0x4
0x42df…42e8 at0005 = ╱42╱B╱ // 0x42e4 @0x5
0x42df…42e8 at0006 = ╱30╱0╱ // 0x42e5 @0x6
0x42df…42e8 at0007 = ╱ef╱$╱ // 0x42e6 @0x7
0x42df…42e8 at0008 = EOL // 0x42e7 @0x8
0x42df…42e8 }
0x42e8…42ff d056 8630 EXEC FE(W,40,B0$)
0x42e8…42ff LineComalBin {
0x42e8…42ff ptr = 0xd056 // 0x42e8 @0x0
0x42e8…42ff lno = 0x21b6 // 0x42ea @0x2
0x42e8…42ff at0004 = ╱9d╱ EXEC ╱ // 0x42ec @0x4
0x42e8…42ff at0005 = ╱46╱F╱ // 0x42ed @0x5
0x42e8…42ff at0006 = ╱45╱E╱ // 0x42ee @0x6
0x42e8…42ff at0007 = ╱ed╱(╱ // 0x42ef @0x7
0x42e8…42ff at0008 = ╱57╱W╱ // 0x42f0 @0x8
0x42e8…42ff at0009 = ╱ec╱,╱ // 0x42f1 @0x9
0x42e8…42ff at000a = ╱34╱4╱ // 0x42f2 @0xa
0x42e8…42ff at000b = ╱30╱0╱ // 0x42f3 @0xb
0x42e8…42ff at000c = ╱fe0000a006╱ // 0x42f4 @0xc
0x42e8…42ff at0011 = ╱ec╱,╱ // 0x42f9 @0x11
0x42e8…42ff at0012 = ╱42╱B╱ // 0x42fa @0x12
0x42e8…42ff at0013 = ╱30╱0╱ // 0x42fb @0x13
0x42e8…42ff at0014 = ╱ef╱$╱ // 0x42fc @0x14
0x42e8…42ff at0015 = ╱ee╱)╱ // 0x42fd @0x15
0x42e8…42ff at0016 = EOL // 0x42fe @0x16
0x42e8…42ff }
0x42ff…4305 d05c 8640 CLOSE
0x42ff…4305 LineComalBin {
0x42ff…4305 ptr = 0xd05c // 0x42ff @0x0
0x42ff…4305 lno = 0x21c0 // 0x4301 @0x2
0x42ff…4305 at0004 = ╱a8╱ CLOSE ╱ // 0x4303 @0x4
0x42ff…4305 at0005 = EOL // 0x4304 @0x5
0x42ff…4305 }
0x4305…4311 d068 8650 EXEC SYSGEM
0x4305…4311 LineComalBin {
0x4305…4311 ptr = 0xd068 // 0x4305 @0x0
0x4305…4311 lno = 0x21ca // 0x4307 @0x2
0x4305…4311 at0004 = ╱9d╱ EXEC ╱ // 0x4309 @0x4
0x4305…4311 at0005 = ╱53╱S╱ // 0x430a @0x5
0x4305…4311 at0006 = ╱59╱Y╱ // 0x430b @0x6
0x4305…4311 at0007 = ╱53╱S╱ // 0x430c @0x7
0x4305…4311 at0008 = ╱47╱G╱ // 0x430d @0x8
0x4305…4311 at0009 = ╱45╱E╱ // 0x430e @0x9
0x4305…4311 at000a = ╱4d╱M╱ // 0x430f @0xa
0x4305…4311 at000b = EOL // 0x4310 @0xb
0x4305…4311 }
0x4311…4318 d06f 8660 OUTPUT T
0x4311…4318 LineComalBin {
0x4311…4318 ptr = 0xd06f // 0x4311 @0x0
0x4311…4318 lno = 0x21d4 // 0x4313 @0x2
0x4311…4318 at0004 = ╱a5╱ OUTPUT ╱ // 0x4315 @0x4
0x4311…4318 at0005 = ╱54╱T╱ // 0x4316 @0x5
0x4311…4318 at0006 = EOL // 0x4317 @0x6
0x4311…4318 }
0x4318…432f 0000 8670 CHAIN "P641210:OPSTART"
0x4318…432f LineComalBin {
0x4318…432f ptr = 0x0000 // 0x4318 @0x0
0x4318…432f lno = 0x21de // 0x431a @0x2
0x4318…432f at0004 = ╱ac╱ CHAIN ╱ // 0x431c @0x4
0x4318…432f at0005 = ╱22╱"╱ // 0x431d @0x5
0x4318…432f at0006 = ╱50╱P╱ // 0x431e @0x6
0x4318…432f at0007 = ╱36╱6╱ // 0x431f @0x7
0x4318…432f at0008 = ╱34╱4╱ // 0x4320 @0x8
0x4318…432f at0009 = ╱31╱1╱ // 0x4321 @0x9
0x4318…432f at000a = ╱32╱2╱ // 0x4322 @0xa
0x4318…432f at000b = ╱31╱1╱ // 0x4323 @0xb
0x4318…432f at000c = ╱30╱0╱ // 0x4324 @0xc
0x4318…432f at000d = ╱3a╱:╱ // 0x4325 @0xd
0x4318…432f at000e = ╱4f╱O╱ // 0x4326 @0xe
0x4318…432f at000f = ╱50╱P╱ // 0x4327 @0xf
0x4318…432f at0010 = ╱53╱S╱ // 0x4328 @0x10
0x4318…432f at0011 = ╱54╱T╱ // 0x4329 @0x11
0x4318…432f at0012 = ╱41╱A╱ // 0x432a @0x12
0x4318…432f at0013 = ╱52╱R╱ // 0x432b @0x13
0x4318…432f at0014 = ╱54╱T╱ // 0x432c @0x14
0x4318…432f at0015 = ╱22╱"╱ // 0x432d @0x15
0x4318…432f at0016 = EOL // 0x432e @0x16
0x4318…432f }
0x432f…4340 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe ┆W Z B 0 E 1 ┆
0x4340…4360 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ G 2 V 3 W 9 ┆
0x4360…4366 (224,) 57 8d 86 d0 10 00 ┆W ┆