home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / mod#3 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  255b  |  11 lines
  1. 20 print chr$(147):print:print
  2. 30 print"enter a date (mm/dd/yyyy):";:input"";a$
  3. 40 mn= val(left$(a$,2)):dy= val(mid$(a$,4,2)):yr= val(right$(a$,4))
  4. 50 if mn<1 or mn>12 then90
  5. 60 m= val(mid$(md$,(mn-1)*2+1,2))
  6. 70 if dy<1 or dy>m then90
  7. 80 if yr<1 or yr>2300 then 90
  8. 85 return
  9. 90 print:print"invalid date":print:goto30
  10. 999 end
  11.