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
 ;