10 rem ｼﾞﾝｺｳ ﾁﾉｳ ﾌﾟﾛｸﾞﾗﾑ
100 print"ｱｰ､ﾊﾗﾍｯﾀ";
110 gosub 1000
120 print"ｱﾆﾒｱﾆﾒ";
130 gosub 1000
140 print"ﾏﾝｺｼﾃｴ";
150 gosub 1000
900 end
1000 for a=0 to 9999:next
1010 return