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