break out Apple /// sample code into FPSOS

src/scripts/gfxplot.4th

@@ -4,15 +4,15 @@ SRC" GRAFIX.4TH"
 SRC" FPU.4TH"
 
 : DRAWAXIS
-  3 SETMODE
-  1 PENCOLOR
-  0  96 139 96  LINE
-  70 0  70  191 LINE
+  3 GFXSETMODE
+  1 GFXPENCOLOR
+  0  96 139 96  GFXLINE
+  70 0  70  191 GFXLINE
 ;
 
 : PLOTDONE
   KEY DROP
-  -1 SETMODE
+  -1 GFXSETMODE
 ;
 
 FPEXT XSCALE
@@ -24,12 +24,12 @@ FPEXT YSCALE
 DEFER FUNC
 
 : PLOTFUNC
-  3 PENCOLOR
+  3 GFXPENCOLOR
   140 0 DO
     I DUP 69 - >FPINT XSCALE FPEXT@ FP*
     FUNC
     YSCALE FPEXT@ FP* FPINT> 95 +
-    OVER 1+ OVER HGRPLOT HGRPLOT
+    GFXPLOT
   LOOP
 ;
 

src/scripts/grafix.4th

@@ -1,14 +1,14 @@
 ' GRAFIX ?ENDSRC
 " GRAFIX"  LOADMOD"  "
-LOOKUP PENCOLOR   PLASMA PENCOLOR
-LOOKUP FILLCOLOR  PLASMA FILLCOLOR
-LOOKUP FILLSCREEN PLASMA FILLSCREEN
-LOOKUP PENMOVE    PLASMA PENMOVE
-LOOKUP PLOT       PLASMA PLOT
-LOOKUP LINE       PLASMA LINE
-LOOKUP LINETO     PLASMA LINETO
-LOOKUP RECT       PLASMA RECT
-LOOKUP FILLRECT   PLASMA FILLRECT
-LOOKUP BITBLT     PLASMA BITBLT
-LOOKUP DRAWMODE   PLASMA DRAWMODE
-LOOKUP SETMODE    PLASMA SETMODE
+LOOKUP PENCOLOR   PLASMA GFXPENCOLOR
+LOOKUP FILLCOLOR  PLASMA GFXFILLCOLOR
+LOOKUP FILLSCREEN PLASMA GFXFILLSCREEN
+LOOKUP PENMOVE    PLASMA GFXPENMOVE
+LOOKUP PLOT       PLASMA GFXPLOT
+LOOKUP LINE       PLASMA GFXLINE
+LOOKUP LINETO     PLASMA GFXLINETO
+LOOKUP RECT       PLASMA GFXRECT
+LOOKUP FILLRECT   PLASMA GFXFILLRECT
+LOOKUP BITBLT     PLASMA GFXBITBLT
+LOOKUP DRAWMODE   PLASMA GFXDRAWMODE
+LOOKUP SETMODE    PLASMA GFXSETMODE