1 declare string check 10 for year = 1986 to 1996 15 for month = 1 to 12 20 check = str$(year)+str$(100+month)[2:3] + '13' 80 if day$(days(check)) = 'Friday' then print using 'Friday 13th on: ####~/##~/##': check end if 90 next month print next year