home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / biorhytnm (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  83 lines
  1. 10 REM BIORHYTHM 2.5
  2. 30 PI=-2*(null):R=7:D$=""
  3. 40 R$="[157]":T$="[176]":U$="[173]":Q$="[171]":G$="[171]"
  4. 90 DIMM%(13),M$(12)
  5. 100 FORI=1TO13:READM%(I):NEXT
  6. 110 FORI=1TO12:READM$(I):NEXT
  7. 120 FORI=1TO23:D$=D$+"":NEXT
  8. 130 FORI=1TO39:E$=E$+" ":R$=R$+"":NEXT
  9. 135 FORI=1TO39:E$=E$+"[157]":NEXT
  10. 140 FORI=1TO37
  11. 150 T$=T$+"[178]":U$=U$+"[177]":G$=G$+"[219]"
  12. 160 NEXT
  13. 165 T$=T$+"[174]":U$=U$+"[189]":G$=G$+"[179]"
  14. 170 FORI=1TO18:Q$=Q$+" [221]":NEXT:Q$=Q$+" [179]"
  15. 200 INPUT"[147]INPUT NAME PLEASE";N$
  16. 250 N$=LEFT$(N$,19)
  17. 300 INPUT"INPUT BIRTHDAY   MM,DD,YY ";MB,DB,YB
  18. 320 MB=INT(MB):DB=INT(DB):YB=INT(YB)
  19. 350 TB=INT(DB+365.25*YB+M%(MB)+.01*MB-.03)
  20. 400 INPUT"INPUT START DATE MM,DD,YY ";MS,AS,YS
  21. 420 MS=INT(MS):AS=INT(AS):YS=INT(YS)
  22. 450 TS=INT(AS+365.25*YS+M%(MS)+.01*MS-.03)
  23. 500 TT=TS-TB
  24. 510 PS=23*(TT/23-INT(TT/23))
  25. 520 ES=28*(TT/28-INT(TT/28))
  26. 530 IS=33*(TT/33-INT(TT/33))
  27. 900 GOSUB8000
  28. 1000 FORK=0TO38
  29. 1010 P=R+R*SIN((PS+K)*PI/23)+.5
  30. 1020 PRINTLEFT$(D$,P+5);LEFT$(R$,K+2);"[215]"
  31. 1030 NEXT
  32. 2000 FORK=1TO38
  33. 2010 E=R+R*SIN((ES+K)*PI/28)+.5
  34. 2020 PRINTLEFT$(D$,E+5);LEFT$(R$,K+2);"[209]"
  35. 2030 NEXT
  36. 3000 FORK=1TO38
  37. 3010 I=R+R*SIN((IS+K)*PI/33)+.5
  38. 3020 PRINTLEFT$(D$,I+5);LEFT$(R$,K+2);"*"
  39. 3030 NEXT
  40. 5000 FORI=1TO10:GETA$:NEXT
  41. 5010 GETA$:IFA$=""THEN5010
  42. 5020 IFA$<>" "THEN200
  43. 5050 MS=MD:AS=DD:YS=YD
  44. 5080 GOTO450
  45. 8000 PRINT"[147]"TAB(10)" B I O R H Y T H M [146]"
  46. 8010 PRINT"FOR "N$"[146] BORN "M$(MB);DB;"[157],19";
  47. 8030 A$=RIGHT$(STR$(YB),2)
  48. 8040 IFYB<10THENPRINT"0";:GOTO8060
  49. 8050 PRINTLEFT$(A$,1);
  50. 8060 PRINTRIGHT$(A$,1)
  51. 8100 PRINTT$
  52. 8110 FORI=1TOR:PRINTQ$:NEXT:PRINTG$
  53. 8120 FORI=1TOR:PRINTQ$:NEXT:PRINTU$
  54. 8180 MD=MS:DD=AS:YD=YS
  55. 8190 FORI=0TO38
  56. 8200 IFI/2<>INT(I/2)THENPRINT"";:GOTO8250
  57. 8205 A$=RIGHT$(STR$(DD),2)
  58. 8210 IFDD<10THENPRINT""RIGHT$(A$,1)"[145]";:GOTO8220
  59. 8215 PRINTLEFT$(A$,1)"[157]"RIGHT$(A$,1)"[145]";
  60. 8220 IFDD>2THEN8250
  61. 8225 A$=RIGHT$(STR$(YD),2)
  62. 8230 PRINT"[157]"M$(MD)" 19";
  63. 8235 IFYD<10THENPRINT"0";:GOTO8245
  64. 8240 PRINTLEFT$(A$,1);
  65. 8245 PRINTRIGHT$(A$,1)"[157][157][157][157][157][157][157][146]";
  66. 8250 DD=DD+1
  67. 8255 IFDD<=(M%(MD+1)-M%(MD))THEN8290
  68. 8265 IFMD<>2THEN8280
  69. 8270 IFYD/4<>INT(YD/4)THEN8280
  70. 8275 IFDD<30THEN8290
  71. 8280 DD=1:MD=MD+1:IFMD>12THENMD=1:YD=YD+1
  72. 8290 NEXT
  73. 8500 PRINT:PRINT"PHYSICAL=[215]  EMOTIONAL=[209]  INTELLECTUAL=*"
  74. 8550 PRINTTAB(8)"PRESS SPACE TO CONTINUE.[146]";
  75. 8600 C$="UP    CRIT    DWN"
  76. 8610 PRINT"[157]";
  77. 8620 FORI=1TOLEN(C$)
  78. 8630 PRINTMID$(C$,I,1)"[157]";
  79. 8640 NEXT
  80. 8800 RETURN
  81. 50000 DATA 0,31,59,90,120,151,181,212,243,273,304,334,365
  82. 50010 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
  83.