home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GFX / STATSTOR.SDA / SS-1 (.txt) next >
Commodore BASIC  |  2000-06-30  |  2KB  |  80 lines
  1. 4100 POKE53280,0:POKE53281,0:PRINT"[147][158]";SPC(12)"[195]ALENDAR [208]RINTER"
  2. 4110 FORI=1TO40:PRINT"[163]";:NEXTI
  3. 4120 INPUT"[205]ONTH (1-12)";M
  4. 4130 IF M<1 OR M>12 THEN 4120
  5. 4140 INPUT"[217]EAR  (YYYY)";YR
  6. 4150 IFYR<1904ORYR>2099THENPRINT"[207]NLY YEARS FROM 1904-2099 ARE COVERED":GOTO4140
  7. 4160 OPEN10,4,10:PRINT#10:CLOSE10:OPEN4,4
  8. 4170 DIM A$(10):LF=13
  9. 4180 DIM M$(12,2),C(6,7),AA$(10)
  10. 4190 FORI=1TO12:READM$(I,1):NEXTI
  11. 4200 N$=M$(M,1)+STR$(YR)
  12. 4210 DATA "      J A N U A R Y        "
  13. 4220 DATA "     F E B R U A R Y       "
  14. 4230 DATA "        M A R C H          "
  15. 4240 DATA "        A P R I L          "
  16. 4250 DATA "          M A Y            "
  17. 4260 DATA "          J U N E          "
  18. 4270 DATA "          J U L Y          "
  19. 4280 DATA "        A U G U S T        "
  20. 4290 DATA "    S E P T E M B E R      "
  21. 4300 DATA "      O C T O B E R        "
  22. 4310 DATA "      N O V E M B E R      "
  23. 4320 DATA "      D E C E M B E R      "
  24. 4330 FORI=1TO12:READM$(I,2):NEXT
  25. 4340 DATA 31,28,31,30,31,30,31
  26. 4350 DATA 31,30,31,30,31
  27. 4360 DM=VAL(M$(M,2))
  28. 4370 IF4*INT(YR/4)=YRANDM=2THENDM=29
  29. 4380 Y=YR:IFM<3THENY=Y-1
  30. 4390 R%=(Y-1903)/4
  31. 4400 P1=5*R%:S=Y-1903-4*R%
  32. 4410 IFS>0THENP1=P1+1+S
  33. 4420 IFM=1ORM=5THENP1=P1+5:GOTO4480
  34. 4430 IFM=2ORM=6THENP1=P1+1:GOTO4480
  35. 4440 IFM=4ORM=7THENP1=P1+3:GOTO4480
  36. 4450 IFM=8THENP1=P1-1:GOTO4480
  37. 4460 IFM=9ORM=12THENP1=P1+2:GOTO4480
  38. 4470 IFM=10THENP1=P1+4:GOTO4480
  39. 4480 P1=P1-7*INT(P1/7)
  40. 4490 FORX=1TO6:FORY=1TO7:C(X,Y)=-1:NEXTY,X
  41. 4500 D=1:FORZ=P1+1TO100
  42. 4510 X=INT((Z-1)/7)+1
  43. 4520 Y=Z-7*INT((Z-1)/7)
  44. 4530 C(X,Y)=D
  45. 4540 D=D+1:IF D>DM THEN 4560
  46. 4550 NEXTZ
  47. 4560 L1$="[194]":FORX=1TO69:L1$=L1$+" ":NEXTX:L1$=L1$+"[194]"
  48. 4570 L$="":FORX=1TO71:L$=L$+"-":NEXTX
  49. 4580 FORX=0TO10:READ AA$(X):NEXTX
  50. 4590 DATA 0,1,2,3,4,5,6,7,8,9," "
  51. 4600 S$="    ":D$="[194]         ":S1$="[194] ":E$="      "
  52. 4610 PRINT#4,S$;L$;CHR$(LF);
  53. 4620 PRINT#4,S$;L1$;CHR$(LF);:PRINT#4,S$;L1$;CHR$(LF);
  54. 4630 PRINT#4,S$;"[194]                   ";N$;"                  [194]";CHR$(LF);
  55. 4640 PRINT#4,S$;L1$;CHR$(LF);:PRINT#4,S$;L1$;CHR$(LF);
  56. 4650 PRINT#4,S$;L$;CHR$(LF);
  57. 4660 PRINT#4,S$;D$;D$;D$;D$;D$;D$;D$;"[194]";CHR$(LF);
  58. 4670 PRINT#4,S$;"[194]   SUN   [194]   MON   [194]   TUE   [194]   WED   [194]   THU   [194]";
  59. 4680 PRINT#4,"   FRI   [194]   SAT   [194]";CHR$(LF);
  60. 4690 PRINT#4,S$;D$;D$;D$;D$;D$;D$;D$;"[194]";CHR$(LF);
  61. 4700 PRINT#4,S$;L$;CHR$(LF);
  62. 4710 FORW=1TO6
  63. 4720 T=0:FORZZ=1TO7:T=T+C(W,ZZ):NEXTZZ:IF T=-7 THEN 4830
  64. 4730 PRINT#4,S$;D$;D$;D$;D$;D$;D$;D$;"[194]";CHR$(LF);
  65. 4740 PRINT#4,S$;
  66. 4750 FORY=1TO7:Z=C(W,Y)
  67. 4760 IF Z=-1THENA1=10:A2=10:GOTO4790
  68. 4770 A1=INT(Z/10):IFA1=0THENA1=10
  69. 4780 A2=Z-(INT(Z/10)*10)
  70. 4790 PRINT#4,S1$;AA$(A1);AA$(A2);E$;
  71. 4800 NEXTY:PRINT#4,"[194]";CHR$(LF);
  72. 4810 FORX=1TO6:PRINT#4,S$;D$;D$;D$;D$;D$;D$;D$;"[194]";CHR$(LF);:NEXTX
  73. 4820 PRINT#4,S$;L$;CHR$(LF);
  74. 4830 NEXTW:CLOSE4
  75. 4840 PRINT"[147][A]GAIN OR [M]ENU?"
  76. 4850 GETA$
  77. 4860 IFA$="A" THEN RUN4100
  78. 4870 IFA$="M" THEN LOAD"STA-STORE2",8,1:RUN
  79. 4880 IFA$<>"A"ORA$<>"M"THEN4850
  80.