home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / SCREEN-CALENDAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  51 lines
  1. 5 REM 09/26/87 07:45 PM                                 
  2. 10 X=9:POKE53281,X:INPUT"SCREEN COLOR";X:POKE53281,X
  3. 20 X=6:POKE53280,X:INPUT"BORDER COLOR";X:POKE53280,X
  4. 30 X=3:POKE646,X:INPUT"CURSOR COLOR";X:POKE646,X
  5. 40 DIMM(12)
  6. 50 INPUT"YEAR,MONTH  1987,9¥¥¥¥¥¥¥¥";Y,M         
  7. 60 PRINT"ô";
  8. 70 FORN=1TO12:READM(N):NEXT:FORL=0TO6:READDA$(L):NEXT:IFM=2THENGOSUB450:M(2)=X3
  9. 80 D=DA
  10. 90 FORN=MTO12
  11. 100 ONMGOTO110,120,130,140,150,160,170,180,190,200,210,220
  12. 110 A$="JANUARY  " :GOTO410
  13. 120 A$="FEBRUARY " :GOTO410
  14. 130 A$="MARCH    " :GOTO410
  15. 140 A$="APRIL    " :GOTO410
  16. 150 A$="MAY      " :GOTO410
  17. 160 A$="JUNE     " :GOTO410
  18. 170 A$="JULY     " :GOTO410
  19. 180 A$="AUGUST   " :GOTO410
  20. 190 A$="SEPTEMBER" :GOTO410
  21. 200 A$="OCTOBER  " :GOTO410
  22. 210 A$="NOVEMBER " :GOTO410
  23. 220 A$="DECEMBER " :GOTO410
  24. 230 CD$=""
  25. 240 A$=A$+STR$(Y):PRINTTAB((40-LEN(A$))/2)A$
  26. 250 P=8
  27. 260 FORW=1TOM(M)
  28. 270 GOSUB420
  29. 280 REM FIGGERING OUT DAY OF WEEK
  30. 290 Y$=STR$(Y):MD$=STR$(M):W$=RIGHT$(Y$,2)+RIGHT$(STR$(100+M),2)+"."
  31. 300 W$=W$+RIGHT$(STR$(100+W),2)                             
  32. 310 PRINTLEFT$(CD$,DA*3+1)""SPC(V);W$;"¥¥¥";DA$(DA);
  33. 320 IFDA=6THENV=V+8
  34. 330 DATA31,28,31,30,31,30,31,31,30,31,30,31
  35. 340 DATASUN,MON,TUE,WED,THU,FRI,SAT
  36. 350 NEXT
  37. 360 A$="HIT ANY KEY":PRINTCD$;TAB((40-LEN(A$))/2)A$;
  38. 370 POKE198,0:WAIT198,1
  39. 380 M=M+1
  40. 390 IFM<=1    
  41. 400 Y=Y+1:M=1:S=PEEK(646):GOTO470
  42. 410 GOTO230
  43. 420 Q=Y+(M<3):J=INT(275*M/9)-INT((7*Q+7)/4)+367*Y+W-INT((INT(Q/100)+1)*3/4)
  44. 430 DA=J-4-7*INT((J-4)/7)                                        
  45. 440 RETURN
  46. 450 M=2:D=1:GOSUB420:X1=J:M=3:GOSUB420:X2=J:X3=X2-X1
  47. 460 M=2:RETURN
  48. 470 POKE646,PEEK(53281)AND15:PRINT"ôINPUT"Y"":POKE198,1:POKE631,1
  49. 480 PRINT"ôINPUT"M"":POKE198,1:POKE631,1 :POKE646,S
  50. 490 RESTORE:V=0:GOTO60
  51.