$ * * * BIORHYTHM * * **H 8/1/87 VERSIONo COPR. 1986, 1987 LOUIS F. SANDER" OK TO COPY, NOT OK TO SELL(2 LOUIS F. SANDER< 153 MAYER DRIVEF PITTSBURGH, PA 15237 P (412)367-1376 Z= d ** NEXT 2 LINES SETUP PRINTERC n:a xPD4 : PRINTER DEVICE # PT1 : PRINTER TYPE. TYPES ARE: 1=1525/MPS801, 2=1526/MPS802 : F.001:H100.01:PI2 D$""" R$""5 M%(12),M$(12)J I112:M%(I):_ I112:M$(I):j 5000 53280,2:53281,1 ""(142)9)"BIORHYTHM CHART MAKER" (65534)72240 " THIS PROGRAM RUNS ONLY ON A C-64 " OR ON A C-128 IN 64 MODE.":; 9)"Ř"l " THIS PROGRAM WILL CREATE A BIORHYTHM " " CHART FOR ANY 38-DAY PERIOD." " ENTER THE SUBJECT'S NAME BELOW, THEN " PRESS 'RETURN' TO ENTER IT." "" DO THE SAME FOR DATES. BE SURE TO"A ," SEPARATE MONTH, DAY & YEAR BY COMMAS."S 632)"" @N$"NO NAME":" SUBJECT'S NAME";N$ J(N$)9N$(N$,8) TMB99:" DATE OF BIRTH (MM,DD,YY)";MB,DB,YB:MB12340 ^TB0 hT1YB4 rMB2420 |I1MB1! TBTBM%(I)' G (T1(T1))(MB2)TBTB1a TBTB365YB(T1)DB MS99::"CHART START DATE (MM,DD,YY)";MS,DC,YS:MS12430 TS0 T1YS4 MS2510 I1MS1 TSTSM%(I) (T1(T1))(MS2)TSTS1!TSTS365YS(T1)DC.TTTSTBIPS23(TT23(TT23))dES28(TT28(TT28))&IS33(TT33(TT33))053280,1:"BIORHYTHM FOR "N$" BORN ";DM$(MB);DB;",19";((YBHF),3,2)FC$"UP CRIT DWN"GI1(C$)!H38)(C$,I,1)""(148)'IXN""cXI18b" "lv""I18" "6""LMDMS:D1DC:YDYSXI038tI2(I2)"";:770A$(D1)(A$)3B$(A$,1):740B$(A$,2,1)""(A$,1)""B$;C$"":(0)34770"(D11)(D12)""M$(MD)" 19"((YDHF),3,2);C$;.D1D11B D1M%(MD)830QMD2820h YD4(YD4)820w*D1308304D11:MDMD1:MD12MD1:YDYD1>H"":"PHYSICAL=ט EMOTIONAL=ј INTELLECTUAL=*";I038P88((PSI)PI23).5(""(R$,I1);(D$,P2);"".:I138WE88((ESI)PI28).5x""(R$,I1);(D$,E2);""~I138IT88((ISI)PI33).5""(R$,I1);(D$,IT2);"*""(C-NEW CHART S-NEW SUBJ P-PRINT Q-QUIT)";/A$:A$""1030=A$"S"NA$"C"1090$A$"Q"53280,14:53281,6:""16)"GOODBYE!":.A$"P"115081030B:" ";L430 V31,28,31,30,31,30,31,31,30,31,30,31A` JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECGj:dt ** PRINT THE SCREEN **~" *** PRINTING - PLEASE BE PATIENT *** ";PT21280 : 1526/MPS8023,3:4,PD:SL023:4,(15);SC039:C(102440SLSC)C34C39/C162C167PRV1C1284,(146);:RV0pC127RV04,(18);:RV1CC128(C127):CC64(C32C95)32(C63C96):4,(C);:4,(8):RV0::4,(15):41020: PRINTER TYPE 2 - 1526/MPS8026,PD,6:6,(21):68 I217242:I,(I)128:M3,3:4,PD:"";I023:J039:#3,A$:(102440IJ)1274,"";:R1(4,A$;:R1R0:4,"";2J:4,(141);:I<I19:4:F3:4P10,4,10:10:10Z1020  ** INSTRUCTIONS **((14):53280,1:53281,1T" -64 IORHYTHM HART AKER"q" BY"" OUIS . ANDER""HIS CREATES IORHYTHM CHARTS ON THE""SCREEN. T PRINTS THEM ON THE PRINTER""IF YOU'D LIKE."6"EE LINES 100-140 FOR PRINTER SETUPS."{"O YOU WANT TO KNOW ABOUT THE THEORY OF IORHYTHMS ( OR )?"A$:A$"N"A$"Y"5010` ** BIORHTYHM INSTRUCTIONSt" ACKGROUND ON IORHYTHMS"~" IORHYTHM THEORY STATES THAT ON THE"E"DAY OF OUR BIRTH, THREE IMMUTABLE LIFE"["CYCLES BEGIN:"" A 23-DAY PHYSICAL CYCLE" A 28-DAY EMOTIONAL CYCLE" A 33-DAY INTELLECTUAL CYCLEPRINT" HESE CYCLES CHANGE SINUSOIDALLY,"6 PRINT"MOVING UP AND DOWN WITH THE PASSAGE OF"H PRINT"TIME.t" HEN A CYCLE IS AT ITS HIGH POINT,""THE PERSON IS AT HIS OR HER PEAK IN""THAT PARTICULAR REALM OF LIFE." HEN A CYCLE IS AT ITS LOW POINT, THE""PERSON IS ALSO AT A LOW."C " 'CRITICAL DAY' OCCURS WHEN THE CYCLE"o"CROSSES THE ZERO AXIS. RITICAL DAYS""ARE CONSIDERED TO BE UNSTABLE TIMES,"("WHEN UPSETS OR DISASTERS ARE LIKELY TO"2"OCCUR."<60390 F" EPENDING ON YOUR VIEWPOINT, YOU CAN"=P"CONSIDER IORHYTHMS AS SILLINESS OR"eZ"SCIENCE, AS FOOLISHNESS OR FACT."d" N SOME COUNTRIES AND SOME INDUSTRIES,"n"BIORHYTHM THEORY IS USED IN SCHEDULING"x"WORKERS FOR CRITICAL TASKS, SUCH AS" "PILOTING AIRPLANES."7" UT MANY PEOPLE SCOFF AT THE THEORY,"e"SINCE IT HAS NO WELL-PROVEN SCIENTIFIC"y"FOUNDATIONS."" OST PUBLIC LIBRARIES HAVE BOOKS ON""IORHYTHMS, SOME OF WHICH ARE QUITE""PERSUASIVE."" ERNARD ITTELSON'S 'IORHYTHM, "@"ERSONAL CIENCE', IS A WELL-KNOWN WORK"T"IN THE FIELD." RESS ANY KEY TO CONTINUE..."A$:A$""60400