From 2c814d8829cd2892dbd61eed46a7285846a9a5ca Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Thu, 1 Aug 2024 10:13:06 -0700
Subject: [PATCH] Add comments with ';'

---
 doc/DRAWL.md          |   1 +
 images/apple/DRAWL.po | Bin 143360 -> 143360 bytes
 src/lisp/defun.lisp   |   3 +++
 src/lisp/fact.lisp    |   3 +++
 src/lisp/gcd.lisp     |   5 ++++-
 src/lisp/list.lisp    |   3 +++
 src/lisp/loop.lisp    |   9 +++++++++
 src/lisp/lores.lisp   |  13 +++++++++++++
 src/lisp/maplist.lisp |   3 +++
 src/lisp/minmax.lisp  |   3 +++
 src/lisp/prog.lisp    |   6 ++++++
 src/lisp/s-expr.pla   |   1 +
 src/lisp/set.lisp     |   3 +++
 13 files changed, 52 insertions(+), 1 deletion(-)

diff --git a/doc/DRAWL.md b/doc/DRAWL.md
index 0b02850..dda4b0b 100644
--- a/doc/DRAWL.md
+++ b/doc/DRAWL.md
@@ -26,6 +26,7 @@ However, the code is partitioned to allow for easy extension so some of these mi
 - LoRes Apple II graphics
 - Ctrl-C break into running program
 - MACROs for meta-programming. See [defun.lisp](https://github.com/dschmenk/PLASMA/blob/master/src/lisp/defun.lisp)
+- End-of-line comment using ';'
 
 The DRAWL implementation comes with the following built-in functions:
 
diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
index 11e9c783973440fc12e5572755d9ed6facbf8fd7..2db745999192ad182c254bb3b9a82abeee8d25d4 100644
GIT binary patch
delta 4338
zcma*qeN<Fs9tZH}xpN^xpaFRo@G>JXY7HWpuCuOQhC4VpbLVpBj-l;tqA*Ai8Y*dj
zG~CW^TlP9~;(92xw#`*hP!U+IPF9-zAxBGVJ8h-g*<RMlT(*~qO!j+ch7n;qyB<G2
zFZcO9&+mEe_1rsc=M&n_C+xSg$+YbHL_%ICoL*^{*xZ{(dx&0PNU_~rSvGqf8T}Jq
zP7(=k3}4j)!<F{!V*<ldF~lOdmb$H1Lq{qRxGgmn7#`OC<;1`<-eum=)%5ZPAEAUW
zvA}SpeSTbSEctLxZ*ANw@s#!!CjGdL4ey5AW4?AsyR>KA{(Pj^;dBX3Pi(;}t>ikA
znK*8>?GppjdAZ8FBo;@ms7Uif<UFn(%$E}bi=3iTK6^~y?+8nNiW|4${H}5PYp?B^
zko-)CbjzGsv#oYdrJzq3zlEd`Vv0@0h0md9OklXjM@&K`FOE&VkK~Z|N@IcHO7Bly
zaTg2X=s#ReuQX=xhG_2k<QmsWIpeWu*G6hmCmomUAStSp`P*D$_I(K_?V2<$a(gGu
z3iOY=+k+$rIVe^=k;nw>4>;{(^xEJ-lIP~7u_M`G3=<{{%dWClj+u<GKVsO~*uA?c
zQp2ha-hR!hmocs<HZD@pYM-WAbI(s$WTx9Gy7`*eI_wBBkcx3T(|Qmrygng#hRY)h
z-dHSQ4b(v18W%iB$nhymJt1Q10<vRZ(lhj#B)V1GwTl*9Z=rtjXe*I8?bI$>MlWh~
zH(f}(HGVgB7#c`|ws|+rGuTL?_QGze(MD~-9(tG_)4tzBy)-niq>JWIt1Z7Z-cRPm
zt;FBvgn5RQ_nD1;R&N_t`s0-o`H@Drt%S5Kd+D!fqW1M(nn!nQN&D!1G^G7uAC?bk
zhxgH$==@|KT}2(5vzyM$vgIqA^QBDUkB`onprGr7_DDCiP@8tBo0>56uidl(feU+R
z5vHl{p-$SW_4Lqt%R>dtq^&!VAVX%w3}c0oVp`7Du#BHUdP=CEEz*(Bko9b|Pg}O1
z7Gs*W{g^bQeZHUCETMu$>)AS1ADliWx|!LVL=eWT_~qIevlb~S+L8lwN@A!${9?q<
zU~X+K+ND@Vynv3;#g$Eym4>udJu;jGk~6fR5vQLS&gjSiT8NcDI6&v5h6>O(Hf7Cp
zkn%Xex`T8RcKOjkdJo1*y|kyWqNtg58TDzSGZpyR7AZyF{B<j_e1*mx!a;wc$%k;z
zA?^M{v=c>6AGM-b+(#=>Jl03^(n1BUc*02rLN=O=t4&7i<i$R^2$wJS(E{7il2%3`
zSZHiw1vt)V+m#X9TWp?u<LZ2U9$!D6v5@vuKV6bIls5~>hWC7-pZd{VJwQuy_3n7g
zCLS44o=;nz7CZ4)t#g3B5|}aV&ORfKtT=I+)nMmk<>?H)m8-WZM_Zj{D{J?N-sr^>
zXzKs#qs^%%E6Xb$ceE**tc*|{ZIqd<*NHxNg&<4Oo&_eWLG+Bq1|+l9z>Ag9iyO>V
z#xuGqMzW&M<%(Xrd73rB;S=qO(<4T^E=;q=R|*cNC`3ETi>-0IEc45v?bH$^?iEH?
zt0}R@>CMsXww2s&jg#cXLQQo1QH+;lyf7lCkZ#d0qZw_NSgfqDlpoD#E-ouFZy#NK
zxy5R5#M0lQ9Xw3$3^?)#a}0(cF`qCt*bFE1dI4c}LkN6@glUBo6Je&p0uZ6hOc)6^
zKqs7l#A$@dg&A-&T!4xq!h8bd#e_*MAxsTyD<PT8QB=|`geif!upG7w95_PnVgg;0
zh}sKB;mt`Tcy<yKe18(7evkUpBv!Q~k>EO%8<U9o2x#ye{0aSkLI2Ark0u$^H_;b@
zlw_hV1Q&QfhNZAPnFL#sS@l8GpM<UOY%&R`gQ%Q`A@~7OQiysJ%!S{;3h={5_&v14
zR(KYkhf9!r15wi;7dV&>H^RN}5cI$i`1A%6Ofj<RWFrY?8VzchF+kK?jYPczT457B
z43EMt=!4_%9s)=ztH!00U_z=vO+lHDwh3h^%Gs$zorC&3Tw8>?2X2QI;D@_lEo_Fz
zU_bl~;sa?!%>oPj0vvEFEC&_-2}P4}A}}9Zuo~`x$DjkY!*kFDFT(3^8qUCn@HH6H
zi8>j~P!DbCB-okGs(~G-{4w32?m}k|48S0K0O#O4n3+M;>I@RRD<dcPPzI|$iF$j6
zLA{86nn~1DD1?RJg+L|=?#yJ>Zj=Wy4eH;~Hw?L1BxuWGRVT_el#gfO{&!^&wI2?{
zOK=L_!GI6481*yMze0T|%b@;*I+IP*ylfII%r>aAP%j4oB=EvgTzfE^RXb3=f%0SY
zeSvy*4y!KA!NUkXsL3J0rW`JKPfoxbY|SyL0dzh955eQ`G`s-2U@r{75qKG1gE!$c
zybqtj1^5?y10%rX;-Lg1<U&3a!*rMh<zRzf1@O;eSOPw%f!pD?PzO!W0{1~1JPc33
zR@e@IhJA1dj=&pm63)W=@G*Q2U&FU>1=uOLWsn8cCj4W8*)R`ysDf&^4QinQ)<P?^
z!GrJwJOw-81=t6@@RC;lD!qVrkMtT{T;j+(bNuYNSI?X|WltE&JO1vgC(ph0&Z)CP
zg0JwkQ>RXzJN@?Y%7heCFJ%_coyVxfY)iIr!p7RW*EZF2{+2a&bNUA;S7x2V-Cf(f
zp|&a6mfZg({gC!wq?FM<`ih#g;!8AjAoUVGN&m0tAw-+>WxW4w6?bfvZ|Fx<{9oyC
z8`d>8H*hY#LU3`7&Fj|J*Vb`s{9NRfgk&w2rrMSDP01YBu&Pco4$&zC)4#*lU#>p0
zT)%2V%eux^Y_)dP`ZX<$k^P0}r?g|3CKlNcX5$pz>Ec`-kHpD>-6wnT^3(glqF?Ix
zk!EWp!?e02GTf;MGOq}nQ}jA31x}JZRhH?a0eUMO@YFDE$cqHveHED=??3@Tk?FM`
zhUreLo+Vy(f-LfibE&}L1G^Mo*qqPn6sz=mqj309=5q_8qTiXz^liHH3U18cWjdAN
zYqX0fwH^PawY^5>4%)#m=3;$OeOtbD_1vm8&2^UP`oT5U)pKiG)-;4u#bxa+hMBL`
zFwFfojtyw^m#$x3-&|VXgy^3MJ2O+yI{Y=yRmr@x*lG82itMc7Bp1Fq^u&c4-YvNV
zq};(W!`{d__`Cu)`gOr69!}!DUYsIsuDha==Y(n>&H$f4`dM-n0=Djv^bSrxz$!r$
zWT&08^Ikz8pncCW$}LwXuJ(CwPkw&Z@T4BmwTxrfcFJ6#ct%F(h?$r0>&nhoxNt)q
zoao^kvLJ9vdD*G=g>%ss$1$7A@iYmFPZsqx6x>P9jbEtTO&mU#JZ}B|aH8Jp!j}?G
z$5JJ84z2K8dam8b$Q|)aMh1S#lRe{pXbs{&=DT#3exCa2xOuyb**%=siQ{uRmR&us
R@B{DEk3)YB5}4EG{{YahQ7Zrd

delta 3659
zcmZYB4^&gv9S87xZyo^yNI(exBP0Q`S_6s}tF<+Rpwy6r@W4OSGeHa5shiBQwYtXV
ztXtJnPsDPM_-Au!6;M$TqCKvP=vh6}VXL$5*j4*y?o=7aby?3Uiu=AKqzD{7+~57(
z`@8qP`=YS!PQ<!95yvb-^piXxo{(;mAqNdkA!X8FhR6XU*_P6x2@|J~!7pV#Q4zD+
zKPngcgN8jr3jIqlVszRnOHDtNJ}E-s?$}VFe_BKD$ii#o^U4QzliQdILJ47^LVwUO
zH7q4`cz>q7D(tM1hPP)%_3sw^Pm|H2e|k!Tvt`)xRgmoB5}UQe5!!H|o`e&PYS?aj
zMi$1KT{FvPhw8|Hgk%0Ga34QhOz+6TtP;DJKXFLm1|pEhVZ(Nu+B)p{8md}H9DZD}
z^SQ}+6HOLJkyTz$xsAjTq6;mR;lGErA%*@-1<_fH%=V#&?;y$KW^Sm^AGAMi4eQe?
z=-0NAa_5lAuLsXAFU~WXXomWn;ps~5Y@)*sdxc~bxy*BHL!SEqZrT<(ta48iO>{R5
zd)rq?GR`2H<bwnj5WdH4@1;){Um<CwX6MkE!b42ckC>J;(^52KF(UM1+V;@98y|?U
zYq8n#)UJ;(@4e8xK)|bZ(!>Jyh)u?ome@<pb3^+GPl$rxUzB`pp$`aeL$S4XL~)AE
z;j)&8YKg!oC0!$?k*-wsDk1jR>13xjau?kdMYr=qhp2Xxf!2^M^~9ORdk)bF^d6_p
z^d;KD&CRq}v6zJOP0ciow=~m6x`LZq=xKV6_qWh;>hn5UX)>h+eA!{Djp<IW5vGJy
z%ioG>(Z?GP(*;^(`g~SH=Cipf>|!fNJcTWKMy(q~YKVA%tB=q(sgG|yf{lIrk4NY@
zdVqg(gf6Cqy!0p?mspT4ZcKM-NR2YEZcT)UR5#yxlp3+|siRbfske^OS`=E^Xcm@P
z)<#Qc9dB==zsUD#SCVx{RoKnHZ=tBt%@^hhtcLjysa+RH;IdZ>!5m+BjAmn*4acyk
zkM|y<(~LgtjMc&tL7p5xq<SSg97RyZ7QOJZXYyu<D(*N=Q$?TFe*Z}g3$86NC!Ut!
z{Po!OaHJf|7o=ThzlT|aClcQnBi6>%hemN?MV-GaaGf6>r<pj;o#S+JtWS&F(C6UU
zC#ab!`O*{g4LtgnC+I57729cB=8IV?1)Dl>fWW>rLY;H8d?Vr2*#1RsIEmZ;f>)lz
z?fdxple7s<dIvS3@pRBJ{Kp;s*Mm4M&Zo60NrqEF$S-y3r8+g9`D_QBL4A##R6FfV
zPCXL|HXC|4EuJ;lw<Uz0FSJa$dTF}6%)Cx~?0kGjC!MY8OUn!167TDzHAq)@X>N*~
zR?64=!4q*`-2AxEtEl69y!5O)+wfY48rPPsG?)|?vrF8WAonzKuV}E>s5c1~hrK*F
z*p06IA3?C2sxt{@(NP-gzN|AbYgw=}UT+GwSCkf7UCv<Ud7VjNcMR6LZF-Z!Y%dB9
zuF{*BV{li@6zml?TW~DTV2UWNuv^3uhdr3OYcMH`ti>gEYcP?UZ3;8HT;_Sfesm5F
zUTz)SP0TTc$=$)z?Z|n>6y|izvd#_8KZE&B7k-BXZb5C7htUo8^+uCmtuzmwC?CV3
z%WN6kz0zn>6o-!gF7G@|Uvn3x5q1vxK$%Wh0c?bBIo1+(0DMrENmw1IbcChC^YAi^
z*Ar%gRnQ3CpfnJsfo#ZwyYONbVP8OQHet~@go&^thiKRt1ZpE;ddP=Lc-PzU0sRSc
zAB-eY8=Qd)k;HQ~l6h`KGU-2vQ=<gQ5JfycMY}qRNWXyw*bTo&{v`6J(VmG?NEeXv
zfhw9v(_j|N20OT*GMac+Mhnt<#9LrH?20CC=@Np^pb!2Fs?kLH5#+->SOC?q8YI{X
z+hG^{4til!43S2I2GSr4jPP^V0IkpoU&auRN-an+YT}7gE2QyiH<60fM0y44;B|N#
zehd5IICQ~v6g)y9jU^r-Rw1d-CdUer7VS8+rdT3PKs*U!FCd-`b6^2fLoF<ajqnZ}
zhEIXH<A^i{3@{lAp%^ORSMU$W9D^Hy=U^5rffeu$Y=b7)4F|ysXW=sRz~A6LJb{>a
zB8`PASQ}3~jq!ry-icsOyh7TKWGl48CAbN<;9JN^AW~@p@zf?Hdp0Bp(iX&96BN=t
z<R3${hDhl!4IHpWLp*=b2vQ5$BN~PDcjUeUO(O9WBnpxh?OL>(67l{ICKBlcbigV2
zGklB*Hxrrk72<CY_a!Q%?-36`QWEi`Cn=<7lZccHX0U++To_xQBuLxPo=5vRa{oje
zpDakzlJQ}LG7yuAXK8YVXGOAG@2N}HNo$aN3pT(e;IJ3=!y#ygPB;x8!UebtH{dI{
z3;%)#&<_JJDuqZ<pn+u2K^8m<xljO8-S|-iGocJbm;>`+5iEt3P!DV2ZP*Okp$Yau
zGaQ3XI1eAeRk#74!`E;h{tXX-q~evq7%0=?hXG7538sSuN}(JU!eUqsb+8uJ!)EZn
zPS^|0&<3aYvMzcLzk9^<bXHDb+O><<Z+Bh0)?<n2OS^cZ>+<c7|Jrli8c~*czNhE%
z?W><$EQ(O++9@;B_b*UmBV&<XQ!o95Ha?*G&OS<+*YJRTMjO;j9~k@=gQ4DdAH62`
zbfb;N<yF<MF3*V0$f#YsgdgvvsorJZQ7(_p@K<L2kKU4dDUA=QD$FRFOKiNVpC<8{
z4{2GL(dlx`4D>&JNNf4Re!35ntK`YvDUaw!l=nZPW8WLgV%{I1ti#0o$1q`OJ)fvx
zlliY1drOY~g0cm28J{e$2YgK!E92P_te$r(*mOQHiX|op_-pgcVSndd!6n?Fs0;TN
OM6pYH@3|<JC;T6e=+^xJ

diff --git a/src/lisp/defun.lisp b/src/lisp/defun.lisp
index 75a603f..cc4fab8 100644
--- a/src/lisp/defun.lisp
+++ b/src/lisp/defun.lisp
@@ -1,3 +1,6 @@
+;
+; USE MACRO TO SIMPLIFY FUNCTION DEFINITION
+;
 (DEFINE (DEFUN (MACRO (L)
    (EVAL (CONS 'DEFINE
                (LIST (CONS (CAR L) (LIST (CONS 'LAMBDA (CDR L)))))))
diff --git a/src/lisp/fact.lisp b/src/lisp/fact.lisp
index 2e206f3..a955cec 100644
--- a/src/lisp/fact.lisp
+++ b/src/lisp/fact.lisp
@@ -1,3 +1,6 @@
+;
+; Recursive factorial
+;
 (define
   (fact (lambda (n)
     (cond ((eq n 0) , 1)
diff --git a/src/lisp/gcd.lisp b/src/lisp/gcd.lisp
index 39eb1a6..a084f95 100644
--- a/src/lisp/gcd.lisp
+++ b/src/lisp/gcd.lisp
@@ -1,4 +1,7 @@
-((label 
+;
+; Example from LISP 1.5 manual using LABEL instead of DEFINE
+;
+((label
   gcd (lambda (x y)
     (cond ((> x y) , (gcd y x))
           ((eq (rem y x) 0) , x)
diff --git a/src/lisp/list.lisp b/src/lisp/list.lisp
index c41ae23..8e5a9b0 100644
--- a/src/lisp/list.lisp
+++ b/src/lisp/list.lisp
@@ -1,3 +1,6 @@
+;
+; Example from LISP 1.5 manual
+;
 (define
   (equal (lambda (x y)
     (cond ((and (atom x) (atom y)) (eq x y))
diff --git a/src/lisp/loop.lisp b/src/lisp/loop.lisp
index b4025ce..d4aed29 100644
--- a/src/lisp/loop.lisp
+++ b/src/lisp/loop.lisp
@@ -1,8 +1,14 @@
 (DEFINE
+  ;
+  ; TAIL LOOP RECURSION
+  ;
   (TAILLOOP (LAMBDA (I M)
     (COND ((AND (< I M) (PRIN I)),(TAILLOOP (+ 1 I) M))
           (T,(- I 1)))
   ))
+  ;
+  ; ITERATE INSIDE PROG()
+  ;
   (PROGLOOP (LAMBDA (I M)
     (PROG ()
     A (PRIN I)
@@ -10,6 +16,9 @@
       (IF (< I M) (GO A))
       (RETURN (- I 1))
   )))
+  ;
+  ; FOR LOOP EXTENSION
+  ;
   (FORLOOP (LAMBDA (I M)
     (FOR I I 1 (< I M) (PRIN I))
   ))
diff --git a/src/lisp/lores.lisp b/src/lisp/lores.lisp
index 69fbb8a..5b02d62 100644
--- a/src/lisp/lores.lisp
+++ b/src/lisp/lores.lisp
@@ -1,3 +1,6 @@
+;
+; LORES GRAPHICS TRIG PLOTTING EXAMPLE
+;
 (DEFINE
   (PLOTFUNC (LAMBDA (FN)
     (PROG (I X Y)
@@ -10,9 +13,17 @@
       (RETURN 0)
     )
   ))
+  ;
+  ; USE FUNCTION TO PASS IN LAMBDA EQUATIONS
+  ; BEST OPTION FOR GENERIC CASE
+  ;
   (PLOTSIN (LAMBDA ()
     (PLOTFUNC (FUNCTION (LAMBDA (S) (SIN (* S PI)))))
   ))
+  ;
+  ; USE QUOTE TO PASS IN LAMBDA EQUATION
+  ; ONLY APPLICABLE IF NO FREE VARIABLES
+  ;
   (PLOTCOS (LAMBDA ()
     (PLOTFUNC '(LAMBDA (S) (COS (* S PI))))
   ))
@@ -22,3 +33,5 @@
 (PLOTSIN)
 (COLOR 9)
 (PLOTCOS)
+; RETURN TO TEXT MODE - UNCOMMENT NEXT LINE
+; (GR F)
diff --git a/src/lisp/maplist.lisp b/src/lisp/maplist.lisp
index dfecc4e..357081b 100644
--- a/src/lisp/maplist.lisp
+++ b/src/lisp/maplist.lisp
@@ -1,3 +1,6 @@
+;
+; Sample from LISP 1.5 Manual
+;
 (define
   (ydot
     (lambda (x y)
diff --git a/src/lisp/minmax.lisp b/src/lisp/minmax.lisp
index 1391741..7975105 100644
--- a/src/lisp/minmax.lisp
+++ b/src/lisp/minmax.lisp
@@ -1,3 +1,6 @@
+;
+; ALTERNATIVE MIN/MAX USING LIST ARGUMENT
+;
 (DEFINE
   (MINL (LAMBDA (M L)
     (COND ((NULL L), M)
diff --git a/src/lisp/prog.lisp b/src/lisp/prog.lisp
index c00f698..0146add 100644
--- a/src/lisp/prog.lisp
+++ b/src/lisp/prog.lisp
@@ -1,5 +1,8 @@
 (define
   (lengthc (lambda (l)
+    ;
+    ; Use cond() inside prog()
+    ;
     (prog (u v)
       (setq v 0)
       (setq u l)
@@ -10,6 +13,9 @@
      )
   ))
   (lengthi (lambda (l)
+    ;
+    ; Use if/then/else inside prog()
+    ;
     (prog (u v)
       (setq v 0)
       (setq u l)
diff --git a/src/lisp/s-expr.pla b/src/lisp/s-expr.pla
index db4725b..a640bd7 100644
--- a/src/lisp/s-expr.pla
+++ b/src/lisp/s-expr.pla
@@ -559,6 +559,7 @@ export def parse_expr(evalptr, level, refill)#2 // return evalptr, exprptr
     elemptr = NULL
     when ^evalptr
       is 0
+      is ';' // Comment to end of line
         if level
           evalptr = refill() // Refill input buffer
         else
diff --git a/src/lisp/set.lisp b/src/lisp/set.lisp
index f36c1e8..2ea9bff 100644
--- a/src/lisp/set.lisp
+++ b/src/lisp/set.lisp
@@ -1,3 +1,6 @@
+;
+; Example from LISP 1.5 manual
+;
 (define
   (member (lambda (a x)
     (cond ((null x) , f)