home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / INPUT OR EXEC ON THE FLY.int < prev    next >
Text File  |  2023-02-26  |  728b  |  10 lines
  1. 0 DIM X$(255):D$="<CTRL-D>":REM  CTRL D
  2. 10 PRINT :GOSUB 1000:PRINT X$,X:IF X$="NO MORE" OR X$="" THEN END :GOTO 10
  3. 1000 INPUT X$:IF X$="" THEN X=0:IF X$="" THEN RETURN :IF  ASC(X$)=132 THEN 2000
  4. 1010 Z=0:FOR Y=1 TO  LEN(X$):IF  ASC(X$(Y))<186 AND  ASC(X$(Y))>175 THEN Z=Z+1:NEXT Y:IF Z>5 THEN Z=5
  5. 1020 X=0:IF Z=0 THEN RETURN :FOR Y=1 TO Z:X=X*10+( ASC(X$(Y))-176):NEXT Y:RETURN 
  6. 2000 X$=X$(2):PRINT D$;"DELETE FILE.X":PRINT D$;"OPEN FILE.X":PRINT D$;"WRITE FILE.X":PRINT X$
  7. 2010 PRINT D$;"CLOSE FILE.X":INPUT X$:IF X$="" THEN X$="GO TO 1000":PRINT D$;"APPEND FILE.X":PRINT D$;"WRITE FILE.X":PRINT X$
  8. 2020 IF X$#"GO TO 1000" THEN 2030:PRINT D$;"EXEC FILE.X":END 
  9. 2030 IF X$#"MISTAKE" THEN 2010:PRINT D$;"DELETE FILE.X":GOTO 1000
  10.