home *** CD-ROM | disk | FTP | other *** search
- 10 DIMDW$(7),MO$(12),LD(12)
- 15 RESTORE:ZX=0
- 20 BL$=""
- 30 FORI=1TO7
- 40 READDW$(I)
- 50 BL$=BL$+CHR$(32)+CHR$(32)
- 60 NEXTI
- 70 FORI=1TO12
- 80 READMO$(I),LD(I)
- 90 NEXTI
- 100 POKE53280,1
- 110 POKE53281,1
- 120 DY$=" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"
- 125 IFZX=1THENGOTO230
- 130 PRINTCHR$(147);CHR$(31);
- 140 PRINTTAB(12);"PERPETUAL CALENDER"
- 150 PRINT
- 160 PRINT"TYPE IN A DATE IN ANY YEAR AFTER 1800"
- 170 PRINT"AND BEFORE 2300;THEN PRESS <RETURN>."
- 180 PRINT"USE THIS FORMAT:"
- 190 PRINT
- 200 PRINT"1,13,1985"
- 205 PRINT
- 206 PRINT"IF YOU DO NOT WISH A SPECIFIC DAY,"
- 207 PRINT"PLACE A '0' FOR THE DAY."
- 210 PRINT
- 220 INPUT"DATE";M,D,Y:GOTO230
- 230 LD(2)=28-((Y=INT(Y/4)*4ANDY<>INT(Y/100)*100)ORY=2000)
- 240 IFM<1ORM>12THEN180
- 250 IFD=0THEN260:IFD<1ORDD>LD(M)ORY<1801ORY>2399THEN180
- 260 IFM<3THENY=Y-1:M=M+12
- 270 FOM=INT(Y*1.25)-(Y<1900)-(Y>2000)*INT((Y-2000)/100)+INT((M-2)*2.59)
- 280 DOW=FOM+D-INT((FOM+D-1)/7)*7
- 290 FOM=FOM-INT(FOM/7)*7+1
- 300 IFM>12THENM=M-12:Y=Y+1
- 305 IFD=0ORD=61THENPRINT"รด":GOTO340
- 310 PRINTCHR$(147);
- 320 PRINTMO$(M);STR$(D);",";
- 330 PRINTSTR$(Y);", IS A "DW$(DOW);"."
- 340 PRINTTAB((194-LEN(MO$(M)))/2);MO$(M);Y
- 350 PRINT
- 360 FORI=1TO7
- 370 PRINTLEFT$(DW$(I),3);SPC(3);
- 380 NEXTI
- 390 PRINT
- 400 DY$=BL$+LEFT$(DY$,2*LD(M))+BL$+BL$
- 410 FORI=1TO6
- 420 FORJ=1TO7
- 430 PT=I*7+J-FOM-6
- 440 IFPT=DANDD<10THENPRINTCHR$(32);
- 450 IFPT=DANDD>0THENPRINTCHR$(18);MID$(STR$(D),2);CHR$(14
- 460 PRINTMID$(DY$,2*PT+13,2);
- 470 IFD=0THENPRINTSPC(4):D=61:GOTO480
- 475 PRINTSPC(4)
- 480 NEXTJ
- 490 PRINT
- 500 NEXTI
- 510 PRINT
- 515 IFZX=1THENGOTO580
- 520 PRINT"PRESS <Q> TO QUIT,<P>TO PRINT,OR ANY"
- 525 PRINT"OTHER KEY TO TRY ANOTHER DATE."
- 540 GETK$
- 550 IFK$=""THEN540
- 555 IFK$="P"THENGOTO2100
- 560 IFK$<>"Q"ANDK$<>CHR$(113)THEN15
- 570 END
- 580 PRINT#3
- 585 CLOSE3
- 590 PRINT
- 592 PRINTCHR$(147)
- 595 GOTO520
- 1000 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY
- 1010 DATA THURSDAY,FRIDAY,SATURDAY
- 2000 DATA JANUARY,31,FEBUARY,28,MARCH,31
- 2010 DATA APRIL,30,MAY,31,JUNE,30
- 2020 DATA JULY,31,AUGUST,31,SEPTEMBER,30
- 2030 DATA OCTOBER,31,NOVEMBER,30,DECEMBE
- 2100 PRINT"MAKE SURE YOUR PRINTER IS ON AND READY."
- 2110 PRINT:PRINT"HIT ANY KEY WHEN READY."
- 2120 GETP$:IFP$=""THENGOTO2120
- 2130 OPEN3,4
- 2135 CMD3
- 2140 ZX=1
- 2200 RESTORE:BL$="":GOTO20
-