|
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: »BREV.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »BREV.K«
0100 TRUE=1 0110 FALSE=0 0120 DIM SPLIT$(66),BL$(66) 0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20) 0140 DIM FIL$(20),UDFIL$(20),SV1$(1) 0150 FOR I=1 TO 66 0160 BL$(I)=" " 0170 NEXT I 0180 UDFIL$="DDE:BREVFIL" 0190 FIL$="DDE:MODUL" 0200 OPEN UDFIL$,W 0210 PROC INDMODUL 0220 LAST=0 0230 REPEAT 0240 INPUT "MODULNR ",SV$ 0250 EXEC CHECK1 0260 UNTIL OKAY=TRUE 0270 EXEC CONVERT(NR) 0280 FIL1$=FIL$+SV$ 0290 OPEN FIL1$,R 0300 IF STATUS(FIL1$)=0 THEN 0310 FOR L=1 TO 18 0320 GET FIL1$:SIDE$(L) 0330 IF LEN(SIDE$(L))>0 THEN LAST=L 0340 NEXT L 0350 CLOSE FIL1$ 0360 EXEC SKRIV 0370 ENDIF 0380 IF LAST=0 THEN GO TO 0230 0390 ENDPROC 0400 PROC TILPAS 0410 I0=1 0420 REPEAT 0430 CURSOR 1,23 0440 INPUT "T,TL,S,SL,R,E,F ",SV$ 0450 EXEC CHECK 0460 IF OKAY=TRUE THEN 0470 I=I0-1 0480 EXEC FINDPOS 0490 I0=I 0500 IF I0=>LAST THEN I0=1 0510 IF J>0 THEN 0520 CASE SV$ OF 0530 WHEN "TL","tl","Tl","tL" 0540 IF LAST<22 THEN 0550 CURSOR 1,23 0560 PRINT BL$ 0570 REPEAT 0580 CURSOR 1,23 0590 INPUT " ",LINE$ 0600 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0610 I1=I 0620 EXEC INDSÆT 0630 ENDIF 0640 WHEN "T","t" 0650 J1=J 0660 I1=I 0670 CURSOR 1,23 0680 PRINT BL$ 0690 REPEAT 0700 CURSOR 1,23 0710 INPUT " ",LINE$ 0720 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0730 EXEC INSERT 0740 WHEN "S","s" 0750 EXEC SLUTPOS 0760 EXEC DELETE 0770 WHEN "SL","sl","Sl","sL" 0780 I1=I 0790 EXEC SLET 0800 WHEN "R","r" 0810 EXEC SLUTPOS 0820 CURSOR 1,23 0830 PRINT BL$ 0840 REPEAT 0850 CURSOR 1,23 0860 INPUT " ",LINE$ 0870 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0880 IF I1=I THEN 0890 IF LEN(LINE$)<=J-J1+1 THEN 0900 SIDE$(I1,J1:LEN(LINE$))=LINE$ 0910 J1=J1+LEN(LINE$) 0920 IF J1<=J THEN EXEC DELETE 0930 ELSE 0940 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 0950 LINE$=LINE$(J-J1+2,LEN(LINE$)) 0960 J1=J+1 0970 EXEC INSERT 0980 ENDIF 0990 ELSE 1000 IF LEN(LINE$)<=66-J1 THEN 1010 SIDE$(I1,J1:LEN(LINE$))=LINE$ 1020 J1=J1+LEN(LINE$) 1030 IF J1>66 THEN 1040 J1=1 1050 I1=I1+1 1060 ENDIF 1070 EXEC DELETE 1080 ELSE 1090 P=67 1100 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$ 1110 EXEC FLÆK(LINE$) 1120 SIDE$(I1)=SPLIT$+BL$ 1130 I1=I1+1 1140 J1=1 1150 IF I1=I THEN 1160 IF LEN(LINE$)<=J-J1 THEN 1170 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$ 1180 J1=J1+LEN(LINE$) 1190 EXEC DELETE 1200 ELSE 1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 1220 LINE$=LINE$(J-J1+2,LEN(LINE$)) 1230 J1=J+1 1240 EXEC INSERT 1250 ENDIF 1260 ELSE 1270 SIDE$(I1)=LINE$ 1280 J1=LEN(LINE$)+1 1290 EXEC DELETE 1300 ENDIF 1310 ENDIF 1320 ENDIF 1330 WHEN "E","e" 1340 LINE$=SIDE$(I) 1350 CURSOR 1,23 1360 PRINT BL$ 1370 REPEAT 1380 CURSOR 1,23 1390 EDIT " ",LINE$ 1400 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1410 SIDE$(I)=LINE$ 1420 ENDCASE 1430 EXEC SKRIV 1440 ENDIF 1450 ENDIF 1460 UNTIL SV$="F" OR SV$="f" 1470 ENDPROC 1480 PROC FINDPOS 1490 REPEAT 1500 I=I+1 1510 CURSOR 1,I 1520 INPUT " ",LINE$ 1530 UNTIL I=22 OR LEN(LINE$)>0 1540 J=LEN(LINE$) 1550 IF J>66 THEN J=66 1560 ENDPROC 1570 PROC SKRIV 1580 CLEAR 1590 FOR X=1 TO 22 1600 CURSOR 1,X 1610 PRINT " ";SIDE$(X) 1620 NEXT X 1630 ENDPROC 1640 PROC INDSÆT 1650 LAST=LAST+1 1660 IF I1>LAST THEN LAST=I1 1670 FOR L=LAST TO I1+1 STEP -1 1680 SIDE$(L)=SIDE$(L-1) 1690 NEXT L 1700 SIDE$(I1)=LINE$+BL$ 1710 ENDPROC 1720 PROC SLET 1730 FOR L=I1 TO LAST-1 1740 SIDE$(L)=SIDE$(L+1) 1750 NEXT L 1760 SIDE$(LAST)="" 1770 LAST=LAST-1 1780 ENDPROC 1790 PROC SLUTPOS 1800 I1=I 1810 J1=J 1820 CURSOR J+10,I 1830 INPUT " ",LINE$ 1840 IF LEN(LINE$)=0 THEN 1850 EXEC FINDPOS 1860 ELSE 1870 J=LEN(LINE$)+J1-1 1880 IF J>66 THEN J=66 1890 ENDIF 1900 ENDPROC 1910 PROC FLÆK(LIN) 1920 SPLIT$="" 1930 FOUND=FALSE 1940 Q=LEN(LIN$) 1950 WHILE Q>0 1960 IF LIN$(Q)=" " THEN 1970 LIN$(Q)="" 1980 Q=Q-1 1990 ELSE 2000 Q=0 2010 ENDIF 2020 ENDWHILE 2030 IF P>LEN(LIN$) THEN 2040 FOUND=TRUE 2050 P=LEN(LIN$)+1 2060 ELSE 2070 IF P<66 THEN P=P+1 2080 IF LIN$(P)<>" " THEN 2090 REPEAT 2100 P=P-1 2110 IF LIN$(P)=" " THEN FOUND=TRUE 2120 UNTIL FOUND=TRUE OR P=1 2130 ELSE 2140 FOUND=TRUE 2150 ENDIF 2160 ENDIF 2170 IF FOUND THEN 2180 IF P=1 THEN 2190 SPLIT$="" 2200 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$)) 2210 ELSE 2220 SPLIT$=LIN$(1,P-1) 2230 IF P<LEN(LIN$) THEN 2240 LIN$=LIN$(P+1,LEN(LIN$)) 2250 ELSE 2260 LIN$="" 2270 ENDIF 2280 ENDIF 2290 ENDIF 2300 ENDPROC 2310 PROC INSERT 2320 B$="" 2330 IF J1>1 THEN B$=SIDE$(I1,1,J1-1) 2340 B$=B$+LINE$ 2350 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66) 2360 P=67 2370 EXEC FLÆK(B$) 2380 SIDE$(I1)=SPLIT$+BL$ 2390 I1=I1+1 2400 J1=1 2410 LINE$=B$ 2420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0 2430 B$=SIDE$(I1) 2440 IF LINE$(LEN(LINE$))="-" THEN 2450 LINE$(LEN(LINE$))="" 2460 ELSE 2470 IF LEN(LINE$)<66 THEN LINE$=LINE$+" " 2480 ENDIF 2490 SIDE$(I1,1,LEN(LINE$))=LINE$ 2500 P=67-LEN(LINE$) 2510 EXEC FLÆK(B$) 2520 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$ 2530 LINE$=B$ 2540 I1=I1+1 2550 ENDWHILE 2560 IF LEN(LINE$)>0 THEN 2570 EXEC INDSÆT 2580 ENDIF 2590 ENDPROC 2600 PROC DELETE 2610 J=J+1 2620 IF J>66 THEN 2630 J=1 2640 I=I+1 2650 ENDIF 2660 P=67-J1 2670 IF I=LAST+1 THEN 2680 IF J1>1 THEN 2690 SIDE$(I1,J1,66)=BL$ 2700 ELSE 2710 I1=I1-1 2720 ENDIF 2730 FOR Q=I1+1 TO LAST 2740 SIDE$(Q)=BL$ 2750 NEXT Q 2760 LAST=I1 2770 ELSE 2780 LINE$=SIDE$(I,J,66) 2790 EXEC FLÆK(LINE$) 2800 REPEAT 2810 HYPHEN=0 2820 IF LEN(SPLIT$)>0 THEN 2830 IF SPLIT$(LEN(SPLIT$))="-" THEN 2840 HYPHEN=LEN(SPLIT$)+J1-1+100*I1 2850 SPLIT$(LEN(SPLIT$))="" 2860 ELSE 2870 SPLIT$=SPLIT$+" " 2880 ENDIF 2890 ENDIF 2900 SIDE$(I1,J1,66)=SPLIT$+BL$ 2910 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN 2920 J1=J1+LEN(SPLIT$) 2930 P=67-J1 2940 IF I<22 THEN 2950 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$ 3010 IF LEN(LINE$)>0 THEN I=I-1 3020 SPLIT$=LINE$ 3030 LINE$="" 3040 HYPHEN=0 3050 ELSE 3060 SIDE$(I1+1)=LINE$ 3070 LINE$="" 3080 I1=I1+1 3090 ENDIF 3100 ELSE 3110 LINE$="" 3120 SPLIT$="" 3130 ENDIF 3140 ELSE 3150 LINE$="" 3160 SPLIT$="" 3210 ENDIF 3220 ELSE 3230 B$=LINE$ 3240 LINE$=SIDE$(I+1) 3250 SIDE$(I1+1)=B$ 3260 J1=LEN(B$);P=67-J1 3270 EXEC FLÆK(LINE$) 3280 ENDIF 3300 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-" 3310 J1=1 3320 J=1 3330 I1=I1+1 3340 I=I+1 3350 IF I>22 THEN I=22 3360 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ") 3370 J=I1 3380 WHILE J<I 3390 EXEC SLET 3400 J=J+1 3410 ENDWHILE 3420 ENDIF 3430 ENDPROC 3440 PROC CHECK1 3450 NR=0 3460 I=1 3470 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN 3480 OKAY=TRUE 3490 ELSE 3500 OKAY=FALSE 3510 ENDIF 3520 WHILE I<=LEN(SV$) 3530 IF SV$(I)<"0" OR SV$(I)>"9" THEN 3540 OKAY=FALSE 3550 I=LEN(SV$)+1 3560 ELSE 3570 NR=NR*10+ORD(SV$(I))-48 3580 I=I+1 3590 ENDIF 3600 ENDWHILE 3610 ENDPROC 3620 PROC CONVERT(NO) 3630 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48) 3640 ENDPROC 3650 PROC CHECK 3660 OKAY=FALSE 3670 CURSOR 20,23 3680 CASE SV$ OF 3690 WHEN "T","t" 3700 OKAY=TRUE 3710 PRINT "Tilføjelse" 3720 WHEN "TL","tl","Tl","tL" 3730 OKAY=TRUE 3740 PRINT "Tilføj linie" 3750 WHEN "s","S" 3760 OKAY=TRUE 3770 PRINT "Sletning" 3780 WHEN "SL","sl","Sl","sL" 3790 OKAY=TRUE 3800 PRINT "Slet linie" 3810 WHEN "R","r" 3820 OKAY=TRUE 3830 PRINT "Retning" 3840 WHEN "e","E" 3850 OKAY=TRUE 3860 PRINT "Editering" 3870 ENDCASE 3880 ENDPROC 3890 PROC UDBREV 3900 FOR I=1 TO LAST 3910 PUT UDFIL$:SIDE$(I) 3920 NEXT I 3940 ENDPROC 3950 REPEAT 3960 CURSOR 1,23 3970 INPUT "FLERE MODULER (J/N) ",SV1$ 3980 IF SV1$="J" OR SV1$="j" THEN 3990 EXEC INDMODUL 4000 EXEC TILPAS 4010 EXEC UDBREV 4020 ENDIF 4030 UNTIL SV1$<>"J" AND SV1$<>"j" 4040 ENDFILE UDFIL$ 4050 CLOSE UDFIL$ 4060 REPEAT 4070 CLEAR 4080 PRINT "BREVET ØNSKES UDSKREVET" 4090 PRINT "Som det er: 1" 4100 PRINT "Til en enkelt kunde: 2" 4110 PRINT "Til en række kunder: 3" 4120 PRINT "Til en kundegruppe : 4" 4130 REPEAT 4140 INPUT "(1/2/3/4) 0 FOR STOP ",SV$ 4150 EXEC CHECK1 4160 UNTIL NR=>0 AND NR<=4 AND OKAY=TRUE 4170 CASE NR OF 4180 WHEN 1 4190 EXEC WRITE 4200 WHEN 2 4210 WHEN 3 4220 WHEN 4 4230 ENDCASE 4240 UNTIL NR=0 4250 PROC WRITE 4260 OUTPUT P 4270 OPEN UDFIL$,R 4280 GET UDFIL$:SYM$ 4290 LINES=0 4300 WHILE STATUS(UDFIL$)=0 4310 LINES=LINES+1 4320 IF LINES=43 THEN 4330 FOR LINES=1 TO 6 4340 PRINT " " 4350 NEXT LINES 4360 LINES=1 4370 ENDIF 4380 PRINT TAB(7);SYM$ 4390 GET UDFIL$:SYM$ 4400 ENDWHILE 4410 CLOSE UDFIL$ 4420 OUTPUT T 4430 ENDPROC
0x0000…000d Line {l1=0x0b, l2=»0100 TRUE=1«, l3=0x0b}
0x000d…001b Line {l1=0x0c, l2=»0110 FALSE=0«, l3=0x0c}
0x001b…0038 Line {l1=0x1b, l2=»0120 DIM SPLIT$(66),BL$(66)«, l3=0x1b}
0x0038…0082 Line {l1=0x48, l2=»0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20)«, l3=0x48}
0x0082…00a8 Line {l1=0x24, l2=»0140 DIM FIL$(20),UDFIL$(20),SV1$(1)«, l3=0x24}
0x00a8…00bc Line {l1=0x12, l2=»0150 FOR I=1 TO 66«, l3=0x12}
0x00bc…00cd Line {l1=0x0f, l2=»0160 BL$(I)=" "«, l3=0x0f}
0x00cd…00da Line {l1=0x0b, l2=»0170 NEXT I«, l3=0x0b}
0x00da…00f5 Line {l1=0x19, l2=»0180 UDFIL$="DDE:BREVFIL"«, l3=0x19}
0x00f5…010c Line {l1=0x15, l2=»0190 FIL$="DDE:MODUL"«, l3=0x15}
0x010c…0120 Line {l1=0x12, l2=»0200 OPEN UDFIL$,W«, l3=0x12}
0x0120…0134 Line {l1=0x12, l2=»0210 PROC INDMODUL«, l3=0x12}
0x0134…0141 Line {l1=0x0b, l2=»0220 LAST=0«, l3=0x0b}
0x0141…014f Line {l1=0x0c, l2=»0230 REPEAT «, l3=0x0c}
0x014f…016a Line {l1=0x19, l2=»0240 INPUT "MODULNR ",SV$«, l3=0x19}
0x016a…017c Line {l1=0x10, l2=»0250 EXEC CHECK1«, l3=0x10}
0x017c…0192 Line {l1=0x14, l2=»0260 UNTIL OKAY=TRUE«, l3=0x14}
0x0192…01a9 Line {l1=0x15, l2=»0270 EXEC CONVERT(NR)«, l3=0x15}
0x01a9…01be Line {l1=0x13, l2=»0280 FIL1$=FIL$+SV$«, l3=0x13}
0x01be…01d1 Line {l1=0x11, l2=»0290 OPEN FIL1$,R«, l3=0x11}
0x01d1…01f0 Line {l1=0x1d, l2=»0300 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x01f0…0204 Line {l1=0x12, l2=»0310 FOR L=1 TO 18«, l3=0x12}
0x0204…021d Line {l1=0x17, l2=»0320 GET FIL1$:SIDE$(L)«, l3=0x17}
0x021d…0242 Line {l1=0x23, l2=»0330 IF LEN(SIDE$(L))>0 THEN LAST=L«, l3=0x23}
0x0242…024f Line {l1=0x0b, l2=»0340 NEXT L«, l3=0x0b}
0x024f…0261 Line {l1=0x10, l2=»0350 CLOSE FIL1$«, l3=0x10}
0x0261…0272 Line {l1=0x0f, l2=»0360 EXEC SKRIV«, l3=0x0f}
0x0272…027f Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x027f…029f Line {l1=0x1e, l2=»0380 IF LAST=0 THEN GO TO 0230«, l3=0x1e}
0x029f…02ae Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x02ae…02c0 Line {l1=0x10, l2=»0400 PROC TILPAS«, l3=0x10}
0x02c0…02cb Line {l1=0x09, l2=»0410 I0=1«, l3=0x09}
0x02cb…02d9 Line {l1=0x0c, l2=»0420 REPEAT «, l3=0x0c}
0x02d9…02eb Line {l1=0x10, l2=»0430 CURSOR 1,23«, l3=0x10}
0x02eb…030e Line {l1=0x21, l2=»0440 INPUT "T,TL,S,SL,R,E,F ",SV$«, l3=0x21}
0x030e…031f Line {l1=0x0f, l2=»0450 EXEC CHECK«, l3=0x0f}
0x031f…0338 Line {l1=0x17, l2=»0460 IF OKAY=TRUE THEN «, l3=0x17}
0x0338…0345 Line {l1=0x0b, l2=»0470 I=I0-1«, l3=0x0b}
0x0345…0358 Line {l1=0x11, l2=»0480 EXEC FINDPOS«, l3=0x11}
0x0358…0363 Line {l1=0x09, l2=»0490 I0=I«, l3=0x09}
0x0363…037f Line {l1=0x1a, l2=»0500 IF I0=>LAST THEN I0=1«, l3=0x1a}
0x037f…0392 Line {l1=0x11, l2=»0510 IF J>0 THEN «, l3=0x11}
0x0392…03a5 Line {l1=0x11, l2=»0520 CASE SV$ OF «, l3=0x11}
0x03a5…03c4 Line {l1=0x1d, l2=»0530 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x03c4…03db Line {l1=0x15, l2=»0540 IF LAST<22 THEN «, l3=0x15}
0x03db…03ed Line {l1=0x10, l2=»0550 CURSOR 1,23«, l3=0x10}
0x03ed…03fd Line {l1=0x0e, l2=»0560 PRINT BL$«, l3=0x0e}
0x03fd…040b Line {l1=0x0c, l2=»0570 REPEAT «, l3=0x0c}
0x040b…041d Line {l1=0x10, l2=»0580 CURSOR 1,23«, l3=0x10}
0x041d…043d Line {l1=0x1e, l2=»0590 INPUT " ",LINE$«, l3=0x1e}
0x043d…0468 Line {l1=0x29, l2=»0600 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0468…0473 Line {l1=0x09, l2=»0610 I1=I«, l3=0x09}
0x0473…0485 Line {l1=0x10, l2=»0620 EXEC INDSÆT«, l3=0x10}
0x0485…0492 Line {l1=0x0b, l2=»0630 ENDIF «, l3=0x0b}
0x0492…04a5 Line {l1=0x11, l2=»0640 WHEN "T","t"«, l3=0x11}
0x04a5…04b0 Line {l1=0x09, l2=»0650 J1=J«, l3=0x09}
0x04b0…04bb Line {l1=0x09, l2=»0660 I1=I«, l3=0x09}
0x04bb…04cd Line {l1=0x10, l2=»0670 CURSOR 1,23«, l3=0x10}
0x04cd…04dd Line {l1=0x0e, l2=»0680 PRINT BL$«, l3=0x0e}
0x04dd…04eb Line {l1=0x0c, l2=»0690 REPEAT «, l3=0x0c}
0x04eb…04fd Line {l1=0x10, l2=»0700 CURSOR 1,23«, l3=0x10}
0x04fd…051d Line {l1=0x1e, l2=»0710 INPUT " ",LINE$«, l3=0x1e}
0x051d…0548 Line {l1=0x29, l2=»0720 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0548…055a Line {l1=0x10, l2=»0730 EXEC INSERT«, l3=0x10}
0x055a…056d Line {l1=0x11, l2=»0740 WHEN "S","s"«, l3=0x11}
0x056d…0580 Line {l1=0x11, l2=»0750 EXEC SLUTPOS«, l3=0x11}
0x0580…0592 Line {l1=0x10, l2=»0760 EXEC DELETE«, l3=0x10}
0x0592…05b1 Line {l1=0x1d, l2=»0770 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x05b1…05bc Line {l1=0x09, l2=»0780 I1=I«, l3=0x09}
0x05bc…05cc Line {l1=0x0e, l2=»0790 EXEC SLET«, l3=0x0e}
0x05cc…05df Line {l1=0x11, l2=»0800 WHEN "R","r"«, l3=0x11}
0x05df…05f2 Line {l1=0x11, l2=»0810 EXEC SLUTPOS«, l3=0x11}
0x05f2…0604 Line {l1=0x10, l2=»0820 CURSOR 1,23«, l3=0x10}
0x0604…0614 Line {l1=0x0e, l2=»0830 PRINT BL$«, l3=0x0e}
0x0614…0622 Line {l1=0x0c, l2=»0840 REPEAT «, l3=0x0c}
0x0622…0634 Line {l1=0x10, l2=»0850 CURSOR 1,23«, l3=0x10}
0x0634…0654 Line {l1=0x1e, l2=»0860 INPUT " ",LINE$«, l3=0x1e}
0x0654…067f Line {l1=0x29, l2=»0870 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x067f…0693 Line {l1=0x12, l2=»0880 IF I1=I THEN «, l3=0x12}
0x0693…06b5 Line {l1=0x20, l2=»0890 IF LEN(LINE$)<=J-J1+1 THEN «, l3=0x20}
0x06b5…06d9 Line {l1=0x22, l2=»0900 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x06d9…06f0 Line {l1=0x15, l2=»0910 J1=J1+LEN(LINE$)«, l3=0x15}
0x06f0…0710 Line {l1=0x1e, l2=»0920 IF J1<=J THEN EXEC DELETE«, l3=0x1e}
0x0710…071c Line {l1=0x0a, l2=»0930 ELSE «, l3=0x0a}
0x071c…0746 Line {l1=0x28, l2=»0940 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x0746…076b Line {l1=0x23, l2=»0950 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x076b…0778 Line {l1=0x0b, l2=»0960 J1=J+1«, l3=0x0b}
0x0778…078a Line {l1=0x10, l2=»0970 EXEC INSERT«, l3=0x10}
0x078a…0797 Line {l1=0x0b, l2=»0980 ENDIF «, l3=0x0b}
0x0797…07a3 Line {l1=0x0a, l2=»0990 ELSE «, l3=0x0a}
0x07a3…07c4 Line {l1=0x1f, l2=»1000 IF LEN(LINE$)<=66-J1 THEN «, l3=0x1f}
0x07c4…07e8 Line {l1=0x22, l2=»1010 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x07e8…07ff Line {l1=0x15, l2=»1020 J1=J1+LEN(LINE$)«, l3=0x15}
0x07ff…0814 Line {l1=0x13, l2=»1030 IF J1>66 THEN «, l3=0x13}
0x0814…081f Line {l1=0x09, l2=»1040 J1=1«, l3=0x09}
0x081f…082d Line {l1=0x0c, l2=»1050 I1=I1+1«, l3=0x0c}
0x082d…083a Line {l1=0x0b, l2=»1060 ENDIF «, l3=0x0b}
0x083a…084c Line {l1=0x10, l2=»1070 EXEC DELETE«, l3=0x10}
0x084c…0858 Line {l1=0x0a, l2=»1080 ELSE «, l3=0x0a}
0x0858…0863 Line {l1=0x09, l2=»1090 P=67«, l3=0x09}
0x0863…0893 Line {l1=0x2e, l2=»1100 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$«, l3=0x2e}
0x0893…08aa Line {l1=0x15, l2=»1110 EXEC FLÆK(LINE$)«, l3=0x15}
0x08aa…08c5 Line {l1=0x19, l2=»1120 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x08c5…08d3 Line {l1=0x0c, l2=»1130 I1=I1+1«, l3=0x0c}
0x08d3…08de Line {l1=0x09, l2=»1140 J1=1«, l3=0x09}
0x08de…08f2 Line {l1=0x12, l2=»1150 IF I1=I THEN «, l3=0x12}
0x08f2…0912 Line {l1=0x1e, l2=»1160 IF LEN(LINE$)<=J-J1 THEN «, l3=0x1e}
0x0912…094b Line {l1=0x37, l2=»1170 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x37}
0x094b…0962 Line {l1=0x15, l2=»1180 J1=J1+LEN(LINE$)«, l3=0x15}
0x0962…0974 Line {l1=0x10, l2=»1190 EXEC DELETE«, l3=0x10}
0x0974…0980 Line {l1=0x0a, l2=»1200 ELSE «, l3=0x0a}
0x0980…09aa Line {l1=0x28, l2=»1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x09aa…09cf Line {l1=0x23, l2=»1220 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x09cf…09dc Line {l1=0x0b, l2=»1230 J1=J+1«, l3=0x0b}
0x09dc…09ee Line {l1=0x10, l2=»1240 EXEC INSERT«, l3=0x10}
0x09ee…09fb Line {l1=0x0b, l2=»1250 ENDIF «, l3=0x0b}
0x09fb…0a07 Line {l1=0x0a, l2=»1260 ELSE «, l3=0x0a}
0x0a07…0a1d Line {l1=0x14, l2=»1270 SIDE$(I1)=LINE$«, l3=0x14}
0x0a1d…0a33 Line {l1=0x14, l2=»1280 J1=LEN(LINE$)+1«, l3=0x14}
0x0a33…0a45 Line {l1=0x10, l2=»1290 EXEC DELETE«, l3=0x10}
0x0a45…0a52 Line {l1=0x0b, l2=»1300 ENDIF «, l3=0x0b}
0x0a52…0a5f Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x0a5f…0a6c Line {l1=0x0b, l2=»1320 ENDIF «, l3=0x0b}
0x0a6c…0a7f Line {l1=0x11, l2=»1330 WHEN "E","e"«, l3=0x11}
0x0a7f…0a94 Line {l1=0x13, l2=»1340 LINE$=SIDE$(I)«, l3=0x13}
0x0a94…0aa6 Line {l1=0x10, l2=»1350 CURSOR 1,23«, l3=0x10}
0x0aa6…0ab6 Line {l1=0x0e, l2=»1360 PRINT BL$«, l3=0x0e}
0x0ab6…0ac4 Line {l1=0x0c, l2=»1370 REPEAT «, l3=0x0c}
0x0ac4…0ad6 Line {l1=0x10, l2=»1380 CURSOR 1,23«, l3=0x10}
0x0ad6…0af5 Line {l1=0x1d, l2=»1390 EDIT " ",LINE$«, l3=0x1d}
0x0af5…0b20 Line {l1=0x29, l2=»1400 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0b20…0b35 Line {l1=0x13, l2=»1410 SIDE$(I)=LINE$«, l3=0x13}
0x0b35…0b44 Line {l1=0x0d, l2=»1420 ENDCASE «, l3=0x0d}
0x0b44…0b55 Line {l1=0x0f, l2=»1430 EXEC SKRIV«, l3=0x0f}
0x0b55…0b62 Line {l1=0x0b, l2=»1440 ENDIF «, l3=0x0b}
0x0b62…0b6f Line {l1=0x0b, l2=»1450 ENDIF «, l3=0x0b}
0x0b6f…0b8e Line {l1=0x1d, l2=»1460 UNTIL SV$="F" OR SV$="f"«, l3=0x1d}
0x0b8e…0b9d Line {l1=0x0d, l2=»1470 ENDPROC «, l3=0x0d}
0x0b9d…0bb0 Line {l1=0x11, l2=»1480 PROC FINDPOS«, l3=0x11}
0x0bb0…0bbe Line {l1=0x0c, l2=»1490 REPEAT «, l3=0x0c}
0x0bbe…0bca Line {l1=0x0a, l2=»1500 I=I+1«, l3=0x0a}
0x0bca…0bdb Line {l1=0x0f, l2=»1510 CURSOR 1,I«, l3=0x0f}
0x0bdb…0bfb Line {l1=0x1e, l2=»1520 INPUT " ",LINE$«, l3=0x1e}
0x0bfb…0c1c Line {l1=0x1f, l2=»1530 UNTIL I=22 OR LEN(LINE$)>0«, l3=0x1f}
0x0c1c…0c2f Line {l1=0x11, l2=»1540 J=LEN(LINE$)«, l3=0x11}
0x0c2f…0c47 Line {l1=0x16, l2=»1550 IF J>66 THEN J=66«, l3=0x16}
0x0c47…0c56 Line {l1=0x0d, l2=»1560 ENDPROC «, l3=0x0d}
0x0c56…0c67 Line {l1=0x0f, l2=»1570 PROC SKRIV«, l3=0x0f}
0x0c67…0c74 Line {l1=0x0b, l2=»1580 CLEAR «, l3=0x0b}
0x0c74…0c88 Line {l1=0x12, l2=»1590 FOR X=1 TO 22«, l3=0x12}
0x0c88…0c99 Line {l1=0x0f, l2=»1600 CURSOR 1,X«, l3=0x0f}
0x0c99…0cbd Line {l1=0x22, l2=»1610 PRINT " ";SIDE$(X)«, l3=0x22}
0x0cbd…0cca Line {l1=0x0b, l2=»1620 NEXT X«, l3=0x0b}
0x0cca…0cd9 Line {l1=0x0d, l2=»1630 ENDPROC «, l3=0x0d}
0x0cd9…0ceb Line {l1=0x10, l2=»1640 PROC INDSÆT«, l3=0x10}
0x0ceb…0cfd Line {l1=0x10, l2=»1650 LAST=LAST+1«, l3=0x10}
0x0cfd…0d1b Line {l1=0x1c, l2=»1660 IF I1>LAST THEN LAST=I1«, l3=0x1c}
0x0d1b…0d3c Line {l1=0x1f, l2=»1670 FOR L=LAST TO I1+1 STEP -1«, l3=0x1f}
0x0d3c…0d56 Line {l1=0x18, l2=»1680 SIDE$(L)=SIDE$(L-1)«, l3=0x18}
0x0d56…0d63 Line {l1=0x0b, l2=»1690 NEXT L«, l3=0x0b}
0x0d63…0d7d Line {l1=0x18, l2=»1700 SIDE$(I1)=LINE$+BL$«, l3=0x18}
0x0d7d…0d8c Line {l1=0x0d, l2=»1710 ENDPROC «, l3=0x0d}
0x0d8c…0d9c Line {l1=0x0e, l2=»1720 PROC SLET«, l3=0x0e}
0x0d9c…0db5 Line {l1=0x17, l2=»1730 FOR L=I1 TO LAST-1«, l3=0x17}
0x0db5…0dcf Line {l1=0x18, l2=»1740 SIDE$(L)=SIDE$(L+1)«, l3=0x18}
0x0dcf…0ddc Line {l1=0x0b, l2=»1750 NEXT L«, l3=0x0b}
0x0ddc…0df1 Line {l1=0x13, l2=»1760 SIDE$(LAST)=""«, l3=0x13}
0x0df1…0e03 Line {l1=0x10, l2=»1770 LAST=LAST-1«, l3=0x10}
0x0e03…0e12 Line {l1=0x0d, l2=»1780 ENDPROC «, l3=0x0d}
0x0e12…0e25 Line {l1=0x11, l2=»1790 PROC SLUTPOS«, l3=0x11}
0x0e25…0e30 Line {l1=0x09, l2=»1800 I1=I«, l3=0x09}
0x0e30…0e3b Line {l1=0x09, l2=»1810 J1=J«, l3=0x09}
0x0e3b…0e4f Line {l1=0x12, l2=»1820 CURSOR J+10,I«, l3=0x12}
0x0e4f…0e65 Line {l1=0x14, l2=»1830 INPUT " ",LINE$«, l3=0x14}
0x0e65…0e81 Line {l1=0x1a, l2=»1840 IF LEN(LINE$)=0 THEN «, l3=0x1a}
0x0e81…0e94 Line {l1=0x11, l2=»1850 EXEC FINDPOS«, l3=0x11}
0x0e94…0ea0 Line {l1=0x0a, l2=»1860 ELSE «, l3=0x0a}
0x0ea0…0eb8 Line {l1=0x16, l2=»1870 J=LEN(LINE$)+J1-1«, l3=0x16}
0x0eb8…0ed0 Line {l1=0x16, l2=»1880 IF J>66 THEN J=66«, l3=0x16}
0x0ed0…0edd Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x0edd…0eec Line {l1=0x0d, l2=»1900 ENDPROC «, l3=0x0d}
0x0eec…0f01 Line {l1=0x13, l2=»1910 PROC FLÆK(LIN)«, l3=0x13}
0x0f01…0f11 Line {l1=0x0e, l2=»1920 SPLIT$=""«, l3=0x0e}
0x0f11…0f23 Line {l1=0x10, l2=»1930 FOUND=FALSE«, l3=0x10}
0x0f23…0f35 Line {l1=0x10, l2=»1940 Q=LEN(LIN$)«, l3=0x10}
0x0f35…0f45 Line {l1=0x0e, l2=»1950 WHILE Q>0«, l3=0x0e}
0x0f45…0f60 Line {l1=0x19, l2=»1960 IF LIN$(Q)=" " THEN «, l3=0x19}
0x0f60…0f71 Line {l1=0x0f, l2=»1970 LIN$(Q)=""«, l3=0x0f}
0x0f71…0f7d Line {l1=0x0a, l2=»1980 Q=Q-1«, l3=0x0a}
0x0f7d…0f89 Line {l1=0x0a, l2=»1990 ELSE «, l3=0x0a}
0x0f89…0f93 Line {l1=0x08, l2=»2000 Q=0«, l3=0x08}
0x0f93…0fa0 Line {l1=0x0b, l2=»2010 ENDIF «, l3=0x0b}
0x0fa0…0fb0 Line {l1=0x0e, l2=»2020 ENDWHILE «, l3=0x0e}
0x0fb0…0fcb Line {l1=0x19, l2=»2030 IF P>LEN(LIN$) THEN «, l3=0x19}
0x0fcb…0fdc Line {l1=0x0f, l2=»2040 FOUND=TRUE«, l3=0x0f}
0x0fdc…0ff0 Line {l1=0x12, l2=»2050 P=LEN(LIN$)+1«, l3=0x12}
0x0ff0…0ffc Line {l1=0x0a, l2=»2060 ELSE «, l3=0x0a}
0x0ffc…1015 Line {l1=0x17, l2=»2070 IF P<66 THEN P=P+1«, l3=0x17}
0x1015…1031 Line {l1=0x1a, l2=»2080 IF LIN$(P)<>" " THEN «, l3=0x1a}
0x1031…103f Line {l1=0x0c, l2=»2090 REPEAT «, l3=0x0c}
0x103f…104b Line {l1=0x0a, l2=»2100 P=P-1«, l3=0x0a}
0x104b…1070 Line {l1=0x23, l2=»2110 IF LIN$(P)=" " THEN FOUND=TRUE«, l3=0x23}
0x1070…108e Line {l1=0x1c, l2=»2120 UNTIL FOUND=TRUE OR P=1«, l3=0x1c}
0x108e…109a Line {l1=0x0a, l2=»2130 ELSE «, l3=0x0a}
0x109a…10ab Line {l1=0x0f, l2=»2140 FOUND=TRUE«, l3=0x0f}
0x10ab…10b8 Line {l1=0x0b, l2=»2150 ENDIF «, l3=0x0b}
0x10b8…10c5 Line {l1=0x0b, l2=»2160 ENDIF «, l3=0x0b}
0x10c5…10da Line {l1=0x13, l2=»2170 IF FOUND THEN «, l3=0x13}
0x10da…10ed Line {l1=0x11, l2=»2180 IF P=1 THEN «, l3=0x11}
0x10ed…10fd Line {l1=0x0e, l2=»2190 SPLIT$=""«, l3=0x0e}
0x10fd…1130 Line {l1=0x31, l2=»2200 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x31}
0x1130…113c Line {l1=0x0a, l2=»2210 ELSE «, l3=0x0a}
0x113c…1155 Line {l1=0x17, l2=»2220 SPLIT$=LIN$(1,P-1)«, l3=0x17}
0x1155…1170 Line {l1=0x19, l2=»2230 IF P<LEN(LIN$) THEN «, l3=0x19}
0x1170…118f Line {l1=0x1d, l2=»2240 LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x1d}
0x118f…119b Line {l1=0x0a, l2=»2250 ELSE «, l3=0x0a}
0x119b…11a9 Line {l1=0x0c, l2=»2260 LIN$=""«, l3=0x0c}
0x11a9…11b6 Line {l1=0x0b, l2=»2270 ENDIF «, l3=0x0b}
0x11b6…11c3 Line {l1=0x0b, l2=»2280 ENDIF «, l3=0x0b}
0x11c3…11d0 Line {l1=0x0b, l2=»2290 ENDIF «, l3=0x0b}
0x11d0…11df Line {l1=0x0d, l2=»2300 ENDPROC «, l3=0x0d}
0x11df…11f1 Line {l1=0x10, l2=»2310 PROC INSERT«, l3=0x10}
0x11f1…11fd Line {l1=0x0a, l2=»2320 B$=""«, l3=0x0a}
0x11fd…1224 Line {l1=0x25, l2=»2330 IF J1>1 THEN B$=SIDE$(I1,1,J1-1)«, l3=0x25}
0x1224…1236 Line {l1=0x10, l2=»2340 B$=B$+LINE$«, l3=0x10}
0x1236…1260 Line {l1=0x28, l2=»2350 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66)«, l3=0x28}
0x1260…126b Line {l1=0x09, l2=»2360 P=67«, l3=0x09}
0x126b…127f Line {l1=0x12, l2=»2370 EXEC FLÆK(B$)«, l3=0x12}
0x127f…129a Line {l1=0x19, l2=»2380 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x129a…12a8 Line {l1=0x0c, l2=»2390 I1=I1+1«, l3=0x0c}
0x12a8…12b3 Line {l1=0x09, l2=»2400 J1=1«, l3=0x09}
0x12b3…12c2 Line {l1=0x0d, l2=»2410 LINE$=B$«, l3=0x0d}
0x12c2…1305 Line {l1=0x41, l2=»2420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0«, l3=0x41}
0x1305…1318 Line {l1=0x11, l2=»2430 B$=SIDE$(I1)«, l3=0x11}
0x1318…133d Line {l1=0x23, l2=»2440 IF LINE$(LEN(LINE$))="-" THEN «, l3=0x23}
0x133d…1358 Line {l1=0x19, l2=»2450 LINE$(LEN(LINE$))=""«, l3=0x19}
0x1358…1364 Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x1364…1390 Line {l1=0x2a, l2=»2470 IF LEN(LINE$)<66 THEN LINE$=LINE$+" "«, l3=0x2a}
0x1390…139d Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x139d…13c0 Line {l1=0x21, l2=»2490 SIDE$(I1,1,LEN(LINE$))=LINE$«, l3=0x21}
0x13c0…13d6 Line {l1=0x14, l2=»2500 P=67-LEN(LINE$)«, l3=0x14}
0x13d6…13ea Line {l1=0x12, l2=»2510 EXEC FLÆK(B$)«, l3=0x12}
0x13ea…142b Line {l1=0x3f, l2=»2520 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$«, l3=0x3f}
0x142b…143a Line {l1=0x0d, l2=»2530 LINE$=B$«, l3=0x0d}
0x143a…1448 Line {l1=0x0c, l2=»2540 I1=I1+1«, l3=0x0c}
0x1448…1458 Line {l1=0x0e, l2=»2550 ENDWHILE «, l3=0x0e}
0x1458…1474 Line {l1=0x1a, l2=»2560 IF LEN(LINE$)>0 THEN «, l3=0x1a}
0x1474…1486 Line {l1=0x10, l2=»2570 EXEC INDSÆT«, l3=0x10}
0x1486…1493 Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x1493…14a2 Line {l1=0x0d, l2=»2590 ENDPROC «, l3=0x0d}
0x14a2…14b4 Line {l1=0x10, l2=»2600 PROC DELETE«, l3=0x10}
0x14b4…14c0 Line {l1=0x0a, l2=»2610 J=J+1«, l3=0x0a}
0x14c0…14d4 Line {l1=0x12, l2=»2620 IF J>66 THEN «, l3=0x12}
0x14d4…14de Line {l1=0x08, l2=»2630 J=1«, l3=0x08}
0x14de…14ea Line {l1=0x0a, l2=»2640 I=I+1«, l3=0x0a}
0x14ea…14f7 Line {l1=0x0b, l2=»2650 ENDIF «, l3=0x0b}
0x14f7…1505 Line {l1=0x0c, l2=»2660 P=67-J1«, l3=0x0c}
0x1505…151d Line {l1=0x16, l2=»2670 IF I=LAST+1 THEN «, l3=0x16}
0x151d…1531 Line {l1=0x12, l2=»2680 IF J1>1 THEN «, l3=0x12}
0x1531…154b Line {l1=0x18, l2=»2690 SIDE$(I1,J1,66)=BL$«, l3=0x18}
0x154b…1557 Line {l1=0x0a, l2=»2700 ELSE «, l3=0x0a}
0x1557…1565 Line {l1=0x0c, l2=»2710 I1=I1-1«, l3=0x0c}
0x1565…1572 Line {l1=0x0b, l2=»2720 ENDIF «, l3=0x0b}
0x1572…158b Line {l1=0x17, l2=»2730 FOR Q=I1+1 TO LAST«, l3=0x17}
0x158b…159e Line {l1=0x11, l2=»2740 SIDE$(Q)=BL$«, l3=0x11}
0x159e…15ab Line {l1=0x0b, l2=»2750 NEXT Q«, l3=0x0b}
0x15ab…15b9 Line {l1=0x0c, l2=»2760 LAST=I1«, l3=0x0c}
0x15b9…15c5 Line {l1=0x0a, l2=»2770 ELSE «, l3=0x0a}
0x15c5…15df Line {l1=0x18, l2=»2780 LINE$=SIDE$(I,J,66)«, l3=0x18}
0x15df…15f6 Line {l1=0x15, l2=»2790 EXEC FLÆK(LINE$)«, l3=0x15}
0x15f6…1604 Line {l1=0x0c, l2=»2800 REPEAT «, l3=0x0c}
0x1604…1613 Line {l1=0x0d, l2=»2810 HYPHEN=0«, l3=0x0d}
0x1613…1630 Line {l1=0x1b, l2=»2820 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x1630…1657 Line {l1=0x25, l2=»2830 IF SPLIT$(LEN(SPLIT$))="-" THEN «, l3=0x25}
0x1657…167c Line {l1=0x23, l2=»2840 HYPHEN=LEN(SPLIT$)+J1-1+100*I1«, l3=0x23}
0x167c…1699 Line {l1=0x1b, l2=»2850 SPLIT$(LEN(SPLIT$))=""«, l3=0x1b}
0x1699…16a5 Line {l1=0x0a, l2=»2860 ELSE «, l3=0x0a}
0x16a5…16bd Line {l1=0x16, l2=»2870 SPLIT$=SPLIT$+" "«, l3=0x16}
0x16bd…16ca Line {l1=0x0b, l2=»2880 ENDIF «, l3=0x0b}
0x16ca…16d7 Line {l1=0x0b, l2=»2890 ENDIF «, l3=0x0b}
0x16d7…16f8 Line {l1=0x1f, l2=»2900 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x16f8…172a Line {l1=0x30, l2=»2910 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN «, l3=0x30}
0x172a…1742 Line {l1=0x16, l2=»2920 J1=J1+LEN(SPLIT$)«, l3=0x16}
0x1742…1750 Line {l1=0x0c, l2=»2930 P=67-J1«, l3=0x0c}
0x1750…1764 Line {l1=0x12, l2=»2940 IF I<22 THEN «, l3=0x12}
0x1764…1785 Line {l1=0x1f, l2=»2950 IF SIDE$(I+1,1)<>" " THEN «, l3=0x1f}
0x1785…179c Line {l1=0x15, l2=»2960 LINE$=SIDE$(I+1)«, l3=0x15}
0x179c…17a8 Line {l1=0x0a, l2=»2970 I=I+1«, l3=0x0a}
0x17a8…17bf Line {l1=0x15, l2=»2980 EXEC FLÆK(LINE$)«, l3=0x15}
0x17bf…17dc Line {l1=0x1b, l2=»2990 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x17dc…17fd Line {l1=0x1f, l2=»3000 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x17fd…181e Line {l1=0x1f, l2=»3010 IF LEN(LINE$)>0 THEN I=I-1«, l3=0x1f}
0x181e…1831 Line {l1=0x11, l2=»3020 SPLIT$=LINE$«, l3=0x11}
0x1831…1840 Line {l1=0x0d, l2=»3030 LINE$=""«, l3=0x0d}
0x1840…184f Line {l1=0x0d, l2=»3040 HYPHEN=0«, l3=0x0d}
0x184f…185b Line {l1=0x0a, l2=»3050 ELSE «, l3=0x0a}
0x185b…1873 Line {l1=0x16, l2=»3060 SIDE$(I1+1)=LINE$«, l3=0x16}
0x1873…1882 Line {l1=0x0d, l2=»3070 LINE$=""«, l3=0x0d}
0x1882…1890 Line {l1=0x0c, l2=»3080 I1=I1+1«, l3=0x0c}
0x1890…189d Line {l1=0x0b, l2=»3090 ENDIF «, l3=0x0b}
0x189d…18a9 Line {l1=0x0a, l2=»3100 ELSE «, l3=0x0a}
0x18a9…18b8 Line {l1=0x0d, l2=»3110 LINE$=""«, l3=0x0d}
0x18b8…18c8 Line {l1=0x0e, l2=»3120 SPLIT$=""«, l3=0x0e}
0x18c8…18d5 Line {l1=0x0b, l2=»3130 ENDIF «, l3=0x0b}
0x18d5…18e1 Line {l1=0x0a, l2=»3140 ELSE «, l3=0x0a}
0x18e1…18f0 Line {l1=0x0d, l2=»3150 LINE$=""«, l3=0x0d}
0x18f0…1900 Line {l1=0x0e, l2=»3160 SPLIT$=""«, l3=0x0e}
0x1900…190d Line {l1=0x0b, l2=»3210 ENDIF «, l3=0x0b}
0x190d…1919 Line {l1=0x0a, l2=»3220 ELSE «, l3=0x0a}
0x1919…1928 Line {l1=0x0d, l2=»3230 B$=LINE$«, l3=0x0d}
0x1928…193f Line {l1=0x15, l2=»3240 LINE$=SIDE$(I+1)«, l3=0x15}
0x193f…1954 Line {l1=0x13, l2=»3250 SIDE$(I1+1)=B$«, l3=0x13}
0x1954…196d Line {l1=0x17, l2=»3260 J1=LEN(B$);P=67-J1«, l3=0x17}
0x196d…1984 Line {l1=0x15, l2=»3270 EXEC FLÆK(LINE$)«, l3=0x15}
0x1984…1991 Line {l1=0x0b, l2=»3280 ENDIF «, l3=0x0b}
0x1991…19d1 Line {l1=0x3e, l2=»3300 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-"«, l3=0x3e}
0x19d1…19dc Line {l1=0x09, l2=»3310 J1=1«, l3=0x09}
0x19dc…19e6 Line {l1=0x08, l2=»3320 J=1«, l3=0x08}
0x19e6…19f4 Line {l1=0x0c, l2=»3330 I1=I1+1«, l3=0x0c}
0x19f4…1a00 Line {l1=0x0a, l2=»3340 I=I+1«, l3=0x0a}
0x1a00…1a18 Line {l1=0x16, l2=»3350 IF I>22 THEN I=22«, l3=0x16}
0x1a18…1a61 Line {l1=0x47, l2=»3360 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ")«, l3=0x47}
0x1a61…1a6c Line {l1=0x09, l2=»3370 J=I1«, l3=0x09}
0x1a6c…1a7c Line {l1=0x0e, l2=»3380 WHILE J<I«, l3=0x0e}
0x1a7c…1a8c Line {l1=0x0e, l2=»3390 EXEC SLET«, l3=0x0e}
0x1a8c…1a98 Line {l1=0x0a, l2=»3400 J=J+1«, l3=0x0a}
0x1a98…1aa8 Line {l1=0x0e, l2=»3410 ENDWHILE «, l3=0x0e}
0x1aa8…1ab5 Line {l1=0x0b, l2=»3420 ENDIF «, l3=0x0b}
0x1ab5…1ac4 Line {l1=0x0d, l2=»3430 ENDPROC «, l3=0x0d}
0x1ac4…1ad6 Line {l1=0x10, l2=»3440 PROC CHECK1«, l3=0x10}
0x1ad6…1ae1 Line {l1=0x09, l2=»3450 NR=0«, l3=0x09}
0x1ae1…1aeb Line {l1=0x08, l2=»3460 I=1«, l3=0x08}
0x1aeb…1b14 Line {l1=0x27, l2=»3470 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN «, l3=0x27}
0x1b14…1b24 Line {l1=0x0e, l2=»3480 OKAY=TRUE«, l3=0x0e}
0x1b24…1b30 Line {l1=0x0a, l2=»3490 ELSE «, l3=0x0a}
0x1b30…1b41 Line {l1=0x0f, l2=»3500 OKAY=FALSE«, l3=0x0f}
0x1b41…1b4e Line {l1=0x0b, l2=»3510 ENDIF «, l3=0x0b}
0x1b4e…1b66 Line {l1=0x16, l2=»3520 WHILE I<=LEN(SV$)«, l3=0x16}
0x1b66…1b8e Line {l1=0x26, l2=»3530 IF SV$(I)<"0" OR SV$(I)>"9" THEN «, l3=0x26}
0x1b8e…1b9f Line {l1=0x0f, l2=»3540 OKAY=FALSE«, l3=0x0f}
0x1b9f…1bb2 Line {l1=0x11, l2=»3550 I=LEN(SV$)+1«, l3=0x11}
0x1bb2…1bbe Line {l1=0x0a, l2=»3560 ELSE «, l3=0x0a}
0x1bbe…1bdc Line {l1=0x1c, l2=»3570 NR=NR*10+ORD(SV$(I))-48«, l3=0x1c}
0x1bdc…1be8 Line {l1=0x0a, l2=»3580 I=I+1«, l3=0x0a}
0x1be8…1bf5 Line {l1=0x0b, l2=»3590 ENDIF «, l3=0x0b}
0x1bf5…1c05 Line {l1=0x0e, l2=»3600 ENDWHILE «, l3=0x0e}
0x1c05…1c14 Line {l1=0x0d, l2=»3610 ENDPROC «, l3=0x0d}
0x1c14…1c2b Line {l1=0x15, l2=»3620 PROC CONVERT(NO)«, l3=0x15}
0x1c2b…1c59 Line {l1=0x2c, l2=»3630 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)«, l3=0x2c}
0x1c59…1c68 Line {l1=0x0d, l2=»3640 ENDPROC «, l3=0x0d}
0x1c68…1c79 Line {l1=0x0f, l2=»3650 PROC CHECK«, l3=0x0f}
0x1c79…1c8a Line {l1=0x0f, l2=»3660 OKAY=FALSE«, l3=0x0f}
0x1c8a…1c9d Line {l1=0x11, l2=»3670 CURSOR 20,23«, l3=0x11}
0x1c9d…1cb0 Line {l1=0x11, l2=»3680 CASE SV$ OF «, l3=0x11}
0x1cb0…1cc3 Line {l1=0x11, l2=»3690 WHEN "T","t"«, l3=0x11}
0x1cc3…1cd3 Line {l1=0x0e, l2=»3700 OKAY=TRUE«, l3=0x0e}
0x1cd3…1cec Line {l1=0x17, l2=»3710 PRINT "Tilføjelse"«, l3=0x17}
0x1cec…1d0b Line {l1=0x1d, l2=»3720 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x1d0b…1d1b Line {l1=0x0e, l2=»3730 OKAY=TRUE«, l3=0x0e}
0x1d1b…1d36 Line {l1=0x19, l2=»3740 PRINT "Tilføj linie"«, l3=0x19}
0x1d36…1d49 Line {l1=0x11, l2=»3750 WHEN "s","S"«, l3=0x11}
0x1d49…1d59 Line {l1=0x0e, l2=»3760 OKAY=TRUE«, l3=0x0e}
0x1d59…1d70 Line {l1=0x15, l2=»3770 PRINT "Sletning"«, l3=0x15}
0x1d70…1d8f Line {l1=0x1d, l2=»3780 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x1d8f…1d9f Line {l1=0x0e, l2=»3790 OKAY=TRUE«, l3=0x0e}
0x1d9f…1db8 Line {l1=0x17, l2=»3800 PRINT "Slet linie"«, l3=0x17}
0x1db8…1dcb Line {l1=0x11, l2=»3810 WHEN "R","r"«, l3=0x11}
0x1dcb…1ddb Line {l1=0x0e, l2=»3820 OKAY=TRUE«, l3=0x0e}
0x1ddb…1df1 Line {l1=0x14, l2=»3830 PRINT "Retning"«, l3=0x14}
0x1df1…1e04 Line {l1=0x11, l2=»3840 WHEN "e","E"«, l3=0x11}
0x1e04…1e14 Line {l1=0x0e, l2=»3850 OKAY=TRUE«, l3=0x0e}
0x1e14…1e2c Line {l1=0x16, l2=»3860 PRINT "Editering"«, l3=0x16}
0x1e2c…1e3b Line {l1=0x0d, l2=»3870 ENDCASE «, l3=0x0d}
0x1e3b…1e4a Line {l1=0x0d, l2=»3880 ENDPROC «, l3=0x0d}
0x1e4a…1e5c Line {l1=0x10, l2=»3890 PROC UDBREV«, l3=0x10}
0x1e5c…1e72 Line {l1=0x14, l2=»3900 FOR I=1 TO LAST«, l3=0x14}
0x1e72…1e8c Line {l1=0x18, l2=»3910 PUT UDFIL$:SIDE$(I)«, l3=0x18}
0x1e8c…1e99 Line {l1=0x0b, l2=»3920 NEXT I«, l3=0x0b}
0x1e99…1ea8 Line {l1=0x0d, l2=»3940 ENDPROC «, l3=0x0d}
0x1ea8…1eb6 Line {l1=0x0c, l2=»3950 REPEAT «, l3=0x0c}
0x1eb6…1ec8 Line {l1=0x10, l2=»3960 CURSOR 1,23«, l3=0x10}
0x1ec8…1ef0 Line {l1=0x26, l2=»3970 INPUT "FLERE MODULER (J/N) ",SV1$«, l3=0x26}
0x1ef0…1f14 Line {l1=0x22, l2=»3980 IF SV1$="J" OR SV1$="j" THEN «, l3=0x22}
0x1f14…1f28 Line {l1=0x12, l2=»3990 EXEC INDMODUL«, l3=0x12}
0x1f28…1f3a Line {l1=0x10, l2=»4000 EXEC TILPAS«, l3=0x10}
0x1f3a…1f4c Line {l1=0x10, l2=»4010 EXEC UDBREV«, l3=0x10}
0x1f4c…1f59 Line {l1=0x0b, l2=»4020 ENDIF «, l3=0x0b}
0x1f59…1f7d Line {l1=0x22, l2=»4030 UNTIL SV1$<>"J" AND SV1$<>"j"«, l3=0x22}
0x1f7d…1f92 Line {l1=0x13, l2=»4040 ENDFILE UDFIL$«, l3=0x13}
0x1f92…1fa5 Line {l1=0x11, l2=»4050 CLOSE UDFIL$«, l3=0x11}
0x1fa5…1fb3 Line {l1=0x0c, l2=»4060 REPEAT «, l3=0x0c}
0x1fb3…1fc0 Line {l1=0x0b, l2=»4070 CLEAR «, l3=0x0b}
0x1fc0…1fe6 Line {l1=0x24, l2=»4080 PRINT "BREVET ØNSKES UDSKREVET"«, l3=0x24}
0x1fe6…200f Line {l1=0x27, l2=»4090 PRINT "Som det er: 1"«, l3=0x27}
0x200f…2038 Line {l1=0x27, l2=»4100 PRINT "Til en enkelt kunde: 2"«, l3=0x27}
0x2038…2061 Line {l1=0x27, l2=»4110 PRINT "Til en række kunder: 3"«, l3=0x27}
0x2061…208a Line {l1=0x27, l2=»4120 PRINT "Til en kundegruppe : 4"«, l3=0x27}
0x208a…2098 Line {l1=0x0c, l2=»4130 REPEAT «, l3=0x0c}
0x2098…20c1 Line {l1=0x27, l2=»4140 INPUT "(1/2/3/4) 0 FOR STOP ",SV$«, l3=0x27}
0x20c1…20d3 Line {l1=0x10, l2=»4150 EXEC CHECK1«, l3=0x10}
0x20d3…20fd Line {l1=0x28, l2=»4160 UNTIL NR=>0 AND NR<=4 AND OKAY=TRUE«, l3=0x28}
0x20fd…210f Line {l1=0x10, l2=»4170 CASE NR OF «, l3=0x10}
0x210f…211c Line {l1=0x0b, l2=»4180 WHEN 1«, l3=0x0b}
0x211c…212d Line {l1=0x0f, l2=»4190 EXEC WRITE«, l3=0x0f}
0x212d…213a Line {l1=0x0b, l2=»4200 WHEN 2«, l3=0x0b}
0x213a…2147 Line {l1=0x0b, l2=»4210 WHEN 3«, l3=0x0b}
0x2147…2154 Line {l1=0x0b, l2=»4220 WHEN 4«, l3=0x0b}
0x2154…2163 Line {l1=0x0d, l2=»4230 ENDCASE «, l3=0x0d}
0x2163…2174 Line {l1=0x0f, l2=»4240 UNTIL NR=0«, l3=0x0f}
0x2174…2185 Line {l1=0x0f, l2=»4250 PROC WRITE«, l3=0x0f}
0x2185…2194 Line {l1=0x0d, l2=»4260 OUTPUT P«, l3=0x0d}
0x2194…21a8 Line {l1=0x12, l2=»4270 OPEN UDFIL$,R«, l3=0x12}
0x21a8…21be Line {l1=0x14, l2=»4280 GET UDFIL$:SYM$«, l3=0x14}
0x21be…21cc Line {l1=0x0c, l2=»4290 LINES=0«, l3=0x0c}
0x21cc…21e9 Line {l1=0x1b, l2=»4300 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x21e9…21fd Line {l1=0x12, l2=»4310 LINES=LINES+1«, l3=0x12}
0x21fd…2215 Line {l1=0x16, l2=»4320 IF LINES=43 THEN «, l3=0x16}
0x2215…222c Line {l1=0x15, l2=»4330 FOR LINES=1 TO 6«, l3=0x15}
0x222c…223c Line {l1=0x0e, l2=»4340 PRINT " "«, l3=0x0e}
0x223c…224d Line {l1=0x0f, l2=»4350 NEXT LINES«, l3=0x0f}
0x224d…225b Line {l1=0x0c, l2=»4360 LINES=1«, l3=0x0c}
0x225b…2268 Line {l1=0x0b, l2=»4370 ENDIF «, l3=0x0b}
0x2268…2280 Line {l1=0x16, l2=»4380 PRINT TAB(7);SYM$«, l3=0x16}
0x2280…2296 Line {l1=0x14, l2=»4390 GET UDFIL$:SYM$«, l3=0x14}
0x2296…22a6 Line {l1=0x0e, l2=»4400 ENDWHILE «, l3=0x0e}
0x22a6…22b9 Line {l1=0x11, l2=»4410 CLOSE UDFIL$«, l3=0x11}
0x22b9…22c8 Line {l1=0x0d, l2=»4420 OUTPUT T«, l3=0x0d}
0x22c8…22d7 Line {l1=0x0d, l2=»4430 ENDPROC «, l3=0x0d}
0x22d7…22e0 00 00 32 30 20 4f 55 54 50 ┆ 20 OUTP┆
0x22e0…2300 55 54 20 54 0d 0d 34 34 33 30 20 45 4e 44 50 52 4f 43 20 0d 00 00 63 63 63 63 63 63 63 63 63 63 ┆UT T 4430 ENDPROC cccccccccc┆
0x2300…2320 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┆
[…0x23…]