home *** CD-ROM | disk | FTP | other *** search
- 10 REM * * * BIORHYTHM * * *
- 20 REM
- 30 REM 8/1/87 VERSION
- 32 REM COPR. 1986, 1987 LOUIS F. SANDER
- 34 REM OK TO COPY, NOT OK TO SELL
- 40 REM
- 50 REM LOUIS F. SANDER
- 60 REM 153 MAYER DRIVE
- 70 REM PITTSBURGH, PA 15237
- 80 REM (412)367-1376
- 90 REM
- 100 REM ** NEXT 2 LINES SETUP PRINTER
- 110 :
- 120 PD=4 : REM PRINTER DEVICE #
- 130 PT=1 : REM PRINTER TYPE. TYPES ARE: 1=1525/MPS801, 2=1526/MPS802
- 140 :
- 150 F=.001:H=100.01:PI=-2*(null)
- 160 D$=""
- 170 R$="[157]"
- 180 DIMM%(12),M$(12)
- 190 FORI=1TO12:READM%(I):NEXT
- 200 FORI=1TO12:READM$(I):NEXT
- 210 GOSUB 5000
- 220 POKE53280,2:POKE53281,1
- 230 PRINT"[147]"CHR$(142)TAB(9)"BIORHYTHM CHART MAKER"
- 232 IFPEEK(65534)=72THEN240
- 234 PRINT" THIS PROGRAM RUNS ONLY ON A C-64
- 236 [153]" OR ON A C-128 IN 64 MODE.":[128]
- 240 [153][163]9)"SYSVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALPRINT#"
- 250 [153]" THIS PROGRAM WILL CREATE A BIORHYTHM "
- 260 [153]" CHART FOR ANY 38-DAY PERIOD."
- 270 [153]" ENTER THE SUBJECT'S NAME BELOW, THEN
- 280 PRINT" PRESS 'RETURN' TO ENTER IT."
- 290 PRINT" DO THE SAME FOR DATES. BE SURE TO"
- 300 PRINT" SEPARATE MONTH, DAY & YEAR BY COMMAS."
- 310 PRINTTAB(32)"[197][197][197][197][197][197]"
- 320 N$="NO NAME":INPUT" SUBJECT'S NAME";N$
- 330 IFLEN(N$)>9THENN$=LEFT$(N$,8)
- 340 MB=99:INPUT"[152] DATE OF BIRTH (MM,DD,YY)";MB,DB,YB:IFMB>12THEN340
- 350 TB=0
- 360 T1=YB/4
- 370 IFMB<2THEN420
- 380 FORI=1TOMB-1
- 390 TB=TB+M%(I)
- 400 NEXT
- 410 IF(T1<>INT(T1))AND(MB>2)THENTB=TB+1
- 420 TB=TB+365*YB+INT(T1)+DB
- 430 MS=99:PRINT:INPUT"CHART START DATE (MM,DD,YY)";MS,DC,YS:IFMS>12THEN430
- 440 TS=0
- 450 T1=YS/4
- 460 IFMS<2THEN510
- 470 FORI=1TOMS-1
- 480 TS=TS+M%(I)
- 490 NEXT
- 500 IF(T1<>INT(T1))AND(MS>2)THENTS=TS+1
- 510 TS=TS+365*YS+INT(T1)+DC
- 520 TT=TS-TB
- 530 PS=23*(TT/23-INT(TT/23))
- 540 ES=28*(TT/28-INT(TT/28))
- 550 IS=33*(TT/33-INT(TT/33))
- 560 POKE53280,1
- 570 PRINT"[147]BIORHYTHM FOR "N$"[152] BORN ";
- 580 PRINTM$(MB);DB;"[157],19";MID$(STR$(YB/H+F),3,2)
- 582 C$="UP CRIT DWN"
- 583 FORI=1TOLEN(C$)
- 584 PRINTTAB(38)MID$(C$,I,1)"[157][157][157]"CHR$(148)
- 585 NEXT
- 590 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
- 600 FORI=1TO8
- 610 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
- 620 NEXT
- 630 PRINT"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
- 640 FORI=1TO8
- 650 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
- 660 NEXT
- 670 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
- 680 MD=MS:D1=DC:YD=YS
- 690 FORI=0TO38
- 700 IFI/2<>INT(I/2)THENPRINT"";:GOTO770
- 710 A$=STR$(D1)
- 720 IFLEN(A$)<3THENB$=RIGHT$(A$,1):GOTO740
- 730 B$=MID$(A$,2,1)+"[157]"+RIGHT$(A$,1)+"[145]"
- 740 PRINTB$;
- 750 C$="[146][157][157][157][157][157][157][157][145]":IFPOS(0)>34THEN770
- 760 IF(D1=1)OR(D1=2)THENPRINT"[157]"M$(MD)" 19"MID$(STR$(YD/H+F),3,2);C$;
- 770 D1=D1+1
- 780 IFD1<=M%(MD)THEN830
- 790 IFMD<>2THEN820
- 800 IFYD/4<>INT(YD/4)THEN820
- 810 IFD1<30THEN830
- 820 D1=1:MD=MD+1:IFMD>12THENMD=1:YD=YD+1
- 830 NEXT
- 840 PRINT"":PRINT"PHYSICAL=[158][215][152] EMOTIONAL=[154][209][152] INTELLECTUAL=[150]*[152]";
- 900 FORI=0TO38
- 910 P=8+8*SIN((PS+I)*PI/23)+.5
- 920 PRINT""LEFT$(R$,I+1);LEFT$(D$,P+2);"[158][215]"
- 930 NEXT
- 940 FORI=1TO38
- 950 E=8+8*SIN((ES+I)*PI/28)+.5
- 960 PRINT""LEFT$(R$,I+1);LEFT$(D$,E+2);"[154][209]"
- 970 NEXT
- 980 FORI=1TO38
- 990 IT=8+8*SIN((IS+I)*PI/33)+.5
- 1000 PRINT""LEFT$(R$,I+1);LEFT$(D$,IT+2);"[150]*[152]"
- 1010 NEXT
- 1020 PRINT"(C-NEW CHART S-NEW SUBJ P-PRINT Q-QUIT)[145]";
- 1030 GETA$:IFA$=""THEN1030
- 1040 IFA$="S"THENRUN
- 1050 IFA$="C"THEN1090
- 1060 IFA$="Q"THENPOKE53280,14:POKE53281,6:PRINT"[147]"TAB(16)"[158]GOODBYE![154]":END
- 1070 IFA$="P"THEN1150
- 1080 GOTO1030
- 1090 PRINT:PRINT" [145]";
- 1100 GOTO430
- 1110 DATA31,28,31,30,31,30,31,31,30,31,30,31
- 1120 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
- 1130 :
- 1140 REM ** PRINT THE SCREEN **
- 1150 PRINT" *** PRINTING - PLEASE BE PATIENT *** [145]";
- 1160 IFPT=2THEN1280 : REM 1526/MPS802
- 1170 OPEN3,3:OPEN4,PD:FORSL=0TO23:PRINT#4,CHR$(15);
- 1180 FORSC=0TO39:C=PEEK(1024+40*SL+SC)
- 1190 IFC=34THENC=39
- 1200 IFC=162THENC=167
- 1210 IFRV=1THENIFC<128THENPRINT#4,CHR$(146);:RV=0
- 1220 IFC>127THENIFRV=0THENPRINT#4,CHR$(18);:RV=1
- 1230 C=C+128*(C>127):C=C-64*(C<32ORC>95)-32*(C>63ANDC<96):PRINT#4,CHR$(C);
- 1240 NEXT:PRINT#4,CHR$(8):RV=0:NEXT:PRINT#4,CHR$(15):CLOSE4
- 1250 GOTO1020
- 1260 :
- 1270 REM PRINTER TYPE 2 - 1526/MPS802
- 1280 OPEN6,PD,6:PRINT#6,CHR$(21):CLOSE6
- 1290 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
- 1300 OPEN3,3:OPEN4,PD:PRINT"";
- 1310 FORI=0TO23:FORJ=0TO39:GET#3,A$:IFPEEK(1024+40*I+J)>127THENPRINT#4,"";:R=1
- 1320 PRINT#4,A$;:IFR=1THENR=0:PRINT#4,"[146]";
- 1330 NEXTJ:PRINT#4,CHR$(141);:NEXTI
- 1340 FORI=1TO9:PRINT#4:NEXT
- 1350 CLOSE3:CLOSE4
- 1360 OPEN10,4,10:PRINT#10:CLOSE10
- 1370 GOTO1020
- 4999 REM ** INSTRUCTIONS **
- 5000 PRINTCHR$(14):POKE53280,1:POKE53281,1
- 5002 PRINT"[147] [195]-64 [194]IORHYTHM [195]HART [205]AKER"
- 5003 PRINT" BY"
- 5004 PRINT" [204]OUIS [198]. [211]ANDER"
- 5005 PRINT"[152][212]HIS CREATES [194]IORHYTHM CHARTS ON THE"
- 5006 PRINT"SCREEN. [201]T PRINTS THEM ON THE PRINTER"
- 5007 PRINT"IF YOU'D LIKE."
- 5008 PRINT"[211]EE LINES 100-140 FOR PRINTER SETUPS."
- 5009 PRINT"[196]O YOU WANT TO KNOW ABOUT THE THEORY OF [194]IORHYTHMS ([217] OR [206])?"
- 5010 GETA$:IFA$="N"THENRETURN
- 5020 IFA$<>"Y"THEN5010
- 60000 REM ** BIORHTYHM INSTRUCTIONS
- 60020 PRINT"[147] [154][194]ACKGROUND ON [194]IORHYTHMS"
- 60030 PRINT"[152] [194]IORHYTHM THEORY STATES THAT ON THE"
- 60040 PRINT"DAY OF OUR BIRTH, THREE IMMUTABLE LIFE"
- 60050 PRINT"CYCLES BEGIN:"
- 60060 PRINT" A 23-DAY PHYSICAL CYCLE
- 60070 [153]" A 28-DAY EMOTIONAL CYCLE
- 60080 PRINT" A 33-DAY INTELLECTUAL CYCLE
- 60090 [143]PRINT" (null)HESE CYCLES CHANGE SINUSOIDALLY,"
- 60100 [143] PRINT"MOVING UP AND DOWN WITH THE PASSAGE OF"
- 60110 [143] PRINT"TIME.
- 60120 PRINT" [215]HEN A CYCLE IS AT ITS HIGH POINT,"
- 60130 PRINT"THE PERSON IS AT HIS OR HER PEAK IN"
- 60140 PRINT"THAT PARTICULAR REALM OF LIFE.
- 60150 [153]" (null)HEN A CYCLE IS AT ITS LOW POINT, THE"
- 60160 [153]"PERSON IS ALSO AT A LOW."
- 60170 [153]" ATN 'CRITICAL DAY' OCCURS WHEN THE CYCLE"
- 60180 [153]"CROSSES THE ZERO AXIS. LENRITICAL DAYS"
- 60190 [153]"ARE CONSIDERED TO BE UNSTABLE TIMES,"
- 60200 [153]"WHEN UPSETS OR DISASTERS ARE LIKELY TO"
- 60210 [153]"OCCUR."
- 60220 [141]60390
- 60230 [153]"LOAD STR$EPENDING ON YOUR VIEWPOINT, YOU CAN"
- 60240 [153]"CONSIDER PEEKIORHYTHMS AS SILLINESS OR"
- 60250 [153]"SCIENCE, AS FOOLISHNESS OR FACT."
- 60260 [153]" RIGHT$N SOME COUNTRIES AND SOME INDUSTRIES,"
- 60270 [153]"BIORHYTHM THEORY IS USED IN SCHEDULING"
- 60280 [153]"WORKERS FOR CRITICAL TASKS, SUCH AS"
- 60290 [153]"PILOTING AIRPLANES."
- 60300 [153]" PEEKUT MANY PEOPLE SCOFF AT THE THEORY,"
- 60310 [153]"SINCE IT HAS NO WELL-PROVEN SCIENTIFIC"
- 60320 [153]"FOUNDATIONS."
- 60330 [153]" (null)OST PUBLIC LIBRARIES HAVE BOOKS ON"
- 60340 [153]"PEEKIORHYTHMS, SOME OF WHICH ARE QUITE"
- 60350 [153]"PERSUASIVE."
- 60360 [153]" PEEKERNARD CHR$ITTELSON'S 'PEEKIORHYTHM, ATN"
- 60370 [153]"(null)ERSONAL (null)CIENCEPRINT#', IS A WELL-KNOWN WORK"
- 60380 [153]"IN THE FIELD.
- 60390 PRINT" [208]RESS ANY KEY TO CONTINUE...[152]"
- 60400 GETA$:IFA$=""THEN60400
- 60410 RETURN
-