6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-09-07 12:54:31 +00:00
Code Issues Projects Releases Wiki Activity

Clean up examples

Browse Source
This commit is contained in:
David Schmenk 2024-07-23 17:18:26 -07:00
parent e77ff928ca
commit 60b526bcb0
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

7
src/lisp/loop.lisp
View File

@ -1,14 +1,13 @@
(DEFINE
(TAILLOOP (LAMBDA (I M)
(COND ((AND (< I M) (PRIN I)),(TAILLOOP (+ 1 I) M))
(T,(EQ I M)))
(T,I))
))
(PROGLOOP (LAMBDA (I M)
(PROG (X)
(SETQ X (- M 1))
(PROG ()
A (PRIN I)
(SETQ I (+ I 1))
(IF (< I X) (GO A))
(IF (< I M) (GO A))
(RETURN I)
)))
(FORLOOP (LAMBDA (I M)

2
src/lisp/lores.lisp
View File

@ -4,7 +4,7 @@
(FOR I 0 1 (< I 40)
(SETQ X (/ (- I 19.5) 20.0))
(SETQ Y (FN X))
(AND (AND (> Y -1.0) (< Y 1.0))
(AND (> Y -1.0) (< Y 1.0)
(PLOT I (- 19.5 (* Y 20.0))))
)
(RETURN 0)