MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

Times square header

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
WELCOME
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

See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.

This page was last updated on 05/12/2019. Total Pages: 728. Total Files: 992.


Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-11 - Times square header


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

Links

See Rainbow Magazine 1981-11 Pag 5, in archive.org