home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / STRING.INPUT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  547b  |  18 lines
  1. 1  REM  * STRING.INPUT DEMO
  2. 2  REM  * BY ROGER WAGNER
  3. 3  REM  * COPYRIGHT(C) 1988
  4. 4  REM  * MICROSPARC, INC.
  5. 5  REM  * CONCORD, MA 01742
  6. 6  REM  *
  7. 10  FOR I = 0 TO 47
  8. 20  READ N: POKE 768 +I,N
  9. 30  NEXT I: REM  POKE ROUTINE INTO MEMORY
  10. 40  PRINT 
  11. 50  CALL 768,"INPUT YOUR STRING:";A$
  12. 60  PRINT A$
  13. 70  IF A$ = ""  THEN  END 
  14. 80  GOTO 40
  15. 900  DATA  32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208
  16. 910  DATA  11,32,129,222,169,59,32,192,222,32,61,219,32,227
  17. 920  DATA  223,32,108,221,133,133,132,134,32,44,213,200
  18. 930  DATA  32,233,227,76,154,218