A Jupiter-Ace emulator inside ForthWin
FORTH UFLOAT INT FNEGATE F/ F*
F+
F— LOAD BVERIFY VERIFY BLOAD
BSAVE SAVE LIST EDIT FORGET
REDEFINE EXIT . ' ( [ +LOOP LOOP DO
UNTIL REPEAT BEGIN THEN ELSE WHILE
IF ] LEAVE J I' I DEFINITIONS
VOCABULARY IMMEDIATE RUNS> DOES>
COMPILER CALL DEFINER ASCII LITE
RAL CONSTANT VARIABLE ALLOT C, ,
CREATE : DECIMAL MIN MAX XOR AND
OR 2— 1— 2+ 1+ D+ — + DNEGATE
NEGATE U/MOD */ * MOD / /MOD
/MOD U D< U< < > = 0> 0< 0= ABS
OUT IN INKEY BEEP PLOT AT F. EMIT
CR SPACES SPACE HOLD CLS # #S
U. .
SIGN #> <# TYPE ROLL PICK OV
ER ROT ?DUP R> >R ! @ C! C@ SWAP
DROP DUP SLOW FAST INVIS VIS
CONVERT NUMBER EXECUTE FIND VLIST
WORD RETYPE QUERY LINE PAD BASE
CURRENT CONTEXT HERE ABORT QUIT