ベクタでActive Basicっての落として>>10をやってみた
http://www.vector.co.jp/vpack/filearea/win/prog/basic/index.html

IF文にTHENを補って、PRINTの出力文をダブルクォートにしたら動いた。
2000/2/29 は正常で、2001/2/29はエラーたっだからとりあえずいけそうだね。

>>1　も、使えそうなエミュレータ探してみたほうがいいと思うよ。