6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-09 16:40:38 +00:00
Code Issues Projects Releases Wiki Activity

scripts ready for demo

Browse Source
This commit is contained in:
David Schmenk 2024-01-05 14:39:06 -08:00
parent 0d552c5e51
commit 1c3505a196
4 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

2
src/scripts/fpu.4th
View File

@ -84,5 +84,7 @@ FPULIB 68 IFACE PLASMA _FPRANDNUM : FPRANDNUM _FPRANDNUM FPERR ! ;
: FP. HERE 10 4 FPSTR.FLEX FPSTR! HERE (.") ;
: FPEXT CREATE 10 ALLOT ;
FPRESET ( Load SANE code and set up libraries )

4
src/scripts/hrbounce.4th
View File

@ -1,5 +1,5 @@
LOOKUP HRFORTH
LOOKUP HR2FORTH
LOOKUP HRFORTH ( HGR page 1 reserved )
LOOKUP HR2FORTH ( HGR page 1 and 2 reserved )
OR NOT ABORT" Must run with HRFORTH."
: ?PLASMA

63
src/scripts/rod.4th
View File

@ -23,40 +23,41 @@
0 VARIABLE FMI
0 VARIABLE FMK
: RODINNER
20 1 DO ( for i = 1 to 19 )
20 0 DO ( for j = 0 to 19 )
( Note: i -> J, j -> I )
I 3 * J 3 + / J W @ * 12 / + ( color = {j * 3} / {i + 3} + i * w / 12 )
COLOR ( grcolor{color} )
J I + K ! ( k = i + j )
40 J - FMI ! ( fmi = 40 - i )
40 K @ - FMK ! ( fmk = 40 - k )
J K @ PLOT ( grplot{i, k} )
K @ J PLOT ( grplot{k, i} )
FMI @ FMK @ PLOT ( grplot{fmi, fmk} )
FMK @ FMI @ PLOT ( grplot{fmk, fmi} )
K @ FMI @ PLOT ( grplot{k, fmi} )
FMI @ K @ PLOT ( grplot{fmi, k} )
J FMK @ PLOT ( grplot{i, fmk} )
FMK @ J PLOT ( grplot{fmk, i} )
LOOP ( next )
?TERMINAL IF ( if keypressed )
LEAVE ( return )
THEN ( fin )
LOOP ( next )
: DOROD
BEGIN
51 3 DO ( for w = 3 to 50 )
I W !
20 1 DO ( for i = 1 to 19 )
20 0 DO ( for j = 0 to 19 )
( Note: i -> J, j -> I )
I 3 * J 3 + / J W @ * 12 / +
COLOR
J I + K !
40 J - FMI !
40 K @ - FMK !
J K @ PLOT
K @ J PLOT
FMI @ FMK @ PLOT
FMK @ FMI @ PLOT
K @ FMI @ PLOT
FMI @ K @ PLOT
J FMK @ PLOT
FMK @ J PLOT
?TERMINAL IF ( if keypressed )
KEY DROP
R> DROP R> DROP ( clean up DO-OKIE )
R> DROP R> DROP
R> DROP R> DROP
EXIT ( return )
THEN
LOOP
LOOP
LOOP
AGAIN
;
: ROD
GR
BEGIN
51 3 DO ( for w = 3 to 50 )
I W !
RODINNER
?TERMINAL IF LEAVE THEN
LOOP ( next )
?TERMINAL
UNTIL
KEY DROP
DOROD
TEXT
;