home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / KE-WACHA-WANT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  439b  |  18 lines
  1. 10  REM  *********************
  2. 20  REM  ** KE-WACHA-WANT   **
  3. 30  REM  *********************
  4. 40  POKE 51,191
  5. 50  GOSUB 500
  6. 60  PRINT "(";IN$;")"
  7. 70  IF IN$ = "END OF RUN"  THEN  END 
  8. 80  GOTO 50
  9. 470  REM  ---------------------
  10. 480  REM  -- INPUT ANYTHING  --
  11. 490  REM  ---------------------
  12. 500 IN$ = "": CALL  -662
  13. 510  FOR I = 512 TO 767
  14. 520 X =  PEEK(I) -128
  15. 530  IF X = 13  THEN  RETURN 
  16. 540 IN$ = IN$ + CHR$(X)
  17. 550  NEXT 
  18. 560  RETURN