home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib09.dsk
/
INPUT$.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
22 lines
1 REM **********************
2 REM * INPUT$ *
3 REM * BY W.J. CHEESEMAN *
4 REM * COPYRIGHT (C) 1982 *
5 REM * BY MICRO-SPARC INC *
6 REM * LINCOLN, MA. 01773 *
7 REM **********************
10 H = PEEK(36) +1:V = PEEK(37) +1:L$ = "":L = 256 -H
20 GET A$: IF A$ = CHR$(13) THEN FOR K = 1 TO LEN(R$): PRINT " ";: NEXT K: HTAB H:X = FRE(0): RETURN
22 REM * INPUT$ *
30 IF A$ = CHR$(8) THEN R$ = "X" + RIGHT$(L$,1) +R$: IF L$ >"" THEN H = H -1:L$ = MID$ (L$,1, LEN(L$) -1)
40 IF A$ = CHR$(21) AND R$ >"" THEN H = H +1:L$ = L$ + LEFT$(R$,1)
50 IF A$ = CHR$(24) THEN H = H - LEN(L$):R$ = "X" +L$ +R$:L$ = ""
60 IF A$ = CHR$(3) THEN H = H + LEN(R$):L$ = L$ +R$:R$ = ""
70 IF A$ = CHR$(11) THEN A$ = CHR$(91)
80 IF A$ < CHR$(32) THEN A$ = "":H = H -1
90 IF LEN(L$) >L -8 THEN PRINT CHR$(7);: IF LEN(L$) + LEN(A$) = L THEN PRINT CHR$(7);: GOTO 20
100 PRINT A$;:H = H +1: VTAB V: HTAB H:L$ = L$ +A$:R$ = MID$ (R$,2): GOTO 20
101 REM INPUT$ (DISK)
110 L$ = "":M$ = CHR$(13)
120 GET A$: IF A$ < >M$ THEN L$ = L$ +A$: GOTO 120
130 X = FRE(0): RETURN