100 REM PARSE THE INPUT BUFFER FOR A FILE
110 REM NAME FOLLOWING RUN:
120 REM BY NOEL NYMAN
130 :
140 X=512 : REM START OF INPUT BUFFER
150 XX=592: REM CHANGE TO 673 FOR C128
160 :  IF PEEK(X)<138 AND PEEK(X)>0 THEN X=X+1: GOTO 160: REM 138=RUN TOKEN
170 :  IF PEEK(X)=0 GOTO 250: REM END OF LINE IN BUFFER
180 :  IF PEEK(X)=58 THEN X=X+1: GOTO 210: REM FOUND A COLON
190 :  X=X+1: IF X>XX GOTO 250: REM XX POINTS TO END OF INPUT BUFFER
200 :  GOTO 180
210 :  IF PEEK(X)=32 AND BF$="" THEN X=X+1: GOTO 210: REM SKIP LEADING SPACES
220 :  IF PEEK(X)=34 THEN X=X+1: GOTO 220: REM SKIP QUOTES
230 :  IF PEEK(X)<>0 THEN BF$=BF$+CHR$(PEEK(X)): X=X+1: GOTO 220
240 :
250 IF BF$="" THEN INPUT "ENTER FILE NAME: ";BF$: REM NO ARGUMENTS
260 :
270 OPEN 15,8,15
280 OPEN 2,8,2,"0:"+BF$+",S,R"
290 INPUT#15,X,X$
300 IF X>19 THEN PRINT "FILE NAME = "BF$: PRINT "DISK ERROR"X,X$: GOTO 390
310 :
320 GET#2,X$
330 PRINT X$;
340 :
350 WAIT 653,1,255: REM SHIFT KEY PAUSES, SHIFT/LOCK HOLDS
360 :
370 IF ST=0 GOTO 320
380 :
390 CLOSE 2: CLOSE 15
400 :
410 END