|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »FSORT.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »FSORT.K«
0100 DIM K1$(17),K2$(17),K3$(17),K4$(17),K5$(17),K6$(17),K7$(17),T11(9) 0110 DIM K9$(17),T12(9),N1$(6),A$(1),BLANK$(25),TKO$(1),BEO$(12),TEO$(25) 0120 DIM T21(9),T22(9) 0130 BLANK$=" " 0140 CLEAR 0150 REPEAT 0160 CURSOR 30,13 0170 INPUT "Sæt plade nr 21 i ,tast RETURN",A$ 0180 UNTIL ORD(A$)=255 0190 K1$="P641220:SYSTEM1" 0200 OPEN K1$,R 0210 EXEC FEJL(1,1,K1$) 0220 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFMID 0230 EXEC FEJL(1,2,K1$) 0240 GET K1$,3:MDMID,MKMID,MFPOST,MDPOST 0250 EXEC FEJL(1,3,K1$) 0260 GET K1$,4:MKPOST 0270 EXEC FEJL(1,4,K1$) 0280 GET K1$,10:N1$ 0290 EXEC FEJL(1,6,K1$) 0300 CLOSE K1$ 0310 EXEC FEJL(1,5,K1$) 0320 DIM HDTAB(MDPOST DIV 40,2),HFTAB(MFPOST DIV 40,2),UDTAB(4,2),UFTAB(4,2) 0330 DIM HKRTAB(MKPOST DIV 40,2),UKTAB(4,2) 0340 IMD=MFMID 0350 IF IMD<MDMID THEN IMD=MDMID 0360 IF IMD<MKMID THEN IMD=MKMID 0370 DIM N(IMD),D(IMD),BI(IMD),TK$(IMD,1),BE$(IMD,12),TE$(IMD,25),PEG(IMD) 0380 K1$=N1$+"20:SYSTEM2" 0390 EXEC FSYSIN(K1$,T11,T12) 0400 K2$=N1$+"21:SYSTEM21" 0410 EXEC FSYSIN(K2$,T21,T22) 0420 K3$=N1$+"20:DMID" 0430 K4$=N1$+"21:DMID1" 0440 EXEC FSORT(K3$,T11(3),K4$,T21(3)) 0450 EXEC FSYSUD(K2$,T21,T22) 0460 K5$=N1$+"20:DPOST" 0470 K6$=N1$+"21:DPOST1" 0480 K7$=N1$+"21:HDTAB1" 0490 K9$=N1$+"20:HDTAB" 0500 EXEC FFLET(K5$,K6$,T11(3),T11(6),T21(6)) 0510 EXEC FSYSUD(K2$,T21,T22) 0520 EXEC TABINIT(K6$,K7$,MDPOST,HDTAB,UDTAB) 0530 EXEC FKOPI(K6$,K5$,T21(6),T11(6)) 0540 EXEC TABINIT(K5$,K9$,MDPOST,HDTAB,UDTAB) 0550 T11(3)=0 0560 EXEC FSYSUD(K1$,T11,T12) 0570 K3$=N1$+"20:FMID" 0580 K4$=N1$+"21:FMID1" 0590 EXEC FSORT(K3$,T11(2),K4$,T21(2)) 0600 EXEC FSYSUD(K2$,T21,T22) 0610 K5$=N1$+"20:FPOST" 0620 K6$=N1$+"21:FPOST1" 0630 K7$=N1$+"21:HFTAB1" 0640 K9$=N1$+"20:HFTAB" 0650 EXEC FFLET(K5$,K6$,T11(2),T11(5),T21(5)) 0660 EXEC FSYSUD(K2$,T21,T22) 0670 EXEC TABINIT(K6$,K7$,MFPOST,HFTAB,UFTAB) 0680 EXEC FKOPI(K6$,K5$,T21(5),T11(5)) 0690 EXEC TABINIT(K5$,K9$,MFPOST,HFTAB,UFTAB) 0700 T11(2)=0 0710 EXEC FSYSUD(K1$,T11,T12) 0720 K3$=N1$+"20:KRMID";K4$=N1$+"21:KRMID1";K5$=N1$+"20:KRPOST" 0730 K6$=N1$+"21:KRPOST1";K7$=N1$+"21:HKRTAB1";K9$=N1$+"20:HKRTAB" 0740 EXEC FSORT(K3$,T11(4),K4$,T21(4)) 0750 EXEC FSYSUD(K2$,T21,T22) 0760 EXEC FFLET(K5$,K6$,T11(4),T11(7),T21(7)) 0770 EXEC FSYSUD(K2$,T21,T22) 0780 EXEC TABINIT(K6$,K7$,MKPOST,HKRTAB,UKTAB) 0790 EXEC FKOPI(K6$,K5$,T21(7),T11(7)) 0800 EXEC TABINIT(K5$,K9$,MKPOST,HKRTAB,UKTAB) 0810 T11(4)=0;T12(1)=0 0820 EXEC FSYSUD(K1$,T11,T12) 0830 CLEAR 0840 REPEAT 0850 CURSOR 30,13 0860 INPUT "Sæt plade nr 10 i ,tast RETURN",A$ 0870 UNTIL ORD(A$)=255 0880 CHAIN "P641210:OPSTART" 0890 END 0900 PROC FEJL(NR1,NR2,NR3) 0910 IF STATUS(NR3$)<>0 THEN 0920 PRINT NR1,NR2,NR3$,STATUS(NR3$) 0930 STOP 0940 ENDIF 0950 ENDPROC 0960 PROC FSORT(K,MID,K21,MIDE) 0970 OPEN K$,R 0980 EXEC FEJL(2,1,K$) 0990 OPEN K21$,W 1000 EXEC FEJL(2,11,K21$) 1010 J=1 1020 FOR I=1 TO MID 1030 EXEC FGET2(K$,I,N(J),D(J),BI(J),TK$(J),BE$(J),TE$(J)) 1040 J=J+1 1050 NEXT I 1060 FOR I=1 TO J-1 1070 PEG(I)=I 1080 NEXT I 1090 FOR I=1 TO J-1 1100 MIN=I 1110 FOR H=I+1 TO J-1 1120 IF N(PEG(H))<N(PEG(MIN)) THEN 1130 MIN=H 1140 ELSE 1150 IF N(PEG(H))=N(PEG(MIN)) THEN 1160 IF D(PEG(H))<D(PEG(MIN)) THEN MIN=H 1170 ENDIF 1180 ENDIF 1190 NEXT H 1200 MP=PEG(I) 1210 PEG(I)=PEG(MIN) 1220 PEG(MIN)=MP 1230 NEXT I 1240 H=1 1250 FOR I=1 TO J-1 1260 Q=PEG(I) 1270 EXEC FPUT2(K21$,H,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q)) 1280 H=H+1 1290 NEXT I 1300 MIDE=H-1 1310 CLOSE K$ 1320 EXEC FEJL(2,4,K$) 1330 CLOSE K21$ 1340 EXEC FEJL(2,5,K21$) 1350 ENDPROC 1360 PROC FSYSIN(K11,T1,T2) 1370 OPEN K11$,R 1380 EXEC FEJL(5,1,K11$) 1390 GET K11$,13:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1400 EXEC FEJL(5,2,K11$) 1410 GET K11$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 1420 EXEC FEJL(5,3,K11$) 1430 CLOSE K11$ 1440 EXEC FEJL(5,4,K11$) 1450 ENDPROC 1460 PROC FSYSUD(K12,T3,T4) 1470 OPEN K12$,W 1480 EXEC FEJL(6,1,K12$) 1490 PUT K12$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 1500 EXEC FEJL(6,2,K12$) 1510 PUT K12$,17:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9) 1520 EXEC FEJL(6,3,K12$) 1530 CLOSE K12$ 1540 EXEC FEJL(6,4,K12$) 1550 ENDPROC 1560 PROC FGET2(K15,I3,N3,D3,BI3,TK3,BE3,TE3) 1570 GET K15$,I3:N3,D3,BI3,TK3$,BE3$ 1580 EXEC FEJL(9,1,K15$) 1590 IF ORD(TK3$)-48>9 AND ORD(TK3$)-48<20 THEN 1600 I3=I3+1 1610 GET K15$,I3:N3,TE3$ 1620 EXEC FEJL(9,2,K15$) 1630 ELSE 1640 TE3$=BLANK$ 1650 ENDIF 1660 ENDPROC 1670 PROC FPUT2(K16,I4,N4,D4,BI4,TK4,BE4,TE4) 1680 PUT K16$,I4:N4,D4,BI4,TK4$,BE4$ 1690 EXEC FEJL(10,1,K16$) 1700 IF ORD(TK4$)-48>9 AND ORD(TK4$)-48<20 THEN 1710 I4=I4+1 1720 PUT K16$,I4:N4,TE4$ 1730 EXEC FEJL(10,2,K16$) 1740 ENDIF 1750 ENDPROC 1760 PROC FFLET(K17,K18,DPM2,DPO2,DPO3) 1770 OPEN K17$,R 1780 EXEC FEJL(11,1,K17$) 1790 OPEN K18$,W 1800 EXEC FEJL(11,2,K18$) 1810 L=1 1820 M=1 1830 P=1 1840 TEST=0 1850 IF DPM2<>0 AND DPO2<>0 THEN 1860 REPEAT 1870 IF TEST=0 THEN 1880 EXEC FGET2(K17$,L,NO,DO,BIO,TKO$,BEO$,TEO$) 1890 L=L+1 1900 TEST=1 1910 ENDIF 1920 IF M<J THEN 1930 Q=PEG(M) 1940 ELSE 1950 N(Q)=100000 1960 ENDIF 1970 IF N(Q)<NO THEN 1980 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q)) 1990 M=M+1 2000 ELSE 2010 IF N(Q)=NO AND D(Q)<DO THEN 2020 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q)) 2030 M=M+1 2040 ELSE 2050 EXEC FPUT2(K18$,P,NO,DO,BIO,TKO$,BEO$,TEO$) 2060 TEST=0 2070 ENDIF 2080 ENDIF 2090 P=P+1 2100 UNTIL (DPO2=L-1 OR M=J) AND TEST=0 2110 IF DPO2=L-1 THEN 2120 STYR=1 2130 ELSE 2140 STYR=0 2150 ENDIF 2160 ELSE 2170 IF DPM2=0 THEN 2180 STYR=0 2190 ELSE 2200 STYR=1 2210 ENDIF 2220 ENDIF 2230 IF STYR=1 THEN 2240 FOR I=M TO J-1 2250 Q=PEG(I) 2260 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q)) 2270 P=P+1 2280 NEXT I 2290 ELSE 2300 FOR I=L TO DPO2 2310 EXEC FGET2(K17$,I,NO,DO,BIO,TKO$,BEO$,TEO$) 2320 EXEC FPUT2(K18$,P,NO,DO,BIO,TKO$,BEO$,TEO$) 2330 P=P+1 2340 NEXT I 2350 ENDIF 2360 DPO3=P-1 2370 CLOSE K17$ 2380 EXEC FEJL(11,3,K17$) 2390 CLOSE K18$ 2400 EXEC FEJL(11,4,K18$) 2410 ENDPROC 2420 PROC FKOPI(K19,K20,DPO4,DPO5) 2430 OPEN K19$,R 2440 EXEC FEJL(12,1,K19$) 2450 OPEN K20$,W 2460 EXEC FEJL(12,2,K20$) 2470 FOR I=1 TO DPO4 2480 J=I 2490 EXEC FGET2(K19$,I,NO,DO,BIO,TKO$,BEO$,TEO$) 2500 EXEC FPUT2(K20$,J,NO,DO,BIO,TKO$,BEO$,TEO$) 2510 NEXT I 2520 CLOSE K19$ 2530 CLOSE K20$ 2540 EXEC FEJL(12,3,K20$) 2550 DPO5=DPO4 2560 ENDPROC 2570 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2) 2580 OPEN K31$,R 2590 EXEC FEJL(15,1,K31$) 2600 OPEN K32$,W 2610 EXEC FEJL(15,2,K32$) 2620 H=1 2630 FOR I=1 TO MPOSTANTAL3 DIV 40 2640 GET K31$,H:KONR 2650 EXEC FEJL(15,3,K31$) 2660 HTAB2(I,1)=KONR 2670 FOR J=1 TO 4 2680 GET K31$,H:KONR 2690 EXEC FEJL(15,4,K31$) 2700 UTAB2(J,1)=KONR 2710 H=H+9 2720 GET K31$,H:KONR 2730 EXEC FEJL(15,5,K31$) 2740 UTAB2(J,2)=KONR 2750 H=H+1 2760 NEXT J 2770 HTAB2(I,2)=KONR 2780 EXEC UNDUD(K32$,I,UTAB2,MPOSTANTAL3) 2790 NEXT I 2800 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2) 2810 CLOSE K31$ 2820 EXEC FEJL(15,6,K31$) 2830 CLOSE K32$ 2840 EXEC FEJL(15,7,K32$) 2850 ENDPROC ;TABINIT 2860 PROC UNDUD(V3,U2,T,MPOSTANT) 2870 U3=U2+MPOSTANT DIV 160 2880 PUT V3$,U3:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2) 2890 EXEC FEJL(16,1,V3$) 2900 ENDPROC ;UNDUD 2910 PROC HOVUD(V4,MPOSTANTAL4,S) 2920 FOR I=1 TO MPOSTANTAL4 DIV 160 2930 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 2940 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2) 2950 EXEC FEJL(17,2,V4$) 2960 NEXT I 2970 ENDPROC
0x0000…0049 Line {l1=0x47, l2=»0100 DIM K1$(17),K2$(17),K3$(17),K4$(17),K5$(17),K6$(17),K7$(17),T11(9)«, l3=0x47}
0x0049…0094 Line {l1=0x49, l2=»0110 DIM K9$(17),T12(9),N1$(6),A$(1),BLANK$(25),TKO$(1),BEO$(12),TEO$(25)«, l3=0x49}
0x0094…00ac Line {l1=0x16, l2=»0120 DIM T21(9),T22(9)«, l3=0x16}
0x00ac…00d5 Line {l1=0x27, l2=»0130 BLANK$=" "«, l3=0x27}
0x00d5…00e2 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x00e2…00f0 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x00f0…0103 Line {l1=0x11, l2=»0160 CURSOR 30,13«, l3=0x11}
0x0103…0133 Line {l1=0x2e, l2=»0170 INPUT "Sæt plade nr 21 i ,tast RETURN",A$«, l3=0x2e}
0x0133…014b Line {l1=0x16, l2=»0180 UNTIL ORD(A$)=255«, l3=0x16}
0x014b…0167 Line {l1=0x1a, l2=»0190 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0167…0178 Line {l1=0x0f, l2=»0200 OPEN K1$,R«, l3=0x0f}
0x0178…0191 Line {l1=0x17, l2=»0210 EXEC FEJL(1,1,K1$)«, l3=0x17}
0x0191…01bf Line {l1=0x2c, l2=»0220 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFMID«, l3=0x2c}
0x01bf…01d8 Line {l1=0x17, l2=»0230 EXEC FEJL(1,2,K1$)«, l3=0x17}
0x01d8…0202 Line {l1=0x28, l2=»0240 GET K1$,3:MDMID,MKMID,MFPOST,MDPOST«, l3=0x28}
0x0202…021b Line {l1=0x17, l2=»0250 EXEC FEJL(1,3,K1$)«, l3=0x17}
0x021b…0232 Line {l1=0x15, l2=»0260 GET K1$,4:MKPOST«, l3=0x15}
0x0232…024b Line {l1=0x17, l2=»0270 EXEC FEJL(1,4,K1$)«, l3=0x17}
0x024b…0260 Line {l1=0x13, l2=»0280 GET K1$,10:N1$«, l3=0x13}
0x0260…0279 Line {l1=0x17, l2=»0290 EXEC FEJL(1,6,K1$)«, l3=0x17}
0x0279…0289 Line {l1=0x0e, l2=»0300 CLOSE K1$«, l3=0x0e}
0x0289…02a2 Line {l1=0x17, l2=»0310 EXEC FEJL(1,5,K1$)«, l3=0x17}
0x02a2…02f0 Line {l1=0x4c, l2=»0320 DIM HDTAB(MDPOST DIV 40,2),HFTAB(MFPOST DIV 40,2),UDTAB(4,2),UFTAB(4,2)«, l3=0x4c}
0x02f0…031d Line {l1=0x2b, l2=»0330 DIM HKRTAB(MKPOST DIV 40,2),UKTAB(4,2)«, l3=0x2b}
0x031d…032d Line {l1=0x0e, l2=»0340 IMD=MFMID«, l3=0x0e}
0x032d…034f Line {l1=0x20, l2=»0350 IF IMD<MDMID THEN IMD=MDMID«, l3=0x20}
0x034f…0371 Line {l1=0x20, l2=»0360 IF IMD<MKMID THEN IMD=MKMID«, l3=0x20}
0x0371…03bd Line {l1=0x4a, l2=»0370 DIM N(IMD),D(IMD),BI(IMD),TK$(IMD,1),BE$(IMD,12),TE$(IMD,25),PEG(IMD)«, l3=0x4a}
0x03bd…03d8 Line {l1=0x19, l2=»0380 K1$=N1$+"20:SYSTEM2"«, l3=0x19}
0x03d8…03f7 Line {l1=0x1d, l2=»0390 EXEC FSYSIN(K1$,T11,T12)«, l3=0x1d}
0x03f7…0413 Line {l1=0x1a, l2=»0400 K2$=N1$+"21:SYSTEM21"«, l3=0x1a}
0x0413…0432 Line {l1=0x1d, l2=»0410 EXEC FSYSIN(K2$,T21,T22)«, l3=0x1d}
0x0432…044a Line {l1=0x16, l2=»0420 K3$=N1$+"20:DMID"«, l3=0x16}
0x044a…0463 Line {l1=0x17, l2=»0430 K4$=N1$+"21:DMID1"«, l3=0x17}
0x0463…048b Line {l1=0x26, l2=»0440 EXEC FSORT(K3$,T11(3),K4$,T21(3))«, l3=0x26}
0x048b…04aa Line {l1=0x1d, l2=»0450 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x04aa…04c3 Line {l1=0x17, l2=»0460 K5$=N1$+"20:DPOST"«, l3=0x17}
0x04c3…04dd Line {l1=0x18, l2=»0470 K6$=N1$+"21:DPOST1"«, l3=0x18}
0x04dd…04f7 Line {l1=0x18, l2=»0480 K7$=N1$+"21:HDTAB1"«, l3=0x18}
0x04f7…0510 Line {l1=0x17, l2=»0490 K9$=N1$+"20:HDTAB"«, l3=0x17}
0x0510…053f Line {l1=0x2d, l2=»0500 EXEC FFLET(K5$,K6$,T11(3),T11(6),T21(6))«, l3=0x2d}
0x053f…055e Line {l1=0x1d, l2=»0510 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x055e…058d Line {l1=0x2d, l2=»0520 EXEC TABINIT(K6$,K7$,MDPOST,HDTAB,UDTAB)«, l3=0x2d}
0x058d…05b5 Line {l1=0x26, l2=»0530 EXEC FKOPI(K6$,K5$,T21(6),T11(6))«, l3=0x26}
0x05b5…05e4 Line {l1=0x2d, l2=»0540 EXEC TABINIT(K5$,K9$,MDPOST,HDTAB,UDTAB)«, l3=0x2d}
0x05e4…05f3 Line {l1=0x0d, l2=»0550 T11(3)=0«, l3=0x0d}
0x05f3…0612 Line {l1=0x1d, l2=»0560 EXEC FSYSUD(K1$,T11,T12)«, l3=0x1d}
0x0612…062a Line {l1=0x16, l2=»0570 K3$=N1$+"20:FMID"«, l3=0x16}
0x062a…0643 Line {l1=0x17, l2=»0580 K4$=N1$+"21:FMID1"«, l3=0x17}
0x0643…066b Line {l1=0x26, l2=»0590 EXEC FSORT(K3$,T11(2),K4$,T21(2))«, l3=0x26}
0x066b…068a Line {l1=0x1d, l2=»0600 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x068a…06a3 Line {l1=0x17, l2=»0610 K5$=N1$+"20:FPOST"«, l3=0x17}
0x06a3…06bd Line {l1=0x18, l2=»0620 K6$=N1$+"21:FPOST1"«, l3=0x18}
0x06bd…06d7 Line {l1=0x18, l2=»0630 K7$=N1$+"21:HFTAB1"«, l3=0x18}
0x06d7…06f0 Line {l1=0x17, l2=»0640 K9$=N1$+"20:HFTAB"«, l3=0x17}
0x06f0…071f Line {l1=0x2d, l2=»0650 EXEC FFLET(K5$,K6$,T11(2),T11(5),T21(5))«, l3=0x2d}
0x071f…073e Line {l1=0x1d, l2=»0660 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x073e…076d Line {l1=0x2d, l2=»0670 EXEC TABINIT(K6$,K7$,MFPOST,HFTAB,UFTAB)«, l3=0x2d}
0x076d…0795 Line {l1=0x26, l2=»0680 EXEC FKOPI(K6$,K5$,T21(5),T11(5))«, l3=0x26}
0x0795…07c4 Line {l1=0x2d, l2=»0690 EXEC TABINIT(K5$,K9$,MFPOST,HFTAB,UFTAB)«, l3=0x2d}
0x07c4…07d3 Line {l1=0x0d, l2=»0700 T11(2)=0«, l3=0x0d}
0x07d3…07f2 Line {l1=0x1d, l2=»0710 EXEC FSYSUD(K1$,T11,T12)«, l3=0x1d}
0x07f2…0833 Line {l1=0x3f, l2=»0720 K3$=N1$+"20:KRMID";K4$=N1$+"21:KRMID1";K5$=N1$+"20:KRPOST"«, l3=0x3f}
0x0833…0877 Line {l1=0x42, l2=»0730 K6$=N1$+"21:KRPOST1";K7$=N1$+"21:HKRTAB1";K9$=N1$+"20:HKRTAB"«, l3=0x42}
0x0877…089f Line {l1=0x26, l2=»0740 EXEC FSORT(K3$,T11(4),K4$,T21(4))«, l3=0x26}
0x089f…08be Line {l1=0x1d, l2=»0750 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x08be…08ed Line {l1=0x2d, l2=»0760 EXEC FFLET(K5$,K6$,T11(4),T11(7),T21(7))«, l3=0x2d}
0x08ed…090c Line {l1=0x1d, l2=»0770 EXEC FSYSUD(K2$,T21,T22)«, l3=0x1d}
0x090c…093c Line {l1=0x2e, l2=»0780 EXEC TABINIT(K6$,K7$,MKPOST,HKRTAB,UKTAB)«, l3=0x2e}
0x093c…0964 Line {l1=0x26, l2=»0790 EXEC FKOPI(K6$,K5$,T21(7),T11(7))«, l3=0x26}
0x0964…0994 Line {l1=0x2e, l2=»0800 EXEC TABINIT(K5$,K9$,MKPOST,HKRTAB,UKTAB)«, l3=0x2e}
0x0994…09ac Line {l1=0x16, l2=»0810 T11(4)=0;T12(1)=0«, l3=0x16}
0x09ac…09cb Line {l1=0x1d, l2=»0820 EXEC FSYSUD(K1$,T11,T12)«, l3=0x1d}
0x09cb…09d8 Line {l1=0x0b, l2=»0830 CLEAR «, l3=0x0b}
0x09d8…09e6 Line {l1=0x0c, l2=»0840 REPEAT «, l3=0x0c}
0x09e6…09f9 Line {l1=0x11, l2=»0850 CURSOR 30,13«, l3=0x11}
0x09f9…0a29 Line {l1=0x2e, l2=»0860 INPUT "Sæt plade nr 10 i ,tast RETURN",A$«, l3=0x2e}
0x0a29…0a41 Line {l1=0x16, l2=»0870 UNTIL ORD(A$)=255«, l3=0x16}
0x0a41…0a5f Line {l1=0x1c, l2=»0880 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x0a5f…0a6a Line {l1=0x09, l2=»0890 END «, l3=0x09}
0x0a6a…0a87 Line {l1=0x1b, l2=»0900 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0a87…0aa6 Line {l1=0x1d, l2=»0910 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0aa6…0acc Line {l1=0x24, l2=»0920 PRINT NR1,NR2,NR3$,STATUS(NR3$)«, l3=0x24}
0x0acc…0ad8 Line {l1=0x0a, l2=»0930 STOP «, l3=0x0a}
0x0ad8…0ae5 Line {l1=0x0b, l2=»0940 ENDIF «, l3=0x0b}
0x0ae5…0af4 Line {l1=0x0d, l2=»0950 ENDPROC «, l3=0x0d}
0x0af4…0b15 Line {l1=0x1f, l2=»0960 PROC FSORT(K,MID,K21,MIDE)«, l3=0x1f}
0x0b15…0b25 Line {l1=0x0e, l2=»0970 OPEN K$,R«, l3=0x0e}
0x0b25…0b3d Line {l1=0x16, l2=»0980 EXEC FEJL(2,1,K$)«, l3=0x16}
0x0b3d…0b4f Line {l1=0x10, l2=»0990 OPEN K21$,W«, l3=0x10}
0x0b4f…0b6a Line {l1=0x19, l2=»1000 EXEC FEJL(2,11,K21$)«, l3=0x19}
0x0b6a…0b74 Line {l1=0x08, l2=»1010 J=1«, l3=0x08}
0x0b74…0b89 Line {l1=0x13, l2=»1020 FOR I=1 TO MID«, l3=0x13}
0x0b89…0bc5 Line {l1=0x3a, l2=»1030 EXEC FGET2(K$,I,N(J),D(J),BI(J),TK$(J),BE$(J),TE$(J))«, l3=0x3a}
0x0bc5…0bd1 Line {l1=0x0a, l2=»1040 J=J+1«, l3=0x0a}
0x0bd1…0bde Line {l1=0x0b, l2=»1050 NEXT I«, l3=0x0b}
0x0bde…0bf3 Line {l1=0x13, l2=»1060 FOR I=1 TO J-1«, l3=0x13}
0x0bf3…0c02 Line {l1=0x0d, l2=»1070 PEG(I)=I«, l3=0x0d}
0x0c02…0c0f Line {l1=0x0b, l2=»1080 NEXT I«, l3=0x0b}
0x0c0f…0c24 Line {l1=0x13, l2=»1090 FOR I=1 TO J-1«, l3=0x13}
0x0c24…0c30 Line {l1=0x0a, l2=»1100 MIN=I«, l3=0x0a}
0x0c30…0c47 Line {l1=0x15, l2=»1110 FOR H=I+1 TO J-1«, l3=0x15}
0x0c47…0c6c Line {l1=0x23, l2=»1120 IF N(PEG(H))<N(PEG(MIN)) THEN «, l3=0x23}
0x0c6c…0c78 Line {l1=0x0a, l2=»1130 MIN=H«, l3=0x0a}
0x0c78…0c84 Line {l1=0x0a, l2=»1140 ELSE «, l3=0x0a}
0x0c84…0ca9 Line {l1=0x23, l2=»1150 IF N(PEG(H))=N(PEG(MIN)) THEN «, l3=0x23}
0x0ca9…0cd3 Line {l1=0x28, l2=»1160 IF D(PEG(H))<D(PEG(MIN)) THEN MIN=H«, l3=0x28}
0x0cd3…0ce0 Line {l1=0x0b, l2=»1170 ENDIF «, l3=0x0b}
0x0ce0…0ced Line {l1=0x0b, l2=»1180 ENDIF «, l3=0x0b}
0x0ced…0cfa Line {l1=0x0b, l2=»1190 NEXT H«, l3=0x0b}
0x0cfa…0d0a Line {l1=0x0e, l2=»1200 MP=PEG(I)«, l3=0x0e}
0x0d0a…0d20 Line {l1=0x14, l2=»1210 PEG(I)=PEG(MIN)«, l3=0x14}
0x0d20…0d32 Line {l1=0x10, l2=»1220 PEG(MIN)=MP«, l3=0x10}
0x0d32…0d3f Line {l1=0x0b, l2=»1230 NEXT I«, l3=0x0b}
0x0d3f…0d49 Line {l1=0x08, l2=»1240 H=1«, l3=0x08}
0x0d49…0d5e Line {l1=0x13, l2=»1250 FOR I=1 TO J-1«, l3=0x13}
0x0d5e…0d6d Line {l1=0x0d, l2=»1260 Q=PEG(I)«, l3=0x0d}
0x0d6d…0dab Line {l1=0x3c, l2=»1270 EXEC FPUT2(K21$,H,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q))«, l3=0x3c}
0x0dab…0db7 Line {l1=0x0a, l2=»1280 H=H+1«, l3=0x0a}
0x0db7…0dc4 Line {l1=0x0b, l2=»1290 NEXT I«, l3=0x0b}
0x0dc4…0dd3 Line {l1=0x0d, l2=»1300 MIDE=H-1«, l3=0x0d}
0x0dd3…0de2 Line {l1=0x0d, l2=»1310 CLOSE K$«, l3=0x0d}
0x0de2…0dfa Line {l1=0x16, l2=»1320 EXEC FEJL(2,4,K$)«, l3=0x16}
0x0dfa…0e0b Line {l1=0x0f, l2=»1330 CLOSE K21$«, l3=0x0f}
0x0e0b…0e25 Line {l1=0x18, l2=»1340 EXEC FEJL(2,5,K21$)«, l3=0x18}
0x0e25…0e34 Line {l1=0x0d, l2=»1350 ENDPROC «, l3=0x0d}
0x0e34…0e51 Line {l1=0x1b, l2=»1360 PROC FSYSIN(K11,T1,T2)«, l3=0x1b}
0x0e51…0e63 Line {l1=0x10, l2=»1370 OPEN K11$,R«, l3=0x10}
0x0e63…0e7d Line {l1=0x18, l2=»1380 EXEC FEJL(5,1,K11$)«, l3=0x18}
0x0e7d…0ec5 Line {l1=0x46, l2=»1390 GET K11$,13:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x46}
0x0ec5…0edf Line {l1=0x18, l2=»1400 EXEC FEJL(5,2,K11$)«, l3=0x18}
0x0edf…0f27 Line {l1=0x46, l2=»1410 GET K11$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x0f27…0f41 Line {l1=0x18, l2=»1420 EXEC FEJL(5,3,K11$)«, l3=0x18}
0x0f41…0f52 Line {l1=0x0f, l2=»1430 CLOSE K11$«, l3=0x0f}
0x0f52…0f6c Line {l1=0x18, l2=»1440 EXEC FEJL(5,4,K11$)«, l3=0x18}
0x0f6c…0f7b Line {l1=0x0d, l2=»1450 ENDPROC «, l3=0x0d}
0x0f7b…0f98 Line {l1=0x1b, l2=»1460 PROC FSYSUD(K12,T3,T4)«, l3=0x1b}
0x0f98…0faa Line {l1=0x10, l2=»1470 OPEN K12$,W«, l3=0x10}
0x0faa…0fc4 Line {l1=0x18, l2=»1480 EXEC FEJL(6,1,K12$)«, l3=0x18}
0x0fc4…100c Line {l1=0x46, l2=»1490 PUT K12$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x100c…1026 Line {l1=0x18, l2=»1500 EXEC FEJL(6,2,K12$)«, l3=0x18}
0x1026…106e Line {l1=0x46, l2=»1510 PUT K12$,17:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9)«, l3=0x46}
0x106e…1088 Line {l1=0x18, l2=»1520 EXEC FEJL(6,3,K12$)«, l3=0x18}
0x1088…1099 Line {l1=0x0f, l2=»1530 CLOSE K12$«, l3=0x0f}
0x1099…10b3 Line {l1=0x18, l2=»1540 EXEC FEJL(6,4,K12$)«, l3=0x18}
0x10b3…10c2 Line {l1=0x0d, l2=»1550 ENDPROC «, l3=0x0d}
0x10c2…10f1 Line {l1=0x2d, l2=»1560 PROC FGET2(K15,I3,N3,D3,BI3,TK3,BE3,TE3)«, l3=0x2d}
0x10f1…1117 Line {l1=0x24, l2=»1570 GET K15$,I3:N3,D3,BI3,TK3$,BE3$«, l3=0x24}
0x1117…1131 Line {l1=0x18, l2=»1580 EXEC FEJL(9,1,K15$)«, l3=0x18}
0x1131…1163 Line {l1=0x30, l2=»1590 IF ORD(TK3$)-48>9 AND ORD(TK3$)-48<20 THEN «, l3=0x30}
0x1163…1171 Line {l1=0x0c, l2=»1600 I3=I3+1«, l3=0x0c}
0x1171…118b Line {l1=0x18, l2=»1610 GET K15$,I3:N3,TE3$«, l3=0x18}
0x118b…11a5 Line {l1=0x18, l2=»1620 EXEC FEJL(9,2,K15$)«, l3=0x18}
0x11a5…11b1 Line {l1=0x0a, l2=»1630 ELSE «, l3=0x0a}
0x11b1…11c3 Line {l1=0x10, l2=»1640 TE3$=BLANK$«, l3=0x10}
0x11c3…11d0 Line {l1=0x0b, l2=»1650 ENDIF «, l3=0x0b}
0x11d0…11df Line {l1=0x0d, l2=»1660 ENDPROC «, l3=0x0d}
0x11df…120e Line {l1=0x2d, l2=»1670 PROC FPUT2(K16,I4,N4,D4,BI4,TK4,BE4,TE4)«, l3=0x2d}
0x120e…1234 Line {l1=0x24, l2=»1680 PUT K16$,I4:N4,D4,BI4,TK4$,BE4$«, l3=0x24}
0x1234…124f Line {l1=0x19, l2=»1690 EXEC FEJL(10,1,K16$)«, l3=0x19}
0x124f…1281 Line {l1=0x30, l2=»1700 IF ORD(TK4$)-48>9 AND ORD(TK4$)-48<20 THEN «, l3=0x30}
0x1281…128f Line {l1=0x0c, l2=»1710 I4=I4+1«, l3=0x0c}
0x128f…12a9 Line {l1=0x18, l2=»1720 PUT K16$,I4:N4,TE4$«, l3=0x18}
0x12a9…12c4 Line {l1=0x19, l2=»1730 EXEC FEJL(10,2,K16$)«, l3=0x19}
0x12c4…12d1 Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x12d1…12e0 Line {l1=0x0d, l2=»1750 ENDPROC «, l3=0x0d}
0x12e0…1309 Line {l1=0x27, l2=»1760 PROC FFLET(K17,K18,DPM2,DPO2,DPO3)«, l3=0x27}
0x1309…131b Line {l1=0x10, l2=»1770 OPEN K17$,R«, l3=0x10}
0x131b…1336 Line {l1=0x19, l2=»1780 EXEC FEJL(11,1,K17$)«, l3=0x19}
0x1336…1348 Line {l1=0x10, l2=»1790 OPEN K18$,W«, l3=0x10}
0x1348…1363 Line {l1=0x19, l2=»1800 EXEC FEJL(11,2,K18$)«, l3=0x19}
0x1363…136d Line {l1=0x08, l2=»1810 L=1«, l3=0x08}
0x136d…1377 Line {l1=0x08, l2=»1820 M=1«, l3=0x08}
0x1377…1381 Line {l1=0x08, l2=»1830 P=1«, l3=0x08}
0x1381…138e Line {l1=0x0b, l2=»1840 TEST=0«, l3=0x0b}
0x138e…13b1 Line {l1=0x21, l2=»1850 IF DPM2<>0 AND DPO2<>0 THEN «, l3=0x21}
0x13b1…13bf Line {l1=0x0c, l2=»1860 REPEAT «, l3=0x0c}
0x13bf…13d5 Line {l1=0x14, l2=»1870 IF TEST=0 THEN «, l3=0x14}
0x13d5…1407 Line {l1=0x30, l2=»1880 EXEC FGET2(K17$,L,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x1407…1413 Line {l1=0x0a, l2=»1890 L=L+1«, l3=0x0a}
0x1413…1420 Line {l1=0x0b, l2=»1900 TEST=1«, l3=0x0b}
0x1420…142d Line {l1=0x0b, l2=»1910 ENDIF «, l3=0x0b}
0x142d…1440 Line {l1=0x11, l2=»1920 IF M<J THEN «, l3=0x11}
0x1440…144f Line {l1=0x0d, l2=»1930 Q=PEG(M)«, l3=0x0d}
0x144f…145b Line {l1=0x0a, l2=»1940 ELSE «, l3=0x0a}
0x145b…146d Line {l1=0x10, l2=»1950 N(Q)=100000«, l3=0x10}
0x146d…147a Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x147a…1491 Line {l1=0x15, l2=»1970 IF N(Q)<NO THEN «, l3=0x15}
0x1491…14cf Line {l1=0x3c, l2=»1980 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q))«, l3=0x3c}
0x14cf…14db Line {l1=0x0a, l2=»1990 M=M+1«, l3=0x0a}
0x14db…14e7 Line {l1=0x0a, l2=»2000 ELSE «, l3=0x0a}
0x14e7…150a Line {l1=0x21, l2=»2010 IF N(Q)=NO AND D(Q)<DO THEN «, l3=0x21}
0x150a…1548 Line {l1=0x3c, l2=»2020 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q))«, l3=0x3c}
0x1548…1554 Line {l1=0x0a, l2=»2030 M=M+1«, l3=0x0a}
0x1554…1560 Line {l1=0x0a, l2=»2040 ELSE «, l3=0x0a}
0x1560…1592 Line {l1=0x30, l2=»2050 EXEC FPUT2(K18$,P,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x1592…159f Line {l1=0x0b, l2=»2060 TEST=0«, l3=0x0b}
0x159f…15ac Line {l1=0x0b, l2=»2070 ENDIF «, l3=0x0b}
0x15ac…15b9 Line {l1=0x0b, l2=»2080 ENDIF «, l3=0x0b}
0x15b9…15c5 Line {l1=0x0a, l2=»2090 P=P+1«, l3=0x0a}
0x15c5…15ee Line {l1=0x27, l2=»2100 UNTIL (DPO2=L-1 OR M=J) AND TEST=0«, l3=0x27}
0x15ee…1606 Line {l1=0x16, l2=»2110 IF DPO2=L-1 THEN «, l3=0x16}
0x1606…1613 Line {l1=0x0b, l2=»2120 STYR=1«, l3=0x0b}
0x1613…161f Line {l1=0x0a, l2=»2130 ELSE «, l3=0x0a}
0x161f…162c Line {l1=0x0b, l2=»2140 STYR=0«, l3=0x0b}
0x162c…1639 Line {l1=0x0b, l2=»2150 ENDIF «, l3=0x0b}
0x1639…1645 Line {l1=0x0a, l2=»2160 ELSE «, l3=0x0a}
0x1645…165b Line {l1=0x14, l2=»2170 IF DPM2=0 THEN «, l3=0x14}
0x165b…1668 Line {l1=0x0b, l2=»2180 STYR=0«, l3=0x0b}
0x1668…1674 Line {l1=0x0a, l2=»2190 ELSE «, l3=0x0a}
0x1674…1681 Line {l1=0x0b, l2=»2200 STYR=1«, l3=0x0b}
0x1681…168e Line {l1=0x0b, l2=»2210 ENDIF «, l3=0x0b}
0x168e…169b Line {l1=0x0b, l2=»2220 ENDIF «, l3=0x0b}
0x169b…16b1 Line {l1=0x14, l2=»2230 IF STYR=1 THEN «, l3=0x14}
0x16b1…16c6 Line {l1=0x13, l2=»2240 FOR I=M TO J-1«, l3=0x13}
0x16c6…16d5 Line {l1=0x0d, l2=»2250 Q=PEG(I)«, l3=0x0d}
0x16d5…1713 Line {l1=0x3c, l2=»2260 EXEC FPUT2(K18$,P,N(Q),D(Q),BI(Q),TK$(Q),BE$(Q),TE$(Q))«, l3=0x3c}
0x1713…171f Line {l1=0x0a, l2=»2270 P=P+1«, l3=0x0a}
0x171f…172c Line {l1=0x0b, l2=»2280 NEXT I«, l3=0x0b}
0x172c…1738 Line {l1=0x0a, l2=»2290 ELSE «, l3=0x0a}
0x1738…174e Line {l1=0x14, l2=»2300 FOR I=L TO DPO2«, l3=0x14}
0x174e…1780 Line {l1=0x30, l2=»2310 EXEC FGET2(K17$,I,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x1780…17b2 Line {l1=0x30, l2=»2320 EXEC FPUT2(K18$,P,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x17b2…17be Line {l1=0x0a, l2=»2330 P=P+1«, l3=0x0a}
0x17be…17cb Line {l1=0x0b, l2=»2340 NEXT I«, l3=0x0b}
0x17cb…17d8 Line {l1=0x0b, l2=»2350 ENDIF «, l3=0x0b}
0x17d8…17e7 Line {l1=0x0d, l2=»2360 DPO3=P-1«, l3=0x0d}
0x17e7…17f8 Line {l1=0x0f, l2=»2370 CLOSE K17$«, l3=0x0f}
0x17f8…1813 Line {l1=0x19, l2=»2380 EXEC FEJL(11,3,K17$)«, l3=0x19}
0x1813…1824 Line {l1=0x0f, l2=»2390 CLOSE K18$«, l3=0x0f}
0x1824…183f Line {l1=0x19, l2=»2400 EXEC FEJL(11,4,K18$)«, l3=0x19}
0x183f…184e Line {l1=0x0d, l2=»2410 ENDPROC «, l3=0x0d}
0x184e…1872 Line {l1=0x22, l2=»2420 PROC FKOPI(K19,K20,DPO4,DPO5)«, l3=0x22}
0x1872…1884 Line {l1=0x10, l2=»2430 OPEN K19$,R«, l3=0x10}
0x1884…189f Line {l1=0x19, l2=»2440 EXEC FEJL(12,1,K19$)«, l3=0x19}
0x189f…18b1 Line {l1=0x10, l2=»2450 OPEN K20$,W«, l3=0x10}
0x18b1…18cc Line {l1=0x19, l2=»2460 EXEC FEJL(12,2,K20$)«, l3=0x19}
0x18cc…18e2 Line {l1=0x14, l2=»2470 FOR I=1 TO DPO4«, l3=0x14}
0x18e2…18ec Line {l1=0x08, l2=»2480 J=I«, l3=0x08}
0x18ec…191e Line {l1=0x30, l2=»2490 EXEC FGET2(K19$,I,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x191e…1950 Line {l1=0x30, l2=»2500 EXEC FPUT2(K20$,J,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x1950…195d Line {l1=0x0b, l2=»2510 NEXT I«, l3=0x0b}
0x195d…196e Line {l1=0x0f, l2=»2520 CLOSE K19$«, l3=0x0f}
0x196e…197f Line {l1=0x0f, l2=»2530 CLOSE K20$«, l3=0x0f}
0x197f…199a Line {l1=0x19, l2=»2540 EXEC FEJL(12,3,K20$)«, l3=0x19}
0x199a…19aa Line {l1=0x0e, l2=»2550 DPO5=DPO4«, l3=0x0e}
0x19aa…19b9 Line {l1=0x0d, l2=»2560 ENDPROC «, l3=0x0d}
0x19b9…19ed Line {l1=0x32, l2=»2570 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2)«, l3=0x32}
0x19ed…19ff Line {l1=0x10, l2=»2580 OPEN K31$,R«, l3=0x10}
0x19ff…1a1a Line {l1=0x19, l2=»2590 EXEC FEJL(15,1,K31$)«, l3=0x19}
0x1a1a…1a2c Line {l1=0x10, l2=»2600 OPEN K32$,W«, l3=0x10}
0x1a2c…1a47 Line {l1=0x19, l2=»2610 EXEC FEJL(15,2,K32$)«, l3=0x19}
0x1a47…1a51 Line {l1=0x08, l2=»2620 H=1«, l3=0x08}
0x1a51…1a75 Line {l1=0x22, l2=»2630 FOR I=1 TO MPOSTANTAL3 DIV 40«, l3=0x22}
0x1a75…1a8b Line {l1=0x14, l2=»2640 GET K31$,H:KONR«, l3=0x14}
0x1a8b…1aa6 Line {l1=0x19, l2=»2650 EXEC FEJL(15,3,K31$)«, l3=0x19}
0x1aa6…1abc Line {l1=0x14, l2=»2660 HTAB2(I,1)=KONR«, l3=0x14}
0x1abc…1acf Line {l1=0x11, l2=»2670 FOR J=1 TO 4«, l3=0x11}
0x1acf…1ae5 Line {l1=0x14, l2=»2680 GET K31$,H:KONR«, l3=0x14}
0x1ae5…1b00 Line {l1=0x19, l2=»2690 EXEC FEJL(15,4,K31$)«, l3=0x19}
0x1b00…1b16 Line {l1=0x14, l2=»2700 UTAB2(J,1)=KONR«, l3=0x14}
0x1b16…1b22 Line {l1=0x0a, l2=»2710 H=H+9«, l3=0x0a}
0x1b22…1b38 Line {l1=0x14, l2=»2720 GET K31$,H:KONR«, l3=0x14}
0x1b38…1b53 Line {l1=0x19, l2=»2730 EXEC FEJL(15,5,K31$)«, l3=0x19}
0x1b53…1b69 Line {l1=0x14, l2=»2740 UTAB2(J,2)=KONR«, l3=0x14}
0x1b69…1b75 Line {l1=0x0a, l2=»2750 H=H+1«, l3=0x0a}
0x1b75…1b82 Line {l1=0x0b, l2=»2760 NEXT J«, l3=0x0b}
0x1b82…1b98 Line {l1=0x14, l2=»2770 HTAB2(I,2)=KONR«, l3=0x14}
0x1b98…1bc3 Line {l1=0x29, l2=»2780 EXEC UNDUD(K32$,I,UTAB2,MPOSTANTAL3)«, l3=0x29}
0x1bc3…1bd0 Line {l1=0x0b, l2=»2790 NEXT I«, l3=0x0b}
0x1bd0…1bf9 Line {l1=0x27, l2=»2800 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2)«, l3=0x27}
0x1bf9…1c0a Line {l1=0x0f, l2=»2810 CLOSE K31$«, l3=0x0f}
0x1c0a…1c25 Line {l1=0x19, l2=»2820 EXEC FEJL(15,6,K31$)«, l3=0x19}
0x1c25…1c36 Line {l1=0x0f, l2=»2830 CLOSE K32$«, l3=0x0f}
0x1c36…1c51 Line {l1=0x19, l2=»2840 EXEC FEJL(15,7,K32$)«, l3=0x19}
0x1c51…1c68 Line {l1=0x15, l2=»2850 ENDPROC ;TABINIT«, l3=0x15}
0x1c68…1c8b Line {l1=0x21, l2=»2860 PROC UNDUD(V3,U2,T,MPOSTANT)«, l3=0x21}
0x1c8b…1ca8 Line {l1=0x1b, l2=»2870 U3=U2+MPOSTANT DIV 160«, l3=0x1b}
0x1ca8…1cf1 Line {l1=0x47, l2=»2880 PUT V3$,U3:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2)«, l3=0x47}
0x1cf1…1d0b Line {l1=0x18, l2=»2890 EXEC FEJL(16,1,V3$)«, l3=0x18}
0x1d0b…1d20 Line {l1=0x13, l2=»2900 ENDPROC ;UNDUD«, l3=0x13}
0x1d20…1d43 Line {l1=0x21, l2=»2910 PROC HOVUD(V4,MPOSTANTAL4,S)«, l3=0x21}
0x1d43…1d68 Line {l1=0x23, l2=»2920 FOR I=1 TO MPOSTANTAL4 DIV 160«, l3=0x23}
0x1d68…1d8f Line {l1=0x25, l2=»2930 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x1d8f…1ddd Line {l1=0x4c, l2=»2940 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2)«, l3=0x4c}
0x1ddd…1df7 Line {l1=0x18, l2=»2950 EXEC FEJL(17,2,V4$)«, l3=0x18}
0x1df7…1e04 Line {l1=0x0b, l2=»2960 NEXT I«, l3=0x0b}
0x1e04…1e13 Line {l1=0x0d, l2=»2970 ENDPROC «, l3=0x0d}
0x1e13…1e20 00 00 28 32 35 29 2c 54 4b 4f 24 28 31 ┆ (25),TKO$(1┆
0x1e20…1e40 29 2c 42 45 4f 24 28 31 32 29 2c 54 45 4f 24 28 32 35 29 49 16 30 31 32 30 20 44 49 4d 20 54 32 ┆),BEO$(12),TEO$(25)I 0120 DIM T2┆
0x1e40…1e60 31 28 39 29 2c 54 32 32 28 39 29 16 27 30 31 33 30 20 42 4c 41 4e 4b 24 3d 22 20 20 20 20 20 20 ┆1(9),T22(9) '0130 BLANK$=" ┆
0x1e60…1e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27 0b 30 31 34 30 20 43 4c 45 41 52 ┆ "' 0140 CLEAR┆
0x1e80…1ea0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x47…]