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)

Hows your day? need biorhythm help?

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to: navigation, 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, Facebook Group or Google+ | Contact me with updates/questions.

This page was last updated on 05/12/2019. Total Pages: 650. Total Files: 937.


Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-11 - Hows your day? need biorhythm help?


Here's Another program from JARB Software that will help you out in dealing with everyday life.

Its called JARBIORHYTHM and it will generate a complete chart for you. The chart can be as short as a day, or as long as a year. And, the chart will graphically display just how your biorhythms fluctuate over their different cycles.

You do need a printer for this program. But it comes out with a handsome display. We've heard that programs such as this can be a big hit at flea markets!

For those of you with tired fingers, JARBIORHYTHM can be obtained on a tape with PSYCHIC APTITUDE TEST (from RAINBOW Vol. I, No. 3) for $14.95 by writing JARB at 1169 Florida St., Imperial Beach, CA 92032. Please include $1 for postage and handling.

The Listing:

10 CLS:PRINT@196,TAB(11)"BIORYT HM":PRINTTAB(15) "BY":PRINTTAB(9) "JARB SOFTWARE": PRINT:PRINT:PRINTTAB(4)"(c) JARB SOFTWARE 1981": FORI=1TO2500:NEXTI
20 CLS:PRINT@160,"THIS PROGRAM IS DESIGNED TO WORK";:PRINT"WITH THE LINE PRINTER VII.":PRINT"WHILE IT WILL WORK WITH OTHER":PRINT"PRINTERS, IT MAY NOT FORMAT ON ":PRINT"THE PRINTER AS DESIGNED.
30 PRINT" YOU MUST HAVE A PRINTER ON-LINE":PRINT"TO OPERATE THIS PROGRAM!!!!!!!!"
40 PRINT: LINEINPUT"TO BEGIN, PRESS <ENTER> KEY.";RD$
50 '* * * * * * * * * * * * *
60 '*     JARBBYORHYTM      *
80 '* 	        by          *
90 '*    JARB SOFTWARE      *
100 '*     WRITTEN BY        *
110 '*    J. E. BENNETT      *
113 '*         AND           *
115 '*    JOHN L. URBAN      *
120 '*  (c) JARB SOFTWARE    *
130 '*         1981          *
140 '* * * * * * * * * * * * *
150 PS=PEEK(65314):IFPS=4ORPS=6THEN200ELSE160
160 CLS:PRINT@224,"PRINTER NOT ON-LINE 	":PRINT"DO YOU HAVE A PRINTER";:INPUTX$
170 IFLEFT$(X$,1)<>"Y"THEN200
180 CLS:PRINT@224,"YES?":PRINT"PLEASE PLACE PRINTER ON-LINE. ":LINEINPUT"PRESS ENTER WHEN ON-LINE .";x$
190 PS=PEEK(65314):IFPS=4ORPS=6THEN200ELSE160
200 CLEAR200
210 CLS:PRINT@224,"PRINTING TITLE....PLEASE WAIT."
220 L=0:T=25:P=3.1415926535
230 PRINT#-2,CHR$(31):PRINT#-2,TAB(16)"BIORHYTHM":PRINT#-2.TAB(19)"BY":PRINT#-2,TAB(14)"JARB SOFTWARE"
240 PRINT#-2,CHR$(30):TAB(32)"(C) JARB SOFTWARE 1981";CHR$(10);CHR$(10);CHR$(10)
250 B$="YES":CLS:PRINT@224."I AM NOW READY FOR FURTHER INPUT";:FORI=1TO1000:NEXTI
257 L=0:T=25:P=3.1415926535
260 CLS:PRINT@224." ":LINEINPUT"WHAT IS YOUR NAME?":N$
270 CLS:PRINT@224."":INPUT"THIS CHART IS FOR HOW MANY DAYS";E1
275 GOSUB 1650
280 ZZ=0
300 CLS:PRINT@224,"ENTER BIRTH DATE 	"
310 GOSUB 550
313 GOSUB 1700
320 GOSUB720
330 JB=JD
340 CLS:PRINT@224."ENTER START DATE FOR CHART 	"
350 ZZ=1
360 GOSUB550
363 GOSUB 1750
370 GOSUB720
380 JC=JD
390 IF JC>=JB THEN 410

Links

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