1: INPUT "Filename-->", fil$ 2: OPEN fil$ FOR RANDOM AS #1: IF LOF(1) = 0 THEN CLOSE 1: OPEN fil$ FOR OUTPUT AS #1 ELSE A$ = "1": CLOSE #1: OPEN fil$ FOR APPEND AS #1 3: SCREEN 12: CLS 4: LOCATE 1, 1: PRINT "Line :"; CSRLIN - 1; " Column:"; POS(0); " Filename:"; fil$ 5: x = 2: y = 1 6: 10 as$ = INKEY$ 7: IF as$ = "" GOTO 10 8: IF as$ = CHR$(8) THEN as$ = LEFT$(as$, LEN(as$) - 1): LOCATE CSRLIN, POS(0) - 1: PRINT " "; : LOCATE CSRLIN, POS(0) - 1: x = CSRLIN: y = POS(0) 9: IF as$ = CHR$(27) THEN GOTO 21 10: LOCATE 1, 1: PRINT "Line :"; x; " Column:"; y; " Filename:"; fil$: LOCATE x, y 11: PRINT as$; : t$ = t$ + as$: x = CSRLIN: y = POS(0) 12: GOTO 10 13: 21 14: |