home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / BIO-CHART (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  42 lines
  1. 10 REM:  BIORHYTHMS  WITH PRINTING
  2. 20 REM:  CAPABILITY ADDED BY P. WAGNER
  3. 30 FOR X=0TO94:READD:POKE50000+X,D:NEXT
  4. 40 DATA 169,4,133,186,169,126,133,184
  5. 50 DATA 169,0,160,4,133,113,132,114,133
  6. 60 DATA 183,133,185,32,192,255,166,184
  7. 70 DATA 32,201,255,162,25,169,13,32,210
  8. 80 DATA 255,32,225,255,240,46,160,0,177
  9. 90 DATA 113,133,103,41,63,6,103,36,103
  10. 100 DATA 16,2,9,128,112,2,9,64,32,210
  11. 110 DATA 255,200,192,40,208,230,152,24,101
  12. 120 DATA 113,133,113,144,2,230,114,202
  13. 130 DATA 208,205,169,13,32,210,255,32,204
  14. 140 DATA 255,162,126,76,195,255,96
  15. 150 PRINTCHR$(142):PRINTCHR$(8)
  16. 160 POKE53281,0:POKE53280,0
  17. 170 PRINT"ô";
  18. 180 H=100.01:F=.001
  19. 190 DIMM%(12),M$(12)
  20. 200 FORI=1TO12:READM%(I):NEXT
  21. 210 FORI=1TO12:READM$(I):NEXT
  22. 220 D$=""
  23. 230 R$="¥"
  24. 240 PI=-2****ERROR***
  25. 250 PRINT"  <QUIT> TO EXIT"
  26. 260 INPUT"ææINPUT NAME PLEASE";N$
  27. 270 IFN$="Q"ORN$="QUIT"THENEND
  28. 280 INPUT"INPUT BIRTHDAY   MM,DD,YY ";MB,DB,YB
  29. 290 INPUT"₧DUMP CHART TO PRINTER? (Y/N)";ZZ$
  30. 300 IFZZ$="Y"THENPRINT"₧(HIT ANY KEY AFTER CHART DISPLAYS)"
  31. 310 TB=0
  32. 320 T1=YB/4
  33. 330 IFMB<2THEN380
  34. 340 FORI=1TOMB-1
  35. 350 TB=TB+M%(I)
  36. 360 NEXT
  37. 370 IF(T1<>INT(T1))AND(MB>2)THENTB=TB+1
  38. 380 TB=TB+365*YB+INT(T1)+DB
  39. 390 INPUT"INPUT START DATE MM,DD,YY ";MS,DS,YS
  40. 400 TS=0
  41. 410 T1=YS/4    
  42.