From 9edb7144d2539c60a89bfa1b3efe9da1e03c718a Mon Sep 17 00:00:00 2001 From: Bill Chatfield Date: Sat, 27 Feb 2021 20:32:24 -0500 Subject: [PATCH] Added colors program --- .gitignore | 2 ++ colors.baz | 63 +++++++++++++++++++++++++++++++++++ maze-runnable/disks/maze.dsk | Bin 143360 -> 143360 bytes 3 files changed, 65 insertions(+) create mode 100644 colors.baz diff --git a/.gitignore b/.gitignore index c6127b3..6eaad46 100644 --- a/.gitignore +++ b/.gitignore @@ -1,3 +1,5 @@ +*.swp + # Prerequisites *.d diff --git a/colors.baz b/colors.baz new file mode 100644 index 0000000..08bb392 --- /dev/null +++ b/colors.baz @@ -0,0 +1,63 @@ +REM +REM cxxxxxx|/////////////////////////> +REM +REM COLORS - DRAWS Colors +REM AUTHOR - BILL CHATFIELD +REM +REM cxxxxxx|/////////////////////////> +REM + +let d$ = chr$(4) +let ret$ = chr$(13) +let esc$ = chr$(27) +LET SW = 140 : SH = 192: REM SCREEN WIDTH AND HEIGHT +LET KBD = -16384: REM Addr of byte that is neg if key pressed +LET RL = 78 : RH = 79: REM RNDL AND RNDH +LET SEED = PEEK (RL) + PEEK (RH) * 256: REM GET RND SEED +LET NA = RND ( - SEED): REM SEED RANDOM NUM GENERATOR +print d$;"-dhgr" : rem Load Double Hi-res driver + +dim c(15) +data 15,10,5,13,8,14,12,4,9,1,11,3,7,6,2 +for i = 1 to 15 + read c(i) +next + +&HGR2 : REM FULL SCREEN DOUBLE HIGH RES +&MODE(2) : REM 16-color mode + +{ Clear screen to black } +&BCOLOR=0 +&CLEAR + +mx = sw - 1 +my = sh - 1 + +cc = 0 +ci = 1 + +for x = 0 to mx + if cc < 8 then cc=cc+1:goto @setColor + cc = 0 + ci = ci + 1 + if ci > 15 then @checkKeypress + £setColor + &hcolor = c(ci) + &hplot x,0 to x,my +next + +£checkKeypress +if peek(kbd) <= 127 then @checkKeypress +get k$ + +£exit +&TEXT +print "Colors terminated" +print "Run -FP before running it again to clear memory"; +END + +{ re = p1 mod p2 } +£modulus +let re = p1 - int(p1 / p2) * p2 +return + diff --git a/maze-runnable/disks/maze.dsk b/maze-runnable/disks/maze.dsk index 817b35e40308af1ab1a4f17a5c5dc0ecba50cf21..193f08c6016740dc69dc8c74fcc3a94281f07532 100644 GIT binary patch delta 579 zcmX|8&x_MQ7=7O~O|xxd+G49%!3CFH2sOf@xO!02WV$W=k&sEW_TXhf!P8!P?&4pt zAnH-65ckl7P*7NL@BRy(7WUv#K|~NiXQDVTGvAwe?|s9Yy<=nV*mzUO(QIkt`ueQP z2jM3Ek6+i3!$pR`W|YSX8KHfi7@D2l$mfycyRoadAGbg-3Bqoj***FUOze$1146+Q zKX8Wbge#hK%j14Qx?RTZk#q~}mUM&P-H!e?Z7Le{nKd^~=Gf8hb+Q^pc8o zs!Z%^1$cjGSis4KX)V`FpOX1QdPR)pJLUNUnlac&@d0bBnpv(v!y#(ycZSq*N*Y75 zN}#V#(FW^;uw-4AwH`)+9|)Yy@B-FIINl)e`i{6KVm>tM*+qlOZCCWXf2X>#x~i-O zGf^}%uz;o_-Ku7&LB^dPzZ>&$EEG9W@Tp%;Er=`Y~Sy{w*yNr7LnaNlPnox8x);(sM+Q_tSlP F`3IXqdrbfU delta 7770 zcmbU`3v?XSb+ccscJ*0V(rWbelVnMj{F60rio?e?HW=9*PE3FkLz}P$3$Gk2d<@j2 z=XA!BRvoQ0%Swwu&e`M)Td(R_G>Rmfg2{2*Hie@x1qMzX5>ko+wvbco3`zJl_V&J6 zt-O{^PEUR0_ujmB=g$4Vd+!P}E@8$skz=!@j=F4r>5ST}<3}y-QcJYJ>U96~Wmh3Z z{k$o^;Ao@g-Me$zrYA?Fi)~T>l z_#Z4*OZscoHgHzS~toa2;{@@%FKNr5p#F_9VvZXzs7ogQ1=^Ud_(r+2Axj@@x z*tJf5Rh&|RK5HDQK(95vBK#49syv5#T0LVQF@|&S9CKlgk=^KohrINCy%f*{#lC)- znj9GtL25%HNI`o@Z-UqOu^GlFYwwFVB93lHPyQJu|12O;TG4(_Kz7X|d05YnQ{h== z4g{j?*PFC`dLAL}A|aN1<#FAEiahYqQ|3qa1Eo9k=5`g3yG>lm4nRmiyZ{o=_UpOo zMP~dG!y~Z;5CB2xXY^=`lw!gZR@0P}j-O#ZPBH3P=E!*pPdLLVW{|?`)DM{RDJH3Y z$dFx|LM6ARqz{=8j2|%SdyH;FKlGr42bKm|0)8}Cn;02A1e2VD8pIjaXSjvq0fA>?S<%&AfD2{fQQ70S?jmS0t6DLRLj%Pw0&n9Pt2zl8QLlb=D@@YFc4utfg z89~pNJ;zh4heXl)1$Uq_diU&F$L*Eqor>tdY_;`wtE0);T1T22eYPogrB9)P1Hs|o z@Y(geO!YRDqm|`oqCU~%jyU5~h!beExg4FWh!-ecL{&+9aQJ&Twim~`aMnRzB>|xn znt*&Chabuu-l156-Me}e0S#8l78EF#9>(EEaO_bW+lQ4c(qlOGI9B$6f(EK?Av1h1 z80s5v4Cr=vHIxxBH7QO91u`6fA^AfX+9$>KL}+xt59R}ugO=Js#!<^`*^Ozf1iSls z$oqhfOrS15$YE4E9QkLr{>{XoW58ikQhvqa-)`TU%C)%A6ZCR_^tpfaf!c^#Cq*&X zLxye`l9OWeu8(SczoxmRRlQ-lBOJ+{)19;3x^=e4AN|2c$hy)OjeWFZH>j0p-aaWz z7YRlIBIY6H+J{6vL2QGVEV^R_FdC-_iQw2ma#jE|2PTE|yzXp|o_nU-uy+Dk{_PhD zb$&UAyMvbPy%D-260ywrqX*`yciFjBKG{JACmCEY%ussHk>fRMn(ag~{)I>Xm5(m- zF)cXyQ9-r@BcVrxd?#9Sy#Ge+wA3Xb0IYms^uYL!Qf7gsb_u+9rS;%%y zbZ{ShrnRg4H6NzXTgz2!iPG66t3Awh%f;MF!MOShrW8x)Q}A zRbcL3TCKu5ze06jzzOko!uEy}k2^8)l@p&CE62x+u^E0Ylo8A{_M^9JA;6-$N~Q#T z9pHz{col?Uvf2Sx&3+wX%dlYLhi#!$aSaRTpNf@MsSwA!Sg-DM+ z^T8gq6bHM7&n;qJjwe7I-OhtXe@5>hQV*sEG`FnGa2XtCm{-Z&-Y zVZYRY;bMLe`{V75?3ffG%!+6W10M`~@tonhkWb(XOxoMc3uLY~5U04l3Un{+ALqT; za41%;uEa0c(yWl11MU+26F=c=mF@;h*R>n(ToqibT18Ji*3TOVjL^Mu~HoKVPWfqO&Hh@@>j5bvO>1UA&Q{ueW=HW zcr#v8>dkn5;{<(`cueUNl8?~IMRFthtx?NBy%wnqPZYmFW1&FF2j>zRlpHeEApZT* zB;2O&6bO~77n^PaOsDjGwF2udB?T`^GzJ|4o^cwtPYFS|)8KkM6ySn%`?hV{l7VK3 zQl2$jcd=<7`--b;@Q-SUfhiOa1{nqz;=baWYA^`nAB+9+(&IIFYwA!97QLVHegeV} zkl9+*Mm*MzgZ;8~Qj~6EreVB7tt!#x8wL1{eC)prJw;$iY?iQao?Q7o z)6S(0#5mA!ankT!>4Ewy>IR?|QV&1@GG>d1N5GTJ6*v<-gD>&K##&)-V{yi9$WGdu z9wuhz1#bZ-5Ox6X;{|3wF%{(|a4FqZAy^d)nrH!oA;yu7UtN!NcRZzBl8SJ62}akY zU7v7t&pgBYm3~h+t^~Mi@(a`~;_&n$ey%II8s@jasJv96OnrX^deOd%mR3pCX&vxs zMS+^`61EaA7m1hmPl@1o-vGr)8*#?t$*Yv9(R_6y(Xp}$2B9kb0I;ub#D?d>MjO{u ztlbHMhiQlLJ?*bx`D~H4GrjWwOoc^|!(Xp;z>)``2h%6J(^IF>49U8UdvA&MkkP0; z49kfn+CF22_Ba$H`;AI&b+O_`yGwyDg_@sT^RqWSlOUNT?CZYPx~loFH!l!n+9h*L zO&irPrDGFZd5dlBrED96g!nATLu(;|t|A5w#{NEB&0q%-To8HSi4e1-^;qTCV`FWs z2*=EOV;qd+b3~#)z%&=q9dOx0hB9wH@0XgdCH2$kD+b~Ni6Y#c#qdmC9rL9j!II0# zS2WJpt_6%G+8$%Gw%2IV9y2y-KQL|-Zd%YZPgEVyTVmy=p6ej83)Ks!1j)Px=lw1>!H9RDL34^*G$c2>(Iz_;vf&nx#Me-bCTpO9Hw*g z#hB@yRoA`89ty>ULVIZX6CoLx z=3c1IREin7{H>4f3>^t|u1$`hOBorCAiEF!$|o0qZZZ^T){qcD?|9Vbnej2k-yUj* zEa5049b@2X5rU#}bV!(<6k7S6!G47q5)Su|in>KS6+X@kz6^;3DM4Rk!Y?r^UuIez z`7bfX4FQnOJDzcPUZx&rK0XG;?dwOGNRE1x89&C*T`w{qsIHe7Ku8@K64Tp|BFcp; z<(xoZ1htnzP7ANDJAV{FRX~(;o<9cg6Hchz#9+VrBA_|SfB^~WOH9`>W_n0~f~TEq zN=KOx>;MCSGyS^t6)|EbsW`W-3V1{LbxJDEo2ucKtTZcG$eIVLAR7;M2YU$r=-*m` zkwCCN5ELE#Mu}`o^gwdQCc0q^!T&^LNIcx*b(jf4B0|ay52-%3Z5xSL&&~Lu#tHX5 zh5o)4YJ+Hpv6;`_Af)&~YK3)3Bgt}Mo%$1Ie1bvGl@Veb{krpd>3K%aPl$Ba^9(FQ zU1N+i#(+eKW?*Z~)Qt2KMtR;;jWof4VwSMsVwUdmvXYk#brrEv5vzJx+5VPrzgonC zokXA#S!PxS>P_tUdKN5FUBZqRvuImYdLcVewT}Ri96oc2!{%VUTEY(ZUhuL8!EvF8 zg^^GTHV(owT+_qvmRoDqL@VE2&O>?K4bksDW@4Q>baIdQf{JYBBkK^Fh8b*tcYD*qmDgIxOO@iyruHoTtA!uDBw?EQOq3>nX2}fv5fx^=aWdsAG|qq>J{M=MvcqhpW+^FcL0O;AHX)PXMFN~Z=Se^YjnPCkcMxHLt>uBO z{U4mlzprq`Rf&zhxDHs&Ml%@e}2cf6*Rv{qwYHntGV=VQ6qs0`9(2Y4Y;lYE1p z>Xk}Z$a{UJOPFDc8W!Oy7>BSOq#=?+(re>xZ&6A?CJHO9XRpRG)eApB*tpgPjbxAC zXwWvnbWekJ3rtToXe4|5S%cONQ(mLC6{eMq+U+pi-^gp*VeW1;>xv_d+THNm)!?x2L;z?dk6-&;$i3+5(55A3l%~Px#Qjn>3LAMPV0Z1?VlacFHG3t zDSzBT?tZ&g6mcs#nf8kN$j_FxLRcd06>hFJ`kVi(-UT=9=WUS4e9=Yr|cPMk2&v>gSDd^9|Ti=t{8o8%V>HOzPQJnIhcy29>K)l+4 z#~;M#<9b*_?_Ln0Ib5TD**5+axyhBc)Ay6vtTYFgP8i|Is9lyOhc?Pf!z z2U;uL0bqGBp9N`*e?gEXgwX?Zb5}kKRTz;05sum6f+LUuf+lJ{(Ya#bK>XD3hiiBX zz@Zbgkdtm`hTu0PIXCW@6b?Qu!Y^^7kwCgpI#)|NRn0bi4apvNp&zdRtyh7IRlsxH zqC}8PcI;4dLvM@df+!89^fKKfCPZYq!NG9ISlwqQDPr{bH(Pus(c$jVa9{W6Q@vs6 zXP-jBFgg0~H(8#r;%+2=bjN&B)0(Lg$k`Ps38_ey$c5`*O{2deqh{7m+sIR?EfbN?Ldb5J6X zsz$nlRo+bJ&fj8{wjlu$>pNNLE;hjR7ofv+6Za*LH!;mtqwVfc>oT(3Xq1Nkgq64A zR+8D?qP&q_+yGsB`8Do^y3tT#AZ%eJD;q@@>u&gEosz>r6|=p};#xX$>8^*+zK+Mx pV}TB|Yv*Gf*Sp;a{@uU#p`DNg!iM?yz|OsUQCn*_G|4UU{{pnd{@efn