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)
Hows your day? need biorhythm help?
| 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: 729. Total Files: 993.
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