I've extracted this from an application I wrote. Perhaps there's something in it you can use. I modified it use ANS CASE and it seems to work. The BEEP routine is defined as a no-op - change it as required for your system.
https://pastebin.com/H8Pj89Ui
On 4/03/2023 12:39 pm, dxforth wrote:
I've extracted this from an application I wrote. Perhaps there's something >> in it you can use. I modified it use ANS CASE and it seems to work. The >> BEEP routine is defined as a no-op - change it as required for your system. >>
https://pastebin.com/H8Pj89Ui
There's a bug in the preamble. Should be:
: UPCASE ( c -- c' )
dup [char] a [char] z between if $20 xor then ;
Missing:
: OFF ( a -- ) 0 swap ! ;
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 300 |
Nodes: | 16 (2 / 14) |
Uptime: | 49:18:24 |
Calls: | 6,711 |
Calls today: | 4 |
Files: | 12,243 |
Messages: | 5,354,778 |
Posted today: | 1 |