home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / INPUT$.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  22 lines

  1. 1  REM  **********************
  2. 2  REM  *      INPUT$        *
  3. 3  REM  * BY W.J. CHEESEMAN  *
  4. 4  REM  * COPYRIGHT (C) 1982 *
  5. 5  REM  * BY MICRO-SPARC INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10 H =  PEEK(36) +1:V =  PEEK(37) +1:L$ = "":L = 256 -H
  9. 20  GET A$: IF A$ =  CHR$(13)  THEN  FOR K = 1 TO  LEN(R$): PRINT " ";: NEXT K: HTAB H:X =  FRE(0): RETURN 
  10. 22  REM  *        INPUT$        *
  11. 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)
  12. 40  IF A$ =  CHR$(21)  AND R$ >""  THEN H = H +1:L$ = L$ + LEFT$(R$,1)
  13. 50  IF A$ =  CHR$(24)  THEN H = H - LEN(L$):R$ = "X" +L$ +R$:L$ = ""
  14. 60  IF A$ =  CHR$(3)  THEN H = H + LEN(R$):L$ = L$ +R$:R$ = ""
  15. 70  IF A$ =  CHR$(11)  THEN A$ =  CHR$(91)
  16. 80  IF A$ < CHR$(32)  THEN A$ = "":H = H -1
  17. 90  IF  LEN(L$) >L -8  THEN  PRINT  CHR$(7);: IF  LEN(L$) + LEN(A$) = L  THEN  PRINT  CHR$(7);: GOTO 20
  18. 100  PRINT A$;:H = H +1: VTAB V: HTAB H:L$ = L$ +A$:R$ =  MID$ (R$,2): GOTO 20
  19. 101  REM  INPUT$ (DISK)
  20. 110 L$ = "":M$ =  CHR$(13)
  21. 120  GET A$: IF A$ < >M$  THEN L$ = L$ +A$: GOTO 120
  22. 130 X =  FRE(0): RETURN