home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / CALENDAR-MAKER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  56 lines
  1. 5 POKE53280,0:POKE53281,0:PRINT"[155][147]"
  2. 10 DIMND(12),MO$(12):OPEN4,4
  3. 15 T$="    ----------------------------------------------------------------   "
  4. 20 C$="[200]        ":T$="     "+T$
  5. 25 FORLO=1TO12:READND(LO),MO$(LO):NEXTLO
  6. 30 FORLL=1TO7:READDY$:AA$=AA$+"      "+DY$:NEXT
  7. 35 D=1:MO=1:YR=2000
  8. 40 GOSUB200
  9. 45 INPUT"MONTH & YEAR (MM,YYYY)";MO,YR
  10. 50 GOSUB120
  11. 55 XX=(ND(MO)+J)/7:NU=INT(XX):IFXX>NUTHENNU=NU+1
  12. 60 IF (YR/4)-INT(YR/4)=0 THEN ND(2)=29
  13. 65 SR=(J*10)+4
  14. 70 GOSUB300
  15. 75 CLR:INPUT"AGAIN (Y/N)";XZ$:IFXZ$="Y"THENRUN
  16. 80 CLOSE4
  17. 85 END
  18. 90 GOSUB300
  19. 95 END
  20. 99 REM DAY#
  21. 100 DATA 31,JANUARY,28,FEBRUARY,31,MARCH,30,APRIL,31,MAY,30,JUNE,31,JULY,31
  22. 105 DATA AUGUST,30,SEPTEMBER,31,OCTOBER,30,NOVEMBER,31,DECEMBER
  23. 110 DATA SUN,MON,TUE,WED,THU,FRI,SAT
  24. 120 Q=YR+(MO<3):J=INT(275*MO/9)-INT((7*Q+7)/4)+367*YR+D-INT((INT(Q/100)+1)*3/4)
  25. 125 J=J-4-7*INT((J-4)/7):RETURN
  26. 130 RETURN
  27. 135 DATA SUN,MON,TUE,WED,THU,FRI,SAT
  28. 200 PRINT"[147]":PRINTSPC(10)"* CALENDAR GENERATOR *":PRINT
  29. 210 PRINT"   INPUT ANY MONTH IN TWO (2) DIGIT FORM AND ANY YEAR IN FOUR (4)";
  30. 215 PRINT" DIGIT FORM. A  CALENDAR FOR THAT MONTH AND YEAR WILL   BE DUMPED";
  31. 220 PRINT" TO THE PRINTER."
  32. 225 PRINT:PRINT:PRINT"    [158]TURN ON PRINTER NOW![155] "
  33. 230 PRINT:PRINT:PRINT"    HIT ANY KEY TO CONTINUE"
  34. 235 GETG$:IFG$=""THEN235
  35. 240 RETURN
  36. 300 CE=(64-LEN(MO$(MO))*2-12    
  37. 14905 PRINT#4:PRINT#4,SPC(CE)CHR$(14);MO$(MO)+" ";YR
  38. 305 PRINT#4,CHR$(15):PRINT#4
  39. 310 IN=4:GU=0:N9$="01":N9=1
  40. 315 PRINT#4,SPC(7)AA$
  41. 320 PRINT#4,T$
  42. 325 FORLO=1TONU
  43. 330 PRINT#4,"         ";
  44. 335 FORL3=1TO7
  45. 340 IN=IN+9:IFIN>=SRTHENGU=1
  46. 345 IFN9>ND(MO)THENGU=0
  47. 350 IFGU=0THEN360
  48. 355 PRINT#4,LEFT$(C$,7);RIGHT$(N9$,2);:N9=N9+1:N9$="0"+MID$(STR$(N9),2):GOTO365
  49. 360 PRINT#4,C$;
  50. 365 NEXTL3:PRINT#4,"[200]"
  51. 370 FORL2=2TO8
  52. 375 PRINT#4,"         ";C$;C$;C$;C$;C$;C$;C$;"[200]":NEXTL2
  53. 380 PRINT#4,T$
  54. 385 NEXTLO:PRINT#4,CHR$(12)
  55. 390 RETURN
  56.