|D8lLdNr`~p@p~
BD||0($ ||100 ! GEDIT  EDITS OR CREATES GERMAN.DAT  MARK LINTON  02/73
110 PRINT "GEDIT VER 4A":OPEN "GERMAN.DAT" AS FILE 1%
120 INPUT "INPUT COMMANDS FROM";I$:OPEN I$ FOR INPUT AS FILE 2%
130 DIM #1%,A$(70%)=64%,B$(70%),C$(70%),G$(70%),D$(70%)
140 PRINT "CMD";:INPUT #2%,C$! COMMANDS ARE 1:(A$),2:(B$), ETC.
150 ! AFTER : = NO. OF SUBSCRIPT OF STRING TO BE CHANGED
160 ! AFTER NEXT : = NEW STRING
170 !     IF NOTHING IF GIVEN AFTER NO. OF
	  SUBSCRIPT THEN 'NS?' WILL BE TYPED ASKING
	  FOR NEW STRING.
180 C1%=INSTR(1%,C$,":"):C2%=INSTR(C1%+1%,C$,":")
190 IF C1%=0% THEN 300
200 V%=VAL(LEFT(C$,C1%-1%)):IF C2%=0% THEN S%=VAL(RIGHT(C$,C1%+1%))
	ELSE S%=VAL(MID(C$,C1%+1%,C2%-C1%-1%))
210 IF C2%=0% THEN INPUT "NS";N$:GO TO 230
220 N$=RIGHT(C$,C2%+1%)
230 IF V%<1% OR V%>5% THEN PRINT "COMMAND ERROR":GO TO 140
240 ON V% GO TO 250,260,270,80,290
250 A$(S%)=N$:GO TO 140
260 B$(S%)=N$:GO TO 140
270 C$(S%)=N$:GO TO 140
280 G$(S%)=N$:GO TO 140
290 D$(S%)=N$:GO TO 140
300 PRINT "GEDIT OK."
310 CLOSE 1%
320 END
KEY
x
