Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al
8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)
Times square header
|Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al|
This page was last updated on 05/12/2019. Total Pages: 648. Total Files: 937.
So. you've written a neat program but you don't really have a good way to introduce it ... and you're tired. anyway.
Here's a quick way to use some of the more interesting capabilities of the Color Computer to produce a "header" for a program that's. as they say, fast and dirty.
This little gem will give you a Times Square-like message center on your screen. The words will just scroll along. And. from the code below, you'll see that it's easy to produce. You might even want to use it to leave messages for other members of the family!
For those without Extended Color Basic, change the STRING$ (16,32) in line 3 to 16 blank: spaces. Line 11 can be deleted, it’s just there to keep the display neat in this example.
Here's the RPQ (RAINBOW Program Quickie) --with thanks to Joe Bennett--:
1 CLS0 3 AS=" THIS PROGRAM IS BROUGHT TO YOU THROUGH THE RAINBOW ... THE MONTHLY MAGAZ INE FOR COLOR COMPUTER USER S. YOU CAN PUT YOUR OWN MES SAGE HERE. "+STRING$ (16,32) 5 FOR A=1 TO LEN(AS)-15:E1=E1 +1:IF E1>4 THEN E1=1:E=1125 :EE=1140 7 PRINT@328,MID$(A$,A,15); 9 SOUND RND(240),1:NEXT A 11 GOTO 11