home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / PERPETUAL-CALENDAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  23 lines
  1. 5 INPUT"TIME";TI$
  2. 10 PRINT"[147]"
  3. 20 PRINT"'M' KEY CHANGE MONTH
  4. 30 [153]"'L' KEY CHANGE LEFT DATE
  5. 40 PRINT"'R' KEY CHANGE RIGHT DATE
  6. 50 [153]"'D' KEY CHANGE DAY
  7. 60 DATAMON,TUE,WED,THU,FRI,SAT,SUN
  8. 70 DATAJAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
  9. 80 DIMMO$(12),DA$(7)
  10. 90 FORL=1TO7:READDA$(L):NEXT:FORL=1TO12:READMO$(L):NEXT
  11. 100 POKE53281,0:POKE53280,0:POKE646,1
  12. 110 M=1:DA=1:D1=0:D2=1
  13. 120 PRINT""DA$(DA),MO$(M),D1;D2
  14. 130 GETA$:IFA$=""THENPRINT""TAB(30)TI$;:GOTO130
  15. 140 IFA$="M"THENM=M+1
  16. 150 IFA$="D"THENDA=DA+1
  17. 160 IFA$="L"THEND1=D1+1:IFD1>3THEND1=0
  18. 170 IFA$="R"THEND2=D2+1:IFD2>9THEND2=0
  19. 180 IFDA>7THENDA=1
  20. 190 IFD>31THEND=1:M=M+1
  21. 200 IFM>12THENM=1
  22. 210 GOTO120
  23.