|
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: »OPMODUL.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »OPMODUL.K«
0100 TRUE=1 0110 FALSE=0 0120 DIM SPLIT$(66),BL$(66),FIL$(20) 0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20) 0140 FOR I=1 TO 66 0150 BL$(I)=" " 0160 NEXT I 0170 FIL$="DDE:MODUL" 0180 REPEAT 0190 INPUT "OPRETTELSE, ÆNDRING ELLER STOP O/Æ/S ",S$ 0200 UNTIL S$="O" OR S$="Æ" OR S$="o" OR S$="æ" OR S$="S" OR S$="s" 0205 IF S$="S" OR S$="s" THEN STOP 0210 IF S$="Æ" OR S$="æ" THEN 0215 REPEAT 0220 INPUT "MODULNR ",SV$ 0221 EXEC CHECK1 0222 UNTIL OKAY=TRUE 0225 EXEC CONVERT(NR) 0230 FIL1$=FIL$+SV$ 0240 OPEN FIL1$,W 0245 IF STATUS(FIL1$)<>0 THEN GO TO 0215 0250 FOR L=1 TO 18 0260 GET FIL1$:SIDE$(L) 0270 IF LEN(SIDE$(L))>0 THEN LAST=L 0280 NEXT L 0284 CLOSE FIL1$ 0286 OPEN FIL1$,W 0290 EXEC SKRIV 0300 ELSE 0310 I=0 0320 LAST=-1 0330 CLEAR 0340 REPEAT 0350 I=I+1 0360 CURSOR 2,I 0370 INPUT " ",LINE$ 0380 IF LEN(LINE$)=0 THEN LAST=I-1 0390 IF LAST=-1 THEN SIDE$(I)=LINE$+BL$ 0400 UNTIL I=18 OR LAST<>-1 0405 IF LAST=-1 THEN LAST=18 0410 ENDIF 0412 IF LAST=0 THEN STOP 0415 I0=1 0420 REPEAT 0430 CURSOR 1,23 0440 INPUT "T,TL,S,SL,R,E,F ",SV$ 0445 EXEC CHECK 0450 IF OKAY=TRUE THEN 0460 I=I0-1 0470 EXEC FINDPOS 0472 I0=I 0475 IF I0=>LAST THEN I0=1 0480 IF J>0 THEN 0490 CASE SV$ OF 0500 WHEN "TL","tl","Tl","tL" 0510 IF LAST<18 THEN 0520 CURSOR 1,23 0530 PRINT BL$ 0535 REPEAT 0540 CURSOR 1,23 0550 INPUT " ",LINE$ 0555 UNTIL LEN(LINE$)>0 0560 I1=I 0570 EXEC INDSÆT 0580 ENDIF 0590 WHEN "T","t" 0600 J1=J 0610 I1=I 0620 CURSOR 1,23 0630 PRINT BL$ 0635 REPEAT 0640 CURSOR 1,23 0650 INPUT " ",LINE$ 0655 UNTIL LEN(LINE$)>0 0660 EXEC INSERT 0670 WHEN "S","s" 0680 EXEC SLUTPOS 0690 EXEC DELETE 0700 WHEN "SL","sl","Sl","sL" 0710 I1=I 0720 EXEC SLET 0730 WHEN "R","r" 0740 EXEC SLUTPOS 0750 CURSOR 1,23 0760 PRINT BL$ 0765 REPEAT 0770 CURSOR 1,23 0780 INPUT " ",LINE$ 0785 UNTIL LEN(LINE$)>0 0790 IF I1=I THEN 0800 IF LEN(LINE$)<=J-J1+1 THEN 0810 SIDE$(I1,J1:LEN(LINE$))=LINE$ 0820 J1=J1+LEN(LINE$) 0830 IF J1<=J THEN EXEC DELETE 0840 ELSE 0850 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 0860 LINE$=LINE$(J-J1+2,LEN(LINE$)) 0870 J1=J+1 0880 EXEC INSERT 0890 ENDIF 0900 ELSE 0910 IF LEN(LINE$)<=66-J1 THEN 0920 SIDE$(I1,J1:LEN(LINE$))=LINE$ 0930 J1=J1+LEN(LINE$) 0932 IF J1>66 THEN 0934 J1=1 0936 I1=I1+1 0938 ENDIF 0940 EXEC DELETE 0950 ELSE 0960 P=67 0965 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$ 0970 EXEC FLÆK(LINE$) 0980 SIDE$(I1)=SPLIT$+BL$ 0990 I1=I1+1 1000 J1=1 1010 IF I1=I THEN 1020 IF LEN(LINE$)<=J-J1 THEN 1030 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$ 1040 J1=J1+LEN(LINE$) 1050 EXEC DELETE 1060 ELSE 1070 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 1080 LINE$=LINE$(J-J1+2,LEN(LINE$)) 1090 J1=J+1 1100 EXEC INSERT 1110 ENDIF 1120 ELSE 1130 SIDE$(I1)=LINE$ 1140 J1=LEN(LINE$)+1 1150 EXEC DELETE 1160 ENDIF 1170 ENDIF 1180 ENDIF 1190 WHEN "E","e" 1200 LINE$=SIDE$(I) 1210 CURSOR 1,23 1220 PRINT BL$ 1225 REPEAT 1230 CURSOR 1,23 1240 EDIT " ",LINE$ 1245 UNTIL LEN(LINE$)>0 1250 SIDE$(I)=LINE$ 1260 ENDCASE 1270 EXEC SKRIV 1280 ENDIF 1290 ENDIF 1300 UNTIL SV$="F" OR SV$="f" 1301 IF LAST>18 THEN 1302 CURSOR 1,22 1305 PRINT "SIDEN ER FOR ";LAST-18;"LINIER FOR LANG" 1306 GO TO 0420 1307 ENDIF 1310 IF (S$="O") OR (S$="o") THEN 1315 REPEAT 1320 INPUT "MODULNR ",SV$ 1322 EXEC CHECK1 1325 UNTIL OKAY=TRUE 1327 EXEC CONVERT(NR) 1330 FIL1$=FIL$+SV$ 1340 CREATE FIL1$,6 1345 IF STATUS(FIL1$)<>0 THEN GO TO 1315 1350 OPEN FIL1$,W 1360 ENDIF 1370 FOR L=1 TO LAST 1380 PUT FIL1$:SIDE$(L) 1390 NEXT L 1392 FOR L=LAST+1 TO 22 1394 PUT FIL1$:BL$ 1396 NEXT L 1400 CLOSE FIL1$ 1405 GO TO 0170 1410 PROC FINDPOS 1420 REPEAT 1430 I=I+1 1440 CURSOR 1,I 1450 INPUT " ",LINE$ 1460 UNTIL I=22 OR LEN(LINE$)>0 1470 J=LEN(LINE$) 1475 IF J>66 THEN J=66 1480 ENDPROC 1490 PROC SKRIV 1500 CLEAR 1510 FOR X=1 TO 22 1520 CURSOR 1,X 1530 PRINT " ";SIDE$(X) 1540 NEXT X 1550 ENDPROC 1560 PROC INDSÆT 1570 LAST=LAST+1 1575 IF I1>LAST THEN LAST=I1 1580 FOR L=LAST TO I1+1 STEP -1 1590 SIDE$(L)=SIDE$(L-1) 1600 NEXT L 1610 SIDE$(I1)=LINE$+BL$ 1620 ENDPROC 1630 PROC SLET 1640 FOR L=I1 TO LAST-1 1650 SIDE$(L)=SIDE$(L+1) 1660 NEXT L 1670 SIDE$(LAST)="" 1680 LAST=LAST-1 1690 ENDPROC 1700 PROC SLUTPOS 1710 I1=I 1720 J1=J 1730 CURSOR J+10,I 1740 INPUT " ",LINE$ 1750 IF LEN(LINE$)=0 THEN 1752 EXEC FINDPOS 1754 ELSE 1756 J=LEN(LINE$)+J1-1 1757 IF J>66 THEN J=66 1758 ENDIF 1760 ENDPROC 1770 PROC FLÆK(LIN) 1775 SPLIT$="" 1780 FOUND=FALSE 1781 Q=LEN(LIN$) 1782 WHILE Q>0 1783 IF LIN$(Q)=" " THEN 1784 LIN$(Q)="" 1785 Q=Q-1 1786 ELSE 1787 Q=0 1788 ENDIF 1789 ENDWHILE 1790 IF P>LEN(LIN$) THEN 1795 FOUND=TRUE 1800 P=LEN(LIN$)+1 1810 ELSE 1820 IF P<66 THEN P=P+1 1830 IF LIN$(P)<>" " THEN 1850 REPEAT 1860 P=P-1 1870 IF LIN$(P)=" " THEN FOUND=TRUE 1880 UNTIL FOUND=TRUE OR P=1 1885 ELSE 1887 FOUND=TRUE 1890 ENDIF 1900 ENDIF 1901 IF FOUND THEN 1902 IF P=1 THEN 1903 SPLIT$="" 1904 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$)) 1905 ELSE 1920 SPLIT$=LIN$(1,P-1) 1930 IF P<LEN(LIN$) THEN 1940 LIN$=LIN$(P+1,LEN(LIN$)) 1990 ELSE 2000 LIN$="" 2010 ENDIF 2015 ENDIF 2020 ENDIF 2030 ENDPROC 2040 PROC INSERT 2060 B$="" 2070 IF J1>1 THEN B$=SIDE$(I1,1,J1-1) 2080 B$=B$+LINE$ 2085 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66) 2090 P=67 2100 EXEC FLÆK(B$) 2110 SIDE$(I1)=SPLIT$+BL$ 2120 I1=I1+1 2130 J1=1 2140 LINE$=B$ 2250 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0 2260 B$=SIDE$(I1) 2270 IF LINE$(LEN(LINE$))="-" THEN 2280 LINE$(LEN(LINE$))="" 2290 ELSE 2300 IF LEN(LINE$)<66 THEN LINE$=LINE$+" " 2310 ENDIF 2320 SIDE$(I1,1,LEN(LINE$))=LINE$ 2330 P=67-LEN(LINE$) 2340 EXEC FLÆK(B$) 2350 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$ 2360 LINE$=B$ 2370 I1=I1+1 2380 ENDWHILE 2390 IF LEN(LINE$)>0 THEN 2400 EXEC INDSÆT 2410 ENDIF 2420 ENDPROC 2500 PROC DELETE 2520 J=J+1 2540 IF J>66 THEN 2560 J=1 2580 I=I+1 2600 ENDIF 2620 P=67-J1 2640 IF I=LAST+1 THEN 2650 IF J1>1 THEN 2660 SIDE$(I1,J1,66)=BL$ 2665 ELSE 2670 I1=I1-1 2675 ENDIF 2680 FOR Q=I1+1 TO LAST 2700 SIDE$(Q)=BL$ 2720 NEXT Q 2740 LAST=I1 2760 ELSE 2780 LINE$=SIDE$(I,J,66) 2800 EXEC FLÆK(LINE$) 2820 REPEAT 2825 HYPHEN=0 2829 IF LEN(SPLIT$)>0 THEN 2830 IF SPLIT$(LEN(SPLIT$))="-" THEN 2831 HYPHEN=LEN(SPLIT$)+J1-1+100*I1 2832 SPLIT$(LEN(SPLIT$))="" 2834 ELSE 2836 SPLIT$=SPLIT$+" " 2838 ENDIF 2839 ENDIF 2840 SIDE$(I1,J1,66)=SPLIT$+BL$ 2860 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN 2880 J1=J1+LEN(SPLIT$) 2900 P=67-J1 2920 IF I<22 THEN 2940 IF SIDE$(I+1,1)<>" " THEN 2960 LINE$=SIDE$(I+1) 2970 I=I+1 2980 EXEC FLÆK(LINE$) 2990 IF LEN(SPLIT$)>0 THEN 3000 SIDE$(I1,J1,66)=SPLIT$+BL$ 3001 IF LEN(LINE$)>0 THEN I=I-1 3002 SPLIT$=LINE$ 3003 LINE$="" 3005 HYPHEN=0 3006 ELSE 3007 SIDE$(I1+1)=LINE$ 3008 LINE$="" 3009 I1=I1+1 3010 ENDIF 3020 ELSE 3040 LINE$="" 3050 SPLIT$="" 3060 ENDIF 3080 ELSE 3100 LINE$="" 3105 SPLIT$="" 3120 ENDIF 3140 ELSE 3141 B$=LINE$ 3142 LINE$=SIDE$(I+1) 3143 SIDE$(I1+1)=B$ 3144 J1=LEN(B$);P=67-J1 3145 EXEC FLÆK(LINE$) 3146 ENDIF 3150 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-" 3160 J1=1 3170 J=1 3180 I1=I1+1 3200 I=I+1 3210 IF I>22 THEN I=22 3240 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ") 3242 J=I1 3245 WHILE J<I 3250 EXEC SLET 3252 J=J+1 3255 ENDWHILE 3260 ENDIF 4000 PROC CHECK1 4010 NR=0 4020 I=1 4030 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN 4040 OKAY=TRUE 4050 ELSE 4060 OKAY=FALSE 4070 ENDIF 4080 WHILE I<=LEN(SV$) 4090 IF SV$(I)<"0" OR SV$(I)>"9" THEN 4100 OKAY=FALSE 4110 I=LEN(SV$)+1 4120 ELSE 4130 NR=NR*10+ORD(SV$(I))-48 4140 I=I+1 4150 ENDIF 4160 ENDWHILE 4170 ENDPROC 4180 PROC CONVERT(NO) 4190 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48) 4200 ENDPROC 5000 ENDPROC 6000 PROC CHECK 6010 OKAY=FALSE 6015 CURSOR 20,23 6020 CASE SV$ OF 6030 WHEN "T","t" 6040 OKAY=TRUE 6050 PRINT "Tilføjelse" 6060 WHEN "TL","tl","Tl","tL" 6070 OKAY=TRUE 6080 PRINT "Tilføj linie" 6090 WHEN "s","S" 6100 OKAY=TRUE 6110 PRINT "Sletning" 6120 WHEN "SL","sl","Sl","sL" 6125 OKAY=TRUE 6130 PRINT "Slet linie" 6140 WHEN "R","r" 6150 OKAY=TRUE 6160 PRINT "Retning" 6170 WHEN "e","E" 6180 OKAY=TRUE 6190 PRINT "Editering" 6200 ENDCASE 6210 ENDPROC
0x0000…000d Line {l1=0x0b, l2=»0100 TRUE=1«, l3=0x0b}
0x000d…001b Line {l1=0x0c, l2=»0110 FALSE=0«, l3=0x0c}
0x001b…0041 Line {l1=0x24, l2=»0120 DIM SPLIT$(66),BL$(66),FIL$(20)«, l3=0x24}
0x0041…008b Line {l1=0x48, l2=»0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20)«, l3=0x48}
0x008b…009f Line {l1=0x12, l2=»0140 FOR I=1 TO 66«, l3=0x12}
0x009f…00b0 Line {l1=0x0f, l2=»0150 BL$(I)=" "«, l3=0x0f}
0x00b0…00bd Line {l1=0x0b, l2=»0160 NEXT I«, l3=0x0b}
0x00bd…00d4 Line {l1=0x15, l2=»0170 FIL$="DDE:MODUL"«, l3=0x15}
0x00d4…00e2 Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x00e2…0119 Line {l1=0x35, l2=»0190 INPUT "OPRETTELSE, ÆNDRING ELLER STOP O/Æ/S ",S$«, l3=0x35}
0x0119…015e Line {l1=0x43, l2=»0200 UNTIL S$="O" OR S$="Æ" OR S$="o" OR S$="æ" OR S$="S" OR S$="s"«, l3=0x43}
0x015e…0183 Line {l1=0x23, l2=»0205 IF S$="S" OR S$="s" THEN STOP «, l3=0x23}
0x0183…01a3 Line {l1=0x1e, l2=»0210 IF S$="Æ" OR S$="æ" THEN «, l3=0x1e}
0x01a3…01b1 Line {l1=0x0c, l2=»0215 REPEAT «, l3=0x0c}
0x01b1…01cc Line {l1=0x19, l2=»0220 INPUT "MODULNR ",SV$«, l3=0x19}
0x01cc…01de Line {l1=0x10, l2=»0221 EXEC CHECK1«, l3=0x10}
0x01de…01f4 Line {l1=0x14, l2=»0222 UNTIL OKAY=TRUE«, l3=0x14}
0x01f4…020b Line {l1=0x15, l2=»0225 EXEC CONVERT(NR)«, l3=0x15}
0x020b…0220 Line {l1=0x13, l2=»0230 FIL1$=FIL$+SV$«, l3=0x13}
0x0220…0233 Line {l1=0x11, l2=»0240 OPEN FIL1$,W«, l3=0x11}
0x0233…025d Line {l1=0x28, l2=»0245 IF STATUS(FIL1$)<>0 THEN GO TO 0215«, l3=0x28}
0x025d…0271 Line {l1=0x12, l2=»0250 FOR L=1 TO 18«, l3=0x12}
0x0271…028a Line {l1=0x17, l2=»0260 GET FIL1$:SIDE$(L)«, l3=0x17}
0x028a…02af Line {l1=0x23, l2=»0270 IF LEN(SIDE$(L))>0 THEN LAST=L«, l3=0x23}
0x02af…02bc Line {l1=0x0b, l2=»0280 NEXT L«, l3=0x0b}
0x02bc…02ce Line {l1=0x10, l2=»0284 CLOSE FIL1$«, l3=0x10}
0x02ce…02e1 Line {l1=0x11, l2=»0286 OPEN FIL1$,W«, l3=0x11}
0x02e1…02f2 Line {l1=0x0f, l2=»0290 EXEC SKRIV«, l3=0x0f}
0x02f2…02fe Line {l1=0x0a, l2=»0300 ELSE «, l3=0x0a}
0x02fe…0308 Line {l1=0x08, l2=»0310 I=0«, l3=0x08}
0x0308…0316 Line {l1=0x0c, l2=»0320 LAST=-1«, l3=0x0c}
0x0316…0323 Line {l1=0x0b, l2=»0330 CLEAR «, l3=0x0b}
0x0323…0331 Line {l1=0x0c, l2=»0340 REPEAT «, l3=0x0c}
0x0331…033d Line {l1=0x0a, l2=»0350 I=I+1«, l3=0x0a}
0x033d…034e Line {l1=0x0f, l2=»0360 CURSOR 2,I«, l3=0x0f}
0x034e…036e Line {l1=0x1e, l2=»0370 INPUT " ",LINE$«, l3=0x1e}
0x036e…0392 Line {l1=0x22, l2=»0380 IF LEN(LINE$)=0 THEN LAST=I-1«, l3=0x22}
0x0392…03bb Line {l1=0x27, l2=»0390 IF LAST=-1 THEN SIDE$(I)=LINE$+BL$«, l3=0x27}
0x03bb…03d8 Line {l1=0x1b, l2=»0400 UNTIL I=18 OR LAST<>-1«, l3=0x1b}
0x03d8…03f6 Line {l1=0x1c, l2=»0405 IF LAST=-1 THEN LAST=18«, l3=0x1c}
0x03f6…0403 Line {l1=0x0b, l2=»0410 ENDIF «, l3=0x0b}
0x0403…041e Line {l1=0x19, l2=»0412 IF LAST=0 THEN STOP «, l3=0x19}
0x041e…0429 Line {l1=0x09, l2=»0415 I0=1«, l3=0x09}
0x0429…0437 Line {l1=0x0c, l2=»0420 REPEAT «, l3=0x0c}
0x0437…0449 Line {l1=0x10, l2=»0430 CURSOR 1,23«, l3=0x10}
0x0449…046c Line {l1=0x21, l2=»0440 INPUT "T,TL,S,SL,R,E,F ",SV$«, l3=0x21}
0x046c…047d Line {l1=0x0f, l2=»0445 EXEC CHECK«, l3=0x0f}
0x047d…0496 Line {l1=0x17, l2=»0450 IF OKAY=TRUE THEN «, l3=0x17}
0x0496…04a3 Line {l1=0x0b, l2=»0460 I=I0-1«, l3=0x0b}
0x04a3…04b6 Line {l1=0x11, l2=»0470 EXEC FINDPOS«, l3=0x11}
0x04b6…04c1 Line {l1=0x09, l2=»0472 I0=I«, l3=0x09}
0x04c1…04dd Line {l1=0x1a, l2=»0475 IF I0=>LAST THEN I0=1«, l3=0x1a}
0x04dd…04f0 Line {l1=0x11, l2=»0480 IF J>0 THEN «, l3=0x11}
0x04f0…0503 Line {l1=0x11, l2=»0490 CASE SV$ OF «, l3=0x11}
0x0503…0522 Line {l1=0x1d, l2=»0500 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x0522…0539 Line {l1=0x15, l2=»0510 IF LAST<18 THEN «, l3=0x15}
0x0539…054b Line {l1=0x10, l2=»0520 CURSOR 1,23«, l3=0x10}
0x054b…055b Line {l1=0x0e, l2=»0530 PRINT BL$«, l3=0x0e}
0x055b…0569 Line {l1=0x0c, l2=»0535 REPEAT «, l3=0x0c}
0x0569…057b Line {l1=0x10, l2=»0540 CURSOR 1,23«, l3=0x10}
0x057b…059b Line {l1=0x1e, l2=»0550 INPUT " ",LINE$«, l3=0x1e}
0x059b…05b4 Line {l1=0x17, l2=»0555 UNTIL LEN(LINE$)>0«, l3=0x17}
0x05b4…05bf Line {l1=0x09, l2=»0560 I1=I«, l3=0x09}
0x05bf…05d1 Line {l1=0x10, l2=»0570 EXEC INDSÆT«, l3=0x10}
0x05d1…05de Line {l1=0x0b, l2=»0580 ENDIF «, l3=0x0b}
0x05de…05f1 Line {l1=0x11, l2=»0590 WHEN "T","t"«, l3=0x11}
0x05f1…05fc Line {l1=0x09, l2=»0600 J1=J«, l3=0x09}
0x05fc…0607 Line {l1=0x09, l2=»0610 I1=I«, l3=0x09}
0x0607…0619 Line {l1=0x10, l2=»0620 CURSOR 1,23«, l3=0x10}
0x0619…0629 Line {l1=0x0e, l2=»0630 PRINT BL$«, l3=0x0e}
0x0629…0637 Line {l1=0x0c, l2=»0635 REPEAT «, l3=0x0c}
0x0637…0649 Line {l1=0x10, l2=»0640 CURSOR 1,23«, l3=0x10}
0x0649…0669 Line {l1=0x1e, l2=»0650 INPUT " ",LINE$«, l3=0x1e}
0x0669…0682 Line {l1=0x17, l2=»0655 UNTIL LEN(LINE$)>0«, l3=0x17}
0x0682…0694 Line {l1=0x10, l2=»0660 EXEC INSERT«, l3=0x10}
0x0694…06a7 Line {l1=0x11, l2=»0670 WHEN "S","s"«, l3=0x11}
0x06a7…06ba Line {l1=0x11, l2=»0680 EXEC SLUTPOS«, l3=0x11}
0x06ba…06cc Line {l1=0x10, l2=»0690 EXEC DELETE«, l3=0x10}
0x06cc…06eb Line {l1=0x1d, l2=»0700 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x06eb…06f6 Line {l1=0x09, l2=»0710 I1=I«, l3=0x09}
0x06f6…0706 Line {l1=0x0e, l2=»0720 EXEC SLET«, l3=0x0e}
0x0706…0719 Line {l1=0x11, l2=»0730 WHEN "R","r"«, l3=0x11}
0x0719…072c Line {l1=0x11, l2=»0740 EXEC SLUTPOS«, l3=0x11}
0x072c…073e Line {l1=0x10, l2=»0750 CURSOR 1,23«, l3=0x10}
0x073e…074e Line {l1=0x0e, l2=»0760 PRINT BL$«, l3=0x0e}
0x074e…075c Line {l1=0x0c, l2=»0765 REPEAT «, l3=0x0c}
0x075c…076e Line {l1=0x10, l2=»0770 CURSOR 1,23«, l3=0x10}
0x076e…078e Line {l1=0x1e, l2=»0780 INPUT " ",LINE$«, l3=0x1e}
0x078e…07a7 Line {l1=0x17, l2=»0785 UNTIL LEN(LINE$)>0«, l3=0x17}
0x07a7…07bb Line {l1=0x12, l2=»0790 IF I1=I THEN «, l3=0x12}
0x07bb…07dd Line {l1=0x20, l2=»0800 IF LEN(LINE$)<=J-J1+1 THEN «, l3=0x20}
0x07dd…0801 Line {l1=0x22, l2=»0810 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x0801…0818 Line {l1=0x15, l2=»0820 J1=J1+LEN(LINE$)«, l3=0x15}
0x0818…0838 Line {l1=0x1e, l2=»0830 IF J1<=J THEN EXEC DELETE«, l3=0x1e}
0x0838…0844 Line {l1=0x0a, l2=»0840 ELSE «, l3=0x0a}
0x0844…086e Line {l1=0x28, l2=»0850 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x086e…0893 Line {l1=0x23, l2=»0860 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0893…08a0 Line {l1=0x0b, l2=»0870 J1=J+1«, l3=0x0b}
0x08a0…08b2 Line {l1=0x10, l2=»0880 EXEC INSERT«, l3=0x10}
0x08b2…08bf Line {l1=0x0b, l2=»0890 ENDIF «, l3=0x0b}
0x08bf…08cb Line {l1=0x0a, l2=»0900 ELSE «, l3=0x0a}
0x08cb…08ec Line {l1=0x1f, l2=»0910 IF LEN(LINE$)<=66-J1 THEN «, l3=0x1f}
0x08ec…0910 Line {l1=0x22, l2=»0920 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x0910…0927 Line {l1=0x15, l2=»0930 J1=J1+LEN(LINE$)«, l3=0x15}
0x0927…093c Line {l1=0x13, l2=»0932 IF J1>66 THEN «, l3=0x13}
0x093c…0947 Line {l1=0x09, l2=»0934 J1=1«, l3=0x09}
0x0947…0955 Line {l1=0x0c, l2=»0936 I1=I1+1«, l3=0x0c}
0x0955…0962 Line {l1=0x0b, l2=»0938 ENDIF «, l3=0x0b}
0x0962…0974 Line {l1=0x10, l2=»0940 EXEC DELETE«, l3=0x10}
0x0974…0980 Line {l1=0x0a, l2=»0950 ELSE «, l3=0x0a}
0x0980…098b Line {l1=0x09, l2=»0960 P=67«, l3=0x09}
0x098b…09bb Line {l1=0x2e, l2=»0965 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$«, l3=0x2e}
0x09bb…09d2 Line {l1=0x15, l2=»0970 EXEC FLÆK(LINE$)«, l3=0x15}
0x09d2…09ed Line {l1=0x19, l2=»0980 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x09ed…09fb Line {l1=0x0c, l2=»0990 I1=I1+1«, l3=0x0c}
0x09fb…0a06 Line {l1=0x09, l2=»1000 J1=1«, l3=0x09}
0x0a06…0a1a Line {l1=0x12, l2=»1010 IF I1=I THEN «, l3=0x12}
0x0a1a…0a3a Line {l1=0x1e, l2=»1020 IF LEN(LINE$)<=J-J1 THEN «, l3=0x1e}
0x0a3a…0a73 Line {l1=0x37, l2=»1030 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x37}
0x0a73…0a8a Line {l1=0x15, l2=»1040 J1=J1+LEN(LINE$)«, l3=0x15}
0x0a8a…0a9c Line {l1=0x10, l2=»1050 EXEC DELETE«, l3=0x10}
0x0a9c…0aa8 Line {l1=0x0a, l2=»1060 ELSE «, l3=0x0a}
0x0aa8…0ad2 Line {l1=0x28, l2=»1070 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x0ad2…0af7 Line {l1=0x23, l2=»1080 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0af7…0b04 Line {l1=0x0b, l2=»1090 J1=J+1«, l3=0x0b}
0x0b04…0b16 Line {l1=0x10, l2=»1100 EXEC INSERT«, l3=0x10}
0x0b16…0b23 Line {l1=0x0b, l2=»1110 ENDIF «, l3=0x0b}
0x0b23…0b2f Line {l1=0x0a, l2=»1120 ELSE «, l3=0x0a}
0x0b2f…0b45 Line {l1=0x14, l2=»1130 SIDE$(I1)=LINE$«, l3=0x14}
0x0b45…0b5b Line {l1=0x14, l2=»1140 J1=LEN(LINE$)+1«, l3=0x14}
0x0b5b…0b6d Line {l1=0x10, l2=»1150 EXEC DELETE«, l3=0x10}
0x0b6d…0b7a Line {l1=0x0b, l2=»1160 ENDIF «, l3=0x0b}
0x0b7a…0b87 Line {l1=0x0b, l2=»1170 ENDIF «, l3=0x0b}
0x0b87…0b94 Line {l1=0x0b, l2=»1180 ENDIF «, l3=0x0b}
0x0b94…0ba7 Line {l1=0x11, l2=»1190 WHEN "E","e"«, l3=0x11}
0x0ba7…0bbc Line {l1=0x13, l2=»1200 LINE$=SIDE$(I)«, l3=0x13}
0x0bbc…0bce Line {l1=0x10, l2=»1210 CURSOR 1,23«, l3=0x10}
0x0bce…0bde Line {l1=0x0e, l2=»1220 PRINT BL$«, l3=0x0e}
0x0bde…0bec Line {l1=0x0c, l2=»1225 REPEAT «, l3=0x0c}
0x0bec…0bfe Line {l1=0x10, l2=»1230 CURSOR 1,23«, l3=0x10}
0x0bfe…0c1d Line {l1=0x1d, l2=»1240 EDIT " ",LINE$«, l3=0x1d}
0x0c1d…0c36 Line {l1=0x17, l2=»1245 UNTIL LEN(LINE$)>0«, l3=0x17}
0x0c36…0c4b Line {l1=0x13, l2=»1250 SIDE$(I)=LINE$«, l3=0x13}
0x0c4b…0c5a Line {l1=0x0d, l2=»1260 ENDCASE «, l3=0x0d}
0x0c5a…0c6b Line {l1=0x0f, l2=»1270 EXEC SKRIV«, l3=0x0f}
0x0c6b…0c78 Line {l1=0x0b, l2=»1280 ENDIF «, l3=0x0b}
0x0c78…0c85 Line {l1=0x0b, l2=»1290 ENDIF «, l3=0x0b}
0x0c85…0ca4 Line {l1=0x1d, l2=»1300 UNTIL SV$="F" OR SV$="f"«, l3=0x1d}
0x0ca4…0cbb Line {l1=0x15, l2=»1301 IF LAST>18 THEN «, l3=0x15}
0x0cbb…0ccd Line {l1=0x10, l2=»1302 CURSOR 1,22«, l3=0x10}
0x0ccd…0d03 Line {l1=0x34, l2=»1305 PRINT "SIDEN ER FOR ";LAST-18;"LINIER FOR LANG"«, l3=0x34}
0x0d03…0d14 Line {l1=0x0f, l2=»1306 GO TO 0420«, l3=0x0f}
0x0d14…0d21 Line {l1=0x0b, l2=»1307 ENDIF «, l3=0x0b}
0x0d21…0d45 Line {l1=0x22, l2=»1310 IF (S$="O") OR (S$="o") THEN «, l3=0x22}
0x0d45…0d53 Line {l1=0x0c, l2=»1315 REPEAT «, l3=0x0c}
0x0d53…0d6e Line {l1=0x19, l2=»1320 INPUT "MODULNR ",SV$«, l3=0x19}
0x0d6e…0d80 Line {l1=0x10, l2=»1322 EXEC CHECK1«, l3=0x10}
0x0d80…0d96 Line {l1=0x14, l2=»1325 UNTIL OKAY=TRUE«, l3=0x14}
0x0d96…0dad Line {l1=0x15, l2=»1327 EXEC CONVERT(NR)«, l3=0x15}
0x0dad…0dc2 Line {l1=0x13, l2=»1330 FIL1$=FIL$+SV$«, l3=0x13}
0x0dc2…0dd7 Line {l1=0x13, l2=»1340 CREATE FIL1$,6«, l3=0x13}
0x0dd7…0e01 Line {l1=0x28, l2=»1345 IF STATUS(FIL1$)<>0 THEN GO TO 1315«, l3=0x28}
0x0e01…0e14 Line {l1=0x11, l2=»1350 OPEN FIL1$,W«, l3=0x11}
0x0e14…0e21 Line {l1=0x0b, l2=»1360 ENDIF «, l3=0x0b}
0x0e21…0e37 Line {l1=0x14, l2=»1370 FOR L=1 TO LAST«, l3=0x14}
0x0e37…0e50 Line {l1=0x17, l2=»1380 PUT FIL1$:SIDE$(L)«, l3=0x17}
0x0e50…0e5d Line {l1=0x0b, l2=»1390 NEXT L«, l3=0x0b}
0x0e5d…0e76 Line {l1=0x17, l2=»1392 FOR L=LAST+1 TO 22«, l3=0x17}
0x0e76…0e8a Line {l1=0x12, l2=»1394 PUT FIL1$:BL$«, l3=0x12}
0x0e8a…0e97 Line {l1=0x0b, l2=»1396 NEXT L«, l3=0x0b}
0x0e97…0ea9 Line {l1=0x10, l2=»1400 CLOSE FIL1$«, l3=0x10}
0x0ea9…0eba Line {l1=0x0f, l2=»1405 GO TO 0170«, l3=0x0f}
0x0eba…0ecd Line {l1=0x11, l2=»1410 PROC FINDPOS«, l3=0x11}
0x0ecd…0edb Line {l1=0x0c, l2=»1420 REPEAT «, l3=0x0c}
0x0edb…0ee7 Line {l1=0x0a, l2=»1430 I=I+1«, l3=0x0a}
0x0ee7…0ef8 Line {l1=0x0f, l2=»1440 CURSOR 1,I«, l3=0x0f}
0x0ef8…0f18 Line {l1=0x1e, l2=»1450 INPUT " ",LINE$«, l3=0x1e}
0x0f18…0f39 Line {l1=0x1f, l2=»1460 UNTIL I=22 OR LEN(LINE$)>0«, l3=0x1f}
0x0f39…0f4c Line {l1=0x11, l2=»1470 J=LEN(LINE$)«, l3=0x11}
0x0f4c…0f64 Line {l1=0x16, l2=»1475 IF J>66 THEN J=66«, l3=0x16}
0x0f64…0f73 Line {l1=0x0d, l2=»1480 ENDPROC «, l3=0x0d}
0x0f73…0f84 Line {l1=0x0f, l2=»1490 PROC SKRIV«, l3=0x0f}
0x0f84…0f91 Line {l1=0x0b, l2=»1500 CLEAR «, l3=0x0b}
0x0f91…0fa5 Line {l1=0x12, l2=»1510 FOR X=1 TO 22«, l3=0x12}
0x0fa5…0fb6 Line {l1=0x0f, l2=»1520 CURSOR 1,X«, l3=0x0f}
0x0fb6…0fda Line {l1=0x22, l2=»1530 PRINT " ";SIDE$(X)«, l3=0x22}
0x0fda…0fe7 Line {l1=0x0b, l2=»1540 NEXT X«, l3=0x0b}
0x0fe7…0ff6 Line {l1=0x0d, l2=»1550 ENDPROC «, l3=0x0d}
0x0ff6…1008 Line {l1=0x10, l2=»1560 PROC INDSÆT«, l3=0x10}
0x1008…101a Line {l1=0x10, l2=»1570 LAST=LAST+1«, l3=0x10}
0x101a…1038 Line {l1=0x1c, l2=»1575 IF I1>LAST THEN LAST=I1«, l3=0x1c}
0x1038…1059 Line {l1=0x1f, l2=»1580 FOR L=LAST TO I1+1 STEP -1«, l3=0x1f}
0x1059…1073 Line {l1=0x18, l2=»1590 SIDE$(L)=SIDE$(L-1)«, l3=0x18}
0x1073…1080 Line {l1=0x0b, l2=»1600 NEXT L«, l3=0x0b}
0x1080…109a Line {l1=0x18, l2=»1610 SIDE$(I1)=LINE$+BL$«, l3=0x18}
0x109a…10a9 Line {l1=0x0d, l2=»1620 ENDPROC «, l3=0x0d}
0x10a9…10b9 Line {l1=0x0e, l2=»1630 PROC SLET«, l3=0x0e}
0x10b9…10d2 Line {l1=0x17, l2=»1640 FOR L=I1 TO LAST-1«, l3=0x17}
0x10d2…10ec Line {l1=0x18, l2=»1650 SIDE$(L)=SIDE$(L+1)«, l3=0x18}
0x10ec…10f9 Line {l1=0x0b, l2=»1660 NEXT L«, l3=0x0b}
0x10f9…110e Line {l1=0x13, l2=»1670 SIDE$(LAST)=""«, l3=0x13}
0x110e…1120 Line {l1=0x10, l2=»1680 LAST=LAST-1«, l3=0x10}
0x1120…112f Line {l1=0x0d, l2=»1690 ENDPROC «, l3=0x0d}
0x112f…1142 Line {l1=0x11, l2=»1700 PROC SLUTPOS«, l3=0x11}
0x1142…114d Line {l1=0x09, l2=»1710 I1=I«, l3=0x09}
0x114d…1158 Line {l1=0x09, l2=»1720 J1=J«, l3=0x09}
0x1158…116c Line {l1=0x12, l2=»1730 CURSOR J+10,I«, l3=0x12}
0x116c…1182 Line {l1=0x14, l2=»1740 INPUT " ",LINE$«, l3=0x14}
0x1182…119e Line {l1=0x1a, l2=»1750 IF LEN(LINE$)=0 THEN «, l3=0x1a}
0x119e…11b1 Line {l1=0x11, l2=»1752 EXEC FINDPOS«, l3=0x11}
0x11b1…11bd Line {l1=0x0a, l2=»1754 ELSE «, l3=0x0a}
0x11bd…11d5 Line {l1=0x16, l2=»1756 J=LEN(LINE$)+J1-1«, l3=0x16}
0x11d5…11ed Line {l1=0x16, l2=»1757 IF J>66 THEN J=66«, l3=0x16}
0x11ed…11fa Line {l1=0x0b, l2=»1758 ENDIF «, l3=0x0b}
0x11fa…1209 Line {l1=0x0d, l2=»1760 ENDPROC «, l3=0x0d}
0x1209…121e Line {l1=0x13, l2=»1770 PROC FLÆK(LIN)«, l3=0x13}
0x121e…122e Line {l1=0x0e, l2=»1775 SPLIT$=""«, l3=0x0e}
0x122e…1240 Line {l1=0x10, l2=»1780 FOUND=FALSE«, l3=0x10}
0x1240…1252 Line {l1=0x10, l2=»1781 Q=LEN(LIN$)«, l3=0x10}
0x1252…1262 Line {l1=0x0e, l2=»1782 WHILE Q>0«, l3=0x0e}
0x1262…127d Line {l1=0x19, l2=»1783 IF LIN$(Q)=" " THEN «, l3=0x19}
0x127d…128e Line {l1=0x0f, l2=»1784 LIN$(Q)=""«, l3=0x0f}
0x128e…129a Line {l1=0x0a, l2=»1785 Q=Q-1«, l3=0x0a}
0x129a…12a6 Line {l1=0x0a, l2=»1786 ELSE «, l3=0x0a}
0x12a6…12b0 Line {l1=0x08, l2=»1787 Q=0«, l3=0x08}
0x12b0…12bd Line {l1=0x0b, l2=»1788 ENDIF «, l3=0x0b}
0x12bd…12cd Line {l1=0x0e, l2=»1789 ENDWHILE «, l3=0x0e}
0x12cd…12e8 Line {l1=0x19, l2=»1790 IF P>LEN(LIN$) THEN «, l3=0x19}
0x12e8…12f9 Line {l1=0x0f, l2=»1795 FOUND=TRUE«, l3=0x0f}
0x12f9…130d Line {l1=0x12, l2=»1800 P=LEN(LIN$)+1«, l3=0x12}
0x130d…1319 Line {l1=0x0a, l2=»1810 ELSE «, l3=0x0a}
0x1319…1332 Line {l1=0x17, l2=»1820 IF P<66 THEN P=P+1«, l3=0x17}
0x1332…134e Line {l1=0x1a, l2=»1830 IF LIN$(P)<>" " THEN «, l3=0x1a}
0x134e…135c Line {l1=0x0c, l2=»1850 REPEAT «, l3=0x0c}
0x135c…1368 Line {l1=0x0a, l2=»1860 P=P-1«, l3=0x0a}
0x1368…138d Line {l1=0x23, l2=»1870 IF LIN$(P)=" " THEN FOUND=TRUE«, l3=0x23}
0x138d…13ab Line {l1=0x1c, l2=»1880 UNTIL FOUND=TRUE OR P=1«, l3=0x1c}
0x13ab…13b7 Line {l1=0x0a, l2=»1885 ELSE «, l3=0x0a}
0x13b7…13c8 Line {l1=0x0f, l2=»1887 FOUND=TRUE«, l3=0x0f}
0x13c8…13d5 Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x13d5…13e2 Line {l1=0x0b, l2=»1900 ENDIF «, l3=0x0b}
0x13e2…13f7 Line {l1=0x13, l2=»1901 IF FOUND THEN «, l3=0x13}
0x13f7…140a Line {l1=0x11, l2=»1902 IF P=1 THEN «, l3=0x11}
0x140a…141a Line {l1=0x0e, l2=»1903 SPLIT$=""«, l3=0x0e}
0x141a…144d Line {l1=0x31, l2=»1904 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x31}
0x144d…1459 Line {l1=0x0a, l2=»1905 ELSE «, l3=0x0a}
0x1459…1472 Line {l1=0x17, l2=»1920 SPLIT$=LIN$(1,P-1)«, l3=0x17}
0x1472…148d Line {l1=0x19, l2=»1930 IF P<LEN(LIN$) THEN «, l3=0x19}
0x148d…14ac Line {l1=0x1d, l2=»1940 LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x1d}
0x14ac…14b8 Line {l1=0x0a, l2=»1990 ELSE «, l3=0x0a}
0x14b8…14c6 Line {l1=0x0c, l2=»2000 LIN$=""«, l3=0x0c}
0x14c6…14d3 Line {l1=0x0b, l2=»2010 ENDIF «, l3=0x0b}
0x14d3…14e0 Line {l1=0x0b, l2=»2015 ENDIF «, l3=0x0b}
0x14e0…14ed Line {l1=0x0b, l2=»2020 ENDIF «, l3=0x0b}
0x14ed…14fc Line {l1=0x0d, l2=»2030 ENDPROC «, l3=0x0d}
0x14fc…150e Line {l1=0x10, l2=»2040 PROC INSERT«, l3=0x10}
0x150e…151a Line {l1=0x0a, l2=»2060 B$=""«, l3=0x0a}
0x151a…1541 Line {l1=0x25, l2=»2070 IF J1>1 THEN B$=SIDE$(I1,1,J1-1)«, l3=0x25}
0x1541…1553 Line {l1=0x10, l2=»2080 B$=B$+LINE$«, l3=0x10}
0x1553…157d Line {l1=0x28, l2=»2085 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66)«, l3=0x28}
0x157d…1588 Line {l1=0x09, l2=»2090 P=67«, l3=0x09}
0x1588…159c Line {l1=0x12, l2=»2100 EXEC FLÆK(B$)«, l3=0x12}
0x159c…15b7 Line {l1=0x19, l2=»2110 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x15b7…15c5 Line {l1=0x0c, l2=»2120 I1=I1+1«, l3=0x0c}
0x15c5…15d0 Line {l1=0x09, l2=»2130 J1=1«, l3=0x09}
0x15d0…15df Line {l1=0x0d, l2=»2140 LINE$=B$«, l3=0x0d}
0x15df…1622 Line {l1=0x41, l2=»2250 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0«, l3=0x41}
0x1622…1635 Line {l1=0x11, l2=»2260 B$=SIDE$(I1)«, l3=0x11}
0x1635…165a Line {l1=0x23, l2=»2270 IF LINE$(LEN(LINE$))="-" THEN «, l3=0x23}
0x165a…1675 Line {l1=0x19, l2=»2280 LINE$(LEN(LINE$))=""«, l3=0x19}
0x1675…1681 Line {l1=0x0a, l2=»2290 ELSE «, l3=0x0a}
0x1681…16ad Line {l1=0x2a, l2=»2300 IF LEN(LINE$)<66 THEN LINE$=LINE$+" "«, l3=0x2a}
0x16ad…16ba Line {l1=0x0b, l2=»2310 ENDIF «, l3=0x0b}
0x16ba…16dd Line {l1=0x21, l2=»2320 SIDE$(I1,1,LEN(LINE$))=LINE$«, l3=0x21}
0x16dd…16f3 Line {l1=0x14, l2=»2330 P=67-LEN(LINE$)«, l3=0x14}
0x16f3…1707 Line {l1=0x12, l2=»2340 EXEC FLÆK(B$)«, l3=0x12}
0x1707…1748 Line {l1=0x3f, l2=»2350 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$«, l3=0x3f}
0x1748…1757 Line {l1=0x0d, l2=»2360 LINE$=B$«, l3=0x0d}
0x1757…1765 Line {l1=0x0c, l2=»2370 I1=I1+1«, l3=0x0c}
0x1765…1775 Line {l1=0x0e, l2=»2380 ENDWHILE «, l3=0x0e}
0x1775…1791 Line {l1=0x1a, l2=»2390 IF LEN(LINE$)>0 THEN «, l3=0x1a}
0x1791…17a3 Line {l1=0x10, l2=»2400 EXEC INDSÆT«, l3=0x10}
0x17a3…17b0 Line {l1=0x0b, l2=»2410 ENDIF «, l3=0x0b}
0x17b0…17bf Line {l1=0x0d, l2=»2420 ENDPROC «, l3=0x0d}
0x17bf…17d1 Line {l1=0x10, l2=»2500 PROC DELETE«, l3=0x10}
0x17d1…17dd Line {l1=0x0a, l2=»2520 J=J+1«, l3=0x0a}
0x17dd…17f1 Line {l1=0x12, l2=»2540 IF J>66 THEN «, l3=0x12}
0x17f1…17fb Line {l1=0x08, l2=»2560 J=1«, l3=0x08}
0x17fb…1807 Line {l1=0x0a, l2=»2580 I=I+1«, l3=0x0a}
0x1807…1814 Line {l1=0x0b, l2=»2600 ENDIF «, l3=0x0b}
0x1814…1822 Line {l1=0x0c, l2=»2620 P=67-J1«, l3=0x0c}
0x1822…183a Line {l1=0x16, l2=»2640 IF I=LAST+1 THEN «, l3=0x16}
0x183a…184e Line {l1=0x12, l2=»2650 IF J1>1 THEN «, l3=0x12}
0x184e…1868 Line {l1=0x18, l2=»2660 SIDE$(I1,J1,66)=BL$«, l3=0x18}
0x1868…1874 Line {l1=0x0a, l2=»2665 ELSE «, l3=0x0a}
0x1874…1882 Line {l1=0x0c, l2=»2670 I1=I1-1«, l3=0x0c}
0x1882…188f Line {l1=0x0b, l2=»2675 ENDIF «, l3=0x0b}
0x188f…18a8 Line {l1=0x17, l2=»2680 FOR Q=I1+1 TO LAST«, l3=0x17}
0x18a8…18bb Line {l1=0x11, l2=»2700 SIDE$(Q)=BL$«, l3=0x11}
0x18bb…18c8 Line {l1=0x0b, l2=»2720 NEXT Q«, l3=0x0b}
0x18c8…18d6 Line {l1=0x0c, l2=»2740 LAST=I1«, l3=0x0c}
0x18d6…18e2 Line {l1=0x0a, l2=»2760 ELSE «, l3=0x0a}
0x18e2…18fc Line {l1=0x18, l2=»2780 LINE$=SIDE$(I,J,66)«, l3=0x18}
0x18fc…1913 Line {l1=0x15, l2=»2800 EXEC FLÆK(LINE$)«, l3=0x15}
0x1913…1921 Line {l1=0x0c, l2=»2820 REPEAT «, l3=0x0c}
0x1921…1930 Line {l1=0x0d, l2=»2825 HYPHEN=0«, l3=0x0d}
0x1930…194d Line {l1=0x1b, l2=»2829 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x194d…1974 Line {l1=0x25, l2=»2830 IF SPLIT$(LEN(SPLIT$))="-" THEN «, l3=0x25}
0x1974…1999 Line {l1=0x23, l2=»2831 HYPHEN=LEN(SPLIT$)+J1-1+100*I1«, l3=0x23}
0x1999…19b6 Line {l1=0x1b, l2=»2832 SPLIT$(LEN(SPLIT$))=""«, l3=0x1b}
0x19b6…19c2 Line {l1=0x0a, l2=»2834 ELSE «, l3=0x0a}
0x19c2…19da Line {l1=0x16, l2=»2836 SPLIT$=SPLIT$+" "«, l3=0x16}
0x19da…19e7 Line {l1=0x0b, l2=»2838 ENDIF «, l3=0x0b}
0x19e7…19f4 Line {l1=0x0b, l2=»2839 ENDIF «, l3=0x0b}
0x19f4…1a15 Line {l1=0x1f, l2=»2840 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x1a15…1a47 Line {l1=0x30, l2=»2860 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN «, l3=0x30}
0x1a47…1a5f Line {l1=0x16, l2=»2880 J1=J1+LEN(SPLIT$)«, l3=0x16}
0x1a5f…1a6d Line {l1=0x0c, l2=»2900 P=67-J1«, l3=0x0c}
0x1a6d…1a81 Line {l1=0x12, l2=»2920 IF I<22 THEN «, l3=0x12}
0x1a81…1aa2 Line {l1=0x1f, l2=»2940 IF SIDE$(I+1,1)<>" " THEN «, l3=0x1f}
0x1aa2…1ab9 Line {l1=0x15, l2=»2960 LINE$=SIDE$(I+1)«, l3=0x15}
0x1ab9…1ac5 Line {l1=0x0a, l2=»2970 I=I+1«, l3=0x0a}
0x1ac5…1adc Line {l1=0x15, l2=»2980 EXEC FLÆK(LINE$)«, l3=0x15}
0x1adc…1af9 Line {l1=0x1b, l2=»2990 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x1af9…1b1a Line {l1=0x1f, l2=»3000 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x1b1a…1b3b Line {l1=0x1f, l2=»3001 IF LEN(LINE$)>0 THEN I=I-1«, l3=0x1f}
0x1b3b…1b4e Line {l1=0x11, l2=»3002 SPLIT$=LINE$«, l3=0x11}
0x1b4e…1b5d Line {l1=0x0d, l2=»3003 LINE$=""«, l3=0x0d}
0x1b5d…1b6c Line {l1=0x0d, l2=»3005 HYPHEN=0«, l3=0x0d}
0x1b6c…1b78 Line {l1=0x0a, l2=»3006 ELSE «, l3=0x0a}
0x1b78…1b90 Line {l1=0x16, l2=»3007 SIDE$(I1+1)=LINE$«, l3=0x16}
0x1b90…1b9f Line {l1=0x0d, l2=»3008 LINE$=""«, l3=0x0d}
0x1b9f…1bad Line {l1=0x0c, l2=»3009 I1=I1+1«, l3=0x0c}
0x1bad…1bba Line {l1=0x0b, l2=»3010 ENDIF «, l3=0x0b}
0x1bba…1bc6 Line {l1=0x0a, l2=»3020 ELSE «, l3=0x0a}
0x1bc6…1bd5 Line {l1=0x0d, l2=»3040 LINE$=""«, l3=0x0d}
0x1bd5…1be5 Line {l1=0x0e, l2=»3050 SPLIT$=""«, l3=0x0e}
0x1be5…1bf2 Line {l1=0x0b, l2=»3060 ENDIF «, l3=0x0b}
0x1bf2…1bfe Line {l1=0x0a, l2=»3080 ELSE «, l3=0x0a}
0x1bfe…1c0d Line {l1=0x0d, l2=»3100 LINE$=""«, l3=0x0d}
0x1c0d…1c1d Line {l1=0x0e, l2=»3105 SPLIT$=""«, l3=0x0e}
0x1c1d…1c2a Line {l1=0x0b, l2=»3120 ENDIF «, l3=0x0b}
0x1c2a…1c36 Line {l1=0x0a, l2=»3140 ELSE «, l3=0x0a}
0x1c36…1c45 Line {l1=0x0d, l2=»3141 B$=LINE$«, l3=0x0d}
0x1c45…1c5c Line {l1=0x15, l2=»3142 LINE$=SIDE$(I+1)«, l3=0x15}
0x1c5c…1c71 Line {l1=0x13, l2=»3143 SIDE$(I1+1)=B$«, l3=0x13}
0x1c71…1c8a Line {l1=0x17, l2=»3144 J1=LEN(B$);P=67-J1«, l3=0x17}
0x1c8a…1ca1 Line {l1=0x15, l2=»3145 EXEC FLÆK(LINE$)«, l3=0x15}
0x1ca1…1cae Line {l1=0x0b, l2=»3146 ENDIF «, l3=0x0b}
0x1cae…1cee Line {l1=0x3e, l2=»3150 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-"«, l3=0x3e}
0x1cee…1cf9 Line {l1=0x09, l2=»3160 J1=1«, l3=0x09}
0x1cf9…1d03 Line {l1=0x08, l2=»3170 J=1«, l3=0x08}
0x1d03…1d11 Line {l1=0x0c, l2=»3180 I1=I1+1«, l3=0x0c}
0x1d11…1d1d Line {l1=0x0a, l2=»3200 I=I+1«, l3=0x0a}
0x1d1d…1d35 Line {l1=0x16, l2=»3210 IF I>22 THEN I=22«, l3=0x16}
0x1d35…1d7e Line {l1=0x47, l2=»3240 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ")«, l3=0x47}
0x1d7e…1d89 Line {l1=0x09, l2=»3242 J=I1«, l3=0x09}
0x1d89…1d99 Line {l1=0x0e, l2=»3245 WHILE J<I«, l3=0x0e}
0x1d99…1da9 Line {l1=0x0e, l2=»3250 EXEC SLET«, l3=0x0e}
0x1da9…1db5 Line {l1=0x0a, l2=»3252 J=J+1«, l3=0x0a}
0x1db5…1dc5 Line {l1=0x0e, l2=»3255 ENDWHILE «, l3=0x0e}
0x1dc5…1dd2 Line {l1=0x0b, l2=»3260 ENDIF «, l3=0x0b}
0x1dd2…1de4 Line {l1=0x10, l2=»4000 PROC CHECK1«, l3=0x10}
0x1de4…1def Line {l1=0x09, l2=»4010 NR=0«, l3=0x09}
0x1def…1df9 Line {l1=0x08, l2=»4020 I=1«, l3=0x08}
0x1df9…1e22 Line {l1=0x27, l2=»4030 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN «, l3=0x27}
0x1e22…1e32 Line {l1=0x0e, l2=»4040 OKAY=TRUE«, l3=0x0e}
0x1e32…1e3e Line {l1=0x0a, l2=»4050 ELSE «, l3=0x0a}
0x1e3e…1e4f Line {l1=0x0f, l2=»4060 OKAY=FALSE«, l3=0x0f}
0x1e4f…1e5c Line {l1=0x0b, l2=»4070 ENDIF «, l3=0x0b}
0x1e5c…1e74 Line {l1=0x16, l2=»4080 WHILE I<=LEN(SV$)«, l3=0x16}
0x1e74…1e9c Line {l1=0x26, l2=»4090 IF SV$(I)<"0" OR SV$(I)>"9" THEN «, l3=0x26}
0x1e9c…1ead Line {l1=0x0f, l2=»4100 OKAY=FALSE«, l3=0x0f}
0x1ead…1ec0 Line {l1=0x11, l2=»4110 I=LEN(SV$)+1«, l3=0x11}
0x1ec0…1ecc Line {l1=0x0a, l2=»4120 ELSE «, l3=0x0a}
0x1ecc…1eea Line {l1=0x1c, l2=»4130 NR=NR*10+ORD(SV$(I))-48«, l3=0x1c}
0x1eea…1ef6 Line {l1=0x0a, l2=»4140 I=I+1«, l3=0x0a}
0x1ef6…1f03 Line {l1=0x0b, l2=»4150 ENDIF «, l3=0x0b}
0x1f03…1f13 Line {l1=0x0e, l2=»4160 ENDWHILE «, l3=0x0e}
0x1f13…1f22 Line {l1=0x0d, l2=»4170 ENDPROC «, l3=0x0d}
0x1f22…1f39 Line {l1=0x15, l2=»4180 PROC CONVERT(NO)«, l3=0x15}
0x1f39…1f67 Line {l1=0x2c, l2=»4190 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)«, l3=0x2c}
0x1f67…1f76 Line {l1=0x0d, l2=»4200 ENDPROC «, l3=0x0d}
0x1f76…1f85 Line {l1=0x0d, l2=»5000 ENDPROC «, l3=0x0d}
0x1f85…1f96 Line {l1=0x0f, l2=»6000 PROC CHECK«, l3=0x0f}
0x1f96…1fa7 Line {l1=0x0f, l2=»6010 OKAY=FALSE«, l3=0x0f}
0x1fa7…1fba Line {l1=0x11, l2=»6015 CURSOR 20,23«, l3=0x11}
0x1fba…1fcd Line {l1=0x11, l2=»6020 CASE SV$ OF «, l3=0x11}
0x1fcd…1fe0 Line {l1=0x11, l2=»6030 WHEN "T","t"«, l3=0x11}
0x1fe0…1ff0 Line {l1=0x0e, l2=»6040 OKAY=TRUE«, l3=0x0e}
0x1ff0…2009 Line {l1=0x17, l2=»6050 PRINT "Tilføjelse"«, l3=0x17}
0x2009…2028 Line {l1=0x1d, l2=»6060 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x2028…2038 Line {l1=0x0e, l2=»6070 OKAY=TRUE«, l3=0x0e}
0x2038…2053 Line {l1=0x19, l2=»6080 PRINT "Tilføj linie"«, l3=0x19}
0x2053…2066 Line {l1=0x11, l2=»6090 WHEN "s","S"«, l3=0x11}
0x2066…2076 Line {l1=0x0e, l2=»6100 OKAY=TRUE«, l3=0x0e}
0x2076…208d Line {l1=0x15, l2=»6110 PRINT "Sletning"«, l3=0x15}
0x208d…20ac Line {l1=0x1d, l2=»6120 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x20ac…20bc Line {l1=0x0e, l2=»6125 OKAY=TRUE«, l3=0x0e}
0x20bc…20d5 Line {l1=0x17, l2=»6130 PRINT "Slet linie"«, l3=0x17}
0x20d5…20e8 Line {l1=0x11, l2=»6140 WHEN "R","r"«, l3=0x11}
0x20e8…20f8 Line {l1=0x0e, l2=»6150 OKAY=TRUE«, l3=0x0e}
0x20f8…210e Line {l1=0x14, l2=»6160 PRINT "Retning"«, l3=0x14}
0x210e…2121 Line {l1=0x11, l2=»6170 WHEN "e","E"«, l3=0x11}
0x2121…2131 Line {l1=0x0e, l2=»6180 OKAY=TRUE«, l3=0x0e}
0x2131…2149 Line {l1=0x16, l2=»6190 PRINT "Editering"«, l3=0x16}
0x2149…2158 Line {l1=0x0d, l2=»6200 ENDCASE «, l3=0x0d}
0x2158…2167 Line {l1=0x0d, l2=»6210 ENDPROC «, l3=0x0d}
0x2167…2180 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccc┆
0x2180…21a0 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┆
[…0x2f…]