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