5 POKE530,1 10 PRINT" * EDITOR *":PRINT:PRINT 15 Z=57088 20 INPUT"LINE WIDTH FOR PRINTOUT";W 30 D=100 40 PRINT:INPUT"SECTION NRS. (Y/N)";S$ 50 DATA253,191,251,239,247,191,247,223,239,253,247,253,223,191,251,247 55 DATA 253,253,239,223,247,127,239,239,239,251 60 DIMA$(D) 70 GOSUB950 80 PRINT"A=ALPHA SORT,B=BOTTOM," 85 PRINT"D=DOWN,F=FIND,I=INSERT," 90 PRINT"K=KILL LINE,L=LOAD," 100 PRINT"N=DEF.NR.,P=PRINT ALL," 105 PRINT"R=REMOVE NRS.,S=SAVE FILE" 110 PRINT"T=TOP,U=UP ...?" 120 RESTORE:FORI=1TO13 125 READ X,Y 130 POKEZ,X 135 IFY=PEEK(Z)GOTO160 140 NEXT 150 GOTO120 160 ONIGOSUB180,230,250,270,370,450,500,580,660,760,700,730,740 170 PRINTA$(J):GOTO120 180 S=0:I=-1:POKEZ,253:IF239=PEEK(Z)THENPRINT"SORT INTERRUPTED":RETURN 190 I=I+1:IFA$(I+1)="END"ANDS=0THENPRINT"SORTED":RETURN 200 IFA$(I+1)="END"GOTO180 210 IFA$(I)>A$(I+1)THENM$=A$(I):A$(I)=A$(I+1):A$(I+1)=M$:S=1 220 GOTO190 230 FORJ=0TOD:IFA$(J)="END"THENRETURN 240 NEXT 250 IFA$(J)<>"END"THENJ=J+1 260 RETURN 270 REM FIND WORD 280 J=-1 290 INPUT"WORD=";B$:K=LEN(B$) 300 J=J+1:IFA$(J)="END"THENPRINT:RETURN 310 S=LEN(A$(J))-K:IFS<0GOTO300 320 FORI=1TOS+1:M$=MID$(A$(J),I,K) 330 IFM$=B$GOTO360 340 NEXT 350 GOTO300 360 PRINTA$(J):GOTO300 370 REM INSERT 380 I=-1 390 I=I+1:IFI=D-1THENPRINT"MEMORY OVERFLOW":RETURN 400 IFA$(I)<>"END"GOTO390 410 A$(I+1)=A$(I):I=I-1:IFI>=JGOTO410 420 INPUTM$:IFM$="END"THENI=J:GOTO480 430 IFS$="Y"THENM$="** "+M$ 440 A$(J)=M$:J=J+1:GOTO380 450 INPUT"KILL LINE (Y/N)";M$:I=J 470 IFM$<>"Y"THENRETURN 480 I=I+1:IFA$(I-1)="END"THENRETURN 490 A$(I-1)=A$(I):GOTO480 500 INPUT"CLEAR LAST FILE (Y/N)";M$ 520 IFM$="Y"THENGOSUB950 530 GOSUB230 540 POKE515,255 550 INPUTA$(J):IFA$(J)<>"END"THENJ=J+1:GOTO550 560 POKE515,0:PRINT"LOADED":RETURN 580 IFS$="Y"GOTO620 590 S$="Y" 600 FORI=0TOD:IFA$(I)="END"GOTO620 610 A$(I)="** "+A$(I):NEXT 620 IFA$(J)="END"THENRETURN 630 INPUT"RUBRIC=";M$:A$(J)=RIGHT$(A$(J),LEN(A$(J))-2) 640 IFLEN(M$)=1THENM$="#"+M$ 650 A$(J)=M$+A$(J):S$="Y":GOTO250 660 PRINT:R$="" 670 FORI=0TOD:IFA$(I)="END"THENPRINT:RETURN 680 IFA$(I)>""THENGOSUB820 690 NEXT 700 J=0:POKE517,255 710 PRINTA$(J):IFA$(J)<>"END"THENJ=J+1:GOTO710 720 POKE517,0:PRINT"SAVED":RETURN 730 J=0:RETURN 740 IFJ>0THENJ=J-1 750 RETURN 760 INPUT"CUT OFF NR.FIELD (Y/N)";M$ 780 IFM$<>"Y"THENRETURN 790 S$="N":PRINT"DELETED" 800 FORI=0TOD:IFA$(I)="END"THENRETURN 810 A$(I)=RIGHT$(A$(I),LEN(A$(I))-3):NEXT 820 M$=A$(I):B$=LEFT$(M$,2):IFS$="N"GOTO850 830 IFB$<>R$THENR$=B$:PRINT:PRINT"R U B R I K ";R$:PRINT 840 M$=RIGHT$(M$,LEN(M$)-3) 850 IFLEFT$(M$,1)=" "THENM$=RIGHT$(M$,LEN(M$)-1):GOTO850 860 IFW>LEN(M$)THENPRINTM$:RETURN 870 K=W+1 880 K=K-1:IFK=0THENK=W:GOTO920 890 B$=MID$(M$,K,1):IFB$>"?"GOTO880 900 IFB$<":"ANDB$>"/"GOTO880 910 IFB$="'"ORB$="("GOTO880 920 PRINTLEFT$(M$,K) 930 M$=RIGHT$(M$,LEN(M$)-K):PRINT" "; 940 GOTO850 950 FORI=0TOD:A$(I)="":NEXT 960 J=0:A$(0)="END":PRINT"FILE CLEARED":RETURN OK