SockMaster's BASIC horizontal scrolling demo
Allen Huffman via Coco <[email protected]> Wed, 3 Jun 2026 20:05:44 -0500
| Newsgroups | gmane.comp.hardware.tandy.coco |
|---|---|
| Message-ID | <[email protected]> |
--===============5184001053001495979== Content-Type: multipart/alternative; boundary="Apple-Mail=_CF41103E-359C-420C-90C2-B27A480FEA78" --Apple-Mail=_CF41103E-359C-420C-90C2-B27A480FEA78 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 L. Curtis Boyle pointed me to this. It is a 7-line demo from the = February 1995 =E2=80=9CThe World of =E2=80=9968 Micros=E2=80=9D Scan of issue: = https://colorcomputerarchive.com/repo/Documents/Magazines/World%20of%2068%= 20Micros/World%20of%2068%20Micros%20v02n05%20%281995%29%28Farna%20Systems%= 29.pdf The article explains how it works, with comments from Art Flexser and = Rick Adams. Demo of it running: https://www.youtube.com/watch?v=3Deq0hrpFDFqA&feature=3Dyoutu.be Code that I typed in (some spacing may not match, but line 70 seems to = be the only one where this matter): 0 'The World of '68 Micros 1 'Volume 2, Issue 5 2 REM ** 2WAYSCRL.BAS 4 REM **bySockMaster 10 POKE 65497,0:HSCREEN 2:FOR G=3D0 TO 15:READ A:PALETTE G,A:NEXT 20 DATA 0,19,22,50,54,52,38,37,44,45,41,13,11,25,27,26 30 FOR G=3D0 TO 319 STEP .5:HSET(G,RND(191),RND(15)):NEXT 40 C=3D1:S=3D40:FOR G=3D15 TO 1 STEP-1:HCOLOR G 50 = HCIRCLE(310-G*5,48),S:HPAINT(310-G*5,48):S=3DS-2.6:HLINE(RND(110)+210,RND(= 80)+104)-(RND(110)+210,RND(80)+104),PSET,BF:NEXT 60 Q=3D65439:W=3D0:E=3D127 65 '11 COLONS, 5 SPACES 70 FOR G=3D0 TO 127:PALETTE W,W:POKE Q,G::::::::::: POKE = Q,E-G:NEXT:GOTO 70 I have zero recollection of this, which is funny because we had an ad in = this very issue. I was not longer playing with BASIC by this point =E2=80=94= just doing OS-9 6809 assembly and C =E2=80=94 so I missed out on this = one. -- Allen Huffman - PO Box 7634 - Urbandale IA 50323 - 515-999-0227 = (vmail/TXT only) http://www.subethasoftware.com - = https://www.facebook.com/subethasoftware Use my referral to get low-cost unlimited 5G: = https://my.mintmobile.com/refer/8Xko_mh --Apple-Mail=_CF41103E-359C-420C-90C2-B27A480FEA78 Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset=utf-8 <html aria-label=3D"message body"><head><meta http-equiv=3D"content-type" = content=3D"text/html; charset=3Dutf-8"></head><body = style=3D"overflow-wrap: break-word; -webkit-nbsp-mode: space; = line-break: after-white-space;">L. Curtis Boyle pointed me to this. It = is a 7-line demo from the February 1995 =E2=80=9CThe World of =E2=80=9968 = Micros=E2=80=9D<div><br></div><div>Scan of = issue:</div><div><br></div><div><a = href=3D"https://colorcomputerarchive.com/repo/Documents/Magazines/World%20= of%2068%20Micros/World%20of%2068%20Micros%20v02n05%20%281995%29%28Farna%20= Systems%29.pdf">https://colorcomputerarchive.com/repo/Documents/Magazines/= World%20of%2068%20Micros/World%20of%2068%20Micros%20v02n05%20%281995%29%28= Farna%20Systems%29.pdf</a></div><div><br></div><div><div style=3D"display:= block;">The article explains how it works, with comments from Art = Flexser and Rick Adams.</div><div style=3D"display: = block;"><br></div><div style=3D"display: block;">Demo of it = running:</div><div style=3D"display: block;"><br></div><div = style=3D"display: block;"><a = href=3D"https://www.youtube.com/watch?v=3Deq0hrpFDFqA&feature=3Dyoutu.= be">https://www.youtube.com/watch?v=3Deq0hrpFDFqA&feature=3Dyoutu.be</= a></div><div style=3D"display: block;"><br></div><div style=3D"display: = block;">Code that I typed in (some spacing may not match, but line 70 = seems to be the only one where this matter):</div><div style=3D"display: = block;"><br></div><div style=3D"display: block;"><div>0 'The World of = '68 Micros</div><div>1 'Volume 2, Issue 5</div><div>2 REM ** = 2WAYSCRL.BAS</div><div>4 REM **bySockMaster</div><div>10 POKE = 65497,0:HSCREEN 2:FOR G=3D0 TO 15:READ A:PALETTE G,A:NEXT</div><div>20 = DATA 0,19,22,50,54,52,38,37,44,45,41,13,11,25,27,26</div><div>30 FOR G=3D0= TO 319 STEP .5:HSET(G,RND(191),RND(15)):NEXT</div><div>40 C=3D1:S=3D40:FO= R G=3D15 TO 1 STEP-1:HCOLOR G</div><div>50 = HCIRCLE(310-G*5,48),S:HPAINT(310-G*5,48):S=3DS-2.6:HLINE(RND(110)+210,RND(= 80)+104)-(RND(110)+210,RND(80)+104),PSET,BF:NEXT</div><div>60 = Q=3D65439:W=3D0:E=3D127</div><div>65 '11 COLONS, 5 SPACES</div><div>70 = FOR G=3D0 TO 127:PALETTE W,W:POKE Q,G::::::::::: POKE = Q,E-G:NEXT:GOTO 70</div><div><br></div></div>I have zero recollection of = this, which is funny because we had an ad in this very issue. I was not = longer playing with BASIC by this point =E2=80=94 just doing OS-9 6809 = assembly and C =E2=80=94 so I missed out on this = one.</div><div><br><div> <meta charset=3D"UTF-8"><div dir=3D"auto" style=3D"caret-color: rgb(0, = 0, 0); color: rgb(0, 0, 0); letter-spacing: normal; text-align: start; = text-indent: 0px; text-transform: none; white-space: normal; = word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: = none; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div dir=3D"auto" style=3D"caret-color: rgb(0, 0, = 0); color: rgb(0, 0, 0); letter-spacing: normal; text-align: start; = text-indent: 0px; text-transform: none; white-space: normal; = word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: = none; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"color: rgb(0, 0, 0); letter-spacing: = normal; text-align: start; text-indent: 0px; text-transform: none; = white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"text-align: start; text-indent: 0px; = overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"orphans: 2; text-align: -webkit-auto; = text-indent: 0px; widows: 2; overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><div = style=3D"orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: = 2; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"orphans: 2; text-align: -webkit-auto; = text-indent: 0px; widows: 2; overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><div = style=3D"orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: = 2; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"orphans: 2; text-align: -webkit-auto; = text-indent: 0px; widows: 2; overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><div = style=3D"orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: = 2; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"orphans: 2; text-align: -webkit-auto; = text-indent: 0px; widows: 2; overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><div = style=3D"orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: = 2; overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div style=3D"orphans: 2; text-align: -webkit-auto; = text-indent: 0px; widows: 2; overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><span = class=3D"Apple-style-span" style=3D"border-collapse: separate; = border-spacing: 0px;"><div style=3D"overflow-wrap: break-word; = -webkit-nbsp-mode: space; line-break: after-white-space;"><span = class=3D"Apple-style-span" style=3D"border-collapse: separate; orphans: = 2; text-indent: 0px; widows: 2; border-spacing: 0px;"><div = style=3D"overflow-wrap: break-word; -webkit-nbsp-mode: space; = line-break: after-white-space;"><span class=3D"Apple-style-span" = style=3D"border-collapse: separate; orphans: 2; text-indent: 0px; = widows: 2; border-spacing: 0px;"><div style=3D"overflow-wrap: = break-word; -webkit-nbsp-mode: space; line-break: = after-white-space;"><div>--<br>Allen Huffman - PO Box 7634 - Urbandale = IA 50323 - 515-999-0227 (vmail/TXT = only)<br>http://www.subethasoftware.com - https://www.facebook.c= om/subethasoftware<br><br></div><div>Use my referral to get low-cost = unlimited = 5G: https://my.mintmobile.com/refer/8Xko_mh</div></div></span></div><= /span></div></span></div></div></div></div></div></div></div></div></div><= /div></div></div></div></div></div></div></div></div></div></div></div></d= iv></div></div></div></div></div></div></div></div></div></div></div> </div> <br></div></body></html>= --Apple-Mail=_CF41103E-359C-420C-90C2-B27A480FEA78-- --===============5184001053001495979== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline -- Coco mailing list [email protected] http://listserv.adelphi.edu/cgi-bin/mailman/listinfo/coco --===============5184001053001495979==--