| ★ APPLICATIONS ★ DIVERS ★ BIORHYTHM CALENDAR / CALENDARIO BIORRITMOS ★ |
Biorhythm Calendar (Computing With the Amstrad) | Calendario Biorritmos (Amstrad Semanal) |
HERE is a simple program that will help you to keep track of your biorhythms. As you probably know your life is ruled by your intellectual, physical and emotional states, and according to biorhythm theory they follow a cyclic pattern from the day you were born. The intellectual cycle repeats itself every 33 days while the periods of the other two are shorter - 28 for the emotional and only 23 for the physical cycle.. When you run the program it will ask you for your name, date of birth and a month for which you want your biorhythms. What you see on the screen is a calendar displayed in perspective with a tower on each of the days. The tower is split into three parts. The bottom section (blue) tells you your intellectual status. The next one up (green) is your physical condition and at the top in brown you will see your emotional status. Thin is bad, fat is good. If you are wise you will use the biorhythm calendar to plan all your activities. When you've got to do something strenuous such as watering the plants or running a marathon then try to find a day where your physical cycle is at its highest level. Otherwise you will find yourself working below your peak. Playing chess as well as other mental activities like watching Mastermind or reading this magazine make heavy demands on your brain. So look up your intellectual level and see that it is up to the task. As far as sex is concerned I'm not sure whether this comes under physical or emotional. Better play safe and check them both! Occasionally you will see the towers on your calendar shrink down to just a red square. These are the days when all your levels are at rock bottom. Anything you do will probably end in disaster. Stay in bed and do nothing. The program is liberally sprinkled with REMs and the structured design should be easy to follow. The main loop starting at line 100 calls the data entry routine to ask for your name, birth date and month to display. Then comes a call to the calendar routine. When you have finished looking at the screen you can ask for the next month (N), the previous month (P) or go back to the menu (M). Dates are entered as 28nov44 or 1 DEC 1850 with or without spaces. They are decoded by lines 910 to 1030. m is set to 0 if the three letti month name is not recognised. Years less than 100 have 1900 added. The INSTR function in line 130 takes the key pressed converted to upper case and compares it with Space, N, P and M to produce a number 1, 2, 3,4 or 0 if no match. The result, plus one, is used by the ON GOTO instruction. PRINT CHR$(23);CHR$(0) in lines 400 and 1310 sets the graphics mode to opaque while CHR$(23); CHR$(3) at line 1230 sets it to OR to avoid overwriting the grid. However CHR$(23) in line 1190 is just a trick to suppress an unwanted space. Text printed between lines 1230 and 1310 is tagged to the graphics cursor. CWTA |
|  |
|
