!        (N ADDR -- )
!CSP
#
#>
#OUT
#S
#U
$40
$80
$DS
(
)
*
*/
*/MOD
+        (N N -- N+N)
+!       (N ADDR -- )
+-
+BR
+DUP
+LOOP
+TAB
+TO
+ZBR
,        (N -- )
-
-1
-TAB
-VEC
.
."
.(
.AD
.ASC
.D
.FNAME
.FSIZE
.H       (N -- ) PRINT 4 DIGIT HEX NUMBER
.HC      (C -- ) PRINT 2 DIGIT HEX NUMBER
.ID
.R
.S
.U
.UD
.W       (N -- )
.XD      (A -- )  HEX DUMP USING SAME SEGMENT AS PEEK, POKE
/
/MOD
0<
0<>
0=
0>
1+
1-
1F
2!
2*
2+
2-
2/
2>R
2@
2DROP
2DUP
2OVER
2SWAP
3+
3-
7F       127
:
;
<
<
<#
=
=?
>
>
>>ASC
>ADR
>ASC
>BR
>IN
>OF
>R
>S
>ZBR
?
??
?ADR
?BEL
?C
?CSP
?DUP
?ENOUGH  (N -- )    ABORT IF LESS THAN N STACK DEPTH
?ER
?EX
?FWD
?IF
?KEY
?Q
@
ABORT"
ABS
ADR      TOVAR
ADRPNT   TOVAR
AGAIN
ALLOT    (N -- )
AND
ASC.
ASCII
ASCIIZ
BASE
BDOS (DX CX BX AX -- DX CX BX AX CARRY) INT 21h
BEGIN
BL
BLACK
BLK
BLOCK
BOXTO    (X Y -- )  DRAW BOX FROM PEN POSITION
BOXTYPE  ( -- N)    GET CURRENT BOX TYPE
BR       TOVAR
BRPNT    TOVAR
BSET     (ADDR C -- ) OR CHAR AT ADDR WITH BYTE:
BYE
BYTES    ( -- N)    TOVAR
C!       (C ADDR -- )
C+!      (C ADDR -- )
C,       (C --)
C/LINE   ( -- N)    CHARS PER LINE TOVAR
C>A
C>L
C>N
C@       (ADDR -- C)
CALL     (DX CX BX AX ADDR - DX CX BX AX) SUBROUTINE NEAR CALL
CASE
CGASEG   ( -- )    SET CGA SEGMENT
CLASS
CLATEST
CLR
CLS
CMOVE
COLD     ( -- )  COLD START
COLOR    (N -- ) SET COLOR  0 >= N >= 1
COMPILE
CONSTANT
CONTEXT
COUNT
CREATE
CREATES
CS@      (-- CS) FETCH CURRENT CODE SEG
CSP?
CTRL
D+
D+-
D-
D.R
DABS
DDUMP    (A -- )    CONTINUOUS HEX DUMP DUAL FORMAT
DDUMPS   (A N -- )  HEX DUMP DUAL FORMAT N LINES
DECIMAL
DEPTH    ( -- N)
DIR
DNEGATE
DO
DO?ER
DOADR
DOBR
DOBR2
DOES>
DOILT
DOP1
DOP2
DOSTR
DOZBR
DOZBR2
DP
DROP     (N -- )
DS
DS@      (-- DS)
DU
DUMP
DUMP     (A -- )    CONTINUOUS HEX DUMP
DUMPS    (A N -- )  HEX DUMP N LINES
DUP      (N -- N N)
DX
E16
ELSE
EMIT     (N -- )
ENDCASE
ENDOF
ERR
ERROR
EXECUTE
EXIT
FCLOSE
FCREATE
FG
FGET
FI/O
FILL     (ADDR COUNT CHAR -- )
FIND1ST
FINDNXT
FLIST
FLOAD
FOPEN
FORGET
FREAD
FSAVE
FSIZE    ( -- N)
FSZ-
FWRITE   (DEST COUNT -- )
GCLS     (N -- ) CLEAR GRAPHIC SCREEN TO COLOR N)
GE
GETSEG   ( -- SEG)  RETRIEVE SEGMENT USED FOR PEEK, POKE & .XD
GETVSEG  ( -- SEG ) GET CURRENT VIDEO SEGMENT
GGET     (ADDR Y1 X1 Y X -- ) READ AREA (GRAPHIC)
GMODE    ( -- )     SET VIDEOMODE
GPUT     (RULE ADDR Y X -- ) PUT AREA
GROFF    ( -- )
GRON     ( -- )
GT
GWRITE   (Y X ADDR DIR -- ) WRITE GRAPHIC TEXT
HANDLE   ( -- N)   TOVAR
HEAD
HERE     ( -- N)
HEX
HOLD
HOME
I        ( -- N)
IF
IMMEDIATE
INI
INT10    (DX CX BX AX -- DX CX BX AX)
INT10-   (DX CX BX AX -- )
INT15    (DX CX BX AX -- DX CX BX AX)
INT15-   (DX CX BX AX -- )
INTERPRET
KBD
KEY      ( -- N)
LATEST
LE
LEAVE
LINETO   ( Y X -- ) DRAW LINE FROM PEN POSITION
LINK
LIST
LITERAL
LL
LOAD
LOCATE
LOOP
LT
LV?
LX
M*
M/MOD
MAKEIT
MAX
MDASEG   ( -- )  SET MDA SEGMENT
ME
MGRA     ( -- )
MIN
MOD
MTXT     ( -- )
MU/MOD
MYSELF
N>C
NEGATE
NL
NLEFT
NOT      (N -- N)   COMPLIMENT
NU
NUMBER
OF
OFF
ON
OR
ORIGIN   (Y X -- )  SET LOGICAL ORIGIN
OUTSIDE
OVER     (1 2 -- 1 2 1)
PAD
PATCH    (N N -- )
PCUR
PEEK     (ADDR -- ) PEEK MEMORY BYTE
PENTO    (Y X -- ) SET PEN POSITION
PICK
PLOT     (Y X -- ) PLOT PIXEL IN CURRENT COLOR
PNT      TOVAR
PNT-
POKE     (N ADDR -- ) POKE BYTE INTO MEMORY
QUIT
R>       (N -- )
R@       ( -- N)
RANGE
RC+
RDROP    ( -- )
REPEAT
RESOLVE
RID
ROT      (A B C -- B C A)
RP!      (N -- )  N -> BP (RETURN STACK)
RUN
S#
S.
S>
S>D
S@
SCRCPY   ( DEST COUNT -- ) COPY SCREEN TO DEST
SDEPTH
SEE
SETCLIP  (Y1 X1 Y X -- ) SET CLIP REGION
SETDTA
SETFILL  (P -- ) SET FILL PATTERN. P->8 BYTE PATTERN BUFFER
SETLINETYPE (N -- ) SET GRAPHIC LINE TYPE
SETRULE  (N -- ) SET GRAPHIC REPLACEMENT RULE
SETSEG   ( SEG -- )  SET SEGMENT USED FOR PEEK, POKE & .XD
SIGN
SIGN>S
SIGNS>S
SND
SP!      (N -- ) N -> SP
SPACE    ( -- )
SPACES   (N -- )
SPAN
STATE
SUBTITLE (ADDR --)   ASSIGN NEW SUBTITLE (MAX 15 CHARS)
SwAP     (A B -- B A)
T/S      (ADDR LEN -- ) TYPE STRING & SPACE
T40      ( -- )      40 x 16 TEXT MODE
T64      ( -- )      64 x 18 TEXT MODE
T80      ( -- )      80 x 25 TEXT MODE
TAB
TABCNT   TOVAR
TABS
TDP
THEN
TO       (N -- )
TOVAR
TS
TX
TYPE     (ADDR LEN -- )
U#
U.R
U<
UM*
UM/MOD
UNTIL
VARIABLE
VECTOR
VIDSET   (N -- )  SET VIDEO MODE TO N
WHILE
WHITE
WIPE
WITHIN
WORD
WORDS
WPEEK    (ADDR -- WORD)  PEEK A WORD
WPOKE    (WORD ADDR -- ) POKE A WORD
XOR
ZBR      TOVAR
ZBRPNT   TOVAR
[
[']
[ASCII]
[COMPILE]
[CTRL]
\
]



GRAPHIC WORDS



COLOR CONSTANT


  BLACK
  WHITE


BOX TYPE CONSTANT


  OUTLBOX
  FILLBOX
  PATTBOX


DRAWING CONSTANT


  GFORCE
  GAND
  GOR
  GXOR
  GFORCETEXT


VIDEO MODE CONSTANT


  95GRA
  95TXT
  CGATXT
  CGALOW
  CGAHI
  MDATXT


LINE TYPE CONSTANT


  LINEBLACK
  LINEDOT
  LINEDASH


VIDEO MODE SETTING WORDS


  GR95    ( -- )
  TXT95   ( -- )
  MDA     ( -- )
  GRLOW   ( -- )
  GRHI    ( -- )
  GROFF   ( -- )

  VIDSET  (MODE --)  USES INT 5Fh
  SETFILL (ptr -- )  Set fill pattern
  ORIGIN  (y x -- )  Set logical origin
  SETCLIP (y1 x1 y x ) Set clip region
  BOXTO   (y x --)   Draw box
  LINETO  (y x -- )  Draw line
  PLOT    (y x -- )  Plot point
  PENTO   (y x -- )  Move pen
  COLOR   (N -- )    Set color
  SETRULE (rule -- ) Set replacement rule
  SETLINETYPE  (w -- )  Set line pattern
  GGET    (DEST Y1 X1 Y X -- )  Read area
  GPUT    (RULE SOURCE Y X -- )  Write area
  GWRITE  (Y X TEXT DIR --)  WRITE GRAPHIC TEXT
  GCLS    (COLOR -- )  Clear graphic screen
  MDASEG  ( -- )  Set MDA Segment
  CGASEG  ( -- )  Set CGA segment
  GETVSEG ( -- )  Get video segment
  VIDMODE TOVAR   Current video mode
  BOXTYPE TOVAR   Current box type


PALMTOP CONTROL



  .LSLEEP  ( -- )        TELL LIGHT SLEEP STATUS
  ?LSLEEP  ( -- FLAG )   RETURN LIGHT SLEEP STATUS
  ?TIMEOUT ( -- TICKS )
  LSLEEP+  ( FLAG -- )
  LSLEEP-  ( FLAG -- )
  TIMEOUT  (TICKS -- )
  T40
  T64
  T80


HELP WORDS


  ..HELP
  ..GRA" CR
  ..INT" CR
  ..MEM" CR
  ..LX"  CR



