bounce.4th samplesrc (replaces gr.4th)

src/mkrel

@@ -202,7 +202,7 @@ cp samplesrc/lz4cat.pla    prodos/bld/samples/LZ4CAT.PLA.TXT
 cp samplesrc/sfm.pla       prodos/bld/samples/SFM.PLA.TXT
 cp samplesrc/sfmsprt.pla   prodos/bld/samples/SFMSPRT.PLA.TXT
 cp samplesrc/fppow.pla     prodos/bld/samples/FPPOW.PLA.TXT
-cp samplesrc/gr.4th        prodos/bld/samples/GR.4TH.TXT
+cp samplesrc/bounce.4th    prodos/bld/samples/BOUNCE.4TH.TXT
 cp utilsrc/apple/mon.pla   prodos/bld/samples/MON.PLA.TXT
 cp utilsrc/apple/zipchip.pla prodos/bld/samples/ZIPCHIP.PLA.TXT
 

src/samplesrc/bounce.4th

@@ -0,0 +1,48 @@
+: IFACE 2 * + @ ;
+
+LOOKUP CMDSYS 3 IFACE PLASMA EXECMOD
+" CONIO" EXECMOD
+." Load module returns " . CR
+
+LOOKUP CONIO CONSTANT CONIOAPI
+CONIOAPI 3  IFACE PLASMA HOME
+CONIOAPI 4  IFACE PLASMA GOTOXY
+CONIOAPI 7  IFACE PLASMA TEXTMODE
+CONIOAPI 8  IFACE PLASMA GRMODE
+CONIOAPI 9  IFACE PLASMA GRCOLOR
+CONIOAPI 10 IFACE PLASMA GRPLOT
+CONIOAPI 11 IFACE PLASMA TONE
+CONIOAPI 12 IFACE PLASMA RAND
+
+ 5 VARIABLE BALLCLR
+10 VARIABLE BALLX
+20 VARIABLE BALLY
+10 VARIABLE OLDX
+20 VARIABLE OLDY
+1  VARIABLE INCX
+1  VARIABLE INCY
+
+: MOVEBALL
+  BALLX @ 0=   IF INCX @ NEG INCX ! THEN
+  BALLX @ 39 = IF INCX @ NEG INCX ! THEN
+  BALLY @ 0=   IF INCY @ NEG INCY ! THEN
+  BALLY @ 47 = IF INCY @ NEG INCY ! THEN
+  INCX @ BALLX +!
+  INCY @ BALLY +!
+  BALLCLR @ GRCOLOR DROP
+  BALLX @ BALLY @ GRPLOT DROP
+  0 GRCOLOR DROP
+  OLDX @ OLDY @ GRPLOT DROP
+  BALLX @ OLDX !
+  BALLY @ OLDY !
+;
+
+: BOUNCE
+  0 GRMODE DROP
+  BEGIN
+    MOVEBALL
+    ?TERMINAL
+  UNTIL
+  KEY
+  40 TEXTMODE DROP
+;