@anonymous/

SinfulTidyMining

Forth

No description

fork
loading
main.fth
1
2
3
4
5
6
7
: INPUT$    ( -- $addr )
 PAD 1+     ( leave room for byte count )
 127 ACCEPT ( recieve a maximum of 127 chars )
 PAD C!     ( set byte count )
 PAD        ( return address of string )
;
INPUT$ COUNT TYPE
JS-Forth 0.5200804171342 http://www.forthfreak.net/jsforth.html This program is published under the GPL.