FORTH for the SHARP PC-E500 (S)

[Klaus Overhage]

It's a round thing: an extensive programming language including a detailed manual (65 pages are printed out). Thank you for that Rob, I'm thrilled. Now there are floating point numbers, so Forth go ahead and draw a sine curve in the display.
   

Code:

\ SIN-DEMO.FTH
.( Loading SIN-DEMO... )
ANEW _SIN-DEMO_

3.141592654e FCONSTANT PI

: fdx        \ step size in radians 
 4e PI F* 240e F/ ;

: sin-demo
PAGE
240 0 DO
I               \ x of pixle-coordinate
I S>F fdx F*    \ x in radians
FSIN 1e F+      \ y between 0 and  2
15.5e F*        \ y between 0 and 31
FROUND F>S
GPOINT
LOOP ;

sin-demo

From Forth500 with INCLUDE COM: loaded and started. (I previously set the PC-E500 to RAD in BASIC mode with Shift-DRG.)