DW$(7),MO$(12),LD(12)':ZX02BL$""=I17I(DW$(I)a2BL$BL$(32)(32)h<ItFI112PMO$(I),LD(I)ZId53280,1n53281,1xDY$" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"}ZX1230 (147);(31);1 12);"PERPETUAL CALENDER"7 d "TYPE IN A DATE IN ANY YEAR AFTER 1800" "AND BEFORE 2300;THEN PRESS ." "USE THIS FORMAT:" "1,13,1985" "IF YOU DO NOT WISH A SPECIFIC DAY," "PLACE A '0' FOR THE DAY." , "DATE";M,D,Y:230_ LD(2)28((Y(Y4)4Y(Y100)100)Y2000)q M1M12180 D0260:D1DDLD(M)Y1801Y2399180 M3YY1:MM12 FOM(Y1.25)(Y1900)(Y2000)((Y2000)100)((M2)2.59) DOWFOMD((FOMD1)7)7. "FOMFOM(FOM7)71E ,M12MM12:YY1^ 1D0D61"":340k 6(147); @MO$(M);(D);","; J(Y);", IS A "DW$(DOW);"." T(194(MO$(M)))2);MO$(M);Y ^ hI17 r(DW$(I),3);3); |I  DY$BL$(DY$,2LD(M))BL$BL$% I160 J17C PTI7JFOM6Z PTDD10(32); PTDD0(18);((D),2);(146);:470 (DY$,2PT13,2); D04):D61:480 4) J  I  ZX1580 "PRESS TO QUIT,

TO PRINT,OR ANY"9 "OTHER KEY TO TRY ANOTHER DATE."A K$P &K$""540b +K$"P"2100} 0K$"Q"K$(113)15 : D3 I3 N P(147) S520  SUNDAY,MONDAY,TUESDAY,WEDNESDAY  THURSDAY,FRIDAY,SATURDAY JANUARY,31,FEBUARY,28,MARCH,314 APRIL,30,MAY,31,JUNE,30Y JULY,31,AUGUST,31,SEPTEMBER,30 OCTOBER,31,NOVEMBER,30,DECEMBER,314"MAKE SURE YOUR PRINTER IS ON AND READY.">:"HIT ANY KEY WHEN READY."HP$:P$""2120R3,4W3\ZX1:BL$"":20