mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-06-11 23:29:29 +00:00
45 lines
708 B
Forth
45 lines
708 B
Forth
SRC" PLASMA.4TH"
|
|
SRC" CONIO.4TH"
|
|
SRC" GRLIB.4TH"
|
|
|
|
5 VARIABLE BALLCLR
|
|
10 VARIABLE BALLX
|
|
20 VARIABLE BALLY
|
|
10 VARIABLE OLDX
|
|
20 VARIABLE OLDY
|
|
1 VARIABLE INCX
|
|
1 VARIABLE INCY
|
|
|
|
: BEEP 30 10 TONE ;
|
|
|
|
: BOOP 10 30 TONE ;
|
|
|
|
: MOVEBALL
|
|
BALLX @ 0= IF INCX @ NEGATE INCX ! BEEP THEN
|
|
BALLX @ 39 = IF INCX @ NEGATE INCX ! BEEP THEN
|
|
BALLY @ 0= IF INCY @ NEGATE INCY ! BOOP THEN
|
|
BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
|
|
INCX @ BALLX +!
|
|
INCY @ BALLY +!
|
|
BALLCLR @ GRCOLOR
|
|
BALLX @ BALLY @ GRPLOT
|
|
0 GRCOLOR
|
|
OLDX @ OLDY @ GRPLOT
|
|
BALLX @ OLDX !
|
|
BALLY @ OLDY !
|
|
;
|
|
|
|
: BOUNCE
|
|
1 GRMODE DROP
|
|
0 GRDRAWBUF
|
|
0 GRCLEAR
|
|
BEGIN
|
|
MOVEBALL
|
|
?TERMINAL
|
|
UNTIL
|
|
KEY DROP
|
|
0 GRMODE DROP
|
|
;
|
|
|
|
BOUNCE
|