mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-05-31 12:41:29 +00:00
13 lines
549 B
Forth
13 lines
549 B
Forth
' CONIOAPI ENDSRC ( Avoid multiple loads )
|
|
|
|
( LOADMOD" CONIO" CONIO is already available in plforth )
|
|
|
|
LOOKUP CONIO CONSTANT CONIOAPI
|
|
CONIOAPI 3 IFACE PLASMA _HOME : HOME _HOME DROP ;
|
|
CONIOAPI 4 IFACE PLASMA _GOTOXY : GOTOXY _GOTOXY DROP ;
|
|
CONIOAPI 7 IFACE PLASMA _TEXT : TEXT 40 _TEXT DROP ;
|
|
CONIOAPI 8 IFACE PLASMA _GR : GR 1 _GR DROP ;
|
|
CONIOAPI 9 IFACE PLASMA _COLOR : COLOR _COLOR DROP ;
|
|
CONIOAPI 10 IFACE PLASMA _PLOT : PLOT _PLOT DROP ;
|
|
CONIOAPI 11 IFACE PLASMA _TONE : TONE _TONE DROP ;
|
|
CONIOAPI 12 IFACE PLASMA RAND |