Times square header

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 Read-only mirror: https://cocopedia.dgb3.net

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: 749. Total Files: 997.

---

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